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