[Maxima] factor/simplification problem

[Stavros Macrakis]

>
> Using the divsimp function I just sent,
>

Actually, this slightly enhanced divsimp:

divsimp(ex,div):=
  if atom(ex) then ex
  elseif part(ex,0)="+"
  then block([quorem: divide(ex,div)],
                factorsum(quorem[1])*factorsum(div)
                   + factorsum(quorem[2]))
  else map(lambda([q],divsimp(q,div)),ex)$
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.math.utexas.edu/pipermail/maxima/attachments/20070516/2ae5827c/attachment.htm