Mathematica help

  • Mathematica
  • Thread starter jemma
  • Start date
  • #1
36
0
Hi, I'm using NSolve in Mathematica but I only want to find the roots that are real numbers as my answer gives a lot of imaginary numbers. How can I do this?

I want to then plot a birfucation diagram using a table of data. Is there a function to do this?

Thanks!
 

Answers and Replies

  • #2
1,069
29
In[1]:=x /. NSolve[(x - 1)(x^2 + 3)(x^4 + 5) == 0, x]
Out[1]={-1.05737 - 1.05737*I, -1.05737 + 1.05737*I, -3.81167*^-27 - 1.73205*I,
-3.81167*^-27 + 1.73205*I, 1., 1.05737 - 1.05737*I, 1.05737 + 1.05737*I}

In[2]:=Cases[x /. NSolve[(x - 1)(x^2 + 3)(x^4 + 5) == 0, x], _Real]
Out[2]={1.}

http://search.wolfram.com/?query=bifurcation&x=5&y=4
 

Related Threads on Mathematica help

  • Last Post
Replies
1
Views
2K
  • Last Post
Replies
2
Views
3K
  • Last Post
Replies
2
Views
2K
  • Last Post
Replies
1
Views
2K
  • Last Post
Replies
11
Views
2K
  • Last Post
Replies
13
Views
6K
  • Last Post
Replies
5
Views
3K
  • Last Post
Replies
1
Views
1K
  • Last Post
Replies
2
Views
3K
  • Last Post
Replies
9
Views
7K
Top