9
end;
if (Re <= 1.e4) or (KSh <= 1.0005) then KSh := 1.0;
Qcb := Qcb * KSh
end;
{Определение коэффициента истечения для труб Вентури в зависимости от числа Рейнольдса}
if (Re < 2.e5) and (NSuzA[NNit] > 2) then
case NSuzA[NNit] of
3: begin
if Re <= 6.e4 then Cb := 0,957;
if (Re > 6.e4) and (Re <= 1.e5) then Cb := 0.966;
if (Re > 1.e5) and (Re <= 1.5e5) then Cb := 0.976;
if Re > 1.5e5 then Cb := 0.982
end;
4: begin
if Re s.= 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;
ifRe> 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 * Kke * KCb; Vcv := Qc * TauAv; Vc := Vcv;
if(NSubA[NNit] -- 22) or (NSubA[NNit] = 23) then
Vm := Vcv * Roc / 1000.0;
end; { QCalc }
{-------------------------------------------------------------------------------------}
function r_(A, R: real): real;
function r_; begin r_:=exp(R*ln(A)) end;
4 МОДУЛЬ РАСЧЕТА ПОГРЕШНОСТИ ОПРЕДЕЛЕНИЯ РАСХОДА И КОЛИЧЕСТВА ЖИДКОСТЕЙ И ГАЗОВ
Все процедуры и функции модуля расчета погрешности определения расхода и количества жидкостей и газов (далее - модуль ERRQSNX) написаны на алгоритмическом языке ТУРБО ПАСКАЛЬ 7.0. Обращение к модулю ERRQSNX осуществляется с помощью оператора вызова основной процедуры QS.
4.1 Исходные данные
Исходные данные передаются в процедуры модуля ERRQSNX в виде глобальных