(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing 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[ 15532, 677]*) (*NotebookOutlinePosition[ 16227, 701]*) (* CellTagsIndexPosition[ 16183, 697]*) (*WindowFrame->Normal*) Notebook[{ Cell["\<\ Unitary Operators I \ \>", "Subtitle", Evaluatable->False], Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(For\ two - state\ \ \ hilbert\ space\ we\ have\ the\ hermition\ operators\ \ \((Pauli\ spin\ matrices)\)\ \[Sigma]x, \ \[Sigma]y, \ \[Sigma]z\)\)\)], \ "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\[Sigma]x = {{0, 1}, {1, 0}}\), "\[IndentingNewLine]", \(\[Sigma]y = {{0, \(-I\)}, {I, 0}}\), "\[IndentingNewLine]", \(\[Sigma]z = {{1, 0}, {0, \(-1\)}}\)}], "Input"], Cell[BoxData[ \({{0, 1}, {1, 0}}\)], "Output"], Cell[BoxData[ \({{0, \(-\[ImaginaryI]\)}, {\[ImaginaryI], 0}}\)], "Output"], Cell[BoxData[ \({{1, 0}, {0, \(-1\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[\[Sigma]x]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"1", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[\[Sigma]y]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", \(-\[ImaginaryI]\)}, {"\[ImaginaryI]", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[\[Sigma]z]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", \(-1\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(These\ matrices\ are\ Hermitian\ \[Rule] \ represent\ physical\ observables\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(Conjugate[Transpose[\[Sigma]x]]\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ \({{0, 1}, {1, 0}}\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1"}, {"1", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(Conjugate[Transpose[\[Sigma]y]]\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ \({{0, \(-\[ImaginaryI]\)}, {\[ImaginaryI], 0}}\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", \(-\[ImaginaryI]\)}, {"\[ImaginaryI]", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(Conjugate[Transpose[\[Sigma]z]]\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ \({{1, 0}, {0, \(-1\)}}\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", \(-1\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(We\ called\ the\ basis\ states\ \ \ ketplus, \ ketminus\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(ketplus = {1, 0}\), "\[IndentingNewLine]", \(ketminus = {0, 1}\)}], "Input"], Cell[BoxData[ \({1, 0}\)], "Output"], Cell[BoxData[ \({0, 1}\)], "Output"] }, Open ]], Cell[BoxData[ \(These\ kets\ are\ orthonormal\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(ketplus . ketplus\)], "Input"], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ketminus . ketminus\)], "Input"], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ketplus . ketminus\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sigma]z . ketplus\)], "Input"], Cell[BoxData[ \({1, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sigma]z . ketplus \[Equal] ketplus\)], "Input"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sigma]z . ketminus\)], "Input"], Cell[BoxData[ \({0, \(-1\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sigma]z . ketminus \[Equal] ketminus\)], "Input"], Cell[BoxData[ \(False\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sigma]z . ketminus \[Equal] \(-ketminus\)\)], "Input"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[BoxData[{ \(But\ ketplus, \ ketminus\ are\ not\ eigenstates\), "\[IndentingNewLine]", \(of\ \[Sigma]x, \ \[Sigma]y\)}], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\("\";\)\), "\[IndentingNewLine]", \(\[Sigma]y . ketplus\)}], "Input"], Cell[BoxData[ \({0, \[ImaginaryI]}\)], "Output"] }, Open ]], Cell[BoxData[ \(However\ if\ we\ define\ the\ linear\ combination\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(ketup = \((ketplus\ + \ I\ ketminus)\)/ Sqrt[2]\), "\[IndentingNewLine]", \(MatrixForm[ketup]\)}], "Input"], Cell[BoxData[ \({1\/\@2, \[ImaginaryI]\/\@2}\)], "Output"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/\@2\)}, {\(\[ImaginaryI]\/\@2\)} }], "\[NoBreak]", ")"}], MatrixForm[ { Power[ 2, Rational[ -1, 2]], Times[ Complex[ 0, 1], Power[ 2, Rational[ -1, 2]]]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\[Sigma]y . ketup\), "\[IndentingNewLine]", \(\[Sigma]y . ketup \[Equal] ketup\)}], "Input"], Cell[BoxData[ \({1\/\@2, \[ImaginaryI]\/\@2}\)], "Output"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[BoxData[ \(So\ ketup\ also\ has\ eigenvalue\ + 1\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\(ketdown = \((ketplus\ - \ I\ ketminus)\)/ Sqrt[2];\)\), "\[IndentingNewLine]", \(MatrixForm[ketdown]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/\@2\)}, {\(-\(\[ImaginaryI]\/\@2\)\)} }], "\[NoBreak]", ")"}], MatrixForm[ { Power[ 2, Rational[ -1, 2]], Times[ Complex[ 0, -1], Power[ 2, Rational[ -1, 2]]]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\[Sigma]y . ketdown \[Equal] \(-ketdown\)\)], "Input"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[BoxData[ \(So\ ketdown\ has\ eigenvalue\ - 1, \ with\ respect\ to\ \[Sigma]y\ measurement\)], "Input", Evaluatable->False], Cell[BoxData[ \(Also\ ketup\ and\ ketdown\ are\ orthonormal\ with\ each\ other\)], \ "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(ketup . ketup\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[BoxData[ \(What\ did\ I\ do\ wrong\ \(\(here\)\(\ \)\(?\)\)\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(Conjugate[ketup] . ketup\)], "Input"], Cell[BoxData[ \(1\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(Conjugate[ketminus] . ketminus\), "\[IndentingNewLine]", \(Conjugate[ketminus] . ketplus\)}], "Input"], Cell[BoxData[ \(1\)], "Output"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[BoxData[ \(They\ are\ not\ orthogonal\ to\ ketplus, \ ketminus\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(ketplus . ketup\)], "Input"], Cell[BoxData[ \(1\/\@2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(ketplus . ketdown\)], "Input"], Cell[BoxData[ \(1\/\@2\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(MatrixForm[ketplus]\), "\[IndentingNewLine]", \(MatrixForm[ketminus]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"0"} }], "\[NoBreak]", ")"}], MatrixForm[ {1, 0}]]], "Output"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"1"} }], "\[NoBreak]", ")"}], MatrixForm[ {0, 1}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(MatrixForm[ketup]\), "\[IndentingNewLine]", \(MatrixForm[ketdown]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/\@2\)}, {\(\[ImaginaryI]\/\@2\)} }], "\[NoBreak]", ")"}], MatrixForm[ { Power[ 2, Rational[ -1, 2]], Times[ Complex[ 0, 1], Power[ 2, Rational[ -1, 2]]]}]]], "Output"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/\@2\)}, {\(-\(\[ImaginaryI]\/\@2\)\)} }], "\[NoBreak]", ")"}], MatrixForm[ { Power[ 2, Rational[ -1, 2]], Times[ Complex[ 0, -1], Power[ 2, Rational[ -1, 2]]]}]]], "Output"] }, Open ]], Cell[BoxData[ \(Consider\ the\ following\ matrix\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(U = {{1/Sqrt[2], 1/Sqrt[2]}, {I/Sqrt[2], \(-I\)/Sqrt[2]}}\)], "Input"], Cell[BoxData[ \({{1\/\@2, 1\/\@2}, {\[ImaginaryI]\/\@2, \(-\(\[ImaginaryI]\/\@2\)\)}}\)], \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[U]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/\@2\), \(1\/\@2\)}, {\(\[ImaginaryI]\/\@2\), \(-\(\[ImaginaryI]\/\@2\)\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(U . ketplus\), "\[IndentingNewLine]", \(U . ketplus \[Equal] ketup\)}], "Input"], Cell[BoxData[ \({1\/\@2, \[ImaginaryI]\/\@2}\)], "Output"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(U . ketminus\), "\[IndentingNewLine]", \(U . ketminus \[Equal] ketdown\)}], "Input"], Cell[BoxData[ \({1\/\@2, \(-\(\[ImaginaryI]\/\@2\)\)}\)], "Output"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[BoxData[ \(U\ transforms\ the\ ketplus, \ ketminus\ vectors\ into\ the\ ketup\ and\ ketdown\ vectors\ \ respectively\)], "Input", Evaluatable->False], Cell[BoxData[ \(Lets\ consider\ the\ hermitian\ Conjugate\ of\ U, \ call\ it\ Udagger\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(Udagger = Conjugate[Transpose[U]]\)], "Input"], Cell[BoxData[ \({{1\/\@2, \(-\(\[ImaginaryI]\/\@2\)\)}, {1\/\@2, \ \[ImaginaryI]\/\@2}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[Udagger]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/\@2\), \(-\(\[ImaginaryI]\/\@2\)\)}, {\(1\/\@2\), \(\[ImaginaryI]\/\@2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(Is\ U\ a\ Hermitian\ operator\ \((\(observable\)\(?\))\)\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Udagger . U;\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(U . Udagger;\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0"}, {"0", "1"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[{ \(\(\(Operators\ that\ have\ the\ form\)\(\ \)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(U\^\[Dagger]\) U = \(U\ U\^\[Dagger] = Identity\)\), "\[IndentingNewLine]", \(are\ called\ unitary\ operators\), "\[IndentingNewLine]", \(\(\(They\ play\ a\ key\ role\ in\ quantum\ circuits\ \((gates)\)\)\(:\)\ \)\)}], "Input", Evaluatable->False], Cell[BoxData[ \(Note\)], "Input", Evaluatable->False], Cell[BoxData[ \(If\ | \(\(a\)\(>\)\)\ \ = \ U\ | b > \ then\ \ | b >= U\^\[Dagger] | \(\(a\)\(>\)\)\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Udagger . ketup;\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"0"} }], "\[NoBreak]", ")"}], MatrixForm[ {1, 0}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Udagger . ketdown;\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"1"} }], "\[NoBreak]", ")"}], MatrixForm[ {0, 1}]]], "Output"] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{0, 1920}, {0, 1103}}, WindowSize->{881, 861}, WindowMargins->{{147, Automatic}, {Automatic, 60}}, Magnification->1.5, StyleDefinitions -> "Classroom.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[1754, 51, 71, 5, 123, "Subtitle", Evaluatable->False], Cell[1828, 58, 236, 5, 138, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[2089, 67, 197, 3, 115, "Input"], Cell[2289, 72, 50, 1, 70, "Output"], Cell[2342, 75, 79, 1, 70, "Output"], Cell[2424, 78, 55, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2516, 84, 54, 1, 69, "Input"], Cell[2573, 87, 227, 7, 90, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2837, 99, 54, 1, 69, "Input"], Cell[2894, 102, 254, 7, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3185, 114, 54, 1, 69, "Input"], Cell[3242, 117, 230, 7, 90, "Output"] }, Open ]], Cell[3487, 127, 138, 3, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[3650, 134, 113, 2, 92, "Input"], Cell[3766, 138, 50, 1, 70, "Output"], Cell[3819, 141, 227, 7, 90, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4083, 153, 113, 2, 92, "Input"], Cell[4199, 157, 79, 1, 70, "Output"], Cell[4281, 160, 254, 7, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4572, 172, 113, 2, 92, "Input"], Cell[4688, 176, 55, 1, 70, "Output"], Cell[4746, 179, 230, 7, 90, "Output"] }, Open ]], Cell[4991, 189, 110, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[5126, 195, 102, 2, 92, "Input"], Cell[5231, 199, 40, 1, 70, "Output"], Cell[5274, 202, 40, 1, 70, "Output"] }, Open ]], Cell[5329, 206, 84, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[5438, 212, 50, 1, 69, "Input"], Cell[5491, 215, 35, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5563, 221, 52, 1, 69, "Input"], Cell[5618, 224, 35, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5690, 230, 51, 1, 69, "Input"], Cell[5744, 233, 35, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5816, 239, 52, 1, 69, "Input"], Cell[5871, 242, 40, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5948, 248, 69, 1, 69, "Input"], Cell[6020, 251, 38, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6095, 257, 53, 1, 69, "Input"], Cell[6151, 260, 45, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6233, 266, 71, 1, 69, "Input"], Cell[6307, 269, 39, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6383, 275, 76, 1, 69, "Input"], Cell[6462, 278, 38, 1, 70, "Output"] }, Open ]], Cell[6515, 282, 169, 4, 92, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[6709, 290, 106, 2, 92, "Input"], Cell[6818, 294, 52, 1, 70, "Output"] }, Open ]], Cell[6885, 298, 104, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[7014, 304, 142, 3, 92, "Input"], Cell[7159, 309, 62, 1, 96, "Output"], Cell[7224, 312, 358, 12, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7619, 329, 118, 2, 92, "Input"], Cell[7740, 333, 62, 1, 96, "Output"], Cell[7805, 336, 38, 1, 70, "Output"] }, Open ]], Cell[7858, 340, 93, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[7976, 346, 153, 3, 92, "Input"], Cell[8132, 351, 364, 12, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8533, 368, 74, 1, 69, "Input"], Cell[8610, 371, 38, 1, 70, "Output"] }, Open ]], Cell[8663, 375, 139, 3, 69, "Input", Evaluatable->False], Cell[8805, 380, 119, 3, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[8949, 387, 46, 1, 69, "Input"], Cell[8998, 390, 35, 1, 70, "Output"] }, Open ]], Cell[9048, 394, 103, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[9176, 400, 57, 1, 69, "Input"], Cell[9236, 403, 35, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9308, 409, 128, 2, 92, "Input"], Cell[9439, 413, 35, 1, 70, "Output"], Cell[9477, 416, 35, 1, 70, "Output"] }, Open ]], Cell[9527, 420, 106, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[9658, 426, 48, 1, 69, "Input"], Cell[9709, 429, 40, 1, 95, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9786, 435, 50, 1, 69, "Input"], Cell[9839, 438, 40, 1, 95, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9916, 444, 108, 2, 92, "Input"], Cell[10027, 448, 192, 6, 90, "Output"], Cell[10222, 456, 192, 6, 90, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10451, 467, 105, 2, 92, "Input"], Cell[10559, 471, 358, 12, 120, "Output"], Cell[10920, 485, 364, 12, 120, "Output"] }, Open ]], Cell[11299, 500, 87, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[11411, 506, 90, 1, 69, "Input"], Cell[11504, 509, 114, 3, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11655, 517, 46, 1, 69, "Input"], Cell[11704, 520, 284, 7, 120, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12025, 532, 106, 2, 92, "Input"], Cell[12134, 536, 62, 1, 96, "Output"], Cell[12199, 539, 38, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12274, 545, 110, 2, 92, "Input"], Cell[12387, 549, 71, 1, 96, "Output"], Cell[12461, 552, 38, 1, 70, "Output"] }, Open ]], Cell[12514, 556, 165, 4, 92, "Input", Evaluatable->False], Cell[12682, 562, 129, 3, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[12836, 569, 66, 1, 69, "Input"], Cell[12905, 572, 105, 2, 96, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13047, 579, 52, 1, 69, "Input"], Cell[13102, 582, 284, 7, 120, "Output"] }, Open ]], Cell[13401, 592, 111, 2, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[13537, 598, 98, 2, 92, "Input"], Cell[13638, 602, 227, 7, 90, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13902, 614, 98, 2, 92, "Input"], Cell[14003, 618, 227, 7, 90, "Output"] }, Open ]], Cell[14245, 628, 399, 8, 163, "Input", Evaluatable->False], Cell[14647, 638, 59, 2, 69, "Input", Evaluatable->False], Cell[14709, 642, 149, 3, 72, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[14883, 649, 102, 2, 92, "Input"], Cell[14988, 653, 192, 6, 90, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15217, 664, 104, 2, 92, "Input"], Cell[15324, 668, 192, 6, 90, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)