Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1990
*January
*February
*March
*April
*May
*June
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1990

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

Search the Archive

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


  • Prev by Date: Re: A question about plotting
  • Next by Date: Re: A question about plotting
  • Previous by thread: Re: A question about plotting
  • Next by thread: Re: A question about plotting