(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 80285, 1965] NotebookOptionsPosition[ 77865, 1887] NotebookOutlinePosition[ 78203, 1902] CellTagsIndexPosition[ 78160, 1899] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Logistic", " ", "Function"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "v", ",", "w", ",", "k", ",", "n", ",", "f", ",", "t2", ",", "x1", ",", "x2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", "3.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", " ", RowBox[{"c", "*", "x", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "1"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", ".2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", ">>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", ">>>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", RowBox[{"5", "*", SuperscriptBox["10", RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}], "\[GreaterEqual]", " ", "tol"}], "\[And]", RowBox[{"n", "\[LessEqual]", " ", "50"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "x1"}], ";", "\[IndentingNewLine]", RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1", ">>>", "v"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"n", "-", "1"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "x1"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{"ReadList", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L0", "=", RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"t2", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "2.2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "1", "]"}], ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "3", ",", "k", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p3", ",", "p4", ",", "L0"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "3", ",", "n", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.442752493834536*^9, 3.442752564199211*^9}, 3.442752608280129*^9, {3.442752665601396*^9, 3.4427527968647957`*^9}, 3.442752930552734*^9, {3.442753020089971*^9, 3.4427530387299557`*^9}, { 3.442753130431561*^9, 3.44275315981361*^9}, {3.442753203430862*^9, 3.4427532036210403`*^9}, {3.442753243742597*^9, 3.442753305256959*^9}, { 3.442755052773652*^9, 3.4427550703181267`*^9}, 3.442755104542609*^9, { 3.442755150904399*^9, 3.4427552643145227`*^9}, {3.4433522180161657`*^9, 3.4433523234553013`*^9}, {3.443352448406138*^9, 3.44335258730967*^9}, { 3.4433526197282543`*^9, 3.443352623990611*^9}, {3.4433526629045773`*^9, 3.44335271529388*^9}, {3.443352784658503*^9, 3.443352841694107*^9}, 3.443352928790292*^9, {3.4433529809009037`*^9, 3.443352987074216*^9}, { 3.443353037104721*^9, 3.4433530373107986`*^9}, 3.443353085941366*^9, { 3.443353134299061*^9, 3.443353176301547*^9}, {3.44335322193039*^9, 3.443353223843508*^9}, {3.443353264254973*^9, 3.443353285735928*^9}, { 3.443353324424127*^9, 3.4433533529116983`*^9}, {3.443353401040677*^9, 3.443353442583837*^9}, {3.443353483503604*^9, 3.4433534892770653`*^9}, { 3.4433581870399637`*^9, 3.443358206789584*^9}, 3.443359013884678*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Iterations=\"\>", "\[InvisibleSpace]", "50"}], SequenceForm["Iterations=", 50], Editable->False]], "Print", CellChangeTimes->{{3.443352832989717*^9, 3.443352843859726*^9}, 3.4433529300637293`*^9, 3.4433529878477507`*^9, 3.443353037943056*^9, 3.443353089332553*^9, {3.4433531508468122`*^9, 3.4433531770666924`*^9}, 3.443353224757482*^9, {3.443353265206929*^9, 3.4433532862144547`*^9}, { 3.4433533271026993`*^9, 3.443353353541088*^9}, {3.44335342523015*^9, 3.443353442954965*^9}, 3.4433534901953583`*^9, 3.443354044167842*^9, 3.443358207255739*^9, 3.4433586726124983`*^9, 3.443358942001734*^9, 3.443359015065935*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Approximate fixed point = \"\>", "\[InvisibleSpace]", "0.45195912844689257`"}], SequenceForm["Approximate fixed point = ", 0.45195912844689257`], Editable->False]], "Print", CellChangeTimes->{{3.443352832989717*^9, 3.443352843859726*^9}, 3.4433529300637293`*^9, 3.4433529878477507`*^9, 3.443353037943056*^9, 3.443353089332553*^9, {3.4433531508468122`*^9, 3.4433531770666924`*^9}, 3.443353224757482*^9, {3.443353265206929*^9, 3.4433532862144547`*^9}, { 3.4433533271026993`*^9, 3.443353353541088*^9}, {3.44335342523015*^9, 3.443353442954965*^9}, 3.4433534901953583`*^9, 3.443354044167842*^9, 3.443358207255739*^9, 3.4433586726124983`*^9, 3.443358942001734*^9, 3.443359015067512*^9}] }, Open ]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 25, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 3, 51, 1}}, Typeset`size$$ = { 430.375, {936., 32.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$22566$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$22566$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`p4 = ListPlot[ Part[$CellContext`t2, $CellContext`k$$], PlotRange -> {{0, 1}, {-1.2, 2.2}}, PlotStyle -> { Hue[1], PointSize[0.02]}, DisplayFunction -> Identity]; $CellContext`p3 = Table[ Show[ Graphics[ Line[{{ Part[$CellContext`w, $CellContext`j - 1], Part[$CellContext`w, $CellContext`j - 1]}, { Part[$CellContext`w, $CellContext`j - 1], $CellContext`g[ Part[$CellContext`w, $CellContext`j - 1]]}, { Part[$CellContext`w, $CellContext`j], Part[$CellContext`w, $CellContext`j]}}]]], {$CellContext`j, 3, $CellContext`k$$, 1}]; Show[$CellContext`p1, $CellContext`p3, $CellContext`p4, \ $CellContext`L0]), "Specifications" :> {{$CellContext`k$$, 3, 51, 1, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{477., {802., 809.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4433589420895033`*^9, 3.443359015133082*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Exercise", " ", "1"}], ",", " ", RowBox[{"Section", " ", "3.4"}], ",", " ", "Atkins"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "v", ",", "w", ",", "k", ",", "n", ",", "f", ",", "t2", ",", "x1", ",", "x2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"root", "=", "1.28809131321184"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", " ", RowBox[{"1", "+", RowBox[{"c", "*", RowBox[{"Sin", "[", "x", "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "'"}], "[", "root", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", ".7"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "1.3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "0", ",", "\"\<] = \>\"", ",", "x0"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", ">>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", ">>>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", RowBox[{"5", "*", SuperscriptBox["10", RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}], "\[GreaterEqual]", " ", "tol"}], "\[And]", RowBox[{"n", "\[LessEqual]", " ", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\<] = \>\"", ",", "x1", ",", "\"\<; ErrorRatio[\>\"", ",", "n", ",", "\"\<] = \>\"", ",", FractionBox[ RowBox[{"root", "-", "x1"}], RowBox[{"root", "-", "x0"}]]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"x0", "=", "x1"}], ";", "\[IndentingNewLine]", RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1", ">>>", "v"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "x1"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{"ReadList", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L0", "=", RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"a", "-", ".2"}], ",", RowBox[{"b", "+", ".2"}]}], "}"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"t2", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "2.2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "1", "]"}], ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "3", ",", "k", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p3", ",", "p4", ",", "L0"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "3", ",", "n", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.442752493834536*^9, 3.442752564199211*^9}, 3.442752608280129*^9, {3.442752665601396*^9, 3.4427527968647957`*^9}, 3.442752930552734*^9, {3.442753020089971*^9, 3.4427530387299557`*^9}, { 3.442753130431561*^9, 3.44275315981361*^9}, {3.442753203430862*^9, 3.4427532036210403`*^9}, {3.442753243742597*^9, 3.442753305256959*^9}, { 3.442755052773652*^9, 3.4427550703181267`*^9}, 3.442755104542609*^9, { 3.442755150904399*^9, 3.4427552643145227`*^9}, {3.4433522180161657`*^9, 3.4433523234553013`*^9}, {3.443352448406138*^9, 3.44335258730967*^9}, { 3.4433526197282543`*^9, 3.443352623990611*^9}, {3.4433526629045773`*^9, 3.44335271529388*^9}, {3.443352784658503*^9, 3.443352841694107*^9}, 3.443352928790292*^9, {3.4433529809009037`*^9, 3.443352987074216*^9}, { 3.443353037104721*^9, 3.4433530373107986`*^9}, 3.443353085941366*^9, { 3.443353134299061*^9, 3.443353176301547*^9}, {3.44335322193039*^9, 3.443353223843508*^9}, {3.443353264254973*^9, 3.443353285735928*^9}, { 3.443353324424127*^9, 3.4433533529116983`*^9}, {3.443353401040677*^9, 3.443353442583837*^9}, {3.443353483503604*^9, 3.4433534892770653`*^9}, { 3.44335520287745*^9, 3.443355358583918*^9}, {3.443355390168544*^9, 3.443355390406259*^9}, {3.443357424392033*^9, 3.4433574510221987`*^9}, { 3.4433574835680237`*^9, 3.443357499688278*^9}, 3.443357534088068*^9, { 3.4433575839850817`*^9, 3.443357653927979*^9}, {3.443357690447283*^9, 3.443357714636492*^9}, {3.443357750829733*^9, 3.4433577951591663`*^9}, { 3.443357834496057*^9, 3.4433579956095343`*^9}, {3.4433580379926434`*^9, 3.443358114831184*^9}, {3.443358284208007*^9, 3.4433582850276003`*^9}, { 3.4433587010133533`*^9, 3.4433587064365673`*^9}, 3.443359037710986*^9}], Cell[BoxData["0.08368629070450383`"], "Output", CellChangeTimes->{ 3.443357138493137*^9, {3.443357412318033*^9, 3.443357452580936*^9}, { 3.4433574844962997`*^9, 3.443357500437211*^9}, 3.443357535147934*^9, { 3.443357604167555*^9, 3.44335762301586*^9}, 3.4433576549814377`*^9, { 3.443357954098401*^9, 3.443357996836987*^9}, {3.443358039073694*^9, 3.4433580599987307`*^9}, {3.443358091931488*^9, 3.4433581157507277`*^9}, 3.4433582986668*^9, 3.443358707241246*^9, 3.443358925732625*^9, { 3.443359029124466*^9, 3.443359038903305*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1"}], SequenceForm["x[", 0, "] = ", 1], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.443359038913691*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.252441295442369`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.12374554918723538`"}], SequenceForm[ "x[", 1, "] = ", 1.252441295442369, "; ErrorRatio[", 1, "] = ", 0.12374554918723538`], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.4433590389680653`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.284925475710208`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.0888032517151502`"}], SequenceForm[ "x[", 2, "] = ", 1.284925475710208, "; ErrorRatio[", 2, "] = ", 0.0888032517151502], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.443359038999343*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.2878249327566202`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.08414217567463207`"}], SequenceForm[ "x[", 3, "] = ", 1.2878249327566202`, "; ErrorRatio[", 3, "] = ", 0.08414217567463207], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.44335903901408*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.2880690105986177`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.08372466066939738`"}], SequenceForm[ "x[", 4, "] = ", 1.2880690105986177`, "; ErrorRatio[", 4, "] = ", 0.08372466066939738], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.4433590390329638`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.2880894467172153`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.08368950337963432`"}], SequenceForm[ "x[", 5, "] = ", 1.2880894467172153`, "; ErrorRatio[", 5, "] = ", 0.08368950337963432], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.4433590390484867`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.2880911570113243`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.08368656066367632`"}], SequenceForm[ "x[", 6, "] = ", 1.2880911570113243`, "; ErrorRatio[", 6, "] = ", 0.08368656066367632], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.443359039066824*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Final approximation of fixed point = \"\>", "\[InvisibleSpace]", "1.2880913001399925`"}], SequenceForm["Final approximation of fixed point = ", 1.2880913001399925`], Editable->False]], "Print", CellChangeTimes->{ 3.443357138188759*^9, {3.4433574120150423`*^9, 3.443357452289452*^9}, { 3.443357484185691*^9, 3.443357500129566*^9}, 3.443357534851921*^9, { 3.443357603848308*^9, 3.4433576227421207`*^9}, 3.44335765470859*^9, { 3.443357953794608*^9, 3.443357996523128*^9}, {3.443358038839028*^9, 3.443358059736005*^9}, {3.443358091652603*^9, 3.443358115469966*^9}, 3.443358298396729*^9, 3.443358707260165*^9, 3.4433589257531548`*^9, { 3.443359029145027*^9, 3.443359039080821*^9}}] }, Open ]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 6, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 3, 7, 1}}, Typeset`size$$ = { 360., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$22981$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$22981$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`p4 = ListPlot[ Part[$CellContext`t2, $CellContext`k$$], PlotRange -> {{0, 1}, {-1.2, 2.2}}, PlotStyle -> { Hue[1], PointSize[0.02]}, DisplayFunction -> Identity]; $CellContext`p3 = Table[ Show[ Graphics[ Line[{{ Part[$CellContext`w, $CellContext`j - 1], Part[$CellContext`w, $CellContext`j - 1]}, { Part[$CellContext`w, $CellContext`j - 1], $CellContext`g[ Part[$CellContext`w, $CellContext`j - 1]]}, { Part[$CellContext`w, $CellContext`j], Part[$CellContext`w, $CellContext`j]}}]]], {$CellContext`j, 3, $CellContext`k$$, 1}]; Show[$CellContext`p1, $CellContext`p3, $CellContext`p4, \ $CellContext`L0]), "Specifications" :> {{$CellContext`k$$, 3, 7, 1, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{406., {146., 153.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.443357138493137*^9, {3.443357412318033*^9, 3.443357452580936*^9}, { 3.4433574844962997`*^9, 3.443357500437211*^9}, 3.443357535147934*^9, { 3.443357604167555*^9, 3.44335762301586*^9}, 3.4433576549814377`*^9, { 3.443357954098401*^9, 3.443357996836987*^9}, {3.443358039073694*^9, 3.4433580599987307`*^9}, {3.443358091931488*^9, 3.4433581157507277`*^9}, 3.4433582986668*^9, 3.443358707241246*^9, 3.443358925732625*^9, { 3.443359029124466*^9, 3.4433590392237883`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Exercise", " ", "1"}], ",", " ", RowBox[{"Section", " ", "3.4"}], ",", " ", "Atkins"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "v", ",", "w", ",", "k", ",", "n", ",", "f", ",", "t2", ",", "x1", ",", "x2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"root", "=", RowBox[{ RowBox[{"(", SqrtBox["5"], ")"}], "."}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", " ", RowBox[{"1.", "+", "x", "-", RowBox[{ SuperscriptBox["x", "2"], "/", "5"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "'"}], "[", "root", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "4"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "2.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "0", ",", "\"\<] = \>\"", ",", "x0"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", ">>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", ">>>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", RowBox[{"5", "*", SuperscriptBox["10", RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}], "\[GreaterEqual]", " ", "tol"}], "\[And]", RowBox[{"n", "\[LessEqual]", " ", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\<] = \>\"", ",", "x1", ",", "\"\<; ErrorRatio[\>\"", ",", "n", ",", "\"\<] = \>\"", ",", FractionBox[ RowBox[{"root", "-", "x1"}], RowBox[{"root", "-", "x0"}]]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"x0", "=", "x1"}], ";", "\[IndentingNewLine]", RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1", ">>>", "v"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "x1"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{"ReadList", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L0", "=", RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"a", "-", ".2"}], ",", RowBox[{"b", "+", ".2"}]}], "}"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"t2", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "2.2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "1", "]"}], ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "3", ",", "k", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p3", ",", "p4", ",", "L0"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "3", ",", "n", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.442752493834536*^9, 3.442752564199211*^9}, 3.442752608280129*^9, {3.442752665601396*^9, 3.4427527968647957`*^9}, 3.442752930552734*^9, {3.442753020089971*^9, 3.4427530387299557`*^9}, { 3.442753130431561*^9, 3.44275315981361*^9}, {3.442753203430862*^9, 3.4427532036210403`*^9}, {3.442753243742597*^9, 3.442753305256959*^9}, { 3.442755052773652*^9, 3.4427550703181267`*^9}, 3.442755104542609*^9, { 3.442755150904399*^9, 3.4427552643145227`*^9}, {3.4433522180161657`*^9, 3.4433523234553013`*^9}, {3.443352448406138*^9, 3.44335258730967*^9}, { 3.4433526197282543`*^9, 3.443352623990611*^9}, {3.4433526629045773`*^9, 3.44335271529388*^9}, {3.443352784658503*^9, 3.443352841694107*^9}, 3.443352928790292*^9, {3.4433529809009037`*^9, 3.443352987074216*^9}, { 3.443353037104721*^9, 3.4433530373107986`*^9}, 3.443353085941366*^9, { 3.443353134299061*^9, 3.443353176301547*^9}, {3.44335322193039*^9, 3.443353223843508*^9}, {3.443353264254973*^9, 3.443353285735928*^9}, { 3.443353324424127*^9, 3.4433533529116983`*^9}, {3.443353401040677*^9, 3.443353442583837*^9}, {3.443353483503604*^9, 3.4433534892770653`*^9}, { 3.44335520287745*^9, 3.443355358583918*^9}, {3.443355390168544*^9, 3.443355390406259*^9}, {3.443357424392033*^9, 3.4433574510221987`*^9}, { 3.4433574835680237`*^9, 3.443357499688278*^9}, 3.443357534088068*^9, { 3.4433575839850817`*^9, 3.443357653927979*^9}, {3.443357690447283*^9, 3.443357714636492*^9}, {3.443357750829733*^9, 3.4433577951591663`*^9}, { 3.443357834496057*^9, 3.4433579956095343`*^9}, {3.4433580379926434`*^9, 3.443358114831184*^9}, {3.443358284208007*^9, 3.4433582850276003`*^9}, { 3.443358345159215*^9, 3.443358406621278*^9}, {3.443358535719305*^9, 3.443358557630808*^9}, {3.443358638247006*^9, 3.443358640916355*^9}, { 3.443358823126955*^9, 3.443358835397766*^9}, 3.443359093421936*^9, { 3.443364281330579*^9, 3.44336428389292*^9}}], Cell[BoxData[ RowBox[{"-", "0.4472135954999581`"}]], "Output", CellChangeTimes->{ 3.443358408062171*^9, {3.443358547010736*^9, 3.443358558552368*^9}, 3.443358835623137*^9, {3.4433590799590073`*^9, 3.4433590941439*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "2.5`"}], SequenceForm["x[", 0, "] = ", 2.5], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.443359094173374*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "2.25`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.223606797749979`"}], SequenceForm[ "x[", 1, "] = ", 2.25, "; ErrorRatio[", 1, "] = ", 1.223606797749979], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.443359094207597*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "2.2375`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.009137199881578`"}], SequenceForm[ "x[", 2, "] = ", 2.2375, "; ErrorRatio[", 2, "] = ", 1.009137199881578], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.4433590942407503`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "2.23621875`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.0009280829088172`"}], SequenceForm[ "x[", 3, "] = ", 2.23621875, "; ErrorRatio[", 3, "] = ", 1.0009280829088172`], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.443359094274734*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "2.236083890429687`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.0000975959495386`"}], SequenceForm[ "x[", 4, "] = ", 2.236083890429687, "; ErrorRatio[", 4, "] = ", 1.0000975959495386`], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.443359094307118*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "2.2360696574218544`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.0000102992198125`"}], SequenceForm[ "x[", 5, "] = ", 2.2360696574218544`, "; ErrorRatio[", 5, "] = ", 1.0000102992198125`], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.443359094341034*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "2.2360681548533163`", "\[InvisibleSpace]", "\<\"; ErrorRatio[\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.00000108727013`"}], SequenceForm[ "x[", 6, "] = ", 2.2360681548533163`, "; ErrorRatio[", 6, "] = ", 1.00000108727013], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.4433590943749638`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Final approximation of fixed point = \"\>", "\[InvisibleSpace]", "2.2360679962234933`"}], SequenceForm["Final approximation of fixed point = ", 2.2360679962234933`], Editable->False]], "Print", CellChangeTimes->{ 3.443358407765225*^9, {3.443358547040963*^9, 3.443358558583466*^9}, 3.443358835653623*^9, {3.4433590799885406`*^9, 3.443359094408183*^9}}] }, Open ]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 7, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 3, 7, 1}}, Typeset`size$$ = { 360., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$23293$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$23293$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`p4 = ListPlot[ Part[$CellContext`t2, $CellContext`k$$], PlotRange -> {{0, 1}, {-1.2, 2.2}}, PlotStyle -> { Hue[1], PointSize[0.02]}, DisplayFunction -> Identity]; $CellContext`p3 = Table[ Show[ Graphics[ Line[{{ Part[$CellContext`w, $CellContext`j - 1], Part[$CellContext`w, $CellContext`j - 1]}, { Part[$CellContext`w, $CellContext`j - 1], $CellContext`g[ Part[$CellContext`w, $CellContext`j - 1]]}, { Part[$CellContext`w, $CellContext`j], Part[$CellContext`w, $CellContext`j]}}]]], {$CellContext`j, 3, $CellContext`k$$, 1}]; Show[$CellContext`p1, $CellContext`p3, $CellContext`p4, \ $CellContext`L0]), "Specifications" :> {{$CellContext`k$$, 3, 7, 1, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{406., {146., 153.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.443358408062171*^9, {3.443358547010736*^9, 3.443358558552368*^9}, 3.443358835623137*^9, {3.4433590799590073`*^9, 3.443359094447009*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Exercise", " ", "#3"}], ",", " ", RowBox[{"Section", " ", "3.4"}], ",", " ", "Atkins"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "v", ",", "w", ",", "k", ",", "n", ",", "f", ",", "t2", ",", "x1", ",", "x2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", "0.3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", " ", SuperscriptBox["E", RowBox[{"-", "x"}]]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "4"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "0."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "0", ",", "\"\<] = \>\"", ",", "x0"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", ">>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", ">>>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", RowBox[{"5", "*", SuperscriptBox["10", RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}], "\[GreaterEqual]", " ", "tol"}], "\[And]", RowBox[{"n", "\[LessEqual]", " ", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "n", ",", "\"\<] = \>\"", ",", "x1"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"x0", "=", "x1"}], ";", "\[IndentingNewLine]", RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1", ">>>", "v"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "x1"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{"ReadList", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L0", "=", RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"a", "-", ".2"}], ",", RowBox[{"b", "+", ".2"}]}], "}"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"t2", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "2.2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "1", "]"}], ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "3", ",", "k", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p3", ",", "p4", ",", "L0"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "3", ",", "n", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.442752493834536*^9, 3.442752564199211*^9}, 3.442752608280129*^9, {3.442752665601396*^9, 3.4427527968647957`*^9}, 3.442752930552734*^9, {3.442753020089971*^9, 3.4427530387299557`*^9}, { 3.442753130431561*^9, 3.44275315981361*^9}, {3.442753203430862*^9, 3.4427532036210403`*^9}, {3.442753243742597*^9, 3.442753305256959*^9}, { 3.442755052773652*^9, 3.4427550703181267`*^9}, 3.442755104542609*^9, { 3.442755150904399*^9, 3.4427552643145227`*^9}, {3.4433522180161657`*^9, 3.4433523234553013`*^9}, {3.443352448406138*^9, 3.44335258730967*^9}, { 3.4433526197282543`*^9, 3.443352623990611*^9}, {3.4433526629045773`*^9, 3.44335271529388*^9}, {3.443352784658503*^9, 3.443352841694107*^9}, 3.443352928790292*^9, {3.4433529809009037`*^9, 3.443352987074216*^9}, { 3.443353037104721*^9, 3.4433530373107986`*^9}, 3.443353085941366*^9, { 3.443353134299061*^9, 3.443353176301547*^9}, {3.44335322193039*^9, 3.443353223843508*^9}, {3.443353264254973*^9, 3.443353285735928*^9}, { 3.443353324424127*^9, 3.4433533529116983`*^9}, {3.443353401040677*^9, 3.443353442583837*^9}, {3.443353483503604*^9, 3.4433534892770653`*^9}, { 3.44335520287745*^9, 3.443355358583918*^9}, {3.443355390168544*^9, 3.443355390406259*^9}, {3.443357424392033*^9, 3.4433574510221987`*^9}, { 3.4433574835680237`*^9, 3.443357499688278*^9}, 3.443357534088068*^9, { 3.4433575839850817`*^9, 3.443357653927979*^9}, {3.443357690447283*^9, 3.443357714636492*^9}, {3.443357750829733*^9, 3.4433577951591663`*^9}, { 3.443357834496057*^9, 3.4433579956095343`*^9}, {3.4433580379926434`*^9, 3.443358114831184*^9}, {3.443358284208007*^9, 3.4433582850276003`*^9}, { 3.443358345159215*^9, 3.443358406621278*^9}, {3.443358535719305*^9, 3.443358557630808*^9}, {3.443358638247006*^9, 3.443358640916355*^9}, { 3.443358823126955*^9, 3.443358835397766*^9}, 3.443359093421936*^9, { 3.443359127749552*^9, 3.443359191628194*^9}, {3.443359226261242*^9, 3.443359265765813*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.`"}], SequenceForm["x[", 0, "] = ", 0.], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.44335926611668*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.`"}], SequenceForm["x[", 1, "] = ", 1.], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.443359266146886*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.36787944117144233`"}], SequenceForm["x[", 2, "] = ", 0.36787944117144233`], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.4433592661804657`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.6922006275553464`"}], SequenceForm["x[", 3, "] = ", 0.6922006275553464], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.4433592662134323`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.5004735005636368`"}], SequenceForm["x[", 4, "] = ", 0.5004735005636368], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.443359266247005*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.6062435350855974`"}], SequenceForm["x[", 5, "] = ", 0.6062435350855974], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.4433592662806892`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.545395785975027`"}], SequenceForm["x[", 6, "] = ", 0.545395785975027], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.44335926631446*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Final approximation of fixed point = \"\>", "\[InvisibleSpace]", "0.5796123355033789`"}], SequenceForm["Final approximation of fixed point = ", 0.5796123355033789], Editable->False]], "Print", CellChangeTimes->{ 3.443359192362484*^9, {3.4433592271925077`*^9, 3.443359266347383*^9}}] }, Open ]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 6, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 3, 7, 1}}, Typeset`size$$ = { 360., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$23894$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$23894$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`p4 = ListPlot[ Part[$CellContext`t2, $CellContext`k$$], PlotRange -> {{0, 1}, {-1.2, 2.2}}, PlotStyle -> { Hue[1], PointSize[0.02]}, DisplayFunction -> Identity]; $CellContext`p3 = Table[ Show[ Graphics[ Line[{{ Part[$CellContext`w, $CellContext`j - 1], Part[$CellContext`w, $CellContext`j - 1]}, { Part[$CellContext`w, $CellContext`j - 1], $CellContext`g[ Part[$CellContext`w, $CellContext`j - 1]]}, { Part[$CellContext`w, $CellContext`j], Part[$CellContext`w, $CellContext`j]}}]]], {$CellContext`j, 3, $CellContext`k$$, 1}]; Show[$CellContext`p1, $CellContext`p3, $CellContext`p4, \ $CellContext`L0]), "Specifications" :> {{$CellContext`k$$, 3, 7, 1, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{503., {247., 254.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.443359192330784*^9, {3.443359227463088*^9, 3.443359266387313*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Exercise", " ", "#7"}], ",", " ", RowBox[{"Section", " ", "3.4"}], ",", " ", "Atkins"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "v", ",", "w", ",", "k", ",", "n", ",", "f", ",", "t2", ",", "x1", ",", "x2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", "0.3"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", " ", SqrtBox[ RowBox[{"1", "+", "x"}]]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "4"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", RowBox[{"-", ".8"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "0", ",", "\"\<] = \>\"", ",", "x0"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", ">>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", ">>>", "v"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", RowBox[{"5", "*", SuperscriptBox["10", RowBox[{"-", "8"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x1", "-", "x0"}], "]"}], "\[GreaterEqual]", " ", "tol"}], "\[And]", RowBox[{"n", "\[LessEqual]", " ", "6"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "n", ",", "\"\<] = \>\"", ",", "x1"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"x0", "=", "x1"}], ";", "\[IndentingNewLine]", RowBox[{"x1", "=", RowBox[{"g", "[", "x0", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1", ">>>", "v"}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "x1"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"w", "=", RowBox[{"ReadList", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L0", "=", RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g", "[", "x", "]"}], ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"a", "-", ".2"}], ",", RowBox[{"b", "+", ".2"}]}], "}"}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "0"}], "}"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"t2", "[", RowBox[{"[", "k", "]"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "2.2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "1", "]"}], ",", RowBox[{"PointSize", "[", "0.02", "]"}]}], "}"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"Graphics", "[", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"g", "[", RowBox[{"w", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{"w", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "3", ",", "k", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p3", ",", "p4", ",", "L0"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "3", ",", "n", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.442752493834536*^9, 3.442752564199211*^9}, 3.442752608280129*^9, {3.442752665601396*^9, 3.4427527968647957`*^9}, 3.442752930552734*^9, {3.442753020089971*^9, 3.4427530387299557`*^9}, { 3.442753130431561*^9, 3.44275315981361*^9}, {3.442753203430862*^9, 3.4427532036210403`*^9}, {3.442753243742597*^9, 3.442753305256959*^9}, { 3.442755052773652*^9, 3.4427550703181267`*^9}, 3.442755104542609*^9, { 3.442755150904399*^9, 3.4427552643145227`*^9}, {3.4433522180161657`*^9, 3.4433523234553013`*^9}, {3.443352448406138*^9, 3.44335258730967*^9}, { 3.4433526197282543`*^9, 3.443352623990611*^9}, {3.4433526629045773`*^9, 3.44335271529388*^9}, {3.443352784658503*^9, 3.443352841694107*^9}, 3.443352928790292*^9, {3.4433529809009037`*^9, 3.443352987074216*^9}, { 3.443353037104721*^9, 3.4433530373107986`*^9}, 3.443353085941366*^9, { 3.443353134299061*^9, 3.443353176301547*^9}, {3.44335322193039*^9, 3.443353223843508*^9}, {3.443353264254973*^9, 3.443353285735928*^9}, { 3.443353324424127*^9, 3.4433533529116983`*^9}, {3.443353401040677*^9, 3.443353442583837*^9}, {3.443353483503604*^9, 3.4433534892770653`*^9}, { 3.44335520287745*^9, 3.443355358583918*^9}, {3.443355390168544*^9, 3.443355390406259*^9}, {3.443357424392033*^9, 3.4433574510221987`*^9}, { 3.4433574835680237`*^9, 3.443357499688278*^9}, 3.443357534088068*^9, { 3.4433575839850817`*^9, 3.443357653927979*^9}, {3.443357690447283*^9, 3.443357714636492*^9}, {3.443357750829733*^9, 3.4433577951591663`*^9}, { 3.443357834496057*^9, 3.4433579956095343`*^9}, {3.4433580379926434`*^9, 3.443358114831184*^9}, {3.443358284208007*^9, 3.4433582850276003`*^9}, { 3.443358345159215*^9, 3.443358406621278*^9}, {3.443358535719305*^9, 3.443358557630808*^9}, {3.443358638247006*^9, 3.443358640916355*^9}, { 3.443358823126955*^9, 3.443358835397766*^9}, 3.443359093421936*^9, { 3.443359127749552*^9, 3.443359191628194*^9}, {3.443359226261242*^9, 3.443359265765813*^9}, {3.443359345765172*^9, 3.443359356978983*^9}, { 3.443359461232229*^9, 3.443359469312113*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "0", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", RowBox[{"-", "0.8`"}]}], SequenceForm["x[", 0, "] = ", -0.8], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.443359469931932*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "0.44721359549995787`"}], SequenceForm["x[", 1, "] = ", 0.44721359549995787`], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.443359469951953*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.2030019100150913`"}], SequenceForm["x[", 2, "] = ", 1.2030019100150913`], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.443359469985798*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.484251296113664`"}], SequenceForm["x[", 3, "] = ", 1.484251296113664], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.4433594700192738`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.5761507847010272`"}], SequenceForm["x[", 4, "] = ", 1.5761507847010272`], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.4433594700521393`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.6050391847867849`"}], SequenceForm["x[", 5, "] = ", 1.6050391847867849`], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.443359470085835*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"x[\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"] = \"\>", "\[InvisibleSpace]", "1.614013378131292`"}], SequenceForm["x[", 6, "] = ", 1.614013378131292], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.443359470119544*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Final approximation of fixed point = \"\>", "\[InvisibleSpace]", "1.616791074360349`"}], SequenceForm["Final approximation of fixed point = ", 1.616791074360349], Editable->False]], "Print", CellChangeTimes->{ 3.443359369022111*^9, {3.443359462359694*^9, 3.443359470152279*^9}}] }, Open ]], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 3, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 3, 7, 1}}, Typeset`size$$ = { 360., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$24426$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 3}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$24426$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ($CellContext`p4 = ListPlot[ Part[$CellContext`t2, $CellContext`k$$], PlotRange -> {{0, 1}, {-1.2, 2.2}}, PlotStyle -> { Hue[1], PointSize[0.02]}, DisplayFunction -> Identity]; $CellContext`p3 = Table[ Show[ Graphics[ Line[{{ Part[$CellContext`w, $CellContext`j - 1], Part[$CellContext`w, $CellContext`j - 1]}, { Part[$CellContext`w, $CellContext`j - 1], $CellContext`g[ Part[$CellContext`w, $CellContext`j - 1]]}, { Part[$CellContext`w, $CellContext`j], Part[$CellContext`w, $CellContext`j]}}]]], {$CellContext`j, 3, $CellContext`k$$, 1}]; Show[$CellContext`p1, $CellContext`p3, $CellContext`p4, \ $CellContext`L0]), "Specifications" :> {{$CellContext`k$$, 3, 7, 1, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{406., {146., 153.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.443359369292828*^9, {3.4433594626325817`*^9, 3.443359470192154*^9}}] }, Open ]] }, WindowSize->{640, 750}, WindowMargins->{{334, Automatic}, {Automatic, 98}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 7698, 194, 1076, "Input"], Cell[CellGroupData[{ Cell[8313, 221, 695, 12, 24, "Print"], Cell[9011, 235, 765, 13, 24, "Print"] }, Open ]], Cell[9791, 251, 2590, 55, 1628, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12418, 311, 8932, 219, 1245, "Input"], Cell[21353, 532, 553, 8, 31, "Output"], Cell[CellGroupData[{ Cell[21931, 544, 724, 13, 24, "Print"], Cell[22658, 559, 984, 18, 24, "Print"], Cell[23645, 579, 979, 18, 24, "Print"], Cell[24627, 599, 983, 18, 24, "Print"], Cell[25613, 619, 986, 18, 24, "Print"], Cell[26602, 639, 986, 18, 24, "Print"], Cell[27591, 659, 984, 18, 24, "Print"], Cell[28578, 679, 756, 13, 24, "Print"] }, Open ]], Cell[29349, 695, 3027, 62, 316, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32413, 762, 9177, 225, 1266, "Input"], Cell[41593, 989, 226, 4, 31, "Output"], Cell[CellGroupData[{ Cell[41844, 997, 388, 8, 24, "Print"], Cell[42235, 1007, 606, 12, 24, "Print"], Cell[42844, 1021, 612, 12, 24, "Print"], Cell[43459, 1035, 625, 13, 24, "Print"], Cell[44087, 1050, 639, 13, 24, "Print"], Cell[44729, 1065, 642, 13, 24, "Print"], Cell[45374, 1080, 639, 13, 24, "Print"], Cell[46016, 1095, 415, 8, 24, "Print"] }, Open ]], Cell[46446, 1106, 2684, 57, 316, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49167, 1168, 8848, 215, 1158, "Input"], Cell[CellGroupData[{ Cell[58040, 1387, 313, 7, 24, "Print"], Cell[58356, 1396, 314, 7, 24, "Print"], Cell[58673, 1405, 355, 8, 24, "Print"], Cell[59031, 1415, 352, 8, 24, "Print"], Cell[59386, 1425, 350, 8, 24, "Print"], Cell[59739, 1435, 352, 8, 24, "Print"], Cell[60094, 1445, 347, 8, 24, "Print"], Cell[60444, 1455, 342, 7, 24, "Print"] }, Open ]], Cell[60801, 1465, 2610, 56, 518, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63448, 1526, 8962, 218, 1164, "Input"], Cell[CellGroupData[{ Cell[72435, 1748, 334, 8, 24, "Print"], Cell[72772, 1758, 351, 8, 24, "Print"], Cell[73126, 1768, 349, 8, 24, "Print"], Cell[73478, 1778, 348, 8, 24, "Print"], Cell[73829, 1788, 351, 8, 24, "Print"], Cell[74183, 1798, 349, 8, 24, "Print"], Cell[74535, 1808, 346, 8, 24, "Print"], Cell[74884, 1818, 338, 7, 24, "Print"] }, Open ]], Cell[75237, 1828, 2612, 56, 316, "Output"] }, Open ]] } ] *) (* End of internal cache information *)