       Re: Intersection of coordinate axes in origin (3d plot)

• To: mathgroup at smc.vnet.net
• Subject: [mg57083] Re: [mg57066] Intersection of coordinate axes in origin (3d plot)
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Sun, 15 May 2005 03:03:36 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Don't use underbars (Blank) in names

Needs["Graphics`"];

pltPX=SphericalPlot3D[
(Abs[SphericalHarmonicY[1,1,theta,phi]])^2,
{theta,0,Pi},{phi,0,2*Pi},
DisplayFunction->Identity];
grd=Graphics3D[{AbsoluteThickness,
Blue,Line[{{-1,0,0},{1,0,0}}],
Green,Line[{{0,-1,0},{0,1,0}}],
Red,Line[{{0,0,-1},{0,
0,1}}]}];

Show[{grd,pltPX},
DisplayFunction->\$DisplayFunction,
Boxed->False];

Bob Hanlon

>
> From: Gernot Pfanner <pfannerg at stud.uni-graz.at>
To: mathgroup at smc.vnet.net
> Date: 2005/05/14 Sat AM 04:58:03 EDT
> Subject: [mg57083] [mg57066] Intersection of coordinate axes in origin (3d plot)
>
> Hi!
>
> Is there a way to produce "cross"-style axes (hence which intersect in
> the origin [0,0,0]) in 3d-plots?
> Since this doesn't seem to implemented in standard-Mathematica, I
thought
> of combining Line[]'s with the actual plot. But this doesn't work.
> Concretely:
>
> <<Graphics'ParametricPlot3D';
>
> Plot_px=SphericalPlot3D[(Abs[SphericalHarmonicY[1,1,theta,phi]])**2,
> 	{theta,0,Pi},{phi,0,2*Pi}];
> grd=Graphics3D[Line[{{-1,0,0},{1,0,0}}]];
>
> Show[{grd,Plot_px}];
>
> results in:
>
> "Show::gcomb: An error was encountered in combining the graphics objects
> in Show[{-Graphics3D-,Plot_px}]
>
> In this spirit