MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: PlotStyles

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30858] Re: [mg30815] PlotStyles
  • From: BobHanlon at aol.com
  • Date: Thu, 20 Sep 2001 03:52:10 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 2001/9/19 12:47:47 AM, mcoleman at bondspace.com writes:

>Is there a way to apply different PlotStyles to a single list of data 
>in a List Plot command? For instance, can I specifiy the first
>half of the data points to be one color, and the remaining half to be
>another, so that it is easy to visually separate the two subsets of data.
>
>I know that this could be done by creating separate graphs and then 
>overlaying them,  but I'm curious is this can be done within a single 
>Plot or ListPlot command.
>

You can use a single MultipleListPlot by partitioning the data

Needs["Graphics`Colors`"];
Needs["Graphics`MultipleListPlot`"];
Needs["Graphics`Graphics`"];

data = Table[{x, Exp[-Sqrt[x]]*Sin[2x]}, 
      {x, 0, 3Pi, Pi/16}];

MultipleListPlot[n=0; 
    (Take[data, (-1)^n++ * #[(Length[data]+1)/2]])& /@  
      {Floor, Ceiling}, PlotJoined->True,
    Frame->True, Axes->False, PlotRange->All,
    FrameTicks->{PiScale, Automatic, None, None},
    SymbolShape->None,
    PlotStyle->{{AbsoluteDashing[{5,5}], Blue}, Red}];


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Some advanced formatting options.
  • Next by Date: RGBColor [?,?,?]
  • Previous by thread: Re: PlotStyles
  • Next by thread: RE: PlotStyles