(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 26647, 647] NotebookOptionsPosition[ 25824, 619] NotebookOutlinePosition[ 26168, 634] CellTagsIndexPosition[ 26125, 631] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", "[", "t", "]"}], ",", RowBox[{"X", "[", "t", "]"}], ",", RowBox[{"P", "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "kf1"}], "*", RowBox[{"R", "[", "t", "]"}]}], "+", RowBox[{"kr1", "*", RowBox[{"X", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"kf1", "*", RowBox[{"R", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"kr1", "+", "kf2"}], ")"}], "*", RowBox[{"X", "[", "t", "]"}]}], "+", RowBox[{"kr2", "*", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"kf2", "*", RowBox[{"X", "[", "t", "]"}]}], "-", RowBox[{"kr2", "*", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"R", "[", "0", "]"}], "\[Equal]", "10"}], ",", RowBox[{ RowBox[{"X", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"P", "[", "0", "]"}], "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "X", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"X", "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "kf1"}], "*", RowBox[{"R", "[", "t", "]"}]}], "+", RowBox[{"kr1", "*", RowBox[{"X", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"kf1", "*", RowBox[{"R", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"kr1", "+", "kf2"}], ")"}], "*", RowBox[{"X", "[", "t", "]"}]}], "+", RowBox[{"kr2", "*", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"kf2", "*", RowBox[{"X", "[", "t", "]"}]}], "-", RowBox[{"kr2", "*", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"R", "[", "0", "]"}], "\[Equal]", "10"}], ",", RowBox[{ RowBox[{"X", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"P", "[", "0", "]"}], "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "X", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.001", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"LogPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", "[", "t", "]"}], "/", RowBox[{"X", "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "kf1"}], "*", RowBox[{"R", "[", "t", "]"}]}], "+", RowBox[{"kr1", "*", RowBox[{"X", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"kf1", "*", RowBox[{"R", "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"kr1", "+", "kf2"}], ")"}], "*", RowBox[{"X", "[", "t", "]"}]}], "+", RowBox[{"kr2", "*", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"kf2", "*", RowBox[{"X", "[", "t", "]"}]}], "-", RowBox[{"kr2", "*", RowBox[{"P", "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{"R", "[", "0", "]"}], "\[Equal]", "10"}], ",", RowBox[{ RowBox[{"X", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"P", "[", "0", "]"}], "==", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "X", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.0", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"1000", ",", "300"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"kf1", ",", "0.1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"kr1", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"kf2", ",", "0.1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"kr2", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.72715978421072*^9, 3.7271598534747205`*^9}, { 3.7271599150323205`*^9, 3.7271599338771205`*^9}, {3.72715997620512*^9, 3.7271599829911203`*^9}, {3.7271600319595203`*^9, 3.72716004213072*^9}, { 3.7271602769731207`*^9, 3.7271603904475203`*^9}, {3.7271604271543207`*^9, 3.7271604274195204`*^9}, {3.7271604704443207`*^9, 3.72716047694952*^9}, { 3.7271605566343203`*^9, 3.7271605572895203`*^9}, {3.7271607568759203`*^9, 3.7271607596059203`*^9}, {3.72716080189752*^9, 3.7271608140031204`*^9}, { 3.72716087437512*^9, 3.7271608961527205`*^9}, {3.727164498533848*^9, 3.727164533770928*^9}, {3.727169439240501*^9, 3.727169455697323*^9}},ExpressionUUID->"acb4ede9-b68a-4726-bee0-\ 71b758912012"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`kf1$$ = 2.98, $CellContext`kf2$$ = 0.1, $CellContext`kr1$$ = 10., $CellContext`kr2$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`kf1$$], 0.1, 10}, { Hold[$CellContext`kr1$$], 0, 10}, { Hold[$CellContext`kf2$$], 0.1, 10}, { Hold[$CellContext`kr2$$], 0, 10}}, Typeset`size$$ = { 1000., {147., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`kf1$10842$$ = 0, $CellContext`kr1$10843$$ = 0, $CellContext`kf2$10844$$ = 0, $CellContext`kr2$10845$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`kf1$$ = 0.1, $CellContext`kf2$$ = 0.1, $CellContext`kr1$$ = 0, $CellContext`kr2$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`kf1$$, $CellContext`kf1$10842$$, 0], Hold[$CellContext`kr1$$, $CellContext`kr1$10843$$, 0], Hold[$CellContext`kf2$$, $CellContext`kf2$10844$$, 0], Hold[$CellContext`kr2$$, $CellContext`kr2$10845$$, 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" :> GraphicsRow[{ Plot[ Evaluate[ ReplaceAll[{ $CellContext`R[$CellContext`t], $CellContext`X[$CellContext`t], $CellContext`P[$CellContext`t]}, NDSolve[{ Derivative[ 1][$CellContext`R][$CellContext`t] == (-$CellContext`kf1$$) \ $CellContext`R[$CellContext`t] + $CellContext`kr1$$ \ $CellContext`X[$CellContext`t], Derivative[ 1][$CellContext`X][$CellContext`t] == $CellContext`kf1$$ \ $CellContext`R[$CellContext`t] - ($CellContext`kr1$$ + $CellContext`kf2$$) \ $CellContext`X[$CellContext`t] + $CellContext`kr2$$ \ $CellContext`P[$CellContext`t], Derivative[ 1][$CellContext`P][$CellContext`t] == $CellContext`kf2$$ \ $CellContext`X[$CellContext`t] - $CellContext`kr2$$ \ $CellContext`P[$CellContext`t], $CellContext`R[0] == 10, $CellContext`X[0] == 0, $CellContext`P[0] == 0}, {$CellContext`R, $CellContext`X, $CellContext`P}, \ {$CellContext`t, 0, 5}]]], {$CellContext`t, 0, 5}, PlotRange -> {0, 10}, AxesLabel -> {$CellContext`t, "C"}], LogLinearPlot[ Evaluate[ ReplaceAll[{ Derivative[1][$CellContext`R][$CellContext`t], Derivative[1][$CellContext`X][$CellContext`t], Derivative[1][$CellContext`P][$CellContext`t]}, NDSolve[{ Derivative[ 1][$CellContext`R][$CellContext`t] == (-$CellContext`kf1$$) \ $CellContext`R[$CellContext`t] + $CellContext`kr1$$ \ $CellContext`X[$CellContext`t], Derivative[ 1][$CellContext`X][$CellContext`t] == $CellContext`kf1$$ \ $CellContext`R[$CellContext`t] - ($CellContext`kr1$$ + $CellContext`kf2$$) \ $CellContext`X[$CellContext`t] + $CellContext`kr2$$ \ $CellContext`P[$CellContext`t], Derivative[ 1][$CellContext`P][$CellContext`t] == $CellContext`kf2$$ \ $CellContext`X[$CellContext`t] - $CellContext`kr2$$ \ $CellContext`P[$CellContext`t], $CellContext`R[0] == 10, $CellContext`X[0] == 0, $CellContext`P[0] == 0}, {$CellContext`R, $CellContext`X, $CellContext`P}, \ {$CellContext`t, 0, 5}]]], {$CellContext`t, 0.001, 5}, PlotRange -> All, AxesLabel -> {"t", "d[C]/dt"}], LogPlot[ Evaluate[ ReplaceAll[{$CellContext`R[$CellContext`t]/$CellContext`X[$\ CellContext`t]}, NDSolve[{ Derivative[ 1][$CellContext`R][$CellContext`t] == (-$CellContext`kf1$$) \ $CellContext`R[$CellContext`t] + $CellContext`kr1$$ \ $CellContext`X[$CellContext`t], Derivative[ 1][$CellContext`X][$CellContext`t] == $CellContext`kf1$$ \ $CellContext`R[$CellContext`t] - ($CellContext`kr1$$ + $CellContext`kf2$$) \ $CellContext`X[$CellContext`t] + $CellContext`kr2$$ \ $CellContext`P[$CellContext`t], Derivative[ 1][$CellContext`P][$CellContext`t] == $CellContext`kf2$$ \ $CellContext`X[$CellContext`t] - $CellContext`kr2$$ \ $CellContext`P[$CellContext`t], $CellContext`R[0] == 10, $CellContext`X[0] == 0, $CellContext`P[0] == 0}, {$CellContext`R, $CellContext`X, $CellContext`P}, \ {$CellContext`t, 0, 5}]]], {$CellContext`t, 0., 5}, PlotRange -> All, AxesLabel -> {"t", "C"}]}, ImageSize -> {1000, 300}], "Specifications" :> {{$CellContext`kf1$$, 0.1, 10}, {$CellContext`kr1$$, 0, 10}, {$CellContext`kf2$$, 0.1, 10}, {$CellContext`kr2$$, 0, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1051., {234., 241.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.727178923940734*^9},ExpressionUUID->"c59fafb2-a5d2-4a03-be03-\ a6d21ac152d2"] }, Open ]], Cell[CellGroupData[{ Cell["JOSE", "Subtitle", CellChangeTimes->{{3.727178955855866*^9, 3.727178962660914*^9}},ExpressionUUID->"45b858a2-acc3-4ad5-bd01-\ 363df9898414"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"r1", "[", RowBox[{"t_", ",", "kf1_", ",", "kr1_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"-", "kf1"}], "*", RowBox[{"R", "[", "t", "]"}]}], "+", RowBox[{"kr1", "*", RowBox[{"X", "[", "t", "]"}]}]}]}], ";", RowBox[{ RowBox[{"r2", "[", RowBox[{"t_", ",", "kf2_", ",", "kr2_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"-", "kf2"}], "*", RowBox[{"X", "[", "t", "]"}]}], "+", RowBox[{"kr2", "*", RowBox[{"P", "[", "t", "]"}]}]}]}], ";", RowBox[{ RowBox[{"eqs", "[", RowBox[{"kf1_", ",", "kr1_", ",", "kf2_", ",", "kr2_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"r1", "[", RowBox[{"t", ",", "kf1", ",", "kr1"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"X", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"r1", "[", RowBox[{"t", ",", "kf1", ",", "kr1"}], "]"}]}], "+", RowBox[{"r2", "[", RowBox[{"t", ",", "kf2", ",", "kr2"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"-", RowBox[{"r2", "[", RowBox[{"t", ",", "kf2", ",", "kr2"}], "]"}]}]}], ",", RowBox[{ RowBox[{"R", "[", "0", "]"}], "\[Equal]", "10"}], ",", RowBox[{ RowBox[{"X", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"P", "[", "0", "]"}], "==", "0"}]}], "}"}]}], ";", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", "[", "t", "]"}], ",", RowBox[{"X", "[", "t", "]"}], ",", RowBox[{"P", "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"eqs", "[", RowBox[{"kf1", ",", "kr1", ",", "kf2", ",", "kr2"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "X", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"t", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"R", "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"X", "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{"P", "'"}], "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"eqs", "[", RowBox[{"kf1", ",", "kr1", ",", "kf2", ",", "kr2"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "X", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.001", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"LogPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", "[", "t", "]"}], "/", RowBox[{"X", "[", "t", "]"}]}], "}"}], "/.", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"eqs", "[", RowBox[{"kf1", ",", "kr1", ",", "kf2", ",", "kr2"}], "]"}], ",", RowBox[{"{", RowBox[{"R", ",", "X", ",", "P"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.00", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"1000", ",", "300"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"kf1", ",", "0.1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"kr1", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"kf2", ",", "0.1", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"kr2", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.72715978421072*^9, 3.7271598534747205`*^9}, { 3.7271599150323205`*^9, 3.7271599338771205`*^9}, {3.72715997620512*^9, 3.7271599829911203`*^9}, {3.7271600319595203`*^9, 3.72716004213072*^9}, { 3.7271602769731207`*^9, 3.7271603904475203`*^9}, {3.7271604271543207`*^9, 3.7271604274195204`*^9}, {3.7271604704443207`*^9, 3.72716047694952*^9}, { 3.7271605566343203`*^9, 3.7271605572895203`*^9}, {3.7271607568759203`*^9, 3.7271607596059203`*^9}, {3.72716080189752*^9, 3.7271608140031204`*^9}, { 3.72716087437512*^9, 3.7271608961527205`*^9}, {3.727164498533848*^9, 3.727164533770928*^9}, {3.727164580389645*^9, 3.727164889704528*^9}, 3.727169213321259*^9, {3.727169252140359*^9, 3.7271692531911573`*^9}, { 3.727169306765983*^9, 3.7271693127563677`*^9}, {3.727169399430357*^9, 3.7271694283700647`*^9}, 3.727169474081044*^9, 3.727178229652945*^9, { 3.7271782832435827`*^9, 3.7271782836351433`*^9}, {3.727178322325038*^9, 3.7271784016865997`*^9}, {3.727178441621694*^9, 3.727178463011441*^9}, { 3.7271785227699013`*^9, 3.7271785373708353`*^9}, {3.727178737491332*^9, 3.7271787432717953`*^9}, {3.7271787911140747`*^9, 3.727178797625742*^9}},ExpressionUUID->"6eb59aaf-9aba-453f-b165-\ 4443fe32ed92"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`kf1$$ = 2.98, $CellContext`kf2$$ = 9.79, $CellContext`kr1$$ = 3.8000000000000003`, $CellContext`kr2$$ = 0., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`kf1$$], 0.1, 10}, { Hold[$CellContext`kr1$$], 0, 10}, { Hold[$CellContext`kf2$$], 0.1, 10}, { Hold[$CellContext`kr2$$], 0, 10}}, Typeset`size$$ = { 1000., {147., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`kf1$13800$$ = 0, $CellContext`kr1$13801$$ = 0, $CellContext`kf2$13802$$ = 0, $CellContext`kr2$13803$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`kf1$$ = 0.1, $CellContext`kf2$$ = 0.1, $CellContext`kr1$$ = 0, $CellContext`kr2$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`kf1$$, $CellContext`kf1$13800$$, 0], Hold[$CellContext`kr1$$, $CellContext`kr1$13801$$, 0], Hold[$CellContext`kf2$$, $CellContext`kf2$13802$$, 0], Hold[$CellContext`kr2$$, $CellContext`kr2$13803$$, 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" :> GraphicsRow[{ Plot[ Evaluate[ ReplaceAll[{ $CellContext`R[$CellContext`t], $CellContext`X[$CellContext`t], $CellContext`P[$CellContext`t]}, NDSolve[ $CellContext`eqs[$CellContext`kf1$$, $CellContext`kr1$$, \ $CellContext`kf2$$, $CellContext`kr2$$], {$CellContext`R, $CellContext`X, \ $CellContext`P}, {$CellContext`t, 0, 5}]]], {$CellContext`t, 0, 5}, PlotRange -> {0, 10}, AxesLabel -> {$CellContext`t, "C"}], LogLinearPlot[ Evaluate[ ReplaceAll[{ Derivative[1][$CellContext`R][$CellContext`t], Derivative[1][$CellContext`X][$CellContext`t], Derivative[1][$CellContext`P][$CellContext`t]}, NDSolve[ $CellContext`eqs[$CellContext`kf1$$, $CellContext`kr1$$, \ $CellContext`kf2$$, $CellContext`kr2$$], {$CellContext`R, $CellContext`X, \ $CellContext`P}, {$CellContext`t, 0, 5}]]], {$CellContext`t, 0.001, 5}, PlotRange -> All, AxesLabel -> {"t", "d[C]/dt"}], LogPlot[ Evaluate[ ReplaceAll[{$CellContext`R[$CellContext`t]/$CellContext`X[$\ CellContext`t]}, NDSolve[ $CellContext`eqs[$CellContext`kf1$$, $CellContext`kr1$$, \ $CellContext`kf2$$, $CellContext`kr2$$], {$CellContext`R, $CellContext`X, \ $CellContext`P}, {$CellContext`t, 0, 5}]]], {$CellContext`t, 0., 5}, PlotRange -> All, AxesLabel -> {"t", "C"}]}, ImageSize -> {1000, 300}], "Specifications" :> {{$CellContext`kf1$$, 0.1, 10}, {$CellContext`kr1$$, 0, 10}, {$CellContext`kf2$$, 0.1, 10}, {$CellContext`kr2$$, 0, 10}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{1051., {234., 241.}}, 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.727178290721992*^9, {3.727178337093079*^9, 3.7271783562151623`*^9}, 3.727178419814702*^9, 3.7271784640253983`*^9, {3.727178498121684*^9, 3.727178538256065*^9}, {3.727178744344267*^9, 3.727178763011014*^9}, 3.727178798689925*^9, 3.7271789314565887`*^9, 3.727411993561715*^9},ExpressionUUID->"67bf3fbf-f1b3-4893-8044-\ 55957bad41d5"] }, Open ]] }, Open ]] }, WindowSize->{1211, 675}, WindowMargins->{{-9, Automatic}, {Automatic, 17}}, FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 8572, 208, 240, "Input", "ExpressionUUID" -> \ "acb4ede9-b68a-4726-bee0-71b758912012"], Cell[9155, 232, 5718, 120, 492, "Output", "ExpressionUUID" -> \ "c59fafb2-a5d2-4a03-be03-a6d21ac152d2"] }, Open ]], Cell[CellGroupData[{ Cell[14910, 357, 150, 3, 56, "Subtitle", "ExpressionUUID" -> \ "45b858a2-acc3-4ad5-bd01-363df9898414"], Cell[CellGroupData[{ Cell[15085, 364, 6573, 166, 183, "Input", "ExpressionUUID" -> \ "6eb59aaf-9aba-453f-b165-4443fe32ed92"], Cell[21661, 532, 4135, 83, 525, "Output", "ExpressionUUID" -> \ "67bf3fbf-f1b3-4893-8044-55957bad41d5"] }, Open ]] }, Open ]] } ] *)