Cell[CellGroupData[{Cell[BoxData[ RowBox[{ RowBox[{"lab1", "=", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], "]"}]}], "}"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{ 3.35696210375764*^9, 3.47119278243034*^9, {3.471193072255027*^9, 3.471193079892034*^9}, {3.47119317088836*^9, 3.4711931725974216`*^9}, {3.4716268082241435`*^9, 3.471626823766698*^9}, 3.760737778836871*^9}, CellID->1579325118], Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"m", ">", "L"}], ",", RowBox[{"m", "=", "L"}]}], "]"}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"m", "<", RowBox[{"-", "L"}]}], ",", RowBox[{"m", "=", RowBox[{"-", "L"}]}]}], "]"}], ";", " ", RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{ "L", ",", "m", ",", "\[CurlyTheta]", ",", "\[Phi]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[CurlyTheta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", RowBox[{"ColorFunction", "->", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "t", ",", "p", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{ RowBox[{"Arg", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{"L", ",", "m", ",", "t", ",", "p"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"2.", " ", "Pi"}], ")"}]}], "]"}]}], "]"}]}], ",", RowBox[{"ColorFunctionScaling", "->", "False"}], ",", RowBox[{"PerformanceGoal", "->", "\"\\""}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"TicksStyle", "->", RowBox[{"Directive", "[", "Gray", "]"}]}], ",", RowBox[{"AxesLabel", "->", "lab1"}], ",", RowBox[{"SphericalRegion", "->", "True"}], ",", RowBox[{"Mesh", "->", "False"}], ",", RowBox[{"Boxed", "->", "True"}], ",", RowBox[{"PlotLabel", "->", RowBox[{"Style", "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "=", "L"}], ",", RowBox[{"m", "=", RowBox[{"Round", "@", "m"}]}]}], "}"}], ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{ "L", ",", "m", ",", "\"\<\[Theta]\>\"", ",", "\"\<\[Phi]\>\""}], "]"}], "]"}], "]"}]}], " ", "]"}], ",", "14"}], "]"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", " ", " ", RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Re", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{ "L", ",", "m", ",", "\[CurlyTheta]", ",", "\[Phi]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[CurlyTheta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", RowBox[{"ColorFunction", "->", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "t", ",", "p", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{ RowBox[{"Arg", "[", RowBox[{"Re", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{"L", ",", "m", ",", "t", ",", "p"}], "]"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"2.", " ", "Pi"}], ")"}]}], "]"}]}], "]"}]}], ",", RowBox[{"ColorFunctionScaling", "->", "False"}], ",", RowBox[{"PerformanceGoal", "->", "\"\\""}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"TicksStyle", "->", RowBox[{"Directive", "[", "Gray", "]"}]}], ",", " ", RowBox[{"AxesLabel", "->", "lab1"}], ",", RowBox[{"Boxed", "->", "True"}], ",", RowBox[{"BoxStyle", "->", RowBox[{"Directive", "[", RowBox[{"Lighter", "[", "Gray", "]"}], "]"}]}], ",", RowBox[{"Mesh", "->", "False"}], ",", RowBox[{"PlotLabel", "->", " ", RowBox[{"Style", "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "=", "L"}], ",", RowBox[{"m", "=", RowBox[{"Round", "@", "m"}]}]}], "}"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{ "L", ",", "m", ",", "\"\<\[Theta]\>\"", ",", "\"\<\[Phi]\>\""}], "]"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], " ", "]"}], ",", "14"}], "]"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", " ", " ", RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Im", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{ "L", ",", "m", ",", "\[CurlyTheta]", ",", "\[Phi]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[CurlyTheta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}], ",", RowBox[{"ColorFunction", "->", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "t", ",", "p", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{ RowBox[{"Arg", "[", RowBox[{"Im", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{"L", ",", "m", ",", "t", ",", "p"}], "]"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"2.", " ", "Pi"}], ")"}]}], "]"}]}], "]"}]}], ",", RowBox[{"ColorFunctionScaling", "->", "False"}], ",", RowBox[{"PerformanceGoal", "->", "\"\\""}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"TicksStyle", "->", RowBox[{"Directive", "[", "Gray", "]"}]}], ",", RowBox[{"Boxed", "->", "True"}], ",", RowBox[{"BoxStyle", "->", RowBox[{"Directive", "[", RowBox[{"Lighter", "[", "Gray", "]"}], "]"}]}], ",", " ", RowBox[{"Mesh", "->", "False"}], ",", RowBox[{"AxesLabel", "->", "lab1"}], ",", RowBox[{"PlotLabel", "->", RowBox[{"Style", "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L", "=", "L"}], ",", RowBox[{"m", "=", RowBox[{"Round", "@", "m"}]}]}], "}"}], ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"TraditionalForm", "[", RowBox[{"HoldForm", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{ "L", ",", "m", ",", "\"\<\[Theta]\>\"", ",", "\"\<\[Phi]\>\""}], "]"}], "]"}], "]"}]}], " ", "}"}], "]"}]}], " ", "]"}], ",", "14"}], "]"}]}], ",", RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "->", "600"}]}], "]"}]}], ",", " ", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"L", ",", "0", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", "0", ",", "4", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "0", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}], ",", RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "L"}], ",", "L"}], "]"}]}], "}"}], ",", " ", RowBox[{"TrackedSymbols", ":>", RowBox[{"{", RowBox[{"L", ",", "m"}], "}"}]}], ",", RowBox[{"ControlType", "->", "SetterBar"}], ",", RowBox[{"SaveDefinitions", "->", "True"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, 3.471192659157207*^9, {3.4711927038709297`*^9, 3.471192741294092*^9}, {3.471192794764586*^9, 3.471192807709745*^9}, {3.471192839654894*^9, 3.4711928397623262`*^9}, {3.4711928719332542`*^9, 3.4711928780331306`*^9}, {3.47119293434403*^9, 3.471193021011685*^9}, {3.471193178250263*^9, 3.471193178861401*^9}, {3.4711932098535757`*^9, 3.471193247423355*^9}, {3.471196698718392*^9, 3.471196782830312*^9}, {3.4715898298521338`*^9, 3.471589833899164*^9}, {3.471626846579979*^9, 3.4716268651328335`*^9}, {3.471626912208541*^9, 3.4716269422175417`*^9}, 3.760737778825938*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`L$$ = 0, $CellContext`m$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`L$$], 0, Style["l", Italic]}, 0, 4, 1}, {{ Hold[$CellContext`m$$], 0, Style["m", Italic]}, Dynamic[ Range[-$CellContext`L$$, $CellContext`L$$]]}}, Typeset`size$$ = {600., {101., 105.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`L$755230$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`L$$ = 0, $CellContext`m$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`L$$, $CellContext`L$755230$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ( If[$CellContext`m$$ > $CellContext`L$$, $CellContext`m$$ = \ $CellContext`L$$]; If[$CellContext`m$$ < -$CellContext`L$$, $CellContext`m$$ = \ -$CellContext`L$$]; GraphicsRow[{ SphericalPlot3D[ Abs[ SphericalHarmonicY[$CellContext`L$$, $CellContext`m$$, \ $CellContext`\[CurlyTheta], $CellContext`\[Phi]]], {$CellContext`\ \[CurlyTheta], 0, Pi}, {$CellContext`\[Phi], -Pi, Pi}, ColorFunction -> Function[{$CellContext`x$, $CellContext`y$, \ $CellContext`z$, $CellContext`t$, $CellContext`p$, $CellContext`r$}, Hue[Arg[ SphericalHarmonicY[$CellContext`L$$, \ $CellContext`m$$, $CellContext`t$, $CellContext`p$]]/(2. Pi)]], ColorFunctionScaling -> False, PerformanceGoal -> "Quality", Axes -> True, TicksStyle -> Directive[Gray], AxesLabel -> $CellContext`lab1, SphericalRegion -> True, Mesh -> False, Boxed -> True, PlotLabel -> Style[ With[{$CellContext`L = $CellContext`L$$, $CellContext`m = Round[$CellContext`m$$]}, TraditionalForm[ HoldForm[ SphericalHarmonicY[$CellContext`L, $CellContext`m, "\[Theta]", "\[Phi]"]]]], 14], PlotRange -> All], SphericalPlot3D[ Abs[ Re[ SphericalHarmonicY[$CellContext`L$$, $CellContext`m$$, \ $CellContext`\[CurlyTheta], $CellContext`\[Phi]]]], {$CellContext`\ \[CurlyTheta], 0, Pi}, {$CellContext`\[Phi], -Pi, Pi}, ColorFunction -> Function[{$CellContext`x$, $CellContext`y$, \ $CellContext`z$, $CellContext`t$, $CellContext`p$, $CellContext`r$}, Hue[Arg[ Re[ SphericalHarmonicY[$CellContext`L$$, \ $CellContext`m$$, $CellContext`t$, $CellContext`p$]]]/(2. Pi)]], ColorFunctionScaling -> False, PerformanceGoal -> "Quality", Axes -> True, TicksStyle -> Directive[Gray], AxesLabel -> $CellContext`lab1, Boxed -> True, BoxStyle -> Directive[ Lighter[Gray]], Mesh -> False, PlotLabel -> Style[ With[{$CellContext`L = $CellContext`L$$, $CellContext`m = Round[$CellContext`m$$]}, Row[{"Re ", TraditionalForm[ HoldForm[ SphericalHarmonicY[$CellContext`L, $CellContext`m, "\[Theta]", "\[Phi]"]]]}]], 14], PlotRange -> All], SphericalPlot3D[ Abs[ Im[ SphericalHarmonicY[$CellContext`L$$, $CellContext`m$$, \ $CellContext`\[CurlyTheta], $CellContext`\[Phi]]]], {$CellContext`\ \[CurlyTheta], 0, Pi}, {$CellContext`\[Phi], -Pi, Pi}, ColorFunction -> Function[{$CellContext`x$, $CellContext`y$, \ $CellContext`z$, $CellContext`t$, $CellContext`p$, $CellContext`r$}, Hue[Arg[ Im[ SphericalHarmonicY[$CellContext`L$$, \ $CellContext`m$$, $CellContext`t$, $CellContext`p$]]]/(2. Pi)]], ColorFunctionScaling -> False, PerformanceGoal -> "Quality", Axes -> True, TicksStyle -> Directive[Gray], Boxed -> True, BoxStyle -> Directive[ Lighter[Gray]], Mesh -> False, AxesLabel -> $CellContext`lab1, PlotLabel -> Style[ With[{$CellContext`L = $CellContext`L$$, $CellContext`m = Round[$CellContext`m$$]}, Row[{"Im ", TraditionalForm[ HoldForm[ SphericalHarmonicY[$CellContext`L, $CellContext`m, "\[Theta]", "\[Phi]"]]]}]], 14], PlotRange -> All]}, ImageSize -> 600]), "Specifications" :> {{{$CellContext`L$$, 0, Style["l", Italic]}, 0, 4, 1}, {{$CellContext`m$$, 0, Style["m", Italic]}, Dynamic[ Range[-$CellContext`L$$, $CellContext`L$$]]}}, "Options" :> { TrackedSymbols :> {$CellContext`L$$, $CellContext`m$$}, ControlType -> SetterBar}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{645., {156., 162.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`lab1 = { Text[ Style["x", Italic]], Text[ Style["y", Italic]], Text[ Style["z", Italic]]}, Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.7607377788261957`*^9}, CellID->100736627] }, {3}]]