dist2.m

来自「非线性控制 Matlab编译」· M 代码 · 共 24 行

function y = dist2(w,p)
%DIST Distances between vectors.
%	
% Adapted from dist.m by Mathworks

[s,r] = size(w);
[r2,q] = size(p);

if (r ~= r2), error('Matrix sizes do not match.'),end

y = zeros(s,q);

if r == 1
  for i=1:s
    x = w(i,:)'*ones(1,q);
    y(i,:) = abs(x-p);
  end
else
  for i=1:s
    x = w(i,:)'*ones(1,q);
    y(i,:) = sum((x-p).^ 2) .^ 0.5;
  end
end