[oct-scm] [oct-git]OCT: A portable Lisp implementation for quad-double precision floats branch master updated. 0823acf49a91cbdb9a3e7f1faae2efe128580038

[Raymond Toy]

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 at 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
-- 
OCT:  A portable Lisp implementation for quad-double precision floats