(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 114620, 2458] NotebookOptionsPosition[ 108530, 2348] NotebookOutlinePosition[ 108872, 2363] CellTagsIndexPosition[ 108829, 2360] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 2014 UZTAILA \ \>", "Title", CellChangeTimes->{{3.8170149154822187`*^9, 3.817014937413032*^9}},ExpressionUUID->"85f0d388-8268-46a6-88cb-\ 6e58db2a432a"], Cell["1.", "Text", CellChangeTimes->{{3.8170149447736163`*^9, 3.8170149449376106`*^9}},ExpressionUUID->"250ffb50-34b0-4901-9fc1-\ 209690e82958"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "=", RowBox[{"1", "+", "x", "+", RowBox[{"x", "^", "5"}], "-", RowBox[{"3", RowBox[{"Sin", "[", "x", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.817014948418116*^9, 3.817014965568056*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"fadd035c-9d2a-45e0-8714-399729c5084b"], Cell[BoxData[ RowBox[{"1", "+", "x", "+", SuperscriptBox["x", "5"], "-", RowBox[{"3", " ", RowBox[{"Sin", "[", "x", "]"}]}]}]], "Output", CellChangeTimes->{3.817014967607811*^9, 3.8170161604354825`*^9, 3.8170540422494144`*^9}, CellLabel->"Out[2]=",ExpressionUUID->"83c1ca25-0965-405b-90ab-ab2fc7e89682"] }, Open ]], Cell["a)", "Text", CellChangeTimes->{{3.8170150007207413`*^9, 3.817015002989137*^9}},ExpressionUUID->"49279e28-e80d-4699-863f-\ 882fc941b09a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.817015011094869*^9, 3.817015052647662*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"45cae468-cd1e-4bb7-a3dc-8af98b6327cc"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVl3k4lG8Xx0ehki1tJLIVIUlSVM5DWn5ZEkKUpF0lSRGSpCKyhUJFtmwx bUjqjCKSkKRI1tmMbcwwlizv8/411+f6nm3Ofc59zyi7XbA5MYdCoTQKUSj/ /zSxF/WV3z6Bd6f4K0ZdFWiikmb2i/UmsOaIqsiO+Qq0/Cj7Mouucaxn1gUy E1bQxmP9QxHGUfrfxbgA6WU01spyzi6jcezWawu061tKa84StazTH0fKeZW9 Vp+X0l6Vxiz6u3YcLTgmWs8CltI8up8lTS4exzYP9os+zhJaz4am/E3sMZy1 TirP/7aYVteg/T0vegwdNbLO+eYtopU5eW3cGD6GEaf3h7ndXUTLoxfHl94a w/lhpi1nzyyihY6bOn3xG8MP+ZX4R30RbYfSwR7m8TFsGRU/ppMlTSu5cGtU 2XAMQ62Wz8rtl6KlS7bLPewSoIUt9YvpnYW0WGeYZ9gmwKnTakuyLBfSgrNT R1qaBWjyaVEGsWQhzc30WL18rQB15ryfXZEmRlO5wg5JKRLggoofia60BbS0 v7yhrHABXvdp1ZaaN5+Wmj/v85tNAqRJ2zL/vROmRU+cfmWvK8Cfy5NWC4UJ 04J21aSOaQrwrkLtakN7YZprZ4S/oZIAx1Z8aiOG59JWLZHZ8F5MgCOzTrZ5 a+fSnvivfFTRMYrz6l3E69KFaI/2bvD6ETaKAUDkFflOo9rCvTUNISSfvT+H pzaNeV/dVOquj6LD1Nzdgd+nsNQirrH68iiyVXppoVpT2GI1pvfh6ChGGXx5 eqRnEpfZvudnG44ixzO/kHl0HKOc/7sc2DuCzxcL8vse8nHZSrdv/vQRrDmn l9puxccnbX6rr3aMoNVrzj95ET4WHM7/eennCHIS/FUue/Gw9oiUwZnyEXQV FcpJth7G+cd/CmwTRzBDuCtFftMgBp876rv2vxGM9unrPVjFwPZIl0elO0aw mudQpmLEQKMXzjRzY5KP31sY8ZyOvNED8z02juAIdZORcUIPHr2+9+FLBTJf /e3kxRe6kIjdWLKVx8dqZZk8vYBWnCkWGbdM5mPDljU8G8NKdGqds7Ijno+u F/fay+3/hEVTs+AZTXJdX9Was+XoYTJ5J/YWH2nemRdWWbzDvzWDy39d4GPn 7bf81D/ZWPb312ZXMz6m6uX9yb1KBf+5uT5eAzwcuTOuJPPpO3gkuoi6snm4 xVCvJeJ2I7itXxxv2cPD7Ii4i8r//YC9zgEvNVp46Fl3SJD0tQlkX1kNtFfw sOG4yuruyl/w2o3vZv6Ih+PPrifbR/+FwfJtVmrmPHT09ukrIejQ7TDctmgX D/1K7AJK4ujwcyDz7CzBw9eHvl7Zx6ZDmZxUWKsBD1d83dJvFsmA8Itdn6JV eBg7ejvH/icTNJRvG05PDKOkHvuYs3UvHA2qV2vOHsb8YJn30lMDYN+SYvw3 fRillzCb1psOwl49T0f6k2HUFFdv5N8ZBH26dAQvbhjNKH8Tz8oMwfw9NnzJ G8M4MyUuHbOICwVSP8t3HxxGJH5ajMgNw78nrS5vFwzjyHvt6SNifOCO5frS hIfxecFCHyENPtCt/WOrZrn4ksF4eXUnH+rmrPz8c5SLa5VCRgev8yHt5OF1 vC4u5pko7OTy+LBHp/OfZikXDyXEfXb/PgLx7xkPH7lzMUEq2kb5ogBcfJMC N5/gYqLqcideuAA0Nu473niEi+Nn3GIfZAmgNLtk/fwDXCyQcN145I8A2u+H f74EXNztaBrCMh0DdfcNI3uXcDHVvMFvZsE4eK2bfMLzH8KNJ68F7L86AcLp x9w1Lg5hxZ1VrvzICUiQ/bbJ5eQQMlgxBh4ZE/BubmrtF+shNC7+YTlUR9q3 7pxMXT2E776KK6qqTELC7ZgD++oH0cA98a1n+SSUdmiI56sMourw2edJ9H8Q sE3oeZLsIF4Zdj56beQfbE9ssQyTHMRd7Od0E+EpoNncjTo5OYCP9sV+9lSd gqrKPhnlxgGco2w9dNp1CpryCuQSbgzgZG+tc2vTFCTMv1Ma4jOACk4Oeczu KXA4ccT50vkBzFVjXGnmTkGrovRj64MDiIvaOa7i09AVc1Fp4YYBLKIeVFIz nYZBH331oM5+7PHucvLLngZqk3i1R3M/uicFR9e8noaLGxinD9f2Iyf8599Z 2jSMcOJzjUr6UWKVvtqKlmn4d3hs3WhUP3r35q+Unj8D881K9d2hH41PWZxf fnQGVKUJU7snffi5em3pdsosROp2+bnf78MLdpLFqmKzMG4d/CootA9X2olm DSyehdqYCrXnXn14eSelYZ36LHgv/m+e6O4+ZCydG+pmMQufl9nUFg9xMKwO OotiZkF3M1+4js7BT1oFKb2Js5DkELed3sJBFZMkxTlps3DhYXOBdAUH3Q4e +Ep/MQuyK5xjzjzkoN66uMFLDbPgrnDcXt6Eg6KZthWnhSlE03aRqA0GHOQw jFKL5lEIY5esqt1aHHRfxtk8LkYhFqewt3gv5WBZ3sYG+0UUokzpvPy33l58 OWQgd1OBQqwxkbTrae/F0s4zezyVKET00cKIiR+9qBIe+Hi/KoU4kTY8vfpD Lz4zShjgalAISbUrnYGxvZjsbhqTvpFC+Jotl4u/04tzQiKdNxpQiO7jJfvz AnpRcdvOV8VbKERx5uTHXyd78VTr6PYn2ymEq/r1TN2tvTj9ZacqfReFeKkZ 6t7dw8YaKVR1caAQq767vtVqYeOeik9z9A9SiAgfw/mX69jYWHs5cdaJrKeC kznvLRuXvqmR93WhELIull3akWwsG0x4NXScQoQIr9G9cpONzjcyo7xPUojh 3JlA9GWj1KFdgUOnKETNWOFKm2NkfE0RWpU7hbgWI+Pos4WNHwY44nM9KQRn c18WbR0bRX8bvzG8SCHs2z+NLlBlo+2c6uqTXhRCV+vy/UcSbLR4rXw4w5tC PPpu2c2Yw0bej0L+68sUYoHvmg3rx1kYdHZQqewK2Y+KX3Xl3SzMqklwL/Cl EPvOUhUW/mbhwVM+jxKvkuexKOyc3TcWqukIovz9KES8i5EYq5iFo5rOTNUA CjFHZPFB3ecsXMG76MIh2SOv79nVNBYGSoR+fHaNQuwZf7RT/B4LPRxf+c67 TiHePLkcdyCYhYO2rzpySFbZadXzxIeFoTtCD+0IohCRfWv02OdYaN0RM/GD 5H8xs0Eb3EjdSL3c+QaFOL3ld72fAwvjqhLet5Lc1E5VrLBgIc95zYR1MIUw uRV2XsKUhev1Fwd+ILlAy63MfjMLO8Zi7FVvUgj5RqOFqdosTHhfF3Gd5FDf xU69yixskRzQ/EHyiGJ/tt5yFsr2z9uqGEIhjlZWjPmLszCjYUOVK8l1Zx/v qhQi+1Xk3ZJEspHMlXjJMSbKyDf615L8rMSK7tDPxDShHSWjJC85or7xaRcT a8eLHy67RSFuiFCCOc1MfKEgp76e5MG83w0ba5moqLTrPJDsZPNi1bVyJgbs WnZ5N8lV42Een4uYWH3Rcc//WT/F7b1UPhNDlX9wjUlO3blV/OBTJn70MfPV IVmif7FzWgITh7e5sZeS7Bfbn9MXzkQKvWXv/+thbqkc17/BxC2R1jn/r9e2 4/HuwCtMJKSOSTwimXbrSkLVWSaKDWcGHSNZW3sfQ/ooE7/5ZIqrkpzYqK7v ZM/EmUxGaSvZL9GrlJvp5qQ/0R13l2SvVS3f+wkmHvkumaFHckflCyUDAyaa FjQPN5LnEWA7YbZFm4mORs/ee5Es20WcMVJh4uvHp1sXkmw9Vf/CWJKJFVGT aprk+faHLW8mhJnYtqD1aCE5D6HLj0yaTjIwY3O1hA7JNL1B091MBuZM5jYs J+fpEG3Tqf/aGFjmfk0QHEghxi2vhZs3MrDkvxU5LHIedc+IN+37wMCsSa3G x+S8pqZonnBMYGAq5xnlAznv29Z5hTlFMFB2z/BBAbkPv0vfPj8UzMAinqOf BsnSzXsErh4MDH1qtM6P3J8b4qfunNnFwMknUypN5P4pJhXknd3GQJei5df+ kPtZqi6oP6/HQKlmtV9t5P7yTG/JeikyMHaz5LNvHhTC7Wp6jp+Ajkrlab6n yX2fEe37FtBPx4EfU3HEGQqRFKfHC+ymo5FCGlvmNIVoLCw3ullHx4cfFu7P OkEhdjA7voZn0bFqYUVPqCuFULNdOfjIntQrV/WaHiD703lMJsWCjvbNp1PK bcn+eOQZPDWlo6em/ZiRDYWICzO6nqlDx2Tt/kyFfRRCmOYoXSBKR2Edzxfp eygEQzteD4t68EBbvViJEYXQDMwcZOf1oNtM+sw78v70qH+TK/O0B2sWVMuW kvfr+MVmlZPhPSino9qRoUchxIqXL5Zw7UHq9isRmzTJ/psk8Z0W9KCJZMDi vbIUwv9AymuBczcSQYHbWJ2zQMsq9FTa340OpZpf4v/MgvA4au/d1Y0d33x8 jZrJ9y6pM+Oxbje2f+i/fPLrLKR2KMebiXTjtsrxM3vfkO/ZmYzLsQVdWPc6 WmB5ZxYWBeYY6Ah1YZPtsoYnarNwu0ijWnqsE1W1QuITFWdhcvDZQX5/Jx5b 6aV5T3YWuo9kBZT87sSNi+dwXMRn4aVJ+kdTaifa/9nY8Jw/AzYij60cjnRi 69SnJKHyGVCXU/5G8e9AoabmbR/tZ0DbYEg7k9+Gq4cdE2M8p+GkzvXrb/+2 Ic14P+PE6WlIWSPV+K2qDV95qZnru06DzPL1PoLkNhyJuXcX903D2JhH+W6z Nmw7ZtIVrTMNH98OHuDE/cGXVTZS6n1T4Lh9MHC9QSuyg23XupK/X26aDTS8 9f2F19YuLvm17R8stSuIPri8EQ0qrfZsah6Hl4JKqWq1GhwKFXO2vSKAzD+M e70hHzDG8Z6J+Dc+HN6/8vWfYxlIGft0c+WuYXgr5v/z4+V06Fh06+iNmAHY 1C2keMMRwf+q2cCjDWxQ5b6bMPr4BS6dd5hgmvbAf+kt36wcG2Gv3eppw/Vt sNNSZu7om1+g+572UCOjEaKO/ArSLW6D0xI/KrR0K+F2/zZg1rbBHlmsWjlU AYFX06aTu9tAOkj+z9aCCvC4f95vnuRfkE0SOiyyrgKsquZ6tx//C6eN14vW aX8CyfW6pyJk2kEpY7rNd1M5RM6EWrLPdwA1L1z4Q2sp3A4fXPjkZgd0bplr YHOiFAJl7WpsEzuAEPy4Zc99Cx56q3ZjRQdQwngbXs57C+qvnJS+SnQCpWNb efXWYpjH4sqlHe8E4pDhBYnSV1BlpSBhLdMFtKTEXpZ6LizR6VrmtbILXL85 LDx0JgdcJTKV4taQ+rzuzHd52TD5VVv/t1EXKCVGWphufAba/21zdj3WBRRO dEu0ZQZE73DO8XxN2mN4c6brY3Dakrgzxr4bghR22Ze2B0HW8sP7Xrl2A2U6 Iri2OgD4AqWDP91JhsDUn20+EPEm+5zcdZKrj9naGJ8D1Cu5//QZyU3+f59V 2aLaul9dL8ZJNji34TQ1BAeUlwY2JvUAJZ/7OKQqCbf4P71YnkHy/NpPL14n Y3DTuhPUgh4IMvJjnk15hMvu7LKI/NgDtLlv5f3PP0Hjfp8VezmkfUkx8Xs0 FaOKWovKDelAU+1ToBtkYKvUqVzqDjp0bjrtrpWYgWpn+I9TLOngauMWrjSZ gSXy4reuHaVD0PpQrkRJJnYGbbc1DCN1tmFwteoz3GCeOkT9TXJ6r6jN2xwM yNDuSemmQyrn2Jo3Irn4ebqkObKfzKeXLJVvnYtO1O/vz1EYQKvaG27VnYvB S+dGaGgwQOncin6DkTys9Yi6vlyPART5ZvUFm/JxWbX8JdFtDOh8tTX1qHc+ 5vrpO9H3kf4L9U48GczHHx0nNFJ9SP/i2fJl35+joiFPPuoGAwhxmwsckQI8 HRsoFRhO2vNHLhgYFuCU2QOBcwoZP7/eSTe5AHc9UeXszWFA0Cmdt61fCjB6 rPCv4SvSf72mrUBQgGq51RXLqxjg2rlUxs+iED3mHigR/U7m++6W0u5diCWH uvJGW8n4N0QMnycXooXUZOyPQbLe68X7b9ALMeH07dsfxxlgrZiWYDKXip3l Mn4v5jBBV1GadWkxFS97ax2NWsYErram8JkNVFwmNlRmr8wEQii615ygYknK S1lFbSYEeTjIbbaiotOmK94MAyZE56UcW+tMxakaw4Z8EyZIQ8AD5VNUfOI6 reVtQcYLGAlW9KIiCGh3tjowgTp3Ll8xgMwfHtIzx430N4x/pXyLisHKe6Dm HMk1d6NW36OiWvHC5BgfJqSqvbFeG0fFSot6gWMwWa+gGbWSqHiyO9ZG6R4T GnLTM7RSqDjf176A9YC0Z3+oVE+nYq7ECrHCNFKXKGMrZlHRPP3viSvPyfoK FBqlsqnYv+Vp+fYS8vtIHdg5QXJk3XEFkU9MoGSXC7eSrHtc42rtNya4JlO/ U59R8ftEX9P93yRvPnQuIJOKXlGFus49TFDy6ru/NY2KS1ZfilAZZALt5EXR gcdULCo1YPeOk/l+9AdFPaSig/XkjhdzWdAQtxuVY6k4znif4ivJAoq6fUDa XSom+d/4B3IsoCr+uigdTMVti3Y6zFNjgW6Ol6O7LxX/Zs1/VadD6vNLWQXn qRi4rVYywZDkRerNbUepqNQY5X7YjAWp2fItPDsqfjxl+1ltH6kbd2UM7aLi sellKv0HSX1fdv/3zVTM0njS4neBzM8LKDZZRsU9H45uMvVjQdBS9+Racj56 bVfHLLjFAlr6Or8LnYWofT1/z8Mk0t/ydrtNeCHWLfHMOJJJ6uciCp0OF+KF 3I0UdSoLiEiFQ7LrCvHlz9LiN5UsUHp6Niq3sgDtzgYuvtZAcrL966uRBThK Mb1g9ofMn7JmmG9XgFu0v6z5wSXzNyg3t7c+xw/Bv+K58mxQKuVXm9Tko6ts 8nDxGjYQK9duUQjKR6ECF8vr5DviWtr29d7GfDRrYQhL7mZDp3zvVtX7eViz fuSSlhfp70kta9DPxXOVxfW8AFKXbf8r+isHJZz9tUrvkPH8zJ+8u5KD1rfn 9Ox5TDI1NDK+IBt/tUnbnKwm/SlaWaWzWbg3/MRv70Y2BLW+PLEvPgvLDEtd braR+fMedT7VyMLUhGNnU7lsoK1TDLmyJxNPWxeFtMr2gqvj78Dkc+nYOiO2 sFelFzqP/VL5M5SGFs+PxIxp94KSGXNvpWcabhBb8GSJSS8QlkFnos4+xclP zsVWZ3qB9unWg3NhT/CcF3X74Uu9EJTUJrXQ/TG2K4lUnL1G6o7xW3/tfIQf rxU0hMaQ/k//vqcPJmL4ZiHOx7e9QJFQXrZHNB5X5mWt3CzGAcqqecnB4SEY efBf2s4lJHtOvyp9fgMp863X2imSHLiwxj78GtKPT2y6qEeyOVLlnl/E54oW +/KcSBafmsxfcwiMY4dvrMrjQFBYSuNlw0igErvm67zhAHGjMsm2MxpUhpIi tyFpr5CpciInFkQtzJIP/uAArXL+zfkWCVAv8uD1/X+kf9T3yd4fj8H16jbW PIs+IEqNRH0nskDzePXPQfs+CNqqWrBtVTbwrewqfh7tA9paFaHze3Lgttq5 p+k+pH0YU3NVZh7k1yc7Q3ofuJZ7/lluRoWJ1f/qr0z2QeqbiFGFgDfwUfrO h8Mi/UB1LJc10iqCiH8yz82k+yHaOPP12rYi8h7VvCuzhtSNXYbu7iiBXQFO ZgX7+0Ha/H7/XY13ENv4toSR3Q+/bVe/f5hFg0Pvdz6rfdUPsuMjk5skymF1 9vf4Vx/6gahm+9R6l0PJtV6vG0394Cgar9G76yO0a8itU6AMgGehscu04BNo Xvd9aucwAA9h/fZLd6rgk9bmu59EBiE6tbT0q2c9uKy3Sx+WGgRPuqbwraF6 GNe7WLZqBal76hsnbW4AbaO8QX+dQejcF0ErK2mAuD2rbPUdBoHWX+HYSvsO J0/MW5mZPQhTDlar2tg/YH7Kr+e3zYeA/fC4jVbyb0hLG/n8+sAQmO06rv2V 8xu2ZS3q7D4yBPTuluoRoxbwfG4uA95D4Plgjh6rrQVa3uGVsUdD0BDZtNFe /Q/k/n4GpweHYETit9uX5r+wZkEZO2MPF0KDHlS8+94FvCod9zRLLqjQ44dz hbrhw+2nfSk2XBBuSBzq2dAN9sJ3BpMOcaFok7qD/v1uuDW7fyTakwtN7GvP DhzsAfooazbgIRdm0iYPf+fTIa178fIDbC7Yt4TrnT/GBo+ntx/aDHChwj8n YhG5t0auE3LWPC7Eal0rn/eLDY1/21eaT3GBGWX4mWPeC0ItOSom0sMQ+qkv OtaQA671oLNuyzDo/MyxylDrB4WysztFQodhxfWZ/N8KXFgiNznpcW8YChsP yvFMuSB+JZT6O3YYYpXefyJOc2FqfaZ8/uNhELtsEhb4igut6e3DNq+GoXas 6E+QxTAkhO9/kto+DDKrd8t/CeWBpPPmsa2beNBvezj8hdYoiJZU5mca8aB4 mKn/zWEUppfYuUkRPGj7r0tELWQU+us8v3Xv5YHQ5YfdN/+OQo1pbnqYKw/0 1cz7F90XwB1NBetf4TyYo2peFbtgHCiTc3K8unmwhLEoK2z1P3DtaeFfZ/HA WIqbwT/wD2i1VON7/Tw4lEgrTLj9D4JSXJqeCXjgYhISF8r+B7NmpbNtYnz4 HRtopVQ4BTNRF+13b+TDS5dL53bunoGp1Z1zV4bwIfkcLLFsJP//SRVbrQ3j g25yufL2QQpRNn4v0SCSD2pLynwsxISIgK9b1+9/yIeQo0ccv5gKEf88Hzjd zueD1+Tn88ZvhIjJd1YvuE18sLw8b4Vm6hxibP97l8rVI5B9IcYlL1KYCG4p /GusNQI+8UtmXF8IE5JH0w6V6I6AiTqj3rhJmFjjeccpb+sIPP4z5/alFSKE XeR++5j9I+DAqk+tyBYhqDUMy8PXRiDzzuE+pW+ixJkdkttHm0Yg1OWaWOqm BcRIDaXMo3UEDskXiSQeXkAE2fCN2B0j0Ak71n+4tYB4ePT3lj+cEUi5tjnm XvMC4vP1NP1yyigsv2ey3sxPjFApM9C+pz0KQZc3COnULCT+6B+RX02e26Gr tozOCEni5MQmqVthoxAydotZ81aS4L4Xn8uIHIV4m5m4HqYkIby7lJOROApZ /z0NfGoiRegcXFqqVjgK74OOaNpOSBFB1746qrWOgnAhkf6zRJpY83lzgqqu AGrDsoMid8gQng7Si1TaBBC8Q1PFMWsp4Za9Pml1lwBenjU2NypfShyYsFJd yxQA59DhB/ptSwmj5HubdLkC2Es9+/OizDJCpEPMyVh4DOwi592XDlpGJJ0U SXfSHoOy0gf+/UeWExWXJ/XvB4xB0cXa+Lt6coRcHN1RWGEcCipt7VrXKBBb bq5a5q0yDk2tHpMy5gqEvZfTjx71cSjz9n5z7oICEWvdYPlJbxxc5NfSbpYo EOISZabBe8bhT8+Lm6YWisTMrfvaFO9xaDV3/LDUbxVB9zGlTNWMQ+ZD4TPN Y0qEYpCl3n3ZCTj2Jvh+p4YK8T8TIRNE "]]}, Annotation[#, "Charting`Private`Tag$3324#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 2}, {-7.3446850024621515`, 9.079838380532868}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.817015023999467*^9, 3.817015053118044*^9}, 3.8170161699958663`*^9, 3.8170540450583644`*^9}, CellLabel->"Out[3]=",ExpressionUUID->"3a3003cb-09fb-4cc9-a53a-f46b4a499110"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CountRoots", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.817015074606786*^9, 3.8170151021142244`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"a0ea9c6c-a549-40bd-af44-86945f53e958"], Cell[BoxData["3"], "Output", CellChangeTimes->{3.8170151034006004`*^9, 3.817016170330126*^9, 3.817054049321223*^9}, CellLabel->"Out[4]=",ExpressionUUID->"bb6e7e62-1d4f-4c17-b39b-e4d4c7e79ff1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.4", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8170155780568743`*^9, 3.817015623037284*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"f43d6f83-3963-4068-8814-850b616f19b2"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVl3k81Pv3xxGyZSdJZSnpSlRfrqXrbUlFKuSGSwihlBBJ3Ri7VEgUCtMY OzMftJDlbQuVLbeya2xjZBkhIfE7v788no/3Oa/zOue9fIaCyzWri1wcHBz8 nBwc//+39DrOSU3tRcte1ZMOK+3oXvqO2+nPehFhGSUTym5Hbs23zzzP7EWs X2Er2ePtSHq79nJedi9SOVLX9f1jOwqqJ0zLS4AvLTEfFrQjAzHK9Jd3vShF L6Jywb4dddAiDkmu9iIyV4MBwm1oetK0Ju6fPtSjdf/gRnQresFc7q1R7Uct N3x9XNnvkLXynLI4ux8t//SM3ZPQjJyw0uME2gAqX9izLmr2Fi0P3eY3Cx5E LbW2SY4j9eiSoRxN2WAI8U3u1nApq0Wefwyf0xf/ijqdruWZdlShrisjCqGM r4hEUdJiXS9HgitS8dctGIjj+fQ6Z8wLtLhuLtJYzkDOvpLuYb4EMlVWUVGW HUaM0hGzwKR8dPaWQld60DCqPaa0RbSagqhiauuHhocRqT40663rE3Th/UB9 r+EIIk0L9wr+jkQXmzL4MwpGEAfLLdrvjB3exQ4eDhQbRRyVqgHHeGOxic4m K1ffUUTy524W6nyMS5tSj17pBQ7v9AzVJeN7AZ86onTHkHwaPhynT8WFHgqD NVljiKPlXYiPQB5Wlnwq4ZA9hhinJiX3yeRhSq2k2UoO8M7dlj178nDKNr7X hwvGEEm64rWsYR6O+jCbkEdAPmlOQD0wDzurVx1NrB5DzteNNZOG87D0z3NF F7sh3+v1pDE9H5Oi7t8WEhxH8q/LQrrUCnFog+fyA6FxRGZYG7ppF+IwDpMA EWFgWuKtGaNCHHHrt7e42Dgiveo+xbQpxDHe3i4yW8cRQ2jPKd/QQpxwzsJ0 txKs10rbT3UV4ufKkluP6I0jg7XrQhevFWGK69yj6iNQ7+Jcx8jNIkwlt4oi /XHYn2N9NmFFOEc2UsDIEOrts6/em1yEC4SXfh8/DvF1EomOb4pw6VL32Nmz EN+RIrd3UzGub3pa6uUFHGQzIhNXjDvNSdlbrkK83/iCxpNiPNTllkL3HkfO Nqt39cnFeHVILXjBF/wGNOjplhbjwz+x6e2bEE/dElz2uRhT944xYiPB7xff mkJZGo6K2S9SkAnxf1P2Zj+j4SRhMS7z5+BvkOvbJSoNU5J+LM5QQP9GxZxS EQ3XkGv6DuaMo1pX0YbAShr+WW6RU1EE+iEFRhm9NOw56f/XuwrQF/+POSZB xyfNqr1Y/0F8RXKwGYmOh5y5s70/w/r3PRbHo+jYL/Dk0OIX0G8vfaB7n47T qL0WnH3QL4/IMe4UOv62/kNTlgH+nAb/3U2n45iyAxzm0zB/K1Ls4346lnsf oNM1A37NXa1WGHRMMKr8bNmQn+rgZcWk454tJ8fd5qGe2se7E3N0vNfT4/2d ZeDa19R2LgI3yZGT6NxMZPC3XFGaNIH/OTzRpsnLRGQ/ncPrMgSeNT2wuWoz E4n6n/3ssJ3AUoFVQS0CTCTfJ+0hKE9gt489jsOiEK/Pla+2j8CbosT2Sexg os5zZhORugQ2YIdV39CEfPffp0PsCBwVLHzqhxYTkXx9y/TsCdy2JW3gujYT McaNTRccoP7+kl8+ekzko1nPY+1M4IBLX3W8DJloTsaqsN+dwAWjeq+cTgF3 93znuk7g737NJkOnmUhD6ISAnz+BtbnApwUTcXRzHR8IIPBb+cuLdmfBD6fE H5SbBGacTzlkbcdECe0ZIQt3oJ+eRdqJi5BP20YURhPYwYOk3+wO/PtJQWsM gSlLgu0mntDvE80q1l0Ca0gpzRh5AW8nKYjfJ7CZlaXqX75MRHxUHtyXQOCH wwNvKv2gXpp/kNJDAvf4eJrp+oOfBUNlmUQCX4wPufRnIPi/x0+bf0RgUmtx 7sE7UM9VwOnKE9gPe50/iWAmsrCX8NRPIfCWqcamAySIr/5xSzCVwGn8A+Oq 4aD37vubx2kEHk7xCCiIAD8vnJnWTwmsorLAvS8K9jP+rIzwMwK/PCawW/ku EzmTvO/7phN47XNyGTUW6glOtW7PILDRRQVjpfvAPkmidcCd4dou8vGwX0+k MtYyCfyt1p0smwz9Obq8+ZNCYP3U1eyKx+Bv58mORuBE37hC2xTYv6aY3yez CKyj+OrV46egd6vi+Qkqge+vmlZppoPfkGipGmBG12Ddpwzwd8E5Qy2bwDHh PG3iFPC/b+LbKvCAfWpXSRbU++ZdZJsD8/6fWo9FNugbvgwmgCOE6gbZOaDX kOPMlUvg7jHr0bg8mPeQuuVp4D+qWSy1AvA3cuRMEnBw8r+zrYXQ/1KF3Sfg rquii17FsC7/6JpwHoGVj1FXBOjAhi/ijYBv7dTeyCeg/638FT7A7UsfuE1L QV/3zrcUYMUOJwFWGegprilWAgfkLohEvwS/u3wvdAO3QJ/Kr2HduZk6Ayxn u33723I477OTU7+BfTTo8m5voF+iQZMvn8CNfMbKm6pgXh4oVAhYZviLKqUa 9rvkeJsA8JWKywcNMegJNMtsAq59uK7FqIX1plyXH6AncTnxSEg96G/7lD8M 7G6kbLSzEfyIas00A7+RfXO8+i309/i1ah6w8MKpUw7NME8fI7cwYJcPw1a/ WkDfqDb5HPCrrADbtPfg764s3g0s8C+/o04rzCNT9+s0zM/ROt21pw327w3/ Dxpwyf6DlwI7QG/aZ+MyMDfPW2/pj/Ae7Lb7LQ9sO2jr/7IL7rNq4Uwn7B9H HClk4TPob1N/vhPY2l0yMrEb9L4edKmC/c/Tz4s92Av+DxmIWQOfYXckXxuA +Zfu0vSF80Npdn0qPAT66bW5S3DeljJ/kou/wjweCnHfAM6w2FU0NQJ+o4wD XOB8zquUlcSOQX3F39Edzwl8jPP4631MiOfcCNECninxrveYhPqagdvn4bwb xHK18E7BfnBXVh0DTnJ53JY9DetCI/rJcD+OSNT0jLLh/KlfH94F9ylhynIo 7Dv0T8nfsIf7NtYwPqqwwES1nA6rD+E+3vffwnZagnpZH0hTcH/7PzvwDKzB +3N7rtT6MYFf6J+1dFqHeOKvvT7JBI7LNU0f2QC/63Z6UUngJ0hLc5JrApF6 3REF3o8cOdGLS3wTyEf3WXpqHLwfkbwlQQITUF/t590HBLabXVtbE5xAooZ2 k/7wPgnVTiZtEplAZPLII91YAvu5NjSKSk2gWi8fVkQkgc1bK0STpCeQc0PU jGkEgfdoEg5bZSbQXMSvcP5weL940xd3bJ9AnZbOF26S4P4X3NitqgB+bEoa JW/D+fi+L8JEDfz8j3Xh+DXo306+s+UA1FOdEXl5lcDV9dJy5hrgR7XRYMcV OP9Jm15YHZ5A8o6Gewc9Cfzlz8FRJx3I1x+ZkXUh8PPgBONbJlC/jZ704Czc x4mo+N/HJlBCjxBXliWcF4s7/aQT0G/Fo9HSMwTmVbx8Pfok5Cv5btSdhPvy 1jgryRL6u5pFSjeG74HQTy76eag3b9F34hCBd9b8aLRygn4+Ghp/Uicwj89i 1JIz5HPPS9upwfvw33cBfTeIP92zcloF9J5Oi7ddnkAWXoX3p3aAvz9GFKcC oX9nt0HmZni/BhhjcUHQb6eHGx8Pgb3jvuYcug31S7SNleD7emR+4I9bwaC3 wbk5dpmOv1R0H+KPnEAc9OI+H/heC5i2Ge1NBD1vxsvKYjqeW/3A/eER5NPu Zqrk0nF30fsm72TYH6tn4jFkOqaKtpi9SgGucb+38xEd6/fUW5lkgv7n8xH5 gXR83aPcxbUI9HmNgjT16XggMissswniQ/ViJeto+AbBTNNrgflF9tcvltOw SP++su53kO+363UzQcNGGsSoSNsEMpj9550JmYZz+6qOkv4DHt5sTQmmYT/1 L7wXGKBXFbHWp03D/L189xRXwe/9c+d1s4oxZZN5Vs0vqJ/GeHA1tRgfORBf +c9vyBeuV38UX4y9w6WmEzlYSN7+QM3L28X4k5riqU2bWcg5S7zR5mwxJofp iYxJsFBtyAn3LRzFWGu/96NsNRYi6x6MPnCmCP89ITG/R52FSHd7Bf2OFmF/ SoVFjgbwuazwfB34/SjDI5x7mIU4nowdXVQqwuo8z2LydEA/Raxn+WchVhl6 d6fQhIUMWn/FV6UX4m0JezxLzrMQ4yStRJ5RgNcWBo5UP4B6x6lOsygfqyzH ijnGw3rrRb1FjXxsvabNXE+A/AO9NlMK+biYOzneIAn4/KsTxZvysaPUqZGG NPDP4dQQ0pSHsVZ19Ptc6FdNYMzBNA+HBaV3dddBvFjsxrhxLubfOO85/wP8 typwUAWz8ZtH3uGBP6G+oVb0nlUqvqISkrG2DP1UeGWnsqi405L8iXcNWK06 w+4tFadQRwy2c00ihkmkqXYwFauYeWw7KjyJam/pZnnPZOFjyT7vk5Unkfzi /kCijoLDVMP369hAvIedjaghGRMRTaHJryYRKSJk0uNKMt6jIGcnsvMb4sh/ OXqh7A7e/FXqXVowsKOk7VG9YKTBUKg0nviGSIzJ+BO/UtFbri6T9RNTCH7W XtXJy0EiVuQL7XlTSJT24FN3MoHIY6SNStFp+P+kr7Rx9BVKT+HRqvQF3m5j aOpQjUbin812902jctH8nvKIejRQZqktYDSDnMUG3tIpTchopUD2NGUGiTYm XU5tfY/YodIhdIFZRFQ9Mf5e3IH49iv/q3hlFuWZ/6wvPNmFvnBZCxR+mEUG Mt9b9jM+oSm5JFnLw2xEllhlL33tRldtbzbwJbERn4o1j+xQH7JVtSCXJ7PR MtUmkDnVh4zW997xfMJGL8a5m1+t9CFpardWSxobcW+kc7pK9aMatlZB9HM2 4hh8vDBp3o+Eo38k8NLZyKBH07S0qh8RL/0cud+zUbl/XalG5gBKizHTe/GB jRZ5X8wHFQ+gCHtFGbc2NmI131BsrhxAtpxdHxs62Wgt+OXZqz0DiPPUQZPw bjYSerp1y6TYILIaY6tyjcN6f7p9RuQgOvK6ma+UyUZ5WHNQOWkQKcdmjl9g wbpKs00ZZRCtqp/JrJtiI3+Wom4PHkRZt2niofNs5DzQ3WC5OojiTkexNRbZ SPL43ztW+YbQTQXHVsYPNqrycffP2TqEzJu3RBmswLz+TNwhqDmEtNLGXeZW 2chc6pNPg/EQkr9ajchrbNR5aLkhxGoICRgky1mss9G/fyduNbgwhBbFr65s bLBRjKXWFW6fIfR/jRDLxA== "]]}, Annotation[#, "Charting`Private`Tag$3966#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.4, 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->{{0.4, 1}, {-0.0650794807001176, 0.47558699195476395`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8170155797804503`*^9, 3.817015624046221*^9}, 3.817054051328209*^9}, CellLabel->"Out[5]=",ExpressionUUID->"9e5703d9-8ede-4bd0-99e1-f735ccd5f023"] }, Open ]], Cell["\<\ ERRO POSITIBOAK 1. 0.6 2. 0.8 3. [-2,-1] b) BISEKZIO [-2,-1] luzera<0.1\ \>", "Text", CellChangeTimes->{{3.8170153278487434`*^9, 3.8170153322259445`*^9}, { 3.817015534559842*^9, 3.81701553569602*^9}, {3.817015639062443*^9, 3.8170156569992943`*^9}, {3.817015710769649*^9, 3.817015715381685*^9}, { 3.8170157455089345`*^9, 3.817015859670822*^9}},ExpressionUUID->"c2827ccb-c3ad-422e-a39c-\ 6fdffb805642"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"a", "=", RowBox[{"-", "2."}]}], ";", RowBox[{"b", "=", RowBox[{"-", "1."}]}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", "0.1"}], ";", RowBox[{"luzera", "=", RowBox[{"b", "-", "a"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "50"}], "&&", RowBox[{"luzera", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "/", "2"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "a", "]"}], "*", RowBox[{"f", "[", "c", "]"}]}], "<", "0"}], ",", RowBox[{"b", "=", "c"}], ",", RowBox[{"a", "=", "c"}]}], "]"}], ";", RowBox[{"luzera", "=", RowBox[{"b", "-", "a"}]}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\\"", ",", "a", ",", "\"\<,\>\"", ",", "b", ",", "\"\<] eta luzera = \>\"", ",", "luzera"}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8170158463841133`*^9, 3.8170161362582417`*^9}, { 3.817016222955164*^9, 3.817016224011068*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"d3348e34-9caf-42f6-a1eb-fbef81fe6384"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\"garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.5`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.`"}], "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", "0.5`"}], SequenceForm[ 1, "garren iterazioan tartea [", -1.5, ",", -1., "] eta luzera = ", 0.5], Editable->False]], "Print", CellChangeTimes->{3.8170162249779887`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"add9df42-7e5d-434d-bcde-48654029ea9e"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\"garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.25`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.`"}], "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", "0.25`"}], SequenceForm[ 2, "garren iterazioan tartea [", -1.25, ",", -1., "] eta luzera = ", 0.25], Editable->False]], "Print", CellChangeTimes->{3.817016224982665*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"c8065854-748b-4be6-9ba0-062913c63833"], Cell[BoxData[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\"garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.25`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.125`"}], "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", "0.125`"}], SequenceForm[ 3, "garren iterazioan tartea [", -1.25, ",", -1.125, "] eta luzera = ", 0.125], Editable->False]], "Print", CellChangeTimes->{3.8170162249884825`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"d8e46d2e-0c38-4ee7-b82c-c905dc514d9c"], Cell[BoxData[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\"garren iterazioan tartea [\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.25`"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"-", "1.1875`"}], "\[InvisibleSpace]", "\<\"] eta luzera = \"\>", "\[InvisibleSpace]", "0.0625`"}], SequenceForm[ 4, "garren iterazioan tartea [", -1.25, ",", -1.1875, "] eta luzera = ", 0.0625], Editable->False]], "Print", CellChangeTimes->{3.8170162249948993`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[5]:=",ExpressionUUID->"224ab49e-79b7-47e6-8d59-bfbfe8b3edaf"] }, Open ]] }, Open ]], Cell["\<\ c) NEWTON RAPHSON errorea= 10^(-8) t=10 digitu esanguratsu i<30\ \>", "Text", CellChangeTimes->{{3.817016242953267*^9, 3.8170162973895445`*^9}},ExpressionUUID->"001759be-ea12-4f94-8831-\ bb2e693bf11d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0.6"}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "30"}], "&&", RowBox[{"err", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x0", "-", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}], ")"}]}], ",", "10"}], "]"}]}], ";", RowBox[{"err", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "/", "x1"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\\"", ",", "x1", ",", "\"\< eta errorea \>\"", ",", "err"}], "]"}], ";", RowBox[{"x0", "=", "x1"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.817016253338436*^9, 3.817016259293731*^9}, { 3.817016299662962*^9, 3.8170164561197543`*^9}, {3.8170540228821473`*^9, 3.817054031958659*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"e83a3b5d-4549-4ad7-98a7-b69d99499883"], Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\"garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", RowBox[{"0.59999999999999997779553950749686919153`10.", "-", FractionBox[ RowBox[{"1.`10.", " ", RowBox[{ "f", "[", "0.59999999999999997779553950749686919153`10.", "]"}]}], RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0.59999999999999997779553950749686919153`10.", "]"}]]}], "\[InvisibleSpace]", "\<\" eta errorea \"\>", "\[InvisibleSpace]", RowBox[{"Abs", "[", FractionBox[ RowBox[{"0.`", "\[VeryThinSpace]", "-", FractionBox[ RowBox[{"1.`10.", " ", RowBox[{ "f", "[", "0.59999999999999997779553950749686919153`10.", "]"}]}], RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0.59999999999999997779553950749686919153`10.", "]"}]]}], RowBox[{"0.59999999999999997779553950749686919153`10.", "-", FractionBox[ RowBox[{"1.`10.", " ", RowBox[{ "f", "[", "0.59999999999999997779553950749686919153`10.", "]"}]}], RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0.59999999999999997779553950749686919153`10.", "]"}]]}]], "]"}]}], SequenceForm[ 1, "garren iterazioan hurbilketa = ", 0.59999999999999997779553950749686919153`10. - 1.`10. $CellContext`f[0.59999999999999997779553950749686919153`10.]/ Derivative[1][$CellContext`f][ 0.59999999999999997779553950749686919153`10.], " eta errorea ", Abs[(0. - 1.`10. $CellContext`f[0.59999999999999997779553950749686919153`10.]/ Derivative[1][$CellContext`f][ 0.59999999999999997779553950749686919153`10.])/( 0.59999999999999997779553950749686919153`10. - 1.`10. $CellContext`f[0.59999999999999997779553950749686919153`10.]/ Derivative[1][$CellContext`f][ 0.59999999999999997779553950749686919153`10.])]], Editable->False]], "Print", CellChangeTimes->{3.817016457113757*^9, 3.8170540333083878`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[1]:=",ExpressionUUID->"8c9d46a2-5be3-425b-97f2-1c0ccf7dbe2f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0.8"}], ";", RowBox[{"i", "=", "1"}], ";", RowBox[{"tol", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "8"}], ")"}]}]}], ";", RowBox[{"err", "=", RowBox[{"tol", "+", "1"}]}]}], ",", RowBox[{ RowBox[{"i", "<", "30"}], "&&", RowBox[{"err", ">", "tol"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"x1", "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"x0", "-", RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x0", "]"}], "/", RowBox[{ RowBox[{"f", "'"}], "[", "x0", "]"}]}], ")"}]}], ",", "10"}], "]"}]}], ";", RowBox[{"err", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{"(", RowBox[{"x1", "-", "x0"}], ")"}], "/", "x1"}], "]"}]}], ";", RowBox[{"Print", "[", RowBox[{ "i", ",", "\"\< garren iterazioan hurbilketa = \>\"", ",", "x1", ",", "\"\< eta errorea = \>\"", ",", "err"}], "]"}], ";", RowBox[{"x0", "=", "x1"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8170539678478622`*^9, 3.817054017462393*^9}, { 3.817054077066435*^9, 3.8170542317133493`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"391e5131-07a1-449a-9566-56b0f2b785e0"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{ "1", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.82546067979140580472829924474353902042`10.", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "0.03084420665299246`"}], SequenceForm[ 1, " garren iterazioan hurbilketa = ", 0.82546067979140580472829924474353902042`10., " eta errorea = ", 0.03084420665299246], Editable->False]], "Print", CellChangeTimes->{3.817054234230788*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[6]:=",ExpressionUUID->"4dbd6333-a891-4e21-8370-6c7c58b85770"], Cell[BoxData[ InterpretationBox[ RowBox[{ "2", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.82225142284166224655814897426253651247`10.", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "0.00390301173168240571035418110541060432`7.28867810389532"}], SequenceForm[ 2, " garren iterazioan hurbilketa = ", 0.82225142284166224655814897426253651247`10., " eta errorea = ", 0.00390301173168240571035418110541060432`7.28867810389532], Editable->False]], "Print", CellChangeTimes->{3.8170542342327833`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[6]:=",ExpressionUUID->"597afb82-180e-4ead-b707-e9178d6981c7"], Cell[BoxData[ InterpretationBox[ RowBox[{ "3", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.82219591141367779393422238198851914603`10.", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "0.00006751605938906539930893886125596395`5.5283477700012496"}], SequenceForm[ 3, " garren iterazioan hurbilketa = ", 0.82219591141367779393422238198851914603`10., " eta errorea = ", 0.00006751605938906539930893886125596395`5.5283477700012496], Editable->False]], "Print", CellChangeTimes->{3.81705423423827*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[6]:=",ExpressionUUID->"f5695305-cf2a-4d7f-8e06-68f9071f7df2"], Cell[BoxData[ InterpretationBox[ RowBox[{ "4", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.82219589490927775669902935473665195332`10.", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "2.007356171372798154989784568615`2.0015944331470443*^-8"}], SequenceForm[ 4, " garren iterazioan hurbilketa = ", 0.82219589490927775669902935473665195332`10., " eta errorea = ", 2.007356171372798154989784568615`2.0015944331470443*^-8], Editable->False]], "Print", CellChangeTimes->{3.817054234241263*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[6]:=",ExpressionUUID->"f695ba12-2df5-4219-b37b-8f0c7361c01b"], Cell[BoxData[ InterpretationBox[ RowBox[{ "5", "\[InvisibleSpace]", "\<\" garren iterazioan hurbilketa = \"\>", "\[InvisibleSpace]", "0.82219589490927775669902935473665195332`10.", "\[InvisibleSpace]", "\<\" eta errorea = \"\>", "\[InvisibleSpace]", "0``9.698970004336019"}], SequenceForm[ 5, " garren iterazioan hurbilketa = ", 0.82219589490927775669902935473665195332`10., " eta errorea = ", 0``9.698970004336019], Editable->False]], "Print", CellChangeTimes->{3.8170542342444057`*^9}, CellLabel-> "Durante la evaluaci\[OAcute]n de \ In[6]:=",ExpressionUUID->"23a5e669-5b82-431f-a2c8-7b1af8438f6e"] }, Open ]] }, Open ]], Cell["\<\ 2.\ \>", "Text", CellChangeTimes->{{3.8170542471774106`*^9, 3.8170542555100155`*^9}},ExpressionUUID->"2ae4485e-be44-43e4-bb8e-\ b5ef931604c2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eku", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], "-", RowBox[{"2", RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}]}], "-", RowBox[{"3", RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", RowBox[{"DiracDelta", "[", RowBox[{"t", "-", "5"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.8170542655361032`*^9, 3.817054313951948*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"4512f3f6-3a2b-4fd7-b44d-1d67eb611e1a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"y", "[", "t", "]"}]}], "-", RowBox[{"2", " ", RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "+", RowBox[{ SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None], "[", "t", "]"}]}], "\[Equal]", RowBox[{"DiracDelta", "[", RowBox[{ RowBox[{"-", "5"}], "+", "t"}], "]"}]}]], "Output", CellChangeTimes->{3.8170543167792187`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"4ab47c00-1056-4110-ba34-2195db64f06d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ekutrans", "=", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{"eku", ",", "t", ",", "s"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "0", "]"}], "\[Rule]", RowBox[{"-", "1"}]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.817054332324133*^9, 3.817054425509197*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"48afb760-1661-4c07-af04-69b58dd3a592"], Cell[BoxData[ RowBox[{ RowBox[{"1", "-", "s", "-", RowBox[{"3", " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "+", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"s", " ", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]}], ")"}]}]}], "\[Equal]", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "5"}], " ", "s"}]]}]], "Output", CellChangeTimes->{3.8170543725559826`*^9, 3.81705442709983*^9}, CellLabel->"Out[9]=",ExpressionUUID->"dd3b9af9-2d28-4c16-be09-e68198c6f193"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lys", "=", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}]], "Input", CellChangeTimes->{{3.8170543756144695`*^9, 3.817054376121958*^9}, { 3.817054433962367*^9, 3.817054440879386*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"94c539ba-cd84-4332-a37f-81ed4d8add2a"], Cell[BoxData[ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]], "Output", CellChangeTimes->{3.8170544418189707`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"69c78b7e-62f7-4908-8041-1963a28765aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"soltrans", "=", RowBox[{"Solve", "[", RowBox[{"ekutrans", ",", "lys"}], "]"}]}]], "Input", CellChangeTimes->{{3.81705444551732*^9, 3.817054463867253*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"d34de986-c778-4492-b956-ed7b17dd90d3"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "5"}], " ", "s"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5", " ", "s"}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"5", " ", "s"}]], " ", "s"}]}], ")"}]}], RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", "s"}], "+", SuperscriptBox["s", "2"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.817054464665429*^9}, CellLabel->"Out[11]=",ExpressionUUID->"1c359e4b-3c4b-4cb7-b7bb-70fb105a84be"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"y1", "[", "s_", "]"}], "=", RowBox[{"lys", "/.", RowBox[{"soltrans", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.817054473532175*^9, 3.8170544909161644`*^9}, { 3.8170547024459953`*^9, 3.817054706070468*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"9d8f19fe-f2e8-40e9-8f79-69705648cfd3"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "5"}], " ", "s"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"5", " ", "s"}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"5", " ", "s"}]], " ", "s"}]}], ")"}]}], RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", "s"}], "+", SuperscriptBox["s", "2"]}]]], "Output", CellChangeTimes->{3.817054491614007*^9, 3.8170547075919094`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"038c2796-5169-4fe3-993d-64c5c96e79e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Y1", "[", "t_", "]"}], "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"y1", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.81705450182794*^9, 3.8170545486489472`*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"e088c950-6904-4fc4-849f-2e7d0b1182f3"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"(", RowBox[{"4", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", "5"]}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "15"}], "+", RowBox[{"4", " ", "t"}]}]]}], ")"}], " ", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "5"}], "+", "t"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.8170545494858365`*^9, 3.817054717695657*^9}, CellLabel->"Out[17]=",ExpressionUUID->"93f22a60-1cf0-4a50-8c5f-c0c713e471a3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "s", "]"}], ",", RowBox[{ RowBox[{"y1", "'"}], "[", "s", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"-", "4"}], ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.8170545622372246`*^9, 3.81705461540304*^9}, { 3.817054657382024*^9, 3.817054672343548*^9}, {3.8170547261387844`*^9, 3.8170547832598667`*^9}, {3.8170548691013503`*^9, 3.8170548785837436`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"7b831d93-0c08-4377-bd0a-3e60a388a02d"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVV3k4FN73nhkzBt9ShNCmsrRSlCylM0IqJUsSIUKklKUsfWbs2WWZ7EXZ l6zJ0nIvFVEKESIVCiVmsa8/v7/u8z7nnvO+55znPufcrTY3DO1IBAKhnEgg /P+5t5016MnhwyJL+ptdujbQFPEVYad2Pswu6VnNlJCkFY7qp4218mHd4nc3 T09J0OQkVPa4fuLD9/a+3XboswRtoyufjlcTH+7QXnBIjpSgUaTzvIIxH1Yo ENNJIkvQuoL//Mgo5MP6Ey4FR+fX03z0rxf3BvJhZ5En7v/xi9Hm7pw7fMmf D48xefje/hWlueceaRzw4cNZifzqyh9FaQ5EwYE/3nx4f8xiWkycKM2wvEhs 9iYfJpt5npOVEqXJrmfRRS348L5VU8MJIEL70Oeqd+YgH54vas2VfyBM23f4 NEpR5MPdOaItZH9h2v0kOcURBT68+4v/Hp4rwjRL4971gbtW9DTGMj32C9NY jdoD1Vv4cD7zYobKOyGaaIW4t4wAH+aXqB0dXlhLswx/lbPQR8Xf5zTc5khr aHXDiZIne6m4UydvQ1eHIE1Oxy0yoZuK0bUtN2dyBWkswg43xXYq3j7pdG9Z X5DmfztGw6GRiv+ktQ5tfLSalmNt2/G5nIqlKwL7j+qvorEOCfAUhFDxwTue vBld/DQpfSiQvUvFoga1s+kV/DQD+9tGjwOoOOCMvtinWH5aGbM/I4lBxZXD vqjmND/NjV2jFeJOxVqb0pnv3vLRpvKd7tpdouKn596EBb2i0hY3NfNLqVDx xwtDwy0tFJr8QZ6ylINUrPNlD+lCOYVmqadqtl6Jilse5kXzx1Nor7yz8gXl qfh6HdozYE6h+XbSTy1up+JdHa/PuI6QaeQY+civa6hYzH7D45b/kWkC5Oi1 94d4MaPjqIDUNRJNWq/q4ddBXvxp4XSTugGJdpT5Y49UPy/WK8738FEm0dyl 958o6OXFh88k59OJJFqfVptfbSsvNkzbPX0miUgrDxLh/nvOi/seXqILtxBo F6lJHTrRvLg6XgApli7Bbf3ayxGRvNjIrkslLHAJYhJG2K1hvNimgtK93XQJ 6uXUBC2CeLESSYKwkbAE+3R7dNy8ebGZoqCSqNEiUEI3VaXZ8uIv1IGLneQF KBJ4nDyjwot10tS0JO7PwokDpmMnlVf0DjGNntychUELQc0HSrw4gCypeltv FjaUeo/Q5Hmx4ujls1nkWQg5b6QSvp0X73yte/qmxwxYZ5K/bBLkxbaW53s9 7KdBROOK0LEBCh7ufeFu4jAJxVc22d3/QcFCZ0m7pk9MwsmYz1VD3yiYyP7S 9nr3JPgOHr0U0UXBcf3Ji9/HJ+BfmHhxRzMFS+qb1G70noD6zkY9h6oV+0cJ f5d4Lni57AmJjKRgvp5Sm9+jbPhhrCEkGE7BUcXTYcc62KCrcjY5KoSCuZo9 QfglG8SW3QrvBVAw2b9HW+IeG8oinrfEeK3wTzsfpimx4U/OSYl4OwoOOt63 X8ePBWZ9DvkPj1Cw/e7edGH7Mait9Vbaok7Bh9vQ8FaNMdiRFfEiTYWCvZn3 2u3FxmDKqeRjuhIFt7X3uEU3/IPY2WnO450UfOiA6x+zPf+gSSRYPUeUgu/b Gr6NWv4LaqeyPhT/I2NLJ9Xd8U0jEG6Vpz73h4wjbsTcmcsagV63J/law2Qc afFxJs5vBHxSK0K6+8nY+l4W2KmOwJt/b7V4usj4xQBvlGfBMJyO/v3CpI6M izOtu7YkDcGlDrkni/FkPIUaQ28l/oLSkd0bdZlkfPzXp9lxr19AWlIIj40h 4z71hw/jzX9BpqyKo1zEiv1Wqf+VLb9gxENXxsCPjA+XJhWtzRsEV0nHB5lO ZNy9SSjlxJsBCLLKjzwFZGyc1ZlbIt4Pj/cKKL45Qsaqs7INfwn9gOcdvxxW J2Nd54MsnZGfMJewc4u8Mhk/uihRfrHmJzi35Jas3UPGNQ8pR4iWP8GElvO5 Yz0ZO1GP7+Uv+AGy2zMlLo3zYIefVZb/KvrgGJvnVdcoDz5Pa5h8E9kHl9Bl G4M/PLjYlhzcZtcHyebbCzR/8WBT6laXKLE+EGQ+PizTw4MJvrWOft7fYIr8 yOpPPQ+++Kj8sqheL9T/fpDl/pAH3wASVVTkKzT/GleoTOHBdhqGymfHu6F9 kFYzm8iDbzqH1+Ombhjo//WREbfi3x/5Efy7gfB970xICA/+dtFsppzbBaqd L08+cOXBtgkd/NI/OqGw4dv4Wx0e7Nffm7fnWweU1yt482nx4DVWx3IDXnVA zVs/8ikaD4ahfBI1vQPevZaRaFHnwdUbNetjLnfAL3Rd8+s+HszgV/MqGW2H zVWLzDFJHuwW/0yvh7cdYnI3qa0fJ+HIv4V3jl5oA/HQxVD7URIeMHPT2gpt kO74rbtihISfidmlyMq1QcmuB17GgyT8Qee1bMpkK7QUbqyO6SbhqhvMHbLM VhAs3aCy6g0Jb3F75ZrY2QJh1RLKxCQSTo6s5Gr++wjCybNBZ+NJeKfnExH5 1x8h2bu7Iy2OhMk/paKNkz5CnnrSLY0oEu4d3E8z1PkI716KV9wJIGFuA8WQ mtEMvHXrD0xdJ+EdB/6MrbnyAQKaRBX/apKwfVeVusv6Jvhia1DpACR8uKkm MHiqEXYtRxz+fYSEP8aIT77raIQ2JfLxnyokrD5DtPvAbASpBxzzTnkSflF/ WfOTSCO8vPEp6LUkCfeXxU3FbXwH0yKh3SkcInamGDxKP1EPJ4vfWEqwiPjX F+e40r318PAEYTD+HxGr/ezmGRKqBx2Gx1jMMBFf5O1PffX1LTCH7HhC+ojY cHK30wbnt7C/RnOvexMR20Zn7LBJeQNOVgu+eo+JuKdT0+e34GvI3bVrNC6N iFdlF2cqTNbB78nz53tSiXgdy1/oQU8d2ESU772aQMTGAvtYA7l1YFZ99Wtw BBHbh8tKbtSuA9113UqvbxNxYgG5hz+wFqQbKn6rniLignx3HCyJwSZ2wMBP l4g3tw2wZ8kY0i2EXr7TJuIJ2rVOke8INkxcizsPRGx1e0nkf2EIhLdKw62D RBxv3+iL+l8B4U5sUskWIv5bsvXm0sOX8E3+hp7cBAGvYm4lpcNz+F0+M5rK JuBL9UpuPZufA0vFP1J4nICHIsOIxxZrgHzs/sfFEQI22SwZdr+mBnadf362 /TsB36vvGaYdqgEPH+o5v/cEfJXj2RKkUg1CLWkWPY8JeP6iR4jqhUqQPLdz 6Ww6AevnaIpEHK4E6a9lD+sfEPDMnsRxHqlKUBl8+700kYALAwU+2gw9A8uZ v9YhUQSsXPrnXafHMyiQUrE/6E3AsH9rsHtaBWi7tDjfMyDgpJuU1gN8T6Gl c6hdSJ+AjZli5LOscjDTWFZj6hHwgYyB6NCucnD+nzw16TgB9z4rlTifVw4J WeFpj48Q8F1q4qPzeuUw0q3TUrGTgN2OMJc/JJRBpObL/b1EAl6Txt9991gp yBvmKbxcWkbZXZVe0gqlcGxL13zt7Aq2cB/okSyFa9UHme/HlxHWt45I4JTA q3+sN309y2h0W819jYwSsDG5Ikt5uow8bRq2KfCXQJ6c8YiB7TJCTXIWPs1P INbkit8fy2VU1PmjCOU8Ae8gb4mAC8soXFeKqeT/BPQG0k88PbOMXDaYzTw9 9ARYD//liakuo6Aud1OxrEJQFgu+2rN6GVlLF5wUCy2AOnLNX9vKJVRp8qLs oHseFCg1ByyWLiF17fg/l43zgGnzY0N84RKSO5R99eWBPLDDvHoNj5aQsKay IXsyF/j+MyrcGbGEuksSVU28c+EMd/Ta2KUlFL/jhtHPsBzo+bllzENgCYW3 2je5N2bBxcA/rGuUJcTTKwNXSrKgV7aCa01YQpcYjdZeCSvY6eTsqalFZOYz RF6wy4K+SXeyVP8ierQm2vw2OQv6+Zsk31Uvoqgai4CNxzPhz3734+KOi2h8 x8Ce7f2P4Wq7xsnVtovof3fHc9GHx/D3Nv9pktUikp+7KepR+RhGnz80HDVe REhT96By5GMY0260wLCIOPbMFrbqY+Bc2OzuIL6INsLoKlriI5jze5de1bCA DormXrC4kg76dz1u0OoWUBkrWCLGKB0yw2Q1ml4soGuBku++H02H03GBPT2l C6goX+9is3g6pGeurBQpC+jrkYqypoQ00GmoCte+uYC0ZlTl264/hLhVebfb xBeQX/PVoykaqTC81lTbfN2Kv1BC6cFNqXBYlCoyuHoBfQg+77Y4nwK/N9mV TpIW0KXB1f/W1aSAmsLWUfF/86hvSptoopICPwySrK1q5xGNKC84dzgZ9iSE 6o06zqODSQ00ebtE8Lc0zo6ynUe3TtHIgScSoUtmC2G/1Txq8tZmLu1NhMCn T8tvGc+jqPssU+vpBOht/S65rDGPCKsP7OgKT4CIVcojQiLzyHWEYm79PB5G /fqDDr2aQ2m0O0kZSvdB88ST791Vc6jC/NoG1Y33IXGtp+p/5XNIenip8R/5 Pmilrf6Hc+fQelFb/qdfmJD6QsX4ZNwc2qOUkFl8hwl601HbLBzm0ChRIRve x0HhNXXkLzyH5N0d5bBPLCTnvAzwWz2HjDz+i9e6Hgsh/Ud1ffnmUO7PH2t/ mMXCZVOtVvrSLDKlcKvMlWNBUuv0gOefWXQ7qafTZiwGgjdYUW/UzaJE+dNd iTYxYNPkr2/uOosaBEZjx82i4SyFImJ2fRYZxVFDt52KBg0I7jJ1mEU/cm+Z OapHg8SzcGsTy1nEzbioqLgxGloeMd0MTs6ijgwx+4sv74GGV3bC8W2z6O31 tnseH6NAYkfTd6W2GeQzteS6Z1Uk9LzZd7P+wwz6/CXRcmwsAh5YJxAuNMwg ad/Z8q7WCNiaYruV8WIGxR3K+SKTGAE7BZdt3mXPIJM5o5xU2QhQnVD6ffHO DCrmL+1oOxkOF/CD0SDpGUR/yqMoXRwKGyzIdPEtM6jQxd8zKT4Uvs1eXV0g MYMO0J5E72eEgrWSinyL4Ay6mHknvvF0KDhmt92QnJ1GQas68pljIeAVQeUW NU+jjw7at28ph0CSqcts5+1p1Hg+kH257y5wHO5N1LtMo5urOXM67++CnteT 8Ypr0yiU3uSlVXUXCMkjv+JsplGJiYhrVOxdsO+xbtM/M422n6yONte9Cwcs DQsaZKbR0/Vqem+rgqDlspJFZfsUehab4H6oMBB2uRuYZn+aQvGSR6rVUwMh MPCG0f2mKTQRLJ17PiIQDmUVnHBb2VafBw6ofLkWCA9/b1dWKJxCW+o6No/K B4KTo8ianIApZLeu5qZTZQDw3pjE8YpTyD/gyrhOtz9YayocT9s7hdbuYH+2 /uAPL0Qdm3N2TKGoIs24GOQPri96u6s2T6HM9Fl3hWx/6ON/w/kqMIUsT4ow L7v7Q0VmrPSWgUnUto/fI1PEH9Z6fsiX65tEv9ZlKvDx+8PVU7z793VPosI8 lpzvoh9IcbyO0D5NouvCS1WFv/0g4qi1yeXnkyjgLo05Xe0Htl8VQnLiJlHd zL5XZ2z9AD1xFCyJmkTVb+asuBf8QNIvg1kVOom4HtcGC/T9oEVu/aNGn0l0 yP9SsKm6H6jfWqr+6zSJNKOPDaat8wPhtc1/FbQmUUSjlOOvBl+o1b6qXzUx gXS8TwzrH/UFlnfII+PxCeQQEWH+VtkXpEqyuayRCfQ1nXLDUN4XGJIDCTu/ TyC+8dYH5Zt8QW3c/Edy4wQS7yGlyc77wNPE0y70hxOovQIicwJ8YKDZ6bVE 0gSqWCbox97yAWGeMNFncROoLCZpW9EVH3C5Xl89FjKB5gR3ZXvp+YC85lHS JbcVHOUuYCfuA7l/98Vp6k6g7prCyzXVDOiU0v/VpzmBRAIjbJqLGMBrcv3Q nSMTiFvZ2yuSyViZP3k95YoTSFF36LLmPQZsu79NWmbTBNri6bJJyoEBBk1w u3b9BLJpSzv53ZIBvsuW7yyEJ5DkCapLxzkGfHdMuRZPnUDouqG4gxYDUjVE KqgcLnJxNXDfL82A926K1MxRLtJ2frlQtpEBc7lnL8AQF7Wvdsl2FmXAhXWR i569XGRK+7o7nsqAEN0CfdFOLrq8tDxFIjKgit74qLSVi7LUvOsK5uggNkzR +VPPRe+npq3Kx+igvUk68W4tF6XbUjTWjdDB3VDzz7YXXKS2quhA6QAdPr9g RJmXcpH4xu6ivG46kDipP6YLuIjsLm9J6aCDotxzRWY2F3F3LNMftdAhOmb6 y4cULjrnwYx/8I4O59Wa497Gc9GGLK8etbd02Dzw+OyrGC66JOB4W7iODr/C PVdXRnBRohd3RhrRofDAmabiYC4SbPGbcX1BB7dv24Nz/bkoOu6G4GI1HdTu zh57ROeiDA/ZrteVdCAqfCIke3IR47PadEMFHd51Zr6MdeOit0KhQgJP6XDP 19s73JmLWqWNW8PK6GCy8+yhQEcucua3+3WylA6b2mQm/rPlouOXdxNPldBh 0Hu+5JYVF3lrfO8NL6ZDwfbW685mK/mSMg8KrmDXD9m7rpzjIpn0wua2Ijqo 3PpvyOosF4UKWV/7uoKXNxlmmp7iot4dQX0yK/fr6+WsDXRW6t18aapiBUfc WNx0ksZF64pGwsNX+IzEP3/VPMxFfe5j/+Ws6JGszU1QP8RFzYnHngiU0+Gn I8P4gCIXBbaxeZ+t5JMrbCy0dy8X1Zy2985/Rocbz3d+lNnBRXa5mUvDVXRQ tl0O27ydi6jt3jGuz+mwuKrj+PrNK/mOPTuk+4oObyryyWsluMhxh9Xi1Vo6 hFv61vKJcJFt69/Jnjd0MKSaMIhrVuI9CjicutI/iZLd6nP8XNRopjZR+IEO P0yJMxwyF4l9N9Bd00oH5/xCl8E5DnKe2vmg+SsdDhr5y3+b5KBp9ddb9vyg w8L8+b8dLA5KH+A59vMXHcJO89g1/OYggfY3X4w5dDCY6tqKf3KQXJSImNgs HcTTivqqejnoS+QFphKBAVmsC6b5bRzEksuzDl3DgGtJCqIZzRxEL7jZ+WY9 AxQ1KW0p7ziIePPWVxspBuC4klORrziooRksmhUZ0KtMPXozn4Oc2KTN9y4y ION777xDFgdp55S6CK28z6shZVXW6Ry0xuC0E8WdATPdFopG8Rx09DeVfCqS AchfafxUDAc5FCrsfJTMgLu7+Qu1IjjowvcSomsuA0ToT2WU/Tmo+Nu2/Mi3 DOiRCeuXp3OQYfKu1G/tDHj80SpNzpOD9lqZBZcNMmCf1P8kJJw5yL8h1G+K 4gOnXluvWrjAQUXOzlw1fR/43bzhfogxBwmaqkpU2vqAf1fHJlF9DrJZKjX6 5+0DVf9OKMhrcdDyTlpbcp4PGM3wVNVocNBZ29usDXU+MEZ6BcdVOei4O1/v 1R4fkBZXNLwkv1KvA1cIWny+gLaNfh3dwUGyzOTefWK+YLY3+7LX9pX+JHlt jZb2hRhNyVux4hwk1O5eVabpC0vXSIlvSBx0JsQ1YSTQF5I8XkgZLLKRzEGW XVO8Lxzwv533bZqNJtNfC6nn+YJTwp+aqVE2evdFdfzbJ1/gfZx5LGCIjSht tCSJQV94XGj5YU0/GznXH1s/M+MLXbVt33Z0slF7rPp8mbQfuH2IsK9oZSMX pV9VySvzRLBTZ5z2gY22lScQDxv5gfZoDcG8lo34Mp4R3gb6QZlYxvbIAja6 UBL6pZLtB6e3WhRKZLNRftSo/P41/jC8e/3B7HQ2KtnsNZ6+1x+20MJ10H02 WvxM3xh23R9qTml/OhXNRlvcxNeJ3/MHE5Pl811hbDTTX574ttQfIpzcHNk+ bBRo9m2paM4f5G7v5dC92Yi+oHyDvDUA6nyHvAVusZHb8p+cQt0AmL1vHrH9 KhsFW3/R3Z8aAPb4WPE5YzYaWj7GGTgXCMT3i4f6z7DRCW6xakZIIKR2VGLn Eyv8/f2XdF8Gwuc/u9uCNVbqV5T7MHtPEDhP/jITUWWj7anasvevBIEAIX0g XYmNPD//97I9MwhAVGSyegcbvfhtov9O9i70bPlI19nORv5+l9l1Tnfh9q4Q 3s+bVvpzis8htfwuFB5dWD8qzEZbrUZWJekFg8TVQbXNiyzkzRX4qpMXAnrD 5+SpMyx0xvyO30ZyKDDsG7ayOCz0Yrux+YJNKAza5PPVDbNQeWNkzPDeMFj/ c8NC/gALVb9SnA9LDoOTVpHjcX0sZK+huM5uVTiUmN/8YtfOQkFSW75oECNg oPtn45lPLLTh+H2aaFAEiJkavTzUxEIvrTpUP6+JhP+MlTP5MQvd9dQ7o3w4 CorbchI4NSwUMFjeKvE9CvrPSoT3VLDQkajfk3bh90D39ILLkwIWimGeSW3w i4Y776/bxWezkJOrTErhcDQUnfhu6vOIhdYqlw0pm8TAz4azeg6pLHSg7oT5 qvcxIKJTd9QggYVcQi5LjRyPheNvlJTUYlnoJpHNzGiOBW/NLNntkSzkmdvH s98iDr5rhKye9GchCnOs0PQhE4RfzhL66CyUO5GtX2648p9Qd5qo92ShKcbf Z7fE4sGjuneo2I2FdA1/bs79Gw/5h870JDqz0K6GitCy9gT4VoE++jmyUOXI h2639kRYe2B/3VVbFvL9lMGxGkuCY2WPK4ysWEhUq9w3RzYFbu8TyTtsthL/ G0Hlun8q5BUFpcqcY6Hnl3N2C/I9hN490/cEz7KQfq7aqyCUBmsKHAKmT7JQ CsFBmt6dDpo7v97+oc1CfWEJD15PP4JbOaeuNgILVZwgaCody4BcmZcWZeos VGVbteZCQyb0ZMgbpCizUJqbT+haZjYIbkvXCtzPQnuXoy7VoFygpQupXN/D QhxngbyZqwXgvjlgt4kcC6VW5N0waCiCnNSJzUe3sZBYMvD1xZTCV0l74R2b WCjHp2z/roCnsDqpkyIkzkJ5855Xz5VXAaw/MTsrzEKbmetLp7YhcL1fM9q/ eoXv5nOj6zJvIWvdnh/v+VhIR1dqdHNCC9S+3+mpSlnRu+25/c2WHvg/3wTg IA== "]], LineBox[CompressedData[" 1:eJwVy3cg1I/fAHBKyaakqIRkJ2RE+CDJSEWkpCVUWlZCdVZIRnbp27CVskpS yvtNaYjszXHnjnPcXchIxu95/nr99ZJ1vWbvvoKLi0uIm4vr/7194ZVI3DQH NnHM/e0CepG6kXZigMEB352z+2KzvqPl+m9mpWQOPHCfaI/iqsYisQLl8DYO kHPX6vymvkdx4ThRxzoOpPNMT7p1l2Egv9esAnLAQdEjwuBSKZJXHyHPveVA qLZItW9/IZqv1K2te8mBPcXxqjc3FmDB8sZXjzM5EJvHJzq4LR9FF/4lXX3w f39AUutbTQ76z5EDTeI4oFFaQmU1ZGHfn+oza8M50D454d+vkolmEzn7aQEc mKRMqGjFP8PnrCj18qsc0Hui8TlH5QmKemWpVrpxQLXfdpea7H8YMPlRCZ05 kB1uy2QeTcdBv87ttYc5oB+S6Lyu+gFazU7I1VlwIHVEVVzNKQ1fBwrKNBpy 4Hht/skba1NRakFhS5sWBzawZC2jWMkYRjKV6lbiQLAIXwNnKAmZXC4byNIc IBaJbKHJRLQP9xcfEudAHONjdq94IlauShRj8HOgL0X2QYtVAsrffSnM4uKA FjfKZ265j7H8XwUmZ9iwLwG/C3yJwz+xg2tmx9kwvMbFsT48Fl1E/q1aoLKh IUhHTN85BneIa3CtbmTD7+l37upm0ZiWZr3IX8uGhG1LDrOH7uLSRvd5kUo2 JBk1sDouR+GvLY/+SOazwSXSLfO/XxGom1E2If2EDcI5nkOEWAQ+k2tkb0tm w4LnlR9XT91BL0We0R3BbCCLhDzctj4cu15ID2tdZ8OtTq1dBrfD0ERNf0jv EhusQwwfzI6Hopjm1X5TJzaskdseYkQJwaA3d3ssbNlw5bGgcrNbCFJ1sjtt 9rKhkCG+zrgvGF8bdDU77mTDlvFPXv0yJJT6NPnLeTsbDjaZK8bb3cYwQqj+ 9CY2RBDdu/ljbuERc7OvF3nZ8DhoOP2AxE38+NXl89VFFlgVBS7InA9Ceasb 6DvFAsfBeXpPVSD+sX314fYAC8buBecHhgagS9PXd2HtLBjo2qVbOHYDa+0p ZVE/WaBIennT9cQNTHOSKE58xwIb493iGtb+qHc2JDv3PgvoUR1Zl0/5YcbQ o4yCCBbIfxAdf8TyxTUeb58U32TBY5nFRr8QX+zyZD54f54F+uLcSyElPhjk 5xDbQLBgzm6da7eON1Jnrka36LBApKohUJ3shdaB0ZGdqixQ1gzYLx7thZtI VSGUDSzwyqgeP1h/DT9GKV2f5oxDZ8/Ze4+vX8GGBgF+Ofo4TP1703WMfBnJ 6zhPD/aMw1+zjTk+NpeRK+Pt9/wv4zDsuu+4kNYl3Fthttk5fRws6VN+oWoX 0WFpe2lk/DiUvRpJff/mArqZ81m8CR8HTRXvWVnjCxjZ1HhN8Oo4LKrc7xJy OY91DJfPVWbjoNwZauj+3h171U2OjemNw609d/IUndxx3G8ba8OOcWgwrw0/ NOuGwtxMCe8N4zAUHXWPZOyG9pI3PLeNj0HoRO5/dsOueO608/Ihyhgw74Rl a6S6ol+uUcqtjjFQPhDxfGSfK6Zp8lS14xj02Cry5bw6i91WiWJ3U8fgJrdG NSXuDDLv++WV3RuDFAtBCq/1GZxvd9pDCR6DS1MfXTJ4z+BmV2l3A88xeH3G tWBB6DSeCXpZMW48Bqvt3r58r3ISvTHeVlJ7DB4a7KtbUeGCYat9qPuUx2Dz nWXGo/0umJO0W/DZujFoFtGxD7xyAhkFtaftGEyQVew759ByHP/+fv7ndj8T rjTGTPl7HUd+vdjoghYmjP7V7L0hehzVPtu/WfmJCUl17F6a4zG81juwujyR CU9TTL5pTh/FGYH5Qqk9TBib1Qgi33JAXf0DG7k0mZDQFFTRstsB/T2ehtEV mBB26KYpdfoIzqKZU8laJkTWlfju8T2Cc9djuCyYoxBSGt60O8ged2f3e6oO joKciFbBBWN7DGza2S7aMQriNx5r311pj/MqbS96q0fBZitJJTzBDv8NbD7i nT4K/+zjZhllh9FQ6Nqno/dHwUr9+4/1IYfxlkG1omHEKKj69Y4JHziMCynu C6u9R4HvRyTjVf0hXLIqyn1sOQq3P3zem7P/IHKVEXPfZhkQ/2vr6WWSDZpQ El0LWQwQnclRS1a1wRBhWn3SEAOWdgkWOXZbI/fFu5knGxmwmKHgZLfbGldI N1tP5THAJT09I3mlFfLcdX0ifZQBM7ypt2R/WqD52zJengMMyFbYo+J01wLv UFf7jJoy4LWdAr+PhQWuMnppUbaDAYklyQaWtftw9eQUx2oVAx7Epj4VbTBH PpcIs+tlI7BpeGrF1hV7cfJAhnnYixGAt8k60d/MsMeo0uL+0xFY6/3ieU2c Gb7aOmH94u4IyEmvcUvdbIaHh1yO9LuMgKZrb5nLXlN86Knttm/VCEwplfDc cicw9MQhD/v5YTB9Ib7RkJdAzwOeF05zhuHtjLmdQYExGqpnXA7sHoY0lZoN /VNGODAhcL2wcBiiP/dEaKcaokLgUMT6o8OwU09LwUDQAEU8l6LkbIZBpTlF txT0cc5Z8t5Ok2GwjGtRlvHTxzrDQ/FWKsPgo89N6RjYjVe4KtNuL9GBVaR6 bm+NHpZFJeXT8+igoc5jo1qig08CCl9M/kcHzfVXC+5462Dkxe8vlxPoEOV2 8nnmLh08ZrNULHmTDjuEjY5t+qCNC8KeFbaH6JDZ+02ipnEX7k0z/fF2lgZO p248ydukhepCKZTpcRo8pKx9MMnQRKk7w391qDRY71+zpr1cE397x6iU19Pg akC0uaODJj61bY8pz6RBuq2cv2CaBs7xXDz4zoYGp710zXzd1ZF2s9Jj1oQG 7NvyxRJi6tg4KRSsp0uDa1krLhV+2oF5g6+L38nQ4MYl6f3PJXfgkY8LohXT Q7BgXBNA6lPFIt+E1opnQ3CqAZyVY5TxEZM6NpcyBCOPnLIyzZUx4qwOj/69 ITizpUxrcEkJXQ71aL/3GwKpbv4jedeVkE9VPu291RBslA1MXndZEd2o7459 mKKCxGrGQf+g7ShlN9BfuZ8Kv0KOktaLyKFOccbPMiMqGPUlHAkdlMXDQq7v C3dRgSUktcP1tSxG/KClPNtKhe7lJ623nWTxtynTJnyWAspHLm+dz5PBr1rT 763zKUDpS6T+fSONlITy/L1PKHB+K+v4YTdpXGDfSDVMpgB2fou+tF4aNV/O e6kHU+C9weK7kcAt+Hgbl9JaJwrkPpM1qLLZjD7iAmndqyngTKGf3ykmhXE+ 9eEtC4Og83k+c6heEp83xXn/nBwEH2UbllG0JPbHitp+Ig/CvLxVW/9KSbRc JcGTWT4I/2JG6v/j2ojSMzI+FzwG4YDbQWq+hASmFF95zI4ZgKbFn9MFBWtx 01Ro/k7/AcA/Ss0jvmsxSzfttdeZAZC08TMvNVqLxZ+qvk9qD0CwhjttqEUM 636KTM/0k8Emrfj505ViuDxSaru8kwzKG8syTswLY6Tq12MmUmQ47rEyXuSJ MApe6zkXykOGax7NuiUmwig1syJoZXc/0Ee+fyy8J4TaPA55vGH90N64zcpR WRA9ZWaWRNr6wKXc2d7mPh9OnOPnt6vqg+N+ZgpFBB8G5EuvT3reB/LCV/50 /V6DEer7VcVv98HzbS90SY5rMMPwodNGhT74T+1+3i9FXuw4ZlAiE9ALmtX7 WtvYPGiaSDqrubkHPjY8O7vwlwsVsr020Hh74NgY/6Mnn7lQ8K1rQ9pUNzhF kc59jOPCji4L/YW6btikzz1zZRsXXpYREfsW2A28F5gV3C+W4GHxM3Tp7IKE 24vjPQ//Aak60V/kcxcwnibVVBv8g3Ot4Wo1RV2QFJPwNaR/HtRnzz9UjOyC w8vLJ4O3z8MXYw2vSe0uGNOfXmUJc/C7AbfeTeqE/MLWPWc3zkDHwOt2A1In SMgKAf3rNFRO5MSwLnaC0NzfCnn/aYhcHz1rb9oJtYWHzX92/IHNJ+0at/zu gLYv5SKxGVNgOU4hvbHtgPuks+V+DhOQwb+STF7TDosLqob9Hky4p+SGs3/a IPfUj3Oj7FG4blGbJUppg/8C5HO5A0bBOizqvNn7NgiMbVtvG8eAqb8CE7kX 2yBj0dRW5MswWIyK81ypawVmTnPNoTNDoMHrPxxR3grikJYrMkeFTds7vz/N aoVTb4NTKhKo8PtMelxTUCscNfCI+PSFAo+6tmzQVm2F5fCne130BoH1TUHl X0wLJPga3Am91wNd9ChB8YAWWNG6Y9iuvRtqVo6y1dxaYL758Nw72W5II16+ OWXYAhmKDaZ60Akm73Ya1Yw3w74BgaoswXZIydt9ONq2GZKS+KyT+xrBIMLa f4NIE8SG6Txi932AMYcg0eXJRrjv84QsEVsBrs9Oazd+a4QLVYVGTJNysNNW uXXNuxGaHV23n6wsBfVTIFDy5ReoFIa4CNEyYaR0VEXzUgM4rRC8dzLpKXFq 4ddBbpMGcAlaOnvZNJvosCjzaRZvgHVkh8eDO/OJL72kD95V9eCueoDnO6eI yFglbv1arB4s1pUqrlguJ5yPG1/cVVEH1pHJll/Sa4jm7G1xK+PqoCBE5qGR 72fCkr2mtPVsHfT1vspPt/5C6IW3zvkK1MEv3vOpQlO1hHjhhbtlp37AY1G/ FZdUfxANXMn5Oqu+g8rB9ld8xo2EyfMRup59LThnab+I5mknrt+/e3pMuRYm K/4NhxxsJwr8lbufctcC36vArG8P2ol1+y7Vryr9Arx+J25YKXUQwxT261aR L3DS0WH7ftNOInbTTPC1hhpwlDMudnPoJqpXPPgrl1sDDg/jhZeSu4mZUT3f jls1cOLE1vWLLd3E6YpADyO1GqhpijTQPNRDaDkuHhCIqYaP8byGqSa9RFc8 j1S+JUK2cT/t5Jp+Qsg/N9lZBuF084j0sHE/Ef4hVmrzbwAJnym7Eb9+4qiT KDfzIECTxpstxwf6iYWEDb8iBKvgIt15q2QRmbDkUbjwKaoS7rxs612QHCQG mWaP1UjlYJJkJSXjRyEuHjrA2SVfDj4pTUzjexRi8o2j2Z66t3BEreDYlgwK wXP7AsNK4i08UhC/vOknhVASidc+X/QGQozcq9WkqYTXru76THIJeP64qib3 nkr8fUDd+uJOCTwq5dYO/kklwhbGfEpUSqB5A1dlTj+VUIpZ1CSxiqBEstPe hnuI8Cq2rKvY8gq8SvvfiVsMEcuz5PkdpDxIo1hM83wdIkSrJzIM63Lhc/0A Rb59iJC7x7PfRiIXxOT5ZsRpQ4TFZpXkC0XZIPLp2bHz3DQi3uS6ajY5A/6o 2ChQ9GmE4doNFRqkNEj87p4emUUjzuQY8hyUSIVPFiXtvUU04o6u6+FLRcng 7fGrjbeSRtQ7FzJyyQmwKvtEJr2FRpRbRGnpkiLBqWHHWA0XnVjybKnzKgoH swJqZZcAnbC4v+XcS3II/Nl53vy7BJ0oKD6vaEryh+CXu0Z01OiEwdyiUznZ C9IzHpSV6dKJpFAlMSeSBwxo82YIm9KJc9sLaGGkoyAvJsBtbkMnrN0ZzTh6 vcr02hl1R0c68T8LTCdp "]]}, Annotation[#, "Charting`Private`Tag$62485#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVlHk0lf3Xxs85jkNKxWMWKak0mJOMNyFzphAJlaKUPESUTPkhJJEhY0KE zBnCd99mSqTM4TEPkXMOmYe396+99lqf69p7XWuvfeias7E9iUAgXCASCP9f j4krVfPWUoA5yN67WvUwXhzIsTj/iQJSTArs+QyH8StM8V2aLyhwnSr+4elt Idz9In49LJwCdNHMx9LGQnhk7Azt2zMK5HVLN1HkhfDGY/J7rQMpwOlTtcjL IoRLaA1ounpR4M/ahH2f+UGcMUSgPOUGBfZSos6emBPAP7CkvV6VowDJ5NgA jyY/ri1j8VtHlgJDDOlxQYL8+Lj1XrUkaQpksDT5Sazw4fyFXjOqYhQo1O31 Fs/mw4PNTeRChSnAfUuupXcfH26XTu4W2EuBXZMjORFTPDiH8i2282OMoFRk /NKmhgvPvyVg/+o/RuB9o/npQRIXrhP5vXxqkBEmmNTEqx5z4b7jKrZhvYzA 3iDX36vAhc8/48nvamOEteRuX+0qTryxp0XPoZwRegNuhH9u4MA9XU4Fh4cz Qqus6JmANXb8P1Nltr2hjGBkG7q9PMyOa8kZvn4ezAh1DMJ54Y3sONeOa25E ACNwRN5ZOxzNjheFfeqI9GSEvAI93mkJdnz2nQ5vjD0jDJruyii+z4ZbDjm8 T1ZihG/JufZczPtxHPeSPqjACBbE1bwDE/vw4xlhVSlyjHB017z6hcp9+PKd gq+p0oxgp+2pp2u/D3+5tkJPE2UEn4drJErNXryVI0jhHScjnAr86U30YsXl dTO+5M+T4W5vG5HEtxsPtclWWJ8lw2nNsbK3dBb8p2vee/VpMvjNj/v5fGbB fRJLg/tGybC+ab0y5s2C1883qDP0kiH2rOMe84lduP6LySqzWjIM1Yu/Taxh xm27juVtxZChiHuk1y2OghfOnDygFU0GI7b7IZUeFJy0LR76MpIMdY3Hb0qY U/D0o3KOx8LIYEe3DszhouAzHloiRn5kQBtqCT2xjPi/fI5J6XfIEL/M5d+a RsYDbd6H62JkEPDUXNfpI+Fpp1mk6pXIkBY193sEkXDYcOxWVCDDs81bFQmZ JHw9VvSgmCwZ9vtl7PVwI+H3OrIK9p8ig4PfXd8mNhJupvruexc3GULu6YRl GhPxo8LpvLYLDCBe4Reg0bsD52kMNb1zDGBesd/QI28HbNH1a0azDEDKdc4e 89+B11bCOWoTDCCdd6/mttgO7I1OUxQZYIDH2uO5osHbsEx+YzPbyABOniVj Ippb0DiZlOGWzAAqvambTLPr0DaxIF6WwACdfMsrS7Xr8GNctXItjgEO7N5f xp+4DmOjE1+fRDFAz6u6o5wX14EwfHo1OJgBPgqzuH0oW4NzPdU6Sf8yAI9W V5Zk1CrkNg0uNGgygIk8S7+OyzIUN4p7MaszgIOUFVun4TJUNviRdVUZgPeQ t2iIxDI014nwdigwAN/Vk0OB1D8wge6q9UswgCr4Jxf++wcEy7eif/MxwIlp FUKMzxJEZgnIcy+QQPaKqHFdBR14QrZCbs6RYGNzj7xqCh1SHQf7SmdI0Jaj c2viKR0KTiR5mo6T4OD59sIUQzp05B6oiOwjwdTxhdWuGRrsLeSX21NPgmFj 9RleYRo8q+CVJcaTIPbKkPlxmwVgf70WaBhDgl/nTshPSy3Aa6++rpQoEhhz 49+mKAuQrRD/QPk5CTITC3LT839DczVP6aMAErBOfCTtJv8GSi23zPJdEgyc qHFRKJ+DgFZOqV9qJKgmxbJ06M5C9w2jMgeMBHYrl45eEp2FEzthipNKJCCm hLgwM81CpzT5wogcCQ4lCSSs1s6AUBLdqkeMBG++PXReVZyBauf2wDo+EqQl /+rGzk3DCkdIXwKdCP42RxWtjCZBJ7/+Ki+VCIcrDJGUzCQkaxPGY+aJEHmq TUaSexI0n3j8jpwmwgcrK+G0wQmInrJnCB4igvLwhpmB0wRIVqqddmslgnul /Pm3L8bhjs2mr14aEa5oq72dXByFrBMn5qJSiH9zyJo+3jcKk3/MzQcSiaDO 4tocWTMK18KKT9+OJYKNeYpbd8goWFbc7g8KI8LR0SAbkcOjoPVPn3SdOxEC foRGZF8egSNNpZPndIlg8XNdvbxhGK69HDPy0yLCYFPfj3/ihyHVmq26WYMI rrVeKflOw8C/5BRljhGhVnjMKZNjGNgPHcEenCGCgmxf9f9uDQHh0cv4goNE ENW+n17LMwiDYs56x5YIsBqTM9KQ2Q+TxatziTQCWDGIMi8F9ANVzj+cfYEA ExujXwzt+oF8/tXXrRkCjJBKpF4d6IcT5p8MfwwTYLAt5Lnaqz7w8GG65PeZ AOmDobFrz3uBrSPFeiCNAMx8nwLl07qB75LotmEqASJ9P/g0Pe2GI/1FyY1J BCh346x/dKsb5MYbhgvjCKCUYGV2+XQ3XF39ZRf8nACXAvN6Riu7IEdI7uYZ LwKcXntDIw7+AA2XjnsRRgTIJHKs/qP4HTp6pn6wXSQAy0nvn+nC38FSeUc+ Wo8ADffL4y7t/g73dosxxV8ggGT6PwucA50QmxGakqZEgFdc/Y9ZH3fCTJ9m R6koAYb4fIRK6r5BuFq15E8iAXINdze2OnSAmHG2ePX2DnK21YhiNu2A8wd7 N/C1HfQk08TETqUDnCrORH9e2EGx3ZUHrnN1QM08tX5oYAepTn+YuRDaDtfM bh1lLNlBkmHvcleNvkL2MdMZoxs7SM5y7pwi+Qu8NLvlN3t1BwVZjHIuDX4G r0Av3oDLO6gvUyZlpOwz6I2lapcY7CDLIJXAK06fgZo8n811bgcFENI1W3pa QZYr6PYA6w4SFvpPXam8BWrJlb9ulG2j6pxBwddJTZAj3RawVbiN6tN6uL28 myD62n/8MbnbqCZedux/1k1gDxS9pjfbyCp4ckFEsAmYH5vkioZtI2WV8rl/ 3zSCweKc02/bbVTi3bHJVtAAAyMHf3uwbKMIn7aW2l91cOXpLNWJcRu5vuSz juqsg59HSxftCNuIWdny+dOKv/0dnTXd5S1UKaB0oDmoDob+uJGFRrdQiqLM 6XaROhjd1crXXLGF3iktCZTfqoVZSbcLPI5bqEa72b2XiMPtH8o6rDe2UOGG 4wOnOYBf7rv0STZb6O1ECfOBHoC5T8nGc6Zb6HfR+OW2XIDfGi3WgG0h/qiG bLfLAPTLgm4OPFvo2EG5e3edEaz7NaeWN20i8s3NCvG91XDxfx7OqrWbSMTD ISRrsgrSnx1Vbq3aRM8ddQUtUBXoRz0dGCj8yydYWFm6VEFqOsa1k7CJBPM+ RIz2fALNpvJQjfubSPE4S0XNh0qI2pPt3smzidrlWSbT/Mpher+FhtU/m6gk NnH0mm05KHIycYyzbiLqlYgQQ5VymBSwL/xD2kRsVWVtxVtlIC9+aI5nfgNR 5aMZox6XwX9G8XY2+AaKirXieuz/EU7FhujNOW4gluWsfTp5JeB/1TTz+Y0N lK8WbdIcWQK9IgcJkjYbyDHQVOOOewk8LSkpfmC6gUpsnG0FsRL4+W2Yb0d5 A/nqhDZJdxVD2B7ZGTaODTRo1vzjN2MxzPmNBp6tWUdY3nzpRd9CUNPOG+4r X0fRNFERBsdCiNv/8Nzj4nX0LmlQpsuoENRTWOchax3lx+Y9/SFcCIlVcqY6 UetIKWqKX6GlAPRWnh+2dlhHwte5Y/x5CyDXSQH5s6+jPl0D1uKkPHj9rjrA j3Ud/XKVJDQ9zIPgURUtX+Z1NFGgb8lkmgfXLdS/eW+vId5Oc8M9u/OAT11/ 7OHsGmoyDssSepQLQfw2TM61a6i43YRH5XoOXGv1v2j17xqK63cww42ywZCR kcPy7hoyvjkoRpPMBmUsqNfCYQ3pcZkYabJnA+/HUDuzq2tovVfwjc33LOh4 E+1qpLOG3p0dKtIyzwJlz8zYC4fXkPfq27Am+3fAe7x1WLpzFXHX1HnzJWbA QL3E/cYvq8ismu6h8iQDkuxiCZebVlFtRPpWsG0GHEq4cehJ1Sp6MkRAwSIZ ILp351pz5ipKGm78IFOYDueWpCevPFpFFlVS2bvb38JlSJoLPLKKmDdtpU4J p0G8hctaj/sKgjvNU0tqyUB3iFhqdFlBH/31nXl5k0HPM2+h1GkFqQt7mt5c SALC65mJqGsrKOx0Bd0jMQluDth1XjRYQS1xB5JdVhNB5qpxTpPICjo6sgc8 yhKg47q0ddmPZRQeIDscczEeKM5/IEZqGVk8v+JO6I4GXOP2xfKlJaShxbjb 60kIUL2C35guLCGr4eXO63IhIFSQuUidWULa6dKdkvRgeMI3Fis6vITMtI7Y utoHg/yC1X+vW5ZQiE693WWdICiJ03fxTl5Cw15hnWu7AyHrl0SUmtYSYjOO 2C666gs9QhcnhtSWkDrhuenOfl+gmN09+0hpCa3HSHo2Bvr8/VfZA8VSS2hb 8ctMs84TOPzq8BERgb+8mdI/3S2PIFGZo5SJvogy792TdXzlDi8iV7q/JCyi 1w2qP+XUb4K5fFtUQ8wiSlFpuI133gDBsTTDmshFRLDcnVpmfR1yZQxa84MW UeU61hrqYAvNPenVL10XkUyuzdKuZFPYETBOt9BdRHdU7Jbutp3BGhuP2Rlp LqIjOK7UUa+KhTlvCeioLqJJi8To3HItjA/PilU4u4j25W4nM/1rgsne2Hkm KPzX74vN1VYuO+ze+1yX8XU66hr4flYy/D52xsRfbPAPHX3lT4ypSnbBNjfM f3VR6Wi3a/cJ35J/sWf6DPZNk3TE2DpjfnreDcugXrZ430lHPMaP3FpjPDGn eHHOt210dO5oVPCnNi9MSo2xM6GZjoQJfRe3dj3GIKpAN7zmL2//1Zs76gn2 U5ZJ5f57OgoSe/pYadkPezv8c8Mhg47igyH0arY/dju4qNwulY7KtM1VRmwC sNU+aymTmL/+dwwNPHueYhzeJSKy/nTkM/+/ZxJLQdiAyLNRMW86ymKg1Ec3 BGNpX21Sjj2ko0+j/ys1SQjBJIR28/Leo6PfeVM/3E1DMd06uz2bl+lIj3/V oJoYgU228b8KNqWjmdUiE2B6gfn3dglwXqSjXxfV9m9GvsDK57XFxdTpSJCe q0YpjMSO8EgZ24rRUWK5RrGtQDSGDs/1zx2no5Pcce/IddGY5enM657CdFSS eUfy3N1XWKQa34OXPHSk/4f1IFdHDLbtRIqrJ9HRdUf11z5d8Vi8R5WQ0RYN Wd3N+uKZ8RqT8XfPHlyhoUa9z8+/PUrA7sTOVi7P0ZDgoXOqSDEJo6Slnw+Y oqFZVRs1+rFkLC336pd9ozQ0TzUOrOZLwXrxzsHjPTRk4F9qoRGWirl+CbtZ +o2GHrAv+R1nf4Pt7dFcUP1CQ01nT8clJr7BNOYqCVY4DSXlYnQBSMOKuN4K h+fQ0Oqppl9pWhmY/iHrXN5MGvpw3ICHez0Dmz7JfSYzlYYO1d0gmxRlYgdV QzXRKxpaYt3wSZTLwip1Ndp1X9BQ4pf0Jx5M2ZiZ2Y557zMaurkyI/FxKBsL u+PqSPOhoRcGmyb6WTnYMffTdG8vGtr0HQ8rTsjFan2nvFge0FDAB+fU1/F5 2NorqzDh23/n71/vfVSWj0WncnIW3KCh/nzxxXtOBZhETnuSog0NvVKW9W1h KMRuwvn8S6Y0pLX93VRWqwgjft46O2pAQ0L5D5cVl4uwxK4yuKdNQ22XRTJ7 coux77MnO4OUaagv+Mr+k7Kl2L0/E5Yc52iowdxIS5blI8ZCSB1LlaahiH8M 73jPfMQwTo4/FcdpiCe8Spe3rRwbOPjVW1OYhs6o+lXqf6/A3E8EU74L0JDE kYMn/KcrMbYzahE2PDREedFuNc5aheWqbHLPsdOQY8acBqhXYxd0PqY+ZKUh rpnJpoDnNdio6X1RRmYaChtJma6dQxjv7XF5wS0qOjQU50p1xzG96UtiTKtU ZH63JnNDoRZ7crPpEJVORRICzFEPWeuwwnE5zr55Khqzlf3tNVeHjV97z1w7 TUW6R2YnZfrrMe4R/s33Y1SE70nW3OhpwHRswheihqho38qoss5UI1Zgdb/b /gcVnf+eZGip2oKN9Y20GLRT0aM0+6P7X7RiXBYm1WdbqajWt+qz1upnTLu7 vkCogYroe3RD8x+3YY9NZdN3ARUlNEw76Qq1Y/md72LplVTEFNIkdcG1Axs1 5A0dKKUihrSqhmLHbxhn+7Mn9QVUpPHawS/3QSempb/pkpfzd39zVvWW+O/Y o8937WMy//JfaoeY+35gH7SHLXze/M0j37p/XLYbG2ky1HNIpKIDjsHtjmU9 GIdmrYpRLBXpJNi8vGTTh12ol5aWf0lFse/mehRlBjAvtYyjwuFUZPPJMKhS cRDLBS6+PcFUpJ/JnJ3jO4wNKwez/vGnokGBurVq8gjGXr1GGPKmovfmBDl1 l1FMXeHOUuNDKqr6kzDdvmcc86j4OZXvSkVch/Sju4YnsPdnDQbi7lFRZ7Mb Z9PSFDZYir76OVJR/glPr/cWs9h+Gcna2zf+6pW8YYp/HjtflFZqYkNFJu4B H4tEqZi7BEe2oiUVBW35aO9hpWPZHwITRS5RUftlCEjVXsJ+nlqJ2GtIRXnP mne6lpexfTkOASs6VJTivsirJbOOqYn2u/+nQUWOs5aS3qe3sQfvdG+3YFTE p6XlPRhBVM0SqbYuUqCisPHioqpCsurAWzGjBFkqclbS9j9cw6y693Cq+lNJ KjKT7xI24NurqprKJnf31N97+PM461IJu6qbYMBJs2NUFE+WXosb5FbtnHvo /eEIFXFsXxR06eVX/T+l8PUH "]], LineBox[CompressedData[" 1:eJwVllcgFo7bQO0KhShlb6KIjJ9S72OkjOxSEkWUkVUqimRLEkpERkLKyi7l oZBEhIwyX/ud9kp8/+/q3Jxzf8QdPC2cmBgYGMQYGRj+nzHTw+azFXTk2zAV 8e4V1B5ksxxcKaejRrQ7sXhRQFuPWb2h+S0dmQ8OJbt28Wm/2dyTn5pJR/Xb 6eH0eG5t7vW/8R7P6KhSrMaBm+zaN1cG/SCGjryVKc+KXNi0+xfqLu4MoePW oee3GieYtHVmX50Yu03Hhvu+tadkGbRfUyMUKzzoWGAbWU+j/AVur5cK1Zf/ 13O5d1/zWoHbcx/lam3ouP2rxcPKx4swfKNHusGMjmEJXUeEFebBYHlWolmf jg9VghnYZGahxI9TrE2LjlmkIjuvfhoIrMsId6n8z1/sDdlJIkNwoLZAnxwd bd89SNS2mwYSgy3/oAgdk+OEeTRkJ8Ei5CbfKB8d4xvvGgyoj0M1axzPFDsd H2kteFDvj4JU5NsdVAY6NjkaHjDcHIGH7I0cc0s05P1yhjMsdxgWHg5vXabQ cFf1gVqW6UGw5frLuk6koUxQ8Gfnz/1QH7eLmbGPhtlLTHx1Hb/hAN9BBrY2 GsYHXtjBwNsHiYmG/9gbaOizt9lXPqAHNvY4rXFV01CQYnZMkbMbnFPuLfO9 o6FE6Wh3ZXUX/BB+vrA3l4Yp8+sJPJGdoJ5RNivygoYjX4rct3l0QLpEG00y gYazD9fy/7j+BC9ZlukD92goLVzEFU5og948kQkVXxpuH5or/5XbCrBfc1TD jYaN9RfnVw+0wOtCy2GtSzQUKTZJFGprBh5ljwFtaxoG/FStro78Bv6lkb/1 T9EwhnLNIu1sExDVsnqMdGnIxGTg0az1FUoO9/48rUTDBGoPu+SRBhD4NPfD RpqGHJv6upYW9RBM2N5iL0jDpIyzVt9ufQFLPZ1Gly00DA22LOCdroOPjbZf PP5RcR/749tzKnUgZXCr9vo8FdGk8K90RC0snMr/EDBExUMBUSJCz2rAtr2x MvgXFV0ZG1QGbnyCBouRsojvVLzA4ug3c+kjJFrvLoqrpOI9eroN2ekDbPQd zE8soOLq9901K/7vwdnWKC8li4oefOGJ6SlVoHEpKCs7lorOSrVrzesVkDH6 PONNGBULKEJV60cqYKtz+YuiO1T8GNGXKhpaDr2upGfvr1Ax6Irj3T0HygCo LE9rLlDRM19OY/lhKeR5isZ/saSiforWYPd8CfjfsHrYSqCi+Mb6NbZf74C4 5BHVoUbFY3osQWkm78DQLyq8R4GK8/4P8xtbi0EwsCZohJ+Kfzqs9ypXFsHH CDnfRToFLfe7D221zYfWVg52iXEKJrYz1J+MeguDvPQ0k98UJI7WP+XCN8CQ Ud6UW0/BymkdqrtOHvBMJF3oek/B85m5HIdiX4PE/rtzDEUUbOVNUxwk5oJu lY6QTTIFv+XHike8yAGrDel34Y8omKLMwTrGnAOX9bbpl4ZQUL602XTUMxvC 29s8OT0omLbKU/Le+hU0T9l+qdGh4Nx84qsDF1/CH0U4S9ag4DPPN+vjlEyg 3JCk8h+g4HRZ6+rdgEzYwUja7c1PQZpekl1qXgaInmh9+4KTgp5Z+oq/9DLg YEwxNDNS8NXvTMvnjelgsfeWqySFjHuzNtqJFmngaG+zaTpCxpNCX35/yHwB N7KPPrnbTUbOsrfdXEupkKjMUvOrlownnuuieWEK9BnE8UQ+JWOMUkB1sXUy kGJv5JQ9IKNZvfK+7pYkWPtlfWTkHhnt1E4trx1PAiEHEafDrmSMTLzKn6/7 DC76v62iHCPj1V8lo6SrT8G79tGpvapkFAwcvqy19gSC2XyIx/eRMTPC+mnk oyfwKv4/znReMo4Xcpq+xgSYetNgbz5FwtyX1/0ua8fD6szrhYABEjqnHpci TsYBu8bDqDcdJEw3HQnNehwH+79YlDJ/ImHCfs3WnKnH4PlniK0ijoRF0pJS KZdiIUj8SwoxnISXvrXFMLU9gsdXcg5y3SXhX/eomyTCIyiZd7e56kxCQzaP fW0KMbDEsVYgcISEmdkrwgr7okFd03gPgzIJ+UTsStsqH8BN57TgcRkSOvxd 9/p98gEs1+pYF+8kYaSZQMawdxSs+EYz6JOm0UBNdg/jYAT8lzXgqjA8jeSS 97ulAiPAr13pF3f3NM66sY2oi0XAmnxX3p+6aRTp9Tq96hIOf4eELL2Tp9E9 4HtX9s4w0Nru+elM7DTy7r+nv1IbCncP18lqhU3jq0v3JIe8QmH9idM6m/c0 +uObdp1fIbBhUJidenIaPWJCp+yKgoGhjLDydXkKeYQo+nmZQQAjcQ4F1Clk Tdd3P+QUBEE7xlriR6dQQbh6R8e+IGB0icy80DaFoZvVZlfd7wGTyE/D+Zwp FNHfO9deHgA6RpLlvalTOPC5UnDMOACCb/uK1sRPoZAaYbVh/C4wd+5diAyc wsGGE+o/hO4CS6TDC5EzU0jW2FY/neYPeuVlW1iMp7DVtTvHRdcfQolsPtPa U2hg2u7uOe0HrEff6pcdmMJvTGOhFE0/YJubpxuwTuFcjKpqD/kWbLMN0/Et m8QCq5XkszG+MGecoRecN4kiXqPDf8EXfh+t1o9Nm0TZbL/e6cUbkC86a5gX OYmfdu1xfeB4A8xGbS0HbCeRWJIaK3vqOmh23TpNMp9EH/f6yKvs10GiId56 WX8Sez0Vk+uafGAhp+k8j/Ik8vrnPsk+6QNJrqqXj7NOIqPpt/B0K2+4f97U 2WJtAi+ecG5kF/AGV2PXq/b0CZQU/Pfq8rAXaClmuPv1TeDyV7bmn55eMDTL 4VtQMIESgZTJ/SqeIOM3GrbrzATyG+8RCJZ0By7XjQgJownkvqCSpNPkBis2 ex8owQSWh7LMOni4QbOW6SMD+Qn064vJy6txhWsM1YkBG+NI+aYm98rDBcoi 4nPHc8bRXvOIof2WK/DidkHeXMo4vkqrJTuiM4S7NL3dfDyOg4pGn71uO8NZ o42ivXfGcam9bukx1QnWd7hWnTIdxx4m32Xv0cugm6j9rXx5DFsY9ayV1xxA cfuTkUXKGGo1frXrqHMAgdCJVTXiGLYpLVepPXCAGe9o+YqWMWzNYmfUEHaA tFO/oisyxzC7Scax3egSrLC4mFQajaFkdybDcJw9jN2pdl6GMdzCdcMc1e2h bW77PQ31MdR8lfCopd8OcoZLiirFxpDpXd51u/12YPlxnbtqcRRbD3mwjvXa QuH1x51V6aN4g3mrYY+jDTwnEckrT0ZRPc3477O9NhB2SY1F88EoHnS8Nne8 /RzYmv5WfX9jFM3OVY2fh3OwTUEq8b3BKD6OwUc7Fc7CZWLl2Q/zRCx2ol6j yZ4Bs3Ps3mtTRDzGdJ6LmXwajrTbRh0eJKL9iWyursLTsLOG8cOHJiIyKV94 nfHfacBkI8HqF0RkdHL6l2plBQLmQwPVJ4ho6nRtblu+BagVZXwvO0pEcbXW BIEACzDb7vC+4BARF+a2ZRWaWEDYt7En6aJE1H0/620zbw4z2iSjkOUR3KYi upKgYw6NKovvDXNHEFzs6nxppjDyuCJX98UImjd2KMWlm8I67dZTrYQR1JHa Nx5ibgrKb9e8FO+NoPqxwsKxShNIlWSQ22k9ggyZ7bHGj06BDx9HYh/bCL69 mnYk2d4IYnxaQjrWh1Hvbuo4o7ARvG6P8f4+N4wNU9v+Cv4xhIGH3Kc+DQ5j 7ZMoDttzhnCSdTdLZsUwrjy3+NFxwQBElsR8rjoPo5O5fMV06Al4UnQtlRY9 hBL9xjZ3CHogOH8/V+nmEA6sfrT159CDl+qJJV4Xh9Bs0VN/W68uFH2qaZpT HcLh675/2nx0ofk71+LSwCC+tE8pbS/Ugc3Jd6c2lQYxmBhmpUnQhnCFxrMg MIg7FT1MfXi1gdPzt+N9lkEcDBRfE58CEFhi8mfuG8AK0eRvQ/EAqixWOVuC B9Bu/GCU3R8CuIotbXB19WPO4UXpFY+jMOvIzm5e049mH63XmKWPwu1ckV3x r/vx5dbIx11/tCBM8YQCX0A/dmed//vBSAsytJKs98j0owX5t6a96hHoPnu4 WOz2H1TJc+M+KKsJ2nGBl5SFfuM+6UtDqWFqIJPlxT+25Tfqxr05PGGpBpzl Dq2J830Y7FXCnSuhBt29+prrzX3oQ/p44kGdKriLcfF89etDo9Goy+UsqpBU lF5r29OL78RKc1+kq0BgXdxNri+9KCdjtdJxQwUcO0P2fy7sRXena1XXDFVA cflKkmx4L84GilxvW1KG+mMHveZUezFd4Pa0rJUyzLTWikbG9+CRA6XlZ8QO QvdQya/DgT1YEsu13L+kBNWzr6KpLj3oyUDXfV+gBOG7opYttHvw3CLVxFtY CYQumLcJz3TjtchZn2IWRThJGQksPdWNXdxVh1hmFSCDnXlwcOsv7P+vnpin LgcP5C7XLi904TzzJ+NoBjnw1W94yT3ShVUl48ITzbJgGBxxRed9Fy5qMLow X5KF+VWO2WyXLvSY6PL8FC8D+tN8LNeaO3GHlfEeAoc0HNxycyKsohMnL1je VO2XAkHpnqa0l50oz+FjGV8gBTMXk2Pa/TsxdHSsMMRcCp73CvOrKnSixB1B b4k0SaB+lZH/G92BzjoJyqEGEtA7HsHJd7sDuZNlK+PFJOAz8zRt/+UObPzg a/93WRwSCW9L7bQ6UL4joa0nVxygUunoZ8pPVJCyys7hEIcnOf+ZRZ36ifw/ Ckn9DaJwOMzwJj9XO6ZIzwypJwoC2cqfe3OuDQtTGmZKLQTBId1ete1rG86R txa1cQmCuar8XU/vNlRJZuYfiBYARTvkKK7/gTKMHQXS0Xth8t20vLJbK5Kf D8cqZPOD3foPE0Zoxd2dboQxV37o1i/z+cnXirMx4mQpZX6o/xP4wbumBb+L 3mPXxN2QwcpnWMLTgm0v99IiR3aBzbljLoeqmlH0+IxoxVE++JklGcMc04zi biBjw8EHJ2lb33VeasbEiiKqTx8vaIR0rlznaMayqqbzGzd5ga/gamSZ3Tf8 b3TgqV3lTmhlSMhVY23CM6W2t22NeQBeT45rWDQg48WkJJn728E3NtKevK8B jxTOFDQe3g5vbu7rS2NswOPbJAP/LXAC73G3FtZ39Zj5TE9M3o0TJkZoJZ1c 9YgzW1vP23HAQ8Gle56tn3F+s9Fru/02qGN6tiqR/Rk3NV07Q8S3wdK0xvXu u59RPOdsRMDYVrCv8nM+uv8zBr8847LkthVUTv8z5oiuw6Dmf+ZDQVug9xGL QO7JWqy2f9mcXscK229mJ9iI1eIfPyvV5mhWCPnwUEBoBjEr5onclTOscMaa m5Fkgqgr+eLnAoUF1h/z/wjjrEFZD8cIPVEWOMkic/VTRDXm/74TP/mMCYZJ Oqn7AyswMiNzxT1nk+Biakw/JFWBZuzv/Z0NNwlzpad1jjSXY7xRZp4mfYPA EnB1ymB3OVpEKa1cPrJBkON6pHqlsBRtdQv7ng2sE7wO9bVkDhbja12Ot59P rBFWnxFF80KLkfNWUoLHyioheJ3sUyxfjPUq1kzdeasEueh/yoHUQoSY5Mj2 HasEr6KTzVXC+ZjEeadOb2SZsLk8uHYgMAereGPyq3MWCdx1sxlazdm4MV4p c85hkSDxgOWE0e5slLo3ei5JZJGgLySfcLUwC1OpJpuLSQv/O2hfhazBDDRh KUxlfTpP0NrJX3UwMBEP2yvraeXNEi6+0mIx2f0Um93c6IYes4RQdQczt8IE FOPZVBs/NEtosSmYyh58jKBbGFRZO0Oo0I9QUQ8Mx/qKLtOLdXTChmtHs1dh CLaMaF2ZtaQT9GOFHd8OBmGqbzxD+CSN8Kboiqx24E3kJoSaFPPQCIdX/llX DHrh8JudttqvqYT4+3I81oHO+LHr9IsWApXgKP1mLDjwDC7kV7WY9lIIhk5T P2unfWtUvcTeNHlTCP8HDE9sqA== "]]}, Annotation[#, "Charting`Private`Tag$62485#2"]& ], {}}, {{}, {}, {}, {}}}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-4, 0}, {-598238.7449152181, 456220.27960202214`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.8170546175618153`*^9, 3.817054680219702*^9, {3.8170547212842093`*^9, 3.8170547840948095`*^9}, {3.8170548715078516`*^9, 3.817054879399584*^9}}, CellLabel->"Out[29]=",ExpressionUUID->"e482a539-be85-4dbb-ac21-b5fbabcd87ed"] }, Open ]], Cell["\<\ 3.\ \>", "Text", CellChangeTimes->{{3.817054891493565*^9, 3.817054898278615*^9}},ExpressionUUID->"2a2dfb64-bf18-416a-ba21-\ f99ca06bb384"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"eku", "=", RowBox[{ RowBox[{ RowBox[{"t", "*", RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"y", "[", "t", "]"}], "^", "2"}], "+", RowBox[{"y", "[", "t", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "+", RowBox[{"t", "*", RowBox[{"Exp", "[", "t", "]"}]}]}]}]}]], "Input", CellChangeTimes->{{3.817055120525095*^9, 3.817055120831319*^9}, { 3.817055311661993*^9, 3.8170553793240676`*^9}, {3.81705549508982*^9, 3.8170554985143147`*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"1a8e182e-0874-4f59-8229-92429e9368ad"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"y", "[", "t", "]"}], "+", SuperscriptBox[ RowBox[{"y", "[", "t", "]"}], "2"], "+", RowBox[{"t", " ", RowBox[{ SuperscriptBox["y", "\[Prime]", MultilineFunction->None], "[", "t", "]"}]}]}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "t"}], "+", RowBox[{"Cos", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.817055503385908*^9}, CellLabel->"Out[3]=",ExpressionUUID->"a194d990-6380-4937-9d41-73769a37b193"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.817055487792617*^9, 3.8170555099685116`*^9}},ExpressionUUID->"38bb437a-1a72-4c8b-8180-\ eca7c266cc91"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"sol", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"eku", ",", RowBox[{ RowBox[{"y", "[", "1", "]"}], "\[Equal]", "1"}]}], "}"}], ",", RowBox[{"y", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.4", ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8170554023514824`*^9, 3.817055477951268*^9}, { 3.8170556086990776`*^9, 3.8170556138790245`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"a2423fe4-6ab4-46f0-9abb-e2c96e98ac1f"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"y", "[", "t", "]"}], "\[Rule]", RowBox[{ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAh+q3tpmZ2T+hM45XecLTv5TqTOzw RNs/RO9MZ/WKyb/lNbwzOhTdP/ZtsIDy8ba/sLir+c/E3j8gugqCkS11P8e8 nLd0NuA/lMp2ap1Qtz/XwlB7ehzhP2zKFmE6pMY/peREfibz4T+Cx4g97QnQ PxQsJorL2+I/iOk/xey/1D+NktZtMsDjP29ed9ymAtk/wxTHkD+V5D8z+lPk GbLcP5q8pLxFfOU/jUkhA/804D8ugMIn8lPmPyt7n8D40+E/zGKvamAn5z9D I0Ztv1LjPwtribbHDOg/0O2lRaja5D8Ij6NB1eLoP3b6h05WNeY/ptiq1dvK 6T9prGw0ZZvnP05BgUGkruo/Pu1H4ajr6D+zxZfsEoPrP2t4m43LGeo/uW+b oHpp7D+wJwc4EFfrP3w135OIQO0/LbbYzR137D/hIBCQjynuPxflFA8qqO0/ TysQZFgO7z+qGg9bDc7uP3tRUHfH4+8/xskTunXc7z+kzr7Jl2XwP7/vhptg f/A/aYJ1957R8D/HD5yzDAbxP7PFExGHO/E/FdaJyraJ8T/Omyiva67xP3Of V6yUGPI/x3/dbKMZ8j9wY5RRTp7yP5H2CK/XjfI/F5+JCxAw8z/g/Bvd7P/y P3cWWjBZwPM/DRHPKlVq8z9EnBU8SEj0Pwu4+Py53fM/k0NXCnjd9D/obMLu cUn0PyRSLkimavU/SbFzzAqz9D/PHsEBEff1P3uImy6gJfU/RhPY3+uR9j+M bWOwiJD1P2lGyyPxJPc/buWhtm0E9j8ICemDTcf3Py5rgNylcPY/MiauKOZh +D9zgEbuvtr2PxbKJqJu/Pg/iSiDhNRN9z+Smfcyjaf5P33eXzo9ufc/P2Wc FrNK+j9CJ7N0oi34P17x8+Fq//o/jP/tmuif+D9I0xvI+LT7P7TlyOCBCvk/ 0MwfOCli/D+tXhqrF375PwBiGRpGIv0/heULlQDq+T9nZy3X0dn9P+H75GrK U/o/hnsnuM2R/j8OpTTFkMb6P0UUnyATXv8/GlwkP6ox+z+LAadklhAAQPel ij3Apfs/XqPpYdV8AEBYf9gntxf8P1wn1WW06QBAmGbGMQGC/D/KWV5Sn1EB QKngKsBH9fw/MPi8kfrEAUCYaC9u4WD9P9mkqI0yMwJAWIOqoHfV/T/C4mEm c60CQJ0tDb/uR/4/x6iEgGUoA0DA5Q/9uLL+P8spNJbBnQNAtDCJv38m/z9y BHxE8R8EQIeJoqGZkv8/qWFzPlGcBEDFa7j4////P1Oy2E0BHQVAWu7zKQ== "]]}, Annotation[#, "Charting`Private`Tag$5228#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0.4, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0.4, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0.4, 2.}, {-0.30874475050296196`, 2.6391626436000393`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.4`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAh+q3tpmZ2T+hM45XecLTv5TqTOzw RNs/RO9MZ/WKyb/lNbwzOhTdP/ZtsIDy8ba/sLir+c/E3j8gugqCkS11P8e8 nLd0NuA/lMp2ap1Qtz/XwlB7ehzhP2zKFmE6pMY/peREfibz4T+Cx4g97QnQ PxQsJorL2+I/iOk/xey/1D+NktZtMsDjP29ed9ymAtk/wxTHkD+V5D8z+lPk GbLcP5q8pLxFfOU/jUkhA/804D8ugMIn8lPmPyt7n8D40+E/zGKvamAn5z9D I0Ztv1LjPwtribbHDOg/0O2lRaja5D8Ij6NB1eLoP3b6h05WNeY/ptiq1dvK 6T9prGw0ZZvnP05BgUGkruo/Pu1H4ajr6D+zxZfsEoPrP2t4m43LGeo/uW+b oHpp7D+wJwc4EFfrP3w135OIQO0/LbbYzR137D/hIBCQjynuPxflFA8qqO0/ TysQZFgO7z+qGg9bDc7uP3tRUHfH4+8/xskTunXc7z+kzr7Jl2XwP7/vhptg f/A/aYJ1957R8D/HD5yzDAbxP7PFExGHO/E/FdaJyraJ8T/Omyiva67xP3Of V6yUGPI/x3/dbKMZ8j9wY5RRTp7yP5H2CK/XjfI/F5+JCxAw8z/g/Bvd7P/y P3cWWjBZwPM/DRHPKlVq8z9EnBU8SEj0Pwu4+Py53fM/k0NXCnjd9D/obMLu cUn0PyRSLkimavU/SbFzzAqz9D/PHsEBEff1P3uImy6gJfU/RhPY3+uR9j+M bWOwiJD1P2lGyyPxJPc/buWhtm0E9j8ICemDTcf3Py5rgNylcPY/MiauKOZh +D9zgEbuvtr2PxbKJqJu/Pg/iSiDhNRN9z+Smfcyjaf5P33eXzo9ufc/P2Wc FrNK+j9CJ7N0oi34P17x8+Fq//o/jP/tmuif+D9I0xvI+LT7P7TlyOCBCvk/ 0MwfOCli/D+tXhqrF375PwBiGRpGIv0/heULlQDq+T9nZy3X0dn9P+H75GrK U/o/hnsnuM2R/j8OpTTFkMb6P0UUnyATXv8/GlwkP6ox+z+LAadklhAAQPel ij3Apfs/XqPpYdV8AEBYf9gntxf8P1wn1WW06QBAmGbGMQGC/D/KWV5Sn1EB QKngKsBH9fw/MPi8kfrEAUCYaC9u4WD9P9mkqI0yMwJAWIOqoHfV/T/C4mEm c60CQJ0tDb/uR/4/x6iEgGUoA0DA5Q/9uLL+P8spNJbBnQNAtDCJv38m/z9y BHxE8R8EQIeJoqGZkv8/qWFzPlGcBEDFa7j4////P1Oy2E0BHQVAWu7zKQ== "]]}, Annotation[#, "Charting`Private`Tag$5228#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0.4, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0.4, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0.4, 2.}, {-0.30874475050296196`, 2.6391626436000393`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.4`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{0.4, 2.}}, { 5, 7, 1, {77}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" 1:eJwtkHss1AEAx8+103mbaGwlR3Eeu92tLlexL8u0m64V2W601hprduPksdCp 8weNSoq8xa4HSX+UJmRR6pCy5pS8zrkO53F+vxPnOq+u1mf77PP/h3FRHBlP pVAoFmYFZisr/jKCAl2l62vvUWSFVpcNNY9CsZP3Rn5tDAEDCmUrfxx5JWLq M+cJTMbYeNdMToDHqOffaVRCrKQzvB9OQiHgSpQCFZICZmZ9P6lgbVMWlR4+ hcdzJzq73k8hpNfoZws1HogEgxajapjsZZlraT8hfGnw0Dlo8Co6olfdqAHT 16lHlDSN6o0fH1c4Myj2IA7aB86iIIwm8wnSYiH4HTt7U4uTgdmdg2/n0MQ+ coopnYed3+p4dugCkrxeiBTURQzsSTQxPyxi0Z106uPoYM1I9U+o1YHpZThu ZbeE8AOZ555mLSHOZyONr11CSkNwjts+Ajm+12/PRRMoauyqaLtFoNaf+iS/ m0Bz1n1Z4DABeR+zdnqewIhrR1XxFoFEW+UX/jYByj9IlH4vms81N+A545uN BYnu/hZnjTWJmPmIsx3OJPT0qeISdxJ2LPGi5BgJZtRmWLyQRFjGzRpBOokL NW4G7j0SZbPcesvPJAY4kcJhmh6WkiSrBugRLC9oz8jUI82xXsRvNvdof4V9 wDJS44gexaNlpBTuMpTv/YXLrYH7z5eaq46N9HJYQbKtVKq9sQKajSMrhbWK Kqu6sfWhVbDp7PzcqwbILbsOO3iuIZZ2WlPeuwZyh+qup9iIPGoymlx+Ywv0 oEKqCVey63jJhAlEO48bOb6OS8avnEN9G1BxE1i7WzYhTLXwN8q20NQmdZGc 2f7/hRLyB6VKLxc= "], { Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144, 146, 148, 150, 152, 154}, CompressedData[" 1:eJwd0H881HcAx/FzP/yMYY8HIyFddIzHrh7bMPX+kISiObvcWlRIP8ivmVK3 FSKKZnUVmdSu9MuD6fxMdmWPIqnYKFH5FWrMHfe9w+HMY+/H4/XH89/38vA4 3m4tGo12cTF1lagzpfFvKVNF8Ua2mJA88yeJG6LapRLnIWGJ3JjsG004mefy TFqX2P2Km2dMPqzRtGTWNUlzEm6tjGAaE5d8FqU68kDK8Np+c1puRGoieqLD RqulTmsNbT17DEmHi6391/klUt/6dY0Zj5eQVotS/tVIV6nHS+ziNxiQMpV7 rfWKW/i5vjif+5M+KSm3KI0S10HwY+1PGn89cu+Re19xeyPWxMiCZtm6RH9b Le/1qWYURCe/m1miQ8glTmgv4xn2bzDelsjQJtE7fEYKLrXDOu43oUiXRVh8 g016NR0oK3HM933HIJHO9XfGr77E5M7j33u/oJPrNR33CqO7IX7DMXvyRot4 xdgEehq9wb6ZIPOxGRq5o6/HibboQ+D5VWzPsQVk0sK7Nov6MSDim/OsNZjM fUA2xA7CLeegUZjOHMINr5u/XTUEtvWYYq23GuWpYsF3O4axVd/mRID9DEI2 3Tf6KnsEv9rmxVo6TyNe0OnMvvEeoVWeQlf+FN77rGCfb/gAocrNI7tQBc0f 3cljLf9gyEa7yG1eCVse65vw9lEEiqOzGg4qETcayxNFjGGLRnhozRdK5ERl qK2oMaiKLJMzZim0CUSGjun/YrqyMiOkiQL0ZoeHjcehrSjjBxdQ6GUOlgmL xnG5L6XPIYHCRz1pq3cPjkM3gS902kFhgd4QbcqRIafZ0Ck7kAJt5cJYVqwM DoVse1dQaAl0WPpUIsO9TrbxZ1wKy6vpLpdbZXh0JlOV9CkF5eCBrANDMjyf F7YPOFBgNpze/rlGBlZMv1fKCgoHS53KLRdkcCyr5gQtmvb/5PhkNcOas+in p85k31j0MFMndNyOgr+fu0mQlhxv4yzrJIsWPK89IDGUQxnhRk+xprD/qa/H x5ZyWPhes4uypBb/CToXby8Hc+6i9LAZBfqRw08q/OW43e+f+sqAgt6cAa0/ Vo4QA7PJY3QKs7OiJNpZObZMuDbuVStw/8IvkaY1cixP5vRkKRSwK2wLM1uQ Q1Jf3sr7oEBx+TrJvM8ElsRecRQPKhDm0s7rOj0Bt16JwGtAgc7rpglVLybg erfbf+6dAg9v6p8UW0+CK7bfdXlUAXWE6HxI1SRY/Xvjt7MoGKQqm7UDFDhd XHGUcqbwp4drrNWwAlPOPtfsIinspNY3qY9RkIUtDLSUUKgUC73nlilREUwF KykKI34BR5MalNA8dFE1ByjBrs69ShWp8Gp3heeeLiXq2BuTEo9PQbizt+TL JBWWzfUIChKmwX0wntZuM4UL7hEbdaJmYKGJN2V2T+Hb4hOPAsPVCB6fXt96 ZRpHu1wvTUfNIu22Sdfm5BlY/bUXGUlz8EtKv9u0VY3KfUFcDlODPUu12g7d nIVu3MULjBsL0Mv0M8g1mYeNx7Ei8e80ksYcuFaXq0G1oENyMl+LeKfz+D8Y 0UipdlsEyaGTs9x6H6teGqmln3u9MYdBiPcJEl+rRTJj7puaBjFJQ6jb4/eh dJKO1K1ay1gkfRfX75kOg/wHPgZX+w== "]}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False], "[", "t", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.817055479090043*^9, 3.817055515859716*^9, 3.8170556148711123`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"efc10440-8b9e-4220-8d0e-37e6090a7700"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"yh", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.817055529170826*^9, 3.8170555591656427`*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"7169806d-c18d-47c6-83d9-6db97ea5571b"], Cell[BoxData[ RowBox[{ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAh+q3tpmZ2T+hM45XecLTv5TqTOzw RNs/RO9MZ/WKyb/lNbwzOhTdP/ZtsIDy8ba/sLir+c/E3j8gugqCkS11P8e8 nLd0NuA/lMp2ap1Qtz/XwlB7ehzhP2zKFmE6pMY/peREfibz4T+Cx4g97QnQ PxQsJorL2+I/iOk/xey/1D+NktZtMsDjP29ed9ymAtk/wxTHkD+V5D8z+lPk GbLcP5q8pLxFfOU/jUkhA/804D8ugMIn8lPmPyt7n8D40+E/zGKvamAn5z9D I0Ztv1LjPwtribbHDOg/0O2lRaja5D8Ij6NB1eLoP3b6h05WNeY/ptiq1dvK 6T9prGw0ZZvnP05BgUGkruo/Pu1H4ajr6D+zxZfsEoPrP2t4m43LGeo/uW+b oHpp7D+wJwc4EFfrP3w135OIQO0/LbbYzR137D/hIBCQjynuPxflFA8qqO0/ TysQZFgO7z+qGg9bDc7uP3tRUHfH4+8/xskTunXc7z+kzr7Jl2XwP7/vhptg f/A/aYJ1957R8D/HD5yzDAbxP7PFExGHO/E/FdaJyraJ8T/Omyiva67xP3Of V6yUGPI/x3/dbKMZ8j9wY5RRTp7yP5H2CK/XjfI/F5+JCxAw8z/g/Bvd7P/y P3cWWjBZwPM/DRHPKlVq8z9EnBU8SEj0Pwu4+Py53fM/k0NXCnjd9D/obMLu cUn0PyRSLkimavU/SbFzzAqz9D/PHsEBEff1P3uImy6gJfU/RhPY3+uR9j+M bWOwiJD1P2lGyyPxJPc/buWhtm0E9j8ICemDTcf3Py5rgNylcPY/MiauKOZh +D9zgEbuvtr2PxbKJqJu/Pg/iSiDhNRN9z+Smfcyjaf5P33eXzo9ufc/P2Wc FrNK+j9CJ7N0oi34P17x8+Fq//o/jP/tmuif+D9I0xvI+LT7P7TlyOCBCvk/ 0MwfOCli/D+tXhqrF375PwBiGRpGIv0/heULlQDq+T9nZy3X0dn9P+H75GrK U/o/hnsnuM2R/j8OpTTFkMb6P0UUnyATXv8/GlwkP6ox+z+LAadklhAAQPel ij3Apfs/XqPpYdV8AEBYf9gntxf8P1wn1WW06QBAmGbGMQGC/D/KWV5Sn1EB QKngKsBH9fw/MPi8kfrEAUCYaC9u4WD9P9mkqI0yMwJAWIOqoHfV/T/C4mEm c60CQJ0tDb/uR/4/x6iEgGUoA0DA5Q/9uLL+P8spNJbBnQNAtDCJv38m/z9y BHxE8R8EQIeJoqGZkv8/qWFzPlGcBEDFa7j4////P1Oy2E0BHQVAWu7zKQ== "]]}, Annotation[#, "Charting`Private`Tag$5477#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0.4, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0.4, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0.4, 2.}, {-0.30874475050296196`, 2.6391626436000393`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.4`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAh+q3tpmZ2T+hM45XecLTv5TqTOzw RNs/RO9MZ/WKyb/lNbwzOhTdP/ZtsIDy8ba/sLir+c/E3j8gugqCkS11P8e8 nLd0NuA/lMp2ap1Qtz/XwlB7ehzhP2zKFmE6pMY/peREfibz4T+Cx4g97QnQ PxQsJorL2+I/iOk/xey/1D+NktZtMsDjP29ed9ymAtk/wxTHkD+V5D8z+lPk GbLcP5q8pLxFfOU/jUkhA/804D8ugMIn8lPmPyt7n8D40+E/zGKvamAn5z9D I0Ztv1LjPwtribbHDOg/0O2lRaja5D8Ij6NB1eLoP3b6h05WNeY/ptiq1dvK 6T9prGw0ZZvnP05BgUGkruo/Pu1H4ajr6D+zxZfsEoPrP2t4m43LGeo/uW+b oHpp7D+wJwc4EFfrP3w135OIQO0/LbbYzR137D/hIBCQjynuPxflFA8qqO0/ TysQZFgO7z+qGg9bDc7uP3tRUHfH4+8/xskTunXc7z+kzr7Jl2XwP7/vhptg f/A/aYJ1957R8D/HD5yzDAbxP7PFExGHO/E/FdaJyraJ8T/Omyiva67xP3Of V6yUGPI/x3/dbKMZ8j9wY5RRTp7yP5H2CK/XjfI/F5+JCxAw8z/g/Bvd7P/y P3cWWjBZwPM/DRHPKlVq8z9EnBU8SEj0Pwu4+Py53fM/k0NXCnjd9D/obMLu cUn0PyRSLkimavU/SbFzzAqz9D/PHsEBEff1P3uImy6gJfU/RhPY3+uR9j+M bWOwiJD1P2lGyyPxJPc/buWhtm0E9j8ICemDTcf3Py5rgNylcPY/MiauKOZh +D9zgEbuvtr2PxbKJqJu/Pg/iSiDhNRN9z+Smfcyjaf5P33eXzo9ufc/P2Wc FrNK+j9CJ7N0oi34P17x8+Fq//o/jP/tmuif+D9I0xvI+LT7P7TlyOCBCvk/ 0MwfOCli/D+tXhqrF375PwBiGRpGIv0/heULlQDq+T9nZy3X0dn9P+H75GrK U/o/hnsnuM2R/j8OpTTFkMb6P0UUnyATXv8/GlwkP6ox+z+LAadklhAAQPel ij3Apfs/XqPpYdV8AEBYf9gntxf8P1wn1WW06QBAmGbGMQGC/D/KWV5Sn1EB QKngKsBH9fw/MPi8kfrEAUCYaC9u4WD9P9mkqI0yMwJAWIOqoHfV/T/C4mEm c60CQJ0tDb/uR/4/x6iEgGUoA0DA5Q/9uLL+P8spNJbBnQNAtDCJv38m/z9y BHxE8R8EQIeJoqGZkv8/qWFzPlGcBEDFa7j4////P1Oy2E0BHQVAWu7zKQ== "]]}, Annotation[#, "Charting`Private`Tag$5477#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0.4, 0}, FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0.4, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0.4, 2.}, {-0.30874475050296196`, 2.6391626436000393`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.4`", ",", "2.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{0.4, 2.}}, { 5, 7, 1, {77}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, CompressedData[" 1:eJwtkHss1AEAx8+103mbaGwlR3Eeu92tLlexL8u0m64V2W601hprduPksdCp 8weNSoq8xa4HSX+UJmRR6pCy5pS8zrkO53F+vxPnOq+u1mf77PP/h3FRHBlP pVAoFmYFZisr/jKCAl2l62vvUWSFVpcNNY9CsZP3Rn5tDAEDCmUrfxx5JWLq M+cJTMbYeNdMToDHqOffaVRCrKQzvB9OQiHgSpQCFZICZmZ9P6lgbVMWlR4+ hcdzJzq73k8hpNfoZws1HogEgxajapjsZZlraT8hfGnw0Dlo8Co6olfdqAHT 16lHlDSN6o0fH1c4Myj2IA7aB86iIIwm8wnSYiH4HTt7U4uTgdmdg2/n0MQ+ coopnYed3+p4dugCkrxeiBTURQzsSTQxPyxi0Z106uPoYM1I9U+o1YHpZThu ZbeE8AOZ555mLSHOZyONr11CSkNwjts+Ajm+12/PRRMoauyqaLtFoNaf+iS/ m0Bz1n1Z4DABeR+zdnqewIhrR1XxFoFEW+UX/jYByj9IlH4vms81N+A545uN BYnu/hZnjTWJmPmIsx3OJPT0qeISdxJ2LPGi5BgJZtRmWLyQRFjGzRpBOokL NW4G7j0SZbPcesvPJAY4kcJhmh6WkiSrBugRLC9oz8jUI82xXsRvNvdof4V9 wDJS44gexaNlpBTuMpTv/YXLrYH7z5eaq46N9HJYQbKtVKq9sQKajSMrhbWK Kqu6sfWhVbDp7PzcqwbILbsOO3iuIZZ2WlPeuwZyh+qup9iIPGoymlx+Ywv0 oEKqCVey63jJhAlEO48bOb6OS8avnEN9G1BxE1i7WzYhTLXwN8q20NQmdZGc 2f7/hRLyB6VKLxc= "], {Developer`PackedArrayForm, {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144, 146, 148, 150, 152, 154}, CompressedData[" 1:eJwd0H881HcAx/FzP/yMYY8HIyFddIzHrh7bMPX+kISiObvcWlRIP8ivmVK3 FSKKZnUVmdSu9MuD6fxMdmWPIqnYKFH5FWrMHfe9w+HMY+/H4/XH89/38vA4 3m4tGo12cTF1lagzpfFvKVNF8Ua2mJA88yeJG6LapRLnIWGJ3JjsG004mefy TFqX2P2Km2dMPqzRtGTWNUlzEm6tjGAaE5d8FqU68kDK8Np+c1puRGoieqLD RqulTmsNbT17DEmHi6391/klUt/6dY0Zj5eQVotS/tVIV6nHS+ziNxiQMpV7 rfWKW/i5vjif+5M+KSm3KI0S10HwY+1PGn89cu+Re19xeyPWxMiCZtm6RH9b Le/1qWYURCe/m1miQ8glTmgv4xn2bzDelsjQJtE7fEYKLrXDOu43oUiXRVh8 g016NR0oK3HM933HIJHO9XfGr77E5M7j33u/oJPrNR33CqO7IX7DMXvyRot4 xdgEehq9wb6ZIPOxGRq5o6/HibboQ+D5VWzPsQVk0sK7Nov6MSDim/OsNZjM fUA2xA7CLeegUZjOHMINr5u/XTUEtvWYYq23GuWpYsF3O4axVd/mRID9DEI2 3Tf6KnsEv9rmxVo6TyNe0OnMvvEeoVWeQlf+FN77rGCfb/gAocrNI7tQBc0f 3cljLf9gyEa7yG1eCVse65vw9lEEiqOzGg4qETcayxNFjGGLRnhozRdK5ERl qK2oMaiKLJMzZim0CUSGjun/YrqyMiOkiQL0ZoeHjcehrSjjBxdQ6GUOlgmL xnG5L6XPIYHCRz1pq3cPjkM3gS902kFhgd4QbcqRIafZ0Ck7kAJt5cJYVqwM DoVse1dQaAl0WPpUIsO9TrbxZ1wKy6vpLpdbZXh0JlOV9CkF5eCBrANDMjyf F7YPOFBgNpze/rlGBlZMv1fKCgoHS53KLRdkcCyr5gQtmvb/5PhkNcOas+in p85k31j0MFMndNyOgr+fu0mQlhxv4yzrJIsWPK89IDGUQxnhRk+xprD/qa/H x5ZyWPhes4uypBb/CToXby8Hc+6i9LAZBfqRw08q/OW43e+f+sqAgt6cAa0/ Vo4QA7PJY3QKs7OiJNpZObZMuDbuVStw/8IvkaY1cixP5vRkKRSwK2wLM1uQ Q1Jf3sr7oEBx+TrJvM8ElsRecRQPKhDm0s7rOj0Bt16JwGtAgc7rpglVLybg erfbf+6dAg9v6p8UW0+CK7bfdXlUAXWE6HxI1SRY/Xvjt7MoGKQqm7UDFDhd XHGUcqbwp4drrNWwAlPOPtfsIinspNY3qY9RkIUtDLSUUKgUC73nlilREUwF KykKI34BR5MalNA8dFE1ByjBrs69ShWp8Gp3heeeLiXq2BuTEo9PQbizt+TL JBWWzfUIChKmwX0wntZuM4UL7hEbdaJmYKGJN2V2T+Hb4hOPAsPVCB6fXt96 ZRpHu1wvTUfNIu22Sdfm5BlY/bUXGUlz8EtKv9u0VY3KfUFcDlODPUu12g7d nIVu3MULjBsL0Mv0M8g1mYeNx7Ei8e80ksYcuFaXq0G1oENyMl+LeKfz+D8Y 0UipdlsEyaGTs9x6H6teGqmln3u9MYdBiPcJEl+rRTJj7puaBjFJQ6jb4/eh dJKO1K1ay1gkfRfX75kOg/wHPgZX+w== "]}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False], "[", "t", "]"}]], "Output", CellChangeTimes->{3.81705555989047*^9, 3.817055618232688*^9}, CellLabel->"Out[7]=",ExpressionUUID->"322a2282-e57e-45a4-8d50-82ca3e422012"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.8170557008332157`*^9, 3.81705570264844*^9}},ExpressionUUID->"59e1830c-f44a-42aa-bdb2-\ 9cb7008a33d4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"t_", ",", "y_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"t", "*", RowBox[{"y", "''"}]}], "+", RowBox[{"y", "^", "2"}], "+", "y"}], "\[Equal]", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], "+", RowBox[{"t", "*", RowBox[{"Exp", "[", "t", "]"}]}]}]}]}]], "Input", CellChangeTimes->{{3.817055697976903*^9, 3.8170557343007956`*^9}, { 3.817055828529666*^9, 3.81705583150381*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"561da9f5-2c0a-46bc-9e4b-ce8a7bab8986"], Cell[BoxData[ RowBox[{ RowBox[{"y", "+", SuperscriptBox["y", "2"], "+", RowBox[{"t", " ", SuperscriptBox["y", "\[Prime]\[Prime]", MultilineFunction->None]}]}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "t"}], "+", RowBox[{"Cos", "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{ 3.817055737836948*^9, {3.817055805377613*^9, 3.8170558325505657`*^9}}, CellLabel->"Out[16]=",ExpressionUUID->"a021763b-ed8f-4a9c-962f-7eb91f8098c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a", "=", RowBox[{"StreamPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"f", "[", RowBox[{"t", ",", "y"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.4", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.817055626706073*^9, 3.8170556873606205`*^9}, { 3.8170557448182898`*^9, 3.817055767140005*^9}, {3.817055799389763*^9, 3.817055799672102*^9}, {3.8170558543593435`*^9, 3.8170558575571527`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"86e8b7c7-b90b-4734-87e0-e761ff2192ea"], Cell[BoxData[ GraphicsBox[{}, AspectRatio->1, DisplayFunction->Identity, Frame->True, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "TransparentPolygonMesh" -> True}, PlotRange->{{0.4, 2.}, {-1., 2.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8170556753734384`*^9, 3.81705568816628*^9}, { 3.8170557537263784`*^9, 3.8170557677757983`*^9}, {3.817055800750216*^9, 3.817055858699731*^9}}, CellLabel->"Out[18]=",ExpressionUUID->"9872e7c2-369d-4a68-9061-004b27505ca2"] }, Open ]] }, Open ]] }, WindowSize->{687, 676}, WindowMargins->{{Automatic, -4}, {Automatic, 0}}, FrontEndVersion->"11.3 para Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 166, 6, 156, "Title",ExpressionUUID->"85f0d388-8268-46a6-88cb-6e58db2a432a"], Cell[749, 30, 148, 3, 34, "Text",ExpressionUUID->"250ffb50-34b0-4901-9fc1-209690e82958"], Cell[CellGroupData[{ Cell[922, 37, 340, 8, 45, "Input",ExpressionUUID->"fadd035c-9d2a-45e0-8714-399729c5084b"], Cell[1265, 47, 319, 7, 32, "Output",ExpressionUUID->"83c1ca25-0965-405b-90ab-ab2fc7e89682"] }, Open ]], Cell[1599, 57, 146, 3, 34, "Text",ExpressionUUID->"49279e28-e80d-4699-863f-882fc941b09a"], Cell[CellGroupData[{ Cell[1770, 64, 333, 8, 45, "Input",ExpressionUUID->"45cae468-cd1e-4bb7-a3dc-8af98b6327cc"], Cell[2106, 74, 11273, 202, 246, "Output",ExpressionUUID->"3a3003cb-09fb-4cc9-a53a-f46b4a499110"] }, Open ]], Cell[CellGroupData[{ Cell[13416, 281, 261, 5, 45, "Input",ExpressionUUID->"a0ea9c6c-a549-40bd-af44-86945f53e958"], Cell[13680, 288, 197, 3, 32, "Output",ExpressionUUID->"bb6e7e62-1d4f-4c17-b39b-e4d4c7e79ff1"] }, Open ]], Cell[CellGroupData[{ Cell[13914, 296, 316, 7, 45, "Input",ExpressionUUID->"f43d6f83-3963-4068-8814-850b616f19b2"], Cell[14233, 305, 6915, 131, 238, "Output",ExpressionUUID->"9e5703d9-8ede-4bd0-99e1-f735ccd5f023"] }, Open ]], Cell[21163, 439, 421, 13, 144, "Text",ExpressionUUID->"c2827ccb-c3ad-422e-a39c-6fdffb805642"], Cell[CellGroupData[{ Cell[21609, 456, 1304, 38, 214, "Input",ExpressionUUID->"d3348e34-9caf-42f6-a1eb-fbef81fe6384"], Cell[CellGroupData[{ Cell[22938, 498, 612, 15, 22, "Print",ExpressionUUID->"add9df42-7e5d-434d-bcde-48654029ea9e"], Cell[23553, 515, 614, 15, 22, "Print",ExpressionUUID->"c8065854-748b-4be6-9ba0-062913c63833"], Cell[24170, 532, 628, 16, 22, "Print",ExpressionUUID->"d8e46d2e-0c38-4ee7-b82c-c905dc514d9c"], Cell[24801, 550, 632, 16, 22, "Print",ExpressionUUID->"224ab49e-79b7-47e6-8d59-bfbfe8b3edaf"] }, Open ]] }, Open ]], Cell[25460, 570, 215, 8, 100, "Text",ExpressionUUID->"001759be-ea12-4f94-8831-bb2e693bf11d"], Cell[CellGroupData[{ Cell[25700, 582, 1375, 40, 215, "Input",ExpressionUUID->"e83a3b5d-4549-4ad7-98a7-b69d99499883"], Cell[27078, 624, 2231, 53, 131, "Print",ExpressionUUID->"8c9d46a2-5be3-425b-97f2-1c0ccf7dbe2f"] }, Open ]], Cell[CellGroupData[{ Cell[29346, 682, 1400, 40, 234, "Input",ExpressionUUID->"391e5131-07a1-449a-9566-56b0f2b785e0"], Cell[CellGroupData[{ Cell[30771, 726, 632, 15, 22, "Print",ExpressionUUID->"4dbd6333-a891-4e21-8370-6c7c58b85770"], Cell[31406, 743, 709, 15, 22, "Print",ExpressionUUID->"597afb82-180e-4ead-b707-e9178d6981c7"], Cell[32118, 760, 710, 15, 22, "Print",ExpressionUUID->"f5695305-cf2a-4d7f-8e06-68f9071f7df2"], Cell[32831, 777, 703, 15, 24, "Print",ExpressionUUID->"f695ba12-2df5-4219-b37b-8f0c7361c01b"], Cell[33537, 794, 635, 15, 24, "Print",ExpressionUUID->"23a5e669-5b82-431f-a2c8-7b1af8438f6e"] }, Open ]] }, Open ]], Cell[34199, 813, 157, 6, 56, "Text",ExpressionUUID->"2ae4485e-be44-43e4-bb8e-b5ef931604c2"], Cell[CellGroupData[{ Cell[34381, 823, 500, 14, 45, "Input",ExpressionUUID->"4512f3f6-3a2b-4fd7-b44d-1d67eb611e1a"], Cell[34884, 839, 586, 17, 32, "Output",ExpressionUUID->"4ab47c00-1056-4110-ba34-2195db64f06d"] }, Open ]], Cell[CellGroupData[{ Cell[35507, 861, 527, 14, 45, "Input",ExpressionUUID->"48afb760-1661-4c07-af04-69b58dd3a592"], Cell[36037, 877, 887, 25, 52, "Output",ExpressionUUID->"dd3b9af9-2d28-4c16-be09-e68198c6f193"] }, Open ]], Cell[CellGroupData[{ Cell[36961, 907, 354, 7, 45, "Input",ExpressionUUID->"94c539ba-cd84-4332-a37f-81ed4d8add2a"], Cell[37318, 916, 255, 5, 32, "Output",ExpressionUUID->"69c78b7e-62f7-4908-8041-1963a28765aa"] }, Open ]], Cell[CellGroupData[{ Cell[37610, 926, 265, 5, 45, "Input",ExpressionUUID->"d34de986-c778-4492-b956-ed7b17dd90d3"], Cell[37878, 933, 868, 25, 61, "Output",ExpressionUUID->"1c359e4b-3c4b-4cb7-b7bb-70fb105a84be"] }, Open ]], Cell[CellGroupData[{ Cell[38783, 963, 364, 8, 28, "Input",ExpressionUUID->"9d8f19fe-f2e8-40e9-8f79-69705648cfd3"], Cell[39150, 973, 653, 19, 61, "Output",ExpressionUUID->"038c2796-5169-4fe3-993d-64c5c96e79e4"] }, Open ]], Cell[CellGroupData[{ Cell[39840, 997, 340, 7, 45, "Input",ExpressionUUID->"e088c950-6904-4fc4-849f-2e7d0b1182f3"], Cell[40183, 1006, 697, 20, 55, "Output",ExpressionUUID->"93f22a60-1cf0-4a50-8c5f-c0c713e471a3"] }, Open ]], Cell[CellGroupData[{ Cell[40917, 1031, 593, 14, 45, "Input",ExpressionUUID->"7b831d93-0c08-4377-bd0a-3e60a388a02d"], Cell[41513, 1047, 29812, 511, 240, "Output",ExpressionUUID->"e482a539-be85-4dbb-ac21-b5fbabcd87ed"] }, Open ]], Cell[71340, 1561, 154, 7, 78, "Text",ExpressionUUID->"2a2dfb64-bf18-416a-ba21-f99ca06bb384"], Cell[CellGroupData[{ Cell[71519, 1572, 638, 17, 45, "Input",ExpressionUUID->"1a8e182e-0874-4f59-8229-92429e9368ad"], Cell[72160, 1591, 531, 15, 32, "Output",ExpressionUUID->"a194d990-6380-4937-9d41-73769a37b193"] }, Open ]], Cell[72706, 1609, 154, 3, 28, InheritFromParent,ExpressionUUID->"38bb437a-1a72-4c8b-8180-eca7c266cc91"], Cell[CellGroupData[{ Cell[72885, 1616, 531, 13, 45, "Input",ExpressionUUID->"a2423fe4-6ab4-46f0-9abb-e2c96e98ac1f"], Cell[73419, 1631, 16320, 311, 71, "Output",ExpressionUUID->"efc10440-8b9e-4220-8d0e-37e6090a7700"] }, Open ]], Cell[CellGroupData[{ Cell[89776, 1947, 334, 8, 28, "Input",ExpressionUUID->"7169806d-c18d-47c6-83d9-6db97ea5571b"], Cell[90113, 1957, 15670, 303, 71, "Output",ExpressionUUID->"322a2282-e57e-45a4-8d50-82ca3e422012"] }, Open ]], Cell[105798, 2263, 153, 3, 28, "Input",ExpressionUUID->"59e1830c-f44a-42aa-bdb2-9cb7008a33d4"], Cell[CellGroupData[{ Cell[105976, 2270, 548, 15, 45, "Input",ExpressionUUID->"561da9f5-2c0a-46bc-9e4b-ce8a7bab8986"], Cell[106527, 2287, 500, 13, 32, "Output",ExpressionUUID->"a021763b-ed8f-4a9c-962f-7eb91f8098c2"] }, Open ]], Cell[CellGroupData[{ Cell[107064, 2305, 674, 16, 45, "Input",ExpressionUUID->"86e8b7c7-b90b-4734-87e0-e761ff2192ea"], Cell[107741, 2323, 761, 21, 402, "Output",ExpressionUUID->"9872e7c2-369d-4a68-9061-004b27505ca2"] }, Open ]] }, Open ]] } ] *)