Mercurial > hg > ishara
diff general/arrutils/findmd.m @ 4:e44f49929e56
Adding reorganised general toolbox, now in several subdirectories.
| author | samer |
|---|---|
| date | Sat, 12 Jan 2013 19:21:22 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/general/arrutils/findmd.m Sat Jan 12 19:21:22 2013 +0000 @@ -0,0 +1,11 @@ +% 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);