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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

end;
End;
procedure raschet(var flag,flagl.zz:integer); var
m,ql,wtr,rsl,rs2,rs3,rs,hw,tw,bf,tf,tmin,tl,itr:real;
iw,ip,f,af,a
f
del,dell,oi,w
f
ot
f
c
f
sig,sf,tau,ry:real; label
10,20,1000; begin zz:=l; m:=q*l*l/8;
ql:=q*l/2; wtr:=m/ryl/l.l; rsl:=0.58*ry1; hw:=l/50;
10: hw:=hw+S;
if hw>200 then goto 1000;
tmin:=1.5*ql/hw/rsl;
tl:=hw/6*sqrt(ryl/2100000); itr:=wtr*hw/2;
if tmin<=tl then tw:=(int(tl*10+l))/10 else
tw:=(int(tmin*10+l))/10;
iw:=tw*hw*hw*hw/12; ip:=itr-iw; af:=2*ip/hw/hw; if
af<0 then
begin
bf:=int(hw/6);tf:=(int(bf/25*10+l))/10; goto 20
end;
tf:=(int(sqrt(af)/5*10+1))/10;
bf:=int(25*tf); if bf<hw/6 then
begin
bf:=int(hw/6); tf:=(int(bf/25*10+1))/10
end;
20: if hw>200 then goto 1000;
if tf>4 then goto 10;
oi:=tw*hw*hw*hw/12+2*bf*tf*(0.5*hw+0.5*tf)*(0.5*hw+0.5*tf);
w:=2*oi/(hw+2*tf); if tf<=l then ry:=ryl
else if tf<=2 then ry:=ry2
else ry:=ry3;
ot:=bf*tf/hw/tw; if ot<=0.25 then
c:=1.19;
if (ot>0.25) and (ot<=0.5) then c:=1.26-0.28*ot; if
(ot>0.5) and (ot<=l) then c:=1.17-0.1*ot;

Страницы