Hi everyone, recently I have started plotting hydrogen's molecular orbitals with Mathematica 10.2 using SphericalPlot3D over sperical harmonics. Everything was going well, till I decided to use the function Manipulate to avoid changing every time by hand values of n, m and l (quantum numbers). At first, when I press enter and the computation ends, everything looks great, but if I try to modify one of the three quantum numbers, via the slider bars aside, the plot fills with irregular lines (like a super low resolution 3d model) and Mathematica stops working. I really can't figure out what the problem may be, since without using Manipulate to plot the orbitals, every combination of n, l, m, returns a perfect graph. Down below it's reported the source code I'm using and a screenshot regarding the corrupted plot.
Manipulate[
Y[\[Theta]_, \[Phi]_] :=
1/Sqrt[2] (SphericalHarmonicY[l, m, \[Theta], \[Phi]] +
SphericalHarmonicY[l, -m, \[Theta], \[Phi]]);
SphericalPlot3D[
Y[\[Theta], \[Phi]]^2, {\[Theta], -Pi, Pi}, {\[Phi], -Pi, Pi},
PlotRange -> Full, ImageSize -> {400, 400}, Mesh -> None],
{{n, 3, "n"}, 1, 5, 1, ImageSize -> Small, Appearance -> Labeled},
{{l, 2, "l"}, 0, n - 1, 1, ImageSize -> Small, Appearance -> Labeled},
{{m, 0, "m"}, -l, l, 1, ImageSize -> Small, Appearance -> Labeled},
ControlPlacement -> Left]
Attachments:
