(* 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[      9625,        295]
NotebookOptionsPosition[      9230,        277]
NotebookOutlinePosition[      9573,        292]
CellTagsIndexPosition[      9530,        289]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Expand out ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["L", "2"], "=", " ", 
    RowBox[{
     SuperscriptBox[
      SubscriptBox["L", "z"], "2"], "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", "2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SubscriptBox["L", "+"], 
         SubscriptBox["L", "-"]}], "+", " ", 
        RowBox[{
         SubscriptBox["L", "-"], 
         SubscriptBox["L", "+"]}]}], ")"}]}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", in spherical coordinates and compare to stated result (Sakurai (6.15))."
}], "Text",
 CellChangeTimes->{{3.657407946213978*^9, 3.6574080585001335`*^9}, {
  3.6574082938015327`*^9, 3.6574083184331923`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    SubscriptBox["L", "\[PlusMinus]"], " ", "f", 
    RowBox[{"(", 
     RowBox[{"\[Theta]", ",", " ", "\[Phi]"}], ")"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Lpm", "[", 
      RowBox[{"f_", ",", " ", "s_"}], "]"}], " ", ":=", " ", 
     RowBox[{
      RowBox[{"-", "I"}], " ", "\[HBar]", " ", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"I", " ", "s", " ", "phi"}], ")"}]}], " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"I", " ", "s", " ", 
         RowBox[{"D", "[", 
          RowBox[{"f", ",", " ", "theta"}], "]"}]}], " ", "-", " ", 
        RowBox[{
         RowBox[{"Cot", "[", "theta", "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{"f", ",", " ", "phi"}], "]"}]}]}], " ", ")"}]}]}], " ", 
    ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"prettyPrint", " ", ":=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"theta", " ", "\[Rule]", " ", "\[Theta]"}], ",", " ", 
       RowBox[{"phi", " ", "\[Rule]", " ", "\[Phi]"}], ",", " ", 
       RowBox[{"f", " ", "\[Rule]", " ", "\[Psi]"}]}], "}"}]}], " ", ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      FormBox[
       RowBox[{" ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           SubscriptBox["L", "z"], "2"], "+", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "/", "2"}], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SubscriptBox["L", "+"], 
              SubscriptBox["L", "-"]}], "+", " ", 
             RowBox[{
              SubscriptBox["L", "-"], 
              SubscriptBox["L", "+"]}]}], ")"}]}]}]}]}],
       TraditionalForm], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"-", 
       RowBox[{"\[HBar]", "^", "2"}]}], ")"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", " ", 
            RowBox[{"\[HBar]", "^", "2"}]}], " ", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"f", "[", 
              RowBox[{"theta", ",", " ", "phi"}], "]"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"phi", ",", "2"}], "}"}]}], "]"}]}], " ", "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Lpm", "[", " ", 
              RowBox[{
               RowBox[{"Lpm", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{"theta", ",", " ", "phi"}], "]"}], ",", 
                 RowBox[{"-", "1"}]}], "]"}], ",", " ", "1"}], "]"}], " ", 
             "+", " ", 
             RowBox[{"Lpm", "[", " ", 
              RowBox[{
               RowBox[{"Lpm", "[", 
                RowBox[{
                 RowBox[{"f", "[", 
                  RowBox[{"theta", ",", " ", "phi"}], "]"}], ",", "1"}], 
                "]"}], ",", " ", 
               RowBox[{"-", "1"}]}], "]"}]}], ")"}], "/", "2"}]}], " ", ")"}],
         "/", 
        RowBox[{"(", 
         RowBox[{"-", " ", 
          RowBox[{"\[HBar]", "^", "2"}]}], ")"}]}], "//", " ", "Simplify"}], 
      ")"}], " ", "/.", " ", "prettyPrint"}], " ", "//", " ", 
    "TraditionalForm"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"equation", " ", 
     RowBox[{"6.15", "/", 
      RowBox[{"(", 
       RowBox[{"-", 
        RowBox[{"\[HBar]", "^", "2"}]}], ")"}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{
            RowBox[{"Sin", "[", "theta", "]"}], "^", "2"}]}], ")"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"theta", ",", "phi"}], "]"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"phi", ",", "2"}], "}"}]}], "]"}]}], " ", "+", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"Sin", "[", "theta", "]"}]}], ")"}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Sin", "[", "theta", "]"}], " ", 
            RowBox[{"D", "[", 
             RowBox[{
              RowBox[{"f", "[", 
               RowBox[{"theta", ",", " ", "phi"}], "]"}], ",", " ", "theta"}],
              "]"}]}], ",", " ", "theta"}], "]"}]}]}], " ", "//", " ", 
       "Simplify"}], ")"}], " ", "/.", " ", "prettyPrint"}], " ", "//", " ", 
    "TraditionalForm"}]}]}]], "Input",
 CellChangeTimes->{{3.6574071473988123`*^9, 3.6574071746810303`*^9}, {
  3.657407218739122*^9, 3.6574073049427805`*^9}, {3.6574073484483957`*^9, 
  3.6574073659759736`*^9}, {3.6574074139104557`*^9, 3.6574074881421967`*^9}, {
  3.657407528372466*^9, 3.6574075314540915`*^9}, {3.6574075799460077`*^9, 
  3.65740763604422*^9}, {3.6574076864361567`*^9, 3.6574078503248496`*^9}, {
  3.65740788894277*^9, 3.6574079345184436`*^9}, {3.657408064010833*^9, 
  3.657408111341133*^9}, {3.657408144245763*^9, 3.657408257831275*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Psi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "(", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], "+", 
   RowBox[{
    RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "(", 
     RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{
     SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "(", 
     RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.657407350356176*^9, 3.6574073668197517`*^9}, {
   3.657407464786765*^9, 3.6574074887984734`*^9}, 3.657407532331394*^9, {
   3.657407631843573*^9, 3.6574076369349136`*^9}, 3.6574076949416246`*^9, 
   3.657407763548024*^9, {3.6574078194417315`*^9, 3.6574078511373105`*^9}, 
   3.657408114873713*^9, 3.6574081480608444`*^9, 3.6574082271159086`*^9, 
   3.6574082597235947`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Psi]", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"2", ",", "0"}], ")"}],
      Derivative],
     MultilineFunction->None], "(", 
    RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}], "+", 
   RowBox[{
    RowBox[{"cot", "(", "\[Theta]", ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "(", 
     RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{
     SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], " ", 
    RowBox[{
     SuperscriptBox["\[Psi]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2"}], ")"}],
       Derivative],
      MultilineFunction->None], "(", 
     RowBox[{"\[Theta]", ",", "\[Phi]"}], ")"}]}]}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.657407350356176*^9, 3.6574073668197517`*^9}, {
   3.657407464786765*^9, 3.6574074887984734`*^9}, 3.657407532331394*^9, {
   3.657407631843573*^9, 3.6574076369349136`*^9}, 3.6574076949416246`*^9, 
   3.657407763548024*^9, {3.6574078194417315`*^9, 3.6574078511373105`*^9}, 
   3.657408114873713*^9, 3.6574081480608444`*^9, 3.6574082271159086`*^9, 
   3.65740825973922*^9}]
}, Open  ]]
},
WindowSize->{707, 636},
WindowMargins->{{69, Automatic}, {Automatic, 5}},
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, 762, 24, 66, "Text"],
Cell[CellGroupData[{
Cell[1344, 48, 5269, 146, 495, "Input"],
Cell[6616, 196, 1299, 38, 60, "Output"],
Cell[7918, 236, 1296, 38, 60, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)