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

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+))
This diff is collapsed.
......@@ -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+))
This diff is collapsed.
......@@ -46,6 +46,7 @@
(LET ((RNG (MAKE-RANDOM-NUMBER-GENERATOR +MT19937+ 0)))
(LOOP FOR I FROM 0 TO 10 COLLECT
(sample rng :gaussian-ziggurat :sigma 10.0d0)))))
;; Automatically converted from cdf/test.c
(ASSERT-TO-TOLERANCE (UGAUSSIAN-P 0.0d0) 0.5d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (UGAUSSIAN-P 1.d-32) 0.5d0 +TEST-TOL0+)
(ASSERT-TO-TOLERANCE (UGAUSSIAN-P 1.d-16) 0.5d0 +TEST-TOL0+)
......@@ -129,4 +130,111 @@
(ASSERT-TO-TOLERANCE (UGAUSSIAN-QINV 0.977249868051821d0) -2.0d0 1.d-14)
(ASSERT-TO-TOLERANCE (UGAUSSIAN-QINV 0.998650102d0) -3.0d0 1.d-8)
(ASSERT-TO-TOLERANCE (UGAUSSIAN-QINV 0.9999683288d0) -4.0d0 1.d-6)
(ASSERT-TO-TOLERANCE (UGAUSSIAN-QINV 0.9999997133d0) -5.0d0 1.d-4))
(ASSERT-TO-TOLERANCE (UGAUSSIAN-QINV 0.9999997133d0) -5.0d0 1.d-4)
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d10 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d9 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d8 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d7 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1000000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -100000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -10000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -100.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -10.0d0 1.3d0) 7.225229227927d-15 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 7.225229227926508d-15 1.3d0) -10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.0d0 1.3d0) 0.2208781637125d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.22087816371245972d0 1.3d0) -1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -0.1d0 1.3d0) 0.4693423696034d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.4693423696033875d0 1.3d0) -0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -0.01d0 1.3d0) 0.4969312434916d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.49693124349158196d0 1.3d0) -0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -0.001d0 1.3d0) 0.499693121353d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.4996931213530323d0 1.3d0) -0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d-4 1.3d0) 0.4999693121323d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d-5 1.3d0) 0.4999969312132d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d-6 1.3d0) 0.4999996931213d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d-7 1.3d0) 0.4999999693121d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d-8 1.3d0) 0.4999999969312d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d-9 1.3d0) 0.4999999996931d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P -1.d-10 1.3d0) 0.4999999999693d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 0.0d0 1.3d0) 0.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.5d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d-10 1.3d0) 0.5000000000307d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d-9 1.3d0) 0.5000000003069d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d-8 1.3d0) 0.5000000030688d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d-7 1.3d0) 0.5000000306879d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d-6 1.3d0) 0.5000003068787d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d-5 1.3d0) 0.5000030687868d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d-4 1.3d0) 0.5000306878677d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 0.001d0 1.3d0) 0.500306878647d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.5003068786469678d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 0.01d0 1.3d0) 0.5030687565084d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.503068756508418d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 0.1d0 1.3d0) 0.5306576303966d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.5306576303966125d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.0d0 1.3d0) 0.7791218362875d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-PINV 0.7791218362875403d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 10.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 100.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 10000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 100000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1000000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d7 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d8 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d9 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-P 1.d10 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d10 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d9 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d8 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d7 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1000000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 100000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 10000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 100.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 10.0d0 1.3d0) 7.225229227927d-15 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 7.225229227926508d-15 1.3d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.0d0 1.3d0) 0.2208781637125d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.22087816371245972d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 0.1d0 1.3d0) 0.4693423696034d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.4693423696033875d0 1.3d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 0.01d0 1.3d0) 0.4969312434916d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.49693124349158196d0 1.3d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 0.001d0 1.3d0) 0.499693121353d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.4996931213530323d0 1.3d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d-4 1.3d0) 0.4999693121323d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d-5 1.3d0) 0.4999969312132d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d-6 1.3d0) 0.4999996931213d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d-7 1.3d0) 0.4999999693121d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d-8 1.3d0) 0.4999999969312d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d-9 1.3d0) 0.4999999996931d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 1.d-10 1.3d0) 0.4999999999693d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q 0.0d0 1.3d0) 0.5d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.5d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d-10 1.3d0) 0.5000000000307d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d-9 1.3d0) 0.5000000003069d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d-8 1.3d0) 0.5000000030688d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d-7 1.3d0) 0.5000000306879d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d-6 1.3d0) 0.5000003068787d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d-5 1.3d0) 0.5000030687868d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d-4 1.3d0) 0.5000306878677d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -0.001d0 1.3d0) 0.500306878647d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.5003068786469678d0 1.3d0) -0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -0.01d0 1.3d0) 0.5030687565084d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.503068756508418d0 1.3d0) -0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -0.1d0 1.3d0) 0.5306576303966d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.5306576303966125d0 1.3d0) -0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.0d0 1.3d0) 0.7791218362875d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-QINV 0.7791218362875403d0 1.3d0) -1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -10.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -100.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -10000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -100000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1000000.0d0 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d7 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d8 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d9 1.3d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GAUSSIAN-Q -1.d10 1.3d0) 1.0d0 +TEST-TOL6+))
......@@ -34,18 +34,113 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.29625708964974956d0)
(MULTIPLE-VALUE-LIST (GUMBEL1-PDF 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.1637073598773166d0)
(MULTIPLE-VALUE-LIST (GUMBEL1-P 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.8362926401226833d0)
(MULTIPLE-VALUE-LIST (GUMBEL1-Q 0.1d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.10000000000000007d0)
(MULTIPLE-VALUE-LIST
(GUMBEL1-PINV 0.1637073598773166d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.10000000000000028d0)
(MULTIPLE-VALUE-LIST
(GUMBEL1-QINV 0.8362926401226833d0 1.0d0 2.0d0))))
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d10 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d9 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d8 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d7 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1000000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -100000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -10000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -100.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -10.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.0d0 1.3d0 2.7d0) 4.981965353092d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 4.981965353091824d-5 1.3d0 2.7d0) -1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -0.1d0 1.3d0 2.7d0) 0.0461971747678d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.04619717476779808d0 1.3d0 2.7d0) -0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -0.01d0 1.3d0 2.7d0) 0.06487265128366d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.06487265128366305d0 1.3d0 2.7d0) -0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -0.001d0 1.3d0 2.7d0) 0.06696988203722d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.0669698820372176d0 1.3d0 2.7d0) -0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d-4 1.3d0 2.7d0) 0.06718192621136d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.06718192621136487d0 1.3d0 2.7d0) -1.d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d-5 1.3d0 2.7d0) 0.06720315385232d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d-6 1.3d0 2.7d0) 0.06720527684866d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d-7 1.3d0 2.7d0) 0.06720548915062d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d-8 1.3d0 2.7d0) 0.06720551038084d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d-9 1.3d0 2.7d0) 0.06720551250386d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P -1.d-10 1.3d0 2.7d0) 0.06720551271616d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 0.0d0 1.3d0 2.7d0) 0.06720551273975d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.06720551273974995d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d-10 1.3d0 2.7d0) 0.06720551276334d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d-9 1.3d0 2.7d0) 0.06720551297564d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d-8 1.3d0 2.7d0) 0.06720551509866d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d-7 1.3d0 2.7d0) 0.06720553632889d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d-6 1.3d0 2.7d0) 0.06720574863136d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d-5 1.3d0 2.7d0) 0.06720787167931d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d-4 1.3d0 2.7d0) 0.06722910448133d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.06722910448133346d0 1.3d0 2.7d0) 1.d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 0.001d0 1.3d0 2.7d0) 0.0674416647619d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.06744166476189883d0 1.3d0 2.7d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 0.01d0 1.3d0 2.7d0) 0.06959050352518d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.06959050352517981d0 1.3d0 2.7d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 0.1d0 1.3d0 2.7d0) 0.09340058564429d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.09340058564429043d0 1.3d0 2.7d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.0d0 1.3d0 2.7d0) 0.4791048360125d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-PINV 0.47910483601248477d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 10.0d0 1.3d0 2.7d0) 0.9999938971292d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 100.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 10000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 100000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1000000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d7 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d8 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d9 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-P 1.d10 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d10 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d9 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d8 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d7 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1000000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 100000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 10000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1000.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 100.0d0 1.3d0 2.7d0) 9.398988467742d-57 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 9.398988467741606d-57 1.3d0 2.7d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 10.0d0 1.3d0 2.7d0) 6.102870776257d-6 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 6.10287077625722d-6 1.3d0 2.7d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.0d0 1.3d0 2.7d0) 0.5208951639875d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.5208951639875152d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 0.1d0 1.3d0 2.7d0) 0.9065994143557d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.9065994143557096d0 1.3d0 2.7d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 0.01d0 1.3d0 2.7d0) 0.9304094964748d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.9304094964748202d0 1.3d0 2.7d0) 0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 0.001d0 1.3d0 2.7d0) 0.9325583352381d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.9325583352381012d0 1.3d0 2.7d0) 0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d-4 1.3d0 2.7d0) 0.9327708955187d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d-5 1.3d0 2.7d0) 0.9327921283207d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d-6 1.3d0 2.7d0) 0.9327942513686d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d-7 1.3d0 2.7d0) 0.9327944636711d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d-8 1.3d0 2.7d0) 0.9327944849013d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d-9 1.3d0 2.7d0) 0.9327944870244d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 1.d-10 1.3d0 2.7d0) 0.9327944872367d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q 0.0d0 1.3d0 2.7d0) 0.9327944872603d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.9327944872602503d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d-10 1.3d0 2.7d0) 0.9327944872838d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d-9 1.3d0 2.7d0) 0.9327944874961d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d-8 1.3d0 2.7d0) 0.9327944896192d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d-7 1.3d0 2.7d0) 0.9327945108494d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d-6 1.3d0 2.7d0) 0.9327947231513d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d-5 1.3d0 2.7d0) 0.9327968461477d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d-4 1.3d0 2.7d0) 0.9328180737886d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -0.001d0 1.3d0 2.7d0) 0.9330301179628d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.9330301179627825d0 1.3d0 2.7d0) -0.001d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -0.01d0 1.3d0 2.7d0) 0.9351273487163d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.935127348716337d0 1.3d0 2.7d0) -0.01d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -0.1d0 1.3d0 2.7d0) 0.9538028252322d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.953802825232202d0 1.3d0 2.7d0) -0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.0d0 1.3d0 2.7d0) 0.9999501803465d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-QINV 0.9999501803464691d0 1.3d0 2.7d0) -1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -10.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -100.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -10000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -100000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1000000.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d7 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d8 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d9 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL1-Q -1.d10 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+))
......@@ -34,17 +34,64 @@
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.053625603682851145d0)
(MULTIPLE-VALUE-LIST (GUMBEL2-PDF 5.0d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.8187307530779818d0)
(MULTIPLE-VALUE-LIST (GUMBEL2-P 10.0d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.18126924692201815d0)
(MULTIPLE-VALUE-LIST (GUMBEL2-Q 10.0d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 9.999999999999998d0)
(MULTIPLE-VALUE-LIST
(GUMBEL2-PINV 0.8187307530779818d0 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 10.0d0)
(MULTIPLE-VALUE-LIST (GUMBEL2-QINV 0.18126924692201815d0 1.0d0 2.0d0))))
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (GUMBEL2-P 0.0d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d-10 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d-9 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d-8 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d-7 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d-6 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d-5 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d-4 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 0.001d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 0.01d0 1.3d0 2.7d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 0.1d0 1.3d0 2.7d0) 4.014688368993d-24 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-PINV 4.0146883689934746d-24 1.3d0 2.7d0) 0.1d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.0d0 1.3d0 2.7d0) 0.06720551273975d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-PINV 0.06720551273974974d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 10.0d0 1.3d0 2.7d0) 0.8734358842463d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-PINV 0.8734358842462814d0 1.3d0 2.7d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 100.0d0 1.3d0 2.7d0) 0.9932408531257d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-PINV 0.9932408531257445d0 1.3d0 2.7d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1000.0d0 1.3d0 2.7d0) 0.9996601479016d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-PINV 0.9996601479016278d0 1.3d0 2.7d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 10000.0d0 1.3d0 2.7d0) 0.9999829642968d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 100000.0d0 1.3d0 2.7d0) 0.9999991461854d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1000000.0d0 1.3d0 2.7d0) 0.9999999572079d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d7 1.3d0 2.7d0) 0.9999999978553d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d8 1.3d0 2.7d0) 0.9999999998925d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d9 1.3d0 2.7d0) 0.9999999999946d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-P 1.d10 1.3d0 2.7d0) 0.9999999999997d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d10 1.3d0 2.7d0) 2.7d-13 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 2.699999999999649d-13 1.3d0 2.7d0) 1.d10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d9 1.3d0 2.7d0) 5.387208250401d-12 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 5.387208250401491d-12 1.3d0 2.7d0) 1.d9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d8 1.3d0 2.7d0) 1.074889360437d-10 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 1.0748893604366781d-10 1.3d0 2.7d0) 1.d8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d7 1.3d0 2.7d0) 2.144686231456d-9 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 2.1446862314557286d-9 1.3d0 2.7d0) 1.d7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1000000.0d0 1.3d0 2.7d0) 4.279211528087d-8 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 4.2792115280867646d-8 1.3d0 2.7d0) 1000000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 100000.0d0 1.3d0 2.7d0) 8.538146037456d-7 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 8.53814603745569d-7 1.3d0 2.7d0) 100000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 10000.0d0 1.3d0 2.7d0) 1.703570319173d-5 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 1.7035703191725618d-5 1.3d0 2.7d0) 10000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1000.0d0 1.3d0 2.7d0) 3.398520983725d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 3.398520983724625d-4 1.3d0 2.7d0) 1000.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 100.0d0 1.3d0 2.7d0) 0.006759146874256d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 0.0067591468742558315d0 1.3d0 2.7d0) 100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 10.0d0 1.3d0 2.7d0) 0.1265641157537d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 0.12656411575371904d0 1.3d0 2.7d0) 10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.0d0 1.3d0 2.7d0) 0.9327944872603d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-QINV 0.9327944872602512d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 0.1d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 0.01d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 0.001d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d-4 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d-5 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d-6 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d-7 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d-8 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d-9 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 1.d-10 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (GUMBEL2-Q 0.0d0 1.3d0 2.7d0) 1.0d0 +TEST-TOL6+))
......@@ -20,16 +20,115 @@
(LISP-UNIT:DEFINE-TEST LAPLACE
(LISP-UNIT::ASSERT-true (testpdf 'laplace-pdf :laplace :a 2.75d0))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.6967346701436833d0)
(MULTIPLE-VALUE-LIST (LAPLACE-P 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 0.3032653298563167d0)
(MULTIPLE-VALUE-LIST (LAPLACE-Q 1.0d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.0d0)
(MULTIPLE-VALUE-LIST (LAPLACE-PINV 0.6967346701436833d0 2.0d0)))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST 1.0d0)
(MULTIPLE-VALUE-LIST (LAPLACE-QINV 0.3032653298563167d0 2.0d0))))
;; Automatically converted from cdf/test_auto.c
(ASSERT-TO-TOLERANCE (LAPLACE-P -1.d10 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -1.d9 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -1.d8 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -1.d7 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -1000000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -100000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -10000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -1000.0d0 1.3d0) 0.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -100.0d0 1.3d0) 1.957501779912d-34 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-PINV 1.957501779912233d-34 1.3d0) -100.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -10.0d0 1.3d0) 2.281619502905d-4 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-PINV 2.281619502905156d-4 1.3d0) -10.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -1.0d0 1.3d0) 0.2316846846156d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-PINV 0.23168468461558764d0 1.3d0) -1.0d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-P -0.1d0 1.3d0) 0.4629805393212d0 +TEST-TOL6+)
(ASSERT-TO-TOLERANCE (LAPLACE-PINV 0.462980539321158d0 1.3d0) -0.1d0 +TEST-TOL6+)