MathGroup Archive 2000

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

Search the Archive

Re: Displaying 3D data as 2D + color ?


Hi,

Needs["DiscreteMath`ComputationalGeometry`"]
data = Table[{Random[], Random[], Random[]}, {15}];
gr = TriangularSurfacePlot[data, DisplayFunction -> Identity]

Show[gr /. Polygon[pnts_] :> {SurfaceColor[Hue[Plus @@ (Last /@ pnts)]], 
        Polygon[pnts]}, DisplayFunction -> $DisplayFunction]

You should scale the Hue[] argument to your scale of the z-axis.

Regards
  Jens

Axel Kowald wrote:
> 
> Hello,
> 
> I got numerical 3D data (x,y,z coordinates) which are NOT lying on a
> grid, but are scattered. I would like to plot them as 2D with the color
> of the points indicating the z value. It seems the standard Mathematica plotting
> commands can't do that :-(
> But I'm sure there must be a package for this problem.
> 
> Any hint is welcomed,
> 
>         Axel
> 
> --


  • Prev by Date: Re: 3-D plotting of list in spherical coordinates
  • Next by Date: RE: Random spherical troubles
  • Previous by thread: Re: Displaying 3D data as 2D + color ?
  • Next by thread: Re: Displaying 3D data as 2D + color ?