RE: Using Symbols with Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg32996] RE: [mg32973] Using Symbols with Plot*From*: "David Park" <djmp at earthlink.net>*Date*: Sat, 23 Feb 2002 02:38:18 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Bill, There sure is. You can use the standard package Graphics`MultipleListPlot`. But the MultipleListPlot routine itself is not quite as useful as the routines PlotSymbol, MakeSymbol and RegularPolygon that the package contains. It is often easier to use the construction I show below. If you have a set of data points, you can plot the line just by wrapping Line around the data points. You can plot the symbols just by mapping the symbol onto the data points. You could also use the Text statement and StyleForm to use any character as a plot symbol. You could also map Circle or Disk onto the points. Here is an example using MakeSymbol and PlotSymbol. Needs["Graphics`MultipleListPlot`"] Needs["Graphics`Colors`"] sindata = Table[{x, Sin[x]}, {x, 0, Pi, Pi/20}]; cosdata = Table[{x, Cos[x]}, {x, 0, Pi, Pi/20}]; cross[size_] := MakeSymbol[{Line[{{-size, 0}, {size, 0}}], Line[{{0, -size}, {0, size}}]}] Show[Graphics[ {Line[sindata], Line[cosdata], Blue, cross[4] /@ sindata, Red, PlotSymbol[Box, 4, Filled -> False] /@ cosdata}], Frame -> True, PlotLabel -> "Plotting With Symbols", ImageSize -> 400 ]; Here is an example using Text statements Show[Graphics[ {Line[sindata], Line[cosdata], Text[StyleForm["A", FontSize -> 12, FontColor -> Blue], #] & /@ sindata, Text[StyleForm["B", FontSize -> 12, FontColor -> Red], #] & /@ cosdata}], Frame -> True, PlotLabel -> "Plotting With Symbols", ImageSize -> 400 ] David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: Bill Toole [mailto:bill.toole at conexant.com] To: mathgroup at smc.vnet.net > > > Hi > > I would like to be able to use symbols such as +, o, x, square, > triangle etc when I use Plot[] to plot several functions. > Is there a package of some sort that allows this? > Thanks in advance > > Bill Toole > Conexant Sysytems > Ottawa, Ontario, Canada >