K_average.rar_K.

clear all; close all; clc 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