Skip to content
Browse files

Move *loc-dvalue* from linf-fit to find-extrema

  • Loading branch information...
1 parent b8d9e5a commit bb6554e69c17371d483e11af27321779ba0d6d6a @pkhuong committed May 25, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −0 demo/vanilla-fit/find-extrema.lisp
  2. +0 −5 demo/vanilla-fit/linf-fit.lisp
View
5 demo/vanilla-fit/find-extrema.lisp
@@ -121,6 +121,11 @@
prev-x x))
finally (return (values worst-diff new-extrema maximin-distance))))))
+;; first derivative
+(defvar *loc-dvalue* (lambda (x)
+ (rational
+ (exp (float x 1d0)))))
+
(defun find-error-extrema (coefs points)
(multiple-value-bind (delta-f ddelta-f)
(approx-error *loc-value* *loc-dvalue* coefs nil)
View
5 demo/vanilla-fit/linf-fit.lisp
@@ -12,11 +12,6 @@
(rational
(exp (float x 1d0)))))
-;; first derivative
-(defvar *loc-dvalue* (lambda (x)
- (rational
- (exp (float x 1d0)))))
-
(defstruct (point
(:constructor %make-point (loc parameters value)))
loc

0 comments on commit bb6554e

Please sign in to comment.
Something went wrong with that request. Please try again.