(* 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[ 26428, 636] NotebookOptionsPosition[ 23854, 584] NotebookOutlinePosition[ 24198, 599] CellTagsIndexPosition[ 24155, 596] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Newton Raphson", "Title", CellChangeTimes->{{3.816958114345563*^9, 3.8169581214086046`*^9}},ExpressionUUID->"8fbe0528-6bfe-4dab-ab72-\ eaf3fccefb76"], Cell["1.", "Text", CellChangeTimes->{{3.816958442795068*^9, 3.816958451003699*^9}},ExpressionUUID->"1174bddb-3471-4f7b-b699-\ 02f1de27f4bf"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"4", "*", RowBox[{"Cos", "[", "x", "]"}]}], "-", RowBox[{"Exp", "[", "x", "]"}]}]}]], "Input", CellChangeTimes->{{3.8169584539345675`*^9, 3.816958474665042*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"9edf6d9c-313c-49eb-aa8f-230692771323"], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "x"]}], "+", RowBox[{"4", " ", RowBox[{"Cos", "[", "x", "]"}]}]}]], "Output", CellChangeTimes->{3.8169584751630487`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"9db7ddab-e14a-48fa-8939-eb42b7bb6d5a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8169584767247105`*^9, 3.8169585091849003`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"f830ff4a-a45e-4e10-83a5-34c93eca9e67"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlnk4Vd8Xxg3Xvefey71XJEQiqZSUqETO1kBSKpQKFWX8liElEqkMJZUG MlUSQogyFvZChpApJFPmlDGpKMPv/P46z+c5z36etd/1rndteWtnYxsBPj6+ W/x8fP//Bl1L+Tk/LwZXtCXdhtgTpJH2A4s1s2Igff3+1fNdP0ixX16lh/+K wTnZnTd+Z/4go20NH2ZMigF9f3dDh+UP8qXB9y0nv1Hn20Syt78cJxu5K6+W NYgBWaDtPx8zSspFP+PdihcDxcDs8WfS38jMzEgVaUMxyAudnqxobCNznyeI zQYsAO3D40SqZhMWbff511krCinKV9ewIsfxw0s6bodlREHve0JK15p/+E/n 4oeRR3gwafejIrdVAAL8X0WVHOJBRORFU80RARBfYxAzbMKD2kUvPNLnBUDN 0z1Jx4gHVvqqtlcVBcFJrP5tzzYeHJMTbXp9RhD69AO6lNfwYFw9W3jnnCDE WXWbuM9ygZR5ptOzSAiOCN30zNHnwr3P8hnLVjMgAElV3NHlwtPR4J+HtRnw yuu5hL0WF/akhcf77mWA8ETJa0lVLvT+uLvuuTMDCjtnRjwluJB3sbFq32sG KOQ6WWv3c+DDzKwvfTMB3x2NDYuuckC7WPd72UYmSCR0RURc4kBKjtyxTXpM 2N7tNOjqTnHEY9GIg0yINrvpr+DIgZDCIrF155hgtOMdvnaAAzkLrYNfpDPh lexGdb2lHNgWGJFcp8SCi3VSslUFIqCnHWkazmADob9iJeSIgG2CJq9bnA1h BeobsjJEYPMj9bvSCmx4lbzP4Em8CLxtKyk9rs2Gb37+591uiUBfS/8aNRc2 HNb88WGxpQjIpR5PHW9kw8bYCp/TM8LQ8ZaQj7snDO8km29Y/RaG1jnP738e CYPxnd4Hh8aF4Xh57GOtJGFwujSXjPqEQeLImrR7WBjiD6l/Eq8WhnWf4gp8 hoRBnB2jWhAlDOW9ikcMkAj8dLvQJaIlDIo/bhj6dohA8J77vY4awmBwY5ix YkAEFJe/HChXFYYQ/wMr8agIHGoeGL6iKAzzf4r8SuZFIHfzoelfIsLwzU1D S0aeA5dm1Rd0drHhhJv3WpYVB8Sb9y/UamODXafQvlJ7DqSmnZYMb2IDv6xj qKsLBzqPxy0xrmSD8Dld/0eXOYCKxVaXvWaDWbzqrW2POEALnNieFsAGy+7u jYVNHIg+ztFnX2GDa+Z60aB2DmhsVt5t70XpLpLVqtfLAdtvVvsVKB0HDLPW 3h/nQIVhvUXYETZsuPflmjuLC7d46ed91rCB8R+hZ0P5SulblUebEhuQtm+i DuW7wqKvXpvl2bCPs6SKoHw5flbu6sRCNhwfF9dzNuaCcdPt27bzLDDQi3nv Z88Ficgzz40aWBCzkNdce5c6f+L72PpqFqzecfePzEMu2Kyw27ywjAU1j/fM mEVzITPzxPu2PBZcG9eLe5jAhQO1JkP2T1nQtNVTYesbLkyF1m3YE8WCsJyX otOFXIix2HtJNZQFjn97amJLuDD6TU/k93UW3D3tlISruRBM26J6zYUFL84U RC/p5IJ6VfYFW0cWvBlWy9vVw4W2uxvA4BQLjBfK3D0xwAVlOZUDvMMsSBb4 6HhklAvlmkvdHpEsaE/8E+xMzaUT36O3vposeGnzI/4aHw8kyqVopzawIKVz k7meAA9OmYqFKq+g6g9J3p4uxAMBZ3pODof6/957cqEwD5I1rs1HEix4ov/C MVyEBwdm5vV9BFig9Uo2XZTLg5gb0y07fjOhcMXP+EFRHujvd5dfOc6EfTWT pnpiPBiV+OnA/s6EhgiPukhxHmyNG/5b38EEE3Ff5ZWLeNDn6LA96xMTPqyr YVhJ8iB4/cDN8Hom8Iw2vAyR4kFr4ReZ46VMyMwWO9q4mAcenxt0hlOY8KRA csGIHA+WxuwLrE1gAnemd337Uh6U21bXvophQqnBn0XF8tR9J0tPeD5gQt9v d42zy3hQ+GZbksVtJrgFrD+trcgDmyv4B3mdCSoBdXazFGdy8q7SLzEhI/NB ykklHlg0aVR9O0/lhJj6L2IFDwSjX4l9cGZC2fYU/niKk61VLdIdmMAnV1G/ aSUPjFelxN0/yYQEvsM2RRRPj60ccbdkgnnp+nzdVZRe2fEaR82YsL9qXXMu xbu8FXy2HmCC64TGayVlHoxtf1K21JAJt6JXmNykOPa0MuP0TiaI+dYNd1Fs Gpqln0MyITh3mefa1TygF6LrAluYUHBGasqN4tyBqoq96kxI/53qkEGxI9eM GbGWCcWfuz8MUCyzucegbyUTsqvzFMWpHK85cSZIdRkTijJ1nDQp9r0xVXlR lglhCd7JhyhWe3WNXbaICc4DgZ//o7ivlbNHdAETJAfP/vOgOEwwMthCmAlj Rod5PhTvWrP8w3M6E0ZGDkp6UfzXNF3kJx8TYspviblQnOKtZaTzj4CNHCUB S4qPJZTdvvGLgP+WGfTpUsyrPVDbOEbAvfDlb5ZQXPynnbv0OwEBa0ev/aTq P7fUfv9/fQTENn3WBYqVDH6GZHcSkJu6bNKP4hZXn3r+zwQI0NlRuhQHRTIX 7P1IgJjlx42/Kf20Sx4Yh38goPzEu/JYikeH5O73lhOgPLrKSJ/iGPEXH9cW E3BG1LSyl+qP8daN4hfzCSgReqjtQTHNtsi0NJsAIw3DeBrF9jmfmsxfEHCl xdtciOq3dJe1xPN4Alis4iRPyh/VxOihiScE7JwQGO+n/LTuKK3l+gMCOk+o 2yYs50HP1TuSjbcJ8Fgk/PAv5b8HL6SPyN0gYLQvrUiP4qmZda1Z3gTskjGm lytQflueL83vQcCjZeby/yh/Wxjpm+85S4D+JbR5BcXwxLK9x5aAEMMv5nbU fJytGJRZa0VAZFmxg9cSHrUX3Cw9zQmwjGo+HyjLg+vbgjq5+wlASPRmIDVf B/qzu7Q1CVjibZC/gppPGmeb/PUNBLwMZdb8W8iD7I0frD6qEHBWz7G3nJpn 6eu9PQ4KBLhlicvsWkDdR5nXH8YmQPfFqrZBKj8emEQt7xEiwBaNyHmzeaB3 SclWhY+AhYurnZgs6j4ftL+WTDLAathuLYtB1evi8G28gwF3nZqNUqi8Cmh0 GzjcwgD5jUd/LpjjQsRmn15oYEBikTOr8C8XgO9+R0g59c6o8PIb+MkFzt38 +nUZDPDot/zi28+FpAzuGxc/BoReCBDsKOVC/kLpnBYfBoiX6djEFXGhzlMx E3kyoNTvfLJFARd+62qm8ZwYYLxhdPBJJhd2NFjHppsxIE427qJrLBe6JrKC xpUZEF2SvXa7FxcmD0Hg4eUMUO/58lvKnQuMt5V+IMeA2Bfq1d0uXFh77YtP iDgDJoIbk3bYcsFLjOm2bo4Oidvyrprtp/aNuoW5Sz0dMoPYxpnyXNh7XmDN +AU6/IpYr2SVxwGX8jNOna50SBjPCC7L4MA9qc/p1f/R4dDRBZ+kkznQXPBS I+k4HQLqPymHRHLgBN2StNanQ2/Q6cNpFzlw9mGOcaMEHQpVErULNnEgLO+0 Z26WEPiuNYPd1Lsll93yNuGlEGwu+F4aFiUCrZbb5x4kCYGIUbJlw13q3SIg fc31kRDs2sqzkPQRgcTd5cHK/kLw8ZGRbtdBEXjTJh8TbSoERJ6euo2ACHTO Npf5/qSBq3zJsOs+YWC/2s//aYQGuQ/VK/13CMNm20otlUEaVFkeEAvWFIZ7 NQXpn9tpsE5/K5/LMmHQexIXqVZGg6edW4dDf7MhFZ116gunAa30z7HjkWy4 dE1EYpcODVqP0NPEW1ggxdxhw70hCDEt3kaXVZhg+mJJ/9BVQYg8oMJdv4QJ IXunT1VcEoSv7etaGjlMIO6lnbriIggL+8aTJqicmZKWOvXTTBCUpU5aXs8g oHnNqPUnJUEoPPomUVGNyqH94SeevBOAuk//XtmtYgArfNhclU8ABvs1/Bwm aGAyf/Ksjw8f3E//yRqV5oPghq+SD1XmcOBuSbUzer9xZ6rPrIn8Pxw5pRu2 tbYf+93W+yZsMIVjEnsZhy/44FB3f//BDb9wkowrq+HxAGnGtbZSUJnAO2jK CV/qf5GtR79cT88cxV0rRi09I+ZIuq/X3g3RozjtIP/2lvw5Ui1+0YLsa6O4 z157UrZrjgwa2xf11ngUm6/1NbZUmie3+EFq2fgIVnUeWpaUMU9Gpj5taF8z ggvb72i8tOJD5nynZJjxQ7j3r/VqPQd+dH05X/fN4CHsOXTNycCTH2Xujo7n nBvC+YJRl3Vu8CPh0Ma14tuHcGmgcutsIj/KX7VTV677OxYbDl9U95UfyZgo 2WrIfsfBuay5HGsB1B4/+NIqdBCvqFMR090riDaYFJr6+Qzimiq9WvejgiiI 78F0gt0gdk7f1vHYThBtMie3D2sO4oMmyu9Lrwiie7ywZvfOr7ijoezzmSxB pO+1ffbmiq84LNQxZ4k0Db3a/3h3dl4/Hud/rVPSQkPEnNtYS2w/VjgzY7y+ j4aOvzB48O9mP5aW1wsNGaMhYfqvDnSsH+ukFvsq0IWQ3VtD1yqBfjwXNjx3 T00IyShNP+wy7MPOeefpT64LocB/Jv2szh5cWOnfumIVHZ0KU7oUU96DX8qm nPZSoyO0fnrBxowe3LD8az7WoqMp28fIyq8H+75Y5yltREf2DYNROco9WHyl ya1FZ+lod5K38akL3fjHrbsPV+XQkdKO/d+mT3Rj8tdzf39MRwJfFHzv7O7G kksj39SX09Fb8YrUN7LdmNnK376lhY7W+C5gir7rwkUrn6ntm6IjjtlzXMDr wnK5DmOeGgzU2PszJWHyC85Wqxht1magW1IRrfXlX3Cr8faSZTsYaM6vV2Ol 0xecdLSnNtiYgb6Yeww3vunEad66OVFODBTLjD2y1rQDL/k0XJ3wjIGOkvqB R1Z04NU/nYdmkxhI7Pxwpt/fduz1YPDsjnQG8uvayGuLacfWc+6xT/IZyCan qixwpA0r7XX5cKuRgVba/NrQHdCKbXo607fzE8iMHRusc6gVV4jb+fIxCBSQ YdQftbwV73Y5vj9JmEB9s8/DDr37jN8dm6gvXESgp2FHp6v4P+Nz7x9fnlpD oDpthvGq+hYc8u2Mu7gagfh6XycHxLTgxnB5VZlNBDqmKmKhS7bgE103ykcR gaQrcGH2pU/Yf48DfmJCIAOn04vE93zCmamq45KHCeQhLuXiuvgT1rEzSfC2 IFDzibPya940Y5ndTH+mDYHuTSv6Pf3ThHX6jHWUzxOo6El9+1xZE15hPFY1 50Gg8Z0+GhZhTVjexSGu8BKBjO59GpDQaMJnSw5I8fkRiL06yCD4bCN2v625 58ZdAm2p3xj7TbcRc5TrHXIeEMjxQu9fPdFGPCVVH1H3kEAVJdop/Okfqfl0 XPjuEYH+OHyjHb/8EcfGGZg8jiGQEi/MMt/oIx5Ikb5+8hmB/CzGOBdGGvBE 3oW3aYkEei0QbdeY34Bp9kEp6i8I1JO4C9YHN+DK5GjP+FQCoV9PXYeVG/B0 3opb+q8INHPLtNHKvh43RXt1B78h0Gp1fhW8qR77zUxO2+cT6Ghrqr8Mox4f TBV7o1pIoFwlxqZP8XV45Er6Iu8iAn2tfn1H/XwdlmZ4JQqWEEjC7cTg3R11 2ODptfJz7wj03cdtQ0RZLeYmb3soUU6gXVXVfSY2tZgTFKilX0GghEVKYRxa LS60XnHQ+j2BaKcu67+PrcHuC+c67CoJdDK9Zeqabg1+VT5Wa1ZFoOKZ9ck6 XR/w6d5BRbVqAi01uGk+7fMBOyzqbP5NsU9on3Cm7AfsZ1b9Jf4Dgdq7txY6 5VfjyfZcTbKGQP1G3uOJVhQfeQFvKB59m6/QS6/GfdVXzJfVEuj3yhlT2ZQq PJniJuRJ8XyoVqDZgSqclFOY95ZiQtAr7+7vSjw8nuA2RDHP5c1QVVQlXvLM fS1RRyCpjmlZum4lVjju0y9KscJuzf1o4D0+MyP+4P//lXM8rl68+R5Phz/U GKbOb1DMzcxc9x4fiHAozadY++6fgdGmCuybOKlzkeIdcxulVnlVYOHcxEeK FO/9z93w5NIK3DX/r/0tVf+hlizvR6XlWGvOcer/9zu289fLT47l+O4Fj6F0 6v52r9R7RHnl2Mk9NYNDsYvcOfE9WWXY2DBC7will0fwa72Ao2U4ILg+PoTS 98r0hAfMl+KJhROVmZT+QbZqL/7GleIB4lFGKdWfex9dO9R3l+L+qosHS6j+ RaEMrvPYO2zL2vIqlepvivS6c72a77DE/Eb/XaUEygp0TpD9UoKjrX9MTFH+ KJxMazHzK8H5UQFEWDGBamtUtlbXFOP1DZelwzCBWrTOONPPFeP08Huc6QIC dSWmPEVSxfhUWUfELsqPE1dX07NOFuHdxdgmNZdA/8YcN48RRfiow6bHxdmU fyyTHVelAXZdmWT5LpPS28n4sdYPjF1srljdSqf03VUvkK6FsVHB30emaZSe CvvtFAMKMa/r/gEihdKnee86kcUFeMfgHY7GcwJdTa9+cMUmH2c/3MRLiyPQ /SDD6V8v3+KmuOueYrEEytYxKO7c8Qb3zU+6PYum6knYYZrulIMrg38//hRC IOErJbmKedn41aGCc69vEWiJ+TbZCMFsfDb2vwdeQdQ8ctHAlfBMfHFU7Fnd NSoPL2h5mBRn4HSGYOQtKm+WhZzaPLI6ESfbKg/sO0jNa/mjI3axCXj8p2Xz nf0EapxvvtgtGY+/uJ88lmtI5YGzQUGTUCxeE+6/vESXQNWPLPwu4Yf4i5GD HKbyMyZ0hl9FxpD8oeZrtneOgbqfD61xOO5MuvRsHhKfYiCVhSnBvf+8yK6/ iz+/+8FAHw2D85fuDiIbY2WzOvoYSMnukinpGkEGfGUI/3zPQHXnzsXU0JLI ipPBKOkOA01pa102vZ1M8v3b2D4ZyEByQgLHWhelkItliqJX+jKQU+idxQPK L8mLVtt8d7kwEN38YJVP4iuywt7e22EfA8V7ueiF1eSSfEK+NSpMBnI9ZvLY +lYxGflWwjbVkdq/R0WNpkaKyWOufSHKJ+jo8KHa2VtGJWTlXiunkIPUPjYy tMzjviNH5RI1JRAd8XS2y/DulZKm1vntTHE6SpPdEFkQVkHanFMov5MjhL63 LwiTjKkh/363UGOP0FBnS93ONL5acvn8C4+oLzRU33j713arWrLQRkVXvIGG LGz9kzeJ1pFbxgJNcTYN7TjGzzrZUEdqHT1q/8+HhsSMpivyTBtIr/p9Hiw2 DWWofNOzO9JEdi4fWXdZVBAdWnzw2NmAJrL1eraApoAg+ksUnfd+3UTqzdGM OycE0I6+8Lj7Is3ksYvm9kMfBVBz5C4BKGomVTOlnbmhAmiGkVggqdxCpsQb ffARE0B6PbbqlX9bydi7Wf/+8vGj77UNhk0r2kgz0YOnFcf40J0CnZNdpm0k bZmlhWYHH2oJl7j3O62NjBQRyl+ex4f+21c2pnCyndy4WcWPcOFDIfnLX3hV dZDpbbPrR17Pk2cMJ0IkjLrIYCmPoz+0Z0lakCLjmm0XGZCvvOoVb5aMrDjk PebTRU7aO37f1jdDVux861DxsotssZnd0xg0Qyoiv20XRbvJJ5Y3a7Ob/pHt 6hKTHY3dZGb2fw2XrP+Se5ZsMYs37yWttrInlhz+Qyr/uCKr7jBATtz8vN4+ c5wMe37xNZ/vALnA5WPh9OVxUuCYm8GHsAHSr8Z2sbXhONlWeeq87bsBcr+u 0FOnkjEyOE7/Q7jcV3IwTIk7KDlKjpmJeM82fSV9t9zVdsv8TmYWhreXbftG 7rk8kLI4rZckg19GHZEZJkPa/Lq3ZBWT0z3791p9HieDgjNSW08MY7spYxm3 7p/kTH191gJbfrhCKPZdz/pNyoUmZw/qCMM6UZ9/XmXTpLvrU0syRRxuij9n uz2bIX2CPy8acloMGnZq7eyz8+R91Q6fO0fkYcuRZXOgw48WFK22n0xbDqoz D1g+yQLo+x/O1unlyuC8uKowSZ2G8hWiTZ4EqsIhazWTBMqntg8vrY4qUIP7 Svx9cUsZqGdIVPJxjwYstnsgs4Da++u40gptVZowpXjnwJWFLJSSErmmktAB b9Zb2yIvNqouHrIqc9YF6dVps+fj2CjqsZ1Xf7Eu/A9vHPLI "]]}, Annotation[#, "Charting`Private`Tag$2575#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->{{-5, 4}, {-35.522628236384854`, 3.1015966347876125`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8169584937057657`*^9, 3.8169585095736074`*^9}}, CellLabel->"Out[14]=",ExpressionUUID->"f8c865ca-2884-4cce-b0ab-5c1a275b5fac"] }, Open ]], Cell["\<\ 0 eta 2 tartea errorea 10^-4\ \>", "Text", CellChangeTimes->{{3.8169585380691547`*^9, 3.8169585554327126`*^9}},ExpressionUUID->"c20ffd1c-249d-4f1e-9139-\ bacb9645ed22"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "1."}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "50"}], "&&", RowBox[{"err", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"x0", "-", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}], ")"}]}]}], ";", RowBox[{"err", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "/", "x1"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< garren iterazioan hurbilketa = \>\"", ",", "x1", ",", "\"\< eta errorea = \>\"", ",", "err"}], "]"}], ";", RowBox[{"x0", "=", "x1"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.816958558244302*^9, 3.816958703688239*^9}, { 3.8169587351337953`*^9, 3.8169587643938513`*^9}, {3.816958837048665*^9, 3.816958868317052*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"d111839e-8478-4cbe-a053-6928011969d0"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.9084389501770702`", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "0.10078943643387701`"}], SequenceForm[ 1, " garren iterazioan hurbilketa = ", 0.9084389501770702, " eta errorea = ", 0.10078943643387701`], Editable->False]], "Print", CellChangeTimes->{3.8169588693808203`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[15]:=",ExpressionUUID->"3b1630b5-0bdb-4227-9d34-528d6ea7e9ca"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.9047940616723674`", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "0.0040284178014672175`"}], SequenceForm[ 2, " garren iterazioan hurbilketa = ", 0.9047940616723674, " eta errorea = ", 0.0040284178014672175`], Editable->False]], "Print", CellChangeTimes->{3.816958869388256*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[15]:=",ExpressionUUID->"df9351b1-f74d-4de7-aaae-dc5ab19c367b"], Cell[BoxData[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.9047882178880454`", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "6.458731674957217`*^-6"}], SequenceForm[ 3, " garren iterazioan hurbilketa = ", 0.9047882178880454, " eta errorea = ", 6.458731674957217*^-6], Editable->False]], "Print", CellChangeTimes->{3.8169588693958745`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[15]:=",ExpressionUUID->"e48bcf36-a44c-420e-9a59-e68b82bcc6b9"] }, Open ]] }, Open ]], Cell["\<\ 2.\ \>", "Text", CellChangeTimes->{{3.8169589174508514`*^9, 3.8169589229470215`*^9}},ExpressionUUID->"4e12ccef-1813-49fd-af70-\ 070a483eee03"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8169589254888783`*^9, 3.8169589268837924`*^9}},ExpressionUUID->"21d61340-875d-4ebe-8b5b-\ 08e567077284"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "x"}], "]"}], "-", "x"}]}]], "Input", CellChangeTimes->{{3.816958937751292*^9, 3.816958960964655*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"3da9fb20-cb75-41c2-8c9e-f3bc789080ea"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], "-", "x"}]], "Output", CellChangeTimes->{3.816958981200821*^9}, CellLabel->"Out[1]=",ExpressionUUID->"9c9ed0c1-d949-4434-acf5-8a1b252b7d8b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.816958997253731*^9, 3.816959021221179*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"6aee191b-6abb-4a23-88e6-48ec98aae2cb"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1Pk/1PsewPEJWcaYz4w0Dw5uyppGhNDM4ftORalMZkS0iKPDKfvcFilx srTYSk6lQ7Ya0qY408b3nU62cqOkkqyRJMJDcaJu54fX4/UfPOcHhIt3KDAY jIgf/fs9jQ9Oyou5eObZ9+hFDzeC9d9hPjMFXEyzufGayDaC5+Vtct09XLwX frdFVu0Jpw84STfpcTHbZ36ylCcBg7HGmPU6XJxTam6UqSqBS0FbE5x5XFxS ddyk8h8xVIoPZPE5XGw2eii06hRDr9kdOUOJi563pY9PFIvB8vnS6eIPHCw0 MKkUOoqh1sIiceoOB4Mng3Ai1AO+dOiezvbhoOCkftmLVhEkJd4498CLgy5B vxhsvS8CLf6avCEJB5XPHjo6WioC6+g9JU7uHHwubfiPa7wIwuY03+1x5iCb KVhcxBfBW9ekLnM+B9vydlbqJblDkX+3ZM8MQRt/XyVcsR58Zh+PlrsSFC5Q zCt55wZJoFOXvpzgefGot16LG9yIkfGChQR/Whpcn4NuwBp7cFPbkmC/5+3S x2fdoKpj+mM0j2AjEdm8WucGC26FBfzcx0ag8rMKK9bA4E7x2vu/s1Gd03Ou 7MRq2N+ko/+oUgPlARlTIZEuoOpqaoZyDRx4W9iQ6O8Cf1Ta2lSUaWBFd6jH JQ8XuHFJtOb8BQ0sUXy5hWftAu8TEndLUzXwQN/m3dHjq2DTstFG3a0aGNEQ MTdw3yqwK6iLDZlmYb2fVJZ+bCWMS/d2aQhZmLPPfUn0/5whZV1m786lLDQf NVszv9oZjIyv9ddasnAvNdjUXOEMXq39Q/FGLISsX7XX5TjDLQevqQkNFvaP zukpCnGGAzO2mh1d6sh3/HllD8sZlJLHVlxNUkdL91sOgZLlwMsOlbk/ZeJX vYyWgmEKqrYPjix5zERP3sbb3JcU7DANcphbw8SGtcZw4j4F5eXb61/fZmLP MctZ1aco8Hgi+RCcz8SFNxmfBoQUpCgJLA9HMHFdVe6Z5alOoBCuLJezmZgc /ai6TugIIyvO1xisVcOcQP2T+Q8FUBBirhKySg3t33r36pQLwDOrwlVOqaFb 5sfFuQUCuNX/qG69rRr2beVkNhwSQNzRyYb9+mp4lDTllwkEwHni8aRlRBWP iZriy24sAytfpZdHTqni5XnJNU6lDhAV8dv7T29UcKSP8+n5PTtYv1uB/2mv Mg6/TtBT2WEDHTOtNXHjSlibkTYz4GUFOmord5Cjitj6LJlf07kImGeGNlsy FNBk0P+67X5TkHz/JSo2loE6foFdbS8MIeXpO+3TFt9o3z9WTd6eMICOK7Ez kvlf6XZR5zSVpQcJaS7vWWsm6WHTSYa2WBuy9iQmDthM0JeLubPm+WqBNwnw X2AxRmsJIkv8GFxo8+08cr18mL4q451MS2dB+4WBa/5ZA3TMG2MbOlAFkr9K +pgdPbQs3fpQrpEimO2YsOlOaqMrhTa7/F59o9q7HavC7j2mT+70L4zP/UIZ ZgQ6fFxUTK8+YfXFP3mUitwmyQ1IraZiA80HvNXfUWUW712CfJ5T505s8/M8 9JIKXTuWwXPvojbcKdas3yynzEfj9W1/66fYYdGBLj810FTKtXM+ekOUsWNw RmjBG3qqZ8N6/1efKDv/5VHtR/rpoEmxnrR7nIo7YDromjRMx6savT1S8Zka bg398rh1jLbixn6NqZmi7P9q9E4+9Zk+riVTlxZOU7qvlg0d/jJFLw2ybleP +k41eyywM7edoQU+ht/QaRa8M5294agHAy2nTzFjLylADf9wdFfvLAzXfVRV YqsExmYxuk8zFNErwFpyUT77h5OacUpWszHTZNbbIgMVeHqhVjR8VRl1g07p aRarQka237ihmypOGqV7xM9lwsO9UU1DNWp4kHn31/sx6pBZPbSsfpk6rgsp NYxgaEB2i1jSWc/CyLWKbwx2sUFJyrXc5cjG7QV8n/9GskFY51Dds4KN7lMb n9fuZcOHxG4HXzc28mXFjWEJbMg04Tav9mZjv4J71b0cNjhm+F4zimSj750z 5zc1scGJ997uRREbnRcuDshYSiBKpKxmxiJoFefd0Ssk0DKeZ/enJsF5L+J8 7Z0JDKbscuPoEJxOeCbucCewW7PHaNKY4F9d+1bwgwlc1T8uq6EILjrzwKgu m4BGqfvENukPF0eG8nTzCWwJkKQ3RxNUdeHph8sIhJbXcFbG/XByPHgur5xA 6nWXBrNUgnkitnJgI4ErQbU6oxcJpl20/13+jEA7vWU04ArBgzPbvzHbCJTY /XO95SZB39Kbn8v6CWwyPDsgR4KrFd5Ezf5IIGUVbl9YS9DeR3lk0zgB7U7B /exGgibXLXddniKgnq/LZLUQ1FLxeff9O4Eyi93Cg20E/w8xtj4G "]]}, Annotation[#, "Charting`Private`Tag$2408#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->{{-5, 4}, {-3.9816841740736995`, 87.08077859862385}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.816959011818658*^9, 3.816959021778184*^9}}, CellLabel->"Out[4]=",ExpressionUUID->"2c7aee3b-98f4-4eaa-a8db-39364e2f690b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0."}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", RowBox[{"2.5", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}]}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "50"}], "&&", RowBox[{"err", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"x0", "-", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}], ")"}]}]}], ";", RowBox[{"err", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "/", "x1"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< garren iterazioan hurbilketa = \>\"", ",", "x1", ",", "\"\< eta errorea \>\"", ",", "err"}], "]"}], ";", RowBox[{"x0", "=", "x1"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8169590496678796`*^9, 3.816959202674452*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"4f8af452-94c5-4224-be93-87aad2e50f36"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.5`", "\[InvisibleSpace]", "\<\" eta errorea \"\>", "\[InvisibleSpace]", "1.`"}], SequenceForm[ 1, " garren iterazioan hurbilketa = ", 0.5, " eta errorea ", 1.], Editable->False]], "Print", CellChangeTimes->{3.816959203663973*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"f2d5cf46-f141-40c9-ad25-34eda325f4e1"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.5663110031972182`", "\[InvisibleSpace]", "\<\" eta errorea \"\>", "\[InvisibleSpace]", "0.11709290976662397`"}], SequenceForm[ 2, " garren iterazioan hurbilketa = ", 0.5663110031972182, " eta errorea ", 0.11709290976662397`], Editable->False]], "Print", CellChangeTimes->{3.816959203667346*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"e82bb5a3-2c18-4428-8a04-1775fb4aa41c"], Cell[BoxData[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.5671431650348622`", "\[InvisibleSpace]", "\<\" eta errorea \"\>", "\[InvisibleSpace]", "0.0014672870783743904`"}], SequenceForm[ 3, " garren iterazioan hurbilketa = ", 0.5671431650348622, " eta errorea ", 0.0014672870783743904`], Editable->False]], "Print", CellChangeTimes->{3.816959203672944*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"889a1caa-2e7a-415f-9074-8fd3c8733dbd"], Cell[BoxData[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.5671432904097811`", "\[InvisibleSpace]", "\<\" eta errorea \"\>", "\[InvisibleSpace]", "2.2106391984397624`*^-7"}], SequenceForm[ 4, " garren iterazioan hurbilketa = ", 0.5671432904097811, " eta errorea ", 2.2106391984397624`*^-7], Editable->False]], "Print", CellChangeTimes->{3.8169592036763544`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"1053fe82-31ce-48b6-ae7b-32b8af35ac17"] }, Open ]] }, Open ]] }, 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[CellGroupData[{ Cell[580, 22, 159, 3, 96, "Title",ExpressionUUID->"8fbe0528-6bfe-4dab-ab72-eaf3fccefb76"], Cell[742, 27, 144, 3, 34, "Text",ExpressionUUID->"1174bddb-3471-4f7b-b699-02f1de27f4bf"], Cell[CellGroupData[{ Cell[911, 34, 335, 8, 45, "Input",ExpressionUUID->"9edf6d9c-313c-49eb-aa8f-230692771323"], Cell[1249, 44, 284, 7, 32, "Output",ExpressionUUID->"9db7ddab-e14a-48fa-8939-eb42b7bb6d5a"] }, Open ]], Cell[CellGroupData[{ Cell[1570, 56, 338, 8, 45, "Input",ExpressionUUID->"f830ff4a-a45e-4e10-83a5-34c93eca9e67"], Cell[1911, 66, 9841, 178, 240, "Output",ExpressionUUID->"f8c865ca-2884-4cce-b0ab-5c1a275b5fac"] }, Open ]], Cell[11767, 247, 182, 6, 56, "Text",ExpressionUUID->"c20ffd1c-249d-4f1e-9139-bacb9645ed22"], Cell[CellGroupData[{ Cell[11974, 257, 1289, 37, 197, "Input",ExpressionUUID->"d111839e-8478-4cbe-a053-6928011969d0"], Cell[CellGroupData[{ Cell[13288, 298, 581, 14, 22, "Print",ExpressionUUID->"3b1630b5-0bdb-4227-9d34-528d6ea7e9ca"], Cell[13872, 314, 583, 14, 22, "Print",ExpressionUUID->"df9351b1-f74d-4de7-aaae-dc5ab19c367b"], Cell[14458, 330, 584, 14, 24, "Print",ExpressionUUID->"e48bcf36-a44c-420e-9a59-e68b82bcc6b9"] }, Open ]] }, Open ]], Cell[15069, 348, 157, 6, 56, "Text",ExpressionUUID->"4e12ccef-1813-49fd-af70-070a483eee03"], Cell[15229, 356, 156, 3, 28, "Input",ExpressionUUID->"21d61340-875d-4ebe-8b5b-08e567077284"], Cell[CellGroupData[{ Cell[15410, 363, 296, 7, 45, "Input",ExpressionUUID->"3da9fb20-cb75-41c2-8c9e-f3bc789080ea"], Cell[15709, 372, 227, 5, 32, "Output",ExpressionUUID->"9c9ed0c1-d949-4434-acf5-8a1b252b7d8b"] }, Open ]], Cell[CellGroupData[{ Cell[15973, 382, 333, 8, 45, "Input",ExpressionUUID->"6aee191b-6abb-4a23-88e6-48ec98aae2cb"], Cell[16309, 392, 3982, 82, 240, "Output",ExpressionUUID->"2c7aee3b-98f4-4eaa-a8db-39364e2f690b"] }, Open ]], Cell[CellGroupData[{ Cell[20328, 479, 1217, 36, 197, "Input",ExpressionUUID->"4f8af452-94c5-4224-be93-87aad2e50f36"], Cell[CellGroupData[{ Cell[21570, 519, 501, 12, 22, "Print",ExpressionUUID->"f2d5cf46-f141-40c9-ad25-34eda325f4e1"], Cell[22074, 533, 574, 14, 22, "Print",ExpressionUUID->"e82bb5a3-2c18-4428-8a04-1775fb4aa41c"], Cell[22651, 549, 578, 14, 22, "Print",ExpressionUUID->"889a1caa-2e7a-415f-9074-8fd3c8733dbd"], Cell[23232, 565, 582, 14, 24, "Print",ExpressionUUID->"1053fe82-31ce-48b6-ae7b-32b8af35ac17"] }, Open ]] }, Open ]] }, Open ]] } ] *)