www.gusucode.com > K聚类分析源码程序 > K聚类分析源码程序/code/smpdistmat.m

    function S = smpdistmat(Sd, samples)
%SMPDISTMAT Sampled distance matrix. 
% S = SMPDISTMAT(SD, SAMPLES) returns the Ns-by-Ns distance matrix, S,
% comprised of elements from the N-by-N distance matrix SD, associated with
% indices given by the Ns-by-1 vector, SAMPLES.
%
% Copyright (2009) Sandia Corporation. Under the terms of Contract 
% DE-AC04-94AL85000 with Sandia Corporation, the U.S. Government retains 
% certain rights in this software.

S = zeros(size(samples,1),size(samples,1));

for i = 1:size(samples,1)
    for j = (i+1):size(samples,1)
        S(i,j) = Sd(samples(i),samples(j));
        S(j,i) = S(i,j);
    end
end