+ʢk

模糊数学基础及实用算法 (源码) 科学出版社 www.sciencep.com

Attribute VB_Name = "modParameter"
'模糊物元分析
'公有变量和数组
Option Explicit
Public N As Integer                     '事物个数=模糊物元矩阵的行数
Public M As Integer                     '物元指标个数=模糊物元矩阵的列数
Public intRow As Integer                '数据文件的行数
Public intCol As Integer                '数据文件的列数
Public R() As Double                    '模糊物元矩阵，在计算过程中将被修改
Public A() As Double                    '加权向量
Public B() As Double                    '结果向量，保存关联度
Public D() As Double                    '事物的数值向量，方案优选时为1
Public V() As Double                    '优化方式向量
Public X() As Double                    '临时保存各事物的特征值
Public intModel As Integer              '隶属度计算模式指示
Public intOpt As Integer                '关联系数计算方法指示
Public strR As String                   '数据文件名