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

   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; 

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

ep53[2]:=(70/mash[4])*mas[2];

ep53[3]:=(70/mash[4])*(((l10*s1)+(l11*s2))/u3);

ep53[4]:=(70/mash[4])*((l11*s2)/u4); 

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

      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

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

end; 

procedure epi6;

var

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

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

per,l10,l11,l12:real;

i,ii:integer;

begin 

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

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

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

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

ep61[5]:=strtofloat(Form1.Edit9.Text); 

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

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

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

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

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

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

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

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

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

if (ep61[5]>ep61[1]) and (ep61[5]<=ep61[2]) then  u5:=strtofloat(Form1.Edit5.Text);

if ep61[5]<=ep61[1] then  u5:=strtofloat(Form1.Edit4.Text); 

for i:=1 to 5 do

ep62[i]:=59+(440/ep61[2])*ep61[i]; 

if ep61[1]>ep61[5] then mas[1]:=0;

if (ep61[5]>=ep61[1]) and (ep61[1]>ep61[4]) then mas[1]:=(l12*s3)/u1;

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

if ep61[1]<=ep61[3] then mas[1]:=((l10*s1)+(l11*s2)+(l12*s3))/u1;

if ep61[2]>ep61[5] then mas[2]:=0;

if (ep61[5]>=ep61[2]) and (ep61[2]>ep61[4]) then mas[2]:=(l12*s3)/u2;

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

if ep61[2]<=ep61[3] then mas[2]:=((l10*s1)+(l11*s2)+(l12*s3))/u2; 

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

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

mash[3]:=abs((l12*s3)/u5);

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

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

   for ii:=1 to 5 do

    for i:=1 to 4 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; 

ep63[1]:=(70/mash[5])*mas[1];

ep63[2]:=(70/mash[5])*mas[2];

ep63[3]:=(70/mash[5])*(((l10*s1)+(l11*s2)+(l12*s3))/u3);

ep63[4]:=(70/mash[5])*(((l11*s2)+(l12*s3))/u4);

ep63[5]:=(70/mash[5])*((l12*s3)/u5); 

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

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

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

pos6[4]:=abs(((l11*s2)+(l12*s3))/u4);

pos6[5]:=abs((l12*s3)/u5); 

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

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

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

masif6[4]:=(((l11*s2)+(l12*s3))/u4);

masif6[5]:=((l12*s3)/u5); 

   for ii:=1 to 5 do

    for i:=1 to 4 do

    if ep61[i]<>0 then

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

        begin

        per:=ep61[i];

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

        ep61[i+1]:=per;

        per:=ep62[i];

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

        ep62[i+1]:=per;

        per:=ep63[i];

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

        ep63[i+1]:=per;

        per:=masif6[i];

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

        masif6[i+1]:=per;

        per:=pos6[i];

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

        pos6[i+1]:=per;

        end; 

masif6[1]:=masif6[1]*ep61[1];

masif6[2]:=masif6[1]+(masif6[2]*(ep61[2]-ep61[1]));

masif6[3]:=masif6[2]+(masif6[3]*(ep61[3]-ep61[2]));

masif6[4]:=masif6[3]+(masif6[4]*(ep61[4]-ep61[3]));

masif6[5]:=masif6[4]+(masif6[5]*(ep61[5]-ep61[4])); 

for i:=1 to 5 do

chis6[i]:=masif6[i]; 

for i:=1 to 5 do

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

   for ii:=1 to 5 do

    for i:=1 to 4 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 5 do

masif6[i]:=((70/mash[5])*masif6[i]); 

end; 

procedure epi7;

var

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

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

per,l10,l11:real;

i,ii:integer;

begin 

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

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

ep71[3]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text)+strtofloat(Form1.Edit3.Text);

ep71[4]:=strtofloat(Form1.Edit7.Text); 

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

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

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

u3:=strtofloat(Form1.Edit6.Text); 

if ep71[4]>ep71[2] then u4:=strtofloat(Form1.Edit6.Text);

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

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

for i:=1 to 4 do

ep72[i]:=59+(440/ep71[3])*ep71[i]; 

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

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

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

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

if ep71[3]=ep71[4] then mas[3]:=(l10*s1)/u3; 

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

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

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

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

   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; 

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

ep73[2]:=(70/mash[4])*mas[2];

ep73[3]:=(70/mash[4])*mas[3];

ep73[4]:=(70/mash[4])*((l10*s1)/u4); 

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

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

pos7[3]:=abs(mas[3]);

pos7[4]:=abs((l10*s1)/u4); 

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

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

masif7[3]:=(mas[3]);

masif7[4]:=((l10*s1)/u4); 

   for ii:=1 to 4 do

    for i:=1 to 3 do

    if ep71[i]<>0 then

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

        begin

        per:=ep71[i];

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

        ep71[i+1]:=per;

        per:=ep72[i];

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

        ep72[i+1]:=per;

        per:=ep73[i];

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

        ep73[i+1]:=per;

        per:=masif7[i];

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

        masif7[i+1]:=per;

        per:=pos7[i];

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

        pos7[i+1]:=per;

        end; 

masif7[1]:=masif7[1]*ep71[1];

masif7[2]:=masif7[1]+(masif7[2]*(ep71[2]-ep71[1]));

masif7[3]:=masif7[2]+(masif7[3]*(ep71[3]-ep71[2]));

masif7[4]:=masif7[3]+(masif7[4]*(ep71[4]-ep71[3])); 

for i:=1 to 4 do

chis7[i]:=masif7[i]; 

for i:=1 to 4 do

mash[i]:=abs(masif7[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

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

end; 

procedure epi8;

var

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

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

per,l10,l11:real;

i,ii:integer;

begin 

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

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

ep81[3]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text)+strtofloat(Form1.Edit3.Text);

ep81[4]:=strtofloat(Form1.Edit7.Text);

ep81[5]:=strtofloat(Form1.Edit8.Text); 

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

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