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

[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  8481ee30bafaec66ccb99a330e1aee392c4d894b (commit)
      from  25a15317f76cba7a1c38341edf5a418020e9b477 (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 8481ee30bafaec66ccb99a330e1aee392c4d894b
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Mon Mar 7 17:55:50 2011 -0500

    Oops.  Use jacobi-dn, not dn.

diff --git a/qd-elliptic.lisp b/qd-elliptic.lisp
index c29d9ce..9240eb0 100644
--- a/qd-elliptic.lisp
+++ b/qd-elliptic.lisp
@@ -194,7 +194,7 @@
   ;; cn(u,m) = (1+sqrt(mu1))/mu * (dn(v,mu)^2-sqrt(mu1))/dn(v,mu)
   (multiple-value-bind (v mu root-mu1)
       (ascending-transform u m)
-    (let ((d (dn v mu)))
+    (let ((d (jacobi-dn v mu)))
       (* (/ (+ 1 root-mu1) mu)
 	 (/ (- (* d d) root-mu1)
-	    d)))))
\ No newline at end of file
+	    d)))))

-----------------------------------------------------------------------

Summary of changes:
 qd-elliptic.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
OCT:  A portable Lisp implementation for quad-double precision floats