Использование ЭВМ в расчетах железобетонных конструкций - Галкин В.В., Пантелькин И.И., Черноусов Н.П., Суслов И.А.

Автор: Галкин В.В. Пантелькин И.И. Черноусов Н.П. Суслов И.А.
Теги: строительство инженерных сооружений железобетонные конструкции строительное проектирование
ISBN: 5-87829-034-0
Год: 1998
Похожие
Железобетонные конструкции. Примеры расчета
Примеры расчета железобетонных конструкций
Проектирование и расчет железобетонных и каменных конструкций
Примеры расчета железобетонных конструкций
Текст
                    И.И.Пантелькин, Н.Н.Черноусов
И.А.Суслов, В.В Галкин

И.И. Пантелькин, Н.Н. Черноусов,
И.А. Суслов, В.В. Галкин
ИСПОЛЬЗОВАНИЕ ЭВМ В РАСЧЕТАХ
ЭЛЕМЕНТОВ ЖЕЛЕЗОБЕТОННЫХ
КОНСТРУКЦИЙ
Рекомендовано Ассоциацией строительных высших учебных заведений в
качестве учебного пособия для студентов, обучающихся по специальности
Промышленное и гражданское строительство"
Издательство
Ассоциации строительных вузов
Москва
1998
ББК
П166
УДК 624.0.12.35(07)
Рецензенты:
Кафедра "железобетонные и каменные конструкции" Воронежской госу-
дарственной архитектурно-строительной академии (зав. кафедрой докт. техн,
наук, профессор Ю.Б. Потапов); докт. техн, наук, профессор В.И.Соломатов
(МГУИТ).
Использование ЭВМ в расчетах элементов железобетонных конст-
рукций. Учебное пособие. /И.И. Пантелькин, Н.П. Черноусов, И.А. Суслов, В.В.
Галкин / Издательство Ассоциации строительных вузов, 1998 - 152 с., табл. 15,
ил.
ISBN 5-87829-034-0
В учебном пособии представлен текст прикладшлх программ для ав-
томатизированного расчета железобетонных элементов и конструкций различно-
го назначения. Программы составлены в виде отдельных самостоятельных струк-
турных единиц, позволяющие решать множество вариантных задач с вводом ис-
ходных данных и печатью результатов счета. Приведены контрольные примеры
машинного счета.
ISBN 5-87829-034-0
3301000000-010 _	_
----------------без объявления
009(03) - 95
© Издательство АСВ, 1998
© Коллектив авторов, 1998
Светлой памяти
Левченко А. М.
ПРЕДИСЛОВИЕ
Учебное пособие составлено в соответствии с программой курса "Желе-
зобетонные и каменные конструкции" для студентов специальности 2903 "Про-
мышленное и гражданское строительство", специализация САПР ОС.
Одно из центральных мест в системе автоматизированного проектирова-
ния элементов железобетонных конструкций является алгоритмизация расчета
конструкций с учетом вопросов оптимизации конструктивных форм, имитаци-
онное моделирование работы железобетонных конструкций, а также моделиро-
вание нагрузок и воздействий.
В учебном пособии разработаны развивающие СНиП 2.03.01-84* приемы
расчета изгибаемых и внецентренно-сжатых железобетонных элементов по двум
группам предельных состояний с применением ЭВМ.
Задачи по расчету изгибаемых и сжатых элементов железобетонных кон-
струкций, как известно, связаны с большой трудоемкостью вычислений и слож-
ностью, в связи с чем эффективность использования ЭВМ в указанных расчетах
очевидна.
Представленные тексты рабочих программ написаны на языках програм-
мирования "PL-Г и "BASIC" с использованием диалогового режима. Они ох-
ватывают все возможные случаи, которые встречаются при расчете изгибаемых и
сжатых железобетонных элементов.
С целью сокращения работы программы вычисления повторяющихся вы-
ражений вынесены за пределы итерационного цикла при решении задач методом
итерации, при этом промежуточные переменные, имеющие свои обозначения по
СНиП 2.03.01-84* и не требующие хранения в программе, используются в после-
дующем как "рабочие" переменные.
Программы составлены в виде отдельных' самостоятельных структурных
единиц, позволяющие решать множество вариантов задач с вводом исходных
данных и печатью результатов счета.
Авторы приносят глубокую благодарность рецензентам учебного пособия:
коллективу кафедры "Железобетонные и каменные конструкции" Воронежской
государственной архитектурно-строительной академии (зав. кафедрой докт. техн,
наук, проф. Ю.Б. Потапов) и докт. техн, наук, проф. Соломатову В.И. за ценные
замечания и рекомендации, способствующие улучшению книги.
Глава 1
РАСЧЕТ ПРОЧНОСТИ ЭЛЕМЕНТОВ
ЖЕЛЕЗОБЕТОННЫХ КОНСТРУКЦИЙ___________________________
В пособии представлен пакет прикладных программ для ре-
шения задач, связанных с расчетом элементов железобетонных
конструкций по несущей способности в соответствии с СНиП
2.03.01-84*/!/.
Программы реализуют в основе своей алгоритмы, которые
приведены в учебном пособии /2/ с учетом особенностей машин-
ного счета.
1.1.Определение потерь предварительного
напряжения в арматуре
1.1.1. Алгоритм машинного счета
В программе реализован алгоритм, описанный в учебном
пособии /2/ с несущественными отличиями, которые можно уви-
деть непосредственно по тексту программы, учитывающей различ-
ные классы арматуры и бетона, способы и методы создания пред-
варительного напряжения, а также вид бетона.
1.1.2. Инструкция к программе на языке "BASIC"
Наименование (идентификатор) GBK1
Редакция 2-95
Язык программирования BASIC.
Программа предназначена для расчета потерь предваритель-
ного напряжения в определенном сечении предварительно напря-
женной конструкции.
Программа учитывает:
4
вид предварительно напрягаемой арматуры: проволочная
или стержневая;
вид бетона: тяжелый или на пористых заполнителях - ес-
тественного твердения или подвергнутого тепловой обработке;
способ изготовления: натяжение арматуры на упоры или на
бетон; способ натяжения арматуры: механический, электротер-
мический и электротермомеханический.
В настоящей программе рассчитываются сечения, симмет-
ричные относительно плоскости действия усилия обжатия
(рис.1.1).
Рис. 1.1. Схема усилий предварительного напряжения арматуры в
поперечном сечении железобетонной балки
Исходные данные к программе GBK1 приведены в таблице
Исходный текст программы GBK1, полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 1.
Таблица 1.1.
Исходные данные к программе GBK1
Обозначение по СниП 2.03.-01-84* 9	Обозначение по тексту программы	Размерность	Пояснения, ограничения, источник
1	2	3	4
«Г	ММН	км	ММН=1при механическом способе на- тяжения на силовую форму, ММН>1 при механическом способе натяжения на упоры стенда и ММН=1 при элек- тротермическом способе натяжения
	С	«»	Для стержневой арматуры С=1 и С=0 для проволочной арматуры.
ft»	НВ	«»	При натяжении на бетон НВ=1, при натяжении на упоры НВ=0.
ЯК*	то	—•	ТО=1 для бетона, подвергнутого теп- ловой обработке, при естественном твердении ТО—1.
«я»	LB		LB=1 для легкого бетона и LB=0 для тяжелого бетона.
п	N	г«*	Число швов конструкций и оснастки по длине натягиваемой арматуры при натяжении на бетон, п.11, табл.5 СНиП 2.03.01-84*71/.
W	FS	аМ	Форма сечения железобетонного эле- мента. Для круглого сечения FS=1, иначе FS=O.
	L	ММ	Длина натягиваемого стержня (рас- стояние между наружными гранями упоров).
Rs, ser	RSS	МПа	Расчетное сопротивление арматуры растяжению для предельных состояний второй группы, табл. 1.2. приложения 5,	
6
Продолжение табл. 1.1.
1	2	3	4
At	DT	c°	Разность между температурой нагре- ваемой арматуры и неподвижных упо- ров (вне зоны нагрева), воспринимаю- щих усилие натяжения, At> 65°С.
Alt	DLl	MM	Обжатие шайб или прокладок, распо- ложенных между анкерами и бетоном элемента при натяжении арматуры на бетон, п.З, табл.5 СНиП 2.03.01-84* /1/.
АЪ	DL2	MM	Деформация анкеров стаканного типа, анкерных гаек и захватов при натяже- нии на бетон, п.З, табл.5 СНиП 2.03.01- 84* /1/.
Д1	DL	MM	Обжатие опрессованных шайб, смятие высаженных головок при натяжении арматуры на упоры, п.З, табл.5 СНиП 2.03.01-84*/1/.
CO	W	МЙ	Коэффициент согласно по СНиП 2.03.01-84*/!/.
X		M	Длина участка от натяжного устройст- ва до расчетного сечения при натяже- нии арматуры на бетон, п.4, табл. 5 СНиП 2.03.01-84* /1/.
8	D	4М»	Коэффициент, определяемый по табл. 6 СНиП 2.03.01-84*/1/.
e	TETA	рад	Суммарный угол поворота оси армату- ры при определении потерь от трения арматуры о стенки каналов или поверх- ность бетона конструкций.
Asp	ASP	см2	Площадь сечения напрягаемой арма- туры S.
A'sp	ASPS	CM2	Площадь сечения напрягаемой армату- ры S'.
Arcd	ARED	CM2	Площадь приведенного сечения эле- мента		j
7
Окончание табл. 1.1.
1	2	3	4
Jred	JRED	4 CM	Момент инерции приведенного сече- ния относительно его центра тяжести
YSp	YSP	CM	Расстояние от центра тяжести приве- денного сечения до равнодействую- щей усилий в напрягаемой арматуре S
у/ * sp	YSPS	CM	Расстояние от центра тяжести до рав- нодействующей усилий в ненапрягае- мой арматуре S'
Ys	YS	CM	Расстояние от центра тяжести приве- денного сечения до равнодействующей усилий в ненапрягаемой арматуре S.
Md	MCM	H-см	Расчетное значение изгибающего мо- мента от собственного веса элемента
Rbp	RBP		Передаточная прочность бетона, на- значаемая согласно указанием п.2.6. СНиП* /1/.
В	В		Класс бетона по прочности бетона на сжатие
Д1,	DLC	MM	Обжатие стыка при натяжении армату- ры на бетон, принимаемое согласно п. 11, табл.5 СНиП*/1/.
Es	ES	МПа	Модуль упругости арматуры согласно - табл.20 СНиП*/1/.
As	AS	CM2	Площадь сечения ненапрягаемой арма- туры S.
A's	ASS	CM2	Площадь сечения ненапрягаемой арма- туры S'.	 	
^ext	DEXT	CM	Наружный диаметр конструкции при натяжении арматуры на бетон, й>3м
Характер, организация, описание и способ кодирования вы-
ходных данных программы GB <1 приведены в таблице 1.2.
8
Таблица 1.2.
Выходные данные программы GBK1
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту программы	Размерность	—  — 	  — 1' " 11 1 " — 		  - ’ 1 Пояснения, ограничения, источник
	э		4
Qsp	SSP	МПа	Начальное предварительное напряже- ние в напрягаемой арматуре
	SLOS.	МПа	Величина потерь преднапряжения пер- вой группы, происходящих до обжатия бетона.
°SP1	SSP1	МПа	Предварительное напряжение в напря- гаемой арматуре с учетом потерь пер- вой группы
Poi	Р01	н	Усилие предварительного обжатия бе- тона с учетом потерь преднапряжения первой группы
бор]	ЕОР	см	Эксцентриситет усилия пред- варительного обжатия Р01 относитель- но центра тяжести приведенного сече- ния
C^bpl	SBP1	МПа	Сжимающие напряжения в бетоне в стадии предварительного обжатия с учетом потерь первой группы.
| C4os2	SLOS2	МПа	Величина потерь преднапряжения вто- рой группы, происходящих после об- жатия бетона
^sp2	SSP2	МПа	Предварительное напряжение в напря- гаемой арматуре с учетом потерь вто- рой группы
9
Окончание таблицы 1.2.
	2	3	4
os	. SS	МПа	Напряжение в ненапрягаемой армату- ре S.
	SSS	МПа	Напряжения в ненапрягаемой армату- ре S'.
Р02	Р02		Усилие предварительного обжатия бе- тона с учетом потерь первой и второй группы (с учетом полных потерь).
е02	ЕОР2 . _ . . ....	см	Эксцентриситет усилия предваритель- ного обжатия Ро2 относительно центра тяжести приведенного сечения
Для записи выходных данных использованы следующие
спецификации формата числовой информации: ММН, С, НВ, ТО,
N, LB, FS-12; все оставшиеся входные данные - по формату ЕЮ 5.
Программой предусмотрена возможность пакетной обработ-
ки неограниченного числа вариантов.
’езультаты машинного счета контрольного примера приве-
дены на с. 11.
1.2. Расчет рабочей растянутой арматуры для
изгибаемых элементов
1.2.1. Алгоритм машинного счета
Определение необходимой площади сечения рабочей арма-
туры производится по результатам сопоставления численных зна-
чений относительной высоты сжатой зоны бетона % и граничной
относительной высоты . При этом область действительной ра-
боты арматуры в изгибаемом элементе разбита на три зоны
(рис. 1.2):
10
Определение потерь предварительного напряжения в арматуре
* GBK1 *
А***************************************************'**'****
ИСХОДНЫЕ ДАННЫЕ
АААААААААААААААААААААААААААААААААААААААА
1)ММН = о
2)С	=1
3)НВ =0
4)ТО =1
5)LB =1
6) п “ 0
7)FS - О
8)L	= 9500 мм
9)Rs,ser= 785 МПа
10) At = 65 гр.С
11) АЫ = 0 мм
12)AL2 = 0 мм
13)AL =2 мм
14)w	= 0
15)х = 0 М
18)Asp = 36.4 кв.см
19)A'sp== 0 кв.см
20)Ared= 3420 кв.см
21)Jred= 209500 смА4
22)Ysp = 9 см
23)Y’sp= 0 см
24)Ys « 9.2 см
25)Y's = 0 см
26)Md = 96896 Н*см
27)Rbp = 12 МПа
28)В » 30
30)Es
190000 МПа
16)&	= .25
17) ТЕ ТА-- 0 рад
32)A’s = 0 кв
33)dext= 0 см
Начальное предварительное напряжение в напрягаемой
арматуре S , @sp= 717.1053 М
Величина потерь преднапряжения 1-ой гр., до обжатия
бетона @losl= 250.0521 МПа
Предварительное напряжение в напрягаемой арматуре S с
учетом потерь 1-ой гр. @spl= 467.0532 МПа
Усилие предварит, обжатия бетона с учетом потерь
преднапряж. 1-ой гр. Pol— 1552785 Н
Эксцентриситет усилия предварит, обжатия Pol относительно
линии центра тяжести приведенного сечения Еор1= 8.98103 см
Сжимающие напряжения в бетоне в стадии предвар. обжатия
с учетом потерь 1-ой гр. @Ьр1= 10.48963 МПа
Величина потерь преднапряжения 2-ой гр.,после обжатия
бетона 81os2« 437.3318 МПа
Предварительное напряжение в напрягаемой арматуре S с
учетом потерь 2-ой гр. 0sp2= 279.7735 МПа
Напряж. в ненапрягаемой арматуре S, @s= 334.5686 МПа
Напряж. в ненапрягаемой арматуре S', @'s= 0 МПа
Усилие предварит, обжатия бетона с учетом потерь
преднапряж. 1-ой и 2-ой гр. Ро2= 683806.9 Н
Эксицентриситет усилия предварит, обжатия Ро2 относительно
линии центра тяжести приведенного сечения Еор2= 8.902145см
11
Рис. 1.2. Схема усилий и напряжений в нормальном расчетном сече-
нии в предельном состоянии по прочности
а)	напряжение в арматуре достигает Rs, т.е. c^Rs (признак
работы i—1);
б)	напряжение в арматуре составляет 0,8Rs<<js<Rs (признак
работы i-0);
в)	напряжение в арматуре не достигает Rs, т.е. os<0,8Rs (при-
знак работы i--l).
При напряжение в арматуре может повысить условный
предел текучести.
Это учитывается введением в расчет коэффициента ys6, кото-
рый зависит от
as=RsYs6.
При	напряжение в арматуре определяется по фор-
муле:
где £>ci - относительная высота сжатой зоны бетона при напря-
жении в рабочей арматуре os<0.8Rs.
^sc,u
s ~~	7
co
Вычисление напряжений в рабочей арматуре as осуществля-
ется из условия работы в предельном состоянии на границе упру-
гости 0,8Rs или Rs в зависимости от класса арматуры. При ^=^еь
vsc,u
s 7
co
Если арматура преднапряжения то вместо Rei подставляется
oSp.
При напряжение в арматуре равно пределу текучести.
При as<0 необходимость в предварительном напряжении
отпадает.
1.2.2. Инструкция к программе на языке BASIC
Наименование (идентификатор) GBK2.
Редакция 2-96.
Язык программирования "BASIC”.
Программа предназначена для расчета необходимой пло-
щади рабочей напрягаемой либо не напрягаемой арматуры в изги-
баемых элементах прямоугольного, таврового, двутаврового се-
чений, а также приводимых к одной из этих форм.
Характер, организация, описание и способ кодирования
входных параметров к программе GBK2 приведены в таблице 1.3.
13
Таблица 1.3.
Исходные данные в программе GBK2
Обозначение 1 тт	по СПИ11 2.03.-01-84*	Обозначение- по тексту программы	Размерность	/ / Пояснения, ограничения, источник	
	1		3	4	
		RBT	МПа	Расчет сопротивления бетона осевому сжатию для предельных состояний первой группы согласно табл. 13, СНиП*/1/.	
?Ь2		GM2	МПа	Коэффициент условия работы по п.2, табл. 15, СНиП*/1/.	бетона
Ты		GM1	МПа	Произведение коэффициентов условий работы бетона с уЬз по уЬ12, которые со- ответствуют фактически заданным ус- ловиям, табл. 15 СНиП*/1/.	
1	а	ALFA	МПа	Коэффициент в формуле СНиП*/1/.	(26)
	МВ	PNT	МПа	PNT=1 для арматуры, классов A-IV, AT-IV, A-V, А-VI, ВР-П, К-7 и PNT=0 для арматуры классов А-И, А-Ш.	
г	п	ETA	МПа	Коэффициент в формуле СНиП*/1/.	(27)
в	-SP	RSP	МПа	Расчетное сопротивление напрягаемой арматуры S растяжению для пре- дельных состояний первой группы, табл. 22, 23 СНиП*/1/.	
b'f		BF	см	Ширина полки таврового (д! вого) сечения, находящейся в зоне.	^утавро- сжатой
14
Окончание таблицы 1.3.
- ! 1	2	3	4
	HF	CM	Высота сжатой полки таврового (двутаврового) сечения.
ho	HO	CM	Рабочая (полезная) высота сечения.
Rs	RS	МПа	Расчетное сопротивление ненапряга- емой арматуры S растяжению для пре- дельных состояний первой группы со- гласно табл. 22, 23 СНиП*/1/.
Rsc	RSC	МПа	Расчетное сопротивление ненапряга- емой арматуры сжатию для предель- ных состояний первой группы согласно табл. СНиП*/1/.
As	ASS	см2	Площадь сечения ненапрягаемой ар- матуры S, расположенной в растянутой (нижней) зоне.
A's	ASA	см2	Площадь сечения S', расположенной в сжатой (верхней) зоне.
a/s	A	CM	Расстояние от равнодействующей уси- лий в арматуре S' до ближайшей грани сечения.
M	M	Н*см	Расчетное значение изгибающего мо- мента от полной расчетной нагрузки, М>0.
b	В	CM	Ширина прямоугольного сечения; ши- рина ребра таврового (двутаврового) сечения.
^SP2	SIGP	МПа	Предварительное напряжение в нап- рягаемой арматуре S с учетом про- явления всех потерь преднапряжения
Кроме того первоначальными исходными данными являются
NUMK- количество рассматриваемых вариантов, NUM- номер рас-
считываемого варианта.
Характер, организация, описание и способ кодирования вы-
ходных параметров программы GBK2 представлены в таблице 1.4.
15
Таблица 1.4.
Выходные параметры программы GBK2
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту про- граммы	Размерность	Пояснения, ограничения, источник
1	2	3	4
	KSI	vm	Относительная высота сжатой зоны
£>R	KSIR		Граничные значения относительной высоты сжатой зоны
As	AS	CM2	Площадь рабочей растянутой арматуры
<?s			—	 	1 SIGMA 	  - —  	,	МПа	Напряжение в рабочей растянутой ар- матуре
Исходный текст программы GBK2, полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 2.
Ниже приведен результат машинного счета контрольного
примера.
Вариант 1
Исходные данные
RBT= 14.5
GM2= 1
GM1= 1
ALFA=	.8
PNT= 1
ETA= 1.15
RSP= 680
BF= 0
HF= 0
HO= 56
RS= 0
16
RSC= 280
ASS— 0
ASA= 7.63
A= 4
M= 3.9E+07
B= 25
SIGP— 408
NUMK— 1
NUM- 1
Результаты счета
Относительная высота сжатой зоны KSI— .2863392
Граничное значение относительной высоты KSLR— .5440819
Площадь рабочей растянутой арматуры AS= 10.23524
Напряжение в рабочей растянутой арматуре SIGMA= 776.639
1.3. Проверка прочности нормального сечения
изгибаемых элементов
1.3.1. Алгоритм машинного счета
I
Мерой несущей способности является избыток момента, вы-
держиваемого сечением, над моментом, возникающим от внешней
нагрузки:
ДМ=Ми - М,
где Ми- изгибающий момент по прочности изгибаемого элемен-
та, который может выдержать сечение при заданной внешней на-
грузке;
М - изгибающий момент, возникающий от внешней расчетной
нагрузки.
Если АМ>0, несущая способность обеспечена, если ДМ<0 -
недостаточна.
Момент Ми вычисляется из условий равновесия в пре-
дельном состоянии.
Эта задача имеет единственное решение, но напряжения в
арматуре S и S' зависят от высоты сжатой зоны, которая заранее не
известна.
В программе предусмотрена последовательная проверка
17
всех возможных случаев расположения нейтральной оси.
Указанные выше условия прочности справедливы при ^<^R.
В случае, когда £>>5r используется зависимость напряжений в ар-
матуре от высоты сжатой зоны X по формуле (35) СНи^Т*/!/.
В программе полностью реализован алгоритм, описанный в
учебном пособии /2/ с учетом особенностей машинного счета.
1.3.2. Инструкция к программе на языке BASIC
Наименование (идентификатор) GBK3.
Редакция 2-96.
Язык программирования BASIC.
Программа предназначена для проверки прочности нор-
мального сечения изгибаемых элементов прямоугольного, тавро-
вого и двутаврового сечений с напрягаемой либо с ненапрягаемой
арматурой.
Описание и способ кодирования входных параметров к про-
грамме GBK3 приведены в таблице 1.5.
Таблица 1.5.
Исходные данные к программе GBK3
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту программы	1	. — ... — . - .. Размерность i						Пояснения, ограничения, источник
1	2	3	4
Rb	RBT	МПа	Расчет сопротивления бетона осевому сжатию для предельных состояний первой группы согласно табл. 13, СНиП*/1/.
Yb2	GB2	МПа	Коэффициент условия работы бетона по п.2, табл. 15, СНиП*/1/.
18
Продолжение таблицы 1.5.
Уы	\ GB1 I	МПа		Произведение коэффициентов условий работы бетона с уВз по уВг2, которые соответствуют фактически заданным условиям, табл. 15 СНиП*/1/.	
сх	ALFA	МПа		Коэффициент СНиП*/1/.	в формуле (26)
h'f	HFS	см		высота сжатой полки таврового (двутаврового) сечения.	
Rs	RS	МПа		Расчетное сопротивление ненапряга- емой арматуры S растяжению для пре- дельных состояний первой группы со- гласно табл. 22, 23 СНиП*/1/.	
	SSP	МПа		Предварительное напряжение в нап- рягаемой арматуре S с учетом про- явления всех потерь преднапряжения. Osp^lOO МПа.	
Rsc	RSC	МПа		Расчетное сопротивление ненапряга- емой арматуры S' сжатию для пре- дельных состояний первой группы со- гласно табл.22, СНиП*/1/.	
A's	ASS	СМ"		Площадь сечения ненапрягаемой ар- матуры S', расположенной в сжатой зоне бетона.	
a's	ASA	см		Расстояние от равнодействующей уси- лий в ненапрягаемой арматуре S' до ближайшей грани сечения	
M	MSER	Н-см		Расчетное значение изгибающего мо- мента от полной расчетной нагрузки, М>0.	
n	ETA			Максимальное значение коэффициента условия работы арматуры yS6, пункт 3.3.13, СНиП*/1/.	
19
I
Окончание таблицы 1.5.
Rsp *	 		1 RSP	МПа	Расчетное сопротивление напрягаемой арматуры S для предельных состояний первой группы, табл. 22, СНиП*/1/.
Asp	ASP	см2	Площадь сечения напрягаемой арма- ТУРЫ.		 	
A'sp	ASSP	CM2	Площадь сечения напрягаемой арма- туры S'.
As	AS	CM2	Площадь сечения ненапрягаемой ар- матуры S.
b		CM	Ширина прямоугольного сечения или ребра таврового (двутаврового) се- чения.
ho	HO	CM	Рабочая (полезная) высота сечения.
a'sp	ASSP	CM	Расстояние от равнодействующей уси- лий в напрягаемой арматуре S' до бли- жайшей грани сечения.
SP	SSPS	МПа	Величина предварительного напряже- ния в арматуре S' с учетом всех потерь и коэффициента ysp<l.
b'f	BFS	CM	Ширина полки таврового (двутавро- вого) сечения, находящейся в сжатой зоне.
Кроме того, первоначальными исходными данными явля-
ются:
NUMK- количество рассматриваемых вариантов; NUM-номер рас-
считываемого варианта.
Форма записи исходных данных ЕЮ.5.
Выходные параметры программы GBK3:
-	граничное значение относительной высоты;
-	относительная высота сжатой зоны;
-	изгибающий момент, воспринимаемый сечением (Нем);
-	отклонение величины изгибающего момента, восприни-
маемого сечением, от момента, возникающего от внешней нагруз-
20
ки ДМ (Н ем).
Исходный текст программы GBK3, полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 3.
Результаты расчета на ЭВМ контрольного примера приве-
дены ниже.
Проверка прочности нормального сечения изгибаемых эл-тов
прямоугольного, таврового и двутаврового сечений с напря-
гаемой либо с ненапрягаемой арматурой * GBK3 *
**********************************************************
ИСХОДНЫЕ ДАННЫЕ
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
l)Rb(T) = 14.5 МПа
2)&Ь2	= .9
з у &Ы = 1
4)ALFA = .85
5)ETA = О
6)Rs = 365 МПа
7)Rsp = 0 МПа
8)Gsp2 = 0 МПа
9)G‘sp2= 0 МПа
10)bf* — 0 см
11)hf’ = О см
12)Rsc =365 МПа
13)AS’	= 3.39 смА2
14)Asp = 0 смА2
15)Asp' — 0 смА2
16) As = 48.26 смА2
17)Ь	= 30 см
18)ho = 63 см
19)а'	=3 см
20)М	- 6Е+07 Н*см
21)а’р	= 0 см
РЕЗУЛЬТАТЫ
СЧЕТА
ААААААААААААААААААААААААААААААААААААААААА
Прочность нормального сечения обеспечена
на воздействие изгибающего момента
Граничное значение относительной высоты сжатой
зоны KSIR= .5928068
Относительная высота сжатой зоны бетона KSI= .6640131
Изгибающий момент воспринимаемый сечением Mu= 7.429098Е+07
Н*см
Отклонение величины изгиба
сего момента
воспринимаемого сечением,
от момента возника
сего

от внешнем нагрузки ЛМ= 1.429098Е+07 Н*см
21
1.4 Подбор поперечной арматуры по прочности
наклонного сечения при действии поперечной
силы	/
«
1.4.1. Алгоритм машинного счета
В действующий СНиП 2.03.01-84*/!/ внесены существенные
изменения в некоторые положения методики расчета прочности
наклонных сечений, хотя расчет выполняется раздельно на дейст-
вие поперечной силы и на действие изгибающего момента.
При расчете элементов на действие поперечной силы во всех
случаях должно выполнятся условие:
Р<Ю,3*ф№гфь1"Кь*Ь-Ьо2,
обеспечивающее прочность бетона по наклонной полосе между
наклонными трещинами.
При этом расчетное значение Q принимается в нормальном
сечении, расположенном не ближе чем на расстоянии h0 от опоры.
При поперечной арматуре в виде хомутов:
(pwi=l+5a-pw<l,3; cpbi^l-p-Rb,
где a=Es/EB; [iw^Asw/b-S-0.01-для тяжелого бетона;
Р=0,02- для легкого бетона.
Для обеспечения прочности по наклонной трещине на дей-
ствие поперечной силы по наиболее опасному наклонному се-
чению должно выполнятся условие:
Q<QB+Qsw+Qs, inc,
где QB=<Pb2 (l+<pf+<pN),Rbfb ho2/c - поперечная сила, воспринимаемая
бетоном в наклонном сечении (рис. 1.3);
Qsw=qw c - усилие, воспринимаемое хомутами;
Qs,inc - усилие, воспринимаемое отогнутыми стержнями.
При этом длина проекции наклонного сечения на про-
дольную ось элемента С принимается равной величине пролета
среза "а” (при действии нагрузки в виде сосредоточенных сил “а” -
22
расстояние от оси опоры до линии действия ближайшей к опоре
силы; при действии равномерно распределенной нагрузки а=0,251,
где 1 - расчетный пролет элемента),
C<ho-(pb2-(l+<Pd*Tn)/(pb3'(l+<Pn).
Рис. 1.3. Расчетная схема наклонного сечения
В структуру расчетных формул введены корректирующие
коэффициенты, учитывающий вид бетона (р, фьг, Фьз, Фы), влияния
наличия сжатых полок в тавровых и двутавровых элементах (фе), а
также влияния продольных сжимающих и растягивающих сил (фп).
В программе реализован алгоритм по подбору поперечной
арматуры па действие поперечной силы, описанный в учебном по-
собии /2/.
1.4.2. Инструкция к программе на языке BASIC
Наименование идентификатор GBK4.
Редакция 2-96.
23
Язык программирования BASIC.
Программа предназначена для расчета требуемой площади
поперечной арматуры, определения шага постановки ее и диамет-
ра в изгибаемых элементах прямоугольного, таврового и двутавро-
вого сечений.
Описание, способ кодирования входных параметров для
программы GBK4 приведены в таблице 1.6.
Таблица 1.6.
Исходные данные к программе GBK4
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту про- граммы	1 Размерность	Пояснения, ограничения, источник
1	2	3	4
		МПа	Расчетное сопротивление бетона осе- вому сжатию для предельных со- стояний первой группы согласно табл. 13, СНиП*/1/.
Rbt	RBT	МПа	Расчетное сопротивление бетона осе- вому растяжению для предельных состояний первой группы согласно табл.13, СНиП*/!/.
Yb2	GB2	МПа	Коэффициент условия работы бетона по п.2, табл. 15, СНиП*/1/.
Уы	GB1	МПа	Коэффициент условия работы бетона по п.2, табл. 15, СНиП*/1/.
Уы	GBI	МПа	Произведение коэффициентов условий работы бетона с уьз по уьп, которые со- ответствуют фактически заданным ус- ловиям, табл. 15 СНиП*/1/.
24
Продолжение таблицы 1.6.
]	2	3	4
ь		CM	Ширина прямоугольного сечения или ребра таврового (двутаврового) се- чения.
h'f	HF	CM	Высота сжатой полки таврового (дву- таврового) сечения.
b'f	BF	CM	Ширина полки таврового (двутаврово- го) сечения, находящейся в сжатой зо- не.
ho	HO	CM	Рабочая (полезная) высота сечения.
h		CM	— Высота сечения
P	p	H	Усилие предварительного обжатия с учетом полных потерь пред напряжения
<f>b2	FB2	—	Коэффициент в формуле (76), СНиП/1/.
фъз	F'B3	май	Коэффициент, принимаемый по п.3.31 СНиП/]/
с	c	CM	Длина проекции наиболее опасного наклонного сечения на продольную ось элемента,C<2h0.
Q	Q	H	Поперечная сила от внешней нагруз- ки.
Rsw	RSW	МПа	Расчетное сопротивление поперечной арматуры растяжению по табл. 22 СНиП*/!/.
25
Окончание таблицы 1.6.
	1	2		4
л п		N		Количество ветвей хомутов (попе- речных стержней), входящих в нор- мальное сечение элемента.
А	SW	ASW	7 см"	Площадь сечения хомутов,располо- женных в одной нормальной к про- дольной оси элемента плоскости пе- ресекающей наклонное сечение.
I		ES	МПа	Модуль упругости арматуры табл. 29 СНиП*/1/
1	—*	ЕВ	МПа	Модуль упругости бетона, табл. 18, СНиП*/1/.
	₽	ВЕТ	WWW	Коэффициент в формуле (74), СНиП*/1/.
«зм		А	См	Величина пролета среза, принимае- мая при действии нагрузки в виде со- средоточенных сил равной расстоя- нию от оси опоры до линии действия ближайшей к ней силы; при действии равномерно распределенной нагрузки А=0,254, где 1 - расчетный пролет элемента —		— 			— 1
Кроме того, первоначальными исходными данными явля-
ются: NUMK - количество рассматриваемых вариантов; NUM -
номер рассчитываемого варианта.
Исходные данные записываются в форме Е10.5
Результирующие параметры и программы:
-	интенсивность поперечного армирования - QSW /Н-см/;
26
-	шаг постановки хомутов - S /см/;
-	поперечная сила, воспринимаемая бетоном - QB /Н/;
Исходный текст программы GBK4, полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 4.
Далее приведены результаты машинного счета контроль-
ного примера.
Программа подбора поперечной арматуры по прочности наклон-
ного сечения при действии поперечной силы * GBK4 *
1)
2)
3)
4)
5)
6)
7)
8)
9)
10)
11)
Rb (т)	=	17	МПа
Rbt(T)	=	1.2	МПа
&Ь2	=	.9
&Ы	=	1
б	=20	см.
hf’	=2.5 см.
bf'	= 295 см.
ho	— 39	см.
h	=45	см.
Р	= 622000 Н
#Ь2	= 2
12)	#ЬЗ = .6
13)	С =78 см
14)	q = 84800 Н
15)	Rsw = 260 МПа
16)	п =2
17)	Asw = .196 кв.см.
18)	Es = 170000 МПа
19)	ЕЬ = 24500 МПа
20)	ВЕТ = .01
21)	А = 297 см.
Интенсивность поперечного армирования QSW= 972.0001 Н/см
Шаг постановки хомутов	S= 10.4856 см.
Поперечная сила воспринимаемая бетоном QB= 75816.01 Н
1.5.	Проверка прочности наклонного сечения при
действии поперечной силы
1.5.1.	Алгоритм машинного счета
В практике проектирования наиболее распространено попе-
речное армирование в виде хомутов (без отгибов). В этом случае
условие прочности имеет вид
27
Q<Qb+Qsw-
Мерой прочности является избыток поперечной силы,
Л
выдерживаемой наклонным сечением, над поперечной си-
лой, Возникающей от полной расчетной нагрузки:
AQ=Qu-Q.
Если Q>0, прочность сечения обеспечена, если AQ<0- недос-
таточна.
При этом предельное значение поперечной силы Qu вычис-
ляется, исходя из обеспечения прочности наклонного сечения в
двух случаях:
-	при действии поперечной силы по наклонной полосе меж-
ду наклонными трещинами;
-	при действии поперечной силы по наклонной трещине.
В программе полностью реализован алгоритм по проверке
прочности наклонного сечения при действии поперечной силы,
описанный в учебном пособии /2/ с учетом особенностей машин-
ного счета.
1.5.2.	Инструкция к программе на языке BASIC
Наименование (идентификатор) GBK5.
Редакция 2-96.
Язык программирования BASIC.
Программа предназначена для проверки прочности наклон-
ного сечения для элементов прямоугольного, таврового и двутав-
рового сечений или приводимых к одной из этих форм.
Описание и кодирование входных параметров к программе
GBK5 приведены в таблице 1.7.
28
Таблица 1.7.
Исходные данные к программе GBK5
Обозначение по СНиП 2.03.-01-84* 1	Обозначение по тексту про- граммы	Размерность	Пояснения, ограничения, источник
1	2	3	4
Rsw	RSW	МПа	Расчетное сопротивление поперечной арматуры растяжению согласно табл. 22, СНиП*/1/
Rb	RBT	МПа	Расчетное сопротивление бетона осево- му сжатию для предельных состояний первой группы согласно табл. 13, СНиП*/1/.
7b2	GB2	МПа	Коэффициент условия работы бетона по п.2, табл. 15, СНиП*/1/.
fbi	GBI	МПа	Произведение коэффициентов условий работы бетона с уьз по уЬ12, которые со- ответствуют фактически заданным ус- ловиям, табл. 15 СНиП*/!/.
Rbt	RBT	МПа	Расчетное сопротивление бетона осево- му растяжению для предельных со- стояний первой группы согласно табл. 13, СНиП*/1/.
h'f	HF	см	Высота сжатой полки таврового (дву- таврового) сечения.
b	В	см	Ширина прямоугольного сечения или ребра таврового (двутаврового) се- чения.
ho	HO	см	Рабочая (полезная) высота сечения.
b'p	BF	см	Ширина полки таврового (двутавро- вого) сечения, находящейся в сжатой зоне.
29
Окончание таблицы 1.7.
1	2	3	4
Еь	ЕВ	МПа	Модуль упругости бетона, табл. 18, СНиП*/1/.
Asw	ASW	см2	Площадь сечения хомута, располо- женного в нормальной плоскости к продольной оси элемента.
п	N	<»	Количество ветвей хомутов (попе- речных стержней), входящих в нор- мальное поперечное сечение элемента.
Q	Q	н	Расчетное значение поперечной силы от полной расчетной нагрузки, Q>0.
р	р	н	Усилие предварительного обжатия бе- тона с учетом всех потерь пред- напряжения.
с	с	см	Длина проекции расчетного наклон- ного сечения на продольную ось эле- мента.
Es	ES	МПа	Модуль упругости арматуры табл. 29 СНиП*/1/
фВ2	FB2		Коэффициент, принимаемый по п.3.31 СНиП*/1/.
фвз	FB3		Коэффициент, принимаемый по п.З .31 СНиП*/1/.
3	ВЕТ	от*	Коэффициент, принимаемый по п.3.30 СНиП*/1/.
S	S	СМ	Шаг постановки поперечной арматуры (хомутов).
ho	НО	см	Рабочая (полезная) высота сечения.
Кроме того исходными данными являются:
NUMK- количество рассматриваемых вариантов; NUM - но-
мер рассчитываемого варианта.
Исходные данные записываются в форме Е10.5.
30
Выходные параметры программы GBK5:
-	поперечная сила, воспринимаемая бетоном QB /Н/;
-	поперечная сила, воспринимаемая поперечными стерж-
нями QSW /Н/;
-	отклонение поперечной силы, воспринимаемой сечением,
от поперечной силы, возникающей от расчетной внешней нагрузки
DQ/H/.
Исходный текст программы GBK5, полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 5, а ниже по тексту - результаты машинного счета контроль-
ного примера.
Проверка прочности наклонных сечений при действии
поперечной силы * GBK5 *
l)Rsw	=	260 МПа
2)Es	=	170000 МПа
З)КЬ(т) =14.5 МПа
4)Rbt(T)= 1.05 МПа
5)ЕЬ	=	27000 МПа
6)Asw	=	19.6 ммЛ2
7)n	=	1
8)Q	=	62000 Н
9)Р	=	130000 Н
10)С	=	1200 мм
11)Ь
12)bf'
13) ho
14)hf'
15)ab2
16)иЬЗ
17)$
18)&Ь2
19) &bi
20) S
= 85 мм
= 725 мм
— 360 мм
= 50 мм
= 2
= .6
= .01
= .9
= 1
= 150 мм
РЕЗУЛЬТАТЫ
СЧЕТА
А А. А А. А А /Ч А А А А А> А /Ч УЧ А А А А А ^Ч А А УЧ УЧ ^Ч А А А ^Ч А УЧ ^Ч ^Ч <А А УЧ А
Поперечная сила, воспринимаемая бетоном сжатой
Зоны Qb= 43375.5 Н
Поперечная сила, воспринимаемая хомутами Qsw= 24460.8 И
Поперечная сила, воспринимаемая наклонным
сечением Qu= 67836.3 Н
Отклонения величины поперечной силы, воспринимаемая
наклонным сечением, от поперечной силы, возникающей от
внешней нагрузки AQ= 5836.297 Н
II
1.6.	Расчет рабочей несимметричной арматуры
внецентренно сжатых железобетонных элементов
1.6.1.	Алгоритм машинного счета
При описании логической структуры в основном исполь-
зована система условных обозначений согласно СНиП 2.03.01-84*
/1/ с введением дополнительных обозначений, представленных на
рис. 1.4.
б
Рис. 1.4. Схема усилий в сечении, нормальном к продольной оси внецен-
тренно-сжатого элемента а - согласно СНиП 2.03.01-84*; б - принятая в алго-
ритме
32
Задача при подборе несимметричной арматуры As и As’ из
условия обеспечения прочности является неопределенной и имеет
множество решений, поскольку число неизвестных равно трем As,
As, X, а число уравнений - двум, уравнение (37)/1/ и условие
(36)/1/.
Условие ^X/ho^R ограничивает множество допустимых
решений, но не делает решение единственным.
Все допустимые решения определяют одинаковую и дос-
таточную несущую способность элемента при различном расходе
арматуры. Очевидно, что решение будет единственным, если сре-
ди допустимых найдется то, при котором суммарная площадь
(As+As') минимальна. Это условие реализовано в алгоритме. Если
по расчету армирование получается минимальным, то оно не мо-
жет быть принято менее некоторого значения, определяемого с
одной стороны конструктивно допустимым минимальным числом
и диаметром стержней (As, min.к), а с другой стороны требовани-
ем п.З и табл.38 /1/, где в зависимости от гибкости элемента при-
веден минимальный процент армирования p%min.
Вычисляемая площадь арматуры контролируется величиной
As,min:
As, min=max{(p%min/100)bh0, As, min k.}
Если при расчете значение As или As' окажется меньше, чем
As, min, то заменяется на As, min и это значение учитывается в
дальнейшем расчете.
В соответствии с /17 в расчете учитывается эксцентриситет
©а •
Значение расчетного эксцентриситета еа устанавливается
следующим образом:
-	для элемента статически определяемой системы
ea=M/N+ea;
-	для элемента статически неопределимой системы
ea=max(M/N; еа).
33
Так же определяется эксцентриситет продольной силы N/ от
длительных и постоянных нагрузок, при значении момента М/ от
длительных и постоянных нагрузок.
Влияние прогиба на несущую способность элемента учи-
тываем согласно п.3.24 /1/ в предположении, что усилия N и М
получены из расчета конструкции по недеформированной схеме.
Так как значение условной критической силы Ncr по формуле (58)
/1/, необходимое для вычисления коэффициента увеличения экс-
центриситета т], зависит от количества арматуры в сечении (Js за-
висит от As и As’), которое само подлежит определению.
Задача подбора арматуры проще всего может быть решена
методом итерации.
Анализ показал, что наиболее рационально принять в каче-
стве переменной итерации коэффициент ц. Блок-схема алгоритма
приведена ниже. В блок-схеме буквой е обозначена допустимая
погрешность определения ц. После того, как разность последова-
тельно вычисленных значений т| станет меньше s, расчет прекра-
щается, найденные на последней итерации As и As' принимаются в
качестве окончательных.
1.6.2.	Инструкция к программе на языке BAS С
Наименование (идентификатор) GBKN.
Редакция 2-96.
Язык программирования BASIC.
Программа предназначена для подбора требуемой площади
сечения рабочей несимметричной арматуры во внецентренно сжа-
тых элементах прямоугольного сечения из условия обеспечения
несущей способности согласно /1/.
Ограничения:
1.	Рассчитывается элемент без предварительного нап-
ряжения арматуры.
34
35
2.	Размерности всех величин приняты по системе единиц
СИ СТ СЭВ 1052-78 и включают в себя ньютон /Н/ и сантиметр
/см/.
3.	При больших гибкостях (lo/i>l 10) возможно зацикливание
программы.
Другие размерности не допускаются из-за наличия в нормах
и соответственно в программе эмпирических коэффициентов.
Организация, описание и кодирование исходных данных к
программе GBKN приведены в таблице 1.8.
Таблица 1.8.
Исходные данные к программе GBKN
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту программы	Размерность	Пояснения, ограничения, источник
1	2	3	4
R Rs	RPT	МПа МПа	Расчетное сопротивление бетона осе- вому сжатию / призменная прочность / для предельных состояний первой группы табл. 13, СниП*/1/.	 Расчетное сопротивление арматуры растяжению для предельных состояний первой группы по табл. 22 СниП*/1/.
Rsc	RAS	МПа	Расчетное сопротивление арматуры сжатию для предельных состояний первой группы
Es	EA	МПа	Модуль упругости арматуры табл. 29 СниП*/1/
Eb	EB	МПа	Модуль упругости бетона, табл. J8, СниП*/1/.
b	В	см	Ширина сечения
h		см	Высота сечения »— 	И  	 -—им».>»	,      
36
Продолжение таблицы 1.8.
	2	3	4
3s	A	CM	Расстояние от арматуры, растянутой внешним моментом, до ближайшей грани бетона 1		 				
a's	AS	CM	То же для арматуры, сжатой внешним моментом
u	LO	CM	Расчетная длина элемента, сечение ко- торого рассматривается
УВ2	MB1	*	Коэффициент условия работы бетона по п.2, табл. 15, СниП*/1/.
Ybi	GB1	nua	Произведение тех коэффициентов ус- ловий работы согласно п.п. 3-12, табл. 15 СниП*/1/, которые соответ- ствуют фактическим условиям работы элемента
N	N	H	Расчетное значение продольной ежи- 1 мающей силы при полной расчетной нагрузке
M	M	Нем	Расчетное значение изгибающего мо- мента при полной расчетной нагрузке, М> 0.
N]	NDL		Расчетное значение продольной сжи- мающей от постоянной и длительной нагрузок
Mi	MDL	Нем	Расчетное значение изгибающего мо- мента при постоянной и длительной нагрузках, Ml >0.
₽	BET		Коэффициент в формуле (21) , СниП*/1/.
a	ALFA	МПа	Коэффициент в формуле (26) , СниП*/1/, принимаемый равным для бетона тяжелого - 0,85 , на легких за- полнителях - 0.80.
37
Окончание таблицы 1.8.
1	2	3	4
о	SN	—	Признак статической неопределимо- сти системы, в которую входит рас- считываемый элемент. Если элемент входит в состав статически неопреде- лимой системы, то SN =1, иначе SN =0.
mjn, k	FMIK	CM	Минимально допустимая по конструк- тивным соображениям площадь сече- ния продольной арматуры согласно п.5.16, СНиП*/1/. .
Исходный текст программы GBKN, полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 6.
Результаты счета на ЭВМ контрольного примера приведены
ниже по тексту.
Расчет рабочей несимметричной арматуры внецентренно сжатыхЖБ
элементов * GBKN
ИСХОДНЫЕ ДАННЫЕ
ЛЛАЛААААААЛАААЛЛАЛЛАААЛЛЛАААЛАЛАААЛАЛААЛА
1)Rb(T) = 13.5 МПа
2)Rs= 340 МПа
3)Rsc= 340 МПа
4)Es= 200000 МПа
5)ЕЬ= 29000 МПа
6)в:= 40 см
7)h= 60 см
8)а- 6 см
9)а - 6 см
10)Los 1400 см
11)&Ь2=1
12)$bi= 1
13)№ 1500000 Н
14)М= 4Е+07 Н*см
15)NL= 1500000 Н
16)MU=3E+07 Н*см
17)ВЕТ= 1
18)ALFA= .85
19)SN= 1
20)As min.k® 2.26 кв.см
РЕЗУЛЬТАТЫ СЧЕТА
38
АААААААЛАЛЛЛЛАЛЛЛАЛЛААААААААЛААЛАЛАААЛЛАЛ
Площадь рабочей растянутой арматуры Ash= 31.51102 кв.см
Площадь рабочей сжатой арматуры Asc= 27.98161 кв.см
Относительная высота сжатой зоны бетона KSI= .5555556
Граним, значение относител. высоты сжатой зоны
бетона KSIR== .5812149
Условная критическая сила !Чсч= 3338083 Н
1.6.3. Инструкция к программе на языке PL1
Наименование (идентификатор) GBKN.
Язык программирования - PL1, ЭВМ-"ЕС-1022".
Текст программы может быть без изменения обработан
трансляторами BASIC-FORTRAN, FORTRAN-IV DOC/EC ЭВМ.
Программа предназначена для расчета необходимой площа-
ди сечения продольной несимметричной арматуры в сжатых эле-
ментах прямоугольного сечения из условия обеспечения проч-
ности и устойчивости в соответствии со СНиП 2.03.01-84*/1/.
Таблица 1.9.
Исходные данные к программе на языке PL1
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту про- граммы	Размерность	Пояснения, ограничения, источник
1	2	3	4
Rb	RPT	МПа	Расчетное сопротивление бетона осе- вому сжатию / призменная прочность / для предельных состояний первой группы табл. 13, СНиП*/1/.
	RA	МПа	Расчетное сопротивление арматуры растяжению для предельных состояний первой группы по табл. 22 СНиП*/1/.
Rsc	RAS	МПа	Расчетное сопротивление арматуры сжатию для предельных состояний
39
Продолжение таблицы 1.9.
1	2	3	4
Es	EA	МПа	Модуль упругости арматуры табл. 29 СНиП*/1/
Eb	EB	МПа	Модуль упругости бетона, табл. 18, СНиП*/1/.
b	В	см	Ширина сечения
h	H	см	Высота сечения
as	A	CM	Расстояние от арматуры, растянутой внешним моментом, до ближайшей грани бетона
a's	AS	CM	То же для арматуры, сжатой внешним моментом
	LO	CM	Расчетная длина элемента, сечение ко- торого рассматривается
Yb2	MB1	9^	Коэффициент условия работы бетона по п.2, табл. 15, СНиП*/1/.
Ybi	MBI		Произведение тех коэффициентов ус- ловий работы согласно п.п. 3-12, табл. 15 СНиП*/1/, которые соответ- ствуют фактическим условиям работы элемента
N	N	H	Расчетное значение продольной сжи- мающей силы при полной расчетной нагрузке N > 0.
M	M	H-см	Расчетное значение изгибающего мо- мента при полной расчетной нагрузке, М>0.
N,	NDL		Расчетное значение продольной сжи- мающей от постоянной и длительной нагрузок
Mj	V >  MDL	Нем	Расчетное значение изгибающего мо- мента при постоянной и длительной нагрузках, Ml > 0.
p	BET	ж»	Коэффициент в формуле (21) , СНиП*/1/.
40
Окончание таблицы 1.9.
а	ALFA	МПа	Коэффициент в формуле (26) , СНиП*/1/, принимаемый равным для бетона тяжелого - 0,85 , на легких за- полнителях - 0.80.
ОШ	SN . - 				м	Признак статической неопределимо- сти системы, в которую входит рас- считываемый элемент. Если элемент входит в состав статически неопреде- лимой системы, то SN=1, иначе SN =0.
As,min	FMIK	CM	Минимально допустимая по конструк- тивным соображениям площадь сече- ния продольной арматуры согласно п.5.16, СНиП*/1/.
Результирующие параметры программы приведены в таб-
лице 1.10.
Таблица 1.10.
Результаты машинного счета
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту программы i			Размерность L „ 	 .	 		Пояснения, ограничения, источник
1	2	3	4
As	FAH	см2	Требуемая площадь сечения арматуры, растянутой от воздействия внешнего момента.
A's	FASH		Требуемая площадь сечения арматуры, сжатой от воздействия внешнего мо- мента .
	KSI	СЯ»	Фактическая относительная высота сжатой зоны бетона.
(к	KS1R	MM	Граничное значение относительной высоты сжатой зоны бетона.
 Ncr	NKR		Величина условной критической силы
41
Исходный текст программы GBKN на языке PL1, получен-
ный при трансляции на цифропечатающем устройстве представлен
в приложении 7.
Результат счета контрольного примера на ЭВМ приведен на
с.43.
1.7.	Расчет продольной рабочей арматуры
внецентренно сжатых железобетонных
элементов при симметричном армировании
1.7.1.	Алгоритм машинного счета
При описании логической структуры в основном ис-
пользована система условных обозначений согласно /1/ с вве-
дением дополнительных обозначений, представленных на рис. 1.4.
Прямое решение задачи приводит, как показал предвари-
тельный анализ, к возникновению уравнений третьего порядка.
Принята последовательность подбора площади арматуры
исходя из обеспечения несущей способности сечения и цикличес-
кой корректировки площади арматуры, если условия прочности не
удовлетворяются.
В программах использован в связи с этим шаговый ите-
рационный метод с уточнением решения путем деления шага по-
полам.
На с.44 приведена укрупненная блок-схема программы.
1.7.2.	Инструкция к программе на языке BASIC
Наименование /идентификатор/ GBKS.
Редакция 2-96.
Язык программирования BASIC.
42
ко
Ы
со
43
Блок-схема программы GBKS
------------------—.—.—----
Присвоить значение As^ As, min
AAs—50' As, min
Вычисление AM
As—As+AAs
44
Программа предназначена для вычисления необходимой
площади рабочей симметричной арматуры внецентренно сжатых
элементов прямоугольного сечения из условия обеспечения несу-
щей способности согласно /1/.
Описание, кодирования входных параметров для программы
GBKS приведены в таблице 1.11.
Таблица 1.11.
Исходные данные к программе GBKS
Обозначение , по СНиП 2.03.-01-84*	Обозначение по тексту программы	Размерность	Пояснения, ограничения, источник
т	2	3	4
Rb	RBT	МПа	Расчет сопротивления бетона осевому сжатию для предельных состояний первой группы согласно табл. 13, СНиП*/1/.
Rs		МПа	Расчетное сопротивление арматуры растяжению для предельных состояний первой группы.
Es	ЕА	МПа	Модуль упругости арматуры, табл. 29, СНиП *71/.
Eb	ЕВ	МПа	Модуль упругости бетона, табл. 18, СНиП*/1/.
b	В	см	Ширина сечения.
		см	Высота сечения.
as	А	см	Расстояние от центра сечения ар- матуры у одной из граней до бли- жайшего волокна бетона.
lo	LO	см	Расчетная длина элемента, сечение ко- торого рассматривается
Tb2	МВ1	«ж	Коэффициент условия работы бетона по п.2, табл. 15, СНиП*/1/.
45
Окончание таблицы 1.11.
1	2	3	4
• Уы	MBI	V	Произведение всех коэффициентов ус- ловий работы согласно п.п. 3-12, табл. 15 СНиП*/1/.
N	N	н	Расчетное значение продольной сжи- мающей силы при полной расчетной нагрузке, /N>0/.
Nj	NDL	н	Расчетное значение продольной сжи- мающей от постоянной и дли- тельной нагрузок, /№>0/.
м	М	Нем	Расчетное значение изгибающего мо- мента при полной расчетной нагрузке, /М>0/.
Mi	MDL	Нем	Расчетное значение изгибающего мо- мента при постоянной и длительной нагрузках, ZM1.0, М1<0/.
р	ВЕТ	мм	Коэффициент в формуле (21)/1/.
а	А31		Коэффициент в формуле (26)/1/.
«я»	SN	«В	Признак статической неопределимо- сти системы, в которую входит рассчитываемый элемент. Если эле- мент входит в состав статически неоп- ределимой системы, то SN=1, иначе SN =0.
А • 1	FMIK	см2	Минимально допустимая площадь сечения арматуры у одной из граней сечения.
Результаты контрольного примера приведены в таблице
1.12.
46
Таблица 1.12.
Результаты машинного счета
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту программы	45 О О к о4 2	Пояснения, ограничения, источник
1	2	3	4
 As	FA	2 см	Требуемая по прочности площадь се- чения рабочей арматуры у одной из граней сечения.
		см	Высота сжатой зоны бетона.
Ncr	NKR		Значение условной критической силы.
дм	DM	Нем	Приращение изгибающего момента.
ми	MPR	Нем	Предельный изгибающий момент, вос- принимаемый сечением.
Исходный текст программы GBKS полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 8.
Результаты счета контрольного примера представлены ниже
по тексту.
Расчет рабочей продольной арматуры внецентренно сжатых ЖБ
элементов при симметричном армировании * GBKS *
1)КЬ(т) = 11.7 МПа
2)Rs= 285 МПа
4)Es= 210000 МПа
5)ЕЬ= 24500 МПа
б)в= 50 см
7)h== 80 см
7)а— 4 см
8)Lo= ббб см
9)&Ы= 1
10) &Ы= 1
11)N= 3740000 Н
12)М= 4.08Е+07 Н*см
13)NL= 3440000 Н
14)ML= 3.22Е+07 Н*см
15)ВЕТ= 1
16)ALFA= .85
17)SN= 1
18)As min.k= 4 кв.см
47
РЕЗУЛЬТАТЫ СЧЕТА
Требуемая по прочности площадь сечения рабочей арма-
туры у" одной из граний сечения As— 9.269531 кв.см
Высота сжатой зоны бетона KSI= 63.93163
Условная критическая сила Ксч=
Приращение изгиба
[его момента
2.22549Е+07 Н
АМ= 27363.42 Н*см

Предельный изгибающий момент , воспринимаемый
сечением М= 4.906894Е+07 Н*см
1.7.3.	Инструкция к программе на языке PL1
Наименование (идентификатор) GBKS.
Редакция 2-96.
Язык программирования PL1.
Программа вычисляет необходимую площадь рабочей сим-
метричной арматуры внецентренно сжатых элементов прямоуголь-
ного сечения без предварительного напряжения.
Входными параметрами программы GBKS являются: PRT-
расчетное сопротивление бетона осевому сжатию /призменная
прочность бетона/; RA- расчетное сопротивление арматуры рас-
тяжению; ЕА- модуль упругости арматуры; ЕВ- модуль упругости
бетона; В- ширина сечения рассчитываемого элемента; Н- высота
сечения рассчитываемого элемента; А- расстояние от центра сече-
ния арматуры из одной из граней до ближайшего волокна бетона;
LO- расчетная длина элемента, сечение которого рассматривается;
MBI- коэффициент условия работы бетона, учитывающий дли-
тельность действия нагрузки; MBI- произведение тех коэффициен-
тов условий работы которые соответствуют фактическим услови-
ям работы элемента; N- Расчетное значение продольной сжимаю-
щей силы при полной нагрузке; М- расчетное значение изгибаю-
щего момента при полной расчетной нагрузке; Nl- расчетное зна-
чение продольной сжимающей силы от постоянной и длительной
нагрузок; Ml- расчетное значение изгибающего момента при по-
48
стоянной и длительной нагрузках; ВЕТ- коэффициент принимае-
мый в зависимости от вида бетона; A3I- коэффициент принимае-
мый в зависимости от вида бетона; SN- признак статической неоп-
ределимости системы, в состав которой входит рассчитываемый
элемент; FMIK- минимально допустимая по конструктивным со-
ображениям площадь сечения продольной арматуры.
Выходными параметрами программы GBKS являются:
FA- необходимая площадь арматуры, устанавливаемая у одной из
граней элемента; X- высота сжатой зоны бетона; NKR- условная
критическая сила; DM- приращение изгибающего момента; MPR-
предельный изгибающий момент, воспринимаемый сечением.
Исходный текст программы GBKS на языке PL1, получен-
ный при трансляции на цифропечатающем устройстве представлен
в приложении 9.
На с.50 представлены результаты счета контрольного при-
мера на ЭВМ.
1.8.	Расчет рабочей продольной арматуры
внецентренно сжатых элементов круглого
сечения
1.8.1.	Алгоритм машинного счета
В алгоритме машинного счета принят порядок подбора ра-
бочей арматуры путем задания ее площади, проверки несущей
способности сечения элемента и циклической корректировки пло-
щади сечения арматуры, если условия прочности не удовлет-
воряются в соответствии с СНиП 2.03.01-84*/!/.
Использован шаговый итерационный метод с уточнением
решения путем деления шага пополам, т.е. в основу положен алго-
ритм, описанный выше при определении необходимой площади
рабочей арматуры при симметричном армировании внецентренно
сжатых элементов.
49
8
РАСЧЕТ РАБОЧЕЙ ПРОДОЛЬНОЙ АРМАТУРЫ ВНЕЦЕНТРЕННО СЖАТЫХ ЖЕЛЕЗОБЕТОННЫХ ЭЛЕМЕНТОВ
ПРИ СИММЕТРИЧНОМ АРМИРОВАНИИ.
ИСХОДНЫЕ ДАННЫЕ:
ПЛОЩАДЬ АРМАТУРЫ= 1.09336Е+01
ВЫСОТА СЖАТОЙ 30НЫ= 5.93861Е+01
УСЛОВНАЯ КРИТИЧЕСКАЯ СИЛА= 2.35618Е+06
ПРИРАЩЕНИЕ ИЗГИБАЮЩЕГО МОМЕНТА= 1.71890Е+04
ПРИДЕЛЬНЫЙ ИЗГИБАЮЩИЙ МОМЕНТ, ВОСПРИНИМАЕМЫЙ СЕЧЕНИЕМ= 4.86700Е+06.
50
1.8.2.	Инструкция к программе на языке BASIC
Наименование (идентификатор) GBKK.
Язык программирования BASIC.
Редакция 2-96.
Программа предназначена для определения необходимой
площади рабочей продольной арматуры внецентренно сжатых эле-
ментов круглого сечения без предварительного напряжения ар-
матуры.
Характер, организация, описание и способ кодирования
входных параметров к программе GBKK приведены в таблице
1.13.
Таблица 1.13.
Входные параметры к программе GBKK
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту программы 1 . . 	 		—			 _ 		Размерность .	Пояснения, ограничения, источник
1	2	3	4
М	М	кНм	Значение изгибающего момента при полной расчетной нагрузке, М > 0.
r	N	кН	Значение продольной сжимающей си- лы при полной расчетной нагрузке
Mi	MDL	кНм	Значение момента при расчетных по- стоянных и длительных нагрузках, М]> 0.
Ni	NDL		Значение продольной силы при рас- четных постоянных и длительных на- грузках, N1 > 0.
D	D	мм	Диаметр сечения внецентренно сжа- того элемента.
Окончание таблицы 1.13.
1	2	3	4
г	R	MM	Радиус сечения внецентренно сжатого элемента.
а		MM	Расстояние от центра сечения про- дольной арматуры до ближайшей по- верхности бетона.
1о	LO	MM	Расчетная (приведенная) длина элемен- та.
•W	SN		Признак статической неопределимости системы, в которую входит рассчиты- ваемый элемент. Если элемент входит в состав статически неопределимой системы, то SN=1, иначе SN ~0.
R-ъ	RBT	МПа	Расчет сопротивления бетона сжатию по предельным состояниям первой группы согласно табл. 13, СНиП*/1/.
Yb2	GB2		Коэффициент условия работы бетона согласно табл. 15, СНиП*/1/.
Ты	GBI	«	Произведение всех необходимых ко- эффициентов условий работы согласно табл. 15 СНиП*/1/.
р	BET	***	Коэффициент в формуле (21) , СНиП* /1/ принят по табл. 30 СНиП*/1/
Еь —	_	EB	МПа	Начальный модуль упругости бетона по табл. 18 СНиП*/1/
Es	ES	МПа	Модуль упругости арматуры по табл.29 СНиП*/1/
RS	RS	МПа	Расчетное сопротивление арматуры растяжению по табл. 22 СНиП*/1/.
As, MIN,К	ASM	мм	Минимально допустимая площадь се- чения арматуры согласно табл. 38 СНиП*/1/. Можно задавать ASMK=0, т.к. минимально допустимый процент армирования программой обеспечива- ется автоматически.
52
Выходными параметрами программы GBKK являются:
As=A’s - площадь рабочей арматуры /мм2/;
5 - относительная высота сжатой зоны бетона;
ДМ - приращение изгибающего момента /кН м/;
Ми - предельный изгибающий момент, воспринимаемый се-
чением /кН’м/.
Исходный текст программы GBKK полученный при транс-
ляции на цифропечатающем устройстве представлен в приложе-
нии 10.
Результаты счета контрольного примера приведены ниже.
Определение необходимой площади продольной рабачей армату-
ры внецентренно сжатых ЖБ элементов круглого сечения
ИСХОДНЫЕ ДАННЫЕ
1)М = 140 кНм
2)N = 600 кН
3)М1 = 100 кНм
4)N1 = 400 кН
5)D = 400 мм
6)Н = 200 мм
7)а = 35 мм
8)1о = 4000 мм
9)SN = 0
10)НЬ(т) = 14.5 МПа
11) £Ь2= .9
12)&bi= 1
13)ВЕТ= 1
14)	ЕЪ = 27000 МПа
15)	Ея - 200000 МПа
16)Rs = 365 МПа
17)	As ,ain,r= 0 ммА2
РЕЗУЛЬТАТЫ СЧЕТА
Площадь рабочей продольной арматуры As= 5455.298 кв.мм
Относительная высота сжатой зоны бетона KCIR= .5102533
Условная критическая сила Нсч= 8031.235 кН
Приращение изгибающего момента АМ= .6793828 к Нм
Предельный изгибающий момент , воспринимаемый
сечением Ми== 160.629 кНм
53
1.9.	Проверка несущей способности внецентренно
сжатых железобетонных элементов с
произвольным видом армирования
1.9.1.	Алгоритм машинного счета
В основном использована система условных обозначений
согласно СНиП 2.03.01-84*/!/ с введением дополнительных обоз-
начений представленных на рис. 1.4.
Условие прочности внецентренно сжатых элементов (36)/1/
для расчета удобно преобразовать, перейдя к моментной точке,
расположенной на середине высоты сечения:
N e^Ti^Rb-b-х(0,5Л - 0,5х)+Rs • А$ • (0,5Л - as)+7^с •	• (0,5Л - a's
Здесь ео'т]- эксцентриситет заданной продольной расчетной
силы относительно геометрического центра сечения с учетом слу-
чайного эксцентриситета и влияния прогиба элемента. Правую
часть неравенства обозначим Ми- предельный по прочности изги-
бающий момент, который может выдержать сечение при заданной
продольной силе. Он вычисляется, как видно из формулы, относи-
тельно оси, проходящей через середину высоты сечения нормаль-
но к плоскости изгиба.
Мерой несущей способности является избыток момента, вы-
держиваемого сечением, над моментом продольной силы:
ДМ = Мь, - N • е0 • 7/
Если ДМ>0, несущая способность обеспечена, если ДМ<0-
недостаточна.
Недостаточность несущей способности может выявиться
еще в двух случаях:
-	если высота сжатой зоны, вычисляемая в процессе оп-
ределения Ми? окажется больше высоты сечения h;
54
-	если заданная расчетная сила N окажется больше или равна
(а также меньше, но близка) условной критической силе Ncr, вы-
числяемой в процессе определения rj.
Предельный момент Ми вычисляется из условия равновесия
в предельном состоянии. Эта задача имеет единственное решение,
но напряжения в арматуре S и S’ зависят от высоты сжатой зоны,
которая заранее не известна; в алгоритме предусмотрена последо-
вательная проверка всех возможных случаев расположения ней-
тральной оси. В случаях, когда 2,—X/1io>^r, используется зависи-
мость QS от X по формуле (39)/3/.
Далее приводится укрупненная блок-схема алгоритма.
Укрупненная блок-схема алгоритма:

о©
X>h0
55
о©
Определение 8s, 8Sc, X
в предположении, что X<as %R
Определение as, osc, X
в предположении, что as %R<X<as
Определение as, asc, X
в предположении, что h0 ^R<X<ho
M=R b X 0,5(h-X)+8s As(0,5 h-as)-8sc A's(h-as)
Ф 7
Вычисление r)
.1 •"
M=MU-N*eo*r|
56
На ней не показаны некоторые детали расчета (£,R, ео и др.),
описанные выше, либо не существенные для понимания общего
хода действия.
Напряжение в арматуре S/os/ и S7osc/ вводятся в расчет со
знаком: растяжение - знак
Расшифровка некоторых блоков схемы
Блок 1. Определение os, osc и X в предположении, что
ho<X<h. В этом случае все сечение сжато, поэтому
crs=osc~-Rsc, из уравнения равновесия следует:
X=(N+as As+asc As’)/(Rb Ь).	(*)
Блок 2. Определение os, oSc и X в предположении, что
as’<X<ho^R. Это случай пластической формы разрушения (случай
1): os=Rsc, osc~-Rsc, X- по формуле (*).
Блок 3. определение os, osc и X в предположении, что
X<%Ras’. Это тоже ’’случай Г', но с малой высотой сжатой зоны,
Когда вся арматура растянута: os~Osc=Rs, Х-по формуле (*).
Блок 4. Определение os, osc и X в предположении, что
%Ras’<X<as’. Случай малой сжатой зоны, когда o$=Rsc, но Osc
зависит от X.
Решая совместно уравнение равновесия и уравнение (39)/1/,
записанное для Osc с заменой ho на а§’, получим:
GSC=(l-X/as')2Rs/(l -ад-Rs.
Блок 5. Определение os, oSc и X в предположении, что
^Rho<X<ho.
В этом случае арматура S’ сжата: Osc—Rsc, значение
Os зависит от X. Из совместного решения уравнения
равновесия /39//1/ для Os и ho получим:
[N-R,*(Ai + A's'}+A's*2*R,/{\-^
[Rb*b + (A'sla'sy2*Rsl{l-^)]	’
asc=(l-X/as')-2Rs/(HR)-Rs.
Блок 7. Вычисление Ncr- условной критической силы
производится согласно /1/ с учетом начального случайного экс-
центриситета и длительного действия нагрузки.
1.9.2.	Инструкция к программе на языке BASIC
Наименование (идентификатор) GBK.
Язык программирования BASIC.
Редакция 2-96.
Программа предназначена для проверки несущей способ-
ности внецентренно сжатых элементов при произвольном
(симметричном либо не симметричном) армировании.
Описание, кодирование и обозначение входных параметров
к программе GBK приведены в таблице 1.14.
Таблица 1.14.
58
Продолжение таблицы 1.14,
1	2	3	4		
Rsc	RAS	МПа	Расчетное сопротивление арматуры сжатию.		
Es	EA	МПа	Модуль упругости арматуры табл. 29 СНиП*/1/		
b	В	CM	Ши?	эина сечения	
h	H	CM	Высота сечения		
3s	A	CM	Расстояние от арматуры, растянутой внешним моментом, до ближайшей грани бетона		
aS	AS	CM	То же для арматуры, сжатой внешним моментом		
УЬ2	MB1		Коэ по т	1	1	щиент условия работы бетона .15, СНиП *71/.
					
				А Г абл	
Ybi	MBI	•w	Произведение всех необходимых коэффициентов условий работы кро- ме уь2 по табл. 15 СНиП*/1/.		
N	N	H	Расчетное значение продольной сжи- мающей силы при полной расчетной нагрузке N>0.		
M	M	Н*см	Расчетное значение изгибающего мо- мента при полной расчетной нагрузке, М .0.		
Ni	NDL		Расчетное значение продольной сжи- мающей от постоянной и длительной нагрузок Nl>0		
Mi	MDL	Н*см	Расчетное значение изгибающего мо- мента при постоянной и длительной нагрузках, Ml. 0.		
p	BET	w	Коэффициент в формуле (21), СНиП*/1/.		
a	A31	МПа	Коэффициент в формуле (26), СНиП*/1/.		
As	FA	см2	Площадь сечения арматуры, сжатой воздействием изгибающего момента.		
59
Окончание таблицы 1.14.
f J.		3	4
A's  				 			FAS	—	Площадь сечения арматуры, растя- нутой воздействием изгибающего момента.
	SN	. -	—	Признак	статической неопределимости системы, в которую входит рассчитываемый элемент. Если элемент входит в состав статически неопределимой системы, то SN =1, иначе SN =0.	
Результатом работы программы GBK является DM (ДМ) -
избыток предельного момента, выдерживаемого внецентренно
сжатым элементом при заданной продольной силе, над
заданным расчетным моментом с учетом возрастания последнего
из-за случайного эксцентриситета и прогиба элемента.
Исходный текст программы GBK полученный при трансля-
ции на цифропечатающем устройстве представлен в приложении
11.
Результаты счета контрольного примера на ЭВМ приведены
ниже.
Предназначена для проверки несущей способности
внецентренно сжатых желзобетонных элементов с произвольным
видом армирования * GBK *
«им» Hfcrin	IHW иг» iw^rniwi миг»™——will ши r I и i nn m I HI I I rm «iw итп ! ... -□! LiirrmrriHir- tkt  JU niwi nil   ШЩГ rror ihhw ITU-п rnitti II J Iinuuin. .ТДЦ-.ИЧ Him Д1 uiw wuio n>4i n»*i mr
-xwxirw»'	t	min . —г ж	mi	—।—w..r.r ri»'twr —'^ГТ* Гт ггг ч-г"1—•’7ЛГ) гТТГт тип-пту TITTTli  mi" --••\i_~ .~nini hi *-ii <—»
Исходные данные

* 17.3
* 375
* 375
* 200000
* 29600
* 40
* 11.GB2
* 12.GBI
* 13. N
* 14.М
* 15.NDL
* 16.MDL
* .9
* 800000
* 1.2Е+07
* 650000
* 1.1Е+07
60
*	7.	Н	*	50	*	17.BET	*	1
*	8.	А	*	4	*	18.ALFA	*	.85
*	9.	ASS	*	4	*	19.ASH	*	7.6
*	10.L0	*	1000	*	20.ASC	*	4.02
Результаты счета
Высота сжатой зоны бетона
Граничное значение относительной высоты
сжатой зоны бетона
Предельный изгибающей момент, воспринимаемый
сечением
Н*см
Отклонение величины изгибающего момента
воспринимаемого сечением,от момента,
возникал
ГМ
(его при внешней нагрузке
Условно-критическая сила
15.0008 см
.5498977
2.549975Е+07
4336489 Н*см
2162294 И
1.9.3. Инструкция к программе на языке PL1
Наименование (идентификатор)- GBK.
Язык программирования PL 1.
Текст программы может быть без изменения обработан
трансляторами ДОС-ЕС-ЭВМ.
Программа предназначена для проверки несущей способ-
ности сжатых железобетонных элементов прямоугольного сечения
от действия продольной силы, изгибающего момента с учетом
случайного эксцентриситета, длительного действия части нагрузки
и влияния прогиба на несущая способность.
Ограничения:
1.	Рассчитывается элемент без предварительного напря-
жения арматуры.
2.	Размерности всех величин те же, что и в /1/, и включают в
себя Н (ньютон) и см (сантиметр), другие размерности не
61
допускаются из-за наличия в нормах и соответственно в
программе размерных эмпирических коэффициентов.
Входными параметрами программы GBK являются: RPT-
расчетное сопротивление бетона осевому сжатию (призменная
прочность бетона); RA- расчетное сопротивление арматуры
растяжению; RAS- расчетное сопротивление арматуры сжатию;
ЕА-модуль упругости арматуры; ЕВ- модуль упругости бетона; В-
ширина сечения рассчитываемого элемента; Н- высота сечения
рассчитываемого элемента; А- расстояние от арматуры,
растянутой внешним моментом, до ближайшей грани сечения; AS-
расстояние от арматуры, сжатой внешним моментом, до
ближайшей грани сечения; LO-расчетная длина элемента, сечение
которого рассматривается; МВ1- коэффициент условия работы
бетона, учитывающий длительность действия нагрузки; MBI-
произведение тех коэффициентов условий работы которые
соответствуют фактическим условиям работы элемента; N-
расчетное значение продольной сжимающей силы при полной
нагрузке; М-расчетное значение изгибающего момента при полной
расчетной нагрузке; NL- расчетное значение продольной
сжимающей силы от постоянной и длительной нагрузок; MDL-
расчетное значение изгибающего момента при постоянной и
длительной нагрузках; ВЕТ- коэффициент принимаемый в
зависимости от вида бетона; А31- коэффициент принимаемый в
зависимости от вида бетона; SN- признак статической неопреде-
лимости системы, в состав которой входит рассчитываемый эле-
мент; FA- площадь сечения арматуры, растянутой воздействием
изгибающего момента; FAS-площадь сечения арматуры, сжатой
воздействием изгибающего момента.
Выходными параметрами программы GBK являются:
KSIR-граничное значение относительной высоты сжатой
зоны бетона; MPR- предельный изгибающий момент,
воспринимаемый сечением; DM- отклонение величины
62

изгибающего момента, воспринимаемый сечением, от момента,
возникающего при внешней нагрузке; NKR-условная критическая
сила.
Исходный текст программы GBK на языке PL1 полученный
при трансляции на цифропечатающем устройстве представлен в
приложении 12.
Результаты счета контрольного примера представлены на
с.64.
J
I
i
I
I
I
5
I
S
I
5
!
к cn ч? о P сь ю q н о о
Ы CM P гЧ й U)
6<
л
к
>>
XT)
и
ГРАНИЧНОЕ ЗНАЧЕНИЕ ОТНОСИТЕЛЬНОЙ ВЫСОТЫ С
ПРЕДЕЛЬНЫЙ ИЗГИБАЮЩИЙ МОМЕНТ, ВОСПРИНИМАВ
ОТКЛОНЕНИЕ ВЕЛИЧИНЫ ИЗГИБАЮЩЕГГО МОМЕНТ,В
ОТ МОМЕНТА, ВОЗНИКАЮЩЕГО ПРИ ВНЕШНЕЙ НАТР
УСЛОВНАЯ КРИТИЧЕСКАЯ СИЛА= 2.15824Е+06
64
Глава 2
РАСЧЕТ ЭЛЕМЕНТОВ ЖЕЛЕЗОБЕТОННЫХ
КОНСТРУКЦИЙ ПО ОБРАЗОВАНИЮ ТРЕЩИН И
ДЕФОРМАЦИЯМ
-
2.1.	Алгоритм машинного счета
В программе полностью реализован алгоритм, приведенный
в учебном пособии /2/.
2.2.	Инструкция к программе на языке BASIC
Наименование (идентификатор) GBK6.
Редакция 2-96.
Язык программирования BASIC.
Программа предназначена для расчета по образованию
трещин как в стадии изготовления, так и в стадии эксплуатации
конструкций, (рис. 2.1., 2.2) а также для расчета по деформациям
железобетонных элементов предварительно напряженных либо без
предварительного напряжения прямоугольного, таврового и
двутаврового сечений или приводимых к одной из этих форм.
Рис. 2.1. Усилия и напряжения в нормальном сечении при расчете по
образованию трещин в стадии изготовления предварительно напряженного
элемента 1 - центр тяжести приведенного сечения; 2 - нижняя ядровая точка
R-bt.ser
65
Рис. 2.2. Напряженное состояние сечения непосредственно перед появлением
трещин
Описание, кодирование и ограничения входных параметров
к программе GBK6 приведены в таблице 2.1.
Таблица 2.1.
Входные параметры к программе GBK6
Обозначение по СНиП 2.03.-01-84*	Обозначение по тексту программы	Размерность	Пояснения, ограничения, источник
1	2	3	4
Es	ES	МПа	Модуль упругости арматуры табл.29 СНиП*/]/
Eb	ЕВ	МПа	Модуль упругости бетона, табл. 18, СНиП*/1/.
b	В	см	Ширина прямоугольного сечения или ребра таврового (двутаврового) сечения.
b'f	BFS	см	Ширина полки таврового (двутавро- вого) сечения, находящейся в сжатой зоне.
66
Продолжение таблицы 2.1.
	2	3	4
h'f	HFS	CM	Высота сжатой полки таврового (двутаврового) сечения.
hf	HF	CM	Высота полки таврового сечения, находящейся в растянутой зоне.
a's	AASS	CM	Расстояние от равнодействующей усилий в сжатой арматуре S’ до ближайшей грани сечения.
ho	HO	CM	Рабочая (полезная) высота сечения-
P02	PO2	H	Усилие предварительного обжатия с учетом полных потерь
S()P2	EOP2	CM	Эксцентриситет усилия Р02 относи- тельно центра тяжести приведенного сечения
Pol	PO1	H	Усилие предварительного обжатия бетона с учетом потерь преднапря- жения первой группы
CoPl	EOP1 				Cm	Эксцентриситет усилия Р01 относи- тельно центра тяжести приведенного сечения
Rb. ser	RBS	МПа	Расчет сопротивления бетона осевому сжатию для предельных состояний второй группы согласно табл. 12, СНиП*/1/.
Rbp, ser	RBSP	МПа	Прочность бетона на момент отпуска предварительного напряжения, назначаемая согласно п.2.6,/1/.
67
Продолжение таблицы 2.1.
1	2	3	4
• Rbtp, ser	So	МПа — . 		Расчетное сопротивление бетона осевому растяжению для предельных состояний второй группы, соот- ветствующее отпускной прочности бетона, табл. 12, СНиП*/1/.
Rbt ser	RBTS	МПа	Расчетное сопротивление бетона осевому растяжению для предельных состояний второй группы, согласно табл. 12, СНиП*/1/.
Asp	ASP	см2	Площадь сечения напрягаемой арма- туры S. 	
As	AS	см2	Площадь сечения ненапрягаемой ар- матуры S.
A's	ASS	см2	Площадь сечения ненапрягаемой ар- матуры S’, расположенной в сжатой зоне бетона.
	SB	МПа	Величина напряжения в бетоне, принимаемая согласно п.4.24 /1/.
& в	SBS	МПа	Величина напряжения на уровне верхнего крайнего волокна бетона согласно п.4.24. СНиП*/1/.
Y	GAM	МПа	Коэффициент , принимаемый по табл.4. СНиП*/1/.
Md	MSM	Нем	Значение изгибающего момента от собственного веса конструкции.
M	M	Нем	Значение изгибающего момента от полной нормативной нагрузки, М>0.
	MSH	Нем	Значение изгибающего момента от нормативных кратковременных на- грузок, Msh>0.
ML	ML	Нем	Значение изгибающего момента от нормативных постоянных и длитель- ных нагрузок, М>0.
		*	PSIB	«а	Коэффициент в формуле (160), СНиП*/1/.
68
Окончание таблицы 2.1.
1	2	3			4
4>LS	FILS	OM	Коэффициент, принимаемый по табл.36, СНиП*/!/.		
<Plsl	FILSL	*>	Коэс ДЛИ! табл	11 г л 'ел .3	>ициент, учитывающий влияние [ьности действия нагрузки, 6, СНиП*/1/.
Фв1	FBI		Коэ< СНи		>ициент в формуле (156), */!/.
ФВ2Ь	FB2L	XV	Коэс табл	11 Г А .3	,ициент, принимаемый по 4, СНиП*/!/.
vsh	NSH	•B*	Коэс табл . - . . 		11 г г .3.	(ициент, принимаемый по 5, СНиП*/1/.
Vl	NL		Коэс упрз сжаз нагр	к Д' тс ГО1 уз	>ициент,	характеризующий )пластическое состояние бетона d зоны при длительном действии ки, табл.35, /1/.
р	S	ЙМ»	Коэффициент, определяемый по табл.4.17. /3/.		
1о	LO	CM	Величина расчетного пролета кон- струкции		
fu	FU	CM	Значение предельного допустимого прогиба конструкции			
Кроме того, первоначальными исходными данными являют-
ся:
NUMK - количество рассматриваемых вариантов;
NUM - номер рассчитываемого варианта.
Исходные данные записываются в форме Е17.5
Результаты счета:
Площадь приведенного сечения - APED (см2).
Статический момент приведенного сечения - SPED (см3).
Момент инерции приведенного сечения - IPED (см4).
Момент сопротивления сечения для крайнего растянутого
волокна WPLB - (см3).
69
Момент образования нормальных трещин - MCRC (Н см).
Теоретическое значение прогиба - F (см).
Исходный текст программы GBK6 полученный при транс-
ляции на цифропечатающем устройстве представлен в
приложении 13.
Результаты счета контрольного примера приведены ниже.
Расчет изгибаемых ЖБ элементов по образованию трещин и по
деформациям * GBK6 *
ИСХОДНЫЕ ДАННЫЕ
АЛАЛЛЛААЛАААЛААЛЛЛЛЛАЛАААЛЛАААЛЛАЛЛАЛАЛАА
1 )Ез = 190000 МПа
2	)Ев = 27000 МПа
3	)в = 15.2 см
4	)B’f = 136 см
5	)в£ =0 см
6	)h’f = 5 см
7	)hf = 0 см
8	)а’ = 2.5 см
9	)ho = 27 см
10)Ро2 = 135560 Н
11)еор2 = 17.94 см
12)Pol = 170190 Н
13)еор1 = 18 см
14)Rb,ser = 18.5 МПа
15)Rbp,ser = 15 МПа
16)Rbtp,ser = 1.4 МПа
17)Rbt,ser =1.6 МПа
18) Asp =4.02 смА2
19)As =2.26 смА 2
20)As' = 2.26 смА2
21)@Ь = 70 МПа
22)0Ь’ - 0 МПа
23)& = 1.75
24)Ист = 1560000 Н*м
25)М = 5000000 Н*м
26)Msh = 900000 Н*м
27)Ml = 4100000 Н*м
28)#Ь = .9
29)#ls = 1.1
30)#lsl = .8
31) #Ы = .85
32)#Ь21 = 3
33)VSh = .45
34) VI = .1
35)S = .10204
36)1о = 590 см
37)fv = 2.5 см
38)h = 30 см
РЕЗУЛЬТАТЫ
СЧЕТА
В стадии изготовления не образуются трещины от
усилия предобжатия бетона
В стадии эксплуатации образуются нормальные трещины
Площадь приведенного сечения Axed = 1120.096 смА2
Статический момент привед. сечения Sred = 23450 смА3
Момент инерции привед. сечения Jred = 103891.2 смА4
Момент сопротивления :
70
-для крайнего растянутого волокна бетона Ир1в = 8684.188
смА3
-для крайнего сжатого волокна бетона Ир1т = 20057.76 смА3
Момент образования нормал. трещин в бетоне Mere ~ 4421992
Н*см
Теоретическое значение прогиба f = .8064383 см
71
Приложение L
Текст рабочей программы GBK 1
10DIMA(33)
11 ТТ5 = 0: ZZ8 = 0: YY6 = 0
12 ZZ8 = 0: YY6 = 0
100 PRINT "Определение потерь предварительного напряжения в арматуре"
110 PRINT "****♦♦*♦*****♦*♦♦******♦♦***♦**♦♦*♦*******♦*♦♦***♦♦♦*♦♦**и
120 PRINT " 1) ММН ММН=1 при механическом способе натяжения"
130 PRINT "	ММН=0 при электротермическом способе натяжения"
135 IF ZZ8 = 8 GOTO 720
140 PRINT " 2) С	ОI для стержневой арматуры "
150 PRINT "	С=0 для проволочной арматуры"
155 IF ZZ8 = 8 GOTO 720
160 PRINT " 3) НВ	НВ=1 при натяжении на бетон"
170 PRINT "	НВ=0 при натяжении на упоры"
175 IF ZZ8 = 8 GOTO 720
180 PRINT " 4) ТО 1'0=1 для бетона, подвергнутого тепловой обработке"
190 PRINT "	ТО=0 при естественном твердении"
195 IF ZZ8 = 8 GOTO 720
200 PRINT " 5) LB LB=1 для легкого бетона"
210 PRINT "	LB=0 для тяжелого бетона"
215 IF ZZ8 = 8 GOTO 720
220 PRINT " 6) n Число швов конструкции и оснастк и по длине натягиваемой"
230 PRINT "арматуры при натяжении на бетон, п.11 таб.5 СНиП 2.03.01-84"
235 IF ZZ8 = 8 GOTO 720
240 PRINT " 7) FS Форма сечения ЖБ элемента или конструкции. Для круг-"
250 PRINT "лого сечения FS=1, иначе FS=O"
255 IF ZZ8 = 8 GOTO 720
260 PRINT " 8) L /мм/ Длина натягиваемого стержня "
270 PRINT "(расстояние между наружными гранями упоров)."
275 IF ZZ8 = 8 GOTO 720
280 PRINT " 9)Rs,ser /МПа' Расчетное сопротивление арматуры растяжению для"
290 PRINT "предельных состояний 2-ой гр. таб. 19,20 СНиП 2.03.01-84"
295 IF ZZ8 = 8 GOTO 720
300 PRINT "10) At /С/ Разность между температурой нагреваемой арматуры и"
310 PRINT "неподвижных упоров (вне зоны нагрева),воспринимающих"
320 PRINT "усилие натяжения, At <= 65 С"
325 IF ZZ8 = 8 GOTO 720
329 INPUT "1-продолжить"; Т55
330 PRINT "11) АЫ /мм/ Обжатие шайб или прокладок, расположенных между "
340 PRINT "анкерами и бетоном эле-та при натяж. арм-ры на бетон,"
341 PRINT " п.З таб.5 СНиП 2.03.01-84"
345 IF ZZ8 = 8 GOTO 720
350 PRINT "12) AL2 /мм/ Деформация анкеров стаканного типа, анкерных гаек и"
360 PRINT "захватов при натяжении на бетон, пЗ, таб.5 СНиП 2.03.01-84"
365 IF ZZ8 = 8 GOTO 720
370 PRINT ”13) AL /мм/ Обжатие спресованных шайб, смятие высаженных голо-"
380 PRINT " вок при натяжении арматуры на упоры, п.З , таб.5 СНиП2.03.01-84"
72
Продолжение приложения 1.
385 IF ZZ8 = 8 GOTO 720
390 PRINT ”14) w K-ht таб.6 СНиП 2.03.01-84"
395 IF ZZ8 = 8 GOTO 720
400 PRINT " 15) x /м/ Длина участка от натяжного устройства до расчетного"
410 PRINT "сечения при натяж. арматуры на бетон, п.4, таб.5 СНиП 2.03.01-84"
415 IF ZZ8 = 8 GOTO 720
420 PRINT "16) & К-нт таб.6 СНиП 2.03.01-84"
425 IF ZZ8 = 8 GOTO 720
430 PRINT "17) ТЕТА /рад/ Суммарный угол поворота оси арматуры при "
440 PRINT " определении потерь от трения арматуры о стенки каналов или "
450 PRINT " поверхность бетона"
455 IF ZZ8 = 8 GOTO 720
460 PRINT " 18) Asp /кв.см/ Площадь сечения напрягаемой арматуры S "
465 IF ZZ8 - 8 GOTO 720
470 PRINT "19) A'sp /кв.см/ Площадь сечения напрягаемой арматуры S'"
475 IF ZZ8 = 8 GOTO 720
480 PRINT "20) Ared /кв.см/ Площадь приведенного сечения элемента”
485 IF ZZ8 = 8 GOTO 720
490 PRINT "21) Jred /смЛ4/ Момент инерции приведенного сечения элемента "
500 PRINT " относительно его центра тяжести"
505 IF ZZ8 = 8 GOTO 720
510 PRINT "22) Ysp /см/ Расстояние от линии центра тяжести приведенного ''
520 PRINT " сечения до равнодействующей усилий в напрягаемой арматуре S"
525 IF ZZ8 = 8 GOTO 720
529 INPUT "1-продолжить"; L89
530 PRINT ”23) Y’sp /см/ Расстояние от линии центра тяжести приведенного "
540 PRINT " сечения до равнодействующей усилий в напрягаемой арматуре S’"
545 IF ZZ8 = 8 GOTO 720
550 PRINT ”24) Ys /см/ Расстояние от линии центра тяжести приведенного "
560 PRINT " сечения до равнодействующей усилий в ненапрягаемой арматуре S"
565 IF ZZ8 = 8 GOTO 720
570 PRINT "25) Y's /см/ Расстояние от линии центра тяжести приведенного"
580 PRINT " сечения до равнодействующей усилий в ненапрягаемой арматуре S'"
585 IF ZZ8 = 8 GOTO 720
590 PRINT ”26) Md /Нем/ Расчетное значение изгибающего момента от "
600 PRINT " собственнного веса элемента"
605 IF ZZ8 = 8 GOTO 720
610 PRINT"27)Rbp /МПа/ Передаточная прочность бетона, п.2.6СНиП 2.03.01-84"
615 IF ZZ8 = 8 GOTO 720
620 PRINT "28) В Класс бетона по прочности на сжатие"
625 IF ZZ8 = 8 GOTO 720
630 PRINT "29) ALc /мм/ Обжатие стыка при натяжении арматуры на бетон,"
640 PRINT "п.11, таб.5 СНиП 2.03.01-84"
645 IF ZZ8 = 8 GOTO 720
650 PRINT "30) Es /МПа/ Модуль упругости арматуры таб.29 СНиП 2.03.01-84"
655 IF ZZ8 = 8 GOTO 720
660 PRINT "31) As /кв.см/ Площадь сечения ненапрягаемой арматуры S"
665 IF ZZ8 = 8 GOTO 720
73
Продолжение приложения 1.
670 PRINT "32) A's /кв.см/ Площадь сечения ненапрягаемой арматуры S'"
675 IF ZZ8 = 8 GOTO 720
676 PRINT "33)dext /см/ Наружный диаметр конструкции при натяжении "
677 PRINT " арматуры на бетон, dext<=3m"
678 IF ZZ8 = 8 GOTO 720
682 INPUT" 1 -Продолжить,О-Вернуться в начало списка"; R56: IF R56=0 GOTO 11
683 ZZ8 = 8: INPUT "Введите фамилию"; А$: INPUT "группу"; В$:
PRINT" ВВОД ДАННЫХ": PRINT"
684 FOR J - 1 ТО 33
685 IF J = 1 GOTO 120
686 IF J = 2 GOTO 140
687 IF 1 = 3 GOTO 160
688 IFJ = 4GOTO 180
689 IF J = 5 GOTO 200
690 IF J = 6 GOTO 220
693 IF J = 7 GOTO 240
694 IF J = 8 GOTO 260
695 IF J = 9 GOTO 280
696 IF J = 10 GOTO 300
697 IF J = 11 GOTO 330
698 IF J = 12 GOTO 350
699 IF J = 13 GOTO 370
700 IF J = 14 GOTO 390
701 IF J = 15 GOTO 400
702 IF J = 16 GOTO 420
703 IF J = 17 GOTO 430
704 IF J = 18 GOTO 460
705 IF J = 19 GOTO 470
706 IF J = 20 GOTO 480
707 IF J = 21 GOTO 490
708 IF J = 22 GOTO 510
709 IF J = 23 GOTO 530
710 IF J = 24 GOTO 550
711 IF J = 25 GOTO 570
712 IF J = 26 GOTO 590
713 IF J = 27 GOTO 610
714 IF J = 28 GOTO 620
715 IF J = 29 GOTO 630
716 IF J = 30 GOTO 650
717 IF J = 31 GOTO 660
718 IF J = 32 GOTO 670
719 IF J = 33 GOTO 676
720 INPUT A(J)
730 IF YY6 = 6 GOTO 755
732 NEXT J
740 GOTO 755
741 INPUT "Будем изменять фамилию (1-Да, 2-Нет)"; ККЗ
742 IF ККЗ = 2 GOTO 744
74
продолжение приложения 1.
743 INPUT "Введите фамилию"; А$
744 INPUT "Будем изменять группу (1-Да, 2-Нет)"; КК4
745 IF КК4 = 2 GOTO 755
746 INPUT "Введите группу"; В$
755 PRINT "___________________________________________________________
756PRINT" "
758 PRINT "ЖБК1 "; А$;" "; В$
760 PRINT "1)ММН ="; A(l); ТАВ(120); "18)Asp ="; А(18); "кв.см"
770 PRINT "2)С ="; А(2); ТАВ(120); "19)A'sp="; А( 19); "кв.см"
780 PRINT "3)НВ ="; А(3); ТАВ(120); "20)Ared="; А(20); "кв.см"
790 PRINT "4)ТО ="; А(4); ТАВ(120); "21)Jred="; А(21); "смЛ4"
800 PRINT "5)LB ="; А(5); ТАВ(120); "22)Ysp ="; А(22); "см"
810 PRINT "6)п ="; А(6); ТАВ(120); "23)Y'sp="; А(23); "см"
820 PRINT "7)FS ="; А(7); ТАВ(120); "24)Ys -"; А(24); "см"
830 PRINT "8)L ="; А(8); "мм”; ТАВ(120); "25)Y's ="; А(25); "см"
840 PRINT "9)Rs,ser="; А(9); "МПа"; ТАВ(120); "26)Md ="; А(26); "Н*см"
850 PRINT ”10)At ="; А(10); "гр.С"; ТАВ(120); "27)Rbp =";А(27); "МПа"
890 PRINT "11)ЛЫ ="; А( 11); "мм"; ТАВ(120); "28)В ="; А(28)
900 PRINT "12rL2 ="; А(12); "мм"; ТАВ(120); ”29)лЬс =”; А(29); "мм"
910 PRINT "13)ЛЬ ="; А(13); "мм"; ТАВ(120); "30)Es ="; А(30); "МПа"
920 PRINT "14)w ="; А(14); ТАВ(120); "31)As ="; А(31); "кв.см"
930 PRINT "15)х ="; А(15); "М”; ТАВ(120); "32)A‘s ="; А(32); "кв.см"
940 PRINT "16)& =”; А(16); ТАВ(120); ”33)dext="; А(33); "см"
950 PRINT "17)ТЕТА="; А(17); "рад"
951 PRINT "'
952 IF ТТ5 - 0 GOTO 962
953 PRINT " 1-Продолжить счет этого варианта, изменив некоторые входные
параметры"
955 PRINT "2-Счет программы заново"
956 INPUT "3-Выход из программы"; МА8
957 ТТ5 = 0
958 IF МА8 = 1 GOTO 741
959 IF МА8 = 2 GOTO 11
960 IF MA8 = 3 THEN STOP
962 MMH = A(l): С = A(2): HB = A(3): TO = A(4): LB = A(5): N = A(6):
FS = A(7): L = A(8): RSS = A(9)
963 DT = A(10): DL1 = A(11): DL2 = A(12): DL = A( 13): W = A(14): X = A(15):
D = A(16): TETA = A(17)
964 ASP = A(18): ASSP = A(19): ARED = A(20): JRED = A(21): YSP = A(22):
YSSP = A(23): YS = A(24)
965 YSS=A(25):MCM=A(26):RBP=A(27):B=A(28):DLC=A(29): ES=A(30):
AS=A(31):ASS=A(32):DEXT=A(33)
968 INPUT "Хотите что нибудь исправить (1-Да,2-Нет)"; YZ
970 IF YZ = 2 GOTO 2000
980 INPUT "Введите номер изменяемой переменной"; J
990 YY6 = 6
1000 GOTO 685
2000 IF MMH < 1 GOTO 2080
75
Продолжение приложения 1.
2010 SSP = RSS/1.05
2020 IF С о 1 GOTO 2050
2030 SI = .1 ♦ SSP-20
2040 GOTO 2160
2050 С = 0
2060 S1 = (.22 * (SSP / RSS) - .1) * SSP
2070 GOTO 2160
2080 MMH = 0
2090 Р = 30 + (360 / L) * 10 л 3
2100 SSP = RSS - Р
2110 IF Со 1 GOTO 2140
2120 SI = .03 * SSP
2130 GOTO 2160
2140 С = 0
2150 SI = .05 * SSP
2160 IF SI <= 1 THEN SI =0
2170 IF В < 45 GOTO 2200
2180S2=l*DT
2190 GOTO 2210
2200 S2= 1.25 * DT
2210 IF НВ о 1 GOTO 2300
2220 S3 = ((DL1 + DL2) / L) * ES
2230 S4 = SSP * (1 -1 / EXP(W ♦ X + D ♦ TETA))
2240 SI =S2: SI =0: S2 = S1: S5 = S2: S6 = S5
2290 GOTO 2660
2300 HB = 0
2310S3 = ES *DL/L
2320 IF MMH = 0 THEN S3 = 0
2330 S4 = SSP ♦ (1 - 1 / EXP(D * TETA))
2340 IF MMH <= 1 GOTO 2370
2350 S5 = 3O
2360 GOTO 2380
2370 S5 = 0
2380 SLOS = SI + S2 + S3 + S4 + S5
2390 SSP1 = SSP - SLOS
2400 P = SSP1 * (ASP + ASSP) * 100
2410 EOP = ((SSP1 * ASP * YSP - SSP 1 * ASSP ♦ YSSP) * 100)/ P
2420 SBP = (PIARED + P * EOP * YSP / JRED - MCM * YSP IJRED) 1100
2430 SSBP = (P / ARED - P * EOP ♦ YSSP / JRED + MCM ♦ YSSP/ JRED) / 100
2440 IF ASSP = 0 THEN SSBP = 0
2450 ALF = .25 + .025 * RBP
2460 IF ALF > .8 THEN ALF = .8
2470 IF SBP / RBP > ALF GOTO 2500
2480 S6 = 40 * SBP / RBP
2490 GOTO 2580
2500 BETA = 5.25 - . 185 * RBP
2510 IF BETA > 2.5 GOTO 2530
2520 IF BETA <=1.1 GOTO 2550
76
Прооолжение приложения 1.
2521 IF BETA >1.1 GOTO 2570
2530 BETA = 2.5
2540 GOTO 2570
2550 BETA= 1.1
2560 GOTO 2570
2570 S6 = 40 * ALF + 85 * BETA * (SBP / RBP - ALF)
2580 IF SSBP / RBP > ALF GOTO 2610
2590 SS6 = 40 * SSBP / RBP
2600 GOTO 2620
2610 SS6 = 40 * ALF + 85 * BETA * (SSBP / RBP - ALF)
2620 IF TO = 0 GOTO 2660
2630 TO = 1
2640 S6 = .85 * S6
2650 SS6 = .85 * SS6
2660 SLOS1 = SI + S2 + S3 + S4 + S5 + S6
2670 SSLOS1 = SI + S2 + S3 + S4 + S5 + SS6
2680 IF ASSP = 0 THEN SSL0S1 = 0
2690 IF HB = 1 GOTO 3090
2700 HB = 0
2710 SSP1 = SSP - SLOS1
2720 SSSP1 = SSP - SSLOS1
2730 IF ASSP = 0 THEN SSSP1 = 0
2740 SS = S6
2750 P01=(SSPI*ASP+SSSP1*ASSP-SS*AS)*100
2760 EOPI=(SSP1*ASP*YSP-SSSP1*ASSP*YSSP-SS*AS*YS)*100/P01
2770 SBP1=(PO1 / ARED + PO1 * EOP1 * YSP I JRED - MCM * YSP I JRED) 1100
2780 SSBP1=(PO1/ ARED-PO1 * EOP1 * YSSP / JRED+MCM * YSSP / JRED) / 100
2790 IF ASSP = 0 THEN SSBP1 = 0
2800 IF TO = 1 GOTO 3000
2810 TO = 0
2820 IF LB < 1 GOTO 2870
2821 IF LB > 1 GOTO 2850
2830 S8 = 70
2840 GOTO 3260
2850 S8 = 50
2860 GOTO 3260
2870 IF В <= 35 THEN S8 = 40
2880 IF В = 40 THEN S8 = 50
2890 IF В >= 45 THEN S8 = 60
2900 GOTO 3260
3000 IF LB < 1 GOTO 3050
3001 IF LB > 1 GOTO 3030
3010S8 = 60
3020 GOTO 3260
3030S8 = 45
3040 GOTO 3260
3050 IF В <= 35 THEN S8 = 35
3060 IF В = 40 THEN S8 = 40
77
Продолжение приложения 1.
3070 IF В >= 45 THEN S8 = 50
3080 GOTO 3260
3090 SSP1 = SSP-SLOS1
3100 SSSP1 - SSP - SSL0S1
3110 IF ASSP = 0 THEN SSSP1 =0
3120 SS = S6
3130 P01=(SSP1*ASP+SSP1*ASSP-SS*AS)*100
3140 EOP 1=(SSP 1 * ASP* YSP-SSSP1 * ASSP* YSSP-SS* AS* YS)* 1OO/PO1
3150 SBP1 = (PO11 ABED + PO1 * EOP1 * YSPIJRED - MCM ♦ YSP/JRED) / 100
3160 SSBP1=(PO1 / ARED - PO1 ♦ EOP1 * YSSP/JRED+MCM *YSSP / JRED) / 100
3170 IF ASSP = 0 THEN SSBP1 = 0
3180 IF C = 1 THEN S7 = .1 * SSP - 20
3190 IF C = 0 THEN S7 = (.22 * SSP IRSS - .1) ♦ SSP
3200 IF S7 <= 0 THEN S7 = 0
3210 IF В <= 35 THEN S8 = 30
3220 IF В = 40 THEN S8 = 35
3230 IF В >= 45 THEN S8 = 40
3240 IF LB = 1 THEN S8 = 50
3250 GOTO 3260
3260 IF SBP1 / RBP > .75 GOTO 3390
3270 S9 = 150 ♦ SBP1/RBP
3280 GOTO 3400
3390 S9 = 300 * (SBP1 / RBP - .375)
3400 IF SSBP11 RBP > .75 GOTO 3430
3410 SS9 = 150 ♦ SSBP1 / RBP
3420 GOTO 3440
3430 SS9 = 300 * (SSBP1 / RBP - .375)
3440 IF TO = 1 THEN S9 = .85 * S9
3450 IF TO = 1 THEN SS9 = .85 ♦ SS9
3460 IF НВ о I GOTO 3510
3470 S10 = 70 - .22 * DEXT
3480 IF FS = 0 THEN S10 = 0
3490 Sil =N * DL ♦ ES/L
3500 GOTO 3550
3510 HB = 0: S7 = 0: SI0 = S7: SI1 = S10
3550 SLOS2 = SLOS1 + S7 + S8 + S9 T S10 + SI 1
3560 SSLOS2 = SSLOS1 + S7 + S8 + SS9 + S10 + Sil
3570 IF SLOS2 < 100 THEN SLOS2 = 100
3580 SSP2 = SSP - SLOS2
3590 IF ASS = 0 THEN SSS = 0
3600 IF SSLOS2 < 100 THEN SSLOS2 = 100
3610 IF ASSP = 0 THEN SSLOS2 = 0
3620 SSSP2 = SSP - SSLOS2
3630 IF ASSP = 0 THEN SSSP2 = 0
3640 SS = S6 + S9 + S8
3650 IF AS=0 THEN SS=0
3660 SSS = SS6 + S8 + SS9
3670 IF ASS = 0 THEN SSS = 0
78
Продолжение приложения 1.
3680 PO2=(SSP2*ASP+SSSP2* ASSP-SS* AS-SSS* ASS)* 100
3690 EOP2-(SSP2*ASP*YSP-SSSP2*ASSP*YSSP+SSS*ASS*YSS-SS*AS*YS)
* 100/P02
3695 TT5 = 5
3700 PRINT "Начальное предварительное напряжение в напрягаемой арматуре
S,@sp="; SSP; "М"
3710 PRINT "Величина потерь преднапряжения 1-ой гр.,до обжатия бетона
@losl="; SL0S1; "МПа"
3720 PRINT "Предварительное напряжение в напрягаемой арматуре S с учетом
потерь 1-ой гр. @spl="; SSP1; "МПа"
3730 PRINT "Усилие предварит, обжатия бетона с учетом потерь преднапряж.
1-ой гр. Ро1-‘; РО1;"Н"
3740 PRINT "Эксицентриситет усилия предварит, обжатия Pol относительно
линии центра тяжести приведенного сечения Eopl='; ЕОР1; ”см'
3750 PRINT "Сжимающие напряжения в бетоне в стадии предвар. обжатия
с учетом потерь l-ой гр. @bpl—’; SBP1; "МПа"
3760 PRINT "Величина потерь преднапряжения 2-ой гр.,после обжатия бетона
@Ios2="; SL0S2; "МПа”
3770 PRINT "Предварительное напряжение в напрягаемой арматуре S с учетом
потерь 2-ой гр. @sp2="; SSP2; "МПа"
3775 PRINT "Напряжение в ненапрягаемой арматуре S, @s-'; SS; "МПа"
3780 PRINT "Напряжения в ненапрягаемой арматуре S', @'s="; SSS; "МПа"
3790 PRINT "Усилие предварит, обжатия бетона с учетом потерь преднапряж. 1-
ой и 2-ой гр. Ро2="; РО2; "Н"
3800 PRINT "Эксицентриситет усилия предварит, обжатия Ро2 относительно ли-
нии центра тяжести приведенного сечения Еор2-'; ЕОР2; "см"
3809 PRINT"
3810 INPUT "Желаете распечатать результаты счета (1-Да, 2-Нет)"; LI5
3820 IF LI5 = 2 GOTO 755
3 822 LPRINT "Определение потерь предварительного напряжения в арматуре"
3824 LPRINT"	* GBK1 *"
3830LPRTNT” **********************^**********************************п
3831 LPRINT " "
3832LPRINT" ИСХОДНЫЕ ДАННЫЕ"
3833 LPRINT " aaaaaaaaaaaaaaaaaaa^aaaaaaaaaaaaa-^aaaaaa..
3840 LPRINT "________________________________________________________ _"
3845 LPRINT" "
3850 LPRINT " «<« ЖБК1 "; A$; " "; B$; " »»>"
3860 LPRINT "1)MMH ="; A(l); TAB(llO); ”18)Asp ="; A(18); "кв.см"
3870 LPRINT "2)C ="; A(2); TAB(110); "19)A'sp="; A(19); "кв.см"
3880 LPRINT "3)HB ="; A(3); TAB(110); "20)Ared="; A(20); "кв.см"
3890 LPRINT "4)TO ="; A(4); TAB(110); "21)Jred=”; A(21); "смл4"
3900 LPRINT "5)LB ="; A(5); TAB(110); "22)Ysp ="; A(22); "cm"
3910 LPRINT "6)n ="; A(6); TAB(110); "23)Y'sp="; A(23); "cm"
3920 LPRINT "7)FS ="; A(7); TAB(110); ”24)Ys ="; A(24); "cm"
3930 LPRINT ”8)L ="; A(8); "мм"; TAB(110); "25)Y's ="; A(25); "cm”
3940 LPRINT "9)Rs,ser="; A(9); "МПа"; TAB(110); "26)Md ="; A(26); "Н*см”
3950 LPRINT "10)At ="; A(10); "rp.C"; TAB(110); "27)Rbp ="; A(27); "МПа"
79
Окончание приложения 1.
3960 LPRINT "11)ЛЫ ="; А(11); "мм"; ТАВ(110); "28)В ="; А(28)
3970 LPRINT "12)ЛЬ2 ="; А(12); "мм"; ТАВ(ПО); "29)лЬс =”; А(29); "мм"
3980 LPRINT "13)AL ="; А( 13); "мм"; ТАВ(110); "30)Es ="; А(30); "МПа"
3990 LPRINT "14)w ="; А(14); ТАВ(110); "31)As ="; А(31);"кв.см"
4000 LPRINT "15)х ="; А(15); "М"; ТАВ(110); "32)A's ="; А (32); "кв.см"
4010 LPRINT "16)& ="; А( 16); ТАВ(110); "33)dext="; А(33); "см"
4020 LPRINT "17)ТЕТА="; А(17); "рад"
4030 LPRINT "’
4031 LPRINT "	РЕЗУЛЬТАТЫ СЧЕТА"
4032 LPRINT " алаллллаллллалаалаалалалллааллллаллалал..
4040 LPRINT "Начальное предварительное напряжение в напрягаемой"
4041 LPRINT "арматуре S ,@sp="; SSP; ”М"
4050 LPRINT "Величина потерь преднапряжения 1-ой гр.^цо обжатия"
4051 LPRINT "бетона @losl="; SL0S1; "МПа"
4060 LPRINT "Предварительное напряжение в напрягаемой арматуре Sc"
4061 LPRINT "учетом потерь 1-ой гр. @spl="; SSP1; "МПа"
4070 LPRINT "Усилие предварит, обжатия бетона с учетом потерь"
4071 LPRINT "преднапряж. 1-ой гр. Pol-’; РО1; "Н"
4080 LPRINT "Эксицентриситет усилия предварит, обжатия Pol"
4081 LPRINT "относительно линии центра тяжести приведенного"
4082 LPRINT "сечения Eopl="; ЕОР1; "см"
4090 LPRINT "Сжимающие напряжения в бетоне в стадии предвар. обжатия"
4091 LPRINT "с учетом потерь 1-ой гр. @bpl“"; SBP1; "МПа"
4100 LPRINT "Величина потерь преднапряжения 2-ой гр., после обжатия"
4101 LPRINT "бетона @los2="; SL0S2; "МПа"
4110 LPRINT "Предварительное напряжение в напрягаемой арматуре S с"
4111 LPRINT "учетом потерь 2-ой гр. @sp2="; SSP2; "МПа"
4120 LPRINT "Напряж. в ненапрягаемой арматуре S, @s="; 88;"МПа"
4130 LPRINT "Напряж. в ненапрягаемой арматуре S’, @’s="; SSS; "МПа"
4140 LPRINT "Усилие предварит, обжатия бетона с учетом потерь"
4141 LPRINT "преднапряж. 1-ой и 2-ой гр. Ро2="; РО2; ”Н"
4150 LPRINT "Эксицентриситет усилия предварит, обжатия Ро2 относи-"
4151 LPRINT "тельно линии центра тяжести приведенного"
4152 LPRINT "сечения Еор2— ’; ЕОР2; "см"
4999 GOTO 755
5000 STOP
5100 END
80
Приложение 2.
Текст рабочей программы GBK 2
10 PRINT" ПРОГРАММА GBK2 "
15 PRINT "Рассчет рабочей растянутой арматуры для изгибаемых элементов"
20 PRINT "Подготовьте исходные данные согласно принятым обозначениям"
30 PRINT "----------------------------"
40 PRINT "RBT
50 PRINT "
60 PRINT "
70 PRINT " GM2
80 PRINT "
90 PRINT "GM 1
100 PRINT "
МПа Расчетное сопротивление бетона осевому сжатию "
для предельных состояний первой группы "
согласно табл. 13 СНиП 2.03.01-84 "
Коэффициент условия работы бетона по п.2 табл. 15"
СНиП
Произведение коэффициентов условий работы бетона"
cGMlnoGM12
НО PRINT "ALFA - Коэффициент в формуле (26) СНиП "
120 PRINT "PNT - PNT-1 для арматуры классов A-4,A-5,At-4,At-5, "
130 PRINT "	Вр-2,К-7 и PNT=0 для арматуры классов А-2 и А-3"
140 PRINT "ETA - Коэффициент в формуле 27 СНиП "
150 PRINT "RSP
160 PRINT"
170 PRINT "BF
180 PRINT "
МПа Рассчетное сопротивление напрягаемой арматуры
растяжению для предельных состояний 1 группы "
см Ширина полки таврового (двутаврового) сечения "
в сжатой зоне	"
190 PRINT "HF см Высота сжатой полки таврового (двутаврового) "
200 PRINT "	сечения	"
210 PRINT "НО см
225 INPUT SUKAS
Рабочая (полезная) высота сечения"
230 PRINT "RS
250 PRINT "
260 PRINT "RSC
270 PRINT "
280 PRINT "
290 PRINT "ASS
300 PRINT "
зоне ”
310 PRINT "ASA
320 PRINT "
МПа Рассчетное сопротивление ненапрягаемой арматуры"
согласно табл.22,23 СНиП	"
МПа Рассчетное сопротивление ненапрягаемой армату- "
ры сжатию для предельных состояний I группы "
согласно табл. 22,23 СНиП "
смЛ2 Площадь сечения ненапрягаемой арматуры S , рас-"
положенной в растянутой (нижней )
смЛ2 Площадь сечения ненапрягаемой арматуры S’, распо-"
ложенной в сжатой зоне "
330 PRINT "А см Расстояние от равнодействующей усилий в арматуре"
340 PRINT " S’ до ближайшей грани сечения "
350 PRINT "М Н*см Рассчетное значение изгибающего момента от пол-"
360 PRINT "
370 PRINT "В
380 PRINT "
ной расчетной нагрузки, М>0 "
см Ширина прямоугольного сечения; ширина ребра тав-"
рового (двутаврового ) сечения "
390 PRINT "SIGP МПа Предварительное напряжение в напрягаемой армату-"
400 PRINT " ре S с учетом проявления всех потерь "
410 PRINT "NUMK - Количество рассматриваемых вариантов "
420 PRINT "NUM - Номер рассчитываемого варианта "
421 PRINT "Введите свою группу, имя, фамилию "
422 INPUT Т$ .LPRINT Т$
425 GOSUB 428
81
Продолжение приложения 2.
428 LPRINT "	Вариант"; W
430 PRINT "Введите данные задачи "
431 LPRINT "Исходные данные "
435 PRINT "RBT-"
440- INPUT RBT:LPRINT "RBT="RBT
445 PRINT "GM2-"
450 INPUT GM2:LPPJNT "GM2-"GM2
455 PRINT "GM1-"
460 INPUT GM 1-.LPRINT "GM1="GM1
465 PRINT "ALFA-"
470 INPUT ALFA:LPRINT "ALFA- "ALFA
475 PRINT "PNT-"
480 INPUT PNT:LPRINT "PNT- "PNT
485 PRINT "ETA-"
490 INPUT ETA:LPRINT "ETA- "ETA
495 PRINT "RSP-"
500 INPUT RSP:LPRINT "RSP- "RSP
505 PRINT ”BF="
510 INPUT BFiLPRINT "BF= ”BF
515 PRINT "HF-"
520 INPUT HF:LPRINT "HF- "HF
525 PRINT "HO-"
530 INPUT HO-.LPRINT "HO- "HO
535 PRINT "RS-"
540 INPUT RS:LPRINT "RS- "RS
545 PRINT "RSC-"
550 INPUT RSCrLPRINT "RSC- "RSC
555 PRINT "ASS-"
560 INPUT ASS:LPRINT "ASS- "ASS
565 PRINT "ASA-"
570 INPUT ASA:LPRINT "ASA- "ASA
575 PRINT "A-"
580 INPUT A:LPRINT "A- "A
585 PRINT "M="
590 INPUT M:LPRINT "M= "M
595 PRINT "B=”
600 INPUT В: LPRINT "В- "B
605 PRINT "SIGP-"
610 INPUT SIGP'.LPRINT "SIGP- "SIGP
615 PRINT "NUMK-"
616 W-W+l
617 IF W>1 THEN 625
620 INPUT NUMK:LPRINT "NUMK- "NUMK
625 PRINT "NUM-"
630 INPUT NUM:LPRINT "NUM- "NUM
635 GOTO 650
640 REM ОСНОВНАЯ ПРОГРАММА
650 Bl-В
82
Продолжение приложения 2.
660 RB=RBT*GM2*GM1
670 OMG=ALFA-8.000001E-03*RB
680 KSI1=1-OMG/1.1
690 SSCU=400
693 ZN=RB*B*HOA2*100
695 CS7=RSC*ASA*(HO-A)
700 IF(GM2<1) THEN SSCU=500
710 PNT=0
720 IF (ETA>1) THEN RNT=1
730 REL=(1-.2*PNT)*RSP
740 AMF=(RB*BF*HF*(HO-HF/2)+RSC*ASA*(HO-A))* 100
750 IF (AMF=0) THEN 1000
752 GOTO 760
754 PRINT "AO=";AO,"7PRO"
755 GOTO 1005
760 IF BF=0 THEN 1000
770 IF AMF>M THEN 900
800 AO=(M-(RB*(BF-B)*HF*(HO-.5*HF)+CS7)* 100)/ZN
810 GOTO 1005
900 B=BF
1000 AO=(M-(RSC* ASA*(HO-A))* 100)/ZN
1005 IF AO>=. 5 THEN 1270
1010 KSI=1-SQR(1-2*AO)
1020 KSIR=OMG/( 1+(KSI 1 *(RSP+PNT*400-SIGP)/SSCU))
1030 SIGMA=REL-(OMG/KSI-1)*SSCU/KSI1
1040 IF SIGMA<0 THEN SIGMA=0
1050 IF SIGMA>RSP THEN SIGMA=RSP
1060 IF KSI<=KSIR THEN 1140
1070 KSIEL=OMG/( 1+((REL-SIGMA) *KSI 1 )/SSCU)
1080 KSI=KSIR
1090 IF KSI<=KSIEL THEN 1=1130
11001=-!
1110 SIGMA=(OMG/KSI-1)*SSCU/KSI1+SIGP
1120 GOTO 1160
1130 SIGMA=REL+.2*PNT*(KSIL-KSI)/KSIR
1135 GOTO 1160
1140 SIGMA=RSP*(ETA-(ETA-1)*(2*KSI/KSIR-1))
1150 IF SIGMA>(RSP*ETA) THEN SIGMA=RSP*ETA
1160 AS=(KSI*RB*B*HO+RB*(BF-B)*HF+RSC*ASA-RS*ASS)/SIGMA
1170 B=B1
1180 REM КУСОЧЕК ДРУГОЙ ПРОГРАММЫ
1190 MU=AS/(B*HO)
1200 IF MU<.0005 THEN 1204
1201 GOTO 1210
1204 MU= 0005
1205 AS=MU*AS*HO
1210 LPRINT " Результаты счета"
1220 LPRINT "Относительная высота сжатой зоны KSI=";KSI
83
Окончание приложения 2.
1230 LPRINT "Граничное значение относительной высоты KSIR-’;KSIR
1240 LPRINT "Площадь рабочей растянутой арматуры AS—’; AS
1250 LPRINT "Напряжение в рабочей растянутой арматуре SIGMA =";SIGMA
1260 GOTO 1810
1270 LPRINT "Размеры сечения малы для действующего момента "
1280 LPRINT "Срочно примите меры.Нужны ли полученные результаты ?Да или
Нет?"
1290 INPUT А$
1300 IF А$-'Да" THEN 1210
1810 IF (NUM-NUMK)<0 THEN RETURN 425
2000 END
84
Приложение 3.
Текст рабочей программы GBK3
1 DIM А(21)
11 TT5=0:ZZ8=0: YY6=0
100 PRINT "Проверка прочности нормального сечения изгибаемых эл-тов прямо-
угольного , тавро-вого и двутаврового сечений с напрягаемой либо с ненапрягае-
мой арматурой"
110 PRINT
120 PRINT " 1) Rb(r) /МПа/ Расчетное сопротивление бетона осевому сжатию "
130 PRINT "	(призменая прочность) табл.13 СНиП 2.03.01-84 (1)"
135 IF ZZ8=8 GOTO 720
140 PRINT " 2) &Ь2 Коэфф-нт условия работы бетона, п.2 т.15 СНиП 2.03.01-84"
155 IF ZZ8=8 GOTO 720
160 PRINT " 3) &bi Произведение тех к-тов условий работы п.п.3-12"
170 PRINT "	таб. 15(1),которые соответствуют фактическим"
171 PRINT "	условиям работы элемента"
175 IF ZZ8=8 GOTO 720
180 PRINT " 4) ALFA	Коэфф-нт в формуле (26) СНиП (1)"
185 IF ZZ8=8 GOTO 720
190 PRINT " 5) ETA Максимал. значение к-та условия работы арматуры
&s6, п.3.13 (1)"
195 IF ZZ8=8 GOTO 720
200 PRINT" 6) Rs /МПа/ Расчетное сопротив. ненапряг. арм-ры s для пред. сост.
1-ой гр."
205 IF ZZ8=8 GOTO 720
210 PRINT " 7) Rsp /МПа/ Расчетное сопротивление напрягаемой арматуры s '
211 PRINT ” для предельных состояний 1-ой группы табл.22 СНиП (1)"
215 IF ZZ8=8 GOTO 720
220 PRINT " 8) Gsp2 /МПа/ Предварительное напряжение в арматуре s с учетом "
230 PRINT "	всех потерь , Gsp2 > 100 МПа"
235 IF ZZ8=8 GOTO 720
240 PRINT " 9) G'sp2 /МПа/ Предварительное напряжение в арматуре s' с учетом "
250 PRINT "	всех потерь , &sp < 1"
255 IF ZZ8=8 GOTO 720
260 PRINT ”10) bf /см/ Ширина полки тавр, (двутавр.) сечения находящейся в
сжатой зоне"
265 IF ZZ8=8 GOTO 720
270 PRINT" 11) hf /см/ Высота сжатой полки таврового (двутавр.) сечения "
275 IF ZZ8=8 GOTO 720
280 PRINT ”12) Rsc /МПа/ Расчетное сопротивление ненапрягаемой арматуры "
290 PRINT " з'для предельных состояний 1-ой группы табл.22 СНиП (1)"
305 IF ZZ8=8 GOTO 720
309 INPUT " 1-продолжить”; A66
310 PRINT ”13) As' Площадь сечения ненапрягаемой арматуры s',"
320 PRINT " расположенной в сжатой зоне бетона"
325 IF ZZ8-8 GOTO 720
330 PRINT "14) Asp /смл2/ Площадь сечения напрягаемой арматуры s"
345 IF ZZ8=8 GOTO 720
85
Продолжение приложения 3.
350 PRINT "15) Asp' /смл2/ Площадь сечения напрягаемой арматуры s'"
365 IF ZZ8=8 GOTO 720
370 PRINT "16) As /смл2/ Площадь сечения ненапрягаемой арматуры s"
385 IF ZZ8-8 GOTO 720
390 PRINT "17) b /см/ Ширина прямоугольн. сечения или ребра тавр, (дву-
тавр) сечения"
395 IF ZZ8=8 GOTO 720
400 PRINT ” 18) ho /см/ Рабочая (полезная) высота сечения"
415 IF ZZ8=8 GOTO 720
420 PRINT "19) а' /см/ Расстояние от равнодействующей усилий в ненапрягае-
мой арм-ре"
422 PRINT "	s' до ближайшей грани сечения"
425 IF ZZ8=8 GOTO 720
430 PRINT "20) M /Н*см/ Расчетное значение изгибающего момента при "
440 PRINT " полной расчетной нагрузке (М >= 0)"
455 IF ZZ8=8 GOTO 720
460 PRINT "21) a’p /см/ Расстояние от равнодействующей усилий в напрягае-
мой арм-ре"
470 PRINT "	s’ до ближайшей грани сечения"
475 IF ZZ8=8 GOTO 720
476 PRINT "0-Вернуться в начало списка" rPRINT " 1-Распечатать список"
477 INPUT "2-Продолжить";А67
478 IF А67=0 GOTO 11
479 IF A67=l GOTO 5000
500 ZZ8=8
510 INPUT "Введите фамилию”;А$
520 INPUT "группу";В$
530 PRINT " В В О Д Д А Н Н Ы X"
535 PRINT " aa/^aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa..
540 FOR >1 ТО 21
550 IF J=1 GOTO 120
560 IF J=2 GOTO 140
570 IF >3 GOTO 160
580 IF J=4 GOTO 180
590 IF J=5 GOTO 190
600 IF J=6 GOTO 200
610 IF J=7 GOTO 210
620 IF J=8 GOTO 220
630 IF J=9 GOTO 240
640 IF 1=10 GOTO 260
650 IF J=11 GOTO 270
660 IF J=12 GOTO 280
670 IF J=13 GOTO 310
680 IF J=14 GOTO 330
690 IF J=15 GOTO 350
700 IF J=16 GOTO 370
710 IF 1=17 GOTO 390
711 IF J=18 GOTO 400
86
Продолжение приложения 3.
712 IF J= 19 GOTO 420
713 IF J=20 GOTO 430
714 IF J=21 GOTO 460
720 INPUT A(J)
730 IF YY6=6 GOTO 755
732 NEXT J
755 PRINT ""
756 PRINT " "
758 PRINT " «««<«« * GBK3 *	";A$;”	»»» >»»"
760 PRINT " 1)РЬ(т)=";А(1);"МПа ";TAB(120);”12)Rsc =";A(12 );”МПа ”
770 PRINT " 2)&b2 =";A(2);TAB(120);”13)AS' =";А(13);"смл2”
780 PRINT " 3)&bi =";A(3);TAB(120);"14)Asp =";А(14);"смл2"
790 PRINT " 4)ALFA =";A(4);TAB(120);”15)Asp’ =";А(15);”смл2"
800 PRINT " 5)ETA =";A(5);TAB(120);’’16)As =";А(16);"смл2"
810 PRINT " 6)Rs =";А(6);"МПа ";TAB(120);"17)b =";A(17);"cm "
820 PRINT " 7)Rsp =";А(7);"МПа ";TAB(120);"18)ho =";А(18);"см ”
830PRINT*' 8)Gsp2 =";А(8);"МПа ";TAB(120);"19)a' =";A(19);”cm "
840 PRINT " 9)G’sp2=";A(9);"Mria ";TAB(120);”20)M =";А(20);"Н*см”
850 PRINT "10)bf =";A(10);”cm ";TAB(120);"21)a’p =”;A(21);"cm "
851 PRINT" 11 )hf =”; A( 11 );"cm ”
860 PRINT”"
952 IF TT5=0 GOTO 962
953 PRINT " 1-Продолжить счет этого варианта, изменив некоторые входные па-
раметры”
955 PRINT "2-Счет программы заново"
956 INPUT "3-Выход из программы";МА8
957 ТТ5=0
958 IF МА8=1 GOTO 1020
959 IF МА8-2 GOTO 11
960 IF MA8=3 THEN STOP
962 RBT=A(1):GB2=A(2):GBI=A(3):ALFA=A(4):ETA=A(5):RS=A(6):
RSP=A(7):SSP=A(8):SSPS=A(9)
963 BFS=A(10):HFS=A(l 1):RSC=A(12):ASS-A(13):ASP=A(14):
ASSP=A(15):AS=A(16)
964 B=A( 17):HO=A( 18): AS A=A( 19):MSER=A(20): APS=A(21)
968 INPUT "Хотите что-нибудь исправить (1-Да 2-Нет)";YZ
970 IF YZ=2 GOTO 2000
980 INPUT "Введите номер изменяемой переменной”;!
990 YY6=6
1000 GOTO 550
1010 GOTO 2000
1020 INPUT "Будем изменять фамилию (1-Да 2-Нет)";ККЗ
1030 IF ККЗ=2 GOTO 1050
1040 INPUT "Введите фамилию";А$
1050 INPUT "Будем изменять группу (1-Да 2-Нет)";КК4
1060 IF КК4=2 GOTO 755
1070 INPUT "Введите группу";В$
1080 GOTO 755
87
Продолжение приложения 3.
2000 В1=В
2005 ХХХ=0
2010 RB=RBT*GB2*GBI
2020 GMG-ALFA-8.000001E-03*RB
2030 IF ЁТА=1 GOTO 2060
2040 SSR=RSP+400-SSP
2050 GOTO 2070
2060 SSR=RS
2070 SSCU=400
2080 IF GB2<1 THEN SSCU=500
2090 KSIR=OMG/(1+(SSR/SSCU)*(1-(OMG/1.1)))
2100 SSC=SSCU-SSPS
2110 NF=(RB*BFS*HFS+RSC*ASS+SSC*ASSP)*100
2120 IF BFS=0 THEN NF-0
2130 IF NF=0 GOTO 2160
2140 NS=(RSP* ASP+RS*AS)* 100
2150 IF NF>=NS THEN B=BFS
2160 X=(RSP*ASP+RS*AS-RSC*ASS-RB*(BFS-B)*HFS-SSC*ASSP)/(RB*B)
2170 KSI=X/HO
2180 GS6=ETA-(ETA-1 )*(2*KSI/KSIR-1)
2190 IF GS6>=ETA THEN GS6=ETA
2200 X=(GS6*RSP*ASP+RS*AS-RSC*ASS-RB*(BFS-B)*HFS-SSC*ASSP)/
(RB*B)
2210 IF X<=HFS GOTO 2240
2220 B=B 1
2230 X=(GS6*RSP*ASP+RS*AS-RSC*ASS-RB*(BFS-B)*HFS-SSC*ASSP)/
(RB*B)
2240 IF X>=2*ASA GOTO 2280
2250 MU=((RS*AS+GS6*RSP*ASP)*(HO-ASA))* 100
2260 KSI=X/HO
2270 GOTO 2370
2280 KSI=X/HO
2290 IF KSI>KSIR GOTO 2320
2300 MU=(RB*B*X*(HO-.5*X)+RB*(BFS-B)*HFS*(HO-.5*HFS)+SSC*
ASSP*(HO-APS)+RSC* ASS*(HO-ASA))* 100
2310 GOTO 2370
2320 AO=KSI*(1-.5*KSI)
2330 AR=KSIR*(1-.5*KSIR)
2340MU=(.5*(AR+AO)*RB*B*HOA2+RB*(BFS-B)*HFS*(HO-.5*HFS)+
SSC* ASSP*(HO-APS)+RSC*ASS*(HO-AS A))* 100
2350 IF X>0 GOTO 2370
2360 MU=((ETA*RSP*ASP+RS*AS)*(HO-ASA))* 100
2370 DM=MU-MSER
2380 XXX=1
2390 IF DM>0 THEN XXX=2
2760 PRINT " РЕЗУЛЬТАТЫ СЧЕТА"
2765 PRINT ”	.................."
88
Продолжение приложения 3.
2766 IF ХХХ=1 THEN PRINT "Прочность нормального сечения не обеспечена.
Необходимо увеличить размеры сечения эл-та, либо класс или площадь армату-
ры "
2767 IF ХХХ=2 THEN PRINT "Прочность нормального сечения обеспечена на
воздействие изгибающего момента"
2800 PRINT "Гранин, значение относится, высоты сжатой зоны KSIR=";KSIR
2805 PRINT "Относительная высота сжатой зоны бетона KSI~ ’;KSI
2810 PRINT "Изгибающий момент воспринимаемый сечением Ми~";
MU;”H*cm"
2815 PRINT "Отклонение величины изгибающего момента , воспринимаемого
сечением, от момента"
2817 PRINT "от внешней нагрузки aM=";DM;"H*cm"
2820 PRINT ".......................
3810 INPUT "Желаете распечатать результаты счета (1-Да, 2-Нет)";Ы5
3811 ТТ5=5
3812 IF LI5=2 GOTO 755
3813 LPRINT "Проверка прочности нормального сечения изгибаемых эл-тов"
3816 LPRINT "прямоугольного , таврового и двутаврового сечений с на-"
3817 LPRINT " прягаемой либо с ненапрягаемой арматурой * GBK3 *"
3818 LPRINT "***********$*******************************^************"
3819 LPRINT" "
3821 LPRINT" ИСХОДНЫЕ ДАННЫЕ"
3822 LPRINT " aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa«
3840 LPRINT ""
3850 LPRINT " "
3860 LPRINT "«« * GBK3 * ";A$;" ";B$;">»>"
3870 LPRINT " l)Rb(T)=";A(l);"Mna ”;TAB(110);"12)Rsc =";А(12);"МПа ”
3880 LPRINT " 2)&b2 =";A(2);TAB(110);"13)AS’ =";А(13);"смл2"
3890 LPRINT " 3)&bi =";A(3);TAB(110);"14)Asp =";А(14);"смл2"
3900 LPRINT ” 4)ALFA=";A(4);TAB(110);"15)Asp' =";А(15);"смл2"
3910 LPRINT " 5)ETA =";A(5);TAB(110);"16)As =";А(16);"смл2"
3920 LPRINT " 6)Rs =";А(6);"МПа ";TAB(110);”17)b =";А(17);"см "
3930 LPRINT " 7)Rsp =";А(7);"МПа ";TAB(110);"18)ho =";А(18);"см "
3940 LPRINT " 8)Gsp2 =";А(8);"МПа ";TAB(110);"19)a' =";A(19);"cm "
3950 LPRINT ” 9)G’sp2=”;A(9);"Mna ";TAB(110);”20)M =”;A(20);”H*cm"
3955 LPRINT "10)bf =”;A(10);"cm ";TAB(110);"21)a'p =";A(21);"cm "
3960 LPRINT "1 l)hf =";A(l 1);"cm "
3965 LPRINT""
3970 LPRINT " "
3971 LPRINT" РЕЗУЛЬТАТЫ СЧЕТА"
3972 LPRINT " аалллаааалллалааааллаалллааллалаллалалалл..
3973 IF XXX=1 THEN LPRINT "Прочность нормального сечения не обеспечена.
Необходимо увели-"
3975 IF ХХХ=1 THEN LPRINT "чить размеры сечения эл-та , либо класс или
площадь арматуры"
3976 IF ХХХ=2 THEN LPRINT "Прочность нормального сечения" обеспечена"
3977 IF ХХХ=2 THEN LPRINT "на воздействие изгибающего момента "
3990 LPRINT "Граничое значение относительной высоты сжатой"
89
Продолжение приложения 3.
3991 LPRINT "зоны KSIR=";KSIR
3995 LPRINT "Относительная высота сжатой зоны бетона KSI-KSI
4000 LPRINT "Изгибающий момент воспринимаемый сечением Ми=";
MU;"H*cm"
4010 LPRINT "Отклонение величины изгибающего момента
4011 LPRINT "воспринимаемого сечением , от момента возникающего"
4020 LPRINT "от внешней нагрузки aM='*;DM;"H*cm"
4030 ТТ5=5
4040 GOTO 755
5000 LPRINT ” Список исходных данных к программе * GBK3 ♦"
5010 LPRINT "--——------------------------
5020 LPRINT " "
5030 LPRINT "Проверка прочности нормального сечения изгибаемых эл-тов"
5031 LPRINT "прямоугольного , таврового и двутаврового сечений с на-”
5032 LPRINT " прягаемой либо с ненапрягаемой арматурой * GBK3 *"
5033 LPRINT ”*******’®t**********j*t^*t****4c******************3i:«**t******”
5045 LPRINT ” "
5046 LPRINT "===^====.-		-.-.--- --.----
5050 LPRINT "
5060 LPRINT "
5070 LPRINT "
5080 LPRINT "
5090 LPRINT "
5100 LPRINT "
5110 LPRINT"
5120 LPRINT "
5121 LPRINT"
5130 LPRINT "
5135 LPRINT "
5140 LPRINT ”
5150 LPRINT"
5160 LPRINT "
5170 LPRINT "
1)	Rb(r) /МПа/ Расчетное сопротивление бетона осевому сжатию "
(призменная прочность) т.13 СНиП 2.03.01-84 (1)."
2)	&Ь2 Коэфф-нт условия работы бетона, п.2 т. 15 СНиП (1)"
3)	&bi • Произведение тех к-тов условий работы п.п.3-12"
таб. 15 (1),которые соответствуют фактическим"
условиям работы элемента."
4)	ALFA Коэфф-нт в формуле (26) СНиП (1)."
5)	ЕТА Максималлное значение коэф-та условия работы "
арматуры &s6 п.3.13 (1)."
6)	Rs /МПа/ Расчетное сопротивление ненапрягаемой арм-ры"
s для предельных состояний 1-ой группы."
7)	Rsp /МПа/ Расчетное сопротивление напрягаемой арматуры s”
для пред, состояний 1-ой группы т.22 СНиП (1)."
8)	Gsp2 /МПа/ Предварительное напряжение в арматуре s с"
учетом всех потерь , Gsp2 >100 МПа."
5180 LPRINT " 9) G’sp2 /МПа/ Предварительное напряжение в арматуре s' с"
5190 LPRINT ”
учетом всех потерь , &sp < 1.”
5200 LPRINT ”10) bf /см/ Ширина полки таврового (двутаврового) сече-”
5205 LPRINT "
ния находящейся в сжатой зоне.”
5210 LPRINT "11) hf /см/ Высота сжатой полки таврового (двутавр.) сечения ."
5220 LPRINT "12) Rsc /МПа/ Расчетное сопротивление ненапрягаемой армату-
ры"
5225 LPRINT " s’ для предел, сост. 1-ой группы т.22 СНиП (1)."
5230 LPRINT "13) As' /смл2/ Площадь сечения ненапрягаемой арматуры s',"
5240 LPRINT "	расположенной в сжатой зоне бетона."
5250 LPRINT "14) Asp /смЛ2/ Площадь сечения напрягаемой арматуры s."
5260 LPRINT ”15) Asp' /смЛ2/ Площадь сечения напрягаемой арматуры s'.”
5270 LPRINT "16) As /смЛ2/ Площадь сечения ненапрягаемой арматуры s."
5280 LPRINT " 17) b /см/ Ширина прямоугольного сечения или ребра таврово-
го"
икончание приложения 3.
5285 LPRINT "
5290 LPRINT ”18) ho
5300 LPRINT ”19) a'
5310 LPRINT"
5320 LPRINT ”20) M
5330 LPRINT "
(двутаврового) сечения."
/см/ Рабочая (полезная) высота сечения."
/см/ Расстояние от равнодействующей усилий в ненап-"
рягаемой арматуре s' до ближайшей грани сечения."
/Н*см/ Расчетное значение изгибающего момента при"
полной расчетной нагрузке (М >— 0)."
5340 LPRINT ”21) а'р /см/ Расстояние от равнодействующей усилий в напря-"
5350 LPRINT "	гаемой арматуре s' до ближайшей грани сечения."
5355 LPRINT	—--------m	.. _=
5360 GOTO 476
6000 STOP
6100 END
Приложение 4.
Текст рабочей программы GBK4
1 DIM J(22)
2 V-99999999#
10 Y5=0:Z9=0:L1=0:L=0:T5=0
79 FOR 1=1 TO 21
80 J(I)=I
81 NEXT I
100 PRINT "Программа подбора поперечной арматуры по прочности наклонного"
101 PRINT " сечения при действии поперечной силы * GBK4 *"
102 PRINT
103 PRINT " /Список исходных переменных/"
105 PRINT --------------------------------------------—"
НО PRINT ”1) Rb(r) /МПа/ Расчетное сопротивление бетона осевому сжатию
для
111 PRINT "	предельных состояний 1-ой группы т.13 СНиП 2.03.01-84"
115 IF Т5=5 GOTO 475
120 PRINT "2)Rbt(T) /МПа/ Расчет, сопротивление бетона осевому растяжению"
121 PRINT "	предельных состояний 1-ой группы т.13 СНиП 2.03.01-84"
125 IF Т5=5 GOTO 485
130 PRINT "3) &Ь2 К-нт условия работы бетона п.2 т. 15 СНиП /1/"
135 IF Т5=5 GOTO 495
140 PRINT "4) &bi Произведение к-тов условий работы бетона (&b...&b 12)"
145 IF Т5=5 GOTO 505
150 PRINT "5) в /см/ Ширина прямоугольного (ребра таврового /двутавров-"
151 PRINT "	го/) сечения"
155 IF Т5=5 GOTO 515
160 PRINT "6) hf /см./ Высота сжатой полки таврового (двутавр.) сечения"
165 IF Т5=5 GOTO 525
170 PRINT "7) bf /см/ Ширина полки таврового (двутавр.) сечения , нахо-"
171 PRINT "	дящегося в сжатой зоне"
175 IF Т5=5 GOTO 535
180 PRINT "8) ho /см/ Рабочая (полезная) высота сечения”
185 IF Т5=5 GOTO 545
190 PRINT ”9) h /см/ Высота сечения"
195 IF Т5=5 GOTO 555
200 PRINT " 10) Р /Н/ Усилие предварительного обжатия с учетом полных"
201 PRINT "	потерь преднапряжения"
205 IF Т5=5 GOTO 565
210 PRINT "11) #Ь2 К-нг в форм.(76) СНиП 2.03.01-84"
215 IF Т5=5 GOTO 575
220 PRINT ”12) #ЬЗ К-нт по п.3.31 СНиП 2.03.01-84"
225 IF Т5=5 GOTO 585
226 INPUT " / 1-продолжить /";N8
230 PRINT "13) С /см/ Длина проекции наиболее опасного наклонного се-"
231 PRINT "	чения на продольную ось эл-та, С < 2*ho "
235 IF Т5=5 GOTO 595
92
Продолжение приложения 4.
240 PRINT ”14) Q /Н/ Поперечная сила от внешней ра счетной нагрузки"
245 IF Т5=5 GOTO 605
250 PRINT " 15) Rsw /МПа/ Расчетное сопротивление поперечной апматуры"
251 PRINT "	растяжению т.22 СНиП /1/"
255 IF Т5=5 GOTO 615
260 PRINT "16) п К-во ветвей хомутов, входящих в нормальное се-"
261 PRINT "	чение элемента"
265 IF Т5=5 GOTO 625
270 PRINT "17) Asw /кв.см/ Площадь сечения хомутов , расположенных в одной"
271 PRINT "	нормальной к продольной оси элемента плоскости,"
272 PRINT "	пересекающих наклонное сечени е"
275 IF Т5=5 GOTO 635
280 PRINT " 18) Es /МПа/ Модуль упругости арматуры, т.29 СНиП 2.03.01 -84"
285 IF Т5=5 GOTO 645
290 PRINT " 19) Eb /МПа/ Модуль ыпругости бетона, т.18 СНиП 2.03.01-84"
295 IF Т5=5 GOTO 655
300 PRINT "20) ВЕТ К-нт в формуле (74) СНиП /1/"
305 IF Т5=5 GOTO 665
310 PRINT "21) А	/см/ Величина пролета среза, принимаемая при действии"
311 PRINT "	нагрузки в виде сосредоточенных сил равной рас-"
312 PRINT ’’	стоянию от оси опоры до линии действия ближайшей"
313 PRINT "	к ней силы ;при действии равномерно распределен-”
314 PRINT ”	ной нагрузки А=0.25*1 /1-расчетн. пролет эл-та/"
315 IF Т5=5 GOTO 675
316 PRINT "--------------------------------------------"
340 INPUT "1 -вернуться назад , 2-распечатать список , 3-продолжить c4er";N9
350IFN9 H GOTO 100
355 IF N9=2 GOTO 5000
360 INPUT "Введите фамилию ";T$
361 INPUT "Группу";Т1$
455 T5=5
466 PRINT" ВВОД ДАННЫХ"
467PRINT" □□□□□□□□□□□□□□□□□□□□□□□□□□
470 IF J(l)= 1 GOTO 110
475 IF J(1>1 THEN INPUT "Rb(T)-";R
480 IF J(2)=2 GOTO 120
485 IF J(2)=2 THEN INPUT "Rbt(T)=";Rl
490 IF J(3)=3 GOTO 130
495 IF J(3>=3 THEN INPUT "&b2=";G2
500 IF J(4)=4 GOTO 140
505 IF J(4)=4 THEN INPUT "&bi=";G
510 IF J(5)=5 GOTO 150
515 IF J(5)=5 THEN INPUT "b=";B
520 IF J(6)-6 GOTO 160
525 IF J(6)=6 THEN INPUT "hf=";Hl
530 IF J(7)-7 GOTO 170
535 IF J(7)=7 THEN INPUT "bf=";Bl
540 IF J(8)=8 GOTO 180

93
Продолжение приложения 4
545 IF J(8)=8 THEN INPUT "ho=";HO
550 IF J(9)=9 GOTO 190
555 IF J(9)=9 THEN INPUT "h=";H
560 IF J( 10)= 10 GOTO 200
565 IF J( 10)= 10 THEN INPUT ”P=";P
570 IF J(ll)=ll GOTO 210
575 IF J(11)=11 THEN INPUT ”#b2=";F2
580 IF J(12)=12 GOTO 220
585 IF J(12)=12 THEN INPUT "#b3=,,;F3
590 IF J(13)=13 GOTO 230
595 IF J(13)=13 THEN INPUT "C=";C
600 IF J( 14)= 14 GOTO 240
605 IF J(14)=14 THEN INPUT "Q=";Q
610 IF J( 15)= 15 GOTO 250
615 IF J(15)=l 5 THEN INPUT "Rsw=";R2
620 IF J(16)=16 GOTO 260
625 IF J(16)=16 THEN INPUT "n=";N
630 IF J( 17)= 17 GOTO 270
635 IF J( 17)= 17 THEN INPUT "Asw=";A
640 IF J( 18)= 18 GOTO 280
645 IF J(18)=18 THEN INPUT "Es=";E
650 IF J(19)=19 GOTO 290
655 IF J(19)= 19 THEN INPUT ”Eb=”;El
660 IF J(20)=20 GOTO 300
665 IF J(20)=20 THEN INPUT "BET=";B0
670 IF J(21 )=21 GOTO 310
675 IF J(21 )=21 THEN INPUT "A=";A0
1190 PRINT ’’	__________________________________________
1191 PRINT " ««««< ♦ GBK4 ♦ ";T$;" ";T1 $;”»»»»»”
1192PRINT” "
1200 PRINT " 1) Rb(T) =";R;"Mna";TAB(120);"12) #b3 =";F3
1210 PRINT " 2) Rbt(T)=";Rl;,’Mna";TAB(120);,,13) C
1220 PRINT ” 3) &b2 =";G2;TAB(120);”14)Q =";Q;”H”
1230 PRINT ” 4) &bi =";G;TAB(120);"15) Rsw =”;R2;"Mna”
1240 PRINT " 5) в =";В;’'см.";ТАВ(120);" 16) n =";N
1250PRINT” 6)hf =";H1;”cm.,,;TAB(120);,,I7) Asw=”;A;”kb.cm.
1260 PRINT ” 7) bf =";B1;"cm.";TAB(120);"18)Es =";Е;”МПа”
1270 PRINT ” 8) ho =";H0;"cM.”;TAB(120);n19) Eb =”;Е1;"МПа”
1280 PRINT ” 9) h =";Н;"смЛТАВ(120);"20) BET =”;B0
1290 PRINT ”10) P =";P;"H ";TAB(I20);”21) A =";A0;”cm."
1300 PRINT "ll)#b2 =”;F2
1301 PRINT ”
1310IFZ9=9 GOTO 2000
1315 PRINT ’’Уважаемый ";T$;
1320 INPUT ",хотите что-нибудь изменить в исходных данных/1-ДА,2-НЕТ/"; Y1
1330 IF Y 1=2 GOTO 2000
1340 FOR 1=1 ТО 21
1350 J(I)=0
94
Продолжение приложения 4.
1360 NEXT I
1370 INPUT "Введите номер изменяемой переменной" ;Y2
1380 I(Y2)Y2
1390 GOTO 470
2000 R0=R*G2*G
2005 BB1=B1:CC=C
2006 L=0:L 1=0
2010 R3=R1*G2*G
2020 IF B1>B+3*H1 THEN B1=B+3*H1
2030 F=(.75*(B1-B))*H1/(B*HO)
2040 IF F>.5 THEN F= 5
2050 Fl=(.l*P)/(R3*B*H0*100)
2060 IF Fl>.5 THEN Fl=.5
2070 F0=l+F+Fl
2080 IF F0>l .5 THEN F0=l .5
2090 C8=(H0*F2)/F3
2100 IF C8>A0 THEN C8=A0
2110 IF C8>C THEN C=C8
2120 Q6=(F2*F0*R3*B*H0A2*100)/C
2125 W=1
2130 IF Q6>=Q THEN W=0
2131 IF Q6>=Q THEN L=3
2132 IF Q6>=Q THEN 2310
2140 Ql=F3*F0*R3*B*H0*100
2150 IF Q6<Q1 THEN Q6=Q1
2160 Q0=(Q-Q6)/C
2170 Q2= 5*R3*B*F3*100*F0
2180 IF Q0>Q2 THEN Q3=Q0
2190 IF Q0>Q2 GOTO 2210
2200 Q3=Q2
2210 C0=H0*SQR((F2*F0*R3 *B* 100)/Q3)
2220 Cl=(F3*R3*B*H0*F0*lO0)/Q3
2221 IF C0<Cl THEN C0=Cl
2222 IF C>=C0 THEN C0=C
2223 IF C>=C0 GOTO 2240
2224 IF OHO THEN C0=C
2225 IF OHO GOTO 2240
2226 IF C0<=H0 THEN C0=H0
2230 IF C0<=H0 GOTO 2250
2240 IF C0>(2*H0) THEN C0=2*H0
2250 Q4=(Q-Q6)/C0
2260 IF Q4>Q2 THEN Q3=Q4
2270 IF Q4>Q2 GOTO 2290
2280 Q3=O2
2290 S=(R2*N*A*100)/Q3
2300 S9=(.75*F2*F0*R3*B* 100*H0A2)/Q
2310 IF H<=45 GOTO 2330
2320 GOTO 2380
95
Продолжение приложения 4.
2330S1-H/2
2340 IF SI<15 THEN S2=S1
2350 IF Sl<15 GOTO 2370
2360 S2=15
2370 GOTO 2420
2380 Sl=H/3
2390 IF SI<50 THEN S2=S1
2400 IF SI<50 GOTO 2420
2410 S2=50
2420 IF W=0 THEN S0=S2
2430 IF W=0 THEN Q3=(R2*N*A*1OO)/SO
2431 IF W=0 GOTO 2480
2450 IF S<S9 THEN IF S<S2 THEN SO=S
2451 IF SO=S GOTO 2480
2460 IF S9<S2 THEN S0=S9
2461 IF S9=S2 GOTO 2480
2470 S0=S2
2480 F9=1+(5*E*N*A)/(E1*B*SO)
2490 IF F9> 1.3 THEN F9=L3
2500 F8=l-B0*R0
2510 Q5= 3*F9*F8*R0*B*H0*100
2515 Bl=BBl:C=CC
2520 IF Q>Q5 THEN LI =5
2530 IF L=3 THEN PRINT " /W=0/ Поперечная арматура устанавливается по"
2531 IF L=3 THEN PRINT "конструкттивным требованиям СНиП"
2540 IF LI =5 THEN PRINT "Прочность бетонной части сечения недостаточна
необходимо"
2541 IF L 1=5 THEN PRINT "увеличить размеры поперечного сечения , либо класс
бетона"
2550 PRINT "Интенсивность поперечного армирования QSW=";Q3;"H/cm" 
2560 PRINT "Шаг постановки хомутов	S=";S0;"cm."
2561 PRINT "Поперечная сила воспринимаемая бетоном QB=";Q6;"H"
2563 PRINT ”---------------------------------"
2565 INPUT "Распечатать вариант на бумаге /1-ДА ,2-НЕТ/";LI
2567 IF LI=2 GOTO 2595
2570 LPRINT "Программа подбора поперечной арматуры по прочности наклон-"
2571 LPRINT " кого сечения при действии поперечной силы* GBK4 *"
2572 LPRINT ’’♦***♦*♦*♦♦♦*♦**♦♦♦♦♦♦**♦♦*♦**♦*♦*****♦*♦****♦*♦♦*♦♦♦*♦*♦"
2574 LPRINT "________________________________________________________
2575 LPRINT " ««« * GBK4 * ";Т$;" ";Т1 $;"»»»"
2576 LPRINT""
2577 LPRINT " 1) Rbfr) =";R;"Mna";TAB(l 10);"12) #b3 =";F3
2578 LPRINT " 2) Rbt(T)=";Rl;"Mna";TAB(l 10);”13) С =";С;"см”
2579 LPRINT " 3) &b2 =";G2;TAB(110);" 14) Q =";Q;"H"
2580 LPRINT " 4) &bi =";G;TAB(110);" 15) Rsw =";К2;"МПа"
2581 LPRINT " 5) б =";В;"см.";ТАВ(110);" 16) n =";N
2582 LPRINT" 6) hf =”;Н1;"см.";ТАВ(110);"17) Asw =";A;"kb.cm."
2583 LPRINT " 7) bf =”;B1;"cm.”;TAB(1 10);" 18) Es =";Е;"МПа"
96
Продолжение приложения 4.
2584 LPRINT " 8) ho	10);" 19) Eb =";Е1;"МПа"
2585 LPRINT * 9) h -’';Н;‘гсм.";ТАВ(110);"20) BET =";B0
2586 LPRINT ”10) P	”;TAB(1IO);"21) A =";A0;"cm."
2587 LPRINT " 11) #b2 =“;F2
2588 LPRINT *	___"
2589 IF L=3 THEN LPRINT " /W=0/ Поперечная арматура устанавливается
IF L=3 THEN LPRINT "по конструкттивным требованиям СНиП"
2590 IF Ll=5 THEN LPRINT "Прочность бетонной части сечения недостаточна
необходима":
IF L 1=5 THEN LPRINT " увеличить размеры поперечного сечения, либо
класс бетона"
2591 LPRINT '‘Интенсивность поперечного армирования QSW=";Q3;"H/cm"
2592 LPRINT "Шаг постановки хомутов	S=";S0;"cm."
2593 LPRINT “Поперечная сила воспринимаемая бетоном QB=";Q6;"H"
2595 IF Z9=9 GOTO 2840
2598 IF Q3>=V GOTO 2640
2599 V=Q3:V1=R:V2=R1 :V3=G2:V4=G:V5=B:V6=H1 :V7=B 1 :V8=H0:V9=H
:V10=P
2600 VI 1=F2:V12=F3:V13=C:V14=Q:V15=R2:V16=N:V17=A:V18=E
2610 V19=El:V20=B0:V21=A0:Z0=L:Zl=Ll:Z2=S0:Z3=Q6
2611 A$=T$:A1$=TI$
2630 PRINT ”--------------------"
2640 INPUT "1-продолжить счет с другим вариантом ,2-закончить счет ,3-счет
программы заново";Y5
2642 IF Y5=l THEN INPUT "Введите фамилию";Т$
2643 IF Y5=l THEN INPUT Tpynny";Tl$
2645 IF Y5=3 GOTO 10
2649IFY5=1 GOTO 1190
2650 INPUT "Хотите просмотреть вариант c min интенсивностью армирования
/1-ДА ,2-НЕТ/";М1
2651 IF MI=2 GOTO 2840
2670 PRINT "Расчет окончен , Min интенсивность поперечного армирования -";V;
” приварианте -"
2680 Z9=9
2681 R=V1 :R1=V2:G2=V3:G=V4:B=V5:H1=V6:B I=V7:H0=V8:H=V9:P=V10
2682 F2=V 11 :F3=V 12:C=V 13 :Q=V 14:R2=V 15:N=V 16: A=V 17:E=V 18
2683 El=V19:B0=V20:A0=V21
2684T$=A$:T1$=A1$
2690 GOTO 1190
2840 STOP
2850 END
5000 LPRINT " Список исходных данных к программе * GBK 4 ♦"
5010LPRINT" ---------------------——-----------"
5020 LPRINT " "
5030 LPRINT "Программа подбора поперечной арматуры по прочности наклон-"
5040 LPRINT " ного сечения при действии поперечной силы * GBK4 ♦"
5050 LPRINT "♦♦♦♦♦♦♦*♦♦♦♦**♦**♦♦♦♦♦*♦♦*♦♦♦♦♦♦**$*#*♦***♦♦♦***♦♦********
5060 LPRINT " /Список исходных переменных/"
97
Окончание, приложения 4
5070 LPRINT
«дежт» lav «040 •»	оде «л «С» еде «г» «го «тде*>де»«ж гллл ют<£»ой»а« аве* *кюж>лл<з»« шш.едемте сяхл»дел до-ееаоа <£»•& e«icrc.'CK.-


5100 LPRINT ”1) Rb(T) /МПа/ Расчетное сопротивление бетона осевому сжатию
для"
5110 LPRINT " предел, состояний 1-ой группы т.13 СНиП 2.03.01-84"
5120 LPRINT "2)Rbt(r) /МПа/ Расчет, сопротивление бетона осевому растяжению
5140 LPRINT " предел, состояний 1-ой группы т. 13 СНиП 2.03.01-84"
5150 LPRINT ”3) &Ъ2	К-нт условия работы бетона п.2 т. 15 СНиП /1 /"
5160 LPRINT ”4) &bi	Произведение к-тов условий работы бетона (&Ь...&Ы 2)’:
5170 LPRINT "5) в /см/ Ширина прямоугольного (ребра таврового /двутавров-"
5180 LPRINT' "	го/) сечения"
5190 LPRINT "6) hf /см/ Высота сжатой полки таврового (двутавр.) сечения.**
5200 LPRINT "7) bf /см/ Ширина полки таврового (двутавр.) сечения , нахо-"
5210 LPRINT" дящегося в сжатой зоне"
5220 LPRINT ”8) ho /см/ Рабочая (полезная) высота сечения"
5230 LPRINT "9) h /см/ Высота сечения"
5240 LPRINT "10) Р /Н/ Усилие предварительного обжатия с учетом полных
5250 LPRINT " потерь преднапряжения"
5260 LPRINT "11) #Ь2	К-нг в форм.(76) СНиП 2.03.01-84"
5270 LPRINT ”12) #ЬЗ К-нт по п.3.31 СНиП 2.03.01-84”
5280 LPRINT "13) С /см/ Длина проекции наиболее опасного наклонного се-"
5290 LPRINT " чения на продольную ось эл-та, С < 2*ho"
5300 LPRINT " 14) Q /Н/ Поперечная сила от внешней расчетной нагрузки
5310 LPRINT " 15) Rsw /МПа/ Расчетное сопротивление поперечной апматуры"
5400 LPRINT ” растяжению т.22 СНиП /1/’’
5410 LPRINT ” 16) п	К-во ветвей хомутов, входящих в нормальное се-"
5420 LPRINT " чение элемента"
5430 LPRINT "17) Asw /кв.см/ Площадь сечения хомутов, расположенных в
5440 LPRINT
5450 LPRINT
5460 LPRINT
5470 LPRINT
5480 LPRINT
5490 LPRINT
5500 LPRINT
5510 LPRINT
5520 LPRINT
5530 LPRINT
5550 LPRINT
одной"
"	нормальной к продольной оси элемента плоскости,"
"	пересекающих наклонное сечение"
"18) Es /МПа/ Модуль упругости арматуры, т.29 СНиП 2.03.01-84"
"19) ЕЬ /МПа/ Модуль ыпругости бетона, т. 18 СНиП 2.03.01-84"
”20) ВЕТ К-нт в формуле (74) СНиП /1/"
”21) А /см/ Величина пролета среза,принимаемая при действии"
” нагрузки в виде сосредоточенных сил равной рас-"
" стоянию от оси опоры до линиидействия ближайшей"
" к ней силы ;при действии равномерно распределен-”
" ной нагрузки А=0.25*1 /I-расчетн. пролет эл-та/"
И	fv
«И м а* о»	"43»® «К»»	в» вьо» 4Ж> ЙХ1 де «в 0	«ю я» «I» «к «м «а	де» « де* м» к де» А «•» М м	«я я» «» ж» п* м» « м»
6000 GOTO 340
98
Приложение 5.
Текст рабочей программы GBK5
5 DIM А(20)
11 TT5=0:ZZ8==0:YY6=0
. 00 PRINT "Проверка прочности наклонных сечений при действии поперечной
силы”
110 PRINT ’’^^фф^*^^#^*^***^^*^^**^**^*^*^**#^*^*^*^5^*^*#*”
i 20 PRINT ” 1) Rsw /МПа/ Расчетное сопротивление поперечной арматуры рас-
тяжению т.22"
121 PRINT ”	СНиП 2.03.01-84”
135 IF ZZ8=8 GOTO 720
МО PRINT" 2) Es /МПа/ Модуль упругости арм-ры т.29 СНиП 2.03.01-84 (1)”
155 IF ZZ8=8 GOTO 720
‘ 60 PRINT ’’ 3) ЯЬ(т) /МПа/ Расчетное сопротивление бетона осевому сжатию
(призме-”
170 PRINT ”	нал прочность) табл. 13 СНиП 2.03.01-84 (1)”
175 IF ZZ8=8 GOTO 720
180 PRINT ” 4)RM(t) /МПа/ Расчетное сопротивление бетона растяжению по
предельным состо-”
I81 PRINT ” линям 1 -ой группы табл. 13 СНиП 2.03.01-84 (1)’’
185 IF ZZ8=8 GOTO 720
’90 PRINT ” 5) Eb /МПа/ Модуль упругости бетона т. 18 СНиП 2.03.01-84 (1 )*'
205 IF ZZ8=8 GOTO 720
210 PRINT ’ 6) Asw /ммЛ2/ Площадь сечения хомута, расположенного в
нормальной плоскости”
211 PRINT ” к продольной оси эл-та”
215 IF 228=8 GOTO 720
220 PRINT ” 7) п Кол-во ветвей хомутов (поперечных стержней),
входяшихв норма-"
230 PRINT " льное поперечное сечение элемента"
235 IF ZZ8=8 GOTO 720
240 PRINT " 8) Q /Н/ Расчет, значние поперечной силы от полной расчет,
нагрузки Q>0"
255 IF ZZ8=8 GOTO 720
260 PRINT " 9) P /Н/ Усилие предварит, обжатия бетона с учетом всех потерь
преднапр."
265 IF ZZ8=8 GOTO 720
270 PRINT " 10) С /мм/ Длина проэкции расчетного наклонного сечения на
продольную”
271 PRINT" ось эл-та, С < Со, С < 2*ho"
275 IF ZZ8=8 GOTO 720
280 PRINT " 11) b /мм/ Ширина прямоугольн. сечения или ребра тавр, (двутавр)
сечения"
305 IF ZZ8=8 GOTO 720
310 PRINT ”12) bf /мм/ Ширина полки тавр, (двутавр.) сечения находящейся в
сжатой зоне"
311 PRINT" bf<b+3bf"
325 IF ZZ8=8 GOTO 720
99
Продолжение приложения 5
329 INPUT "1-продолжить" ;А66
330 PRINT ”13) ho /мм/ Рабочая (полезная) высота сечения"
345 IF ZZ8=8 GOTO 720
350 PRINT "14) hf /мм/ Высота сжатой полки таврового (двутавр/' сечения "
365 IF ZZ8=8 GOTO 720
370 PRINT ”15) оЪ2 Коэф-нт принимаемый по п.3.31 СНиП 2.03.01-84"
385 IF ZZ8=8 GOTO 720
390 PRINT ”16) оЪЗ Коэф-нт принимаемый по п.331 СНиП 2,03.01-84"
395 IF ZZ8=8 GOTO 720
400 PRINT ”17) $ Коэф-нт принимаемый по п.3.30 СНиП 2.03.01-84"
415 IF ZZ8=8 GOTO 720
420 PRINT " 18) &Ь2 Коэфф-нт условия работы бетона, п.2 т. 15 СНиП 2.03.01 -84"
425 IF ZZ8=8 GOTO 720
430 PRINT ”19) &bi Произведение тех к-тов условий работы п.п.З-12”
431 PRINT"	таб. 15 (1),которые соответствуют фактическим”
432 PRINT " условиям работы элемента”
455 IF ZZ8=8 GOTO 720
460 PRINT "20) S /мм/ Шаг постановки поперечной арматуры (хомутов )’’
475 IF ZZ8=8 GOTO 720
476 PRINT "0-Вернуться в начало списка".'PRINT " 1-Распечатать список"
477 INPUT ”2-Продолжить";А67
478 IF А67=0 GOTO 11
479 IF A67=l GOTO 5000
500 ZZ8=8
510 INPUT "Введите фамилию"; А$
520 INPUT "группу";В$
530PRINT" ВВОД ДАННЫХ”
535 PRINT ”	AAAAAAJ\A^J\^yV^A7\AAA.AAA/V^ysA.A/\AAA.^^^
540 FOR J=1 TO 20
550 IF J=1 GOTO 120
560 IF 1=2 GOTO 140
570 IF J=3 GOTO 160
580 IF J=4 GOTO 180
590 IF J=5 GOTO 190
600 IF J=6 GOTO 210
610 IF J=7 GOTO 220
620 IF 1=8 GOTO 240
630 IF J=9 GOTO 260
640 IF 1=10 GOTO 270
650IFJ=ll GOTO 280
660 IF J=12 GOTO 310
670 IF J=13 GOTO 330
680 IF J=14 GOTO 350
690 IF J=15 GOTO 370
700 IF J=16 GOTO 390
710 IF J=17 GOTO 400
711 IF J=18 GOTO 420
712 IF 1=19 GOTO 430
100
Лрооолжение приложения 57
713 IF >20 GOTO 460
720 INPUT A(J)
730 IF YY6-6 GOTO 755
732 NEXT J
755 PRINT "	______________________________________”
XXT»* »ПЬ|И«М1Х1)1НГ>~1 IL IlJinno • -  I ! |I I  I   111 Л' "ГТ71 ITl 1 _ » I ir — »» J4 I"  ——» «     1 4>. J 11 «—»ч iim—^^^иистм AJXl * -**
756 PRINT ” "
758 PRINT ”«««««« ♦ GBK5 ♦	";A$;M ";B$;"»»»»»»>”
760PRINT" l)Rsw “*;А(1);"МПа";ТАВ(120);*11)Ь =’’;A(11);"mm"
770PRINT” 2)Es -”;A(2);"MIIa";TAB(120);"12)bf =";А(12);"мми
780 PRINTM 3)Rb(T) =’';А(3);"МПа";ТАВ(120);”13)Ьо =";А(13);"мм"
790 PRINT " 4)Rbt(T)="sA(4);*’Mna";TAB(120);" 14)hf =”;А(14);"мм"
800 PRINT " 5)Eb =г’;А(5);’’МПа”;ТАВ(120);"15)пЬ2 =";A(15)
§ 10 PRINT ”6) As w =";А(6);*ммл2";ТАВ(120);"16)аЬЗ =”;A(16)
820 PRINT " 7)n ~";A(7);TAB(120);" 17)$ =";A(17)
830 PRINT ”8)Q =";A(8);"H’’;TAB(120);'T8)&b2 =";A(18)
840 PRINT ” 9)P =”;A(9);"H";TAB(120);’T9)&b! =";A(19)
850 PRINT ” 10)C =";A(10);"mm";TAB(120);"20)S =";A(20);"mm"
860 PRINTT.'"
952 IF TT5=0 GOTO 962
953 PRINT "I-Продолжить счет этого варианта, изменив некоторые входные
параметры"
955 PRINT "2~Счет программы заново"
956 INPUT "3-Выход из программы";МА8
957 ТТ5=0
958IFMA8-1 GOTO 1020
959 IF МА8=2 GOTO 11
960 IF МА8=3 THEN STOP
962RSW=A(1):ES=A(2):RBTO=A(3):RBTTO=A(4):EB=A(5):ASW=A(6):
N=A(7):Q=A(8):P=A(9)
963 C=A(10):B=A(l 1):BF=A(12):HO==A(13):HF=A(14):FI2=A(15):FI
B3=A(16)
964 BET=A( 17):GB2=A( 18):GB>A( 19):S=A(20)
968 INPUT "Хотите что-нибудь исправить (1-Да 2-Нет)”;YZ
970 IF YZ=2 GOTO 2000
980 INPUT "Введите номер изменяемой переменной";!
990YY6=6
1000 GOTO 550
1010 GOTO 2000
1020 INPUT "Будем изменять фамилию (1-Да 2-Нет)”;ККЗ
1030 IF ККЗ=2 GOTO 1050
1040 INPUT "Введите фамилию";А$
1050 INPUT "Будем изменять группу (1-Да 2-Нет)" ;КК4
1060 IF КК4=2 GOTO 755
1070 INPUT "Введите группу" ;В$
1080 GOTO 755
2000 RB=RBTO*GB2*GBI
2001 ХХ8=Ю
2005 ХХХ=0
101
Продолжение приложения 5.
2010 RBT=RBTTO*GB2*GB1
2020 FW1=1-5*ES/EB*ASW*N/(B*S)
2030 FB1=1-BET*RB
2040 Ql= 3*FW1*FB1*RB*B*HO
2050 IF Q>Q1 GOTO 2295
2060 KSW=RSW*N*ASW/S
2070 IF BF>B+3*HF THEN BF=B+3*HF
2080 FF= 75*HF*(BF-B)/(B*HO)
2090 IF FF>.5 THEN FF= 5
2100 ZN=. 1 *P/(RBT*B*HO)
2110 IF ZN>.5 THEN ZN= 5
2120 F=1+FF+ZN
2130 IF F>1.5 THENF=1.5
2140 KSW1= 5*RBT*B*FIB3*F
2150 IF KSW>=KSW1 GOTO 2215
2160 QB=FI2*F*RBT*B*HOA2/C
2170 QB1=FIB3*F*RBT*B*HO
2180 IF QB<QB1 THEN OB-QB1
2190 CO=HO*SQR(FI2*( 1+FF+ZN)*RBT*B/KS W)
2200 CO1=FIB3*RBT*B*HO*F/KSW
2210 IF CO<CO1 THEN CO-CO 1
2212 GOTO 2220
2215 CO=SQR(2*HOA2*KSW*FI2/FIB3)
2220 IF CO>2«HO THEN CO=2*HO
2230 IF OCO THEN C=CO
2240 IF C<HO THEN C-HO
2250 QB=FI2*F*RBT*B*HOA2/C
2260 QSW=KSW*C
2270 QU=QB+QSW
2280 DQ=QU-Q
2285 XXX=1
2290 IF DQ<Q THEN XXX-2
2292 GOTO 2760
2295 XXX=1:XX8=8
2760PRINT" РЕЗУЛЬТАТЫ СЧЕТА"
2765 PRINT и .................."
2766 IF XXX-1 THEN PRINT "Необходимо увеличить размеры поперечного
сечения или интенсивность"
2767 IF ХХХ=1 THEN PRINT " поперечного армирования "
2770 IF ХХ8=8 GOTO 2820
2800 PRINT "Поперечная сила, воспринимаемая бетоном сжатой зоны Qb=";
QB;"H"
2802 PRINT "Поперечная сила, воспринимаемая хомутами Qsw="; QSW;"H"
2804 PRINT "Поперечная сила, воспринимаемая наклонным сечением
Qu=";QU;"H"
2806 PRINT "Отклонения величины поперечной силы, воспринимаемая
наклонным сечением,”
102
приложения S.
2807 PRINT "от поперечной силы, возникающей от внешней нагрузки AQ-DQ;
”Н"
2820 PRINT",.........................."
3810 INPUT "Желаете распечатать результаты счета (1-Да, 2-Нет) ";LI5
3815 ТТ5=5
3816 IF LI5=2 GOTO 755
3817 LPRINT "Проверка, прочности наклонных сечений при действии"
3818 LPRINT" поперечной силы * GBK5 ♦"
3^-19 LPRINT н*£$фф*$ф^*^*^$*фф^*^*ф**^ф*^*а®!**1®Е***^*******г^*1’
3820 LPRINT " ”
3830LPRINT" ИСХОДНЫЕ ДАННЫЕ "
3840 LPRINT " алалллалаллаааааалаалаалллааалалалллааан
3850 LPRINT ’•______________:____________________________
3860 LPRINT""
3870 LPRINT"«« ♦ GBK5 * ";А$;” ";B$;”»»"
3880 LPRINT" l)Rsw =”;A(l);BMIIa";TAB(l 10);”l l)b =”;A(11);”мм"
3890LPRINT" 2)Es =";А(2);"МПа";ТАВ(110);”12)bf =";A(12);”mm"
3900 LPRINT " 3)Rb(x) =";А(3);"МПа";ТАВ( 110);" 13)ho =”;A( 13);"мм"
3910 LPRINT " 4)Rbt(T)=";A(4);"Mna";TAB(l 10);”14)hf =";A(14);”mm"
3920 LPRINT " 5)Eb =";А(5);"МПа";ТАВ(110);”15)оЬ2 =";A(15)
3930 LPRINT " 6)Asw =";А(6); ’ммЛ2";ТАВ(110);"16)аЬЗ =";A(16)
3940 LPRINT ” 7)n =";A(7);TAB( 110);” 17)$ =”;A( 17)
3950 LPRINT " 8)Q =,,;A(8);"H";TAB(110);”18)&b2 =";A(18)
3960 LPRINT " 9)P =";A(9);"H”;TAB( 110);” 19)&bi =”;A( 19)
3970 LPRINT "10)C =";A(10);"mm";TAB(1 10);”20)S =";А(20);"мм”
3980 LPRINT"”
3990 LPRINT " "
4000LPRINT" РЕЗУЛЬТАТЫ СЧЕТА”
4010 LPRINT ••алааалалаллаааалааааалааалллааааалааалла..
4030 IF XXX=l THEN LPRINT "Необходимо увеличить размеры поперечного
сечения или "
4031 IF ХХХ= 1 THEN LPRINT "интенсивность поперечного армирования "
4035 IF ХХ8=8 GOTO 4080
4040 LPRINT "Поперечная сила, воспринимаемая бетоном сжатой"
4041 LPRINT "зоны Qb=,,;QB;"H"
4050 LPRINT "Поперечная сила, воспринимаемая хомутами Qsw=";QSW;"H"
4060 LPRINT "Поперечная сила, воспринимаемая наклонным"
4061 LPRINT "сечением Qu=";QU;"H"
4070 LPRINT "Отклонения величины поперечной силы, воспринимаемая"
4071 LPRINT "наклонным сечением, от поперечной силы, возникающей от"
4072 LPRINT "внешней нагрузки
4080 ТТ5=5
4090 GOTO 755
5000 LPRINT " Список исходных данных к программе * GBK5 ♦"
5005LPRINT” ------------------------------
5010 LPRINT"”
5020 LPRINT "Проверка прочности наклонных сечений при действии"
5021 LPRINT " поперечной силы * GBK5 ♦"
103
5030
5035
5036
5050
5060
5070
5080
5090
5100
5110
5120
5130
5140
5150
5160
5170
5175
5180
5185
5190
5200
5210
5215
5220
5225
5240
5250
5260
5270
5280
5290
5300
5310
5320
5330
5359
5360
6000
6100
104
Окончание пошюжения 5.
LPRINT И $ ф ф $ ф ф ф ф ф ф # $'	% $ %% % * $ $ Ф Ф ¥ % Ф % $ ф Ф ф %. ф ф $ 7$ %. ф ф $ ф $ ф ф PC
LPRINT " "
'Ё	*1^ «мтн., ... тжжжж.т. I. ^ггстхота .  — n<wn afc	 w>	—I	жт-rwuu	ж ...  ти.тш».  ,
I tpj К [ Ь "**" 11	-—Ч	—ж,.—.     . |.  ЛТ " L IBI  Г. Т УГ«.-~ J —  1 Г  ! 
LPRINT "1) Rsw /МПа/ Расчетное сопротивление поперечной арматуры"

LPRINT"
LPRINT ” 2) Es /МПа/ Модуль упругости арм-ры т.29 СНиП 2.03.01-84 (I).
LPRINT " 3) Е.Ь(т) /МПа/ Расчетное сопротивление бетона осевому сжатию-
LPRINT *	(призменная прочность) т. 13 СНиП 2.03.01 -84 (I).
LPRINT " 4)Rbt(x) /МПа/ Расчетное сопротивление бетона растяжению по
ft
LPRINT ’ дель. сост. 1 -ой группы т. 13 СНиП 2.03.01 -84 (1
LPRINT * 5) Eb /МПа/ Модуль упругости бетона т. 18 СНиП 2.03.01 -84
LPRINT " 6) Asw /ммЛ2/ Площадь сечения хомута, расположенного в нор-в
LPRINT "
LPRINT " 7) n
LPRINT "
LPRINT " 8) Q
LPRINT "
LPRINT " 9) P
LPRINT ,f
LPRINT ”10) C
LPRINT "
LPRINT "ll)b
Z‘ « \
b Ь и
ft
мальной плоскости к продольной оси эл-та."
Кол-во ветвей хомутов (поперечных стержней) ,вхо-г’
дящих в нормальное поперечное сечение элемента. "
/И/ Расчет?, значние поперечной силы от полной рас»"
, четной нагрузки, Q > 0 .
/Н/ Усилие предварительного обжатия бетона с учетом"
всех потерь преднапряжения."
/мм/ Длина проэкции расчетного наклонного сечения на"
продольную ось эл-та, С < Со, С < 2*ho."
/мм/ Ширина прямоугольного сечения или ребра
таврового"
(двутаврового) сечения."
LPRINT"
LPRINT " 12) bf /мм/ Ширина полки таврового (двутаврового) сечения "
LPRINT " находящейся в сжатой зоне bf < b+3bf."
LPRINT ”13) ho /мм/ Рабочая (полезная) высота сечения."
LPRINT "14) hf /мм/ Высота сжатой полки таврового (двутавр.) сечения .
LPRINT "15) оЪ2
LPRINT "16) оЪЗ
LPRINT ”17) $
LPRINT ”18) &Ь2
LPRINT ”19) &bi
LPRINT"
LPRINT "
LPRINT ”20) S /мм/ Шаг постановки поперечной арматуры (хомутов)
LPRINT "= ========----------::z -....... -... ,
GOTO 476
STOP
END
Коэф-нт принимаемый по п.3.31СНиП 2.03.01-84.
Коэф-нт принимаемый по п.3.31СНиП 2.03.01-84.
Ксэф-нт принимаемый по п.3.30 СНиП 2.03.01-84.
Коз
Произведение тех к-тов условий работы п.п.З-12
таб.15 (1),которые соответствуют фактическим"
условием работы элемента."

II
н
W
нт условия работы бетона, п.2 т.15 (1)"
it
___к
Приложение 6.
Текст программы GBKN на языке BASIC
1	DIM А(20)
11	TT5-0:ZZ8-0:YY6==0
100 PRINT "Расчет рабочей несимметричной арматуры внецентренно сжатых"
101 PRINT "	ЖБ элементов ♦ GBKN *"
110 PRINT м**********************************************************п
120 PRINT " 1) Rb(T) /МПа/ Расчетное сопротивление бетона осевому сжатию
(призме-"
130 PRINT "	ная прочность) для предел, состояний 1-ой гр. таб. 13 [1]"
135 IF ZZ8=8 GOTO 720
140 PRINT " 2) Rs /МПа/ Расчетное сопротивление арматуры растяжению для
преде-"
150 PRINT "	льных состояний 1-ой гр. таб.22 [1]"
155 IF ZZ8=8 GOTO 720
160 PRINT " 3) Rsc /МПа/ Расчетное сопротивление арматуры сжатию для преде-"
170 PRINT " льных состояний 1-ой гр. таб.22 [1]"
175 IF ZZ8=8 GOTO 720
180 PRINT " 4) Es /МПа/ Модуль упругости арматуры таб.29 [1]"
185 IF ZZ8-8 GOTO 720
190 PRINT " 5) Eb /МПа/ Модуль упругости бетона таб. 18 [1]"
195 IF ZZ8-8 GOTO 720
200 PRINT " 6) в /см/ Ширина сечения"
205 IF ZZ8-8 GOTO 720
210 PRINT " 7) h /см/ Высота сечения"
215 IF ZZ8=8 GOTO 720
220 PRINT " 8) а /см/ Расстояние от арматуры, растянутой внешним моментом, "
230 PRINT "	до ближайшей грани бетона"
235 IF ZZ8=8 GOTO 720
240 PRINT " 9) а' /см/ Расстояние от арматуры, сжатой внешним моментом,"
250 PRINT " до ближайшей грани бетона"
255 IF ZZ8=8 GOTO 720
260 PRINT ’10) Lo /см/ Расчетная длина элемента, сечение которого
рассматривается"
265 IF ZZ8=8 GOTO 720
270 PRINT ”11) &Ь2 К-нт условия работы бетона п.2 таб. 15 [1]"
275 IF ZZ8=8 GOTO 720
280 PRINT "12) &bi Произведение тех к-тов условий работы п.п.3-12"
290 PRINT "	таб.15 [1],которые соответствуют фактическим"
300 PRINT "	условиям работы элемента"
305 IF ZZ8=8 GOTO 720
309 INPUT "1-предолжить";А66
310 PRINT " 13) N /Н/ Расчетное значение продольной сжимающей силы при "
320 PRINT "	полной расчетной нагрузке (N > 0)"
325 IF ZZ8=8 GOTO 720
330 PRINT "14) M /Нем/ Расчетное значение изгибающего момента при полной"
340 PRINT "	расчетной нагрузке (М >= 0)"
345 IF ZZ8=8 GOTO 720
105
Продолжение приложения 6.
350 PRINT "15) NL /Н/ Расчетное значение продольной сжимающей силы от"
360 PRINT "	постоянной и длительной нагрузок"
365 IF ZZ8=8 GOTO 720
370 PRINT "16) ML /Нем/ расчетное значение изгибающего момента при
постоянной"
380 PRINT "	и длительной нагрузках (М >= 0)"
385 IF ZZ8=8 GOTO 720
390 PRINT "17) BET К-нт в формуле (21) [1]"
395 IF ZZ8=8 GOTO 720
400 PRINT ”18) ALFA К-нт в формуле (26) [1],принимаемый 0.85-для тяжелого"
410 PRINT "	бетона, 0.8-для бетона на легких заполнителях"
415 IF ZZ8=8 GOTO 720
420 PRINT " 19) SN	Признак статической неопредилимости системы, в"
430 PRINT "	которую входит рассчитываемый элемент. Если эле-"
440 PRINT"	мент входит в состав статически Неопределимой "
450 PRINT"	системы, то SN=1, иначе SN=0"
455 IF ZZ8=8 GOTO 720
460 PRINT "20) As min.k /кв.см/ Минимально допустимая по конструктивным
сообра-"
470 PRINT "	жениям площадь сечения продольной арматуры п.5.16 [1]"
475 IF ZZ8=8 GOTO 720
476 PRINT "0-Вернуться в начало списка"
477 INPUT "1-Продолжить";А67
478 IF А67=0 GOTO 11
500 ZZ8 8
510 INPUT "Введите фамилию";А$
520 INPUT "группу";В$
530 PRINT " В В О Д Д А Н Н Ы X"
535 PRINT ” aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa..
540 FOR J=1 TO 20
550 IF J=1 GOTO 120
560 IF 1=2 GOTO 140
570 IF J=3 GOTO 160
580 IF J=4 GOTO 180
590 IF 1=5 GOTO 190
600 IF J=6 GOTO 200
610 IF J=7 GOTO 210
620 IF J=8 GOTO 220
630 IF J=9 GOTO 240
640 IF J=10 GOTO 260
650 IF J=11 GOTO 270
660 IF J=12 GOTO 280
670 IF J=13 GOTO 310
680 IF J=14 GOTO 330
690 IF J= 15 GOTO 350
700 IF J= 16 GOTO 370
710 IF J=17 GOTO 390
711 IF J=18 GOTO 400
106
Продолжение приложения 6.
712 IF J= 19 GOTO 420
713 IF J=20 GOTO 460
720 INPUT A(J)
730 IF YY6=6 GOTO 755
732 NEXT J
755 PRINT "_____________________________________________________________
756 PRINT " "
758 PRINT "««< * GBKN ♦ ”;A$;" ";B$;” >»»’’
760 PRINT ” l)Rb(T) ~";А(1);"МПа";ТАВ(120);"1 1)&Ь2=";А(11)
770 PRINT " 2)Rs=";A(2);"MHa";TAB(120);"12)$bi=";A(12)
780 PRINT " 3)Rsc=";A(3);f,MHa";TAB(120);"13)N=";A(13);"H"
790 PRINT " 4)Е5=";А(4);"МПа";ТАВ(120);"14)М=";А(14);"Н*см"
800 PRINT " 5)Eb=";A(5);"Mna";TAB(120);"15)NL-’;A(15);"H"
810 PRINT " 6)b==";A(6);"cm";TAB(120);"16)ML-’;A(I6);"H*cm"
820 PRINT " 7)h-’;А(7);"см";ТАВ(120);"17)ВЕТ=";А(17)
830 PRINT " 8)a-’;A(8);"cM";TAB(120);’T8)ALFA=";A(18)
840 PRINT " 9)a-";A(9);"cM";TAB(120);”19)SN=";A(19)
850 PRINT "10)Lo=";A(10);"cm";TAB(120);"20)As ппп.к=";А(20);"кв.см”
860
PRINT”
952 IF TT5=0 GOTO 962
953 PRINT "1-Продолжить счет этого варианта, изменив некоторые входные
параметры"
955 PRINT "2-Счет программы заново"
956 INPUT "3-Выход из программы";МА8
957 ТТ5=0
958 IF МА8=1 GOTO 1020
959 IF МА8=2 GOTO 11
960 IF МА8=3 THEN STOP
962 RPT==A(1):RA=A(2):RAS=A(3):EA=A(4):EB==A(5):B=A(6):H=A(7)
:A=A(8):AS=A(9)
963 LO=A(10):MB1=A(11):MBI=A(12):N=A(13):M=A(14):NDL=A(15):
MDL=A(16)
964 BET=A(17):A3 l=A(18):SN=A(19):FMIK=A(20)
968 INPUT "Хотите что-нибудь испавить (1-Да 2-Нет)" ;YZ
970 IF YZ=2 GOTO 2000
980 INPUT "Введите номер изменяемой переменной";!
990 YY6=6
1000 GOTO 550
1010 GOTO 2000
1020 INPUT "Будем изменять фамилию (1-Да 2-Нет)" ;ККЗ
1030 IF ККЗ=2 GOTO 1050
1040 INPUT "Введите фамилию";А$
1050 INPUT "Будем изменять группу (1-Да 2-Нет)";КК4
1060 IF КК4=2 GOTO 755
1070 INPUT "Введите группу";В$
1080 GOTO 755
107
Продолжение приложения 6.
2000 RPT-RPT* 10:RA=R А* 10:RAS=RAS* 10:EA=EA* 10:ЕВ=ЕВ* 10:N=N/l
0:M=M/I0
2008 NDL=NDL/10:MDL=MDL/10
2009 HOH-A
2010 ZA=H0-AS
2020 NAB=EA/EB
2030 Cl= 5*ZA
2040 RI= 289*H
2050 FB=B*H
2060 IB=FB*H*H/12
2070 RP=RPT*MB 1 *MBI
2080 Rl=H/30
2090 R2-LO/600
2095 ESL=1
2100 IF R1>R2 THEN IF R1>1 THEN ESL=R1
2120 IF R2>R1 THEN IF R2>1 THEN ESL=R2
215OR1=M/N
2160 IF SN-1 THEN IF R1>ESL THEN EO=R1
2170 IF SN=1 THEN IF ESL>R1 THEN EO=ESL
2180 IF SN=0 THEN EOR1+ESL
2210 R2-MDL/NDL
2220 IF SN=1 THEN IF R2>ESL THEN EODL=R2
2230 IF SN=1 THEN IF ESL>R2 THEN E0DL=ESL
2240 IF SN=0 THEN E0LD-R2+ESL
2270 KSIOA3 l-.0008*RP
2275 SAS=5000
2280 IF MB1>.85 THEN SAS=4000
2300 KSIR=KSI0/( 1 +(RA/SAS)* (1 -KSIO/1.1))
2310R3-.5*H/HO
2320 IF KSIR<R3 THEN R3=KSIR
2330 AOR3*(1-.5*R3)
2340 T1=.5-.01*LO/H-.001*RP
2350 T-EO/H
2360 IF T1>T THEN T=T1
2365 KDL= 1 +BET*(NDL*(EODL+C 1 )/(N*(EO+C 1)))
2370 IF MDL<0 THEN KDL=1
2400 TDL=(. 11/(. 1+T)+. 1 )/KDL
2410 D=6.4*EB/LOA2
2420 MB=RP*B*H0*H0
2430 M0=A0*MB
2440 NB=RP*B*H0
2450 S=RAS*ZA
2460 LOR=LO/RI
2470 IF L0R<17 THEN Rl=.05
2480 IF R1-.05 GOTO 2540
2490 IF LOR<=35 THEN R1=. 1
2500IFRl=. 1 GOTO 2540
2510 IF LOR<=83 THEN Rl=.2
108
Продолжение приложения 6.
2520 IF Rl=.2 GOTO 2540
2530 Rl= 25
2540 FAM=. 01*R1*B*HO
2550 IF FMIK>FAM THEN FAM=FMIK
2570 PRINT "Присваеваем первичное значкние ETA-1.1"
2580 ETA-1.1
2590 E=EO*ETA+C1
2600 FASH=(N*E-MO)/S
2610 IF FAM>FASH THEN FASH-FAM
2620 AO=(N*E-S*FASH)/MB
2630 KSI=1-SQR(1-2*AO)
2640 FAII-(NB*KSI-N+RAS*FASH)/RA
2650 IF FAM>FAH THEN FAH-FAM
2660 EOP=(NAB ♦ (FAH-FASH)* С1 )/(FB+NAB *(FAH+FASH))
2670 I=IB+FB*EOPA2
2680 IA=(EOP+C 1 )A2*F ASH+(C 1 -EOP)A2*FAH
2690 NKR-D*(I*TDL+NAB*IA)
2700 IF N>NKR THEN NKR=1.25*N
2710 ETA 1=1/(1-N/NKR)
2720 IF ABS(ETA-ETAl)<.01 GOTO 2750
2730 ETA=.5*(ETA+ETA1)
2740 GOTO 2590
2750 IF ETA>4.95 THEN FAH-9E+14
2751 IF ETA>4.95 THEN FASH-9E+14
2752 IF ETA>4.95 THEN PRINT "Исчерпание несущей способности
происходит из-за"
2753 IF ЕТА>4.95 THEN PRINT "потери устойчивости. Надо увеличить размеры
по-"
2754 IF ЕТА>4.95 THEN PRINT "перечного сечения"
2759 NKR=NKR*10
2760PRINT" РЕЗУЛЬТАТЫ СЧЕТА"
2765 PRINT "	..................."
2770 PRINT "Площадь рабочей растянутой арматуры Ash=";FAH;"kb.cm"
2780 PRINT "Площадь рабочей сжатой арматуры Asc=";FASH;"kb. см"
2790 PRINT "Относительная высота сжатой зоны бетона KSI=";KSI
2800 PRINT Транич. значение относите л. высоты сжатой зоны бетона
KSIR=";KSIR
2810 PRINT "Условная критическая сила Nc4=";NKR;"H"
2820 PRINT "......................."
3810 INPUT "Желаете распечатать результаты счета (1-Да, 2-Нет)";Ы5
3815ТТ5=5
3816 LPRINT "Расчет рабочей несимметричной арматуры внецентренно сжатых"
3817 LPRINT "	ЖБ элементов ♦ GBKN ♦"
3819 LPRINT " "
3821 LPRINT" ИСХОДНЫЕ ДАННЫЕ"
3822 LPRINT " az^aaaaaaaaaa^aaaaaaaaaa^aaaaaaaaa^aaa..
3840 LPRINT "
109
Окончание приложения 6.
3850 LPRINT " "
3860 LPRINT ’’<«« * GBKN * ”;A$;"	>»»’’
3870 LPRINT " l)Rb(T) =";А(1);"МПа";ТАВ(110);”l 1)&Ь2=";А(11)
3880-LPRINT ” 2)Rs-';A(2);"Mria";TAB(l 10);"12)$bi-";A(12)
3890 LPRINT " 3)Rsc-';A(3);”Mria";TAB(l 10);"13)N=";A(13);"H"
3900 LPRINT " 4)Es=";A(4);"Mna";TAB(l 10);"14)М=";А(14);”Н*см"
3910 LPRINT ” 5)ЕЬ=”;А(5);"МПа";ТАВ(110);"15)NL=”;A(15);"H"
3920 LPRINT ’’ 6)в-’;А(6);"см";ТАВ(1 10);"16)ML=";A(16);"H*cm"
3930 LPRINT " 7)Ь=";А(7);"см";ТАВ(1 10);"17)BET=";A(17)
3940 LPRINT " 8)a-’;A(8);"cm";TAB(110);"18)ALFA=";A(18)
3950 LPRINT " 9)а-";А(9);"см";ТАВ(110);"19)SN=";A(19)
3960 LPRINT "10)Lo=";A(I0);"cm";TAB(1 10);"20)As тщ.к=";А(20);"кв.см"
3965 LPRINT "__________________________________________________________
3970 LPRINT " ”
3971 LPRINT” РЕЗУЛЬТАТЫ СЧЕТА"
3972 LPRINT "
3980 LPRINT "Площадь рабочей растянутой арматуры Ash— ’;FAH;"kb.cm"
3990 LPRINT “Площадь рабочей сжатой арматуры Asc=";FASH;"kb.cm"
4000 LPRINT "Относительная высота сжатой зоны бетона KSI="; KSI
4010 LPRINT "Гранин, значение относится. высоты сжатой зоны"
4011 LPRINT "бетона KSIR=”;KSIR
4020 LPRINT "Условная критическая силаИсч- ’;NKR;"H"
4030 ТТ5=5
4040 GOTO 755
5000 STOP
6000 END
й!
ф
JQ
й
Продол жние приложния 7.
R1=M/N; IF SN=1 THEN IF R1>ESL THEN EO=RI; ELSE EO=ESL;
IF SN=O THEN EOR1+ESL; R2=MDL/NDL;
IF SN=1 THEN IF R2>ESL THEN E0DL=R2; ELSE EODL=ESL;
IF SN=0 THEN E0DL=R2+ESL; KSIO=A31-0.0008*RP;
IF MBl>0.85 THEN SAS=4000; ELSE SAS=5000;
KSIR=KS10/( 1+(RA/SAS)*( 1-KSI0/1.1)); R3=0.5*H/HO;
IF KSIR<R3 THEN R3=KSIR; AO=R3*(1-0.5*R3);
T1=0.5-0.01*LO/H-0.001*RP; T=EO/H; IF T1>T THEN T=T1;
IF MDL<0 THEN KLD=1; ELSE WL=1+BET*(NDL*(EODL+C1)/(N*(EO+C1)))
TDL=(0.11/(0.1+T)+0.1)/KDL; D=6.4*EB/LO**2;
MB=RP*B*H0*H0; M0=A0*MB; NB=RP*B*H0; S=RAS*ZA; L0R=L0/RI;
IF L0R<17 THEN R 1=0.05;
ELSE IF LOR<=35 THEN Rl=0.10;
ELSE IF LOR<83 THEN Rl=0.20;
ELSE	R 1=0.25;
FAM=0.01*R1*B*HO; IF FMIK>FAM THEN FAM=FMIK;
PUT SKIP(6) EDIT(TIP ИСВ АИВAE МПЕРВ0Е 3НАЧЕНИ E ETA=1.10’)
(X(19),A);
ETA=1.10;
М2: E=EO*ETA+C1; FASH=(N*E-M0*100.)/S*100.; IF FAM>FASH THEN FASH=FAM;
AO=(N*E-S*FASH* 100.)/MB* 1000.; KSI=1 -SQRT( 1 -2*AO);
FAN=(NB*KSLN+RAS*FASH*100.)/RA*100.; IF FAM>FAH THEN FAH=FAM;
EOP=(NAB*(FAH-FASH)*C1)/(FB+NAB*(FAH+FASH));
I=IB+FB*EOP**2; IA=(EOP+C1)**2*FASH+(C1-EOP)**2*FAH;
NKR=D*(I*TDL+NAB*IA)*100.; IF N>NKR THEN NKR=1.25*N;
ETAl=l/(l-N/NKR); IF ABS(ETA-ETAl)<0.01 THEN GO TO Ml;
ETA=0.5*(ETA+ETAl); GO TO М2;
Окончание приложния 7.
Ml: IF ETA>4.95 THEN FAH,FASH=0.9E15;
PUT SKIP(3) EDIT(P ЕЗУЛЬТАТЫ СЧЕТА:',
ПЛОЩХДЬ РАСТЯНУТОЙ АР МАГУРЫЧЕАН,
ПЛОЩАДЬ СЖАТОЙ АР МАГУРЬКЕАЗН,
ОТНОСИТЕЛЬНАЯ В ЫС СТА СЖАТОЙ 3 ОН ЫБЕТ О Н A?£.SI,
ГРАНИЧНОЕ ЗНАЧЕНИЕ ОТНОСИТЕЛЬНОЙ ВЫСОТ ЫС ЖАТОЙ ЗОНЫ БЕТОНА-,
KSIR,yСЛОВНАЯ КРИГ ИЧЕСКАЯ COA^NKR)
(X(44),A,SKIP(3),X(19),A,E(13,5),X(7),A,E(13,5),
3 (SKIP(2),X(19),A,E(13,5)));
PUT SKIP(6) EDIT((116)'-')(X(3),A); GO TO M4;
ME: END UNSYM;
//GO.SYSIN DD *
Приложение 8.
Текст рабочей программы GBKS на языке BASIC
1 DIM А(20)
11 TT5=0:ZZ8=0:YY6=0
100 PRINT "Расчет рабочей продольной арматуры внецентренно сжатых ЖБ"
101 PRINT'" элементов при симметричном армировании * GBKS*"
1W PRINT
120 PRINT " 1) Rb(T) /МПа/ Расчетное сопротивление бетона осевому сжатию
(призме-"
130 PRINT " нал прочность) для предел, состояний 1-ой гр. таб. 13(1]"
135 IF ZZ8=8 GOTO 720
140 PRINT " 2) Rs /МПа/ Расчетное сопротивление арматуры растяжению для
преде-"
150 PRINT " льных состояний 1 -ой гр. таб.22 [ 1 ]"
155IFZZ8-8GOTO720
180 PRINT " 3) Es /МПа/ Модуль упругости арматуры таб.29 [1]"
185 IF ZZ8-8 GOTO 720
190 PRINT " 4) Eb /МПа/ Модуль упругости бетона таб. 18(1]"
195 IF ZZ8-8 GOTO 720
200 PRINT " 5) в /см/ Ширина сечения"
205 IF ZZ8=8 GOTO 720
210 PRINT " 6) h /см/ Высота сечения"
215 IF ZZ8=8 GOTO 720
220 PRINT " 7) а /см/ Расстояние от центра тяжести сечения арматуры "
230 PRINT " до ближайшей грани сечения"
235 И’ ZZ8=8 GOTO 720
260 PRINT " 8) Lo /см/ Приведенная (расчетная) длина элемента"
265 IF ZZ8=8 GOTO 720
270 PRINT " 9) &bl К-нт условия работы бетона таб. 15 [1]"
275 IF ZZ8=8 GOTO 720
280 PRINT " 10) &bi	Произведение тех к-тов условий работы п.п.З-12"
290 PRINT"	таб. 15(1],которые соответствуют фактическим"
300 PRINT "	условиям работы элемента"
305 IF ZZ8=8 GOTO 720
310 PRINT " 11) N /Н/ Расчетное значение про дольной сжимающей силы при"
320 PRINT "	полной расчетной нагрузке (N > 0)"
325 IF ZZ8=8 GOTO 720
330 PRINT "12) M /Нем/ Расчетное значение изгибающего момента при
полной"
340 PRINT "	расчетной нагрузке (М >= 0)"
345 IF ZZ8=8 GOTO 720
349 INPUT" 1 -продолжить ";A66
350 PRINT " 13) NL /Н/ Расчетное значение продольной сжимающей силы от"
360 PRINT "	постоянной и длительной нагрузок"
365 IF ZZ8=8 GOTO 720
370 PRINT ”14) ML /Нем/ расчетное значение изгибающего момента при
постоянной"
380 PRINT "	и длительной нагрузках (М >= 0)"
114
Продолжение приложения 8.
385 IF ZZ8=8 GOTO 720
390 PRINT ”15) BET
395 IF ZZ8=8 GOTO 720
К-нт в формуле (21) [ 1 ]
и
400 PRINT " 16) ALFA К-нт в формуле (26) [ 1 ],принимаемый 0.85-дня тяжелого”
410 PRINT "	бетона, 0.8-для бетона на легких заполнителях”
415 IF ZZ8=8 GOTO 720
420 PRINT " 17) SN	Признак статической неопредилимости системы, в"
430 PRINT "	которую входит' расчитываемый элемент. Если эле-"
440 PRINT ”	мент входит в состав статически неопределимой "
450 PRINT "	системы, то SN-1, иначе SN=0"
455 IF ZZ8=8 GOTO 720
460 PRINT ”18) As nnn.k /кв.см/ Минимально допустимая по конструктивным
сообра-"
470 PRINT "	жениям площадь сечения продольной арматуры п. 5.16 [ 1 ]"
475 IF ZZ8-8 GOTO 720
476 PRINT "0-Вернутъся в начало списка"
477 INPUT "1-Продолжить" ;А67
478 IF А67=0 GOTO 11
500 ZZ8=8
510 INPUT "Введите фамилию" А$
520 INPUT "группу” ;В$
530PRINT" ВВОД ДАННЫХ"
535 PRINT " aaaaaaaa^xaaaaaaaaaaaaaa/
540 FOR >] ТО 18
550 IF >1 GOTO 120
560 IF J=2 GOTO 140
580 IF >3 GOTO 180
590 IF >4 GOTO 190
600 IF >5 GOTO 200
610 IF >6 GOTO 210
620 IF >7 GOTO 220
640 IF >8 GOTO 260
650 IF >9 GOTO 270
660 IF >10 GOTO 280
670 IF > 11 GOTO 310
680 IF >12 GOTO 330
690 IF >13 GOTO 350
700 IF >14 GOTO 370
710 IF >15 GOTO 390
711 IF >16 GOTO 400
712 IF >17 GOTO 420
713 IF >18 GOTO 460
720 INPUT A(J)
730 IF YY6=6 GOTO 755
732 NEXT J
755 PRINT "_________________________
756 PRINT ” "
758 PRINT "««< * GBKS * "AV »»>"
115
Продолжение приложения 8.
760 PRINT " l)Rb(T) =";А(1);"МПа";ТАВ(1 10);”10)&bi=”;A(10)
770 PRINT ’’ 2)Rs-’;A(2);"MHa";TAB(l 10);" 11)N=";A(11);"H"
790 PRINT " 4)Es—';А(3);"МПа";ТАВ(110);"12)M—’;A(12);"H*cm"
800 PRINT " 5)ЕЬ=";А(4);"МПа";ТАВ(110);"13)NL-';A(13);"H"
810 PRINT " 6)в=";А(5);"см";ТАВ(1 10);"14)ML=";A(14);"H*cm"
820 PRINT " 7)h-';A(6);"cm";TAB(1 10);"15)BET=";A(I5)
830 PRINT " 7)а-';А(7);"см";ТАВ(110);"16)ALFA=";A(16)
850 PRINT " 8)Lo=";A(8);"cm";TAB(1 10);"17)SN=";A(17)
855 PRINT " 9)&bl=";A(9);TAB(l 10);”18)As min.k=";A(18);"KB. cm"
860 PRINT""
952 IF TT5=0 GOTO 962
953 PRINT " 1 -Продолжить счет этого варианта, изменив некоторые входные
параметры"
955 PRINT "2-Счет программы заново"
956 INPUT "3-Выход из программы";МА8
957 ТТ5=0
958 IF МА8=1 GOTO 1020
959 IF МА8=2 GOTO 11
960 IF MA8=3 THEN STOP
962 RPT=A( 1 ):RA=A(2):EA=A(3):EB=A(4):B=A(5):H=A(6): A=A(7):L
O=A(8):MB1=A(9)
963 MBI=A(10):N=A(l 1):M=A(12):NDL=A(13):MDL=A(14)
964 BET=A( 15): AZ 1=A( 16):SN=A( 17):FMIK=A( 18)
968 INPUT "Хотите что-нибудь испавить (1-Да 2-Нет)”;YZ
970 IF YZ=2 GOTO 2000
980 INPUT "Введите номер изменяемой переменной";!
990 YY6=6
1000 GOTO 550
1010 GOTO 2000
1020 INPUT "Будем изменять фамилию (1-Да 2-Нет)" ;ККЗ
1030 IF ККЗ=2 GOTO 1050
1040 INPUT "Введите фамилию";А$
1050 INPUT "Будем изменять группу (1-Да 2-Нет)";КК4
1060 IF КК4=2 GOTO 755
1070 INPUT "Введите группу";В$
1080 GOTO 755
2000 RI=.289*H
2005 FA=0
2010 LOR=LO/RI
2020 IF LOR<17 THEN Rl= 05
2030 IF LOR>17 THEN 2040
2040 IF LOR<=35 THEN Rl=. 1
2050 IF LOR>35 THEN 2060
2060 IF LOR<83 THEN Rl= 2
2070 IF LOR>=83 THEN Rl=.25
2080 H0=H-A
2090 Cl==.5*(H0-A)
2100 I=EA/EB
116
Продолжение приложения 8.
2110АВ=В*Н
2120 1В=АВ*Н*Н/12
2130 RB=RPT*MB 1 *МВ1
2140 REM случайный эксцентриситет
2150К=Н/30
2160 K1-LO/600
2170 IF КЖ1 THEN Q=K
2180 IF K<=K1 THEN Q=K1
2190 IF Q<1 THEN Q=1
2200 IF SN=0 THEN K2-M/N+Q
2210 IF SN=1 THEN 2230
2220 GOTO 2270
2230 K3=M/N
2240 K4=Q
2250 IF КЗЖ4 THEN К2ЖЗ
2260 IF K3<K4 THEN K2=K4
2270 REM момент за счёт эксцен.
2280 M1=N*K2
2290 W=AZ1-8.000001E-O3*RB
2300 IF J= 1 THEN S S2=400
2310SS2=500
2320 KSIR=W/((1+RA/SS2)*( 1-W/l. 1))
2330 BEM=.5-.01*LO/H-.01*RB
2340 BEN=K2/H
2350 IF BEM>BEN THEN BE-BEM
2360 IF BEM<BEN THEN BE=BEN
2370 IF SN=0 THEN EOL=MDL/NDL+Q
2380 EOL1=MDL/NDL
2390 EOL2=Q
2400 IF SN=0 THEN 2430
2410 IF EOL1>EOL2 THEN EOL=EOL1
2420 IF EOL1<=EOL2 THEN EOL=EOL2
2430 FIL=1+BET*((NDL*(EOL+C 1))/(N*(K2+C 1)))
2440 RB=RB*B* 100
2450 TL=(. 11/(. 1+BE)+. 1)/FIL
2460 D=6.4*100*EB/(LO*LO)
2470 XR=KSIR*H0
2480 AR=KSIR*A
2490 CR=2*RA/(1-KSIR)
2500 FA=Rl*.01*B*H
2510 IF FA<FMIK THEN FA=FMIK
2520 IF FA<=FMIK THEN FA1=FMIK
2530 IF FA>FMIK THEN FA1=FA
2540 FA4=50*FA
2550 SS=-RA
2560 SS1=-RA
2570 X=(N+100*2*SS*FA)/RB
2580 IF X=>H0 THEN 2720
Продолжение приложения 8.
2590 SS-RA
2600 SS1--RA
2610 X=N/RВ
2620 IF X>XR THEN 2700
2630 IF X>A THEN 2720
2640 X=(N+2* 1 OO*SS*FA)/(RB*. 1)
2650 IF X>AR THEN 2720
2660 C=CR*FA*100
2670 X=(N+C)/(RB+C/A)
2680 SS1=(1-X/HO)*CR-RA
2690 GOTO 2720
2700 SS=(1-X/HO)*CR-RA
2710 X=(N-200*SS*FA+C)/(RB+C/H0)
2720 MPR-RB*X*.5*(H-X)+IOO*(SS-SS1)*FA*C1
2730 IS=2*C1*C1*FA
2740 I1=IB
2750 NKR=D*(I1*TL+I*IS)
2760 IF N>NKR THEN 2810
2770 O1=1/(1~N/NKR)
2780 DM=MPR-M1*O1
2790 IF DM=0 THEN 2880
2800 IF DM>0 THEN 2830
2810 FA=FA+FA4
2820 GOTO 2550
2830 IF FA<=FA1 THEN 2880
2840 IF FA4<=.01*FA THEN 2880
2850 FA=FA-FA4
2860 FA4-. 5*FA4
2870 GOTO 2810
2880 REM
2960PRINT" РЕЗУЛЬТАТЫ СЧЕТА"
2970 PRINT ” .................."
2980 PRINT "Требуемая по прочности площадь сечения рабочей арма-"
2990 PRINT "туры у одной из граний сечения As=";FA;"kb.cm"
3000 PRINT "Высота сжатой зоны бетона KSI-’;Х
ЗОЮ PRINT "Условная критическая сила Nc4=";NKR;”H"
3020 PRINT "Приращение изгибающего момента aM=";DM;"H*cm”
3030 PRINT "Предельный изгибающий момент, воспринимаемый"
3040 PRINT "сечением M=";MPR;"H*cm"
3050 PRINT "........................."
3810 INPUT "Желаете распечатать результаты счета (1-Да, 2- Нет)";Ы5
3815 ТТ5-5
3816IFLI5=2 GOTO 755
3820 LPRINT "Расчет рабочей продольной арматуры внецентренно сжатых ЖБ"
3825 LPRINT " элементов при симметричном армировании * GBKS ♦"
3830 LPRINT п********************************#***********************н
3840 LPRINT ""
3850 LPRINT " ”
118
Окончание приложения 8.
3860 LPRINT "««< ♦ GBKS * ";А$;" ";В$;” »»>"
3870 LPRINT " l)Rb(T) =";А(1);нМПа,,;ТАВ(110);"10)&Ы=";А(10)
3880 LPRINT " 2)Rs=";A(2);"Mria";TAB(l 10);’’11)N=";A(11);"H"
3890 LPRINT " 4)Es=";A(3);"Mria";TAB(l 10);"12)M=";A(12);"H*cm"
3900 LPRINT " 5)ЕЬ=";А(4);"МПа";ТАВ(110);"13)NL=";A(I3);"H”
3910 LPRINT " 6)b-';A(5);"cm";TAB(1 10);"14)ML-";A(14);"H*cm"
3920 LPRINT " 7)h=”;A(6);"cM";TAB(l 10);"15)BET=";A(15)
3930 LPRINT ” 7)а=";А(7);"см";ТАВ(110);"16)ALFA=";A(16)
3940 LPRINT ” 8)Lo-’;A(8);"cm";TAB(1 10);"17)SN=";A(17)
3950 LPRINT " 9)&bl=";A(9);TAB(110);"18)As тт.к=";А(18);”кв.см"
3960 LPRINT"__________________________________________________________
3965 LPRINT ” "
3970LPRINT" РЕЗУЛЬТАТЫ СЧЕТА"
3980 LPRINT "	.....................”
3990 LPRINT "Требуемая по прочности площадь сечения рабочей арма-"
4000 LPRINT "туры у одной из граний сечения As=";FA;"кв.см"
4010 LPRINT "Высота сжатой зоны бетона KSI=";X
4020 LPRINT "Условная критическая сила Nc4==";NKR;"H"
4030 LPRINT "Приращение изгибающего момента ЛМ-’;DM;"H*cm"
4040 LPRINT "Предельный изгибающий момент , воспринимаемый"
4050 LPRINT "сечением M=”;MPR;"H*cm"
4060 LPRINT ".........................."
4070 ТТ5=5
4080 GOTO 755
5000 STOP
6000 END
119
Приложение 9.
Текст рабочей программы GBKS на языке PL1
HGBKS JOB ’CIA. PROG'
// EXEC PL 1TR,PARM. GO-FORMAT,RUN'
SYM:PROG OPTIONS(MAIN);
CHECK;
/* РАСЧЕТ РАБОЧЕЙ ПРОДОЛЬНОЙ АРМАТУРЫ ВНЕЦЕНТРЕННО СЖАТЫХ
ЖЕЛЕЗОБЕТОННЫХ ЭЛЕМЕНТОВ ПРИ СИММЕТРИЧНОМ АРМИРОВАНИИ. ♦/
DCL (LO,MBl ,MBI,N,M,NDLMDL,IB,NAB,NEO,KSIO,KSIR,KDL,LOR,
MPR,IA»NKR) FLOAT;
ON ENDFILE(SYSIN) GO TO ME;
PUT SKIP(3) EDIT((116)'-'XX(3)A);
MO: GET LIST(RPT,RA,EA,EB,B,H,A,LO,MB1);
IF RPT=0 THEN GO TO ME;
GET LIST(MB 1 ,N,M,NDL,MDL,BET,A31 ,SN.FMIK);
PUT SKIP(7) EDIT(PAC4ET РАБОЧЕЙ ПРОДОЛЬНОЙ АРМАТУРЫ',
’ВНЕЦЕНТРЕННО СЖАТЫХ ЖЕЛЕЗОБЕТОННЫХ ЭЛЕМЕНТОВ’,
'ПРИ НЕСИММЕТРИЧНОМ АРМИРОВАНИИ.',
ИСХОДНЫЕ ДАННЫЕ:')
(X(22)/i,A,SKIP(2),X(46),A,SKIP(4),X(46)rA);
PUT EDIT('RPT',rRA','EA','EB','B',RPT,RA,EA,EB,B,
' Н A ',’LO ’/МВ1','МВГ,Н,А,ЕО,МВ1 ДЛВ1,
’ N ',’ М ',NDL','MDL','BET',N,M,NDL,MDL,BET,
'АЗ 1 ',’SN ',’FM1K', АЗ 1 ,SN,FMIK)
(3 (SKIP(2),5 (X(18),A),SKIP,X(5),5 E(21,5)));
SKIP(2),3 (X(18),A),SKIP,X(5),3 E(21,5));
Rl=0.289*H; LOR=LO/RI;
IF LOR<17 THEN Rl=0.05;
ELSE IF LOR<=35 THEN RI =0.10;
Продолжение приложения 9,
ELSE IF LOR<83 THEN Rl=0.20;
ELSE Rl=0.25;
FAM=0.01*Rl *B*HO; IF FAM<FMIK THEN FAMR=FMIK; ELSE FAMR=FAM;
FA=FAMR; DFA=50*FA; HO=H-A; C1=0.5*(HO-A); FB=B*H;
1B=FB*H*H/12; RP=RPT*MB1*MBI; NAB=EA/EB; Rl=H/30; R2=LO/600;
IF R1>R2 THEN ESL=R1; ELSE ESL=R2; IF ESL<1 THEN ESL=1;
R1=M/N; IF SN=1 THEN IF R1>ESL THEN EO=R1; ELSE EO=ESL;
IF SN=0 THEN EO=R1+ESL; NEO=N*EO; R2=MDL/NDL;
IF SN= 1 THEN IF R2>ESL THEN EODL=R2; ELSE EODL=ESL;
IF SN=0 THEN EODL=R2+ESL; KSIO=A31-0.0008*RP;
IF MB1 >0.85 THEN SAS=4000; ELSE SAS=5000;
KSIR=KSIO/(1+(RA/SAS)*(1-KSIO/1.1)); XR=KSIR*HO; AR=KSIR*A;
CR=2*RA/(1-KSIR);T1=0.5-0.01*LO/H-0.00]*RP; T=EO/H;
IF T1>T THEN T=TI;
IF MDL<0 THEN KLD=1;
ELSE KDL= 1 +BET*(NDL*(EODL+C 1 )/(N*(ECHC 1)));
TDL=(0.1 l/(0.1+T)+0.1)/KDL; D=6.4*EB/LO**2; RB=RP*B;
M7: SA=-RA; SAS=-RA; X=(N+2*SA*FA*100.)/RB*100.; IF X>H THEN GO TO M9;
IF X>=HO THEN GO TO М2; SA=RA; X=NZRB*I00.; IF X>XR THEN GO TO Ml;
IF X>A THEN GO TO М2; SAS=RA; X=(N+2*SA*FA*100.)/RB*100.;
IF X<AR THEN GO TO М2; C=CR*FA; X=(N+C*100.)/(RB+C/A)*100.;
SAS=(1 -X/A)*CR-RA; GO TO М2;
Ml: C=CR*FA;X=(N-RA*FA*2*100.+C*100.)/(RB+C/HO)*100.;SA=(]-X/HO)*CR-RA;
М2: MPR=(0.5*RB*X*(H-X)+(SA-SAS)*FA*Cl)*100.; IA=2*C1 **2*FA;
NKR=D*(IB*TDL+NAB*IA)*100.; IF N>NKR THEN GO TO M9;
ETA 1=1 /(1 -N/NKR); DM=MKR-NEO*ETA;
IF DM=0 THEN GO TO 21; ELSE IF DM>0 THEN GO TO M5;
ELSE GO TO M9i
и
122
Приложение 10.
Текст рабочей программы GBKK
1 DIM А(20)
И TT5=0:ZZ8=0:YY6=0
100 PRINT "Определение необходимой площади продольной рабочей арматуры
вне-"
101 PRINT " центренно сжатых ЖБ элементов круглого сечения * GBKK *"
110 PRINT м♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦’•
120 PRINT " 1) М /кНм/ Изгибающий момент при полной расчетной нагрузке,
М>=0"
135IFZZ8=8 GOTO 720
140 PRINT " 2) N /кН/ Сжимающая продольная сила при полной расчетной
Harpv3Ke(N>0 ,N# 0)"
155 IF ZZ8=8 GOTO 720
160 PRINT " 3) Ml /кНм/ Момент от расчетных постоянных и длительных
нагрузок(М1>=0уМ<0)"
175 IF ZZ8=8 GOTO 720
180 PRINT " 4) N1 /кНм/ Продольная сила при расчет, постоян. и длиг.
нагрузках Nl>0"
185 IF ZZ8=8 GOTO720
190 PRINT " 5) D /мм/ Диаметр сечения внецентренно сжатого элемента"
195IFZZ8=8 GOTO 720
200 PRINT " 6) г /мм/ Радиус сечения внецентренно сжатого элемента"
205 IF ZZ8=8 GOTO 720
210 PRINT " 7) а /мм/ Расстояние от центра сечения продольной арматуры до"
211 PRINT "	ближайшей поверхности бетона"
215IFZZ8=8 GOTO 720
220 PRINT " 8) 1о /мм/ Расчетная (приведенная) длина элемента"
230 PRINT "	до ближайшей грани бетона"
235 IF ZZ8=8 GOTO 720
240 PRINT " 9) SN SN=0 если элемекнт входит в состав статически
определимой сист."
250 PRINT "	SN=1 если иначе"
255 IF ZZ8=8 GOTO 720
260 PRINT "10)Rb(T) /МПа/ Расчетное сопротивление бетона сжатию по
предельным состояниям"
261 PRINT"	1-ой гр. по таб. 13 СНиП 2.03.01-84"
265 IF ZZ8=8 GOTO 720
270 PRINT ”11) &Ь2 К-нт условия работы бетона п.2 таб. 15 СНиП 2.03.01-84"
275 IF ZZ8=8 GOTO 720
280 PRINT "12) &bi Произведение тех к-тов условий работы п.п.3-12"
290 PRINT "	таб. 15 СНиП 2.03.01 -84 ,которые соответствуют
фактическим"
300 PRINT "	условиям работы элемента"
305 IF ZZ8=8 GOTO 720
310 PRINT "13)BET Коэф-нт в формуле 21 СНиП 2.03.01-84 принятый по таб.30"
325 IF ZZ8=8 GOTO 720
329 INPUT "1-продолжить";А66
123
Продолжение приложения 10.
330 PRINT "14) Eb /МПа/ Начальный модуль упругости бетона по таб. 18 СНиП"
345 IF ZZ8=8 GOTO 720
350 PRINT "15) Es /МПа/ Модуль упругости арматуры по таб.22 СНиП"
365 IF ZZ8=8 GOTO 720
370 PRINT "16) Rs /МПа/ Расчетное сопротивление арм-ры растяжению по
таб.22 СНиП"
385 IF ZZ8=8 GOTO 720
390 PRINT "17)As,min,r /ттЛ2/ Минимально допустимая площадь сечения
арм-ры по таб.38 ”
391 PRINT " СНиП. Можно задавать As,mm,r=0 , т.к. минимально допустимый"
392 PRINT "	% армирования программой обеспечивается автоматически"
395 IF ZZ8=8 GOTO 720
476 PRINT "0-Вернуться в начало списка"
477 INPUT "1-Продолжить" ;А67
478 IF А67=0 GOTO 11
500 ZZ8=8
510 INPUT "Введите фамилию";А$
520 INPUT "группу";В$
530 PRINT" В В О Д Д А Н Н Ы X"
535 PRINT " aa/xaaaaaaaaaaa/*^aaaaaaaa.aaa/^aa,^..
540 FOR J=1 TO 17
550 IF 1=1 GOTO 120
560 IF 1=2 GOTO 140
570 IF J=3 GOTO 160
580 IF J=4 GOTO 180
590 IF 1=5 GOTO 190
600 IF J=6 GOTO 200
610 IF 1=7 GOTO 210
620 IF J=8 GOTO 220
630 IF J=9 GOTO 240
640 IF J—10 GOTO 260
650 IF 1=11 GOTO 270
660 IF J=12 GOTO 280
670 IF J= 13 GOTO 310
680 IF 1=14 GOTO 330
690 IF J=15 GOTO 350
700 IF J=16 GOTO 370
710 IF J= 17 GOTO 390
720 INPUT A(J)
730 IF YY6=6 GOTO 755
732 NEXT J
755 PRINT"
756 PRINT""
758 PRINT "«« * GBKK * ";A$;” ";B$;" »»"
760 PRINT ’Т)М =";А(1);,,кНм";ТАВ(120);"10)КЬ(т)=";А(10);”М Па"
770 PRINT "2)N =”;А(2);"кН ";ТАВ(120);"11)&Ь2=";А(11)
780 PRINT "3)M1 =";А(3);"кНм";ТАВ(120);"12)&Ы=";А(12)
790 PRINT ”4)N1 =";A(4);"kH ";TAB(120);"13)BET=";A(13)
124
Продолжение приложения 10.
800 PRINT "5)D =";А(5);"мм ";TAB(120);"14)Eb -”;А(14);"МПа"
810 PRINT "6)R =";А(6);"мм ";TAB(120);"15)Es -”;А(15);"МПа"
820 PRINT "7)a =";A(7);"mm ";TAB(120);"16)Rs =";А(16);"МПа"
830 PRINT "8)lo =";A(8);”mm ";TAB(120);"17)As,min,r=";A(17);"KBA2"
840 PRINT ”9)SN -”;A(9)
860 PRINT"_______________________________________________
952 IF TT5-0 GOTO 962
953 PRINT "1-Продолжить счет этого варианта, изменив некоторые входные
параметры"
955 PRINT "2-Счет программы заново"
956 INPUT "3-Выход из программы";МА8
957 ТТ5-0
958 IF МА8-1 GOTO 1020
959 IF МА8=2 GOTO 11
960 IF МА8-3 THEN STOP
962 M=A(1):N=A(2):MDL=A(3):NDL=A(4):D=A(5):R=A(6): AR-A(7):
L0=A(8):SN=A(9)
963 RBT=A(10):GB2==A(l 1):GBI=A(12):BET=A(13):EB=A(14):ES=A(15):
RS~A(16)
964 ASMK—A( 17)
968 INPUT "Хотите что-нибудь испавить (1-Да 2-Нет)"; YZ
970 IF YZ-2 GOTO 2000
980 INPUT "Введите номер изменяемой переменной”;!
990 YY6=6
1000 GOTO 550
1010 GOTO 2000
1020 INPUT ' Будем изменять фамилию (1-Да 2-Нет)";ККЗ
1030 IF ККЗ-2 GOTO 1050
1040 INPUT "Введите фамилию”; А$
1050 INPUT "Будем изменять группу (1-Да 2-Нет)";КК4
1060 IF КК4=2 GOTO 755
1070 INPUT "Введите группу’’;В$
1080 GOTO 755
2000 PI-3.142
2010 A=PI*DA2/4
2020 I-D/4
2030 L-ЬОЛ
2040 IF L<14 THEN Rl= 05
2045 IF L< 14 GOTO 2080
2050 IF L<=35 THEN Rl-.l
2055 IF L<=35 GOTO 2080
2060 IF L<83 THEN R1-.2
2065 IF L<83 GOTO 2080
2070 Rl = 25
2080 ASM=01*Rl*A
2085 ASR-ASM
2090 IF ASM<ASMK THEN ASR-ASMK
2100 AS-ASR
125
Продолжение приложения 10.
2110 DAS-50*AS
2120 J=PI*DA4/64
2130 RB=RBT*GBI*GB2
2140 ALF=ES/EB
2150 E=M* 10A3/N
2160Rl=D/30
2170 R2=L0/600
2180EA—R2
2190 IF R1>R2 THEN EA=R1
2200 IF SN=1 THEN 2230
2210 IF SN=0 THEN 2260
2220 GOTO 2290
2230 E0=EA
2240 IF E>EA THEN E0=E
2250 GOTO 2270
2260 E0=E+EA
2270 NE0=N*E0/10A3
2290 Nl=(.77*RB*A+.645*RS*AS)/10A3
2300 KCIR=N* 10A3/(RB ♦ A+RS* AS)
2310F=0
2320 IF N>N1 GOTO 2350
2330 KCIR=(N*10A3+RS*AS)/(RB*A+2.55*RS*AS)
2340 F=1.6*(1-1.55*KCIR)*KCIR
2350 RSS=D/2-AR
2360 MU=(2/3*RB*A*R*(SIN(PI*KCIR))A3/PI+RS*AS*(SIN(PI*KCIR)
/PI+F)*RSS)/10A6
2370 JS=AS*RSSA2/2
2380 IF MDL<0 THEN FL-1
2390 IF MDL<0 GOTO 2450
2400 FL= 1+BET*((MDL+NDL*RSS/10A3)/(M+N*RSSZ 10A3))
2410 DEM=. 5-.0PL0/D-.01+RB
2420 DE1=E/D
2430 DE=DE1
2440 IF DEM>DE1 THEN DE=DEM
2450 NCR=6.4*EB/(L0A2*10A3)*(J/FL*(.l 1/(.1+DE)+.1)+ALF*JS)
2460 IF N>NCR GOTO 2510
2470 Q-I/(1-N/NCR)
2480 DM=MU-NE0*Q
2490 IF DM=0 GOTO 2600
2500 IF DM>0 GOTO 2530
2510 AS=AS+DAS
2520 GOTO 2290
2530 IF AS<=ASM GOTO 2600
2540 A=.0I*AS
2550 IF DAS<=A GOTO 2600
2560 AS=AS-DAS
2570 DAS=DAS/2
2580 GOTO 2510
126
Продолжение приложения 10.
2600 QQ=0
2760PRINT" РЕЗУЛЬТАТЫ СЧЕТА"
2765 PRINT ”	..................”
2770 PRINT "Площадь рабочей продольной арматуры As=";AS;"kb.mm"
2790 PRINT "Относительная высота сжатой зоны бетона KCIR—KCIR
2795 PRINT "Условная критическая сила Nc4=";NCR;"kH"
2798 PRINT "Приращение изгибающего момента aM=";DM;"kHm"
2800 PRINT "Предельный изгибающий момент, воспринимаемый сечением
Mu=";MU;"kHm"
2820 PRINT "......................"
3810 INPUT "Желаете распечатать результаты счета (1-Да, 2-Нет)";Ы5
3811 ТТ5=5
3812 IF LI5=2 GOTO 755
3815 LPRINT "Определение необходимой площади продольной рабачей
арматуры вне-"
3817 LPRINT "внецентренно сжатых ЖБ элементов круглого сечения ♦ GBKK ♦"
3818 LPRINT
3819 LPRINT”"
3820 LPRINT " "
3821 LPRINT" ИСХОДНЫЕ ДАННЫЕ"
3822 LPRINT " aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa..
3840 LPRINT ""
3850 LPRINT " ”
3860 LPRINT "«« * GBKK * ";A$;" ";B$;" »»”
3870 LPRINT "1)M =”;А(1);"кНм";ТАВ(110);"10)КЬ(т)=";А(10);,,МПа"
3880 LPRINT "2)N =";А(2);"кН ";TAB(110);"l 1)&Ь2=";А(11)
3890 LPRINT "3)M1 =";A(3);"kHm";TAB(1 10);"12)&bi=";A(12)
3900 LPRINT "4)N1 =";A(4);"kH ";TAB(110);"13)BET=";A(13)
3910 LPRINT "5)D =”;A(5);"mm ";TAB(110);"14)Eb =";А(14);"МПа"
3920 LPRINT "6)R =";A(6);"mm ";TAB(1 10);"15)Es =";А(15);"МПа"
3930 LPRINT "7)a =";A(7);"mm ";TAB(1 10);"16)Rs =";А(16);"МПа"
3940 LPRINT "8)lo =";A(8);"mm ";TAB(110);"17)As,min,i=";A(17);"MMA2"
3950 LPRINT "9)SN =";A(9)
3960 LPRINT""
3961 LPRINT""
3980 LPRINT" РЕЗУЛЬТАТЫ СЧЕТА"
3990 LPRINT "	.................
4400 LPRINT "Площадь рабочей продольной арматуры As=";AS;"kb.mm"
4410 LPRINT "Относительная высота сжатой зоны бетона KC1R=";KCIR
4420 LPRINT "Условная критическая сила Nc4-’;NCR;”kH"
4430 LPRINT "Приращение изгибающего момента aM=";DM;"kHm"
4440 LPRINT "Предельный изгибающий момент, воспринимаемый"
4441 LPRINT "сечением Mu=";MU;"kHm"
4450 LPRINT "......................"
5030 ТТ5=5
5040 GOTO 755
6000 STOP
7000 END
127
Приложение IL
Текст рабочей программы GBK на языке BASIC
1	PRINT " ПРОГРАММА * GBK
2	PRINT "Предназначена для проверки несущей способности внецентренно"
3	PRINT " сжатых железобетонных элементов с произвольным видом "
4	PRINT "	армирования"
5	INPUT "Назовите, пожалуйста, свое имя и фамилию: ", А$
6	INPUT "Кафедра, группа ", В$
13 PRINT "***************************************************+******♦”
14 PRINT "Обозначение * Размер *
15 PRINT"	*ность *
Пояснения
фН
20 PRINT 19 ♦*♦♦♦♦♦♦*♦♦**♦*♦♦♦♦**♦**♦♦**♦*♦♦♦*♦*♦♦♦*♦**♦*♦♦♦♦**♦**♦♦*♦♦"
25 PRINT"* Rbt * МПа * Расчетное сопротивление бетона осевому ♦"
30 PRINT "*	*	* сжатию	♦"
35 PRINT’’* Rs
40PRINT”* Rsc
45 PRINT"* Es
50 PRINT "*
55 PRINT"* Eb
60PRINT”* b
65 PRINT”* h
70PRINT"* а
75 PRINT "*
80 PRINT "♦
84PRINT"* а'
85 PRINT "*
86PRINT"* L0
88PRINT"* Gbl
90PRINT"* Gbi
92 PRINT "*
*	МПа * Рассчетное сопротивление арматуры
растяжению *"
*	МПа ^Рассчетное сопротивление арматуры сжатию*"
* МПа	* Модуль упругости арматуры	по табл 29	*”
*	♦ СНиП 2.03.01-84	*”
*	МПа	* Модуль упругости бетона	т абл. 18	[1]	*”
*	см	* Ширина сечения	♦"
*	см	* Высота сечения	*"
*	см ^Расстояние от центра сечения арматуры,растя- *"
*	*нутой внешним мо ментом ,до ближайшей *"
*	* грани сечения	♦"
*	см * То же,для арматуры сжатой воздействием ♦"
*	* изгибающего момента	♦"
*	см * Расчетная длина элемента	*"
♦Коэффициент условия работы по табл 15 СНиП *"
♦Произведение всех необходимых коэффициентов*”
♦ условия работы, кроме Gb2 по табл. 15	*"
93 PRINT *********** ************************************* *************”
94 INPUT KUSOK
95 PRINT 11***********************************************************н
96 PRINT "* N * H *3начение сжимающей силы при полной расчетной ♦"
97 PRINT ”*	♦	* нагрузке
98 PRINT "♦ М *Н*см * Значение изгибающего момента при полной
100PRINT”* ♦	♦ расчетной нагрузке
102 PRINT "* NDL * Н * Значение продольной силы при расчетных
104 PRINT "*	*	* постоянных и длительных нагрузках
106 PRINT "* MDL * Н*см * Величина изгибающего момента при расчетных

108 PRINT"* *
110 PRINT "* beta *
112 PRINT "♦ ALFA *
* постоянных и длительных нагрузках
* Коэффициент в формуле 21 [1]
* Коэффициент в формуле 21 [1]
фи
114PRINT"* As
116 PRINT"*
* смл2* Площадь сечения арматуры,растянутой воздейс-
*	* твием изгибающего момента
118 PRINT "* A’s * смЛ2* Площадь сечения арматуры, сжатой воздейст-
120 PRINT "*	♦	* вием изгибающего момента
128
Продолжение приложения И.
122 PRINT”* SN *
124 PRINT"* *
126 PRINT "*	*
* Признак статической неопределимости системы *"
* если элемент входит всостав статически нео- *"
* пределимости системы,то S N=0, иначе SN=1 *”
128 PRINT
129 INPUT KUS
130 ВВВ- 1
700ISCET = 0
970 GOSUB 2250
975 GOSUB 2472
980 GOSUB 2820
985 GOSUB 2472
1000 H0 = H-A
1010 Cl = .5 * (HO - ASS)
1020 AB = В * H
1030 JB = (AB * H Л 2) / 12
1040 RB = RBT * GB2 * GBI
1050 ALFA1 =ES/EB
1060 IF H / 30 <= L0 / 600 THEN 1070
1063 EC = H/30
1065 GOTO 1090
1070 EC = L0 / 600
1080 IF L0 / 600 <= 1 GOTO 1100
1082 EA = EC
1085 GOTO 1110
1090 IF H / 30 <= 1 GOTO 1100
1092 EA = EC
1095 GOTO 1110
1100 EA= 1
1110E-M/N
1120 IF SN о 1 THEN 1122
1121 GOTO 1130
1122SN = 0
1125 GOTO 1160
ИЗО IF E <= EA GOTO 1140
1132 E0 = E
1135 GOTO 1330
1140 E0 = EA
1150 GOTO 1330
1160 E0 = E + EA
1170 EL = MDL/NDL
1180IFSNO 1 THEN 1190
1182 GOTO 1200
1190 SN = 0
1192 GOTO 1220
1200 IF EL <= EA GOTO 1210
1203 E0L = EL
1205 GOTO 1330
1210E0L = EA
129
Продолжение приложения 1I.
1215 GOTO 1330
1220 EOL = EL + ЕА
1230 W = ALFA - 8.000001 E-03 * RB
1240 IF GB2 >= .85 GOTO 1260
1250 QSCU = 500
1255 GOTO 1270
1260 QSCU = 400
1270 KSIR= W/(1 + (RS * (1 - W /1.1)) ZQSCU)
1280 YE1 = .5 - .1 *LO/H-.O1 ♦ RB
1290 YE2 = E0 / H
1300 IF YE1 < YE2 THEN 1310
1302 YE = YE1
1305 GOTO 1320
1310 YE = YE2
1320 IF MDL > 0 GOTO 1330
1322 FL = 1
1325 GOTO 1860
1330 FL = 1 + BET * (NDL ♦ (Cl + EOL)) / (N ♦ (Cl + E0))
1860TL = (.ll /(.1 +YE) + .1)/FL
1870 D-6.4 * EB / L0 л 2
1880 QSC = -RSC
1890 QSH = -RSC
1900 X = (N + (QSC * ASP + QSH * ASHl)*100) / (RB ♦ В *100)
1910 IFX>HTHEN 2145
1920 IF X >= HO THEN 2060
1930 QSH = RS
1940 X = (N + (QSH ♦ ASH1 + QSC * ASP) * 100) I (RB *B *100)
1950 IF X > KSIR ♦ HO THEN 2030
1960 IF X >= ASS THEN 2060
1970 QSC = RS
1980 X = (N + (QSH ♦ ASH1 + QSC * ASP) ♦ 100) / (RB *B* 100)
1990 IF X < KSIR ♦ ASS THEN 2060
2000 C = (2 * RS * ASP) / (1 - KSIR)
2010 X =(N+(RS*(ASHl-ASP)+C)*100)/((RB*B+C/ASS)*100)
2020 QSC = (2 ♦ (1 - X / ASS) I ((1 - KSIR) - 1) * RS)
2030 C = (2 ♦ RS * ASH1) / (1 - KSIR)
2040 X = (N - (RS * ASH1 - RSC * ASP + C) ♦ 100) I ((RB * В
+ C/H0)* 100)
2050 QSH = (2 * (1 - X / HO) / ((1 - KSIR) - 1) * RS)
2060 MU = (.5 ♦ RB * В * X * (H - X) + QSH * ASH1 * (.5 ♦ H
- A) - QSC ♦ ASP * (.5 * H - ASS)) * 100
2070 EOP = (ALFA1 * (ASH1 - ASP) * Cl) / (AB * ALFA1 * (ASH
1 + ASP))
2080 J = JB + AB ♦ EOP л 2
2090’JS = (EOP + Cl)л 2 ♦ ASP + (Cl - EOP)л 2 ♦ ASH1
2100 NKR = D * (J ♦ TL + ALFA1 * JS) * 100
2110 IF N> NKR THEN 2145
2120 Z = NKR/(NKR-N)
130
Продолжение приложения 11.
2130 DM = MU-N*E0*Z
2135 GOTO 2149
2145 PRINT "Необходимо увеличить размеры поперечного сечения элемента
2149 GOSUB 5700
2150IFADA1 =2 GOTO 1
2151 GOTO 975
2250 PRINT "Введите подготовленные даные "
2260 INPUT "RBT=	RBT
2265 IF ISCET > 0 GOTO 2940
2270 INPUT "RS=	RS
2275 IF ISCET > 0 GOTO 2940
2280 INPUT "RSC=	"; RSC
2285 IF ISCET > 0 GOTO 2940
2290 INPUT "ES-	"; ES
2295 IF ISCET > 0 GOTO 2940
2300 INPUT "EB-	"; EB
2305 IF ISCET > 0 GOTO 2940
2310 INPUT "B=	В
2315 IF ISCET > 0 GOTO 2940
2320 INPUT "H=	"; H
2325 IF ISCET > 0 GOTO 2940
2330 INPUT "A=	A
2335 IF ISCET > 0 GOTO 2940
2340 INPUT "ASS-	"; ASS
2345 IF ISCET > 0 GOTO 2940
2350 INPUT "L0=	"; L0
2355 IF ISCET > 0 GOTO 2940
2360 INPUT "GB2=	GB2
2365 IF ISCET > 0 GOTO 2940
2370 INPUT "GBI=	"; GBI
2375 IF ISCET > 0 GOTO 2940
2380 INPUT ”N=	"; N
2385 IF ISCET > 0 GOTO 2940
2390 INPUT "M=	M
2395 IF ISCET > 0 GOTO 2940
2400 INPUT "NDL-	NDL
2405 IF ISCET > 0 GOTO 2940
2410 INPUT "MDL=	MDL
2415 IF ISCET > 0 GOTO 2940
2420 INPUT "BET-	"; BET
2425 IF ISCET > 0 GOTO 2940
2430 INPUT "ALFA-	"; ALFA
2435 IF ISCET > 0 GOTO 2940
2440 INPUT "ASH=	ASH 1
2445 IF ISCET > 0 GOTO 2940
2450 INPUT "ASC=	ASP
2455 IF ISCET > 0 GOTO 2940
2460 INPUT "SN-	SN
131
Продолжение приложения 11.
2465 IF ISCET > О GOTO 2940
2470 RETURN
2471 REM ТАБЛИЦА ДАННЫХ
2472 PRINT и****♦♦****♦♦♦
2473 PRINT "* 1. RBT
2474 PRINT "* 2. RS
2475 PRINT "* 3. RSC
2476 PRINT "* 4. ES
2477 PRINT "♦ 5. EB
2478 PRINT ”* 6. В
2479 PRINT 7. H
2480 PRINT "* 8. A
2481 PRINT "* 9. ASS
2482 PRINT "♦ 10.L0
*"; RBT, "♦ 11.GB2 GB2," *"
RS, "* 12. GBI *”; GBI, "*"
RSC, ”* 13.N	*";N,
ES, "* 14.M M, "*"
*"; EB, "♦ 15.NDL *"; NDL, "*"
B, "* 16.MDL MDL, "*"
*"; H, "* 17.BET *"; BET,
*”; A, "* 18.ALFA *"; ALFA,
ASS, "* 19.ASH ASH1,"*"
*"; LO, "♦ 20.ASC *”; ASP,
2483 PRINT H**#*^**^**************a^*3fc************^,fc*$**:*ai£**#^**$**3fc#n
2484 PRINT "♦ 21 ,SN= SN, " ♦"
2485 PRINT ”******^******:***^**************^*****^*^******t**^^****^*»»
2486 RETURN
2487 GOTO 2600
2488 LPRINT ”*♦♦♦********^*******:*:********♦♦♦♦♦♦*♦♦**♦♦**♦*********’>*n
2489 LPRINT "* 1. RBT
2490 LPRINT "* 2. RS
2491 LPRINT "♦ 3. RSC
2492 LPRINT "* 4. ES
2493 LPRINT "* 5. EB
2494 LPRINT "* 6. В
2495 LPRINT "* 7. H
2496 LPRINT "♦ 8. A
2497 LPRINT "* 9. ASS
2498 LPRINT”* 10.LO
*”; RBT, ”*11 .GB2 *”; GB2,"*"
*"; RS, "♦ 12.GBI GBI, " *"
*"; RSC, "* 13.N	*”;N, "*’’
*"; ES, ”♦ 14.M	*”; M, "*”
EB, "♦ 15.NDL *"; NDL, ”*”
B, ”* 16.MDL *"; MDL, "*"
*”; H, "* 17.BET BET,
A, ”* 18.ALFA *"; ALFA,
*"; ASS, "♦ 19.ASH *”; ASH1,”*"
*"; LO, 20.ASC ASP, "*"
2499 LPRINT n*^************************************$* *♦£♦♦*♦#********'*
2500 LPRINT ” * 21. SN=	"; SN, ” * ”
2501 LPRINT "♦♦♦♦♦****^***************^**&***************************"
2502 LPRINT ” ”
2503 GOTO 2700
2600 LPRINT "Предназначена для проверки несущей способности внецентренно"
2610 LPRINT" сжатых железобетонных элементов с произвольным видом "
2620 LPRINT "	армирования * GBK ♦”
2630 LPRINT	•	^Я8^8..в.	---------- ..
2640 LPRINT " ”
2660 LPRINT "	Исходные данные"
2670 LPRINT " "
2672 LPRINT "«« * GBK *	А$; "	В$; " »»"
2680 GOTO 2488
2700 LPRINT "	Результаты счета "
2710LPRINT"	♦♦♦♦♦*♦**♦♦*♦*♦♦♦* •!
2712 LPRINT ” ”
2720 LPRINT "Высота сжатой зоны бетона	X; "см"
132
Окончание приложения 11.
2730 LPRINT "Граничное значение относительной высоты"
2740 LPRINT "сжатой зоны бетона	"; KSIR
2750 LPRINT "Предельный изгибающий момент, воспринимаемый"
2760 LPRINT "сечением	"; MU; "Н*см"
2770 LPRINT "Отклонение величины изгибающего момента"
2780 LPRINT "воспринимаемого сечением, от момента,"
2790 LPRINT "возникающего при внешней нагрузке	DM; "Н*см"
2800 LPRINT "Условно-критическая сила	NKR; "Н"
2810 RETURN
2820 REM ПОДПРОГРАММА РЕДАКТОР
2900 PRINT "Проверьте, все ли данные введены правильно?"
2910 PRINT "Если необходимо внести какие-либо изменения, наберите"
2920 PRINT "порядковый номер требуемой переменной"
2930 PRINT "По окончании корректировки наберите '0'"
2940 ISCET = ISCET + 1
2950 IF ISCET о 5 THEN 2980
2960 PRINT "Пилите гирю Шура, пилите...".
2970 PRINT " Она золотая"
2980 INPUT NOMER
2981 IF NOMER = 0 GOTO ЗОЮ
2990 ON NOMER GOTO 2260, 2270, 2280, 2290, 2300, 2310, 2320, 2330, 2340,
2350, 2360, 2370, 2380, 2390, 2400, 2410, 2420, 2430, 2440, 2450, 2460
3009 BBB = 2
3010 ISCET = 0
3020 RETURN
5700 PRINT "	Результаты счета "
5710 PRINT"	*♦♦♦♦♦♦♦*♦♦♦*♦*♦*♦"
5712 PRINT " "
5720 PRINT "Высота сжатой зоны бетона	X; "см"
5730 PRINT "Граничное значение относительной высоты"
5740 PRINT "сжатой зоны бетона	"; KSIR
5750 PRINT "Предельный изгибающий момент,воспринимаемый"
5760 PRINT "сечением	"; MU; "Н*см"
5770 PRINT "Отклонение величины изгибающего момента"
5780 PRINT "воспринимаемого сечением,от момента,"
5790 PRINT "возникающего при внешней нагрузке D М; "Н*см"
5800 PRINT "Условно-критическая сила	"; NKR; "Н"
5801 PRINT "-----------------------—-----------"
5802 PRINT " "
5803 INPUT " 1-Распечатать вариант 2-нет"; ADA0
5804 IF AD АО = 1 THEN GOSUB 2487
5805 INPUT "1 - Изменить этот вариант 2 - счет заново"; ADA1
5810 RETURN
7000 END
133
Приложение 12.
Текст рабочей программы GBK на языке PL1
//GBKS JOB MSGLEVEL=(2,0),RIG10N=100K
// EXEC PL1LFCLG
ECCENTER: PROC OPTIONS(MAIN);
/* ПРОВЕРКА НЕСУЩЕЙ СПОСОБНОСТИ ВНЕЦЕНТРЕННО СЖАТЫХ
ЖЕЛЕЗОБЕТОННЫХ ЭЛЕМЕНТОВ С ПРОИЗВОЛЬНЫМ ВИДОМ
АРМИРОВАНИЯ.*/
DCL (LO,MB 1 ,MBI,NrM,NDL,MDL,IB,NAB,KSIO,KSIR,KDL,MPR,I,
IA,NKR) FLOAT;
ON ENDFILE(SYSIN) GO TO ME;
PUT SKIP(3) EDIT((116)'-')(X(3),A);
MO: GET LIST(RPT,RA,RAS,EA,EB,B,H,AAS,LO,MB1);
IF RPT=0 THEN GO TO ME;
GET LIST(MBI,N,M,NDL,MDL,BET,A31 ,FA,FAS,SN);
PUT SKIP(6) EDITf'ПРОВЕРКА НЕСУЩЕЙ СПОСОБНОСТИ',
'ВНЕЦЕНТРЕННО СЖАТЫХ ЖЕЛЕЗОБЕТОННЫХ ЭЛЕМЕНТОВ',
'ПРОГРАММА СОСТАВЛЕНА ДЛЯ ЭЛЕМЕНТОВ С ПРОИЗВОЛЬНЫМ',
'ВИДОМ АРМИРОВАНИЯ.','И СХОДНЫЕ ДАННЫ Е:')
(X(25)A,A,SKIP(2),X(25),A„A,SKIP(4),X(45),A);
PUT EDIT('RPT','RA','RAS','EA','EB',RPT,RA,RAS,EA,EB,
' В НA 7AS ','LO ',B,H,AAS,LO,
’МВ1','МВГ,' N ',' М ',’NDL',MB 1 ,MBI,N,M,NDL,
’MDL’,BET ','A3T,'FA ’,'FAS',MDL,BETA31,FA,FAS,'SN ',SN)
(4 (SKIP(2),5 (X(18),A),SKIP,X(5),5 E(21,5)));
SKIP(2),3 (X(18),A),SKIP,X(5),3 E(21,5));
DM=-0.9E15; HO=H-A; C1=0.5*(HO-AS); FB=B*H; IB=FB*H*H/12;
RP=RPT*MB1*MBI; NAB=EA/EB; Rl=H/30; R2=LO/600;
IF R1>R2 IHEN ESL=R1; ELSE ESL=R2; IF ESL<1 THEN ESL=1 •
Продолжение приложения 12.
R1=M/N; IF SN=1 THEN IF R1>ESL THEN EO=R1; ELSE EO=ESL;
IF SN=0 THEN EO=R1+ESL; R2=MDL/NDL;
IF SN=1 THEN IF R2>ESL THEN EODL=R2; ELSE EODL=ESL;
IF SN=0 IHEN EODL=R2+ESL; KSIO=A31-0.0008*RP;
IF MB 1 >0.85 THEN SAS=4000; ELSE SAS=5000;
KSIR=KSIO/( H-(RA/SAS)*( 1-KSIO/1.1));
Tl=0.5-0.01*LO/H-0.001*RP; T=EO/H; IF T1>T THEN T=T1;
IF MDL<0 THEN KLD=1; ELSE KDL=1+BET*(NDL*(EODL+C1)/(N*(EO+C1)));
TDL40.1 l/(0.1+T)+0.1)/KDL; D=6.4*EB/LO**2; SAS,SA=-RAS;
X=(N+(SA*FA+SAS*FAS)*100.)/((RP*B)*100.); IF X>H THEN GO TO M21;
IF X>=HO THEN GO TO М2; SA=RA; X=(N+(SA*FA+SAS*FAS)*100.)/((RP*B)*
100.);IF X>KSIR*HO THEN GO TO Ml; IF X>=AS THEN GO TO М2;
SAS=RA;X=(N+(SA*FA+SAS*FAS)*100.)/((RP*B)*100.);
IF X<KSIR*AS THEN GO TO М2; C=(2*RA*FAS)/(1-KSIR);
X=(N+(RA*(FA-FAS)+C)* 100.)/((RP*B+C/AS)* 100.);
SAS=((2*(l-X/AS)/(l-KSIR))-l)*RA; GO TO М2;
Ml: C=(2*RA*FA)/(1-KSIR);
X=(N-(RA*F A-RAS*FAS+C)* 100.)/((RP*B+C/HO)* 100.);
SA=((2*( 1 -X/HO)/( 1 -KSIR))-1 *RA;
M2:MPR=(0.5*RP*B*X*(H-X)+SA*FA*(0.5*H-A)-SAS*FAS*(0.5*H-AS))*100.;
EOP=(NAB*(FA-FAS)*C 1 )/(FB+NAB*(FA+FAS));
I=IB+FB*EOP* *2; IA=(EOP+C 1 )♦ *2*FAS+(C 1 -EOP)* *2*FA;
NKR=D*(I*TDL+NAB*IA)*100.; IF N>NKR THEN GO TO М21;
ETA=NKR/(NKR-N); DM=MPR-N*EO*ETA;
136
Приложение 13.
Текст рабочей программы GBK6
1 DIM А(38)
11 TT5=0:ZZ8=0:YY6=0
20 PRINT " Расчет изгибаемых ЖБ элементов по образованию трещин и по
деформациям"
30 PRINT 11 ♦***♦*♦♦♦♦*♦♦♦*♦♦♦*♦♦*****♦**♦*♦***♦♦******♦**♦**♦*♦**♦****’*
100 PRINT " l)Es /МПа/ Модуль упругости арматуры"
115 IF ZZ8=8 GOTO720
120 PRINT " 2)Ев /МПа/ Модуль упругости бетона"
125 IF ZZ8=8 GOTO 720
130 PRINT " 3)в /см/ Ширина прямоугольного сечения (ребра таврового "
131 PRINT"	( двутавробого ) сечения )."
135 IF ZZ8=8 GOTO 720
140 PRINT " 4)вТ /см/ Ширина полки таврового (двутав.) сечения,"
141 PRINT "	в сжатой зоне"
145 IF ZZ8=8 GOTO 720
150 PRINT " 5)nf /см/ Ширина полки таврового (двутав.) сечения,"
151 PRINT ’’	в растянутой зоне."
155 IF ZZ8=8 GOTO 720
160 PRINT " 6)h'f /см/ Высота сжатой полки таврового (двутав.) сечения"
165 IF ZZ8=8 GOTO 720
170 PRINT " 7)hf /см/ Высота полки таврового (двутав.) сечения,"
171 PRINT "	в растянутой зоне"
175 IF ZZ8=8 GOTO 720
180 PRINT " 8)a' /см/ Расстояние от равнодействующей усилий в арм-ре"
181 PRINT "	до ближайшей грани сечения."
185IFZZ8=8 GOTO 720
190 PRINT " 9)ho /см/ Рабочая (полезная) высота сечения"
195 IF ZZ8=8 GOTO 720
t 
200 PRINT "10)Po2	/Н7 Усилие предварительного обжатия с учетом "
201 PRINT "	полных потерь преднапряжения."
205 IF ZZ8=8 GOTO 720
210 PRINT " 11 )еор2 /см/ Эксцентриситет усилия Ро2 относительно центра"
211 PRINT "	тяжести приведенного сечения."
215IFZZ8=8 GOTO 720
220 PRINT " 12)Ро1	/Н/ Усилие предварительного обжатия с учетом полных"
221 PRINT "	потерь 1-ой группы."
225 IF ZZ8=8 GOTO 720
226 INPUT " 1 -Продолжить”;ХХХХ0
230 PRINT " 13 )eop 1	/см/ Эксцентриситет усилия Ро 1 относительно"
231 PRINT"	центра тяжести."
235 IF ZZ8=8 GOTO 720
240 PRINT "14)Rb,ser /МПа/ Расчетное сопротивление бетона осевому сжатию"
241 PRINT "	для предельных состояний 2-ой группы."
245 IF ZZ8=8 GOTO 720
250 PRINT " 15)Rbp,ser /МПа/ Прочность бетона на момент отпуска"
251 PRINT "	предварительного напряжения."
137
Продолжение приложения 13.
255
260
261
262
265
270
271
275
280
285
290
295
300
305
310
315
320
321
325
330
335
340
345
350
351
355
356
360
361
365
370
371
375
380
385
390
395
400
405
410
415
420
425
430
435
138
IF ZZ8=8 GOTO 720
PRINT " 16)Rbtp,ser /МПа/ Расчетное сопротивление бетона осевому
растяже-"
PRINT "	нию для предельных состояний 2-ой группы, со-"
PRINT "	ответствующее отпускной прочности бетона."
IF ZZ8=8 GOTO 720
PRINT "17)Rbt,ser /МПа/ Расчетное сопротивление бетона осевому растяже-"
PRINT "	нию для предельных состояний 2-ой группы."
IF ZZ8-8 GOTO 720
PRINT " 18)Asp /смЛ2/ Площадь сечения напрягаемой арм-ры S"
IF ZZ8-8 GOTO 720
PRINT "19)As /смЛ2/ Площадь сечения ненапрягаемой арм-ры S"
IF ZZ8=8 GOTO 720
PRINT "20)As' /смЛ2/ Площадь сечения ненапрягаемой арм-ры S'"
IF ZZ8=8 GOTO 720
PRINT "21 )@b /МПа/ Величина напряжения в бетоне"
IF ZZ8=8 GOTO 720
PRINT "22)@b' /МПа/ Величина напряжения на уровне верхнего крайнего"
PRINT "	волокна бетона."
IF 228=8 GOTO 720
PRINT "23)& Коэффициент"
IF ZZ8=8 GOTO 720
PRINT "24)Mcm /Н*м/ Значение изгибающего момента от собственного
веса конструк."
IF ZZ8=8 GOTO 720
PRINT "25)M	/Н*м/ Значение изгибающего момента от полной"
PRINT "	нормативной нагрузки М>0"
IF ZZ8=8 GOTO 720
INPUT "1-Продолжить" ;XXXX0
PRINT "26)Msh /Н*м/ Значение изгибающего момента от нормативных "
PRINT "	кратковременных нагрузок, Msh>=0"
IF 228=8 GOTO 720
PRINT "27)M1	/Н*м/ Значение изгибающего момента от нормативных"
PRINT "	постоянных и длительных нагрузок, М1>=0."
IF ZZ8-8 GOTO 720
PRINT "28)#b К-нт в формуле 160 СНиП 2.03.01-84"
IF ZZ8-8 GOTO 720
PRINT "29)#Is К-нт принимаемый по таб.36 СНиП 2.03.01-84 ”
IF ZZ8=8 GOTO 720
PRINT "30)#lsl К-нт длительности действия нагрузки т.36 СНиП 2.03.01-84 "
IF ZZ8=8 GOTO 720
PRINT "31 )#b 1	К-нт в формуле 156 СНиП 2.03.01 -84"
IF ZZ8 -8 GOTO 720
PRINT "32)#b21 К-нт принимаемый по таб.34 СНиП 2.03.01-84 "
IF ZZ8=8 GOTO 720
PRINT "33)Vsh К-нт принимаемый по таб.35 СНиП 2.03.01-84 "
IF ZZ8=8 GOTO 720
Продолжение приложения 13.
440 PRINT "34)V1	К-нт, характеризующий упругопластическое состояние"
441 PRINT "	бетона сжатой зоны при длительном действии нагрузки"
445 IF ZZ8=8 GOTO 720
450 PRINT ”35)S	Коэффициент"
455 IF ZZ8=8 GOTO 720
460 PRINT "36)lo /см/ Величина расчетного пролета конструкции"
465 IF ZZ8=8 GOTO 720
470 PRINT "37)fv /см/ Значение предельно допустимого прогиба конструкции"
471 IF ZZ8=8 GOTO 720
472 PRINT "3 8)h	/см/ Высота сечения элемента"
475 IF ZZ8=8 GOTO 720
476 PRINT "0-Вернуться в начало списка, 1-продолжить "
477 INPUT А67
478 IF А67=0 GOTO 11
500 ZZ8=8
510 INPUT "Введите фамилию";Л$
520 INPUT "Введите группу";В$
530PRINT" ВВОД ДАННЫХ"
535 PRINT " алаааааалаллаааааалаалалаалаалан
540 FOR J=1 ТО 38
545 IF J=1 GOTO 100
550 IF J=2 GOTO 120
555 IF J=3 GOTO 130
560 IF J=4 GOTO 140
565 IF J=5 GOTO 150
570 IF 1=6 GOTO 160
575 IF J=7 GOTO 170
580 IF J=8 GOTO 180
585 IF J=9 GOTO 190
590 IF J=10 GOTO 200
595 IF J=11
600 IF J=12
605 IF J=13
610 IF J=14
615 IF J=15
620 IF >16
625 IF J—17
630 IF J=18
635 IF J=19
640 IF J=20
645 IF J=21
650 IF J=22
655 IF J=23
660 IF J=24
665 IF J=25
670 IF J=26
675 IF J=27
680 IF J=28
GOTO 210
GOTO 220
GOTO 230
GOTO 240
GOTO 250
GOTO 260
GOTO 270
GOTO 280
GOTO 290
GOTO 300
GOTO 310
GOTO 320
GOTO 330
GOTO 340
GOTO 350
GOTO 360
GOTO 370
GOTO 380
139
Продолжение приложения J3.
685 IF J=29 GOTO 390
690 IF J=30 GOTO 400
695 IF J=31 GOTO 410	/
700 IF J=32 GOTO 420
705 IF J=33 GOTO 430
710 IF J=34 GOTO 440
715 IF J=35 GOTO 450
716 IF J=36 GOTO 460
717 IF J=37 GOTO 470
718 IF 1=38 GOTO 472
720 INPUT A(J)
730 IF YY6=6 GOTO 755
732 NEXT J
755 PRINT "__________________________________
756 PRINT " "
758 PRINT "««««« * GBK6 *";A$;" ”;B$;" »»»»»» >•’
760 PRINT "1 )Es=";A(I);"MIIa’,;TAB(120);"20)Asi =";А(20);"смл2"
765 PRINT "2 )Ев =";А(2);"МПа";ТАВ(120);"21)@Ь =";А(21);"МПа"
770 PRINT "3 )в =";А(3);"см";ТАВ(120);"22)@Ь’ =";А(22);"МПа"
775 PRINT "4 )в?=";А(4);"см";ТАВ(120);"23)& =";A(23)
780 PRINT "5 )sf =";А(5);"см";ТАВ(120);"24)Мст =";A(24);"H*m"
785 PRINT "6 )h’f =";A(6);"cm";TAB(120);"25)M =";А(25);”Н*м"
790 PRINT "7 )hf =";A(7);"cM";TAB(120);"26)Msh =";A(26);"H*m"
795 PRINT "8 )a' =";А(8);"см";ТАВ(120);"27)М1 =";A(27);"H*m"
800 PRINT ”9 )ho =”;А(9);"см";ТАВ(120);”28)#Ь =";A(28)
805 PRINT ”10)Po2 =";A(10);"H";TAB(120);"29)#ls =";A(29)
810 PRINT "1 l)eop2 =";A(1 1);"cm";TAB(120);"30)#1s1 =”;A(30)
815 PRINT "12)Pol -”;A(12);"H";TAB(120);"31)#bl =”;A(31)
820 PRINT "13)eopl =”;А(13);”см";ТАВ(120);,'32)#Ь21 =";A(32)
825 PRINT ”14)Rb,ser =’’;A(I4);‘,Mna’,;TAB(120);,,33)VSh =";A(33)
830 PRINT "15)Rbp,ser =";А(15);,,МПа";ТАВ(120);”34)У1 -”;A(34)
835 PRINT "16)Rbtp,ser ='';А(16);"МПа";ТАВ(120);"35)8 =”;A(35)
840 PRINT ”17)Rbt,ser =";А(17);"МПа";ТАВ(120);”36)1о =”;А(36);"см"
845 PRINT "18)Asp =";A(18);”cMA2";TAB(120);"37)fv =";A(37); "cm"
850 PRINT ”19)As =";А(19);"смл 2’’;TAB(120);"38)h =";A(38);” cm"
860 PRINT"
952 IF TT5=0 GOTO 962
953 PRINT " 1 -Продолжить счет этого варианта, изменив некоторые входные
параметры"
955 PRINT "2-Счет программы заново"
956 INPUT "3-Выход из программы";МА8
957 ТТ5=0
958 IF МА8=1 GOTO 975
959 IF МА8=2 GOTO 11
960 IF МА8=3 THEN STOP
962 ES=A( 1 ):EB=A(2):B=A(3):BFS-A(4):BF=A(5):HFS=A(6):HF=A(7):
H=A(38):AASS=A(8)
140
Продолжение приложения 13.
963 НО=А(9):Р02=А( 10):ЕОР2=А( 11 ):Р01-А(12):ЕОР1-А(13):RBS=A( 14):
RBSP=A(I5)
964 RBTSP—А( 16) :RBTS-A( 17): ASP-A( 18): AS-A( 19): ASS-A(20): SB-
A(21):SBS=A(22)
965 GAM-A(23):MCM-A(24):M=A(25):MSH=A(26):ML-A(27):PSIB=A(28):
FILS-A(29)
966 FILSL=A(30):FB 1-A(31):FB2L-A(32):NSH=A(33):NL-A(34):S=A(35):
LO-A(36):FU-A(37)
968 INPUT "Хотите что-нибудь исправить ( 1-Да 2-Нет )";YZ
970 IF YZ-2 GOTO 1010
971 INPUT "Введите номер изменяемой переменной";!
972 YY6-6
973 GOTO 545
974 GOTO 1010
975 INPUT "Будем менять фамилию ( 1-Да 2-Нет )";ККЗ
976 IF ККЗ-2 GOTO 978
977 INPUT "Введите фамилию";А$
978 INPUT "Будем менять группу ( 1-Да 2-Нет )";КК4
979 IF КК4-2 GOTO 755
980 INPUT "Введите группу";В$
981 GOTO 755
1010 ALF-ES/EB
1015 ХХ1=0:ХХ2=0:ХХЗ=0
1020 AMU=(ASP+AS)/(B*HO)
1030 AFB-(BFS-B)*HFS
1040 AFT-(BF-B)*HF
1050 A=B*H
1060 ARED-B*H+AFT+AFB+ALF*(ASP+AS+ASS)
1070 ZFB=H-.5*HFS
1080 Z-H/2
1090 ZFT-HF/2
1100 SRED-AFB*ZFB+A*Z+AFT*ZFT
1110 YRED-SRED/ARED
1120 ZFBRED-ZFB-YRED
1130 ZRED-Z-YRED
1140 ZFTRED-ZFT-YRED
1150 JRED=((AFB*HFSA2)/12)+AFB*ZFBREDA2+((B*HA3)/12)+A*ZRED
A2+((AFT*HFA2)/12)*AFT*ZFrREDA2+ALF*(ASP+AS+ASS)*YREDA2
1160 WBRED-JRED/YRED
1170 WTRED-JRED/(H-YRED)
1180 ANT- WBRED/ARED
1190 ANB-WTRED/ARED
1200SBC=((P02*(ANT+ANB)/100)+2*RBTS*WBRED)/WTRED
1210 FT—1.6-SBC/RBS
1220 SBT=((P01 *(ANT+ANB)/100)+2*RBTSP*WTRED)/WBRED
1230 FB-1.6-SBT/RBSP
1240 IF FT<.7 THEN FT-. 7
1250 IF FB<.7 THEN FB-.7
141
Продолжение приложения 13.
1260 IF FT>1 THEN FT=1
1270 IF FB>1 THEN FB=1
1280 RT=FT*WBRED/ARED
1290 RB=FB*WTRED/ARED
1300 WPLB=GAM*WBRED
1310 WPLT-G AM * WI RED
1320 MP=RBTSP*WPLT*100
1330 MRPB=P01*(EOP1-RB)-MCM
1340 MRP=P02*(EOP2+RT)
1350 MCRC=RBTS* WPLB* 100+MRP
1360 M1=M:XX1=1
1370 IF MP<MRPB GOTO 1400
1380 XX 1=2
1390 GOTO 1495
1400 FM=RBTSP*WPLB*100/MRPB
1420 IF FM<= 45 THEN FM= 45
1430 IF FM>=1 THEN FM=1
1440 DEL=( YRED/(H- YRED))*((ASP+AS)/(ASP+AS+ASS))
1450 IF DEL>1.4 THEN DL=1.4
1460 LMBD=(1.5-.9/DEL)*(l-FM)
1470 IF LMBD<0 THEN LMBD=0
1480 P02=P02*( 1 -LMBD)
1490 MCRC=MCRC*(1-LMBD)
1495 XX2=1
1500 IF M>MCRC GOTO 1540
1510XX2=2
1520 GOTO 2250
1540 MS=M+P02*(YRED-EOP2-H+HO)
1550 ESTOT=MS/P02
1560 В 1=B
1570 DEL1=MS/(RBS*B1*HOA2*100)
1580 FIF=((BFS-B1)*HFS+(ALF/(2*NSH))*ASS)/(B 1 *HO)
1590 IF BFS>0 GOTO 1640
1600 IF ASS>0 GOTO 1630
1610HFS=0
1620 GOTO 1640
1630 HFS=2*AASS
1640 LMBD=FIF*( 1 -HFS/(2*HO))
1650 EST=ESTOT/HO
1660 IF EST<.5 THEN EST=.5
1670 KSI=l/( 1.8+( 1+5*(DELl+LMBD))/( 10*AMU*ALF))+( 1.5+FIF)/(
IE5*EST"5)
1680 IF HFS=0 GOTO 1730
1690 IF (KSI-HFS/HO)>=0 GOTO 1730
1700Bl=BFS
1710ASS=0
1720 GOTO 1570
1730 IF BFS>0 GOTO 1780
142
Продолжение приложения 13.
1740 IF ASS>0 GOTO 1770
1750 HFS=0
1760 GOTO 1780
1770 HFS=2*AASS
1780 Z=HO*( 1 -(HFS*FIFZHO+KSIA2)Z(2 ♦(FIF+KSI)))
1790 FM=RBTS* WPLB* 1 OOZABS(M-MRP)
1800 IF FM>1 THEN FM=1
1810 IF EST<(1.2/FILS) THEN EST=1.2/FILS
1820 PSIS= 1,25-FILS*FM-( 1 -FMA2)Z((3.5-1.8*FM)*EST)
1830 IF PSIS>1 THEN PSIS=1
1840 IF M=ML GOTO 1880
1850 ROB1=MSZ(HO*Z* 100)*(PSISZ(ES*(ASP+AS))+PSIBZ((FIF+KSI)
♦B*HO*EB*NSH))-P02*PSISZ(HO*ES*(ASP+AS)*100)
1860 M-ML
1870 GOTO 1540
1880 ROB2=MSZ(HO*Z* 100)*(PSIS/(ES*(ASP+AS))+PSIB/((FIF+KSI)
*B *HO *EB *NSH))-P02 *PSIS/(HO *ES *( ASP+AS) * 100)
1890 MSL=ML+P02*(YRED-EOP2-H+HO)
1900 ESTOTL=MSL/P02
1910 B2=B
1920 DEL1L=MSLZ((RBS*B2*HOA2)*100)
1930 FIFL=((BFS-B2)*HFS+(ALFZ(2*NL))*ASS)Z(B2*HO)
1940 IF BFSX) GOTO 1990
1950 IF ASS>0 GOTO 1980
1960 HFS=0
1970 GOTO 1990
1980 HFS=2*AASS
1990 LMBDL=FIFL*(1-HFSZ(2*HO))
2000 ESTL=ESTOTL/HO
2010 IF ESTL<= 5 THEN ESTL-5
2020 KSIL= 1 /(1.8+( 1+5*(DEL 1 L+LMBDL))/( 10*AMU*ALF))+( 1.5+FIF
L)/(11.5*ESTL-5)
2030 IF HFS=0 GOTO 2080
2040 IF (KSIL-(HFS/HO))>-0 GOTO 2080
2050 B2=BFS
2060 ASS=O
2070 GOTO 1920
2080 IF BFS>0 GOTO 2130
2090 IF ASS<=0 GOTO 2120
2100 HFS=2*AASS
2110 GOTO 2130
2120 HFS=0
2130 ZL=HO*(1 -(HFS*FIFL/HO+KSILA2)/(2*(FIFL+KSIL)))
2140 FIML=RBTS* WPLB* 1 OOZABS(ML-MRP)
2150 IF FIML>=1 THEN FIML=1
2160 IF ESTL <=(1.2ZFILSL) THEN ESTL=1.2ZFILSL
2170 PSISL=1.25-FILSL*FIML-( 1 -FIMLA2)Z((3.5-1,8*FIML)*ESTL)
2180 IF PSISL>=1 THEN PSISL=1
143
Продолжение приложения 13.
2190 ROB3=MSL/(HO*ZL* 1 00)*(PSISL/(ES*(ASP+AS))+PSIB/((FIFL+
KSIL)*B*HO*EB*NL))-P02*PSISL/(HO*ES*(ASP+AS)* 100)
2200 IF ROB2>=0 GOTO 2250
2210 IF ROB3>=0 GOTO 2250
2220 ROB2=0
2230 ROB3=ROB2
2240 GOTO 2250
2250 EPSB-SB/ES
2260 IF (MP-MRPB)>=0 GOTO 2290
2270 EPSBS=0
2280 GOTO 2300
2290 EPSBS=SBS/ES
2300 ROB4=(EPSB-EPSBS)/HO
2310 M=M1
2320 IF M<=MCRC GOTO 2350
2330 ROBTOT=ROB1-ROB2+ROB3-ROB4
2340 GOTO 2480
2350 ROBSH=MSH/(FB1*EB* JRED* 100)
2360 ROBL=ML*FB2L/(FB1 *EB*JRED* 100)
2370 ROBCP=P02*EOP2/(FB 1 *EB* JRED* 100)
2380 ROB=ROBCP+ROB4
2390 X=P02*EOP2*FB2L/(FB1 *EB* JRED* 100)
2400 IF ROB<X THEN ROB=X
2410 IF MP>=MRPB GOTO 2470
2420 ROBSH=1.5*ROBSH
2430 ROBL= 1.15*ROBL
2440 ROBCP=1.15*ROBCP
2450 ROB4=1.25*ROB4
2460 ROB-ROBCP+ROB4
2470 ROBTOT=ROBSH+ROBL-ROB
2480 F=ROBTOT*S*LOA2
2490 IF F>FU THEN XX3=3
3000 PRINT" РЕЗУЛЬТАТЫ СЧЕТА"
ЗОЮ PRINT" ...................."
3020 IF XX 1=1 THEN PRINT "В стадии изготовления образуются трещины от
усилия предобжатия бетона"
3030 IF XX 1=2 THEN PRINT "В стадии изготовления не образуются трещины от
усилия предобжатия бетона"
3040 IF ХХ2=1 THEN PRINT "В стадии эксплуатации образуются нормальные
трещины"
3050 IF ХХ2=2 THEN PRINT "В стадии эксплуатации нормальные трещины не
образуются"
3060 IF XX3=3 THEN PRINT "Жесткость элемента не обеспечена. Увеличить
площадь напрягаемой арматуры, либо повысить
класс арматуры и бетона"
3070 PRINT "Площадь приведенного сечения Ared =";ARED;"cma 2"
3080 PRINT "Статический момент приведенного сечения Sred = ";SRED;"cma3"
3090 PRINT "Момент инерции приведенного сечения Jred =";JRED;"cma4"
144
Продолжение приложения 13.
3100 PRINT "Момент сопротивления
3101 PRINT"--------------—"
3110 PRINT "-для крайнего растянутого волокна бетона Wple =";WPLB;”cma3"
3120 PRINT ''-для крайнего сжатого волокна бетона WplT =";W PLT;"cma3"
3130 PRINT "Момент образования нормал. трещин в бетоне
Мсгс=";МСВС;"Н*см"
3140 PRINT "Теоретическое значение прогиба f=";F;"cm"
3150 PRINT ".....................................”
3160 PRINT "Желаете распечатать результаты счета I -Да, 2-Нет "
3170 INPUT LI5
3180 ТТ5=5
3190 IF LI5=2 GOTO 755
4000 LPRINT " Расчет изгибаемых ЖБ элементов по образованию трещин и по”
4001 LPRINT "	деформациям * GBK6 ♦"
4010 LPRINT ,,****^****^**^^a^^*****^***^***’Js***********^*3ic**:******^*^*”
4040 LPRINT ” "
4050 LPRINT " ИСХОДНЫЕ ДАННЫ Е"
4060 LPRINT ’’ ^^ААААААЛЛАААААА/чААА/\/^\Л>'\ААААААЛ/\ЛААЛ/^ЛАЛА*>
4755 LPRINT ""
4756 LPRINT " "
4758 LPRINT "«««< * GBK6 * ";A$;" ”;B$;" »»»>’’
4760 LPRINT "1 )Es =";А(1);"МПа";ТАВ(110);”20)As' =";A(20); ”cma2"
4765 LPRINT "2 )Ев =”;А(2);"МПа";ТАВ(110);"21)@b =”;A(21);" МПа"
4770 LPRINT "3 )b =";A(3);"cm";TAB(1 10);"22)@b' =";A(22);"M Па"
4775 LPRINT "4 )вТ =";А(4);"см";ТАВ(110);"23)& =";A(23)
4780 LPRINT "5 )sf =";А(5);"см”;ТАВ(110);"24)Mcm =";А(24);”Н*м"
4785 LPRINT "6 )h’f=";А(6);"см";ТАВ(110);"25)M =";A(25);"H ♦m"
4790 LPRINT ”7 )hf=";A(7);’fCM”;TAB(l 10);"26)Msh =”;А(26);"Н*м"
4795 LPRINT ”8 )a’ =";А(8);"см”;ТАВ(110);”27)М1 =";А(27);”Н*м"
4800 LPRINT "9 )ho =";A(9);W;TAB(110);’’28)#b =";A(28)
4805 LPRINT "10)Po2 =";A(10);"H”;TAB(l 10);"29)#ls =";A(29)
4810 LPRINT "1 l)eop2 =”;A(11);"см";ТАВ(110);"30)#lsl =";A(30)
4815 LPRINT "12)Pol -”;A(12);"H,’;TAB(110);"31)#bl =";A(31)
4820 LPRINT "13)eopl -";A(I3);”cm";TAB(1 10);"32)#b21 =";A(32)
4825 LPRINT "14)Rb,ser =";А(14);"МПа";ТАВ(110);"33)VSh =";A(33)
4830 LPRINT "15)Rbp,ser =";А(15);"МПа";ТАВ(11O);"34)V1 =”;A (34)
4835 LPRINT "16)Rbtp,ser =";А(16);"МПа";ТАВ(110);"35)8 =";A(35)
4840 LPRINT "17)Rbt,ser =";А(17);"МПа";ТАВ(110);"36)k> =";А(36);"см"
4845 LPRINT "18)Asp =";А(18);"смл2";ТАВ(110);"37)fv =";А(37);"см"
4850 LPRINT "19)As =";А(19);"смл 2";TAB(110);"38)h =";А(38);"см"
4860 LPRINT "
5000 LPRINT " РЕЗУЛЬТАТ Ы СЧЕТ A”
5010 LPRINT " ........................"
5020 IF XX 1=1 THEN LPRINT "В стадии изготовления образуются трещины от
усилия"
5021 IF XX 1=1 THEN LPRINT "предобжатия бетона"
5030 IF XX 1=2 THEN LPRINT "В стадии изготовления не образуются трещины
от"
145
Окончание приложения 13.
5031 IF XX 1=2 THEN LPRINT "усилия предобжатия бетона"
5040 IF ХХ2=1 THEN LPRINT "В стадии эксплуатации образуются
нормальные трещины"
5050 IF ХХ2=2 THEN LPRINT "В стадии эксплуатации нормальные
трещины не образуются"
5060 IF XX3=3 THEN LPRINT "Жесткость элемента не обеспечена. Увеличить
площадь напрягаемой"
5061 IF XX3=3 THEN LPRINT "арматуры, либо повысить класс арматуры и
бетона"
5070 LPRINT "Площадь приведенного сечения Ared =";ARED;"cm л2"
5080 LPRINT "Статический момент привед. сечения Sred =";SRED;"cma3"
5090 LPRINT "Момент инерции привед сечения Jred =";JRED;"cma4"
5100 LPRINT "Момент сопротивления
5101 LPRINT "--------------"
5110 LPRINT "-для крайнего растянутого волокна бетона
WP1b=";WPLB;"cma3"
5120 LPRINT "-для крайнего сжатого волокна бетона Wplr ="; WPLT;"cma3"
5130 LPRINT "Момент образования нормал. трещин в бетоне
Mere =";MCRC;"H*cm"
5140 LPRINT "Теоретическое значение прогиба f=";F;"cm"
5150 LPRINT "............................."
6000 ТТ5=5
6001 GOTO 755
6010 STOP
6020 END
146
ЛИТЕРАТУРА
1.	СНиП 2.03.01-84 5* 0. Бетонные и железобетонные конструкции. Нормы про-
ектирования. М: Стройиздат, 1985.
2.	Пантелькин И. И. Расчет элементов железобетонных конструкции. Учебное
пособие. М: Изд-во АСВ, 1998.
3.	Светозаров Г.И., Козловский А.В. Практикум по программированию на языке
BASIC. М: Наука, 1989.
4.	Бухтояров А.М., Олюнин В.Ю. Сборник задач по программированию на языке
PL1 М: наука, 1983.
1
ОГЛА
ПЕНИЕ
Предисловие.............................................. 3
ГЛАВА 1. РАСЧЕТ ПРОЧНОСТИ ЭЛЕМЕНТОВ
ЖЕЛЕЗОБЕТОННЫХ КОНСТРУКЦИЙ..................................... 4
1.1.	Определение потерь предварительного
напряжения в арматуре.....................................   4
1.1.1.	Алгоритм машинного счета............................ 4
1.1.2.	Инструкция к программе на языке BASIC............. 4
1.2.	Расчет рабочей растянутой арматуры для изгибаемых
элементов.................................................. 10
1.2.1.	Алгоритм машинного счета........................... 10
1.2.2.	Инструкция к программе на языке BASIC............   13
1.3.	Проверка прочности нормального сечения
изгибаемых элементов....................................... 17
1.3.1.	Алгоритм машиш юго счета........................... 17
1.3.2.	Инструкция к программе на языке BASIC............   18
1.4.	Подбор поперечной ар*матуры по прочности
наклонного сечения при действии поперечной силы............ 22
1.4.1.	Алгоритм машинного счета..........................  22
1.4.2.	Инструкция к программе на языке BASIC.............. 23
1.5.	Проверка прочности наклонного сечения при
действии поперечной силы................................... 27
1.5.1.	Алгоритм машинного счета........................... 27
1.5.2.	Инструкция к программе па языке BASIC.............. 28
1.6.	Расчет рабочей несимметричной арматуры
внецепгренно сжатых железобетонных элементов............... 32
1.6.1.	Алгоритм машинного счета........................... 32
1.6.2.	Инструкция к программе на языке BASIC.............. 34
1.6.3.	Инструкция к программе на языке PL1................ 39
1.7.	Расчет продольной рабочей арматуры внецентренно сжатых
железобетонных элементов при симметричном
армировании..........................................  42
1.7.1.	Алгоритм машинного счега.........................   42
1.7.2.	Инструкция к программе на языке BASIC.............. 42
1.7.3.	Инструкция к программе на языке PL 1.............   48
1.8.	Расчет рабочей продольной арматуры внецентренно
сжатых элементов круглого сечения.......................... 49
1.8.1.	Алгоритм машинг юго счета.......................... 49
1.8.2.	Инструкция к программе на языке BASIC.............. 51
1.9.	Проверка несущей способности внецентренно сжатых
железобетонных элементов с произвольным видом
армирования................................................ 54
1.9.1.	Алгоритм машинного счета........................... 54
1.9.2.	Инструкция к программе на языке BASIC.............. 58
1.9.3.	Инструкция к программе на языке PL 1.............   61
148
ГЛАВА 2. РАСЧЕТ ЭЛЕМЕНТОВ ЖЕЛЕЗОБЕТОННЫХ
КОНСТРУКЦИЙ ПО ОБРАЗОВАНИЮ ТРЕЩИН И
ДЕФОРМАЦИЯМ............................. 65
2.1.	Алгоритм машинного счета................ 65
2.2.	Инструкция к программе на языке BASIC... 65
ПРИЛОЖЕНИЕ 1 Текст рабочей программы GBK.1................ 72
ПРИЛОЖЕНИЕ 2 Текст рабочей программы GBK2...............   81
ПРИЛОЖЕНИЕ 3 Текст рабочей программы GBK3................. 85
ПРИЛОЖЕНИЕ 4 Текст рабочей программы GBK4................. 92
ПРИЛОЖЕНИЕ 5 Текст рабочей программы GBK5...............   99
ПРИЛОЖЕНИЕ 6 Текст рабочей программы GBKN на языке BASIC.	105
ПРИЛОЖЕНИЕ 7 Текст рабочей программы GBKN на языке PL1...	111
ПРИЛОЖЕНИЕ 8 Текст рабочей программы GBKS на языке BASIC.	114
ПРИЛОЖЕНИЕ 9 Текст рабочей программы GBKS на языке PL1...	120
ПРИЛОЖЕНИЕ 10 Текст рабочей прш'раммы GBKK............... 123
ПРИЛОЖЕНИЕ 11 Текст рабочей программы GBK на языке BASIC.	128
ПРИЛОЖЕНИЕ 12 Текст рабочей программы GBKN на языке PL 1. 134
ПРИЛОЖЕНИЕ 13 Текст рабочей программы GBK6............... 137
ЛИТЕРАТУРА.;....................................	М7
Учебное издание
Пантелькин Иван Иванович
Черноусов Николай Николаевич
Суслов Иван Александрович
Галкин Вячеслав Васильевич
Использование ЭВМ в расчетах элементов
железобетонных конструкций
Редактор Р. А. Черникова
Корректор Т. М. Курьянова
Компьютерный набор и верстка
Чуносов В. А.
Капырин Н. В.
Издательство Ассоциации Строительных Вузов,
129337, Москва, Ярославское шоссе, 26
ЛР № 010177 от 3.02.97 г.
Подписано к печати 26.08.98 г. Формат 60x90 1/16.
Бумага офсетная № 1. Печать офсетная. Объем 9,5 п. л.
Уч.-изд. л. 8,835. Тираж 400 экз. Зак. 3674.
Отпечатано с диапозитивов в Лип. изд-ве Госкомпечати РФ.
398055, г. Липецк, Московская, 83.