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!