[cl-gsl-cvs] CVS update: cl-gsl/test/test-sf.lisp
Edgar Denny
edenny at common-lisp.net
Mon Mar 7 02:08:46 UTC 2005
Update of /project/cl-gsl/cvsroot/cl-gsl/test
In directory common-lisp.net:/tmp/cvs-serv21976
Modified Files:
test-sf.lisp
Log Message:
Added lots of unit tests.
Date: Mon Mar 7 03:08:27 2005
Author: edenny
Index: cl-gsl/test/test-sf.lisp
diff -u cl-gsl/test/test-sf.lisp:1.1.1.1 cl-gsl/test/test-sf.lisp:1.2
--- cl-gsl/test/test-sf.lisp:1.1.1.1 Wed Mar 2 02:04:53 2005
+++ cl-gsl/test/test-sf.lisp Mon Mar 7 03:08:25 2005
@@ -21,23 +21,884 @@
(defconstant +dbl-epsilon+ 2.2204460492503131d-16)
-(defconstant +tol0+ (* 2.0d0 +dbl-epsilon+))
-(defconstant +tol1+ (* 16.0d0 +dbl-epsilon+))
-(defconstant +tol2+ (* 256.0d0 +dbl-epsilon+))
-(defconstant +tol3+ (* 2048.0d0 +dbl-epsilon+))
-(defconstant +tol4+ (* 16384.0d0 +dbl-epsilon+))
-(defconstant +tol5+ (* 131072.0d0 +dbl-epsilon+))
-(defconstant +tol6+ (* 1048576.0d0 +dbl-epsilon+))
+(defconstant +tol0+ (/ +dbl-epsilon+ 2.0d0))
+(defconstant +tol+1+ (* +tol0+ 10.0d0))
+(defconstant +tol-1+ (/ +tol0+ 10.0d0))
+(defconstant +tol+2+ (* +tol0+ 100.0d0))
+(defconstant +tol-2+ (/ +tol0+ 100.0d0))
(defconstant +sf+ "sf")
(defun tol< (x y tol)
(< (abs (- x y)) tol))
-(deftest "clausen" :category +sf+
- :test-fn #'(lambda ()
- (tol< (gsl-sf:clausen (/ gsl-math:+pi+ 20.0d0))
- 0.4478882448133546d0 +tol0+)))
+(defmacro sf-deftest (func-name-str param-list result tolerance)
+ `(deftest ,func-name-str :category +sf+
+ :test-fn #'(lambda ()
+ (tol< (,(kmrcl:concat-symbol-pkg 'gsl-sf
+ func-name-str)
+ , at param-list)
+ ,result ,tolerance))))
+(defmacro sf-deftest-e (func-name-str param-list result tolerance status)
+ `(deftest ,func-name-str :category +sf+
+ :test-fn #'(lambda ()
+ (multiple-value-bind (result error status)
+ (,(kmrcl:concat-symbol-pkg 'gsl-sf
+ func-name-str)
+ , at param-list)
+ (declare (ignore error))
+ (and (tol< result ,result ,tolerance)
+ (= status ,status))))))
-;; TEST_SF(s, gsl_sf_clausen_e, (M_PI/6.0, &r), 0.8643791310538927, TEST_TOL0, GSL_SUCCESS);
+;; airy-ai
+(sf-deftest "airy-ai" (-5.0d0 gsl:+prec-default+) 0.3507610090241142d0 +tol0+)
+
+;; airy-ai-e
+(sf-deftest-e "airy-ai-e" (-5.0d0 gsl:+prec-default+)
+ 0.3507610090241142d0 +tol0+ gsl:+success+)
+
+;; airy-bi
+(sf-deftest "airy-bi" (-5.0d0 gsl:+prec-default+) -0.1383691349016005d0 +tol0+)
+
+;; airy-bi-e
+(sf-deftest-e "airy-bi-e" (-5.0d0 gsl:+prec-default+)
+ -0.1383691349016005d0 +tol0+ gsl:+success+)
+
+;; airy-ai-scaled
+(sf-deftest "airy-ai-scaled" (-5.0d0 gsl:+prec-default+)
+ 0.3507610090241142d0 +tol0+)
+
+;; airy-ai-scaled-e
+(sf-deftest-e "airy-ai-scaled-e" (-5.0d0 gsl:+prec-default+)
+ 0.3507610090241142d0 +tol0+ gsl:+success+)
+
+;; airy-bi-scaled
+(sf-deftest "airy-bi-scaled" (-5.0d0 gsl:+prec-default+)
+ -0.1383691349016005d0 +tol0+)
+
+;; airy-bi-scaled-e
+(sf-deftest-e "airy-bi-scaled-e" (-5.0d0 gsl:+prec-default+)
+ -0.1383691349016005d0 +tol0+ gsl:+success+)
+
+;; airy-ai-deriv
+(sf-deftest "airy-ai-deriv" (-5.0d0 gsl:+prec-default+)
+ 0.3271928185544435d0 +tol+1+)
+
+;; airy-ai-deriv-e
+(sf-deftest-e "airy-ai-deriv-e" (-5.0d0 gsl:+prec-default+)
+ 0.3271928185544435d0 +tol+1+ gsl:+success+)
+
+;; airy-bi-deriv
+(sf-deftest "airy-bi-deriv" (-5.0d0 gsl:+prec-default+)
+ 0.778411773001899d0 +tol+1+)
+
+;; airy-bi-deriv-e
+(sf-deftest-e "airy-bi-deriv-e" (-5.0d0 gsl:+prec-default+)
+ 0.778411773001899d0 +tol+1+ gsl:+success+)
+
+;; airy-ai-deriv-scaled
+(sf-deftest "airy-ai-deriv-scaled" (-5.0d0 gsl:+prec-default+)
+ 0.3271928185544435d0 +tol+1+)
+
+;; airy-ai-deriv-scaled-e
+(sf-deftest-e "airy-ai-deriv-scaled-e" (-5.0d0 gsl:+prec-default+)
+ 0.3271928185544435d0 +tol+1+ gsl:+success+)
+
+;; airy-bi-deriv-scaled
+(sf-deftest "airy-bi-deriv-scaled" (-5.0d0 gsl:+prec-default+)
+ 0.778411773001899d0 +tol+1+)
+
+;; airy-bi-deriv-scaled-e
+(sf-deftest-e "airy-bi-deriv-scaled-e" (-5.0d0 gsl:+prec-default+)
+ 0.778411773001899d0 +tol+1+ gsl:+success+)
+
+;; airy-zero-ai
+(sf-deftest "airy-zero-ai" (2) -4.087949444130970617d0 +tol0+)
+
+;; airy-zero-ai-e
+(sf-deftest-e "airy-zero-ai-e" (2)
+ -4.087949444130970617d0 +tol0+ gsl:+success+)
+
+;; airy-zero-bi
+(sf-deftest "airy-zero-bi" (2) -3.271093302836352716d0 +tol0+)
+
+;; airy-zero-bi-e
+(sf-deftest-e "airy-zero-bi-e" (2)
+ -3.271093302836352716d0 +tol0+ gsl:+success+)
+
+;; airy-zero-ai-deriv
+(sf-deftest "airy-zero-ai-deriv" (2) -3.248197582179836561d0 +tol0+)
+
+;; airy-zero-ai-deriv-e
+(sf-deftest-e "airy-zero-ai-deriv-e" (2)
+ -3.248197582179836561d0 +tol0+ gsl:+success+)
+
+;; airy-zero-bi-deriv
+(sf-deftest "airy-zero-bi-deriv" (2) -4.073155089071828216d0 +tol0+)
+
+;; airy-zero-bi-deriv-e
+(sf-deftest-e "airy-zero-bi-deriv-e" (2)
+ -4.073155089071828216d0 +tol0+ gsl:+success+)
+
+;; bessel-c-j0
+;; bessel-c-j0-e
+;; bessel-c-j1
+;; bessel-c-j1-e
+;; bessel-c-jn
+;; bessel-c-jn-e
+;; bessel-c-jn-array
+;; bessel-c-y0
+;; bessel-c-y0-e
+;; bessel-c-y1
+;; bessel-c-y1-e
+;; bessel-c-yn
+;; bessel-c-yn-e
+;; bessel-c-yn-array
+;; bessel-c-i0
+;; bessel-c-i0-e
+;; bessel-c-i1
+;; bessel-c-i1-e
+;; bessel-c-in
+;; bessel-c-in-e
+;; bessel-c-in-array
+;; bessel-c-i0-scaled
+;; bessel-c-i0-scaled-e
+;; bessel-c-i1-scaled
+;; bessel-c-i1-scaled-e
+;; bessel-c-in-scaled
+;; bessel-c-in-scaled-e
+;; bessel-c-in-scaled-array
+;; bessel-c-k0
+;; bessel-c-k0-e
+;; bessel-c-k1
+;; bessel-c-k1-e
+;; bessel-c-kn
+;; bessel-c-kn-e
+;; bessel-c-kn-array
+;; bessel-c-k0-scaled
+;; bessel-c-k0-scaled-e
+;; bessel-c-k1-scaled
+;; bessel-c-k1-scaled-e
+;; bessel-c-kn-scaled
+;; bessel-c-kn-scaled-e
+;; bessel-c-kn-scaled-array
+;; bessel-s-j0
+;; bessel-s-j0-e
+;; bessel-s-j1
+;; bessel-s-j1-e
+;; bessel-s-j2
+;; bessel-s-j2-e
+;; bessel-s-jl
+;; bessel-s-ji-e
+;; bessel-s-jl-array
+;; bessel-s-y0
+;; bessel-s-y0-e
+;; bessel-s-y1
+;; bessel-s-y1-e
+;; bessel-s-y2
+;; bessel-s-y2-e
+;; bessel-s-yl
+;; bessel-s-yl-e
+;; bessel-s-yl-array
+;; bessel-s-i0-scaled
+;; bessel-s-i0-scaled-e
+;; bessel-s-i1-scaled
+;; bessel-s-i1-scaled-e
+;; bessel-s-i2-scaled
+;; bessel-s-i2-scaled-e
+;; bessel-s-il-scaled
+;; bessel-s-il-scaled-e
+;; bessel-s-il-scaled-array
+;; bessel-s-k0-scaled
+;; bessel-s-k0-scaled-e
+;; bessel-s-k1-scaled
+;; bessel-s-k1-scaled-e
+;; bessel-s-k2-scaled
+;; bessel-s-k2-scaled-e
+;; bessel-s-kl-scaled
+;; bessel-s-kl-scaled-e
+;; bessel-s-kl-scaled-array
+;; bessel-c-jnu
+;; bessel-c-jnu-e
+;; bessel-c-ynu
+;; bessel-c-ynu-e
+;; bessel-c-inu
+;; bessel-c-inu-e
+;; bessel-c-inu-scaled
+;; bessel-c-inu-scaled-e
+;; bessel-c-knu
+;; bessel-c-knu-e
+;; bessel-c-lnknu
+;; bessel-c-lnknu-e
+;; bessel-c-knu-scaled
+;; bessel-c-knu-scaled-e
+;; bessel-c-zero-j0
+;; bessel-c-zero-j0-e
+;; bessel-c-zero-j1
+;; bessel-c-zero-j1-e
+;; bessel-c-zero-jnu
+;; bessel-c-zero-jnu-e
+
+;; clausen
+(sf-deftest "clausen" ((/ gsl-math:+pi+ 20.0d0)) 0.4478882448133546d0 +tol0+)
+
+;; clausen-e
+(sf-deftest-e "clausen-e" ((/ gsl-math:+pi+ 6.0d0))
+ 0.8643791310538927d0 +tol0+ gsl:+success+)
+
+;; hydrogenic-r-1
+;; hydrogenic-r-1-e
+;; hydrogenic-r
+;; hydrogenic-r-e
+;; coulomb-CL-e
+;; coupling-3j
+(sf-deftest "coupling-3j" (0 1 1 0 1 -1) (sqrt (/ 1.0d0 2.0d0)) +tol0+)
+
+;; coupling-3j-e
+(sf-deftest-e "coupling-3j-e" (0 1 1 0 1 -1)
+ (sqrt (/ 1.0d0 2.0d0)) +tol0+ gsl:+success+)
+
+;; coupling-6j
+(sf-deftest "coupling-6j" (2 2 4 2 2 2) (/ 1.0d0 6.0d0) +tol0+)
+
+;; coupling-6j-e
+(sf-deftest-e "coupling-6j-e" (2 2 4 2 2 2) (/ 1.0d0 6.0d0) +tol0+ gsl:+success+)
+
+;; coupling-9j
+(sf-deftest "coupling-9j" (4 2 4 3 3 2 1 1 2)
+ (/ (sqrt (/ 1.0d0 6.0d0)) -10.0d0) +tol0+)
+
+;; coupling-9j-e
+(sf-deftest-e "coupling-9j-e" (4 2 4 3 3 2 1 1 2)
+ (/ (sqrt (/ 1.0d0 6.0d0)) -10.0d0) +tol0+ gsl:+success+)
+
+;; dawson
+(sf-deftest "dawson" (0.5d0) 0.4244363835020222959d0 +tol0+)
+
+;; dawson-e
+(sf-deftest-e "dawson-e" (0.5d0) 0.4244363835020222959d0 +tol0+ gsl:+success+)
+
+;; debye-1
+(sf-deftest "debye-1" (0.1d0) 0.975277750004723276d0 +tol0+)
+
+;; debye-1-e"
+(sf-deftest-e "debye-1-e" (0.1d0) 0.975277750004723276d0 +tol0+ gsl:+success+)
+
+;; debye-2
+(sf-deftest "debye-2" (0.1d0) 0.967083287045302664d0 +tol0+)
+
+;; debye-2-e
+(sf-deftest-e "debye-2-e" (0.1d0) 0.967083287045302664d0 +tol0+ gsl:+success+)
+
+;; debye-3
+(sf-deftest "debye-3" (0.1d0) 0.962999940487211048d0 +tol0+)
+
+;; debye-3-e
+(sf-deftest-e "debye-3-e" (0.1d0) 0.962999940487211048d0 +tol0+ gsl:+success+)
+
+;; debye-4
+(sf-deftest "debye-4" (0.1d0) 0.960555486124335944d0 +tol0+)
+
+;; debye-4-e
+(sf-deftest-e "debye-4-e" (0.1d0) 0.960555486124335944d0 +tol0+ gsl:+success+)
+
+;; dilog
+;; dilog-e
+;; multiply-e
+;; multiply-err-e
+;; ellint-kcomp
+(sf-deftest "ellint-kcomp" (0.99d0 gsl:+prec-default+)
+ 3.3566005233611923760d0 +tol+1+)
+
+;; ellint-kcomp-e
+(sf-deftest-e "ellint-kcomp-e" (0.99d0 gsl:+prec-default+)
+ 3.3566005233611923760d0 +tol+1+ gsl:+success+)
+
+;; ellint-ecomp
+(sf-deftest "ellint-ecomp" (0.99d0 gsl:+prec-default+)
+ 1.0284758090288040010d0 +tol+1+)
+
+;; ellint-ecomp-e
+(sf-deftest-e "ellint-ecomp-e" (0.99d0 gsl:+prec-default+)
+ 1.0284758090288040010d0 +tol+1+ gsl:+success+)
+
+;; ellint-f
+(sf-deftest "ellint-f" ((/ gsl-math:+pi+ 3.0d0) 0.99d0 gsl:+prec-default+)
+ 1.3065333392738763d0 +tol0+)
+
+;; ellint-f-e
+(sf-deftest-e "ellint-f-e" ((/ gsl-math:+pi+ 3.0d0) 0.99d0 gsl:+prec-default+)
+ 1.3065333392738763d0 +tol0+ gsl:+success+)
+
+;; ellint-e
+(sf-deftest "ellint-e" ((/ gsl-math:+pi+ 3.0d0) 0.99d0 gsl:+prec-default+)
+ 0.8704819220377943536d0 +tol+1+)
+
+;; ellint-e-e
+(sf-deftest-e "ellint-e-e" ((/ gsl-math:+pi+ 3.0d0) 0.99d0 gsl:+prec-default+)
+ 0.8704819220377943536d0 +tol+1+ gsl:+success+)
+
+;; ellint-p
+(sf-deftest "ellint-p" ((/ gsl-math:+pi+ 3.0d0) 0.99d0 0.5d0 gsl:+prec-default+)
+ 1.1288726598764096d0 +tol0+)
+
+;; ellint-p-e
+(sf-deftest-e "ellint-p-e"
+ ((/ gsl-math:+pi+ 3.0d0) 0.99d0 0.5d0 gsl:+prec-default+)
+ 1.1288726598764096d0 +tol0+ gsl:+success+)
+
+;; ellint-D
+;; ellint-D-e
+;; ellint-rc
+(sf-deftest "ellint-rc" (1.0d0 2.0d0 gsl:+prec-default+)
+ 0.7853981633974482d0 +tol+1+)
+
+;; ellint-rc-e
+(sf-deftest-e "ellint-rc-e" (1.0d0 2.0d0 gsl:+prec-default+)
+ 0.7853981633974482d0 +tol+1+ gsl:+success+)
+
+;; ellint-rd
+(sf-deftest "ellint-rd" (5.0d-11 1.0d-10 1.0d0 gsl:+prec-default+)
+ 34.0932594919337362d0 +tol0+)
+
+;; ellint-rd-e
+(sf-deftest-e "ellint-rd-e" (5.0d-11 1.0d-10 1.0d0 gsl:+prec-default+)
+ 34.0932594919337362d0 +tol0+ gsl:+success+)
+
+;; ellint-rf
+(sf-deftest "ellint-rf" (5.0d-11 1.0d-10 1.0d0 gsl:+prec-default+)
+ 12.364419829794393d0 +tol0+)
+
+;; ellint-rf-e
+(sf-deftest-e "ellint-rf-e" (5.0d-11 1.0d-10 1.0d0 gsl:+prec-default+)
+ 12.364419829794393d0 +tol0+ gsl:+success+)
+
+;; ellint-RJ
+;; ellint-RJ-e
+;; erf
+(sf-deftest "erf" (-10.0d0) -1.0d0 +tol0+)
+
+;; erf-e
+(sf-deftest-e "erf-e" (-10.0d0) -1.0d0 +tol0+ gsl:+success+)
+
+;; erfc
+(sf-deftest "erfc" (-10.0d0) 2.0d0 +tol0+)
+
+;; erfc-e
+(sf-deftest-e "erfc-e" (-10.0d0) 2.0d0 +tol0+ gsl:+success+)
+
+;; log-erfc
+(sf-deftest "log-erfc" (-1.0d0) (log 1.842700792949714869d0) +tol+1+)
+
+;; log-erfc-e
+(sf-deftest-e "log-erfc-e" (-1.0d0)
+ (log 1.842700792949714869d0) +tol+1+ gsl:+success+)
+
+;; erf-z
+(sf-deftest "erf-z" (1.0d0) 0.24197072451914334980d0 +tol0+)
+
+;; erf-z-e
+(sf-deftest-e "erf-z-e" (1.0d0) 0.24197072451914334980d0 +tol0+ gsl:+success+)
+
+;; erf-q
+(sf-deftest "erf-q" (10.0d0) 7.619853024160526066d-24 +tol-2+)
+
+;; erf-q-e
+(sf-deftest-e "erf-q-e" (10.0d0) 7.619853024160526066d-24 +tol-2+ gsl:+success+)
+
+;; hazard
+(sf-deftest "hazard" (1.0d0) 1.5251352761609812091d0 +tol0+)
+
+;; hazard-e
+(sf-deftest-e "hazard-e" (1.0d0) 1.5251352761609812091d0 +tol0+ gsl:+success+)
+
+;; exp-e
+;; exp-mult
+(sf-deftest "exp-mult" (-10.0d0 1.0d-6) (* 1.0d-6 (exp -10.0d0)) +tol0+)
+
+;; exp-mult-e
+(sf-deftest-e "exp-mult-e" (-10.0d0 1.0d-6)
+ (* 1.0d-6 (exp -10.0d0)) +tol0+ gsl:+success+)
+
+;; expm1
+(sf-deftest "expm1" (-0.001d0) -0.00099950016662500845d0 +tol0+)
+
+;; expm1-e
+(sf-deftest-e "expm1-e" (-0.001d0)
+ -0.00099950016662500845d0 +tol0+ gsl:+success+)
+
+;; exprel
+(sf-deftest "exprel" (-0.001d0) 0.9995001666250084d0 +tol+1+)
+
+;; exprel-e
+(sf-deftest-e "exprel-e" (-0.001d0)
+ 0.9995001666250084d0 +tol+1+ gsl:+success+)
+
+;; exprel-2
+(sf-deftest "exprel-2" (-10.0d0) 0.18000090799859524970d0 +tol0+)
+
+;; exprel-2-e
+(sf-deftest-e "exprel-2-e" (-10.0d0)
+ 0.18000090799859524970d0 +tol0+ gsl:+success+)
+
+;; exprel-n
+(sf-deftest "exprel-n" (3 -1000.0d0) 0.00299400600000000000d0 +tol0+)
+
+;; exprel-n-e
+(sf-deftest-e "exprel-n-e" (3 -1000.0d0)
+ 0.00299400600000000000d0 +tol0+ gsl:+success+)
+
+;; exp-err-e
+;; exp-mult-err-e
+;; expint-e1
+(sf-deftest "expint-e1" (-1.0d0) -1.8951178163559367555d0 +tol+1+)
+
+;; expint-e1-e
+(sf-deftest-e "expint-e1-e" (-1.0d0)
+ -1.8951178163559367555d0 +tol+1+ gsl:+success+)
+
+;; expint-e2
+(sf-deftest "expint-e2" (-1.0d0) 0.8231640121031084799d0 +tol+1+)
+
+;; expint-e2-e
+(sf-deftest-e "expint-e2-e" (-1.0d0)
+ 0.8231640121031084799d0 +tol+1+ gsl:+success+)
+
+;; expint-ei
+(sf-deftest "expint-ei" (-1.0d0) -0.21938393439552027368d0 +tol0+)
+
+;; expint-ei-e
+(sf-deftest-e "expint-ei-e" (-1.0d0)
+ -0.21938393439552027368d0 +tol0+ gsl:+success+)
+
+;; shi
+(sf-deftest "shi" (-1.0d0) -1.0572508753757285146d0 +tol+1+)
+
+;; shi-e
+(sf-deftest-e "shi-e" (-1.0d0) -1.0572508753757285146d0 +tol+1+ gsl:+success+)
+
+;; chi
+(sf-deftest "chi" (-1.0d0) 0.8378669409802082409d0 +tol+1+)
+
+;; chi-e
+(sf-deftest-e "chi-e" (-1.0d0) 0.8378669409802082409d0 +tol+1+ gsl:+success+)
+
+;; expint-3
+(sf-deftest "expint-3" (0.1d0) 0.09997500714119079665122d0 +tol0+)
+
+;; expint-3-e
+(sf-deftest-e "expint-3-e" (0.1d0)
+ 0.09997500714119079665122d0 +tol0+ gsl:+success+)
+
+;; si
+(sf-deftest "si" (-1.0d0) -0.9460830703671830149d0 +tol0+)
+
+;; si-e
+(sf-deftest-e "si-e" (-1.0d0) -0.9460830703671830149d0 +tol0+ gsl:+success+)
+
+;; ci
+(sf-deftest "ci" ((/ 1.0d0 4294967296.0d0)) -21.603494113016717041d0 +tol0+)
+
+;; ci-e
+(sf-deftest-e "ci-e" ((/ 1.0d0 4294967296.0d0))
+ -21.603494113016717041d0 +tol0+ gsl:+success+)
+
+;; atanint
+(sf-deftest "atanint" (2.0d0) 1.57601540344632342236d0 +tol0+)
+
+;; atanint-e
+(sf-deftest-e "atanint-e" (2.0d0)
+ 1.57601540344632342236d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-m1
+(sf-deftest "fermi-dirac-m1" (-1.0d0) 0.26894142136999512075d0 +tol0+)
+
+;; fermi-dirac-m1-e
+(sf-deftest-e "fermi-dirac-m1-e" (-1.0d0)
+ 0.26894142136999512075d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-0
+(sf-deftest "fermi-dirac-0" (-1.0d0) 0.313261687518222834055d0 +tol0+)
+
+;; fermi-dirac-0-e
+(sf-deftest-e "fermi-dirac-0-e" (-1.0d0)
+ 0.31326168751822283405d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-1
+(sf-deftest "fermi-dirac-1" (-2.0d0) 0.13101248471442377127d0 +tol0+)
+
+;; fermi-dirac-1-e
+(sf-deftest-e "fermi-dirac-1-e" (-2.0d0)
+ 0.13101248471442377127d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-2
+(sf-deftest "fermi-dirac-2" (-1.0d0) 0.3525648792978077590d0 +tol0+)
+
+;; fermi-dirac-2-e
+(sf-deftest-e "fermi-dirac-2-e" (-1.0d0)
+ 0.3525648792978077590d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-int
+(sf-deftest "fermi-dirac-int" (3 0.1d0) 1.0414170610956165759d0 +tol+1+)
+
+;; fermi-dirac-int-e
+(sf-deftest-e "fermi-dirac-int-e" (3 0.1d0)
+ 1.0414170610956165759d0 +tol+1+ gsl:+success+)
+
+;; fermi-dirac-mhalf
+(sf-deftest "fermi-dirac-mhalf" (-2.0d0) 0.12366562180120994266d0 +tol0+)
+
+;; fermi-dirac-mhalf-e
+(sf-deftest-e "fermi-dirac-mhalf-e" (-2.0d0)
+ 0.12366562180120994266d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-half
+(sf-deftest "fermi-dirac-half" (-2.0d0) 0.12929851332007559106d0 +tol0+)
+
+;; fermi-dirac-half-e
+(sf-deftest-e "fermi-dirac-half-e" (-2.0d0)
+ 0.12929851332007559106d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-3half
+(sf-deftest "fermi-dirac-3half" (-1.0d0) 0.3466747947990574170d0 +tol0+)
+
+;; fermi-dirac-3half-e
+(sf-deftest-e "fermi-dirac-3half-e" (-1.0d0)
+ 0.3466747947990574170d0 +tol0+ gsl:+success+)
+
+;; fermi-dirac-inc-0
+;; fermi-dirac-inc-0-e
+;; gamma
+;; gamma-e
+;; lngamma
+;; lngamma-e
+;; gammastar
+;; gammastar-e
+;; gammainv
+;; gammainv-e
+;; taylorcoeff
+;; taylorcoeff-e
+;; fact
+;; fact-e
+;; doublefact
+;; doublefact-e
+;; lnfact
+;; lnfact-e
+;; lndoublefact
+;; lndoublefact-e
+;; choose
+;; choose-e
+;; lnchoose
+;; lnchoose-e
+;; poch
+;; poch-e
+;; lnpoch
+;; lnpoch-e
+;; pochrel
+;; pochrel-e
+;; gamma-inc-Q
+;; gamma-inc-Q-e
+;; gamma-inc-P
+;; gamma-inc-P-e
+;; gamma-inc
+;; gamma-inc-e
+;; beta
+;; beta-e
+;; lnbeta
+;; lnbeta-e
+;; beta-inc
+;; beta-inc-e
+;; gegenpoly-1
+(sf-deftest "gegenpoly-1" (-0.2d0 1.0d0) -0.4d0 +tol0+)
+
+;; gegenpoly-2
+(sf-deftest "gegenpoly-2" (-0.2d0 0.5d0) 0.12d0 +tol0+)
+
+;; gegenpoly-3
+(sf-deftest "gegenpoly-3" (-0.2d0 0.5d0) 0.112d0 +tol0+)
+
+;; gegenpoly-1-e
+(sf-deftest-e "gegenpoly-1-e" (-0.2d0 1.0d0) -0.4d0 +tol0+ gsl:+success+)
+
+;; gegenpoly-2-e
+(sf-deftest-e "gegenpoly-2-e" (-0.2d0 0.5d0) 0.12d0 +tol0+ gsl:+success+)
+
+;; gegenpoly-3-e
+(sf-deftest-e "gegenpoly-3-e" (-0.2d0 0.5d0) 0.112d0 +tol0+ gsl:+success+)
+
+;; gegenpoly-n
+(sf-deftest "gegenpoly-n" (10 1.0d0 1.0d0) 11.0d0 +tol0+)
+
+;; gegenpoly-n-e
+(sf-deftest-e "gegenpoly-n-e" (10 1.0d0 1.0d0) 11.0d0 +tol0+ gsl:+success+)
+
+;; gegenpoly-array
+;; hyperg-0F1
+;; hyperg-0F1-e
+;; hyperg-1F1-int
+;; hyperg-1F1-int-e
+;; hyperg-1F1
+;; hyperg-1F1-e
+;; hyperg-U-int
+;; hyperg-U-int-e
+;; hyperg-U-int-e10-e
+;; hyperg-U
+;; hyperg-U-e
+;; hyperg-U-e10-e
+;; hyperg-2F1
+;; hyperg-2F1-e
+;; hyperg-2F1-conj
+;; hyperg-2F1-conj-e
+;; hyperg-2F1-renorm
+;; hyperg-2F1-renorm-e
+;; hyperg-2F1-conj-renorm
+;; hyperg-2F1-conj-renorm-e
+;; hyperg-2F0
+;; hyperg-2F0-e
+;; laguerre-1
+(sf-deftest "laguerre-1" (0.5d0 -1.0d0) 2.5d0 +tol0+)
+
+;; laguerre-2
+(sf-deftest "laguerre-2" (0.5d0 -1.0d0) 4.875d0 +tol0+)
+
+;; laguerre-3
+(sf-deftest "laguerre-3" (0.5d0 -1.0d0) 8.479166666666666667d0 +tol0+)
+
+;; laguerre-1-e
+(sf-deftest-e "laguerre-1-e" (0.5d0 -1.0d0) 2.5d0 +tol0+ gsl:+success+)
+
+;; laguerre-2-e
+(sf-deftest-e "laguerre-2-e" (0.5d0 -1.0d0) 4.875d0 +tol0+ gsl:+success+)
+
+;; laguerre-3-e
+(sf-deftest-e "laguerre-3-e" (0.5d0 -1.0d0)
+ 8.479166666666666667d0 +tol0+ gsl:+success+)
+
+;; laguerre-n
+(sf-deftest "laguerre-n" (4 2.0d0 0.5d0) 6.752604166666666667d0 +tol+2+)
+
+;; laguerre-n-e
+(sf-deftest-e "laguerre-n-e" (4 2.0d0 0.5d0)
+ 6.752604166666666667d0 +tol+2+ gsl:+success+)
+
+;; lambert-w0
+(sf-deftest "lambert-w0" (1.0d0) 0.567143290409783872999969d0 +tol0+)
+
+;; lambert-w0-e
+(sf-deftest-e "lambert-w0-e" (1.0d0)
+ 0.567143290409783872999969d0 +tol0+ gsl:+success+)
+
+;; lambert-wm1
+(sf-deftest "lambert-wm1" (1.0d0) 0.567143290409783872999969d0 +tol0+)
+
+;; lambert-wm1-e
+(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-Pl-array
+;; legendre-Q0
+;; legendre-Q0-e
+;; legendre-Q1
+;; legendre-Q1-e
+;; legendre-Ql
+;; legendre-Ql-e
+;; legendre-Plm
+;; legendre-Plm-e
+;; legendre-sphPlm
+;; legendre-sphPlm-e
+;; 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
+;; log-e
+;; log-abs
+(sf-deftest "log-abs" (-1.1d0) 0.095310179804324860045d0 +tol0+)
+
+;; log-abs-e
+(sf-deftest-e "log-abs-e" (-1.1d0) 0.09531017980432486004d0 +tol0+ gsl:+success+)
+
+;; log-1plusx
+(sf-deftest "log-1plusx" (0.49d0) 0.3987761199573677730d0 +tol0+)
+
+;; log-1plusx-e
+(sf-deftest-e "log-1plusx-e" (0.49d0)
+ 0.3987761199573677730d0 +tol0+ gsl:+success+)
+
+;; log-1plusx-mx
+(sf-deftest "log-1plusx-mx" (0.49d0) -0.09122388004263222704d0 +tol0+)
+
+;; log-1plusx-mx-e
+(sf-deftest-e "log-1plusx-mx-e" (0.49d0)
+ -0.09122388004263222704d0 +tol0+ gsl:+success+)
+
+;; pow-int
+;; pow-int-e
+;; psi-int
+(sf-deftest "psi-int" (1) -0.57721566490153286060d0 +tol0+)
+
+;; psi-int-e
+(sf-deftest-e "psi-int-e" (1)
+ -0.57721566490153286060d0 +tol0+ gsl:+success+)
+
+;; psi
+(sf-deftest "psi" (5000.0d0) 8.517093188082904107d0 +tol0+)
+
+;; psi-e
+(sf-deftest-e "psi-e" (5000.0d0)
+ 8.517093188082904107d0 +tol0+ gsl:+success+)
+
+;; psi-1piy
+(sf-deftest "psi-1piy" (0.8d0) -0.07088340212750589223d0 +tol0+)
+
+;; psi-1piy-e
+(sf-deftest-e "psi-1piy-e" (0.8d0)
+ -0.07088340212750589223d0 +tol0+ gsl:+success+)
+
+;; psi-1-int
+(sf-deftest "psi-1-int" (1) 1.6449340668482264364d0 +tol0+)
+
+;; psi-1-int-e
+(sf-deftest-e "psi-1-int-e" (1) 1.6449340668482264364d0 +tol0+ gsl:+success+)
+
+;; psi-1
+(sf-deftest "psi-1" (1.0d0) 1.6449340668482264365d0 +tol0+)
+
+;; psi-1-e
+(sf-deftest-e "psi-1-e" (1.0d0) 1.6449340668482264365d0 +tol0+ gsl:+success+)
+
+;; psi-n
+(sf-deftest "psi-n" (1 1.0d0) 1.6449340668482264364d0 +tol0+)
+
+;; psi-n-e
+(sf-deftest-e "psi-n-e" (1 1.0d0) 1.6449340668482264364d0 +tol0+ gsl:+success+)
+
+;; synchrotron-1
+(sf-deftest "synchrotron-1" (0.01d0) 0.444972504114210632d0 +tol0+)
+
+;; synchrotron-1-e
+(sf-deftest-e "synchrotron-1-e" (0.01d0)
+ 0.444972504114210632d0 +tol0+ gsl:+success+)
+
+;; synchrotron-2
+(sf-deftest "synchrotron-2" (0.01d0) 0.23098077342226277732d0 +tol+1+)
+
+;; synchrotron-2-e
+(sf-deftest-e "synchrotron-2-e" (0.01d0)
+ 0.23098077342226277732d0 +tol+1+ gsl:+success+)
+
+;; transport-2
+(sf-deftest "transport-2" (3.0d0) 2.41105004901695346199d0 +tol0+)
+
+;; transport-2-e
+(sf-deftest-e "transport-2-e" (3.0d0)
+ 2.41105004901695346199d0 +tol0+ gsl:+success+)
+
+;; transport-3
+(sf-deftest "transport-3" (1.0d0) 0.479841006572417499939d0 +tol0+)
+
+;; transport-3-e
+(sf-deftest-e "transport-3-e" (1.0d0)
+ 0.479841006572417499939d0 +tol0+ gsl:+success+)
+
+;; transport-4
+(sf-deftest "transport-4" (1.0d0) 0.31724404523442648241d0 +tol0+)
+
+;; transport-4-e
+(sf-deftest-e "transport-4-e" (1.0d0)
+ 0.31724404523442648241d0 +tol0+ gsl:+success+)
+
+;; transport-5
+(sf-deftest "transport-5" (1.0d0) 0.236615879239094789259153d0 +tol0+)
+
+;; transport-5-e
+(sf-deftest-e "transport-5-e" (1.0d0)
+ 0.236615879239094789259153d0 +tol0+ gsl:+success+)
+
+
+;; sin-e
+;; cos-e
+;; hypot
+;; hypot-e
+;; sinc
+;; sinc-e
+;; lnsinh
+;; lnsinh-e
+;; lncosh
+;; lncosh-e
+;; angle-restrict-symm
+;; angle-restrict-symm-e
+;; angle-restrict-pos
+;; angle-restrict-pos-e
+;; sin-err-e
+;; cos-err-e
+;; zeta-int
+(sf-deftest "zeta-int" (5) 1.0369277551433699263313655d0 +tol0+)
+
+;; zeta-int-e
+(sf-deftest-e "zeta-int-e" (5)
+ 1.0369277551433699263313655d0 +tol0+ gsl:+success+)
+
+;; zeta
+(sf-deftest "zeta" (-0.5d0) -0.207886224977354566017307d0 +tol+1+)
+
+;; zeta-e
+(sf-deftest-e "zeta-e" (-0.5d0)
+ -0.207886224977354566017307d0 +tol+1+ gsl:+success+)
+
+;; zetam1-int
+(sf-deftest "zetam1-int" (-5) -1.003968253968253968253968d0 +tol+1+)
+
+;; zetam1-int-e
+(sf-deftest-e "zetam1-int-e" (-5)
+ -1.003968253968253968253968d0 +tol+1+ gsl:+success+)
+
+;; zetam1
+(sf-deftest "zetam1" (0.5d0) -2.460354508809586812889499d0 +tol+1+)
+
+;; zetam1-e
+(sf-deftest-e "zetam1-e" (0.5d0)
+ -2.460354508809586812889499d0 +tol+1+ gsl:+success+)
+
+;; hzeta
+(sf-deftest "hzeta" (2.0d0 1.0d0) 1.6449340668482264365d0 +tol0+)
+
+;; hzeta-e
+(sf-deftest-e "hzeta-e" (2.0d0 1.0d0)
+ 1.6449340668482264365d0 +tol0+ gsl:+success+)
+
+;; eta-int
+(sf-deftest "eta-int" (5) 0.9721197704469093059d0 +tol0+)
+
+;; eta-int-e
+(sf-deftest-e "eta-int-e" (5) 0.9721197704469093059d0 +tol0+ gsl:+success+)
+
+;; eta
+(sf-deftest "eta" (-5.0d0) 0.25d0 +tol0+)
+
+;; eta-e
+(sf-deftest-e "eta-e" (-5.0d0) 0.25d0 +tol0+ gsl:+success+)
More information about the Cl-gsl-cvs
mailing list