[Maxima-commits] Maxima, A Computer Algebra System branch master updated. branch-5_27-base-79-g52e3aa7

[Raymond T. <rt...@us...>]

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 "Maxima, A Computer Algebra System".

The branch, master has been updated
       via  52e3aa70a50eb5588d9191400fec561f9763a61d (commit)
      from  135eaf0e5df6cfe23d2a08ea5d0255acb01e67df (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 52e3aa70a50eb5588d9191400fec561f9763a61d
Author: Raymond Toy <toy...@gm...>
Date:   Thu May 24 20:24:28 2012 -0700

    Oops.  Can't have the numeric^number method call itself if number is
    an integer bigger than 4.  That causes an infinite loop.

diff --git a/src/numeric.lisp b/src/numeric.lisp
index c42ffbe..db452a0 100755
--- a/src/numeric.lisp
+++ b/src/numeric.lisp
@@ -1434,7 +1434,8 @@
       (cond ((and (zerop a) (plusp (realpart b)))
 	     (* a b))
 	    ((= b (truncate b))
-	     ;; The exponent is an integer
+	     ;; Use the numeric^number method because it can be much
+	     ;; more accurate when b is an integer.
 	     (expt a (truncate b)))
 	    (t
 	     (exp (* b (log a)))))))
@@ -1479,8 +1480,6 @@
 		((= b -4)
 		 (let ((a2 (* a a)))
 		   (/ (* a2 a2))))
-		((= b (truncate b))
-		 (expt a (truncate b)))
 		(t
 		 (exp (* (bigfloat b) (log a))))))))
 

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

Summary of changes:
 src/numeric.lisp |    5 ++---
 1 files changed, 2 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
Maxima, A Computer Algebra System