2 near - compare nearness of two numbers with a standard
10 eps real, defaults to epsilon()
16 -1 if abs(x - y) < abs(eps)
17 0 if abs(x - y) = abs(eps)
18 1 if abs(x - y) > abs(eps)
21 ; print near(22/7, 3.15, .01), near(22/7, 3.15, .005)
28 FLAG qnear(NUMBER *x, NUMBER *y, NUMBER *eps)
33 ## Copyright (C) 1999 Landon Curt Noll
35 ## Calc is open software; you can redistribute it and/or modify it under
36 ## the terms of the version 2.1 of the GNU Lesser General Public License
37 ## as published by the Free Software Foundation.
39 ## Calc is distributed in the hope that it will be useful, but WITHOUT
40 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
41 ## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
42 ## Public License for more details.
44 ## A copy of version 2.1 of the GNU Lesser General Public License is
45 ## distributed with calc under the filename COPYING-LGPL. You should have
46 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
47 ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
49 ## @(#) $Revision: 30.1 $
50 ## @(#) $Id: near,v 30.1 2007/03/16 11:10:42 chongo Exp $
51 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/near,v $
53 ## Under source code control: 1995/10/25 04:03:46
54 ## File existed as early as: 1995
56 ## chongo <was here> /\oo/\ http://www.isthe.com/chongo/
57 ## Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/