【正文】 ，汽液兩相流液位控制器的使用可以說是一個趨勢，它相較于國內(nèi)汽輪機(jī)組高壓、低壓加熱器傳統(tǒng)采用的浮子式疏水器，電動式疏水器，氣動式疏水器，有相當(dāng)大的優(yōu)勢，首先水位自動調(diào)節(jié)穩(wěn)定、自調(diào)能力強(qiáng)，水位處于相對穩(wěn)定，安全可靠、無活動部件及任何機(jī)械、氣動、電動機(jī)構(gòu)和控制系統(tǒng)。 28 附 錄 再熱機(jī)組熱力系統(tǒng)計算程序 源代碼 Option Base 0 Public pd As Integer Public pd1 As Integer Private Sub wz() pd = 1 pd1 = 1 For i = 0 To 8 If Text1(i) = Then pd1 = 1 End If Next i For i = 9 To 16 If Text2(i 8) = Then pd1 = 1 End If Next i For i = 17 To 20 If Text3(i 16) = Then pd1 = 1 End If Next i For i = 21 To 23 If Text3(i 15) = Then pd1 = 1 End If Next i For i = 24 To 35 If Text4(i 24) = Then pd1 = 1 End If Next i For i = 36 To 47 If Text5(i 36) = Then pd1 = 1 End If Next i If Text6=Or Text7=Or Text8=Or Text9=Or Text10=Or Text11=Or Text12=Or Text13=Or Text14=Or Text15=Then pd1 = 1 End If If pd1 = 1 Then r = MsgBox(請把數(shù)據(jù)輸入完整 , 0, 提示 ) End If If r = 1 Then pd = 1 End Sub Private Sub Command1_Click() Call wz If pd = 1 Then GoTo en Dim h(11) Dim t(11) Dim ts(11) Dim hf(11) Dim af(11) For i = 0 To 8 h(i) = Text1(i) Next i For i = 1 To 8 t(i) = Text2(i) Next i For i = 1 To 4 ts(i) = Text3(i) Next i For i = 6 To 8 ts(i) = Text3(i) Next i For i = 0 To 11 hf(i) = Text4(i) Next i For i = 0 To 11 af(i) = Text5(i) Next i hn = Text6 hzr = Text7 tn = Text8 tb = Text9 Gg = Text10 Ggd = Text11 29 GjxGd = Text12 tsf3 = Text13 tsf4 = Text14 nd = Text15 k1 = t(1) tn k2 = t(2) t(1) k3 = t(3) t(2) k4 = t(4) t(3) k5 = t(5) t(4) k6 = t(6) t(5) k7 = t(7) t(6) k8 = t(8) t(7) q1 = h(1) tn q2 = h(2) t(1) q3 = h(3) ts(3) q4 = h(4) ts(4) q5 = h(5) t(4) q6 = h(6) ts(6) q7 = h(7) ts(7) q8 = h(8) ts(8) qn = hn tn r2 = ts(3) t(1) r3 = ts(4) ts(3) r5 = ts(6) t(4) r6 = ts(7) ts(6) r7 = ts(8) ts(7) qf0 = hf(0) t(4) qf1 = hf(1) t(4) qf2 = hf(2) ts(4) qf3 = hf(3) tsf3 qf4 = hf(4) tn qf5 = hf(5) t(4) qf6 = hf(6) ts(4) qf7 = hf(7) tsf3 qf8 = hf(8) tn qf9 = hf(9) tn qf10 = hf(10) tsf3 qf11 = hf(11) tn qfn = tsf3 tn Dim a1 As Variant a8 = k8 / q8 a7 = (k7 a8 * r7) / q7 a6 = (k6 (a7 + a8) * r6 tb) / q6 a5 = (k5 (a8 + a7 + a6) * r5 af(1) * qf1 af(5) * qf5 + af(0) * qf0) / q5 ah = 1 a5 a6 a7 a8 af(1) af(5) + af(0) a4 = (ah * k4 af(2) * qf2 af(6) * qf6) / q4 a3 = (ah * k3 (a4 + af(2) + af(6)) * r3) / q3 a2 = (ah * k2 (a4 + af(2) + af(6) + a3) * r2 af(3) * qf3 af(7) * qf7 af(10) * qf10) / q2 ann = ah a2 a3 a4 af(2) af(6) a1 = (ann * k1 af(4) * qf4 af(8) * qf8 af(9) * qf9 af(3) * qfn af(7) * qfn af(10) * qfn) / q1 an = anna1af(3)af(4)af(7)af(8)af(9)af(10)af(11) azr = 1 a8 a7 af(1) af(2) af(3) af(4) a = hzr h(7) Nip = a8 * (h(0) h(8)) + a7 * (h(0) h(7)) + a6 * (h(0) h(6) + a) + a5 * (h(0) h(5) + a) + a4 * (h(0) h(4) + a) + a3 * (h(0) h(3) + a) + a2 * (h(0) h(2) + a) + a1 * (h(0) h(1) + a) + an * (h(0) hn + a) + af(1) * (h(0) hf(1)) + af(2) * (h(0) hf(2)) + af(3) * (h(0) hf(3)) + af(4) * (h(0) hf(4)) + af(5) * (h(0) hf(5) + a) + af(6) * (h(0) hf(6) + a) + af(7) * (h(0) hf(7) + a) + af(8) * (h(0) hf(8) + a) q0 = h(0) + azr * a t(8) G0 = (Nip tb) / q0 j = an * qn + af(11) * qf11 G1 = (q0 j) / q0 d1 = nd / (Nip * GjxGd) d2 = d1 * 3600 / nd qj = d2 * q0 b = (qj * 1000) / (Ggd * Gg * 29308) bj = (b * nd * 7000) / 1000000 d3 = nd / ((Nip 23) * GjxGd) d4 = d3 * 3600 / nd qj1 = d4 * q0 b1 = (qj1 * 1000) / (Ggd * Gg * 29308) 30 bj1 = (b1 * nd * 7000) / 1000000 qon = d2 * (an * qn + af(11) * qf11) qsz = 0 qid = 3600 * (1 / GjxGd 1) qob = d2 * tb q = 3600 + qon + qsz + qid qob m1 = h(1) hn X1 = m1 / q1 m2 = h(2) hn k1 * X1 X2 = m2 / q2 m3 = h(3) h(2) + m2 r2 * X2 X3 = m3 / q3 m4 = h(4) h(3) + m3 r3 * X3 X4 = m4 / q4 m5 = h(5) h(2) + m2 k2 * X2 k3 * X3 k4 * X4 X5 = m5 / q5 m6 = h(6) h(5) + m5 r5 * X5 X6 = m6 / q6 m7 = h(7) + a h(6) + m6 r6 * X6 X7 = m7 / q7 m8 = h(8) h(7) + m7 r7 * X7 X8 = m8 / q8 mm = h(0) + a hn k1 * X1 k2 * X2 k3 * X3 k4 * X4 k5 * X5 k6 * X6 k7 * X7 k8 * X8 sb = tb * (1 X6) s0 = af(0) * (qf0 * X5 + k1 * X1 + k2 * X2 + k3 * X3 + k4 * X4) (af(9) * qf9 * X1 + af(10) * (qf10 * X2 + qfn * X1)) s1 = af(1) * (hf(1) + a (hf(1) h(5)) * X5 h(5)) s3 = af(3) * (hf(3) + a hn qf3 * X2 qfn * X1) s5 = af(5) * (hf(5) (hf(5) h(5)) * X5 h(5)) s7 = af(7) * (hf(7) hn qf7 * X2 qfn * X1) s2 = af(2) * (hf(2) + a (hf(2) h(4)) * X4 h(4)) s4 = af(4) * (hf(4) + a hn qf4 * X1) s6 = af(6) * (hf(6) (hf(6) h(4)) * X4 h(4)) s8 = af(8) * (hf(8) hn qf8 * X1) m0 = mm sb s0 s1 s3 s5 s7 s2 s4 s6 s8 g00 = m0 / q0 = Format(a8, ,) = Format(a7, ,) = Format(a6, ,) = Format(a5, ,) = Format(ah, ,) = Format(a4, ,) = Format(a3, ,) = Format(a2, ,) = Format(ann, ,) = Format(a1, ,) = Format(an, ,) = Format(Nip, ,) = Format(q0, ,) = Format(G0, ,) = Format(j, ,) = Format(G1, ,) = Format(d1, ,) = Format(d2, ,) = Format(qj, ,) = Format(b, ,) = Format(bj, 31 ,) = Format(d3, ,) = Format(d4, ,) = Format(qj1, ,) = Format(b1, ,) = Format(bj1, ,) = Format(qon, ,) = Format(qid, ,) = Format(qob, ,) = Format(q, ,) = Format(m1, ,) = Format(m2, ,) = Format(m3, ,) = Format(m4, ,) = Format(m5, ,) = Format(m6, ,) = Format(m7, ,) = Format(m8, ,) =