This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "OCT: A portable Lisp implementation for quad-double precision floats".
The branch, master has been updated via 0823acf49a91cbdb9a3e7f1faae2efe128580038 (commit) from 139e1571a14f8cbdaa8da16aab06bf37ad98d3a3 (commit)
Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below.
- Log ----------------------------------------------------------------- commit 0823acf49a91cbdb9a3e7f1faae2efe128580038 Author: Raymond Toy toy.raymond@gmail.com Date: Thu Apr 12 09:46:59 2012 -0700
Update accuracy for bessel-j-1/2.q test.
diff --git a/rt-tests.lisp b/rt-tests.lisp index 86ae66c..29a6501 100644 --- a/rt-tests.lisp +++ b/rt-tests.lisp @@ -1646,7 +1646,7 @@ for x = (+ 1 (random (/ (float-pi #q1) 2))) 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))) nil) @@ -1665,6 +1665,13 @@ (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) + ;; Bessel J for complex args #+nil (rt:deftest bessel-j-complex.pos-order.d.1
-----------------------------------------------------------------------
Summary of changes: rt-tests.lisp | 9 ++++++++- 1 files changed, 8 insertions(+), 1 deletions(-)
hooks/post-receive