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

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->?]