Автоматизация процесса расчета стальных конструкций балочной клетки. Макаров А.А - 106 стр.

UptoLike

Составители:

Рубрика:

if (ot>l) and (ot<=2) then c:=l.l-0.03*ot; if ot>2 then

:=1.04; sig:=m/w/c; if sig>ry then

begin

tf:=tf+0.1; bf:=25*tf; goto 20 end

else del:=(ry-sig)/ry*100; if tw<=l then

rs:=0.58*ryl

else if tw<=2 then rs:=0.58*ry2

else rs:=0.58*ry3;

sf:=bf*tf*(0.5*hw+0.5*tf)+tw*hw*hw/8;

tau:=1.5*ql/hw/tw; if tau>rs then

begin

tw:=tw+0.1; goto 20 end

else dell:=(rs-tau)/rs*100; f:=q*l*l*l*l/193536000/oi;

if f>(1/300) then begin

hw:=hw+l; goto 20 end;

a:=hw*tw+2*tf*bf; bbEzzl.hw:=hw;

bbCzz].tw:=tw; bbCzz].bf:=bf;

bbEzz].tf:=tf; bbCzzl .a:=a;

bbEzz3.del:=del;

bb[zz].dell:=dell; bbCzz].tw:=tw;

bbCzz].f:=f; zz:=zz+l; goto 10;

1000:begin zz:=zz-l; exit; end; end;

procedure prover(i:integer);