Re: How do I extract a non-imaginary answer from an answer set?
- To: mathgroup at smc.vnet.net
- Subject: [mg41905] Re: How do I extract a non-imaginary answer from an answer set?
- From: Bill Rowe <listuser at earthlink.net>
- Date: Mon, 9 Jun 2003 05:20:51 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 6/8/03 at 6:46 AM, no_spam_anglewyrm at hotmail.com (AngleWyrm) wrote: >I want to extract the answer(s) that don't have an imaginary >componant: > >Solve[ 30 86.7 x^49 == 3/2 86.7 1.23^49, x] > >produces a lot of answers, but only the last one is not imaginary, and >is the only useful answer for me. Is there a way to extract just this >answer, instead of a huge list? Try s = Solve[ 30 86.7 x^49 == 3/2 86.7 1.23^49, x]; Select[s,Im[x/.#]==0&]