Re: colorfunction with scatterplot3d?
- To: mathgroup at smc.vnet.net
- Subject: [mg45310] Re: colorfunction with scatterplot3d?
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Tue, 30 Dec 2003 04:14:18 -0500 (EST)
- References: <bsoe63$emt$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Recommend that you use Graphics3D primitives rather than ScatterPlot3D.
Needs["Graphics`Graphics3D`"];
atable=Table[Random[Integer,{1,10}],{50},{3}];
colortable=Table[Random[Real,{0,1}],{50}];
Show[Graphics3D[Table[
{AbsolutePointSize[5], Hue[colortable[[k]]],
Point[atable[[k]]]},
{k, Length[atable]}]],
Axes->True];
Bob Hanlon
In article <bsoe63$emt$1 at smc.vnet.net>, <malfaro at ucsd.edu> wrote:
<< I would like to color the points in a ScatterPlot3D plot as a function
of values in another table. For example, I would like to plot atable
below, but use the matching values of colortable to color the points
(with the color range scaled to the min and the max of values in
colortable).
atable = Table[Random[Integer, {1,10}], {50}, {3}]
colortable = Table[Random[Real,{0,1}], {50}]
ScatterPlot3D[atable, PlotStyle->? or ColorFunction->?]