Re: How to do ListPlot with absolute point size?
- To: mathgroup at smc.vnet.net
- Subject: [mg37942] Re: How to do ListPlot with absolute point size?
- From: "Allan Hayes" <hay at haystack.demon.co.uk>
- Date: Wed, 20 Nov 2002 09:09:20 -0500 (EST)
- References: <arer6a$1bh$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Kirk,
Use PlotStyle:
Module[{d = Table[{i, Random[Real, {0, 10}]}, {i, 2000}]},
Scan[
ListPlot[d, ImageSize -> {#1, #1},
PlotStyle -> {AbsolutePointSize[2], Hue[0]}
] &,
{1000, 500, 250, 125}
]
]
--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565
"Kirk Reinholtz" <kirk.reinholtz at jpl.nasa.gov> wrote in message
news:arer6a$1bh$1 at smc.vnet.net...
> I wish to display a given graphic via ListPlot at various scales, in a
> way such that the points and such stay the same absolute size. The
> following shows (at least on my wintel nt4) that the axis labels and
> lines stay the same absolute size, but the points vary according to the
> ImageSize. I'd like everything to stay the same size, just get more
> spread out. For bonus points, I'd like to know how to make everything
> scale by ImageSize, as well.
>
> I'm aware of AbsolutePointSize[], but don't see how to get that into
> ListPlot.
>
> << Graphics`Graphics`
> Module[{d = Table[{i, Random[Real, {0, 10}]}, {i, 2000}]},
> Scan[
> ListPlot[d, ImageSize -> {#1, #1}] &,
> {1000, 500, 250, 125}]]
>
> Thanks in advance!
>