3 eqns 3 unknws
- To: mathgroup at smc.vnet.net
- Subject: [mg40930] 3 eqns 3 unknws
- From: Richard Cochinos <richard at theory.org>
- Date: Thu, 24 Apr 2003 05:30:15 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I cant seem to get mathematica to solve a set of algebraic equations, any suggestion? I'm looking for x,y,z ; p,r,w,d are all constants. "In[1]:=Solve[{a*P*A*x^(a - 1)*y^b*z^c == r, b*P*A*x^a*y^(b - 1)*z^c == w, c*P*A*x^a*y^b*z^(c - 1) == D/(z^2)}, {x, y, z}] Solve::"tdep": "The equations appear to involve the variables to be solved for in an essentially non-algebraic way." Out[1]:= \!\(Solve[{a\ A\ P\ x\^\(\(-1\) + a\)\ y\^b\ z\^c == r, A\ b\ P\ x\^a\ y\^\(\(-1\) + b\)\ z\^c == w, A\ c\ P\ x\^a\ y\^b\ z\^\(\(-1\) + c\) == D\/z\^2}, {x, y, z}]\)" Well, the last part doesn\t translate to text proper, but it just reitterates the equations. r.j.c.//richard at theory.org