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

first hg version after svn
author wolffd
date Tue, 10 Feb 2015 15:05:51 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:e9a9cd732c1e
1 function B = mk_unit_norm(A)
2 % MK_UNIT_NORM Make each column be a unit norm vector
3 % function B = mk_unit_norm(A)
4 %
5 % We divide each column by its magnitude
6
7
8 [nrows ncols] = size(A);
9 s = sum(A.^2);
10 ndx = find(s==0);
11 s(ndx)=1;
12 B = A ./ repmat(sqrt(s), [nrows 1]);
13