Re: Graphing Inequalities
- To: mathgroup at smc.vnet.net
- Subject: [mg9844] Re: [mg9724] Graphing Inequalities
- From: BobHanlon at aol.com
- Date: Fri, 28 Nov 1997 05:35:58 -0500
- Sender: owner-wri-mathgroup at wolfram.com
For the 2-D case:
Needs["Graphics`FilledPlot`"]
FilledPlot[{x, x^2}, {x, 0, 5}];
FilledPlot fills in the area between plots; however, only part of the
shaded area meets your criteria (y > x and y < x^2).
FilledPlot[{x, x^2}, {x, 0, 1.5}];
Needs["Algebra`InequalitySolve`"]
InequalitySolve[x^2 > x, x]
x<0||x>1
Consequently, you only want the filled plot for {x, 1, 5}.
Show[{
Plot[{x, x^2}, {x, 0, 1}, DisplayFunction -> Identity],
FilledPlot[{x, x^2}, {x, 1, 5}, DisplayFunction -> Identity]
}, DisplayFunction -> $DisplayFunction];
Bob Hanlon