Re: Filling area between curves

*To*: mathgroup at smc.vnet.net*Subject*: [mg124774] Re: Filling area between curves*From*: David Reiss <dbreiss at gmail.com>*Date*: Sun, 5 Feb 2012 06:02:40 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201202030711.CAA12052@smc.vnet.net> <jgj4tf$mup$1@smc.vnet.net>

Of course Bob Hanlon will give the simplest answer... :-) On Feb 4, 6:30 am, Bob Hanlon <hanlonr... at gmail.com> wrote: > 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 <eyenin... 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>