summaryrefslogtreecommitdiff
path: root/src/approx/derivative.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/approx/derivative.lisp')
-rw-r--r--src/approx/derivative.lisp17
1 files changed, 0 insertions, 17 deletions
diff --git a/src/approx/derivative.lisp b/src/approx/derivative.lisp
deleted file mode 100644
index 8aa171a..0000000
--- a/src/approx/derivative.lisp
+++ /dev/null
@@ -1,17 +0,0 @@
-(in-package :lizfcm.approx)
-
-(defun central-derivative-at (f x &optional (delta 0.01))
- (let* ((x2 (+ x delta))
- (x1 (- x delta))
- (y2 (apply f (list x2)))
- (y1 (apply f (list x1))))
- (/ (- y2 y1)
- (- x2 x1))))
-
-(defun fwd-derivative-at (f x &optional (delta 0.01))
- (let* ((x2 (+ x delta))
- (x1 x)
- (y2 (apply f (list x2)))
- (y1 (apply f (list x1))))
- (/ (- y2 y1)
- (- x2 x1))))