41
end;
4: begin
if Re <= 4.e4 then Cb := 0.970;
if (Re > 4.e4) and (Re <= 8.e4) then Cb := 0.977;
if (Re > 8.e4) and (Re <= 1.2e5) then Cb := 0.992;
if Re > 1.2e5 then Cb := 0.998
end;
5: begin
if Re <= 6.e4 then Cb := 0.960;
if (Re > 6.e4) and (Re <= 1.e5) then Cb := 0.970;
if Re > 1.e5 then Cb := 0.980
end;
end;
KCb := 1.0;
{Определение поправки на коэффициент истечения для труб Вентури, в
зависимости от числа Рейнольдса}
if (Re < 2.e5) and (NSuzA[NNIT] > 2) then
case NSuzA[NNIT] of
3: KCb = Cb/0.984;
4: KCb = Cb/0.995;
5: KCb = Cb/0.985;
end;
(Расчет расхода и количества среды при действительном значении числа Рейнольдса}
Qc := Qcb * KRe * KCb; Vcv := Qc * TauAv; Vc := Vcv;
if (NSubA[Nnit] = 22) or (NSubA[NNit] = 23) then begin
Vm := Vcv * Roc / 1000.0; Qc := Qc*Roc/1000.0 end;
end; { QCalc }
{-----------------------------------------------------------------------------------------------------}
{Расчет погрешностей определения теплоты сгорания}
Procedure HSP;
const
DHS: array[1..31] of real = (0.11.0.11,0.28,0.42,0.42,0.0,0.0,0.0,
0.0,0.0,0.14.0.22.0.28,0.0,0.0,0.0,
0.41,0.14,0.0.0.41,0.0,0.0,0.0,0.0,
0.0,0.0,0.0,0.0,0.11,0.5,0.0);
HsNgI: array[1..16] of real = (37.04,64.91,92.29,119.7,119.3,
147.0,146.8,174.5,201.8,229.2,0.0,
0.0,23.37,0.0,11.76.11.89);
HsNg2: array[1..16] of real = (33.37,59.39,84.94,110.5,110.1,
/136.0,135.7,161.6,187.1,212.7,0.0,
0.0,21.53,0.0,11.76,10.05);
var
H1,H2,SH1,SH2 : real; I : byte;
begin { HSP }
if NSUBA[NNIT] = 0 then begin
if (NMETHKA[NNIT] = 0) or (NMETHKA[NNIT] = 1) then begin
H1:=(0.51447*ROSC+0.05603-0.65689*YA-YY);
H2:=(0.52190*ROSC+0.04242-0.65197*YA-YY);
ERRH1:=sqrt(sqr(0.51447*ROSC*EROS)+sqr(YY*EROSA[18])+
sqr(0.65689*YA*EROSA[17]))/Hl;
ERRH2:=sqrt(sqr(0.52190*ROSC*EROS)+sqr(YY*EROSA[18])+
sqr(0.65197*YA*EROSA[17]))/H2