%
% la funcion Y=extractdist(D) extrae las distancias
% de los elementos de la parte triangular superior 
% (sin contar la diagonal) de la matriz D (nxn) de 
% distancias. Los elementos se extraen ordenadamente,
% columna a columna.
%
% Entradas: D  es una matriz cuadrada (nxn).
% Salidas: Y es un vector fila de dimension n(n-1)/2.
%
function Y=extractdist(D)
[n,n]=size(D);
Y=[D(1,2:n)];
for i=2:n-1
    Y=[Y D(i,i+1:n)];
end    