bibao.txt

闭包传递法的一个函数以及一个求最大生成树的函数,用于模糊聚类分析(matlab)

function y=bibao(r,m);
count1=0;
for i1=1:m
  for j1=1:m
      for k1=1:m
    i1;
    j1;
    k1;
       s(count1+1)=min(r(i1,k1),r(k1,j1));
    s ;  
       count1=count1+1;
      end
  end
end
%s
count1;
c=reshape(s,5,count1/5)
count2=0;
for q=1:25%m^2
        t(q)=max([c(1,q),c(2,q),c(3,q),c(4,q),c(5,q)]);%,c(6,q),c(7,q),c(8,q),c(9,q),c(10,q),c(11,q),c(12,q),c(13,q),c(14,q),c(15,q),c(16,q),c(17,q),c(18,q),c(19,q),c(20,q)]);
        count2=count2+1;
end
count2;
t
s3=reshape(t,5,count2/5);
y=s3'