Re: Displaying 3D data as 2D + color ?
- To: mathgroup at smc.vnet.net
- Subject: [mg25175] Re: Displaying 3D data as 2D + color ?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 12 Sep 2000 21:24:20 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <8pkka3$m39@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
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
>
> --