argmin.m

来自「物流分析工具包。Facility location: Continuous mi」· M 代码 · 共 33 行

function [i,j,y] = argmin(X,DIM)
%ARGMIN Indices of minimum component.
%[i,j,y] = argmin(X),     where y = X(i,j) = MIN(MIN(X))
%      i = argmin(X),     where [y,i] = MIN(X)
%      i = argmin(X,DIM), where [y,i] = MIN(X,[],dim)

% Copyright (c) 1994-2006 by Michael G. Kay
% Matlog Version 9 13-Jan-2006 (http://www.ie.ncsu.edu/kay/matlog)

% Input Error Checking ****************************************************
if ~isnumeric(X)
   error('ARGMIN defined only for numeric arrays.')
elseif nargin > 1 && nargout > 1
   error('DIM can only be used with a single output argument.')
end
% End (Input Error Checking) **********************************************

if nargin < 2
   [y,i] = min(X);
else
   [y,i] = min(X,[],DIM);
end
if nargout > 1
   if size(X,1) == 1
      j = i; i = 1;
   elseif size(X,2) == 1
      j = 1;
   else
      [y,j] = min(y); i = i(j);
   end
end