Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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.




  • Prev by Date: Re: Colors in ScatterPlot3D?
  • Next by Date: Re: Colors in ScatterPlot3D?
  • Previous by thread: Re: Re: Colors in ScatterPlot3D?
  • Next by thread: Re: Colors in ScatterPlot3D?