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

UptoLike

ВУЗ: 

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

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

Рубрика: 

end;
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:<L47-13*k-(0.371-27.3*k)*
11+kl;
end;
procedure raschet;
label
10,19,20,29,30,39,40,49,50,59,60,69,70,100,110;
begin
i:=0; 10:
i:=i+l;
if i>23 then goto 19;
ry:=sqrt(iy[i]/aCi]);
la:=le/ry;
if la>120 then goto 10;
gosub;
si:=n/(f*aCi]);
if si>r then goto 10;
bbC13:=aCi];
19: i:=0; 20:
i:=i+l;
if i>23 then goto 29;
ryl:=sqrt((2*iy[i]+2*a[i]*0.5*bCi]*0.5*b[I])/2/a[i]);
la:=le/ryl;
if la>120 then goto 20;
gosub;
si:=n/(f*2*a[i]);
if si>r then goto 20;
bb[2]:=aCi3;

Страницы