MathGroup Archive 2004

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

Search the Archive

Re: How to solve nonlinear equations?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg52526] Re: How to solve nonlinear equations?
  • From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
  • Date: Wed, 1 Dec 2004 05:57:41 -0500 (EST)
  • Organization: Uni Leipzig
  • References: <cohj9d$1nr$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

a) learn the correct syntax of Mathematica
b) read the Mathematica book carefully
c) type:

eqns = {20.428836553499018 - Log[X1] ==
468/67*X1 + 5790/1273*X2 - 66257/1273*X3 - 24660/1273*X4 -
79150/1273*X5,
17.011108423692498 - Log[X2] ==
5790/1273*X1 + 6294/1273*X2 - 66257/1273*X3 - 24660/1273*X4 -
403.8069285*X5, -29.72639373695347 - Log[X3] == -66257/1273*X1 -
66257/1273*X2 - 2*X3, -26.273726271581616 -
Log[X4] == -24660/1273*X1 - 24660/1273*X2 +
10.15330715*X4, -38.76695085346396 - Log[X5] == -79150/1273*X1 -
403.8069285*X2 - 10.67374705*X5}

FindRoot[eqns, {{X1, 1}, {X2, 1}, {X3, 1}, {X4, 1}, {X5, 1}}]



Regards

  Jens


"Wei Wang" <weiwang at baosteel.com> schrieb im Newsbeitrag 
news:cohj9d$1nr$1 at smc.vnet.net...
> How to solve the following equations, where X1, X2, X3, X4 and X5 are 
> variables?
>
> eqns = {20.428836553499018-ln(X1) == 
> 468/67*X1+5790/1273*X2-66257/1273*X3-24660/1273*X4-79150/1273*X5, 
> 17.011108423692498-ln(X2) == 
> 5790/1273*X1+6294/1273*X2-66257/1273*X3-24660/1273*X4-403.8069285*X5, -29.72639373695347-ln(X3) 
> == -66257/1273*X1-66257/1273*X2-2*X3, -26.273726271581616-ln(X4) 
> == -24660/1273*X1-24660/1273*X2+10.15330715*X4, -38.76695085346396-ln(X5) 
> == -79150/1273*X1-403.8069285*X2-10.67374705*X5};
> 



  • Prev by Date: Re: Animating Solutions of NDSolve with respect to Initial Conditions
  • Next by Date: GUIKit and VisibleRect
  • Previous by thread: Re: Animating Solutions of NDSolve with respect to Initial Conditions
  • Next by thread: Re: Re: How to solve nonlinear equations?