📄 analog.pas

📁 《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热风炉进行热平衡计算、传热模拟、燃烧优化、操作优化等设计。本软件用Dephi6.0编写
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23


    DisplayAnalogForm.DisplayLineSeries_1.Title:='1/6τ';
    DisplayAnalogForm.DisplayLineSeries_2.Title:='1/3τ';
    DisplayAnalogForm.DisplayLineSeries_3.Title:='1/2τ';
    DisplayAnalogForm.DisplayLineSeries_4.Title:='2/3τ';
    DisplayAnalogForm.DisplayLineSeries_5.Title:='5/6τ';
    DisplayAnalogForm.DisplayLineSeries_6.Title:='1τ';
    DisplayAnalogForm.DisplayAnalogChart.LeftAxis.Title.Caption:='温度';
    DisplayAnalogForm.DisplayAnalogChart.BottomAxis.Title.Caption:='高度';
		;
    DisplayAnalogForm.DisplayAnalogChart.Title.Text.Add('燃烧期不同时间蓄热体温度随高度分布曲线');

    Hx:=SESystemElement.structure[2];


     for i:=1 to MaxPosition do
        begin
           DisplayAnalogForm.DisplayLineSeries_1.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,2]);
           DisplayAnalogForm.DisplayLineSeries_2.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,10]);
           DisplayAnalogForm.DisplayLineSeries_3.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,20]);
           DisplayAnalogForm.DisplayLineSeries_4.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,30]);
           DisplayAnalogForm.DisplayLineSeries_5.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,35]);
           DisplayAnalogForm.DisplayLineSeries_6.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,MaxPosition-1]);
           DisplayAnalogForm.DisplayAnalogChart.Update;
   end;  
    DisplayAnalogForm.ShowModal;
end;

procedure TAnalogForm.AirByTimeClick(Sender: TObject);
var i,j:Integer;
    Tf:Real;
begin
    DisplayAnalogForm:=TDisplayAnalogForm.Create(Self);
    DisplayAnalogForm.DisplayLineSeries_1.Clear;
    DisplayAnalogForm.DisplayLineSeries_2.Clear;
    DisplayAnalogForm.DisplayLineSeries_3.Clear;
    DisplayAnalogForm.DisplayLineSeries_4.Clear;
    DisplayAnalogForm.DisplayLineSeries_5.Clear;
    DisplayAnalogForm.DisplayLineSeries_6.Clear;

    DisplayAnalogForm.DisplayLineSeries_1.Title:='1/6H';
    DisplayAnalogForm.DisplayLineSeries_2.Title:='1/3H';
    DisplayAnalogForm.DisplayLineSeries_3.Title:='1/2H';
    DisplayAnalogForm.DisplayLineSeries_4.Title:='2/3H';
    DisplayAnalogForm.DisplayLineSeries_5.Title:='5/6H';
    DisplayAnalogForm.DisplayLineSeries_5.Title:='1H';
    DisplayAnalogForm.DisplayAnalogChart.LeftAxis.Title.Caption:='温度';
    DisplayAnalogForm.DisplayAnalogChart.BottomAxis.Title.Caption:='时间';

    DisplayAnalogForm.DisplayAnalogChart.Title.Text.Add('送风期不同高度热风温度随时间分布曲线');

    Tf:=SESystemElement.q1_inheat[4];
    for j:=1 to MaxTime  do
        begin
           DisplayAnalogForm.DisplayLineSeries_1.AddXY(j*(Tf)/MaxTime,AnalogElement.TempAir[1,j]);
           DisplayAnalogForm.DisplayLineSeries_2.AddXY(j*(Tf)/MaxTime,AnalogElement.TempAir[10,j]);
           DisplayAnalogForm.DisplayLineSeries_3.AddXY(j*(Tf)/MaxTime,AnalogElement.TempAir[25,j]);
           DisplayAnalogForm.DisplayLineSeries_4.AddXY(j*(Tf)/MaxTime,AnalogElement.TempAir[30,j]);
           DisplayAnalogForm.DisplayLineSeries_5.AddXY(j*(Tf)/MaxTime,AnalogElement.TempAir[35,j]);
           DisplayAnalogForm.DisplayLineSeries_6.AddXY(j*(Tf)/MaxTime,AnalogElement.TempAir[MaxPosition,j]);
           DisplayAnalogForm.DisplayAnalogChart.Update;
        end;

    DisplayAnalogForm.ShowModal;

end;

procedure TAnalogForm.AirByHeightClick(Sender: TObject);
var i,j:Integer;
    Hx:Real;
begin
    DisplayAnalogForm:=TDisplayAnalogForm.Create(Self);
    DisplayAnalogForm.DisplayLineSeries_1.Clear;
    DisplayAnalogForm.DisplayLineSeries_2.Clear;
    DisplayAnalogForm.DisplayLineSeries_3.Clear;
    DisplayAnalogForm.DisplayLineSeries_4.Clear;
    DisplayAnalogForm.DisplayLineSeries_5.Clear;
    DisplayAnalogForm.DisplayLineSeries_6.Clear;


    DisplayAnalogForm.DisplayLineSeries_1.Title:='1/6τ';
    DisplayAnalogForm.DisplayLineSeries_2.Title:='1/3τ';
    DisplayAnalogForm.DisplayLineSeries_3.Title:='1/2τ';
    DisplayAnalogForm.DisplayLineSeries_4.Title:='2/3τ';
    DisplayAnalogForm.DisplayLineSeries_5.Title:='5/6τ';
    DisplayAnalogForm.DisplayLineSeries_6.Title:='1τ';
    DisplayAnalogForm.DisplayAnalogChart.LeftAxis.Title.Caption:='温度';
    DisplayAnalogForm.DisplayAnalogChart.BottomAxis.Title.Caption:='高度';
		;
    DisplayAnalogForm.DisplayAnalogChart.Title.Text.Add('送风期不同时间烟气温度随高度分布曲线');

    Hx:=SESystemElement.structure[2];


     for i:=1 to MaxPosition do
        begin
           DisplayAnalogForm.DisplayLineSeries_1.AddXY(i*Hx/MaxPosition,AnalogElement.TempAir[i,1]);
           DisplayAnalogForm.DisplayLineSeries_2.AddXY(i*Hx/MaxPosition,AnalogElement.TempAir[i,10]);
           DisplayAnalogForm.DisplayLineSeries_3.AddXY(i*Hx/MaxPosition,AnalogElement.TempAir[i,15]);
           DisplayAnalogForm.DisplayLineSeries_4.AddXY(i*Hx/MaxPosition,AnalogElement.TempAir[i,20]);
           DisplayAnalogForm.DisplayLineSeries_5.AddXY(i*Hx/MaxPosition,AnalogElement.TempAir[i,30]);
           DisplayAnalogForm.DisplayLineSeries_6.AddXY(i*Hx/MaxPosition,AnalogElement.TempAir[i,MaxPosition]);
           DisplayAnalogForm.DisplayAnalogChart.Update;
   end;  
    DisplayAnalogForm.ShowModal;
end;

procedure TAnalogForm.BlowRegeneratorByTimeClick(Sender: TObject);
var i,j:Integer;
    Tf:Real;
begin
    DisplayAnalogForm:=TDisplayAnalogForm.Create(Self);
    DisplayAnalogForm.DisplayLineSeries_1.Clear;
    DisplayAnalogForm.DisplayLineSeries_2.Clear;
    DisplayAnalogForm.DisplayLineSeries_3.Clear;
    DisplayAnalogForm.DisplayLineSeries_4.Clear;
    DisplayAnalogForm.DisplayLineSeries_5.Clear;
    DisplayAnalogForm.DisplayLineSeries_6.Clear;

    DisplayAnalogForm.DisplayLineSeries_1.Title:='1/6H';
    DisplayAnalogForm.DisplayLineSeries_2.Title:='1/3H';
    DisplayAnalogForm.DisplayLineSeries_3.Title:='1/2H';
    DisplayAnalogForm.DisplayLineSeries_4.Title:='2/3H';
    DisplayAnalogForm.DisplayLineSeries_5.Title:='5/6H';
    DisplayAnalogForm.DisplayLineSeries_5.Title:='1H';
    DisplayAnalogForm.DisplayAnalogChart.LeftAxis.Title.Caption:='温度';
    DisplayAnalogForm.DisplayAnalogChart.BottomAxis.Title.Caption:='时间';
		;
    DisplayAnalogForm.DisplayAnalogChart.Title.Text.Add('送风期不同高度蓄热体温度随时间分布曲线');

    Tf:=SESystemElement.q1_inheat[4];
    for j:=1 to MaxTime  do
        begin
           DisplayAnalogForm.DisplayLineSeries_1.AddXY(j*(Tf)/MaxTime,AnalogElement.TempRegenerator[2,1,j]);
           DisplayAnalogForm.DisplayLineSeries_2.AddXY(j*(Tf)/MaxTime,AnalogElement.TempRegenerator[2,10,j]);
           DisplayAnalogForm.DisplayLineSeries_3.AddXY(j*(Tf)/MaxTime,AnalogElement.TempRegenerator[2,15,j]);
           DisplayAnalogForm.DisplayLineSeries_4.AddXY(j*(Tf)/MaxTime,AnalogElement.TempRegenerator[2,20,j]);
           DisplayAnalogForm.DisplayLineSeries_5.AddXY(j*(Tf)/MaxTime,AnalogElement.TempRegenerator[2,30,j]);
           DisplayAnalogForm.DisplayLineSeries_6.AddXY(j*(Tf)/MaxTime,AnalogElement.TempRegenerator[2,MaxPosition,j]);
           DisplayAnalogForm.DisplayAnalogChart.Update;
        end;

    DisplayAnalogForm.ShowModal;
end;

procedure TAnalogForm.BlowRegeneratorByHeightClick(Sender: TObject);
var i,j:Integer;
    Hx:Real;
begin
     DisplayAnalogForm:=TDisplayAnalogForm.Create(Self);
    DisplayAnalogForm.DisplayLineSeries_1.Clear;
    DisplayAnalogForm.DisplayLineSeries_2.Clear;
    DisplayAnalogForm.DisplayLineSeries_3.Clear;
    DisplayAnalogForm.DisplayLineSeries_4.Clear;
    DisplayAnalogForm.DisplayLineSeries_5.Clear;
    DisplayAnalogForm.DisplayLineSeries_6.Clear;


    DisplayAnalogForm.DisplayLineSeries_1.Title:='1/6τ';
    DisplayAnalogForm.DisplayLineSeries_2.Title:='1/3τ';
    DisplayAnalogForm.DisplayLineSeries_3.Title:='1/2τ';
    DisplayAnalogForm.DisplayLineSeries_4.Title:='2/3τ';
    DisplayAnalogForm.DisplayLineSeries_5.Title:='5/6τ';
    DisplayAnalogForm.DisplayLineSeries_6.Title:='1τ';
    DisplayAnalogForm.DisplayAnalogChart.LeftAxis.Title.Caption:='温度';
    DisplayAnalogForm.DisplayAnalogChart.BottomAxis.Title.Caption:='高度';
		;
    DisplayAnalogForm.DisplayAnalogChart.Title.Text.Add('送风期不同时间蓄热体温度随高度分布曲线');

    Hx:=SESystemElement.structure[2];


     for i:=1 to MaxPosition do
        begin
           DisplayAnalogForm.DisplayLineSeries_1.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,2]);
           DisplayAnalogForm.DisplayLineSeries_2.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,10]);
           DisplayAnalogForm.DisplayLineSeries_3.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,20]);
           DisplayAnalogForm.DisplayLineSeries_4.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,30]);
           DisplayAnalogForm.DisplayLineSeries_5.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,35]);
           DisplayAnalogForm.DisplayLineSeries_6.AddXY(i*Hx/MaxPosition,AnalogElement.TempRegenerator[1,i,MaxPosition-1]);
           DisplayAnalogForm.DisplayAnalogChart.Update;
   end;  
    DisplayAnalogForm.ShowModal;
end;

procedure TAnalogForm.AnalogOpenHsdAndHsaFileClick(Sender: TObject);
begin
        AnalogOpenDialog.Title:='数据文件';
     AnalogOpenDialog.Filter:='数据文件(*.hsd,*.hsa)|*.hsd;*.hsa';
     AnalogOpenDialog.FileName:='';
if AnalogOpenDialog.Execute then
  with AnalogOpenDialog do
     begin
       FileName:=LeftStr(FileName,Length(FileName)-4);
       ReadSESystemFile(FileName+'.hsd');
       ReadAnalogFile(FileName+'.hsa');
       AnalogMemo.Lines.Add('日期:'+DateToStr(Date)+',时间:'+TimeToStr(Time));
       AnalogMemo.Lines.Add('打开文件'+FileName+'.hsd'+'...');
       AnalogMemo.Lines.Add('打开文件'+FileName+'.hsa'+'...');
       AnalogForm.AnalogMemo.Lines.Add('蓄热体结构');
       AnalogForm.AnalogMemo.Lines.Add('直径(m):'+FloatToStr(SESystemElement.structure[1])+','+
                                     '高度(m):'+FloatToStr(SESystemElement.structure[2])+','+
                                     '总蓄热面积(m^2):'+FloatToStr(SESystemElement.structure[3])+','+
                                     '蓄热体重量(kg):'+FloatToStr(SESystemElement.structure[4]));

     AnalogForm.AnalogMemo.Lines.Add('格子砖参数');
     AnalogForm.AnalogMemo.Lines.Add('上段,格孔直径(m):'+FloatToStr(SESystemElement.grille[1][1])+','+
                                     '活面积(m^2/m^2):'+FloatToStr(SESystemElement.grille[1][2])+','+
                                     '当量厚度(m):'+FloatToStr(SESystemElement.grille[1][3])+','+
                                     '格砖厚度(m):'+FloatToStr(SESystemElement.grille[1][4]));
     AnalogForm.AnalogMemo.Lines.Add('中段,格孔直径(m):'+FloatToStr(SESystemElement.grille[2][1])+','+
                                     '活面积(m^2/m^2):'+FloatToStr(SESystemElement.grille[2][2])+','+
                                     '当量厚度(m):'+FloatToStr(SESystemElement.grille[2][3])+','+
                                     '格砖厚度(m):'+FloatToStr(SESystemElement.grille[2][4]));
     AnalogForm.AnalogMemo.Lines.Add('下段,格孔直径(m):'+FloatToStr(SESystemElement.grille[3][1])+','+
                                     '活面积(m^2/m^2):'+FloatToStr(SESystemElement.grille[3][2])+','+
                                     '当量厚度(m):'+FloatToStr(SESystemElement.grille[3][3])+','+
                                     '格砖厚度(m):'+FloatToStr(SESystemElement.grille[3][4]));
     AnalogForm.AnalogMemo.Lines.Add('风量参数');
     AnalogForm.AnalogMemo.Lines.Add('初始无因次风量系数:'+FloatToStr(SESystemElement.wind));
     end;
end;

end.
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -