23
end; {endif}
EDPRS := E[30]*(T2HO-T2LO);
ERDPS := sqrt(sqr(EDPRSC)+sqr(EDPRS)+sqr(E[31])+sqr(E[32]));
end;
end; {endif}
YDP[1]:=E[35]/DPC;YDP[2]:=2.0*sqrt(E[35]/DPC);
case SIZMDPD of
0: begin
EDPSY := YDP[1]*EDDPS;
EDPRA := YDP[1]*E1DPRC
end;
1: begin
EDPSY := YDP[2]*EDDPS;
EDPRA := YDP[2]*E1DPRC
end;
2: begin
EDPSY := sqrt(sqr(YDP[1]*EDDPS)+sqr(YDP[1]*EVDPS));
EDPRA := sqrtCsqrODPlirElDPRQ+sqrCYDPtirEDPlRC))
end;
3: begin
EDPSY := sqrt(sqr(YDP[1]*EDDPS)+sqr(YDP[2]*EVDPS));
EDPRA := sqrt(sqr(YDP[1]*ElDPRC)+sqr(YDP[2]*EDPlRC))
end;
4: begin
EDPSY := sqit(sqr(YDP[1]*EDDPS)+sqr(YDP[1]*EVDPS)+sqr(YDP[1]* E[33]));
EDPRA := sqrt(sqr(YDP[1]*ElDPRC)+sqr(YDP[1]*EDPlRC)+
sqr(YDP[1]*E[34]))
end;
5: begin
EDPSY := sqrt(sqr(YDP[1]*EDDPS)+sqr(YDP[1]*EVDPS)+sqr(YDP[2]*
E[33]));
EDPRA := sqrt(sqr(YDP[1]*ElDPRC)+sqr(YDP[1]*EDPlRC)+
sqr(YDP[21*E[34]))
end;
6: begin
EDPSY := sqrt(sqr(YDP[1]*EDDPS)+sqr(YDP[2]*EVDPS)+sqr(YDP[2]*
E[33D);
EDPRA := sqrt(sqr(YDP[irElDPRC)+sqr(YDP[2]*EDPlRC)+
sqr(YDP[2]*E[34]))
end;
7: begin
EDPSY := sqn(sqr(YDP[1]*EDDPS)+sqr(YDP[2]*ERDPS)+
sqr(YDP[2]*EVDPS)+sqr(YDP(21E[33]));
EDPRA := sqrt(sqr(YDP[1]*E1DPRC)+sqr(YDP[2]*EDPRRC)+
sqr(YDP[2]*EDP1RC)+sqr(YDP[2]*E[34]))
end;
end; { endcase }
EDP := sqn(sqr(EDPSY)+sqr(EDPRA));
end; { DP }
{------------------------------------------------------------------------}
{Расчет погрешностей определения давления среды}