Re: Simplifying things
- To: mathgroup at smc.vnet.net
- Subject: [mg26105] Re: [mg26070] Simplifying things
- From: BobHanlon at aol.com
- Date: Tue, 28 Nov 2000 01:55:49 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 11/22/00 2:23:31 AM, djago at my-deja.com writes:
>I need to simplify looooong equations, but don't know how to get rid of
>those terms like:
>
>Sqrt[a^2]
>
>when a is a real positive variable... How can I tell Mathematica 3 to
>simplify this?
>
test = {Sqrt[a^2] , Sqrt[a^4], Sqrt[a^(2m)]}
{Sqrt[a^2], Sqrt[a^4], Sqrt[a^(2*m)]}
test // PowerExpand
{a, a^2, a^m}
a /: Positive[a] = True;
m /: IntegerQ[m] = True;
test /. Sqrt[(x_?Positive)^n_?(IntegerQ[#/2] &)] :> x^(n/2)
{a, a^2, a^m}
Bob Hanlon