view general/arrutils/findmd.m @ 6:0ce3c2070089

Removed duplicate code and fixed doc in timed_action.

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