Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?




  • Prev by Date: Re: creation of date list
  • Next by Date: Front end won't start on win7 64
  • Previous by thread: Re: Filling area between curves
  • Next by thread: Re: Filling area between curves