RE: Colored ListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg36889] RE: [mg36868] Colored ListPlot
- From: "David Park" <djmp at earthlink.net>
- Date: Tue, 1 Oct 2002 04:45:12 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
John,
You could do something like this.
points =
With[{del = 2Pi/24},
Table[{Cos[t], Sin[t], t/(2Pi)}, {t, 0, 2Pi - del, del}]];
Show[Graphics[
{AbsolutePointSize[7],
{Hue[Last[#]], Point[#[[{1, 2}]]]} & /@ points,
Line[Drop[#, -1] & /@ points]}],
AspectRatio -> Automatic,
Background -> GrayLevel[0.4],
ImageSize -> 400];
When I made the point list I made certain the z values were between 0 and 1.
Otherwise you will have to define a color function that will associate a
proper color with each value of z.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Moranresearch at aol.com [mailto:Moranresearch at aol.com]
To: mathgroup at smc.vnet.net
I have a list of points l1={xi,yi,zi} how can I make a 2D list plot of
{xi,yi} where the color of each point is zi ? Thank you. John