【導(dǎo)讀】協(xié)調(diào)發(fā)展作用重大。能源工業(yè)是國(guó)民經(jīng)濟(jì)的基礎(chǔ)工業(yè)，是實(shí)現(xiàn)現(xiàn)代化的物質(zhì)基礎(chǔ)，量逐步增大，但這類(lèi)礦藏資源儲(chǔ)量有限，目前大多已瀕臨枯竭。能源在使用的同時(shí)，會(huì)給我們的生存環(huán)境帶來(lái)嚴(yán)重的污染問(wèn)題。從世界范圍來(lái)看，目前尚沒(méi)有一個(gè)國(guó)家能夠依靠以煤為主這種低效的能源消費(fèi)結(jié)構(gòu)實(shí)現(xiàn)現(xiàn)代化。第七位，而我國(guó)煤炭生產(chǎn)量和消費(fèi)量卻位居世界第一。暖化的主要國(guó)家之一。市中，中國(guó)占了l6個(gè)，中國(guó)大氣污染造成的經(jīng)濟(jì)損失已經(jīng)占到GDP的3%～7%。此外，煤炭的運(yùn)輸費(fèi)用過(guò)于高昂。高于煤炭運(yùn)輸量的增長(zhǎng)率，鐵路運(yùn)輸?shù)钠款i問(wèn)題將更加突出。同時(shí)對(duì)現(xiàn)今在運(yùn)行的機(jī)組采取節(jié)能措施，到2021年單位GDP的能源消耗減少20%。其中，每1萬(wàn)元GDP標(biāo)準(zhǔn)煤耗量應(yīng)。消耗必需減少30%；主要污染物排放應(yīng)減少10%。2021年7月，全國(guó)淘汰小火電機(jī)組突破5400. 初步測(cè)算，關(guān)停5400萬(wàn)千瓦小火電機(jī)組，每年可減少二氧。安全操作帶來(lái)不利的影響。首先，水位過(guò)高，會(huì)影響汽包內(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 參考文獻(xiàn) ［ 1］ 嚴(yán)俊杰，黃錦濤，張凱等 .發(fā)電廠(chǎng)熱力系統(tǒng)及設(shè)備 ［ M］ .西安：西安交通大學(xué)出版社 ，2021年 8月 ［ 2］ 吳步軍 .未來(lái)中國(guó)能源多元化趨勢(shì) ［ J］ .應(yīng)用能源技術(shù)， 2021年第 2期， 12 ［ 3］ 佚名 .中國(guó)“十一五”關(guān)停小 火電進(jìn)展情況 ［ J］ .水泵技術(shù)， 2021年第 4期， 53 ［ 4］ 王建朝 .火電廠(chǎng)節(jié)能降耗分析與措施 ［ J］ .河北電力技術(shù)， 2021年 2月第 1期， 4850 ［ 5］ 田小鋒，劉炳華 .火電廠(chǎng)節(jié)能降耗分析與措施 ［ J］ .吉林電力， 2021年 10月第 5期3941 ［ 6］ 李青，高山，薛彥廷 .火力發(fā)電廠(chǎng)節(jié)能技術(shù)及其應(yīng)用 ［ M］ .北京：中國(guó)電力出版社，2021 ［ 7］ 鄭體寬 .熱力發(fā)電廠(chǎng) ［ M］ .北京：水利電力出版社， 1986年 6月 ［ 8］ 王進(jìn) .汽包水位控制 ［ J］ .東方鍋爐， 2021年第 1期 ， 1113 ［ 9］ 董 衛(wèi)國(guó) .給水加熱器的水位控制 ［ 研究報(bào)告 ］ .西安：能源部西安熱工研究所， 1113 ［ 10］ 葉濤 .熱力發(fā)電廠(chǎng) ［ M］ .北京：中國(guó)電力出版社 ， 2021年 8月 ［ 11］ 王海洲 .淺論臥式高壓加熱器的虹吸現(xiàn)象 ［ J］ .電力勘測(cè)設(shè)計(jì)， 2021年 6月第 2期，67 ［ 12］ 杜寧 .倒置立式高壓加熱器研制 ［ J］ .鍋爐制造， 2021年 7月第 3期， 61 ［ 13］ 林萬(wàn)超 .火電廠(chǎng)熱力系統(tǒng)定量分析 ［ M］ .西安：西安交通大學(xué)出版社， 1985年 5月