Filling in ListPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg105058] Filling in ListPlot
• From: fd <fdimer at gmail.com>
• Date: Thu, 19 Nov 2009 05:24:38 -0500 (EST)

```All

I'm having problems with Filling in ListPlot. I have two curves and
would like different colors as one curve goes above the other, here
goes the code;

aris = {10000, 5000, 1000, 500, 100, 50, 20}; y = 10000;

elist = Flatten[ConstantArray[#, IntegerPart[y/#]] & /@ aris];

n = 1;
ariList = Reverse[{N[y/n++], #} & /@ elist]

ListLogLogPlot[{ariList, {{1, 1}, {100000, 100000}}},
PlotRange -> All, InterpolationOrder -> {0, 1}, Joined -> True,
Filling -> {2 -> {{1}, {Yellow, Orange}}}]

If I define a interpolation function myself it works, but it is a bit
of a nuisance

f[x_] = Interpolation[ariList, InterpolationOrder -> 0][x];

LogLogPlot[{f[x], x}, {x, 10, 10000},
Filling -> {2 -> {{1}, {Yellow, Orange}}}]

Is there a way of making it work correctly with ListPlot ? Would this
be a bug ?

Best
F.

```

• Prev by Date: Freeze Panes in Grid Expression
• Next by Date: Solve and the order of variables to solve for (v7.0)
• Previous by thread: Re: Freeze Panes in Grid Expression
• Next by thread: Re: Filling in ListPlot