calcdistance.m

来自「应用于matlab支持向量机svm的工具箱」· M 代码 · 共 24 行

function [distance]=calcdistance(x1,x2)

%
% fonction de calcul de la distance 
% notament utiles pour knn
%

if nargin<2
  x2=x1;
end

ndim = size(x1,2);
nptx1 = size(x1,1);
nptx2 = size(x2,1);

% distance de X a xapp :
mat1 =  repmat(x1, nptx2,1);

mat22 = repmat(x2,1,nptx1)';
mat2 = reshape(mat22 ,ndim, nptx1*nptx2)';
distance = mat1 - mat2 ;

distance = sum(abs(distance),2);
distance = reshape(distance,nptx1,nptx2);