(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 20693, 483] NotebookOptionsPosition[ 19500, 454] NotebookOutlinePosition[ 19841, 469] CellTagsIndexPosition[ 19798, 466] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["\:041f\:043e\:043f\:0443\:043b\:0430\:0446\:0438\:043e\ \:043d\:043d\:0430 \:0434\:0438\:043d\:0430\:043c\:0438\:043a\:0430", FontFamily->"Arial Narrow"]], "Title", CellChangeTimes->{{3.7479047580084066`*^9, 3.74790475918773*^9}, { 3.74790479179202*^9, 3.747904805878929*^9}, {3.7479164767153378`*^9, 3.74791651914298*^9}}, FontFamily-> "Arial Narrow",ExpressionUUID->"65241044-c04b-4858-94f9-6a7a4a5049cf"], Cell[TextData[{ StyleBox["\:0414\:0430\:0434\:0435\:043d\:0438 \:0441\:0430 \:0434\:0430\ \:043d\:043d\:0438 \:0437\:0430 \:0440\:0430\:0437\:0432\:0438\:0442\:0438\ \:0435 \:043d\:0430 \:0431\:0438\:043e\:043b\:043e\:0433\:0438\:0447\:043d\ \:0430\:0442\:0430 \:043f\:043e\:043f\:0443\:043b\:0430\:0446\:0438\:044f \ Paramecium aureia:\n", "Section"], StyleBox[Cell[BoxData[GridBox[{ { RowBox[{"\:0431\:0440\:043e\:0439", " ", "\:0434\:043d\:0438"}], "0", "2", "4", "6", "8", "10", "12", "14"}, { RowBox[{ RowBox[{"\:0431\:0440", ".", " ", "Paramecium"}], " ", "\[IndentingNewLine]", RowBox[{"aurelia", " ", RowBox[{"(", RowBox[{"\:0432", " ", "\:043a\:0430\:043f\:043a\:0430"}], ")"}]}]}], "4", "10", "46", "66", "70", "69", "71", "71"} }, GridBoxDividers->{ "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, "RowsIndexed" -> {}}]], "Section",ExpressionUUID-> "77acaa64-5ad2-4aeb-9ddd-eae41bd4cef6"], "Section"], StyleBox["\n\:0414\:0430 \:0441\:0435 \:043f\:0440\:0438\:0431\:043b\:0438\ \:0436\:0430\:0442 \:0434\:0430\:043d\:043d\:0438\:0442\:0435, \:043a\:0430\ \:0442\:043e \:0441\:0435 \:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430:", "Section"] }], "Text", CellChangeTimes->{{3.747915250342267*^9, 3.747915274551388*^9}, 3.7479163045241694`*^9, {3.8105641156525235`*^9, 3.8105641274078493`*^9}, 3.8105642787132006`*^9, {3.810564352020547*^9, 3.810564435427644*^9}}, FontFamily-> "Arial Narrow",ExpressionUUID->"6184e574-a695-4b12-9439-8b5132563371"], Cell[TextData[StyleBox["\:043c\:043e\:0434\:0435\:043b\:044a\:0442 \:043d\ \:0430 \:041c\:0430\:043b\:0442\:0443\:0441 \:0441 \:043a\:043e\:0435\:0444\ \:0438\:0446\:0438\:0435\:043d\:0442 \:043d\:0430 \:043f\:0440\:0438\:0440\ \:0430\:0441\:0442 r=0.55;", FontFamily->"Arial Narrow"]], "Subchapter", CellChangeTimes->{{3.747904818426734*^9, 3.7479048193821764`*^9}, { 3.7479164342577047`*^9, 3.747916435390059*^9}, {3.7494007372582808`*^9, 3.7494007440743327`*^9}, {3.8105644394471908`*^9, 3.8105644630227547`*^9}}, FontFamily-> "Arial Narrow",ExpressionUUID->"c7a66147-fa1d-413c-becd-04e0b9e3d74e"], Cell[TextData[{ "\:043c\:043e\:0434\:0435\:043b\:044a\:0442 \:043d\:0430 \:0412\:0435\:0440\ \:0445\:044a\:043b\:0441\:0442 \:0441 ", StyleBox["\:043a\:043e\:0435\:0444\:0438\:0446\:0438\:0435\:043d\:0442 \ \:043d\:0430 \:043f\:0440\:0438\:0440\:0430\:0441\:0442 ", FontFamily->"Arial Narrow"], "r=0.012." }], "Subchapter", CellChangeTimes->{{3.7479164242504473`*^9, 3.747916429522438*^9}, { 3.7494007463860016`*^9, 3.749400752706357*^9}, {3.8105644674044323`*^9, 3.810564490630608*^9}}, FontFamily-> "Arial Narrow",ExpressionUUID->"6291eee1-a19b-4d97-bb70-653720097ecb"] }, Open ]], Cell[CellGroupData[{ Cell["\:041f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430", "Title", CellChangeTimes->{{3.7477563947257957`*^9, 3.747756397286326*^9}, { 3.747917815135174*^9, 3.7479178178845935`*^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->"6228ebaa-511d-428d-9053-6e2299c8a932"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"PlotDer", "[", RowBox[{"f_", ",", "x1_", ",", "start_", ",", "end_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"minF", " ", "=", " ", RowBox[{ RowBox[{"Min", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "start", ",", "end", ",", " ", "0.1"}], "}"}]}], "]"}], "]"}], "-", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"maxF", " ", "=", " ", RowBox[{ RowBox[{"Max", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "start", ",", "end", ",", " ", "0.1"}], "}"}]}], "]"}], "]"}], "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", "\t\t", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x1", "]"}], "-", RowBox[{"f", "[", "y", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x1", "-", "y"}], ")"}]}], ",", RowBox[{"y", "\[Rule]", "x2"}]}], "]"}], "*", RowBox[{"(", RowBox[{"x", "-", "x2"}], ")"}]}], "+", RowBox[{"f", "[", "x2", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "start", ",", "end"}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"start", ",", " ", "end"}], "}"}], ",", RowBox[{"{", RowBox[{"minF", ",", "maxF"}], "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", "x1", "]"}], "-", RowBox[{"f", "[", "y", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"x1", "-", "y"}], ")"}]}], ",", RowBox[{"y", "\[Rule]", "x1"}]}], "]"}], "*", RowBox[{"(", RowBox[{"x", "-", "x1"}], ")"}]}], "+", RowBox[{"f", "[", "x1", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "start", ",", "end"}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"start", ",", " ", "end"}], "}"}], ",", RowBox[{"{", RowBox[{"minF", ",", "maxF"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"f", "[", "x1", "]"}], "]"}], ">", RowBox[{"Abs", "[", RowBox[{"f", "[", "x2", "]"}], "]"}]}], ",", RowBox[{"f", "[", "x2", "]"}], ",", RowBox[{"f", "[", "x1", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Min", "[", RowBox[{"0", ",", "x1", ",", "x2"}], "]"}], ",", " ", RowBox[{"Max", "[", RowBox[{"0", ",", "x1", ",", "x2"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"Max", "[", RowBox[{ RowBox[{"f", "[", "x1", "]"}], ",", RowBox[{"f", "[", "x2", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x1", "]"}], ">", RowBox[{"f", "[", "x2", "]"}]}], ",", "x1", ",", "x2"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", " ", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", " ", RowBox[{"f", "[", "x1", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"x2", ",", " ", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", " ", RowBox[{"f", "[", "x2", "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", " ", "Dashed"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x1", ",", RowBox[{"f", "[", "x1", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", RowBox[{"f", "[", "x2", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Orange"}]}], "]"}]}], "\[IndentingNewLine]", "\t", "]"}], ",", RowBox[{"{", RowBox[{"x2", ",", "start", ",", "end", ",", " ", "0.01"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "[", "x_", "]"}], ":=", RowBox[{"Exp", "[", "x", "]"}]}], "\[IndentingNewLine]", RowBox[{"PlotDer", "[", RowBox[{"p", ",", "1", ",", RowBox[{"-", "2"}], ",", "2"}], "]"}]}], "Input", CellChangeTimes->{{3.7478530912361155`*^9, 3.7478531500383444`*^9}, 3.747853226288577*^9, {3.7478532823993692`*^9, 3.747853285107831*^9}, 3.7478533308016024`*^9, {3.7478535566099877`*^9, 3.7478535595362935`*^9}, { 3.747853624203174*^9, 3.747853885379277*^9}, {3.747853917916586*^9, 3.7478539333247414`*^9}, {3.747853963786256*^9, 3.747853998951082*^9}, { 3.7478540502916036`*^9, 3.747854093486808*^9}, {3.747854142876475*^9, 3.7478541891788816`*^9}, {3.7478542714836392`*^9, 3.7478542798278475`*^9}, {3.74785436782434*^9, 3.7478545895580654`*^9}, { 3.7478546598207345`*^9, 3.7478546670345945`*^9}, {3.747917162960901*^9, 3.747917176447181*^9}, {3.7479178515962634`*^9, 3.7479178544146433`*^9}, { 3.747977155457591*^9, 3.747977208123603*^9}}, FontFamily->"Arial Narrow", CellLabel->"In[1]:=",ExpressionUUID->"0a368afa-ef1b-4e5b-814f-04437c2a6f87"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`x2$$ = -2, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`x2$$], -2, 2, 0.01}}, Typeset`size$$ = { 360., {107., 111.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`x2$2324$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`x2$$ = -2}, "ControllerVariables" :> { Hold[$CellContext`x2$$, $CellContext`x2$2324$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Plot[{ $CellContext`p[$CellContext`x], Limit[($CellContext`p[1] - $CellContext`p[$CellContext`y])/( 1 - $CellContext`y), $CellContext`y -> $CellContext`x2$$] \ ($CellContext`x - $CellContext`x2$$) + $CellContext`p[$CellContext`x2$$]}, \ {$CellContext`x, -2, 2}, PlotRange -> {{-2, 2}, {$CellContext`minF, $CellContext`maxF}}], Plot[{ Limit[($CellContext`p[1] - $CellContext`p[$CellContext`y])/( 1 - $CellContext`y), $CellContext`y -> 1] ($CellContext`x - 1) + $CellContext`p[1]}, {$CellContext`x, -2, 2}, PlotRange -> {{-2, 2}, {$CellContext`minF, $CellContext`maxF}}, PlotStyle -> Black], ParametricPlot[{$CellContext`x, If[Abs[ $CellContext`p[1]] > Abs[ $CellContext`p[$CellContext`x2$$]], $CellContext`p[$CellContext`x2$$], $CellContext`p[1]]}, {$CellContext`x, Min[0, 1, $CellContext`x2$$], Max[0, 1, $CellContext`x2$$]}, PlotStyle -> {Gray, Dashed}], ParametricPlot[{$CellContext`x, Max[ $CellContext`p[1], $CellContext`p[$CellContext`x2$$]]}, {$CellContext`x, 0, If[$CellContext`p[1] > $CellContext`p[$CellContext`x2$$], 1, $CellContext`x2$$]}, PlotStyle -> {Gray, Dashed}], ParametricPlot[{1, $CellContext`x}, {$CellContext`x, 0, $CellContext`p[1]}, PlotStyle -> {Gray, Dashed}], ParametricPlot[{$CellContext`x2$$, $CellContext`x}, {$CellContext`x, 0, $CellContext`p[$CellContext`x2$$]}, PlotStyle -> {Gray, Dashed}], ListPlot[{{1, $CellContext`p[1]}, {$CellContext`x2$$, $CellContext`p[$CellContext`x2$$]}}, PlotStyle -> Orange]], "Specifications" :> {{$CellContext`x2$$, -2, 2, 0.01}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{411., {153., 159.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.7478544116072245`*^9, {3.7478545132098885`*^9, 3.747854559219479*^9}, 3.747854590631462*^9, {3.7478546637564745`*^9, 3.747854667971057*^9}, { 3.7479171442916145`*^9, 3.747917177075797*^9}, {3.747917847057851*^9, 3.7479178551062307`*^9}, 3.7479313492228117`*^9, 3.747977123398757*^9, { 3.7479771826411457`*^9, 3.747977208753639*^9}, 3.747982350232828*^9, { 3.7491813808883104`*^9, 3.7491814044146557`*^9}, {3.7493712653791847`*^9, 3.749371281570216*^9}, 3.7494010153421574`*^9, 3.7494010577606893`*^9, 3.8105641943595943`*^9}, FontFamily->"Arial Narrow", CellLabel->"Out[3]=",ExpressionUUID->"39c78b0c-c7d7-4b43-a87b-564c1c6acdc5"] }, Open ]] }, Open ]], Cell[TextData[{ "\:0414\:0430 \:0441\:0435 \:043f\:0440\:0438\:0431\:043b\:0438\:0436\:0438 \ \:043f\:0440\:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:0442\:0430 \ \:043d\:0430 \:0444\:0443\:043d\:043a\:0446\:0438\:044f\:0442\:0430 ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"f", RowBox[{"(", "x", ")"}]}], "=", SuperscriptBox["e", "x"]}], TraditionalForm]],ExpressionUUID-> "115f6f4f-6047-4333-af8e-e54687b6ddb2"], " \:0432 \:0438\:043d\:0442\:0435\:0440\:0432\:0430\:043b\:0430 [0,10], \ \:043a\:0430\:0442\:043e \:0441\:0435 \:0438\:0437\:043f\:043e\:043b\:0437\ \:0432\:0430\:0442 \:0444\:043e\:0440\:043c\:0443\:043b\:0438\:0442\:0435\n\ \:0430) f\[CloseCurlyQuote](t) ", Cell[BoxData[ FormBox[ RowBox[{"\[TildeTilde]", FractionBox[ RowBox[{ RowBox[{"f", "(", RowBox[{"t", "+", "\[CapitalDelta]t"}], ")"}], " ", "-", " ", RowBox[{"f", "(", "t", ")"}]}], "\[CapitalDelta]t"]}], TraditionalForm]],ExpressionUUID->"6fcbd907-ea7d-4412-a65e-564b5833d23b"], "\n\:0431) f\[CloseCurlyQuote](t) ", Cell[BoxData[ FormBox[ RowBox[{"\[TildeTilde]", FractionBox[ RowBox[{ RowBox[{"f", "(", "t", ")"}], " ", "-", " ", RowBox[{"f", "(", RowBox[{"t", "-", "\[CapitalDelta]t"}], ")"}]}], "\[CapitalDelta]t"]}], TraditionalForm]],ExpressionUUID->"dc52f7cc-3c06-4dd1-8d26-3867ce03ee04"], "\n\:0432) f\[CloseCurlyQuote](t) ", Cell[BoxData[ FormBox[ RowBox[{"\[TildeTilde]", FractionBox[ RowBox[{ RowBox[{"f", "(", RowBox[{"t", "+", "\[CapitalDelta]t"}], ")"}], " ", "-", " ", RowBox[{"f", "(", RowBox[{"t", "-", "\[CapitalDelta]t"}], ")"}]}], RowBox[{"2", "\[CapitalDelta]t"}]]}], TraditionalForm]],ExpressionUUID-> "91347a8e-e274-4eb7-91d9-f118fd680744"], "\n\:0414\:0430 \:0441\:0435 \ \:043d\:0430\:0447\:0435\:0440\:0442\:0430\:044f\:0442 \:043d\:0430 \:0435\ \:0434\:043d\:0430 \:0433\:0440\:0430\:0444\:0438\:043a\:0430 \:043f\:0440\ \:043e\:0438\:0437\:0432\:043e\:0434\:043d\:0430\:0442\:0430 \:0438 \:043d\ \:0435\:0439\:043d\:0438\:0442\:0435 \:043f\:0440\:0438\:0431\:043b\:0438\ \:0436\:0435\:043d\:0438\:044f \:043f\:0440\:0438 \[CapitalDelta]t=0.5, \ \[CapitalDelta]t=0.001 \:0438 ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalDelta]t", "=", SuperscriptBox["10", RowBox[{"-", "15"}]]}], TraditionalForm]],ExpressionUUID-> "410ac23a-3a4b-42af-9556-5fe88131599e"], ". \:0414\:0430 \:0441\:0435 \ \:043f\:0440\:0435\:0441\:043c\:0435\:0442\:043d\:0430\:0442 \:0430\:0431\ \:0441\:043e\:043b\:044e\:0442\:043d\:0438\:0442\:0435 \:0438 \:043e\:0442\ \:043d\:043e\:0441\:0438\:0442\:0435\:043b\:043d\:0438\:0442\:0435 \:0433\ \:0440\:0435\:0448\:043a\:0438 \:0437\:0430 \:0444\:043e\:0440\:043c\:0443\ \:043b\:0430 \:0430), \:0431), \:0432)." }], "Section", CellChangeTimes->{{3.747918045893719*^9, 3.7479180792016163`*^9}, { 3.748019567260964*^9, 3.7480195984310884`*^9}, {3.8105645821697054`*^9, 3.810564851543439*^9}, {3.8105652088612328`*^9, 3.810565229145526*^9}}, FontFamily-> "Arial Narrow",ExpressionUUID->"d042ec50-ca16-4ba1-8633-042880a85df6"] }, Open ]] }, WindowSize->{680, 676}, WindowMargins->{{Automatic, -6}, {Automatic, 0}}, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 441, 7, 93, "Title",ExpressionUUID->"65241044-c04b-4858-94f9-6a7a4a5049cf"], Cell[1024, 31, 1581, 32, 261, "Text",ExpressionUUID->"6184e574-a695-4b12-9439-8b5132563371"], Cell[2608, 65, 610, 9, 61, "Subchapter",ExpressionUUID->"c7a66147-fa1d-413c-becd-04e0b9e3d74e"], Cell[3221, 76, 585, 12, 79, "Subchapter",ExpressionUUID->"6291eee1-a19b-4d97-bb70-653720097ecb"] }, Open ]], Cell[CellGroupData[{ Cell[3843, 93, 283, 4, 93, "Title",ExpressionUUID->"22079c12-e656-4403-9d9b-fcf7d384cff8"], Cell[CellGroupData[{ Cell[4151, 101, 248, 4, 64, "Section",ExpressionUUID->"6228ebaa-511d-428d-9053-6e2299c8a932"], Cell[CellGroupData[{ Cell[4424, 109, 7889, 188, 450, "Input",ExpressionUUID->"0a368afa-ef1b-4e5b-814f-04437c2a6f87"], Cell[12316, 299, 4000, 78, 331, "Output",ExpressionUUID->"39c78b0c-c7d7-4b43-a87b-564c1c6acdc5"] }, Open ]] }, Open ]], Cell[16343, 381, 3141, 70, 375, "Section",ExpressionUUID->"d042ec50-ca16-4ba1-8633-042880a85df6"] }, Open ]] } ] *)