(* 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[    130014,       2864]
NotebookOptionsPosition[    124639,       2677]
NotebookOutlinePosition[    124983,       2692]
CellTagsIndexPosition[    124940,       2689]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:0412\:044a\:0432\:0435\:0434\:0435\:043d\:0438\:0435 \:0432\:044a\
\:0432 Wolfram Mathematica", "Title",
 CellChangeTimes->{{3.748019989539576*^9, 3.7480200112041407`*^9}, {
  3.780388680412139*^9, 3.7803886807931604`*^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",
 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.780388693349879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.780388693351879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.780388693352879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.780388693353879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.7803886933548794`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.7803886933558793`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.780388693356879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.780388693356879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.780388693357879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"],

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.780388693358879*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "48c50967-a14a-4fbd-a21b-1d53da424055"]
}, 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",
 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.780388697124095*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "ce41ecd0-e2ac-4c29-9519-a97612d29f8e"],

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.780388697126095*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "ce41ecd0-e2ac-4c29-9519-a97612d29f8e"]
}, 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",
 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.7803886972921047`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "6f74f7ed-522d-4f76-9a49-a45744a9dadb"],

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.7803886972941046`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "6f74f7ed-522d-4f76-9a49-a45744a9dadb"],

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.7803886972951045`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "6f74f7ed-522d-4f76-9a49-a45744a9dadb"]
}, 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}},
 FontFamily->"Arial Narrow",
 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.780388697300105*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "564a6784-46d4-4a25-a7d2-c61967419e7b"]
}, 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",
 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",
 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",
 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.7803886974381127`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "4e1a34d1-e06b-4990-be31-acd788ff3c96"]
}, 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",
 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.780388697444113*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "5ed4383c-34c0-49ca-ac22-12a88e09aee8"],

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.780388697446113*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "5ed4383c-34c0-49ca-ac22-12a88e09aee8"],

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.7803886974481134`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "5ed4383c-34c0-49ca-ac22-12a88e09aee8"]
}, 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",
 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.7803886974531136`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "8e82656e-ccc8-4e39-8b46-f604cb6f75ae"],

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.7803886974541135`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "8e82656e-ccc8-4e39-8b46-f604cb6f75ae"],

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.7803886974551134`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "8e82656e-ccc8-4e39-8b46-f604cb6f75ae"]
}, 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",
 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.780388697460114*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "2bd995f5-180b-4c38-931c-f6ce4e456303"],

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.780388697461114*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "2bd995f5-180b-4c38-931c-f6ce4e456303"],

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.7803886974621143`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "2bd995f5-180b-4c38-931c-f6ce4e456303"]
}, 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",
 ExpressionUUID -> "08c5b426-881e-4409-887c-a981117787ef"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVVGc81gsDdblJSleFrIh4aBjXKJT/kZCVPW9ZmWUUSWjamRlPRE8yMpId
eZLslewSl4xkh4cyukbe3g/nd76c8TtfjsDFKwb29HR0dP/9xv9Z036qq3ra
mMjoPxQmGil0cjLf5OIwlwwozOwqY6+rFDl29kS95FJBv15UDdtrmuLryjsu
N0g6ePfvGRFaHTMhLs+W8YTLCFfPJv+RR+Un6PZNx23xm8NYSqpQZU2c6Jp9
629DssTnaxHvS+oUCH3bd1SbeBuY+Ise4FZSJRQ6pQtjuewgtn9dwIeqSxxS
TM6qozhg8iO9IOtDE2JXDtPTJf5LaF0OOcy7ZkkscVyLF053xg1baojvEzti
MGAw0oTkhoDozicJdZcJ25/ptXVGVyFx4m5DAoM70StuTlyId0fBUuJpRqXr
hLb97vKlXg8sev1tsSHoS1Q/rpON5PIEdwkhZUW9S8h0excJn78OMX2LuR2M
AcRzJnGxSooXFnh0qVvkYIIPX7NNhm7AWXYxmOFBGBF7/ZEQjd8H+ZxKE9vX
ogjG3HMpITa+uHyQUrQ1F0P4jtLzHky/CR82Z1W3J2RinpOaQB27hb9IO5fV
oxIIW13XffqkO3gdu8YYWpdE9AUJPph2vIs/HpXViCglE6Qh5201RvdQJj8i
+4AhlbD2UTsTuXwPakXvhF+ypBNJbAJ+5vF+uK7fa7iBDOJjwXql8Al/MMmr
204+ziJ2a33aWOz1R33w+dUFwRwiwC/cO4wrEB867BUMqAVEJa/DK5PyQJgH
ziV02RURP8uUlgTPB8E+5sZjesaXhMv88pU3lGBMK3gHrJJfEZmhnXkhiiEg
rYjtlAukEiNCL74ZDoUgwurvi2tR5YTReWvHWf5Q2Pk+rd/8r5KIWlHIoFaH
Qifj2evBvGqiOYb9a6BNGFQChnnW5moIxeYWywPp4QiFmpDTk3rC2zaDMn0m
Agp5e3i9WRqJ4l93+0vHIhAmQa+sHNVEkGRlTXRIUWiPjnnjV9dCWHf+ReZu
ioLwVod1qXcr8dh5pmvC8QEmUzx6+ZXaCaaujswqo2jkt++ZD2PoIjL43jYI
Z0SjvG5qsIChm1B2yRkLX45Gv82e+/ksH4hb24MEzeJjUC26emEVPQSXscfp
yokYHOcKLExx+kS8SrOyFjoRCyFletbRx73EgqJC8kJvLFpb3VW+CfYTdp40
rlAuMjYKfSu1qMOENEOsb/FVMpLzbsVv5o0Q9LEyAwNNZOia7WZbDP5CPC3w
oYh7PYTE+b7UZzpfCTeCd9O07SFqQ6f0UxXHiFNtlRZ+QvHIKV/bLi0zTvTP
MPB/7I6HfufHhii5SSLbJ/Pu5uEEuIZ7uj5UmyJuMGmMkPwSkLPc8E/OhWmC
jRSV6iPxCGcCxdS8U78RujacQvwRiaCmzkf5qi8QfAvlgepfE3GD08XManGB
mL1jMe6ukITwfR6B9cmLRBglLbN+KglcrrR07e0/iPreY4cvq1LgGRZvtcG6
QsQ5dITGUSgg04ESMbxCXFx2n6n4QUFXFv9NjperxNbeshd/pT3BppVNleGl
/wgFndPipb+SMWbYVs3LtkkwDX6NGjJ+CrIEn5vgrl9Er3MwbXveU4hOm2wm
7dgiyuvtzfLEUnB04kVhdBgdzEZzuOg+p6BpPzrYqfSoOrzxjrw9Ffec1y5Q
NRlAcj/ne1g6FZGBfut6IwxY3qL1G4SlondxqNyfbRtiD8hSMuTScENE06Mi
dTvW7IK1FezSIM7WW/pVmwk2ub0b7Q/SkEDZnqO4zgTJk74WPyfSUO+MpSwb
ZrSZVfFpPUxHu/ttHDFhARNZI3Vh8RkazjrGn/m+B+tyX9ZTuTOwtltnI/v8
XswPepsYnsnA44GpqazGvfggkr3zFTkD3SrduXdS9yH5DaPXzROZ0HiYpDhx
mR0yX+s0GW9nQY1f2lNPlwsi989nlGVkYW+poHP1By5wi/3YcmrPgoyu8Jl1
c25seQmWvufPhpze+uygMw9amP34Y2qzYV/HGpyXcQDWUsQSD1MOsgpCrdgU
BGDY26PTJpmD0//e9roQLgC1W67P75jn4PafR1+kDQrgaCPF8ktODl5j45FE
kCBWzNebM8+9gKFTZKnXyCFE+FGf/B2XiwhfBud970i4S9L7OfomF6przldX
jojA4/2kAXksFxzrFUoLkSIwZd/PtCqbh2ErO1dxU1EIPr/uUdGXB+GeAWG6
1cMo65Q6e5avAPMOjBEGrmKImp5VP6ZWgPXsUOqeYTE40Gdp7nErgEtrefiS
vjg4ZHh0Bt4WQPY//ZUjJyXw5r1fTpl4IRzO1zTWREqCR+JykVZ7IYL3FmeS
w6QQfPKsFDFaCJ7Eb8+mWqXw/azQS8mVQszFdXP0/yWNFuuhEna+IgiGVCo+
SpCGb6wBddi1CL/eZSw8zJdB/7JC1TWWYjD8cCmQXz8ONXpOJQeBYtQmMPJU
nD2B4t3L1WayxVCVeZY0ST6BMJGCWkWLYtxYpqs89bccFMwPNW7PK0blr965
H+7ySKzY2fZY+yWMLcteybGdglnA5/668BIsuoXtSFxQAusI6ZhjagmOof2N
Cek03p1yv81cVgKrJerToAunobCy7aD+aAmEOB165VpOg+eShP2QXClioozo
6V8oY0jHn/ZzvBRH/I+JhvirwI5b9E9xpTIUDnLXPI5QB+8ND+Mu4zKMW8vk
23epo+dDRaancxlWeFmeFXBoQC1SX+NNfBk4NYcDG9I0IEJ3M0p9rgzdNSf3
M9ZoYma8jdM2iQozj7vWyhzncKXomtijpde4yamscW2fPuZPffnwjqkcPZ02
ia4n9eHSrOO7zluOAywhfJm2+nAaPtxkqVqO/axj97tL9GHNMmItHF+OZtkV
Ib5/DKB3SZtcfOINWgtninMKDSEpILze6lsBkW8x0zNRJsjPjU39FVUBdg9z
0x1VJjgmR6cumV6BNPfj9C40E4jqDpDj3lfgyL9Snb/0THHwdoz4P7xvwax0
hmy13wx7/t20mXz7Fi0HpJZPFJnje/Sn5j/+qML35IbBh9wWqHApwhhHFZ7V
PK25aGaBEPWIV43HqjD38uxYcLwFeOmUn4WbVWGPyPOBnn2WUL2Sd5e9sApZ
JC3Nh3ut0EpSfkyWqIbj6elFx2hrHNzGZZA9VI3Q4/tWF6ovYtu14MjE6Wps
rpI/Bo9fxMzIj+awpWo8O8gnqs1si9KKdrgy18C3jDvX3sgWmp6BYlLHa1B+
OTSgd8YWnl9pTBWRNXCxTdHpOmiP5prGqo5TtUi51am+VOSIzNaNsciztYjI
0zafHXBEUK8Us7ZBLcrmlQfYGZ2gPJds1OxYi6jAvqzNf5xQwXljujq2FoJS
KjGHtl9C4RWRfcVTtXCV3toz6nQZjw7cdyCT69Beyyq1bOAKL9HKcIOndeDv
N6o0DHCFsfRSIWtOHYw5ZywmX7pir4b1ekRVHWRmlbXy2d0Q4SkXHTRTh8fC
mrsqB9xw7/3Uay+lenQS6ppbcldxyUeDxXy2Hg4DgbGTX92Rw7PHwnKlHoee
vlfM3nTH7Nu+XFu6BqjHTcX57feAG72TthtbA0wmOq7c0fKAZ3hweMCpBgwc
uSeZVuKBu0/qduRHNOBSUyOJEn4ND2sUGRnEGqHCN+2eq30dNTuktnJdm2BX
7dTffcAHokaSZWHeTRgOuRbYo+SD6GTxK04BTXg0oZj909YH1tJHhw8lNmHr
iGxiSo4Pfl0Qqkqqb0ISZ3aDt7wvFAo57t7naUZ/u/tVU4ubKDFZ/2X7rhm+
4yTtE5W3kZle/4tbuAV6PUb3x6/54WqQ0RdItIB7w/qn4n0/nHQcq7OTbwGl
l0cqk+KHziN/huafa8FSIxtPZoMf/is6s0/ZqwW+hLGbHac/tKtrRS41taBP
m89zpNofPz5X65Vdeg/xRqKNji8QShxv0wzzW6FKEpWXZw6BWNNnauORDhz3
9/DuiY7ERyXD+efznSAdDT0XtBILF2bn7h7JboRkuBfZBSTgfZ/p291RH+Bt
SrYpkn0CQzWzL2NjHzG4eTWvozMVx1PCTVOEPqEs+Py2CJkMjPyK++h0txcu
NNGvjKbPMa7Rkc5R1weJtIJjkVl5KEwc9ukS6EcH2vj1f/9qxn2G0MO+A7jX
vvhMS7kEy7b/zDi8+Qw3tXO2LYfLsFMl2KBo/xBMRd7RnlPKcYt1fNeXC8Mo
VVMV1D9YiV2VR+l6z40gUe2TysZcNRS9dDfr1kZgdqfghBZ/HSjPItIPUb6g
sTUiZcuoAZbGMm07tEZB+7vLPm66CaU99nGVK6OYk7fX+JbeAvnWQvqJ+K9Y
i9B2t7Fow0FVh+U4lTFo8EpYjCl3QlZGNqZkYgzmVXMSHj1dGP4e+S49aByK
bkfv+Xp/wKy0fhCX1ARYrDZHzc73gPRNbOaPDxPY+bI6glu+F/VC17uv+k2C
bkWsItHiXzz42GNrIDSFJDOvJd2bA6AZVsfQ109B8/v83OecQRQbs5+Rd5/G
Gh15rzL7CNLbAp6M7p2B3qOTW366X7DadOHm3toZqOoOurwoHcVITNUyq9s3
kLsV98eLjGGl6ySX/+5ZkBQluOxixnGVLFjtUzGLNxcoErbHJrG/TZB1zHIO
RV6Shbsqp2DYk7vB+2sOjiyGlYzmM/huleryOWcecmSBvyhHZlFlXRC0W5sG
oX1scwu0OZR3uGgN6dBgmDgnzPBzDq+II3vy9Wnw1NnWzUE3j1zeDMo5UxqW
UzwDlVnnkdSX9DLiIg3XHH8av5Ccx3W94C/MPjSo3q5urnWfx1ElC8XtmTTI
jBV/2rE8D1IBN0NvNg3fEmbKNDfnIcjX15z5goYrJuGskdto4NwwMFIrokFN
N1KUg4MGRqq6c1AFDWWFcqvyJ2j4IiGTyPCBhhBZ82PNv3s+Jy9afuih4axO
bdxBfxr6WAqE0vtoqB1+7ukbRkP7t8OFykM06Df7pEs9pqEii7/Jb/r3Psla
asnvXCrHYIT+LA1iD+ppnA00vAxKMhCg0VB8QC/1ThsNObbsQ9VLNCgL3/fU
+Z2T0d2dHr1Kww7tG/HUCRpSTkdfsl6j4eemp7TQbx+l8JyE5CYN32PStGJ+
6xL4dy5vbdHQZSkw/H/+HwnxijY=
     "]]}},
  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, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  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.7803886975721207`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "dc90fd54-3d68-4c26-b7ec-a745223b6a29"]
}, 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",
 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.}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.984375, 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->{},
  PlotRange->{{1., 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.780388697649125*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "59b453d5-78c9-4539-974c-60b905dda8be"]
}, 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",
 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.780388697656125*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "ff4a2016-4f1c-4402-a7a4-a38598c3fbd1"],

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.7803886976571255`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "ff4a2016-4f1c-4402-a7a4-a38598c3fbd1"]
}, 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",
 ExpressionUUID -> "5e5bc007-1e19-42ff-a308-abd3e9a5b0ef"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw90H0s1HEcwPHjHOE83H0jLq7j23pQWdbDytZ9P7KS0IMyqRaXh+jpFm09
aAqLiB7cyirSg1qt3bXpYfSgG5pwZ5Ue1oP1IBRnna6TuEj7fbo/3nv9//bb
rIxOtuXxeFFj/bM8a7N9UFKmnPOo/Px6Q3CsLI5xprE3UYXpMqv72J6wOFeB
1QK2tAE2/pr03zNMnTM312j1Ovuk0Hj2Wa1hmau3JfRabWKOv881bQ9sRt+y
XXUHiwzpbWgHC6xUPbuteYN+Y50rUn0+LPiIGlmpJM/3YkIHamIL06tv8nVd
6ACrf31ulXJqDzrEgopG5F7hfegfFtYV/GF2rBHlQfesu0t+GvoZpw1kWgrm
PNhvYpx8cBB9TVsbYGacAhDoBWHODwcYpz0Mt6q3l+waZJzjoDNW4y2VDjFO
Jwg5snPHE/Uw43SGUyPVjqHxfxinC2zwqY98bxphnK4g1M4w+MfwUHdInnfJ
HDfTBhXBnqy90TKzDSqCwz2qttZWW1QMkQFu14Rn+SiBYvV8baTCDh0PzWsu
W3YvFKAeoNUri2by7VFPqNqaDbp2e9QTpBFswc7bDugECB3dmFtxYBzqBUmv
Hv2ojnFEvUGenXNHIXNCJVCi7L8v7HZCJfD50JWuilpndCL0Jtck1eULUR8w
7hA76BUuqC9owlssKbNcUSl0pc6ezze7olKQ3Hiryte7oZMgNyH9kj7CHZXB
L4t3cUSNOyqDafdLzzRPFqF+MC/x8UpRgQj1A22Zh5du7CunH0zTehSu2CBG
/SFKYPB9XitG/cH47kt9UwBBKSjLiknBcYJS0NlM/r78JEEpBGy51yxUEZTC
l6Du7BOnCUphXSMYS8sJSmHxD5Pu6g2CUvBctj6voZGgFDLURkVeE0EpPBXn
L1rWQlAKR9tv/WxpJSgFXoZLYttLglLoKdeyzx0EpRDGj51Y2UlQCpWpfQPJ
3QSlED9HovnWQ1AKL55k+PT3E5RCUKDTYJWJoBSOqS607TYTlEL4Jn3h4CBB
KVytT0y5N0RQCnbTh0IOWAhKQXHshK98hKAUak1Tfo+OEpTCX+u5MP0=
     "]]}},
  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, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  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.7803886976861267`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "891f7b3d-a9f2-441c-b06a-5a02dc5031c0"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "ivar"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.00010214285714285715`\\)\[NoBreak] is \
not a valid variable. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/ivar\\\", ButtonNote -> \
\\\"General::ivar\\\"]\\)\"\>"}]], "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.7803886977831326`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "8653cf5a-b77a-4261-8bd2-e05875a2a0e8"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "ivar"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.10214295918367347`\\)\[NoBreak] is not a \
valid variable. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/ivar\\\", ButtonNote -> \
\\\"General::ivar\\\"]\\)\"\>"}]], "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.780388697808134*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "8653cf5a-b77a-4261-8bd2-e05875a2a0e8"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "ivar"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(0.20418377551020409`\\)\[NoBreak] is not a \
valid variable. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/ivar\\\", ButtonNote -> \
\\\"General::ivar\\\"]\\)\"\>"}]], "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.780388697829135*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "8653cf5a-b77a-4261-8bd2-e05875a2a0e8"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(General \
:: ivar\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "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.7803886978491364`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "8653cf5a-b77a-4261-8bd2-e05875a2a0e8"],

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, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  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.7803886978561363`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "891f7b3d-a9f2-441c-b06a-5a02dc5031c0"]
}, 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["\:041d\:0430\:043c\:0435\:0440\:0435\:0442\:0435 \:043f\:043e\:0434\
\:0445\:043e\:0434\:044f\:0449 \:043c\:043e\:0434\:0435\:043b, \:043a\:043e\
\:0439\:0442\:043e \:043e\:043f\:0438\:0441\:0432\:0430 \:0434\:0430\:043d\
\:043d\:0438\:0442\:0435 :", "Text",
 CellChangeTimes->{{3.747915250342267*^9, 3.747915274551388*^9}, 
   3.7479163045241694`*^9},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"6184e574-a695-4b12-9439-8b5132563371"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 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" -> {}}]}]], "Input",
 CellChangeTimes->{{3.747914542201736*^9, 3.7479146578473563`*^9}, {
  3.7479147254585514`*^9, 3.7479148247605505`*^9}, {3.7479168547658024`*^9, 
  3.7479168665690365`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"440cd947-233f-46cd-acc3-8d0aba4d1723"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\:0434\:043d\:0438", " ", "\:0431\:0440\:043e\:0439"}], ",", 
     "0", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "12", ",", 
     "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
     "\:0432", " ", "\:043a\:0430\:043f\:043a\:0430", " ", "aurelia", " ", 
      RowBox[{"\:0431\:0440", ".", "Paramecium"}]}], ",", "4", ",", "10", ",",
      "46", ",", "66", ",", "70", ",", "69", ",", "71", ",", "71"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.748020687130789*^9, 3.7480209639683027`*^9, 
  3.7491091212258124`*^9, 3.749111378428238*^9, 3.749187345291813*^9, 
  3.7493712066690817`*^9},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"ddcfee0a-f98a-4c3e-8a7f-7d4167916468"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041c\:0430\:043b\:0442\:0443\:0441 (r=0.55)", "Subchapter",
 CellChangeTimes->{{3.747904818426734*^9, 3.7479048193821764`*^9}, {
  3.7479164342577047`*^9, 3.747916435390059*^9}, {3.7493711222129283`*^9, 
  3.749371130084944*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"c7a66147-fa1d-413c-becd-04e0b9e3d74e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:043f\:0440\:043e\:0432\:0435\:0440\:043a\:0430", " ", 
    "\:0434\:0430\:043b\:0438", " ", "\:0437\:0430", " ", 
    "\:0442\:043e\:0447\:043d\:043e\:0442\:043e", " ", 
    "\:0440\:0435\:0448\:0435\:043d\:0438\:0435"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"u", "[", "t_", "]"}], ":=", 
    RowBox[{"u0", "*", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"r", "*", "t"}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}], "\[Equal]", 
     RowBox[{"r", "*", 
      RowBox[{"u", "[", "t", "]"}]}]}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"u", "[", "0", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7491036411884604`*^9, 3.7491036609585915`*^9}, {
  3.749371109359907*^9, 3.7493711130219126`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"538a96d4-93cc-44af-85de-4ffd8f17cba5"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.749103661931647*^9, 3.749103678910618*^9}, 
   3.7491091212508135`*^9, 3.7491113784582376`*^9, 3.749187345320814*^9, 
   3.7493712067090816`*^9},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"e303b6da-e108-4414-b041-133aba8fd573"],

Cell[BoxData["u0"], "Output",
 CellChangeTimes->{{3.749103661931647*^9, 3.749103678910618*^9}, 
   3.7491091212508135`*^9, 3.7491113784582376`*^9, 3.749187345320814*^9, 
   3.7493712067090816`*^9},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"28114921-caaa-4948-8efd-e854761020c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[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},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"5dd5e34d-49e5-4a05-bebb-f3cf7319e722"],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {RGBColor[1, 0, 0], 
     PointBox[{{0., 4.}, {2., 10.}, {4., 46.}, {6., 66.}, {8., 70.}, {10., 
      69.}, {12., 71.}, {14., 71.}, {16., 71.}}]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlnc0FY4bxq3ia7tkx7WudY0ipLiPUXZIVsnMrMxIIrKzKpRdRNmriEpW
RqUhGQ2jMiIKoTLi1++v53zO+Zz3v/c8j4izz2FXGioqKh1qKqr/p6Hr9JvW
mWuahoF7FKmo2EGnw+87xneG0rg/nYXAxA6lm5m59/iiKV1aGWmy3Owwejl0
N48vnaJR3FIVSGaH9Ynfj1P5iigZsmP33WzZMaIQp5PMV0dR46/qaK1jR/4O
09gEvg7Kay1p0/N+HLjIcE/yEl8/JfGRQ40hHSdk9K7G3/Xtp+ieystKIXCi
L8Zn5mN3P6Vz45DKCJET4rTkcvmgAYpkpUJZtgYnuv4Wyff3DVJKWCXtM85y
gnnp+h7hpPcUj/o5wZvfOZE5EqJTvzlKeX6w8aToFy7Y2BZULyxOUOzeOgl9
/sGN+Y9HGG/xT1KMRAJHFza5EWvP4GqhM0kp7McoExsP7rn48N9Pn6T0Wyc0
uSjwgNVbI+a86hQlUvDDmxxfHnRGvj+6PewrZcPHwUl5hQe7Kzi2CzJ8o3w6
XWQCej4wbV200xOap3w+6+GdbyaATE9re/LBeQqN3Fiek4sAxPvJjhze85Tm
5uFKhSABaJYOuXx8PE+hV+lN/ZkjgAel1+sb5Bcom1HFnlzTAvhuMddk9GqB
kq9SL9kbKQjLkoyeAJaflGK/FQ6P9p2QMP8x/SRxmfJ7XoyPV4UI/nA9dfeC
Zcp2pjB/WW0i2CvzExkblikOrgnP9Q4RscZgIW/+ZZny+l3a1Rw3InpbGwJG
1VYoo6xqajUZRIQoXtz8M7lCcddiHktbJ+IVGxeXPH5TrinJHQt8LoKzr/ZS
MpdXKYn7M3vVYsXAKl8/+YxhjZJtkyXckyaGomTFpHXBNQqbWf6IW4EY3hhL
vrc/sEYZU9xqfdgkBtkergCJ62sUDqOmkf4lMYx1z9+5q7pOUZLZpfvORRx6
bbdZX4ZsUDZH+VyMjCTAU8cxSk29RfE43PzEZ68k7JLWj0xwb1Eu+v3Z+mEo
iVsnJnu6yFuU+vjXXuftJEHe8eBBos0WZax+x/KjcEloBzle21GzReGb+D43
3CUJlVzrO+kKVDC9QG9WbC0FJ/s7x0tGqbAp3bj7TpQ07n/RefF6Pw2mCQUu
pfRkDOpfXEzWowFHyMTDE4Jk/Kpq5jY+TINrVAXuCrvIUD2/1+mpOw3ee87+
+HmUjEZOhV+tqTSweey2rFRNxgNdfuLdaRroY3ip+Kgcmu4sBKSn00Knuc28
7LE82r3yBGzn6GC2cIfs+lER92ZOnrT/RQeubcKy278qoshD/ZEL1TZ4G+sr
VP9URIzb0FFvrm24pT1gz8e4C/rOHNlR+7fB80Pzr0N7d+G1bQxvVdI2HE+t
WNHJ2oVh/dM7aOW2I+rnkl2Yw26skDTYKk/TY7sHb1LodmVoftHuTgimx6Mf
4e/P7lBGbJ5+uEcUPcYJ6nYXxJXBzXVkXiyLHu0MqmKV2spQoT75OrvjH/eX
FqaGKyP4Y+bleAEG6C2sTUavK2Pj8jLbiWcM4NUnROhs7AHNajm7gAQjRHpt
EyTF1CDwUnuJosCIlUGaHhplNSgXvB84sZcRdnFab2Z01eBqQJ9TZcKIw8Pu
ph/d1PA0y1lCO4gRDaE/V43L1XBZnU/ds5sRMtOj1v4qeyEYGuvS4MmEG4uk
OSordahsOd63qGJGH0WMLNy0H8YmrZEHGplhUMJO7nm9Hy45wqaq7czYRSgs
jB7fjyuqo1/5B5khrXVDiMikgRmfY3xf/jKjqb9Qb+2oBnI/WYb6mrCgYDEx
U+evBqjbDbWT51jwzD1R+LQxBS+ilV91ybBhXOdgQhGTFtTZemiu7mGDwOeR
3Yd4tVCS5aR6DGxwP3dDh1pCC1FVKfnzlmxgqk57EKX5z3837c97kQ0uBlpN
a37/fNk8Hq8hNmQZRlg2fNCC9kxkzXZtduwJk2/Iu6cN4Suzq6U/2OGpEejx
NFoXzU7hpXeX2KFjziVMnaYLeyVO20d/2MGzuqNWp0AXuYPqjS9oOFCVnRU5
9VgXvDsTgua5OWAkzptb+FsXhDKpJWUKBwotbJuoTx/Atg7XuZbLHPj2+p1x
uMNBzP4eGx1QJOB74BTzTld93He/3G6oQkB5TGGM31l9RAxp3mnZR0CYh1rH
20v64G7IO116kICAIKumtir9f/93bCPUjoApbkKT7qo+spcH+cTjCUjf+1px
4YoB9BdfHvEfI+DFRMwhqR5DFH179Jw1hRN5pefz0k6bwDvDVMwrjRMKsz0p
+lEmUNUdP9+ZyQmneMYoliwTPM9jlAst5ESDV1Zhd4cJFs1sL880cqJdfIBj
U/AQNBt+WXSMc4Jx8zTpQu8hvI/aNXJuLxdW1O1T2UXNwLqzeH5iggvhXJHm
jjXmgFXUyPgMF2LHTEiJTebwv+zQ8+UHFxg+5ds2PzXHIDVv8ac/XJg+8fWn
xmdz3JiKtx9m3gEBVpHUW4TDkK/xevlWeQfyLVsKtp89DBMd+fL26B1I71B+
7XLQAkme9W754tyYGQ2LeEVliW+ojGeS4cY+Spp+CLsl9HhvlwUpcOPC/pW2
XURL0HSn/zBW54YnT+LsE4olzomfCVo15Yae5Ce2oHBLuI3tjj18nhvVt0ac
+KitoGVZc5uujxuOwx9qclis8QvlEx7hPKiT9f9bYGKLpqLZnLPRPBDUuVAN
B1tEMpAtYi/x4EfQ5TuzvrZg7a1oK0zjgbD4coxbui1IDlU3Rot5sLnv3NrC
R1tYhdXaHOnlQU9Fl4Xj6aOof9DwgiLCizHFE2+nso7hzO6OOu4nvKhIGiJn
CtjDTZmYf/UpL9aM6a6a7baHjUpoIvMrXoj9d4qf38Ae+9SVnWne82JIraH3
U5A9aLSL2H784AWP0pyq5lt7XDaP9urk50MdpTlI97IDynx1iWf8+fDtN/V5
7wRHjFV1JL4R4UeYaiSxlOyM3u90c7sl+SHOe4NEVHdGK/mAcTqZH3cQRyrQ
c0Z+WSeztSo/hJisd7U5O8P5TlfysDE/soNVdUKynDGV9/Ty17P8+MIRNTfI
4ILvSS/S/r7kx+zyExHfeRese/XnSIcIIO2kUeX4iCuOqBy/Kh8ugF9EM1uq
766ooJ6KVYoWQI7uUpDkhivsM3/7aaQIYKXxj9g1fje0dfLrm98SQFKuBfu8
tRviiE7Lwc8F4GTil1fY7wbOwe/GT/kFUeI9Pq8z6A5ZLfpNt0eC6Jg7wMm9
4YmasnLJd62CWCiR3Uhh84Iyl5m5Qdc/3rgVyi3mhf1fM4tk3wii+S+Tr7mh
Fw4lyxgtTAki5vrakeAsL/i/N8k8R9iJ9t2C/WnqJ/HAL313kudOKJbHGpjH
n4LeLRH3Wh4hGE13fg4/4gPlTFZSl6AQ/u5p3vLy8gExZX3ig4gQnJv3BbhG
+GDt3IAzHVkIYSINMfEVPqg0v2RvDSEkxZ3R6aDxBSf1ouVfDyEotQS37z/u
izGHVl2Dh0K49uxYpQqvH87udBD9bCcMYZ2rm6nF/nA2U7QadhIG40zoQfs6
fxyKok4YchPGB6uHR3a3+YM0U7j40lcYLSJaw8sf/NFfN936MFoYdcfotCZY
A6Bo7O+QXvHP/6D9yC84ANMhMbl6G8I46xlGDDh8BuQ5S6YhEyLU3VYjz4sF
ofGIcUuCGREPp2leLCsFQeexdoCmBRHfylSsQ3SDcDRF4eNtGyJS3fJtylyD
cEnxv/IzLkQY70tluFkShKkzTYaEc0Q4sknuH1c8i/y/ogkmRUQw/SYe4zMK
BifbAkPHGhH/3QhOcS8JQd/jhDiDv0S0yvnSf3sYgtRTEttfbxFB/S326LmX
ISA8P0r7gU4EJhvP7jb//McxnX/nWUVgRc0kOalxHuzr2T8FxETwpJHMWjp4
HsxfDwwHGImgxUCu0IQQBrqWnGqxXBHwlP6dlagLx4f9uvpjN0RwR7XGguZF
OKofzn3KLhBBgWFDzcJ4OI7e1yAQiv/tunverdSMEaitHDtDdVcEKwOa5y+q
R8A+V0x9pFsEb89p5KvnRaDxXHnH9SURhDx78KnD8yJOKj96/5+RKOxVUkb6
iVFo7R2oaDQRxUPGYyu/5KOw4/RCuLuZKKwMfS6IaUSh5bYEqdNSFHwXzWhz
baPAyXPFP8JRFEMK7rVMaVF4tHqC6XegKJgfOITN0UeDqYVVYyJfFDU1Dzdm
V6NRbuCc3/xLFFfLUwcbqOKgTBbRpKyKYnz5VNVV9jg0s3762LIuipc/Q/2D
iHHofXucp41KDPev2o84Ig7Lx21TnjCK4YqGAuFhRBw0/c1CnwqJwTcjoDSa
Nh692Zo2fQfFUKOxvquW4xJWZvnZp66LwTR22yf5w4lIz/vanZslhupRa/5s
t0QomdaFW+SKQbnJIoPrfCL87prMt/7bvcXu87GqRYn4HhzxKqdCDK1fpC6o
/E7E5LapJPN2Mch9iFsWzU/CgHDtf4+/i+FhtxPLf5vJqLfQo03XFUfzareg
Y9AVxBs1xgjqicOVJp1u+OIV2OlIM9w2EEeX7N55h+QroFFiYrl/SBwSTqfH
w4uu4BDhNfc7G3H4tH+fIL69guleKxnB0+Jgkm7Xndt1FfyH3MyLrolDl/SV
5c3KVYTrx9ysmxJHYs40l0RmGvrsPewUZ8RBO9dhkHg7DeKBRnwVs+K4WGJe
snY3Dc8LONIKF8TBO3dlffllGrjW82JT18Rx+gup3IYuHSWV90/7skqAKulb
62f/dPQSpveRVSTQ9WSOImV9DSIjhu8KYyTg2d9+kFozAwnt+6ot4yWQzMX4
HqYZ+FlMjqVPlEDFCxm1ZMcMtPuzKp+8IoHQD5uRxlEZOMHQd3l3jgTuvCqx
cnuWgRIlW722GgmMQvokm00m5BPc749+lMD0eKBPaHgW1FWj0/l2k8CnWvuG
djUHg858KnnKJDSd0ityYs5FQErVEFGVhDpN67EXwrmomHzHL7WfBJ1Bprqe
g7kQSpcrUDlIwmSi4cjJa7mgWRystDhKgjFXhK/mnjz0lEl3J0eSEPDp65ZP
+A3YCb1epX5LQvABq10C+flg5fOvfzRAQrgh/eS1iny0ce7wC3xHgtrv+7/4
HuSD9N+x6ekRElICVM00+/IxvzQ1+HqahLbrMwV/6AoQ+WzzXt4mCW9qt2jU
TxWg5Iy8914ZSXz7Sr8oqn0LK8+Tv/helIR7M0/ZXpYiDDMNeGxESYIUeElN
T6AI7caC83GxkmBJ0M+3ly7ClVdl6zcSJXG8yZSn/EARZPq6uV5ek0SGxx/X
RxeKYP+eWk+6TBI7E/xLW34WoetrYPnnPkmcZbSei/9yG5l09mcOi0shqtTD
ufVLMTZdePa8IUlB6si++9JLxTjxpHfFVFoKbpl1ZjdoS6AYqXPWRF4KhHt5
waXiJXi6JRWiryYFvdB4b333EvxeWwrXNJbC3xG7weofJbBavJQoc0YKLNV6
fXbby8A5Wn+LpkPqX6MszdMeq0AKc1hYQ5cUfrziiCH5VoBxn67NqWdSkBjY
9tEmpgI0mX0sg6+k0F7j/WeuugI/zeeDS99LgYdlt27/tkr0dkqZms1LwbGG
Lr20rhJJlTnrefzSkJu/ldohVI1tYReP7PWTBmc1u9UTzlrULc6ttgRIo+6N
qXaRcC1OuNncPBgkDelrnX7JsrXoMFX4ZnH+H6ta1Qbr1CJadCTcO0Ya++aX
j9wLqAXdU7XywixpTLPUGzYP1IKGc4GatV0acywpFUfy74Kq1L76C0EGn+Oi
RMbM6tA1N+R9c4cMDJa3Pis41iFJ0VzejlcGQSFK8kk+deBp1Kkc2CkDx70Z
Se4pdZDvlip/KiWD7Fe3rcpe1MFu8uedKk0ZqOw49MndqB4PROJuhHjJ4NdW
kCLN4fvwz65OJrTLwC0hlLorphENG9lx7R0yqBXQUp3LaMSGfexF/24ZRJrW
fRQua0Sc2PHAvhcyoJ31y6x+1YjcCsbjqUMy8KMErfrxPkBnsyuZ8F0G/Y8D
lRKrHoB3XKCHg1cW9cu/x60nH+KxbDwDh7csjhfZf70f/hgq/TwvU31lQUNI
YudKf4ya0OKrXAGyUBKJ1g8veYxbL7v4eYNl4alewRTx5jHifbbJCUfKYoqo
sSAr3ozD9yLN5a7/ux9R+HbPi2Z8VQ/LNmiWRazb7X0VnK3gMPQnR7KSEUk3
ykuIbUN+GxuTOgcZ5qwRHoppbVDcWzmzyEmG6/VdCTb5bTgkNX3HiY+M232K
Tl0P25Cw3V5ES5yMrPl+Mt9CG+ieGHBTqZOxHF7YVWDXjl/7RKguuJIRcbgh
+YzGEwzL9b4910TGx6502k/Cnbg5yxFG20JGFMlPqVC+E86lFqTkNjKU5Mzq
fDU6MSM+FJzfRYb13cVOmWOd+CUwurO7lwxFntElgYxOcDDOuXNNkvGZfnH8
D3sXDk7Rb1SxyCFwoMvvDXM3am5QxCfs5VA6oPKklvQMSyFL9E5Ocjj4irZ5
TvUZVKyLZ0dc5HDPtDRWyeAZHrGx3RvykMMNleGCiZPP0BUxqtXjL4fjpRXj
A7XP8NE5zOFurBxMft3tXKc8x3bJR9kRVXKwa9xfd9m1B30lyn9GauXQvu/Y
xPaIHvwP9avyVg==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 16.}, {0., 71.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "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},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"41e0a5ce-10ff-41dc-ace5-e9564b9d800b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:0424\:0435\:0440\:0445\:044a\:043b\:0441\:0442 (r=0.012)", \
"Subchapter",
 CellChangeTimes->{{3.7479164242504473`*^9, 3.747916429522438*^9}, {
  3.749371156231987*^9, 3.7493711681950088`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"6291eee1-a19b-4d97-bb70-653720097ecb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "\:043f\:0440\:043e\:0432\:0435\:0440\:043a\:0430", " ", 
    "\:0434\:0430\:043b\:0438", " ", "\:0437\:0430", " ", 
    "\:0442\:043e\:0447\:043d\:043e\:0442\:043e", " ", 
    "\:0440\:0435\:0448\:0435\:043d\:0438\:0435"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"u", "[", "t_", "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"K", "*", "u0", "*", 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"K", "*", "r", "*", "t"}], ")"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"K", "+", 
       RowBox[{"u0", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"E", "^", 
           RowBox[{"(", 
            RowBox[{"K", "*", "r", "*", "t"}], ")"}]}], "-", "1"}], ")"}]}]}],
       ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"u", "[", "t", "]"}], ",", "t"}], "]"}], "\[Equal]", 
     RowBox[{"r", "*", 
      RowBox[{"u", "[", "t", "]"}], "*", 
      RowBox[{"(", 
       RowBox[{"K", "-", 
        RowBox[{"u", "[", "t", "]"}]}], ")"}]}]}], "//", "Simplify"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Simplify", "[", 
    RowBox[{"u", "[", "0", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7491033210681505`*^9, 3.749103362231505*^9}, {
  3.749103596182886*^9, 3.7491036134338727`*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"7af897d1-8096-46d6-bc62-9b67e41a4b2b"],

Cell[BoxData["True"], "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},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"a060baac-1370-40b4-9c12-35f6a2967785"],

Cell[BoxData["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},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"5310b350-947c-47a2-978f-f81a5686b077"]
}, Open  ]],

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",ExpressionUUID->"0d8c783f-b10e-400c-8bdf-d366c9328ef3"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k0VV0UAHBUCJnn+XmTN3hPE0V6u0hkejdSSRQlCRmLkMyEUimSUKYi
QxFKIRmSmZCU+siQIREhle+8v+76rXvWPWfvfc4+6+Iczu4/ycPFxdXAzcXF
ee47Od5Z8+3mzrlFP0MuLlFYqy/v8VnOh7UQs/RLU1QUNqcnp5bIhbN6M4Q3
eKqKgklr35O7comskfzkVJVdonDwxOLL63JZrDziy0faYaLwiRmlHy9Xylqp
Dqy1ExCDDCmLyMtydSzXIlrcMEEcAlqT6qyf17HURlmjctriYB3xhQd/pJ71
30dzw+PG4iC04BlcmdrAqidPmeHdxcHvXaLflEoTixGj+9O3QhywGx9czElt
LEb4RufjbAkI4S8hx8i9Y50Kjb9RHC8J1L3Xop94vGNFL38RHsiUhK6Is98G
Gt+xeDVPJCg8lwTCGno+41wPq6rQaHpwVBIa/mYx3nX1srZ2jfJ47pICoZ+3
tqrE9bMGc3Kxrt9SkPzpgv7Tf4Ms+9tkWf5gGTh0+F7Rj9mvLK4z9VPQKQ8z
A1YC9+VHWGUew7tTJ+Uh0o7/pKX+CMvoeHajMK8ClDielS9LHGG9qta+vV1X
AYTd9SICtEdZWy0w7gc5ClAf2m/DGzTGeq/cxbsQogibHonxKvJPsK4XfLhc
sU8ZBFdDbPcqz7C6V6dfikjiIPn0QTu64Qwr68WNdEECDgjv6MfE3GdYYf8C
TkluwcHOh32OAy9nWK78e+pMrXDw7OGtp+WMH6wOT4rz4Zs4mLacemHS9oOV
uCHy35icGhx4kNTsvWGONSbVf5NXAw9E7Pv469h5VnWUn21yIBHkg/fqnLo3
z/JrkHyceY0IogUZsQLl8ywle7Xv1TlE+M1vycCG5llU3j4dWicROmrKvQe3
LbD4k9tbWkkkuKAZ8m9pZIGllTAqZ9RDgjYRSUkGLLJud1+v3sZSh/Nt21nJ
88ssKeep9RJGNJApFRvk5l5lpb+UJQT3a0LZkH5L+w4eqG2Vvnjp8xaodbmr
cHhqLZSpkjcNY9thgaQnUuDGB5Z9NsTydj3gWc4XVSAKgKvWxuL3XrtAa/VY
mWWhEGyZ/7n6r0cfWsK3tDVQReCeUMLjbnlDUEmYXH74XRT4Jmg0n1NGMLn4
ebBHUxze3Wi/zXtwH2RNVL4VviIBtJ59A8Z0U3BPssC73JAAD4Xd8hObTEHb
YDigPlkC5kgnxyK2m8LbuwIagZkS4NMxTS82NIVZ9uGr3yokYGmd35n2Y6aw
s/yXZd2wBIjLpqxsSzSF/rCNn/y3S0LLRPT9ykVTEFbKnfn6VRKa7gRnP3hs
BmAd9mn4myTI9WvXdJaZgddV++ah75IQlV2qvlhpBr3csrlfltA+Z8OYVoMZ
pI1G230UkgLVGLHtlz+YAaPYpbV7ixT0eEfRQnjMwUyfkV8bLgUV0ysPKyzM
Ie70U6cMgjTYdYiLJH82hwkoiBakSkPsQd4Rna/msFc2O+8cUxqET0Y39I+b
A09j4ndTHWko6GCWCs6Zgz/B59yyhTRof9f2grUW4PR5U+T+AGm4YbcDZsgW
sOtAcfbaLmnI45st9HC1gF+Q/9UZnSMfL24sYMICXmRN3jkfLgP/XMfd5qYt
IJSfbhkZIwO4haIEp1kLEO549CrzhgwEqW+f2bNkAST7wrTBXBkQ1u+794OH
DdZBjw9ZdcjAiU9Hfu4RZcPTZ+UtLJwstHl/5vpMYcMFpaUwc5IskBevlrnS
2AAh23SP0mTB1LdCaJnOhhajZw8vbJUFb3N82gZNNnztex751FgWzOZ1zpK0
2CD56yXQvGRBaEbwtsxuNvhsqiuVfi0LC59aLvw7xAanLaoZ197Iwn89zsXB
Nmw4pBUYK9QmC5j/hzOrR9igq7PFgadfFlIFB/1+27GBZ3eWyPfvshDL/0Tw
8wk2XMXCXerl5cD/2oKUowcb8jwMVH285EBWXqHcLpINqV4ZgjPn5UDatWrw
SRQb4n3+/DodJAcB+MTidTFs8PArbbWPloOPGsYHc2PZoH2JEGCSJgfGsUPt
HxLYUHd1ba/aWzlI9s8+seYOGz4X1sV24uQhqTD5uUMhGzqm105tIstDPnms
J7qIDTX0PaaJdHnQt6I0FRSzISOvXuigtjw0d4Xpzj9hg0NOQ/xHU3k4M7b/
jHc5G0bvvrk6dl4e0oqrunVr2DAd13Ljb6s8PFX6fHWlgw2DzULzdt3y8JqQ
Gv+vkw1tAmZWNe/lYXGEEsrVzYbC6FbJsGF5CHU9a8ndg+IJb7vJvywPeu6X
i3+9Z8N8QEeSBEEBwsfPqD3+woYVl3d3KBcUYHIyb9OZGTZYaR29xghWAIGp
qSusH2x4xD0auTlcATZ6mShJzLLBLnnRU++KAmSpq3eXz7HhVb28EXZfAQKs
28oWF9gQpXp83u+tAigati5if9gg0Ttt+kZeEfpq3OR8+TFwvXdud6uKIqwZ
7hbYuB6DOtdV7S6CImhbduhPIZ9bI4b/yFCE8Sqlq8cEMejX3LI8s1sR4s5O
p4IwBumxF7JlziiC8ggP/rMEBrRdfP+cKhVBwXiVkaKMQXFePvl9jSJ8+HJr
p7kKBlsk2ZhxgyKc4bkfx62KwY6x5CxapyJE4sXGTuIwMI+nmvwYVQRHWWIe
kYCBV79Zsr+4EoRiNRtCKRg880zcFHdaCYYexLFLNmOwc2Cb7V93JYisDrnF
3oJBrcGnCHcfJXgIlRunkd/KkPrZwUow6lfoQtDC4OPL8mCpm0qw1tZm+fI2
DLgEBlrSapTgP5MNytv1MNh7H3fqsYwyJOo5rVc2ROtNFiY1KCqDckQ2KQ1Z
9crK1w84ZbCW/VajtBeD3/49DmvpyuAY6OuuYIRBARZjdxCUQeCpdaXoPgwk
uGcP/HVWhrAfwdHDZhh8tq8xMH6uDOc+uOtpHMCg5UDBGrtqZTBVHxi7i1xh
klLrVacMKyPGysLWGFzX9oHUNmWIFJ3XnEbeI6K+Y2ZIGSqMmpezD2GQX3V1
801BFYgdbrjAY4vBeXRx/WerAukXMU0XBwwc2JrWH4+rQJHEu53NyOZh3Jf7
nFQgbrFxguaIAelb5myrhwrk7w1VnEJ+Vzpe8zxcBQx+Z82eOomBpqmXfeIj
FbCOf1xq5ozB+IWI1L1/VCByd4rSOzcMJqxpzve4VEGrOSKe4o7BsR8SPCpr
VIGdoJtzEdkEP7JVnl8V8pRsu8lnMVCLiborKq4KtjdeEM95YNBh1eL6l6gK
4XpH5nm8MaBPHRDsM1OFRNenPp/Po3xYmVZfZquCUcfuFU0/DPRf7vbeaakK
e/Tx5FBkmyvMgexDqmAu4eiB98cgRnN9vo+jKhwy8Ow+fgGDUZ8X+8T90fhR
PLMtEIOMv2qXzbJUIczIq+5UCJrPSW4nd64qdF4g5Bcil7eJzJU+VAXnhczd
C8ht6X8OKxapgpKuQ0RIKAZ/d/VSJp+pQvpWDcdbYWj+yJim6HZVcF10aXoc
geot8oO/7rcq5JhmXHgcg0HXy8tRxn9VgWmxd3UC+borkbd9VRXUuKr2Ei5j
IP7WZs2HtTjImhMh3uI4ov7vjDAOBppmZM7HYiC6kjKngMeB5km6BCMeA6Gx
PR+9TXDQyr1jyTMB7Z+bX2yWzXDQ+T7odBZynEFA/0U2DgJWWrN7kQXvF/fG
HMDBEV+vSzrXMBA4qtCZbo+DsJ7Hr1eR+bt/1Dd746D45uXiSzcwWFt9pwif
igPtbtn4o7cw+LDDwOhzGg5UzPf4xSMXPZ/6knIPBzHnWugvkW3K9MTFc3Fg
yvg8p5CEweOCzz5cT3Aw61e23Itsl4rX+dSIg7fSNiT926ie/vl1t37iIPbK
1NWFOxhcWbQ8uv8XDiZqJGVVUjFw9P2zsGEZB8PLrzyMkIU9zcgR/3CgNX4p
MQX5pPNMjPd6Nfg1cTh/x12Ur4ObLdgqaoDV8hr4pWFwZktl/3oTNSg0tght
y8CgpqPnUYWZGvwVudQ7iyzl9iP4FFsNul7/5JG6h0F1NpFUf0ANQqSsRmyQ
JWQSvC4dU4PF2ap3X5Erl08ILvqqQUXn+7DZ+yif1cJ6XzPUwJ6dZjiThfb7
EYrojUw16M+RWtiQjcHTRf3hXTlqYLO8fImObK/pH5OerwZKDpkbTyOX3Bvu
sSlTA56erN9fkI+EV7h3NqP3i9qmb3PQeTZ2yKj6pQb790pOhT9A/YeO28la
VgORU+31d5GrhL8MVK+owazdsYgy5I7uozKvuPBQ3+hRNoY8f/TwldcCeJBa
A8NGD1F/9GIHvlHGA3fE0EXePDQ+ZeehLkM8VPwQ8T6bj8HhoL8L+43xoMxn
qhOBPGT/4ka3CR7cAq5PpCDPE3Ta37Hx0H8gjbcBWa5oq2GfDR6C7EyYCo9Q
f3lN3/LRHQ9WVecPvkJemJQXHb2FB1tTyv2/BRgk3h1rTL2NBxvG6n7xQgw2
W5QGW6ai8bHkKRKy5xOzmZp7eIhQHuizQJ72u9R25xEeYpbLkjKQR9aNxmG1
eFDdSuvQK8KgR+Xx+pfTeHDOce85VYyBT2fQK+8feMhN96n1R5YI2+dP/YkH
duBsSiwyNjo8nrSEBwudAuEi5NZH0m+81hAgLq50zQJy/fbASHU5AnhSp7SD
HqP6We5dk2hAgN/VZMfgJxhEm1REKO4lwJxj1FA8sq0+hT/bmAA3R47vT0Xm
2Sy4ocycAFwhTWueIZuLt0u/P0SAu8YaRbPI4x3WVEU3AtRmHdM6VoKBvLkT
lnWTADbK7703laJ49/R105MJIHvdFMdCrtEzsn6aQoB14vRXJshOGtQjDekE
6Nrg9P4EconQ9xPjDwkQEnHQ6RayabOvH72KAP7lsUKLyMFGEemlowSozBIf
KnyK+o+ds63mNwI8OCdS8wyZ4Gsi92iSAF6RGdfrkN/eE7uR+YMA6cpFUh+Q
JVfuRl7/TYCE8qbEtWUYPCgoc/MQJkJznXrIQeQO8XFduhYRqmVqji8gq1Ga
l3K3EQE/FzL+D9mXVfgUr0uEo5ask/zlKF5XH6YCEOFwUi8oIJ+o58IL7CNC
MaSEAPLSeTmB8aNESKg/sykGGfdp3/vMCCLsm6y+JVGBweVa3aID0USojP+b
rYg8l0uP5IslQhzP1zwicq2X8JYzCei/zeHDTW3kE/xdVzfdIcJWwZJZG+QH
mw/vfVVMBP1WueZ0ZMblU2WDA0QIz2LvV3uGwa2zh+ITBolw/YcfnYq8amV8
Yvd/RFj/5uHfjcgdKjTxnFEi4IbNInYhez797uY2S4TE5ufUY8ilX3yJf3hJ
EKXzofcOso52eKLcJhJ0pIUuCj3HoNdBTuvuFhI0PdTCJJC9rxT2qWqTYCSP
mCWH/Gjkvbz6DhJc2t+5lYSsnKhxT8uQBBXDpPUsZJ7Z3gJLGxK4Dc/4nkVu
zqM0xoeSgGcmI6kZ2bm3ylksggTLudKkTuS1PFYCN6NIMBiSXtiLvPPwRbPU
OBLsalpT+B9yMV93d94tEmRF1TstIieeCPzSmEcCpsHVelwl2t/K7cvc3SSo
HVg87oUsLOf1tBL917Z+n8w5j/xKQsrT9z0JPrm/GQlEJq0/Mj7+iQQrzdZY
FPLMz9He9nESqHbGfrmDHNr0r+TuPxJMPLcceY38wIfhvp1KhuiK/DKRF+j+
ONtJ+UknQ41t6R5J5A0uPiOPmGSYdTzfLovsZf/cVnUrGSKmDLpxyLr7DE34
gAz02zmpm5HbVOzUew6QoeB0ia418sLb+CGPEDK83S7UnYT8UbDH+U8YGSYG
ZkLuINeaKs5ERZKBMvGeno6c0Ja3khZLhq2eLedykKldjZKtN8mQvLl4oBTZ
rp97LyWPDOQliekO5IYx3/z/utD6J4v28b5E9VN/udGthwx4Pt3Q9cg3Tq+t
WOojwzDbtEwI+djk9TqRT2QIOCMqKYH8+3vRJ70xMjTVReaoIDN/fRNJWSFD
2S576jbk5LV2PvsJ6vDd8EqDE/I/R5mtnSR1mAuojzqNfOJ1x4IFRR0IIWKG
rsiaofrnzRjq0Gk5/8wT+c2q+gWjbchvdYIDkRd//wzeaaoOF/+5hV5Dtp6N
iaX6qKO+8F/wM+QXbH3Th+fUodDa81slslrxHyF1f3V4PuLFrkL+7n72CvGi
Oty+3SP9GjliyuqaarQ6nHY5EdGCXDqmkiSdqg5DfIuTg8gSg0/v89Spg4X8
wA/uKnS/CwUFlTeoQ7GUje5aZAFdg0OuTeowsqQVxovMk9y1obdNHcpipQUF
keewGb+H/epgV1qzIoHcUa9uwZ5RBxVvK0ciclzBnZW78hTQmXWyN0Tm/+jQ
u1+JAnFFekeMkMMFqI/5VCmwnN9itQ854FSFkyeRAnq9SrvMkV1wPZ0GmhTw
u9zz7wCy0U3hB5N70PibPaInkdcFhVht96SA+VubjBDk0tmp5WpvCuzU79AJ
Qz7hdCjd8BwFru2J7w5HrrNgTlgGUKBrz8hqFGd+tU/B7hEUuOEABleQ177Z
lp95mwJ9ilpBKZx4JX5wC9dSYLDC6sVj5CdRR3IT6ygQc5KCL0F2+NNgqtBI
AbffgdGlyLUjd5PUWyiAWeSalyOHVpho6PdSYIvT1qYXyNx2uYf8JijAW5nk
14jM9dCuaEicCj5FuOYB5IapPvd0KSqczuZR+cTJnybGsJWlwrljhzwHkWUq
9At6lKjAwk6L/YfMaFTPf6NOBYX+/axRZNuRuZzCnVQgPWy2/IH8DBeVdsGF
CmUk4pk11RhcPMllp+1GhcAnswlrkQ0e+ivNn6XC0nXnp+uQOzRdU918qTAX
fuQ3H/I4C0s5dokKCfQQHyFkaTuFW4a3qBD3XIkmheyVUhQvXkuFAdHufCJy
+Z+UqNo6Kjin0bJJyH/sIkO8GqkQ43PqLhk5Cn/Ut6uFCtwbrlymIKc+Ejh6
vY8KASrPD2og11edpItPU2F/zv2qLciywwrNYrI0CAuTaNyNfHQPX/0reRoU
pjPT9ZHv585VeSrRoGje6pwBMt216UmnGg2qC6txhsi7Fs6lXNOgAfXrZjdj
ZBe+rtNi+jQIwqL6LJBf0qL5xdxpwNikwG2LrPVOpvW6Bw3K2z8UcVwcmHtN
0psGMqwvR49y5mttkJf1Q9/Pry63Q44+u05DJZQGF7aPOhxH3l8SimncooHA
iYAkJ+QxnaAU4yoamLiMXvRAPjYsZN9cQ4MNSx0ynsgfYlPxZq9p8CVZtpjj
lo+Vj9hvaLCp6dWgF/KTi7+rDnbR4PqTK1t8kQNrzw+fHKXBo7qcWn9ksX1e
9FBhOhRfNHULRc54JSKoI0YHvP3Rfxxrbi/4NitBh4DChithyObq4znH5egg
k55dEI58mdcOt4tAh5zKh8ORyGtfG0tz6dAhovjsxljkX7o4rosn6SBqMH3o
BnJESdXgVmc6WN7w6uVYkmb7ctqFDlJfnSwTkTfLJ1046kEHIjnd5Cayx5LQ
wo4AOkxZHduahPytdOnbSgId1k2VfE9B/qjR0e3/gg4b5Wf+3ENOnxQLWlNN
h5fBhxzuIzs8tCTFv6JDSahVI8ffCH1+GQ100NvGm5DJWZ/CoFJjBx0yKEcV
szn5EJg6JTlCh8q3ergHyIajfH8KN2iAonbvYAHy+izj7G2iGpAa6q5dyMn3
8VjzWnENUNiZe5Vjy0/C93pkNOBrxsrOIk693kkZ/sFpwEbQvV2MHFCLTzDW
0oA33W47Sjj7I41F+GqnAcozxlCB/PPCT77jxzWAJUCL41jrYO7kJ0cNMBir
7OO4UkSkpM9ZA/5s/+72DLnh0uCuZi8NGPZOu/UcecAhyP5JpAbMZvv2v0Dm
JVemXCrUgB2NmuRXyMZrzl78W6wBlydzT3Mc91nN4UKJBnA3vM/nWCz5MsWn
QgOONTgza5EV19tUnKrVgEqefZtfI2+aXOox79WAlg9sRj3nPBVpiSn904Be
Fdufb5DLbJaEO7gYMBoQtqkJWZj3uVDYGgZYnHTw5LjGVo//Gz8DdOhG3zlW
EzBYLZVA42NefH2LPHoCmzalMCDP7GpdC7K7vGtToBUDxJO49ndw4q3XaGQe
ZMDHrJJojlU8Z+qGDjMgbY5czXFHo1eNkT0D7rkdoHVy1uvrXy7pwoC+R81c
XciL7ZHZj4IZ0JnukNGNfCniXsjHPAasK5As7UXecJ5v3/ECBlTVm3zhOMXZ
TXy0iAHtUZZCfcglJtszZ0oZENjV48jxqFhnHU81Ax6v5om+RzZJ4+KndDPA
eqn2eD+n35XbX/FdYYDf46WhAeTMB/XWv/8ygI+auf4j53yl0FSCuZjQsYOg
ybFx0GJR9DomkIfyAjkO1L/aeUeECbuW2yQ+IQ+1V0nW4pmQSU3WGUQuGFe6
I2zKhDs9lme+cPrJ3Yhjg+ZMoFmKXuP4xP5pYiHGhMRn6WUcK754UWx2kAla
stu4/+Oc36tHGuIcmOA6a5XIsbPW7VkBfyZYTLg+GeLUJ1zSiC+HCUsyfu1f
kf9tC9zQ94AJzbYLMxz3Tw935eQzwbHdRHQEOeFgyVHDx0zQXgxnc7xK3e8d
8YIJSdYa7Rx/7LyatqabCRHNQfWjyBWRi47dPUzw2Zw5zHGirj0l8z0Tvt7M
4h7j5DObUbp7kAm7f+nqcfzcr7Up5BsTzre+esLxLY2tV7EpJjiXNLdz7DmU
aoWbQfkYfTLFsbqp6+eaeSa4fZAjjXP6E/e7rIRFJjhM397N8Zenui7HfjPB
cG7RjuMXLplMzb8oPrEtARwnqQgurK4ywcPHPInj/wFsy7e7
      "]]}}, {{}, 
    {RGBColor[1, 0, 0], 
     PointBox[{{0., 4.}, {2., 10.}, {4., 46.}, {6., 66.}, {8., 70.}, {10., 
      69.}, {12., 71.}, {14., 71.}, {16., 71.}}]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 4.},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{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},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"9a0b5353-6a2b-4d76-8d3a-2e4687d53447"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.749103210375819*^9, 3.7491032243386183`*^9}},
 FontFamily->
  "Arial Narrow",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",
 ExpressionUUID -> "0a368afa-ef1b-4e5b-814f-04437c2a6f87"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x2$$ = 0.8399999999999999, 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$7073$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x2$$ = -2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x2$$, $CellContext`x2$7073$$, 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., {152., 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.7803886980951505`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "2f6064bf-9332-493c-aff3-615909ecad29"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:041f\:0440\:0438\:0431\:043b\:0438\:0436\:0435\:0442\:0435 \:043d\
\:0430 \:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430 \:043d\
\:0430 Exp[x], \:043a\:0430\:0442\:043e \:0438\:0437\:043f\:043e\:043b\:0437\
\:0432\:0430\:0442\:0435", "Section",
 CellChangeTimes->{{3.747918045893719*^9, 3.7479180792016163`*^9}, {
  3.748019567260964*^9, 3.7480195984310884`*^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.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{"Exp", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DerF", "[", "x_", "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DerF", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", "+", "\[CapitalDelta]t"}], "]"}], "-", 
        RowBox[{"f", "[", "x", "]"}]}], ")"}], "/", "\[CapitalDelta]t"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "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}},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "3cefa659-4acb-4def-a3f5-92390940e105"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVllk01Q8Xhg8yZDxmjukchCIyhtTvjQwJSVSGMoS/VKYUIhlCJERCIalQ
IgqZCqVCplLIlJIxiigzX9/Vu561L/baF3s9L83J08KFnkQi6dCRSP/PjGAn
JmXnK7tOOjVokEjTRKbNpPZh6glizStRJJl9mvhsGuNDpQYQmyXFhlWFpwk/
Q2tORmo0kc6dph+vMk0Y1MNuXiKNmDELF3zhMk0UhKmFT0s8IN5v0vxJ3zpN
fHUsFJiSqCDkj/vLO+XMEIEHTjr8kGgkjHcIXLPwnyXWwjWEv8Q2EuIHxzUn
L88SIWV0Hz4sNhI2X+lZrqfNEpdEUvUqO5qIj7FHTDirZom44XqZ6KhmovS/
pbrCtVkiK0B8SuZXG2GXUSbz8PIcMdQ+pqNs30HcldJRGcr9Q2xcvNV4SrGH
CNCgy9YXWCA0oz6fN3bsIVY4k/l9Ni8QbvyCCnLXe4jUgqPNBToLxBvlxLih
xR7Co0RJ7eDxBeKS++WDNq97iXqP//QOFy8QpD7ffkO7fuKcSrvafvNFIvBL
jj+3/iDxIWYf/+GbS4T3y4uxkz5DRPzw19OFjqvEAvf1gt4rQ0TZYVPFdP9V
Itgxr7Xp3hBxROVIx634VSKW9J78oHOIqApSZnj/fJXI2yWZ7KL9ndBYvhXO
J7JGDFbWZwzQDRNjvh/92T+vEeZPNz5uTxghyuKqmZOUSVC8l/S+pHCcOPLf
w9iHn+nAl7ptvrZxnGAjTI6+HaPD8pUW0Zbv48TtbU6L0/N0aDjD7DZMmSAy
fhnWuAvQw0kvcI0/aoIYZb76dPEgPZK/Ocn72f8gWN15xuPe02OFqhKhRZ4i
Gv1YO4Y7GTBs5ib6RXOamJsy9BpkZwLfm1PSwfrTREtHAc1EnAm6O70VxCym
Cdd7p268VmJClvx5HduT00TRauCfrxZMsGOJtevKmCboh32r69KY8KHucXob
/QzBY7YgLruFGS/U5kVrm2eIKH+Da91WLEihRIrdcZgltgvR9Dx7WfF3qDXX
zGOW+LvvWIHHb1ZYFgiqrATOEqPjyw2hG9nAgwcGh1NmiSMXew4PbWdDrEuz
J0frLMEl+eVxcjIbQop4XgbsmCO02oYOvbFkh5vBbVcLgT+Ew9tqUsc3Dmj5
lD9maP5LfBwr9/2YRUb7+o5j3p//EtKMO5ZbC8lwvVrD/mXkL6Fsyqb7qZqM
xLw3Jyrp5omd/pKajJ/JmBj4KOW9fZ6YO/uhb5abG+n7ZlIGsucJpUe8n/ki
ubEmvSWkImCB8K4UGi3w48GrrlvmnrJLhAzl+sb0MD5cd7Ka+6O6RGimrQ0W
JfLBdYozNQhLRHeWieWHbD6wMoR9ibZeItpTZDR2vOKDuaKbx70rS0R/cezq
/Q38GLikFvv51xLRnFbhPhbNjyXllrd65cvEO5vAL26ZAlCOXdsltHeVaEjt
DS2ZEYLKiRXngkOrBD/E3CeYhKFmsBSj67xKeBXH2KqICkOD9Lfz1MVVQsjC
LGXBQBg6vlMedaWrhMEgRcohQxhGdn2Z7pJrxBQJOg9MKXBQqFyrXl4jnisp
Pk+qFoHhiPaXbYdJEH0353a+SxyuHR8no46SkM8YZfHnlzgu1XosDRwnof61
3cNwFgnU3czmv+pFQiBnwrceLQns2M9qMh5NQt7MjOzZDAkolX8uv1NNgh1N
5LiqGhWCMf6JPJJ0kJpK8OliomF0a5n+3CQdhkn22+uaJSF54bSL/Cwdij+d
JTn1SsKuWTrCaZEON5Rt5DknJNHunlTfzkiPeN31xsvMUqjM9dIrEKeH13Y3
aRY9KcTS5He7mtPjxQtmle3VUlDmz9LpfkqPXuXzRinPpBG4Eq1afZ4B3Xvj
7YM+yqDV9/j186EMMP0QKfNqVAbUKZ0/mpcZsI2yWY2yLIP6/l9lpckMiFvw
tlmkyYK9xkr7cRED2g4+P3TBSxaZobTd2SMMkL8tZJFHlkMdU4XZZYsNuOhr
Mv7z6GYwc4+dsNzCiNxNZy1jlRTwN8pO//Y2RugYr/vW6itgZK2dOqHBiGxF
fV4mOwW8mazouqjHCLObCqQ3lxUQ2XBFP9+OEYoeIxKUIQUwhSjR6OMZYTm+
+kLi1lYw/TrX/Xj2H4cMMzMKK4GxhdGQ7TkTjhb6KNbJKoP9dPrx/ldMeBq8
rfU/DWXwcaiGPG5iAicX4wxFXxnSpg4VB7uZoB9aMZHjpIw9LZXy6bNMSBuq
6z2UqYywFk/y1n9/zsiEXVQhFZBaP382S2HG7lHfPbn8qlhuLTiV6M0CXVr5
XaEd6hB/73hrjz8LSt3mDIZN1KHbwd/0N5gF3/ltOmuPqSOm64KsbSwL6EnP
ftwLU4fQoOk3qVwWZPxOOyD5Th0aM1OHS/tYoPx8XXX1mAa8eBX1ug03ojln
tC8ucTuGDxcKi4uzwor7mLSUgjZyjqy+tJNmxdM2snYatOFmbXLq1hZWHA39
ZCZhpY0Jm4kXQttZIXvqXq5tsDamj8o485qzot3kx7kb77WxcjyzkCWMFQe1
VIslAneA1ytOb3aYFdx52m29PTrYfdnjdEMBG9iCnkz+bSNAefLlcFwJG85m
GVvNTBCY6zXXtaxigyuH6346BiBHSVVwsIENB6+KcKuLA+xd87XzQ2xIXF+L
lLUCOjeF8slS2FExtncYr4GTr5KqIiLZ4WvN6xVbuBvJa+Ub9ew5IH0qbq03
Vw/ssq89kl04wHZFNMD9mR4u7X/fMXqSA6pa6XqMb/XgkzWeEevPgTwPn1/2
I3ow06WodF7jwKYH2qUPN+0BU2SgzYl6Dgw2DOZl5uyBP8eu/PjNnEjg7d9v
+EQftqKvTPpmORH9qLH2129DTJye+V26xIkF9X7T88xG8K+RSIun40KRy84A
AVEj3HAKGtbl4sK7WqfRcH0jfMhTD36whQuJw4nv1NKMYKye9/icIxc0bmoo
r+jthbbZVR7uNi4E7U2TSMg1Bnut/KSkFRn1K6nfPR+a4lvagYaLR8hwdhsd
dX9limdn/O712ZKxvV577nyfKZxkX9ndcCLD/9hnjx5OMzyLs2nZ6EUGJevW
l1RfMzgdjS6cjiGjqHX9gtSe/ShfGvF6UUtG/Gpw7kKAOVzUs/9YK3DjSdmu
yCOmFoiJ4+e6oMQNqzTj+nJbCxSOXpbLUuEG9y1BU2l3C/xN87Qd0eSG7blz
TmJRFri8plPno88NrV3WN1LrLPDwbVfslWPc8H/lxlqleRA/rTmknydw40QL
qXdayRJ+wf4W1D/c2BsSf2zXnkOQmwxij1r455E8fl/1w4fQbR36ZmqZGyWV
XUU67oegqR6jXUXPA/o3Ul2BCYew8OOW5CEyD0SoyzYv+g/hvHXN7yvyPMic
vxPlEHgYwWpMSfOOPNjTmqAc/OoIIiaSOlpbeaCfcVbBI8YWl7qGm5bf8+B6
57CRZdY/rt/+Uu4TDyzU6Nr2ldkiLLO3KKyXBx1WOfs9v9ki2EIqTmOMB/c9
uR5E77DDuconRpl0vFjSoPIJzdjBLeb989NqvJCwOzhAcj8Gky1ceew3eVFR
eeaD3DsHWDd45m3O4MUJBjIbuh3g6tqeZ5DFi0ceC36Oww4Iyb72ICSHF8b8
EZyv1h1QQuHLn3vC++/eFk56dUeIsgkX9r3jhbJGhc+5O46Y/CFZ8miVFx+n
B5p9wpxwtUCj1sSRD+I/++puuzpDxkHOscCZD/zkfZ8G/ZzxgodCz+n2by4d
ErIt2hnTfqt6bR58iOrIbVvOd4albv3bA0F8uJDNV6D32xmiXQfaDqXwgWpv
7XY31AWPSKcHHFr44OhyevtqviuaDt5d8dXiR0hxxxdulRN4EvGt55YOP/I/
qvPP6Z/AzWe0ipf/7Psk8e7ysPUJuItknSUb8OPQNjWOxdAT2DiU/jPfgh+W
Yvuz+j+cgJHPjcFvJ/nBzMmdkO/njtcJ0fXmmfw4rlo9V9JyErUtnrEKDAL4
KXRO9UyhB9T4wJbCJIACy36hJw0eyLMhx9CxCsBBr8GbecgD8aNFUZ1kAUz9
ZHv3R9ATx+h+h4WIC2AxRkhrKMwTK2q+AR+1BKCiqcwXregFrXR/1yAvAbj/
fB+Uw+2NJ+6haO4XwNHol0MTqz5Qc3JokPkqAJmMru5+jjMosybMQ78LwNyx
QmVA7AwqjFbtNX4IwFVzYjfzrjOolQm4mLUgAK9LBmwrwWfQ8s3rhS+vIMq2
hR48z+CLMRsHHbG9gjg3O8AsKngW4vsITY8SQexV8O/OPemHn3UnV+OeCUJt
UOXO+gU/1GimvnxcKYji7ty3Lgl+cJCZMZmpFUT8XJPN0VI/ZNPddfRtEQTn
8a1dS+t+kC1nunJ+RBA2J04oLab4Y9um1v5IISF8pcadseoIgN66XfjtICF8
eiS+suN8ELJiKOMMIULwXi/8J6ogrPB3m7mFC0H9v+wfxQ+DUKZwkKIcI4T9
bEkW53uDIGezt/hlihD6mkgVG3ZdAHup+pfhJ0K43xkbxMUcjI/unDsUxoWw
8lsmL+jBRTh31vwutxJGaOtlxbm0UJC/NiUPHRHG4Zd0jWO5oaj68UmT004Y
JdZk37HSUPDQTQYfd/rX09rYJTZ+CEWNvBAbp6cwpngHatpZw0AJ9ZI6flkY
60TvWkhwGN7L0yw5qoQxnaYYeN8jHLtCw0odqRQ477urJugbgXmddMcgKQpK
rTe9e3UpAkULpRwpMhRkKpsdvpAcASmvcZdmBQq2mo/4Cz6LAIu9ucB2LQqu
hsqsji1FoENH3I/dgoIjU+kMrBGRcFuo0HwWToFutWHw1btRSPScqWIfpWAy
8LcTHXsMuoh0lpMTFFyylixapMVAlGxo1ThFwcZ0o4gNmjHILUr/GTFHwest
bEwWzjGonjGkrdOJwFfuAKX1eQxGzmRGzoiKoNSSIfSI7xVo++870GkhgrYC
t0dy07H4FnJ/5PYLERgkW8no8CbgXHuGV32dCKSuBzt9k0gAK/XG0li9CH5m
NCYmKiRApSaSU+WdCLwcqb/IBgkIX/1Po75LBAFv7p2JDEiA9PktkWPTIrA+
LpNr+y0Brmceb1KWEsWmneQvo1XX8MOlwvlllCh6zrJfcE1IAnuTbvyWK6K4
3shoL3gnCQqKzRWJcaJgTHcI7ixOwqm/A5zHk0XBtaP//sWOJExGbqhguCsK
e4WHP4MFr2Mydz+H/gtRxPO2EjrZ1/FzfLj07ZwoOv94f2J9lYzp0zzMLY5i
iPyqpPBdLRX2B8Y9lp3FULexz0rBKBWtarWdm93EUH7HtzfcNhWPlk/nRHqI
IaPLWd4xLBVu0Y36CBTDYJPm9s72VAzeC7n09LoYWrjbR0q80tDW+5Pu5lsx
8Aruns+ovonCve9WXLeKg/fr/Rq2yxmQHyg6HbFNHDOpzWEitzOQ53Nj4K6q
OJqM9hntLMtA9i3H2kEtcSyXpfM8+56B5Kn5cBsDcbyo41CO0M1E0DVpNjN7
cQRdTBVLpbsN488XhNWviaOnipSzbpCFEbdtGgx//u3byqiQMnMHv7hzDV0W
xCHxPeBZEykbC5Vi1m+XxTHaWiHFRs7GRg62oCv0EnhHGDU9UcyGQvFwHS9Z
Avp9juGZp7JxZvGmqbS8BJ522DjNTGSDFMPoou8ogdfC2kUfZ+6Ckt+TFNUi
gQcbZDYry+fApyPz2+N2CQwqOPU908lB47KTcneHBAQky91NzHLgb/KjVa5H
AoYqV/bc9s5B19TyxqYRCYyl5tGmynNgnMoJJhIVwiH2+qrGuWDpVSozEqYi
LlV7U4VfHsIdfLJb9lFR2TZgvZcuH3NrojfDTak4q6M2ekooH64Zb69p7aeC
v47d6J5SPox7REPvW1CxU2Zvg9mxfPBYvrW/YE3FUqNS9vXqfGQZiopt/Y+K
d89lR34HPcJzxTcpsWFUHGPJET7HUYj5FeGr+yqomJcxZusqL8L07L7oxUoq
KENHuMbeFGFs4kJEbjUV4dFxYxs+FaGn++sFhloq1o4Z6jrNFOFFyQOPqjdU
qIg+zX+0pRiXTmmZy3+kItD8tGb07WKQ+47wsv2iYpyORn6Y+ARyVSlpTdI0
MBp9YP+VVYIGb68SWxkaNBgkw8WLS+Amt7dtUpaGBzOej2zqSvAgeWkDlzwN
/rvGicWvJdjiddTroDINe5N1wtulSiG/ScqwbycNMpsq7aYflEIxvnBu6hAN
/Uc9OHbVlkH9+Ov93NE06PytDPIRrIDovRHt+hgarF89/f1OoQL0w8wyfrE0
dEQzJm3XrUCrq/FKXzwNFnbXE/RPV8DVvS0v7wYNvT7OqrvqK5Dq/ZkO92h4
HVY19PhsJZYuTj31qKHBrt5DmGm0CrXp/ELNf2hwmoupVGeugVlGP81pnoZk
EePWHoka9Gbcl19YoOGq95azSZo1+JupTkiv0LDn05VKwr0GW+9YuQbRS0Lu
qGpPRGsNbt5PLlHgksSzkVTpk6a18C3kP3BVThL7ijWeBNHqIM9YIitiJAn+
gEQifedL/A8V18xW
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVl3k81O33xmd4LFnHPvYZxIRERUh9rpIopUklSgyhUWiiJ0vWbBMqJaVC
oqQUnlCoGKWSL1IJbSiRRI0I2frN76/7db3e577u88d5nXMfuvdBZ18hEolk
QyaR/v/MifYWNfNJXe3QveG2lBCfyN01bL2T5k9wPaNMCmT4xNvNKcE0WjjB
aKnMtFXnE6H2bjIitONEL9XDPH85n1jfAPdJ7QtEWwkps3Mfn7h9bHk8X/sG
wVHlPlnUxic+eZUoj2hXE7EFVveuFo0SR7ceYH3Xfk6wK149aYsYI+bjLVR7
0p4TrF+NJwJSx4jYu+RXr/48J6rOvYlWzh4jEtSzbGteNxF8VrJU5sMx4mR/
g/7x5GaCJdtvuJo8TuSFa43o/3xBZDG41o6p40Rf26CNmedrooo3KHXj5m9i
wZ9LzwNM3hFM56eLd6tOEZbJbyM2er0jTPmdSinGUwRbScWYcfYdwcmWt20k
poinZmdO9v15R/DfFucE+00RCfu523Y9eU+EWRrejK2YIkgfDn+0d/9IhK31
mUjb9oc42lMYJmfXS/TuH6HW5UwThx7FpA0H9xEOj+OTDvnOEVNyZ2+/T+0j
LPfEW3hHzhHRXkWtTVf7CGpfQItPxhyRRnpJudHRR5Ashr5erp8jilbrZPpa
fyGoc/5uP7Xmid6ahpxucj/Bbbxw5e+HeYJZvqC0LX2AKPMw77y2jASTqxkv
K0q+EWWv/W+MvSdDMct0kvf8GzG49oC//HcyZlJbNFq+fCOYFgkTq6bJaAwR
Y/erDRG0Ms+C+1QheNsenVdKHiKm3I+EO7sIIfOzt1Go53cidv3hx5OvhTBL
W5poRRkh0ife6nLeCqPfia3RY8knIL7eqlxWFIpPA/Si7fhEel/5QjpdFGtX
HTLWdOYT1CerOrOXiiLPKMJm9wE+wdywtPLhDlG4i6e5d+bwCX6F66nCbFG8
qi/NfiE0SojfJR/UWiyG2uWTGrzmUcKV8wMTruI4r5akeYU1Rgy2R2b3dEtg
oq/1ulPQGFFleHrq028JbL+tsnT26BhRFpQqPiUlCXncWL/z/BjRGP0g2XOl
JNJ8mw9Kt44RbffEejQvSCK2TP5R+EpB3cRIk/e5SoG9/rKfs/JvglvJzS8c
kIZVcFWpcPME4bBKPP53PgVtf1d6HHo7QViern09WkaB34k6qZ6BCYJpu27g
Ty0FZ4qe+teQJ4miXqewxe8pGOpu1z20YpJwFTfep6soh2zH0fPd+ZOEaSB5
7TauHOb1DGOrw6eIqgWuhGSEPB53XmIeNJgmTNOHXGwSFXHWe8f472XTRFXF
kVXbMhXhNyKTFYlpYrA4vv7INUVICB/rOe42TfDjq573PVEE04QddDV1moB0
wKiLmBK6E5anvf05TVDMyoNupilh2qzlmW3VDMF269vodEUZZmnzq6kb5gja
Pbb+wDgVS/1nfW67zBGWn4efaEmoYvn66ZS1PnMET2aY46+tCgvSREdAjECf
bdQ336gKm8MjQfWVcwRLqf3R9TxVOLh/yN2vM08wUgKCxLaqgWVcM/9gZp7I
qwwdovHUYT9g3WO6kwTO+GqPwPda8HvdPpy8hwTSG2L/9zEtJPCCprv3kjBo
QP4aKaWN+ov5Sic4JFBXpXDerdLGyi0Sm74dJ6FXoulI3BVtLKl6W3XlAQl8
+WLuegsaVFLCzsjrkOGQU5kusoCOr4vv2o0Pk5HVsunwohc60IkK9DUaIyOs
5JNG80cduDfrJXr/IYNrVM2IGNZB2/6MhjYRIXC3F52YWqCLmusc29taQii6
sT0pxk4XaXSjNX5MIZBSram1tbowU8qz6SoXQq9dlMfqGj0cnT2+7EGEMOCa
dI/dqY/Ww3vPRsQJg3V618R/Q/qgjdj8tuQKQ5zyM0pyXh8NH3/ercwUBndo
b+5PPQNI1e2wLi0TRpvZzqKoEAPkxtHX5A8Io8ikfeFDBQbqRauduM7/QPxh
iL+J1yKIyQ36bzcUQZe7pzVjmTEmkt3tLpuKgKJSvdRzgzEG5ttoQxYioPZL
Fl/3NMbT4erOGFsRWK5qdg5MM0ZSY6pdsbsIskh+wi0DxhCNXUIXOiWIB3fp
UO5iiP480lU6JgLai3QvkuYSiLSI2Es+FEVWz6H4sUVmkArM3vvxsSjatAOF
sy3NoCi9LLa0SRSWVqriW+3NoLeZVb2tSxTpt5lNvT5mWNdSY5Q9JgqW+hvP
rDwzHGs5SFlsKAYe233XIbWlILW+fet0Xgy0suEOKnUZZlpvB5w5JA4ae0d6
2ypzaL30urQuTBxslvDRy1vMsfa1UtNEtDi4Xx5vi/IyR0pnlMHuNHEUOWWR
/RLNQe3d/Fn3ujgYr3JLh1vMYTE6srPygzgah1Nj33lZgKNgYttlvwDUqpWp
GZkr0L+zRFVLSwL81puSUUusUeg698hdTwKcnRTeb1trsN02BVwyFPDFZ/+N
drXG0K6hWuoKAW+SUubFWYO/R99HgSkByj/HToi8scbs3twS8WMSaEz6G3k1
eiUUOCdtx/olEOuZcPVEtw3WcIMCG29LgpWgVr6gnYDanZ6dJysk0eUonC72
k8D4e+ba7fclYVrqxZARAQqXLFPpbZSEw9U6XzsaINU5yZvsk0RvSu2X1TuB
joVxigZqUuDsSsrxewYceJxxPzFJCq7bwsXaytYgc75qga2nNMKuxWxg3bSF
lMGToExfafAXztTzq22RsOXl668HpMFonkk98dwWwXnfctLCpMEuylg5PGgL
p7VqSztOS8PSnaxBMNZBNOnoLv8GaQw2nj9je2MdwqRXF59aJIPe/QtjZCrt
sFvj8aYPYzLIO7npKWnCHkOBo78qp2VA4/03fkLCAWF12hdOkWXRpXrtsbG2
A855R/avlZXFoNzDmMsODnhVZB59w1AWWTRr9d3ZDthoXlR6xEsW7FttHpb2
G2DtdEJe7oUs+Do32v/c3AgpntGwzg4KyrKUnGxKNuPzha2NMa4UMK9ZJVg/
24x7IaFXP+ymgGWi+HRz72Z4Gzx2P+ct0DXd5eXyTrh3clfLAg4FDGapUUyY
E7z3HC/hpwi4EmWPnsMWVE0PcGp5FIhrUB4oRjLha57/281YDoNBXcFlW5yR
clJJNmqJHGIrtbjyHs4o+cpl5C2VA2tt1reYAGdMXDi4e8BSDjx6cUXkcWdw
523qg+3kwO2K8/372Bk3n3WmpXoI4geK1cxWbsMPN2m9h+lySB9NO5O0dDtC
o8Ocab/lQP10YDXV3gWM4Uip5Ck5kEIv1svtckGXW9zTkRlBPkeUg9QDXWBp
nmJ9X0gezG65CM8MF0x9v6TjQpGHadm+z8W9Lohwq/uVaiQPHklztXf0TkQv
F82Y9JKHOHnH9xtPXZE4lPG6tVXAz8+NjJ/YjYTO/qaZl/IgaaLrY4FAN6x4
xHgjD8ZxtklX9W4cy31fduy9PGhWPTvIA7sR7ax70mJQHhyZGRUDwh1Hau44
5JIVwD247lHzuDvYKS8fBi5XQCNH/0V/oAc2GcoWSV1UgHiy/aYtLSy4NR4s
WpSjAJLNnBn7HQt+fm1F6/MUwDy9eXPqVxZi80/fiC1UAC/zwjo+2QsVaorF
43cUQO1YqWyxwgsakqolH/6ngCIDkz1VBV4Y/q5TcWtOAb0BWkkvE7xx4rYF
b5OXIgZFusNt/H2gz2J43fZRRKNBz6OYCB/UyqsJybAFczUz8drLVB/wQ+ds
XwQpwtLRzP9KiQ+2r214tjVSUVC/rut/jftAo3PrC5fziqiqWLPHJ8EXt0iB
3awWRXBXjXt+KfFD07aC2cNWSjAlljxyNPfHncTP7y7ZKKFrbHu86QZ/XLxH
r35EKIGZy53U2+OP/ep5/1LWK4ETecdwVaI/FvRl/yh2VsKUpbeqcYc/HILP
9X4+oAT+L+jKHt2PJ+nHG5i5SnA9krBt3csD4LUcTDMWVoYp+8tX1p0gLFeE
5HlRZYR1XFhU0ByEol2UFLKEMni9dz7NDATh1Ney5A6KMqoCZ8mj6gfhQf51
LFZLGY2FJPpw0kHMLj8c3m6lDPHr0rGXTDmwyg7zi+Qow3Wd7dwbhUO4sz8O
zR+VwbcxC3AjhWC5N6tR/5PAb51cgBMlBHfdCGbcF4EW/vcVkxaCaoc5T4vv
ymCXtf+NQgh4+uExeVOC+7XeakfjQtDymVN7WEEFHFx0kxA9jMFdLBvNDSrI
+9Dr+kL1X2g5EpZBFSpg7MtNvR4Uih/1B+ZO3lMB6f2l2+S4UNRZZj0qrVGB
ZaThkv0ZoWDpj24a5amgkS0Z7VcVinxygdfhFhXQhGy40sJhMKgSTY0YUEHb
9usu2pfCYLqw9WMSlYr06amZgo5w2P51j78cSQWr1DD4U1Qk8lLUvgnHUtH4
rshG6VwkZpW6nNjxVHBuGp3bUxKJu8bb1MxSqGBWMGyMeyLB2LXhv0fnqei6
fxWP10RBqtK8p/8OFZYknUdfJaLRvl9mpfE3wfTt2hyXcjsGPh11v6p2qKLr
+3sd8+w4UD41Zfa5qiJ2+mmS0c043P/+xlLGXRVcjzuzxlVxkCcPR+/1/n9+
a83W9jjUGVElZQ6qopF7y4AmfQxqcRzdvVwBD2i16Ik9hpdG9O3S91VR9bU2
WOdQPFbHHav0oqkhrzw0sONIIiZtsr0iddXQG3FcPzE5EWVTldLn9dXA/jjU
gaxE6HK++TYbq4F5ccyupzoR4p5M5RVWajDNXxFePZeI1zZaoVLOasgK91sy
nJwE9lS15b14Nbh23HI7W5iMMwdH70t9FcR/+Gu8UzYFnUS2+IEhNfA2uGx0
XpgCDYr9jucjauCkCv3yXJmC62XZPxLHBf9Kj0mt8n0peDBqT/9LVgfvbEiR
dX0KBkJyk0Y11MFRzA/6EJoK6zDHrR3O6qgK71/5cSwNn2OvDVyuVUe6P1PB
USkdR9pyOA316mizV//xi54OCdq56cEGdQwGO9VeNUnH0rokmaX/U0fYlk0e
+g7piJ/bZ9HQqY7YkHPh+UfToRdhmDTIVwezzE818Us6/EJKF5rpaoCX42i8
uPY0vvtW+zxK1oBphdizr2cyINW09pRhqgYYXM3miwUZMDZprj5zUgOkvH0U
94oMBEx0y+zN1ABr85rkBR0ZGE76p1q4QAMc5o8EObWzGL6+RdquVuBX2XKh
9+pZ/PjWX/lsXANdr6wM259kgh8oL9bipQnTscsFcyuy4Ln1W9CMjybKzF3s
HByz0Lqc17GIrYnePfx1+R5ZuDUTWJgUpAnLHW0nExKzwD7+3A5HNVGU5F0o
3J6F3quxCeVnNcHIcmmdCLmAF+9/kC8+0xT0n2APCd5FlGz436zfYi10KbbX
v07NgVF3WWCiqRbKGr+FDeTnoCj4XHfBMi1Qn15bLlmTg/xLXrxeKy1Mze79
lTKYg8yRyfhd67XAkL2p4Ls+F5Gn9SSdPLXgGrQvNF3kMja+jVI1P60FzpGH
y5Q25GGAbWoh/FsLpotmXPvGruCn3HV73yktsLhVHVThfEzVaLo9m9ECb9VX
i93y+VggLRmZKqSNRhvHJlGzfBj/11+vQNFG1kaVQ9NB+Qj5c3GznpE2wspf
Ru4ZyQcpRcTXzksb4u96QrzHC6BW/C4juUUbU45dr8VMChH8OvdzaZs2+CWn
n6QThXg+423W9Vobsf8YnTXYWoiwTd9bGe+0QRP5OBZ9uBCdIzMLmga0wT2M
X2/uF2JjlgxESTTkKX0pNdl8HeLvl9x1UKWBucXV6H1EEeJZwfktjjQUmf5J
rf2nGOPzGhfjN9PQ5fRUtl+9GH45z05bbaGB5pHnr72sGBvfacRdc6aBYZ3U
98KrGPLbn3lGuQn0mXMv6Lxi5NlraC7eRwPFzKQyK/YWHpo8PZ92jIZ0RUmz
LXIlmJxVPeFYTQNLKM94pqYM/DHH439qaOg1bJiTfl6GwaGoxOsPBH4aGdeM
O8vwrutTlDCPBoflsldOjJWhtuJG0P2nNMG+xmb1GP+HhAArplG7IL/qmr6m
K/+B8sFVQfInDVzXoQ8SmXfAuH/+QpMeHZwhA5uMggo0HuJU7Nang/KZ/KSh
vAJsxoYXwwZ0MJ0jhIQbKnAjc/ofWSM6aEkmj699qYAhZw9nmxkdPPvyw4n6
lTBaqGv/YRUdjSrXIu7eqoTJqZLxERc6SGEdLQaP78J875MtcsfpYO0KnChS
q4bG1QHrhhQ60qkWDBHTagj1i+mHpgn8UZwUYleNVr+Nsx9O0cFViBdL5lTD
b/+LoqJzgvfmF7akPKtG1qG3ZFylw4E5ZK4QXoPpmJHyoDo6yjoV7mYN3Qcv
W4na/JuOKZPAZhPJOjjlfKR7Twq4Jlm8U7cO73OuGU1N0cHvWvH2jE0dJnLN
Cb1ZOhg/XkXYBdVh8ZUdfpFCOqCkuh3KelWHi9cyK4xldeCQ9iQhbgsPh0uU
tp5gCPbUUw1WJbr1MEld8rzLXgdK4WeI7FWP8H+ne8jU
     "]]}},
  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, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 10}, {0., 9339.220690068361}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "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.7803887086307526`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "6704da27-c165-4e01-82a9-95dce4ca07f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "\:041c\:043e\:0436\:0435\:043c", " ", "\:0434\:0430", " ", 
    "\:0430\:043d\:0438\:043c\:0438\:0440\:0430\:043c\:0435", " ", 
    "\:043f\:043e", " ", "\:0441\:043b\:0435\:0434\:043d\:0438\:044f", " ", 
    "\:043d\:0430\:0447\:0438\:043d"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"DerF", "[", "x", "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "[", 
             RowBox[{"x", "+", "\[CapitalDelta]t"}], "]"}], "-", 
            RowBox[{"f", "[", "x", "]"}]}], ")"}], "/", 
          "\[CapitalDelta]t"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "22000"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]t", ",", "1", ",", "0.01", ",", "0.1"}], 
      "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7480197185811243`*^9, 3.748019832798546*^9}, {
   3.7480198727096367`*^9, 3.7480199405766826`*^9}, {3.748020292866109*^9, 
   3.748020305074088*^9}, {3.7491067244778147`*^9, 3.7491068621816907`*^9}, {
   3.749106898814786*^9, 3.749106925148292*^9}, 3.749106967627722*^9, {
   3.7491090446934347`*^9, 3.749109054767011*^9}},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "492d47ed-efb3-4970-855e-27968b0d1bc6"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`\[CapitalDelta]t$$ = 1., Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[CapitalDelta]t$$], 1, 0.01, 0.1}}, 
    Typeset`size$$ = {360., {105., 109.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`\[CapitalDelta]t$14488$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`\[CapitalDelta]t$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`\[CapitalDelta]t$$, \
$CellContext`\[CapitalDelta]t$14488$$, 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" :> Plot[{
         $CellContext`DerF[$CellContext`x], ($CellContext`f[$CellContext`x + \
$CellContext`\[CapitalDelta]t$$] - \
$CellContext`f[$CellContext`x])/$CellContext`\[CapitalDelta]t$$}, \
{$CellContext`x, 0, 10}, PlotRange -> {{0, 10}, {0, 22000}}], 
      "Specifications" :> {{$CellContext`\[CapitalDelta]t$$, 1, 0.01, 0.1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{411., {163., 170.}},
     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.749106801763235*^9, {3.7491068503970165`*^9, 3.7491068625367107`*^9}, {
   3.749106912229553*^9, 3.749106926092346*^9}, 3.749106968920796*^9, 
   3.7491090558750744`*^9, 3.749109121413823*^9, 3.749111380907242*^9, 
   3.749187345507825*^9, 3.7493712085040846`*^9, 3.7803887117859335`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "84d0ad25-6c42-4973-b231-d1a42468eca3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["(f[x] - f[x-\[CapitalDelta]s])/\[CapitalDelta]s", "Subsection",
 CellChangeTimes->{{3.748019645534034*^9, 3.7480196639654727`*^9}, {
  3.7491090815975456`*^9, 3.749109086235811*^9}},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"a8b6ca2f-f9bf-405e-b0ac-8951b2aec245"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalDelta]s", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"DerF", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], "-", 
        RowBox[{"f", "[", 
         RowBox[{"x", "-", "\[CapitalDelta]s"}], "]"}]}], ")"}], "/", 
      "\[CapitalDelta]s"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7479186139306803`*^9, 3.74791861796935*^9}, 
   3.7479187588882303`*^9, {3.7479189685788856`*^9, 3.7479189753709707`*^9}, {
   3.7479229405119934`*^9, 3.747922941309544*^9}, {3.748019529977372*^9, 
   3.7480195413748264`*^9}, {3.74801969975791*^9, 3.7480197019086757`*^9}, {
   3.7491069906750402`*^9, 3.7491070065259466`*^9}, {3.749107052357568*^9, 
   3.7491070603870273`*^9}, {3.749109095743355*^9, 3.7491091044068503`*^9}, 
   3.7491113623672113`*^9},
 FontFamily->"Arial Narrow",
 ExpressionUUID -> "6551a524-fef2-4f2c-93e6-f739e82af409"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc41Q8bBnAj0rH3ds6hsk5kK/K9zZCoExqkSBQRSSKSlR2JkMwySqSi
iGQmGSklSZOE9EP2fnv/eq7nev69n/v6UJ1O048zMTAw6DIyMPx/Zl50YlVx
jtVzd3qpycAwQTR1Uyz2U04Sq7wZ4ikcE8Tai9owCsWfqPFW+qkmOkFk1sWT
WSjRhPmvauME1Qni1A5fjzlyOnG2p1W49vgE0b10InmCfId4U/HyP6bOCWL9
px+yf8hVRA9nEc2pYJLIfZXt/ZvcSiSqlF+jn58iptMqFL7GtRKxv5J1xqKm
CBPXtoG3C60E5GtIyelTxBjznM3T7lcEW+AWK67qKUJ7h+X26Mh2YvzO+ubS
1Smi6/4yk+z4a2KtVFvhbtQ0EfyKZq5ypJtg1KvSHCicIUrvR386pdRHbE2r
KzIWmidG+UbjzB37iC2zLhJn5OcJ2XPmenLJfcR5NYPuEt15IkeXPXdgoY9o
aNyms+/YPJHUGudyqPkT4dX0zHz/g3ni3EDC5E77zwTHcqOu1Z4FIpu9LYzX
+BshXHxFav+NRcKVeJM+dmaAOOUiEVDquEIw5M0+/RQ7QChL5m6/eX6FSFsn
0f/q9r+7ffPXjIQV4mWri9SdngEivOsN95tnK4Sc9XLe8e2DhJHc7UQB8VVi
+ITsvS+MP4m+mIeXOT6uEm5JQbVdiUPEI88r3NdUGOD5U36gvHSEuNvnf/3u
R0Z8c/jIVt86QuxxUHJtGWbEvt4opY7BEcJDYD/z5BwjtNt++f8UGyVKCpxa
3YSYwPwgn0cocpRwvDr9bGEfE9ICqXp+R34Tho4i01feMKGeXzR9G88f4iDh
+PVnDzNI1HDZr9r/ckBODf7GwYqXuleVLxpPEB48gioWUqy4fCBLS5L+b2cb
y29WZgVTYuVOO/cJwoyVxvKDzorF1THXD5kTBPlqZHt9Oit+99sUvWaaJBKa
3yvLKqxHe5qsfF37JPHobNetXhs2XOFpU8g9OkVIbXQ9ePoTCVVakhWWnlPE
x60tjZ5/SRh0OE0sX5gipLsjv4ZsYIdOCb/1/tQpgnP6nueAFjuGzeyDODun
COtatKSksMMw7M9rf51polju1OkX1hyYn+H2pQvNEHXVFeLdPzjh9Mn6OXP7
LOG+42/4uxwekDK+e3h/nCVeXotlf13Kg4eHPCW+Ds0S/io+9Pc1PGDui/R/
yjhHsNlVmbJ85MHt3qdq3lpzxHL+yz9TvLwYek8p+pI3Rzi/7RgVuMwLt66x
xCr/eeKQqPdiiR8fvJvDnU7LLhKh56IpN0MFIDVowjqrtkhYrPDMlyUJoI1p
w91ALBKctED3t3kC2IT4yeiDi8Tq68TdOo0C+Pg05dLt2EXiQIOHYME6QeiX
FWR9HF8k6F5XwoajBcGb8bLPsHKJ8Fncs3giSwgPvDj2iZitEJLHyLnlkyJo
v8HvX2K7QpTTYqJHWUUx1CSWbeC8QpSNUy6oSohCTFT+96ngFcK3QevJvIko
wuuNw+orVoiumXuGRzNFYcsX/MhNepVQSKI53NkthsVHk/zPllYJjpmZ79dq
xJF7wX10634GqBwVSQ74IIWtdRvmIw8zIDrvc9DMuBTq1hWxfD3GANOcofdh
bGR8ix+kxHsx4AZrCNenbWRI5RzePxLNgE3lj6x9M8m40WTVlFvDAFVmeoCa
OgVJnOpZfNKM0PCIjv3ASkVo9vLe6TFGOJZoWde3S2PP1kpvxSlGuC97Sjp9
koZUvc9VpwVG5E/5mHKNSuPpj9GuLhYmMGYf+hW1XgZ/N320KpFiApedqQGb
oQyc7lXsdtnDhN6euT1aNTLQr/I0633EBK2K2ydTn2wEQ/c31AQwI9A5JyLw
3WaEj9TmBoQwg9G82aLx12ZsYMhk2hbFDG9KyiGxpc3g23KwqSKFGeIPtoUs
UGWxKfLNzvtlzDjZpncxyEsW5joNlnlDzAihCV8o4pHDtVu37KPo63CfxUNw
/LA8Np91OW+twILw/IjIOGUatmz/ui97KwtC9HYW1RnToM5wQHlUkwULnU0m
rPY0GMSZDQUbsuDOdgn1F1E0ONymWRfbs2D2UaW12AAN19/9VWZKYAGNyJkh
Z2wBi0bwr/tTLBC6Zm3AIqqMwZlUW/ZnrPia32NVL6uCPH01n8+NrJhlrR53
1VTBkfjOhPuvWJG49zGfuLEK+jaytO7rZUVYRSVHoZMK3uw7o3NzihVj0w6r
tlkqqH1gQdny7893faE4UURUkerBOGqZuh5aNatuhYJqMP/pFpTkzQY+6Y1d
IjoaMAmSuWd0ng1j/Vd9flpowECwv2/2IhtUVeSZ6x00sN14t7ZdHBucWEZF
8kM1oJCvPCVTyAZv/dRg6TYNsB+fPlHRz4b0vIxjKw6aaB8Msu7duQF1JqPc
CUlasBxMVJSSIuES63cHGdp2tCsOvrPfSMLd2Ndn07Edu3y0LmYokNC9oyua
bLMdpkxfukS0SLj2QXjA7uJ2GFAUz/HvIeFjN/3R9TfboWHfXMcWSoK71JVx
8gUdSLxbsJn6ScKy513e/j5djDY6XXpZwg7pm7zac68JkK/2ul0pZ8cb2nLO
5CgBawdLG+tqdlxSP+HLyAzUzm9T+PaSHQfmvLQ0pICkLbzv5gbY4TS/XCJr
A+ikPpeVFeOAn1kup34zEOcm8TriMgd+jxMZcaX6UOLtkTQ8won4SwvK/YWG
GIofCk05zolY16q7bk8MkUma+/XLnROZnO6+LC2G4Fgn8jDuPCfkGvOpR4cM
MTp70KTnKiduG24bvrvJCPn9nz1PNnHiglLw56wCI0gU/XyeIM8FwX3fI3c+
NAaJmHHsn+KCy/kdDBN/d+K8vhzb40UuGESkxAesN8WQoV1pAiM3jIK3VwlJ
mKLBtH7RgJsb141GZcONTRFAj792R4EbpjdVOTXSTfH7+Kbmc47ccPcS8F02
NEN7nI0c72tu1O6lnUgsNMfOP4fmpG3+9fC1WC2vu7uRJRDWHXyAB1MLW3Xc
G3djWqf4fr8dDxqLPu280L8bOTFLrtedeLBvUr6xj8sSi7I3ezd48SDtqZVG
+llL3HP6XDURw4MNk7E9MkZW4Ok9Elhbx4MQo7qeef896G1wZjxE48VYGmfN
gd10TOj3iQUp8yIgY/dipR0d6+ut1HNUefH2j2XYRjc6NJ9vdx3S5oXIilC6
ZCQdydU8HWeMedER2NmRVk+HVXlNWqwDL5Z6Ew2rtffhRb7A1meJvFg7UyE8
qWyNiqgmB8oML85EMN/SM7JFkXmbSOQ8L6RXuyo19tviBsfbt3+WeJFf2Dej
62aLS4lfTaqZ+CBb/VgiMNEWFmmLSrY8fHiY8CC39rMtfhRuXYtV5IOtYUnX
0Qv7wdVyM3vOkQ/FfsHBFxsPwIXF91tnJx/I7dIRnjF2ECO3flh6wwfh+OFc
6xw7dGpLvpZ7zwe3hoNyFo/toHmq+VnoJz7IhBffOf3DDqzdghmaw3zwvOu9
LkbHHvk5j22yGPlBXd51RmTSHoM686881PlBEaAbMLo54NiZCxUcN/hRndFJ
km87Ck3VLxXymfy42Z5tiN6jIP3FY5McftD3PCtz/HkUZd6sTy4V8EO1qnxn
49pRLHtdrZx+yI9a7femTBqOuH66sLq/jR+21/1Lz+U6ovVUd/29FX4cK9Di
8Al1grKrYqeFowAKbpI25Lg448tJ8ukSZwEEtdRJfPdzRtwpfh6uEwLYr6j3
cmu0M0a8l/a+9hTAtj1zwsvFzrgV2PZ+b6AA5E/GzBr+dYZwkvtn21QBSPvI
l98KOY61muKxox0C8J5UiFopdsFrPhq77zZBWJgf1eFTPQk9D4+RDF1BrFqJ
eE8bn0RpS2lLAyEICaJ//9DBk7gSqBLOYyKIQkUxt4WQk7AY0lwppgtCwPva
6ue3J/GqSn/8h7sgoEudLPZzQ/PR/d17sgRRU59nV9HhjurS0AwasxAuiggW
+pR6gtXCRiyVVQi3dSfjHr70xN4R2XRGkhA2R+4dWj/giV8yHdd7eISw1yQE
s8KnwZ8unHRJSgjNEe5lA6Gn4R52L+rdNiEEhzXujVbygviBHt9ALyEcFHeu
LeD1xgVGhT3tn4Wgoyyu9HvlDIaM2Hs3fxdCX56/zBdOH+yJGjsSMiiEW5z5
QV8kfbCR+/5pzd9COLveLX69ng/aJdQTcuaFoDE7uX/5og+ktPU6z/ILQy79
al4A81k0eNItJM2Ewbo8aSch7AtSf4CpZ7kwvieGaRW5+0HT7w5nwhNh5Jql
MDBc9IMjX+/b+0+FMZLsKOuS6IdKU43Dk3XCCNFXrz5c4QeXinHvsx3CcI1Y
0F5a80P9FeeMgCFh1BiSkhdSz//rK8v/LouI4G2a0Bebbn/8LKAmZweK4N69
YB/dgECMhX9fYL4kApa1iE0eSYH465R75ESYCD71jh97+E9qDGSqokqMCFqr
OtsCPgVCLJXS0JD6z1mOUuosekHYE0me+PlQBHZ24Uvc6y+ixlXSgjYigpXh
LcpBd4KRLCe6rspGFBxy3wKm00Ng77C5cOCAKOga2YIjhSHYmKxmzmUvCstN
03XDFSEoX9udeMxJFG6ki6c2vA3Bu55QCa7TouBV8uB6QwoFf8SY+rEoUQyb
PrQKuRiKpO/Pj3NWi8L/a0tXvmcYEm+4tDhSxPCWOy1Z+GwE/M6F+gTK/HMc
1UuxKTwCDvQscupmMfibjT8JSokAjdTj104Tw6nf6n3CTyLQ6m8sp7VNDN+q
u4+MLEaA6eDGaA66GKIYhU6SIi7DV/iH+ZMwMcy8Sx6JvxWJQ8mHOzl+iWHo
8XAfI0cMJB6RxN1HxZD2Pk5ukRqDr2+euLb+EQPzS9nVddoxcObmY7w8LQaP
de+D6c4x8Ix5obbGKI4nOTMpnc9iEHpJOX1SQhwaZ88wHDwbizunGJ176P/c
Wd+sJj8Rh3mj/IXsWnGMMJWd0eVPRGB1dlhTvTgSGiXv/yAngkH1BudIkzh4
2ku+JtESsZ6cQFVtE8dNowRdXpNECC2cN2v6IA7xecWGy/6JUCuxSB+eEAfL
1Mic3Y9EeApOa6vISEBMIEh9uPoqBn4anG+IlIDq9xv9LonXYJDdmacQK4Gq
LZO1wrnXkHPgUEfSFQlw0e986XlwDQ5t3tLHUiQQmPud9VL3NfSV5bQz35KA
irLC3mDhZLy9sEoxrpUAS7Rtvm5eMhp4n7a2TEvA6DZdn70xBXk7VMQ7HCWh
2PE3f1A9DQ2WpLAlZ0mo0Ti7aKZp+HFkYFT+hCTMDwvYhtulQSY05ellT0m0
/vlR4BiahtsvFg7igiTI+ufLe7rSkG/VkPYoWRI0/XzXCq90FDnuE7rRIolD
IonBWTU3UBLhy+u65R9E/tM8wBGViTHdw6ERW6VwKGNQXCI7E7Rpo6lbalJQ
fzz6fcfjTNx1Enj/bZsU5A9blDwZzEQR8SjtkIkUGLwGOiIMsnB7YYJseUQK
jn+7atMYs3HD45SSxlUp/L6utLRmkoNIm2O7mGekILwgGZs6mYs8q3774/NS
SCj5I9TGkIcaMxvPliUpFP2OCmPnycPfHTuvxjKRocf6WuGRUh7sNyt+4Och
Y5xk/zPrVB5U5/46bVQkQ8zTomVyNA9f0kIDjB3J+GhyRPz95C1o9Ofeiewg
Y7WmN1dFsQA8Sifm73eRscv2kk2lbgHGgpV29naTwS9uMGhhWYDbMtWDcn1k
MP76U5vtXQAB93fkV0NkZKE+809lARYDmXexMlCw23i2Sc28EB/ZNetNRSko
6xK5V+VXhDT5jJKOXRTcTo+bMGMsxvSUSX7YbgqWGXwueogUw6r2781tVhSM
b/j89bZyMVj3mcfl0ykwE9ZztHIohm/gglvQQQqaU8/uSKkpBv31frktrhTY
jG6+PBV4Dxy+ArfiQikw0o9qPMdZiuC6+LRdVRT8LiG5f6gsw+jnuuSFpxS0
ZficHn5RBtulqcTCGgpWW5jNWN6XgaZ5KJq5jgKRgjO3nCbL0Fu8OaD6BQVN
3pZcJQoPoJr63E7xHQX7VuYzo7MfYMhjUop9nALD4K4Ld5MeYre4Tf6rjVQI
lw9HjOeUI21Qqc5uMxXXY/KWpR6UY7CE7dOYLBUHJg5ttqsvRyBqeLgVqejF
3acL38tx77hM4D4VKoyXS9a6ZCpAKpuk9++gIpEnq3/iTgVajK4w/GdLRUjI
pWS9usfQ92yx442mYtbUkd9HuAqLvSMmTTFU+I8MR7fTqlBuyKHqF0eFx4ZX
CtoGVdgsupftcwIVpdL+8iYeVeBo6isvuk7F1o2JnXpNVegV/e8ffql49d+V
sDLfp/BqFqjzfE7FWvtyA+uvamRLOG1sn6Gim3TQX3P9c2xXU1RymqNCr6Au
/hP5Od6ZTWvNz1NRwGyukaz9HGx+l3dtXKbio8raBbg9h9ebu2cCmaThuMsm
63Lnc+DyVB2NWxrDuS7R7rvr8GM8/HC8nDSqr1ZKBFHrUdn8Z7B3pzS+VIZl
7dRpwP8AdmrXKg==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3k0VP//x4eJJkvGPtYZ9EFIKEta7jMU2RKRIvvWQiRRjYhCoSaJiexL
fFJU9EGFpG9EUlRT2YqEFKKaLPWb31/3PM5zeb3PPa97z70qPocc/flJJNIG
PhLp/685J30E9f2SN6Etbs3o/CTR0s2w3cXYR1gthPokCk0Rf//XEM9gHCO8
jHPOr5CdInKaUukCjLOEl1xKFVNviji4MSL4F/0KUTb890ex7xTRPR+UPkUv
J0jW4RG97VPE0vcfNb7S64guy2wyo3iaKHiaF/aF3kZw6t+290TMELPsGq2B
lDaiTHXW6WDCDLE1sH3o5e82wjX8DJ9E5gwxQf7lXN/9lDB55byYWDtDmGy0
Nz2b2EFYeX5rpy/MEF2VC/wak88JB7kNZ5clzBIxT3Ws9T27Ca+7Gq+USn4Q
NyvPvj+o+46oHbtZpCfJJcYlxlOsvd8R+Q/MivaocwmNo9abNNPfEZwo2eFL
67hE/gbhgqHf74jYSfqetV5cIq0tJWDP4/dE0gXxEN2bXOLo0IVpS/c+gnag
kSJh95vIE26PF98ySOS336qczJgjAokXVyYODxFTZm0CE3sXCVLhz/r3yUOE
JsX0zesjiwR7iWLv02IeryMldycvEq1tAcrlr4cIquCBF/z1i4TmzoVCf9Nh
gpSp72sq+4cYDdKo6Of7RDAmQ4TkX/0h9qdFN3SxRoim3cVZsatJCPm0cqj6
5hjhlZXS5/2GD4MebykP28aIWgGjRuYIH5w4SbrPhseIpKSq/cU/+GDS/vnY
J/lxgvok1Fpeih/kWyVUmcRxotb5rEfBDn6wmSqbIj2/EIOc73Hqz/nxUFLu
yjrqVwIh8YtuPWQIqZzWGDCZIhjHP+svFxJE64aLq09umSKqBhrKIhUEkeCa
a6zkOEXoMXU+fNMRBD+r1tLtwBQRWmrTLOggiLk/E4FvcqYI9pxAVF+GIL70
Opc9558mkvhcvPU0lqKDrbGyqWOaYI1tZN5zpOA8tV2rwGuGoNw3zfj7Rgh1
xko19iEzRNAmC7GFb0IY9jhELJyYIazMVxqLCApj/Q3Jnbt4e5OPv68D1wpj
dJt7tGjnDEHzdzVYniYM8/ivz4+tnyXKWip91XeIgPtDLMJR5gcx1UNRIQ2I
wuf9zkZyx0+C0pDbfSeXCqHsD8Fhb38SVIojq6KCitt7QhQHRn4SoUUvhW/V
U0F+l3isnu8XwfjZHND3mopiTv2aMONfRFX4UHOLmDhGXjHK+gt/EfmtfUOv
48Wxv2uCVXeMS0QFHF22I0ICYY9P+xzSmCOol4e2LMRIQXl4q+DPNXMEx6do
uRhLCu38y/5lYo7w6i4P082Xwj9InT67m8fPaLqXmqTwtv5ybHEyj5VkMn/w
SWNzVWnu20le/poAVz1RGuLZre/Ma+cJPY6v6OlsGdwKFXGibVskkm6JJsV/
o6EjS/LYDRfeXqZW1N0ly2GkRT7PzG+RcEjX/D5Pk4O83MovB2N4e3lbuua+
uRxOP9wS/7CGlxdfvUYuSw4uEjF39qv+IahLpRttrOUxd2da8sE8b2/Jj7cv
rVNAwYkD43q7SIj1MbdJ6laGXtMybuJeEmj9qpKkCWU0LSkTGPAlIT+jbWvy
EjoGU4cZqaEktIqpru41pEM5f++usbMk6N0vurvvCh1ZLdtbCu6TYBWzt5Jh
wECa6NpcCVU+dE1d6ShfooK4vIUdsxN8iKLsi939VBUOerVh2jM8XfbIfi5H
FcoPwy/6/Obpv99UF35WRf3H8a4uAX5EecidlxNQw/d/3m6/ocyPIH+q7UWo
waeixi7AgR9cGv1tVZ0aNteFbOPc4Qdl7bEnU9UrQOoexP3jZLTq7rjBeqGO
02MNBcdPkYGVAos9w+pYRsrhX5dERteY/cWVXHVIrNrdUnOZjNg3+Q1kugb+
SXxhWVlFBom/pjI6WAPW65vtC0fI0Nz8ZVW6qCYuFRW5JzkuQWy7olrVnpVQ
PxIQtVNLAF2qhsS0tg5WmQ445ekJgG1blKRqpoO1JNfV40YCKItk2fm76sAs
ZdtIjLkANFctO0U/owOPYp2d1915/kcNEkEDOsjo+b6a/4IASCH5Gi6ZqyBg
GPO5ckYAXL7kDCHp1Rj+keki/EAQUUWP9lz4Rx+Fm9eE9z0SRG38ffm1a/Xh
mdp5ofKpIKghBu6fzPTxboVAmxNHEFzBXeeDvfTxwunw+qszghic6OyVvqqP
hlu2jFVaS6HH1rv+XNoAmcF84/aZS+GQusHcSHINrD/tj04Lo8A1cMMebxND
bI1Wq7CIooAzm31X29oQZtK9736epCDWbsPiEndDmG6xM3FLocDLzv7EcIwh
tEpWz6hdo6DKLDjbtdUQwv6zQTW9FNTOr0hnuBuhYzh6J8dyGbievp/OXTCG
/TBLW1lZCNzS8WVPNU3RoT3c475CCNRW9qmNG01hE258MltLCBwZu59NO0xh
xd/fRTMWgubZFxTucVOYMbSPSjoIwTWx0kCz0xSG7o+bKHFCiBLb9yA7cj0U
e347z3wSgt6pu31abzZg/JFPbOsNYZDMktQ+tROgX+TsP18tjC7+OlrvCIGd
HvbOO+8Jg/nn+49ZEtDAXac12CoMK+8vG/5RBNJWiff8GuKx6oXrVCdgfWaj
hoa8CKKsVt5ReASk7Fd8fiZBBA61dwO2VWyGrvhrJXNPUYzSvzm6lphjJHUk
7rK/KNj5sl3D1ebIEfr1+fMBUcReyMuObjGHyBLa7ZQoUUR9eWLRM2SO8Z+7
t76+yNOfyX6XUbNASW9fyL4WUQTt3RQ4V2QBxbJPjRdWLkdr2ucXsZVbIET8
8O6dWQ49lYLYgUlLRG3WpNydW857vuSDA5dYYcTc7eYFPjGE+uX9IMlZodnq
4ZyZmBhoqyxk95lZ4bhj6qVyLTHExkpaimVY4Yv/P4+PeoshadODniZsQ0eK
s6b4cx5vU7PSKLaG5dc9v1SdqQjN+xJeXGqHXKn47hhXKiBkueVqox1m11+v
7HWjoqz8p2I5xw755+YDM3yoGMw3UOcXtsecxlXOslBefiTu0p1Qe1T49NVN
naMiqNu6VA3bQeV4MhuaqLB6ZKfcF+kATrMf3x4dcUz5PjHks3HE1OZ38tGr
xTHqqZTjudsRSx9uX5tvII7a9ma7tkBHGDWaBo6YiCPpWdTNhtOOSL9HfXZ4
C8/vEB9o0OiI7dX32cke4hjUeZy7xcgJ/yuR0nvAEkf+C8EXbqt2oiapxYPx
g9cXX0z4b3ZBmXU7LZErDk7amtHdO12QJfLy5dd5cUTd/lrjEeiCWNbA1nv8
ErzFmPrFTnWBLXtO14UqAc4ZxawX71zw8Zre32Rtnk4+keMZtQvLn1zN++Ut
gXw/XQenJlcECEQMdnZKwGF/+t7RBDfI09vezL+QANeW/0b7VTd0mig913zF
6yM++DbddoPRwccP4t5LoMnElejvd4Ngt3S20agEqI/2rvlq7I6S/LvOuXyS
YBz66e/31R3D67lPg9dKwuRp0rxigAd8D5+oEcmShINt/zf+Ni8YGfTXrMyR
hNeGgeO0114Q+o67W/MlEbqhf53JkBeqwgT/iy3l+R+Vh2YsemEh9GLt7G1J
VHllFXQaeCPj0LV7ve2SqNXIUDfM80bbwe6HFYuSaA0Lr5eK9cHqQO1OW28p
tDJlH5H9/NC/j37ohp8UqMrZBWYRfkg5KEldHiQFq+mlMqwEP4yFze94HiIF
VsbfaZdyPxQx21/tYErBi+X98vKkH2TTDvS5ZPLyG6KNh0764+/96xNez6Qw
JeXXL1MegOcSOsIR66SRHzf4iaO7D5uCg8eyN0ijVdGCVWu2Dzef3HzSTEiD
WnBr7JrLPpxn6p+mbpUGxdHofc3JfbAdMVq87igNvcV+adbzfXhat3ny4wFp
cGzHpq2O7Mdjr13dDrnSoMVas9WfHsC9m3HZOmQZcHatyk34NwSCts7ymYIy
sBKw12xuCcGOMY0rfEIymAqUVJMaCMFntWcZr6ky6NLy/29e8hAkr8imxSrL
wPXcjaj3Jw/hQHxFUs86GdT+3YtInVAouL6OYIby2N4zJ1IsDCf4tBw6+mTg
0MsRi54/jBELYY76Bxl4nXk8FywcDoekCc9TwzKg+LdaHVQIxwqxykNGX3jn
2y6x/uL6cHQorr2Qz+XNZ3fXRDPDoWyyqfOIpCyShN1EvpCOoDnE0VZpG4/9
3sTuk4qAUO9xq5BqWcT62iwtD4qEUWS56IX/ZMH6EBv553gkvCU4LyvrZcH2
zDL3SY1ErZXh3ukmWXQNRys6345EQM1k2JFnsmiVllk+thCJh+f9so+PyKJs
1baf3elRvPeV/bcEGg1B4cIjS7uO4VOpSnoekwa9g6VXM48yMXH6w29yLA0M
ha1Gj88z8d2nwDMongaHjWW7l15jgkRX0dY/R0NsYHJ82xsm5DMZzc2ZNDTl
zmy3NI2GQyJ96tNtGmoNOvaakE/ifqCSrc4YDV2kpUtDS2KQrim3pM5ZDpyD
30fvZJ6Cu4f6tSFXOcA/tb605BRWpK+xXu4uh64Op+ziO6dQ/deO5esjh6Am
5o2Hz0+h53Wc4vJDcmBTTgjHUeIgeWZirW8SLy+rGqPGjEPah0Z/0XtyoIxz
tqw8GA9WVsATb4Y8koJvdbuGnUHk0bhwppo8NBddrMhxZ+DhmEvPVJcHW3G+
qj7tDHSEXkd26MijayY5waH6DNqObdE0XiePKVKhhxz3DPh3rzgr4igPyvzq
e5pxCYiQ/Wj9XzxPf74zLTE/EXvS93aKfJZHlcXRwgrKOSjeEVI4MM6bnxfC
KFQ+h4EX/wW2fZVHaNsftX/XnoOfmARfwqw8Wn3D5qa9ziHk3P/W/OVTgOv8
9hyf+nOIi119ZVpRAWU9thWvQpNRfpDP77WjAmhaolsjJlLAtSj5ndegAJMz
FwdWibPAvJcX3/KQpysUR79UYoFkkCU61qIAxkTa8lNaLCylX1AxaOfpz9w0
F8xZkPkdta3ljQKmAhxpByJZWHPD9srolAKsmoWHDQZZCJGeNdFXU8ToS1/r
orqLGPpkFtWcqIiuYwt/P6VeglleZ6FWMo9ZlxrTcy8h33XPs7TzitATq6/f
UXkJHu1hqr6XFUEK25H+s+sS3lXld5CLeH6ykfZXqXS8PPGHsaVBEaE+NxvY
eeloFq9vezKrCCuWXoBZ02UUbtRXeOatBIeHL2va9dlotheKn/dTQm2HfZD4
FjY+eg6NrwxSwmBy05EAVzbU4i7XJ4QoIYgV1bEpho3i//3ejRNK6DIQ7Cp/
xkbJ9mb2nXQleAnuXH4k+ArKvJ1ksp4ogXWs+4ZBXRZunIkQD1ylDBJDcd7i
dA4mNuyNO6OnDO5/bu07snOgM2sxU7RGGdSXJdmht3Pwr4/Uq8F1ymiNyj0y
PJiDMuIOe89WZVS9OZheuikXxb+n6Paeygj9z0miYDEXWcEHdQ0v8v4LLoa0
jlvkI9HZ14b8g8fSEc02kwUo3N7r7s9VhoncDvfoPwW4v8055Mk8jzsdX90T
LcT3jZYXk/np0LwTwvLUKYS7uvYbSSodSW5FHub7C2Hw67vPCm06rHzTZRJG
C9HPjju+xZsOWoPhE8vJIhj2FpQnPqPDZLl4uJtmKai6QdzKLjq6/HNGB9aV
YiJG15LTzesTOWl82KYUxWr3hjXf8fp2UVObQkohdaCH/nSElzfQsRW4W4o5
JtlGkMRArHd+r4nlNbwVNnpoJcdAGblRl32kDOyV2Tee2TCgedvP+dXiv5id
2VoSb8dA6KOdX39IXcf2hu9X123nMR/hoqVzHYJO1ikljgwE7Zvv79xzHRHM
3/ujdzOQpCZ7nVJ3HY7Pd2muCmSAu+DuYn+sAiIRUkUpcQywbJR35i67iZim
VLZNHQOuN3Wu3blbhfG+pvTf9bz+F539zS1VcJmfYV27zwCJJTXe97IKOkZ7
zpKbeP5qjyLjySpwrqsfv/c/BvKjU+uOa96CQWajm3YPA6OvdJytcm5hJHha
WXiSAS/bNzLWrNuwU3AuebpCBU0Zg202udVgD+s2uamrgFa+X/fYzWoM36C8
n9BQgYONk8WdhmowcZ8qpq0CTbJyhd1ANSr81ZhO+ioIdfI6rahSA6Gqacfe
jSpwbW0z1r5WgycW50nfXHj6OTMn5wd3sTnkiZv4WRXUCnz7Z6NUHeY4Y1tb
zvH6KUofLq2sQ7W5iEFkigqs4h1bFjbVQV1uB6Xvggrve6McAvvrINLyrros
QwUmJ7pbvjfVgSP3TRTFvPM2Wzy2O1yP0MdSTSGNKqBetm0+MnQPeYo+Kzp+
8OaPDEltIjfCdI22rs8vFYwySfyDCo3o2TZrzOWqQC/rQczltY2gRCbYrFjg
cbX9gfUBjbz7/u9hJr8qBrV+1h552ggkzDTpiKmCFu562tmmCR8nT+9N1VSF
3qHxWRv6Q3zUzIOClSr6a+NzLdc34/8AD025Tg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {0., 9334.559524979846}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.7479186188728323`*^9, 3.7479187595008917`*^9, 3.7479189771959295`*^9, 
   3.74791917720412*^9, 3.7479229893439817`*^9, {3.7480195319172497`*^9, 
   3.7480195419844847`*^9}, 3.7480197030780044`*^9, 3.74802068768349*^9, 
   3.748020964409066*^9, 3.7491070611400704`*^9, {3.749109110626206*^9, 
   3.7491091215028286`*^9}, 3.749111381007242*^9, 3.749187345579829*^9, 
   3.749371208875085*^9},
 FontFamily->
  "Arial Narrow",ExpressionUUID->"2dbdbaa7-9a94-43fc-909d-4e8b2448247f"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 998},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"10.1 for Microsoft Windows (64-bit) (March 23, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 319, 5, 92, "Title"],
Cell[CellGroupData[{
Cell[924, 31, 269, 4, 64, "Section"],
Cell[CellGroupData[{
Cell[1218, 39, 810, 19, 233, "Code"],
Cell[2031, 60, 489, 8, 31, "Output"],
Cell[2523, 70, 507, 8, 31, "Output"],
Cell[3033, 80, 489, 8, 31, "Output"],
Cell[3525, 90, 489, 8, 31, "Output"],
Cell[4017, 100, 494, 8, 31, "Output"],
Cell[4514, 110, 513, 9, 31, "Output"],
Cell[5030, 121, 491, 8, 31, "Output"],
Cell[5524, 131, 490, 8, 31, "Output"],
Cell[6017, 141, 489, 8, 31, "Output"],
Cell[6509, 151, 513, 9, 47, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7071, 166, 290, 5, 64, "Section"],
Cell[CellGroupData[{
Cell[7386, 175, 246, 4, 44, "Subsection"],
Cell[CellGroupData[{
Cell[7657, 183, 426, 13, 73, "Code"],
Cell[8086, 198, 588, 12, 31, "Output"],
Cell[8677, 212, 641, 14, 31, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9367, 232, 489, 7, 44, "Subsection"],
Cell[CellGroupData[{
Cell[9881, 243, 427, 10, 93, "Code"],
Cell[10311, 255, 498, 9, 31, "Output"],
Cell[10812, 266, 522, 10, 47, "Output"],
Cell[11337, 278, 498, 9, 31, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11884, 293, 424, 6, 44, "Subsection"],
Cell[CellGroupData[{
Cell[12333, 303, 247, 5, 52, "Code"],
Cell[12583, 310, 530, 10, 31, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13162, 326, 611, 12, 44, "Subsection"],
Cell[13776, 340, 722, 23, 73, "Code"],
Cell[14501, 365, 434, 11, 73, "Code"],
Cell[CellGroupData[{
Cell[14960, 380, 482, 10, 73, "Code"],
Cell[15445, 392, 565, 10, 31, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16071, 409, 335, 5, 64, "Section"],
Cell[CellGroupData[{
Cell[16431, 418, 632, 12, 44, "Subsection"],
Cell[CellGroupData[{
Cell[17088, 434, 348, 8, 93, "Code"],
Cell[17439, 444, 543, 11, 53, "Output"],
Cell[17985, 457, 577, 13, 59, "Output"],
Cell[18565, 472, 516, 9, 31, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19130, 487, 398, 6, 44, "Subsection"],
Cell[CellGroupData[{
Cell[19553, 497, 432, 11, 93, "Code"],
Cell[19988, 510, 506, 8, 31, "Output"],
Cell[20497, 520, 507, 8, 31, "Output"],
Cell[21007, 530, 507, 8, 31, "Output"]
}, Open  ]],
Cell[21529, 541, 189, 3, 31, "Text"],
Cell[CellGroupData[{
Cell[21743, 548, 405, 9, 93, "Code"],
Cell[22151, 559, 534, 8, 31, "Output"],
Cell[22688, 569, 535, 8, 31, "Output"],
Cell[23226, 579, 537, 8, 31, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[23824, 594, 216, 3, 64, "Section"],
Cell[CellGroupData[{
Cell[24065, 601, 323, 8, 52, "Code"],
Cell[24391, 611, 6578, 120, 236, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31006, 736, 412, 11, 52, "Code"],
Cell[31421, 749, 1327, 32, 240, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32797, 787, 343, 5, 64, "Section"],
Cell[CellGroupData[{
Cell[33165, 796, 549, 15, 113, "Code"],
Cell[33717, 813, 537, 9, 31, "Output"],
Cell[34257, 824, 556, 9, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34850, 838, 1387, 39, 133, "Code"],
Cell[36240, 879, 2588, 54, 238, "Output"],
Cell[38831, 935, 901, 17, 23, "Message"],
Cell[39735, 954, 896, 17, 23, "Message"],
Cell[40634, 973, 896, 17, 23, "Message"],
Cell[41533, 992, 972, 18, 23, "Message"],
Cell[42508, 1012, 1348, 33, 227, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43917, 1052, 392, 6, 92, "Title"],
Cell[44312, 1060, 445, 7, 31, "Text"],
Cell[CellGroupData[{
Cell[44782, 1071, 859, 21, 81, "Input"],
Cell[45644, 1094, 798, 19, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[46479, 1118, 324, 5, 62, "Subchapter"],
Cell[CellGroupData[{
Cell[46828, 1127, 1034, 28, 92, "Input"],
Cell[47865, 1157, 286, 5, 31, "Output"],
Cell[48154, 1164, 284, 5, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48475, 1174, 2767, 62, 92, "Input"],
Cell[51245, 1238, 8292, 141, 245, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[59586, 1385, 288, 5, 62, "Subchapter"],
Cell[CellGroupData[{
Cell[59899, 1394, 1464, 42, 92, "Input"],
Cell[61366, 1438, 534, 9, 31, "Output"],
Cell[61903, 1449, 532, 9, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62472, 1463, 2065, 43, 52, "Input"],
Cell[64540, 1508, 10348, 172, 242, "Output"]
}, Open  ]],
Cell[74903, 1683, 181, 3, 31, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[75133, 1692, 480, 7, 92, "Title"],
Cell[CellGroupData[{
Cell[75638, 1703, 248, 4, 64, "Section"],
Cell[CellGroupData[{
Cell[75911, 1711, 7870, 188, 372, "Input"],
Cell[83784, 1901, 3945, 77, 328, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[87778, 1984, 472, 7, 64, "Section"],
Cell[CellGroupData[{
Cell[88275, 1995, 322, 5, 44, "Subsection"],
Cell[CellGroupData[{
Cell[88622, 2004, 1510, 37, 92, "Input"],
Cell[90135, 2043, 14864, 256, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105036, 2304, 1738, 41, 112, "Input"],
Cell[106777, 2347, 2266, 44, 350, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[109092, 2397, 275, 4, 44, "Subsection"],
Cell[CellGroupData[{
Cell[109392, 2405, 1094, 25, 52, "Input"],
Cell[110489, 2432, 14098, 239, 237, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)