is0.m

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

function y = is0(x,Tol)
%IS0 True for zero elements (within tolerance).
%     y = is0(x,Tol)
%       = abs(x) < Tol
%   Tol = tolerance
%       = [0.01*sqrt(eps)], default

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

% Input Error Checking ****************************************************
error(nargchk(1,2,nargin));
if nargin < 2 || isempty(Tol), Tol = 0.01*sqrt(eps); end
% End (Input Error Checking) **********************************************

y = abs(x) < Tol;