Changeset 0823acf49a91cbdb9a3e7f1faae2efe128580038

Timestamp:

04/12/12 09:46:59 (13 months ago)

Author:

Raymond Toy <toy.raymond@…>

Children:

235ac2e4756b7c3f03815b267d292a26e8e1df37

Parents:

139e1571a14f8cbdaa8da16aab06bf37ad98d3a3

git-committer:

Raymond Toy <toy.raymond@…> (04/12/12 09:46:59)

Message:

Update accuracy for bessel-j-1/2.q test.

Files:

• rt-tests.lisp (modified) (2 diffs)

rt-tests.lisp

@@ -1647 +1647 @@
           for b = (bessel-j #q0.5 x)
           for true = (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))
-          for result = (check-accuracy 173.28 b true)
+          for result = (check-accuracy 169.45 b true)
           when result
             append (list (list (list k x) result)))
@@ -1664 +1664 @@
            (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))))
       (check-accuracy 173.28 b true))
+  nil)
+
+(rt:deftest bessel-j-1/2.q.1.c
+    (let* ((x #q1.0360263937639582798798376485114581552570020473846457752365459851056q0)
+           (b (bessel-j #q0.5 x))
+           (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))))
+      (check-accuracy 169.45 b true))
   nil)