06-07.txt

来自「MATLABR2006a基础教程」· 文本 代码 · 共 27 行

% calculate the distance matrix of an array
function DM = distancem(A)
[amount,dim] = size(A);
plot(A(:,1),A(:,2),'.');
DM = zeros(amount);
for i=1:amount
    for j=amount:-1:i+1
        DM(i,j) = norm(A(i,:)-A(j,:));
        DM(j,i) = DM(i,j);
    end
end
if dim == 2
    plot(A(:,1),A(:,2),'.');
    hold on;
    for i=1:amount
        for j=amount:-1:i+1
            plot([A(i,1),A(j,1)],[A(i,2),A(j,2)],'--');
            dis_str = num2str(DM(i,j),3);
            text((A(i,1)+A(j,1))/2,(A(i,2)+A(j,2))/2,dis_str);
        end
    end
end
hold off;


>> A=round(rand(4,2)*10);
>> D = distancem(A);