Re: How do I extract a non-imaginary answer from an answer set?
- To: mathgroup at smc.vnet.net
- Subject: [mg42011] Re: How do I extract a non-imaginary answer from an answer set?
- From: "Dana DeLouis" <delouis at bellsouth.net>
- Date: Mon, 16 Jun 2003 03:57:53 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Perhaps another option might be:
equ = 30*86.7*x^49 == (3/2)*86.7*1.23^49
2601.*x^49 == 3.3072027245287024*^6
Cases[Chop[Solve[equ, x]], {_ -> _Real}]
{{x -> 1.1570536025466724}}
--
Dana DeLouis
Windows XP
Mathematica $VersionNumber -> 4.2
delouis at bellsouth.net
= = = = = = = = = = = = = = = = =
"AngleWyrm" <no_spam_anglewyrm at hotmail.com> wrote in message
news:bbv513$24o$1 at smc.vnet.net...
> 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?
>
> --
> -Jonathan
>