Re: Separating square roots

*To*: mathgroup at smc.vnet.net*Subject*: [mg127233] Re: Separating square roots*From*: "Dave Snead" <dsnead6 at charter.net>*Date*: Tue, 10 Jul 2012 03:17:46 -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>

Use nosqrt = Select[A, FreeQ[#, Power[_, 1/2]] &] withsqrt=Select[A, ! FreeQ[#, Power[_, 1/2]] &] Cheers, Dave -----Original Message----- From: rhartley.anu at gmail.com Sent: Monday, July 09, 2012 9:42 PM To: mathgroup at smc.vnet.net Subject: [mg127233] Separating square roots 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? r

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