(* 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[ 92483, 1888] NotebookOptionsPosition[ 90601, 1826] NotebookOutlinePosition[ 90944, 1841] CellTagsIndexPosition[ 90901, 1838] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Bisection", " ", "Method"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Exercise", " ", "#2", " ", RowBox[{"(", "a", ")"}], " ", "from", " ", "section", " ", "3.1"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"n", ",", "a", ",", "b", ",", "c", ",", "f"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], "-", "x"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"a", "=", "Pi"}], ";"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ RowBox[{"b", "=", RowBox[{ RowBox[{"3", RowBox[{"Pi", "/", "2"}]}], "-", ".01"}]}], ";"}], FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nMax", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", ".0001"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}], "/", "2"}], "\[GreaterEqual]", " ", "tol"}], "&&", " ", RowBox[{"n", "<", "nMax"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "c", "]"}]}], "<", " ", "0"}], ",", " ", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "c", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2."}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< iterations, c \[TildeTilde] \>\"", ",", "c", ",", " ", "\"\< with an error bound of \[TildeTilde] \>\"", ",", " ", RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"f", "[", "c", "]"}]}], " ", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[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.505145852087675*^9}, {3.505146538080833*^9, 3.505146572772468*^9}, {3.5051466451464863`*^9, 3.5051466581163197`*^9}, { 3.5051467018037786`*^9, 3.505146717194516*^9}, 3.5051469594203577`*^9, { 3.505147620757964*^9, 3.505147626932612*^9}, {3.505217866772842*^9, 3.50521786739493*^9}}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd13k0Fe/jB/CxRkpSSSpLpYWSpU3qvqdEG2WN+khCWdpQspRcUSiiIqVk SXYhWgiRJVt17Xuu7LvrXjdl6Tu/3/wz53Xe85x5nmfe58yMnOUVg3O8BEFI 8hDE/50jblkKqljfoBH/f9zQKK6V1TGRPQmCKFjwNn4p7V9pvresrB3lkBKl +AM00Ufv0+c3OVGWahy9eJYWURAoIyDrRpnH62/cNdrmMesH/2w8QdD1o0UV fWjtoi/nZhpvU45t7rn4kLYuTnjH3+k7lN+uq0x+Tru41/nSbxl/avzipmXx sbTMOmYsRzOA8uwSwjaV9veCThvLJohyjqe+YhYtiqfN/7fWQxAFP3joTTm0 A98eynMbH4Gw8OzUvlRI6396sJBjF0Lle3SxsZQWYD1rxp4OpcYvX5aSUklT Vs6cYgWGUbmWl5BANa122jZkXOYZCGVr5z/xdbTrX6WVxzLCQQQPM4dKm2hS j+sqRzRfgNAbOvHKrp2Wb37PZrg+AkTUXcGJo500SwWSb8gmklpPhFP25m4a 77T7D87NKBDp4Z/m/9dHq2Mar+ZoRVO51MLylkFaXKnyBbZoDHU/rd+NaaM0 1xSR7IlGyhaM7IVXWLQjj3oFJ6JegUhgcT5lsWmrXAuNWHaxIHZZSQ0ocGmj p1/EjKu+BmF6uda3dopWoOkyPjZNmZ457376NO3RJgPaWHEcCPJJR0/RHM16 0ZaA0cB4ELlGXSXzeDCv9deGEZlEELIhfUXJ/GgqyHMe7qcc8FmiK1kQSXFP i4Yykqj5tC8QqxLCMadjZwY1U0DUfdjh4bAQsqabUgcWpILYqFP6lrsIE3v5 p/vrKa9zv+CgtxhPhHOe9Nmkgbhtc89fdSmyXI44XZVMB8FR4vEtWIYXgztX sG9Sdl3u7mK5HJcZ4jYTWhkg9njRNnVLwUSTEHVKohwrl95bvArk+5Esluhb EEbmjkGfpCH+ooyX1Uj554zCsetymBZ9n+iwJxPE3+e5c4/XoNvrld54FOUT ftzovLV4b3Pr5ZhdFpVb8udvX4/IlgtaV75T/in1453PBvjpnhweVX1H7YeR 8kvmRpxS27Z7dJry9V4DFChCM06u85LFexAXx++7HNiCzSsW+Y0UU37jeTSy QQlzcwP1w4EfQETvu/NTXAXRFZGOQzLZIITeh634tA2cp+8UOgIoW6UEyn7f Dm2byq6aP5QbIwr9BndgmO+3cU5tDtWv/mNypDpQs2DRG/ITCGkjnli33XgU taYsOpXys9Oxm/M0sGvvsd3+vrkganYtmrSk4b6INfsmh/JJ3TjfEuBns1uK w9k8EGVevZbPSPhcfy1tqpEPemi+/6TEfjDSZng3jH2m+r0uMMtYC+IQNl+o VABiZWEyW00bGutDdvtaUza+kblV8iAecBLZ7tWUC5++nZg4hG0P689ZJheC mEtsZ7N1YO5qsb+tk/Jjqet2/Mfge2ZI+oTkFxBhHfp3Vh5HyxaepsN3voBu 3/CcN00PnhWbj6icKQLx50gLbaUhEjI+rE8OLQK9NSuQ9tkQNU/388lXUc6/ qtt33gjrbExzJdWLQUx065wpNEYFn48SsaQExF1PPqlYU3AGRUXcD1O+6pP8 6PxJrK551sf2LAHdSSVJZMspOESlRfUNU3lFfIFC6X+Q2Nsq/qO0FMQvHdJQ 4QzIdefHDs2Wgn5RUIV3ngXsRFiVX9S+ouBmjeG8GxbIbRa88z6K8rXaz6l2 Z2F5XfV3hHsZiHOqfMKWVniT5t96UakC9EsMGrvIBoPigwFHzlaAmHpYuEbf FhuuH6FtDKkAKVdZe5dpi6g9ItFdf6iczo77J2CPR+UB50+VVILoic9Uv3gR 17uCWAfNvoEZMODBV++At9rjMfJB36h++rDPKDliLFHPiO/LNxSoadjM+jnC 1mHxh/wN30HqrVMW2O+EU7OPbm5nf4fF4eTpwKKriBSp9F6sxaCeT8D0B0EX 0PbeMKObM1BAd5DSd3ZB22XF7WMuDNDn27w27HGBZM393qokKtfdeDqy3BUP n+oc9hOrBn1AwzD8lTu85b+L/mulbGkvdinyFtaY3Oq7NFlN7ePBNU3ynijw UypoE60BfeVqwcZUT8wMPXDM2VcDIs8wRPcsHc5vj9c5x9dAdnnGt2JPL9ig +tmwUy2YX9+4ve/2BhHDzWm9X4uo/MerwtV88JR/VVtFLJUHZOw19vZBWfl5 6cSGWtDTh61N5O9go9FMzLnddaDXeThlXL2LftsNKT956mEx36+Htdsf9Eqd b9+k6iGr9vvcRJg/JJWcRnPVKE9deMGc9Mchdq7y83P1KHBb1Xs/6x4SPQze mZRTueC4gfbeANg/8shnBDeATOw78sgjCLyTMR2fExuo/HrXqsEghJuUEWlf GiC296t5g2IwKlYt0QzkNGA8okmeFR4MxfiEr4dNG8EQZLfZeD7E8KdaxheZ JhS4Xl0rZPkYl3s2dWW9aUb6ec3T6Y/DwDRvFiosb0bUhm/q3M4wGDb5KX3r boaDqd4JjvJT7Krsc+uRaoGF9Lbc1dVPwZfxWkzCtwVRbbfoB6TC8fSmHM3l TCuCG04HMhkvMJ/LsPJ2b4XDZesZFcUIeFyh+weFtkJMW31O924ELC076uIr WzF+dbnXIO0lNh+KuNC0sw0MjZyDjdmRKFyy4pm6WDum7uj6ll+IxrbAsnwt xXYwDystCY6MRpyga7e+djvK0swZJbXRCPjTsNX+Zjskw6ScvfbG4ERHSGl4 P3X9WuLdUYlXGEwS40wX/ATJXXqqsD0W8+V8NnTsYkL5vKnqgvIElO15uPWW FhNRq0+vfzAvEXdNX+5cbcCExWyRq492IniDPx787wITwXWhHxglifg7N2zT GEHlkrcP/ClPwlCbccIP3k4Epx9NkhpIQdXTDZsKqjqRcGelcXxROu5lbVM5 09wJ18xGnerBdBxi7FOf6+lEU/JKHVI8A8XzzA7v+ddJ9WtX++jZDOReD7b7 qPILh7rYlU/53yLV6E9i+pNfYGqtyHc2ycQDsUqFaIsuEDfOPZfb8R7ZO1e/ O3a5C8rMstQi+/foNr+CmRuU+3xXl0a+h0bqEiOTsC7093uZjc7/gP7DZh4L v3dB0sr0dlvPB2h6j/xw0+im3o99/zLfZGNqcpGzgUQPmsxj/JKD87B2teW/ f2t7sEtyeqdvTR6OHcjyT1XpwcfMBnrj0ny8fmT6Uki3B7Y/d2Y1hefDYGv0 13zvHgiZj+c5pnxGqq2qlCKrB5JfHX7oswtg2Wr0ma+qFxauR6/sNS/C/Oed lxybezGeGBbneLcIb09dXtXR24v0swZag2+KwNfi65bD04c9rR72SUQxYpty 1Bx39uFF7pH/nOKL0Vsvm/Azpg/FX0UbvXlLYc8YDs5260eAIY3ksMogHuyG Db79uGgrUha2thw5xwVHQ0L6sZEM+/3AuBwiP2SOOqT1gxGV6eqeU46UbwYC G3r6ISl57pKxXwVGKz66hegNwJXvoWb4tio4lvhYXtkwCCO6b9Oz2h+Q7tYW 5KoNglny3euUIAOVvMJJN8lBrCcUhJetZUCeDGT5nxzEL/UocfHTDDTnhNJj 7w9C1G7lzm21DOxLj3vZPDYI90MRhFlZNRY/L2vR/DgE7sshjnNTLfKz792q KB7CjFldn8Z0LS406azRr6byRuld6tJ1KFlWbWc+OISc1rgrrdZ1cAtunnJd NYyJ5bydZZw6dN4ZlHhDHwZ3z+7mSJkGZDgsMJQ8PIKatCCjrbFNqApf4pZ6 YgQvmPrCB2qa0FssFbnfegS5iZ/mJxHNkFqxaeii5wjoip63Lpo3w6dQy7vw 3Qj0Vgoata9uwQlxz0z7NaNYOtCQJ5Dair+ZrCV506OoqudvDVjcgaU/p9QN hMfAPO5Ss/FoB5SECIs+iTEUG/ybp3SnA1ZmoimLVcewP8owz+VvB6r4FQ+c tx2D0TrJfjFnJl4aW19bVD+G/IMySQZXOhF948Kgssk4Zu6JhdY9pHpeIDzl e3ocBp5frAozu1DAnyDQYTUOIZWUn4P1XWAGdssGOowjwFeCNSnVDemo0yYD /uNYXy92dzq+G+HFx4ujc8exwNwjcd/3HigIj1ZPfRlHTp2biQanB9m6AR3H y8fxUtTiu7tUL5oayv7O1o+j6mTW8282vZAY2Kdyamwct980f6kT6MOjhdte iq9hQfq/wzbUNxbWGNQk221kQfREiUWcez8ynjhkFyixMGfsJB/xmuqdTGrd ZQ0W9uTskKHP9ENUdb1IpRELD3LVvqq8GcC9E5Ku3r4sZM2/tWhGbgi3I2f0 OcOU6Uv07+iPQk/5o6Mim4W2gJIG5t1RSBdefWj5hwWGXn1lXO4ocn4NMhgC EzDNmrO+vmkME/LNx1OlJ8ArGTQgxz8Oy5R3uuf1JlBs/OwuY2QcynsdL0Wc mECwRWLM8gXUPL9tDqwzm4BsfGtChAIL4WOvqvbbTUDhO3ernS0LNaqPjsrc nkBuFuPn4j4W9mVfPtyUOYG+Ye+TeqwJiB5RsFuUM4G2ftMP7UvYaGvp8dMu mIDQ/k3K73ew4TpjVpZVNYG45/YDRz3YSMfRgw97JiBRbu2+VpQD2dINWkeW szETMy5ngkkQtUwy152N8JJ1ekf7fsNnID/a3YsN+89BErIrpiBMRPCq+7Hh eSTO3uXoFMS3nCx+F8pGbvhPpXcZU5D3rT6Yls6GvqGN/iufPzii8eVYTC8b 7nbt/Ku0p/FdPyrNYoSNpc+sLiz0moah7S0xGQ4bdnzaJa9yp2EWurvmOQ8H 55mpXuXbZ3B57K1x6CoOTL1vW2gqz+Lxq1dmfgYcsG2Hn1899A+SOV552ic5 ULB/3cMX9A8vGGekBSw4EPM4mGvb8A9xsyuZXpc48Au23NKhRpAfTUKsbvhx sCry+Sy9giDbRO7YX87nYGa//708UV7SYo1V5eYSDh5buhSEqfOSPbv2bR6q 5GCXiNzaOWtecvTc7IhNMwfyv7aUueXxkjwFzo5nORxUVO5IdnXmI9dfO+9q pDCJDC1BbVV+AXLL7g7DSOVJ5Jxew3y2XYDcRphuHdwxifdhMz/ibATI/QGH ez01JyGSmqaT902ANI/dbJRsNolFIyFP1GMEySd1E1t5gyjznmTFXBEiI8Iv iOiGTiLqXfMV4VQhMtaiuzfs+SS034U9MBgSIt9SP7NbEiYhf0V+INJemPzO ny1yspCaz+3CoHfX5pMC2z370tiTsNi7MKX40wJywfTvL3//TOJvi/+TPuGF pHihw0stggvoJLTpnFxIyupaGrcu4CKuSMd4dnohueecVpHgei6MWk7Lt+kv IjUV81/qb+Yi2MX1PjdpEXmEtcP9hSoXD+ZEflfyipGmHhtVVMEFqSTKqDwj Rl4LFYk8bcqFW2i1VOvaxeSN/3zcE8y5sLK6NyJpspi8LTdrzLbmIkludt7B +4vJ4NTRBf6OXHSq77rygLuYTCmpds+6x4Xu/gd3gpvFye7JsBMieVzkK+zT ude0lIzZp3a1vYiLJ4VDGnbrlpFnAr8HpVVwobbTvVPIaRnZsk6g3LCJC1Gi kL9cXIKsNnTSeMHmYmnvsyCli8vJB5ELTS//5SIhpTdz/OtyUmco4RrJ8xtZ wYlmguslybLbHandor9h7hLA5zcgSaYnvvjbuOw3nKc/DhgaryD/Bzu/hzU= "]], LineBox[CompressedData[" 1:eJwd13k8VF8bAPBhmLl3FmYmZd8llZSSSss8REmihbSgLNlJiyXUTxRFaBGy ppCINoXInKSISFL2Ci2UJFmyv8f7z8zn+7nnnvuc85znnnOV7Q/vPCRMoVD0 8c/sv0emPO+h8gQ/ByUt2rxDFbHT9P4eUpvgzy/6qdK6VhUxtDqNupdN8LNK WL/121UQ1VTrZ8eWCX5FXuXZZYtUUMiV07Fy2yf42gOn1LUpKojS1rh+/+4J ft5BiwyVJmU06Rp4sdl+gp9qx/xVFK6MRsKrVr4LnOA/yf/b3DuohH48tw+u ypvgDxxf5zXepIgULzW7RRdM8Ku6fkf3xSkiC1szS4uSCX7UgqnEVVaKqOzf mkWfqyb4rdImC++2KaDLS7iNo90T/KBXtmul/8qjyvGwsqc/Jvj3U1yzK0rk 0WTlZHbonwm+xO1XGsFn5ZGTfc9J8ZkJvv+RS6tJOXm0Nl6wYIHMJH9Vz7vj aRZyyNtxJe+X0iQ/5OaNtaLz5VCWdu7kgwWTfM3Ftx2MRmQR53Xc2w0rJ/k6 f1hbNyTJoi8Ur8Dd2yf5fKqr8n/9MuiCm9ybs2GT/G9m0vKaj6XRs1WXi7dG TfKb5HsLfl2SRiMiRAY3dpLfIO2+1MBLGh1M++ufkj7Jp4cH+cVpSCOdxmqV R6WT/B4H/8DYm1KoY/0J3y+DuD/d1gzve5KIx/x9MGdskt9394IoJVYSGTc7 bvWmTPGNLH07R/wk0YOj25Um2VP8nMQnt3n6kijs1oLqOQun+Ivrs3qqm+Yh Le4H+Y0HpviPH8xTzZ07D32L+hZy9dAUX2FXwUJLyjyUwhj9/t19il/c7q+u /3MuYolIPbjgP8V/bXAkuPXZXPRjZO+mD5em+J89U2KGjsxFme0dXq4VU3yn tpAlPe0SyHpv/7uS6im+9ecLr3VrJJDEh+nVYm+n+MlWgrHCYgkU8kaR+rBj iq+uXvvOLF4CHSy3i58cwfGLtRkUW0ggueyvgpiF0/wuwwGf7qY5qFFtRK1r 6TSf4nxTVOTVHBSZTovQ0Z3mv5a3WWL6ZA4aT1xg0WIwzf8onzW+PWUOao5y 7VGxnubPq+9VlD80B1059ovzOHqa7xd5Ntl0gocY/GG79r/T/FNeRObXDTzk r69BPB6f5p+UsAlVXcFD3zbuz48RmuHLP9V2+m8BD5UbPxs3EJ/hp0TtTIjh 8FDAzqgrtxfN8B+/e5JP+8JFPw/Nf+FrN8PfZP3CdCqGi/a57HHf7jLDHyr0 WNl/louq3CK5iw7P8AfHPjmMBnJRxuE/Nh1BM3zzlECrHS5cZH3i6cjGhBk+ 5X7eZlkDLnp9wVKD+2aGn1PRWVo1xkF6Mefqfryf4W/ULn0g+4eDsi+VHK9o n+GTKwNjQno46Eyc8jO/HzN8MZ6AGdnEQQr1I5q/hSkQ+TIuK/gxB31oKX9h qUABxw1rROr8OGjzr32jKpYUWEqVjYincVCqROi7//ZQYJ2QyGklCgcNrc29 276fAnUN2bc8/4qj6xETznH2uP2tpOm5reJofEFyM+lNgePfJsySssXRHfuO 4oEICgS3yEnwTcSRcIRo3LZoCny4IavRsUEc7bm/5GjOJQpYdKf+urRCHIlS Ti1yTKDAwOGg7A3y4sg2RSGpKZMCtbolL1L/iCFO84GgMkSBrI/pC7emiiGn mfA9shUUGE3XnNGLFUOl6vd0/CvxeCaTNm6IEEOuPpRf2nUUMGKV2J7yFUPl vHSbzDYKBAnav3wyF0PHt3VtuDBCgVd+1KXCNDHUXO4otE9TCIbCslLyTrHR gH6rzMmlQhDOeNlh4MdG9GfmOteXC8HvC7SaL4fZSFeg5/xttRAc1FptZGbH RrElnNqjRkIQrB39p8CQjcwLShMibYXg2mKT1yVsNnqZKbHs6UUhMHGJVeJm s9BHtYgtn68IATnXIUDsBgsN35yxp8YLgZt0S9HcZBZSu/Hj6pYUIdhDFibo X2ShkFQ08f62EKQYanSyTrDQhniPyv5yIdDZs45tb8pCj85V2CoNC0H+jd2U K2NMlG1SIxX+Twgs2ssOGQwxUSKroeHXhBBo2E+ITvQzUfDFT5tKhIWh1ELh XvgXJjJNGNfazRGGVE5VBaueibpuLZuJXCwMBcMPNhVmM5FYZXLaqJ0wbAht 3K90kImEzt/ca3tIGHhlVS+b9jPRkEnOnBcuwmBy1CM4zoqJWuoKwy8fFga5 UshdaM5EGR8aDi85KQzC1+f6Zm5gIr1vBDgkCENXv9/IdwUmchL1+VxXJwys uMiGTV8YSEbxVdPEW2EIOlhmwuxkoLrV8m803guDZUjX58YOBtL1ePE0pE0Y 3ry8uMmviYFo7+Ym6fYIw8s9FKl/1QyUef2xZaoQFYaNnpDdDxjoy9p/1Z46 VAAL7ZZFYQyUYGlanriKCmMrL/qcCWUg08PXiyv1qBC3aptxVzADFdwwzlbW x+2r7f1yAhnoDHnt7PttVJgMlTD1OMJAak1rYL0zFdgemT73bBjI4WjgI1Yi FQzztLV4a3B8yz8+WphCheNXXv38o8tAjEF4vOk6FRTKboq+12Gge0dohcFZ VFjz4pde5jIGmvS+VDT0gApLi4wWeGowUNzhWyXtNVTgMDdMxkkx0CuPd8/u TOH+j7yvWjFBomRN3fJXFBFwrU/d5TtGIu++hPJvVBHILXS+WzJKonkets+V GCKQN7G32myIRPbuvRWx80RA3PWlctwvEu+/M5VBS0XA4F0aI+sziZY6L64z tROBdqI7+n4ViT66Kh7OcxSBj6yRIxqVJLrgMYcj5iICJ1aKKd54QaLeIxM7 3niJwMXcTy9Tykl0M6jm/Y4gEVjQfLTtUSmJJC+7d+yOFwElh7zrh+6T6GXs gVOFiSJgn+hrSL9HouPxuxSlUkWgTMLzWG4+id4mr7VryRCBRQcojhO5JIq8 xfy6/4EITFZ90CjOItFMaW7fwVoRyKDry91OJlG+IC3qWb0IaN3loCNJJLIu v6Kl0igC3kuYj9clkqi4MtC7u1UEfO+PRbTEk+hYw9ahQz0iYGymFqh1hUTf v/+ccKOKwg2vn/EGESR6w9Nk+qwRhaFVPvVTJ0i0wdOzN2mdKOx6bVQog51f mV9ZzheF4eKF29b4kyg6SPsMZ5MozHEZDwr0JZHpN92p3J2ioGfDyJtzjETV xfq/u9xFQeJ+6r5LHiTSkwitJQ+LQobyO7UqdxLleFXkLjsqCgV9aQEU7POq m11O+YuCxbFQ5ONKIuMo007ps6KAis8HHHUi0YuDVu+2p4pCrlVa84ODJNIp Sbjvly4KWxKe2AthZ8xtjUnNEIVCqzirHQdIdKba2rQvB8ejm39i2IZEBjr2 L8ILReFlRpGL2X4SIbpnYVm9KCw/6mCov5tEJfkhSZpUGtRFwJD8NhLRTC1l 4mk02EuNaYswJdGO3gXXhBg0aJy5umBsK54/1dq4DxwahChLfW0xIdGca5KX gxVoYOQTWpxrTCL30DvnGtfQYPBuTl+0IYkeK/1H56+ngUmehSIXW6hsR9ht oIHQmonY2I0kiv83EnpqMw2+2SnppxmQ6Lmn/n8aljTo++vr+BxIJLvng0+Q Nw28zj6VNVpPIqfh7KFvx2hw8v7SmNZ1JLp/OfDYDj8aKJ9QVD+CvblW6Yj6 KRpUJ396nL4W59/A3aM+kgY9N9SWcvRIVKNJcVC7RQNtJaE2pVW4XqobOqNz aHCfbZdVqUsiO+fMg2N5NJgpfex3GHs03cS2roAGdBml+eUrSaQqeXWvfzkN Ei7tPHFMh0SBQou2v+6gwe60tv9ElpPomyGzWb2TBkr7RLRKtUm0/VzfgdNf aPCqpOvpcWw18buHdX/SwFr8YFDPMhK9ltOJuf6PBlJMunHrUhIprN5Qd3wO HawOFJV8XUKic4GKu9/Mo0Mdq6gqB3uwjPJxoQwd1DvPpnpjVxo9//VRiQ7C Z06lTmvi98EuY/YWLTpsW1v1QhW73GunqfwWOrzsved4aRGJNB+saPQzpUMu 322rPXbcsIR1gzkddlXod6/Adg9qcg/fTYepj2eVWhaSSCLCOvKPAx0ONay8 vRj7VO36OabOdBBk3xkQwu7hKCZludFhufHbjmYNEj2N78zZf4QOfsmnbp7D dsp0qn5xig4ntsg8+r2ARPU9m3cqhdBBdMVt4RpsPc2FrQFn6eA5/PBHFrb4 w5+9Sy/Qof3iozMHsYuQN5l4jQ6qp74Vt6qTiNEeYOxVQAeX/cWjvfNJpOt3 mx1TSIco1Ujlemw7XnPD3Sd02BzXX/YYu8h4pc0fRIcNYVLbz2I7Pfp95Hgt HWSTWvMWYF/errDqaj0d4nIld3Oxn/40nXz0jg5S7B2uE2p4/Co5YaMtdPh2 2P91PfazaMekgG90yEgccg7G7lt45WBSLx3sLN1NPLGlXjybX9pHBxlZ95h9 2F4TCvemBunwKf39Ol1sOZeWiuAZOtzYqEQMquJ6pxIR6cIETJzP7OzEPpaq a14uSsC+VwfmNmBXN15pobII6Hu7I/whtr++WX+YFAE5N/f5B2BntAc9vCVL QLr6Q5on9hu/XP8qBQLOjRPfD2Cr5xNUxnwCJK4lXNuE/U7muWSUNgGxD97e lsSefvSnPU+HgOavSbks7EU7lG7UrSLg03GjUSHs4PCTmpwNBMgUa7n8UiGR 1tAq/SsmBIiProytxN4X40Qr2EbAt7jGqjLss4uu1jRuJyAsZyv/MXb7wUHL eVYEtFBe/srEJiaVZFftI+CCT41qKvaKePPPVjYE+Avy4uOwI2rvuF1zIED6 AmflOezHLm1LnzgRUJd11fo0dieVMdzqSsCqCkpZAPZqPef/5LwJKLS4usgL +2uWcmxaEAGfxeRjrLD7znSOUYMJqJIwndqBPWiffsAllICGvpVZptgUReXF 2hEErPfTu2mATZv6fPFqFAFmiz4Mrcdmt10fGbtIgE6eVtAabJl4pfLyeALu nJddoI2t7PN5wYIkAlbsWmG8BFtj1/WoyFQcb5VY4kLsleJKey0yCQjOk6lR wV7361NZUTYBe5/V31LENqhJU5O/Q4BmpeU9Oezt4YoDXx8QUFDYypfEtjr0 ydLkMQFD+vYVEti2G9NK8osJyBirPMzDdlQ+oDznKQEnNtQDB9t9RiHcDxEQ ksXXFcM+2vGxr+05ft5kqxkL278kdSdUEmC93vk8AzvMT0GBrCPAz9X5AB07 yvJjqOdbAujrnf6JYseuSO1920iA6iv3fBHsRK6tuW4zAbr964Op2Om/5R8l thHwpOCGhzB2dm2HzMxH3N/Wg0eFsPNzU4IduggoEV1/kYL96LzNt8qvBFze O1Mxo0yiUmd5U81eAkQ/eorP+rlRx/2LfQRYbDH3msauVk2RHP5NgPZht89T 2PVCNif3/iVgckOY46ybPsl1Px0hgFLuOjaJ/fFpu7HKOAH3pdtTZv0lKTk/ bAqvz5MZ22f984S1xE8KCZJrIzizHrSSCzAXISHtnkX7BPbYyvZPD+kkDJrV PJg1RSLZSIpJQtfVR5dnTRvcnxskRkILry1g1ux6WW4nlwTpA1S3WUvkt/ka zSVhTH7EdtYyF5Lab0uRMH8iYM+sld32G4jJkdCRvddy1hrGstlHFUlY/nGv xayXqrexm1RI2GS58f/WFUk6tladhIhXHbtmva5rX0vaQhKmhgd2zHojkuGL LCHB64rhtlmbpLZmuCwjoWD3dcNZbw9KZNSuIGGov0Z31lb79nlrryKhjRqj Mmvb1TIfrurheFbcp8360LzWtePrSfDjjXeOY3sMXUu31SfBTV374ayPNuyl Pzck4d93+ROzPnFP2nOBMQkLBeHLZx0c3dIQuZWEaSHdj2PYYR7XVg+YkVAy +Dtg1lEme1MtdpIgVRZEn3WshrRIsSUJ507cDPmHbW2rfqt7Dwn7opuHR7HV YleYiFmTYPar0WrWfa/g1+oDJLyuvXZrBLtgZttFB3sSDm7X+DKMHbRy/4ro QyQEnDzNmrWhu8uHIhcSNA2zFIewWek+J7rdSfjuHy/3F7vxQ4ic2GESNjRa Cg9iJ7MuClYfJSH9T+ebAWxHgxR7Bx8SZM3WnfmNremfIxrtTwJn8yGFfuyh vMLsokCcDymblL7Z9dxdsbX7FAnaH1UpP7HPSDf0s0Nw/qKKjXqx55zt03E4 R4JD7Xafr9itT8aaoiJJEIvZYdONfWOAFlgUTcKdREW1Tuzl1srP2FdJ8F6q ZNKOPX5Jy3F1Agnnk7bfasEur1xLd0gi4ZeEyacP2DtX7N5WlE7Cy/FLbfWz 68/VYaArgwS1d+0ptdhdqd5X2Nk4/uhe3erZfDIiW+zz8Xrbzu8tx9aDhKCo +yTYqYZSBNjCvpmKRQUkzPM69eMJ9uVOwSF2CQlEXPTyB9j7JGuJ1WUk3PZJ js7DVtnWmmv/jAT2m13F2dgPiob+FFaS8NYs3zcVO6Bf6GpXNQkhZ4zp17AN 1MRXs+vwejIPsL+C3RCz8JR9I463J+Z4OHbiC13lqCYSVG65LDyNbT+xsaKw lYSGjvKMgNn6dbJlsDtJYJ7q+uGBzd1wJa7wFwl5V9gJZtjNx66v6RogQUh8 heMm7Ou389pZQyQYV6T1r8deNrdKxX4cryfBYj3N2Xrpm8xn0RmwxlQ0RhRb SoWxcxWDARc1bJdNKJHos5XksB2bAXfn3Q0fwPZ+rr22cA4DzCoZFq3YFxOd Ku2UGHA0zHxTDrafb8ixIFUG3KPYl6Rg2+5MVYxXZ8DZDv3Oi9iajA9+rzUZ IHLac60v9qsTRhqr1jBg0xt/9nrse5Z2jTvWMeDtwam+JdgJ2ieDPfgM8A81 9VHAduotaE43YkD4Rv2gaUWcr71q51k7GbDhx+LNT7B7dWDlAksG2C++uz0b u55j3am/hwE18z+NX8VOq7qyxs+WASbPlizxxl63mvqj040BkdYv+xSxfSS7 TApDGaDhZTbgroDr8+/UyNswBgyvazm3C9vwjfTNvvMMCIET9/WweeH4tXSR AWk5KJ+OnT+Cci8kM4Df/3xtsjyJrja0W91KY8BlyV2rgrGD8v9Ry28wYL+O /xMH7K1Oy6xHsxngFLVm10LsnvdpLPtHDDCPdr+XL4fPN/dLioKKGPBl0+nq aOzHUU2O8SUM+H0y3MEL+4yR+NPXzxiQm08T08RWfnTKc1UdA5aYSainy+L1 GmtTx/rOgD733W5HZPB57CFD1v0HAxzvGfoaYX96W+j86hcD5H4seS+F7SjO EwobYsA4XyXsqTQ+z0W8XDEjxARGan7ktBSJQoKXXvsjxwReXXarjSSej7T2 r+ZKTFDTrj6kjk0vO788X5UJuVxNzf55+Ht6orvGbRETtOISHQOx43wTprtX MYEbzd97YS6JbnsIOX7YyYSlOsdHwubg929k/j2d3UwQfDgYZICtlbN/6vJe JkSLpKtN8XB9fX8UZ36QCQ+uPHh/GLvU3u1VlScTHNV+XDDh4nzveadVco4J x6K8O9+J4fr1Cw6UvsCET+1Gr4KxLeOWVPnFMOGNqXKxJnbru3A7nTgmZG1S yTnNxvun2brYvJtMmJp7Il2RRaJ/hpljaWVMoLecsFtE4vyVpIVWPGPC3dTR 3FoC75fLE9m9FUy4esyT5o1NV4xRXl7DhHN1zl/v0/H31pj/loomJuSkW6ks ouHzX57ptZ4BJhg5h275KYzzqbpZlT2Ex/NcrvMUtl6ifp72KBOyT9305mIb hOs+C5higkOmwZEVQrhe7ZR6WQwWvH7w97XbDIG85g6t1lZlwZz8TRGZEwQa jOwvt1Rn4fXH7l6A7SPcaxqwkAUSOktlbo8TKOh3x8HnS1lQkv9ZLnuMQJGv Ks9ZrmOBuu1Go4RRAmWfTGo+YcmCGIZRFv8vgbq/GviXh7PANTzcJbWXQAZp dTcWRbLA11TC4GcPga7v2Vd7OZoFbuEJZ3SxbWuOqDhcZcGj0Q96Vd8I1Hrv +mvqTRYM0fIWNHcTqCFwWsmojAVF4kcbb3UQSHtlxNa8Zyz4k2km0dpOoIv9 c33nvmCBU+mfWAa2md2Smq81LLD0ZZo5tRKoepO1T1gLC1YNbLEkmghUzn3y qnKIBXrJkvuG3hBIucZoaOk/FiwWnXYgsYPPvFVImGAB3vND5eoItGG055iL MBv+/FYeXveaQE/aJRVIDhs0tc7vcaoi0INbPkdNFrMhzmnZuT2IQDfWa8vW 2rHBsP8QmZmPn2fGCJ1wZAMstxyOyCNQ14HuHwtd2PC1IPuj1x0CqYZcfRLm xYa9adapy3IIlPFybC8EsmH7nPWhSZkEyjQvT3gYy4aUxW8OsJLxfNvtmpdY yYb2RGtPo3ACVR3VPFVVzYYi81UWX88SqCdU9NtILRvsLZyaQs4QSCOr8NGu RjZ8THDLfHyaQLd/yFqyO9nwSeWSkFAQgXKOfbkSPM4GOTm3R/LeBMo768N1 XiIGLyPXVdjsJlDfOpuQs8vE4LDbpR8PLAikOWT49+YKMfgx55iF6C58v73E +89rxCB0S3x3ujmOj/8wYd8mMZAaVw8tNsbjGRtQNDsgBs2V/dsP6BEo0dND a+UlMWjwuSzlIovzrWaRtitWDGxKKG9tpAkk3b6WczReDEyGVm/aLkmgBBPm YH4Kbu9lYrF4DoGuLsh5pJEjBv7r6AHFDJz/zu/r5J6Lwc7JqNvaY3QUbumw lTosBl/5Y6We7+johnm79aF/YnB+gf6mkno6Kt1i6VU5IQYi/fY6InV0NLh+ 86VIYXHYe95N+VwVHVmrL26awxGHe6PVblZP6Wj56KC92mJxKIWnP1hZdPQx ISTAyE4c0gMfVF07RkdjlycibzmKQ6wazdLQm44koo6nkC7iUD71dXWvBx1t Oe2Ear3EQafh82dlJzoqcDWh7Q4Sh2hzh+vb9tBRhB7vslO8OBTc7WGFraWj le3pt8NrxUFwXcNz6RQNcbRc/t2tFwdWgDvfaoyG+v7T2tz8ThzWmZn/9R+m oQzVki8areJQfWTow+1fNCTh3qhY/U0cLpqWuKIOGhoPom6lUTgg9SNqZ2Ep DbUwdZ8ZS3PAg6rZGuhDQy91rvW0y3Cga2OeQbU3DRXYTIofkeNA/kLZeVwP Grp4t9z2miIH1FKKKsPtach4l/lk73wOFM0XeS9pTkNFiS6rIpdzoPvj/fmP 1WkoYWFSXu1WDtBcTn0LfiOKhv5uygzdxoEzIm/2G74SReZlg8lrzDngFWee Olkuimi7TC5k7uRAvZu+1tbHosgnaMzt5F4O7C5+0W2TLIp2vrHSWOLMAfXj /8kZOomi/GtUpW4XDnwk9lO3HBBFpONdyWtuHOg83aSuv0cUoX80uqgXB5aN 1z1imIiipSqPv7Yf58Bivl3njKYoYvlI3LwQwgH5U4r1ewZEkAsfJRqc4YB9 2st/oT0i6DnpcfnfWTz+mHmnr38WQQGpz087nudA9MPNS/LqRVBv5dGD6y7i eIvSN3HviaCXMm/l+1I4wCqeevbVXQT9h6ISthZzYFzO6vuDD1T0owPFjj3h QF5Axp+B11S0e+LvxVulHNjzQllR7jkVaeruO09FHPAWU1my5i4VNeeqB5S8 5ICJqdbouTAqWh4v2L+4kQNPRAYsLbSpKKVg0KrlPQdUu/3+bFOnIqJhvkV4 EweOq/+K1palok+sC6bdrRygRPz5/UiEii6E7Fmf1MmB7VF/hPM+CKNvnn8U mL85kHxmJEXRVxjtiFSTLR7ggCDpS1iKqzAqzbaSdB7kQEbDlzghG2F0pfup +PNhDrQvH58XuFEYwd4ISuAkB/S+T79eLC6MEg1Vu36QXFDTEewzSBdC22Qt M6vVuPBstenTsTwKSviihfarc0Fv5nFpSSoFfckj2voWcGGDt3y9TQwFBUEp R3wxFy4rvHgN3hR055Bq0C5tLvSZNRL+yyiIce/Pzvb1XMiqLrp2x2JGsPtE jacnnwu28xoOt2jPCG4YZJ6bBi70ZIT+LRabEax5v6dMyRD3r7TC73LltMBl XLDwkAkX+pMr6sNXTgsqDaMp/bu5cHRD5sEcoSkBT8xF9r89XFjdaN6a1jIp sG3S1+Xs4wJndA53zf1JwYjrsPtyGy4MBg+r7jwwKVCPsW7ydeACY3D+m6nH E4IzLYvyZw5zQafrSKTyrnGBvlflfu55LoTU9Dtf1hkVjDf3bqqI4ILv2pvv XoyNCAo2spb7XeCCd1mBpEXZiEBdegfREcMFia4Vv32NRgSsitaC7DguZLtu MYzcOixolu5nQwYX8pdk3HDR+Su4fIYzNpjJBeH0Uut/vwYFW38v/5J5iwvR FrayD7MGBWUVfk+Yubi/I0uMk+YOCjIOCzk33edCnWCJVm3PgMD7hQTyEnAh 1v7wso3lfYJFy1blKj/jQvABMRW6ZJ+gO3FvXGM5F/xjLB4luP4U7PZO9dB7 yYWC+ssSE/QfgnWyGtK0Wi6gqta1ERrfBcSRtUdTWrlQpbUbtvR/FpS32dhs b+eC1P2/rzxlPgsCNwUbUz9yoehvv8qS8I+CftkXCq6d+H61c8oe0m2Cxpdm NTo9XKC0G8kUD7wTpMnZq70exn6S1rBk4X2B3orFWvajOD6bnc++378haNwy tOrfP3z9zrkFpkW+AsIvbKvaJL7uNG/Rv8t5fO+3OUeDhHnw+S6vZJdVFZ/R cyyIJ8KD613szWFPX/MzpteFZYvyoN5U0ysysZ7fvPjNtUaCB95mbp1/Nd/z Iewv0hTH7WcYY8Tzj/zW5NLqcg4POEK8W0+uf+Yff3i2cQ+PB8Y3pF5ofO3k Z3+W7Dkzlwd73idf1zr1hc9du068Q5YHyyZ1hXKGevldv8/YRGnw4M47x8wO xl9+EM3MWXURD9rnBb/gdfzlz5OXPFK8mAeo5sFf7YdDfBOT22e+avFAqevh llT3Ef6DjNrc9Svx9Sdq0yc443zTkrhH73R5IJc8f72h6AT/29sDAtfVPFjd ZdgyPD3Bl5n503B1LY7XOTcoS2iaH7p33vgvfdxfEeuRtZoQKHh/op7ZyAND j8XJCQVCUBSWzZYx4sGNjJ5Dw5uFoe+hnvImYx44ZW9MCvCngoXYAeNUMx5k 0dafe0+lQb+axk6d7TzwRU3RK+7R4NzaP/urd/BAV8KxJPMgHUpdQg+PWPCA 0W520rqOALXnt+LM9vPgXnbMcFwnE+o0/2W0W/MA4h9aduezwD/O+KGbLQ+a f/vIe55mQ41r75swOx6U6ayOIFeJw1HOYlLgzIN95mEcGx8uyAUESm5z5YF1 W5uM7BAXXnTXzG9z48GxHeUZ3r48kCr0MBj15MG8T0qvTofNAYFNfuDS4zzY snVzgErLXHCpnD7/1IcHX8R8zvicmAc8bfOErX48SLU2a/iiIAlOIgMFzgF4 foXbh6UCpIDjBc+HA3kweaH4vcsyachM+Va4MYgHPhNFvbsspeF/39f9gQ== "]], LineBox[CompressedData[" 1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAUf9bCnmuE0CqwJsqR1EjwAxkwY0q rxNAeKWZ2npJI8AeBoNErrITQBck43vxIiPAREoGsrW5E0AkvMd5mtkiwJDS DI3ExxNALmb1m1BUIsCao21ohskTQFis/ivKRCLAo3TOQ0jLE0BpHYWofzUi wLYWkPrLzhNA0lL+P5kXIsDcWhNo09UTQBsOr9lk3iHAJ+MZQ+LjE0C0mX81 aHUhwDC0eh6k5RNATVwsfxdpIcA6hdv5ZecTQPYm2cLxXCHATCedsOnqE0Ak EVfnI0UhwHJrIB7x8RNANNSxmGgXIcB8PIH5svMTQFpYeH1ZDCHAhQ3i1HT1 E0Asyec/bwEhwJivo4v4+BNAw6khqQbsIMCigARnuvoTQO3oIACH4SDAq1Fl Qnz8E0DRqPGUKdcgwLQixh0+/hNAjriiye3MIMC+8yb5//8TQJG/BwTTwiDA O0CgMA== "]], LineBox[{{1.5712969923825595`, 6.333327915110989}, { 1.571306655619141, -9.658746081841247}}], LineBox[{{4.711374534022733, 6.333327915110989}, { 4.711381308527229, -9.658746081841247}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-9.658746081841247, 6.333327915110989}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.505145838719614*^9, 3.505145852737555*^9}, { 3.5051465620198183`*^9, 3.505146573779934*^9}, 3.505146645740119*^9, { 3.505147622773839*^9, 3.505147627616137*^9}, 3.505150120190709*^9, 3.5051506092447977`*^9, 3.505217869254615*^9}, FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"After \"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" iterations, c \[TildeTilde] \"\>", "\[InvisibleSpace]", "4.4934762396216765`", "\[InvisibleSpace]", "\<\" with an error bound of \[TildeTilde] \"\>", "\[InvisibleSpace]", "0.00019052689536014356`"}], SequenceForm[ "After ", 14, " iterations, c \[TildeTilde] ", 4.4934762396216765`, " with an error bound of \[TildeTilde] ", 0.00019052689536014356`], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.5051476276517153`*^9, 3.505150120217904*^9, 3.505150609270029*^9, 3.505217869280949*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At this value of c, the function value f(c) \[TildeTilde] \ \"\>", "\[InvisibleSpace]", "0.001348796217191861`"}], SequenceForm[ "At this value of c, the function value f(c) \[TildeTilde] ", 0.001348796217191861], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.5051476276517153`*^9, 3.505150120217904*^9, 3.505150609270029*^9, 3.5052178692944393`*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{3.5051476276517153`*^9, 3.505150120217904*^9, 3.505150609270029*^9, 3.505217869311679*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{3.5051476276517153`*^9, 3.505150120217904*^9, 3.505150609270029*^9, 3.505217869328413*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{3.5051476276517153`*^9, 3.505150120217904*^9, 3.505150609270029*^9, 3.5052178693457108`*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{3.5051476276517153`*^9, 3.505150120217904*^9, 3.505150609270029*^9, 3.5052178693620358`*^9}, FontColor->GrayLevel[0]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Bisection", " ", "Method"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Exercise", " ", "#2", " ", RowBox[{"(", "b", ")"}], " ", "from", " ", "section", " ", "3.1"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"n", ",", "a", ",", "b", ",", "c", ",", "f"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], "-", "x"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Note", " ", "to", " ", RowBox[{"User", ":", " ", RowBox[{"Find", " ", "an", " ", RowBox[{"interval", " ", "[", RowBox[{"a", ",", "b"}], "]"}], " ", "that", " ", "brackets", " ", "the", " ", "desired", " ", RowBox[{"root", ".", "\[IndentingNewLine]", "Be"}], " ", "sure", " ", "to", " ", "veriy", " ", "that", " ", "f", " ", "is", " ", "continuos", " ", RowBox[{"on", " ", "[", RowBox[{"a", ",", "b"}], "]"}], " ", "and", " ", "that", " ", "f", " ", "changes", " ", "sign", " ", RowBox[{"on", " ", "[", RowBox[{"a", ",", "b"}], "]"}]}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"By", " ", "Tabling", " ", "k", "*", "Pi"}], "+", RowBox[{"Pi", "/", "2"}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "one", " ", "can", " ", "find", " ", "that", " ", "f", " ", "has", " ", "a", " ", "veritcal", " ", "asymptotes", " ", "at", " ", "30", "\[Pi]"}], "+", RowBox[{"\[Pi]", "/", "2"}]}], "\[TildeTilde]", RowBox[{ RowBox[{ "95.8176", "\[IndentingNewLine]", "and", " ", "at", " ", "31", "\[Pi]"}], "+", RowBox[{"\[Pi]", "/", "2"}]}], "\[TildeTilde]", RowBox[{ RowBox[{"98.9602", ".", " ", "The"}], " ", "root", " ", "of", " ", "f", " ", "nearest", " ", "100", " ", "is", " ", "in", " ", "this", " ", "interval"}]}]}], "*)"}], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], RowBox[{"(*", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"k", "*", "\[Pi]"}], "+", RowBox[{"\[Pi]", "/", "2."}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "35"}], "}"}]}], "]"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{"a", "=", RowBox[{ RowBox[{"30", "*", "Pi"}], "+", RowBox[{"Pi", "/", "2"}], "+", ".0001"}]}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{"b", "=", RowBox[{ RowBox[{"31", "*", "Pi"}], "+", RowBox[{"Pi", "/", "2"}], "-", ".0001"}]}], FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "The", " ", "Plot", " ", "to", " ", "check", " ", "that", " ", "IVT", " ", "applies"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "100"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nMax", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", ".000001"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}], "/", "2"}], "\[GreaterEqual]", " ", "tol"}], "&&", " ", RowBox[{"n", "<", "nMax"}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "c", "]"}]}], "<", " ", "0"}], ",", " ", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "c", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2."}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< iterations, c \[TildeTilde] \>\"", ",", "c", ",", " ", "\"\< with an error bound of \[TildeTilde] \>\"", ",", " ", RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"f", "[", "c", "]"}], ",", "\"\< (which eventually should be near zero :-).\>\""}], " ", "]"}], "\[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.505147605050007*^9, 3.505147631771727*^9}, {3.505150162428399*^9, 3.505150168659133*^9}, {3.505150497560377*^9, 3.505150557561689*^9}, { 3.5052140392132053`*^9, 3.505214376675871*^9}, {3.50521451222336*^9, 3.5052145863330383`*^9}, {3.505214745542326*^9, 3.505214825116033*^9}, { 3.505214856862279*^9, 3.505215134474711*^9}, {3.505215196014761*^9, 3.5052152054525127`*^9}, {3.5052152358211946`*^9, 3.5052152398514214`*^9}, {3.505217858655189*^9, 3.50521785927663*^9}}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["95.81867593448868`", TraditionalForm]], "Output", CellChangeTimes->{{3.505144883263631*^9, 3.505144904657302*^9}, 3.505144936255804*^9, 3.505145018670877*^9, 3.505145062429503*^9, 3.5051454820960083`*^9, 3.50514553619175*^9, 3.505145593148397*^9, 3.505145629061763*^9, 3.5051459868557463`*^9, 3.505146018687099*^9, { 3.505146052894805*^9, 3.505146077482888*^9}, {3.505146140344985*^9, 3.505146146837255*^9}, 3.5051461886693707`*^9, {3.5051462299108343`*^9, 3.505146258587367*^9}, 3.505146424856474*^9, 3.505146613622018*^9, { 3.505146859629365*^9, 3.505146870519059*^9}, 3.5051470614089003`*^9, 3.505147154479987*^9, 3.505147632542799*^9, {3.505150143943891*^9, 3.5051501693190317`*^9}, {3.505150506019958*^9, 3.505150558309449*^9}, 3.505150612923181*^9, {3.5052140689896183`*^9, 3.505214086487768*^9}, 3.505214382458597*^9, {3.505214513415326*^9, 3.505214549329111*^9}, 3.50521458751641*^9, 3.505214825778893*^9, 3.50521495845886*^9, { 3.505214994338296*^9, 3.505215050775866*^9}, {3.5052151183196363`*^9, 3.5052151382243433`*^9}, {3.505215224738511*^9, 3.5052152405117807`*^9}, 3.5052178612917423`*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["98.96006858807849`", TraditionalForm]], "Output", CellChangeTimes->{{3.505144883263631*^9, 3.505144904657302*^9}, 3.505144936255804*^9, 3.505145018670877*^9, 3.505145062429503*^9, 3.5051454820960083`*^9, 3.50514553619175*^9, 3.505145593148397*^9, 3.505145629061763*^9, 3.5051459868557463`*^9, 3.505146018687099*^9, { 3.505146052894805*^9, 3.505146077482888*^9}, {3.505146140344985*^9, 3.505146146837255*^9}, 3.5051461886693707`*^9, {3.5051462299108343`*^9, 3.505146258587367*^9}, 3.505146424856474*^9, 3.505146613622018*^9, { 3.505146859629365*^9, 3.505146870519059*^9}, 3.5051470614089003`*^9, 3.505147154479987*^9, 3.505147632542799*^9, {3.505150143943891*^9, 3.5051501693190317`*^9}, {3.505150506019958*^9, 3.505150558309449*^9}, 3.505150612923181*^9, {3.5052140689896183`*^9, 3.505214086487768*^9}, 3.505214382458597*^9, {3.505214513415326*^9, 3.505214549329111*^9}, 3.50521458751641*^9, 3.505214825778893*^9, 3.50521495845886*^9, { 3.505214994338296*^9, 3.505215050775866*^9}, {3.5052151183196363`*^9, 3.5052151382243433`*^9}, {3.505215224738511*^9, 3.5052152405117807`*^9}, 3.505217861314597*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJw92ndYTu8fB/AopSQkvlKUSimlVBpWR9KiaD5H0qASIS1aKkVpaqA9qJRK W8u6jVASSqJCkkRDoqXk9z798fMH1+viec597vtzf4arVQecje1ns7GxDeE3 5s97h4RXmXPQFNvMr73ktOWfwRB4+90nkR+naNJks2MgARaxGnvcOUkTSfvo vuvw8UsRa7v/0KTxmGTvM9ghaHDfz3GarPQ3/rRgDk2xNz64KjFCE3Ilrzke dnn3yeHbAE0Ero28ymX8wOsgD+yYR72shjceFFsr10+TRWVvGtphm9RyTs/v NDnwaPZjEU6sb2OujdhXmnB8tajKgdkvSh2t7aQJ3ZddUQV/WEQ9Z4MLfgyV 18GC0SsLt3ykidl4cEkf7DqS/+HWe5pc4y7Lk+eiqaBqElbXRhNd2XmplfDT 5Lc1ki00CXe5debJXJpKizrt/rKeJqYSN/e3wvkHRaQ0YOHWQvWv8KX7TvWF dXje5qs/OblpqrzAvC36KU0auEJtteEcpTXd1o9pwptmvq0WXm0x+E7qAU2i 6n+yPeShqWouSQPjGpqYn+7raII//Mo0bq/G/il8qeqCr1oe5rOHCy+9PTF7 Hk39+lp/1buKJi9s7nVug+uvNi8prKDJwrEIQuD0xAPflMtoEiu+JuAuL001 KWjKVBfQpJTwFL+AT5iGChrCTfsHPnbC05PFhZ/zacKfUKrBPh/nmbe+diEc y7vlnw68wK36tOt1msSNGPm9gmMUb04bX6PJxSc+vt18NOV39+WUfwZNyu2s CkbgwkFOHSn49axtHZwLaCrcZmzRi3Sc92bOzdLwiwAJSVH4UnH05DF4xaq5 ck9TaXI5Mdt7DK764/91XTJN4p1eePIsoqmWm3+WGl2myUlRd1oIDr3ELjwX Nm9ZpiYL16VuDbp3iSZLNQ6MGcCv6xM85OHL/CMeMcy/1zJtXXwRrl7utoyf pg7whv8biIG5HI5JLqap+P6yks+R+P7bPAaqcOXrufXZsLlLkawu7Py7YL0j vLR9vO8wLOXR1j8Qgc8Xhh+5AR/718DxNxw2KzmkLEBTUYqphtJhcOaUreYS mloV7LS8Mpgm3zn3iBjDanGLyTl465HMDls4fJdWminco6DPOgMXzZ2c/esc TTbcjd9FYJ/xv3aK8Ou3iqpbl9KU8dbtOreCcF58h3k3/od4+dMR8CuAJg4u t+v04GSNkayncM3rBSF74YpG3/FU+EByxSwv+OCyt7J6cMkajrFK2M274eEV f5rs2Z7+acMymnr+NNB9nx/i07OlYr0gTX1/dHrHDx+abHy86Kkm/EVD9M5j uGex4TsTuM5h4mAavLXo8aQHPNqms9UQHvhSSdXAwglqK4u9abLLJKleczlN dVvPNvX1ogn3OusPJkI0tdw1f1j5FOLHJ/mHHWwmXvFuEWxT18p2Eu4Siegd PEmTKrs94gmw3Ownvtdhx+Rtjh1wrOcTL1H48VyJYTthmrJyi0xc4kGTs597 55xcQVPiosorhdxokvWx+fc5eN+m0KxpV5o8ar/7+RL8UtFStwtmf33x/k1Y pGjo63U48BF1egSO3coftBEOyE747b6SpkIsXs+zdaGJ7yHdz24iNMWvtzf4 gTNNUg4qNQXBunoNvtfh29Yr78fBHjsfRkTDk6zfaWXwIYH6cSvYWzfD4hdc ILBieuo4TTylx1+5iuJ5912yt8BufTnEZRVNcZy5mv/yKE2M/5lan4Ev513g vQUrLp49HQ3Lhr0OzIaHN1puKoYjL/MUecMnwhZWDMI6L0vZJeHj0l75TmI0 tVa6MCzACft3SP+yvTjiJXGxj9YR5D+fMWUP+OEFyf3rYakLWc1n4R/ffhqt hHsqphdmwZK/7dzGD9PEnrMsvAt+N5ETdwM+kC10xlqCph49MFQXgi0/9zvt XU1Tc6ZYyeyOyBefAq2OwCafC7b9PESTZx+XGfnAvCudJj/AGzu0VFLhnqkX uTWwYEsK2yfYNG681xV+83jXJUdJmjolxT3Q44B4zSu4e0qKpohduU+HPU3O 52qWnIctLCsdG+B7195mJsIj16sdbsPrMjlCb8GH/TwupcDzUyxN/sFnwz7e 2g/XR/L2Bq+hqTNmris+29Fku8vRRZelaWpRyZV7EwdpMrii5FM2LNkWndIP J9WPlNyEK+acDf4I/xT3N26BTfV3nKmF09/ExAnI0JTKtw8LY+HJTZVL4uCr n0cj5eAyztnLo9fi/JbWFB47QBOrMu3v6fC2EtslB2Aem/CaIlh/VlqIOWxb LbDvBdyzKi9KA15wVCqFT5amuK/2ruaHnV7tWhkJl5v1OFfb0kQ8JV4sTI6m sjqPrF0ISyrVaifD/8l7LJkDy9QPHymALzhdnffHhiYK4wZljbCusYpwN7zV lENr8TrkT53JhirYgtfFPgVu/d15wA6O9dXPLZSnqcmokUWPrJHvFns23IMf uh48UgMn5mUPvYSnPsY8L4Yz3rKp/4IFlbjKU+FC5co6VQWaWqqmwuYJ1/eL 9xH4wZv3EevgWfv/yjWvp6mtL7YrZVrhvs4bmNUNd+s+H0uCz9d0tPyG+VaH 1cbCfMtun16qSFPaf318A2HhZu/ne+HXH01YB2A1vfGjnfA3kahqcfj4hl/5 A0qIb/kbYwX7cZ+6u/yn4fiDj5uy4ZHYJpMFyjT15wJ/RRrsO1QyqQD3Nq2+ FA2H5p/Y6Q6PJh8qd4ezVg1+/wNn3eo/sRVum/9Neq4KTQ03LShutUQ/4xTS /h/8drhx4BWs+3R1pBS8sO/7+ga4MvDAkDbM2Sj+nMAXx9orzsHzdNl358GG nxq3s6vSVML5Vh8/+EF5+f5p2P9BudlaeGKRyQI+Ndz3/4ZMJWEF559kBfxG rHvvKjhdep3EFnjLeJf7f7BvWs53HziirHyQHVY5n3RqAj4v4zfwfh9N8vcF xPxWpykevVVjl+CNmVzxczbSVN6VIe0YuP57VMpSeNGNhpQIuNcrNUcNjjt7 0SIIlkioueMLc71/ssIFTnv9+xvHJpq62f7zjgEca3BYc8lm1Meerxrz4FWX hnQk4czCJm0uuLjjlIEqXCAuasIOv3AKpvfCNb8bfSYt0E+FZR5PhQupId5+ OPjx+6TVW3DfF/+QboS9NYx/bdhKUyvll8pdhk9vOP9mB3xcJXtBHByw9m61 GXzttfXoBebz/8kEeMCKs/VehsJxP2bNvwl39AXdPA0XpJdIKmugXjQe0XSA P/xbaKFI0ZRW19iujfCnEe0tmrD/xckbqnB3n6+oMbx4UTX/Bvh7a2+PC1z1 0uSrPDxWRNxK4Inb12+vhhfanIhU2Ib8rPpNgB/WJC/IOk28j1iV3cBemqRm DI5pwHWC3HP74PGA+fJGcEb91qJeuHDbzlQ3+L6jLnc3LPTwsVcVLBhr39cG /669o6i5Hf3bKtquDs5+lp9lpoX+hk2a7zrMVlDf7gDzWoRK5sCWEd/4PeET tSaa2TC/gdSZJFhPZNnZK7Bf49X9H2FF/3H5JNj8VeLSwzuY/Ne/OgKe2xpy 3lcb799U7uIKi79wdI6EV321HjsBb32iZ54Gf9nS6+8Mu1fOkyBw5pOgxKNw Z/yFe+w6NJVkFDHoAFfR8aNhsN56wRWWcPMez/fJsO+dZS8s4EHdvY8K4OHS B0F7YQl1odhGWNyae8QcjhZMl+PXpamBuzxjRrBj2zW7RNhgQuakLhzUFLIz Dy5aZmWkA6fVOyregm+58Mhrw69rZNjew3G3HvzcDlPJhcmiesiPx/Zf1ICX WVY05cBiK9J2qsJP39dSFfqIl/8Kj62BWWfN5jyGOeb9zJCCe2S+1LXAWQHc byRhDk8OkxGYvaxkx2pYg3+7vfJO9Iu5aRvF4AptEloKzwn85ikM7xjYbfgA ruV0eSrErC/uI38T3ON5XZDxcOd08k84XETiviAs57OlUGEX+h+/WRL/wVlF NU2F8KzwQ6r8sJK5fvxd+OzUUMYi+MHUu32NsMM1Ll7GnXoT3QNweVNzzwIm vrpVx2QNaMpyTl7hfDh22U2hfHi9oN05bnjVPa3OGthavYaTcbH966x6ODnX O3Qu3Fj6S+47/Kl5fRwXzGOgSEkb0tRXsS2Vc+AzZ4rscmCVJb0as5nz4l9z ugo++GRZ4yzYMDPjUh28Yrx+P2Ph2pjHfXAc3/UzbEy8zHVfo7Ab82sTW/s0 jfyX2E9tg/U3DLszDpax32sMUxm7FzI22WUe5g53dW3f+RcevKDWXwXfS37y ahJuES3hqId5qhtPMr5dIr2iHXZMlV3BOKx5ueFfWEam69gfePV/f4u27UH+ Df6+cgK2TLvvVg9vt5a4Mwpvl98Y0Q5H+FqeZCxDSrP64c1u9xUYj3/KbOEz QnyHcV0fgeNWB6uawPPfbMr5DXtXTO+2gzfJxx5mbKNzytEDDilkk2O87rBj Yjy8oUmo8hdcX6A/2Q7PLZ/9dhgu2fJw8QD8VKPpKuOExk2y07DCoezjjB2G ZPeLGuN+797FzXiW8oJ7dvCzBWb6P2G1W82BA/CX4GUTP5j1/fnj+ReesHFp YTyoLuY834SmdmiEljLOrDqxTw6ufDVwnDFfxXzlY3Bn156hQfjwiLLMafjn Cccmxo+ULUUj4bnp624y9irL470BdxXd9WXcXazzpR8WDSlfzFhj6Hj7FPxu hGtyAE6Sv/yK1xTxXjHRxXh3YfcdWbh0XnE545r8M5ePwhvWy1szXtKXG+EL p5pt3sn4hMzLwAjYNaZVlfHq6yudC+Bc1WJ+xtHXbun0w7o5JY39cN+Xri1T sNjg6F3G2qt5lHnNaKpNvKaI8WQmLSoLn9xVGsvY/LP/0s3wJrXPZxkXi+Xw 7oIzOMJOMXa4MjLuBKcprbdifL9T+IcPPBQtZ8xYWFTrSzhs8ihem/GrtNhX +bB49g0FxptT5PP6YKNVOdyM49vNMyZhPrY2NsbDy/0uzzNHPbl+ZLwPzkls CFwL77ZM7WU8+90vz01wot2mT4wtlwk574Tfqci3MeaPP7zPCV6+ceFzxkff RBv5wINOE48ZP1lSpRMO2x5WuM/Y9yKncj7sXe9fwbi1WU7mFiyrcLGEseJi M9Fn8AX7wQLGX2Myeftgzh1Hs2bW8y2i9A9c/zotg7EwdZLmYdFUUAdvKmPV eOtpQfi8T3kiY+NB3SxpWO9V3OWZ9e1Q1FeHzf7mxjEOSREa0oV3iwxHM76t P7jJEZZ+tCxiZn1XWj+dgp8HD4cyHh4nISHwt7vjIYx59+TJxcMJEdLBjKVy 4pqvwZwLg84y1pz29aqATx5mD5rZPzMHkcfw5urcM4xPFeyubYHviLgEMI5l V3f6ArvcsfBnXGAhtmgE7ig96DeznyXzKjlozH+iYacZd80dsRSAKakGX8ZT 1h9mS8CRX6Vm/F/lk1wlWD0w2Wdmf/lKDLfD85etnvEu+6TfxnB73QNvxodu ByUdgAOqXGccuPgY5Qp3cSjNOOWIec8ZeODFrBlX3teIiIEvbXzvxbhpmbTi FfiN/cMZcz2ZPE1gkcDcGW/2aKz7CP+UvTrja6/cbFfuRX+xO37Gi9YJTqCu U1cWrJ2x7LnZ6egDqI57w56MtTv6tHzhzum8GdsqtXwPhxMHjGbsG3Y3Ohn+ UvDlFOPLn3JU8uHU/XYzLlGL6aiBL4g2nGTccME7sB72Wyo0456eg2vQJ1Gr bHZ7MJ611aDxG+OVh9xn4u2SivsELORi48ZYpV9kObcF7qeXuitjo+3cZBks RQ+dmIm3pGH7NfBquSBnxsE/2+epwSPLho4xvqJbW6IDf9q04ehM/KUXsljw qoo9Rxi/GY3/iz6TasuhHBn/NDiTeRIWXM/uMBN/2Uf0guF3LpcPMpacMvlx CZ4KHbdhvM1ky6VseFeilNVM/OVJbroJn763ah/jGHoi+DXc0Ohsypgj6VnA F3ifyLE9jE+2p3qPwoYS4rsYfxM+4Y6+nKo6dUFn5vusNI8vg8+UFWkybkwX cJSGD7mc2TLz/E89thvhKf3ZajPrsws3s4SjKrhkGSdk7999DH7sHbKa8byv 8np+sPC9gpWMhw6/3pwBH5P5sIDxwfxrKiXw3MAvXDP70++p8ACedev8v+/w LecVEt1wj3ziAON1JT9WjMDFSbO6GWcM3/+P0xL3Q2vqHeNgD4d5a+CU4rRH jMcr1Oaow7fSt1Uzdhrn+acHP5I6doPxHp+iYSf44l7Ti4wf3D7T7wuvXTcv hPGGaZOeSNjgJ+XFePmZ8XdFcOUlEUvGX4K33f8Fm563F2JMP118i2M/TVlx vORmXM/dU74EXsN7bewbUw8iwnJV4ctc4a8Ye8c2X/CBJy7/Ps24vzk7NAI+ annqEGPrJZ5BqXDTBuM9jLUShE/dg2/acooyXpBmb8VuhfjcIFHZy9zvj6q0 AMyrLJ7M+Lcoj/FqeEelgx/jtszCHTqwgk+JJuOs62Oy4XCY8qIHX+GlfXWS KXDgxR/pjENlU0RvwKGN076MjxdRAi9goV/ZyozVb4ZO8lsj/71+ldgDi2bz NIvBvMNlbow5L4XnKcLJl17uYvzaPXKvMdxnWTL1hfk+5ZjKGFjK+q0xY1MJ /gtXYDtRc0nGmwTiHErgWZumx7vhub8vLnkFO1rVJjO+WpbgttCGpm67j775 DJ/PFNwpCictj8pk7ByXJKYAtzZpODPe7Jbyajd82fAbO+M3ihnyF+AESSGx LpinNKdvvi3q3+F1Cp1MvF5Z83AF/FTQZeAjUz9irifJwdGjBdcZZ7nk6xnA 575xiTDeur4oJwI2DF/49z3sWlxxcN4BfL4g8Ww7Ex8ZqpuE4JObPRQYa0RX 8a+FuyLXtLcx9/9EzX19OJuLT47xNfm7ImGw/vrEB2+Z8yusbZ97EPVesaW0 BV4WKs+1HHa746zJmHUwUXEtfFMy+OVrZr//OxZqAN/IFOptZu5zgIBqLLwy LIWjiYl344OxQnY4X87Ioecwm9zzO7Kwv1eyA2MNLtVvW2D2jIm2Biaf3eKh bODStsS7z+AKidKBLDgrRsilDs4bZdNbZ09Tf3sKAh7BvS+PuGvAXiL2bQ+Z epr/On0PfKRDQ5FxlnXuqCt8wMWo4z6c9nR3ViXskXNR8B5TP5PS/lEONNV4 SEClGvbaurnC5BDmlbWBXfmwp4JjjB2sd2zNvzwmv4ldPOoBT3PmCjJ25ewX i4f5W6R0c5n83Zh8oQ1uin0XlgXbWE062jpifh7yy0qBrfZIabnCpUK2qcnw fk0TkSDYyWAwLgm2kMxvyYJXs017JcAmgxaavbDMr3Tpi0w986sRcj5MU80N JgLhzH090TPqD5+yCOwJhbcf4G+KhvWVZCvOw5T2kfOl8PTVLwbBzH3iWz4y AifIJFmdYeplmlej7xH0W+IWs0/B/HfVzoQ5ob8rtd1iA5+1WrwxCY54rdhs BY9ODwxfh4X4fR32w+0amXZ1cB/r6DkLZr/vz9ede5SmuNi9s0yZelfbxRcM 6776bacL72uISDlzjKZ8RNw65Jh4OXrILAb+pcQvLMusd74m3xX4nEkTLQNL GI75E/j8kbw6SXjwhe3Bf7Bj0pHzInBAs4rM6ePYr8y8UwuZ57d1Vno6Y34t b5g7xML9t896FApf6qyoGoDVhg69SoJv2zXZ9cHP5/z4fhsuHIos6YFHFf6u mHUC8fv5uvB7WDdE8GwoLPB8tkod3K9kvCfJBf3FI4G9aXDF3SX782FnC9eQ ZDhA793h2/C3T/4lCfASa5ugD/DfN4njsfDWsOMVYq6Yl0WMjdEXkujOMOF8 +A7vQgVnWDnyYe8tN5yf06jHJtj18YbmZ7BLU+1ONbj4X86ddvj8FGvFBljW NSJ2Eo7yulm2Dl7NMtu8yR3zV+r3glXw0lVfL9TABnGdzznh8XIe1WoPmtK5 6Fv43BznM+i7qg7+t0topA52l/ox7x28fPe0ymN4KLG5cxz+fimg4C78zS8l TO0kTSnpzrIqgtt0132ohIectrVegO90GJ2rOEVTv3P9OAzg23LBIo/hPcPm 93XhGr+a6hY4RnSFlxZcISo++BvW77N9h7mBFNr9NlfyxH5XmFjKwGn9l9cU w3GX2Bw5Yb+p9mfXvWiq/y7nqRoz9G8GCx2qYa+ov+dvwt5pWmx1sPlho0vF 8EnqhnIvvF76b8o1+PhZv1RJb8zTOz8cioWteVc5Z8L9yee+OsKUsAN/qg/6 I4czTovgy6wgtkLY3rh0+zy4PzZj8C4cFRAoMAdO4G6v74S9/L+kj5tiv0Z3 B0n4Iv8kjlp+hDNeqf/Oh59RykfyYbaQ+W9qTqNeaq1P3wKbP5B59AyW0rx2 WgUu+KtT2gFzHH1tIg/T7oFR07BoxpavonCx7Zi2ph9NPbBzus4O22z+VFkH r72x9+ITE8x7P8sT3/rj8/xzGnThsPYA+15469lwkW2wae2u9ePwc63JI+pw b0L30/8CaMrazfubNLyQEhg3h6vNFM7ywDZRbuYtcPQNaZl6Y5pMyygubjqD /HXHmGM7/FRg+sMn2DC0UXsjHDtdl/cTdhjcHrAelmyy1VwUSFOaUZOtIrCB V4zLHnhX6m3BKSPMB0+GXjTCyjFWH0vhTXZFEc+C0F+LrVYThC3V7Ao64N/H otz4YD9ewYYBmG2OcCa7EfP/2YHzFp5F/a7y+DCwhyb6c8zDTGGp8vZH9+G9 16ZC3sOedtzah+BTvXpBP85hv7TIw9zdOL/b01fZgmlKZY7q0RS4JrrswSJ4 l5IWVzQ8rbZitjLMku4XOAUHhw4FeML/lMcitOBLMvF+s0JoStv02+cOQ5qU He32Wnwe8/h55brZsO4PnVPisFj/2sQRA5p8cMl3V4ITj37c1wvznHJ1NoF1 23Wqn8O2Z9js42CNJxVN8fCCy8J7FociP9umukvDTvdMJReHYT8WvVyiuQvx pFklLg5X7vYRV4IvPxJapQTbiMqJScAP6rqETGCJfYeH58CCr08sioOX2lzt eLoT82FvxBR/ON6f61n9Tlicv7aJPwL76ZuVvkMf9a/gu78YrJ6tMWcD3Ki9 UE4RVouJsJCAvX32hRhFMPnlT/Ns+GX3z03R8MsBC7Z7ejivypXZ8yNpyjj3 nIIy/NbS89TcKJo6KPTSfZEu+u2xVIllcNWVs0XTOqg3MQ9fScERLlWtfbD8 Yz5ZHVj0rNFQLRwsn915Dr6wQI7ygpVmN+mxX2D6aWO9Dm2aROWsFZ6GQ7kF XeN2oB+T3bhiQTTqHc1y9IW/FeuuFIXvzXm4wx7WqrEX1YTLVhbdVIEnG9Il gmFu1nWHt1o0cRxeLMcXQ1Mrls//tRTW3DK1ZWUsTblX6rf7a+K+3+fRkIfP XZn0sYdTtQUpClZ52PNPHx7fraJ5AH6xurN4CVx04IT2NXgyP7Ds+jbMh+e7 DdfFoT4PfRVqoGgy1tRgvfUi9k9i+YmJrei/OMO2GsISIVUb3sMb1XVWWMHV Dcs/ENgv/X7bafhfcMabEJjjaIXZHfj9lfYDAvDCORk7N1/C/HCk7KnUFpqs UXVT3XgZ+UNx3UOVTbgvRxSW6sPrdXiTlsJOqQO/98JTMf2GoxuRj9kdS71g I6V5xjdh5ZeWctVwkueS6vUwdVhbXC0e8+f2Fd3i6rhvyYILVBJQP5vvHO1X wXxfdW+bDqz+ZTT+Ebzrjb07DX80OXIxBdZYVPrOG/67YPzfTnh1iH7WPbgw 1CIpdwPmV1cfdb1EzOOcY+m0MuYF/fcHLZOwf17NQzHraTLbMejyMbg0vrT6 IOx7TrrOD14+K0x/A+xMPNZdgR/END1oVaCJmQrfxBfYarsvx3J4lZhGlHMy zqc43D9uHU2qJzKqAlNwnnv+1bHW0mR4HXdyHCw8EP9BDJa1czmNRo7KsK4r GZBBfWrcpvkYXmlrFRsIn83sesadivk2Y0zhujTmPwOJj9Ewb6NB8DcpmvRk 5MxJT0O+8KlzV5LAPPNmQW8RHPfg27kRcezfPM96AuuzielUwg0euhe64MTO 2lZ1uET/2zLJdPR/v3jEN4nhfX/LyN6Afb4IfpUTpcli3ULjWxl4/y47vpdC NCFra/mfwVq3b/0Kh48v6Ghqg/n9xwN14KdvuE3+wOeHv6TcWY54src3Ub9C U9c4kwqzBVEfAoVNK+Edf9xq7f5DPb8TZlZ2Ff3Kyct0Ej9NDl+5suQh7B5s uVMfXnquqqUJ5n7n0TyxiCYuu3rMhuFZdE4GC5Zs32a+PhP9gEKtIN9CmsSM j5sXwdWbmt7Yz6eJg9IhOj8L/Xfi+dgaLsTjrENHb8Nb2kdjTOATLxwCnsP3 fKx+9XHSxMfJIfcHbDc58GY5HJ1pP66UjXmRe8HUCQ7k88V2Cbdhu6Ke0L9s NOH7bfP2+TWa2vDZTiVygkUWP7Dp/wCnNbJyF8DLom3YhmDVcxP6MeMsIi5r s4Y/B/2uUMfy2DEWUbOz9jSHPfQ7i0JHWOTA6/3LPsJZp9V/Gv5kkcpyC3oo l6YEuZadF+tlEYX13Pps12lK/t2dfTFfWSTvRuWmhfB3u3mb//WwSMo1AREF WKfwiuDbLywSkND4xRk2ddee6/eZRfR9Nd1+wO0pK+MTPrBIx3aZqME83Add 9+6RZhYxI2/9p+FMmR7LbXDj5hAXvnzUU1utsPAmFiEbuk3XwaWH1UaFXrFI tlSa0HHYpeNMiWwjixyfx399ACatKwN4nrIIW/PEw/4Cmrqy+c73pBoWUT90 xH4KDkyaHq+uZhHXyTZO3hs09Tl9Qru1ikW6xW/rrYUjrQYjeStZ5Km734vD cFPQNhXbMhaJWcre3gOHbHMWKcxnkfo8N99RmOOp/JXCPBbh0OhewVmI+fKZ +dwb11nk5KFam9Xwo6Pzj2XmsIhFVUjPQThHrKLFI5NFxCx4hzvhDjfOX3lJ LLJv0DduCF78ZVV4cCKLXAwcUGYroqk18uYXrRNYhDO/8ZQIfO5d6Fvuyyzy fTL67364Osx/w9YYFilLXcLdDqeHj0ivDGERrU8rRVuKMT9UtL07cYJFWqw9 l/TAUeU9EbXHWcThwyueMZh94E7CkmMscr797MiyEvR/qhLHcw6zSEPL93pL uOJ51scLB1jEtL7Coxv+nNbRZmPCIl90FzqNwFVvNRRsjfC+Tw7bcJbSVHeU u8e+3SyS8Eh45xo4yZLvwJadOO+7gaJH4XNrHK6WabKIfZnhs1/wkUtPTAwV WGR0fS7hKEO/M6Bs+1EO6ymeVbEELvov0cRxLRNv5RmqcPSVxdq2kiwymLP8 pA98Vt3jznchPD+lR5S9HPX7peJ3xTkswiVELRWAX1p9npCdjfUkJs5bDft3 v28X+mdOai7vGtWG6yfKVraOm5Pp6NJnYbDW/YoTt/vMSfA5v5P8NzFvzX40 OeuFOQkvDdYTg5NO61gdeWZOoj9GCSvCPQmNTY+emJMk9fQHRnCTa2KBITEn hQP3+GJgkxiZooJic1K2/OmnDPhHUvSWlAJzUqXzsrwYfiQ3Md8n15w8uNJp 8RJ2tDn7miPDnLSYzcpZUIF53t22eXOUOWkL5PYWgaOmOA4khZqTD0WLDOTh 8nDOuM9nzUkvt9gvQziwsuCuio85mbqjqREFm1POVi8dzImE5NlW3krUo4F4 Jw11cyJtEpEnXMn8vOBsR14lc7Iu4OJpWThKOGmgWtacqLVlie+CT24yqisV MSc7o2qdw+Gv3z9MTbObkz23nmsmwyMPz1aVTZkR096WJflw+3iSITViRqw0 e27Vw6Z6PY/bv5gR11HOuTxVNDVXvL3s1yMzckp8QbsgXPxp+JDGbTPiu+e/ QmnYXzLukXmZGQnOkzLVg9ezmoc7M8xIkpVuxnl4+RtVNWkvM5IevsctAeaT 8GtMOG5Gsqpo7VxY7Msh6wcHzUgh/+H+J7CseKuRmoEZuf84VI2rGv37avtv tLAZ4cgo71oGe34dr6+Yb0a0vT5GyMAr/wlcTZ42JfVrN3wygH8ayszp+mBK eOfYhFvDYu9Pe6g0mhLDD2EbXOBBrrmxY7dNSVN0Z+hF+Krcmp0ZCaZE4Mg8 5WvM31O7K0+eMyXm21U+VMJV7LdN4l1MSdtIuGI7XKuUtylSx5R0Wai2r6pB vXq/unWk14RIKB84pwRbi2pPPWs0IQ7zI+V3wFFx1dN+ZSbk+72uIEe4LrfZ WtbLhMgmzl/nDb/d2RryZ68JOe6q9jYcVhBZUrxL3YQMS0TJFsHROzu05v0y JsrTVW8I3C6hFKn63JicbP0c0ARbmr6rc8g2Jn9C1VtG4HQFpU8Su43J5oN2 /ly3aOrYvI/zTUSNid/mC9KCMG/tNcf7g0Zk9o/u05th5VKV06xAI6L1dMEa QzhYxdazR9uIBF/Z2GQNFz87aHqGy4g89bb3dYFLpCZK7z3cQ3hMoyWD4OMN sXtlfPaQXXK3Xl6EjQO3u6nJ7SFRnD3e1+CW2hMHEkp3E/7qTS/q4LzPO+4I qBsS01gHr3bYpvU8q/6gAbnsFCM+AKtmX3yxzmcXeat1+/k03PY6sjHQdydZ vvLrqYW3aeqT9ui4t50+sRxbJCYGPxmq2S4kr0fSXm5uUILvLzcRDW7VIZ3X D53cAQeqCp2rYWkTsaBYURZ8MpK1Xz1Xi9hZ3ql3hKe6ssaD72mSaxt63b3h UdOv8SdjKNLLt1gkAhbWXxGjLbyZyPRuqUuFBcwnrRsoFXL0vqNbEbxmVD3y 4411pDApbsV9uLjK9JmuujAZcrv7pAkOqBV7ss5hLqVo8M2lG85Q53ENNZSn 3CUFhEdh0QNl08kvNKiKf1sfc91BfIe6/Oi+qk+Nvz18QhC2251te6TelLJv iRURvfP/n3en/gdiMjiD "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{96., 0}, PlotRange->{{95.81867593448868, 98.96006858807849}, {-100, 100}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], TraditionalForm]], "Output", CellChangeTimes->{{3.505144883263631*^9, 3.505144904657302*^9}, 3.505144936255804*^9, 3.505145018670877*^9, 3.505145062429503*^9, 3.5051454820960083`*^9, 3.50514553619175*^9, 3.505145593148397*^9, 3.505145629061763*^9, 3.5051459868557463`*^9, 3.505146018687099*^9, { 3.505146052894805*^9, 3.505146077482888*^9}, {3.505146140344985*^9, 3.505146146837255*^9}, 3.5051461886693707`*^9, {3.5051462299108343`*^9, 3.505146258587367*^9}, 3.505146424856474*^9, 3.505146613622018*^9, { 3.505146859629365*^9, 3.505146870519059*^9}, 3.5051470614089003`*^9, 3.505147154479987*^9, 3.505147632542799*^9, {3.505150143943891*^9, 3.5051501693190317`*^9}, {3.505150506019958*^9, 3.505150558309449*^9}, 3.505150612923181*^9, {3.5052140689896183`*^9, 3.505214086487768*^9}, 3.505214382458597*^9, {3.505214513415326*^9, 3.505214549329111*^9}, 3.50521458751641*^9, 3.505214825778893*^9, 3.50521495845886*^9, { 3.505214994338296*^9, 3.505215050775866*^9}, {3.5052151183196363`*^9, 3.5052151382243433`*^9}, {3.505215224738511*^9, 3.5052152405117807`*^9}, 3.505217861335601*^9}, FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"After \"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" iterations, c \[TildeTilde] \"\>", "\[InvisibleSpace]", "98.95006314630332`", "\[InvisibleSpace]", "\<\" with an error bound of \[TildeTilde] \"\>", "\[InvisibleSpace]", "1.4979327431774436`*^-6"}], SequenceForm[ "After ", 22, " iterations, c \[TildeTilde] ", 98.95006314630332, " with an error bound of \[TildeTilde] ", 1.4979327431774436`*^-6], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.505144883289774*^9, 3.505144904682049*^9}, 3.505144936280546*^9, 3.50514501869732*^9, 3.505145062540145*^9, 3.505145482122998*^9, 3.505145536219236*^9, 3.5051455931754704`*^9, 3.505145629088848*^9, 3.505145986880253*^9, 3.505146018712002*^9, { 3.5051460529190617`*^9, 3.505146077511862*^9}, {3.505146140368129*^9, 3.505146146859311*^9}, 3.505146188694784*^9, {3.505146229925788*^9, 3.505146258613059*^9}, 3.505146424881016*^9, 3.5051466136506767`*^9, { 3.505146859656726*^9, 3.5051468705458097`*^9}, 3.5051470614149437`*^9, 3.505147154505801*^9, 3.505147632568816*^9, {3.50515014397056*^9, 3.50515016934485*^9}, {3.505150506045978*^9, 3.5051505583350267`*^9}, 3.505150612952878*^9, {3.505214069395822*^9, 3.505214086531722*^9}, 3.505214382519701*^9, {3.505214513458747*^9, 3.5052145493548613`*^9}, 3.5052145875432777`*^9, 3.5052148258229637`*^9, 3.505214958518428*^9, { 3.505214994365511*^9, 3.5052150508373833`*^9}, {3.505215118380143*^9, 3.50521513828587*^9}, {3.505215224799219*^9, 3.5052152405725393`*^9}, 3.505217861352935*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At this value of c, the function value f(c) \[TildeTilde] \ \"\>", "\[InvisibleSpace]", "0.003152559834489921`", "\[InvisibleSpace]", "\<\" (which eventually should be near zero \ :-).\"\>"}], SequenceForm[ "At this value of c, the function value f(c) \[TildeTilde] ", 0.003152559834489921, " (which eventually should be near zero :-)."], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.505144883289774*^9, 3.505144904682049*^9}, 3.505144936280546*^9, 3.50514501869732*^9, 3.505145062540145*^9, 3.505145482122998*^9, 3.505145536219236*^9, 3.5051455931754704`*^9, 3.505145629088848*^9, 3.505145986880253*^9, 3.505146018712002*^9, { 3.5051460529190617`*^9, 3.505146077511862*^9}, {3.505146140368129*^9, 3.505146146859311*^9}, 3.505146188694784*^9, {3.505146229925788*^9, 3.505146258613059*^9}, 3.505146424881016*^9, 3.5051466136506767`*^9, { 3.505146859656726*^9, 3.5051468705458097`*^9}, 3.5051470614149437`*^9, 3.505147154505801*^9, 3.505147632568816*^9, {3.50515014397056*^9, 3.50515016934485*^9}, {3.505150506045978*^9, 3.5051505583350267`*^9}, 3.505150612952878*^9, {3.505214069395822*^9, 3.505214086531722*^9}, 3.505214382519701*^9, {3.505214513458747*^9, 3.5052145493548613`*^9}, 3.5052145875432777`*^9, 3.5052148258229637`*^9, 3.505214958518428*^9, { 3.505214994365511*^9, 3.5052150508373833`*^9}, {3.505215118380143*^9, 3.50521513828587*^9}, {3.505215224799219*^9, 3.5052152405725393`*^9}, 3.505217861366892*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{{3.505144883289774*^9, 3.505144904682049*^9}, 3.505144936280546*^9, 3.50514501869732*^9, 3.505145062540145*^9, 3.505145482122998*^9, 3.505145536219236*^9, 3.5051455931754704`*^9, 3.505145629088848*^9, 3.505145986880253*^9, 3.505146018712002*^9, { 3.5051460529190617`*^9, 3.505146077511862*^9}, {3.505146140368129*^9, 3.505146146859311*^9}, 3.505146188694784*^9, {3.505146229925788*^9, 3.505146258613059*^9}, 3.505146424881016*^9, 3.5051466136506767`*^9, { 3.505146859656726*^9, 3.5051468705458097`*^9}, 3.5051470614149437`*^9, 3.505147154505801*^9, 3.505147632568816*^9, {3.50515014397056*^9, 3.50515016934485*^9}, {3.505150506045978*^9, 3.5051505583350267`*^9}, 3.505150612952878*^9, {3.505214069395822*^9, 3.505214086531722*^9}, 3.505214382519701*^9, {3.505214513458747*^9, 3.5052145493548613`*^9}, 3.5052145875432777`*^9, 3.5052148258229637`*^9, 3.505214958518428*^9, { 3.505214994365511*^9, 3.5052150508373833`*^9}, {3.505215118380143*^9, 3.50521513828587*^9}, {3.505215224799219*^9, 3.5052152405725393`*^9}, 3.50521786138291*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{{3.505144883289774*^9, 3.505144904682049*^9}, 3.505144936280546*^9, 3.50514501869732*^9, 3.505145062540145*^9, 3.505145482122998*^9, 3.505145536219236*^9, 3.5051455931754704`*^9, 3.505145629088848*^9, 3.505145986880253*^9, 3.505146018712002*^9, { 3.5051460529190617`*^9, 3.505146077511862*^9}, {3.505146140368129*^9, 3.505146146859311*^9}, 3.505146188694784*^9, {3.505146229925788*^9, 3.505146258613059*^9}, 3.505146424881016*^9, 3.5051466136506767`*^9, { 3.505146859656726*^9, 3.5051468705458097`*^9}, 3.5051470614149437`*^9, 3.505147154505801*^9, 3.505147632568816*^9, {3.50515014397056*^9, 3.50515016934485*^9}, {3.505150506045978*^9, 3.5051505583350267`*^9}, 3.505150612952878*^9, {3.505214069395822*^9, 3.505214086531722*^9}, 3.505214382519701*^9, {3.505214513458747*^9, 3.5052145493548613`*^9}, 3.5052145875432777`*^9, 3.5052148258229637`*^9, 3.505214958518428*^9, { 3.505214994365511*^9, 3.5052150508373833`*^9}, {3.505215118380143*^9, 3.50521513828587*^9}, {3.505215224799219*^9, 3.5052152405725393`*^9}, 3.505217861400276*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.505144883289774*^9, 3.505144904682049*^9}, 3.505144936280546*^9, 3.50514501869732*^9, 3.505145062540145*^9, 3.505145482122998*^9, 3.505145536219236*^9, 3.5051455931754704`*^9, 3.505145629088848*^9, 3.505145986880253*^9, 3.505146018712002*^9, { 3.5051460529190617`*^9, 3.505146077511862*^9}, {3.505146140368129*^9, 3.505146146859311*^9}, 3.505146188694784*^9, {3.505146229925788*^9, 3.505146258613059*^9}, 3.505146424881016*^9, 3.5051466136506767`*^9, { 3.505146859656726*^9, 3.5051468705458097`*^9}, 3.5051470614149437`*^9, 3.505147154505801*^9, 3.505147632568816*^9, {3.50515014397056*^9, 3.50515016934485*^9}, {3.505150506045978*^9, 3.5051505583350267`*^9}, 3.505150612952878*^9, {3.505214069395822*^9, 3.505214086531722*^9}, 3.505214382519701*^9, {3.505214513458747*^9, 3.5052145493548613`*^9}, 3.5052145875432777`*^9, 3.5052148258229637`*^9, 3.505214958518428*^9, { 3.505214994365511*^9, 3.5052150508373833`*^9}, {3.505215118380143*^9, 3.50521513828587*^9}, {3.505215224799219*^9, 3.5052152405725393`*^9}, 3.505217861417142*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.505144883289774*^9, 3.505144904682049*^9}, 3.505144936280546*^9, 3.50514501869732*^9, 3.505145062540145*^9, 3.505145482122998*^9, 3.505145536219236*^9, 3.5051455931754704`*^9, 3.505145629088848*^9, 3.505145986880253*^9, 3.505146018712002*^9, { 3.5051460529190617`*^9, 3.505146077511862*^9}, {3.505146140368129*^9, 3.505146146859311*^9}, 3.505146188694784*^9, {3.505146229925788*^9, 3.505146258613059*^9}, 3.505146424881016*^9, 3.5051466136506767`*^9, { 3.505146859656726*^9, 3.5051468705458097`*^9}, 3.5051470614149437`*^9, 3.505147154505801*^9, 3.505147632568816*^9, {3.50515014397056*^9, 3.50515016934485*^9}, {3.505150506045978*^9, 3.5051505583350267`*^9}, 3.505150612952878*^9, {3.505214069395822*^9, 3.505214086531722*^9}, 3.505214382519701*^9, {3.505214513458747*^9, 3.5052145493548613`*^9}, 3.5052145875432777`*^9, 3.5052148258229637`*^9, 3.505214958518428*^9, { 3.505214994365511*^9, 3.5052150508373833`*^9}, {3.505215118380143*^9, 3.50521513828587*^9}, {3.505215224799219*^9, 3.5052152405725393`*^9}, 3.505217861433942*^9}, FontColor->GrayLevel[0]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Bisection", " ", "Method", " ", "with", " ", "addtional", " ", "Interval", " ", "Validity", " ", "Check"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Exercise", " ", "#2", RowBox[{"(", "b", ")"}], " ", "from", " ", "section", " ", "3.1"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"n", ",", "a", ",", "b", ",", "c", ",", "f"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], "-", "x"}]}], ";"}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"a", "=", "98"}], ";"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ RowBox[{"b", "=", "99"}], ";"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], RowBox[{"(*", RowBox[{"Note", " ", "to", " ", RowBox[{"User", ":", " ", "\[IndentingNewLine]", RowBox[{ "Be", " ", "sure", " ", "to", " ", "veriy", " ", "that", " ", "f", " ", "is", " ", "continuos", " ", RowBox[{"on", " ", "[", RowBox[{"a", ",", "b"}], "]"}], " ", "and", " ", "that", " ", "f", " ", "changes", " ", "sign", " ", RowBox[{ RowBox[{"on", " ", "[", RowBox[{"a", ",", "b"}], "]"}], ".", "\[IndentingNewLine]", "Sign"}], " ", "change", " ", "is", " ", "tested", " ", "in", " ", "the", " ", "While", " ", "loop", " ", "below"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "100"}], ",", "100"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nMax", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tol", "=", ".0001"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}], "/", "2"}], "\[GreaterEqual]", " ", "tol"}], "&&", " ", RowBox[{"n", "<", "nMax"}]}], " ", ",", RowBox[{"(*", RowBox[{"Addtional", " ", "Interval", " ", "Validity", " ", "Check"}], "*)"}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "b", "]"}], "*", RowBox[{"f", "[", "a", "]"}]}], ">", " ", "0"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"-", "1"}]}], ";", RowBox[{ "Print", "[", "\"\\"", "]"}]}], ",", RowBox[{"Break", "[", "]"}]}], "}"}]}], "]"}], FontColor->RGBColor[0, 1, 0]], StyleBox[";", FontColor->RGBColor[0, 1, 0]], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "c", "]"}]}], "<", " ", "0"}], ",", " ", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2."}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< iterations, c \[TildeTilde] \>\"", ",", "c", ",", " ", "\"\< with an error bound of \[TildeTilde] \>\"", ",", " ", RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"f", "[", "c", "]"}]}], " ", "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[IndentingNewLine]", "\[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.505145094709815*^9, 3.505145168180523*^9}, { 3.505145211004656*^9, 3.5051453544266644`*^9}, {3.50514543603299*^9, 3.505145462464265*^9}, {3.505146544552429*^9, 3.5051465794204607`*^9}, 3.5051466303157377`*^9, {3.505146729744671*^9, 3.505146742501217*^9}, { 3.50514690133409*^9, 3.505146946842022*^9}, {3.505146985978025*^9, 3.5051470110871363`*^9}, {3.5051470767088413`*^9, 3.50514710918926*^9}, { 3.505147557218937*^9, 3.505147587306131*^9}, {3.505147757585783*^9, 3.505147783545761*^9}, {3.505214618351749*^9, 3.505214642045445*^9}, { 3.505214716638888*^9, 3.505214719043273*^9}, 3.505216666431698*^9, 3.5052170157801867`*^9, {3.505217048100671*^9, 3.505217051516341*^9}, { 3.505217113308278*^9, 3.5052171585616407`*^9}, 3.505217217350678*^9, { 3.505217255273417*^9, 3.505217281918247*^9}, {3.5052178510546303`*^9, 3.505217851725122*^9}}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1gk0VdsfB3BJEkWDSJQhDUJkyKVHJw3m6br3nE1RxoqeSqIBDSTkShTi JYpnylwqUz9RScqQivJQIaUoZCr8f/5nrbPO+qz927/93Xutc9aRdz7EduPn 4+PrxXvmWfllKR/fGUJJBU7Ea9sSEGzzE5yDbqg6o6CJNn/ZOl8YTWtoZauj WwqvS4mj+27Ilyij+0+t1lyHluUsfCmPlhHVdrdGjybOe7kAfVyDU5eM9qt4 rtLNJqB+Kjp+61lCDTvZkMvo9cNLDZLOEappPM6s3oaAQVRfzacgQomyjEbn oaM3T/xQOE8oF5FcPZY1gSMvxdYEhBDq9NNqya1WBDyC/Si4QCiBgaT4nZaY R75n38owQqU+DL4va0Gg8CVPxTecUD6PnGK6zAhEJV14U3yRUL151U/STAmM c0N5i3mEehsVk73BhIC/+nslJpJQC+5bBBYaYZ7l+1yuXiJUs3i4juxOAhf7 xjP7owjla2BPtm8nMNjR/lo9mlDrmiJmuxgS6CqtFY2MIZSp+N7zyhQBifSB rq4ruL+mK/7P9Qk433VPVowllPP5oxbOmwnoZnftPx1HKK9EV69QFp5H9R2J qnhChQ8tppO1CfxbfbFRPoFQnqJ5xaoaOL85UelkIqFW93dV+WwgwJo75V76 D6GuZFbJpq0ncE1+X4FkEuYb8WtYtoaA+B6FD7tvEEptTWvRfnkC9dkSuYnJ hBKE1R2MDI53Lgr9lUIoEzd70y0SBHx09hixbhEqI+uzwxcxAo6+RUtiUwn1 tL5hUleIQGg1FfA9jVBzNi/NKp5moE5brk41nVAS0pXKlSMMJEYKrgvLINQp p6Kce30MBAtvOfAik1BDH/3uf+9gIOdqvpFINqHC7H7fy2tiwElISdP1NqEK ByrT+B4xoJY0NPvfHMzX8ECkLI8BxS4Pv2z0EtFaWXf08vUfv+ajPS/3/xJD CxQ3NJaiza57f3bOZeDdi5wbjeiY6J0tc3IYCJnct3kSnfGiv3hLFgNtu9u8 ObnY//6KoLOpDIRKP/7An0cox5yzb1TiGRDOahybi95W9ku8Lo6BCFa72AJ0 YPvN+Z7oS9xRfUn0V/1TazJiGYi9pJSgjDYWb/y98ioDabMj2Ry0ywHRL1OX GXjUR1elofntdWLPX2Tgd2lvqnE+oaI+yXxKCGCgZIPHTQv00JfDcuvQx1P6 brDRIwICAnf9GRgJ6U/YjW5/Yl724hQDgzbDUYfRwcoiPRMnGOj9PO0fj5ZI 2lK5zZeB5iWS3F60zK6JixFeDOR67pgTWoB5lDeUdjgwIDIx4cVDe/4TM7UT vT80vyUaLWcZUJSzmwGFNOnb19G19vVeJ3bh/tp/sovQHv+ULRW2YyDQJim5 Hf1c9ZC3GIcBC53RzdqFhNJbSwenmjCQ9fh2mh6aK6HrNGbMgCDHWYxCJ8G2 K2ZoOPzioym6/uTQ2MBOBrSyboXtRYfrm6Sob2dAZoX124voC9caLkYZMPCN P9P7I3pA+L1ZlQYDb1qHTn9GjwULj85HP8w34H1Dn3Od9YO7kYFox+b0EfS+ uVuedqsxoFMy3SZcRCh31739f1QYOHeENtJE77Vq1hRay8CyztkywejgV6IN 4csZ4L9nqRSGvjq7WapMioE+3rVNkeg3HtK8b8sYqNisZhOPPuY7r89UkgGX OPuQ2+i6sAd7JpfgeVsW/GhGl7lKT+ksYGB7uePj1XcIVbEokn9iioa6vP8M lNENitvHxidpsL25+746evnSoZKxPzQ4X7DP3oxu25qXNDhBwxkb+rLNTH1t 9s23IzSUd1s4BKAbH8Tfcu2nYZOo/q9mtItrdMyJNhoq+Mq83qFlkmoSLd/T sGNIr7cDbTyUIa/wjgZOC+v9V3RQwrOE6rc0eN/UquS7i/m/RA2MNNGQu0mF p4Ke35NzRPQZDWv3SK8ORq9n6nk/i2j4pi12Pgy9KuTS+dhCGvLnz+6ORB/6 XntDt4AGvZKvqdfQpep7VU7m0mC+tEQxDy1IHWR1ZdBw+DlRfIduK/wZTq7T cF8ndpV6MaGsnntI3gqmwV80PEgbTbsNSggE0bC1O+CTHlrPnU53PktDbbTb rR3oK9+bXZcF0tD2XWvVLvTJI7/uuvnRwJf6SiEEPW0qFn3uAA0mCxcptKHt mH6beDMaEtQSVn9A/938MaDShIavlquUetCJliubPxvREMHTVv+BrkrS7Vbe TkODsL2BwD1C9adsao/6iwYy55a9Cvpf6VuCNSo07JvQivFHO6Td0LorjPuR qog9i37w7rnlMSEahHSNEkLQQdszrmwUpCHLzy4lCt0C5v5Js2joHw7IS0Xb UP+lGI9xwXfgyfM6dFZa65zXXVw430UEVtzH91UoYp5/CRd8ZCV8FNBqoc6f vO5xwdX+1ae16A1a5Ud23eGCYYNFlQZa4lW9g3wuF6ZKDc8Zo7015Q0cU7B/ jAqfD9qX188JC+GC28svh06gg0aMEhYEcYEzL70jEF02zacZfpoLGqflH4ah G/7LGPM8zoUBD4nAG+iKTO7gywNc2G/I96cW/cTFfHTclAtMQLlnA3qWhX3I yE4u7Lx/8v1rdEzmofgvhlxQ3PCrpBNt2MipKNTjwgeprydG0OJ0uu4LJS7Y /3w1Kv+AUB0GQgOzBLlgnpw+dBydEOC7hHWXAzWrJgQD0U1h1buW5HNgW7r5 8iB0RNhbuw9ZHNDL/Unx0FceF6ZzkjmwrmxzZAra2akoOTqcAwIt9etq0TH7 Rz+xdnPgzC6Fv+rR1nN0XinSHPjd7mPVjA7KZ+dNW3FgsFvKtx09TD0RObuN A51DLlWD6Kkw1XlZShwoExtzkC4hVOfIUK35oC2wYkyPyKGHW66+m9VnC0US 14NXo4393Y4nf7KFrBWG2WrokYGG0vhmW4hXjhjbhm4KvL/7wF1b8DGSizmI FmJNe8h728KPWu9/j6AfTSYeYx2wBU/Lxw980ZUFm1Q37rUFZ65H5xn0N8cq 9ccWtmDtckf1KlrqmJaP21pbUD1tXFOONqm77tLzig09PWKPHqFVgrqOTNaw IcnybelT9GE377q+cjYsXOme14jmifyoNU1nw2BZUGw3mi+5bNWoHxuyFM2i vqI/2oiN5HiywSVicfgAurngxUqtPWxo3pUSMI6+NLK+PXMHG4onKlwXlBIq QFv367KFbPByDnFcjD4RoHBmHT8b1tZaEEn0ueBYg8khG4i/1mYmj3baqmv2 440NnGRNaGijayVO72m4ZgMGvtqzHNAqBeEdXYtsYOS/PxNOaKHAsq1+09aQ t6N62B1dk+Itlv/NGuSW2vYeRhvcmR8q/MQa+O8crg9Gg90cC3EfayiRZj0L Qx+PpuZFOFrD0aDpR5HoKXvr4Ghja+hiRxbHo3t4Isf1pa3hyc/s67fRkpGV T/SPWUGg3dG4AvSybFMpQ0Mr0KnUu1yMPnZgk5mCqBVkRD0Lhpn5uic2Wt60 hHC1z57N6OeteoxcqQUYxuW6taJH59vcbQqwgN9Tx/a0o22yc21nb7GAgy8F bHvRn3pfC6SVmYPl3wp6f9Cdbvmv19wyg7QfK5JnleH3bSxFJMbGDP4clRKc i642CTO4MmkKmScXNi1Cr2IranRZmALflAhLEj1SPtTy66cJ0GfnJsmgecHz +RViTEAgdOrAWrRjxEFl3TpjsBeZqFdBT1cYtL52MYaCyF/aGugtxaGTA6NG 4Hj12yx9tMZGN4UP4kbw4Oa7a2y0ZOCP9kbpHbBwzZtpBu1RN1gTcnk7uGc2 ujmgdzio+bfN2g7i+TUb96PLvAVbZBoNwUOzOu7vmfx8T69bqRlCZfHDSe+Z 9R6HDheEbAWv8uJnAei2Pf76urIUPKYK1YLQy8KErpZVGIBMdc7VULQxZ98p J1V9eFab6hSDHj7w+++UBl2Qs0x+Go8WuJJyz5GfBb6NiapJM/Ud31cUyWwC xZbo8Qx0i/aox63ZGnBqV+SeXHSy2/7FE3Fq0NQe9rgITXWqPr/Tux7WOZ9X foCucZRp7xlaDae7z1yuQJ9JjVhOF8nBm/3+o1Xozk3RG4QoCVD55ufwbGb8 hJXGXzUC8G7QS6l5pj930Jp3UoxS9/W41IpWXzCWuWzDSurCuNuvdnT+jqE1 va/XUO3+Tru6Zuqv6cUcWq9GafE5VH5BN8Q628ku0aIuBpG1AzP5Q6Nae/tZ 1EdBDm8Yvf9oQGmUlgHFCrcaGkcfrJx7evn4VurSAjO7afRU+SYhU5kdVE/U zocC5ZhX2/lgC8+Y+kvccLUw2jVzb0KznTkVE6d/UQy9Rdk1yMfImvq6XPen OJr/g6Y27wabopK0mOXoKZH6ATeKS8XJq5fLomO+dbcuYeF/1fraP3Jovv9f dtT/ACt9GTE= "]], LineBox[{{98.95992581589412, 100.}, {98.95992763932242, -100.}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{98., 0}, PlotRange->{{98, 99}, {-100, 100}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}], TraditionalForm]], "Output", CellChangeTimes->{{3.505146545458232*^9, 3.505146549812149*^9}, 3.5051465803198023`*^9, 3.505146743476152*^9, 3.505146948418063*^9, { 3.505147064604939*^9, 3.505147123250309*^9}, {3.50514776420188*^9, 3.505147784241156*^9}, 3.505150250194207*^9, 3.505150616084313*^9, 3.505217067671528*^9, 3.505217160841427*^9}, FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"The interval [a,b] is invalid. Apparent IVT Fail.\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.50514654548497*^9, 3.505146549833243*^9}, 3.5051465803443213`*^9, 3.5051467435004377`*^9, 3.505146948442505*^9, { 3.5051470646289597`*^9, 3.5051471232739067`*^9}, {3.5051477642278767`*^9, 3.505147784267002*^9}, 3.505150250220257*^9, 3.505150616111052*^9, 3.505217067697687*^9, 3.505217160869482*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{{3.50514654548497*^9, 3.505146549833243*^9}, 3.5051465803443213`*^9, 3.5051467435004377`*^9, 3.505146948442505*^9, { 3.5051470646289597`*^9, 3.5051471232739067`*^9}, {3.5051477642278767`*^9, 3.505147784267002*^9}, 3.505150250220257*^9, 3.505150616111052*^9, 3.505217067697687*^9, 3.505217160899651*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{{3.50514654548497*^9, 3.505146549833243*^9}, 3.5051465803443213`*^9, 3.5051467435004377`*^9, 3.505146948442505*^9, { 3.5051470646289597`*^9, 3.5051471232739067`*^9}, {3.5051477642278767`*^9, 3.505147784267002*^9}, 3.505150250220257*^9, 3.505150616111052*^9, 3.505217067697687*^9, 3.505217160915677*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.50514654548497*^9, 3.505146549833243*^9}, 3.5051465803443213`*^9, 3.5051467435004377`*^9, 3.505146948442505*^9, { 3.5051470646289597`*^9, 3.5051471232739067`*^9}, {3.5051477642278767`*^9, 3.505147784267002*^9}, 3.505150250220257*^9, 3.505150616111052*^9, 3.505217067697687*^9, 3.5052171609317503`*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.50514654548497*^9, 3.505146549833243*^9}, 3.5051465803443213`*^9, 3.5051467435004377`*^9, 3.505146948442505*^9, { 3.5051470646289597`*^9, 3.5051471232739067`*^9}, {3.5051477642278767`*^9, 3.505147784267002*^9}, 3.505150250220257*^9, 3.505150616111052*^9, 3.505217067697687*^9, 3.505217160948807*^9}, FontColor->GrayLevel[0]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Bisection", " ", "Method", " ", "with", " ", "addtional", " ", "Interval", " ", "Validity", " ", "Check"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Exercise", " ", "#11", " ", "from", " ", "section", " ", "3.1"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"n", ",", "a", ",", "b", ",", "c", ",", "f"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"1", "-", "x", "+", RowBox[{"Sin", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", RowBox[{"Note", " ", "to", " ", RowBox[{"User", ":", " ", "\[IndentingNewLine]", RowBox[{ "Be", " ", "sure", " ", "to", " ", "veriy", " ", "that", " ", "f", " ", "is", " ", "continuos", " ", RowBox[{"on", " ", "[", RowBox[{"a", ",", "b"}], "]"}], " ", "and", " ", "that", " ", "f", " ", "changes", " ", "sign", " ", RowBox[{ RowBox[{"on", " ", "[", RowBox[{"a", ",", "b"}], "]"}], ".", "\[IndentingNewLine]", "Sign"}], " ", "change", " ", "is", " ", "tested", " ", "in", " ", "the", " ", "While", " ", "loop", " ", "below"}]}]}], "*)"}], FontColor->RGBColor[0, 0, 1]], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"a", "=", "0"}], ";"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ RowBox[{"b", "=", "Pi"}], ";"}], FontColor->RGBColor[1, 0, 0]], StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0.5, 0, 0.5]], RowBox[{ RowBox[{"tol", "=", RowBox[{"5", "*", RowBox[{"10", "^", RowBox[{"-", "8"}]}]}]}], ";"}], "\[IndentingNewLine]", StyleBox["\[IndentingNewLine]", FontColor->RGBColor[0, 0, 1]], RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nMax", "=", "50"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}], "/", "2"}], "\[GreaterEqual]", " ", "tol"}], "&&", " ", RowBox[{"n", "<", "nMax"}]}], " ", ",", RowBox[{"(*", RowBox[{"Addtional", " ", "Interval", " ", "Validity", " ", "Check"}], "*)"}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "b", "]"}], "*", RowBox[{"f", "[", "a", "]"}]}], ">", " ", "0"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"-", "1"}]}], ";", RowBox[{ "Print", "[", "\"\\"", "]"}]}], ",", RowBox[{"Break", "[", "]"}]}], "}"}]}], "]"}], FontColor->RGBColor[0, 1, 0]], StyleBox[";", FontColor->RGBColor[0, 1, 0]], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "c", "]"}]}], "<", " ", "0"}], ",", " ", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2."}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"n", "+", "1"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"n", ">", "0"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "n", ",", "\"\< iterations, c \[TildeTilde] \>\"", ",", "c", ",", " ", "\"\< with an error bound of \[TildeTilde] \>\"", ",", " ", RowBox[{"Abs", "[", RowBox[{"b", "-", "a"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"f", "[", "c", "]"}]}], " ", "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\<*******************************\>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\< \>\"", " ", "]"}], "\[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.505145094709815*^9, 3.505145168180523*^9}, { 3.505145211004656*^9, 3.5051453544266644`*^9}, {3.50514543603299*^9, 3.505145462464265*^9}, {3.505146544552429*^9, 3.5051465794204607`*^9}, 3.5051466303157377`*^9, {3.505146729744671*^9, 3.505146742501217*^9}, { 3.50514690133409*^9, 3.505146946842022*^9}, {3.505146985978025*^9, 3.5051470110871363`*^9}, {3.5051470767088413`*^9, 3.50514710918926*^9}, { 3.505147557218937*^9, 3.505147587306131*^9}, {3.505147757585783*^9, 3.505147783545761*^9}, {3.505214618351749*^9, 3.505214642045445*^9}, { 3.505214716638888*^9, 3.505214719043273*^9}, {3.5052165763330717`*^9, 3.5052166631698503`*^9}, {3.505216716514298*^9, 3.505216732746943*^9}, { 3.505216866371969*^9, 3.505216940069778*^9}, {3.505217181336712*^9, 3.505217197603829*^9}, {3.505217385102762*^9, 3.505217544619228*^9}, { 3.505217577453837*^9, 3.505217774758368*^9}, {3.505217836088814*^9, 3.505217836796817*^9}, {3.505217907533209*^9, 3.5052180995045757`*^9}, 3.5052181616818*^9, 3.505218193244563*^9, 3.505226421761077*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"Error condition should be satisfied when n > \"\>", "\[InvisibleSpace]", "25.904992793683853`"}], SequenceForm[ "Error condition should be satisfied when n > ", 25.904992793683853`], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.505216602060459*^9, 3.505216613183929*^9}, 3.505216643478408*^9, 3.505216733587243*^9, {3.5052169332580853`*^9, 3.505216940769762*^9}, {3.505217182427458*^9, 3.505217208237803*^9}, 3.505217746317912*^9, 3.5052177776472883`*^9, 3.505217842281155*^9, 3.505218164254793*^9, 3.505218196638287*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1nk4VG8bB/ARMYOKLCWVSiQqLUoi90mLpRIpKmt+FLKTyhKyptSQbNlS IbKMPUszDSNJNdkaW8SQrTlIsnufec91netcn//Oee7v833OVmuX87YrCATC P3Rzn7xUwS/9B900Cf+/xmGuQNmmPdoS4kTMlpeXcRgQt5spjXaBjKe9c1w/ lKpflVfpAVI5S3+5zlAwSyXk3YJp4VIO1zTV8b1GaT6AfXrA5rrjVDD9VbQ/ 7J7m+871nKKwoi89ELalZDC4Dtvf5v6qMgjozX/zuRY/klb5pTgEpjJvPeX6 +TEHvpncMBhUotzkeo+uytmtmfdBxm2HAdeVBktP9dIegPd9y+1c61yq/+GR EAmHwn5MLCG3WkbvSI5+DLO+O8u5phzYc7ifQYZ2P4YX17dUn3TdokfB9WTV 3Vxrqs8ECFOjoQDn61xE5gNzueeVT0D3fqE/1w1a9I8Hy2Pggj9jA9dRp3Y4 NxQ/hfBf9JwF5Et6D9daUmJBk6W8n+vN+hOlf3LjwMkuKncemW1obBqeHQ+V +Y6buM65WLm8MTMB7tWdCpxDdr+85SXlRSK0Ml6yZpEPm4fonEp7BpEfhGS5 XrIaGetISgK9QYLVDDLD5lyUS0Iy3D1KevwP+byjVEd8dCpcFLB7/xdZ+DBQ Y7XT4HBJfc0U8vhbN9GfjDSQWWtY+ge5tLqt5Cb9ObAu/7afQE4AEpGGpUNK mJDiOLLve/UrgtR0sB6xZXGQjzPSllIqX4BXb//iKLK8drPBsNpLuEoV9RxB Fvy48sWB8pfwwIHcNoTMbHTQri9+BV8+xlgMIBfpJyesPZAB4s3bg/qRY5lf R80oGUAy2hD9E9m8RYU8kZsJcS56Tt3ImPH1PvVdWTB44/HhTuTtrASV0Ows MEnRH2Mhj3QusTZkvgayp4FQC/Jn831KtnLZ4B+UfPMbckHPf375L7JhLOVO 3RfuvPvrt55IywGLvj9SH5Gv2M57PNr8BkYCk6TruPP/tbuOlfQGxDcN89Rw 5z8a7eCUkAs3tIO8q7jznjQrio3OB2aL/uo85EiJRA3aqgI4eQBreo3cRAmR OXi+AB5n+bi9QjYdMRvY3FkA2aGWkIScFqpT/0SGAhVnvzrGcfOwTSWHaEOB fUPrPKKRnU2F3CbHKKDrThcI567Xv2mj6/sK4XHbaMw95JknfYe6bhZCwj/f GV/kwMa3C4ylQsi+Y4u5IccctQtPECkGYSc1uglye7vRjdUXi0EtOmLCgJtH L9APSiiGm6yrk7rImXmS4k7bSiBJdf81deQKGUYqplIKCsLaKzdy81ZZcK/k dimYc0ryxbjzv5Rkq1hdCmmKDfJCyI1kDyXxU2VQE+V+e3YJhx6ebWW/TMrB SaQovhl5e8qqRLOkcghM1Yj7iGx3ZNb3W285pL95YE5FnnRnalXav4WCZEHI RuZj3/3yyKcCjun6n/BD1g1woPDSKuCUtIKrG/KjjcYxt/kqIZ9cZmGLvO7i 7ivWkZUQoyt97wyyYl3nwMHUKrip8Ju5DtnF+kN9dn8VbNtFXyGIXLxUmCOj UA0KImmT84s4HFWNcCNRquEhLiDYg2yQdXixi/4O/lwI4k9HVmfoCWp50GCP hljeBmSRloyvqk9o8PpiVx4Jmd234unuIhroHSh0mllA70eolJH6QwPRWxGy rch96koHx93fw2CelPUD5PBCIasUdzqYXpSrGplHeX9/XS4mmg7NoXetW5H3 M2tG7hfSwcdi+R0Vueu3z82bk3Sou+Af/wRZeedYxBn3GiimvKGqIrelNpbM udWCipuLq9sc6pM8BZ/xqFrYWqmgaYIcUB2MDVJqoWnHzgoN5J2dGp++TdTC h78ClfzIvpK5vVluDCi84t0UO4uDbGSkkIlbHQyoK41kzKC8PRtmnomqg8bp q1fDkBuzT8ZqUepA357P/zqyV/3ilj0TdZB1KTZHHrmB1/nQSrcPcL1VpSrt Hw6u3vpXi1zrwZqRfjZoGgc9Z40sIrkeDhVfyrVAlrVWxM3z68EzyyVfDblN l9+PyKkHevdQPOcvmo/Uu3jzGx9R78lOGSELlu9mClxrgLut6TbCU2j9c6TX mYc0wMO1u4p+/sHhXSrJovBlA9DZb5NKkd3CBkbN+hugeF4YLJFZxskChVaf QEK5tChnEodXf4XBzLQRtnScn947gcPd4bkQincjnNst8W55HPV591Ajf2Ij OBeGSH1BFmbUXqGwGmF/fNJ9e2T3GF8vfuPPEKzQdOwZjvrqwFhugcEXeNI6 lTP8GwencttHK2SZEHrh2EHlEe75ZbiFR4UJORGv5EaGUR+3axQun2CCu5lp yEtkz3mxtoVrTNCatyevQ/bWpG/6l80EkwBW7fQvHEJrN+eO7v8G1zK15RIG UJ8wv39q0WoCflv+t/a9OFhfrTFvNmqCNy00T1Fk2ck8/JtNE4R7nI8s70Hn tVio2NfQJvBk5TXxIecaq5h+bGiCqTnVlKfdaP93kUeqzzdD08Sa8rgOHFqG dEmZ1i2w2tDpr1QLDniCwskg9xZYwxwLL2pG8zgtEGh5rwXWf7K7ewYZy62d WZfeAokdvpG+TSiPbjAU/rMFQgXklVuZONybU/ngYNUK7ru3Sdl9RnkW3hKy x6INNlQs6IvWoXxUL9EEndtgLNP/aCwDBxvn7oVBvzYgG2v7b0BOZCZ6pia3 wa1C5tyWWhz4n0rYiHS3AX/Pcq0cHe2XTULHJ02/Q6B8HKx+h0OE8jSh9DIL lOZlUkxK0Hre0lUadGDBae0LnW+LcbCnJl2U9GUB+0G4hjSyzrnj2V4pLBgR e2nXWYiDgAvZSLWfBU77ySaGBTgE5ylmlDu2QySxYo1YDsrLbsvTlf4dcGIo fmg4FfX3zcKbo+QOcFyouq+MbF69Mk06vQNUWuM1PFNw0Dj7ZsqntgOK9x1o nUvCYd5xNlmD1AnsIQn6QgIOt988Ga+O7oSMuUGh5icov0r1T2mvuiCr5I8T IxTl3ZYdkFbaBbt08+XHQ3AwTiM4BnzoAk1e2yEp5CMSalrYMPLo82CHIBxW LL/mUHd1w5BhoighAIfopgfa1KJu8M0NFli4jUPhnXOz1e9/QGJlS+kBB9TX xTfYyU0/wOWOWISmPTqfOWFf/fp/gF5/yEUdO7R+/9FeHV3ZA/WpE02XruGg dXbf+WqdHmDxml12ssaheYtYTtXXHoi957HF5gr63/vvRl63cy/kCWrOB+vi YCX653aVVy9IFpxKC9BB/y/vvI8/u9sLq428DH20cSBLRbAuPeoFH9P0NqeT OOz4mrWiJbcXslXjrLSP4XDhyKBxw1gvrFpwl2w8jEOeyNXlUoefUEJYVpDa gfJfbWxAvtYH2L9t4jkE1Kel69dKufTBpjy5jaeXObAiv6P5+a0+qL9ROzi8 yIH0NAuTovA+iFtsfC87z4G+oGsWbdl98MKPGRD+lwPWel6OG/E+sCmWpkiM IH9/Gp51qx8u/DxnpN7Egf8mWmi0cDZIyXjlx6VwwMqbbFJOZgOfwDprnmQO mPGe4eTHs8HthBXb/hkHjCVqpFOz2JC/3cRYNZ4DOmoUL796NohZNbBrojiw JzBy1xHiACxpvjR6EcyBGZFT8UVhAyAfsVR5254DD/eWuWSEDsLZmt5Vdsro e2hlqsHeQ9C/4d2yT95vEFU8/aUnfgS6V7xXyBX8DTqpWi/Go8egxLU7Z/Ly GKzDG0/5l3Ggfdlje/vdUUj8UMHDaz8OXxRIJoERI6Cx6djyFpsJsEyXOWj9 YBiUekXYfp6TkDK8ro1lMgS5WWvtStz/QJ9rwuyfDb/A94d5s1LoFBw/Sdis lD4AbhqHT6fE/IVTezX9ilaxYS71hPUoeRpcq7V+zHv2AdM10epW+j+oObNd RTmuF9S0ty11P58Bh4frw4Jdu+HjSbUsLGkWnTMfqgvC2uEVJUGtL2cOmLss DtTwtYKE7C4Hi9fzcCTi3mP9R0xo4iHek6pagDMb5n9eYNdBCdEjg/lxEda7 NWltTSuHXRIiDtaMJQg4tO/1rOdjwB9Nix9oW4YtjDm54+FFVNmwMGUXBwI2 U6hqmavMoPZd6ezQ+kXA+NsdUw2uM6k6A82zJc48mPNpymnt8TbqbXdbO8nf PJiCwt4rmGY3Vb/0mZ6k1wrsBMspLFiuj8pZcPDlnV6BHXyDleSFD1Cffw8s dvbgxZTXlw/5jA9R5+yOWt2Z58XKTrSmlJePUTctRpm6efNht99k0pd2jlMH tR80EPlWYs3zZpmLOyapNfKNsPnBSmwlTU34odwU1YGYwbeVxI8lHxTL7haY ppalbT9aE8WPZc09FnCWmqF+UddgnBcVwDyIV22Iq+aoMw7PjKweCWC2nWuz 38/NU+sNUi+ukiRiFkoFmQyJJaq1mkZmZgwRezFrk+8qQKDZ//78tyuWiImo uc+2CxFors8tT6xNIGL9Q5L6x0UINH9S0E/fZCIWUeQtKSlFoCW1f5Q+n0HE yv1mNlcpEmhtd0zIC2VE7M27PcMkfQJNr8L9jmEnEfu50v1gTgyBZujMVx/a TcQuJW/0l0gg0C5ti5Ws6iFij5SXPvsnE2jXI94WybOJ2O61Fd4XMgi04CsE zvwYESOZWwotlRFo7+YirTOWiNjeK0X9hp0EGiNPhtJJIGF5QqmOVT0EWqM1 ZVmEl4SdbhCZkWcTaJ0NLUk+AiQsUbFDYmGMQJtJlP5uIELC1pD17TKWCLRl /Vy50LUkLKK2mCDKy0Pj5wXPSnESFn9HJ9FHgIcmfsNaVF6KhI1sPMM0EOGh SctMWZpKkzDaoK1jpTgPbVtzSB55EwkzHCKQ5KV4aIph6xYZMiRMb83kK/Im Hto+9den57ci664+Pr+Vh/Y/aCcZHQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange-> NCache[{{0, Pi}, {-2.1415925253615216`, 1.}}, {{ 0, 3.141592653589793}, {-2.1415925253615216`, 1.}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], TraditionalForm]], "Output", CellChangeTimes->{{3.505216602036067*^9, 3.505216613160468*^9}, 3.505216643453416*^9, 3.5052167335621433`*^9, {3.505216933234556*^9, 3.505216940744553*^9}, {3.505217182402815*^9, 3.505217208213377*^9}, 3.5052177462753153`*^9, 3.505217777606015*^9, 3.505217842239992*^9, 3.505218164277234*^9, 3.505218196660862*^9}, FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"After \"\>", "\[InvisibleSpace]", "26", "\[InvisibleSpace]", "\<\" iterations, c \[TildeTilde] \"\>", "\[InvisibleSpace]", "1.934563195716542`", "\[InvisibleSpace]", "\<\" with an error bound of \[TildeTilde] \"\>", "\[InvisibleSpace]", "9.362675701396483`*^-8"}], SequenceForm[ "After ", 26, " iterations, c \[TildeTilde] ", 1.934563195716542, " with an error bound of \[TildeTilde] ", 9.362675701396483*^-8], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.505216602060459*^9, 3.505216613183929*^9}, 3.505216643478408*^9, 3.505216733587243*^9, {3.5052169332580853`*^9, 3.505216940769762*^9}, {3.505217182427458*^9, 3.505217208237803*^9}, 3.505217746317912*^9, 3.5052177776472883`*^9, 3.505217842281155*^9, 3.505218164254793*^9, 3.505218196680128*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"At this value of c, the function value f(c) \[TildeTilde] \ \"\>", "\[InvisibleSpace]", "2.0385063859151842`*^-8"}], SequenceForm[ "At this value of c, the function value f(c) \[TildeTilde] ", 2.0385063859151842`*^-8], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.505216602060459*^9, 3.505216613183929*^9}, 3.505216643478408*^9, 3.505216733587243*^9, {3.5052169332580853`*^9, 3.505216940769762*^9}, {3.505217182427458*^9, 3.505217208237803*^9}, 3.505217746317912*^9, 3.5052177776472883`*^9, 3.505217842281155*^9, 3.505218164254793*^9, 3.505218196695259*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{{3.505216602060459*^9, 3.505216613183929*^9}, 3.505216643478408*^9, 3.505216733587243*^9, {3.5052169332580853`*^9, 3.505216940769762*^9}, {3.505217182427458*^9, 3.505217208237803*^9}, 3.505217746317912*^9, 3.5052177776472883`*^9, 3.505217842281155*^9, 3.505218164254793*^9, 3.505218196711808*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\"*******************************\"\>", TraditionalForm]], "Print",\ CellChangeTimes->{{3.505216602060459*^9, 3.505216613183929*^9}, 3.505216643478408*^9, 3.505216733587243*^9, {3.5052169332580853`*^9, 3.505216940769762*^9}, {3.505217182427458*^9, 3.505217208237803*^9}, 3.505217746317912*^9, 3.5052177776472883`*^9, 3.505217842281155*^9, 3.505218164254793*^9, 3.505218196728363*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.505216602060459*^9, 3.505216613183929*^9}, 3.505216643478408*^9, 3.505216733587243*^9, {3.5052169332580853`*^9, 3.505216940769762*^9}, {3.505217182427458*^9, 3.505217208237803*^9}, 3.505217746317912*^9, 3.5052177776472883`*^9, 3.505217842281155*^9, 3.505218164254793*^9, 3.505218196745462*^9}, FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\<\" \"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.505216602060459*^9, 3.505216613183929*^9}, 3.505216643478408*^9, 3.505216733587243*^9, {3.5052169332580853`*^9, 3.505216940769762*^9}, {3.505217182427458*^9, 3.505217208237803*^9}, 3.505217746317912*^9, 3.5052177776472883`*^9, 3.505217842281155*^9, 3.505218164254793*^9, 3.505218196762411*^9}, FontColor->GrayLevel[0]] }, Open ]] }, Open ]] }, WindowSize->{1033, 643}, WindowMargins->{{259, Automatic}, {Automatic, 171}}, 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, 4476, 113, 592, "Input"], Cell[5046, 137, 18920, 320, 236, "Output"], Cell[CellGroupData[{ Cell[23991, 461, 698, 14, 24, "Print"], Cell[24692, 477, 475, 11, 24, "Print"], Cell[25170, 490, 234, 5, 24, "Print"], Cell[25407, 497, 234, 5, 24, "Print"], Cell[25644, 504, 204, 4, 24, "Print"], Cell[25851, 510, 204, 4, 24, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26104, 520, 7870, 185, 992, "Input"], Cell[33977, 707, 1212, 18, 31, "Output"], Cell[35192, 727, 1210, 18, 31, "Output"], Cell[36405, 747, 14608, 243, 245, "Output"], Cell[CellGroupData[{ Cell[51038, 994, 1694, 28, 28, "Print"], Cell[52735, 1024, 1602, 27, 24, "Print"], Cell[54340, 1053, 1232, 19, 24, "Print"], Cell[55575, 1074, 1233, 19, 24, "Print"], Cell[56811, 1095, 1201, 18, 24, "Print"], Cell[58015, 1115, 1201, 18, 24, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[59265, 1139, 6822, 169, 812, "Input"], Cell[66090, 1310, 5259, 92, 237, "Output"], Cell[CellGroupData[{ Cell[71374, 1406, 477, 8, 24, "Print"], Cell[71854, 1416, 458, 8, 24, "Print"], Cell[72315, 1426, 458, 8, 24, "Print"], Cell[72776, 1436, 428, 7, 24, "Print"], Cell[73207, 1445, 426, 7, 24, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73682, 1458, 7035, 170, 812, "Input"], Cell[80720, 1630, 661, 13, 24, "Print"], Cell[81384, 1645, 5793, 102, 230, "Output"], Cell[CellGroupData[{ Cell[87202, 1751, 911, 17, 28, "Print"], Cell[88116, 1770, 697, 14, 28, "Print"], Cell[88816, 1786, 453, 8, 24, "Print"], Cell[89272, 1796, 453, 8, 24, "Print"], Cell[89728, 1806, 421, 7, 24, "Print"], Cell[90152, 1815, 421, 7, 24, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)