Plotting a 3D Cloud of Points
- To: mathgroup at smc.vnet.net
- Subject: [mg6321] Plotting a 3D Cloud of Points
- From: TTCJ34A at prodigy.com (DR JOHN C ERB)
- Date: Sat, 8 Mar 1997 00:26:46 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
David E. Burmaster inquired about plotting a cloud of points, in
3D space, with each point also being projected onto the x=0, y=0,
and z=0 planes.
Robert Hohlfelder replied with a solution as follows:
myListPlot3D[pointList_,options___]:=
Show[Graphics3D[pointList/.{a_,b_,c_}->Point[{a,b,c}],
options]];
data={{0.5,0.57,0.79},etc (your x,y,z data)};
data2=Join[
data,
(data/.{x_,y_,z_}->{x,y,0}),
(data/.{x_,y_,z_}->{x,0,z}),
(data/.{x_,y_,z_}->{0,y,z})
]
myListPlot3D[data2,Axes->Ture]
May I suggest the "joining" routine be replaced with:
data2=Join[
data,
Map[(#/.{x_,y_,z_}->{x,y,0})&,data],
Map[(#/.{x_,y_,z_}->{x,0,z})&,data],
Map[(#/.{x_,y_,z_}->{0,y,z})&,data]
]
Otherwise the points are replaced with {0}, not with {x,y,0},
etc.
Additionally, you could separate the data into four lists, and
use ListPlot3D directly, and change the lighting for each of the
lists, so the points would be color-coded on the graph.
Hope this info is of use
John C. Erb