Re: Filling area between curves

*To*: mathgroup at smc.vnet.net*Subject*: [mg124749] Re: Filling area between curves*From*: David Reiss <dbreiss at gmail.com>*Date*: Sat, 4 Feb 2012 06:27:49 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <jgg1fq$bpm$1@smc.vnet.net>

Plot[ { Piecewise[{ {-1 + 4 x - x^2, x < 1/2 (3 + Sqrt[13]) && x > 1/2 (5 - Sqrt[13])}, {0, x > 1/2 (3 + Sqrt[13]) && x < 0}, {-1 + 4 x - x^2, x < 1/2 (3 + Sqrt[13]) && x > 1/2 (5 - Sqrt[13])}}] , Piecewise [{{x - 2, x > 2 && x < 1/2 (3 + Sqrt[13])}, {2 - x , x < 2 && x > 1/2 (5 - Sqrt[13])}}], Piecewise [{{x - 2, x > 1/2 (3 + Sqrt[13])}, {2 - x , x < 1/2 (5 - Sqrt[13])}}], Piecewise[{{-1 + 4 x - x^2, x > 1/2 (5 - Sqrt[13])}}], Piecewise[{{-1 + 4 x - x^2, x < 1/2 (3 + Sqrt[13])}}] }, {x, 0, 5}, Filling -> {1 -> {2}}] --David On Feb 3, 2:14 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?