(* 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[     17496,        510]
NotebookOptionsPosition[     16762,        484]
NotebookOutlinePosition[     17107,        499]
CellTagsIndexPosition[     17064,        496]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Spin one operators.  Verify that all my corrections to Desai eq. (27.117) are \
correct.\
\>", "Text",
 CellChangeTimes->{{3.656673388130445*^9, 3.6566734135097733`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearAll", "[", " ", 
   RowBox[{
   "hb", ",", " ", "Jx", ",", " ", "Jy", ",", " ", "Jz", ",", " ", "Jxx", ",",
     " ", "Jyy", ",", " ", "Jzz"}], "]"}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hb", " ", "=", " ", "\[HBar]"}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jx", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], " ", 
    RowBox[{"hb", "/", 
     RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jy", " ", "=", " ", 
   RowBox[{"I", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", 
        RowBox[{"-", "1"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], " ", 
    RowBox[{"hb", "/", 
     RowBox[{"Sqrt", "[", "2", "]"}]}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jz", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"-", "1"}]}], "}"}]}], "}"}], " ", "hb"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Jx", " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]", 
 RowBox[{"Jy", " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jz", " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "squares", " ", "are", " ", "not", " ", "unit", " ", "matrices", " ", 
    "like", " ", "the", " ", "Pauli", " ", "matrices"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Jx", " ", ".", " ", "Jx"}], " ", "/", " ", 
   RowBox[{"hb", "^", "2"}]}], "//", " ", 
  "TraditionalForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Jy", ".", " ", "Jy"}], " ", "/", 
   RowBox[{"hb", "^", "2"}]}], " ", "//", " ", 
  "TraditionalForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Jz", " ", ".", " ", "Jz"}], " ", "/", 
    RowBox[{"hb", "^", "2"}]}], " ", "//", " ", "TraditionalForm"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"expect", " ", 
     RowBox[{"eigenvalues", " ", ":", 
      RowBox[{"\[PlusMinus]", "\[HBar]"}]}]}], ",", " ", "0"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Eigensystem", "[", "#", "]"}], " ", "&"}], "/@", " ", 
   RowBox[{"{", 
    RowBox[{"Jx", ",", " ", "Jy", ",", " ", "Jz"}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jzz", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Jx", " ", ".", " ", "Jy"}], " ", "-", " ", 
       RowBox[{"Jy", " ", ".", " ", "Jx"}]}], ")"}], "/", " ", "hb"}], " ", 
    "/", "I"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jxx", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Jy", " ", ".", " ", "Jz"}], " ", "-", " ", 
       RowBox[{"Jz", " ", ".", " ", "Jy"}]}], ")"}], " ", "/", " ", "hb"}], 
    " ", "/", "I"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Jyy", " ", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Jz", " ", ".", " ", "Jx"}], " ", "-", " ", 
        RowBox[{"Jx", " ", ".", " ", "Jz"}]}], ")"}], " ", "/", " ", "hb"}], 
     " ", "/", " ", "I"}]}], " ", ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"expect", " ", 
    RowBox[{"zeros", ":"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jxx", " ", "-", " ", "Jx"}], " ", "//", " ", 
  "TraditionalForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jyy", " ", "-", " ", "Jy"}], " ", "//", " ", 
  "TraditionalForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jzz", " ", "-", " ", "Jz"}], " ", "//", " ", 
  "TraditionalForm"}]}], "Input",
 CellChangeTimes->{{3.656672776033678*^9, 3.6566728801740527`*^9}, {
  3.656672921515583*^9, 3.656673081897978*^9}, {3.6566732234883423`*^9, 
  3.656673235636239*^9}, {3.656673295126545*^9, 3.656673354428276*^9}, {
  3.656673429001421*^9, 3.6566734515828648`*^9}, {3.656673485683095*^9, 
  3.656673523151416*^9}, {3.656710491153329*^9, 3.6567105157803907`*^9}, {
  3.656710595619978*^9, 3.6567106653539248`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      FractionBox["\[HBar]", 
       SqrtBox["2"]], "0"},
     {
      FractionBox["\[HBar]", 
       SqrtBox["2"]], "0", 
      FractionBox["\[HBar]", 
       SqrtBox["2"]]},
     {"0", 
      FractionBox["\[HBar]", 
       SqrtBox["2"]], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.6567106677750735`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[HBar]"}], 
        SqrtBox["2"]]}], "0"},
     {
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "\[HBar]"}], 
       SqrtBox["2"]], "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[ImaginaryI]", " ", "\[HBar]"}], 
        SqrtBox["2"]]}]},
     {"0", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "\[HBar]"}], 
       SqrtBox["2"]], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.6567106678020954`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\[HBar]", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", "\[HBar]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.6567106678261175`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", "2"], "0", 
      FractionBox["1", "2"]},
     {"0", "1", "0"},
     {
      FractionBox["1", "2"], "0", 
      FractionBox["1", "2"]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.656710667848136*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", "2"], "0", 
      RowBox[{"-", 
       FractionBox["1", "2"]}]},
     {"0", "1", "0"},
     {
      RowBox[{"-", 
       FractionBox["1", "2"]}], "0", 
      FractionBox["1", "2"]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.6567106678672*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.656710667887221*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[HBar]"}], ",", "\[HBar]", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", 
          SqrtBox["2"]}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         SqrtBox["2"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[HBar]"}], ",", "\[HBar]", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"\[ImaginaryI]", " ", 
          SqrtBox["2"]}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          SqrtBox["2"]}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[HBar]"}], ",", "\[HBar]", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.656710667907192*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.6567106679302254`*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.656710667951279*^9}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.656672881408151*^9, {3.65667292541208*^9, 3.6566729375409565`*^9}, 
   3.656673025416437*^9, 3.656673083321254*^9, {3.6566732263759327`*^9, 
   3.6566732361326847`*^9}, 3.656673302531376*^9, 3.656673355235999*^9, 
   3.6566735283731256`*^9, 3.656710516898395*^9, 3.6567106191826553`*^9, 
   3.656710667974253*^9}]
}, Open  ]]
},
WindowSize->{707, 636},
WindowMargins->{{208, Automatic}, {Automatic, 54}},
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, 180, 4, 66, "Text"],
Cell[CellGroupData[{
Cell[762, 28, 4808, 133, 641, "Input"],
Cell[5573, 163, 1118, 31, 138, "Output"],
Cell[6694, 196, 1328, 37, 138, "Output"],
Cell[8025, 235, 960, 24, 102, "Output"],
Cell[8988, 261, 1024, 27, 126, "Output"],
Cell[10015, 290, 1068, 29, 126, "Output"],
Cell[11086, 321, 924, 23, 102, "Output"],
Cell[12013, 346, 1950, 60, 102, "Output"],
Cell[13966, 408, 926, 23, 102, "Output"],
Cell[14895, 433, 924, 23, 102, "Output"],
Cell[15822, 458, 924, 23, 102, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)