MathGroup Archive 2011

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

Search the Archive

Re: ListLinePlot and Filling, or not ....

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118244] Re: ListLinePlot and Filling, or not ....
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Sun, 17 Apr 2011 07:56:08 -0400 (EDT)

pl03 = ListLinePlot[dset, Joined -> True,
    PlotStyle -> {Lighter@Gray, Lighter@Gray, Red, Red, Lighter@Gray},
    Mesh -> All, MeshStyle -> Yellow,
    PlotRange -> {Automatic, {-50, 200}}, ImageSize -> 500];
poly = Polygon@Flatten[{dset[[3]], Reverse@dset[[4]]}, 1];
Show[pl03, Graphics@{Blue, poly}]

Bobby

On Sat, 16 Apr 2011 06:31:29 -0500, annetts729 <annetts729 at gmail.com>  
wrote:

> Hi,
>
> I'd like to plot the data
>
> dset = {{{498847., 140.63}, {498836., 140.52}, {498824., 140.42},
> {498813.,
>    140.37}, {498802., 140.39}, {498790., 140.46}, {498779.,
>    140.41}, {498767., 140.35}, {498756., 140.34}, {498744.,
>    140.35}}, {{498847., 121.8}, {498836., 120.71}, {498824.,
>    119.79}, {498813., 118.62}, {498802., 117.45}, {498790.,
>    116.26}, {498779., 114.92}, {498767., 113.57}, {498756.,
>    110.74}, {498744., 109.15}}, {{498847., 100.26}, {498836.,
>    99.04}, {498824., 97.84}, {498813., 96.59}, {498802.,
>    95.32}, {498790., 93.99}, {498779., 92.47}, {498767.,
>    90.94}, {498756., 88.01}, {498744., 86.25}}, {{498847.,
>    90.332}, {498836., 89.067}, {498824., 87.61}, {498813.,
>    86.32}, {498802., 85.}, {498790., 83.61}, {498779.,
>    82.04}, {498767., 80.46}, {498756., 77.68}, {498744.,
>    75.9}}, {{498847., 74.022}, {498836., 72.577}, {498824.,
>    70.31}, {498813., 68.84}, {498802., 67.29}, {498790.,
>    65.6}, {498779., 63.68}, {498767., 61.73}, {498756.,
>    58.95}, {498744., 56.8}}};
>
> which I can do using
>
> pl03 = ListLinePlot[dset, Joined -> True,
>   PlotStyle -> {Lighter@Gray, Lighter@Gray, Red, Red, Lighter@Gray},
>   Mesh -> All, MeshStyle -> Yellow,
>   PlotRange -> {Automatic, {-50, 200}},
>   ImageSize -> 500]
>
> I'd like to have to area between those two red traces filled.
>
> Using 8.0.1, I can insert the command Filling->{1->Top, 5->Bottom} to
> fill between the upper & lower traces.  Given that the command
> Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, Filling -> {2
> -> {3}}] (from the documentation)
> works as expected (ie. shades between the second & third curves), why
> doesn't the command
> Filling->{3->{4}} (inserted into the ListLinePlot[] block above) work?
>
> Many thanks,
>
> Dave.
>


-- 
DrMajorBob at yahoo.com


  • Prev by Date: Re: Trignometric rules
  • Next by Date: Re: Sharing numerical data along with a Mathematica notebook
  • Previous by thread: ListLinePlot and Filling, or not ....
  • Next by thread: Re: ListLinePlot and Filling, or not ....