Commit a5476401 authored by Liam Healy's avatar Liam Healy
Browse files

Added tests from GSL for more random distributions

Added chi-squared (which was not loaded at all), exponential,
exponential-power, fdist, gamma-randist, tdist.  Introduced new macros
assert-posinf and assert-neginf to check for expected infinite
results.  Improved the automatic test converter and noted its known
failings.
parent e9017ff3
;; Definition of GSLL system
;; Liam Healy
;; Time-stamp: <2010-05-22 10:24:43EDT gsll-tests.asd>
;; Time-stamp: <2010-05-22 18:08:01EDT gsll-tests.asd>
;;
;; Copyright 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -51,6 +51,7 @@
(:file "cauchy")
(:file "cdot")
(:file "chebyshev")
(:file "chi-squared")
(:file "cholesky")
(:file "clausen")
(:file "column")
......
;; Mathematical functions
;; Liam Healy, Wed Mar 8 2006 - 22:09
;; Time-stamp: <2010-04-18 00:22:18EDT mathematical.lisp>
;; Time-stamp: <2010-05-22 16:48:47EDT mathematical.lisp>
;;
;; Copyright 2006, 2007, 2008, 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -49,6 +49,9 @@
sb-ext:double-float-positive-infinity)))
(export '(+nan+ +positive-infinity+ +negative-infinity+))
(map-name '+positive-infinity+ "gsl_posinf")
(map-name '+negative-infinity+ "gsl_neginf")
(map-name '+nan+ "gsl_nan")
(defconstant +nan+
(ignore-errors
......
;; Additional methods for lisp-unit
;; Liam Healy 2009-04-15 23:23:30EDT augment.lisp
;; Time-stamp: <2010-05-22 10:54:02EDT augment.lisp>
;; Time-stamp: <2010-05-22 17:52:17EDT augment.lisp>
;;
;; Copyright 2009 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -42,3 +42,13 @@
(lisp-unit::assert-numerical-equal
,expected-value
,form)))
(defmacro assert-posinf (form)
`(lisp-unit::assert-true
(let ((val ,form))
(and (infinityp val) (plusp val)))))
(defmacro assert-neginf (form)
`(lisp-unit::assert-true
(let ((val ,form))
(and (infinityp val) (minusp val)))))
;; Convert the GSL tests
;; Liam Healy 2010-05-22 13:03:53EDT convert.lisp
;; Time-stamp: <2010-05-22 16:43:04EDT convert.lisp>
;; Time-stamp: <2010-05-22 18:26:00EDT 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.
;;; (convert-tests-in-file "/home/liam/mathematics/gsl/cdf/test.c")
;;; Things it won't do yet:
;;; Will not convert fixnum to double.
;;; Will not recognize infinities and substitute the appropriate assert-posinf, assert-neginf test.
;;; Will not parse/convert C math specified as an argument, e.g. 100 * TEST_TOL6.
(in-package :gsl)
;;; (convert-gsl-test "(gsl_cdf_tdist_P, (0.001, 1.0), 5.00318309780080559e-1, TEST_TOL6)")
......@@ -17,7 +22,8 @@
(cons 'assert-to-tolerance
(let ((ppcre-convert
(read-from-string
(remove
(substitute
#\space
#\, ; Get rid of commas
(cl-ppcre:regex-replace ; Replace function name
"\\((\\w*)\\W*\\((.*\\))"
......
......@@ -34,16 +34,49 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.8000000000000016d0)
(MULTIPLE-VALUE-LIST (BETA-PDF 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.19000000000000017d0)
(MULTIPLE-VALUE-LIST (BETA-P 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.8099999999999998d0)
(MULTIPLE-VALUE-LIST (BETA-Q 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.09999999999999992d0)
(MULTIPLE-VALUE-LIST (BETA-PINV 0.19d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.09999999999999988d0)
(MULTIPLE-VALUE-LIST (BETA-QINV 0.81d0 1.0d0 2.0d0))))
(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+)
(ASSERT-TO-TOLERANCE (BETA-P 0.01d0 1.2d0 1.3d0) 0.005343172640389295d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.1d0 1.2d0 1.3d0) 0.08339978283067484d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.325d0 1.2d0 1.3d0) 0.3286986541805839d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.5d0 1.2d0 1.3d0) 0.5297814294512991d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.9d0 1.2d0 1.3d0) 0.9385293972244306d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.99d0 1.2d0 1.3d0) 0.9968864383412543d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 0.999d0 1.2d0 1.3d0) 0.9998437928330677d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-P 1.0d0 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.0d0 1.2d0 1.3d0) 1.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.d-100 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.001d0 1.2d0 1.3d0) 0.9996623699574955d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.01d0 1.2d0 1.3d0) 0.9946568273596107d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.1d0 1.2d0 1.3d0) 0.9166002171693252d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.325d0 1.2d0 1.3d0) 0.671301345819416d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.5d0 1.2d0 1.3d0) 0.4702185705487009d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.9d0 1.2d0 1.3d0) 0.061470602775569344d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.99d0 1.2d0 1.3d0) 0.0031135616587456196d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 0.999d0 1.2d0 1.3d0) 1.5620716693236575d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-Q 1.0d0 1.2d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.0d0 1.2d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (BETA-PINV 1.344349446564896d-120 1.2d0 1.3d0) 1.d-100 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 3.376300425045358d-4 1.2d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.005343172640389295d0 1.2d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.08339978283067484d0 1.2d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.3286986541805839d0 1.2d0 1.3d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.5297814294512991d0 1.2d0 1.3d0) 0.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.9385293972244306d0 1.2d0 1.3d0) 0.9d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.9968864383412543d0 1.2d0 1.3d0) 0.99d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 0.9998437928330677d0 1.2d0 1.3d0) 0.999d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-PINV 1.0d0 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 1.0d0 1.2d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (BETA-QINV 1.0d0 1.2d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 0.9996623699574955d0 1.2d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 0.9946568273596107d0 1.2d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 0.9166002171693252d0 1.2d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 0.671301345819416d0 1.2d0 1.3d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 0.4702185705487009d0 1.2d0 1.3d0) 0.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (BETA-QINV 0.061470602775569344d0 1.2d0 1.3d0) 0.9d0 +TEST-TOL6+)
(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+))
......@@ -34,18 +34,58 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.43939128946772227d0)
(MULTIPLE-VALUE-LIST (CHI-SQUARED-PDF 0.5d0 1.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.5204998778130462d0)
(MULTIPLE-VALUE-LIST (CHI-SQUARED-P 0.5d0 1.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.4795001221869538d0)
(MULTIPLE-VALUE-LIST (CHI-SQUARED-Q 0.5d0 1.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.5000000000000003d0)
(MULTIPLE-VALUE-LIST
(CHI-SQUARED-PINV 0.5204998778130463d0 1.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.5000000000000003d0)
(MULTIPLE-VALUE-LIST
(CHI-SQUARED-QINV 0.4795001221869537d0 1.0d0))))
(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+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.01d0 13.0d0) 5.878822485045298d-19 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.1d0 13.0d0) 1.7879698335855542d-12 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 0.325d0 13.0d0) 3.446113137799052d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.0d0 13.0d0) 3.8347347351359515d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1.5d0 13.0d0) 4.317183892010419d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 2.0d0 13.0d0) 2.2625008465604717d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 10.0d0 13.0d0) 0.30606563201925113d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 20.0d0 13.0d0) 0.9047897439219085d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 100.0d0 13.0d0) 0.9999999999999983d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 1000.0d0 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-P 10000.0d0 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.0d0 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.d-100 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.001d0 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.01d0 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.1d0 13.0d0) 0.999999999998212d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 0.325d0 13.0d0) 0.9999999965538868d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.0d0 13.0d0) 0.9999961652652649d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1.5d0 13.0d0) 0.9999568281610799d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 2.0d0 13.0d0) 0.999773749915344d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 10.0d0 13.0d0) 0.6939343679807489d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 20.0d0 13.0d0) 0.09521025607809151d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 100.0d0 13.0d0) 1.6590260807085882d-15 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 1000.0d0 13.0d0) 1.7485119154486024d-205 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-Q 10000.0d0 13.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.0d0 13.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 1.86631102655846d-25 13.0d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 5.878822485045298d-19 13.0d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 1.7879698335855542d-12 13.0d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 3.446113137799052d-9 13.0d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 3.8347347351359515d-6 13.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 4.317183892010419d-5 13.0d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 2.2625008465604717d-4 13.0d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.30606563201925113d0 13.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.9047897439219085d0 13.0d0) 20.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.9999999999999983d0 13.0d0) 100.0d0 0.01d0)
(ASSERT-posinf (CHI-SQUARED-PINV 1.0d0 13.0d0))
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.1932381452061236d0 1.5d0) 0.21198009293179954d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 4.83d-8 19.19d0) 1.6322801868602668d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.05d0 1263131.0d0) 1260517.7711333886d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-PINV 0.05d0 2526262.0d0) 2522565.864973351d0 +TEST-TOL6+)
(ASSERT-posinf (CHI-SQUARED-QINV 0.0d0 13.0d0))
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 1.6590260807085882d-15 13.0d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.09521025607809151d0 13.0d0) 20.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.6939343679807489d0 13.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.999773749915344d0 13.0d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (CHI-SQUARED-QINV 0.9999568281610799d0 13.0d0) 1.5d0 +TEST-TOL6+)
(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+))
......@@ -35,12 +35,16 @@
(LIST 0.5641895835477557d0)
(MULTIPLE-VALUE-LIST
(EXPONENTIAL-POWER-PDF 0.0d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.9213503964748571d0)
(MULTIPLE-VALUE-LIST
(EXPONENTIAL-POWER-P 1.0d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.07864960352514248d0)
(MULTIPLE-VALUE-LIST
(EXPONENTIAL-POWER-Q 1.0d0 1.0d0 2.0d0))))
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-P -1000.0d0 0.7d0 1.8d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-P -0.1d0 0.7d0 1.8d0) 0.42053490828675155d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-P -1.d-32 0.7d0 1.8d0) 0.5d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-P 0.1d0 0.7d0 1.8d0) 0.5794650917132484d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-P 1.d-32 0.7d0 1.8d0) 0.5d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-P 1000.0d0 0.7d0 1.8d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-Q -1000.0d0 0.7d0 1.8d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-Q -0.1d0 0.7d0 1.8d0) 0.5794650917132484d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-Q -1.d-32 0.7d0 1.8d0) 0.5d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-Q 0.1d0 0.7d0 1.8d0) 0.42053490828675155d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-Q 1.d-32 0.7d0 1.8d0) 0.5d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-POWER-Q 1000.0d0 0.7d0 1.8d0) 0.0d0 +TEST-TOL6+))
......@@ -19,36 +19,29 @@
(in-package :gsl)
(LISP-UNIT:DEFINE-TEST EXPONENTIAL
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
(LIST 0.0025828444588394794d0 18.145581427987647d0
12.636598054339759d0 0.5424387252062355d0
14.624994234158105d0 7.236607929535993d0
0.4345362449683603d0 2.95303920904529d0
6.161052939065796d0 3.011686333539114d0
2.7451079819355364d0))
(MULTIPLE-VALUE-LIST
(LET ((RNG (MAKE-RANDOM-NUMBER-GENERATOR +MT19937+ 0)))
(LOOP FOR I FROM 0 TO 10 COLLECT
(sample rng :exponential :mu 10.0d0)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.1d0)
(MULTIPLE-VALUE-LIST
(EXPONENTIAL-PDF
0.0d0 10.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.3934693402873666d0)
(MULTIPLE-VALUE-LIST (EXPONENTIAL-P 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.6065306597126334d0)
(MULTIPLE-VALUE-LIST (EXPONENTIAL-Q 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 1.0d0)
(MULTIPLE-VALUE-LIST
(EXPONENTIAL-PINV
0.3934693402873666d0
2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 1.0d0)
(MULTIPLE-VALUE-LIST
(EXPONENTIAL-QINV
0.6065306597126334d0
2.0d0))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
(LIST 0.0025828444588394794d0 18.145581427987647d0
12.636598054339759d0 0.5424387252062355d0
14.624994234158105d0 7.236607929535993d0
0.4345362449683603d0 2.95303920904529d0
6.161052939065796d0 3.011686333539114d0
2.7451079819355364d0))
(MULTIPLE-VALUE-LIST
(LET ((RNG (MAKE-RANDOM-NUMBER-GENERATOR +MT19937+ 0)))
(LOOP FOR I FROM 0 TO 10 COLLECT
(sample rng :exponential :mu 10.0d0)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.1d0)
(MULTIPLE-VALUE-LIST
(EXPONENTIAL-PDF
0.0d0 10.0d0)))
(ASSERT-TO-TOLERANCE (EXPONENTIAL-P 0.1d0 0.7d0) 0.13312210024981838d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-P 1.d-32 0.7d0) 1.4285714285714287d-32 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-P 1000.0d0 0.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-Q 0.1d0 0.7d0) 0.8668778997501816d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-Q 1.d-32 0.7d0) 1.0d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-Q 1000.0d0 0.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-PINV 0.13d0 0.7d0) 0.09748344713345536d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-PINV 1.42d-32 0.7d0) 9.94d-33 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-QINV 0.86d0 0.7d0) 0.10557602281420854d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (EXPONENTIAL-QINV 0.99999d0 0.7d0) 7.000035000233335d-6 +TEST-TOL6+))
......@@ -34,19 +34,213 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.1594719884624466d0)
(MULTIPLE-VALUE-LIST (FDIST-PDF 1.2d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.6123724356957948d0)
(MULTIPLE-VALUE-LIST (FDIST-P 1.2d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.3876275643042052d0)
(MULTIPLE-VALUE-LIST (FDIST-Q 1.2d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 1.2d0)
(MULTIPLE-VALUE-LIST
(FDIST-PINV
0.612372435695795d0
1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.1999999999999995d0)
(MULTIPLE-VALUE-LIST
(FDIST-QINV 0.38762756430420503d0 1.0d0 2.0d0))))
(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+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.01d0 1.2d0 1.3d0) 0.04386367570683138d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.1d0 1.2d0 1.3d0) 0.16824239271284072d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.325d0 1.2d0 1.3d0) 0.3141300452461954d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.0d0 1.2d0 1.3d0) 0.5096307790747553d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.5d0 1.2d0 1.3d0) 0.5839986406415538d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 2.0d0 1.2d0 1.3d0) 0.6347335813519388d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10.0d0 1.2d0 1.3d0) 0.8484462378792009d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 20.0d0 1.2d0 1.3d0) 0.9009877263368751d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 100.0d0 1.2d0 1.3d0) 0.9644891270476884d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1000.0d0 1.2d0 1.3d0) 0.9920120516941164d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10000.0d0 1.2d0 1.3d0) 0.9982108628088426d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.0d0 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-100 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.001d0 1.2d0 1.3d0) 0.9889391514139761d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.01d0 1.2d0 1.3d0) 0.9561363242931686d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.1d0 1.2d0 1.3d0) 0.8317576072871593d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.325d0 1.2d0 1.3d0) 0.6858699547538045d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.0d0 1.2d0 1.3d0) 0.49036922092524476d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.5d0 1.2d0 1.3d0) 0.4160013593584461d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 2.0d0 1.2d0 1.3d0) 0.3652664186480612d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10.0d0 1.2d0 1.3d0) 0.15155376212079902d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 20.0d0 1.2d0 1.3d0) 0.09901227366312496d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 100.0d0 1.2d0 1.3d0) 0.03551087295231156d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1000.0d0 1.2d0 1.3d0) 0.007987948305883612d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10000.0d0 1.2d0 1.3d0) 0.0017891371911574144d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 3.4790822134658326d0 1.0d0 4040712.0d0) 0.9378507276372341d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 3.002774644786533d0 1.0d0 4040712.0d0) 0.9168778737947606d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 3.000854441173131d0 1.0d0 4040712.0d0) 0.9167793071981358d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 3.000064021622133d0 1.0d0 4040712.0d0) 0.9167386972447996d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.0d0 500.0d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-100 500.0d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.001d0 500.0d0 1.3d0) 9.834344603933047d-141 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.01d0 500.0d0 1.3d0) 1.4591562488855d-26 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.1d0 500.0d0 1.3d0) 5.899765096196881d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.325d0 500.0d0 1.3d0) 0.06861104860515425d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.0d0 500.0d0 1.3d0) 0.33847505380640464d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.5d0 500.0d0 1.3d0) 0.4520162452474574d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 2.0d0 500.0d0 1.3d0) 0.5273390689373888d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10.0d0 500.0d0 1.3d0) 0.8168396285784139d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 20.0d0 500.0d0 1.3d0) 0.8817846230569114d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 100.0d0 500.0d0 1.3d0) 0.9580450572042213d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1000.0d0 500.0d0 1.3d0) 0.9905857493806552d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10000.0d0 500.0d0 1.3d0) 0.9978919248314614d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.0d0 500.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-100 500.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.001d0 500.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.01d0 500.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.1d0 500.0d0 1.3d0) 0.9994100234903803d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.325d0 500.0d0 1.3d0) 0.9313889513948458d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.0d0 500.0d0 1.3d0) 0.6615249461935954d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.5d0 500.0d0 1.3d0) 0.5479837547525426d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 2.0d0 500.0d0 1.3d0) 0.4726609310626112d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10.0d0 500.0d0 1.3d0) 0.1831603714215861d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 20.0d0 500.0d0 1.3d0) 0.11821537694308859d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 100.0d0 500.0d0 1.3d0) 0.0419549427957787d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1000.0d0 500.0d0 1.3d0) 0.009414250619344734d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10000.0d0 500.0d0 1.3d0) 0.002108075168538626d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.0d0 1.2d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-100 1.2d0 500.0d0) 8.23342055585483d-61 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.001d0 1.2d0 500.0d0) 0.013046149644128953d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.01d0 1.2d0 500.0d0) 0.05183242246080333d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.1d0 1.2d0 500.0d0) 0.20223510171607628d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.325d0 1.2d0 500.0d0) 0.39050298321939375d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.0d0 1.2d0 500.0d0) 0.6676561915746536d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.5d0 1.2d0 500.0d0) 0.7755392302714671d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 2.0d0 1.2d0 500.0d0) 0.8452091149046137d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10.0d0 1.2d0 500.0d0) 0.999168017659121d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 20.0d0 1.2d0 500.0d0) 0.9999980057383717d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 100.0d0 1.2d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1000.0d0 1.2d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10000.0d0 1.2d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.0d0 1.2d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-100 1.2d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.001d0 1.2d0 500.0d0) 0.986953850355871d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.01d0 1.2d0 500.0d0) 0.9481675775391967d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.1d0 1.2d0 500.0d0) 0.7977648982839237d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.325d0 1.2d0 500.0d0) 0.6094970167806063d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.0d0 1.2d0 500.0d0) 0.3323438084253464d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.5d0 1.2d0 500.0d0) 0.22446076972853293d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 2.0d0 1.2d0 500.0d0) 0.1547908850953863d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10.0d0 1.2d0 500.0d0) 8.319823408790116d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 20.0d0 1.2d0 500.0d0) 1.99426162833131d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 100.0d0 1.2d0 500.0d0) 6.233026622882171d-25 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1000.0d0 1.2d0 500.0d0) 1.1432857725966693d-134 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10000.0d0 1.2d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.0d0 200.0d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.d-100 200.0d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.001d0 200.0d0 500.0d0) 4.093250804036699d-251 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.01d0 200.0d0 500.0d0) 1.178943254196287d-151 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.1d0 200.0d0 500.0d0) 5.924309407968612d-57 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 0.325d0 200.0d0 500.0d0) 3.1822045235726357d-18 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.0d0 200.0d0 500.0d0) 0.5067463261211682d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1.5d0 200.0d0 500.0d0) 0.9997941757187124d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 2.0d0 200.0d0 500.0d0) 0.9999999995282361d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10.0d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 20.0d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 100.0d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 1000.0d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-P 10000.0d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.0d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.d-100 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.001d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.01d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.1d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 0.325d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.0d0 200.0d0 500.0d0) 0.49325367387883173d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1.5d0 200.0d0 500.0d0) 2.058242812875618d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 2.0d0 200.0d0 500.0d0) 4.717638483714107d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10.0d0 200.0d0 500.0d0) 5.980483371819484d-96 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 20.0d0 200.0d0 500.0d0) 2.920992658799795d-155 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-Q 1000.0d0 200.0d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-Q 10000.0d0 200.0d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.0d0 1.2d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 6.98194275525039d-61 1.2d0 1.3d0) 1.d-100 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.011060848586023856d0 1.2d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.04386367570683138d0 1.2d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.16824239271284072d0 1.2d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.3141300452461954d0 1.2d0 1.3d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.5096307790747553d0 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.5839986406415538d0 1.2d0 1.3d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.6347335813519388d0 1.2d0 1.3d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.8484462378792009d0 1.2d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9009877263368751d0 1.2d0 1.3d0) 20.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9644891270476884d0 1.2d0 1.3d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9920120516941164d0 1.2d0 1.3d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9982108628088426d0 1.2d0 1.3d0) 10000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 1.0d0 1.2d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.9889391514139761d0 1.2d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.9561363242931686d0 1.2d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.8317576072871593d0 1.2d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.6858699547538045d0 1.2d0 1.3d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.49036922092524476d0 1.2d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.4160013593584461d0 1.2d0 1.3d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.3652664186480612d0 1.2d0 1.3d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.15155376212079902d0 1.2d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.09901227366312496d0 1.2d0 1.3d0) 20.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.03551087295231156d0 1.2d0 1.3d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.007987948305883612d0 1.2d0 1.3d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.0017891371911574144d0 1.2d0 1.3d0) 10000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.0d0 500.0d0 1.3d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 9.834344603933047d-141 500.0d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 1.4591562488855d-26 500.0d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 5.899765096196881d-4 500.0d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.06861104860515425d0 500.0d0 1.3d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.33847505380640464d0 500.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.4520162452474574d0 500.0d0 1.3d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.5273390689373888d0 500.0d0 1.3d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.8168396285784139d0 500.0d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.8817846230569114d0 500.0d0 1.3d0) 20.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9580450572042213d0 500.0d0 1.3d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9905857493806552d0 500.0d0 1.3d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9978919248314614d0 500.0d0 1.3d0) 10000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 1.0d0 500.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.9994100234903803d0 500.0d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.9313889513948458d0 500.0d0 1.3d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.6615249461935954d0 500.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.5479837547525426d0 500.0d0 1.3d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.4726609310626112d0 500.0d0 1.3d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.1831603714215861d0 500.0d0 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.11821537694308859d0 500.0d0 1.3d0) 20.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.0419549427957787d0 500.0d0 1.3d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.009414250619344734d0 500.0d0 1.3d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.002108075168538626d0 500.0d0 1.3d0) 10000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.0d0 1.2d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 8.23342055585483d-61 1.2d0 500.0d0) 1.d-100 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.013046149644128953d0 1.2d0 500.0d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.05183242246080333d0 1.2d0 500.0d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.20223510171607628d0 1.2d0 500.0d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.39050298321939375d0 1.2d0 500.0d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.6676561915746536d0 1.2d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.7755392302714671d0 1.2d0 500.0d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.8452091149046137d0 1.2d0 500.0d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.999168017659121d0 1.2d0 500.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9999980057383717d0 1.2d0 500.0d0) 20.0d0 +TEST-TOL6+)
(ASSERT-posinf (FDIST-PINV 1.0d0 1.2d0 500.0d0))
(ASSERT-posinf (FDIST-PINV 1.0d0 1.2d0 500.0d0))
(ASSERT-posinf (FDIST-PINV 1.0d0 1.2d0 500.0d0))
(ASSERT-TO-TOLERANCE (FDIST-QINV 1.0d0 1.2d0 500.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.986953850355871d0 1.2d0 500.0d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.9481675775391967d0 1.2d0 500.0d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.7977648982839237d0 1.2d0 500.0d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.6094970167806063d0 1.2d0 500.0d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.3323438084253464d0 1.2d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.22446076972853293d0 1.2d0 500.0d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.1547908850953863d0 1.2d0 500.0d0) 2.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 8.319823408790116d-4 1.2d0 500.0d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 1.99426162833131d-6 1.2d0 500.0d0) 20.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 6.233026622882171d-25 1.2d0 500.0d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 1.1432857725966693d-134 1.2d0 500.0d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-posinf (FDIST-QINV 0.0d0 1.2d0 500.0d0))
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.0d0 200.0d0 500.0d0) 0.0d0 +DBL-EPSILON+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 4.093250804036699d-251 200.0d0 500.0d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 1.178943254196287d-151 200.0d0 500.0d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 5.924309407968612d-57 200.0d0 500.0d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 3.1822045235726357d-18 200.0d0 500.0d0) 0.325d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.5067463261211682d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-PINV 0.9997941757187124d0 200.0d0 500.0d0) 1.5d0 +TEST-TOL6+)
(ASSERT-posinf (FDIST-PINV 1.0d0 200.0d0 500.0d0))
(ASSERT-TO-TOLERANCE (FDIST-QINV 1.0d0 200.0d0 500.0d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 0.49325367387883173d0 200.0d0 500.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 2.058242812875618d-4 200.0d0 500.0d0) 1.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (FDIST-QINV 4.717638483714107d-10 200.0d0 500.0d0) 2.0d0 +TEST-TOL6+)
(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+))
......@@ -46,17 +46,111 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.475614712250357d0)
(MULTIPLE-VALUE-LIST (GAMMA-PDF 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.04877057549928599d0)
(MULTIPLE-VALUE-LIST (GAMMA-P 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.951229424500714d0)
(MULTIPLE-VALUE-LIST (GAMMA-Q 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.10000000000000006d0)
(MULTIPLE-VALUE-LIST
(GAMMA-PINV 0.048770575499286005d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.10000000000000003d0)
(MULTIPLE-VALUE-LIST
(GAMMA-QINV 0.951229424500714d0 1.0d0 2.0d0))))
(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+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.01d0 1.0d0 1.0d0) 0.009950166250831947d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.1d0 1.0d0 1.0d0) 0.09516258196404043d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 0.325d0 1.0d0 1.0d0) 0.2774726463579278d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.0d0 1.0d0 1.0d0) 0.6321205588285577d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1.5d0 1.0d0 1.0d0) 0.7768698398515702d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 2.0d0 1.0d0 1.0d0) 0.8646647167633873d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 10.0d0 1.0d0 1.0d0) 0.9999546000702375d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 20.0d0 1.0d0 1.0d0) 0.9999999979388464d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 100.0d0 1.0d0 1.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 1000.0d0 1.0d0 1.0d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAMMA-P 10000.0d0 1.0d0 1.0d0) 1.0d0 +TEST-TOL6+)