【導讀】協(xié)調(diào)發(fā)展作用重大。能源工業(yè)是國民經(jīng)濟的基礎工業(yè)，是實現(xiàn)現(xiàn)代化的物質(zhì)基礎，量逐步增大，但這類礦藏資源儲量有限，目前大多已瀕臨枯竭。能源在使用的同時，會給我們的生存環(huán)境帶來嚴重的污染問題。從世界范圍來看，目前尚沒有一個國家能夠依靠以煤為主這種低效的能源消費結構實現(xiàn)現(xiàn)代化。第七位，而我國煤炭生產(chǎn)量和消費量卻位居世界第一。暖化的主要國家之一。市中，中國占了l6個，中國大氣污染造成的經(jīng)濟損失已經(jīng)占到GDP的3%～7%。此外，煤炭的運輸費用過于高昂。高于煤炭運輸量的增長率，鐵路運輸?shù)钠款i問題將更加突出。同時對現(xiàn)今在運行的機組采取節(jié)能措施，到2021年單位GDP的能源消耗減少20%。其中，每1萬元GDP標準煤耗量應。消耗必需減少30%；主要污染物排放應減少10%。2021年7月，全國淘汰小火電機組突破5400. 初步測算，關停5400萬千瓦小火電機組，每年可減少二氧。安全操作帶來不利的影響。首先，水位過高，會影響汽包內(nèi)的汽水分離，飽和水

　　

【正文】 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, ,) = Format(X1, ,) = Format(X2, ,) = Format(X3, ,) = Format(X4, ,) = Format(X5, ,) = Format(X6, ,) = Format(X7, ,) = Format(X8, ,) = Format(mm, ,) = Format(sb, ,) = Format(s0, ,) = Format(s1, ,) = Format(s3, ,) = Format(s5, ,) = Format(s7, ,) = Format(s2, ,) = Format(s4, ,) = Format(s6, ,) = Format(s8, ,) = Format(m0, ,) = Format(q0, ,) = Format(g00, ,) en: End Sub Private Sub 保存 _Click() Call wz If pd = 1 Then GoTo en Dim sj As Double Open shuju For Output As 1 For i = 0 To 8 32 sj = Val(Text1(i)) Write 1, sj Next i Close Open shuju For Append As 1 For i = 1 To 8 sj = Val(Text2(i)) Write 1, sj Next i Close Open shuju For Append As 1 For i = 1 To 4 sj = Val(Text3(i)) Write 1, sj Next i Close Open shuju For Append As 1 For i = 6 To 8 sj = Val(Text3(i)) Write 1, sj Next i Close Open shuju For Append As 1 For i = 0 To 11 sj = Val(Text4(i)) Write 1, sj Next i Close Open shuju For Append As 1 For i = 0 To 11 sj = Val(Text5(i)) Write 1, sj Next i Close Open shuju For Append As 1 sj = Val(Text6) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text7) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text8) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text9) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text10) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text11) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text12) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text13) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text14) Write 1, sj Close Open shuju For Append As 1 sj = Val(Text15) Write 1, sj Close en: End Sub Private Sub 載入數(shù)據(jù) _Click() Dim b(57) As Double Open shuju For Input As 1 For i = 0 To 57 Input 1, b(i) Next i Close For i = 0 To 8 Text1(i) = b(i) Next i For i = 9 To 16 Text2(i 8) = b(i) Next i 33 For i = 17 To 20 Text3(i 16) = b(i) Next i For i = 21 To 23 Text3(i 15) = b(i) Next i For i = 24 To 35 Text4(i 24) = b(i) Next i For i = 36 To 47 Text5(i 36) = b(i) Next i Text6 = b(48) Text7 = b(49) Text8 = b(50) Text9 = b(51) Text10 = b(52) Text11 = b(53) Text12 = b(54) Text13 = b(55) Text14 = b(56) Text15 = b(57) End Sub Private Sub 清除 _Click() For i = 0 To 8 Text1(i) = Next i For i = 9 To 16 Text2(i 8) = Next i For i = 17 To 20 Text3(i 16) = Next i For i = 21 To 23 Text3(i 15) = Next i For i = 24 To 35 Text4(i 24) = Next i For i = 36 To 47 Text5(i 36) = Next i Text6 = Text7 = Text8 = Text9 = Text10 = Text11 = Text12 = Text13 = Text14 = Text15 = End Sub 34 參考文獻 ［ 1］ 嚴俊杰，黃錦濤，張凱等 .發(fā)電廠熱力系統(tǒng)及設備 ［ M］ .西安：西安交通大學出版社 ，2021年 8月 ［ 2］ 吳步軍 .未來中國能源多元化趨勢 ［ J］ .應用能源技術， 2021年第 2期， 12 ［ 3］ 佚名 .中國“十一五”關停小 火電進展情況 ［ J］ .水泵技術， 2021年第 4期， 53 ［ 4］ 王建朝 .火電廠節(jié)能降耗分析與措施 ［ J］ .河北電力技術， 2021年 2月第 1期， 4850 ［ 5］ 田小鋒，劉炳華 .火電廠節(jié)能降耗分析與措施 ［ J］ .吉林電力， 2021年 10月第 5期3941 ［ 6］ 李青，高山，薛彥廷 .火力發(fā)電廠節(jié)能技術及其應用 ［ M］ .北京：中國電力出版社，2021 ［ 7］ 鄭體寬 .熱力發(fā)電廠 ［ M］ .北京：水利電力出版社， 1986年 6月 ［ 8］ 王進 .汽包水位控制 ［ J］ .東方鍋爐， 2021年第 1期 ， 1113 ［ 9］ 董 衛(wèi)國 .給水加熱器的水位控制 ［ 研究報告 ］ .西安：能源部西安熱工研究所， 1113 ［ 10］ 葉濤 .熱力發(fā)電廠 ［ M］ .北京：中國電力出版社 ， 2021年 8月 ［ 11］ 王海洲 .淺論臥式高壓加熱器的虹吸現(xiàn)象 ［ J］ .電力勘測設計， 2021年 6月第 2期，67 ［ 12］ 杜寧 .倒置立式高壓加熱器研制 ［ J］ .鍋爐制造， 2021年 7月第 3期， 61 ［ 13］ 林萬超 .火電廠熱力系統(tǒng)定量分析 ［ M］ .西安：西安交通大學出版社， 1985年 5月