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+)