Mercurial > hg > ishara

annotate general/numerical/array/meandims.m @ 19:1eb0ea29ec40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doesn't belong here.
author samer
date Thu, 17 Jan 2013 13:32:19 +0000
parents db7f4afd27c5
children
rev   line source
samer@4 1 function A=meandims(A,dims)
samer@4 2 % meandims - Sum over multiple dimensions
samer@4 3 %
samer@4 4 % meandims ::
samer@4 5 % [Size:[[1,E]]->A] ~'E dimensional array',
samer@4 6 % Dims:[[K]->1..E] ~'dims to sum over'
samer@4 7 % -> [Size1->A] :- Size1=arrset(Size,Dims,1).
samer@4 8 %
samer@4 9 % Result is same size as input except for summed dimensions
samer@4 10 % which are collapsed to a size of 1.
samer@4 11 for i=dims, A=mean(A,i); end