Re: ListPointPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg83007] Re: ListPointPlot3D
- From: Bill Rowe <readnewsciv at sbcglobal.net>
- Date: Wed, 7 Nov 2007 06:31:57 -0500 (EST)
On 11/6/07 at 3:45 AM, apalau at lpg.es (SkyW) wrote:
>I would like to use ListPointPlot3D to plot several points in two
>different colors (ex. blue and red). I have a Table with following
>format:
>list0={{x1, y1, z1, h1}, {x2, y2, z2, h2}, ..., {xn, yn, zn, hn}}
>x,y,z refers to the 3D coordinates and h takes value 0 or 1. I would
>like to plot all points with h value equal to 1 as red and all
>points with h value equal to 0 as blue .... how can I do it?
=46irst generating some data
data = Table[Join[RandomReal[{0, 1}, 3], {RandomInteger[]}], {200}];
then to plot it as required
ListPointPlot3D[{Cases[data, {__, 1}][[All, {1, 2, 3}]],
Cases[data, {__, 0}][[All, {1, 2, 3}]]}, PlotStyle -> {Red, Blue}]
--
To reply via email subtract one hundred and four