summaryrefslogtreecommitdiff
path: root/cl/src/approx/maceps.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'cl/src/approx/maceps.lisp')
-rw-r--r--cl/src/approx/maceps.lisp11
1 files changed, 0 insertions, 11 deletions
diff --git a/cl/src/approx/maceps.lisp b/cl/src/approx/maceps.lisp
deleted file mode 100644
index ad234e8..0000000
--- a/cl/src/approx/maceps.lisp
+++ /dev/null
@@ -1,11 +0,0 @@
-(in-package :lizfcm.approx)
-
-(defun compute-maceps (f a init)
- (let ((h init)
- (err init))
- (loop while (> err 0)
- do
- (setf h (/ h 2)
- err (abs (- (funcall f (+ a h))
- (funcall f a))))
- collect (list a h err))))