## Create a proximity matrix based on the Euclidian
## distance.  pfunc could be used to make the calculation general

function pmatrix = proxmat (x, pfunc)

   [N,l] = size (x);

   pmatrix = zeros (N,N);
   for r = 1:N
      for c = 1:N
         pmatrix (r,c) = euclidian (x(r,:), x(c,:));
      endfor
   endfor

endfunction
