isint.m

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

function y = isint(x,TolInt)
%ISINT True for integer elements (within tolerance).
%      y = isint(x,TolInt)
%        = abs(x-round(x)) < TolInt
% TolInt = integer 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(TolInt), TolInt = 0.01*sqrt(eps); end
% End (Input Error Checking) **********************************************

y = abs(x-round(x)) < TolInt;