[Maxima-commits] CVS: maxima/share/orthopoly orthopoly.lisp, 1.5, 1.6

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/share/orthopoly
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv26665/share/orthopoly

Modified Files:
	orthopoly.lisp 
Log Message:
replaced ^ with expt or ash as appropriate.


Index: orthopoly.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/orthopoly/orthopoly.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- orthopoly.lisp	5 Apr 2006 05:48:09 -0000	1.5
+++ orthopoly.lisp	22 Mar 2007 19:07:31 -0000	1.6
@@ -603,7 +603,7 @@
       (setq q (add (mul (sub 1 `((rat) 1 ,(* 2 i))) q)
 		   (div x (mul 2 i (power z i)))))
       (incf i))
-    (mul (^ -2 n) (factorial n) (power z (div n 2)) q)))
+    (mul (expt -2 n) (factorial n) (power z (div n 2)) q)))
 
 ;; Use degree recursion to find the assoc_legendre_q function. 
 ;; See A&S 8.5.3. When i = m in the while loop, we have a special