shili_chuandibibao.m

来自「模式识别-模糊聚类算法--传递闭包法」· M 代码 · 共 44 行

tic
close all;
clear all;
clc

R=[1,0.2,0.3,0.4,0.5,0.6;
   0.2,1,0.35,0.38,0.55,0.52;
   0.3,0.35,1,0.7,0.2,0.23;
   0.4,0.38,0.7,1,0.25,0.33;
   0.5,0.55,0.2,0.25,1,0.66;
   0.6,0.52,0.23,0.33,0.66,1];
Q=R;
C=pingfang(R);
while R~=C
    R=C;
    C=pingfang(C);
end
R=C;

S=R;
[m,n]=size(R);
lamda=0.5;
for I=1:m
    for J=1:n
        if R(I,J)>=lamda
            R(I,J)=1;
        else
            R(I,J)=0;
        end
    end
end
P=rref(R);
sprintf('经模糊处理，以上数据可以分为%d类',rank(R))
for I=1:rank(P)
    s=[];
    for J=1:n
        if P(I,J)~=0
           s=[s,J];
        end
    end
     sprintf('第%d类为',I)
     sprintf('X(%d)',s)
end