On 5/10/05, Richard Fateman wrote:
>
> ratsubst(1/z,exp(e/r/t),%);
>
> does the job, but you have to remember that z=exp(-e/r/t)
You can subst back in:
subst(exp(-e*t/r),z,ratsubst(1/z,exp(e*t/r), ... ))
Another possibility:
Define
multthrux(expr,q):=map(lambda([ex],multthru(q*ex)),expr);
then multthrux(..., exp(-e*t/r))