MathGroup Archive 2000

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

Search the Archive

Re: system of simultaneous equations


Hi,

let us make some equations:

eqn = {x^2 + y + z == 1,
             x + y^2 + z == 1,
            x + y + z^2 == 1}

solve it:

sol = Solve[eqn, {x, y, z}]

and now comes the answer:

Select[{x, y, z} /. sol, And @@ ( Positive /@ #) &]

Hope that helps
  Jens

David Braunholtz wrote:
> 
> WHile I've got the attention of a Mathematica expert, I am wanting to
> select a single root of a system of simultaneous equations (with
> positive values for all 3 variables) - and (being new to mathematica)
> cannot work out how to do this. I successfully get a list of roots, but
> cannot make the (you would think) easy step to reduce the list to
> only (positive) roots. Any help VERY gratefully received. I have
> searched in Mathgroup at Wolfram without finding anything.


  • Prev by Date: Re: best solution?
  • Next by Date: Apparently easy ODE
  • Previous by thread: system of simultaneous equations
  • Next by thread: Re: system of simultaneous equations