(* 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[     12307,        332]
NotebookOptionsPosition[      9845,        288]
NotebookOutlinePosition[     10189,        303]
CellTagsIndexPosition[     10146,        300]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["SEKANTE METODOA", "Title",
 CellChangeTimes->{{3.8169558740865335`*^9, 
  3.8169558769658203`*^9}},ExpressionUUID->"5c0460ae-d8f7-4955-9833-\
c5161914a9d4"],

Cell["\<\
1.
\
\>", "Text",
 CellChangeTimes->{{3.8169558866872625`*^9, 
  3.81695588736399*^9}},ExpressionUUID->"630b7be9-a881-44c9-8843-\
4b21c3fcd58c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"-", "x"}], "]"}], "-", "x"}]}]], "Input",
 CellChangeTimes->{{3.8169567964996033`*^9, 3.8169568001610413`*^9}, {
  3.816956855998082*^9, 3.8169568941869445`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"c276a1dc-5cf6-4577-bf0d-a14e8a374cd3"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", "x"}]], "-", "x"}]], "Output",
 CellChangeTimes->{3.8169569007290587`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"e855d7ce-191e-41c7-a53b-25777ec96290"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8169568989121337`*^9, 3.816956936662752*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"e12c0578-df02-4d55-a474-d8990bcdd89b"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwBUQSu+yFib1JlAgAAAEQAAAACAAAAjQTXNjQzEsCkW3WJxtNYQB7vhZK2
wBHAHV9ZR91DVkBprRVZPykRwBAXnDe+UVNASxC2y+ObEMDpO3uLm+5QQGUm
UYuyAhDAX0r8g1VfTUBFIesDmdgOwA+UeW5mj0lA7z5VSQTADcBjcG3XSXdG
QAnDtCjEjwzAy97l3AKMQ0BSkDVgu3MLwJboOTFqLUFA4AXJBUldCsBhgOmZ
rEk+QN/hUUUrLwnAJzlBjS5wOkANB/zcRBUIwFVyXvY7TjdArJKbDrPjBsBU
Vw645Vc0QJDGTa63twXAxvRsg5vQMUCjQyGm858EwC9TCD4bgC9AJifqN4Rw
A8D8tSCnhpMrQNhT1CFMVQLAOfWfH6NdKED75rOlaCIBwKcnUtIoUCVAxkRM
Lzfq/7+MNNwBaLAiQPRNc8MLuP2/Bb8tAYeHIEADJIWLiVb7v7LeFzaG6xxA
cIzZA3Yd+b+4J+k+3H8ZQGdFU1iP7/a/oeE1Z9KBFkBAy7fgUZL0v0QNXfWs
nBNAduNeGYNd8r935rKVWzIRQByR4Qu78u+/LuBFtLayDUBg/E+dyUDrv3L9
Cm2/jwlAX4xDj7Xf5r/YZGB0nhEGQCC2DOnzH+K/YuMvIWOgAkA7CbZGH2Lb
v7SIjZizY/8/XejnKwqx0r9oZ/33hxn6Pwv2icEzhcK/c+bcGlLO9D9pyRWr
FXl9v89JSmENO/A/aDKCx1gowj9oEAn4fDrnPxZAJF2C/NE/AmugBWtV3j/R
JPLlJLjaP4r4mjvy384/A2uKT5EY4j8AiRjmtB1lP+KelssyhOY/NJ2szMS7
yr/9OM3fgU7rP2X8V3qNWdu/A5ncnTsB8D+4KW9PtD3kvykDkJvHMvI/NFJn
P8Yi6r9toFhlqpP0P4bA6gGyJ/C/U6vefh7M9j9YYAgr1fLyv7BlP7xl+fg/
ITFXrnGd9b8rU7XFA1b7P9n/WH4TcPi/SK7oHjOK/T/TiUTuugP7v0mn01EK
lP0/2O6WQR8P+79KoL6E4Z39P4HT9KCCGvu/TJKU6o+x/T8cMiqGRjH7v1F2
QLbs2P0/DMrI+sJe+79aPphNpif+PzSGFg6Pufu/bM5HfBnF/j82EpPUd278
v23HMq/wzv4/zczXxL55/L9uwB3ix9j+P4ZxNdMEhfy/cLLzR3bs/j/LOmZM
jpv8v3WWnxPTE/8/MXy2v5bI/L9+XveqjGL/P7BMwiF+Iv2/f1fi3WNs/z8M
Sekzty39v4BQzRA7dv8/LAaubO84/b+DQqN26Yn/P5eYJlRdT/2/iCZPQkax
/z9tEFsJL3z9v4kfOnUdu/8/MEb5XmGH/b+KGCWo9MT/P5qeWN+Skv2/jAr7
DaPY/z+6Y2Zi86j9v40D5kB64v8/nN0ZZiK0/b+O/NBzUez/P+SUmJZQv/2/
kPW7pij2/z8KSGT0fcr9v5Huptn///8/0mX+f6rV/b8mbSyH
       "]]},
     Annotation[#, "Charting`Private`Tag$2433#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, 2}, {-1.8646645545726312`, 99.30899273358096}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8169569173561983`*^9, 3.8169569380311737`*^9}},
 CellLabel->"Out[5]=",ExpressionUUID->"a9e081e7-9107-4eb4-ad3f-e2dd83f16e41"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x0", "=", "0."}], ";", 
    RowBox[{"x1", "=", "1."}], ";", 
    RowBox[{"tol", "=", "0.1"}], ";", 
    RowBox[{"i", "=", "1"}], ";", 
    RowBox[{"err", "=", 
     RowBox[{"tol", "+", "1"}]}]}], ",", 
   RowBox[{
    RowBox[{"i", "<", "50"}], "&&", 
    RowBox[{"err", ">", "tol"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"x2", "=", 
     RowBox[{"x1", "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", "[", "x1", "]"}], "*", 
          RowBox[{"(", 
           RowBox[{"x1", "-", "x0"}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"f", "[", "x1", "]"}], "-", 
          RowBox[{"f", "[", "x0", "]"}]}], ")"}]}], ")"}]}]}], ";", 
    RowBox[{"err", "=", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x2", "-", "x1"}], ")"}], "/", "x2"}], "]"}]}], ";", 
    RowBox[{"Print", "[", 
     RowBox[{
     "i", ",", "\"\< garren iterazioan hurbilketa \>\"", ",", "x2", ",", 
      "\"\< eta errorea = \>\"", ",", "err"}], "]"}], ";", 
    RowBox[{"x0", "=", "x1"}], ";", 
    RowBox[{"x1", "=", "x2"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8169569579840508`*^9, 3.816957195512639*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"023f2251-3a5f-48e2-b982-086a5d74ad3d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa \"\>", 
   "\[InvisibleSpace]", "0.6126998367802821`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.6321205588285577`"}],
  SequenceForm[
  1, " garren iterazioan hurbilketa ", 0.6126998367802821, " eta errorea = ", 
   0.6321205588285577],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169572035080853`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[6]:=",ExpressionUUID->"924fcb21-6058-4abb-a776-d012bcfa523e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa \"\>", 
   "\[InvisibleSpace]", "0.5638383891610742`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.08665860388099504`"}],
  SequenceForm[
  2, " garren iterazioan hurbilketa ", 0.5638383891610742, " eta errorea = ", 
   0.08665860388099504],
  Editable->False]], "Print",
 CellChangeTimes->{3.8169572035111823`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[6]:=",ExpressionUUID->"cfa256d9-9552-49f1-bcbf-f42ac729bc59"]
}, Open  ]]
}, Open  ]],

Cell["\<\


\
\>", "Text",
 CellChangeTimes->{{3.8169572652938886`*^9, 3.816957272196862*^9}, {
  3.8169576048979826`*^9, 
  3.8169576154453135`*^9}},ExpressionUUID->"8e77f2c6-1e69-499b-aa25-\
470aed9a679f"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8169572758124185`*^9, 3.8169573211625023`*^9}, 
   3.816957663424198*^9},ExpressionUUID->"9d5dc777-272e-4230-a1ee-\
a8016be72c13"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.816957764483118*^9, 
  3.8169577666543446`*^9}},ExpressionUUID->"411ad90a-54ac-4ac1-ab59-\
1c6eef96c3fa"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8169573470056458`*^9, 3.8169573751636524`*^9}, 
   3.816957678354581*^9},ExpressionUUID->"d15a3f74-ca20-450a-a015-\
ef5019fbae61"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.816957762111796*^9, 
  3.8169577621441736`*^9}},ExpressionUUID->"56db014c-94b3-4717-866c-\
dafb3d39a368"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.816957382989006*^9, 3.816957408417864*^9}, 
   3.816957694522068*^9},ExpressionUUID->"c1cebac3-ba39-440c-a57d-\
5b2c0a13a348"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.816957773003282*^9, 
  3.8169577735132127`*^9}},ExpressionUUID->"ba482f24-c1ee-42b8-b73c-\
0b2bfdef6b92"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8169574139147973`*^9, 3.8169574567030787`*^9}, 
   3.8169577069773865`*^9},ExpressionUUID->"2827aa03-dca0-4248-8f2c-\
86720d799b48"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8169577687746716`*^9, 
  3.8169577688041925`*^9}},ExpressionUUID->"a1639004-fea1-4ead-8919-\
e907cc41bd6b"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8169574649853354`*^9, 3.8169574991923275`*^9}, 
   3.8169577166666403`*^9},ExpressionUUID->"0b3b3d91-fef2-4d05-a234-\
051da8fe8422"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8169577519148335`*^9, 
  3.816957751952057*^9}},ExpressionUUID->"794afc4b-4d38-429c-9a3e-\
c3926fa96bcc"],

Cell["", "Text",
 CellChangeTimes->{{3.8169575150330925`*^9, 3.8169575254762983`*^9}, 
   3.816957729206459*^9},ExpressionUUID->"3aa8d2de-b6b0-409e-87ef-\
260ce1376e89"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.816957553571453*^9, 3.8169575557929187`*^9}, 
   3.816957748559925*^9},ExpressionUUID->"18d34518-5385-48a8-872b-\
26ae3a8b5a14"]
}, 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, 162, 3, 96, "Title",ExpressionUUID->"5c0460ae-d8f7-4955-9833-c5161914a9d4"],
Cell[745, 27, 154, 6, 56, "Text",ExpressionUUID->"630b7be9-a881-44c9-8843-4b21c3fcd58c"],
Cell[CellGroupData[{
Cell[924, 37, 351, 8, 45, "Input",ExpressionUUID->"c276a1dc-5cf6-4577-bf0d-a14e8a374cd3"],
Cell[1278, 47, 229, 5, 32, "Output",ExpressionUUID->"e855d7ce-191e-41c7-a53b-25777ec96290"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1544, 57, 335, 8, 45, "Input",ExpressionUUID->"e12c0578-df02-4d55-a474-d8990bcdd89b"],
Cell[1882, 67, 3067, 67, 241, "Output",ExpressionUUID->"a9e081e7-9107-4eb4-ad3f-e2dd83f16e41"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4986, 139, 1384, 40, 235, "Input",ExpressionUUID->"023f2251-3a5f-48e2-b982-086a5d74ad3d"],
Cell[CellGroupData[{
Cell[6395, 183, 573, 14, 22, "Print",ExpressionUUID->"924fcb21-6058-4abb-a776-d012bcfa523e"],
Cell[6971, 199, 575, 14, 22, "Print",ExpressionUUID->"cfa256d9-9552-49f1-bcbf-f42ac729bc59"]
}, Open  ]]
}, Open  ]],
Cell[7573, 217, 207, 8, 78, "Text",ExpressionUUID->"8e77f2c6-1e69-499b-aa25-470aed9a679f"],
Cell[7783, 227, 179, 3, 28, "Input",ExpressionUUID->"9d5dc777-272e-4230-a1ee-a8016be72c13"],
Cell[7965, 232, 154, 3, 28, InheritFromParent,ExpressionUUID->"411ad90a-54ac-4ac1-ab59-1c6eef96c3fa"],
Cell[8122, 237, 179, 3, 28, "Input",ExpressionUUID->"d15a3f74-ca20-450a-a015-ef5019fbae61"],
Cell[8304, 242, 154, 3, 28, InheritFromParent,ExpressionUUID->"56db014c-94b3-4717-866c-dafb3d39a368"],
Cell[8461, 247, 175, 3, 28, "Input",ExpressionUUID->"c1cebac3-ba39-440c-a57d-5b2c0a13a348"],
Cell[8639, 252, 154, 3, 28, InheritFromParent,ExpressionUUID->"ba482f24-c1ee-42b8-b73c-0b2bfdef6b92"],
Cell[8796, 257, 181, 3, 28, "Input",ExpressionUUID->"2827aa03-dca0-4248-8f2c-86720d799b48"],
Cell[8980, 262, 156, 3, 28, InheritFromParent,ExpressionUUID->"a1639004-fea1-4ead-8919-e907cc41bd6b"],
Cell[9139, 267, 181, 3, 28, "Input",ExpressionUUID->"0b3b3d91-fef2-4d05-a234-051da8fe8422"],
Cell[9323, 272, 154, 3, 28, InheritFromParent,ExpressionUUID->"794afc4b-4d38-429c-9a3e-c3926fa96bcc"],
Cell[9480, 277, 169, 3, 34, "Text",ExpressionUUID->"3aa8d2de-b6b0-409e-87ef-260ce1376e89"],
Cell[9652, 282, 177, 3, 28, "Input",ExpressionUUID->"18d34518-5385-48a8-872b-26ae3a8b5a14"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)