Re: SphericalPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg72066] Re: SphericalPlot3D
- From: "dimitris" <dimmechan at yahoo.com>
- Date: Sun, 10 Dec 2006 04:49:29 -0500 (EST)
- References: <ele64l$rim$1@smc.vnet.net>
One way
<< Graphics`
Block[{$DisplayFunction=Identity},SphericalPlot3D[(Abs[SphericalHarmonicY[3,
0, the, phi]])^2 ,
{the, 0, Pi}, {phi, 0, 2Pi},
PlotPoints -> 50, PlotRange -> All]]
Show[%,ImageSize->300]
and you get your nice plot!
Dimitris
thomas.rausch wrote:
> Hi,
>
> I use mathematica versin 5.0
> I try a visualisation of spherical Harmonics:
>
> << Graphics`
> SphericalPlot3D[(Abs[SphericalHarmonicY[3, 0, the, phi]])^2 ,
> {the, 0, Pi}, {phi, 0, 2Pi},
> PlotPoints -> 50, PlotRange -> All];
>
> I get a very small figure.
> How can I get a bigger output?
>
> Many Thanks
> Thomas Rausch