27
1: begin
ETSY := sqrt(sqr(YT[1]*EDTS)+sqr(YT[1]*EVTS));
ETRA := sqrt(sqr(YT[1]*E1TRC)+sqr(YT[1]*ET1RC))
end;
2: begin
ETSY := sqrt(sqr(YT[1]*EDTS)+sqr(YT[2]*EVTS));
ETRA := sqrt(sqr(YT[1]*E1TRC)+sqr(YT[2]*ET1RC))
end;
3: begin
ETSY := sqrt(sqr(YT[1]*EDTS)+sqr(YT[1]*EVTS)+sqr(YT[1]*
E[32]));
ETRA := sqrt(sqr(YT[1]*E1TRC)+sqr(YT[1]*ET1RC)+sqг(YT[1]*
E[33]))
end;
4: begin
ETSY := sqrt(sqr(YT[1]*EDTS)+sqr(YT[1]*EVTS)+sqr(YT[2]*
E[32]));
ETRA := sqrt(sqr(YT[1]*E1TRC)+sqr(YT[1]*ET1RC)+sqr(YT[2]*
E[33]))
end;
5: begin
ETSY := sqrt(sqr(YT[l]*EDTS)+sqr(YT[2]*EVTS)+sqr(YT[2]*
E[32]));
ETRA := sqrt(sqr(YT[1]E1TRC)+sqr(YT[2]*ET1RC)+sqr(YT[2]*
E[33]))
end;
6: begin
ETSY := sqrt(sqr(YT[1]*EDTS)+sqr(YT[1]*EXTS)+sqr(YT[1]*EVTS)+
sqr(YT[1]*E[32]));
ETRA := sqrt(sqr(YT[1]*E1TRC)+sqr(YT[1]*ET2RC)+sqr(YT[1]*
ET1RC)+sqr(YT[1]*E[33]))
end;
end; { endcase }
ET := sqit(sqr(ETSY)+sqr(ETRA));
end;{Т}
{----------------------------------------------------------------}
{Расчет погрешностей определения плотности среды при стандартных
условиях}
Procedure ROS;
const
EROS1:array( 1 ..31 ] of real=(0.05,0.05,0.2,0.3,0.3,0.0,0.0,0.0,0.0,0.0,
0.1,0.1,0.2,0.0,0.0,0.0,0.1,0.1,0.05,0.1,
0.3,0.0,0.1,0.05,0.05,0.05,0.05,0.3,0.05,0.3,0.05);
var
E1RSC, E1RRC, E2RSC, EDRSC : real;
I : integer;
begin { ROS }
if NSUBA[NNIT]<>0 then begin
EROSS:=EROSI[NSUBA[NNIT]]; EROS:=EROSS; EROSR:=0.0
end else begin
if NVARYA[NNIT] = 1 then begin
if (E[1]<>0)or(E[2]<>0) then