view general/arrutils/findmd.m @ 29:61921dceded1

More documentation on type system.

% findmd - Multidimensional find
%
% findmd :: [D:[[1,E]]] -> [[N,E]->natural].
%
% Take an E dimensional array and return subscripts of nonzero
% elements.
function S=findmd(A)

E=ndims(A);
[SX{1:E}]=ind2sub(size(A),find(A));
S=cellcat(2,SX);