模糊识别m1.bas

用VB编写的基于模糊数学原理的模糊识别程序

Attribute VB_Name = "modParameter"
'模糊识别
'公有变量和数组
Option Explicit
Public XX() As Double                   '原始数据
Public X0() As Double                   '去除标志列的原始数据,不做预处理
Public X() As Double                    '去除标志列且经预处理的原始数据
Public X1() As Double                   '已知样本
Public X2() As Double                   '待定样本
Public X20() As Double                  '待定样本，不做预处理
Public XS() As Double                   '标准模型
Public XS0() As Double                  '标准模型，不做预处理
Public XC() As Double                   '某一待定样本
Public SC() As Double                   '某一标准模型
Public DT As Double                     '贴近度
Public DS() As Double                   '贴近度数组
Public intRow As Integer                '总行数
Public intCol As Integer                '总列数
'intRow应该等于intRow1+intRow2
Public intRow1 As Integer               'intRow1为已知样本个数
Public intRow2 As Integer               'intRow2为待定样本个数
Public intS As Integer                  '标准模型的个数
Public strFileName As String            '数据文件
Public strResultFile As String          '结果文件
'指示求贴近度方法
Public Opt(1 To 5) As Integer