MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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






  • Prev by Date: Separating square roots
  • Next by Date: Re: Sending an interrupt to the frontend?
  • Previous by thread: Separating square roots
  • Next by thread: Re: Separating square roots