case 5
legend(h,'cluster 1','cluster 2','cluster 3','cluster 4','cluster 5') case 6
legend(h,'cluster 1','cluster 2','cluster 3','cluster 4','cluster 5','cluster 6') case 7
legend(h,'cluster 1','cluster 2','cluster 3','cluster 4','cluster 5','cluster 6','cluster 7') case 8
legend(h,'cluster 1','cluster 2','cluster 3','cluster 4','cluster 5','cluster 6','cluster 7','cluster 8') end
hold off %类际距离L L=0;D=0; for i=1:k
L=L+juli(cluster_center(i,:),x_mean); for j=1:length(cluster{i}) xx=cluster{i}
D=D+juli(xx(j,:),cluster_center(i,:)); end end
%类内距离N
d1=[];l1=[];y=[]; for i=1:8
[D,L,cluster_center]=kmeans(i); d1=[d1;D]; l1=[l1;L]; y=[y;D+L]; end d1 l1 y
20
21