Площадь поверхности нагрева экономайзера
12
π
(14.29)
Описанный алгоритм был реализован в среде Turbo Pascal. В разде-
ле констант набраны исходные данные по дымовым газам, геометриче-
ским характеристикам пучка труб, диаметра и толщины стенки трубы, теп-
лопроводности металла. Термодинамические свойства воды вычисляются
по аппроксимационным зависимостям с помощью процедуры
Листинг14. Тепловой и конструктивный расчеты
гладкотрубного экономайзера
Program EK_MAIZER;
Uses Crt; Const Tk0=273; C0=5.67; kj=1e3; C0k=5.13e-2; ms=2;
w1=13.0; Lms=20.1; d1=0.044; d2=0.051; tg1=800; rg1=0.13 {CO2};
rg2=0.11 {H2O}; G1=138.9; G2=63.9; w2=0.6; tw1=160; tw2=300; kz=0.8;
es=0.8; pg=0.1; nk=3.6; t10=500; t11=700; t12=900; r10=0.457; r11=0.363;
r12=0.301; cp10=1185; cp11=1239; cp12=1290;
Lm10=6.56e-2; Lm11=8.27e-2; Lm12=10.0e-2;
n10=76.3e-6; n11=112.1e-6; n12=152.5e-6;
Pr10=0.63; Pr11=0.61; Pr12=0.59;
t20=150; t21=200; t22=250; r20=917.0; r21=863.0; r22=799.0;
cp20=4313; cp21=4505; cp22=4844;
Lm20=0.684; Lm21=0.663; Lm22=0.618;
n20=0.203e-6; n21=0.158e-6; n22=0.137e-6;
Pr20=1.17; Pr21=0.93; Pr22=0.86;
Var tg2, tc1, Tkc1, r1, cp1, Lm1, nu1, Pr1, Re1, Ns1, rs1, ps1, ak1,
ak,Q, tc2,Tkc2,r2,cp2,nu2,Lm2,Pr2,Prw2,est,Re2, Ns2, ak2, esh, fTgw, Tgw,
TT1, dtl, dtpr, kt, twc, Ft, Lt, s1, s2, s12, PP, RP, RPP, ZPR, FZPR, rs2, ps2,
rt1, rt2, rts, Lt1, nz, dnz, nz0, qr, ar, lr, py1, py2, eg1, eg2, btp, eg, Ag, esf,
as, kgk, ark, egk, pn, x0, x1, x2, y0, y1, y2, a0, a1, a2:real;
Function Xm(x,m:real):real; {возвед в дробн степ}
Begin xm:=exp(m*ln(x)) end;
Function LG2(x:real):real;
Begin
a0:=y0/((x0–x1)*(x0–x2)); a1:=y1/((x1–x0)*(x1–x2));
a2:=y2/((x2–x0)*(x2–x1));
L2:=a0*(x–x1)*(x–x2)+a1*(x–x0)*(x–x2)+a2*(x–x0)*(x–x1); end;
Procedure Tfs2(tc:real);
Begin y0:=r20; y1:=r21; y2:=r22; r2:=LG2(tc);
y0:=cp20; y1:=cp21; y2:=cp22; cp2:=LG2(tc);
y0:=Lm20; y1:=Lm21; y2:=Lm22; Lm2:=LG2(tc);