MathGroup Archive 2001

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

Search the Archive

Point Size and Plot Symbols

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30480] Point Size and Plot Symbols
  • From: "David Park" <djmp at earthlink.net>
  • Date: Thu, 23 Aug 2001 02:15:45 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

I changed the Subject heading to reflect the topic.

Here is a sample set of points.

pts = Table[{x, Sin[x]}, {x, 0, Pi, Pi/16}];

You can adjust the point size by using the Prolog option in ListPlot.

ListPlot[pts, Prolog -> AbsolutePointSize[4]];

You can also plot your points this way, without using ListPlot.

Show[Graphics[{AbsolutePointSize[4], Point /@ pts}],
   Frame -> True];

You can plot the points with whatever symbol you wish by using routines from
the MultipleListPlot package. The following plots the points as stars.

Needs["Graphics`MultipleListPlot`"]
Needs["Graphics`Colors`"]

Show[Graphics[
      {PlotSymbol[Star, 5] /@ pts}], Frame -> True];

You can even make up your own symbols using the MakeSymbol command. This
makes a black cross with a Blue dot in the center.

Show[Graphics[{MakeSymbol[{Blue, AbsolutePointSize[6], Point[{0, 0}], Black,
        Line[{{1, 1}, {-1, -1}}*6], Line[{{-1, 1}, {1, -1}}*6]}] /@ pts}],
   Frame -> True, ImageSize -> 500];

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

> From: Au Han Bin [mailto:auhb3 at cz3.nus.edu.sg]
To: mathgroup at smc.vnet.net
>
>
> i'd like to ask if i can make the dots for ListPlot bigger, or preferably
> change it to other symbols or shapes?
> desperately needing help
>
> regards, joshua_au at hotmail.com
>



  • Prev by Date: Re: Magnifying (Scaling) Mathematica Graphics
  • Next by Date: Re: Curl
  • Previous by thread: Re: Triangle List <-> Adjacency List
  • Next by thread: [Technical] Filters like GIMP?