improve.pas

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

unit Improve;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls,StrUtils, StdCtrls;

type
  TImproveForm = class(TForm)
    ImproveMenu: TMainMenu;
    ImproveFile: TMenuItem;
    ImproveSave: TMenuItem;
    ImproveClose: TMenuItem;
    Improve: TMenuItem;
    OperationSet: TMenuItem;
    BurningSet: TMenuItem;
    ImproveOpenHsdFile: TMenuItem;
    ImproveOpenDialog: TOpenDialog;
    ImproveSaveDialog: TSaveDialog;
    ImproveMemo: TMemo;
    OperationImprove: TMenuItem;
    BurningImprove: TMenuItem;
    ImproveOpenHsdandHsaFile: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure OperationSetClick(Sender: TObject);
    procedure BurningSetClick(Sender: TObject);
    procedure ImproveOpenHsdFileClick(Sender: TObject);
    procedure ImproveSaveClick(Sender: TObject);
    procedure ImproveCloseClick(Sender: TObject);
    procedure OperationImproveClick(Sender: TObject);
    procedure BurningImproveClick(Sender: TObject);
    procedure ImproveOpenHsdandHsaFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ImproveForm: TImproveForm;

implementation

{$R *.dfm}

uses SESytemMDI, Operation, Burning,Declare;

procedure TImproveForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SESystemMDIForm.CommandRichEdit.Lines.Add('命令:关闭CLOSE'+chr(13));
Action:=caFree;
end;




procedure TImproveForm.OperationSetClick(Sender: TObject);
begin
SESystemMDIForm.CommandRichEdit.Lines.Add('命令:操作优化OPERATION'+chr(13));
OperationForm:=TOperationForm.Create(Self);
OperationForm.ShowModal;
end;

procedure TImproveForm.BurningSetClick(Sender: TObject);
begin
SESystemMDIForm.CommandRichEdit.Lines.Add('命令:燃烧优化BURNING'+chr(13));
BurningForm:=TBurningForm.Create(Self);
BurningForm.ShowModal;
end;

procedure TImproveForm.ImproveOpenHsdFileClick(Sender: TObject);
begin
     ImproveOpenDialog.Title:='数据文件';
     ImproveOpenDialog.Filter:='数据文件(*.hsd,*.hso)|*.hsd;*.hso';
     ImproveOpenDialog.FileName:='';
     if ImproveOpenDialog.Execute then
         with ImproveOpenDialog do
                   begin
                        FileName:=LeftStr(FileName,Length(FileName)-4);
                        ImproveMemo.Lines.Add('日期:'+DateToStr(Date)+',时间:'+TimeToStr(Time));
                        ImproveMemo.Lines.Add('打开文件'+FileName+'.hsd'+'...');
                        //ImproveMemo.Lines.Add('打开文件'+FileName+'.hso'+'...');
                        ReadSESystemFile(FileName+'.hsd');
                        //ReadOperationImproveFile(FileName+'.hso');
                   end;
end;

procedure TImproveForm.ImproveSaveClick(Sender: TObject);
begin
     ImproveSaveDialog.Title:='数据文件';
     ImproveSaveDialog.Filter:='数据文件(*.hsd,*.hso)|*.hsd;*.hso';
     ImproveSaveDialog.FileName:='';
     if ImproveSaveDialog.Execute then
         with ImproveSaveDialog do
            begin
                 FileName:=LeftStr(FileName,Length(FileName)-4);
                 WriteSESystemFile(FileName+'.hsd');
                 WriteOperationImproveFile(FileName+'.hso');
                 ImproveMemo.Lines.Add('日期:'+DateToStr(Date)+',时间:'+TimeToStr(Time));
                 ImproveMemo.Lines.Add('保存文件'+FileName+'.hsd'+'...');
                 ImproveMemo.Lines.Add('保存文件'+FileName+'.hso'+'...');
            end;
end;

procedure TImproveForm.ImproveCloseClick(Sender: TObject);
begin
Close;
end;

procedure TImproveForm.OperationImproveClick(Sender: TObject);
begin
         Messagebox(0,'待编!','注意',MB_ICONEXCLAMATION);
        //ComputeBurnBlowTime;
        //OperateImProve;
end;

procedure TImproveForm.BurningImproveClick(Sender: TObject);
var WaterofAir,Qdws,AirQ,Log,Los,a,te,tk,tm,Qr,Qk,V0,fm,ty:Real;
begin
   a:= SESystemElement.process_heatcompute[2];
   SESystemElement.process_heatcompute[1]:= DryAirtoHumidityAir(SESystemElement.tm_coal);
   WaterofAir:= SESystemElement.process_heatcompute[1];

   SESystemElement.co2_coal[2]:=int((SESystemElement.co2_coal[1]*100/(100+0.124*WaterofAir))*100)/100;
   SESystemElement.co_coal[2]:=int((SESystemElement.co_coal[1]*100/(100+0.124*WaterofAir))*100)/100;
   SESystemElement.n2_coal[2]:=int((SESystemElement.n2_coal[1]*100/(100+0.124*WaterofAir))*100)/100;
   SESystemElement.o2_coal[2]:=int((SESystemElement.o2_coal[1]*100/(100+0.124*WaterofAir))*100)/100;
   SESystemElement.h2_coal[2]:=int((SESystemElement.h2_coal[1]*100/(100+0.124*WaterofAir))*100)/100;
   SESystemElement.ch4_coal[2]:=int((SESystemElement.ch4_coal[1]*100/(100+0.124*WaterofAir))*100)/100;
   SESystemElement.cmhn_coal[2]:=int((SESystemElement.cmhn_coal[1]*100/(100+0.124*WaterofAir))*100)/100;
   SESystemElement.h2o_coal:=int((0.124*WaterofAir*100/(100+0.124*WaterofAir))*100)/100;

   ImproveForm.ImproveMemo.Lines.Add('湿成分');
   ImproveForm.ImproveMemo.Lines.Add(  '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));
   SESystemElement.process_heatcompute[7]:=int((QdwEnergy(SESystemElement.co_coal[2],SESystemElement.h2_coal[2],
                   SESystemElement.ch4_coal[2],0,SESystemElement.cmhn_coal[2],0))*100*4.18)/100;//低位发热量 单位 KJ/m^3
   Qdws:=SESystemElement.process_heatcompute[7];
   ImproveForm.ImproveMemo.Lines.Add('低位发热量(kcal/m3):'+FloatToStr(Qdws));

   Log:=int((TheoryDryAirQ(SESystemElement.h2_coal[2],SESystemElement.co_coal[2],
                        SESystemElement.ch4_coal[2],2,4,SESystemElement.cmhn_coal[2],
                        0,SESystemElement.o2_coal[2]))*100)/100;
   SESystemElement.process_heatcompute[4]:=Log;
   ImproveForm.ImproveMemo.Lines.Add('理论干空气量(m^3/m^3):'+FloatToStr(Log));

   Los:=int((TheoryHumidityAirQ(Log,WaterofAir))*100)/100;       //理论湿空气量
   SESystemElement.process_heatcompute[10]:=Los;
   ImproveForm.ImproveMemo.Lines.Add('理论湿空气量(m3/m3):'+FloatToStr(Los));    

   AirQ:=int(100*SESystemElement.q1_inheat[1]*SESystemElement.process_heatcompute[2]*Los)/100;  //空气量
   ImproveForm.ImproveMemo.Lines.Add('空气量(m3/m3):'+FloatToStr(AirQ));

   Qk:=a*Los*Cpairj(te,tk)*(tk-te); //助燃空气的物理热 单位kJ/m^3
   Qr:=Cpmeij(te,tm)*(tm-te);          //煤气带入的物理热

   V0:=int((TheoryHumidityFumeQ(SESystemElement.co_coal[2],SESystemElement.ch4_coal[2],
                            2,4,SESystemElement.cmhn_coal[2],SESystemElement.co2_coal[2],
                            SESystemElement.h2_coal[2],0,SESystemElement.n2_coal[2],
                            SESystemElement.h2_coal[2],Log))*100)/100;
   SESystemElement.process_heatcompute[5]:=V0;
   ImproveForm.ImproveMemo.Lines.Add('理论湿烟气量(m^3/m^3):'+FloatToStr(SESystemElement.process_heatcompute[5]));

   fm:=V0*Cpyanj(te,300)+(a-1)*Los*Cpairj(te,tk);

   ty:=0.9*(Qdws+Qk+Qr)/fm;
   SESystemElement.Result_heatcompute[7]:=int(100*ty)/100;
   ImproveForm.ImproveMemo.Lines.Add('理论燃烧温度(℃):'+FloatToStr(SESystemElement.Result_heatcompute[7]));
end;

procedure TImproveForm.ImproveOpenHsdandHsaFileClick(Sender: TObject);
begin
     ImproveOpenDialog.Title:='数据文件';
     ImproveOpenDialog.Filter:='数据文件(*.hsd,*.hso)|*.hsd;*.hso';
     ImproveOpenDialog.FileName:='';
     if ImproveOpenDialog.Execute then
         with ImproveOpenDialog do
                   begin
                        FileName:=LeftStr(FileName,Length(FileName)-4);
                        ImproveMemo.Lines.Add('日期:'+DateToStr(Date)+',时间:'+TimeToStr(Time));
                        ImproveMemo.Lines.Add('打开文件'+FileName+'.hsd'+'...');
                        ImproveMemo.Lines.Add('打开文件'+FileName+'.hso'+'...');
                        ReadSESystemFile(FileName+'.hsd');
                        ReadOperationImproveFile(FileName+'.hso');
                   end; 
end;

end.