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...

2. 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] & ]

3. 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] & ]

My friend, again thanks for ur response.

I have also a problem at the end of the programing, let me say that there are some matries and I would like to put the just real numbers into these matries,

thanks to your advice, I could be able to manage to eliminate complexes roots before, Now I would like to conclude the programing with the last step which I am in trouble with.

The problem is underlined, What I mean is that I would like to have each real number; "By the way I could convert TAN() into degree"; to Sin[....].

Sincerely