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: [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?




  • Prev by Date: Re: creation of date list
  • Next by Date: Re: Problem using Solve or Nsolve
  • Previous by thread: Re: Filling area between curves
  • Next by thread: Re: Filling area between curves