[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Elisp manual, node "Comparison of Numbers"
From: |
Drew Adams |
Subject: |
Elisp manual, node "Comparison of Numbers" |
Date: |
Mon, 29 May 2006 06:20:20 -0700 |
I blindly got bit by this one. The Elisp manual gives this as an example of
how to test near equality of floating-point numbers:
(defvar fuzz-factor 1.0e-6)
(defun approx-equal (x y)
(or (and (= x 0) (= y 0))
(< (/ (abs (- x y))
(max (abs x) (abs y)))
fuzz-factor)))
When either x or y is 0.0, but not both, this gives nil no matter how close
the other number is to zero. I think this is more like what is needed:
(defun approx-equal (x y &optional fuzz)
(setq fuzz (or fuzz 1.0e-8))
(cond ((= x 0.0) (< y fuzz))
((= y 0.0) (< x fuzz))
(t (< (/ (abs (- x y)) (max (abs x) (abs y))) fuzz))))
- Elisp manual, node "Comparison of Numbers",
Drew Adams <=
- Re: Elisp manual, node "Comparison of Numbers", David Kastrup, 2006/05/29
- Re: Elisp manual, node "Comparison of Numbers", Kim F. Storm, 2006/05/29
- Re: Elisp manual, node "Comparison of Numbers", Lennart Borgman, 2006/05/29
- Re: Elisp manual, node "Comparison of Numbers", David Kastrup, 2006/05/29
- Re: Elisp manual, node "Comparison of Numbers", Lennart Borgman, 2006/05/29
- Re: Elisp manual, node "Comparison of Numbers", David Kastrup, 2006/05/29
- Re: Elisp manual, node "Comparison of Numbers", Lennart Borgman, 2006/05/29
Re: Elisp manual, node "Comparison of Numbers", Richard Stallman, 2006/05/29
Re: Elisp manual, node "Comparison of Numbers", Lennart Borgman, 2006/05/29