RE: Change plot symbol in graphics 3D
- To: mathgroup at smc.vnet.net
- Subject: [mg61209] RE: [mg61196] Change plot symbol in graphics 3D
- From: "David Annetts" <davidannetts at aapt.net.au>
- Date: Wed, 12 Oct 2005 03:09:05 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hi Geetha,
> I have two different plots and i have made them show together.
> The points in both the plots are circles (plot symbol). I want to
> change one of the plot symbol to a star. I know that there is an
> option in MultipleListPlot. But my data is not in a compatible form
> for a multiple list plot. This is the portion of my code. points1 and
> points2 are points in 3-d space as list objects.
> g1 = Graphics3D[{Point /@ points1}, ViewPoint -> {-4, -2.4, 2}];
> g2 = Graphics3D[{Point /@ points2}, ViewPoint -> {-4, -2.4, 2}];
> Show[g1, g2];
>
> I was able to use ScatterPlot3D. But again, i couldn't find any option
> to change the plot symbol.
>
> Is there any solution for this?
Yes ...
You can't use Star instead of point without defining a 3D star. However,
rather than do so, I'll use an alternate symbol from Graphics`Polyhedra for
example,
(* first some data *)
pts1 = Table[{x, y, Random[]}, {x, -5, 5}, {y, -5, 5}];
pts2 = Table[{x, y, Random[]}, {x, -5, 5}, {y, -5, 5}];
pts1 = Partition[Flatten[pts1], 3];
pts2 = Partition[Flatten[pts2], 3];
(* now plot the points *)
grf1 = Polyhedron[SmallStellatedDodecahedron, #, .2] & /@ pts1;
grf2 = Polyhedron[Tetrahedron, #, .2] & /@ pts2;
g2 = Show[{grf1, grf2}, ViewPoint -> {-4, -2.4, 2}];
Hope that helps,
Dave.