inheat.pas

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

unit InHeat;

interface

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

type
  TInHeatForm = class(TForm)
    BOKButton: TBitBtn;
    BCancelButton: TBitBtn;
    Label6: TLabel;
    CoalQEdit: TEdit;
    Label7: TLabel;
    HotWindQEdit: TEdit;
    Label11: TLabel;
    BurnTimeEdit: TEdit;
    Label22: TLabel;
    BlowTimeEdit: TEdit;
    Label23: TLabel;
    Label24: TLabel;
    EnvTempEdit: TEdit;
    Label26: TLabel;
    Label28: TLabel;
    HelpBurnTempEdit: TEdit;
    Label29: TLabel;
    CoolWindEdit: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure BOKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InHeatForm: TInHeatForm;

implementation

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

procedure TInHeatForm.FormCreate(Sender: TObject);
begin
        CoalQEdit.Text :=  FloatToStr(SESystemElement.q1_inheat[1]);
        HotWindQEdit.Text:= FloatToStr(SESystemElement.q1_inheat[2]);
        BurnTimeEdit.Text :=FloatToStr(SESystemElement.q1_inheat[3]);
        BlowTimeEdit.Text :=FloatToStr(SESystemElement.q1_inheat[4]);
        EnvTempEdit.Text:=FloatToStr(SESystemElement.q2_inheat[1]);
        HelpBurnTempEdit.Text:=FloatToStr(SESystemElement.q3_inheat[1]);
        CoolWindEdit.text:=FloatToStr(SESystemElement.q4_inheat[1]);
end;

procedure TInHeatForm.BOKButtonClick(Sender: TObject);
var Cm,Cme,te,tm,Ck,tk,Cf1,tf1,Cfe,Cke:Real;
begin
        SESystemElement.q1_inheat[1]:= StrtoFloat(CoalQEdit.Text);
        SESystemElement.q1_inheat[2]:=StrtoFloat(HotWindQEdit.Text);
        SESystemElement.q1_inheat[3]:=StrtoFloat(BurnTimeEdit.Text);
        SESystemElement.q1_inheat[4]:=StrtoFloat(BlowTimeEdit.Text);
        SESystemElement.q2_inheat[1]:=StrtoFloat(EnvTempEdit.Text);
        SESystemElement.q3_inheat[1]:=StrtoFloat(HelpBurnTempEdit.Text);
        SESystemElement.q4_inheat[1]:=StrtoFloat(CoolWindEdit.text);

        tm:=SESystemElement.tm_coal;   //煤气温度
        te:=SESystemElement.q2_inheat[1];  //环境温度
        tk:=SESystemElement.q3_inheat[1];   //助燃空气温度tk
        tf1:=SESystemElement.q4_inheat[1]; //冷风温度
        Cm:=1e-5/4.2*(SESystemElement.co2_coal[2]*CpCO2(tm)*44/22.4+SESystemElement.co_coal[2]
               *CpCO(tm)*28/22.4+SESystemElement.n2_coal[2]*CpN2(tm)*28/22.4
               +SESystemElement.o2_coal[2]*CpO2(tm)*32/22.4+SESystemElement.h2_coal[2]
               *CpH2(tm)*2/22.4+SESystemElement.ch4_coal[2]*CpCH4(tm)*16/22.4
               +SESystemElement.cmhn_coal[2]*CpC2H4(tm)*28/22.4
               +SESystemElement.h2o_coal*CpH2Oq(tm)*18/22.4);
        Cme:=1e-5/4.2*(SESystemElement.co2_coal[2]*CpCO2(te)*44/22.4
             +SESystemElement.co_coal[2]*CpCO(te)*28/22.4+SESystemElement.n2_coal[2]*CpN2(te)
             *28/22.4+SESystemElement.o2_coal[2]*CpO2(te)*32/22.4+SESystemElement.h2_coal[2]
             *CpH2(te)*2/22.4+SESystemElement.ch4_coal[2]*CpCH4(te)*16/22.4
             +SESystemElement.cmhn_coal[2]*CpC2H4(te)*28/22.4
             +SESystemElement.h2o_coal*CpH2Oq(te)*18/22.4);
        SESystemElement.q2_inheat[2]:=int(cm*100)/100;
        SESystemElement.q2_inheat[3]:=int(cme*100)/100;
        Ck:=1e-3*Cpair(tk)*29/22.4/4.2;
        Cke:=1e-3*Cpair(te)*29/22.4/4.2;
        SESystemElement.q3_inheat[2]:=int(ck*100)/100;
        SESystemElement.q3_inheat[3]:=int(cke*100)/100;
        Cf1:=1e-3*Cpair(tf1)*29/22.4/4.2;
        Cfe:=1e-3*Cpair(te)*29/22.4/4.2;
        SESystemElement.q4_inheat[2]:=int(cf1*100)/100;
        SESystemElement.q4_inheat[3]:=int(cfe*100)/100;

       BalanceForm.BalanceMemo.Lines.Add('煤气用量B(流量：m^3/h,时间：h,比热:kcal/m^3.℃)');
       BalanceForm.BalanceMemo.Lines.Add('煤气流量Vm:'+FloatToStr(SESystemElement.q1_inheat[1])+','+
                                        '热风流量Vf:'+FloatToStr(SESystemElement.q1_inheat[2])+','+
                                        '燃烧期Tr:'+FloatToStr(SESystemElement.q1_inheat[3])+','+
                                        '送风期Tf:'+FloatToStr(SESystemElement.q1_inheat[4]));
       BalanceForm.BalanceMemo.Lines.Add('燃料物理热量Q2');
       BalanceForm.BalanceMemo.Lines.Add('环境温度Te:'+FloatToStr(SESystemElement.q2_inheat[1])+','+
                                        '平均比热Cm:'+FloatToStr(SESystemElement.q2_inheat[2])+','+
                                        '平均比热Cme:'+FloatToStr(SESystemElement.q2_inheat[3]));
       BalanceForm.BalanceMemo.Lines.Add('助燃空气物理热量Q3');
       BalanceForm.BalanceMemo.Lines.Add('助燃空气温度Tk:'+FloatToStr(SESystemElement.q3_inheat[1])+','+
                                        '平均比热Ck:'+ FloatToStr(SESystemElement.q3_inheat[2])+','+
                                        '平均比热Cke:'+FloatToStr(SESystemElement.q3_inheat[3]));
       BalanceForm.BalanceMemo.Lines.Add('冷风带入热量Q4');
       BalanceForm.BalanceMemo.Lines.Add('冷风温度Tf1:'+FloatToStr(SESystemElement.q4_inheat[1])+','+
                                        '平均比热Cf1:'+FloatToStr(SESystemElement.q4_inheat[2])+','+
                                        '平均比热Cfe:'+FloatToStr(SESystemElement.q4_inheat[3]));

end;

end.