(* 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[ 22146, 483] NotebookOptionsPosition[ 21516, 456] NotebookOutlinePosition[ 21860, 471] CellTagsIndexPosition[ 21817, 468] 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", "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[" \:042f\:0432\:0435\:043d \:043c\:0435\:0442\:043e\:0434 \:043d\:0430 \ \:041e\:0439\:043b\:0435\:0440.", "Subchapter", CellChangeTimes->{{3.7491800556151247`*^9, 3.7491801148925147`*^9}, { 3.749184977947245*^9, 3.7491850309280972`*^9}, 3.7494830937092724`*^9},ExpressionUUID->"a735441e-8838-41ff-8805-\ d1a9c5ebff49"], Cell[BoxData[ RowBox[{ RowBox[{"explicitEulerMP", "[", RowBox[{"n_", ",", "f_"}], "]"}], ":=", " ", 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}, {3.7809822888446307`*^9, 3.780982323536623*^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"}], "]"}]}], "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.7809822742570515`*^9, 3.780982274589861*^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$34365#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, 3.780982172618539*^9, 3.78098221121014*^9, 3.7809822752674694`*^9, 3.7809823280280113`*^9},ExpressionUUID->"ec6dc75c-5a2a-43cb-8dbd-\ 405bb1ad47f9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\:041d\:0435\:044f\:0432\:0435\:043d \:043c\:0435\:0442\:043e\:0434 \ \:043d\:0430 \:041e\:0439\:043b\:0435\:0440.", "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}},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"] }, Open ]] }, Open ]] }, WindowSize->{944, 605}, WindowMargins->{{Automatic, 172}, {Automatic, 80}}, 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, 332, 5, 67, "Subchapter"], Cell[2190, 55, 2204, 49, 232, "Input"], Cell[CellGroupData[{ Cell[4419, 108, 3029, 67, 172, "Input"], Cell[7451, 177, 11275, 204, 236, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18775, 387, 414, 6, 67, "Subchapter"], Cell[19192, 395, 2296, 57, 252, "Input"] }, Open ]] }, Open ]] } ] *)