Re: colorfunction with scatterplot3d?
- To: mathgroup at smc.vnet.net
- Subject: [mg45309] Re: [mg45299] colorfunction with scatterplot3d?
- From: "Mihajlo Vanevic" <mvanevic at gawab.com>
- Date: Tue, 30 Dec 2003 04:14:17 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In[]:=
atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}];
In[]:=
<< Graphics`Graphics3D`
In[]:=
pl = ScatterPlot3D[atable];
In[]:=
aa = Transpose[{Hue /@ colortable, Point /@ atable}];
In[]:=
pl[[1]] = aa;
In[]:=
Show[pl]
Regards,
Mihajlo Vanevic
2003-12-29
**************************************************************
* At 2003-12-29, 00:22:00
* Michael Alfaro, malfaro at ucsd.edu wrote:
**************************************************************
>Hello,
>
>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->?]
>
>Thanks for any help!
>
>Michael
**************************************************************