filling

*To*: mathgroup at smc.vnet.net*Subject*: [mg127030] filling*From*: Francisco Gutierrez <fgutiers2002 at yahoo.com>*Date*: Tue, 26 Jun 2012 04:45:56 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Reply-to*: Francisco Gutierrez <fgutiers2002 at yahoo.com>

Dear Friends: Filling is rather well documented. I have failed to solve an apparently simple but annoying problem. I have the following plot:= Needs["PlotLegends`"] example=ListLinePlot[threevarsA, PlotStyle->{{Thick,Red},{Thick,Orange}, {Thick,Green}}, Ticks->{{{0,1976},{10,1986},{20,1996},{30,2006},{34,2009}}, Automatic},PlotLegend->{Text[Style["Ammnist=EDa",12]],Text[Style["SD-USA",12]],Text[Style[ "Polity",12]]},LegendPosition->{1.1,-0.4}, Filling->{2->{{3}, Gray}}] threevars is this list: {{6,4,4,0,2,2,0,2,2,2,0,2,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2,0,0},{6,6,6,4,4,4,4,4,4,4,2,2,2,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2},{8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9,9,9,9,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7}} Note that in the output the gray area falls below the red line (exactly by 1996).. I do not want this. I want the gray filling to fall between the green line and the maximum value of the red and orange ones --but without drawing the line of the maxima of these two. How can I manage to do this? Any help appreciated Francisco

**Follow-Ups**:**Re: filling***From:*Kurt TeKolste <tekolste@fastmail.net>