二元多项式逐步回归m1.bas

<VB数理统计实用算法>书中的算法源程序

Attribute VB_Name = "modParameter"
'二元多项式逐步回归
Option Explicit
'数据文件名
Public strFileName As String        '原始数据文件
Public strRes_Name As String        '平滑数据文件
Public strErr_Name As String        '残差数据文件
Public strLabelName As String       '标题
Public p() As Double                '原始数组和结果数组
'数据的行数和列数
Public intRow As Integer, intCol As Integer
Public intRowAll As Integer         '总行数
Public L As Integer                 '选中的自变量个数
'自变量、因变量
Public X() As Double, Y() As Double, Z() As Double
Public xMy() As Double              '经处理满足逐步回归要求的数据
Public H() As Double, T() As Double, D() As Double
Public b() As Double, G() As Double, C() As Double
Public Ti() As Double               '保存t检验值
'M为网格的行数，N为网格的列数
Public M As Integer, N As Integer, Key As Integer
Public MM As Integer, NN As Integer
'插值点坐标
Public X0 As Double, Y0 As Double
Public blnTitle As Boolean           '是否有图题
Public blnRowLabel As Boolean        '是否有行标
Public blnColLabel As Boolean        '是否有列标
Public blnOpt As Boolean             '是否网格化