Loading calculus/monte-carlo.lisp +4 −4 Original line number Diff line number Diff line ;; Monte Carlo Integration ;; Liam Healy Sat Feb 3 2007 - 17:42 ;; Time-stamp: <2011-08-16 23:54:40EDT monte-carlo.lisp> ;; Time-stamp: <2011-10-30 10:01:57EDT monte-carlo.lisp> ;; ;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License Loading Loading @@ -58,7 +58,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (lower-limits upper-limits) :callbacks (callback fnstruct-dimension (dimension) (callback (:struct fnstruct-dimension) (dimension) (function :double (:input :double :cvector dim0) :slug)) :callback-dynamic (((dim0 lower-limits)) (function scalars)) :documentation ; FDL Loading Loading @@ -119,7 +119,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (lower-limits upper-limits) :callbacks (callback fnstruct-dimension (dimension) (callback (:struct fnstruct-dimension) (dimension) (function :double (:input :double :cvector dim0) :slug)) :callback-dynamic (((dim0 lower-limits)) (function scalars)) :documentation ; FDL Loading Loading @@ -180,7 +180,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (lower-limits upper-limits) :callbacks (callback fnstruct-dimension (dimension) (callback (:struct fnstruct-dimension) (dimension) (function :double (:input :double :cvector dim0) :slug)) :callback-dynamic (((dim0 lower-limits)) (function scalars)) :documentation ; FDL Loading calculus/numerical-differentiation.lisp +5 −5 Original line number Diff line number Diff line ;; Numerical differentiation. ;; Liam Healy Mon Nov 12 2007 - 22:07 ;; Time-stamp: <2009-12-27 09:42:10EST numerical-differentiation.lisp> ;; Time-stamp: <2011-10-30 10:27:07EDT numerical-differentiation.lisp> ;; ;; Copyright 2007, 2008, 2009 Liam M. Healy ;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading @@ -27,7 +27,7 @@ ((callback :pointer) (x :double) (step :double) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the numerical derivative of the function Loading @@ -50,7 +50,7 @@ ((callback :pointer) (x :double) (step :double) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the numerical derivative of the function Loading @@ -75,7 +75,7 @@ ((callback :pointer) (x :double) (step :double) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the numerical derivative of the function at the point x Loading calculus/numerical-integration-with-tables.lisp +5 −5 Original line number Diff line number Diff line ;; Numerical integration techniques that require tables ;; Liam Healy 2009-04-04 15:24:05EDT ;; Time-stamp: <2010-08-07 21:41:16EDT numerical-integration-with-tables.lisp> ;; Time-stamp: <2011-10-30 10:27:27EDT numerical-integration-with-tables.lisp> ;; ;; Copyright 2009 Liam M. Healy ;; Copyright 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -65,7 +65,7 @@ (limit sizet) ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f(x) over the interval (a,b) Loading Loading @@ -123,7 +123,7 @@ ((mpointer table) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Use an adaptive algorithm to compute the integral of f over (a,b) Loading Loading @@ -167,7 +167,7 @@ ((mpointer table) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "This function attempts to compute a Fourier integral of the Loading calculus/numerical-integration.lisp +9 −9 Original line number Diff line number Diff line ;; Numerical integration ;; Liam Healy, Wed Jul 5 2006 - 23:14 ;; Time-stamp: <2011-01-10 17:59:21EST numerical-integration.lisp> ;; Time-stamp: <2011-10-30 10:01:11EDT numerical-integration.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License Loading Loading @@ -52,7 +52,7 @@ (result (:pointer :double)) (abserr (:pointer :double)) (neval (:pointer sizet))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply the Gauss-Kronrod 10-point, 21-point, 43-point and Loading Loading @@ -92,7 +92,7 @@ (limit sizet) (method integrate-method) ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply an integration rule adaptively until an estimate Loading Loading @@ -129,7 +129,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply the Gauss-Kronrod 21-point integration rule Loading Loading @@ -163,7 +163,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (points) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply the adaptive integration algorithm QAGS taking Loading Loading @@ -193,7 +193,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f over the Loading @@ -218,7 +218,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f over the Loading @@ -239,7 +239,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f over the Loading @@ -265,7 +265,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the Cauchy principal value of the integral of Loading chebyshev.lisp +3 −3 Original line number Diff line number Diff line ;; Chebyshev Approximations ;; Liam Healy Sat Nov 17 2007 - 20:36 ;; Time-stamp: <2010-06-29 21:47:34EDT chebyshev.lisp> ;; Time-stamp: <2011-10-30 10:25:39EDT chebyshev.lisp> ;; ;; Copyright 2007, 2008, 2009, 2010 Liam M. Healy ;; Copyright 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -32,7 +32,7 @@ :documentation ; FDL "Make a Chebyshev series of specified order." :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :initialize-suffix "init" :initialize-args ((callback :pointer) (lower-limit :double) (upper-limit :double)) Loading Loading
calculus/monte-carlo.lisp +4 −4 Original line number Diff line number Diff line ;; Monte Carlo Integration ;; Liam Healy Sat Feb 3 2007 - 17:42 ;; Time-stamp: <2011-08-16 23:54:40EDT monte-carlo.lisp> ;; Time-stamp: <2011-10-30 10:01:57EDT monte-carlo.lisp> ;; ;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License Loading Loading @@ -58,7 +58,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (lower-limits upper-limits) :callbacks (callback fnstruct-dimension (dimension) (callback (:struct fnstruct-dimension) (dimension) (function :double (:input :double :cvector dim0) :slug)) :callback-dynamic (((dim0 lower-limits)) (function scalars)) :documentation ; FDL Loading Loading @@ -119,7 +119,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (lower-limits upper-limits) :callbacks (callback fnstruct-dimension (dimension) (callback (:struct fnstruct-dimension) (dimension) (function :double (:input :double :cvector dim0) :slug)) :callback-dynamic (((dim0 lower-limits)) (function scalars)) :documentation ; FDL Loading Loading @@ -180,7 +180,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (lower-limits upper-limits) :callbacks (callback fnstruct-dimension (dimension) (callback (:struct fnstruct-dimension) (dimension) (function :double (:input :double :cvector dim0) :slug)) :callback-dynamic (((dim0 lower-limits)) (function scalars)) :documentation ; FDL Loading
calculus/numerical-differentiation.lisp +5 −5 Original line number Diff line number Diff line ;; Numerical differentiation. ;; Liam Healy Mon Nov 12 2007 - 22:07 ;; Time-stamp: <2009-12-27 09:42:10EST numerical-differentiation.lisp> ;; Time-stamp: <2011-10-30 10:27:07EDT numerical-differentiation.lisp> ;; ;; Copyright 2007, 2008, 2009 Liam M. Healy ;; Copyright 2007, 2008, 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading @@ -27,7 +27,7 @@ ((callback :pointer) (x :double) (step :double) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the numerical derivative of the function Loading @@ -50,7 +50,7 @@ ((callback :pointer) (x :double) (step :double) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the numerical derivative of the function Loading @@ -75,7 +75,7 @@ ((callback :pointer) (x :double) (step :double) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the numerical derivative of the function at the point x Loading
calculus/numerical-integration-with-tables.lisp +5 −5 Original line number Diff line number Diff line ;; Numerical integration techniques that require tables ;; Liam Healy 2009-04-04 15:24:05EDT ;; Time-stamp: <2010-08-07 21:41:16EDT numerical-integration-with-tables.lisp> ;; Time-stamp: <2011-10-30 10:27:27EDT numerical-integration-with-tables.lisp> ;; ;; Copyright 2009 Liam M. Healy ;; Copyright 2009, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -65,7 +65,7 @@ (limit sizet) ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f(x) over the interval (a,b) Loading Loading @@ -123,7 +123,7 @@ ((mpointer table) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Use an adaptive algorithm to compute the integral of f over (a,b) Loading Loading @@ -167,7 +167,7 @@ ((mpointer table) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "This function attempts to compute a Fourier integral of the Loading
calculus/numerical-integration.lisp +9 −9 Original line number Diff line number Diff line ;; Numerical integration ;; Liam Healy, Wed Jul 5 2006 - 23:14 ;; Time-stamp: <2011-01-10 17:59:21EST numerical-integration.lisp> ;; Time-stamp: <2011-10-30 10:01:11EDT numerical-integration.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License Loading Loading @@ -52,7 +52,7 @@ (result (:pointer :double)) (abserr (:pointer :double)) (neval (:pointer sizet))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply the Gauss-Kronrod 10-point, 21-point, 43-point and Loading Loading @@ -92,7 +92,7 @@ (limit sizet) (method integrate-method) ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply an integration rule adaptively until an estimate Loading Loading @@ -129,7 +129,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply the Gauss-Kronrod 21-point integration rule Loading Loading @@ -163,7 +163,7 @@ (result (:pointer :double)) (abserr (:pointer :double))) :inputs (points) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Apply the adaptive integration algorithm QAGS taking Loading Loading @@ -193,7 +193,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f over the Loading @@ -218,7 +218,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f over the Loading @@ -239,7 +239,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the integral of the function f over the Loading @@ -265,7 +265,7 @@ ((mpointer workspace) :pointer) (result (:pointer :double)) (abserr (:pointer :double))) :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :callback-dynamic (nil (function)) :documentation ; FDL "Compute the Cauchy principal value of the integral of Loading
chebyshev.lisp +3 −3 Original line number Diff line number Diff line ;; Chebyshev Approximations ;; Liam Healy Sat Nov 17 2007 - 20:36 ;; Time-stamp: <2010-06-29 21:47:34EDT chebyshev.lisp> ;; Time-stamp: <2011-10-30 10:25:39EDT chebyshev.lisp> ;; ;; Copyright 2007, 2008, 2009, 2010 Liam M. Healy ;; Copyright 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify Loading Loading @@ -32,7 +32,7 @@ :documentation ; FDL "Make a Chebyshev series of specified order." :callbacks (callback fnstruct nil (function :double (:input :double) :slug)) (callback (:struct fnstruct) nil (function :double (:input :double) :slug)) :initialize-suffix "init" :initialize-args ((callback :pointer) (lower-limit :double) (upper-limit :double)) Loading