[Maxima-commits] Maxima, A Computer Algebra System branch master updated. 5.26.0-86-g8265d8b

[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  8265d8b1060f38072ed99921386f9c2f9b26db24 (commit)
       via  305cf61967cd2360aeac0e294375a20c579caf42 (commit)
      from  137dd4f435fa58299d6a1cf03954796e3265a06e (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 8265d8b1060f38072ed99921386f9c2f9b26db24
Merge: 305cf61 137dd4f
Author: Raymond Toy <rt...@go...>
Date:   Thu Mar 15 09:29:17 2012 -0700

    Merge branch 'master' of ssh://maxima.git.sourceforge.net/gitroot/maxima/maxima


commit 305cf61967cd2360aeac0e294375a20c579caf42
Author: Raymond Toy <rt...@go...>
Date:   Thu Mar 15 09:28:58 2012 -0700

    Fix Bug 3495182: hgfred([-n/2, (n-1)/2],[1],x) --> error
    
    src/hyp.lisp:
    o Don't try to decrement c from 1 to 0.
    
    tests/rtesthyp.mac:
    o Add test for this.

diff --git a/src/hyp.lisp b/src/hyp.lisp
index a68d198..5c44225 100644
--- a/src/hyp.lisp
+++ b/src/hyp.lisp
@@ -1588,11 +1588,13 @@
 	     (format t "Legendre c-a-b = 1/2~%"))
 	   (legf20 (list a b) (list c) var))
           
-          ((alike1 c-a-b '((rat simp) 3 2))
-           ;; c-a-b = 3/2 e.g. F(a,b;a+b+3/2;z)
-           ;; Reduce to F(a,b;a+b+1/2) and use A&S 15.2.6.
-           ;; Problem: The derivative of assoc_legendre_p introduces a
-           ;; unit_step function and the result looks very complicate.
+          ((and (alike1 c-a-b '((rat simp) 3 2))
+		(not (alike1 c 1)))
+           ;; c-a-b = 3/2 e.g. F(a,b;a+b+3/2;z) Reduce to
+           ;; F(a,b;a+b+1/2) and use A&S 15.2.6.  But if c = 1, we
+           ;; don't want to reduce c to 0! Problem: The derivative of
+           ;; assoc_legendre_p introduces a unit_step function and the
+           ;; result looks very complicate.
            (when $trace2f1
              (format t "Legendre c-a-b = 3/2~%")
              (format t "   : a = ~A~%" a)
diff --git a/tests/rtesthyp.mac b/tests/rtesthyp.mac
index 16c4667..2adcb6f 100644
--- a/tests/rtesthyp.mac
+++ b/tests/rtesthyp.mac
@@ -2475,3 +2475,11 @@ ratsimp(hgfred([-2,1],[1/2],z));
 (8*z^2-12*z+3)/3;
 
 /******************************************************************************/
+
+/* Bug 3495182: hgfred([-n/2, (n-1)/2],[1],x) --> error
+ *
+ * Just check that we don't get an error.
+ */
+
+hgfred([-n/2, (n-1)/2],[1],x);
+%f[2,1]([-n/2, n/2-1/2],[1],x);

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

Summary of changes:
 src/hyp.lisp       |   12 +++++++-----
 tests/rtesthyp.mac |    8 ++++++++
 2 files changed, 15 insertions(+), 5 deletions(-)


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