烟气抬升高度计算

Private Sub Combo1_Click()

    If Combo1.Text = "A" Then

        Text8.Text = -0.019

    ElseIf Combo1.Text = "B" Then

        Text8.Text = -0.018

    ElseIf Combo1.Text = "C" Then

        Text8.Text = -0.016

    ElseIf Combo1.Text = "D" Then

        Text8.Text = -0.0098

    ElseIf Combo1.Text = "E" Then

        Text8.Text = 0

    ElseIf Combo1.Text = "F" Then

        Text8.Text = 0.01

    ElseIf Combo1.Text = "B-C" Then

        Text8.Text = -0.017

    ElseIf Combo1.Text = "C-D" Then

        Text8.Text = -0.014

    ElseIf Combo1.Text = "C-E" Then

        Text8.Text = -0.05

    End If

End Sub



Private Sub Command1_Click()

    烟囱出口风速计算1.Show

End Sub



Private Sub Command2_Click()

    h = Text1.Text

    d = Text2.Text

    qv = Text3.Text

    ts = Text4.Text

    u10 = Text7.Text

    u = Text6.Text

    ta = Text5.Text

    dt = Text8.Text

    pa = Text9.Text / 1 271.3386



    '有风，中性和不稳定条件烟气抬升高度计算



    tsa = ts - ta

    qh = 0.35 pa qv (ts - ta) / ts



    If (u > 1.5 Or u = 1.5) And (Combo1.Text = "A" Or Combo1.Text = "B" Or Combo1.Text = "C" Or Combo1.Text = "D" Or Combo1.Text = "B-C" Or Combo1.Text = "C-D") Then



        '有风，中性和不稳定条件下，且QH>2100kj/s OR QH=2100kj/s 烟气抬升高度计算

        If (qh > 21000 Or qh = 21000) And tsa > 35 And Option1.Value = True Then '乡村

            n0 = 1.427

            n1 = 1 / 3

            n2 = 2 / 3

            hsa = n0 qh ^ n1 h ^ n2 / u

        ElseIf (qh > 21000 Or qh = 21000) And tsa > 35 And Option2.Value = True Then '城市

            n0 = 1.305

            n1 = 1 / 3

            n2 = 2 / 3

            hsa = n0 qh ^ n1 h ^ n2 / u

        ElseIf (qh > 2100 And qh < 21000) And tsa > 35 And Option1.Value = True Then '农村

            n0 = 0.332

            n1 = 3 / 5

            n2 = 2 / 5

            hsa = n0 qh ^ n1 h ^ n2 / u



        ElseIf (qh > 2100 And qh < 21000) And tsa > 35 And Option2.Value = True Then  '城市

            n0 = 0.292

            n1 = 3 / 5

            n2 = 2 / 5

            On Error Resume Next

            hsa = n0 qh ^ n1 h ^ n2 / u



        ElseIf qh = 2100 And tsa > 35 And Option1.Value = True Then  '农村

            n0 = 0.332

            n1 = 3 / 5

            n2 = 2 / 5

            hsa = n0 qh ^ n1 h ^ n2 / u



        ElseIf qh = 2100 And tsa > 35 And Option2.Value = True Then  '城市

            n0 = 0.292

            n1 = 3 / 5

            n2 = 2 / 5

            On Error Resume Next

            hsa = n0 qh ^ n1 h ^ n2 / u



        ElseIf qh > 1700 And qs < 2100 Then



            If Option1.Value = True Then  '农村

                n0 = 0.332

                n1 = 3 / 5

                n2 = 2 / 5

                hsa2 = n0 qh ^ n1 h ^ n2 / u



            ElseIf Option2.Value = True Then '城市

                n0 = 0.292

                n1 = 3 / 5

                n2 = 2 / 5

                hsa2 = n0 qh ^ n1 h ^ n2 / u

            Else

            End If

            On Error Resume Next

            vs = qv / (3.1415926 (d / 2) ^ 2)

            On Error Resume Next

            hsa1 = 2 (1.5 vs d + 0.01 qh) / u - 0.048 (qh - 1700) / u

            hsa = hsa1 + (hsa2 - hsa1) (qh - 1700) / 400



        ElseIf (qh < 1700 Or qh = 1700) Or tsa < 35 Then

            vs = qv / (3.1415926 (d / 2) ^ 2)

            hsa = 2 (1.5 vs d + 0.01 qh) / u

        Else

        End If



        On Error Resume Next

        '有风,稳定条件下,烟气抬升高度计算



    ElseIf (u > 1.5 Or u = 1.5) And (Combo1.Text = "D-E" Or Combo1.Text = "E" Or Combo1.Text = "F") Then

        On Error Resume Next

        hsa = qh ^ (1 / 3) (dt + 0.0098) ^ (-1 / 3) u ^ (-1 / 3)



        '静风和小风,烟气抬升高度计算



    ElseIf u < 1.5 Then

        On Error Resume Next

        hsa = 5.5 qh ^ (1 / 4) (dt + 0.0098) ^ (-3 / 8)

    Else

    End If



    If Option1.Value = True Then

        B1 = Option1.Caption

    ElseIf Option2.Value = True Then

        B1 = Option2.Caption

    Else

    End If



    If qh < 2100 Or tsa < 35 Then

        n0 = 0

        n1 = 0

        n2 = 0

    ElseIf u < 1.5 Then

        n0 = 0

        n1 = 0

        n2 = 0

    End If



    hh = h + hsa

    hsa = Format(hsa, "####.####")

    hh = Format(hh, "####.####")

    qh = Format(qh, "####.####")

    vs = Format(vs, "####.####")

    A1 = "项目所在位置:" & B1 & vbLf

    a2 = "参数:" & vbLf

    a3 = "    烟囱几何高度 H =" & h & "(m)" & vbLf

    a4 = "    烟囱出口内直径 d =" & d & "(m)" & vbLf

    a5 = "    烟囱烟气排放率 Qv = " & qv & "(m^3/s)" & vbLf

    a6 = "    烟囱出口烟气温度 Ts = " & ts & "(℃)" & vbLf

    a7 = "    地面10m处平均风速 U10 =" & u10 & "(m/s)" & vbLf

    a8 = "    烟囱出口处平均风速 U = " & u & "(m/s)" & vbLf

    a9 = "    稳定度等级 = " & Combo1.Text & vbLf

    a10 = "    烟囱出口处的大气温度 Ta = " & ta & "(℃)" & vbLf

    a11 = "    大气比标压 Pa = " & Text9.Text & "(个)标压" & vbLf

    a12 = "    烟囱几何高度以上的大气温度梯度 dTdz = " & dt & "(K/m)" & vbLf

    a13 = "结果:" & vbLf

    a14 = "    烟气温度与环境温差 ΔT = " & tsa & "(℃)" & vbLf

    a15 = "    烟气热释放率   Qh = " & qh & "(KJ/s)" & vbLf

    a16 = "    烟气出口处排出风速 Vs = " & vs & "(m/s)" & vbLf

    a17 = "    烟气热状况及地表状况系数 n0 =" & n0 & vbLf

    a18 = "    烟气热释放率指数 n1 =" & n1 & vbLf

    a19 = "    排气筒高度指数 n2 = " & n2 & vbLf

    a20 = "    烟气抬升高度 ΔH = " & hsa & "(m)" & vbLf

    a21 = "    烟囱有效高度 He = " & hh & "(m)" & vbLf



    aaa = A1 & a2 & a3 & a4 & a5 & a6 & a7 & a8 & a9 & a10 & a11 & a12 & a13 & a14 & a15 & a16 & a17 & a18 & a19 & a20 & a21

    RichTextBox1.Text = aaa

End Sub



Private Sub Form_Load()

    Combo1.AddItem "A"

    Combo1.AddItem "B"

    Combo1.AddItem "B-C"

    Combo1.AddItem "C"

    Combo1.AddItem "C-D"

    Combo1.AddItem "D"

    Combo1.AddItem "D-E"

    Combo1.AddItem "E"

    Combo1.AddItem "F"

    Option1.Value = True

End Sub