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 'intM:數據文件的行數；intN:數據文件的列數
Public X() As Double                    '原始數據
Public M As Integer, N As Integer       'm:數據文件的行數；n:數據文件的列數
'Key為統計量類型。=1:Q型距離；=2:Q型夾角；=3:Q型相關；=4:R型相關
Public Key As Integer
Public I As Integer, J As Integer, K As Integer, L As Integer
'M1為譜系圖中垂向連線數；M2為譜系圖中水平連線數；M3為譜系圖中掃描行數
Public M1 As Integer, M2 As Integer, M3 As Integer
Public L1 As Integer, L2 As Integer, L3 As Integer
Public L4 As Integer, L5 As Integer
Public N1 As Integer, N2 As Integer
'LI、LJ為聚類過程中被合并的類號
Public LI As Integer, LJ As Integer, I1 As Integer
Public YM As Single, YM1 As Single, YM2 As Single, YS As Double
'KK為權系數，即每群中包括的樣本數
'KM為譜系圖中自上而下的樣本排序行號
'KN為并類過程中，樣本重新排序時的換行工作單元
Public KK(1000) As Integer, KM(1000) As Integer, KN(1000) As Integer
'KX1為譜系圖中水平連線的行位；KX2為譜系圖中水平連線右端向下延續的行數
Public KX1(1000) As Integer, KX2(1000) As Integer
'X1為譜系圖中水平連線左端點橫坐標；X2為譜系圖中水平連線右端點橫坐標
Public X1(1000) As Single, X2(1000) As Single
'Xa為平均值；Xc為方差
Public Xa(1000) As Double, Xc(1000) As Double
'KLJ為每次并類后，生成新類的行號
'XLJ為每次并類后，生成新類的水平連線左端點橫坐標
Public KLJ(1000) As Integer, XLJ(1000) As Single
Public S As Double, S1 As Double, S2 As Double