Loading calculus/numerical-integration.lisp +6 −4 Original line number Diff line number Diff line ;; Numerical integration ;; Liam Healy, Wed Jul 5 2006 - 23:14 ;; Time-stamp: <2012-01-13 12:01:38EST numerical-integration.lisp> ;; Time-stamp: <2015-01-22 23:32:29EST numerical-integration.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2015 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 @@ -370,6 +370,8 @@ (grid:copy-to (vector 0.0d0 1.0d0 (sqrt 2.0d0) 3.0d0)) 0.0d0 1.0d-3 1000) (integration-QAWc 'integration-test-f459 -1.0d0 5.0d0 0.0d0 0.0d0 1.0d-3 1000) ;; Check that integration-QAG is reentrant, but note this is not the ;; recommended way to do multivariate integration (see Monte Carlo). (integration-QAG (lambda (x) (integration-QAG (lambda (y) (* (sin x) y)) 0d0 1d0 :gauss41)) 0d0 pi :gauss41)) init/callback.lisp +2 −2 Original line number Diff line number Diff line ;; Foreign callback functions. ;; Liam Healy ;; Time-stamp: <2010-07-11 19:01:17EDT callback.lisp> ;; Time-stamp: <2015-01-22 23:27:55EST callback.lisp> ;; ;; Copyright 2009 Liam M. Healy ;; Copyright 2009, 2010, 2015 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 tests/numerical-integration.lisp +10 −9 Original line number Diff line number Diff line ;; Regression test NUMERICAL-INTEGRATION for GSLL, automatically generated ;; ;; Copyright 2009, 2010 Liam M. Healy ;; Copyright 2009, 2010, 2015 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 @@ -233,7 +233,8 @@ (MULTIPLE-VALUE-LIST (INTEGRATION-QAWC 'INTEGRATION-TEST-F459 -1.0d0 5.0d0 0.0d0 0.0d0 0.001d0 1000)))) (LISP-UNIT:ASSERT-NUMERICAL-EQUAL (LIST 1.0d0 1.1102230246251565d-14) (LISP-UNIT:ASSERT-NUMERICAL-EQUAL (LIST 1.0d0 1.1102230246251565d-14) (MULTIPLE-VALUE-LIST (INTEGRATION-QAG (LAMBDA (X) Loading Loading
calculus/numerical-integration.lisp +6 −4 Original line number Diff line number Diff line ;; Numerical integration ;; Liam Healy, Wed Jul 5 2006 - 23:14 ;; Time-stamp: <2012-01-13 12:01:38EST numerical-integration.lisp> ;; Time-stamp: <2015-01-22 23:32:29EST numerical-integration.lisp> ;; ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011 Liam M. Healy ;; Copyright 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2015 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 @@ -370,6 +370,8 @@ (grid:copy-to (vector 0.0d0 1.0d0 (sqrt 2.0d0) 3.0d0)) 0.0d0 1.0d-3 1000) (integration-QAWc 'integration-test-f459 -1.0d0 5.0d0 0.0d0 0.0d0 1.0d-3 1000) ;; Check that integration-QAG is reentrant, but note this is not the ;; recommended way to do multivariate integration (see Monte Carlo). (integration-QAG (lambda (x) (integration-QAG (lambda (y) (* (sin x) y)) 0d0 1d0 :gauss41)) 0d0 pi :gauss41))
init/callback.lisp +2 −2 Original line number Diff line number Diff line ;; Foreign callback functions. ;; Liam Healy ;; Time-stamp: <2010-07-11 19:01:17EDT callback.lisp> ;; Time-stamp: <2015-01-22 23:27:55EST callback.lisp> ;; ;; Copyright 2009 Liam M. Healy ;; Copyright 2009, 2010, 2015 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
tests/numerical-integration.lisp +10 −9 Original line number Diff line number Diff line ;; Regression test NUMERICAL-INTEGRATION for GSLL, automatically generated ;; ;; Copyright 2009, 2010 Liam M. Healy ;; Copyright 2009, 2010, 2015 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 @@ -233,7 +233,8 @@ (MULTIPLE-VALUE-LIST (INTEGRATION-QAWC 'INTEGRATION-TEST-F459 -1.0d0 5.0d0 0.0d0 0.0d0 0.001d0 1000)))) (LISP-UNIT:ASSERT-NUMERICAL-EQUAL (LIST 1.0d0 1.1102230246251565d-14) (LISP-UNIT:ASSERT-NUMERICAL-EQUAL (LIST 1.0d0 1.1102230246251565d-14) (MULTIPLE-VALUE-LIST (INTEGRATION-QAG (LAMBDA (X) Loading