两组判别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 N1 As Integer                 'A组数据样本数
Public N2 As Integer                 'B组数据样本数
Public N3 As Integer                 '待定组样本数
Public M As Integer                  '变量数
Public X1() As Double                'A组数据
Public X2() As Double                'B组数据
Public X3() As Double                '待定组数据
Public Y1() As Double                'A组每个样本的判别值
Public Y2() As Double                'B组每个样本的判别值
Public Y3() As Double                '待定组每个样本的判别值
Public CP1() As Double               'A组样本每个变量的平均值
Public CP2() As Double               'B组样本每个变量的平均值
Public XS() As Double                '求解判别方程时的系数矩阵
Public DD() As Double                '求解判别方程时的右侧向量
Public CC() As Double                '求出的判别方程系数
Public YA As Double                  'A组样本的综合指标
Public YB As Double                  'B组样本的综合指标
Public YC As Double                  '样本类型归属界限值
Public D2 As Double                  '马哈拉诺比斯距离
Public FF As Double                  'F检验值