distm.m

支持向量域是近几年采用的一种较新的分类器

%DISTM Compute square Euclidean distance matrix
% 
%   D = DISTM(A,B)
% 
% INPUT
%   A,B   Datasets or matrices; B is optional, default B = A 
%
% OUTPUT
%   D     Square Euclidean distance dataset or matrix
%
% DESCRIPTION  
% Computation of the square Euclidean distance matrix D between two
% sets A and B. If A has M objects and B has N objects, then D is 
% [M x N]. If A and B are datasets, then D is a dataset as well with 
% the labels defined by the labels of A and the feature labels defined 
% by the labels of B. 
%
% Unlabeled objects in B are neglected, unless B is entirely unlabeled.
%
% If A is not a dataset, but a matrix of doubles then D is also not a
% dataset, but a set of doubles.
% 
% NOTE
% DISTM(A,B) is equivalent to A*PROXM(B,'d',2)).
% 
% SEE ALSO
% DATASETS, PROXM

% Copyright: R.P.W. Duin, [e-mail]
% Faculty of Applied Sciences, Delft University of Technology
% P.O. Box 5046, 2600 GA Delft, The Netherlands

% $Id: distm.m,v 1.8 2003/10/07 11:59:36 bob Exp $

function D = distm(A,B)
	prtrace(mfilename);
	if nargin < 2
		B = A;
	end
	B = cdats(B,1);
	[ma,ka] = size(A);
	[mb,kb] = size(B);

	if (ka ~= kb)
		error('Feature sizes should be equal')
	end
	
	% The order of operations below is good for the accuracy.
	D = ones(ma,1)*sum(B'.*B',1); 
	D = D + sum(A'.*A',1)'*ones(1,mb);
	D = D - 2 .* (+A)*(+B)';

	J = find(D<0);                  % Check for a numerical inaccuracy. 
	D(J) = zeros(size(J));          % D should be nonnegative.
	
	if ((nargin < 2) & (ma == mb)) % take care of symmetric distance matrix
		D = (D + D')/2;              
		D([1:ma+1:ma*ma]) = zeros(1,ma);
	end
		
	if isa(A,'dataset')   % set object and feature labels
		if isa(B,'dataset')
			D = setdata(A,D,getlab(B));
		else
			D = setdata(A,D);
		end
	end
	
return