MathGroup Archive 2013

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

Search the Archive

Re: Help with "recession bar" graph

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129734] Re: Help with "recession bar" graph
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Sat, 9 Feb 2013 00:44:11 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net
  • References: <bvd8kg$5ca$1@smc.vnet.net>

data = {
   38.396359394355414`, 72.27272309523107`,
   89.29538328240793`, 72.10010639242938`,
   82.58607698201098`, 18.6576446975194`,
   33.27870983668225`, 21.4169865528564`,
   27.143317794267958`, 56.831020645157224`,
   97.91895556654552`, 53.699909198741835`,
   62.45884842291329`, 43.57174038250221`,
   5.572069539912178`, 47.64601720765782`,
   57.36520060575606`, 11.616476185686125`,
   53.621120873396194`, 86.51670206163143`,
   46.158001732049314`, 91.79901697376656`,
   56.56864196802621`, 68.80447171646065`,
   69.71270226145879`, 9.193667545986898`,
   12.322285539970679`, 84.54474541006726`,
   37.46708245474912`, 70.19095794556748`,
   21.368052894967576`, 95.70714721558335`,
   19.184901239515995`, 12.369028572198587`,
   97.66742717262244`, 64.70934352032668`,
   1.1657357274066413`, 57.74269869413277`,
   58.529638656649155`, 34.40274725318369`,
   52.38021809465195`, 64.42731199035626`,
   54.74507564841295`, 32.199884547032894`,
   64.85420465012712`, 26.538659912812435`,
   43.037739816388466`, 25.366295485189113`,
   7.604466054852992`, 92.16216075731677`};

Show[
 RegionPlot[
  {6 <= x <= 13, 19 <= x <= 25, 39 <= x <= 46},
  {x, 0, 50}, {y, 0, 100},
  BoundaryStyle -> None],
 ListLinePlot[data]]

Show[
 RegionPlot[
  {6 <= x <= 13 || 19 <= x <= 25 || 39 <= x <= 46},
  {x, 0, 50}, {y, 0, 100},
  BoundaryStyle -> None],
 ListLinePlot[data]]


Bob Hanlon


On Fri, Feb 8, 2013 at 5:12 AM, Alan <alan.isaac at gmail.com> wrote:
> I'm looking for the same thing: vertical shaded regions behind a plot.  Any ideas?
>



  • Prev by Date: Re: Undo/Redo
  • Next by Date: Re: Mathematica and Lisp
  • Previous by thread: Re: Help with "recession bar" graph
  • Next by thread: Re: Help with "recession bar" graph