+ʢk

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

Attribute VB_Name = "modModel"
'模糊物元分析
'计算关联度方法模块
Option Explicit

'先乘后加（加权平均）
'A是加权向量，R是关联系数矩阵，B是结果向量
Public Sub Model1(A, R, B)
    Dim M As Integer, N As Integer
    Dim I As Integer, J As Integer
    N = UBound(R, 1): M = UBound(R, 2)
    For J = 1 To M
        For I = 1 To N
            R(I, J) = A(J) * R(I, J)        '乘
        Next I
    Next J
    For I = 1 To N
        B(I) = 0
        For J = 1 To M
            B(I) = B(I) + R(I, J)           '加
        Next J
    Next I
    For I = 1 To N
        B(I) = Int((B(I) + 0.00005) * 10000) / 10000
    Next I
End Sub

'先取小后取大
'A是加权向量，R是关联系数矩阵，B是结果向量
Public Sub Model2(A, R, B)
    Dim M As Integer, N As Integer
    Dim I As Integer, J As Integer
    N = UBound(R, 1): M = UBound(R, 2)
    For J = 1 To M
        For I = 1 To N
            If A(J) < R(I, J) Then R(I, J) = A(J)   '取小
        Next I
    Next J
    For I = 1 To N
        B(I) = 0
        For J = 1 To M
            If B(I) < R(I, J) Then B(I) = R(I, J)   '取大
        Next J
    Next I
    For I = 1 To N
        B(I) = Int((B(I) + 0.00005) * 10000) / 10000
    Next I
End Sub

'先乘后取大
'A是加权向量，R是关联系数矩阵，B是结果向量
Public Sub Model3(A, R, B)
    Dim M As Integer, N As Integer
    Dim I As Integer, J As Integer
    N = UBound(R, 1): M = UBound(R, 2)
    For J = 1 To M
        For I = 1 To N
            R(I, J) = A(J) * R(I, J)                '乘
        Next I
    Next J
    For I = 1 To N
        B(I) = 0
        For J = 1 To M
            If B(I) < R(I, J) Then B(I) = R(I, J)   '取大
        Next J
    Next I
    For I = 1 To N
        B(I) = Int((B(I) + 0.00005) * 10000) / 10000
    Next I
End Sub