MathGroup Archive 2006

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

Search the Archive

Re: Inequalities


>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