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