Re: Simplify problem
- To: mathgroup at smc.vnet.net
- Subject: [mg95829] Re: Simplify problem
- From: dimitris <dimmechan at yahoo.com>
- Date: Wed, 28 Jan 2009 06:31:08 -0500 (EST)
- References: <glmstk$mm3$1@smc.vnet.net>
On 27 =C9=E1=ED, 13:58, tidy... at googlemail.com wrote:
> Hi
>
> I am using Simplify / FullSimplify etc. to simplify some equations
> I have, but I am unable to coerce Mathematica into automatically
> giving me the form I require for some of the sub-expressions, e.g.
>
> I'd like
>
> 1/Sqrt[1 + 1/x]
>
> to be automatically converted to
>
> Sqrt[x/(1 + x)]
>
> 'x' is always of type Real and greater-than 0 btw.
>
> I would appreciate any help or tips anyone can provide on this.
>
> Thanks
In[8]:=
Simplify[PowerExpand[Together /@ (1/Sqrt[1 + 1/x])]]
Out[8]=
Sqrt[x/(1 + x)]
In[31]:=
Simplify[Simplify[1/Sqrt[1 + 1/x], x > 0, ComplexityFunction -> (Count
[{#1}, _Power, Infinity] & )]]
Out[31]=
Sqrt[x/(1 + x)]
Dimitris