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