(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 47703, 1051] NotebookOptionsPosition[ 46809, 1019] NotebookOutlinePosition[ 47156, 1034] CellTagsIndexPosition[ 47113, 1031] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Spherical Harmonics", FontSize->36, FontWeight->"Bold", FontColor->RGBColor[0., 0., 0.]]], "Title", CellChangeTimes->{{3.537132452282783*^9, 3.537132467401569*^9}, 3.540084854359939*^9, 3.5404027164091063`*^9}, TextAlignment->Center, FontFamily->"Times New Roman", FontSize->24], Cell[BoxData[{ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ParametricPlot3D", ",", RowBox[{"PlotPoints", " ", "\[Rule]", " ", "50"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{"0.67", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "/", "maxx"}]}], ")"}]}], "]"}]}], "]"}]}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"Mesh", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]", ",", RowBox[{"3", RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", "0", "}"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Phi]", ",", RowBox[{"Framed", "[", RowBox[{"\"\<\[Theta]\>\"", ",", RowBox[{"FrameStyle", "\[Rule]", "None"}], ",", RowBox[{"FrameMargins", "\[Rule]", "10"}]}], "]"}], ",", "z"}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"3", RowBox[{"\[Pi]", "/", "4"}]}], ",", RowBox[{"-", "\[Pi]"}], ",", "2"}], "}"}]}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "16"}], "}"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ParametricPlot", ",", RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{"0.67", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "/", "maxx"}]}], ")"}]}], "]"}]}], "]"}]}], ",", RowBox[{"Mesh", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Pi]", ",", "\[Pi]", ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "*", "\[Pi]"}], ",", RowBox[{"2", "*", "\[Pi]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "\[Pi]", ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], ",", RowBox[{"\[Pi]", "/", "2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Pi]", ",", "0", ",", RowBox[{"{", RowBox[{"0", ",", "0.02"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "False"}], ",", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", RowBox[{"ImageSize", "\[Rule]", "350"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "16"}], "}"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Grid", ",", RowBox[{"Spacings", "\[Rule]", "2"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"SphericalPlot3D", ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"ViewPoint", "->", RowBox[{"{", RowBox[{"2.6", ",", " ", "0", ",", " ", "1.4"}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"{", RowBox[{"30", ",", "10"}], "}"}]}], ",", RowBox[{"ImageSize", "->", "Medium"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{"0.67", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "/", "maxx"}]}], ")"}]}], "]"}]}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Manipulator", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "20"}], "}"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Manipulate", ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "20"}], "}"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], ";"}], "\[IndentingNewLine]"}], "Input", Editable->False, CellOpen->False, PageBreakAbove->False, PageBreakWithin->False, GroupPageBreakWithin->False, InitializationCell->True, CellChangeTimes->{{3.4003366531514874`*^9, 3.400336655522043*^9}, { 3.4003372488118687`*^9, 3.400337295308672*^9}, {3.400608558228178*^9, 3.4006085587401047`*^9}, {3.40285536142773*^9, 3.402855361611483*^9}, { 3.402856921333412*^9, 3.402856926160396*^9}, {3.40285696402614*^9, 3.4028569668974133`*^9}, {3.402857082763999*^9, 3.402857090475286*^9}, { 3.4028576228103657`*^9, 3.402857665498437*^9}, {3.4028577042813663`*^9, 3.4028577665195913`*^9}, 3.402858778660322*^9, {3.402858908226555*^9, 3.4028589088543367`*^9}, {3.4036638865282593`*^9, 3.40366388666*^9}, { 3.40366600407644*^9, 3.403666004498348*^9}, {3.403704381406205*^9, 3.403704381827917*^9}, {3.403900349522643*^9, 3.403900349748927*^9}, { 3.404605525073654*^9, 3.404605595195243*^9}, {3.404605699810865*^9, 3.4046057066874237`*^9}, {3.404607921653274*^9, 3.404607922102585*^9}, { 3.404669818762907*^9, 3.404669825902643*^9}, {3.465693520176785*^9, 3.46569352296903*^9}, {3.466910046659814*^9, 3.466910047371675*^9}, { 3.540404003720415*^9, 3.540404026940158*^9}, 3.5404041496217623`*^9, { 3.7053228018823404`*^9, 3.7053228035145035`*^9}, {3.7053228415933113`*^9, 3.705322848202972*^9}, 3.731854705922269*^9, {3.7335801880371623`*^9, 3.7335802021799574`*^9}, {3.7335802353640604`*^9, 3.7335802384919434`*^9}, 3.7335802747909517`*^9, {3.7335803514005904`*^9, 3.7335803720203714`*^9}, { 3.7335804410958605`*^9, 3.7335804708042607`*^9}, {3.733580589932379*^9, 3.7335806006962767`*^9}, {3.733580690572954*^9, 3.7335807573435793`*^9}, { 3.7335808672567754`*^9, 3.7335808890633554`*^9}, {3.7338482182203503`*^9, 3.7338482185543833`*^9}, {3.733848267013229*^9, 3.7338482683803654`*^9}, { 3.733852474434291*^9, 3.7338524824192715`*^9}, 3.733853792260127*^9, { 3.733853847045494*^9, 3.733853850828816*^9}, 3.7338538961372256`*^9, { 3.733853952997299*^9, 3.733853970004538*^9}, {3.733854334914459*^9, 3.733854343134079*^9}, {3.733854458123173*^9, 3.733854464486538*^9}, { 3.7338547643941565`*^9, 3.7338547838836613`*^9}, {3.7338556667037563`*^9, 3.7338557183550873`*^9}, {3.7338557634392176`*^9, 3.733855763891629*^9}, { 3.7338559446225305`*^9, 3.733855964059431*^9}, 3.733856028496908*^9, { 3.7347914195047874`*^9, 3.7347914242720532`*^9}, {3.734792023322384*^9, 3.7347920366191244`*^9}, {3.7347921270181513`*^9, 3.7347921498424196`*^9}, {3.7347921822982244`*^9, 3.7347922027533627`*^9}, {3.7347923669775057`*^9, 3.7347923709457264`*^9}, {3.7347925286794996`*^9, 3.7347925549919605`*^9}, {3.7347927014391127`*^9, 3.7347927317818007`*^9}, {3.7347927899920425`*^9, 3.7347928123822865`*^9}, {3.734792879766035*^9, 3.734792880197058*^9}, { 3.7347929185081925`*^9, 3.7347929732042427`*^9}, {3.734793003412922*^9, 3.734793004115962*^9}, {3.7347930462363057`*^9, 3.734793064252308*^9}, { 3.734872874851263*^9, 3.7348729151635685`*^9}, {3.734877806479336*^9, 3.7348778259434495`*^9}, {3.7348803050702477`*^9, 3.734880317564962*^9}, 3.734880348214715*^9, 3.735059859262517*^9, 3.7353114921070566`*^9, { 3.735312483214411*^9, 3.735312484978256*^9}, 3.735312544286994*^9, { 3.7353175452686462`*^9, 3.7353175676654243`*^9}, {3.7353176363680277`*^9, 3.735317668098259*^9}, {3.735397841602003*^9, 3.735397854589938*^9}, { 3.7353988193457985`*^9, 3.735398820248022*^9}, {3.735398920474435*^9, 3.7353989223640833`*^9}, {3.73557769185559*^9, 3.735577698230955*^9}, { 3.735665453627577*^9, 3.7356655512838774`*^9}, {3.735915798110718*^9, 3.7359158039333*^9}, {3.7359969215112267`*^9, 3.735996938862962*^9}, { 3.736269084273783*^9, 3.7362691041057663`*^9}, {3.7362692678691406`*^9, 3.7362692680211563`*^9}, {3.7362693727646294`*^9, 3.7362694381791697`*^9}, {3.7362694684041924`*^9, 3.7362694949818497`*^9}, {3.7366144697161016`*^9, 3.7366145114362736`*^9}, {3.7366850512567596`*^9, 3.7366851478204017`*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[TextData[{ "In this worksheet, you will examine the graphs of the spherical harmonics ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ SubscriptBox["Y", "l"], "m"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], TraditionalForm]]], ". Since the spherical harmonics are complex functions of the angular \ coordinates, it is not possible to plot ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox[ SubscriptBox["Y", "l"], "m"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], TraditionalForm]]], ". Instead, we will plot the square of the norm, ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{ SuperscriptBox[ SubscriptBox["Y", "l"], "m"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], SuperscriptBox["|", "2"]}], TraditionalForm]]], ", as a function of the angular coordinates. The square of the norm gives \ the probability density in quantum mechanics. NOTE: By looking only at the \ square of the norm, we are throwing away information about the phase. We \ will explore the physical importance of the phase in a subsequent worksheet." }], "Text", CellChangeTimes->{{3.537132516843563*^9, 3.537132523355335*^9}, { 3.538752254757333*^9, 3.538752280960678*^9}, 3.540084865280016*^9, { 3.5400857245421553`*^9, 3.54008573146297*^9}, 3.540402728708456*^9, { 3.7318546996269054`*^9, 3.73185469997916*^9}, {3.7318547936806297`*^9, 3.73185479752026*^9}, {3.7338558387013617`*^9, 3.733855852292514*^9}, { 3.734792387177628*^9, 3.734792410431923*^9}, {3.73531117852343*^9, 3.735311266512169*^9}, {3.7359880761192703`*^9, 3.735988095807035*^9}, { 3.735988147669311*^9, 3.73598816066953*^9}, {3.735988341496312*^9, 3.735988356503772*^9}, {3.735988786006935*^9, 3.73598878840726*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.88, 1, 0.88]], Cell["\<\ Plot the magnitude and the real and imaginary parts of some spherical \ harmonics, in color. In all three representations, red is max and blue is min \ for the magnitude of the sherical harmonic.\ \>", "Text", CellChangeTimes->{{3.537132516843563*^9, 3.537132523355335*^9}, { 3.538752254757333*^9, 3.538752280960678*^9}, 3.540084865280016*^9, { 3.5400857245421553`*^9, 3.54008573146297*^9}, 3.540402728708456*^9, { 3.7318546996269054`*^9, 3.73185469997916*^9}, {3.7318547936806297`*^9, 3.73185479752026*^9}, {3.7338558387013617`*^9, 3.733855852292514*^9}, { 3.734792387177628*^9, 3.734792410431923*^9}, {3.73531117852343*^9, 3.735311266512169*^9}, {3.7359880761192703`*^9, 3.735988095807035*^9}, { 3.735988147669311*^9, 3.73598816066953*^9}, {3.735988341496312*^9, 3.735988359895604*^9}, {3.735988750796299*^9, 3.735988870974979*^9}, { 3.736684727083996*^9, 3.736684774826973*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[{ RowBox[{ RowBox[{"Y", "[", RowBox[{"l_", ",", "m_", ",", "\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{"ComplexExpand", "[", RowBox[{ RowBox[{"Conjugate", "[", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "]"}], "*", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maxx", "=", RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]", ",", RowBox[{"\[Pi]", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "20"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Yrect", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"3", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Yreal", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", RowBox[{"Re", "[", RowBox[{"1.5", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Yim", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", RowBox[{"Im", "[", RowBox[{"1.5", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"YlmLabel", "=", RowBox[{ RowBox[{"StringForm", "[", RowBox[{ "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(Y\), \(``\)], \(``\)]\)(\ \[Theta],\[Phi])=\>\"", ",", "l", ",", "m"}], "]"}], "[", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"YlmsqLabel1", "=", RowBox[{ RowBox[{"StringForm", "[", RowBox[{ "\"\<|\!\(\*SuperscriptBox[SubscriptBox[\(Y\), \(``\)], \(``\)]\)(\ \[Theta],\[Phi])\!\(\*SuperscriptBox[\(|\), \(2\)]\)=\>\"", ",", "l", ",", "m"}], "]"}], "[", RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"YlmsqLabel2", "=", RowBox[{"StringForm", "[", RowBox[{ "\"\<|\!\(\*SuperscriptBox[SubscriptBox[\(Y\), \(``\)], \(``\)]\)(\ \[Theta],\[Phi])\!\(\*SuperscriptBox[\(|\), \(2\)]\)\>\"", ",", "l", ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"YlmReLabel", "=", RowBox[{"StringForm", "[", RowBox[{ "\"\\"", ",", "l", ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"YlmImLabel", "=", RowBox[{"StringForm", "[", RowBox[{ "\"\\"", ",", "l", ",", "m"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Off", "[", StyleBox[ RowBox[{"N", "::", "meprec"}], "MessageName"], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "YlmLabel", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "YlmsqLabel1", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "YlmsqLabel2"}], ",", RowBox[{"\"\\"", "YlmReLabel"}], ",", RowBox[{"\"\\"", "YlmImLabel"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yrect", ",", "Yreal", ",", "Yim"}], "}"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"l", ",", "0", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "0"}], "}"}], ",", RowBox[{"-", "l"}], ",", "l", ",", "1"}], "}"}], ",", RowBox[{"TrackedSymbols", "\[RuleDelayed]", RowBox[{"{", RowBox[{"l", ",", "m"}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.705329306398773*^9, 3.705329315336334*^9}, 3.731854707690462*^9, {3.733580258324087*^9, 3.7335802722742867`*^9}, 3.73358031456925*^9, 3.733580649595821*^9, {3.7338475327128057`*^9, 3.733847627582292*^9}, {3.733847929000431*^9, 3.7338479299445252`*^9}, { 3.7338479748900194`*^9, 3.7338479777363043`*^9}, {3.7338481180083294`*^9, 3.733848121839713*^9}, {3.733848225315059*^9, 3.733848234172945*^9}, { 3.733848347041231*^9, 3.7338483472892556`*^9}, {3.7338526795548306`*^9, 3.733852680194475*^9}, {3.73385312131194*^9, 3.7338532492817597`*^9}, 3.733853339481969*^9, {3.7338535652783875`*^9, 3.733853570277752*^9}, { 3.7338536192247295`*^9, 3.7338536238618803`*^9}, {3.733853839643054*^9, 3.733853862490756*^9}, {3.733854005263855*^9, 3.73385403581045*^9}, { 3.733854107458313*^9, 3.7338541368542757`*^9}, {3.733854176097294*^9, 3.7338542130274467`*^9}, 3.733854263925394*^9, {3.733854547627308*^9, 3.7338545477697115`*^9}, {3.7338546028269367`*^9, 3.7338546552626953`*^9}, {3.733854689525581*^9, 3.7338547520162363`*^9}, { 3.733854923756028*^9, 3.73385493067472*^9}, {3.7338549915268044`*^9, 3.7338550319118423`*^9}, {3.733855096048256*^9, 3.733855114506101*^9}, { 3.733855424318079*^9, 3.733855491070754*^9}, {3.733855528456492*^9, 3.7338555315518017`*^9}, {3.7338555740433693`*^9, 3.733855588557143*^9}, { 3.7338556298448086`*^9, 3.733855630999238*^9}, {3.7338560437445054`*^9, 3.7338560447585316`*^9}, {3.733856132658616*^9, 3.7338561566458616`*^9}, { 3.7338563120294914`*^9, 3.7338563137455354`*^9}, {3.733856479151161*^9, 3.7338565010027227`*^9}, {3.733856551762377*^9, 3.733856665822117*^9}, 3.733856754921919*^9, {3.7347912940158024`*^9, 3.7347913019132423`*^9}, { 3.7347913350650883`*^9, 3.7347913892321043`*^9}, 3.7347914315764594`*^9, 3.734791506655635*^9, {3.7347915743274*^9, 3.7347915807767572`*^9}, { 3.734791614167614*^9, 3.7347917136451445`*^9}, {3.734791833628827*^9, 3.7347918719969664`*^9}, 3.734792044540566*^9, {3.734792078923477*^9, 3.7347920805315657`*^9}, 3.734792124283998*^9, {3.734792159898978*^9, 3.7347921730027075`*^9}, {3.7347922068905926`*^9, 3.7347922227374754`*^9}, 3.7347922778585463`*^9, {3.73479235524185*^9, 3.734792360977171*^9}, { 3.7347924684881506`*^9, 3.7347925043031454`*^9}, {3.734792559496212*^9, 3.734792590543936*^9}, {3.734792622895735*^9, 3.7347926229577384`*^9}, { 3.734792695759796*^9, 3.734792695870802*^9}, {3.734792751694908*^9, 3.73479275456707*^9}, {3.734792820285725*^9, 3.734792821365785*^9}, { 3.7347928950228825`*^9, 3.7347929347971025`*^9}, {3.7347929783735294`*^9, 3.734793084651441*^9}, {3.7348728811956263`*^9, 3.7348728853628645`*^9}, { 3.7348729389629297`*^9, 3.7348729410350485`*^9}, {3.7348732119295425`*^9, 3.7348732402801647`*^9}, {3.7348736633663635`*^9, 3.734873677693183*^9}, { 3.7348737920997267`*^9, 3.734873834604158*^9}, {3.7348738690441275`*^9, 3.7348739375560465`*^9}, {3.7348742785605507`*^9, 3.734874322672074*^9}, { 3.734874608071398*^9, 3.7348746092694664`*^9}, {3.734874646877617*^9, 3.73487467384616*^9}, {3.7348747042468987`*^9, 3.73487471090928*^9}, { 3.7348747493184767`*^9, 3.7348747820843506`*^9}, {3.734874853973462*^9, 3.7348748744446335`*^9}, {3.734875030980587*^9, 3.7348750556259966`*^9}, { 3.7348751431140003`*^9, 3.734875167650404*^9}, {3.7348752085157413`*^9, 3.7348752162411833`*^9}, {3.734875258793617*^9, 3.734875306145325*^9}, { 3.734875524440811*^9, 3.7348756891962347`*^9}, 3.734875958702649*^9, { 3.734876068196912*^9, 3.734876103739945*^9}, {3.734876135539764*^9, 3.734876144715289*^9}, {3.734876287460453*^9, 3.7348762996031475`*^9}, { 3.7348763300828915`*^9, 3.7348763928744826`*^9}, {3.7348764573941727`*^9, 3.734876492497181*^9}, {3.7348765491534214`*^9, 3.734876563225226*^9}, 3.7348766004013524`*^9, 3.734876637721487*^9, {3.7348766870723095`*^9, 3.734876746503709*^9}, {3.7348768239511385`*^9, 3.7348768296944675`*^9}, { 3.734876908005946*^9, 3.734877050836116*^9}, {3.7348774150419474`*^9, 3.7348774481548414`*^9}, {3.734877485810995*^9, 3.7348775094653482`*^9}, { 3.734877583546585*^9, 3.734877643929039*^9}, {3.734877680001102*^9, 3.7348777020233617`*^9}, {3.7348778531510057`*^9, 3.7348778816236343`*^9}, {3.734877988082723*^9, 3.7348779998553963`*^9}, { 3.734878160660594*^9, 3.7348781682760296`*^9}, {3.734878459395681*^9, 3.734878519733132*^9}, {3.734878568640929*^9, 3.734878691273944*^9}, { 3.7348787409927874`*^9, 3.734878798248062*^9}, 3.7348791347983117`*^9, { 3.734879347789494*^9, 3.7348793511556864`*^9}, {3.7348794270640287`*^9, 3.7348794304282207`*^9}, {3.7348795025253444`*^9, 3.7348795244115963`*^9}, {3.7348795900753517`*^9, 3.7348796248743424`*^9}, {3.734879740259942*^9, 3.7348797789771566`*^9}, { 3.7348798173703527`*^9, 3.7348798631379704`*^9}, {3.734879907993536*^9, 3.7348799260485687`*^9}, {3.7348800227130976`*^9, 3.734880042709241*^9}, { 3.734880382685687*^9, 3.7348803940483365`*^9}, {3.734968304025938*^9, 3.734968401599519*^9}, {3.734968473984659*^9, 3.734968503759362*^9}, 3.734969205772515*^9, {3.7350596113889327`*^9, 3.7350596323441486`*^9}, { 3.7350597113713183`*^9, 3.735059753396749*^9}, {3.7350598893035016`*^9, 3.7350598936397867`*^9}, {3.735059983696641*^9, 3.7350600301313515`*^9}, { 3.735060144964487*^9, 3.7350601559484367`*^9}, {3.7353113677962103`*^9, 3.7353113711473136`*^9}, {3.735311425493717*^9, 3.735311467848225*^9}, { 3.7353115501455564`*^9, 3.7353115560027075`*^9}, {3.7353115872937193`*^9, 3.7353117190411444`*^9}, {3.7353118254993343`*^9, 3.735311837476532*^9}, { 3.7353119103368173`*^9, 3.735311911871971*^9}, {3.73531248201218*^9, 3.735312487533122*^9}, {3.7353125464564495`*^9, 3.735312546859461*^9}, { 3.735317475318226*^9, 3.7353174781437006`*^9}, {3.735317528391409*^9, 3.7353175396777024`*^9}, {3.7353176221760483`*^9, 3.735317652737051*^9}, { 3.7353177790687647`*^9, 3.735317811509404*^9}, {3.7353977345345974`*^9, 3.7353978083515096`*^9}, {3.735397935799655*^9, 3.735397979218789*^9}, { 3.735398106278093*^9, 3.7353982031020193`*^9}, {3.735398857046581*^9, 3.735398875344652*^9}, 3.735406524492247*^9, {3.7354086539301615`*^9, 3.7354086555862055`*^9}, {3.735408690207296*^9, 3.73540879362258*^9}, { 3.735665139265233*^9, 3.7356651412974358`*^9}, {3.7356656177197914`*^9, 3.7356656371047297`*^9}, {3.7356668525457325`*^9, 3.735666852589737*^9}, { 3.7359886778182297`*^9, 3.7359886782357597`*^9}, {3.7360086888237295`*^9, 3.736008697609424*^9}, {3.736008939382897*^9, 3.7360089444899497`*^9}, { 3.7360089795018344`*^9, 3.736009063343468*^9}, {3.736009114906665*^9, 3.7360091172608213`*^9}, {3.736009177508116*^9, 3.736009179442173*^9}, { 3.7366149220546904`*^9, 3.7366149233886905`*^9}, 3.736615905005011*^9, { 3.7366858957955284`*^9, 3.7366859735022984`*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[TextData[{ "1a) Describe how changing ", Cell[BoxData[ FormBox["l", TraditionalForm]]], " affects the plots." }], "Text", CellChangeTimes->{{3.540403926667665*^9, 3.540403931555023*^9}, { 3.540404603843256*^9, 3.540404657908609*^9}, {3.540404900943877*^9, 3.540404910045424*^9}, {3.7053257493610587`*^9, 3.705325749826105*^9}, { 3.733580953272113*^9, 3.7335810325057473`*^9}, {3.7335810942834644`*^9, 3.7335811318642874`*^9}, {3.733581250495692*^9, 3.7335812519758396`*^9}, { 3.7338537119709315`*^9, 3.7338537218618517`*^9}, {3.7338537639622107`*^9, 3.7338537641806173`*^9}, {3.7354079825385933`*^9, 3.735408092719304*^9}, 3.735408566581859*^9, {3.7354088364068832`*^9, 3.7354088535023227`*^9}, { 3.735408933731266*^9, 3.735408935559513*^9}, {3.7356630357440896`*^9, 3.7356630424717627`*^9}, {3.735988039938529*^9, 3.73598804084979*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.88, 1, 0.88]], Cell[TextData[{ "1b) Describe how changing ", Cell[BoxData[ FormBox["m", TraditionalForm]]], " affects the plots." }], "Text", CellChangeTimes->{{3.540403926667665*^9, 3.540403931555023*^9}, { 3.540404603843256*^9, 3.540404657908609*^9}, {3.540404900943877*^9, 3.540404910045424*^9}, {3.7053257493610587`*^9, 3.705325749826105*^9}, { 3.733580953272113*^9, 3.7335810325057473`*^9}, {3.7335810942834644`*^9, 3.7335811318642874`*^9}, {3.733581250495692*^9, 3.7335812519758396`*^9}, { 3.7338537119709315`*^9, 3.7338537218618517`*^9}, {3.7338537639622107`*^9, 3.7338537641806173`*^9}, {3.7354079825385933`*^9, 3.735408092719304*^9}, 3.735408566581859*^9, {3.7354088364068832`*^9, 3.7354088535023227`*^9}, { 3.735408933731266*^9, 3.735408935559513*^9}, {3.7356630357440896`*^9, 3.73566305704922*^9}, {3.735988043324127*^9, 3.735988048703699*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.88, 1, 0.88]], Cell["\<\ 2) What is the \[Phi] dependence of the square of the norm of a spherical \ harmonic? What is the significance of this?\ \>", "Text", CellChangeTimes->{{3.540403926667665*^9, 3.540403931555023*^9}, { 3.540404603843256*^9, 3.540404657908609*^9}, {3.540404900943877*^9, 3.540404910045424*^9}, {3.7053257493610587`*^9, 3.705325749826105*^9}, { 3.733580953272113*^9, 3.7335810325057473`*^9}, {3.7335810942834644`*^9, 3.7335811318642874`*^9}, {3.733581250495692*^9, 3.7335812519758396`*^9}, { 3.7338537119709315`*^9, 3.7338537218618517`*^9}, {3.7338537639622107`*^9, 3.7338537641806173`*^9}, {3.7354079825385933`*^9, 3.735408092719304*^9}, 3.735408566581859*^9, {3.7354088364068832`*^9, 3.7354088535023227`*^9}, { 3.735408933731266*^9, 3.735408935559513*^9}, {3.7356630357440896`*^9, 3.73566305704922*^9}, {3.735988043324127*^9, 3.735988048703699*^9}, { 3.7359889516267776`*^9, 3.735988988578512*^9}, {3.7366860238813353`*^9, 3.7366860542023673`*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.88, 1, 0.88]], Cell["", "Text", CellChangeTimes->{{3.5207900329256697`*^9, 3.520790039425545*^9}, { 3.5207905528063135`*^9, 3.52079057796208*^9}, {3.520790669257202*^9, 3.520790688522457*^9}, {3.520792276476343*^9, 3.5207922883979893`*^9}, 3.731802105804598*^9, {3.7332453910993633`*^9, 3.73324543146161*^9}, { 3.733245465591494*^9, 3.73324552648767*^9}, {3.7332457859000053`*^9, 3.7332458946366596`*^9}, {3.733246416026823*^9, 3.7332464976539507`*^9}, { 3.733409647622547*^9, 3.733409690789016*^9}, {3.7334097220978065`*^9, 3.7334098097328186`*^9}, {3.733409843957776*^9, 3.7334098879482927`*^9}, 3.7334099311167617`*^9, {3.733414761154024*^9, 3.733414783689313*^9}, 3.733433040560546*^9, {3.7334340499532804`*^9, 3.7334340527244387`*^9}, { 3.7340080899526415`*^9, 3.7340080924537845`*^9}, {3.7340084506362715`*^9, 3.734008450723276*^9}, {3.734009694619423*^9, 3.7340096947304296`*^9}, { 3.7341940277342076`*^9, 3.7341940344298224`*^9}, {3.7354064277165704`*^9, 3.7354064293877373`*^9}, 3.7354090739849615`*^9}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[TextData[{ "And now, we plot several representations of the probability densities, ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{ SuperscriptBox[ SubscriptBox["Y", "l"], "m"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], SuperscriptBox["|", "2"]}], TraditionalForm]]], ", of various spherical hamronics. Some of these plots look like electron \ orbitals, but", StyleBox[" these are not electron orbitals", FontWeight->"Bold"], ". These are representations of 2 spatial dimensions, not 3; radial \ dependence is not considered here. You should think of spherical harmonics as \ eigenstates on a sphere. ", StyleBox["Note that these representations are not to scale relative to each \ other; adding the third and fourth representations gets you the fifth \ representation, but the fifth representation\[CloseCurlyQuote]s size has been \ downscaled.", FontWeight->"Bold"] }], "Text", CellChangeTimes->{{3.540403926667665*^9, 3.540403931555023*^9}, { 3.540404603843256*^9, 3.540404657908609*^9}, {3.540404900943877*^9, 3.540404910045424*^9}, {3.7053257493610587`*^9, 3.705325749826105*^9}, { 3.733580953272113*^9, 3.7335810325057473`*^9}, {3.7335810942834644`*^9, 3.7335811318642874`*^9}, {3.733581250495692*^9, 3.7335812519758396`*^9}, { 3.7338537119709315`*^9, 3.7338537218618517`*^9}, {3.7338537639622107`*^9, 3.7338537641806173`*^9}, {3.735989013059235*^9, 3.735989068836996*^9}, { 3.7366861261725636`*^9, 3.736686144165363*^9}, {3.736686793932333*^9, 3.7366868477827177`*^9}, {3.73668942382847*^9, 3.736689425530925*^9}, { 3.736689651108283*^9, 3.736689701437522*^9}, {3.736689731680698*^9, 3.7366897329005375`*^9}, {3.7367040809283304`*^9, 3.736704181387376*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{"ComplexExpand", "[", RowBox[{ RowBox[{"Conjugate", "[", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "]"}], "*", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maxx", "=", RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]", ",", RowBox[{"\[Pi]", "/", "20"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "\[Pi]"}], ",", RowBox[{"\[Pi]", "/", "20"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Yrect", "=", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]", ",", RowBox[{ RowBox[{"Abs", "[", RowBox[{"2.5", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Yflat", "=", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Phi]", ",", "\[Theta]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ysph1", "=", RowBox[{"SphericalPlot3D", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{"0.67", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{ RowBox[{"\[Theta]", "*", "Pi"}], ",", "\[Phi]"}], "]"}], "/", "maxx"}]}], ")"}]}], "]"}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ysph2", "=", RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{"0.67", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{ RowBox[{"\[Theta]", "*", "Pi"}], ",", "\[Phi]"}], "]"}], "/", "maxx"}]}], ")"}]}], "]"}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ysph3", "=", RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ "x", ",", "y", ",", "z", ",", "\[Theta]", ",", "\[Phi]", ",", "r"}], "}"}], ",", RowBox[{"Hue", "[", RowBox[{"0.67", RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"Ylmsq", "[", RowBox[{ RowBox[{"\[Theta]", "*", "Pi"}], ",", "\[Phi]"}], "]"}], "/", "maxx"}]}], ")"}]}], "]"}]}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"YrectLabel", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"YflatLabel", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"Ysph1Label", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"Ysph2Label", "=", "\"\<3D Probability density\>\""}], ";", "\[IndentingNewLine]", RowBox[{"YlmLabel", "=", RowBox[{ RowBox[{"StringForm", "[", RowBox[{ "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(Y\), \(``\)], \(``\)]\)(\ \[Theta],\[Phi])=\>\"", ",", "l", ",", "m"}], "]"}], "[", RowBox[{"Y", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"YlmsqLabel", "=", RowBox[{ RowBox[{"StringForm", "[", RowBox[{ "\"\<|\!\(\*SuperscriptBox[SubscriptBox[\(Y\), \(``\)], \(``\)]\)(\ \[Theta],\[Phi])\!\(\*SuperscriptBox[\(|\), \(2\)]\)=\>\"", ",", "l", ",", "m"}], "]"}], "[", RowBox[{"Ylmsq", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", "YlmLabel", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "YlmsqLabel", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ "YrectLabel", ",", "YflatLabel", ",", "Ysph1Label", ",", "Ysph2Label", ",", "\"\<\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"Yrect", ",", "Yflat", ",", "Ysph1", ",", RowBox[{"Grid", "[", RowBox[{"{", RowBox[{"{", RowBox[{"Ysph2", ",", "Ysph3"}], "}"}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"l", ",", "0"}], "}"}], ",", "0", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "0"}], "}"}], ",", RowBox[{"-", "l"}], ",", "l", ",", "1"}], "}"}], ",", RowBox[{"TrackedSymbols", "\[RuleDelayed]", RowBox[{"{", RowBox[{"l", ",", "m"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.479608942070467*^9, 3.479609016578402*^9}, { 3.479609195360559*^9, 3.479609262159492*^9}, {3.479609410665427*^9, 3.479609418292212*^9}, {3.479609558985454*^9, 3.479609584209223*^9}, { 3.479609635734827*^9, 3.479609637509842*^9}, {3.490102460582988*^9, 3.4901024914222193`*^9}, {3.540404508717667*^9, 3.540404526254038*^9}, { 3.540670522579969*^9, 3.540670526148066*^9}, {3.7053230682429733`*^9, 3.705323079827132*^9}, {3.7053232152556734`*^9, 3.7053232158477325`*^9}, { 3.705325943929514*^9, 3.7053259442335443`*^9}, {3.705328282542693*^9, 3.7053282925431232`*^9}, 3.7318547146662498`*^9, 3.7335806163675213`*^9, { 3.733581059407093*^9, 3.7335810805296803`*^9}, {3.7338482387554035`*^9, 3.7338482431558433`*^9}, {3.733848277300257*^9, 3.733848277461273*^9}, { 3.733851903877003*^9, 3.73385191740355*^9}, 3.733852108029562*^9, { 3.7338524857913685`*^9, 3.733852488709999*^9}, {3.7338537322675886`*^9, 3.733853739167411*^9}, {3.7338538784099674`*^9, 3.7338539044162407`*^9}, { 3.7338539494572067`*^9, 3.7338539670032606`*^9}, {3.7338561977039165`*^9, 3.733856234775072*^9}, {3.7338562967658925`*^9, 3.7338563234871855`*^9}, { 3.7338567216391563`*^9, 3.7338567239168143`*^9}, {3.7347913982246037`*^9, 3.7347914052479935`*^9}, 3.7347914976481347`*^9, 3.734872743180732*^9, { 3.7348728980985928`*^9, 3.734872921923956*^9}, {3.7348797066270185`*^9, 3.7348797203558035`*^9}, {3.734880063526432*^9, 3.7348801212157316`*^9}, 3.734880254624362*^9, {3.7348803644296427`*^9, 3.7348803896220837`*^9}, { 3.735059787630827*^9, 3.7350597888400507`*^9}, {3.7350598979144726`*^9, 3.735059898117276*^9}, {3.7350600373274913`*^9, 3.7350600481265044`*^9}, { 3.73506014978082*^9, 3.735060158525694*^9}, {3.735311782419027*^9, 3.7353118128680716`*^9}, {3.7353118490446887`*^9, 3.735311903136097*^9}, { 3.7353177063484507`*^9, 3.735317716189704*^9}, {3.7353982904691296`*^9, 3.735398314350952*^9}, {3.7353989534038906`*^9, 3.7353989823228626`*^9}, 3.7354065305088487`*^9, {3.7356651335856647`*^9, 3.735665136344941*^9}, { 3.7356668526107388`*^9, 3.73566685261574*^9}, {3.735988559215517*^9, 3.735988607408083*^9}, {3.735988638802724*^9, 3.735988658206909*^9}, { 3.7362677584522142`*^9, 3.7362677650508738`*^9}, {3.7362678075321217`*^9, 3.736268094390805*^9}, {3.7362681631536803`*^9, 3.7362683048448477`*^9}, { 3.7362684353718996`*^9, 3.7362686700753675`*^9}, {3.7362687255979195`*^9, 3.7362687904864073`*^9}, {3.736268866210979*^9, 3.736268909164274*^9}, { 3.7362690232016764`*^9, 3.736269035216878*^9}, {3.7362692089432487`*^9, 3.7362692282791824`*^9}, {3.7362692751848726`*^9, 3.7362693163219852`*^9}, {3.7362696095983105`*^9, 3.736269642838634*^9}, { 3.736269728249174*^9, 3.736269807573106*^9}, {3.7362698528216305`*^9, 3.7362699627136183`*^9}, {3.736270020588405*^9, 3.7362701079421396`*^9}, { 3.7362701414594913`*^9, 3.73627015215256*^9}, {3.736270206186963*^9, 3.736270326053949*^9}, {3.736602325415985*^9, 3.736602330072985*^9}, { 3.7366024575059814`*^9, 3.736602485242755*^9}, {3.7366025954536343`*^9, 3.7366026618353558`*^9}, {3.736602700784564*^9, 3.7366027356795835`*^9}, { 3.7366036851132154`*^9, 3.73660374116182*^9}, {3.7366043853602333`*^9, 3.7366043854732447`*^9}, {3.7366145444585752`*^9, 3.736614557769906*^9}, { 3.7366149282386904`*^9, 3.7366149305816903`*^9}, 3.736615910469558*^9, { 3.7366845099654994`*^9, 3.7366845197906475`*^9}, {3.736704024809719*^9, 3.736704049449183*^9}}, FontFamily->"Consolas", FontSize->24, FontWeight->"Bold"], Cell[TextData[{ "3) Describe any patterns that seem to depend on ", Cell[BoxData[ FormBox["l", TraditionalForm]]], " an ", Cell[BoxData[ FormBox["m", TraditionalForm]]], "." }], "Text", CellChangeTimes->{{3.540403926667665*^9, 3.540403931555023*^9}, { 3.540404603843256*^9, 3.540404657908609*^9}, {3.540404900943877*^9, 3.540404910045424*^9}, {3.7053257493610587`*^9, 3.705325749826105*^9}, { 3.733580953272113*^9, 3.7335810325057473`*^9}, {3.7335810942834644`*^9, 3.7335811318642874`*^9}, {3.733581250495692*^9, 3.7335812519758396`*^9}, { 3.7338537119709315`*^9, 3.7338537218618517`*^9}, {3.7338537639622107`*^9, 3.7338537641806173`*^9}, {3.7354079825385933`*^9, 3.7354080621287107`*^9}, {3.7354089029720397`*^9, 3.735408994795441*^9}, { 3.735665389833845*^9, 3.73566543178369*^9}, 3.73598908142943*^9}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.88, 1, 0.88]], Cell["\<\ 4) What are the advantages and disadvantages of each of the above \ representations? Which representation(s) do you prefer?\ \>", "Text", CellChangeTimes->{{3.540403926667665*^9, 3.540403931555023*^9}, { 3.540404603843256*^9, 3.540404657908609*^9}, {3.540404900943877*^9, 3.540404910045424*^9}, {3.7053257493610587`*^9, 3.705325749826105*^9}, { 3.733580953272113*^9, 3.7335810325057473`*^9}, {3.7335810942834644`*^9, 3.7335811318642874`*^9}, {3.733581250495692*^9, 3.7335812519758396`*^9}, { 3.7338537119709315`*^9, 3.7338537218618517`*^9}, {3.7338537639622107`*^9, 3.7338537641806173`*^9}, {3.7354079825385933`*^9, 3.7354080621287107`*^9}, {3.7354089029720397`*^9, 3.735408994795441*^9}, { 3.735665389833845*^9, 3.73566543178369*^9}, 3.73598908142943*^9, { 3.736684853842969*^9, 3.736684905567528*^9}, {3.7366902915207105`*^9, 3.736690329905548*^9}}, FontFamily->"Times New Roman", FontSize->24, Background->RGBColor[0.88, 1, 0.88]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{3.736603636822387*^9}] }, Open ]] }, WindowSize->{1858, 1038}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 313, 8, 81, "Title"], Cell[896, 32, 11037, 255, 19, "Input", CellOpen->False, PageBreakAbove->False, PageBreakWithin->False, InitializationCell->True], Cell[11936, 289, 1880, 41, 149, "Text"], Cell[13819, 332, 1007, 17, 87, "Text"], Cell[14829, 351, 12898, 250, 651, "Input"], Cell[27730, 603, 965, 18, 57, "Text"], Cell[28698, 623, 963, 18, 57, "Text"], Cell[29664, 643, 1081, 18, 57, "Text"], Cell[30748, 663, 1106, 17, 42, "Text"], Cell[31857, 682, 1829, 36, 148, "Text"], Cell[33689, 720, 11099, 252, 698, "Input"], Cell[44791, 974, 927, 20, 57, "Text"], Cell[45721, 996, 982, 17, 57, "Text"], Cell[46706, 1015, 87, 1, 52, "Input"] }, Open ]] } ] *)