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
|