(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 54466, 1362] NotebookOptionsPosition[ 52018, 1278] NotebookOutlinePosition[ 52399, 1294] CellTagsIndexPosition[ 52356, 1291] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Define the the decimal Bernoulli shift map: (Keeping plenty of accuracy)\ \>", "Text", CellChangeTimes->{{3.4685169813459997`*^9, 3.4685169914969997`*^9}, { 3.4685170412060003`*^9, 3.468517058093*^9}, {3.468518921547*^9, 3.4685189320030003`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"B", "[", "x_", "]"}], ":=", RowBox[{"N", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"10", " ", "x"}], ",", "1"}], "]"}], ",", "200"}], "]"}]}]], "Input", CellChangeTimes->{{3.4685170919700003`*^9, 3.468517134475*^9}, 3.468517790198*^9, {3.468518259139*^9, 3.468518264498*^9}, { 3.4685182990889997`*^9, 3.468518300432*^9}, {3.468518332439*^9, 3.468518335038*^9}, {3.4685186319890003`*^9, 3.468518632781*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B", "[", "3.14159", "]"}]], "Input", CellChangeTimes->{{3.4685171540290003`*^9, 3.468517166416*^9}}], Cell[BoxData[ FormBox["0.4159000000000006`", TraditionalForm]], "Output", CellChangeTimes->{{3.4685171680109997`*^9, 3.468517174201*^9}, 3.4685177923199997`*^9, 3.468518267236*^9, 3.4685183020889997`*^9, 3.49400223470644*^9}] }, Open ]], Cell["Take another step", "Text", CellChangeTimes->{{3.494002193756368*^9, 3.4940021983427763`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.468517516234*^9, 3.468517518084*^9}}], Cell[BoxData[ FormBox["0.15900000000000603`", TraditionalForm]], "Output", CellChangeTimes->{3.468517519084*^9, 3.4685177934379997`*^9, 3.468518268611*^9, 3.4940022372804446`*^9}] }, Open ]], Cell["And another", "Text", CellChangeTimes->{{3.494002204005586*^9, 3.4940022060179896`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"B", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.468517526499*^9, 3.46851752898*^9}}], Cell[BoxData[ FormBox["0.5900000000000603`", TraditionalForm]], "Output", CellChangeTimes->{3.468517529877*^9, 3.468517794425*^9, 3.4685182695*^9, 3.494002239136848*^9}] }, Open ]], Cell["\<\ Make a table of points for \[Pi] for repeated applications - NestList works \ well for this\ \>", "Text", CellChangeTimes->{{3.4685176142060003`*^9, 3.468517630153*^9}, { 3.468517719192*^9, 3.468517734895*^9}, {3.4685179038129997`*^9, 3.468517904494*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data1", "=", RowBox[{"NestList", "[", RowBox[{"B", ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Pi", "/", "10"}], ",", "200"}], "]"}], ",", "100"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.468517632913*^9, 3.4685176428450003`*^9}, { 3.4685177416400003`*^9, 3.468517760703*^9}, {3.4685178257469997`*^9, 3.4685178853450003`*^9}, {3.4685179166949997`*^9, 3.468517917342*^9}, { 3.468518093381*^9, 3.468518094356*^9}, {3.4685181886070004`*^9, 3.4685181898859997`*^9}, {3.46851830712*^9, 3.4685183100550003`*^9}, { 3.468518359461*^9, 3.468518362421*^9}, {3.468518554818*^9, 3.468518561993*^9}, {3.468518601703*^9, 3.468518646293*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot1", "=", RowBox[{"ListPlot", "[", RowBox[{"data1", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thickness", "[", "0.01`", "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.468518745705*^9, 3.468518748145*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[0.01], LineBox[CompressedData[" 1:eJw1lAlQ1GUYxjclWyJGCYTFxKCIbOM+AhZ1H1jum112F0k7MBIiiEjFzHJj EJSYIA0EwYWMY1BwiEwuxeWaNA4DCUFXjpBKjpDY5NSO4f12Zmfnt8/3/P/v +ZlFfSCOXsPhcKL/+/7/u/p5IBx5UHjA5rk+If2B1B4Pzx+ebyHmItcoWJqh vE28AfW3jM91R7URGyCkABVa878S82Ckl1ZoXTZNvBnt0o8FJcs/E5tioPIN c6eJe8QvIEFVE6dvMUpsjpPc+djUxX5iCwzxb+rlDrPnb0VFpbBG3ThFzEdu 0+GHStkMsSXUHw4XO0XdJ7ZGflKDL6+fxWMLzVz2hfF6lq8duOsl384e7Sa2 Bz+gyLbuzACxA3qSN8/lGUwSOyJgl+vjvwruEjshuWvLfJMOy+c1BOrGBE9O sHydcciDeywvl+kuSLMrLZ5ovUPsCreZj7z55b8QCxAUka4qS2fvd0NKfUmL e9kE8TbYfjbk+OIjFv92qKerN7w11kO8A4Gl+yQjiSx/IRb2fenRGvMnMXDx q+z8YqORVVYAfLNLmqvHzpDujoa+2YXk/b2ku+Psy/VqeQCrtwekmW5FCbMU j8IDZQ/LEkvUbD5EWPTU6RrYdp10ERIsCzlbeKw/nvC9bLzOcvY30j0hjntS M3KhnXQvBGbqRtk7Md0LK4fS++b1WfzeqCrIOb0ra5B0b7z59JTWjU72fB80 7HWxM+TQeYUPUjbFDDQ+werpi+OpXMF57h+k+yLSSupZLaN6cPzAtVRGbjRq JN0PJYmvG5zvqiLdH+9a1E9lFNM8Kvzx+IibMN6L9ScAtf8EjOoN/kR6AERL M/nRf9eRHoi+hTjOVXuKVxEI/zpnrQPLv5MehI7oyHCX0mHSg7Cw0lpqLGD5 ByOmNWSOk6EmPRj6Z00+136HzWMIdvO/PmqjYfGFoLz8uvOd42z+Q7HOPqUW GV2rjFCYLmXkiL6/SedDwd1YuztrzcVVVoXC/7a5k8NaNk9hGE1L1OeYUr4I g0A/R3sth/qnCMOz1ZpTTylo3lVh2NNsMnyKw+ZDjPedy9QNRtXkF8On/cbJ ChM6rxDjRKxbpjCM5k8lxuD6V65sz2X7J8FB5ek9sUNj5JegpWVrdrKK1VsC e2cbkVy7lvwSPNZa1q/qYPMbjkm77h9bNFR/hMNqTre7IIv1IxxtR754xrCQ 3qcKx7lHSZ+qeWx/pfDpWe50naV9gxRvG05yzC5RfRRSVK1Mnyju+4b8Ugx8 UlF7zY/dZzIk9Sstb40OkV8GV9tNww6xbJ9kONymk6DrQveHSob3+gUWIh67 H+UQqfJWdozTfQE5ilLm7+7XUH0VcsQ4yuROxh3kl+Ml3uVe/sIV8keg7mCl Sf8A9QsR6LSy8TdSsn2LQE1Ik7XP3u/IHwHlWPwSr3mc/Dvx6j3/a4sZlC92 ovr+VG9z/IzwXwAb6To= "]]}, AspectRatio->1, Axes->True, AxesOrigin->{0, Automatic}, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, PlotRange->Automatic, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{ 3.468517952675*^9, {3.4685184694110003`*^9, 3.4685184943859997`*^9}, 3.468518583351*^9, 3.46851865085*^9, 3.468518750896*^9, 3.494002223942421*^9, 3.494002259167283*^9}] }, Open ]], Cell["Never repeats. Now try trivial rational number", "Text", CellChangeTimes->{{3.468518942474*^9, 3.468518992983*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data2", "=", RowBox[{"NestList", "[", RowBox[{"B", ",", RowBox[{"1", "/", "3"}], ",", "100"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.468517632913*^9, 3.4685176428450003`*^9}, { 3.4685177416400003`*^9, 3.468517760703*^9}, {3.4685178257469997`*^9, 3.4685178853450003`*^9}, {3.4685179166949997`*^9, 3.468517917342*^9}, { 3.468518093381*^9, 3.468518094356*^9}, {3.4685181886070004`*^9, 3.4685181898859997`*^9}, {3.46851830712*^9, 3.4685183100550003`*^9}, { 3.468518359461*^9, 3.468518362421*^9}, {3.468518671332*^9, 3.468518701369*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot2", "=", RowBox[{"ListPlot", "[", RowBox[{"data2", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thickness", "[", "0.01`", "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.4685187604230003`*^9, 3.4685187733190002`*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[0.01], LineBox[CompressedData[" 1:eJxdyzlKREEARdGHkaGBgYGBioiIiPOsv53nqbUdUqFjt1BLq024D5fgCPJP QVGcurzx17dufyBJ/+t+v7/no+n9nPfm76PT9iAewsN4BI/iMTyBJ/EUnsYz eBbP4Xm8gBfxEl7GK3gVr+F1vIE38Rbexjt4Fze403bB2aPj7NNxDug4h3Sc IzrOMR3nhI5zSsc5o+Oc03Eu6DiXdJwrOs41HeeGjnPbdgcXXHHu2OOCK06X PS644tyzxwVXnAf2uOCK02OPC644j+xxwRXniT0uuOI8s8cFV5wX9v/+BP5H gq0= "]]}, AspectRatio->1, Axes->True, AxesOrigin->{0, Automatic}, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, PlotRange->Automatic, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{3.468518775517*^9, 3.494002269276101*^9}] }, Open ]], Cell["\<\ Starts at stable equilbium point. Next a not so trivial rational starting \ point\ \>", "Text", CellChangeTimes->{{3.468519004091*^9, 3.4685190397720003`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data3", "=", RowBox[{"NestList", "[", RowBox[{"B", ",", RowBox[{"1", "/", "7"}], ",", "100"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.468517632913*^9, 3.4685176428450003`*^9}, { 3.4685177416400003`*^9, 3.468517760703*^9}, {3.4685178257469997`*^9, 3.4685178853450003`*^9}, {3.4685179166949997`*^9, 3.468517917342*^9}, { 3.468518093381*^9, 3.468518094356*^9}, {3.4685181886070004`*^9, 3.4685181898859997`*^9}, {3.46851830712*^9, 3.4685183100550003`*^9}, { 3.468518359461*^9, 3.468518362421*^9}, {3.468518671332*^9, 3.468518701369*^9}, {3.4685188002279997`*^9, 3.468518806347*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot3", "=", RowBox[{"ListPlot", "[", RowBox[{"data3", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thickness", "[", "0.01`", "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.4685187604230003`*^9, 3.4685187733190002`*^9}, { 3.468518809501*^9, 3.468518813508*^9}, {3.468518846363*^9, 3.4685188593310003`*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[0.01], LineBox[CompressedData[" 1:eJxdzjlOw0AUgGGLipKCgoICUIQQQijsO37Z46z2eE2LlBJxhTlDDhNaiyPQ 0lHQ0HAEEjJCer81lvX8NJ/+3acXM13zPG+6eJff1fPjzyrB4rz57od8zJ+X x83rstq/u3nD7b/dvOn2n27ekte/619u3hbt78Dfg1+Bvw//AP4h/CP4x/Cr 8E/gn8I/g38O/wL+Jfwr+Nfwb+Dfwr+Dfw//Af4jfB++aN8K/Jr2bQ1+Xfu2 Dr8BvwG/Cb8JvwW/Bb8Nvw2/A78Dvwu/Cz+AH8Dvwe/B78Pvwx/AH8Afwh/C H8EfwR/DH8MPtS+h9m2o/TKEH2lfIu3bSPtlhH6jfTHat0b7pUF/jP4Y/TH6 Y/Qn6E/Qn6A/QX+K/hT9KfpT9Gfoz9CfoT9Df47+HP05+nP0F+gv0F+gv0D/ BP2Tf/8X16TorA== "]]}, AspectRatio->1, Axes->True, AxesOrigin->{0, Automatic}, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, ImageSize->{480., Automatic}, PlotRange->{0, 1}, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{ 3.468518814284*^9, {3.4685188557060003`*^9, 3.4685188597460003`*^9}, 3.4940022807889214`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot3A", "=", RowBox[{"ListPlot", "[", RowBox[{"data3", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"80", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thickness", "[", "0.01`", "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.4685187604230003`*^9, 3.4685187733190002`*^9}, { 3.468518809501*^9, 3.468518813508*^9}, {3.468518846363*^9, 3.468518906984*^9}, {3.468519068775*^9, 3.46851906927*^9}, 3.4685193297200003`*^9}], Cell[BoxData[ FormBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[0.01], LineBox[CompressedData[" 1:eJxdzjlOw0AUgGGLipKCgoICUIQQQijsO37Z46z2eE2LlBJxhTlDDhNaiyPQ 0lHQ0HAEEjJCer81lvX8NJ/+3acXM13zPG+6eJff1fPjzyrB4rz57od8zJ+X x83rstq/u3nD7b/dvOn2n27ekte/619u3hbt78Dfg1+Bvw//AP4h/CP4x/Cr 8E/gn8I/g38O/wL+Jfwr+Nfwb+Dfwr+Dfw//Af4jfB++aN8K/Jr2bQ1+Xfu2 Dr8BvwG/Cb8JvwW/Bb8Nvw2/A78Dvwu/Cz+AH8Dvwe/B78Pvwx/AH8Afwh/C H8EfwR/DH8MPtS+h9m2o/TKEH2lfIu3bSPtlhH6jfTHat0b7pUF/jP4Y/TH6 Y/Qn6E/Qn6A/QX+K/hT9KfpT9Gfoz9CfoT9Df47+HP05+nP0F+gv0F+gv0D/ BP2Tf/8X16TorA== "]]}, AspectRatio->1, Axes->True, AxesOrigin->{0, Automatic}, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, PlotRange->{{80, 93}, {0, 1}}, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{{3.468518895466*^9, 3.468518907698*^9}, 3.468519069988*^9, 3.468519330501*^9, 3.494002287496933*^9}] }, Open ]], Cell["Make it a 2-D plot", "Text", CellChangeTimes->{{3.468520591916*^9, 3.468520596083*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot3B", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"data3", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data3", "[", RowBox[{"[", "n", "]"}], "]"}], ",", RowBox[{"data3", "[", RowBox[{"[", RowBox[{"n", "+", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "9"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01`", "]"}], ",", "Blue"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.4685187604230003`*^9, 3.4685187733190002`*^9}, { 3.468518809501*^9, 3.468518813508*^9}, {3.468518846363*^9, 3.468518906984*^9}, {3.468519068775*^9, 3.46851906927*^9}, { 3.468519321625*^9, 3.468519395212*^9}, {3.468519981332*^9, 3.4685199873459997`*^9}, {3.4685203203459997`*^9, 3.4685203975810003`*^9}, { 3.468520432035*^9, 3.468520524841*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}, {0.8571428571428571, 0.5714285714285714}, {0.5714285714285714, 0.7142857142857143}, { 0.7142857142857143, 0.14285714285714285`}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{{3.468520454427*^9, 3.4685205254189997`*^9}, 3.4940023088533707`*^9}] }, Open ]], Cell["Display this a setp at-a-time", "Text", CellChangeTimes->{{3.4940023278074036`*^9, 3.494002338774223*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"data3", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data3", "[", RowBox[{"[", "n", "]"}], "]"}], ",", RowBox[{"data3", "[", RowBox[{"[", RowBox[{"n", "+", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "M"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01`", "]"}], ",", "Blue"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "M"}]}], "]"}], ",", RowBox[{"{", RowBox[{"M", ",", "1", ",", "9"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.468520620256*^9, 3.468520717723*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["1", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["2", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["3", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}, {0.8571428571428571, 0.5714285714285714}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["4", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}, {0.8571428571428571, 0.5714285714285714}, {0.5714285714285714, 0.7142857142857143}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["5", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}, {0.8571428571428571, 0.5714285714285714}, {0.5714285714285714, 0.7142857142857143}, { 0.7142857142857143, 0.14285714285714285`}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["6", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}, {0.8571428571428571, 0.5714285714285714}, {0.5714285714285714, 0.7142857142857143}, { 0.7142857142857143, 0.14285714285714285`}, {0.14285714285714285`, 0.42857142857142855`}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["7", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}, {0.8571428571428571, 0.5714285714285714}, {0.5714285714285714, 0.7142857142857143}, { 0.7142857142857143, 0.14285714285714285`}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["8", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[0, 0, 1], Thickness[0.01], LineBox[{{0.14285714285714285`, 0.}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}, {0.8571428571428571, 0.5714285714285714}, {0.5714285714285714, 0.7142857142857143}, { 0.7142857142857143, 0.14285714285714285`}, {0.14285714285714285`, 0.42857142857142855`}, {0.42857142857142855`, 0.2857142857142857}, { 0.2857142857142857, 0.8571428571428571}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["9", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True]}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{{3.468520658376*^9, 3.468520687514*^9}, 3.468520719284*^9, 3.494002342175029*^9}] }, Open ]], Cell["Stops changing after 7", "Text", CellChangeTimes->{{3.468520744539*^9, 3.468520758858*^9}}], Cell["\<\ The stable equilibrium (attractor) is a cycle of 6 steps (6 values) then \ repeats. For nearby number\ \>", "Text", CellChangeTimes->{{3.468519082218*^9, 3.468519155182*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"data4", "=", RowBox[{"NestList", "[", RowBox[{"B", ",", RowBox[{"10", "/", "69"}], ",", "100"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.468517632913*^9, 3.4685176428450003`*^9}, { 3.4685177416400003`*^9, 3.468517760703*^9}, {3.4685178257469997`*^9, 3.4685178853450003`*^9}, {3.4685179166949997`*^9, 3.468517917342*^9}, { 3.468518093381*^9, 3.468518094356*^9}, {3.4685181886070004`*^9, 3.4685181898859997`*^9}, {3.46851830712*^9, 3.4685183100550003`*^9}, { 3.468518359461*^9, 3.468518362421*^9}, {3.468518671332*^9, 3.468518701369*^9}, {3.4685188002279997`*^9, 3.468518806347*^9}, { 3.468519256594*^9, 3.468519265833*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot4", "=", RowBox[{"ListPlot", "[", RowBox[{"data4", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thickness", "[", "0.01`", "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.4685187604230003`*^9, 3.4685187733190002`*^9}, { 3.468518809501*^9, 3.468518813508*^9}, {3.468518846363*^9, 3.4685188593310003`*^9}, {3.4685192730360003`*^9, 3.468519277571*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ {Hue[0.67, 0.6, 0.6], Thickness[0.01], LineBox[CompressedData[" 1:eJxd0jtIHFEUxvFFi1iKpoiiEMUElSCaTTQ+kj2+Vl1fO7NPwSIIYqFgIVjK MZ1gOgu7BFJrZ7HdRRKwMIggiCYgKoiGSGKXQIrM6EH4voFl+O/hHpgft2Zq 3p8uikQi08EvfN89v2MNN9HEv9XtmP0hu1vFC9fuu3WJ/K14shRfObEulW/L hcW3m9fWD6UyHH/Yt34k78Jx9aV1lZTHPn3eqz+1fizB8snO5kPrWrkd35xb 19n+r9ZPJVjunc0cWNfb/h3rRvkSnI4mflo/k83q9dkHFz+sm+RjcHrtz5F1 s+3fsG6Ru+8/s34u4enj5SvrqNyOy35Zv5C5cFy4sH5p+wvWrbb/vXWboO8r 8m0n3w7y7STfLvJ9Tb5vyDdGvoK+KuTbjb7aTb496Ks95NuLvtpLvn3oq33k 24++2k++cfTVOPkOoK8OkO8g+uog+Q6hrw6RbwJ9NUG+w+Q7TL4j5DtCvqPk O0q+Y+Q7Rr7j5DtOvkn0lST6ahJ9XZJ8PfQVD33VQ1/nka+PvuKjr/ro63zy TaGvpNBXU+jrUuSbRl9Jo6+m0delyTeDvpJBX82gr8vQ/c2ir2TRV7Po67J0 f3PoKzn01Rz6uhzd3zz6Sh59NY++Lk/3dwJ9ZeLe9z+2tPoE "]]}, AspectRatio->1, Axes->True, AxesOrigin->{0, Automatic}, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, PlotRange->{0, 1}, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{3.46851927865*^9, 3.4940023611758623`*^9}] }, Open ]], Cell["Longer period - 22", "Text", CellChangeTimes->{{3.468519302382*^9, 3.468519309429*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot4A", "=", RowBox[{"ListPlot", "[", RowBox[{"data4", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"56", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01`", "]"}], ",", "Red"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.4685187604230003`*^9, 3.4685187733190002`*^9}, { 3.468518809501*^9, 3.468518813508*^9}, {3.468518846363*^9, 3.468518906984*^9}, {3.468519068775*^9, 3.46851906927*^9}, { 3.468519321625*^9, 3.468519395212*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxd0jtIHFEUxvFFi1iKpoiiEMUElSCaTTQ+kj2+Vl1fO7NPwSIIYqFgIVjK MZ1gOgu7BFJrZ7HdRRKwMIggiCYgKoiGSGKXQIrM6EH4voFl+O/hHpgft2Zq 3p8uikQi08EvfN89v2MNN9HEv9XtmP0hu1vFC9fuu3WJ/K14shRfObEulW/L hcW3m9fWD6UyHH/Yt34k78Jx9aV1lZTHPn3eqz+1fizB8snO5kPrWrkd35xb 19n+r9ZPJVjunc0cWNfb/h3rRvkSnI4mflo/k83q9dkHFz+sm+RjcHrtz5F1 s+3fsG6Ru+8/s34u4enj5SvrqNyOy35Zv5C5cFy4sH5p+wvWrbb/vXWboO8r 8m0n3w7y7STfLvJ9Tb5vyDdGvoK+KuTbjb7aTb496Ks95NuLvtpLvn3oq33k 24++2k++cfTVOPkOoK8OkO8g+uog+Q6hrw6RbwJ9NUG+w+Q7TL4j5DtCvqPk O0q+Y+Q7Rr7j5DtOvkn0lST6ahJ9XZJ8PfQVD33VQ1/nka+PvuKjr/ro63zy TaGvpNBXU+jrUuSbRl9Jo6+m0delyTeDvpJBX82gr8vQ/c2ir2TRV7Po67J0 f3PoKzn01Rz6uhzd3zz6Sh59NY++Lk/3dwJ9ZeLe9z+2tPoE "]]}, AspectRatio->1, Axes->True, AxesOrigin->{0, Automatic}, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, PlotRange->{{56, 100}, {0, 1}}, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{{3.4685193564630003`*^9, 3.468519395775*^9}, 3.4940023676186733`*^9}] }, Open ]], Cell["Complicated, but clearly 2 cycles of length 22. In 2 D", "Text", CellChangeTimes->{{3.468519412079*^9, 3.46851942559*^9}, {3.468519918986*^9, 3.4685199233380003`*^9}, {3.4940023859019055`*^9, 3.4940023893807116`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot4B", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"data4", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data4", "[", RowBox[{"[", "n", "]"}], "]"}], ",", RowBox[{"data4", "[", RowBox[{"[", RowBox[{"n", "+", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "28"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01`", "]"}], ",", "Red"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46851794723*^9, 3.468517949334*^9}, {3.468518476712*^9, 3.468518493678*^9}, {3.4685187604230003`*^9, 3.4685187733190002`*^9}, { 3.468518809501*^9, 3.468518813508*^9}, {3.468518846363*^9, 3.468518906984*^9}, {3.468519068775*^9, 3.46851906927*^9}, { 3.468519321625*^9, 3.468519395212*^9}, {3.468519981332*^9, 3.4685199873459997`*^9}, {3.4685203203459997`*^9, 3.4685203975810003`*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4Urr8AUA 8s3yXw== "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 18}, PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], TraditionalForm]], "Output", CellChangeTimes->{{3.4685203356879997`*^9, 3.468520398553*^9}, 3.4940023923915167`*^9}] }, Open ]], Cell["By step", "Text", CellChangeTimes->{{3.4940024023287344`*^9, 3.494002403685937*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"data4", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data4", "[", RowBox[{"[", "n", "]"}], "]"}], ",", RowBox[{"data4", "[", RowBox[{"[", RowBox[{"n", "+", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "M"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.01`", "]"}], ",", "Red"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", " ", FractionBox["1", "1"]}]}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "16"}]}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "M"}]}], "]"}], ",", RowBox[{"{", RowBox[{"M", ",", "1", ",", "28"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.468520620256*^9, 3.468520717723*^9}, {3.468520900656*^9, 3.468520956861*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["1", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["2", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["3", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["4", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["5", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["6", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["7", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["8", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["9", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["10", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}, {0.3188405797101449, 0.18840579710144928`}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["11", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}, {0.3188405797101449, 0.18840579710144928`}, { 0.18840579710144928`, 0.8840579710144928}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["12", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}, {0.3188405797101449, 0.18840579710144928`}, { 0.18840579710144928`, 0.8840579710144928}, {0.8840579710144928, 0.8405797101449275}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["13", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}, {0.3188405797101449, 0.18840579710144928`}, { 0.18840579710144928`, 0.8840579710144928}, {0.8840579710144928, 0.8405797101449275}, {0.8405797101449275, 0.4057971014492754}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["14", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}, {0.3188405797101449, 0.18840579710144928`}, { 0.18840579710144928`, 0.8840579710144928}, {0.8840579710144928, 0.8405797101449275}, {0.8405797101449275, 0.4057971014492754}, { 0.4057971014492754, 0.057971014492753624`}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["15", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}, {0.3188405797101449, 0.18840579710144928`}, { 0.18840579710144928`, 0.8840579710144928}, {0.8840579710144928, 0.8405797101449275}, {0.8405797101449275, 0.4057971014492754}, { 0.4057971014492754, 0.057971014492753624`}, {0.057971014492753624`, 0.5797101449275363}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["16", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[{{0.14492753623188406`, 0.}, {0.14492753623188406`, 0.4492753623188406}, {0.4492753623188406, 0.4927536231884058}, { 0.4927536231884058, 0.927536231884058}, {0.927536231884058, 0.2753623188405797}, {0.2753623188405797, 0.7536231884057971}, { 0.7536231884057971, 0.5362318840579711}, {0.5362318840579711, 0.36231884057971014`}, {0.36231884057971014`, 0.6231884057971014}, { 0.6231884057971014, 0.2318840579710145}, {0.2318840579710145, 0.3188405797101449}, {0.3188405797101449, 0.18840579710144928`}, { 0.18840579710144928`, 0.8840579710144928}, {0.8840579710144928, 0.8405797101449275}, {0.8405797101449275, 0.4057971014492754}, { 0.4057971014492754, 0.057971014492753624`}, {0.057971014492753624`, 0.5797101449275363}, {0.5797101449275363, 0.7971014492753623}}]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["17", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBmIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/tAbBfnd0= "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["18", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczewDZRqam "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["19", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xd6c9AJMTr/c= "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["20", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQA2IQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbaw8A5dW5Gw== "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["21", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2IQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4QoAxJnB oQ== "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["22", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4YoevgAp XcqB "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["23", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4UoofAEf ytLj "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["24", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAmIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4Upq+AIA lJbbSw== "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["25", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBmIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4Upp+AIA lKXjTA== "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["26", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAWIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4Urt8AUA BM7qiw== "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["27", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True], ",", GraphicsBox[ {RGBColor[1, 0, 0], Thickness[0.01], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQBWIQrfnR2OtPzyF7BiiA8c9sZS5+e+AOnP4pqVrn1nkf Tt9u3FmWsO4tnJYCCc+/CKebQMKyL+C0sP3iI+c1HsJpoKEx1gbX4TRY+ONj OA0x9yycBhoa+Cj9CpyGmHsCTh8F6jL2egOn18nOyGZ/9gpOLwDqmvLjJpyG mLsWTkP8/QhOg3TdanwJp8HCQu/hdA5IeOczOA0xdyechpjbC6dh4Urr8AUA 8s3yXw== "]]}, AspectRatio->1, Axes->True, BaseStyle->{FontFamily -> "Times", FontSize -> 16}, PlotLabel->FormBox["28", TraditionalForm], PlotRange->{{0, 1}, {0, 1}}, PlotRangeClipping->True]}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{{3.468520916861*^9, 3.4685209576610003`*^9}, 3.4940024055579405`*^9}] }, Open ]], Cell["Stable after 23", "Text", CellChangeTimes->{{3.468520965623*^9, 3.4685209690299997`*^9}}] }, WindowSize->{951, 730}, WindowMargins->{{31, Automatic}, {Automatic, 18}}, Magnification->1.0999996662139893`, FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 263, 5, 30, "Text"], Cell[811, 27, 489, 12, 32, "Input"], Cell[CellGroupData[{ Cell[1325, 43, 125, 2, 32, "Input"], Cell[1453, 47, 235, 4, 31, "Output"] }, Open ]], Cell[1703, 54, 101, 1, 30, "Text"], Cell[CellGroupData[{ Cell[1829, 59, 114, 2, 32, "Input"], Cell[1946, 63, 184, 3, 31, "Output"] }, Open ]], Cell[2145, 69, 95, 1, 30, "Text"], Cell[CellGroupData[{ Cell[2265, 74, 113, 2, 32, "Input"], Cell[2381, 78, 174, 3, 31, "Output"] }, Open ]], Cell[2570, 84, 271, 6, 30, "Text"], Cell[2844, 92, 714, 15, 32, "Input"], Cell[CellGroupData[{ Cell[3583, 111, 680, 16, 76, "Input"], Cell[4266, 129, 2006, 39, 410, "Output"] }, Open ]], Cell[6287, 171, 123, 1, 30, "Text"], Cell[6413, 174, 607, 12, 32, "Input"], Cell[CellGroupData[{ Cell[7045, 190, 690, 16, 76, "Input"], Cell[7738, 208, 692, 17, 405, "Output"] }, Open ]], Cell[8445, 228, 171, 4, 30, "Text"], Cell[8619, 234, 652, 12, 32, "Input"], Cell[CellGroupData[{ Cell[9296, 250, 883, 21, 76, "Input"], Cell[10182, 273, 915, 22, 562, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11134, 300, 1065, 26, 76, "Input"], Cell[12202, 328, 898, 20, 427, "Output"] }, Open ]], Cell[13115, 351, 94, 1, 30, "Text"], Cell[CellGroupData[{ Cell[13234, 356, 1852, 48, 96, "Input"], Cell[15089, 406, 823, 17, 407, "Output"] }, Open ]], Cell[15927, 426, 113, 1, 30, "Text"], Cell[CellGroupData[{ Cell[16065, 431, 1627, 46, 124, "Input"], Cell[17695, 479, 5265, 116, 726, "Output"] }, Open ]], Cell[22975, 598, 98, 1, 30, "Text"], Cell[23076, 601, 186, 4, 30, "Text"], Cell[23265, 607, 697, 13, 32, "Input"], Cell[CellGroupData[{ Cell[23987, 624, 928, 21, 76, "Input"], Cell[24918, 647, 1039, 22, 423, "Output"] }, Open ]], Cell[25972, 672, 94, 1, 30, "Text"], Cell[CellGroupData[{ Cell[26091, 677, 1135, 28, 76, "Input"], Cell[27229, 707, 1081, 23, 422, "Output"] }, Open ]], Cell[28325, 733, 228, 2, 30, "Text"], Cell[CellGroupData[{ Cell[28578, 739, 1809, 47, 96, "Input"], Cell[30390, 788, 641, 16, 407, "Output"] }, Open ]], Cell[31046, 807, 91, 1, 30, "Text"], Cell[CellGroupData[{ Cell[31162, 812, 1670, 47, 124, "Input"], Cell[32835, 861, 19068, 411, 1956, "Output"] }, Open ]], Cell[51918, 1275, 96, 1, 30, "Text"] } ] *) (* End of internal cache information *)