34
EKAP:=EKAP+2.0;
if P<=5.0 then EVIS:=EVIS+3.0
else EVIS:=EVIS+6.0
end; {endif}
end else begin
N:=NSUBA[NNIT];
EPHP(N, T, P, ERO,EKAP,EVIS);
end; {endif}
end; { EPH }
{---------------------------------------------------------------------------------}
{Методические погрешности определения плотности, показателя адиабаты и вязкости чистых веществ}
Procedure EPHP;
const
TC:array [1..31] of real=(-82.0,32.0,96.0,134.0,152.0,187.0,
196.0,234.0,300.0,326.0,77.0.9.0.92.0,327.0,357.0,307.0,227.0,
-140.0,31.0.100.0,187.0,374.0,374.0,-119.0.-132.0,-268.0,
-173.0,-73.0,-240.0,132.0,-147.0);
PC:array [1..31,1..2] of real=((45.0,45.0),(48.0,48.0),
(41.0,41.0),(36.0,36.0),(37.5,37.5),(33.0,33.0),(33.0,33.0),
(29.0,29.0),(26.0,40.0),(25.0,25.0),(50.0,50.0),(50.0,50.0),
(46.0,46.0),(50.0,40.0),(50.0,40.0),(50.0.30.0),(50.0,5Э.О),
(35.0,30.0),(73.0,73.0),(90.0,90.0),(50.0,30.0),(217.0,217.0),
(217.0,217.0),(50.0,50.0),(35.0,35.0),(2.3,2.3),(27.0,27.0),
(49.0,49.0),(13.0,13.0),(113.0,113.0),(34.0,33.0));
ER:array [1..31.1..3] of real=((0.06,0.09,0.09),
(0.04,0.29,0.29),(0.03,0.21,0.21),(0.07,0.1,0.1),
(0.4,0.6,0.6),(0.2,0.3,0.3),(0.2,0.3,0.3),(0.4,0.5,0.5),
(0.3,0.5,0.2),(0.2,0.4,0.4),(0.5,1.3,1.0),(0.08,0.48,0.48),
(0.1,1.0,1.0),(0.1,0.5,0.1),(0.1,0.5,0.1),(0.4,0.8,0.5),
(1.0,3.0,1.5), (0.3,0.2,0.2),(0.1,0.4,0.4), (0.25,0.25,0.25),
(0.4,1.0.0.5),(0.1,0.2,0.2),(0.03,0.03,0.03),(0.12,0.4,0.4),
(0.02,0.05,0.05),(0.2,0.2,0.2),(0.25,0.3,0.15),
(0.25,0.3.0.15),(0.25,0.2,0.2),(0.05,0.1,0.1),
(0.03,0.04,0.04));
EK:array [1..31,1..3] of real=((0.7,1.7,1.7),(0.2,2.4,2.4),
(0.14,0.69,0.69),(4.0,4.0,4.0),(4.0,4.0,4.0),(1.5,1.5,1.5),
(1.2.1.2,1.2),(0.8,0.8,0.8),(3.0,4.0,2.0),(3.0,2.0.2.0),
(3.0,6.0,5.0),(0.4,1.4,1.4),(0.15.1.2,1.2),(2.0,4.0,1.5),
(2.0,4.0,1.5),(5.0,10.0,6.0),(6.0,10.0,8.0),(0.5.2.0,2.0),
(0.6,0.6,0.6),(1.5,1.5,1.5),(2.0,6.0,3.0),(2.5,2.5,2.5),
(2.0,2.0,2.0),(3.0,1.8,1.8),(0.5,0.7,0.7),(3.4,3.4,3.4),
(1.5,2.0,1.0),(1.5,2.0,1.0),(2.0,2.0,2.0),(4.0,4.0,4.0),
(1.6,1.6,1.6));
EV:array [1..31,1..2] ofreal=((4.7,1.5),(2.0,2.0),(3.0,2.0),
(2.0,2.0),(3.0,2.0),(4.0,4.0),(4.0,3.0),(5.0,4.0),(1.0,4.5),
(2.0,2.0),(2.0,5.0),(2.0,2.0),(5.0,3.0),(1.0,4.5),(1.0,4.5),
(1.5,3.0),(6.0,6.0),(1.0,3.0),(0.7,1.4),(2.3,2.3),(1.0,5.0),
(0.47,1.1),(2.0,2.0),(1.8,1.3),(4.7,4.0),(2.6,2.6),(2.0,2.0),
(2.0,2.0),(3.0,5.0),(2.0,2.0),(1.1,4.0));
begin ( EPHP }
if ((9<=N) and (N<=11)) or((14<=N) and (N<=17)) or (N=21) or