Var Tk1, y, y2, y3, y6, y8, y9, y14, y15, y21, y31, Ap0, Ap1, Ap2, Ap3,
Ap4, Ap5, hp0, sp0, vpp, hpp, hp1, spp, ts, Tks, ys, ys2, Ly, Ls, Ls2, Ls3,
Ls4, Ls5, Sbs, v21, v22, h21, h22, s21, s22, Kh, Gh, Fh, Eh, tn1, pn1, Ltn,
tn2, tn3, tn6, tn12, hw, x2, h2, x1t, h1t1, a1t, h1t, x2t, h2t1, a2t, h2t, h3,
kpRG, kpR, LRG, DRG, DR, DtR:real;
Procedure TDSPP(t,p:real); {Свойства перегретого пара}
Begin
y:=t/K1; y2:=sqr(y); y21:=sqr(y–ym1); Ly:=ln(y);
y3:=exp(3*Ly); y31:=exp(3*ln(y–ym1));
y6:=exp(6*Ly); y8:=exp(8*Ly); y14:=exp(14*Ly);
Ap0:=bp0+bp1*y+bp2/y2+bp3/y21;
Ap1:=cp0+cp1/y8+cp2/y14;
vpp:=Ap0+Ap1*p+Rw*y/p;
Ap2:=bp0+3*bp2/y2+3*bp3/y21+2*bp3*ym1*y31;
Ap3:=cp0+9*cp1/y8+15*cp2/y14;
hp0:=kp0+kp1*y+kp2*y2+kp3*Ly;
hpp:=hp0+(Ap2+Ap3*p/2)*p*K1;
y9:=exp(9*Ly);y15:=exp(15*Ly);
Ap4:=–bp1+2*bp2/y3+2*bp3/y31;
Ap5:=8*cp1/y9+14*cp2/y15;
sp0:=(kp1*Ly+2*kp2*y–kp3/y+kp4)/k1;
spp:=sp0+(Ap4+Ap5*p/2)*p–Rw*ln(K1*p); end;
Procedure TDSPH(ps:real); {Св-ва нас. пара}
Begin Ls:=ln(ps); Ls2:=sqr(Ls); Ls3:=Ls*Ls2;
Ls4:=Ls*Ls3; Ls5:=Ls*Ls4;
Sbs:=bs0+Ls*bs1+Ls2*bs2+Ls3*bs3+Ls4*bs4+Ls5*bs5;
Tks:=k1/Sbs; ts:=Tks–273; ys:=Tks/K1; ys2:=sqr(ys);
ps:=exp(as1+as0/ys+as2*ys+as3*ln(k1*ys));
v21:=d10+d11*ys+ys2*(d12+d13*ys+ys2*(d14+d15*ys+d16*ys2));
v22:= (d20+(ys–ym2)*(d21+(ys–ym2)*(d22+d23*(ys–ym2)));
v22:=(Rw*ys/ps)* v22;
h21:=c10+c11*ys+ys2*(c12+c13*ys+ys2*(c14+c15*ys));
h22:=c20+c21*ys+ys2*(c22+c23*ys+ys2*(c24+c25*ys));
s21:=e10+e11*ys+ys2*(e12+e13*ys+ys2*(e14+e15*ys));
s22:=e20+e21*ys+ys2*(e22+e23*ys+ys2*(e24+e25*ys+e26*ys2)); end;
Procedure TDSW(t,p:real); {Свойства воды}
Begin
tn1:=t/100; pn1:=5–p1/10;
tn2:=sqr(tn1); Ltn:=ln(tn1);
tn3:=exp(3*Ltn); tn6:=exp(6*Ltn); tn12:=exp(12*Ltn);