基于VB的灰色模型預测和线性回归预测.docVIP

灰色模型预测GM(1,1)与线性回归预测（一元、多元） 新建一个工程，添加一个模块（.bas），两个命令按钮： 窗体代码： Option Explicit Private Sub Command1_Click() 灰色模型预测 Dim Data As String Data = 2.67,3.13,3.25,3.36,3.56,3.72 GM1_1_Predict Data End Sub Private Sub Command2_Click() 线性回归预测 Dim X1 As String, X2 As String, X3 As String, X4 As String, Y As String X1 = 100.38,99.7,92.3,87.6,87.17,88.3,92.75,100.6,90.05; 最后要加上分号; X2 = 53.24,51.5,50.5,52.4,59.6,59.7,65.2,62.4,53.68; 最后要加上分号; X3 = 226,250,281,272,194,180,105,115,250; 最后要加上分号; Y = 644,640,517,425,385,401,448,599,462 最后 不要 加上分号;请注意！！！ Linear_Regression_Predict X1 X2 X3 Y End Sub 模块代码： Option Explicit Private Sub Calculate_1_AGO(X_0() As Double, X_1() As Double) 做一次累加生成 1-AGO Dim i As Long, TempX As Double, K As Long K = UBound(X_0) ReDim X_1(K) For i = 0 To K TempX = TempX + X_0(i) X_1(i) = TempX Next i End Sub Private Sub Calculate_Matrix_B(X_1() As Double, B() As Double) 计算数据矩阵B Dim i As Long, K As Long K = UBound(X_1) - 1 ReDim B(K, 1) For i = 0 To K B(i, 0) = -0.5 * (X_1(i) + X_1(i + 1)) B(i, 1) = 1 Next i End Sub Private Sub Calculate_Matrix_YN(X_0() As Double, YN() As Double) 计算数据矩阵YN Dim i As Long, K As Long K = UBound(X_0) - 1 ReDim YN(K, 0) For i = 0 To K YN(i, 0) = X_0(i + 1) Next i End Sub 函数名：Matrix_Transpotation 功能： 计算矩阵的转置transpotation 参数： m - Integer型变量，矩阵的行数 n - Integer型变量，矩阵的列数 mtxA - Double型m x n二维数组，存放原矩阵 mtxAT - Double型n x m二维数组，返回转置矩阵 Private Sub Matrix_Transpotation(mtxA() As Double, mtxAT() As Double) Dim i As Integer, j As Integer Dim M As Integer, N As Integer M = UBound(mtxA, 2) N = UBound(mtxA, 1) ReDim mtxAT(M, N) For i = 0 To M For j = 0 To N mtxAT(i, j) = mtxA(j, i) Next j Next i End Sub 函数名：Matrix_Multiplication 功能： 计算矩阵的乘法multiplication 参数： m - Integer型变量，相乘的左边矩阵的行数 n - I