(* 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[     57539,       1544]
NotebookOptionsPosition[     55324,       1501]
NotebookOutlinePosition[     55738,       1517]
CellTagsIndexPosition[     55695,       1514]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "Compute and display ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox["S", "+"], ",", " ", 
   SubscriptBox["S", "-"], ",", "  ", 
   SubscriptBox["S", "x"], ",", " ", 
   SubscriptBox["S", "y"], ",", " ", 
   SubscriptBox["S", "z"], ",", " ", 
   SuperscriptBox["S", "2"]}]],
  CellChangeTimes->{{3.6592095981156254`*^9, 3.6592097056307817`*^9}, {
   3.6592097546300926`*^9, 3.65920975615742*^9}, {3.6592103241216526`*^9, 
   3.6592103444022417`*^9}, {3.659210396398178*^9, 3.6592104786836343`*^9}, {
   3.659210553768937*^9, 3.6592109199595346`*^9}, {3.6592109584655914`*^9, 
   3.6592111972321463`*^9}, {3.6592112294003115`*^9, 3.659211656024729*^9}, {
   3.659211687562631*^9, 3.659211708920557*^9}, {3.6592117546289773`*^9, 
   3.6592117960411177`*^9}, {3.6592118346496325`*^9, 3.65921184713811*^9}, {
   3.6592118855204167`*^9, 3.659211895456361*^9}},ExpressionUUID->
  "a9a2ce54-6538-47f9-b993-45856b1f6d77"],
 " for a given spin (with hbar = 1).  Use this to display the matrix \
representations of these operators for each of: spin 1/2, spin 1, spin 3/2, \
spin 2, spin 5/2.  Use this to solve the (spin one) eigensystem in Sakurai \
pr. 4.12."
}], "Text",
 CellChangeTimes->{{3.6592119325602045`*^9, 3.6592120008696423`*^9}, {
  3.659212218425192*^9, 3.6592122230115166`*^9}, {3.6592206482826843`*^9, 
  3.6592206739961834`*^9}, {3.6592207041953735`*^9, 
  3.6592207067746954`*^9}},ExpressionUUID->"32ff08d8-3759-4288-97ba-\
56f43ddfe564"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"ClearAll", "[", 
     RowBox[{"spinMatrices", ",", " ", "showSpin", ",", " ", "sopts"}], "]"}],
     " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"s", " ", "=", " ", 
      RowBox[{"3", "/", "2"}]}], " ", ";"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"compute", " ", "the", " ", "spin"}], "-", 
      RowBox[{
      "s", " ", "analogue", " ", "of", " ", "the", " ", "Pauli", " ", 
       "matrices"}]}], ",", " ", 
     RowBox[{
     "and", " ", "the", " ", "corresponding", " ", "raising", " ", "and", " ",
       "lowering", " ", "operators"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"spinMatrices", "[", "s_", "]"}], " ", ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "mValues", ",", " ", "m", ",", " ", "vec", ",", " ", "raiseOrLower", 
        ",", " ", "raise", ",", " ", "lower", ",", " ", "splus", ",", " ", 
        "sminus", ",", " ", "sz", ",", " ", "szOp", ",", " ", "sSquared"}], 
       "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"dimension", " ", "=", " ", 
        RowBox[{
         RowBox[{"2", " ", "s"}], " ", "+", " ", "1"}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"mValues", " ", ":=", " ", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"-", "#"}], " ", "+", " ", "s", " ", "+", " ", "1"}], " ", 
          "&"}], " ", "/@", " ", 
         RowBox[{"Range", "[", "dimension", "]"}]}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Map", " ", "the", " ", "values", " ", "m"}], ",", " ", 
         RowBox[{"in", "|", 
          RowBox[{"m", ">", " ", 
           RowBox[{
           "to", " ", "the", " ", "standard", " ", "basis", " ", "for", " ", 
            SuperscriptBox["R", "dimension"]}]}]}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "\[LessEqual]", " ", "dimension"}], ",", 
           RowBox[{"i", "++"}], ",", " ", 
           RowBox[{
            RowBox[{"vec", "[", 
             RowBox[{"mValues", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], " ", "=", " ", 
            RowBox[{"UnitVector", "[", 
             RowBox[{"dimension", ",", " ", "i"}], "]"}]}]}], 
          "\[IndentingNewLine]", "]"}], " ", ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"vec", "[", 
            RowBox[{"mValues", "[", 
             RowBox[{"[", "#", "]"}], "]"}], "]"}], " ", "=", " ", 
           RowBox[{"UnitVector", "[", 
            RowBox[{"dimension", ",", " ", "#"}], "]"}]}], ")"}], " ", "&"}], 
        "/@", " ", 
        RowBox[{"Range", "[", "dimension", "]"}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Any", " ", "invalid", " ", "value", " ", "is", " ", "mapped", " ", 
         "to", " ", "a", " ", "zero", " ", "vector", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"i", ".", "e", ".", " ", 
             SubscriptBox["S", "+"]}], "|", 
            RowBox[{
             RowBox[{"3", "/", "2"}], ">"}]}], ",", " ", 
           RowBox[{
            RowBox[{"or", " ", 
             SubscriptBox["S", "-"]}], "|", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "3"}], "/", "2"}], ">"}]}]}]}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"vec", "[", "n_", "]"}], " ", ":=", " ", 
        RowBox[{
         RowBox[{"UnitVector", "[", 
          RowBox[{"dimension", ",", " ", "1"}], "]"}], " ", "-", " ", 
         RowBox[{"UnitVector", "[", 
          RowBox[{"dimension", ",", " ", "1"}], "]"}]}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"For", " ", "a", " ", "basis", " ", "vector"}], " ", "|", 
         RowBox[{"m", ">", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"not", " ", "a", " ", "linear", " ", "combination"}], 
            ")"}], " ", "return", " ", "the", " ", "numeric", " ", "value", 
           " ", "m"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"m", "[", "v_", "]"}], " ", ":=", " ", 
        RowBox[{
         RowBox[{"v", ".", 
          RowBox[{"DiagonalMatrix", "[", "mValues", "]"}]}], " ", "//", " ", 
         "Tr"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"s", " ", "=", " ", 
         RowBox[{"1", " ", "for", " ", "raise"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"raiseOrLower", "[", 
         RowBox[{"v_", ",", " ", "sign_Integer"}], "]"}], " ", ":=", " ", 
        RowBox[{"Module", "[", 
         RowBox[{
          RowBox[{"{", "mv", "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"mv", " ", "=", " ", 
            RowBox[{"m", "[", "v", "]"}]}], " ", ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Sqrt", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"s", " ", "-", 
                RowBox[{"sign", " ", "mv"}]}], ")"}], 
              RowBox[{"(", 
               RowBox[{"s", " ", "+", " ", 
                RowBox[{"sign", " ", "mv"}], " ", "+", " ", "1"}], ")"}]}], 
             "]"}], " ", 
            RowBox[{"vec", "[", 
             RowBox[{"mv", "+", " ", "sign"}], " ", "]"}]}]}]}], 
         "\[IndentingNewLine]", "]"}]}], " ", ";", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"raise", "[", "v_", "]"}], " ", ":=", " ", 
        RowBox[{"raiseOrLower", "[", 
         RowBox[{"v", ",", "1"}], "]"}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"lower", "[", "v_", "]"}], " ", ":=", " ", 
        RowBox[{"raiseOrLower", "[", 
         RowBox[{"v", ",", 
          RowBox[{"-", "1"}]}], "]"}]}], " ", ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"szOp", "[", "v_", "]"}], " ", ":=", "  ", 
        RowBox[{
         RowBox[{"m", "[", "v", "]"}], " ", "v"}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Form", " ", "the", " ", "matrix", " ", "for", " ", "an", " ", 
         "operator", " ", "that", " ", "acts", " ", "on", " ", 
         RowBox[{"vec", "[", "m", "]"}], " ", 
         RowBox[{"values", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"operatorToMatrix", "[", "o_", "]"}], " ", ":=", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"o", "[", 
             RowBox[{"vec", "[", "#", "]"}], "]"}], " ", "&"}], "/@", 
           "mValues"}], ")"}], "//", " ", "Transpose"}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"Matrixes", " ", "for", " ", 
          SubscriptBox["S", "+"]}], ",", " ", 
         SubscriptBox["S", "-"], ",", " ", 
         RowBox[{"and", " ", 
          SubscriptBox["S", "z"]}], ",", " ", 
         SuperscriptBox["S", "2"]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"splus", " ", "=", " ", 
        RowBox[{"operatorToMatrix", "[", "raise", "]"}]}], " ", ";", 
       "\[IndentingNewLine]", 
       RowBox[{"sminus", " ", "=", " ", 
        RowBox[{"operatorToMatrix", "[", "lower", "]"}]}], " ", ";", 
       "\[IndentingNewLine]", 
       RowBox[{"sz", " ", ":=", " ", 
        RowBox[{"operatorToMatrix", "[", "szOp", "]"}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"sSquared", " ", ":=", " ", 
        RowBox[{"s", 
         RowBox[{"(", 
          RowBox[{"s", "+", "1"}], ")"}], "  ", 
         RowBox[{"IdentityMatrix", "[", "dimension", "]"}]}]}], " ", ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"return", ":", " ", 
          SubscriptBox["S", "+"]}], ",", " ", 
         SubscriptBox["S", "-"], ",", "  ", 
         SubscriptBox["S", "x"], ",", " ", 
         SubscriptBox["S", "y"], ",", " ", 
         SubscriptBox["S", "z"], ",", " ", 
         SuperscriptBox["S", "2"]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"splus", ",", " ", "sminus", ",", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"splus", " ", "+", "  ", "sminus"}], ")"}], "/", 
          RowBox[{"(", "2", ")"}]}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"splus", " ", "-", "  ", "sminus"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", "I"}], ")"}]}], ",", "sz", ",", " ", "sSquared"}], 
        "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sopts", " ", "=", "  ", 
     RowBox[{"{", 
      RowBox[{"14", ",", " ", "\"\<Text\>\""}], "}"}]}], "  ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"showSpin", "[", "s_", "]"}], " ", ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "sp", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"sp", " ", "=", "  ", 
        RowBox[{"spinMatrices", "[", "s", "]"}]}], " ", ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#1", ",", "\"\< = \>\"", ",", " ", 
              RowBox[{"#2", "  ", "//", " ", "MatrixForm"}]}], "  ", "}"}], 
            " ", "&"}], "@@@", 
           RowBox[{"(", " ", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", " ", 
                RowBox[{
                "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(+\)]\)\>\"", ",", 
                 "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(-\)]\)\>\"", ",", 
                 "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(x\)]\)\>\"", ",", 
                 "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(y\)]\)\>\"", ",", 
                 "\"\<\!\(\*SubscriptBox[\(\[Sigma]\), \(z\)]\)\>\"", ",", 
                 "\"\<\!\(\*SuperscriptBox[\(\[Sigma]\), \(2\)]\)\>\""}], 
                "  ", "}"}], ",", " ", "sp"}], "}"}], " ", "//", " ", 
             "Transpose"}], ")"}]}], "\[IndentingNewLine]", "//", " ", 
          "Grid"}], "\[IndentingNewLine]", ",", " ", "sopts"}], 
        "\[IndentingNewLine]", "]"}]}]}], " ", "\[IndentingNewLine]", "]"}]}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.6592095981156254`*^9, 3.6592097056307817`*^9}, {
   3.6592097546300926`*^9, 3.65920975615742*^9}, {3.6592103241216526`*^9, 
   3.6592103444022417`*^9}, {3.659210396398178*^9, 3.6592104786836343`*^9}, {
   3.659210553768937*^9, 3.6592109199595346`*^9}, {3.6592109584655914`*^9, 
   3.6592111972321463`*^9}, {3.6592112294003115`*^9, 3.659211656024729*^9}, {
   3.659211687562631*^9, 3.659211708920557*^9}, {3.6592117546289773`*^9, 
   3.6592117960411177`*^9}, {3.6592118346496325`*^9, 3.65921184713811*^9}, {
   3.6592118855204167`*^9, 3.659211895456361*^9}, {3.659212230684427*^9, 
   3.659212234987307*^9}, {3.6592168065248437`*^9, 3.659216838348813*^9}, {
   3.659216877202484*^9, 3.6592169146094065`*^9}, {3.659216999845182*^9, 
   3.659217014780819*^9}, 3.8247656524309745`*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"a39ac307-3e21-4773-a4ce-68c609ccc33c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"showSpin", "[", 
  RowBox[{"1", "/", "2"}], "]"}]], "Input",
 CellChangeTimes->{
  3.8247656645971594`*^9, {3.824765696753617*^9, 3.8247656977605414`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"a5e9b4dd-b900-400f-9da5-497eb5d3b5be"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(+\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "1"},
          {"0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(-\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0"},
          {"1", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(x\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox["1", "2"]},
          {
           FractionBox["1", "2"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(y\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox["\[ImaginaryI]", "2"]}]},
          {
           FractionBox["\[ImaginaryI]", "2"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(z\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           FractionBox["1", "2"], "0"},
          {"0", 
           RowBox[{"-", 
            FractionBox["1", "2"]}]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SuperscriptBox[\\(\[Sigma]\\), \\(2\\)]\\)\"\>", "\<\" = \
\"\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           FractionBox["3", "4"], "0"},
          {"0", 
           FractionBox["3", "4"]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], "Text",
  StripOnInput->False,
  FontSize->14]], "Output",
 CellChangeTimes->{3.824765700055717*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"3e7dde28-dafe-42d0-97c5-6531dd2f2446"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"showSpin", "[", "1", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"sp", ",", "sm", ",", "sx", ",", "sy", ",", "sz", ",", "sq"}], 
    "}"}], " ", "=", "  ", 
   RowBox[{"spinMatrices", "[", "1", "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"A", " ", 
    RowBox[{"sz", ".", "sz"}]}], " ", "+", " ", 
   RowBox[{"B", " ", 
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{"sx", ".", "sx"}], " ", "-", 
      RowBox[{"sy", ".", "sy"}]}], ")"}]}]}], "//", " ", 
  "MatrixForm"}]}], "Input",
 CellChangeTimes->{
  3.824765676183393*^9, 3.8247657211705494`*^9, {3.8247657913996344`*^9, 
   3.824765869374818*^9}, {3.82476591841821*^9, 3.824765956835896*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"8676bbc5-0701-4d2b-8b67-343b7ddb4b74"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(+\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           SqrtBox["2"], "0"},
          {"0", "0", 
           SqrtBox["2"]},
          {"0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(-\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0"},
          {
           SqrtBox["2"], "0", "0"},
          {"0", 
           SqrtBox["2"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(x\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox["1", 
            SqrtBox["2"]], "0"},
          {
           FractionBox["1", 
            SqrtBox["2"]], "0", 
           FractionBox["1", 
            SqrtBox["2"]]},
          {"0", 
           FractionBox["1", 
            SqrtBox["2"]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(y\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox["\[ImaginaryI]", 
             SqrtBox["2"]]}], "0"},
          {
           FractionBox["\[ImaginaryI]", 
            SqrtBox["2"]], "0", 
           RowBox[{"-", 
            FractionBox["\[ImaginaryI]", 
             SqrtBox["2"]]}]},
          {"0", 
           FractionBox["\[ImaginaryI]", 
            SqrtBox["2"]], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(z\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"1", "0", "0"},
          {"0", "0", "0"},
          {"0", "0", 
           RowBox[{"-", "1"}]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SuperscriptBox[\\(\[Sigma]\\), \\(2\\)]\\)\"\>", "\<\" = \
\"\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"2", "0", "0"},
          {"0", "2", "0"},
          {"0", "0", "2"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], "Text",
  StripOnInput->False,
  FontSize->14]], "Output",
 CellChangeTimes->{
  3.8247657222653985`*^9, {3.8247657970049744`*^9, 3.824765813216773*^9}, 
   3.8247658707682147`*^9, {3.824765946917097*^9, 3.8247659576441517`*^9}},
 CellLabel->"Out[22]=",ExpressionUUID->"7c9073b0-1258-4253-85e9-ab97ba839ed3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       SqrtBox["2"], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       SqrtBox["2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SqrtBox["2"], ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       SqrtBox["2"], ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox["1", 
        SqrtBox["2"]], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["1", 
        SqrtBox["2"]], ",", "0", ",", 
       FractionBox["1", 
        SqrtBox["2"]]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox["1", 
        SqrtBox["2"]], ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", 
        FractionBox["\[ImaginaryI]", 
         SqrtBox["2"]]}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       FractionBox["\[ImaginaryI]", 
        SqrtBox["2"]], ",", "0", ",", 
       RowBox[{"-", 
        FractionBox["\[ImaginaryI]", 
         SqrtBox["2"]]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox["\[ImaginaryI]", 
        SqrtBox["2"]], ",", "0"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8247657222653985`*^9, {3.8247657970049744`*^9, 3.824765813216773*^9}, 
   3.8247658707682147`*^9, {3.824765946917097*^9, 3.824765957651169*^9}},
 CellLabel->"Out[23]=",ExpressionUUID->"a4ece591-682a-44e7-9f06-9d9885391164"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"A", "0", "B"},
     {"0", "0", "0"},
     {"B", "0", "A"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8247657222653985`*^9, {3.8247657970049744`*^9, 3.824765813216773*^9}, 
   3.8247658707682147`*^9, {3.824765946917097*^9, 3.824765957653169*^9}},
 CellLabel->
  "Out[24]//MatrixForm=",ExpressionUUID->"51d966d5-bc01-4d54-8235-\
da6051ac19b8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"showSpin", "[", 
  RowBox[{"3", "/", "2"}], "]"}]], "Input",
 CellChangeTimes->{3.8247656833904033`*^9, 3.824765739908306*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"575821a5-8b31-47c0-aa67-0e1a5869114f"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(+\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           SqrtBox["3"], "0", "0"},
          {"0", "0", "2", "0"},
          {"0", "0", "0", 
           SqrtBox["3"]},
          {"0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(-\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {
           SqrtBox["3"], "0", "0", "0"},
          {"0", "2", "0", "0"},
          {"0", "0", 
           SqrtBox["3"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(x\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            SqrtBox["3"], "2"], "0", "0"},
          {
           FractionBox[
            SqrtBox["3"], "2"], "0", "1", "0"},
          {"0", "1", "0", 
           FractionBox[
            SqrtBox["3"], "2"]},
          {"0", "0", 
           FractionBox[
            SqrtBox["3"], "2"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(y\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["3"]}], "2"]}], "0", "0"},
          {
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"]}], "2"], "0", 
           RowBox[{"-", "\[ImaginaryI]"}], "0"},
          {"0", "\[ImaginaryI]", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["3"]}], "2"]}]},
          {"0", "0", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["3"]}], "2"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(z\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           FractionBox["3", "2"], "0", "0", "0"},
          {"0", 
           FractionBox["1", "2"], "0", "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox["1", "2"]}], "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox["3", "2"]}]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SuperscriptBox[\\(\[Sigma]\\), \\(2\\)]\\)\"\>", "\<\" = \
\"\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           FractionBox["15", "4"], "0", "0", "0"},
          {"0", 
           FractionBox["15", "4"], "0", "0"},
          {"0", "0", 
           FractionBox["15", "4"], "0"},
          {"0", "0", "0", 
           FractionBox["15", "4"]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], "Text",
  StripOnInput->False,
  FontSize->14]], "Output",
 CellChangeTimes->{3.824765741073304*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"ab06b644-49d6-4471-9c45-9fd5710ce327"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"showSpin", "[", "2", "]"}]], "Input",
 CellChangeTimes->{3.8247656898633356`*^9, 3.8247657453331814`*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"c0d22222-baca-4a89-b1c4-f5aca71914fb"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(+\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "2", "0", "0", "0"},
          {"0", "0", 
           SqrtBox["6"], "0", "0"},
          {"0", "0", "0", 
           SqrtBox["6"], "0"},
          {"0", "0", "0", "0", "2"},
          {"0", "0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(-\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0", "0"},
          {"2", "0", "0", "0", "0"},
          {"0", 
           SqrtBox["6"], "0", "0", "0"},
          {"0", "0", 
           SqrtBox["6"], "0", "0"},
          {"0", "0", "0", "2", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(x\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "1", "0", "0", "0"},
          {"1", "0", 
           SqrtBox[
            FractionBox["3", "2"]], "0", "0"},
          {"0", 
           SqrtBox[
            FractionBox["3", "2"]], "0", 
           SqrtBox[
            FractionBox["3", "2"]], "0"},
          {"0", "0", 
           SqrtBox[
            FractionBox["3", "2"]], "0", "1"},
          {"0", "0", "0", "1", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(y\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", "\[ImaginaryI]"}], "0", "0", "0"},
          {"\[ImaginaryI]", "0", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", 
            SqrtBox[
             FractionBox["3", "2"]]}], "0", "0"},
          {"0", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox[
             FractionBox["3", "2"]]}], "0", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", 
            SqrtBox[
             FractionBox["3", "2"]]}], "0"},
          {"0", "0", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox[
             FractionBox["3", "2"]]}], "0", 
           RowBox[{"-", "\[ImaginaryI]"}]},
          {"0", "0", "0", "\[ImaginaryI]", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(z\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"2", "0", "0", "0", "0"},
          {"0", "1", "0", "0", "0"},
          {"0", "0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", "1"}], "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", "2"}]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SuperscriptBox[\\(\[Sigma]\\), \\(2\\)]\\)\"\>", "\<\" = \
\"\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"6", "0", "0", "0", "0"},
          {"0", "6", "0", "0", "0"},
          {"0", "0", "6", "0", "0"},
          {"0", "0", "0", "6", "0"},
          {"0", "0", "0", "0", "6"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], "Text",
  StripOnInput->False,
  FontSize->14]], "Output",
 CellChangeTimes->{3.824765746419915*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"01a261e0-b0fb-4848-b243-d97ee593e31c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"showSpin", "[", 
  RowBox[{"5", "/", "2"}], "]"}]], "Input",
 CellLabel->"In[9]:=",ExpressionUUID->"49607fe6-2a26-4007-bb11-dcf7a45fb6d5"],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(+\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           SqrtBox["5"], "0", "0", "0", "0"},
          {"0", "0", 
           RowBox[{"2", " ", 
            SqrtBox["2"]}], "0", "0", "0"},
          {"0", "0", "0", "3", "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"2", " ", 
            SqrtBox["2"]}], "0"},
          {"0", "0", "0", "0", "0", 
           SqrtBox["5"]},
          {"0", "0", "0", "0", "0", "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(-\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0", "0", "0"},
          {
           SqrtBox["5"], "0", "0", "0", "0", "0"},
          {"0", 
           RowBox[{"2", " ", 
            SqrtBox["2"]}], "0", "0", "0", "0"},
          {"0", "0", "3", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"2", " ", 
            SqrtBox["2"]}], "0", "0"},
          {"0", "0", "0", "0", 
           SqrtBox["5"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(x\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            SqrtBox["5"], "2"], "0", "0", "0", "0"},
          {
           FractionBox[
            SqrtBox["5"], "2"], "0", 
           SqrtBox["2"], "0", "0", "0"},
          {"0", 
           SqrtBox["2"], "0", 
           FractionBox["3", "2"], "0", "0"},
          {"0", "0", 
           FractionBox["3", "2"], "0", 
           SqrtBox["2"], "0"},
          {"0", "0", "0", 
           SqrtBox["2"], "0", 
           FractionBox[
            SqrtBox["5"], "2"]},
          {"0", "0", "0", "0", 
           FractionBox[
            SqrtBox["5"], "2"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(y\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["5"]}], "2"]}], "0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["5"]}], "2"], "0", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", 
            SqrtBox["2"]}], "0", "0", "0"},
          {"0", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox["2"]}], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"3", " ", "\[ImaginaryI]"}], "2"]}], "0", "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{"3", " ", "\[ImaginaryI]"}], "2"], "0", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", 
            SqrtBox["2"]}], "0"},
          {"0", "0", "0", 
           RowBox[{"\[ImaginaryI]", " ", 
            SqrtBox["2"]}], "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", 
              SqrtBox["5"]}], "2"]}]},
          {"0", "0", "0", "0", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", 
             SqrtBox["5"]}], "2"], "0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SubscriptBox[\\(\[Sigma]\\), \\(z\\)]\\)\"\>", "\<\" = \"\
\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           FractionBox["5", "2"], "0", "0", "0", "0", "0"},
          {"0", 
           FractionBox["3", "2"], "0", "0", "0", "0"},
          {"0", "0", 
           FractionBox["1", "2"], "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox["1", "2"]}], "0", "0"},
          {"0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["3", "2"]}], "0"},
          {"0", "0", "0", "0", "0", 
           RowBox[{"-", 
            FractionBox["5", "2"]}]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]},
     {"\<\"\\!\\(\\*SuperscriptBox[\\(\[Sigma]\\), \\(2\\)]\\)\"\>", "\<\" = \
\"\>", 
      TagBox[
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {
           FractionBox["35", "4"], "0", "0", "0", "0", "0"},
          {"0", 
           FractionBox["35", "4"], "0", "0", "0", "0"},
          {"0", "0", 
           FractionBox["35", "4"], "0", "0", "0"},
          {"0", "0", "0", 
           FractionBox["35", "4"], "0", "0"},
          {"0", "0", "0", "0", 
           FractionBox["35", "4"], "0"},
          {"0", "0", "0", "0", "0", 
           FractionBox["35", "4"]}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.7]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}], "\[NoBreak]", ")"}],
       Function[BoxForm`e$, 
        MatrixForm[BoxForm`e$]]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"], "Text",
  StripOnInput->False,
  FontSize->14]], "Output",
 CellChangeTimes->{3.82476575091062*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"2044a169-5840-4527-9ea7-06856acc78ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Sakurai", " ", "problem", " ", "4.12"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ClearAll", "[", 
    RowBox[{
    "a", ",", "b", ",", " ", "hbar", ",", " ", "display", ",", " ", "h", ",", 
     " ", "splus", ",", " ", "sminus", ",", " ", "sx", ",", " ", "sy", ",", 
     " ", "sz", ",", "sq", ",", " ", "ei", ",", " ", "kets"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"$Assumptions", "=", 
     RowBox[{"(", 
      RowBox[{"And", "@@", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", ">", "0"}], "&"}], ")"}], "/@", 
        RowBox[{"{", 
         RowBox[{"hbar", ",", " ", "a", ",", "b"}], "}"}]}]}], ")"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "splus", ",", " ", "sminus", ",", " ", "sx", ",", " ", "sy", ",", " ", 
       "sz", ",", "sq"}], "}"}], " ", "=", "  ", 
     RowBox[{"spinMatrices", "[", "1", "]"}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", " ", "=", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"sz", ".", "sz"}]}], " ", "+", " ", 
        RowBox[{"b", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"sx", ".", "sx"}], " ", "-", " ", 
           RowBox[{"sy", ".", "sy"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"hbar", "^", "2"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"display", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"hbar", " ", "\[Rule]", " ", "\[HBar]"}], ",", " ", 
       RowBox[{"a", " ", "\[Rule]", " ", "\"\<A\>\""}], ",", " ", 
       RowBox[{"b", "\[Rule]", "\"\<B\>\""}]}], "}"}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<H = \>\"", ",", " ", 
      RowBox[{"\[HBar]", "^", "2"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"h", " ", "/", 
         RowBox[{"hbar", "^", "2"}]}], "/.", " ", "display"}], " ", "//", " ",
        "MatrixForm"}]}], "}"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ei", ",", " ", "kets"}], "}"}], " ", "=", 
     RowBox[{"Eigensystem", "[", "h", "]"}]}], " ", ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ei", " ", "/", 
     RowBox[{"hbar", "^", "2"}]}], "/.", " ", "display"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#", 
          RowBox[{"(*", 
           RowBox[{"/", 
            RowBox[{"Norm", "[", "#", "]"}]}], "*)"}], " ", "/.", " ", 
          "display"}], " ", "//", " ", "MatrixForm"}], ")"}], "&"}], "/@", 
      " ", "kets"}], ")"}], " ", "//", " ", "Column"}], " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.6592097832273474`*^9, 3.6592098067636547`*^9}, {
   3.6592100268582*^9, 3.6592101070317307`*^9}, {3.6592102644993277`*^9, 
   3.659210309691394*^9}, 3.6592109333447685`*^9, {3.65921693472647*^9, 
   3.6592169912974806`*^9}, {3.659217024167021*^9, 3.659217425126619*^9}, {
   3.659218927192864*^9, 3.6592189386692023`*^9}, {3.6592189987360334`*^9, 
   3.659219005822132*^9}, {3.6592190540074263`*^9, 3.6592190608110256`*^9}, {
   3.6592194059911532`*^9, 3.659219426977666*^9}, {3.659220482288479*^9, 
   3.6592204836367083`*^9}, {3.8247660026629944`*^9, 
   3.8247660072798867`*^9}, {3.824766037540083*^9, 3.824766104538647*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"f541fea8-b12e-4b58-b270-2381bf622703"],

Cell[BoxData[
 TemplateBox[{"\"H = \"", 
   SuperscriptBox["\[HBar]", "2"], 
   TagBox[
    RowBox[{"(", "\[NoBreak]", 
      GridBox[{{"\"A\"", "0", "\"B\""}, {"0", "0", "0"}, {
        "\"B\"", "0", "\"A\""}}, RowSpacings -> 1, ColumnSpacings -> 1, 
       RowAlignments -> Baseline, ColumnAlignments -> Center], "\[NoBreak]", 
      ")"}], 
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]},
  "RowDefault"]], "Output",
 CellChangeTimes->{{3.659217136474822*^9, 3.659217161196665*^9}, {
   3.659217265869963*^9, 3.6592173314844713`*^9}, 3.6592173620267725`*^9, {
   3.659217411108733*^9, 3.659217425626111*^9}, {3.659218930363722*^9, 
   3.659218941449257*^9}, 3.6592190067019267`*^9, {3.659219054738081*^9, 
   3.6592190624925385`*^9}, {3.659219418963843*^9, 3.6592194278924875`*^9}, 
   3.6592204759160357`*^9, 3.8247660083802767`*^9, {3.824766048507799*^9, 
   3.824766059714919*^9}, 3.824766107619672*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"4368bd1d-7786-4813-af2c-ef0a400fa9ec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0", ",", 
   RowBox[{"\<\"A\"\>", "-", "\<\"B\"\>"}], ",", 
   RowBox[{"\<\"A\"\>", "+", "\<\"B\"\>"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.659217136474822*^9, 3.659217161196665*^9}, {
   3.659217265869963*^9, 3.6592173314844713`*^9}, 3.6592173620267725`*^9, {
   3.659217411108733*^9, 3.659217425626111*^9}, {3.659218930363722*^9, 
   3.659218941449257*^9}, 3.6592190067019267`*^9, {3.659219054738081*^9, 
   3.6592190624925385`*^9}, {3.659219418963843*^9, 3.6592194278924875`*^9}, 
   3.6592204759160357`*^9, 3.8247660083802767`*^9, {3.824766048507799*^9, 
   3.824766059714919*^9}, 3.8247661076236663`*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"7ebacb56-bdf9-4b4c-8588-7b095cbf81d9"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"0"},
          {"1"},
          {"0"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    {
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {
           RowBox[{"-", "1"}]},
          {"0"},
          {"1"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]},
    {
     TagBox[
      RowBox[{"(", "\[NoBreak]", 
       TagBox[GridBox[{
          {"1"},
          {"0"},
          {"1"}
         },
         GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.5599999999999999]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}}],
        Column], "\[NoBreak]", ")"}],
      Function[BoxForm`e$, 
       MatrixForm[BoxForm`e$]]]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{{3.659217136474822*^9, 3.659217161196665*^9}, {
   3.659217265869963*^9, 3.6592173314844713`*^9}, 3.6592173620267725`*^9, {
   3.659217411108733*^9, 3.659217425626111*^9}, {3.659218930363722*^9, 
   3.659218941449257*^9}, 3.6592190067019267`*^9, {3.659219054738081*^9, 
   3.6592190624925385`*^9}, {3.659219418963843*^9, 3.6592194278924875`*^9}, 
   3.6592204759160357`*^9, 3.8247660083802767`*^9, {3.824766048507799*^9, 
   3.824766059714919*^9}, 3.8247661076311984`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"0b380e5f-14a2-4b97-8be6-a1005adca81b"]
}, Open  ]]
},
WindowSize->{999., 574.1999999999999},
WindowMargins->{{62.4, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"f82d79c4-a4b6-4591-8e3b-f2931b16e6c0"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1462, 28, 59, "Text",ExpressionUUID->"32ff08d8-3759-4288-97ba-56f43ddfe564"],
Cell[2022, 50, 11966, 275, 1182, "Input",ExpressionUUID->"a39ac307-3e21-4773-a4ce-68c609ccc33c"],
Cell[CellGroupData[{
Cell[14013, 329, 257, 5, 28, "Input",ExpressionUUID->"a5e9b4dd-b900-400f-9da5-497eb5d3b5be"],
Cell[14273, 336, 4376, 122, 311, "Output",ExpressionUUID->"3e7dde28-dafe-42d0-97c5-6531dd2f2446"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18686, 463, 843, 22, 88, "Input",ExpressionUUID->"8676bbc5-0701-4d2b-8b67-343b7ddb4b74"],
Cell[19532, 487, 5041, 143, 439, "Output",ExpressionUUID->"7c9073b0-1258-4253-85e9-ab97ba839ed3"],
Cell[24576, 632, 2390, 77, 96, "Output",ExpressionUUID->"a4ece591-682a-44e7-9f06-9d9885391164"],
Cell[26969, 711, 779, 22, 127, "Output",ExpressionUUID->"51d966d5-bc01-4d54-8235-da6051ac19b8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27785, 738, 228, 4, 28, "Input",ExpressionUUID->"575821a5-8b31-47c0-aa67-0e1a5869114f"],
Cell[28016, 744, 5655, 161, 641, "Output",ExpressionUUID->"ab06b644-49d6-4471-9c45-9fd5710ce327"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33708, 910, 207, 3, 28, "Input",ExpressionUUID->"c0d22222-baca-4a89-b1c4-f5aca71914fb"],
Cell[33918, 915, 5798, 160, 715, "Output",ExpressionUUID->"01a261e0-b0fb-4848-b243-d97ee593e31c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39753, 1080, 162, 3, 28, "Input",ExpressionUUID->"49607fe6-2a26-4007-bb11-dcf7a45fb6d5"],
Cell[39918, 1085, 7356, 206, 955, "Output",ExpressionUUID->"2044a169-5840-4527-9ea7-06856acc78ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47311, 1296, 3675, 93, 283, "Input",ExpressionUUID->"f541fea8-b12e-4b58-b270-2381bf622703"],
Cell[50989, 1391, 998, 19, 65, "Output",ExpressionUUID->"4368bd1d-7786-4813-af2c-ef0a400fa9ec"],
Cell[51990, 1412, 734, 12, 32, "Output",ExpressionUUID->"7ebacb56-bdf9-4b4c-8588-7b095cbf81d9"],
Cell[52727, 1426, 2581, 72, 170, "Output",ExpressionUUID->"0b380e5f-14a2-4b97-8be6-a1005adca81b"]
}, Open  ]]
}
]
*)