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

```

• Prev by Date: Re: RotateShape[Cuboid...
• Next by Date: How can I find the closest distance between a specified point and an interpolation curve?
• Previous by thread: Re: InitializationCellEvaluation
• Next by thread: How can I find the closest distance between a specified point and an interpolation curve?