(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 4381792, 74040] NotebookOptionsPosition[ 4367693, 73802] NotebookOutlinePosition[ 4368198, 73820] CellTagsIndexPosition[ 4368155, 73817] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Definitions of Parameters", "Section", CellChangeTimes->{{3.7916764356456366`*^9, 3.7916764397407117`*^9}, { 3.8152220498301783`*^9, 3.8152220562743516`*^9}},ExpressionUUID->"c7b3d752-645d-4c74-af3b-\ fad6adb62ffe"], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"\[Gamma]", "=", "600"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"p", "=", "0.75"}], ";"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Upsilon]", StyleBox["=", FontSize->18], StyleBox["100", FontSize->18]}], StyleBox[";", FontSize->18]}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"T", "=", "0"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"\[Sigma]", "=", "1.3"}], ";"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Nu]", StyleBox["=", FontSize->18], StyleBox["2.4", FontSize->18]}], StyleBox[";", FontSize->18]}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"q", "=", "0.75"}], ";"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]0", StyleBox["=", FontSize->18], StyleBox["0.6", FontSize->18]}], StyleBox[";", FontSize->18]}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"d", "=", "0.25"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"ks", "=", "0.0015"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"f", "=", " ", "1.15"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"c", "=", "10"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"r", "=", "0.75"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"\[Alpha]", "=", "0.5"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"e", "=", "0.6"}], ";"}], FontSize->18], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"q0", "=", "0.1"}], ";"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{"deltat", "=", StyleBox["0.001", FontSize->18]}], StyleBox[";", FontSize->18]}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"\[Delta]", "=", " ", "10"}], ";"}], FontSize->18], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Tau]", "=", "0"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"Tau", " ", "will", " ", "change"}], ",", " ", RowBox[{ RowBox[{ "but", " ", "it", " ", "is", " ", "set", " ", "as", " ", "a", " ", "constant", " ", "of", " ", "0.", " ", "Note", " ", "that", " ", "when", " ", "tao"}], " ", "=", " ", "0"}], ",", " ", RowBox[{"the", " ", "betas", " ", "are", " ", RowBox[{"constant", ".", " ", "If"}], " ", "tao", " ", "is", " ", "not", " ", "0"}], ",", " ", RowBox[{ "the", " ", "betas", " ", "scale", " ", "allometrically", " ", "with", " ", "the", " ", "m", " ", "vector", " ", "values", " ", RowBox[{"(", RowBox[{ "sigma", " ", "is", " ", "the", " ", "standard", " ", "deviation", " ", "of", " ", "this", " ", "function"}], ")"}]}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.7911199651691556`*^9, 3.791120114598841*^9}, { 3.7911201511998434`*^9, 3.791120338270249*^9}, {3.7911204909542217`*^9, 3.791120522758325*^9}, 3.791120587795755*^9, {3.791122070482113*^9, 3.7911220714529333`*^9}, 3.791128398165577*^9, {3.792023893177927*^9, 3.7920239204811964`*^9}, {3.79232646606164*^9, 3.7923266087845364`*^9}, { 3.7925901877914352`*^9, 3.7925902073278823`*^9}, {3.795043223566148*^9, 3.795043226327549*^9}, 3.8089395877325954`*^9, 3.8089396296005754`*^9, 3.8089396708302183`*^9, {3.8089398450102396`*^9, 3.808940024015321*^9}, 3.809356382757268*^9, {3.8112040785557513`*^9, 3.811204078704283*^9}, { 3.813404220747869*^9, 3.8134042223944035`*^9}, {3.813404729875738*^9, 3.8134047300419383`*^9}, {3.81340477971887*^9, 3.813404779897416*^9}, { 3.8136194134805613`*^9, 3.8136194136389155`*^9}, {3.8140125210085707`*^9, 3.8140125216674185`*^9}, {3.8140126696130004`*^9, 3.814012669775567*^9}, { 3.8140127362757883`*^9, 3.8140127386196766`*^9}, {3.8140444524870324`*^9, 3.8140444540900316`*^9}, {3.81404453399786*^9, 3.814044534615541*^9}, { 3.814044627925223*^9, 3.8140446290605354`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"2fab396a-398a-4cc9-861a-191202f3b944"] }, Closed]], Cell[CellGroupData[{ Cell["Predator-Prey Interaction", "Section", CellChangeTimes->{{3.791684637001416*^9, 3.7916846533274384`*^9}},ExpressionUUID->"91c8a776-182e-45f6-8c24-\ 0eb800316564"], Cell[BoxData[{ RowBox[{ RowBox[{"a", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "=", "3"}], ";"}]}], "Input", CellChangeTimes->{{3.791677491748586*^9, 3.791677508442799*^9}, { 3.791677557827248*^9, 3.7916776406605835`*^9}, {3.79167867550997*^9, 3.791678676373623*^9}, {3.791720299734702*^9, 3.791720302005818*^9}, { 3.8056479696435127`*^9, 3.8056479707296157`*^9}, {3.8115894715209875`*^9, 3.811589471939663*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"fed8c75e-6272-46e7-bef1-aeace1f6b06c"], Cell[CellGroupData[{ Cell["m vector stuff", "Subsubsection", CellChangeTimes->{{3.795043237780669*^9, 3.7950432477293406`*^9}},ExpressionUUID->"c7934d30-3567-4670-bf9e-\ fc02260413e3"], Cell[BoxData[{ RowBox[{"Clear", "[", "m", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "[", "i_", "]"}], ":=", RowBox[{"0.001", "*", SuperscriptBox["\[Delta]", RowBox[{"i", "-", "2"}]]}]}]}], "Input", CellFrame->1, CellFrameColor->RGBColor[0, 0, 1], CellChangeTimes->{{3.809359060732107*^9, 3.8093590800080957`*^9}, { 3.8093591232441063`*^9, 3.8093591294547987`*^9}, {3.8134047351019545`*^9, 3.813404735264512*^9}, {3.8134047874264994`*^9, 3.8134047877436504`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"1ea686bb-b94e-436c-9c7e-a7e2002d63a6"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"b", "[", "i_", "]"}], "=", RowBox[{"\[Upsilon]", "*", SuperscriptBox[ RowBox[{"m", "[", "i", "]"}], "\[Tau]"]}]}], "\[IndentingNewLine]", RowBox[{"beta", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"b", "[", "i", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "a"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"evec", "=", RowBox[{"Table", "[", RowBox[{"0.6", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "a"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8115892587407155`*^9, 3.811589291579706*^9}, { 3.8115893826103363`*^9, 3.811589436273608*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"5cd64b98-91ee-4165-9cf3-0dc7b0d26d5c"], Cell[BoxData["100"], "Output", CellChangeTimes->{{3.811589450559923*^9, 3.811589482633361*^9}, 3.812364883751933*^9, 3.812365672787322*^9, 3.812380701310195*^9, 3.812380798671235*^9, 3.8134042459522605`*^9, 3.8134047993865633`*^9, 3.814012182215068*^9, 3.8140125376554627`*^9, 3.814012676442786*^9, 3.814012743326259*^9, 3.8140444608612003`*^9, 3.8140445414894733`*^9, 3.8140446329918633`*^9, 3.8141986708344936`*^9, 3.814209394606899*^9, 3.8142258802517757`*^9, 3.8144579518722596`*^9}, CellLabel->"Out[24]=",ExpressionUUID->"e8773a53-a58c-40aa-9c1d-f3fc5c4e9bfe"], Cell[BoxData[ RowBox[{"{", RowBox[{ "100", ",", "100", ",", "100", ",", "100", ",", "100", ",", "100", ",", "100", ",", "100", ",", "100", ",", "100"}], "}"}]], "Output", CellChangeTimes->{{3.811589450559923*^9, 3.811589482633361*^9}, 3.812364883751933*^9, 3.812365672787322*^9, 3.812380701310195*^9, 3.812380798671235*^9, 3.8134042459522605`*^9, 3.8134047993865633`*^9, 3.814012182215068*^9, 3.8140125376554627`*^9, 3.814012676442786*^9, 3.814012743326259*^9, 3.8140444608612003`*^9, 3.8140445414894733`*^9, 3.8140446329918633`*^9, 3.8141986708344936`*^9, 3.814209394606899*^9, 3.8142258802517757`*^9, 3.8144579518722596`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"dafd2753-4db0-4ba4-bea9-f2d8b79169e9"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{{3.811589450559923*^9, 3.811589482633361*^9}, 3.812364883751933*^9, 3.812365672787322*^9, 3.812380701310195*^9, 3.812380798671235*^9, 3.8134042459522605`*^9, 3.8134047993865633`*^9, 3.814012182215068*^9, 3.8140125376554627`*^9, 3.814012676442786*^9, 3.814012743326259*^9, 3.8140444608612003`*^9, 3.8140445414894733`*^9, 3.8140446329918633`*^9, 3.8141986708344936`*^9, 3.814209394606899*^9, 3.8142258802517757`*^9, 3.8144579518878813`*^9}, CellLabel->"Out[26]=",ExpressionUUID->"b71ffbdb-cfe9-4b83-a6ae-1c2aa4dcdd49"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "i", ",", "j", ",", "x", ",", " ", "n", ",", "n1", ",", "n2", ",", "n3", ",", "n4", ",", " ", "n5", ",", " ", "n6", ",", " ", "n7", ",", " ", "n8", ",", " ", "n9", ",", " ", "n10"}], "]"}]], "Input", CellChangeTimes->{{3.808605556359749*^9, 3.8086055704191856`*^9}, 3.808939413535664*^9, {3.8089397241127*^9, 3.808939731022174*^9}, { 3.8089397682735076`*^9, 3.8089397904631815`*^9}, {3.8093593460988483`*^9, 3.809359370977738*^9}, {3.8115893131941304`*^9, 3.811589362616124*^9}, { 3.8115894414148493`*^9, 3.8115894425969095`*^9}, {3.812378568096526*^9, 3.812378573936075*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"632b8cf1-52ad-4cc8-8267-88c56a657360"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"n", "[", "t_", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "t", "]"}], ",", RowBox[{"n2", "[", "t", "]"}], ",", RowBox[{"n3", "[", "t", "]"}], ",", RowBox[{"n4", "[", "t", "]"}], ",", " ", RowBox[{"n5", "[", "t", "]"}], ",", " ", RowBox[{"n6", "[", "t", "]"}], ",", " ", RowBox[{"n7", "[", "t", "]"}], ",", " ", RowBox[{"n8", "[", "t", "]"}], ",", " ", RowBox[{"n9", "[", "t", "]"}], ",", " ", RowBox[{"n10", "[", "t", "]"}]}], "}"}]}], ";"}], " ", RowBox[{"(*", RowBox[{"the", " ", "number", " ", "of", " ", "predators"}], "*)"}]}]], "Input", CellChangeTimes->{{3.7916851048677483`*^9, 3.7916851858382635`*^9}, { 3.7916852244243546`*^9, 3.791685237512204*^9}, {3.791719813734269*^9, 3.7917198377118683`*^9}, {3.7917198974661026`*^9, 3.791719902929044*^9}, { 3.79171994100871*^9, 3.791719954845315*^9}, {3.7917199900422473`*^9, 3.7917199907949343`*^9}, {3.791720116540391*^9, 3.791720198719122*^9}, { 3.791720228861865*^9, 3.791720235763755*^9}, {3.7917203667269607`*^9, 3.7917203921552*^9}, {3.792023250378128*^9, 3.7920232541900115`*^9}, 3.792324869542014*^9, {3.7923249043913193`*^9, 3.7923249333254614`*^9}, { 3.792325001792276*^9, 3.792325013639224*^9}, {3.7929260270209885`*^9, 3.7929260294783735`*^9}, {3.7947410532503376`*^9, 3.79474113738449*^9}, { 3.7950447577546053`*^9, 3.7950448053750334`*^9}, {3.795044868815539*^9, 3.795044876917919*^9}, {3.79504496593003*^9, 3.7950449728798285`*^9}, { 3.7950450057651005`*^9, 3.795045049759209*^9}, {3.795297512747241*^9, 3.795297593540352*^9}, {3.7953453281782107`*^9, 3.7953453315375633`*^9}, { 3.795873476099495*^9, 3.795873484702806*^9}, {3.795874305792652*^9, 3.795874321319069*^9}, {3.7958743626482067`*^9, 3.7958743637204475`*^9}, { 3.805646687682582*^9, 3.8056466888358765`*^9}, {3.805647980808786*^9, 3.8056479818752527`*^9}, {3.8084891054692163`*^9, 3.808489131190159*^9}, { 3.808563830624963*^9, 3.808563846218903*^9}, {3.808564625704812*^9, 3.808564639092985*^9}, {3.811635139740908*^9, 3.8116351566663947`*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"14b1da58-f19f-421b-a368-3e525dc41cfd"], Cell[BoxData[ RowBox[{ RowBox[{"phi", "[", RowBox[{"i_", ",", "j_"}], "]"}], ":=", " ", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["E", FractionBox[ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"Log", "[", FractionBox[ RowBox[{ RowBox[{"beta", "[", RowBox[{"[", "i", "]"}], "]"}], RowBox[{"m", "[", "j", "]"}]}], RowBox[{"m", "[", "j", "]"}]], "]"}], ")"}], "2"]}], RowBox[{"2", "*", SuperscriptBox["\[Sigma]", "2"]}]]], ",", " ", RowBox[{ RowBox[{"j", ">", "1"}], "&&", " ", RowBox[{"i", ">", "j"}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Sum", "[", RowBox[{ SuperscriptBox["E", FractionBox[ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"Log", "[", FractionBox[ RowBox[{ RowBox[{"beta", "[", RowBox[{"[", "i", "]"}], "]"}], RowBox[{"m", "[", "x", "]"}]}], RowBox[{"m", "[", "i", "]"}]], "]"}], ")"}], "2"]}], RowBox[{"2", "*", SuperscriptBox["\[Sigma]", "2"]}]]], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "s"}], ",", "1"}], "}"}]}], "]"}], ",", " ", RowBox[{ RowBox[{"i", ">", "j"}], "&&", " ", RowBox[{"j", "==", "1"}]}]}], "}"}]}], " ", "}"}], "]"}]}]], "Input", CellFrame->1, CellFrameColor->RGBColor[0.5, 0, 0.5], CellChangeTimes->{{3.7958734869384923`*^9, 3.7958734953075333`*^9}, { 3.809359141236766*^9, 3.809359186669384*^9}, 3.8109819886851025`*^9}, CellLabel->"In[29]:=",ExpressionUUID->"a473de49-99b6-430b-b745-aa79a397e195"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matrixS", "=", RowBox[{"Array", "[", RowBox[{"phi", ",", RowBox[{"{", RowBox[{"10", ",", " ", "10"}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{ "Size", " ", "selective", " ", "matrix", " ", "based", " ", "on", " ", "predator", " ", "size", " ", "class", " ", "i", " ", "by", " ", "prey", " ", "size", " ", "class", " ", "j"}], "*)"}]}]], "Input", CellChangeTimes->{{3.7917205304045095`*^9, 3.791720596629096*^9}, 3.7917207550586596`*^9, {3.792020160536332*^9, 3.792020162628113*^9}, { 3.7920226152150555`*^9, 3.7920226186877193`*^9}, {3.795297608294593*^9, 3.7952976303317184`*^9}, {3.795297662784913*^9, 3.795297678717308*^9}, { 3.811587117789261*^9, 3.8115871213208785`*^9}, {3.8115872929609613`*^9, 3.8115872949817505`*^9}, {3.811634446955166*^9, 3.811634450400854*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"a135a125-ecd1-41db-87e2-797c1b9e01f8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.418554180595044`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.2102193869591282`", ",", "0.0018838539374951048`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2102193869591283`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0018845933106177496`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.393731226397707`*^-7", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.2594740680124734`*^-11", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.312047531879331`*^-18", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.9883058543444934`*^-25", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "4.162253561067278`*^-34", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.791720554704934*^9, 3.7917205975041113`*^9}, 3.791720756199944*^9, 3.7920200819520664`*^9, 3.792020163685335*^9, { 3.7920226039709425`*^9, 3.7920226195129967`*^9}, 3.7920232796652255`*^9, { 3.792325046722229*^9, 3.7923250623869677`*^9}, 3.7925898871034317`*^9, 3.79587478477849*^9, 3.80532463619516*^9, 3.805327820242359*^9, 3.8056467670464334`*^9, 3.805647994393342*^9, 3.8056503850781255`*^9, 3.8057116245542006`*^9, 3.8068835191626863`*^9, 3.806884593722335*^9, 3.806884689574437*^9, 3.808240562119984*^9, 3.8084892627845745`*^9, 3.808562620478094*^9, 3.8089488874221816`*^9, 3.808949461042177*^9, 3.8089494927369146`*^9, 3.808951927777261*^9, 3.8093565884345293`*^9, 3.809961508905866*^9, 3.8103445312359114`*^9, 3.81037929999174*^9, 3.811549371198892*^9, 3.811587123205702*^9, 3.8115873003387394`*^9, 3.812364883917133*^9, 3.812365682190421*^9, 3.812380701403988*^9, 3.812380811240268*^9, 3.813404246068493*^9, 3.8134047995251923`*^9, 3.8140121823287635`*^9, 3.8140125377891054`*^9, 3.8140126765699615`*^9, 3.8140127434539185`*^9, 3.814044460929924*^9, 3.814044541576639*^9, 3.814044633075076*^9, 3.8141986709771585`*^9, 3.81420939473551*^9, 3.8142258803295746`*^9, 3.814457951962538*^9}, CellLabel->"Out[30]=",ExpressionUUID->"29a407c8-0dec-47e7-9235-13aaa341e179"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"matrixS", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"phi", "[", RowBox[{"2", ",", "1"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ "Checking", " ", "to", " ", "make", " ", "sure", " ", "matrix", " ", "S", " ", "works"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.791720841843212*^9, 3.791720856391633*^9}, { 3.792020093362382*^9, 3.7920201113857374`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"a08fd035-8295-4874-a53c-76dcaa4cf38a"], Cell[BoxData["1.418554180595044`"], "Output", CellChangeTimes->{{3.791720850510722*^9, 3.7917208571560664`*^9}, 3.7920201342048492`*^9, {3.792022607859765*^9, 3.7920226215969286`*^9}, 3.792023281685472*^9, 3.7923250910501003`*^9, 3.7925898915510006`*^9, 3.7958747892946305`*^9, 3.8053246417897296`*^9, 3.8053278237055492`*^9, 3.805646769166766*^9, 3.80564799927507*^9, 3.805650387668352*^9, 3.8057116246484623`*^9, 3.8068835192105575`*^9, 3.806884593744274*^9, 3.8068846896192813`*^9, 3.8082405621778297`*^9, 3.808489262806568*^9, 3.8085626205309267`*^9, 3.8089488874391756`*^9, 3.8089494610601287`*^9, 3.8089494927558613`*^9, 3.808951929875698*^9, 3.809356594385054*^9, 3.809961508925812*^9, 3.8103445313084297`*^9, 3.810379300015673*^9, 3.811549371313678*^9, 3.812364883966395*^9, 3.812365684857588*^9, 3.8123807014338665`*^9, 3.8123808142812357`*^9, 3.8134042460909696`*^9, 3.8134047995421467`*^9, 3.8140121823636694`*^9, 3.814012537812045*^9, 3.814012676595857*^9, 3.8140127434818463`*^9, 3.814044460961133*^9, 3.814044541594831*^9, 3.814044633094352*^9, 3.814198671012018*^9, 3.8142093947584496`*^9, 3.8142258803495374`*^9, 3.8144579519912977`*^9}, CellLabel->"Out[31]=",ExpressionUUID->"7e473ed4-5db8-4abc-a853-76d3c35f9565"], Cell[BoxData["1.418554180595044`"], "Output", CellChangeTimes->{{3.791720850510722*^9, 3.7917208571560664`*^9}, 3.7920201342048492`*^9, {3.792022607859765*^9, 3.7920226215969286`*^9}, 3.792023281685472*^9, 3.7923250910501003`*^9, 3.7925898915510006`*^9, 3.7958747892946305`*^9, 3.8053246417897296`*^9, 3.8053278237055492`*^9, 3.805646769166766*^9, 3.80564799927507*^9, 3.805650387668352*^9, 3.8057116246484623`*^9, 3.8068835192105575`*^9, 3.806884593744274*^9, 3.8068846896192813`*^9, 3.8082405621778297`*^9, 3.808489262806568*^9, 3.8085626205309267`*^9, 3.8089488874391756`*^9, 3.8089494610601287`*^9, 3.8089494927558613`*^9, 3.808951929875698*^9, 3.809356594385054*^9, 3.809961508925812*^9, 3.8103445313084297`*^9, 3.810379300015673*^9, 3.811549371313678*^9, 3.812364883966395*^9, 3.812365684857588*^9, 3.8123807014338665`*^9, 3.8123808142812357`*^9, 3.8134042460909696`*^9, 3.8134047995421467`*^9, 3.8140121823636694`*^9, 3.814012537812045*^9, 3.814012676595857*^9, 3.8140127434818463`*^9, 3.814044460961133*^9, 3.814044541594831*^9, 3.814044633094352*^9, 3.814198671012018*^9, 3.8142093947584496`*^9, 3.8142258803495374`*^9, 3.814457951997281*^9}, CellLabel->"Out[32]=",ExpressionUUID->"322bf20f-1ce9-483e-8b09-26ab7f322916"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Transpose", "[", "matrixS", "]"}]], "Input", CellChangeTimes->{{3.791720700431978*^9, 3.7917207292377167`*^9}, { 3.7917207615268807`*^9, 3.791720763092101*^9}, {3.7920226323654366`*^9, 3.792022639473282*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"f65e9e69-ebae-4192-b581-2f83099a486f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "1.418554180595044`", ",", "1.2102193869591282`", ",", "0.2102193869591283`", ",", "0.0018845933106177496`", ",", "7.393731226397707`*^-7", ",", "1.2594740680124734`*^-11", ",", "9.312047531879331`*^-18", ",", "2.9883058543444934`*^-25", ",", "4.162253561067278`*^-34"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0.0018838539374951048`", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0.0018838539374951048`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB2IjeT4FJYc3jkYv5quD6BlPDUK3AGmREwI9W4E0U/OK eyA64/cjG0/HN45Ck290nALSi1iEavk8gOJcD9aIRL1x3OVRZyUGpFtu1X/b CKT5OT0nbALSURd27doMpFX4JRZeBNJXVj6/zhsLNGepRRwfkI59b5IFosV0 3cuWxL9xTDpy66lswhtHbZNJ2x2B9KGL74L+AemgBYtmgegDl2fMA9GN5bXn /wPpttqFaUcT3zhW9M478ibpjWNXTM6p5clvHM+WNh7ZAaT5bmWLf0l941j6 LKmPLQ2oX6jRqyn9jaMz38V1IPqT3HrmLiAdlKYpBKKn7zp8qjbzjeO+/k/8 dUD6z8szi5ZlvXHkFbI+D6JPuU95AKL3Fnx4AaIb2uenbgPRZzfng+i6rcrV IHpyx8ONjNlA9ztFvmMD0u3cPL/5gDTPCgafBiANANaPwRw= "], CellLabel->"Out[33]=",ExpressionUUID->"b8df6f2d-e7ac-4045-8521-9d142629444c"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", " ", "matrixN", "]"}]], "Input", CellChangeTimes->{{3.808564065572082*^9, 3.8085640948092623`*^9}, 3.809358609085923*^9}, CellLabel->"In[34]:=",ExpressionUUID->"f134fe29-4322-47ea-b6ff-f60214917b99"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"matrixV", " ", "=", " ", RowBox[{"\[Gamma]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox[ RowBox[{"m", "[", "1", "]"}], "p"], ",", "0", ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", SuperscriptBox[ RowBox[{"m", "[", "2", "]"}], "p"], ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", SuperscriptBox[ RowBox[{"m", "[", "3", "]"}], "p"], ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", SuperscriptBox[ RowBox[{"m", "[", "4", "]"}], "p"], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", " ", "0", ",", SuperscriptBox[ RowBox[{"m", "[", "5", "]"}], "p"], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", SuperscriptBox[ RowBox[{"m", "[", "6", "]"}], "p"], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", SuperscriptBox[ RowBox[{"m", "[", "7", "]"}], "p"], ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", SuperscriptBox[ RowBox[{"m", "[", "8", "]"}], "p"], ",", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", "0", ",", " ", "0", ",", " ", SuperscriptBox[ RowBox[{"m", "[", "9", "]"}], "p"], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", SuperscriptBox[ RowBox[{"m", "[", "10", "]"}], "p"]}], "}"}]}], "}"}]}]}], RowBox[{"(*", RowBox[{ "search", " ", "rate", " ", "of", " ", "each", " ", "predator", " ", "in", " ", "class", " ", "i"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"matrixN", "[", "t_", "]"}], "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"n", "[", "t", "]"}], "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "number", " ", "of", " ", "prey", " ", "in", " ", "each", " ", "class", " ", "size", " ", RowBox[{"(", "N", ")"}]}], ",", " ", RowBox[{"n", " ", "=", " ", RowBox[{"number", " ", "of", " ", "predators"}]}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.7920208297480764`*^9, 3.792020880296056*^9}, { 3.792020978988065*^9, 3.7920210189126787`*^9}, {3.7920212602301044`*^9, 3.79202126182066*^9}, {3.7920213442828665`*^9, 3.7920213905202465`*^9}, { 3.792021421992297*^9, 3.792021423798359*^9}, 3.792021480052599*^9, { 3.7920215717325797`*^9, 3.792021583671978*^9}, {3.79202196660616*^9, 3.792022064576469*^9}, {3.7920221010851126`*^9, 3.7920222238548713`*^9}, { 3.792022518147612*^9, 3.792022567865628*^9}, {3.792022643686364*^9, 3.792022687802594*^9}, {3.7920229383147235`*^9, 3.792022940223375*^9}, 3.7920229844999895`*^9, {3.792023288547515*^9, 3.792023289698941*^9}, { 3.792023359111782*^9, 3.792023379518919*^9}, {3.7920234323692646`*^9, 3.7920234438974357`*^9}, {3.7925935457617483`*^9, 3.792593546246498*^9}, { 3.7952978039407377`*^9, 3.795297916416438*^9}, 3.805324656742337*^9, { 3.8085639345793204`*^9, 3.8085639934106317`*^9}, {3.8085640313792048`*^9, 3.808564041343393*^9}, {3.808564097959945*^9, 3.8085640991014304`*^9}, { 3.80935860668554*^9, 3.809358607325533*^9}, {3.809359451197028*^9, 3.809359539207732*^9}, {3.811634561776925*^9, 3.8116347975383058`*^9}, { 3.812378501249416*^9, 3.81237850349541*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"b7f7e2b9-73d6-4f45-8f5d-78ff726e3236"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.6`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "3.3740479511420944`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "18.973665961010276`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "106.69676460233538`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "600.`", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "3374.047951142095`", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "18973.665961010276`", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "106696.76460233537`", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "600000.`", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "3.3740479511420946`*^6"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.8093595069413*^9, 3.809359539615973*^9, 3.809961508993225*^9, 3.8103445315021486`*^9, 3.8103793000864935`*^9, 3.811549371559678*^9, 3.8115871933006463`*^9, {3.8116347871831355`*^9, 3.8116347999298806`*^9}, 3.812364884106183*^9, {3.812365691340251*^9, 3.812365694609076*^9}, 3.812378542708947*^9, 3.812378596722674*^9, 3.8123807015233893`*^9, { 3.8123808231913996`*^9, 3.812380827276454*^9}, 3.813404246160101*^9, 3.8134047996259227`*^9, 3.814012182456467*^9, 3.8140125378978148`*^9, 3.8140126766886425`*^9, 3.8140127435755925`*^9, 3.814044461015586*^9, 3.8140445416496916`*^9, 3.814044633149028*^9, 3.814198671102779*^9, 3.814209394835244*^9, 3.814225880417299*^9, 3.814457952062549*^9}, CellLabel->"Out[35]=",ExpressionUUID->"6d7d1aad-084a-49db-88ef-bde9a8f11de4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "t", "]"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"n2", "[", "t", "]"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"n3", "[", "t", "]"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"n4", "[", "t", "]"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"n5", "[", "t", "]"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"n6", "[", "t", "]"}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"n7", "[", "t", "]"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"n8", "[", "t", "]"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"n9", "[", "t", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"n10", "[", "t", "]"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.8093595069413*^9, 3.809359539615973*^9, 3.809961508993225*^9, 3.8103445315021486`*^9, 3.8103793000864935`*^9, 3.811549371559678*^9, 3.8115871933006463`*^9, {3.8116347871831355`*^9, 3.8116347999298806`*^9}, 3.812364884106183*^9, {3.812365691340251*^9, 3.812365694609076*^9}, 3.812378542708947*^9, 3.812378596722674*^9, 3.8123807015233893`*^9, { 3.8123808231913996`*^9, 3.812380827276454*^9}, 3.813404246160101*^9, 3.8134047996259227`*^9, 3.814012182456467*^9, 3.8140125378978148`*^9, 3.8140126766886425`*^9, 3.8140127435755925`*^9, 3.814044461015586*^9, 3.8140445416496916`*^9, 3.814044633149028*^9, 3.814198671102779*^9, 3.814209394835244*^9, 3.814225880417299*^9, 3.814457952062549*^9}, CellLabel->"Out[36]=",ExpressionUUID->"27c7919a-74ba-415f-8429-7eba6a1dc6a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"matrixN", "[", "t", "]"}], ".", RowBox[{"Transpose", "[", "matrixS", "]"}], ".", "matrixV"}], "]"}], "//", "MatrixForm"}]], "Input", CellChangeTimes->{{3.8115872142530184`*^9, 3.811587275003558*^9}, 3.8115873183104825`*^9}, CellLabel->"In[37]:=",ExpressionUUID->"6af96fb1-6283-4bea-9933-da64142973a3"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", RowBox[{"4.78626982662076`", " ", RowBox[{"n1", "[", "t", "]"}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"22.962298387701136`", " ", RowBox[{"n1", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"22.429728445225365`", " ", RowBox[{"n1", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.1307559863706498`", " ", RowBox[{"n1", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.0024946803695722513`", " ", RowBox[{"n1", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.3896840253023405`*^-7", " ", RowBox[{"n1", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"9.935653434746871`*^-13", " ", RowBox[{"n1", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.792983512606696`*^-19", " ", RowBox[{"n1", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.4043643099852934`*^-27", " ", RowBox[{"n1", "[", "t", "]"}]}]}]}, {"0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.03574361532936605`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.20100112011409782`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.1303123624970628`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6.356213518056326`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"35.74361532936605`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"201.0011201140978`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1130.3123624970628`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n2", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.20100112011409782`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.1303123624970628`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6.356213518056326`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"35.74361532936605`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"201.0011201140978`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1130.3123624970628`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n3", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.1303123624970628`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6.356213518056326`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"35.74361532936605`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"201.0011201140978`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1130.3123624970628`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n4", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6.356213518056326`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"35.74361532936605`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"201.0011201140978`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1130.3123624970628`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n5", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"35.74361532936605`", " ", RowBox[{"n6", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"201.0011201140978`", " ", RowBox[{"n6", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1130.3123624970628`", " ", RowBox[{"n6", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n6", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"201.0011201140978`", " ", RowBox[{"n7", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1130.3123624970628`", " ", RowBox[{"n7", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n7", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1130.3123624970628`", " ", RowBox[{"n8", "[", "t", "]"}]}]}], RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n8", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"6356.2135180563255`", " ", RowBox[{"n9", "[", "t", "]"}]}]}]}, {"0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.8115872169163446`*^9, 3.8115873194743214`*^9}, 3.812364884245807*^9, 3.8123656988954234`*^9, 3.812378605381655*^9, 3.8123807015732594`*^9, 3.812380832577112*^9, 3.8134042461997547`*^9, 3.8134047996658554`*^9, 3.8140121825212855`*^9, 3.814012537949676*^9, 3.8140126767414665`*^9, 3.8140127436205325`*^9, 3.814044461091793*^9, 3.814044541690454*^9, 3.814044633184084*^9, 3.814198671157669*^9, 3.814209394874175*^9, 3.814225880501075*^9, 3.814457952193842*^9}, CellLabel-> "Out[37]//MatrixForm=",ExpressionUUID->"525174ee-f023-4aad-bf1d-\ dc36a5875f0b"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltanPminp", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"matrixN", "[", "t", "]"}], ".", RowBox[{"Transpose", "[", "matrixS", "]"}], ".", "matrixV", ".", RowBox[{"n", "[", "t", "]"}]}], ")"}], "*", "deltat"}]}], " ", ";"}], RowBox[{"(*", RowBox[{ "the", " ", "total", " ", "number", " ", "of", " ", "prey", " ", "in", " ", "size", " ", "class", " ", "j", " ", "eaten", " ", "by", " ", "predators", " ", "per", " ", "delta", " ", "time", " ", "units"}], "*)"}]}]], "Input", CellChangeTimes->{{3.7920234810955057`*^9, 3.792023488790843*^9}, { 3.792023687249319*^9, 3.7920236991579127`*^9}, {3.792023789667346*^9, 3.792023879418927*^9}, {3.792023933346221*^9, 3.7920239781945333`*^9}, { 3.792288441661952*^9, 3.7922885232108335`*^9}, {3.7922885747513437`*^9, 3.792288583383492*^9}, {3.79232513173103*^9, 3.792325136034219*^9}, { 3.7923252046352906`*^9, 3.792325218422535*^9}, {3.792589990648947*^9, 3.7925899912863383`*^9}, {3.7925935888502007`*^9, 3.792593593004999*^9}, { 3.792593626988908*^9, 3.7925936305035243`*^9}, {3.79529792631997*^9, 3.7952979288148813`*^9}, {3.795297993681492*^9, 3.795298051753473*^9}, { 3.8085641162947536`*^9, 3.8085641453129673`*^9}, 3.812380836585556*^9}, CellLabel->"In[38]:=",ExpressionUUID->"01f6ba1a-fbf2-40f2-a2c1-bd6e2f145fb6"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"matrixE", "=", RowBox[{"DiagonalMatrix", "[", "evec", "]"}]}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "assimilation", " ", "of", " ", "predators", " ", "in", " ", "each", " ", "class", " ", "size"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"matrixM", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "1", "]"}], ",", RowBox[{"m", "[", "2", "]"}], ",", RowBox[{"m", "[", "3", "]"}], ",", RowBox[{"m", "[", "4", "]"}], ",", " ", RowBox[{"m", "[", "5", "]"}], ",", " ", RowBox[{"m", "[", "6", "]"}], ",", " ", RowBox[{"m", "[", "7", "]"}], ",", " ", RowBox[{"m", "[", "8", "]"}], ",", " ", RowBox[{"m", "[", "9", "]"}], ",", " ", RowBox[{"m", "[", "10", "]"}]}], "}"}], "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"body", " ", "mass", " ", "size", " ", "of", " ", "prey"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.792024359748666*^9, 3.792024363940243*^9}, { 3.792024466558964*^9, 3.792024476259821*^9}, {3.7920245087377586`*^9, 3.792024509556737*^9}, {3.792024543094215*^9, 3.79202458534063*^9}, { 3.792325313993039*^9, 3.79232531447229*^9}, {3.795298066055501*^9, 3.7952981144381366`*^9}, {3.7952982597245164`*^9, 3.795298332520192*^9}, { 3.795298369799857*^9, 3.7952984538322096`*^9}, {3.7958770066212654`*^9, 3.7958770071398206`*^9}, 3.80532467248184*^9, 3.8053278469204235`*^9, { 3.809359557848454*^9, 3.809359565670905*^9}, {3.811634832630952*^9, 3.8116348471494956`*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"ed08d1ca-c7a8-4de4-acb2-790fe5be2cb7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.6`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.6`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.6`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.6`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.6`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7923253151774635`*^9, 3.792590003417894*^9, 3.7958751739100137`*^9, 3.7958767468862963`*^9, 3.7958770082940435`*^9, {3.8053246699199657`*^9, 3.805324674535629*^9}, 3.8053278443336496`*^9, 3.8056467824285707`*^9, 3.805648938834339*^9, 3.8056502145180006`*^9, 3.805650397917864*^9, 3.8057116252137947`*^9, 3.806883519335225*^9, 3.8068845938419933`*^9, 3.8068846897544637`*^9, 3.8082405623599277`*^9, 3.808489262913269*^9, 3.808562620658585*^9, 3.808948887557441*^9, 3.808949461158865*^9, 3.8089494928755817`*^9, 3.8089519425461607`*^9, 3.8093566968118477`*^9, { 3.8093595489457273`*^9, 3.809359566333499*^9}, 3.8099615090550723`*^9, 3.8103445316918635`*^9, 3.8103793001383815`*^9, 3.8115493717518845`*^9, 3.8115874794402895`*^9, 3.81236488434742*^9, 3.8123657118174095`*^9, 3.812380701662694*^9, 3.8123808421380615`*^9, 3.8134042462886105`*^9, 3.813404799708702*^9, 3.814012182576102*^9, 3.814012537999542*^9, 3.8140126767953234`*^9, 3.814012743683338*^9, 3.8140444611662416`*^9, 3.8140445417212334`*^9, 3.814044633215599*^9, 3.8141986712085285`*^9, 3.8142093949200172`*^9, 3.8142258805430126`*^9, 3.8144579523038855`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"e32f6924-a9db-43d2-a22a-d47836c7fc78"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.01`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.1`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "10.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "100.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1000.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "10000.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "100000.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7923253151774635`*^9, 3.792590003417894*^9, 3.7958751739100137`*^9, 3.7958767468862963`*^9, 3.7958770082940435`*^9, {3.8053246699199657`*^9, 3.805324674535629*^9}, 3.8053278443336496`*^9, 3.8056467824285707`*^9, 3.805648938834339*^9, 3.8056502145180006`*^9, 3.805650397917864*^9, 3.8057116252137947`*^9, 3.806883519335225*^9, 3.8068845938419933`*^9, 3.8068846897544637`*^9, 3.8082405623599277`*^9, 3.808489262913269*^9, 3.808562620658585*^9, 3.808948887557441*^9, 3.808949461158865*^9, 3.8089494928755817`*^9, 3.8089519425461607`*^9, 3.8093566968118477`*^9, { 3.8093595489457273`*^9, 3.809359566333499*^9}, 3.8099615090550723`*^9, 3.8103445316918635`*^9, 3.8103793001383815`*^9, 3.8115493717518845`*^9, 3.8115874794402895`*^9, 3.81236488434742*^9, 3.8123657118174095`*^9, 3.812380701662694*^9, 3.8123808421380615`*^9, 3.8134042462886105`*^9, 3.813404799708702*^9, 3.814012182576102*^9, 3.814012537999542*^9, 3.8140126767953234`*^9, 3.814012743683338*^9, 3.8140444611662416`*^9, 3.8140445417212334`*^9, 3.814044633215599*^9, 3.8141986712085285`*^9, 3.8142093949200172`*^9, 3.8142258805430126`*^9, 3.8144579523038855`*^9}, CellLabel->"Out[40]=",ExpressionUUID->"6cf1cb17-acff-4097-821a-ffe2b255e0b6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"changem", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"m", "[", "2", "]"}], "-", RowBox[{"m", "[", "1", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "3", "]"}], "-", RowBox[{"m", "[", "2", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "4", "]"}], "-", RowBox[{"m", "[", "3", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "5", "]"}], "-", RowBox[{"m", "[", "4", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "6", "]"}], "-", RowBox[{"m", "[", "5", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "7", "]"}], "-", RowBox[{"m", "[", "6", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "8", "]"}], "-", RowBox[{"m", "[", "7", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "9", "]"}], "-", RowBox[{"m", "[", "8", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "10", "]"}], "-", RowBox[{"m", "[", "9", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "11", "]"}], "-", RowBox[{"m", "[", "10", "]"}]}]}], "}"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{"deltaMplus", " ", "=", " ", RowBox[{"DiagonalMatrix", "[", "changem", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "mass", " ", "difference", " ", "between", " ", "size", " ", "class", " ", "i"}], "+", RowBox[{"1", " ", "and", " ", "size", " ", "class", " ", "i"}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.792024598313175*^9, 3.7920246181187315`*^9}, { 3.792026727438637*^9, 3.7920267494623938`*^9}, {3.79202686922696*^9, 3.792027019516254*^9}, {3.7925900555565543`*^9, 3.7925900562662725`*^9}, { 3.7952984842364607`*^9, 3.795298531912365*^9}, 3.8053278519164*^9, { 3.809359203380814*^9, 3.8093592126349907`*^9}, {3.8116348802564125`*^9, 3.8116349290176272`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"d7d4b740-cd22-4487-88e9-a6155320aa0e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0009`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.009000000000000001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.09000000000000001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.9`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "9.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "90.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "900.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "9000.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "90000.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "900000.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7923253261289363`*^9, {3.7925900482410145`*^9, 3.7925900578647547`*^9}, 3.795875177623168*^9, 3.7958767503811917`*^9, 3.805324678560593*^9, 3.8053278536480618`*^9, 3.805646786372409*^9, 3.805648941103179*^9, { 3.8056501962359867`*^9, 3.805650217138159*^9}, 3.8056504011279993`*^9, 3.805711625325123*^9, 3.806883519357168*^9, 3.8068845938689175`*^9, 3.806884689777915*^9, 3.8082405623868933`*^9, 3.8084892629411917`*^9, 3.8085626206825614`*^9, 3.808948887580378*^9, 3.8089494611967993`*^9, 3.808949492897485*^9, 3.808951944358692*^9, 3.809356701107848*^9, 3.8093595705021477`*^9, 3.809961509083927*^9, 3.8103445318418283`*^9, 3.810379300169305*^9, 3.811549371869342*^9, 3.811587649164379*^9, 3.8123648844062624`*^9, 3.812365729468416*^9, 3.812380701704578*^9, 3.812380845832713*^9, 3.813404246329856*^9, 3.8134047997416143`*^9, 3.8140121826249723`*^9, 3.814012538038497*^9, 3.8140126768312273`*^9, 3.8140127437182255`*^9, 3.8140444611980534`*^9, 3.8140445417463613`*^9, 3.8140446332451844`*^9, 3.814198671253373*^9, 3.8142093949499626`*^9, 3.8142258805728817`*^9, 3.814457952337185*^9}, CellLabel->"Out[42]=",ExpressionUUID->"66787bf8-d3dc-47c0-ba3b-396d7f9b0884"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Tg", "=", RowBox[{ RowBox[{"DiagonalMatrix", "[", RowBox[{ RowBox[{"Array", "[", RowBox[{ RowBox[{"1", " ", "&"}], ",", " ", RowBox[{"a", "-", "1"}]}], "]"}], ",", " ", RowBox[{"-", "1"}]}], "]"}], "+", "\[IndentingNewLine]", RowBox[{"DiagonalMatrix", "[", RowBox[{"Array", "[", " ", RowBox[{ RowBox[{ RowBox[{"-", "1"}], " ", "&"}], ",", " ", "a"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "transfers", " ", "G", " ", "to", " ", "next", " ", "size", " ", "class"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", RowBox[{ RowBox[{"m", "[", "10", "]"}], "/", RowBox[{"m", "[", "1", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "transfers", " ", "dead", " ", "flesh", " ", "from", " ", "size", " ", "class", " ", "5", " ", "to", " ", "size", " ", "class", " ", "1"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}]}], "}"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ "transfers", " ", "undigested", " ", "material", " ", "from", " ", "all", " ", "size", " ", "classes", " ", "to", " ", "size", " ", "class", " ", "1"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"m1s", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"m", "[", "1", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "a"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"matrixM1", " ", "=", " ", RowBox[{"DiagonalMatrix", "[", "m1s", "]"}], " ", RowBox[{"(*", RowBox[{ "Inverse", " ", "of", " ", "M1", " ", "converts", " ", "E", " ", "to", " ", "number", " ", "of", " ", "resources"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.7916785358817883`*^9, 3.7916786666018724`*^9}, { 3.7916786983296638`*^9, 3.7916787002036*^9}, {3.7916837656340413`*^9, 3.791683775617275*^9}, {3.791683958679038*^9, 3.7916840235736713`*^9}, { 3.791684124778562*^9, 3.7916841250567665`*^9}, {3.7916848383125224`*^9, 3.791684868047245*^9}, {3.792021078255512*^9, 3.792021084575856*^9}, { 3.7920212161405525`*^9, 3.7920212272210045`*^9}, {3.792289023728077*^9, 3.792289085356847*^9}, {3.7923260370404167`*^9, 3.7923260687268867`*^9}, { 3.792592238640068*^9, 3.79259224064674*^9}, {3.7952987169801993`*^9, 3.7952987662239237`*^9}, {3.795298849361752*^9, 3.7952989516044106`*^9}, 3.8053246851086407`*^9, 3.805327858180526*^9, {3.809359225541349*^9, 3.809359230091045*^9}, {3.811587758725959*^9, 3.811587765900733*^9}, { 3.8115878393738284`*^9, 3.8115878906187873`*^9}, {3.811634508285163*^9, 3.811634543760515*^9}, {3.811634950321306*^9, 3.8116350042934127`*^9}, { 3.811635039382139*^9, 3.811635076338431*^9}, {3.8116352540200906`*^9, 3.811635277859437*^9}, 3.8123657449132214`*^9}, CellLabel->"In[43]:=",ExpressionUUID->"4a077b65-e5be-4e00-8eaa-c0f478b65253"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.792325401330962*^9, {3.7923260414869633`*^9, 3.792326069299695*^9}, 3.792590073691285*^9, 3.792591271179232*^9, 3.7925922431978164`*^9, { 3.795875182518655*^9, 3.795875186867938*^9}, 3.795876753806568*^9, 3.7958768343611975`*^9, 3.805324688458953*^9, 3.8053278607817783`*^9, { 3.8056467901652412`*^9, 3.8056467917692986`*^9}, 3.8056489453370066`*^9, { 3.805650220067966*^9, 3.805650238278037*^9}, 3.805650405853185*^9, 3.8057116254143414`*^9, 3.8068835193771477`*^9, 3.8068845938928747`*^9, 3.80688468979786*^9, 3.808240562414745*^9, 3.8084892629651327`*^9, 3.8085626207074566`*^9, 3.8089488876142874`*^9, 3.8089494612137575`*^9, 3.8089494929224157`*^9, 3.808951946350638*^9, 3.809356702765169*^9, 3.8093595722916803`*^9, 3.8099615091088963`*^9, 3.810344531911482*^9, 3.810379300190219*^9, 3.8115493719794054`*^9, {3.811587751672988*^9, 3.8115877664960985`*^9}, 3.8115878472327895`*^9, 3.811587910835597*^9, 3.8123648844591336`*^9, {3.8123657326548176`*^9, 3.8123657519145393`*^9}, 3.8123807017374907`*^9, 3.8123808491435213`*^9, 3.813404246359856*^9, 3.813404799777522*^9, 3.8140121826618724`*^9, 3.814012538068362*^9, 3.8140126768672004`*^9, 3.8140127437521205`*^9, 3.8140444612235107`*^9, 3.8140445417703114`*^9, 3.814044633269229*^9, 3.8141986712902927`*^9, 3.8142093949779077`*^9, 3.8142258805958214`*^9, 3.814457952365426*^9}, CellLabel->"Out[43]=",ExpressionUUID->"a096f7c4-9107-41b9-9104-7fdf764e3bc7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1.`*^9"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.792325401330962*^9, {3.7923260414869633`*^9, 3.792326069299695*^9}, 3.792590073691285*^9, 3.792591271179232*^9, 3.7925922431978164`*^9, { 3.795875182518655*^9, 3.795875186867938*^9}, 3.795876753806568*^9, 3.7958768343611975`*^9, 3.805324688458953*^9, 3.8053278607817783`*^9, { 3.8056467901652412`*^9, 3.8056467917692986`*^9}, 3.8056489453370066`*^9, { 3.805650220067966*^9, 3.805650238278037*^9}, 3.805650405853185*^9, 3.8057116254143414`*^9, 3.8068835193771477`*^9, 3.8068845938928747`*^9, 3.80688468979786*^9, 3.808240562414745*^9, 3.8084892629651327`*^9, 3.8085626207074566`*^9, 3.8089488876142874`*^9, 3.8089494612137575`*^9, 3.8089494929224157`*^9, 3.808951946350638*^9, 3.809356702765169*^9, 3.8093595722916803`*^9, 3.8099615091088963`*^9, 3.810344531911482*^9, 3.810379300190219*^9, 3.8115493719794054`*^9, {3.811587751672988*^9, 3.8115877664960985`*^9}, 3.8115878472327895`*^9, 3.811587910835597*^9, 3.8123648844591336`*^9, {3.8123657326548176`*^9, 3.8123657519145393`*^9}, 3.8123807017374907`*^9, 3.8123808491435213`*^9, 3.813404246359856*^9, 3.813404799777522*^9, 3.8140121826618724`*^9, 3.814012538068362*^9, 3.8140126768672004`*^9, 3.8140127437521205`*^9, 3.8140444612235107`*^9, 3.8140445417703114`*^9, 3.814044633269229*^9, 3.8141986712902927`*^9, 3.8142093949779077`*^9, 3.8142258805958214`*^9, 3.8144579523715096`*^9}, CellLabel->"Out[44]=",ExpressionUUID->"7ebec9b4-3977-4bcd-ab23-f3430b7a5e3a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.0001`", ",", "0.0001`", ",", "0.0001`", ",", "0.0001`", ",", "0.0001`", ",", "0.0001`", ",", "0.0001`", ",", "0.0001`", ",", "0.0001`", ",", "0.0001`"}], "}"}]], "Output", CellChangeTimes->{ 3.792325401330962*^9, {3.7923260414869633`*^9, 3.792326069299695*^9}, 3.792590073691285*^9, 3.792591271179232*^9, 3.7925922431978164`*^9, { 3.795875182518655*^9, 3.795875186867938*^9}, 3.795876753806568*^9, 3.7958768343611975`*^9, 3.805324688458953*^9, 3.8053278607817783`*^9, { 3.8056467901652412`*^9, 3.8056467917692986`*^9}, 3.8056489453370066`*^9, { 3.805650220067966*^9, 3.805650238278037*^9}, 3.805650405853185*^9, 3.8057116254143414`*^9, 3.8068835193771477`*^9, 3.8068845938928747`*^9, 3.80688468979786*^9, 3.808240562414745*^9, 3.8084892629651327`*^9, 3.8085626207074566`*^9, 3.8089488876142874`*^9, 3.8089494612137575`*^9, 3.8089494929224157`*^9, 3.808951946350638*^9, 3.809356702765169*^9, 3.8093595722916803`*^9, 3.8099615091088963`*^9, 3.810344531911482*^9, 3.810379300190219*^9, 3.8115493719794054`*^9, {3.811587751672988*^9, 3.8115877664960985`*^9}, 3.8115878472327895`*^9, 3.811587910835597*^9, 3.8123648844591336`*^9, {3.8123657326548176`*^9, 3.8123657519145393`*^9}, 3.8123807017374907`*^9, 3.8123808491435213`*^9, 3.813404246359856*^9, 3.813404799777522*^9, 3.8140121826618724`*^9, 3.814012538068362*^9, 3.8140126768672004`*^9, 3.8140127437521205`*^9, 3.8140444612235107`*^9, 3.8140445417703114`*^9, 3.814044633269229*^9, 3.8141986712902927`*^9, 3.8142093949779077`*^9, 3.8142258805958214`*^9, 3.8144579523715096`*^9}, CellLabel->"Out[46]=",ExpressionUUID->"1baef7b2-fdf1-4641-9042-930930ef972a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0001`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0001`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.0001`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.792325401330962*^9, {3.7923260414869633`*^9, 3.792326069299695*^9}, 3.792590073691285*^9, 3.792591271179232*^9, 3.7925922431978164`*^9, { 3.795875182518655*^9, 3.795875186867938*^9}, 3.795876753806568*^9, 3.7958768343611975`*^9, 3.805324688458953*^9, 3.8053278607817783`*^9, { 3.8056467901652412`*^9, 3.8056467917692986`*^9}, 3.8056489453370066`*^9, { 3.805650220067966*^9, 3.805650238278037*^9}, 3.805650405853185*^9, 3.8057116254143414`*^9, 3.8068835193771477`*^9, 3.8068845938928747`*^9, 3.80688468979786*^9, 3.808240562414745*^9, 3.8084892629651327`*^9, 3.8085626207074566`*^9, 3.8089488876142874`*^9, 3.8089494612137575`*^9, 3.8089494929224157`*^9, 3.808951946350638*^9, 3.809356702765169*^9, 3.8093595722916803`*^9, 3.8099615091088963`*^9, 3.810344531911482*^9, 3.810379300190219*^9, 3.8115493719794054`*^9, {3.811587751672988*^9, 3.8115877664960985`*^9}, 3.8115878472327895`*^9, 3.811587910835597*^9, 3.8123648844591336`*^9, {3.8123657326548176`*^9, 3.8123657519145393`*^9}, 3.8123807017374907`*^9, 3.8123808491435213`*^9, 3.813404246359856*^9, 3.813404799777522*^9, 3.8140121826618724`*^9, 3.814012538068362*^9, 3.8140126768672004`*^9, 3.8140127437521205`*^9, 3.8140444612235107`*^9, 3.8140445417703114`*^9, 3.814044633269229*^9, 3.8141986712902927`*^9, 3.8142093949779077`*^9, 3.8142258805958214`*^9, 3.8144579523715096`*^9}, CellLabel->"Out[47]=",ExpressionUUID->"de714942-6405-43af-a012-60cb17f52bb8"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", "deltanE", "]"}]], "Input", CellChangeTimes->{{3.812370462402723*^9, 3.812370469205573*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"7fd41c8b-3e1d-4465-80eb-9db393977785"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltanG", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"Tg", "+", "Tc"}], ")"}], ".", RowBox[{"Inverse", "[", "deltaMplus", "]"}], ".", "matrixE", ".", RowBox[{"matrixN", "[", "t", "]"}], ".", "matrixV", ".", "matrixS", ".", "matrixM", ".", RowBox[{"n", "[", "t", "]"}]}], ")"}], "*", "deltat"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "change", " ", "in", " ", "the", " ", "number", " ", "of", " ", "individuals", " ", "caused", " ", "by", " ", "growth", " ", "and", " ", "recycling", " ", "of", " ", "dead", " ", "flesh", " ", "per", " ", "unit", " ", "time", " ", "delta", " ", "t"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltanE", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"T1", ".", RowBox[{"Inverse", "[", "matrixM1", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"IdentityMatrix", "[", "10", "]"}], "-", "matrixE"}], ")"}], ".", RowBox[{"matrixN", "[", "t", "]"}], ".", "matrixV", ".", "matrixS", ".", "matrixM", ".", RowBox[{"n", "[", "t", "]"}]}], " ", ")"}], "*", "deltat"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ "increase", " ", "in", " ", "resorces", " ", "from", " ", "recycling", " ", "of", " ", "undigested", " ", "materials", " ", "per", " ", "delta", " ", "time", " ", "units"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.7923257150345783`*^9, 3.7923257612972116`*^9}, { 3.79232579195273*^9, 3.7923258165691776`*^9}, {3.7923258598215714`*^9, 3.7923258727540965`*^9}, {3.7923259271384897`*^9, 3.792325940622616*^9}, { 3.7923259732836866`*^9, 3.792325999540047*^9}, {3.79232609965361*^9, 3.792326107310389*^9}, {3.7925922557598667`*^9, 3.792592256547146*^9}, { 3.792593655421815*^9, 3.792593657916479*^9}, {3.792593688314013*^9, 3.792593694037486*^9}, 3.7952983454028263`*^9, {3.795298560053371*^9, 3.795298618547741*^9}, {3.7952986663217993`*^9, 3.795298668792408*^9}, { 3.7952987791319747`*^9, 3.7952988342755666`*^9}, {3.7952989637870855`*^9, 3.795298994017562*^9}, {3.7952990593962774`*^9, 3.795299059759351*^9}, { 3.7958767885804615`*^9, 3.79587681762444*^9}, 3.795876983711546*^9, 3.8053246976869183`*^9, {3.8056502500132327`*^9, 3.805650271198137*^9}, { 3.808564741344971*^9, 3.808564753121423*^9}, {3.80856478818095*^9, 3.8085647963395557`*^9}, {3.8123704078897038`*^9, 3.8123704089211507`*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"7eb370e6-58b8-46bc-809b-09e2303bf946"] }, Open ]], Cell[CellGroupData[{ Cell["Final Predator-Prey Interaction Component", "Subsubsection", CellChangeTimes->{{3.795299077511619*^9, 3.7952991047239914`*^9}},ExpressionUUID->"2b3f8cec-1bf1-472e-872b-\ 2654dffc4e2d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"deltanP", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", RowBox[{"deltanPminp", "[", "t", "]"}]}], "+", RowBox[{"deltanG", "[", "t", "]"}], "+", RowBox[{"deltanE", "[", "t", "]"}]}]}], " ", RowBox[{"(*", RowBox[{"predator", "-", RowBox[{ "prey", " ", "interaction", " ", "per", " ", "delta", " ", "t", " ", "units"}]}], "*)"}], ";"}]], "Input", CellChangeTimes->{{3.808240715485375*^9, 3.808240716891844*^9}, { 3.80860495421237*^9, 3.8086049679556637`*^9}, 3.812380859725643*^9}, CellLabel->"In[51]:=",ExpressionUUID->"7aa80bac-a837-49e7-999d-4d66eb817ef7"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Reproduction", "Section", CellChangeTimes->{{3.791684672359123*^9, 3.7916846743836145`*^9}},ExpressionUUID->"043a8c06-0788-4528-a906-\ 17f36283202e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"alphas", "=", RowBox[{"Table", "[", RowBox[{"0.5", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "a"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Sex", " ", "ratio", " ", "values"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"matrixA", "=", RowBox[{"DiagonalMatrix", "[", "alphas", "]"}]}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Sex", " ", "ratio", " ", "in", " ", "matrix", " ", "form"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"m2s", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"m", "[", "2", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "a"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"matrixM2", " ", "=", " ", RowBox[{"DiagonalMatrix", "[", "m2s", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T2", "=", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}]}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "new", " ", "matrix", " ", "that", " ", "transfers", " ", "eggs", " ", "into", " ", "size", " ", "class", " ", "2"}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7916847638261805`*^9, 3.7916848252882185`*^9}, { 3.792021050520509*^9, 3.79202106588161*^9}, {3.7920270705055695`*^9, 3.7920270997388*^9}, 3.7920276803042316`*^9, {3.7920277324511876`*^9, 3.792027795385895*^9}, {3.79202783137665*^9, 3.7920279191118493`*^9}, { 3.7920279633469696`*^9, 3.7920279648357363`*^9}, {3.7920281598739457`*^9, 3.7920281633556776`*^9}, {3.7920282388335485`*^9, 3.7920282557427*^9}, { 3.792028307970338*^9, 3.792028324543002*^9}, 3.792288660109614*^9, { 3.7922887798414593`*^9, 3.7922887847220316`*^9}, {3.79232613891378*^9, 3.792326145260107*^9}, {3.7925901585160275`*^9, 3.792590178640868*^9}, { 3.7952992268527308`*^9, 3.7952992467123737`*^9}, {3.7952992847148733`*^9, 3.7952993091597185`*^9}, {3.8053247162573786`*^9, 3.8053247218183146`*^9}, {3.8056500966558533`*^9, 3.805650137037161*^9}, { 3.8086056183639345`*^9, 3.8086056375336447`*^9}, {3.809359585354266*^9, 3.8093595897527018`*^9}, {3.8116353241081038`*^9, 3.8116354317973194`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"b9386b9d-c729-4a49-bd86-d744f3d276c3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.5`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.5`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.5`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.5`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.5`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.5`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.5`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.5`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.5`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.5`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.792325420470478*^9, {3.7923261331223917`*^9, 3.792326140319962*^9}, 3.792591477481435*^9, 3.8053247096852517`*^9, 3.805327875532711*^9, { 3.805646801658621*^9, 3.805646809533085*^9}, 3.8056504149381013`*^9, 3.805711625846881*^9, 3.806883519511753*^9, 3.8068845939646854`*^9, 3.8068846898467693`*^9, 3.8082405627917356`*^9, 3.808489263056882*^9, 3.808562620808221*^9, 3.808948887910073*^9, 3.808949461282533*^9, 3.808949493027136*^9, 3.808951972579663*^9, 3.809356720296054*^9, { 3.809359582197514*^9, 3.809359590376226*^9}, 3.8099615094569707`*^9, 3.81034453210844*^9, 3.810379300287985*^9, 3.8115493721799793`*^9, 3.811588157054095*^9, 3.812364885257454*^9, 3.8123704913345375`*^9, 3.812380702035688*^9, 3.8123808635755672`*^9, 3.813404246435206*^9, 3.813404799863288*^9, 3.8140121827795568`*^9, 3.81401253818077*^9, 3.814012677023715*^9, 3.814012743885813*^9, 3.8140444614296007`*^9, 3.8140445418756976`*^9, 3.8140446333444295`*^9, 3.8141986714129453`*^9, 3.814209395061702*^9, 3.814225880672622*^9, 3.8144579524625387`*^9}, CellLabel->"Out[53]=",ExpressionUUID->"3a0222ce-2389-49a5-b425-95c8a5e7dae0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`", ",", "0.001`"}], "}"}]], "Output", CellChangeTimes->{ 3.792325420470478*^9, {3.7923261331223917`*^9, 3.792326140319962*^9}, 3.792591477481435*^9, 3.8053247096852517`*^9, 3.805327875532711*^9, { 3.805646801658621*^9, 3.805646809533085*^9}, 3.8056504149381013`*^9, 3.805711625846881*^9, 3.806883519511753*^9, 3.8068845939646854`*^9, 3.8068846898467693`*^9, 3.8082405627917356`*^9, 3.808489263056882*^9, 3.808562620808221*^9, 3.808948887910073*^9, 3.808949461282533*^9, 3.808949493027136*^9, 3.808951972579663*^9, 3.809356720296054*^9, { 3.809359582197514*^9, 3.809359590376226*^9}, 3.8099615094569707`*^9, 3.81034453210844*^9, 3.810379300287985*^9, 3.8115493721799793`*^9, 3.811588157054095*^9, 3.812364885257454*^9, 3.8123704913345375`*^9, 3.812380702035688*^9, 3.8123808635755672`*^9, 3.813404246435206*^9, 3.813404799863288*^9, 3.8140121827795568`*^9, 3.81401253818077*^9, 3.814012677023715*^9, 3.814012743885813*^9, 3.8140444614296007`*^9, 3.8140445418756976`*^9, 3.8140446333444295`*^9, 3.8141986714129453`*^9, 3.814209395061702*^9, 3.814225880672622*^9, 3.8144579524676*^9}, CellLabel->"Out[54]=",ExpressionUUID->"055bab1c-bccf-4c69-b4be-fc6a0fd7bb88"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.001`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.001`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.001`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.001`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.792325420470478*^9, {3.7923261331223917`*^9, 3.792326140319962*^9}, 3.792591477481435*^9, 3.8053247096852517`*^9, 3.805327875532711*^9, { 3.805646801658621*^9, 3.805646809533085*^9}, 3.8056504149381013`*^9, 3.805711625846881*^9, 3.806883519511753*^9, 3.8068845939646854`*^9, 3.8068846898467693`*^9, 3.8082405627917356`*^9, 3.808489263056882*^9, 3.808562620808221*^9, 3.808948887910073*^9, 3.808949461282533*^9, 3.808949493027136*^9, 3.808951972579663*^9, 3.809356720296054*^9, { 3.809359582197514*^9, 3.809359590376226*^9}, 3.8099615094569707`*^9, 3.81034453210844*^9, 3.810379300287985*^9, 3.8115493721799793`*^9, 3.811588157054095*^9, 3.812364885257454*^9, 3.8123704913345375`*^9, 3.812380702035688*^9, 3.8123808635755672`*^9, 3.813404246435206*^9, 3.813404799863288*^9, 3.8140121827795568`*^9, 3.81401253818077*^9, 3.814012677023715*^9, 3.814012743885813*^9, 3.8140444614296007`*^9, 3.8140445418756976`*^9, 3.8140446333444295`*^9, 3.8141986714129453`*^9, 3.814209395061702*^9, 3.814225880672622*^9, 3.8144579524676*^9}, CellLabel->"Out[55]=",ExpressionUUID->"26d36a65-0887-4c1c-a9e3-e8f530c8c36e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixR", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "3", "]"}], ")"}], "r"]}], ",", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "4", "]"}], ")"}], "r"]}], ",", " ", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "5", "]"}], ")"}], "r"]}], ",", " ", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "6", "]"}], ")"}], "r"]}], ",", " ", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "7", "]"}], ")"}], "r"]}], ",", " ", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "8", "]"}], ")"}], "r"]}], ",", " ", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "9", "]"}], ")"}], "r"]}], ",", " ", RowBox[{"c", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "10", "]"}], ")"}], "r"]}]}], "}"}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"reproduction", " ", "rate"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Clear", "[", RowBox[{"msub", ",", " ", "deltaMneg"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"msub", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"m", "[", "1", "]"}], "-", "0"}], ",", RowBox[{ RowBox[{"m", "[", "2", "]"}], "-", RowBox[{"m", "[", "1", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "3", "]"}], "-", RowBox[{"m", "[", "2", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "4", "]"}], "-", RowBox[{"m", "[", "3", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "5", "]"}], "-", RowBox[{"m", "[", "4", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "6", "]"}], "-", RowBox[{"m", "[", "5", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "7", "]"}], "-", RowBox[{"m", "[", "6", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "8", "]"}], "-", RowBox[{"m", "[", "7", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "9", "]"}], "-", RowBox[{"m", "[", "8", "]"}]}], ",", " ", RowBox[{ RowBox[{"m", "[", "10", "]"}], "-", RowBox[{"m", "[", "9", "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"deltaMneg", " ", "=", " ", RowBox[{"DiagonalMatrix", "[", "msub", "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "mass", " ", "difference", " ", "between", " ", "a", " ", "size", " ", "class", " ", "i", " ", "and", " ", "i"}], "-", "1"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.791684687143188*^9, 3.7916846950881414`*^9}, { 3.792027572355748*^9, 3.792027671105764*^9}, {3.7922887897253437`*^9, 3.7922888356482124`*^9}, {3.792289181897608*^9, 3.7922892173898926`*^9}, { 3.792325543752569*^9, 3.792325596545988*^9}, {3.7925901642474213`*^9, 3.792590165940893*^9}, {3.792590724394097*^9, 3.792590860588739*^9}, { 3.792590906032691*^9, 3.792590954268479*^9}, {3.792591018270788*^9, 3.7925910412507124`*^9}, {3.7925910718808904`*^9, 3.792591130993419*^9}, { 3.7952992569334974`*^9, 3.795299271826665*^9}, {3.7952995853762903`*^9, 3.7952996030467873`*^9}, 3.8053247269580016`*^9, {3.8089516682851367`*^9, 3.808951673147919*^9}, {3.809359245786584*^9, 3.809359285619648*^9}, { 3.8116355486740527`*^9, 3.811635642796074*^9}, {3.812380668202022*^9, 3.812380670512059*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"04cb15dc-d89c-4066-a3d1-06def13d52f3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.0009`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.009000000000000001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.09000000000000001`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.9`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "9.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "90.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "900.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "9000.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "90000.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7925911330182657`*^9, 3.792591481311137*^9, 3.805324728944765*^9, 3.8053278878549995`*^9, 3.805650417288096*^9, 3.8057116259468713`*^9, 3.8068835195336947`*^9, 3.8068845939965973`*^9, 3.806884689871025*^9, 3.808240562823651*^9, 3.8084892630838165`*^9, 3.808562620834156*^9, 3.808948887930056*^9, 3.808949461309462*^9, 3.8089494930570583`*^9, 3.808951975835458*^9, 3.809356727885562*^9, 3.809961509488843*^9, 3.810344532181205*^9, 3.810379300317923*^9, 3.8115493722737174`*^9, 3.8115882498648043`*^9, 3.812364885320257*^9, 3.8123704982476115`*^9, { 3.812380691833728*^9, 3.8123807020761023`*^9}, 3.8123807586313243`*^9, 3.812380866667159*^9, 3.8134042464764094`*^9, 3.8134047999012194`*^9, 3.8140121828254347`*^9, 3.814012538224598*^9, 3.8140126770636063`*^9, 3.8140127439276686`*^9, 3.8140444614702377`*^9, 3.8140445419048257`*^9, 3.814044633373783*^9, 3.8141986714608555`*^9, 3.814209395093552*^9, 3.8142258807065244`*^9, 3.8144579525005507`*^9}, CellLabel->"Out[60]=",ExpressionUUID->"2bff7377-0489-4f47-a6ec-0867828ac00d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"deltanF", "[", "t_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"T1", ".", RowBox[{"Inverse", "[", "matrixM1", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"IdentityMatrix", "[", "10", "]"}], "-", "matrixA"}], ")"}]}], "+", RowBox[{"T2", ".", RowBox[{"Inverse", "[", "matrixM2", "]"}], ".", "matrixA"}]}], ")"}], ".", "matrixR", ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", "deltat"}]}], " ", RowBox[{"(*", RowBox[{ "increase", " ", "in", " ", "numbers", " ", "in", " ", "size", " ", "class", " ", "1", " ", "and", " ", "2", " ", "due", " ", "to", " ", "recycling", " ", "of", " ", "excrement", " ", "into", " ", "size", " ", "class", " ", "1", " ", "and", " ", "newborns", " ", "into", " ", "size", " ", "class", " ", "2"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"deltanB", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "Tg", "]"}], ".", RowBox[{"Inverse", "[", "deltaMneg", "]"}], ".", "matrixR", ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", "deltat"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ "net", " ", "change", " ", "in", " ", "the", " ", "number", " ", "of", " ", "individuals", " ", "of", " ", "each", " ", "size", " ", "class"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.792590668186083*^9, 3.7925907221881323`*^9}, { 3.7925911490782166`*^9, 3.792591235012161*^9}, {3.79259129309241*^9, 3.7925913512284365`*^9}, {3.7925914211189184`*^9, 3.792591616105051*^9}, { 3.7952993753377924`*^9, 3.795299488371129*^9}, {3.8086050001784716`*^9, 3.808605014130122*^9}, {3.8123704284779625`*^9, 3.812370429240676*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"6d91e7a1-bc97-4362-9888-bcf2f21f88e7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.8117066259517455`*^8", " ", RowBox[{"n10", "[", "t", "]"}]}], "+", RowBox[{"1581.1388300841895`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"8891.397050194615`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"50000.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"281170.66259517457`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"1.5811388300841895`*^6", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"8.891397050194614`*^6", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"5.`*^7", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.8117066259517454`*^7", " ", RowBox[{"n10", "[", "t", "]"}]}], "+", RowBox[{"158.11388300841895`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"889.1397050194615`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"5000.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"28117.066259517458`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"158113.88300841895`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"889139.7050194615`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"5.`*^6", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{{3.7925912007052913`*^9, 3.792591220963458*^9}, 3.7925912752132387`*^9, 3.792591572417374*^9, {3.7925916069112644`*^9, 3.792591620427536*^9}, 3.8053247325920987`*^9, 3.805327894630516*^9, 3.805646817076995*^9, 3.8056504200182257`*^9, 3.80571162615133*^9, 3.8068835195536413`*^9, 3.80688459402048*^9, 3.806884689893963*^9, 3.808240562857585*^9, 3.8084892631067457`*^9, 3.8085626208580513`*^9, 3.808948887951003*^9, 3.8089494613294563`*^9, 3.808949493075008*^9, 3.8089519787929516`*^9, 3.809356735217325*^9, 3.8099615095187635`*^9, 3.810344532232411*^9, 3.810379300345804*^9, 3.811549372371972*^9, 3.8115882670227737`*^9, 3.8123648855203753`*^9, 3.812370511879629*^9, 3.8123786638113117`*^9, 3.8123807021020346`*^9, 3.8123807625602646`*^9, 3.812380870497238*^9, 3.8134042465018625`*^9, 3.813404799924163*^9, 3.814012182858348*^9, 3.814012538254552*^9, 3.8140126770965176`*^9, 3.814012743953581*^9, 3.8140444614946604`*^9, 3.81404454192628*^9, 3.8140446333947396`*^9, 3.814198671492327*^9, 3.814209395115493*^9, 3.8142258807285047`*^9, 3.814457952527187*^9}, CellLabel->"Out[61]=",ExpressionUUID->"9c8d5f31-bd57-4f53-bc5b-e69351117937"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.`", ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"35.13641844631532`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"35.13641844631532`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"19.758660111543584`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"19.758660111543584`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"11.11111111111111`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"11.11111111111111`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"6.248236946559435`", " ", RowBox[{"n6", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"6.248236946559435`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"3.5136418446315325`", " ", RowBox[{"n7", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"3.5136418446315325`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"1.9758660111543587`", " ", RowBox[{"n8", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"1.9758660111543587`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"1.1111111111111112`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.6248236946559435`", " ", RowBox[{"n10", "[", "t", "]"}]}], "-", RowBox[{"1.1111111111111112`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.6248236946559435`", " ", RowBox[{"n10", "[", "t", "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.7925912007052913`*^9, 3.792591220963458*^9}, 3.7925912752132387`*^9, 3.792591572417374*^9, {3.7925916069112644`*^9, 3.792591620427536*^9}, 3.8053247325920987`*^9, 3.805327894630516*^9, 3.805646817076995*^9, 3.8056504200182257`*^9, 3.80571162615133*^9, 3.8068835195536413`*^9, 3.80688459402048*^9, 3.806884689893963*^9, 3.808240562857585*^9, 3.8084892631067457`*^9, 3.8085626208580513`*^9, 3.808948887951003*^9, 3.8089494613294563`*^9, 3.808949493075008*^9, 3.8089519787929516`*^9, 3.809356735217325*^9, 3.8099615095187635`*^9, 3.810344532232411*^9, 3.810379300345804*^9, 3.811549372371972*^9, 3.8115882670227737`*^9, 3.8123648855203753`*^9, 3.812370511879629*^9, 3.8123786638113117`*^9, 3.8123807021020346`*^9, 3.8123807625602646`*^9, 3.812380870497238*^9, 3.8134042465018625`*^9, 3.813404799924163*^9, 3.814012182858348*^9, 3.814012538254552*^9, 3.8140126770965176`*^9, 3.814012743953581*^9, 3.8140444614946604`*^9, 3.81404454192628*^9, 3.8140446333947396`*^9, 3.814198671492327*^9, 3.814209395115493*^9, 3.8142258807285047`*^9, 3.8144579525342307`*^9}, CellLabel->"Out[62]=",ExpressionUUID->"213ff9be-5037-4b35-8576-7a9599697211"] }, Open ]], Cell[CellGroupData[{ Cell["Final Reproduction Component", "Subsubsection", CellChangeTimes->{{3.7952991458027825`*^9, 3.7952991579869328`*^9}},ExpressionUUID->"c677795e-b76e-474e-9241-\ dc8c926efda8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"deltanR", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"deltanF", "[", "t", "]"}], " ", "+", " ", RowBox[{"deltanB", "[", "t", "]"}], RowBox[{"(*", RowBox[{ "column", " ", "vector", " ", "describing", " ", "reproduction", " ", "throughout", " ", "a", " ", "change", " ", "in", " ", "time"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.7925916233330393`*^9, 3.792591644948432*^9}, { 3.795299624746182*^9, 3.7952996863530827`*^9}, {3.80860502097284*^9, 3.80860503189159*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"1ddd952b-c5da-4028-92f7-22b10cc66e2b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.8117066259517455`*^8", " ", RowBox[{"n10", "[", "t", "]"}]}], "+", RowBox[{"1581.1388300841895`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"8891.397050194615`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"50000.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"281170.66259517457`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"1.5811388300841895`*^6", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"8.891397050194614`*^6", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"5.`*^7", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"35.13641844631532`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.8117066259517454`*^7", " ", RowBox[{"n10", "[", "t", "]"}]}], "+", RowBox[{"158.11388300841895`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"889.1397050194615`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"5000.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"28117.066259517458`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"158113.88300841895`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"889139.7050194615`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"5.`*^6", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"35.13641844631532`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"19.758660111543584`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"19.758660111543584`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"11.11111111111111`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"11.11111111111111`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"6.248236946559435`", " ", RowBox[{"n6", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"6.248236946559435`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"3.5136418446315325`", " ", RowBox[{"n7", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"3.5136418446315325`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"1.9758660111543587`", " ", RowBox[{"n8", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"1.9758660111543587`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"1.1111111111111112`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.6248236946559435`", " ", RowBox[{"n10", "[", "t", "]"}]}], "-", RowBox[{"1.1111111111111112`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.6248236946559435`", " ", RowBox[{"n10", "[", "t", "]"}]}]}], ")"}]}]}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQBOLUBPuU045vHJMFmXaIRL1xVBGb7iwGpK9/vP9nI5De 9r78xWYg3XbWfeFFIN1U/ek6b+wbx2/RjnF8QFquwTYLRM9YHlO2JP6N4wm3 J09lE944Hgmcs90RSFtp/Q/6B6Rf6a6eBaL7tRbPA9FCtluv/gfSi+TqK44m vnH8UDn17jEg/WL9xiNvkt44ZizqPLU8+Y3jUbGeIzuAdNSGfvEvqW8c4yTc xdnT3jh6xm/xakp/46jR+4irFUjHffdj7QTStyYdYe4C0i7F4ZIgOkvt4qna zDeOIgf/8dcB6Zkqdxcty3rj6F3ieR5EH4pa+gBEr1vO8BJEp7zYmLoNSDuF 7c8H0YXTdatBdKnCx42M2W8cZXakvGMD0l2hEr/5gLThC0GfBiANAOhjqzU= "], CellLabel->"Out[63]=",ExpressionUUID->"fb0a79af-1318-418f-9fc5-e8c4df7ffdf0"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Metabolism", "Section", CellChangeTimes->{{3.791685753494777*^9, 3.7916857574958167`*^9}},ExpressionUUID->"d7ac663d-30e8-4d3e-a806-\ 069d63cc3d57"], Cell[BoxData[ RowBox[{"Clear", "[", "matrixQ", "]"}]], "Input", CellChangeTimes->{{3.8123706132996655`*^9, 3.8123706183693027`*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"5a864278-f253-460b-80b7-8bcf2fc673e4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"matrixQ", " ", "=", " ", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "2", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "3", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "4", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "5", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "6", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "7", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "8", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "9", "]"}], ")"}], "q"]}], ",", " ", RowBox[{"\[Nu]", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "[", "10", "]"}], ")"}], "q"]}]}], "}"}], "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"metabolic", " ", "rate", " ", "matrix"}], ",", " ", RowBox[{ "stuff", " ", "on", " ", "the", " ", "diagonal", " ", "is", " ", "the", " ", "metabolic", " ", "rates", " ", "of", " ", "individuals", " ", "in", " ", "1", " ", "size", " ", RowBox[{"class", "."}]}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.7916861050779333`*^9, 3.791686202089241*^9}, { 3.792326170650935*^9, 3.792326192070936*^9}, {3.7925916902067127`*^9, 3.7925917546003327`*^9}, {3.79259207560448*^9, 3.7925920765227575`*^9}, 3.7953070804065905`*^9, {3.795877058750744*^9, 3.795877141827561*^9}, { 3.795877264045188*^9, 3.7958773136949453`*^9}, {3.808605053800037*^9, 3.808605059233507*^9}, {3.8089491827635946`*^9, 3.808949189061683*^9}, { 3.809359273481535*^9, 3.809359285621491*^9}, {3.8116356950569754`*^9, 3.811635713443386*^9}, {3.8123705626876373`*^9, 3.81237064930832*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"54999f04-dde7-4249-bf3f-0b81699e6345"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.013496191804568378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.0758946638440411`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.4267870584093415`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "2.4`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "13.496191804568378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "75.8946638440411`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "426.78705840934145`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "2400.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "13496.191804568378`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.812370651470126*^9, 3.8123807021878033`*^9, 3.8123808819494114`*^9, 3.813404246579296*^9, 3.813404800001955*^9, 3.8140121829586287`*^9, 3.814012538345274*^9, 3.8140126772211847`*^9, 3.814012744069273*^9, 3.8140444615912457`*^9, 3.8140445420112295`*^9, 3.8140446334543343`*^9, 3.81419867159206*^9, 3.8142093951813755`*^9, 3.814225880793363*^9, 3.8144579525927887`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"ed03ddde-f2b6-4a90-bc60-6aca06079e32"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"deltanW", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"T1", ".", RowBox[{"Inverse", "[", "matrixM1", "]"}], ".", "matrixQ", ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", " ", "deltat"}]}], " ", RowBox[{"(*", RowBox[{ "the", " ", "change", " ", "in", " ", "the", " ", "amount", " ", "of", " ", "things", " ", "in", " ", "size", " ", "class", " ", "1", " ", RowBox[{"(", RowBox[{"recycling", " ", "of", " ", "matabolites"}], ")"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"deltanL", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "Tg", "]"}], ".", RowBox[{"Inverse", "[", "deltaMneg", "]"}], ".", "matrixQ", ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", "deltat", " ", RowBox[{"(*", RowBox[{ RowBox[{ "the", " ", "number", " ", "of", " ", "individuals", " ", "in", " ", "a", " ", "size", " ", "class", " ", "at", " ", "a", " ", "specific", " ", "change", " ", "in", " ", RowBox[{"time", ".", " ", "An"}], " ", "assumption", " ", RowBox[{"made", ":", " ", RowBox[{ "the", " ", "number", " ", "of", " ", "animals", " ", "that", " ", "change", " ", "to", " ", "one", " ", "class", " ", "size", " ", "lower", " ", "than", " ", "the", " ", "class", " ", RowBox[{"they", "'"}], "re", " ", "in", " ", "can", " ", "be", " ", "determined", " ", "by", " ", SubscriptBox["L", "i"]}]}]}], "=", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["vm", "i"], "q"], SubscriptBox["n", "i"]}], ")"}], RowBox[{ SubscriptBox["m", "i"], "-", SubscriptBox["m", RowBox[{"i", "-", "1"}]]}]], "."}]}], "*)"}]}]}]}], "Input", CellChangeTimes->{{3.792592094347725*^9, 3.7925921541579785`*^9}, { 3.795877319724017*^9, 3.7958773216469183`*^9}, {3.7958776209778996`*^9, 3.795877656330118*^9}, {3.795877688667597*^9, 3.7958777428181925`*^9}, { 3.7958777762571726`*^9, 3.7958778810183864`*^9}, {3.808605066114046*^9, 3.808605069997714*^9}, {3.812370569147518*^9, 3.8123705715203733`*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"4d0a9ed6-2b8b-4a71-a6a9-06ff4c7b4d50"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.3496191804568377`*^8", " ", RowBox[{"n10", "[", "t", "]"}]}], "+", RowBox[{"134.96191804568377`", " ", RowBox[{"n2", "[", "t", "]"}]}], "+", RowBox[{"758.946638440411`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"4267.870584093415`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"24000.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"134961.91804568376`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"758946.6384404111`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"4.267870584093414`*^6", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"2.4`*^7", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{{3.7925921389107895`*^9, 3.7925921553167667`*^9}, 3.805324743370347*^9, 3.805327911289154*^9, 3.80564682806609*^9, 3.8056507612479324`*^9, 3.8057116264330626`*^9, 3.8068835196225643`*^9, 3.8068845940892973`*^9, 3.8068846899708004`*^9, 3.8082405629712887`*^9, 3.808489263179556*^9, 3.808562620940832*^9, 3.808948888018818*^9, 3.808949461386256*^9, 3.8089494931528*^9, 3.8089519878770633`*^9, 3.809356748025249*^9, 3.809359603359507*^9, 3.809961509602539*^9, 3.8103445324156585`*^9, 3.810379300429577*^9, 3.811549372817856*^9, 3.811588345636902*^9, 3.812364885755844*^9, 3.8123706595510073`*^9, 3.812378676076925*^9, 3.81238070222077*^9, 3.8123808850799956`*^9, 3.8134042466045103`*^9, 3.8134048000229025`*^9, 3.814012182995493*^9, 3.814012538376867*^9, 3.814012677254098*^9, 3.8140127440932627`*^9, 3.814044461624565*^9, 3.8140445420367155`*^9, 3.814044633474658*^9, 3.8141986716270046`*^9, 3.8142093952063007`*^9, 3.814225880816292*^9, 3.814457952615111*^9}, CellLabel->"Out[66]=",ExpressionUUID->"a9f85ac8-26aa-4a9b-8e75-e929b1ed6c3f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"14.995768671742642`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"14.995768671742642`", " ", RowBox[{"n2", "[", "t", "]"}]}], "+", RowBox[{"8.432740427115677`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"8.432740427115677`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"4.74207842677046`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"4.74207842677046`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"2.6666666666666665`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"2.6666666666666665`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"1.4995768671742642`", " ", RowBox[{"n6", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"1.4995768671742642`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"0.8432740427115679`", " ", RowBox[{"n7", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.8432740427115679`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"0.4742078426770461`", " ", RowBox[{"n8", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.4742078426770461`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"0.26666666666666666`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.14995768671742643`", " ", RowBox[{"n10", "[", "t", "]"}]}], "-", RowBox[{"0.26666666666666666`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.14995768671742643`", " ", RowBox[{"n10", "[", "t", "]"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.7925921389107895`*^9, 3.7925921553167667`*^9}, 3.805324743370347*^9, 3.805327911289154*^9, 3.80564682806609*^9, 3.8056507612479324`*^9, 3.8057116264330626`*^9, 3.8068835196225643`*^9, 3.8068845940892973`*^9, 3.8068846899708004`*^9, 3.8082405629712887`*^9, 3.808489263179556*^9, 3.808562620940832*^9, 3.808948888018818*^9, 3.808949461386256*^9, 3.8089494931528*^9, 3.8089519878770633`*^9, 3.809356748025249*^9, 3.809359603359507*^9, 3.809961509602539*^9, 3.8103445324156585`*^9, 3.810379300429577*^9, 3.811549372817856*^9, 3.811588345636902*^9, 3.812364885755844*^9, 3.8123706595510073`*^9, 3.812378676076925*^9, 3.81238070222077*^9, 3.8123808850799956`*^9, 3.8134042466045103`*^9, 3.8134048000229025`*^9, 3.814012182995493*^9, 3.814012538376867*^9, 3.814012677254098*^9, 3.8140127440932627`*^9, 3.814044461624565*^9, 3.8140445420367155`*^9, 3.814044633474658*^9, 3.8141986716270046`*^9, 3.8142093952063007`*^9, 3.814225880816292*^9, 3.8144579526240873`*^9}, CellLabel->"Out[67]=",ExpressionUUID->"dd69dfb4-99be-44bf-a4f8-a4aeb0fbf5b7"] }, Open ]], Cell[CellGroupData[{ Cell["Final Metabolism Component", "Subsection", CellChangeTimes->{{3.807957636708786*^9, 3.8079576483496494`*^9}},ExpressionUUID->"8e38e91e-b75f-47ab-a81f-\ 4899172f9544"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"deltanQ", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"deltanW", "[", "t", "]"}], "+", RowBox[{"deltanL", "[", "t", "]"}]}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "the", " ", "metabolism", " ", "that", " ", "takes", " ", "place", " ", "in", " ", "each", " ", "individual", " ", "to", " ", "maintain", " ", "their", " ", "body", " ", "structure", " ", "and", " ", "their", " ", "activity", " ", "level"}], ",", " ", RowBox[{ "represents", " ", "the", " ", "changes", " ", "that", " ", "take", " ", "place", " ", "in", " ", "total", " ", "in", " ", "the", " ", RowBox[{"population", "."}]}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.792592161005091*^9, 3.7925921784540925`*^9}, { 3.795878018423476*^9, 3.7958780772671475`*^9}, 3.8053247572522707`*^9, { 3.8086050782276955`*^9, 3.8086050873941717`*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"5f47c674-7302-4d7c-aff8-ea732612585d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"14.995768671742642`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.3496191804568377`*^8", " ", RowBox[{"n10", "[", "t", "]"}]}], "+", RowBox[{"134.96191804568377`", " ", RowBox[{"n2", "[", "t", "]"}]}], "+", RowBox[{"758.946638440411`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"4267.870584093415`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"24000.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"134961.91804568376`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"758946.6384404111`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"4.267870584093414`*^6", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"2.4`*^7", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"14.995768671742642`", " ", RowBox[{"n2", "[", "t", "]"}]}], "+", RowBox[{"8.432740427115677`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"8.432740427115677`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"4.74207842677046`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"4.74207842677046`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"2.6666666666666665`", " ", RowBox[{"n5", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"2.6666666666666665`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"1.4995768671742642`", " ", RowBox[{"n6", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"1.4995768671742642`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"0.8432740427115679`", " ", RowBox[{"n7", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.8432740427115679`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"0.4742078426770461`", " ", RowBox[{"n8", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.4742078426770461`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"0.26666666666666666`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.14995768671742643`", " ", RowBox[{"n10", "[", "t", "]"}]}], "-", RowBox[{"0.26666666666666666`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.14995768671742643`", " ", RowBox[{"n10", "[", "t", "]"}]}]}], ")"}]}]}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQBOKYhxOXnXZ848h19cVOkag3jqsPrvAUA9IG37f93Qik v/xKfrkZSHcsCVh4EUintH25zhv7xlG/3DmOD0j3HbHPAtFljAllS+LfOEYV PXsqm/DGsfn6vO2OQLqkjDH4H5A+933NLBCtu2PpPBDtZHjn2n8g/TjhfOXR xDeOVcEW944BaaMDW468SXrjGCPaf2p58hvHZVF9R3YA6dOWc8W/pL5xbJBs U2BPe+M4Z/JOr6Z0oD3T5WVbgTRbIR97J5B+FXaCuQtIB/HySIPoU9VXTtVm vnHMEWISqAPSG6weLlqW9cbxU5vveRAd57vqAYgWs2d9CaI5T25N3Qakd946 lA+i0xQNqkH0sfqvGxmz3zjuX5/+jg1Ia4hI/+YD0k92iPg0AGkA+Z+r5w== "], CellLabel->"Out[68]=",ExpressionUUID->"09bb05b3-15f9-4503-b461-0d51bca1c970"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Non-predation and Fishing Mortalities", "Section", CellChangeTimes->{{3.7916857692070627`*^9, 3.7916857809860067`*^9}},ExpressionUUID->"76d34b9b-6630-4f6c-a59b-\ becfe276410d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"z0", "=", FractionBox["\[Mu]0", "ks"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"d", "-", "f"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hs", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "a"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Fishing", " ", "mortality", " ", "rates"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"matrixND", "[", "t_", "]"}], " ", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", RowBox[{ RowBox[{"n2", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "2", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n3", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "3", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n4", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "4", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n5", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "5", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n6", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "6", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n7", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "7", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n8", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "8", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n9", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "9", "]"}], RowBox[{"-", "z"}]]}], ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", "0", ",", " ", RowBox[{ RowBox[{"n10", "[", "t", "]"}], "*", "z0", "*", SuperscriptBox[ RowBox[{"m", "[", "10", "]"}], RowBox[{"-", "z"}]]}]}], "}"}]}], "}"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"the", " ", "mortality", " ", "rate", " ", "for", " ", "non"}], "-", RowBox[{ "predatory", " ", "reasons", " ", "in", " ", "each", " ", "class", " ", RowBox[{"size", "."}]}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.7925923328464117`*^9, 3.792592465730203*^9}, { 3.792592681495895*^9, 3.792592709752923*^9}, {3.792592745640331*^9, 3.7925928149286847`*^9}, {3.7925931700030165`*^9, 3.7925931990021687`*^9}, { 3.795879925732486*^9, 3.7958799739044933`*^9}, {3.8056513409677367`*^9, 3.805651347886861*^9}, {3.8086050998458767`*^9, 3.808605114335123*^9}, { 3.8089393750985174`*^9, 3.808939387550178*^9}, {3.809359273484182*^9, 3.809359285623313*^9}, {3.8116357266152983`*^9, 3.8116358728325825`*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"3d291b0f-50d6-48d6-9334-704acb971eb0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"0.7981049259875521`", " ", RowBox[{"n2", "[", "t", "]"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"6.339572769844455`", " ", RowBox[{"n3", "[", "t", "]"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{"50.3570164717667`", " ", RowBox[{"n4", "[", "t", "]"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"399.99999999999994`", " ", RowBox[{"n5", "[", "t", "]"}]}], ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"3177.3129388971247`", " ", RowBox[{"n6", "[", "t", "]"}]}], ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"25238.293779207717`", " ", RowBox[{"n7", "[", "t", "]"}]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"200474.89345090874`", " ", RowBox[{"n8", "[", "t", "]"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"1.5924286822139875`*^6", " ", RowBox[{"n9", "[", "t", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", RowBox[{"1.2649110640673501`*^7", " ", RowBox[{"n10", "[", "t", "]"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAuIbL159Pe34xjHC7r3qGSC91qt5t0jUG8cnzhZeYkB6 lbruv41Aum/O8lebgfS8vcELLwLpM5pfr/PGvnEsE3KJ4wPSP9IdskD08YTE siXxbxwd5J4/lU1443jxyfztjkB6lhFT8D8g/XnS2lkg+uOcZfNAtHCg2fX/ QFqSIbbqaOIbx5DGHfeOAemc7K1H3iS9cWQ6P+HU8uQ3jr0a/Ud2AOntlxaK f0kFil900GFPe+PYqrnbqyn9jePrngnKrUD6cfE69k4gve/cSeYuIP1mR7E0 iG5KvXqqNvONo8pzJoE6IH3H/tGiZVlvHLfO8TsPoic5rX4Aop8ps70E0TZ/ t6VuA9KLFh7OB9HzrhhUg+jU2d82MmYD3Tkn4x0bkDZ8IP2bD0g3VIr6NABp AP5es9Q= "], CellLabel->"Out[72]=",ExpressionUUID->"a273c30c-f287-4b9b-a874-18382cbd15ad"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltanDDminloss", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"matrixND", "[", "t", "]"}], ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", "deltat"}]}], " ", ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ "the", " ", "decrease", " ", "in", " ", "individuals", " ", "due", " ", "to", " ", "non"}], "-", RowBox[{ "predatory", " ", "deaths", " ", "for", " ", "each", " ", "size", " ", "class", " ", "at", " ", "a", " ", "certain", " ", "change", " ", "in", " ", "time"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltanDminrecycle", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"T1", ".", RowBox[{"Inverse", "[", "matrixM1", "]"}], ".", RowBox[{"matrixND", "[", "t", "]"}], ".", "matrixM", ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", "deltat"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "the", " ", "amount", " ", "of", " ", "recycled", " ", "products", " ", "added", " ", "to", " ", "size", " ", "class", " ", "1", " ", "due", " ", "to", " ", "non"}], "-", RowBox[{"predatory", " ", RowBox[{"mortality", ".", " ", "Also"}]}]}], ",", " ", RowBox[{ RowBox[{"matrixND", ".", "matrixM", ".", "m"}], " ", "is", " ", "the", " ", "amount", " ", "of", " ", "biomass", " ", "for", " ", "each", " ", "size", " ", "class"}]}], "*)"}]}]}], "Input", CellFrame->1, CellFrameColor->GrayLevel[1], CellChangeTimes->{{3.79259282862696*^9, 3.792592847470804*^9}, { 3.7925929541661983`*^9, 3.792592960924829*^9}, {3.792593088602586*^9, 3.7925931462729197`*^9}, {3.7958799888496466`*^9, 3.7958801944343715`*^9}, { 3.8086051260248427`*^9, 3.808605160763923*^9}, {3.8093568539916687`*^9, 3.809356854574359*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"5f04d4ee-339f-43d1-bf11-38fd8fe1f7d0"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"matrixH", " ", "=", " ", RowBox[{"DiagonalMatrix", "[", "hs", "]"}]}], ";"}], " ", RowBox[{"(*", RowBox[{"fishing", " ", "mortality", " ", RowBox[{"matrix", ":", " ", RowBox[{ "diagonal", " ", "is", " ", "that", " ", "rate", " ", "for", " ", "each", " ", "size", " ", "class"}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltanYminremove", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"matrixH", ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", "deltat"}]}], ";"}], RowBox[{"(*", RowBox[{ "the", " ", "decrease", " ", "in", " ", "population", " ", "due", " ", "to", " ", "fishing"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.7925931494325466`*^9, 3.792593167320616*^9}, { 3.7925932131775227`*^9, 3.7925932418871117`*^9}, {3.7958802819051504`*^9, 3.7958803417289543`*^9}, {3.808605176630477*^9, 3.8086051927762823`*^9}, { 3.811588523756665*^9, 3.8115885301861687`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"9bbf9f0c-e7da-496d-97c3-7869b458fb90"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"deltanYminrecycle", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"T1", ".", RowBox[{"Inverse", "[", "matrixM1", "]"}], ".", "matrixH", ".", "matrixM", ".", RowBox[{"n", "[", "t", "]"}]}], " ", "*", "deltat"}]}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{ "the", " ", "amount", " ", "of", " ", "matter", " ", "that", " ", "goes", " ", "back", " ", "to", " ", "the", " ", "sea", " ", "after", " ", "human", " ", "consumption"}], ",", " ", RowBox[{"goes", " ", "into", " ", "size", " ", "class", " ", "1"}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.792593257889863*^9, 3.7925933260450864`*^9}, { 3.795880423013795*^9, 3.7958804608534603`*^9}, {3.808605187946223*^9, 3.808605204928745*^9}, {3.8115885529154267`*^9, 3.8115885601405153`*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"d735d180-3048-4218-83b4-4af2f33f3f66"], Cell[CellGroupData[{ Cell["Final Fishing and Non-Predatory Component", "Subsection", CellChangeTimes->{{3.80795765818534*^9, 3.807957671239422*^9}},ExpressionUUID->"acb96fd3-81e9-48ab-9c1d-\ 639375557b4b"], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{ "n1", ",", " ", "n2", ",", " ", "n3", ",", " ", "n4", ",", " ", "n5", ",", " ", "n6", ",", " ", "n7", ",", " ", "n8", ",", " ", "n9", ",", " ", "n10"}], "]"}]], "Input", CellLabel->"In[78]:=",ExpressionUUID->"a1488bc8-4b57-4fb0-825e-a6deeaaff5f8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"deltanU", "[", "t_", "]"}], " ", "=", " ", RowBox[{ RowBox[{"-", RowBox[{"deltanDDminloss", "[", "t", "]"}]}], " ", "+", " ", RowBox[{"deltanDminrecycle", "[", "t", "]"}], " ", "-", RowBox[{"deltanYminremove", "[", "t", "]"}], " ", "+", RowBox[{"deltanYminrecycle", "[", "t", "]"}], " ", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ "The", " ", "factors", " ", "that", " ", "go", " ", "into", " ", "non"}], "-", RowBox[{ RowBox[{"predatory", "/", "fishing"}], " ", "deaths"}]}], ",", " ", RowBox[{"including", " ", "disease"}], ",", " ", "competition", ",", " ", RowBox[{"etc", "."}]}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.792593337158717*^9, 3.792593400097557*^9}, { 3.79588048876045*^9, 3.7958804896345143`*^9}, {3.7958805427455106`*^9, 3.795880599380416*^9}, {3.8086052125882487`*^9, 3.808605228859725*^9}, { 3.8089503017339716`*^9, 3.8089503056830482`*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"0c2339a0-681a-4d3a-a552-504786539061"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"100000.`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.2649110640673502`*^11", " ", RowBox[{"n10", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.001`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"7981.049259875521`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.01`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"63395.727698444556`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"0.1`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"503570.164717667`", " ", RowBox[{"n4", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"3.9999999999999995`*^6", " ", RowBox[{"n5", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"10.`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"3.1773129388971247`*^7", " ", RowBox[{"n6", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"100.`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.5238293779207718`*^8", " ", RowBox[{"n7", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n8", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1000.`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.0047489345090873`*^9", " ", RowBox[{"n8", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n9", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"10000.`", " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.5924286822139875`*^10", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.0007981049259875522`", " ", SuperscriptBox[ RowBox[{"n2", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.0063395727698444555`", " ", SuperscriptBox[ RowBox[{"n3", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.0503570164717667`", " ", SuperscriptBox[ RowBox[{"n4", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.39999999999999997`", " ", SuperscriptBox[ RowBox[{"n5", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"3.1773129388971246`", " ", SuperscriptBox[ RowBox[{"n6", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"25.23829377920772`", " ", SuperscriptBox[ RowBox[{"n7", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"200.47489345090875`", " ", SuperscriptBox[ RowBox[{"n8", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"1592.4286822139875`", " ", SuperscriptBox[ RowBox[{"n9", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"12649.110640673502`", " ", SuperscriptBox[ RowBox[{"n10", "[", "t", "]"}], "2"]}]}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAuIZuR6OZxzfOK6c1rRXJOqNY9fMOT5iQLqV2ff/RiCt +Ova681A+sCP2IUXgXSL3PfrvLFvHHXOuMbxAem4LKcsED0nIqVsSfwbx9mO L5/KJrxxtLFctN0RSF81ZQn+B6SNtNfPAtFL5q+YB6J/V2fe+g+kZ+Ty1xxN fOO4Rqu/B0Tn3Oi6fwxIV/huP/Im6Y2j3++pp5Ynv3GUUp54ZAeQDiteI/4l 9Y1j3lkme/a0N44dVQe9mtLfOEpuY1FtBdJmK0M5O4H0i+9nmLuA9GZtTlkQ bSNx41Rt5hvH8i5WgTog7Xfi2aJlWW8cDzUHnQfRUxeufwCizy3gegmiVZ/s St0GpOtuH80H0SbcxtUgOrf290bG7DeORxWz37EBaU0Zud98QNrGV8KnAUgD AIG8rWc= "], CellLabel->"Out[79]=",ExpressionUUID->"50d76139-540a-4a57-bd12-5d4c45cf7eb0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{"deltanU", "[", "t", "]"}], "]"}]], "Input", CellChangeTimes->{{3.8123800183932185`*^9, 3.8123800282005777`*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"ec7d0d03-d50a-47f0-a03d-d71391c73d6f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.2649110640673502`*^13", " ", SuperscriptBox[ RowBox[{"n10", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.007981049259875521`", " ", SuperscriptBox[ RowBox[{"n2", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.6339572769844456`", " ", SuperscriptBox[ RowBox[{"n3", "[", "t", "]"}], "2"]}], "+", RowBox[{"50.3570164717667`", " ", SuperscriptBox[ RowBox[{"n4", "[", "t", "]"}], "2"]}], "+", RowBox[{"3999.9999999999995`", " ", SuperscriptBox[ RowBox[{"n5", "[", "t", "]"}], "2"]}], "+", RowBox[{"317731.2938897125`", " ", SuperscriptBox[ RowBox[{"n6", "[", "t", "]"}], "2"]}], "+", RowBox[{"2.5238293779207718`*^7", " ", SuperscriptBox[ RowBox[{"n7", "[", "t", "]"}], "2"]}], "+", RowBox[{"2.0047489345090876`*^9", " ", SuperscriptBox[ RowBox[{"n8", "[", "t", "]"}], "2"]}], "+", RowBox[{"1.5924286822139874`*^11", " ", SuperscriptBox[ RowBox[{"n9", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.0007981049259875522`", " ", SuperscriptBox[ RowBox[{"n2", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.0063395727698444555`", " ", SuperscriptBox[ RowBox[{"n3", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.0503570164717667`", " ", SuperscriptBox[ RowBox[{"n4", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"0.39999999999999997`", " ", SuperscriptBox[ RowBox[{"n5", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"3.1773129388971246`", " ", SuperscriptBox[ RowBox[{"n6", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"25.23829377920772`", " ", SuperscriptBox[ RowBox[{"n7", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"200.47489345090875`", " ", SuperscriptBox[ RowBox[{"n8", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"1592.4286822139875`", " ", SuperscriptBox[ RowBox[{"n9", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"12649.110640673502`", " ", SuperscriptBox[ RowBox[{"n10", "[", "t", "]"}], "2"]}]}]}], "}"}]], "Output", CellChangeTimes->{3.812380028725142*^9, 3.8123807024381337`*^9, 3.8123809083382215`*^9, 3.8134042467905097`*^9, 3.813404800204108*^9, 3.814012183241871*^9, 3.814012538653341*^9, 3.8140126775134325`*^9, 3.8140127443630414`*^9, 3.814044461864416*^9, 3.814044542205655*^9, 3.8140446336150527`*^9, 3.814198671893024*^9, 3.814209395369875*^9, 3.814225880960883*^9, 3.814457952789751*^9}, CellLabel->"Out[80]=",ExpressionUUID->"385f94e0-a97e-4a22-b0cd-26007a1a016a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"0.5685103662290976`", "/", "0.014788259285134279`"}]], "Input", CellChangeTimes->{{3.812380235940647*^9, 3.812380238545547*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"3dbaaa11-30cb-453b-aba0-4f72226728a3"], Cell[BoxData["38.44335937499999`"], "Output", CellChangeTimes->{3.812380239142947*^9, 3.812380702462077*^9, 3.812380912484042*^9, 3.8134042468123703`*^9, 3.813404800226012*^9, 3.8140121832668056`*^9, 3.814012538681264*^9, 3.81401267754333*^9, 3.814012744384948*^9, 3.8140444618819*^9, 3.814044542223997*^9, 3.81404463363326*^9, 3.8141986719208994`*^9, 3.814209395388823*^9, 3.8142258809788322`*^9, 3.8144579528107724`*^9}, CellLabel->"Out[81]=",ExpressionUUID->"4b8a4ab2-0977-43bd-9478-a010663ef552"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"m", "[", "10", "]"}], "/", RowBox[{"m", "[", "1", "]"}]}]], "Input", CellChangeTimes->{{3.812380249624135*^9, 3.812380256715045*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"8de76663-309e-4cc3-8c59-23e5a233495f"], Cell[BoxData["1.`*^9"], "Output", CellChangeTimes->{3.812380257468032*^9, 3.812380702485009*^9, 3.8123809144950953`*^9, 3.813404246835681*^9, 3.8134048002449617`*^9, 3.8140121832957306`*^9, 3.814012538705202*^9, 3.8140126775722895`*^9, 3.8140127444129086`*^9, 3.8140444618989415`*^9, 3.8140445422390356`*^9, 3.814044633647257*^9, 3.81419867194882*^9, 3.8142093954067574`*^9, 3.814225880994754*^9, 3.814457952829191*^9}, CellLabel->"Out[82]=",ExpressionUUID->"43e43f51-a004-4af2-9275-98db73adcc6c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"0.0011971573889813284`", "/", "0.0007981049259875522`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "[", "2", "]"}], "/", RowBox[{"m", "[", "1", "]"}]}]}], "Input", CellChangeTimes->{{3.8123803145254116`*^9, 3.8123803327505207`*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"7cb87732-6fcd-420b-bba6-e4e9b7da6277"], Cell[BoxData["1.5`"], "Output", CellChangeTimes->{3.8123803334464087`*^9, 3.8123807025149283`*^9, 3.813404246857836*^9, 3.8134048002728877`*^9, 3.8140121833226595`*^9, 3.814012538738142*^9, 3.8140126776061954`*^9, 3.814012744436843*^9, 3.8140444619129925`*^9, 3.81404454225797*^9, 3.8140446336645937`*^9, 3.814198671981732*^9, 3.814209395427699*^9, 3.81422588101077*^9, 3.814457952844247*^9}, CellLabel->"Out[83]=",ExpressionUUID->"1a90b2ce-59e6-441b-8119-05e65e4b91ff"], Cell[BoxData["10.`"], "Output", CellChangeTimes->{3.8123803334464087`*^9, 3.8123807025149283`*^9, 3.813404246857836*^9, 3.8134048002728877`*^9, 3.8140121833226595`*^9, 3.814012538738142*^9, 3.8140126776061954`*^9, 3.814012744436843*^9, 3.8140444619129925`*^9, 3.81404454225797*^9, 3.8140446336645937`*^9, 3.814198671981732*^9, 3.814209395427699*^9, 3.81422588101077*^9, 3.814457952844247*^9}, CellLabel->"Out[84]=",ExpressionUUID->"a2daa764-c441-43c5-b701-b73e72fd6498"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Complete Model", "Section", CellChangeTimes->{{3.7925934281527133`*^9, 3.792593431843603*^9}},ExpressionUUID->"6f7536b4-6559-4f73-9fc9-\ b2ca78a97f83"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{ "n1", ",", " ", "n2", ",", " ", "n3", ",", " ", "n4", ",", " ", "n5", ",", " ", "n6", ",", " ", "n7", ",", " ", "n8", ",", " ", "n9", ",", " ", "n10"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"change", "[", "t_", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "t", "]"}], ",", " ", RowBox[{"n2", "[", "t", "]"}], ",", " ", RowBox[{"n3", "[", "t", "]"}], ",", " ", RowBox[{"n4", "[", "t", "]"}], ",", " ", RowBox[{"n5", "[", "t", "]"}], ",", " ", RowBox[{"n6", "[", "t", "]"}], ",", " ", RowBox[{"n7", "[", "t", "]"}], ",", " ", RowBox[{"n8", "[", "t", "]"}], ",", " ", RowBox[{"n9", "[", "t", "]"}], ",", " ", RowBox[{"n10", "[", "t", "]"}]}], "}"}], "+", RowBox[{"deltanP", "[", "t", "]"}], "+", RowBox[{"deltanR", "[", "t", "]"}], "+", RowBox[{"deltanQ", "[", "t", "]"}], "+", RowBox[{"deltanU", "[", "t", "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "0", "]"}], ",", " ", RowBox[{"n2", "[", "0", "]"}], ",", " ", RowBox[{"n3", "[", "0", "]"}], ",", " ", RowBox[{"n4", "[", "0", "]"}], ",", " ", RowBox[{"n5", "[", "0", "]"}], ",", " ", RowBox[{"n6", "[", "0", "]"}], ",", " ", RowBox[{"n7", "[", "0", "]"}], ",", " ", RowBox[{"n8", "[", "0", "]"}], ",", " ", RowBox[{"n9", "[", "0", "]"}], ",", " ", RowBox[{"n10", "[", "0", "]"}]}], "}"}], " ", "=", RowBox[{"0.01", SuperscriptBox[ RowBox[{"{", RowBox[{ RowBox[{"m", "[", "1", "]"}], ",", RowBox[{"m", "[", "2", "]"}], ",", RowBox[{"m", "[", "3", "]"}], ",", RowBox[{"m", "[", "4", "]"}], ",", " ", RowBox[{"m", "[", "5", "]"}], ",", " ", RowBox[{"m", "[", "6", "]"}], ",", " ", RowBox[{"m", "[", "7", "]"}], ",", " ", RowBox[{"m", "[", "8", "]"}], ",", " ", RowBox[{"m", "[", "9", "]"}], ",", " ", RowBox[{"m", "[", "10", "]"}]}], "}"}], RowBox[{"-", "1"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n1", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n1", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n2", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n2", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n3", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n3", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n4", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n4", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n5", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n5", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n6", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n6", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "6", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n7", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n7", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "7", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n8", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n8", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "8", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n9", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n9", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "9", "]"}], "]"}]}], ")"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n10", "[", "t_", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"n10", "[", "t", "]"}], "=", RowBox[{ RowBox[{"change", "[", RowBox[{"t", "-", "1"}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]}], ")"}]}]}], "Input", CellChangeTimes->{{3.809358048785446*^9, 3.8093580947297363`*^9}, { 3.8093581538479652`*^9, 3.809358218823015*^9}, {3.8093598201398773`*^9, 3.809359829791106*^9}, {3.8098909012588825`*^9, 3.80989091242389*^9}, { 3.811588711542403*^9, 3.811588711831828*^9}, {3.8116359355052767`*^9, 3.8116360040601315`*^9}, {3.8123707569129496`*^9, 3.81237080483272*^9}, { 3.812370995387706*^9, 3.812371014775139*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"19f22ce7-41e4-4831-b00a-5c6d22d18be3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.2649110640673502`*^13", " ", SuperscriptBox[ RowBox[{"n10", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.14995768671742643`", " ", RowBox[{"n2", "[", "t", "]"}]}], "+", RowBox[{"0.007981049259875521`", " ", SuperscriptBox[ RowBox[{"n2", "[", "t", "]"}], "2"]}], "+", RowBox[{"2.3400854685246006`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"0.0001429744613174642`", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"0.6339572769844456`", " ", SuperscriptBox[ RowBox[{"n3", "[", "t", "]"}], "2"]}], "+", RowBox[{"13.159267634288032`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"0.0008040044804563915`", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"0.008040044804563915`", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"50.3570164717667`", " ", SuperscriptBox[ RowBox[{"n4", "[", "t", "]"}], "2"]}], "+", RowBox[{"74.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"0.004521249449988251`", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"0.045212494499882516`", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"0.4521249449988252`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"3999.9999999999995`", " ", SuperscriptBox[ RowBox[{"n5", "[", "t", "]"}], "2"]}], "+", RowBox[{"416.13258064085835`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"0.025424854072225306`", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"0.25424854072225306`", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"2.542485407222531`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"25.424854072225305`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"317731.2938897125`", " ", SuperscriptBox[ RowBox[{"n6", "[", "t", "]"}], "2"]}], "+", RowBox[{"2340.0854685246004`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"0.14297446131746422`", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"1.429744613174642`", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"14.297446131746423`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"142.9744613174642`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"1429.7446131746422`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"2.5238293779207718`*^7", " ", SuperscriptBox[ RowBox[{"n7", "[", "t", "]"}], "2"]}], "+", RowBox[{"13159.267634288028`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"0.8040044804563912`", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"8.040044804563912`", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"80.40044804563914`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"804.0044804563912`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"8040.044804563912`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"80400.44804563913`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"2.0047489345090876`*^9", " ", SuperscriptBox[ RowBox[{"n8", "[", "t", "]"}], "2"]}], "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"7.489942986588232`*^-31", " ", RowBox[{"n10", "[", "t", "]"}]}], "-", RowBox[{"0.0028717618959724564`", " ", RowBox[{"n2", "[", "t", "]"}]}], "-", RowBox[{"0.013777379032620683`", " ", RowBox[{"n3", "[", "t", "]"}]}], "-", RowBox[{"0.01345783706713522`", " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"0.00067845359182239`", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"1.496808221743351`*^-6", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"1.433810415181404`*^-10", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"5.961392060848121`*^-16", " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.0757901075640176`*^-22", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"74000.`", " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"4.521249449988251`", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"45.21249449988252`", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"452.1249449988252`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"4521.249449988251`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"45212.49449988252`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"452124.94499882514`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"4.521249449988252`*^6", " ", RowBox[{"n8", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"1.5924286822139874`*^11", " ", SuperscriptBox[ RowBox[{"n9", "[", "t", "]"}], "2"]}], "+", RowBox[{ RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"416132.58064085833`", "\[VeryThinSpace]", "+", RowBox[{"29.66232975092952`", " ", RowBox[{"n2", "[", "t", "]"}]}], "+", RowBox[{"296.6232975092952`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"2966.232975092952`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"29662.32975092952`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"296623.2975092952`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"2.966232975092952`*^6", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"2.966232975092952`*^7", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"2.966232975092952`*^8", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"28117.066259517454`", "\[VeryThinSpace]", "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n2", "[", "t", "]"}]}]}], ")"}]}], "-", RowBox[{"0.0007981049259875522`", " ", SuperscriptBox[ RowBox[{"n2", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.20168304188184993`", " ", RowBox[{"n3", "[", "t", "]"}]}], "+", RowBox[{"0.8891397050194616`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{"5.`", " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"28.117066259517458`", " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"158.11388300841895`", " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"889.1397050194615`", " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.9850042313282573`", "\[VeryThinSpace]", "-", RowBox[{"0.00003190846551080507`", " ", RowBox[{"n1", "[", "t", "]"}]}], "-", RowBox[{"0.000035743615329366046`", " ", RowBox[{"n3", "[", "t", "]"}]}], "-", RowBox[{"0.00020100112011409784`", " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"0.0011303123624970628`", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"0.0063562135180563265`", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"0.035743615329366055`", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.2010011201140978`", " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.1303123624970628`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"5000.`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"0.00003190846551080507`", " ", RowBox[{"n2", "[", "t", "]"}]}], "-", RowBox[{"0.00001530819892513409`", " ", RowBox[{"n3", "[", "t", "]"}]}]}], ")"}]}], "-", RowBox[{"0.0063395727698444555`", " ", SuperscriptBox[ RowBox[{"n3", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.024500738538314044`", " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.956430841126569`", "\[VeryThinSpace]", "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n10", "[", "t", "]"}]}], "-", RowBox[{"2.3829076886244027`*^-7", " ", RowBox[{"n2", "[", "t", "]"}]}], "-", RowBox[{"0.00020100112011409784`", " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"0.0011303123624970628`", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"0.0063562135180563265`", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"0.035743615329366055`", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.2010011201140978`", " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.1303123624970628`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"0.00001530819892513409`", " ", RowBox[{"n3", "[", "t", "]"}]}], "-", RowBox[{"1.495315229681691`*^-6", " ", RowBox[{"n4", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2.3829076886244027`*^-7", " ", RowBox[{"n3", "[", "t", "]"}]}], "-", RowBox[{"1.340007467427319`*^-7", " ", RowBox[{"n4", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.975499261461686`", " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"1.340007467427319`*^-6", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"0.0503570164717667`", " ", SuperscriptBox[ RowBox[{"n4", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.013777777777777778`", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"0.0011303123624970628`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"0.0063562135180563265`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"0.035743615329366055`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.2010011201140978`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.1303123624970628`", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.340007467427319`*^-6", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n4", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"1.340007467427319`*^-7", " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"7.535415749980418`*^-8", " ", RowBox[{"n5", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"1.495315229681691`*^-6", " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"7.538373242470999`*^-9", " ", RowBox[{"n5", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.9862222222222222`", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"7.53541574998042`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"7.53541574998042`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"0.39999999999999997`", " ", SuperscriptBox[ RowBox[{"n5", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.0077478138137336994`", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"0.0063562135180563265`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"0.035743615329366055`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.2010011201140978`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.1303123624970628`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"7.53541574998042`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{"7.53541574998042`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n5", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"7.535415749980418`*^-8", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"4.2374756787042185`*^-8", " ", RowBox[{"n6", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"7.538373242470999`*^-9", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"1.663120246381501`*^-12", " ", RowBox[{"n6", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.9922521861862663`", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"4.2374756787042184`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"4.237475678704218`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"0.000042374756787042184`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"3.1773129388971246`", " ", SuperscriptBox[ RowBox[{"n6", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.004356915887343101`", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.035743615329366055`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.2010011201140978`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.1303123624970628`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"4.2374756787042184`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"4.237475678704218`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{"0.000042374756787042184`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n6", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4.2374756787042185`*^-8", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"2.382907688624403`*^-8", " ", RowBox[{"n7", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"1.663120246381501`*^-12", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"1.5931226835348938`*^-17", " ", RowBox[{"n7", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.9956430841126569`", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"2.3829076886244032`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"2.3829076886244035`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.00002382907688624403`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.0002382907688624403`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"25.23829377920772`", " ", SuperscriptBox[ RowBox[{"n7", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.002450073853831405`", " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"0.2010011201140978`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.1303123624970628`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.3829076886244032`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"2.3829076886244035`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"0.00002382907688624403`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{"0.0002382907688624403`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n7", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2.382907688624403`*^-8", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"1.3400074674273187`*^-8", " ", RowBox[{"n8", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"1.5931226835348938`*^-17", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"6.623768956497914`*^-24", " ", RowBox[{"n8", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.9975499261461686`", " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.3400074674273187`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.340007467427319`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"0.000013400074674273188`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"0.0001340007467427319`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"0.001340007467427319`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"200.47489345090875`", " ", SuperscriptBox[ RowBox[{"n8", "[", "t", "]"}], "2"]}], "+", RowBox[{"0.0013777777777777777`", " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"1.1303123624970628`", " ", RowBox[{"n8", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"1.3400074674273187`*^-8", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"1.3400074674273187`*^-7", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"1.340007467427319`*^-6", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"0.000013400074674273188`", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"0.0001340007467427319`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{"0.001340007467427319`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n8", "[", "t", "]"}]}], "+", RowBox[{ RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.0007747813813733699`", "\[VeryThinSpace]", "-", RowBox[{"6.356213518056325`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"6.623768956497914`*^-24", " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"1.1953223417377974`*^-31", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"0.9986222222222223`", " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"7.53541574998042`*^-9", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"7.535415749980419`*^-8", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"7.53541574998042`*^-7", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"7.53541574998042`*^-6", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"0.00007535415749980418`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"0.0007535415749980418`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"0.00753541574998042`", " ", RowBox[{"n8", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "-", RowBox[{"1592.4286822139875`", " ", SuperscriptBox[ RowBox[{"n9", "[", "t", "]"}], "2"]}]}], ",", RowBox[{"0.`", "\[VeryThinSpace]", "-", RowBox[{"12649.110640673502`", " ", SuperscriptBox[ RowBox[{"n10", "[", "t", "]"}], "2"]}], "+", RowBox[{ RowBox[{"n10", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"0.9992252186186267`", "\[VeryThinSpace]", "-", RowBox[{"9.362428733235291`*^-41", " ", RowBox[{"n1", "[", "t", "]"}]}], "-", RowBox[{"4.237475678704217`*^-9", " ", RowBox[{"n2", "[", "t", "]"}]}], "-", RowBox[{"4.237475678704217`*^-8", " ", RowBox[{"n3", "[", "t", "]"}]}], "-", RowBox[{"4.2374756787042173`*^-7", " ", RowBox[{"n4", "[", "t", "]"}]}], "-", RowBox[{"4.237475678704217`*^-6", " ", RowBox[{"n5", "[", "t", "]"}]}], "-", RowBox[{"0.00004237475678704217`", " ", RowBox[{"n6", "[", "t", "]"}]}], "-", RowBox[{"0.00042374756787042173`", " ", RowBox[{"n7", "[", "t", "]"}]}], "-", RowBox[{"0.004237475678704217`", " ", RowBox[{"n8", "[", "t", "]"}]}], "-", RowBox[{"0.042374756787042174`", " ", RowBox[{"n9", "[", "t", "]"}]}]}], ")"}]}], "+", RowBox[{"1.1953223417377974`*^-31", " ", RowBox[{"n1", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"7.53541574998042`*^-9", " ", RowBox[{"n2", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"7.535415749980419`*^-8", " ", RowBox[{"n3", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"7.53541574998042`*^-7", " ", RowBox[{"n4", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"7.53541574998042`*^-6", " ", RowBox[{"n5", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"0.00007535415749980418`", " ", RowBox[{"n6", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"0.0007535415749980418`", " ", RowBox[{"n7", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}], "+", RowBox[{"0.00753541574998042`", " ", RowBox[{"n8", "[", "t", "]"}], " ", RowBox[{"n9", "[", "t", "]"}]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.8093598335281773`*^9, 3.809359855117334*^9}, 3.8099615103555813`*^9, 3.8103445342593346`*^9, 3.8103793010701056`*^9, 3.8115493751088676`*^9, 3.811588884638733*^9, 3.812364886550125*^9, 3.812371028430747*^9, 3.81237871440204*^9, 3.8123807026426*^9, 3.812380917873705*^9, 3.813404246990878*^9, 3.813404800410449*^9, 3.8140121834508715`*^9, 3.814012538861783*^9, 3.814012677729333*^9, 3.8140127445634766`*^9, 3.814044462024545*^9, 3.8140445423561163`*^9, 3.814044633757157*^9, 3.814198672125*^9, 3.8142093955334167`*^9, 3.8142258811384115`*^9, 3.81445795294314*^9}, CellLabel->"Out[86]=",ExpressionUUID->"715f1fbc-0363-474c-a827-5072bbbb0c9e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "100.`", ",", "10.`", ",", "1.`", ",", "0.1`", ",", "0.01`", ",", "0.001`", ",", "0.0001`", ",", "0.00001`", ",", "1.0000000000000002`*^-6", ",", "1.0000000000000001`*^-7"}], "}"}]], "Output", CellChangeTimes->{{3.8093598335281773`*^9, 3.809359855117334*^9}, 3.8099615103555813`*^9, 3.8103445342593346`*^9, 3.8103793010701056`*^9, 3.8115493751088676`*^9, 3.811588884638733*^9, 3.812364886550125*^9, 3.812371028430747*^9, 3.81237871440204*^9, 3.8123807026426*^9, 3.812380917873705*^9, 3.813404246990878*^9, 3.813404800410449*^9, 3.8140121834508715`*^9, 3.814012538861783*^9, 3.814012677729333*^9, 3.8140127445634766`*^9, 3.814044462024545*^9, 3.8140445423561163`*^9, 3.814044633757157*^9, 3.814198672125*^9, 3.8142093955334167`*^9, 3.8142258811384115`*^9, 3.814457952964765*^9}, CellLabel->"Out[87]=",ExpressionUUID->"d66a5243-860f-4d19-87b9-092b795e489e"] }, Open ]], Cell["", "Text",ExpressionUUID->"b3834900-0516-4d7b-9941-f68feeba5756"], Cell["\<\ For more information on the parameters, the model, and the model\ \[CloseCurlyQuote]s components, please see the link in the citation (Xia and \ Yamakawa, 2018). \ \>", "Text", CellChangeTimes->{{3.8382969617664037`*^9, 3.83829698767584*^9}, { 3.838297090284658*^9, 3.83829710455075*^9}, {3.8382972973684387`*^9, 3.8382973571036673`*^9}},ExpressionUUID->"93d04a79-acd6-4cb9-9b2a-\ ffe97a521eb0"] }, Open ]], Cell[CellGroupData[{ Cell["Calculations to Examine the Model", "Section", CellChangeTimes->{{3.8053248079057674`*^9, 3.8053248605475225`*^9}},ExpressionUUID->"10a9ff35-40f0-490a-bbc9-\ 478e52b31019"], Cell["\<\ Some constants include the alphas, h, e, and the betas. The alphas are \ \[Alpha] = alpha1 = alpha2 = alpha3 = alpha4 where \[Alpha] = 0.5. Note that \ this is the sex ratio. This means that the half of the population is male and \ half is female. The h\[CloseCurlyQuote]s are set as the mortality due to \ fishing. All of the e values are set to 0.6. Also, the betas are set with tao \ = 0. \ \>", "Text", CellChangeTimes->{{3.80565160125828*^9, 3.805651620467701*^9}, { 3.8056519971389713`*^9, 3.8056520600476327`*^9}, {3.805652473037738*^9, 3.8056525339076405`*^9}, {3.8089486925257254`*^9, 3.808948793470074*^9}},ExpressionUUID->"6091b400-60da-4349-a203-\ 3cddabc3cf15"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "t", "]"}], ",", " ", RowBox[{"n2", "[", "t", "]"}], ",", " ", RowBox[{"n3", "[", "t", "]"}], ",", " ", RowBox[{"n4", "[", "t", "]"}], ",", " ", RowBox[{"n5", "[", "t", "]"}], ",", " ", RowBox[{"n6", "[", "t", "]"}], ",", " ", RowBox[{"n7", "[", "t", "]"}], ",", " ", RowBox[{"n8", "[", "t", "]"}], ",", " ", RowBox[{"n9", "[", "t", "]"}], ",", " ", RowBox[{"n10", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "40"}], "}"}]}], "]"}], "//", " ", "TableForm"}]], "Input", CellChangeTimes->{{3.8089488378812003`*^9, 3.8089488639442887`*^9}, { 3.8089501797216363`*^9, 3.8089502114572334`*^9}, {3.809358113115365*^9, 3.809358115025526*^9}, 3.809358243332055*^9, {3.809359874987328*^9, 3.809359880885356*^9}, {3.8115494607416887`*^9, 3.811549462785598*^9}, { 3.812364898379892*^9, 3.8123649455567465`*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"f450046a-ece2-418e-bf65-c070bbfd4077"], Cell[BoxData[ TagBox[GridBox[{ {"100.`", "10.`", "1.`", "0.1`", "0.01`", "0.001`", "0.0001`", "0.00001`", "1.0000000000000002`*^-6", "1.0000000000000001`*^-7"}, {"105.80729703896483`", "10.138743392083995`", "0.9828714951655563`", "0.0986996144412813`", "0.009845023980006102`", "0.0009895316639935642`", "0.0000993376246287193`", "9.956922995897017`*^-6", "9.97114148622496`*^-7", "9.9796524334753`*^-8"}, {"111.2522563520057`", "10.265012092818104`", "0.9689343128270259`", "0.09750251449002682`", "0.009693994296504253`", "0.000979207710671132`", "0.00009868133655212765`", "9.914118335275588`*^-6", "9.942412022524003`*^-7", "9.959371534202032`*^-8"}, {"116.3599348742614`", "10.380039063692625`", "0.9579001679161777`", "0.0964021304598471`", "0.009546750156586122`", "0.0009690254467814392`", "0.00009803105921901188`", "9.871583638615445`*^-6", "9.91381081449593`*^-7", "9.939157006153505`*^-8"}, {"121.15323761048344`", "10.484958955966464`", "0.9494994988049705`", "0.09539302989137383`", "0.00940314251320333`", "0.0009589822450432143`", "0.00009738671724289114`", "9.829316548233776`*^-6", "9.88533707108201`*^-7", "9.919008553294585`*^-8"}, {"125.65316378151614`", "10.580813694087146`", "0.9434809908202889`", "0.0944706747076226`", "0.009263032937095864`", "0.0009490755421251397`", "0.00009674823638935464`", "9.78731472854713`*^-6", "9.8569900048363`*^-7", "9.898925879746354`*^-8"}, {"129.8790189623611`", "10.668558055430355`", "0.9396109826604402`", "0.09363122268473405`", "0.009126292632175351`", "0.000939302836700994`", "0.00009611554356238743`", "9.745575866262766`*^-6", "9.828768832157952`*^-7", "9.878908689930583`*^-8"}, {"133.84859811437258`", "10.749065178634538`", "0.9376727880152302`", "0.09287136605398914`", "0.008992801567218456`", "0.0009296616875765798`", "0.00009548856678989376`", "9.704097670509845`*^-6", "9.800672773490847`*^-7", "9.858956688696777`*^-8"}, {"137.57834375204607`", "10.823131948100043`", "0.9374659581014454`", "0.09218820115505746`", "0.008862447703138031`", "0.0009201497118852205`", "0.00009486723520859456`", "9.662877872919376`*^-6", "9.772701053495006`*^-7", "9.839069581434183`*^-8"}, {"141.0834828968145`", "10.891484214828925`", "0.9388055056195288`", "0.09157912399456461`", "0.008735126299949103`", "0.0009107645833487851`", "0.00009425147904844657`", "9.621914227660427`*^-6", "9.744852901193702`*^-7", "9.819247074170782`*^-8"}, {"144.3781459521488`", "10.954781824147336`", "0.9415211065036343`", "0.09104174735531644`", "0.008610739291206699`", "0.0009015040306013588`", "0.0000936412296167075`", "9.581204511439097`*^-6", "9.717127550099481`*^-7", "9.79948887366099`*^-8"}, {"147.47547018082466`", "11.013623429349423`", "0.9454562925360442`", "0.09057383577257126`", "0.008489194716447749`", "0.0008923658355728326`", "0.00009303641928175064`", "9.540746523465629`*^-6", "9.689524238321951`*^-7", "9.77979468746355`*^-8"}, {"150.3876900706835`", "11.06855107723938`", "0.9504676452437368`", "0.09017325526356251`", "0.008370406204237882`", "0.0008833478319298273`", "0.00009243698145671576`", "9.50053808539435`*^-6", "9.662042208659684`*^-7", "9.760164224010875`*^-8"}, {"153.12621653366975`", "11.120054557184897`", "0.9564239993482325`", "0.08983793518084965`", "0.00825429249997217`", "0.0008744479035715054`", "0.00009184285058306844`", "9.460577041240378`*^-6", "9.634680708678252`*^-7", "9.740597192670891`*^-8"}, {"155.70170658859294`", "11.168575509845812`", "0.963205662291415`", "0.08956583997220252`", "0.008140777033734467`", "0.0008656639831779493`", "0.00009125396211412788`", "9.420861257276437`*^-6", "9.607438990776181`*^-7", "9.721093303802298`*^-8"}, {"158.12412492545184`", "11.214511295386362`", "0.9707036549268278`", "0.08935494898061223`", "0.008029787524380426`", "0.0008569940508089072`", "0.00009067025249861335`", "9.381388621912678`*^-6", "9.580316312240235`*^-7", "9.701652268804066`*^-8"}, {"160.40279853317136`", "11.258218623868375`", "0.9788189772844054`", "0.08920324271688106`", "0.00792125561664886`", "0.000848436132550816`", "0.00009009165916425043`", "9.342157045561912`*^-6", "9.55331193529135`*^-7", "9.682273800159763`*^-8"}, {"162.5464653885717`", "11.300016952782498`", "0.987461902337832`", "0.08910869429180183`", "0.007815116548581871`", "0.0008399882992101226`", "0.00008951812050147178`", "9.303164460492368`*^-6", "9.526425127122279`*^-7", "9.66295761147736`*^-8"}, {"164.56331804809042`", "11.340191658410589`", "0.9965512998900096`", "0.08906926491169748`", "0.007711308846889141`", "0.0008316486650510197`", "0.00008894957584724034`", "9.26440882066978`*^-6", "9.499655159927882`*^-7", "9.643703417524935`*^-8"}, {"166.46104285143315`", "11.378996989014333`", "1.0060139920142004`", "0.08908290252554382`", "0.007609774048158422`", "0.0008234153865758074`", "0.00008838596546901848`", "9.225888101590323`*^-6", "9.473001310928886`*^-7", "9.624510934262776`*^-8"}, {"168.2468553345755`", "11.41665880878747`", "1.0157841409233515`", "0.08914754286870112`", "0.007510456444017378`", "0.0008152866613461775`", "0.00008782723054890223`", "9.187600300105747`*^-6", "9.446462862389796`*^-7", "9.605379878872175`*^-8"}, {"169.92753235542355`", "11.45337714215522`", "1.0258026696697933`", "0.08926111228138903`", "0.0074133028485095735`", "0.0008072607268438044`", "0.0000872733131679361`", "9.149543434241864`*^-6", "9.420039101631577`*^-7", "9.586309969781268`*^-8"}, {"171.50944135636027`", "11.489328528407649`", "1.036016715687409`", "0.08942153179283603`", "0.007318262386073218`", "0.0007993358593686991`", "0.00008672415629062106`", "9.111715543011366`*^-6", "9.393729321039632`*^-7", "9.567300926688218`*^-8"}, {"172.99856712160383`", "11.524668196858947`", "1.0463791168667007`", "0.08962672205741017`", "0.007225286298615077`", "0.000791510372973857`", "0.00008617970374962615`", "9.074114686221875`*^-6", "9.367532818067526`*^-7", "9.548352470581939`*^-8"}, {"174.40053633182103`", "11.55953207276963`", "1.0568479295902318`", "0.08987460880947426`", "0.00713432777026091`", "0.0007837826184348015`", "0.00008563990023071133`", "9.036738944279968`*^-6", "9.341448895236913`*^-7", "9.529464323760604`*^-8"}, {"175.7206401720807`", "11.5940386241854`", "1.0673859779435433`", "0.09016312857134222`", "0.0070453417684428615`", "0.0007761509822526854`", "0.00008510469125786833`", "8.999586417991863`*^-6", "9.315476860133967`*^-7", "9.510636209848125`*^-8"}, {"176.96385521055052`", "11.628290559662025`", "1.0779604331479495`", "0.09049023440538025`", "0.0069582849000569035`", "0.0007686138856896766`", "0.00008457402317868406`", "8.962655228361343`*^-6", "9.289616025402688`*^-7", "9.491867853808758`*^-8"}, {"178.13486273309053`", "11.662376386582105`", "1.0885424221306557`", "0.09085390154858645`", "0.006873115281492001`", "0.0007611697838354102`", "0.0000840478431499303`", "8.925943516385443`*^-6", "9.263865708735342`*^-7", "9.473158981960009`*^-8"}, {"179.2380666920268`", "11.696371839446472`", "1.0991066640492584`", "0.09125213280726126`", "0.00678979242139863`", "0.0007538171647033434`", "0.0000835260991233821`", "8.889449442848378`*^-6", "9.238225232860309`*^-7", "9.454509321983944`*^-8"}, {"180.2776104049976`", "11.730341187155563`", "1.1096311335173583`", "0.09168296362183273`", "0.006708277115128424`", "0.0007465545483559009`", "0.00008300873983186675`", "8.853171188114099`*^-6", "9.212693925527563`*^-7", "9.435918602937055`*^-8"}, {"181.257392121101`", "11.76433842789778`", "1.1200967492317286`", "0.09214446673854548`", "0.006628531349839601`", "0.0007393804860573489`", "0.00008249571477554389`", "8.817106951917873`*^-6", "9.18727111949201`*^-7", "9.417386555258772`*^-8"}, {"182.1810795559981`", "11.79840837984332`", "1.1304870866757186`", "0.09263475644643751`", "0.006550518219324458`", "0.0007322935594533749`", "0.00008198697420841724`", "8.781254953157193`*^-6", "9.161956152494839`*^-7", "9.398912910778723`*^-8"}, {"183.05212348461058`", "11.832587675412197`", "1.1407881135651463`", "0.09315199235557887`", "0.006474201847675704`", "0.0007252923797764048`", "0.0000814824691250775`", "8.74561342968233`*^-6", "9.136748367243106`*^-7", "9.380497402722849`*^-8"}, {"183.87377046914398`", "11.866905666451384`", "1.1509879467090973`", "0.0936943827065783`", "0.006399547320967505`", "0.0007183755870757188`", "0.00008098215124767567`", "8.710180638086789`*^-6", "9.111647111387676`*^-7", "9.362139765718443`*^-8"}, {"184.64907479100845`", "11.901385247224118`", "1.161076628976271`", "0.09426018721244384`", "0.0063265206261846904`", "0.0007115418494714743`", "0.00008048597301312552`", "8.674954853497896`*^-6", "9.086651737499679`*^-7", "9.343839735798187`*^-8"}, {"185.38090964748042`", "11.936043601689029`", "1.1710459250856295`", "0.09484771944249136`", "0.006255088596689378`", "0.0007047898624317759`", "0.00007999388756053375`", "8.639934369367751`*^-6", "9.061761603045622`*^-7", "9.325597050403268`*^-8"}, {"186.07197766740606`", "11.970892881131524`", "1.1808891349761625`", "0.09545534876454387`", "0.006185218863568119`", "0.000698118348071973`", "0.00007950584871885604`", "8.605117497264725`*^-6", "9.036976070361263`*^-7", "9.307411448385642`*^-8"}, {"186.72482079467656`", "12.005940817807668`", "1.1906009235528707`", "0.09608150186650778`", "0.00611687981225433`", "0.000691526054475394`", "0.00007902181099477653`", "8.570502566665685`*^-6", "9.012294506624383`*^-7", "9.289282670009491`*^-8"}, {"187.34182958343803`", "12.041191279873688`", "1.200177165653128`", "0.09672466388184994`", "0.006050040543870146`", "0.0006850117550347605`", "0.0000785417295608091`", "8.5360879247491`*^-6", "8.987716283826525`*^-7", "9.271210456951935`*^-8"}, {"187.92525194489454`", "12.076644772503679`", "1.2096148051280802`", "0.09738337914578701`", "0.005984670840778713`", "0.0006785742478135567`", "0.00007806556024361721`", "8.50187193618918`*^-6", "8.963240778743849`*^-7", "9.253194552303067`*^-8"}, {"188.4772013820032`", "12.112298889745153`", "1.2189117269866043`", "0.09805625161035447`", "0.005920741135882314`", "0.0006722123549266531`", "0.00007759325951255023`", "8.467852982951165`*^-6", "8.93886737290714`*^-7", "9.235234700565324`*^-8"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.8123785307276964`*^9, 3.8123787266980653`*^9, 3.812380702828092*^9, 3.812380926295513*^9, 3.8134042471514826`*^9, 3.8134048006368484`*^9, 3.81401218362636*^9, 3.814012539045291*^9, 3.8140126779075303`*^9, 3.8140127447525434`*^9, 3.8140444621560016`*^9, 3.814044542500493*^9, 3.814044633910905*^9, 3.8141986723224735`*^9, 3.8142093957219024`*^9, 3.814225881329858*^9, 3.814457953096409*^9}, CellLabel-> "Out[98]//TableForm=",ExpressionUUID->"4e05b754-d0e7-4e67-acbe-\ a930b2c7aec5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "[", "1", "]"}], ",", RowBox[{"n1", "[", "40", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "2", "]"}], ",", RowBox[{"n2", "[", "40", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "3", "]"}], ",", RowBox[{"n3", "[", "40", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "4", "]"}], ",", RowBox[{"n4", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "5", "]"}], ",", RowBox[{"n5", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "6", "]"}], ",", RowBox[{"n6", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "7", "]"}], ",", RowBox[{"n7", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "8", "]"}], ",", RowBox[{"n8", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "9", "]"}], ",", RowBox[{"n9", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "10", "]"}], ",", RowBox[{"n10", "[", "40", "]"}]}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8093601336269817`*^9, 3.8093602318229437`*^9}, { 3.809360267345409*^9, 3.809360267680128*^9}, {3.809961434042268*^9, 3.8099615014081984`*^9}, {3.8105849387493486`*^9, 3.8105849491154423`*^9}, { 3.811549468967679*^9, 3.8115494807745543`*^9}, {3.8123649813916197`*^9, 3.8123650183752604`*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"4c56d682-5684-433e-90b3-f58c6a0de2e6"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{-3.999999999999999, 2.275258824500383}, {-2.9999999999999996`, 1.083226579177581}, {-1.9999999999999996`, 0.08597225535526443}, {-0.9999999999999998, -1.0085247125180843`}, { 0., -2.2276239265409514`}, {1., -3.172493509677966}, { 2., -4.11017600404658}, {2.9999999999999996`, -5.0722266907148965`}, { 4., -6.048717506356054}, {5., -7.034552063097024}}]}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"log(mass)\"", TraditionalForm], FormBox["\"log(indivudials/m^(-3))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-3.999999999999999, 5.}, {-7.034552063097024, 2.275258824500383}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8123787423641596`*^9, 3.8123807029148617`*^9, 3.8123809319780045`*^9, 3.813404247207776*^9, 3.8134048007102103`*^9, 3.814012183685258*^9, 3.8140125391011424`*^9, 3.8140126779684153`*^9, 3.8140127448055573`*^9, 3.814044462657555*^9, 3.8140445425691504`*^9, 3.8140446339509254`*^9, 3.814198672384306*^9, 3.814209395760969*^9, 3.8142258814685307`*^9, 3.814457953227524*^9}, CellLabel->"Out[99]=",ExpressionUUID->"7b95b5f2-0901-42a3-8a06-782026d5bdcc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "t", "]"}], ",", " ", RowBox[{"n2", "[", "t", "]"}], ",", " ", RowBox[{"n3", "[", "t", "]"}], ",", " ", RowBox[{"n4", "[", "t", "]"}], ",", " ", RowBox[{"n5", "[", "t", "]"}], ",", " ", RowBox[{"n6", "[", "t", "]"}], ",", " ", RowBox[{"n7", "[", "t", "]"}], ",", " ", RowBox[{"n8", "[", "t", "]"}], ",", " ", RowBox[{"n9", "[", "t", "]"}], ",", " ", RowBox[{"n10", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "40"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"SwatchLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", "10"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.809359928556057*^9, 3.8093599378595257`*^9}, { 3.809961739671758*^9, 3.809961826639855*^9}, {3.811549484939931*^9, 3.8115494853387866`*^9}, {3.8123650454764433`*^9, 3.8123650832332144`*^9}, { 3.8123651268422804`*^9, 3.8123651385780883`*^9}, {3.8123651706424327`*^9, 3.812365206510209*^9}, {3.8142128731990314`*^9, 3.8142128747877817`*^9}}, CellLabel-> "In[100]:=",ExpressionUUID->"9076458d-e333-4f2b-96a0-9919c26956c7"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7CF0pANUwGGfgvHBVcVRUD6Hw4qWy99VLkRD +QIOCpkeOpzisVC+iMOpJPml5zzjoHwJh5NKZflnM+OhfBmHL3/i3yjYJED5 Cg7rplpvV98N4ys5eMw5eKrRKBHKV3H4/ynoyepFML6aA6Nx11FJniQoX8Nh /WxbXvN8GF/LweoS49f0MzC+jkN+l+N3TpVkKF/PYb5OQmJJGYxv4PDk7dUr Pw7D+IYOirf373zMkwLlGzl87/y9pCYQxjd2KLCctJltEoxv4rBD7sOdA+dg fFMHrtkats/YU6F8M4erE0Ij1tnC+OYOzTO/hvsWwPgWDsddOJ2/zIfxLR3+ H5hoePEMjG/lsDzjVzX/dxjf2mHmm4fPrsulQfk2DmFNy04HuMD4tg5bBLjs 5qXD+HYO5/3N9R91wPj2Dvxn0vpsVsD4Dg598VHpp49C+Q0ODoY77v1b9RAm 7+jweGnN26+/YfKODk6M9RZHRdKh8k4OkldzMw10oPwGJ4elH6WX+DrB5J0d xIUTdxuGw+SdHepMZ7h8yILJuzjY1nxfObsWJu/i8FLzqrVrf7oDAHD8rJ0= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7CG0igNUwOGB0PZ4TncYn8OhJdV+1fp2GF/A wavtddWUQzC+iENln3+Xzw8YX8Jhc8SszARNVShfxuGn5Hlb3zAYX8FhwtyZ Fa31ML6Sw8XDv3oKl8L4Kg5BeuXzCk7A+GoOUXynNW++gPE1HA6w5y/7yaYG 5Ws5dG0qVZBUhvF1HKZtqDxVbgvj6zlUJVe3+4fB+AYORnPX5FzJhfENHQzL Ha1NW2B8I4f+JwWXZs+E8Y0dNtTem6m7DsY3cdhitOkJ9yEY39TBbtUq35Cr ML6ZA+f8Gh7FFzC+uUMp61WXzl8wvoVDTGuo/0IedSjf0mGh+eM/VXIwvpXD +fvzrqgawPjWDpNd7visd4TxbRx62XL+KwXD+LYOgX0dN7tSYHw7h66mze7v S2F8ewe302djw9thfAcHvv4Nv0/MgPIbHBzSn3a+81gFk3d0SHOw4b+9Gybv 6BB883ds01mYvJPDlSOJ0o73YfJODtKHNO5LfITJOzvwpxxZw8WsAZV3djB8 8J9VXBTKZ3BxEF1w7retOkzexcF5ValtvaWGAwC7hZ5K "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7FFpBofJzH9fryt+D+VzOFzmM+poYoTxBRyK eQ86yC1/B+WLOEz5ePeoTxKML+HwXuA/938DGF/GgWGZPq+3IIyv4BD153ZM FiOMr+SwVOzp7B3/30L5Kg4TJP9d38gFk1dz2LhC9v4HBRhfw+H4avY+XUcY X8thjne7vHUWjK/jwP72ZAPbbBhfz4FxcfS6KZdgfAOHDdMaZBgFYP4xdGhp YNGtCYLxjRy0Twht8ZwJ4xs7+HJb9e5/DOObOBT5b1BYJAELL1OHh78E7i9z gPHNHOZKpvFvyITxzR32nKx3bpsM41s4bOtLYv+xF8a3dLD4/iz+5gsY38ph 1/ztgcwiH6F8a4c/nDkFwfYwvo3DtoOlpauzYHxbh7/Nffc+TIXx7RymeAZO 5jkI49s7qD5bMvHVaxjfwUFEc+6CSrFPEH6Dg0POjTLO1Q5QPoOjw3mv4LCi LJi8o8O7pZFiRyfD5J0cFm99umzWHpi8k4PiqTzGN09g8s4Ocz9f7t3M8xkq 7+ywVXffjzfGUD6Di4Nh6xneqVEweReH/U8cp65s+GwPAD6Iv7M= "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7GfNBIGd9lABh0Qj9QMJLjA+h8NmPeb9b77u gPIFHER/T4s9vxbGF3GIiVxWvjYbxpdw4Hjg88pKH8aXcTi8P8De/Md2KF/B If3s++9Zx2B8JQehvZyxS2fC+CoOURN69+0qhPHVHOTNy/ib/WB8DQd385Zz N/RhfC0Hn80hejNEYXwdB5HdXYXz/m+D8vUceL61FJ58C+MbOKxvnu3+/T6M b+gg3qklxHYNxjdyeHz06PnL52F8Ywef+/e97c7C+CYOYvd/SSifg/FNHW6f Vp4afwnGN3Owms377cJNGN/cYevh2VEhT2B8C4fvE0UfHPsI41s6iF2bvJOV CeZ+K4f8Wy0e70RgfGsH0ycJpnFaML6Nw+yau+3GTjC+rUPvR4l9PjEwvp2D l3b0o44KGN/e4YW92vzj02B8BwcvvszAl9ug/AYHh6OlOyXO34DJOzpk63Y/ jfoDk3d02JKT0pqvCItPJwdxPum1H9yh/AYnhw52HcbD+TB5ZwfFDBeZMzNg 8s4O+y6KTfl0CCbv4pD0ctYf2XcweReHA9uuvjST2mkPAOoxvSo= "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7KtF1rk/rGqxhwo4dDHoHVigCeNzOCidO/K4 8FYzlC/gYCezVNa+F8YXcZAwn57zxRHGl3A4UWFmU/+jCcqXcWhqlHE+twHG V3B428SdejELxldyqHRMnFGpBuOrODSIuZ/b8bgRyldzqM03vtu4CMbXcLja lJl7IgnG13LYqmL2vEEFxtdxuO+yLWnB8wYoX88h+8TfGTJrYHwDh5/Mtdde F8L4hg6KuzvesVjC+EYOGjvf6MczwvjGDvtzXmx5MrUeyjdx+Ki9WitXG8Y3 dWBc/PCMx+E6KN/MIWrKopDMWBjf3OHuspOSB3/WQvkWDswZW1mdZ8D4lg4s bjbtjyxgfCsHgY8H2iffroHyrR1Yb/knejXA+DYO13ZuuPpbDca3dXhsGsE2 93w1lG/nkHpNLVe5Csa3d3Cf//hqixqM7+DgtjExYvuVKgi/wcFhbaZj8MYW KJ/B0UG20S490wwm7+iguPZv0bWXlVB5J4edzr797+dB+Q1ODhFBZ7nXhMLk nR22NX3JZuaDyTs7/GHNSHl7vAIq7+IgNmnujcRmKL/BxeGQy/4bEQ4V9gCa grC/ "]]}, { Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7P+s/HjJNynAHirg8MRpeUeqGYzP4eDH/NNV ghvGF3CIyNbxPXbAH8oXcQjds2BDWw6ML+FwQ1PKNEcSxpdx0Amtqi487gfl KziIb9noOrEMxldyODnrYOkxNRhfxWF13XEenhu+UL6agy2XoFZsF4yv4XB4 vgXXVlsYX8th6VtPNv5PPlC+jkOEzbtJacthfD0HXaUF9ttjYXwDhwu+z7b+ EYHxDR00ZKbuMDrrDeUbObhvElMObYPxjR26w3e+iHeA8U0cms8zi/j/9oLy TR3sy/iPyW2H8c0c9j95bnq6GMY3d/j79P36AEMY38Khv9176ur3nlC+pUOv sH/0jXUwvpVD0+FPXZfzYHxrh45/Xgdm6sP4Ng5rv7GsUv/oAeXbOmyofs5R tRnGt3MQvh2+vrcMxrd3UFn+qCHeCsZ3cHBxOFH45p87hN/g4JD1t6fN8AiU z+DooHap57J2F0ze0eFb4KSaGwEweSeHfx8LtphIwOSdHHqzF+2xfeAGlXd2 +Kv0/MmHFVB+g7PDivKXXd5FMHkXh1OPHkt628DkXRzUznhyvWVzswcAILeq VQ== "]]}, { Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7HWdZV4/MpOyhwo4+Bdmp+ZzwfgcDlmq74tT 7klC+QIObXG/jh7YBOOLOLyo+s/f3A7jSzhkfWvkXhUD48s4aLGyl5sYwfgK Du/cWMUUOWB8JQf5Y5c35N2TgPJVHN7nzBCR2QrjqzlkiZgJa/TA+BoO0d5W zROTYXwth79vT9mHW8P4Og5uiydrVAjD+HoOSoGbFT+/FofyDRyYpq0UPn4E xjd02Bbs8vrTXBjfyKEitHdmaTmMb+zgI7lD2C8QxjdxSD/MH1ytDeObOhg7 Pg35wwrjmznELKiVuvBADMo3d+iZy7Dy624Y38LhSm46Z850GN/S4d+RbA+j YhjfymG9VHmZuz+Mb+2wSX/S8lXaML6NQ/WVkM9RHDC+rcPUj1dLwp+KQvl2 Dh2XZnvNPwTj2zuEb+6ZZrgAxndwODXhfi1vHZTf4OAQYs2raRQDk3d0iF9z 8PA8K5i8o8OGuWdrgiRh8k4OiUkSbT4/RKDyTg7fGSaJ9FyH8hmcHV72qiYI bIfJOzuwHVu9+MY0mLyLw/Pnd2WelMHkXRz2nvbgMQoXsQcA9ZiaAg== "]]}, { Hue[0.3224758424985268, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7D9mPO7Y+uOJHVTAwVSjR3jqQxifw6H1RQHP rFMwvoDDlps35I9shvFFHELunv8lNBfGl3CY/0jDu60Nxpdx2DC/fr9sAYyv 4MB6wJL9ZiSMr+RwdU77pe3OML6Kw+QJKZd26sL4ag49X6btuCcO42s4CF9d b67GBONrObCkczFPePMYytdx2Ox++pz0dRhfz4Gx/77/yYMwvoGD7a7f1jPW wPiGDimlszw7psP4Rg5z3X/rz2yC8Y0dJNQVl5/KhfFNHG58v5AuEwnjmzpU /ujX7nOB8c0cVsgvWiNvAOObO7TkcCy7IA3jWziw6dRfXsAO41s6SJnWfOz/ /AjKt3LgkdXdO/c+jG/tMDG19MvJ0zC+jcOapW9CRXbA+LYODevuLKhZAuPb OfxdYz+VaSKMb+/g5bnv89JaGN/BYfGRtbVpWVB+g4NDmhjfV+dwmLyjw1OO Dhk7F5i8o0N7WPb2EEOYvJPDweNrOtvlYPJODn5BT8KvccPknR3ErbyfO/x8 CJV3dlAx2fX32DMon8HF4VX38sSMKzB5FwdXb9VbKoce2gEAQ7fCgQ== "]]}, { Hue[0.5585438199983166, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7Pvebl3w/dgGO6iAw8+Xh2ZO2gXjczgEr7c/ bL0Oxhdw4Pl1nu3zQhhfxCF8jr7fjqkwvoTD1QKT5u5OGF/GQYz9Qn9OLYyv 4PBIWDAuuhDGV3LIXKtyIzwVxldxWBAV/iIxEsZXc9j3W7Sy0hfG13Dgnfiu ZJ4jjK/lUPpkwrELpjC+jkOe5PkIAS0YX89hpdo8sVg5GN/AgddG7PU2IRjf 0KFIvPigLDuMb+SgNEWDS/n7eijf2OHcg19OKg9gfBMHnj1rWOxPwvimDi61 19SKN8H4Zg4voyIbD8yG8c0dnrbHv1FrhfEtHBIcYxyW5cH4lg7557jD7CJg fCuHT0XFbO8dYXxrh7thD7V2aMP4Ng7fkt7MmSkK49s6/BUuMZv8fx2Ub+cg 67rg4pKXML69Q96nBx7nLsP4Dg4GX96W8e+D8hscHAo2HzPLWAGTd3RYc2Nj 8o1JMHlHh29fbG7G18LknRzk1GyK/6XD5J0cQred5N0SBJN3dti03bW1wRYm 7+zwdXbotmQNmLyLw68Tj2tjhWHyLg7iWvI7c/+ttQMAY9G5PQ== "]]}, { Hue[0.7946117974981064, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGDQBGIQDQEf7D3X75n16XqVHVTAYUXfOdbvJ2F8DgehJl9t 9j0wvoDD5ylP/iqtg/FFHM7stCvwWgDjSzgYbOAorZ0E48s4aK3/9G93C4yv 4GB1ZyMDWzmMr+TwcipjbnQmjK/i8HX6ErM90TC+moP2v9QADT8YX8PBT0tq 7XwHGF/LYc+E+fZKxjC+jsOfvPu/1qvC+HoOl/POXfSQgPENHKItcre/4YLx DR3ufDkxb/bfSijfyMHxyO+q0A8wvrFDo5quvdRjGN/EISJq0r2XV2F8UweP TXk+R07A+GYOdx8I16zcDeObO4jZPkqYuQ7Gt3CY/N/j3eSFML6lg0nlMfGZ U2B8K4e9zi8urGiH8a0dPuV48x6ugvFtHNbMmXPgeS6Mb+tgbzbjnlgijG/n MLmUKzogBMa3d/DoOK85xR3Gd3BQXnzZ7pEVlN/g4CAuItxnpQeTd3TQCJzF PVcRJu/oEMzStppTFCbv5HBYhDmpgQMm7+RQs9ZPmfFPBVTe2WG147bH3e+h /AZnh31906crPIbJuzjUz0kw3n8NJu/iYL27f3X6qQo7AF4nsGo= "]]}, {}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0., 0}, PlotRange -> {{0., 41.}, {0, 27.386953102799207`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 41.}, {0, 27.386953102799207`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"n1[t]\"", "\"n2[t]\"", "\"n3[t]\"", "\"n4[t]\"", "\"n5[t]\"", "\"n6[t]\"", "\"n7[t]\"", "\"n8[t]\"", "\"n9[t]\"", "\"n10[t]\""}, "SwatchLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, { GraphicsBox[{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.264], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"SwatchLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.363898, 0.618501, 0.782349], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.24259866666666668`, 0.412334, 0.521566], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.363898, 0.618501, 0.782349]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.363898, 0.618501, 0.782349], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0.75, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0.5, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.75`", ",", "0"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.75, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0.75, 0], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.647624, 0.37816, 0.614037], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.4317493333333333, 0.2521066666666667, 0.40935800000000006`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.647624`", ",", "0.37816`", ",", "0.614037`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.647624, 0.37816, 0.614037]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.647624, 0.37816, 0.614037], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.571589, 0.586483, 0.], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.38105933333333336`, 0.39098866666666665`, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.571589`", ",", "0.586483`", ",", "0.`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.571589, 0.586483, 0.]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.571589, 0.586483, 0.], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, ",", #8, ",", #9, ",", #10}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "Automatic"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", "10"}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.812378775396908*^9, 3.8123807030743136`*^9, 3.812380936582486*^9, 3.8134042473225994`*^9, 3.813404800856866*^9, 3.814012183917618*^9, 3.814012539257722*^9, 3.814012678116028*^9, 3.814012744952675*^9, 3.8140444631900053`*^9, 3.8140445426847515`*^9, 3.8140446340832233`*^9, 3.814198672535902*^9, 3.814209395881486*^9, 3.8142128782325706`*^9, 3.8142258816220756`*^9, 3.814457953528722*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"3a860d3e-cdaa-4065-b556-7cffe93dd70a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "t", "]"}], ",", " ", RowBox[{"n2", "[", "t", "]"}], ",", " ", RowBox[{"n3", "[", "t", "]"}], ",", " ", RowBox[{"n4", "[", "t", "]"}], ",", " ", RowBox[{"n5", "[", "t", "]"}], ",", " ", RowBox[{"n6", "[", "t", "]"}], ",", " ", RowBox[{"n7", "[", "t", "]"}], ",", " ", RowBox[{"n8", "[", "t", "]"}], ",", " ", RowBox[{"n9", "[", "t", "]"}], ",", " ", RowBox[{"n10", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "7800"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.81154959459741*^9, 3.81154959648807*^9}, 3.8123653063077726`*^9, {3.813619354006041*^9, 3.8136193573327913`*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"4fbf9b67-c8ce-45eb-9f0e-10242dfde9ea"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "NN", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NN", "[", "m_", "]"}], ":=", RowBox[{"10", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "0.9959"}], "*", RowBox[{"Log", "[", RowBox[{"10", ",", " ", "m"}], "]"}]}], "-", "2.006"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{"NN", "[", "i", "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", RowBox[{"m", "[", "1", "]"}], ",", " ", RowBox[{"m", "[", "10", "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MyTable", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "[", "i", "]"}], ",", " ", RowBox[{"NN", "[", RowBox[{"m", "[", "i", "]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.814012623704487*^9, 3.8140126336174726`*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"c499fe60-44ef-409e-9df1-41c69b8b6cfc"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVxXk01AkcAPAJRU3GmHGPY2bkV+Po95ONUtN8NUvedGyskPDkCCtKOjbJ s6Kd9Si8TNasc1kp5NiamqX5dq2256hpUGorassmt2kl1e7+8XkfXuQ+/xgd Go229T//r0nOamhO4ONSxo07z91ZMNDNLd0fx0cySpUWQ7HguVN7LhnDR/8r bdQbAQtG/tImNITzURapKJ62ZoFOSKxjnR8feYr6uEW6LKA2SmorPPi4OuKs gXOPMeSymJWndfkY3rLX90isMYhb5WcS5TxsCDS/Y1jMBOXQFnX1VS4K/M8d qq83hP3K1P7qLjusuXxttj96CTi0mMV7U7b4TWXmkzQXfRjJflX7ZJ813ig3 rQ1u0gXV+BdlEV1WeD3M26gniQbVqxVej/UtsTJc2jbb/V4kTp8RyyXmGMoY 5PgMTokmQps+brpgikOpr/YW9A6LGs0rokeG2Zix7VTqy6peUWoc48SxL1lY lih4xua3qGhtHjS/c0wcVl+Otqeeqlb2C3Z4qg1xIrBo60LdUdW3kYMW9aeX 4Av+yrUdn2dUL2toHnR9fXRJmf5YunhedWusiKU9pYtJjxtpXkcXIEatCLvi T0O5sCPaokUP23jeeuqK96o1ucyhK5QBumrcnF+xp1WOnPbr11Lo2Dv6wvi8 9rUqV1aizJtnoFPh/swYukZ1zzumLtnTGDt3auXv+hSi7OeNRM9DFtJUsk9K 9qDowGQ+ZVxigoF8ZaKrcEyUU1U9ki00w3FFZsqGQq0oLX/3u/aH5pg0Fnxs ceG8qHrmct6AzBJ37SlRM/MWwOyssE/gwcGwUm4eab4QslLCLoTNWePbbirn Zr4BvHEk7gVcssVwjdgivZsOQi/m1yIBFxt545s3+xsB79zOLJ/FPEyu3Ca1 22oMVs/WMWIHeOh38Q1dM8yCjF+nRPG1fOQO+g8V1JqAzm2t4s9sexxMW78g ytcMSmoKpAk7lmHB+qkDwqUWsOX60fIEdwd02yNwcWqxBNOGOUa2AYGcvBrp g684sNljO5HRR+BU/6h7NtMGSucnT4xeWo6/5SpcJK22oFvo7Hnw5ApUtvyy Lnc9F05Gtronxgnwqo1J83YODw7dZzze5OOIzcIbd21HeJDK1H24ztQJK/b1 5SV38kGeI+ZUaZ1QGuik7Sqzh3saawWvwxnZbfwG/cRlkNx+dy7zjAvK3DIY v29xgFWDt7ICU1YiK8LW5JQNAQt7g2LFYhIbG0QBq3gEiOo+aF74kCj5EHGm bxkBqcfLN2ZJSMyU/Wxi50zAhMNrm9t+JE53rjBt8iRg4PBhjU8EiZq1bmbq IAKaLIq8JMdJlLF9LcwKCdgVqub4KUhctTs+WFlEgIw6/MOkksTuxpzi8B8J 6Naz+qfgGomLJF0WtRUE+DTsVqtvk3gkw99yzUUCXD9NSAM0JAaPhlqFdBKg V2H0LmiSxBnP9JBPPQR4HWyNmp0hMV9aXlL1gIA036D7xbMk3rEfshoZIGB8 oqz+0WcS14bEctL+JmCMe7bZRZ/CvlrpLu4oAXR6/PBHAwoPaOvktyYIEGg9 7bqXUHg+/y3HcJaA6D+e5iYxKPR5ahja/IGA71qbbm5gUjjkRP604zMBpaWZ cwwWhelHtz95r7Mc2r4PcH3GptCqI9m6bNFyeJRMxF00pfBfdN4/QA== "]]}, Annotation[#, "Charting`Private`Tag$2536#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-9.210340371976182, -16.084707745920102`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-9.210340371976182, 11.512925464970229`}, {-16.084707745920102`, 4.553591858715219}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->FrontEndValueCache[{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledTicks[{Log, Exp}]}, {{{-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {4.605170185988092, FormBox["100", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}, {{-16.11809565095832, FormBox[ TemplateBox[{"10", RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {4.605170185988092, FormBox["100", TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}]]], "Output", CellChangeTimes->{3.814012642979953*^9, 3.814012696077965*^9, 3.814012762522594*^9, 3.814044478380514*^9, 3.8140445573872194`*^9, 3.814044649235591*^9, 3.8141986904060793`*^9, 3.81420941198042*^9, 3.8142258973569827`*^9, 3.814457967949683*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"dccca470-4239-41d7-999b-60e9e19fe4e9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "[", "1", "]"}], ",", RowBox[{"n1", "[", "40", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "2", "]"}], ",", RowBox[{"n2", "[", "40", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "3", "]"}], ",", RowBox[{"n3", "[", "40", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "4", "]"}], ",", RowBox[{"n4", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "5", "]"}], ",", RowBox[{"n5", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "6", "]"}], ",", RowBox[{"n6", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "7", "]"}], ",", RowBox[{"n7", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "8", "]"}], ",", RowBox[{"n8", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "9", "]"}], ",", RowBox[{"n9", "[", "40", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "10", "]"}], ",", RowBox[{"n10", "[", "40", "]"}]}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", "MyTable"}], "]"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellLabel-> "In[106]:=",ExpressionUUID->"31975375-b20e-4cab-80ba-c4db311aba2d"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{-3.999999999999999, 2.275258824500383}, {-2.9999999999999996`, 1.083226579177581}, {-1.9999999999999996`, 0.08597225535526443}, {-0.9999999999999998, -1.0085247125180843`}, { 0., -2.2276239265409514`}, {1., -3.172493509677966}, { 2., -4.11017600404658}, {2.9999999999999996`, -5.0722266907148965`}, { 4., -6.048717506356054}, {5., -7.034552063097024}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{-3.999999999999999, 1.9775999999999994`}, {-2.9999999999999996`, 0.9816999999999998}, {-1.9999999999999996`, -0.014200000000000214`}, \ {-0.9999999999999998, -1.0101}, {0., -2.0059999999999993`}, {1., -3.0019}, { 2., -3.9977999999999994`}, {2.9999999999999996`, -4.9937}, { 4., -5.989599999999999}, {5., -6.985499999999999}}]}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"log(mass)\"", TraditionalForm], FormBox["\"log(individuals/m^(-3))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-3.999999999999999, 5.}, {-7.034552063097024, 2.275258824500383}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8141986905290017`*^9, 3.81420941205522*^9, 3.81422589746078*^9, 3.8144579680749025`*^9}, CellLabel-> "Out[106]=",ExpressionUUID->"704a0cd2-7066-4ec7-8943-9c6a973001bb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "[", "1", "]"}], ",", RowBox[{"n1", "[", "7800", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "2", "]"}], ",", RowBox[{"n2", "[", "7800", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "3", "]"}], ",", RowBox[{"n3", "[", "7800", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "4", "]"}], ",", RowBox[{"n4", "[", "7800", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "5", "]"}], ",", RowBox[{"n5", "[", "7800", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "6", "]"}], ",", RowBox[{"n6", "[", "7800", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "7", "]"}], ",", RowBox[{"n7", "[", "7800", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "8", "]"}], ",", RowBox[{"n8", "[", "7800", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "9", "]"}], ",", RowBox[{"n9", "[", "7800", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"m", "[", "10", "]"}], ",", RowBox[{"n10", "[", "7800", "]"}]}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"Log", "[", RowBox[{"10", ",", "MyTable"}], "]"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8093601336269817`*^9, 3.8093602318229437`*^9}, { 3.809360267345409*^9, 3.809360267680128*^9}, {3.809961434042268*^9, 3.8099615014081984`*^9}, {3.8105849387493486`*^9, 3.8105849491154423`*^9}, { 3.811549468967679*^9, 3.8115494807745543`*^9}, {3.812365345885619*^9, 3.8123654168593206`*^9}, {3.8140101975475726`*^9, 3.8140102013471875`*^9}, { 3.814012122174201*^9, 3.8140121425784664`*^9}, {3.814225866887495*^9, 3.81422587122395*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"002cc5c6-6382-4cbb-8e9c-841631b8ab58"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{-3.999999999999999, 2.385864135723463}, {-2.9999999999999996`, 1.2932728200797394`}, {-1.9999999999999996`, 0.3991862014568587}, {-0.9999999999999998, -0.600099981916311}, { 0., -2.238847694658697}, {1., -5.278024982929327}, { 2., -8.403184388381334}, {2.9999999999999996`, -9.954938688424274}, { 4., -9.899192771264056}, {5., -10.041773864221652`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{-3.999999999999999, 1.9775999999999994`}, {-2.9999999999999996`, 0.9816999999999998}, {-1.9999999999999996`, -0.014200000000000214`}, \ {-0.9999999999999998, -1.0101}, {0., -2.0059999999999993`}, {1., -3.0019}, { 2., -3.9977999999999994`}, {2.9999999999999996`, -4.9937}, { 4., -5.989599999999999}, {5., -6.985499999999999}}]}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"log(mass)\"", TraditionalForm], FormBox[ "\"log(individuals/\\!\\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-3.999999999999999, 5.}, {-10.041773864221652`, 2.385864135723463}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.809360203978915*^9, 3.809360232398374*^9}, 3.8093602681525097`*^9, 3.8099615113336234`*^9, 3.8103445354842067`*^9, 3.8103793013513536`*^9, 3.8115493771409197`*^9, 3.8115495044291153`*^9, 3.8115889540504875`*^9, 3.8123788287576447`*^9, 3.8123807268561163`*^9, 3.8123809711848693`*^9, 3.8134042680911417`*^9, 3.813404826807262*^9, 3.8140121475933695`*^9, 3.814012201468606*^9, 3.8140125565029774`*^9, 3.8140125968404975`*^9, 3.8140126465010953`*^9, 3.8140126961906624`*^9, 3.81401276263638*^9, 3.814044478591353*^9, 3.814044557487462*^9, 3.8140446493047104`*^9, 3.814198690586881*^9, 3.8142094120961075`*^9, 3.8142258975006657`*^9, 3.814457968128916*^9}, CellLabel-> "Out[107]=",ExpressionUUID->"20499164-0e31-4324-a4cc-f5c86763ea59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", "MyTable"}], "]"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.814011985719926*^9, 3.8140120008784733`*^9}, { 3.814012080312894*^9, 3.8140120849296613`*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"25acd2ac-dd70-4fce-b25d-74a241db98ad"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{-3.999999999999999, 1.9775999999999994`}, {-2.9999999999999996`, 0.9816999999999998}, {-1.9999999999999996`, -0.014200000000000214`}, \ {-0.9999999999999998, -1.0101}, {0., -2.0059999999999993`}, {1., -3.0019}, { 2., -3.9977999999999994`}, {2.9999999999999996`, -4.9937}, { 4., -5.989599999999999}, {5., -6.985499999999999}}]}}, {}, {}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox["\"log(mass)\"", TraditionalForm], FormBox["\"log(individuals/m^(-3))\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-3.999999999999999, 5.}, {-6.985499999999999, 1.9775999999999994`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.8140120896445312`*^9, 3.814012201766823*^9, 3.8140125567383137`*^9, 3.8140126962465677`*^9, 3.814012762693227*^9, 3.8140444786336374`*^9, 3.814044557534336*^9, 3.814044649351572*^9, 3.814198690641926*^9, 3.8142094121360006`*^9, 3.814225897541529*^9, 3.8144579681734076`*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"16018ed2-ecb8-44d2-9cac-9c462050116a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", "t", "]"}], ",", " ", RowBox[{"n2", "[", "t", "]"}], ",", " ", RowBox[{"n3", "[", "t", "]"}], ",", " ", RowBox[{"n4", "[", "t", "]"}], ",", " ", RowBox[{"n5", "[", "t", "]"}], ",", " ", RowBox[{"n6", "[", "t", "]"}], ",", " ", RowBox[{"n7", "[", "t", "]"}], ",", " ", RowBox[{"n8", "[", "t", "]"}], ",", " ", RowBox[{"n9", "[", "t", "]"}], ",", " ", RowBox[{"n10", "[", "t", "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", " ", "0", ",", " ", "7800"}], "}"}]}], "]"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"SwatchLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", "10"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", " ", RowBox[{"{", RowBox[{ "\"\