samer@32: function C=specprod(A,B)
samer@32: % specprod - kind of spectral distance matrix product thingy
samer@32: %
samer@32: % specprod :: [[N,M]], [[M,L]] -> [[N,L]].
samer@32: 
samer@32: C=zeros(size(A,1),size(B,2));
samer@32: for i=1:size(A,1)
samer@32: 	for j=1:size(B,2)
samer@32: 		C(i,j)=specdist(B(:,j),A(i,:)');
samer@32: 	end
samer@32: end