Re: Solving system of Inequalites
- To: mathgroup at smc.vnet.net
- Subject: [mg12972] Re: [mg12912] Solving system of Inequalites
- From: BobHanlon at aol.com
- Date: Sun, 28 Jun 1998 02:51:58 -0400
- Sender: owner-wri-mathgroup at wolfram.com
Jeffrey,
Needs["Algebra`InequalitySolve`"]
InequalitySolve[4*x + 3*y < 12 && y + 4*x > -4,
{x, y}]
Needs["Graphics`FilledPlot`"]
FilledPlot[{-4*x - 4, 4 - 4*x/3}, {x, -3, 5}];
Bob Hanlon
In a message dated 6/24/98 11:18:59 AM, Voyager_2 at cable.A2000.nl wrote:
>I am trying to solve a system of inequalities in Mathematica, for
>example:
>
>4x+3y<12
>y+4x>-4
>
>but how must I do this? Maybe someone can help me out !