Re: A question about plotting
- To: mathgroup at yoda.ncsa.uiuc.edu
- Subject: Re: A question about plotting
- From: uunet!wri!withoff (David Withoff)
- Date: Mon, 18 Jun 90 11:34:28 CDT
The only PlotStyle settings I've used for ListPlot are color and PointSize. To get other plotting symbols, the TextListPlot function in Graphics.m is a reasonable starting point. TextListPlot uses character strings instead of points to display data. The same basic idea can be used to display other plotting symbols. For example: SquarePoint[point:{_?NumberQ, _?NumberQ}] := {Line[{Scaled[{.01, .01}, point], Scaled[{.01, -.01}, point], Scaled[{-.01, -.01}, point], Scaled[{-.01, .01}, point], Scaled[{.01, .01}, point]}], Point[point]} SquarePointPlot[data:{{_?NumberQ, _?NumberQ}..}] := Show[Graphics[Map[SquarePoint, data]], Axes -> Automatic] example: data = Table[Random[], {10}, {2}] SquarePointPlot[data] I've seen some partially finished packages (with code fragments like the above), but nothing that seemed finished enough to merit broad distribution. Hopefully a a few code fragments like this will serve the purpose until a more complete solution becomes available. Dave Withoff Wolfram Research withoff at wri.com