(* 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[     36549,        906]
NotebookOptionsPosition[     32261,        826]
NotebookOutlinePosition[     32605,        841]
CellTagsIndexPosition[     32562,        838]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["PUNTU FINKOKO METODOA", "Title",
 CellChangeTimes->{{3.81695457761156*^9, 
  3.8169545822038603`*^9}},ExpressionUUID->"4827b71a-6361-41e5-b064-\
8f3b7f5ced56"],

Cell["\<\
1.
\
\>", "Text",
 CellChangeTimes->{{3.816954766193478*^9, 
  3.8169547684319243`*^9}},ExpressionUUID->"db3dc770-b2fa-4c25-8e69-\
1caf315083cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"-", "x"}], "]"}], "-", "x"}]}]], "Input",
 CellChangeTimes->{{3.816954983455762*^9, 3.8169550003841715`*^9}, {
  3.816955032729024*^9, 3.8169550329648237`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"393a8a4b-8d31-49fd-b2ec-2c7f8a948675"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", "x"}]], "-", "x"}]], "Output",
 CellChangeTimes->{3.81695503380853*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"431ef36d-2376-4f25-b655-efb67f9e1297"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", "0.6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.816955036569899*^9, 3.816955056921835*^9}, {
  3.816955143011978*^9, 3.816955164668*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"1ecf4112-1a6d-41cc-8a74-76a46208fb1d"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVkHs0lGkcx4d0OVo1pJoiTdqSdCFitPEbUVimWpc6MWqKyoqMS9HU2Iku
TNuY1sml3DKx807UxLhOedoycdRpRSvVWd533rWckGJJdmv26Y/nPOdzvt/f
9/t7nhWH4oMOGzMYDB4+X++XZ1hGDAYJg+1H/8jbroUQxpMgLmY/zySniG1a
6MgQ35Rgbpv6kG0LWmiX6n2NjEhYs9E/pIqjhfv5lTJjYxKYrP3TDx20oNBw
rWeakMC6tOzeO3MtxA9Hu5nOISFa0rHQr7cJZvMb4yyZJHCXjLONU5rg0fXq
pRkrSHgwS7GWk9cIR1xb57Y7Yb129arYxw3Qub4OkBfODxMf7ftUD+3nP9fM
CyaBYWJSaWddDwRHEOsaSYKwUhEZxasDy0Crww3JeN+C0iZxXC343VOXDp7H
fqvG6Z4rGoi8eJD94SrOSyiZuVxXA6Y1MWTwryRwcpjMgIFqyHfP/ktWT4Kk
hZ7gs6ph1FrmkNqK34sa+yt4d6FT0F+t7SGhR5A+3JeghkLD3rSXg7g/Q/fl
rf8dGPtiK+VN4z6NyHuGrArMw9t6EuZSIJRyH8tf34LFFlnHjltRIF/UcLzF
RwWEfZmnbh0Fjq9yCz/+rISVhd2h/2yl4P2fMq/WsQqwj4+sEu+kgPHGd0e5
azl8LG73rT2A85pVF9+nK6DKnrdaF08BV1MWrRu+AaOWa7ZvPEsB28R/vMml
FFjhNsqEKxQIfPqnBC5FYPrlHe/QDQokBTsMhvnXINOI5VJVTQG51+f5DGUu
jBzg7+94iPOW+QXSohzotfnUxnuB+61PNPiYyiF/i/DkqX7M7O9D20KywP2u
cbR4Aud92FaUbJoBRzJHCt7M0oNk2Vr2q8RUEDWNz7dYrAdGJClSnzwKe/1f
tE2uxizMmzPJsUMPOGYPN3Mwp139VpoSi5gZBw2Bfniey3n8W5cIDa+fJ27e
pwfu6Z9aLLeeQ2rnbs85MZgd5HRcgRR55KZ6M0R4fv6MsNcxchS6Lykz6JIe
BBqz4YknOSg0JctcfF0PpdO0rHUsF1ETH18bVemBHdI6nMy/hjY/5w64NGP/
aNoP2bVFKGF2uRv3mR7Ut3qHvGJKkXvxwbbyPj3IA20vsazK0GC2exE9qgdh
y87E/tsKJOgd0vxuwPssVAWc3lKOoi5PfrPInIYOdsFF/kAF2pVnTbisoEHi
o4rbnqJET7O5ijOYHXmFqZ5pSuSXGVXUgll487PY7bwScU9VXgmxpYGdMC/V
PkeJHMO3ipJXYj/1o73ZHSWyWM4P0KyigctccLbrbyXqrrg+4rwW93lcMOHv
IVBQCRo4jVkSJooIiSDQszyaeoTZcU+fOjCKQK2ZDt3BDthv/d8Oj0QCNcRo
m5PW0bDbJ93RRkaggg1vsms20MAceTLVqyPQIjtD1r+YBd1dU91PCfTL8pXn
vDfSoD7CG3/WRSAp81hqF+bdt6++bKYIJBqbFow7Yt3tTETxZwJNvrUJ/84J
59VbOOWaqFAivS00A7PQy8pwea4KHXsh9V+wCe9HpEvFS1Ro8Olt73DM8hLK
9wRbhaJ0nR4KzGRntSHWToXI+5NuQ1/1XZN3ozaoEL9u6SZnZ/wftpX7+ZtV
6H+3XmUi
       "]]},
     Annotation[#, "Charting`Private`Tag$4232#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, 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->{{0.5, 0.6}, {-0.051188360745133554`, 0.1065306564339995}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.816955052214677*^9, 3.8169550573946953`*^9}, {
  3.816955147904565*^9, 3.8169551659527693`*^9}},
 CellLabel->"Out[11]=",ExpressionUUID->"50a128e7-7256-484f-84e6-2e252d4fd26a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g1", "[", "x_", "]"}], "=", 
  RowBox[{"Exp", "[", 
   RowBox[{"-", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.816954781689711*^9, 3.8169547950917606`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"9721b20b-278b-4df3-a3da-baf3f34d6d9d"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{"-", "x"}]]], "Output",
 CellChangeTimes->{3.816954796612941*^9, 3.81695482882862*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"61922bd3-9343-4725-8c69-f6894d83a57f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g2", "[", "x_", "]"}], "=", 
  RowBox[{"-", 
   RowBox[{"Log", "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8169548181228423`*^9, 3.8169548404563446`*^9}, {
  3.81695487398695*^9, 3.816954876968232*^9}, {3.8169549546328793`*^9, 
  3.816954955635223*^9}},ExpressionUUID->"282724c8-d95c-4ffa-99f3-\
ffc34581582c"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"Log", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.8169548786475058`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"4294f7e5-64a8-4115-923c-909020f6221d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"g1", "'"}], "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"g2", "'"}], "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", "0.6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.816954900835225*^9, 3.8169549662286525`*^9}, {
  3.8169550668130536`*^9, 3.816955067174453*^9}, {3.8169551126635017`*^9, 
  3.816955112924883*^9}, {3.8169551733918796`*^9, 3.8169551779469337`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"bcfa1e2c-731e-4375-b919-8b7679fe14a6"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVz2lQk1cUBuCEWmBcqEaKFBEF6kKBsMqi4om4oGhsyzLUhlEURAZQSHFB
FmsnMkYcQVwKigtLI+KAYkCkIjlUpSB1qBUkolW/e68IVpZhEVms6e2PM+88
f855j+22hKDtRiKRSM7n/9SnWYpFIgE89zZMaGMYhoj+CJJxz4kZGz3K/VCV
/stB7jd3UkeiuJszaYBYLMC1irhBC+66vLIsIyMBUDHam7KDYXGVzPrTSQIY
R98b8o9mmNAT4z3ZVIC0D3ZLWiMZmoT/utN8ugAuqL8+vJnh3XytlcpWgPwP
xvNiQxhGezVOaXYTwGxa/PHcQIaPnKsBVwhg3qFxmpDx+xn/VpoFCxBofKD0
pBfDUp+IeK9IAbyvto1SJ4bmG2Zvr9ktgHxLgnWMHcO1tysKujMEuPzSpN7e
kmHk4a3zBk4LkLHnc/FpM4aTK2OF4BIBlA3x/n6TGOb5Zr/KuinAIu161dlx
iv3WWY7JjQK0haw2dR6g+CiiU1v7RIDesj0V719TPGcIO6DvFqA1bJV073OK
gx/tMuXjArhf+V7n3EpxhqLpiXIKgZpIp06r+xRnSY7E7ZpN4ODJ3dpbSLHU
oWh5gxOBZblxNaduULQ/1x46vIyAUWb//XllFB0SIsvTNxLo6GkUdxdSfH+h
OeDGFgIvAld/8yqXYrmDfEFDAoGBEH1aThbva75otctPBNw04cMphyhaKmwu
K3MILM3ovGaeSnHyxz75tkIC7e5v5FRJUS229CzXEgj4siiodwfF3i3hmx/e
IaAv0CWXbKb4wmasSd5GQNd4u+9iCMW8JYl793cSsIxsyH0QSNH3ulFM+jsC
htv7lpSsoBit7j3zzJhC4d/OG37zpphya+gzySwKz8/uqldLKYata2saWUBB
wCRf1XyK9T7T7iz2oeBf3O2tm01xumqrYcNaCtmSx6kaCcUeZ7N03SYKBpcP
Di2mFCs82pebxlL4ZCjgcJGBoN/PyStFKRQa0i8nlo4QDN2UpA46SkH7VtIx
2MO978iM9HwKB8Mkj18zguTd+6ficgqy2hwPm6cEF/8l6/LUUbjVURWvfkhQ
aaLxlrVQqLbusjzXSND3wtYmzUsKifuvwXAdwe5s3/Osn/9XbL7mXRXBiBdv
q/40UJjq5yZaVEYw6tjIVIsZDMIm0lYVFBH8Ote61NOWgcnQiqD6MwQfZMuK
07jHmqtr87jXqqPO3+MWXz00X8kt21+WE2LHQHrCcdyW21WxLGW3PYM5dZoS
VR5Bydzw9VXzGZj1Bc4MyCXYfim/1+Mrvs8/2LnlFMGgi9iVyn1lrKvwEndL
LiN3ueOKHlv8yN2odmwPdmQw/nut2JW7JrZWl+TEIGlN5bOckwTPSJ9lV0oZ
NCVsLAg9QdBioeHIBHfFG6WVlPvEXPtDK10YLFzXd8qYO3N6XHIrt+bGQObN
HIIpg+MRQ64MDFL71C+4R/6xUSx1Y5CB00YHjhP8gfmHqrgVLt/uaeaOa8tc
N9OdwZNSmpjK3f3g6koFd7/WtT+YO6rhkV8xt1eefqcTt1A34v2Wu+s7fc8k
7vBqK3cPDwY+wy7xz7MJ/gcygaN2
       "]]},
     Annotation[#, "Charting`Private`Tag$4281#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV0HtUTAkcB/CZIaVWL4mlIskrFBWm8JtFHkucJrGdySoRW9KKtYnyGG2v
VWI90mNV6xEztDUqUb82tc0pq4yM19m6D1ZHkkrNujP33r37x+98z+ec7znf
c36u2+PkOyUikShQuP/z2ZEJYpGIAPmoNpbnedwkapXLBC+fERd2VHC7Mum3
Y4KDNn2JHMdjSwa1WiwmYMgm8zTL8lh7UZUlkRBwoKYz0mjksUQjczIbSYBm
g9NDg4HHuPe7F1laEJB1Lb9osI9H87C7sQ62BDSonDcbunh8kFc+UelKQKl4
2CKllseohc1WLfMJcA75w7qwgEfd3ErArwi4NeLf9eeShf0UtsI6mIDOjPYm
z608li4O37MwkgClY0X8ymU8OqyftLP6gNCnDcwoZx7X3C+73J1CQKbVUb9S
E4eRqRFT+s8RcNZq3BNNJ4eWFdFE8DUCLGOHKhLrOLwozX6dVUWArWzXyqLL
HPY5ZXkkNBNQrGr1Pa/kUBf+pvzecwJUS6s8g3ZwmM9vSX7WTQCbeWbX1tUc
DnBTMwIZAtLv9odKZ3Jop9A+32dFgntWhNub0RyOt0+P2TuJBPOXrR91vSyW
zipe1jSHhJ/9ZE/z2lh0y9eHfFpCQq6H7l1hBYuz4iLVSRtIGChtW/fTORYN
hS2r72wjYVIrYeObwKJ6VuD0pjgSGmZbXLLZymKfw8wAz+MkRBzv8XsBLE5Q
uFzfl0MCVy6RNk9j0ZL7ELi9iITa7TVNsZYspokn+KjLSZiWb1M85oMJe7eF
fdveQIKT/d68xicm7HT5rA3sIKHTLkeeVGXCi37fHzz0hoSrkhGGvjwTSn+X
7E4aIuFFqnvxnhMmjErrzX01ioJyr4DBT1EmTKwZtLEfT4GZ7mzOsUATblnb
oR2eToE+QH+t2seE9YvHNPgupkDt+mez2UQT2ioj+PVrKHhumD7za7EJ38+1
TqoLpUCzvGPjzX+MWOatX2YRTcE3JW7B7F9GXHo+YYUokYL061zs0B0jhoTu
T5NnUrBwlXrl2HzBP6bbJeVR8Fbbf9TxpBHJIcNLsZqCU0GiF6uijej7WPbW
p44C7euU0y5BRtxnfmWR7BEFjTemhrRLjSgtjNBe6aKg0kz2rmqKEbuzpQV0
HwWfHHOq9482Ynhnj6aNp2D3kav+rQMM7jg1/IWjHQ1M/fj28JcMbrzgVOrj
SsMvI8+61z9g8GG2rOSI4DqL5niF4DVpOwoaBW++/7FhuIFB2SFVzqapNPio
pu2ZK9hLsSTxgBsNf5tbUZfqGbSfHLZO407D52SN4mAtg/qreb3es2noC85J
8axiUP4rvj0sWKLxm99ayeCjCzT5QHDMpaddUYKb0zz0wR405P/QFVB4h8Hq
6Ht1++fQcKoJfMdoGMyd9yq7Yh4Nu3TjinrKGHScwacbBY+10x5OFXxmstvJ
FZ40HGz8LtRNcIZtTMITwf5mh50VtxlMHGDCB71o8JI/1raoGRx+56Lwn09D
f66xJkpwPL08RCk4eINDmURwTEfG2rELaLA7ZFvip2Kw++GtFQrByerBy/qb
wj+bdEtLBJe3NBbFCyZqhxf1CK68rbxiLTiscuICb28aCvy9VDduMPgfy1Cq
6w==
       "]]},
     Annotation[#, "Charting`Private`Tag$4281#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.5, -1.9999999918367348`},
  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->{{0.5, 0.6}, {-1.9999999918367348`, -0.5488116372140501}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.816955108087288*^9, 3.81695511355448*^9}, 
   3.816955178996052*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"791cf85c-cf2d-4002-be9e-1a0a397f6720"]
}, Open  ]],

Cell["\<\

konbergentzia aztertuta, g1 erabiliko dut , Abs [g1\[CloseCurlyQuote](x)]<1 \
baldintza betetzen baitu
t= 6 zifra esanguratsu erabilita\
\>", "Text",
 CellChangeTimes->{{3.816955191481924*^9, 3.8169552132421093`*^9}, {
  3.816955769087895*^9, 3.8169557943641973`*^9}, {3.816955830126009*^9, 
  3.8169558359037285`*^9}},ExpressionUUID->"49feb237-d990-4dde-8b03-\
2d6564eed04f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x0", "=", "0"}], ";", 
  RowBox[{"tol", "=", "0.1"}], ";", 
  RowBox[{"err", "=", 
   RowBox[{"tol", "+", "1"}]}], ";", 
  RowBox[{"i", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"err", ">", "tol"}], "&&", 
    RowBox[{"i", "<", "50"}]}], ",", 
   RowBox[{
    RowBox[{"x1", "=", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{
       RowBox[{"g1", "[", "x0", "]"}], ",", "6"}], "]"}]}], ";", 
    RowBox[{"err", "=", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x0", "-", "x1"}], ")"}], "/", "x1"}], "]"}]}], ";", 
    RowBox[{"Print", "[", 
     RowBox[{
     "i", ",", "\"\< garren hurbilketa = \>\"", ",", "x1", ",", 
      "\"\< eta errorea = \>\"", ",", "err"}], "]"}], ";", 
    RowBox[{"x0", "=", "x1"}], ";", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "1"}]}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8169552218929763`*^9, 3.816955428923419*^9}, {
  3.816955489933298*^9, 3.8169555095466375`*^9}, {3.816955548634739*^9, 
  3.816955548782323*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"48e74e0c-cb1c-4e5a-9bea-de4b345f75e1"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" garren hurbilketa = \"\>", 
   "\[InvisibleSpace]", "1.`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "1.`5.698970004336019"}],
  SequenceForm[
  1, " garren hurbilketa = ", 1.`6., " eta errorea = ", 1.`5.698970004336019],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169555143017435`*^9, 3.816955549770406*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[21]:=",ExpressionUUID->"44194bf3-1161-4968-9342-9e32fc3af9b6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\" garren hurbilketa = \"\>", 
   "\[InvisibleSpace]", "0.3678794411714423216`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "1.7182818284590452356`5.499769919708238"}],
  SequenceForm[
  2, " garren hurbilketa = ", 0.3678794411714423216`6., " eta errorea = ", 
   1.7182818284590452356`5.499769919708238],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169555143017435`*^9, 3.816955549779585*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[21]:=",ExpressionUUID->"5baebe6f-8315-4aa3-862e-4cd20db33963"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" garren hurbilketa = \"\>", 
   "\[InvisibleSpace]", "0.6922006275553463538`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.4685363946133843272`5.369713335666252"}],
  SequenceForm[
  3, " garren hurbilketa = ", 0.6922006275553463538`6., " eta errorea = ", 
   0.4685363946133843272`5.369713335666252],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169555143017435`*^9, 3.816955549783435*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[21]:=",ExpressionUUID->"b91251b3-0d52-401c-be61-804016e446b9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" garren hurbilketa = \"\>", 
   "\[InvisibleSpace]", "0.5004735005636368405`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.383091465933331235`5.14142158010803"}],
  SequenceForm[
  4, " garren hurbilketa = ", 0.5004735005636368405`6., " eta errorea = ", 
   0.383091465933331235`5.14142158010803],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169555143017435`*^9, 3.8169555497863855`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[21]:=",ExpressionUUID->"137af91b-f520-4603-b5fa-f4e5d4fd02be"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "5", "\[InvisibleSpace]", "\<\" garren hurbilketa = \"\>", 
   "\[InvisibleSpace]", "0.6062435350855973464`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.1744678968115124179`4.940685530070973"}],
  SequenceForm[
  5, " garren hurbilketa = ", 0.6062435350855973464`6., " eta errorea = ", 
   0.1744678968115124179`4.940685530070973],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169555143017435`*^9, 3.816955549789608*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[21]:=",ExpressionUUID->"fbf0f9cf-9021-47c2-8377-90e65a7b036d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "6", "\[InvisibleSpace]", "\<\" garren hurbilketa = \"\>", 
   "\[InvisibleSpace]", "0.5453957859750270025`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.1115662252538131766`4.700567401343594"}],
  SequenceForm[
  6, " garren hurbilketa = ", 0.5453957859750270025`6., " eta errorea = ", 
   0.1115662252538131766`4.700567401343594],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169555143017435`*^9, 3.8169555497925987`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[21]:=",ExpressionUUID->"33a6eb47-2620-4daf-bdde-13e11e04462f"],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   RowBox[{
   "7", "\[InvisibleSpace]", "\<\" garren hurbilketa = \"\>", 
    "\[InvisibleSpace]", "0.5796123355033788371`6.", 
    "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
    "0.0590335081440867126`4.470068596846519"}],
   SequenceForm[
   7, " garren hurbilketa = ", 0.5796123355033788371`6., " eta errorea = ", 
    0.0590335081440867126`4.470068596846519],
   Editable->False], "\[IndentingNewLine]"}]], "Print",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.8169555143017435`*^9, 3.8169555497955914`*^9, 
  3.8169576536331825`*^9},ExpressionUUID->"6a0898e2-1249-45aa-a230-\
57ca2e6d38f1"]
}, Open  ]]
}, Open  ]],

Cell["2.", "Text",
 CellChangeTimes->{{3.8169576508641768`*^9, 
  3.816957650996109*^9}},ExpressionUUID->"06b1488b-18c7-4e8b-a814-\
ad1255f5081b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{"x", "-", 
   RowBox[{"Exp", "[", 
    RowBox[{"x", "/", "5"}], "]"}]}]}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"53f66b2d-6893-4335-8f32-a2ee909c26df"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"x", "/", "5"}]]}], "+", "x"}]], "Output",
 CellChangeTimes->{3.8169576729910774`*^9, 3.8169578162666616`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"8ae2c8a8-bce3-4963-a14c-6472f4f128ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[2]:=",ExpressionUUID->"55c7deca-9a0c-47bf-a6ce-eadc42bd3710"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVj2s0lHkAh9025Kz7pmEppQuxJklF26+NJLq4FZXkKFbCdttT7W6hpcII
m0WhMLI0GwnVCf2RhMolY4d2vPOmiXFphnId8m774TnPp+fDYxr4k2eQkoKC
ws4v/G/XIEl7zUDQJo7NWSnDyIiKo+FxEcsJt4P2C+QzMrLmVkZWGcsbgV4e
jeOTMuL2SnA/m3UEvMALdUMyGfE5Mln9B+s0HMOEBl0iGemxvuyYyIrBz9pv
ne8TGcn5ZveleFYqkqz5D8MiZSRarWxFHCsfjfq3P03PSYnvvtySkdFyVKtE
5kkkH4gGE+23zYRgelBfq+39MFnmIZU8TahHrv52X3fJEDnTsgEZY03oWjB/
RNI5SAzKdShFxVaELXrm4P/PAHnQ6/iydeNr5BbYb1Cvk5C60GyjfcN89O+3
sfAr6yfjy7/XuhsugMkul70RD/uI0jRP22jZG1wLSLERFrwndkzAA69iISLz
Bb/LC8XkZYxtS4OFCO4G1CbuvXdkUfLQdJGURqXAI+0Vt5cMTYqoTnYvdvP6
YuKL3pL8wcpmzavvoL2X4y25QRNN479kYrEYUdQBq9qlIsI5WhGcY9aHkPvs
BRl2PWRiM08cEtkPhcbsDEXTf8lpm/ryBU8lEHLHVWzY3URUXJ/QbjqI4L99
4+0MBGQmlJ9p/ssQ5hzd1weqd5JVP6jOBVcOwybd2VJvcQfZlmf6Y6mBFNRa
qWRYs52cMT605K2fDBtTY9T3OrUQy+E9GoKdI+gasVLKjmomelojavXyEdRs
b8mmwhuICsksWZo1iuO2ZoOHuXXkmG1lt7rbR7BjHc9T+tWEtz0w58nER7i7
m1extCrI+JChdl/aJ9RUpbjGreaRCq9tyqlOY4hysrRMNkojkS6xt8r7xqAw
tWkgpTYSpj2uXdzYcSzeFWWkX5gH+3UxqSybCQTMa3pm4lwKP5PWacWOCbjH
dJ8/ducRxpsTe49HT0LtPbu026sGGSr+pz3NpiCps+rp1aiHHlWRp1Q/hZCD
6X1xxc/x1flo7w0nppHjrbr2Y9YLKBT5l/TqyqGWHMr32tqKkzdKEnXr5HBx
sK0Mz2pH9aorajoRM8i3Ssr0TeiAjutJy4uas1DbfHE60acTQqu2jnNVs1i4
Olc+6iLAvZswE/t/xpS99fnnBt04WGKnYzz3GVfsrbR1hW8QFZsbLbwzh5e6
aQYrnglxV2KcqbmDAVtuHj2bQOFKdmwAtYvBxlMT8yTXKBzx/LCs2IPBWAM/
oiOTwrdVVfd2+jCwbaoTF/EoxCcdaOAEMhDXOh/d84JCiN310fnnvvTFSvyC
+SIsidF3US1g4N42sHJNnAhz63/7WlDIwHJxv9QwRYTuD+9eF/AYcK7y05Su
i5DsU3bQuZTBLOdXTnuhCIyF56nYKgYBZ4WaEY0iCNuTbip3MMhLvfCwTZnG
o0uThzs6GSysfVL0VJVGqsMhc24Xg+JLUs4DDRput78r30IxUCKGy7P0aDw+
+6opeuDLj1Y6N3gpjTSrtUkewwxMVm813reCxoneLG9TGYP4Yuqy2yoaK3eE
iWrGGPjdardmr6GhosjPT55k4KlsEb5kHQ26wiE0QM6gMP9Ypr4DjapQrjX7
M4MbM38+ngca6Ys0xhmGgX9UYfPUFhr/AbXDjOU=
       "]]},
     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->{{0, 2}, {-0.9999999673469389, 0.5081752737205638}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8169576836275525`*^9, 3.816957821794526*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"7c9875e5-22a5-4a77-afe3-dd13e65355f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g1", "[", "x_", "]"}], "=", 
  RowBox[{"Exp", "[", 
   RowBox[{"x", "/", "5"}], "]"}]}]], "Input",
 CellLabel->"In[3]:=",ExpressionUUID->"6e4c85e6-cdca-4009-940b-6e775bf6f7b7"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{"x", "/", "5"}]]], "Output",
 CellChangeTimes->{3.816957701851509*^9, 3.816957824145564*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"585deec0-5859-4101-ae94-6f4f25adc6ca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g2", "[", "x_", "]"}], "=", 
  RowBox[{"5", "*", 
   RowBox[{"Log", "[", "x", "]"}]}]}]], "Input",
 CellLabel->"In[4]:=",ExpressionUUID->"c0c4430d-4f74-4189-95a0-7f42acf99c02"],

Cell[BoxData[
 RowBox[{"5", " ", 
  RowBox[{"Log", "[", "x", "]"}]}]], "Output",
 CellChangeTimes->{3.8169577113422203`*^9, 3.8169578270642376`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"405a367a-2cef-4aaa-9de6-64fb4b9fcafa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"g1", "'"}], "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"g2", "'"}], "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1.0", ",", "1.5"}], "}"}]}], "]"}]], "Input",
 CellLabel->"In[5]:=",ExpressionUUID->"5aa1d682-d523-4808-89b4-a07ed9db017d"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV0mk0lXkABvCbxhSydWuSbWijbeQgtHiaGzIpnRapSCXb4NRxRcYUyTYJ
DXUxoam5xpJ065yOpTvq0qI0ef+vbcipNEi3kveubynMOx+e85zfl+fTYxty
dEeYDo/H28rl/zZ3a+KKQVGO+xORJ4WOU5/bL3O+4J9Y3sU5+7F7yffTGOgI
XZL5XhTG99U5pekwWFa9zCmfc99JSejXugyiVkwT53hTKL535eEsfQbDoQcu
pvlQmLstM3v+HAbqcyMjsVsomIRvm+1kz2BBePDktl0UQjPutLTuZGB1RtUW
FsbtzxBa/XSCQdd4hX1IPIUs4aZvg8sZGKfHL/kmg0Js+6fmcoqB51DLbbtC
CpdyGaOZHxn4tD/Ut66gYO9x/8vfCxUYLRg8H1dPoaqnMf+BnwIj8eXRqY8o
RHeoyLMEBVyiBBbCXgpn7+rf3P6HAlX896b35RQ+GIevHW5TYI9vxVv2E4VN
PoMx15QKpNSt5Su+IpiMXY9uKyWSvC71FBkSsJP9UnNvJWaUm5ddn0vgdzKg
rzlWiahgx+fHrQlKBtVlpaVK5O9bW2lpR7CstmfWhftKrAy0SFnlQDAvUmQ5
OqYEE2jRz7oSeGcW94SYqSDt3fNo5QaCTlGi4xpPFUJW6Zma/UCwOzfJyeuo
Ch3Nw7nPtxNYvJG9jClSwfmpvdhkH4GH89AKbYsKY60/LvgUQiAe9F1U+k6F
JWWVUr9ogqmk7pZ4vhoOqZ45yXEEDdPX6dz0UKNSupGEniC4Nfb63cwINRbv
OeVen05g+PRIQkuBGu5LghhZLkFQgVmVpEkNfki++5+FBB9uf53eOKyGdaC0
Rn2J4HkXzVtsqkGiR8PJL5UExjte2dW6a6BOOPXxyA0C1/rZ2shDGgwk+OtK
GwiaDG3DMnM0eHFNmSxrJshojUuW3dJAYoZqhzaCGqHYLWhAgyBJqtXeTgJ+
6ryyOXpa9C8Vyt71E8Qer63iOWoxoyKjJGCIYOUBG3+/IC0ySs7RyaMEy6/+
U9OQrsWdiHNrjLQEWa+jxek3tLDp0nm5d4qgT3+BIL1fC8Fpl/kpM2kcKbA8
e3k6i8M9I6cNTGkcNFAfs3ZgYVNqKfA3pyEaMdZrDGAxwtep1V1IQ1az1TMr
hQVvnXFF3nIaPocibeqvsniStUWvx5kGP6m1YnonizEbg/lp62lsjrAtrucs
yosfqOZ8etfPZ6K7WDitdq0inJnvHGI6u1lErJa5WXvQaB8sdBT3slhkIt/f
yPmXreF/CV6wkHQVNoyBxhcb3Y5UOQsjXqQkSEDDyejAPZe3LBT20tQ0zlGf
G27JOe8uD9t1lXNfd0zR9vcs6kSycZZzXXZXkO0Yi82Jeb7nN9KIVYtHZGoW
199kTzz2pFH1aqL3mIbFXdHObobzQHtAm72WxW9X4mrnedHwqzao/ZVlub82
BodxXhEcJzw4zsLxWfADnjeNw75PD8/5zELv/L+/23G+6Gbn/4gzdaMpyY+z
Hr/fddUEC2frJMdSzht4LkuHOO8/Gmh4j3PiaJ558SSLTPsLcjlnybM3Blum
WMRtXvTQZBON162CiSnO8m4DsSvn/wC9BHh4
       "]]},
     Annotation[#, "Charting`Private`Tag$2369#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVzXs0lAkYBvBBF765z2hpJOmGFZodctnyvmxbThabFm2N7uHE6gyWEm1a
pbS1rRoJWaWzR5hVu65tSkOmnMIWalIbR6Si+czt29xmv/3jOc/5/fM8jrv2
h+81ZzAYIXT+b5FPE10k9B88N2UyCfHxkcmOUtph51xme9POfeBbFGBGQk3H
MfvEGSFObKmT/GhOQqD/ycwXU0JUZ1bvmTObhHLrExONH4VY0HK5jUWQ0Oup
Gk7TCXFe2PHc+dYkKB1jD5mGhciLCRNInEm4LZl2X9MhxD3HbitVm0iIbTmh
2H6R3p+bZH8wg4RVsqgoU5wQc5LWO2y7SoJabnUxzU+Iso6Pd692kkBSkQbK
Uoglp0mO5b8k3NrS2XitT4DO/q1TD5eMQ65TZG5WpQDLext/uRc6Dss59x2d
MgUY/1jX9Tx1HPLVpa/qwwV46g5xY+OVcZil7/E6s0yAH7gxnw+1j8O46+A7
1yk+rg8aTKjSjkO45kBVWDcfZ2RroMdeCxFFXma91/hIzfT9JVqnhT/IqaGR
o3wMzYxS35VpwS36Iz/tWz4WDeovFRdrobA1MDpbzMdPFb2s861aaA/pCXjD
4qNNnHzBmEYLjbaP1K+GeLjueEHvLlsdNN8qNfGVPHwiPyD2W6uD23PlA5oi
HkaeTpd8uV8H7p6+A8vTeGg30vwq4YIOzD7pTomN4KG/5+sVRqUOlsrEGfFi
HpYNBi8tfq+DAdPX8h08HprSe5TfC/Xw7osR6WQ/FxssVpvf8NfD8sM+kpFi
LtZoht9bxuohMSg4be82LrIfJaYq8/SQnmy/8aYdF6V5tuXVTXqwE4HH5j4O
frg5J7txSA+BY5ZbfUs5+LL7b8YyvgEyjjyIFO3kIDd8wEnha4CExH1uNk4c
9K4XGON2GmBM8vs0W8PGJrbj3uM/GcCu9k67y59sPKZKPtxcY4DWhmcuDhls
rEwq85H2G6BrOkW1OYCNwiybS9ZWRnBWlQwFMdkoS1OUM8RGaJszf9TyKQvd
ti+KCJUa4UpnvsH9Vxa6VjytbMg2wvVai+iueBbmDMeXZV83wmdiV0e9JwvV
xOLA7D4jqBYH73ptYmJi3oJTpRYU+F1eecemk4k7mPqUhR4U5Bnq7o0WMlH+
hmvVGEVBZoLzvJF9TGyuDFmb8wMFE9m8pamrmRi0M25RfQUF2uH7g0qCicJ0
1W8WTyhgyBqmZ70kcEOsY0E9bTufZQv9XhB49JtDJ+O7KSh7cXLD/j4CSXeP
hCc9FLRlrVKp1QR2DOaLy55RcP6SKay6l8ATITG3Av+hIPfMnhJpF4FTi2Y/
znpLQX+ynVNzC4ESzvYWr3cU/Gx9sNWoJHDfZEPNW9rRY1XfudFW9yRc2DhK
wajo3GBhM4F1ud1SRw1tr9XRqU0EyvRlb5r1FLA22eZ41BNYPjD9LMVAgfyo
dCCmjsD+jqh2ZyMFveti1pfUEhh6jak4S1FAxrWtYtcQuGJbctKOCQrcRMVX
3l8ncHfwo93Wk/S/QbNlCe1CH6eI+7QDHMwctlYTaCXs8145TcEh/6j2dgWB
yPByeU373pLCG+a0D4ydERXMUFDpnX/Vr4rA6ucjzK9MFKQlbShLqiRwWBU4
baJ99mGtoqKCwP8ABNBU8g==
       "]]},
     Annotation[#, "Charting`Private`Tag$2369#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1., 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->{{1., 1.5}, {0., 4.9999999489795925`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8169577211566954`*^9, 3.8169578292080297`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"90354014-25ba-4ee9-8180-d7489204331d"]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"g1", " ", "erabili"}], ",", " ", 
   RowBox[{"konbergitzen", " ", "duelako"}]}], "Text"]], "Input",
 CellChangeTimes->{{3.816957734019206*^9, 
  3.8169577340987415`*^9}},ExpressionUUID->"f747af13-3b2d-4928-b73a-\
093092b4d59f"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.8169577899346943`*^9},ExpressionUUID->"8a04d123-b252-4f3d-a2dc-\
833d9dd10050"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x0", "=", "0."}], ";", 
  RowBox[{"i", "=", "0"}], ";", 
  RowBox[{"tol", "=", "0.1"}], ";", 
  RowBox[{"err", "=", 
   RowBox[{"tol", "+", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"While", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"i", "<", "50"}], "&&", 
    RowBox[{"err", ">", "tol"}]}], ",", 
   RowBox[{
    RowBox[{"x1", "=", 
     RowBox[{"SetPrecision", "[", 
      RowBox[{
       RowBox[{"g1", "[", "x0", "]"}], ",", "6"}], "]"}]}], ";", 
    RowBox[{"err", "=", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x1", "-", "x0"}], ")"}], "/", "x1"}], "]"}]}], ";", 
    RowBox[{"i", "=", 
     RowBox[{"i", "+", "1"}]}], ";", 
    RowBox[{"x0", "=", "x1"}], ";", 
    RowBox[{"Print", "[", 
     RowBox[{
     "i", ",", "\"\< garren iterazioan hurbilketa = \>\"", ",", "x1", ",", 
      "\"\< eta errorea = \>\"", ",", "err"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.816957793369746*^9, 3.8169577965566416`*^9}, {
  3.816957839384209*^9, 3.8169579098237395`*^9}, {3.81695796739415*^9, 
  3.8169580812149973`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"7456f510-0938-4293-92a8-9a5bfee5d99c"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", 
   "\[InvisibleSpace]", "1.`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "1.`"}],
  SequenceForm[
  1, " garren iterazioan hurbilketa = ", 1.`6., " eta errorea = ", 1.],
  Editable->False]], "Print",
 CellChangeTimes->{{3.816958067031991*^9, 3.816958081894163*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[8]:=",ExpressionUUID->"b1fed052-5ca5-4747-9b76-f989c38aab5f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", 
   "\[InvisibleSpace]", "1.2214027581601698338`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.1812692469220181412`4.957294134824543"}],
  SequenceForm[
  2, " garren iterazioan hurbilketa = ", 1.2214027581601698338`6., 
   " eta errorea = ", 0.1812692469220181412`4.957294134824543],
  Editable->False]], "Print",
 CellChangeTimes->{{3.816958067031991*^9, 3.8169580819057684`*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[8]:=",ExpressionUUID->"ca00268b-252b-4e08-a975-1e897d376a54"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", 
   "\[InvisibleSpace]", "1.2767024612091407105`6.", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.0433144798644764699`4.335603107941319"}],
  SequenceForm[
  3, " garren iterazioan hurbilketa = ", 1.2767024612091407105`6., 
   " eta errorea = ", 0.0433144798644764699`4.335603107941319],
  Editable->False]], "Print",
 CellChangeTimes->{{3.816958067031991*^9, 3.8169580819166846`*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[8]:=",ExpressionUUID->"0dc5c14a-3d5e-4b4f-ad98-66411fb9e86d"]
}, 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, 165, 3, 96, "Title",ExpressionUUID->"4827b71a-6361-41e5-b064-8f3b7f5ced56"],
Cell[748, 27, 155, 6, 56, "Text",ExpressionUUID->"db3dc770-b2fa-4c25-8e69-1caf315083cf"],
Cell[CellGroupData[{
Cell[928, 37, 349, 8, 45, "Input",ExpressionUUID->"393a8a4b-8d31-49fd-b2ec-2c7f8a948675"],
Cell[1280, 47, 226, 5, 32, "Output",ExpressionUUID->"431ef36d-2376-4f25-b655-efb67f9e1297"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1543, 57, 363, 8, 45, "Input",ExpressionUUID->"1ecf4112-1a6d-41cc-8a74-76a46208fb1d"],
Cell[1909, 67, 3268, 71, 224, "Output",ExpressionUUID->"50a128e7-7256-484f-84e6-2e252d4fd26a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5214, 143, 274, 6, 45, "Input",ExpressionUUID->"9721b20b-278b-4df3-a3da-baf3f34d6d9d"],
Cell[5491, 151, 224, 4, 32, "Output",ExpressionUUID->"61922bd3-9343-4725-8c69-f6894d83a57f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5752, 160, 354, 8, 45, "Input",ExpressionUUID->"282724c8-d95c-4ffa-99f3-ffc34581582c"],
Cell[6109, 170, 197, 4, 32, "Output",ExpressionUUID->"4294f7e5-64a8-4115-923c-909020f6221d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6343, 179, 599, 14, 45, "Input",ExpressionUUID->"bcfa1e2c-731e-4375-b919-8b7679fe14a6"],
Cell[6945, 195, 5066, 103, 235, "Output",ExpressionUUID->"791cf85c-cf2d-4002-be9e-1a0a397f6720"]
}, Open  ]],
Cell[12026, 301, 387, 9, 78, "Text",ExpressionUUID->"49feb237-d990-4dde-8b03-2d6564eed04f"],
Cell[CellGroupData[{
Cell[12438, 314, 1175, 32, 178, "Input",ExpressionUUID->"48e74e0c-cb1c-4e5a-9bea-de4b345f75e1"],
Cell[CellGroupData[{
Cell[13638, 350, 550, 13, 22, "Print",ExpressionUUID->"44194bf3-1161-4968-9342-9e32fc3af9b6"],
Cell[14191, 365, 630, 14, 22, "Print",ExpressionUUID->"5baebe6f-8315-4aa3-862e-4cd20db33963"],
Cell[14824, 381, 630, 14, 22, "Print",ExpressionUUID->"b91251b3-0d52-401c-be61-804016e446b9"],
Cell[15457, 397, 628, 14, 22, "Print",ExpressionUUID->"137af91b-f520-4603-b5fa-f4e5d4fd02be"],
Cell[16088, 413, 630, 14, 22, "Print",ExpressionUUID->"fbf0f9cf-9021-47c2-8377-90e65a7b036d"],
Cell[16721, 429, 632, 14, 22, "Print",ExpressionUUID->"33a6eb47-2620-4daf-bdde-13e11e04462f"],
Cell[17356, 445, 694, 16, 41, "Print",ExpressionUUID->"6a0898e2-1249-45aa-a230-57ca2e6d38f1"]
}, Open  ]]
}, Open  ]],
Cell[18077, 465, 146, 3, 34, "Text",ExpressionUUID->"06b1488b-18c7-4e8b-a814-ad1255f5081b"],
Cell[CellGroupData[{
Cell[18248, 472, 235, 6, 45, "Input",ExpressionUUID->"53f66b2d-6893-4335-8f32-a2ee909c26df"],
Cell[18486, 480, 278, 6, 32, "Output",ExpressionUUID->"8ae2c8a8-bce3-4963-a14c-6472f4f128ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18801, 491, 246, 6, 45, "Input",ExpressionUUID->"55c7deca-9a0c-47bf-a6ce-eadc42bd3710"],
Cell[19050, 499, 3237, 70, 230, "Output",ExpressionUUID->"7c9875e5-22a5-4a77-afe3-dd13e65355f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22324, 574, 211, 5, 45, "Input",ExpressionUUID->"6e4c85e6-cdca-4009-940b-6e775bf6f7b7"],
Cell[22538, 581, 230, 4, 32, "Output",ExpressionUUID->"585deec0-5859-4101-ae94-6f4f25adc6ca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22805, 590, 211, 5, 45, "Input",ExpressionUUID->"c0c4430d-4f74-4189-95a0-7f42acf99c02"],
Cell[23019, 597, 226, 4, 32, "Output",ExpressionUUID->"405a367a-2cef-4aaa-9de6-64fb4b9fcafa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23282, 606, 378, 11, 45, "Input",ExpressionUUID->"5aa1d682-d523-4808-89b4-a07ed9db017d"],
Cell[23663, 619, 5031, 102, 244, "Output",ExpressionUUID->"90354014-25ba-4ee9-8180-d7489204331d"]
}, Open  ]],
Cell[28709, 724, 275, 7, 32, "Input",ExpressionUUID->"f747af13-3b2d-4928-b73a-093092b4d59f"],
Cell[28987, 733, 149, 3, 48, "Input",ExpressionUUID->"8a04d123-b252-4f3d-a2dc-833d9dd10050"],
Cell[CellGroupData[{
Cell[29161, 740, 1187, 32, 176, "Input",ExpressionUUID->"7456f510-0938-4293-92a8-9a5bfee5d99c"],
Cell[CellGroupData[{
Cell[30373, 776, 536, 13, 22, "Print",ExpressionUUID->"b1fed052-5ca5-4747-9b76-f989c38aab5f"],
Cell[30912, 791, 653, 14, 22, "Print",ExpressionUUID->"ca00268b-252b-4e08-a975-1e897d376a54"],
Cell[31568, 807, 653, 14, 22, "Print",ExpressionUUID->"0dc5c14a-3d5e-4b4f-ad98-66411fb9e86d"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)