(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     53450,       1174]
NotebookOptionsPosition[     50978,       1122]
NotebookOutlinePosition[     51319,       1137]
CellTagsIndexPosition[     51276,       1134]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
\:0420\:0435\:0448\:0435\:0442\:0435 \:043c\:043e\:0434\:0435\:043b\:043d\
\:0430\:0442\:0430 \:0437\:0430\:0434\:0430\:0447\:0430
u\[CloseCurlyQuote](x)=-10u, 0<x<=1,
u(0)=1
\:043f\:0440\:0438 n=4, 20, 100 \:0438 \:0441\:0440\:0430\:0432\:043d\:0435\
\:0442\:0435 \:0441 \:0442\:043e\:0447\:043d\:043e\:0442\:043e \:0440\:0435\
\:0448\:0435\:043d\:0438\:0435.\
\>", "Chapter",
 CellChangeTimes->{{3.747918045893719*^9, 3.7479180792016163`*^9}, {
   3.748019567260964*^9, 3.7480195984310884`*^9}, {3.7491799306613116`*^9, 
   3.749179945330095*^9}, {3.7491820390416107`*^9, 3.749182140816432*^9}, {
   3.7491822953940344`*^9, 3.7491823155841894`*^9}, {3.749182378833807*^9, 
   3.749182424987447*^9}, {3.749182543546228*^9, 3.74918254777547*^9}, {
   3.7491855618392*^9, 3.749185791014152*^9}, 3.7494816355928173`*^9, {
   3.7494826582226067`*^9, 3.749482678435937*^9}, {3.749483068682683*^9, 
   3.7494830721446886`*^9}, {3.7494884082644987`*^9, 
   3.7494884424507885`*^9}, {3.749488494590744*^9, 3.7494885492422333`*^9}, {
   3.749488662765763*^9, 3.7494886848150673`*^9}, {3.7494887168485804`*^9, 
   3.749488740273077*^9}, 3.749490389264352*^9, 3.811846061257319*^9},
 FontFamily->
  "Times New Roman",ExpressionUUID->"d042ec50-ca16-4ba1-8633-042880a85df6"],

Cell[CellGroupData[{

Cell[TextData[{
 " ",
 StyleBox["\:042f\:0432\:0435\:043d \:043c\:0435\:0442\:043e\:0434 \:043d\
\:0430 \:041e\:0439\:043b\:0435\:0440",
  FontFamily->"Times New Roman"]
}], "Subchapter",
 CellChangeTimes->{{3.7491800556151247`*^9, 3.7491801148925147`*^9}, {
   3.749184977947245*^9, 3.7491850309280972`*^9}, 3.7494830937092724`*^9, {
   3.7812601167617073`*^9, 
   3.781260135042753*^9}},ExpressionUUID->"a735441e-8838-41ff-8805-\
d1a9c5ebff49"],

Cell[BoxData[
 RowBox[{
  RowBox[{"explicitEuler", "[", 
   RowBox[{"n_", ",", "f_"}], "]"}], ":=", " ", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"1.0", "/", "n"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"compute", " ", "numerically"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"xList", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", "h"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"yList", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"yList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", " ", 
      RowBox[{"i", "<", 
       RowBox[{"n", "+", "1"}]}], ",", " ", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"yList", "[", 
        RowBox[{"[", 
         RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", 
       RowBox[{
        RowBox[{"yList", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "+", 
        RowBox[{"h", "*", 
         RowBox[{"f", "[", 
          RowBox[{
           RowBox[{"xList", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"yList", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}]}]}], 
     "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"xList", ",", "yList"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.7493836238906813`*^9, 3.7493836385095177`*^9}, {
   3.749384356585021*^9, 3.7493843611790295`*^9}, {3.7493844148401403`*^9, 
   3.749384420753151*^9}, {3.749384590275527*^9, 3.7493846780717144`*^9}, {
   3.749384897997203*^9, 3.749384925608266*^9}, {3.7493850439795256`*^9, 
   3.7493850542375574`*^9}, {3.7493851155076923`*^9, 3.7493851209227057`*^9}, 
   3.7494043384438906`*^9, 3.749404414203837*^9, {3.7494049692062187`*^9, 
   3.7494049958082685`*^9}, {3.749405083884709*^9, 3.7494050874207907`*^9}, {
   3.749405261802219*^9, 3.749405270318478*^9}, {3.749482020127111*^9, 
   3.7494820350485244`*^9}, {3.7494820838423915`*^9, 3.749482085861209*^9}, {
   3.749494649897457*^9, 3.7494946591031675`*^9}, {3.749584518676146*^9, 
   3.7495845202372456`*^9}, {3.7495855456011543`*^9, 
   3.7495855458879886`*^9}, {3.8118452495879717`*^9, 3.811845332434945*^9}, {
   3.811845605003173*^9, 3.8118456055411615`*^9}, {3.811845699764064*^9, 
   3.8118457233592367`*^9}, {3.8118459509879975`*^9, 3.811845960812689*^9}, {
   3.811846220707199*^9, 3.8118462603309603`*^9}, {3.811846802769661*^9, 
   3.811846824456386*^9}, {3.811846917347542*^9, 3.811846923428111*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"2c1bddce-8258-44bd-9ecc-c4b6286256de"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Compute", " ", "the", " ", "exact", " ", "solution"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x_", ",", "u_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"-", "10"}], "*", "u"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"exact", "[", "t_", "]"}], "=", 
     RowBox[{
      RowBox[{"DSolve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{"f", "[", 
            RowBox[{"t", ",", 
             RowBox[{"u", "[", "t", "]"}]}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"u", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
        RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
      RowBox[{"exact", "[", "x_", "]"}], ":=", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "10"}], "x"}], ")"}]}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plotExact", " ", "=", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"exact", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", " ", "1"}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "100"}], 
    RowBox[{"(*", 
     RowBox[{"4", ",", "20"}], "*)"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"appr", " ", "=", " ", 
     RowBox[{"explicitEuler", "[", 
      RowBox[{"n", ",", "f"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plotAppr", " ", "=", " ", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"appr", ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"plotExact", ",", " ", "plotAppr"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7493842319967685`*^9, 3.7493842331727705`*^9}, {
   3.7493844484702144`*^9, 3.7493844491892214`*^9}, 3.7493845586674576`*^9, {
   3.749384659266677*^9, 3.749384668733695*^9}, {3.7493847064107785`*^9, 
   3.7493847320318384`*^9}, {3.7493848144840183`*^9, 3.749384886023176*^9}, {
   3.749384937312296*^9, 3.7493849410673037`*^9}, {3.749385087903632*^9, 
   3.7493850883746333`*^9}, {3.749385127257717*^9, 3.7493851804228406`*^9}, {
   3.74940436033569*^9, 3.749404512134904*^9}, {3.749404551508767*^9, 
   3.7494046359928923`*^9}, {3.7494049170661097`*^9, 
   3.7494049372849565`*^9}, {3.7494050038584633`*^9, 
   3.7494050320709515`*^9}, {3.7494050915055847`*^9, 
   3.7494050921704893`*^9}, {3.7494051493969383`*^9, 
   3.7494051794227524`*^9}, {3.749405211197274*^9, 3.7494052386121817`*^9}, {
   3.749405524570014*^9, 3.7494055269348636`*^9}, {3.7494819719938617`*^9, 
   3.7494819942660217`*^9}, {3.749482056419203*^9, 3.7494820586988726`*^9}, {
   3.749482101920953*^9, 3.7494821348689547`*^9}, 3.7494824817522955`*^9, {
   3.7494827167138844`*^9, 3.7494827178492293`*^9}, {3.749482793490601*^9, 
   3.749482799514144*^9}, {3.7494922452065935`*^9, 3.7494922527002764`*^9}, {
   3.7494928029294434`*^9, 3.749492907944911*^9}, {3.74949315840049*^9, 
   3.7494932167918415`*^9}, {3.749585553033867*^9, 3.7495855534526267`*^9}, {
   3.749589070545203*^9, 3.74958910512525*^9}, 3.811845247797842*^9, {
   3.81184536825114*^9, 3.8118455813692336`*^9}, {3.811845618113237*^9, 
   3.8118456898355374`*^9}, {3.8118457275550475`*^9, 3.811845730849018*^9}, {
   3.8118459631310453`*^9, 3.8118460156390944`*^9}, {3.8118464842929206`*^9, 
   3.8118464845357823`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"89000fa3-13c5-4c71-96e9-383fff2df558"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVWHc4FQ4XRhIyQoQUCkmSEMl4S0aFhGQkW6FEyChlSygjlazIjKxCVhlZ
2SsjMq/r4nLzIyXh8/11nvc545/znPO+5whaOenZ0lBRUd2gpqL6v71gS+qq
njFQfqPoFL25SQHtWV7nUR4ZrP1yDZghUiD9OjbhA48qZiI290+3UaDZ1v8+
kecyPK4yce9LoMDQ5venaB4bHG5Vs3WRp+DHsUdnn/C4YSQ8+2ixxwKSOXWC
Q3kCof7LgyRNMw8/+g+HHvPE4LuvzIsNzVmIaUSFvHeOQfTogZn0E7PoDnKa
GWqMgd2gsbwF/yyEtonnSLg/x4bJwSjmpRk0rKdJ9Ha/wE2evGvn42fAtPTi
BH/4K1wp1X4mRyEh9se9s8UbSSCsRzv6p03DyDgl/+diGkppLX3iz0yBMnSZ
8Q1vOpTM9XU/SU4h2IzeVv9sOlwUfgWR+afwwdqJtyQmHR6UbrLLBgEst5WC
7stlwIQz8fH+SgLq/QdN6B5k4lYRZXRangCpd2x0fPTZkBE5UrCmPImdm36m
Gvvz0d68IrbDcRyx9oZm4ur5+BG/x93TfBxCveIWbLfzoX/bVXtZdxzKb/ut
hz7lQ0WT1Xen3DjK3r4o/ihRAJfaN7s+Uo9jXp9cqdleAMEQ5e612DEYZL1s
cWV+D7WV+3YMSaMQ1l0gfQkrQu5p387hvGHw+micupFSBKOZyaSsF8PYlZsc
xvixCCfiRgZDHg7jL72+hO5EEezUPl4KvjiMzuqPriMni5HQt2zlShnCPUm/
jT9TxQinyb6048QQ2ll375Y4/RGZtLxzb9oH4dEuj9jlMuSqXpM5dbIfLBLF
U1/pyzFRUnP3p3A/0p5Ihq/xlWOdKXx/MUc/urQODZqplaPG/K+nPaUPR1p2
uwq/KMcr3SbOB5l9GG2kZLyXqwDXcWdJdd4+aNSks7Tdq8Sl2oflHIzfsKeI
bYSaugrTzfTrBrt6YBq+dpnAVQW9Pdund1H14I3NVEuDeBWCC7M/DFK6Ic5Z
VhZmVIWnAs/rYzq6oeJu8ZyzoApxCdH++RHdkE0wzIg5Vo3QTXU5R/ZuWJpl
XMsaqYZYk5RSuWAXSibOtnYo1uJxvgT3w+Z29J3zW3yiUQu+cU/9woJ2rOR9
5tLSq8WF8jnxvy/aIXdf3rLpRi3cpYl3Wq3bUcpxbKU6uhbevGVadzbaUKbK
K/CeVIvYZ1oV7+TaUJnx0zUm5gv6+BnE7pS1oNYhca8xuQ63Xmb/ebbShA8z
N2+ardThgPTdxF2TTUizO1VhTVUP97YN/4SOJgRd7ze5vbseY1cyx8azmnDO
ii0uQLEeS/er4wRNm9BhHMSdF14PE9Jgi0N9I4bPOXJuO9qA6dFJht43Dfgl
osSa69iITH2ZqsTgOihPqDSGejbieAv55sm7dQhOPOdjF9CIe2sjfePWdeDa
fZly8FUjtCx9iy3O1EGW+mZHXF0j3LXunmJe/wLPodiIkL1N+HLJNIfL4wv+
RSyz2nxtgtS5+YCXd2tBs5qza69wM0pdQgV7X1Vjb5vKEo414ymbv15heDVk
Uga/2cg3o5J8nRTrUw3b8zvi87SbYVfAfeCRbTWaXlkJq7g3w/mIA2nkeDUi
TvGcsm9sxrr1U4uZ2CrweQdbf7RvQb50+fQ29s+Q3bQo0c9rhc0tn96/ChXQ
0q72VytthZn/pu13kQpYx/PryNW2IjuZ7mozWwUi5UameftaEa41qDg0XY4Z
p6s8E+utcL5K87AqphwJYwbeztptYCsmMjxaLAN17QWVJ+Q2zDxrG6wsKUVr
oEx7g1gHEkqp98s6luAUawtN1IkOCEdmeF0xKUHWK0u5q6c7ULjk8TFYowQB
eU+TKQYdeFIsncZ1YCt+gOTC7dcBKvvQ9v/6i5F1JHGPQ38H1pNXFiLVi6Ey
419Ap9KJ139fDzEeKwJ/5Nzq24VOFJxJD9cUe4/Plj5v3y91IrrgpscOvvcw
k+YwrvjTicKUKy/at/ZEQt+p0laaLiTSO2k/XCwE975QdwpXF3xSNnKsygrB
ni26JIMuvJxOjpfTLMT2OltyVUQXLLJeive7F2Du9+jIN8luHNLz+qk3kIuS
GxG1F2S7wRhAzJv7nAvffuWMKoVu7BH9xBSXnguuj4mOb9W7kb+T+5qca+7W
/F39523aDVWVHbourLmIW+7jEQrpBp9tTOWg5jucW2y77DLajTvp8q5LPdlI
m61oZnnagzwL+4isfVm4/VLnoMOzHhQedE32Y8iCnOrk/frYHpxdvBdy81cm
mhMZj3qn9kDhs3r6nbZMLF4yjpgp7YHPWm6o2sNMKH9c0a+b7AGBpmZxcyID
gwHHf3jJ94KBjTJvUZoOln2ZFAKhF9zq68bbI1Nx+krAj8mZXqg1/mVt8E2F
S4R5y8RCL67SyGdF30lFHzV35tifXpDgYqKjn4okYojZMNM38OxRqzPYkwqJ
Aoe2HplvKJOUL32a8gbaZyVyagO/QXL8N9HlcwrC7YuvJwv1gTP7WaYodzJm
T+eG7BTrw+btIMGnjMnQ4E7Pdj/WB6c0NtmN1degaYxZ0DrVhzmRwRa6utfw
EnJzX9Xpw916rjhR49e4PioVrHe/DypqubuTHiXhjEFBOm13H/zrGs3alxOw
cjqHYOfTDw/ZFAlbpjhUps3FewT2Q4fxWXn/71fwpxfXD37cD64rYw9MJl+B
pfNdTeqzflQF2XtElr+CiHle0khmPz5IOnVX2m/x7INCo8ud/dBgrhVjaolF
cdnHVggOYH4xw+vYq5dwk6or4voygJQoUb4/Fs9xXUYgOappy+/e+azw4nMY
yXqHMbUP4IriRPY9xedQOCVjRTM4AKbLk34K3M9Bo5LGurAwACfzkxbunTGI
0A10qOcdRKn9Nof6szHIdlYVcHMZRP2tUn2nE88wmlcX1iX4HSHHtqlfUIlC
5zwtWerQdzyO0V1rk45CtbiaVoz4d5Rs0AxeE45CcnY9k6Hcd2h4NxBS6KNg
ldHwZFjrO4qNpA+Ud0SCmNgUMe3xHTeF3F0PWERiPrz12Xrbd7Rl+hzn44jA
mkNv/OF7Q8imCo2LWg3DZdlrURI+Q4j36Ax7OxmGd9TEYOnAIVAoyWndbWEw
i/19R+np0NZcSewxehOGmnrec7pvhlB29U6ohFYYHglYLns2D6G46jT/xptQ
cPTNazXxDsN1xauhzfQxjpzZsXG9YhhnTX5bPtgIRkF2zqGB6mE8ed564c9s
MGR2X9I93zCMAyiqD+gPhuJ0bNqRrmH4nvOXby0IxsUnYpo/icNQyDwULWgT
DJdB7Vgv9h/Ybpi/0tUWhLI7MVLh9j8Q1CpsPfcuEBpvBG8U7hnBn4OxvdIv
/SETyyLSwDcC1v3amh4h/hB4ukb4LjgCe8/bzg1e/vjr9c2KVnwE37uWkh+Z
+iNX97GZ4ekRMHtEvYo54A8O6kWDdbsRHL4h+KuzwA+j5tWq58tHwKdGfeT5
N1947DM/MG46iiTVX+bj3g9hdUnyyrDlKKgaQThm+xAXA6hD+6+PQqlRtTtS
+yFEZlIX25xHUeep9f7x/ofoLSJVlweOQn7Tatmg5gEktVzMY96NguIse0KL
8QFI94ISNP6N4k+vV4DO2/sQJxvs7Nceg32Z9vFubi+UXtaqCr00hhWHEaXs
bV44+0nFVVl/DEsqFP6YBU+YPD02lG40BvX390UT6zzxWJIhx816DE7/HN76
3/EE0a3yArvXGLZXUgc9bfdA8vqBUO20MRx+uPpH9bk7OFh/0tf9HYNuaDqP
hJ4buj+FPjq/PgZ/6fCLx1XcEH1LmK5jcws3O+05I+UG9maTbd9px/FCM1kp
mH0LB9WvU1jGcYnmflN6jyt2rcX9t/fgOFYd/zM8buQKpmm1YVfNcWh1ZZLk
HFxAWxWffzBhHAVev1bpCpzxXVH13GjSOMrFaapaU5yRX04ei0vZ0pUvrqQn
PXOGSYkSO3vmOODo9+66hzMKc0fdqN6PI0DdIygYzjBLOHjqR+M42CuM6FZT
nVDqlVP3YmkczhKGC382HHFTpmKQQXMC4fGjVfd+OaC689u7Uu0JBBGKl2ZG
HMDp+NPnxqUJ9OYsMt5qckBVurBIvcEEdurYp2XFO4BjT6SLr8UEwhpILdRn
HVCxarPz990JGB/xNhV5bo+dVSxKhOQJZDwQTmpXt0POeavkzysTiNIfrXcb
toWMuKAyVrfyLzrTWLfY4jPL2FDV2gR8s5ajzcpt0dlzbU8N1SQIagh+EGuL
5WvGT78wTuKVpWeMsYEtlF0ueTftn4R2RJ6ZX5cNOuOUjbrVJ+Fow11zvsca
v+Z4dxFfTGJl77RB5l9LxCRONya8mkSdx6/Ht+csIa1T5KOfMAlaGZkUlWFL
3HmvTalOmUQCf6Y222dLzHv6tse/m4RCnJCThr8lprYTw3VrJ1ERfMeTmdkS
3/gLGT7Nb8UfCI39eMQCxfoa22JUCbj7/n5iPtc1hGiWBvFpEOBS3JFWuGkK
07OH6dPPE/C7yGegnmQKGumdzCUXCdDrfxwmVGGKi+wdXANGBGTVDkWWWZiC
1HlFjM+RAGebqZoT+VfBe/G6btpzAigPtS9wGZvA51zQ6yIiAXnheZwvfxii
28zOVHKGAPUIZgp3iyGE7mryvJsjoILzK9/bUkM0p7A9S/1JQIHS8rnlZ4bY
vZYYHP2XAAYV3XwZTUNk5ZY4OrNMwedi6eHLlVfQyU5SEJedQtBgoNyXLAMI
/rgwkBo0BVkOR6FDWfoIrVXINwiZgsqT6Zjkl/r4L1M8eEfYFJYvMM4eeqSP
WhcWmZuRU2hefcVhcV0fNvTdEVLxU9DkPs1/V1gfWdLGGjUFU/hjZsYhmqEH
idAbJSNDU+h8MiBrXaiLU3KBMTxSRBhLSwoVD+qgz4pHNlGGCK1ik8rSah24
Ps3rF5AjYv9104WOTB28mxrgFVUk4tOA08RJdx3sjzmaIqtORAmrivkShw5o
Fvty9U2I2C2xeXdd7yJasg83PvEn4uatt50bI1ow3d+xSt1DhKzwdXLykQtg
4XEprvhGxNdZSzELzguo4eC8c3eAiNVo88tSm+chwnCVRPpBhEocuzhrz3lQ
loh9HSQibB4dP/L2/nn4f934kLhBRHPvjfhLneeQ5SZxW15sGh+/qkZTP9LA
r+YnE85+0+iusqV8FFHD8M5vdv8CprHLsf44mVMNtVp8lEfB07i26NN8dLsa
Ituz15LCpjFTV9A7MKkKse7G3W3Pp0FHGyzclqIKs0FqjcPZ0/h+yTxZWEAV
DdN3c8a7t+ozGI9fFDmLWFozNz0hEm7X5XpbXzmDDes9J7pESBC5/5qWcO4M
bL50/tI5TILXVDOLk8IZSPqf9dCWIGGb7d7HaQJn0LQpeu/cSRJ+JO6XCp87
jd9/l3yUtUigXRW/qBFwGlcWH4eJuZHwiLfh1k03gGOk+A1NHQnTA7m7kkIU
8ZTpwYOPDSRssnMqBjsrglFB1ejWVxIYVe5U+Rspgia2m7mvnQQfIcvHpaKK
+E+X4vl2kARnjmItzmYFdNaL6lyikECxbe8N3KWA8Nz4tUTeGdzkSp1uypHH
9gd+l+XvzCBKQ+SQF7ccihbJq1WuM5AV6TutRicHm+tGr9XdZ3By8cQH/mVZ
1Okcm9W/P4PQyh63zQ5ZBB744XM7aAaXPu8/bh8iC9qmkzmpr2ZgVBPYP7R2
AjQcP6lZamdQMq0+v0iWAdVbs/wJ9lkc0nnMkvhLCg3k/tuvOWdBXTZ19NaU
FMIldSVMuWfxWYAgcP6bFPaUns39tm8WL+af64kXS0GiUTSnSXQW/pZvE17c
lYLp1H8ZecpbWJw15+ef4ygTfJR0z2EWIgtH391kOA6XuPwn7LWz0Drq+EQj
SQIf/8U9qq2bheaNpDfxgRL4Zxbs59I4iyT6FaXtNyXw6OC1u92ts8hd/P2Z
+6QEEt4xXovun0XEet6ycs9R1H+2FWefn4Xh9UMfPJmPgntybwsb9xyqj/xL
FI06gk9HQujZbs+hjpb50niXKGR797RFO89BYCJLyeOzKAq8M6N2u85hm9yM
CV+OKN60NfBye87hWvXw8rNAUYQ4bT/K7z+HYjNFU7mTotD74K979MUcPhSb
16m+OYTpUw/izn+eQ+TlQQkxPxGwXXAR92ch4/Vxo4BPN4SQXMO68xQbGZEN
qhFOV4QgKZ87s8hBxsETaxqSakK4KErKsOQhgz+A/umPA0IIpTMTPCNERoZ4
Aztx5CBov5znojpFhnPXhm6a8UGsKAhSPbQl41aCmpG/8QEMH+3s8aokQ22I
TuyCrwBez7E92FZFxuKAl7a8qwCs3uqLPKkhw3vO+avUdQHMCPV7JjeQYaB8
NFtVS2CLV0b2NXaSYaXKdWSSWwBsjOQbu6fIW/3tVqG344c6cce/POZ5/K0o
qFKa3IeCJAgRzOYRFvh3UYRtL5buLe2wtJxHZ/gfOqF/vJA1zJz7YT2P/AKv
m8eneVHByvqh324ell/sf3p/4kWD78iZFpd5ZO+devzNgRdDVg/M3wfPw/fR
aV7/Jh7QHaqI882bByeVdoJrBDeu5cuy7duY37qH3ZKOnudCickflk6qBeSE
+MFelgssdOVMAdsWMCpikld0kAvVpkr0M/QLWPlPsfreBicOMKpuFnEs4Psm
QaW2iBNEG915rcMLiAqZMpIW4sRt3ltfvS8vILL5/ltVlt3wDUrxG85ewP4v
XEwPmNi3dOSOC5a5C/htqETU3mBDnJ0jOzF/AZLcDMTDP9nwQVM+lVK0gBjf
cOltvWwgsnXV0VRtYY5s9lMJbNBMoqI/3LMANaUGk0IJtq371Pzp3bUFEH2a
FcOu7kIuaV88ixYFZH13Q4MMZoQkBlmMXKRA82fvB/1wZtjozQvn6VLgrV0z
aufCDL7KygJtQwrofmhd6VdmRmjE1YZwKwrsytWiaweYYCf7apHRi4J/PjL8
NbuYcCBw97kdGRSwXh7oGohkxMZJb+b+LAqsllozw7wYMTg/2Z2RQ0HGX/K8
nhUjIg0/XFMvpCB5kyFgvwwjNsX0XIMqKShKSR7JHGDAcFdE0rYeCmxSLddd
hRlQGvzbuucbBW0hQ5G2rAyIUTA/nDpAwe3leW+HVXpopksUqYxQIHVo5968
NnqUe7Z99ZuhoJQv9yWvBz1eHD0RoUumwNiZnjvdkh53JhIuC1IokNsYdFDR
ooeo1q3R6mUKIusJasWC9KCl7k2L/E2BV5pqbigTPcaKFRws/lJAS7mR7vJ7
ByodUo9JrlMwMrV9v+PEDrzk3/nr/39lZXYC3b22HfgfSPnuMg==
        "]]},
      Annotation[#, "Charting`Private`Tag$2671#1"]& ]}, {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], GeometricTransformationBox[InsetBox[
        StyleBox["\[FilledCircle]",
         StripOnInput->False,
         GraphicsBoxOptions->{DefaultBaseStyle->Directive[
           PointSize[0.009166666666666668], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]]}], {0., 0.}], CompressedData["
1:eJxdlXtMUwcUxkF0i6BDgrKplMckCg6mwEAx0E8d8hRnRQYCko5RxAfPiA7m
xA1hRMYjDGS8h4XpakRFJqJGh5UxBBwvacFCKVBaofIyBXRiR7sz/9hJ7k1u
7r3fOd/3O7nXPDR6H0dHS0uLs3BoLxyLtP5fk/h6ZZW7JPEsWlvUpaDrXChY
t0xSxp5BfWbdKkWaUc/jWV8Z3a9A1avgyIY3wygsUNevOFzV6eEtHaTnqzBn
HJCZrS0hneu419pecKS4n96vwcMOZ/8/fngKXQE3xkW3Ft+cS96T1CwkvToI
Nn3Kvr+3G1bBWQ+UlncRb9C9NGFVF+nfw039i36+hh2oWHhbwP0dU4FGrfmu
bdSvHt4ulrGuHq2w1xQfszqxKm7gI+r/ECF7k1QvaxvBV1oudGiAed40pzGg
geZpRKnixXs+jnzs0zT8E/Xm8RlfedXTfE1QRh9rrjS9D0miWvARZvIlOoOL
7tK8LTh4Yfhws0MdYtXjxbTi9kc1u45cu0nzP0ZmoJ8w52gN/uXQhtVHR5Rt
7Gry04bNNsY8v3PX4KFp0I7JUQ6nteEK+WtHZeqlHWXNPKi7BWd1IFfsNX6J
cYn8duLYa5Gzd00lNHYEncj1tGHw0rjkvwsdQTvXFOSWw1Q9jskTuFfy8gwr
yyiPJwj8+MY7c4nFOBSurm6MibY5icsLKB8BItlrfa4a5EOttrJKgNAYTgOD
n0t5CTF9fUdz4dUczKjllEJsMLuTzGzPpvx6MOBUmxqzKxNMjWAvvGQV4tPM
dMqzFzPF7k16KWnQjJfyFK7LAyP8DVIpXxEm9ViuEaJk2lsR0v2vxsyKv6W8
+xAWsaU6xOgMVmkG7Ifszpe9K5SnKP9+JGetD3mgnwiNXLAYMz539+cdP0k8
BrDR7YTK1Die/AzgQNwo56YqjvgMYDS8Lsh/dSz5GwDqfISOjVHESwLTDLHS
68ZR8iuBo51nn9V4BPGTYD4hKHE6Opz8D2LezDQqwzaMeA7i/cXGQz9Zh1Ie
g/AoUXE+D2IT3yHs2aNiOMQepHyGYMhWFZ5KCiTeQ+h33h2wrsef8hrGF20n
/yo74Uf8h2HxZCzSiuVL+Q2jC/s9K0NZtA9SnF72JtnK+zPKUwo9YT5fb+Nu
2g8pXPSjz+se8KR8R1CbMW+2rs2N9mUE6aprJaZprpT3COalt3q/S9xJ+yPD
o6Keh/Hl2yl/GZZUf58XOeFC+yRDaSq7c9XUNuIhh2VCTCwbW4mHHMyfvQu4
HQ7EQ47Ffdncl1x74iEH41VRgs0VW+LxDNpZ0l5W+ybi8Qwy+4jLTRes337n
GHm8M781WBGPURQqVOsnbTcgW8NjFFP7RyYsBiyIxyiWjcgFt5s+JB5jEBax
HtTLzYjHGPZJczbyo02IxxjmD9UuOx+2lngoEMZjCn0vfkA8FNgQvlVku9no
7Xd4MqhFbD1nSDyeYzqlfZNyzoB4PMeLkKWXRdYriMdzyHl99hmM5cRjHFvO
uHvYfaJLPMbRfGD7cXbeu8RjHIvPdhZxnZYQjwmU8Cvi3NboEI8JbB+yOQRb
beIxgV/sFArm9Bvmf/+N1z92RS3p/Zv5D5otDx4=
       "]]}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.009166666666666668], AbsoluteThickness[1.6]}, {}}, {
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.009166666666666668], AbsoluteThickness[1.6]}, {}}}, {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  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, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7494922663833694`*^9, 3.749492271056675*^9}, 
   3.749492803861903*^9, {3.7494928345442133`*^9, 3.749492912263403*^9}, {
   3.7494931611908813`*^9, 3.74949321784122*^9}, 3.749557535873969*^9, 
   3.749584453467743*^9, 3.7495855546219373`*^9, {3.7495857814461575`*^9, 
   3.7495857870729136`*^9}, {3.74958784035926*^9, 3.749587879234846*^9}, {
   3.7495890724850683`*^9, 3.7495891056619396`*^9}, 3.7496323653165913`*^9, 
   3.7496323973061457`*^9, 3.8118455500448456`*^9, {3.811845583150752*^9, 
   3.8118456289505463`*^9}, 3.8118456609637985`*^9, 3.811845731827763*^9, 
   3.811846016682028*^9, 3.811846223498279*^9, {3.8118464774191217`*^9, 
   3.8118464859554386`*^9}, 3.8118469405518255`*^9, 3.811847021763916*^9, 
   3.8118474471479273`*^9, 3.8118484683721046`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"0aa5df4e-ab5c-46cf-bf60-db7fc889adf9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"explicitEuler", "[", 
        RowBox[{"n", ",", "f"}], "]"}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     " ", "plotExact"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "4", ",", " ", "100", ",", "4"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7491857993496284`*^9, 3.7491859195372877`*^9}, {
   3.7491859514601135`*^9, 3.7491862472298784`*^9}, 3.749186277472608*^9, {
   3.749186413678303*^9, 3.7491864416059*^9}, {3.7491865042954855`*^9, 
   3.749186531712054*^9}, {3.7491866021170807`*^9, 3.7491866802261305`*^9}, {
   3.7491867492580795`*^9, 3.7491867541113567`*^9}, 3.749380030076734*^9, {
   3.749380074995303*^9, 3.749380105799065*^9}, 3.7493801411610875`*^9, {
   3.749380231292148*^9, 3.7493802648670683`*^9}, {3.7493803564773083`*^9, 
   3.7493803846149178`*^9}, {3.749380430720555*^9, 3.7493804590691757`*^9}, {
   3.7493805020906367`*^9, 3.7493805988731685`*^9}, {3.7493806650359526`*^9, 
   3.7493806654469767`*^9}, {3.749380699827943*^9, 3.749380711910634*^9}, {
   3.7493807565961776`*^9, 3.749380756957198*^9}, {3.7493808092771654`*^9, 
   3.749380839449891*^9}, {3.7493808706356754`*^9, 3.749380927519929*^9}, {
   3.7493810742468987`*^9, 3.749381098179268*^9}, {3.749381132748245*^9, 
   3.7493811438658805`*^9}, {3.749381208586582*^9, 3.7493812158239737`*^9}, {
   3.7493812493757854`*^9, 3.7493812499188166`*^9}, {3.7493813805762897`*^9, 
   3.7493814204755716`*^9}, 3.7493816282870164`*^9, {3.749404659618826*^9, 
   3.7494046782914886`*^9}, {3.7494047174984603`*^9, 3.749404717838476*^9}, {
   3.7494047745826564`*^9, 3.7494047951482673`*^9}, {3.7494048279525733`*^9, 
   3.7494048291025343`*^9}, {3.7494048629848557`*^9, 3.749404865799714*^9}, {
   3.749405292098095*^9, 3.7494052986801696`*^9}, {3.749405389468236*^9, 
   3.7494054315835114`*^9}, {3.749405489517639*^9, 3.749405497824762*^9}, {
   3.749482213068869*^9, 3.749482216388954*^9}, {3.749482437615726*^9, 
   3.7494824634068727`*^9}, {3.7494866003053617`*^9, 3.7494866750961733`*^9}, 
   3.749489989213008*^9, {3.749490404744441*^9, 3.7494904072499833`*^9}, {
   3.7494925251621675`*^9, 3.7494925277446814`*^9}, {3.7494946231019077`*^9, 
   3.7494946298570113`*^9}, {3.749587862022788*^9, 3.7495878625374746`*^9}, {
   3.8118456387360926`*^9, 3.8118456413860025`*^9}, {3.8118457564858727`*^9, 
   3.8118457991809664`*^9}, {3.81184583001606*^9, 3.811845929155834*^9}, {
   3.811846031433589*^9, 3.8118460342201853`*^9}, {3.8118464640322847`*^9, 
   3.8118464642744856`*^9}, {3.811847178376585*^9, 3.8118471812712135`*^9}, {
   3.8118476515066967`*^9, 3.8118476541711483`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"246fba39-1054-45c3-b138-64acaa220663"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 4, 100, 4}}, Typeset`size$$ = {
    360., {108., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$2787$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$2787$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ListLinePlot[
         $CellContext`explicitEuler[$CellContext`n$$, $CellContext`f], 
         PlotMarkers -> $CellContext`\[FilledCircle], 
         PlotRange -> {{0, 1}, {-2, 2}}], $CellContext`plotExact], 
      "Specifications" :> {{$CellContext`n$$, 4, 100, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {155., 161.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.81184846912471*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"272f8a03-fdaf-4200-9699-28f09bfb8111"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:041d\:0435\:044f\:0432\:0435\:043d \:043c\:0435\
\:0442\:043e\:0434 \:043d\:0430 \:041e\:0439\:043b\:0435\:0440",
 FontFamily->"Times New Roman"]], "Subchapter",
 CellChangeTimes->{{3.7491800556151247`*^9, 3.7491801148925147`*^9}, {
  3.749184977947245*^9, 3.7491850309280972`*^9}, {3.7493833242875905`*^9, 
  3.749383328490831*^9}, {3.749483085324106*^9, 3.749483086623339*^9}, {
  3.7812601455913563`*^9, 
  3.7812601667775683`*^9}},ExpressionUUID->"15c21b53-5cdd-428a-b23a-\
f6926c56c4d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"implicitEuler", "[", 
   RowBox[{"n_", ",", "f_"}], "]"}], ":=", " ", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"1.0", "/", "n"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"xList", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", "h"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"yList", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"yList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", " ", 
      RowBox[{"i", "<", 
       RowBox[{"n", "+", "1"}]}], ",", " ", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"initialGuess", " ", "=", 
        RowBox[{
         RowBox[{"yList", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{"h", "*", 
          RowBox[{"f", "[", 
           RowBox[{
            RowBox[{"xList", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"yList", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"yList", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"yNew", "\[Equal]", "  ", 
            RowBox[{
             RowBox[{"yList", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "+", 
             RowBox[{"h", "*", 
              RowBox[{"f", "[", 
               RowBox[{
                RowBox[{"xList", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", "+", "1"}], "]"}], "]"}], ",", "yNew"}], 
               "]"}]}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"yNew", ",", "initialGuess"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
     "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"xList", ",", "yList"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.7494059558873873`*^9, 3.749405970850243*^9}, {
   3.7494060243690233`*^9, 3.7494060543579655`*^9}, {3.7494061213677626`*^9, 
   3.7494061290599527`*^9}, 3.7494858717307434`*^9, {3.7494859764090776`*^9, 
   3.749485993325336*^9}, {3.749486078851015*^9, 3.7494861122447605`*^9}, {
   3.7494861699255037`*^9, 3.749486186100178*^9}, {3.749585606953765*^9, 
   3.7495856072096157`*^9}, {3.8118460945176964`*^9, 3.811846122070135*^9}, {
   3.8118461532627335`*^9, 3.8118463230078664`*^9}, {3.8118469600324116`*^9, 
   3.8118470034527063`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"9c362e77-0d7b-4bfd-8e3d-2352c6d3db40"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Compute", " ", "the", " ", "exact", " ", "solution"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x_", ",", "u_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"-", "10"}], "*", "u"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"exact", "[", "t_", "]"}], "=", 
     RowBox[{
      RowBox[{"DSolve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", 
           RowBox[{"f", "[", 
            RowBox[{"t", ",", 
             RowBox[{"u", "[", "t", "]"}]}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"u", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
        RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plotExact", " ", "=", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"exact", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", " ", "1"}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"implicitEuler", "[", 
          RowBox[{"n", ",", "f"}], "]"}], ",", " ", 
         RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}], ",", " ", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
       " ", "plotExact"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "4", ",", " ", "100", ",", "4"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7493842319967685`*^9, 3.7493842331727705`*^9}, {
   3.7493844484702144`*^9, 3.7493844491892214`*^9}, 3.7493845586674576`*^9, {
   3.749384659266677*^9, 3.749384668733695*^9}, {3.7493847064107785`*^9, 
   3.7493847320318384`*^9}, {3.7493848144840183`*^9, 3.749384886023176*^9}, {
   3.749384937312296*^9, 3.7493849410673037`*^9}, {3.749385087903632*^9, 
   3.7493850883746333`*^9}, {3.749385127257717*^9, 3.7493851804228406`*^9}, {
   3.74940436033569*^9, 3.749404512134904*^9}, {3.749404551508767*^9, 
   3.7494046359928923`*^9}, {3.7494049170661097`*^9, 
   3.7494049372849565`*^9}, {3.7494050038584633`*^9, 
   3.7494050320709515`*^9}, {3.7494050915055847`*^9, 
   3.7494050921704893`*^9}, {3.7494051493969383`*^9, 
   3.7494051794227524`*^9}, {3.749405211197274*^9, 3.7494052386121817`*^9}, {
   3.749405524570014*^9, 3.7494055269348636`*^9}, {3.7494819719938617`*^9, 
   3.7494819942660217`*^9}, {3.749482056419203*^9, 3.7494820586988726`*^9}, {
   3.749482101920953*^9, 3.7494821348689547`*^9}, 3.7494824817522955`*^9, {
   3.7494827167138844`*^9, 3.7494827178492293`*^9}, {3.749482793490601*^9, 
   3.749482799514144*^9}, {3.749486017636326*^9, 3.7494860178721905`*^9}, {
   3.749486210581063*^9, 3.7494862946326017`*^9}, 3.7494900054856415`*^9, {
   3.749494724408496*^9, 3.7494947269650407`*^9}, {3.749585612415617*^9, 
   3.749585612783407*^9}, {3.8118463524355755`*^9, 3.811846371356491*^9}, {
   3.811846404533572*^9, 3.8118464468161354`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"6850a866-70a5-464a-8df9-7e87ab028d97"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 4, 100, 4}}, Typeset`size$$ = {
    360., {108., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$2955$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$2955$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ListLinePlot[
         $CellContext`implicitEuler[$CellContext`n$$, $CellContext`f], 
         PlotMarkers -> $CellContext`\[FilledCircle], 
         PlotRange -> {{0, 1}, {-2, 2}}], $CellContext`plotExact], 
      "Specifications" :> {{$CellContext`n$$, 4, 100, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {155., 161.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7494862019680295`*^9, 3.749486353166853*^9}, 
   3.7494875589661837`*^9, 3.749490008251032*^9, 3.7494901236395016`*^9, 
   3.7494919020334444`*^9, 3.7495575363786774`*^9, 3.7495844537625647`*^9, 
   3.7495845365228386`*^9, 3.7495845692759557`*^9, 3.749585614038699*^9, {
   3.7495857815441017`*^9, 3.7495857873717604`*^9}, 3.7495878412987194`*^9, 
   3.749587879346781*^9, 3.7496323657583523`*^9, 3.749632397418087*^9, {
   3.811846414340054*^9, 3.8118464780954475`*^9}, 3.8118470466601725`*^9, 
   3.811847447235467*^9, 3.811848469391864*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"7d953368-202f-45c8-8895-f4eda6c0e36c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:041d\:0435\:044f\:0432\:0435\:043d \:043c\:0435\
\:0442\:043e\:0434 \:043d\:0430 \:041e\:0439\:043b\:0435\:0440 \[Dash] \:0440\
\:0435\:0448\:0430\:0432\:0430\:043d\:0435 \:043d\:0430 \:043d\:0435\:043b\
\:0438\:043d\:0435\:0439\:043d\:0438\:0442\:0435 \:0443\:0440\:0430\:0432\
\:043d\:0435\:043d\:0438\:044f \:0441 \:043c\:0435\:0442\:043e\:0434 \:043d\
\:0430 \:041d\:044e\:0442\:043e\:043d",
 FontFamily->"Times New Roman"]], "Subchapter",
 CellChangeTimes->{{3.7491800556151247`*^9, 3.7491801148925147`*^9}, {
   3.749184977947245*^9, 3.7491850309280972`*^9}, {3.7493833242875905`*^9, 
   3.749383328490831*^9}, {3.749483085324106*^9, 3.749483086623339*^9}, {
   3.749488781047584*^9, 3.749488782729614*^9}, {3.7494888304940586`*^9, 
   3.749488837469053*^9}, {3.749488928242716*^9, 3.749488949678341*^9}, {
   3.7495897078997498`*^9, 3.7495897143500314`*^9}, {3.7812601817454243`*^9, 
   3.78126025335352*^9}, 
   3.811847814191779*^9},ExpressionUUID->"0470cd01-9825-4f96-95f6-\
ad3b2c9df300"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Newton", " ", "method", " ", "solves", " ", "equations", " ", "g", 
      RowBox[{"(", "x", ")"}]}], "=", "0"}], ",", " ", 
    RowBox[{
    "generating", " ", "a", " ", "sequence", " ", "of", " ", "points", " ", 
     "\[IndentingNewLine]", "x0"}], ",", "x1", ",", "x2", ",", "...", ",", 
    "xn", ",", 
    RowBox[{
     RowBox[{
      RowBox[{"...", ".", "\[IndentingNewLine]", "using"}], " ", "the", " ", 
      "formula", "\[IndentingNewLine]", 
      SubscriptBox["x", "n"]}], "=", 
     RowBox[{
      SubscriptBox["x", 
       RowBox[{"n", "-", "1"}]], "-", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"g", "[", 
          SubscriptBox["x", 
           RowBox[{"n", "-", "1"}]]}], ")"}], 
        RowBox[{
         RowBox[{
          RowBox[{"g", "'"}], "[", 
          SubscriptBox["x", 
           RowBox[{"n", "-", "1"}]]}], ")"}]], "\[IndentingNewLine]", "The", 
       " ", "method", " ", "stops", " ", "if", " ", "\[IndentingNewLine]", 
       "the", " ", "difference", " ", "between", " ", "two", " ", 
       "consequtive", " ", "iterations", " ", "is", " ", "less", " ", "than", 
       " ", "tol", "\[IndentingNewLine]", "the", " ", "number", " ", "of", 
       " ", "iterations", " ", "is", " ", "greater", " ", "than", " ", "the", 
       " ", "maxIter"}]}]}]}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Newton", "[", 
    RowBox[{"g_", ",", "x0_", ",", " ", "tol_", ",", " ", "maxIter_"}], "]"}],
    ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"xCurrent", " ", "=", " ", "x0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"xNext", " ", "=", " ", 
      RowBox[{"xCurrent", " ", "-", " ", 
       RowBox[{
        RowBox[{"g", "[", "xCurrent", "]"}], "/", 
        RowBox[{
         RowBox[{"g", "'"}], "[", "xCurrent", "]"}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"iter", "=", "1"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"xCurrent", "-", "xNext"}], "]"}], "\[GreaterEqual]", 
         "tol"}], " ", "&&", " ", 
        RowBox[{"iter", "<", "maxIter"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"xCurrent", " ", "=", " ", "xNext"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"xNext", " ", "=", " ", 
         RowBox[{"xCurrent", " ", "-", " ", 
          RowBox[{
           RowBox[{"g", "[", "xCurrent", "]"}], "/", 
           RowBox[{
            RowBox[{"g", "'"}], "[", "xCurrent", "]"}]}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"iter", "++"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "xNext"}], 
    "\[IndentingNewLine]", ")"}]}]}]], "Input",
 CellChangeTimes->{{3.749488845281536*^9, 3.7494888561912413`*^9}, {
  3.7494889168522677`*^9, 3.7494891343418865`*^9}, {3.7494892440246725`*^9, 
  3.7494892539779186`*^9}, {3.749489470876878*^9, 3.749489531043172*^9}, {
  3.749489625781549*^9, 3.7494897010011797`*^9}, {3.7494919148540654`*^9, 
  3.749491968017396*^9}, {3.749492031738674*^9, 3.7494920539708385`*^9}, {
  3.749492094524457*^9, 3.7494921340546656`*^9}, {3.8118465147689915`*^9, 
  3.811846763484541*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"71ce8d44-8a7b-41b4-925c-431a5c62d8a7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "-", 
   RowBox[{"2", "x"}], "+", "1.", "+", 
   RowBox[{"Sin", "[", "x", "]"}], "+", 
   RowBox[{"Log", "[", "x", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Newton", "[", 
  RowBox[{"g", ",", "10", ",", "0.0000001", ",", "100"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7494891091564074`*^9, 3.7494891835075407`*^9}, {
  3.7494892705603733`*^9, 3.7494893302709465`*^9}, {3.749584603905991*^9, 
  3.749584604726534*^9}, {3.811847111845838*^9, 3.811847115167983*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"e4f6ebc4-d95f-476e-95bd-1c2db305bbfd"],

Cell[BoxData["0.48092792694701936`"], "Output",
 CellChangeTimes->{
  3.749489380003256*^9, 3.7494897437865124`*^9, 3.74949012414321*^9, 
   3.749491902054428*^9, 3.7494921543189816`*^9, 3.7495575365595727`*^9, 
   3.749584453899476*^9, {3.749584588735749*^9, 3.7495846060407567`*^9}, 
   3.7495856564742117`*^9, {3.74958578156609*^9, 3.749585787497669*^9}, 
   3.7495878414956045`*^9, 3.749587879370768*^9, 3.7496323657863197`*^9, 
   3.749632397442068*^9, 3.8118464782912254`*^9, 3.8118471160057063`*^9, 
   3.811847447288435*^9, 3.811848469510785*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"13225d7d-947d-45dc-a20f-bff2b7331b5a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"g", "[", "x", "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494893379015303`*^9, 3.7494893760305457`*^9}, {
  3.811847123588312*^9, 3.811847124899007*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"69d1fb96-82f5-4878-b981-05baca68e47f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "0.4809279269470193`"}], "}"}]], "Output",
 CellChangeTimes->{{3.7494891227135744`*^9, 3.749489137018344*^9}, 
   3.7494891846848617`*^9, {3.7494892627088823`*^9, 3.749489331523219*^9}, 
   3.7494893765472465`*^9, 3.749489764862376*^9, 3.7494901242321606`*^9, 
   3.7494919020684214`*^9, 3.7494921603375115`*^9, 3.749557536576563*^9, 
   3.7495844539204636`*^9, {3.7495857815760827`*^9, 3.749585787509661*^9}, 
   3.749587841509597*^9, 3.7495878793817606`*^9, 3.7496323657993126`*^9, 
   3.7496323974560604`*^9, 3.8118464783615904`*^9, {3.81184711981349*^9, 
   3.811847125593175*^9}, 3.811847447327417*^9, 3.811848469548643*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"c13fd1dc-fc3f-4097-9a5a-0981c955154a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"implicitEulerWithNewton", "[", 
   RowBox[{"n_", ",", "f_"}], "]"}], ":=", " ", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"1.0", "/", "n"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"xList", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", "h"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"yList", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"yList", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", " ", 
      RowBox[{"i", "<", 
       RowBox[{"n", "+", "1"}]}], ",", " ", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"initialGuess", " ", "=", 
        RowBox[{
         RowBox[{"yList", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{"h", "*", 
          RowBox[{"f", "[", 
           RowBox[{
            RowBox[{"xList", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"yList", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"g", "[", "yNew_", "]"}], ":=", 
        RowBox[{"yNew", "-", 
         RowBox[{"(", "  ", 
          RowBox[{
           RowBox[{"yList", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "+", 
           RowBox[{"h", "*", 
            RowBox[{"f", "[", 
             RowBox[{
              RowBox[{"xList", "[", 
               RowBox[{"[", 
                RowBox[{"i", "+", "1"}], "]"}], "]"}], ",", "yNew"}], 
             "]"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"yList", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
        RowBox[{"Newton", "[", 
         RowBox[{"g", ",", "initialGuess", ",", "0.0000001", ",", "100"}], 
         "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"xList", ",", "yList"}], "}"}], "]"}]}], "\[IndentingNewLine]", 
   ")"}]}]], "Input",
 CellChangeTimes->{{3.7494059558873873`*^9, 3.749405970850243*^9}, {
   3.7494060243690233`*^9, 3.7494060543579655`*^9}, {3.7494061213677626`*^9, 
   3.7494061290599527`*^9}, 3.7494858717307434`*^9, {3.7494859764090776`*^9, 
   3.749485993325336*^9}, {3.749486078851015*^9, 3.7494861122447605`*^9}, {
   3.7494861699255037`*^9, 3.749486186100178*^9}, {3.749489800110054*^9, 
   3.7494899241475224`*^9}, {3.7495846153723946`*^9, 
   3.7495846170614204`*^9}, {3.74958464819845*^9, 3.7495846576680083`*^9}, {
   3.7495856887416244`*^9, 3.7495856889694934`*^9}, {3.811847209410264*^9, 
   3.811847232841346*^9}, {3.811847314831072*^9, 3.8118473741989512`*^9}, {
   3.8118474141330233`*^9, 3.8118474143147645`*^9}, {3.8118474799584527`*^9, 
   3.811847480824983*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"1b19b015-ff80-48d1-8b7c-cca75b228294"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "u_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"-", "10"}], "*", "u"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"exact", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"DSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"f", "[", 
          RowBox[{"t", ",", 
           RowBox[{"u", "[", "t", "]"}]}], "]"}]}], ",", 
        RowBox[{
         RowBox[{"u", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", 
      RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plotExact", " ", "=", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"exact", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", " ", "1"}], "}"}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"implicitEulerWithNewton", "[", 
        RowBox[{"n", ",", "f"}], "]"}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     " ", "plotExact"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", " ", "4", ",", " ", "100", ",", "4"}], "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.811847407923244*^9, 3.811847412083831*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"adf1d565-cf34-4ed9-8b25-a1d1e4aaa30b"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 4, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`n$$], 4, 100, 4}}, Typeset`size$$ = {
    360., {108., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$3116$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$3116$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ListLinePlot[
         $CellContext`implicitEulerWithNewton[$CellContext`n$$, \
$CellContext`f], PlotMarkers -> $CellContext`\[FilledCircle], 
         PlotRange -> {{0, 1}, {-2, 2}}], $CellContext`plotExact], 
      "Specifications" :> {{$CellContext`n$$, 4, 100, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {155., 161.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.8118474474163613`*^9, 3.8118474939138455`*^9, 
  3.8118484696452312`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"74b6b525-c1b6-4a4a-83d7-184165037e7e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{675, 676},
WindowMargins->{{Automatic, -1}, {Automatic, 0}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1272, 21, 236, "Chapter",ExpressionUUID->"d042ec50-ca16-4ba1-8633-042880a85df6"],
Cell[CellGroupData[{
Cell[1876, 47, 446, 10, 64, "Subchapter",ExpressionUUID->"a735441e-8838-41ff-8805-d1a9c5ebff49"],
Cell[2325, 59, 3075, 69, 238, "Input",ExpressionUUID->"2c1bddce-8258-44bd-9ecc-c4b6286256de"],
Cell[CellGroupData[{
Cell[5425, 132, 3994, 90, 200, "Input",ExpressionUUID->"89000fa3-13c5-4c71-96e9-383fff2df558"],
Cell[9422, 224, 12324, 221, 238, "Output",ExpressionUUID->"0aa5df4e-ab5c-46cf-bf60-db7fc889adf9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21783, 450, 3139, 53, 67, "Input",ExpressionUUID->"246fba39-1054-45c3-b138-64acaa220663"],
Cell[24925, 505, 1832, 37, 335, "Output",ExpressionUUID->"272f8a03-fdaf-4200-9699-28f09bfb8111"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26806, 548, 518, 8, 61, "Subchapter",ExpressionUUID->"15c21b53-5cdd-428a-b23a-f6926c56c4d3"],
Cell[27327, 558, 3137, 79, 295, "Input",ExpressionUUID->"9c362e77-0d7b-4bfd-8e3d-2352c6d3db40"],
Cell[CellGroupData[{
Cell[30489, 641, 3690, 83, 162, "Input",ExpressionUUID->"6850a866-70a5-464a-8df9-7e87ab028d97"],
Cell[34182, 726, 2358, 44, 335, "Output",ExpressionUUID->"7d953368-202f-45c8-8895-f4eda6c0e36c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36589, 776, 1025, 15, 95, "Subchapter",ExpressionUUID->"0470cd01-9825-4f96-95f6-ad3b2c9df300"],
Cell[37617, 793, 3496, 82, 440, "Input",ExpressionUUID->"71ce8d44-8a7b-41b4-925c-431a5c62d8a7"],
Cell[CellGroupData[{
Cell[41138, 879, 651, 13, 48, "Input",ExpressionUUID->"e4f6ebc4-d95f-476e-95bd-1c2db305bbfd"],
Cell[41792, 894, 633, 9, 32, "Output",ExpressionUUID->"13225d7d-947d-45dc-a20f-bff2b7331b5a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42462, 908, 393, 9, 28, "Input",ExpressionUUID->"69d1fb96-82f5-4878-b981-05baca68e47f"],
Cell[42858, 919, 763, 11, 32, "Output",ExpressionUUID->"c13fd1dc-fc3f-4097-9a5a-0981c955154a"]
}, Open  ]],
Cell[43636, 933, 3327, 81, 276, "Input",ExpressionUUID->"1b19b015-ff80-48d1-8b7c-cca75b228294"],
Cell[CellGroupData[{
Cell[46988, 1018, 2058, 59, 143, "Input",ExpressionUUID->"adf1d565-cf34-4ed9-8b25-a1d1e4aaa30b"],
Cell[49049, 1079, 1889, 38, 335, "Output",ExpressionUUID->"74b6b525-c1b6-4a4a-83d7-184165037e7e"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)