模糊聚类m1.bas

来自「模糊数学中模糊聚类算法的vb实现」· BAS 代码 · 共 28 行

Attribute VB_Name = "modParameter"
'模糊聚类分析
'公有变量和数组
Option Explicit
Public X() As Double                    '原始数据
Public intRow As Integer                '行数
Public intCol As Integer                '列数
Public M As Integer, N As Integer       'm=intCol；n=intRow
Public strFileName As String            '数据文件
Public strResultFile As String          '结果文件
'数据预处理方法
Public intT1 As Integer, intT2 As Integer
'指示标定方法
Public Opt(1 To 15) As Integer
'标定过程中所需参数
Public dbM As Double, dbC As Double
Public R() As Double, RR() As Double    '相似矩阵
'截矩阵使用参数
Public dbL As Double                    'Lamda（入）值
'F检验使用参数
Public F1 As Double, F2 As Double, F As Double, Fa1 As Double, Fa2 As Double