MathGroup Archive 1999

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

Search the Archive

Re: SymbolShape

  • To: mathgroup at
  • Subject: [mg19562] Re: [mg19537] SymbolShape
  • From: BobHanlon at
  • Date: Wed, 1 Sep 1999 23:06:59 -0400
  • Sender: owner-wri-mathgroup at


Here is one example,

data1 = Table[Sin[x], {x, 0, 2Pi, Pi/6}];
data2 = Table[Cos[x], {x, 0, 2Pi, Pi/6}];
symLabel[val_?NumericQ] := Which[
    val > Sqrt[2]/2, 
    StyleForm["$", FontColor -> RGBColor[1, 0, 0], FontSize -> 16], 
    val > -Sqrt[2]/2, 
    StyleForm["@", FontColor -> RGBColor[0, 1, 0], FontSize -> 16], 
    True, StyleForm["&", FontColor -> RGBColor[0, 0, 1]] ];
MultipleListPlot[data1, data2, PlotJoined -> True, 
    SymbolShape -> {Label, Label}, 
    SymbolLabel -> {Table[symLabel[data1[[k]]], {k, Length[data1]}], 
        Table[symLabel[data2[[k]]], {k, Length[data2]}]}];

Bob Hanlon

In a message dated 8/31/99 5:25:38 AM, pytr224 at writes:

>Is there a way to display multiple symbol shapes for the same data set
>I need to plot multiple points for several data sets on the same plot,
>and I
>want to denote certain aspects of each point in each set by a different
>symbol shape.
>I can make the symbols different for each data set as per the manual, but
>need to plot different shapes within each data set. I use PlotJoined->True
>to link each data set.

  • Prev by Date: save as html
  • Next by Date: G4 and Mathematica
  • Previous by thread: save as html
  • Next by thread: Re: SymbolShape