annotate general/numerical/array/squeeze_prod.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.
author samer
date Sun, 11 Oct 2015 10:20:42 +0100
parents db7f4afd27c5
children
rev   line source
samer@4 1 function A=squeeze_prod(A,dims)
samer@4 2 % squeeze_prod - Squeeze out first N dimensions by multiplying
samer@4 3 %
samer@4 4 % squeeze_prod :: [Size], K:natural -> [Size1] :- Size1=Size(K+1:end).
samer@4 5 %
samer@4 6 % Defined as squeeze_prod(A,K)=shiftdim(proddims(A,1:K),K)
samer@4 7 if ~isempty(dims)
samer@4 8 for i=dims, A=prod(A,i); end
samer@4 9 A=squeeze(A);
samer@4 10 end