35
((27<=N) and (N<=28)) then begin
if P<=PC[N,1] then begin
ERO:=ER[N,1]; EKAP:=EK[N,1]
end else begin
if T<=TC[N] then begin
ERO:=ER[N,2]; EKAP-EK[N,2]
end else begin
ERO-=ER[N,3]; EKAP:=EK[N,3]
end; {endif}
end; {endif}
end else begin
if T<=TC[N] then begin
ERO:=ER[N,1]; EKAP:=EK[N,1]
end else begin
ERO:=ER[N,2]; EKAP:=EK[N,2]
end; {endif}
end; (endif}
if P<=PC[N,2] then EVIS:=EV[N,1]
else EVIS:=EV[N,2];
end; { EPHP }
{--------------------------------------------------------------}
Procedure ROW;
var
E1ROSC,E1RORC,
E2ROS,E3ROS,EDROS,
ERO1SC,ERO1RC,
ER02S,EVROS: real;
YRO : array [1..2] of real;
begin { ROW }
if (E[1]<>0)or(E[2]<>0)then
begin
E1ROSC := E[1];
E1RORC := Е[2]
end
else begin
if [E13]<>0 then
begin
E1ROSC := E[3];
E1RORC := 0.0
end
else begin
E1ROSC := sqrt(sqr(E[4]) + sqr(E[5]));
E1RORC := sqrt(sqr(E[6]) + sqr(E[7]))
end;
end; {endif}
E2ROS := E[8]*(T1HO-T1LO);
E3ROS := E[9]*(UH-UL);
EDROS := sqrt(sqr(ElROSC)+sqr(E2ROS)+sqr(E3ROS)+sqr(E[10]));
if (E[11]<>0)or(E[12]<>0)then
begin
ERO1SC := E[11];
ERO1RC := E[12];