(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 3.0,
MathReader 3.0, or any compatible application. The data for the notebook 
starts with the line of stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     13449,        612]*)
(*NotebookOutlinePosition[     14347,        643]*)
(*  CellTagsIndexPosition[     14303,        639]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData["\n"], "Text",
  Evaluatable->False],

Cell[TextData[" MATRIX OPERATIONS\n"], "Section",
  Evaluatable->False],

Cell[CellGroupData[{

Cell["m = { {1,2,3,4}, {4,3,2,1}, {1,2,3,4}, {4,3,2,1}}", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 2, 3, 4}, {4, 3, 2, 1}, {1, 2, 3, 4}, {4, 3, 2, 1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["v = {1,2,3,4}", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({1, 2, 3, 4}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["m . v", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({30, 20, 30, 20}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Transpose[m]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 4, 1, 4}, {2, 3, 2, 3}, {3, 2, 3, 2}, {4, 1, 4, 1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[m]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"1", "2", "3", "4"},
            {"4", "3", "2", "1"},
            {"1", "2", "3", "4"},
            {"4", "3", "2", "1"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Inverse[m]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(Inverse::"sing" \( : \ \) 
      "Matrix \!\({\({1, 2, 3, 4}\), \({4, 3, 2, 1}\), \({1, 2, 3, 4}\), \
\({4, 3, 2, 1}\)}\) is singular."\)], "Message"],

Cell[BoxData[
    \(Inverse[{{1, 2, 3, 4}, {4, 3, 2, 1}, {1, 2, 3, 4}, {4, 3, 2, 1}}]\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["IdentityMatrix[4]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[ m . m - % ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"27", "26", "24", "22"},
            {"22", "23", "26", "28"},
            {"28", "26", "23", "22"},
            {"22", "24", "26", "27"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[m]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({\(-2\), 0, 0, 10}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table[ Random[], {i,4}, {j,4} ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0.0925947798566829582`, 0.842356327648097824`, 0.655170810512789802`, 
        0.225267158451309912`}, {0.311039832252632653`, 
        0.0435356763848262406`, 0.770772087945677331`, 
        0.0294845418262216831`}, {0.312260208684506679`, 
        0.157273316335700297`, 0.159486232043475144`, 
        0.992850301965042092`}, {0.788454796448907657`, 
        0.879759375442704616`, 0.310147498730019677`, 0.832571478413674981`}}
      \)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[%]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({1.8834908721626526`, 
      \(-0.149458330710165299`\) + 0.660618165541546531`\ I, 
      \(-0.149458330710165299`\) - 0.660618165541546531`\ I, 
      \(-0.456386044043662231`\)}\)], "Output"]
}, Open  ]],

Cell[TextData["\n"], "Text",
  Evaluatable->False],

Cell[TextData["Dirac Matrices"], "Section",
  Evaluatable->False],

Cell[CellGroupData[{

Cell["g1 = { {0,0,0,-I}, {0,0,-I,0}, {0,I,0,0}, {I,0,0,0} } ", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, 0, 0, \(-I\)}, {0, 0, \(-I\), 0}, {0, I, 0, 0}, {I, 0, 0, 0}}\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[g1]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"0", "0", "0", \(-I\)},
            {"0", "0", \(-I\), "0"},
            {"0", "I", "0", "0"},
            {"I", "0", "0", "0"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell["g2 = { {0,0,0,-1}, {0,0,1,0}, {0,1,0,0}, {-1,0,0,0} } ;", "Input",
  PageWidth->Infinity],

Cell[CellGroupData[{

Cell["MatrixForm[g2]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"0", "0", "0", \(-1\)},
            {"0", "0", "1", "0"},
            {"0", "1", "0", "0"},
            {\(-1\), "0", "0", "0"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[ g1 . g1 ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"1", "0", "0", "0"},
            {"0", "1", "0", "0"},
            {"0", "0", "1", "0"},
            {"0", "0", "0", "1"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[ g2 . g2 ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"1", "0", "0", "0"},
            {"0", "1", "0", "0"},
            {"0", "0", "1", "0"},
            {"0", "0", "0", "1"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[ g1 . g2 + g2 . g1 ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"},
            {"0", "0", "0", "0"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[ (g1 . g2 - g2 . g1)/(2 I) ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"1", "0", "0", "0"},
            {"0", \(-1\), "0", "0"},
            {"0", "0", "1", "0"},
            {"0", "0", "0", \(-1\)}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[ g1 ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({\(-1\), \(-1\), 1, 1}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[ g2 ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({\(-1\), \(-1\), 1, 1}\)], "Output"]
}, Open  ]],

Cell["op = px g1 + py g2 ;", "Input",
  PageWidth->Infinity],

Cell[CellGroupData[{

Cell["MatrixForm[ op ] ", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"0", "0", "0", \(\(-I\)\ px - py\)},
            {"0", "0", \(\(-I\)\ px + py\), "0"},
            {"0", \(I\ px + py\), "0", "0"},
            {\(I\ px - py\), "0", "0", "0"}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Det[ op - e IdentityMatrix[4] ] ", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(e\^4 - 2\ e\^2\ px\^2 + px\^4 - 2\ e\^2\ py\^2 + 2\ px\^2\ py\^2 + 
      py\^4\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Factor[%]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \(\((e\^2 - px\^2 - py\^2)\)\^2\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Solve[ % == 0, e ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{e \[Rule] \(-\@\(px\^2 + py\^2\)\)}, {
        e \[Rule] \(-\@\(px\^2 + py\^2\)\)}, {
        e \[Rule] \@\(px\^2 + py\^2\)}, {e \[Rule] \@\(px\^2 + py\^2\)}}\)], 
  "Output"]
}, Open  ]],

Cell[TextData["\n"], "Text",
  Evaluatable->False],

Cell[TextData["Pauli Spin Matrices"], "Section",
  Evaluatable->False],

Cell[CellGroupData[{

Cell["s1 = { {0,1}, {1,0} }", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, 1}, {1, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s2 = { {0,-I}, {I,0} }", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, \(-I\)}, {I, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s3 = { {1,0}, {0,-1} }", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 0}, {0, \(-1\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s1 . s2 / I", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 0}, {0, \(-1\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s2 . s3 / I", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, 1}, {1, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s3 . s1 / I", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, \(-I\)}, {I, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["s1^2 + s2^2 + s3^2", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 0}, {0, 1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["( s1 . s2 - s2 . s1 ) / (2 I) ", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 0}, {0, \(-1\)}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["( s2 . s3 - s3 . s2 ) / (2 I)", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, 1}, {1, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["( s3 . s1 - s1 . s3 )/ (2 I)", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, \(-I\)}, {I, 0}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["I s3 . s2 . s1 ", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{1, 0}, {0, 1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[s1]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({\(-1\), 1}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvectors[s1]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{\(-1\), 1}, {1, 1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[s2]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({\(-1\), 1}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvectors[s2]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{I, 1}, {\(-I\), 1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[s3]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({\(-1\), 1}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvectors[s3]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{0, 1}, {1, 0}}\)], "Output"]
}, Open  ]],

Cell["dop = px s1 + py s2 + pz s3 ;", "Input",
  PageWidth->Infinity],

Cell[CellGroupData[{

Cell["MatrixForm[dop]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {"pz", \(px - I\ py\)},
            {\(px + I\ py\), \(-pz\)}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalues[dop]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({\(-\@\(px\^2 + py\^2 + pz\^2\)\), \@\(px\^2 + py\^2 + pz\^2\)}\)], 
  "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvectors[dop]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    \({{\(-\(\(\(-pz\) + \@\(px\^2 + py\^2 + pz\^2\)\)\/\(px + I\ py\)\)\), 
        1}, {\(-\(\(\(-pz\) - \@\(px\^2 + py\^2 + pz\^2\)\)\/\(px + 
                I\ py\)\)\), 1}}\)], "Output"]
}, Open  ]],

Cell["rot = { {Cos[t],Sin[t]}, {-Sin[t], Cos[t]} } ;", "Input",
  PageWidth->Infinity],

Cell[CellGroupData[{

Cell["MatrixForm[%]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {\(Cos[t]\), \(Sin[t]\)},
            {\(-Sin[t]\), \(Cos[t]\)}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell["MatrixPower[rot,2] ;", "Input",
  PageWidth->Infinity],

Cell[CellGroupData[{

Cell["MatrixForm[%]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {\(Cos[t]\^2 - Sin[t]\^2\), \(2\ Cos[t]\ Sin[t]\)},
            {\(\(-2\)\ Cos[t]\ Sin[t]\), \(Cos[t]\^2 - Sin[t]\^2\)}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell["MatrixForm[ Simplify[%] ]", "Input",
  PageWidth->Infinity],

Cell[BoxData[
    TagBox[
      RowBox[{"(", GridBox[{
            {\(Cos[2\ t]\), \(Sin[2\ t]\)},
            {\(-Sin[2\ t]\), \(Cos[2\ t]\)}
            }], ")"}],
      (MatrixForm[ #]&)]], "Output"]
}, Open  ]]
},
FrontEndVersion->"Microsoft Windows 3.0",
ScreenRectangle->{{0, 1024}, {0, 740}},
WindowToolbars->{},
CellGrouping->Manual,
WindowSize->{480, 616},
WindowMargins->{{180, Automatic}, {16, Automatic}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
StyleDefinitions -> "Report.nb"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1709, 49, 50, 1, 46, "Text"],
Cell[1762, 52, 71, 1, 90, "Section"],

Cell[CellGroupData[{
Cell[1858, 57, 89, 1, 35, "Input"],
Cell[1950, 60, 90, 1, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2077, 66, 53, 1, 35, "Input"],
Cell[2133, 69, 46, 1, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2216, 75, 45, 1, 35, "Input"],
Cell[2264, 78, 50, 1, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2351, 84, 52, 1, 35, "Input"],
Cell[2406, 87, 90, 1, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2533, 93, 53, 1, 35, "Input"],
Cell[2589, 96, 249, 8, 92, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2875, 109, 50, 1, 35, "Input"],
Cell[2928, 112, 170, 3, 63, "Message"],
Cell[3101, 117, 102, 2, 48, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3240, 124, 57, 1, 30, "Input"],
Cell[3300, 127, 90, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3427, 133, 63, 1, 30, "Input"],
Cell[3493, 136, 265, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3795, 149, 54, 1, 30, "Input"],
Cell[3852, 152, 52, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3941, 158, 71, 1, 30, "Input"],
Cell[4015, 161, 474, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4526, 174, 54, 1, 30, "Input"],
Cell[4583, 177, 214, 4, 48, "Output"]
}, Open  ]],
Cell[4812, 184, 50, 1, 52, "Text"],
Cell[4865, 187, 65, 1, 53, "Section"],

Cell[CellGroupData[{
Cell[4955, 192, 94, 1, 30, "Input"],
Cell[5052, 195, 103, 2, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5192, 202, 54, 1, 30, "Input"],
Cell[5249, 205, 255, 8, 86, "Output"]
}, Open  ]],
Cell[5519, 216, 95, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[5639, 221, 54, 1, 30, "Input"],
Cell[5696, 224, 255, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5988, 237, 61, 1, 30, "Input"],
Cell[6052, 240, 249, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6338, 253, 61, 1, 30, "Input"],
Cell[6402, 256, 249, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6688, 269, 71, 1, 30, "Input"],
Cell[6762, 272, 249, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7048, 285, 79, 1, 30, "Input"],
Cell[7130, 288, 255, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7422, 301, 57, 1, 30, "Input"],
Cell[7482, 304, 56, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7575, 310, 57, 1, 30, "Input"],
Cell[7635, 313, 56, 1, 29, "Output"]
}, Open  ]],
Cell[7706, 317, 60, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[7791, 322, 57, 1, 30, "Input"],
Cell[7851, 325, 303, 8, 86, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8191, 338, 72, 1, 30, "Input"],
Cell[8266, 341, 113, 2, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8416, 348, 49, 1, 30, "Input"],
Cell[8468, 351, 63, 1, 30, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8568, 357, 58, 1, 30, "Input"],
Cell[8629, 360, 197, 4, 67, "Output"]
}, Open  ]],
Cell[8841, 367, 50, 1, 70, "Text"],
Cell[8894, 370, 70, 1, 70, "Section"],

Cell[CellGroupData[{
Cell[8989, 375, 61, 1, 30, "Input"],
Cell[9053, 378, 50, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9140, 384, 62, 1, 30, "Input"],
Cell[9205, 387, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9297, 393, 62, 1, 30, "Input"],
Cell[9362, 396, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9454, 402, 51, 1, 30, "Input"],
Cell[9508, 405, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9600, 411, 51, 1, 30, "Input"],
Cell[9654, 414, 50, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9741, 420, 51, 1, 30, "Input"],
Cell[9795, 423, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9887, 429, 58, 1, 30, "Input"],
Cell[9948, 432, 50, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10035, 438, 70, 1, 30, "Input"],
Cell[10108, 441, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10200, 447, 69, 1, 30, "Input"],
Cell[10272, 450, 50, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10359, 456, 68, 1, 30, "Input"],
Cell[10430, 459, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10522, 465, 55, 1, 30, "Input"],
Cell[10580, 468, 50, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10667, 474, 55, 1, 30, "Input"],
Cell[10725, 477, 45, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10807, 483, 56, 1, 30, "Input"],
Cell[10866, 486, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[10958, 492, 55, 1, 30, "Input"],
Cell[11016, 495, 45, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11098, 501, 56, 1, 30, "Input"],
Cell[11157, 504, 55, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11249, 510, 55, 1, 30, "Input"],
Cell[11307, 513, 45, 1, 29, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11389, 519, 56, 1, 30, "Input"],
Cell[11448, 522, 50, 1, 29, "Output"]
}, Open  ]],
Cell[11513, 526, 69, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[11607, 531, 55, 1, 30, "Input"],
Cell[11665, 534, 188, 6, 54, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11890, 545, 56, 1, 30, "Input"],
Cell[11949, 548, 100, 2, 38, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12086, 555, 57, 1, 30, "Input"],
Cell[12146, 558, 206, 3, 49, "Output"]
}, Open  ]],
Cell[12367, 564, 86, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[12478, 569, 53, 1, 30, "Input"],
Cell[12534, 572, 190, 6, 54, "Output"]
}, Open  ]],
Cell[12739, 581, 60, 1, 30, "Input"],

Cell[CellGroupData[{
Cell[12824, 586, 53, 1, 30, "Input"],
Cell[12880, 589, 246, 6, 60, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13163, 600, 65, 1, 30, "Input"],
Cell[13231, 603, 202, 6, 54, "Output"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)