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