w0=3.7e-8; w1=3.588e-8; w2= –4.05e-13; dw0=1.1766e-13;
ew0=9.41e1; ew1=4.025e2; ew2=4.767; ew3=3.333e-2;
fw0= –9.25; fw1=1.67; fw2=7.36e-3; fw3= –8.0e-3;
gw0=–7.3e-2; gw1=7.90e-2; gw2=6.8e-4; kw0=3.38e-8;
Var Vb0, Vb, Vg10, Vg20, Vg30, Vg0, Vg, Vgr, d1, tg1, tg2, g, tn1,
tn2, tn3, tn6, tn9, tn12, tn15, t31, t51, Aw, Bw, Cw, Dw, w, ww, w, Kw,
p1, p2, p4, vw, hw, eh, ev, hg1, hg2, 0, 1, 2, z0, z1, z2, a0, a1, a2, hb1, hb2,
hot, b, dH, tw1, hw1, pw1,pw2, tw2, kw2, hw2, tw, dtm, dtmn, dtpr, fw,
Ntr, wm, wl, wg, g, zr1, Lt1, Cs, Cz, sd1, sd2, fsd, Lmg, nug, Prg, eg, aLk, f
, fP, g1, g, gw, fgw, pn, kgk, egk, Lr, aLr, aLrp, aLs, psi, kt, t,
nt, n, nt1, nt0, pt, gb, Lp, Npt, dNpt, Lpk, Lpk1, Lpk2:real;
Function Xm(x,m:real):real; {возвед в дробн степ}
Begin m:=ep(mln()) end;
untion L2(:real):real; Begin
a0:=z0/((0–1)(0–2));
a1:=z1/((1–0)(1–2));
a2:=z2/((2–0)(2–1));
L2:=a0(–1)(–2)a1(–0)(–2)a2(–0)(–
1); end;
Procedure TDSW(t,p:real); {Свойства воды}
Begin tn1:=t/Kj; tn2:=sr(tn1); tn3:=tn1tn2; tn6:=tn3tn3;
tn9:=tn3tn6; tn12:=tn6tn6; t31:=ep(3ln(tn10.5));
t51:=ep(5ln(tn10.5));
p1:=5–p/10; p2:=p1p1; p4:=p2p2;
Aw:=aw0(aw1aw3tn15)tn1aw2tn2;
Bw:=bw0bw1tn1bw2tn6bw3/t31;
Cw:=w0w1tn3w2tn9;
Dw:=dw0tn12;
vw:=AwBwp1Cwp2Dwp4;
w:=ew0ew1tn1ew2tn2ew3tn6;
ww:=fw0fw1tn1fw2tn6fw3/t51;
w:=gw0gw1tn1gw2tn6;
Kw:=kw0tn12;
hw:=wwwp1wp2Kwp4;
end;
Begin ClrSr;
Ntr:=400; d1:=d2–2ds; sd1:=s1/d2; sd2:=s2/d2;
tg1:=496.0; tg2:=375.0; tg:= (tg1tg2)/2;
tw1:=275.0; hw1:=1206.0; pw1:=29.92; pw2:=29.63;
Vb0:=0.0889(Cp0.375Sp)0.265Hp–0.0333Op;
Vg10:=0.79Vb00.008Np;
Vg20:=0.111Hp0.0124 p0.0161Vb01.24f;
Vg30:=0.01866(Cp0.375Sp); Vg0:=Vg10Vg20Vg30;