samer@4: function t=mmin(A)
samer@4: % mmin - minimum over both dimensions
samer@4: %
samer@4: % mmin :: [[N,M]-A] -> A, 1..N, 1..M.
samer@4: if nargout==1, t=min(A(:));
samer@4: else
samer@4: 	[t1,i1]=min(A,[],1);
samer@4: 	[t2,i2]=min(t1,[],2);
samer@4: 	t=t2;
samer@4: 	if nargout==3, i=i1(i2); j=i2; 
samer@4: 	elseif nargout==2, i=[i1(i2) i2]; end
samer@4: end