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.