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: [mg118235] Re: ListLinePlot and Filling, or not ....
  • From: Peter Pein <petsie at dordos.net>
  • Date: Sun, 17 Apr 2011 07:54:23 -0400 (EDT)
  • References: <iobun4$b7h$1@smc.vnet.net>

Am 16.04.2011 13:31, schrieb annetts729:
> 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.
>

Hi Dave,

you could try to interpolate the points to get functions to be 
visualized wit Plot:

Plot[Evaluate[Through[((Interpolation[#1, InterpolationOrder -> 1] & ) 
/@ dset)[x]]],
   {x, 498744, 498847}, PlotStyle -> {Lighter[Gray], Lighter[Gray], Red, 
Red, Lighter[Gray]},
   Mesh -> MapThread[Union, Transpose /@ dset], MeshStyle -> 
Darker[Yellow],
   PlotRange -> {Automatic, {-50, 200}}, ImageSize -> 500, Filling -> {3 
-> {4}},
   FillingStyle -> Lighter[Orange]]

Peter


  • Prev by Date: Re: Outline navigator?
  • Next by Date: Re: Trignometric rules
  • Previous by thread: Re: ListLinePlot and Filling, or not ....
  • Next by thread: A problem on MeijerG function