固体燃料理论燃烧温度计算2017

固体燃料理论燃烧温度计算程序

一、 固体燃料理论燃烧温度计算的数学方法

理论燃烧温度计算公式：

空

产分

燃空低理）（c c 0n 0L L V Q Q Q Q t -+-++=

其中，

低Q 为燃料的低位发热量； 空Q 为空气带入的物理热； 燃Q 为燃料带入的物理热；

分Q 为燃烧产物中某些气体在高温下热分解反应消耗的热量；

0V 为理论燃烧产物生成量； 产c 为产物的平均比热；

n L 为实际空气消耗量； 0L 为理论空气需要量； 空c 为空气的比热。

燃料低位发热量计算公式：

]6262624681[187.4W S O H C Q -+-+=低

空气带入物理热计算公式：

空空空t n ⋅⋅=c L Q

实际空气消耗量计算公式：

0n n g 00124.01L L ⋅+=）（

其中，g 为1立方米干气体中水分含量。

2010)33.333.367.2689.8(-⨯-++=O S H C L

燃料带入的物理热计算公式：

燃燃燃t c ⋅=Q

理论燃烧产物生成量计算公式：

0079.0)28

1823212(224.0L N

W H S C V +++++=

分解热：

未未分)(f 10800)(f 126002222O H O H CO CO V V Q ⋅+⋅=

其中，2f CO 、O H 2f 分别为二氧化碳和水的分解度，未)(2CO V 、未)(2O H V 分别为燃烧产物中未分解的二氧化碳和水的体积。由于分解的二氧化碳和水很少，故未)(2CO V 、未)(2O H V 按完全燃烧产物计算：

12

224

.0)(22C V V CO CO ==未 n gL 00124.0)18

2(

224.0)(22++==W

H V V O H O H 未 二、固体理论燃烧温度计算程序

图1 程序界面

Option Explicit

Private Sub cmdExit_Click() End End Sub

Private Sub cmdJisuan_Click() Dim sQd As Single

Dim sC As Single

Dim sH As Single

Dim sO As Single

Dim sS As Single

Dim sN As Single

Dim sW As Single

sC = txtC.Text

sH = txtH.Text

sO = txtO.Text

sS = txtS.Text

sN = txtN.Text

sW = txtW.Text

sQd = 4.187 * (81 * sC + 246 * sH - 26 * sO + 26 * sS - 5 * sW)

Dim sQk As Single

Dim sLn As Single

Dim sTk As Single

Dim sCk As Single

Dim sG As Single

Dim sL0 As Single

Dim sNn As Single

sN = txtAirxs.Text

sG = txtAirwater.Text

sL0 = 0.01 * (8.89 * sC + 26.67 * sH + 3.33 * sS + 3.33 * sO) sLn = sNn * sL0 * (1 + 0.00124 * sG)

If txtZrairtem.Text >= 0 And txtZrairtem.Text <= 400 Then sCk = 1.3

ElseIf txtZrairtem.Text > 400 And txtZrairtem.Text <= 700 Then sCk = 1.34

ElseIf txtZrairtem.Text > 700 And txtZrairtem.Text <= 1000 Then sCk = 1.38

ElseIf txtZrairtem.Text > 1000 And txtZrairtem.Text <= 1200 Then sCk = 1.42

ElseIf txtZrairtem.Text > 1200 And txtZrairtem.Text <= 1800 Then

sCk = 1.47

ElseIf txtZrairtem.Text > 1800 And txtZrairtem.Text <= 2100 Then sCk = 1.51

End If

sQk = sLn * sCk * sTk

Dim sCr As Single

Dim sTr As Single

Dim sQr As Single

sCr = txtRlbr.Text

sTr = txtRltem.Text

sQr = sCr * sTr

Dim sQf As Single

Dim sVco2 As Single

Dim sVh2o As Single

Dim sFco2 As Single

Dim sFh2o As Single

sFco2 = txtCo2f.Text

sFh2o = txtH2of.Text

sVco2 = 0.224 * sC / 12

sVh2o = 0.224 * (0.5 * sH + sW / 18) + 0.00124 * sG * sLn

sQf = 12600 * sFco2 * sVco2 + 10500 * sFh2o * sVh2o

Dim sV0 As Single

sV0 = 0.244 * (sC / 12 + sS / 32 + sH / 2 + sW / 18 + sN / 28) + 0.79 * sL0 Dim sCc As Single

Dim sCkc As Single

If cmbRlzl.ListIndex = 0 Or cmbRlzl.ListIndex = 1 Then

If cmbLlrstem.ListIndex = 0 Then

sCc = 1.38

sCkc = 1.3

ElseIf cmbLlrstem.ListIndex = 1 Then

sCc = 1.42