Листинг 12. Расчет характеристик
воздухоподогревателя доменной печи
Program VP_DP;
Uses Crt;
Const Vp=2e3; {м3-объем печи} Bf=65.5e3{м3/ч–расх. топлива};
nvp=4;{кол-во аппар}S0=3.168e4;{м2-поверхность нагрева}
cps=1.66e3;cp2=1.05e3; t21=150;{темпер. холод. дутья}
V2=219.4e3;{м3/ч-расход дутья} ab=1.1;{коэф. избытка возд.}
tg=30;{т-ра газа} tb=20;{т-ра воздуха} kc=3600;{переводн .коэф.}
Qhc=7.25e3;{кДж/м3-теплота
сгорания газа}
dq=0.035;{потери теплоты во внешн. среду} hb=37.0;hg=45.0;
ta1=2.9;{ч-длит. газ. период} ta2=1.0;{ч–длит. дутьевого период}
alf1=24.7;{Вт/м2К-коэф . теплотд. газ. период}
alf2=29.1;{Вт/м2К-коэф. теплотд. дут. период}
rh=1850; {кг/м3-плот. засып} kf=0.99; rek=0.04;
Lmh=0.9;{Вт/мК-коэфф. теплопр. засып}
ch=920;{Дж/кгК-удельн. теплоем. засып}
yco=24.5; yh2=2.35;ych4=12.55;yco2=9.2;yn2=51.32;yc2h6=0.08;
Var V0, Vab, Vro2, Vh2o, Vo2, Vn2, Vps, rco2, rh2o, rn2, ro2, rps, tps,
w1, w2, tac1, Bi1, Bi2, tac2, ta0, h0, h1, h2, tac, m1, m2, kw, kz, kh, cs, ks,
ck, kid, tc1, tc2, d1, d2, e1, e2, f1, f2, V1, b11, b12, b21, b22, b31, b32, bc1,
t11, t1k, t2k, tt1k, tt2k, tt2k1, pc1, pc2, p1k, p2k, h, ep1, ep2:real;
Begin ClrScr;
V0:=((yco+yh2)/2+2*ych4+4*yc2h6)/21; vab:=ab*v0;
Vro2:=(yco2+yco+ych4+2*yc2h6)/100;
Vh2o:=(yh2+2*ych4+3*yc2h6)/100;
Vn2:=yn2/100+0.79*vab; Vo2:=0.21*(ab–1)*v0;
Vps:=vro2+vh2o+vn2+vo2;
rco2:=(vro2/vps)*100; rh2o:=(vh2o/vps)*100; ro2:=(vo2/vps)*100;
rn2:=(vn2/vps)*100;
rps:=(44*rco2+28*rn2+18*rh2o+32*ro2)/(22.4*100);
t11:=(qhc+hb+hg)*(1–dq)*1000/(vps*cps); tac:=ta1+ta2;
writeln ('v0=',v0:5:2,' vps=',vps:5:2,' t11=',t11:5:1,' rps=',rps:5:3);
V1:=Bf*vps*tac/(kc*ta1*nvp); w1:=v1*cps; w2:=(v2/kc)*cp2;
Bi1:=alf1*rek/lmh;Bi2:=alf2*rek/lmh; m1:=1+Bi1/3; m2:=1+Bi2/3;
tac1:=alf1*ta1*kc/(m1*ch*rh*rek);
tac2:=alf2*ta2*kc/(m2*ch*rh*rek);
ta0:=2*tac1*tac2/(tac1+tac2);
h1:=alf1*s0/(m1*w1); h2:=alf2*s0/(m2*w2);h0:=(h1+h2)/2;
writeln ('tac1=',tac1:5:2,' tac2=',tac2:5:2,' h1=',h1:5:2,' h2=',h2:5:2);
kid:=alf1/((ta1/ta2+1)*(alf1/alf2*ta2/ta1));