(************** Content-type: application/mathematica ************** 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[ 19125, 675]*) (*NotebookOutlinePosition[ 19756, 697]*) (* CellTagsIndexPosition[ 19712, 693]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ \(mata = {{a, b}, {c, d}}\), "\[IndentingNewLine]", \(matb = {{A, B}, {C, D}}\)}], "Input"], Cell[BoxData[ \({{a, b}, {c, d}}\)], "Output"], Cell[BoxData[ \({{A, B}, {C, D}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(direct = Outer[Times, mata, matb];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"(", "\[NoBreak]", GridBox[{ {\(a\ A\), \(a\ B\)}, {\(a\ C\), \(a\ D\)} }], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {\(A\ b\), \(b\ B\)}, {\(b\ C\), \(b\ D\)} }], "\[NoBreak]", ")"}]}, { RowBox[{"(", "\[NoBreak]", GridBox[{ {\(A\ c\), \(B\ c\)}, {\(c\ C\), \(c\ D\)} }], "\[NoBreak]", ")"}], RowBox[{"(", "\[NoBreak]", GridBox[{ {\(A\ d\), \(B\ d\)}, {\(C\ d\), \(d\ D\)} }], "\[NoBreak]", ")"}]} }], "\[NoBreak]", ")"}], MatrixForm[ {{{{ Times[ a, A], Times[ a, B]}, { Times[ a, C], Times[ a, D]}}, {{ Times[ A, b], Times[ b, B]}, { Times[ b, C], Times[ b, D]}}}, {{{ Times[ A, c], Times[ B, c]}, { Times[ c, C], Times[ c, D]}}, {{ Times[ A, d], Times[ B, d]}, { Times[ C, d], Times[ d, D]}}}}]]], "Output"] }, Open ]], Cell[BoxData[ \(Needs["\"]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(BlockMatrix[direct]\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ \({{a\ A, a\ B, A\ b, b\ B}, {a\ C, a\ D, b\ C, b\ D}, {A\ c, B\ c, A\ d, B\ d}, {c\ C, c\ D, C\ d, d\ D}}\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(a\ A\), \(a\ B\), \(A\ b\), \(b\ B\)}, {\(a\ C\), \(a\ D\), \(b\ C\), \(b\ D\)}, {\(A\ c\), \(B\ c\), \(A\ d\), \(B\ d\)}, {\(c\ C\), \(c\ D\), \(C\ d\), \(d\ D\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[{ \(\(vectora = {a, b};\)\), "\[IndentingNewLine]", \(\(vectorb = {c, d};\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(Outer[Times, vectora, vectorb]\), "\[IndentingNewLine]", \(Flatten[%]\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ \({{a\ c, a\ d}, {b\ c, b\ d}}\)], "Output"], Cell[BoxData[ \({a\ c, a\ d, b\ c, b\ d}\)], "Output"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(a\ c\)}, {\(a\ d\)}, {\(b\ c\)}, {\(b\ d\)} }], "\[NoBreak]", ")"}], MatrixForm[ { Times[ a, c], Times[ a, d], Times[ b, c], Times[ b, d]}]]], "Output"] }, Open ]], Cell[BoxData[ \(directoperator[A_, B_] := BlockMatrix[Outer[Times, A, B]]\)], "Input"], Cell[BoxData[{ \(Off[ General::"\"]\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(\[Sigma]1x = {{0, 1}, {1, 0}};\)\), "\[IndentingNewLine]", \(\(\[Sigma]2x = {{0, 1}, {1, 0}};\)\), "\[IndentingNewLine]", \(\(\[Sigma]1y = {{0, \(-I\)}, {I, 0}};\)\), "\[IndentingNewLine]", \(\(\[Sigma]2y = {{0, \(-I\)}, {I, 0}};\)\), "\[IndentingNewLine]", \(\(\[Sigma]1z = {{1, 0}, {0, \(-1\)}};\)\), "\[IndentingNewLine]", \(\(\[Sigma]2z = {{1, 0}, {0, \(-1\)}};\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(directoperator[\[Sigma]1x, \[Sigma]2x]\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ \({{0, 0, 0, 1}, {0, 0, 1, 0}, {0, 1, 0, 0}, {1, 0, 0, 0}}\)], "Output"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "1"}, {"0", "0", "1", "0"}, {"0", "1", "0", "0"}, {"1", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(directoperator[\[Sigma]1y, \[Sigma]2x];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", \(-\[ImaginaryI]\)}, {"0", "0", \(-\[ImaginaryI]\), "0"}, {"0", "\[ImaginaryI]", "0", "0"}, {"\[ImaginaryI]", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(newoperator = directoperator[\[Sigma]2x, \[Sigma]1y];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", \(-\[ImaginaryI]\)}, {"0", "0", "\[ImaginaryI]", "0"}, {"0", \(-\[ImaginaryI]\), "0", "0"}, {"\[ImaginaryI]", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(\("\";\)\)], "Input"], Cell[BoxData[{ \(\(For\ our\ basis\ states\ we\ have;\)\), "\[IndentingNewLine]", \(\(zero1 = {1, 0};\)\), "\[IndentingNewLine]", \(\(zero2 = {1, 0};\)\), "\[IndentingNewLine]", \(\(one1 = {0, 1};\)\), "\[IndentingNewLine]", \(\(one2 = {0, 1};\)\)}], "Input"], Cell[BoxData[ \(QubitII[ket1_, ket2_] := Flatten[Outer[Times, ket1, ket2]]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(QubitII[zero1, zero2];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"0"}, {"0"}, {"0"} }], "\[NoBreak]", ")"}], MatrixForm[ {1, 0, 0, 0}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(QubitII[zero1, one2];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"1"}, {"0"}, {"0"} }], "\[NoBreak]", ")"}], MatrixForm[ {0, 1, 0, 0}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(QubitII[one1, zero2];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"0"}, {"1"}, {"0"} }], "\[NoBreak]", ")"}], MatrixForm[ {0, 0, 1, 0}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(QubitII[one1, one2];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {"0"}, {"0"}, {"1"} }], "\[NoBreak]", ")"}], MatrixForm[ {0, 0, 0, 1}]]], "Output"] }, Open ]], Cell[BoxData[{ \(Lets\ see\ if\ our\ formalism\ is\ consistant\ we\ know\), "\ \[IndentingNewLine]", \(that\ | 0 > \[CircleTimes] | 1 > \ is\ an\ eigenstate\ of\ \ \[Sigma]1z\ \[CircleTimes]\ \[Sigma]2z\ \ \ \(\((can\ you\ guess\ the\ \(\(eigenvalue\)\(?\)\))\)\(.\)\)\)}], "Input",\ Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\("\";\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(ket = QubitII[zero1, one2]\)}], "Input"], Cell[BoxData[ \({0, 1, 0, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(operator = directoperator[\[Sigma]1z, \[Sigma]2z];\)\), "\[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"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(operator . ket;\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0"}, {\(-1\)}, {"0"}, {"0"} }], "\[NoBreak]", ")"}], MatrixForm[ {0, -1, 0, 0}]]], "Output"] }, Open ]], Cell[BoxData[ \(\("\< Does the above result make sense ?\>";\)\)], "Input"], Cell[BoxData[{ \(Lets\ try\ something\ more\ challenging\), "\[IndentingNewLine]", \(which\ operator\ is\ \ \ \ \ \((\ \(\(|\)\(0 > +\)\(|\)\(\(1\)\(>\)\)\)\ \/\@2)\)\ \((\ \(I | 0 > + | \(\(1\)\(>\)\)\)\/\@2)\)\ an\ \ eigenstate\ \ \(\(of\)\(?\)\)\)}], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\(state1 = \((zero1 + one1)\)/Sqrt[2];\)\), "\[IndentingNewLine]", \(\[Sigma]1x . state1 \[Equal] state1\)}], "Input"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(state2 = \((I\ zero2 + one2)\)/Sqrt[2]\), "\[IndentingNewLine]", \(\[Sigma]2y . state2 \[Equal] \(-state2\)\)}], "Input"], Cell[BoxData[ \({\[ImaginaryI]\/\@2, 1\/\@2}\)], "Output"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(newstate = QubitII[state1, state2];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\[ImaginaryI]\/2\)}, {\(1\/2\)}, {\(\[ImaginaryI]\/2\)}, {\(1\/2\)} }], "\[NoBreak]", ")"}], MatrixForm[ { Complex[ 0, Rational[ 1, 2]], Rational[ 1, 2], Complex[ 0, Rational[ 1, 2]], Rational[ 1, 2]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(newoperator = directoperator[\[Sigma]1x, \[Sigma]2y];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", \(-\[ImaginaryI]\)}, {"0", "0", "\[ImaginaryI]", "0"}, {"0", \(-\[ImaginaryI]\), "0", "0"}, {"\[ImaginaryI]", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(newoperator . newstate\)], "Input"], Cell[BoxData[ \({\(-\(\[ImaginaryI]\/2\)\), \(-\(1\/2\)\), \(-\(\[ImaginaryI]\/2\)\), \ \(-\(1\/2\)\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(newoperator . newstate \[Equal] \(-newstate\)\)], "Input"], Cell[BoxData[ \(True\)], "Output"] }, Open ]], Cell[BoxData[ \("\"\)], "Input", Evaluatable->False], Cell[BoxData[{ \(Same\ as\ before\ \ \[Rho] = \(\(|\)\(\[Psi] > < \[Psi]\)\(|\)\(\ \ \)\(except\ that\)\(\ \)\(|\)\(\[Psi] > \ is\ a\ ket\ in\ our\ direct\)\)\), "\[IndentingNewLine]", \(product\ space . \ In\ example\ above\)}], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[{ \(\(\[Psi] = newstate;\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ InterpretationBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\[ImaginaryI]\/2\)}, {\(1\/2\)}, {\(\[ImaginaryI]\/2\)}, {\(1\/2\)} }], "\[NoBreak]", ")"}], MatrixForm[ { Complex[ 0, Rational[ 1, 2]], Rational[ 1, 2], Complex[ 0, Rational[ 1, 2]], Rational[ 1, 2]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(\[Rho] = Outer[Times, newstate, Conjugate[newstate]];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(1\/4\), \(\[ImaginaryI]\/4\), \(1\/4\), \(\[ImaginaryI]\/4\)}, {\(-\(\[ImaginaryI]\/4\)\), \(1\/4\), \(-\(\[ImaginaryI]\/4\)\), \ \(1\/4\)}, {\(1\/4\), \(\[ImaginaryI]\/4\), \(1\/4\), \(\[ImaginaryI]\/4\)}, {\(-\(\[ImaginaryI]\/4\)\), \(1\/4\), \(-\(\[ImaginaryI]\/4\)\), \ \(1\/4\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[{ \(Having\ a\ density\ matrix, \ with\ our\ measurement\ operators\ M\_a\ we\ can\ predict\), "\ \[IndentingNewLine]", \(the\ probabilities\ for\ each\ outcome . \ For\ the\ direct\ product\ Hilbert\ space\), "\[IndentingNewLine]", \(considered\ above\ \ we\ could\ have\ outcomes\[IndentingNewLine]\), "\ \[IndentingNewLine]", \(\ \ \ \ \ \ 1\ \ 1\ \ \ \ \ for\ \ state\ \ \ \ \ \ | 0\ 0 > \ \ \ or\ \ \ \ \ \ \ 0\ 0\[IndentingNewLine]\), "\ \[IndentingNewLine]", \(\(-1\)\ \ 1\ \ \ \ \ for\ \ state\ \ \ \ \ | 1\ 0 > \ \ \ \ \ \ or\ \ \ \ \ \ \ \ 1\ 0\[IndentingNewLine]\), "\ \[IndentingNewLine]", \(1\ - 1\ \ \ \ \ for\ \ state\ \ \ \ \ | 0\ 1 > \ \ \ \ \ or\ \ \ \ \ \ \ \ \ 0\ 1\[IndentingNewLine]\), "\ \[IndentingNewLine]", \(\(-1\)\ \ - 1\ \ \ \ \ for\ \ state\ \ \ \ \ | 11 > \ \ \ \(\(or\)\(\ \ \ \ \ \ \ \)\(1\)\(\ \)\(1\)\(\ \ \ \ \ \ \ \ \ \ \)\)\)}], "Input", Evaluatable->False], Cell[BoxData[ \(Whats\ the\ probability\ to\ measure\ \ + 1\ - 1\ \ for\ state\ | \[Psi] > ?\)], "Input", Evaluatable->False], Cell[BoxData[ \(p \((Sz1 = \(+1\), Sz2 = \(-1\))\)\ = \ Tr[\ \ M\^\[Dagger]\ M\ \[Rho]]\)], "Input", Evaluatable->False], Cell[BoxData[ \(where\ M\ = \ \(\(|\)\(01 > < 10\)\(|\)\)\)], "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(state = QubitII[zero1, one2]\)\)\)], "Input"], Cell[BoxData[ \({0, 1, 0, 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(M = Outer[Times, state, Conjugate[state]];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Conjugate[Transpose[M]] . M . \[Rho]\)], "Input"], Cell[BoxData[ \({{0, 0, 0, 0}, {\(-\(\[ImaginaryI]\/4\)\), 1\/4, \(-\(\[ImaginaryI]\/4\)\), 1\/4}, {0, 0, 0, 0}, {0, 0, 0, 0}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Tr[%]\)], "Input"], Cell[BoxData[ \(1\/4\)], "Output"] }, Open ]], Cell[BoxData[{ \(Suppose\ the\ experimentor\ \ only\ has\ a\ measuring\ device\ for\ \ particle1\ \ and\ leaves\ system\), "\[IndentingNewLine]", \(2\ \((particle\ 2)\)\ undisturbed\ in\ the\ measurement\ process?\ then\ we\ only\ have\ two\ outcomes\[IndentingNewLine]\), "\ \[IndentingNewLine]", \(\((\(+1\))\)\ \ \ \((or\ \ 0)\)\ when\ particle\ \ 1\ \ is\ in\ state\ \ | \(\(0\)\(>\)\)\ , and\ \((\(-1\))\)\ \((or\ 1)\)\ when\ particle\ \ 1\ is\ in\ state\ \ | 1 > \(\(.\)\(\[IndentingNewLine]\)\)\)}], "Input"], Cell[CellGroupData[{ Cell[BoxData[{ \(\("\";\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\[Rho]2 = \(unit2 = {{1, 0}, {0, 1}}\)\[IndentingNewLine]\), "\[IndentingNewLine]", \(\(\(\[Rho]1\)\(=\)\(Outer[Times, zero1, zero1]\)\(\ \)\)\)}], "Input"], Cell[BoxData[ \({{1, 0}, {0, 1}}\)], "Output"], Cell[BoxData[ \({{1, 0}, {0, 0}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(M = directoperator[\[Rho]1, \[Rho]2];\)\), "\[IndentingNewLine]", \(MatrixForm[%]\)}], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "0"}, {"0", "1", "0", "0"}, {"0", "0", "0", "0"}, {"0", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Conjugate[Transpose[M]] . M . \[Rho]\)], "Input"], Cell[BoxData[ \({{1\/4, \[ImaginaryI]\/4, 1\/4, \[ImaginaryI]\/4}, {\(-\(\[ImaginaryI]\/4\)\), 1\/4, \(-\(\[ImaginaryI]\/4\)\), 1\/4}, {0, 0, 0, 0}, {0, 0, 0, 0}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Tr[%]\)], "Input"], Cell[BoxData[ \(1\/2\)], "Output"] }, Open ]] }, FrontEndVersion->"4.1 for X", ScreenRectangle->{{0, 1280}, {0, 1024}}, WindowSize->{748, 615}, WindowMargins->{{227, Automatic}, {Automatic, 15}} ] (******************************************************************* 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[CellGroupData[{ Cell[1727, 52, 115, 2, 43, "Input"], Cell[1845, 56, 50, 1, 27, "Output"], Cell[1898, 59, 50, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1985, 65, 120, 2, 43, "Input"], Cell[2108, 69, 1292, 38, 94, "Output"] }, Open ]], Cell[3415, 110, 79, 1, 27, "Input"], Cell[CellGroupData[{ Cell[3519, 115, 101, 2, 43, "Input"], Cell[3623, 119, 147, 2, 27, "Output"], Cell[3773, 123, 395, 9, 94, "Output"] }, Open ]], Cell[4183, 135, 111, 2, 43, "Input"], Cell[CellGroupData[{ Cell[4319, 141, 156, 3, 59, "Input"], Cell[4478, 146, 62, 1, 27, "Output"], Cell[4543, 149, 58, 1, 27, "Output"], Cell[4604, 152, 336, 12, 94, "Output"] }, Open ]], Cell[4955, 167, 90, 1, 27, "Input"], Cell[5048, 170, 515, 8, 139, "Input"], Cell[CellGroupData[{ Cell[5588, 182, 120, 2, 43, "Input"], Cell[5711, 186, 90, 1, 27, "Output"], Cell[5804, 189, 315, 9, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6156, 203, 125, 2, 43, "Input"], Cell[6284, 207, 369, 9, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6690, 221, 148, 3, 43, "Input"], Cell[6841, 226, 369, 9, 94, "Output"] }, Open ]], Cell[7225, 238, 117, 2, 27, "Input"], Cell[7345, 242, 283, 5, 91, "Input"], Cell[7631, 249, 91, 1, 27, "Input"], Cell[CellGroupData[{ Cell[7747, 254, 108, 2, 43, "Input"], Cell[7858, 258, 236, 8, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8131, 271, 107, 2, 43, "Input"], Cell[8241, 275, 236, 8, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8514, 288, 107, 2, 43, "Input"], Cell[8624, 292, 236, 8, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8897, 305, 106, 2, 43, "Input"], Cell[9006, 309, 236, 8, 94, "Output"] }, Open ]], Cell[9257, 320, 323, 7, 44, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[9605, 331, 129, 2, 59, "Input"], Cell[9737, 335, 46, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9820, 341, 145, 3, 43, "Input"], Cell[9968, 346, 321, 9, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10326, 360, 101, 2, 43, "Input"], Cell[10430, 364, 240, 8, 94, "Output"] }, Open ]], Cell[10685, 375, 79, 1, 27, "Input"], Cell[10767, 378, 293, 5, 69, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[11085, 387, 144, 2, 43, "Input"], Cell[11232, 391, 38, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11307, 397, 147, 2, 43, "Input"], Cell[11457, 401, 62, 1, 48, "Output"], Cell[11522, 404, 38, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11597, 410, 121, 2, 43, "Input"], Cell[11721, 414, 420, 14, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12178, 433, 148, 3, 43, "Input"], Cell[12329, 438, 369, 9, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12735, 452, 55, 1, 27, "Input"], Cell[12793, 455, 120, 2, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12950, 462, 78, 1, 27, "Input"], Cell[13031, 465, 38, 1, 27, "Output"] }, Open ]], Cell[13084, 469, 105, 2, 27, "Input", Evaluatable->False], Cell[13192, 473, 281, 5, 43, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[13498, 482, 104, 2, 43, "Input"], Cell[13605, 486, 420, 14, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14062, 505, 159, 4, 43, "Input"], Cell[14224, 511, 515, 11, 126, "Output"] }, Open ]], Cell[14754, 525, 992, 20, 187, "Input", Evaluatable->False], Cell[15749, 547, 143, 3, 27, "Input", Evaluatable->False], Cell[15895, 552, 134, 3, 31, "Input", Evaluatable->False], Cell[16032, 557, 98, 2, 27, "Input", Evaluatable->False], Cell[CellGroupData[{ Cell[16155, 563, 92, 1, 43, "Input"], Cell[16250, 566, 46, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16333, 572, 137, 3, 43, "Input"], Cell[16473, 577, 315, 9, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16825, 591, 69, 1, 27, "Input"], Cell[16897, 594, 162, 3, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17096, 602, 38, 1, 27, "Input"], Cell[17137, 605, 38, 1, 44, "Output"] }, Open ]], Cell[17190, 609, 552, 9, 107, "Input"], Cell[CellGroupData[{ Cell[17767, 622, 326, 5, 91, "Input"], Cell[18096, 629, 50, 1, 27, "Output"], Cell[18149, 632, 50, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18236, 638, 123, 2, 43, "Input"], Cell[18362, 642, 315, 9, 94, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18714, 656, 69, 1, 27, "Input"], Cell[18786, 659, 207, 4, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19030, 668, 38, 1, 27, "Input"], Cell[19071, 671, 38, 1, 44, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)