Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*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 1998

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

Search the Archive

Re: Solving simultaneous eqns

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14287] Re: Solving simultaneous eqns
  • From: "W. K. Bertram" <wkb at ansto.gov.au>
  • Date: Tue, 13 Oct 1998 01:21:08 -0400
  • Organization: Australian Nuclear Science and Technology Organisation
  • References: <6vf3ta$dde@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Yeoung-Sang Yun wrote:

> Hello!
>
> I want to know how to solve the following simulaneous equations in
> Mathematica:
>
> x=x^1.2/(2*x^3+y^0.7+4*z^2.5)
> y=y^0.7/(2*x^0.6+y^2+z^2.2)
> z=0.9*z^1.5/(x^0.7+2*y^0.2+z^1.1)
>

Hi,

Use:

FindRoot[{x == x^1.2/(2*x^3+y^0.7+4*z^2.5),
                 y == y^0.7/(2*x^0.6+y^2+z^2.2),
                 z == 0.9*z^1.5/(x^0.7+2*y^0.2+z^1.1)},
                 {x,1},{y,1},{z,1}]

to get:

{x -> 0.2071155206958545 - 4.456053142803247*^-10*I,
  y -> 0.6156594604688913 + 1.237663943046694*^-9*I,
  z -> 2.09226461646654*^-15 +  2.130084871188269*^-16*I}

Cheers,
     Bill



  • Prev by Date: Re: How: {{a,b},{1,2,3}} --> {{a,1},{b,2},{a,3}} ?
  • Next by Date: Re: Unexpected results
  • Previous by thread: Re: Solving simultaneous eqns
  • Next by thread: RE: Re: Solving simultaneous eqns