Charles Elkan的快速k-means算法的代码

Charles Elkan2003年发表的《using the triangle inequality to accelerate k-means》的快速k-means算法的代码

function centdist = alldist（centers）
% output: matrix of all pairwise distances
% input: data points （centers）

k = size（centers1）;
centdist = zeros（kk）;
for j = 1:k
    centdist（1:j-1j） = calcdist（centers（1:j-1:）centers（j:））;
end
centdist = centdist+centdist‘;