(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 259836, 7559] NotebookOptionsPosition[ 242373, 7256] NotebookOutlinePosition[ 242730, 7272] CellTagsIndexPosition[ 242687, 7269] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dr", ".", " ", "Jessica"}], " ", "Clark", " ", "University", " ", "of", " ", "Edinburgh"}], " ", "&"}], " ", "University", " ", "of", " ", "Glasgow"}], "*)"}]], "Input", CellChangeTimes->{{3.791880901214037*^9, 3.791880912439909*^9}, { 3.7918809717523537`*^9, 3.7918809915061693`*^9}, 3.818690820738696*^9},ExpressionUUID->"ac323d39-1b86-4cd3-907f-\ 45080fac840c"], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"MS", " ", "title"}], " ", "-", " ", RowBox[{ "Pathogen", " ", "Dynamics", " ", "Across", " ", "the", " ", "Diversity", " ", "of", " ", "Ageing"}]}], "*)"}]], "Input", CellChangeTimes->{{3.7918809178936977`*^9, 3.791880932525054*^9}},ExpressionUUID->"8f03dc70-4894-4bd9-b029-\ 4824cb00b45a"], Cell[BoxData[ RowBox[{"(*", RowBox[{ "Analytical", " ", "analysis", " ", "of", " ", "the", " ", "effects", " ", "of", " ", "individual", " ", "senescence", " ", "on", " ", "population", " ", "dynamics"}], "*)"}]], "Input", CellChangeTimes->{{3.791881003401622*^9, 3.7918810161361628`*^9}},ExpressionUUID->"9c71fd5a-fc3c-43a7-a8c4-\ 5ddda1af1131"], Cell[BoxData[ RowBox[{"(*", RowBox[{"uninfected", " ", "population", " ", "dynamics"}], "*)"}]], "Input",\ CellChangeTimes->{{3.791880858822444*^9, 3.791880866389736*^9}, { 3.79188095640709*^9, 3.79188095727604*^9}, 3.791881000281241*^9},ExpressionUUID->"464417b0-208f-464c-a649-\ 45fbd1f57853"], Cell[BoxData[ RowBox[{"ClearAll", "[", "\"\\"", "]"}]], "Input",ExpressionUUID->"c77644f9-70c5-466d-80e4-266dbf3be07e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", " ", "=", " ", RowBox[{ "Yyu", "+", "You", " ", "+", " ", "Oyu", " ", "+", " ", "Oou"}]}]], "Input",\ ExpressionUUID->"aa36b723-a909-4b3d-b5c8-44a46cf74f49"], Cell[BoxData[ RowBox[{"Oou", "+", "Oyu", "+", "You", "+", "Yyu"}]], "Output", CellChangeTimes->{ 3.714737612670927*^9, 3.714737730573998*^9, 3.7153359373259153`*^9, 3.7153376259259453`*^9, 3.7153379381718187`*^9, 3.715338004241858*^9, 3.715339112323741*^9, 3.715344827968101*^9, {3.715407676595117*^9, 3.715407699038846*^9}, 3.715418406562458*^9, 3.715418571446919*^9, 3.715421854050043*^9, 3.7159292274792137`*^9, 3.715929270568139*^9, 3.7186245999101467`*^9, 3.718720272470944*^9, 3.7215547816904182`*^9, 3.721635577429586*^9, 3.72171828256448*^9, 3.721718587652959*^9, 3.722172702886855*^9, 3.722172737232605*^9, 3.722173191437147*^9, 3.740227092272097*^9, 3.740227162184219*^9, 3.740285842229476*^9, 3.7402883927318983`*^9, 3.740293350939394*^9, 3.74029374695061*^9, 3.740294360882037*^9, 3.74029441621066*^9, 3.74031647086382*^9, { 3.740387060404304*^9, 3.740387088207292*^9}, 3.7407404311648607`*^9, 3.7407426413834743`*^9, {3.740743608873857*^9, 3.740743614665942*^9}, 3.740911648365719*^9},ExpressionUUID->"02724445-c8cd-4270-91f9-\ ea0da6605eea"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dYyu", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "*", "Yyu"}], "+", RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "*", "You"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{"n", "/", "k"}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}], "+", "m"}], ")"}], "*", "Yyu"}]}]}]], "Input",ExpressionUUID->"e361c1c1-d1eb-4779-b409-\ fada14bda414"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"m", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}]}], " ", "Yyu"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", "You"}], "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", "Yyu"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"Oou", "+", "Oyu", "+", "You", "+", "Yyu"}], "k"]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.714737621768161*^9, 3.714737731780509*^9, 3.715335961405788*^9, 3.7153376270787354`*^9, 3.7153379397031918`*^9, 3.715338005661655*^9, 3.715339115003685*^9, 3.715344829945071*^9, {3.715407677603359*^9, 3.715407701022003*^9}, 3.71541841020996*^9, 3.715418572656982*^9, { 3.715421854875795*^9, 3.7154218610792227`*^9}, 3.715929228717349*^9, 3.715929272142784*^9, 3.718720273303691*^9, 3.721554783240345*^9, 3.721635579775475*^9, 3.7217182835875998`*^9, 3.721718589556604*^9, 3.722172704811934*^9, 3.7221727391525707`*^9, 3.722173193017542*^9, 3.7402270937585373`*^9, 3.7402271638898153`*^9, 3.740285844423098*^9, 3.740288395301413*^9, 3.740293352476104*^9, 3.7402937490743647`*^9, 3.740294362706665*^9, 3.7402944179375134`*^9, 3.7403164719969797`*^9, { 3.7403870605155354`*^9, 3.740387088724882*^9}, 3.740740431250836*^9, 3.74074264224547*^9, {3.7407436094353027`*^9, 3.740743615543022*^9}, 3.740911648458008*^9},ExpressionUUID->"a254afab-67c0-408b-bb51-\ 2024efd0cf14"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dYou", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "*", "Oyu"}], "+", RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "*", "Oou"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{"n", "/", "k"}], ")"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}], "+", "m"}], ")"}], "*", "You"}]}]}]], "Input", CellChangeTimes->{{3.71541839973518*^9, 3.715418400397891*^9}},ExpressionUUID->"bdad246e-b0a9-4d2d-8052-\ e785dfa0c1ec"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"m", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}]}], " ", "You"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Oou", " ", "r", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"Oyu", " ", "r", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"Oou", "+", "Oyu", "+", "You", "+", "Yyu"}], "k"]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.714737638511327*^9, 3.714737733194743*^9, 3.715335963135198*^9, 3.7153376282436132`*^9, 3.715338015349228*^9, 3.7153391177935658`*^9, 3.7153448315931873`*^9, {3.715407678179147*^9, 3.715407702653257*^9}, 3.7154184128721743`*^9, 3.715418575496851*^9, {3.715421858338979*^9, 3.715421862300193*^9}, 3.7159292295285597`*^9, 3.715929273735025*^9, 3.718624607765881*^9, 3.718720274009379*^9, 3.721555325190342*^9, 3.721635581594084*^9, 3.721718284711186*^9, 3.721718592498283*^9, 3.722172704982209*^9, 3.722172740672481*^9, 3.7221731945420523`*^9, 3.740227095331015*^9, 3.740227165496107*^9, 3.740285846243326*^9, 3.740288397498397*^9, 3.740293353901197*^9, 3.7402937506486797`*^9, 3.740294364712385*^9, 3.740294419590714*^9, 3.7403164727185793`*^9, { 3.74038706056603*^9, 3.740387089316619*^9}, 3.7407404312847767`*^9, 3.7407426432933617`*^9, {3.740743610018602*^9, 3.740743616328684*^9}, 3.74091164852594*^9},ExpressionUUID->"aec0e5da-b2c9-41f5-af4c-\ f69e91f053f3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dOyu", "=", RowBox[{ RowBox[{"m", "*", "Yyu"}], "-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], ")"}], "*", "Oyu"}], ")"}]}]}]], "Input",ExpressionUUID->"94366ee4-aaaf-4231-9ee8-\ bda367124008"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "Oyu", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{"m", " ", "Yyu"}]}]], "Output", CellChangeTimes->{ 3.714737646603683*^9, 3.7147377344010468`*^9, 3.7153359645422564`*^9, 3.715337629987183*^9, 3.715338019659773*^9, 3.715339119307616*^9, 3.7153448333369703`*^9, {3.715407678698579*^9, 3.715407704052459*^9}, 3.715418414539873*^9, 3.7154185766777153`*^9, 3.71542186321867*^9, 3.715929230222731*^9, 3.715929275552389*^9, 3.718624609041458*^9, 3.718720274662127*^9, 3.721555326556329*^9, 3.721635583211845*^9, 3.721718285796385*^9, 3.721718594330785*^9, 3.722172705914132*^9, 3.722172742536668*^9, 3.722173196057675*^9, 3.740227097302473*^9, 3.74022716739919*^9, 3.740285848582383*^9, 3.740288399948807*^9, 3.740293355419673*^9, 3.740293752066471*^9, 3.7402943665165253`*^9, 3.7402944212603073`*^9, 3.7403164732173*^9, {3.7403870606164217`*^9, 3.7403870897545757`*^9}, 3.740740431344158*^9, 3.740742644043644*^9, { 3.7407436105773983`*^9, 3.740743617084693*^9}, 3.740911648576807*^9},ExpressionUUID->"2d9d40a4-2cf1-4985-a37b-\ 0b9bb114bf8e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dOou", "=", " ", RowBox[{ RowBox[{"m", "*", "You"}], "-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], ")"}], "*", "Oou"}], ")"}]}]}]], "Input",ExpressionUUID->"8f560c70-8286-4c80-91ae-\ 1a4698b6ca90"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "Oou", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{"m", " ", "You"}]}]], "Output", CellChangeTimes->{ 3.714737656196015*^9, 3.71473773570333*^9, 3.715335965634894*^9, 3.715337630968212*^9, 3.715338023565278*^9, 3.715339120507124*^9, 3.7153448349317408`*^9, {3.715407679250164*^9, 3.715407705108179*^9}, 3.715418416092865*^9, 3.7154185774626904`*^9, 3.7154218640046587`*^9, 3.715929230919087*^9, 3.715929276737611*^9, 3.7186246101415863`*^9, 3.718720275410203*^9, 3.721555327987278*^9, 3.721635585475412*^9, 3.7217182868028603`*^9, 3.721718595707762*^9, 3.7221727071753187`*^9, 3.7221727443528833`*^9, 3.722173197907333*^9, 3.740227098789542*^9, 3.7402271693213577`*^9, 3.7402858501882772`*^9, 3.7402884014069433`*^9, 3.740293357258109*^9, 3.7402937536219063`*^9, 3.7402943680736523`*^9, 3.740294422649983*^9, 3.7403164737272167`*^9, {3.740387060681872*^9, 3.7403870902438707`*^9}, 3.740740431418912*^9, 3.740742644830874*^9, 3.74074361779314*^9, 3.7409116486429987`*^9},ExpressionUUID->"2727c674-2390-41a7-bf44-\ a46b0a682547"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sol", " ", "=", " ", RowBox[{"FullSimplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dYyu", "\[Equal]", "0"}], "&&", RowBox[{"dYou", "\[Equal]", "0"}], "&&", RowBox[{"dOyu", "\[Equal]", "0"}], "&&", RowBox[{"dOou", " ", "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yyu", ",", "You", ",", " ", "Oyu", ",", "Oou"}], "}"}]}], "]"}], "]"}]}]], "Input",ExpressionUUID->"2d34740c-45a7-4c80-a91d-\ adc1caf6e957"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Yyu", "\[Rule]", "0"}], ",", RowBox[{"You", "\[Rule]", "0"}], ",", RowBox[{"Oyu", "\[Rule]", "0"}], ",", RowBox[{"Oou", "\[Rule]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Yyu", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{"You", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}]}], ",", RowBox[{"Oyu", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{"Oou", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.71473766727474*^9, 3.7147377389279547`*^9, 3.715336020662051*^9, 3.7153376318454437`*^9, 3.715338028534524*^9, 3.7153383875643883`*^9, 3.71533912350739*^9, 3.71534483838962*^9, {3.7154076817516537`*^9, 3.715407707893812*^9}, 3.715418418131382*^9, 3.715418578951152*^9, 3.7154218654697847`*^9, {3.715929233052763*^9, 3.715929278931786*^9}, 3.7186246119063873`*^9, 3.718720276744532*^9, 3.721555329857101*^9, 3.721635587892181*^9, 3.7217182886310673`*^9, 3.721718600736004*^9, 3.722172708918797*^9, 3.7221727532346973`*^9, 3.722173200890601*^9, 3.740227101244597*^9, {3.7402271568405867`*^9, 3.740227171200211*^9}, 3.740285852706304*^9, 3.740288404198533*^9, 3.740293359697958*^9, 3.740293755845475*^9, 3.7402943702864523`*^9, 3.740294424643187*^9, 3.740316475131757*^9, 3.740740432133713*^9, 3.7407426461080933`*^9, 3.7407436192277613`*^9, 3.740911650558331*^9},ExpressionUUID->"0fba00cc-356c-4f8b-95ca-\ 6d725bc28eee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Set", " ", "@@@", " ", RowBox[{"Sol", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.740294426563393*^9, 3.740294427386342*^9}},ExpressionUUID->"c35eea66-e185-4a6d-a59b-\ 0f6fe0e77e3e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", FractionBox[ RowBox[{"k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]]}], "}"}]], "Output", CellChangeTimes->{ 3.7147376792602882`*^9, 3.7147377408491697`*^9, 3.715337634145122*^9, 3.715338389739643*^9, 3.715339128173483*^9, 3.715344839343297*^9, { 3.715407681866*^9, 3.71540770928564*^9}, 3.715418505241214*^9, 3.715418644247293*^9, 3.7154218669930897`*^9, {3.715929251491091*^9, 3.715929281327075*^9}, 3.718624614283949*^9, 3.7187202777141457`*^9, 3.72155533089576*^9, 3.721635589944716*^9, 3.7217182904478807`*^9, 3.721726443521969*^9, 3.7221727100327463`*^9, 3.7221728378260927`*^9, 3.7221732034769506`*^9, 3.7402271043576612`*^9, 3.740227175189849*^9, 3.740285855305139*^9, 3.740288406452396*^9, 3.7402933614730186`*^9, 3.7402937573857203`*^9, 3.740294372153846*^9, 3.7402944280350637`*^9, 3.740316476280251*^9, 3.740387092348399*^9, 3.740740432197448*^9, 3.740743326015493*^9, 3.740743620415262*^9, 3.740911650620224*^9},ExpressionUUID->"c44404f9-33c6-4034-b68e-\ f22c12f4ee5c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"total", " ", "=", " ", RowBox[{ "Yyu", " ", "+", " ", "You", " ", "+", " ", "Oyu", " ", "+", " ", "Oou"}]}]], "Input",ExpressionUUID->"44886993-5df3-4007-bc26-2aa59e2fdc31"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]], "-", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.714737696675027*^9, 3.7147377156407843`*^9}, 3.7147377475090733`*^9, {3.715338373606229*^9, 3.71533839137344*^9}, 3.715339131411537*^9, 3.7153448410615377`*^9, {3.7154076819798117`*^9, 3.715407710849008*^9}, 3.715418506841601*^9, 3.715418646269477*^9, 3.715421868040595*^9, {3.715929252715019*^9, 3.715929283650791*^9}, 3.7186246156432*^9, 3.718720278929996*^9, 3.7215553323743973`*^9, 3.72163559389275*^9, 3.721726444579977*^9, 3.722172710560082*^9, 3.7221728406297092`*^9, 3.72217320567379*^9, 3.74022710679601*^9, 3.740227177160615*^9, 3.740285857057021*^9, 3.740288409360031*^9, 3.7402933630292997`*^9, 3.740293760278223*^9, 3.7402943745785103`*^9, 3.740294430410022*^9, 3.7403164765909777`*^9, 3.740387093465515*^9, 3.740740432297946*^9, 3.740743328767955*^9, 3.740743621897524*^9, 3.740911650666789*^9},ExpressionUUID->"378370e9-8355-4e24-b9ca-\ 9e5edf798049"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "total", "]"}]], "Input",ExpressionUUID->"b479ee2f-6655-4d03-a49e-e3750d6ddd50"], Cell[BoxData[ FractionBox[ RowBox[{"k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}]]], "Output", CellChangeTimes->{ 3.714737705469543*^9, 3.714737752250177*^9, 3.715338393709159*^9, 3.715339134958755*^9, 3.715344843409885*^9, 3.715407682737411*^9, 3.7154077132565517`*^9, 3.715418508632804*^9, 3.7154186479277287`*^9, 3.71542186921117*^9, {3.715929254671111*^9, 3.7159292871373158`*^9}, 3.718624617244405*^9, 3.718720280031568*^9, 3.721555333995195*^9, 3.721635597241541*^9, 3.72172644577637*^9, 3.7221727117357683`*^9, 3.722172843016163*^9, 3.722173207759158*^9, 3.740227108707913*^9, 3.740227181856138*^9, 3.74028585978269*^9, 3.740288411234765*^9, 3.740292065822916*^9, 3.740293364818844*^9, 3.7402937623839197`*^9, 3.740294376081069*^9, 3.74029443223182*^9, 3.740316477541744*^9, 3.740387094851203*^9, 3.740740432350523*^9, 3.7407433313605213`*^9, 3.7407436233019753`*^9, 3.740911650724708*^9},ExpressionUUID->"d4f8e0ee-3b78-4d3a-ba1f-\ c43ce7ad0e8c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"D", "[", RowBox[{"total", ",", "x"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.715418529798506*^9},ExpressionUUID->"0c20ff64-b67c-4c12-adde-\ 103448403a11"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{ 3.7147377624499493`*^9, 3.71533849663216*^9, 3.71533915156708*^9, 3.715344845062558*^9, 3.7154076842173233`*^9, 3.715407714807991*^9, 3.715418535974605*^9, 3.715418678245474*^9, 3.715421870438076*^9, 3.715929291023892*^9, 3.718624618796364*^9, 3.7187202812118673`*^9, 3.721555335424809*^9, 3.721635600627695*^9, 3.721726446870268*^9, 3.722172712904529*^9, 3.722172845280759*^9, 3.722173210508287*^9, 3.7402271935041018`*^9, 3.7402858746901503`*^9, {3.740286350741688*^9, 3.7402863554785223`*^9}, 3.740288412956417*^9, 3.7402933681795883`*^9, 3.7402937639886*^9, 3.740294377767115*^9, {3.740294409055174*^9, 3.740294435069315*^9}, 3.740316478374803*^9, 3.740740432434454*^9, 3.740743333440578*^9, 3.7407436243882723`*^9, 3.7409116508844957`*^9},ExpressionUUID->"960113d4-bc18-4548-80e3-\ a35f12b1511b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x", "=", "0"}], ";", RowBox[{"y", "=", "0"}], ";", RowBox[{"FullSimplify", "[", RowBox[{"-", FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]]}], "]"}]}]], "Input", CellChangeTimes->{{3.740288421124752*^9, 3.740288444231683*^9}},ExpressionUUID->"802a127d-a24d-4403-92e3-\ ab45e539993a"], Cell[BoxData[ FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", "m"}], ")"}], " ", "r"}]]], "Output", CellChangeTimes->{{3.740288434111054*^9, 3.7402884448747377`*^9}, 3.740293371470449*^9, 3.7402937654770947`*^9, 3.740294379241701*^9, 3.740294436709218*^9, 3.7403164797219887`*^9, 3.740387101688895*^9, 3.740740432465933*^9, 3.740743337666366*^9, 3.740743625357428*^9, 3.7409116509331913`*^9},ExpressionUUID->"f2ec8a86-db37-407f-bed3-\ 667323d53591"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Reduce", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", "m"}], ")"}], " ", "r"}]], ">", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"m", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"y", "\[GreaterEqual]", RowBox[{"-", "1"}]}], "&&", RowBox[{"y", "\[LessEqual]", "1"}], "&&", RowBox[{"x", "\[GreaterEqual]", RowBox[{"-", "1"}]}], "&&", RowBox[{"x", "\[LessEqual]", "1"}], "&&", RowBox[{"r", ">", "0"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.715418711390555*^9, 3.7154187576596003`*^9}, 3.74028622844245*^9, 3.74028636447147*^9, 3.740288451102408*^9},ExpressionUUID->"4da04db6-28ce-4980-86e3-\ 533bf3004de6"], Cell[BoxData[ RowBox[{ RowBox[{"m", ">", "0"}], "&&", RowBox[{"d", ">", "m"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"k", ">", "0"}]}]], "Output", CellChangeTimes->{3.714737772133003*^9, 3.715338699621768*^9, 3.715339215626437*^9, 3.7153448497499933`*^9, 3.7154077189343767`*^9, 3.7154187587115927`*^9, 3.715421873046706*^9, 3.7159293745589733`*^9, 3.718624620830085*^9, 3.721555338513521*^9, 3.721635602499319*^9, 3.7217264481775503`*^9, 3.722172714010738*^9, 3.7221728488970413`*^9, 3.7221732129195557`*^9, 3.7402862293284197`*^9, 3.740286365271875*^9, 3.740288451516773*^9, 3.740293373478423*^9, 3.7402937680678377`*^9, 3.740294382385581*^9, 3.740294438918112*^9, 3.74031649034527*^9, 3.7403871029381113`*^9, 3.740740432515954*^9, 3.740743340105719*^9, 3.7407436264058847`*^9, 3.740911651052701*^9},ExpressionUUID->"6702cf26-7992-4676-bff5-\ 9f9f204930e3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"x", ",", "y"}], "]"}], ";", RowBox[{"FullSimplify", "[", RowBox[{"D", "[", RowBox[{"total", ",", "y"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.740288460274969*^9, 3.7402884645625153`*^9}},ExpressionUUID->"2190979d-817f-4e66-abac-\ 9d8024a48065"], Cell[BoxData[ FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"2", " ", "d", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "y"}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"]}]}], ")"}]}], RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]]], "Output", CellChangeTimes->{ 3.714737779321982*^9, 3.715338701732983*^9, 3.7153392424027843`*^9, 3.715344851800899*^9, 3.715407727184507*^9, 3.71541880104466*^9, 3.715421874644657*^9, 3.7159294050888653`*^9, 3.718624622669828*^9, 3.721555340102435*^9, 3.721635604760745*^9, 3.721726449387499*^9, 3.72217271522714*^9, 3.722172851276309*^9, 3.722173215188345*^9, 3.740286238712932*^9, {3.7402884580271587`*^9, 3.740288465439896*^9}, 3.7402933767340393`*^9, 3.740293770329074*^9, 3.740294442490472*^9, 3.7403164927136374`*^9, 3.740387104763296*^9, 3.740740432659753*^9, 3.7407433426988*^9, 3.740743627532208*^9, 3.740911806872649*^9},ExpressionUUID->"9e73f741-0658-4505-a8ae-\ ce75905aad51"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"x", "=", "0"}], ";", RowBox[{"y", "=", "0"}], ";", RowBox[{"FullSimplify", "[", FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"2", " ", "d", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "y"}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"]}]}], ")"}]}], RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]], "]"}]}]], "Input", CellChangeTimes->{{3.7402862544023314`*^9, 3.740286260195621*^9}},ExpressionUUID->"e9820aa5-8ed3-4aed-93cd-\ bfb1f7e6aced"], Cell[BoxData[ FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", "m"}], ")"}], " ", "r"}]]], "Output", CellChangeTimes->{3.74028626074149*^9, 3.7402884717324877`*^9, 3.740293378912353*^9, 3.740293772532035*^9, 3.740294444869399*^9, 3.740316493989826*^9, 3.740387109828672*^9, 3.740740432691732*^9, 3.740743350418931*^9, 3.740743628468136*^9, 3.740911806998447*^9},ExpressionUUID->"2e4912f6-3587-4385-8111-\ 322833dcb351"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"d", " ", "k", " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", "m"}], ")"}], " ", "r"}]], ">", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"m", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"y", "\[GreaterEqual]", RowBox[{"-", "1"}]}], "&&", RowBox[{"y", "\[LessEqual]", "1"}], "&&", RowBox[{"x", "\[GreaterEqual]", RowBox[{"-", "1"}]}], "&&", RowBox[{"x", "\[LessEqual]", "1"}], "&&", RowBox[{"r", ">", "0"}]}], ",", "m"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.715418822901555*^9, 3.715418842318164*^9}, { 3.715418958620626*^9, 3.715418958867363*^9}, {3.715419244783564*^9, 3.715419252353191*^9}, 3.721555342215686*^9, 3.740288703482387*^9},ExpressionUUID->"4a212e48-5cf4-4703-b72c-\ fb6d79ddde06"], Cell[BoxData[ RowBox[{ RowBox[{"r", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"0", "<", "m", "<", "d"}]}]], "Output", CellChangeTimes->{ 3.7147377856180477`*^9, 3.715338725659252*^9, 3.715339247041524*^9, 3.715344857453869*^9, 3.715407732637952*^9, 3.715409584463449*^9, { 3.715418950886517*^9, 3.715418974361663*^9}, {3.7154192466122293`*^9, 3.715419253461018*^9}, 3.715421876795919*^9, 3.715929407778458*^9, 3.7186246259514503`*^9, 3.721555350265821*^9, 3.7216356084322357`*^9, 3.7221728612148457`*^9, 3.722173217447007*^9, 3.740288705061427*^9, 3.740293381738678*^9, 3.74029377412183*^9, 3.740294448481825*^9, 3.740387116613356*^9, 3.740740432760001*^9, 3.740743350507515*^9, 3.740743629533168*^9, 3.740911807042976*^9},ExpressionUUID->"51db7ba2-bd3b-4e38-b2ab-\ 1ba4f21feeea"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ }]}]}]}]}]}]}]}], "*)"}]], "Input", CellChangeTimes->{{3.791880833158433*^9, 3.791880848989078*^9}},ExpressionUUID->"f71d5c7e-f006-40f6-a7fd-\ 6539d3a881d1"], Cell[BoxData[ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ }]}]}]}]}]}]}]}], "*)"}]], "Input",ExpressionUUID->"fbe8f7e7-4cc6-4cf4-934e-\ 22683b0b19d6"], Cell[BoxData[ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ }]}]}]}]}]}]}]}], "*)"}]], "Input",ExpressionUUID->"0236b3a3-5d07-4b95-abcf-\ 1e75afcb1f79"], Cell[BoxData[ RowBox[{"(*", RowBox[{"Next", " ", "generation", " ", "method"}], "*)"}]], "Input", CellChangeTimes->{{3.791718641468514*^9, 3.7917186454794416`*^9}},ExpressionUUID->"5096411a-85d4-48a9-a453-\ 91b703aafdfd"], Cell[BoxData[ RowBox[{"ClearAll", "[", "\"\\"", "]"}]], "Input",ExpressionUUID->"f9f059f0-6d4a-44a8-8c74-32a7544e8e73"], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"making", " ", "the", " ", "F", " ", RowBox[{"(", RowBox[{"new", " ", "infection", " ", "terms"}], ")"}]}], ",", " ", RowBox[{"V", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"infection", " ", "class", " ", "losses"}], ")"}], " ", "and", " ", "V"}], "+", " ", RowBox[{ RowBox[{"(", RowBox[{"infection", " ", "class", " ", "gains"}], ")"}], " ", "vectors"}]}]}], "*)"}]], "Input", CellChangeTimes->{{3.7899824077598677`*^9, 3.789982446279512*^9}, { 3.791718647949541*^9, 3.791718671782819*^9}},ExpressionUUID->"e014729b-9454-433b-8ab1-\ 275ba89c43cc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ni", " ", "=", RowBox[{"Yyi", "+", "Yoi", "+", "Oyi", "+", "Ooi"}]}]], "Input", CellChangeTimes->{{3.789987484056958*^9, 3.78998749790565*^9}, { 3.791717505309622*^9, 3.791717514916995*^9}},ExpressionUUID->"91d3f90b-82ba-4742-80cf-\ e455b07a61ba"], Cell[BoxData[ RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}]], "Output", CellChangeTimes->{ 3.78998749947225*^9, 3.789987537193088*^9, 3.7899893832373953`*^9, 3.789989434530695*^9, {3.7899896158364687`*^9, 3.7899896343436737`*^9}, 3.789989713825605*^9, 3.78999281809589*^9, 3.789992901641798*^9, 3.789999119654345*^9, 3.789999323479472*^9, 3.789999360501759*^9, 3.790000100738573*^9, 3.7900770586372128`*^9, 3.79164045023386*^9, 3.791640808171205*^9, 3.791640866766336*^9, 3.791716110987958*^9, 3.791717228480116*^9, 3.791717515944476*^9, 3.791717683962577*^9, 3.791720549525725*^9, 3.7918787440544167`*^9},ExpressionUUID->"9f71b8c6-a66d-49f0-876b-\ e454186717b4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Byy", " ", "=", " ", RowBox[{"B", "*", RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.79172047283183*^9, 3.79172049193801*^9}},ExpressionUUID->"65791aa4-7409-4577-812d-\ 92d76a65c11c"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}]}]], "Output", CellChangeTimes->{3.791720501291857*^9, 3.791720549574106*^9, 3.7918787441273518`*^9},ExpressionUUID->"59d580f3-751b-4e4c-bff7-\ ce3c3540b70d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Byo", "=", RowBox[{"B", "*", RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], "*", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7917205099006557`*^9, 3.791720518990243*^9}},ExpressionUUID->"f40b7de3-2fbf-4359-8de7-\ 2e48dce8e4d9"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}]}]], "Output", CellChangeTimes->{{3.79172051993923*^9, 3.7917205496482553`*^9}, 3.791878744204454*^9},ExpressionUUID->"f0c186b2-8fdd-41d8-b206-\ ac80c3d76998"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Boy", "=", RowBox[{"B", "*", RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.7917205274096127`*^9, 3.791720534207241*^9}},ExpressionUUID->"9c3781cf-8df2-42af-96ea-\ b1082b48654f"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}]}]], "Output", CellChangeTimes->{{3.7917205347265263`*^9, 3.791720549715271*^9}, 3.7918787442857428`*^9},ExpressionUUID->"f7728320-81cd-4934-96b6-\ 7b9f4bb7e51c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Boo", "=", RowBox[{"B", "*", RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.791720535992352*^9, 3.791720543816909*^9}},ExpressionUUID->"a64a3c6b-53f1-47d3-903e-\ 21545a143bdd"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}]}]], "Output", CellChangeTimes->{{3.791720544464102*^9, 3.791720549781814*^9}, 3.79187874436063*^9},ExpressionUUID->"bac79b9d-424b-4514-85b4-\ 267c57c58c14"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"F", "=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"Byy", "*", "Yyu", "*", "Ni"}], ")"}], ",", RowBox[{"(", RowBox[{"Byo", "*", "You", "*", "Ni"}], ")"}], ",", RowBox[{"(", RowBox[{"Boy", "*", "Oyu", "*", "Ni"}], ")"}], ",", RowBox[{"(", RowBox[{"Boo", "*", "Oou", "*", "Ni"}], ")"}]}], "}"}]}], "\n", RowBox[{"MatrixForm", "[", "F", "]"}]}], "Input", CellChangeTimes->{{3.789982314993535*^9, 3.789982384375029*^9}, { 3.7917175202012377`*^9, 3.791717538661109*^9}},ExpressionUUID->"74f7e33b-37bd-4848-932c-\ 1795a7dfcb6f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}], " ", "Yyu"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "You", " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Oyu", " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "Oou", " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.789982379886504*^9, 3.789982384964373*^9}, 3.7899837256628447`*^9, 3.7899840168758163`*^9, 3.789984412060638*^9, 3.789984447726367*^9, 3.7899845970407867`*^9, 3.789985172769598*^9, 3.789987537254301*^9, 3.789989383320887*^9, 3.7899894346071053`*^9, { 3.789989615908621*^9, 3.7899896343893023`*^9}, 3.78998971390587*^9, 3.7899928181839542`*^9, 3.789992901735229*^9, 3.789999119746262*^9, 3.789999323550063*^9, 3.789999360556085*^9, 3.790000100802495*^9, 3.7900770587050858`*^9, 3.791640450295916*^9, 3.791640808237247*^9, 3.791640866837411*^9, 3.791716111076941*^9, 3.791717228555171*^9, 3.7917176840475893`*^9, 3.7917205498489113`*^9, 3.7918787444359303`*^9},ExpressionUUID->"e3712548-64b7-4ccb-97e1-\ e04d6db253b1"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}], " ", "Yyu"}]}, { RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "You", " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}]}]}, { RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Oyu", " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}]}]}, { RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "Oou", " ", RowBox[{"(", RowBox[{"Ooi", "+", "Oyi", "+", "Yoi", "+", "Yyi"}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.789982379886504*^9, 3.789982384964373*^9}, 3.7899837256628447`*^9, 3.7899840168758163`*^9, 3.789984412060638*^9, 3.789984447726367*^9, 3.7899845970407867`*^9, 3.789985172769598*^9, 3.789987537254301*^9, 3.789989383320887*^9, 3.7899894346071053`*^9, { 3.789989615908621*^9, 3.7899896343893023`*^9}, 3.78998971390587*^9, 3.7899928181839542`*^9, 3.789992901735229*^9, 3.789999119746262*^9, 3.789999323550063*^9, 3.789999360556085*^9, 3.790000100802495*^9, 3.7900770587050858`*^9, 3.791640450295916*^9, 3.791640808237247*^9, 3.791640866837411*^9, 3.791716111076941*^9, 3.791717228555171*^9, 3.7917176840475893`*^9, 3.7917205498489113`*^9, 3.7918787444477577`*^9},ExpressionUUID->"7e59129a-667d-4dd7-a7b8-\ 6a7ccbadd114"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vm", "=", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"Yyi", "*", RowBox[{"(", RowBox[{"m", "+", "v", "+", "c", "+", RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}]}], ")"}]}], ")"}], ",", RowBox[{"(", RowBox[{"Yoi", "*", RowBox[{"(", RowBox[{"m", "+", "v", "+", "c", "+", RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}]}], ")"}]}], ")"}], ",", " ", RowBox[{"(", RowBox[{"Oyi", "*", RowBox[{"(", RowBox[{"v", "+", "c", "+", RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], ")"}]}], ")"}]}], ")"}], ",", RowBox[{"(", RowBox[{"Ooi", "*", RowBox[{"(", RowBox[{"v", "+", "c", "+", RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], ")"}]}], ")"}]}], ")"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.789982451523068*^9, 3.789982551435934*^9}, { 3.7899840876130877`*^9, 3.789984087969028*^9}, {3.791717553891245*^9, 3.791717565267973*^9}},ExpressionUUID->"7c4e8f72-80a4-4e6d-8ab4-\ 65697ec489a6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yyi"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yoi"}], ",", RowBox[{"Oyi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], ",", RowBox[{"Ooi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.789982556112414*^9, 3.789983932687913*^9, 3.789984021510735*^9, 3.789984090263925*^9, 3.7899844121660967`*^9, 3.789984447799079*^9, 3.7899845971310053`*^9, 3.789985172885653*^9, 3.789987537342369*^9, 3.789989383449224*^9, 3.7899894346858597`*^9, {3.789989616019845*^9, 3.7899896344643793`*^9}, 3.78998971403878*^9, 3.789992818269746*^9, 3.789992901817768*^9, 3.789999119830662*^9, 3.789999323633563*^9, 3.789999360652801*^9, 3.7900001009347*^9, 3.790077058787776*^9, 3.7916404503567553`*^9, 3.7916408083212557`*^9, 3.7916408669219723`*^9, 3.791716111175956*^9, 3.7917172286387453`*^9, 3.791717684143468*^9, 3.791720549931147*^9, 3.791878744537272*^9},ExpressionUUID->"f8aef8e4-5d5e-4730-8180-\ b2294f3dfa6c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "Vm", "]"}]], "Input", CellChangeTimes->{{3.789982561798729*^9, 3.789982562412024*^9}},ExpressionUUID->"6e4f6853-ad43-4c89-9738-\ 1e866d2b3f01"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yyi"}]}, { RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yoi"}]}, { RowBox[{"Oyi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}]}, { RowBox[{"Ooi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.789982563002295*^9, 3.789984025111787*^9, 3.789984093449931*^9, 3.789984412237352*^9, 3.789984447864923*^9, 3.789984597213334*^9, 3.789985172973792*^9, 3.789987537410289*^9, 3.789989383500312*^9, 3.7899894347525597`*^9, {3.789989616090955*^9, 3.789989634530816*^9}, 3.789989714103951*^9, 3.7899928183365726`*^9, 3.7899929018845167`*^9, 3.789999119897057*^9, 3.7899993237165737`*^9, 3.789999360736795*^9, 3.79000010100423*^9, 3.7900770588549128`*^9, 3.791640450418345*^9, 3.791640808387909*^9, 3.791640867037858*^9, 3.791716111260816*^9, 3.791717228721509*^9, 3.7917176842437677`*^9, 3.791720549996711*^9, 3.791878744627101*^9},ExpressionUUID->"7d6cd43b-483b-4abd-a4fd-\ 65afd12992e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vp", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"m", "*", "Yyi"}], ",", " ", RowBox[{"m", "*", "Yoi"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.789982568583165*^9, 3.789982621095173*^9}, { 3.791717568382759*^9, 3.7917175709009333`*^9}},ExpressionUUID->"f77855bf-97f2-495d-952f-\ 3c542a51817e"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"m", " ", "Yyi"}], ",", RowBox[{"m", " ", "Yoi"}]}], "}"}]], "Output", CellChangeTimes->{ 3.789982622203864*^9, 3.789984027236371*^9, 3.789984096604231*^9, 3.789984412307201*^9, 3.7899844479322863`*^9, 3.78998459730859*^9, 3.789985173058559*^9, 3.7899875374797297`*^9, 3.789989383568323*^9, 3.789989434840539*^9, {3.789989616156699*^9, 3.7899896345972424`*^9}, 3.789989714172983*^9, 3.789992818404326*^9, 3.789992901953575*^9, 3.789999119963126*^9, 3.78999932380516*^9, 3.789999360822693*^9, 3.7900001010712643`*^9, 3.790077058921056*^9, 3.791640450479135*^9, 3.7916408084539213`*^9, 3.79164086713288*^9, 3.791716111341708*^9, 3.791717228805545*^9, 3.7917176843143797`*^9, 3.7917205500659122`*^9, 3.79187874472104*^9},ExpressionUUID->"65db0560-5d71-4aa3-a561-\ 0c6e34c1391d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "Vp", "]"}]], "Input", CellChangeTimes->{{3.789982628097994*^9, 3.78998262884125*^9}},ExpressionUUID->"f39b116f-6a9b-41ad-9e6b-\ e7ba535e9aa0"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ {"0"}, {"0"}, { RowBox[{"m", " ", "Yyi"}]}, { RowBox[{"m", " ", "Yoi"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.789982629456869*^9, 3.789984030428384*^9, 3.789984107930499*^9, 3.789984412373598*^9, 3.7899844479953127`*^9, 3.7899845973788223`*^9, 3.78998517313971*^9, 3.789987537545671*^9, 3.7899893836343317`*^9, 3.789989434914382*^9, {3.7899896162243834`*^9, 3.789989634663924*^9}, 3.7899897142418013`*^9, 3.7899928184707203`*^9, 3.789992902015119*^9, 3.789999120027068*^9, 3.789999323869289*^9, 3.789999360889154*^9, 3.790000101137772*^9, 3.790077058984913*^9, 3.7916404505434303`*^9, 3.791640808518641*^9, 3.791640867203904*^9, 3.791716111425861*^9, 3.7917172288884687`*^9, 3.791717684389688*^9, 3.791720550132134*^9, 3.791878744810676*^9},ExpressionUUID->"b3b29b36-7e13-490e-9501-\ d12ae3fcc0a9"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "subtract", " ", "the", " ", "minuses", " ", "from", " ", "the", " ", "pluses"}], "*)"}]], "Input", CellChangeTimes->{{3.791718734217965*^9, 3.7917187458885202`*^9}},ExpressionUUID->"bcb2f79f-9590-49eb-83ec-\ c89ac73886bd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"V", "=", RowBox[{"Vm", "-", "Vp"}]}]], "Input", CellChangeTimes->{{3.789982679605802*^9, 3.789982687071014*^9}},ExpressionUUID->"f188b0c1-5663-429c-8eae-\ 640d70bd65b8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yyi"}], ",", RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yoi"}], ",", RowBox[{ RowBox[{"Oyi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], "-", RowBox[{"m", " ", "Yyi"}]}], ",", RowBox[{ RowBox[{"Ooi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], "-", RowBox[{"m", " ", "Yoi"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.789982682696732*^9, 3.7899826886109333`*^9}, 3.789983899600719*^9, 3.789984032806065*^9, 3.789984110141885*^9, 3.789984412439699*^9, 3.789984448062805*^9, 3.78998459746616*^9, 3.789985173224052*^9, 3.789987537612789*^9, 3.789989383698951*^9, 3.789989434999879*^9, {3.7899896162942142`*^9, 3.78998963473131*^9}, 3.789989714308897*^9, 3.789992818539591*^9, 3.789992902081287*^9, 3.789999120093212*^9, 3.789999323938529*^9, 3.7899993609565268`*^9, 3.7900001012047863`*^9, 3.790077059051759*^9, 3.791640450609229*^9, 3.791640808587441*^9, 3.791640867288827*^9, 3.7917161115102797`*^9, 3.791717228970738*^9, 3.791717684462379*^9, 3.7917205502407837`*^9, 3.791878744922615*^9},ExpressionUUID->"dcdfad74-abd6-4332-8582-\ f1d793b64706"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "V", "]"}]], "Input", CellChangeTimes->{{3.789982691265585*^9, 3.7899826970390787`*^9}, 3.789984149016656*^9},ExpressionUUID->"1740d110-e10b-40f6-bea8-\ 3e8662585d48"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yyi"}]}, { RowBox[{ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", "Yoi"}]}, { RowBox[{ RowBox[{"Oyi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], "-", RowBox[{"m", " ", "Yyi"}]}]}, { RowBox[{ RowBox[{"Ooi", " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], "-", RowBox[{"m", " ", "Yoi"}]}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7899929021524963`*^9, 3.789999120160955*^9, 3.789999324002121*^9, 3.789999361021193*^9, 3.790000101271509*^9, 3.7900770591181087`*^9, 3.7916404506776876`*^9, 3.791640808654789*^9, 3.791640867372387*^9, 3.79171611159333*^9, 3.791717229054669*^9, 3.791717684526334*^9, 3.791720550306513*^9, 3.7918787449941063`*^9},ExpressionUUID->"a7f438ca-6ef2-4321-b204-\ f1b2633e83b2"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "jacobian", " ", "matrices", " ", "of", " ", "the", " ", "f", " ", "and", " ", "v", " ", "matrices"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "the", " ", "v", " ", "matrix", " ", "is", " ", "made", " ", "weirdly", " ", "and", " ", "called", " ", "insandouts", " ", "because", " ", "mathematica", " ", RowBox[{"didn", "'"}], "t", " ", "like", " ", "it", " ", "being", " ", "called", " ", "v", " ", "or", " ", "anything", " ", "with", " ", "v", " ", "in", " ", "it", " ", "and", " ", "made", " ", "it", " ", "hard", " ", "to", " ", "make"}], "*)"}]}]], "Input", CellChangeTimes->{{3.790076946602763*^9, 3.790076962048411*^9}, { 3.7917187001714087`*^9, 3.7917187305928783`*^9}},ExpressionUUID->"4c745603-fb05-48f9-9461-\ 1ba1ef2f34e3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v11", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Yyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077046811301*^9, 3.790077048102763*^9}, { 3.791717577958585*^9, 3.7917175784868927`*^9}},ExpressionUUID->"fe59ee71-848a-4a71-98c2-\ e9e372bcf651"], Cell[BoxData[ RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}]], "Output", CellChangeTimes->{{3.7900770499732323`*^9, 3.7900770652905827`*^9}, 3.7916404507569237`*^9, 3.7916408087523117`*^9, 3.7916408674667463`*^9, 3.7917161117050962`*^9, 3.791717229148844*^9, 3.791717684626793*^9, 3.791720550406557*^9, 3.791878745114019*^9},ExpressionUUID->"4f1a6871-11cf-4a12-8340-\ 35bd09160bb7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v12", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Yoi"}], "]"}]}]], "Input", CellChangeTimes->{{3.79007707618771*^9, 3.790077077249364*^9}, { 3.7917175829279413`*^9, 3.791717583618973*^9}},ExpressionUUID->"f932028b-f153-4f39-b369-\ 8b38c43ecc4f"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.790077077664672*^9, 3.791640450810729*^9, 3.7916408088217697`*^9, 3.7916408675546837`*^9, 3.791716111792343*^9, 3.7917172292214537`*^9, 3.791717684694694*^9, 3.791720550511004*^9, 3.7918787451844873`*^9},ExpressionUUID->"9cd1c708-0ab5-4e61-b451-\ 6eef716b4b8e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v13", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Oyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.7900770867218857`*^9, 3.790077088030431*^9}, { 3.791717585825863*^9, 3.791717586222076*^9}},ExpressionUUID->"bab5fd12-113e-4bdd-b839-\ 6cac853c8b5d"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.790077088495575*^9, 3.791640450874687*^9, 3.791640808888784*^9, 3.791640867621716*^9, 3.791716111876151*^9, 3.791717229304985*^9, 3.791717684762048*^9, 3.791720550553101*^9, 3.7918787452688093`*^9},ExpressionUUID->"d09bbc8b-dd26-47b2-8cd8-\ 92f8c432d8b1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v14", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Ooi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077105343011*^9, 3.790077106002543*^9}, { 3.7917175887309093`*^9, 3.791717589086865*^9}},ExpressionUUID->"08a72c74-a528-4b64-ac57-\ 29a87f9770c6"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.790077106409972*^9, 3.7916404509435883`*^9, 3.791640808955916*^9, 3.791640867705228*^9, 3.791716112005013*^9, 3.791717229389142*^9, 3.7917176848294373`*^9, 3.79172055062358*^9, 3.791878745361826*^9},ExpressionUUID->"1ada6ac0-ef55-4ce3-ac29-\ 08e332bcbc8e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v21", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Yyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077114416977*^9, 3.790077115399026*^9}, { 3.791717591828916*^9, 3.791717592256024*^9}},ExpressionUUID->"f2912bcd-7ee2-432a-9d9c-\ e0a133cdde46"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7900771158159857`*^9, 3.791640451010591*^9, 3.791640809023695*^9, 3.791640867852005*^9, 3.7917161120941763`*^9, 3.7917172295335617`*^9, 3.7917176849569883`*^9, 3.791720550690988*^9, 3.7918787454532223`*^9},ExpressionUUID->"20cad887-d0be-42aa-8a82-\ 7befdabd2f4e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v22", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Yoi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077121694015*^9, 3.790077122472554*^9}, { 3.791717594139991*^9, 3.7917175994724197`*^9}},ExpressionUUID->"2b2ba4c7-4c91-46be-a0e0-\ 91e681b423ae"], Cell[BoxData[ RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}]], "Output", CellChangeTimes->{3.790077122963426*^9, 3.7916404510764027`*^9, 3.791640809089409*^9, 3.791640867921418*^9, 3.7917161121939697`*^9, 3.791717229605852*^9, 3.791717685027206*^9, 3.791720550757412*^9, 3.791878745537683*^9},ExpressionUUID->"f3c3e358-b1a2-46f0-bbaf-\ 41fd0033a2db"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v23", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Oyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077128996736*^9, 3.790077129736382*^9}, { 3.79171760373129*^9, 3.7917176040491047`*^9}},ExpressionUUID->"02f0abec-de4a-4d08-bbfc-\ b152cd799365"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7900771301582603`*^9, 3.7916404511438513`*^9, 3.791640809218232*^9, 3.791640868007472*^9, 3.79171611227796*^9, 3.791717229688242*^9, 3.791717685096101*^9, 3.7917205508208923`*^9, 3.791878745627742*^9},ExpressionUUID->"8ccd858e-19ca-4220-ad9d-\ 3016e838b0ed"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v24", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Ooi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077136244844*^9, 3.790077137890565*^9}, { 3.791717605923284*^9, 3.7917176062333193`*^9}},ExpressionUUID->"b49038bc-a29b-407c-aca0-\ 21015e1a07a5"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.790077138435829*^9, 3.791640451210804*^9, 3.791640809289893*^9, 3.791640868105237*^9, 3.7917161123778267`*^9, 3.7917172297717*^9, 3.791717685161541*^9, 3.7917205508901367`*^9, 3.791878745719617*^9},ExpressionUUID->"6b829e08-c5f0-40f5-8c22-\ 24523c0528fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v31", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Yyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.7900771446111403`*^9, 3.7900771456581373`*^9}, { 3.7917176086622334`*^9, 3.791717608946609*^9}},ExpressionUUID->"8a88890a-2335-4933-9542-\ 17d502f4c139"], Cell[BoxData[ RowBox[{"-", "m"}]], "Output", CellChangeTimes->{3.790077146017116*^9, 3.7916404513391237`*^9, 3.791640809355071*^9, 3.791640868189382*^9, 3.791716112476735*^9, 3.791717229857045*^9, 3.791717685228483*^9, 3.791720550953915*^9, 3.791878745802932*^9},ExpressionUUID->"5f654f81-7d39-443b-b557-\ 67f66321ae87"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v32", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Yoi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077153794066*^9, 3.790077154505508*^9}, { 3.7917176108544273`*^9, 3.791717611171331*^9}},ExpressionUUID->"05a4e3e5-eea6-49a9-ab6c-\ 36b0b30d6989"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7900771548863373`*^9, 3.791640451409685*^9, 3.791640809422987*^9, 3.791640868258922*^9, 3.791716112561215*^9, 3.7917172299560547`*^9, 3.791717685296369*^9, 3.791720551023691*^9, 3.791878745886464*^9},ExpressionUUID->"f9e5457c-a8db-4080-a337-\ b55cf989a4cc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v33", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Oyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.79007716203314*^9, 3.790077163056686*^9}, { 3.7917176130383368`*^9, 3.791717613383759*^9}},ExpressionUUID->"98ca5494-926d-4834-a3f0-\ 3ab353e57125"], Cell[BoxData[ RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}]], "Output", CellChangeTimes->{3.790077163441186*^9, 3.791640451476808*^9, 3.7916408094894857`*^9, 3.7916408683261557`*^9, 3.791716112659535*^9, 3.79171723005546*^9, 3.791717685361343*^9, 3.791720551091276*^9, 3.791878745969125*^9},ExpressionUUID->"aa0e9833-784e-438a-93b5-\ 71f1704c512f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v34", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Ooi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077169674244*^9, 3.79007717163974*^9}, { 3.791717615922513*^9, 3.791717616268552*^9}},ExpressionUUID->"cd0dbb67-93bc-4090-acd9-\ 7b126e607e0c"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.790077172029015*^9, 3.7916404515431147`*^9, 3.791640809556024*^9, 3.7916408684074*^9, 3.7917161127422047`*^9, 3.7917172301531982`*^9, 3.791717685430032*^9, 3.791720551154159*^9, 3.791878746051643*^9},ExpressionUUID->"d761ca4c-76bd-48f7-9080-\ 94e77bc1f7ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v41", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "Yyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.79007717752217*^9, 3.79007717856528*^9}, { 3.79171761819843*^9, 3.7917176191455193`*^9}},ExpressionUUID->"fd6b6664-5c84-41c1-92b9-\ f7f971cb9b34"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.790077178998699*^9, 3.791640451609407*^9, 3.79164080962286*^9, 3.7916408684766397`*^9, 3.7917161128274918`*^9, 3.7917172302412167`*^9, 3.791717685496108*^9, 3.791720551220498*^9, 3.791878746156856*^9},ExpressionUUID->"04167530-2115-467a-a5a6-\ 515d6abe763d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v42", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "Yoi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077186014186*^9, 3.790077187001774*^9}, { 3.7917176235915937`*^9, 3.791717623822703*^9}},ExpressionUUID->"9e5202d9-110a-4d7d-8cc6-\ ebd493f1bc0c"], Cell[BoxData[ RowBox[{"-", "m"}]], "Output", CellChangeTimes->{3.7900771875921087`*^9, 3.791640451726528*^9, 3.7916408096918297`*^9, 3.791640868556223*^9, 3.791716112909808*^9, 3.791717230323798*^9, 3.7917176855624447`*^9, 3.791720551287279*^9, 3.791878746243648*^9},ExpressionUUID->"e0c7b04c-5486-45c6-b15b-\ faacbf13cec2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v43", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "4", "]"}], "]"}], ",", " ", "Oyi"}], "]"}]}]], "Input", CellChangeTimes->{{3.790077195952798*^9, 3.790077201488838*^9}, { 3.791717625403586*^9, 3.791717625763753*^9}},ExpressionUUID->"3e74f48a-d457-434d-88b9-\ ae9886f7ca0e"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.790077201857914*^9, 3.7916404518428173`*^9, 3.7916408097558928`*^9, 3.7916408686039886`*^9, 3.7917161130377207`*^9, 3.7917172303932343`*^9, 3.79171768564684*^9, 3.791720551354632*^9, 3.7918787463283052`*^9},ExpressionUUID->"164a00f2-c40d-44bd-9946-\ 7f54e386056e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v44", "=", RowBox[{"D", "[", RowBox[{ RowBox[{"V", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "Ooi"}], "]"}]}]], "Input", CellChangeTimes->{{3.7900772086030293`*^9, 3.790077209200965*^9}, { 3.791717627671547*^9, 3.791717627950696*^9}},ExpressionUUID->"de6622f1-f9bc-4cdc-9e6c-\ 2a1ec1171617"], Cell[BoxData[ RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}]], "Output", CellChangeTimes->{3.79007720957454*^9, 3.791640451960669*^9, 3.791640809823696*^9, 3.791640868675063*^9, 3.7917161131271467`*^9, 3.791717230453244*^9, 3.791717685711986*^9, 3.791720551420982*^9, 3.791878746419641*^9},ExpressionUUID->"7689d3cf-f58e-4f38-8bb9-\ fc25001672d0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"insandouts", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v11", ",", "v12", ",", "v13", ",", "v14"}], "}"}], ",", RowBox[{"{", RowBox[{"v21", ",", "v22", ",", "v23", ",", "v24"}], "}"}], ",", RowBox[{"{", RowBox[{"v31", ",", "v32", ",", "v33", ",", "v34"}], "}"}], ",", RowBox[{"{", RowBox[{"v41", ",", "v42", ",", "v43", ",", "v44"}], "}"}]}], "}"}]}]], "Input",ExpressionUUID->"c8db5def-cfe2-46b9-911a-c8416be4952b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "m"}], ",", "0", ",", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "m"}], ",", "0", ",", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.791717230559031*^9, 3.791717685779896*^9, 3.79172055153765*^9, 3.791878746501707*^9},ExpressionUUID->"8b6d1cf4-70c5-46c8-bba6-\ 49f579d7ecda"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Yyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Yoi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Oyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "Ooi"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Yyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Yoi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Oyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "Ooi"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Yyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Yoi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Oyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "Ooi"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "Yyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "Yoi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "Oyi"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"[", "4", "]"}], "]"}], ",", "Ooi"}], "]"}]}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.791717632059112*^9, 3.79171765838905*^9}},ExpressionUUID->"dbfb97a2-f6e0-4d24-93ce-\ 0c18655be37d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Yyu"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Yyu"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Yyu"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Yyu"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "You"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "You"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "You"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "You"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Oyu"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Oyu"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Oyu"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", "Oyu"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "Oou"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "Oou"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "Oou"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", "Oou"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7917161132265377`*^9, 3.791717230641563*^9, 3.791717685844924*^9, 3.79172055160445*^9, 3.79187874658648*^9},ExpressionUUID->"75d7a95a-ce7e-4507-9a4f-e09e2f697aa4"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "evaluate", " ", "at", " ", "the", " ", "disease", " ", "free", " ", "equilibrium"}], "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.791715817122555*^9, 3.791715824213469*^9}, { 3.791716121976037*^9, 3.791716124160976*^9}, {3.791718252862344*^9, 3.791718255368741*^9}},ExpressionUUID->"5303ba5a-5a3f-427d-865a-\ aa506510f072"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", " ", "=", " ", RowBox[{"Yyu", "+", "You", "+", "Oyu", "+", "Oou"}]}]], "Input", CellChangeTimes->{{3.791718256644987*^9, 3.791718272905723*^9}},ExpressionUUID->"77ac42b3-2219-4e3e-b43f-\ 722deb8090cb"], Cell[BoxData[ RowBox[{"Oou", "+", "Oyu", "+", "You", "+", "Yyu"}]], "Output", CellChangeTimes->{3.7917182742111273`*^9, 3.7917205517155943`*^9, 3.79187874669843*^9},ExpressionUUID->"2bf0e084-74ec-4e61-b4a6-06d202117992"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dYyu", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "*", "Yyu"}], "+", RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], "*", "You"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{"n", "/", "k"}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}], "+", "m"}], ")"}], "*", "Yyu"}]}]}]], "Input",ExpressionUUID->"da4ad55d-1ba3-4014-aa5e-\ 88b30d0798e1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"m", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}]}], " ", "Yyu"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", "You"}], "+", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", "Yyu"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"Oou", "+", "Oyu", "+", "You", "+", "Yyu"}], "k"]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.714737621768161*^9, 3.714737731780509*^9, 3.715335961405788*^9, 3.7153376270787354`*^9, 3.7153379397031918`*^9, 3.715338005661655*^9, 3.715339115003685*^9, 3.715344829945071*^9, {3.715407677603359*^9, 3.715407701022003*^9}, 3.71541841020996*^9, 3.715418572656982*^9, { 3.715421854875795*^9, 3.7154218610792227`*^9}, 3.715929228717349*^9, 3.715929272142784*^9, 3.718720273303691*^9, 3.721554783240345*^9, 3.721635579775475*^9, 3.7217182835875998`*^9, 3.721718589556604*^9, 3.722172704811934*^9, 3.7221727391525707`*^9, 3.722173193017542*^9, 3.7402270937585373`*^9, 3.7402271638898153`*^9, 3.740285844423098*^9, 3.740288395301413*^9, 3.740293352476104*^9, 3.7402937490743647`*^9, 3.740294362706665*^9, 3.7402944179375134`*^9, 3.7403164719969797`*^9, { 3.7403870605155354`*^9, 3.740387088724882*^9}, 3.740740431250836*^9, 3.74074264224547*^9, {3.7407436094353027`*^9, 3.740743615543022*^9}, 3.740911648458008*^9, 3.791717686329912*^9, 3.791718276387331*^9, 3.791720551804378*^9, 3.791878746771412*^9},ExpressionUUID->"1bfc5bcc-44da-4311-9ad0-\ bd91de7294ce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dYou", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "*", "Oyu"}], "+", RowBox[{"r", "*", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], "*", "Oou"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{"n", "/", "k"}], ")"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}], ")"}], "+", "m"}], ")"}], "*", "You"}]}]}]], "Input", CellChangeTimes->{{3.71541839973518*^9, 3.715418400397891*^9}},ExpressionUUID->"ff3c7072-0965-4c7b-8040-\ 57732fc2430a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"m", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}]}], " ", "You"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Oou", " ", "r", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}], "+", RowBox[{"Oyu", " ", "r", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"Oou", "+", "Oyu", "+", "You", "+", "Yyu"}], "k"]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.714737638511327*^9, 3.714737733194743*^9, 3.715335963135198*^9, 3.7153376282436132`*^9, 3.715338015349228*^9, 3.7153391177935658`*^9, 3.7153448315931873`*^9, {3.715407678179147*^9, 3.715407702653257*^9}, 3.7154184128721743`*^9, 3.715418575496851*^9, {3.715421858338979*^9, 3.715421862300193*^9}, 3.7159292295285597`*^9, 3.715929273735025*^9, 3.718624607765881*^9, 3.718720274009379*^9, 3.721555325190342*^9, 3.721635581594084*^9, 3.721718284711186*^9, 3.721718592498283*^9, 3.722172704982209*^9, 3.722172740672481*^9, 3.7221731945420523`*^9, 3.740227095331015*^9, 3.740227165496107*^9, 3.740285846243326*^9, 3.740288397498397*^9, 3.740293353901197*^9, 3.7402937506486797`*^9, 3.740294364712385*^9, 3.740294419590714*^9, 3.7403164727185793`*^9, { 3.74038706056603*^9, 3.740387089316619*^9}, 3.7407404312847767`*^9, 3.7407426432933617`*^9, {3.740743610018602*^9, 3.740743616328684*^9}, 3.74091164852594*^9, 3.791717686446226*^9, 3.791718279538601*^9, 3.791720551887744*^9, 3.791878746861986*^9},ExpressionUUID->"f23c1776-74fa-4b3b-b4ff-\ b415877cc060"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dOyu", "=", RowBox[{ RowBox[{"m", "*", "Yyu"}], "-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], ")"}], "*", "Oyu"}], ")"}]}]}]], "Input",ExpressionUUID->"0f0b656d-1916-45de-81db-\ cc9d2fe2cd54"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "Oyu", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{"m", " ", "Yyu"}]}]], "Output", CellChangeTimes->{ 3.714737646603683*^9, 3.7147377344010468`*^9, 3.7153359645422564`*^9, 3.715337629987183*^9, 3.715338019659773*^9, 3.715339119307616*^9, 3.7153448333369703`*^9, {3.715407678698579*^9, 3.715407704052459*^9}, 3.715418414539873*^9, 3.7154185766777153`*^9, 3.71542186321867*^9, 3.715929230222731*^9, 3.715929275552389*^9, 3.718624609041458*^9, 3.718720274662127*^9, 3.721555326556329*^9, 3.721635583211845*^9, 3.721718285796385*^9, 3.721718594330785*^9, 3.722172705914132*^9, 3.722172742536668*^9, 3.722173196057675*^9, 3.740227097302473*^9, 3.74022716739919*^9, 3.740285848582383*^9, 3.740288399948807*^9, 3.740293355419673*^9, 3.740293752066471*^9, 3.7402943665165253`*^9, 3.7402944212603073`*^9, 3.7403164732173*^9, {3.7403870606164217`*^9, 3.7403870897545757`*^9}, 3.740740431344158*^9, 3.740742644043644*^9, { 3.7407436105773983`*^9, 3.740743617084693*^9}, 3.740911648576807*^9, 3.7917176865419703`*^9, 3.791718280847864*^9, 3.7917205519712057`*^9, 3.791878746952734*^9},ExpressionUUID->"a062fcd3-f899-48b6-b20b-\ 02a03bf030e9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dOou", "=", " ", RowBox[{ RowBox[{"m", "*", "You"}], "-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], ")"}], "*", "Oou"}], ")"}]}]}]], "Input",ExpressionUUID->"8a1c970d-b130-4d92-b781-\ c03640da6e67"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "Oou", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{"m", " ", "You"}]}]], "Output", CellChangeTimes->{ 3.714737656196015*^9, 3.71473773570333*^9, 3.715335965634894*^9, 3.715337630968212*^9, 3.715338023565278*^9, 3.715339120507124*^9, 3.7153448349317408`*^9, {3.715407679250164*^9, 3.715407705108179*^9}, 3.715418416092865*^9, 3.7154185774626904`*^9, 3.7154218640046587`*^9, 3.715929230919087*^9, 3.715929276737611*^9, 3.7186246101415863`*^9, 3.718720275410203*^9, 3.721555327987278*^9, 3.721635585475412*^9, 3.7217182868028603`*^9, 3.721718595707762*^9, 3.7221727071753187`*^9, 3.7221727443528833`*^9, 3.722173197907333*^9, 3.740227098789542*^9, 3.7402271693213577`*^9, 3.7402858501882772`*^9, 3.7402884014069433`*^9, 3.740293357258109*^9, 3.7402937536219063`*^9, 3.7402943680736523`*^9, 3.740294422649983*^9, 3.7403164737272167`*^9, {3.740387060681872*^9, 3.7403870902438707`*^9}, 3.740740431418912*^9, 3.740742644830874*^9, 3.74074361779314*^9, 3.7409116486429987`*^9, 3.7917176866466827`*^9, 3.791718281974182*^9, 3.7917205520545588`*^9, 3.791878747044245*^9},ExpressionUUID->"89642011-b580-483d-bb58-\ 870ae3465d98"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Sol", " ", "=", " ", RowBox[{"FullSimplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"dYyu", "\[Equal]", "0"}], "&&", RowBox[{"dYou", "\[Equal]", "0"}], "&&", RowBox[{"dOyu", "\[Equal]", "0"}], "&&", RowBox[{"dOou", " ", "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Yyu", ",", "You", ",", " ", "Oyu", ",", "Oou"}], "}"}]}], "]"}], "]"}]}]], "Input",ExpressionUUID->"54d57840-bce8-400a-b879-\ 11030115995b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Yyu", "\[Rule]", "0"}], ",", RowBox[{"You", "\[Rule]", "0"}], ",", RowBox[{"Oyu", "\[Rule]", "0"}], ",", RowBox[{"Oou", "\[Rule]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Yyu", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{"You", "\[Rule]", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}]}], ",", RowBox[{"Oyu", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{"Oou", "\[Rule]", FractionBox[ RowBox[{"k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.791717686761703*^9, 3.791718061963381*^9, 3.7917182838362226`*^9, 3.791720552753714*^9, 3.79187874789109*^9},ExpressionUUID->"44a691cf-a8cf-44f4-a870-007d94a4c8b5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Set", " ", "@@@", " ", RowBox[{"Sol", "[", RowBox[{"[", "2", "]"}], "]"}]}]], "Input",ExpressionUUID->"e6fd8a65-86ae-\ 4106-9289-5e681a35cfc1"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]], ",", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", FractionBox[ RowBox[{"d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]], ",", FractionBox[ RowBox[{"k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}]]}], "}"}]], "Output", CellChangeTimes->{3.7917182919394073`*^9, 3.7917205532909937`*^9, 3.791878747996871*^9},ExpressionUUID->"2c988a7a-5882-4724-b05c-\ bfaf6c67c0a9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["f"], "Input", CellChangeTimes->{{3.7899838168751698`*^9, 3.789983866329401*^9}, { 3.789984479856085*^9, 3.789984536336978*^9}, {3.7899851586886187`*^9, 3.789985158959137*^9}, 3.791713677030292*^9, 3.791716106877433*^9},ExpressionUUID->"2e764bc9-43ca-46ad-8f01-\ bd88f8b08299"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.789999375215019*^9, 3.790000101730011*^9, 3.791640810257551*^9, 3.7916408687258453`*^9, 3.791713677895158*^9, 3.791716067636838*^9, 3.791716114564035*^9, 3.791717231062459*^9, 3.791717686929514*^9, 3.791718309597793*^9, 3.791720553371459*^9, 3.791878748086605*^9},ExpressionUUID->"0ce2cb20-881a-43b4-9495-\ b5075214b36d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["insandouts"], "Input", CellChangeTimes->{{3.791640413566428*^9, 3.791640424249156*^9}, { 3.791640475727416*^9, 3.791640489262855*^9}, {3.791640600807349*^9, 3.791640797955965*^9}, 3.791713663596623*^9, 3.791717099998341*^9, { 3.791717144631484*^9, 3.791717150727069*^9}, {3.791717216870112*^9, 3.791717217206465*^9}},ExpressionUUID->"ebfb4129-037c-42a1-af71-\ ab12d2936b6e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "m"}], ",", "0", ",", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "m"}], ",", "0", ",", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.791640425253838*^9, 3.791640458211544*^9, 3.791640489973823*^9, { 3.7916406144831457`*^9, 3.791640744327168*^9}, {3.7916407799272957`*^9, 3.791640810942008*^9}, 3.791640868857091*^9, 3.791713673293088*^9, 3.791716073175722*^9, 3.791716114680409*^9, 3.791717231146184*^9, 3.791717687211898*^9, 3.791718313613865*^9, 3.791720553470943*^9, 3.791878748178608*^9},ExpressionUUID->"90ec661b-9ff2-49b6-8e4d-\ bd905c067fb9"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "create", " ", "the", " ", "next", " ", "generation", " ", "matrix"}], "*)"}]], "Input", CellChangeTimes->{{3.791718767354254*^9, 3.791718776822268*^9}},ExpressionUUID->"bd959d1e-5c09-41ca-bf1b-\ bf33c0ab9f44"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"output", "=", RowBox[{"f", ".", RowBox[{"Inverse", "[", "insandouts", "]"}]}]}]], "Input", CellChangeTimes->{{3.7917041056403427`*^9, 3.791704173285266*^9}, 3.791704539342757*^9, {3.7917161356432447`*^9, 3.79171614541129*^9}},ExpressionUUID->"1a237724-8cfe-4d69-b2c2-\ dc63fd8e5ce5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"c", " ", "m"}], "+", RowBox[{"d", " ", "m"}], "+", SuperscriptBox["m", "2"], "+", RowBox[{"m", " ", "v"}], "-", RowBox[{"d", " ", "m", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"c", " ", "m"}], "+", RowBox[{"d", " ", "m"}], "+", SuperscriptBox["m", "2"], "+", RowBox[{"m", " ", "v"}], "-", RowBox[{"d", " ", "m", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}], ",", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"c", " ", "m"}], "+", RowBox[{"d", " ", "m"}], "+", SuperscriptBox["m", "2"], "+", RowBox[{"m", " ", "v"}], "-", RowBox[{"d", " ", "m", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "d", " ", "k", " ", "m", " ", RowBox[{"(", RowBox[{"1", "-", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"c", " ", "m"}], "+", RowBox[{"d", " ", "m"}], "+", SuperscriptBox["m", "2"], "+", RowBox[{"m", " ", "v"}], "-", RowBox[{"d", " ", "m", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "3"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "-", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "B", " ", "k", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "-", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "v", "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.791716146180785*^9, 3.7917172312393017`*^9, 3.791717687285087*^9, 3.791718315842698*^9, 3.7917205535811663`*^9, 3.791878748287491*^9},ExpressionUUID->"d2f304f6-0668-4c2d-b0d8-\ cf0ff454547a"] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "the", " ", "dominant", " ", "eigenvalue", " ", "is", " ", "the", " ", "equivalent", " ", "of", " ", "R0"}], "*)"}]], "Input", CellChangeTimes->{{3.7917187846945257`*^9, 3.7917188057513742`*^9}, { 3.7917189043588753`*^9, 3.791718905579088*^9}},ExpressionUUID->"0c04fb8c-eaeb-4b65-b8d8-\ 6304a7918825"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Eigenvalues", "[", "output", "]"}], "]"}]], "Input", CellChangeTimes->{{3.791718324024211*^9, 3.791718331400178*^9}, { 3.791718948620488*^9, 3.791718965060932*^9}},ExpressionUUID->"10a20cdf-6c2d-4da1-a508-\ b148a99aa6bd"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.7917183600869417`*^9, {3.791718952238028*^9, 3.791718969007257*^9}, 3.791720557958941*^9, 3.791878752632938*^9},ExpressionUUID->"17387f33-aeb8-4d3c-a5a6-\ 2746c18e86dc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R0", "=", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.791879829627638*^9, 3.791879840562216*^9}},ExpressionUUID->"7dbbad6b-28a5-424c-91c5-\ 279bd6535409"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]], "Output",\ CellChangeTimes->{ 3.791879841318284*^9},ExpressionUUID->"d5eb978e-0652-405b-9142-\ 2ff1b9485935"] }, Open ]], Cell[BoxData[ RowBox[{"(*", "R0", "*)"}]], "Input",ExpressionUUID->"32884bc6-4a62-493f-9267-52f9bd9d7620"], Cell[BoxData[ RowBox[{"ClearAll", "[", RowBox[{ "A", ",", "M", ",", "B", ",", "x", ",", "y", ",", "d", ",", "r", ",", "m", ",", "k"}], "]"}]], "Input",ExpressionUUID->"5b580f68-9295-4b1d-bcd3-\ 926c9a2bdb3c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dr0x", " ", "=", " ", RowBox[{"D", "[", RowBox[{"R0", ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.7918799281955748`*^9, 3.791879950266715*^9}},ExpressionUUID->"d3eb8402-2ddc-4164-997d-\ 639b49c1714b"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r"}], "+", RowBox[{"d", " ", "r", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "m"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "3"]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.7918799524431057`*^9},ExpressionUUID->"79014f02-49cc-4dad-ad1d-\ f56c2c3d348d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"y", " ", "=", " ", "0"}], ";", " ", RowBox[{"x", "=", "0"}], ";", " ", RowBox[{"A", "=", " ", "0"}], ";", " ", RowBox[{"M", " ", "=", "0"}]}]], "Input", CellChangeTimes->{{3.791879959185714*^9, 3.791879977941187*^9}},ExpressionUUID->"e79a6fe5-8a92-4bee-a3b8-\ 5125bb05d424"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7918799783618927`*^9},ExpressionUUID->"e3aa73f3-1aec-4120-a153-\ 3534563bf809"] }, Open ]], Cell[BoxData[ RowBox[{"(*", "DR0X", "*)"}]], "Input", CellChangeTimes->{{3.791880068447356*^9, 3.791880070883161*^9}},ExpressionUUID->"a2860b28-99f2-47e9-9f90-\ 60ce56a66223"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", "Dr0x", "]"}]], "Input", CellChangeTimes->{{3.791879984100189*^9, 3.7918799904984713`*^9}},ExpressionUUID->"c5a8e232-5661-43ec-9fdb-\ 680425b4c054"], Cell[BoxData[ FractionBox[ RowBox[{"B", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", "m"}], ")"}], " ", "r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v"}], ")"}]}]]], "Output", CellChangeTimes->{ 3.791879991938652*^9},ExpressionUUID->"f8882f66-83fd-48cc-a17d-\ 233a9e1110b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"Reduce", "[", RowBox[{ RowBox[{"Dr0x", " ", ">", "0"}], " ", "&&", RowBox[{"B", ">", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", " ", RowBox[{"m", " ", ">", "0"}], "&&", RowBox[{"v", ">", "0"}], "&&", RowBox[{"c", ">", "0"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.791880086381242*^9, 3.791880106029354*^9}},ExpressionUUID->"e0e45655-4703-40c1-831b-\ 5104585d28d9"], Cell[BoxData[ RowBox[{ RowBox[{"m", ">", "0"}], "&&", RowBox[{"d", ">", "m"}], "&&", RowBox[{"v", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"c", ">", "0"}], "&&", RowBox[{"B", ">", "0"}]}]], "Output", CellChangeTimes->{ 3.791880019013381*^9, {3.791880086819888*^9, 3.791880107460906*^9}},ExpressionUUID->"9cb9c8e9-1afe-4d83-95a1-\ b75cf7533939"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", "Dr0y", "*)"}]], "Input", CellChangeTimes->{{3.791880148863131*^9, 3.791880153249078*^9}},ExpressionUUID->"c3a2db8e-9977-4c8e-ac61-\ 150dafb71a2a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"y", ",", "A", ",", "M", ",", "x"}], "]"}], ";", RowBox[{"Dr0y", " ", "=", " ", RowBox[{"D", "[", RowBox[{"R0", ",", "y"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.791880171701483*^9, 3.791880172014598*^9}},ExpressionUUID->"a1970eef-f99b-4643-819e-\ 4695489f355a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["d", "2"], " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "B", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "3"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"B", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "A"}], ")"}], " ", "m"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "c"}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "d"}], "+", RowBox[{"2", " ", "A", " ", "m"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", "v"}]}], ")"}], " ", "y"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "A"}], ")"}], " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.791880155358449*^9, 3.791880172294566*^9}},ExpressionUUID->"ae9cfaa0-7916-4e06-ab48-\ 4415d2f92bb1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"y", " ", "=", " ", "0"}], ";", RowBox[{"x", "=", "0"}], ";", RowBox[{"A", "=", "0"}], ";", RowBox[{"M", "=", "0"}], ";", RowBox[{"FullSimplify", "[", "Dr0y", "]"}]}]], "Input", CellChangeTimes->{{3.791880165941535*^9, 3.7918801665246058`*^9}},ExpressionUUID->"b744dd8f-c6cd-4b2c-9a3e-\ 8e33a653d12e"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"B", " ", "d", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "2"], " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}]}], "-", RowBox[{"2", " ", "d", " ", "m", " ", "r"}], "+", RowBox[{"d", " ", "v", " ", RowBox[{"(", RowBox[{"r", "+", "v"}], ")"}]}], "-", RowBox[{"m", " ", RowBox[{"(", RowBox[{"m", "+", "v"}], ")"}], " ", RowBox[{"(", RowBox[{"r", "+", "v"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "m"}], "+", "r", "+", "v"}], ")"}]}], "+", RowBox[{"c", " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", "r", "+", RowBox[{"2", " ", "v"}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"d", "+", "m"}], ")"}], " ", "r", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", "d", "+", "v"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], ")"}]}]], "Output",\ CellChangeTimes->{ 3.7918801761811113`*^9},ExpressionUUID->"2acd66c7-210b-40fa-a1ba-\ 3c2638aaa8b4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"Dr0y", " ", ">", "0"}], " ", "&&", RowBox[{"B", ">", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", " ", RowBox[{"m", " ", ">", "0"}], "&&", RowBox[{"v", ">", "0"}], "&&", RowBox[{"c", ">", "0"}]}], ",", "d"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7918801860869904`*^9, 3.791880186655099*^9}},ExpressionUUID->"a5e6559b-ce33-4e73-b9ec-\ 7492f10fcad1"], Cell[BoxData[ RowBox[{ RowBox[{"v", ">", "0"}], "&&", RowBox[{"c", ">", "0"}], "&&", RowBox[{"m", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"B", ">", "0"}], "&&", RowBox[{"d", ">", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "c"}], "-", "v", "+", FractionBox[ RowBox[{"2", " ", "m", " ", RowBox[{"(", RowBox[{"c", "+", "r", "+", "v"}], ")"}]}], RowBox[{"c", "+", RowBox[{"2", " ", "m"}], "+", "r", "+", "v"}]], "+", SqrtBox[ RowBox[{ SuperscriptBox["c", "2"], "+", RowBox[{"2", " ", "c", " ", "v"}], "+", SuperscriptBox["v", "2"], "+", FractionBox[ RowBox[{"8", " ", SuperscriptBox["m", "2"], " ", RowBox[{"(", RowBox[{"c", "+", "r", "+", "v"}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "m", "+", "r", "+", "v"}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"c", "+", RowBox[{"2", " ", "m"}], "+", "r", "+", "v"}], ")"}], "2"]]}]]}], ")"}]}]}]}]], "Output", CellChangeTimes->{ 3.79188019664649*^9},ExpressionUUID->"80f6c8cd-91d5-4a9e-8120-a2b2024fba40"] }, Open ]], Cell[BoxData[ RowBox[{"(*", "Dr0y", "*)"}]], "Input", CellChangeTimes->{{3.791880565824237*^9, 3.791880568920168*^9}},ExpressionUUID->"26be0669-a745-4ee6-873c-\ f026b83b1135"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"y", ",", "A", ",", "M", ",", "x"}], "]"}], ";", RowBox[{"Dr0A", " ", "=", " ", RowBox[{"D", "[", RowBox[{"R0", ",", "A"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.791880558931038*^9, 3.791880559334784*^9}},ExpressionUUID->"2b3327cc-111c-412e-bb5c-\ 4eb9cf7529b1"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"c", "+", RowBox[{"2", " ", "d"}], "+", RowBox[{"2", " ", "m"}], "+", "v"}], ")"}], " ", "y"}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["y", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", " ", RowBox[{"(", RowBox[{"1", "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "M"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "m"}], " ", "r", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "x"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{"m", "-", RowBox[{"r", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}], "+", RowBox[{ SuperscriptBox["d", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["y", "2"]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "m", "+", "v", "-", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"d", "+", "m", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v", "+", RowBox[{"d", " ", "y"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"m", "-", RowBox[{"m", " ", "x"}], "+", RowBox[{"d", " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "y"}], ")"}]}]}], ")"}], "2"]}], ")"}]}]], "Output",\ CellChangeTimes->{ 3.791880560565976*^9},ExpressionUUID->"44a225ac-f5d3-4814-b885-\ 55d8c43c6ca6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"y", " ", "=", " ", "0"}], ";", RowBox[{"x", "=", "0"}], ";", RowBox[{"A", "=", "0"}], ";", RowBox[{"M", "=", "0"}], ";", RowBox[{"FullSimplify", "[", "Dr0A", "]"}]}]], "Input", CellChangeTimes->{{3.791880612528302*^9, 3.79188061270574*^9}},ExpressionUUID->"abc47842-b820-4d80-9689-\ 27febed12f6b"], Cell[BoxData[ FractionBox[ RowBox[{"B", " ", "k", " ", RowBox[{"(", RowBox[{"d", "-", "m"}], ")"}], " ", RowBox[{"(", RowBox[{"d", "-", "r"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", "m"}], ")"}], " ", "r", " ", RowBox[{"(", RowBox[{"c", "+", "d", "+", "v"}], ")"}]}]]], "Output", CellChangeTimes->{ 3.791880612991776*^9},ExpressionUUID->"8a2f81c5-652c-42cb-9d13-\ 0a2557ea2023"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Reduce", "[", RowBox[{ RowBox[{ RowBox[{"Dr0A", " ", ">", "0"}], " ", "&&", RowBox[{"B", ">", "0"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"r", ">", "0"}], "&&", " ", RowBox[{"m", " ", ">", "0"}], "&&", RowBox[{"v", ">", "0"}], "&&", RowBox[{"c", ">", "0"}], "&&", RowBox[{"r", ">", "d"}]}], ",", "r"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7918806235080347`*^9, 3.791880623686349*^9}},ExpressionUUID->"a284604e-867b-404b-a19d-\ 9cec9a0c6e37"], Cell[BoxData[ RowBox[{ RowBox[{"0", "<", "d", "<", "m"}], "&&", RowBox[{"v", ">", "0"}], "&&", RowBox[{"k", ">", "0"}], "&&", RowBox[{"c", ">", "0"}], "&&", RowBox[{"B", ">", "0"}], "&&", RowBox[{"r", ">", "d"}]}]], "Output", CellChangeTimes->{ 3.791880623977085*^9},ExpressionUUID->"6f804a96-5608-447b-a70f-\ 1d0b2b9b10a7"] }, Open ]] }, WindowSize->{673, 751}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 467, 11, 52, "Input",ExpressionUUID->"ac323d39-1b86-4cd3-907f-45080fac840c"], Cell[1028, 33, 359, 9, 30, "Input",ExpressionUUID->"8f03dc70-4894-4bd9-b029-4824cb00b45a"], Cell[1390, 44, 364, 8, 52, "Input",ExpressionUUID->"9c71fd5a-fc3c-43a7-a8c4-5ddda1af1131"], Cell[1757, 54, 308, 7, 30, "Input",ExpressionUUID->"464417b0-208f-464c-a649-45fbd1f57853"], Cell[2068, 63, 131, 1, 30, "Input",ExpressionUUID->"c77644f9-70c5-466d-80e4-266dbf3be07e"], Cell[CellGroupData[{ Cell[2224, 68, 190, 4, 30, "Input",ExpressionUUID->"aa36b723-a909-4b3d-b5c8-44a46cf74f49"], Cell[2417, 74, 1110, 17, 34, "Output",ExpressionUUID->"02724445-c8cd-4270-91f9-ea0da6605eea"] }, Open ]], Cell[CellGroupData[{ Cell[3564, 96, 706, 24, 30, "Input",ExpressionUUID->"e361c1c1-d1eb-4779-b409-fada14bda414"], Cell[4273, 122, 1662, 38, 50, "Output",ExpressionUUID->"a254afab-67c0-408b-bb51-2024efd0cf14"] }, Open ]], Cell[CellGroupData[{ Cell[5972, 165, 779, 26, 30, "Input",ExpressionUUID->"bdad246e-b0a9-4d2d-8052-e785dfa0c1ec"], Cell[6754, 193, 1658, 38, 50, "Output",ExpressionUUID->"aec0e5da-b2c9-41f5-af4c-f69e91f053f3"] }, Open ]], Cell[CellGroupData[{ Cell[8449, 236, 324, 11, 30, "Input",ExpressionUUID->"94366ee4-aaaf-4231-9ee8-bda367124008"], Cell[8776, 249, 1188, 22, 34, "Output",ExpressionUUID->"2d9d40a4-2cf1-4985-a37b-0b9bb114bf8e"] }, Open ]], Cell[CellGroupData[{ Cell[10001, 276, 329, 11, 30, "Input",ExpressionUUID->"8f560c70-8286-4c80-91ae-1a4698b6ca90"], Cell[10333, 289, 1178, 22, 34, "Output",ExpressionUUID->"2727c674-2390-41a7-bf44-a46b0a682547"] }, Open ]], Cell[CellGroupData[{ Cell[11548, 316, 539, 14, 52, "Input",ExpressionUUID->"2d34740c-45a7-4c80-a91d-adc1caf6e957"], Cell[12090, 332, 7490, 206, 221, "Output",ExpressionUUID->"0fba00cc-356c-4f8b-95ca-6d725bc28eee"] }, Open ]], Cell[CellGroupData[{ Cell[19617, 543, 243, 6, 30, "Input",ExpressionUUID->"c35eea66-e185-4a6d-a59b-0f6fe0e77e3e"], Cell[19863, 551, 6425, 189, 204, "Output",ExpressionUUID->"c44404f9-33c6-4034-b68e-f22c12f4ee5c"] }, Open ]], Cell[CellGroupData[{ Cell[26325, 745, 206, 4, 30, "Input",ExpressionUUID->"44886993-5df3-4007-bc26-2aa59e2fdc31"], Cell[26534, 751, 6094, 184, 200, "Output",ExpressionUUID->"378370e9-8355-4e24-b9ca-9e5edf798049"] }, Open ]], Cell[CellGroupData[{ Cell[32665, 940, 124, 1, 30, "Input",ExpressionUUID->"b479ee2f-6655-4d03-a49e-e3750d6ddd50"], Cell[32792, 943, 1830, 47, 58, "Output",ExpressionUUID->"d4f8e0ee-3b78-4d3a-ba1f-c43ce7ad0e8c"] }, Open ]], Cell[CellGroupData[{ Cell[34659, 995, 223, 6, 30, "Input",ExpressionUUID->"0c20ff64-b67c-4c12-adde-103448403a11"], Cell[34885, 1003, 1559, 37, 55, "Output",ExpressionUUID->"960113d4-bc18-4548-80e3-a35f12b1511b"] }, Open ]], Cell[CellGroupData[{ Cell[36481, 1045, 983, 31, 52, "Input",ExpressionUUID->"802a127d-a24d-4403-92e3-ab45e539993a"], Cell[37467, 1078, 569, 13, 53, "Output",ExpressionUUID->"f2ec8a86-db37-407f-bed3-667323d53591"] }, Open ]], Cell[CellGroupData[{ Cell[38073, 1096, 916, 25, 108, "Input",ExpressionUUID->"4da04db6-28ce-4980-86e3-533bf3004de6"], Cell[38992, 1123, 909, 17, 34, "Output",ExpressionUUID->"6702cf26-7992-4676-bff5-9f9f204930e3"] }, Open ]], Cell[CellGroupData[{ Cell[39938, 1145, 333, 9, 30, "Input",ExpressionUUID->"2190979d-817f-4e66-abac-9d8024a48065"], Cell[40274, 1156, 1617, 42, 59, "Output",ExpressionUUID->"9e73f741-0658-4505-a8ae-ce75905aad51"] }, Open ]], Cell[CellGroupData[{ Cell[41928, 1203, 1207, 38, 99, "Input",ExpressionUUID->"e9820aa5-8ed3-4aed-93cd-bfb1f7e6aced"], Cell[43138, 1243, 534, 13, 53, "Output",ExpressionUUID->"2e4912f6-3587-4385-8111-322833dcb351"] }, Open ]], Cell[CellGroupData[{ Cell[43709, 1261, 1033, 27, 108, "Input",ExpressionUUID->"4a212e48-5cf4-4703-b72c-fb6d79ddde06"], Cell[44745, 1290, 842, 16, 34, "Output",ExpressionUUID->"51db7ba2-bd3b-4e38-b2ab-1ba4f21feeea"] }, Open ]], Cell[45602, 1309, 1214, 38, 30, "Input",ExpressionUUID->"f71d5c7e-f006-40f6-a7fd-6539d3a881d1"], Cell[46819, 1349, 1145, 36, 30, "Input",ExpressionUUID->"fbe8f7e7-4cc6-4cf4-934e-22683b0b19d6"], Cell[47967, 1387, 1145, 36, 30, "Input",ExpressionUUID->"0236b3a3-5d07-4b95-abcf-1e75afcb1f79"], Cell[49115, 1425, 229, 5, 30, "Input",ExpressionUUID->"5096411a-85d4-48a9-a453-91b703aafdfd"], Cell[49347, 1432, 131, 1, 30, "Input",ExpressionUUID->"f9f059f0-6d4a-44a8-8c74-32a7544e8e73"], Cell[49481, 1435, 665, 18, 52, "Input",ExpressionUUID->"e014729b-9454-433b-8ab1-275ba89c43cc"], Cell[CellGroupData[{ Cell[50171, 1457, 280, 6, 30, "Input",ExpressionUUID->"91d3f90b-82ba-4742-80cf-e455b07a61ba"], Cell[50454, 1465, 705, 12, 34, "Output",ExpressionUUID->"9f71b8c6-a66d-49f0-876b-e454186717b4"] }, Open ]], Cell[CellGroupData[{ Cell[51196, 1482, 316, 9, 30, "Input",ExpressionUUID->"65791aa4-7409-4577-812d-92d76a65c11c"], Cell[51515, 1493, 302, 8, 34, "Output",ExpressionUUID->"59d580f3-751b-4e4c-bff7-ce3c3540b70d"] }, Open ]], Cell[CellGroupData[{ Cell[51854, 1506, 310, 9, 30, "Input",ExpressionUUID->"f40b7de3-2fbf-4359-8de7-2e48dce8e4d9"], Cell[52167, 1517, 304, 8, 34, "Output",ExpressionUUID->"f0c186b2-8fdd-41d8-b206-ac80c3d76998"] }, Open ]], Cell[CellGroupData[{ Cell[52508, 1530, 305, 9, 30, "Input",ExpressionUUID->"9c3781cf-8df2-42af-96ea-b1082b48654f"], Cell[52816, 1541, 307, 8, 34, "Output",ExpressionUUID->"f7728320-81cd-4934-96b6-7b9f4bb7e51c"] }, Open ]], Cell[CellGroupData[{ Cell[53160, 1554, 303, 9, 30, "Input",ExpressionUUID->"a64a3c6b-53f1-47d3-903e-21545a143bdd"], Cell[53466, 1565, 302, 8, 34, "Output",ExpressionUUID->"bac79b9d-424b-4514-85b4-267c57c58c14"] }, Open ]], Cell[CellGroupData[{ Cell[53805, 1578, 606, 16, 52, "Input",ExpressionUUID->"74f7e33b-37bd-4848-932c-1795a7dfcb6f"], Cell[54414, 1596, 1826, 44, 98, "Output",ExpressionUUID->"e3712548-64b7-4ccb-97e1-e04d6db253b1"], Cell[56243, 1642, 2500, 62, 98, "Output",ExpressionUUID->"7e59129a-667d-4dd7-a7b8-6a7ccbadd114"] }, Open ]], Cell[CellGroupData[{ Cell[58780, 1709, 1334, 41, 52, "Input",ExpressionUUID->"7c4e8f72-80a4-4e6d-8ab4-65697ec489a6"], Cell[60117, 1752, 1570, 39, 56, "Output",ExpressionUUID->"f8aef8e4-5d5e-4730-8180-b2294f3dfa6c"] }, Open ]], Cell[CellGroupData[{ Cell[61724, 1796, 190, 4, 30, "Input",ExpressionUUID->"6e4f6853-ad43-4c89-9738-1e866d2b3f01"], Cell[61917, 1802, 2198, 57, 98, "Output",ExpressionUUID->"7d6cd43b-483b-4abd-a4fd-65afd12992e4"] }, Open ]], Cell[CellGroupData[{ Cell[64152, 1864, 353, 9, 30, "Input",ExpressionUUID->"f77855bf-97f2-495d-952f-3c542a51817e"], Cell[64508, 1875, 889, 16, 34, "Output",ExpressionUUID->"65db0560-5d71-4aa3-a561-0c6e34c1391d"] }, Open ]], Cell[CellGroupData[{ Cell[65434, 1896, 189, 4, 30, "Input",ExpressionUUID->"f39b116f-6a9b-41ad-9e6b-e7ba535e9aa0"], Cell[65626, 1902, 1462, 35, 96, "Output",ExpressionUUID->"b3b29b36-7e13-490e-9501-d12ae3fcc0a9"] }, Open ]], Cell[67103, 1940, 274, 7, 30, "Input",ExpressionUUID->"bcb2f79f-9590-49eb-83ec-c89ac73886bd"], Cell[CellGroupData[{ Cell[67402, 1951, 200, 5, 30, "Input",ExpressionUUID->"f188b0c1-5663-429c-8eae-640d70bd65b8"], Cell[67605, 1958, 1702, 42, 56, "Output",ExpressionUUID->"dcdfad74-abd6-4332-8582-f1d793b64706"] }, Open ]], Cell[CellGroupData[{ Cell[69344, 2005, 214, 4, 30, "Input",ExpressionUUID->"1740d110-e10b-40f6-bea8-3e8662585d48"], Cell[69561, 2011, 1990, 56, 98, "Output",ExpressionUUID->"a7f438ca-6ef2-4321-b204-f1b2633e83b2"] }, Open ]], Cell[71566, 2070, 859, 18, 73, "Input",ExpressionUUID->"4c745603-fb05-48f9-9461-1ba1ef2f34e3"], Cell[CellGroupData[{ Cell[72450, 2092, 338, 9, 30, "Input",ExpressionUUID->"fe59ee71-848a-4a71-98c2-e9e372bcf651"], Cell[72791, 2103, 469, 10, 34, "Output",ExpressionUUID->"4f1a6871-11cf-4a12-8340-35bd09160bb7"] }, Open ]], Cell[CellGroupData[{ Cell[73297, 2118, 337, 9, 30, "Input",ExpressionUUID->"f932028b-f153-4f39-b369-8b38c43ecc4f"], Cell[73637, 2129, 320, 5, 34, "Output",ExpressionUUID->"9cd1c708-0ab5-4e61-b451-6eef716b4b8e"] }, Open ]], Cell[CellGroupData[{ Cell[73994, 2139, 338, 9, 30, "Input",ExpressionUUID->"bab5fd12-113e-4bdd-b839-6cac853c8b5d"], Cell[74335, 2150, 314, 5, 34, "Output",ExpressionUUID->"d09bbc8b-dd26-47b2-8cd8-92f8c432d8b1"] }, Open ]], Cell[CellGroupData[{ Cell[74686, 2160, 338, 9, 30, "Input",ExpressionUUID->"08a72c74-a528-4b64-ac57-29a87f9770c6"], Cell[75027, 2171, 315, 5, 34, "Output",ExpressionUUID->"1ada6ac0-ef55-4ce3-ac29-08e332bcbc8e"] }, Open ]], Cell[CellGroupData[{ Cell[75379, 2181, 336, 9, 30, "Input",ExpressionUUID->"f2912bcd-7ee2-432a-9d9c-e0a133cdde46"], Cell[75718, 2192, 322, 5, 34, "Output",ExpressionUUID->"20cad887-d0be-42aa-8a82-7befdabd2f4e"] }, Open ]], Cell[CellGroupData[{ Cell[76077, 2202, 338, 9, 30, "Input",ExpressionUUID->"2b2ba4c7-4c91-46be-a0e0-91e681b423ae"], Cell[76418, 2213, 430, 9, 34, "Output",ExpressionUUID->"f3c3e358-b1a2-46f0-bbaf-41fd0033a2db"] }, Open ]], Cell[CellGroupData[{ Cell[76885, 2227, 337, 9, 30, "Input",ExpressionUUID->"02f0abec-de4a-4d08-bbfc-b152cd799365"], Cell[77225, 2238, 317, 5, 34, "Output",ExpressionUUID->"8ccd858e-19ca-4220-ad9d-3016e838b0ed"] }, Open ]], Cell[CellGroupData[{ Cell[77579, 2248, 338, 9, 30, "Input",ExpressionUUID->"b49038bc-a29b-407c-aca0-21015e1a07a5"], Cell[77920, 2259, 314, 5, 34, "Output",ExpressionUUID->"6b829e08-c5f0-40f5-8c22-24523c0528fa"] }, Open ]], Cell[CellGroupData[{ Cell[78271, 2269, 342, 9, 30, "Input",ExpressionUUID->"8a88890a-2335-4933-9542-17d502f4c139"], Cell[78616, 2280, 331, 6, 34, "Output",ExpressionUUID->"5f654f81-7d39-443b-b557-67f66321ae87"] }, Open ]], Cell[CellGroupData[{ Cell[78984, 2291, 338, 9, 30, "Input",ExpressionUUID->"05a4e3e5-eea6-49a9-ab6c-36b0b30d6989"], Cell[79325, 2302, 316, 5, 34, "Output",ExpressionUUID->"f9e5457c-a8db-4080-a337-b55cf989a4cc"] }, Open ]], Cell[CellGroupData[{ Cell[79678, 2312, 337, 9, 30, "Input",ExpressionUUID->"98ca5494-926d-4834-a3f0-3ab353e57125"], Cell[80018, 2323, 419, 9, 34, "Output",ExpressionUUID->"aa0e9833-784e-438a-93b5-71f1704c512f"] }, Open ]], Cell[CellGroupData[{ Cell[80474, 2337, 335, 9, 30, "Input",ExpressionUUID->"cd0dbb67-93bc-4090-acd9-7b126e607e0c"], Cell[80812, 2348, 316, 5, 34, "Output",ExpressionUUID->"d761ca4c-76bd-48f7-9080-94e77bc1f7ab"] }, Open ]], Cell[CellGroupData[{ Cell[81165, 2358, 335, 9, 30, "Input",ExpressionUUID->"fd6b6664-5c84-41c1-92b9-f7f971cb9b34"], Cell[81503, 2369, 317, 5, 34, "Output",ExpressionUUID->"04167530-2115-467a-a5a6-515d6abe763d"] }, Open ]], Cell[CellGroupData[{ Cell[81857, 2379, 338, 9, 30, "Input",ExpressionUUID->"9e5202d9-110a-4d7d-8cc6-ebd493f1bc0c"], Cell[82198, 2390, 335, 6, 34, "Output",ExpressionUUID->"e0c7b04c-5486-45c6-b15b-faacbf13cec2"] }, Open ]], Cell[CellGroupData[{ Cell[82570, 2401, 341, 9, 30, "Input",ExpressionUUID->"3e74f48a-d457-434d-88b9-ae9886f7ca0e"], Cell[82914, 2412, 323, 5, 34, "Output",ExpressionUUID->"164a00f2-c40d-44bd-9946-7f54e386056e"] }, Open ]], Cell[CellGroupData[{ Cell[83274, 2422, 338, 9, 30, "Input",ExpressionUUID->"de6622f1-f9bc-4cdc-9e6c-2a1ec1171617"], Cell[83615, 2433, 417, 9, 34, "Output",ExpressionUUID->"7689d3cf-f58e-4f38-8bb9-fc25001672d0"] }, Open ]], Cell[CellGroupData[{ Cell[84069, 2447, 500, 12, 52, "Input",ExpressionUUID->"c8db5def-cfe2-46b9-911a-c8416be4952b"], Cell[84572, 2461, 1090, 34, 56, "Output",ExpressionUUID->"8b6d1cf4-70c5-46c8-bba6-49f579d7ecda"] }, Open ]], Cell[CellGroupData[{ Cell[85699, 2500, 2555, 80, 94, "Input",ExpressionUUID->"dbfb97a2-f6e0-4d24-93ce-0c18655be37d"], Cell[88257, 2582, 3091, 94, 140, "Output",ExpressionUUID->"75d7a95a-ce7e-4507-9a4f-e09e2f697aa4"] }, Open ]], Cell[91363, 2679, 410, 9, 52, "Input",ExpressionUUID->"5303ba5a-5a3f-427d-865a-aa506510f072"], Cell[CellGroupData[{ Cell[91798, 2692, 236, 5, 30, "Input",ExpressionUUID->"77ac42b3-2219-4e3e-b43f-722deb8090cb"], Cell[92037, 2699, 225, 3, 34, "Output",ExpressionUUID->"2bf0e084-74ec-4e61-b4a6-06d202117992"] }, Open ]], Cell[CellGroupData[{ Cell[92299, 2707, 706, 24, 30, "Input",ExpressionUUID->"da4ad55d-1ba3-4014-aa5e-88b30d0798e1"], Cell[93008, 2733, 1758, 40, 50, "Output",ExpressionUUID->"1bfc5bcc-44da-4311-9ad0-bd91de7294ce"] }, Open ]], Cell[CellGroupData[{ Cell[94803, 2778, 779, 26, 30, "Input",ExpressionUUID->"ff3c7072-0965-4c7b-8040-57732fc2430a"], Cell[95585, 2806, 1754, 40, 50, "Output",ExpressionUUID->"f23c1776-74fa-4b3b-b4ff-b415877cc060"] }, Open ]], Cell[CellGroupData[{ Cell[97376, 2851, 324, 11, 30, "Input",ExpressionUUID->"0f0b656d-1916-45de-81db-cc9d2fe2cd54"], Cell[97703, 2864, 1284, 23, 34, "Output",ExpressionUUID->"a062fcd3-f899-48b6-b20b-02a03bf030e9"] }, Open ]], Cell[CellGroupData[{ Cell[99024, 2892, 329, 11, 30, "Input",ExpressionUUID->"8a1c970d-b130-4d92-b781-c03640da6e67"], Cell[99356, 2905, 1274, 23, 34, "Output",ExpressionUUID->"89642011-b580-483d-bb58-870ae3465d98"] }, Open ]], Cell[CellGroupData[{ Cell[100667, 2933, 539, 14, 52, "Input",ExpressionUUID->"54d57840-bce8-400a-b879-11030115995b"], Cell[101209, 2949, 6589, 191, 227, "Output",ExpressionUUID->"44a691cf-a8cf-44f4-a870-007d94a4c8b5"] }, Open ]], Cell[CellGroupData[{ Cell[107835, 3145, 174, 4, 30, "Input",ExpressionUUID->"e6fd8a65-86ae-4106-9289-5e681a35cfc1"], Cell[108012, 3151, 5448, 173, 205, "Output",ExpressionUUID->"2c988a7a-5882-4724-b05c-bfaf6c67c0a9"] }, Open ]], Cell[CellGroupData[{ Cell[113497, 3329, 302, 5, 30, "Input",ExpressionUUID->"2e764bc9-43ca-46ad-8f01-bd88f8b08299"], Cell[113802, 3336, 26561, 792, 1026, "Output",ExpressionUUID->"0ce2cb20-881a-43b4-9495-b5075214b36d"] }, Open ]], Cell[CellGroupData[{ Cell[140400, 4133, 403, 6, 30, "Input",ExpressionUUID->"ebfb4129-037c-42a1-af71-ab12d2936b6e"], Cell[140806, 4141, 1380, 38, 56, "Output",ExpressionUUID->"90ec661b-9ff2-49b6-8e4d-bd905c067fb9"] }, Open ]], Cell[142201, 4182, 260, 7, 30, "Input",ExpressionUUID->"bd959d1e-5c09-41ca-bf1b-bf33c0ab9f44"], Cell[CellGroupData[{ Cell[142486, 4193, 323, 7, 30, "Input",ExpressionUUID->"1a237724-8cfe-4d69-b2c2-dc63fd8e5ce5"], Cell[142812, 4202, 47187, 1368, 1693, "Output",ExpressionUUID->"d2f304f6-0668-4c2d-b0d8-cf0ff454547a"] }, Open ]], Cell[190014, 5573, 354, 8, 30, "Input",ExpressionUUID->"0c04fb8c-eaeb-4b65-b8d8-6304a7918825"], Cell[CellGroupData[{ Cell[190393, 5585, 283, 6, 30, "Input",ExpressionUUID->"10a20cdf-6c2d-4da1-a508-b148a99aa6bd"], Cell[190679, 5593, 3469, 105, 127, "Output",ExpressionUUID->"17387f33-aeb8-4d3c-a5a6-2746c18e86dc"] }, Open ]], Cell[CellGroupData[{ Cell[194185, 5703, 3255, 102, 144, "Input",ExpressionUUID->"7dbbad6b-28a5-424c-91c5-279bd6535409"], Cell[197443, 5807, 3109, 101, 127, "Output",ExpressionUUID->"d5eb978e-0652-405b-9142-2ff1b9485935"] }, Open ]], Cell[200567, 5911, 107, 1, 30, "Input",ExpressionUUID->"32884bc6-4a62-493f-9267-52f9bd9d7620"], Cell[200677, 5914, 218, 5, 30, "Input",ExpressionUUID->"5b580f68-9295-4b1d-bcd3-926c9a2bdb3c"], Cell[CellGroupData[{ Cell[200920, 5923, 243, 6, 30, "Input",ExpressionUUID->"d3eb8402-2ddc-4164-997d-639b49c1714b"], Cell[201166, 5931, 8975, 283, 332, "Output",ExpressionUUID->"79014f02-49cc-4dad-ad1d-f56c2c3d348d"] }, Open ]], Cell[CellGroupData[{ Cell[210178, 6219, 322, 8, 30, "Input",ExpressionUUID->"e79a6fe5-8a92-4bee-a3b8-5125bb05d424"], Cell[210503, 6229, 132, 3, 34, "Output",ExpressionUUID->"e3aa73f3-1aec-4120-a153-3534563bf809"] }, Open ]], Cell[210650, 6235, 180, 4, 30, "Input",ExpressionUUID->"a2860b28-99f2-47e9-9f90-60ce56a66223"], Cell[CellGroupData[{ Cell[210855, 6243, 196, 4, 30, "Input",ExpressionUUID->"c5a8e232-5661-43ec-9fdb-680425b4c054"], Cell[211054, 6249, 383, 12, 53, "Output",ExpressionUUID->"f8882f66-83fd-48cc-a17d-233a9e1110b3"] }, Open ]], Cell[CellGroupData[{ Cell[211474, 6266, 534, 14, 52, "Input",ExpressionUUID->"e0e45655-4703-40c1-831b-5104585d28d9"], Cell[212011, 6282, 419, 12, 34, "Output",ExpressionUUID->"9cb9c8e9-1afe-4d83-95a1-b75cf7533939"] }, Open ]], Cell[212445, 6297, 185, 4, 30, "Input",ExpressionUUID->"c3a2db8e-9977-4c8e-ac61-150dafb71a2a"], Cell[CellGroupData[{ Cell[212655, 6305, 345, 9, 30, "Input",ExpressionUUID->"a1970eef-f99b-4643-819e-4695489f355a"], Cell[213003, 6316, 20878, 655, 740, "Output",ExpressionUUID->"ae9cfaa0-7916-4e06-ab48-4415d2f92bb1"] }, Open ]], Cell[CellGroupData[{ Cell[233918, 6976, 351, 9, 30, "Input",ExpressionUUID->"b744dd8f-c6cd-4b2c-9a3e-8e33a653d12e"], Cell[234272, 6987, 1351, 42, 94, "Output",ExpressionUUID->"2acd66c7-210b-40fa-a1ba-3c2638aaa8b4"] }, Open ]], Cell[CellGroupData[{ Cell[235660, 7034, 573, 15, 52, "Input",ExpressionUUID->"a5e6559b-ce33-4e73-b9ec-7492f10fcad1"], Cell[236236, 7051, 1296, 38, 99, "Output",ExpressionUUID->"80f6c8cd-91d5-4a9e-8120-a2b2024fba40"] }, Open ]], Cell[237547, 7092, 180, 4, 30, "Input",ExpressionUUID->"26be0669-a745-4ee6-873c-f026b83b1135"], Cell[CellGroupData[{ Cell[237752, 7100, 345, 9, 30, "Input",ExpressionUUID->"2b3327cc-111c-412e-bb5c-4eb9cf7529b1"], Cell[238100, 7111, 2442, 79, 104, "Output",ExpressionUUID->"44a225ac-f5d3-4814-b885-55d8c43c6ca6"] }, Open ]], Cell[CellGroupData[{ Cell[240579, 7195, 348, 9, 30, "Input",ExpressionUUID->"abc47842-b820-4d80-9689-27febed12f6b"], Cell[240930, 7206, 432, 14, 53, "Output",ExpressionUUID->"8a2f81c5-652c-42cb-9d13-0a2557ea2023"] }, Open ]], Cell[CellGroupData[{ Cell[241399, 7225, 610, 16, 73, "Input",ExpressionUUID->"a284604e-867b-404b-a19d-9cec9a0c6e37"], Cell[242012, 7243, 345, 10, 34, "Output",ExpressionUUID->"6f804a96-5608-447b-a70f-1d0b2b9b10a7"] }, Open ]] } ] *)