MathGroup Archive 2003

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

Search the Archive

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
>


  • Prev by Date: Re: Mathematica doesn't start??
  • Next by Date: Re: Export Data Format
  • Previous by thread: Re: How do I extract a non-imaginary answer from an answer set?
  • Next by thread: Fourier series interpolation