Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?