Массив коэффициентов (с) для балок по ТУ 14-2-24-72


1.102 1.106 1.078 1.084 1.085 1.107 1.121 1.097 1.096 1.117 1.128 1.147 1 .090 1 .080 1.097 1.091 1.119 1.093 1.123 1.108 1.141 1.106 1.109 1.114 1.108 1.094 1.113 1.087 1.092 1.109 1.084 1.097 1.100 1.128 1.132 1.111

TOC \o "1-3" \h \z 1.076 1.084

1.101 1.084

1 .1 20 1 .096

1.096 1.107

1.100 1.139

1.113 1.114

1.094 1.108 1.117 1.088

1.94 1.108

1.95 1.128 1 . 111 1 . 1 08 1.109 1.110

Кроме постоянных данных, необходимы следующие исходные реквизиты:

Д — погонная расчетная нагрузка в кг/см;

1 — расчетный пролет балки в см; — расчетное сопротивление стали балки на растяжение, сжа­тие и изгиб по пределу текучести, которое принимается по таблице 51Ш в зависимости от принятой марки стали в кг/см2.

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

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

5.1.3. ТЕКСТ ПРОГРАММЫ "RALKA 1"

Программа предназначена для подбора сечений однопролетных статически определенных стальных балок. В результате расчета под­бираются минимально необходимые балки двутаврового сечения. Подбор производитсяи*двух вариантов. Первый вариант-из двутавра по ГОСТ 8239-19 , Второй из двутавра с параллельными гранями полок-по ТУ М-1-24-72, причем принимаются балочные двутавры. Подбор сечения балок производится с учетом развития пластических деформаций. В результате расчета выдается площадь подобранного сечения, по которой согласно сортаменту принимается номер двутавра. Программа написана на языке Паскаль. Текст программы приведен ниже: program uu; uses crt, graph;

Type

Pr=array[l..233 of real; prl=arrayCl..60] of real; var

Qtl, r,si, f,m, fl, f2,sig:real;

W, c,oo:pr;

Wl, cl, ojl:prl;

Ij. n: integer; f3,f4:text; nom_f:stringC12]; key:char; xxl, xx2,yyl, yy2:integer; zz, fl:integer; • aa:array[1. .33 of real; bb:arrayCl..71 of real;

Procedure windl(xi, 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(O); 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); write(‘l’); end; END;

Window(xl, yl, x2,y2);

Textbackground(colf);

Clrscr;

Textcolor(colr); gotoxy(2,l); write (‘r’);

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



Каталог футляр для очков mixoptica.in.ua..