You can experiment with this solution:
----file myratsimp.lisp--------------
#$ mratsimp(e,[v]) := ?mratsimp(e, ?margs(v)); #$
(defmfun mratsimp (e vars)
(cond ((not (null vars))
(let (varlist)
(joinvarlist vars)
(fullratsimp e)))
(t (fullratsimp e))))
------------------------------------
(%i11) load("myratsimp.lisp")$
(%i13) apply('mratsimp, cons(x*(x-1), makelist(concat(a,k),k,0,100)));
(%o13) x^2-x
(%i14) apply('ratsimp, cons(x*(x-1), makelist(concat(a,k),k,0,100)));
Maxima encountered a Lisp error:
In facsum, change ratsimp to mratsimp. Of course, then you are stuck with
various problems--is
it legal to distribute this modifed facsum code in pw.mac, and ... I don't
know the answers
to such questions.
Obviously, the best solution to all this would be to alter the definition
of
$ratsimp in rat3e.lisp. The reader macro #$ has not been defined when
Maxima
compiles rat3e.lisp, so altering $ratsimp in the way I suggest requires
tinkering with the build process. Since I understand little to nothing
about
the build process, I'm not going to try.
It would be useful to define the reader macro #$ earlier, I think.
Barton
-----maxima-bounces at math.utexas.edu wrote: -----
>If?you?guys?are?going?to?fix?this?problem?this?way?then?I?don't?have?to
>write?my?own?version?of?facsum?which?would?be?nice?since?writing?my?own
>version?is?a?distraction?from?making?pw.mac?work?with?the?facsum?function
>(It?is?doable?though,?I?have?already?started?on?it.??I?just?don't?want?to
>waste?my?time?on?something?that?is?not?needed).