MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

Math Source Package Updated

  • To: mathgroup at
  • Subject: [mg44755] Math Source Package Updated
  • From: "Ersek, Ted CIV NASPATUXENTRIVERMD" <ted.ersek at>
  • Date: Tue, 25 Nov 2003 00:45:23 -0500 (EST)
  • Sender: owner-wri-mathgroup at

A major improvement to a package I have posted at
is now available from this URL.

Normally Mathematica refuses to use a concise format of the following:

In[1]:=  (x y x)^2 + Sqrt[2 w u v]

Out[1]=  x^2  y^2  z^2  + Sqrt[2] Sqrt[w] Sqrt[u] Sqrt[v]

The package includes a function called PowerTogether that can use 
assumtions to give:

In[2]:=  expr = x^2  y^2  z^2  + Sqrt[2] Sqrt[w] Sqrt[u] Sqrt[v] ;
           PowerTogether[ expr, u>0 && v>0 ]

Out[2]=  (x y x)^2 + Sqrt[2 w u v]

The latest version of the package is very powerful!

   Ted Ersek

Get Mathematica Tips & Tricks from

  • Prev by Date: Re: Conversion Function -> List
  • Next by Date: RE: Log Equation
  • Previous by thread: Re: partial differential
  • Next by thread: Table format gets lost while write to outputfile?