mhdj.m

来自「压缩包里面有四个函数」· M 代码 · 共 22 行

% 求模糊等价矩阵
function r_d=mhdj(r)
[m,n]=size(r);
for i=1:n
    for j=1:n
        for k=1:n
            r1(i,j,k)=min(r(i,k),r(k,j));
        end
        r1max(i,j)=r1(i,j,1);
    end
end
for i=1:n
    for j=1:n
        for k=1:n
            if r1(i,j,k)>r1max(i,j)
                r1max(i,j)=r1(i,j,k);
            end
        end
        r_d(i,j)=r1max(i,j);
    end
end