(* 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[ 195588, 3914] NotebookOptionsPosition[ 192921, 3818] NotebookOutlinePosition[ 193265, 3833] CellTagsIndexPosition[ 193222, 3830] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Exercise 1. Differential equations as mathematical models", "Title", CellChangeTimes->{{3.7595069826577964`*^9, 3.759506985595909*^9}, { 3.759818469436904*^9, 3.759818484890788*^9}}], Cell[CellGroupData[{ Cell["Not all problems can be solved with a built-in function!", "Subchapter", CellChangeTimes->{{3.7595067827073855`*^9, 3.759506829154468*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"10", RowBox[{"u", "[", "t", "]"}], RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"u", "[", "t", "]"}], "5"]}], ")"}]}], " ", "-", FractionBox[ RowBox[{ RowBox[{"u", "[", "t", "]"}], RowBox[{"v", "[", "t", "]"}]}], RowBox[{"1", "+", RowBox[{"u", "[", "t", "]"}]}]]}]}], ",", RowBox[{ RowBox[{ RowBox[{"v", "'"}], "[", "t", "]"}], "==", RowBox[{ FractionBox[ RowBox[{ RowBox[{"u", "[", "t", "]"}], RowBox[{"v", "[", "t", "]"}]}], RowBox[{"1", "+", RowBox[{"u", "[", "t", "]"}]}]], "-", RowBox[{"0.1", RowBox[{"u", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "\[Equal]", "0.1"}], ",", RowBox[{ RowBox[{"v", "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"u", "[", "t", "]"}], ",", RowBox[{"v", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7595068514717684`*^9, 3.7595069589462085`*^9}, { 3.7595152584174023`*^9, 3.759515272526256*^9}}], Cell[BoxData[ TemplateBox[{ "NDSolve","nderr", "\"Error test failure at \\!\\(\\*RowBox[{\\\"t\\\"}]\\) == \ \\!\\(\\*RowBox[{\\\"48.676201015059924`\\\"}]\\); unable to continue.\"",2, 102,666,23662819970852803871,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7595152734717107`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"u", "[", "t", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAZ10W896uqz733QEKp5m5P4mSK1Nr ZOk/fYmvhSWoE0C9g449znX6P1yz+0S4OhRAgIsGD/OnA0CfHHf5AqIUQIcZ bA+69AlAq1SsgzJhFUD6Td95GWUQQBOvGPwu6BZAZAUqv3WVE0BrOTCFoH0Z QAE3a/YqChdAqv+amNpaHkDQir+1vW4aQIkGWF/QLCNA0lQ1SPCYHUBC5ae6 hQ0pQITMUOa9gyBAC2PVwJ91MUC4qReS0x0iQMgbsGzJgDhABRjoAdivI0BV e9FOjWhBQGzDs+oIZCVAA9Itq9rcSUDsKRC9CfsmQMi4uFmn4lJAhs1nCDe0 KEBvzxj0oKpcQDkCyRdTZSpAtOFnrMOwZUAF8roQP/krQJzZshnjAHBA6x6o glevLUCDNJj4AHR4QOoGJt4/SC9AvR5iex0vgkABlk9ZqoEwQFVdnmYp+4tA GvGQJSxbMUAyUws8XV+VQL+pmuYVJjJArZoyxMm+n0DxACLkFQIzQKGNDvB+ YahAsLVx1n3PM0DI+tFYujOyQPsyxirdmDRA6YiXBsH3ukDTTpi7UnM1QPaa KSUTqMRAOMgyQTA/NkDZYNA+zcHOQCrgSgMkHDdAUnf+XQWt10CowGcnD/U3 QAtTXIkWFeJAs/5MQGK/OEDMRWBHT9jqQEvbr5XLmjlAfwYViXGa9EBvFdvf nGc6QHQLvmO6vP5AIBgLjGUwO0CPRKbger8GQV65uHRECjxAQ76FHhpoEUEp uC5Si9U8QMHmfFX04xlBgFUibOixPUBDJmOic+gjQWRQ3nqtfz5AR2znemrB LUHVE5/raUk/QFff3fQEEDZB6bpuTB4SQEATouLH5+lAQa8acp07eEBAz8m/ BEI0SUG7SbQM5OZAQKApZUOZalNBDd34LIhTQUCsSk0BQ65dQSafoUfguEFA H/c8LU8MZkGFMImAwyZCQO8T8V4e73BBqvDUs1qNQkAJlXj3DUh5QRYVI5jt 8UJAmHILG0W5gkHICLCaC19DQGg/OLfUrIxBQCuhl93EQ0CZQw0NO1eVQf8c 0bI6M0RAFj1jPtproEEEcwN/k59EQKYx9xnNEqlBz/eZRaAERUDAZyjzrZqy QdESg51PCEVAHt80cj/wskElV3PG "]]}, Annotation[#, "Charting`Private`Tag$2466606#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 48.676201015059924`}, {0., 3.177347702065295*^8}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "48.676201015059924`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAZ10W896uqz733QEKp5m5P4mSK1Nr ZOk/fYmvhSWoE0C9g449znX6P1yz+0S4OhRAgIsGD/OnA0CfHHf5AqIUQIcZ bA+69AlAq1SsgzJhFUD6Td95GWUQQBOvGPwu6BZAZAUqv3WVE0BrOTCFoH0Z QAE3a/YqChdAqv+amNpaHkDQir+1vW4aQIkGWF/QLCNA0lQ1SPCYHUBC5ae6 hQ0pQITMUOa9gyBAC2PVwJ91MUC4qReS0x0iQMgbsGzJgDhABRjoAdivI0BV e9FOjWhBQGzDs+oIZCVAA9Itq9rcSUDsKRC9CfsmQMi4uFmn4lJAhs1nCDe0 KEBvzxj0oKpcQDkCyRdTZSpAtOFnrMOwZUAF8roQP/krQJzZshnjAHBA6x6o glevLUCDNJj4AHR4QOoGJt4/SC9AvR5iex0vgkABlk9ZqoEwQFVdnmYp+4tA GvGQJSxbMUAyUws8XV+VQL+pmuYVJjJArZoyxMm+n0DxACLkFQIzQKGNDvB+ YahAsLVx1n3PM0DI+tFYujOyQPsyxirdmDRA6YiXBsH3ukDTTpi7UnM1QPaa KSUTqMRAOMgyQTA/NkDZYNA+zcHOQCrgSgMkHDdAUnf+XQWt10CowGcnD/U3 QAtTXIkWFeJAs/5MQGK/OEDMRWBHT9jqQEvbr5XLmjlAfwYViXGa9EBvFdvf nGc6QHQLvmO6vP5AIBgLjGUwO0CPRKbger8GQV65uHRECjxAQ76FHhpoEUEp uC5Si9U8QMHmfFX04xlBgFUibOixPUBDJmOic+gjQWRQ3nqtfz5AR2znemrB LUHVE5/raUk/QFff3fQEEDZB6bpuTB4SQEATouLH5+lAQa8acp07eEBAz8m/ BEI0SUG7SbQM5OZAQKApZUOZalNBDd34LIhTQUCsSk0BQ65dQSafoUfguEFA H/c8LU8MZkGFMImAwyZCQO8T8V4e73BBqvDUs1qNQkAJlXj3DUh5QRYVI5jt 8UJAmHILG0W5gkHICLCaC19DQGg/OLfUrIxBQCuhl93EQ0CZQw0NO1eVQf8c 0bI6M0RAFj1jPtproEEEcwN/k59EQKYx9xnNEqlBz/eZRaAERUDAZyjzrZqy QdESg51PCEVAHt80cj/wskElV3PG "]]}, Annotation[#, "Charting`Private`Tag$2466606#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 48.676201015059924`}, {0., 3.177347702065295*^8}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "48.676201015059924`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{0., 48.6762}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"v", "[", "t", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAZ10W896uqz6562CWmZm5P4mSK1Nr ZOk/CniOkv5ftb+9g449znX6PwrOqe5Tpem/gIsGD/OnA0DlQZx3KjgBwIcZ bA+69AlAGNLWPD4EE8D6Td95GWUQQGGj3bTk+CTAZAUqv3WVE0Cvft43MHU1 wAE3a/YqChdA0eIIboJDR8DQir+1vW4aQMLDtJkBG1nA0lQ1SPCYHUAGEqCY BhFqwITMUOa9gyBAXt7dPUc4fcC4qReS0x0iQFnIl6ZWb4/ABRjoAdivI0Ae JzFRftCgwGzDs+oIZCVAaepUrxhYs8DsKRC9CfsmQLjw9fS+KcXAhs1nCDe0 KEA22uraatTYwDkCyRdTZSpAGnaWvJbD7MAF8roQP/krQMIX0vfWiv/A6x6o glevLUBP7bbHoIESweoGJt4/SC9AxT0k6F6IJMEBlk9ZqoEwQCBgR85CXTjB GvGQJSxbMUDhJIRFfnhMwb+pmuYVJjJAjY65QzRvX8HxACLkFQIzQDcklOqv jXLBsLVx1n3PM0C8rMINxrCEwfsyxirdmDRAw683nu62lsHTTpi7UnM1QJ7r 4KapqKrBOMgyQTA/NkAvWvMoKY69wSrgSgMkHDdAApl+pK2D0cGowGcnD/U3 QInQAuEGb+TBs/5MQGK/OEDZHgtZ0oT2wUvbr5XLmjlA3oLvXqGHCsJvFdvf nGc6QFOlYuv8hR3CIBgLjGUwO0AmFXllrSswwl65uHRECjxAdRmFgczvQsIp uC5Si9U8QC2waXx58lTCgFUibOixPUBIFURpOsVowmRQ3nqtfz5AQ3FxFBur e8LVE5/raUk/QJmrJ38YbI7C6bpuTB4SQEAwA60OKeGhwq8acp07eEBAtq0K AvvZs8K7SbQM5OZAQPbrBRPxj8fCDd34LIhTQUD3oImMjYfbwiafoUfguEFA IakfmOJh7sKFMImAwyZCQKz+tBoy7AHDqvDUs1qNQkACPtvhN/kTwxYVI5jt 8UJAUUIhqDzpJcPICLCaC19DQGqPC5oZsjnDQCuhl93EQ0D4M3aA1nZMw/8c 0bI6M0RAVUANd4vaYMMEcwN/k59EQLIHN35rpXPDcgPdkiUDRUDE3IIGnXWF w6w1jG8= "]]}, Annotation[#, "Charting`Private`Tag$2466650#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 48.676201015059924`}, {-1.9328933729531302`*^17, 0.09999999924995863}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "48.676201015059924`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwBUQOu/CFib1JlAgAAADQAAAACAAAAZ10W896uqz6562CWmZm5P4mSK1Nr ZOk/CniOkv5ftb+9g449znX6PwrOqe5Tpem/gIsGD/OnA0DlQZx3KjgBwIcZ bA+69AlAGNLWPD4EE8D6Td95GWUQQGGj3bTk+CTAZAUqv3WVE0Cvft43MHU1 wAE3a/YqChdA0eIIboJDR8DQir+1vW4aQMLDtJkBG1nA0lQ1SPCYHUAGEqCY BhFqwITMUOa9gyBAXt7dPUc4fcC4qReS0x0iQFnIl6ZWb4/ABRjoAdivI0Ae JzFRftCgwGzDs+oIZCVAaepUrxhYs8DsKRC9CfsmQLjw9fS+KcXAhs1nCDe0 KEA22uraatTYwDkCyRdTZSpAGnaWvJbD7MAF8roQP/krQMIX0vfWiv/A6x6o glevLUBP7bbHoIESweoGJt4/SC9AxT0k6F6IJMEBlk9ZqoEwQCBgR85CXTjB GvGQJSxbMUDhJIRFfnhMwb+pmuYVJjJAjY65QzRvX8HxACLkFQIzQDcklOqv jXLBsLVx1n3PM0C8rMINxrCEwfsyxirdmDRAw683nu62lsHTTpi7UnM1QJ7r 4KapqKrBOMgyQTA/NkAvWvMoKY69wSrgSgMkHDdAApl+pK2D0cGowGcnD/U3 QInQAuEGb+TBs/5MQGK/OEDZHgtZ0oT2wUvbr5XLmjlA3oLvXqGHCsJvFdvf nGc6QFOlYuv8hR3CIBgLjGUwO0AmFXllrSswwl65uHRECjxAdRmFgczvQsIp uC5Si9U8QC2waXx58lTCgFUibOixPUBIFURpOsVowmRQ3nqtfz5AQ3FxFBur e8LVE5/raUk/QJmrJ38YbI7C6bpuTB4SQEAwA60OKeGhwq8acp07eEBAtq0K AvvZs8K7SbQM5OZAQPbrBRPxj8fCDd34LIhTQUD3oImMjYfbwiafoUfguEFA IakfmOJh7sKFMImAwyZCQKz+tBoy7AHDqvDUs1qNQkACPtvhN/kTwxYVI5jt 8UJAUUIhqDzpJcPICLCaC19DQGqPC5oZsjnDQCuhl93EQ0D4M3aA1nZMw/8c 0bI6M0RAVUANd4vaYMMEcwN/k59EQLIHN35rpXPDcgPdkiUDRUDE3IIGnXWF w6w1jG8= "]]}, Annotation[#, "Charting`Private`Tag$2466650#1"]& ]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 48.676201015059924`}, {-1.9328933729531302`*^17, 0.09999999924995863}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "48.676201015059924`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{0., 48.6762}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "t", "]"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.7595069600991225`*^9, {3.759515267624055*^9, 3.7595152736617227`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["The logistic equation", "Subchapter", CellChangeTimes->{{3.7598185013847313`*^9, 3.7598185203688173`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sol01", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"10", RowBox[{"u", "[", "t", "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", "[", "t", "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}], ",", "u", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol05", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"10", RowBox[{"u", "[", "t", "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", "[", "t", "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "\[Equal]", "0.5"}]}], "}"}], ",", "u", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol1", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"10", RowBox[{"u", "[", "t", "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", "[", "t", "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "\[Equal]", "1"}]}], "}"}], ",", "u", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol15", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"u", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"10", RowBox[{"u", "[", "t", "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"u", "[", "t", "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", "0", "]"}], "\[Equal]", "1.5"}]}], "}"}], ",", "u", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "[", "t", "]"}], "/.", "sol01"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "[", "t", "]"}], "/.", "sol05"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "[", "t", "]"}], "/.", "sol1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "[", "t", "]"}], "/.", "sol15"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7598185256961217`*^9, 3.7598185293963337`*^9}, { 3.7598219108214827`*^9, 3.7598220560976353`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1mk4lWvbB3CpFJUtUaZKplCoULTjr0hJUoZSj0RCpFTYu1CGtimlzPNM Ig+anrBlSEW7RCLKtBZrLcuy3HcZdzK81/vhPu7j9+U8juu6zmnTWS8rF0EB AYFe8v3//5AL91PdsK1h54sAbkpKJYZKj5/tl9ZBepdL5/8eVWLtio7op9Im +JG5aLDvZSU09SUKMqRtsENTRefYQCV2t2qXx0qfg78727J2SxXq0hp070r7 gGtxYOBNXRVuBUdduy39Fxo/PF6WPf43zvnQ0pHS8Xi8Ve9Vzo0aLI83y/n+ Ix+BLyL0S0+8wovWHQcObCjDl+sJfqPlb2B3q+dbQ9QzRKRb5w5ffAevx94a yROVqPFMS4wQ/Iix+1+aFi2qxQfOX8PKzp/QVP+2tmXPK5xcdTAqV68d7tfN Vp3kv0bbmbCQ0N2dqBfesVBysRHNi0td2du/4UHe63kZ5X+g0ZqV0RLeC6O1 L3OtSz/gvYalg9BJBjQaeyreqregM8bc6jaLiXYja6qIakX7ZEuIdfggPEUu tHVsa8MjiYk5pTkW3nedeCka/RmNIuVh6tc5sDa1Y7JY7ZgedepuaRnCzuyo E9lKXyBU7CV04wcXjPm49vOBnfDz/TODI8wD26wlb21DF6R04z11vvNQntJ/ /dOmbwgKUDEWejeCgojFkWp+3fj5IzhHNZCPSedTPNe/e/Cvo3y+ptgoVpiE WT1e14cDDTGtBxNGESDGXsm078d6T7HYkrlRqH97YtTj1I/qXclGiguj+JoX 5NPp2g9NzYPfkwUo7Nwl19N8uR+r89xsgxdT+H7a+lHVX/1wZCaYmgpTcH5U bxZf0o9WG32THAkKh0wzww7M9mPZnuGHWeoUVtZsEei0YKBbbI1ZrzWF0cPy z24fZUBz9D/O2rYUPnZLnDe0ZsArVsU/4jiFez/nWgrsGKj1GyvQOklBXLc1 y8eZOMng1xUHClIlPhC/zkBcidvvjecpKKW+vGmRz8C87WxdRQAFgz8s5xpm GDC2ktzQnUNhyoPrbzbHwFiL6NeBXArlZ4JnPi4wsEbf8MtwHgUFs6fTX5cw cYtpkDJZQGG53LoxWpSJIckqyyXFFNrr+ziyikyMaZ/kzz+m4LnqUqu3ORNO NiGSnvUU0vPv5CmmM/HFQ/YE+iicMdbe05/JxK63co80+kn8ga/tqTlMiDSk 7JNlUHi4cbOQeCETB72WG04wKTxLrT8v8ISJWt03PhlsCh/uT2n0NjLRlrTJ qplPYS7AsSJxnEnOGW35YIaCg61Os7D5AORYQZdOStBwlLXIrrAYgEGGlZC0 JA0npou329EBnMs9vKyL+NzFJOk3tgO4pnzC1GYdDffQGZcgxwHsNpZ8vV+G hs/zuvkp3wFYBZdJrZKncVvSYhsrewD6amozWltoPO9wiauZGsB67dQ9vaBx f5HidvwcAOdFdK2XEQ0PDcbH2l8DYDTWdizaS2ND6CmReoFB/F609KXSPhph OpbBDSKDUClru+liQuN4nJ5X04ZBNNXqrfp8kMb00RXmbaaD+PLU09jxGA39 D+WCnMRByLK2h1s50ZDL9a9KTxlElOCZ/V+IBa6ZXrVOH8SEsXfyybM0mhR7 mHU5g9hhXznv4Ezi+y+rTysZxEBNfMc5FxpX1R0Cj70aRKhUy4S9O42SiBWz 1aODcLPNEV50hYb8ftfJOBMW+JH7Z1UDafQEdfwpd4AF7Tu2eneJk6tNZvLN WNDTern5B/FqHcWF50dYCG4J31QRRENQkbG8y46FzfWV4ftCaLAFTsnJXWSh TeLSMbNQGsXVFsb5CSxopa7cJx9FQ1dHN+YZh4V+086S+QQa25LWHtk2zMK6 rxvrLBNpqM9Mi5SMsNBspJuYTSxfV/VX3ncWTH1Co/Ym0RA5bHQtdoYF5I9n BSXTYDibn7ksykb+H29TxlPJ+8U5aWzdyYZxqaVgaRaN/rG77/JC2ahcMLe4 8ZAGayEg2zaCjdwrTZJvibkrPf9cFsVG3TbrXNEiGt9VDilfuM9GYYb98ixi gf8IBe9IYyPeuWbVy2IaCg039erL2cCWF2pUCQ3XOK/Cvm42UmtLfyk/psHX PhYqvYMDQcci28kKGu8esFQydDhIlUiJ31pJ44H0tSb5XRzEKbMfOhM7LmSu UN3DwaWzUlafiD//w4/ZacqB8eWE4uIqGlVOEZnWpzjQlP89xraaRuS92hd3 QzhoO5Aid7eWhsqIBm/RZw5+RovejHxDY+XyloK/OzjYNHXqaxXxuNJlJ98u Dpxbdq7gE9c5POni9nKQf1N13OItjVNtOxtbuBwonX7T+VsjjehK5GfMc+AY ckX8ThONyfBjDvrqQ9DhVex1e0/jtZJv2+XgISjaFpwua6Vxq7DKbvbWEMSL WyraifepC/SHhw3hdHLC1E/ieq2okcyoIQSlWMqYfKJRsztnSXPCEOxTfi3p JH5xtHmnWvEQbHia/tNtJF8ClNOYbUO4+bD3tmIHjXvtHc5WSlyciPAU0vhK 487Nu0qfVLhYdzNSzpz4tup+tqUaF/bKF2TdiUMDnrlaaHKR6F/3OZ/YXynO /aAeF0/50dtkv9Fw8znqZXiYC75YctHibhqQeO+n7sOFYI+J2OseGrR1XYzg ay4m3y51FWLQmCoM9XzxlovFSx3NNxHP/zp0wPMdF13ZBjJ7iFfmd8x2fOQi yKjR5wqx6gTPregrsenYhm5ix3hJw6M0F3W5yceLmTRa2z14GTLD8DxY/o/e II0ntpLG+leGUV1kFyLNoRH7WyC31nsYT8pdujWIr77j3jX9Yxjux+OU9hFv N6jusvYfxi6hiHAP4nIl50uXQodhVLAlpoq4dLw8JS9lGDXuHdUnhsh9xhz+ vurVMGJqJF+FcWnkNd/KGBDnQdbDdaiSR+5z+y/7LEkeHDilSz8Q/5FwVc5e ioflgfcl+ogPnnZK61jPg27s8SWCIzQovmFKkyoPBlLeGmbEeitn4ksNeWhw kXjSTtx86PIdPw8e6upzGQw+6W+N9v7ir3jwuBdo3EqR/mht6vvqNQ/C2tfy +4hN+7S8rjbyEDN9/iefOHFC0LntAw9GavaBwjQNnU1Fh2I7eQiUKp7dS3zV b1JafJSHs1dG3pQT87dGV6yWGkGM+9bu0O+kH8TUTopdGsGgoIaY2BhxiEVV 7OURrLdzHZMhZnp335TwHoGz3YYPysQDttPLpK6NoDdLyfV34kFpLZmNISOY 37FP15WYk5NpqJE4ghf/DdpfRTzy+Ea4Wc0IZNcstbcfJ/nx6XfpEFE+btn4 NUZOkH5xsXNafzUfzPu5AXHEIsu9v/xYw4dpRJxaBvEGw+I4J2k+TDjDHuXE +4ulRPcq8TGxWv7OF+L4kElBgd182NV6Hdk0SUNbu4x/w4WPhC2RAo+JL8cr 1F2v5kNtCpFVUzSsEs66L67lo+BoUV89sW5irvjdej5E58003xHPJCm4ZL/l I0twX3UncWiagkhjKx/+kcFxE8SpuQo2Emw+JE3YOzSmSX2XK3BLV43iqZyv VSrxumYFMZbDKHK/Oc+f+5e892T7uKPTKGY2G7M8iO3Wh3f2Oo9iSjD+zWXi 1IsjmZ3nR1Etm+oXQLxB9JnG+6uj0GEUlMYRq1juN38SNgrF4Mq99cS6n9zC gkpHwfntiJr0TxrWHSWzcvOjCLH5WlRNfLPQc6aF7GHnmnupeuKH17f+G0L2 sM07r2o1Es+uLxnnLqfgFnQq7xPxA9dHvGdrKPgkJR7nEM9MF3UdVqPQ+UGN Ep2hkStT+CzAhoKxwetZe+KxMzmePWTPKZS8aDlKPJm0VNfpv2SPmnA1/0H8 b4v7HLuMQomqockk8QJ2RNPPKHBvRG+dI14p31AmWEshYf9s58pfNJQZrDHV zyRe4a70LcR2jqrXfX9ReFkQMeJKXOtYFip6mNRlkr5qB3FVi6d53xEy98Ju tHQR/89QfXUp2QOEDe569xCXyBWkW5yg8fcp2SeDxKldqU/vkLk/9Xyv8Bix 79Ewpsh1Emdku4LoLI0tRqcNlj0gdfheWNyEWKVMZnEnmXMX9qrYHSBW2NDV 9OARmYsi59IOEUvNWtmYkrkVb20hfYxYqOLghVAyZ060y4yfJmZq6aQs/kxD w+aV/J/EPZk/HD6Tvqzfs263H3HXqjKlvC4ax3KeH71B/HFErXxfH40f6Z99 bxFXF25sDB6mIX61N+seccXa3jvHSF9InanIiyV+GppqtYnUcZPO9/wE4mJn yb46Ugdu1/yz0ogL2try7pM8nHNoT84kzt57392R3HvE49h7OcTp5RZa2+Zo pPVV3MonTtq4YnJhgcSzMfMtJP4/SAdbDQ== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV13k4VO0bB3DJTyVRikyviCS8imSJ5NurIqGFlFZbmyKKEqNUiFDWUEqE lNdraZWUrSKyjV2WGcYYY2ZOKhKl3+Ovc32u53rOuc597nPf96Ps4ml7VFRE RGTFDBGR6eu2o9zG0iF7U/E1R/4SEWFiMHePSy9ND7Ys60VbxZmQm9ty8ylt M+Z8jZGIlmRitdGizHu03eC9kR5UojFh3LA2P5Z2BCfnTxhDl4nS5Ar9GzQf MNXag/yPMBF0JeJCOC0Y/7xYt6C1iokjPhTtOi0er3/OCnsezcLseMu0LyMZ SKHNbt5h3I+XDboWFop5GKub41v5kg2HoK7Oiohn2OV1IKVKngPPAu9VSd9f 4XWgfZwSfRBfo1urZswowRJ6Z25PFhdVZR9K6k3KkaakHxRYMwQ3P8t5+/jv wJJ2NZOr5KFsju6fHI9KpFZOpvXHDeNh+rupJSuqsWUT+36wHR8b5d48sMv9 hKrZnott+Hysquwq/KBZj1DRm04r3QWQE54SROvXw3lH0WK10wKIyE4qH9hY j3nLRI8t9xKg2YUWQdnXI/vBrBqajwABU/aH5K/U42EI69MoXYBP+vUzTrbV QyIswvFUhAD6DKdMcbMGaLkmmNo+Jvs32gkfCxtgUKOjacwSYOJ+/70n3xog suj1pqo+AZT/eNu8Hm/A5qo+G3u2AKffxOd8Em3EV41AA/dBAWYZt56k5Boh 3qhw8oZAAOO1+wb10Ai6WEH/vZ8CpK5wZJZENWJ1kIHp5Hwh3CVOMVp0GHjC urK8ykSIh2/kXmwzYKA7PlJxrakQvV7lt0vWM7DnW6j4PQhh20ZzfmzOwPoJ 2VQPMyHWZVRRAQcZ4K38Lim6VQgxU7V5qmEMvK9gnhi3FeLuGZbF2V4GSsRe iS47IURN+943UjebULfCiX05SoirnYOyJ+OI8yxmZkWT+3X5nn6f1IQFp8zM PsUIkdGbqBSQ3oTI2a0qi+KFCOC0XRkqbELMgH7g7SQhVn3fa/6uvwlZ+9o1 6WlCREk71PsZNeM8zfxiyhMh7MwdWGx2M/K3xj4KZghRtHBNff9QM6bikkSP Nwmhwprzpk/YjI/lYq+2Ngvxlf46iTnejHjlKhOJViGiCxR3dkm2YOcmyZyQ DiE+KQy8bdJrAX+BbPhhphCbv525Wx7cAk77e7NkgRAGqRF7U1VbsT/WOH2P OIX8skC/uZqtqH4yF8tnUfi73zv5vHYrtivsXEcRL1M72Gtt3AqrFcpbQuZQ mJujdfznjlasDT/R8liSAvNl7Xlbeiu8L+SbtMhQiKiXThBjtCL6c/zpQkWy PhXXfCKwDaWr/TZX6VGQ5DdE+Aa3Qd1te/oRfQrrOuZtuna9DeWbmZEiBhSi n4YWpMe1Icg2cYahIYWNJ+g3e7LaMMln+qcYUUhrdNm6u6ENt+Veje81peCS saYYyu24ltRv4WtBYcCyPl2uoh2aXh75vg4UVCNWRsVUtcO5qGBi5j4KRz4F +kvWtePrkRmMKOK+7Tq7RDva0S9npvFwP4Ueu5gpgbAduR4VwbUHKbQfstv3 fkkH3j8c2zDLmUL1mTYpn7MdSC3dOKHuRuJ3u9evUbkTntZPbhheoOCuodCp u7IThrv9HmQRq79yMI7X6kT2d5+Di/0o3G9vnNhj2AkqVKZslPjm4nf0LutO nHqisjuXTsHj1qOLg76d4PJ8PksFUtCMOXPld20n5ofVb4gKoZAZNvO6hv9n jLibvE+OoSDDDru0OvAzXtfkSI0QX4aUz9rgz3jGW7nYPJbC/jF5xw03P2Ne 8PejFLH0kdX6ux58xl4m649pPAU/7GNdqP4MK6V+a0YCBZuxXKOqJV1IfrE6 vDqZwqjrft6x110QKeRfnptJ4fzCyYXtpV3YNvVf917isfLkDZYfurDgpfRk +rSVu6P/buxC/Mj5C+sfUhjvdTT8wulCXcaKoONZFCYOHA32k+nG7LZI0WeP KYjs9lKMdOuGp+jH30q5JL82X7MtWNwDrdEs/+0vKJiUeC74oNCD7shqxzDi 08b7GjqVe6An0bm4nJiho7VdTKsHtUVmM/RfUrizlGG5d2MPMuUaiuULSfx/ LP3n94ke3GwI+tb2isLm7OfalkU9OCKRtNngDYWA+QOSrIO9CAhzS/KrIPHu fLKxy7kXe/PfWj4i7ki/7NN2rBfLDezbWokNDBW6ar16oWOWE7r2HYUvh+z+ LQruRWB2DYaJXf8ts4zP6cV67SWquz9Q2Gaecs3iVy8U0i09JT+S/H/7t0ib DROKS2VTFeooCKyXPQvfyUSIr4mHOXHd50UnTO3I+qPkxV7EUT9/12c6MCGZ 6y5WQSyj33Dfx5WJkfUW/xyvpyCf4wMZPybOt9s4Pm4g+X7nzSWbDCasOhS4 i5oobDi/43fFBBMLdVvFotrI9znJpVv+ZqKKcTQ3lzjf8cpE3R/S977YoI5Y xfLpjw4xFsp1PBfPa6cwW2HxV0qKBct/eQ+uEzeX9XD+Ws7CvAJ3g0sdJN/n nW7wtmIhw6r1k/1nCnczItOX32XBYiD8fnkPBcdNa016U1goNrrY0UOs0tfR fCeNBb5JwuQE8SOlleIyWSwESYeO6/ZSeHan7ITIExYGVni2pRF/ih5b1V3J QjftqRGdSeF3gFNhwjcWWGs6ZZb2UThsr1c7x6oPreWWfysPUHD6yya10KYP U7sfJRgSO7OOeh/f2Yc9M45QNsRHPBJp7+374H5fy82f2C1k4uhlpz4sLEgK ZBD7PC+dGjvXB7pG+OZADoVwWRsddmofZE+YxdcMUnjecjTu7Vgf7GsXeuvy SL2asXwNfvZhRyXPYxPxyVXMupLJPujPjz2wm1gxZL9EmUg/RqQvSJ8nvqa3 40qFRD/MduR1FhLviVvnWaXYjyNShrNMhin82DnXimHej78S5/1ax6dg9Clf lJPQjyVjZp7SQgoKD+hFd2/3w7TMLVGRWOSC+Vm7u/3Y0FP3ZBVx1fIuVmla P5Ls6RVWxHvos8qSc/phoeNlE0p8VvNw4K7yfjRaOkv+Is4Jm/urWNCPF3mK 9C6K1Pstx0bjNrNRvvfbP/QRCl2XW3wVLNiQWuf24hpxUvHmiQxLNmwD2Mqx xAv0lv95vp2Nmp45PY+IRZczZ7c7kP27Xw23EA+I7FdQ8GBDbYO8y+qvFLKL bTZl3GLDusCf006sr6cf84zDhvLTH9my3ynoJMpt1xliw8S0p0+RWHPih0TO MBvBnhkL1YmXlRYFp39hY9WmQUdjYgnrjRdiJ9j4ojqcfpiY6Wrl6CU1AJer 0r2ZxOFxzqu0DAaQ7mtpqT1KoffrjY/pIQOYGXfux+oxCuw/Aan2YQMkHzP1 DYm5ku6+syIG0HuZ4w7iL2rbVpyKHoCF6fMPO4hFDohf0U0eQJ3LSnUvYpWK S+vK8gdg9CUgK4/4WJxnVs/nAYTN7ivV+EGBv3ZXCE2XgwSzh7Fzxyl8fMhW u6fHgdX8yroFxA9pF6qWGXJQmTdTXJ7Y6U/KXHUTDuj6vUdViZuq+TEG5hxE y4YOmxAXOYel2O3n4P5Y2wIP4utRJS9vXOXg5H/u7I/EasOreDOaOMiaKvY8 /5PUm9n1ma9bOOi5X/+bTvxN1cv5XDsHB/ZrhV4hLj38pJ3bzcH1BkZEJPF+ hkFlPZcDv5fGhx4Q33yFjHtTHIQszV1eSzwauuuwkeYg6K+YDkoTFN6pnmN4 XRmERLaT7kvioKwih19Bg6jUHXZ9TWymKdIbem0QYpfVYkuIy7QjhlMiBiHi UMiuJH5rnCZWe2sQjlvDXdqJX+6sNdDIHsTJiyPl48TZASuSWYxBuNUprTSc JPWwucXVVpWL8FfRf7KJIy/dUG1U48LL9fjhXOJw9S0DOzS4eD6ZUlRAHBLw 7JjNai48y4xOFRLTVePctq7jQkf9wH/viY/77PQ0teZCL9HoZS8xFtX4a/pw 8fRrHrXgFwXKrjRG9B25/zFxe0/isawQ95cfuMh5Zb33LPHU5DYL949cVMbO 2nuOWDKj5VdLHRf82P7tdGL177zjjzu4MBw5syyU2Cle1nQnxYWCQ6N1CnFD 80nevSVDMHZmd1QTP7GX3WR0ZggfN3XrL/1NIVY6kFviPYT7MT/pSsRnP3Jv mJ8fwraD20qViddsKG63ow/hBHVzkxpxvqrr6dMhQ3hXUq2nTZz7Lf92+u0h iKWZVWwkzo6x/jKvfAj1K5i3XYjTa4Pu9cnwoGno6J9GHLlm8uB9WR5o4xsu pxOfv3VW4aA8D1uYLsGZxFsPOSe3LOVhY2pw6GNiId/0dpU6DyZ62/0KiNdJ TsTnmvIg56AlWUZcu80r0v8kD1WCx+M9xD8qD9Jlynl4z7A1kpsi9dHO/Fz5 Ox6+FrKbFhOb92h7niXnoNhSJQ8accJ3UVfGJx6KTG4lKxDrKT/eFtvGQ5rq Ha4K8Vn/UZqMgAfXWMEmbWK+1s3CBfLDyOz7KG5BzIwpGZ1/ehhnNjSMnp32 VZuiWK9heHEstXyIWd6fLy3yHsaEdaPzOeI++x+z5C8MoyNJstqXuJ+mvUTp 6jC+yFlHBRBz0lJMVyUM42JrhiCEeLjgYqjl22GIJ/pOJRKPNa6nXZXiI3/E N+4VsYhH2w+jBXwkKpo+KiKWmO3dOrKQj9wa+eLX0+9vmh3nTCPrjVKsN8Rb suWl/lHlI6Vo4bJy4viro6Iixnzc8db1riZeuzaPf/EoH3YyO7w7ib3iVUr9 ivnQZOj/b5zY9paL28wSPjiWG1qnrZ/wQOZGGR9R/7v/8CfxRKLK0dQPfIwb eG+ZJA5JVpGobODDX9ydPkV854HK7kUDfMT7z/0o9of83/kq3Nx5Agg/ugjn Ey+uVZnPPizA42R6wEridaPN35ycBbD6GaSqTuywNLSt25Wc495IfJr2HY/h lLYTAqhZ36JpEitKPVtVc1aAGSezc7WI1XZssXpyTQCmDq1sDbF+4/Frl3MF MGp1ub6e2K4l55fClADnrucU2RBfynKfqBcR4sN42c7txI/8tMavzhRi678O nGn/WprzjTtbCOWEufN3Ej889i/v2UIhhh/FHbIlnvjxuN1aQwjRkRusPcQP lmQ9C9gthHOAXrQj8VfHNPeubCH63u1P8SQeTfyfvvN/QhSvaZb2Ih6vd/s9 kCdEt8X3y9P+A92b1DMh5gdquJwhllxWkSdaIoRUkOcyb+IVTPZXdXKO69fO jDw/HR8ndb9zk0Kwo2NWXCQuccoLkbImcyVt9YnrxEX17lY92ylo5+g1TPuF qeaC3F0UvksxDcOJcxQy79rsJXOfu5p4xHR82+88jXShYJjilxJJfG7nNZYE OVc4/+f/Nor4742HNswic3hek+DNrel45y2Z2faIPLdj6V8JxCqK7VUP/yV1 emTSd9ryv2x3mxeQvhNQoZNILF649VRIMfkPlcJSkohZ2nq3Z5K5UsNR/VQy cVfKyOGmFtIndA9WTLt9Xp5qOpkT1xWa/XWXuG5YI9+MzHkxohrV0y7OUqq8 MkT6YI6LagpxoVx35C4y59T8rec/7achd2yVyRxC/6+oftrZrrI9paSPL2UN +t0nzmQw0qNJX9VYGVU37dR/ot2cSJ+QT+KrpBLfzbfR1iF15udFEd9pJyrN Hf1Drm0qNdXT/j9APMa2 "]]}, {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2DGDwwb65sbuiS7LFHsZPKXkv2Sk5 Bc7nmOK58MPHJXD+9gtG7u5y6+H8iOY7tw53b4Hz8zcW6874shPO/zTh2glG xv1w/omDx/aftzkE52dWevJGvjkC5x/kNPq/Jvc4nL9s8ZF/Uqqn4HwHsb2L gtedgfN1j9/ZcUzrPJx/xSH43cp3F+D8HK7sS1cNLsH5p2+E7+XruwznB7tF PHzy5Aqcb7agO3yByjU4/8G/yVcy6q/D+U89zy8WO3wDzt8w837lRcVbcP7S DuZOzarbcP7X5KhXabvvwPncLm1BG8Xvwfk1Ak95Hsbch/N59mkzXPd9AOfb lvn/PfwLwZ+zpGex8pyHcH5cqMlZTu9HcP7Wq6mT931D8C3PbGB6Nu0xnK/g mvZ1sssTON/UxHTilmcI/v1PvScXtz6F898YB7ZKGj2D89Ve675ivIzgH1Ep vVTQ+BzO779yNTlI5QWc/z74wESmIwj+plBRZ8vCl3D+4rPNcx8JvYLzvx+P qRY6hOA/mLj/q0Deazj/20VrySa+N3B+wRSlA5V7EHzxs0oCT+LeIuL36po/ Mv8Q/E/xC3PurHoH5+9PWN/K5/Meztd2iLVlX4bgT5fn/vr/P4IPAG/FGY8= "]]}, {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1nc4V18cB3BpKaMQRZKVIiIrqbwluyikX6lsolSIIpUkUvZIyWggpSVZ SVnJiOwRsvf63q9ZJL/z/es+r+fec+8578/n3OcIW100smVmYmK6t4SJiXHV sx2syR8yUX2ZPdS4uDiLgbfHrDr4FJDrXacbMzMLXtaG4A98GuCISTLTHJvF jt3rkuL4jiK4V5CjuGUWKtXyqeF8NtD3CZS4mDmL/JgixSA+V1wL/Rp91GkW Pt4B7vf4bqOfYsfzsRl8EbDLPJZzG7c0Kk07+2bwO0ttSuSkL0zPzX/f0j4D x/Hpi59i/cD3ucGk9scMjp60ODO6+S5CCoNi3qXOQFxR8ZiBeDDKvrDE2V+e gY0rje8uXyS+y724fnDVDOSXhl9Nc4rE+enanfuYZ8AcrtDaWhKJpm1GVrvn p/H4nUfsjsv3ob92vvvI2DRahpdurq+NwvxQtfxczTQOW24Q2xwYDRvJF4ti cdNQMdi/I+NfPLa4fR84qTINll89we0mj/EphjXeXWEaTef8aCvfPMbtA7qR cTumkfPV9vgb6SdY8e7VcibRaRzvTuFjansCMaEIsy1s0wjfpBibpPwMazc+ EenrmAJLpO5Tip6IUnaJg62BU5hX7pp/yp8Eb6GW9bv9pzD+y/2Y8YEksOjz Po/1mULd1hesmZFJeDKxscv16hTiP6247LnrOUbTb1fY209BoadIb8X1ZLxU KB46pjkFCznVqY0sKfiWIsvCtXQKxk0NBpWyKaAUwh3XL05C69r5lzdOpIAn MzRAeH4S27/FmnWlpODt/Y5fByYnMXNivvS5/itwqwly5/dMItA7O25nxGv0 1wvlhhZPIqtaTltb8B28Uh7esA2cRPDQqI6U1jvsYZJ9sOLuJOyYk/U4L7zD msbTV175ToJXYaNB6+d3sLMr82DymsSn794pWTtSEdY8M93oPImNMmffH/yR CrdoS42dxyfRMq2Sd4k9DcIS7ePuW8l8mTeo2QmnoeZgl/FdsUmkcUznH1dM g8v5lP5Y4Unc2/qucN/pNEisjvCp3DgJlROi31a+SYPenRmRo2snEZ3LWhlz 6AP4E6V9Jv9M4LhPW0tRQDq+HM50M6+awNpOcakzT4llKpWjKiZQttf5+uqs dJw9oLWtumwCKjPLhQy701Gh++Oq/tcJbHSQsW1XzsDcW7VL5z9OoN3gFu13 XwYmLH93qiZOwIZ/27IdalmYbYiLZ702AYErLiY1JllwYvFuf+wxgYa63Oeu 57JQ0Hi/XOnKBLSCDHU/RWWB+dzLaEeXCWxl8gzWGctC7IWKD7P2Exjuq9xg /SgbW0uetvgfm8DF95ekH059xCUJtyYv+QmM7+2qK2PJQU9I2o47OyfgWGpw dV4gByyiAjdDZSZg3yFRYqaZA7410Stfbp+ABXunxZaoHIjLadjSRSdwxOFQ ZNquT7iyY/f5X+smICu8Zb7iai6Oe14K5f5Nx9vX4U//Beci3dmqxWSGDill Jh3ZhFy0Mwn9jJ6iY9vh1siI77nI6vAdE6fTIXQ9bIepwGcImLrtMxmmg/Pn guXA58+o5H3ZwPSLjonQxtIlS/LAVl/R51dER67je/Ty5iHtm7ZyawEdd3QC M79J5eG6ArPOznw6BJjUEwOO52HZ386o7lw6NC++8eJJzcOJyJmsE5l0VIir x0TK5ENnhF/x4Uvy/eV8Ri/a8xH+zMhWJ4yO5Zf8gqKH8rFTN82rOoSO4c7J 0ntT+djLfobPNJiOjNwfOL+6ACWTPkXOAXToud6WllMqQF5dXl6aLx2uPTSW 3KACiI3t6va4Skdpwbe8qr2FuFSUE85pS8fzir+9QdqFWNroaVNhTYdvk9zq Q0aFsOfocPO3okN9LP5o6ZlCzFEyRsssyHo3XBnKDy/Edq8r31efpCP14lbu tMFCCFRdjzQ0pOPhJn+7yMgiTCje2v9ZlQ4HD132E6NfsWDsEFUmQEfKRs7T ZjNf0W8sH9S6kY7Rz82vrZmK0aQ19t84Px0XmO0PXVhXjOaMOltePjL/AL8A n73F8PH/ddCJhw6vuKJVbwOLseLYY189DjruF+xbsVT6G7IeZJ2KYKKjYJXc 4uvzJeh0o04bDFDYdlQ26557CbwF7+t79VMIjd9x0d6nBDKBQUzv+yhYyG/v EI0uwcmtmm94eyn8OyWW9+hrCb46m7OOdFJQSeX18t9YiptuZluzWiikH5v/ Z11WiuAZ/U9NPyg8T/j6j39LOUwXL37j/kjByfdoF2TKMbg/6dPVbAp7zvQW 2ewuh4ZMt0J3FoVqyWV33+qXo1vR/X1aJoU/7w9wq18uh5To7uIT6RQO5Rdu dSgpxwf1y8N57yhMtuUfyXL4jsXA9dxDzymo8X5+Zvy2Al4S5rSoKArL7vNc 1MyuwMP2XY2biEu5L+zZVViBrTnDwkn3KRzm3FzP31iBA9EX+9MjKZixeS/v XqhA3MAw389wCp7MmvZO+pWoFHZqkQ+hkDleIR00Won3jmvdZf0pSJe0ZX+T rILULq4KBU8KvOPnxkIVq6AbW7FYdpUCE8+88Em1Kghv/hFuTlxvxRdAM6kC q4J+Q4AHhWv/TE5v8K4CLbK8cPAKhQrFqiVnm6pwZpnK1AdXCoq1Fkkr1KuR jA9Hgy6Q8WrG4y/Hq6GR/MZKxZrC3OOeuLTJavSI50cMW1EQXryk/+l3NR5e ubYihvjC58jXFcw1KPvJnPrXksJKlcazNN4afLb/wlZkQeonf2JAATUIFjP9 fNKMwpMt5p15ITXoWbc84tMJCo6rz9U2yNYiQrG6R8KQ1PMzb6aeUi2i/z1z 6jlCocOpMDpvTy36hBv2xBEbNfFZvtSqBb/b5UBOYuXEUtq1U7W4rOq3dsGA 1ENVnF3MvxYbup66dByiEOvcpe3SUQt3nmTeah0K35v/+8wRXIct98LfmOyn cKtlgOdsRB3q0yqVBImV265cKH5YB+lXJbR+NQqJHQ82X0uoQ6KQKeVOfK2/ yXsouw5cZQlbH4PUZ+o/ra89dXCw3nxoah+FkDXHqzx21+P9Cav/8lUoGGsd 7+rtrUdh5thUowKFHO6dVT1D9VjjtV31DbFI16rP3eP1EC2vfOFDPOH56WHn 73ocFKjrkiUOfS94pI2tAWL8Ax2B8qR+An1f6hQaEFZ6ZkpPjoLGpHNs4e0G sIc45LfLUFB6EvDfE7FGaMdn25hvp5Ba4OXBKtmI4U8Nx1WIt/dcirks0wiD 4mlHHmIh8VMdh1QawWz6feq7JAXW11Jn/hxuRHlBkpcKcWdW5WUjz0ZoqHXZ b5KgEFC1JmpZbSPC0x5+/SNO7v+LqLf3aoJz2C/FlaIU2EarA67cboLswqNj IyIkz5/sB/zuNuGtfVpQFXHohzvvEyKa8EP9qepDYjV7z+D25CaMCZ5+KUn8 tMZK52h1E1iaecONhSlYJe7MhXAzjEwV9mVsptCnW5XAW9QMHbsv59IFKIgF bA0JK23G0UubMmOIbSq8rrL9IPdft/D4EHcbyBoy/2zGZKkkjxFxu3HYv7Hx Zvw3sI+TvpFC82njE8X8P7HPn5OSIy53buJwdfmJez+vVRXzkfyiOzxqhFug PbzMSGw96VcJgRa5rS1QF75ZtpZ428fjKpFSLUiXDjNc4KXwuLlm7tiuFsRw qkY0Egev/+rZdqgFb9dotN4lPn//xfWBKy1oU1rlMslDQTLM2XuhsgVj+Tmm tesoJPkvvStxtRULRclyuVwUuHr9b+zwaoXkfJbbG+Kb4HCVv92KKjvnr/HE pjMbzPcFt2J3cs5tb+I1NjsUDZ+14qHZsxBtYg+c6HIvbwV9V8K3Bk4K+jNv d5fyt0HAQdN9bi2FaWvTYbtPbUg5YMdivYbCZe557ub8NuhYUSMmxDOFMft0 v7Uh4HRWiw7Dwr9Ct9e0wUu14ecO4t8d5ruo/jbE/tl/ep6D/C9O2t724PqF 4moHpyhipqNOgoEOv6DSo3W7np30l4af0fv17dgp8sLuAhuFvXkXOb8JtMN1 08HbNsQXVE5Utwi34+OG+pemxLWyUgbLpNqhvsqLTZv40aZa3f/U2rH+xV0Z IeJts5v2L9i3QzHgd38dK9kPKRkyujnt5PzgQlMjvra2j63rVAc0oh9wy64m ebekqbVZdoCyChPdRvwz4aZrk10HNinm7xYiVtol0Fbp1IEJmRT3tcTUaeNX Obc7oC8ppUZfRcH6VYFu5OsOtN2ppH8g1tOK99P+24HtD1K/7CNm+7KdqUm/ E/LBKnOWLBTGDgml3zvSCe1C8z5T4h+t6+xVjTvh9u9WozFxyJ+FqqTjnTD3 TC3XJOZSrH7sat0J5QXhOQniDa9dweXRCeMqOefJlaTfH32+oZ/Yid+bX8bf I953+fBC0VwnLL5ZjZauIPU5O+ipu9CJzb7eEUXEqebecz8WOzES2qT6hVhE 98Psz2VdGJLb9OwDMYvA+gkaRxfWr89+FE9cX9Dev1G0C1t43A3diB3ZL1Rf OtgFnZAbeVuIYxMDE0Rju7BiNpwKW07B/ID83o74LkTWycgEEYt0/6x/9LQL b/p+OvsTv9i8dQVXchc8N+ku9SJOf1Rgz5TWBUemvccciStCZ6R/lZDxOekf tYkXrllkR012oW3XvMUSYjMThcpVB7vBziPu7bWMnBc26j/J1u/GZ02NXE9i yy7bS2eOdMMh2X/uCrHN+Qd8xSbd2L3f46YTsYPvnO1Ni25oJGW/tyR2zcj/ N+PWDb24uGQN4ns8+rK9T7oRZXa2mo04o8E24stMN/6+Nw9LWkr+V0tEd+JP N6RCGrOeEZ+V7vyRN9+Npx/9Oh8TC/qari5g6kG0ZoDyI2I/hcPeRat7IG5G Yw4hPhahfLFUsAfSgXGL7sSzR1gP1mr14Gh5e5AB8e6KVOb+qB7U7Fn/cpGZ gsAzz5zY6B68YMoXXCBmctdyMY7twV4qNGqOuFS0rSv/aQ/cIhMCp4mPea4s iHndA9SZhI8Qu0iaeRkW9iBPZR9zM/Frf9a/uWM9kJRvt0sjFtK0m47Q6MVY 3LZhR+K2mw1XBLR7cYCXf/Es8cNcjblE3V4kioTxOBBzKoguZhj0omktq7Yt MbNoJ0vz8V4oTbHmnibuYzIVEDjfCz8LmTED4pRc/QOJ93vRKeBgLUesqKAY lt7fCxtvK/OFJRRkH/AayA71ouGqW/08seTc7OrXI714bPJJb45YKD/ndgLV i/28bSqzxKsPqbmHz/WiJfK4BJ240/qguRNHH7TXuqr2Ed+LsJSWUuqDqvaQ +g/ijomgsgTfPuykEm4lEPcuXnti4t+HTKkS4WfEg2yOV1YG9GGom6vwCTEl rrflXGgfDLcKrYgnZjq5wlsupg+1f3/HPCQWKbqhXJDaB1a11oUgYruIi8nt rX0oNdoU6UE8Km/oyyfXjxXLnZuNicue94rHKfQj8X5hpRHxcz73UqFd/Ygk 51BDYovFeNZte/vBHReVdpi4rnw0TEmrH+8Tk6IPEudY+scbm/ZjhIcWdID4 bkheVtCtftj/VWJVIBYfkR5eUteP4Y+NyuuJ2Viqkj419EPJ1PIgL/GkmJOl W3M/MlkzzXiI883Smgd/9cPwS84dbmLTWqWSqsF+0Lds6llDHPwRiXH/+lEu mPiFhXj6jqHZbskBOBpwL5tnovBVzK3WyXsAEcMeL7qIfZJzjv/1GYCUhvp0 J7G6JFPHHb8BuOhFqzNcIBMwEh8wAJs79PZ24i8qT5dV3h+A6cg+wTbirCOV ShIpA8h+3JHZSJxybUtMV+0A9A9y6lcQh9Q3WBuJDUKR/8RMNnHgjSCxGvFB vL1+xI7he9s0+w5LDKLDKLsxi9j3Wrqd/o5BaP5pys4k9hSLcNBRHoTUN/1b 6cRnXI9cVD00iNedJRKpxFj3/aqk6yB+8D8qTSamGeeHMX8dhMKuZfIPiWeS fR2zvg1i1T3XtAfE/+b1tB3LBrHb2FCOYbbEhr8NPwZhMm8gH0W8bWr4zMuf g1DxNVSJJLaI5FE9QhvEyfuSp0KJq+vPDsfxD+HI0b5Rf+I0E54Du52HUJyl LutJHL7GazDv0hCUXKSrrhK7lA0GaV0egpifzQWGd+7LbTb2HMKVV5lvPIhT xawvXPAdwnqfHhl34reTqdEJ0UM4v3SLuhsjz7BDFHvhEBxCvsdeJE6o9Inr 5hrGH+bEzbaMPHfOn3rMM4wbLDplNsSX77sInNowjHP8SpcY1jltGdOwaRhb rGkl1sTjo6rRpduGkeFb5WpFrMw2F/lWdRh8f9nbzIkr9ZwCr54dhte6onZT 4tmSU55chcOYOxOSbEgsaKzlVvh1GB4HeKwZ1mqXuehSMozyh/WCDEdNMVvX Vgxj9cK/qCPECsIv9cKbhsFcsHD3MCOPq9N8XGPDqG/3vKpPPCoVnM25YQRq abitS9wZlje99sII2HLW7FRn+JZ+TrjTCG4k6C3sJ+661Hpj3aURCH5/U8Zw t8nsyg3uIxhUH7ViuIdPhn/zrRG8adR8oEbc/zReVTpqBFWGRitBPPL++h3d LyO4xie0bC+jP2r28N3iGIXXk9SzSsRM55tmd3OOYsWGgL0Mr2a51EjnHoVE UyAHw4KqKRGWfKM4n7D8gyKxZsoGjv1io6jOKF1QII68Nc3MpELeV3P5kTyx vPy70eu2o9hj4UOTJXaKFMn3yB1F0B7DJVLERvetHJbmjeLO9OX27cSKUc+4 ggpG8dwk+xPDcw9EbJ98G8VQRtBlhn1jRFaXVI8iJuPmmCTxo2ciR9f1jeJh ilunBGN/p4oMvmUfw9+drC1biddXiqztNRtD/rjVejFGvafrJy0sx+Dsbz4v Snx8052mX9ZjaCxw7mD40fmR+Cb7MXB9a0xmWJAjXfq7yxiqpp7sZlj8sObB NL8x0r9bLUUY860543fz7RjkxJ7mCREbN7z+K/BvDIY9olmbiG8kO85VMY1D RFkwnuEXHlK/by0dx7MP0r4M/930enKQZRwhDQHGDD+3ezWczj0O+WJ1ugBj /bMvmw9JjOPY0QBZhp/xJ6dfOzqOB7tWfuEnnjB/6tiWMo5Z/861G4inHyxX tHwzjujc6YX1xL+rHBb63o2jppZvhOFFyAXT0scRdjW4mGE2oaJ3zHnj2H9z myfDWzp7J7bVjWPgFc8QLyMfi20ebvPj2JPvV8VDnGfxzpfjEA3Xe4995SbO qXI82G5Aw6vhxTSGM1UlOd8a0hAomv2U4dcCSbH6/9HA/9fEi+FHzY8+BFrR cJqmuYdhtyN+Xas9aGDnHc3gIt6udnrfyuc0xAvNZ3Ay8n7Hv7TpBQ35sS7P GRYRbC59/oqGPQWzUQxv+Gt0VOs9DdM1ku4Mr8jWOeebS4PVR7k9DHfJKEQv raMhp+lL0Vritni6WV0DDSlcrBkMN7O/E0topqFU1uY5wz9GJFLV22nY37f3 LsO5yZtLvIdoWN/od5jhbN5fgYajNNjUKO9n+IPvIyNhGg06+rNyDKdY87Tn T9EQcD+al+Gk2tqE0FkaNHSvszD8ZH+og8Ucef7Q+bk1xLGp+jKyCzRohTuM MvxgM+v04iINIxwu7Qz/DytqMKg= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.05}, 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->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.759822002466725*^9, 3.7598220566076646`*^9}}] }, Open ]], Cell["\<\ The solutions of the logistic equation, corresponding to positive initial \ conditions tend to the stable equilibrium (in this case, u=1) as t\ \[RightArrow]\[Infinity]\ \>", "Item", CellChangeTimes->{{3.7598220605408897`*^9, 3.7598221219144*^9}, { 3.759823770035509*^9, 3.759823774804782*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["The spring problem", "Subchapter", CellChangeTimes->{{3.7482439287334566`*^9, 3.7482439366929674`*^9}}], Cell[CellGroupData[{ Cell["\<\ Application of Newton\[CloseCurlyQuote]s Law to modeling a spring-mass \ system, i.e. the resultant force is F(t) = mg - kx (gravitation and spring \ force with spring constant k)\ \>", "Subsection", CellChangeTimes->{{3.7598232532105584`*^9, 3.7598233206584167`*^9}, { 3.759823809809784*^9, 3.759823813483994*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"m", "=", "0.06"}], ";", " ", RowBox[{"k", "=", "14"}], ";", " ", RowBox[{"g", "=", "9.8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "x", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"spring", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "''"}], "[", "t", "]"}], "\[Equal]", " ", RowBox[{"g", "-", FractionBox[ RowBox[{"k", " ", RowBox[{"x", "[", "t", "]"}]}], "m"]}]}], ",", RowBox[{ RowBox[{"x", "[", "0", "]"}], "\[Equal]", "0.07"}], ",", RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "0", "]"}], "\[Equal]", " ", "0"}]}], "}"}], ",", RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"x", "[", "t", "]"}], "/.", "spring"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\