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