cluster_plotclusters.m

動態聚類k-means演算 將輸入在程式中的數據資料 給予適當的分群

function cluster_plotclusters(fig, clusters,cl,clust,dotter);



start=1;

if cl>7
    start=cl;
end

for k=start:cl
    %if clust(k,1)
    plot (clust(k,1),clust(k,2),'+r')
    %end
    d=dotter(k,1);
    if clust(d,1)
        plot ([clust(k,1) clust(d,1)],[clust(k,2) clust(d,2)],'r')
        plot(clust(d,1), clust(d,2),'+r');
    end
    
    d=dotter(k,2);
    if clust(d,1)
        plot ([clust(k,1) clust(d,1)],[clust(k,2) clust(d,2)],'r')
        plot(clust(d,1), clust(d,2),'+r');
        
    end
    
    
    
end

drawnow;