Re: ListPlot: Choose segents to draw.

*To*: mathgroup at smc.vnet.net*Subject*: [mg82368] Re: ListPlot: Choose segents to draw.*From*: Peter <petsie63 at googlemail.com>*Date*: Thu, 18 Oct 2007 05:01:48 -0400 (EDT)*References*: <ff4g7u$fmv$1@smc.vnet.net>

On Oct 17, 10:13 am, Nacho <ncc1701... at gmail.com> wrote: > Hello all. > > Using Mathematica V6, I have several hundred lists to plot. > > They draw OK just with > > ListPlot[mytable, Joined->True,PlotRange->All] > > But several hundred plots are a mess. I'm only interested in the > segments of each list that are increasing, that is, for every x(i), > x(i)>x(i+1). > > Is there any set of options to ListPlot to make the descending > segments invisible? Some kind of MeshShading to choose betweet > Automatic and None depending of two consecutive values. > > If I have to create a new mytable, please bear in mind that the total > length of the lists must remain equal. > > Thanks a lot for your help. Hi, from the context I guess you mean x(i)<x(i+1) ? AFAIK, there's no such Option to ListPlot, but it's easy to simulate such behaviour. You do not tell us if your data has got x- and y- values or if it is a list of single values. So I'll show you both: In[1]:= valuedata = (pointdata = ({#1, Sin[#1]} & ) /@ (Pi*0.02*Range[0, 100])) [[All,2]]; In[8]:= ListPlot[pointdata, PlotJoined -> True]; (* just to verify if everything is OK so far *) In[4]:= cleanup[tbl:{{__?NumericQ}..}] := ({GrayLevel[Boole[Last[Subtract @@ #1] >= 0]], Line[Join[#1]]} & ) /@ Partition[tbl, 2, 1]; cleanup[tbl:{__?NumericQ}] := cleanup[Thread[{Range[Length[tbl]], tbl}]] (Show[Graphics[cleanup[#1]], Axes -> True] & ) /@ {pointdata, valuedata}; This will draw decreasing linesegments in white, the rest in black. hth, Peter