Re: Filling area between curves
- To: mathgroup at smc.vnet.net
- Subject: [mg124752] Re: Filling area between curves
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sat, 4 Feb 2012 06:28:51 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201202030711.CAA12052@smc.vnet.net>
f[x_] = -1 + 4 x - x^2; g[x_] := x - 2; h[x_] := 2 - x; Show[ RegionPlot[ h[x] < y < f[x] && x < 2 || g[x] < y < f[x] && x > 2, {x, 0, 5}, {y, 0, 3}], Plot[{f[x], g[x], h[x]}, {x, 0, 5}, PlotRange -> {0, 3}]] Bob Hanlon On Fri, Feb 3, 2012 at 2:11 AM, Elaine Ritter <eyeninei9 at gmail.com> wrote: > I have 3 curves, and I want to fill one of the areas that they bound. > The equations are > F[x] = -1 + 4 x - x^2 > G[x] := x - 2 > H[x] := 2 - x > and I want to fill the region that I shaded in this picture: > http://i.imgur.com/X2urH.png > > I've been trying to figure this out on my own, but to no avail. How do > I do this?
- References:
- Filling area between curves
- From: Elaine Ritter <eyeninei9@gmail.com>
- Filling area between curves