Commit d70406ec authored by Liam Healy's avatar Liam Healy

One-dimensional minimizer ported to callbacks-included

Ported one-dimensional minimizer to callbacks-included, mostly by cut
and paste.  The examples work.
parent b44593b7
;; Univariate minimization
;; Liam Healy Tue Jan 8 2008 - 21:02
;; Time-stamp: <2009-01-26 21:40:02EST minimization-one.lisp>
;; Time-stamp: <2009-02-08 18:53:13EST minimization-one.lisp>
;; $Id$
(in-package :gsl)
......@@ -20,9 +20,28 @@
"Make an instance of a minimizer of the given type. Optionally
set to use the function and the initial search interval [lower,
upper], with a guess for the location of the minimum."
:superclasses (callback-included)
:ci-class-slots (gsl-function nil (function))
:initialize-suffix "set" ; should use set_with_values?
((function :pointer) (minimum :double) (lower :double) (upper :double)))
((callback :pointer) (minimum :double) (lower :double) (upper :double))
(lambda (set)
`((type &optional (function nil ,set) minimum lower upper)
(:type type)
(:functions (list function) :minimum minimum :lower lower :upper upper))))
(eval-when (:compile-toplevel :load-toplevel)
(defmethod make-callbacks-fn
((class (eql 'one-dimensional-minimizer)) args)
;; This is "make-single-function"
(declare (ignore class))
(destructuring-bind (function) args
`(defmcallback ,function
:double :double
(defmfun set-fminimizer-with-values
(minimizer function x-minimum x-lower x-upper
......@@ -180,6 +199,8 @@
(defun minimization-one-fn (x)
(1+ (cos x)))
(make-callbacks one-dimensional-minimizer minimization-one-fn)
(defparameter *minone-cb* (make-single-function minimization-one-fn))
......@@ -189,9 +210,7 @@
(let ((max-iter 100)
#-callback-toplevel-only (make-single-function minimization-one-fn)
#+callback-toplevel-only *minone-cb*
minimizer-type 'minimization-one-fn
2.0d0 0.0d0 6.0d0)))
(when print-steps
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment