Parent Directory | Revision Log | Patch
revision 1.12 by pfdietz, Sat Sep 6 23:31:41 2003 UTC | revision 1.13 by pfdietz, Sun Sep 7 02:32:55 2003 UTC | |
---|---|---|
# | Line 245 | Line 245 |
245 | until (eql one (+ one next-eps)) | until (eql one (+ one next-eps)) |
246 | do (setq eps next-eps) | do (setq eps next-eps) |
247 | finally (return (values i eps (float eps one)))))) | finally (return (values i eps (float eps one)))))) |
248 | ||
249 | ;;; Approximate equality function | |
250 | (defun approx= (x y &optional (eps (epsilon x))) | |
251 | (<= (abs (/ (- x y) (max (abs x) 1))) eps)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |