Re: ListPlot: Choose segents to draw.
- To: mathgroup at smc.vnet.net
- Subject: [mg82364] Re: [mg82296] ListPlot: Choose segents to draw.
- From: DrMajorBob <drmajorbob at bigfoot.com>
- Date: Thu, 18 Oct 2007 04:59:45 -0400 (EDT)
- References: <30676599.1192654613735.JavaMail.root@m35>
- Reply-to: drmajorbob at bigfoot.com
Maybe this does what you intend:
n = 17;
mesh = Pi/35;
tbl = Table[{i, Cos[k i]}, {k, 1, n}, {i, 0, Pi/2, mesh}];
Clear[risers]
risers[points : {{_?NumericQ, _?NumericQ} ..}] :=
Cases[Partition[points, 2,
1], {{_?NumericQ, one_?NumericQ}, {_?NumericQ, two_?NumericQ}} /;
two > one]
ListPlot[Flatten[risers /@ tbl, 1], PlotJoined -> True]
That's still a messy plot, but maybe with your data it won't be.
Bobby
On Wed, 17 Oct 2007 02:59:07 -0500, Nacho <ncc1701zzz 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.
>
>
>
--
DrMajorBob at bigfoot.com