21
расстояние между первым перед сужающим устройством гидравлическим сопротивлением');
writeln(Fl,
и сужающим устройством меньше допустимой величины (7.2.4, 7.3.1 ГОСТ 8.563.1).);
end;
2: begin
writeln(Fl,
расстояние между сужающим устройством и гидравлическим сопротивлением за сужающим устройством');
writeln(Fl,
меньше допустимой величины (7.2.4 ГОСТ 8.563.1).);
end;
3: begin
writeln(Fl,
дополнительная погрешность коэффициента истечения, обусловленная сокращением');
writeln(Fl,
длин прямых участков между сужающим устройством и гидравлическими сопротивлениями,');
writeln(Fl,
превышает 1 % (7.2.4 ГОСТ 8.563.1).);
end;
4: begin
writeln(Fl,
эксцентриситет между осями измерительного трубопровода и сужающего устройства превышает допустимую');
writeln(Fl,
величину (7.5.2.3 ГОСТ 8.563.1).);
end;
5: begin
writeln(Fl,
высота уступа между двумя секциями измерительного трубопровода превышает допусти-');
writeln(Fl,
мую величину (7.5.1.4 ГОСТ 8.563.1).);
end;
end; { endcase }
end; (endif}
end; {QS}
{-----------------------------------------------------------------------------------------}
{Расчет погрешностей измерения перепада давления на сужающем устройстве} Procedure DP;
var
E1DPSC.E1DPRC,EDP1SC.EDP1RC,E2DPS,E3DPS,E6DPS,EDDPS,
EDP2S,EVDPS,EDP5S,EDPRSC,EDPRRC,EDPRS,ERDPS : real;
YDP :array[1..2] of real;
begin { DP }
if(E[1]<>0)or(E[2] <>0)then
begin
E1DPSC := E[1];
E1DPRC := E[2]