0
$\begingroup$

I'm getting an empty plot for the following code:

SphericalPlot3D[
 2*Pi*Sin[theta]*SphericalHarmonicY[100, 50, theta, phi], {theta, 0, 2*Pi}, {phi, 0 , Pi}]

Also, if I set phi to a specific value and plot in 1D, an empty plot is printed.

Any thoughts? Thanks.

$\endgroup$
  • $\begingroup$ Sin (theta) should be Sin[theta], right? $\endgroup$ – mickep Nov 5 '14 at 14:51
  • $\begingroup$ Yes, thank you. $\endgroup$ – user1711997 Nov 5 '14 at 14:53
  • $\begingroup$ Because it is complex function. So you have to decide what to plot. $\endgroup$ – Kuba Nov 5 '14 at 14:58
  • 1
    $\begingroup$ possible duplicate of Plotting Complex Quantity Functions $\endgroup$ – Sjoerd C. de Vries Nov 5 '14 at 19:33
1
$\begingroup$
Grid[{{Abs, Re, Im}, 
  SphericalPlot3D[2 π Sin[θ] #@ 
       SphericalHarmonicY[10, 5, θ, φ], {θ, 0, 2 π}, {φ, 0, 2 π},
     PlotStyle -> Opacity[0.3],
     PlotPoints -> 40,PlotRange -> All,
     Mesh -> {5, 10},MeshStyle -> {Opacity[0.1], Darker@Purple},
     Boxed -> False, Axes -> False] & /@ {Abs, Re, Im}},
 Frame -> All]

Blockquote

SphericalHarmonicY[100, 50, θ, φ] takes so long time.

SphericalPlot3D[2 π Sin[θ] Abs@ 
   SphericalHarmonicY[100, 50, θ, φ], {θ, 0, 2 π}, {φ, 0, 2 π},
 PlotStyle -> Opacity[0.3],PlotPoints -> 150,
 PlotRange -> All, Mesh -> {50, 10},
 MeshStyle -> {Opacity[0.1], Darker@Purple},
 Boxed -> False, Axes -> False]

Blockquote

| improve this answer | |
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.