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