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)*Reply-to*: hanlonr at cox.net*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[3], 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 > With thanks in advance > Yours Gernot > > Bob Hanlon Chantilly, VA