Re: Colors in ScatterPlot3D?
- To: mathgroup at smc.vnet.net
- Subject: [mg50995] Re: [mg50978] Colors in ScatterPlot3D?
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 1 Oct 2004 04:48:11 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Klaus,
Without using ScatterPlot...
atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}];
Show[Graphics3D[
{AbsolutePointSize[8],
MapThread[{RGBColor[#1, 0, 0], Point[#2]} &, {colortable,
atable}]}],
Axes -> True];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Klaus G [mailto:Karl_boehme_9 at msn.com]
To: mathgroup at smc.vnet.net
To give colors to each point individually the following has been
proposed recently:
<< Graphics`Graphics3D`
atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}]
ScatterPlot3D[atable, PlotStyle -> RGBColor[#, 0, 0]&/@ colortable]
But all colors are the same. It looks like only the first color value
in colortable is used.
Thanks.
Klaus G.