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.'),endy = zeros(s,q);if r == 1  for i=1:s    x = w(i,:)'*ones(1,q);    y(i,:) = abs(x-p);  endelse  for i=1:s    x = w(i,:)'*ones(1,q);    y(i,:) = sum((x-p).^ 2) .^ 0.5;  endend