Re: Separating square roots

*To*: mathgroup at smc.vnet.net*Subject*: [mg127252] Re: Separating square roots*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Wed, 11 Jul 2012 02:21:03 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <20120710044231.0F717683F@smc.vnet.net>*Reply-to*: murray at math.umass.edu

Here's a way, which is probably unnecessarily verbose. a = 3 + 5 x^2 + 7 x + Sqrt[5 + x] + 7 x Sqrt[5 + x]; terms = List @@ a; Plus @@ Pick[terms, FreeQ[#, Sqrt[_]] & /@ terms] On 7/10/12 12:42 AM, rhartley.anu at gmail.com wrote: > I have an expression which is a sum of terms, some monomials > and others involving square roots, such as > A = 3 + 5 x^2 + 7 x + Sqrt[5+x] + 7 x Sqrt[5+x] (but much more complicated). > I want to solve this, which involves separating terms with the square root > from those that do not have a square root, then squaring each. > > I can not work out how to separate out those terms that have the square > root. I do not want to hard code, such as nosqrt = A[[1]] + A[[2]] , etc. > Can anyone help? -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305

**References**:**Separating square roots***From:*rhartley.anu@gmail.com