Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*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 2006

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

Search the Archive

Re: Inequalities

  • To: mathgroup at smc.vnet.net
  • Subject: [mg69774] Re: Inequalities
  • From: "Dana DeLouis" <dana.del at gmail.com>
  • Date: Sat, 23 Sep 2006 04:43:45 -0400 (EDT)

>FullSimplify[Assuming[0 < p < q < 1, Reduce[equ, {p, q}]]]

Well, could I have messed that up any more?

I just realized that Assuming in this context didn't work because Reduce
doesn't have the option 'Assumptions'.
This appears to describe the area a little better.

equ = p*(1 - p) < q*(1 - q) && 0 < p < q < 1; 
sol = FullSimplify[Reduce[equ, {p, q}]]

0 < p < 1/2 && p < q && p + q < 1

We see the above 3 boundaries with a quick check...

ContourPlot[Boole[equ], {p, -1, 1}, {q, -1, 2}, PlotPoints -> 200]; 

HTH
Dana


<snip>

>>I am an inexperienced user and am wondering whether Mathematica can help 
>>me with inequalities such as the following.
>>
>>Given 0 < p < q < 1,
>>
>>When is p(1-p)<q(1-q)?
>>
>>It should be, if 1 - q > p.
>>
>>Thanks!


  • Prev by Date: Re: Suggestions for translating a Do[] loop ...
  • Next by Date: Re: Re: Add Quotation Marks to Data in a file
  • Previous by thread: Re: Inequalities
  • Next by thread: Re: Inequalities