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