Re: filling

*To*: mathgroup at smc.vnet.net*Subject*: [mg127057] Re: filling*From*: Kurt TeKolste <tekolste at fastmail.net>*Date*: Wed, 27 Jun 2012 04:10:49 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*References*: <201206260845.EAA06838@smc.vnet.net>

Francisco You need to define the function that defines the lower bound and include it in the plot. You then plot the fourth function as the lower bound of the filing for the third function using the color "Transparent". bottom = Max /@ (threevars[[;; 2]]\[Transpose]); fourvars = Append[threevars, bottom]; Needs["PlotLegends`"] example = ListLinePlot[fourvars, PlotStyle -> {{Thick, Red}, {Thick, Orange}, {Thick, Green}, {Thick, Transparent}}, 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 -> {3 -> {{4}, Gray}}] ekt On Tue, Jun 26, 2012, at 04:45 AM, Francisco Gutierrez wrote: > > 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

**References**:**filling***From:*Francisco Gutierrez <fgutiers2002@yahoo.com>