ARMA模型预测源代码.docVIP

源代码 导入数据及绘图代码： Private Sub Command1_Click() On Error Resume Next Dim xlApp As Excel.Application 定义EXCEL类 Dim xlBook As Excel.Workbook 定义工件簿类 Dim xlsheet As Excel.Worksheet 定义工作表类 CommonDialog1.CancelError = True CommonDialog1.DialogTitle = 指定数据Excel表 CommonDialog1.InitDir = App.Path CommonDialog1.ShowOpen Set xlApp = CreateObject(Excel.Application) 创建EXCEL应用类 Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName) 打开Excel文档 If Err Then MsgBox 未选择数据文件,无法导入, 0, 提示 Exit Sub Else xlApp.Visible = False 不可见 Set xlsheet = xlBook.Worksheets(1) 打开sheet1工作表 MsgBox 已成功导入数据, 0, 提示 End If Dim i For i = 1 To 60 y(i) = xlsheet.Cells(i, 1) Next i For i = 2 To 60 x(i) = y(i - 1) Next i xlBook.Save ActiveWorkbook.Close xlBook.Close (True) xlApp.Quit Set xlApp = Nothing Shell cmd.exe/c taskkill/f/im excel.exe Form1.DrawWidth = 6 Form1.Cls Form1.Scale (-4, 30000)-(72, 2000) Form1.Line (68, 3400)-(0, 3400) Form1.Line (0, 29000)-(0, 3000) CurrentX = 70: CurrentY = 3500: Print X CurrentX = 2: CurrentY = 28000: Print Y For i = 2 To 59 Form1.Line (i, y(i))-(i + 1, y(i + 1)), vbGreen Next i End Sub 回归结果代码： Private Sub Command1_Click() Dim xsum As Double, ysum As Double For i = 2 To 60 xsum = xsum + x(i) ysum = ysum + y(i) Next i xaver = xsum / 59 yaver = ysum / 59 Dim yy1 As Double For i = 2 To 60 yy1 = yy1 + (y(i) - yaver) ^ 2 Next i ystd = (yy1 / 58) ^ 0.5 Dim xymulti As Double, xx As Double For i = 2 To 60 xymulti = xymulti + x(i) * y(i) xx = xx + x(i) ^ 2 Next i b = xymulti / xx For i = 2 To 60 y1(i) = b * x(i) Next i For i = 2 To 60 sst = sst + (y(i) - yaver) ^ 2 Next i For i = 2 To 60 ssr = ssr + (y(i) - b * x(i)) ^ 2 Next i sse = sst - ssr r2 = sse / sst adr2 = 1 - (59 / 58) * (ssr / sst) ser = ((ssr - 2) / (59 - 1)) ^ 0.5 Dim qq As Double, qq1 As Double For i = 3 To 60 qq = qq + (y(i) - y1(i) - y(i - 1) + y1(i - 1)) ^ 2 Next i For i = 2 To 60 qq1 = qq1 + (y(i) - y1(i)) ^ 2 Next i dw = qq / qq1 l = -(59 / 2) * (Log(2 * 3.1415926)