SetDirectory[$HomeDirectory<>"/Documents/handouts/math467/SphericalHarmonics"]

Spherical Harmonics

Table[SphericalHarmonicY[n,m,ϕ,θ],{n,0,3},{m,0,n}]//TableForm

Table[SphericalPlot3D[((Re[SphericalHarmonicY[n,m,ϕ,θ]])^2),{ϕ,0,π},{θ,0,2π},PlotRange->All],{n,0,3},{m,0,n}]//TableForm