view general/numerical/array/argmaxv.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

function indices = argmaxv(v)
% argmaxv - multidimensional index of maximal element of array
%
% argmaxv :: [Size:[[1,E]]->A] -> [[1,E]] :- numeric(A).
%
% Returns the first maximum in the case of ties.

[m i] = max(v(:));
[ind{1:numdims(v)}]=ind2sub(size(v),i);
indices=[ind{:}];