I'm trying to solve a system of five nonlinear equations (degree 7) in Mathematica:(adsbygoogle = window.adsbygoogle || []).push({});

but the program is running for an hour...Code (Text):

Solve[{q (a^2 +

b^2 (3 q^2 + r^2 + 8 t^2)) ((e - q)^2 - R^2 - 4 T^2)^2 +

q ((e - q)^2 + R^2 + 4 T^2) - 2 (e - q) (r R + 4 t T) == 0,

R (a^2 + b^2 (3 R^2 + (e - q)^2 + 8 T^2)) ((e - q)^2 - R^2 -

4 T^2)^2 + R (R (R - r) - (e - 3 q) (e - q) + 4 T (T - 2 T)) -

r ((e - q)^2 + 4 T^2) == 0,

r (a^2 + b^2 (3 r^2 + q^2 + 8 t^2)) ((e - q)^2 - R^2 - 4 T^2)^2 -

r (R^2 + (e - q)^2 + 4 T ^2) + 2 R (q (e - q) - 4 t T) == 0,

T (a^2 + 2 b^2 (2 T^2 + (e - q)^2 + R^2)) ((e - q)^2 - R^2 -

4 T^2)^2 + T (4 T (T - t) - (e - 3 q) (e - q) + R (R - 2 r)) -

t ((e - q)^2 + R^2) == 0,

t (a^2 + 2 b^2 (2 t^2 + q^2 + r^2)) ((e - q)^2 - R^2 - 4 T^2)^2 -

t (4 T^2 + (e - q)^2 - R ^2) + 2 T (q (e - q) - rR) == 0

}, {q, r, t, R, T}]

there is hope that it get to the end?

How do I have to change it to hope to arrive at the conclusion?

Thanks

**Physics Forums | Science Articles, Homework Help, Discussion**

Dismiss Notice

Join Physics Forums Today!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

# Solving systems of nonlinear ordinary equations in Mathematica.

**Physics Forums | Science Articles, Homework Help, Discussion**