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檢驗值