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