(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.1' 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[ 16273, 512]*) (*NotebookOutlinePosition[ 16911, 534]*) (* CellTagsIndexPosition[ 16867, 530]*) (*WindowFrame->Normal*) Notebook[{ Cell[BoxData[{ RowBox[{\("\";\), " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", ButtonBox["Fig4", ButtonData:>{ URL[ "http://www.physics.unlv.edu/~bernard/phy771/fig4.pdf"], None}, ButtonStyle->"Hyperlink"]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(hadamardgate = {{1, 1}, {1, \(-1\)}}/Sqrt[2]\)], "Input"], Cell[BoxData[ \({{1\/\@2, 1\/\@2}, {1\/\@2, \(-\(1\/\@2\)\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\("\<|0><0|\[CircleTimes]I +|1><1|\[CircleTimes]hadamard\>";\)\ \[IndentingNewLine]\), "\[IndentingNewLine]", \(BlockMatrix[ Outer[Times, Outer[Times, zero, zero], unit]] + \[IndentingNewLine]\(+BlockMatrix[ Outer[Times, Outer[Times, one, one], hadamardgate]]\)\)}], "Input"], Cell[BoxData[ \({{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1\/\@2, 1\/\@2}, {0, 0, 1\/\@2, \(-\(1\/\@2\)\)}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[%]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", \(1\/\@2\), \(1\/\@2\)}, {"0", "0", \(1\/\@2\), \(-\(1\/\@2\)\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[{ \(According\ to\ \ our\ class\ \ \ discussion\), "\[IndentingNewLine]", \(for\ any\ 2 - qubit\ gate\ \ U\ \ \ \ we\ \ perform\ the\ decomposition\)}], "Input", Evaluatable->False], Cell[TextData[{ Cell[BoxData[ StyleBox[ RowBox[{"U", "=", RowBox[{"(", GridBox[{ {\(Exp[I \((\[Alpha] - \[Beta]/2 - \[Delta]/2)\)] Cos[\[Gamma]/2]\), \(\(-Exp[ I \((\[Alpha] - \[Beta]/2 + \[Delta]/2)\)]\) Sin[\[Gamma]/2]\)}, {\(Exp[I \((\[Alpha] + \[Beta]/2 - \[Delta]/2)\)] Sin[\[Gamma]/2]\), \(Exp[ I \((\[Alpha] + \[Beta]/2 + \[Delta]/2)\)] Cos[\[Gamma]/2]\)} }], ")"}]}], ShowStringCharacters->True]], GeneratedCell->False, CellAutoOverwrite->False], ";" }], "Input", FormatType->TextForm], Cell[BoxData[{ \(\("\";\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\("\";\)\[IndentingNewLine]\), "\ \[IndentingNewLine]", \(\[Sigma]X = PauliX; \[Sigma]Y = PauliY; \[Sigma]Z = PauliZ;\)}], "Input"], Cell[BoxData[{ \(\(A = MatrixExp[\(-I\)\ \[Beta]\ \ \ \[Sigma]Z/2] . \ MatrixExp[\(-I\)\ \[Gamma]/2\ \ \[Sigma]Y/ 2];\)\), "\[IndentingNewLine]", \(\(B = MatrixExp[I\ \[Gamma]/2\ \ \ \[Sigma]Y/2]\ . MatrixExp[ I\ \((\[Beta] + \[Delta])\)\ /2\ \ \[Sigma]Z/ 2];\)\), "\[IndentingNewLine]", \(\(Cm = \ \ MatrixExp[\(-I\)\ \((\[Delta] - \[Beta])\)/2\ \ \[Sigma]Z/ 2];\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\("\";\)\), "\[IndentingNewLine]", \(hadamardrules = {\[Alpha] \[Rule] \ Pi/2, \[Beta] \[Rule] 0, \[Delta] \[Rule] \ Pi, \[Gamma] \[Rule] Pi/2}\)}], "Input"], Cell[BoxData[ \({\[Alpha] \[Rule] \[Pi]\/2, \[Beta] \[Rule] 0, \[Delta] \[Rule] \[Pi], \[Gamma] \[Rule] \[Pi]\/2}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(U\ /. \ hadamardrules\)], "Input"], Cell[BoxData[ \({{1\/\@2, 1\/\@2}, {1\/\@2, \(-\(1\/\@2\)\)}}\)], "Output"] }, Open ]], Cell[BoxData[ \(Thus\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(Agate = A\ /. \ hadamardrules\)], "Input"], Cell[BoxData[ \({{Cos[\[Pi]\/8], \(-Sin[\[Pi]\/8]\)}, {Sin[\[Pi]\/8], Cos[\[Pi]\/8]}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Bgate = B\ /. \ hadamardrules\)], "Input"], Cell[BoxData[ \({{\[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\ Cos[\[Pi]\/8], \ \[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Sin[\[Pi]\/8]}, {\(-\ \[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Sin[\[Pi]\/8], \ \[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Cos[\[Pi]\/8]}}\)], \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Cgate = Cm\ /. hadamardrules\)], "Input"], Cell[BoxData[ \({{\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\), 0}, {0, \[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)}}\)], \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullSimplify[ Exp[I\ Pi/2]\ Agate . PauliX . Bgate . PauliX . Cgate]\)], "Input"], Cell[BoxData[ \({{1\/\@2, 1\/\@2}, {1\/\@2, \(-\(1\/\@2\)\)}}\)], "Output"] }, Open ]], Cell[BoxData[{ RowBox[{\("\";\), " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ ButtonBox["Fig5", ButtonData:>{ URL[ "http://www.physics.unlv.edu/~bernard/phy771/fig5.pdf"], None}, ButtonStyle->"Hyperlink"], "\[IndentingNewLine]"}], "\[IndentingNewLine]", }], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\("\";\)\[IndentingNewLine]\), \ "\[IndentingNewLine]", \(\(firstgate = BlockMatrix[Outer[Times, unit, Cgate]];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\), "\[IndentingNewLine]", \(\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\), "0", "0", "0"}, {"0", \(\[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\), "0", "0"}, {"0", "0", \(\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\), "0"}, {"0", "0", "0", \(\[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(controlnot = {{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 0, 1}, {0, 0, 1, 0}}\)], "Input"], Cell[BoxData[ \({{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 0, 1}, {0, 0, 1, 0}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(secondgate = BlockMatrix[Outer[Times, unit, Bgate]];\)\), "\[IndentingNewLine]", \(MatrixForm[secondgate]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\ \ Cos[\[Pi]\/8]\), \(\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ \ Sin[\[Pi]\/8]\), "0", "0"}, {\(\(-\[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Sin[\ \[Pi]\/8]\), \(\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Cos[\ \[Pi]\/8]\), "0", "0"}, {"0", "0", \(\[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\ Cos[\ \[Pi]\/8]\), \(\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Sin[\ \[Pi]\/8]\)}, {"0", "0", \(\(-\[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ \ Sin[\[Pi]\/8]\), \(\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ \ Cos[\[Pi]\/8]\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(phasegate = {{1, 0}, {0, Exp[I\ \[Alpha]]}}\ /. \ hadamardrules\)], "Input"], Cell[BoxData[ \({{1, 0}, {0, \[ImaginaryI]}}\)], "Output"] }, Open ]], Cell[BoxData[ \(\("\";\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(lastgate = BlockMatrix[ Outer[Times, phasegate, Agate]];\)\), "\[IndentingNewLine]", \(MatrixForm[lastgate]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(Cos[\[Pi]\/8]\), \(-Sin[\[Pi]\/8]\), "0", "0"}, {\(Sin[\[Pi]\/8]\), \(Cos[\[Pi]\/8]\), "0", "0"}, {"0", "0", \(\[ImaginaryI]\ Cos[\[Pi]\/8]\), \(\(-\[ImaginaryI]\)\ \ Sin[\[Pi]\/8]\)}, {"0", "0", \(\[ImaginaryI]\ Sin[\[Pi]\/8]\), \(\[ImaginaryI]\ Cos[\ \[Pi]\/8]\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(The\ control\ hadamard\ gate\ should\ then\ be\ equivalent\ to\)], \ "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(lastgate . controlnot . secondgate . controlnot . firstgate\), "\[IndentingNewLine]", \(FullSimplify[%]\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ \({{\[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ \((\ \[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\ Cos[\[Pi]\/8]\^2 + \ \[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\ Sin[\[Pi]\/8]\^2)\), 0, 0, 0}, {0, \[ExponentialE]\^\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\ \((\ \[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Cos[\[Pi]\/8]\^2 + \ \[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Sin[\[Pi]\/8]\^2)\), 0, 0}, {0, 0, \[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ \((\ \[ImaginaryI]\ \[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \[Pi]\)\/4\)\)\ Cos[\ \[Pi]\/8]\^2 - \[ImaginaryI]\ \[ExponentialE]\^\(-\(\(\[ImaginaryI]\ \ \[Pi]\)\/4\)\)\ Sin[\[Pi]\/8]\^2)\), 2\ Cos[\[Pi]\/8]\ Sin[\[Pi]\/8]}, {0, 0, 2\ Cos[\[Pi]\/8]\ Sin[\[Pi]\/8], \[ExponentialE]\^\(\(\[ImaginaryI]\ \ \[Pi]\)\/4\)\ \((\[ImaginaryI]\ \[ExponentialE]\^\(\(\[ImaginaryI]\ \ \[Pi]\)\/4\)\ Cos[\[Pi]\/8]\^2 - \[ImaginaryI]\ \[ExponentialE]\^\(\(\ \[ImaginaryI]\ \[Pi]\)\/4\)\ Sin[\[Pi]\/8]\^2)\)}}\)], "Output"], Cell[BoxData[ \({{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1\/\@2, 1\/\@2}, {0, 0, 1\/\@2, \(-\(1\/\@2\)\)}}\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", \(1\/\@2\), \(1\/\@2\)}, {"0", "0", \(1\/\@2\), \(-\(1\/\@2\)\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[{ \(Thus\ we\ can\ break\ up\ complicated\ gates\ into\ factors\ of\ \ controlnot\), "\[IndentingNewLine]", \(and\ single\ qubit\ \(\(gates\)\(.\)\)\)}], "Input"], Cell[BoxData[ \(Excercise\ 4.18\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(\("\<|0><0|\[CircleTimes]I +|1><1|\[CircleTimes] Z\>";\)\(\ \[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(BlockMatrix[ Outer[Times, Outer[Times, zero, zero], unit]] + \[IndentingNewLine]\(+BlockMatrix[ Outer[Times, Outer[Times, one, one], PauliZ]]\);\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", \(-1\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(\("\<0|+ Z\[CircleTimes]|1><1|\>";\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(BlockMatrix[ Outer[Times, unit, Outer[Times, zero, zero]]] + \[IndentingNewLine]\(+BlockMatrix[ Outer[Times, PauliZ, Outer[Times, one, one]]]\);\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "1", "0"}, {"0", "0", "0", \(-1\)} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(Is\ this\ also\ true, \ if\ the\ Z\ gate\ is\ replaced\ by\ the\ X\ \(\(gate\)\(?\)\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(BlockMatrix[ Outer[Times, Outer[Times, zero, zero], unit]] + \[IndentingNewLine]\(+BlockMatrix[ Outer[Times, Outer[Times, one, one], PauliX]]\);\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "0", "1"}, {"0", "0", "1", "0"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(BlockMatrix[ Outer[Times, unit, Outer[Times, zero, zero]]] + \[IndentingNewLine]\(+BlockMatrix[ Outer[Times, PauliX, Outer[Times, one, one]]]\);\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "0", "0", "1"}, {"0", "0", "1", "0"}, {"0", "1", "0", "0"} }, RowSpacings->1, ColumnSpacings->1, ColumnAlignments->{Left}], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(\("\";\)\)], "Input"] }, FrontEndVersion->"5.1 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 719}}, WindowSize->{639, 612}, WindowMargins->{{177, Automatic}, {29, Automatic}} ] (******************************************************************* 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, 405, 7, 91, "Input"], Cell[CellGroupData[{ Cell[2184, 62, 77, 1, 27, "Input"], Cell[2264, 65, 79, 1, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2380, 71, 330, 6, 75, "Input"], Cell[2713, 79, 128, 2, 46, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2878, 86, 46, 1, 27, "Input"], Cell[2927, 89, 439, 12, 107, "Output"] }, Open ]], Cell[3381, 104, 212, 4, 43, "Input", Evaluatable->False], Cell[3596, 110, 718, 19, 39, "Input"], Cell[4317, 131, 253, 4, 107, "Input"], Cell[4573, 137, 492, 11, 59, "Input"], Cell[CellGroupData[{ Cell[5090, 152, 219, 3, 43, "Input"], Cell[5312, 157, 140, 2, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5489, 164, 55, 1, 27, "Input"], Cell[5547, 167, 79, 1, 46, "Output"] }, Open ]], Cell[5641, 171, 37, 1, 27, "Input"], Cell[CellGroupData[{ Cell[5703, 176, 63, 1, 27, "Input"], Cell[5769, 179, 112, 2, 39, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5918, 186, 63, 1, 27, "Input"], Cell[5984, 189, 321, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6342, 199, 62, 1, 27, "Input"], Cell[6407, 202, 160, 3, 40, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6604, 210, 107, 2, 27, "Input"], Cell[6714, 214, 79, 1, 46, "Output"] }, Open ]], Cell[6808, 218, 374, 9, 91, "Input"], Cell[CellGroupData[{ Cell[7207, 231, 264, 6, 91, "Input"], Cell[7474, 239, 687, 17, 117, "Output"] }, Open ]], Cell[8176, 259, 26, 0, 27, "Input"], Cell[CellGroupData[{ Cell[8227, 263, 113, 2, 27, "Input"], Cell[8343, 267, 90, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8470, 273, 156, 3, 43, "Input"], Cell[8629, 278, 994, 22, 137, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9660, 305, 106, 2, 27, "Input"], Cell[9769, 309, 62, 1, 27, "Output"] }, Open ]], Cell[9846, 313, 81, 1, 27, "Input"], Cell[CellGroupData[{ Cell[9952, 318, 168, 4, 43, "Input"], Cell[10123, 324, 618, 16, 109, "Output"] }, Open ]], Cell[10756, 343, 97, 2, 27, "Input"], Cell[CellGroupData[{ Cell[10878, 349, 197, 4, 59, "Input"], Cell[11078, 355, 1056, 15, 155, "Output"], Cell[12137, 372, 128, 2, 46, "Output"], Cell[12268, 376, 439, 12, 107, "Output"] }, Open ]], Cell[12722, 391, 184, 3, 43, "Input"], Cell[12909, 396, 48, 1, 27, "Input"], Cell[CellGroupData[{ Cell[12982, 401, 404, 9, 91, "Input"], Cell[13389, 412, 409, 12, 73, "Output"] }, Open ]], Cell[13813, 427, 88, 1, 27, "Input"], Cell[CellGroupData[{ Cell[13926, 432, 280, 6, 59, "Input"], Cell[14209, 440, 409, 12, 73, "Output"] }, Open ]], Cell[14633, 455, 123, 2, 27, "Input"], Cell[CellGroupData[{ Cell[14781, 461, 280, 6, 59, "Input"], Cell[15064, 469, 406, 12, 73, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15507, 486, 280, 6, 59, "Input"], Cell[15790, 494, 406, 12, 73, "Output"] }, Open ]], Cell[16211, 509, 58, 1, 27, "Input"] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)