25
1: begin
EPSY := sqrt(sqr(YP[2]*EDPS)+EBP);
EPRA := YP[2]*E1PRC
end;
2: begin
EPSY := sqrt(sqr(YP[1]*EDPS)+sqr(YP[1]*EVPS)+EBP);
EPRA = sqrt(sqr(YP[1]*ElPRC)+sqr(YP[1]*EPlRC))
end;
3: begin
EPSY := sqrt(sqr(YP[1]*EDPS)+sqr(YP[2]*EVPS)+EBP);
EPRA := sqrt(sqr(YP[1]*ElPRC)+sqr(YP[2]*EPlRC))
end;
4: begin
EPSY := sqrt(sqr(YP[1]*EDPS)+sqr(YP[1]*EVPS)+sqr(YP[1]*E[23])+ EBP);
EPRA := sqrt(sqr(YP[1]*ElPRC)+sqr(YP[1]*EPlRC)+sqr(YP[1]* E[24]))
end;
5: begin
EPSY := sqrt(sqr(YP[1]*EDPS)+sqr(YP[1]*EVPS)+sqr(YP[2]*E[23])+ EBP);
EPRA := sqrt(sqr(YP[1]*ElPRC)+sqr(YP[1]*EPlRC)+sqr(YP[2]* E[24]))
end;
6: begin
EPSY := sqrt(sqr(YP[1]*EDPS)+sqr(YP[2]*EVPS)+sqr(YP[2]*E[23])+ EBP);
EPRA := sqn(sqr(YP[1]*ElPRC)+sqr(YP[2]*EPlRC)+sqr(YP[2]* E[24]))
end;
end; { endcase }
EP := sqrt(sqr(EPSY)+sqr(EPRA));
end; {P}
{--------------------------------------------------------------------------------}
{Расчет погрешностей определения температуры среды}
Procedure T;
var
E1TSC.E1TRC,ET1SC,ET1RC,ET2S,EVTS,DET,E2TS,E3TS,EDTS,
ET2SC,ET2RC,ETXS,EXTS : real;
YT: array [1..2] of real;
begin { T }
if SIZMTD = 0 then begin
E1TSC := 100.0*E[0]/(TA+273.15);
E1TRC := 0.0
end else begin
if(E[1]<>0) or(E[2]<>0) then
begin
E1TSC := E[1];
E1TRC := E[2]
end
else begin
if E[3]<>0 then
begin
E1TSC := E[3];
E1TRC := 0.0
end
else begin
E1TSC := sqrt(sqr(E[4]) + sqr(E[5]));