(* 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[     56111,       1246]
NotebookOptionsPosition[     54694,       1193]
NotebookOutlinePosition[     55037,       1208]
CellTagsIndexPosition[     54994,       1205]
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},
 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[{"explicitEulerMP", "[", "n_", "]"}], ":=", " ", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"1", "/", "n"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"y", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"y", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", " ", 
      RowBox[{"i", "<", 
       RowBox[{"n", "+", "1"}]}], ",", " ", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"i", "+", "1"}], "]"}], "]"}], " ", "=", " ", 
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "-", 
        RowBox[{"10.", "*", "h", "*", 
         RowBox[{"y", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}]}]}], "\[IndentingNewLine]", 
     "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "y"}], 
   "\[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}},ExpressionUUID->"2c1bddce-8258-44bd-9ecc-\
c4b6286256de"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"exact", "[", "x_", "]"}], ":=", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "10"}], "x"}], ")"}]}]}], ";"}], "\[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[{
  RowBox[{"n", "=", "100"}], 
  RowBox[{"(*", 
   RowBox[{"4", ",", "20"}], "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"times", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"i", "*", 
      RowBox[{"1", "/", "n"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"appr", " ", "=", " ", 
   RowBox[{"explicitEulerMP", "[", "n", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotAppr", " ", "=", " ", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"times", ",", "appr"}], " ", "}"}], "]"}], ",", " ", 
     RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"plotExact", ",", " ", "plotAppr"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"times", ",", 
      RowBox[{
       RowBox[{"exact", "[", "times", "]"}], "-", "appr"}]}], "}"}], "]"}], 
   ",", " ", 
   RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], "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}},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$3010#1"]& ]}, {}, {}}, {{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], 
      AbsoluteThickness[1.6], 
      GeometricTransformationBox[
       InsetBox["\[FilledCircle]", {0., 0.}], CompressedData["
1:eJxdlX0w1Hkcxz1cd4O6MspcHqJ0jo4TTtcT73LKc9eGI+T21EpRaFLHuavO
cc4dNR05D+W0TN02IclDmTotSeg879KyFsti2XJtlGrP7n2uP/rO/HZmZ/f3
+Xzer9dnfr+VoVG7WJpqamqs+Ut9/tJQe/s8xrdLi11F8T+ipVl5pPQ9A1JG
1YqkiTEoPxlVF5Ci3/NwxmeUfi9E8YvgQ/Wvh5GTrTx/4kBxh5uneJD+X4xZ
o4D0M+oiqnMNt1vasg/m9dP95ahr3+x/79dH0Oaxox21K/FdauKOE018qlcN
ns3nzDs7u2EZfPqu3KIGsbrdWnHLOqn+bVQsvuTno9eOwvm7eey/8CRQvyXL
pZX61cLT0SLGxa0F9qrDxYxmjIId+ID61yFk5wnF88oGcOUW8x3qsTJzmtUQ
UE/zNOCC9J/3vddxsUvV8D5qV8amfeNRS/M1Qh4V2VRkcgeieGXBB3iWJdIc
1KiheZux5+LwgSaHasQox4tuwc2Py7cdLK2g+R8iPdCPfzaiHP95aMXyiBF5
K7OM8rRirbURxy+1FG6qBm14PM5itdRfpXxtKEq+vDW/iQNlt+DT7cgQekxd
Nr5MeTsQ+VKw2bO8CKo4vA5kuFsbc1LYlL8T7UHOBtkZBTBRjrOiC65FnEy9
onzi0YXAT66/OxufhzDV6ca4YOMGYUE28eEhkmnoXaKbBWW1pcU8fB3Nqjfm
ZhAvPp5c29qUU3IWz5Tl5HyYm95KdGo7Q/x60L+hMjl6WzpUeBx74TZaKPze
6Rfi2Yunea6NOkkpUI2X9AjOiwLD/XWTia8AMh2GS7ggkfZWgFT/kugZ4Sni
3Ye94Z+VheifhCru0n6Ib+3tXSJPIP79OHXaPOTu4nioygUL8dS7xjfz6HHy
MQCL7ccUJkaxlGcA/kfGWRWKI+RnAJKw6iD/5TGUbwCbqr356xoOky8RjNKE
co/rEZRXBHs79z7LqXDyJ8JcXFD8dFQY5R/ES1OTw2m2+8jnIPTfMRr63SqU
eAzC9byC9WUQk/wOwWuHwtghZg/xGYIuU5GTcCKQfA9BsNkrwKzHn3gNg9l6
/O/8Y37kfxhmXROHLBk+xG8YHfB1Lwpl0D6IkbDwdaKl5xfEUwwtfhZXZ40X
7YcYmxZHndPe7U58R3Aj7ZWpWet22pcR/KwoPW+S4kK8RzAnrur9Id6Z9mcU
93N76mILthD/UWiU/ZR5SOZI+zSK3GRmx7InG8mHBB/GRccwsZ58SLDpD89s
drsD+ZBAo+8M+znbnnxIYPgiN876qi35GMOrdHEvo82GfIxh2D78SuNFqzfP
OYNMzskb9ZbkYxxZUoX5Y9uPyMc4pnxHZKsHVpOPcWiNSHg3G1eRjwl05TLu
1kpMyccEvMRn13CjVpCPCczur1x4bp8h+ZDiK44T3+fSB+RDilVh6wW2a/Xf
PIcngpqFVrN65GMSk0ltNvJZXfIxCVmI1hWB1RLyMQkRp88+zXgR+ZiC7UlX
N7tPtcnHFO7t3nKUmfke+ZiCIrEjl71hAfmQIZtbeGS7gSb5kMFxyHo/bNXJ
hwwFdlKp0/Rrp//fGzO/dR5e0Dvn9C8OdhBf
       "]]}, {}}, {}, {}, {}, {}}},
  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->{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},ExpressionUUID->"82bef43e-e9c0-4b08-a433-\
3f640da8b7b2"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], AbsolutePointSize[6], 
     AbsoluteThickness[1.6], 
     GeometricTransformationBox[
      InsetBox["\[FilledCircle]", {0., 0.}], CompressedData["
1:eJxlkmlQkwcQhoONDlrsgILGKSLgUVQuiQdSzRudlqbVYqAiCFEQCUXliEUd
ipQoAuJVQsAiUHAUFbDCUHQ0MI4gUASLLYGGqFyJRM6AqRw6FbUk2f7qznw/
cny7+z7P2oVE+wg/YDAYwqnHZOqZxvh/HbUs/UIdl4Rja12SwppjYPycCW77
CWWk+jhkNslD3rJ8cIOyK5etTqXfr4Ah2fV52KJzyMnWVzFsx+JjJiIk9P9S
HHt7tzC3MR1ab/03v4IbK2O4VUrp/VvgnuVrEvgZmKUsEG2cdQfmHl4sZW4G
9auA+UTu7sjiDCwXpNWMO9xFdWHZL1lJGdT/HiRurrPN1mXgytTbyoJqML4P
XzevUUrz7oPvFZVZv0kKtqFq4Xq/5aePC9Npfh1kw91vlr6ToHbcYWrCb3At
vHPeYYuE9nkA/pN0XvjiNPgYBjYgWPjpPnHxf3kbwcrLVB11Ogt1nL7hQ/TL
2YeDbp6mfZuQeji1I5xzCgf164kewTyqdqar/CTt/wfKlhfI70WmwGihGcG8
Q77XrJIpTzPcrd1zLB6eAM8wQA5+gOlVxZlEyidHUu62A+LA49BPE6S1QGNl
3xG0/hjlbQXr8jmx45YEGOIoW+EvO+jpxo2n/H+h6I327VHvOCzSr2OjgFnQ
iWRxQizxUID1VKlIrT+CMEO1QXeqKKHW4TDxUUKHS2Wbr8RA382yVImz4hSm
qft3xOsxmHOsV87sEWFC3278MXi7Tvnt40UTvydwYDhdGxqLgAHPxqdw39vd
Ed24n3g+Bbf393Z5bTgM6yW3I9Q/YPordRjx7YCtKCpHbifEoyZ9dWB1ebbf
3uN7iXcnxoJ3iqre7YEhrmUXpJfyTMwuBBP/LjjaD9jPyNoNQztBNwR74nb1
OgvIhwruawSJ4rGdlEeFMdNolxqNH/lRQZKYk9gw6Uv5VPC61XZIsX47+VLD
1udr3TfZPpRXDY/YrDIFy5v8qSFg3xhdHLGN8j+DqKQ1pKFzK/l8BrOQ8prM
xK+IxzO8Zo4GPtjBI789qL7NT+3c4Ul8epCglZ6WiD8j3z1wXJK1v+XRZuKl
weVtXh0POZvIvwb8ipCooosgfhr8zGVO/3tyA93Dc6jyAtidEg/i+Rzz2NI2
Zz93uo/nOP3tYNHElrXEtxfOxWnstAOr6V56Yba9bzKr3I1498LTp2VUt3AV
3U8fNB7xLhG+LsS/D66e+RVHbjjSPfXB64e35y02rCAf/ZilCCwpef8J+ehH
W51cbTW6lHz04/bWhpzwOUvIRz/ym1bKLALsyccAVi0+0F9Xb0s+BqBdK6rQ
XbchHwPQDalKqmZYk49BvHzgtKA5dwH5GATTJO9WqHA++RgE16YqxS7IinwM
4cKXfx5kJs8lH0OIz9fxdrdakI8h5HSzQps8zcmHFnO6pL5C2WzyoYW/Lcs6
wu5D8qGFNJuhiKo1JR/DqDThZOVlzyAfwxjUhM798SKTfAxjHftmLFs+jXyM
oGpN6qu2FSbkYwSTZ67esPN5zzH6GMHLGCxMSp/kGH28wMiiJXLrj/7hGH28
wLK5/PmlNa84Rh8vsDTy5Ov918c5Rh86QDj2Zrh6lPMvtSb0sg==
      "]]}, {}}, {}, {}, {}, {}},
  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, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1.}, {0, 0.019201001071442347`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     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.749632397344123*^9},ExpressionUUID->"cf551828-5a81-4cc6-89b8-\
1fbca7f1c481"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"exact", "[", "x_", "]"}], ":=", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "10"}], "x"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"plotExact", " ", "=", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"exact", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", " ", "1"}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"times", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", 
        RowBox[{"1", "/", "n"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"appr", " ", "=", " ", 
     RowBox[{"explicitEulerMP", "[", "n", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"plotAppr", " ", "=", " ", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"times", ",", "appr"}], "}"}], "]"}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"plotError", " ", "=", " ", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"times", ",", 
          RowBox[{
           RowBox[{"exact", "[", "times", "]"}], "-", "appr"}]}], "}"}], 
        "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"GraphicsRow", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Show", "[", 
        RowBox[{"plotExact", ",", " ", "plotAppr"}], "]"}], ",", " ", 
       "plotError"}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
   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}},ExpressionUUID->"246fba39-1054-45c3-b138-\
64acaa220663"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`n$$ = 44, 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., {75., 78.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$3131$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$3131$$, 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" :> ($CellContext`exact[
          Pattern[$CellContext`x, 
           Blank[]]] := E^((-10) $CellContext`x); $CellContext`plotExact = 
        Plot[
          $CellContext`exact[$CellContext`x], {$CellContext`x, 0, 1}, 
          PlotStyle -> Red, PlotRange -> All]; $CellContext`times = 
        Table[$CellContext`i (1/$CellContext`n$$), {$CellContext`i, 
           0, $CellContext`n$$}]; $CellContext`appr = \
$CellContext`explicitEulerMP[$CellContext`n$$]; $CellContext`plotAppr = 
        ListPlot[
          Transpose[{$CellContext`times, $CellContext`appr}], 
          PlotMarkers -> $CellContext`\[FilledCircle]]; \
$CellContext`plotError = ListPlot[
          
          Transpose[{$CellContext`times, \
$CellContext`exact[$CellContext`times] - $CellContext`appr}], 
          PlotRange -> {{0, 1}, {0, 1}}, 
          PlotMarkers -> $CellContext`\[FilledCircle]]; GraphicsRow[{
          
          Show[$CellContext`plotExact, $CellContext`plotAppr], \
$CellContext`plotError}]), 
      "Specifications" :> {{$CellContext`n$$, 4, 100, 4, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {112., 119.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7494054983797264`*^9, 3.7494058237591333`*^9, 3.7494070731368346`*^9, 
   3.7494822173304095`*^9, 3.7494822599798207`*^9, {3.7494823360832653`*^9, 
   3.749482369919756*^9}, {3.749482442090145*^9, 3.749482464794056*^9}, 
   3.749485785584037*^9, 3.7494863531148834`*^9, 3.7494866178692355`*^9, 
   3.7494866760606213`*^9, 3.749490123109806*^9, {3.749490408645194*^9, 
   3.749490430624506*^9}, 3.749491901987467*^9, 3.749492549490141*^9, 
   3.7495575359919004`*^9, {3.7495844535136986`*^9, 3.749584492761071*^9}, {
   3.7495857815071225`*^9, 3.7495857871288815`*^9}, 3.749587840669083*^9, {
   3.7495878759987125`*^9, 3.749587879306805*^9}, 3.749632365615419*^9, 
   3.7496323973761053`*^9},
 ExpressionUUID -> "b980769b-5857-45fd-80ea-b1b6c05afcf9"]
}, 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[{"implicitEulerMP", "[", "n_", "]"}], ":=", " ", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"1", "/", "n"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"y", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"y", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", " ", 
      RowBox[{"i", "<", 
       RowBox[{"n", "+", "1"}]}], ",", " ", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"initialGuess", " ", "=", " ", 
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{"h", "*", 
          RowBox[{"(", 
           RowBox[{"-", "10"}], ")"}], 
          RowBox[{"y", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
        RowBox[{"yNew", "/.", 
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{"yNew", "\[Equal]", "  ", 
            RowBox[{
             RowBox[{"y", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "+", 
             RowBox[{"h", "*", 
              RowBox[{"(", 
               RowBox[{"-", "10"}], ")"}], "yNew"}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"yNew", ",", "initialGuess"}], "}"}]}], "]"}]}]}]}]}], 
     "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "y"}], "\[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}},ExpressionUUID->"9c362e77-0d7b-4bfd-8e3d-\
2352c6d3db40"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"exact", "[", "x_", "]"}], ":=", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "10"}], "x"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"plotExact", " ", "=", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"exact", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", " ", "1"}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"times", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", 
        RowBox[{"1", "/", "n"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"appr", " ", "=", " ", 
     RowBox[{"implicitEulerMP", "[", "n", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"plotAppr", " ", "=", " ", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"times", ",", "appr"}], "}"}], "]"}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"plotError", " ", "=", " ", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"times", ",", 
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"exact", "[", "times", "]"}], "-", "appr"}], "]"}]}], 
         "}"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"GraphicsRow", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Show", "[", 
        RowBox[{"plotExact", ",", " ", "plotAppr"}], "]"}], ",", " ", 
       "plotError"}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
   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}},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., {57., 62.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$3148$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$3148$$, 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" :> ($CellContext`exact[
          Pattern[$CellContext`x, 
           Blank[]]] := E^((-10) $CellContext`x); $CellContext`plotExact = 
        Plot[
          $CellContext`exact[$CellContext`x], {$CellContext`x, 0, 1}, 
          PlotStyle -> Red, PlotRange -> All]; $CellContext`times = 
        Table[$CellContext`i (1/$CellContext`n$$), {$CellContext`i, 
           0, $CellContext`n$$}]; $CellContext`appr = \
$CellContext`implicitEulerMP[$CellContext`n$$]; $CellContext`plotAppr = 
        ListPlot[
          Transpose[{$CellContext`times, $CellContext`appr}], 
          PlotMarkers -> $CellContext`\[FilledCircle]]; \
$CellContext`plotError = ListPlot[
          Transpose[{$CellContext`times, 
            Abs[$CellContext`exact[$CellContext`times] - $CellContext`appr]}],
           PlotRange -> {{0, 1}, {0, 1}}, 
          PlotMarkers -> $CellContext`\[FilledCircle]]; GraphicsRow[{
          
          Show[$CellContext`plotExact, $CellContext`plotAppr], \
$CellContext`plotError}]), 
      "Specifications" :> {{$CellContext`n$$, 4, 100, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {104., 110.}},
     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},ExpressionUUID->"d1250a07-676e-4f60-b4f1-\
c3371b220ba1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:0417\:0430 \:043c\:0430\:0433\:0438\:0441\:0442\
\:0440\:0438\:0442\:0435: \: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}},
 ExpressionUUID -> "0470cd01-9825-4f96-95f6-ad3b2c9df300"],

Cell[BoxData[
 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}},ExpressionUUID->"71ce8d44-8a7b-41b4-925c-\
431a5c62d8a7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LS", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "-", 
   RowBox[{"2", "x"}], "+", "1.", "+", 
   RowBox[{"Sin", "[", "x", "]"}], "+", 
   RowBox[{"Log", "[", "x", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Newton", "[", 
  RowBox[{"LS", ",", "10", ",", "0.0000001", ",", "100"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7494891091564074`*^9, 3.7494891835075407`*^9}, {
  3.7494892705603733`*^9, 3.7494893302709465`*^9}, {3.749584603905991*^9, 
  3.749584604726534*^9}},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},ExpressionUUID->"cbcdd44e-c2a3-4acc-85de-\
c4e7c9a666ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"LS", "[", "x", "]"}], "\[Equal]", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494893379015303`*^9, 
  3.7494893760305457`*^9}},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},ExpressionUUID->"61bf36c8-4008-4b40-b9d8-\
06f194b9dcb7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"implicitEulerWithNewtonMP", "[", "n_", "]"}], ":=", " ", 
  RowBox[{"(", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"1", "/", "n"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"y", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"n", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]",
     "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"y", "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "1"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", " ", 
      RowBox[{"i", "<", 
       RowBox[{"n", "+", "1"}]}], ",", " ", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"initialGuess", " ", "=", " ", 
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{"h", "*", 
          RowBox[{"(", 
           RowBox[{"-", "10"}], ")"}], 
          RowBox[{"y", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"LS", "[", "yNew_", "]"}], ":=", 
        RowBox[{"yNew", "-", 
         RowBox[{"(", "  ", 
          RowBox[{
           RowBox[{"y", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "+", 
           RowBox[{"h", "*", 
            RowBox[{"(", 
             RowBox[{"-", "10"}], ")"}], "yNew"}]}], ")"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "1"}], "]"}], "]"}], "=", 
        RowBox[{"Newton", "[", 
         RowBox[{"LS", ",", "initialGuess", ",", "0.0000001", ",", "100"}], 
         "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "y"}], 
   "\[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}},ExpressionUUID->"1b19b015-ff80-48d1-8b7c-\
cca75b228294"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"exact", "[", "x_", "]"}], ":=", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "10"}], "x"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"plotExact", " ", "=", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"exact", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", " ", "1"}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"times", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"i", "*", 
        RowBox[{"1", "/", "n"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"appr", " ", "=", " ", 
     RowBox[{"implicitEulerWithNewtonMP", "[", "n", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"plotAppr", " ", "=", " ", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"times", ",", "appr"}], "}"}], "]"}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"plotError", " ", "=", " ", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"times", ",", 
          RowBox[{"Abs", "[", 
           RowBox[{
            RowBox[{"exact", "[", "times", "]"}], "-", "appr"}], "]"}]}], 
         "}"}], "]"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", " ", 
       RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"GraphicsRow", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Show", "[", 
        RowBox[{"plotExact", ",", " ", "plotAppr"}], "]"}], ",", " ", 
       "plotError"}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", 
   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.749490038012871*^9, {
   3.7494946926637993`*^9, 3.7494947160872946`*^9}, {3.749584676048408*^9, 
   3.7495846836859903`*^9}, {3.7495856931610594`*^9, 
   3.749585693400922*^9}},ExpressionUUID->"5f716b6a-8c9e-42b2-81b2-\
0d73e0478cc4"],

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., {57., 62.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`n$3165$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`n$$ = 4}, 
      "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$3165$$, 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" :> ($CellContext`exact[
          Pattern[$CellContext`x, 
           Blank[]]] := E^((-10) $CellContext`x); $CellContext`plotExact = 
        Plot[
          $CellContext`exact[$CellContext`x], {$CellContext`x, 0, 1}, 
          PlotStyle -> Red, PlotRange -> All]; $CellContext`times = 
        Table[$CellContext`i (1/$CellContext`n$$), {$CellContext`i, 
           0, $CellContext`n$$}]; $CellContext`appr = \
$CellContext`implicitEulerWithNewtonMP[$CellContext`n$$]; \
$CellContext`plotAppr = ListPlot[
          Transpose[{$CellContext`times, $CellContext`appr}], 
          PlotMarkers -> $CellContext`\[FilledCircle]]; \
$CellContext`plotError = ListPlot[
          Transpose[{$CellContext`times, 
            Abs[$CellContext`exact[$CellContext`times] - $CellContext`appr]}],
           PlotRange -> {{0, 1}, {0, 1}}, 
          PlotMarkers -> $CellContext`\[FilledCircle]]; GraphicsRow[{
          
          Show[$CellContext`plotExact, $CellContext`plotAppr], \
$CellContext`plotError}]), 
      "Specifications" :> {{$CellContext`n$$, 4, 100, 4}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {104., 110.}},
     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.749489936328514*^9, 3.749490039426057*^9, 
   3.7494901244350433`*^9, 3.7494919021173935`*^9, 3.7494921699169893`*^9, 
   3.7495575366385345`*^9, 3.749584453965438*^9, 3.749584620437458*^9, 
   3.7495846845065165`*^9, 3.7495856940435514`*^9, {3.749585781614061*^9, 
   3.7495857876465826`*^9}, 3.7495878415585685`*^9, 3.749587879413743*^9, 
   3.7496323658432875`*^9, 
   3.7496323974990377`*^9},ExpressionUUID->"9d4c2e87-3707-47de-a890-\
a2793274c7b6"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1348, 685},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1251, 22, 236, "Chapter"],
Cell[CellGroupData[{
Cell[1855, 48, 444, 9, 67, "Subchapter"],
Cell[2302, 59, 2127, 47, 232, "Input"],
Cell[CellGroupData[{
Cell[4454, 110, 3292, 76, 192, "Input"],
Cell[7749, 188, 11175, 202, 236, "Output"],
Cell[18927, 392, 3363, 70, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22327, 467, 4375, 91, 212, "Input"],
Cell[26705, 560, 3586, 69, 248, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30340, 635, 517, 7, 62, "Subchapter"],
Cell[30860, 644, 2296, 57, 252, "Input"],
Cell[CellGroupData[{
Cell[33181, 705, 3814, 85, 212, "Input"],
Cell[36998, 792, 2987, 58, 231, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40034, 856, 1072, 15, 62, "Subchapter"],
Cell[41109, 873, 1924, 45, 272, "Input"],
Cell[CellGroupData[{
Cell[43058, 922, 585, 13, 52, "Input"],
Cell[43646, 937, 515, 8, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44198, 950, 326, 9, 31, "Input"],
Cell[44527, 961, 624, 10, 31, "Output"]
}, Open  ]],
Cell[45166, 974, 2516, 62, 272, "Input"],
Cell[CellGroupData[{
Cell[47707, 1040, 3906, 87, 232, "Input"],
Cell[51616, 1129, 3038, 59, 231, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)