Commit 4423b911 authored by liam's avatar liam
Browse files

Minor fixes to return values and usage in example, update doc.


git-svn-id: svn+ssh://pop/opt/space/mathematics/gsl/trunk@3262 a3d8a0fb-c1db-0310-ace7-a616afeb9e30
parent d041ca8a
<!-- -*- mode: HTML; time-stamp-line-limit: -8; -*- -->
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
......@@ -310,9 +311,9 @@ svn checkout svn://common-lisp.net/project/gsll/subversion/trunk</pre>
<td>Done</td>
</tr>
<tr>
<td><a href="Multidimensional-Root_002dFinding.html">
<td><a href="Multidimensional-Root_Finding.html">
Multidimensional Root Finding</a></td>
<td>Not started</td>
<td>Started</td>
</tr>
<tr>
<td><a href="Multidimensional-Minimization.html">
......@@ -345,7 +346,9 @@ svn checkout svn://common-lisp.net/project/gsll/subversion/trunk</pre>
href="http://common-lisp.net/project/cl-gsl/">cl-gsl</a>.
A matlab-like array syntax and plotting is provided by
<a href="http://nlisp.info/">NLISP</a> which might work well with
GSLL.
GSLL. Some math functions implemented natively in CL are provided
in <a
href="http://www.princeton.edu/%7Etpapp/software.html#cl-numlib">cl-numlib</a>.
</div>
<div class="footer">
......@@ -353,7 +356,9 @@ svn checkout svn://common-lisp.net/project/gsll/subversion/trunk</pre>
<address><a href="mailto:">Liam Healy</a></address>
<!-- Created: Feb 25 2005 -->
<!-- hhmts start -->
Last modified: Jan. 6, 2008
<small>
Time-stamp: <2008-01-13 16:51:23 liam index.html>
</small>
<!-- hhmts end -->
</div>
......
......@@ -3,13 +3,13 @@
; description: One-dimensional root solver.
; date: Sun Dec 9 2007 - 15:47
; author: Liam Healy
; modified: Sat Jan 12 2008 - 21:50
; modified: Sun Jan 13 2008 - 17:00
;********************************************************
;;; Time-stamp: <2008-01-13 17:00:49 liam roots-one.lisp>
;;; $Id: $
(in-package :gsl)
;;;;****************************************************************************
;;;; Function definition
;;;;****************************************************************************
......@@ -205,7 +205,7 @@
"gsl_root_test_interval"
((lower :double) (upper :double)
(absolute-error :double) (relative-error :double))
:c-return :success-failure
:c-return :success-continue ; GSL documentation not clear on this
:documentation
"Test for the convergence of the interval [lower,upper]
with absolute error absolute-error and relative error
......@@ -228,7 +228,7 @@
"gsl_root_test_delta"
((x1 :double) (x0 :double)
(absolute-error :double) (relative-error :double))
:c-return :success-failure
:c-return :success-continue
:documentation
"Test for the convergence of the sequence ... x0, x1
with absolute error absolute-error and relative error
......@@ -240,7 +240,7 @@
(defun-gsl root-test-residual (f absolute-error)
"gsl_root_test_residual"
((f :double) (absolute-error :double))
:c-return :success-failure
:c-return :success-continue
:documentation
"Tests the residual value f against the absolute
error bound absolute-error. The test returns T if the
......@@ -409,7 +409,7 @@
(let ((max-iter 100)
(initial 5.0d0))
(with-fdfsolver
(solver *newton-fdfsolver* *quadratic* initial)
(solver *newton-fdfsolver* quadratic-df initial)
(format t "~&iter ~6t ~8troot ~22terr ~34terr(est)")
(loop for iter from 0
for itres = (iterate-fdfsolver solver)
......
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