📄 balance.pas

📁 《SESyetem节能模拟系统(版本:1.01a Final)》为自由软件,对热风炉进行热平衡计算、传热模拟、燃烧优化、操作优化等设计。本软件用Dephi6.0编写
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
                                        'CmHn:'+FloatToStr(SESystemElement.cmhn_coal[2])+','+
                                        'H2O:'+FloatToStr(SESystemElement.h2o_coal));
                                        
    BalanceForm.BalanceMemo.Lines.Add('烟气成分%');
    BalanceForm.BalanceMemo.Lines.Add('干成分');
    BalanceForm.BalanceMemo.Lines.Add(  'CO2:'+FloatToStr(SESystemElement.co2_fume[1])+','+
                                        'CO:'+FloatToStr(SESystemElement.co_fume[1])+','+
                                        'N2:'+FloatToStr(SESystemElement.n2_fume[1])+','+
                                        'O2:'+FloatToStr(SESystemElement.o2_fume[1])+','+
                                        'CH4:'+FloatToStr(SESystemElement.ch4_fume[1]));
    BalanceForm.BalanceMemo.Lines.Add('湿成分');
    BalanceForm.BalanceMemo.Lines.Add( 'CO2:'+FloatToStr(SESystemElement.co2_fume[2])+','+
                                        'CO:'+FloatToStr(SESystemElement.co_fume[2])+','+
                                        'N2:'+FloatToStr(SESystemElement.n2_fume[2])+','+
                                        'O2:'+FloatToStr(SESystemElement.o2_fume[2])+','+
                                        'CH4:'+FloatToStr(SESystemElement.ch4_fume[2])+','+
                                        'H2O:'+FloatToStr(SESystemElement.h2o_fume));

       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]));

       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]));

       BalanceForm.BalanceMemo.Lines.Add('干空气中的含水量:'+FloatToStr(SESystemElement.process_heatcompute[1]));
BalanceForm.BalanceMemo.Lines.Add('空气消耗系数:'+FloatToStr(SESystemElement.process_heatcompute[2]));
BalanceForm.BalanceMemo.Lines.Add('(Vn)不/(Vn)完:'+FloatToStr(SESystemElement.process_heatcompute[3]));
BalanceForm.BalanceMemo.Lines.Add('理论干空气量(m^3/m^3):'+FloatToStr( SESystemElement.process_heatcompute[4]));
BalanceForm.BalanceMemo.Lines.Add('理论湿烟气量(m^3/m^3):'+FloatToStr(SESystemElement.process_heatcompute[5]));
BalanceForm.BalanceMemo.Lines.Add('实际湿烟气量(m^3/m^3):'+FloatToStr(SESystemElement.process_heatcompute[6]));
BalanceMemo.Lines.Add('低位发热量(kcal/m3):'+FloatToStr(SESystemElement.process_heatcompute[7]));
BalanceMemo.Lines.Add('煤气用量(m^3/m^3):'+FloatToStr(SESystemElement.process_heatcompute[8])); 
BalanceMemo.Lines.Add('烟气量(m^3/m^3):'+FloatToStr(SESystemElement.process_heatcompute[9])); 
BalanceMemo.Lines.Add('理论湿空气量(kcal/m3):'+FloatToStr(SESystemElement.process_heatcompute[10]));

BalanceMemo.Lines.Add('燃料的化学热低位发热量(kcal/m3):'+FloatToStr(SESystemElement.q1_inheat[5]));
BalanceMemo.Lines.Add('燃料的物理热量(kcal/m3):'+FloatToStr(SESystemElement.q2_inheat[4]));
BalanceMemo.Lines.Add('助燃空气的物理热(kcal/m3):'+FloatToStr(SESystemElement.q3_inheat[4]));
BalanceMemo.Lines.Add('冷风带入的热量(kcal/m3):'+FloatToStr(SESystemElement.q4_inheat[4]));

BalanceMemo.Lines.Add('热风炉带出的热量(kcal/m3):'+FloatToStr(SESystemElement.q1_outheat[4]));
BalanceMemo.Lines.Add('烟气带出的物理热量(kcal/m3):'+FloatToStr(SESystemElement.q2_outheat[4]));
BalanceMemo.Lines.Add('化学不完全燃烧热损失的热量(kcal/m3):'+FloatToStr(SESystemElement.q3_outheat[1]));
BalanceMemo.Lines.Add('煤气机械水的吸热量(kcal/m3):'+FloatToStr(SESystemElement.q4_outheat[3]));
BalanceMemo.Lines.Add('冷却水的吸热量(kcal/m3):'+FloatToStr(SESystemElement.q5_outheat[6]));
BalanceMemo.Lines.Add('冷风管道表面散热量(kcal/m3):'+FloatToStr(SESystemElement.q6_outheat[5]));
BalanceMemo.Lines.Add('炉顶表面散热量(kcal/m3):'+FloatToStr(SESystemElement.q7_1_outheat[4]));
BalanceMemo.Lines.Add('炉墙表面散热量(kcal/m3):'+FloatToStr(SESystemElement.q7_2_outheat[4]));
BalanceMemo.Lines.Add('竖管散热量(kcal/m3):'+FloatToStr(SESystemElement.q8_outheat[4]));
BalanceMemo.Lines.Add('热风管道表面散热量(kcal/m3):'+FloatToStr(SESystemElement.q9_outheat[4]));
BalanceMemo.Lines.Add('烟道表面散热量(kcal/m3):'+FloatToStr(SESystemElement.q10_outheat[5]));
BalanceMemo.Lines.Add('预热装置表面散热量(kcal/m3):'+FloatToStr(SESystemElement.q11_outheat[4]));


BalanceMemo.Lines.Add('收入热量(kcal/m3):'+FloatToStr(SESystemElement.Result_heatcompute[1]));
BalanceMemo.Lines.Add('支出热量(kcal/m3):'+FloatToStr(SESystemElement.Result_heatcompute[2]));
BalanceMemo.Lines.Add('差值(kcal/m3):'+FloatToStr(SESystemElement.Result_heatcompute[3]));
BalanceMemo.Lines.Add('各种表面散热之和(kcal/m3):'+FloatToStr(SESystemElement.Result_heatcompute[4]));
BalanceMemo.Lines.Add('热风炉本体热效率%:'+FloatToStr(SESystemElement.Result_heatcompute[5]));
BalanceMemo.Lines.Add('热风炉系统及全系统的热效率%:'+FloatToStr(SESystemElement.Result_heatcompute[6]));
BalanceMemo.Lines.Add('理论燃烧温度(℃):'+FloatToStr(SESystemElement.Result_heatcompute[7]));




     end;

end;

procedure TBalanceForm.BalanceSaveClick(Sender: TObject);
begin
     BalanceSaveDialog.Title:='数据文件';
     BalanceSaveDialog.Filter:='数据文件(*.hsd,*.txt)|*.hsd;*.txt';
     BalanceSaveDialog.FileName:='';
     if BalanceSaveDialog.Execute then
         with BalanceSaveDialog do
            begin
                 FileName:=LeftStr(FileName,Length(FileName)-4);
                 WriteSESystemFile(FileName+'.hsd');
                 BalanceMemo.Lines.Add('日期:'+DateToStr(Date)+',时间:'+TimeToStr(Time));
                 BalanceMemo.Lines.Add('保存文件'+FileName+'.hsd'+'...');
                 BalanceMemo.Lines.Add('保存文件'+FileName+'.txt'+'...');
                 BalanceMemo.Lines.SaveToFile (FileName+'.txt');
            end;
end;

procedure TBalanceForm.BalanceSaveasClick(Sender: TObject); 

begin
     BalanceSaveDialog.Title:='数据文件';
     BalanceSaveDialog.Filter:='Microsoft Excel 逗号分隔值文件(*.csv)|*.csv';
     BalanceSaveDialog.FileName:='';
     if BalanceSaveDialog.Execute then
         with BalanceSaveDialog do
            begin
                 FileName:=LeftStr(FileName,Length(FileName)-4);
                 WriteCsvFile(FileName+'.csv');
                 BalanceMemo.Lines.Add('日期:'+DateToStr(Date)+',时间:'+TimeToStr(Time));
                 BalanceMemo.Lines.Add('另保存文件'+FileName+'.csv'+'...');
            end;

end;

procedure TBalanceForm.InHeatDisplayClick(Sender: TObject);
begin
    //SESystemMDIForm.CommandRichEdit.Lines.Add('命令:气体成分GAS'+chr(13));
    DisplayBalanceForm:=TDisplayBalanceForm.Create(Self);
    DisplayBalanceForm.DisplayBalanceSeries.Clear;
    DisplayBalanceForm.DisplayBalanceChart.Title.Text.Add('收入热比例');
    DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q1_inheat[6],'Q1s',clRed);
    DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q2_inheat[5],'Q2s',clWhite);
    DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q3_inheat[5],'Q3s',clGreen);
    DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q4_inheat[5],'Q4s',clBlue);
    DisplayBalanceForm.ShowModal;
end;

procedure TBalanceForm.OutHeatDisplayClick(Sender: TObject);
begin
    //SESystemMDIForm.CommandRichEdit.Lines.Add('命令:气体成分GAS'+chr(13));
   DisplayBalanceForm:=TDisplayBalanceForm.Create(Self);
   DisplayBalanceForm.DisplayBalanceSeries.Clear;
   DisplayBalanceForm.DisplayBalanceChart.Title.Text.Add('支出热比例');
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q1_outheat[5],'Q1z',clRed);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q2_outheat[5],'Q2z',clWhite);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q3_outheat[2],'Q3z',clNavy);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q4_outheat[4],'Q4z',clBlue);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q5_outheat[7],'Q5z',clGreen);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q6_outheat[6],'Q6z',clOlive);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q7_outheat[2],'Q7z',clBlack);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q8_outheat[5],'Q8z',clSilver);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q9_outheat[5],'Q9z',clAqua);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q10_outheat[6],'Q10z',clPurple);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.q11_outheat[5],'Q11z',clLime);
   DisplayBalanceForm.DisplayBalanceSeries.AddPie(SESystemElement.Result_heatcompute[3]/100,'Qc',clYellow);
   DisplayBalanceForm.ShowModal;
end;

end.
上一页 1 23
💿 文件大小 1286 K
👤 上传用户 sy780415
📂 所属分类其他行业
🏷️ 相关标签

#SESyetem #Final #Dephi #1.01
⌨️ 快捷键说明

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