home *** CD-ROM | disk | FTP | other *** search
/ PC Open 13 / pcopen13.iso / Zip / SM34A.ZIP / LIBRARY / EXPANDAL.LI < prev    next >
Encoding:
Text File  |  1993-12-26  |  222 b   |  6 lines
  1. #  expandal() expand all numerators and denominators
  2. #  e.g. expandal((a+b)^2/(c+d)^2) gives (a^2+2*a*b+c^2)/(c^2+2*c*d+d^2)
  3.  
  4. expandal(a_+b_) := expandal(a)+expandal(b)
  5. expandal(x_) := expand(nume(x))/expand(deno(x))
  6.