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

```

• Prev by Date: Re: suggestion for frontend
• Next by Date: Re: Show In/Out Names
• Previous by thread: Can mathematica sovle this?
• Next by thread: Show In/Out Names