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

Already thanks dear friends...

I am looking forward to ur responses...