MathGroup Archive 2003

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

Search the Archive

Math Source Package Updated

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

A major improvement to a package I have posted at
http://library.wolfram.com/infocenter/MathSource/705/
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!

------
Regards,
   Ted Ersek

Get Mathematica Tips & Tricks from
http://www.verbeia.com/mathematica/tips/Tricks.html



  • 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?