RE: Symbols using Prolog

*To*: mathgroup at smc.vnet.net*Subject*: [mg33691] RE: [mg33678] Symbols using Prolog*From*: "David Park" <djmp at earthlink.net>*Date*: Mon, 8 Apr 2002 03:04:17 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

David, I don't know exactly what kind of symbols you are thinking of. In any case, the Graphics`MultipleListPlot` package contains the very useful routines PlotSymbol and MakeSymbol, which can be used for plotting points. I always find it easier to skip using ListPlot or MultipleListPlot and plot the points and line directly. No need to agonize over PlotJoined -> True, or make and combine two plots. Here is an example: Needs["Graphics`MultipleListPlot`"] Needs["Graphics`Colors`"] list = Table[{x, Sin[x]}, {x, 0, 2 Pi, 2Pi/32}]; Show[Graphics[ {PlotSymbol[Box, 3, Filled -> False] /@ list, Blue, Line[list]}], Frame -> True, ImageSize -> 500]; If you want to use text characters as symbols, you could do the following: Show[Graphics[ {Text[StyleForm[A, FontColor -> ForestGreen, FontSize -> 16], #] & /@ list, Blue, Line[list]}], Frame -> True, ImageSize -> 500]; In the following plot, I use MakeSymbol to make a symbol consisting of the character A inside a box. You can make up all kinds of symbols this way. (But most of them will probably be excessive and won't look good. The rule for good plots is "Maximize the information - minimize the ink.") symbol = MakeSymbol[ {Line[6{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}, {-1, -1}}], Text[StyleForm[A, FontColor -> Black, FontSize -> 16], {0, 0}]}]; Show[Graphics[ {symbol /@ list, Gray, Line[list]}], Frame -> True, ImageSize -> 500]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: David Robinson [mailto:drobin at sandia.gov] To: mathgroup at smc.vnet.net > Excuse a question from a beginner. > > There has been some discussion about using graphics primatives to show > symbols on plots. However, it wasn't clear from the discussion how to > change the symbol using the Prolog option within, for example ListPlot. > > ListPlot[list , PlotRange->{0.,1.0} , AxesOrigin->{0,0.0} , > Prolog->{.....?....}] > > Any one have any insights out there? > > > Dave Robinson > > > > -- > > ------------------------------------------------------------------ > ------------- > > Prediction is very difficult, especially about the future. > -- Neils Bohr > > > >