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