Commit 0823acf49a91cbdb9a3e7f1faae2efe128580038

Authored by Raymond Toy
1 parent 139e1571

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

Showing 1 changed file with 8 additions and 1 deletions
rt-tests.lisp
... ... @@ -1646,7 +1646,7 @@
1646 1646 for x = (+ 1 (random (/ (float-pi #q1) 2)))
1647 1647 for b = (bessel-j #q0.5 x)
1648 1648 for true = (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))
1649   - for result = (check-accuracy 173.28 b true)
  1649 + for result = (check-accuracy 169.45 b true)
1650 1650 when result
1651 1651 append (list (list (list k x) result)))
1652 1652 nil)
... ... @@ -1665,6 +1665,13 @@
1665 1665 (check-accuracy 173.28 b true))
1666 1666 nil)
1667 1667  
  1668 +(rt:deftest bessel-j-1/2.q.1.c
  1669 + (let* ((x #q1.0360263937639582798798376485114581552570020473846457752365459851056q0)
  1670 + (b (bessel-j #q0.5 x))
  1671 + (true (* (/ (sin x) (sqrt x)) (sqrt (/ 2 (float-pi #q1))))))
  1672 + (check-accuracy 169.45 b true))
  1673 + nil)
  1674 +
1668 1675 ;; Bessel J for complex args
1669 1676 #+nil
1670 1677 (rt:deftest bessel-j-complex.pos-order.d.1
... ...