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

l11:=strtofloat(Form1.Edit11.Text);

l10:=strtofloat(Form1.Edit10.Text); 

u1:=strtofloat(Form1.Edit4.Text); 

if ep21[2]>ep21[1] then  u2:=0;

if ep21[2]<=ep21[1] then  u2:=strtofloat(Form1.Edit4.Text);

if ep21[3]>ep21[1] then  u3:=0;

if ep21[3]<=ep21[1] then  u3:=strtofloat(Form1.Edit4.Text); 

for i:=1 to 3 do

ep22[i]:=59+(440/ep21[1])*ep21[i]; 

if ep21[1]>ep21[3] then mas:=0;

if (ep21[3]>=ep21[1]) and (ep21[2]<ep21[1]) then mas:=(l11*s2)/u1; 

mash[1]:=abs((l10*s1)+(l11*s2))/u2;

mash[2]:=abs((l11*s2)/u3);

mash[3]:=abs(mas); 

   for ii:=1 to 3 do

    for i:=1 to 2 do

    if mash[i]<>0 then

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

        begin

        per:=mash[i];

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

        mash[i+1]:=per;

end; 

ep23[1]:=(70/mash[3])*mas;

ep23[2]:=(70/mash[3])*(((l10*s1)+(l11*s2))/u2);

ep23[3]:=(70/mash[3])*((l11*s2)/u3); 

pos2[1]:=abs(mas);

pos2[2]:=abs(((l10*s1)+(l11*s2))/u2);

pos2[3]:=abs((l11*s2)/u3); 

masif2[1]:=(mas);

masif2[2]:=(((l10*s1)+(l11*s2))/u2);

masif2[3]:=((l11*s2)/u3); 

   for ii:=1 to 3 do

    for i:=1 to 2 do

    if ep21[i]<>0 then

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

        begin

        per:=ep21[i];

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

        ep21[i+1]:=per;

        per:=ep22[i];

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

        ep22[i+1]:=per;

        per:=ep23[i];

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

        ep23[i+1]:=per;

        per:=masif2[i];

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

        masif2[i+1]:=per;

        per:=pos2[i];

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

        pos2[i+1]:=per;

        end; 

masif2[1]:=masif2[1]*ep21[1];

masif2[2]:=masif2[1]+(masif2[2]*(ep21[2]-ep21[1]));

masif2[3]:=masif2[2]+(masif2[3]*(ep21[3]-ep21[2])); 

for i:=1 to 3 do

chis2[i]:=masif2[i]; 

for i:=1 to 3 do

mash[i]:=abs(masif2[i]); 

   for ii:=1 to 3 do

    for i:=1 to 2 do

    if mash[i]<>0 then

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

        begin

        per:=mash[i];

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

        mash[i+1]:=per;

end; 

for i:=1 to 3 do

masif2[i]:=((70/mash[3])*masif2[i]);

end; 

procedure epi3;

var

mash:array[1..4] of real;

mas:real;

per,l10,l11,l12:real;

i,ii:integer;

begin 

ep31[1]:=strtofloat(Form1.Edit1.Text);

ep31[2]:=strtofloat(Form1.Edit7.Text);

ep31[3]:=strtofloat(Form1.Edit8.Text);

ep31[4]:=strtofloat(Form1.Edit9.Text); 

l10:=strtofloat(Form1.Edit10.Text);

l11:=strtofloat(Form1.Edit11.Text);

l12:=strtofloat(Form1.Edit12.Text); 

u1:=strtofloat(Form1.Edit4.Text); 

if ep31[2]<=ep31[1] then  u2:=strtofloat(Form1.Edit4.Text);

if ep31[3]<=ep31[1] then  u3:=strtofloat(Form1.Edit4.Text);

if ep31[4]<=ep31[1] then  u4:=strtofloat(Form1.Edit4.Text); 

for i:=1 to 4 do

ep32[i]:=59+(440/ep31[1])*ep31[i]; 

if ep31[1]<ep31[4] then mas:=0

else mas:=(l12*s3)/u1; 

mash[1]:=abs((l11*s2)+(l12*s3))/u3;

mash[2]:=abs((l12*s3)/u4);

mash[3]:=abs(mas);

mash[4]:=abs(((l10*s1)+(l11*s2)+(l12*s3))/u2); 

   for ii:=1 to 4 do

    for i:=1 to 3 do

    if mash[i]<>0 then

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

        begin

        per:=mash[i];

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

        mash[i+1]:=per;

end; 

ep33[1]:=(70/mash[4])*mas;

ep33[2]:=(70/mash[4])*(((l10*s1)+(l11*s2)+(l12*s3))/u2);

ep33[3]:=(70/mash[4])*(((l11*s2)+(l12*s3))/u3);

ep33[4]:=(70/mash[4])*((l12*s3)/u4); 

pos3[1]:=abs(mas);

pos3[2]:=abs(((l10*s1)+(l11*s2)+(l12*s3))/u2);

pos3[3]:=abs(((l11*s2)+(l12*s3))/u3);

pos3[4]:=abs((l12*s3)/u4); 

masif3[1]:=(mas);

masif3[2]:=(((l10*s1)+(l11*s2)+(l12*s3))/u2);

masif3[3]:=(((l11*s2)+(l12*s3))/u3);

masif3[4]:=((l12*s3)/u4); 

   for ii:=1 to 4 do

    for i:=1 to 3 do

    if ep31[i]<>0 then

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

        begin

        per:=ep31[i];

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

        ep31[i+1]:=per;

        per:=ep32[i];

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

        ep32[i+1]:=per;

        per:=ep33[i];

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

        ep33[i+1]:=per;

        per:=masif3[i];

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

        masif3[i+1]:=per;

        per:=pos3[i];

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

        pos3[i+1]:=per;

        end; 

masif3[1]:=masif3[1]*ep31[1];

masif3[2]:=masif3[1]+(masif3[2]*(ep31[2]-ep31[1]));

masif3[3]:=masif3[2]+(masif3[3]*(ep31[3]-ep31[2]));

masif3[4]:=masif3[3]+(masif3[4]*(ep31[4]-ep31[3])); 

for i:=1 to 4 do

chis3[i]:=masif3[i]; 

for i:=1 to 4 do

mash[i]:=abs(masif3[i]); 

   for ii:=1 to 4 do

    for i:=1 to 3 do

    if mash[i]<>0 then

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

        begin

        per:=mash[i];

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

        mash[i+1]:=per;

end; 

for i:=1 to 4 do

masif3[i]:=((70/mash[4])*masif3[i]);

end; 

procedure epi4;

var

mash:array[1..3] of real;

mas:array[1..2] of real;

per,l10,l11:real;

i,ii:integer;

begin 

ep41[1]:=strtofloat(Form1.Edit1.Text);

ep41[2]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text);

ep41[3]:=strtofloat(Form1.Edit7.Text); 

l10:=strtofloat(Form1.Edit10.Text); 

u1:=strtofloat(Form1.Edit4.Text);

u2:=strtofloat(Form1.Edit5.Text); 

if (ep41[3]>ep41[1]) and (ep41[3]<=ep41[2]) then  u3:=strtofloat(Form1.Edit5.Text);

if ep41[3]<=ep41[1] then  u3:=strtofloat(Form1.Edit4.Text); 

for i:=1 to 3 do

ep42[i]:=59+(440/ep41[2])*ep41[i]; 

if ep41[1]>ep41[3] then mas[1]:=0;

if ep41[1]<=ep41[3] then mas[1]:=(l10*s1)/u1;

if ep41[2]>ep41[3] then mas[2]:=0;

if ep41[2]<=ep41[3] then mas[2]:=(l10*s1)/u2; 

mash[1]:=abs((l10*s1)/u3);

mash[2]:=abs(mas[1]);

mash[3]:=abs(mas[2]); 

   for ii:=1 to 3 do

    for i:=1 to 2 do

    if mash[i]<>0 then

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

        begin

        per:=mash[i];

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

        mash[i+1]:=per;

end; 

ep43[1]:=(70/mash[3])*mas[1];

ep43[2]:=(70/mash[3])*mas[2];

ep43[3]:=(70/mash[3])*((l10*s1)/u3); 

pos4[1]:=abs(mas[1]);

pos4[2]:=abs(mas[2]);

pos4[3]:=abs((l10*s1)/u3); 

masif4[1]:=(mas[1]);

masif4[2]:=(mas[2]);

masif4[3]:=((l10*s1)/u3); 

   for ii:=1 to 3 do

    for i:=1 to 2 do

    if ep41[i]<>0 then

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

        begin

        per:=ep41[i];

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

        ep41[i+1]:=per;

        per:=ep42[i];

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

        ep42[i+1]:=per;

        per:=ep43[i];

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

        ep43[i+1]:=per;

        per:=masif4[i];

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

        masif4[i+1]:=per;

        per:=pos4[i];

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

        pos4[i+1]:=per;

        end; 

masif4[1]:=masif4[1]*ep41[1];

masif4[2]:=masif4[1]+(masif4[2]*(ep41[2]-ep41[1]));

masif4[3]:=masif4[2]+(masif4[3]*(ep41[3]-ep41[2])); 

for i:=1 to 3 do

chis4[i]:=masif4[i]; 

for i:=1 to 3 do

mash[i]:=abs(masif4[i]); 

   for ii:=1 to 3 do

    for i:=1 to 2 do

    if mash[i]<>0 then

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

        begin

        per:=mash[i];

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

        mash[i+1]:=per;

end; 

for i:=1 to 3 do

masif4[i]:=((70/mash[3])*masif4[i]);

end; 

procedure epi5;

var

mash:array[1..4] of real;

mas:array[1..2] of real;

per,l10,l11:real;

i,ii:integer;

begin 

ep51[1]:=strtofloat(Form1.Edit1.Text);

ep51[2]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text);

ep51[3]:=strtofloat(Form1.Edit7.Text);

ep51[4]:=strtofloat(Form1.Edit8.Text); 

l10:=strtofloat(Form1.Edit10.Text);

l11:=strtofloat(Form1.Edit11.Text); 

u1:=strtofloat(Form1.Edit4.Text);

u2:=strtofloat(Form1.Edit5.Text); 

if (ep51[3]>ep51[1]) and (ep51[3]<=ep51[2]) then  u3:=strtofloat(Form1.Edit5.Text);

if ep51[3]<=ep51[1] then  u3:=strtofloat(Form1.Edit4.Text);

if (ep51[4]>ep51[1]) and (ep51[4]<=ep51[2]) then  u4:=strtofloat(Form1.Edit5.Text);

if ep51[4]<=ep51[1] then  u4:=strtofloat(Form1.Edit4.Text); 

for i:=1 to 4 do

ep52[i]:=59+(440/ep51[2])*ep51[i]; 

if ep51[1]>ep51[4] then mas[1]:=0;

if (ep51[4]>=ep51[1]) and (ep51[1]>ep51[3]) then mas[1]:=(l11*s2)/u1;

if (ep51[3]>=ep51[1])  then mas[1]:=((l10*s1)+(l11*s2))/u1;

if ep51[2]>ep51[4] then mas[2]:=0;

if (ep51[4]>=ep51[2]) and (ep51[2]>ep51[3]) then mas[2]:=(l11*s2)/u2;

if (ep51[3]>=ep51[2])  then mas[2]:=((l10*s1)+(l11*s2))/u2; 

mash[1]:=abs((l10*s1)+(l11*s2)/u3);

mash[2]:=abs((l11*s2)/u4);

mash[3]:=abs(mas[1]);

mash[4]:=abs(mas[2]);