点群分析m1.bas

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

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