多项式回归m1.bas

来自「这是一个有关概率中的回归分析算法,内有多种算法,欢迎大家使用.」· BAS 代码 · 共 18 行

Attribute VB_Name = "modParameter"
'多项式回归
Option Explicit
Public intRow As Integer            '行数
Public intRowAll As Integer         '总行数
Public intCol As Integer            '列数
Public strFileName As String        '数据文件
Public strLabelName As String       '标题
Public intM As Integer, intN As Integer
Public x() As Double, y() As Double '试验数据
Public xx() As Double
Public b() As Single                '回归系数
Public a() As Double                '工作单元
Public t() As Single                't检验值
Public N As Integer                 '数据点数
Public M As Integer                 '最高幂次
Public Key As Integer               'Key=1:预测。Key=2:平滑。Key=3:等距