22
end
else begin
if E[3]<>0 then
begin
E1DPSC := E[3];
E1DPRC := 0.0
end
else begin
E1DPSC := sqrt(sqr(E[4]) + sqr(E[5]));
E1DPRC := sqrt(sqr(E[6]) + sqr(E[7]))
end;
end; {endif}
E2DPS := E[8]*(T1HO-T1LO);
E3DPS := E[9]*(UH-UL);
E6DPS := E[12]*(PHG-PLG);
EDDPS := sqrt(sqr(ElDPSC)+sqr(E2DPS)+sqr(E3DPS)+sqr(E[10])+
sqr(E[11])+sqr(E6DPS));
if SIZMDPD > 1 then begin
if (E[13]<>0) or (E[14]<>0) then
begin
EDP1SC := E[13];
EDP1RC := E[14];
end
else begin
if E[15]<>0 then
begin
EDP1SC := E[15];
EDP1RC := 0.0
end
else begin
EDP1SC := sqrt(sqr(E[16]) + sqr(E[17]));
EDP1RC := sqrt(sqr(E[18]) + sqr(E[19]));
end;
end; {endif}
EDP2S := E[20]*(T2HO-T2LO);
EVDPS := sqn(sqr(EDPlSC)+sqr(EDP2S)+sqr(E[21])+sqr(E[22]));
ifSIZMDPD = 7 then begin
if (E[23]<>0) or (E[24]<>0) then
begin
EDPRSC := E[23];
EDPRRC := E[24]
end
else begin
if E[25]<>0 then
begin
EDPRSC:= E[15];
EDPRRC := 0.0
end
else begin
EDPRSC := sqrt(sqr(E[26]) + sqr(E[27]));
EDPRRC := sqrt(sqr(E[281) + sqr(2[29]))
end;