Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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>