Barton Willis wrote:
> -----Rupert wrote: -----
>
>>There might be another way of getting this result using the format
>>library, but that's somewhat unmaintained if I remember correctly.
>
> Using format, the best I could do was
>
> (%i124) load(format)$
>
> (%i128) format(e, %poly(A));
> (%o128) (1/E+1/D)/A^2+1/(A*B)+1/AC
>
This is because there is a typo in the original expression e. If you correct
it:
(%i1) e:1/(A*B)+1/(A*C)+1/(A^2*E)+1/(A^2*D);
(%i4) display2d:false;
(%o4) false
(%i5) format(e, %poly(A));
(%o5) (1/E+1/D)/A^2+(1/C+1/B)/A
Which is exactly the expected result.
--
Michel Talon