Реферат: Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие

pos5[1]:=abs(mas[1]); pos5[2]:=abs(mas[2]); pos5[3]:=abs(((l10*s1)+(l11*s2))/u3); pos5[4]:=abs((l11*s2)/u4);

masif5[1]:=(mas[1]); masif5[2]:=(mas[2]); masif5[3]:=(((l10*s1)+(l11*s2))/u3); masif5[4]:=((l11*s2)/u4);

for ii:=1 to 4 do

for i:=1 to 3 do

if ep51[i]<>0 then

if ep51[i]>ep51[i+1] then

begin

per:=ep51[i];

ep51[i]:=ep51[i+1];

ep51[i+1]:=per;

per:=ep52[i];

ep52[i]:=ep52[i+1];

ep52[i+1]:=per;

per:=ep53[i];

ep53[i]:=ep53[i+1];

ep53[i+1]:=per;

per:=masif5[i];

masif5[i]:=masif5[i+1];

masif5[i+1]:=per;

per:=pos5[i];

pos5[i]:=pos5[i+1];

pos5[i+1]:=per;

end;

masif5[1]:=masif5[1]*ep51[1]; masif5[2]:=masif5[1]+(masif5[2]*(ep51[2]-ep51[1])); masif5[3]:=masif5[2]+(masif5[3]*(ep51[3]-ep51[2])); masif5[4]:=masif5[3]+(masif5[4]*(ep51[4]-ep51[3]));

for i:=1 to 4 do chis5[i]:=masif5[i];

for i:=1 to 4 do mash[i]:=abs(masif5[i]);

for ii:=1 to 4 do

for i:=1 to 3 do

if mash[i]<>0 then