cl/src/approx/derivative.lisp


1
2
3
4
5
6
7
8
9

(in-package :lizfcm.approx)

(defun 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))))