idamnjanovic@1: function z = iswhole(x,epsilon)
idamnjanovic@1: %ISWHOLE Determine whole numbers with finite precision.
idamnjanovic@1: %  Z = ISWHOLE(X,EPSILON) returns a matrix the same size as X, containing
idamnjanovic@1: %  1's where X is whole up to precision EPSILON, and 0's elsewhere. 
idamnjanovic@1: %
idamnjanovic@1: %  Z = ISWHOLE(X) uses the default value of EPSILON=1e-6.
idamnjanovic@1: 
idamnjanovic@1: 
idamnjanovic@1: %  Ron Rubinstein
idamnjanovic@1: %  Computer Science Department
idamnjanovic@1: %  Technion, Haifa 32000 Israel
idamnjanovic@1: %  ronrubin@cs
idamnjanovic@1: %
idamnjanovic@1: %  May 2005
idamnjanovic@1: 
idamnjanovic@1: if (nargin<2), epsilon = 1e-6; end
idamnjanovic@1: z = abs(round(x)-x) < epsilon;