f_jlsjbzh.m

模糊聚类分析方法的matlab程序

function[X]=F_JlSjBzh(cs,X)
%％模糊聚类分析数据标准化变换
%％X原始数据矩阵；cs=0，不变换；cs=1，标准差变换：cs=2，极差变换
if(cs==0)return;end
[n,m]=size(X);%％获得矩阵的行列数
if(cs==1)%％平移·标准差变换
  for(k=1:m)xk=0;
    for(i=1:n)xk=xk+X(i,k);end
    xk=xk/n;sk=0;
    for(i=1:n)sk=sk+(X(i,k)-xk)^2;end
    sk=sqrt(sk/n);
    for(i=1:n)X(i,k)=(X(i,k)-xk)/sk;end
  end
else%％平移·极差变换
  for(k=1:m)xmin=X(1,k);xmax=X(1,k);
    for(i=1:n)
      if(xmin>X(i,k))xmin=X(i,k);end
      if(xmax<X(i,k))xmax=X(i,k);end
    end
    for(i=1:n)X(i,k)=(X(i,k)-xmin)/(xmax-xmin);end
  end
end