Re: Real Solutions
- To: mathgroup at smc.vnet.net
- Subject: [mg95809] Re: [mg95782] Real Solutions
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 28 Jan 2009 06:27:19 -0500 (EST)
- Reply-to: hanlonr at cox.net
Select[Solve[x^3 - 2 x + 7 == 0, x], FreeQ[x /. #, Complex] &] {{x -> -(2*(2/(3*(63 - Sqrt[3873])))^ (1/3)) - ((1/2)*(63 - Sqrt[3873]))^ (1/3)/3^(2/3)}} Select[NSolve[x^3 - 2 x + 7 == 0, x], FreeQ[x /. #, Complex] &] {{x->-2.25826}} Bob Hanlon ---- =?UTF-8?B?S293YWxjenlrLVNjaHLDtmRlcg==?= at smc.vnet.net wrote: ============= Hi, I need only the real solutions from Solve or NSolve. I found a complicated way with a lot of "ifs" to get, what I want. Is there an easier way to do this? (I don't want to use Reduce.) Regards J.Schroeder