(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 40377, 904] NotebookOptionsPosition[ 39070, 860] NotebookOutlinePosition[ 39412, 875] CellTagsIndexPosition[ 39369, 872] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Newton", "'"}], "s", " ", "Method"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Simple", " ", "Example"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"n", ",", "x1", ",", "x0", ",", "f"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "-", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nMax", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", ".0001"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"x0", "=", "0."}], ";"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ",", RowBox[{"n", "=", RowBox[{"-", "1"}]}]}], "}"}], ",", StyleBox[ RowBox[{"x1", "=", RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}]}], FontColor->RGBColor[0, 0, 1]]}], "]"}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ RowBox[{"n", "=", "1"}], ";"}], FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}], "\[GreaterEqual]", " ", "tol"}], "&&", " ", RowBox[{"n", "<", "nMax"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"x0", "=", "x1"}], FontColor->RGBColor[0, 0, 1]], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}], ",", StyleBox[ RowBox[{"x1", "=", RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}]}], FontColor->RGBColor[0, 0, 1]]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "x1", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< iterations, \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] \ \>\"", ",", "x1", ",", " ", "\"\< with |\!\(\*SubscriptBox[\(x\), \ \(n\)]\)-\!\(\*SubscriptBox[\(x\), \(n - 1\)]\)|\[PrecedesTilde] \>\"", ",", " ", RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"f", "[", "x1", "]"}]}], " ", "]"}]}], "}"}], ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5051311548079243`*^9, 3.505131184897304*^9}, { 3.505131223693336*^9, 3.505131258633047*^9}, {3.505144075710505*^9, 3.5051442932372923`*^9}, {3.505144325432455*^9, 3.5051443961582003`*^9}, { 3.50514445657662*^9, 3.505144561733645*^9}, {3.5051446097196007`*^9, 3.50514462154088*^9}, {3.505144655215554*^9, 3.50514493528701*^9}, { 3.505145009365185*^9, 3.5051450175408583`*^9}, {3.505145059293606*^9, 3.505145061993431*^9}, 3.505145425038321*^9, {3.505145530674696*^9, 3.505145589424518*^9}, {3.5051456245057583`*^9, 3.505145627575899*^9}, { 3.505145798415608*^9, 3.505145804045519*^9}, {3.5051459691122837`*^9, 3.505146017972637*^9}, {3.5051460520012693`*^9, 3.5051460770571423`*^9}, { 3.505146140064952*^9, 3.505146187358604*^9}, {3.505146227144244*^9, 3.505146258157489*^9}, {3.5051463015578737`*^9, 3.5051463505880337`*^9}, { 3.5051465162255898`*^9, 3.505146532072053*^9}, {3.505146592396019*^9, 3.505146612903059*^9}, {3.505146668886343*^9, 3.505146688397215*^9}, 3.505146724717527*^9, {3.505146791273952*^9, 3.505146869684846*^9}, 3.5051470204944353`*^9, {3.5051471426828823`*^9, 3.505147153802916*^9}, { 3.5051473515520144`*^9, 3.50514747762368*^9}, {3.505147831702409*^9, 3.505147945629436*^9}, {3.5051479859660254`*^9, 3.505148012482769*^9}, { 3.505148108397566*^9, 3.505148227146614*^9}, 3.50514826979105*^9, { 3.505148343541518*^9, 3.505148475476529*^9}, {3.5051485079774933`*^9, 3.5051485707454863`*^9}, {3.505150353847987*^9, 3.505150430348336*^9}, { 3.505150644593762*^9, 3.505150677850616*^9}, {3.505151821012635*^9, 3.505151842832761*^9}, {3.505152293587101*^9, 3.50515230671246*^9}, { 3.5052153092009697`*^9, 3.505215385435511*^9}, {3.5052155424745493`*^9, 3.505215544979093*^9}, {3.505227240767109*^9, 3.505227241150754*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwtlHtU0ncYxr1OW8tbcw1N89rMS7pmzdR6WzghUTteiqwsK7Ei2szsuMod pbSVZXqaWVNRUlPLKTXQXGpfZuSOzjRCxeAHIiKhID9rXlJXjp2zP57z/vU8 5/3jeT6uh7+PpZkYGRlFGfTfjaBphPzxXVtvrlk+s7SEgxnRIXWYEAhRHsL7 me9x+KridhmXEAZ/BaxaP7+AA+W5+DcWIR4oR9xZb2ZwoCbPtd8gJIPVzlAn hRYHmf9PxHxCOhRFpt3linFg2++8lEfIgfIC68FADg5MS+4XVwhF8G6Dw+OK RBz2JNzhTL2phn+0bPpH9/WwfIm5n+TMgcxns9TFD5PgGaPXPL3Kg1q627RX /CRk9G6G29O/w1umd+i+WzpYxbOVGxsjuHl+Wa18VAvNSmJPX2gH6BUma7qc tNBBZzkm6ATQclFg3kydgJm1W6wbTv4JdP/8hvbScTCZr7dx9OyGoPLooyd7 NLBpKak5rrEHnPHiR2wLDfTkBPZ2evfBDpqbRR3xNawp1M7f07+AvbPHDlWe UIN2blg+EPASWoghqeryMaieaO22ui6Cjr63z/PaVWDlVIurVP1Qd609WIKN wrXjTSlsj0HwNXJ032o5CrPb6lXHssRAIne9j3NWQvoGAe+zp0Ng/t7VRbNt BIYbBVeFrhJgaB0Lq6IUsEjvL113TgpUh4TisWY5+Hxj8SGlFQOWutTUfhID UqXr0Yer5HDP0iY9elYCGU4H3Ub2D0MWZTdD5/AKfHW7losNOXUVetMEohhW Wk9ZChYUEDvNf1K5ZQDMUCnHvWwE1NF9SlG8CE4Etr5aRlHCfdrMhD5UCPU7 DrOfzCrBRR14kRHTCzNaBxt18SikY9ZB/bRuaIojmRaFqUBzvV8+RuiELHJu BU+tgrDwGsfjn3SAqyxiqCp3DLJz/rbR2bVB8Nc5RYQNakhq/Og8ncyF/c59 88YiNdjk6KvNjWtgpjtfmcp8DdlxlI4vV2TBbbMD6bEeGshWmLeykkvQSnlT pYlAAwFU6Z4g+0Zk/iMzfvOpcRj6w55FJLUgo3sHOEq7CVCRr+QlZvJRWgkn 365jAlJ9Bnh2oc9Qu89lS9vvtMC2oWbQ8C5kG5Hme8FKB76XrmsYe3sR5vdC dLZNB2RPRe1UsRA9KAcP1YFJsCGsTumVilAiZ5Otk6Gn7wbLtqwgDKLs3DtM zNDjcgp3vdvVIdSgcSq1isQh3sGd7SKWoMus3CR5NA6ZV2hE+ogEJcdOejbG GHZSSfLjaSVodVvbgygqDiVTz/rJRlKUV7Cv89phHBgNdafOrJOiY5t+efPx WYM/7a1Eel6K3HI+JVvU4LB2eshb5oKhD0GZK8R1OEj6vAr9fTD0anL0ZU29 YWchU8EXNmKokMpNDH+Iw94SfpJXBIaWvGNP57bh8Gv4EV3GaQxhwoJyUxEO YcvyF907MdRyae6IaACHdK8F7rkXGCoKObiuasiQv7jjoVCCIcrd9bztchwe n2Gcy8Yx9PiH513McRwCbj76duRzGSr221gQo8PBd/NGj2B3GTqlLIt3xXFI nYog/ewnQ16RjGH+tOG/rYR94dtlyMy4v7pwDoeUtYjCjpQhRVMIPcnAnRsC cfbCbhlqo1f5Bxi4tJ2fsBB/SIZu/c+tCH5IC+eEDP0LZSeG3Q== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 1}, {-0.45969765655081984`, 0.9999999795918365}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.505147962662614*^9, 3.505147990927535*^9}, { 3.505148117668744*^9, 3.505148180078216*^9}, {3.5051482138621902`*^9, 3.505148230254087*^9}, {3.505148354939464*^9, 3.505148405973927*^9}, { 3.5051484561212883`*^9, 3.5051484760437307`*^9}, {3.505148509015067*^9, 3.505148525120885*^9}, 3.5051485720412407`*^9, 3.50514863619044*^9, 3.505150465222125*^9, 3.505150618794627*^9, {3.505150689700433*^9, 3.505150710727345*^9}, 3.505151749434476*^9, {3.505151828669969*^9, 3.505151843557496*^9}, 3.5052154454531317`*^9, 3.505215546000717*^9}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"After \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" iterations, \\!\\(\\*SubscriptBox[\\(x\\), \ \\(n\\)]\\) \[TildeTilde] \"\>", "\[InvisibleSpace]", "0.7390851333852839`", "\[InvisibleSpace]", "\<\" with |\\!\\(\\*SubscriptBox[\\(x\\), \ \\(n\\)]\\)-\\!\\(\\*SubscriptBox[\\(x\\), \\(n - 1\\)]\\)|\[PrecedesTilde] \ \"\>", "\[InvisibleSpace]", "0.000027757526077754058`"}], SequenceForm[ "After ", 4, " iterations, \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", 0.7390851333852839, " with |\!\(\*SubscriptBox[\(x\), \(n\)]\)-\!\(\*SubscriptBox[\(x\), \(n \ - 1\)]\)|\[PrecedesTilde] ", 0.000027757526077754058`], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.5051518435826797`*^9, 3.505215445486959*^9, 3.505215546026101*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At this approximate \\!\\(\\*SubscriptBox[\\(x\\), \ \\(n\\)]\\), the function value f(\\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\)) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "2.847204694234051`*^-10"}]}], SequenceForm[ "At this approximate \!\(\*SubscriptBox[\(x\), \(n\)]\), the function \ value f(\!\(\*SubscriptBox[\(x\), \(n\)]\)) \[TildeTilde] ", \ -2.847204694234051*^-10], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.5051518435826797`*^9, 3.505215445486959*^9, 3.505215546040503*^9}], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{3.5051518435826797`*^9, 3.505215445486959*^9, 3.5052155460581627`*^9}], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{3.5051518435826797`*^9, 3.505215445486959*^9, 3.50521554607384*^9}], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{3.5051518435826797`*^9, 3.505215445486959*^9, 3.505215546090926*^9}], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{3.5051518435826797`*^9, 3.505215445486959*^9, 3.505215546107074*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Newton", "'"}], "s", " ", "Method"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Exercise", " ", "6", " ", "from", " ", "section", " ", "3.2"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"n", ",", "x1", ",", "x0", ",", "f", ",", "B"}], "]"}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"B", "=", "5"}], ";"}], FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "B"}], "*", SuperscriptBox["x", "2"]}]], RowBox[{"Cos", "[", "x", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nMax", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", ".0000001"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"x0", "=", "0."}], ";"}], FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ StyleBox[ RowBox[{"(", "*"}]], RowBox[{"Initial", " ", "guess"}], StyleBox[ RowBox[{"*", ")"}]]}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ",", RowBox[{"n", "=", RowBox[{"-", "1"}]}]}], "}"}], ",", StyleBox[ RowBox[{"x1", "=", RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}]}], FontColor->RGBColor[0, 0, 1]]}], "]"}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ RowBox[{"n", "=", "1"}], ";"}], FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\<, \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde]\>\"", ",", "x1"}], "]"}], ";"}], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}], "\[GreaterEqual]", " ", "tol"}], "&&", " ", RowBox[{"n", "<", "nMax"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"x0", "=", "x1"}], FontColor->RGBColor[0, 0, 1]], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}], "\[Equal]", "0"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}], ",", StyleBox[ RowBox[{"x1", "=", RowBox[{"x0", "-", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}]}]}], FontColor->RGBColor[0, 0, 1]]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "x1", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\<, \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] \>\"", ",", "x1"}], "]"}], ";"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< iterations, \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] \ \>\"", ",", "x1", ",", " ", "\"\< with |\!\(\*SubscriptBox[\(x\), \ \(n\)]\)-\!\(\*SubscriptBox[\(x\), \(n - 1\)]\)|\[PrecedesTilde] \>\"", ",", " ", RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"f", "[", "x1", "]"}]}], " ", "]"}]}], "}"}], ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}]}]}]], "Input", CellChangeTimes->{{3.5051311548079243`*^9, 3.505131184897304*^9}, { 3.505131223693336*^9, 3.505131258633047*^9}, {3.505144075710505*^9, 3.5051442932372923`*^9}, {3.505144325432455*^9, 3.5051443961582003`*^9}, { 3.50514445657662*^9, 3.505144561733645*^9}, {3.5051446097196007`*^9, 3.50514462154088*^9}, {3.505144655215554*^9, 3.50514493528701*^9}, { 3.505145009365185*^9, 3.5051450175408583`*^9}, {3.505145059293606*^9, 3.505145061993431*^9}, 3.505145425038321*^9, {3.505145530674696*^9, 3.505145589424518*^9}, {3.5051456245057583`*^9, 3.505145627575899*^9}, { 3.505145798415608*^9, 3.505145804045519*^9}, {3.5051459691122837`*^9, 3.505146017972637*^9}, {3.5051460520012693`*^9, 3.5051460770571423`*^9}, { 3.505146140064952*^9, 3.505146187358604*^9}, {3.505146227144244*^9, 3.505146258157489*^9}, {3.5051463015578737`*^9, 3.5051463505880337`*^9}, { 3.5051465162255898`*^9, 3.505146532072053*^9}, {3.505146592396019*^9, 3.505146612903059*^9}, {3.505146668886343*^9, 3.505146688397215*^9}, 3.505146724717527*^9, {3.505146791273952*^9, 3.505146869684846*^9}, 3.5051470204944353`*^9, {3.5051471426828823`*^9, 3.505147153802916*^9}, { 3.5051473515520144`*^9, 3.50514747762368*^9}, {3.505147831702409*^9, 3.505147945629436*^9}, {3.5051479859660254`*^9, 3.505148012482769*^9}, { 3.505148108397566*^9, 3.505148227146614*^9}, 3.50514826979105*^9, { 3.505148343541518*^9, 3.505148475476529*^9}, {3.5051485079774933`*^9, 3.5051485707454863`*^9}, {3.505150353847987*^9, 3.505150430348336*^9}, { 3.505150644593762*^9, 3.505150677850616*^9}, {3.505151821012635*^9, 3.505151842832761*^9}, {3.505152288447257*^9, 3.505152289011325*^9}, { 3.505152319052002*^9, 3.5051523686974707`*^9}, {3.505152406336029*^9, 3.505152453151791*^9}, {3.505152491577223*^9, 3.505152500159824*^9}, { 3.5051654626663113`*^9, 3.505165466227613*^9}, {3.5052154295263577`*^9, 3.505215431747967*^9}, {3.505215506478351*^9, 3.505215531290387*^9}, { 3.5052155747756042`*^9, 3.5052156072664413`*^9}, {3.505226964008657*^9, 3.505226987860856*^9}, {3.505227021419907*^9, 3.505227021661854*^9}, { 3.505227087603408*^9, 3.505227250652094*^9}, 3.505227304978553*^9, { 3.505227370746256*^9, 3.505227519974242*^9}, {3.505227594956427*^9, 3.505227607605356*^9}, {3.505227662244381*^9, 3.505227796705888*^9}, { 3.505227827743022*^9, 3.505227842991325*^9}}], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdl3k8VG8bxiUlSUr2pCyJlFKKhKtoX4VEi5ClVLakkpSyliThtaXNUkT2 nYNUkoqyZ5sxnBnLzAlJUt7T76/r851zz3mec9/X/SwKti4m9vx8fHweM/j4 /umpV2G86elpYuLxh/9U/LesyuapaYLqM/9Pq3ckHfecmCY+azD/U5WuovdD 1DThXzfxnw7M633WxpgmXDapJP5TV6cNFjmvpwlF0vc/9VneXuEQOE0sFtGv /KexcUrhH+dPE8Ka7/7TR91BLoeE/hISeuZu/1Sy3vSgmsQf4nVzgek/rTE2 3fZh+RQR/aBv/z/dpbbcQ0nxN5GntC7wn+pmHE/+vGaSCLtzsPKfTt52WLRO 7RexeNhJ4p/++JkYabVignCT7es4QavNwt2y3Rt/Egnv7Eu/0Rp/k2iTWDdO zGJvVxeiddfjuLjHBj8I5r2y5VdpXXPgpfuPg2PE09VFf8Jp7TO958e3f5Tw SeBr+LN3lJg3uzX65LER4mKmxs25liPEjAWjpMfh74SO171Dc4y/E5qphvvM zCji+nGd7rhdFJHC4NmLvucStlUDtlvjuESQ/PRzZsUQYZG/6FaTwxCxL7eN OvFtgEhuCLyeu2mASP9lkbH9I5tQtFS2GUklCb+TW6Mqa/qJ/PsP2hd1sggD +R83+/pZREK4Yc4eFoOICNnfd7GDSQStvbTD+FgH8dHUbV/GWA/xsn1TlZVF IzHhOVXyY1UXkVm6WHzk61viXtLJWsel7YT1iy+YX3CTGPK3ZKodaSZKf06d niqsxs038X3V+l+Iy1kukoUvmyEUYnd1gUsd0dKSqlm7k4FYqtRAe7iayN2x tOqQXT9UHio/Sa6rJlhJhuISV/qRvTtkpuTLaqIi/r5N7d1+1D49VjPmVE3o LJC9O7egH5Nmk4ey2a+JeetHArvmkDhWpG2/mlVFWIR8N654QULuZvYdpW8V BOms2v++m43nGrLc8OIKQklt55lHI2xoffM15o+tICxUN4nYzeJgn9YhCYZF BRH3d8i2eCUHE3Xd+vrpBGHD0v4d7cFBUeRRu/WJZcRGwYfDwrMGoLvCOGtp eBFhyTLLgfQgnAcLPU0PFxEz8rd+L1wxiGevFPQCpYuIuRF/bRS0BzFPZ/Qt N6GQEMjYlEgcHkTXrqiOsrQCQlR39qq14YPwdeoQPP4mj2BT4c+bBIdQk37a Knoii1gdEGL2rW8IU24NSnUlWUS4VJG44ugQNDfqcqZ9sghJpb++5nzDiC0X 9nCclUV8XLxic5DsMM59zgjeKJZJzNt+Qmz+gWHIMzlnXhx5SUjwDYrFZQ0j /TS/lGJ5ImHpEq163YkLrU3OL7k7Egmd3bPPr7/IRbFQ+9aSz88IRtAfmabr XLxNzTpnxnhK3Etf/r+eCC56hqyrAgSeEK/nfgqSKudiBdPnW3NkLGEyWTJn hggPWrfMZ7umxBCpV0S8giV52KKsoSlUFE3EvN8iNL2Uh6MOnQGbO6KIqYCV F7LW8RA6sHndY8UHxNNWJ5n1R3jg9H1f+NUqkPAPLtmSEs8Dv+oTx1k3/QmH 2JDVfEk8yDkZl2kn3SKq1w7N35HOw6OOEw06LdcJH+uEF9FlPJwbbvH5QLkS 74PV5S07eRhhOO6TLzyDak1B7WfzKLw91+SVGumKFge1pdoLKISzPT9vP+iB NvX6a5WLKKzqKbrsXXUVBi7zHhfJUnhFPurzMPNHydV4f21VCm6DYnJuS8Ih 6h56yWkrhaiR0/kKyx7gTITG4+RtFIp/lRt/UYzAmcaqhy07KQjMOeu/XjUK syam5KUPUIhWfs39sS4WBX8N3RYdpVCmLhOcvCEOVuyzl8ePU2Cuc1E6ohMP E8OD9p9OUlDfutiiUD8BjYrWk8ftKXRnFFnrKz/Bq2HnEz9cKLhns9Ijk55g uvtu53V3erx80d/DKk9xg3/EctqDgmqZfWSC2jPM9fc167xCx39YWDutkYT/ OV3JlLhFx3/Wk7LITIKgUJfbLn8K//viaJepmYzaW6/3ugZSKG0r+2utlYKt R9otHt2hMIt9Zn3VphdoR/Teqw/o7xmMuCFb8gLO9u+MjkRSWMkjPrrrpeJU wl5P1f9RODAucVoJadAL74lPjaXjBari/bal40hJl6fGEzp+zjCn4006LmaW v8t9SudDWFp7w84MxJkbea1NpPMh5tzQt/sVfgl6y8xJofO9QOTWs5RMRIzK tuu8pHAy/OmLg+xMNPJP1jul098rrlP/WzULEjNXmIdnUCiROrXELDULj3/t V6rKpOAXM2HEN5gFT5y/VJtFz29xqNNL9WxwBpXda7Ip9MgXFQikZ2PPdLBH Ui6FF48PdGUOZ8M5gi/YL4/OnyJL4IRGDmZWPjlhmU/nT0XUJO9VDprONdqw Cih8TEm8bEPl4AHqE2IL6fmq6T4S0cyFktKH/B1FFNRW2w/ZZ+eibv75BzeK KTQb2YiVcXNhs/faxlklFG4ePaEjrp6H9M6vcr40r3GztDrrmIen5bv3jdHc EXjYr+pZHvLvvq21KqUQnHAoVaYnDx7XtyRU0Lwxb3+9q1w+RveW1smUUej9 sHv8nUU+JJfsP+5Ecxhzu9zSyHykeoubZtOs/2uroWdDPk4ZGhZ8p3lA1OD0 R5ECJPqK31Mtp+evohuqvKcAay619JjTbKS/MfdqQAEeefZle9NMma5r/1JV gLqWZOFYmuOdNPhWThfgZ+/97xk07/ZdqeK7uRB9VSvPltA8/j+Vfa2XCkE4 zrxO0PwsQ9F9TW4hOq6VrP/33PiNfHQAVQjbw3xh//7/55tseeeqIpR/DomN oTl1RJKldaYIf/eqHf03/hGhRXNDkoog8CCt6d/8BJaJru1lFCH69fgiNZoz Nwqb68oX44DB78Wj9Ped2C/off9oMczv54/l0jzXbuZTdlQxltqtT3KmOd9r +h2+FqPHNlhrGc2n7v8ejhItwQ+1zhfv6fwueP5zEXdvCZQ1reedpbmsfHTT 9qASFOQbnxKg2amJdzK+ugR+qb/yIul6VfOz0/bol6IyovvsY7rebjKshidX SvFE6XunDM3ya3t+TuSVIlPF7swd2h+XT7QapWiUod/y0YA57Z/lHo1n/jqV Idw8gZdJ++vL7fp7h1PKEK91btVMmtULa77NXFaODmGHc2G0P1s/Vc84drwc 7J2q1z/Q/vXrq1iRHV0OzfI+9t8cCl1iRResFxIQJv/2HKD9/j6/0d9qRgWq SnuMIuh+WVb1Rfr20gpYJNlww+l+8vxYn5anXwGN0uNrb9P9psiqa5jnVYEA ka9xtqkUvBe+WVIyUoFk1/uTJUn0/OReZ/YvqETf7tN7btD9q6ZaaSS2phJf T/I89J/RfjcoO3PmbCX4rM97P31MYe25vDwpViUcrnN3SsdRCFll6VsnUIVL laF1fjEUOENT+3yXV+G7Iww49Hry9Pw21oBDFS7fXiUZG0FBwuWrWDmnCk6T 7q3xdylMun13seO9hkHsufq1PhTM10VulllQjfprC8IUvCnkjOgIflpbDbnn iT/nelE4d+FGgrZ7NY5e6ea+u0ivrx6iH+f+qMbsb8kNg+fo+l1avTJr8g2a kpNV+y3p/Og0/LBf/Bbm4bZKjkcoXJvwqJTVe4vbke53GGZ0/10ptfC79hZX ZOWaqw7S64fX3sAjfO8QdF+pSGc7hdBrZ1h/ZtVg2GXrwJQGBctbSQl7Ftbi YEF6za0pHlRDpziNa2rRf0b69o1xHsajTTecPFCLmocdLzwoHsIzZtRduFOL G0vWHDNi8VDXduJX/KwPCH4h3ef9gd5v10qa8X59gKPDpacXoun3dQYIRTA/ wuP495g5q3m4ulirmNtWj/KyczmR27mw0jKqF41uhE1xizvPdgjb9nKpfc8b sXyv15aqo0NQt41ZeLuwEZklecwokyFM3OOZCLQ1IjvIbXK74RAeDMY1Tcg0 ofYCasoU6PPL07F2RlwTTAhPGRXGINYtTO7LedSMV3w1ZxxsByGtemj291fN mJI/eybu6CCmDaZUNCqakTpeUtxoMoi6cyann/c0Q2/dtjgzo0E41vwdiFdo gfGNOfvuKA8i/voRyv9ZC2r+DH3pJQcgyJ3z+0hKK+ybJgbz3Qegknr32/X8 VuzUD/6w4NwAdjiIlaa8aUXSmkxdV/sBBHQtvvaztxXt/H4/YTFA738a01HL 2uDtnKelbDAAvkyzmc0xbQgtDCaEhAfwy+2xsFlIOwwD20IjXnAgrbF86Gpc Owwe+nbkPeNAZ+BF3bPUdozIiYt0PeTgsm3O3dGadmxo8t5sFM7BuMlb0Qez vkH2oUiNzVUORtYPLfri8w3L6mvVfx7gYPCHtpyxWwc29W9lFP9mIzRENKbU twM65xX+WI2zsVaJlFAL74Cy3Ruzed/Z8DSOEuXP6UCzZkTLzX42+NLG+HPH OtCatG92TwMbktZZHKnLnRi1lvexSWWjcDzIwS+oE6kFi7rjk9g4dte6l4ru RG7UGh7jMRuPi0U73xd1YltZ2obg/7GhLuFcf/U3HS8hPnO/PxtbalcWdPt0 IfeYiXeGLRu91vxa++51QfHaXe9AKzYCfrZlFj7qgrOc1k2no2x8UA5OvV/R hXy7K68OmLBhfp18aMTfjQSrBsEwQzbOaiX6pfh3g686ctakMhvzP1ydIR7V DWk9Ne2LCmxk2pj63Ejuxh7f588nl7AxHsp/2fJdN7LK7cyVpdio8MjM8xfo gV3KX6VRITb2fp7/QntHD+Z5Ljh/4zsJ2fH6qJ0HeqDEDuPP4JIYkHvgd8S8 B8tYVtF9gySCnKSsLzn0YCrI7L17P4m3s5ZJFQT0IEqy9eisDhJRq5gC70J7 kOMdKXKrjYS9aeJIc1QP7lTh3dwWEgJPVD+NJ/fA00HokM4XEoZ6mv4b3/VA /vitN8LvSYidGnXf8bkHVp0mBW1vSTCC86zNW3qwRWlrVlY1iRstm/Q8yR70 7rlVer2CRLm74WieIAMZddbLIwpJhMYIMN6IMnDQ/+r+7HwSJyrefmqSYmD7 krwr7bkkpkT2pv5YwYC3m+C3XVkkdF+Y2mzYxcAMeffEh6kk5tZLHNxuzMDn LosGYfo+1DbeonfYgoG0bU6/bqWQuLztuPTF0wyIUys2hCeS2HVWfra/KwO3 Z+dsV31GQiq8ZzTiMgNVz1T21jwhkd9t9zk3iAH1G8WrVR6RCJi9oqw6jIH1 3SqCrIckDq/mpDZGMyC0XfxTWjyJMa/zAWPPGQg8sl3OMpbEOklPfa33DFhd 4HqvjCLBr6+jvq2BgZcJn/y1I0k0nJqUNmujxx9Y4HQggoRrls/YBQ4DH9Md i2PCSWxp3cK89Z2BMVdVhU/3SYhO89c/+MVA0upEi3k0Z+wLTMsRYmJhv6tG 8j0SPhd2x7xeyERg0eDbGTTvjxUO/CrDRNKli8qOofT9sPKjR68CE2EHfhs1 3yUxRN6zHVVjQq7qqOJBmkvnmxjPXMdEVp1NaUMIiTsbxA0W6TKhyfd5vhXN R483qysZMsFKPiQ5dofEylvRMuv3MOHACv78gOYo752OhYeY8DzsXGxIM7/n eK6+JRNeQUKik7dJOLsk8b+2ZuL8uqu1RTS3nzYz3nWaiQJeC8eX5h22MxM+ ujBx4ZiakwnN2ceyB00uMZGj4rxLnWb5wzabWn2YqFgT6zuP5tsHFgSeCGDi WEyU2HgwifGdRCPzLhP8zK0TJM22W50VT0cyofbbZQ2T5k+6S1yH45nwsB7I ZdGsq1VX5p7IxE8NV38ezcmrrwpPpDFxSi//IT/9frEVKy2v5TBhpOE4uYRm n2VtyfwlTCjfV4reSjNHJmgssIqJKp7vhfM0my3SNhSpZUJrYH7wE5or5vXf C29gYt7+/U2dNK+aHdkp1UaPr5pvpkjnJ3raSP1hDxP7yMKZLjQL/Bq5rMhm YrNDSddrml1HnrxN4TFRPleWuYzO/66+aZvsv0y0h2mYjtKc25XxSnt2L74W Ohedpuu3rPXEn1KRXiyqXLqpn+aJ2pLod3K9GFjjf/EXXX+7aqf+fcq9+Fh8 deU92h/1ZTJaX9R7sSvekbMqjMTzzEufO3R7MVZrdPEG7S/xVJUltoa9qPux Vncj7ccbz5qcyN29+H1S5NcozRZR62ePWPSCl6dpFkj7t/oe0/SSdS+GRbXY x2l/rw2+/2TKsRcd2bH2urT/53jz9AQv9aIqNktYJJqEx8WE2yE+vfib2aHO H0Oix3l/68KAXtzutlGeprnQJu2CXGQvjLiL7y6g+8txp2OqZk4vpCqlq8Ie k/iyRXIiv7gXBy3EV1bT/Wqg+2a7XlUv/hzm7ph+SkJytRJjRwOdj46JkJAk er0T65Y6zutFkvT89/xpJFS6zP0D1FkQGV7LsCwg0bhtjULGehZSXyh0rCwi 4ZsmWNa0mQXbkDchAiUkOi4XjinvY0FpD+NHQzmJ8EWydq/PsXAonqHVSK93 f3d1GvJlsLBT9nmxayuJl6/yulbks3D3V7twbTsJS8lQr4PlLIQ5+qaqd9L1 6zXITvjEQtAf3TxBJgknn8cK+jwWxj8+N1QcItGcc4rPa20fpE1TDb7NYMNP Vi/+iU4f+t/v1soXYEPTV1zn/ZY+iCWaCsUIshFy4I2L9KE+5I35b/AUYcOQ o9Kd79YHe9f0+rsybGTID5SNZvdh0u5Pq/p6NvyDXa+e39APX4eYJuosG5+q Nlyaq9+PoBrP/Vdc2JCemnRP2dYPneXBbYIX2Hjp7O/EMO3HLWEvSW0vNhpN Yy0Pu/fjrUuad2cQG8ry1dr6r/oRsEStalsKG6+zpcbmqZFYXUu5mbLZmNFR fu6lHBvMiN785V4c1Lq2SynR+6CdhvmPQR8OwmeNV8Wos2G0zONJ/i0OFNes lgnUZUPDbc9qy7scGN6Me2NjQY8rvdDny2MObqpelpeKYOP4lSyb+zUcCFzU rPcVpuNWvEtdvJg+H81PXH9kkoNkA1nWzg8DcA1j+UXyDUFPXVymwH0IP4ss G9RZw1A/aV+vp8jF7dYwhbihYShdWi70V40L+Z/v3Ob+oDlNdKxCk4ttWhvF OLO4aPDl+7J3KxdhGWKmySu4EOPj7blozcXKZx8al53lQvcKQ1X8EX2+DNFv lRjh4n3Jdh+nJTx8T/VQ9Z/kYq/mZrdjy3nwe592eYyfB+e3SzP20+fTtNmy Ml8X8aCVLTe5QZ+HiRvjlmEbeDi6pem2xAn6/Hvx1be5V3joOn1v6fyHPCyP 6Ff38uVhzHextVgSD4XZS7w5wTysX+BbLpXOQzfvjlxNLA9EpW/t8jIeVjmd PuFfyoNA7JzWA53070GP0seqedixapg41seDSUrzn1MfedCI9so6M8zDZda2 BMMuHpSaGlKC/vAgPNObm9XPo+/TrK91/BQSFHIMFHg8eO3p+do0m8K6LQOh YT95MLPKMOmeS+GNlUL39DQPxqEKBznzKfwf5FUncw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{-2, 1}, {-1.9999999396332537`, 1.0465693437058545`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.505152369460112*^9, {3.5051524066118727`*^9, 3.505152453448139*^9}, { 3.505152491837303*^9, 3.505152500970665*^9}, 3.5052154323732233`*^9, 3.5052155071819468`*^9, {3.5052155989416227`*^9, 3.5052156075231867`*^9}, { 3.505226955638345*^9, 3.505226989277356*^9}, 3.5052270240856237`*^9, { 3.505227161985187*^9, 3.505227200462191*^9}, 3.505227251376463*^9, 3.5052274935673437`*^9, 3.505227637687957*^9, {3.505227726715045*^9, 3.505227767524315*^9}, {3.50522782906383*^9, 3.50522784500521*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde]\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.`"}]}], SequenceForm[ "At stage n = ", 1, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde]", -1.], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845035534*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.04386977437805506`"}]}], SequenceForm[ "At stage n = ", 2, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", \ -0.04386977437805506], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845049918*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.6838640970836611`"}]}], SequenceForm[ "At stage n = ", 3, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", \ -0.6838640970836611], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845067622*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.2965171808156166`"}]}], SequenceForm[ "At stage n = ", 4, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", \ -0.2965171808156166], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845083479*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.4025271997913456`"}]}], SequenceForm[ "At stage n = ", 5, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", \ -0.4025271997913456], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845100823*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.4049079703390318`"}]}], SequenceForm[ "At stage n = ", 6, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", \ -0.4049079703390318], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845117321*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.404911548201141`"}]}], SequenceForm[ "At stage n = ", 7, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", -0.404911548201141], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.5052278451345987`*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At stage n = \"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\", \\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.4049115482093092`"}]}], SequenceForm[ "At stage n = ", 8, ", \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", \ -0.4049115482093092], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845151108*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"After \"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" iterations, \\!\\(\\*SubscriptBox[\\(x\\), \ \\(n\\)]\\) \[TildeTilde] \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.4049115482093092`"}], "\[InvisibleSpace]", "\<\" with |\\!\\(\\*SubscriptBox[\\(x\\), \ \\(n\\)]\\)-\\!\\(\\*SubscriptBox[\\(x\\), \\(n - 1\\)]\\)|\[PrecedesTilde] \ \"\>", "\[InvisibleSpace]", "8.168188347923433`*^-12"}], SequenceForm[ "After ", 8, " iterations, \!\(\*SubscriptBox[\(x\), \(n\)]\) \[TildeTilde] ", \ -0.4049115482093092, " with |\!\(\*SubscriptBox[\(x\), \(n\)]\)-\!\(\*SubscriptBox[\(x\), \(n \ - 1\)]\)|\[PrecedesTilde] ", 8.168188347923433*^-12], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845167067*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At the approximate \\!\\(\\*SubscriptBox[\\(x\\), \ \\(n\\)]\\), the function value f(\\!\\(\\*SubscriptBox[\\(x\\), \\(n\\)]\\)) \ \[TildeTilde] \"\>", "\[InvisibleSpace]", "5.551115123125783`*^-17"}], SequenceForm[ "At the approximate \!\(\*SubscriptBox[\(x\), \(n\)]\), the function value \ f(\!\(\*SubscriptBox[\(x\), \(n\)]\)) \[TildeTilde] ", 5.551115123125783*^-17], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.5052278451847897`*^9}}], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.5052278452014*^9}}], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845218614*^9}}], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845235148*^9}}], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.505215507217807*^9, {3.505215598967278*^9, 3.505215607548407*^9}, { 3.505226955694762*^9, 3.5052269893842278`*^9}, 3.505227024147552*^9, { 3.505227162064167*^9, 3.5052272004844418`*^9}, 3.50522725143587*^9, 3.505227493630673*^9, 3.505227637715156*^9, {3.505227726751974*^9, 3.5052277675518417`*^9}, {3.505227829090568*^9, 3.505227845251812*^9}}] }, Open ]] }, Open ]] }, WindowSize->{1033, 643}, WindowMargins->{{186, Automatic}, {Automatic, 27}}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 6521, 153, 772, "Input"], Cell[7091, 177, 2682, 48, 230, "Output"], Cell[CellGroupData[{ Cell[9798, 229, 865, 17, 24, "Print"], Cell[10666, 248, 605, 13, 28, "Print"], Cell[11274, 263, 188, 4, 24, "Print"], Cell[11465, 269, 185, 4, 24, "Print"], Cell[11653, 275, 154, 3, 24, "Print"], Cell[11810, 280, 154, 3, 24, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12013, 289, 7928, 189, 680, "Input"], Cell[19944, 480, 8548, 145, 238, "Output"], Cell[CellGroupData[{ Cell[28517, 629, 792, 16, 24, "Print"], Cell[29312, 647, 830, 17, 24, "Print"], Cell[30145, 666, 828, 17, 24, "Print"], Cell[30976, 685, 828, 17, 24, "Print"], Cell[31807, 704, 828, 17, 24, "Print"], Cell[32638, 723, 828, 17, 24, "Print"], Cell[33469, 742, 826, 16, 24, "Print"], Cell[34298, 760, 828, 17, 24, "Print"], Cell[35129, 779, 1173, 22, 28, "Print"], Cell[36305, 803, 875, 15, 28, "Print"], Cell[37183, 820, 477, 8, 24, "Print"], Cell[37663, 830, 479, 8, 24, "Print"], Cell[38145, 840, 447, 7, 24, "Print"], Cell[38595, 849, 447, 7, 24, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)