Re: Shading the bounded area in a system of inequalities
- To: mathgroup at smc.vnet.net
- Subject: [mg22010] Re: [mg21960] Shading the bounded area in a system of inequalities
- From: BobHanlon at aol.com
- Date: Thu, 10 Feb 2000 02:25:54 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Algebra`InequalitySolve`"];
Needs["Graphics`FilledPlot`"];
f[x_] := 7x + 5;
FilledPlot[f[x], {x, -2, 4}];
If you want to restrict the region such that y>3 and y < 30
soln = InequalitySolve[f[x] > 3 && f[x] < 30, x]
-(2/7) < x < 25/7
FilledPlot[{f[x]*(1 - UnitStep[x - First[soln]] + UnitStep[x - Last[soln]]),
f[x]}, {x, -2, 4}];
Bob Hanlon
In a message dated 2/7/2000 4:46:15 AM, skipper at worldnet.att.net writes:
>When you're given a linear equation subject to constraints how do you
>shade the bounded area, set the corner points and find the
>minimum/maximum value of the equation using Plot. I tried FilledPlot
>but couldn't get that to work( it just spit back my input, without a
>plot). Acually, I don't really need to plot, but I'd like to know how
>to get the shading to work.
>