view general/arrutils/findmd.m @ 4:e44f49929e56

Adding reorganised general toolbox, now in several subdirectories.

% 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);