Mercurial > hg > ishara

annotate general/numerical/array/argmaxv.m @ 19:1eb0ea29ec40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doesn't belong here.
author samer
date Thu, 17 Jan 2013 13:32:19 +0000
parents db7f4afd27c5
children
rev   line source
samer@4 1 function indices = argmaxv(v)
samer@4 2 % argmaxv - multidimensional index of maximal element of array
samer@4 3 %
samer@4 4 % argmaxv :: [Size:[[1,E]]->A] -> [[1,E]] :- numeric(A).
samer@4 5 %
samer@4 6 % Returns the first maximum in the case of ties.
samer@4 7
samer@4 8 [m i] = max(v(:));
samer@4 9 [ind{1:numdims(v)}]=ind2sub(size(v),i);
samer@4 10 indices=[ind{:}];