Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
antik
gsll
Commits
9c1abb95
Commit
9c1abb95
authored
Jan 22, 2015
by
Liam M. Healy
Browse files
Revision dates
parent
9c043926
Changes
3
Hide whitespace changes
Inline
Side-by-side
calculus/numerical-integration.lisp
View file @
9c1abb95
;; Numerical integration
;; Liam Healy, Wed Jul 5 2006 - 23:14
;; Time-stamp: <201
2
-01-
13 12:01:38
EST numerical-integration.lisp>
;; Time-stamp: <201
5
-01-
22 23:32:29
EST 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
...
...
@@ -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
))
(
integration-QAG
(
lambda
(
y
)
(
*
(
sin
x
)
y
))
0d0
1d0
:gauss41
))
0d0
pi
:gauss41
))
init/callback.lisp
View file @
9c1abb95
;; Foreign callback functions.
;; Liam Healy
;; Time-stamp: <201
0
-0
7-11 19:01:17ED
T callback.lisp>
;; Time-stamp: <201
5
-0
1-22 23:27:55ES
T 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
...
...
tests/numerical-integration.lisp
View file @
9c1abb95
;; 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
...
...
@@ -233,11 +233,12 @@
(
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
)
(
MULTIPLE-VALUE-LIST
(
INTEGRATION-QAG
(
LAMBDA
(
X
)
(
INTEGRATION-QAG
(
LAMBDA
(
Y
)
(
*
(
SIN
X
)
Y
))
0.0d0
1.0d0
:GAUSS41
))
0.0d0
PI
:GAUSS41
))))
(
LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(
LIST
1.0d0
1.1102230246251565d-14
)
(
MULTIPLE-VALUE-LIST
(
INTEGRATION-QAG
(
LAMBDA
(
X
)
(
INTEGRATION-QAG
(
LAMBDA
(
Y
)
(
*
(
SIN
X
)
Y
))
0.0d0
1.0d0
:GAUSS41
))
0.0d0
PI
:GAUSS41
))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment