• May 30th 2010, 04:38 AM
sedat
Greetings from Turkey,

This is the my first post. Friends, I have a big problem about the software of Mathematica. The problem is that I have three equations having 16th orders and I got 16 amount roots which have both complex conjugates and real parts by solving these equations with the code of the NSolve, up to here It is all ok, but I would like to eliminate Complex and just print real roots. Now 2 reals and 14 complexes roots are printed on my programing.

In second step; as seen figure-1; after eliminating complexes roots, I would like to put each real root into the form of the "figure-2".

I should manage to all these I am talking about, or else I will have to waste most of my time converting these to the form of the figure-2 with a pen and a paper :(

I am looking forward to ur responses...
• May 30th 2010, 11:11 AM
shawsend
Not sure about the Tan() constructs, but for example, the variables x and y, I'd try:

Code:

```myroots = NSolve[{x^2 - 3*x*y^3 == 2,     y^2 - 4*x + 2*y == 2}, {x, y}] theRoots = Flatten[{x, y} /. myroots] Select[theRoots, Element[#1, Reals] & ]```
• Jun 1st 2010, 11:46 AM
sedat
Quote:

Originally Posted by shawsend
Not sure about the Tan() constructs, but for example, the variables x and y, I'd try:

Code:

```myroots = NSolve[{x^2 - 3*x*y^3 == 2,     y^2 - 4*x + 2*y == 2}, {x, y}] theRoots = Flatten[{x, y} /. myroots] Select[theRoots, Element[#1, Reals] & ]```