Update of /cvsroot/maxima/maxima/share/calculus
In directory sc8prcvs1.sourceforge.net:/tmp/cvsserv4101
Modified Files:
revert.mac
Log Message:
In revert2, changed some instances of n to n2 to avoid name
collision with argument. Looking at an old version of revert.mac,
the test on the greatest power of the input expression was an afterthought,
and the n introduced for that test apparently was intended to be something
different from N, the argument. It is hard to tell in the absence of comments
or documentation. However, revert2 appears to do something useful now;
before this change, revert2 returned the same thing as revert.
Index: revert.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/calculus/revert.mac,v
retrieving revision 1.2
retrieving revision 1.3
diff u d r1.2 r1.3
 revert.mac 9 Jan 2005 07:44:53 0000 1.2
+++ revert.mac 27 Feb 2005 21:43:15 0000 1.3
@@ 8,8 +8,8 @@
do (for j from k thru n  1 do apply(f,[j])), f : 0,
for k thru n do f:f+w[k]*(t*r1)^k, f)$
revert2(exp, var, n) := block([f, v, w, r1,n], n:hipow(exp,var),
if n = 0 then return(exp), array([v,w], n),
+revert2(exp, var, n) := block([f, v, w, r1, n2], n2:hipow(exp,var),
+if n2 = 0 then return(exp), array([v,w], n),
v[0] : ratcoef(exp, var, 0), r1:1/ratcoef(exp,var,1),
v[1]:1,
for k:2 thru n do (v[k]: ratcoef(exp, var, k)*r1, w[k]:  v[k] ), w[1]: 1,
