36
end
else begin
if E[13]<>0 then
begin
ERO1SC:= E[13];
ERO1RC := 0.0
end
else begin
ERO1SC := sqn(sqr(E[14] + sqr(E[15]));
ERO1RC := sqn(sqr(E[16]) + sqr(E[17]));
end;
end; {endif}
ERO2S := E[18]-(T2HO-T2LO);
EVROS := sqrt(sqr(ERO1SC)+sqr(ERO2S)+sqr(E(191)+sqr(E[20]));
YRO[11:=(E[21]-E[22])/RoM;YRO[2]:=(sqrt(E[21]-sqrt(E[22]))/
sqn(RoM),
EROWS := sqrt(sqr(YRO[1]*EDROS)+sqr(YRO[2] EVROS));
EROWR := sqrt(sqr(YRO[1]*ElRORC)+sqr(YRO[2]*ERO1RC));
EROW := sqrt(sqr(EROWS)+sqr(EROWR))
end; { ROW }
{---------------------------------------------------------------------------- }
{Расчет расхода и количества среды}
Procedure QCalc;
var
I, IBeg, IFin: byte;
Bet4, ec, Eps, Rd, Psi, Rk, Cb, LI, L2, Alfa,
Qcb, ARe, RO, KRe, KCb, Log : real;
HsS: string[10]; Code: integer;
label
1,3;
const
HsSubsl: array [1..31] ofreal= (37.12,65.43,93.85,122.8,123.6,0.0,
0.0,0.0,0.0,0.0,54.47,59.04,86.88,
0.0,0.0,0.0,52.70,11.77,0.0,23.61,
0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,
11.88,16.11,0.0);
HsSubs2: array [1..31] ofreal= (33.43,59.87,86.37,113.4,114.1,0.0,
0.0,0.0,0.0,0.0,52.62,55.34,81.29,
0.0,0.0,0.0,48.94,11.77,0.0,21.75,
0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,
10.04,13.32,0.0);
RocSubs: array [1..31] of real = (0.6682,1.2601,1.8641,2.488,
2.4956,3.147,3.174,3.898,4.755,
5.812,1.09,1.1733,1.776,3.469,
4.294,1.587,2.045,1.1649,1.8393,
1.4311,2.718,0.787,998.23,
1.33116,1.20445,0.16631,0.8385,
1.6618,0.08375,0.716,1.1649);
Rocii: array [1..16] of real=(0.66692,1.25004,1.83315,2.41623,
2.41623,2.99934,2.99934,3.58246,
4.16558, 4.74869,1.16455,1.82954,