(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 30445, 719] NotebookOptionsPosition[ 27874, 672] NotebookOutlinePosition[ 28218, 687] CellTagsIndexPosition[ 28175, 684] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{"Regula", " ", "Falsi"}], "Title"]], "Input", CellChangeTimes->{{3.816951448197256*^9, 3.816951452419158*^9}},ExpressionUUID->"cc14affc-f4d4-4a9a-ac58-\ f0d7f0745d7f"], Cell[BoxData[ RowBox[{"1.", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.816951461242302*^9, 3.8169514715926723`*^9}},ExpressionUUID->"15458c5a-d145-42b1-acc8-\ dffce77f19f9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "+", RowBox[{"x", "^", "2"}], "-", "10"}]}]], "Input", CellChangeTimes->{{3.8169514739659023`*^9, 3.8169514767676663`*^9}, { 3.8169515120548267`*^9, 3.8169515317755375`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"49079bbc-11af-4743-93ec-f4a72eb7b6b7"], Cell[BoxData[ RowBox[{ RowBox[{"-", "10"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], "+", SuperscriptBox["x", "2"]}]], "Output", CellChangeTimes->{3.816951533978065*^9}, CellLabel->"Out[1]=",ExpressionUUID->"b2a9ad90-8721-43dd-885b-738b39630665"] }, Open ]], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.816951535171132*^9, 3.816951578765544*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"7920a7c3-b1d7-4a39-827e-6f97151fa358"], Cell[BoxData[{ RowBox[{ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV1Xc8le8bB3ArHOPYe53zHBUiIjvu24hIR1mlpKKSSlSStsrXaBhFw6hI SFJGCHmuUBFZCSEhK4Tsmd/5/fW83n899+u+P5/ronv4OhziYGNj28POxvb/ b/Ro6veVFSGoklR6EGnHxMFTplkbZ4VAbe6SkaEaEwcsNF/zHhWCX2mjv7l4 mXg3N4/61w4hKPgu3sVesQ0Til6XU98KQXvMBfMIk204Z9taxrbTQnD9iNna Rj073JiZdjyunwo3R5k+0ma2uCIHmdX9oIJHVUQNELY4v7BFgusbFfgCr7CH ctniuAoe0qecCnbblk8cr7TBHh1eImZPqNBOy/57f4cNnuBXyR9wpYITU7XO xXsLFjuWvrLxiyCU9ducSXlphQ3khc9llgvC9jPqZ25FWWH3L2cnGEWC0HfY cMPd01Y4Q9O6TzRNEAyodx2WDK0wnur7PB4kCAs7Iv0NKzfj45cY9zI3CkJe zvbbZkOWuCLykbpyggC89qMPPrWwwEOYOzX+jgBkWXCOEWoWWGjCR0ksXABs m848LRG2wLudTEQ5AgQgbINYIuo0x+PSHbM/7QVg45Ti3aDz5lghWaY8nlMA pGx/LDUVmOGAvBhXsWP8EHNOxYljM8Z9vu9uq3vwg0TAj3BZLYyd1vW/3+zK D/GZlrNWchhrJ+urBVrzw5Pvf2wKfyE8Gtm20MHgh/1hpjzDCOHDx2gJqR18 UFTHn5WyYoJdiMxOQyYfUCQMvR3ijbF+VLnn/g0U0H7bmOJnrI8Hu9y2pqpQ oKvpbNkGOX0ct2FGe0SJArvCf3cLL+rhpUYVjkAqBVS8eLNUivUwSEQ8iRzm BXUxDcPiTXrYNn7Xj9JnvPDym7u/w2Zd7Jb6x0VBlhc2+hq+uXZMBwvOhph6 irBcizRrmDq41Jq25jkvLywUhq/W0tbB9N8O0xtneeAOQ0jRel4b968rvGvX xAN5GapeWWHa2Df7Wv2FCB44wD4/uzVzA75WImXbxsEDozKvkiS4tbBXYVCz xzw3aDVVOac1aWK7vN8ew2PcoCgkeml3oiaWyCy+sNTBDcbDjbRDmpo4PX7f S8UCbqC+cjq6ymU9/nI+TdjzGDd0BuJt+KU6ljbUbxn+ugoUvgcKKl1TxVlv XA4up3DBTN8Q3baIgTuKg16sTeCCZoqBck00A/OVZUzsuMsFxdwOMqe9Gfhw 7b+g1KtccKkjn6kpw8BKA6mJ9u5cIJ5rLbr3PIGjpGebk6S4IFGH0eZrQcen L9y3sbrBCRtiauZFfirg5Kvvo/yucsKMyr+AunsKuD50uCUukBNUf8fH1DIV sHoMOjx2mBOqWmSLo0h53Js5cO2BBSeUjPRRFFPksEunfsnQEgfcDGVqqpyT wQZmresjfTng9XDsiOcOCRw30SC7dIgDUjZmOV7hl8BLT6u5vd04wNS63+Hn B3FMcpOd5jYccIO2mnLcWBxb1TyLmCE4YOHQs4nXqmLYcefp0b3N7HBpG09W lqgIPuFDzVI3YYcszf7UU6p8uF6RN+6hDju4T56kfn1Jwdr17CHcauxANQn+ kKlNwdPa03u7JNnBafC73WcTXnxxrl0wZpwNmiwZlCRXbhx+/bnP4lM2cJPe ae6axoFTHlpqfOZjAzYe7Z4uzVm0pSurxpOdDWqC/zwwcZ1Brdu0WxfGVkit ythG7+vTyOtIu/OBzyukwc+0Bo22SRSSqLFj/ZUVcjQu2tI+ehyV8zRaVw7+ I3vNfy8+t+1Fph2yukvFy+T+iOlSDq73pM5/mUIHPRbJOTJ4LiBsjqSu5axo 275I3nnAd3/76nlysNI1cAdaJP0LdlY/fD9PPhLg6TaVXyS5Mg5WXJxbIHlj DuTINC+QrcyzIdH7lsmOZEnnOpsF0pbIjc6ksEMIBMUZbZgnzbMKnTRvrIL9 Hi3MbKV5Uk9yK529fhUYc63nVKHOk6FV565GS3DDuHX7MYnhOfLoYszH0cfc sKdO12Q8ZY7ktZL68SSbB7Q6h34+k54jhTmaHKlVFPi+6LRahG2WnAvqdXKr EgTZKVuG4J8ZMvGgddM9ASq4jWA6pW2GjFu1e99Neyp0dagrsOfNkKnUvsCn TVTof8cl8ddrhhTlOvkltl0Ipq7kcTXUTZOVxjc9XEeFgcol3hv1eIr0v3Tl weNmUdi+ROm5dWuK1Cg7FCYyJQrRUys/w85NkX87Rso8RcRAvG+4Pchxisx/ cSvw+VYxkPtY/tWPZ4p0/p0QXFIqBiphp8u3+06SOGqxQOKxOJgLfE0WRhOk 3LmOVzo2kiAps1Vyu8YE6SOyqKdyQBKGV5eHR8pNkKG/OCI5z0lCDMr1o879 JbVcn02fSJeE/lN3TQWy/5JCfiunZbml4OZ3xzYexl8yes3HrMYSKWhKbRJZ 4R4nqwx5jA2kZWCH10O+S0Nj5IDAHc81GjKwEBT+d/HjGKmictJ12UwGtuV5 k/NXxkiPrUaDh47JwISs2p7pv6NkU8DndYx3MmA8mHFn5NsfctXdot7dbrJQ ey2TvT1xmLw+trmAdkMOgv665wtcGCaNeuuaB+PlQHu/yDHTXcOkIj/dKeGl HMSaBDQliQ6TjhHhDz7Uy4HbHEo7EjpEXubLeEBIysOQz1e7Gb/f5NXt/l+E E+WB23XhvojlAHme48p6aoICFH7KtLOgD5BazjG3dr1QgKN6+9jP/OsnEzf8 yY0sUoAvYhVHWwv7ySUyO6yiVQFiam+bPNboJz/ZrvjaiCsCYUn/pS7VRyrd 8t1UFaoISHPL+i1DPeTR1aXv+/crQamtYUBwRQ9pr9BqPntCCUwPq5XCox7S Q/9H/MRFlhMFmIaOPeSpyx+4Mh6wzN/go1bSTV5mNMzJ1ymByYDrS4GILlJx OvEtVZ4GAaYtu5I9O8ibnC3EsUssn3k7KCvdQZ7ZYlmz7jrLmfGBd2vayb1H zkb3hNHgjOz+B8G67aTfhWvXtWNo4D8z2HKYp4180a581y2DBqeyFlzWvWgh Oz/IvvnRRAMfRUXnvIlGUrNo5cIbgg6FabzFRpmNpEOJgfP0GjpwbZikvT/U SAZ13pPQWEeHeIvKkS+tDWRZFefuYB06VB05FTxQWk9GxkY4NVrQwebwbS9d yS9kf7mB3JgHHboCPXTMw2vIRyVH+V4dpkPATf0V5lI1mRxEkfY6SoeU1933 jvR8JvWW2uPJk3RgW9T9GJ9VSfplr08WDWKdJ7JTmcO6gjR9FBlkEU8H++Tc cWpROemrY9cZ8ogO/XlhJXIa5eQEn3BEWRIdxNu0nXTFysjuqzLjRDodfm6h 8jSUkuRJeW/xsDw6ME/tq0gcyydpZs+C+6vpcPE+xa3g2xvyEyXE73UtHTJK cifri/PIhPGHnaca6MDNw8vgCssh4+Mm7bqb6XBe/wDnN5xJ1ioMlh3spsNr cZ6lDstYcp3Y3tu803RQs/ivLPZyFFkuciTu9iwdbH9xiyb6hZLtFRpCfAt0 qPf/94rN/QC5+tBrk9//WP8/y1Pv9icK7fdVoprxEsBhE05JyY1FAjPPC6/y ERAqy28xfC4Oqb4R638rQECVO0/7Js5ktOHb52ZhEQKa2PmZ1ZEv0IaepmOu MgTcH6oeGp14iRQPXQt3kSPgpfdHC8q612jWSNdyqwIBfg6hXeoROWjjCf9E OToB0wyKrL9TAery4jHYpUJAkGeI1VU/QGaZrz5a6BKQnZivYUt5j3Tnb6mX 6BHQ09IvLpb8Hg1c7NuvbkCAhZ31r5SvZSjTsx9PGRHArcsbVKn3AfUoBWgR mAA9XwOv6LoP6Hh0jJurGQFez48wdx/5iO4lRZ4IMyegUqFKfuThJ6Qaf8O+ 1pKAm9w33gotVyG5kU6n+S0ElOCiJ62xn1G+++aVMRsCRs4PhSatr0al2dTU TlsCmGO2Ljr7a5B99ZfJp3YEXFa9YLI0V4OybUyenN9GwCvPF8ofor+gZSVO JxsmAcKt/JMu5bWI79aBjlp7AsxEN7UpudUh2qRr/n/bCThld/z94FQdOul2 JHnjDgKO7u+3Nrlbj45VeRafdyDg2qXLxUk/69FR7ft/RBwJiIuT1ORWb0BN vj6bkliubrKSrKtoQB5Vx43SnQhotN49+kWoEbHFnqxXcCagrcjnY83uRnQs T7f5JsvdGlcfVT9rRBv/KTMnWB58EhPwebwRYf90ox0uBIyJpTOrjL8iOes1 j9JZngkpXlMZ8hUZf2e/MMfy8nztv48NX5FTWfxXvJMALp+e5g/yTSiicUfG VZb5u6azKryaUK3EFfZilkUdKaHlOU1ovPlC+wjLMh/l95UtN6Gl5EQjqV0E 0Ay19N9v+YYO2OnTjVhem2khBHe/IYXRB9HOLK9X2jlQ2vkNTY0KRXizrHvn KPlOtRlFcQ1IB7C8adXl+yX+zeiV3uGNF1i2CIz2LSabkUlPY08gy7bDKdZF fC3oXInvGl+Wd7gXKr11bkH8zRfZ3Vne1VA9W/CkBSk80g/YzPI+y591+cMt yK+vLWQ1y4cLJtLe6LUir+5Huv9Y5z+hxh2Ud7UVSWu+Da5j+UyizK7cmlbk 1OwW8JDli8IaWjlS31G6XZGAG8vB1zFvtsd35Bm4YiPF8s0Zx65XL7+j2Nyd WtWs+7zj7VWYNfcdcdYNvz/L8sOO81EvLdrQaokeNgWWn9hHHMmMaENS29zH iljvlaX7RjpDuR2lah771cV67zfplePpvu2IOqH35wjLJXIdlWlF7Si9/V/W b1Y+PrNznnu2vQMtGXV6fGPlqcFfckdKfAdiIxRcMcutA6qqT/s7UJB0mlAK K38DX7Z/f3LxB9p1of6DMyufo/hg9uNPP1CpYHDVU1Z+Z3LPhj8S7US72F/E DrHyzRX3yDAhvRO9MDgQ6cHKP+3wyMP7TT/RwbdMvMTqT8zIikG1UBfa8uU2 KcyyVCrlma1uFyofVpJSZPVNUUbhkk1QF5pjsu9kWBGgvmKhYS3ZjVQ179m3 svr7unDbw4/G3ejh6j2fcln91jm1c5XVgW50IwfWhCECjPqO/rDM7EZdskNP 5UwIsKmOvm1u3oPufH1a/UefgNQ996nGh3rQq+NJp9NZ84RrJCFSJ6wHrbW4 seTGmjcgkB6tXNuDNFXn83O1WfODWRrLvfsXytk0OSOlQYByw1Di55O96PG9 479KaKw+HhhXLI/pRQZrY6wklQjo+jv9uLigF22y25fkzZp38aLsyZnLvehG 0y6Lf6z5KOoklRoR3ofYlBvcf4oSsNJskeWQ1I+u/atUvMZJgJuXjebWin7k J22SeIGdgKJZ5muLgX50Sf62iu8Ka39J787ZqDGALP90HLVcpMOIq1++5NsB tEU/533aBB3aOhJK2+oHET+nd51DFx3e9EzXerANo2ih553mBXSw/FhSsn3N MOIu52dasvZR0/PrGaZ2w+hwa/uQaTYdpvxEQmQfDKMW4dM5Si/ooL2ibtKo OYL22w0+iWTtuyy5gy/M9v1BVW9atdSC6ZDu1BhKKx1DRqoLZx1t6WBg8PAM tXcMLfHx61+yokOv4OsN/7jGEXNmfNsTczqc/hugNKI2jmzPEmGNRnS4U8i1 +ClgHPWsldk+oEaHBitazhXqXzTpc8fwK4W1Lz130sZMJlAYB29wSRkNrkNh UrL9BKr0PaftWUqDQgVZhsuBCcSXSd3IVUQDorVj9bvgCfQzR3yjbjYNpu08 1t2snkDEyFHk+JgGCXo+emtdJ5GSkDAKOk+DIcp1u33+U2hrt2D0U3UaKHn1 fhENmUKcsQOb7q2lgVPFZvuP96eQgF2G83WCBqWXeR00iqeQsuHvejtpGkRP 3t65yD6N/mOIcyZy0sDgxwOP+5HT6PD8rslDOUrw3+uswLqMGdTn82yzP5sS OBT4vV5+N4M6zhm4s08pAq1Ue3Bdwwwq3Hwy5uqAIpRU5+8Mm51BPMfO7N9T qwhT/aV6ZpazKN+nLMU/XhE8FOqmcn7MIocnXdZIRxHwjTG/e8Lz6NR5/y7k qgALnlreewMWkZDIvffoihxYYhEj7fBFlL5mTPK3rxzclp/g40lYRK9c7rmG 7JcD2rfczNfvF1FZ8JkXCWZyYGWlP84puITa9hUmGXDKwR0V07MZT5eQteLU t/XBsqD2Z+t/s/XL6LPQ/Cr5SzKgUZxbXynBho1b9EjtrVKwkn1r05Q1By5k VC4n54nCePt5/4DnXFhrSODmAA8fXD+9Zim8hxu/jtx8MmTtEnmrKDPNT5iC g+Kv871Yfk/mbtyilOXDj4Mqfd2tHy6xcp/UfzFZEG+q4h3fOS+Ic+J5THZw CuMH7p8DTDWkcTdb5oMvmiJ488U91WiShrvlNRNEt4jiLlBXV6tZjf0aS1Zx BorhUybhW3kOrcP1pqpSJXfFsaVf4F2VQC08wnG9qPO5BL51jnJRykUH398/ UJ7ZIonvPBW2s0/Uw2Jn1M5Y/JXCvz0ukRebDLEiI/DWf4QM5s7vUk69aIIX QlO2RiFZ/GfJkW82FONoy9IErp1y+JWkf9rAHnNcENfjqBwij53mjssI+Fji V2l9OQJJCti56eSJ1b5WWI85efbJV0UspxWj4ZizBW9ac3aAyUbDR6s3J1qx b8Uf2Xr7s2/R8EjF1Z3nN23D0iouD4eU6XjLEndc7Dt73JhR8Jgnl47ty2M/ bRbfgY9+F/J1NSWwd63hosk2B1zl5PM36BuBrxsFnQx+4Yij1xV9uuXBwEvf itxPLDnhxt/+MRyHGFi+u6/xIIczFk3XPBDoxcCeR0heN15nfEf52YLncQae /HXprZ24M45RiNIwDmBg1z0qmvrqzvie0OG7v8MZ2D5vwzEtN2ccNymyzyqb ge99pqzJK3HGbdk160pyGfhGP1t9WZkzlvULnduQz8Ci1qnGjZXOOH5kKVqh mIHP1S3unGxyxgl9AxVTFQys1dCQYvrHGT9ueaf2tJWB/YxVIucVXHBXbOCs dDsDh/VyOIkru2Cak05FxA8GPv32Zpummgt+Up++93wPA7d3pal767ng5Kq7 UTtGGLh1idLXy3TBPaHMvZ9GGdin3blglbMLJqwoaiZ/GVitzX7r2j0u+GnZ 5XKVGQY+os0sPO7lgnuDDKMezTGweLhDdJSPC1ZGU27iiwxssMCl/ua0Cz64 nKV6Y5mBTwUfCms754JTir1nVlYY2G2NfypbkAv+HygDbig= "]]}, Annotation[#, "Charting`Private`Tag$2486#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{313., Automatic}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-4, 10}, {-9.172814977147338, 90.0000396856571}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{ RowBox[{"-", "1"}], " ", "eta"}], " ", "-", RowBox[{"2", " ", "artean", " ", "erroa"}]}], "Text"]}], "Text", "Input", CellChangeTimes->{{3.816952340034154*^9, 3.816952388803029*^9}},ExpressionUUID->"5e894d85-dc39-4250-a6db-\ 462e5cb9311e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"a", "=", RowBox[{"-", "2."}]}], ";", RowBox[{"b", "=", RowBox[{"-", "1."}]}], ";", RowBox[{"tol", "=", "0.1"}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}], ";", RowBox[{"i", "=", "1"}]}], ",", RowBox[{ RowBox[{"err", ">", "tol"}], "&&", RowBox[{"i", "<", "50"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"x", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "*", RowBox[{"f", "[", "b", "]"}]}], "-", RowBox[{"b", "*", RowBox[{"f", "[", "a", "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "b", "]"}], "-", RowBox[{"f", "[", "a", "]"}]}], ")"}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "x", "]"}]}], "<", "0"}], ",", RowBox[{"b", "=", "x"}], ",", RowBox[{"a", "=", "x"}]}], "]"}], ";", RowBox[{"err", "=", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "xz"}], ")"}], "/", "x"}], "]"}], "*", "100"}]}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< garren tartea = [\>\"", ",", "a", ",", "\"\<,\>\"", ",", "b", ",", "\"\<] eta errorea = \>\"", ",", "err"}], "]"}], ";", RowBox[{"xz", "=", "x"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.816951613402549*^9, 3.8169518807872887`*^9}, { 3.816952079674968*^9, 3.8169521654224358`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"8efb2b22-e7f1-4f99-9ee5-a7ef7f3c56e8"], Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" garren tartea = [\"\>", "\[InvisibleSpace]", RowBox[{"-", "2.`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.8189157899903567`"}], "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.`"}], SequenceForm[ 1, " garren tartea = [", -2., ",", -1.8189157899903567`, "] eta errorea = ", 0.], Editable->False]], "Print", CellChangeTimes->{{3.816952121181659*^9, 3.816952131367484*^9}, 3.816952168894373*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[8]:=",ExpressionUUID->"942542a9-85c0-47e5-aac4-f25daf1c2d95"] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "2."}]], "Input", CellChangeTimes->{{3.816952199339766*^9, 3.8169522013705635`*^9}},ExpressionUUID->"19131f1e-f2bd-4e35-81b1-\ 4aea4c8e5533"], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.816952205494567*^9},ExpressionUUID->"9617b5ce-0ddd-424c-b37b-\ 9c68dc7ecf6d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{"x", "-", RowBox[{"Exp", "[", RowBox[{"x", "/", "5"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.8169522748378925`*^9, 3.8169523003537855`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"5287c8be-ef7a-4181-b2ab-b8b5b5508942"], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "/", "5"}]]}], "+", "x"}]], "Output", CellChangeTimes->{3.8169523107921543`*^9, 3.8169535164795265`*^9}, CellLabel->"Out[1]=",ExpressionUUID->"373d6c97-af78-4df9-b454-62f9a8edc411"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.816952314049862*^9, 3.8169523273818674`*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"f58acdc5-a7ee-4f34-9712-1c7bb4d4335a"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt13k4Ff37B3DknJlsIevhOHPOUUrWFmXJeStSqJBKQhKekqSI0Ka0q6Si hK+tUnraSYjJ1kIlbURIyJ7sLfSb57p+f8w11+ua5fOZe+77ns/wvbc7+0qI iYn9ZLb/9nu/LR/4+1dIf6w0T7az0abbI1WG6/8IaTfBFj+LRdr0Cvmm0Yc/ hbS8eaCJgUibpkyDxrcPCukny8luBVNtuuREHNncLqRPuOZdrdPTpkmDj1r0 SyG9y6p3i7+SNn0+xMv+wGUhrbBwzODsVyGdLR6cKTZfSFOHlhkNRQlplq/t bHUPAT0n/MaenFsCempteUD6WT49fV7HyEQnn3YuTdw08wVF55/+8OfWTD4d +X1hQOxXHn3L+kpc/jqKzgtL9L+9Uov2zxF3yzTi0SviVlMTlzTprcfjc9ln uLRt8uMVS3s4tPXLjy/LRjToq0/DPwSvV6frJ848zojk0J7R55VfZ6nSP3dl BB1tUaP3eU26JT1VhU6pDa7N8FOlxfR5xYsPK9GbDgcG2A8p059OXjqa/V6R XrXQhv3bR4nWlNp8fWiRAq2b8Nz0x4AivXWeLqtecwotHzPi2+CjQG+a35hV WipN55CWPuUlU2jd3WZ/AzNJ2oAT92rfiAyd9nlVWbgVi5bLuOa5aHgy/S1K 2cJWTYIezZnnLmNI0PkXZth0rBkv3ioZonrXRJI26qwbMkweKY5475a7fI04 bZ1fP3l8TX9xa1twnr33eHHQ9dtjClO/Fne/TbM2eTxavMZPmFaz53nxqWVm 0nfODBQ/rao7MWfVM5H2WG/gqRndxWb6T+45JnwVSWn/o1x0rrlYIlS5wUe9 X0S7TFkQ+LiymJBxjPLuGxE5nh4Vr+1+JDrU/GHxzoxx0VBLRuPdT3WiO5eP OO4bEEdQTc1J++w20fZ0H/nWNSxY3jYdc3zZJ/L0T+QejSJBt/cXX90zKDru FGo6J0kaUTbv7BUcR0WSShfa9/+SQw/3lykh+i36WHm4P3qKAvSGZPNe3J0Q rY70NkksVcR3paMvy5XFESDdLXjlpgSpuNtBQ3ES4GVXxLO7lDFmoOLR2DYJ kXmLV025rAqlOZOLFs1iYbZ7df+GNFW8jHe8ct2Qha6/7qfvXFNFQaPWoOxc FtxsQ587PVDFgjp28SsLFsw+ZInOv1SFj9awmPEKFsYGZfXUxdQwODEUHBbE QqhhraTQVw13HdmW7PssBF0NyDUxVMcKJa+i34ZsNL7WuCBnoo4L3i3OrLls LP/5IrjdQh2yvPRL0gvY0HWYaRxvp44/eqtM5cBG64+27GFfdfzuzU3rXsnG 2oUb0h4kqaPQW02VvZ0Ny3dOMbOlOLB4JIq+e4ONm+NiW6UUOIhXrtJZeYsN DZ07y1pUOXBITHXtvMvGWLgcETeNA5nyzR5TH7Fxj1cZ9QMcaJ5ZXrPwKRvT tlqH3QnjYGy0xrO7hQ0ZifneBm0cjJhevJiqSuBR2KRV7d0c6DTef1HEIeDX +3pxygAHSkvfRNdxCdC1m6fJiWnAUvafGEltAsG3Ezt6ORqQLRU9MzIi8Ml9 IvBfRw08FvPrbrYlkPWwPFKvUANLb9yITQghsFo/LqC1RAMBuyd2W4cRkMjw 9Eh6roHZc0WlveEE3E+PWsp81AAaru+et5/AFN+ZEj0/NKBbO2596TiBUMVT x7J1NNETo+J0N5mAzTaXC7rnNBGr9iuGU0ogJK5AbPslTVR/bnOfVU4g86Eg 4P7/NOH2v8jWBU+Z8SR+LLK4qYklL4+o2FUyzxN/qn95uSZkcud1Wr8lYEZX 2O8Y1YTjsgdel1sIbGnTf5gzrom8jYRhWCuBi1IXBL8mcZF+xTdzZTuBUZdN Pw/Kc1F1Uv7ASCeBB51/r56fyUWW17XPGj8IGEw1lchbz0Vh6V/rsgkCHgtS t/3ZyEWsvivLX4xEjAdRh81cjL14tl5GgkT3tfe3n4dwkbfgRsUSFoksi50e 9ae4KJvvFRonTULol503UcxFoEDeIVqVhPNJRe3FFVwc+FnYM6BG4uCd8DNH q7iQMTdV9OSQaP5l6ydfx4Vnu9W3mVwSKWdapwoGuJCU7ktMEJBQe8TdbqOt hfyfG2e/0CMxsemahsIsLQguvUvmGJBolTN+1mCsBbbxjQY/QxJ3fKz5ISIt KO6ufjVgTMJWfuvbdDctfDqv71FrQkKvYGh/4EYtTD/WZE4sIKHot0/PbLMW QsxiWoxNSTQWnD38ZpcWJA+rHYwwJxH6T958sbNacBu9/6VWRMJdcVFrZYIW 6DMjH9tAYtHjytiEFC1ER9080WdFQm5qU6fBTea4/xXe4GISV4tYSR5PtXDr kFLTM1sS75VXiRWMM8d7YwOurCCRTzfcPCLJQ0X374htK0mkbvVb5yzNQ35y gIGxI4mAJ+H3OtV48Ju/c1+2EwnJbak+anN5IAvDLm11IdGlqqvQasbDkbV7 r8qvJlFdcv/xbSse5PLTHO4yTlJ7qmK7kof2wmWebWtIzC3rfbbLnweJ03Lb 1NaR4GwP22W1gwfvUpZ6ImMxjrhAdjcPEQ5KzqpuJKq2K0VmHmbGa9viK7me xD1Oik5QDDPf/iyLEMYXy3XemZ/jYefS74lNjDdpmOu/TeXBTmdPe5Y7iaUV ZXUp13gwO55bzfYgYbBjxRH/Wzw49jSZezFW0qydbZLD3H8gaHoO418VG5vE C3l4l/vlNMuTyY8d3SdflvDQ9+Z6sBPjCs1dCy4950FpNd5eZBy389hZo488 nLa890d9A3N91c28Y595WKTnpuDI2FvnTVPzVx7+1HCNDjJ+ETXMNu3ioWtD wdo7jOc0qBuc7eeBSuw/8olxkonl6s4RHnxaIgrFvJh4n/XeYzXOg8oc1VEB 49xdpW+qxClIUQfnWTHuSl/dNiZJIfRDWOh6xlrV38a0SQr5mg/ydjB2Hg+X cZKm4Oo88OsQ4yO6MtReOQpF23vN4xgXrE2Zc12Bwmy2V0QS4/5oI9v3ShRu iSRz0hlr3ytxE1ejQDee68pk7NrkEqivQcHf8pl6BuMYmW9R67QojDm5WSUz pk3DLxzmUxjKlPA6x3jIT/r6XW0KPW7hIYcZzzifXPhZh4K7YejeYMbuTwyr J8+ikLjrTrgH49i+J1/nGTBWa/pnMeMyDZfRjcYUOhLzlkxjPLa0Xer0XApB KoNKkxjrh+7Wyp9PIcDC+k3Df/HOkJrdbkbBYvXGiHuM46uTbBQtKdjhr1z0 f/EfN1hnaUWhPbjmlBPjCd0nAf7WFDTHTw9zGM92XXUg3pZC5v4O62bm/fod bjtXYsfEY15cRBrjV02TCzhOFJqV0s6pMpaQTXq1xIVCRZp/SBWTPyZmBi07 1zLzm7ncZC/jlPPOkys9KNRs5LvWMPlY86RVc9SLguK0kJxQxuzvoUZCH2Y+ RHqfCuPtyy6vjfSn8KHQ4bsdk8+Zofpbr22jIOOg86CRqYfajOJ9b4MoVIVc XBnIGBNfr8wKo5C7c1gyiqkf+ft6Q/WHKMQXHrQOWUvCurmIII9SaEwbv9jO 1N9uWSeNuScoSAzseOTCuPmfXYtiYik8m9/vqs3U613NoliLZOZ895c9sc4k 2pc5Zm5OpfDgbGrkF6b+OWEtD89nUBjof1Cpz/jgG3ZTz3Umf0Ysbjxi+ofz kZX6ybkUTlwYMktxYPrPuv5ljx5RwCa9j9X2JH7qnfV7X8jE2+acy187pt+8 rfmfbCmFzSNVvSuXkeil1ijue03h3rH+XcU2zPMNjRgk1lBYYJY5Wm1N4vzT BPvc9xRu/jZ1bGT6m1lgXXRfPQW3mM8Hepj+d6zAfdSzg6mHDdkFHxaSaDg9 PjWym0JcvVp1hQUJQ+8Uo4Q+Cv3p4nfvMf31A9m85fUQBbWJyW/3Mv1XuGZT g0icD+soq+Avc0kU9W95QnH48KOcxht0mX5dJtVoweWjaPkt8+MzSfgmZP9y pfjY+dPf2HgGCRnL3jlnp/PhEvjvwpBpJNadDLoqPoePYxOd9yt4TD1MCzvZ Ys9HFrm36/JUErrro1dn7uWjNufjpIlRAut25CpKRvFRoquUPjxM4NjRjteb ovkweDZDomOQQNt9BzvhST66XMrFHn8nkCqjLEq/yMcMLZUKnW8ElIuuzEi9 z8eJjqAvE+8IWL/72PY3lw9t5bCnaTUEdnZNztiQz8cNosBZVE2gWiWQy3vC R8dO2smf+d6f2G6imPKKj9CEP0X7nxAQ4z/9fbmTj/gF8kVXbxIwnP8z73cP M//BbO7gdQKey2eFru/nI4S1kmV2jUBB+Jl+zigfuV22vg/TmPVIzdq2S5IC vBvRnRsUT6D7UMerBJ4AVT51AbX7CHxon5x+brUAt7zL+KH2BCpcjic9chUA +/9Y2S0lkFtCJjStFyAgq9pf3YZAfAoRM8tbgI5jUtVZlsx6aQ0rtDRQAEH+ h8KTxgTelYvZDR4VwHFHSZGXCoGazNEfzvkCHNOxtLJoYKNEMaxn92MBnD85 bgqsZdZ/B0baU2gB+h1G3S6/YyPOfbi+q0IAtyN7ytqq2HBSGiw/+FaAeM2H zhaP2ag+1HfpXo8A0TH3evqS2Hjl3WalyBPC2+jfKE9XNr5IXhu7IGB8JrDf exUbQ1c331afLsTQ9NabXivYUO/u1uTrC5F/aj9rqTUbPsEDo4bmQtzMchos Z9bHvw79/Xf5WiHz3Yr4dw+LjelX1DnHzwhR9DOquiybBVPb+mqZc0JEbwlZ 3XeFBYfOpKOx8UJ8usytl09lYYc+NZyQLMTA3oJGnGehMGd69dVsIeJ1iIMO e1hwrphzpOypEPR6RVl5exZ8Nw9bLK0UYom3RcgzaxZ2Sz0crHwlhMGAy4Nw SxaSV5htfPteCN0O5FQYs9DxARYtX4WYPd0jWEqNhV+7JQZ9vwnhmuK2/rgC C7IaZdc7u4RoEZcjxaWZ/4sNtqo/fgjh5rjlyqdxSdiIT34VMiyE0saxWItR SbhmvIgeGxPCJEt6fkK/JPxtYsz3/BEiIkLpQlenJP7//xtuSw5lmXyVxP8B DOinHg== "]]}, Annotation[#, "Charting`Private`Tag$2253#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-10, 10}, {-10.135334886121127`, 3.0471895529152278`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.816952328387354*^9, 3.816953565958501*^9}, CellLabel->"Out[2]=",ExpressionUUID->"0e64079a-9a2a-4c4c-8b14-86fbec34dd4e"] }, Open ]], Cell["\<\ 1 eta 2 tartean erroa t=6 zifra esanguratsurekin\ \>", "Text", CellChangeTimes->{{3.816952415519973*^9, 3.8169524286685596`*^9}, { 3.8169534173107815`*^9, 3.8169534230186396`*^9}},ExpressionUUID->"6f17f090-7eb7-4873-b26c-\ c56849e5d111"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"a", "=", "1."}], ";", RowBox[{"b", "=", "2."}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", "0.1"}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "50"}], "&&", RowBox[{"err", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"SetPrecision", "[", RowBox[{"x", ",", "6"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "*", RowBox[{"f", "[", "b", "]"}]}], "-", RowBox[{"b", "*", RowBox[{"f", "[", "a", "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "b", "]"}], "-", RowBox[{"f", "[", "a", "]"}]}], ")"}]}]}], ";", RowBox[{"err", "=", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "xz"}], ")"}], "/", "x"}], "]"}], "*", "100"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "x", "]"}]}], "<", "0"}], ",", RowBox[{"b", "=", "x"}], ",", RowBox[{"a", "=", "x"}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< garren tartea [\>\"", ",", "a", ",", "\"\<,\>\"", ",", "b", ",", "\"\<] eta errorea = \>\"", ",", "err"}], "]"}], ";", RowBox[{"xz", "=", "x"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.816952456773012*^9, 3.816952462948365*^9}, { 3.8169525861291065`*^9, 3.8169526085441236`*^9}, {3.8169526564587584`*^9, 3.8169527440592804`*^9}, {3.816953110961756*^9, 3.8169532493285475`*^9}, { 3.8169533541085234`*^9, 3.8169533877611685`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"b49d2a1b-09b1-47bf-a6f6-3ad5c90b1343"], Cell[BoxData[ TemplateBox[{ "Set","write", "\"Tag \\!\\(\\*RowBox[{\\\"SetPrecision\\\"}]\\) in \ \\!\\(\\*RowBox[{\\\"SetPrecision\\\", \\\"[\\\", \ RowBox[{\\\"1.2958562780075138`\\\", \\\",\\\", \\\"6\\\"}], \\\"]\\\"}]\\) \ is Protected.\"",2,7,2,30484168516166605905,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.816953389078785*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[7]:=",ExpressionUUID->"825837c9-377c-427a-8e7c-f937f1bcfd32"], Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", "1.`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1.2958562780075138`", "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0.`"}], SequenceForm[ 1, " garren tartea [", 1., ",", 1.2958562780075138`, "] eta errorea = ", 0.], Editable->False]], "Print", CellChangeTimes->{{3.816953241047203*^9, 3.8169532501791306`*^9}, 3.8169533102999773`*^9, {3.8169533601183677`*^9, 3.8169533891619*^9}}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[7]:=",ExpressionUUID->"fd14cad1-1616-4023-94e9-aa1c9277c613"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8169534102448225`*^9, 3.8169534399888525`*^9}},ExpressionUUID->"fdf87036-028c-4e6b-b59a-\ c0f4ace28e60"], Cell["12 eta 13 tartean erroa", "Text", CellChangeTimes->{{3.8169534550310087`*^9, 3.816953459619845*^9}},ExpressionUUID->"b8743a94-5621-4b34-8a12-\ 9370fe15211d"], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{ 3.816953442690489*^9},ExpressionUUID->"56289d6a-b76e-46b9-89ce-\ 8c55d2289a74"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"a", "=", "12."}], ";", RowBox[{"b", "=", "13."}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", "0.1"}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "50"}], "&&", RowBox[{"err", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"x", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "*", RowBox[{"f", "[", "b", "]"}]}], "-", RowBox[{"b", "*", RowBox[{"f", "[", "a", "]"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "b", "]"}], "-", RowBox[{"f", "[", "a", "]"}]}], ")"}]}], ",", "6"}], "]"}]}], ";", RowBox[{"err", "=", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "xz"}], ")"}], "/", "x"}], "]"}], "*", "100"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "x", "]"}]}], "<", "0"}], ",", RowBox[{"b", "=", "x"}], ",", RowBox[{"a", "=", "x"}]}], "]"}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< garren tartea [\>\"", ",", "a", ",", "\"\<,\>\"", ",", "b", ",", "\"\<] eta errorea = \>\"", ",", "err"}], "]"}], ";", RowBox[{"xz", "=", "x"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.816953475483536*^9, 3.816953478435322*^9}, { 3.8169537415065727`*^9, 3.816953761376049*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"91705417-d82b-4c58-b6c1-4c52ae009df9"], Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", "12.6780852568176332085`6.", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "13.`", "\[InvisibleSpace]", "\<\"] eta errorea = \"\>", "\[InvisibleSpace]", "0``3.6989700043360183"}], SequenceForm[ 1, " garren tartea [", 12.6780852568176332085`6., ",", 13., "] eta errorea = ", 0``3.6989700043360183], Editable->False]], "Print", CellChangeTimes->{3.8169534796607013`*^9, 3.8169535741877456`*^9, 3.816953762547598*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[4]:=",ExpressionUUID->"82f72d52-cbfa-414a-a2bd-5127b69227de"] }, Open ]] }, WindowSize->{1366, 685}, WindowMargins->{{-8, Automatic}, {Automatic, -8}}, FrontEndVersion->"11.3 para Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 206, 5, 69, "Input",ExpressionUUID->"cc14affc-f4d4-4a9a-ac58-f0d7f0745d7f"], Cell[767, 27, 191, 4, 48, "Input",ExpressionUUID->"15458c5a-d145-42b1-acc8-dffce77f19f9"], Cell[CellGroupData[{ Cell[983, 35, 388, 9, 45, "Input",ExpressionUUID->"49079bbc-11af-4743-93ec-f4a72eb7b6b7"], Cell[1374, 46, 280, 7, 32, "Output",ExpressionUUID->"b2a9ad90-8721-43dd-885b-738b39630665"] }, Open ]], Cell[1669, 56, 334, 8, 45, "Input",ExpressionUUID->"7920a7c3-b1d7-4a39-827e-6f97151fa358"], Cell[2006, 66, 9123, 171, 260, "Text",ExpressionUUID->"5e894d85-dc39-4250-a6db-462e5cb9311e"], Cell[CellGroupData[{ Cell[11154, 241, 1697, 51, 253, "Input",ExpressionUUID->"8efb2b22-e7f1-4f99-9ee5-a7ef7f3c56e8"], Cell[12854, 294, 679, 17, 22, "Print",ExpressionUUID->"942542a9-85c0-47e5-aac4-f25daf1c2d95"] }, Open ]], Cell[13548, 314, 191, 4, 48, "Input",ExpressionUUID->"19131f1e-f2bd-4e35-81b1-4aea4c8e5533"], Cell[13742, 320, 147, 3, 48, "Input",ExpressionUUID->"9617b5ce-0ddd-424c-b37b-9c68dc7ecf6d"], Cell[CellGroupData[{ Cell[13914, 327, 305, 7, 45, "Input",ExpressionUUID->"5287c8be-ef7a-4181-b2ab-b8b5b5508942"], Cell[14222, 336, 278, 6, 32, "Output",ExpressionUUID->"373d6c97-af78-4df9-b454-62f9a8edc411"] }, Open ]], Cell[CellGroupData[{ Cell[14537, 347, 337, 8, 45, "Input",ExpressionUUID->"f58acdc5-a7ee-4f34-9712-1c7bb4d4335a"], Cell[14877, 357, 6685, 127, 239, "Output",ExpressionUUID->"0e64079a-9a2a-4c4c-8b14-86fbec34dd4e"] }, Open ]], Cell[21577, 487, 253, 7, 56, "Text",ExpressionUUID->"6f17f090-7eb7-4873-b26c-c56849e5d111"], Cell[CellGroupData[{ Cell[21855, 498, 1876, 53, 271, "Input",ExpressionUUID->"b49d2a1b-09b1-47bf-a6f6-3ad5c90b1343"], Cell[23734, 553, 486, 11, 23, "Message",ExpressionUUID->"825837c9-377c-427a-8e7c-f937f1bcfd32"], Cell[24223, 566, 681, 14, 22, "Print",ExpressionUUID->"fd14cad1-1616-4023-94e9-aa1c9277c613"] }, Open ]], Cell[24919, 583, 156, 3, 28, "Input",ExpressionUUID->"fdf87036-028c-4e6b-b59a-c0f4ace28e60"], Cell[25078, 588, 167, 3, 34, "Text",ExpressionUUID->"b8743a94-5621-4b34-8a12-9370fe15211d"], Cell[25248, 593, 147, 3, 48, "Input",ExpressionUUID->"56289d6a-b76e-46b9-89ce-8c55d2289a74"], Cell[CellGroupData[{ Cell[25420, 600, 1744, 51, 271, "Input",ExpressionUUID->"91705417-d82b-4c58-b6c1-4c52ae009df9"], Cell[27167, 653, 691, 16, 24, "Print",ExpressionUUID->"82f72d52-cbfa-414a-a2bd-5127b69227de"] }, Open ]] } ] *) (* End of internal cache information *)