Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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