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

perhaps you can adapt this to your needs.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] & ]