Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: Colors in ScatterPlot3D?

• To: mathgroup at smc.vnet.net
• Subject: [mg51038] Re: [mg51024] Re: Colors in ScatterPlot3D?
• From: DrBob <drbob at bigfoot.com>
• Date: Sat, 2 Oct 2004 03:18:23 -0400 (EDT)
• References: <cjgih6$q5a$1@smc.vnet.net> <200410010850.EAA11651@smc.vnet.net>
• Reply-to: drbob at bigfoot.com
• Sender: owner-wri-mathgroup at wolfram.com

>> ScatterPlot3D[atable, PlotStyle -> {RGBColor[#, 0, 0]}& /@ colortable]
>> should give you different shades of red.

But it doesn't.

Run this a few times, and you'll see:

atable = Table[Random[Integer, {1, 10}], {50}, {3}];
colortable = Table[Random[Real, {0, 1}], {50}];
ScatterPlot3D[atable, PlotStyle -> ({PointSize[.05Random[]], RGBColor[#, 0,
           0]} & /@ colortable)]

All the points are the same size and color.

Bobby

On Fri, 1 Oct 2004 04:50:10 -0400 (EDT), Peter Pein <petsie at arcor.de> wrote:

> "Klaus G" <Karl_boehme_9 at msn.com> schrieb im Newsbeitrag
> news:cjgih6$q5a$1 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.
>>
>
> ScatterPlot3D[atable, PlotStyle -> {RGBColor[#, 0, 0]}& /@ colortable]
> should give you different shades of red.



-- 
DrBob at bigfoot.com
www.eclecticdreams.net

• References:
  • Re: Colors in ScatterPlot3D?
    • From: "Peter Pein" <petsie@arcor.de>