(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 61051, 1771] NotebookOptionsPosition[ 56029, 1592] NotebookOutlinePosition[ 56410, 1609] CellTagsIndexPosition[ 56367, 1606] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Warm up example of sensitive dependence : x \[Rule] 3 x (mod 1)\ \>", "Subsubtitle", CellChangeTimes->{{3.417173664398755*^9, 3.417173733919413*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"triple", "[", "x_", "]"}], ":=", RowBox[{"Mod", "[", RowBox[{ RowBox[{"3", "x"}], ",", "1"}], "]"}]}]], "Input", CellChangeTimes->{{3.416912990890827*^9, 3.416913007025083*^9}, 3.4169130441944237`*^9}], Cell["Fixed points? 0, obviously. Others?", "Text", CellChangeTimes->{{3.4171737834069233`*^9, 3.41717384524195*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"triple", "[", FractionBox["1", "2"], "]"}]], "Input", CellChangeTimes->{{3.4171737754237747`*^9, 3.417173825633946*^9}}], Cell[BoxData[ FractionBox["1", "2"]], "Output", CellChangeTimes->{3.4171738314600477`*^9}] }, Open ]], Cell["Periodic points? A few examples:", "Text", CellChangeTimes->{{3.4171737834069233`*^9, 3.41717388201999*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["3", "4"], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913094717445*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["3", "4"], ",", FractionBox["1", "4"], ",", FractionBox["3", "4"]}], "}"}]], "Output", CellChangeTimes->{{3.416913084365601*^9, 3.41691309512395*^9}, 3.417173769263648*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["7", "8"], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913094717445*^9}, { 3.417173892216606*^9, 3.417173902465276*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["7", "8"], ",", FractionBox["5", "8"], ",", FractionBox["7", "8"]}], "}"}]], "Output", CellChangeTimes->{{3.4171738962892017`*^9, 3.41717390310859*^9}}] }, Open ]], Cell["Eventually fixed points? ", "Text", CellChangeTimes->{{3.4171737834069233`*^9, 3.41717388201999*^9}, { 3.417173944670953*^9, 3.417173952116503*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["7", "9"], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913094717445*^9}, { 3.417173892216606*^9, 3.417173932877119*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["7", "9"], ",", FractionBox["1", "3"], ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.4171739334239388`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["7", SuperscriptBox["3", "k"]], ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913094717445*^9}, { 3.417173892216606*^9, 3.417173932877119*^9}, {3.417173999935668*^9, 3.417174073089858*^9}, {3.417174229263775*^9, 3.41717424176569*^9}, { 3.417174376284832*^9, 3.417174379070129*^9}, {3.4171744100615263`*^9, 3.417174440418889*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["7", "3"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["7", "9"], ",", FractionBox["1", "3"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["7", "27"], ",", FractionBox["7", "9"], ",", FractionBox["1", "3"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["7", "81"], ",", FractionBox["7", "27"], ",", FractionBox["7", "9"], ",", FractionBox["1", "3"], ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.417174003469418*^9, 3.417174009704234*^9}, { 3.417174043968176*^9, 3.417174073514571*^9}, 3.417174242474599*^9, 3.4171743796449003`*^9, {3.41717441068563*^9, 3.417174441011238*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["5", SuperscriptBox["3", "k"]], ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913094717445*^9}, { 3.417173892216606*^9, 3.417173932877119*^9}, {3.417173999935668*^9, 3.417174073089858*^9}, {3.417174229263775*^9, 3.41717424176569*^9}, { 3.417174376284832*^9, 3.417174390241921*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["5", "3"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "9"], ",", FractionBox["2", "3"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "27"], ",", FractionBox["5", "9"], ",", FractionBox["2", "3"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "81"], ",", FractionBox["5", "27"], ",", FractionBox["5", "9"], ",", FractionBox["2", "3"], ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.4171743905778513`*^9}] }, Open ]], Cell["Eventually periodic points? ", "Text", CellChangeTimes->{{3.4171737834069233`*^9, 3.41717388201999*^9}, { 3.417173944670953*^9, 3.417173952116503*^9}, {3.417174459125175*^9, 3.417174460268887*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["88", "5"], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.417174559248315*^9, 3.417174600118713*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["88", "5"], ",", FractionBox["4", "5"], ",", FractionBox["2", "5"], ",", FractionBox["1", "5"], ",", FractionBox["3", "5"], ",", FractionBox["4", "5"]}], "}"}]], "Output", CellChangeTimes->{3.417174600882824*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["39", "10"], ",", "5"}], "]"}]], "Input", CellChangeTimes->{{3.417174559248315*^9, 3.417174579488778*^9}, 3.4171746110588427`*^9, {3.417174711473166*^9, 3.417174713624015*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["39", "10"], ",", FractionBox["7", "10"], ",", FractionBox["1", "10"], ",", FractionBox["3", "10"], ",", FractionBox["9", "10"], ",", FractionBox["7", "10"]}], "}"}]], "Output", CellChangeTimes->{{3.417174559743709*^9, 3.417174580278923*^9}, 3.417174611655501*^9, 3.417174723648427*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NestList", "[", RowBox[{"triple", ",", FractionBox["18", "43"], ",", "50"}], "]"}]], "Input", CellChangeTimes->{{3.417174559248315*^9, 3.417174579488778*^9}, { 3.4171746110588427`*^9, 3.417174669191277*^9}, {3.417174734323526*^9, 3.4171747344707317`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["18", "43"], ",", FractionBox["11", "43"], ",", FractionBox["33", "43"], ",", FractionBox["13", "43"], ",", FractionBox["39", "43"], ",", FractionBox["31", "43"], ",", FractionBox["7", "43"], ",", FractionBox["21", "43"], ",", FractionBox["20", "43"], ",", FractionBox["17", "43"], ",", FractionBox["8", "43"], ",", FractionBox["24", "43"], ",", FractionBox["29", "43"], ",", FractionBox["1", "43"], ",", FractionBox["3", "43"], ",", FractionBox["9", "43"], ",", FractionBox["27", "43"], ",", FractionBox["38", "43"], ",", FractionBox["28", "43"], ",", FractionBox["41", "43"], ",", FractionBox["37", "43"], ",", FractionBox["25", "43"], ",", FractionBox["32", "43"], ",", FractionBox["10", "43"], ",", FractionBox["30", "43"], ",", FractionBox["4", "43"], ",", FractionBox["12", "43"], ",", FractionBox["36", "43"], ",", FractionBox["22", "43"], ",", FractionBox["23", "43"], ",", FractionBox["26", "43"], ",", FractionBox["35", "43"], ",", FractionBox["19", "43"], ",", FractionBox["14", "43"], ",", FractionBox["42", "43"], ",", FractionBox["40", "43"], ",", FractionBox["34", "43"], ",", FractionBox["16", "43"], ",", FractionBox["5", "43"], ",", FractionBox["15", "43"], ",", FractionBox["2", "43"], ",", FractionBox["6", "43"], ",", FractionBox["18", "43"], ",", FractionBox["11", "43"], ",", FractionBox["33", "43"], ",", FractionBox["13", "43"], ",", FractionBox["39", "43"], ",", FractionBox["31", "43"], ",", FractionBox["7", "43"], ",", FractionBox["21", "43"], ",", FractionBox["20", "43"]}], "}"}]], "Output", CellChangeTimes->{{3.417174656278655*^9, 3.417174669588079*^9}, 3.4171747349650707`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{"Union", "[", "%", "]"}], "]"}]], "Input", CellChangeTimes->{{3.41717475891605*^9, 3.417174762456812*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.417174762892129*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%%", "\[LeftDoubleBracket]", "43", "\[RightDoubleBracket]"}]], "Input", CellChangeTimes->{{3.4171747714447823`*^9, 3.417174775464572*^9}}], Cell[BoxData[ FractionBox["18", "43"]], "Output", CellChangeTimes->{3.417174775887816*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"orbit", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{"#", ",", RowBox[{"Length", "[", RowBox[{"Union", "[", "#", "]"}], "]"}]}], "]"}], "&"}], "[", RowBox[{"NestList", "[", RowBox[{"triple", ",", RowBox[{"Mod", "[", RowBox[{"r", ",", "1"}], "]"}], ",", RowBox[{"Denominator", "[", "r", "]"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.417174559248315*^9, 3.417174579488778*^9}, { 3.4171746110588427`*^9, 3.4171746365055017`*^9}, {3.417174814213099*^9, 3.417174827771738*^9}, {3.41717488274085*^9, 3.417174927842658*^9}, { 3.4171750279170637`*^9, 3.417175035665428*^9}, {3.4171751365879927`*^9, 3.417175153594233*^9}, {3.417175294914806*^9, 3.417175303792802*^9}, 3.4171753674700117`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"orbit", "[", FractionBox["1", "72"], "]"}]], "Input", CellChangeTimes->{{3.417174932990552*^9, 3.417174935900341*^9}, { 3.417175159347727*^9, 3.417175161185549*^9}, {3.4171753220251904`*^9, 3.417175326340599*^9}, 3.417175371533152*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", "72"], ",", FractionBox["1", "24"], ",", FractionBox["1", "8"], ",", FractionBox["3", "8"]}], "}"}]], "Output", CellChangeTimes->{3.417174936439867*^9, 3.417175050041717*^9, 3.417175161719326*^9, 3.417175327067069*^9, 3.417175372097741*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"triple", "[", FractionBox["3", "8"], "]"}]], "Input", CellChangeTimes->{{3.417174938753635*^9, 3.417174950135635*^9}, { 3.417175057914468*^9, 3.4171750603994093`*^9}}], Cell[BoxData[ FractionBox["1", "8"]], "Output", CellChangeTimes->{3.417174950595066*^9, 3.417175061012833*^9, 3.417175164575842*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"orbit", "[", FractionBox["5", "7"], "]"}]], "Input", CellChangeTimes->{{3.417174932990552*^9, 3.417174935900341*^9}, { 3.417175159347727*^9, 3.417175186706915*^9}, 3.4171752338997097`*^9, { 3.41717534824632*^9, 3.417175374861967*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["5", "7"], ",", FractionBox["1", "7"], ",", FractionBox["3", "7"], ",", FractionBox["2", "7"], ",", FractionBox["6", "7"], ",", FractionBox["4", "7"]}], "}"}]], "Output", CellChangeTimes->{ 3.417174936439867*^9, 3.417175050041717*^9, {3.417175161719326*^9, 3.417175187463828*^9}, 3.417175234540497*^9, {3.417175350463492*^9, 3.417175375355894*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"endorbit", "[", "r_", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"orb", "=", RowBox[{"orbit", "[", "r", "]"}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Drop", "[", RowBox[{"orb", ",", RowBox[{"-", "#"}]}], "]"}], ",", RowBox[{"Take", "[", RowBox[{"orb", ",", RowBox[{"-", "#"}]}], "]"}]}], "}"}], "&"}], "[", RowBox[{"Length", "[", RowBox[{"orbit", "[", RowBox[{"Last", "[", "orb", "]"}], "]"}], "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.417175388485609*^9, 3.417175530707177*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"endorbit", "[", FractionBox["1", "72"], "]"}]], "Input", CellChangeTimes->{{3.417175535426579*^9, 3.417175557282967*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "72"], ",", FractionBox["1", "24"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "8"], ",", FractionBox["3", "8"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417175557819098*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"endorbit", "[", FractionBox["5", "7"], "]"}]], "Input", CellChangeTimes->{{3.417175535426579*^9, 3.417175540577579*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "7"], ",", FractionBox["1", "7"], ",", FractionBox["3", "7"], ",", FractionBox["2", "7"], ",", FractionBox["6", "7"], ",", FractionBox["4", "7"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417175541043791*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"endorbit", "[", FractionBox["43", "57"], "]"}]], "Input", CellChangeTimes->{{3.417175535426579*^9, 3.417175540577579*^9}, { 3.4171756010254097`*^9, 3.41717560439647*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", FractionBox["43", "57"], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "19"], ",", FractionBox["15", "19"], ",", FractionBox["7", "19"], ",", FractionBox["2", "19"], ",", FractionBox["6", "19"], ",", FractionBox["18", "19"], ",", FractionBox["16", "19"], ",", FractionBox["10", "19"], ",", FractionBox["11", "19"], ",", FractionBox["14", "19"], ",", FractionBox["4", "19"], ",", FractionBox["12", "19"], ",", FractionBox["17", "19"], ",", FractionBox["13", "19"], ",", FractionBox["1", "19"], ",", FractionBox["3", "19"], ",", FractionBox["9", "19"], ",", FractionBox["8", "19"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417175605597404*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FactorInteger", "[", "57", "]"}]], "Input", CellChangeTimes->{{3.417175803094967*^9, 3.417175806671669*^9}, { 3.417175882301215*^9, 3.417175884662269*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417175807165167*^9, 3.417175885284074*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"endorbit", "[", FractionBox[ RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}], RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}]], "]"}]], "Input", CellChangeTimes->{{3.417174932990552*^9, 3.417174935900341*^9}, { 3.4171756790857983`*^9, 3.417175698723692*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["8", "37"], ",", FractionBox["24", "37"], ",", FractionBox["35", "37"], ",", FractionBox["31", "37"], ",", FractionBox["19", "37"], ",", FractionBox["20", "37"], ",", FractionBox["23", "37"], ",", FractionBox["32", "37"], ",", FractionBox["22", "37"], ",", FractionBox["29", "37"], ",", FractionBox["13", "37"], ",", FractionBox["2", "37"], ",", FractionBox["6", "37"], ",", FractionBox["18", "37"], ",", FractionBox["17", "37"], ",", FractionBox["14", "37"], ",", FractionBox["5", "37"], ",", FractionBox["15", "37"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417174936439867*^9, 3.417175050041717*^9, 3.417175699630817*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"endorbit", "[", FractionBox[ RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}], RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}]], "]"}]], "Input", CellChangeTimes->{{3.417174932990552*^9, 3.417174935900341*^9}, { 3.4171756790857983`*^9, 3.417175698723692*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["66", "85"], ",", FractionBox["28", "85"], ",", FractionBox["84", "85"], ",", FractionBox["82", "85"], ",", FractionBox["76", "85"], ",", FractionBox["58", "85"], ",", FractionBox["4", "85"], ",", FractionBox["12", "85"], ",", FractionBox["36", "85"], ",", FractionBox["23", "85"], ",", FractionBox["69", "85"], ",", FractionBox["37", "85"], ",", FractionBox["26", "85"], ",", FractionBox["78", "85"], ",", FractionBox["64", "85"], ",", FractionBox["22", "85"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417175707295595*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"endorbit", "[", FractionBox[ RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}], RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}]], "]"}]], "Input", CellChangeTimes->{{3.417174932990552*^9, 3.417174935900341*^9}, { 3.4171756790857983`*^9, 3.417175698723692*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["5", "16"], ",", FractionBox["15", "16"], ",", FractionBox["13", "16"], ",", FractionBox["7", "16"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417175718800386*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"endorbit", "[", FractionBox[ RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}], RowBox[{"Random", "[", RowBox[{"Integer", ",", RowBox[{"{", RowBox[{"1", ",", "100"}], "}"}]}], "]"}]], "]"}]], "Input", CellChangeTimes->{{3.417174932990552*^9, 3.417174935900341*^9}, { 3.4171756790857983`*^9, 3.417175698723692*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "10"], ",", FractionBox["3", "10"], ",", FractionBox["9", "10"], ",", FractionBox["7", "10"]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.417175746213072*^9}] }, Open ]], Cell["Sensitive dependence?", "Text", CellChangeTimes->{{3.417176111008676*^9, 3.4171761145450563`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"NestList", "[", RowBox[{"triple", ",", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"Random", "[", "]"}], "&"}], ",", "4"}], "]"}], ",", "20"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913145917091*^9}, { 3.416913272042163*^9, 3.416913303129087*^9}, 3.417176080866774*^9}], Cell[BoxData[ TagBox[GridBox[{ {"0.4604872714071548`", "0.7587799633066873`", "0.1383173179007916`", "0.28931905577922423`"}, {"0.3814618142214643`", "0.27633988992006175`", "0.4149519537023748`", "0.8679571673376727`"}, {"0.1443854426643929`", "0.8290196697601853`", "0.24485586110712454`", "0.6038715020130181`"}, {"0.4331563279931787`", "0.4870590092805558`", "0.7345675833213736`", "0.8116145060390543`"}, {"0.29946898397953614`", "0.46117702784166736`", "0.20370274996412085`", "0.4348435181171628`"}, {"0.8984069519386084`", "0.3835310835250021`", "0.6111082498923626`", "0.30453055435148846`"}, {"0.6952208558158253`", "0.15059325057500628`", "0.8333247496770877`", "0.9135916630544654`"}, {"0.0856625674474758`", "0.45177975172501883`", "0.4999742490312631`", "0.7407749891633961`"}, {"0.2569877023424274`", "0.3553392551750565`", "0.49992274709378925`", "0.22232496749018837`"}, {"0.7709631070272822`", "0.06601776552516947`", "0.49976824128136776`", "0.6669749024705651`"}, {"0.31288932108184664`", "0.1980532965755084`", "0.4993047238441033`", "0.0009247074116953691`"}, {"0.9386679632455399`", "0.5941598897265252`", "0.4979141715323099`", "0.0027741222350861072`"}, {"0.8160038897366197`", "0.7824796691795757`", "0.49374251459692964`", "0.008322366705258322`"}, {"0.44801166920985924`", "0.34743900753872703`", "0.4812275437907889`", "0.024967100115774965`"}, {"0.3440350076295777`", "0.04231702261618109`", "0.44368263137236674`", "0.0749013003473249`"}, {"0.03210502288873318`", "0.12695106784854326`", "0.3310478941171002`", "0.22470390104197469`"}, {"0.09631506866619954`", "0.3808532035456298`", "0.9931436823513007`", "0.6741117031259241`"}, {"0.28894520599859863`", "0.14255961063688938`", "0.979431047053902`", "0.022335109377772167`"}, {"0.8668356179957959`", "0.42767883191066813`", "0.9382931411617061`", "0.0670053281333165`"}, {"0.6005068539873877`", "0.2830364957320044`", "0.8148794234851184`", "0.2010159843999495`"}, {"0.801520561962163`", "0.8491094871960132`", "0.4446382704553553`", "0.6030479531998485`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.416913111017424*^9, 3.4169131471358843`*^9}, 3.416913186609859*^9, 3.416913272873641*^9, 3.4169133039379587`*^9, 3.416913335621399*^9, {3.417176080869322*^9, 3.4171760909137897`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsArray", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"#", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}]}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", "%", "]"}]}], ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.416913160069387*^9, 3.416913216971178*^9}, { 3.416913311116602*^9, 3.4169133184492817`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.4604872714071548}, {2., 0.3814618142214643}, {3., 0.1443854426643929}, {4., 0.4331563279931787}, {5., 0.29946898397953614`}, {6., 0.8984069519386084}, {7., 0.6952208558158253}, {8., 0.0856625674474758}, {9., 0.2569877023424274}, {10., 0.7709631070272822}, {11., 0.31288932108184664`}, {12., 0.9386679632455399}, {13., 0.8160038897366197}, {14., 0.44801166920985924`}, {15., 0.3440350076295777}, {16., 0.03210502288873318}, {17., 0.09631506866619954}, {18., 0.28894520599859863`}, {19., 0.8668356179957959}, {20., 0.6005068539873877}, {21., 0.801520561962163}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.9386679632455399}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.7587799633066873}, {2., 0.27633988992006175`}, {3., 0.8290196697601853}, {4., 0.4870590092805558}, {5., 0.46117702784166736`}, {6., 0.3835310835250021}, {7., 0.15059325057500628`}, {8., 0.45177975172501883`}, {9., 0.3553392551750565}, {10., 0.06601776552516947}, {11., 0.1980532965755084}, {12., 0.5941598897265252}, {13., 0.7824796691795757}, {14., 0.34743900753872703`}, {15., 0.04231702261618109}, {16., 0.12695106784854326`}, {17., 0.3808532035456298}, {18., 0.14255961063688938`}, {19., 0.42767883191066813`}, {20., 0.2830364957320044}, {21., 0.8491094871960132}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.8491094871960132}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {576., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.1383173179007916}, {2., 0.4149519537023748}, {3., 0.24485586110712454`}, {4., 0.7345675833213736}, {5., 0.20370274996412085`}, {6., 0.6111082498923626}, {7., 0.8333247496770877}, {8., 0.4999742490312631}, {9., 0.49992274709378925`}, {10., 0.49976824128136776`}, {11., 0.4993047238441033}, {12., 0.4979141715323099}, {13., 0.49374251459692964`}, {14., 0.4812275437907889}, {15., 0.44368263137236674`}, {16., 0.3310478941171002}, {17., 0.9931436823513007}, {18., 0.979431047053902}, {19., 0.9382931411617061}, {20., 0.8148794234851184}, {21., 0.4446382704553553}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.2}, PlotRange->{{0., 21.}, {0.1383173179007916, 0.9931436823513007}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.28931905577922423`}, {2., 0.8679571673376727}, {3., 0.6038715020130181}, {4., 0.8116145060390543}, {5., 0.4348435181171628}, {6., 0.30453055435148846`}, {7., 0.9135916630544654}, {8., 0.7407749891633961}, {9., 0.22232496749018837`}, {10., 0.6669749024705651}, {11., 0.0009247074116953691}, {12., 0.0027741222350861072`}, {13., 0.008322366705258322}, {14., 0.024967100115774965`}, {15., 0.0749013003473249}, {16., 0.22470390104197469`}, {17., 0.6741117031259241}, {18., 0.022335109377772167`}, {19., 0.0670053281333165}, {20., 0.2010159843999495}, {21., 0.6030479531998485}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.9135916630544654}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {576., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.416913339021731*^9, 3.4171760979062653`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Random", "[", "]"}], "+", RowBox[{"Table", "[", RowBox[{ FractionBox["1", SuperscriptBox["10", RowBox[{"6", "-", "j"}]]], ",", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.416913386848671*^9, 3.416913402437093*^9}, { 3.416913446872416*^9, 3.416913453339099*^9}, {3.416913493154613*^9, 3.4169135442936287`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.40375989656225714`", ",", "0.4038498965622571`", ",", "0.4047498965622571`", ",", "0.41374989656225714`"}], "}"}]], "Output", CellChangeTimes->{ 3.416913403100401*^9, {3.416913447948638*^9, 3.416913453918935*^9}, { 3.4169135280325127`*^9, 3.416913545092046*^9}, 3.4171761338547792`*^9, 3.417176269101054*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"NestList", "[", RowBox[{"triple", ",", "%", ",", "10"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913145917091*^9}, { 3.416913272042163*^9, 3.416913303129087*^9}, {3.416913369834655*^9, 3.416913373844573*^9}, 3.4169135534458714`*^9, {3.4171762712718277`*^9, 3.417176271873955*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"0.40375989656225714`", "0.4038498965622571`", "0.4047498965622571`", "0.41374989656225714`"}, {"0.21127968968677147`", "0.21154968968677146`", "0.21424968968677138`", "0.24124968968677152`"}, {"0.6338390690603144`", "0.6346490690603144`", "0.6427490690603141`", "0.7237490690603146`"}, {"0.9015172071809432`", "0.9039472071809431`", "0.9282472071809424`", "0.17124720718094366`"}, {"0.7045516215428296`", "0.7118416215428294`", "0.7847416215428273`", "0.513741621542831`"}, {"0.11365486462848873`", "0.13552486462848812`", "0.354224864628482`", "0.541224864628493`"}, {"0.3409645938854662`", "0.40657459388546435`", "0.06267459388544605`", "0.6236745938854789`"}, {"0.02289378165639855`", "0.21972378165639306`", "0.18802378165633815`", "0.8710237816564366`"}, {"0.06868134496919565`", "0.6591713449691792`", "0.5640713449690145`", "0.6130713449693097`"}, {"0.20604403490758694`", "0.9775140349075375`", "0.6922140349070434`", "0.8392140349079291`"}, {"0.6181321047227608`", "0.9325421047226126`", "0.07664210472113009`", "0.5176421047237874`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.416913554043047*^9, 3.417176135927526*^9, 3.417176272932357*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsArray", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"#", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}]}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", "%", "]"}]}], ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.416913160069387*^9, 3.416913216971178*^9}, { 3.416913311116602*^9, 3.4169133184492817`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.40375989656225714`}, {2., 0.21127968968677147`}, {3., 0.6338390690603144}, {4., 0.9015172071809432}, {5., 0.7045516215428296}, {6., 0.11365486462848873`}, {7., 0.3409645938854662}, {8., 0.02289378165639855}, {9., 0.06868134496919565}, {10., 0.20604403490758694`}, {11., 0.6181321047227608}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 11.}, {0., 0.9015172071809432}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.4038498965622571}, {2., 0.21154968968677146`}, {3., 0.6346490690603144}, {4., 0.9039472071809431}, {5., 0.7118416215428294}, {6., 0.13552486462848812`}, {7., 0.40657459388546435`}, {8., 0.21972378165639306`}, {9., 0.6591713449691792}, {10., 0.9775140349075375}, {11., 0.9325421047226126}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 11.}, {0., 0.9775140349075375}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {576., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.4047498965622571}, {2., 0.21424968968677138`}, {3., 0.6427490690603141}, {4., 0.9282472071809424}, {5., 0.7847416215428273}, {6., 0.354224864628482}, {7., 0.06267459388544605}, {8., 0.18802378165633815`}, {9., 0.5640713449690145}, {10., 0.6922140349070434}, {11., 0.07664210472113009}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 11.}, {0., 0.9282472071809424}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.41374989656225714`}, {2., 0.24124968968677152`}, {3., 0.7237490690603146}, {4., 0.17124720718094366`}, {5., 0.513741621542831}, {6., 0.541224864628493}, {7., 0.6236745938854789}, {8., 0.8710237816564366}, {9., 0.6130713449693097}, {10., 0.8392140349079291}, {11., 0.5176421047237874}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0.2}, PlotRange->{{0., 11.}, {0.17124720718094366`, 0.8710237816564366}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {576., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{3.416913566156563*^9, 3.4171761917145653`*^9, 3.4171762881276293`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Random", "[", "]"}], "+", RowBox[{"Table", "[", RowBox[{ FractionBox["1", SuperscriptBox["10", RowBox[{"10", "-", "j"}]]], ",", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.416913386848671*^9, 3.416913402437093*^9}, { 3.416913446872416*^9, 3.416913453339099*^9}, {3.416913493154613*^9, 3.4169135442936287`*^9}, {3.416913616374358*^9, 3.416913616798202*^9}, { 3.417176307860715*^9, 3.4171763094495277`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.6837952094618125`", ",", "0.6837952184618126`", ",", "0.6837953084618125`", ",", "0.6837962084618125`"}], "}"}]], "Output", CellChangeTimes->{ 3.416913403100401*^9, {3.416913447948638*^9, 3.416913453918935*^9}, { 3.4169135280325127`*^9, 3.416913545092046*^9}, 3.416913619070896*^9, 3.417176251623783*^9, {3.4171763246636877`*^9, 3.417176347679788*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"NestList", "[", RowBox[{"triple", ",", "%", ",", "20"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.416913061668518*^9, 3.416913145917091*^9}, { 3.416913272042163*^9, 3.416913303129087*^9}, {3.416913369834655*^9, 3.416913373844573*^9}, 3.4169135534458714`*^9, {3.41717632704303*^9, 3.4171763500378113`*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"0.6837952094618125`", "0.6837952184618126`", "0.6837953084618125`", "0.6837962084618125`"}, {"0.0513856283854377`", "0.05138565538543771`", "0.0513859253854374`", "0.05138862538543787`"}, {"0.1541568851563131`", "0.15415696615631314`", "0.1541577761563122`", "0.1541658761563136`"}, {"0.4624706554689393`", "0.4624708984689394`", "0.46247332846893663`", "0.4624976284689408`"}, {"0.38741196640681785`", "0.3874126954068182`", "0.3874199854068099`", "0.3874928854068225`"}, {"0.16223589922045356`", "0.16223808622045466`", "0.16225995622042966`", "0.16247865622046742`"}, {"0.4867076976613607`", "0.486714258661364`", "0.486779868661289`", "0.48743596866140226`"}, {"0.46012309298408205`", "0.4601427759840919`", "0.4603396059838669`", "0.4623079059842068`"}, {"0.38036927895224615`", "0.38042832795227577`", "0.38101881795160075`", "0.38692371795262037`"}, {"0.14110783685673844`", "0.1412849838568273`", "0.14305645385480226`", "0.16077115385786112`"}, {"0.42332351057021533`", "0.4238549515704819`", "0.42916936156440677`", "0.48231346157358335`"}, {"0.269970531710646`", "0.27156485471144576`", "0.2875080846932203`", "0.44694038472075004`"}, {"0.809911595131938`", "0.8146945641343373`", "0.8625242540796609`", "0.3408211541622501`"}, {"0.429734785395814`", "0.4440836924030118`", "0.5875727622389828`", "0.022463462486750352`"}, {"0.289204356187442`", "0.33225107720903546`", "0.7627182867169484`", "0.06739038746025106`"}, {"0.867613068562326`", "0.9967532316271064`", "0.28815486015084524`", "0.20217116238075317`"}, {"0.602839205686978`", "0.9902596948813192`", "0.8644645804525357`", "0.6065134871422595`"}, {"0.8085176170609341`", "0.9707790846439575`", "0.5933937413576071`", "0.8195404614267785`"}, {"0.42555285118280217`", "0.9123372539318724`", "0.7801812240728214`", "0.4586213842803355`"}, {"0.2766585535484065`", "0.7370117617956171`", "0.34054367221846427`", "0.3758641528410065`"}, {"0.8299756606452195`", "0.21103528538685135`", "0.0216310166553928`", "0.12759245852301948`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.416913554043047*^9, 3.416913622732411*^9, 3.41717625666002*^9, { 3.4171763287505093`*^9, 3.417176351362121*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"GraphicsArray", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"#", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}]}], "]"}], "&"}], "/@", RowBox[{"Transpose", "[", "%", "]"}]}], ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.416913160069387*^9, 3.416913216971178*^9}, { 3.416913311116602*^9, 3.4169133184492817`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.6837952094618125}, {2., 0.0513856283854377}, {3., 0.1541568851563131}, {4., 0.4624706554689393}, {5., 0.38741196640681785`}, {6., 0.16223589922045356`}, {7., 0.4867076976613607}, {8., 0.46012309298408205`}, {9., 0.38036927895224615`}, {10., 0.14110783685673844`}, {11., 0.42332351057021533`}, {12., 0.269970531710646}, {13., 0.809911595131938}, {14., 0.429734785395814}, {15., 0.289204356187442}, {16., 0.867613068562326}, {17., 0.602839205686978}, {18., 0.8085176170609341}, {19., 0.42555285118280217`}, {20., 0.2766585535484065}, {21., 0.8299756606452195}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.867613068562326}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.6837952184618126}, {2., 0.05138565538543771}, {3., 0.15415696615631314`}, {4., 0.4624708984689394}, {5., 0.3874126954068182}, {6., 0.16223808622045466`}, {7., 0.486714258661364}, {8., 0.4601427759840919}, {9., 0.38042832795227577`}, {10., 0.1412849838568273}, {11., 0.4238549515704819}, {12., 0.27156485471144576`}, {13., 0.8146945641343373}, {14., 0.4440836924030118}, {15., 0.33225107720903546`}, {16., 0.9967532316271064}, {17., 0.9902596948813192}, {18., 0.9707790846439575}, {19., 0.9123372539318724}, {20., 0.7370117617956171}, {21., 0.21103528538685135`}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.9967532316271064}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {576., -118.66252583997979`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}, {InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.6837953084618125}, {2., 0.0513859253854374}, {3., 0.1541577761563122}, {4., 0.46247332846893663`}, {5., 0.3874199854068099}, {6., 0.16225995622042966`}, {7., 0.486779868661289}, {8., 0.4603396059838669}, {9., 0.38101881795160075`}, {10., 0.14305645385480226`}, {11., 0.42916936156440677`}, {12., 0.2875080846932203}, {13., 0.8625242540796609}, {14., 0.5875727622389828}, {15., 0.7627182867169484}, {16., 0.28815486015084524`}, {17., 0.8644645804525357}, {18., 0.5933937413576071}, {19., 0.7801812240728214}, {20., 0.34054367221846427`}, {21., 0.0216310166553928}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.8644645804525357}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}], InsetBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1., 0.6837962084618125}, {2., 0.05138862538543787}, {3., 0.1541658761563136}, {4., 0.4624976284689408}, {5., 0.3874928854068225}, {6., 0.16247865622046742`}, {7., 0.48743596866140226`}, {8., 0.4623079059842068}, {9., 0.38692371795262037`}, {10., 0.16077115385786112`}, {11., 0.48231346157358335`}, {12., 0.44694038472075004`}, {13., 0.3408211541622501}, {14., 0.022463462486750352`}, {15., 0.06739038746025106}, {16., 0.20217116238075317`}, {17., 0.6065134871422595}, {18., 0.8195404614267785}, {19., 0.4586213842803355}, {20., 0.3758641528410065}, {21., 0.12759245852301948`}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0., 21.}, {0., 0.8195404614267785}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {576., -355.98757751993935`}, ImageScaled[{0.5, 0.5}], {360., 222.4922359499621}]}}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.416913566156563*^9, 3.4169136283363647`*^9, {3.417176333282446*^9, 3.4171763556400623`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Back to the logistic map : x \[Rule] 4 x (mod 1)\ \>", "Subsubtitle", CellChangeTimes->{{3.417173664398755*^9, 3.417173733919413*^9}, { 3.417176415596862*^9, 3.417176426691526*^9}}], Cell[CellGroupData[{ Cell["Definitions", "Subsection", CellChangeTimes->{{3.417176502422248*^9, 3.417176504715087*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f4", "[", "x_", "]"}], ":=", RowBox[{"4", " ", "x", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.4171216740550756`*^9, 3.417121680118663*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"symbols", "[", RowBox[{"x_", ",", "k_"}], "]"}], ":=", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"#", "<", ".5"}], ",", "\"\\"", ",", "\"\\""}], "]"}], "&"}], "/@", RowBox[{"NestList", "[", RowBox[{"f4", ",", "x", ",", "k"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.417121668155546*^9, 3.4171217444177847`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"rootsf4", "[", "k_", "]"}], ":=", RowBox[{"Union", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"x", "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Nest", "[", RowBox[{"f4", ",", "x", ",", "k"}], "]"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], "]"}], ",", RowBox[{"SameTest", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"#1", "-", "#2"}], "]"}], "<", SuperscriptBox["10", RowBox[{"-", "14"}]]}], "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.4171220390531073`*^9, 3.41712212019233*^9}, { 3.417122199649111*^9, 3.417122245369993*^9}, {3.417122308426208*^9, 3.417122311888733*^9}, {3.417122465528295*^9, 3.417122469151051*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ints", "[", "k_", "]"}], ":=", RowBox[{"TableForm", "[", RowBox[{"Drop", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Join", "@@", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"symbols", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}], "+", RowBox[{"#", "\[LeftDoubleBracket]", RowBox[{"j", "+", "1"}], "\[RightDoubleBracket]"}]}], ")"}]}], ",", "k"}], "]"}], ",", RowBox[{"#", "\[LeftDoubleBracket]", RowBox[{"j", "+", "1"}], "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Length", "[", "#", "]"}], "-", "1"}]}], "}"}]}], "]"}]}], "&"}], "[", RowBox[{"rootsf4", "[", RowBox[{"k", "+", "2"}], "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.41712183782382*^9, 3.4171219648449087`*^9}, 3.417122070576528*^9, {3.4171224971333513`*^9, 3.417122502080546*^9}, { 3.417122537051332*^9, 3.417122656120132*^9}, {3.4171226963897*^9, 3.4171226988055553`*^9}, {3.41712276786273*^9, 3.4171227945172777`*^9}, { 3.417122825236574*^9, 3.417122888813779*^9}, {3.417126322038226*^9, 3.417126336687114*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"howclose", "[", "k_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "#", "]"}], ",", RowBox[{"Max", "[", "#", "]"}], ",", RowBox[{"N", "[", FractionBox["\[Pi]", SuperscriptBox["2", RowBox[{"k", "+", "2"}]]], "]"}]}], "}"}], "&"}], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Drop", "[", RowBox[{"#", ",", "1"}], "]"}], "-", RowBox[{"Drop", "[", RowBox[{"#", ",", RowBox[{"-", "1"}]}], "]"}]}], "&"}], "[", RowBox[{"rootsf4", "[", RowBox[{"k", "+", "2"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.417123159698023*^9, 3.417123273521646*^9}, { 3.4171233810208807`*^9, 3.417123384133053*^9}, {3.4171238345070963`*^9, 3.417123835050302*^9}, {3.417123907099666*^9, 3.417123927860559*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Sample runs", "Subsection", CellChangeTimes->{{3.417176502422248*^9, 3.417176521799806*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"symbols", "[", RowBox[{".3", ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.417121749691718*^9, 3.417121760278257*^9}, { 3.417121805518217*^9, 3.4171218057455797`*^9}, {3.417123147349967*^9, 3.417123148037805*^9}}], Cell[BoxData["\<\"LRRRLLLRLRLLRRLLRRLLR\"\>"], "Output", CellChangeTimes->{{3.417121756804117*^9, 3.417121760804853*^9}, 3.417121806076057*^9, 3.417123148390532*^9, 3.417176472745639*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ints", "[", "1", "]"}]], "Input", CellChangeTimes->{{3.4171219689430523`*^9, 3.4171219704979343`*^9}, { 3.417122701694147*^9, 3.4171227049643507`*^9}, {3.4171228297023373`*^9, 3.417122830020171*^9}, {3.417122936714882*^9, 3.41712293850184*^9}, { 3.417176526633733*^9, 3.4171765278759413`*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"\<\"LL\"\>"}, {"0.1464466094067262`"}, {"\<\"LR\"\>"}, {"0.5`"}, {"\<\"RR\"\>"}, {"0.8535533905932737`"}, {"\<\"RL\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.417121971068798*^9, {3.417122685789914*^9, 3.417122705764805*^9}, { 3.417122777418105*^9, 3.4171227976784678`*^9}, 3.417122830427919*^9, { 3.417122874978716*^9, 3.417122892299037*^9}, 3.417176529304112*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ints", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.4171219689430523`*^9, 3.4171219704979343`*^9}, { 3.417122701694147*^9, 3.4171227049643507`*^9}, {3.4171228297023373`*^9, 3.417122830020171*^9}, {3.4171229402918653`*^9, 3.417122940450182*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"\<\"LLL\"\>"}, {"0.03806023374435663`"}, {"\<\"LLR\"\>"}, {"0.1464466094067262`"}, {"\<\"LRR\"\>"}, {"0.30865828381745514`"}, {"\<\"LRL\"\>"}, {"0.5`"}, {"\<\"RRL\"\>"}, {"0.6913417161825448`"}, {"\<\"RRR\"\>"}, {"0.8535533905932737`"}, {"\<\"RLR\"\>"}, {"0.9619397662556434`"}, {"\<\"RLL\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.417121971068798*^9, {3.417122685789914*^9, 3.417122705764805*^9}, { 3.417122777418105*^9, 3.4171227976784678`*^9}, 3.417122830427919*^9, { 3.417122874978716*^9, 3.417122892299037*^9}, 3.417122941412726*^9, 3.417176536403452*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ints", "[", "3", "]"}]], "Input", CellChangeTimes->{{3.417122963566036*^9, 3.417122965030553*^9}, { 3.417123100980152*^9, 3.417123106453938*^9}, {3.417176541231353*^9, 3.4171765429954*^9}}], Cell[BoxData[ TagBox[ TagBox[GridBox[{ {"\<\"LLLL\"\>"}, {"0.009607359798384785`"}, {"\<\"LLLR\"\>"}, {"0.03806023374435663`"}, {"\<\"LLRR\"\>"}, {"0.08426519384872738`"}, {"\<\"LLRL\"\>"}, {"0.1464466094067262`"}, {"\<\"LRRL\"\>"}, {"0.22221488349019886`"}, {"\<\"LRRR\"\>"}, {"0.30865828381745514`"}, {"\<\"LRLR\"\>"}, {"0.40245483899193585`"}, {"\<\"LRLL\"\>"}, {"0.5`"}, {"\<\"RRLL\"\>"}, {"0.5975451610080642`"}, {"\<\"RRLR\"\>"}, {"0.6913417161825448`"}, {"\<\"RRRR\"\>"}, {"0.7777851165098011`"}, {"\<\"RRRL\"\>"}, {"0.8535533905932737`"}, {"\<\"RLRL\"\>"}, {"0.9157348061512727`"}, {"\<\"RLRR\"\>"}, {"0.9619397662556434`"}, {"\<\"RLLR\"\>"}, {"0.9903926402016152`"}, {"\<\"RLLL\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.417122968278943*^9, 3.417123109165872*^9, 3.417176544163044*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"Array", "[", RowBox[{"howclose", ",", "6"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.417123278943965*^9, 3.417123280993843*^9}, { 3.4171233909128723`*^9, 3.417123418840996*^9}, {3.417123843296105*^9, 3.417123881432375*^9}}], Cell[BoxData[ TagBox[GridBox[{ {"0.1464466094067262`", "0.3535533905932738`", "0.39269908169872414`"}, {"0.03806023374435663`", "0.19134171618254486`", "0.19634954084936207`"}, {"0.009607359798384785`", "0.09754516100806421`", "0.09817477042468103`"}, {"0.0024076366639015356`", "0.04900857016478033`", "0.04908738521234052`"}, {"0.0006022718974137975`", "0.024533837163708938`", "0.02454369260617026`"}, {"0.0001505906518978195`", "0.012270614261455204`", "0.01227184630308513`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.4171232814626017`*^9, {3.417123386650052*^9, 3.4171233926616488`*^9}, 3.417123564304412*^9, 3.417124089283239*^9, 3.417176558375066*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{908, 675}, WindowMargins->{{Automatic, 36}, {Automatic, 60}}, ShowSelection->True, Magnification->1., FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 160, 3, 26, "Subsubtitle"], Cell[753, 28, 252, 7, 27, "Input"], Cell[1008, 37, 125, 1, 26, "Text"], Cell[CellGroupData[{ Cell[1158, 42, 148, 3, 46, "Input"], Cell[1309, 47, 92, 2, 44, "Output"] }, Open ]], Cell[1416, 52, 117, 1, 26, "Text"], Cell[CellGroupData[{ Cell[1558, 57, 187, 4, 46, "Input"], Cell[1748, 63, 240, 7, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2025, 75, 236, 5, 47, "Input"], Cell[2264, 82, 216, 6, 45, "Output"] }, Open ]], Cell[2495, 91, 158, 2, 26, "Text"], Cell[CellGroupData[{ Cell[2678, 97, 236, 5, 47, "Input"], Cell[2917, 104, 171, 5, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3125, 114, 567, 13, 48, "Input"], Cell[3695, 129, 803, 23, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4535, 157, 516, 12, 48, "Input"], Cell[5054, 171, 636, 21, 45, "Output"] }, Open ]], Cell[5705, 195, 210, 3, 26, "Text"], Cell[CellGroupData[{ Cell[5940, 202, 188, 4, 47, "Input"], Cell[6131, 208, 288, 9, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6456, 222, 263, 5, 47, "Input"], Cell[6722, 229, 366, 10, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7125, 244, 292, 6, 47, "Input"], Cell[7420, 252, 1871, 55, 80, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9328, 312, 156, 3, 27, "Input"], Cell[9487, 317, 71, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9595, 323, 166, 3, 27, "Input"], Cell[9764, 328, 92, 2, 45, "Output"] }, Open ]], Cell[9871, 333, 833, 19, 27, "Input"], Cell[CellGroupData[{ Cell[10729, 356, 270, 5, 47, "Input"], Cell[11002, 363, 316, 8, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11355, 376, 197, 4, 47, "Input"], Cell[11555, 382, 137, 3, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11729, 390, 268, 5, 47, "Input"], Cell[12000, 397, 434, 12, 45, "Output"] }, Open ]], Cell[12449, 412, 707, 22, 27, "Input"], Cell[CellGroupData[{ Cell[13181, 438, 149, 3, 47, "Input"], Cell[13333, 443, 311, 11, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13681, 459, 148, 3, 47, "Input"], Cell[13832, 464, 367, 12, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14236, 481, 200, 4, 47, "Input"], Cell[14439, 487, 832, 25, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15308, 517, 182, 3, 27, "Input"], Cell[15493, 522, 236, 7, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15766, 534, 439, 12, 49, "Input"], Cell[16208, 548, 854, 25, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17099, 578, 439, 12, 49, "Input"], Cell[17541, 592, 738, 22, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18316, 619, 439, 12, 49, "Input"], Cell[18758, 633, 305, 10, 45, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19100, 648, 439, 12, 49, "Input"], Cell[19542, 662, 303, 10, 45, "Output"] }, Open ]], Cell[19860, 675, 105, 1, 26, "Text"], Cell[CellGroupData[{ Cell[19990, 680, 394, 10, 27, "Input"], Cell[20387, 692, 2970, 61, 361, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23394, 758, 446, 12, 27, "Input"], Cell[23843, 772, 4758, 92, 238, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28638, 869, 428, 12, 49, "Input"], Cell[29069, 883, 367, 8, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29473, 896, 379, 7, 27, "Input"], Cell[29855, 905, 1733, 38, 201, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31625, 948, 446, 12, 27, "Input"], Cell[32074, 962, 3453, 73, 238, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35564, 1040, 526, 13, 49, "Input"], Cell[36093, 1055, 411, 8, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36541, 1068, 378, 7, 27, "Input"], Cell[36922, 1077, 2835, 59, 361, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39794, 1141, 446, 12, 27, "Input"], Cell[40243, 1155, 4787, 94, 238, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45079, 1255, 194, 4, 26, "Subsubtitle"], Cell[CellGroupData[{ Cell[45298, 1263, 99, 1, 34, "Subsection"], Cell[45400, 1266, 230, 6, 27, "Input"], Cell[45633, 1274, 454, 13, 27, "Input"], Cell[46090, 1289, 837, 23, 33, "Input"], Cell[46930, 1314, 1609, 41, 61, "Input"], Cell[48542, 1357, 885, 25, 45, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[49464, 1387, 99, 1, 34, "Subsection"], Cell[CellGroupData[{ Cell[49588, 1392, 251, 5, 27, "Input"], Cell[49842, 1399, 192, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50071, 1406, 325, 5, 27, "Input"], Cell[50399, 1413, 930, 27, 133, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51366, 1445, 277, 4, 27, "Input"], Cell[51646, 1451, 1170, 36, 257, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52853, 1492, 219, 4, 27, "Input"], Cell[53075, 1498, 1433, 49, 505, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54545, 1552, 291, 6, 27, "Input"], Cell[54839, 1560, 1150, 27, 121, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)