【正文】 = True = TrueEnd SubPrivate Sub Command3_Click() = TrueDim search As String Dim responsesearch = InputBox()If search Then For i = 0 To 4Text10(i).Text = Next iData1(1) = Val()Data1(2) = Val()Data1(3) = Val()Data1(4) = Val()Data1(5) = Val()Data1(6) = Val()Data1(7) = Val()Data1(8) = Val()Data2(1) = Val()n = 0For i = 1 To 8If Data1(i)0 then n = n + 1Else: n = n + 0End IfNext i39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。For i = 0 To n 2For k = 0 To 1 b1(k, i) = b(i, k) Next kNext i39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。d(0, 0) = 1 / (c(1, 1) * c(0, 0) c(0, 1) * c(1, 0)) * (c(1, 1))d(0, 1) = 1 / (c(1, 1) * c(0, 0) c(0, 1) * c(1, 0)) * (c(0, 1))d(1, 0) = 1 / (c(1, 1) * c(0, 0) c(0, 1) * c(1, 0)) * (c(1, 0))d(1, 1) = 1 / (c(1, 1) * c(0, 0) c(0, 1) * c(1, 0)) * c(0, 0)) For i = 0 To 1For j = 0 To n 2s = 0For k = 0 To 1 s = s + d(i, k) * b1(k, j)e(i, j) = sNext kNext jNext i39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 If = Then k = nx(n + 1) = (Data1(1) a(1, 0) / a(0, 0)) * (1 Exp(a(0, 0))) * Exp((a(0, 0)) * k)Text10(k n).Text = x(k + 1)ElseIf = ThenFor k = n To n + 1x(k + 1) = (Data1(1) a(1, 0) / a(0, 0)) * (1 Exp(a(0, 0))) * Exp((a(0, 0)) * k)Text10(k n).Text = x(k + 1)Next kElseIf = ThenFor k = n To n + 2x(k + 1) = (Data1(1) a(1, 0) / a(0, 0)) * (1 Exp(a(0, 0))) * Exp((a(0, 0)) * k)Text10(k n).Text = x(k + 1)Next kElseIf = ThenFor k = n To n + 3x(k + 1) = (Data1(1) a(1, 0) / a(0, 0)) * (1 Exp(a(0, 0))) * Exp((a(0, 0)) * k)Text10(k n).Text = x(k + 1)Next kElseIf = ThenFor k = n To n + 4x(k + 1) = (Data1(1) a(1, 0) / a(0, 0)) * (1 Exp(a(0, 0))) * Exp((a(0, 0)) * k)Text10(k n).Text = x(k + 1)Next kElseMsgBox , vbOKOnly, End IfEnd SubPrivate Sub Command4_Click() End SubPrivate Sub Command5_Click()Unload Me End SubPrivate Sub Command6_Click() = TrueOn Error GoTo error savecancelExit Suberror:MsgBox End SubPrivate Sub Command2_Click()On Error GoTo editerr savecancel Exit Subediterr:MsgBox End SubPrivate Sub Command7_Click()Dim response2On Error GoTo saveerrBeginTrans CommitTransresponse2 = MsgBox(（beta2）)intitalcmdExit Subsaveerr:MsgBox End SubPrivate Sub Command8_Click()On Error GoTo cancelerr intitalcmd Exit Subcancelerr:MsgBox End SubPrivate Sub nmuchooseabout_Click(Index As Integer) End SubPrivate Sub nmuchoosehelp_Click(Index As Integer) End SubPrivate Sub nmufileleave_Click()Unload Me End Sub第四章 結(jié)論現(xiàn)在對(duì)線(xiàn)性回歸法和神經(jīng)網(wǎng)絡(luò)法的預(yù)測(cè)結(jié)果進(jìn)行比較，方法是利用反映波動(dòng)性的數(shù)字特征值進(jìn)行計(jì)算，利用計(jì)算結(jié)果比較相互優(yōu)缺點(diǎn)1最大值 2最小值 3極差 4平均值 5平均率 6最小最大比值 灰色預(yù)測(cè)法最大值最小值極差平均值平均率最大最小比值7月23日7月24日7月25日.7月26日7月27日7月28日7月29日7月30日7月31日8月1日一元線(xiàn)性回歸法最大值最小值極差平均值平均率最大最小比值7月23日7月24日7月25日.7月26日7月27日7月28日7月29日7月30日7月31日8月1日 電價(jià)預(yù)測(cè)不僅在電力系統(tǒng)規(guī)劃和運(yùn)行方面具有重要的地位，而且還具有明顯的經(jīng)濟(jì)意義。每種預(yù)測(cè)方法在不同的情況下總是各有利弊的。線(xiàn)性回歸法的方法相對(duì)簡(jiǎn)單，主要工作是選擇最優(yōu)擬合曲線(xiàn)。如果要提高其預(yù)測(cè)的精確度在實(shí)踐中可通過(guò)人工干預(yù)來(lái)修正突變電價(jià)(如氣候突變、用戶(hù)生產(chǎn)變化、政策變化、設(shè)備檢修等)。但是，由于模型只是利用了電力系統(tǒng)負(fù)荷歷史資料，而沒(méi)有考慮氣象條件、人口、工農(nóng)業(yè)發(fā)展?fàn)顩r以及經(jīng)濟(jì)變化等諸多因素的影響，因此該方法一般只適用于短期和中期電價(jià)預(yù)測(cè)，而不適用于長(zhǎng)期電價(jià)預(yù)測(cè)。據(jù)我所知，除文中已經(jīng)注明引用的內(nèi)容外，本論文（設(shè)計(jì)）不包含其他個(gè)人已經(jīng)發(fā)表或撰寫(xiě)過(guò)的研究成果。 作者簽名： 日期： 畢業(yè)論文（設(shè)計(jì)）授權(quán)使用說(shuō)明本論文（設(shè)計(jì)）作者完全了解**學(xué)院有關(guān)保留、使用畢業(yè)論文（設(shè)計(jì)）的規(guī)定，學(xué)校有權(quán)保留論文（設(shè)計(jì)）并向相關(guān)部門(mén)送交論文（設(shè)計(jì)）的電子版和紙質(zhì)版。學(xué)校可以公布論文（設(shè)計(jì)）的全部或部分內(nèi)容。 ：任務(wù)書(shū)、開(kāi)題報(bào)告、外文譯文、譯文原文（復(fù)印件）。圖表整潔，布局合理，文字注釋必須使用工程字書(shū)寫(xiě)，不準(zhǔn)用徒手畫(huà)3）畢業(yè)論文須用A4單面打印，論文50頁(yè)以上的雙面打印4）圖表應(yīng)繪制于無(wú)格子的頁(yè)面上5）軟件工程類(lèi)課題應(yīng)有程序清單，并提供電子文檔1）設(shè)計(jì)（論文）2）附件：按照任務(wù)書(shū)、開(kāi)題報(bào)告、外文譯文、譯文原文（復(fù)印件）次序裝訂3）其它31