Commit 8047630a authored by Liam Healy's avatar Liam Healy
Browse files

Convert the tests from cdf/test_auto.c for randist

Convert the tests from cdf/test_auto.c for random distribution; this
now gives a total number of tests more than 3600:
TOTAL: 3644 assertions passed, 5 failed, 2 execution errors.
parent d11787cd
;; Convert the GSL tests
;; Liam Healy 2010-05-22 13:03:53EDT convert.lisp
;; Time-stamp: <2010-05-22 18:26:00EDT convert.lisp>
;; Time-stamp: <2010-05-23 21:17:59EDT convert.lisp>
;;; This file is not normally loaded; it is only used to convert the
;;; GSL tests in C to CL tests. It requires cl-ppcre, lisp-util, and iterate.
......@@ -65,7 +65,7 @@
(defun find-tests-in-file (file)
(let ((filestring (file-to-string file)))
(cl-ppcre:all-matches-as-strings " TEST .*;" filestring)))
(cl-ppcre:all-matches-as-strings " TEST\s?\\(.*;" filestring)))
(defun convert-tests-in-file (file)
"Convert all the tests in the file to CL."
......
......@@ -34,6 +34,7 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.8000000000000016d0)
(MULTIPLE-VALUE-LIST (BETA-PDF 0.1d0 1.0d0 2.0d0)))
;; from cdf/test.c
(ASSERT-TO-TOLERANCE (BETA-P 0.0d0 1.2d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-100 1.2d0 1.3d0) 1.344349446564896d-120 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.001d0 1.2d0 1.3d0) 3.376300425045358d-4 +TEST-TOL6+)
......@@ -78,5 +79,52 @@
(ASSERT-TO-TOLERANCE (BETA-QINV 0.0031135616587456196d0 1.2d0 1.3d0) 0.99d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 1.5620716693236575d-4 1.2d0 1.3d0) 0.999d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 0.0d0 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.025d0 2133.0d0 7868.0d0) 0.20530562929915866d0 +TEST-TOL6+))
(ASSERT-TO-TOLERANCE (BETA-PINV 0.025d0 2133.0d0 7868.0d0) 0.20530562929915866d0 +TEST-TOL6+)
;; from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (BETA-P 0.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-10 1.3d0 2.7d0) 3.329258013904d-13 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-9 1.3d0 2.7d0) 6.642743046207d-12 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-8 1.3d0 2.7d0) 1.32540147535d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-7 1.3d0 2.7d0) 2.644523387276d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-6 1.3d0 2.7d0) 5.276513292646d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-5 1.3d0 2.7d0) 1.052793708285d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.d-4 1.3d0 2.7d0) 2.100417958505d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.001d0 1.3d0 2.7d0) 4.1872612184d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.01d0 1.3d0 2.7d0) 0.008282559388393d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.1d0 1.3d0 2.7d0) 0.151219457801d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.2d0 1.3d0 2.7d0) 0.3358123280407d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.3d0 1.3d0 2.7d0) 0.5104163996495d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.4d0 1.3d0 2.7d0) 0.662068239941d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.5d0 1.3d0 2.7d0) 0.7852786981833d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.6d0 1.3d0 2.7d0) 0.878400587895d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.8d0 1.3d0 2.7d0) 0.9801824171406d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.9d0 1.3d0 2.7d0) 0.9968736852365d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.99d0 1.3d0 2.7d0) 0.9999936324464d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.999d0 1.3d0 2.7d0) 0.9999999872699d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.9999d0 1.3d0 2.7d0) 0.9999999999746d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.99999d0 1.3d0 2.7d0) 0.9999999999999d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.99999d0 1.3d0 2.7d0) 5.069044353228d-14 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.9999d0 1.3d0 2.7d0) 2.540490259443d-11 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.999d0 1.3d0 2.7d0) 1.273010336738d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.99d0 1.3d0 2.7d0) 6.367553598351d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.9d0 1.3d0 2.7d0) 0.003126314763488d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.8d0 1.3d0 2.7d0) 0.01981758285937d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.6d0 1.3d0 2.7d0) 0.121599412105d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.5d0 1.3d0 2.7d0) 0.2147213018167d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.4d0 1.3d0 2.7d0) 0.337931760059d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.3d0 1.3d0 2.7d0) 0.4895836003505d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.2d0 1.3d0 2.7d0) 0.6641876719593d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.1d0 1.3d0 2.7d0) 0.848780542199d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.01d0 1.3d0 2.7d0) 0.9917174406116d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.001d0 1.3d0 2.7d0) 0.9995812738782d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-4 1.3d0 2.7d0) 0.9999789958204d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-5 1.3d0 2.7d0) 0.9999989472063d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-6 1.3d0 2.7d0) 0.9999999472349d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-7 1.3d0 2.7d0) 0.9999999973555d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-8 1.3d0 2.7d0) 0.9999999998675d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-9 1.3d0 2.7d0) 0.9999999999934d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-10 1.3d0 2.7d0) 0.9999999999997d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+))
......@@ -34,18 +34,134 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.03183098861837907d0)
(MULTIPLE-VALUE-LIST (CAUCHY-PDF 0.0d0 10.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.6475836176504333d0)
(MULTIPLE-VALUE-LIST (CAUCHY-P 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.35241638234956674d0)
(MULTIPLE-VALUE-LIST (CAUCHY-Q 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.9999999999999998d0)
(MULTIPLE-VALUE-LIST
(CAUCHY-PINV 0.6475836176504333d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.0000000000000002d0)
(MULTIPLE-VALUE-LIST
(CAUCHY-QINV 0.35241638234956674d0 2.0d0))))
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d10 1.3d0) 4.138028520389d-11 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.138028520389278d-11 1.3d0) -1.d10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d9 1.3d0) 4.138028520389d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.138028520389279d-10 1.3d0) -1.d9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d8 1.3d0) 4.138028520389d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.138028520389279d-9 1.3d0) -1.d8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d7 1.3d0) 4.138028520389d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.1380285203892555d-8 1.3d0) -1.d7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1000000.0d0 1.3d0) 4.138028520387d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.138028520386949d-7 1.3d0) -1000000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -100000.0d0 1.3d0) 4.138028520156d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.138028520156169d-6 1.3d0) -100000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -10000.0d0 1.3d0) 4.138028497078d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.1380284970783855d-5 1.3d0) -10000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1000.0d0 1.3d0) 4.138026189302d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 4.1380261893022424d-4 1.3d0) -1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -100.0d0 1.3d0) 0.004137795435084d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.004137795435083691d0 1.3d0) -100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -10.0d0 1.3d0) 0.04114951182497d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.041149511824973506d0 1.3d0) -10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.0d0 1.3d0) 0.2912855998398d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.29128559983984725d0 1.3d0) -1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -0.1d0 1.3d0) 0.4755627480278d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.4755627480278025d0 1.3d0) -0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -0.01d0 1.3d0) 0.4975515107069d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.49755151070688325d0 1.3d0) -0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -0.001d0 1.3d0) 0.4997551462897d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.4997551462896916d0 1.3d0) -0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d-4 1.3d0) 0.4999755146242d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d-5 1.3d0) 0.4999975514624d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d-6 1.3d0) 0.4999997551462d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d-7 1.3d0) 0.4999999755146d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d-8 1.3d0) 0.4999999975515d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d-9 1.3d0) 0.4999999997551d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P -1.d-10 1.3d0) 0.4999999999755d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 0.0d0 1.3d0) 0.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.5000000000000001d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d-10 1.3d0) 0.5000000000245d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d-9 1.3d0) 0.5000000002449d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d-8 1.3d0) 0.5000000024485d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d-7 1.3d0) 0.5000000244854d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d-6 1.3d0) 0.5000002448538d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d-5 1.3d0) 0.5000024485376d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d-4 1.3d0) 0.5000244853758d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 0.001d0 1.3d0) 0.5002448537103d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.5002448537103084d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 0.01d0 1.3d0) 0.5024484892931d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.5024484892931167d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 0.1d0 1.3d0) 0.5244372519722d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.5244372519721975d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.0d0 1.3d0) 0.7087144001602d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.7087144001601527d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 10.0d0 1.3d0) 0.958850488175d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.9588504881750265d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 100.0d0 1.3d0) 0.9958622045649d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.9958622045649164d0 1.3d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1000.0d0 1.3d0) 0.9995861973811d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-PINV 0.9995861973810698d0 1.3d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 10000.0d0 1.3d0) 0.999958619715d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 100000.0d0 1.3d0) 0.9999958619715d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1000000.0d0 1.3d0) 0.9999995861971d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d7 1.3d0) 0.9999999586197d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d8 1.3d0) 0.999999995862d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d9 1.3d0) 0.9999999995862d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-P 1.d10 1.3d0) 0.9999999999586d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d10 1.3d0) 4.138028520389d-11 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.138028520389278d-11 1.3d0) 1.d10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d9 1.3d0) 4.138028520389d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.138028520389279d-10 1.3d0) 1.d9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d8 1.3d0) 4.138028520389d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.138028520389279d-9 1.3d0) 1.d8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d7 1.3d0) 4.138028520389d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.1380285203892555d-8 1.3d0) 1.d7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1000000.0d0 1.3d0) 4.138028520387d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.138028520386949d-7 1.3d0) 1000000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 100000.0d0 1.3d0) 4.138028520156d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.138028520156169d-6 1.3d0) 100000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 10000.0d0 1.3d0) 4.138028497078d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.1380284970783855d-5 1.3d0) 10000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1000.0d0 1.3d0) 4.138026189302d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 4.1380261893022424d-4 1.3d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 100.0d0 1.3d0) 0.004137795435084d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.004137795435083691d0 1.3d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 10.0d0 1.3d0) 0.04114951182497d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.041149511824973506d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.0d0 1.3d0) 0.2912855998398d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.29128559983984725d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 0.1d0 1.3d0) 0.4755627480278d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.4755627480278025d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 0.01d0 1.3d0) 0.4975515107069d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.49755151070688325d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 0.001d0 1.3d0) 0.4997551462897d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.4997551462896916d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d-4 1.3d0) 0.4999755146242d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d-5 1.3d0) 0.4999975514624d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d-6 1.3d0) 0.4999997551462d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d-7 1.3d0) 0.4999999755146d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d-8 1.3d0) 0.4999999975515d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d-9 1.3d0) 0.4999999997551d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 1.d-10 1.3d0) 0.4999999999755d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q 0.0d0 1.3d0) 0.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.5000000000000001d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d-10 1.3d0) 0.5000000000245d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d-9 1.3d0) 0.5000000002449d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d-8 1.3d0) 0.5000000024485d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d-7 1.3d0) 0.5000000244854d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d-6 1.3d0) 0.5000002448538d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d-5 1.3d0) 0.5000024485376d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d-4 1.3d0) 0.5000244853758d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -0.001d0 1.3d0) 0.5002448537103d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.5002448537103084d0 1.3d0) -0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -0.01d0 1.3d0) 0.5024484892931d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.5024484892931167d0 1.3d0) -0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -0.1d0 1.3d0) 0.5244372519722d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.5244372519721975d0 1.3d0) -0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.0d0 1.3d0) 0.7087144001602d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.7087144001601527d0 1.3d0) -1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -10.0d0 1.3d0) 0.958850488175d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.9588504881750265d0 1.3d0) -10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -100.0d0 1.3d0) 0.9958622045649d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.9958622045649164d0 1.3d0) -100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1000.0d0 1.3d0) 0.9995861973811d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-QINV 0.9995861973810698d0 1.3d0) -1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -10000.0d0 1.3d0) 0.999958619715d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -100000.0d0 1.3d0) 0.9999958619715d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1000000.0d0 1.3d0) 0.9999995861971d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d7 1.3d0) 0.9999999586197d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d8 1.3d0) 0.999999995862d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d9 1.3d0) 0.9999999995862d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CAUCHY-Q -1.d10 1.3d0) 0.9999999999586d0 +TEST-TOL6+))
......@@ -34,6 +34,7 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.43939128946772227d0)
(MULTIPLE-VALUE-LIST (CHI-SQUARED-PDF 0.5d0 1.0d0)))
;; Automatically converted from cdf/test.c
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.0d0 13.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-100 13.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.001d0 13.0d0) 1.86631102655846d-25 +TEST-TOL6+)
......@@ -87,5 +88,70 @@
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.9999961652652649d0 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.9999999965538868d0 13.0d0) 0.325d0 1.d-6)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.999999999998212d0 13.0d0) 0.1d0 1.d-5)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 1.0d0 13.0d0) 0.0d0 +DBL-EPSILON+))
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 1.0d0 13.0d0) 0.0d0 +DBL-EPSILON+)
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-10 1.3d0) 2.238884178785d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 2.2388841787852728d-7 1.3d0) 1.d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-9 1.3d0) 1.000072827212d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 1.0000728272124926d-6 1.3d0) 1.d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-8 1.3d0) 4.467161220799d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 4.467161220799411d-6 1.3d0) 1.d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-7 1.3d0) 1.995407585451d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 1.9954075854510294d-5 1.3d0) 1.d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-6 1.3d0) 8.913156700686d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 8.913156700685821d-5 1.3d0) 1.d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-5 1.3d0) 3.981353794611d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 3.9813537946105d-4 1.3d0) 1.d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d-4 1.3d0) 0.0017783738888d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.001778373888800392d0 1.3d0) 1.d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.001d0 1.3d0) 0.00794229637959d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.00794229637958962d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.01d0 1.3d0) 0.0354141390254d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.03541413902540241d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.1d0 1.3d0) 0.155426889584d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.15542688958403586d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.0d0 1.3d0) 0.5878620132779d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.5878620132778858d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 10.0d0 1.3d0) 0.9973867890205d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.9973867890205305d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 100.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 10000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 100000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1000000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d7 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d8 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d9 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.d10 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d10 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d9 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d8 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d7 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1000000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 100000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 10000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1000.0d0 1.3d0) 5.840240518729d-219 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 5.840240518728896d-219 1.3d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 100.0d0 1.3d0) 3.517864771108d-23 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 3.517864771107665d-23 1.3d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 10.0d0 1.3d0) 0.00261321097947d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.002613210979469623d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.0d0 1.3d0) 0.4121379867221d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.41213798672211427d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.1d0 1.3d0) 0.844573110416d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.8445731104159642d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.01d0 1.3d0) 0.9645858609746d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.9645858609745978d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.001d0 1.3d0) 0.9920577036204d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.9920577036204106d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-4 1.3d0) 0.9982216261112d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.9982216261111997d0 1.3d0) 1.d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-5 1.3d0) 0.9996018646205d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.9996018646205391d0 1.3d0) 1.d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-6 1.3d0) 0.999910868433d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-7 1.3d0) 0.9999800459241d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-8 1.3d0) 0.9999955328388d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-9 1.3d0) 0.9999989999272d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-10 1.3d0) 0.9999997761116d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.0d0 1.3d0) 1.0d0 +TEST-TOL6+))
......@@ -34,6 +34,7 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.1594719884624466d0)
(MULTIPLE-VALUE-LIST (FDIST-PDF 1.2d0 1.0d0 2.0d0)))
;; Automatically converted from cdf/test.c
(ASSERT-TO-TOLERANCE (FDIST-P 0.0d0 1.2d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-100 1.2d0 1.3d0) 6.98194275525039d-61 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.001d0 1.2d0 1.3d0) 0.011060848586023856d0 +TEST-TOL6+)
......@@ -242,5 +243,50 @@
(ASSERT-TO-TOLERANCE (FDIST-QINV 5.980483371819484d-96 200.0d0 500.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 2.920992658799795d-155 200.0d0 500.0d0) 20.0d0 +TEST-TOL6+)
(ASSERT-posinf (FDIST-QINV 0.0d0 200.0d0 500.0d0))
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.95d0 1.0d0 261.0d0) 3.877334032250872d0 +TEST-TOL3+))
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.95d0 1.0d0 261.0d0) 3.877334032250872d0 +TEST-TOL3+)
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (FDIST-P 0.0d0 5.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-10 5.3d0 2.7d0) 3.23138066309d-26 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-9 5.3d0 2.7d0) 1.443404714791d-23 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-8 5.3d0 2.7d0) 6.447451698511d-21 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-7 5.3d0 2.7d0) 2.879969407315d-18 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-6 5.3d0 2.7d0) 1.286428479993d-15 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-5 5.3d0 2.7d0) 5.745970138195d-13 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-4 5.3d0 2.7d0) 2.565314230632d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.001d0 5.3d0 2.7d0) 1.14002620376d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.01d0 5.3d0 2.7d0) 4.840333162527d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.1d0 5.3d0 2.7d0) 0.01360698992545d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.0d0 5.3d0 2.7d0) 0.4532720490874d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10.0d0 5.3d0 2.7d0) 0.9461328174717d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 100.0d0 5.3d0 2.7d0) 0.9973356976994d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1000.0d0 5.3d0 2.7d0) 0.999879733805d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10000.0d0 5.3d0 2.7d0) 0.9999946222456d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 100000.0d0 5.3d0 2.7d0) 0.9999997597592d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1000000.0d0 5.3d0 2.7d0) 0.9999999892687d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d7 5.3d0 2.7d0) 0.9999999995207d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d8 5.3d0 2.7d0) 0.9999999999786d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d9 5.3d0 2.7d0) 0.999999999999d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d10 5.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d10 5.3d0 2.7d0) 4.272202262298d-14 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d9 5.3d0 2.7d0) 9.56426950277d-13 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d8 5.3d0 2.7d0) 2.141173208523d-11 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d7 5.3d0 2.7d0) 4.793489218238d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1000000.0d0 5.3d0 2.7d0) 1.07312743344d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 100000.0d0 5.3d0 2.7d0) 2.402407758939d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10000.0d0 5.3d0 2.7d0) 5.377754447932d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1000.0d0 5.3d0 2.7d0) 1.202661950234d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 100.0d0 5.3d0 2.7d0) 0.002664302300604d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10.0d0 5.3d0 2.7d0) 0.05386718252832d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.0d0 5.3d0 2.7d0) 0.5467279509126d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.1d0 5.3d0 2.7d0) 0.9863930100746d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.01d0 5.3d0 2.7d0) 0.9999515966684d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.001d0 5.3d0 2.7d0) 0.9999998859974d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-4 5.3d0 2.7d0) 0.9999999997435d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-5 5.3d0 2.7d0) 0.9999999999994d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-6 5.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-7 5.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-8 5.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-9 5.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-10 5.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.0d0 5.3d0 2.7d0) 1.0d0 +TEST-TOL6+))
......@@ -34,17 +34,52 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.0d0)
(MULTIPLE-VALUE-LIST (FLAT-PDF 1.2d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.19999999999999996d0)
(MULTIPLE-VALUE-LIST (FLAT-P 1.2d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.8d0)
(MULTIPLE-VALUE-LIST (FLAT-Q 1.2d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.2d0)
(MULTIPLE-VALUE-LIST
(FLAT-PINV 0.19999999999999996d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.2d0)
(MULTIPLE-VALUE-LIST (FLAT-QINV 0.8d0 1.0d0 2.0d0))))
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (FLAT-P 0.0d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d-10 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d-9 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d-8 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d-7 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d-6 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d-5 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d-4 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 0.001d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 0.01d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 0.1d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.0d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 10.0d0 1.3d0 750.0d0) 0.01162014157874d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-PINV 0.011620141578738545d0 1.3d0 750.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 100.0d0 1.3d0 750.0d0) 0.1318285027381d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-PINV 0.13182850273808142d0 1.3d0 750.0d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1000.0d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 10000.0d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 100000.0d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1000000.0d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d7 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d8 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d9 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-P 1.d10 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d10 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d9 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d8 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d7 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1000000.0d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 100000.0d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 10000.0d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1000.0d0 1.3d0 750.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 100.0d0 1.3d0 750.0d0) 0.8681714972619d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-QINV 0.8681714972619037d0 1.3d0 750.0d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 10.0d0 1.3d0 750.0d0) 0.9883798584213d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-QINV 0.9883798584212535d0 1.3d0 750.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.0d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 0.1d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 0.01d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 0.001d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d-4 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d-5 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d-6 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d-7 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d-8 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d-9 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 1.d-10 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FLAT-Q 0.0d0 1.3d0 750.0d0) 1.0d0 +TEST-TOL6+))
......@@ -46,6 +46,7 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.475614712250357d0)
(MULTIPLE-VALUE-LIST (GAMMA-PDF 0.1d0 1.0d0 2.0d0)))
;; Automatically converted from cdf/test.c
(ASSERT-TO-TOLERANCE (GAMMA-P 0.0d0 1.0d0 1.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-100 1.0d0 1.0d0) 1.d-100 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.001d0 1.0d0 1.0d0) 9.995001666250082d-4 +TEST-TOL6+)
......@@ -153,4 +154,132 @@
(ASSERT-TO-TOLERANCE (GAMMA-QINV 0.9048374180359595d0 1.0d0 1.0d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 0.9900498337491681d0 1.0d0 1.0d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 0.999000499833375d0 1.0d0 1.0d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 1.0d0 1.0d0 1.0d0) 0.0d0 +DBL-EPSILON+))
(ASSERT-TO-TOLERANCE (GAMMA-QINV 1.0d0 1.0d0 1.0d0) 0.0d0 +DBL-EPSILON+)
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (GAMMA-P 0.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-10 1.3d0 2.7d0) 2.356478475164d-14 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 2.356478475163866d-14 1.3d0 2.7d0) 1.d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-9 1.3d0 2.7d0) 4.701792696644d-13 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 4.701792696643945d-13 1.3d0 2.7d0) 1.d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-8 1.3d0 2.7d0) 9.381309762735d-12 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 9.381309762734639d-12 1.3d0 2.7d0) 1.d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-7 1.3d0 2.7d0) 1.871817348197d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 1.8718173481972823d-10 1.3d0 2.7d0) 1.d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-6 1.3d0 2.7d0) 3.734765911711d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 3.734765911711424d-9 1.3d0 2.7d0) 1.d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-5 1.3d0 2.7d0) 7.451823639191d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 7.451823639191012d-8 1.3d0 2.7d0) 1.d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-4 1.3d0 2.7d0) 1.486806276026d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 1.4868062760263472d-6 1.3d0 2.7d0) 1.d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.001d0 1.3d0 2.7d0) 2.966009681152d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 2.9660096811518665d-5 1.3d0 2.7d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.01d0 1.3d0 2.7d0) 5.90683103295d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 5.906831032949983d-4 1.3d0 2.7d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.1d0 1.3d0 2.7d0) 0.01156629233128d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 0.011566292331279586d0 1.3d0 2.7d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.0d0 1.3d0 2.7d0) 0.1921237769663d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 0.19212377696630473d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 10.0d0 1.3d0 2.7d0) 0.9565035356115d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 0.9565035356115379d0 1.3d0 2.7d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 100.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 10000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 100000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1000000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d7 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d8 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d9 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d10 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d10 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d9 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d8 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d7 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1000000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 100000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 10000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1000.0d0 1.3d0 2.7d0) 9.292091038794d-161 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 9.292091038793986d-161 1.3d0 2.7d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 100.0d0 1.3d0 2.7d0) 2.729167976527d-16 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 2.7291679765273174d-16 1.3d0 2.7d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 10.0d0 1.3d0 2.7d0) 0.04349646438846d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 0.04349646438846219d0 1.3d0 2.7d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.0d0 1.3d0 2.7d0) 0.8078762230337d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 0.8078762230336953d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 0.1d0 1.3d0 2.7d0) 0.9884337076687d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 0.9884337076687204d0 1.3d0 2.7d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 0.01d0 1.3d0 2.7d0) 0.9994093168967d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-QINV 0.999409316896705d0 1.3d0 2.7d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 0.001d0 1.3d0 2.7d0) 0.9999703399032d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d-4 1.3d0 2.7d0) 0.9999985131937d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d-5 1.3d0 2.7d0) 0.9999999254818d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d-6 1.3d0 2.7d0) 0.9999999962652d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d-7 1.3d0 2.7d0) 0.9999999998128d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d-8 1.3d0 2.7d0) 0.9999999999906d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d-9 1.3d0 2.7d0) 0.9999999999995d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d-10 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 0.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (GAMMA-P 0.0d0 1.3d0 123.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-10 1.3d0 123.0d0) 1.644976604681d-16 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 1.6449766046812008d-16 1.3d0 123.0d0) 1.d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-9 1.3d0 123.0d0) 3.282159828312d-15 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 3.2821598283122862d-15 1.3d0 123.0d0) 1.d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-8 1.3d0 123.0d0) 6.548769816865d-14 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 6.548769816865393d-14 1.3d0 123.0d0) 1.d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-7 1.3d0 123.0d0) 1.306651361959d-12 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 1.3066513619593202d-12 1.3d0 123.0d0) 1.d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-6 1.3d0 123.0d0) 2.607112210538d-11 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 2.6071122105378624d-11 1.3d0 123.0d0) 1.d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-5 1.3d0 123.0d0) 5.201872529446d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 5.201872529445639d-10 1.3d0 123.0d0) 1.d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d-4 1.3d0 123.0d0) 1.037909593275d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 1.037909593275298d-8 1.3d0 123.0d0) 1.d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.001d0 1.3d0 123.0d0) 2.070893333124d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 2.0708933331240137d-7 1.3d0 123.0d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.01d0 1.3d0 123.0d0) 4.131804542806d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 4.131804542806129d-6 1.3d0 123.0d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.1d0 1.3d0 123.0d0) 8.240625287202d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 8.240625287201719d-5 1.3d0 123.0d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.0d0 1.3d0 123.0d0) 0.001637438876041d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 0.0016374388760411608d0 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 10.0d0 1.3d0 123.0d0) 0.03135521671622d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 0.03135521671622352d0 1.3d0 123.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 100.0d0 1.3d0 123.0d0) 0.4240385705334d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 0.42403857053338523d0 1.3d0 123.0d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1000.0d0 1.3d0 123.0d0) 0.9993635318324d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-PINV 0.9993635318323562d0 1.3d0 123.0d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 10000.0d0 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 100000.0d0 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1000000.0d0 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d7 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d8 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d9 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.d10 1.3d0 123.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d10 1.3d0 123.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d9 1.3d0 123.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-Q 1.d8 1.3d0 123.0d0) 0.0d0 +TEST-TOL6+)