Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

RE: shade area between vertical lines

  • To: mathgroup at smc.vnet.net
  • Subject: [mg46913] RE: [mg46907] shade area between vertical lines
  • From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
  • Date: Tue, 16 Mar 2004 02:37:14 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

>-----Original Message-----
>From: elmanthira [mailto:my_name at microsoftsnetwork.com]
To: mathgroup at smc.vnet.net
>Sent: Monday, March 15, 2004 5:54 AM
>To: mathgroup at smc.vnet.net
>Subject: [mg46913] [mg46907] shade area between vertical lines
>
>
>Hello.
>
>I know that it is possible to have Mathematica generate a plot that 
>shows the area shaded in between the lines y=1 and y=2 with 
>something like:
><<Graphics`FilledPlot`;
>FilledPlot[{1, 2}, {x, -1, 5}, PlotRange -> {-1, 5}]
>
>This makes a lovely display of the open set in R^2 {(x,y):1<y<2}.
>
>I wish to intersect this with the set in R^2 {(x,y):1<x<2}.
>
>First, how can I make it graph the four lines on the same plot, AND 
>shade in rectangle formed by the overlapping bars.
>
>Ideally, I'd want the bars to be shaded in with the rectangle 
>formed to 
>have some sort of crosshatch pattern, or other "darker" area.  
>It seems 
>that Mathematica automatically does some color differentiation for 
>different regions, and that would be adequate, I hope.
>
>I'm using Mathematica 5 (for the classroom, if that matters), on WinXP 
>Pro.  I'm not a very sophisticated mathematica user, but since it's 
>spring break, I thought I'd start writing down some of my notes.
>
>Thanks much.
>

Perhaps you like to try this:

<< Graphics`FilledPlot`

Plot[{x^2}, {x, -1, 5}, PlotRange -> {{-1, 5}, {-1, 5}}, 
  GridLines -> {{1., 2.}, {1, 4}}, 
  Prolog -> {{Hue[1/2, .3, 1], Rectangle[{1., -1.}, {2., 5.}], 
        Hue[1/2, .3, 1], Rectangle[{-1., 1.}, {5., 4.}], Hue[1/2], 
        Rectangle[{1., 1.}, {2., 4.}]}}, DisplayFunction -> Identity]

Show[%, AxesFront -> True, DisplayFunction -> $DisplayFunction]

--
Hartmut Wolf


  • Prev by Date: Typesetting: ?Big Sigmas and Little Sigmas?
  • Next by Date: Re: shade area between vertical lines
  • Previous by thread: shade area between vertical lines
  • Next by thread: Re: shade area between vertical lines