(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 52452, 1405] NotebookOptionsPosition[ 51526, 1372] NotebookOutlinePosition[ 51868, 1387] CellTagsIndexPosition[ 51825, 1384] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "Lecture 21. Print out some spherical harmonic functions and their \ integrals, to look at the conditions for \[Integral] cos(\[Theta]) ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Y", "lm"], "(", RowBox[{"\[Theta]", ",", " ", "\[Phi]"}], ")"}], " ", "d\[CapitalOmega]"}], " ", "=", " ", "0"}], TraditionalForm]]], ". Also evaluate the <100|z|210> and <100|z^2|100> brakets." }], "Text", CellChangeTimes->{{3.658186263819443*^9, 3.6581863077373533`*^9}, { 3.6581869159099016`*^9, 3.6581869241281447`*^9}, {3.6581892398608427`*^9, 3.658189256168605*^9}, {3.6582306946251016`*^9, 3.658230728347302*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"$Assumptions", " ", "=", " ", RowBox[{ RowBox[{"l", " ", "\[Element]", " ", "Integers"}], " ", "&&", " ", RowBox[{"m", " ", "\[Element]", "Integers"}], " ", "&&", " ", RowBox[{"a0", " ", ">", " ", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "t", "]"}], RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"SphericalHarmonicY", "[", RowBox[{"#1", ",", "#2", ",", "t", ",", "p"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "Pi"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"p", ",", " ", "0", ",", " ", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}], " ", "//", " ", "HoldForm"}], " ", "//", " ", "TraditionalForm"}], ",", "\[IndentingNewLine]", "\"\< = \>\"", ",", "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "t", "]"}], RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"SphericalHarmonicY", "[", RowBox[{"#1", ",", "#2", ",", "t", ",", "p"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "Pi"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"p", ",", " ", "0", ",", " ", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], " ", "&"}], " ", "@@@", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Row", "[", RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SphericalHarmonicY", "[", RowBox[{"#1", ",", "#2", ",", "\[Theta]", ",", " ", "\[Phi]"}], "]"}], " ", "//", " ", "HoldForm"}], " ", "//", " ", "TraditionalForm"}], ",", "\[IndentingNewLine]", "\"\< = \>\"", ",", "\[IndentingNewLine]", RowBox[{"SphericalHarmonicY", "[", RowBox[{"#1", ",", "#2", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], " ", "&"}], " ", "@@@", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"3", ",", "3"}], "}"}]}], "}"}]}], " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Row", "[", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"SphericalHarmonicY", "[", RowBox[{"#", ",", "0", ",", "\[Theta]", ",", " ", "\[Phi]"}], "]"}], " ", "//", " ", "HoldForm"}], " ", "//", " ", "TraditionalForm"}], ",", "\[IndentingNewLine]", "\"\< = \>\"", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"SphericalHarmonicY", "[", RowBox[{"#", ",", "0", ",", "\[Theta]", ",", " ", "\[Phi]"}], "]"}], " ", "//", " ", "TraditionalForm"}]}], "\[IndentingNewLine]", "}"}], "]"}], " ", "&"}], " ", "/@", RowBox[{"(", RowBox[{ RowBox[{"Range", "[", "8", "]"}], " ", "-", "1"}], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{"Exp", "[", " ", RowBox[{"I", " ", "phi"}], " ", "]"}], ",", " ", RowBox[{"{", RowBox[{"phi", ",", " ", "0", ",", " ", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"Cos", "[", "t", "]"}], " ", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "^", "#"}]}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}], "]"}], " ", "//", " ", "TraditionalForm"}], ",", " ", "\[IndentingNewLine]", "\"\< = \>\"", ",", "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"Cos", "[", "t", "]"}], " ", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "^", "#"}]}], ",", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}]}], "}"}], "]"}], " ", "&"}], " ", "/@", " ", RowBox[{"Range", "[", "10", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"HoldForm", "[", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", RowBox[{"SphericalHarmonicY", "[", RowBox[{"#", ",", "0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"\[Theta]", ",", " ", "0", ",", " ", "Pi"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\[Phi]", ",", " ", "0", ",", " ", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}], "]"}], " ", "//", " ", "TraditionalForm"}], ",", " ", "\[IndentingNewLine]", "\"\< = \>\"", ",", "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"Cos", "[", "t", "]"}], " ", RowBox[{"SphericalHarmonicY", "[", RowBox[{"#", ",", "0", ",", "t", ",", " ", "p"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "Pi"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"p", ",", " ", "0", ",", " ", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]}], " ", "\[IndentingNewLine]", "}"}], "]"}], " ", "&"}], " ", "/@", " ", RowBox[{"(", RowBox[{ RowBox[{"Range", "[", "10", "]"}], "-", "1"}], ")"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6581858463378096`*^9, 3.6581859404520535`*^9}, { 3.6581860022623353`*^9, 3.658186020163992*^9}, {3.658186058071767*^9, 3.65818614690144*^9}, {3.6581861782854967`*^9, 3.6581861958614492`*^9}, { 3.6581868161559415`*^9, 3.6581868745716677`*^9}, {3.6581870218605638`*^9, 3.6581870461874666`*^9}, 3.658187247075161*^9, {3.6581878812493405`*^9, 3.6581879147361164`*^9}, {3.658187962602688*^9, 3.6581879925438128`*^9}, { 3.6581880943771677`*^9, 3.6581881692958255`*^9}, {3.6581884069088163`*^9, 3.6581886149644365`*^9}, {3.658188658097924*^9, 3.6581886830196066`*^9}, { 3.658189057612616*^9, 3.658189192924718*^9}, {3.658229786733026*^9, 3.658229789074117*^9}, {3.658231152970375*^9, 3.6582311694604053`*^9}, { 3.658231204869375*^9, 3.658231208200363*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "0", "0"], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "1", "0"], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"", RowBox[{"2", " ", SqrtBox[ FractionBox["\[Pi]", "3"]]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "1", "1"], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "1", RowBox[{"-", "1"}]], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "2", "0"], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "2", "1"], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "2", "2"], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "2", RowBox[{"-", "1"}]], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "2", RowBox[{"-", "2"}]], "(", RowBox[{"t", ",", "p"}], ")"}]}], RowBox[{"\[DifferentialD]", "p"}], RowBox[{"\[DifferentialD]", "t"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"]}], "}"}]], "Output", CellChangeTimes->{3.658189156546334*^9, 3.6581891946448946`*^9, 3.6582297918896437`*^9, 3.658231172258909*^9, 3.6582312122209654`*^9}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "1", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ FractionBox["3", "\[Pi]"]], " ", RowBox[{"cos", "(", "\[Theta]", ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "2", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ FractionBox["1", "4"], " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{ SuperscriptBox["cos", "2"], "(", "\[Theta]", ")"}]}], "-", "1"}], ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "3", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ FractionBox["1", "4"], " ", SqrtBox[ FractionBox["7", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{ SuperscriptBox["cos", "3"], "(", "\[Theta]", ")"}]}], "-", RowBox[{"3", " ", RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "1", "1"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["3", RowBox[{"2", " ", "\[Pi]"}]]], " ", RowBox[{"sin", "(", "\[Theta]", ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "2", "1"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["15", RowBox[{"2", " ", "\[Pi]"}]]], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{"sin", "(", "\[Theta]", ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "2", "2"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["15", RowBox[{"2", " ", "\[Pi]"}]]], " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "3", "1"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["21", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{ SuperscriptBox["cos", "2"], "(", "\[Theta]", ")"}]}], "-", "1"}], ")"}], " ", RowBox[{"sin", "(", "\[Theta]", ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "3", "2"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["105", RowBox[{"2", " ", "\[Pi]"}]]], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "3", "3"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"3", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["35", "\[Pi]"]], " ", RowBox[{ SuperscriptBox["sin", "3"], "(", "\[Theta]", ")"}]}]}, "RowDefault"]}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{3.658189156546334*^9, 3.6581891946448946`*^9, 3.6582297918896437`*^9, 3.658231172258909*^9, 3.6582312122660074`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "0", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ FractionBox["1", RowBox[{"2", " ", SqrtBox["\[Pi]"]}]], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "1", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ RowBox[{ FractionBox["1", "2"], " ", SqrtBox[ FractionBox["3", "\[Pi]"]], " ", RowBox[{"cos", "(", "\[Theta]", ")"}]}], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "2", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ RowBox[{ FractionBox["1", "4"], " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{ SuperscriptBox["cos", "2"], "(", "\[Theta]", ")"}]}], "-", "1"}], ")"}]}], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "3", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ RowBox[{ FractionBox["1", "4"], " ", SqrtBox[ FractionBox["7", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{ SuperscriptBox["cos", "3"], "(", "\[Theta]", ")"}]}], "-", RowBox[{"3", " ", RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}]}], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "4", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ FractionBox[ RowBox[{"3", " ", RowBox[{"(", RowBox[{ RowBox[{"35", " ", RowBox[{ SuperscriptBox["cos", "4"], "(", "\[Theta]", ")"}]}], "-", RowBox[{"30", " ", RowBox[{ SuperscriptBox["cos", "2"], "(", "\[Theta]", ")"}]}], "+", "3"}], ")"}]}], RowBox[{"16", " ", SqrtBox["\[Pi]"]}]], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "5", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ RowBox[{ FractionBox["1", "16"], " ", SqrtBox[ FractionBox["11", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"63", " ", RowBox[{ SuperscriptBox["cos", "5"], "(", "\[Theta]", ")"}]}], "-", RowBox[{"70", " ", RowBox[{ SuperscriptBox["cos", "3"], "(", "\[Theta]", ")"}]}], "+", RowBox[{"15", " ", RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}]}], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "6", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ RowBox[{ FractionBox["1", "32"], " ", SqrtBox[ FractionBox["13", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"231", " ", RowBox[{ SuperscriptBox["cos", "6"], "(", "\[Theta]", ")"}]}], "-", RowBox[{"315", " ", RowBox[{ SuperscriptBox["cos", "4"], "(", "\[Theta]", ")"}]}], "+", RowBox[{"105", " ", RowBox[{ SuperscriptBox["cos", "2"], "(", "\[Theta]", ")"}]}], "-", "5"}], ")"}]}], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["Y", "7", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"",TagBox[ FormBox[ RowBox[{ FractionBox["1", "32"], " ", SqrtBox[ FractionBox["15", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"429", " ", RowBox[{ SuperscriptBox["cos", "7"], "(", "\[Theta]", ")"}]}], "-", RowBox[{"693", " ", RowBox[{ SuperscriptBox["cos", "5"], "(", "\[Theta]", ")"}]}], "+", RowBox[{"315", " ", RowBox[{ SuperscriptBox["cos", "3"], "(", "\[Theta]", ")"}]}], "-", RowBox[{"35", " ", RowBox[{"cos", "(", "\[Theta]", ")"}]}]}], ")"}]}], TraditionalForm], TraditionalForm, Editable -> True]}, "RowDefault"]}], "}"}]], "Output", CellChangeTimes->{3.658189156546334*^9, 3.6581891946448946`*^9, 3.6582297918896437`*^9, 3.658231172258909*^9, 3.65823121231505*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "1"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"", FractionBox["2", "3"]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "2"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "3"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"", FractionBox["2", "5"]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "4"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "5"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"", FractionBox["2", "7"]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "6"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "7"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"", FractionBox["2", "9"]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "8"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "9"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"", FractionBox["2", "11"]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ RowBox[{ RowBox[{"sin", "(", "t", ")"}], " ", RowBox[{"cos", "(", "t", ")"}], " ", RowBox[{ SuperscriptBox["cos", "10"], "(", "t", ")"}]}], RowBox[{"\[DifferentialD]", "t"}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"]}], "}"}]], "Output", CellChangeTimes->{3.658189156546334*^9, 3.6581891946448946`*^9, 3.6582297918896437`*^9, 3.658231172258909*^9, 3.6582312136342325`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "0", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "1", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"", RowBox[{"2", " ", SqrtBox[ FractionBox["\[Pi]", "3"]]}]}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "2", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "3", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "4", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "5", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "6", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "7", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "8", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"], ",", TemplateBox[{TagBox[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ RowBox[{ RowBox[{"sin", "(", "\[Theta]", ")"}], " ", RowBox[{"cos", "(", "\[Theta]", ")"}], " ", RowBox[{ SubsuperscriptBox["Y", "9", "0"], "(", RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}], HoldForm], TraditionalForm], TraditionalForm, Editable -> True],"\" = \"","0"}, "RowDefault"]}], "}"}]], "Output", CellChangeTimes->{3.658189156546334*^9, 3.6581891946448946`*^9, 3.6582297918896437`*^9, 3.658231172258909*^9, 3.6582312168111277`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"braOpKet", ",", " ", "unit"}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"wave", " ", "function", " ", "definition", " ", RowBox[{"from", ":", " ", "\[IndentingNewLine]", ButtonBox[ RowBox[{ RowBox[{"http", ":"}], "//", RowBox[{ RowBox[{ RowBox[{ RowBox[{"mathematica", ".", "stackexchange", ".", "com"}], "/", "a"}], "/", "88150"}], "/", "10"}]}], BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathematica.stackexchange.com/a/88150/10"], None}, ButtonNote->"http://mathematica.stackexchange.com/a/88150/10"]}]}], "\[IndentingNewLine]", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"n_", ",", "l_", ",", "m_"}], "}"}], ",", RowBox[{"{", RowBox[{"r_", ",", "\[Theta]_", ",", "\[Phi]_"}], "}"}]}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]", "=", RowBox[{"2", " ", RowBox[{"r", "/", RowBox[{"(", RowBox[{"n", " ", "a0"}], ")"}]}]}]}], "}"}], ",", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "/", RowBox[{"(", RowBox[{"n", " ", "a0"}], ")"}]}], ")"}], "^", "3"}], " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "l", "-", "1"}], ")"}], "!"}], "/", RowBox[{"(", RowBox[{"2", " ", "n", " ", RowBox[{ RowBox[{"(", RowBox[{"n", "+", "l"}], ")"}], "!"}]}], ")"}]}]}], "]"}], " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Rho]"}], "/", "2"}], "]"}], " ", RowBox[{"\[Rho]", "^", "l"}], " ", RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"n", "-", "l", "-", "1"}], ",", RowBox[{ RowBox[{"2", " ", "l"}], "+", "1"}], ",", "\[Rho]"}], "]"}], " ", RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"braOpKet", "[", RowBox[{"f_", ",", " ", "A_", ",", " ", "g_"}], "]"}], " ", ":=", " ", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"Conjugate", "[", RowBox[{"f", "[", RowBox[{"r", ",", " ", "theta", ",", " ", "phi"}], "]"}], "]"}], " ", RowBox[{"A", "[", RowBox[{"r", ",", " ", "theta", ",", " ", "phi"}], "]"}], " ", RowBox[{"g", "[", RowBox[{"r", ",", " ", "theta", ",", " ", "phi"}], "]"}], " ", RowBox[{"r", "^", "2"}], " ", RowBox[{"Sin", "[", "theta", "]"}]}], ",", " ", RowBox[{"{", RowBox[{"r", ",", "0", ",", " ", "Infinity"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"theta", ",", " ", "0", ",", " ", "Pi"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"phi", ",", " ", "0", ",", " ", RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], " ", "]"}], "&"}], ")"}], "[", RowBox[{"r", ",", " ", "theta", ",", " ", "phi"}], "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"unit", " ", "=", " ", RowBox[{"1", " ", "&"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"braOpKet", "[", " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], " ", "]"}], "&"}], ",", " ", "unit", ",", " ", RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], "]"}], " ", "&"}]}], "]"}], " "}], "\[IndentingNewLine]", RowBox[{"braOpKet", "[", " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], " ", "]"}], "&"}], ",", " ", "unit", ",", " ", RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], "]"}], " ", "&"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"braOpKet", "[", " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], " ", "]"}], "&"}], ",", " ", RowBox[{ RowBox[{"#1", " ", RowBox[{"Cos", "[", "#2", "]"}]}], " ", "&"}], ",", " ", RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], "]"}], " ", "&"}]}], "]"}], " ", "/.", " ", RowBox[{"a0", " ", "\[Rule]", " ", "1"}]}], " ", "//", " ", "N"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"braOpKet", "[", " ", RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], " ", "]"}], "&"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"#1", " ", RowBox[{"Cos", "[", "#2", "]"}]}], ")"}], "^", "2"}], " ", "&"}], ",", " ", RowBox[{ RowBox[{"\[Psi]", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"#1", ",", " ", "#2", ",", " ", "#3"}], "}"}]}], "]"}], " ", "&"}]}], "]"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"unit", "[", RowBox[{"r", ",", "theta", ",", " ", "phi"}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.6582293370968685`*^9, 3.658229649858245*^9}, { 3.6582297643869324`*^9, 3.6582297724682474`*^9}, {3.658229877183774*^9, 3.658229911180526*^9}, {3.6582300030005617`*^9, 3.65823003516913*^9}, { 3.6582300758201017`*^9, 3.658230076993153*^9}, {3.6582301645399165`*^9, 3.65823016789493*^9}, {3.6582305973498073`*^9, 3.6582306784249153`*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.658229776801062*^9, 3.6582298386951427`*^9, {3.6582298871389503`*^9, 3.6582299123996105`*^9}, 3.6582300374091387`*^9, 3.658230109518057*^9, 3.6582301688387823`*^9, 3.6582306799272614`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.658229776801062*^9, 3.6582298386951427`*^9, {3.6582298871389503`*^9, 3.6582299123996105`*^9}, 3.6582300374091387`*^9, 3.658230109518057*^9, 3.6582301688387823`*^9, 3.6582306803046017`*^9}], Cell[BoxData["0.7449355390278033`"], "Output", CellChangeTimes->{ 3.658229776801062*^9, 3.6582298386951427`*^9, {3.6582298871389503`*^9, 3.6582299123996105`*^9}, 3.6582300374091387`*^9, 3.658230109518057*^9, 3.6582301688387823`*^9, 3.65823068054682*^9}], Cell[BoxData[ SuperscriptBox["a0", "2"]], "Output", CellChangeTimes->{ 3.658229776801062*^9, 3.6582298386951427`*^9, {3.6582298871389503`*^9, 3.6582299123996105`*^9}, 3.6582300374091387`*^9, 3.658230109518057*^9, 3.6582301688387823`*^9, 3.658230680766675*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"128", " ", SqrtBox["2"], " "}], "243"], "//", " ", "N"}]], "Input", CellChangeTimes->{{3.658230143858348*^9, 3.6582301523549657`*^9}}], Cell[BoxData["0.7449355390278033`"], "Output", CellChangeTimes->{3.6582301530585957`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6587113411356354`*^9, 3.658711383110386*^9}, 3.6587118456834183`*^9}] }, WindowSize->{707, 636}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 684, 15, 96, "Text"], Cell[CellGroupData[{ Cell[1266, 39, 8615, 217, 1216, "Input"], Cell[9884, 258, 7121, 181, 490, "Output"], Cell[17008, 441, 5880, 155, 326, "Output"], Cell[22891, 598, 6335, 173, 488, "Output"], Cell[29229, 773, 5564, 149, 512, "Output"], Cell[34796, 924, 8146, 197, 542, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42979, 1126, 7040, 201, 691, "Input"], Cell[50022, 1329, 249, 4, 40, "Output"], Cell[50274, 1335, 249, 4, 40, "Output"], Cell[50526, 1341, 264, 4, 40, "Output"], Cell[50793, 1347, 271, 5, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51101, 1357, 191, 5, 74, "Input"], Cell[51295, 1364, 90, 1, 40, "Output"] }, Open ]], Cell[51400, 1368, 122, 2, 39, "Input"] } ] *) (* End of internal cache information *)