逐步判别m1.bas

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

Attribute VB_Name = "modParameter"
'逐步判别
Option Explicit
'数据文件所需变量
Public strFileName As String         '数据文件名
Public strLabelName As String        '标题
Public intRow As Integer             '数据的行数
Public intCol As Integer             '数据的列数
Public intRowAll As Integer          '总行数
Public blnTitle As Boolean           '是否有图题
Public blnRowLabel As Boolean        '是否有行标
Public blnColLabel As Boolean        '是否有列标
'逐步判别所需的变量和数组
Public G As Integer                  '分类数
Public M As Integer                  '变量数
Public N As Integer                  '样本总数
Public L As Integer                  '最终选中的变量个数
Public Q() As Double                 '先验概率
Public XY() As Double                '观测数据
Public Mx() As Double                '平均值
Public Ng() As Double                '各种分类的样本数
Public C() As Double                 '判别系数
Public D2gh() As Double              '马哈拉诺比斯距离
Public Fhg() As Double               'F检验值
Public Dm() As Double                '判别矩阵
Public W() As Double                 '组内离差矩阵
Public T() As Double                 '总离差矩阵
Public X() As Double                 '记录变量是否被选中
Public LnQ() As Double               '计算判别函数的中间结果
Public Pr() As Double                '保存计算后验概率的中间结果
Public New_Sort() As Double          '新分类和后验概率