view toolboxes/FullBNT-1.0.7/KPMstats/mk_unit_norm.m @ 0:e9a9cd732c1e tip

first hg version after svn

function B = mk_unit_norm(A)
% MK_UNIT_NORM Make each column be a unit norm vector
% function B = mk_unit_norm(A)
% 
% We divide each column by its magnitude


[nrows ncols] = size(A);
s = sum(A.^2);
ndx = find(s==0);
s(ndx)=1; 
B = A ./ repmat(sqrt(s), [nrows 1]);