I wanted to confirm a question of my own, and I figured out if there is a solution of the following equations such that every variable is real and $x,y\ge 0$, my question could be partially verified.
However, after two hours of running Mathematica, I thought that this would not give me the solution, and aborted it. Is there a good way to calculate a numerical solution of an equation as complex as this? I tried using other kinds of equations which the solution is known, but it didn't work either.
I really want to calculate a solution, or prove that this has a solution. Any ideas?
Edit. I add a Mathematica code for solving the equations:
t0813[x_, y_, z_, a_, b_, c_, d_, e_, f_, g_, h_, i_, j_] :=
a x^3 + b y^3 + c z^3 + d x^2 y + e x y^2 + f y ^2 z + g y z^2 +
h z^2 x + i z x^2 + j x y z
NSolve[{t0813[1, 1, 1, a, b, c, d, e, f, g, h, i, j] == 0,
t0813[1, x, y, a, b, c, d, e, f, g, h, i, j] == 0,
t0813[1, y, x, a, b, c, d, e, f, g, h, i, j] == 0,
t0813[x, 1, y, a, b, c, d, e, f, g, h, i, j] == 0,
t0813[y, 1, x, a, b, c, d, e, f, g, h, i, j] == 0,
t0813[x, y, 1, a, b, c, d, e, f, g, h, i, j] == 0,
t0813[y, x, 1, a, b, c, d, e, f, g, h, i, j] == 0,
a^2 + b^2 + c^2 == 1,
2 a d + 2 b e + 2 b f + 2 c g + 2 c h + 2 a i == 0.01 - 700/102,
2 b d + d^2 + 2 a e + e^2 + 2 c f + f^2 + 2 b g + g^2 + 2 a h +
h^2 + 2 c i + i^2 == 1124/102,
2 e f + 2 g h + 2 d i + 2 a j + 2 b j + 2 c j == 738/102,
2 a b + 2 a c + 2 b c + 2 d e + 2 f g + 2 h i == -564/102}, {a, b,
c, d, e, f, g, h, i, j, x, y}]


1124/702should really be1124/102? – uranix Aug 15 '15 at 15:14