Intersection of coordinate axes in origin (3d plot)

*To*: mathgroup at smc.vnet.net*Subject*: [mg57066] Intersection of coordinate axes in origin (3d plot)*From*: Gernot Pfanner <pfannerg at stud.uni-graz.at>*Date*: Sat, 14 May 2005 04:58:03 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

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 With thanks in advance Yours Gernot

**Follow-Ups**:**Re: Intersection of coordinate axes in origin (3d plot)***From:*Chris Chiasson <chris.chiasson@gmail.com>