view general/numerical/pnorm.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

function N=pnorm(p,A,D)
% pnorm - general vector norm wrt exponent p
%
% pnorm :: nonneg, [[D1]], I:natural -> [[D2]].
% pnorm :: nonneg, [[N D]] -> [[ 1 D]].
%
% where D2 = set(D1,I,1), ie the Ith dimension is
% collapsed. I defaults to 1. The p-norm is defined as 
%    pnorm(p,x,i) = sum(abs(x).^p,i).^(1/p)
%
% See also pdev for alternative which uses mean instead of sum

if nargin<2, D=1; end;

if p==2
	N=sqrt(sum(abs(A).^2,D));
else
	N=sum(abs(A).^p,D).^(1/p);
end