www.pudn.com > K_average.rar > main.m, change:2005-10-14,size:820b

clear all; 
close all; 
Data=[0 0 1 1 1 2 2 3 6 6 7 7 7 8 8 8 8 9 9 9 
      0 1 0 1 2 1 2 2 6 7 6 7 8 6 7 8 9 7 8 9;]; 
[DataRow,DataColumn]=size(Data); 
Step=10; 
NumKind=2; 
Center=Data(:,1:NumKind); 
[KindData,KindNum]=Clustering(Center,Data); 
NewCenter=CaculateCenter(KindData,KindNum,DataRow); 
while (sum(sum(NewCenter~=Center))) & Step 
    Center=NewCenter; 
    [KindData,KindNum]=Clustering(Center,Data); 
    NewCenter=CaculateCenter(KindData,KindNum,DataRow); 
    Step=Step-1; 
end 
 
for i=1:NumKind 
    KindData(:,1:KindNum(i),i)  
end 
 
if DataRow~=2 
    disp('The result can not display on the two-dimensional figure ') 
else 
    XMin=min(Data(1,:)); 
    YMin=min(Data(2,:)); 
    YMax=max(Data(2,:)); 
    XMax=max(Data(1,:)); 
    KindDisplay(KindData,KindNum,XMin,XMax,YMin,YMax) 
end