(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 87618, 1849] NotebookOptionsPosition[ 77009, 1724] NotebookOutlinePosition[ 77346, 1739] CellTagsIndexPosition[ 77303, 1736] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Inputs", " ", "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"We", " ", "input", " ", "an", " ", "alphabet"}], "*)"}]}]], "Input", CellChangeTimes->{{3.809354160916947*^9, 3.809354188137745*^9}, { 3.8093630137841187`*^9, 3.809363017643197*^9}, {3.809363189882053*^9, 3.809363223480919*^9}}, CellLabel-> "(Debug) In[46]:=",ExpressionUUID->"4ecc8100-8d69-4d6d-ac93-b9fa4d9812ba"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Alf", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "We", " ", "input", " ", "a", " ", "size", " ", "of", " ", "matrix", " ", "for", " ", "the", " ", "interpolation"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"m", "=", "20"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "We", " ", "imput", " ", "the", " ", "number", " ", "of", " ", "decimal", " ", "places", " ", "we", " ", "will", " ", "wotk", " ", "to"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dec", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"We", " ", "input", " ", "an", " ", "initial", " ", "interval"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t0", "=", RowBox[{"7", "/", "10"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"8", "/", "10"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.8093541898055067`*^9, 3.80935427243464*^9}, 3.80936271105828*^9, {3.809363021659165*^9, 3.80936303766842*^9}, { 3.809363091921205*^9, 3.809363096344314*^9}, {3.809364207292006*^9, 3.809364256697294*^9}, {3.80936430012928*^9, 3.8093644134693203`*^9}, { 3.809364459921042*^9, 3.809364462985145*^9}, {3.8093665246671963`*^9, 3.809366559998332*^9}, {3.809367876063911*^9, 3.8093678780685043`*^9}, { 3.809368374805627*^9, 3.809368389213443*^9}, {3.8094105728989162`*^9, 3.8094105742269487`*^9}, {3.809410651344181*^9, 3.809410674302644*^9}, { 3.809421927661212*^9, 3.8094219279553967`*^9}, {3.8094271437879868`*^9, 3.809427156073288*^9}, {3.809427991793563*^9, 3.809428000358988*^9}, { 3.8094293627843637`*^9, 3.809429381256898*^9}, {3.8094361343614597`*^9, 3.809436135651016*^9}, {3.809437405536579*^9, 3.809437406025796*^9}, { 3.809437786504229*^9, 3.809437793155158*^9}, 3.809437842492363*^9, { 3.809438797510251*^9, 3.8094387999029617`*^9}, {3.8094388350233393`*^9, 3.809438842065662*^9}, {3.8094407500750504`*^9, 3.809440760509742*^9}, { 3.80944226108855*^9, 3.809442262030487*^9}, {3.809447269875807*^9, 3.809447303821746*^9}, {3.809448555437578*^9, 3.809448586408059*^9}, { 3.809449966062689*^9, 3.809449989682662*^9}, {3.809451124837131*^9, 3.809451140836437*^9}, {3.809452290199589*^9, 3.809452292268744*^9}, { 3.809453666365179*^9, 3.809453686883235*^9}, {3.809455035324959*^9, 3.809455039641554*^9}, {3.809456220203163*^9, 3.809456248604336*^9}, { 3.809457543264944*^9, 3.80945756139258*^9}, {3.809485665570157*^9, 3.809485667231743*^9}, {3.80948717780339*^9, 3.809487197234351*^9}, { 3.8094906786414127`*^9, 3.8094906986879053`*^9}, {3.809492466300878*^9, 3.8094924880945187`*^9}, {3.8094941357169247`*^9, 3.809494160763506*^9}, { 3.809495158358054*^9, 3.809495172445322*^9}, {3.809496179844658*^9, 3.809496193533038*^9}, {3.809501849398698*^9, 3.8095018672190647`*^9}, { 3.8095028159562073`*^9, 3.809502835937201*^9}, {3.8095036948204803`*^9, 3.809503695188746*^9}, {3.8095045808091908`*^9, 3.80950461880449*^9}, { 3.809506645072679*^9, 3.8095066612208223`*^9}, {3.809522228937496*^9, 3.80952224338342*^9}, {3.809524521684362*^9, 3.8095245552352467`*^9}, { 3.8095248946441383`*^9, 3.809524910293189*^9}, {3.80952613152269*^9, 3.809526150753124*^9}, {3.809527153851022*^9, 3.809527157519957*^9}, { 3.8095282629018383`*^9, 3.8095282671041718`*^9}, {3.809528483512982*^9, 3.809528495602351*^9}, {3.80953106216574*^9, 3.8095310677641497`*^9}, { 3.809785293003251*^9, 3.809785335003971*^9}, {3.8098453626098537`*^9, 3.809845389495483*^9}, {3.809862367625904*^9, 3.8098623703318768`*^9}, { 3.809862412330517*^9, 3.809862412829047*^9}, {3.809968905375947*^9, 3.809968909451647*^9}, {3.8099691440317707`*^9, 3.809969145288021*^9}, { 3.809969561996204*^9, 3.809969602772587*^9}, {3.809969667475787*^9, 3.809969668649495*^9}, {3.8099697861556683`*^9, 3.809969787029826*^9}, { 3.8099698472577047`*^9, 3.809969870998661*^9}, {3.8099700305070353`*^9, 3.809970039760401*^9}, {3.8099702615772963`*^9, 3.809970262205924*^9}, { 3.809970312855919*^9, 3.809970321010847*^9}, {3.809970380682066*^9, 3.8099704019074783`*^9}, {3.809970433184186*^9, 3.8099704536335287`*^9}, { 3.809970619427411*^9, 3.809970621958392*^9}, {3.8099707795233994`*^9, 3.809970780785552*^9}, {3.809970859994975*^9, 3.809970860455934*^9}, { 3.809971128616024*^9, 3.80997112890718*^9}, {3.813493872406953*^9, 3.813493872599942*^9}, {3.813493928661799*^9, 3.8134939337916203`*^9}, { 3.8134939785933533`*^9, 3.813494076265355*^9}, {3.8134941395596743`*^9, 3.8134941798049917`*^9}, {3.813494214644199*^9, 3.8134942157295437`*^9}, { 3.813494249881523*^9, 3.813494256912709*^9}, {3.81349526082268*^9, 3.813495261877282*^9}, {3.8134964214190073`*^9, 3.813496440323407*^9}, { 3.8135042382331553`*^9, 3.813504282898768*^9}, {3.8135043234734507`*^9, 3.8135044170493603`*^9}, 3.813504786733261*^9, {3.813515127183858*^9, 3.813515131007215*^9}, {3.816287636620864*^9, 3.8162876615906067`*^9}, { 3.816287702435445*^9, 3.816287738464216*^9}, {3.816287774451572*^9, 3.8162877923310347`*^9}, {3.816287912896768*^9, 3.816287915325583*^9}, { 3.816288521268977*^9, 3.816288523198598*^9}, {3.816288637246386*^9, 3.816288639866044*^9}}, CellLabel-> "(Debug) In[47]:=",ExpressionUUID->"6ca1d94b-b8ff-42cf-8373-220c54465d28"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "We", " ", "input", " ", "a", " ", "scale", " ", "at", " ", "which", " ", "we", " ", "want", " ", "the", " ", "programme", " ", "to", " ", "end"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eps", "=", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "11"}], ")"}]}]}], ";"}]}]], "Input", CellChangeTimes->{{3.809363101455985*^9, 3.8093631824673986`*^9}, { 3.8093642713411617`*^9, 3.809364316510684*^9}, 3.8093665117958307`*^9, { 3.809367785786928*^9, 3.809367786124474*^9}, 3.809367844312005*^9, 3.8093686676900253`*^9, {3.809369020116109*^9, 3.8093690277588987`*^9}, { 3.809369544156625*^9, 3.809369544917082*^9}, {3.809370213060328*^9, 3.809370216684033*^9}, {3.8094062359722843`*^9, 3.8094062394001303`*^9}, { 3.809862379999606*^9, 3.8098623821477003`*^9}, {3.8099697335360603`*^9, 3.809969734030007*^9}, {3.813493942534053*^9, 3.813493944605713*^9}, { 3.8134942098981857`*^9, 3.81349421166877*^9}, {3.8162886506000223`*^9, 3.81628865873234*^9}}, CellLabel-> "(Debug) In[52]:=",ExpressionUUID->"3eb0c4b1-d4a6-4478-96e2-4cc30f8e467b"], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "-", " ", "Setting"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], " ", "up", " ", "the", " ", "interpolation", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"machinery", " ", "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}]}], "*)"}]], "Input", CellChangeTimes->{{3.809363227919383*^9, 3.8093632769941263`*^9}}, CellLabel-> "(Debug) In[53]:=",ExpressionUUID->"2f9fcee8-d491-4019-8437-46a8af8ae987"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "We", " ", "construct", " ", "Lagrange", " ", "interpolation", " ", "functions", " ", RowBox[{"ff", "[", RowBox[{"j", ",", "x"}], "]"}], " ", "and", " ", "the", " ", "set", " ", "of", " ", "Chebychev", " ", "points", " ", "tab"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "[", "k_", "]"}], ":=", " ", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Pi", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "*", "l"}], "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "m"}], ")"}]}]}], "]"}], ",", "dec"}], "]"}], "/.", " ", RowBox[{"l", "\[Rule]", " ", "k"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "[", "k_", "]"}], ":=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", "k", "]"}], "+", "1"}], ")"}], "/", "2"}], " ", "/.", " ", RowBox[{"l", "\[Rule]", " ", "k"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tab", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", "k", "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "m"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"S", "[", "n_", "]"}], ":=", " ", RowBox[{"Drop", "[", RowBox[{"tab", ",", RowBox[{"{", "n", "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ff", "[", RowBox[{"j_", ",", "y_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", RowBox[{ RowBox[{"S", "[", "j", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"tab", "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{ RowBox[{"S", "[", "j", "]"}], "[", RowBox[{"[", "k", "]"}], "]"}]}], ")"}]}], ",", " ", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"m", "-", "1"}]}], "}"}]}], "]"}], "/.", " ", RowBox[{"x", "\[Rule]", " ", "y"}]}]}]}]}]], "Input", CellChangeTimes->{{3.805604653573309*^9, 3.805604728345168*^9}, 3.80560702613202*^9, {3.805649070852894*^9, 3.805649072248413*^9}, { 3.8056535113147497`*^9, 3.805653511701202*^9}, {3.8056539547003736`*^9, 3.805653955512476*^9}, {3.8056543678678923`*^9, 3.805654370149794*^9}, { 3.8056910153421717`*^9, 3.805691015724744*^9}, {3.805693159661042*^9, 3.805693161407799*^9}, {3.805735287608536*^9, 3.8057353140615253`*^9}, { 3.8093542761753397`*^9, 3.8093542814173527`*^9}, {3.8093627227241907`*^9, 3.809362796874693*^9}, 3.809363251254328*^9, {3.8093643823259163`*^9, 3.809364384650449*^9}, {3.809364419595261*^9, 3.809364421148403*^9}}, CellLabel-> "(Debug) In[54]:=",ExpressionUUID->"dde0c43c-1254-4bf7-93bd-e8c7e341046d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "-", "Setting"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], " ", "up", " ", "an", " ", "iterative", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"loop", " ", "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"t1", " ", "-", " ", "t0"}], " ", ">", " ", "eps"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Print", "[", RowBox[{"n", " ", "\"\\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"N", "[", RowBox[{"t0", ",", "dec"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"N", "[", RowBox[{"t1", ",", "dec"}], "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "t2", " ", "is", " ", "the", " ", "midpoint", " ", "of", " ", "t1", " ", "and", " ", "t0", " ", "and", " ", "f0is", " ", "the", " ", "interpolation", " ", "test", " ", "function", " ", "for", " ", "t2"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"t2", "=", RowBox[{ RowBox[{"(", RowBox[{"t0", "+", "t1"}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "[", RowBox[{"i_", ",", " ", "y_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Alf", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "x"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "*", "t2"}], ")"}]}], "*", RowBox[{"ff", "[", RowBox[{"i", ",", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"Alf", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "x"}], ")"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "Alf", "]"}]}], "}"}]}], "]"}], "/.", RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"L", "[", RowBox[{"i", ",", " ", RowBox[{"tab", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "m"}], "}"}]}], " ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MT", "=", RowBox[{"Transpose", "[", "M", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"weights", "=", " ", RowBox[{"Re", "[", RowBox[{"Flatten", "[", RowBox[{"Eigenvectors", "[", RowBox[{"MT", ",", "1"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"f0", "[", "y_", "]"}], ":=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"weights", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{"ff", "[", RowBox[{"i", ",", "x"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "m"}], "}"}]}], "]"}], "/.", " ", RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Lf0", "[", "x", "]"}], " ", "is", " ", "the", " ", "image", " ", "of", " ", "f0", " ", "under", " ", "the", " ", "transfer", " ", "operator", " ", "and", " ", "m0"}], ",", " ", RowBox[{ "m1", " ", "are", " ", "the", " ", "min", " ", "and", " ", "max", " ", "of", " ", "the", " ", "quotient", " ", RowBox[{"Lf0", "/", "ff"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lf0", "[", "y_", "]"}], ":=", " ", RowBox[{ RowBox[{"Sum", "[", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Alf", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "x"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "*", "t2"}], ")"}]}], "*", RowBox[{"f0", "[", " ", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{"Alf", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "x"}], ")"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "Alf", "]"}]}], "}"}]}], "]"}], "/.", RowBox[{"x", "\[Rule]", "y"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"m0", "=", RowBox[{"MinValue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Lf0", "[", "x", "]"}], "/", RowBox[{"f0", "[", "x", "]"}]}], ",", RowBox[{"0", "<", "x", "<", "1"}]}], "}"}], ",", " ", RowBox[{"{", "x", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"m1", "=", RowBox[{"MaxValue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Lf0", "[", "x", "]"}], "/", RowBox[{"f0", "[", "x", "]"}]}], ",", RowBox[{"0", "<", "x", "<", "1"}]}], "}"}], ",", " ", RowBox[{"{", "x", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "m0", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "m1", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"If", " ", "m0"}], " ", ">", " ", RowBox[{ "1", " ", "then", " ", "we", " ", "replace", " ", "the", " ", "lower", " ", "bound", " ", "t0", " ", "is", " ", "replaced", " ", "by", " ", RowBox[{"t2", ".", " ", "Otherwise"}], " ", "we", " ", "replace", " ", "the", " ", "upper", " ", "bound", " ", "by", " ", "t1"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"m0", " ", ">", " ", "1"}], ",", RowBox[{"t0", "=", "t2"}], ",", RowBox[{"t1", "=", "t2"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Now", " ", "we", " ", "go", " ", "back", " ", "to", " ", "the", " ", "start", " ", "of", " ", "the", " ", "loop"}], "*)"}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "The", " ", "output", " ", "is", " ", "a", " ", "list", " ", "of", " ", "shrinking", " ", "intervals", " ", "each", " ", "containing", " ", "the", " ", "dimension"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.805604968002535*^9, 3.805604990884637*^9}, { 3.805605065516568*^9, 3.805605106209353*^9}, {3.8056051432112427`*^9, 3.8056051478001213`*^9}, {3.805605187819468*^9, 3.805605194842123*^9}, { 3.805605264600243*^9, 3.8056053204966784`*^9}, {3.8056053587085123`*^9, 3.805605628357665*^9}, {3.805605663275834*^9, 3.8056057837517967`*^9}, { 3.8056058180280952`*^9, 3.805605905010913*^9}, {3.805605946860343*^9, 3.805606006822241*^9}, {3.805606061750455*^9, 3.8056060690861683`*^9}, { 3.805606110188311*^9, 3.805606121365738*^9}, {3.805606826244607*^9, 3.8056068276989098`*^9}, {3.805606913308803*^9, 3.8056069209879513`*^9}, { 3.805606969251219*^9, 3.805607002834831*^9}, {3.8056070955396547`*^9, 3.805607107593266*^9}, {3.8056071527896833`*^9, 3.805607161057375*^9}, { 3.805607438776053*^9, 3.805607439041101*^9}, {3.805648610750189*^9, 3.805648833100596*^9}, {3.8056488791808863`*^9, 3.805648979417807*^9}, 3.805649102336095*^9, {3.805649146352559*^9, 3.805649153699752*^9}, { 3.805653415251588*^9, 3.805653508339312*^9}, {3.805653542847184*^9, 3.805653548051046*^9}, {3.8056535802135572`*^9, 3.80565360993897*^9}, { 3.805653651610965*^9, 3.805653652483898*^9}, {3.8056537062427483`*^9, 3.805653740409477*^9}, {3.805653783347357*^9, 3.8056537929727373`*^9}, { 3.80565383675237*^9, 3.805653844834942*^9}, {3.805653962948648*^9, 3.8056539978029337`*^9}, {3.805654112933991*^9, 3.805654123058716*^9}, { 3.80565424119169*^9, 3.805654334411501*^9}, {3.805654391821225*^9, 3.805654393919258*^9}, {3.805690261069723*^9, 3.805690347621993*^9}, { 3.805690621727107*^9, 3.805690623503017*^9}, {3.8056910276120377`*^9, 3.8056910328414907`*^9}, {3.805691362616091*^9, 3.805691363321958*^9}, { 3.80569145362528*^9, 3.8056914576228456`*^9}, {3.805691898642964*^9, 3.8056919041944*^9}, {3.805698391555106*^9, 3.805698393275546*^9}, { 3.805701182500887*^9, 3.805701184976852*^9}, 3.8057121562665977`*^9, 3.805736425591305*^9, 3.805736467659432*^9, {3.808382268527505*^9, 3.808382268784771*^9}, {3.80936286806772*^9, 3.809362869094466*^9}, { 3.809362946646513*^9, 3.809362958581848*^9}, {3.80936299235808*^9, 3.809362997967373*^9}, 3.8093630327959013`*^9, {3.809363296152561*^9, 3.809363380380951*^9}, {3.8093634121403923`*^9, 3.8093635880175123`*^9}, { 3.809363636889933*^9, 3.809363780450708*^9}, {3.8093638249679117`*^9, 3.809363828713736*^9}, {3.809363883231064*^9, 3.809364001222467*^9}, { 3.809364054736886*^9, 3.809364201113165*^9}, {3.8093665971305304`*^9, 3.809366597962697*^9}, {3.809366669930553*^9, 3.8093666776650667`*^9}, { 3.8093669903427563`*^9, 3.809366995353003*^9}, {3.809367489222953*^9, 3.8093675095251513`*^9}, {3.809367567660389*^9, 3.809367635413116*^9}, { 3.809367748843932*^9, 3.80936775741505*^9}, {3.809368159197804*^9, 3.8093682164894247`*^9}, {3.809368256347239*^9, 3.809368292865641*^9}, 3.809368361328628*^9, {3.8093693907476263`*^9, 3.8093694559042063`*^9}, { 3.8093695027843733`*^9, 3.8093695199498243`*^9}, 3.809370171166503*^9}, CellLabel-> "(Debug) In[59]:=",ExpressionUUID->"bb0cc17e-5dac-4719-835b-f5f667cb2253"], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.809367642486279*^9, 3.8093677618773623`*^9, 3.809367792097096*^9, 3.809367848688916*^9, 3.8093678838094387`*^9, 3.809368301959818*^9, 3.8093684022502117`*^9, 3.80936867374944*^9, 3.809369036629105*^9, 3.80936955912217*^9, 3.809370225777726*^9, 3.8094062482962646`*^9, 3.809410581109332*^9, 3.809410679043112*^9, 3.809421932516114*^9, 3.8094271615775967`*^9, 3.809427706801024*^9, 3.809428006336891*^9, 3.809429388533276*^9, 3.8094361397749233`*^9, 3.809437410957402*^9, { 3.80943781349817*^9, 3.809437846946065*^9}, 3.809438809793215*^9, 3.809438846263795*^9, 3.809440770557715*^9, 3.809442266281794*^9, 3.809447307796709*^9, 3.8094485901820393`*^9, 3.809450006471287*^9, 3.809451147380052*^9, 3.809452296272088*^9, 3.8094536999233294`*^9, 3.8094550499308443`*^9, 3.8094562534512987`*^9, 3.809457566309099*^9, 3.8094856810913563`*^9, 3.809487205926428*^9, 3.809490706485249*^9, 3.8094924934336157`*^9, 3.8094941668551903`*^9, 3.809495176682383*^9, 3.809496197599718*^9, 3.809501875233255*^9, 3.809502846895224*^9, 3.80950369957132*^9, 3.809504623404993*^9, 3.809506671286981*^9, 3.809522251581416*^9, 3.809524561937231*^9, 3.809524917703759*^9, 3.809526155547616*^9, 3.809527178867628*^9, 3.809528277347804*^9, 3.809528502365713*^9, 3.80953107151536*^9, {3.809785311859869*^9, 3.809785339740891*^9}, 3.8098453941993093`*^9, 3.80996891429173*^9, 3.809969151678207*^9, 3.809969218287136*^9, 3.8099696070724077`*^9, 3.809969672216426*^9, 3.809969794511819*^9, 3.8099698750685053`*^9, 3.809970046465385*^9, 3.8099702655263453`*^9, 3.809970337364644*^9, 3.8099704118905287`*^9, 3.809970458160133*^9, 3.809970625365926*^9, 3.809970786927148*^9, 3.809970864309305*^9, 3.80997113514853*^9, { 3.8134940247716217`*^9, 3.8134940472417*^9}, 3.813494120220792*^9, 3.8134942199152403`*^9, 3.813494261271051*^9, 3.813495275698577*^9, 3.813496447724111*^9, 3.813504424290925*^9, 3.813504793981556*^9, 3.813515135825807*^9, 3.816287799143078*^9, {3.8162878981906433`*^9, 3.8162879188640347`*^9}, 3.816288535857401*^9, 3.816288662653479*^9}, CellLabel-> "(Debug) Out[59]=",ExpressionUUID->"9ea06f02-19bb-42c5-bef2-b11b2c37e25b"], Cell[CellGroupData[{ Cell[BoxData["\<\"th interval\"\>"], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288662685858*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"43924823-09a7-46ff-ac76-bd5c5bb5ae9a"], Cell[BoxData["0.7`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162886626870203`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"1e5f2e38-ffdb-4af2-9fba-768ba0020d9a"], Cell[BoxData["0.8`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288662688427*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"9e013729-badb-47e7-a063-cab2791e108e"], Cell[BoxData[ RowBox[{"2", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162886678769207`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"13bf1a23-32b6-4454-9e98-f05c4ac109a0"], Cell[BoxData["0.75`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288667878417*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"280d57b4-9ec6-47ea-9983-891b70dd11b5"], Cell[BoxData["0.8`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288667879321*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"1895b8d6-bdb9-407c-be80-480f666a8121"], Cell[BoxData[ RowBox[{"3", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288673722962*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"7f25849d-d3fb-48c2-ad7f-2b6f8c225ab2"], Cell[BoxData["0.75`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162886737238493`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"061463fd-e55f-4b07-a2c6-ffc31421eea7"], Cell[BoxData["0.775`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288673724514*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"afe21b77-8c8b-4e52-aea3-1c36a308e367"], Cell[BoxData[ RowBox[{"4", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288679502371*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"c6e5d30c-5993-4c82-8b2c-d19419d327c1"], Cell[BoxData["0.7625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288679503221*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"75e45817-3733-42cb-9fee-3a812e0c3343"], Cell[BoxData["0.775`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.81628867950387*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"f810a06d-f858-4a65-b215-038ba93d7679"], Cell[BoxData[ RowBox[{"5", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162886848976107`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"4ef4b69b-0203-46b1-b420-a4518068f38f"], Cell[BoxData["0.76875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288684898596*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"cc99e907-059e-41e3-bb57-79d43f71969e"], Cell[BoxData["0.775`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288684899255*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"0467ae09-d367-4268-8c8c-580945e44c6b"], Cell[BoxData[ RowBox[{"6", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288690463683*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"5b6f6103-74c7-47ea-8205-33185e00c9d0"], Cell[BoxData["0.76875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288690464526*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"1edb09b4-3b2b-43be-b4aa-b977da0e9a63"], Cell[BoxData["0.\ 77187499999999999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288690465185*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"42d7554d-e0b2-4f18-a6c1-f8f4d74e1e13"], Cell[BoxData[ RowBox[{"7", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288695990737*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"9961a5b4-f4e4-4c14-bf49-11e722410a75"], Cell[BoxData["0.7703125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288695991622*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"9f4716ba-43be-4384-843f-4b4f94642eaf"], Cell[BoxData["0.\ 77187499999999999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288695992317*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"3ce41766-27e0-4bbb-9c3a-df76e0af30b0"], Cell[BoxData[ RowBox[{"8", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887015054007`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"9e36a27a-3326-4ccf-b2a5-a7cd575380d4"], Cell[BoxData["0.7703125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288701506412*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"b2311dad-64db-4ba0-865d-8b4c164d9b90"], Cell[BoxData["0.77109375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288701507079*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"b8aa0ef8-90de-4c55-9f28-90a6476f5bab"], Cell[BoxData[ RowBox[{"9", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288707015376*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"c259d287-8a25-4009-bdea-a6c793e47883"], Cell[BoxData["0.\ 77070312499999999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288707016367*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"3e1386c9-a088-4887-ad07-e5166477cb6f"], Cell[BoxData["0.77109375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288707017171*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"943b097c-ae27-42cd-8ca0-5c7cf011d758"], Cell[BoxData[ RowBox[{"10", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288712423873*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"22eca43f-fd58-4a2d-a860-482adbf876b8"], Cell[BoxData["0.\ 77089843749999999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887124248753`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"0e0c49d2-049f-411c-9806-f195ca46760f"], Cell[BoxData["0.77109375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288712425531*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"d857479b-1e6d-416b-8c36-225457b4ec3b"], Cell[BoxData[ RowBox[{"11", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288717964167*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"946ebaa1-7a27-41b0-b6f2-f4f22484832b"], Cell[BoxData["0.\ 77089843749999999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288717965197*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"c7d72855-61ba-4b1e-b5db-4791cb95d351"], Cell[BoxData["0.77099609375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288717965858*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"b53d127a-87f8-41a9-b480-482628c5bfaf"], Cell[BoxData[ RowBox[{"12", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288723419723*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"b2a4f8ff-342b-4482-ac61-cb23d7d24cce"], Cell[BoxData["0.\ 77089843749999999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288723420644*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"aa8537a7-64ad-4dbd-822d-c53294bf010c"], Cell[BoxData["0.\ 77094726562499999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887234213743`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"8fa21a34-b31d-457d-803f-9d352548eb25"], Cell[BoxData[ RowBox[{"13", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288728879595*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"5e8792d9-bd65-4abc-8b51-e72b5bedea5f"], Cell[BoxData["0.\ 77089843749999999999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887288805513`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"90ddea98-fcbb-49f5-929e-82d88cef60f0"], Cell[BoxData["0.7709228515625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288728881343*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"e8f58d6e-074d-4e1b-af88-607ee64d03aa"], Cell[BoxData[ RowBox[{"14", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288734579485*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"e2958cf9-b5b1-4942-beca-b83dffbcc834"], Cell[BoxData["0.77091064453125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887345807333`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"1181fd1b-e92b-4d3a-8e67-17355033eb02"], Cell[BoxData["0.7709228515625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887345815783`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"7cc0eb30-9450-4fb5-837b-2700eea0b777"], Cell[BoxData[ RowBox[{"15", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288739984454*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"6933f912-5314-4180-b48f-6dc47ede694b"], Cell[BoxData["0.77091064453125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288739985429*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"e0312093-2720-442b-bdce-86cdf7840c4a"], Cell[BoxData["0.\ 77091674804687499999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887399861403`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"6a9f04ce-71d5-4864-9263-0fe087bf716d"], Cell[BoxData[ RowBox[{"16", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288745401763*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"0a48789b-bf4a-4665-97e2-ad7542a992a7"], Cell[BoxData["0.\ 77091369628906249999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288745402793*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"f57c30e3-7b9a-488e-a69b-f1d442ee4914"], Cell[BoxData["0.\ 77091674804687499999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887454034653`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"f9308c5b-a13f-4414-b0a9-99086e016410"], Cell[BoxData[ RowBox[{"17", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288751263496*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"a7826511-be19-43ce-b7da-e648b1a1e5b2"], Cell[BoxData["0.\ 77091369628906249999999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288751264448*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"eec6b307-ab16-4353-82d6-3dae1c40a3e3"], Cell[BoxData["0.77091522216796875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288751265234*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"e95fa95b-60b3-444d-b047-f5b70a62f7ec"], Cell[BoxData[ RowBox[{"18", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887567386007`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"f51b75a9-def6-49c5-b312-8af7bbe2f94f"], Cell[BoxData["0.770914459228515625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288756739727*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"dca8403e-79ef-4329-b336-e9ba42ab0c40"], Cell[BoxData["0.77091522216796875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288756740415*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"eea01995-6321-4e4e-ad12-34e522aa3fc4"], Cell[BoxData[ RowBox[{"19", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288762304669*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"87fb7aea-44d4-4a07-9cb3-a806abfd7311"], Cell[BoxData["0.\ 77091484069824218749999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288762305661*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"6abadebd-9d62-424b-9a37-b1278e89ab36"], Cell[BoxData["0.77091522216796875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887623063383`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"3dec209e-68a6-4ee0-904d-2b048cd5a24c"], Cell[BoxData[ RowBox[{"20", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288767740221*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"4fa4a404-1aa5-487c-b793-0cc25ae89950"], Cell[BoxData["0.\ 77091484069824218749999999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288767741251*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"8f1e1791-b725-4453-ab1c-7bd9566810d0"], Cell[BoxData["0.77091503143310546875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887677419252`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"d0a7fcd4-e32c-45de-bd89-16e705a1e715"], Cell[BoxData[ RowBox[{"21", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288773109502*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"0d929893-5983-4524-8d8e-8b9b8e433370"], Cell[BoxData["0.770914936065673828125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887731105022`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"e3d559dc-e515-47e4-a90d-3703b1049c8b"], Cell[BoxData["0.77091503143310546875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288773111176*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"322c9387-fc63-4792-b779-f1263192be51"], Cell[BoxData[ RowBox[{"22", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288778627508*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"165b8dcd-d9fa-4a4c-94ec-f452edb6a8b0"], Cell[BoxData["0.770914936065673828125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288778628714*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"c5199083-9ab7-4935-a1fc-b83d74d175f4"], Cell[BoxData["0.7709149837493896484375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288778629395*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"809ab049-817e-4034-8809-a029c154b927"], Cell[BoxData[ RowBox[{"23", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288784259489*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"0575daab-5ad5-499d-90c5-d92f7e7c7ee4"], Cell[BoxData["0.770914936065673828125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288784260624*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"e79e3497-91f4-43e3-a69d-0b04155771e1"], Cell[BoxData["0.\ 77091495990753173828124999999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887842613688`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"8febd328-78b8-49a9-b1e6-4b397fdc4d49"], Cell[BoxData[ RowBox[{"24", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.81628878990725*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"716e9987-1c6d-4693-b7b4-38f0af94a5db"], Cell[BoxData["0.770914936065673828125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887899084797`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"53f49b4d-478f-4545-8bf8-52551af196ed"], Cell[BoxData["0.\ 77091494798660278320312499999999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288789909171*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"901dc998-ad2a-4d7d-90e7-00ee064cbe94"], Cell[BoxData[ RowBox[{"25", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162887956076193`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"d02166f9-6fbc-4096-baa3-41690d19db06"], Cell[BoxData["0.770914936065673828125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288795608601*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"f54e7c67-fd4f-4d63-9620-ca3fbc04f23b"], Cell[BoxData["0.7709149420261383056640625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288795609276*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"5ddbd484-aadb-45e1-9702-8061705a6ce0"], Cell[BoxData[ RowBox[{"26", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.81628880111163*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"a3cee2d8-f18c-42e6-8496-cff8dd6bfaa5"], Cell[BoxData["0.77091493904590606689453125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288801112719*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"fc157549-0add-4ecc-b81c-9a307223aa65"], Cell[BoxData["0.7709149420261383056640625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888011133947`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"df6c7193-ebb4-4aa5-9feb-04b436e31766"], Cell[BoxData[ RowBox[{"27", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288806431744*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"38fdd045-3045-4422-b553-aa7060597c0d"], Cell[BoxData["0.77091493904590606689453125`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288806432948*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"456758ad-a445-4682-b842-360a47a10df7"], Cell[BoxData["0.\ 77091494053602218627929687499999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288806433649*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"1b6119c1-1b0c-4e1a-a7dc-517c4bdf74c3"], Cell[BoxData[ RowBox[{"28", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888119473867`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"20e289a4-1952-4109-ab46-aeb78a39eb6e"], Cell[BoxData["0.7709149397909641265869140625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888119483624`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"eddb810f-f2f2-4fac-877e-37390aec3422"], Cell[BoxData["0.\ 77091494053602218627929687499999999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288811949066*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"a560f26a-0a6b-4eaf-9f3e-4a76617d7847"], Cell[BoxData[ RowBox[{"29", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888176108923`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"47a1aa5d-7c7f-46ca-a623-79cddbe52663"], Cell[BoxData["0.7709149397909641265869140625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288817612216*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"43d26a60-3589-4028-b3c8-2c6866c3c7af"], Cell[BoxData["0.77091494016349315643310546875`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888176129093`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"4f584dc3-c668-497b-92b6-dc1b83a0e2bb"], Cell[BoxData[ RowBox[{"30", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288823206254*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"ec5476ec-707b-4419-95ea-f0eb2a0bb37f"], Cell[BoxData["0.7709149397909641265869140625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.81628882320719*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"2d2f8a40-6f7c-41ba-97a0-af76bf62d5f3"], Cell[BoxData["0.770914939977228641510009765625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288823207889*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"1f7996e8-d03b-460a-b4fc-1751ee22fc1e"], Cell[BoxData[ RowBox[{"31", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288828797934*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"c31e508c-cae3-4579-af81-5afd63eb61e8"], Cell[BoxData["0.\ 77091493988409638404846191406249999999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288828798965*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"3ad3f31e-6d5c-4f62-8440-d4cdb2926ae6"], Cell[BoxData["0.770914939977228641510009765625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888287996607`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"f26a64f3-1f89-4222-bb46-da92f9dbff4f"], Cell[BoxData[ RowBox[{"32", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288834498433*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"eb66e004-368f-47af-82e2-eb39c9aa7718"], Cell[BoxData["0.77091493993066251277923583984375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888344994717`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"7c332272-dec0-4cd6-a012-768b62825cc2"], Cell[BoxData["0.770914939977228641510009765625`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288834500177*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"82fa20c2-31bd-43d4-bb46-105a85997471"], Cell[BoxData[ RowBox[{"33", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.8162888400842333`*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"9be6f102-5638-4ef7-ac2c-ad9e606e3aba"], Cell[BoxData["0.77091493993066251277923583984375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288840085126*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"b287fd7d-34a6-4ff6-a5e9-ee1eae3fb244"], Cell[BoxData["0.\ 77091493995394557714462280273437499999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288840085826*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"148b80c8-565f-4ca7-a771-2084409782a7"], Cell[BoxData[ RowBox[{"34", " ", "\<\"th interval\"\>"}]], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288845694613*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"2e2adfd4-11ce-4e75-b242-15512155225a"], Cell[BoxData["0.77091493993066251277923583984375`50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288845695547*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"2d8e467f-d323-47f6-b0e7-28ad0951d1df"], Cell[BoxData["0.\ 77091493994230404496192932128906249999999999999999999999999999999999999999999`\ 50."], "Print", CellChangeTimes->{ 3.813494219920395*^9, 3.8134942612726994`*^9, 3.813495275700094*^9, 3.8134964477272367`*^9, 3.81350442429285*^9, 3.813504793982965*^9, 3.813515135827227*^9, 3.816287799144753*^9, {3.816287898194519*^9, 3.816287918865287*^9}, 3.816288535858779*^9, 3.816288845696259*^9}, CellLabel-> "(Debug) During evaluation of \ In[59]:=",ExpressionUUID->"6daf23fd-cfc3-4805-a94f-7533048fc875"] }, Open ]] }, Open ]] }, WindowSize->{652, 638}, WindowMargins->{{16, Automatic}, {70, Automatic}}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1805, 53, 84, "Input",ExpressionUUID->"4ecc8100-8d69-4d6d-ac93-b9fa4d9812ba"], Cell[2366, 75, 5572, 93, 210, "Input",ExpressionUUID->"6ca1d94b-b8ff-42cf-8373-220c54465d28"], Cell[7941, 170, 1168, 23, 63, "Input",ExpressionUUID->"3eb0c4b1-d4a6-4478-96e2-4cc30f8e467b"], Cell[9112, 195, 1229, 41, 63, "Input",ExpressionUUID->"2f9fcee8-d491-4019-8437-46a8af8ae987"], Cell[10344, 238, 3052, 81, 189, "Input",ExpressionUUID->"dde0c43c-1254-4bf7-93bd-e8c7e341046d"], Cell[CellGroupData[{ Cell[13421, 323, 11437, 265, 735, "Input",ExpressionUUID->"bb0cc17e-5dac-4719-835b-f5f667cb2253"], Cell[24861, 590, 2280, 33, 45, "Output",ExpressionUUID->"9ea06f02-19bb-42c5-bef2-b11b2c37e25b"], Cell[CellGroupData[{ Cell[27166, 627, 462, 8, 24, "Print",ExpressionUUID->"43924823-09a7-46ff-ac76-bd5c5bb5ae9a"], Cell[27631, 637, 452, 8, 24, "Print",ExpressionUUID->"1e5f2e38-ffdb-4af2-9fba-768ba0020d9a"], Cell[28086, 647, 450, 8, 24, "Print",ExpressionUUID->"9e013729-badb-47e7-a063-cab2791e108e"], Cell[28539, 657, 486, 9, 24, "Print",ExpressionUUID->"13bf1a23-32b6-4454-9e98-f05c4ac109a0"], Cell[29028, 668, 451, 8, 24, "Print",ExpressionUUID->"280d57b4-9ec6-47ea-9983-891b70dd11b5"], Cell[29482, 678, 450, 8, 24, "Print",ExpressionUUID->"1895b8d6-bdb9-407c-be80-480f666a8121"], Cell[29935, 688, 484, 9, 24, "Print",ExpressionUUID->"7f25849d-d3fb-48c2-ad7f-2b6f8c225ab2"], Cell[30422, 699, 453, 8, 24, "Print",ExpressionUUID->"061463fd-e55f-4b07-a2c6-ffc31421eea7"], Cell[30878, 709, 452, 8, 24, "Print",ExpressionUUID->"afe21b77-8c8b-4e52-aea3-1c36a308e367"], Cell[31333, 719, 484, 9, 24, "Print",ExpressionUUID->"c6e5d30c-5993-4c82-8b2c-d19419d327c1"], Cell[31820, 730, 453, 8, 24, "Print",ExpressionUUID->"75e45817-3733-42cb-9fee-3a812e0c3343"], Cell[32276, 740, 451, 8, 24, "Print",ExpressionUUID->"f810a06d-f858-4a65-b215-038ba93d7679"], Cell[32730, 750, 486, 9, 24, "Print",ExpressionUUID->"4ef4b69b-0203-46b1-b420-a4518068f38f"], Cell[33219, 761, 454, 8, 24, "Print",ExpressionUUID->"cc99e907-059e-41e3-bb57-79d43f71969e"], Cell[33676, 771, 452, 8, 24, "Print",ExpressionUUID->"0467ae09-d367-4268-8c8c-580945e44c6b"], Cell[34131, 781, 484, 9, 24, "Print",ExpressionUUID->"5b6f6103-74c7-47ea-8205-33185e00c9d0"], Cell[34618, 792, 454, 8, 24, "Print",ExpressionUUID->"1edb09b4-3b2b-43be-b4aa-b977da0e9a63"], Cell[35075, 802, 530, 10, 24, "Print",ExpressionUUID->"42d7554d-e0b2-4f18-a6c1-f8f4d74e1e13"], Cell[35608, 814, 484, 9, 24, "Print",ExpressionUUID->"9961a5b4-f4e4-4c14-bf49-11e722410a75"], Cell[36095, 825, 456, 8, 24, "Print",ExpressionUUID->"9f4716ba-43be-4384-843f-4b4f94642eaf"], Cell[36554, 835, 530, 10, 24, "Print",ExpressionUUID->"3ce41766-27e0-4bbb-9c3a-df76e0af30b0"], Cell[37087, 847, 486, 9, 24, "Print",ExpressionUUID->"9e36a27a-3326-4ccf-b2a5-a7cd575380d4"], Cell[37576, 858, 456, 8, 24, "Print",ExpressionUUID->"b2311dad-64db-4ba0-865d-8b4c164d9b90"], Cell[38035, 868, 457, 8, 24, "Print",ExpressionUUID->"b8aa0ef8-90de-4c55-9f28-90a6476f5bab"], Cell[38495, 878, 484, 9, 24, "Print",ExpressionUUID->"c259d287-8a25-4009-bdea-a6c793e47883"], Cell[38982, 889, 530, 10, 24, "Print",ExpressionUUID->"3e1386c9-a088-4887-ad07-e5166477cb6f"], Cell[39515, 901, 457, 8, 24, "Print",ExpressionUUID->"943b097c-ae27-42cd-8ca0-5c7cf011d758"], Cell[39975, 911, 485, 9, 24, "Print",ExpressionUUID->"22eca43f-fd58-4a2d-a860-482adbf876b8"], Cell[40463, 922, 532, 10, 24, "Print",ExpressionUUID->"0e0c49d2-049f-411c-9806-f195ca46760f"], Cell[40998, 934, 457, 8, 24, "Print",ExpressionUUID->"d857479b-1e6d-416b-8c36-225457b4ec3b"], Cell[41458, 944, 485, 9, 24, "Print",ExpressionUUID->"946ebaa1-7a27-41b0-b6f2-f4f22484832b"], Cell[41946, 955, 530, 10, 24, "Print",ExpressionUUID->"c7d72855-61ba-4b1e-b5db-4791cb95d351"], Cell[42479, 967, 460, 8, 24, "Print",ExpressionUUID->"b53d127a-87f8-41a9-b480-482628c5bfaf"], Cell[42942, 977, 485, 9, 24, "Print",ExpressionUUID->"b2a4f8ff-342b-4482-ac61-cb23d7d24cce"], Cell[43430, 988, 530, 10, 24, "Print",ExpressionUUID->"aa8537a7-64ad-4dbd-822d-c53294bf010c"], Cell[43963, 1000, 532, 10, 24, "Print",ExpressionUUID->"8fa21a34-b31d-457d-803f-9d352548eb25"], Cell[44498, 1012, 485, 9, 24, "Print",ExpressionUUID->"5e8792d9-bd65-4abc-8b51-e72b5bedea5f"], Cell[44986, 1023, 532, 10, 24, "Print",ExpressionUUID->"90ddea98-fcbb-49f5-929e-82d88cef60f0"], Cell[45521, 1035, 462, 8, 24, "Print",ExpressionUUID->"e8f58d6e-074d-4e1b-af88-607ee64d03aa"], Cell[45986, 1045, 485, 9, 24, "Print",ExpressionUUID->"e2958cf9-b5b1-4942-beca-b83dffbcc834"], Cell[46474, 1056, 465, 8, 24, "Print",ExpressionUUID->"1181fd1b-e92b-4d3a-8e67-17355033eb02"], Cell[46942, 1066, 464, 8, 24, "Print",ExpressionUUID->"7cc0eb30-9450-4fb5-837b-2700eea0b777"], Cell[47409, 1076, 485, 9, 24, "Print",ExpressionUUID->"6933f912-5314-4180-b48f-6dc47ede694b"], Cell[47897, 1087, 463, 8, 24, "Print",ExpressionUUID->"e0312093-2720-442b-bdce-86cdf7840c4a"], Cell[48363, 1097, 532, 10, 24, "Print",ExpressionUUID->"6a9f04ce-71d5-4864-9263-0fe087bf716d"], Cell[48898, 1109, 485, 9, 24, "Print",ExpressionUUID->"0a48789b-bf4a-4665-97e2-ad7542a992a7"], Cell[49386, 1120, 530, 10, 24, "Print",ExpressionUUID->"f57c30e3-7b9a-488e-a69b-f1d442ee4914"], Cell[49919, 1132, 532, 10, 24, "Print",ExpressionUUID->"f9308c5b-a13f-4414-b0a9-99086e016410"], Cell[50454, 1144, 485, 9, 24, "Print",ExpressionUUID->"a7826511-be19-43ce-b7da-e648b1a1e5b2"], Cell[50942, 1155, 530, 10, 24, "Print",ExpressionUUID->"eec6b307-ab16-4353-82d6-3dae1c40a3e3"], Cell[51475, 1167, 466, 8, 24, "Print",ExpressionUUID->"e95fa95b-60b3-444d-b047-f5b70a62f7ec"], Cell[51944, 1177, 487, 9, 24, "Print",ExpressionUUID->"f51b75a9-def6-49c5-b312-8af7bbe2f94f"], Cell[52434, 1188, 467, 8, 24, "Print",ExpressionUUID->"dca8403e-79ef-4329-b336-e9ba42ab0c40"], Cell[52904, 1198, 466, 8, 24, "Print",ExpressionUUID->"eea01995-6321-4e4e-ad12-34e522aa3fc4"], Cell[53373, 1208, 485, 9, 24, "Print",ExpressionUUID->"87fb7aea-44d4-4a07-9cb3-a806abfd7311"], Cell[53861, 1219, 530, 10, 24, "Print",ExpressionUUID->"6abadebd-9d62-424b-9a37-b1278e89ab36"], Cell[54394, 1231, 468, 8, 24, "Print",ExpressionUUID->"3dec209e-68a6-4ee0-904d-2b048cd5a24c"], Cell[54865, 1241, 485, 9, 24, "Print",ExpressionUUID->"4fa4a404-1aa5-487c-b793-0cc25ae89950"], Cell[55353, 1252, 530, 10, 24, "Print",ExpressionUUID->"8f1e1791-b725-4453-ab1c-7bd9566810d0"], Cell[55886, 1264, 471, 8, 24, "Print",ExpressionUUID->"d0a7fcd4-e32c-45de-bd89-16e705a1e715"], Cell[56360, 1274, 485, 9, 24, "Print",ExpressionUUID->"0d929893-5983-4524-8d8e-8b9b8e433370"], Cell[56848, 1285, 472, 8, 24, "Print",ExpressionUUID->"e3d559dc-e515-47e4-a90d-3703b1049c8b"], Cell[57323, 1295, 469, 8, 24, "Print",ExpressionUUID->"322c9387-fc63-4792-b779-f1263192be51"], Cell[57795, 1305, 485, 9, 24, "Print",ExpressionUUID->"165b8dcd-d9fa-4a4c-94ec-f452edb6a8b0"], Cell[58283, 1316, 470, 8, 24, "Print",ExpressionUUID->"c5199083-9ab7-4935-a1fc-b83d74d175f4"], Cell[58756, 1326, 471, 8, 24, "Print",ExpressionUUID->"809ab049-817e-4034-8809-a029c154b927"], Cell[59230, 1336, 485, 9, 24, "Print",ExpressionUUID->"0575daab-5ad5-499d-90c5-d92f7e7c7ee4"], Cell[59718, 1347, 470, 8, 24, "Print",ExpressionUUID->"e79e3497-91f4-43e3-a69d-0b04155771e1"], Cell[60191, 1357, 532, 10, 24, "Print",ExpressionUUID->"8febd328-78b8-49a9-b1e6-4b397fdc4d49"], Cell[60726, 1369, 484, 9, 24, "Print",ExpressionUUID->"716e9987-1c6d-4693-b7b4-38f0af94a5db"], Cell[61213, 1380, 472, 8, 24, "Print",ExpressionUUID->"53f49b4d-478f-4545-8bf8-52551af196ed"], Cell[61688, 1390, 530, 10, 24, "Print",ExpressionUUID->"901dc998-ad2a-4d7d-90e7-00ee064cbe94"], Cell[62221, 1402, 487, 9, 24, "Print",ExpressionUUID->"d02166f9-6fbc-4096-baa3-41690d19db06"], Cell[62711, 1413, 470, 8, 24, "Print",ExpressionUUID->"f54e7c67-fd4f-4d63-9620-ca3fbc04f23b"], Cell[63184, 1423, 474, 8, 24, "Print",ExpressionUUID->"5ddbd484-aadb-45e1-9702-8061705a6ce0"], Cell[63661, 1433, 484, 9, 24, "Print",ExpressionUUID->"a3cee2d8-f18c-42e6-8496-cff8dd6bfaa5"], Cell[64148, 1444, 475, 8, 24, "Print",ExpressionUUID->"fc157549-0add-4ecc-b81c-9a307223aa65"], Cell[64626, 1454, 476, 8, 24, "Print",ExpressionUUID->"df6c7193-ebb4-4aa5-9feb-04b436e31766"], Cell[65105, 1464, 485, 9, 24, "Print",ExpressionUUID->"38fdd045-3045-4422-b553-aa7060597c0d"], Cell[65593, 1475, 475, 8, 24, "Print",ExpressionUUID->"456758ad-a445-4682-b842-360a47a10df7"], Cell[66071, 1485, 530, 10, 24, "Print",ExpressionUUID->"1b6119c1-1b0c-4e1a-a7dc-517c4bdf74c3"], Cell[66604, 1497, 487, 9, 24, "Print",ExpressionUUID->"20e289a4-1952-4109-ab46-aeb78a39eb6e"], Cell[67094, 1508, 479, 8, 24, "Print",ExpressionUUID->"eddb810f-f2f2-4fac-877e-37390aec3422"], Cell[67576, 1518, 530, 10, 24, "Print",ExpressionUUID->"a560f26a-0a6b-4eaf-9f3e-4a76617d7847"], Cell[68109, 1530, 487, 9, 24, "Print",ExpressionUUID->"47a1aa5d-7c7f-46ca-a623-79cddbe52663"], Cell[68599, 1541, 477, 8, 24, "Print",ExpressionUUID->"43d26a60-3589-4028-b3c8-2c6866c3c7af"], Cell[69079, 1551, 480, 8, 24, "Print",ExpressionUUID->"4f584dc3-c668-497b-92b6-dc1b83a0e2bb"], Cell[69562, 1561, 485, 9, 24, "Print",ExpressionUUID->"ec5476ec-707b-4419-95ea-f0eb2a0bb37f"], Cell[70050, 1572, 476, 8, 24, "Print",ExpressionUUID->"2d2f8a40-6f7c-41ba-97a0-af76bf62d5f3"], Cell[70529, 1582, 479, 8, 24, "Print",ExpressionUUID->"1f7996e8-d03b-460a-b4fc-1751ee22fc1e"], Cell[71011, 1592, 485, 9, 24, "Print",ExpressionUUID->"c31e508c-cae3-4579-af81-5afd63eb61e8"], Cell[71499, 1603, 530, 10, 24, "Print",ExpressionUUID->"3ad3f31e-6d5c-4f62-8440-d4cdb2926ae6"], Cell[72032, 1615, 481, 8, 24, "Print",ExpressionUUID->"f26a64f3-1f89-4222-bb46-da92f9dbff4f"], Cell[72516, 1625, 485, 9, 24, "Print",ExpressionUUID->"eb66e004-368f-47af-82e2-eb39c9aa7718"], Cell[73004, 1636, 483, 8, 24, "Print",ExpressionUUID->"7c332272-dec0-4cd6-a012-768b62825cc2"], Cell[73490, 1646, 479, 8, 24, "Print",ExpressionUUID->"82fa20c2-31bd-43d4-bb46-105a85997471"], Cell[73972, 1656, 487, 9, 24, "Print",ExpressionUUID->"9be6f102-5638-4ef7-ac2c-ad9e606e3aba"], Cell[74462, 1667, 481, 8, 24, "Print",ExpressionUUID->"b287fd7d-34a6-4ff6-a5e9-ee1eae3fb244"], Cell[74946, 1677, 530, 10, 24, "Print",ExpressionUUID->"148b80c8-565f-4ca7-a771-2084409782a7"], Cell[75479, 1689, 485, 9, 24, "Print",ExpressionUUID->"2e2adfd4-11ce-4e75-b242-15512155225a"], Cell[75967, 1700, 481, 8, 24, "Print",ExpressionUUID->"2d8e467f-d323-47f6-b0e7-28ad0951d1df"], Cell[76451, 1710, 530, 10, 24, "Print",ExpressionUUID->"6daf23fd-cfc3-4805-a94f-7533048fc875"] }, Open ]] }, Open ]] } ] *)