Re: Can mathematica sovle this?

*To*: mathgroup at smc.vnet.net*Subject*: [mg51088] Re: Can mathematica sovle this?*From*: pein <petsie at arcor.de>*Date*: Mon, 4 Oct 2004 06:17:56 -0400 (EDT)*References*: <cjoiq3$amu$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

YOUNGWHAN schrieb: > \!\(2 q\^2\/p\^2 + p\/q - p\^2\/q\^2, p\) > > But, p+q=1. > > Can it reduce above? > > Of course, I can do it handwriting, however, I am curious the mathematica > can do it. > > Regards, > From Novice of mathematica. > > > From - Sun Did you have this In[1]:= Simplify[Reduce[{2*q^2/p^2 + p/q - p^2/q^2 == 0, p + q == 1}, {p, q}], Element[_,Reals]] Out[1]= p == 4/7 - (-9 + 7*Sqrt[33])^(1/3)/(7*3^(2/3)) + 8/(7*(3*(-9 + 7*Sqrt[33]))^(1/3)) && q == 3/7 + (-9 + 7*Sqrt[33])^(1/3)/(7*3^(2/3)) - 8/(7*(3*(-9 + 7*Sqrt[33]))^(1/3)) in mind? -- Peter Pein, Berlin