24
Procedure P;
var
E1PSC,E1PRC,EP1SC,EP1RC,E2PS,E3PS,EDPS,EP2S,EVPS,EBP : real;
YP: array [1..2] of real;
begin { P }
if (E[1]<>0)or(E[2]<>0)then
begin
E1PSC:= E[1];
E1PRC := E[2]
end
else begin
if E[3]<>0then
begin
E1PSC:= E[3];
E1PRC := 0
end
else begin
E1PSC := sqit(sqr(E[4]) + sqr(E[5]));
E1PRC := sqrt(sqr(E[6]) + sqr(E[7]))
end;
end; {endif}
E2PS := E[8]*(T1HO-T1LO);
E3PS := E[9]*(UH-UL);
EDPS := sqn(sqr(ElPSC)+sqr(E2PS)+sqr(E3PS)+sqr(E[10])+
sqr(E[11]));
if SIZMPD > 1 then begin
if (E[12]<>0) or (E[13]<>0) then
begin
EP1SC := E[12];
EP1RC := E[13]
end
else begin
If E[14]<>0 then
begin
EP1SC := E[14];
EP1RC := 0
end
else begin
EP1SC := sqrt(sqr(E[15]) + sqr(E[16]));
EP1RC = sqrt(sqr(E[17]) + sqr(E[18]))
end;
end; {endif}
EP2S := E[19]*(T2HO-T2LO);
EVPS := sqrt(sqr(EPlSC)+sqr(EP2S)+sqr(E[20])+sqr(E[21]));
end;
YP[11:=E[26]/PM; YP[2]:=2.0*sqrt(E[26]/PM); EBP:=0.0;
If VARPA[NNIT] = 0 then EBP:=sqr(E[24]*E[25]/PM);
case SIZMPD of
0: begin
EPSY := sqrt(sqr(YP[1]*EDPS)+EBP);
EPRA:=YP[1]*E1PRC
end;