📄 declare.pas
字号:
HEF1:=int(((Q1z-Q4s+Q6z+Q9z)*100/(Qs-Q4s))*100)/100;
HEF2:=int(((Q1z-Q4s)*100/(Qs-Q4s))*100)/100;
ps1:=FormatFloat('0.00',Q1s*100/Qs);
ps2:=FormatFloat('0.00',Q2s*100/Qs);
ps3:=FormatFloat('0.00',Q3s*100/Qs);
ps4:=FormatFloat('0.00',Q4s*100/Qs);
pz1:=FormatFloat('0.00',Q1z*100/Qz);
pz2:=FormatFloat('0.00',Q2z*100/Qz);
pz3:=FormatFloat('0.00',Q3z*100/Qz);
pz4:=FormatFloat('0.00',Q4z*100/Qz);
pz5:=FormatFloat('0.00',Q5z*100/Qz);
pz6:=FormatFloat('0.00',Q6z*100/Qz);
pz71:=FormatFloat('0.00',Q71z*100/Qz);
pz72:=FormatFloat('0.00',Q72z*100/Qz);
pz8:=FormatFloat('0.00',Q8z*100/Qz);
pz9:=FormatFloat('0.00',Q9z*100/Qz);
pz10:=FormatFloat('0.00',Q10z*100/Qz);
pz11:=FormatFloat('0.00',Q11z*100/Qz);
pc:=FormatFloat('0.00',Qc*100/Qz);
AssignFile(fileno,filename);
ReWrite(fileno);;
writeln(fileno,filename);
Writeln(fileno,'煤气成分%(温度:℃)');
Writeln(fileno,
'CO2:'+FloatToStr(SESystemElement.co2_coal[1])+','+
'CO:'+FloatToStr(SESystemElement.co_coal[1])+','+
'N2:'+FloatToStr(SESystemElement.n2_coal[1])+','+
'O2:'+FloatToStr(SESystemElement.o2_coal[1])+','+
'H2:'+FloatToStr(SESystemElement.h2_coal[1])+','+
'CH4:'+FloatToStr(SESystemElement.ch4_coal[1])+','+
'CmHn:'+FloatToStr(SESystemElement.cmhn_coal[1])+','+
'煤气温度Tm:'+FloatToStr(SESystemElement.tm_coal));
Writeln(fileno,'CO2:'+FloatToStr(SESystemElement.co2_coal[2])+','+
'CO:'+FloatToStr(SESystemElement.co_coal[2])+','+
'N2:'+FloatToStr(SESystemElement.n2_coal[2])+','+
'O2:'+FloatToStr(SESystemElement.o2_coal[2])+','+
'H2:'+FloatToStr(SESystemElement.h2_coal[2])+','+
'CH4:'+FloatToStr(SESystemElement.ch4_coal[2])+ ','+
'CmHn:'+FloatToStr(SESystemElement.cmhn_coal[2])+','+
'H2O:'+FloatToStr(SESystemElement.h2o_coal));
Writeln(fileno,'烟气成分%');
Writeln(fileno,'CO2:'+FloatToStr(SESystemElement.co2_fume[1])+','+
'CO:'+FloatToStr(SESystemElement.co_fume[1])+','+
'N2:'+FloatToStr(SESystemElement.n2_fume[1])+','+
'O2:'+FloatToStr(SESystemElement.o2_fume[1])+','+
'CH4:'+FloatToStr(SESystemElement.ch4_fume[1]));
Writeln(fileno,'CO2:'+FloatToStr(SESystemElement.co2_fume[2])+','+
'CO:'+FloatToStr(SESystemElement.co_fume[2])+','+
'N2:'+FloatToStr(SESystemElement.n2_fume[2])+','+
'O2:'+FloatToStr(SESystemElement.o2_fume[2])+','+
'CH4:'+FloatToStr(SESystemElement.ch4_fume[2])+','+
'H2O:'+FloatToStr(SESystemElement.h2o_fume));
Writeln(fileno,'煤气用量B(流量：m^3/h,时间：h,比热:kcal/m^3.℃)');
Writeln(fileno,'煤气量Vm:'+FloatToStr(SESystemElement.q1_inheat[1])+','+
'热风流量Vf:'+FloatToStr(SESystemElement.q1_inheat[2])+','+
'燃烧期Tr:'+FloatToStr(SESystemElement.q1_inheat[3])+','+
'送风期Tf:'+FloatToStr(SESystemElement.q1_inheat[4])+','+
'燃料化学热Q1s:'+FloatToStr(SESystemElement.q1_inheat[5])+','+ps1);
Writeln(fileno,'燃料物理热量Q2');
Writeln(fileno,'环境温度Te:'+FloatToStr(SESystemElement.q2_inheat[1])+','+
'平均比热Cm:'+FloatToStr(SESystemElement.q2_inheat[2])+','+
'平均比热Cme:'+FloatToStr(SESystemElement.q2_inheat[3])+','+
'燃料物理热Q2s:'+FloatToStr(SESystemElement.q2_inheat[4])+','+ps2);
Writeln(fileno,'助燃空气物理热量Q3');
Writeln(fileno,'助燃空气温度Tk:'+FloatToStr(SESystemElement.q3_inheat[1])+','+
'平均比热Ck:'+ FloatToStr(SESystemElement.q3_inheat[2])+','+
'平均比热Cke:'+FloatToStr(SESystemElement.q3_inheat[3])+','+
'助燃空气物理热Q3s:'+FloatToStr(SESystemElement.q3_inheat[4])+','+ps3);
Writeln(fileno,'冷风带入热量Q4');
Writeln(fileno,'冷风温度Tf1:'+FloatToStr(SESystemElement.q4_inheat[1])+','+
'平均比热Cf1:'+FloatToStr(SESystemElement.q4_inheat[2])+','+
'平均比热Cfe:'+FloatToStr(SESystemElement.q4_inheat[3])+','+
'冷风带入的热量Q4s:'+FloatToStr(SESystemElement.q4_inheat[4])+','+ps4);
Writeln(fileno,'热风带出热量Qz1');
Writeln(fileno,'热风温度tf2:'+FloatToStr(SESystemElement.q1_outheat[1])+','+
'平均比热Cf2:'+FloatToStr(SESystemElement.q1_outheat[2])+','+
'平均比热Cfe:'+FloatToStr(SESystemElement.q1_outheat[3])+','+
'热风带出热量Q1z:'+FloatToStr(SESystemElement.q1_outheat[4])+','+pz1);
Writeln(fileno,'烟气带出物理热量Qz2');
Writeln(fileno,'烟气温度ty2:'+FloatToStr(SESystemElement.q2_outheat[1])+','+
'平均比热Cy2:'+FloatToStr(SESystemElement.q2_outheat[2])+','+
'平均比热Cye:'+FloatToStr(SESystemElement.q2_outheat[3])+','+
'烟气带出物理热Q2z:'+FloatToStr(SESystemElement.q2_outheat[4])+','+pz2);
Writeln(fileno,'化学不完全燃烧损失热量Qz3');
Writeln(fileno,'化学不完全燃烧损失热量Q3z:'+FloatToStr(SESystemElement.q3_outheat[1])+','+pz3);
Writeln(fileno,'煤气机械水吸热量Qz4');
Writeln(fileno,'干煤气机械水含量gmj:'+FloatToStr(SESystemElement.q4_outheat[1])+','+
'平均比热Cq:'+FloatToStr(SESystemElement.q4_outheat[2])+','+
'煤气机械水吸热量Q4z:'+FloatToStr(SESystemElement.q4_outheat[3])+','+pz4);
Writeln(fileno,'冷却水吸热量Qz5');
Writeln(fileno,'流量Gs:'+FloatToStr(SESystemElement.q5_outheat[1])+','+
'测定周期T:'+FloatToStr(SESystemElement.q5_outheat[2])+','+
'冷风量Vf:'+FloatToStr(SESystemElement.q5_outheat[3])+','+
'出口水温ts2:'+FloatToStr(SESystemElement.q5_outheat[4])+','+
'进口水温ts1:'+FloatToStr(SESystemElement.q5_outheat[5])+','+
'冷却水吸热量Q5z:'+FloatToStr(SESystemElement.q5_outheat[6])+','+pz5);
Writeln(fileno,'冷风管道表面散热量Qz6');
Writeln(fileno,'表面温度tb6:'+FloatToStr(SESystemElement.q6_outheat[1])+','+
'黑度ε:'+FloatToStr(SESystemElement.q6_outheat[2])+','+
'面积A6:'+FloatToStr(SESystemElement.q6_outheat[3])+','+
'系数Af:'+FloatToStr(SESystemElement.q6_outheat[4])+','+
'冷风管道表面散热量Q6z:'+FloatToStr(SESystemElement.q6_outheat[5])+','+pz6);
Writeln(fileno,'炉顶表面散热量Qz71');
Writeln(fileno,'表面温度tb71:'+FloatToStr(SESystemElement.q7_1_outheat[1])+','+
'面积A71:'+FloatToStr(SESystemElement.q7_1_outheat[2])+','+
'系数Af:'+FloatToStr(SESystemElement.q7_1_outheat[3])+','+
'炉顶表面散热量Q71z:'+FloatToStr(SESystemElement.q7_1_outheat[4])+','+pz71);
Writeln(fileno,'炉顶表面散热量Qz72');
Writeln(fileno,'表面温度tb72:'+FloatToStr(SESystemElement.q7_2_outheat[1])+','+
'面积A72:'+FloatToStr(SESystemElement.q7_2_outheat[2])+','+
'系数Af:'+FloatToStr(SESystemElement.q7_2_outheat[3])+','+
'炉墙表面散热量Q72z:'+FloatToStr(SESystemElement.q7_2_outheat[4])+','+pz72);
Writeln(fileno,'竖管散热量Qz8');
Writeln(fileno,'表面温度tb8:'+FloatToStr(SESystemElement.q8_outheat[1])+','+
'面积A8:'+FloatToStr(SESystemElement.q8_outheat[2])+','+
'系数Af:'+FloatToStr(SESystemElement.q8_outheat[3])+','+
'竖管表面散热量Q8z:'+FloatToStr(SESystemElement.q8_outheat[4])+','+pz8);
Writeln(fileno,'热风管道表面散热量Qz9');
Writeln(fileno,'表面温度tb9:'+FloatToStr(SESystemElement.q9_outheat[1])+','+
'面积A9:'+FloatToStr(SESystemElement.q9_outheat[2])+','+
'系数Af:'+FloatToStr(SESystemElement.q9_outheat[3])+','+
'热风管道表面散热量Q9z:'+FloatToStr(SESystemElement.q9_outheat[4])+','+pz9);
Writeln(fileno,'烟道表面散热量Qz10');
Writeln(fileno,'表面温度tb10:'+FloatToStr(SESystemElement.q10_outheat[1])+','+
'烟气量Vfy:'+FloatToStr(SESystemElement.q10_outheat[2])+','+
'面积A9:'+FloatToStr(SESystemElement.q10_outheat[3])+','+
'系数Af:'+FloatToStr(SESystemElement.q10_outheat[4])+','+
'烟道表面散热量Q10z:'+FloatToStr(SESystemElement.q10_outheat[5])+','+pz10);
Writeln(fileno,'预热装置表面散热量Qz11');
Writeln(fileno,'表面温度tb11:'+FloatToStr(SESystemElement.q11_outheat[1])+','+
'面积A11:'+FloatToStr(SESystemElement.q11_outheat[2])+','+
'系数Af:'+FloatToStr(SESystemElement.q11_outheat[3])+','+
'预热装置表面散热量Q11z:'+FloatToStr(SESystemElement.q11_outheat[4])+','+pz11);
Writeln(fileno,'差值ΔQ:'+','+FormatFloat('0.00',Qc)+','+pc);
Writeln(fileno,'热风炉本体热效率ηt1='+','+FormatFloat('0.0',HEF1)+'%');
Writeln(fileno,'热风炉本体热效率ηt1='+','+FormatFloat('0.0',HEF2)+'%');
CloseFile(fileno);
end;
procedure InitialSESystem;
begin
SESystemMDIForm.CommandRichEdit.Lines.Add('命令:初始化...INIT'+chr(13));
SESystemElement.co2_coal[1]:=18.3;
SESystemElement.co2_coal[2]:=16.7;
SESystemElement.co_coal[1]:=23.3;
SESystemElement.co_coal[2]:=21.3;
SESystemElement.n2_coal[1]:=57.1;
SESystemElement.n2_coal[2]:=52.2;
SESystemElement.o2_coal[1]:=0;
SESystemElement.o2_coal[2]:=0;
SESystemElement.h2_coal[1]:=1.3;
SESystemElement.h2_coal[2]:=1.2;
SESystemElement.ch4_coal[1]:=0;
SESystemElement.ch4_coal[2]:=0;
SESystemElement.cmhn_coal[1]:=0;
SESystemElement.cmhn_coal[2]:=0;
SESystemElement.tm_coal :=43;
SESystemElement.h2o_coal:=8.6;
SESystemElement.co2_cokecoal:=2.8;
SESystemElement.co_cokecoal:=9.2;
SESystemElement.n2_cokecoal:=3.28;
SESystemElement.o2_cokecoal:=1.2;
SESystemElement.h2_cokecoal:=69.74;
SESystemElement.ch4_cokecoal:=12.38;
SESystemElement.cmhn_cokecoal:=1.4;
SESystemElement.factor_cokecoal :=60.72;
SESystemElement.co2_fume[1]:=21.9;
SESystemElement.co2_fume[2]:=18.9;
SESystemElement.co_fume[1]:=0;
SESystemElement.co_fume[2]:=0;
SESystemElement.n2_fume[1]:=74.7;
SESystemElement.n2_fume[2]:=64.3;
SESystemElement.o2_fume[1]:=3.4;
SESystemElement.o2_fume[2]:=2.9;
SESystemElement.ch4_fume[1]:=0;
SESystemElement.ch4_fume[2]:=0;
SESystemElement.h2o_fume:=13.9;
SESystemElement.q1_inheat[1]:=170000;
SESystemElement.q1_inheat[2]:=182100;
SESystemElement.q1_inheat[3]:=2.4;
SESystemElement.q1_inheat[4]:=3.2;
SESystemElement.q2_inheat[1]:= 37;
SESystemElement.q2_inheat[2]:= 0.33;
SESystemElement.q2_inheat[3]:= 0.33;
SESystemElement.q3_inheat[1]:= 181;
SESystemElement.q3_inheat[2]:= 0.32;
SESystemElement.q3_inheat[3]:= 0.31;
SESystemElement.q4_inheat[1]:= 187;
SESystemElement.q4_inheat[2]:= 0.32;
SESystemElement.q4_inheat[3]:= 0.31;
SESystemElement.q1_outheat[1]:= 1064;
SESystemElement.q1_outheat[2]:= 0.34;
SESystemElement.q1_outheat[3]:= 0.31;
SESystemElement.q2_outheat[1]:= 270.3;
SESystemElement.q2_outheat[2]:= 0.33;
SESystemElement.q2_outheat[3]:= 0.33;
SESystemElement.q4_outheat[1]:=14;
SESystemElement.q4_outheat[2]:=0.38;
SESystemElement.q5_outheat[1]:=1323200;
SESystemElement.q5_outheat[2]:= 6.7;
SESystemElement.q5_outheat[3]:= 288780;
SEsystemElement.q5_outheat[4]:=43.56;
SEsystemElement.q5_outheat[5]:=38.01;
SESystemElement.q6_outheat[1]:=130.5;
SESystemElement.q6_outheat[2]:=0.75;
SESystemElement.q6_outheat[3]:=383.2;
SESystemElement.q6_outheat[4]:=2.2;
SESystemElement.q7_1_outheat[1]:=110.5;
SESystemElement.q7_1_outheat[2]:=615.5;
SESystemElement.q7_1_outheat[3]:=2.8;
SESystemElement.q7_2_outheat[1]:=67;
SESystemElement.q7_2_outheat[2]:=4851.4;
SESystemElement.q7_2_outheat[3]:=2.2;
SESystemElement.q8_outheat[1]:=61;
SESystemElement.q8_outheat[2]:=649.98;
SESystemElement.q8_outheat[3]:=2.2;
SESystemElement.q9_outheat[1]:=139;
SESystemElement.q9_outheat[2]:=712.18;
SESystemElement.q9_outheat[3]:=2.2;
SESystemElement.q10_outheat[1]:=129;
SESystemElement.q10_outheat[2]:=274040;
SESystemElement.q10_outheat[3]:=222.46;
SESystemElement.q10_outheat[4]:=2.2;
SESystemElement.q11_outheat[1]:=74.2;
SESystemElement.q11_outheat[2]:=271.69;
SESystemElement.q11_outheat[3]:=2.2;
SESystemElement.structure[1]:=7.6;
SESystemElement.structure[2]:=36;
SESystemElement.structure[3]:=60384;
SESystemElement.structure[4]:=2314200;
SESystemElement.grille[1][1]:=0.0475;
SESystemElement.grille[1][2]:=0.456;
SESystemElement.grille[1][3]:=0.0284;
SESystemElement.grille[1][4]:=0.0195;
SESystemElement.grille[2][1]:=0.045;
SESystemElement.grille[2][2]:=0.41;
SESystemElement.grille[2][3]:=0.0325;
SESystemElement.grille[2][4]:=0.022;
SESystemElement.grille[3][1]:=0.045;
SESystemElement.grille[3][2]:=0.41;
SESystemElement.grille[3][3]:=0.0325;
SESystemElement.grille[3][4]:=0.022;
SESystemElement.wind :=0.4;
SESystemElement.initial[1]:=0.1;
SESystemElement.initial[2]:=0.9;
SESystemElement.initial[3]:=0;
SESystemElement.inhibit[1]:=1100;
SESystemElement.inhibit[2]:=170000;
SESystemElement.inhibit[3]:=182100;
SESystemElement.inhibit[4]:=1300;
SESystemElement.inhibit[5]:=43;
SESystemElement.inhibit[6]:=1.05;
SESystemElement.inhibit[7]:=350;
end;
Function DryAirtoHumidityAir(Temp:Real):Real;
var i:Integer;
var x1:Real;
begin
result:=2;
for i:=0 to 40 do
begin
if ((Temp>=DryAirTempElem[i]) and (Temp<=DryAirTempElem[i+1]))then
begin
x1:= (DryAirTempElem[i+1]-Temp)/(DryAirTempElem[i+1]-DryAirTempElem[i]);
Result:=DryAirWaterElem[i]*x1+(1-x1)*DryAirWaterElem[i+1];
break;
end;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -