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