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

UptoLike

ВУЗ: 

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

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

Рубрика: 

End;
procedure gosub;
begin
k:=r/2100000;
ll:=la*sqrt(k);
if 11<=2.5 then f:=l-(0.073-5.53*k)*ll*sqrt(11);
if 11>4.5 then f:=332/(ll*ll*(51-ll));
kl:=(0.0275-5.53*k)*ll*ll; if (11>2.5) and (11<=4.5) then
f:=1.47-13*k-(0.371-27.3*k)*ll+kl;
end;
procedure raschet;
label 10,19,20,110;
begin
i:=0; 10:
i:=i+l;
if i>23 then goto 19;
rx:=sqrt(ix[i]/aCi]);
ry:=sqrt(iyCi]/aCi]);
la:=le/rx;
b:=sqrt(4*(ixCi]-iyCi])/a[i]);
l:=40*ry;
if la>120 then goto 10;
gosub;
si:=n/(2*f*aCi]);
if si>r then goto 10;
bbC13:=aCi];
bb[2]:=b;
bbC33:=l;
19: i:=0; 20:
i:=i+l;
if i>22 then goto 110;
rx:=sqrt(ixlCi]/al[i3);
ry:=sqrt(iyl[i]/alCi3);
la:=le/rx;
bl:=sqrt(4*(ixl[i]-iylCi])/alCi]);

Страницы