(* 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[     51901,       1195]
NotebookOptionsPosition[     47312,       1117]
NotebookOutlinePosition[     47656,       1132]
CellTagsIndexPosition[     47613,       1129]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  StyleBox["BISEKZIOA", "Title"], 
  StyleBox["\[IndentingNewLine]", "Text"]}], "\[IndentingNewLine]", 
 StyleBox["1.", "Text"]}], "Input",
 CellChangeTimes->{{3.8168877423261604`*^9, 3.8168877565085993`*^9}, {
  3.816887787495573*^9, 3.8168877888420568`*^9}, {3.8168880252745223`*^9, 
  3.816888025471839*^9}},ExpressionUUID->"266da555-b0fb-4e47-93fc-\
43b8650b1f67"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "-", 
   RowBox[{"cos", "[", 
    RowBox[{"x", "/", "2"}], "]"}], "-", 
   RowBox[{"Exp", "[", 
    RowBox[{"x", "-", "2"}], "]"}], "+", "1"}]}]], "Input",
 CellChangeTimes->{{3.816887791392891*^9, 3.8168878494011364`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"e3f6b85e-f5f7-4926-9cf4-1e8500ff3480"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    RowBox[{"-", "2"}], "+", "x"}]], "+", 
  SuperscriptBox["x", "2"], "-", 
  RowBox[{"cos", "[", 
   FractionBox["x", "2"], "]"}]}]], "Output",
 CellChangeTimes->{3.816887850498721*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"2eae0457-f812-4b19-bb51-4684060d618b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8168878557589846`*^9, 3.8168879816922197`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"04c2ce8e-5f69-4dc2-b1a4-c988258181e9"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlnk81c0XxyUJqZRwF8tFliK51xbKnMeuSAsRsmapLCUlS1IJJUJaeYSE
UHlsUZirJFuyli3ZRZZrzxK/7++v7+v9mpnzPXPm8zkz4o5ex5zZ2djYmOvY
2P7/1ez0+b22xs9sO5HEsaNIA9qKkyeNlvmZZTKH8oazNODy4/qZ+/P8TFv9
xvbSZxqQYy67IjPOz6SydUVdCNOAnQ2dvEc6+Jle+3/Fz5/QAN5P2gpJ+fxM
GzqPle+8OnS/5rsAZ4h4DUfkzdTU4fqN7Pngpu3MU+xWCdeZanBb6Fzti4ht
TIWY2a2MQmUQrZB9ftGKj5k6YB15iYcBi0YNuwNttzBN7GC78O69oDFsk2LZ
uol5yiHJ5Q19NzzKGxYL8+VmSjBt2uaHpOCKdbDi3yFOpr+bfMezFHEYOyd8
2d2Rgzn683DQvddUCMwqLN/Dzc4sHelbDTkqAGKRpeCxtIqp2qW/Tp7dAkHi
PDyS6kuY4ao1VBPMATu8vmdelV7CbPfmWxtsOCCzJPVQG/8SNmyR2DW+jwO+
WaDIyIlFvOFF2rLb1HpQiPLh+/N8EaOL1ac8nNbDz6VuwS9bFvHsRb/LLw+x
A7TkSfoOLGDG+0vlU/JssD7s1IHae3P4t0FnVabzH3RZ5yMlOmAOUx7oB1dK
/kG/1mT/mLnO4RRVc1GhvgVUd2U2t1trDv+giPJZ2C2guLMRstPjs3h/12Tr
UZt5JH24mJ9sPIsTVaX2K9nPooMCAqMuXDP4tUuASfo9Fipp9P8sNzuN2zqu
XrQ3YyGFqJ5U1s9pLNTwPuwwmYX4N2bb+b+dxptDRudiDSZR1x/t1kiXaZxi
Vi106fI48uw6z8yvmML3bzhGb/81gmKe1z1kv87Cd7p1et9Q+lHgUUcOCU8W
Trd+JeNS1Idc1xYu/GPNwrUlOZFXTvShA9aSJsEqLMz7JKXgv/u9qFlqlnOl
eRJrlTLtLm3vQSEcpj3TLybwjcLFkhvaHWionON+j9EYDrG6FnZ/az0qEVH0
FNs5hhM0kiQu5dehWD9rI9vV37jN9FFepVUt0qLnrnXm/sYJqp+fFWdVoUdJ
du7fqb8xE0ss/rD9iAyvvdOrHx/BigeWkeqOXJS1//yf9zHD+BcvNSxOqABr
XK4z/uo2jDOUphftUt/iqjeyyX1oGMv2HOyp2/MOD0j0GnFPDGE2IQPHCFWM
RbmPxZ84OIT5DPj66+9V4NhWJa0p9kEcN4hTBWXr8RXPhZvSPn2YFcn/+zdP
G+bMON6mfqgPf/jP8I3q/Tb8oPeNvIlEHx54UpCeSWnHuWZurRcbevGdf9rN
tsh04N8a7dLl8r24Z6r0+ieVLlyy5fL9tzU/8YImVe2qQA8Oh7+iEq868HuJ
xGO27/rxW9qJic82HVjt2/icGKsfD7G9KfXg7cDhzxNT/KUGsF65vU3xuXbc
OXxbbjlqALNrVzw5srsNTw8Y3Np1ahAH6kTsuJbeit3S2z+ioSGcJTnQv9Oi
FevHVJnHCQzjjvUH8mo4W/H3xo/aN3SHsXrFxFFBlxZ8oi5UZ3fyMJ7XPXbv
1c5mXKLW5Jdl/gt76ZN5upIb8OZpRqpv1ghOlPZuv360AatFB9083TKC6zlr
M2TWNeA4vn9Jv1dGsGXUYtQQsx7/N2wQ+Ml4FDfdY3ILaNXh0UT+5jfDo7gy
9vDahX2fcdhRFTl7njG88zhbYumjSpzoWWP0W34M3+TP3c+98Amfy9G/wWc6
hiFOwD+poAKfEtW13hU7ht896JqtZ3zAdY5xrg/4x7EVvbXFwuodvp2+2GGz
fgKnVqsJPFYoxpZxPukvRSbwpMNT8zb2IoxtVRiJahM4JNbum2VWAeZbq38S
dHYCv5kZ+X5yJQcPKP82F6mbwDNCTxSVk9/gs/dGizL6J3C4oe1/+UavcNzm
QO6upQmc9/JXbsHTDJzdFxahITuJ+dqWznn5JeJEL52y70GTWEP9lsf5mifY
9kXSvuf3J7Hz061eF6gPMGlDYaNgxiT2KTYcGPIPw9Sfu/zmv07i8/5VohJL
Acjlq61M3WYWTr3z5gBopqHu1tIulaMsvNVqtATHZiDPfhu+bksW9t8ltR+N
ZqJBf5MwK3sWNq16qqH15A3q2vbCuIHw7V/2j9TEgHyUNHEv7s1tFs49a995
Kr0AXWGyay/dY2G3pr9PRZoL0djsnsPkhyzclLyP8u/uYvQs/2V0SzILZ8Br
UkJ7KZo+NEODtyxsm3GozXoDRjykWmmFEhbmCZ+tjSQxUfeXt+ksJgvjyZgI
E91yZJ5qsGummoWfPrc/t6ejHF07rEhXqmdhH4u9hzaf/4DSFoo+GDSx8G5c
x/Ml/iMqELGPmWhnYY6L8aPZ9Ar0Qae/NfgHC/+UPltz93MFMiz9mjvcw8Jx
URvvGM98QtZTbbpKwyzspf3tjPztSvTnkd860igLH5xPNeIV+4zOuEc4N46x
8Nopbe66g1WoOV5F6cMUC/95asJhNV6FurPImTKzLDz93XJt+F41elNeqGI1
z8JjO04vXWLUoGOXFjtO/mHhoaNec+tba5BSa3Oi9BIL90T5s2J8a1GF64FQ
5jILt9fe+i1GqUOye5Qeyvwl6scVM/SqpA79THrbbL3KwnV6Cb2adl/Q2fdN
OqfWWLjyRnpX9bp6tDAT81uObYroY7nfLVLrEZ82V8Nngt+tlDYN6n9FmmKH
5xXXTeE89eovF0e+ouzw606uBJ/QPDvApt+Axtkqhc8R3Nw+2WvwqAGFxOjK
7Cf4yJVLP6N+NaAXdXLhHUS8L4LLXa3qjait/o2uPsEHC4I7hCMaUQrwOF77
fz7HOducuhqRsqX/4C0iX53piNbMPU1IqFO35SSxH2b0tuapoCbUKJavtEzs
98DeRw37GprQg60k7rNEPd59Ea6/Jt6MpmQqT6YR9VJzT6mt9G5GFwLJcjlE
PfN5ZKs3VzQj8yLvG2FEvekvX1WaCbQgVdo+Z/lpFn5toFQR79KCiu63tiVO
srDcUFF539sWpHCvpK+bOL+MEC28i7sVHdtzOnxshIWlJCtKzlu1omFZo6+f
h1g4pdzo3dusVuTZPV5yvp+F41fNCvQOf0Ncwgkpcl0sTPq3I/fus2+oI67y
xYE2Qj+a9jnNrG/IL3vaWaSFhaOunMtyuP8d7f3xVUm/loU3CU1lZAx8Rxz7
vhrfq2Th8ILLaZMqbcivyF09rZyFb0xfT77a1obMNE+lHiD8sBa98VnFrnZk
yCmvUPYfCwfujUzYFNCOLCOiU3izWfiS++NHT0Q6ULr8UUf+JMJvQ68jCxw7
kX+0Z2/VLRYeDFGOWMnrREELwU7FQSzsKPkuXGdDF7KnyK35+rKwjf2nm43p
XSiLpRxv50b4u6PTb3zsB9pjMLyl3YDQ1xUHX2WtbrSaYMGpiVjYUGjYJ+Be
N9q12GRwTpWFtc2mvbgZP9Hi59hy1Z0sTHXlyIvV7EGadnKBs0uT2O2467br
Dj0otu61+crwJM5HNV5eYT1I0md++FXLJD5MipY3bu5BRj1C9lteTeLgamra
hnO9iO3j1fJPJyfxkJzSkytP+5D0TdJVoecTWIn0cMGF2YfQ8ehafGcCB3Ms
mpsP9aF61ZmA7d4TmPyjbDuD0Y/4Otb2vEUT2Djq4N3f1f1omNbOvfZtHOey
HK7ZLg6gEpVnx2PnxvBaV8UPY7FBpGV0ZHzw+xg2rpbZr6k3iPyHpOIHisfw
YPL4H6GYQSTqscWhP3AMk477eTfKDqFHhuFtw8Q74mpBtLOu5TCyGNmTKTgz
ig398aHdb0eQlMpGJ7uEX7grfEpRt2cEjQZoR9ad/4UvPJIUtOUeRUubrlV+
1/2Fn+aH9cRYj6ILJ/XSqn4P47EJ00uLa6Oo7eboTwGVYRzt1JNYZTiGRrml
o9wLBvF343XTLh0T6IBGq3SwRx92t1b6Hrx+Ep1QLzf9qtKH2c46lzyVn0Rp
Kw7Py/72Ytmw6tD6oEkk5sTcFnS3F5f2VG2O38ZCAtsHV6+/6MFbqTEp7IUs
FOrH+dU64gfOuyde17g6hVpalWwUglpxUcD2udXt02iMsWD/YLEFl7muF5WX
mUYlUTmihj4tuAYNeoWaTqPKuCjLGNdm3DOZwa+ZNI3Cna+1FOo1Yt4jitap
/8wg3cYP538wq7ELHxq9HDKL7AO6BFgh2ZgSY8MlzLOASF4NYybURpQeIZI8
IbyADHO3/PqFib4R2q1evpcY5z25meTchEwC7M+5mC+glQSSIeO/ZhTsfLo+
J2kBKZsUPzp25BsaUneP01P7g6o8pHZKZnai3L4AmtfpRSQcPV5/3bkfHVKO
3/ehbBn5FD71eG8ziVbwx7jdzctowCL+q1f1JMo+NMaKHV5GFHbDFg0qC21x
OvDSiW8F7VQyynoXzkINMT/JGxxXUMYZvt4k5yl0YlJy2WDDX6RRUfllWXoG
2Wdml345tIrqyuv5Ij/PIw0+u2R3dzY45jauvPnqKlKy8KZJ17ND3sjyp7sq
G+GJyo2zQ5IboPoha7/Y8FYI2Bcibpe9EUaiv1zkJQvAP7zhTbe4eYC3RCv2
3H4K3OQIYp1+wgsVkV3BD3howIg7335QZCvUP31pa8UmCY7+DNvJd3zwSsD9
SHqNFIyUSIU+YNsOj12vvteuloW+YXJWrCI/1H8DdstAOYi1vaty32oHhIzc
Vnz3Zw8ED/vOT/4rAHaWsu1blRRB/4nXp7QUAfB5Cxraaoqw6ZBr3Kl0givP
9F7QVISHr08wanMEoIJpNlelowjZl1Q80z4KwLlrqx3mZorQtn5m0GZEAIr0
QpqHfRRBkebZWq0sCGyFYl9a8xRhvtE5NVhdEIKWfAsy3yrC+5unLqppCYJZ
V2VA4Hvi/8PG214YCEJT4Zc4wY+KYPNaziTYShAe5ZQ+2dmkCOH7RypUgwUB
kzhmUicVocfydP7zWkHQjb7xTFSWDhMTKrO4QRBG7M6MNMrR4W/IRuWuVkF4
KHt13fW9dKD8l5m3o0cQqO2fbzep0sGMeyr31qwglHx84KetR4eq4qv/uYoI
wdrx0x+OOtDhDeXRazkvIZBomv/M+5AOZTluEwY+QiAoG/5O8Qkd6vQ1FE77
CcEhoa99pgl0+OX941XCTSGwePCKeS2FDhK1kq82PxYCEXlz6Rev6fAwICdr
kikELecKldkr6RDUVZ2Rt50E7yTaHvey6KBw+Z6unxAJQqnqu/fN0KF7q3mP
ljAJWNGn127P0QHp9AjVSJEgg6PISWyJDmyZ86E9+0iwZ2T7U771DLjhK+m8
2Y4E0cqh/Vw7GMDYNsLW7EQCL9+2lG2CDOjLfJ3w2I0EC+lGdgIkBuh0q7dI
epMgknWrdLMwAzj0juho3CJBZ+OH6HJJBoRuvyrumkUCiwAcR2cwQDVbu1Q+
hwS7HCw4fikxYEiP6+R0Pgk8Tn+XeaLCAAO/+9FXy0iQHTvk+3sfA7h6Xq7d
byTBjDNvsSliQJGfV/zJbyT4EfpBtxMY4MavoibWSYJVUrWtgzYDqvWZnpkD
JDj7oWr3KT0G3Hn17QdzgQSDH9n/3X6IARoGCX6hKyQY6sIC3sYMGO1xEDBe
RwZjidvztSYMOLRj3Pg7DxkGBEe7PI8wgDdgfcm4CBmGdrHyz5szoGRHtUWe
BBmUbOSHUk4wwP111MwVGTLoXwm2/GrBgC+9ZDkOOhlSTcrHBK0YEGWo+JSi
SwbuigNG9rYM8OiM0KkyJEOwsgrL1o4Bxp7DY5dMyLDv2MnfFvYM4IlLRI0n
yOD7Q692nyMDwn7yDoadIcM/kZPZBc4McPF2i1LxJEOAUuL5UBcG6G+oUOv3
JsP44HnHo65E/eUC7mgFksFR81BpqxsDgi+P7J2LIvJlFlc9OscAO2699pT7
xPrs65fV3RmglZB048hjMsgWFsm1ErxSbtGalUyG2NrBx0seDOg0yws6mUYG
iZrNBiGeDHg3vEV2YxYZHKq4RjZ6MeDK5kp/x3wycO4vnV0h2CJJfCdfMRku
+MeaeZ4nzlvp6pfSUjJRd++4doIFKtsun/tA8F2nN1oXGDBrqUwjfybDQ+ez
Sf8S3Pz7XnVlLRkWxcId5wnODfrt7dNAhmHV9yxDbwbEbjMQlmglw9qxNb0H
BF9ITfn0tZ0MmoYmpzoJPqK26nm1m6jXjng69SIDFGtOkuT6yfCsq7PUjOCt
pwrK24bJwD++thJG8MQk37nQMTJ8KJgdySf4yw33HcpTZLhRnXqtk+BsgarS
3jkyiHQtFC0THJEh6XpviQzXmU3RAj4MOKt5je/AGhm4XIXYdxFsVN9RPLqe
AsWdqRtVCZZ1UHV6zEWBS7oWCfsJ3jgbw6u/mQLqPze+/z8PhY4XzGyjgA1b
pO3/538iG9klC1KghO/d9f/HS81O5TKlUmAtwk5MkOCbiC13RYwC5asHGStE
Po5N1taZOynQxGFQ8P98/3F+y2G5iwKnDKjP/78f2p/trzcoUGB3wN35UILX
7nha5DEoUGZrk3mM4G6RGjYHNQrEFxkVCxFcmiOVuYW4N9zM+US/EfVM0Ll+
vAQoIMp5pjmS4MBvXStn9CigkcjdokWw9Zl9aUIHKTAylUoZIc5LY+W+6afD
FJBpGU2+SzDl3uQf7+MU+Lsj/PQugtvy0w7V21AgqM099DChh7cG7HMBDhRI
71zt+Ebo52HHqcRdLhTI0LhqbkmwGZvAVIgXBRLv56bpE/oL9D246bEPBV40
Hn6ZRugzdeKaVJYfBQKaZG6sEvqd7Ro92XiTAh4/6p8+IPQubEbzGQingO2j
/+pazjJAt9Y8aiGSAhTPpaJNBMcVMz+IPKaAS0RRqj3hlxLF+S7FfynwbBvt
YRDhp4F0uQWdFAroKTRJxRF+U374UO5sNgVIQzXr004zoNXbPa6QSYGWxzwz
ToR/V0eSX1d/ooCmX+9WLcLf0g7fq7pqKLDRaSlmK+H/y6baf9lbKSAmTXn5
2JoBgvIkF9MRCowfULDUJvqJ1nOTYMcJCpw+cLTlmxnhd8rNp5dmKOAfFhPg
eJwBhVwT9fF/KbBvbp2CHdGfTgx+VPu1jQr93TXHx40YEGSzeHRZkAqm12lW
GoYMSGtWcN8iTIUNUcZHgvQZMF/+JElZmgrWG/ZMjBL98mGiF/d1DSp8qFAQ
OaHJgDKBF5JxiAq/HHy/nlQn9Hm340C6LhVuWsqomKkRfg7Q8/5ymApXb8mv
yBP9+7sFtZPsRIX4E3XJHrsZwPb1yJy8GxWOKl0gScsS+tcP3QoeVDBe/MnR
KkX0C+UpHRdfKoy4TokJijOAtO1zdm4EFWyc3tzcKcQAyxrvoEP5VGg3GxU6
t44BEnoJsxuLqeAfuamvaJUOY/jT2YpSKrRsbpj4u0yH4AKSxYHPVHBzmCjw
mKdDelLZ3r0dVLCXtvqnf5QO85d5erezCcOQxzZfWhMdmFNKFl85hIFv3S2T
n/V0uON+6ksEtzDI77u9HFdLB1HHnGIOfmGwapj7MFBBBz2TE7HzUsLwzd4e
CbylQ5xkik7HIWE4oXaiN4+4v20Ta4sfHhEG20j3ua4HdJAlz+09bi4MvGY8
3isxdCjZYihcZysMOzwiwkXv0KF/cXy29IIwVGaEOk340YHRoJ6W/EgYMr2q
7xRa0OFrYCPXmX5hOOwWEVGwiQ59nS2Td34Jw9Mjh8mKnHSY1Wj7lj0uDHf3
mpgmshHvkcXuVNaCMIye3BdpPqcILpfG4AqvCGS0/kUK3Yqw4rHRL0xFBDIf
Zg5de6UIu+0OjLwIE4FC8oqQrbYiHCiDhs93RSDtVoanBvE+OyKi+3YkRgRC
jI7LcSsrwqXOg7f2JIgAiL3MviqlCEwLS/GCHBFQKFufUb5RESyOXDxZ0S4C
OdjLwfL+Xgj552V1n5woBPaEq127pQCVT7TLxhRFIT8/T3P5ogJwTXfmzquI
QojkblcrRwWISNmSwAOicBemfpRrKUDseh9PhpkonFZ/O86Y3wPPPmnx3wgU
hYaxzmt37PbAO6MWG/EvoiDfs2fwIlUeVpI9jso1iYK76ozEbk55OLDEqa/y
XRSKWq1LmSw5YGaq7zXqJeL1cGVFfZKDz5uerbswJwqWDhqdmR5y0PLlTBpT
RAzkBYpGvr7dDZNH1ybtPMVgtvN08E6lXdD06i7wXxSDLlMFO0/qLijkpsRU
+ooBK6JV8On6XRBYrszYc10MLLs34YfNssBDP+uzdF8M3O3j8yW8ZUGar/VP
XLEY7DvzgHTxpQzsdW1lc2anwRiXkb0jmzTQBIRflnHQYOXDeG/ZgBRs/+h4
lLSRBsy+84+WqqRgXpSVXLuJBiQZKf2tMVJQ+o1HhyFAA+MX0wZZYlJwSB9u
rckQ49cS7Z6q7gRXqSzupyY0UNRx1Cg8KAFBn2zPSh+hgbLXTTeqrATEOW+v
zT1Gg/AxmewTGySA+cLvbq0FDSreGywfxuJAkjbc+teBBgNtTFcdujjUSA/u
sL9MgyT/6zm0zTRQkBWjST+jweNjcqYvDKigW9UUnJtMA66tWmpXFyhg5Rba
q5VKg4aBRxcX0ygQljGeYvGSWI+S+n9wUKBHtkTqdh4Ncm6ZXjAtIUHsrpNy
Y5+JfMseacSTBWFu933VXBaNeJdPeqxE8EFXHejxz9AgmLZt76oKH1R4Thz3
maMBLa7X5CjeCrG5RhdUl2hgn9GfMe60BRQ02LLfrRcHNm/d5/2pm8DFyEP8
o6A40OZUfW03cEKbqwFvy35xCO5h43vmP4tKUpd758LFAZg/K5Ik17CGjs/C
wQhxsDcy521zY2MW947xJkUS478mD76AdcxC0W61g7FE/JzsoNhpdmbOY2Zk
Yjwxn9M2/pMdJzP17i11g9fE/9ZErqzabWZG+myNedxMzH9+0yn1rwDTVlcS
NEUlwNJ9nXj2hARzXSvXlo80CbDvCeS8oSbJTHWe6DwoKQFsahZbEoIlmaOh
xb5WxLld8atA//LvZF6uNn3jx5CAImRysH2/FDPqcKBokb4ERGcgV4cEGWaZ
ZeuKspcE0ReVTNfHyDPFPMKKFZgSENLFOcx8pcSMXXNRifggAaRgdTHHNiUm
Z6z+f8MVEuBeaxwkvV6ZOVG44WVStQTIpi5zk08qM8vYQh5vb5aArqlXVemc
KkzbuGDf+UEJ4JsZfHzNTZWZ8N5PpWyTJAjvkV8sMlBnnuMyzKuSkAT5pXM7
jOQ0mf8De3uBeQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$4067#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, 10}, {-27.169083858834867`, 26.719055451531716`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8168879012866015`*^9, 3.8168879382925177`*^9}, {
  3.8168879688450856`*^9, 3.8168879829047313`*^9}},
 CellLabel->"Out[8]=",ExpressionUUID->"cb4c34d7-2006-441f-aa37-75e91183a6d5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{"8", " ", "eta", " ", "10", " ", "tartean", " ", 
     RowBox[{
      RowBox[{"erroa", " ", "--"}], "--"}], " ", "hurbilketa", " ", "egin"}], 
    ",", " ", 
    RowBox[{"luzera", "  ", "0"}], ",", 
    RowBox[{"1", "  ", "edo", "  ", "txikiagoa", "  ", "izanik"}]}], "Text"], 
  "\n", "\n"}]], "Input",
 CellChangeTimes->{{3.8168879954289837`*^9, 3.8168880360542774`*^9}, {
  3.816888082930169*^9, 
  3.8168881149230547`*^9}},ExpressionUUID->"eb6ec5b4-80f5-4bba-aa37-\
fc884f6b47e0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "=", "8."}], ";", 
    RowBox[{"b", "=", "10."}], ";", 
    RowBox[{"luzera", "=", 
     RowBox[{"b", "-", "a"}]}], ";", 
    RowBox[{"tol", "=", "0.1"}], ";", 
    RowBox[{"i", "=", "1"}]}], ",", 
   RowBox[{"luzera", ">", "tol"}], ",", 
   RowBox[{"i", "++"}], " ", ",", 
   RowBox[{
    RowBox[{"c", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", " ", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "a", "]"}], "*", 
        RowBox[{"f", "[", "c", "]"}]}], "<", "0"}], ",", 
      RowBox[{"b", "=", "c"}], ",", 
      RowBox[{"a", "=", "c"}]}], "]"}], ";", 
    RowBox[{"luzera", "=", 
     RowBox[{"b", "-", "a"}]}], ";", 
    RowBox[{"Print", "[", 
     RowBox[{
     "i", ",", "\"\<garren tartea [\>\"", ",", "a", ",", "\"\<,\>\"", ",", 
      "b", ",", "\"\<] eta luzera = \>\"", ",", "luzera"}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.81688804575459*^9, 3.816888079334408*^9}, {
  3.816888118655465*^9, 3.8168881423916893`*^9}, {3.8168881851976266`*^9, 
  3.8168883939696007`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"a1c70313-2f94-494e-95dd-913be8c87219"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\"garren tartea [\"\>", "\[InvisibleSpace]", 
   "8.`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "9.`", 
   "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", 
   "1.`"}],
  SequenceForm[1, "garren tartea [", 8., ",", 9., "] eta luzera = ", 1.],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168883972349844`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"c70e49cd-5801-4a5f-b0cf-35a4c615a98d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\"garren tartea [\"\>", "\[InvisibleSpace]", 
   "8.5`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "9.`", 
   "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", 
   "0.5`"}],
  SequenceForm[2, "garren tartea [", 8.5, ",", 9., "] eta luzera = ", 0.5],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168883972370224`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"ac36918c-da91-47a0-9616-1624e8a22f57"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\"garren tartea [\"\>", "\[InvisibleSpace]", 
   "8.5`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "8.75`", 
   "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", 
   "0.25`"}],
  SequenceForm[3, "garren tartea [", 8.5, ",", 8.75, "] eta luzera = ", 0.25],
  Editable->False]], "Print",
 CellChangeTimes->{3.816888397242965*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"9724c277-ce3b-4ff7-8d42-c91035b16b55"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\"garren tartea [\"\>", "\[InvisibleSpace]", 
   "8.625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "8.75`", 
   "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", 
   "0.125`"}],
  SequenceForm[
  4, "garren tartea [", 8.625, ",", 8.75, "] eta luzera = ", 0.125],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168883972469535`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"64936245-3565-4fd1-a1a7-c4fc3b91b4d8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "5", "\[InvisibleSpace]", "\<\"garren tartea [\"\>", "\[InvisibleSpace]", 
   "8.625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "8.6875`",
    "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", 
   "0.0625`"}],
  SequenceForm[
  5, "garren tartea [", 8.625, ",", 8.6875, "] eta luzera = ", 0.0625],
  Editable->False]], "Print",
 CellChangeTimes->{3.816888397249946*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"57f60ce2-ad96-4a2c-8dc3-69cf5a6d5c9e"]
}, Open  ]]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{
  3.816888442166955*^9},ExpressionUUID->"c5c426f3-c54e-492e-a266-\
d0f4f7da6271"],

Cell[BoxData[
 RowBox[{"2.", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.81688864400183*^9, 
  3.8168886449322653`*^9}},ExpressionUUID->"4beaa940-7b51-45ea-af21-\
890d4a7d729e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"-", "x"}], "]"}], "-", "x"}]}]], "Input",
 CellChangeTimes->{{3.8168886481596336`*^9, 3.8168886657174025`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"8511376d-6d62-4567-9624-6ea9c76a5f4f"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", "x"}]], "-", "x"}]], "Output",
 CellChangeTimes->{3.8168886668332806`*^9, 3.816888806097028*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"6ac040bd-1896-428f-a003-dbf1dd07ba3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8168886696269097`*^9, 3.8168887054238386`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"35b1c979-ee67-4d72-9f22-f849a80ffbc0"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlG04FOgexmdNGW8NMzLGjBljnohaW1ijiPnL7pJOLxxRWi+bl1DZsum0
5lAqivVeNikVbam0U0tLTfI8Zu3EFknb2koYm9fIYDIizXE+3Nf97ffhd1/X
bb3j24BoHQqFEj2f/3fW/bX1Wq0W69Ulmzs9EMLGkV3FIyot7tke+iSuVggM
blHic6UWfzbsXiqtEELxwQHb6t+0+I/sltXhJ4RwxTk7L+a4Fh+dG1m53U8I
DdeeRbTQtVhRqyiobrOG6aJY6lneR6xIj3Q/1S+AnQm5viL3DzjSyUHrH8eH
q/KojK5lH3DvRefSPRv4MMhyb8zgfMD5kx2Hyhz5EIsHxB3vZ3GWvdUt/xke
xJt4uR68M4v5v9jRn2TzYHfVpI3MZRYbMPNKRTWWkDi1leq5cgb/qHF9M23B
hdRUVP+lzTQuz+wZOCZgQ4aDYA2VNY0/9+ZmSwzZkNNpKSO601jQ7Vt0ZMoc
zrmxatwHNbjLg1/c8MgcZFN6UsdKDfb7uFX6SbI5vEt4W8pz1ODEUF/5fztY
sDv8bsq7NVO4tsz/4lSpGYTAJo/LgWp8T230e/8WU4hedeHrm1+q8eaFN/9+
+YUp7F05JrkrUuPLsttBr5xNIUOQJ2thq/FJvXORC5mmUE157DrVOYn/2mJ0
aLCVCUYNG518oidxa7qmTeXHhHqvjUuHkiaw7qo/KurWMwB5b2A4nFbhr38Q
66pe0qEywu/URIYKu7VSs2br6OCc6mN+54AKZ8mbPuWfp4P3XS+ed5AKizpb
9l2NoEPkCpH9NjMVXiX03Nvavwh8XD2PGCwdw+NMjee/NEbgO6hUyqxGcbzy
zOPv7AzBz8++jMsYwsJntQ7dCho839fnlJKqxOkvXK4VO+pA7c1YkfXJdtwQ
cDTPSG9GHDsrafe7eQnbhJyWLvQcF+c+fVVjuaRZrCp4OsLReS02+4sWVd7V
KaZzzlQ/an4gvjInRLMG/eK2X+/1uPQ9wPG5pfGBh0fFrX3G+YO/9+CwW/LR
uYcT4pSQo/cu/foGNwxcOJdWOCUe1OhHe1dO4GHsHPHp9RlxSUs7O/EnDV4a
/K5VKv0oPoU5No2BH/AmvkmJSvQJHKb9rGjzpZAEJSWYJ6bCpaAzAzEZOuT6
elvj8iULwWFnOmOwcAFZp1vhL3OiQe/nthVUuS5JvFgf5+mqD4aHuroruvXI
HaVBCsfCENBIYH/PUwOy47sqThZaBAn/NFzvHzUi9jdyq/0NjaFwT/tuIyWd
ePRSCuT7TeBFidcl3SgTcpoVu8j2IAPk38Zgu10Mcvh83HGX+PndA+p91eFM
cra1WJG71xRC7pd1nY81JZKEkype4mLwLLrfN75rMRn6xo69bYcZeCY3Jv0n
1Ixkzg0v6IphgTSsimUWySJ3RnzG6CHmsGGc/YwZbE4q1+9tTPJlg1JnSxj7
KzZpC1CE2a63ALfbblab11mQYz/XTB1ZwwGmseEBY3cOibv157/t13LBRKM4
re/FJa90c6QSkSW8zKPrnnGxJKwWEzXVlgeLi8cLNtvwSJq7/OMzez5Yxsof
+9nzSfLcIlqgpRWEg9Cxn2tF2qu9h3MYAnizLXpPJENAmgUxiuxCAaTfVuFd
hQJyonZLmdLAGroflqc/MLAmEcLOsO051mCyp0rok2NNtDUruMtpQlhs0baU
SxOSw9ShR0Wp8z/1E3V5ZqqQcJas/saGgiDFLrCQS0HzvoLUBt8jqA464UL9
HhGBKKrJVoLgbVQdw0qCSOPcvnNrUxBQewZG3VIQoefkfJGchuAh2FxJTEOk
vLLx1FAmAm6FG6s3E5GmQSeXppJ5vqxDTUoQYUUaH0ivm+fXsW6k1iFybxnP
r6wegeyzdcdL6hGJmFjGv08QXLPcv6OGIHI97SuFuhHBix+q2W8bEfG4mMKK
akEwXPj8WGgLIlGv3tSs7UKgv6B5+5ouRPQvv88K60FwtiNDtLUHEeluWnhy
L4LmMg/G/l5ENLNCWlU/gnzXHxWV/YhkcUKCrccQuIjUK7ljiKzo3bncYxzB
uuxkQ9dxRP68lqTdOokg1HSmL2ASEf7qgop8DQLhk9clWRpEfqNckNx4j4DJ
2px05T0isU03NjXNIpBcvb1JPouIUb4MvZ5DEJ/HXNY1h8gvwU0arRZB35O4
BTNaRP4HDBcBpQ==
       "]]},
     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->{{-2, 10}, {-9.99995435516116, 9.389054044468153}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8168886926539025`*^9, 3.8168887065988417`*^9}, 
   3.81688881503688*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"c0518eb5-a3ed-4e93-b1c1-d114f7cb3cc3"]
}, Open  ]],

Cell["\<\
0 eta 2 ren artean erro bat
%25eko zehaztasunarekin burutu (errore erlatiboa)
\
\>", "Text",
 CellChangeTimes->{{3.8168887212546215`*^9, 
  3.8168887542520905`*^9}},ExpressionUUID->"a95af7c1-7ae5-4ab3-8552-\
0250351a162b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "=", "0."}], ";", 
    RowBox[{"b", "=", "2."}], ";", 
    RowBox[{"luzera", "=", 
     RowBox[{"b", "-", "a"}]}], ";", 
    RowBox[{"tol", "=", "0.25"}], ";", 
    RowBox[{"err", "=", "1"}], ";", 
    RowBox[{"i", "=", "1"}]}], ",", 
   RowBox[{
    RowBox[{"err", ">", "tol"}], "&&", 
    RowBox[{"i", "<", "50"}]}], " ", ",", 
   RowBox[{"i", "++"}], " ", ",", 
   RowBox[{
    RowBox[{"c", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "a", "]"}], "*", 
        RowBox[{"f", "[", "c", "]"}]}], "<", "0"}], ",", 
      RowBox[{"b", "=", "c"}], ",", 
      RowBox[{"a", "=", "c"}]}], "]"}], ";", 
    RowBox[{"err", "=", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", "+", "b"}], ")"}], "/", "2"}], ")"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "b"}], ")"}], "/", "2"}], ")"}]}], "]"}], "*", 
      "100"}]}], ";", 
    RowBox[{"luzera", "=", 
     RowBox[{"b", "-", "a"}]}], ";", 
    RowBox[{"Print", "[", 
     RowBox[{
     "i", ",", "\"\< garren tartea [\>\"", ",", "a", ",", "\"\<,\>\"", ",", 
      "b", ",", "\"\<], luzera= \>\"", ",", "luzera", ",", 
      "\"\< eta errorea = \>\"", ",", "err"}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8168887575707455`*^9, 3.816888972312566*^9}, {
  3.8168890943827977`*^9, 3.8168892773856335`*^9}, {3.816889313372517*^9, 
  3.816889313864079*^9}, {3.816889345043108*^9, 3.8168894520514216`*^9}, {
  3.8168894921805286`*^9, 3.816889526363819*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"6923f0ad-efe7-493b-990b-fcbe8a2e8c8e"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "1", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1.`", 
   "\[InvisibleSpace]", "\<\"], luzera= \"\>", "\[InvisibleSpace]", "1.`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "100.`"}],
  SequenceForm[
  1, " garren tartea [", 0., ",", 1., "], luzera= ", 1., " eta errorea = ", 
   100.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.8168895273031054`*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"5675e7ff-4a1a-4e56-9500-eac852aaa81b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.5`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "1.`", 
   "\[InvisibleSpace]", "\<\"], luzera= \"\>", "\[InvisibleSpace]", "0.5`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "33.33333333333333`"}],
  SequenceForm[
  2, " garren tartea [", 0.5, ",", 1., "], luzera= ", 0.5, " eta errorea = ", 
   33.33333333333333],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.8168895273080597`*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"223c3d87-1084-4c77-bad7-3daf00f785d4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "3", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.5`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0.75`", 
   "\[InvisibleSpace]", "\<\"], luzera= \"\>", "\[InvisibleSpace]", "0.25`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "20.`"}],
  SequenceForm[
  3, " garren tartea [", 0.5, ",", 0.75, "], luzera= ", 0.25, 
   " eta errorea = ", 20.],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.8168895273120823`*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"ee02b33d-3f8b-4efc-ba7f-8ab47db53c5f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.5`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0.625`", 
   "\[InvisibleSpace]", "\<\"], luzera= \"\>", "\[InvisibleSpace]", "0.125`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "11.11111111111111`"}],
  SequenceForm[
  4, " garren tartea [", 0.5, ",", 0.625, "], luzera= ", 0.125, 
   " eta errorea = ", 11.11111111111111],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.81688952731606*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"c954eacf-e4bc-4489-b106-647e4ee72b7f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "5", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.5625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", "0.625`",
    "\[InvisibleSpace]", "\<\"], luzera= \"\>", "\[InvisibleSpace]", 
   "0.0625`", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", 
   "\[InvisibleSpace]", "5.263157894736842`"}],
  SequenceForm[
  5, " garren tartea [", 0.5625, ",", 0.625, "], luzera= ", 0.0625, 
   " eta errorea = ", 5.263157894736842],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.816889527318055*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"30bd64c1-3ea2-47db-b0b2-3bb26a66d407"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "6", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.5625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   "0.59375`", "\[InvisibleSpace]", "\<\"], luzera= \"\>", 
   "\[InvisibleSpace]", "0.03125`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "2.7027027027027026`"}],
  SequenceForm[
  6, " garren tartea [", 0.5625, ",", 0.59375, "], luzera= ", 0.03125, 
   " eta errorea = ", 2.7027027027027026`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.8168895273200493`*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"6f47f42a-2650-4e71-a571-6f035aa0c28c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "7", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.5625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   "0.578125`", "\[InvisibleSpace]", "\<\"], luzera= \"\>", 
   "\[InvisibleSpace]", "0.015625`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "1.36986301369863`"}],
  SequenceForm[
  7, " garren tartea [", 0.5625, ",", 0.578125, "], luzera= ", 0.015625, 
   " eta errorea = ", 1.36986301369863],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.8168895273230424`*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"1ef6a462-41a4-4647-8a31-a38ca94e88bc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "8", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.5625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   "0.5703125`", "\[InvisibleSpace]", "\<\"], luzera= \"\>", 
   "\[InvisibleSpace]", "0.0078125`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.6896551724137931`"}],
  SequenceForm[
  8, " garren tartea [", 0.5625, ",", 0.5703125, "], luzera= ", 0.0078125, 
   " eta errorea = ", 0.6896551724137931],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.816889527325036*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"57cf9697-d648-43b2-983e-423b8763bb20"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "9", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.56640625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   "0.5703125`", "\[InvisibleSpace]", "\<\"], luzera= \"\>", 
   "\[InvisibleSpace]", "0.00390625`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.3436426116838488`"}],
  SequenceForm[
  9, " garren tartea [", 0.56640625, ",", 0.5703125, "], luzera= ", 
   0.00390625, " eta errorea = ", 0.3436426116838488],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.816889527326539*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"70f63727-1c96-45b1-962a-68bbc5bb9676"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "10", "\[InvisibleSpace]", "\<\" garren tartea [\"\>", "\[InvisibleSpace]", 
   "0.56640625`", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", 
   "0.568359375`", "\[InvisibleSpace]", "\<\"], luzera= \"\>", 
   "\[InvisibleSpace]", "0.001953125`", 
   "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", 
   "0.17211703958691912`"}],
  SequenceForm[
  10, " garren tartea [", 0.56640625, ",", 0.568359375, "], luzera= ", 
   0.001953125, " eta errorea = ", 0.17211703958691912`],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.8168892819474115`*^9, 3.816889316869337*^9, {3.8168893611885405`*^9, 
   3.816889372058549*^9}, 3.816889404933035*^9, {3.8168895003979893`*^9, 
   3.816889527329564*^9}},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[9]:=",ExpressionUUID->"d1415367-481c-4d8c-b591-f6cd0901f41c"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"3.", " ", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.8168895503829055`*^9, 
  3.8168895544413795`*^9}},ExpressionUUID->"99ba6ce4-58a7-4ebc-b758-\
11b5d8b35edb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], "=", 
  RowBox[{
   RowBox[{"x", "*", 
    RowBox[{"Exp", "[", "x", "]"}]}], "-", "1"}]}]], "Input",
 CellChangeTimes->{{3.8168895594818926`*^9, 3.8168895748184824`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"2ff7d905-d2d5-4f38-ac2d-55e9d5dffce7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "x"], " ", "x"}]}]], "Output",
 CellChangeTimes->{3.816889576063769*^9, 3.8168897394874535`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"5d531171-7935-47ab-9866-fe562bd898d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8168895829474783`*^9, 3.8168896240025635`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"73335070-17cf-43f9-8bbb-4b4b87799b40"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwV13c41e8bB3AzKVIySioUySwpUTynspJEyMyqaEhpaCiVrETJKCEqGSFl
lX0fq1T2Hicr63AcZ32Er/F7fn+d63Wd5zrX57o/z/2+7yPrduXkOR4uLi59
bi6u/3+e+RwxvbwsQr5xxfy0uAoTxP6TUjiwIEIWOahw4wF2tWGKo8+sCNlU
yjyLiq3QV/STxhAhsy/Cw3JVJkwI/U3uHhQhx82MFV9QZ8LVi3tt86pEyISL
ru93DSb4yfeQ3YNFyEL6PW6vtZkQF78tsn6NCFlU/XhAqhETkvpDrlgIriH/
OfnwisB5Jkg0WZ7YKS5M/ieaIVIawoRac0v93/JCZN7g39IHM5lgvFP+xja5
1eTDs7ud/VuZoJPtmNqovopslDZb1v8fE+ZD3ddr7BQkp4p6lZQpsYD49yHG
acdKsuunAIn/HFjguu6oVP8+AXIktXJVSxgLEvyhW1xjBXlH2Jqo6WoWGL+N
j3+rx09uX9UjrrXAAnWzrGvECT7yxjsD5xc12TBi+TyA6zgvuUjomyfpJhuE
VnTFOjvwkAV7+Fecy2MD91r22A1rbvLjJ7fuJs+yYXfGYVMrKy6yUiCL6NLl
QNrg9DmRn0sgY3kmO9+PAyFbltOHyAvAOJHmYVLNAdP8bsbp3nkoLqLE6fIS
8GnONtugfhZCVEcXfY4QEOB86GVF7Qyo/N7rt+8eAQ/UOPI6FTMQz5e5PI99
dzG1ILdoBtx2F/HAfQKuxgu1J2fMgAJJ/KnBAwIcOjvXB4XNwNnSoUhTfwI0
Tni9MDGfAYNj41OHQggY1IsPa+0kYMCFql4TRQBF2EzatIkArcaspNvRBHRQ
uLKqawnI21jiqxxDQN1d998FRQTsZk3efP6SgMKvu1fFxhMwlDvhZP6agAi1
2mBHZwLU5ObPFCQSoLeF8B8Z5cA/ga9yAh8JmH3gV13SxwHj02Nb8rFzBgVW
RHZwQEOq18Ilg4DtKVJP9L5zYLXNFtuvmQQIqpCev0rhgJjwrV+22QS0aT+N
P3qWA7ynxtx98gi4YC2b/2mQDQvuD22EywiQ+5ZBPO5mw53DifuSsCkbNLXs
m9lgPBGlvKucADOKYfGKCjZojH45eQII0DzjSXZ+ywazOsVb/hUELF39VrfO
mQ2q6lTZkhoCosOOj9yksGCBN07Cqx4/76aJ7x1tLBAM9f7Xhd2QEZSuVc+C
+COBtMMNBKz8CZfmyljAkrknItZIgC+/ButeEgsUe3Q2Z+K6uvlJLD92YwFn
QvNuZit+n8J5A8P2LHBsva4o0EZAQsKJSgNLFvTX8fe6YncUhwQK6LOggbLm
qFg7AUf/za9+Ks+C7NYl5csdBOy62r8hcpwJt7YryNO7CDi+7DvPGmDCgWeZ
CdrdBFx8toFi2c0E7q5egQDsD1kWSeK/mJAsN5sv3kOAJLVK/jXuM//760xV
enE9brsIzCczQVx35PAVbHOBxXH7BCY4fq7ZnoMdKr8vSzqcCQbxZim7Kbhe
rukab72Y8OlhxV35PwRsYuqLcXswIdHsUKYz9v6Hg4SrMxNo4wtlsdjXEqWK
tpkzoe3H50CBPgJGe8JQ2m4mrImM8OvE5r24U3alEhNO/n74bmU/ATJzNTwX
5Jggo5z+Zj+2veRyjdJ6Jvy5sWpzDHa9pbdpNocBo65MSdIAAZ7B3/z2TjEg
Dx3f6oG9qmTxS+kIA8jrH/CEYxvLhYr/7mCAhM6iTTv2qHWT0clGBkyPrq/9
hx34ROJu9w8GaOrFiGwcJKCS8b5vrJABh3nOythiu26nrr2SwwAZ/5tjN7G5
bNWPzHxkQHTznUeR2LpQksYXz4A/5j07a7EpLO6ep1EMeHSQs3cQ+66CsdD6
MAbYet1bO4ddGN52VfY+AygWJiryQwTYVEglp99kgIKt0SVt7BmOS7u6F/7e
VPaGKXa0YprAN3cGrO7IMXDC3uM4pa3nzADrX819Xtgtz/d41tgwwHuXnZ4f
9tWqO4mm5gzI0Nt6Jgxb5B80tRozwN5+/thr7GylFbwOhxjgKUn+9wH7uJPp
3iFtBrRrGZz7jE17EelxQYMBopmnowqxQ2u6XjOUGJAWTnlIxt45t6Xu1jYG
vFKMVvmBXatybmlpEwNGGNYxddjuLpm7gsQYIBTMKmrC5o9mugkLM8D3q/br
VuwPP7RiovkZsP7m/O527KCZ/55pLUxD4hDP4/+76nQI22BqGkyMZZ62YXPV
iNla9U2DwoatR1uw9VTelbo1TkMC7VdJA/a9KFVZb/I0DAfTB39iF80XBT7I
mYagVsviqv/X09VwIvz9NDT0Vx0pxdb82WKWEDUNBn9X3M/DvrbLOS8jYBqU
dYbPfsT+/GpSsujmNNDPyc2/+X89lm7d++E+De+Fgg+8wFZy5xtst5mGO7Md
Ox5jn6+PMBg2ngYtyY6y69gpmpszWNrTkH3HaMENW4Z333UR6WlYORdyWRfb
6WJl52bhaWAM9rxRxI5vNjuoskQH/5T33qLYEm89+I8O0MGwNHzp//fHSoBz
waaZDnp9ygU/sF94PWw4V0kHm1t7V2VhC+m+fuX/gQ5bFnxCr2KbfJBfiIih
w980uTxz7ODVuS5JQXToOyp7Ux2bp+fXztLzdNiuSMA4vv+zPgslhAodQve0
m5pg5/LuCwBpOtTMt7hswr4cccX0iRAdUnJOV07g/hv6OESRpk3Bu7PuHgHY
vym1i0cyp0DKSHxVMu7noAs834Xjp6C8xNLBHZs0c+BZZ+gUuK19RduBnS/y
eculi1Ngudq8NgXnQ+LhGBS5cwrCGg5qhuF8sW1sEHDcOAXalY7Wh7DXO65s
khecAtbRtHQOzqOQm74uReM0OCX/tc8a2zvd9dFAGg303xjZ8OB801+jVqWm
QIOuRtIEN55zS3EeT2fFaXDpRKzta5yfRTveWVby00BC/DxFDVvtkNiw9cgk
HIsR22yF81byxjzf/Q+TsOlUs1kwzuuJ7u+Gv+UmIfFAXdMznO8f3LlEYkQn
4eCzFd9WYDuxtTudeCYhKDQ9+h6eB61CnzxYgxMQuspLzQ3Pi1IUFbLx3QTE
JhemiP0m4HmK8y+PrRMw72lHE/tOwNpwaDFcOwFZ0ylVPnj+RN7Y2ivPPQEt
eG51VOP+P9I/+XeICi5tM0sRVQTEDToJu6RSIbFt5BudTEDqZidzW1Uq9H0m
rh0vIUCRv9xWawsV7PLdb0cUE/CRttlVQoQKe6Yu+jfjOZ5V8se7jTEO4TJW
b44X4vdtdzrKPH8c9r+8U65aQEB5jGOH8YFxqKrPVAzD85d0v7Rvh8o41Nld
S8v+REDFWemxFZvHIY3ct6Yxi4DqPZR/1UtjEPf2cYQgnt+/mh02HqocA+cP
uSrn0ghoF3Zw1D46Bpw1hzQKknA/BdoN7bQZBYXNWvczn+H6RrqbVRuOwg1R
/WmvcAKoSdeLnfaNQk/5iVT1MJzXReGRUeKj8P343e70JwT0T1UcXmwdgdxb
NmvuBuD8s1ZKbjIfAf0uLr+YOwQ0uWmJXCKNQIlOv6jKbTyvr+j78u8agQvJ
h6vBB9/XJ06WOiIjYJWy/1rfdfz8ZZG8H+qHgfa2M2f2MgHf5P87c8tkGLYm
GnonuhLwVWNl0zqdYSi5dyiK3wXfXyR+MGvnMJDq3NIuOBHwxU5dbHDlMIz3
HIxXdCAgI/xMtcmPv3DeiXL2kRWe78Tv7Vv0/wLreIp4giEB/jUJI9W6Q7CD
dH+3G+7BgE2LrEzVITCBExGXFHD/eJ/mito8BEGFiqne23H+bt6yyXVxEMIU
syevy+D7cTPJfLF0EEwMOp+ZbyDgvfz7kr0HB4HnV0CBhwDOz8C0F6k6A3Bv
KVdybogDNb0CSeFKA7D+wVhZ1AAHfuw+n3VDagBKonXKlPBe9rLE4lkgpx/s
3FnFx7vx/nrJaq7sej8k2Ck6ejRyoPa3XaPatT7QN7t3d7SYA4JhZ33XXqFA
bdvdrsVnHEiY8pYQtKCA3jFn9RNhHFA78SCHew8FlAZoywlPOHBSNG6MNdML
S0dkedUC8PnYRst2v15QsXA0kL+Dz6foqMQ96wFPq2Qzdzd8vnztn23ZXfC0
ZGvFFg0ODG/dcls6ogsOnbk9MqfGAZ9HyuvFr3UBWZqp2KzMgXh9w6Mr9nWB
+7sb3Dfk8flfvgXjZZ1g5FuQEroBn+8cDf9U3wGMUyel5xbZEMco1dOaaoO2
+uizNTVsUHiz/V1qXRuUfL12qRHviblHw3glstqgRn7Aq62MDb/eO9RyLrbB
Aytxh8YCNsxbzVvkjreCQ9+8dUgKGxyKtM6pDrfAAdFfmrwBbJD2z326rbcJ
/vqaE0sH2ZCuJkWPLG4CqXZbL5f9bNDsfWTOE9cEM6OFDqV72GCqaSE+aNsE
hpGfH51RYsNsXb+u7qdG8GgRu+8lyYaiGPuzez7UQ8qXCwevM1igs8M8Z2vk
Twi7VvFUMpEFXpOFPpbWP8Fcun9642sWJH+WPRi84Sd0FnxblIhmgdB+9nd6
Yi1ca65fwR3Kgj7jl5SyzB+QevmSc/RNFjy6SBFwrKmBT/sm0vOPsaD203mn
2NkK+PqCKgBsJix4N2+rK6kAovnT7zV0Juzep0Nd9quAsHXtBbZ4D40rX33D
g78CaB5qtB4KEzwbs5/sEyVDrE3S+dgaJmwZol74aFMK4/5zrewYvDee55GU
K8+HnkTqPWH8/1FT2yuLbpgPFRVz8sXKTCgW7DlU0pgHZ68op7nIM+F7Ro6n
1WAu2Erdk4nfwIQBmktlEF8OqGvPXK9ZYsCOIb/ejpgMqFR1Kp/8yQDqCHNd
q9MrUA3MN3N2YACP4jsPfv8YoEvlWehZMUD6onmZVkoUWNZWx0scZ0AS5XTz
/s7n0FCCWLl6eC+a6vT7zXgIqR5V2+JkGcAa9DDdUngHdfIHNB+smwbvSVFp
783v0Ze4qwWFrXR4yTr/VVYmGckt/dC3xXO5eK7cvEXuA5I8eiJ89Asd+FZe
CtyjmIqCL9WIN4bTIXZ7FZ3QyEB1gyYxDYZ06M8uctHdnoPGLIOKfAumgH/8
wp5K7SJkdlldfFcgDXaqnqOdy61GAVm97+kTVOg44ipaRq9Gco69q0w7qOBv
f3q/mHIN0vt4zupVBRUowdYBlck16NpXYft/r6gQMWQgvTXmOyLR3jb2HqHC
zCsF065btWhvSNVR5dhxqOYZzzTRrUMJJhMCoRpjsMuzoEByuBlR7RsO2SoP
Q5iK3aM6vhbEE7fpSJLIMFBpC6aP5FvQ1QPruerZf+H9Zf3hCfcWFL4Y6UYp
+QviV1pFy6ktiEtQvLzW5C/MezOvnJ1uRYe/LBv9ODME1bdUlXLm29GTpU/N
bY8GwO5xSqLJuh506joxldTaBYrPFqht6j0oqKpdeDqyC2ZiLfc6m/WgVbXn
LQRPdkFkNnfd9ac9SMHoTX5iYyfUdZ+eS+DvRZG68ovGtR1A2iVhNT3Xi9bm
5lF8P7eB4p8gweihP2j/hRI3W6sm8N2kWUzvHkCx3Q2eGuUl0GcTpjc2PoBI
VvI7FEOK4XD0cGX/vwEkw2p+oWpRBKuEY343iQ+iLyv8ec8NfIXYJYKSazGI
zPO7RW+ycyB/8Nuyz89B5OJkMqOdnQS0tAMGy4VDiAuZdUdUfEROmkeaRGKH
UdP3CGfV2jqkf4zOME0fRhE+E9u+RNUjZbfX60ILh5FxUp5mt3MDmn0+fZKv
exjVOiYKy8w3oqjJ+PbZjSOoK7y5wDC+GdW+5/QMxo+g2ad229PG2pDGutSR
vKRR5MJMY3ZX9CIB+sr/bNLGUa7Sxq+9+iNIISO898HXcfy7r8Qn/UaQobto
aVrNOFoYfRciXzSCgvo23f/3dxwpPX+1QVptFPE1qi2/lKGi9Ov2dFGpMcT1
xYq34zUVyRWv30SaH0dz3m9XW4VNoCbBbiNXCg1NElrS5t40VEqBu1tfsdCz
MJHXpY9oiMZz6ex4KQvt2jYmvjOShqQC+pcbhljIx/ylCE8eDW2XtUsk1NiI
K5PDk8+hIRWtsZKMWjaScMmhSt6eQvkGyoXfuQlE+qX0rd+Pjr4veNy0f/oP
HWtc81HLkIESuux4a7gWkdRM00sjMwZq8bT2b1BdRBPSUQE2pxjoS+LSwpz9
Igq5KOlyy52BdgXlkb4VLKLv/DKS34IYKEPhcEC95xI6fHB34L4fDORJ9yLd
H1xGOh8tXfcaM5HrRyOHH9e4SUqPYzfuMWEh6a2E7UQ2H+nlPSOPQgsWstqs
z9Ku5SPx+Mzk69qxkK//Ad74QT5Sz3krc+PzLGRp+eDbCzF+UqjZ2uDTQSx0
apwUd9KXn0TdGMIJrmQhj6mGYWXTFaT0L7caKTpsJHJXqCr0PwGSQt+pwCBl
DpJ6tVXmUdRqUpu+umz2Hg5K1JxYuy5/NelRpkBZ+wEOyp9smi1sW02i3C7k
bDflID76yJS5hBApcr3U2SpPDrLfu0o9OU6ItGT85zBXNgd96PLR7U8TJnXk
neG6u4tAtwvslXa2i5ACn1z1vbx3Bvm8HlnjhkRJdsYvr1wv+Yci10ZUW2tJ
kP4H53SbAQ==
       "]]},
     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->{{-4, 2}, {-1.3678794019344092`, 5.554038115780843}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8168895986967983`*^9, 3.8168896246945333`*^9}, 
   3.8168897482840433`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"280d2033-97e4-4098-9ebc-c93ee9288f3e"]
}, Open  ]],

Cell["\<\
Erro bat dago 0 -1 tartean
luzera <0,1

\
\>", "Text",
 CellChangeTimes->{{3.8168896387804236`*^9, 
  3.8168896662177343`*^9}},ExpressionUUID->"82b0ea97-555d-462f-b3cd-\
8809ef015adc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "=", "0."}], ";", 
    RowBox[{"b", "=", "1."}], ";", 
    RowBox[{"luzera", "=", 
     RowBox[{"b", "-", "a"}]}], ";", 
    RowBox[{"tol", "=", "0.1"}], ";", 
    RowBox[{"i", "=", "1"}]}], ",", 
   RowBox[{
    RowBox[{"i", "<", "50"}], "&&", 
    RowBox[{"luzera", ">", "tol"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"c", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", 
    RowBox[{"luzera", "=", 
     RowBox[{"b", "-", "a"}]}], ";", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "a", "]"}], "*", 
        RowBox[{"f", "[", "c", "]"}]}], "<", "0"}], ",", 
      RowBox[{"b", "=", "c"}], ",", 
      RowBox[{"a", "=", "c"}]}], "]"}], ";", 
    RowBox[{"Print", "[", 
     RowBox[{"i", ",", 
      RowBox[{"\"\< garren tartea [\>\"", "a"}], ",", 
      RowBox[{"\"\<,\>\"", "b", "\"\<] eta luzera =\>\""}], ",", "luzera"}], 
     "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8168896689407434`*^9, 3.816889688328328*^9}, {
  3.8168897257290564`*^9, 3.816889728845292*^9}, {3.816889770491746*^9, 
  3.8168899639215965`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"62feb213-b115-4622-aa53-ec934889ea3b"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", 
   RowBox[{"0.5`", " ", "\<\" garren tartea [\"\>"}], "\[InvisibleSpace]", 
   RowBox[{"1.`", " ", "\<\",\"\>", " ", "\<\"] eta luzera =\"\>"}], 
   "\[InvisibleSpace]", "1.`"}],
  SequenceForm[1, 0.5 " garren tartea [", 1. "," "] eta luzera =", 1.],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168899647813425`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[3]:=",ExpressionUUID->"7ed90ea3-d095-46da-a9e4-562665bdecfb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", 
   RowBox[{"0.5`", " ", "\<\" garren tartea [\"\>"}], "\[InvisibleSpace]", 
   RowBox[{"0.75`", " ", "\<\",\"\>", " ", "\<\"] eta luzera =\"\>"}], 
   "\[InvisibleSpace]", "0.5`"}],
  SequenceForm[2, 0.5 " garren tartea [", 0.75 "," "] eta luzera =", 0.5],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168899647869062`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[3]:=",ExpressionUUID->"31a2e1eb-ccf9-4e11-880e-b0fc87ec741a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", 
   RowBox[{"0.5`", " ", "\<\" garren tartea [\"\>"}], "\[InvisibleSpace]", 
   RowBox[{"0.625`", " ", "\<\",\"\>", " ", "\<\"] eta luzera =\"\>"}], 
   "\[InvisibleSpace]", "0.25`"}],
  SequenceForm[3, 0.5 " garren tartea [", 0.625 "," "] eta luzera =", 0.25],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168899647909403`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[3]:=",ExpressionUUID->"9e69976b-4ab8-4bbc-80c4-09399d5f6e65"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", 
   RowBox[{"0.5625`", " ", "\<\" garren tartea [\"\>"}], "\[InvisibleSpace]", 
   RowBox[{"0.625`", " ", "\<\",\"\>", " ", "\<\"] eta luzera =\"\>"}], 
   "\[InvisibleSpace]", "0.125`"}],
  SequenceForm[
  4, 0.5625 " garren tartea [", 0.625 "," "] eta luzera =", 0.125],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168899647943707`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[3]:=",ExpressionUUID->"37e80396-0eff-4eb0-b734-69ebcd331ea7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"5", "\[InvisibleSpace]", 
   RowBox[{"0.5625`", " ", "\<\" garren tartea [\"\>"}], "\[InvisibleSpace]", 
   RowBox[{"0.59375`", " ", "\<\",\"\>", " ", "\<\"] eta luzera =\"\>"}], 
   "\[InvisibleSpace]", "0.0625`"}],
  SequenceForm[
  5, 0.5625 " garren tartea [", 0.59375 "," "] eta luzera =", 0.0625],
  Editable->False]], "Print",
 CellChangeTimes->{3.8168899647963657`*^9},
 CellLabel->
  "Durante la evaluaci\[OAcute]n de \
In[3]:=",ExpressionUUID->"59c44e24-88bd-47bb-a6c1-b694130c78fa"]
}, 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[558, 20, 393, 8, 88, "Input",ExpressionUUID->"266da555-b0fb-4e47-93fc-43b8650b1f67"],
Cell[CellGroupData[{
Cell[976, 32, 403, 10, 45, "Input",ExpressionUUID->"e3f6b85e-f5f7-4926-9cf4-1e8500ff3480"],
Cell[1382, 44, 348, 9, 53, "Output",ExpressionUUID->"2eae0457-f812-4b19-bb51-4684060d618b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1767, 58, 338, 8, 45, "Input",ExpressionUUID->"04c2ce8e-5f69-4dc2-b1a4-c988258181e9"],
Cell[2108, 68, 10960, 197, 246, "Output",ExpressionUUID->"cb4c34d7-2006-441f-aa37-75e91183a6d5"]
}, Open  ]],
Cell[13083, 268, 544, 14, 67, "Input",ExpressionUUID->"eb6ec5b4-80f5-4bba-aa37-fc884f6b47e0"],
Cell[CellGroupData[{
Cell[13652, 286, 1257, 35, 195, "Input",ExpressionUUID->"a1c70313-2f94-494e-95dd-913be8c87219"],
Cell[CellGroupData[{
Cell[14934, 325, 543, 12, 22, "Print",ExpressionUUID->"c70e49cd-5801-4a5f-b0cf-35a4c615a98d"],
Cell[15480, 339, 547, 12, 22, "Print",ExpressionUUID->"ac36918c-da91-47a0-9616-1624e8a22f57"],
Cell[16030, 353, 551, 12, 22, "Print",ExpressionUUID->"9724c277-ce3b-4ff7-8d42-c91035b16b55"],
Cell[16584, 367, 562, 13, 22, "Print",ExpressionUUID->"64936245-3565-4fd1-a1a7-c4fc3b91b4d8"],
Cell[17149, 382, 566, 13, 22, "Print",ExpressionUUID->"57f60ce2-ad96-4a2c-8dc3-69cf5a6d5c9e"]
}, Open  ]]
}, Open  ]],
Cell[17742, 399, 147, 3, 48, "Input",ExpressionUUID->"c5c426f3-c54e-492e-a266-d0f4f7da6271"],
Cell[17892, 404, 190, 4, 48, "Input",ExpressionUUID->"4beaa940-7b51-45ea-af21-890d4a7d729e"],
Cell[CellGroupData[{
Cell[18107, 412, 300, 7, 45, "Input",ExpressionUUID->"8511376d-6d62-4567-9624-6ea9c76a5f4f"],
Cell[18410, 421, 251, 5, 32, "Output",ExpressionUUID->"6ac040bd-1896-428f-a003-dbf1dd07ba3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18698, 431, 338, 8, 45, "Input",ExpressionUUID->"35b1c979-ee67-4d72-9f22-f849a80ffbc0"],
Cell[19039, 441, 3790, 80, 241, "Output",ExpressionUUID->"c0518eb5-a3ed-4e93-b1c1-d114f7cb3cc3"]
}, Open  ]],
Cell[22844, 524, 232, 7, 78, "Text",ExpressionUUID->"a95af7c1-7ae5-4ab3-8552-0250351a162b"],
Cell[CellGroupData[{
Cell[23101, 535, 1933, 54, 270, "Input",ExpressionUUID->"6923f0ad-efe7-493b-990b-fcbe8a2e8c8e"],
Cell[CellGroupData[{
Cell[25059, 593, 804, 18, 22, "Print",ExpressionUUID->"5675e7ff-4a1a-4e56-9500-eac852aaa81b"],
Cell[25866, 613, 834, 18, 22, "Print",ExpressionUUID->"223c3d87-1084-4c77-bad7-3daf00f785d4"],
Cell[26703, 633, 812, 18, 22, "Print",ExpressionUUID->"ee02b33d-3f8b-4efc-ba7f-8ab47db53c5f"],
Cell[27518, 653, 841, 18, 22, "Print",ExpressionUUID->"c954eacf-e4bc-4489-b106-647e4ee72b7f"],
Cell[28362, 673, 850, 18, 22, "Print",ExpressionUUID->"30bd64c1-3ea2-47db-b0b2-3bb26a66d407"],
Cell[29215, 693, 865, 19, 22, "Print",ExpressionUUID->"6f47f42a-2650-4e71-a571-6f035aa0c28c"],
Cell[30083, 714, 864, 19, 22, "Print",ExpressionUUID->"1ef6a462-41a4-4647-8a31-a38ca94e88bc"],
Cell[30950, 735, 870, 19, 22, "Print",ExpressionUUID->"57cf9697-d648-43b2-983e-423b8763bb20"],
Cell[31823, 756, 880, 19, 22, "Print",ExpressionUUID->"70f63727-1c96-45b1-962a-68bbc5bb9676"],
Cell[32706, 777, 891, 19, 22, "Print",ExpressionUUID->"d1415367-481c-4d8c-b591-f6cd0901f41c"]
}, Open  ]]
}, Open  ]],
Cell[33624, 800, 234, 5, 67, "Input",ExpressionUUID->"99ba6ce4-58a7-4ebc-b758-11b5d8b35edb"],
Cell[CellGroupData[{
Cell[33883, 809, 305, 7, 45, "Input",ExpressionUUID->"2ff7d905-d2d5-4f38-ac2d-55e9d5dffce7"],
Cell[34191, 818, 274, 6, 32, "Output",ExpressionUUID->"5d531171-7935-47ab-9866-fe562bd898d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34502, 829, 337, 8, 45, "Input",ExpressionUUID->"73335070-17cf-43f9-8bbb-4b4b87799b40"],
Cell[34842, 839, 8244, 153, 240, "Output",ExpressionUUID->"280d2033-97e4-4098-9ebc-c93ee9288f3e"]
}, Open  ]],
Cell[43101, 995, 194, 8, 100, "Text",ExpressionUUID->"82b0ea97-555d-462f-b3cd-8809ef015adc"],
Cell[CellGroupData[{
Cell[43320, 1007, 1308, 37, 214, "Input",ExpressionUUID->"62feb213-b115-4622-aa53-ec934889ea3b"],
Cell[CellGroupData[{
Cell[44653, 1048, 511, 11, 22, "Print",ExpressionUUID->"7ed90ea3-d095-46da-a9e4-562665bdecfb"],
Cell[45167, 1061, 517, 11, 22, "Print",ExpressionUUID->"31a2e1eb-ccf9-4e11-880e-b0fc87ec741a"],
Cell[45687, 1074, 521, 11, 22, "Print",ExpressionUUID->"9e69976b-4ab8-4bbc-80c4-09399d5f6e65"],
Cell[46211, 1087, 532, 12, 22, "Print",ExpressionUUID->"37e80396-0eff-4eb0-b734-69ebcd331ea7"],
Cell[46746, 1101, 538, 12, 22, "Print",ExpressionUUID->"59c44e24-88bd-47bb-a6c1-b694130c78fa"]
}, Open  ]]
}, Open  ]]
}
]
*)