home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / PROGRAMM.PAK / EXPANDBO.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  487 b   |  20 lines
  1.  
  2. (*********************************************************************
  3.  
  4.     Adapted from
  5.     Roman E. Maeder: Programming in Mathematica,
  6.     Second Edition, Addison-Wesley, 1991.
  7.  
  8.  *********************************************************************)
  9.  
  10.  
  11. ExpandBoth::usage = "ExpandBoth[e] expands all numerators and denominators in e."
  12.  
  13. Begin["`Private`"]
  14.  
  15. ExpandBoth[x_Plus] := ExpandBoth /@ x
  16. ExpandBoth[x_] := Expand[ Numerator[x] ] / Expand[ Denominator[x] ]
  17.  
  18. End[]
  19. Null
  20.