burning.pas

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

unit Burning;

interface

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

type
  TBurningForm = class(TForm)
    Label25: TLabel;
    Label26: TLabel;
    CoalCo2Edit: TEdit;
    Label27: TLabel;
    CoalCoEdit: TEdit;
    Label28: TLabel;
    CoalN2Edit: TEdit;
    Label29: TLabel;
    CoalO2Edit: TEdit;
    Label32: TLabel;
    CoalH2Edit: TEdit;
    Label33: TLabel;
    CoalCH4Edit: TEdit;
    Label34: TLabel;
    CoalCmHnEdit: TEdit;
    Label47: TLabel;
    CoolAirTempEdit: TEdit;
    Label46: TLabel;
    BlowTimeEdit: TEdit;
    Label45: TLabel;
    BurnTimeEdit: TEdit;
    Label44: TLabel;
    HotAirQEdit: TEdit;
    Label43: TLabel;
    CoalQEdit: TEdit;
    Label37: TLabel;
    AirExpendCoeffEdit: TEdit;
    Label35: TLabel;
    CoalTmEdit: TEdit;
    Label48: TLabel;
    EnvirTempEdit: TEdit;
    Label49: TLabel;
    HelpAirTempEdit: TEdit;
    Label50: TLabel;
    BOKButton: TBitBtn;
    BCancelButton: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BOKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BurningForm: TBurningForm;

implementation

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

procedure TBurningForm.FormCreate(Sender: TObject);
begin
          //将气体成分中的煤气干成分调入燃烧优化
  CoalCO2Edit.Text :=FloatToStr(SESystemElement.co2_coal[1]);
  CoalCOEdit.Text:=FloatToStr(SESystemElement.co_coal[1]);
  CoalN2Edit.Text:=FloatToStr(SESystemElement.n2_coal[1]);
  CoalO2Edit.Text:=FloatToStr(SESystemElement.o2_coal[1]);
  CoalH2Edit.Text:=FloatToStr(SESystemElement.h2_coal[1]);
  CoalCH4Edit.Text:=FloatToStr(SESystemElement.ch4_coal[1]);
  CoalCmHnEdit.Text:=FloatToStr(SESystemElement.cmhn_coal[1]);
  CoalTmEdit.Text:=FloatToStr(SESystemElement.tm_coal);

  AirExpendCoeffEdit.text:=FloatToStr(SESystemElement.process_heatcompute[2]);
  
  CoalQEdit.Text:=FloatToStr(SESystemElement.q1_inheat[1]);   //煤气流量
  HotAirQEdit.Text:=FloatToStr(SESystemElement.q1_inheat[2]);     //热风流量
  BurnTimeEdit.Text:=FloatToStr(SESystemElement.q1_inheat[3]);     //燃烧期
  BlowTimeEdit.Text:=FloatToStr(SESystemElement.q1_inheat[4]);    //送风期
  CoolAirTempEdit.Text:=FloatToStr(SESystemElement.q4_inheat[1]);  //冷风温度
  EnvirTempEdit.Text:=FloatToStr(SESystemElement.q2_inheat[1]);    //环境温度
  HelpAirTempEdit.Text:=FloatToStr(SESystemElement.q3_inheat[1]);    //助燃空气温度
end;

procedure TBurningForm.BOKButtonClick(Sender: TObject);
var     WaterofAir,Qdws,AirQ,Log,Los,a,te,tk,tm,Qr,Qk,V0,fm,ty:Real;
begin
  SESystemElement.co2_coal[1]:=StrToFloat(CoalCO2Edit.Text);
  SESystemElement.co_coal[1]:=StrToFloat(CoalCOEdit.Text);
  SESystemElement.n2_coal[1]:=StrToFloat(CoalN2Edit.Text);
  SESystemElement.o2_coal[1]:=StrToFloat( CoalO2Edit.Text);
  SESystemElement.h2_coal[1]:=StrToFloat(CoalH2Edit.Text);
  SESystemElement.ch4_coal[1]:=StrToFloat(CoalCH4Edit.Text);
  SESystemElement.cmhn_coal[1]:=StrToFloat(CoalCmHnEdit.Text);
  SESystemElement.tm_coal:=StrToFloat(CoalTmEdit.Text);
  tm:=SESystemElement.tm_coal;

  ImproveForm.ImproveMemo.Lines.Add('煤气成分(%,温度:℃)');
  ImproveForm.ImproveMemo.Lines.Add('干成分');
  ImproveForm.ImproveMemo.Lines.Add('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));

  SESystemElement.q1_inheat[1]:=StrToFloat(CoalQEdit.Text);   //煤气流量
  SESystemElement.q1_inheat[2]:=StrToFloat(HotAirQEdit.Text);     //热风流量
  SESystemElement.q1_inheat[3]:=StrToFloat(BurnTimeEdit.Text);     //燃烧期
  SESystemElement.q1_inheat[4]:=StrToFloat(BlowTimeEdit.Text);    //送风期

  ImproveForm.ImproveMemo.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]));

  
  SESystemElement.q2_inheat[1]:=StrToFloat(EnvirTempEdit.Text);    //环境温度
  te:= SESystemElement.q2_inheat[1];
  SESystemElement.q3_inheat[1]:=StrToFloat( HelpAirTempEdit.Text);    //助燃空气温度
  tk:=SESystemElement.q3_inheat[1];
  SESystemElement.q4_inheat[1]:=StrToFloat(CoolAirTempEdit.Text);  //冷风温度

  ImproveForm.ImproveMemo.Lines.Add('环境温度Te:'+FloatToStr(SESystemElement.q2_inheat[1])+','+
                                    '助燃空气温度Tk:'+FloatToStr(SESystemElement.q3_inheat[1])+','+
                                    '冷风温度Tf1:'+FloatToStr(SESystemElement.q4_inheat[1]));

  SESystemElement.process_heatcompute[2]:=StrToFloat(AirExpendCoeffEdit.Text);
  a:= SESystemElement.process_heatcompute[2];
  ImproveForm.ImproveMemo.Lines.Add('空气消耗系数:'+FloatToStr(SESystemElement.process_heatcompute[2]));

  
end;

end.