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.

Improve this question
$\endgroup$
4
  • $\begingroup$ Sin (theta) should be Sin[theta], right? $\endgroup$
    – mickep
    Nov 5, 2014 at 14:51
  • $\begingroup$ Yes, thank you. $\endgroup$
    – user1711997
    Nov 5, 2014 at 14:53
  • $\begingroup$ Because it is complex function. So you have to decide what to plot. $\endgroup$
    – Kuba ♦
    Nov 5, 2014 at 14:58
  • 1
    $\begingroup$ possible duplicate of Plotting Complex Quantity Functions $\endgroup$
    – Sjoerd C. de Vries
    Nov 5, 2014 at 19:33

1 Answer 1

Reset to default
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.