42
end else begin
SH1:=0.0; SH2:=0.0; ERRH1:=0.0; ERRH2:=0.0; Zc:=0.0;
for I :=- 1 to 16 do begin
Zc := Zc + RIM[I] * Bi[I]; SH1:=SH1+RIM[I]*HSNG1[I];
SH2:=SH2+RIM[I]*HSNG2[I];
ERRH1:=:ERRH1+sqr(RIM[I]*HSNGl[I]*EROSA[I+6]);
ERRH2:=ERRH2+sqr(RIM[I]*HSNG2[I]*EROSA[I+6])
end; {endfor}
Zc := 1.0 - sqr(Zc); ERRH1:=Zc*sqrt(ERRH1)/SHl;
ERRH2:=Zc*sqrt(ERRH2)/SH2
end; {endif}
end else begin
ERRH1:=DHS[NSUBA[NNIT]]; ERRH2:=ERRH1
end; {endif}
end; { HSP }
{---------------------------------------------------}
function r_; begin r_:=exp(R*ln(A)) end;
END. { ERRQSNX }
Ключевые слова: расход, количество, жидкость, газ, среда, перепад давлений, расчет, погрешность