1 665c255d 2023-08-04 jrmu (defvar *dx* 0.00001)
2 665c255d 2023-08-04 jrmu (defun smooth (f)
3 665c255d 2023-08-04 jrmu   (lambda (x)
4 665c255d 2023-08-04 jrmu     (/ (+ (funcall f (- x *db*))
5 665c255d 2023-08-04 jrmu 	  (funcall f x)
6 665c255d 2023-08-04 jrmu 	  (funcall f (+ x *dx*)))
7 665c255d 2023-08-04 jrmu        3)))
8 665c255d 2023-08-04 jrmu (defun n-fold-smooth (f n)
9 665c255d 2023-08-04 jrmu   (funcall (repeated #'smooth n) f))