Unti1 fa1se; End^

5.1.4. ПРИМЕР РАСЧЕТА

В качестве примера приняты исходные данные практического расчета, изложенного в главе 2 настоящего пособия.

Результаты расчета сохраняются в отдельном файле, наименование которого назначается пользователем и представляет собой две таблицы. Одна таблица-"Исходные данные", где приведены введённые величины. Другая таблица "Результаты расчета", состоит из двух величин, которые представляют собой моменты сопротивления сечений подобранных двутавров по ГОСТ 8239-SBf и по ТУ 14-2-24-72.

В приведенных ниже таблицах даны результаты расчета.

ИСХОДНЫЕ ДАННЫЕ

1. ПОГОННАЯ НАГРУЗКА, кг/см

25.2

2. РАСЧЕТНЫЙ ПРОЛЕТ, см

600.0

3. РАСЧЕТНОЕ СОПРОТИВЛЕНИЕ СТАЖ, кг/смл

2450.0

1. БАЛКА ИЗ ДВУТАВРА ПО ГОСТ 8239-0 С W=

472.00

2. БАЛКА ИЗ ДВУТАВРА ПО ТУ 14-2-24-72 С W=

502.00

5.2. АВТОМАТИЗАЦИЯ ПРОЦЕССА РАСЧЕТА СОСТАВНЫХ ДВУТАВРОВЫХ БАЛОК

5.2.1. ИСХОДНЫЕ ДАННЫЕ

Программа предназначена для расчета стальных составных балок дву­таврового сечения. Расчет заключается в подборе множеств вариантов сечений, начиная от минимальной высоты балки до высоты двух метров с заданным шагом изменения высоты балки. Для каждого варианта подбирается минимальное сечение с необходимыми проверками по прочности и жесткости. По результатам расчета можно выбрать необ­ходимый вариант сечения. Сечение может быть принято оптимальное, заданной высоты или принято по наличию сортамента.

Для расчета необходимы следующие исходные данные: д — погонная расчетная нагрузка в кг/см; 1 — расчетный пролет балки в см; Яу1 — расчетное сопротивление стали балки на растяжение, сжатие и изгиб по пределу текучести, при толщине листа до 10 мм включительно, которое принимается по таблице 51 [13 в зависимости от принятой марки стали в кг/см2; Иу2 — то же при толщине листа от 11 до 20 мм* Иу3 — то же при толщине листа более 20 мм; б — шаг изменения высоты балки в см.

5.2.2. БЛОК-СХЕМА АЛГОРИТМА РАСЧЕТА

Блок-схема разработана на основании методики расчета стальных составных, изложенной в главе 3 настоящего пособия. Обозначения приняты согласно приложению 9 [1]. Блок-схема представлена на фис.

5.2.

Рис. 5.2. Блок-схема алгоритма расчета стальной составной балки

J=twhw3/12+2bftf(O,5hw+0,5tf)W=2J/(hw+2tf)

N=bftf/twhw

T

)

R

К

7

КОНЕЦ

Hw;tw;bf;tf;a;A;Ai;f

5.2.3. ТЕКСТ ПРОГРАММ "BALKA211

Программа предназначена для расчета стальных составных балок двутаврового сечения. Расчет заключается в подборе множеств вари­антов сечений, начиная от минимальной высоты балки до высоты двух метров с заданным шагом изменения высоты балки. Для каждого вари­анта подбирается минимальное сечение с необходимыми проверками по прочности и жесткости. По результатам расчета можно выбрать необ­ходимый вариант сечения. Сечение может быть принято оптимальное, заданной высоты или принято по наличию сортамента. Толщины приня­тых листов дискретны сортаменту. Программа написана на языке Пас­каль.

Текст программы приведен ниже:

Program uu; uses crt, graph;

Var key:char;

Xxl, yyl:integer; i, j,n, fl:integer; q,1,ryl, ry2,ry3,s:real; f4:text;

Nom_f:stringC123; aa:array[1..6] of real; bb:arrayCl..150] of record h. w,tw, bf, tf, a,del, dell, f:real; end;

Procedure windl(xl, yl, x2,y2:integer;coif, coir:byte;ten:char;colt:

Byte);

Var i:integer; begin if ten=’y’ then BEGIN window(1,1,80,25); textbackground(0); textcolor(colt); gotoxy(xl+l, y2+l); for i: = (yl+l) to (y2+l) do begin gotoxy (x2+l, i); write(‘i’); end; for i:=(xl+l) to (x2+l) do begin gotoxy(i, y2+l); wrlte (‘l’); end; E№; window(xl, yl, x2,y2); textbackground(colf); clrscr; textcolor(colr); gotoxy(2,l); write(‘|’); for i:=3 to (x2-xl-l) do begin gotoxy(i, l); write (‘-‘); end; gotoxy (x2-xl, l); write Ci’); for i:=2 to (yЈ-yl) do begin

Gotoxy(2,i); write(‘l’); gotoxy (x2-xl, i); writeC ‘); end;

Gotoxy(2,y2-yl+l); write (‘"•’);

For i:=3 to (x2-xl-l) do begin

Gotoxy(i, y2-yl+l); write (‘=’); end;

Gotoxy(x2-xl, y2-yl+l); writer-"’); end;

Procedure new_win(xl, yl, x2,y2,col_f:byte); begin

Window(1,1,80,25); textbackground(O); textcolor(O); clrscr;

Textbackground(col_f); for i:=yi to y2 do for з:=(х1+1) to (x2-l) do begin gotoxy (j, i); write(‘i’); end;

END;

Procedure VvodWindow(xl, yl, x2,y2,coli, co!2:byte); Begin

Windcw(xl, yl, x2,y2); TextCclcr(ccl2); TextBackGrcund(ccll); clrscr; End;

Procedure Nachalo; Begin

New_win(l,1,80,25,1); windl(8,5,71,20,3,0,’y\3); gotoxy(7,3); write(‘ПРОГРАММА ПРЕДНАЗНАЧЕНА ДЛЯ РАСЧЕТА СТАЛЬНЫХ СОСТАВНЫХ’);

Gotoxy(4,5); write(‘БАЛОК ДВУТАВРОВОГО СЕЧЕНИЯ. РАСЧЕТ ЗАКЛЮЧАЕТСЯ В ПОДБОРЕ’);

Gotoxy(4,6); write(‘МНОЖЕСТВ ВАРИАНТОВ СЕЧЕНИЙ, НАЧИНАЯ ОТ МИНИМАЛЬНОЙ ВЫСОТЫ);

Gotoxy(4,7); write(‘БАЛКИ ДО ВЫСОТЫ 2 МЕТРОВ С ЗАДАННЫМ ШАГОМ ИЗМЕНЕНИЯ ВЫ-‘);

Gotoxy(4,8); write(‘СОТЫ БАЛКИ. ДЛЯ КАЖДОГО ВАРИАНТА ПОДБИРАЕТСЯ МИНИМАЛЬНОЕ’);

Gotoxy(4,9); write(‘СЕЧЕНИЕ С НЕОБХОДИМОЙ ПРОВЕРКОЙ ПО ПРОЧНОСТИ И ЖЕСТКОСТИ);

Gotoxy(4,10); write(‘ПО РЕЗУЛЬТАТАМ РАСЧЕТА МОЖНО ВЫБРАТЬ НЕОБХОДИМЫЙ ВАРИАНТ);

Gotoxy(4,11); write(‘СЕЧЕНИЯ. СЕЧЕНИЕ МОЖЕТ БЫТЬ ПРИНЯТО ОПТИМАЛЬНОЕ, ЗАДАННОЙ’); gotoxy(4,12);

Write(‘ВЫСОТЫ ИЛИ ПРИНЯТО ПО НАЛИЧИЮ СОРТАМЕНТА. ПРОГРАММА НАПИ’); gotoxy(4,13);

Write(‘САНА НА ЯЗЫКЕ ПАСКАЛЬ В 1998 г.’); gotoxy(4,14);

Write(‘ АВТОРЫ: МАКАРОВ А. А., МАКАРОВА Н. А. ‘); repeat



.