[cl-gsl-cvs] CVS update: cl-gsl/test/test-sf.lisp
Edgar Denny
edenny at common-lisp.net
Wed Mar 9 03:11:05 UTC 2005
Update of /project/cl-gsl/cvsroot/cl-gsl/test
In directory common-lisp.net:/tmp/cvs-serv25663
Modified Files:
test-sf.lisp
Log Message:
Additional unit tests.
Date: Wed Mar 9 04:11:04 2005
Author: edenny
Index: cl-gsl/test/test-sf.lisp
diff -u cl-gsl/test/test-sf.lisp:1.3 cl-gsl/test/test-sf.lisp:1.4
--- cl-gsl/test/test-sf.lisp:1.3 Tue Mar 8 04:34:16 2005
+++ cl-gsl/test/test-sf.lisp Wed Mar 9 04:11:04 2005
@@ -469,9 +469,19 @@
0.8643791310538927d0 +tol0+ gsl:+success+)
;; hydrogenic-r-1
+(sf-deftest "hydrogenic-r-1" (3.0d0 2.0d0) 0.025759948256148471036d0 +tol0+)
+
;; hydrogenic-r-1-e
+(sf-deftest-e "hydrogenic-r-1-e" (3.0d0 2.0d0)
+ 0.025759948256148471036d0 +tol0+ gsl:+success+)
+
;; hydrogenic-r
+(sf-deftest "hydrogenic-r" (4 2 3.0d0 2.0d0) 0.14583027278668431009d0 +tol0+)
+
;; hydrogenic-r-e
+(sf-deftest-e "hydrogenic-r-e" (4 2 3.0d0 2.0d0)
+ 0.14583027278668431009d0 +tol0+ gsl:+success+)
+
;; coulomb-CL-e
;; coupling-3j
(sf-deftest "coupling-3j" (0 1 1 0 1 -1) (sqrt (/ 1.0d0 2.0d0)) +tol0+)
@@ -525,7 +535,11 @@
(sf-deftest-e "debye-4-e" (0.1d0) 0.960555486124335944d0 +tol0+ gsl:+success+)
;; dilog
+(sf-deftest "dilog" (0.1d0) 0.1026177910993911d0 +tol0+)
+
;; dilog-e
+(sf-deftest-e "dilog-e" (0.1d0) 0.1026177910993911d0 +tol0+ gsl:+success+)
+
;; multiply-e
;; multiply-err-e
;; ellint-kcomp
@@ -791,45 +805,136 @@
;; fermi-dirac-inc-0
;; fermi-dirac-inc-0-e
;; gamma
+(sf-deftest "gamma" ((+ 1.0d0 (/ 1.0d0 4096.0d0)))
+ 0.9998591371459403421d0 +tol0+)
+
;; gamma-e
+(sf-deftest-e "gamma-e" ((+ 1.0d0 (/ 1.0d0 4096.0d0)))
+ 0.9998591371459403421d0 +tol0+ gsl:+success+)
+
;; lngamma
+(sf-deftest "lngamma" (-0.1d0) 2.368961332728788655d0 +tol+1+)
+
;; lngamma-e
+(sf-deftest-e "lngamma-e" (-0.1d0)
+ 2.368961332728788655d0 +tol+1+ gsl:+success+)
+
;; gammastar
+(sf-deftest "gammastar" (1.5d0) 1.0563442442685598666d0 +tol0+)
+
;; gammastar-e
+(sf-deftest-e "gammastar-e" (1.5d0)
+ 1.0563442442685598666d0 +tol0+ gsl:+success+)
+
;; gammainv
+(sf-deftest "gammainv" (1.0d0) 1.0d0 +tol0+)
+
;; gammainv-e
+(sf-deftest-e "gammainv-e" (1.0d0) 1.0d0 +tol0+ gsl:+success+)
+
;; taylorcoeff
+(sf-deftest "taylorcoeff" (10 5.0d0) 2.6911444554673721340d0 +tol0+)
+
;; taylorcoeff-e
+(sf-deftest-e "taylorcoeff-e" (10 5.0d0)
+ 2.6911444554673721340d0 +tol0+ gsl:+success+)
+
;; fact
+(sf-deftest "fact" (0) 1.0d0 +tol0+)
+
;; fact-e
+(sf-deftest-e "fact-e" (0) 1.0d0 +tol0+ gsl:+success+)
+
;; doublefact
+(sf-deftest "doublefact" (0) 1.0d0 +tol0+)
+
;; doublefact-e
+(sf-deftest-e "doublefact-e" (0) 1.0d0 +tol0+ gsl:+success+)
+
;; lnfact
+(sf-deftest "lnfact" (7) 8.525161361065414300d0 +tol0+)
+
;; lnfact-e
+(sf-deftest-e "lnfact-e" (7) 8.525161361065414300d0 +tol0+ gsl:+success+)
+
;; lndoublefact
+(sf-deftest "lndoublefact" (7) 4.653960350157523371d0 +tol0+)
+
;; lndoublefact-e
+(sf-deftest-e "lndoublefact-e" (7) 4.653960350157523371d0 +tol0+ gsl:+success+)
+
;; choose
+(sf-deftest "choose" (7 3) 35.0d0 +tol0+)
+
;; choose-e
+(sf-deftest-e "choose-e" (7 3) 35.0d0 +tol0+ gsl:+success+)
+
;; lnchoose
+(sf-deftest "lnchoose" (7 3) 3.555348061489413680d0 +tol+1+)
+
;; lnchoose-e
+(sf-deftest-e "lnchoose-e" (7 3) 3.555348061489413680d0 +tol+1+ gsl:+success+)
+
;; poch
+(sf-deftest "poch" (5.0d0 2.0d0) 30.0d0 +tol+2+)
+
;; poch-e
+(sf-deftest-e "poch-e" (5.0d0 2.0d0) 30.0d0 +tol+2+ gsl:+success+)
+
;; lnpoch
+(sf-deftest "lnpoch" (5.0d0 2.0d0) 3.401197381662155375d0 +tol+1+)
+
;; lnpoch-e
+(sf-deftest-e "lnpoch-e" (5.0d0 2.0d0)
+ 3.401197381662155375d0 +tol+1+ gsl:+success+)
+
;; pochrel
+(sf-deftest "pochrel" (5.0d0 2.0d0) (/ 29.0d0 2.0d0) +tol+2+)
+
;; pochrel-e
-;; gamma-inc-Q
-;; gamma-inc-Q-e
-;; gamma-inc-P
-;; gamma-inc-P-e
+(sf-deftest-e "pochrel-e" (5.0d0 2.0d0) (/ 29.0d0 2.0d0) +tol+2+ gsl:+success+)
+
+;; gamma-inc-q
+(sf-deftest "gamma-inc-q" (1.0d0 1.01d0) 0.3642189795715233198d0 +tol0+)
+
+;; gamma-inc-q-e
+(sf-deftest-e "gamma-inc-q-e" (1.0d0 1.01d0)
+ 0.3642189795715233198d0 +tol0+ gsl:+success+)
+
+;; gamma-inc-p
+(sf-deftest "gamma-inc-p" (1.0d0 1.01d0) 0.6357810204284766802d0 +tol0+)
+
+;; gamma-inc-p-e
+(sf-deftest-e "gamma-inc-p-e" (1.0d0 1.01d0)
+ 0.6357810204284766802d0 +tol0+ gsl:+success+)
+
;; gamma-inc
+(sf-deftest "gamma-inc" (-0.5d0 0.1d0) 3.4017693366916154163d0 +tol+2+)
+
;; gamma-inc-e
+(sf-deftest-e "gamma-inc-e" (-0.5d0 0.1d0)
+ 3.4017693366916154163d0 +tol+2+ gsl:+success+)
+
;; beta
+(sf-deftest "beta" (1.0d0 5.0d0) 0.2d0 +tol0+)
+
;; beta-e
+(sf-deftest-e "beta-e" (1.0d0 5.0d0) 0.2d0 +tol0+ gsl:+success+)
+
;; lnbeta
+(sf-deftest "lnbeta" (0.1d0 0.1d0) 2.9813614810376273949d0 +tol+1+)
+
;; lnbeta-e
+(sf-deftest-e "lnbeta-e" (0.1d0 0.1d0)
+ 2.9813614810376273949d0 +tol+1+ gsl:+success+)
+
;; beta-inc
+(sf-deftest "beta-inc" (0.1d0 1.0d0 0.5d0) 0.9330329915368074160d0 +tol0+)
+
;; beta-inc-e
+(sf-deftest-e "beta-inc-e" (0.1d0 1.0d0 0.5d0)
+ 0.9330329915368074160d0 +tol0+ gsl:+success+)
+
;; gegenpoly-1
(sf-deftest "gegenpoly-1" (-0.2d0 1.0d0) -0.4d0 +tol0+)
@@ -966,45 +1071,133 @@
(sf-deftest-e "lambert-wm1-e" (1.0d0)
0.567143290409783872999969d0 +tol0+ gsl:+success+)
-;; legendre-P1
-;; legendre-P2
-;; legendre-P3
-;; legendre-P1-e
-;; legendre-P2-e
-;; legendre-P3-e
-;; legendre-Pl
-;; legendre-Pl-e
+;; legendre-p1
+(sf-deftest "legendre-p1" (0.5d0) 0.5d0 +tol0+)
+
+;; legendre-p2
+(sf-deftest "legendre-p2" (0.5d0) -0.125d0 +tol0+)
+
+;; legendre-p3
+(sf-deftest "legendre-p3" (0.5d0) -0.4375d0 +tol0+)
+
+;; legendre-p1-e
+(sf-deftest-e "legendre-p1-e" (0.5d0) 0.5d0 +tol0+ gsl:+success+)
+
+;; legendre-p2-e
+(sf-deftest-e "legendre-p2-e" (0.5d0) -0.125d0 +tol0+ gsl:+success+)
+
+;; legendre-p3-e
+(sf-deftest-e "legendre-p3-e" (0.5d0) -0.4375d0 +tol0+ gsl:+success+)
+
+;; legendre-pl
+(sf-deftest "legendre-pl" (1 0.5d0) 0.5d0 +tol0+)
+
+;; legendre-pl-e
+(sf-deftest-e "legendre-pl-e" (1 0.5d0) 0.5d0 +tol0+ gsl:+success+)
+
;; legendre-Pl-array
;; legendre-Q0
+(sf-deftest "legendre-q0" (-0.5d0) -0.5493061443340548457d0 +tol0+)
+
;; legendre-Q0-e
+(sf-deftest-e "legendre-q0-e" (-0.5d0)
+ -0.5493061443340548457d0 +tol0+ gsl:+success+)
+
;; legendre-Q1
+(sf-deftest "legendre-q1" (-0.5d0) -0.7253469278329725772d0 +tol+1+)
+
;; legendre-Q1-e
+(sf-deftest-e "legendre-q1-e" (-0.5d0)
+ -0.7253469278329725772d0 +tol+1+ gsl:+success+)
+
;; legendre-Ql
+(sf-deftest "legendre-ql" (10 -0.5d0) -0.29165813966586752393d0 +tol0+)
+
;; legendre-Ql-e
-;; legendre-Plm
-;; legendre-Plm-e
-;; legendre-sphPlm
-;; legendre-sphPlm-e
+(sf-deftest-e "legendre-ql-e" (10 -0.5d0)
+ -0.29165813966586752393d0 +tol0+ gsl:+success+)
+
+;; legendre-plm
+(sf-deftest "legendre-plm" (10 0 0.5d0) -0.18822860717773437500d0 +tol0+)
+
+;; legendre-plm-e
+(sf-deftest-e "legendre-plm-e" (10 0 0.5d0)
+ -0.18822860717773437500d0 +tol0+ gsl:+success+)
+
+;; legendre-sphplm
+(sf-deftest "legendre-sphplm" (10 0 0.5d0) -0.24332702369300133776d0 +tol0+)
+
+;; legendre-sphplm-e
+(sf-deftest-e "legendre-sphplm-e" (10 0 0.5d0)
+ -0.24332702369300133776d0 +tol0+ gsl:+success+)
+
;; legendre-array-size
-;; conicalP-half
-;; conicalP-half-e
-;; conicalP-mhalf
-;; conicalP-mhalf-e
-;; conicalP-0
-;; conicalP-0-e
-;; conicalP-1
-;; conicalP-1-e
-;; conicalP-sph-reg
-;; conicalP-sph-reg-e
-;; conicalP-cyl-reg
-;; conicalP-cyl-reg-e
-;; legendre-H3d-0
-;; legendre-H3d-0-e
-;; legendre-H3d-1
-;; legendre-H3d-1-e
-;; legendre-H3d
-;; legendre-H3d-e
-;; legendre-H3d-array
+;; conicalp-half
+(sf-deftest "conicalp-half" (0.0d0 0.5d0) 0.8573827581049917129d0 +tol0+)
+
+;; conicalp-half-e
+(sf-deftest-e "conicalp-half-e" (0.0d0 0.5d0)
+ 0.8573827581049917129d0 +tol0+ gsl:+success+)
+
+;; conicalp-mhalf
+(sf-deftest "conicalp-mhalf" (0.0d0 0.5d0) 0.8978491247257322404d0 +tol+1+)
+
+;; conicalp-mhalf-e
+(sf-deftest-e "conicalp-mhalf-e" (0.0d0 0.5d0)
+ 0.8978491247257322404d0 +tol+1+ gsl:+success+)
+
+;; conicalp-0
+(sf-deftest "conicalp-0" (0.0d0 0.5d0) 1.0731820071493643751d0 +tol+1+)
+
+;; conicalp-0-e
+(sf-deftest-e "conicalp-0-e" (0.0d0 0.5d0)
+ 1.0731820071493643751d0 +tol+1+ gsl:+success+)
+
+;; conicalp-1
+(sf-deftest "conicalp-1" (0.0d0 0.5d0) 0.14933621085538265636d0 +tol0+)
+
+;; conicalp-1-e
+(sf-deftest-e "conicalp-1-e" (0.0d0 0.5d0)
+ 0.14933621085538265636d0 +tol0+ gsl:+success+)
+
+;; conicalp-sph-reg
+(sf-deftest "conicalp-sph-reg" (2 1.0d0 -0.5d0)
+ 1.6406279287008789526d0 +tol+1+)
+
+;; conicalp-sph-reg-e
+(sf-deftest-e "conicalp-sph-reg-e" (2 1.0d0 -0.5d0)
+ 1.6406279287008789526d0 +tol+1+ gsl:+success+)
+
+;; conicalp-cyl-reg
+(sf-deftest "conicalp-cyl-reg" (2 1.0d0 -0.5d0)
+ 2.2048510472375258708d0 +tol+1+)
+
+;; conicalp-cyl-reg-e
+(sf-deftest-e "conicalp-cyl-reg-e" (2 1.0d0 -0.5d0)
+ 2.2048510472375258708d0 +tol+1+ gsl:+success+)
+
+;; legendre-h3d-0
+(sf-deftest "legendre-h3d-0" (1.0d0 1.0d0) 0.7160229153604338713d0 +tol+1+)
+
+;; legendre-h3d-0-e
+(sf-deftest-e "legendre-h3d-0-e" (1.0d0 1.0d0)
+ 0.7160229153604338713d0 +tol+1+ gsl:+success+)
+
+;; legendre-h3d-1
+(sf-deftest "legendre-h3d-1" (1.0d0 1.0d0) 0.3397013994799344639d0 +tol0+)
+
+;; legendre-h3d-1-e
+(sf-deftest-e "legendre-h3d-1-e" (1.0d0 1.0d0)
+ 0.3397013994799344639d0 +tol0+ gsl:+success+)
+
+;; legendre-h3d
+(sf-deftest "legendre-h3d" (5 1.0d0 1.0d0) 0.011498635037491577728d0 +tol0+)
+
+;; legendre-h3d-e
+(sf-deftest-e "legendre-h3d-e" (5 1.0d0 1.0d0)
+ 0.011498635037491577728d0 +tol0+ gsl:+success+)
+
+;; legendre-h3d-array
;; log-e
;; log-abs
(sf-deftest "log-abs" (-1.1d0) 0.095310179804324860045d0 +tol0+)
More information about the Cl-gsl-cvs
mailing list