(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' 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[ 17701, 589]*) (*NotebookOutlinePosition[ 18399, 613]*) (* CellTagsIndexPosition[ 18355, 609]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(TAnts = {{0, 1/2, 0, 1/3, 1/3}, {1/3, 0, 1/3, 0, 0}, {0, 1/2, 0, 1/3, 1/3}, {1/3, 0, 1/3, 0, 1/3}, {1/3, 0, 1/3, 1/3, 0}}\)\)\)], "Input"], Cell[BoxData[ \({{0, 1\/2, 0, 1\/3, 1\/3}, {1\/3, 0, 1\/3, 0, 0}, {0, 1\/2, 0, 1\/3, 1\/3}, {1\/3, 0, 1\/3, 0, 1\/3}, {1\/3, 0, 1\/3, 1\/3, 0}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[TAnts]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", \(1\/2\), "0", \(1\/3\), \(1\/3\)}, {\(1\/3\), "0", \(1\/3\), "0", "0"}, {"0", \(1\/2\), "0", \(1\/3\), \(1\/3\)}, {\(1\/3\), "0", \(1\/3\), "0", \(1\/3\)}, {\(1\/3\), "0", \(1\/3\), \(1\/3\), "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(X0 := {{0}, {0}, {0}, {1}, {0}}\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[N[MatrixPower[TAnts, 400] . X0]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.21428571428571427`"}, {"0.14285714285714285`"}, {"0.21428571428571427`"}, {"0.21428571428571427`"}, {"0.21428571428571427`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[N[MatrixPower[TAnts, 400]]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`"}, {"0.14285714285714285`", "0.14285714285714288`", "0.14285714285714285`", "0.14285714285714285`", "0.14285714285714285`"}, {"0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`"}, {"0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`"}, {"0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`", "0.21428571428571427`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[TAnts]\)], "Input"], Cell[BoxData[ \({1, 1\/3\ \((\(-1\) - \@2)\), \(-\(1\/3\)\), 1\/3\ \((\(-1\) + \@2)\), 0}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvectors[TAnts]\)], "Input"], Cell[BoxData[ \({{1, 2\/3, 1, 1, 1}, {\(-\(1\/2\)\) + 1\/2\ \((\(-1\) - \@2)\), \@2, \(-\(1\/2\)\) + 1\/2\ \((\(-1\) - \@2)\), 1, 1}, {0, 0, 0, \(-1\), 1}, {\(-\(1\/2\)\) + 1\/2\ \((\(-1\) + \@2)\), \(-\@2\), \(-\(1\/2\)\) + 1\/2\ \((\(-1\) + \@2)\), 1, 1}, {\(-1\), 0, 1, 0, 0}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(\(Eigenvectors[TAnts]\)[\([1]\)]/\((14/3)\)\)], "Input"], Cell[BoxData[ \({3\/14, 1\/7, 3\/14, 3\/14, 3\/14}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(N[%]\)], "Input"], Cell[BoxData[ \({0.21428571428571427`, 0.14285714285714285`, 0.21428571428571427`, 0.21428571428571427`, 0.21428571428571427`}\)], "Output"] }, Open ]], Cell[BoxData[ \(TRats := {{1, 1/2, \ 1/3, \ 0, 0, 0}, {0, 0, \ 0, 1/3, 0, 0}, {0, 0, 0, 1/3, 1/2, 0}, {0, 1/2, 1/3, 0, 0, 0}, {0, 0, 1/3, 0, 0, 0}, {0, 0, 0, 1/3, 1/2, 1}}\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[TRats]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(1\/2\), \(1\/3\), "0", "0", "0"}, {"0", "0", "0", \(1\/3\), "0", "0"}, {"0", "0", "0", \(1\/3\), \(1\/2\), "0"}, {"0", \(1\/2\), \(1\/3\), "0", "0", "0"}, {"0", "0", \(1\/3\), "0", "0", "0"}, {"0", "0", "0", \(1\/3\), \(1\/2\), "1"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[N[MatrixPower[TRats, 5]]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.`", "0.6867283950617284`", "0.5380658436213992`", "0.3734567901234568`", "0.24074074074074073`", "0.`"}, {"0.`", "0.`", "0.`", "0.03189300411522634`", "0.024691358024691357`", "0.`"}, {"0.`", "0.`", "0.`", "0.056584362139917695`", "0.047839506172839504`", "0.`"}, {"0.`", "0.047839506172839504`", "0.056584362139917695`", "0.`", "0.`", "0.`"}, {"0.`", "0.024691358024691357`", "0.03189300411522634`", "0.`", "0.`", "0.`"}, {"0.`", "0.24074074074074073`", "0.3734567901234568`", "0.5380658436213992`", "0.6867283950617284`", "1.`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[N[MatrixPower[TRats, 6]]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.`", "0.6867283950617284`", "0.5380658436213992`", "0.4082647462277092`", "0.2690329218106996`", "0.`"}, {"0.`", "0.01594650205761317`", "0.01886145404663923`", "0.`", "0.`", "0.`"}, {"0.`", "0.028292181069958847`", "0.0348079561042524`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.`", "0.0348079561042524`", "0.028292181069958847`", "0.`"}, {"0.`", "0.`", "0.`", "0.01886145404663923`", "0.01594650205761317`", "0.`"}, {"0.`", "0.2690329218106996`", "0.4082647462277092`", "0.5380658436213992`", "0.6867283950617284`", "1.`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(X0\ = \ {{0}, {0}, {0}, {0}, {1}, {0}}\)], "Input"], Cell[BoxData[ \({{0}, {0}, {0}, {0}, {1}, {0}}\)], "Output"] }, Open ]], Cell[BoxData[ \(\(MatrixPower[TRats, 100] . X0;\)\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(N[%]\)], "Input"], Cell[BoxData[ \({{0.2857142857142857`}, {0.`}, {0.`}, {1.3095475282174608`*^-22}, \ {7.183965204884268`*^-23}, {0.7142857142857143`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvalues[TRats]\)], "Input"], Cell[BoxData[ \({1, 1, 1\/6\ \((\(-1\) - \@7)\), 1\/6\ \((1 + \@7)\), 1\/6\ \((1 - \@7)\), 1\/6\ \((\(-1\) + \@7)\)}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Eigenvectors[TRats]\)], "Input"], Cell[BoxData[ \({{0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0}, {\(-1\), 8\/3 + 1\/3\ \((\(-1\) - \@7)\), \@7, \(-\@7\), \(-\(8\/3\)\) + 1\/3\ \((1 + \@7)\), 1}, {1, \(-3\) + \@7, 2 - \@7, 2 - \@7, \(-3\) + \@7, 1}, {1, \(-3\) - \@7, 2 + \@7, 2 + \@7, \(-3\) - \@7, 1}, {\(-1\), 8\/3 + 1\/3\ \((\(-1\) + \@7)\), \(-\@7\), \@7, \(-\(8\/3\)\) + 1\/3\ \((1 - \@7)\), 1}}\)], "Output"] }, Open ]], Cell[BoxData[ \(TaRts := {{0, 0, 1/3, 0, 0, 0}, {0, 0, 1/3, 1/2, 0, 0}, {1/2, 1/3, 0, 0, 0, 0}, {0, 1/3, 0, 0, 0, 0}, {1/2, 1/3, 0, 0, 1, 0}, {0, 0, 1/3, 1/2, 0, 1}}\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[TaRts]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", \(1\/3\), "0", "0", "0"}, {"0", "0", \(1\/3\), \(1\/2\), "0", "0"}, {\(1\/2\), \(1\/3\), "0", "0", "0", "0"}, {"0", \(1\/3\), "0", "0", "0", "0"}, {\(1\/2\), \(1\/3\), "0", "0", "1", "0"}, {"0", "0", \(1\/3\), \(1\/2\), "0", "1"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{"A", ":=", " ", GridBox[{ {"0", "0", \(1\/3\), "0"}, {"0", "0", \(1\/3\), \(1\/2\)}, {\(1\/2\), \(1\/3\), "0", "0"}, {"0", \(1\/3\), "0", "0"} }]}]], "Input"], Cell[BoxData[ RowBox[{"B", ":=", " ", GridBox[{ {\(1\/2\), \(1\/3\), "0", "0"}, {"0", "0", \(1\/3\), \(1\/2\)} }]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(B\)], "Input"], Cell[BoxData[ \({{1\/2, 1\/3, 0, 0}, {0, 0, 1\/3, 1\/2}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[A]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", \(1\/3\), "0"}, {"0", "0", \(1\/3\), \(1\/2\)}, {\(1\/2\), \(1\/3\), "0", "0"}, {"0", \(1\/3\), "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(F := \ Inverse[IdentityMatrix[4]\ - \ A]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(F\)], "Input"], Cell[BoxData[ \({{26\/21, 4\/21, 10\/21, 2\/21}, {2\/7, 10\/7, 4\/7, 5\/7}, {5\/7, 4\/7, 10\/7, 2\/7}, {2\/21, 10\/21, 4\/21, 26\/21}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[F]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(26\/21\), \(4\/21\), \(10\/21\), \(2\/21\)}, {\(2\/7\), \(10\/7\), \(4\/7\), \(5\/7\)}, {\(5\/7\), \(4\/7\), \(10\/7\), \(2\/7\)}, {\(2\/21\), \(10\/21\), \(4\/21\), \(26\/21\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell["\<\ The (i,j) entry in F gives the expected number of time steps spent \ in state i, if the system started in state j.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[B . F]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(5\/7\), \(4\/7\), \(3\/7\), \(2\/7\)}, {\(2\/7\), \(3\/7\), \(4\/7\), \(5\/7\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell["\<\ The (i,j) entry of B.F (where the row indices - i - are the \ absorbing states) gives the probability that the system will be absorbed into \ state i, if the system started in state j.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[N[%]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.7142857142857143`", "0.5714285714285714`", "0.42857142857142855`", "0.2857142857142857`"}, {"0.2857142857142857`", "0.42857142857142855`", "0.5714285714285714`", "0.7142857142857143`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(A\)], "Input"], Cell[BoxData[ \({{0, 0, 1\/3, 0}, {0, 0, 1\/3, 1\/2}, {1\/2, 1\/3, 0, 0}, {0, 1\/3, 0, 0}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[N[MatrixPower[TaRts, 2]]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.16666666666666666`", "0.1111111111111111`", "0.`", "0.`", "0.`", "0.`"}, {"0.16666666666666666`", "0.2777777777777778`", "0.`", "0.`", "0.`", "0.`"}, {"0.`", "0.`", "0.2777777777777778`", "0.16666666666666666`", "0.`", "0.`"}, {"0.`", "0.`", "0.1111111111111111`", "0.16666666666666666`", "0.`", "0.`"}, {"0.5`", "0.3333333333333333`", "0.2777777777777778`", "0.16666666666666666`", "1.`", "0.`"}, {"0.16666666666666666`", "0.2777777777777778`", "0.3333333333333333`", "0.5`", "0.`", "1.`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[N[MatrixPower[TaRts, 3]]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", "0.09259259259259259`", "0.05555555555555555`", "0.`", "0.`"}, {"0.`", "0.`", "0.14814814814814814`", "0.1388888888888889`", "0.`", "0.`"}, {"0.1388888888888889`", "0.14814814814814814`", "0.`", "0.`", "0.`", "0.`"}, {"0.05555555555555555`", "0.09259259259259259`", "0.`", "0.`", "0.`", "0.`"}, {"0.6388888888888888`", "0.48148148148148145`", "0.2777777777777778`", "0.16666666666666666`", "1.`", "0.`"}, {"0.16666666666666666`", "0.2777777777777778`", "0.48148148148148145`", "0.6388888888888888`", "0.`", "1.`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ \(CopierMatrix := {{ .7, .5}, { .3, .5}}\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[CopierMatrix]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.7`", "0.5`"}, {"0.3`", "0.5`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[MatrixPower[CopierMatrix, 30]]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.6249999999999996`", "0.6249999999999997`"}, {"0.3749999999999997`", "0.37499999999999983`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell["Second copier problem:", "Text"], Cell[BoxData[ \(Copier := \ {{ .699, .498, 0}, { .3, .5, 0}, { .001, .002, 1}}\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[Copier]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.699`", "0.498`", "0"}, {"0.3`", "0.5`", "0"}, {"0.001`", "0.002`", "1"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{\(Clear[A]\), ";", RowBox[{"A", ":=", GridBox[{ {"0.699`", "0.498`"}, {"0.3`", "0.5`"} }]}]}]], "Input"], Cell[BoxData[ RowBox[{\(Clear[B]\), ";", " ", RowBox[{"B", ":=", GridBox[{ {"0.001`", "0.002`"} }]}]}]], "Input"], Cell[BoxData[ \(Clear[F]; \ F := Inverse[IdentityMatrix[2] - A]\)], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(MatrixForm[F]\)], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"454.5454545454461`", "452.7272727272643`"}, {"272.72727272726763`", "273.63636363635857`"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Open ]], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell[BoxData[ \(B . F\)], "Input"], Cell[BoxData[ \({{0.9999999999999813`, 0.9999999999999815`}}\)], "Output"] }, Open ]] }, FrontEndVersion->"5.0 for Macintosh", ScreenRectangle->{{0, 1020}, {0, 746}}, ScreenStyleEnvironment->"Presentation", WindowSize->{908, 617}, WindowMargins->{{55, Automatic}, {Automatic, 50}}, Magnification->1.25 ] (******************************************************************* 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[1776, 53, 207, 3, 120, "Input"], Cell[1986, 58, 179, 3, 111, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2202, 66, 50, 1, 45, "Input"], Cell[2255, 69, 444, 10, 214, "Output"] }, Open ]], Cell[2714, 82, 64, 1, 45, "Input"], Cell[CellGroupData[{ Cell[2803, 87, 76, 1, 45, "Input"], Cell[2882, 90, 369, 10, 164, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3288, 105, 71, 1, 45, "Input"], Cell[3362, 108, 999, 20, 164, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4398, 133, 51, 1, 45, "Input"], Cell[4452, 136, 114, 2, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4603, 143, 52, 1, 45, "Input"], Cell[4658, 146, 348, 6, 158, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5043, 157, 76, 1, 45, "Input"], Cell[5122, 160, 68, 1, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5227, 166, 37, 1, 45, "Input"], Cell[5267, 169, 151, 2, 45, "Output"] }, Open ]], Cell[5433, 174, 210, 3, 95, "Input"], Cell[CellGroupData[{ Cell[5668, 181, 50, 1, 45, "Input"], Cell[5721, 184, 493, 11, 250, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6251, 200, 69, 1, 45, "Input"], Cell[6323, 203, 877, 17, 190, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7237, 225, 69, 1, 45, "Input"], Cell[7309, 228, 869, 17, 190, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8215, 250, 72, 1, 45, "Input"], Cell[8290, 253, 64, 1, 45, "Output"] }, Open ]], Cell[8369, 257, 66, 1, 45, "Input"], Cell[CellGroupData[{ Cell[8460, 262, 37, 1, 45, "Input"], Cell[8500, 265, 151, 2, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8688, 272, 51, 1, 45, "Input"], Cell[8742, 275, 141, 2, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8920, 282, 52, 1, 45, "Input"], Cell[8975, 285, 436, 7, 213, "Output"] }, Open ]], Cell[9426, 295, 204, 3, 95, "Input"], Cell[CellGroupData[{ Cell[9655, 302, 50, 1, 45, "Input"], Cell[9708, 305, 493, 11, 250, "Output"] }, Open ]], Cell[10216, 319, 234, 6, 173, "Input"], Cell[10453, 327, 160, 4, 95, "Input"], Cell[CellGroupData[{ Cell[10638, 335, 34, 1, 45, "Input"], Cell[10675, 338, 74, 1, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10786, 344, 46, 1, 45, "Input"], Cell[10835, 347, 345, 9, 178, "Output"] }, Open ]], Cell[11195, 359, 74, 1, 45, "Input"], Cell[CellGroupData[{ Cell[11294, 364, 34, 1, 45, "Input"], Cell[11331, 367, 161, 2, 111, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11529, 374, 46, 1, 45, "Input"], Cell[11578, 377, 409, 9, 178, "Output"] }, Open ]], Cell[12002, 389, 138, 3, 81, "Text"], Cell[CellGroupData[{ Cell[12165, 396, 50, 1, 45, "Input"], Cell[12218, 399, 287, 7, 106, "Output"] }, Open ]], Cell[12520, 409, 208, 4, 81, "Text"], Cell[CellGroupData[{ Cell[12753, 417, 49, 1, 45, "Input"], Cell[12805, 420, 423, 9, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13265, 434, 34, 1, 45, "Input"], Cell[13302, 437, 117, 2, 64, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13456, 444, 69, 1, 45, "Input"], Cell[13528, 447, 837, 17, 190, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14402, 469, 69, 1, 45, "Input"], Cell[14474, 472, 871, 17, 172, "Output"] }, Open ]], Cell[15360, 492, 73, 1, 45, "Input"], Cell[CellGroupData[{ Cell[15458, 497, 57, 1, 45, "Input"], Cell[15518, 500, 239, 7, 86, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15794, 512, 74, 1, 45, "Input"], Cell[15871, 515, 300, 7, 86, "Output"] }, Open ]], Cell[16186, 525, 38, 0, 53, "Text"], Cell[16227, 527, 109, 2, 45, "Input"], Cell[CellGroupData[{ Cell[16361, 533, 51, 1, 45, "Input"], Cell[16415, 536, 292, 8, 112, "Output"] }, Open ]], Cell[16722, 547, 173, 5, 71, "Input"], Cell[16898, 554, 148, 4, 45, "Input"], Cell[17049, 560, 80, 1, 45, "Input"], Cell[CellGroupData[{ Cell[17154, 565, 46, 1, 45, "Input"], Cell[17203, 568, 297, 7, 86, "Output"] }, Open ]], Cell[17515, 578, 26, 0, 45, "Input"], Cell[CellGroupData[{ Cell[17566, 582, 38, 1, 45, "Input"], Cell[17607, 585, 78, 1, 45, "Output"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)