non-linear system
- To: mathgroup at smc.vnet.net
- Subject: [mg27275] non-linear system
- From: "Higinio Ramos" <higra at gugu.usal.es>
- Date: Fri, 16 Feb 2001 03:58:24 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
I have to solve a system of nonlinear equations of the type
{y[1] == -0.424716 - 1.01189*Sin[y[1]] + 0.00353042*Sin[y[2]] -
0.00206321*Sin[y[3]] +
0.000880311*Sin[y[4]] + 1.01189*y[1] - 0.00353042*y[2] + 0.00206321*y[3]
- 0.000880311*y[4],
y[2] == 1.129 + 0.0017164*Sin[y[1]] - 1.00058*Sin[y[2]] +
0.000350352*Sin[y[3]] -
0.000146014*Sin[y[4]] - 0.0017164*y[1] + 1.00058*y[2] - 0.000350352*y[3]
+ 0.000146014*y[4],
y[3] == -1.14135 + 0.00923241*Sin[y[1]] - 0.00262889*Sin[y[2]] -
0.998524*Sin[y[3]] -
0.000611205*Sin[y[4]] - 0.00923241*y[1] + 0.00262889*y[2] +
0.998524*y[3] + 0.000611205*y[4],
y[4] == 1.99914 + 0.00314685*Sin[y[1]] - 0.0008926*Sin[y[2]] +
0.000427028*Sin[y[3]] -
1.00016*Sin[y[4]] - 0.00314685*y[1] + 0.0008926*y[2] - 0.000427028*y[3]
+ 1.00016*y[4]}
where y[i] are the unknowns and instead of the function Sin it may
appear any other function and instead of four equations, five,six or
more. I have tried with FindRoot, but after an elevated number of
iterations is not able to solve it. How can Mathematica solve it?
Thanks.
H.Ramos