www.pudn.com > K_average.rar > Clustering.asv, change:2005-10-11,size:517b

function [KindData,KindNum]=Clustering(Center,Data) 
[DataRow,DataColumn]=size(Data); 
[CenterRow,CenterColumn]=size(Center); 
KindData=zeros(CenterColumn,DataRow,DataColumn); 
KindNum=linspace(0,0,CenterColumn); 
for i=1:DataColumn 
    Distance=linspace(0,0,CenterColumn); 
    for j=1:CenterColumn 
        for k=1:DataRow 
            Distance(j)=Distance(j)+(Data(k,i)-Center(k,j)).^2; 
        end 
    end 
    Distance=sqrt(Distance); 
    [X,Y]=min(Distance); 
    KindData(Y,:,KindNum(Y)+1)=Data(:,)