view general/numerical/array/meandims.m @ 29:61921dceded1

More documentation on type system.

function A=meandims(A,dims)
% meandims - Sum over multiple dimensions
%
% meandims :: 
%    [Size:[[1,E]]->A] ~'E dimensional array',
%    Dims:[[K]->1..E]  ~'dims to sum over'
% -> [Size1->A]        :- Size1=arrset(Size,Dims,1). 
%
% Result is same size as input except for summed dimensions
% which are collapsed to a size of 1.
for i=dims, A=mean(A,i); end