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

UptoLike

29: i:=0;
30: i:=i+l;
if i>22 then goto 39;
ry:=sqrt(iyl[i]/al[i]);
la:=le/ry;
if la>120 then goto 30;
gosub;
si:=n/(f*alCi]);
if si>r then goto 30;
bbC3]:=al[il;
39: i:=0; 40:
I:=1+1;
if i>22 then goto 49;
ry:=sqrt((2*iylCi]+2*al[i]*zoEi]*zoCi])/2/al[i3);
la:=le/ry;
if la>120 then goto 40;
gosub;
si:=n/(f*al[i]);
if si>r then goto 40;
bbC4]:=alCi];
49: i:=0; 50:
i:=i+l;
if i>22 then goto 59; ryl:=sqr((2*iyl[i]+2*alCi]*(bCi]-
zo[i])*(b[i]-zoCi]))/2/al[i]);
la:=le/ryl;
if la>120 then goto 50;
gosub;
si:=n/(f*2*alCi]);
if si>r then goto 50;
bbC5]:=alCi];
59: i:=0; 60:
i:=i+l;
if i>46 then goto 69;
ry:=sqrt(iy2Ci]/a2[i]);
la:=le/ry;
if la>120 then goto 60;
gosub;
si:=n/(f*a2[i]);