(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 30823, 774] NotebookOptionsPosition[ 26636, 674] NotebookOutlinePosition[ 28588, 725] CellTagsIndexPosition[ 28460, 718] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Next we model the PDE governing population growth u_t = ku (A (x) - u); k, \ A (x) > 0, u (x, 0) = u0 (x) >= 0\n\n", StyleBox["Question 1: Changing the carrying capacity", "Subsection"] }], "Section", Evaluatable->False, CellChangeTimes->{{3.760365163191032*^9, 3.760365194290694*^9}, { 3.761037507848331*^9, 3.7610375161057653`*^9}, {3.761043301286501*^9, 3.761043307812264*^9}, {3.7610433662566767`*^9, 3.761043369319043*^9}, { 3.7610435843737288`*^9, 3.761043590646963*^9}, {3.761048213618319*^9, 3.761048231944899*^9}},ExpressionUUID->"5dc853ff-e79f-43be-a65d-\ 8711efbcaf28"], Cell[BoxData[{ RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{ "Input", "[", "\"\\"", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "u", "}"}], ",", RowBox[{ RowBox[{"uLogistic", " ", "=", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"First", "[", RowBox[{"Quiet", "@", RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{"k", "*", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"A", "-", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "0"}], "]"}], "\[Equal]", "u0"}]}], "}"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "t"}], "}"}]}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Evaluate", "[", "c", "]"}], RowBox[{"(*", RowBox[{"Carrying", " ", "Capacity"}], "*)"}], ",", RowBox[{"uLogistic", "/.", RowBox[{"{", RowBox[{ RowBox[{"k", "\[Rule]", "0.04"}], ",", RowBox[{"A", "\[Rule]", RowBox[{"Evaluate", "[", "c", "]"}]}], ",", RowBox[{"u0", "\[Rule]", RowBox[{ RowBox[{"Evaluate", "[", "c", "]"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"Evaluate", "[", "c", "]"}], "]"}]}], ")"}]}]}], ",", RowBox[{"t", "\[Rule]", "time"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "4.5"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", " ", "\"\< \>\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"100", ",", " ", "\"\< \>\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "\"\< \>\""}], "}"}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"time", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"ControlType", "\[Rule]", "Trigger"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellOpen->False, CellChangeTimes->{{3.7610474479676332`*^9, 3.761047480430879*^9}, { 3.761047577186017*^9, 3.761047577566463*^9}, {3.761048806409416*^9, 3.761048820505254*^9}, {3.7610489096435537`*^9, 3.761048915402979*^9}, { 3.7610489532538843`*^9, 3.7610489768658123`*^9}, {3.761049019640696*^9, 3.7610490205494747`*^9}, {3.7610492128773127`*^9, 3.761049227770907*^9}, { 3.761049372149156*^9, 3.76104938977525*^9}, {3.76104946826847*^9, 3.761049469214862*^9}, {3.761049508738719*^9, 3.761049517051133*^9}, 3.761049719435978*^9, {3.761049787061378*^9, 3.761049805106124*^9}, { 3.761128403073928*^9, 3.761128493115204*^9}, {3.76112853727108*^9, 3.761128563473421*^9}, {3.761128673286868*^9, 3.761128693989819*^9}, { 3.761129583453948*^9, 3.761129588238768*^9}, 3.7611307802574587`*^9}, CellTags->"Question1",ExpressionUUID->"2764efff-4ba9-48d7-90c7-2b465361f6a9"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7611310034654217`*^9, 3.761131003480562*^9}}, CellTags->"Question1",ExpressionUUID->"e449363b-c116-45c4-b2ff-033ff2032fdc"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7611309595657377`*^9, 3.761130962554925*^9}}, CellTags->"Question1",ExpressionUUID->"803e6357-e581-4d21-a4bc-7044b6db3d57"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.761129684808394*^9, 3.7611296865372143`*^9}},ExpressionUUID->"5b46ec08-8219-4ea0-8a6c-\ fda31222cbce"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.761129524990059*^9, 3.761129549033195*^9}, { 3.761129718626287*^9, 3.761129740895648*^9}, 3.761131006732749*^9},ExpressionUUID->"7260f9b8-ff4d-462f-bcd5-\ 68f9aa590cbb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"nb", "=", RowBox[{"EvaluationNotebook", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{"nb", ",", "\"\\"", ",", "All", ",", "CellTags"}], "]"}], "\[IndentingNewLine]", RowBox[{"SelectionEvaluate", "[", "nb", "]"}]}]}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.761129833069627*^9, 3.7611298884134274`*^9}, { 3.761130872955041*^9, 3.761130899289362*^9}},ExpressionUUID->"e6146f2a-12b4-473f-a953-\ 168270203848"], Cell[BoxData[ ButtonBox["\<\"Click to start Question 1\"\>", Appearance->Automatic, ButtonFunction:>($CellContext`nb = EvaluationNotebook[]; NotebookFind[$CellContext`nb, "Question1", All, CellTags] SelectionEvaluate[$CellContext`nb]), Evaluator->Automatic, Method->"Preemptive"]], "Output", CellChangeTimes->{3.761130754368479*^9, 3.761130829341069*^9, 3.761130880213904*^9, 3.7611309159060802`*^9},ExpressionUUID->"72e49be8-b52f-4dce-95b0-\ a38d6b2f0cc3"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 2: Changing k \ \>", "Subsection", CellChangeTimes->{{3.761048235768669*^9, 3.761048251158924*^9}, 3.761048295704382*^9, {3.76104843458711*^9, 3.761048438073077*^9}},ExpressionUUID->"f1ce7a70-6c32-42ae-96fd-\ 19ffc2eecdce"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"k0", " ", "=", " ", RowBox[{"Input", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "u", "}"}], ",", RowBox[{ RowBox[{"uLogistic", " ", "=", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"First", "[", RowBox[{"Quiet", "@", RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Evaluate", "[", "k0", "]"}], "*", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"A", "-", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "0"}], "]"}], "\[Equal]", "u0"}]}], "}"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "t"}], "}"}]}], "]"}]}], "]"}]}]}], ";", "\n", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"3", "+", RowBox[{"Cos", "[", RowBox[{"2", "*", "Pi", "*", RowBox[{"x", "/", "50"}]}], "]"}]}], RowBox[{"(*", RowBox[{"Carrying", " ", "Capacity"}], "*)"}], ",", RowBox[{"uLogistic", "/.", RowBox[{"{", RowBox[{ RowBox[{"k", "\[Rule]", RowBox[{"Evaluate", "[", "k0", "]"}]}], ",", RowBox[{"A", "\[Rule]", RowBox[{"3", "+", RowBox[{"Cos", "[", RowBox[{"2", "*", "Pi", "*", RowBox[{"x", "/", "50"}]}], "]"}]}]}], ",", RowBox[{"u0", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"Cos", "[", RowBox[{"2", "*", "Pi", "*", RowBox[{"x", "/", "50"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"3", "+", RowBox[{"Cos", "[", RowBox[{"2", "*", "Pi", "*", RowBox[{"x", "/", "50"}]}], "]"}]}], "]"}]}], ")"}]}]}], ",", RowBox[{"t", "\[Rule]", "time"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "4.5"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", " ", "\"\< \>\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"100", ",", " ", "\"\< \>\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "\"\< \>\""}], "}"}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"time", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"ControlType", "\[Rule]", "Trigger"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellOpen->False, CellChangeTimes->{{3.761048361095367*^9, 3.7610483694681673`*^9}, { 3.761208211070208*^9, 3.7612082405921392`*^9}, {3.761208351374344*^9, 3.761208389369495*^9}}, CellTags->"Question2", CellLabel->"In[1]:=",ExpressionUUID->"2632a510-6921-4c89-a915-bc68f88a6300"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`time$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`time$$], 0, 100}}, Typeset`size$$ = { 360., {123., 127.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`time$2150$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`time$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`time$$, $CellContext`time$2150$$, 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[{3 + Cos[2 Pi ($CellContext`x/50)], ReplaceAll[$CellContext`uLogistic, {$CellContext`k -> Evaluate[$CellContext`k0], $CellContext`A -> 3 + Cos[2 Pi ($CellContext`x/50)], $CellContext`u0 -> (3 + Cos[2 Pi ($CellContext`x/50)])/(1 + Exp[3 + Cos[ 2 Pi ($CellContext`x/ 50)]]), $CellContext`t -> $CellContext`time$$}]}, \ {$CellContext`x, 0, 100}, AxesLabel -> {$CellContext`x, Style["u", Italic]}, PlotRange -> {0, 4.5}, Ticks -> {{{25, " "}, {50, " "}, {75, " "}, {100, " "}}, {{ 1.5, " "}, {3, " "}, {4.5, " "}}}], "Specifications" :> {{$CellContext`time$$, 0, 100}}, "Options" :> {ControlType -> Trigger}, "DefaultOptions" :> {}], ImageSizeCache->{405., {168., 174.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`uLogistic = (1. 2.718281828459045^( 0.01 $CellContext`A $CellContext`t) $CellContext`A)/( 1. 2.718281828459045^(0.01 $CellContext`A $CellContext`t) - 1. ((-$CellContext`A + 1. $CellContext`u0)/$CellContext`u0)^1.), $CellContext`k0 = 0.01}; Typeset`initDone$$ = True), SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.761208426685051*^9, 3.7612972713829823`*^9}, CellTags->"Question2", CellLabel->"Out[2]=",ExpressionUUID->"ba7466df-a181-4501-a1a3-842a01fe61ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"nb", "=", RowBox[{"EvaluationNotebook", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{"nb", ",", "\"\\"", ",", "All", ",", "CellTags"}], "]"}], "\[IndentingNewLine]", RowBox[{"SelectionEvaluate", "[", "nb", "]"}]}]}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.761048361095367*^9, 3.7610483694681673`*^9}, { 3.761208211070208*^9, 3.7612082405921392`*^9}, {3.761208351374344*^9, 3.761208389369495*^9}}, CellTags->"Question2", CellLabel->"In[3]:=",ExpressionUUID->"b807ffbf-d812-4bb8-b096-39d64716348f"], Cell[BoxData[ ButtonBox["\<\"Click to start Question 2\"\>", Appearance->Automatic, ButtonFunction:>($CellContext`nb = EvaluationNotebook[]; NotebookFind[$CellContext`nb, "Question2", All, CellTags] SelectionEvaluate[$CellContext`nb]), Evaluator->Automatic, Method->"Preemptive"]], "Output", CellChangeTimes->{ 3.761048322490347*^9, {3.761048403184001*^9, 3.761048416419551*^9}, { 3.761208220870083*^9, 3.761208261697103*^9}, {3.7612083697799263`*^9, 3.761208394845299*^9}, 3.761208426803093*^9, 3.761297271578945*^9}, CellTags->"Question2", CellLabel->"Out[3]=",ExpressionUUID->"ad47a624-4562-4ca9-844f-daf9de970229"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Question 3: The new model (4): u_t = k(x) u (A-u) \ \>", "Section", CellChangeTimes->{{3.7610471432636414`*^9, 3.761047164777656*^9}, { 3.761048260509428*^9, 3.761048263196842*^9}},ExpressionUUID->"e7163c9f-fd55-4acf-88a4-\ bb072ec3da70"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Different", " ", "time", " ", "evolution", " ", RowBox[{"model", ":", " ", "u_t"}]}], " ", "=", RowBox[{"k", RowBox[{"(", "x", ")"}], "u", RowBox[{"(", RowBox[{"A", "-", "u"}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k1", "=", RowBox[{"Input", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "u", "}"}], ",", RowBox[{ RowBox[{"uLogistic", " ", "=", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"First", "[", RowBox[{"Quiet", "@", RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Evaluate", "[", "k1", "]"}], "*", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"A", "-", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "0"}], "]"}], "\[Equal]", "u0"}]}], "}"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "t"}], "}"}]}], "]"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"1", RowBox[{"(*", RowBox[{"Carrying", " ", "Capacity"}], "*)"}], ",", RowBox[{"uLogistic", "/.", RowBox[{"{", RowBox[{ RowBox[{"k", "\[Rule]", RowBox[{"Evaluate", "[", "k1", "]"}]}], ",", RowBox[{"A", "\[Rule]", "1"}], ",", RowBox[{"u0", "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"Evaluate", "[", "k1", "]"}]}], "*", RowBox[{"(", RowBox[{"x", "-", ".04"}], ")"}]}], "]"}]}], ")"}]}]}], ",", RowBox[{"t", "\[Rule]", "time"}]}], "}"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "4.5"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"25", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", " ", "\"\< \>\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"100", ",", " ", "\"\< \>\""}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", " ", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "\"\< \>\""}], "}"}], ",", RowBox[{"{", RowBox[{"4.5", ",", "\"\< \>\""}], "}"}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"time", ",", "0", ",", "1600"}], "}"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"ControlType", "\[Rule]", "Trigger"}]}], "]"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellOpen->False, CellChangeTimes->{{3.760971850929755*^9, 3.760971852674582*^9}, { 3.760971885802594*^9, 3.760971905263609*^9}, {3.761297319056498*^9, 3.76129736565543*^9}, 3.76129744850303*^9, {3.761297497110099*^9, 3.76129751009544*^9}, {3.761297612551865*^9, 3.76129762635651*^9}}, CellTags->"Question3", CellLabel->"In[8]:=",ExpressionUUID->"240bbefb-22ef-4d2c-898c-df50ed105bb0"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`time$$ = 1600., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`time$$], 0, 1600}}, Typeset`size$$ = { 360., {123., 127.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`time$13682$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`time$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`time$$, $CellContext`time$13682$$, 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[{1, ReplaceAll[$CellContext`uLogistic, {$CellContext`k -> Evaluate[$CellContext`k1], $CellContext`A -> 1, $CellContext`u0 -> 1/(1 + Exp[(-Evaluate[$CellContext`k1]) ($CellContext`x - 0.04)]), $CellContext`t -> $CellContext`time$$}]}, \ {$CellContext`x, 0, 100}, AxesLabel -> {$CellContext`x, Style["u", Italic]}, PlotRange -> {0, 4.5}, Ticks -> {{{25, " "}, {50, " "}, {75, " "}, {100, " "}}, {{ 1.5, " "}, {3, " "}, {4.5, " "}}}], "Specifications" :> {{$CellContext`time$$, 0, 1600}}, "Options" :> {ControlType -> Trigger}, "DefaultOptions" :> {}], ImageSizeCache->{405., {168., 174.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`uLogistic = (1. 2.718281828459045^(0.04 $CellContext`A $CellContext`t Cos[$CellContext`x]) $CellContext`A)/( 1. 2.718281828459045^(0.04 $CellContext`A $CellContext`t Cos[$CellContext`x]) - 1. ((-$CellContext`A + 1. $CellContext`u0)/$CellContext`u0)^1.), $CellContext`k1 = 0.04 Cos[$CellContext`x]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.761297664898995*^9}, CellTags->"Question3", CellLabel->"Out[9]=",ExpressionUUID->"50a7b480-3368-4b49-bf73-b68b0121de1e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"nb", "=", RowBox[{"EvaluationNotebook", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{"nb", ",", "\"\\"", ",", "All", ",", "CellTags"}], "]"}], "\[IndentingNewLine]", RowBox[{"SelectionEvaluate", "[", "nb", "]"}]}]}]}], "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.760971850929755*^9, 3.760971852674582*^9}, { 3.760971885802594*^9, 3.760971905263609*^9}, {3.761297319056498*^9, 3.76129736565543*^9}, 3.76129744850303*^9, {3.761297497110099*^9, 3.76129751009544*^9}, {3.761297612551865*^9, 3.761297652250762*^9}}, CellTags->"Question3", CellLabel->"In[10]:=",ExpressionUUID->"917acdec-4796-4140-bb36-a54c3bd4edd8"], Cell[BoxData[ ButtonBox["\<\"Click to start Question 3\"\>", Appearance->Automatic, ButtonFunction:>($CellContext`nb = EvaluationNotebook[]; NotebookFind[$CellContext`nb, "Question3", All, CellTags] SelectionEvaluate[$CellContext`nb]), Evaluator->Automatic, Method->"Preemptive"]], "Output", CellChangeTimes->{ 3.7609718596870947`*^9, 3.760971923925967*^9, 3.761043260385414*^9, 3.761043350207601*^9, 3.761043386400255*^9, 3.7610435126762533`*^9, 3.761043609074264*^9, {3.761043667876404*^9, 3.761043692985201*^9}, 3.761043723926804*^9, {3.761047496325083*^9, 3.7610475230999002`*^9}, 3.761047599007172*^9, 3.761047814686036*^9, 3.761047872604795*^9, { 3.761047987023965*^9, 3.76104799737429*^9}, 3.761048110529642*^9, 3.761048167830616*^9, 3.761297535332493*^9, {3.761297649161031*^9, 3.761297665073308*^9}}, CellTags->"Question3", CellLabel->"Out[10]=",ExpressionUUID->"7439da3d-9763-4ef0-abd6-c2c6cac27e48"] }, Open ]] }, Open ]] }, WindowSize->{1252, 1312}, WindowMargins->{{Automatic, 68}, {Automatic, 0}}, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Question1"->{ Cell[1194, 35, 4666, 114, 19, "Input",ExpressionUUID->"2764efff-4ba9-48d7-90c7-2b465361f6a9", CellOpen->False, CellTags->"Question1"], Cell[5863, 151, 173, 2, 30, "Input",ExpressionUUID->"e449363b-c116-45c4-b2ff-033ff2032fdc", CellTags->"Question1"], Cell[6039, 155, 173, 2, 30, "Input",ExpressionUUID->"803e6357-e581-4d21-a4bc-7044b6db3d57", CellTags->"Question1"]}, "Question2"->{ Cell[8114, 221, 4753, 122, 19, "Input",ExpressionUUID->"2632a510-6921-4c89-a915-bc68f88a6300", CellOpen->False, CellTags->"Question2"], Cell[12870, 345, 2705, 53, 361, "Output",ExpressionUUID->"ba7466df-a181-4501-a1a3-842a01fe61ab", CellTags->"Question2"], Cell[15612, 403, 731, 16, 19, "Input",ExpressionUUID->"b807ffbf-d812-4bb8-b096-39d64716348f", CellOpen->False, CellTags->"Question2"], Cell[16346, 421, 648, 13, 45, "Output",ExpressionUUID->"ad47a624-4562-4ca9-844f-daf9de970229", CellTags->"Question2"]}, "Question3"->{ Cell[17337, 455, 4791, 121, 19, "Input",ExpressionUUID->"240bbefb-22ef-4d2c-898c-df50ed105bb0", CellOpen->False, CellTags->"Question3"], Cell[22131, 578, 2632, 50, 361, "Output",ExpressionUUID->"50a7b480-3368-4b49-bf73-b68b0121de1e", CellTags->"Question3"], Cell[24800, 633, 845, 17, 19, "Input",ExpressionUUID->"917acdec-4796-4140-bb36-a54c3bd4edd8", CellOpen->False, CellTags->"Question3"], Cell[25648, 652, 960, 18, 45, "Output",ExpressionUUID->"7439da3d-9763-4ef0-abd6-c2c6cac27e48", CellTags->"Question3"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Question1", 26942, 685}, {"Question2", 27344, 693}, {"Question3", 27898, 704} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 611, 11, 171, "Section",ExpressionUUID->"5dc853ff-e79f-43be-a65d-8711efbcaf28", Evaluatable->False], Cell[1194, 35, 4666, 114, 19, "Input",ExpressionUUID->"2764efff-4ba9-48d7-90c7-2b465361f6a9", CellOpen->False, CellTags->"Question1"], Cell[5863, 151, 173, 2, 30, "Input",ExpressionUUID->"e449363b-c116-45c4-b2ff-033ff2032fdc", CellTags->"Question1"], Cell[6039, 155, 173, 2, 30, "Input",ExpressionUUID->"803e6357-e581-4d21-a4bc-7044b6db3d57", CellTags->"Question1"], Cell[6215, 159, 154, 3, 30, "Input",ExpressionUUID->"5b46ec08-8219-4ea0-8a6c-fda31222cbce"], Cell[6372, 164, 225, 4, 30, "Input",ExpressionUUID->"7260f9b8-ff4d-462f-bcd5-68f9aa590cbb"], Cell[CellGroupData[{ Cell[6622, 172, 692, 18, 19, "Input",ExpressionUUID->"e6146f2a-12b4-473f-a953-168270203848", CellOpen->False], Cell[7317, 192, 482, 11, 45, "Output",ExpressionUUID->"72e49be8-b52f-4dce-95b0-a38d6b2f0cc3"] }, Open ]], Cell[CellGroupData[{ Cell[7836, 208, 253, 9, 135, "Subsection",ExpressionUUID->"f1ce7a70-6c32-42ae-96fd-19ffc2eecdce"], Cell[CellGroupData[{ Cell[8114, 221, 4753, 122, 19, "Input",ExpressionUUID->"2632a510-6921-4c89-a915-bc68f88a6300", CellOpen->False, CellTags->"Question2"], Cell[12870, 345, 2705, 53, 361, "Output",ExpressionUUID->"ba7466df-a181-4501-a1a3-842a01fe61ab", CellTags->"Question2"] }, Open ]], Cell[CellGroupData[{ Cell[15612, 403, 731, 16, 19, "Input",ExpressionUUID->"b807ffbf-d812-4bb8-b096-39d64716348f", CellOpen->False, CellTags->"Question2"], Cell[16346, 421, 648, 13, 45, "Output",ExpressionUUID->"ad47a624-4562-4ca9-844f-daf9de970229", CellTags->"Question2"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17055, 441, 257, 10, 219, "Section",ExpressionUUID->"e7163c9f-fd55-4acf-88a4-bb072ec3da70"], Cell[CellGroupData[{ Cell[17337, 455, 4791, 121, 19, "Input",ExpressionUUID->"240bbefb-22ef-4d2c-898c-df50ed105bb0", CellOpen->False, CellTags->"Question3"], Cell[22131, 578, 2632, 50, 361, "Output",ExpressionUUID->"50a7b480-3368-4b49-bf73-b68b0121de1e", CellTags->"Question3"] }, Open ]], Cell[CellGroupData[{ Cell[24800, 633, 845, 17, 19, "Input",ExpressionUUID->"917acdec-4796-4140-bb36-a54c3bd4edd8", CellOpen->False, CellTags->"Question3"], Cell[25648, 652, 960, 18, 45, "Output",ExpressionUUID->"7439da3d-9763-4ef0-abd6-c2c6cac27e48", CellTags->"Question3"] }, Open ]] }, Open ]] } ] *)