28
begin
E1RSC := E[1];
E1RRC := E[2];
E2RSC :- E[5]*(T1HO-T1LO)
end
else begin
if (E[3]<>0) or (E[4]<>0) then
begin
E1RSC := E[3];
E1RRC:= E[4];
E2RSC := E[5]*(T1HO-T1LO)
end
else begin
E1RSC := 0.0;
E1RRC := 0.0;
E2RSC := 0.0
end
end
end
else begin
E1RRC:=0.0;
E2RSQ=0.0; E[6]:=0.0;
case NMETHKA[NNIT] of
0: E1RSC:=0.1;
1: E1RSC:=0.1;
2: E1RSC:=0.1;
3: ifRIM[13] <> 0 then E1RSC:=0.15
else E1RSC:=0.1;
end; {endcase}
end; {endif}
EDRSC := sqrt(sqr(ElRSC)+sqr(E2RSC));
EROSS := sqrt(sqr(EDRSC)+sqr(E[6D]; EROSR := E1RRC;
EROS := sqrt(sqr(EROSS)+sqr(EROSR))
end; {endif}
end; { ROS }
{-----------------------------------------------------------------------------}
{ Расчет погрешности определения коэффициента истечения }
Procedure С;
var
EC0,EL,EE,EH,EX,ESH,EK,EDM,A,B,EXMIN,EXMAX,HD,HDC : real;
L1,L2,L21,DL: real;
Lvent: array [1.. 10] of real;
NR,I,MR : byte;
const
AK : array [1..16] of real = (14.5,17.5,21.0,5.0,16.0,10.0,
22.0,12.5,47.5,11.5,13.5,33.5.5.0,12.0,54.5,0.0);
BK : array [1..16] of real = (30.5,64.5.38.5,114.0,185.0,
113.0,0.0,26.5,54.5,82.0,82.5,115.0,0.0,9.5,65.0,8.55);
CK : array [1..16] of real = (2.0,4.1,1.4,6.8,7.2,5.2,0.0,
1.9,1.8,6.7,3.7,4.0,0.0,1.0,1.6,0.55);
BETI: array [1..10] of real =(
0.3,0.35.0.4,0.45,0.5,0,55,0.6,0.65,0.7,0.75);