clcclearclose?all
Data=[0?1?2?4?5?5?6?1?1?1;0?1?1?3?3?4?5?4?5?6];%2行10列輸入待分配數據
figure
for?i=1:10????????%%畫出各點，大致判斷類別數
????plot（Data（1i）Data（2i）‘s‘）;
????hold?on;
end
C=3;
N=size（Data2）;
Data=[1:N;Data];
Z=Data（2:end1:C）;?W={};%z為初值中心，w為細胞數組，為分類做準備
?LZ=[];
while?~isequal（ZLZ）??%%判斷新中心是否與舊中心重合
????LZ=Z;%LZ存儲上一次的中心
????for?i=1:C
????????W{i}=[];%為細胞數組賦值為空，w為三類的裝載單元
????end
????for?i=1:N?
????????D=[];
????????for?j=1:C?
????????????d=?sqr