17
{Основная процедура: выполняет диспетчерские функции, а также расчет коэффициентов влияния измеряемых параметров и погрешностей определения расхода и количества среды}
Procedure QS;
const
EDD = 0.07; EDT = 0.40;
label
1,3;
var
I,J,NRQ : byte;
RIM,RIMX,DVY,TETYI : err1; DVR,YA,YY,DVDP,DVPG,DVTG,T1,T2 :
real;
DVAY,HSX : err3;
BET,RE,KSH,KK,QC1,VCV1,VM1,QC2,VCV2,VM2: real;
VC1,VC2 : real;
ERC,EEPS,ERO,EKAP,EVIS,ERRH1,ERRH2:real;
DPMD,DPM1,DPM2,TETDP,DDD,DD01,DD02,TETDD,DDT,DT01,DT02,TETDT,
DKAP,KAP1,KAP2,TETKAP,DMU,MU1,MU2,TETMU,TETC,TETEPS,TETRO,
TETYA.TETYY,
DROS,ROS1,ROS2,TETROS,DYA,DYY,YA1,YY1,YA2,YY2,R01,R02,DTMG,
TETT.DPMG,
TETP,EYR:real;
DRIM : real;
begin { QS }
ROSC:=0.0; DVR:=0.0; for I := 1 to 2 do DVAY[I]:=0.0;
for I := 1 to 16 do DVY[I]:=0.0;
if NSUBA[NNIT] = 0 then begin
ifNVARYA[NNIT] = 1 then begin
ROSC := 2.0*ROSH*ROSL/(ROSH+ROSL);
if IfConstRo <> 0 then DVR:=100.0"(ROSH-ROSL)/(ROSH+ROSL);
YA:=0.5*(YIM[11,1]+YIM[11,2]);
YY:=0.5*(YIM[12,1]+YIM[12,2]);
for J := 11 to 12 do begin
I:=J-10;
if((YIM[J,1] <> 0) and (IfConstY <> 0)) or
((YIM[J,2] <> 0) and (IfConstY <> 0)) then
DVAY[I]:=100.0*(YIM[J,1]-YIM(J,2])/(YIM[J,1]+YIM[J,2])end;
end else
for I := 1 to 16 do begin RIM[I] := 0.5*(YIM[I,1]+YIM[I,2]);
if((YIM[I,1] <> 0) and (IfConstY <> 0)) or
((YIM[I,2] <> 0) and (IfConstY <> 0)) then
DVY[I]:=100.0*(YIM[I,1]-YIM[I,2])/(YIM[I,1]+YIM[I,2]);
RIMX[I]:=RIM[I]
end;
end; {endif}
PMG sqr(0.5*(sqrt(PHG)+sqrt(PLG)));
DVPG := 0.0; ifIfConstP <> 0 then DVPG:=100.0*(PHG-PLG)/(PHG+PLG);
T1:=THG+273.15; T2:=TLG+273.15;
TMG .= 4.0*Tl*T2/sqr(sqrt(Tl)+sqrt(T2))-273.15;
DVTG := 0.0; ifIfConstT <> 0 then DVTG:=100.0*(T1-T2)/(T1+T2);
DPM:=sqr(0.5*(sqrt(DPH)+sqrt(DPL)));
DVDP := 0.0; ifIfConstDp <> 0 then DVDP:=100.0*(DPH-DPL)/(DPH+DPL);