kmeans_evaluation4.m

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

function  [J] = kmeans_evaluation4(y, class_label, center);
%
%
%
[k, c] = size(center);
J1= kmeans_evaluation3(y, class_label, center);

[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;