kmeans_evaluation2.m

kmeans算法源程序 共6个文件 很好用的

function  [J] = kmeans_evaluation2(y, class_label, center,k ,c);
%
%
%

J1= kmeans_evaluation1(y, class_label, k, c);

[cr,cc] = size(center);
d = 0;
    for j = 1:1:cr-1
        for p = j+1:1:cr
            d = d + (center(j,:)-center(p,:))*(center(j,:)-center(p,:))';
        end
    end
    
    J = J1/d;