outheat.pas

《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热风炉进行 热平衡计算、传热模拟、燃烧优化、操作优化等设计。 本软件用Dephi6.0编写

unit OutHeat;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  TOutHeatForm = class(TForm)
    BOKButton: TBitBtn;
    BCancelButton: TBitBtn;
    Label24: TLabel;
    Label1: TLabel;
    HotWindTempEdit: TEdit;
    Label25: TLabel;
    Label7: TLabel;
    FumeTempEdit: TEdit;
    Label26: TLabel;
    Label12: TLabel;
    WaterElemCoalEdit: TEdit;
    Label27: TLabel;
    Label16: TLabel;
    FluxQEdit: TEdit;
    Label17: TLabel;
    TimeEdit: TEdit;
    Label4: TLabel;
    CoolWindQEdit: TEdit;
    Label18: TLabel;
    OutWaterTempEdit: TEdit;
    Label19: TLabel;
    InWaterTempEdit: TEdit;
    Label28: TLabel;
    Label21: TLabel;
    FaceTemp6Edit: TEdit;
    Label20: TLabel;
    BlackEdit: TEdit;
    Label5: TLabel;
    Area6Edit: TEdit;
    Label6: TLabel;
    Coff6Edit: TEdit;
    Label29: TLabel;
    Label22: TLabel;
    FaceTemp71Edit: TEdit;
    Label23: TLabel;
    Area71Edit: TEdit;
    Label10: TLabel;
    Coff71Edit: TEdit;
    Label30: TLabel;
    Label11: TLabel;
    FaceTemp72Edit: TEdit;
    Label31: TLabel;
    Area72Edit: TEdit;
    Label32: TLabel;
    Coff72Edit: TEdit;
    Label36: TLabel;
    Label33: TLabel;
    FaceTemp8Edit: TEdit;
    Label34: TLabel;
    Area8Edit: TEdit;
    Label35: TLabel;
    Coff8Edit: TEdit;
    Label37: TLabel;
    Label38: TLabel;
    FaceTemp9Edit: TEdit;
    Label39: TLabel;
    Area9Edit: TEdit;
    Label40: TLabel;
    Coff9Edit: TEdit;
    Label41: TLabel;
    Label43: TLabel;
    Label46: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    FaceTemp10Edit: TEdit;
    FumeQEdit: TEdit;
    Area10Edit: TEdit;
    Coff10Edit: TEdit;
    Label42: TLabel;
    Label47: TLabel;
    FaceTemp11Edit: TEdit;
    Label48: TLabel;
    Area11Edit: TEdit;
    Label49: TLabel;
    Coff11Edit: TEdit;
    Label51: TLabel;
    Label14: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BOKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OutHeatForm: TOutHeatForm;

implementation

{$R *.dfm}
uses Declare,Balance;

procedure TOutHeatForm.FormCreate(Sender: TObject);
begin
      HotWindTempEdit.Text :=FloatToStr(SESystemElement.q1_outheat[1]);

      FumeTempEdit.Text := FloatToStr(SESystemElement.q2_outheat[1]);

      WaterElemCoalEdit.Text:=FloatToStr(SESystemElement.q4_outheat[1]);

      FluxQEdit.Text := FloatToStr(SESystemElement.q5_outheat[1]);
      TimeEdit.Text := FloatToStr(SESystemElement.q5_outheat[2]);
      CoolWindQEdit.Text := FloatToStr(SESystemElement.q5_outheat[3]);
      OutWaterTempEdit.Text := FloatToStr(SESystemElement.q5_outheat[4]);
      InWaterTempEdit.Text := FloatToStr(SESystemElement.q5_outheat[5]);

      FaceTemp6Edit.Text := FloatToStr(SESystemElement.q6_outheat[1]);
      BlackEdit.Text := FloatToStr(SESystemElement.q6_outheat[2]);
      Area6Edit.Text := FloatToStr(SESystemElement.q6_outheat[3]);
      Coff6Edit.Text := FloatToStr(SESystemElement.q6_outheat[4]);

      FaceTemp71Edit.Text := FloatToStr(SESystemElement.q7_1_outheat[1]);
      Area71Edit.Text := FloatToStr(SESystemElement.q7_1_outheat[2]);
      Coff71Edit.Text := FloatToStr(SESystemElement.q7_1_outheat[3]);

      FaceTemp72Edit.Text := FloatToStr(SESystemElement.q7_2_outheat[1]);
      Area72Edit.Text := FloatToStr(SESystemElement.q7_2_outheat[2]);
      Coff72Edit.Text := FloatToStr(SESystemElement.q7_2_outheat[3]);

      FaceTemp8Edit.Text := FloatToStr(SESystemElement.q8_outheat[1]);
      Area8Edit.Text := FloatToStr(SESystemElement.q8_outheat[2]);
      Coff8Edit.Text := FloatToStr(SESystemElement.q8_outheat[3]);

      FaceTemp9Edit.Text := FloatToStr(SESystemElement.q9_outheat[1]);
      Area9Edit.Text := FloatToStr(SESystemElement.q9_outheat[2]);
      Coff9Edit.Text := FloatToStr(SESystemElement.q9_outheat[3]);

      FaceTemp10Edit.Text := FloatToStr(SESystemElement.q10_outheat[1]);
      FumeQEdit.Text := FloatToStr(SESystemElement.q10_outheat[2]);
      Area10Edit.Text := FloatToStr(SESystemElement.q10_outheat[3]);
      Coff10Edit.Text := FloatToStr(SESystemElement.q10_outheat[4]);

      FaceTemp11Edit.Text := FloatToStr(SESystemElement.q11_outheat[1]);
      Area11Edit.Text := FloatToStr(SESystemElement.q11_outheat[2]);
      Coff11Edit.Text := FloatToStr(SESystemElement.q11_outheat[3]);
      
end;

procedure TOutHeatForm.BOKButtonClick(Sender: TObject);
var  te,tf2,Cf2,Cfe,ty2,Cy2,Cye,Cq:Real;
begin
      SESystemElement.q1_outheat[1]:=StrToFloat(HotWindTempEdit.Text);

      SESystemElement.q2_outheat[1]:= StrToFloat(FumeTempEdit.Text);

      SESystemElement.q4_outheat[1]:=StrToFloat(WaterElemCoalEdit.Text);

       SESystemElement.q5_outheat[1]:= StrToFloat(FluxQEdit.Text);
       SESystemElement.q5_outheat[2]:= StrToFloat(TimeEdit.Text);
       SESystemElement.q5_outheat[3]:= StrToFloat(CoolWindQEdit.Text);
       SESystemElement.q5_outheat[4]:= StrToFloat(OutWaterTempEdit.Text);
       SESystemElement.q5_outheat[5]:= StrToFloat(InWaterTempEdit.Text);

       SESystemElement.q6_outheat[1]:= StrToFloat(FaceTemp6Edit.Text);
       SESystemElement.q6_outheat[2]:= StrToFloat(BlackEdit.Text);
       SESystemElement.q6_outheat[3]:= StrToFloat(Area6Edit.Text);
       SESystemElement.q6_outheat[4]:= StrToFloat(Coff6Edit.Text);

       SESystemElement.q7_1_outheat[1]:= StrToFloat(FaceTemp71Edit.Text);
       SESystemElement.q7_1_outheat[2]:= StrToFloat(Area71Edit.Text);
       SESystemElement.q7_1_outheat[3]:= StrToFloat(Coff71Edit.Text);

       SESystemElement.q7_2_outheat[1]:= StrToFloat(FaceTemp72Edit.Text);
       SESystemElement.q7_2_outheat[2]:= StrToFloat(Area72Edit.Text);
       SESystemElement.q7_2_outheat[3]:= StrToFloat(Coff72Edit.Text);

       SESystemElement.q8_outheat[1]:= StrToFloat(FaceTemp8Edit.Text);
       SESystemElement.q8_outheat[2]:= StrToFloat(Area8Edit.Text);
       SESystemElement.q8_outheat[3]:= StrToFloat(Coff8Edit.Text);

       SESystemElement.q9_outheat[1]:= StrToFloat(FaceTemp9Edit.Text);
       SESystemElement.q9_outheat[2]:= StrToFloat(Area9Edit.Text);
       SESystemElement.q9_outheat[3]:= StrToFloat(Coff9Edit.Text);

       SESystemElement.q10_outheat[1]:= StrToFloat(FaceTemp10Edit.Text);
       SESystemElement.q10_outheat[2]:= StrToFloat(FumeQEdit.Text);
       SESystemElement.q10_outheat[3]:= StrToFloat(Area10Edit.Text);
       SESystemElement.q10_outheat[4]:= StrToFloat(Coff10Edit.Text);

       SESystemElement.q11_outheat[1]:= StrToFloat(FaceTemp11Edit.Text);
       SESystemElement.q11_outheat[2]:= StrToFloat(Area11Edit.Text);
       SESystemElement.q11_outheat[3]:= StrToFloat(Coff11Edit.Text);


       te:=SESystemElement.q2_inheat[1];
       tf2:=SESystemElement.q1_outheat[1];
       Cf2:=1e-3*Cpair(tf2)*29/22.4*0.91/4.2;
       Cfe:=1e-3*Cpair(te)*29/22.4/4.2;
       ty2:=SESystemElement.q2_outheat[1];
       Cy2:=0.91/4.2*1e-5*(SESystemElement.co2_fume[2]*CpCO2(ty2)*44/22.4
            +SESystemElement.n2_fume[2]*CpN2(ty2)*28/22.4
            +SESystemElement.o2_fume[2]*CpO2(ty2)*32/22.4
            +SESystemElement.ch4_fume[2]*CpCH4(ty2)*16/22.4
            +SESystemElement.co_fume[2]*CpCO(ty2)*28/22.4
            +SESystemElement.h2o_fume*CpH2Oq(ty2)*18/22.4);
       Cye:=1e-5/4.2*(SESystemElement.co2_fume[2]*CpCO2(te)*44/22.4
            +SESystemElement.n2_fume[2]*CpN2(te)*28/22.4
            +SESystemElement.o2_fume[2]*CpO2(te)*32/22.4
            +SESystemElement.ch4_fume[2]*CpCH4(te)*16/22.4
            +SESystemElement.co_fume[2]*CpCO(te)*28/22.4
            +SESystemElement.h2o_fume*CpH2Oq(te)*18/22.4);
        Cq:=1e-3*CpH2Oq(ty2)*18/22.4/4.2;
        SESystemElement.q1_outheat[2]:=int(Cf2*100)/100;
        SESystemElement.q1_outheat[3]:=int(Cfe*100)/100;
        SESystemElement.q2_outheat[2]:=int(Cy2*100)/100;
        SESystemElement.q2_outheat[3]:=int(Cye*100)/100;
        SESystemElement.q4_outheat[2]:=int(Cq*100)/100;

       BalanceForm.BalanceMemo.Lines.Add('热风带出热量Qz1');
       BalanceForm.BalanceMemo.Lines.Add('热风温度tf2:'+FloatToStr(SESystemElement.q1_outheat[1])+','+
                                         '平均比热Cf2:'+FloatToStr(SESystemElement.q1_outheat[2])+','+
                                         '平均比热Cfe:'+FloatToStr(SESystemElement.q1_outheat[3]));
                                         
       BalanceForm.BalanceMemo.Lines.Add('烟气带出物理热量Qz2');
       BalanceForm.BalanceMemo.Lines.Add('烟气温度ty2:'+FloatToStr(SESystemElement.q2_outheat[1])+','+
                                         '平均比热Cy2:'+FloatToStr(SESystemElement.q2_outheat[2])+','+
                                         '平均比热Cye:'+FloatToStr(SESystemElement.q2_outheat[3]));

       BalanceForm.BalanceMemo.Lines.Add('煤气机械水吸热量Qz4');
       BalanceForm.BalanceMemo.Lines.Add('干煤气机械水含量gmj:'+FloatToStr(SESystemElement.q4_outheat[1])+','+
                                         '平均比热Cq:'+FloatToStr(SESystemElement.q4_outheat[2]));

       BalanceForm.BalanceMemo.Lines.Add('冷却水吸热量Qz5');
       BalanceForm.BalanceMemo.Lines.Add('流量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]));

       BalanceForm.BalanceMemo.Lines.Add('冷风管道表面散热量Qz6');
       BalanceForm.BalanceMemo.Lines.Add('表面温度tb6:'+FloatToStr(SESystemElement.q6_outheat[1])+','+
                                         '黑度ε:'+FloatToStr(SESystemElement.q6_outheat[2])+','+
                                         '面积A6:'+FloatToStr(SESystemElement.q6_outheat[3])+','+
                                         '系数Af:'+FloatToStr(SESystemElement.q6_outheat[4]));

       BalanceForm.BalanceMemo.Lines.Add('炉顶表面散热量Qz71');
       BalanceForm.BalanceMemo.Lines.Add('表面温度tb71:'+FloatToStr(SESystemElement.q7_1_outheat[1])+','+
                                         '面积A71:'+FloatToStr(SESystemElement.q7_1_outheat[2])+','+
                                         '系数Af:'+FloatToStr(SESystemElement.q7_1_outheat[3]));

       BalanceForm.BalanceMemo.Lines.Add('炉墙表面散热量Qz72');
       BalanceForm.BalanceMemo.Lines.Add('表面温度tb72:'+FloatToStr(SESystemElement.q7_2_outheat[1])+','+
                                         '面积A72:'+FloatToStr(SESystemElement.q7_2_outheat[2])+','+
                                         '系数Af:'+FloatToStr(SESystemElement.q7_2_outheat[3]));

       BalanceForm.BalanceMemo.Lines.Add('竖管散热量Qz8');
       BalanceForm.BalanceMemo.Lines.Add('表面温度tb8:'+FloatToStr(SESystemElement.q8_outheat[1])+','+
                                         '面积A8:'+FloatToStr(SESystemElement.q8_outheat[2])+','+
                                         '系数Af:'+FloatToStr(SESystemElement.q8_outheat[3]));

       BalanceForm.BalanceMemo.Lines.Add('热风管道表面散热量Qz9');
       BalanceForm.BalanceMemo.Lines.Add('表面温度tb9:'+FloatToStr(SESystemElement.q9_outheat[1])+','+
                                         '面积A9:'+FloatToStr(SESystemElement.q9_outheat[2])+','+
                                         '系数Af:'+FloatToStr(SESystemElement.q9_outheat[3]));

       BalanceForm.BalanceMemo.Lines.Add('烟道表面散热量Qz10');
       BalanceForm.BalanceMemo.Lines.Add('表面温度tb10:'+FloatToStr(SESystemElement.q10_outheat[1])+','+
                                         '烟气量Vfy:'+FloatToStr(SESystemElement.q10_outheat[2])+','+
                                         '面积A9:'+FloatToStr(SESystemElement.q10_outheat[3])+','+
                                         '系数Af:'+FloatToStr(SESystemElement.q10_outheat[4]));

       BalanceForm.BalanceMemo.Lines.Add('预热装置表面散热量Qz11');
       BalanceForm.BalanceMemo.Lines.Add('表面温度tb11:'+FloatToStr(SESystemElement.q11_outheat[1])+','+
                                         '面积A11:'+FloatToStr(SESystemElement.q11_outheat[2])+','+
                                         '系数Af:'+FloatToStr(SESystemElement.q11_outheat[3]));

end;

end.