Re: Inequalities

• To: mathgroup at smc.vnet.net
• Subject: [mg69698] Re: Inequalities
• From: dimmechan at yahoo.com
• Date: Thu, 21 Sep 2006 07:29:26 -0400 (EDT)
• References: <eeqpop\$oe3\$1@smc.vnet.net>

```I repost this message with corrections

Hi.

You can use Reduce
(http://documents.wolfram.com/mathematica/functions/Reduce)

Reduce[p*(1 - p) < q*(1 - q) && 0 < p < q < 1, {p, q}]
0 < p < 1/2 && p < q < 1 - p

There is also the package InequalitySolve

<<Algebra`InequalitySolve`

InequalitySolve[p*(1 - p) - q*(1 - q) > 0 && 0 < p < q < 1, {p, q}]
(Inequality[0, Less, p, LessEqual, 1/2] && 1 - p < q < 1) || (1/2 < p <
1 && p < q < 1)

Dimitris Anagnostou

Î?/Î? misha Î­Î³Ï?Î±Ï?Îµ:
> 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: Inequalities
• Next by Date: Re: Re: General--Mathematica and Subversion
• Previous by thread: Re: Inequalities
• Next by thread: Re: Inequalities