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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    168388,       3550]
NotebookOptionsPosition[    157238,       3356]
NotebookOutlinePosition[    157581,       3371]
CellTagsIndexPosition[    157538,       3368]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:0412\:044a\:0432\:0435\:0434\:0435\:043d\:0438\:0435 \:0432 Wolfram \
Mathematica", "Title",
 CellChangeTimes->{{3.748019989539576*^9, 3.7480200112041407`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"222ebf55-c964-49c9-b5b6-d0ff402fc9f0"],

Cell[CellGroupData[{

Cell["\:041e\:0441\:043d\:043e\:0432\:043d\:0438 \:043e\:043f\:0435\:0440\
\:0430\:0446\:0438\:0438", "Section",
 CellChangeTimes->{{3.5581104265030465`*^9, 3.5581104293110466`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"41864f16-be86-4d21-9b73-c3924d636b02"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"2", "+", "3"}], "\n", 
 RowBox[{"3.5", "-", "2.8"}], "\n", 
 RowBox[{"2", "*", "4"}], "\n", 
 RowBox[{"10", "/", "2"}], "\n", 
 RowBox[{"12", "^", "3"}], "\n", 
 RowBox[{
  RowBox[{"2", "x"}], "+", 
  RowBox[{"3", "x"}]}], "\n", 
 RowBox[{"5", "!"}], "\n", 
 RowBox[{"Sqrt", "[", "121", "]"}], "\n", 
 RowBox[{"Sin", "[", "Pi", "]"}], "\n", 
 RowBox[{"ArcTan", "[", "1", "]"}]}], "Code",
 CellChangeTimes->{{3.55811044977825*^9, 3.55811050804426*^9}, {
  3.55811056788587*^9, 3.558110616745078*^9}, {3.558110792167107*^9, 
  3.558110846377116*^9}, {3.5581108812587223`*^9, 3.5581108887935233`*^9}, {
  3.558111104026759*^9, 3.55811110655396*^9}, {3.6211591117927103`*^9, 
  3.621159142121112*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[51]:=",ExpressionUUID->"ab0d333a-a292-4891-b2c5-89208081e0ee"],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.810655677425753*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[51]=",ExpressionUUID->"68af0e6a-6420-4e84-bb0c-3055695a8dfe"],

Cell[BoxData["0.7000000000000002`"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774297514`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[52]=",ExpressionUUID->"bfa0fe85-8245-4422-8456-4bcbee112515"],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774327493`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[53]=",ExpressionUUID->"d9a422e9-e119-4255-a106-491a8810cc81"],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774387646`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[54]=",ExpressionUUID->"53b7ecee-701e-4f78-9c45-f10f70b8054b"],

Cell[BoxData["1728"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774417458`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[55]=",ExpressionUUID->"6691eed6-3857-48a4-ad3d-62dfe9f39dce"],

Cell[BoxData[
 RowBox[{"5", " ", "x"}]], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774447603`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[56]=",ExpressionUUID->"81c90d14-ea6b-4ec2-aaf8-5104fa476978"],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.810655677448743*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[57]=",ExpressionUUID->"4bd86a2f-c845-4ece-85d3-5e70fe0b074c"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774527397`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[58]=",ExpressionUUID->"37755a2b-dc5a-429b-89a4-07916bb53013"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774567356`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[59]=",ExpressionUUID->"c9ee194f-7305-44c1-9b1d-840dee50d314"],

Cell[BoxData[
 FractionBox["\[Pi]", "4"]], "Output",
 CellChangeTimes->{
  3.6211591454492683`*^9, 3.621231491827901*^9, 3.7480206865711107`*^9, {
   3.7480209628309546`*^9, 3.7480209635655336`*^9}, {3.7491091193947077`*^9, 
   3.7491091205097713`*^9}, {3.749111376902234*^9, 3.749111377732236*^9}, {
   3.749187343563714*^9, 3.749187344556771*^9}, {3.7493712050050793`*^9, 
   3.7493712059780807`*^9}, 3.8106556774607334`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[60]=",ExpressionUUID->"2f5bc0db-c0b8-4ef8-b18a-895754faf6ce"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0421\:043a\:043e\:0431\:0438\:0442\:0435 \:0432 Mathematica", \
"Section",
 CellChangeTimes->{{3.5580257109903126`*^9, 3.5580257186303663`*^9}, {
  3.5580654847368526`*^9, 3.558065489760053*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"3f0d981a-19a5-4f61-9c9f-3f6576719973"],

Cell[CellGroupData[{

Cell["\:041a\:0440\:044a\:0433\:043b\:0438 \:0441\:043a\:043e\:0431\:0438", \
"Subsection",
 CellChangeTimes->{{3.558025760570659*^9, 3.5580257921094804`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"9fb48e20-02de-4478-8df4-a047c47b9dfd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"x", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "2"}], ")"}], "^", "2"}]}], "\n", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"x", "+", 
    RowBox[{"y", 
     RowBox[{"(", 
      RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "^", "2"}]}], "Code",
 CellChangeTimes->{{3.5580259729603105`*^9, 3.558025994722314*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[61]:=",ExpressionUUID->"77dfd2b3-0cbc-48dc-8eaf-8dbcea660b17"],

Cell[BoxData[
 RowBox[{"x", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"2", "+", "x"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.6211591786214547`*^9, 3.621231491853935*^9, 3.7480206866350746`*^9, {
   3.748020963009853*^9, 3.7480209635935173`*^9}, {3.7491091195827184`*^9, 
   3.7491091205427732`*^9}, {3.7491113769722347`*^9, 3.749111377772236*^9}, {
   3.7491873436077166`*^9, 3.7491873445927725`*^9}, {3.7493712051170797`*^9, 
   3.7493712060180807`*^9}, 3.8106556775256968`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[61]=",ExpressionUUID->"c350adcc-2d01-4620-9c5a-276e0dd337e0"],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"x", "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "y"}], ")"}], " ", "y"}]}], ")"}], "2"]], "Output",
 CellChangeTimes->{
  3.6211591786214547`*^9, 3.621231491853935*^9, 3.7480206866350746`*^9, {
   3.748020963009853*^9, 3.7480209635935173`*^9}, {3.7491091195827184`*^9, 
   3.7491091205427732`*^9}, {3.7491113769722347`*^9, 3.749111377772236*^9}, {
   3.7491873436077166`*^9, 3.7491873445927725`*^9}, {3.7493712051170797`*^9, 
   3.7493712060180807`*^9}, 3.810655677530693*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[62]=",ExpressionUUID->"c61c252e-7bdd-417f-a74b-f40e742872a2"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041a\:0432\:0430\:0434\:0440\:0430\:0442\:043d\:0438 \:0441\:043a\
\:043e\:0431\:0438 - \:0437\:0430\:0433\:0440\:0430\:0436\:0434\:0430\:0442 \
\:0430\:0440\:0433\:0443\:043c\:0435\:043d\:0442\:0438\:0442\:0435 \:043d\
\:0430 \:0434\:0430\:0434\:0435\:043d \:043e\:043f\:0435\:0440\:0430\:0442\
\:043e\:0440", "Subsection",
 CellChangeTimes->{{3.5580257962434807`*^9, 3.5580258155094843`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"9b2f7f9f-373e-4f19-98f6-cc655be817aa"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Sqrt", "[", 
  RowBox[{"60", "+", "4"}], "]"}], "\n", 
 RowBox[{"ArcSin", "[", 
  RowBox[{"Sin", "[", 
   RowBox[{"Pi", "/", "2"}], "]"}], "]"}], "\n", 
 RowBox[{"Log", "[", "E", "]"}]}], "Code",
 CellChangeTimes->{{3.5580258658350925`*^9, 3.558025917611501*^9}, {
  3.5580260253451195`*^9, 3.558026042863922*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[63]:=",ExpressionUUID->"77c49f61-0882-4e59-a49a-6026debd52de"],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{
  3.6211592034186373`*^9, 3.621231491867944*^9, 3.74802068665806*^9, {
   3.7480209630258427`*^9, 3.748020963606511*^9}, {3.7491091196107197`*^9, 
   3.7491091205687747`*^9}, {3.7491113769922347`*^9, 
   3.7491113777922354`*^9}, {3.7491873436417184`*^9, 
   3.7491873446217747`*^9}, {3.7493712051470795`*^9, 3.7493712060480804`*^9}, 
   3.8106556775556793`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[63]=",ExpressionUUID->"63f85e95-b292-42fb-a12e-137fcb97272c"],

Cell[BoxData[
 FractionBox["\[Pi]", "2"]], "Output",
 CellChangeTimes->{
  3.6211592034186373`*^9, 3.621231491867944*^9, 3.74802068665806*^9, {
   3.7480209630258427`*^9, 3.748020963606511*^9}, {3.7491091196107197`*^9, 
   3.7491091205687747`*^9}, {3.7491113769922347`*^9, 
   3.7491113777922354`*^9}, {3.7491873436417184`*^9, 
   3.7491873446217747`*^9}, {3.7493712051470795`*^9, 3.7493712060480804`*^9}, 
   3.8106556775606766`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[64]=",ExpressionUUID->"08eec099-39ec-4ace-911e-749195ef855d"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.6211592034186373`*^9, 3.621231491867944*^9, 3.74802068665806*^9, {
   3.7480209630258427`*^9, 3.748020963606511*^9}, {3.7491091196107197`*^9, 
   3.7491091205687747`*^9}, {3.7491113769922347`*^9, 
   3.7491113777922354`*^9}, {3.7491873436417184`*^9, 
   3.7491873446217747`*^9}, {3.7493712051470795`*^9, 3.7493712060480804`*^9}, 
   3.810655677563675*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[65]=",ExpressionUUID->"4abd3a07-18d0-4291-8d6d-60bd11965afb"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0424\:0438\:0433\:0443\:0440\:043d\:0438 \:0441\:043a\:043e\:0431\
\:0438 - \:0437\:0430\:0433\:0440\:0430\:0436\:0434\:0430\:0442 \:0435\:043b\
\:0435\:043c\:0435\:043d\:0442\:0438\:0442\:0435 \:043d\:0430 \:0441\:043f\
\:0438\:0441\:044a\:043a", "Subsection",
 CellChangeTimes->{{3.5580258175998845`*^9, 3.558025833387087*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"3194ce50-8cfd-4076-806d-fbedaf427d07"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Code",
 CellChangeTimes->{{3.5580260078575163`*^9, 3.558026010993117*^9}, {
  3.8106547463197947`*^9, 3.810654820911227*^9}, {3.810655006844473*^9, 
  3.81065501211333*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[66]:=",ExpressionUUID->"c65b7882-e4db-4282-aead-6359841a773d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6212314918819427`*^9, 3.7480206866810493`*^9, {3.748020963041834*^9, 
   3.7480209636205015`*^9}, {3.749109119643722*^9, 3.7491091205977764`*^9}, {
   3.749111377022235*^9, 3.749111377822236*^9}, {3.7491873436737204`*^9, 
   3.7491873446517763`*^9}, {3.7493712051770797`*^9, 3.749371206078081*^9}, 
   3.810654793475672*^9, 3.810655677587661*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[66]=",ExpressionUUID->"6f89eb39-fec5-4238-a2da-18acbb91db4c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:043d\:0435 \:043c\:043e\:0436\:0435 \:0434\:0430 \
\:0440\:0430\:0437\:0431\:0435\:0440\:0435 \:043a\:0430\:043a\:0432\:043e \
\:0438\:043c\:0430\:043c\:0435 \:043f\:0440\:0435\:0434\:0432\:0438\:0434 \
\:0441\:044a\:0441 \:0441\:043b\:0435\:0434\:043d\:0438\:0442\:0435 \:0438\
\:0437\:0440\:0430\:0437\:0438:  "
}], "Subsection",
 CellChangeTimes->{{3.5580262548523574`*^9, 3.5580262738219604`*^9}, {
  3.5580263043043656`*^9, 3.5580263272051697`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"0d1ea6ef-8dfc-4748-805a-8b16f339607c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"[", 
    RowBox[{"x", "+", 
     RowBox[{"y", 
      RowBox[{"(", 
       RowBox[{"1", "-", "y"}], ")"}]}]}], "]"}], "^", "2"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "+", 
      RowBox[{"y", 
       RowBox[{"(", 
        RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "^", "2"}], " ", 
   "*)"}]}]}], "Code",
 CellChangeTimes->{{3.5580252862214565`*^9, 3.558025297250658*^9}, {
  3.5580254149838777`*^9, 3.5580254217854786`*^9}, {3.5580255337698746`*^9, 
  3.5580255753593645`*^9}},
 EmphasizeSyntaxErrors->True,
 FontFamily->"Arial Narrow",
 CellLabel->"In[67]:=",ExpressionUUID->"8004a681-70a1-4c68-b7a9-58e1b9fd9b8d"],

Cell[BoxData[{
 RowBox[{"(", 
  RowBox[{"1", ",", "2"}], ")"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], " ", "*)"}]}]}], "Code",
 CellChangeTimes->{{3.5580253120082607`*^9, 3.558025314644661*^9}, {
  3.5580255881294537`*^9, 3.558025597699521*^9}},
 EmphasizeSyntaxErrors->True,
 FontFamily->"Arial Narrow",
 CellLabel->"In[67]:=",ExpressionUUID->"7389b265-b71a-412b-b5c4-27bb11b75f91"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Sin", 
  RowBox[{"(", "Pi", ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Sin", "[", "Pi", "]"}], " ", "*)"}]}]}], "Code",
 CellChangeTimes->{{3.558025324971863*^9, 3.558025330868664*^9}, {
  3.558025601509547*^9, 3.5580256108296127`*^9}, {3.5580320129407663`*^9, 
  3.558032025108768*^9}, {3.5581113577140017`*^9, 3.558111360038402*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[67]:=",ExpressionUUID->"0227bdba-6a7d-4539-9fe0-864051f23667"],

Cell[BoxData[
 RowBox[{"\[Pi]", " ", "Sin"}]], "Output",
 CellChangeTimes->{
  3.558025333068264*^9, 3.5580320157331667`*^9, 3.558065542160462*^9, 
   3.6212314922892284`*^9, 3.7480206867290335`*^9, {3.7480209630898237`*^9, 
   3.7480209636534834`*^9}, {3.7491091197627287`*^9, 3.749109120639779*^9}, {
   3.749111377122235*^9, 3.749111377862236*^9}, {3.749187343862731*^9, 
   3.749187344696779*^9}, {3.7493712053370795`*^9, 3.749371206128081*^9}, 
   3.8106556776546216`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[67]=",ExpressionUUID->"fcbbd030-1f03-4063-853d-4c78cff5e68c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0421\:0438\:043c\:0432\:043e\:043b\:043d\:043e \:0438 \:0447\:0438\
\:0441\:043b\:0435\:043d\:043e \:043f\:0440\:0435\:0441\:043c\:044f\:0442\
\:0430\:043d\:0435", "Section",
 CellChangeTimes->{{3.558025687120146*^9, 3.558025694710199*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"c9abe7cd-a985-43a3-8b45-484871d2bf34"],

Cell[CellGroupData[{

Cell[TextData[{
 "\:041e\:0431\:0438\:043a\:043d\:043e\:0432\:0435\:043d\:043e ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " \:0441\:043c\:044f\:0442\:0430 \:0441\:0438\:043c\:0432\:043e\:043b\:043d\
\:043e (\:0438 \:0441\:043b\:0435\:0434\:043e\:0432\:0430\:0442\:0435\:043b\
\:043d\:043e \:0442\:043e\:0447\:043d\:043e), \:0430\:043a\:043e \:043d\:0435 \
\:0441\:043c\:0435 \:0443\:043a\:0430\:0437\:0430\:043b\:0438 \:0434\:0440\
\:0443\:0433\:043e"
}], "Subsection",
 CellChangeTimes->{{3.558026472025202*^9, 3.558026531632812*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"17c2b12b-150d-425c-a548-d695310c9572"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"123", "/", 
  RowBox[{"Sqrt", "[", "768", "]"}]}], "\n", 
 RowBox[{"Cos", "[", 
  RowBox[{"Pi", "/", "12"}], "]"}], "\n", 
 RowBox[{"Log", "[", "2", "]"}]}], "Code",
 CellChangeTimes->{{3.5580265523808155`*^9, 3.5580266226588273`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[68]:=",ExpressionUUID->"77499d4c-9a68-4315-85a9-e9c0b07095df"],

Cell[BoxData[
 FractionBox[
  RowBox[{"41", " ", 
   SqrtBox["3"]}], "16"]], "Output",
 CellChangeTimes->{
  3.5580266259972277`*^9, 3.621231492301237*^9, 3.74802068674701*^9, {
   3.7480209631028004`*^9, 3.7480209636644773`*^9}, {3.7491091197947307`*^9, 
   3.74910912066578*^9}, {3.749111377142235*^9, 3.7491113778982363`*^9}, {
   3.749187343888733*^9, 3.7491873447237806`*^9}, {3.7493712053670797`*^9, 
   3.749371206148081*^9}, 3.810655677678608*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[68]=",ExpressionUUID->"73f0fa6b-bbab-4a7a-a5d4-4bda8ef9efd9"],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   SqrtBox["3"]}], 
  RowBox[{"2", " ", 
   SqrtBox["2"]}]]], "Output",
 CellChangeTimes->{
  3.5580266259972277`*^9, 3.621231492301237*^9, 3.74802068674701*^9, {
   3.7480209631028004`*^9, 3.7480209636644773`*^9}, {3.7491091197947307`*^9, 
   3.74910912066578*^9}, {3.749111377142235*^9, 3.7491113778982363`*^9}, {
   3.749187343888733*^9, 3.7491873447237806`*^9}, {3.7493712053670797`*^9, 
   3.749371206148081*^9}, 3.8106556776836047`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[69]=",ExpressionUUID->"ea535ac6-7863-4203-9cef-3de200a1f491"],

Cell[BoxData[
 RowBox[{"Log", "[", "2", "]"}]], "Output",
 CellChangeTimes->{
  3.5580266259972277`*^9, 3.621231492301237*^9, 3.74802068674701*^9, {
   3.7480209631028004`*^9, 3.7480209636644773`*^9}, {3.7491091197947307`*^9, 
   3.74910912066578*^9}, {3.749111377142235*^9, 3.7491113778982363`*^9}, {
   3.749187343888733*^9, 3.7491873447237806`*^9}, {3.7493712053670797`*^9, 
   3.749371206148081*^9}, 3.810655677689601*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[70]=",ExpressionUUID->"b1d3d1a7-8d56-4abb-9177-a86ffefbef65"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041c\:043e\:0436\:0435\:043c \:0434\:0430 \:0441\:043c\:044f\:0442\
\:0430\:043c\:0435 \:0447\:0438\:0441\:043b\:0435\:043d\:043e \:043f\:043e \
\:0441\:043b\:0435\:0434\:043d\:0438\:044f \:043d\:0430\:0447\:0438\:043d:", \
"Subsection",
 CellChangeTimes->{{3.558026664763234*^9, 3.558026680066837*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"d64d67f1-3c55-4ae0-9f27-54d3b72b63e9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"N", "[", 
  RowBox[{"123", "/", 
   RowBox[{"Sqrt", "[", "768", "]"}]}], "]"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"Cos", "[", 
   RowBox[{"Pi", "/", "12"}], "]"}], "]"}], "\n", 
 RowBox[{"N", "[", 
  RowBox[{"Log", "[", "2", "]"}], "]"}]}], "Code",
 CellChangeTimes->{{3.558026728832445*^9, 3.5580267601104503`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[71]:=",ExpressionUUID->"b14276e9-0a21-472d-b319-3134de47e614"],

Cell[BoxData["4.438380194395248`"], "Output",
 CellChangeTimes->{
  3.5580267613116503`*^9, 3.621231492319249*^9, 3.748020686773994*^9, {
   3.7480209631247883`*^9, 3.7480209636814685`*^9}, {3.7491091198237324`*^9, 
   3.749109120692782*^9}, {3.7491113771722345`*^9, 3.7491113779182377`*^9}, {
   3.749187343916734*^9, 3.749187344751782*^9}, {3.7493712053870797`*^9, 
   3.749371206178081*^9}, 3.8106556777135878`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[71]=",ExpressionUUID->"41015ae0-5c7e-44eb-8111-a23bc3d4f1b9"],

Cell[BoxData["0.9659258262890682`"], "Output",
 CellChangeTimes->{
  3.5580267613116503`*^9, 3.621231492319249*^9, 3.748020686773994*^9, {
   3.7480209631247883`*^9, 3.7480209636814685`*^9}, {3.7491091198237324`*^9, 
   3.749109120692782*^9}, {3.7491113771722345`*^9, 3.7491113779182377`*^9}, {
   3.749187343916734*^9, 3.749187344751782*^9}, {3.7493712053870797`*^9, 
   3.749371206178081*^9}, 3.810655677718585*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[72]=",ExpressionUUID->"950e172c-d818-4d93-bd8c-5551b996027b"],

Cell[BoxData["0.6931471805599453`"], "Output",
 CellChangeTimes->{
  3.5580267613116503`*^9, 3.621231492319249*^9, 3.748020686773994*^9, {
   3.7480209631247883`*^9, 3.7480209636814685`*^9}, {3.7491091198237324`*^9, 
   3.749109120692782*^9}, {3.7491113771722345`*^9, 3.7491113779182377`*^9}, {
   3.749187343916734*^9, 3.749187344751782*^9}, {3.7493712053870797`*^9, 
   3.749371206178081*^9}, 3.810655677721583*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[73]=",ExpressionUUID->"a9ecb991-6659-4fa0-806c-84076dd534ce"]
}, Open  ]],

Cell["\:0438\:043b\:0438", "Text",
 CellChangeTimes->{{3.558026776100453*^9, 3.5580267766932526`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"b6e8341e-b29e-4845-bb20-5c9919175950"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"123.", "/", 
  RowBox[{"Sqrt", "[", "768", "]"}]}], "\n", 
 RowBox[{"Cos", "[", 
  RowBox[{"Pi", "/", "12."}], "]"}], "\n", 
 RowBox[{"Log", "[", "2.0", "]"}]}], "Code",
 CellChangeTimes->{{3.5580267934008555`*^9, 3.5580268330248623`*^9}, {
  3.5581071267040925`*^9, 3.5581071282640924`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[74]:=",ExpressionUUID->"0c497c5b-7515-45ea-a64f-434cfd080532"],

Cell[BoxData["4.438380194395249`"], "Output",
 CellChangeTimes->{{3.5580268159428596`*^9, 3.5580268337892623`*^9}, 
   3.6212314923382664`*^9, 3.748020686794984*^9, {3.7480209631427765`*^9, 
   3.7480209636964593`*^9}, {3.749109119869735*^9, 3.7491091207217836`*^9}, {
   3.7491113772022347`*^9, 3.7491113779482374`*^9}, {3.7491873439857383`*^9, 
   3.749187344783784*^9}, {3.74937120542708*^9, 3.7493712062080812`*^9}, 
   3.81065567774457*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[74]=",ExpressionUUID->"6dc58f58-9e62-4f5e-9312-53b6d26433bf"],

Cell[BoxData["0.9659258262890683`"], "Output",
 CellChangeTimes->{{3.5580268159428596`*^9, 3.5580268337892623`*^9}, 
   3.6212314923382664`*^9, 3.748020686794984*^9, {3.7480209631427765`*^9, 
   3.7480209636964593`*^9}, {3.749109119869735*^9, 3.7491091207217836`*^9}, {
   3.7491113772022347`*^9, 3.7491113779482374`*^9}, {3.7491873439857383`*^9, 
   3.749187344783784*^9}, {3.74937120542708*^9, 3.7493712062080812`*^9}, 
   3.8106556777495675`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[75]=",ExpressionUUID->"461625b9-0977-4cd3-bd93-0a1655a92011"],

Cell[BoxData["0.6931471805599453`"], "Output",
 CellChangeTimes->{{3.5580268159428596`*^9, 3.5580268337892623`*^9}, 
   3.6212314923382664`*^9, 3.748020686794984*^9, {3.7480209631427765`*^9, 
   3.7480209636964593`*^9}, {3.749109119869735*^9, 3.7491091207217836`*^9}, {
   3.7491113772022347`*^9, 3.7491113779482374`*^9}, {3.7491873439857383`*^9, 
   3.749187344783784*^9}, {3.74937120542708*^9, 3.7493712062080812`*^9}, 
   3.810655677754565*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[76]=",ExpressionUUID->"205e00c3-b1dd-4b59-9f9d-b70d86fc965b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0413\:0440\:0430\:0444\:0438\:043a\:0438", "Section",
 CellChangeTimes->{{3.5580321502675886`*^9, 3.558032151952389*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"1f01f9bc-540e-4c4c-8739-478ef6975a36"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Code",
 CellChangeTimes->{{3.5580321725599923`*^9, 3.558032186053995*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[77]:=",ExpressionUUID->"08c5b426-881e-4409-887c-a981117787ef"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlGc8lg0DxYVKKlEoIlspoYWU6xiJkDIihWRkpULDeCKyd7ntUfbKdmfG
bSWrUiTJlhkXFSrF2/vh/M6Xc/7n2xEwu6ljSU9HR/frn/7v6paTnbSpC0T6
J6HAfSHCJxiVuW8Nch2FzH5Fn7GKWvkjT2ISSrhO4bReBT1HBSk/xiPseU9U
CzVdMCEbmAmNjp7iRC49NFW/Usor5yOEg3nT1/gMIRbSTZ76LUH8UTePvipq
gi97/OmpDXLEtHdX49WoqxDWeKvGraBCGFgsv3jMZYG7KiLmLuXniEZl7rKG
hGuo4bQ6zxqpT0gJyRf+4LPBHq4DNjy/TYgEetNskVQ7UPm3F7smWhBMI14p
+qI3ELmjvSu6wZaoHHrX0aB3Cy67nCajGRyIW+ct1I2iHKCRomi/QeEOIUpb
fPmjxxF8W0cf/xF0Jfol/ZRDuG5jsMba6Uq5B0F5sosmcvkOSlkc2Zk3PCTU
t+WcrEm4C03VkvE1ii9B53GiQn/gHg5UP3jBEBZIPJ9rP0byuUCJf1SE6Xco
cd3EpNjvqisUIhw+rM0+IgRfkxL8qW6YpTXevJFIIT7Ke+aWj/2Hp443Rc6E
RhOhedv3aYu6o3PdknxAQxyhwpuWNmXlgZXmz2t7FZII95dxrHV6D6Cxreti
GEMyYeg+qhWy+ABBknOaJVtTiaPS4iGGUZ5wW3D3+IN0Ytvc7TYRGS/0eL6K
mIjPJKbTX2z61uMF461bDy4I5hBPOc75BnJ5o+tVmJtOeQHh1hHdqF/pDT6x
7KpOiyJC32eIXuiyD4ZPBdfTbyghtiw6eFQl+GL95c9Fy5TnxMSzyhd+8n4Q
8gqSl/UuJ+otGP7oDvihuZcW8zu0knDuojh/5QvArttKjKu/agjd4P7n5bQA
0Bwm+/rzaITEKdFF76uBuDNXqvB7to4YKylz4E0NQuToEy3rxEai1o6ucEo5
GGaOV844b31JxAmdmaOOBWPK8ZqjUmgzoR3xyVZLNBQTi8HfPBtaCXENoWzu
5lBUhZ6Npzq3E0wM1yfGrcKw6WU0B7/Ca+JKxWpRrV44zJLWswUxdBKaHEKd
IunhUG2Zpi9keEfIOajOBy2Go6X3WEH+1vcEh1i4xMWoR1iqS/JfRjdB71N6
tmb8Ed4Khww8tf5AzA99vC4s8xgZD70URuJ7iLYYgdz5nseI0BBynRH8RHgy
lewN4KJgT3Lamkb5ILFf9ZF/8S0KBqpp5X/zhoh3Pjen+popOMrFKrvgO0wI
M4jnStyNRK+qV0ua1ijRrsi85WJHJNjs77sly48Rdx5MXvcUjoLUvsAjR45+
IV7+TZPoeheFpfUBi6GyE8TNkw/D/opFI9RN90nk6Ulil9vVeVHPaEyID4Xm
GE0RNj95i10kY0CdnHd3Tp4htnyPOsYXHAtS1KzQVW2eoB66E6U2GgvlSDm3
KwvzhMkt3WUHuThcaE7LakxaIApmt1U0TsYhvmVDm+bG74TOpP9JW5UEnA6a
Cf7DukSsiFolRiQkYKPRybbgwSUizVJltfp7Asyj3uRyliwTiyPraNtSEtEZ
F/ld1+YXEdPvqkxdTYLQ3sA/POx/CUUew7SBC08gE/AxV3DLKjF9SWY9U94T
0H5zycdvWiP2fHUxzzv4FI8lM9+FB9Lhpo20CN3np+gpL1nkKKdHo396N2Vj
Mv6cSfAuV2fArix2X7EjyWih6gtrDzGANv5tXCcwGd2nD457sa/HdouCrHTZ
FDA6fEipTt6Iaw/3GMpZpKD0V/3EqCYTqlJCNr0JS8FagWG//AoTLIbtbH+O
p+Dta4f9WVeZQTXZJ64RmYqc5Tq3/fpbcdEwuWB+IQ2S3ipVyt/YQPbpMadw
p6PoLaNg9uXt8DVhstRVTsecndu2rJfbUWJ+k/s5JR2ZVqLd7sk7wHJD3sdN
JgP55nE247YcaPLqvbThfibuTB/KOn+OC0brQ6hl6Zn49vjQU9p7LnzzU2C1
eZ2Je3OqLiuG3OAPyWxq48tCZfR5kQG73fgv+o7Uo/osxKf8rM9L58XhZ2wb
eJhysCto1otdTgAtEk2mHVI56C3wjzMKEoBpkXOVu2EOVIcG3qT0CyDk+eCt
4ZwcPD/PVCvpI4hJWl5fxtlcZE6YDdwdEkJS95miQxHPsP7Zu9gdLaI4dvHv
5tGqZ3itzPh0af9etH8qvEYZewb7WH6H+ZC9+DW4k2f5WB6otpZPJAz2QW/6
i2/1xzwQvEcu0y2LYfOap5HqngJcfeD6Ssf+IGJsDEzETxfg/s2JRbbBgxDu
Ejdlu1EA/mjG1h/aEiCye8z7XhSgqt9V+sAJSVRkR1HLJArBebRhsi5ECrO6
X6s1XhdiSLalnRJ4GEc39cgTI4UwpQ9qm2w/DNeauhqppUIEP1yR/7TtCDaK
RdM49hThve6qZUz0EQisKjYO2heBuVpwd1T+UVzIim5z2loMlgOpA8dXpJFg
7KV5TaAYcn971atVZTCy3b7j4rFiuAtytk1QZHDzvtIbeeNiHN9aSp48JIsA
ndl3G/OKYfWdV/CHw3G8+KP0KV6zBOFe1+Zl2U9CRHtusiGoFEkXDMRj5xXA
7aEqZ5VcCoaQTYP6oopgzXsaxFxWiplH5g0+Ror4zaQroT1SCu/t31ZkWxXx
llbmNCBLBZNu/j76XCW4Snmu/vxCRceClo6f1ym83sbOLqFQhs25Ad/jg9XQ
IG9v2XmhDIoeUsOWnWoot3v5/LZdGS5ERPcUcJ5BarOzYVVUGa4HBFQ0pZyB
s0d/ktpsGbTYDmttqFOHIJkhZh5XDr9ChQQlzrO49/o4Yn5UoDJG/7rTDm2w
SFC/tDBVYsnhVbX9CW2khUgFr/BUYlZLQSnDXBudmnt7TVQqIc1+Ku9dqTYO
tLE7iURVgqsjW33PJR0MNpMZxTJVeLxm3JdTqAvVunSWDtdq/EyZ2jkTqo8B
fgHqamg1zjGy+26q1cftBwmXpVKrcctW79B1Uh/JiMiKaKuGggoX3dp5A6y8
eKB0iecFlo7VNV3ZeREFlZfvTrx4AanNv8Vkiwyxs5RtYN26WtynhXFFcRvD
KHhFb4yzFkMfJ/+aXTRGisWXtpfitdh5m1XAL8oY4hwVFUEXa1Gr58T1YYcJ
lO6aRnIU1uJzLn9g5PYrkE4wyKBI0pAXNL/DOtwUV00yjLMGaNBnjuNdoJnB
W313bOwUDVE/rq34fjFDhnR4V+APGnwzT5zTZDbHVxZXDXvmOjg6v31vqWeO
u7Vnjx+WrgP15O1nPdPmCOZfZK8OqQMPPZNrJ78lno8ot785WY+xXe4uP4qs
8EHNcyFEtR4znucDv/ZZYSm/hlNTpx4008QtnBusIeN2/Oorq3rEmQ/3/r1k
jfIdkku0x/W4WJ7fKLTRBhWnuPmLJ+tRf0tBbcTaFtUZ804USgOCSrRuLOrY
4/MWiVidJw1Y3bf0W/ehPf442tWw5jTA8DAZN1FiD3mMM4XUNiB6jDUgn+MG
anr6En2mG2CzrkCjpu8Gapmam+8qNCJxOd5uTfYW6m0Tdxt+bcR4jErZxKgD
Sqbs7EyWGnH+VJ1Z1l8HpFnLVZnTNaFdZ0eF505H+FzruXSDvQnfHS0j3TUc
oWbGFvfwZBNmqLP6KaWOeGPosys/uAnZi7NaCUFO+Kxmz8Fw8CWCunMSn2ne
waKo/LY8+2aMD61jec/rAmJEqTnQuRlDFL3ybgUX+CaqeVg/bEazoNXnn+Yu
4GTXI4VimyEZSnY8zXGB9Dq7N3GNzSgn/Vacj7vCuS8mzH/3K3goZGcZGLvh
T9iPbRYtrzAvoRggU3Mf9L9yWXeLtELFWfLZFydP7O5Q+g7JVmyys+Qh/D1x
NLm32+J4K+YPq+tnJHjC8szG+PyzrYg0ikZGkydexZqJKN1tBedbzwiLXV4I
k+OSs2luRd9qWtwQzQs8//mal9m0ob748RLdHm9Ir5k+181vR7nEfevjzH5o
9z76+uX+N8gKl6R2h4eAL3zmV/bcWxiyud/2WXqMmeXBgW6pd6CLrx22eBiN
tOmqVpbQ98gRi0osOpYIFt5McmysC+xezO/evE1GsA312lPhD8jIm5EKPpqO
JYXcMWuPHkhRZHZuNMjG7cONpZwNH6FjFG8TkpmHwfzGoE6BTwg3iVPW/ver
K7Zd8WKufSDPhL/WUCrFAcWNq9eqPiNj3+jjVrEyqKYIWBXtHMC5ptuiOQmV
uMd7RXDYaBCyXGKm2vw1EP96YXPP2SHMvkm0+jNLw45t80yNv4fwce9PEw2+
BjDWxhcIJQzDP+lK+5peE+yOVvVu0hhBw/aFqIipZuSeMXtaszSC0Fq+BzOp
rVic4WYdjxpFwcSTvKvGHaDqqjJQTo1BVCzafUzpLTzUfJ6Ujo9BrCVcz7G7
EwL96h9Tfb5A8dyBLFfn95CT8aZwHR5H7ol+FsPL3TDa8+bXuvfjyGO+W819
vAeLrSEjtzwnQM+jPh9r3IsYRpPbOsKTSDeaET/v1ocdA9QU+sZJ7HQd3t+f
04/19z31jjtMQV0r6YgSxxDosk0KRrZPg821TdDr3DAc4wpCttdP478VzYhc
6gheHPBnYrsxA42b6QpRe8fApu4o7sXyFQf53VUsHn3B54Nv37tUf0UJReaK
ufgECpMgPGYyi6APjKNbaiZhXCDNxrs6i74ypx8bDKfxwCfZ83POHBLKVtUS
9n9F3iRvPIsmCU5vyv4Fchb+iT6mA1okUqa8zBh+zsJCZ1YkX5tEjmjB1p10
c+Cpri48a0DC0et0jRLrHALDLr8MNiMxD87gXKk5WEvHLjC7kDBos1yud5iD
oDe72sYMEtKTwkubFuewKvvf1p4sEll3rn1Q/zuH3tnRdxm5JOZKWSVC1pMI
NygxPl1E4nya8ClOThJr+3WcfKr/7TWRLHIyJD53hiUxvCdRugknX/3bKfdd
Nn/fTcLD6lkKvxcJyokrYqkfSWiPRXu5BpLQSJcoVRr4x4u6UXA4nkSlc0eL
5xSJ4Us0Wuk/btTBY2HaX0l8k2xc2tVEwmEkQU+AJPHk0/lM9w4S+zSvD9J+
kODfEuis9Y/DuK4rLXyZRLyCS2z5OIkh6glb098k1mXcPSb8r1dtmyop9ZeE
YESq5qN/uWi+zYtrayQ6TQQG/+//A141k/U=
       "]]},
     Annotation[#, "Charting`Private`Tag$246508#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, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 1}, {0., 0.9999999387755115}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5580321891583953`*^9, 3.621231492717538*^9, 3.748020686848961*^9, {
   3.748020963189749*^9, 3.748020963736436*^9}, {3.749109119903737*^9, 
   3.749109120747785*^9}, {3.749111377232235*^9, 3.749111377978237*^9}, {
   3.7491873440207405`*^9, 3.7491873448157854`*^9}, {3.74937120545708*^9, 
   3.749371206238081*^9}, 3.8106556778115315`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[77]=",ExpressionUUID->"4e9467e5-4503-4871-937e-b43e877056b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"2", ",", "2"}], "}"}]}], "}"}], "]"}]], "Code",
 CellChangeTimes->{{3.558032197847597*^9, 3.558032229172402*^9}, {
  3.7480201992748165`*^9, 3.7480202257906*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[78]:=",ExpressionUUID->"fa810d68-537a-4ce4-b089-2c7b70970237"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[{{1., 1.}, {2., 2.}}]}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.9791666666666669, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.9791666666666669, 2.}, {0, 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.558032230748002*^9, 3.6212314929026904`*^9, {3.748020217045619*^9, 
   3.7480202274766283`*^9}, 3.748020686889929*^9, {3.7480209633256884`*^9, 
   3.7480209637684174`*^9}, {3.749109119936739*^9, 3.7491091207777867`*^9}, {
   3.749111377252235*^9, 3.749111378008238*^9}, {3.749187344051742*^9, 
   3.7491873448487873`*^9}, {3.7493712054770803`*^9, 3.7493712062580814`*^9}, 
   3.810655677860503*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[78]=",ExpressionUUID->"be55e625-60cf-4fa5-a365-1c0673881224"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0414\:0435\:0444\:0438\:043d\:0438\:0440\:0430\:043d\:0435 \:043d\
\:0430 \:0444\:0443\:043d\:043a\:0446\:0438\:0438", "Section",
 CellChangeTimes->{{3.5580321502675886`*^9, 3.558032151952389*^9}, {
  3.7480203339834948`*^9, 3.748020339864118*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"06e2d845-974a-44b4-b52f-42b1f592e5f6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"x", "^", "2"}], "+", "5"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], "=", 
   RowBox[{"Log", "[", 
    RowBox[{"5.0", "*", "x"}], "]"}]}], ";"}], "\n", 
 RowBox[{"p", "[", "5", "]"}], "\n", 
 RowBox[{"g", "[", "1", "]"}]}], "Code",
 CellChangeTimes->{{3.5580321725599923`*^9, 3.558032186053995*^9}, {
  3.748020343643949*^9, 3.7480204092583046`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[79]:=",ExpressionUUID->"98b7e6f2-892d-456b-9c33-68f55f47e484"],

Cell[BoxData["30"], "Output",
 CellChangeTimes->{
  3.5580321891583953`*^9, 3.621231492717538*^9, {3.748020393999074*^9, 
   3.748020410110819*^9}, 3.7480206869079185`*^9, {3.7480209633386817`*^9, 
   3.7480209637804103`*^9}, {3.7491091199687405`*^9, 
   3.7491091208057885`*^9}, {3.749111377282235*^9, 3.7491113780382376`*^9}, {
   3.749187344083744*^9, 3.749187344881789*^9}, {3.74937120549708*^9, 
   3.749371206278081*^9}, 3.810655677889739*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[81]=",ExpressionUUID->"0c91be32-cee1-4384-8ab5-189966f9d699"],

Cell[BoxData["1.6094379124341003`"], "Output",
 CellChangeTimes->{
  3.5580321891583953`*^9, 3.621231492717538*^9, {3.748020393999074*^9, 
   3.748020410110819*^9}, 3.7480206869079185`*^9, {3.7480209633386817`*^9, 
   3.7480209637804103`*^9}, {3.7491091199687405`*^9, 
   3.7491091208057885`*^9}, {3.749111377282235*^9, 3.7491113780382376`*^9}, {
   3.749187344083744*^9, 3.749187344881789*^9}, {3.74937120549708*^9, 
   3.749371206278081*^9}, 3.8106556778927374`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[82]=",ExpressionUUID->"0c8b85b0-8a2c-4396-a098-b1a5b3ee5cb3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "x_", "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"x", "^", "2"}], ",", "x"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"p", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"p", "[", "x_", "]"}], ":=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"x", "^", "2"}], ",", "x"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"p", "[", "x", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "5"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:043d\:0435", " ", "\:0440\:0430\:0431\:043e\:0442\:0438", " ", 
    "\:0442\:044a\:0439", " ", "\:043a\:0430\:0442\:043e", " ", 
    "\:0441\:043c\:0435", " ", 
    RowBox[{"\:0441\:043b\:043e\:0436\:0438\:043b\:0438", " ", ":", " ", 
     RowBox[{
     "\:0432", " ", 
      "\:0434\:0435\:0444\:0438\:043d\:0438\:0446\:0438\:044f\:0442\:0430", 
      " ", "\:043d\:0430", " ", 
      RowBox[{"p", "[", "x", "]"}]}]}]}], "*)"}]}]}], "Code",
 CellChangeTimes->{{3.558032197847597*^9, 3.558032229172402*^9}, {
  3.7480201992748165`*^9, 3.7480202257906*^9}, {3.748020429296792*^9, 
  3.7480206323582277`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[83]:=",ExpressionUUID->"5e5bc007-1e19-42ff-a308-abd3e9a5b0ef"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw90H1MzHEcwPE7V8l1petLVLp+17c5rjz9YZOp74dsohiSJvPQ0QMStW5L
haSkWRxakrVbImtWHnZseQhJ6emM81ymdY5JbeVcdT3Kfh/3x3uv/99y1aHN
sVMEAsH6yf5ZekzlsGRvRjDvmeB6AxcexW1jvPvYREPtSc7mEVb6tMDH3mY+
SwxSHxz0+e9lZhhJKOyzWcmmtncpem3WsLJmbfIvm02s+lZ+e+LCZvQzi2ev
L/ekGFAjSzLNN+qqP6E/mVieo/i6rBPtY2ddW5Rlu42omanatzwRtX5HB1jy
ixzVIUU3OszuHJZEzF7bi46xsowD3Yuj+lABZGtHN/3p6We8QhAYOuFRupnx
imBualzaFqWF8drDN8ulrU6PBxivA6wz7T96IXmI8TrChm8af5lsmPGKofu5
Kutl1QjjdYKF0vfeIbvGGK8ziJklpsM8znhdYE1v9KBvpAB1hY91e4XRAUJU
CvdO1+/kLEJUCnH26k69fgrqBntSMu5JSkQogUXx/vrwGDt0BrxyC3BSB9qj
M+FhdfaVAJED6g4ZQuXG1i8OqDuIO9JDk3RT0VlgqpAXajMd0dlQOM/DriZy
GuoBmpK4xhhOjHpCdOEOveSHGPWEodXXrdpaJ9QLjKZVaXV5EnQOXA1a4tUW
44x6Q1WuWhq/wAWVQV7knjCRxQWVwdKOssq8tumoDxTPv1LVFuaKcnD8aUFx
WI0rysF6r8jrzX5SVA4rkxq3S/OlqBy0c1R+rZNfeeXg9/xG0YbtbqgvaBbU
Kd/UuqG+EGe2e92kJCgF1Z3fXP45glJIzI4YXXeeoBTUEboPkosEpXDaoj6r
KSIohepA68ilUoJSsD6beF9xk6AUNG8kBfWNBKVQUn4w4VQTQSmUp+pDQlsI
SuG+u2a4RU9QCh3RJMHwjqAUFEaPkC4jQSks1qXLrpkISmF5brs19gdBKYQr
Sm//7CYohZQDnKy/n6AUMlecsN41E5RCrnPX21QLQSkU3yo/MzREUApXs+zi
HwwTlMLNTbGrMkcJSkHn2+AdPE5QCrXmudaJCYJS+Asa8S/v
       "]]},
     Annotation[#, "Charting`Private`Tag$246592#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, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 5}, {0., 9.999999795918367}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.558032230748002*^9, 3.6212314929026904`*^9, {3.748020217045619*^9, 
   3.7480202274766283`*^9}, 3.7480204566440873`*^9, {3.7480205906261826`*^9, 
   3.748020633043836*^9}, 3.7480206869569063`*^9, {3.748020963372657*^9, 
   3.7480209638134136`*^9}, {3.749109119997742*^9, 3.74910912083279*^9}, {
   3.749111377312235*^9, 3.7491113780682373`*^9}, {3.7491873441137457`*^9, 
   3.749187344909791*^9}, {3.74937120552708*^9, 3.749371206308081*^9}, 
   3.810655677946706*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[84]=",ExpressionUUID->"f85d70cf-aa72-4872-9465-ad741c7ce683"],

Cell[BoxData[
 TemplateBox[{
  "General","ivar",
   "\"\\!\\(\\*RowBox[{\\\"0.00010214285714285715`\\\"}]\\) is not a valid \
variable.\"",2,86,45,18060629650815555421,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7480204565571384`*^9, {3.748020590441291*^9, 3.748020633121792*^9}, 
   3.748020686997866*^9, {3.7480209634286118`*^9, 3.7480209638743563`*^9}, {
   3.7491091200477448`*^9, 3.7491091208387904`*^9}, {3.749111377342235*^9, 
   3.7491113780782375`*^9}, {3.7491873441397467`*^9, 3.749187344913791*^9}, {
   3.74937120556708*^9, 3.749371206318081*^9}, 3.8106556780196652`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->
  "During evaluation of \
In[83]:=",ExpressionUUID->"22c6cdad-7132-42ee-853d-fbbe603b985d"],

Cell[BoxData[
 TemplateBox[{
  "General","ivar",
   "\"\\!\\(\\*RowBox[{\\\"0.10214295918367347`\\\"}]\\) is not a valid \
variable.\"",2,86,46,18060629650815555421,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7480204565571384`*^9, {3.748020590441291*^9, 3.748020633121792*^9}, 
   3.748020686997866*^9, {3.7480209634286118`*^9, 3.7480209638743563`*^9}, {
   3.7491091200477448`*^9, 3.7491091208387904`*^9}, {3.749111377342235*^9, 
   3.7491113780782375`*^9}, {3.7491873441397467`*^9, 3.749187344913791*^9}, {
   3.74937120556708*^9, 3.749371206318081*^9}, 3.810655678059641*^9},
 FontFamily->"Arial Narrow",
 CellLabel->
  "During evaluation of \
In[83]:=",ExpressionUUID->"bfa80bf7-6088-45c8-a17f-b941ccddee89"],

Cell[BoxData[
 TemplateBox[{
  "General","ivar",
   "\"\\!\\(\\*RowBox[{\\\"0.20418377551020409`\\\"}]\\) is not a valid \
variable.\"",2,86,47,18060629650815555421,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7480204565571384`*^9, {3.748020590441291*^9, 3.748020633121792*^9}, 
   3.748020686997866*^9, {3.7480209634286118`*^9, 3.7480209638743563`*^9}, {
   3.7491091200477448`*^9, 3.7491091208387904`*^9}, {3.749111377342235*^9, 
   3.7491113780782375`*^9}, {3.7491873441397467`*^9, 3.749187344913791*^9}, {
   3.74937120556708*^9, 3.749371206318081*^9}, 3.8106556780736327`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->
  "During evaluation of \
In[83]:=",ExpressionUUID->"3a8a2e8a-cfdd-46e6-89f0-e7cb598c775a"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \
\\\"::\\\", \\\"ivar\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \
this calculation.\"",2,86,48,18060629650815555421,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.7480204565571384`*^9, {3.748020590441291*^9, 3.748020633121792*^9}, 
   3.748020686997866*^9, {3.7480209634286118`*^9, 3.7480209638743563`*^9}, {
   3.7491091200477448`*^9, 3.7491091208387904`*^9}, {3.749111377342235*^9, 
   3.7491113780782375`*^9}, {3.7491873441397467`*^9, 3.749187344913791*^9}, {
   3.74937120556708*^9, 3.749371206318081*^9}, 3.810655678105614*^9},
 FontFamily->"Arial Narrow",
 CellLabel->
  "During evaluation of \
In[83]:=",ExpressionUUID->"1f237b87-7833-4c54-a423-ab4a6adbe8fb"],

Cell[BoxData[
 GraphicsBox[{{}, {}},
  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, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 5}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.558032230748002*^9, 3.6212314929026904`*^9, {3.748020217045619*^9, 
   3.7480202274766283`*^9}, 3.7480204566440873`*^9, {3.7480205906261826`*^9, 
   3.748020633043836*^9}, 3.7480206869569063`*^9, {3.748020963372657*^9, 
   3.7480209638134136`*^9}, {3.749109119997742*^9, 3.74910912083279*^9}, {
   3.749111377312235*^9, 3.7491113780682373`*^9}, {3.7491873441137457`*^9, 
   3.749187344909791*^9}, {3.74937120552708*^9, 3.749371206308081*^9}, 
   3.8106556781186094`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[86]=",ExpressionUUID->"f7669c5b-d5b8-44fe-826d-993dbe485168"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0420\:0430\:0431\:043e\:0442\:0430 \:0441\:044a\:0441 \:0441\:043f\
\:0438\:0441\:044a\:0446\:0438 \:0438 \:0446\:0438\:043a\:043b\:0438", \
"Section",
 CellChangeTimes->{{3.5580321502675886`*^9, 3.558032151952389*^9}, {
  3.7480203339834948`*^9, 3.748020339864118*^9}, {3.810654880922615*^9, 
  3.8106548877410007`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"ab5790ed-930c-4652-b144-524432b6dffd"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"list", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\:0438\:043d\:0434\:0435\:043a\:0441\:0430\:0446\:0438\:044f\:0442\:0430",
     " ", "\:0437\:0430\:043f\:043e\:0447\:0432\:0430", " ", "\:043e\:0442", 
    " ", "1"}], "*)"}]}]}], "Code",
 CellChangeTimes->{{3.5580321725599923`*^9, 3.558032186053995*^9}, {
  3.748020343643949*^9, 3.7480204092583046`*^9}, {3.8106548914597893`*^9, 
  3.8106549549202433`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[87]:=",ExpressionUUID->"98439885-e057-43dd-8612-dc7effeaf91c"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.5580321891583953`*^9, 3.621231492717538*^9, {3.748020393999074*^9, 
   3.748020410110819*^9}, 3.7480206869079185`*^9, {3.7480209633386817`*^9, 
   3.7480209637804103`*^9}, {3.7491091199687405`*^9, 
   3.7491091208057885`*^9}, {3.749111377282235*^9, 3.7491113780382376`*^9}, {
   3.749187344083744*^9, 3.749187344881789*^9}, {3.74937120549708*^9, 
   3.749371206278081*^9}, 3.8106549113520207`*^9, 3.8106549555368853`*^9, 
   3.8106556781435933`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[88]=",ExpressionUUID->"53b88e45-362f-456a-99ee-b5edefce63f5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "10"}], ",", 
    RowBox[{"i", "++"}], ",", "\n", 
    RowBox[{"Print", "[", "i", "]"}]}], "\n", "]"}], ";"}]], "Code",
 CellChangeTimes->{{3.558032197847597*^9, 3.558032229172402*^9}, {
  3.7480201992748165`*^9, 3.7480202257906*^9}, {3.748020429296792*^9, 
  3.7480206323582277`*^9}, {3.810654961859389*^9, 3.8106549819505873`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[89]:=",ExpressionUUID->"9c689601-9e6b-4d11-8736-b268044847b3"],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.810655678170578*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"88a5c32e-4a69-4074-804e-12731fd5fece"],

Cell[BoxData["2"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.810655678174576*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"3d7e0932-add6-4c93-98ab-bf233383e288"],

Cell[BoxData["3"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.810655678178574*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"8d8c474d-967a-4202-8bb7-fab0e33f583d"],

Cell[BoxData["4"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.8106556781805735`*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"1c2f3008-8121-4c30-8cd6-4fcea0052f8e"],

Cell[BoxData["5"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.8106556781815724`*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"fcf21652-86b2-4841-9118-b62dc80847da"],

Cell[BoxData["6"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.81065567818557*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"6d4b3068-47df-4605-b817-5fb94193c815"],

Cell[BoxData["7"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.8106556781875687`*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"17351a61-9bb0-4fa5-8f79-a9e61c2182f4"],

Cell[BoxData["8"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.8106556781895676`*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"8a724bb0-4f24-41c0-986f-6749a20383f5"],

Cell[BoxData["9"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.810655678190566*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"1ce7713b-00cd-45cc-9a26-b15facccde0a"],

Cell[BoxData["10"], "Print",
 CellChangeTimes->{3.810654984108406*^9, 3.810655678193564*^9},
 CellLabel->
  "During evaluation of \
In[89]:=",ExpressionUUID->"fd6802cf-76cf-4d78-957b-f331e26d8de8"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041f\:043e\:043f\:0443\:043b\:0430\:0446\:0438\:043e\:043d\:043d\:0430\
 \:0434\:0438\:043d\:0430\:043c\:0438\:043a\:0430", "Title",
 CellChangeTimes->{{3.7479047580084066`*^9, 3.74790475918773*^9}, {
  3.74790479179202*^9, 3.747904805878929*^9}, {3.7479164767153378`*^9, 
  3.74791651914298*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"65241044-c04b-4858-94f9-6a7a4a5049cf"],

Cell[TextData[{
 StyleBox["\:0414\:0430\:0434\:0435\:043d\:0438 \:0441\:0430 \:0434\:0430\
\:043d\:043d\:0438 \:0437\:0430 \:0440\:0430\:0437\:0432\:0438\:0442\:0438\
\:0435 \:043d\:0430 \:0431\:0438\:043e\:043b\:043e\:0433\:0438\:0447\:043d\
\:0430\:0442\:0430 \:043f\:043e\:043f\:0443\:043b\:0430\:0446\:0438\:044f \
Paramecium aureia:\n", "Section"],
 StyleBox[Cell[BoxData[GridBox[{
    {
     RowBox[{"\:0431\:0440\:043e\:0439", " ", "\:0434\:043d\:0438"}], "0", 
     "2", "4", "6", "8", "10", "12", "14"},
    {
     RowBox[{
      RowBox[{"\:0431\:0440", ".", " ", "Paramecium"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"aurelia", " ", 
       RowBox[{"(", 
        RowBox[{"\:0432", " ", "\:043a\:0430\:043f\:043a\:0430"}], ")"}]}]}], 
     "4", "10", "46", "66", "70", "69", "71", "71"}
   },
   GridBoxDividers->{
    "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
     "RowsIndexed" -> {}}]], "Section",ExpressionUUID->
  "8ef904f7-8617-45c2-8a0d-62760aff4722"], "Section"],
 StyleBox["\n\:0414\:0430 \:0441\:0435 \:043f\:0440\:0438\:0431\:043b\:0438\
\:0436\:0430\:0442 \:0434\:0430\:043d\:043d\:0438\:0442\:0435, \:043a\:0430\
\:0442\:043e \:0441\:0435 \:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430:", 
  "Section"]
}], "Text",
 CellChangeTimes->{{3.747915250342267*^9, 3.747915274551388*^9}, 
   3.7479163045241694`*^9, {3.8106545286183205`*^9, 3.8106545551429253`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"6184e574-a695-4b12-9439-8b5132563371"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:043c\:043e\:0434\:0435\:043b\:044a\:0442 \:043d\
\:0430 \:041c\:0430\:043b\:0442\:0443\:0441 \:0441 \:043a\:043e\:0435\:0444\
\:0438\:0446\:0438\:0435\:043d\:0442 \:043d\:0430 \:043f\:0440\:0438\:0440\
\:0430\:0441\:0442 r=0.55;",
 FontFamily->"Arial Narrow"]], "Subchapter",
 CellChangeTimes->{{3.747904818426734*^9, 3.7479048193821764`*^9}, {
   3.7479164342577047`*^9, 3.747916435390059*^9}, {3.7493711222129283`*^9, 
   3.749371130084944*^9}, 3.810654575342098*^9},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"c7a66147-fa1d-413c-becd-04e0b9e3d74e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", "\:043d\:0430", " ", 
     "\:0437\:0430\:0434\:0430\:0447\:0430\:0442\:0430", " ", "\:043d\:0430", 
     " ", "\:041a\:043e\:0448\:0438", " ", "\[IndentingNewLine]", "   ", 
     RowBox[{"u", "'"}], 
     RowBox[{"(", "t", ")"}]}], "=", 
    RowBox[{
     RowBox[{"r", " ", "u", "\[IndentingNewLine]", "u", 
      RowBox[{"(", "0", ")"}]}], "=", "u0"}]}], "\[IndentingNewLine]", "*)"}],
   "\n", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{"r", "*", 
        RowBox[{"u", "[", "t", "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"u", "[", "0", "]"}], "\[Equal]", "u0"}]}], "}"}], ",", 
    RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7491036411884604`*^9, 3.7491036609585915`*^9}, {
  3.749371109359907*^9, 3.7493711130219126`*^9}, {3.81065401621122*^9, 
  3.810654049168922*^9}, {3.810654156061676*^9, 3.8106541712284613`*^9}, {
  3.810654205607986*^9, 3.810654277367134*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[90]:=",ExpressionUUID->"538a96d4-93cc-44af-85de-4ffd8f17cba5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"u", "[", "t", "]"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"r", " ", "t"}]], " ", "u0"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.749103661931647*^9, 3.749103678910618*^9}, 
   3.7491091212508135`*^9, 3.7491113784582376`*^9, 3.749187345320814*^9, 
   3.7493712067090816`*^9, 3.810654179910568*^9, 3.8106556782265477`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[90]=",ExpressionUUID->"43599ae1-b71f-4ca9-8c91-52ded428e828"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"r", "=", "0.55"}], ";", " ", 
    RowBox[{"u0", "=", "4"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"plot1", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "46"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", "66"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"8", ",", "70"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"10", ",", "69"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "71"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"14", ",", "71"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"16", ",", "71"}], "}"}]}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot2", " ", "=", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"4", "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"0.55", "*", "t"}], ")"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "16"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"plot1", ",", "plot2"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7479052487668943`*^9, 3.747905256496458*^9}, {
   3.7479055201321516`*^9, 3.747905525318166*^9}, {3.747905596260439*^9, 
   3.7479056795736127`*^9}, {3.7479057281767187`*^9, 3.747905785826625*^9}, {
   3.7479060982213125`*^9, 3.747906103378351*^9}, {3.7479065106738267`*^9, 
   3.74790659746501*^9}, {3.747906655837505*^9, 3.7479066571867313`*^9}, 
   3.747906707553822*^9, {3.747906789392855*^9, 3.7479067938972597`*^9}, {
   3.7479068486918125`*^9, 3.747906922488448*^9}, {3.7479069749523354`*^9, 
   3.747906984597799*^9}, {3.747914895235098*^9, 3.74791503035454*^9}, {
   3.747915066857587*^9, 3.747915067510212*^9}, {3.7479151166190243`*^9, 
   3.7479152292293854`*^9}, {3.7479153274230223`*^9, 
   3.7479153363009267`*^9}, {3.7479162426507006`*^9, 
   3.7479162803750324`*^9}, {3.7479235236183095`*^9, 
   3.7479235272192254`*^9}, {3.7479235876175604`*^9, 3.747923593881962*^9}, {
   3.7480206625848827`*^9, 3.748020665727075*^9}, {3.749102983391836*^9, 
   3.7491029902442284`*^9}, {3.7491032468749065`*^9, 3.749103266743043*^9}, {
   3.7491036258685837`*^9, 3.749103630469847*^9}, {3.7491036698951025`*^9, 
   3.7491036757784386`*^9}, {3.7491048844395704`*^9, 3.7491048858596516`*^9}, 
   3.7491063959000206`*^9, {3.749106430414995*^9, 3.749106433536174*^9}, 
   3.7493711180889206`*^9, {3.810654313596737*^9, 3.8106543268369293`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[91]:=",ExpressionUUID->"5dd5e34d-49e5-4a05-bebb-f3cf7319e722"],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[{{0., 4.}, {2., 10.}, {4., 46.}, {6., 66.}, {8., 70.}, {
       10., 69.}, {12., 71.}, {14., 71.}, {16., 71.}}]}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVlnc0FY4bxq3ia7tkl2td6xpFSHEfo+yQrJKZWZmRRGRnVSi7iLJXEZWd
UWlIRsOojIhCqIz49fvrOZ9zPuf97z3PI+zkfcSFhoqKSpuaiur/aeAy/aZ1
5rqGQcBeBSoqdtBp8/uM8Z2lNBxIYyEwsUPxVkbOfb4oSpdmeqoMNzsMXw7d
y+VLo6gXtVQGkNlhdfJ3UwpfISVdZuyBqw07RuRjtZP4aimq/JUdrbXsyNth
EhPP10F5rSllcsGXA5cY7ktc5uunJDy2rzag44S07rW4ez79FJ3TuZnJBE70
RXvPfOzup3RuHFYeIXJCjJZcJhc4QJGokC/NUudE199Cuf6+QUoxq4Rd+jlO
MC/d2CuU+J7iXjcneOs7JzJGgrXrNkcpzw81nBL5wgVrm/yqhcUJiu1bx12f
f3Bj/uNRxtv8kxRD4YDRhU1uxNgxuJhrT1IK+jHKxMaD+87e/A/SJin9VvGN
zvI8YPVSj76gMkWJEPzwJtuHB50R749tD/1K2fC2d1Ra4cGeco7tggzfKJ/O
FBqDng9MW5dsdXfNUz6fc/fKMxVAhoeVHfnQPIVGdizX0VkAYv1kBw6veUpz
83CFfKAANEqGnD82zVPolXtTfmYL4GHJjbp6uQXKZmSRB9e0AL6bzzUavlqg
5CnXSfRGCMKiOL3Hn+Unpch3hcO9fSfEzX5MP0lYpvyeF+XjVSaCP0xXzS1/
mbKdKdRPRosI9oq8BMb6ZYq9S/xz3cNErDGYy5l9Waa8fpd6LduViN7Wev9R
1RXKKKuqanU6EcEKlzb/TK5Q3DSZx1LXiXjFxsUlh9+U64qyxwOeC+Pcq32U
jOVVSsKBjF7VGFGwytVNPmNYo2RZZwr1pIqiMEkhcV1wjcJmmjfimi+KN0YS
7+0OrlHGFLZaHzWKQqaHy1/8xhqFw7BxpH9JFGPd83fvqaxTFKV367xzFoNu
2x3Wl8EblM1RPmdDQ3Hw1HKMUlNvUdyPND/x3icB28T1oxPcW5RLvn+2fhhI
4PbJyZ4u8halLu615wVbCZB3PHyYYL1FGavbsfw4TAJagQ7Xd1RvUfgmvs8N
d0lAOcfqbpo8FUwu0psWWUnC0e7uieJRKmxKNey5GymFB1+0X7w+QINpQr5z
CT0Zg3qXFpN0acARPPHopCAZvyqbuY2O0OA6Vb6b/G4yVC7sc3zqRoP3HrM/
fh4jo4FT/ldrCg2sm1yXFavIeKjDT7w3TQM9DC8VHZNF490F/7Q0Wmg3t5mV
Nsmh3TNXwGaODqYLd8kuHxVwf+bUKbtfdODaJiSz/asCCt3VHjtTbYOXkZ58
1U8FRLsOHfPi2obbWgN2fIy7oefEkRV5YBs8PjT/OrxvN17bRPNWJm7DiZTy
Fe3M3RjWO7ODVnY7In8u2Yba78EKSZ2t4gw9trvzJoZsV4LGF63u+CB6PP4R
9v7cDiXE5OqFuUfSY5ygZntRTAncXEfnRTPp0c6gIlqhpQRl6lOvszr+cX9J
QUqYEoI+ZlyJE2CA7sLaZNS6EjauLLOdfMYAXj1CuPbGXtCslrELiDNCuNcm
XkJUFQIvtZYo8oxYGaTpoVFShVL++4GT+xhhG6v5ZkZHFS769NmVxow4Muxm
8tFVFU8zncS1AhlRH/Jz1ahMFVfU+NQ8uhkhPT1q5ae8D4IhMc71Hky4uUia
o7JUg/KWwwPzSmb0UUTJQo0HYGTcGnGwgRn6xezkntcH4JwtZKLSzozdhIKC
qPEDuKoy+pV/kBlSmjd3EZnUMeN9nO/LX2Y09hforh1TR84nixAfYxbkLyZk
aP9VB3W7gVbSHAueuSUInTGi4EWU0qsuaTaMax+KL2TShBpbD821vWwQ+Dyy
5zCvJoozHVWOgw1u529qU4trIrIyOW/egg1MVakPIzX++e+m/XgvscFZX7Nx
zfefL5PL4znEhkyDcIv6D5rQmomo3q7Fjr2hcvW597UgdHV2teQHOzzUA9yf
Rumg2TGs5N4SO7TNuISoU3Vgp8hp8/gPO3hWd9Ro5+sgZ1Ct4QUNByqzMiOm
mnTAuzM+cJ6bA4ZivDkFv3VAKJVcUqJwoMDcppH6zEFs63CZa7nCgW+v3xmF
2R/C7O+x0QEFAr4HTDHvdNHDA7cr7QbKBJRFF0T7ntND+JDG3Zb9BIS6q3a8
vawH7vrcMyWHCPAPtGxsq9T793/HN0JsCZjiJjTqrOoha3mQTyyOgLR9rxUW
rupDb/HlUb8xAl5MRB+W7DFA4bfHz1mTOZFbciE39YwxvNJNRD1TOSE/25Os
F2kMFZ3xC50ZnHCMY4xkyTTG81xG2ZACTtR7ZhZ0dxhj0dTmykwDJ9rFBjg2
BQ9Do/6Xecc4Jxg3z5Au9h7G+8jdI+f3cWFFzS6FXcQUrDuL5icmuBDGFWHm
UG0GWEaOjM9wIWbMmJTQaAa/K/Y9X35wgeFTnk3zUzMMUvMWffrDhemTX3+q
fzbDzak4u2HmHRBgFU65TTgCuWrPl2+VdiDPoiV/+7kjMNaWK2uP2oG0DqXX
zofMkehR55onxo2Z0dDwV1QW+IaKOCZpbuynpOoFs1tAl/dOaaA8Ny4eWGnb
TbQATXfaDyM1bnjwJMw+oVjgvNjZwFUTbuhKfGILDLOA69iemCMXuFF1e8SR
j9oSmhbVd+j6uOEw/KE6m8UKv1A24R7Gg1oZv7/5xjZoLJzNPhfFA0Hti1Ww
t0EEA9k85jIPfgReuTvrYwPW3vK2glQeCIktR7um2YBkX3lztIgHm/vPry18
tIFlaI310V4e9JR3mTucOYa6h/UvKMK8GFM4+XYq8zjO7umo5X7Ci/LEIXKG
gB1clYh5157yYs2I7prpHjtYK4ckML/iheh/p/n59e2wX03JieY9L4ZU63s/
BdqBRquQ7ccPXvAozqlovLXDFbMoz05+PtRSmgN1rtij1EeHeNaPD99+U1/w
infAWGVHwhthfoSqRBBLyE7o/U43t0eCH2K8N0lENSe0kg8apZH5cRexpHxd
J+SVdjJbqfBjF5PV7jYnJzjd7UoaNuJHVpCKdnCmE6Zyn175eo4fXzgi5wYZ
nPE98UXq35f8mF1+Iuwz74x1z/5sqWABpJ4yrBgfccFR5RPX5MIE8ItoakP1
3QXl1FMxilECyNZZCpTYcIFdxm9f9WQBLDf8Eb3O74q2Tn49s9sCSMwxZ5+3
ckUs0XE56LkAHI19cwv6XcE5+N3oKb8gir3G57UH3SCjSb/p+lgQHXMHObk3
PFBdWibxrlUQC8UyG8lsnlDiMjXT7/rHG7dDuEU9ceBrRqHMG0E0/2XyMTPw
xOEkacOFKUFE31g7GpTpCb/3xhnnCTvRvkewP1XtFB76pu1J9NgJhbIYfbO4
09C9LexWw7MLhtOdn8OOekMpg5XUJbgLf/c2b3l6eoOYvD7xQXgXnJr3+7uE
e2Pt/IATHXkXQoXro+PKvVFhdtnOCruQGHtWu4PGB5zUixZ/3XdBsSWo/cAJ
H4zZt+roP9qF68+OVyjz+uLcTnuRz7ZCENK+tplS5AcnUwXLYUchMM6EHLKr
9cPhSOr4IVchfLB8dHRPmx9IMwWLL32E0CKsObz8wQ/9tdOtj6KEUHucTnOC
1R8KRn72aeX//A9aj32D/DEdHJ2juyGEcx6hRP8jZ0Ges2AaMiZCzXU14oJo
IBqOGrXEmxLxaJrmxbJiILSbtPw1zIn4VqpsFawTiGPJ8h/vWBOR4ppnXeoS
iMsK/5WddSbCaH8Kw63iQEydbTQgnCfCgU3iwLjCOeT9FYk3LiSC6TfxOJ9h
EDjZFhg61oj472ZQsltxMPqa4mP1/xLRKutD/+1RMFJOi29/vUUE9beYY+df
BoPw/BjtBzphGG88u9f88x9Hd/6dZxWGJTWTxKT6BbCvZ/0UEBXGkwYya8ng
BTB/PTjsbyiMFn3ZAmNCKOhasqtEc4TBU/J3Vrw2DB8O6OiN3RTGXZVqc5oX
Yah6NPcpK18Y+Qb11QvjYTj2QJ1AKPq36+57tVIzhqOmYuws1T1hrAxoXLik
Fg67HFG1kW5hvD2vnqeWG46G82UdN5aEEfzs4acOj0s4pfT4/X+GIrBTTh7p
J0aitXegvMFYBI8Yj6/8kovEjjMLYW6mIrA08L4oqh6JljvipE4LEfBdMqXN
sYkEJ89Vv3AHEQzJu9UwpUbi8epJpt8BImB+aB86Rx8FphZW9Yk8EVRXP9qY
XY1Cmb5TXvMvEVwrSxmsp4qFEllYg7IqgvHl05XX2GPRzPrpY8u6CF7+DPEL
JMai9+0JnjYqUTy4ZjfigFgsn7BJfsIoiqvq8oRH4bHQ8DMNebpLFD7p/iVR
tHHozdKw7jskimr19d01HJexMsvPPnVDFCYx2z7JHUlAWu7X7pxMUVSNWvFn
uSZA0aQ2zDxHFEqN5ulcFxLge894vvXf7i1ym49RKUzA96DwV9nlomj9InlR
+XcCJrdNJZq1i0L2Q+yySF4iBoRq/mv6LopH3Y4s/20moc5clzZNRwxNq92C
DoFXEWfYEC2oKwYXmjS64UtXYastxXBHXwxdMvvm7ZOugkaRieXBYTGIO54Z
Dyu8isOE19zvrMXg3f59gvj2KqZ7LaUFz4iBSapdZ273NfAfdjUrvC4GHdJX
ljcr1xCmF32rdkoMCdnTXOIZqeizc7dVmBED7VyHfsKdVIgFGPKVz4rhUrFZ
8dq9VDzP50gtWBAD79zV9eWXqeBaz41JWRPDmS+kMmu6NBRXPDjjwyoOqsRv
rZ/90tBLmN5PVhZH15M5iqTVdQiPGLwriBaHR3/7IWqNdMS376+yiBNHEhfj
e5ik42cROYY+QRzlL6RVkxzS0e7HqnTqqjhCPmxGGEWm4yRD35U92eK4+6rY
0vVZOooVbXTbqsUxCqlTbNYZkIt3ezD6URzT4wHeIWGZUFOJSuPbQwKfSs0b
2tVsDDrxKecqkdB4WrfQkTkH/smVQ0QVEmo1rMZeCOWgfPIdv+QBErQHmWp7
DuVgV5psvvIhEiYTDEZOXc8BzeJghfkxEoy4wn009uaip1SqOymCBP9PX7e8
w27CdtfrVeq3JAQdtNwtkJcHVj6/uscDJIQZ0E9eL89DG+cO34B3JKj+fvCL
72EeSP8dn54eISHZX8VUoy8P80tTg6+nSWi7MZP/hy4fEc827+dukvCmZotG
7XQ+is/Kee2TlsC3r/SLIlq3sfI86YvPJQm4NfOU7mMpxDDTgPtGpARIAZdV
dQUK0W4kOB8bIwGWeL08O6lCXH1Vun4zQQInGk14yg4WQrqvm+vldQmku/9x
eXyxEHbvqXWlSiWwM96vpOVnIbq+BpR97pPAOUarubgvd5BBZ3f2iJgkIkvc
nVq/FGHTmWfvG5IkJI/ufyC1VISTT3pXTKQk4ZpRa3qTthgKEdrnjOUkQbif
G1QiVoynW5LBeqqS0A2J89JzK8bvtaUwDSNJ/B2xHaz6UQzLxcsJ0mclwVKl
22e7vRSco3W3aTok/zXK0jzt8XIkM4eG1ndJ4scrjmiSTzkY9+tYn34mCfGB
bR+to8tBk9HHMvhKEu3VXn/mqsrx02w+qOS9JHhY9uj0b6tAb6ekiem8JByq
6dJKaiuQWJG9nssvBdn52ykdu6qwLfTS0X2+UuCsYrd8wlmD2sW51RZ/KdS+
MdEqFKrBSVfrW4cCpSB1vdM3SaYGHSby38wv/GMVy5og7RpEiYyEeUVLYf/8
8tH7/jWge6paVpAphWmWOoPmgRrQcC5Qs7ZLYY4lufxo3j1QldhVfSFI43Ns
pPCYaS265oa8bu2Qhv7y1md5h1okKpjJ2fJKIzBYUS7RuxY8DdoVAzul4bAv
PdEtuRZy3ZJlTyWlkfXqjmXpi1rYTv68W6khDeUdhz+5GdbhoXDszWBPafza
ClSgOfIAfllVSYR2abjGh1B3RTegfiMrtr1DGjUCmipz6Q3YsIu55NctjQiT
2o9CpQ2IFT0R0PdCGrSzvhlVrxqQU854ImVIGr6UwFVf3ofobHYhE75Lo78p
QDGh8iF4xwV6OHhlULf8e9xq8hGaZOIYOLxkcKLQ7uuDsCYo9/O8TPGRAQ0h
kZ0rrQnVIUXXuPxloCgcpRdW3ITbL7v4eYNk4KFWzhT+pglx3ttkhSJkMEVU
X5ARa8aR+xFmsjf+3Q8veLv3RTO+qoVm6TfLIMb1zv5yzlZwGPiRI1jJiKAb
5SXEtCGvjY1JjYMMM9Zwd4XUNijsq5hZ5CTD5cbueOu8NhyWnL7ryEfGnT4F
x65HbYjfbiesKUZG5nw/mW+hDXRP9Lmp1MhYDivoyrdtx6/9wlQXXcgIP1Kf
dFb9CYZle9+ebyTjY1ca7SehTtya5QilbSEjkuSrWCDXCacSc1JSGxmKsqa1
PuqdmBEbCsrrIsPq3mKn9PFO/BIY3dndS4YCz+iSQHonOBjn3LgmyfhMvzj+
h70Lh6boNypZZBEw0OX7hrkb1TcpYhN2sigZUH5SQ3qGpeAlekdHWRx6Rds8
p/IMylZFsyPOsrhvUhKjqP8Mj9nY7g+5y+Km8nD+xKln6Aof1ezxk8WJkvLx
gZpn+OgUan8vRhbGv+51rlOeY7vE46zwSlnYNhyoveLSg75ipT8jNbJo3398
Ynt4D/4H5EvyVA==
        "]]},
      Annotation[#, "Charting`Private`Tag$246794#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, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 16.}, {0, 71.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7479052568122773`*^9, 3.747905525809885*^9, {3.7479056197329617`*^9, 
   3.7479056801232963`*^9}, {3.7479057287553844`*^9, 3.747905786502243*^9}, {
   3.7479060994586*^9, 3.7479061040469685`*^9}, {3.74790657425933*^9, 
   3.7479065981466208`*^9}, 3.747906658004261*^9, 3.747906708260414*^9, {
   3.747906790080449*^9, 3.7479067948856907`*^9}, {3.7479068608168545`*^9, 
   3.7479069231840506`*^9}, {3.7479069756599283`*^9, 
   3.7479069853523636`*^9}, {3.7479151811419888`*^9, 3.7479152302418036`*^9}, 
   3.7479153371584377`*^9, {3.747916243963932*^9, 3.7479162810796432`*^9}, 
   3.747923528082732*^9, 3.7479236088523717`*^9, 3.748020687223736*^9, 
   3.7480209640262685`*^9, 3.7491030896919165`*^9, {3.7491032481969824`*^9, 
   3.7491032748085046`*^9}, 3.7491034988923216`*^9, 3.749103684572942*^9, {
   3.7491064057425838`*^9, 3.7491064514201965`*^9}, 3.7491091212798157`*^9, 
   3.7491113784882383`*^9, 3.7491873453508162`*^9, 3.749371206739082*^9, 
   3.8106556783244886`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[93]=",ExpressionUUID->"4aa9ebbd-0c6d-4e0a-acaf-7e137117ec47"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:043c\:043e\:0434\:0435\:043b\:044a\:0442 \:043d\:0430 \:0412\:0435\:0440\
\:0445\:044a\:043b\:0441\:0442 \:0441 ",
 StyleBox["\:043a\:043e\:0435\:0444\:0438\:0446\:0438\:0435\:043d\:0442 \
\:043d\:0430 \:043f\:0440\:0438\:0440\:0430\:0441\:0442 ",
  FontFamily->"Arial Narrow"],
 "r=0.012."
}], "Subchapter",
 CellChangeTimes->{{3.7479164242504473`*^9, 3.747916429522438*^9}, {
   3.749371156231987*^9, 3.7493711681950088`*^9}, 3.8106545925029383`*^9},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"6291eee1-a19b-4d97-bb70-653720097ecb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", "\:043d\:0430", " ", 
     "\:0437\:0430\:0434\:0430\:0447\:0430\:0442\:0430", " ", "\:043d\:0430", 
     " ", "\:041a\:043e\:0448\:0438", " ", "\[IndentingNewLine]", "   ", 
     RowBox[{"u", "'"}], 
     RowBox[{"(", "t", ")"}]}], "=", 
    RowBox[{
     RowBox[{"r", " ", "u", " ", 
      RowBox[{"(", 
       RowBox[{"K", "-", "u"}], ")"}], "\[IndentingNewLine]", "u", 
      RowBox[{"(", "0", ")"}]}], "=", "u0"}]}], "\[IndentingNewLine]", "*)"}],
   "\n", 
  RowBox[{"DSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", 
       RowBox[{"r", "*", 
        RowBox[{"u", "[", "t", "]"}], " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"K", "-", 
          RowBox[{"u", "[", "t", "]"}]}], ")"}]}]}], ",", 
      RowBox[{
       RowBox[{"u", "[", "0", "]"}], "\[Equal]", "u0"}]}], "}"}], ",", 
    RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7491033210681505`*^9, 3.749103362231505*^9}, {
  3.749103596182886*^9, 3.7491036134338727`*^9}, {3.810654365547942*^9, 
  3.810654399439161*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[94]:=",ExpressionUUID->"7af897d1-8096-46d6-bc62-9b67e41a4b2b"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,94,49,18060629650815555421,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.8106543907855887`*^9, 3.810654400617854*^9}, 
   3.8106556785453615`*^9},
 CellLabel->
  "During evaluation of \
In[94]:=",ExpressionUUID->"e98cf8a7-b468-405a-abcc-09fb6172fba3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"u", "[", "t", "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"K", " ", "r", " ", "t"}]], " ", "K", " ", "u0"}], 
     RowBox[{"K", "-", "u0", "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"K", " ", "r", " ", "t"}]], " ", "u0"}]}]]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.74910287645172*^9, 3.749102926517584*^9, {3.7491030237621455`*^9, 
   3.7491030443583236`*^9}, {3.749103119565625*^9, 3.749103131744322*^9}, {
   3.749103278625723*^9, 3.749103317001918*^9}, {3.749103449129475*^9, 
   3.7491034877216825`*^9}, 3.7491036180671377`*^9, 3.7491036872080927`*^9, 
   3.7491091213128176`*^9, 3.749111378518238*^9, 3.7491873453858185`*^9, 
   3.749371206769082*^9, {3.8106543908595457`*^9, 3.810654400633837*^9}, 
   3.810655678559353*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[94]=",ExpressionUUID->"792d8b9f-dc16-4961-aa97-dfac562b868c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"r", "=", "0.012"}], ";", " ", 
   RowBox[{"u0", "=", "4"}], ";", " ", 
   RowBox[{"K", "=", "71"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.8106544289602447`*^9, 3.8106544386321616`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"6665e620-e809-43a7-858b-e9a3830ad19f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"plot3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"71", "*", "4", "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"71", "*", "0.012", "*", "t"}], ")"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"71", "+", 
        RowBox[{"4", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"71", "*", "0.012", "*", "t"}], ")"}]}], "-", "1"}], 
          ")"}]}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "16"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"plot3", ",", "plot1"}], "]"}]}], "Input",
 CellChangeTimes->{{3.747907064276064*^9, 3.7479070674792233`*^9}, {
   3.7479071253180304`*^9, 3.747907223177868*^9}, {3.7479072910539103`*^9, 
   3.7479073796720295`*^9}, {3.7479074288857946`*^9, 
   3.7479074878629255`*^9}, {3.7479075502491198`*^9, 3.747907553385332*^9}, {
   3.7479078679737473`*^9, 3.7479078823215075`*^9}, {3.7479153902739487`*^9, 
   3.747915439665612*^9}, 3.747915581356283*^9, {3.747915753621399*^9, 
   3.747915886276247*^9}, {3.747915982032281*^9, 3.747915984889646*^9}, {
   3.747916193038166*^9, 3.7479162149026136`*^9}, {3.7479235324002542`*^9, 
   3.7479235384587884`*^9}, {3.7480206694189568`*^9, 3.74802067497377*^9}, {
   3.7491029928693786`*^9, 3.7491029988587213`*^9}, {3.7491030524297853`*^9, 
   3.749103058157113*^9}, {3.749103102454646*^9, 3.7491031073139243`*^9}, {
   3.749103148907304*^9, 3.7491032343791924`*^9}, {3.7491033741641874`*^9, 
   3.749103392409231*^9}, {3.7491034300573845`*^9, 3.7491034576239614`*^9}, {
   3.7491035448089476`*^9, 3.7491035783058634`*^9}, {3.749105314054143*^9, 
   3.7491053154682236`*^9}, {3.7491064419476547`*^9, 3.749106448983057*^9}, {
   3.7491070265110893`*^9, 3.749107028072179*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[96]:=",ExpressionUUID->"0d8c783f-b10e-400c-8bdf-d366c9328ef3"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwV13k8VF8UAHBUCNn3fcxmzJjRRpHmFIls8yKVLEVJQtYiJDuhVIoklK3I
UoRSSJZkJySlfmTJkoiQ4nfnr/f5ft79vHvPOfee+3k4h3MHT3FxcHA0cHJw
sJ8HTo131ny/tXtu0c+Ag0MY1uvJenyR8WEuxCz91hAWhq3pyaklMuHM3gzB
TZ7KwmDc2vf0nkwicyQ/OVVpjzAcPrn46oZMFjOP+OqxVpgwfGZE6cXLlDJX
qgNr7fhEIEPCPPKKTB3TtYgaN0wQhYDWpDqrF3VMlVHmqIyWKFhFfOXCH6tn
/vfJzOCEkSgILHgGV6Y2MOvJU6Z4d1Hwe5/oN6XUxKTH6PzyrRAF7OZHFzNS
G5Mevtn5BEsMQnhLyDEy75mnQ+NvFseLg9r+69FPPd4zo5e/Cg5kikNXxLnv
A43vmdwaJxPkXogDYR0tn36+h1lVaDg9OCoODf+y6O+7epnbu0a5PPdIgMCv
29uV4vqZgzm5WNcfCUj+fFHv2eog0/4OWZo3WAqOHL1f9HP2G5PjbP0UdMrC
zIAl3wPZEWaZx/De1ElZiLTjPWWhN8I0PJHdKMgtByWO52TLEkeYr6u17uzU
kQNBd92IAK1R5nZzjPNhjhzUh/ZbcweNMT8odnEvhMjDlsci3PK8E8wbBR+v
VBxQBP61EJv9ijPM7rXpV0LiOEg+c9iOZjDDzHp5M52fgAPCe9pxEfcZZthq
wGnxbTjY/ajPceDVDNOVd1+diSUOnj+6/ayc/pPZ4UlxPnoLB9MWUy+N234y
EzdFro7JqMChh0nN3pvmmGMS/be41fFAxH6Mv4mdZ1ZH+dkkBxJBNni/9un7
80y/BvEnmdeJIFyQEctXPs9UsFf5UZ1DhD+8FnRsaJ6pxt2nTe0kQkdNuffg
jgUmb3J7SyuJBBc1QlaXRhaYmgmjMoY9JGgTEhenwyLzTveN6h1MVbjQtpOZ
PL/MlHCe2ihmSAWpUpFBTs41ZvoraUJwvwaUDem1tO/igtpWyUuXv2yDWpd7
cken1kOZMnnLMLYTFki6QgVuPGDRZ00sb9cFruV8YTkiH7hqbi7+4LUHNNeO
l1kUCsC2+V9rqz160BK+ra1BTQjuCyQ86ZY1AKWEyeVHP4SBZ4JK9TltCJOL
XwZ7NETh/c32O9yHD0DWROU7watiQO05MGBEMwH3JHO8y00x8JDbKzuxxQS0
9IcD6pPFYI50aixipwm8u8enHpgpBj4d07RiAxOYZR299r1CDJY2+J1tP24C
u8t/W9QNi4GodMrKjkQT6A/b/Nl/pzi0TEQ/qFw0AUGF3Jlv38Sh6W5w9sMn
pgBWYZ+Hv4uDTL9WTWeZKXhds28e+iEOUdmlqouVptDLKZ37dQntcxaMaTaY
QtpotN0nAQlQjhHZeeWjKdCLXVq7t0lAj3cUNYTLDEz16Pm14RJQMb3yqMLc
DOLOPHPKIEiCbYeoUPIXM5iAgmh+NUmIPcw9ov3NDPZLZ+edZ0iC4Knohv5x
M+BqTPxhoi0JBR2MUv45M/An+JxfNpcErR9aXrDeHJy+bIk8GCAJN+12wQzZ
HPYcKs5e3yUJeTyzhR6u5vAb8r85o3Pk48WJBUyYw8usybsXwqVg1XXcbW7a
HEJ5aRaRMVKAWyhKcJo1B8GOx68zb0pBkOrOmX1L5kCyL0wbzJUCQb2++z+5
WGAV9OSIZYcUnPx87Nc+YRY8e17ewsRJQ5v3F44vFBZcVFgKMyNJA3nxWpkr
lQUQskPHlioNJr4VAss0FrQYPn90cbs0eJvh0zZpsOBb34vIZ0bSYDqvfY6k
yQLx36+A6iUNAjP8d6T2ssBnS12p5BtpWPjccnH1CAuctilnXH8rDf/1OBcH
W7PgiGZgrECbNGD+H8+uHWOBjvY2B65+aUjlH/T7Y8cCrr1ZQj9+SEMs71P+
LydZcA0Ld6mXlQH/6wsSjh4syPPQV/bxkgFpWblyu0gWpHpl8M9ckAFJ16rB
p1EsiPf5+/tMkAwE4BOLN8SwwMOvtNU+WgY+qRsdzo1lgdZlQoBxmgwYxQ61
f0xgQd219b0q72Qg2T/75Lq7LPhSWBfbiZOFpMLkFw6FLOiYXj+1hSwL+eSx
nugiFtTQ9pkk0mRBz5LSVFDMgoy8eoHDWrLQ3BWmM/+UBQ45DfGfTGTh7NjB
s97lLBi99/ba2AVZSCuu6tapYcF0XMvNf62y8Ezhy7WVDhYMNgvM23XLwhtC
avxqJwva+Ewtaz7IwuIIJZSjmwWF0a3iYcOyEOp6zoKzB8UT3naLd1kWdN2v
FP/+wIL5gI4kMYIchI+fVXnylQUrLu/vUi7KweRk3pazMyyw1LS9Tg+WA76p
qavMnyx4zDkauTVcDjZ7GSuIzbLALnnRU/eqHGSpqnaXz7Hgdb2sIfZADgKs
2soWF1gQpXxi3u+dHMgbtC5if1kg1jtt8lZWHvpq3GR8eTFwvX9+b6uSPKwb
7ubbvBGDOtc1rS6CPGhZdOhNIZ9fJ4L/RJeH8SqFa8f5MejX2LY8s1ce4s5N
p4IgBumxF7OlzsqD4ggX/osYBtQ9PKtOlfIgZ7RGT1HEoDgvn/yhRh4+fr29
20wJg23iLMyoQR7Ocj2I41TGYNdYcha1Ux4i8SJjp3AYmMWrGf8clQdHaWIe
kYCBV79psr+oAoRiNZtCKRg890zcEndGAYYexrFKtmKwe2CHzT93BYisDrnN
2oZBrf7nCHcfBXgElZunkd9JkfpZwQow6lfoQtDE4NOr8mCJWwqw3sZ6+coO
DDj4BlrSahTgP+NNijt1Mdj/AHf6iZQiJOo6bVQ0QOtNFiQ1yCuCYkQ2KQ1Z
+erKt484RbCS/l6jsB+DP/49DutpiuAY6OsuZ4hBARZjdxgUge+ZVaXwAQzE
OGcP/XNWhLCfwdHDphh8sa/RN3qhCOc/uuuqH8Kg5VDBOrtqRTBRHRi7h1xh
nFLrVacIKyNGioJWGNzQ8oHUNkWIFJ7XmEbeJ6S6a2ZIESoMm5ezj2CQX3Vt
6y1+JYgdbrjIZYPBBXRx/WejBOmXMA0XBwwcWBpWn04oQZHY+93NyGZhnFf6
nJQgbrFxguqIAel75myrhxLk7w+Vn0J+Xzpe8yJcCfT/ZM2ePoWBhomXfeJj
JbCKf1Jq6ozB+MWI1P1/lSByb4rCezcMJqyozvc5lEGzOSKe4o7B8Z9iXErr
lIGVoJNzCdkYP7JdllcZ8hRsusnnMFCJibonLKoMNjdfEs97YNBh2eL6j6gM
4brH5rm8MaBNHeLvM1WGRNdnPl8uoHxYmlRfYSmDYcfeFQ0/DPRe7fXebaEM
+/Tw5FBk66uMgewjymAm5uiB98cgRmNjvo+jMhzR9+w+cRGDUZ+XB0T90fhR
PKMtEIOMfypXTLOUIczQq+50CJrPSWY3Z64ydF4k5Bcil7cJzZU+Ugbnhcy9
C8ht6X+Pyhcpg4KOQ0RIKAb/9vRSJp8rQ/p2dcfbYWj+yJim6HZlcF10aXoS
geot9JO37o8y5JhkXHwSg0HXqytRRv+UgWG+f20C+YYrkbt9TRlUOKr2E65g
IPrOet3H9TjImhMi3mY7ov7fjCAOBppmpC7EYiC8kjInh8eBximaGD0eA4Gx
fZ+8jXHQyrlryTMB7Z9bX62XTXHQ+SHoTBZynH5A/yUWDgJWWrN7kfkfFPfG
HMLBMV+vy9rXMeCzletMt8dBWM+TN2vIvN0/65u9cVB860rx5ZsYrK++W4RP
xYFWt3S87W0MPu7SN/yShgMls31+8chFL6a+ptzHQcz5FtorZOsyXVHRXByY
0L/MySVh8KTgiw/HUxzM+pUt9yLbpeK1Pzfi4J2kNUnvDqqnf37d7V84iL06
dW3hLgZXFy1sD/7GwUSNuLRSKgaOvn8XNi3jYHj5tYchsqCnKTliFQea45cT
U5BPOc/EeG9Ugd8TR/N33UP5OrzVnKWkAlgtt75fGgZnt1X2bzRWgUIj89C2
DAxqOnoeV5iqwD+hy72zyBJuP4NPs1Sg680vLon7GFRnE0n1h1QgRMJyxBpZ
TCrB6/JxFVicrXr/Dbly+ST/oq8KVHR+CJt9gPJZLaj7LUMF7FlpBjNZaL8f
owjfzFSB/hyJhU3ZGDxb1Bvek6MC1svLl2nI9hr+Men5KqDgkLn5DHLJ/eEe
6zIV4OrJ+vMV+Vh4hXtnM3q/qGXyLgedZyOHjKrfKnBwv/hU+EPUf2i43cxl
FRA63V5/D7lK8OtA9YoKzNodjyhD7ui2lXrNgYf6Ro+yMeR526NX3/DhQWId
DBs+Qv3RixX4VhEPnBFDl7jz0PiU3Ue6DPBQ8VPI+1w+BkeD/i0cNMKDIo+J
dgTykP3Lm93GeHALuDGRgjxP0G5/z8JD/6E07gZkmaLtBn3WeAiyM2bIPUb9
5Q1t2yd3PFhWXTj8GnlhUlZ49DYebEwoD/4VYJB4b6wx9Q4erOlrB0ULMdhq
XhpskYrGx5KnSMieT01nau7jIUJxoM8cedrvctvdx3iIWS5LykAe2TAah9Xi
QXk7tUO3CIMepScbX03jwTnHved0MQY+nUGvvX/iITfdp9YfWSzsgL/aLzyw
AmdTYpGx0eHxpCU8mGsXCBYhtz6WfOu1jgBxcaXrFpDrdwZGqsoQwFNtSivo
Caqfxf51ifoE+FNNdgx+ikG0cUWE/H4CzDlGDcUj2+hReLONCHBr5MTBVGSu
rfybyswIwBHStO45splou+SHIwS4Z6ReNIs83mGlJu9GgNqs45rHSzCQNXPC
sm4RwFrxg/eWUhTvvr5uWjIBpG+Y4JjINbqGVs9SCLBBlPbaGNlJXe1YQzoB
ujY5fTiJXCLw4+T4IwKERBx2uo1s0uzrR6sigH95rMAicrBhRHrpKAEqs0SH
Cp+h/mPnbKPxnQAPzwvVPEcm+BrLPJ4kgFdkxo065Hf3RW5m/iRAumKRxEdk
8ZV7kTf+ECChvClxfRkGDwvK3DwEidBcpxpyGLlDdFyHpkmEaqmaEwvIKpTm
pdwdRMDPhYyvIvsyC5/hdYhga8E8xVuO4nX1YcgBEY4m9YIc8sl6DjzfASIU
Q0oIIC9dkOEbtyVCQv3ZLTHIuM8HPmRGEOHAZPVtsQoMrtTqFB2KJkJl/L9s
eeS5XFokTywR4ri+5RGRa70Et51NQP9tDh9vaSGf5O26tuUuEbbzl8xaIz/c
enT/62Ii6LXKNKcj06+cLhscIEJ4FuugynMMbp87Ep8wSIQbP/1oashrlkYn
9/5HhI1vH/3bjNyhRBXNGSUCbtg0Yg+y57Mfbm6zREhsfqF2HLn0qy/xLzcJ
orQ/9t5F1tYKT5TZQoKOtNBFgRcY9DrIaN7bRoKmR5qYGLL31cI+ZS0SjOQR
s2SQH498kFXdRYLLBzu3k5AVE9XvaxqQoGKYtJGJzDXbW2BhTQK34Rnfc8jN
eZTG+FAScM1kJDUjO/dWOYtEkGA5V5LUibyey5LvVhQJBkPSC3uRdx+9ZJoa
R4I9TesK/0Mu5unuzrtNgqyoeqdF5MSTgV8b80jA0L9Wj6tE+1uxfZmzmwS1
A4snvJAFZbyeVaL/2tYfkzkXkF+LSXj6fiDBZ/e3I4HIpI3Hxsc/k2Cl2QqL
Qp75NdrbPk4C5c7Yr3eRQ5tWS+6tkmDihcXIG+SHPnT3nWpkiK7ILxN6ie6P
c52UXzQy1NiU7hNH3uTiM/KYQYZZxwvt0she9i9slLeTIWJKvxuHrHPAwJgH
yEC7k5O6FblNyU615xAZCs6U6FghL7yLH/IIIcO7nQLdScif+Huc/4aRYWJg
JuQucq2J/ExUJBkoEx9o6cgJbXkrabFk2O7Zcj4HWa2rUbz1FhmStxYPlCLb
9XPup+SRgbwkNt2B3DDmm/9fF1r/ZNEB7leofqqvNrv1kAHPoxO6EfnmmfUV
S31kGGaZlAkgH5+8USf0mQwBZ4XFxZD//Cj6rDtGhqa6yBwlZMbv70IpK2Qo
22OvtgM5eb2dz0GCKvwwuNrghLzqKLW9k6QKcwH1UWeQT77pWDCnqAIhRMTA
FVkjVO+CKV0VOi3mn3siv11TvWi4A/mddnAg8uKfX8G7TVTh0qpb6HVkq9mY
WDUfVdQX/gt+jvySpWfy6LwqFFp5fq9EVin+K6DqrwovRrxYVcg/3M9dJV5S
hTt3eiTfIEdMWV5XjlaFMy4nI1qQS8eUkiRTVWGIZ3FyEFls8NkDrjpVMJcd
+MlZhe53gaCg8gZVKJaw1lmPzKejf8S1SRVGljTDuJG5krs29bapQlmsJD8/
8hw24/eoXxXsSmtWxJA76lXNWTOqoORt6UhEjiu4u3JPlgLas072Bsi8nxx6
DypQIK5I95ghcjif2hMeZQos57dYHkAOOF3h5EmkgG6vwh4zZBdcT6e+BgX8
rvSsHkI2vCX4cHIfGn+rR/gU8oagEMudnhQwe2edEYJcOju1XO1Ngd16Hdph
yCedjqQbnKfA9X3x3eHIdeaMCYsACnTtG1mLYs+v8jnYPYICNx1A/yry+rc7
8jPvUKBPXjMohR2v2E9OwVoKDFZYvnyC/DTqWG5iHQViTlHwJcgOfxtM5Bop
4PYnMLoUuXbkXpJqCwUw81yzcuTQCmN1vV4KbHPa3vQSmdMu94jfBAW4K5P8
GpE5HtkVDYmqgU8RrnkAuWGqzz1dQg3OZHMpfWbnTwOj20irwfnjRzwHkaUq
9Ap6FNSAiZ0R+Q+Z3qia/1ZVDeT6DzJHkW1G5nIKd6sB6VGzxU/k57iotIsu
alBGIp5dV43BpVMcdlpuahD4dDZhPbL+I3+F+XNqsHTD+dkG5A4N11Q3XzWY
Cz/2hwd5nImlHL+sBgm0EB8BZEk7udsGt9Ug7oUCVQLZK6UoXrRWDQaEu/OJ
yOV/U6Jq69TAOY2aTUL+axcZ4tWoBjE+p++RkaPwtr5dLWrAuenqFQpy6mM+
2xt9ahCg9OKwOnJ91Sma6LQaHMx5ULUNWXpYrllEmgphYWKNe5Ft9/HUv5al
QmE6I10P+UHuXJWnAhWK5i3P6yPTXJuedqpQobqwGmeAvGfhfMp1dSqofdvq
ZoTswtN1RkSPCkFYVJ858itqNK+IOxXoW+Q4bZA130u13vCgQnn7xyK2iwNz
r4t7U0GK+dXWlj1fa4OstB/6fn51uR1y9LkN6kqhVLi4c9ThBPLBklBM/TYV
+E4GJDkhj2kHpRhVUcHYZfSSB/LxYQH75hoqbFrqkPJE/hibijd9Q4WvydLF
bLd8qnzMekuFLU2vB72Qn176U3W4iwo3nl7d5oscWHth+NQoFR7X5dT6I4sc
8KKFCtKg+JKJWyhyxmshfm0RGuDtbVfZ1thZ8H1WjAYBhQ1Xw5DNVMdzTsjQ
QCo9uyAc+Qq3HW4PgQY5lY+GI5HXvzGS5NCmQUTxuc2xyL91cByXTtFAWH/6
yE3kiJKqwe3ONLC46dXLtjjV5tW0Cw0kvjlZJCJvlU26aOtBAyI53fgWsseS
wMKuABpMWR7fnoT8vXTp+0oCDTZMlfxIQf6k3tHt/5IGm2Vn/t5HTp8UCVpX
TYNXwUccHiA7PLIgxb+mQUmoZSPb3wl9fhkNNNDdwZ2QyV6f3KBCYwcNMii2
8tnsfPBNnRYfoUHlO13cQ2SDUZ6/hZvUQV6rd7AAeWOWUfYOYXVIDXXXKmTn
+0SsWa2oOsjtzr3GtsVnwfs9UurwLWNldxG7Xu8lDP7i1GEz6NwpRg6oxScY
aarD2263XSXs/ZHGJHyzUwfFGSOoQP518RfPiRPqwOSjxrGteTh38rOjOuiP
VfaxXSkkVNLnrA5/d/5we47ccHlwT7OXOgx7p91+gTzgEGT/NFIdZrN9+18i
c5MrUy4XqsOuRg3ya2Sjdecu/StWhyuTuWfYjvui4nCxRB04Gz7ksy2SfIXi
U6EOxxucGbXI8hutK07XqkMl14Gtb5C3TC71mPWqQ8tHFr2efZ6KNEUUVtWh
V8nm11vkMuslwQ4OOowGhG1pQhbkfiEQto4O5qccPNmusdHl/c5LB22a4Q+2
Vfj010rF0PiYl9/eIY+exKZNKHTIM71W14LsLuvaFGhJB9EkjoMd7Hjr1RsZ
h+nwKaskmm0lz5m6oaN0SJsjV7Pd0ehVY2hPh/tuh6id7PX6+peLu9Ch73Ez
RxfyYntk9uNgOnSmO2R0I1+OuB/yKY8OGwrES3uRN13gOXCigA5V9cZf2U5x
dhMdLaJDe5SFQB9yifHOzJlSOgR29TiyPSrSWcdVTYcna3nCH5CN0zh4Kd10
sFqqPdHP7nfl9ld9V+jg92RpaAA582G91Z9/dOBRy9z4iX2+UqhKwRwM6NhF
0GDbKGixKHoDA8hDeYFsB+pd67wrxIA9y21in5GH2qvEa/EMyFRL1h5ELhhX
uCtowoC7PRZnv7L7yb2I44NmDKBaCF9n++TBaWIhxoDE5+llbMu/fFlsepgB
mtI7OP9jn99rxxriHBjgOmuZyLaz5p1ZPn8GmE+4Ph1i1ydc3JAnhwFLUn7t
35BXdwRu6nvIgGabhRm2+6eHu3LyGeDYbiw8gpxwuMTW4AkDtBbDWWyvqR30
jnjJgCQr9Xa2P3VeS1vXzYCI5qD6UeSKyEXH7h4G+GzNHGY7UceekvmBAd9u
ZXGOsfOZTS/dO8iAvb91dNl+4dfaFPKdARdaXz9l+7b69mvYFAOcS5rb2fYc
SrXEzaB8jD6dYlvVxPVLzTwD3D7KkMbZ/YnzfVbCIgMcpu/sZfvrMx2X438Y
YDC3aMf2S5dMhsY/FJ/ItgC2k5T4F9bWGODhY5bE9v9Uc7e6
        "]]},
      Annotation[#, "Charting`Private`Tag$246905#1"]& ]}, {}}, {{}, {
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], 
      PointBox[{{0., 4.}, {2., 10.}, {4., 46.}, {6., 66.}, {8., 70.}, {10., 
       69.}, {12., 71.}, {14., 71.}, {16., 71.}}]}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{Automatic, Automatic},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.747907181458816*^9, 3.747907226156145*^9}, {
   3.7479073259588566`*^9, 3.747907380440585*^9}, {3.7479074350622387`*^9, 
   3.747907488703442*^9}, 3.7479075543867397`*^9, {3.7479078739243274`*^9, 
   3.7479078830390944`*^9}, 3.747915464236511*^9, {3.74791580156087*^9, 
   3.7479158869798403`*^9}, 3.7479159862618523`*^9, 3.747916215749126*^9, 
   3.7479235394921837`*^9, 3.7480206872627134`*^9, 3.7480209640622654`*^9, 
   3.7491030050310745`*^9, {3.7491030935521374`*^9, 3.7491031079729624`*^9}, {
   3.7491031389657345`*^9, 3.749103200546257*^9}, {3.749103230785987*^9, 
   3.7491032351292353`*^9}, {3.749103446018297*^9, 3.7491034628372593`*^9}, 
   3.74910350166448*^9, 3.7491035807490034`*^9, 3.7491036893822165`*^9, 
   3.7491064534173107`*^9, 3.7491070292032433`*^9, 3.749109121337819*^9, 
   3.7491113785482383`*^9, 3.7491873454248204`*^9, 3.749371206789082*^9, 
   3.8106556786882787`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->"Out[97]=",ExpressionUUID->"dffbe821-5c1c-4eda-b994-884e9ecc2e16"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.749103210375819*^9, 3.7491032243386183`*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[98]:=",ExpressionUUID->"8dfd75bb-6163-4f4a-bd21-f5a8793daa31"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041f\:0440\:0438\:0431\:043b\:0438\:0436\:0430\:0432\:0430\:043d\:0435\
 \:043d\:0430 \:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430 \
\:043d\:0430 \:0444\:0443\:043d\:043a\:0446\:0438\:044f", "Title",
 CellChangeTimes->{{3.7477563947257957`*^9, 3.747756397286326*^9}, {
  3.747917815135174*^9, 3.7479178178845935`*^9}, {3.748020721788913*^9, 
  3.7480207327845984`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"22079c12-e656-4403-9d9b-fcf7d384cff8"],

Cell[CellGroupData[{

Cell["\:0412\:0438\:0437\:0443\:0430\:043b\:0438\:0437\:0430\:0446\:0438\:044f\
", "Section",
 CellChangeTimes->{{3.7493713487093387`*^9, 3.749371357826356*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"fdf290e7-2816-4c34-9528-f0f36358688d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"PlotDer", "[", 
    RowBox[{"f_", ",", "x1_", ",", "start_", ",", "end_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"minF", " ", "=", " ", 
      RowBox[{
       RowBox[{"Min", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"f", "[", "x", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "start", ",", "end", ",", " ", "0.1"}], "}"}]}], 
         "]"}], "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"maxF", " ", "=", " ", 
      RowBox[{
       RowBox[{"Max", "[", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"f", "[", "x", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "start", ",", "end", ",", " ", "0.1"}], "}"}]}], 
         "]"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{"Show", "[", "\[IndentingNewLine]", "\t\t", 
        RowBox[{
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"f", "[", "x", "]"}], ",", 
             RowBox[{
              RowBox[{
               RowBox[{"Limit", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"f", "[", "x1", "]"}], "-", 
                    RowBox[{"f", "[", "y", "]"}]}], ")"}], "/", 
                  RowBox[{"(", 
                   RowBox[{"x1", "-", "y"}], ")"}]}], ",", 
                 RowBox[{"y", "\[Rule]", "x2"}]}], "]"}], "*", 
               RowBox[{"(", 
                RowBox[{"x", "-", "x2"}], ")"}]}], "+", 
              RowBox[{"f", "[", "x2", "]"}]}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "start", ",", "end"}], "}"}], ",", " ", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"start", ",", " ", "end"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"minF", ",", "maxF"}], "}"}]}], "}"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Limit", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"f", "[", "x1", "]"}], "-", 
                   RowBox[{"f", "[", "y", "]"}]}], ")"}], "/", 
                 RowBox[{"(", 
                  RowBox[{"x1", "-", "y"}], ")"}]}], ",", 
                RowBox[{"y", "\[Rule]", "x1"}]}], "]"}], "*", 
              RowBox[{"(", 
               RowBox[{"x", "-", "x1"}], ")"}]}], "+", 
             RowBox[{"f", "[", "x1", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "start", ",", "end"}], "}"}], ",", " ", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"start", ",", " ", "end"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"minF", ",", "maxF"}], "}"}]}], "}"}]}], ",", " ", 
           RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"ParametricPlot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", ",", " ", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{"f", "[", "x1", "]"}], "]"}], ">", 
                RowBox[{"Abs", "[", 
                 RowBox[{"f", "[", "x2", "]"}], "]"}]}], ",", 
               RowBox[{"f", "[", "x2", "]"}], ",", 
               RowBox[{"f", "[", "x1", "]"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", 
             RowBox[{"Min", "[", 
              RowBox[{"0", ",", "x1", ",", "x2"}], "]"}], ",", " ", 
             RowBox[{"Max", "[", 
              RowBox[{"0", ",", "x1", ",", "x2"}], "]"}]}], "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"ParametricPlot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", ",", " ", 
             RowBox[{"Max", "[", 
              RowBox[{
               RowBox[{"f", "[", "x1", "]"}], ",", 
               RowBox[{"f", "[", "x2", "]"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", " ", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"f", "[", "x1", "]"}], ">", 
                RowBox[{"f", "[", "x2", "]"}]}], ",", "x1", ",", "x2"}], 
              "]"}]}], "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"ParametricPlot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x1", ",", " ", "x"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", " ", 
             RowBox[{"f", "[", "x1", "]"}]}], "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"ParametricPlot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x2", ",", " ", "x"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", " ", 
             RowBox[{"f", "[", "x2", "]"}]}], "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t\t", 
         RowBox[{"ListPlot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x1", ",", 
               RowBox[{"f", "[", "x1", "]"}]}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"x2", ",", 
               RowBox[{"f", "[", "x2", "]"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}]}], 
        "\[IndentingNewLine]", "\t", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x2", ",", "start", ",", "end", ",", " ", "0.01"}], "}"}]}], 
      "]"}]}], "\[IndentingNewLine]", ")"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "[", "x_", "]"}], ":=", 
  RowBox[{"Exp", "[", "x", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"PlotDer", "[", 
  RowBox[{"p", ",", "1", ",", 
   RowBox[{"-", "2"}], ",", "2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7478530912361155`*^9, 3.7478531500383444`*^9}, 
   3.747853226288577*^9, {3.7478532823993692`*^9, 3.747853285107831*^9}, 
   3.7478533308016024`*^9, {3.7478535566099877`*^9, 3.7478535595362935`*^9}, {
   3.747853624203174*^9, 3.747853885379277*^9}, {3.747853917916586*^9, 
   3.7478539333247414`*^9}, {3.747853963786256*^9, 3.747853998951082*^9}, {
   3.7478540502916036`*^9, 3.747854093486808*^9}, {3.747854142876475*^9, 
   3.7478541891788816`*^9}, {3.7478542714836392`*^9, 
   3.7478542798278475`*^9}, {3.74785436782434*^9, 3.7478545895580654`*^9}, {
   3.7478546598207345`*^9, 3.7478546670345945`*^9}, {3.747917162960901*^9, 
   3.747917176447181*^9}, {3.7479178515962634`*^9, 3.7479178544146433`*^9}, {
   3.747977155457591*^9, 3.747977208123603*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->"In[99]:=",ExpressionUUID->"0a368afa-ef1b-4e5b-814f-04437c2a6f87"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x2$$ = -2, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x2$$], -2, 2, 0.01}}, Typeset`size$$ = {
    360., {107., 111.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x2$246952$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x2$$ = -2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x2$$, $CellContext`x2$246952$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot[{
          $CellContext`p[$CellContext`x], 
          Limit[($CellContext`p[1] - $CellContext`p[$CellContext`y])/(
             1 - $CellContext`y), $CellContext`y -> $CellContext`x2$$] \
($CellContext`x - $CellContext`x2$$) + $CellContext`p[$CellContext`x2$$]}, \
{$CellContext`x, -2, 2}, 
         PlotRange -> {{-2, 2}, {$CellContext`minF, $CellContext`maxF}}], 
        Plot[{
         Limit[($CellContext`p[1] - $CellContext`p[$CellContext`y])/(
             1 - $CellContext`y), $CellContext`y -> 1] ($CellContext`x - 
            1) + $CellContext`p[1]}, {$CellContext`x, -2, 2}, 
         PlotRange -> {{-2, 2}, {$CellContext`minF, $CellContext`maxF}}, 
         PlotStyle -> Black], 
        ParametricPlot[{$CellContext`x, 
          If[Abs[
             $CellContext`p[1]] > Abs[
             $CellContext`p[$CellContext`x2$$]], 
           $CellContext`p[$CellContext`x2$$], 
           $CellContext`p[1]]}, {$CellContext`x, 
          Min[0, 1, $CellContext`x2$$], 
          Max[0, 1, $CellContext`x2$$]}, PlotStyle -> {Gray, Dashed}], 
        ParametricPlot[{$CellContext`x, 
          Max[
           $CellContext`p[1], 
           $CellContext`p[$CellContext`x2$$]]}, {$CellContext`x, 0, 
          
          If[$CellContext`p[1] > $CellContext`p[$CellContext`x2$$], 
           1, $CellContext`x2$$]}, PlotStyle -> {Gray, Dashed}], 
        ParametricPlot[{1, $CellContext`x}, {$CellContext`x, 0, 
          $CellContext`p[1]}, PlotStyle -> {Gray, Dashed}], 
        ParametricPlot[{$CellContext`x2$$, $CellContext`x}, {$CellContext`x, 
          0, 
          $CellContext`p[$CellContext`x2$$]}, PlotStyle -> {Gray, Dashed}], 
        ListPlot[{{1, 
           $CellContext`p[1]}, {$CellContext`x2$$, 
           $CellContext`p[$CellContext`x2$$]}}, PlotStyle -> Orange]], 
      "Specifications" :> {{$CellContext`x2$$, -2, 2, 0.01}}, "Options" :> {},
       "DefaultOptions" :> {}],
     ImageSizeCache->{411., {153., 159.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.7478544116072245`*^9, {3.7478545132098885`*^9, 3.747854559219479*^9}, 
   3.747854590631462*^9, {3.7478546637564745`*^9, 3.747854667971057*^9}, {
   3.7479171442916145`*^9, 3.747917177075797*^9}, {3.747917847057851*^9, 
   3.7479178551062307`*^9}, 3.7479313492228117`*^9, 3.747977123398757*^9, {
   3.7479771826411457`*^9, 3.747977208753639*^9}, 3.747982350232828*^9, {
   3.7491813808883104`*^9, 3.7491814044146557`*^9}, {3.7493712653791847`*^9, 
   3.749371281570216*^9}, 3.810655678788221*^9},
 FontFamily->"Arial Narrow",
 CellLabel->
  "Out[101]=",ExpressionUUID->"09c38ab2-45d9-4d95-ae74-5b7310dea34a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "\:0414\:0430 \:0441\:0435 \:043f\:0440\:0438\:0431\:043b\:0438\:0436\:0438 \
\:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:0442\:0430 \
\:043d\:0430 \:0444\:0443\:043d\:043a\:0446\:0438\:044f\:0442\:0430 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", "x", ")"}]}], "=", 
    SuperscriptBox["e", "x"]}], TraditionalForm]],ExpressionUUID->
  "0bfc0bb6-8e2b-4a86-9211-83ade1bacf86"],
 " \:0432 \:0438\:043d\:0442\:0435\:0440\:0432\:0430\:043b\:0430 [0,10], \
\:043a\:0430\:0442\:043e \:0441\:0435 \:0438\:0437\:043f\:043e\:043b\:0437\
\:0432\:0430\:0442 \:0444\:043e\:0440\:043c\:0443\:043b\:0438\:0442\:0435\n\
\:0430) f\[CloseCurlyQuote](t) ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[TildeTilde]", 
    FractionBox[
     RowBox[{
      RowBox[{"f", "(", 
       RowBox[{"t", "+", "\[CapitalDelta]t"}], ")"}], " ", "-", " ", 
      RowBox[{"f", "(", "t", ")"}]}], "\[CapitalDelta]t"]}], 
   TraditionalForm]],ExpressionUUID->"cd29425f-7b94-4f1c-90fe-6621ea411d26"],
 "\n\:0431) f\[CloseCurlyQuote](t) ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[TildeTilde]", 
    FractionBox[
     RowBox[{
      RowBox[{"f", "(", "t", ")"}], " ", "-", " ", 
      RowBox[{"f", "(", 
       RowBox[{"t", "-", "\[CapitalDelta]t"}], ")"}]}], "\[CapitalDelta]t"]}],
    TraditionalForm]],ExpressionUUID->"c4fa2d2e-5e73-4b17-abe4-840f378f78d9"],
 "\n\:0432) f\[CloseCurlyQuote](t) ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[TildeTilde]", 
    FractionBox[
     RowBox[{
      RowBox[{"f", "(", 
       RowBox[{"t", "+", "\[CapitalDelta]t"}], ")"}], " ", "-", " ", 
      RowBox[{"f", "(", 
       RowBox[{"t", "-", "\[CapitalDelta]t"}], ")"}]}], 
     RowBox[{"2", "\[CapitalDelta]t"}]]}], TraditionalForm]],ExpressionUUID->
  "6892010b-d88a-4789-bc65-579a327c8639"],
 "\n\:0414\:0430 \:0441\:0435 \
\:043d\:0430\:0447\:0435\:0440\:0442\:0430\:044f\:0442 \:043d\:0430 \:0435\
\:0434\:043d\:0430 \:0433\:0440\:0430\:0444\:0438\:043a\:0430 \:043f\:0440\
\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:0442\:0430 \:0438 \:043d\
\:0435\:0439\:043d\:0438\:0442\:0435 \:043f\:0440\:0438\:0431\:043b\:0438\
\:0436\:0435\:043d\:0438\:044f \:043f\:0440\:0438 \[CapitalDelta]t=0.5, \
\[CapitalDelta]t=0.001 \:0438 ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalDelta]t", "=", 
    SuperscriptBox["10", 
     RowBox[{"-", "15"}]]}], TraditionalForm]],ExpressionUUID->
  "68fc309a-a933-48ce-84c6-a004f3b50b62"],
 ". \:0414\:0430 \:0441\:0435 \
\:043f\:0440\:0435\:0441\:043c\:0435\:0442\:043d\:0430\:0442 \:0430\:0431\
\:0441\:043e\:043b\:044e\:0442\:043d\:0438\:0442\:0435 \:0438 \:043e\:0442\
\:043d\:043e\:0441\:0438\:0442\:0435\:043b\:043d\:0438\:0442\:0435 \:0433\
\:0440\:0435\:0448\:043a\:0438 \:0437\:0430 \:0444\:043e\:0440\:043c\:0443\
\:043b\:0430 \:0430), \:0431), \:0432)."
}], "Section",
 CellChangeTimes->{{3.747918045893719*^9, 3.7479180792016163`*^9}, {
   3.748019567260964*^9, 3.7480195984310884`*^9}, 3.810654617346734*^9, {
   3.8106555727861423`*^9, 3.810655614245364*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"d042ec50-ca16-4ba1-8633-042880a85df6"],

Cell[CellGroupData[{

Cell["(f[x+\[CapitalDelta]t]-f[x])/\[CapitalDelta]t", "Subsection",
 CellChangeTimes->{{3.748019612952753*^9, 3.7480196345813303`*^9}, {
  3.7480196714781456`*^9, 3.748019673482995*^9}, {3.749109070167892*^9, 
  3.749109074008112*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"d60d0df8-ffd3-4b1b-bc2c-9b91dd42a94f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalDelta]t", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{"Exp", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DerF", "[", "x_", "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DerFAppr", "[", 
   RowBox[{"x_", ",", "\[CapitalDelta]t_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", "+", "\[CapitalDelta]t"}], "]"}], "-", 
     RowBox[{"f", "[", "x", "]"}]}], ")"}], "/", 
   "\[CapitalDelta]t"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DerF", "[", "x", "]"}], ",", "  ", 
     RowBox[{"DerFAppr", "[", 
      RowBox[{"x", ",", "0.5"}], "]"}], ",", " ", 
     RowBox[{"DerFAppr", "[", 
      RowBox[{"x", ",", "0.001"}], "]"}], ",", " ", 
     RowBox[{"DerFAppr", "[", 
      RowBox[{"x", ",", 
       RowBox[{"10", "^", 
        RowBox[{"(", 
         RowBox[{"-", "15"}], ")"}]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<exact\>\"", ",", " ", 
      "\"\<formula (a) with \[CapitalDelta]t=0.5\>\"", ",", " ", 
      "\"\<formula (a) with \[CapitalDelta]t=0.001\>\"", ",", " ", 
      "\"\<formula (a) with \[CapitalDelta]t=\!\(\*SuperscriptBox[\(10\), \
\(-15\)]\)\>\""}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7479188788353825`*^9, 3.7479188795469875`*^9}, 
   3.747919170260122*^9, {3.748019386281845*^9, 3.7480194007645316`*^9}, {
   3.7480194870180273`*^9, 3.748019498384514*^9}, {3.7480196810786505`*^9, 
   3.748019691630575*^9}, {3.7491065712640514`*^9, 3.749106579354514*^9}, {
   3.749106612117388*^9, 3.7491067118220906`*^9}, {3.7491069493746777`*^9, 
   3.749106955320018*^9}, {3.749108257132389*^9, 3.7491083014929266`*^9}, 
   3.7491085025424256`*^9, {3.749108738150902*^9, 3.7491087579060316`*^9}, {
   3.7491090201610317`*^9, 3.7491090277934685`*^9}, {3.8106546643660603`*^9, 
   3.8106546661573796`*^9}, {3.810655054532658*^9, 3.8106551932129936`*^9}, {
   3.8106552253783026`*^9, 3.8106552272797604`*^9}, {3.810655277539942*^9, 
   3.810655320701434*^9}, {3.8106553888752804`*^9, 3.810655456050459*^9}, {
   3.810655511929669*^9, 3.810655531236801*^9}},
 FontFamily->"Arial Narrow",
 CellLabel->
  "In[102]:=",ExpressionUUID->"3cefa659-4acb-4def-a3f5-92390940e105"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV1nc41Q8bBnCHSPbenHOQeSKyinxvMyTqhAYpEkVEkohkZUciJLOMEqmo
RDKTCKUk0TJC+iFk6+3967me6/n3fu7rQ3U+RT/GyMDAYERiYPj/zLrgzKLm
Eqfv4fxSi4Fhimjqpljuo5wg1ngzxVM5poi/L2rDKZQAosZHZXiL6BSRVZdA
ZqbEEBY/qk0S1aeIk9v9POfJGcSZnlbh2mNTRPfy8ZQp8m3iTeXL/xg7poj1
n77L/yJXET2cxTTnwmki71WOz09yK5GkVnGVfm6GmE2vVPoS30rE/UjRnYie
IUzd2gbfLrYSUKxhS8mYISaY5m2fdr8iWIM2WXNVzxA62622xUS1E5O31zeX
rc0QXfdWGOUnO4m/ZTpKd6JniZBXNAu1w90ESb9Ka7Bojii7F/PppEofsTm9
rthEaIEY5xuPt3DqIzb9cZU4rbhAyJ+10FdI6SPObTHsLtVbIHL12PMGF/uI
hsatunuPLhDJrfGuB5s/Ed5Nzyz23V8gzg4mTu9wGCA4Vhr1rHcvEjnsbeG8
Jl8J4ZLLUvuuLxFuxJuMidODxElXicAyp1WCIf/P009xg4SqZN62G+dWifR1
Ev2vbv27OzR/yUxcJV62ukrd7hkkIrrecL95tkoo2KzkH9s2RBgr3EoSEF8j
Ro/L3/1MGib6Yh9c4vi4RrgnB9d2JY0QD70uc19VY4DXsOJgRdkYcacv4Nqd
jyR8dfzIWt86Rux2VHFrGSVhb2+0yuuhMcJTYB/T9DwJOm0/AobFxonSQudW
dyFGMN0v4BGKGiecrsw+W9zLiPQgqr7/4Z+EkZPI7OU3jKjnF83YyvOLOEA4
fRnuYQIbNUL+i86/HJDTQr5ysOCl3hXVCyZThCePoJqlFAsu7c/WlqT/21kn
CppVWcCY9GSHvccUYc5CY/5OZ8HS2oTbh6wpgnwlqr0+gwU/+22LOxmnicTm
96rySuvRni6vWNc+TTw803Wz15YVl3nalPKOzBBSsm4HTn1iQ5W2ZKWV1wzx
cXNLo9dvNgw5niJWzs8Q0t1RX0I3sEO3lN9mX9oMwTl712tQmx2j5g7BnB0z
hE0tWlJT2WEU/qszQHeWKFE4eeqFDQcW5rj96EJzRF11pXj3d044f7J5ztT+
h/DY/jviXS4P2DK/efp8/EO8vBrH3lnGgwcHvSS+jPwhAtR86e9reMDUFxXw
lDRPsNpXmTF/5MGt3qdbfLTniZWCl79meHkx8p5S/Dl/nnB5+3pc4BIv3Lsm
kqoCFoiDoj5Lpf588GmOcD4lv0SEnY2h3AgTgNSQKcufLUuE5SrPQnmyANoY
N9wJwhLBSQvyeJsvgI1ImI45sESsdSbt0m0UwMenqRdvxS0R+xs8BQvXCcKg
vDD74+QSQfe+HD4aIwjezJd9Rk+WCd+l3UvHs4Vw35tjr4j5KiF5lJxXMS2C
9uv8AaV2q0QFLTZmnEUUI01iOYYuq0T5JOW8uoQoxEQVf54MWSX8GrQfL5iK
IqLeJLy+cpXomrtrdCRLFHZ8IQ/dpdcIpWSa4+1dYlh6OM3/bHmN4Jib+3a1
Rhx55z3GN+9jgNoRkZTAD1LYXLdhIeoQA2LyB4LnJqVQt66Y+ctRBpjljrwP
ZyXja8IQJcGbAddZQrk+bSVDKvfQvrEYBmyseGjjl0XG9SbrprwaBqgz0QO3
aFCQzKmRzSdNgqZnTNwHFirCclb2zE6Q4FSqbVPfLo3dm5/4KM+Q4LHiJen8
SRpS9b5XnBdJKJjxNeMal8bT7+NdXcyMIOUc/BG9Xga/N360LpViBJe9mSGr
kQyc71buct3NiN6e+d3aNTIwqPIy733ICO3KWyfSHsuCofsragKZEOSSGxn0
Tg4RY7V5gaFMIFk0Wzb+kMMGhizGrdFM8KGkHhRblgPfpgNNlalMEL+/NXSR
Ko+NUW923Ctnwok2/QvB3vKw0G2wyh9hQihN+HwxjwKu3rzpEE1fh3vMnoKT
hxQhd8b1nI0SMyIKIqPiVWnYtO3L3pzNzAjV31FcZ0KDBsN+1XEtZix2NJmy
ONBgGG8+EmLEjNvbJDReRNPgeItmU+LAjD8Pn9iIDdJw7d1vVcZEZtCI3Dly
5iYwa4b8uDfDDKGrNobMoqoYmkuzY3/Ggi8FPdb18mrIN9jiO9DIgj8s1ZNu
Wmo4nNCReO8VC5L2POITN1FDnyxz695eFoRXPuEoclbDm72ndW/MsGBi1nHN
LlsNtfctKZv+/fnOzxRniog60jxJ41Zp66Fds+ZeJLgFFsPuwck+rOCTlu0S
0dWEabDMXeNzrJjov+I7bKkJQ8H+vj8XWKGupshU76iJbSa7dOzjWeHMPC5S
EKYJpQLVGZkiVvgYpIVIt2mC/djs8cp+VmTkZx5dddRC+1CwTe+ODagzHedO
TNaG1VCSspQUGy6yfHOUoW1Du/LQOwdZNtyJ6zyTgW3Y6at9IVOJDd3bu2LI
tttgxvi5S0SbDVc/CA/aX9gGQ4ryWf7dbPjYTX947c02aDo017GGscFD6vIk
+bwuJN4t2s4Ms2HF6w5vf58exhudL74sZYf0DV6d+U4C5Cu97pcr2PGGtpI7
PU7AxtHK1qaaHRc1jvuRmIDaha1KX1+yY/+8t7amFJC8iffd/CA7nBdWSuVt
Ad205/LyYhzwN8/jNGgG4t0lOiMvceDnJJEZX2YAFd4eSaPDnEi4uKjaX2SE
kYSRsNRjnIhzq7rj/tgIWWzzP354cCKL08OPucUIHOtEHsSf44RCYwH1yIgR
xv8cMO25wolbRltH72w0RkH/gNeJJk6cVwkZyC40hkTx8PNERS4I7v0WteOB
CdiIOaf+GS64ntvOMPV7B84ZKLA+WuKCYWRqQuB6M4wY2ZclkrhhHLKtSkjC
DA1m9UuG3Ny4ZjwuH2FihkB6wtXbStwwu6HOqZlhhp/HNjafdeKGh7eA34qR
OdrjbRV4O7lRu4d2PKnIAjt+HZyXtv3Xw1fjtL3v7EK2QHh3yH4ezCxu1vVo
3IVZ3ZJ7/fY8aCz+tON8/y7kxi67XXPmwd5pxcY+Lissyd/o3eDNg/Sn1poZ
Z6xw13mgaiqWBxum43pkjK3B03s4qLaOB6HGdT0LAbvR2+BCOkjjxUQ6Z83+
XXRMGfSJBavyIjBz19ITezrW11tr5Krz4u0vq3BZdzq0nm9zG9HhhciqUIZk
FB0p1TyvT5vw4nVQx+v0ejqsK2rS4xx5sdybZFStsxcvCgQ2P0vixd/TlcLT
qjaojG5ypMzx4nQk0019YzsUW7SJRC3wQnqt64nmPjtc53j79tcyLwqK+ub0
3O1wMemLaTUjH+SrH0kEJdnBMn1JxY6HDw8S7+fVDtjhe9Hmv3HKfLAzKu06
cn4fuFpu5Mw78eGOf0jIhcb9cGX2+9rRwQdyu3SkV6w9xMitH5bf8EE4YTTP
JtceHTqSnQrv+eDecEDB8pE9tE42Pwv7xAeZiJLbp77bg6VbMFNrlA9ed3zW
xeo6oCD3kW02iR/UlZ2nRaYdMKS78MpTgx8UAbohyd0RR0+fr+S4zo/qzA42
xbYj0FL/XKmYxY8b7TlG6D0Ctt94ZJrLD/ruZ+VOw0dQ7sPy+GIhP9SrKnY0
/j2CFe8rT2Yf8KNW570Zo6YTrp0qqu5v44fdtYCys3lOaD3ZXX93lR9HC7U5
fMOcoeqm3GHpJIDCG2wbcl1d8PkE+VSpiwCCW+okvvm7IP4kPw/XcQHsU9Z/
uTnGBWM+y3s6vQSwdfe88EqJC24Gtb3fEyQAxROxf4x+u0A42WPALk0A0r6K
FTdDj+FvTcnEkdcC8JlWil4tcUUnH43db6sgLC2O6PKpn4C+p+dYpp4g1qxF
fGZNTqCspaylgRCEBNG/b+TACVwOUovgMRVEkbKY+2LoCViOaK2W0AUh4HN1
beDtCbyqMpj87iEI6FGnS/zd0XxkX/fubEHU1OfbV772QHVZWCaNSQgXRASL
fMu8wGJpK5bGIoRbetPxD156Yc+YfAaJTQhyUXtG1g964YfM62s9PELYYxqK
P8KnwJ8hnHxRSgjNkR7lg2Gn4BF+N/rdViGEhDfuiVHxhvj+Hr8gbyEcEHep
LeT1wXmS0u72ASHoqoqr/Fw9jRFj9l65b0Loyw+Q+czpi93RE4dDh4Rwk7Mg
+LOkL2S5753S+imEM+vdE9br+6JdQiMxd0EImn+m961c8IWUjn7HGX5hKGRc
yQ9kOoMGL7qlpLkwWFam7SWE/cDWH2jmVSGMb0nh2sUe/tDyv82Z+FgYeeap
DAwX/OHE1/v23lNhjKU4ybsm+eOJmeah6TphhBpoVB+q9Idr5aTPmdfCcItc
1Fn+64/6yy6ZgSPCqDFiS1lMO/evr6z+uyQigrfpQp9tuwMwXEhNyQkSwd27
Ib56gUGYiPi2yHRRBMx/Izd6Jgfht3Pe4ePhIvjUO3n0wT+pMZCpymqxImit
6mgL/BQEsTRKQ0PaP2c5SWkw6wdjdxR5aviBCOztI5a5119AjZukJW1MBKuj
m1SDb4cgRUF0XZWtKDgUvgbOZoTCwVGuaHC/KOiaOYJjRaGQTdliweUgCquN
s3WjlaGo+Lsr6aizKNzZLpzc8DYU73rCJLhOiYJXxZPrDVsY+CMnNI5Gi2LU
7IF16IUwJH97foyzWhQBX1q6CrzCkXTdtcWJIoa33Okpwmci4X82zDdI5p/j
qN7KTRGRcKRnk9PkxBBgPvk4ODUSNLYe/3aaGE7+1OgTfhyJ1gATBe2tYvha
3X14bCkSjAdkYzjoYogmCZ1gi7wEP+HvFo/DxTD3LmUs4WYUDqYc6uD4IYaR
R6N9JI5YSDxkE/cYF0P6+3iFJWosvrx57Nb6SwxML+XX1unEwoWbj3RpVgye
696H0F1i4RX7Ystfkjge586ldjyLRdhF1YxpCXFonjnNcOBMHG6fJLn00P+5
s755i+JUPBaMCxZzasUxxlh+Wo8/CUHVOeFN9eJIbJS8952cBAb165xjTeLg
aS/9kkxLwnpyIlW9TRw3jBP1eE2TILR4zrzpgzjEF5QbLgUkYUupZcbolDiY
Z8bm7b8nwUtwVkdNRgJiAsEao9VXMDhseK4hSgLq3673uyZdhWFOR75SnASq
Nk3XCuddRe7+g6+TL0uAi377c8/9q3Bs85E+miqBoLxvLBe7r6KvPLed6aYE
1FSV9oQIp+Dt+TWKSa0EmGPsCvTyU9DA+7S1ZVYCxrfoBuyNqcjfrib+2kkS
yq9/FwxppKPBii182UUSW2icXTSzdHw/PDiueFwSFocE7CLs0yETlvr0kpck
Wn99L3QKS8etF4sHcF4SZINzFT1d6Siwbkh/mCIJmkGBW6V3Boqd9gpdb5HE
QZGkkOya6yiN9ON12/QPIv9p7eeIzsKE3qGwyM1SOJg5JC6RkwXarPHMzS1S
0Hg0/m37oyzccRZ4/3WrFBQPWZY+HspCMfEw/aCpFBi8B19HGmbj1uIU2eqw
FJx+d9Wmk3Jw3fOkiuYVKfy8prL81zQXUbZHdzLNSUF4UTIubToP+db9DscW
pJBY+kuojSEfNea2Xi3LUij+GR3OzpOP39t3XIljJEOfpVPpoUo+HOSUP/Dz
kDHJ5jCcfTIf6vO/nWWVyRDzsmyZHs/H5/SwQBMnMj6aHhZ/P30Tmv15t6Ne
k7FW05unplwIHpXjC/e6yNhpd9H2iV4hJkJUdvR2k8EvbjhkaVWIWzLVQwp9
ZJB+/KrN8SmEgMc78qsRMrJRn/XrSSGWgph2sjBQsMvkT9MWiyJ8ZNeqNxOl
oLxL5G6VfzHSFTNLX++k4FZG/JQ5qQSzM6YF4bsoWGHwveApUgLr2t83tlpT
MLlh4Mst1RKw7LWIL6BTYC6s72TtWAK/oEX34AMUNKed2Z5aUwJ65z6FTW4U
2I7LXZoJugsOP4Gb8WEUGBtEN57lLENIXUL6zioKfpayeXx4Uo7xgbqUxacU
tGX6nhp9UQ675ZmkohoK1lqYzJnfl4OmdTCGqY4CkcLTN52ny9FbIhdY/YKC
Jh8rrlKl+1BPe26v/I6CvasLWTE59zHiOS3FPkmBUUjX+TvJD7BL3LbglSwV
whWjkZO5FUgfUqmzl6PiWmz+itT9CgyVsn6akKdi/9RBOfv6CgShhodbmYpe
3Hm6+K0Cd4/JBO1Vo8JkpfRvl0wl2Mqn6f3bqUjiye6ful2JFuPLDP/ZUREa
ejFFv+4RDLxa7HljqPhj5sTvK1yFpd4x06ZYKgLGRmPaaVWoMOJQ94+nwnPD
KyUdwyrIie5hHUikokw6QNHUswocTX0Vxdeo2Cyb1KHfVIVe0f/+4ZeKV/9d
Di/3ewrvZoE6r+dU/G1faWD5UY0cCWfZ9jkqutkOBGitf45tW5RVnOep0C+s
S/hEfo535rPaCwtUFDJZaKboPAer/6WdsitUfFT7ex7uz+H95s7pIEZpOO20
zb7U8Ry4NFNH45bGaJ5rjMeuOnyfjDiUoCCN6itPJIKp9ZBtLLpmZS8N4rFy
wMXxBnTQFm71O0hDLuAok+5iA85dM3vo7iiNkYZAZhJrI9pOjHVecpLG92aW
1HsbG3GaR3nDczdpDKzSB9KcGvH8UNl51TPSeHegbX3Wp0YcXKg4wpMgDcUP
gcNPe5vwQu+nRmixNNZYl95KML/A/wC4awqO
          "]]}, Annotation[#, "Charting`Private`Tag$249220#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVl2c81g8XxnHbe+9x35JNkozI7yIUCVlRRmb+SJSKiEIICZGRUFQqUqFC
CdlEKAmVzIyKkFkez6vzuT7f8+K8OOc651BcT1h60FBRUWlTU1H9P94Mc6Xf
7h6ve2bY3M2qboGo7yGbHiL/R1iYM1rc7V4gNhqrI8nkYKIju5+bfmSBuFlz
RYKOfJkYHVfbM0NaJHx3nz6+JJFJhPnZ+lgbLRI9a16psxL3CfL80b7st4sE
w8CwzA+JCuKn5sn2Q+N/iFutuQHTEi3EO1kvg6/6K8RCRrn814QWYvV34ryX
3QphdKxtpHulhRi9V7pB67dCzJCWbCp7WgneqILjgZkrhOZus12XY9qJ/pku
e9W5FeJdyTqNzK9Owqxm53HNglUivFXRZLtzDxH3/oLUkOA68ajk8oCvcj+h
mJW52xUbxBT3VIKJSz8Rp/uySN9+g5A5Y6Irm9pPPJYkJtVPbhB5Oiy3Rlb6
iQy/cKYjBRtESkuC5+GGAULlbklXCy0Vzoxcndvr8Jl4oPRPasqHCrksbZFc
hkNExRE2bZI+NY4RXZkzJ0eIITXnK8EcJFDd/lM5ED9C8KnmuNqLk5BBKzrY
WjBCxLn/12OgREJzi6f4/d4R4pzqxEPd/STIWq/f9tg1SlTTftN4HUPCdy+Z
oi/UY4TOeYuONRpaeKecr36XNE6UcR9gvENDB78xuZGyR5PEzyIxuW+yDBhy
+sRY2zJJMNIOV4TqMMCqL1b57egkITznMCprwQDNtongMeEpgn1bpW7pWQaQ
ntzh5I+ZIrJ3xKYlNzEgI5Sie9Z5mlhnr7C96M2IWh6hTC3OH0QOkxZj6ism
MFOiZL5qzhKSXbv3T9xgRbNO8rYww1misero+YtPWRFtl6MhZjlLRNAOxCm1
sIIm6cXeIz6zhD6buX/VH1as/ps59vHmLJGYvfy7xJIN04M2hZ00c8QXtRBv
RnZ2tGfIyNW0zxG2au0CX1I4kMjZJn/r6DzxoqTl4W5fLlRoiJWb+c0Tl91P
/5EN4cKo0wliPWSe6Fi8xkCJ44J2MY/1ofR5QmF+oVCjkAvfjR3Os3XME6rX
RkSpxriwJ/JHZ7D2AuEjefkKgws3lhc5TlvyLxK2TwZK4MYD1wHr16T2P8Rh
3lv8/1L4wHzj2/GAT3+IPEYxOsodPjw97Cf6dbOP49JKVa2e84HUHxNcSb1E
nJsIDxsb4ENBX+WOAI0lQqpDXP/NVn6MfyAXfrm9RESoZk76veSH97uZpIrg
ZaJMdylydFEAAQ1RridkVomMtoBDjtnCEB81ov+zY5XAP8HyXU+E0UbD9CAU
q4Swd42fbKMwtuLK3GX7Tf7cS27nrDA+VaZdKIhfJeyyarfyGYpA7/HdnE+/
VomaSL77q3Mi4LrR3L/nxRrx5a/3iQo7MTzxZ7USNP5LlGiX0sYrk9GexRNc
bPuXGI37HHlAh4zxeuFcffe/hH6z8TMREzKEheSmfcP/Er+Ilw4DHmRE1RpG
1pb/JW5/fNL8/SYZttzhpd6S/4gIz/3/DDgpWC2d43m19o9o1XF4vv8fBbdC
fKZUDlGBxfct2xK1FFRqmJZjHKmgYX83to9LCjW0hXRf3ahgesUrp5EihaEr
o+Qr/lSgXSmva9aTgnie46HJy1QoxVVGzwgpZNWb1996SQX5wcBANvqtSGFT
y+GWpEZqScAHOwFpROSuH1yYoYZrROWyobssLFReBCjMU2N475ubOCsL8dpT
ya4r1LgrasJgEieLyuGpd+/oaKC7u8vm8mNZ/N76ybxYnAZlSc+kqv7KwrWo
/ICnBQ0SZsWaFrPkoFfhZ9xXSgNls68zwt/kQdUzhJfnSJDa6Zs/nKOEqMnq
W+cukvCU/GDX2HMlMFHdpNGKJeGw2PSv9XdK4Fayry9PI8Ez8eOaD0kZW2O6
9pY8JsGJ5WCSyX/KMNGuM7s9ToLt95Q0Ia1tuJaf7xBrSYuv8wPNNYEqkA70
DLKWp8MCedD02z5VKO36apWrQofwCPrn+w6pQo3KbtuUOh26OP4FV3moQj/B
eDx8Dx1uDYkqv4lQhVOBovVDBzo07hPf7/BKFdff/95Gc5UO5FOvzV+p7QDd
zvCJknk6cH4rehWiqIbRxXRbllf0uCu2s5lVXx239Xac+vyGHpIXwqk4bNTh
fKXjakkrPXxXswMpXurol6Jrserb5Jlde88mqqPL6qR29jw98gJ2U74PqKP6
iSlZSZ4BsSQPqulgDaQfp54yS2fAzMsni/11mjAZ8z6fEsAIqlLOTxXx2jA6
v6XIIIgR9cdYe7pua0Ofb7D/TxgjBAWD5f5WaGOX4QHNIwmM4PXOU0z8rg35
O9vmt9xjRKs9le0NIx2weCx4lQ8yQn6O/4k//W60j5637tvLBNoJd9OwNF2Y
jSYpiIszY9TS/OGlVaBdYfS9gxQzap6yVbYx6GH/KY2wG/LMyLc7IifKp4d9
NF/eCWowI9lA3GRwmx70yQpneCyYkRa5FtTvoYedDg01jBHMEDH41fihRw+i
71ds5seYsY/H1pL0Qh9Tb1wvNBezQL7L+IdcvgEkkvu8E8tYcLGJac+DMgNY
O5nZWFexQPOVib9WowGql7Xkh5o3df/TyKhJA6Qocb1fGmFB0qrcXIeKIbTT
X8vICLMiJbhQEnWGSPAW7bwUzYoX8emk2VkjKHP1iu1xZkP3wR35CReMMX5l
PCLNgw39QjTFVanGuMm8NDHhwwZbu32PVwuNwUor+DQhiA2zZR8/FHYZY+qP
vVFvMhuivEKom7aY4M7gZ7//6tnA/mFMgr/NBKKFY6+vyrHj5GPDmiPSpmAm
Fl0G59kx1NRJG8dtjiA9WcZnq+ywy5N8rKJkjvE9Rx5dpeYA4iw0fu41R92+
2lV9Dg6YilXJPDpvjnOWV67dl+eA1I+pij1T5pj22NpwxoUDxfusU6bdLNCe
YCPL1cmB6IBntukmB7H3x+ElSRtObOnbe7ZI1wo5vJE94Xac2H5CnfWbmRUW
tB+WDB7hxNY7l4y2OFshL27t2HVXTmyoG316F26FVZnsPiZ/TkSlB1R11Vqh
yPVzxWwcJ64eKykN3GcNzj7n0OoaTjjZeMdfO2qDvjp36sOKXKC5cPHdUvUh
zOr1C5/fxoW8mdnnOV2HwFBrrpanyoUM1iVD69FDUH+969i4JhdYQ/oip5ns
kFrF+fakIRcUj7q1tdnYwbzsZUa8ExdspYk2x1k7NN7hVXmVxAXlm2qXRLYf
RnlsvRN5kQucXxN8X404oNCkTTBmmQsLxlo5dusOyGLt7v6xxoWn18gNjHyO
uJD01aiKhhvys3y7Co0cYZqxqmzLyY2je5RejD1wxPA9lY14BW6ss29f8D7r
BPam7NylzT1YqRd2NYnzKDzpTg91dHAj/EhG35vPLhCWaPm41sUNjqSIu8vT
LujQFOuU/cCNXY07azRXXaDu2/AqYoAbht+nV/v5XUHfw3dD/Ts31Fg+xRVa
uOJO3jObHGoeCAle4vdvdMWo9nLrcTUe5J354ve70g1uJ0PKWbN44PmmqH+y
xQPqql/K5W7yILBC/+tYvweYf+OZUR4P6nbKUH5Ne+BxAP3zC3d5cPuVQrQc
uyfW/ZNfLDzlAXsP/7KulSeun7hXNdjGA6qRzuLFr55o8e2pLfrLg5k9Gfc+
k7yw7ZhCh6kLL6R2C9mxB3njy38SJ4rdeeG07kMEJHojwZeHk92LF9FfS/km
CrwxGbB2sNOPF2fodTtZur2RH9r24WAoL2xPz2lpK/lAIMXns206L4J4kjUx
4YONlw9njr7lhe76eU477+Po5FZkOa3Fh5Ox1W6mdv7QPX588oYOHzTDjkSp
evjjUdOjpjqCD7Ibk92SJ/2RGLo9itOID7litMKSCf4wHVf/+9CSD5LGRarZ
Nf5ordD7NezDB7vV/meXFALQcPRQj0UOHw5/+PjAi+kkqh5F3FAk8SPuIDnN
fuIU6E1thNPp+bGrytDo6PIpHJyUyaRm5keQ40LMaaZATGx5e72Xkx9ao29/
tikEgidTIOWCOD+er87clwsIhE9kUex7LX6Y7ZdfLP0XCBG73tOh/vyovBog
5rz1DEKo5S3aP/PD6N53N46CIIwbsPRJf+PHlJltW82LIFjEzjhfHOWH/vyJ
a5FvgyDFUXJCfXqzHkmeC7uXgtAuqnY1b5kfDzReeUbtD4a4pm5HII8A7KKi
T/gsBaPOz9JUzFgA9QyjGkyOIWAePLfPr0wAdee7DejcwqB+9j7b1ecC4Hfs
beo6FwYX7r7ukkoB2F4O+/k4JQwv9u10nKvZ1I0KLvfqwuBZ/isg8K0ApNfi
z57ZEo7aRPcb58YFwFu/4P3ge/imX5n9jBYURNZtiz+TNRcwdpeSmhsqCKcd
n9qtgyMwE/VthXRBENPcspL0lyPw2/WWs1ekIDrz/rbVZ0SASoKisD1OEJOh
ySbeLyIgnE6uq0sXhG9mi+qh5QhYxEjMjj0VRGTMRGvduUi8PCZmqjgpiArJ
pY0dcVFIlRWirbARAn/LzSqN3mg4OEnfG7ETgsN/TmuW36MhlbrDhN1BCAtL
OtdDV6NRtnEgyc1VCDOHR5nXxGPwvjdClP2EEOIutarc9YoBz6UZNbdYIeg0
eqa+/heDlG+vPdiqhEDDUt95UP0ykrI8m1zIwnjc/Cqm6EM8zp6JOBW6RRgO
1680mU3Hw8kyRyJdWhiNQu8/UlMnQJG592y7ojBkE/lyshQT0BJsKKuhJYyy
1t7tGVEJoLGXusxqKYwMumCRTo0rOC0wbPI8UhhPrbqM4h8m4nCqYwfrhDDe
N6lkFY8lQbSUWcRnShhDwWI7f84n4WvX82MtP4SR/ynhwy6aZLhzcFNHLwhj
zivefFk8GX5xjTs2qEWgVc1uRGefjIgL2zLnREXA5NNv7N+ZjPu+1O69liK4
2Jwx/L4hBcsGd1Zyq0UwpXDSdN9AKkKrciPra0VgW2Va8WQ6FVSqWWyT9SLA
8k5O2fVUMEhcpai2icArZLhAWywN/CtBxvUfRfBoQDp2wzkNO4pNM7/PikB1
ldmQ9D0NfnwLmtu3iOJulexrA5p0jIzpB9XFiCJILolbzDUT+rkdt+XjRdH9
38Ro/dlM5NkdfpuSKIr326dVwq9kwqktQNItTRRD0tynFSoy0f84r52ULwrm
j5e83bmy0B3yj2xYLYrGT7Sing1ZqOOqbGlaEIVFlQWtqE42bu/eLvLWRQx1
MmNDol65qDNjjlxzF4PTRpEB5WIuhp1HpuS8xLCgM5GmlZWLLRFpldF+Yogb
3o277bkoaFyxR4gYYk6RKjWF8nDHvC6jNFUM65HWr39eyEOhixV/VpMY2KsC
qGF3C8WXTnMdUxJHY/aEmqNsPmZ0HCMuqYgj9ulDYSuNfCguGMzn7xDHd2aD
EmujfDxw5f0wpCWOtPUzTCHu+SgkSjMOG4lD0UM00uZWPgpWZiXMnMVxQ7mp
yFisAFnHfZV3JotDnbPFM0D8DmJs3PaTFsUREb1vdnrvPdw2H3TwWBbH+nXq
jYIj9/DS2MavaU0cZtmUN34n7uH37r3J8TQSeKmtV6CWfg8O0gofeTglIJqw
3z5+4h5Ul367SilIYP2/PpWA+EJ8yYg4Z+giAe643h3RQ/exc/DW/Zi3EuhL
MZ7WeVMETmWv5ZJ3EpDmlZFd/VSEmXDlvX09m/nDSs4ts0Uo2FI1Ktsvgd8y
2Qs3xYvB6/NeonVcAu7DpQcoIcVYDSXtp6ciI6z7h9tNjUf4xKJeu0+IjGzN
u/3d1SXIkLtR/Hb/pm5tkGuPeoKFeaM7kQfIyHoqPN5x7QnMq39na5mTUfWQ
IfzL7SegtzJJuGNJxlvR5pNStU9wOnTF+7z9Js9oyTD99wSWnYdklY6REczm
Xy4Q8hSsp3nzEyLISGm7OzEZVorwmisZ+yvIEP8tbrv1aTmmPtekrlSSoVjM
eMqjvhy2a/NJ916Scd1LaKqstxyK6ocvk2rI8O1yFY5YK0ffQ+lzVY1k5DkM
/uo1fAbV9NdHFN5v/pFDDQunPz/D+PE5cZZfZPDeCp2YEHyBAyI2d1qlKKAR
Gxwvf1OJjFHlzTuRAtHq3o7yvkqMFjMOzMhQ0PyxTaXxRyVC8ZKTQ4GCoyc8
rgsKVqHIY0uo1XYKGts7rS8drwLz4znLwd2bvJpWKk7kJZoMEql+2lJw/WGP
Y27UK+j5NR3hukzBo6MvwLC3Bqt9k0b1cRTQ3cx5N2Rdg7I9rKpnEyg4W24q
1+haA2mhg4yfr1LgHSjlWBZWA9b6/rLC6xR02N+clHhegz6hn2wooIDVeS5W
R74W/g28NX6vKRCQKzP5IFSHXFFXqfZFCmxklBx+kuuxa4eCsusSBWqxVZsT
Xo/3xgsay8sUDH0Qq1xAPRjPRu+XWqcg0quaRdmlHv5dD06G0kiCraG7Y9ft
eiB6vkaRQxKJbbTdDdINYG6mjXq0RRL/GFe7Reka8T/z2dQr
          "]]}, Annotation[#, "Charting`Private`Tag$249220#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVl2k41G0bxgdZGslYG+uMJUv2oqTlf5ZsLYhIkS3ZikiLRLYshSjUKLIz
UlLosYQhQhHFowmhSEhPRCVt77yf7uN3nNd1nl/u67qPW8H9uM0RbhKJZMxF
Iv3/zDrvzqfnkbDVfNji7gruWaKll757P92HCOaO1c5fOUv8fdIQTaefJVjy
benGMrNEFiuJxku/SLC+RBjk6c8Sx7ac8vtOyyAMt5mlv/KaJXp/eqfN0kqI
0WrqE/WeWYJ/8J3qJ1oNwT7pU13AnCNyn2YHfqR1EBTuwPaekHligVG1ZiSx
g/AeOplyLGGeMPV6NvbyRweRop8cKZk5T8zwfLer7X1K5JQ7CafXzxOGWyyN
LsZ1ErOVX7S2ci0QPfd+cat+7ibod8hbdyUsEOFPNXfqufQSAoGeIiW3vxJl
9y4OHtMeICZTY/UdpRaJadHpxJ1uAwSl8rbsJc1FQvX0zq1qaQMEi3fRop1Y
JHI2C+aO/RggcjofFpzwXCSudiR6HmwdJKxDIu9HVC4Sp8eS58yc3hAOlAN/
Em1/ENmCz6JFTEYJ1zo9xcasJcKLeJExc2KMaH/VeDXwyG+ClPetdjBhjAh+
yN7uHvqbYCyTHXpaMEagYPC1R+pvor3DU76kf4zIUUtcyG76Tajt+5V3xGic
cP03yPOz/B9i0lv1zjDXe2K08Oy9v0N/CN+rYQ09KRMEZYvASOE6Evzfq49V
lk0RjItGFfODXBh1fi3Q1DFFLJZYBol+5IItO167a3yKUHMOIW1d4oLhsw9n
30tPE64V5+7WUbnBc7+QIhk3TZA2j0Tb2HODEaqw9YzLR4JZfO75915uNIlJ
ZWykfCIc9q7VDXjNA7LCBdURw1mCqXvdvEKYD+2br+icN5klDKlyBgoKfIh1
uLVBzmaWUFNvnMhcywfulGozx6OzRITNeEu9HR+W/sx4vcqaJVjH/bKLMvnw
cciO2c09R8D+bbi8Fj86GarqrM45IvhpiO03BwFcpjxbk+s6T8zWtz4YGSaj
ZoNclaX/PBE/92vlu69kjDsfJ36dmyccjKRpiysEsemu2L791+cJ1uiVWy6b
BDFp4RQm9HyeYO899k0uQxDG0Z+6z25aINi/GVJeDiuw+FX4lI3kV8JaNqa+
aEII7oP7Gnk6vxEBRcapX/MoIN986xf4+htRvk5kfK6cggcH/WVHJr4R2F72
7UcDBTwDcWdrub4TzIkP8VqDFBSwa9cFbvhOlLsqByuJi2DiXzpzOO87MdtX
b2sbLwLfnpmUmrOLBH3sgY1giCgCWy+4H1ddIpiD7/w2x4hDftyU79u6JaJc
KHGfbbo4nnEvvx2KJSJH7yH7dKE4ViNp7uKBJYJUv/rtWKs4XtemRxQkLBGT
qtbL9/NLYFt50a3Xn5cIukFC3O1ECYjcbB8wrv5JWPs8OmKZK4n7AStsqRa/
CcPocpOJBSo6b4idvWv/m3B9fei9PFkKEy3S2ds9fhOzjrEpPjQpSEupfzwW
/puolnxoarBTCheaTKKbqn4TKfa+Y8U5UrAXDa/wVfxDBJw6lMK/VxpLFXNi
9T//ENDeIazAkkHuuaPTuvtJYK30vug3KA9d1vLFuEMk5Py+mf5xXh6sZUze
kcMkxKeniIatoGE0aZyeFEDCaF9E5sAWGuRzDu2fukgCPeFKfmQuDTdarFpy
H5HA/DiebbqejqtC+rdEFblAsblfwrtcAVHZv/YuzHAhWEP9inq3Iqx1qwM1
5rnATBze2PlGEfJNQVfcf3DBvKTfJGRGEbXvpnt6eLlBCeIvXVyuhC+rX1vd
lefGZL5hQbiJEtzvVO3xtObMRYb2hoYGJWyr8bdgV3BDgHwnfGutMki9o3gU
woMA68w33q9UcGGqITckkgfM/7JkH0yrYDkpi3tjPA/MuVwLBP+oQFTrQEtV
Og/UGLqtn5VVsTruhdm9ch4E17/pDgtSxc5NzZZ5EzxY/P7Ksl5MDan5+U7x
NstgPZuRru2mDpWTnsH71vDC0Ou0n9o6TWgZjdhm6/IiJZPf08VCE/okB53p
9bywpl8dLnbRxPZEi4lwY14IXGiO9UvUhHOB5r5SJ17okgnDrglNXOv7osOd
zAtKup7P9C0t8BqEf7g3z4scJ/5MkpwOxr9etxes5wNDfqBgXl0PedvWBb15
zIfJTz+VMw314JL0PPneUz5Qu56r7zXTw4Ayb4ctmw+uRvtmRj308ML2xKbM
eT6UZ52OYuTooeH+brrWGn6whradD5Rei+t+XNOW1/lBPX3uN5W6Djvf+4Zd
DRRAvEzbo54tBjANU7qzI1gA7clFxdlWBtguMTTw7bwA2LWMiDA3AxiZ7DF0
TBRAj/QLbc8YA6wp1JlXKuYwd96bmS4DCB5Z8K4a4tTPaJUPuK1H53jYPrbZ
cowO7mhITd8Ay/EUDXl5MqimBqZhOkbo1Bjvc1ImQ/dm/9JXYyPsCtpw/uYa
MkaDr5WfdzCCOfdwD3UDGfG9cXtZkUbYTtc4LWZNRvmOuQ7ef41g4NTKEogi
g+njXldwfhNk+37Yzb8nI7j410TS8GZMP3aPaL/L2Utm0X+W9xGgXWH7Xq4U
BDO+YZD/M4F9zpZ2++oEgQpvy5W8QMPixjWj7YIIXpRKNKEDV7VE+r6PCWI2
qkmQ2A9sut6oqiq9AvjwrtWzDUj0le2OieXwidK1PeXboC3SL2fsIgSIzoW4
3jbGRNJEVPoRIfQ43ZqfrTFGFvn7hw9HhTD5t6c+qcMYK5ZRHyQGCyHAs8tv
ZtIY098OmPZfEQIrmM+KUNuBwqE3/j4tHH1qc5txyQ7IMt83JquvhDlb95+V
VSYgE1/dhuZXoieknZfrmxmCt6kJPFxaCd0NJ/Qvk80xYexYlswlDJLnbR4t
mjmazZuWtgsLw/zVbla2uTlCbJJSS9YIg7HpnZNjpjk+HlndetpNGNT1/+QZ
mlmgM9FOTaRbGNYnTeSWbu+E2aeD3xXtKDB8Kpq7uWwPbolH94Y7UEAaT3pl
1LYHC5tK7w05UuDQ3ihlOboHOZd+el1zpyCAaiRQKWqJJdVM9vIACqo9/CPD
gy1xx/1NzewlCtovFVcpm1uBwnYJbWBRAL/9H8VDrcFu9uA6qCmCnA1lzHIr
G8xuG5AO0xFBe6Fag6izDfibrPRz1opAN6afFnHMBusbjbwmDDl6ic3H0Is2
SKujdJ0wEYGA3p/Mv49tYFX5iJHgLILRPYO2epts8aRQXLc+RQQkV4vu2LX7
UBXf4kz/yskrnYyimtmDufMZNW5RBGo3nflED9rjxoqXLz/95NRvUqyQ8bNH
RMqIaR23KATq7za6pNpjN2NJ254iCjUdVfU7o/Z4V6z7N0FDFD1FenHu5/dj
ZVtm9ne3//OejbefOMCT99To8+eimFR4aPo1yRHStI5XP1+Iwnujpd5wviOe
G8p1q/0rCvbFzjh2jSPWH2utjxoUBWvm8z2uCUfw9UrcXD/Jqf/lHaRKOKEw
56HdLS4xGJqF0rsWnDC+afGpn74YmPN66yb8nHH4xLmqFTfEMJtdcsGqyxXr
1w5XqWeJgWGW5us94AryFzw0zRFDSq1UbMIHV5QH8v0TUSQG9qWesFkuN/wK
uFK98EAM8dU7rddvcMO148V1Q8/EUK7zjVGd74aOY71Nd35z8jaFt7644A4d
L43nu93Ewe4Vb9rs44FhH9rxux4cJjuTI0I8kHhMjLLSWxykzt2fXiR4YCrw
595uf3H08F+6n1vmgfzQZ//uDRVHgMmr5C8LHlh19egb++uc/jCZEo8LR/D3
UemMa5c4Z/8+Kh8v80S3qKbgqY0SqE5pk9tt4IOtfn5TNzdLIFjPeETXwgdl
bWVtzYQE1CS7bFcf8sHlUL0LFFMJTB4siNsS44PdE+t/l9pIoCfrwRnNfh88
rdn2+d1RCQQkHLogfM4Xra77e61vSYCpH1y748VR1JVF3dTkkQTJ4Kqj2wN/
8O22k77OJ4lyxqOs/E5/7J1SzeAiSyJYZJf9rwl/fFDqutZPkYR5d8SZOZnj
EMtYdTVCXhK6M+6MmdjjOBp9J75vI4e7i+tv6gZAxqH/VGiAJBgv32ztFwvE
Oa411p1vOHnuqQ8PkIIwsUOQrfJWEqyXjx5aUoJgHT/jEjkuidkdvnJ76UFQ
Fr53fP1HDq9x3nUeQeiU1U/OWZQE8+8qr3ORQZA33Pr8pNgqqHVUMsl8J9Hs
b7NbzmIVFpl/7nRLnQJ5KMTcv3IVXBeqpov9z2D9mRKh5H9WQTeMLMQdeQZu
ouyX92pXgRE2e9k39QyqzQ0OzbFWgSoYOexZfQaeVZ8DT3Zx/EvFp4V4gtF0
2eNmyMQqzIra1dFuBnP2leV/sVQqWOLJngX9Z/G+SCEtO5SK6m83pt6GhWLm
wtsfPBFUlOsnV0pcC8UX91wX72gqXCPiVzqXhYJEU9DQu8TRp4KqNEdCIX2d
3tx8nYpJyZd1j7eFwTqONvv+Acfvifq2SfJ5PPKS2605RcWspKdAwt1wpKlJ
Lauxk4K30JbjBpmRcHJWKR5zkILuFv9ejduRUE5bt3OlkxTYpBwLrepIVP7d
k3LYXQrmSmrJe/si0dcfJbvyuBQi7picpgtFQSxmRv9wvBRynt+LG4mIwtW3
jUeE6jh+qw+3KwZGI+WGZ5sbXRq6zcFd/adjcOZ0VFCokjTnvozGxsTFwNnm
Fu26ijTarRkbtjFioEnuP9OpKQ1qsWXxSE0MOs6aqG3YKI3g6LnBmt8x4D6g
fHGFjTRnz86kzcTF4tSqdzv/iZZGTyl/a1pRHA6mHXq+4gMn7wRv4X7hS5Ct
IMscneb46fU026y+hJEX/3h1fJJGhN6cr+umS/AQFuWKXeD0v+hhVHhdgv+l
J+v+csmg/J2q8qamS4iK0MmYk5UBM07hv6EzCSg5xuXRbyODnmHbx2/mE7G4
o/BHdoMMdHMqXXZJpCC0Lju6pUkGk8YtRvMKKSCtvSE01SKD9pDNgoXaKeCn
JSusfcbxl28tVTFPgeSPYIuWVxyuUG3PO5eCdXd3Z0zOynAeYn3fmPEU+Ess
GOopycLb43GkVsMVjL3fHtwcJwuSQ57K5NVUbM9+nrcmQRau+hKaN/NTkeNw
sOvqZVkwix4FOFWmwvlZoOLhdFmoKdpMLu9PxUB5TidPvizaP4d8EJFOw8tz
f+gmDbKoVj38d7QgDc0itR1tC7Kg7lW71teajrwtejJdbnIwP3VC7s8GBpot
ydE/PeTgsHSt0XwXA+9cxqbVveXAfJrdmOfMgFJUem2svxwECGdyTAwDBU9+
HMA5ORjyPVBa1sdAoVUzoyJNDt6mm62+B2WA6WYreaNNDj1lLyfIrBu4G3NK
xEtLHoZlwQf7ErIws/lQVIyuPFI8JEQ/5GVBc2HHfP46eQS/dXguWJuF2+7i
/45ulAcpSDUpYTILTKKCcdCU8w/oSS0/YnoLBT9maZYu8mDEVFKv8Gbjht8x
bYMr8jA3/BYvYZGDOLvDu3i+yqNHlV49Np+LPKshpyOL8mhPMFwvxZOHRxZ2
/m0/OZzdfM1RNA9ftphdSeCmod1teA2/Xh6cVDReiVFoiBCQ713yz8Pa71/c
lTVonHnqeXvoUx6GGVEhJm40sFmiI+4L+TAYyi2J66LB8NyN3QLaRaBoey/e
66Fh0q5x6xWiCDPh2mbsXhrnP9EipLa3CAVKdeNqAzRQ3az8w08WQfxoH+3p
BA3mJB///roiLIXy7OIj0WGulaCjs6cYrwXXN5lL0UHvNHswGMIEQ/3m3a5d
dJSb1yo2LivFwrxpYfQeOkaPUovfy5TCquFL5kYrOiKoF7jo60rBZ7szsdCG
jpSmy6E9bqU4FfrDN+wAHd7EZ19FVilsuveraXnRITCwzS4j4g5WnBLPT4yi
gyLIM2glUoZwVhJjVw0n/+mxxJ+15Zh+w0r7UUuHru7HQys7ymH/cz6l+BEd
i5XifFqvyqG5/uBFHhYd1P9MuS/Pl4NdqhJS94QONSXK4xHN+1h7vdFRo4+O
di9bi2e59zHhNycv+Jnjn1tsLpj+AHtk7AqfKiuAzd5TlZpfCca4NstRRQFY
vLK1taIS43cFBmdUFSDw38lQnpZKhOIRRViDo2//u6VovBJ3jiiF2uopYDFL
fy5GpQrk8jmboS0KoBzJWHp4pwptOy6T/rNXQPn7H/vUHj/ENv82R5GLCnBY
VEkqka7BEnvKtOWSApiM8428ujWoNF6x9kwip18jWv6kSQ1UpPYKvElWgLfv
uZy4gBqsaBmoZF5TgPXlI94JbTVgS/0nhAIFGK59+a/Y2VoEtIqz/BsVwLj+
j0vGdB2yZd2VO78qIP6BbYKOYCOM1mlou39XQLt6StsrpUb0WSxsWFxUwCRv
QEbq5kYInIndpfxLAa6iLptN/RsR8OL2iVBuRQikphlkvGwEYudZmsKKiFib
MxVpxcK7zxcOJakpgrFyX0GZUhOUHxdfs3RUBNtXK2ZmphnPNRcLhpwU4eCr
84X5sxnB18wrfJ05+rt4dgD5MZ75THXHuimCFc9roKT2GCcoGssbvRQRnLVM
XczjMRoPlZ3TOcnJr9aaVx1+jIOLla6UJEXoZjZt9BxsQX7ywT0EUxF/BJZe
yvI+wf8AQV8ELA==
          "]]}, Annotation[#, "Charting`Private`Tag$249220#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxN2nk0V128BnBF5pkkyZAxSaGkEr8MRalkCkkSmYUiY0lKCRkjylApJFSG
CJkzRsgQSeYxs5C43bt+9zzvX63Pep7v3oez96l3rVfQ7LK2xXoKCooxSgqK
//3zyXUzamnz+4oUFHtE523HlcqbBTTPCFgrUfj07HMvm1Zaqyy6JSDgrvT/
OXNYTiZ9uy/hJ8VB/BsE7hF9yUnz4DXLB4S/M8etrrSFEX3hF3Ryy38iidzu
kIv9b/5HhJdtNbumLeMJq9aHiiy0PSU8HH20ZM76ObFeoPlf49k/SUS+e/e7
xemgl0Te/McqYoo/hbDrJ77dk29SiT5PeEvthEoa4SKTAMvxr68Jm0mQKMcs
Mwi39OhtnVN7Q9gtjSFvpu0t4WKVa1OTf7IJ03T2ik3w5xF+SJf/cMjyI2H2
x1Xrp9tKCedYXo+btC4nbCS758CvPxWEVV4I/rQ3rcTvezPL3Ynyf6Z42fVb
a15pY+CKlP32T4RXV0e+jgfBjf3lQuP6VYQTa+KdxvirkWesrBebbCB8o0by
mPT5ZsLJb3JFX0X+s4/9TdfuRaWmaGVKkTrkf27U/4hb30JY2NKggHt/C9G/
ttfBhfEFXEPpJ0XB8ZXw3Cgzg4fGV2J+a9Ojodkb8JE84XL7HNgxISNhaByO
8T/gfUGolVivzKHCsNMQHtfTktMLgbkOdbI3VLYS8yThS5Pqf2FrhunaUtk2
oh8245msYAMXdFDfzkmAWZJ5FVOZ2gmbucr8fuIB03KYWN/W7SCcnnGv007q
G2HXvgfTR42/E45nqL3FptZDWPGQp7GPCdzlsGPv5LUe8vleUfJI6GQyCUXO
3XR/sC4VzqFU+HiwHNbdOx6V+h2eufTYcfNvODRaU+Mu609iffrzTGkqrvAt
kc/Ma52wy9tTLS4vewlbKn15NO7cRziairer5jlcVX2JL6UVNpUMVIqe/Gef
5ZorS2tKi8FvTP1p+4k8ZLr1pqsgLK678tTiQD/RL84RLNfVgQ02Hx1QsUN/
ytOOWvY28rvdoWLb4pALHM5VZ8uF3z/rsqZohLWo19+fHMb8sJVYWve6AcI+
tZr19Twwt5TzrwJZODMkiiVNE1afLdgdazFArN+j13s64Dpyt/c0V9yjYNYt
OyOsMuEUb+3sM9WYV+651nqkF/k35Se/9/6BnZNKuUU4BwnT0w7v59wJP7Vh
Okt5ZJD8fVlHOlAv4zVjAjftMnjy8xpsE+Zd1BgCr59/+uNjyiDxPDFnqigy
SpHL5E8IxnUir+HlUAmag81uyJt7MQ0RXv557rat6BAxH6Z664WRErzjZfIn
DQPY2G6WTjwADpRW1KQugIUjLtrPt8AFC3eD+ydgXcP0jGbqYcLjH5obS/mH
iefx41uafiOPnPcmH0fiaTirT2VPiA36mkes9W7cQt6fHOzq8Bj2YsiKOpcN
czp0vNf8DL9uXO04OIT1jsgK/5GgGCHy7kgNXp7NsOuiwyE6mRGiz3w2wmTx
GHJFgR8JrV6ww8D2vqx0mPJNEiuX/yjhaC9BxWvnxwh7X/a59yASNjP70fKy
Fm7pDF5+Nwgf1VMUKF43Tjj/84RaHS8sqf7Etn3fOPl7u4G0sPPserrncAnH
5kf7WScI0wv6if2QnyJ/n2hJY116yQ3rpwnXRYttL66DA7L2SJ/vmCb/PhhJ
6o2H968OwNTjJw8/mYHLaYw1FNZgXyHr050MM4RJSq6GHtzwqtGtC5tF4ALX
EOv30jPE/h5hT5zOKMLy6anuC8fQX6jOvRl5Bs4aKL+3xxzevfXHI2dv+LXu
UkrmQ/hF2c4ayWo4TsZsNPkPzGPjtTzIOUv4YeJDehEpWLfwGXv5gVny/Wch
sXdk8lw8irxxrnDbel04mLVWItEUfZVbEw3uB+cIL86zuGhzzRMW2mq2tiYE
n1TNuvdaep78/tlIHrbUnGeVkCeFGcTRnkDemJcqnmOEfKVn5e1FK1iM9tQh
Nlf0tXclfiq6BVPUjUxdzYdfW8nw7JiGaZ+W2UWZLBA269T9SFkHP2/Pl3Xa
95vw4FeB5O6ncHDka33NzN/k87mRJKd3YEN+IdzN+emdWC36/i06ZpHtyHdH
9LBSDsLtOvYfHWfR9+FYtu+mWCRy8eY7vJrMcGMYR23eFthNO8FdbPsiMS/A
vlM8Ug559Ze81vWqyJ1Dj9x2PI2c53SzbLcJ8lJW097jdrBN43hInjv6v2re
u0doLRF2qvAzuyy2TPiNI6MOt8Zf8vnnJtXFcLi/1v9LPk+8pMFynnhlc5hi
UrCizQnm2bx9zO4GfMp+376oGNivRO1WSTYcN6aZol8Gv9+o2zDWCDcpnZ33
6YYnrM22cI3/JZ8nfhJthPXhV0vItxU5WpJoVgkrDF8L+soJ67PfeGezDRa/
+L6P4wG8/G6ao/APzNm9uF+bbo3YT4qWwnSIC1aXobnjJQxfNGZOY5NZI+av
39nY9EIJeXQm7+LBE/Dbb0J8X4zgOqodqpes4L2vj3blx8FxeuZXWb7C72/Y
xjzvhZtTnIv3T8G/mt0HP/+FqW6QqN9uoCD9//Oxcao+8mL8Z/L75ks5KnmU
A96hePwjGw8s33xSu0sAVrPSHnghBmv/1XNzksL658MMGRT2wnZi5+KoFWD3
AlPpL8qYv3PavDxWA44YtDxzSQv9RE/b0d1n4JjyU+WJBXAY05449m3rCDPL
iDLU6sIB+txut/xhntic29+C/vn/7osgKeWHbrh0BHJ54dmEuzFwlVVo+o8E
9Iem66uDXsPUnvQDB/Nh1aBbW6KbYd/4ldNz4/DhPAeN9nfrCVM095AKPCgJ
+40UJXrc/Of/u58iJDqKJ+v334WDuTwv/g6G2XcalmdHwrxGG+/IPINF/L8c
zciE5X9q1CbXwscOlp58Ogh/Pp2QYToB61hdZ+WfoyS/H3FS+3Vjp+/LyI0j
DzTFrqMi3POKW9aIloroW5QuhHOzwKPtLXOtG9F3mHyrF8mLfGZDaI6OEPJr
vJc3sUvAKzIn3Bp3wz4aOzqC92F+gyndgROKyANch2IY1GDmoIo/1cfh8GfP
jO9qw9z5NwuPGMKPG8/zbTDF+oJDh26UXUL+4u+Wnpv2yCU4l0mkq3CGRHvi
qgf6ew7nrC+8Cb8/E3HR8y76JX5aIouRcM0bxqGrz+CTVaNHZVPh5u6q5OlM
rGcw/4IuMxfuYrht41AEm267WCtZgfkB+cOSY7XIbU7xB6U0wb8s/k5YdqC/
GJaX0T8Iryt2cbowB3Py/JozYtlAWPTqJTddCfhhy8yu9Q/gDXtvDGXMwox/
fpcuL8HsJY5xahTU5PsoSdrsP+IeQk1N5AInzPQ6GZFLdegwOm2GFSzUyqhF
YQNvcWkZJfhqJEP8OQPY86yfR7IJ7Cv4V2/WnJp8P6VJ94ZcpBVtkYe8/sV4
zwmOumI53HwNjtvfU8Z3HU5aM4i39oPTKr54ZAVg/Xf3j+mvhcD5p8ukj0Wh
X7JJgSnyCVz1PWv4xzO41fpFvEsm3D8fpc9QCD89LHvlexl8Pujzg4wamLfD
Ou3mF+z/TXhDtU47HO2YMCDyA9YvOLh+cQDznLRtfDXjyL/oOB98PAtX+f54
3c9MQ7jojabATgk4lUVsQ5EpHGW/bvRkFOy4PeedIxUt4WMDNt5hTrDyxq5v
C9fhA2on5M8GwnLfN1gyhcMyLkWRHx/Rks/7XpIU07VypwRYImnXrNBLmGcD
e/p4CcxgMWeV3QXT/k2LsuyDqSItKjePwhQ7+eZrp7D/Snmr0PXf8KLxA+3d
q+jPzR292UtFR3gqkCIzggEeF87rPsIO9+tKKLzih7v8Yh+x7ITbeXWrSmTh
lizG31cOwI2aFSKih+G6fm/d9qN0eH9ecrcCTiIv55x8o6AHF6e97Pl1Fi5Q
NWVJNIOzrn6x2+AIpz1XrrH2hp+3vBP7HAA/phK5LRMNRz/+/q4/Do7Y87D3
YRIcUneSTSMNDjKnIf15S0f+XsiTHITrsgOH4ZP9ITv4+OgJ1+3obzEWpifm
j1/Zdz1WAnlNfoDYt93I1dd3N3Lvg9VC/YQeqsDKAjtcObTgYsvr/Nr6WE8p
40tViDFctCDs3GAGKyi6bWG2huXr+Rzuu8B7jSuKaX1hKQ/2S5SxsHj0eYbV
d7CIGLWJZzG8LSctc7EOTvi7ZrivGeZX06F07YDjAl+kZf2AeVuW9GYH6Mn3
X4EUs+XEmvQ48s0XE5IdZ+Do1NnTGYsw18yRPxOrMMfNiRO2DAyEWVkjEoY3
wcFnhjTE+BiI/ZjiD8xaCMOBg0GPn0ugTy/1U61vN/K7LnsmBffB1IX+0aaH
YD+qzsPxKpin1JQa+64B+4bfjODVgik6Ww6d1cf89W3iQ4+M4RVrz5B2M3hp
UbBP7zK84F+1t9kTnkra2FkfAY+WmflUvYYPRn0UE+NhxM9rw9tw+w5csi8s
73gQvEBF+5wtgpF8fw+TdjR5B7fFIDeNn3V7kog80s764sVk5DX7f5zYngGv
UevJT2ajv6elZlt2AXLrRBKTZxkc55Dzm1SDfvNByV7qL8hp6Z7W1bXBh1o3
5YZ1o+/8LCjRYAB5siNlIN848u+H3F37Z2B2hknT1CVYvd38uCMFEzHvnfRt
rxwNE5G/ddYSWGFCzsukMO+/Bb7zUqyGYzv84eqTrI5dmJ86zBEfLweLsNy7
Z3EINupavbJDFS53HVXPPQ1LsbVuVTkP0yvNX+iaZSZ/L9RIHtpB4SkSLITH
LEQqXC/ARlYGtlpWcJXNfTaJy7CcfVEupSsL+byqk55fnj733Qtmdxamyr2F
vs/VM6khAfAv1wAtm1DY2L1wQSUarvGcerw1HuvJXxdS+Z0Ev/DRH2lMQ5/z
1r0Hqe+Q+94u2OuXD0/5T3aeK0HfJGCb774quC5QT5ytAf3WjtIKPT5Wwkcn
jH5v04PnDr7K6DoLJwT8sXxoBi+8EVKdtWAlv19N0omO4wJa1vBziqsraXbw
stjjdjpH+IXreEiZK6xToaDh7Q2njpuLfPOBKTiD1u3zg/UPZn8P94fTzL7n
TQXg+dYHbHh4Ihi5wZudzqmhyNPb9U7SRCLfQHFdwjwafnvyc+/WeNjkCV9s
WxKce+Ajw/F3MGv7ea+iYriUPfFcUid89USvYuACXD/qm7FGyUZY9K6QwBU2
uKn1SrskN3xDpDxkkA9u1Ry3U9kGS17l1EgQgX1jFUT+irOR78dpUnup+Toj
STjiA2u9sxp8Kqsg+r4JnJYZtrrJFqZ/bWX+/Bq8/5VO1Kg3bJWiWLPbD/YR
z+rT8YejXm7/6xoAp4vGc8UEwZVJnLsLQ9jI51WP1C0coNETjnz+2ZoZZRTM
KOTiJRoDCz8djdR4AuskfK168Az2jSv+8zUF7ol5eMEsB1aMsvv0qxTW5+rt
YavE89hHnlneU43cj7Oew6AOfhyuvNOzAf0s9vdH4pqQ14buNC35CveyPnPv
b4eXH3CH03TB24MpK0/0wgaBvxbDh+HLDObsuWPwnYCOHd9+Yf84ulNqf6fh
7LvlJgLz8KUNLj2fP7OT74MBSc6uotC3E6Zu3hgrNww7UBfdC/kFt+6/5DY6
Bwfo5F/etAgr2jNbqv6BZ+6YmTitwkkJOXpx6zjI59WYZJBPf6KWioPIGVtM
VBdp4OKJtwdFGOCrNDSy2syYFxc8K3GDDXnXgQzBNE44RJdyc8cm9FUdzrBS
b0G+6P+KRpYPTktcWz0viL7pB52FQGHknF9fTuSJIfei1erikIL7Dy7W2O+B
hdv2kw5ZwhedPbMZY+BMJ+pcnxfwimPo+7m3cMPuufdsORzk932B9HRKP08q
D3bNzMs7XoC+hiNvvtVHmHf3jfzbpfDU5M/8pxWYL8tQ/fCxCn54+eWHrlrY
ehd9wdJnzCtM2hVwNcGsGQ0Fsl/hPgeZQq12OEcqstC+E+sF/PpdGNANn0s3
Knr5E97tUFhU3g+3Tvh+XB2FvezVi+Wn4VM7XxXrzWG/bRNMJc6/kS+kOZY8
WIar7ZpL0v6i/1hSrrSagpOw43h06SAlJ9FXSftTSkmDnMvOpEyAHnnBmFC5
EStsZjtSHsEF792hWfFmM+Zpx9IrPvMi70plqxzjR55hc7WSVgj2lWirFBGF
9Uf3f1LejvntqY8/nZdEvmK99slrF9yw3azqkQz6T0fKq3L2wq4pYtXN8rCG
dUD11EF4avhUjYQy/NBqY625OtxrmVDXrgvvstzxWfMC/Myr9utpL3hTmO13
/Sj4y+ODFzqew/dfMgycfQsfSF27XZDNSf5+WZCG02ZFt+bBDzOGPnkXwGpv
O626P2J+LquBTqnsPz9/bllqfCX6Wvm5xylq4LWCV+Om9fDQ0NgfG8qNhBvY
JRlc9sOK9vYjsQpw+qf0T6VKMN+2qaQRZTjYS9qP9chG8vfEimQvnUUy0YQ1
B+X+vtKGC0hunU16sGRsXt6SAdZ7PL8cJWAMM2gpuB49j75Hqreugxk8SvVR
JtICNjpPwVZgBdfkHZ7stcV6Bzhv1dNdRp7qUP5qtzPMU70h4IwL+veEjlpd
d0Nu1V4tXHcdVg/S/Ln5Nkz9+7RRdihcYXqmWSsOVt5jVuGfCxfT2OcWNcK7
zdIjB5rhhILJK4xtMOsmaW3ZbxvJ98GOdMPJebfRd/hX7Tvmmz2wiej8+Ms+
zH/2kav9PIhcsfNayvwI8vS9ef68E8i3hixbqEzBgaMHVW1m4RVV722hC5i3
iy+ieL8Edy2tdXev/Oc86B4u3EDBRcx/SPeNlaSEtxi0ung5wp7rJLTqvsOD
qgztoj9hrbvj52/2c5HvgxMpv7Z+qHMIFmbJuCw3Bi9GOt0Ym4brePc8SFiE
XSTy0umpNxHmk1f8fJUDdtRRZ9KQgksdtDW3asCSb2VbrmnCD+c5jZtObSKf
JxcSxf6FPkkd5LZebbb++shbP76f/WkIkyhjPBXOoZ96xJMyyhTmDDC+P30R
Hmblj31hAxdG/Uw96wSLd5bK5FzF+mF8z/NZ3eCVC7eVbT3Rv5R0qabiOvL3
xY50MY9g+i4PdYes/+Tqe89NF8OXsiedrtbDhWOaK9nNMOe21Du/O2Clwvbj
3N9hGwMatv098MPZva2GfXBJsHmsx+Am8vlyI41vDzeNHYG5K0pECsbRVzGd
Gu2ahB3+8GX+nYErpL0OKC3BvFYd5T5rcE1LeAclIzdht8Mnf93hhhuuvXKr
4oNF02kp6UXg0xr7qiTEuYnn8+q3CDq+A06+EaFtJwU385RtCpKGffy9JVkV
Yam5fYfDj8EB9Wk2jy7CAy8EI+K94BmzxPNWt2AKfsEd0gEw9d+ekMggbvL9
8iIxdSYsLIXAnHmmxiYR6PNECZSWRiHfyyJgqJsEa/nzTw28hc9Y/NA7loN5
E5X4D+l5yM0F//1rtRC2XePzv1aMvtuHOG3SJ/jONT4+us9wkF73LfsvcIRs
3MiXFqwXw2ZySq4deeLk1uyYTuTpr574XOyFCyy3akqOwG0/ePsKF+CZM7we
p6g2E6bgfKzGzQAzNW5h+8kGc6Z3uqpthHkCY7tSuDeT79tNkqDNWWVmXuTi
6luSnfmR7xLtZGrbBstRxV45KIq+Qq9RR/x2WKWYR4lqJ6zlFUNfLwubyPO0
Rh6ALbi+HVw+BNvNPUo0OYz9nJsMacpUkbtnbrYXU4d9gjua7h+H79g9kp86
ifmgY4ZxutpwhPhmqjw9OOznRwumD3BIzKVPFwR4CJtox/FHicKS9K3X6iRh
jsFpoaFdPOT7dpu0XMLUuE4Wee+T7V68csir3dXE9+2HM/UutJxWgKOlvX3s
lDB/g+mRpL8y8ksjWe2JavCJika/AnV4T+L47rbj8BZv2u/TJ+H1hsL3GLWx
fiOr8c/DBnB8Vfj+aybwnecZA6EXYAef2tA0c1jPeOjQJ0usryBPOfrTBm5/
6RyjeQ122dR7LPcWPPw1ntEsGzaKOPeZcQjmfUe/xXaUh3x/7pJ+fMm1rJ6A
n06ZZ4lNw+Ys7OvuzMGiUh9P9P+GRzTtYpT/YP00281DCavIHQIqZdfWbSHs
tsHzkhsL7Ouz69E0L/zQNXq1bx+cYrfOvFUbXlRNWoov2kI+n4GkvgFlt1J/
XvLvL5T09JD0lvoLW8nPE0nqPd83ut0KFvKNzL/jAKuGO2zLdoLNnx8N6LsK
+2ULzLC5wc8rlwxJnlvJzxNNKm9rKnG4jrx/+NX2JzdhqmW/0Fo/WJjBZGnJ
/z/77WSt1g+Gk06VRr+LgCtNYyl6o7DfoNNVK9ZYmPrWiUbFOFg0QlTePhG+
lNNOU/MSftEe0CaaDleOXFTSe/Of9ZcVXt7Kwv7UjFwsb3Nhsa2Trj35sLpU
VTdzEWyllHjkUAnWu6vlkW5bjjz5gg5XzCfkqVf6w32W4de3Xdgsd/IRlpxT
nX0mC6eacX7t2Q+Pbl5RW1OAt3/py9lK4iOfj8ckq7u1YgoqyJOV3kUbHUE+
vBBD564Bi6X7ekRpon/JwmYs+xT8glfbuEUb/cHm/fUzeshF7gsqshkiN1em
y9hlDD9fmuI/eR79/sz2EDsz5EJWxevuWyA34092TrGCn7Y+6Ptki76A2vkK
Kmc4/p3Uy8Nu8OOQepsPfnCMvZ3U3lA4+hjDTPoTOFIsNVs8FW7pDhU9+pqP
fL8SSZwP3aMsMmGdExdo/d6hH0al4f40B276sHu0OA9mu8J99kcBrCVBUff3
I9YL+TmkwFsGN0Y3vD5QiT6LVi6fYTV8kib+wbU6OLjoDsXDBsx/dnFwympC
zrRTv7fpK6zZf0hnuh0OjBUpZ+mC67SZ9kr9gBno55M0e+FjJV1ctgNwgFu5
/71h7F+9K23x5Rhy2qFw68pfsHqc57f+adhf7+JxynnMd0f7eqhd4Ce8tysx
xb8efi70oV/8G8xp28JfMwhPFcQ4zIzwk+9fEqmO+UIhzwScbCrGqDKFvt/b
CSPbWeSmVFkp4Quwgr7H4oclmDuZdLR/BV72ojxOTSFAdjbprUDIsD41bFPO
e+clI3yEq6+lgQXeZpUitMgOs4YyHg/k/GcS/a7cTbmk1bzLzgJcyMd7mx5l
bYI7GORK1Dejr65zamVEBH4fY7XvvgzsqDjf0ikPi/fedJZUgrkYBh4VkwTI
9+89iWqPeomuMjxj/Gp4WAXuuc3M6q0GF7S1mCSpw9HbY1/XH4ddvJZsvA1h
7YYz4jst4fRHlAJ9VjCdecamRzb/XNzYvDcpn2QudZbllB3y4kVqmg0OyN2C
TBYcneBd23IGuq7CAeMXvoe5Yn4wh+mruhty5Zt5davucNxxi/IsT/SXN7IV
2HjDej0F7wRuoJ+ZavWq1QdmdOF8FugLl9HZhS3ehj3iym6a34NbrS6789yH
ZWS3ODUGwsF/K63uBMMjn5xNFUIEyPepgKQaxmcwEwonGNecSg5Hf0XU9ahJ
JGwwLajEGQVnfaiXq4nGPMsddymfGNhGS0RU7jFcyfNl6/gTeNuA18an8bB3
hjiTQSLWb3dvoWJ+hnyPqs9K2XM4hFlyzv0FPNbeNrYrGT7y7FbfQAr81H5X
Z+yr/30f//v/D38kre7rbDr9Grnhev8amgzkWXUypYWZyFmjuvOuvIWrdsil
/MiGbxQHRR/Pg0e/F0cs5cP6f2ZDXhZg/RJusSC9IlhSzugeZTH6UTpBt9+U
wOudim+eL0PfPnjWm6kCbn8l6vGhElapNnS1roLTBwOdN9VgPR6qYoeKWuS3
BWdtrtQjn1IUtRRsgI2NDS82NKL/yT3wvHcTLBP18eyOFjjQ1+BQ7E940H6a
j2ESPn1feEvelAD5+1pCKkg+s8lyBrl4ZQDHxjk4vK+QpWwefRs+YVr+JZhk
GEDhuQK/ci1cEV+FuSKmFlvXsJ7vG6F5v3WCRD7xWX9ahlKQyA3G7030UCEv
pyscCaaGd4lNDSjQwjGqQr2jdPDcroIyo03wiS16STXCcP9r2s5xMfjff5Gz
suyAq+ge7kiQhDmbLx+RloJNH2tcKN31z8UqAfIBZaQ0CyEvHWm4MyBgKGof
TJ85rd11CLZa/rjd4hj8STWY4pc+zM5steWGAWzSdliO1QhOTdhyOvEsvGA9
bytzTpD8900FSVm24U6ZCRy8kpyoa4r+twrfgoELsOgD4zbXi7CzgdwMjQXm
iwRZmR5d+s/PMzYiJmGFXC+rTPmDNTx+5JrbdzvYr0Mife0y/G41dLOqK9wr
tOR31wu+fu6XtZi3IGmVdrmJd0Ml6X8A+9xpbA==
          "]], 
         LineBox[{{8.751197355016377, 11274.225188497916`}, {8.75240962282977,
           10913.936421275139`}, {8.755469810250847, 10913.936421275139`}, {
          8.758529997671925, 10913.936421275139`}, {8.759742265485318, 
          11274.225188497916`}}]}, 
        Annotation[#, "Charting`Private`Tag$249220#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 10}, {0., 11274.225188497916`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"exact\"", "\"formula (a) with \[CapitalDelta]t=0.5\"", 
       "\"formula (a) with \[CapitalDelta]t=0.001\"", 
       "\"formula (a) with \[CapitalDelta]t=\\!\\(\\*SuperscriptBox[\\(10\\), \
\\(-15\\)]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.748019488532152*^9, 3.7480194943128347`*^9}, 
   3.748019693271633*^9, 3.748020687498579*^9, 3.748020964117217*^9, {
   3.7491065732471647`*^9, 3.7491065798905444`*^9}, {3.749106696033188*^9, 
   3.749106712325119*^9}, 3.749106960917338*^9, {3.7491082599185486`*^9, 
   3.749108302224968*^9}, 3.749108503624488*^9, {3.7491087388829436`*^9, 
   3.749108758415061*^9}, 3.7491090315186815`*^9, {3.7491091080080566`*^9, 
   3.749109121384822*^9}, 3.7491113785882387`*^9, 3.749187345474823*^9, 
   3.749371206849082*^9, 3.810654666740402*^9, 3.8106551495303993`*^9, 
   3.8106551958974433`*^9, 3.810655279660452*^9, 3.8106553216102686`*^9, {
   3.81065544943316*^9, 3.810655456612133*^9}, 3.8106555527861867`*^9, 
   3.8106556798921485`*^9},
 FontFamily->"Arial Narrow",
 CellLabel->
  "Out[106]=",ExpressionUUID->"7fc79682-ca18-4662-a2c6-849806a9e5d0"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1366, 685},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 255, 4, 93, "Title",ExpressionUUID->"222ebf55-c964-49c9-b5b6-d0ff402fc9f0"],
Cell[CellGroupData[{
Cell[860, 30, 269, 4, 64, "Section",ExpressionUUID->"41864f16-be86-4d21-9b73-c3924d636b02"],
Cell[CellGroupData[{
Cell[1154, 38, 830, 19, 233, "Code",ExpressionUUID->"ab0d333a-a292-4891-b2c5-89208081e0ee"],
Cell[1987, 59, 509, 8, 33, "Output",ExpressionUUID->"68af0e6a-6420-4e84-bb0c-3055695a8dfe"],
Cell[2499, 69, 529, 8, 33, "Output",ExpressionUUID->"bfa0fe85-8245-4422-8456-4bcbee112515"],
Cell[3031, 79, 511, 8, 33, "Output",ExpressionUUID->"d9a422e9-e119-4255-a106-491a8810cc81"],
Cell[3545, 89, 511, 8, 33, "Output",ExpressionUUID->"53b7ecee-701e-4f78-9c45-f10f70b8054b"],
Cell[4059, 99, 514, 8, 33, "Output",ExpressionUUID->"6691eed6-3857-48a4-ad3d-62dfe9f39dce"],
Cell[4576, 109, 533, 9, 33, "Output",ExpressionUUID->"81c90d14-ea6b-4ec2-aaf8-5104fa476978"],
Cell[5112, 120, 511, 8, 33, "Output",ExpressionUUID->"4bd86a2f-c845-4ece-85d3-5e70fe0b074c"],
Cell[5626, 130, 512, 8, 33, "Output",ExpressionUUID->"37755a2b-dc5a-429b-89a4-07916bb53013"],
Cell[6141, 140, 511, 8, 33, "Output",ExpressionUUID->"c9ee194f-7305-44c1-9b1d-840dee50d314"],
Cell[6655, 150, 535, 9, 49, "Output",ExpressionUUID->"2f5bc0db-c0b8-4ef8-b18a-895754faf6ce"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7239, 165, 290, 5, 64, "Section",ExpressionUUID->"3f0d981a-19a5-4f61-9c9f-3f6576719973"],
Cell[CellGroupData[{
Cell[7554, 174, 246, 4, 52, "Subsection",ExpressionUUID->"9fb48e20-02de-4478-8df4-a047c47b9dfd"],
Cell[CellGroupData[{
Cell[7825, 182, 446, 13, 73, "Code",ExpressionUUID->"77dfd2b3-0cbc-48dc-8eaf-8dbcea660b17"],
Cell[8274, 197, 610, 12, 33, "Output",ExpressionUUID->"c350adcc-2d01-4620-9c5a-276e0dd337e0"],
Cell[8887, 211, 661, 14, 33, "Output",ExpressionUUID->"c61c252e-7bdd-417f-a74b-f40e742872a2"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9597, 231, 489, 7, 52, "Subsection",ExpressionUUID->"9b2f7f9f-373e-4f19-98f6-cc655be817aa"],
Cell[CellGroupData[{
Cell[10111, 242, 447, 10, 93, "Code",ExpressionUUID->"77c49f61-0882-4e59-a49a-6026debd52de"],
Cell[10561, 254, 518, 9, 33, "Output",ExpressionUUID->"63f85e95-b292-42fb-a12e-137fcb97272c"],
Cell[11082, 265, 542, 10, 49, "Output",ExpressionUUID->"08eec099-39ec-4ace-911e-749195ef855d"],
Cell[11627, 277, 516, 9, 33, "Output",ExpressionUUID->"4abd3a07-18d0-4291-8d6d-60bd11965afb"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12192, 292, 424, 6, 52, "Subsection",ExpressionUUID->"3194ce50-8cfd-4076-806d-fbedaf427d07"],
Cell[CellGroupData[{
Cell[12641, 302, 366, 7, 52, "Code",ExpressionUUID->"c65b7882-e4db-4282-aead-6359841a773d"],
Cell[13010, 311, 572, 10, 33, "Output",ExpressionUUID->"6f89eb39-fec5-4238-a2da-18acbb91db4c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13631, 327, 611, 12, 52, "Subsection",ExpressionUUID->"0d1ea6ef-8dfc-4748-805a-8b16f339607c"],
Cell[14245, 341, 742, 23, 73, "Code",ExpressionUUID->"8004a681-70a1-4c68-b7a9-58e1b9fd9b8d"],
Cell[14990, 366, 454, 11, 73, "Code",ExpressionUUID->"7389b265-b71a-412b-b5c4-27bb11b75f91"],
Cell[CellGroupData[{
Cell[15469, 381, 502, 10, 73, "Code",ExpressionUUID->"0227bdba-6a7d-4539-9fe0-864051f23667"],
Cell[15974, 393, 585, 10, 33, "Output",ExpressionUUID->"fcbbd030-1f03-4063-853d-4c78cff5e68c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16620, 410, 335, 5, 64, "Section",ExpressionUUID->"c9abe7cd-a985-43a3-8b45-484871d2bf34"],
Cell[CellGroupData[{
Cell[16980, 419, 632, 12, 52, "Subsection",ExpressionUUID->"17c2b12b-150d-425c-a548-d695310c9572"],
Cell[CellGroupData[{
Cell[17637, 435, 368, 8, 93, "Code",ExpressionUUID->"77499d4c-9a68-4315-85a9-e9c0b07095df"],
Cell[18008, 445, 563, 11, 55, "Output",ExpressionUUID->"73f0fa6b-bbab-4a7a-a5d4-4bda8ef9efd9"],
Cell[18574, 458, 599, 13, 61, "Output",ExpressionUUID->"ea535ac6-7863-4203-9cef-3de200a1f491"],
Cell[19176, 473, 534, 9, 33, "Output",ExpressionUUID->"b1d3d1a7-8d56-4abb-9177-a86ffefbef65"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19759, 488, 398, 6, 52, "Subsection",ExpressionUUID->"d64d67f1-3c55-4ae0-9f27-54d3b72b63e9"],
Cell[CellGroupData[{
Cell[20182, 498, 452, 11, 93, "Code",ExpressionUUID->"b14276e9-0a21-472d-b319-3134de47e614"],
Cell[20637, 511, 526, 8, 33, "Output",ExpressionUUID->"41015ae0-5c7e-44eb-8111-a23bc3d4f1b9"],
Cell[21166, 521, 525, 8, 33, "Output",ExpressionUUID->"950e172c-d818-4d93-bd8c-5551b996027b"],
Cell[21694, 531, 525, 8, 33, "Output",ExpressionUUID->"a9ecb991-6659-4fa0-806c-84076dd534ce"]
}, Open  ]],
Cell[22234, 542, 189, 3, 35, "Text",ExpressionUUID->"b6e8341e-b29e-4845-bb20-5c9919175950"],
Cell[CellGroupData[{
Cell[22448, 549, 425, 9, 93, "Code",ExpressionUUID->"0c497c5b-7515-45ea-a64f-434cfd080532"],
Cell[22876, 560, 553, 8, 33, "Output",ExpressionUUID->"6dc58f58-9e62-4f5e-9312-53b6d26433bf"],
Cell[23432, 570, 557, 8, 33, "Output",ExpressionUUID->"461625b9-0977-4cd3-bd93-0a1655a92011"],
Cell[23992, 580, 555, 8, 33, "Output",ExpressionUUID->"205e00c3-b1dd-4b59-9f9d-b70d86fc965b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24608, 595, 216, 3, 64, "Section",ExpressionUUID->"1f01f9bc-540e-4c4c-8739-478ef6975a36"],
Cell[CellGroupData[{
Cell[24849, 602, 343, 8, 52, "Code",ExpressionUUID->"08c5b426-881e-4409-887c-a981117787ef"],
Cell[25195, 612, 7402, 141, 238, "Output",ExpressionUUID->"4e9467e5-4503-4871-937e-b43e877056b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32634, 758, 432, 11, 52, "Code",ExpressionUUID->"fa810d68-537a-4ce4-b089-2c7b70970237"],
Cell[33069, 771, 1927, 46, 245, "Output",ExpressionUUID->"be55e625-60cf-4fa5-a365-1c0673881224"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35045, 823, 343, 5, 64, "Section",ExpressionUUID->"06e2d845-974a-44b4-b52f-42b1f592e5f6"],
Cell[CellGroupData[{
Cell[35413, 832, 569, 15, 113, "Code",ExpressionUUID->"98b7e6f2-892d-456b-9c33-68f55f47e484"],
Cell[35985, 849, 557, 9, 33, "Output",ExpressionUUID->"0c91be32-cee1-4384-8ab5-189966f9d699"],
Cell[36545, 860, 576, 9, 33, "Output",ExpressionUUID->"0c8b85b0-8a2c-4396-a098-b1a5b3ee5cb3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37158, 874, 1407, 39, 133, "Code",ExpressionUUID->"5e5bc007-1e19-42ff-a308-abd3e9a5b0ef"],
Cell[38568, 915, 3394, 75, 240, "Output",ExpressionUUID->"f85d70cf-aa72-4872-9465-ad741c7ce683"],
Cell[41965, 992, 748, 15, 23, "Message",ExpressionUUID->"22c6cdad-7132-42ee-853d-fbbe603b985d"],
Cell[42716, 1009, 743, 15, 23, "Message",ExpressionUUID->"bfa80bf7-6088-45c8-a17f-b941ccddee89"],
Cell[43462, 1026, 745, 15, 23, "Message",ExpressionUUID->"3a8a2e8a-cfdd-46e6-89f0-e7cb598c775a"],
Cell[44210, 1043, 826, 16, 23, "Message",ExpressionUUID->"1f237b87-7833-4c54-a423-ab4a6adbe8fb"],
Cell[45039, 1061, 2090, 52, 230, "Output",ExpressionUUID->"f7669c5b-d5b8-44fe-826d-993dbe485168"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47178, 1119, 416, 7, 64, "Section",ExpressionUUID->"ab5790ed-930c-4652-b144-524432b6dffd"],
Cell[CellGroupData[{
Cell[47619, 1130, 714, 17, 73, "Code",ExpressionUUID->"98439885-e057-43dd-8612-dc7effeaf91c"],
Cell[48336, 1149, 610, 10, 33, "Output",ExpressionUUID->"53b88e45-362f-456a-99ee-b5edefce63f5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48983, 1164, 568, 12, 93, "Code",ExpressionUUID->"9c689601-9e6b-4d11-8736-b268044847b3"],
Cell[CellGroupData[{
Cell[49576, 1180, 196, 4, 22, "Print",ExpressionUUID->"88a5c32e-4a69-4074-804e-12731fd5fece"],
Cell[49775, 1186, 196, 4, 22, "Print",ExpressionUUID->"3d7e0932-add6-4c93-98ab-bf233383e288"],
Cell[49974, 1192, 196, 4, 22, "Print",ExpressionUUID->"8d8c474d-967a-4202-8bb7-fab0e33f583d"],
Cell[50173, 1198, 198, 4, 22, "Print",ExpressionUUID->"1c2f3008-8121-4c30-8cd6-4fcea0052f8e"],
Cell[50374, 1204, 198, 4, 22, "Print",ExpressionUUID->"fcf21652-86b2-4841-9118-b62dc80847da"],
Cell[50575, 1210, 195, 4, 22, "Print",ExpressionUUID->"6d4b3068-47df-4605-b817-5fb94193c815"],
Cell[50773, 1216, 198, 4, 22, "Print",ExpressionUUID->"17351a61-9bb0-4fa5-8f79-a9e61c2182f4"],
Cell[50974, 1222, 198, 4, 22, "Print",ExpressionUUID->"8a724bb0-4f24-41c0-986f-6749a20383f5"],
Cell[51175, 1228, 196, 4, 22, "Print",ExpressionUUID->"1ce7713b-00cd-45cc-9a26-b15facccde0a"],
Cell[51374, 1234, 197, 4, 22, "Print",ExpressionUUID->"fd6802cf-76cf-4d78-957b-f331e26d8de8"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[51644, 1246, 392, 6, 93, "Title",ExpressionUUID->"65241044-c04b-4858-94f9-6a7a4a5049cf"],
Cell[52039, 1254, 1507, 31, 261, "Text",ExpressionUUID->"6184e574-a695-4b12-9439-8b5132563371"],
Cell[CellGroupData[{
Cell[53571, 1289, 582, 9, 61, "Subchapter",ExpressionUUID->"c7a66147-fa1d-413c-becd-04e0b9e3d74e"],
Cell[CellGroupData[{
Cell[54178, 1302, 1277, 31, 110, "Input",ExpressionUUID->"538a96d4-93cc-44af-85de-4ffd8f17cba5"],
Cell[55458, 1335, 549, 12, 36, "Output",ExpressionUUID->"43599ae1-b71f-4ca9-8c91-52ded428e828"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56044, 1352, 2949, 66, 90, "Input",ExpressionUUID->"5dd5e34d-49e5-4a05-bebb-f3cf7319e722"],
Cell[58996, 1420, 9460, 171, 247, "Output",ExpressionUUID->"4aa9ebbd-0c6d-4e0a-acaf-7e137117ec47"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[68505, 1597, 559, 11, 61, "Subchapter",ExpressionUUID->"6291eee1-a19b-4d97-bb70-653720097ecb"],
Cell[CellGroupData[{
Cell[69089, 1612, 1359, 35, 110, "Input",ExpressionUUID->"7af897d1-8096-46d6-bc62-9b67e41a4b2b"],
Cell[70451, 1649, 499, 12, 21, "Message",ExpressionUUID->"e98cf8a7-b468-405a-abcc-09fb6172fba3"],
Cell[70953, 1663, 1021, 23, 56, "Output",ExpressionUUID->"792d8b9f-dc16-4961-aa97-dfac562b868c"]
}, Open  ]],
Cell[71989, 1689, 321, 7, 28, "Input",ExpressionUUID->"6665e620-e809-43a7-858b-e9a3830ad19f"],
Cell[CellGroupData[{
Cell[72335, 1700, 2086, 43, 50, "Input",ExpressionUUID->"0d8c783f-b10e-400c-8bdf-d366c9328ef3"],
Cell[74424, 1745, 12070, 216, 236, "Output",ExpressionUUID->"dffbe821-5c1c-4eda-b994-884e9ecc2e16"]
}, Open  ]],
Cell[86509, 1964, 202, 3, 29, "Input",ExpressionUUID->"8dfd75bb-6163-4f4a-bd21-f5a8793daa31"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86760, 1973, 480, 7, 93, "Title",ExpressionUUID->"22079c12-e656-4403-9d9b-fcf7d384cff8"],
Cell[CellGroupData[{
Cell[87265, 1984, 248, 4, 64, "Section",ExpressionUUID->"fdf290e7-2816-4c34-9528-f0f36358688d"],
Cell[CellGroupData[{
Cell[87538, 1992, 7890, 188, 370, "Input",ExpressionUUID->"0a368afa-ef1b-4e5b-814f-04437c2a6f87"],
Cell[95431, 2182, 3955, 78, 331, "Output",ExpressionUUID->"09c38ab2-45d9-4d95-ae74-5b7310dea34a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[99435, 2266, 3117, 70, 270, "Section",ExpressionUUID->"d042ec50-ca16-4ba1-8633-042880a85df6"],
Cell[CellGroupData[{
Cell[102577, 2340, 322, 5, 52, "Subsection",ExpressionUUID->"d60d0df8-ffd3-4b1b-bc2c-9b91dd42a94f"],
Cell[CellGroupData[{
Cell[102924, 2349, 2612, 62, 114, "Input",ExpressionUUID->"3cefa659-4acb-4def-a3f5-92390940e105"],
Cell[105539, 2413, 51647, 937, 263, "Output",ExpressionUUID->"7fc79682-ca18-4662-a2c6-849806a9e5d0"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)