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]);
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);
u1:=strtofloat(Form1.Edit4.Text); u2:=strtofloat(Form1.Edit5.Text); u3:=strtofloat(Form1.Edit6.Text);
if ep81[4]>ep81[2] then u4:=strtofloat(Form1.Edit6.Text); if (ep81[4]>ep81[1]) and (ep81[4]<=ep81[2]) then u4:=strtofloat(Form1.Edit5.Text); if ep81[4]<=ep81[1] then u4:=strtofloat(Form1.Edit4.Text); if ep81[5]>ep81[2] then u5:=strtofloat(Form1.Edit6.Text); if (ep81[5]>ep81[1]) and (ep81[5]<=ep81[2]) then u5:=strtofloat(Form1.Edit5.Text); if ep81[5]<=ep81[1] then u5:=strtofloat(Form1.Edit4.Text);
for i:=1 to 5 do ep82[i]:=59+(440/ep81[3])*ep81[i];
if ep81[1]>ep81[5] then mas[1]:=0; if (ep81[5]>=ep81[1]) and (ep81[1]>ep81[4]) then mas[1]:=(l11*s2)/u1; if ep81[1]<=ep81[4] then mas[1]:=((l10*s1)+(l11*s2))/u1; if ep81[2]>ep81[5] then mas[2]:=0; if (ep81[5]>=ep81[2]) and (ep81[2]>ep81[4]) then mas[2]:=(l11*s2)/u2; if ep81[2]<=ep81[4] then mas[2]:=((l10*s1)+(l11*s2))/u2; if ep81[3]=ep81[5] then mas[3]:=(l11*s2)/u3;
mash[1]:=abs(((l10*s1)+(l11*s2))/u4); mash[2]:=abs((l11*s2)/u5); mash[4]:=abs(mas[1]); mash[4]:=abs(mas[2]); mash[5]:=abs(mas[3]);
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;
ep83[1]:=(70/mash[5])*mas[1]; ep83[2]:=(70/mash[5])*mas[2]; ep83[3]:=(70/mash[5])*mas[3]; ep83[4]:=(70/mash[5])*(((l10*s1)+(l11*s2))/u4); ep83[5]:=(70/mash[5])*((l11*s2)/u5);
pos8[1]:=abs(mas[1]); pos8[2]:=abs(mas[2]); pos8[3]:=abs(mas[3]); pos8[4]:=abs(((l10*s1)+(l11*s2))/u4); pos8[5]:=abs((l11*s2)/u5);
masif8[1]:=(mas[1]); masif8[2]:=(mas[2]); masif8[3]:=(mas[3]); masif8[4]:=(((l10*s1)+(l11*s2))/u4); masif8[5]:=((l11*s2)/u5);
for ii:=1 to 5 do
for i:=1 to 4 do
if ep81[i]<>0 then
if ep81[i]>ep81[i+1] then
begin
per:=ep81[i];
ep81[i]:=ep81[i+1];
ep81[i+1]:=per;
per:=ep82[i];
ep82[i]:=ep82[i+1];
ep82[i+1]:=per;
per:=ep83[i];
ep83[i]:=ep83[i+1];
ep83[i+1]:=per;
per:=masif8[i];
masif8[i]:=masif8[i+1];
masif8[i+1]:=per;
per:=pos8[i];
pos8[i]:=pos8[i+1];
pos8[i+1]:=per;
end;
masif8[1]:=masif8[1]*ep81[1]; masif8[2]:=masif8[1]+(masif8[2]*(ep81[2]-ep81[1])); masif8[3]:=masif8[2]+(masif8[3]*(ep81[3]-ep81[2])); masif8[4]:=masif8[3]+(masif8[4]*(ep81[4]-ep81[3])); masif8[5]:=masif8[4]+(masif8[5]*(ep81[5]-ep81[4]));
for i:=1 to 5 do chis8[i]:=masif8[i];
for i:=1 to 5 do mash[i]:=abs(masif8[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 masif8[i]:=((70/mash[5])*masif8[i]);
end;
procedure epi9; var mash:array[1..6] of real; mas:array[1..3] of real; per,l10,l11,l12:real; i,ii:integer; begin
ep91[1]:=strtofloat(Form1.Edit1.Text); ep91[2]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text); ep91[3]:=strtofloat(Form1.Edit1.Text)+strtofloat(Form1.Edit2.Text)+strtofloat(Form1.Edit3.Text); ep91[4]:=strtofloat(Form1.Edit7.Text); ep91[5]:=strtofloat(Form1.Edit8.Text); ep91[6]:=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); u3:=strtofloat(Form1.Edit6.Text);
if ep91[4]>ep91[2] then u4:=strtofloat(Form1.Edit6.Text); if (ep91[4]>ep91[1]) and (ep91[4]<=ep91[2]) then u4:=strtofloat(Form1.Edit5.Text); if ep91[4]<=ep91[1] then u4:=strtofloat(Form1.Edit4.Text); if ep91[5]>ep91[2] then u5:=strtofloat(Form1.Edit6.Text); if (ep91[5]>ep91[1]) and (ep91[5]<=ep91[2]) then u5:=strtofloat(Form1.Edit5.Text); if ep91[5]<=ep91[1] then u5:=strtofloat(Form1.Edit4.Text); if ep91[6]>ep91[2] then u6:=strtofloat(Form1.Edit6.Text); if (ep91[6]>ep91[1]) and (ep91[6]<=ep91[2]) then u6:=strtofloat(Form1.Edit5.Text); if ep91[6]<=ep91[1] then u6:=strtofloat(Form1.Edit4.Text);
for i:=1 to 6 do ep92[i]:=59+(440/ep91[3])*ep91[i];
if ep91[1]>ep91[6] then mas[1]:=0; if (ep91[6]>=ep91[1]) and (ep91[1]>ep91[5]) then mas[1]:=(l12*s3)/u1; if (ep91[5]>=ep91[1]) and (ep91[1]>ep91[4]) then mas[1]:=((l11*s2)+(l12*s3))/u1; if ep91[1]<=ep91[4] then mas[1]:=((l10*s1)+(l11*s2)+(l12*s3))/u1; if ep91[2]>ep91[6] then mas[2]:=0; if (ep91[6]>=ep91[2]) and (ep91[2]>ep91[5]) then mas[2]:=(l12*s3)/u2; if (ep91[5]>=ep91[2]) and (ep91[2]>ep91[4]) then mas[2]:=((l11*s2)+(l12*s3))/u2; if ep91[2]<=ep91[4] then mas[2]:=((l10*s1)+(l11*s2)+(l12*s3))/u2; if ep91[3]<ep91[6] then mas[3]:=(l12*s3)/u3;; if ep91[3]>=ep91[6] then mas[3]:=(l12*s3)/u3;
mash[1]:=abs(((l10*s1)+(l11*s2)+(l12*s3))/u4); mash[2]:=abs(((l11*s2)+(l12*s3))/u5); mash[3]:=abs((l12*s3)/u6); mash[4]:=abs(mas[1]); mash[5]:=abs(mas[2]); mash[6]:=abs(mas[3]);
for ii:=1 to 6 do
for i:=1 to 5 do
if mash[i]<>0 then
if mash[i]>mash[i+1] then