(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 225091, 5369] NotebookOptionsPosition[ 213314, 4993] NotebookOutlinePosition[ 213694, 5010] CellTagsIndexPosition[ 213651, 5007] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Energetics of Trail clearing in the leaf-cutter ant ", StyleBox["Atta", FontSlant->"Italic"] }], "Title", CellChangeTimes->{3.663286781789773*^9}], Cell["\<\ Supplementary material for \[OpenCurlyDoubleQuote]Chapter 2 - Energetics of \ trail clearing\[OpenCurlyDoubleQuote] in Ph.D. thesis \ \[OpenCurlyDoubleQuote]Infrastructure investment in leaf-cutter ants\ \[CloseCurlyDoubleQuote], submitted in March 2017 by Thomas Bochynek. Contact: Tom.Bochynek@gmail.com\ \>", "Text", CellChangeTimes->{{3.657993525539536*^9, 3.657993594404068*^9}, { 3.657993634338113*^9, 3.65799373312982*^9}, {3.6579937741251593`*^9, 3.6579937831240683`*^9}, {3.657994255671789*^9, 3.6579942798729362`*^9}, { 3.65800760151781*^9, 3.6580076110199966`*^9}, {3.658028672983529*^9, 3.658028675012398*^9}, 3.6580969191826677`*^9, {3.663286815542511*^9, 3.663286820485148*^9}, {3.675129957365323*^9, 3.6751299641316032`*^9}, { 3.675652813207283*^9, 3.6756528209724007`*^9}, {3.684329173708909*^9, 3.6843291950675783`*^9}, {3.699729688567792*^9, 3.699729870963064*^9}, 3.699729955340857*^9}], Cell[CellGroupData[{ Cell["Cost/Benefit Model ", "Chapter", CellChangeTimes->{3.663286787557493*^9}], Cell[CellGroupData[{ Cell["Packages", "Section", CellChangeTimes->{{3.663033314888142*^9, 3.663033336680526*^9}}], Cell[CellGroupData[{ Cell["SciDraw", "Subsection", CellChangeTimes->{{3.66283586790924*^9, 3.662835870124003*^9}}], Cell["\<\ We use the SciDraw package by Mark A. Caprio to modify plot axes. It is \ available through http://scidraw.nd.edu/. Modify the below variable \ modulePath to direct to the downloaded package (e.g. \ \[OpenCurlyDoubleQuote]/Users/Name/Library/MathematicaModules\ \[CloseCurlyDoubleQuote]). This module is only required for a correct display \ of the 3d profitability landscape figure.\ \>", "Text", CellChangeTimes->{{3.657306004526064*^9, 3.6573061246975193`*^9}, { 3.662839475311842*^9, 3.662839494344899*^9}, {3.663033340320923*^9, 3.663033340904928*^9}, {3.663285236930441*^9, 3.6632852390730352`*^9}, { 3.663287386392449*^9, 3.663287413498863*^9}, {3.670099823035921*^9, 3.670099846432165*^9}, {3.6732114465360613`*^9, 3.673211447086924*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"modulePath", "=", "\"\\""}], ";"}]], "Input", CellChangeTimes->{{3.663285191510325*^9, 3.663285222832532*^9}, { 3.6688093990191298`*^9, 3.668809401353533*^9}, {3.6732114292404127`*^9, 3.673211456055901*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"$Path", ",", "modulePath"}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.654541838182605*^9, 3.654541858266354*^9}, { 3.6545419196862803`*^9, 3.654541921942862*^9}, {3.6573059809491253`*^9, 3.6573059820274067`*^9}, {3.657995106763357*^9, 3.657995134429429*^9}, { 3.663285209400096*^9, 3.663285218196774*^9}, {3.6688094059459143`*^9, 3.668809406649701*^9}}], Cell["\<\ Importing the SciDraw package. Note: this inevitably seems to generate a \ number of errors. They do\.7f\.7f not influence the package functionality.\ \>", "Text", CellChangeTimes->{{3.657306133532374*^9, 3.657306142145999*^9}, { 3.6579950577644243`*^9, 3.657995103187066*^9}, {3.662839702054367*^9, 3.66283977481118*^9}, {3.670099804516564*^9, 3.670099806930863*^9}, { 3.6700998564373713`*^9, 3.6700998602538958`*^9}}], Cell[BoxData[ RowBox[{"<<", "SciDraw`"}]], "Input", CellChangeTimes->{{3.6543353083325377`*^9, 3.654335314260459*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Notation", "Subsection", CellChangeTimes->{{3.6628358772445297`*^9, 3.662835885645101*^9}}], Cell["\<\ The Notation package allows the use of sub- and superscripted variable names. \ For more information, see \ http://reference.wolfram.com/language/Notation/tutorial/\ NotationSymbolizeAndInfixNotation.html\ \>", "Text", CellChangeTimes->{{3.662835887775136*^9, 3.662835904246335*^9}, { 3.662836618697157*^9, 3.662836626033182*^9}, {3.6628394638023033`*^9, 3.6628394708711767`*^9}, {3.662916808990654*^9, 3.66291681002916*^9}}], Cell[BoxData[ RowBox[{"<<", "Notation`"}]], "Input"], Cell["\<\ Below, we define sub/superscripted variable and function names\ \>", "Text", CellChangeTimes->{{3.662839607832069*^9, 3.662839652658996*^9}, { 3.662842364297185*^9, 3.662842393370738*^9}, {3.663285769300544*^9, 3.6632857949480143`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["w", "L"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["w", "UL"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox[ OverscriptBox["a", "_"], "F"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox[ OverscriptBox["a", "_"], "S"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["s", "F"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["s", "S"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["x", "0"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["x", "m"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"v", "C", "L"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"v", "C", "UL"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"v", "UC", "L"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"v", "UC", "UL"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["r", "s"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["n", "F"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["n", "T"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["n", "U"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["n", "S"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["u", "S"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["c", "0"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["c", "M"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["c", "C"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["c", "S"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SuperscriptBox["cot", "L"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SuperscriptBox["cot", "UL"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"cot", "S", "UL"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["\[Xi]", "S"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["\[Xi]", "F"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["i", "S"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["e", "UC"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SubscriptBox["e", "C"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"j", "C", "L"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"j", "C", "UL"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"j", "UC", "L"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"j", "UC", "UL"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"e", "UC", "o"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"e", "UC", "iL"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"e", "C", "o"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"e", "C", "iL"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{SuperscriptBox["ncot", "J"]}, "NotationTemplateTag"], "]"}], ";", RowBox[{"Symbolize", "[", TemplateBox[{TemplateBox[{"r", "s", "m"}, "Subsuperscript"]}, "NotationTemplateTag"], "]"}], ";"}]], "Input", CellChangeTimes->{{3.662841334399486*^9, 3.662841363976437*^9}, { 3.66284142413558*^9, 3.662841737244603*^9}, 3.6628419467140636`*^9, { 3.663284633101821*^9, 3.663284637565317*^9}, {3.663284975644836*^9, 3.663284977506027*^9}, {3.664565788975525*^9, 3.664565789241107*^9}, { 3.6645669529404783`*^9, 3.664566953197289*^9}, 3.6687201269455853`*^9, { 3.668739338258738*^9, 3.6687393467158546`*^9}, {3.668809427324274*^9, 3.668809431531102*^9}, 3.6724587652956257`*^9, {3.6724595262399197`*^9, 3.672459541208001*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Model", "Title", CellChangeTimes->{{3.663024378899097*^9, 3.6630243793222923`*^9}}], Cell[CellGroupData[{ Cell["Model components ", "Chapter", CellChangeTimes->{{3.6579950153677273`*^9, 3.657995022391861*^9}, { 3.663286850519885*^9, 3.663286855743067*^9}, {3.671400586077773*^9, 3.671400602770041*^9}, 3.699729884443022*^9, {3.6997299206010847`*^9, 3.6997299218396273`*^9}}], Cell[CellGroupData[{ Cell["Global variables", "Section", CellChangeTimes->{{3.654751137550007*^9, 3.654751144445793*^9}, { 3.657231458972931*^9, 3.6572314613647957`*^9}, 3.6579950073832684`*^9}], Cell[CellGroupData[{ Cell["Conversions", "Subsubsection", CellChangeTimes->{{3.657231439780304*^9, 3.6572314427400703`*^9}, { 3.659422198979684*^9, 3.65942220438762*^9}, {3.663033650932507*^9, 3.663033651996407*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"nrDaysInYear", "=", "365"}], " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "days", " ", "in", " ", "a", " ", "terran", " ", "year"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"foragingDuration", " ", "=", " ", "36000"}], " ", RowBox[{"(*", RowBox[{ "seconds", " ", "in", " ", "a", " ", "10", " ", "hour", " ", "foraging", " ", "day"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mmSToKmH", "=", "0.0036"}], " ", RowBox[{"(*", RowBox[{"conversion", " ", "of", " ", RowBox[{"mm", "/", "sec"}], " ", "to", " ", RowBox[{"km", "/", "h"}]}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"JinkJ", "=", "1000"}], " ", RowBox[{"(*", RowBox[{"conversion", " ", "of", " ", "kJ", " ", "to", " ", "J"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mInKm", "=", "1000"}], " ", RowBox[{"(*", RowBox[{"conversion", " ", "of", " ", "km", " ", "to", " ", "m"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mgInG", "=", "1000"}], RowBox[{"(*", RowBox[{"conversion", " ", "of", " ", "km", " ", "to", " ", "m"}], "*)"}], ";"}]}], "Input", CellChangeTimes->{ 3.65476237759377*^9, {3.654894438573516*^9, 3.6548944810758133`*^9}, { 3.657231299726616*^9, 3.657231300208508*^9}, {3.657305920891493*^9, 3.657305923025564*^9}, {3.657845101843034*^9, 3.6578451025546923`*^9}, { 3.65942207869526*^9, 3.659422084606092*^9}, {3.662141574895643*^9, 3.662141615535325*^9}, {3.6622453756838493`*^9, 3.662245400893363*^9}, { 3.6629469844908857`*^9, 3.662946985184*^9}, 3.662947017677003*^9, 3.662947262953021*^9, {3.6629474802300158`*^9, 3.662947498017421*^9}, { 3.66456799020535*^9, 3.664568009814918*^9}, 3.6645680705484962`*^9, { 3.6645715044532547`*^9, 3.664571504956811*^9}, {3.672458370437364*^9, 3.672458406517253*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Modifier of \.7fmovement speed on cleared and uncleared trails", \ "Subsubsection", CellChangeTimes->{{3.657231399050324*^9, 3.6572314101465054`*^9}, { 3.658007893672963*^9, 3.6580079004470778`*^9}}], Cell["\<\ From empirical measurements at BCI, Panama. See Table A4. Data available in \ Electronic Supplement S1.\ \>", "Text", CellChangeTimes->{{3.657231506357945*^9, 3.6572315449364643`*^9}, { 3.658007850548987*^9, 3.658007882736556*^9}, {3.663033414077518*^9, 3.663033415725484*^9}, {3.6688093525210247`*^9, 3.668809372824202*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["w", "L"], "=", "0.44"}], " ", ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["w", "UL"], "=", "0.5"}], ";"}]}], "Input", CellChangeTimes->{{3.654757102179267*^9, 3.654757111804625*^9}, { 3.654758982129726*^9, 3.654758990128551*^9}, {3.654759027315477*^9, 3.654759080977571*^9}, {3.654759119922353*^9, 3.654759190408573*^9}, { 3.654759224697442*^9, 3.6547592535686903`*^9}, {3.657231556560854*^9, 3.65723156485753*^9}, {3.657239958930331*^9, 3.657239970873949*^9}, 3.6573057889568033`*^9, 3.657305821631344*^9, {3.6626823546392508`*^9, 3.662682357685704*^9}, {3.662682427939958*^9, 3.662682444106372*^9}, { 3.66268261005859*^9, 3.662682620632162*^9}, {3.662833870617441*^9, 3.6628338913869543`*^9}, 3.662836483974259*^9, 3.662837525193263*^9, 3.662840306216044*^9, {3.668845124700672*^9, 3.6688451299452257`*^9}, 3.6689957651257067`*^9, 3.66918355779631*^9, {3.67201332916115*^9, 3.6720133323845367`*^9}, {3.672013393086173*^9, 3.672013394931691*^9}, { 3.672013525748683*^9, 3.6720136156234703`*^9}, {3.672023119761548*^9, 3.6720231237539997`*^9}, {3.6724501730021763`*^9, 3.672450175615654*^9}, { 3.6724519123209887`*^9, 3.672451914864771*^9}, {3.672452767717951*^9, 3.672452769764276*^9}, {3.672453673580042*^9, 3.6724536754343452`*^9}, { 3.67245845720163*^9, 3.6724584595038967`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Worker body mass [g]", "Subsubsection", CellChangeTimes->{{3.657231472549452*^9, 3.657231475581369*^9}, { 3.6577458915773687`*^9, 3.657745897032045*^9}, {3.657995179608386*^9, 3.657995192086866*^9}, {3.657996548807231*^9, 3.657996550079514*^9}, { 3.6632858193190393`*^9, 3.663285820773312*^9}}], Cell["\<\ Body mass translated from head widths [mm] as recorded by Howard (2001) (see \ Table A1).\ \>", "Text", CellChangeTimes->{{3.6577459946207857`*^9, 3.657746012348913*^9}, { 3.663284728994519*^9, 3.663284737900112*^9}, {3.663284800358891*^9, 3.663284810967697*^9}, {3.672458567966074*^9, 3.672458569469079*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "F"], "=", "0.00802"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "S"], "=", "0.01141"}], ";"}]}], "Input", CellChangeTimes->{{3.657674908230794*^9, 3.657674910713601*^9}, { 3.6576749425003633`*^9, 3.657674959539661*^9}, {3.657675002751071*^9, 3.657675027318603*^9}, {3.6576751576999893`*^9, 3.657675175220645*^9}, { 3.6630399773102694`*^9, 3.66303999840629*^9}, {3.6632848280916452`*^9, 3.6632848554919033`*^9}, {3.6646692877539997`*^9, 3.66466929163978*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ SubscriptBox["s", "F"], "=", "0.00109"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["s", "S"], "=", "0.00154"}], ";"}]}], "Input", CellChangeTimes->{{3.6576750998060827`*^9, 3.6576751765248203`*^9}, { 3.663039994828944*^9, 3.663039995447371*^9}, {3.663284876390293*^9, 3.663284887910894*^9}}], Cell["Assumed mean ant mass in Lighton (1987):", "Text", CellChangeTimes->{{3.663284773610939*^9, 3.6632848201506166`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"meanAntMassLighton", "=", "0.0314"}], " ", ";"}]], "Input", CellChangeTimes->{{3.657742786357439*^9, 3.657742787044815*^9}, 3.657742845460541*^9, 3.657743814899831*^9, 3.657745863553051*^9, 3.663039997495171*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Functions", "Section", CellChangeTimes->{{3.65799467211368*^9, 3.657994680961618*^9}, { 3.6579950004183702`*^9, 3.6579950013589897`*^9}}], Cell[CellGroupData[{ Cell["Worker morphology conversion", "Subsection", CellChangeTimes->{{3.657995212113867*^9, 3.6579952155518847`*^9}, { 3.657996457195964*^9, 3.657996458371872*^9}, {3.672458492545847*^9, 3.672458493505319*^9}}], Cell["\<\ Conversion via allometric relations from a reduced major axis regression for \ size measurement of Atta colombia on BCI (Burd, unpublishled data)\ \>", "Text", CellChangeTimes->{{3.657995234116075*^9, 3.657995271007559*^9}, { 3.672458496068226*^9, 3.6724584970654593`*^9}}], Cell[CellGroupData[{ Cell["Head width [mm] to body mass [g]", "Subsubsection", CellChangeTimes->{{3.6577406554283752`*^9, 3.6577406673068247`*^9}}], Cell["Conversion of head width to body mass (Burd, unpublished)", "Text", CellChangeTimes->{{3.66872022095356*^9, 3.6687202411391573`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"ahPar1", "=", "0.00111"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ahPar2", "=", "2.954"}], ";"}]}], "Input", CellChangeTimes->{{3.6577407817889557`*^9, 3.657740813505125*^9}, { 3.668720210934963*^9, 3.668720210939292*^9}, {3.668720255364291*^9, 3.6687202565723133`*^9}, {3.668720287303466*^9, 3.668720295574194*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["a", "h"], "[", "h_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"ahPar1", "*", RowBox[{"h", "^", "ahPar2"}]}]}]], "Input", CellChangeTimes->{{3.6577407656834307`*^9, 3.657740776175582*^9}, { 3.657740819577433*^9, 3.657740831349255*^9}, {3.657740862204468*^9, 3.6577408667075872`*^9}, {3.657996556464122*^9, 3.6579965574639273`*^9}, { 3.668720210946953*^9, 3.668720210956915*^9}, {3.66872028731322*^9, 3.668720295566093*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Femur length [mm] to body mass [g] ", "Subsubsection", CellChangeTimes->{{3.654757806882267*^9, 3.654757817658683*^9}, 3.657399623169609*^9, {3.657695047454307*^9, 3.657695051949456*^9}, { 3.65774090452682*^9, 3.6577409164816*^9}, 3.6577460503185263`*^9}], Cell["From femur length to body mass: (Burd, unpublished data) ", "Text", CellChangeTimes->{{3.668720324605754*^9, 3.668720347663926*^9}, { 3.672458527571435*^9, 3.672458528834999*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"aflPar1", "=", "1.1173"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aflPar2", "=", "1.2408"}], ";"}]}], "Input", CellChangeTimes->{{3.66405993360995*^9, 3.6640599368820763`*^9}, { 3.6687204497008963`*^9, 3.668720454189391*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["a", "fl"], "[", "fl_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"fl", "-", "aflPar1"}], ")"}], "/", "aflPar2"}], "]"}], "/", "mgInG"}]}]], "Input", CellChangeTimes->{{3.664059653493688*^9, 3.6640597194804688`*^9}, { 3.664059755083604*^9, 3.66405978397234*^9}, {3.6640598416024714`*^9, 3.664059865465667*^9}, {3.664059953058897*^9, 3.664059958402581*^9}, { 3.6645680173273907`*^9, 3.664568018847189*^9}, {3.668720430693818*^9, 3.668720454195635*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Body mass [g] to femur length [mm]", "Subsubsection", CellChangeTimes->{{3.657617096917087*^9, 3.6576171110130444`*^9}, { 3.657740904543643*^9, 3.6577409165001097`*^9}}], Cell["\<\ Conversion form body mass to femur length (Burd, unpublished data) \ \>", "Text", CellChangeTimes->{{3.6687203600269947`*^9, 3.668720372617127*^9}, 3.672458533163233*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"flaPar1", "=", "1.1173"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"flaPar2", "=", "1.2408"}], ";"}]}], "Input", CellChangeTimes->{{3.657618497725206*^9, 3.657618535912778*^9}, { 3.6577425697811823`*^9, 3.657742587140235*^9}, {3.657746105897787*^9, 3.657746108841145*^9}, {3.66872052209013*^9, 3.6687205266719437`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["fl", "a"], "[", "a_", "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"flaPar1", "+", RowBox[{"flaPar2", "*", RowBox[{"Log", "[", RowBox[{"a", "*", "mgInG"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.657617497612608*^9, 3.6576175667605133`*^9}, { 3.6576176244124937`*^9, 3.65761765529208*^9}, {3.657618546467169*^9, 3.6576185656512527`*^9}, {3.657675305771934*^9, 3.6576753076884117`*^9}, { 3.657675438832511*^9, 3.6576754443176117`*^9}, 3.657695516712693*^9, { 3.657742337980872*^9, 3.657742338977886*^9}, {3.657742576703149*^9, 3.657742601836981*^9}, {3.6577461124501133`*^9, 3.6577461170018044`*^9}, { 3.657994949396995*^9, 3.657994958485033*^9}, {3.657996539176079*^9, 3.6579965403116417`*^9}, {3.662245404886035*^9, 3.662245406536325*^9}, { 3.6645680410190687`*^9, 3.664568044080954*^9}, {3.668720500409626*^9, 3.668720535265397*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Trail clearing costs", "Subsection", CellChangeTimes->{{3.645834473130754*^9, 3.6458344949222603`*^9}, { 3.645845974171068*^9, 3.6458459756184*^9}, {3.645846538659807*^9, 3.6458465458518677`*^9}, {3.654761395497114*^9, 3.654761396431735*^9}, { 3.6572311219519663`*^9, 3.657231122494573*^9}, 3.657995473338871*^9}], Cell[CellGroupData[{ Cell[TextData[{ "Costs of new inital trail clearing\.7f\.7f [ J ", Cell[BoxData[ FormBox[ SuperscriptBox["m", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.645837723013557*^9, 3.6458377296380367`*^9}, { 3.645845962385696*^9, 3.6458459643857718`*^9}, 3.645847700369673*^9, { 3.6547613983835993`*^9, 3.65476142239327*^9}, {3.654761904885777*^9, 3.654761905365541*^9}, {3.657225644031981*^9, 3.657225645545783*^9}, { 3.657230065786422*^9, 3.657230067154378*^9}, 3.657230506152341*^9, { 3.657399639971312*^9, 3.657399651997892*^9}, {3.65774143355517*^9, 3.6577414556762333`*^9}, {3.657995383319559*^9, 3.65799539331285*^9}}], Cell["\<\ 66.3 kJ of energy are required to clear 267m of trail (Howard 2001). Note \ this is a fixed cost: in order to achieve a cleared trail, first all of this \ energy needs to be expended. \ \>", "Text", CellChangeTimes->{{3.645837831389042*^9, 3.645837846123526*^9}, { 3.6458380680549603`*^9, 3.645838079982205*^9}, {3.645839578091769*^9, 3.6458396149641037`*^9}, {3.64583968606334*^9, 3.645839711576645*^9}, { 3.645839752011793*^9, 3.645839847994501*^9}, {3.645840059064474*^9, 3.6458401017463512`*^9}, {3.645847984863017*^9, 3.6458480127744093`*^9}, { 3.645848102588982*^9, 3.6458481156668577`*^9}, {3.646540271786151*^9, 3.646540281362192*^9}, {3.646616748757679*^9, 3.6466167515089006`*^9}, { 3.6471438877558126`*^9, 3.647143899523535*^9}, {3.647143991831193*^9, 3.647144031150342*^9}, {3.654761406440345*^9, 3.6547614190171633`*^9}, { 3.654761735708538*^9, 3.654761756780822*^9}, {3.654761955664896*^9, 3.6547619642170353`*^9}, {3.657225660632688*^9, 3.657225666169002*^9}, { 3.657995330510604*^9, 3.657995331052853*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"eInitialClearHoward", "=", "66.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"initialLengthHoward", "=", "267"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.654581186550125*^9, 3.6545811926832867`*^9}, { 3.654581232654252*^9, 3.6545813075047913`*^9}, {3.654581367435772*^9, 3.6545813801499243`*^9}, {3.6545815439494143`*^9, 3.654581545123637*^9}, { 3.6545816135912237`*^9, 3.654581615295727*^9}, {3.654581822706115*^9, 3.654581824712853*^9}, {3.6545819480722113`*^9, 3.654581981705132*^9}, { 3.6545820231937733`*^9, 3.654582029545607*^9}, 3.654753882049756*^9, { 3.654753925012339*^9, 3.654753938684853*^9}, 3.654761341191484*^9, 3.6547615953914537`*^9, {3.654761885349427*^9, 3.654761888301231*^9}, 3.6572256544008408`*^9, 3.657225706180781*^9, {3.662836160743103*^9, 3.662836165271264*^9}}], Cell[TextData[{ "Cost of initial trail clearing [J ", Cell[BoxData[ FormBox[ SuperscriptBox["m", RowBox[{"-", "1"}]], TraditionalForm]]], "]:" }], "Text", CellChangeTimes->{{3.657230476251371*^9, 3.6572305116772423`*^9}, { 3.657741700171351*^9, 3.6577417014405727`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["x", "0"], "=", RowBox[{ RowBox[{"eInitialClearHoward", "/", "initialLengthHoward"}], "*", "JinkJ"}]}], ";"}]], "Input", CellChangeTimes->{{3.6458378548223124`*^9, 3.645837858061153*^9}, { 3.645838082711693*^9, 3.645838083703474*^9}, {3.645839583011673*^9, 3.6458395838434258`*^9}, {3.645840088555316*^9, 3.6458400901788816`*^9}, { 3.645847595868451*^9, 3.6458475992122107`*^9}, {3.646533970012047*^9, 3.646533971625491*^9}, {3.646540232920542*^9, 3.646540257258523*^9}, { 3.6466166598970213`*^9, 3.646616677897091*^9}, {3.646616727514855*^9, 3.646616736514069*^9}, {3.647143877573594*^9, 3.6471438804686527`*^9}, { 3.6471455283654118`*^9, 3.647145542662415*^9}, {3.647235607071981*^9, 3.647235612443069*^9}, {3.647236403841096*^9, 3.6472364052761106`*^9}, 3.647236605113031*^9, {3.654581203181616*^9, 3.654581228721987*^9}, { 3.654581311796667*^9, 3.6545813171168756`*^9}, 3.6545813514467077`*^9, 3.654581398600203*^9, {3.6545818360395327`*^9, 3.654581960126711*^9}, { 3.654585597950611*^9, 3.654585598868774*^9}, {3.6547538687222967`*^9, 3.654753880027186*^9}, 3.65476164709555*^9, {3.6547618627173862`*^9, 3.654761863803996*^9}, 3.6548191602992067`*^9, {3.657225709242523*^9, 3.657225709866959*^9}, 3.65723044889498*^9, 3.658015025767817*^9, { 3.662833929030677*^9, 3.66283392994938*^9}, {3.6628361682996483`*^9, 3.662836172259355*^9}, 3.662947262960051*^9, {3.662947480235075*^9, 3.6629474980264874`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Cost of clearing litter-fall [ J ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["m", RowBox[{"-", "1"}]], SuperscriptBox["day", RowBox[{"-", "1"}]]}], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.6458377162306147`*^9, 3.645837719405542*^9}, { 3.645845954610835*^9, 3.645845956801448*^9}, {3.654761894582046*^9, 3.65476189850148*^9}, {3.654762501241157*^9, 3.654762506137163*^9}, { 3.654762669408689*^9, 3.654762683707999*^9}, 3.657223427349656*^9, { 3.6572300191283827`*^9, 3.657230036296623*^9}, {3.657230209553842*^9, 3.657230212176441*^9}, 3.657230559042369*^9, {3.657399643570105*^9, 3.657399673526876*^9}, {3.65774144136399*^9, 3.657741454916463*^9}}], Cell[TextData[{ "maintenance cost for 267m: 109.5 kJ (Howard 2001) given in J ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["m", RowBox[{"-", "1"}]], SuperscriptBox["year", RowBox[{"-", "1"}]]}], TraditionalForm]]], " :" }], "Text", CellChangeTimes->{{3.645835058515991*^9, 3.645835085253154*^9}, { 3.645836254890493*^9, 3.645836255482592*^9}, {3.645837582112824*^9, 3.645837582623358*^9}, {3.646540164392233*^9, 3.64654017447745*^9}, { 3.654761937072692*^9, 3.654761947560494*^9}, 3.654761979170673*^9, 3.654762495834352*^9, {3.657223218908252*^9, 3.6572232189454203`*^9}, 3.657223429971246*^9, {3.6572300454975243`*^9, 3.6572300474732323`*^9}, 3.6572301521694727`*^9, 3.657230190841655*^9, {3.657741483119267*^9, 3.657741540242758*^9}, {3.657741715874254*^9, 3.65774172681863*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"eMaintenancePerMperAnnumHoward", "=", "109.5"}], ";"}]], "Input", CellChangeTimes->{{3.65458140587851*^9, 3.65458159372604*^9}, { 3.654581683339438*^9, 3.654581684940921*^9}, {3.6545819996258297`*^9, 3.6545820107694883`*^9}, {3.6547619858353767`*^9, 3.654761991234709*^9}, { 3.654762478776849*^9, 3.6547624789615097`*^9}, {3.654819093298616*^9, 3.6548190984600573`*^9}, 3.654819161626816*^9, {3.657225724419849*^9, 3.6572257267398043`*^9}, 3.657229952925234*^9, 3.657229990719202*^9, 3.657230163832404*^9, 3.657230197647848*^9, {3.662836174641408*^9, 3.662836175456044*^9}}], Cell[TextData[{ "Hence daily cost of maintaining a cleared trail [J ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["m", RowBox[{"-", "1"}]], SuperscriptBox["day", RowBox[{"-", "1"}]]}], TraditionalForm]]], "]:" }], "Text", CellChangeTimes->{{3.657230529637486*^9, 3.657230563615996*^9}, { 3.6573996767826567`*^9, 3.6573996767826853`*^9}, {3.657741548136142*^9, 3.657741573553138*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["x", "m"], "=", " ", RowBox[{ RowBox[{ "eMaintenancePerMperAnnumHoward", " ", "/", " ", "initialLengthHoward"}], " ", "*", RowBox[{"JinkJ", "/", "nrDaysInYear"}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.657616481149486*^9, 3.657995349165718*^9, 3.658015030648567*^9, { 3.66283398056854*^9, 3.662833981728673*^9}, {3.662836178691497*^9, 3.662836200162023*^9}, 3.6629472629653997`*^9, {3.662947480239197*^9, 3.662947498005324*^9}, 3.668718976403839*^9, 3.672458765271989*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Leaf fragment mass", "Subsection", CellChangeTimes->{{3.657995805795051*^9, 3.6579958280654593`*^9}}], Cell[CellGroupData[{ Cell["Fragment mass [g] as function of femur length [mm]", "Subsubsection", CellChangeTimes->{{3.654757806882267*^9, 3.654757817658683*^9}, { 3.6547580181126223`*^9, 3.654758031031434*^9}, 3.6573996249774647`*^9, { 3.6577409045605793`*^9, 3.657740916518042*^9}}], Cell[TextData[{ "Mean load mass [g] is given as a function of femur length in Burd (1996), \ for ", StyleBox["A. colombica", FontSlant->"Italic"], " foraging on ", StyleBox["Cordia alliodora", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.6423627483386106`*^9, 3.642362753913713*^9}, 3.6446109583443613`*^9, {3.6458489542568417`*^9, 3.645848962233137*^9}, { 3.654584994914702*^9, 3.654584998225132*^9}, {3.6547579794468927`*^9, 3.654757999486409*^9}, 3.654758114526428*^9, {3.654762199279217*^9, 3.654762204391556*^9}, {3.656871037890085*^9, 3.656871048154488*^9}, 3.657224000258541*^9, {3.657741205834075*^9, 3.657741207297874*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"femLenToFragMassPar1", "=", "0.000229086765"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"femLenToFragMassPar2", "=", "3.26"}], ";"}]}], "Input", CellChangeTimes->{{3.654758049326314*^9, 3.6547580836346283`*^9}, { 3.654758239493761*^9, 3.6547582467677097`*^9}, {3.6573911809349527`*^9, 3.6573911874471416`*^9}, {3.657391281467062*^9, 3.657391283089466*^9}, { 3.657746123659865*^9, 3.657746128370035*^9}, {3.657995844165938*^9, 3.6579958457827787`*^9}, {3.657996481102265*^9, 3.657996481106699*^9}, { 3.66466965697534*^9, 3.6646696611673717`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", "fl_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"femLenToFragMassPar1", "*", RowBox[{"fl", "^", "femLenToFragMassPar2"}]}]}]], "Input", CellChangeTimes->{{3.6423627669502687`*^9, 3.642362823157762*^9}, { 3.642378551179162*^9, 3.6423785513648033`*^9}, 3.654584988284334*^9, 3.6545850760480223`*^9, {3.654758045994594*^9, 3.65475808893353*^9}, { 3.654758181764126*^9, 3.6547581832011137`*^9}, {3.6573359564410477`*^9, 3.6573359622669163`*^9}, {3.6573912895892487`*^9, 3.6573912942692957`*^9}, {3.6576753154281273`*^9, 3.657675321234893*^9}, { 3.657675447355898*^9, 3.657675448619619*^9}, {3.657695100665313*^9, 3.657695101735076*^9}, {3.657695708457691*^9, 3.6576957170495243`*^9}, { 3.657696834193386*^9, 3.657696839192507*^9}, {3.6577418110708513`*^9, 3.657741817084638*^9}, 3.6577425288070393`*^9, 3.657742624083007*^9, { 3.6577447842987757`*^9, 3.657744794105651*^9}, {3.6577461327872343`*^9, 3.65774614224647*^9}, {3.657746775519237*^9, 3.657746778055313*^9}, { 3.6579958482139*^9, 3.657995850574226*^9}, {3.6579964811132183`*^9, 3.6579964811240387`*^9}, {3.657996566800301*^9, 3.657996568720661*^9}, 3.658172663800158*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Movement speed", "Subsection", CellChangeTimes->{{3.65799546687599*^9, 3.657995470154459*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Locomotion velocity [km ", Cell[BoxData[ FormBox[ SuperscriptBox["h", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.654758481805716*^9, 3.654758522693449*^9}, { 3.654759879813232*^9, 3.654759880367126*^9}, {3.6547622180885553`*^9, 3.65476221871215*^9}, {3.657225132498045*^9, 3.657225135452244*^9}, 3.657399627073666*^9, {3.6577409045779657`*^9, 3.657740931726314*^9}, { 3.66224667329568*^9, 3.662246674831582*^9}}], Cell[TextData[{ "Scaling relationship\.7f\.7f by Burd (1996, Table 2) for ", StyleBox["Atta colombia", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.6579961218806257`*^9, 3.65799615427125*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"vPar1", "=", RowBox[{"-", "7.83"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vPar2", "=", RowBox[{"-", "920"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"vPar3", "=", "16.41"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.657746199278656*^9, 3.6577462218174353`*^9}}], Cell["\<\ Movement speed is a function of an ants\[CloseCurlyQuote] femur length and \ (if laden) the carried mass.\ \>", "Text", CellChangeTimes->{{3.668719018627674*^9, 3.668719053532284*^9}, { 3.680397949533263*^9, 3.6803979560375357`*^9}}], Cell["Laden worker speed on cleared trail:", "Text", CellChangeTimes->{{3.657996179008266*^9, 3.657996181896126*^9}, { 3.657996221218027*^9, 3.657996221889678*^9}, {3.66224669590486*^9, 3.6622466993452063`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"v","C","L"}, "Subsuperscript"], "[", RowBox[{"fl_", ",", "m_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"vPar1", "+", RowBox[{"vPar2", "*", "m"}], "+", RowBox[{"vPar3", "*", "fl"}]}], ")"}], "*", "mmSToKmH"}]}]], "Input", CellChangeTimes->{{3.657995602386553*^9, 3.65799564259559*^9}, 3.657995685366926*^9, 3.657995757008326*^9, {3.6579959361266127`*^9, 3.657995953183146*^9}, {3.657996481058278*^9, 3.657996481066176*^9}, { 3.657996572048975*^9, 3.6579965913933487`*^9}, {3.658016666104499*^9, 3.6580166749985037`*^9}, 3.662244475156736*^9, 3.662834040328315*^9}], Cell["Unladen worker speed on cleared trail:", "Text", CellChangeTimes->{{3.6579961852004128`*^9, 3.6579962302500257`*^9}, { 3.662246702593522*^9, 3.662246704529475*^9}, 3.668719085597683*^9}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"v","C","UL"}, "Subsuperscript"], "[", "fl_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{ TemplateBox[{"v","C","L"}, "Subsuperscript"], "[", RowBox[{"fl", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.657995886534348*^9, 3.65799592744595*^9}, { 3.657996018366599*^9, 3.657996020690571*^9}, {3.657996058598153*^9, 3.6579960675479507`*^9}, {3.657996481074347*^9, 3.657996481079227*^9}, { 3.657996596163499*^9, 3.6579965987540092`*^9}, 3.662246633670445*^9, 3.662834048824588*^9, {3.66872075117492*^9, 3.668720755427294*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Oxygen consumption", "Subsection", CellChangeTimes->{{3.657996346872367*^9, 3.657996367463986*^9}, { 3.657996662276883*^9, 3.65799666443649*^9}, {3.658003238212533*^9, 3.658003238316263*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Standard rate of oxygen consumption [", Cell[BoxData[ FormBox[ SubscriptBox["ml", SubscriptBox["O", "2"]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"-", "1"}]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ SuperscriptBox["h", RowBox[{"-", "1"}]], TraditionalForm]]], "] " }], "Subsubsection", CellChangeTimes->{ 3.64236309196532*^9, {3.645834046360194*^9, 3.645834048782583*^9}, 3.654759419252136*^9, {3.6547595570038643`*^9, 3.654759571970982*^9}, { 3.654759876366971*^9, 3.6547598774211493`*^9}, 3.657225103757433*^9, 3.6572251914064407`*^9, {3.657225300593582*^9, 3.657225302676826*^9}, { 3.657239352625925*^9, 3.657239353944811*^9}, {3.657741004529653*^9, 3.657741005721257*^9}, {3.6577411542317257`*^9, 3.657741156490836*^9}, { 3.6577413421035833`*^9, 3.657741343390162*^9}, {3.657996302951213*^9, 3.6579963058454857`*^9}, {3.657996647565502*^9, 3.6579966573085003`*^9}, { 3.664662083281736*^9, 3.664662108389079*^9}, {3.664662178335835*^9, 3.664662188152526*^9}, 3.6646623675745993`*^9, {3.668719191470455*^9, 3.668719250605626*^9}}], Cell["Taken from Lighton et al. (1987), equation 9. ", "Text", CellChangeTimes->{{3.6572263459838133`*^9, 3.657226367430784*^9}, 3.657226441843346*^9, {3.65774101508179*^9, 3.657741019290428*^9}, { 3.657741176505335*^9, 3.6577411800407763`*^9}, {3.657741299037655*^9, 3.6577413004070168`*^9}, {3.6579966722373466`*^9, 3.657996672972939*^9}, { 3.6724595919614773`*^9, 3.672459592673563*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"stdRateOxConsPar1", "=", "0.074"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"stdRateOxConsPar2", "=", ".62"}], ";"}]}], "Input", CellChangeTimes->{{3.654759448338627*^9, 3.654759487958748*^9}, { 3.657996379760507*^9, 3.6579963931293583`*^9}, {3.657996614226591*^9, 3.657996620066369*^9}, {3.6644315676444187`*^9, 3.664431571009996*^9}, { 3.664662395310195*^9, 3.6646623967581453`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["r", "s"], "[", "a_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"stdRateOxConsPar1", "*", RowBox[{"a", "^", "stdRateOxConsPar2"}]}]}]], "Input", CellChangeTimes->{{3.642378174581668*^9, 3.64237819340724*^9}, { 3.6423797965437927`*^9, 3.6423798468639517`*^9}, {3.642379939724304*^9, 3.642379941472364*^9}, {3.654759435170869*^9, 3.6547594402838783`*^9}, { 3.654759470440887*^9, 3.654759492418594*^9}, 3.657226335959806*^9, 3.657226374672905*^9, {3.657675522813147*^9, 3.657675529997322*^9}, { 3.657996403380941*^9, 3.657996416355125*^9}, {3.6579966037623158`*^9, 3.657996626549176*^9}, {3.662834081880769*^9, 3.662834082751404*^9}, { 3.6724594987091208`*^9, 3.6724595412115393`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Relativised standard rate of oxygen consumption per unit of body mass [", Cell[BoxData[ FormBox[ SubscriptBox["ml", SubscriptBox["O", "2"]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"-", "1"}]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ SuperscriptBox["h", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.664565649853911*^9, 3.66456569109578*^9}, { 3.664658576730451*^9, 3.6646585836412477`*^9}, 3.664661979459044*^9, { 3.6646620781573067`*^9, 3.664662079236705*^9}, {3.6646623713643513`*^9, 3.6646623738081636`*^9}, {3.668719162378942*^9, 3.668719166449387*^9}, { 3.668719263179634*^9, 3.668719265765875*^9}}], Cell["Adapted above equation relative to body mass in g.", "Text", CellChangeTimes->{{3.66871933814583*^9, 3.668719381891266*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"stdRateOxConsMassPar1", "=", "0.074"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"stdRateOxConsMassPar2", "=", RowBox[{"-", ".38"}]}], ";"}]}], "Input", CellChangeTimes->{{3.66456570789872*^9, 3.664565730442533*^9}, { 3.6646623836704283`*^9, 3.664662391214101*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"r","s","m"}, "Subsuperscript"], "[", "a_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"stdRateOxConsMassPar1", "*", RowBox[{"a", "^", "stdRateOxConsMassPar2"}]}]}]], "Input", CellChangeTimes->{ 3.664565771249585*^9, {3.664565802026849*^9, 3.6645658054592533`*^9}, 3.67245868662265*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Rate of oxygen consumption during movement [", Cell[BoxData[ FormBox[ SubscriptBox["ml", SubscriptBox["O", "2"]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ SuperscriptBox["h", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{ 3.654759538124565*^9, {3.654759579143661*^9, 3.654759586700078*^9}, { 3.654759855869904*^9, 3.654759875156818*^9}, 3.657225105293367*^9, { 3.657225267073751*^9, 3.657225270444973*^9}, {3.657225333671357*^9, 3.657225333835339*^9}, {3.657239347993759*^9, 3.657239348776813*^9}, { 3.657741021389102*^9, 3.657741037858436*^9}, {3.657741142747583*^9, 3.657741151242897*^9}, {3.657741336968514*^9, 3.657741338557467*^9}, { 3.663282468298942*^9, 3.663282471928049*^9}, {3.664662192187942*^9, 3.664662193848796*^9}}], Cell[TextData[{ "The oxygen consumption of a moving ant is a function of its speed v [km ", Cell[BoxData[ FormBox[ SuperscriptBox["h", RowBox[{"-", "1"}]], TraditionalForm]], FontSlant->"Plain"], "]. This is the regression equation in Fig. 6 of Lighton et al., which was \ calculated for unladen ants with mean mass of 0.0314 g." }], "Text", CellChangeTimes->{{3.64237986045154*^9, 3.642379904067047*^9}, 3.644610141349701*^9, 3.644610925278216*^9, 3.654759601134366*^9, { 3.6547598159547977`*^9, 3.654759825418674*^9}, 3.657223354111723*^9, 3.657225106597632*^9, {3.657225326384239*^9, 3.657225328071269*^9}, { 3.657226453978512*^9, 3.6572264994924173`*^9}, {3.657741022354196*^9, 3.657741047611175*^9}, {3.657741325196718*^9, 3.6577413268810873`*^9}, 3.657742717453251*^9, {3.657996719800376*^9, 3.657996750801536*^9}, { 3.657996790137776*^9, 3.657996795169828*^9}, {3.668721174170664*^9, 3.6687211827749662`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"rateOxConsPar1", "=", "0.72"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rateOxConsPar2", "=", "10.05"}], ";"}]}], "Input", CellChangeTimes->{{3.654759615254677*^9, 3.654759623150518*^9}, { 3.654759671153447*^9, 3.6547596821219482`*^9}, {3.6547597636238317`*^9, 3.654759789288519*^9}, {3.654760201995689*^9, 3.654760202328966*^9}, { 3.6577427035626793`*^9, 3.6577427279865723`*^9}, {3.657742771000744*^9, 3.657742773268105*^9}, {3.657996846852482*^9, 3.657996852700481*^9}, 3.672459619790799*^9}], Cell[BoxData[ RowBox[{ RowBox[{"r", "[", "v_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"rateOxConsPar1", "+", RowBox[{"rateOxConsPar2", "*", "v"}]}]}]], "Input", CellChangeTimes->{{3.65739591373181*^9, 3.657395929533049*^9}, { 3.657395962287109*^9, 3.657395979103099*^9}, {3.657675546151898*^9, 3.657675547431991*^9}, {3.657744360802504*^9, 3.657744371536106*^9}, { 3.6577444019864693`*^9, 3.65774441137716*^9}, {3.657996856096393*^9, 3.657996886558793*^9}, {3.657996925881319*^9, 3.6579969441364613`*^9}, { 3.657997936651948*^9, 3.6579980256058397`*^9}, {3.6579980613600187`*^9, 3.657998061471243*^9}, {3.657998414311809*^9, 3.657998424662326*^9}, 3.6580017835781603`*^9, 3.658001856995171*^9, 3.6580063593692083`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Net cost of\.7f\.7f transport [", Cell[BoxData[ FormBox[ SubscriptBox["ml", SubscriptBox["O", "2"]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["g", RowBox[{"-", "1"}]], SuperscriptBox["km", RowBox[{"-", "1"}]]}], TraditionalForm]]], "]:" }], "Subsubsection", CellChangeTimes->{{3.64461107648857*^9, 3.6446110839773684`*^9}, { 3.654760619737083*^9, 3.654760688501459*^9}, 3.657231189441712*^9, 3.657740964242803*^9, 3.65774147093069*^9, {3.658002498351829*^9, 3.658002504837886*^9}, 3.658002604767714*^9, 3.663282810302178*^9}], Cell[TextData[{ "Net energetic cost of laden transport [", Cell[BoxData[ FormBox[ SubscriptBox["ml", SubscriptBox["O", "2"]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["g", RowBox[{"-", "1"}]], SuperscriptBox["km", RowBox[{"-", "1"}]]}], TraditionalForm]]], "]. Adapted from Lighton et al. (1987) equation 16." }], "Text", CellChangeTimes->{{3.654760690762556*^9, 3.654760724943638*^9}, 3.657225539661201*^9, 3.657740964261554*^9, 3.657741470949317*^9, 3.657741636644067*^9, 3.662942466652059*^9, {3.6687212094256363`*^9, 3.668721210560072*^9}, 3.6724596838974133`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"ncotPar", "=", RowBox[{"-", ".60"}]}], ";"}]], "Input", FontSize->14], Cell[BoxData[ RowBox[{ RowBox[{"ncot", "[", RowBox[{"v_", ",", "a_", ",", " ", "m_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "[", RowBox[{ TemplateBox[{"v","C","UL"}, "Subsuperscript"], "[", RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], "]"}], "]"}], "-", RowBox[{ TemplateBox[{"r","s","m"}, "Subsuperscript"], "[", "a", "]"}]}], ")"}], "/", "v"}], "*", RowBox[{ RowBox[{"(", RowBox[{"a", "/", "meanAntMassLighton"}], ")"}], "^", "ncotPar"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1", "+", RowBox[{"(", RowBox[{"m", "/", "a"}], ")"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.663017066901291*^9, 3.663017099088415*^9}, { 3.6630172023354387`*^9, 3.66301723049543*^9}, 3.663282695183053*^9, { 3.664432316713833*^9, 3.6644323904456367`*^9}, {3.6644327054021873`*^9, 3.664432738405201*^9}, 3.664565347051365*^9, {3.664565846875969*^9, 3.664565914066392*^9}, {3.664566006901216*^9, 3.664566028201952*^9}, { 3.6645663506858397`*^9, 3.664566393029785*^9}, {3.664566460866804*^9, 3.664566486564439*^9}, {3.6645665330013123`*^9, 3.664566536063607*^9}, { 3.6646583218336477`*^9, 3.6646583257925243`*^9}, {3.6646587847193413`*^9, 3.664658787573515*^9}, {3.664658999099453*^9, 3.66465900206599*^9}, { 3.664659344337688*^9, 3.664659393171303*^9}, {3.664659510915229*^9, 3.664659544165002*^9}, {3.664659838211925*^9, 3.664659866546089*^9}, { 3.664661525510754*^9, 3.664661546446829*^9}, 3.664662255329108*^9, 3.664662406987713*^9, 3.668720500419623*^9}, FontSize->14] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Metabolic energy use", "Subsection", CellChangeTimes->{{3.658003228477497*^9, 3.658003234004429*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Conversion factor: oxygen consumption [ J ", Cell[BoxData[ FormBox[ SuperscriptBox[ SubscriptBox["ml", SubscriptBox["O", "2"]], RowBox[{"-", "1"}]], TraditionalForm]]], "] " }], "Subsubsection", CellChangeTimes->{{3.654758292736705*^9, 3.6547583386658087`*^9}, { 3.654759372055996*^9, 3.6547593744316998`*^9}, {3.654762242417959*^9, 3.654762246570086*^9}, {3.657225017270935*^9, 3.657225118651368*^9}, { 3.657225337070908*^9, 3.657225337282794*^9}, {3.657239358394369*^9, 3.657239358840968*^9}, 3.657740904599769*^9, {3.65774095423463*^9, 3.657740964132411*^9}, {3.657741051663375*^9, 3.657741055424671*^9}, { 3.65774116137125*^9, 3.657741166035473*^9}, {3.6577412746000023`*^9, 3.657741291501202*^9}, 3.657741470817429*^9, {3.658003304535757*^9, 3.6580033526172*^9}, {3.65800339101298*^9, 3.6580034120776577`*^9}, { 3.6622451963921223`*^9, 3.662245197976273*^9}, {3.67245974445754*^9, 3.672459755797141*^9}}], Cell["\<\ Bodymass dependent factor for the conversion of oxygen consumption to energy. \ Based on Lighton et al (1987), equations 3 and 11. Note we use the lower case \ character k rather than K, as in the manuscript.\ \>", "Text", CellChangeTimes->{{3.6547622300304127`*^9, 3.654762235665362*^9}, { 3.6572248475999937`*^9, 3.6572248541586037`*^9}, {3.657225382969771*^9, 3.657225388581332*^9}, 3.657740904619617*^9, 3.657740964148191*^9, { 3.657740998189028*^9, 3.6577410018935843`*^9}, {3.657741062836853*^9, 3.657741067843885*^9}, {3.6577411696450853`*^9, 3.657741173232085*^9}, { 3.6577413060967693`*^9, 3.657741313848309*^9}, 3.657741470836145*^9, 3.657742037096517*^9, {3.658003325169469*^9, 3.65800333535282*^9}, { 3.658003418448759*^9, 3.658003436700625*^9}, {3.662942494893948*^9, 3.6629425154311867`*^9}, {3.662942561735014*^9, 3.662942642879262*^9}, { 3.672459781772732*^9, 3.672459808684641*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"kPar1", "=", "15.97"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kPar2", "=", "7.71"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kPar3", "=", "0.18"}], ";"}]}], "Input", CellChangeTimes->{{3.654756743580182*^9, 3.654756874427596*^9}, { 3.654762239626102*^9, 3.654762240545508*^9}, {3.658003451005486*^9, 3.658003472910542*^9}, {3.6580035081855288`*^9, 3.658003508943716*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k", "[", "a_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"kPar1", "+", RowBox[{"kPar2", "*", RowBox[{"a", "^", "kPar3"}]}]}]}]], "Input", CellChangeTimes->{{3.654756531007831*^9, 3.654756574001607*^9}, 3.654756755968364*^9, {3.654756792786851*^9, 3.6547568101558247`*^9}, 3.6547568800468197`*^9, {3.65476225714655*^9, 3.654762260547246*^9}, { 3.657224792862144*^9, 3.657224793548279*^9}, {3.657675512950721*^9, 3.6576755193953323`*^9}, {3.658003444781231*^9, 3.6580034756898527`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Energetic gross cost of transport in Joules [ ", Cell[BoxData[ FormBox["J", TraditionalForm]]], " ", Cell[BoxData[ FormBox[ SuperscriptBox["g", RowBox[{"-", "1"}]], TraditionalForm]]], " ", Cell[BoxData[ FormBox[ SuperscriptBox["m", RowBox[{"-", "1"}]], TraditionalForm]]], "] " }], "Subsubsection", CellChangeTimes->{{3.658003560626186*^9, 3.658003565690297*^9}, { 3.658003691593357*^9, 3.6580037251769342`*^9}, {3.659422234203784*^9, 3.659422238571854*^9}, {3.662243756464179*^9, 3.662243761860026*^9}}], Cell[TextData[{ "Conversion of oxygen consumption to expenditure of metabolic energy, as \ function of body mass ", StyleBox["a", FontSlant->"Italic"], " and load size ", StyleBox["m", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.66294264875666*^9, 3.662942697596423*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["ncot", "J"], "[", RowBox[{"v_", ",", "a_", ",", "m_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"ncot", "[", RowBox[{"v", ",", "a", ",", "m"}], "]"}], "*", RowBox[{ RowBox[{"k", "[", "a", "]"}], "/", "mInKm"}]}]}]], "Input", CellChangeTimes->{{3.6645669030295477`*^9, 3.664566935793581*^9}, 3.664658404597022*^9, {3.664658447185864*^9, 3.6646584567665453`*^9}, { 3.6646585477920933`*^9, 3.6646585537889137`*^9}, {3.66466193867358*^9, 3.664661939232833*^9}, {3.664662544212407*^9, 3.664662547193665*^9}, { 3.664664944032033*^9, 3.664664947740798*^9}, 3.6646651693111057`*^9, { 3.664665513499332*^9, 3.664665517243868*^9}, 3.664665607995582*^9, { 3.664666115833171*^9, 3.6646661172891207`*^9}}, FontSize->14] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Number of round trips", "Subsection", CellChangeTimes->{{3.6580038252305803`*^9, 3.658003834949519*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Laden flow per second [", Cell[BoxData[ FormBox[ SuperscriptBox["sec", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.6580038684642963`*^9, 3.658003874798957*^9}, { 3.658004015062752*^9, 3.6580040617058077`*^9}}], Cell["\<\ Scaling of flow with trail length; regression from Bruce and Burd (2012):\ \>", "Text", CellChangeTimes->{{3.6572258441284227`*^9, 3.657225899458787*^9}, { 3.65723091450986*^9, 3.657230914725937*^9}, 3.657845071433145*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"qPar1", "=", "0.008"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qPar2", "=", "1.281"}], ";"}]}], "Input", CellChangeTimes->{{3.65458012860783*^9, 3.6545801702846403`*^9}, { 3.6545803864647427`*^9, 3.6545804131598988`*^9}, {3.6545804884271803`*^9, 3.654580488667283*^9}, {3.654582947844*^9, 3.654582948019513*^9}, { 3.65464924130966*^9, 3.654649250291026*^9}, {3.6547627029515123`*^9, 3.65476271242152*^9}, {3.657225832185966*^9, 3.657225834208194*^9}, { 3.657231153793357*^9, 3.6572311546001472`*^9}, {3.658004128522057*^9, 3.658004137057888*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"q", "[", "l_", "]"}], ":=", " ", "\[IndentingNewLine]", RowBox[{"qPar1", "*", RowBox[{"l", "^", "qPar2", " "}]}]}]], "Input", CellChangeTimes->{{3.654579980229553*^9, 3.6545800398707657`*^9}, { 3.6545805493690443`*^9, 3.654580605609084*^9}, {3.654580649130707*^9, 3.654580655683176*^9}, {3.6545807379363623`*^9, 3.654580738262891*^9}, { 3.654582891073462*^9, 3.6545828958095617`*^9}, {3.654583050400836*^9, 3.654583063713518*^9}, {3.654583262938533*^9, 3.654583264682473*^9}, { 3.654583354520323*^9, 3.654583373334393*^9}, 3.6547373133529577`*^9, { 3.654751358388277*^9, 3.65475135857932*^9}, 3.654764202822802*^9, { 3.6551510752804728`*^9, 3.655151076696066*^9}, 3.6572258387927437`*^9, { 3.657306221943718*^9, 3.657306226381854*^9}, {3.6577456989790363`*^9, 3.657745699968709*^9}, 3.65784508443369*^9, {3.658004126907711*^9, 3.6580041432747498`*^9}, {3.658015412112772*^9, 3.658015415624487*^9}}], Cell["\<\ Average laden flow as fraction of observed peak flow, measured from Lewis \ (1974), Cherret (1968), Hodgson (1955) and Wirth et al (1997).\ \>", "Text", CellChangeTimes->{{3.657225778761092*^9, 3.657225783213921*^9}, 3.65722588271415*^9, 3.657230822545702*^9, {3.657845071406054*^9, 3.6578450714193296`*^9}, {3.658004077113406*^9, 3.658004105504471*^9}, { 3.664567376344102*^9, 3.664567376605982*^9}, {3.6687194661089373`*^9, 3.668719475095709*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"avgForaginMod", "=", ".66"}], ";"}]], "Input", CellChangeTimes->{{3.655152331019692*^9, 3.6551524446809893`*^9}, { 3.6554261909811687`*^9, 3.65542619781143*^9}, 3.65722578839895*^9, { 3.657225822577435*^9, 3.657225824295857*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Number of laden forager round trips per day [", Cell[BoxData[ FormBox[ SuperscriptBox["day", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.6547631751374187`*^9, 3.654763195882122*^9}, { 3.655146119206277*^9, 3.655146121234956*^9}, {3.657226120094075*^9, 3.657226121244239*^9}, {3.657228242333226*^9, 3.657228242965164*^9}, { 3.6572308199091253`*^9, 3.657230827322352*^9}, {3.657230956463582*^9, 3.6572309612158537`*^9}, {3.657745626628561*^9, 3.657745660230146*^9}, { 3.658004205004768*^9, 3.65800420584513*^9}, {3.65800437350159*^9, 3.658004375339861*^9}}], Cell["\<\ Number of laden round trips in a foraging day is the averaged flow per second \ multiplied by assumed 36 000 seconds per foraging day. Calculated from Data \ in Bruce and Burd (2012).\ \>", "Text", CellChangeTimes->{{3.657226126244285*^9, 3.6572261351567507`*^9}, 3.657230924886495*^9, {3.6572309664877663`*^9, 3.657230998865478*^9}, { 3.658004198612917*^9, 3.658004298218398*^9}, {3.668719442671751*^9, 3.668719447886647*^9}, {3.6687195119777403`*^9, 3.66871955277137*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["n", "F"], "[", "l_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"avgForaginMod", "*", RowBox[{"q", "[", "l", "]"}], "*", "foragingDuration", " "}]}]], "Input", CellChangeTimes->{{3.654762941109387*^9, 3.6547629574603558`*^9}, { 3.654763017993885*^9, 3.654763059934519*^9}, 3.654763202723695*^9, { 3.655151066025733*^9, 3.6551510665036087`*^9}, {3.6572261862955093`*^9, 3.657226195711513*^9}, 3.657845084439519*^9, {3.658003846502383*^9, 3.658003846998267*^9}, {3.658004178029764*^9, 3.6580041841419907`*^9}, { 3.658015406608835*^9, 3.658015409552309*^9}, {3.6628341143948803`*^9, 3.662834116345615*^9}, {3.662840999939721*^9, 3.662841011635921*^9}, 3.664571728652738*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Number of total round trips per day [", Cell[BoxData[ FormBox[ SuperscriptBox["day", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.658167549147976*^9, 3.6581675517521133`*^9}, { 3.658167840564477*^9, 3.6581678410843573`*^9}}], Cell[TextData[{ "Number of total round trips including unladen ones, as calculated as \ fraction ", StyleBox["u", FontSlant->"Italic"], " of total trips" }], "Text", CellChangeTimes->{{3.668719599012311*^9, 3.6687196514957333`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["n", "T"], "[", RowBox[{"l_", ",", "u_"}], "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["n", "F"], "[", "l", "]"}], "/", RowBox[{"(", RowBox[{"1", "-", "u"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.658167556757896*^9, 3.658167594554282*^9}, { 3.659356730821727*^9, 3.659356732355546*^9}, {3.6628341202417707`*^9, 3.6628341291862993`*^9}, {3.6628410230934877`*^9, 3.662841033166533*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Number of unladen round trips per day [", Cell[BoxData[ FormBox[ SuperscriptBox["day", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.658167711842271*^9, 3.658167716353077*^9}, { 3.658167835269775*^9, 3.658167835819968*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["n", "U"], "[", RowBox[{"l_", ",", "u_"}], "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["n", "T"], "[", RowBox[{"l", ",", "u"}], "]"}], "-", RowBox[{ SubscriptBox["n", "F"], "[", "l", "]"}]}]}]], "Input", CellChangeTimes->{{3.6581677266689367`*^9, 3.658167779603486*^9}, { 3.6628341344825563`*^9, 3.662834144850842*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Number of unladen round trips by standby clearers [", Cell[BoxData[ FormBox[ SuperscriptBox["day", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.658167824457209*^9, 3.6581678692134953`*^9}}], Cell[TextData[{ "Number of unladen trips performed by standby clearers (fraction ", Cell[BoxData[ FormBox[ SubscriptBox["u", "s"], TraditionalForm]]], " of all unladen trips)" }], "Text", CellChangeTimes->{{3.668719663365419*^9, 3.6687197117226877`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["n", "S"], "[", RowBox[{"l_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", RowBox[{ SubscriptBox["u", "S"], "*", RowBox[{ SubscriptBox["n", "U"], "[", RowBox[{"l", ",", "u"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6628393649861383`*^9, 3.66283940113092*^9}, { 3.672458647682444*^9, 3.672458649737574*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Model Details", "Chapter", CellChangeTimes->{{3.658013498240839*^9, 3.6580135078159113`*^9}, { 3.663286865305355*^9, 3.6632868686662292`*^9}, {3.6724601778652973`*^9, 3.672460178799512*^9}, {3.699729896294145*^9, 3.699729896612224*^9}}], Cell[CellGroupData[{ Cell["Energetic costs", "Section", CellChangeTimes->{{3.658013566738943*^9, 3.6580135701226063`*^9}, 3.6580165704180403`*^9}], Cell[CellGroupData[{ Cell["Cost of trail clearing", "Subsection", CellChangeTimes->{{3.6580164460688143`*^9, 3.658016448843773*^9}}], Cell[TextData[{ StyleBox["[Note that this notebook uses lower-case characters as function \ names. Within the article body, the cost function symbol is an upper-case C. \ Subscripts are identical. ]\n\n", FontSlant->"Italic"], "The total cost of clearing ", StyleBox["c", FontSlant->"Italic"], " consists of two components: that of initial trail clearing ", Cell[BoxData[ FormBox[ SubscriptBox["c", "0"], TraditionalForm]]], ", and that of continuous maintenance ", Cell[BoxData[ FormBox[ SubscriptBox["c", "c"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["c", "s"], TraditionalForm]]], "." }], "Text", CellChangeTimes->{{3.6626964668412323`*^9, 3.6626965517058372`*^9}, { 3.6626966171086407`*^9, 3.6626966241505613`*^9}, {3.662696657843542*^9, 3.662696684986421*^9}, {3.662696858374258*^9, 3.662696863175651*^9}, { 3.6626970954847393`*^9, 3.6626971711374083`*^9}, 3.6627097892798367`*^9, { 3.662709847582665*^9, 3.662709847907735*^9}, {3.6803971906070223`*^9, 3.680397217345129*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"c", "[", RowBox[{"l_", ",", "t_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", " ", RowBox[{ RowBox[{ SubscriptBox["c", "0"], "[", "l", "]"}], "+", RowBox[{ SubscriptBox["c", "C"], "[", RowBox[{"l", ",", "t"}], "]"}], "+", RowBox[{ SubscriptBox["c", "S"], "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6626966975041323`*^9, 3.662696886463524*^9}, 3.662697187922649*^9, {3.6626975587865877`*^9, 3.6626975589625397`*^9}, 3.662835758874392*^9, 3.662835825554682*^9, 3.672460335701359*^9}], Cell[CellGroupData[{ Cell["Initial trail clearing cost [ J]", "Subsubsection", CellChangeTimes->{{3.658015973719757*^9, 3.658015987376144*^9}}], Cell[TextData[{ Cell[BoxData[ FormBox[ SubscriptBox["c", "0"], TraditionalForm]]], " is a fixed amount of energy that is expended at the beginning of foraging, \ to establish a cleared trail. " }], "Text", CellChangeTimes->{{3.658015920402556*^9, 3.658015967127075*^9}, { 3.658016004145052*^9, 3.658016005854103*^9}, 3.662696899697053*^9, { 3.662696936034503*^9, 3.662696945476102*^9}, {3.6688874408181057`*^9, 3.668887441127534*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["c", "0"], "[", "l_", "]"}], ":=", RowBox[{ SubscriptBox["x", "0"], "*", "l"}]}]], "Input", CellChangeTimes->{{3.658015497558456*^9, 3.658015500189316*^9}, { 3.658015873261374*^9, 3.658015899372918*^9}, {3.658016092508479*^9, 3.6580160934448137`*^9}, {3.659356313607727*^9, 3.6593563149697*^9}, { 3.659358134033519*^9, 3.659358134239758*^9}, {3.662696952859666*^9, 3.662696956155788*^9}, {3.662709883510151*^9, 3.662709884526081*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Cost of maintenance [ J ", Cell[BoxData[ FormBox[ SuperscriptBox["day", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.65801646254104*^9, 3.658016480508953*^9}}], Cell["Costs of continuous maintenance:", "Text", CellChangeTimes->{{3.6626975926028357`*^9, 3.66269759745268*^9}, 3.662697649433626*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["c", "C"], "[", RowBox[{"l_", ",", "t_"}], "]"}], ":=", RowBox[{ SubscriptBox["x", "m"], "*", "l", "*", "t"}]}]], "Input", CellChangeTimes->{{3.662697479381122*^9, 3.66269752250417*^9}, 3.672458765280478*^9}], Cell[TextData[{ "Costs of the standby workforce, ", Cell[BoxData[ FormBox[ SubscriptBox["c", "S"], TraditionalForm]]], ", is derived in the below steps." }], "Text", CellChangeTimes->{{3.662697651702661*^9, 3.6626976632967997`*^9}, { 3.6626976952440853`*^9, 3.662697730989802*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Cost of transport [ J ", Cell[BoxData[ FormBox[ SuperscriptBox["m", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.658016806724225*^9, 3.658016808746756*^9}, { 3.658016987898377*^9, 3.658016999442897*^9}, {3.6622437708411703`*^9, 3.662243770841249*^9}, {3.663286414972917*^9, 3.663286421971884*^9}}], Cell["\<\ We calculate the cost of movement for a single ant in Joules based on \ Lighton(1987):\ \>", "Text", CellChangeTimes->{{3.658016981634675*^9, 3.6580170887752666`*^9}, 3.659361954136736*^9, {3.659380638760848*^9, 3.65938063933298*^9}, { 3.662698337292901*^9, 3.662698387359191*^9}, 3.6632828569774103`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"cot", "[", RowBox[{"v_", ",", "a_", ",", "m_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"a", "*", RowBox[{"(", RowBox[{ SuperscriptBox["ncot", "J"], "[", RowBox[{"v", ",", "a", ",", "m"}], "]"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.658016843570499*^9, 3.658016891926545*^9}, 3.658109549726565*^9, {3.6593606401468763`*^9, 3.6593606415290613`*^9}, { 3.659361664607535*^9, 3.6593616648059893`*^9}, {3.659361812863226*^9, 3.659361815997539*^9}, {3.66270989198277*^9, 3.662709894958786*^9}, { 3.664567548442152*^9, 3.66456755000097*^9}, 3.6645675902554092`*^9, { 3.664664383379014*^9, 3.66466439798428*^9}, {3.664664660459684*^9, 3.664664664162156*^9}, 3.664664913910325*^9}], Cell["We simplify for laden ants:", "Text", CellChangeTimes->{{3.662697784777714*^9, 3.6626978044898987`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["cot", "L"], "[", RowBox[{"v_", ",", "a_"}], "]"}], ":=", RowBox[{"cot", "[", RowBox[{"v", ",", "a", ",", RowBox[{"m", "[", RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6626978058586283`*^9, 3.662697830174286*^9}, { 3.662697875975712*^9, 3.662697892991782*^9}, {3.662697981381732*^9, 3.662697988733989*^9}, {3.6626981432569838`*^9, 3.662698145703945*^9}, { 3.6626981765950003`*^9, 3.6626981972352962`*^9}, {3.6627098988152437`*^9, 3.66270990038305*^9}, 3.668720500430011*^9}], Cell["And for unladen ants:", "Text", CellChangeTimes->{{3.66269826178686*^9, 3.6626982651913137`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["cot", "UL"], "[", RowBox[{"v_", ",", "a_"}], "]"}], ":=", RowBox[{"cot", "[", RowBox[{"v", ",", "a", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.662698257809965*^9, 3.662698310186459*^9}, { 3.6627099043993187`*^9, 3.662709906063409*^9}}], Cell[TextData[{ "For standby clearers, we substitute the expected velocity ", StyleBox["v", FontSlant->"Italic"], ":" }], "Text", CellChangeTimes->{{3.662698404101117*^9, 3.662698426385796*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"cot","S","UL"}, "Subsuperscript"], "[", "a_", "]"}], ":=", RowBox[{"cot", "[", RowBox[{ RowBox[{ TemplateBox[{"v","C","UL"}, "Subsuperscript"], "[", RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], "]"}], ",", "a", ",", "0"}], "]"}]}]], "Input", CellChangeTimes->{{3.662698429612419*^9, 3.66269853657691*^9}, 3.662709591513088*^9, 3.6628342133793592`*^9, 3.668720500439937*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Cost of single standby clearer trip, per unit distance [ J ", Cell[BoxData[ FormBox[ SuperscriptBox["m", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsubsection", CellChangeTimes->{{3.658016378834014*^9, 3.658016383032708*^9}, 3.658016601806622*^9, {3.659359293780423*^9, 3.659359300762082*^9}, { 3.66269880581948*^9, 3.6626988068020897`*^9}, {3.663286434718342*^9, 3.66328643558068*^9}, {3.672461010571536*^9, 3.6724610439239388`*^9}}], Cell[TextData[{ "The expected cost of movement for a single unladen ant ", Cell[BoxData[ FormBox[ SubscriptBox["i", "S"], TraditionalForm]]], " from a normally distributed population with probability density function \ ", Cell[BoxData[ FormBox[ SubscriptBox["\[Xi]", "S"], TraditionalForm]]], ", truncated to span the range of Mean +- 6* SD:" }], "Text", CellChangeTimes->{{3.6581095347481747`*^9, 3.6581095569187183`*^9}, 3.65937610388728*^9, {3.662698621967285*^9, 3.662698655722436*^9}, { 3.662698690435783*^9, 3.6626987289090643`*^9}, {3.662698973614147*^9, 3.662699003562203*^9}, {3.6628372251078997`*^9, 3.662837242325079*^9}, { 3.664572458729767*^9, 3.664572470002459*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["truncMin", "S"], "=", RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "S"], "-", RowBox[{"6", "*", SubscriptBox["s", "S"]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.664572135208427*^9, 3.664572167385268*^9}, { 3.664572205577935*^9, 3.66457222065055*^9}, {3.6645722829765663`*^9, 3.664572316712768*^9}, 3.664572443849895*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["truncMax", "S"], "=", RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "S"], "+", RowBox[{"6", "*", SubscriptBox["s", "S"]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.664572172228557*^9, 3.664572180791629*^9}, { 3.664572213475853*^9, 3.664572214122155*^9}, {3.664572285210148*^9, 3.664572320689237*^9}, 3.66457244548932*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Xi]", "S"], "=", " ", RowBox[{"PDF", "[", RowBox[{"TruncatedDistribution", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["truncMin", "S"], ",", SubscriptBox["truncMax", "S"]}], "}"}], ",", RowBox[{"NormalDistribution", "[", RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "S"], ",", SubscriptBox["s", "S"]}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.662836869668911*^9, 3.662836874086994*^9}, { 3.6628372209800987`*^9, 3.662837222459922*^9}, 3.663285077011036*^9, 3.663285138852496*^9, 3.664567770977523*^9, {3.664572341150136*^9, 3.664572347460981*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["i", "S"], "=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{ TemplateBox[{"cot","S","UL"}, "Subsuperscript"], "[", "a", "]"}], "*", RowBox[{ SubscriptBox["\[Xi]", "S"], "[", "a", "]"}]}], ",", RowBox[{"{", RowBox[{"a", ",", SubscriptBox["truncMin", "S"], ",", SubscriptBox["truncMax", "S"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.66269873276158*^9, 3.662698770074484*^9}, { 3.662698948469846*^9, 3.662698951158029*^9}, 3.662699474717218*^9, 3.662709593582653*^9, {3.662836962959344*^9, 3.662836984246917*^9}, 3.6629475792787743`*^9, 3.664567634294392*^9, {3.6645678553013887`*^9, 3.664567857316716*^9}, 3.664571682160071*^9, {3.664572355870841*^9, 3.664572427848406*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Cost of all standby clearer trips", "Subsubsection", CellChangeTimes->{{3.672461030101294*^9, 3.672461035675599*^9}}], Cell[TextData[{ "For ", Cell[BoxData[ FormBox[ SubscriptBox["n", "S"], TraditionalForm]]], " standby clearers foraging for duration ", StyleBox["t", FontSlant->"Italic"], " on a path of length", StyleBox[" l", FontSlant->"Italic"], ", the total energy in Joules spent by the standby clearing workforce is:" }], "Text", CellChangeTimes->{{3.6626992580608273`*^9, 3.66269929942566*^9}, { 3.668720027369125*^9, 3.668720028129198*^9}, {3.680397244839087*^9, 3.680397245758669*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["c", "S"], "[", RowBox[{"l_", ",", "t_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", RowBox[{"t", "*", RowBox[{ SubscriptBox["n", "S"], "[", RowBox[{"l", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], "*", "2", "l", "*", SubscriptBox["i", "S"]}]}]], "Input", CellChangeTimes->{{3.6626993353799353`*^9, 3.662699382687006*^9}, { 3.662710031448985*^9, 3.662710039440008*^9}, {3.662835693642591*^9, 3.662835694010222*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Energetic benefit of trail clearing [ J]", "Section", CellChangeTimes->{{3.6593598473823433`*^9, 3.659359852045333*^9}, { 3.6627104045669823`*^9, 3.6627104089674683`*^9}}], Cell[TextData[{ StyleBox["[Note that function names ", FontSlant->"Italic"], "b ", StyleBox["and ", FontSlant->"Italic"], "e", StyleBox[" below are given in lower case in this file, but upper case in the \ article body.]", FontSlant->"Italic"] }], "Text", CellChangeTimes->{{3.662709715774592*^9, 3.6627097757508707`*^9}, { 3.662916844471257*^9, 3.6629168548400917`*^9}}], Cell["\<\ Here we calculate the differential benefit of trail clearing: the cost of \ energy saved by using a cleared trail.\ \>", "Text", CellChangeTimes->{{3.659359854109503*^9, 3.659359891272978*^9}, 3.6629168763618383`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"b", "[", RowBox[{"l_", ",", "t_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["e", "UC"], "[", RowBox[{"l", ",", "t"}], "]"}], "-", RowBox[{ SubscriptBox["e", "C"], "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.65816820496911*^9, 3.658168236677026*^9}, { 3.659376172507793*^9, 3.6593761847456284`*^9}, {3.662709681114256*^9, 3.66270969689835*^9}, {3.662835378496752*^9, 3.662835423528967*^9}, 3.662837370479233*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Foraging costs ", "Section", CellChangeTimes->{{3.65937489218336*^9, 3.659374914476351*^9}, { 3.663286445061378*^9, 3.663286463838615*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Worker speed on uncleared trails [km ", Cell[BoxData[ FormBox[ SuperscriptBox["h", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsection", CellChangeTimes->{ 3.663286135374255*^9, {3.663286525212743*^9, 3.6632865258024473`*^9}, { 3.672461125898864*^9, 3.6724611515694733`*^9}}], Cell[TextData[{ "We adapt above calculations of movement speed on cleared trails for \ uncleared trails using the speed difference factor ", StyleBox["w.", FontSlant->"Italic"] }], "Text", CellChangeTimes->{{3.6580018251375647`*^9, 3.658001851314558*^9}, { 3.6622467283470573`*^9, 3.6622467677017403`*^9}, {3.66232605853753*^9, 3.6623260943461103`*^9}, {3.6632861671805887`*^9, 3.6632862957487183`*^9}, { 3.668720066074997*^9, 3.668720078947691*^9}}], Cell["For laden workers on uncleared trails:", "Text", CellChangeTimes->{{3.662326107044016*^9, 3.662326134684826*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"v","UC","L"}, "Subsuperscript"], "[", RowBox[{"fl_", ",", "m_"}], "]"}], ":=", RowBox[{ SubscriptBox["w", "L"], "*", RowBox[{ TemplateBox[{"v","C","L"}, "Subsuperscript"], "[", RowBox[{"fl", ",", "m"}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.6626826100695953`*^9, {3.662695742567964*^9, 3.662695742926214*^9}, { 3.662833860778491*^9, 3.662833882141239*^9}, 3.662834061585531*^9, 3.662836672379928*^9, {3.664567843612801*^9, 3.664567843860087*^9}, 3.668722513428475*^9}], Cell["For unladen workers on uncleared trails:", "Text", CellChangeTimes->{{3.662326140162751*^9, 3.662326149933773*^9}, 3.663286300363921*^9}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"v","UC","UL"}, "Subsuperscript"], "[", "fl_", "]"}], ":=", RowBox[{ SubscriptBox["w", "UL"], "*", RowBox[{ TemplateBox[{"v","C","UL"}, "Subsuperscript"], "[", "fl", "]"}]}]}]], "Input", CellChangeTimes->{{3.662246763168317*^9, 3.6622467652292147`*^9}, 3.662682620644766*^9, 3.662695749286645*^9, 3.662833902326991*^9, 3.6628340713465*^9, 3.662836688068965*^9, {3.664567845164216*^9, 3.6645678454521008`*^9}, {3.668722505108541*^9, 3.668722505908231*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Expected costs of foraging [ J ", Cell[BoxData[ FormBox[ SuperscriptBox["m", RowBox[{"-", "1"}]], TraditionalForm]]], "]" }], "Subsection", CellChangeTimes->{{3.662710387350829*^9, 3.662710443892374*^9}, { 3.662710497893173*^9, 3.662710503789393*^9}, {3.6632864996251173`*^9, 3.663286500384503*^9}}], Cell[TextData[{ "Calculation of energetic costs for a single ant of mass ", StyleBox["a", FontSlant->"Italic"], " and speed ", StyleBox["v", FontSlant->"Italic"], " to walk a unit of distance. We calculate these costs for laden and unladen \ ants, on cleared and uncleared trails. We assume that forager sizes are \ normally distributed with probability density function ", Cell[BoxData[ FormBox[ SubscriptBox["\[Xi]", "F"], TraditionalForm]]], ", truncated to span the range of Mean +- 6* SD:" }], "Text", CellChangeTimes->{{3.662143731547491*^9, 3.662143757849389*^9}, { 3.6621437882452497`*^9, 3.662143905226803*^9}, {3.662143954702097*^9, 3.662143961070447*^9}, {3.6627101776899967`*^9, 3.66271018007272*^9}, { 3.662837017968154*^9, 3.6628370510967817`*^9}, {3.6628372561674433`*^9, 3.662837266059167*^9}, {3.663982100288349*^9, 3.6639821212498693`*^9}, { 3.6645670179699917`*^9, 3.664567026239442*^9}, 3.6645724847161818`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["truncMin", "F"], "=", RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "F"], "-", RowBox[{"6", "*", SubscriptBox["s", "F"]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.664572135208427*^9, 3.664572167385268*^9}, { 3.664572205577935*^9, 3.66457222065055*^9}, 3.668722523181302*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["truncMax", "F"], "=", RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "F"], "+", RowBox[{"6", "*", SubscriptBox["s", "F"]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.664572172228557*^9, 3.664572180791629*^9}, { 3.664572213475853*^9, 3.664572214122155*^9}, 3.668722525102892*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Xi]", "F"], "=", RowBox[{"PDF", "[", RowBox[{"TruncatedDistribution", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["truncMin", "F"], ",", SubscriptBox["truncMax", "F"]}], "}"}], ",", RowBox[{"NormalDistribution", "[", RowBox[{ SubscriptBox[ OverscriptBox["a", "_"], "F"], ",", SubscriptBox["s", "F"]}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.663981963545404*^9, 3.663982022608403*^9}, 3.663982571383461*^9, {3.664572229222342*^9, 3.664572235894923*^9}}], Cell[TextData[{ "Expected cost for an ant carrying the expected load mass ", StyleBox["m(fl)", FontSlant->"Italic"], " and moving at the expected speed ", Cell[BoxData[ StyleBox[ TemplateBox[{"v","C","L"}, "Subsuperscript"], FontSlant->"Italic"]], CellChangeTimes->{{3.659367790231217*^9, 3.65936779706903*^9}, { 3.659367879168354*^9, 3.659367908296303*^9}, {3.6593679398333673`*^9, 3.659367954858088*^9}, {3.659367985125185*^9, 3.6593680188287153`*^9}, { 3.659368068760456*^9, 3.659368150266444*^9}, {3.659368183579825*^9, 3.659368216325301*^9}, {3.65936832148379*^9, 3.659368343468403*^9}, { 3.659368374955785*^9, 3.659368402812983*^9}, {3.659368704443335*^9, 3.659368741962782*^9}, 3.659373226535665*^9, 3.659379025225759*^9, 3.6622444802136908`*^9, {3.6627102191514606`*^9, 3.662710237000059*^9}}], " on a cleared trail:" }], "Text", CellChangeTimes->{{3.6593688199452677`*^9, 3.659368824573814*^9}, 3.659368868161202*^9, {3.662143923804058*^9, 3.662143933652359*^9}, 3.662143975239316*^9, 3.6627101989060307`*^9, {3.66271047402811*^9, 3.6627104909646587`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"j","C","L"}, "Subsuperscript"], "=", "\[IndentingNewLine]", RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["cot", "L"], "[", RowBox[{ RowBox[{ TemplateBox[{"v","C","L"}, "Subsuperscript"], "[", RowBox[{ RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], ",", RowBox[{"m", "[", RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], "]"}]}], "]"}], ",", "a"}], "]"}], "*", RowBox[{ SubscriptBox["\[Xi]", "F"], "[", "a", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"a", ",", SubscriptBox["truncMin", "F"], ",", SubscriptBox["truncMax", "F"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.659367790231217*^9, 3.65936779706903*^9}, { 3.659367879168354*^9, 3.659367908296303*^9}, {3.6593679398333673`*^9, 3.659367954858088*^9}, {3.659367985125185*^9, 3.6593680188287153`*^9}, { 3.659368068760456*^9, 3.659368150266444*^9}, {3.659368183579825*^9, 3.659368216325301*^9}, {3.65936832148379*^9, 3.659368343468403*^9}, { 3.659368374955785*^9, 3.659368402812983*^9}, {3.659368704443335*^9, 3.659368741962782*^9}, 3.659373226535665*^9, 3.659379025225759*^9, 3.6622444802136908`*^9, {3.6627102191514606`*^9, 3.662710237000059*^9}, { 3.662837080062749*^9, 3.662837084739377*^9}, 3.6629169068535433`*^9, 3.6630245190771313`*^9, 3.663024690894884*^9, {3.663286936070539*^9, 3.663286985143899*^9}, {3.6632870751692333`*^9, 3.663287083405715*^9}, { 3.663287136193736*^9, 3.663287157171534*^9}, {3.663287264186825*^9, 3.66328728730124*^9}, {3.664566990542033*^9, 3.6645669925898113`*^9}, 3.664567483209136*^9, 3.6645679028003407`*^9, 3.664568154951676*^9, 3.66457250467232*^9, {3.668720500451138*^9, 3.668720500455123*^9}, 3.668723444226935*^9}], Cell["\<\ Same expected cost for movement of unladen workers on cleared trails:\ \>", "Text", CellChangeTimes->{{3.6593690784576683`*^9, 3.659369085688581*^9}, { 3.6621436874185553`*^9, 3.662143709590366*^9}, {3.662710317954565*^9, 3.66271031885806*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"j","C","UL"}, "Subsuperscript"], "=", "\[IndentingNewLine]", RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["cot", "UL"], "[", RowBox[{ RowBox[{ TemplateBox[{"v","C","UL"}, "Subsuperscript"], "[", RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], "]"}], ",", "a"}], "]"}], "*", RowBox[{ SubscriptBox["\[Xi]", "F"], "[", "a", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"a", ",", SubscriptBox["truncMin", "F"], ",", SubscriptBox["truncMax", "F"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.659372109738233*^9, {3.6593728303111973`*^9, 3.659372830494915*^9}, { 3.659373259592907*^9, 3.659373264865218*^9}, {3.659373730068756*^9, 3.659373746675549*^9}, {3.6593738226162653`*^9, 3.659373824886853*^9}, 3.6622468289635677`*^9, {3.662710290803815*^9, 3.662710310265321*^9}, { 3.6628371081681423`*^9, 3.6628371099825*^9}, 3.662916929861331*^9, 3.663024523205351*^9, 3.663024689702754*^9, {3.663287289443514*^9, 3.663287336982045*^9}, 3.664567488449444*^9, 3.6645679046963043`*^9, 3.66456815801637*^9, 3.664572509647374*^9, {3.664662913840955*^9, 3.6646629151368103`*^9}, 3.668720500463997*^9, 3.66872344536796*^9}], Cell["Expected cost for laden workers on uncleared trails:", "Text", CellChangeTimes->{{3.662143650861562*^9, 3.662143684548746*^9}, { 3.662710331211546*^9, 3.662710333402522*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ TemplateBox[{"j","UC","L"}, "Subsuperscript"], "=", "\[IndentingNewLine]", RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["cot", "L"], "[", RowBox[{ RowBox[{ TemplateBox[{"v","UC","L"}, "Subsuperscript"], "[", RowBox[{ RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], ",", RowBox[{"m", "[", RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], "]"}]}], "]"}], ",", "a"}], "]"}], "*", RowBox[{ SubscriptBox["\[Xi]", "F"], "[", "a", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"a", ",", SubscriptBox["truncMin", "F"], ",", SubscriptBox["truncMax", "F"]}], "}"}]}], "]"}]}], ";"}], FontSize->14]], "Input", CellChangeTimes->{{3.659369539756309*^9, 3.659369562340508*^9}, { 3.659369602470969*^9, 3.6593697087626677`*^9}, {3.6593698574651117`*^9, 3.6593698819854593`*^9}, {3.659369912091447*^9, 3.6593699253000307`*^9}, { 3.6593700130780907`*^9, 3.6593700270083227`*^9}, {3.659370826010213*^9, 3.6593708265855293`*^9}, {3.659370892245922*^9, 3.659370931022167*^9}, { 3.659371919615717*^9, 3.65937192258353*^9}, 3.659373831591503*^9, 3.659379019099044*^9, 3.662244483502775*^9, {3.662246822291274*^9, 3.662246850164983*^9}, {3.662710343575013*^9, 3.662710352119502*^9}, { 3.6627105200800734`*^9, 3.662710521014823*^9}, {3.66283711712901*^9, 3.662837120110121*^9}, 3.662916932749484*^9, 3.6630245271720543`*^9, 3.663024688494125*^9, {3.6632872916437263`*^9, 3.663287338158012*^9}, 3.664567492409054*^9, 3.6645679067924023`*^9, {3.664568160128765*^9, 3.664568163536578*^9}, 3.664572512296989*^9, {3.6646629162406178`*^9, 3.664662917664257*^9}, {3.66872050047502*^9, 3.6687205004795628`*^9}, 3.6687234463361387`*^9}, FontSize->24], Cell["Expected cost for unladen workers on uncleared trails:", "Text", CellChangeTimes->{{3.662143714091556*^9, 3.66214372310331*^9}, 3.6627103589512453`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"j","UC","UL"}, "Subsuperscript"], "=", "\[IndentingNewLine]", RowBox[{"NIntegrate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["cot", "UL"], "[", RowBox[{ RowBox[{ TemplateBox[{"v","UC","UL"}, "Subsuperscript"], "[", RowBox[{ SubscriptBox["fl", "a"], "[", "a", "]"}], "]"}], ",", "a"}], "]"}], "*", RowBox[{ SubscriptBox["\[Xi]", "F"], "[", "a", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"a", ",", SubscriptBox["truncMin", "F"], ",", SubscriptBox["truncMax", "F"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6593710214279947`*^9, 3.6593710853016577`*^9}, { 3.659371149825053*^9, 3.659371181704742*^9}, {3.6593712184651413`*^9, 3.659371218649185*^9}, {3.6593714260919943`*^9, 3.6593715514399443`*^9}, 3.6593715941071777`*^9, {3.6593718471339808`*^9, 3.659371847301694*^9}, { 3.659371900608479*^9, 3.6593719007827873`*^9}, {3.659373336164359*^9, 3.659373336459984*^9}, {3.659373373765905*^9, 3.659373373901667*^9}, { 3.6593735856772614`*^9, 3.659373585885089*^9}, {3.659373847129621*^9, 3.659373857608502*^9}, {3.662246921912395*^9, 3.6622469247776423`*^9}, { 3.662710541830011*^9, 3.662710567221077*^9}, {3.662837123733932*^9, 3.662837126703616*^9}, 3.66291693482113*^9, 3.663012643216853*^9, 3.6630139688952312`*^9, 3.663024530348126*^9, 3.6630246875294228`*^9, { 3.663287294155795*^9, 3.663287339174553*^9}, 3.664567495977429*^9, 3.664567909088503*^9, 3.664568166808457*^9, 3.6645725156081057`*^9, { 3.664662931474987*^9, 3.664662932921324*^9}, 3.6687205004888477`*^9, 3.668723447239626*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Total cost of foraging", "Subsection", CellChangeTimes->{{3.6629169497583857`*^9, 3.662916963367387*^9}, { 3.662917005793933*^9, 3.662917015090486*^9}, {3.662917047134087*^9, 3.662917047356449*^9}, {3.663286484815886*^9, 3.663286485575946*^9}}], Cell[TextData[{ StyleBox["[Again note that function name ", FontSlant->"Italic"], "e", StyleBox[" is capitalised in the manuscript, and written in lower case in \ this file. As before, sub- and superscripts are identical.]", FontSlant->"Italic"] }], "Text", CellChangeTimes->{{3.662834260889886*^9, 3.662834330191225*^9}, { 3.662837813246378*^9, 3.662837821930715*^9}, {3.663013912950775*^9, 3.66301391371506*^9}}], Cell[CellGroupData[{ Cell["Total cost of foraging on uncleared trails [ J]", "Subsubsection", CellChangeTimes->{{3.662917017882802*^9, 3.662917025435286*^9}}], Cell["\<\ We calculate movement expenditure for all foragers on an uncleared trail:\ \>", "Text", CellChangeTimes->{{3.662834352583784*^9, 3.662834374593998*^9}, { 3.662837954859359*^9, 3.662837979396625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["e", "UC"], "[", RowBox[{"l_", ",", "t_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ TemplateBox[{"e","UC","o"}, "Subsuperscript"], "[", RowBox[{"l", ",", "t"}], "]"}], "+", RowBox[{ TemplateBox[{"e","UC","iL"}, "Subsuperscript"], "[", RowBox[{"l", ",", "t"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.658168652599305*^9, 3.658168661368223*^9}, 3.659359983881709*^9, {3.6593752883980513`*^9, 3.659375368417881*^9}, { 3.6628344038136587`*^9, 3.662834481677567*^9}, 3.662837876038764*^9}], Cell[TextData[{ "where ", Cell[BoxData[ TemplateBox[{"e","UC","o"}, "Subsuperscript"]], CellChangeTimes->{{3.6593751110098886`*^9, 3.6593751668712463`*^9}, { 3.662834512951168*^9, 3.662834515723078*^9}, 3.66283715849942*^9, 3.6628380232083073`*^9, {3.662848800852541*^9, 3.662848801314763*^9}, 3.664571432194909*^9}], " is the cost of all outgoing workers:" }], "Text", CellChangeTimes->{{3.6593760168261538`*^9, 3.659376020441963*^9}, { 3.668723503619727*^9, 3.668723514138492*^9}, 3.668723555933753*^9}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"e","UC","o"}, "Subsuperscript"], "[", RowBox[{"l_", ",", "t_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"t", "*", RowBox[{ SubscriptBox["n", "F"], "[", "l", "]"}], "*", "l", "*", TemplateBox[{"j","UC","UL"}, "Subsuperscript"]}]}]], "Input", CellChangeTimes->{{3.6593751110098886`*^9, 3.6593751668712463`*^9}, { 3.662834512951168*^9, 3.662834515723078*^9}, 3.66283715849942*^9, 3.6628380232083073`*^9, {3.662848800852541*^9, 3.662848801314763*^9}, 3.664571432194909*^9, {3.668823032811831*^9, 3.6688230333001947`*^9}, { 3.668823459604744*^9, 3.668823468565027*^9}, {3.6689788910667133`*^9, 3.66897889133713*^9}}], Cell[TextData[{ "and ", Cell[BoxData[ TemplateBox[{"e","UC","iL"}, "Subsuperscript"]], CellChangeTimes->{{3.6593751728616333`*^9, 3.659375238346459*^9}, { 3.662834509982697*^9, 3.6628345195956297`*^9}, 3.662837167820174*^9, 3.662838025560348*^9, {3.6628488426788483`*^9, 3.662848843157247*^9}, 3.664571434152367*^9}], " is the cost of all inbound laden workers:" }], "Text", CellChangeTimes->{{3.6687235321224213`*^9, 3.668723552156246*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"e","UC","iL"}, "Subsuperscript"], "[", RowBox[{"l_", ",", "t_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"t", "*", RowBox[{ SubscriptBox["n", "F"], "[", "l", "]"}], "*", "l", "*", TemplateBox[{"j","UC","L"}, "Subsuperscript"]}]}]], "Input", CellChangeTimes->{{3.6593751728616333`*^9, 3.659375238346459*^9}, { 3.662834509982697*^9, 3.6628345195956297`*^9}, 3.662837167820174*^9, 3.662838025560348*^9, {3.6628488426788483`*^9, 3.662848843157247*^9}, 3.664571434152367*^9, {3.668823040180628*^9, 3.6688230406445704`*^9}, { 3.668823569842615*^9, 3.668823604299872*^9}, {3.668978893177371*^9, 3.668978893441271*^9}}], Cell["\<\ We assume that there is no standby clearing workforce on uncleared trails.\ \>", "Text", CellChangeTimes->{{3.6628345286755257`*^9, 3.662834567798731*^9}, { 3.663013930283978*^9, 3.6630139475330677`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Total cost of foraging on cleared trails [ J]", "Subsubsection", CellChangeTimes->{{3.659359915820794*^9, 3.659359947615697*^9}}], Cell[TextData[{ "Likewise, we calculate the total expenditure of foraging on cleared trails. \ Here, the cost of providing a standby workforce ", Cell[BoxData[ FormBox[ SubscriptBox["c", "S"], TraditionalForm]]], " (see above) is added." }], "Text", CellChangeTimes->{{3.662837936251278*^9, 3.66283794983506*^9}, { 3.662838059866103*^9, 3.662838111781414*^9}, {3.6628381634089518`*^9, 3.6628381655609694`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["e", "C"], "[", RowBox[{"l_", ",", "t_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{ TemplateBox[{"e","C","o"}, "Subsuperscript"], "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], "+", RowBox[{ TemplateBox[{"e","C","iL"}, "Subsuperscript"], "[", RowBox[{"l", ",", "t"}], "]"}], "+", RowBox[{ SubscriptBox["c", "S"], "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.658168603880899*^9, 3.658168643262479*^9}, { 3.659360348179481*^9, 3.6593603494752407`*^9}, {3.659360416423334*^9, 3.65936042902181*^9}, 3.659375488156962*^9, 3.659375889109652*^9, { 3.659375988921447*^9, 3.6593759893934298`*^9}, {3.65937603256526*^9, 3.659376059647209*^9}, {3.662835030206172*^9, 3.66283505809835*^9}, 3.66283542827486*^9, {3.662835762371833*^9, 3.662835774298747*^9}, { 3.662838053819736*^9, 3.662838055146027*^9}, 3.662916989577169*^9}], Cell["where", "Text", CellChangeTimes->{{3.659376010244691*^9, 3.659376013578253*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"e","C","o"}, "Subsuperscript"], "[", RowBox[{"l_", ",", "t_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"t", "*", RowBox[{ SubscriptBox["n", "F"], "[", "l", "]"}], "*", "l", "*", TemplateBox[{"j","C","UL"}, "Subsuperscript"]}]}]], "Input", CellChangeTimes->{{3.6593602837809057`*^9, 3.659360286690042*^9}, { 3.659360342508716*^9, 3.65936040318152*^9}, {3.659375483174264*^9, 3.659375530918497*^9}, {3.6593757791707907`*^9, 3.6593757901067333`*^9}, { 3.662835066602722*^9, 3.662835081648137*^9}, 3.6628351150537663`*^9, 3.6628357377369633`*^9, 3.662835775187209*^9, {3.6628381411213913`*^9, 3.6628381445532827`*^9}, {3.662853936596129*^9, 3.662853963807774*^9}, 3.662916981576742*^9}], Cell[BoxData[ RowBox[{ RowBox[{ TemplateBox[{"e","C","iL"}, "Subsuperscript"], "[", RowBox[{"l_", ",", "t_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"t", "*", RowBox[{ SubscriptBox["n", "F"], "[", "l", "]"}], "*", "l", "*", TemplateBox[{"j","C","L"}, "Subsuperscript"]}]}]], "Input", CellChangeTimes->{{3.659375866387442*^9, 3.659375920119191*^9}, { 3.662835070682*^9, 3.662835105501251*^9}, 3.662916983416738*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Calculation of Benefits", "Section", CellChangeTimes->{{3.659423315050414*^9, 3.659423319174781*^9}}], Cell[CellGroupData[{ Cell["Energetic benefit of trail clearing [ J]", "Subsection", CellChangeTimes->{{3.658168149226427*^9, 3.658168152872877*^9}, { 3.658169014165078*^9, 3.658169016509403*^9}, {3.662839204845664*^9, 3.662839212638398*^9}}], Cell["\<\ We calculate the benefits as the difference between total foraging expenses \ on uncleared and uncleared trails:\ \>", "Text", CellChangeTimes->{{3.662839150899941*^9, 3.662839183876543*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"b", "[", RowBox[{"l_", ",", "t_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["e", "UC"], "[", RowBox[{"l", ",", "t"}], "]"}], "-", RowBox[{ SubscriptBox["e", "C"], "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.65816820496911*^9, 3.658168236677026*^9}, { 3.659376172507793*^9, 3.6593761847456284`*^9}, {3.662835133438223*^9, 3.662835137487589*^9}, 3.662835742382985*^9, 3.662835776739832*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Calculation of break even point [days]", "Subsection", CellChangeTimes->{{3.6580165049106627`*^9, 3.658016511846369*^9}, { 3.6628392150781918`*^9, 3.662839216894806*^9}, {3.663282112562367*^9, 3.6632821147449923`*^9}}], Cell["\<\ Finally, we calculate the duration of trail use after\.7f which costs equal \ benefits:\ \>", "Text", CellChangeTimes->{{3.6580154901007633`*^9, 3.658015491744125*^9}, { 3.6594238711711473`*^9, 3.659423879497267*^9}, {3.662839219542984*^9, 3.662839243216412*^9}, {3.663282121705558*^9, 3.6632821311059217`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"breakEvenTime", "[", RowBox[{"l_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"NSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], "==", RowBox[{"c", "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}]}], ",", "t"}], "\[IndentingNewLine]", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.659423458521029*^9, 3.659423557764127*^9}, 3.659424207464875*^9, 3.6628357432707157`*^9, {3.6628357776284933`*^9, 3.6628357784500427`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plotting functions", "Chapter", CellChangeTimes->{{3.6594227729945383`*^9, 3.659422773706327*^9}, { 3.663281435590214*^9, 3.663281436725185*^9}, {3.66328229254041*^9, 3.663282294420553*^9}}], Cell[CellGroupData[{ Cell["Cost vs. benefit plot", "Subsection", CellChangeTimes->{{3.659424128932822*^9, 3.659424132075664*^9}, { 3.6628596816881733`*^9, 3.662859692976112*^9}}], Cell[TextData[{ "Plotting benefits, total costs, and individual costs; assuming average \ trail length of", StyleBox[" l", FontSlant->"Italic"], " = 50 m, mean observed unladen worker fraction ", StyleBox["u", FontSlant->"Italic"], " of 0.42, and assumed fraction ", Cell[BoxData[ FormBox[ SubscriptBox["u", "S"], TraditionalForm]]], StyleBox["= ", FontSlant->"Italic"], "0.5." }], "Text", CellChangeTimes->{{3.662859703903947*^9, 3.6628597218422956`*^9}, { 3.672457744067225*^9, 3.672457752554891*^9}, {3.672457790990879*^9, 3.672457810174386*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"costBenefitPlot", "[", RowBox[{"l_", ",", "u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"c", "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["c", "S"], "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ SubscriptBox["c", "C"], "[", RowBox[{"l", ",", "t"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"1.5", "*", RowBox[{"breakEvenTime", "[", RowBox[{"l", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"AxesStyle", "\[Rule]", "14"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", " ", "\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"_", ",", "Dashed", ",", RowBox[{"Dashing", "[", "Tiny", "]"}], ",", RowBox[{"Dashing", "[", "Large", "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ColorData", "[", RowBox[{"97", ",", "2"}], "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], "]"}], ",", RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["c", "0"], "[", "l", "]"}]}], "}"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.662234212188182*^9, 3.662234247046976*^9}, { 3.6622343206516743`*^9, 3.662234353364316*^9}, {3.662234390395542*^9, 3.662234396254922*^9}, {3.662234495317543*^9, 3.662234510188006*^9}, 3.662834000864051*^9, 3.662835746196102*^9, {3.66283578080165*^9, 3.662835781982827*^9}, 3.662836289655417*^9, {3.66284263405171*^9, 3.6628426921029787`*^9}, {3.662859815009637*^9, 3.662859815259015*^9}, 3.663028621662792*^9, 3.663028785482788*^9, {3.66873428119049*^9, 3.668734284140929*^9}, 3.668887910082078*^9, {3.6694140461538477`*^9, 3.669414092037198*^9}, {3.669414264650634*^9, 3.6694142959240294`*^9}, { 3.67009784253692*^9, 3.6700978427832937`*^9}, {3.671398370228348*^9, 3.67139837281734*^9}, {3.671398711829773*^9, 3.671398713915715*^9}, { 3.6713990757339*^9, 3.6713990765327682`*^9}, {3.6724586682054234`*^9, 3.672458670379574*^9}, {3.673208446766265*^9, 3.6732084512690353`*^9}, { 3.67320848546277*^9, 3.6732084991516047`*^9}, {3.673208558773755*^9, 3.673208560676099*^9}, 3.673208627432884*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Costs vs. trail length plot", "Subsection", CellChangeTimes->{{3.654765210002335*^9, 3.6547652145794888`*^9}, 3.657223536826585*^9, {3.6594291987440777`*^9, 3.6594292032412977`*^9}, { 3.662859832290608*^9, 3.6628598556586647`*^9}, {3.672023326356827*^9, 3.672023333236527*^9}}], Cell[TextData[{ "Plotting the costs for an uncleared and a cleared trail as a function of \ the trail length; mean observed unladen worker fraction ", StyleBox["u", FontSlant->"Italic"], " of 0.42, and assumed fraction ", Cell[BoxData[ FormBox[ SubscriptBox["u", "S"], TraditionalForm]]], StyleBox["= ", FontSlant->"Italic"], "0.5. " }], "Text", CellChangeTimes->{{3.672457835512422*^9, 3.67245788443429*^9}, 3.672458039041937*^9}], Cell[BoxData[ RowBox[{ RowBox[{"costsVsTrailLength", "[", RowBox[{"u_", ",", RowBox[{ SubscriptBox["u", "S"], ":", "_"}], ",", "t_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["e", "UC"], "[", RowBox[{"l", ",", "t"}], "]"}], "/", "1000000"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["e", "C"], "[", RowBox[{"l", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], "/", "1000000"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"l", ",", "0", ",", "200"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"_", ",", "Dashed"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"Italic\"], \"UC\"]\)\>\"", ",", "\"\\"Italic\"], \"C\"]\)\>\""}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"ColorData", "[", RowBox[{"97", ",", "1"}], "]"}], ",", " ", RowBox[{"Arrowheads", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "0.022"}], ",", ".022"}], "}"}], "]"}], ",", " ", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"180", ",", RowBox[{ RowBox[{ SubscriptBox["e", "C"], "[", RowBox[{"180", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], "/", "1000000"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"180", ",", RowBox[{ RowBox[{ SubscriptBox["e", "UC"], "[", RowBox[{"180", ",", "t"}], "]"}], "/", "1000000"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", RowBox[{"ColorData", "[", RowBox[{"97", ",", "1"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"185", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["e", "C"], "[", RowBox[{"180", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], "/", "1000000"}], ")"}], "+", "0", "+", RowBox[{"0.5", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["e", "UC"], "[", RowBox[{"180", ",", "t"}], "]"}], "/", "1000000"}], ")"}], "-", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["e", "C"], "[", RowBox[{"180", ",", "t", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], "/", "1000000"}], ")"}]}], ")"}]}]}]}], "}"}]}], "]"}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.659430013580285*^9, 3.659430054884297*^9}, { 3.659430089360375*^9, 3.6594302031557093`*^9}, {3.659430243840776*^9, 3.659430399980052*^9}, {3.659430515929741*^9, 3.6594305181391687`*^9}, { 3.6622336455684233`*^9, 3.6622336513510447`*^9}, {3.662233695651499*^9, 3.662233700322277*^9}, {3.6622338489257803`*^9, 3.6622338539803047`*^9}, { 3.662234908032365*^9, 3.662234915473063*^9}, 3.6628357557025957`*^9, { 3.662835817680073*^9, 3.662835820740161*^9}, {3.662836358436949*^9, 3.6628364036044807`*^9}, {3.6630294167042227`*^9, 3.6630294324166517`*^9}, {3.6630295024002323`*^9, 3.6630295514079638`*^9}, {3.663029635855504*^9, 3.663029664687299*^9}, 3.663281534998227*^9, {3.663282231754469*^9, 3.663282235978442*^9}, 3.672023604455596*^9, {3.673209072822907*^9, 3.6732090755180187`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Influence of unladen workers and standby clearers on break even times\ \>", "Subsection", CellChangeTimes->{{3.6468948343483353`*^9, 3.646894881846566*^9}, { 3.6469027565219793`*^9, 3.646902765248022*^9}, {3.646903187590913*^9, 3.6469031887007427`*^9}, {3.6478133716350307`*^9, 3.647813384954138*^9}, { 3.653898471121873*^9, 3.6538984746741047`*^9}, {3.654765230427599*^9, 3.6547652634392757`*^9}, {3.654765322760824*^9, 3.654765329649705*^9}, 3.65722352837971*^9, {3.6594291674273443`*^9, 3.6594291957838717`*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Calculation of maximum sustainable ", Cell[BoxData[ StyleBox[ SubscriptBox["u", "S"], FontSlant->"Italic"]]], " for observed ", StyleBox["u", FontSlant->"Italic"] }], "Subsubsection", CellChangeTimes->{{3.659425603785615*^9, 3.659425620906459*^9}, { 3.65942686429244*^9, 3.659426864686878*^9}, {3.6594269836075*^9, 3.6594269983242493`*^9}, {3.6594292527949*^9, 3.6594292999723473`*^9}, 3.662835790738472*^9, {3.6629171941771584`*^9, 3.662917195650093*^9}, 3.6688101268545437`*^9}], Cell[TextData[{ "Here we calculate the highest value for ", Cell[BoxData["u"], FontSlant->"Italic"], " under which foraging with the \.7f\.7fgiven proportion ", Cell[BoxData[ FormBox[ SubscriptBox["u", "S"], TraditionalForm]]], " is energetically profitable (on a 50m trail):" }], "Text", CellChangeTimes->{{3.659427021807144*^9, 3.659427120569727*^9}, { 3.659427665301839*^9, 3.659427665912594*^9}, 3.662835793007732*^9, { 3.662856798538599*^9, 3.662856822040797*^9}, {3.662856960550115*^9, 3.662856979119488*^9}, {3.668894341246966*^9, 3.668894343708942*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"findMaxU", "[", RowBox[{ SubscriptBox["u", "S"], ":", "_"}], "]"}], " ", ":=", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"breakEvenTime", "[", RowBox[{"50", ",", "u", ",", SubscriptBox["u", "S"]}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", ".99", ",", ".001"}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"#", ">", "0"}], "&"}]}], "]"}], "]"}], " ", "/", "1000"}]}]], "Input", CellChangeTimes->{{3.659425653884304*^9, 3.6594257234749317`*^9}, { 3.659425873015505*^9, 3.6594258803176403`*^9}, {3.659426467898663*^9, 3.6594264880630903`*^9}, {3.6594267244268217`*^9, 3.659426724961424*^9}, { 3.659426800317047*^9, 3.6594268017720613`*^9}, {3.659426874097727*^9, 3.659426893944612*^9}, {3.659427123028513*^9, 3.659427123833992*^9}, 3.6628357514268208`*^9, 3.6628357941440973`*^9, {3.6628568291860323`*^9, 3.662856841682287*^9}, 3.6628569836357317`*^9, {3.668893580816894*^9, 3.668893581352639*^9}, {3.668894053380899*^9, 3.6688940537147703`*^9}, { 3.668894149807159*^9, 3.6688942124192667`*^9}, {3.6688942523324966`*^9, 3.668894267866886*^9}, 3.672445891173877*^9, 3.672447019087616*^9}], Cell[TextData[{ "Plotting the maximum sustainable proportion ", StyleBox["u", FontSlant->"Italic"], " for any given ", Cell[BoxData[ FormBox[ SubscriptBox["u", "S"], TraditionalForm]]], ":" }], "Text", CellChangeTimes->{{3.672457912070981*^9, 3.6724579721744204`*^9}, { 3.6724613282118073`*^9, 3.672461329418532*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"maxSustPlot", "[", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"findMaxU", "[", "us", "]"}], ",", RowBox[{"{", RowBox[{"us", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "0.135"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", "LightGreen"}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\*SubscriptBox[ StyleBox[\"u\", FontSlant->\"Italic\"], \"S\"]\)\>\"", ",", "\"\< \!\(\* StyleBox[\"u\", FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"LabelStyle", "\[Rule]", "14"}], " ", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"Italic\"]\)\>\"", ",", "14", ",", "Gray", ",", RowBox[{"TextAlignment", "\[Rule]", "Right"}]}], "]"}], ",", RowBox[{"{", RowBox[{".8", ",", "0.09"}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"Italic\"]\)\>\"", ",", "14", ",", "Gray", ",", RowBox[{"TextAlignment", "\[Rule]", "Right"}]}], "]"}], ",", RowBox[{"{", RowBox[{".8", ",", "0.76"}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0.80"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.80"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.135"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.135"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"findMaxU", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", " ", "0.8"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", "White"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"White", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.668888166922207*^9, 3.6688882144050407`*^9}, { 3.668888317877573*^9, 3.668888428149219*^9}, {3.668888472454884*^9, 3.6688884819512033`*^9}, {3.668891061714974*^9, 3.6688910628490763`*^9}, { 3.6688911020760202`*^9, 3.668891148239811*^9}, {3.668891531078515*^9, 3.668891600719751*^9}, {3.668891662115353*^9, 3.668891714548337*^9}, { 3.668891910541212*^9, 3.6688919211240273`*^9}, {3.668891978303425*^9, 3.668891985173387*^9}, {3.668892016808769*^9, 3.668892017294504*^9}, { 3.668892131235153*^9, 3.668892148379382*^9}, {3.668892338753436*^9, 3.668892420526692*^9}, {3.668892545393653*^9, 3.668892550725523*^9}, { 3.66889261084804*^9, 3.668892652487962*^9}, {3.668892753580946*^9, 3.668892787493121*^9}, {3.668892827518402*^9, 3.66889295369965*^9}, { 3.6688933853325768`*^9, 3.668893385876431*^9}, 3.668893565324622*^9, { 3.668893655966638*^9, 3.6688937090645857`*^9}, {3.668893739547043*^9, 3.66889379764543*^9}, {3.668893840984146*^9, 3.668893867806703*^9}, { 3.668894282888267*^9, 3.668894302559142*^9}, {3.669412847131997*^9, 3.669412849844228*^9}, {3.670095740867701*^9, 3.670095789741035*^9}, 3.670095858658504*^9, {3.670096446171316*^9, 3.670096457731957*^9}, { 3.6720230699570436`*^9, 3.672023072402191*^9}, {3.672353767111236*^9, 3.6723540133366833`*^9}, {3.672354290953697*^9, 3.672354292720406*^9}, { 3.672446518311756*^9, 3.672446524136512*^9}, {3.672447389615094*^9, 3.672447409894527*^9}, {3.6724509769990273`*^9, 3.672450982282686*^9}, { 3.672451638941814*^9, 3.6724516392044497`*^9}, {3.672451733155167*^9, 3.6724517371945467`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Exploring influence of variation in speed gain, ", StyleBox["w", FontSlant->"Italic"] }], "Subsubsection", CellChangeTimes->{{3.672022798874342*^9, 3.672022804617482*^9}, { 3.6724580538022757`*^9, 3.67245806099512*^9}}], Cell[TextData[{ "Due to the structure of the notebook, we manually change values for ", StyleBox["w= ", FontSlant->"Italic"], Cell[BoxData[ FormBox[ SubscriptBox["w", "L"], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ SubscriptBox["w", StyleBox["UL", FontSlant->"Italic"]], TraditionalForm]]], ", reevaluate the notebook, and reconstruct \.7fgraphs for each new value." }], "Text", CellChangeTimes->{{3.672455601145937*^9, 3.672455659880063*^9}, { 3.6724557045318747`*^9, 3.672455720371091*^9}, {3.672461352852037*^9, 3.672461352907857*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"maxSustPlotPart", "[", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"findMaxU", "[", "us", "]"}], ",", RowBox[{"{", RowBox[{"us", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", " ", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\*SubscriptBox[ StyleBox[\"u\", FontSlant->\"Italic\"], \"S\"]\)\>\"", ",", "\"\< \!\(\* StyleBox[\"u\", FontSlant->\"Italic\"]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"LabelStyle", "\[Rule]", "14"}], " ", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", " ", "0.80"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.80"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"4", ",", "8"}], "}"}], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.135"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0.135"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], ",", RowBox[{"{", RowBox[{".11", ",", "0.17"}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], ",", RowBox[{"{", RowBox[{".55", ",", "0.22"}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], ",", RowBox[{"{", RowBox[{".7", ",", "0.32"}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14", ",", RowBox[{"TextAlignment", "\[Rule]", "Left"}]}], "]"}], ",", RowBox[{"{", RowBox[{".77", ",", "0.42"}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"Italic\"]\)\>\"", ",", "14", ",", "Gray", ",", RowBox[{"TextAlignment", "\[Rule]", "Right"}]}], "]"}], ",", RowBox[{"{", RowBox[{".8", ",", "0.09"}], "}"}]}], "]"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"Italic\"]\)\>\"", ",", "14", ",", "Gray", ",", RowBox[{"TextAlignment", "\[Rule]", "Right"}]}], "]"}], ",", RowBox[{"{", RowBox[{".8", ",", "0.76"}], "}"}]}], "]"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.6724510367321568`*^9, 3.672451075506764*^9}, { 3.672451144610839*^9, 3.672451156732929*^9}, {3.672451250674905*^9, 3.6724512901861763`*^9}, {3.6724514671098022`*^9, 3.672451485661216*^9}, 3.672451533832684*^9, {3.672451580018812*^9, 3.6724515828004627`*^9}, { 3.672451742528846*^9, 3.672451773273929*^9}, {3.672455915548674*^9, 3.672455968420101*^9}, {3.672456970171895*^9, 3.672456996784707*^9}, 3.672458016104474*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Plots", "Chapter", CellChangeTimes->{{3.6632814481901197`*^9, 3.663281448869853*^9}}], Cell[CellGroupData[{ Cell["Plot of costs and benefits", "Subsection", CellChangeTimes->{{3.6632818194351254`*^9, 3.663281838759098*^9}}], Cell[CellGroupData[{ Cell["Detail plot", "Subsubsection", CellChangeTimes->{{3.663281856960414*^9, 3.663281862632307*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"costBenefitPlot", "[", RowBox[{"50", ",", "0.42", ",", ".5"}], "]"}]], "Input", CellChangeTimes->{{3.6630287556674023`*^9, 3.663028764965713*^9}, 3.668887910089861*^9, {3.66915580595249*^9, 3.669155855528726*^9}, { 3.6694144058617496`*^9, 3.6694144120081177`*^9}, 3.66941676427785*^9, 3.670095162032596*^9, {3.670095499332932*^9, 3.670095500347145*^9}, { 3.6700955399110937`*^9, 3.6700955403988037`*^9}, 3.684329246274392*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVxX041AccAPBzytVime1O3q50VJ4irsbK8f2uocxrUnFe2uxSotCQl1Mp L4tC5K6Wl1hoEu1Sykt5jTvy/jPHdV7v18vTqFXyNrb98Xk++n7BboepFArF 6T//X/4qxX97q7P1rk96k+djrcAyZywlk7MFPF3HIi3VdJDVFTW/n8MB3bDB WIraZhQG2G6z4DjCYsIByriqJe4139y5keMNU6lXvu1TdcAyXabeOk4QHMnc Ntau6oXP0zRtdDl8KKKfZ4tVAzHM/spBbc5FaOgv4baoxuDNJf6oZlAOWOf4 GyqbXsSr1neZMFQIiRHGktC3V9Dwr5+upctK4cfZRy1xRdeRzWOUvN0pgusW TuprTuVj9JzKu/Kn94GyMyL6iewm6mykDpzIfQTyr+01zFNu4Q0HXwWHVwuW hwwv8TeVor8jazI9rA7UXatsM5PK0ehx9g5lnwZg5yxk1Qj/QLSRzVIMm0Ar YqZY6HgP99g5OqlMNEO1IvL24EwFxmbWh6wSt4CeW4dtgvgBqnxcWJF9SQxW 6ylLmjEPsSbfKnRLZBtoTam4aOytQp6kLKjJ8xmI3DLSw5g1+AONlL3Q7gRV 7bm3j9trsXn35dTlcV2wQW7+MiTvCS4TaLzy5nXDPHXTmYTf61B6QbC5gtsD dvS8/YlZ9VhcLbJIc+yFNycHDCxjGzDvk9niVpM+OEk9q8zb34jG0nulXesJ 8FDPuFMHTahoukq3oPUD01XjyGXtZhRM0vfov+gHGHLXYrxrRnltlt+qwT+h YUJJ2CF9iq7CSIvqmgEwWKdnMC9qQQ+G74djIikopAV8r9xW9Owdis79bRCo w6+fBSeIMf7Xmmph/BAs0fNNZrwlaEu7MZEeKQOvtnpuhV0bmp4mW1y8n4NQ 5CqYWNeOX21rDsuwlANbkS9pnW7H1EtFKwnjYdgg8JGMyJ+hVlR46SRtBKhR SdKgyg40X1zTevLcCLAHdSq2FHTi0RWTddIPI1BovtrlrnUXCszScqmHR0Fe GIoGJV2Ydscs5LZ8FGzdL2iKmN2YW7Z8rYXrGOToeExHpXRjJHWoflfbGGxc L6vyUupB53C+vbrNOPg618dohvfgjuMuZXUV43A+08dGbbQHpypZtHcmEzCg Wf637oFerEoyslqWPwFr71fe8m/sxXMR8wel6grQiNT3SjbpQ/rDDn+TZAWY R+P7loI+rD3d6+Y/rwDHLEYmrCYw14khP/SPAiqv73vB+oLA07qeAZ5LCtAv SLdc8SWB1lXyM47KJMyWfTbRxSCw7uOrUvYqEopbF7f7MQlsCKLQlrRJWLZA 9scbE/iUa1wt3EnCA79KbYkDgUVGIXaXOSSsDfhwosyJwMQZUXeyNQkpwWaN GS4E7hZ88zJ2Fwk8/u1Ar30EtnZ/R+d9T4K6IK/mDZdAyR5usCmXhKPiJN/V xwgs0cyZM/Imob+zSfQ+kMBkcjiB5UsC9ivRBo4T6BB/OJvhRwJjPKb8RiiB 7U9CxAsBJDQtBFPYUQSWpt5znw4kYavyHXdGDIEXfaaHp46TkL3y9a05PoFO 8zHTY6EkhDJ4exvPEmgieRwn+5kEmW5+YfE5Aj+/pqTWH06CPUs+mxJP4OQR m6udp0i4b6TjHJJIYId5EkscRQLT1KPA/RcC/wUzolZY "]]}, { Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwVx3k4lAkcwPFZ19RK1zoK6ZiOJZRml2ia32/HiDJoPZXjkayY7TBFqbCO HBE5O4Z6mHRIh9Sq7XAOkXeuV21lXTPOeR1tIz3RobL2j+/zfT5Lgw96h2rR aDSP6f7/neFT/J8IT/ZJzac4JRC4oajv1BmWNax8MO/zbiSQ8Sx6cjuLBU/j LI+OTDt/rwvTgcUDbQO/Ax9+IfBX+9Utq1gBEL/6UeA8LoHl5haLlrDC4PCe o+DiRqAyx4RrzoqFXX3vaLe3Ehi5+ayPKSsTfm59nRz7G4FXp2J7TcKKoOMA kTx6gsAC9l0L6CyB4F1WVh9LCVzxZvf53K4y+DGcObRdQuC6EOObb50qgLJb VZz2hsCYz3pjd57+BWnuxd8850jQbJVW2wHRY7Aw1vEZYUqw2D1QzQqpgXHa nOYOHwnyeQxNbqQY7jpfVAZFS9CyttBRe2cDBDmYaiqLJIjcrk+0FY3wPsm0 5GadBN028Tz0BpqgWVN/eLRHgnFn6sP1Jc2Qq7+NNUNXinrjX2YUZklg4/H9 tx6slGL1pY0R1lEy6CsRGDq6SzFEWh7W6KeAxtfG5+YelGIQneoaNG2BjHSX 6rhcKTa55mXrJj4Dt7ZAZe19KeoI5w8HhDyHofivV8+1SrE9Xbj6vv/fkNCa ysdJKZZWVTjk8F7ADs+HgItlePGD3bc1ti9htoWg7hXK0Kb9XtmzZa+gTmTg CKEyVDcWGDnQW8H7GNOPnSZDocbIbelgKywPp+Wdvi5DVc25YP2Of0Cz8FFD pVyGW/OjHKqq2+CC2fiFKI0MfY0D3++raAc2aS74/gc5+r3ojBFd6YAll17v GLOXY8qF6qr8lE6gZDAo8JWjC714IDeqCy6XxkfUxspxbTzV7BWgBE4n5/JV kRwNmU2RpzeoYOma8pHuOjlmZ12b+cqmGyaYOjaj/XJcGH2kTEPvgTu53UZn dRVo/20BcSipBwJFJR9nWSlwzwyNuP19D7zTHks04ylQaJcj0grthSfp/csS BArMuW0XfkvVC6fE4poHeQoUlesudtjaB+u9GFPJ9xQYpdVZz5H1QUd2uNOK NgV6HondPJfbD9WakCyzLwp0FHiVi+/3w/FrqtTSRSSOPmTQx2wHgDXHOYbO IbEyzXKjzqUB6GixNvy6m8Sko5M+7XPV8PhuTZPrCRKNHpF82ww1ZHMcI/g3 SKyJf+HNn1TDJmunJ6YyEkUexqpdX9XgdSyG8+e048399vpNqcG3obLeVU4i u1KVwNOmIMx3gzhSQaJ4fLhsnT4Fp1NYNWQLiQ1hNPqUKQXKLvbDpJckPvW3 qcp3ouBQlvOtESWJ1yzDN+WxKIhtS7ZKVJGY+rHieQabglRG4w2TbhJdheuH 4jgUFDzmXuf2kEg8dzYK2UJBrdqlRNRHotTN/+Bafwpmst0ueg+SeNOk6LNl AAXz009aDE87g+o+wQikwOwlUZQwRKJ7SmihcTAFa/ZtLiwbJlFeFy75speC bcIt5/X+JbEs+962if0U7OzNWFA07cydE92jAgr41rJ85hsSPSb/mOiLoCCm wV0YpCHRVlqb2HWYgmSDTKMP0559/juD1iMUZPrKz2aNkqj5nVvQcowC4ZVZ hsvfkkjapzEk0RQUa3hnKqf9H33Hb34= "]]}, { Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Dashing[Tiny]], LineBox[CompressedData[" 1:eJwVxX041AccAPBLcpraSh1pLLLyEJeXctG57zcRlbf05q1rSUxeEqdR6GGa pJxSDnPnLa77keRl5byMRnlZostbhI77ySyVumtFbPvj83z0fE+5n1CiUCjO //n/O5Mp/ltaXVgN9j10sY46bOdLU9KZxpBXQoisBG9Bvyt69iCTCXJny1Ca gIK8QHsLBtMJdNfFuC0WrMB9lpueGDB9oJqau+MzXxfLtL/T0WUGAyXGVCzn m+ILrqadNjMGNlpGn3nPR+Tsvn54LfMybEvnH5jhu+HNhZiXmsF84Fk+Snnu dgwzWeXfwWARVFTzj7+uCcQNr49npQ2VwlSl+UrfuTA099Mg3lpXQIBDwbMd kZF49rPKuzsPq+H9GO4X50fjtwZK/aGCGpiyntoqNIjDvL1sGdOvHippVJXt TvHo76Q/ncZphCj18s5Q9s9o2JBjtfjIA4j4m93mw7+AaDf0ibKhGeR7ivQ0 f0tCx11OzirjLWClEEbYNidjbHpTmFrbI6iIK/9osJCCKvI51ZwrbVCZ4jYw sCoV6/JtThtHdYDc+pyiwCgN/drLgps9H0P4IePYlbuu4g9Ucmhi7ROw2CIy 93e5hi0OV1OXxHcBl2K4aE1IOipnqE/6+HUDncuZvxN1HQeSMzZVeT2FwGV/ rC7KvoHC2goG10kCS8rfCN3vZWDuR7P5zfRnME57FUg28tBkoLK0a30PsE+O 2fWNZqKsOZPGoPaCdjzhUvY6CzOmaY56E71g3eDaYyPPxuH6G75qz/vgw+RH jtGqHHTjRTFq6/rhfV/Qzi86fPTQYH84WTEAKVVSIxMQoKdk8Kyg8Dkk3mNw ad65mJhdV8tLHIRjLOOVM2Z5aE/NG0+LGgLnNayJpKY8NI0jH7n6vABvSfWz NId8XG3Rwrm2fRiy8nMoivZ8TL1SvLTHZAQ2TCjXJHsWoFZ0ZOk0dRQkyyUX 04YL0HJ+TWt4wih0lqyXtYQW4o+q040DH0ZhyqjfI1ReiBlmXIHSiZfAqJ/7 KiL6JnJvm4WVDL+ErocFu4tVi1BQtmQdw00KqXfLcp1SizBKabDJtkMKmauY CXrritElMmb3CrsxeHpxW6H77WK0CnEta6waA/pI9qDCTIhv7ulT39HHoa80 Lq+tSYjiJEMb5fxxKPBujfnG8RYmnJk9PLBCBrk68by7HbeQdr/Tn35JBpOH alkJXiKsj5O4+8/K4MBp7y8tIyIUOGsMH/0ig/jlDmpaUhHGaXsGei7I4LbI XCt4XIQs8fB5p8UkUKVLt6pPirBRPllqrkaC2P1+MHtGhA+CKdSFtSTobqEN KZQJfOhlUsuzJuEvRafYwIjAYsOwXVeZJGiki1vPGhP4yz8V3ZdYJOzcXNz7 mE6gQ8a2V7G2JOQExM5EWBDY2r2T5reHBNf+TUaNTALbHb1OmXqRUFVzMcvD lUBCk//Z0IeE0YMcYck+Ai+RIxf02SQsmzlaPb+fwL2JJ3I0fEkIMGJ03/Qg 8M/fw9rmAknQ+lWm+u4YgaWplQcUQSTYM7o17PwIvHxEMfImhIRwSd33PH8C nWfPKaSnSehQu442QQTS2xvihyJI+CQ875IWQuDXWYuW90aSsNEuyGfsFIHT AXaZT34iwX300EnLcAI7LZP026JJOB9jG5XMIfBfHIJXrA== "]]}, { Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Dashing[Large]], LineBox[CompressedData[" 1:eJwVxX1YywkcAPBUWq6HJ0elTG5CRqUXWjR9v/aLSltvwq3rhazohJxSoVyt C+n1sBYVnSsuM13pvQil30pC3nqbyvbL7mHlLtH73f3xeT6M4MM+IZoaGhq8 //z/bdW50HWkhxO1u1roNfumk2PewLnzbAvw9Vhv5Sk7A2ZPYyd2sNnQv/WC mbFMDNlhW+xYbC6sekiYTpM3wNt+Tbs52x/cEy5fHiarQEo3XfIdOxwCdrt0 qUgSejOMnOnsk0B55sVS5BuIdLuwy4SdCsUurjIF+R5+nznZbxSeBwyHRMf6 jjEQO5WYQnchCNqZzelrtXDFx705mT0SuPSnW9G9HXPQVmBYPLyxFOYO8i5K NfTx+LjOp9uPykEhO1qRuGQBLjbXfHMovxr6ZLar58YZ4lX3QCVbUA+8PW1f Xz82xlCumTozsgG82gQrb7yjI/Nu7gatgAfAvrlte7bpd4jOPWMaKxqB7tfP 6ZUy0HUrl6ejaIKyF8oggmWGcefvR+jJmkHea1+k3b8cdT5P6uamycDXWyfX 9dBKrCvYdMQiphX8ty+rHaSvQkGLNLyR3wamDAnt+kMm7qZRPYMm7bCaf0dL xVuDTS5Z6bMTnkLr0jnM5DEL1BZ9q/IXPIMKr56pwjNW2HlWtOaO33Mw0Z2O y6Rb4/XaUlYGtwPK2xoXyIet8coXm+m1Vi/gGLlt1scKG7TsLJM8XfYSfv4m WvhHmi0qG8UGLNorKEkIDjDfaYcitYErY/AV1Mq1PcpN1qG8/mKwXtdrmC/k dQwPrUOv7BhWbd0bSPPfUfKxYj1+bxg48mNpJ3jHaS0Tp9sjv6P7eP61Lvhb uL/YJ5iFSZfqarOTuqHqXmrKE3MH3EK7qsiM6QGSs2vmy5QDWsdTzZ7+vTA1 3tc60LQBF9o1Rf7qKId5OYzbvWc3Ynpa0ZyXlm8hLF7XPDnQEY1joyRqWh+o xNLRoeVstJ9eRP6U2Ael4+N+tEk27tdVN3SO9EFBlo5RX+MmFNlk5GuG9MOB eTIVedYJM27ZRNyU90P8cxvvoCDAfOnspSyvAehVWpz5YQFijGb3fU7rAJjq LLQNPIXoEXXSTd/5HXjk7Bzcr0LccNBT2nDnHeg3x7j6cjfjUKUZ7ZOVAqIX qY+KKjdjzWnmJu0CBRzRJtyrF3Mw8djErk59JfD3/mOpiOOgQdWTUKsUJVDK 0a6Q9xysj+/wCZ1Qgo5Wlx3pTmA+z1AeNKWEzbOcxoQ8AuPp/DD+jBJOzBTc BU8CnWrkp7haFKgnwtwqfQhs+KyS2OpR8HpkLLCIT+CDcA3ajAkFNyjjlKR9 BD7ys6zN3kiBWwu/D4UEFjEjtmaxKRCS9YWTSQQmfy19luJEQf0jxoGqZAJd RA7v4zgU2DxUfV6bQiD5jDAQbKPAuC5Wb2kWgS2ufoet/Sj461aO/VQ+gcVG eeNMfwqWS6Ymqq4SmEK9/cUskILA4j33I38j0D0pJNcwmILnRUzuh0ICH9+L kE2GUVBzpXpPt4RASXqZ7+gBCkbylphnSwlMDRh9O3SQAqvchA8+JQTyJk6M Dhyh4JrYLbqljECrlrsJPUcp6BXdYieXEzgvZ9bcV1EUGF2cr8mpJFC9z1nc Hk2B9/mo5qkqAp/YnzaTxVJwLqsztbqGwH8B0hJNVg== "]]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"t (days)\"", TraditionalForm], FormBox["\"Energy (J)\"", TraditionalForm]}, AxesOrigin -> {0, 0}, AxesStyle -> 14, DisplayFunction :> Identity, Epilog -> { RGBColor[0.880722, 0.611041, 0.142051], AbsoluteDashing[{4, 8}], Thickness[0.005], LineBox[{{0, 0}, {0, 12415.73033707865}}]}, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 600, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{0, 0.7023664325916998}, {0., 22049.32240872096}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"Benefit\"", "\"Total Costs\"", "\"Costs for standby \\n workforce\"", "\"Costs for continuous \\n removal\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Dashing[Tiny]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Dashing[Tiny]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Dashing[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Dashing[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", "Tiny", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.6732113368115187`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Influence of trail length ", "Subsection", CellChangeTimes->{{3.6632816505483303`*^9, 3.6632816635158653`*^9}, 3.6632817390422583`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"costsVsTrailLength", "[", RowBox[{".42", ",", ".5", ",", "1"}], "]"}]], "Input", CellChangeTimes->{{3.659429965998932*^9, 3.659429985585074*^9}, { 3.659430422191533*^9, 3.659430428347924*^9}, {3.659430495041051*^9, 3.659430534944667*^9}, {3.6594311175317373`*^9, 3.659431121801976*^9}, { 3.662233498803541*^9, 3.662233502820519*^9}, 3.662233544135614*^9, { 3.662233603580777*^9, 3.6622336266605177`*^9}, 3.6622337992816143`*^9, 3.662233862948403*^9, 3.663029214732048*^9, {3.66941782199181*^9, 3.669417823087142*^9}, {3.670095170953068*^9, 3.6700951872418013`*^9}, { 3.670095533574609*^9, 3.6700955493275137`*^9}, 3.684329251759843*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVx3c81Yv/wPGDI9mbI3LNqCvj2MV5v1FmysoKGeFjj4SQjFRSuCqUHdIl o1ytWxRSaViZuWiIyMg85PD7/v54PZ6Pl7RniI03M4lEav5f/69MBqO0ULKL lvg2xcXplp2eSVgFexBRCzkbVdVOqlY0689KGYpEE4icOj+rUHWStkVuOcSd /gqYH+usbby9SLO/MWe9jeiAwX04VTmeQ+sTSa/aKu6BGF7F0qqxUhqzh5zy xpV+OORXKjwgVUPbW/Wkjh7zCdRHFkVc/RpojstW6su+o7C7Q22Yi/0Zrblo cSi68jPwSj60JG020/pbaRKrxV9herFnpWfXa9rPH6mup3LGobmFTcqU/IHG zNtbuHhlAqiCIX/fsuymUTSkxsLO/QC1wjvSVHovTdkpQHo+Zhood+/FbbAM 0Q7EP/AMDpsB2+GaAe6TIzSnUqayn75zYCvxiflu6Wea9onb4Zq182DWSHrm bPCN1rxicTWi8hdM+y5/PSU4QbNM/VVfX74A/U9DBvp2TNEGxHM+LhQvgrPZ w4jDjjM0rxq9ZbX8Jbib7T9h4zNPm8UvwmE5y8DE4xl6RG+BxuKz12Huyioc YRJbVNZfoaXTu6OUU+kgcbg6tZWg0yhp0blB59bgDpdpSea9dZpyXcvgdMxv SNFOKhHO36I9NvRb3xO5AfJ7mvq0/mCCA7084v5hDHgeYOFVcJYZnNedXCZ9 t+CHYHZkTTArhLedbbyqRkIOC062EsY2eJTRfVi9loRFeSZmbvnbwVAmOiS8 kgkrxYX9nrNzwcXp9i1+RWbU36dpXjHADe//2Zl5r5wZbfVtlocf8oKjSUvd fDELag68GRjo4YdCPhGDTEkysnfoTxkPC8DXQaJLJZ+M3aJd0WIzghAcyLMQ nMOKSrVT1F2KInDuLyf1mStsWJXj+caXVRzane+2XObcjs8i8yxTbCSAV27L Vil1O9rN7K46dWcn3HxQFhFwjh2/V1N3JGpLQe2nuYYfMZyYlVtaLaghC0tl hsapdE6sn774K39TFvYFX+9TjOTCV8Pelc/fy0Eraf+qbxg33m//mjB7ehcM yZ/X+e7Li2yGJM5Ejj3AkDs3KjLPiwxNY5avPH8Cn4BBi6weH7r9o170haIE VH7wt2vlQ1rNeEivvjJE8+5/1PCRH3PKA+h/+KgBB+8Tzg8UAdzmsY1TdksN 8nh0j393EUDTbKMKnjwqNHJrbxMdF8Dp/7juVX1SBzKXul30siBOpsg+s0rQ gmzO+xWZukJo8TqG86eqNihwqv2+c0YIy+b+S77wTRvMOVRuDbIKYyFnsm67 nS5kbv9zfp+ICC4yKWq/c9IDCVbZywwtCtrPdclxxxlADfnWqHAsBWu2Dr/e /GkAQJZWV26ioJpjYXXKcUPwZPljyM1EDFVHfXY7mhnBHSZxxecOO/Cy53SX mupBUN8UaE2KlkCzp9e/NlmYQSvjL9G8pxIopcF94VqfGdgz+ALqSTvRSYhM 4fcyh+gNHoFvF3eiYRvde1uiBTSuc7gfvCGJQztbyaQuSyiPZdpkcZXCtrMF Yjwe1pC09OryhzgphN7Z8PAaa3APShe/kS+F/j37v2RvWIPEcXFd5WEpND3i XyKdZwNZhpoRjseksc6radDssy2cZfebuuskg/ePsmroZ9mDS5LK6ajTMij6 0sOve9oe9v1eZjO8IYMrMkELe40dYOVnknz/gAyWSLWf0WU4QGBnvjuToyzK Znf23I1wAqeczr6j9nIYxRo7ejTVBbT4crylIuWwK+qFatycCwilui5NXZfD eoZ2frC9K3TGTPEn9MphmA5D7vEuNzB2I1tW2snj8uG0otnO46Aur9OyabML FQZYLgre9gDu+qLaiiOKaOP/RYU71BsiRdZyu4MVkQjZHvGrxhtGTtskMa4o 4qJkS5ferDfUIetR23eKuMHnHcQe7AM2H/zXN0134xKH6K74cF/I/aF50N5w Dzb43NRZTvcDGal3Q2RNJVyS8/TjEw2GtGT5VhU7JVz0Iy1JeAXD0vf4aueT SuiYUUi/VhsML6vVEuruKeHIi4ilV2YhQOzPkXdR3ouulLQ7hQahUG3vGVqv oIw1mm28BilhkG+8wazGrYqtN6Wz/taMAK7j8Tcpkqp42Zdcbe8TAXFRJCpJ RRV182ScD+ZEgMsdskeHlSqa9FAfTaxFgAQHd1PQNVU8xuSXb9h8CvLf74yt FFfD9GUo8DgeBQV2sCi7h4os445n2t7GAE/Qi0uc+6nIZvZTu50cC/EpRjKL FlQUa2D6yE+LBbcHJtbNQVT8InBkNfBeLEhSrGrd71GRUq7cZ5cXB4Wf3AMK dNTxGJ/r3vXYeCj0TPoqYqKBjbeNPFJ1EiF39UL1f/YayGizt1Z0SISrl69E lflooI1g2rPxU4lw8UEuJ/W8BoZIj8k9rU+EcI5adcuXGphmvneyXzUJjO9/ Sk420sSZtW2MTtVkmGXSlJsHLYxUfJKyYpIC+iUTJ97o6GBOZ9qpoI+psJTf bP3FTAd3kF9+ENlMhcrcAtpvZx0MOajePq5wCUQybSl7z+hggLv/y6XYSzAb 3/Q284UOEoy/8vvl06DYJYfqaK6L/xkq6z1MuAzMFBPSxLF9+Pcklc5nmwGv 02/nkc/q4eQ1++Thhixo3WpveJ+hh2fbXz1m78iC56FzHdnFeuh86cq02WQW PLTRIe9u1kPVgnxLFvGrcFukPdCSVR975Hd7OSdeheTCGf3sNH2k6T65lG99 DWg1GmMKuTSUN1WA86RsGPLxyCp3RJTg2D+WnXsDikSPK9RaGqLQwrWkiMxi GCpiF2UEHkApN/tKBeNy8Hos66BGGOPrhVvfKo0roSA2EAOcTFHGoOmRREst WAp7nvsRYY6CG43FLGr1YIGvKIcDD6H8peITwzceQJPhINvqlcOot7y1GVTx BBZWuDq7bawwNlDIwovUBErC3gcKDlmj1fSFEcH7L0C6SPB76jEbfNhw698/ jFrh2a+1Wj9HW1ROb/Tu6W0DoTqtigB/OyxXH9wz0vUGWpo5ToZGHcVvvYnS pYvvYEehiC8Rbo95pez+amydoDQefTEpyQE/0a9qj3V0wfiSQHdGgiN6Bkio 9mf1wIrjgfmi007YOe2gYnSiF5oV3+3vvuCMYiw28Vej+kHzRVrtavIxTLu1 thKeMAheL0us4LoLvhvNP5nd+Qmmdh5pSy1xxVYdYRF56ghQQOPEqzw3LGau uCtoOAZM70JUFKqOY1TbjzKVrM/wOjOMX9/OHQs9KMz7Br/A0/HIZd9Od7Sv ihnw2vUN0kMV5mUdPFBOh84qVjgO9aOL8YMfPZBM4XvMzzEBD84FyEm5emLr /eExn9JJ4ObZcnUf9sTp2cK1mypTkGkwwiTj5IXV5n+2wItpmK8knkaMeaGf qI3Th+QZKKPzcL5wO4Hza31CPlpzoBnnHlo4cQJXe17GE+nzsPg3AxhB3hj2 5oczX8ovID99UHp02hthTNpUP3wBFlnEJeGkD6ody29WjV0ETdU8JZkFH7xu Yrvx/fQSlG7zLT8f7Ivc+hxaaTHLMCcwohG37ItHNHiM3ueuQAZLmGPASQKN 9M5yHapahQPMM5UFpwgMnNpck69bBTrJj9ERRWD0B+9IUsMquG+639KII9C4 bFX8YeMqUNesfjLOETgRlLnjz+5V6JtVTcjMJvDM3NPJvWurIDk0X9HwmED3 fbu/FJrQoXsgcH3iXwIpuRfqLx2iw4X+yUM7GglkF0ehKGs6zH8c+xXfTODu 0ffJ1sfo0NzRud/07f/+9HNx7hA6+Lys6xgaJnDwtzS1KJsOO1qVZLhHCVQi Otav5tGho/lOBHwm0F+Mzza1mA46z4vFysYJvH7J6f6pSjpw/JvpFTRL4Kxz qNLRRjo0PuZ6UDRPoHmpePjhFjqcfHRxe/cCgeWVkSamr+kw3JBQrbVKoJCK eYl+Nx0y/9nYItYIpL96I6/bT4eD9dE2eb8JPOvAtk9zmA7r95bK3jMI3PDf NqL2mQ41daGrW1sEpme086t8p8P/AWySiN4= "]]}, { Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwVi3c41Ysfx40jskkcM4lQiGNkfj+fEGkIycrKPFkhSUgyuiQjZWWPKBVK uKpLGXGVSJmVjMShZIXo8Lu/P97P63k9z+u90+WshTsTAwND03/7P6WS6cV5 Eu+ICIE58/TbB3WNA8q2+lIrIcMHSGKLSJiPKiTLURvBu+Q1Z1uGG7FJaj7K ldQGDvN9bKbLFwmrrJ/mW6hdwNRaLCHPEk/0CSbd3yx4D71Kg0lvu24RTKel lf4k9sOQ4qulown5hOL9p1WroR+hUaPOeMmrlLD5Zab6y/ML9HiWVJ3yqCCa 8heHQspH4VaTxZHwsWqiv4UQWykYB8n6y9tcTOqJ77R4h/MZEzB/S+y0u28j wcTTm7eYOAlaQ5SJD/LNBFlNciQghgaCNzvKLjO0EUq23jvnQmdgFFxZVnRf E4YRtS5+AT/g1kDEP06jXYRtMWPJd8+foJ+UGDV6oYfY71YaqF45B1dyNLrY 1HuJpuUjN4PK5+Fqi67GNvkB4lj8fHX1nQX4PhV+/KvlR2JANOPDQsEi5Kr2 tlrVDxOuFbq/VHKW4Muq9o28vaPELI5tD8j4Bd9CwolHQuMEs4ei9c/EFbht nezz9NAkkbTac0EpfhXmdm/OeifRCHJCSKZvzG/Y+kfcrXphhlCqah6cCV2H 4hTmC0rX54h6/TNre4L/gBjFupvyY54w7OUW9QqgQ/8bpQk5x0XCbs3Wfspz E4oEDAtj/ZeJwFeXG26qMGCQ9/CT/fyrxN/JPaaqlQzYeiv/fGDLb0JfKuRs YDkjmg7Qx3hO0Ym4mY5NPjkmvPfd6mEdbBKdT8RTHt1hQn8FEa362wxgY9xc NVfAjKSVzzTzcibI4xU8kCJBwnVjX2XFRmYYH6S+25dDQjGKw8y7TyTw8+Fe 8MtgwYTpsPwnFFaIuWGr+iORFaOTrPaFHeaEDrsHzdc52HD9qJoWlnEBj/Tm CYV4NnxsYW2gz8UDt2tLgrxjtmLjYNaVrDVeqPz4s4YWyoH82/i1REQFYKlE 3yh+lQOZzCmCcj8FQNsvrU8umBO5yor/ZW3fDi0MOiueAVxonmj21jJOCIZk rmp+8+TBzGUZ+r8GokCXjvkiOMeD6t7dF6mWYsDLf6B5ly4vxlxLlp/yEgcK H3hZtvAi5zUpvrJ7OyCER+fvmg98yPZEkC1gvxSw8zzleEvmx+aExsmSfinI 5tZy+mbPj3qXZU2/hu6CBq79W4Qm+HFI2D84tUMaSJyqliG/tiHPccl+5mRZ SOd4XJaiJYBZWXKdM8ZyIMuhsn73kgD2BaRvWWWWh8Ps+4oGWbYjS8IW/vjY PZDCtndOW1AQlVU8KoYrFEGMZdd1ugYZF89T6e6mFKggFX3ZHkbGf8ST3Epb KACknapKjWQcCZgnJ+uqggvzjiFHY2H067dKcVRRg7uMonIvrEUwM41ECO/T ANUN/paoEDFUFi/6zReuDS30G0LZz8XwaeO5tz5cOmBF5/WuZhDH8ZbO8OgC HQj5w83/NU4cF0z8N6Ze60LDGrvzwSwJVF5jOvlkP8CdMMYNZgdJfJNntVeK og9RS23X34ZLIqtb3035aH1w9k0SzcqRxOd6FOG1D/og5iSqpfRJEr98zVZY DTWAVH31IJtTO9HErFstqNsQLm89M/3AVgplfHV+thUag33UvosXLkrh8w7+ z6mbxqC9/otVP0sKiWtJ/oqOh2D5e5RM/4AUSv4uIr8XNwGf7hxnRptdyCu6 YTBTehhsM7r7TlpJY5Yyg17JyDHQ4M1wlwyWxmC/tfMZR0xBIN5haTpNGqsx zdm5zhS6Q6f5Inul8cir0oagG8fByJF0rNxSBk8GfR4cKDMDVRnN5g2L3Ti+ XrnkHmoBXNX5lWXH5dCl+HvvUoAVBAv+zuzxk0Ot3EN1ndVWMHzRIoqeKIcO scnX+JetoApZTp54I4ftTtqFI2HWYPHWa23jkDwOkaYaU6/bQCZN/aCV/h7M 0TQZOttkB1KSb4ZI6gooUUoU8FxxgoRomZZ9lgpoqv6Vr7LbCZa+RTy0O6eA ITEGsU68ztD6UCWy6pECmpA6E8mnnYGqkyFjr6SIt1r8XiqznIaHVi7+1bJK 6LVHIJ/NxgVyjP4wqXApY/G8znqHnDtwOkXcJksoI59BccXLU+4QfoGBwrBP Gdnv7dhKT3IH+7uk011myrioLUzSX3YHMXauRt9byliTxmPI2u4BOZ3iYeWi KmhPbziSEkKFXEtY3LWHgnFcdanS3D7A7fvyGocOBcNYDDT6THwgItZAavEI BW8yLs28jfUBx1pj8yZfCm7MPu5P2/ABCbJZpfMjCgoJhVWHLfpC3kdn71xN VZz0ve9dN30W8lyixgWN1dBcuXSjhjUQMlf+evjZSg3z25PMWmUD4eb1xAsl HmoYWGCduGQcCHG1mRyUq2o4rmUx/jguEALZK1WPtaphtnZiUyXHOTB6/DE6 2kAdAytemVYJBcEso7r0HGhgUk7A+LpxMOgVTrr9q6mJMRV2/Xs5wmApp8l8 zEQTw2bt3Ts0wqA8M5dYt9NE9fkTdikuYSCYcoKseEkTHzgeyEx9GgazEY2v U15q4uex3XoBPuFQYJ9BsTmshR+Wxr7l9l8CJrIxw+QpbVysn6UtuUdCe1Jp NumyLiqKuxYupUdDy2ZHTWeyLkZvT3hq9igaXvj/7Eov0MV/zrlWv3gdDXUW miT5Jl08tHnA/BNDDJQKdvgcY9HD0VSVLCafGIjO+6GXnqCHQuqgwm0UC0SF 2ohsJoFpZ5JX9m/9C4Y8TqfesUH827nbOfbNNcgXcpKtPKaPB+7Nsj6zvgFD +VuF6D6G+LanwljIKB1c63dZq1CN0K6jobAtKhtyw3zQ2/YQrqztb80pKIBj 211iaEGH8d5wzYkJoRI4gm1kU5+jmH0x8l3TvTJo1B9kXUk0xdYM/feCU/dh YZmzu8fCDFuNtBofaFeBwnZ3w9yj5li6t+XB8tXHsDN/27f4Uxa4fueG0LhG Dfwz/7vyjM0JVIMxrYSpOhCo0ijz9rJEPzaNl5fYnkFzE/s5/wsn8fEdB7u5 4w0gkifoSQ20wsXBlhxS+wtQmAiJi4qyxh0pclHypU0wscTfkxxpgx8WGNrN I1pg2cZwLv+iLU5uv8KY6/4KmuTe6PT8ZYcK5FGYuNEO6i8TKleiT6FHXDwn VHeAa2uhGaTZY5B/gabGjk6YFj/+Kr7QAfVubyV75XYBGdTc2rIdcaL2yMH7 LO+A8c3ZfbL3nVA+faUt1b0H2lMC+PQsnXGjtjBt/dl7eD4R/Muz2xkTu8di O8m9kOQvO7fL+jRK5XcV7Cnqg+ovixGDH07jkw45XmLHANTGeEtLOrig8kex +12vB4GLe9PB+ZMLmmduMSzy+ggpB4YZpWxd8STdg0GW5zPMlVOfB4244r8D 2/6MfhuGklVujpeObijgRLAuWo2Aerizf96kG75n3HRNPzkKi/foQPd1x7bp AwW91mNAel5bfHLmP8+OG5E1G4dFZlEJOOeBEmoivUnuX0FdOVtBasEDR18I 2en5T0DxFs87V/08ce9xCcH58G/wk39YLfyXJ95uE1kovTsJycwBNt7nqOhn X83K2T4Fhkw/ynPPU3HEZ6eFZOcUrDKcoXddoOLucUWKes8UOG84F6mFU7FB RKXa+dMUUH6bfafHUBFOHa5vmJuCvlnlyJR0KnZeEhhMF6aBxNBcWU39f/9g hyt13jToGfBZm3xGRSn2r1eH/WnwV//UUZEGKjLaXZHaEkyDuQ8j8xFNVBSW 4xGzjqRBU1e3zqHXVHx4eITMkEYDj9aqrqFPVHxvkqfr10ADkRYFKa4vVBwI N7+T10yDrqa7QTD6X69tXdLVTgPNFwXCJRNUFNc/4676ngbsz1JcfWep+G6M Z4lxigYN9Zy1+XNUDO1u5Nn/gwbn/o5j61mgYoHwyEufBRp8qol8qLFCRZmi SNrgHxqkPPmzSf1NxY8WbE58TNNwsDrEInudis8O8HibsE7D2qOlkk46FXt2 Z3FFcU5DRZX/yuYmFZfr7xk945uG/wHy4pHD "]]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\"Trail length (m)\"", TraditionalForm], FormBox[ "\"Energy (J * \\!\\(\\*SuperscriptBox[\\(10\\), \\(6\\)]\\))\"", TraditionalForm]}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Epilog -> { RGBColor[0.368417, 0.506779, 0.709798], Arrowheads[{-0.022, 0.022}], ArrowBox[{{180, 0.6406280843011339}, {180, 1.2237475151087855`}}], { InsetBox[ FormBox[ StyleBox["\"B\"", 14, RGBColor[0.368417, 0.506779, 0.709798], StripOnInput -> False], TraditionalForm], {185, 0.9321877997049597}]}}, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 14, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{0, 200}, {0., 1.5561972327204532`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"Costs on \\n uncleared trails, \\!\\(\\*SubscriptBox[\\n StyleBox[\\\ \"E\\\",\\nFontSlant->\\\"Italic\\\"], \\\"UC\\\"]\\)\"", "\"Costs on \\n cleared trails, \\!\\(\\*SubscriptBox[\\n \ StyleBox[\\\"E\\\",\\nFontSlant->\\\"Italic\\\"], \\\"C\\\"]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.023999999999999994`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.023999999999999994`] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontSize -> 14, FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.673211378269734*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Maximum sustainable ", StyleBox["u", FontSlant->"Italic"], " Plot" }], "Subsection", CellChangeTimes->{{3.668837734133937*^9, 3.668837749636921*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"maxSustPlot", "[", "]"}]], "Input", CellChangeTimes->{{3.668837756502243*^9, 3.668837769647937*^9}, 3.668979547413157*^9, {3.670095560512042*^9, 3.670095561775186*^9}, { 3.684329257022904*^9, 3.684329257486841*^9}}], Cell[BoxData[ GraphicsBox[{{GraphicsComplexBox[CompressedData[" 1:eJxFmHs8VPkfxl26WJSSFCv3tSJ00ZaKj5JKQqhIspJWRYlkid+WXDaXROQ6 Wfd2sYVFkuRWLiXXGUIuczPDMBsphHZmftN85h+v8zq+53w/z/N+nnNmVFw8 bc6JCAkJiQsLCXH/Hj7HaK9mHjcKrm7OMC1jg6sPWy5cLh4cXHcPWt1hg1i8 Wca/H7KBc5B4WZoNT9q2Hjyo+BhW6hQ/YD+cAPvg/t66yBIwFO/OumI4AZ5F V3WSPj6FpMvSnEuOw2QMqVFY+AUQ6pULvc+PQ2PNqxete2rhNeduUwssuOBv tuIkqx7mfrtY6RPHgprvtn4tuNQAnRYuq+wNWJCbVb8o/0MzcK8u3j0GxrLP M20fvQHOxWLHA8dAp6G//JVWK4Tvdaa1qY5Bl7HtxF8TbcBdXdI4Ch7i7h3E zR3AO/Qdhdc9ds9XRndC1R/yeu/VR8H2gP0wldoFl0a+/PWhgwk/pUfapauT 4HvO2WVBTBhajOs6f6Mb0tgPX5nvYALNrDVLtq4HVHgbYEBh8qB/u0ovtH62 peSkMiDntmj4xut9YFOuGDpmzYDpsw6jvzzrh7wPHZyJGCCxP8ymaN0A8OR7 NQKBq2iSw46DwPlnzooRkKzSFuq2GALeafMRMPS1WqibGwKevOIjQMiOylIj DPPno4PTcf2W78zJUGEmKaL9Ox1Kiefiqj6RgTeOBR0M3hSK0BMoIPPo4PB1 GToom/4yHbefyp+XBtv1t8eW0KngybUrgwaDk3easkJpfL9owNpmHSq3lQ5N vlzFaKAxpjMq3Enn+0eFevVrHVeCRmCGO349Fe52Ec/aqDP4flKBbVsdK1LP gHnudlyoUHx8rYmBFxMWu/yYGluokNUS/IAsPQpCvA8VPjc4BkjXjgJnGNl3 bykwFPtietXlMVhygkscBT6175a7tZIFfbPcG1DgSrxqtX8lC7hu3TehwLoW 1VVUp3HgmM3ZMAVsiQXzCovjEOnBHZgMkz9nePTnTfD1I8ML58ehK4+wwYC3 gAyJShLTX7+yYTcPeDIEB0X6RciFwLd87LLcq1u6mAbc3X22ZcP+KS9CbQgR 9vNuwITIVqmEJR0kaDDfwUGSCQW3JeYrxylQw10+RYO8SguT7PtUmAiE7U4V NNA2Pm24PJfN948M1al12+/I+QjuZ3VmvbpSVDJwp4v0YMMbBVpVpz6Rv57D 55MWX5sAEnjxAsgEby2nG9a1FOCqv34JHWhCDgoKl6j8PNLg2tGwYXF/Ntyt ndZ0vEsGje3bT1hqRAMPj0dseN606F/URYSUZO6Hk4cR69IyzW44xD19kAl0 ermfphwV1nHHp9BgWE8/WbSTDZzwcSwhQ++oqFJXRwI/n2yIKVI82i9JhDru 7WqZIFGwyW3WigQHOPRwEIATActrUgsowJ3GTJIOImpDYj32yGdKT8o/US6c XuIZQoZjp5zdWErhAn1uOu2UqCgg8vllgnNfYc7pBRJs4BUYE5p2uFR4i1KB xY3XGA2WlR9yD63E/dZ3b9p40ZQAW8QKFBxcOX13O1/ntSMR5HjAMaGs7nJY fi6JnwcmNA506jkHUfnz0OBoo5dU+F3UM3B5qKp9QiyfVzbM6b9k/DlPhJfc 5bGc+acm66WOdcNVrjzABNEEqR0DulTYx62vPhpUPlRqCGKy+X1Fhj8e+xN0 fe/z+4ENkwHPkoZmuvh+MkFZw3HwyC7sq0a1/uHqDNRztb7a11JL1LNAIYdg YYd6ekxMez4jhAn0JGsSbauSUE/f40MbikZIMMmtL3sm7Br6qS9xBnleP29z 7EAR8htByMytZ6QIeL1oc8i39RDy+towbXExBvUksWU1jH5FPV0kA2fMQlBP sfbW3BfHYoCHWw4bHL+e2fI3A/VUvqRqeNYI9fQxotqJqiOfb8c2Fu4bQD1l NKIz/PWS+P3BBt2RoOU9ysjnx9UPpOdcMC+342OaX19CvQwbm502ZEUK9FKM T60trca8mJ8J0hFf0y3g7+NVo1v1DcjbV+kn+VKZD8CRNyAb0s1gpX0l9sXT lhiDW5HYD0YhbhqNKahv0kXN9OxVJPiX+zgKZ8Inv7ojlRfw+XRvfJfsUwPk Ke/s2oHqjzi/yD39vr4GfL6rDn/3nDyBPGlTrqb66iFPQn4HvG0J+PwoM9Ja /cga+3JNtJpfdTT2303pmXe9/cjLVf0Md60p5EVVsacxNx/nYf12mua1C3lJ fZKQ0m6EvJDmSis0w7DfnPx2quh4Iy+p7qPtdLe7Aj6iXAuPPx5APrS1ds1G bcP++vueJeO+IvLRs+KxelYP+vOrmNmQRlCioL9+PtKm3SuLfASkVK1gnkY+ YsvWwqbzyEdj7FpKyJkI7O9ZJv1JGebphGIyc5sY8uEy7TVaOUUQ8JC/zK45 qAh5MD5RrO8VhvMezGWlaN7HfDS1+tbnLkMehH7qE6M7YR6a9+bkmusjD/+E ptiosJGHGtlLPgMiRIH/shf2q6mZYj/fbfWy1n2IfZI1p6Q57ojzFtWF6VVm 4nzuSY1nfp9E/0Wi3hxeukgR9K9Ub8sgrQz9/7FixG1dYqqgfw3GZ61bbLB/ q2+G7SOmYl9YuU1rWQWiHtopa1bkT6LfsoXiQQZmOP+eUf+GKxvR75dN2bvJ FJy/2KTT5c177IOFoG0Uohb67REesE7iPPr9m7fECferOH/x4o3eUmqU4Pk5 oWuR9k8z9oFx9gWvoQ3IX0LUjza6DejvVlNPo7gYzLu+C7nILR31cVvaG5Ap j/6OPcuPueeDeT+Z3BaqAehv+t6YC85zON820XvXi69g3ivWbGmlMPF9VyEz oIKQjPmuaPUwH7DEfBdUH46oCcd8L/sgWu7Zjf6eeleT9Pwm5jNzT1Natifq 5dwmFS/fgO8X6ondboXvUJ9CsQPdKrqoT3/aB6dOIubxT//cGwsbMY9VTlaR zqfw+gzt1bPlRchf3C+t4XEEzNNmmsufsgXIT4i8STEjGPk5skOPaH8P8+Qi kkZ6KIx6h8mM0K+fRJ4czOLDBhewL1MPHhUuB+zLf327QGEc9VEsE46z/IL8 y7ivkpctQX/ttU2XTwDy36Gk4vrWAvvPXuaxVIUG8ksp2SySFYa8JpQ4TJN+ QF6DRS1jUq8gn35ncwhME+Tz1a1rVtfWY/8I7RSOzlqL8/rWLX3ruQd5yuno yIr5jDy1KXfvXqp0X8BTxCNy3vAU6kG1WK0l/gf2RdHfI6T/HUOerp+aP/ci Dnn6so31xZSMeh1VyOuPi0S/5EseZpX6oF/uweTfTy7B94GPW8JNHlEw/7nm ut/P7ESeOgM9Rr37cP8HEseMj/YgTztJOjFezshT2avarrJnyOfmEBlz+mF8 XmtomrNYZZjf+ViVJ7O3cX/71uY5zySiv5sfWBXnSKC+AXatWtaumF9NqqnL ++XYvzERO02jD2P/0p9WBk9+xvdZ+plEkUohfJ8VN4vMKX2Kefl0KKLReAJ5 Sq/ogDd22KfK1ftv/LgJ/b3Zca1uWj9ZwJOrlWR7lx7yd3248fvdvpgPVrLD +luhdwQ8PXt5Os5cDfV+21F8IUMJ593jmWr4fi/ej1Boobd5Ab9fffv94f/r awTfv74d/wfKO7Tk "], {{{}, {RGBColor[0.88, 1, 0.88], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwl0FWYFVQUgNG55MxQ0i0MIt0gjTQqIDES0t0dgnR3KKiUQYM0SHd3d4jS LSWNEut+87C+/zyds/eJaNopsmO0kJCQAOGBqIYFos75nEN1i15jADOoy3I6 8ZAJHKA8PanGG37nHC0YSRE20Ifn/MJxatKWUkT33ir9m278RCXm0JhbDGUH eclDbnKRkxxkJxtZyUJmMvExGfmIDERQmPX05hk/c4waLKYN9xjLHkqykq48 5kcOUZFGpCe2HTbrVfoznTohUZ+8TP6kI99Tjqr8z3zO0pwRFOJTvmA2DbnJ ELaTjg9JSxpSk4qUpCA5yUhKEhKziX685DdO8jVL6cADvmM/ZYlp5rV6mR5M oQr/MY8zNOMOw9lFQdbRi6dM4yhfsYjW3GUMuynB57xmFqdpwGASEcsMG/UK fXnBr5ygNktoz33Gs48yrOEb/mUyh/mSuTTlNsPYySdE8o6FXKAVoylONDP8 oX/RhR/4jFfM5BT1ucEgtpGQD0hAfOIRlziEE0YosYM7Bv+aGESnAN/yhKkc oTpvWcB5WjKKYgTMt0Iv0plHTOQgFajHdQayNbgPtWjHP4xjL6WDM7hrtV6i O5OoTBPyU5T3Bi6Bgw== "]]]}, {}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwl1HWQF3UYwOHfccJR0o3E0V0iDdKdRysSJ6HEkSKNpNLd3d0gCII00qFS 0h0SAkorz2/449nPzM7Ozvt+Z2fDIztGRIUEAoGYLsEW42NaUJ3JdOMym/jA Q2X0AKP4i3Y0IBq/8B03+JyKHGY8j+nEBdYR4l3FdRitOccy/qMOx5jGU3pQ kNDgDEQnBmHB2YlFbOIQlw+JR3wSkJCdDOAmTfidebykEhPozEXWB/cxXwkd ThvOs5z/ieAT9jCEO0SyiBocZQpP+IYfKcuvjOYB7VlFQ04xi+f04Srbgjua IZEO5Av+YD6vqExJ9jGCe3zFCupynOk8oydbKMRehnKXLznNYl5Tk6l05wqb g2dthnJ6kDE8pAOracRvzOYFffmZxCQhKclITgpSkorUfEQa0pKOXQziFk1Z QBVKUZjvackZlvCGWpRnLFH8yRqCH3NjmUM/rrGdMPfTazOqcoSJ/E0XNvAp +xnJfb5mJfU4wQz+oRc/UYRwMpCRTGQmC1nJRnZykJNc5CYPeclHfnYzmNs0 ZyHVmERXLrGRUDuU1rbU5yQz+ZfebKUoP9CKsyzlLbX5lgocYhyP6MhaPmMu /bnOjsD7f0MBfQe/XYFq "]]}}}], {}}, { GraphicsComplexBox[CompressedData[" 1:eJxFmHs8VPkfxl26WJSSFCv3tSJ00ZaKj5JKQqhIspJWRYlkid+WXMoljch1 su7tYguLJMmtXEquM4Rc5sYwzEYKod/MvKb5zD9e53Wc8/1+nuf9POfMqLh4 2pwTERISEhcWEuL+PXxupK2KedwouKop3bSUDa4+bLlwuThwcN09YHWXDWJx Zun/fcwCzkHCZWk2PG3devCg4hNYqVP0kP1oAuyD+3pqI4vBULwr84rhBHgW XtVJ/PQMEi9Lc245DpMEcoOw8Esg1ikXeJ8fh4bq1y9b9tTAG85qUwssuOBv tuIkqw7m/rhY4RPLguoftn7Lv1QPHRYuq+wNWJCTWbco/1MTcO8u3jUGxrIv MmwfvwXOzWLGA8dAp76v7LVWC4Tvdaa3qo5Bp7HtxN8TrcC9urhhFDzE3dtJ m9uBd+g7Cm+67V6sjO6Ayj/l9T6oj4LtAfshGq0TLg1//ftjOxN+SYu0S1Mn w4+cs8uCmDC4GNt5/kYXpLIfvTbfwQS6WUumbG03qPA2MAIFSQP+bSo90PLF lpqdMgLZd0TDN17vBZsyxdAx6xGYPusw+tvzPsj92M6ZaAQk9ofZFK7rB558 r4chcBVdcshxADj/zLliGCQrtYW6LAaBd9p8GAx9rRZq5waBJ6/4MBCzojLV iEP8+RjgdFy/+QdzCpSbSYpo32ZACelcbOVnCvDGsWCAwdsCEUY8FWQeHxy6 LsMAZdPfpmP30/jz0mG7/vaYYgYNPLl2pdNhYPJuY2Yone8XHVjbrEPltjKg 0ZerGB00xnRGhTsYfP9oUKd+rf1K0DDMcMevo8G9TtJZG/URvp80YNtWxYjU jcA8dzsuNCg6vtbEwIsJi51+TI0tNMhsDn5IkR4FId6HBl/qHQOka0aBM4zs +3dUGIx5Ob3q8hgsOcEljgqf23bL3VrJgt5Z7gJUuBKnWuVfwQKuWw9MqLCu WXUVzWkcOGZzNkwFW1L+vMLiOER6cAemwOSv6R59uRN8/Sjw0vlJ6MojbDDg XUCBBCWJ6W/f2LCbBzwFgoMi/SLkQuB7PnZZ7tUtWUwF7u6+2LJh/5QXsSaE BPt5CzAhskUqfkk7GerNd3CQZEL+HYn5inEqVHMvn6JDboWFSdYDGkwEwnan cjpoG582XJ7D5vtHgaqU2u135XwE61mdWa+uFJUE3OkiPdjwVoFe2aFP4l/P 4fNps69NABm8eAFkgreW0w3rGipw1V+/hAF0IQcFhUs0fh7pcO1o2JC4Pxvu 1UxrOt6jgMb27ScsNaKBh8djNrxoXPQv7CRBchL3w8nDsHVJqWYXHOKePsgE BqPMT1OOBuu441PpMKSnnyTawQZO+DiWUKBnVFSpsz2en082EAoVj/ZJkqCW u1wNEyTyN7nNWpHhAIceDgJwImB5dUo+FbjTmEkyQERtUKzbHvlM7k7+N8qF 00s8Qyhw7JSzG0spXKDPTaedEuX5JD6/THDuLcg+vUCGDbwCY0LjDpdyb1Ea sLjxGqPDsrJD7qEVuN+6rk0bL5oSYYtYvoKDK6fv7uTpvHEkgRwPOCaU1l4O y8sh8/PAhIb+Dj3nIBp/HjocbfCSCr+HegYuD1W1j4/h88qGOf1XI3/Nk+AV 9/IYzvxTk3VSx7rgKlceYIJovNSOfl0a7OPWVy8dKh4p1Qcx2fy+osCfT/yJ ur4P+P3AhsmA54mDM518P5mgrOE4cGQX9lWDWt9QVTrquVpf7VuJJeqZr5BN tLBDPT0mpj2fE8MEelI0SbaViain7/HBDYXDZJjk1pc9E3YN/tKbMIM8r5+3 OXagEPmNIGbk1I0kC3i9aHPIt+UQ8vrGMHVxkYB6ktmyGka/o54ukoEzZiGo p1hbS87LYwTg4ZbNBsdvZ7b8M4J6Kl9SNTxrhHr6GNHsRNWRz3djGwv29aOe MhrR6f56ifz+YIPucNDybmXk89Pqh9JzLpiXO3GEpjeXUC/DhianDZmRAr0U 41JqSqowL+ZngnTE13QJ+Pt01ehWXT3y9k36aZ5UxkNw5A3IhjQzWGlfgX3x rJlgcCsS+8EoxE2jIRn1TbyomZa1igz/cR9H4Uz47Fd7pOICPp/uj++SfWaA POWeXdtf9QnnF7mv39tbj8931aEfXlAmkCdt6tUUXz3kScjvgLctEZ8fpUZa qx9bY1+uiVbzq4rG/rspPfO+pw95uaqf7q41hbyoKnY35OThPKw/TtO9diEv KU/jk9uMkBfyXEm5Zhj2m5PfThUdb+QlxX20jeF2T8BHlGvB8Sf9yIe21q7Z qG3YX//ctxx5oIh8dK94op7Zjf78LmY2qBGUIOivX4+0avfIIh8ByZUrmKeR j5jStbDpPPLRELOWGnImAvt7lsl4Wop5OqGYxNwmhny4THuNVkwRBTzkLbNr CipEHoxPFOl7heG8B3NYyZoPMB+NLb51OcuQB6FfesUYTpiHpr3ZOeb6yMO/ ock2KmzkoVr2kk+/CEngv+yF/WpqptjP91q8rHUfYZ9kzilpjjvivIW1YXoV GTife2LDmduT6L9I1NvDSxepgv6V6mkeoJei/z+XD7utS0gR9K/B+Kx1sw32 b9XNsH2kFOwLK7dpLatA1EM7ec2KvEn0W7ZAPMjADOffM+pff2Uj+v2qMWs3 hYrzF5l0uLz9gH2wELSNStJCvz3CA9ZJnEe///CWOOF+FecvWrzRU0KLEjw/ J3QtUv9twj4wzrrgNbgB+YuP+tlGtx793WrqaRRLwLzru1AK3dJQH7elPQEZ 8ujv2PM8wn0fzPvJpNZQDUB/0/YSLjjP4XzbRO9fL7qCeS9fs6WFysT3XYWM gHJiEua7vMXDvN8S851fdTiiOhzzveyjaJlnF/p76n114oubmM+MPY2pWZ6o l3OrVJx8Pb5fqCd0uRW8R30KxA50qeiiPn2pH506SJjHv/xzbixsxDxWOllF Op/C+49or54tK0T+Yn9rCY8lYp42013+ks1HfkLkTYpGgpGfIzv0SPb3MU8u IqnkR8Kod5jMMOP6SeTJwSwubGAB+zLl4FHhMsC+/M+3ExTGUR/FUuFYy6/I v4z7KnnZYvTXXtt0+QQg/+1KKq7vLLD/7GWeSJVrIL/U4s0imWHIa3yxwzT5 J+Q1WNSSkHIF+fQ7m01kmiCfr29ds7q2HvtHaKdwdOZanNe3duk7zz3IU3Z7 eybhC/LUqty1e6nSAwFPEY8puUNTqAfNYrWW+J/YF4X/DJP/dwx5un5q/tzL WOTp6zbWV1MK6nVUIbcvNhL9ki9+lFnig365B1Nun1yC7wOftoSbPKZi/nPM dX+c2Yk8dQR6jHr34v4PJIwZH+1GnnaSdQhezshT6euaztLnyOfmEBlzxmF8 XmtomrNYpZjf+RiVp7N3cH/71uY6zySgv5sfWhVlS6C+AXYtWtaumF9NmqnL h+XYv4SInabRh7F/Gc8qgie/4Pss40yCSIUQvs+Km0VmlzzDvHw+FNFgPIE8 pZW3w1s77FPlqv03ft6E/t5sv1Y7rZ8k4MnVSrKtUw/5uz7U8ONuX8wHK8lh /a3QuwKenr86HWuuhnq/ay+6kK6E8+7xTDH8sBfXIxZY6G1ewO9X339/+K73 9+9f34//D+Ultwo= "], {{ {GrayLevel[1], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwl0ltoyFEAwOE/csnjDDOGmcs213kYHrYpFFazxhqrjbCyxVbU1myoEWrC amrNNrKFsrGixlxqYo3UjMZqpZkiW2jFrKF8tYevX+fU6Vw6kXsL0vLHB0Ew jmZWM9WgQ8/zjYM0kcEbavlNKR95yCRrQrSMLLq5xiibSeA55QxwgFtsp5Nq flLMfeJ5xmm+so93XOcPKVRRSB8tTHSGDfqCC3znELfZyVvqGOEYj5hGKNOZ wUzCmEU4s5lDBHOZRxsn+Uw29WwhkTWcYT/vucFftrGRi+TTy51g7OF3yRWO 089jJpufr7vZyisqGeIwd0minXMMkksjO3jNZX5xlAesJZIFRLGQRSxmCdHE EMtSlrGcFaxkFXE85RRf2EMDyVziCB+4xwR3WK95pNNFDcOU0Mo6zpJDDzf5 RypFbOIlFfygIBj7p5lc5QSfeMIU+/0H0D1ZKg== "]]]}, {GrayLevel[1], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwtzytPggEYBeBPELzi5Sf4G9QCFgsUDBI0aJEAwc3LZiBqMMBmkU1HNBik 4WbWjWBgmig6mQU3A4FJoqjPtxGe97Sz8y7lD3MHkSAIxtge5ZTzI695YYNb 8nxzTpNVcvxR550iFdaI6LmXHY6pkmHIDW12+eKMJxZZYJ45Eswyw3S4jUkm iBNjnCgrlBhQ45VNfrnjjQJlUuGv9jXkB0f0uaRFmh26nPIY/sMW+/S44Jn1 cIOuB/nJCVdk2WOZJP9J1yme "]]]}, {}, {}}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwl1HWQF3UYwOHfccJR0o3E0V0iDdKdRysSJ6HEkSKNpNLd3d0gCII00qFS 0h0SAkorz2/449nPzM7Ozvt+Z2fDIztGRIUEAoGYLsEW42NaUJ3JdOMym/jA Q2X0AKP4i3Y0IBq/8B03+JyKHGY8j+nEBdYR4l3FdRitOccy/qMOx5jGU3pQ kNDgDEQnBmHB2YlFbOIQlw+JR3wSkJCdDOAmTfidebykEhPozEXWB/cxXwkd ThvOs5z/ieAT9jCEO0SyiBocZQpP+IYfKcuvjOYB7VlFQ04xi+f04Srbgjua IZEO5Av+YD6vqExJ9jGCe3zFCupynOk8oydbKMRehnKXLznNYl5Tk6l05wqb g2dthnJ6kDE8pAOracRvzOYFffmZxCQhKclITgpSkorUfEQa0pKOXQziFk1Z QBVKUZjvackZlvCGWpRnLFH8yRqCH3NjmUM/rrGdMPfTazOqcoSJ/E0XNvAp +xnJfb5mJfU4wQz+oRc/UYRwMpCRTGQmC1nJRnZykJNc5CYPeclHfnYzmNs0 ZyHVmERXLrGRUDuU1rbU5yQz+ZfebKUoP9CKsyzlLbX5lgocYhyP6MhaPmMu /bnOjsD7f0MBfQe/XYFq "]]}}}], {}}, {GrayLevel[1], RectangleBox[{0, 0.8}, {1, 1}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\n \ StyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\"], \\\"S\\\"]\\)\"", TraditionalForm], FormBox[ "\" \\!\\(\\*\\nStyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{{ InsetBox[ FormBox[ StyleBox[ "\"min. obs. \\!\\(\\*\\nStyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\ \"]\\)\"", 14, GrayLevel[0.5], TextAlignment -> Right, StripOnInput -> False], TraditionalForm], {0.8, 0.09}]}, { InsetBox[ FormBox[ StyleBox[ "\"max. obs. \\!\\(\\*\\nStyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\ \"]\\)\"", 14, GrayLevel[0.5], TextAlignment -> Right, StripOnInput -> False], TraditionalForm], {0.8, 0.76}]}, { GrayLevel[0.5], AbsoluteDashing[{4, 8}], AbsoluteThickness[2], LineBox[{{0, 0.8}, {1, 0.8}}]}, { GrayLevel[0.5], AbsoluteDashing[{4, 8}], AbsoluteThickness[2], LineBox[{{0, 0.135}, {1, 0.135}}]}}, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->600, LabelStyle->14, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "AxesInFront" -> True}, PlotRange->{All, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6688377721737947`*^9, 3.668887470900049*^9, 3.6689146707760477`*^9, 3.668979549036631*^9, 3.668995751732934*^9, {3.668996631893806*^9, 3.668996673269438*^9}, 3.669183628244482*^9, 3.669412634531417*^9, 3.670095562442245*^9, 3.670095805954797*^9, 3.6700958653151703`*^9, 3.670096462299559*^9, 3.6720126275824127`*^9, 3.6720134062487593`*^9, 3.672013539117118*^9, {3.672013569471089*^9, 3.6720136234292307`*^9}, 3.6720229667929773`*^9, {3.672023076853242*^9, 3.672023105311369*^9}, 3.672023621417363*^9, 3.672353952511426*^9, 3.6723540187377567`*^9, { 3.6723542796389427`*^9, 3.672354297207217*^9}, 3.6724458145491247`*^9, 3.672447848904645*^9, 3.672466099055654*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Variation of speed gain ", StyleBox["w", FontSlant->"Italic"], " plot" }], "Subsection", CellChangeTimes->{{3.672458242588237*^9, 3.6724582495885077`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"maxSustPlotMult", "[", "]"}]], "Input", CellChangeTimes->{{3.672022958849929*^9, 3.672022960387969*^9}, { 3.6724553354723663`*^9, 3.672455335541891*^9}, 3.6843292605270433`*^9}], Cell[BoxData[ GraphicsBox[{{{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Hc8Vv0bB3BpkLYQkpWksioi64oiEtkPJSGpFFFSlKKIItkhZG9CVvZ2 2zsze2f0VEYUv3jO675+9x+83tw353zP9b2uzzkchnfUrlFSUFAE//2y+v3c tbHGwnFNqeeFVaGyGTMwmqRl2MskBPrDDZxdv6aBYUur20emM2CSa+nFuGEa PuU/uf2AWxnObaU84sQwBfwn6SKDmDSgWclwp/bJSaDYPe61wqYDm+x9Trvc /gqNk3nPDLj1YDtfatBM9ASINRxP9mQygns3PKYewzjslwyOLgk0hvp59cHI d2OwNY76/U+2m/D3j3fUzY/Cl+dfXmtxm4HIS+m/hzQCVxfCi0s0zGF0Kfbf JqURaOPXkdL1tQA/M9q/pzAMhe9KhF8zWUKYbMaPPy1DINT0MOXApfvwe/Xt hkMQS83Plx9oRfz9QfC878c1w2YNetkKf89oEDYlKIU4GdjA6tmkkQbAZoCS hT38EYj3Xnj91mwArl4w3a3K/QSmH4OwXnY/tDtyvhm//hQCS9mT797oB+6e WxuLNOyAzfGrahZrPwTQcdjr+NqDyt9P0z7vg+f2Lg9fMTnA6tE9HO+BfBbj DK1sBzBee/XAQuapn5yXHKFo9XL8+ALH1Pcem1lyBAtJmrZw8y9we3r2Tk7g C6he/fWfboh62ZDoJOlErF839HHFf1XvcYJDum+KZ3m6QeOS/vVJtpdwlDqB 5aJRF7jNiUVmFb4El9urK9gJJA/6QQeDV/D3ZK3y33cCJd83dlVKF1j7d5Kd IEmq0tsX7gIyawXRAQ+vRgaOn3aFb9HliiIvOyB1+Wln+pArBM+s/qADuIWF tZS53WDxyWrFtIN+ww5v5go3iFl9u3Q7vLs10Thy/Q1orRVEG1A31kcVaLjD 2uHqtsFjKkdObV8PoF0ryM/ApHlXOn/Eg6i/z5ARdkWfS8QTSv6++01xK3yT FAv+1uZJ1FMrGFnOML1k8oaDayfcAsfXe9qkmnsT69EClJ5CXV0V3rBWnqPN 8P6DdSC/lQ90/Vo94GbonFjP1tLkS6xHE8RYRz39c+gtcf2b4AG1Qh+3/Vti fZpA7u3XUyrtb2G1GhS2NgEdt1uotYAfTP69+o5fG+GCASMXm6s/sT6NwPot 20F+0B9CmAW+cG1qhMknl4ctxALg/H8FDq8Cw6JKxwKI9WuA0jbeQyaygbB6 9cR768HLuP6lV2AgbFhbwHownLWYyP0RSKxfPazQZsbvCAuCte3ZUQd1oTpb T/4KAqO1E6iDQMHftw1VgmFtuYTr4FZBcK1LdDBRb7UgpizNn74cDExr/6AW qL8MuvVovoey1fL2qIW2Wy9mqBLfw77Vw7lQC+q2dDGMlCFw/+/V0dpeC9ml 17QT+UKgtmbtBdoDcUwU3SHEeleD5z7hwEjRMGL9qmDR6MV5MaMw8F399VIl GCS0/a57E0bUWyUIittcXhgJA7m1DVMJb59Vb3tNGw7fm1YbTiUsV7Lkc0iF E/2oEox3mZll3AyHudXymCVBrXYBq6JPOCj/t6FBKGRnfW9hOLG+JAgcNXhq ORkOUe9WNzAJ1gt8FNjMGAHLf3cn91ESmFht6As6HQFxq+1jJwmovRVCv/0b QfS3ClgS7V8KZY6E1e5WrlgB018eaqmfjiT6SQU0H4zZkuEdSez3cgjO2WT1 SCSK2O/lIDRYcm6TbTRUrG4P/TI46HwpMjMymqjnMmDm+7Fyoy6a6CdlsLXp 1UXm+Whi/5fCihVnejVbDDzIf/+3okrh+97sHbbyMbB/raBLYahQ1YTfIobo D6XQdm28tNc/Bh7RJZ3ttymFKhp7No9itP4xqZ97qeNgtTrtfUpAva1VuVYw jtgfJSD32DT2iU4crLVP9RIQ5di4QfAZ+kh5oF5/XBwcX3uVwJzOEilKKZ7o 38Uwvuy5X9sqHlYPhj25GLrDDz/Z/D4e1sr3TTHUyRe3Z1egi6Z0jt/+Fk/s v2JI8/z39T6mBKL/F0OUyMuxOmm0fzf7aTuTBFgrR75icLXPCjrqlUDsz2J4 yq2yMJCDvls9quY9lEDs1yIwMn+aKLstkZgnRfAP/R7qeWH0uewkwxi9RDiz 1kCLQOKKXJ6OUyLRD4tAYEPPni3JaM7Y+3dz2xOJ+VAEdMrbak3XJYF8v83f FS8Cqh8RB9kOoxffSjxrUEuCn6vlwl0EkxIt3faP0L39t0SORyQR/aMIml6s 9xyqSSL6RyGUHnk36TOLzmw4dvYs6wdYWLv8heA2PinPK4c2pow+t8vsA0SY r+7IQmAQ2qvclfeBmFeFkFNtH5fJn0z070LYK2CSoliXDKvdYOpxAbwQP3tM aiAZ1saLeAF8P8v1UXAOXaXfk0bPmkLkiXyw8VTL6jVNgbXdaJUPI8ECJ5vs U4h+lA9q8VuzS33Qh0vLc2LzUoj+lAe+DeESgY1oyi92eW7DKUS/yoPOWbGC e9tSiXmZB3KUjKeMOdCp22cLtYVTodJqdcPkAeveJmlFBfSrgx+KJS+j5467 nha0SAWOtRPOBcNTN0s5HdF15+Vk6f1Twfpvt6BOyAUxnf3lVIlo/9wtte/O fyT6Xw5oP+/uLHFJg7XT08uGnX3cvNdD02Dt7SzZUClhYUuTiX7mn1OXWIMW m9vIrjqQRvTHT/BdTcXi5zw67kNA8dtt6WQbbh3eLb4/HQL8V1+fYO9NgWs9 ouiWMusMe+V0op9+AlfOUqoDRugzT7frkKzRv7u04269SSf67SdIEw1f2h6J NvWZOp+ajeb+LhKs2ZBO5LEs6FF+NrMwjPaNrzkVuIS+QL3HE3ZlEP05C6iv GQwOcKMLi+KFXkigH7LOOR5SywC11e2rmgWCj0611VxHj7W94jG3RYcKtVrv 9sog+nkWXPRgq86IQdNO32S5mI+uOpdm+qc5A/4bp5nwLHo5P2QcbcTMs4H/ VCasjcPXmcDy4K5moya6tTk3yvJWJjEfMsFNkGphjz1a7rWqQo4venn8XYBe QiasjUeaTMiQG/m6rhhtFi4oGdmGPkjxyE1+Ct2nW9b7lTKLyK8Z4Pdpx9E3 jGgVhovPjvGjqe9FNLeezoK1ceWUAYX101zWOmhr3pNWLHfQx14+ryhwQE8M 1zJeDcgi8loGhMkwmmxKRl98b5gTW4am/Z2wVakLXa09f/nbtywi32VAQjV7 uO3ZT0S+S4c7Kff4/H5+IuZhOkxL9DdXUmeTfZukbLPEgp5Qz2XnO4q+0Xuo Qk82m5iXaTBi8tbUXQdtNLeBrtgUPWB/N/uHPVp/W5/+Ad9sYp6mgS5XTqJz Plpb3Hfx6wj6c/n60H1L2cQ8TQMNNYuzF3bkkN30pWfKbj9a5eZ571QRdN3P T2JDijnE/VQanLc72E+vj67a4uN01hIt/5aS39oZfaosqwI6coj7m4+Qr8Jt ZjGFluj2ogtfl0t29vV1OS30ufDf5fgIoj/MDDYdRmc86aYSlUIL0ZxLuqmG TvXJ1HhnjBbkOLBUY5NL5IWPwCtKIS8Yjua50OXtVY2O6pQXL+vNJfLCR+Ay zuif+4EO+3e/Mw91Htnsth78F1nQwdQrLS6CaBbv24/yzqAD2Do5ZrTziPud VGCMP0tiN0X7nkg3U7NH0xVz0jv4oD2V3HPSY9G7Ov4YjOblEfklFbZ/a086 N4KmoUpbStyeT7azJ0dYLyd6E+sb+V0i+USeSQWH2N/TMopoSmETH8sraLvC NvGoe+hlRdmBNif047ZU582B6EVDdgHx5Hwi/6TCnPXSo+B29Hf3z6R16wrI zr2dAkMMaCd514xy3gIiD6WAGtd1vlgZNAuFTISLNnqki2WvmRk6OXPeQ8UB bePVRH08oIDISykgeyfxKX0yupP7qmlnF1rkjmti/fpCslm+/Bor3F5I5KcU oFS8zpXKhB7NarkSzoWu4ZZ55y2ATvH+8NlRDO1LuY/2gSz6sfkrpRsqhUS+ SgGDnnlnnUto3uymFXEL9JxPohWrE7pr/d7UHZ6FRN5KhkIL5ymKIHRU7yzP 92i0i9JVo8FUtHlOw/uWPLTWIamuMhJa/G08Q2Yzmn0jk1pMTyGR15Jhou8H 6dVPdHpuHZjSFJEdcFjikR492s4vNuMCexHxPCQZrm3a8/3UEfQ5Swe+YyfQ loMz1Lmvi0DjvwIGUlF5Qb1EMZHvPkBUze+h12fRjm3HaM6roY0GbgjQXC6G /8ZvEshMBWuQrqNXKLe8P2OLzmV8MF7oiU6+c3B36lgxkQeTwG+fs7G3dwmR zxLBiiffRe09WvP4z+SdcWghqcOf69LQtAr6S64FJUQ+S4B6vRrZza1oV0tR d8cJtF312CerU6XE84MEkOzX2PBDE704V6h85xa6fd38PT4rdOZWPv+vdqWw enc0GBkPvnuu5se6oC05/Qev+6KPim7kH4pHTytZPNQvQtdqRwex1qATrn4p 7v6MfmW2eyygH33TWmGbzmQprN1+ccaDGeWN82Z0ZWRburxweS6BzuBT7nKW Q8/X0x9xU0GL3v1i43WxjHg+Egc2dJFVfkbo39pCJuEP0U+DSjYnuaIpB9Ri s0LQDtwD8iVp6HJSrB8pH011y2KsllRG5N84kN92UrS5Cf3qA4VzezfaXZSt YmpDOdk+RZKb1vOhP1/dqEUtgmbcVBu5TbqcyMOxoBPjPUuriA44pyvLqIne 9+brEOdNdEizjQOfLXo/Iw2XqAc6Ste/RCYSPbqsv1v+A5onlOeq0qdyIi/H gsnpb6lqJej44UxK7Vp0stlnadNZdMb8T7tn+yrIXvDPbXA6iD4p4cD++ija pkfR3FO8gsjPMZBrt7vwrSxaqizsSpgOumjzsZUEU7R7MP+dG8/R+seP9O73 R5NsD71dF4EWIB280JuE9qXlpsr7hF7W5SoIKK0g8nYMBL7Y937XN7RYMsNT 570kssMW6USMudGbZXfPnD6KNn+zK5pDAt3esePKihyJyOPREGO2tT5bF/1g /Wawuotm4KNkmwpCp2ktLV+tRLOE/sqQbkE//zpvxtZLIvJ3NEwIz3H/GUer 2f3s6fyJ5qD/V9mXppLsb7FT+ars6AKpCf5tJ9BuzSPBJEX03L5hrSgttN6N we0OBujy1P5yg9tovj+9T+BBJZHXo/7Oxw69jDC0iUqTFF8d+uRwXdLYIJra ppo14hfavLTys/2GKrLbtpPcruyoIvJ7FEjplMtJMqOjwkuXmQ+gGw5veJmk hP6Vcnq3jBXa7f7VdpdXaM6Tz4Nag9GTzLvtFmPQmb/DDNk+VsHetQdWkfCs 55jsmTz0+cLigzcr0FZnKVN/z6BD6qQl3BmryRb2NFjXyYuu0rQv3y+N9hbZ FSuviNZjCnUx1UTzLAmaeV5B/+guVMm8WU3cT0SA3Fe41pONDviVb71xaw3Z Rl3KuocZ0AJ5PVIX2GuI+4MIWAw247A8jC61W17vL4TWPsNaOSCPnqKScuO9 jGZ4Y8tY6Ig+xZAXpp6E5qvozio/XE/k3TCgoF/iuHQK3WLI5DKjic5/GVPw Sb+eyJ9hEJMs8vP5LbRnWzmPshX68bLmZUZ7NFeAp4B0ArpGuH6dSRs6e2yj icK6BrLdTnA1f2FAr6+6NSXDgn54+SNVDAd66tsix7aDDUQeDQVDBxmJu7zo 8/GN5hIiaOEm/chNMuhu06AHAqZoh82dCtp+6F+BHEZ5QWgzwZtPOMMbiHwZ CoMlyX5OMWjtfxZSJxPRMk+cRjOy0LyRDCz2JWiKH0KO9B3ollPq07HTaLM8 74QaykayqcQ+m8wwoPn9jZkX9qI1FuYqKTjQNv84WW/mbiTyZQiEZOw5RHsE PWUp6rxfGC12XGdUCNCmvN1Xba7/3+cPXOkreIO+TXOrqVWwiciTIVDd/k/e drdmIt8Fg7qcdv/QUAuRtwLh+6Mcv74FtHsKq0r31layF57MS3btQl8533Ck k6GVyDvvoJwplqljL5p/1J6qnR39x/74YOthdA3LcH6zEJraOZ6vWhd95odF YLED2k5PdEt2Ajqvctk6pQXtapSs+aEHrbticDRxDF1aI8aWMNVK5JsAOBKw e1v8d7Tn9cnF2Hn0olDZWMxvtJ8JT0jEzs9knwhx+SeEC92XWWul9gjtUr/D d0MTetO/67PutH0m8oc/2NEudHR2o5eOTy7JDqCtNPv2pYyib/mRDJy+o/W7 kiMv/0ErGtjz0exuI/vEqGp6Bg96y4/vpTs00H3LXi03nqLdPzqlhHuhT914 5NYTjfaTmf29lIL+xnLnFlMumoUmgZOnCC0/P9ZxohxtOXTAQ7YaHdpoKK/R 0EbkET+gFD9HWbWANow4mgsc7WRzPaAQPHIXPaxQH85QgjaqeWqztQ49oCyo StmB5nB3lrDtaSfyw1vQb+w7uDCIfk97cve9cXSPusfy1DS6S/t7fMeGDrLb L6vrlDGjG6/TpwXKoass2rZb3kWXPvK/qRiMznO8VMpZhc5+lWuxvQ+d8WYf 2+IserbhPs39JbQQbd3sDEUn2Zbq3P0mmzqJfOALH72f1AxvQR/bIxDexYBO 9u+1buRAm/rE2I4+QB/2sLD/U4vevEPrOfUv9JirmONuri6y9RM+yn7mR7dV 827yP4n2vHTTeFEKrfw1svzSGTTNowHuPIUuYn77QDkNmxPrBXSGwi7qCCN0 pPP6l4ds0Nag0/+wCq00l3SSxNxNdmZjx/CMDJojcYPnnlvoz8zMN448Rbs4 C0iBF9oYxA4pBKFPzZ2hU49GJ6pWbdZO6CbmuTcwJ15Y0U1BO1O3/jTIQM9e vThhnIOm0DBndb35hewtZ16opezpIfvxzuGt/bq9xPM7L9iaf4SiTamPmLee wJhgCbTWaK6AvCdKEejDuwxZv35CCzpvyneuR38saX/9Tyf6xErcZe5h9B63 97s6R9ELLN5lryfQHfHO1tJTfcR884BsMVu+2Rn0Y21jH91ZtKTVhT8li+jb 28wa7in2kx0Y4Rq+PxBd4z7H96UC/eexfpbvD3ThXipVtTm0Q3bi+LZf6LM6 Gs8ql9A0C4vMjsv9xHx0B3dh+fO/1w+QzXDPx/beZjTntECfAR2a/2aVjAob Wu7KChWfMFpPU6h2syL6Fb2S4FAIOr31mlf+HPqF0AX7EppBsrW8RO+QWNH5 MnwjVTxo7u8cl2uPoSlYexeVhNGdCoF+dSKDxLx3g7T7OicuiKHdQhla6iXQ Mr/cdzRKo+dVtig2yaH9tvdwd5uhT9YkU474ohOct/zOnUKzyxrPep0ZInuY 4iILiyk6LlfpdIQP2nght4zXD71fiFc+PQDdd+ddlWTQEJE/XCEwnkap/D2a bv+4alsE+nVAhdZYLPrJSwd9mjS0+UNpE958tJpWjq15E1pYSNgjbQT9ysuA j/fEMNm9319XhjuiJ4+rOjIdGyG7MmqIO0gIHcX0kMQuMkLkgVfw3HWLScRJ tP5K8BYeCTTzcJmygDS6uWrS44QcWs5XjFFWBZ1t4BysfhEdtrA/3twM/fJN QebrZ2jtvLmGijg091e+iXXN6FknVb2Th0fJLuW632Ruj85UqT1xKA4d9/jA u/4mdLinaq3kKDowxnbFfwnt/9GLkbRxjGzf/NijczvQmtIzmfa0aLpSIalt 9OhmOZtSvz1jxHx3Bs/KgnNczOid9ef+EWdDv2lpvarGhQa6apvDlugZ9UIP ylJ0qib96ZMW42SH1z4PGqCdIHt6UsqfxIMW3bronSSFpmkZ281zBv3lXZtn qAK6fEVZTe88Ovlq+a69FyaIefgC/CskG9tU0c+OpLt7a6B5cjzdnK6ga8+Z u9qYoA1fjjyX80XPV+g+oi1GT/K6Ze1i/Ep2n0fB7E4z9FyjONOz7ZNkm3tz Flrnoh3fcdJUNKADwjg16IbRVyLCog5OoLmiOH+JzaCpog3DSv9FT0SHKSr/ RNfEDPxsm0N/iOUMNvg1ScxDBxBL5DztvH6K7NJkzrGkbejpfM7HCifQe2o5 dw7poYUbr7+wS0Krtyb8ZllGf78Sers7bprsAv0PjtvPz5B95NRlSaoo9Fu2 LbMrK+j/AcK9qrw= "]]}}, {}}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Hk8VOsbAHDRLaFEqHFFliSSFrot8qiUSNklCtnKtWYp4obEleVakyQp W5YkSUiWyL6MmbF0ZRnGhDCVpZLyM/ObX8/v/DOf75z5nHnP8573fZ7nSFq7 GthxcnBw2Czj4GB+atuNdlSNGasFVTU9OFrMgO37hDLuEYzgf95P3F0QS7D9 ZemDKVk1yfa/zJfDfX9GwgHyNalXhfIZMCPikbA5zRGWm6xRLLzHgL6gvkgT WRdQ6pNZEXiLAVV3a1QiCZ7Q++3an+WeDFAmeT/dbO4FSyePhDsxIJt7u2JF 8mXYyZ0nZmbLgFivRBmGhA/8LfK27YshA2x0ndfpy16D3ayDAUGB4d5hhBtQ PP2D4j02BRVi9sUmZTeAORpN6hR8faE+I2UeDHycCkuXmAKnqVnXl8khYL3W dF9RwxQYmVtdmJC4CazRZk2BrIqKySnZf8CedUyBrSeDcJMQD+uZfz88Cdzx Wg8+fkoH1nDff4AXxF2amuJP4CBPd5rbwXEwDXr3b014EbS2MI9RcH3qoZg4 U8q+v/fwObqrYdmyShBkBZAODdV1le2qr0Ei+IN+ifgIOPhorT4zUQtGwxl3 azfRoHrVrsU853pghe/IMGSm1f4U3dwEBwZ0I2+7DIG6yKuHhvktQGAFnAqK 9e9K6uTbIVWUGXEqUNQNp7KniLCFFdBBcOJxJHXuILHnZwCae06/WvMPmX2/ /WB4zJRKo1Gg/sQfNw9Z9cGe1PDTqTJd4MsM59V3MPgzjnLRvxtYww3uhRGt 9jSRmh5gDbfgXyi4M+DTIfkvHLYaIUr1voWMUK6bW6/2gvZ/JwBmbczG7V++ g0zmz917gFcjxODp+n5gzsblim7wWzvCRz07AEzdF+0GvgoFju6Tg1CmxbxA Fxy8rPujZn4QqpmP33QnJKdHpEknU+ESawI6wfLIbtWBFLTU0FtK0gP0SECA s0k6lX1/nfBIYssKwSz09nOef9zMQxclVV/kKES3RM8p9tVTYaOZ7dIUdEKU 0r26xCa0QdsRS6NWKnhcjJn0g04Qdh7/wk9E9/DGRDeT0BZa/dWHe9C0EIXp 0j70Dz+rkoRpKjQyw6HUCVW/r9Q3mKOyn5dOuFH2eGz1N7TmGaPrjd/RPF/n RYN/oqNVjusscA39sojHrb88VqHfCqiKKPENgVfchqVHZCm+BUP542vQlro3 NTMF0FJTSoPnhdAjEV3eG9ejHyn8JfCWgHZsks6JF0Nvd2g6rCcxBM3M6fxB gaLM9Z71Muj9NNsMNXn0j+u8avPb0FWShV3PldBBVaaul3ahj1kurlRUGQLJ AveliFLAwli5ddWJIbjCDGcfBc5T7Twu6KFtnW8T3hij7XYXTHiYou2/NVRK maMvVlJjO86hHYLn7QKshtjrnwKez6t+znkNgTRrw6PAlUOf04180VdbpU8U BqB941TFzweh/c4Yf+IPQV+TcKmtCEX7j4Tcdg4fAp8x2aUVToEw4ZM7aKlD 0L60W2XcpUDkg2tdhzLR0YoFfvdz0THTDbqn8tGxpVSpHwXoeP/52dxn6FtH 1zWaFQ/BZtaGRoHEDg3XkpfopHOXhUWq0cnSUaO1Neh7Y1kvPerQKU+q/pFq RKd6vT3f0TzE3m8okBGpmh/Rhc7JuD+vSUXnOZa0zg0PQYcUMyAUeLyzIzWD js7/MuZhNIYueMWpyTWBLtRSnrT6hH7eaRdXMYfe11LASU8YBgVWAiKD2EPf suQ7w+z9nwwc3sfcDZPRtJMC8jz30Q3S76hVD9BR7Zf0t2ehTXxXVt/NQ7vL W/jrvx4GZjbh6SZDXijvQvnkMDvfkiHaouuZx0e0h/IDR/lptAmPkzR1Fr1/ cE/v7a/DwEpfGWTgjGjR/u0nuvEP6zJ3Ltov0+kl3nIEGjtfk+Fx7KnRW+Jo TzXaaS4ZtKnQE/4yWbTquE+921YaOz+QYVOVhv+WbWiuBP4/+rf/3/mj9rNx GjR2PUCGxHKN+XQttICy9OLzU+g219hANX10WO6y5fWG6GPv3UJ0TdCc0oPc PaY0dj1BhhmBe4Lz1ugRDjMxMWf0Q9XGlHRXtIX3XklFdxq7/iCDaFFW2nNP dBdDRFbtClr3wqy8rh+6oZ+sZBWIviF6pHA0CK1uUqh8KQS9ECP54lsourQ1 et/1cBo7/5Nh11FXtbhodE75ySPpt9AqyioxRXQasMoDQTIMfI5sTAseYedn EtAW/VKNQ9GjfE5XVoajJwjmp0ojR4CVju+T4KOs9mbHaPRXdTly2y00h/mK wF130dxetO0JqWiBqNfvvmWgRZKfPst9NAJRr2flzkaRQDQ7NexcLlq8OOo8 fz5aquba3uoCtHzfWbpMMXr3l/3xoS/Re5fLO+6vQKsKEA5PVKHVxbkJKTUj wKxOvl0jgYbCF4ZuHdrY8tmJ9R1o+zjXrP5e9J+pFtei+0fY9RcJXB6fND5M RbuXqW6bGUZfqVfgyqSjA6irnq6aQId+f2/h/AmdbWMlsrCCDszsr2JBgsK/ 1Got+dBlt8XcawTQFem8Wl5C6NdP5yW2rKfD++/Zn0gnSVBXMTbXQ0A3Nfe0 homhSSPFvlOS6N7F+K0GW9CDfDc4lsujaQSP7ufb0KOy1vkXlNATu/WDCbvo 7HqYBFaLKbxyqmhy00TMnmPogoMBu8uOoyMK1nUePIF2kM66XH2SDqxyQZEE xxL2bziqh+bwO2+uY4wuOx+aYmiG9tR8QjWzRG9X7JKxtkXzpjrUjdijRwV/ XHBwoAMrnYqR4E1w9KpJR/TDr9K5bi5okdpLO/290TejKl9EXkfbcxqeEQim w9LkLJWwJDjsRZ+P/xstMeqTvCEMvWC2Wi05Al2srhyYFoN2kzWvzUlAy/Nd X1l4F0379Ei7NBVdbas6oZpGhwRmevneASnd7ZFVGWhfbRsljUdo01dzxPoc tGDaRqH2J+iWUI3TXUXo7O/dX8+8QIe4OCb1laKtqT8PnC9Hg1FsH62CDhPM 7f9DBxRKDNpMN6BlPyiOLyOja2W8SG6B7+FjVt1SBd4BUZROGwOZUUhhML/o AIZhVQxn7SjoMMvzESLMZQU7vahD//yurenUOAoPWeUgEX7TWysl2YLmS+9c 6GxDi+pYFQIFLTczfiH7LXpPstfGdQNoDQ0Osh8NfSLxzeOd79EGE2Gh9LFR +Mosn2qJcEZdz+buBNoqXlhNj4H2o8lnS8+jE5XVhb4sH/vl+6G/MXJXojPf NTVa8aAf74hOF149BqdYDS4Rim4Y+zfxo19vG1RWFkYTKX+O3xNF9/vN3l+5 CT0hE2B8aTN62vvoDlk59HwLD2+vPHqZJHEkSnEM0pnlSxpxKR/cqtLYgZZ5 k6Ow4QD6kHBVwoej6OMOwZdSj6P1XmnrGJ9AnxZYu4Xn1BjMM9N7HBEs7DqX VeqhnVZbvZAzQV99Pu4Ua44OPecltWCFTviNo8fOHn3vzJtCUQd0+uOwyHZH dO4yvYs3XNCFxsJH9l0aAz1mug0iws6D5T2GvugCGRsXl2C0W+KeUt8wtBIf z/KbUeg1dR7Z/LFj7P6YCFP+facS4tFt+zRnxG6j86cL7qTdQefE6Hxc/XoM FpjbsTUR0lqD7g0JjsMj5vI5RIQv9Wd9BV+PA7O6OTDQDoMxlbNrXT4Aq9w5 0A5zHQcI19dMAHP16Ze0gVu8VJVP+QSw2lGVNljfKrWWZjHJft/QCoadeQti PyfZ/WkrLGzMmx7lnvrlTPvc8aJ1aOJex9ELIujvPAp0UQJatm98uPV3tN6T HGqA+BS7X2yFDEP5Pro0ev5Ldo/OVvRD0awiP6Mpdr/XAjo2mbnHLdFzuRkP hf5En9DbnHLVFZ06k35n0BPdVGd7O+7KFLufa4HZRJlbx66iNznSYr/5obUP pkfn+aM/Wz5wepczxe7PWmARdv3DKELzbap5wlmJFowOV+erRW/gMOoQbkT/ vrfkTlIzWtxNzFqiDS31KEA+nYjePEj7LEeeYvdXLaCWumKP7nu0qZWcj9d3 tHlixKH5H2gL4sdV/hwMdj/UAtbcxiQuLrSdemnS0pb0y04FgQqxPGj3Tdrl d/nR/hy9ffkEdMSg42K1NLrS6knwGh0G/MVKYC1QrCYvkK+PzhPLSD55Gv0o 3Np6oxk6bV5CbvIsA7aeZVZ8LZDi0DdZbolO6kl6FmGNDo2Pbmp2RnvphVB5 fNAK6ucOrsxkQKc3M6BL8RXvacjMRW9YMDA69hQt5LhWVKQIzf9v68BIMZpH KzzjeSl6Rclxx+ByBrv/a4YZD7XrtfVoqpLyHS4yuu3D1oLD/ejyLIn6wDF0 iUhfhP4EA1ivM+ua4VlwkoEkA50/c3rDp0/oHBvh/qoZdOqhaAerefRtCd7Z xUX0fwChvHGZ "]]}}, {}}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Xk8lN/3AHChyFKKFPpkSbJkSSiK00bITiVJQqGEVAptyFaSLSUSypqy pJTshDDZjWxhbFkrS0r4zcz3+XWaP3i9X2bGc5977j3nnkfYysnoFCMDA0Mg 9Qftt/apofqir4fUvIuq4tTfTAAve3PQK7798P+WUeZJeMxn8tcM3F/DFgWP AvPhFdJZjyegfjTf66SYBZjZ7Pyif3cCVOq2ZYTy2cBW1rT1ZjYTsFE1Jqk0 +jRQ35tUfnACOFJZn0wJ2gP9zzsnoNO78+5hMUegfviB4+oJKIoqVbzLdxGs uEyVsyvHQaHhSuamY5eAkhBVJpQxDimsMtIF0a5A/aNrwZNx2ACU5MNdl+Fe ybS4+b1xCL30UHRC0A3660Taf10fB2v9c9yGYtchbB3tisfB2/POldt8t8Bp NW1EY1Cw/vSbw7m34INQhotdyBjM5uyeEjnmAwKynaLLPMdA3lhAfmLOB6LL aG8YA4fxaaf30b7wo0GXeoljYHLM0nZUMAC0ORil/HjHQExR8bCeWBD8vn4m 72LYKNhcnOAL4AsH+tfdH4FtTKHuWc7h4DNi+HaDzwgwhiq0t1eEA/ViqR8Y gSfpbtEyrvfBj/fzp5/GI9A2zCTY1BBB3J8R0D+5TlQwMJIY7zCo6O2Reb0Q Q4znK7CGa8V9+/4MpOhfMAhzO3rm4vgTwPP+vjsOg4Mw3nnlsPG+BKDf/i+D 0O3FlcnskADkp86qbORBaNyczP4mPAGk6RM2COU1cNo2PwFM6Td8EN6eJxet G0iAlwd63HleDsJzXieBqhWJQLtaSsIgxLxf5uqxPZGIj0FQoJRqL7uWBPTh 7xsES3m1KQHWVKCHy4MBMCY365HkUonxDIDG1XMp14+mEvM3ADuElzLLeaUC PRxcB0CqPNqiJzUV6B93HICZo3OVibrPgT589QEI9Hz7eGtYGhTTwnWyH3Lq 5A8c2JBOzFc/BH0d1dyikQ7/0QO2H04zJmmvckwHTdpwDvQDr4KAXnt+OsTQ wnV7P7yv9kzNkckg5refGhdnMg9+ygBSDe3VB23TKoUXOLPgGiha5Gr1gal3 R1vpnWwi3inA1S22xTYumxg/BT7uOn+NLSebiH8KqMwsFTLszQbqh6n/gQIC 9rKnuna8Bjb6hFCgS89rYrb/NWwP2GPZX9cLNvzizDK7c4AaXNSI7gWnzAvS D6fegcabyfmmKz0wvqun8SNrLpxXpX1DDzhU6rnPrc8l4rcHho3zhKS3ou2+ SFRYqOdCxUHaf+gBS85uy00RucT96AEDe53wrO3vifH3gJzwprka9zzYSA/Y bvgR3FK5ZEkhpH6n3eBuqCwuL6zdVUKsn06wd9PiPDpaRsRzOxQvl19MO1cB jyJpr8+Q+LRsgX9TFfxvOyGDs49JD8hWEfFJhp22faU2yuhlWhcTA/ah6ySZ A17qVgEjPeDJ8Igj/GzjEbTN+Ea92ZNombpXcv85VBHxTIZfmfu497qiy8Ia p0/fRAddsm69c7uKiHcymB6ZzM0IR4soez9ujkGP8nPf/J1cRcQ/GXL+xFsJ vkJ7dcmr789H6xSVbLavqCL2TzLwxhuxBdWje7x7R7Pa0WmnXGrJ/VVA362u ksH1AGPWnwn0bonQcOHfaHZ2kcsazNWwjL4BkKFlNPPo2RXo2E97dgWvqwZz +gIkw5mM+g2vRdCKoSeXtG1BM1z8TllQqibimwxVhzzLN+5Bh29flaJ5EG3B F3fn3KFqIt7JID4n5xh6Aj3ZUWSQY48uKDDY1nGhmlgPZPCP7V6z5DrayMt5 dpM/er0NQ7t2aDXQ0wE/GQbUg/OdotGZm4ViwxPRV5dneL3LqCbWFxk0RuBU Vy6ai1R7gOkDuv3lCUnx2mqwpG9ILZAYPMGh+xnt7HJj4jwFrWKysiFiDL1U 6Un2+5/VQF+eX1ugbq3sg+4lNX/96FeB21IOtE27nrkkbw3Ql9vnFpDN71LT F0L/jnEUviiJLru5wBSpUEPkyxYIsgoayFdDm+7f8LFXEy0i9vI5i3EN0JKP 4dsWGGNRC9pyHP32K8nZ0BbtVX3c2PV8DdCXZ1IL6LwYU4zyQPPeu7auyAfd 7cw513evhtjfW+C50ePO5Y/QrgrSRTLP0Lt58+ONX9YAfTr9WoD5/hon9bfo Sm7HndtL0IGh5SwSNTVEPmgB/VWCTfwtaAsOz6W989SkRX9Rx3vnc30jC+mv +5fLx3xYRSL2zxZI9r99JkcA7cBCUUrZhJbz3ckUJUsi8ksLTDGH1wYqo996 j0Zd34f2YFS3c9ZFq3k+VrA6QgLaagTFFmBkmGEwOYkuv65HUj+Lvj2fGLn9 EgmowUrdQVtA7+riKYkb6FVzR+QFAtBNbhkLHGEk4KFvQC3wcJa1eiEabX75 5INviWihmXfWvRnovour5ZpySXCGPuAWSJo88+dDGfrNeI303VESkU+bQbqi 4225ZC2RL5qhabfxeMp4HTTS0qtyEziwnW1olmuAbfRXI1S3HslfEdQI9HSk 2gDGGqY9fX1NRP6pB6XYO0diaeOkB2gdZBTfcGOXbIFntNX3tA6kKBeiXGXR icx2+T0KaCEx8y86KuioAwZL3gKa137/xo3q6ODbO9SDtFuI+qwO2NO22P7S R/uShAJsDqEZJnie15qhPbiWk1Qs0TNb58cTTrWAAa08866DkYv98led0d05 JFcjD/Sd2pURzA0tYERfYHWw7DvTWycy+ubq2c9tHei5baNz6r3UOC2n3fA6 cD3U/V/mIPrsw8qTfj/Qlu0ZCcfn0e1/nlVUMpJhgbq7iG2tg8MbIr9uY0XX wV32J5zogyc9pdm40UqDhq/fiJPBhF6AU+eHVYMsLIOWklT5FbgNnXhQRmB2 B1ronIiqtRqZqA+o85HB5qmshWaf/FG20gTtyzM44H4UzaDUzjpgQc079Bf1 /h+plTS0Qc9cKdXJs0c7P8px3OyEHnn/PDj0Ivp055OseTd090JYk90NMlFP 1MKOz5z7fAPQwa/8Mp+GofNiy+yyHqKH7i4RKqbm8f/VC7XA46FGro1H77bz COpKQj/cO/1nLhP9bb3TWb489Hq2NBHxYjJRH9SC5s+hz0rl6It9m0LUq9Fx 9VaaJnXoTwVPFq2a0b+fd7w534YWi+RzvEmtm/5XH9SCke/hTff60KmWdWFp 42jGndqMVbNoGXG/d63zaLM1Zc6DjK1EfVALvoxLxGdY0FkTql+YOdFdHe4R 3KvRbFU5uiJr0Uo5U8xb16Otnm3NA+FWoj6ohdzrzyWPS6FXH90U6a6IVtOw MghQQZ/Z9oTlIaAjhDoKEve3EvVALZRy8rm+1kKLXmaQk3JpJfL3J+jXqn3K W9pK5MNPkBH5xa1euI2or0kg/s5UJXwL+klr/e/D29FmdiuOvd3VRpw3SMA7 q/2eby+6wc9PwOMAOmhtmUeHDvrc/eRrg5fb4CPt8qh5SHxTf6fmNXRftrBa qhc6dr9FDLt/G1yiH3hJYN70aMHhLrppkrtQ9iFah/vujR/xaMmQ857zpDYQ pk9wDQwIveyxaGwjzjs1EJ8xvKeoFW2xe3O8cBeav86a0ZuCDp3oKFEfRy9f edib9Re6LCaUYr/QBm7U3YY1rQZuytTuq2Zq/+tdBezPtixHz+pqMgetQGd3 3rKZ4EY7nysuM+BDb5mfF83agB4KVPHhFm2HTfQCuAYs016pt8igydVblkUq o0OP2Z/+rYbWG0koP7YfzebRK5avhS5nE/TboN8O9bTj65kaSPBnCpBwbyfO h9TxwYqL226hzWbWnVANQlcYxpjsDUMrvNiofeAhOp41BXQet4MEfYHUwEob GUXDeLQbHO25UtUOzbTtm7UGTGasa7ya0DIvHHMCu9BRrFNpIRQ0q41bfMQQ 2rVw4UHUGJrCf+tu7I92op9QDQX1QVdS/6Af+kdaZy/r+OulfRuOvmNHu8Az vQIudPcjif2la9C6My+VK/k7iP5DNTDalK3skEHn1H/un9iLFpU+0T51oIPo P1RDqH9f3S8d9CLFvnzBEO0AE++ZjqA1Zn4lcp5EC79gDl17Fh3EettvvXMH 0a+phj/WK68JX0LbF4a7iLmjW/j57aRuoDPqRY0VA9B3/GXVIAw9bW02fPp9 B9Evqwb2/b5GmWu7gF4OWlTBVa5+jh7zL8T5/iNwFEgxkHW7iXqpElRd9edL f3cT5+cKiH4W+HRjdA9x/qoAi0MKpOUHe4n6uRxeN58KK5jphbX0AX6AM9Ld nwrn0Bt8zNiKGSh/PZuxNnkPEwVKae2Zkg/Q0NGkXrIUncYaStnLivZV0Pcs ZUOPU/bNfuBBHw7b4VS5AS1XOM2hJYxmG8lK/bgR3cfrrKktRiH6Wx+gYK/0 QJU42uVRknCNNFrsh/Bxkjw6KI63qXYX+qcB+8EGDXTD1cohIy0K0a+gjifZ x7fxINq3aa+oiR7akoGhpMkAzWPqPt98CF2ZPrWDbIa+yuJ0sfUEWu7E1/TP Nmi2O4m6ZrbovjfWI2326IJeoYBjDhSi3v4AD1d0iXU4ohkKGh53XUHbnavg 6fFCr/+wx6DXD123Pu8OJRCdqukmYXMPfeuiUkVfCAUu0A8kH8AidtLmVDha uSaDcSACXbmxo6coDn3Yg6U4Kg2tYthwxSgd/d/mx3LLs9AM87ZDhdkUEKQv COr4G+RjXXPQz69XruzLQ7tIWtwwLEGn+bP/yRujQDXteDJfBkLqp6fD9vcR /akyUFRQDMke6CPOJ2Xw5cfdj099+ol+dimMbjP04ZMfIM4rpZDId6VSaDva cjGGXXwXWtVF/sVztQGiH1sK/P0f9GT3oGeOHP2WtQ/dWDUaoqSB1ohQWadu gM496R9jbIYOuFeYc9drAKib4VzK9xL4Y8apFh2IdhY7VpYagdaNHD8lEzlA 9AdLQJLDiyUrCs1yY02KYgy673uy9rtYdAy59m5RAto0f6auIhUtNiI9vKRx gOi/l0CRRVbrUCfarEGponYIvZnDTW3fOHpK/f3rN5PoNivz884zA0S/twSK b8xvkfyFTo6OGaLMoYPewbPHC2hx6bLQW8sH/7okVtPzLA/6Xtvt2S4+tDkP yclIEL13q6MUhwhaXG/l4AdR9IqzGfE3Ng8S/eUSmPYztFCWRAfNNesIKaLF ncx2suz+5/3J0Vnu6uiS3i6JcW108uKN/iRd9L31wnEnDdCuyiXmAsZo88PW 65oPDQJttht0SyBY1WE6/iy6TPRSg7Mn2jsp1/SPN3qvJMMXP99B4vlHCTC+ UD/FHYAulr0zEnMHvVuRd/Z1MLpAJY6ZdB+dq57z39wTdI4BSUkiFZ16dVNU T8Mg0MsVjhJI9NuZvbIT/TTUkKQ6iLZa88D441e0yMOOzyajgzBKfzxSDD38 Ipbd4+jYx7YDZ7+jNzz98cNrBh2dfG0xcg4d+SpsXeXSob+OKEjZOrMSzVOm oMa5Bh36sVBblB9tqLO0Pn09mqtW+8hOwSF46EhLIMVQZxjcWS6MvtfUbG0k ivYQDbPX3IG2vWjgpKaDttnAKpevh7aqLPy20xBt6XI5M9d4CPbTF3wxHF8v 66J8GG3qHDOpdAxtXMZ5ScESreUweln2DBp4qt0lL6JV7FT+bHZDK+alXNt0 HS1/+qTas5toOS6+RRFvtExuXWGcD1rKxv+mkP8QfKM9PgkoBmEOW2+BUPTa bHVf3mg0p7lowKpENBMzUyBHBnrhiAsn22v0r+c9QSy56JlDkfq+eUNEP6kY phYNuJYWon+ksNZ7F6MnjItCGMvQWYfW7FM+/xViae20ZcWQIWrt6OiDfjmZ Efk0Eh30gh8ko7+CDn2DLAJH21t9GTFoPeHxgO1xaOn2I7IFT9GjelLu1cno tJKFstYXaKnUBLPJHHRqiM43zhL0maVCOwUq0BJukz7iNWjWbcel0j+hh0bL 6xTr0ZWJcq55jehky0cC+1q+wqwxbYcugs2aezKPd6MTZYc0rgyjN6291xE6 hX62oOjyYgFt47I8P5dp+K9FBzpYKlnRzLEaL/TY0X1HM4yaOdFl3Pyzx7iG iX5dETwleT/uXY0eH1WLrBRH7+D4Hf5SDc3WNMQtvh/dGUUOjdNCly/qGVno DBP9uCLIsC5fJaCPjqxQrScbor2kXgeHm6DF34cG+Z1Ak7SdA93PoF3adG+f u4Red0bK3/Imesmn+AP/eaOHt/KztPmgm+6HlEf4D8Mf2vZtVQT5v1h9je+g g4t/MpOC0VYBA94aEei05LgbW9LQPyvMPVaXoDcYa1wqKRsm+oNFoNEl6+RS gXa057MXqUJHTDFaN9Sg+9laDss3oBWEU7RDyehGXX15o160i/s03+oxdHFw JafLDzRXUtSShp/oHfI+c56/0Zb5jtNb59H+mqYTPYvo9MY9X0MYR4h+I3X9 MQzVGXKiR7cEvV21Dn37qEJsvQhawrfNL0QafSX6hcd3eXRl1k0nwx3ob6pn 7JfsRK/9aGydqYpWM1E9fnI3+vQXsSOr9o0Q/UZqPO+4IBZiiu4OKZzmckT3 XGi/znMB3XvoJ8u6K/9Yw6cm0v0fb+cOEbj2j8XjDj2+gabwyfILeo0Q/cVC 6Os8vUUsED0QF6MmHYEeklhhvTMVPZJ5zU+rAD0az65TXfSPwyK5dEtHiH4g 1bc2N3/68I8vvY40qESPHakXMSGhx5XHnh9pQE/MixZYdKC/FZvXnRpA//AJ 73X4hp7Uqpm68Bs9JTV07fLiP+ZkZvFgHkUvhFT/WTZK9AMLYXpCMPj6cvRM 9wsTBo5/XL+Tz2sFWj113Yo9ouhwr2lGBhV08tstRU6Azhu3vvZlP7o8YPHY gwPoOtEoFX3tUaLfWABthUp8LLroPrOGnwX6aI6K3S4xZuht29JHr51CO4eL FLnljRL9ygL4/UDkVGw52idKhK2iDm0XbfXKoHGUeH5WANqP483bmtHSMb1L bVrRXE9E0sfa0M2x8UuWdKMfxYuY8PSj01NEYk7+QpdliAy95Bz764CseJWS 1Wi9bJG7zWvRW19bKZ3gHyOejxUAz5v4L0Pr0TNvev1dBNGfc0Tk/wijbd6L kEW2oMcLRK5qKaEZy0XKI7TRa0kiXH0W6B3TTZOWJ9Gm//mRO63HiOdh+eCm rvze7DT60bmRGLIduiNf/3T9OfSGFdnS1S7o+JdX8wquosX01Q9m+aJTJzjb EoLRMsEtdpGP0M7dKnJhT9BZck9+Bj5DN5oati9PQk/dZCr0TUHzpLyOZ0ob Az76A4J8UKy39b35Er1r9a+ntiXo/ca3i/Va0JWTRgZ7u9E64QJfFIfRQX03 EmUn0HUKfeckptDfzSMME2fGiH55Pqz20VTc+Ast/+L3utg5tHFz2p/1C+jE 08+Hs7nH//r3z5RWHQn0s90ptesU0HoByeV9augrx+zKHuxBP5UWL9HeP070 0/Ph0+Jg4bwGerY+KT9DC63ruvkdrz46nj8p+6oJ+seJOIeO1HGin54HhZbp Pit0Joj+cB48an30KtAKfcnAt4fNDe1cuC+pzQPtILPkXOp1tO3jAnl3zwmi /5sHVhxXZ7VuoY8Oz3h/DUAbVJ5fGXAPrXbLVqzyEVpq93FVlkT0sreaZ33y 0D2yCpFMjeiOmO8Wjc0TRP/2PbRypos+bUU3XnUYdmlHfxqRyNjbhf7w8dnO Xgo6L0mwwvMrOtV6TVfRFPqBIPv04iL6/wDWmGES "]]}}, {}}, {{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1wk8VPsXAHDLey1I5UUpr8mSilCW56k42pRXiJG8ki3SQomIdglJIipZ KrJUUklI8piQmRaRhhnGNotdc1soedGbuf/5O7/PZz7z+X7mfu793XPPPeeM uudBB28ZKSmpQdFH/P2Xd+87Wt9Wi3Daq4z1xQTom83Kvq7qCP/3inqj/ARV rwkr5E65OUTZO+G28LZYJ+0DE941kllZ5eg/YZb+3xYuVw9NeLO3YukQK2DC tNQqk1jVw/BgA/forAcEGDeEPFq4I2jCd6fo65WnBUPz229UfjYB84F/x6n9 CPzipKhXcJ2AhKBrWgQldMKT8mzSozyOgkGb1qSwKwQc5cmoLcg8NmHhnJKk EsFx2O61ssMuVrRfO7/f7LVPQsSAfcn8CALCw2JCzqueBZe4yuHFLgSUq+0u dipFjzyxHNLYEQFRKuIdEWBInWdI/BsBomvfrtlEgK9w+OCztMgJ50TX348y jwLy8msJ6NS6N0BtR8+lRSxZcOocTMlTE22JAMcd7j6DlGgwIhcB2iYmTrba F0GOlelvLkeA12FCNVr1MsQmHVAKpwnBSDbhaIH/ZRBtXnQHQpBJMOZw6Oj6 BayVv1KuAD87tXpBvhBuPgxN0w++AmS0bgvhgIXa2LZa9Kra8p1hWlfBrJAR XH5TCPIuHuW5x64CGa4kIbT0y1KYDWg7jzlalAvJQPKAEFbYrtYvGr8BfdrL RbckhCmXrTM+fsoCq+IvY8yQD/Ck3nDDhvkP4cfdTw02noPgHN7aUhVTCMvJ AAzAwUeBeteGnsJucvXD5/gmhrR0BcwjH2AfMJ7XVNStqoQsUTRYmb2wN9R6 2t+D1UCGh9UDz6ca/szzowO5/bk9kJNZPT534SvJ+brBUuWfW9QHb6BK9DTj KrtAj95aUqNTBy/Fhxt0AdOSKrwrrIfRk/vKDicKwFduf0PjsgZoDBHfkQBe s7f9o3jxPeQH7Ln04TgfqFbOXIGACe5d9Rqc7zz4Iz1mW7pWE5RaK8joRvGg czyRuecUC2aRCc2DLuu6TJUqNqyL8e359y4X8pM7Qt+pt8ANcbqYciH7nGz0 kqMcuLVeHLBOGN61vX/3s1Y4Rp6gE+TXRTo8mt0Op8Tbm9MJx2d0KXBdOiT5 3AEK5bpSLJtOIMPd1w7mwXZjVaOdoES+cO2QlnUhUzONC6rkC9MGbmuNVnXc QGvwmpkpGeiu06f9nLK4cJA8QRvcoSyapHQbrb/zsGl0Hrow5fkeqQL0EbM9 0mWF6BVsxZQjT7jwYoE4gm0wFlxkaFSKpim7vBaWoa2od394V6LfxH/Va6Oj 4wyu11x7xZXkRxs4vF3r5liLVvbr/za9Hs2WvxT/ugGdmmu6JKoR7Wrd/nwN G63ee3b7eAtaEKn75WkbFw6J08+/DfZVh2gt56M/StdsvdOLfpzuK9w1gA6G 36IoQi7QN5lGr3YXxaP9KYXzET123L3k6hf02dL7fdO+o+VGRudGjKNrr2Y8 tpTmwe9kArRBvMnGzT9k0VSmUPBkElol8MqJwKno5pmrVAwU0Gn5vAf9img3 u+gNOTPRGkKDTg9RHgeK0x9E+aB7YmazKlp/76s1WyjoT5MPceQ10IU5sw/T tdBH1pcrhC/iSd4/UTwEXtkWOmiaekFTkQHayu3nZD0T9NTx7PReU/SbtM1m WSt4QCELuig/Vn5552aOdmhJ3jfPEq0cainLWoNmz+5JTViPTi2ONbbdiHbd alw7dRMPghLniN6QNvDgegf6bEF7+SWpvtiK9jbKHwx0Ru/+zqjQ2IHeU8FN eLcTvTdi1Pu0Ow9eZ4gLQCscLqKNfw3igTpZcFrhvLLNMkE6D2rfiFcrFDV6 J5Z/5cFCcTuJaQWzN/ky3Vf5knrVCmq3jpWmJfNBl2xYHJAKsQqgpqEFNjN1 5G6iGZqtXFoGOq7ukL3+bbTTscnPU/PQK+wbQhwe8kF8dd8eDvy+6PqyqQVo qTGf3opCtKDBMD34CZpxZ2ybXin63knGdEEZ+qJjIj2lAh2g43rKvpIvqfcc MGv6Iiyno6XORLsurUULtjmq8OvQDD3K2+QGdJ5sf8SWRnRcc6H5ZDYfyHZY I/r9nPyPsg98ybzCgUDjjP06X9ArOv/gJI2g5xdLJ9r+i5a58OavX8fR3R5J MmVSAsk8w4GXpp6lAbLo7u6SkMWqAsm8woEF63cPJ64TAOe7uCFx4FrZutEs a/RMY82fRbbotwcTwizs0efvSf9Cp6Ktevwj7ZwEkn4r2p9m5xS2M7pLarua mp9AMt9wwDXkT3W9AHQToaJtcQSdoBt5pyYUbeczrGN3HK2Q6XWfdVIgmXdE 8W9/b+Aehs4ts1mbdUUgmXc4oGm8dGNRCjrtnpxNzU20c09one0t9CzNPntW Frre1Znpdhsdm0J36r0rAFGxFHdoOBl91l2uEO0fsnrf0nL00sL8wUKaAMhx RokDvQTloHkVOks37tOLF2gPn/FAWwa6pb01xK0W7eD07IR/A9rE2ORSYbcA TFzFEwIHOj7HvsyM6AJyvIxrgUEj+whVw2743wEtoD2g1y/9vhtSksWrGaq1 ghr8w3pgSNzetZshjtm4y0GrF0ao4gmPDQSVdkmmulcyX7GhYKvyWrNDfSBF LjZk1oZf5yn1S+ZlFnyjuxxTquyXzJ8s6LxUMTzjwACIpxeV5ib4+m6l6hnF Qck80wT+lzVooWWDQJZvkyaYXasxQ+D6AWaTCdwI1Ma8H2rjHyT9uRE+u2X4 tuYKJfW+ESrcH0YobiYk9Y0JpXW+m9ptCUl9Y0Kxhc7MB/boR/d7mk44ovPU stNstqEzRymLP7igU9gpjy94oi8VK8PSPehzl+NfvfZDh8vaxqf6o08GyDvt DyTgCNlOmHCUy5i3MhgdtCWSKxeK9lQ4PmJ9Fr2FcWh6dBx6s6lBo3MCekPO YMriK+g1yrnuI0mEpJ4zweKsjzYjBW3syXvkk47WtdxpPjkHrTGfzci5h57z w8HR6hF61v4Zc1UK0dNbaju6itFy1jHZRU/Rk0o27o8oI0CTLBhMGAq0OFNN R3MNjJNl36PZ0x5qZbLRbweW5K9pR7/a3hOkxEW/eJm1kscnIJT8g8AE2p+e 0gXd6LLbFHpYHzp3l3I7bQidRJEf/vkT/R8yyIqh "]]}}, {}}, {GrayLevel[1], RectangleBox[{0, 0.8}, {1, 1}]}, {GrayLevel[1], RectangleBox[{0, 0.135}, {1, 0}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{ FormBox[ "\"\\!\\(\\*SubscriptBox[\\n \ StyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\"], \\\"S\\\"]\\)\"", TraditionalForm], FormBox[ "\" \\!\\(\\*\\nStyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Epilog->{{ GrayLevel[0.5], AbsoluteDashing[{4, 8}], AbsoluteThickness[2], LineBox[{{0, 0.8}, {1, 0.8}}]}, { GrayLevel[0.5], AbsoluteDashing[{4, 8}], AbsoluteThickness[2], LineBox[{{0, 0.135}, {1, 0.135}}]}, { InsetBox[ FormBox[ StyleBox[ "\"w = 0.99\"", 14, TextAlignment -> Left, StripOnInput -> False], TraditionalForm], {0.11, 0.17}]}, { InsetBox[ FormBox[ StyleBox[ "\"w = 0.9\"", 14, TextAlignment -> Left, StripOnInput -> False], TraditionalForm], {0.55, 0.22}]}, { InsetBox[ FormBox[ StyleBox[ "\"w = 0.8\"", 14, TextAlignment -> Left, StripOnInput -> False], TraditionalForm], {0.7, 0.32}]}, { InsetBox[ FormBox[ StyleBox[ "\"w = 0.7\"", 14, TextAlignment -> Left, StripOnInput -> False], TraditionalForm], {0.77, 0.42}]}, { InsetBox[ FormBox[ StyleBox[ "\"min. obs. \\!\\(\\*\\nStyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\ \"]\\)\"", 14, GrayLevel[0.5], TextAlignment -> Right, StripOnInput -> False], TraditionalForm], {0.8, 0.09}]}, { InsetBox[ FormBox[ StyleBox[ "\"max. obs. \\!\\(\\*\\nStyleBox[\\\"u\\\",\\nFontSlant->\\\"Italic\\\ \"]\\)\"", 14, GrayLevel[0.5], TextAlignment -> Right, StripOnInput -> False], TraditionalForm], {0.8, 0.76}]}}, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->600, LabelStyle->14, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{All, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.672022961439234*^9, 3.6720236214928913`*^9, 3.67235409929305*^9, 3.672354146989286*^9, {3.672354204747311*^9, 3.672354248194798*^9}, 3.672354281477178*^9, 3.672445814863675*^9, 3.672455336816248*^9, 3.672455417829461*^9, 3.6724581203309097`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.67235424603582*^9, 3.672354331023657*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowToolbars->"EditBar", WindowSize->{1440, 795}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 28, \ 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 168, 5, 92, "Title"], Cell[751, 29, 946, 16, 68, "Text"], Cell[CellGroupData[{ Cell[1722, 49, 80, 1, 65, "Chapter"], Cell[CellGroupData[{ Cell[1827, 54, 93, 1, 64, "Section"], Cell[CellGroupData[{ Cell[1945, 59, 94, 1, 44, "Subsection"], Cell[2042, 62, 767, 12, 49, "Text"], Cell[2812, 76, 266, 5, 32, "Input"], Cell[3081, 83, 452, 9, 32, "Input"], Cell[3536, 94, 437, 7, 30, "Text"], Cell[3976, 103, 120, 2, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4133, 110, 98, 1, 44, "Subsection"], Cell[4234, 113, 441, 8, 30, "Text"], Cell[4678, 123, 53, 1, 32, "Input"], Cell[4734, 126, 252, 5, 30, "Text"], Cell[4989, 133, 5442, 131, 1291, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10504, 272, 90, 1, 92, "Title"], Cell[CellGroupData[{ Cell[10619, 277, 280, 4, 65, "Chapter"], Cell[CellGroupData[{ Cell[10924, 285, 177, 2, 64, "Section"], Cell[CellGroupData[{ Cell[11126, 291, 201, 3, 35, "Subsubsection"], Cell[11330, 296, 1926, 44, 138, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[13293, 345, 208, 3, 35, "Subsubsection"], Cell[13504, 350, 341, 6, 30, "Text"], Cell[13848, 358, 1442, 25, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[15327, 388, 308, 4, 35, "Subsubsection"], Cell[15638, 394, 325, 6, 30, "Text"], Cell[15966, 402, 612, 14, 54, "Input"], Cell[16581, 418, 363, 9, 54, "Input"], Cell[16947, 429, 124, 1, 30, "Text"], Cell[17074, 432, 256, 5, 32, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17379, 443, 146, 2, 64, "Section"], Cell[CellGroupData[{ Cell[17550, 449, 216, 3, 44, "Subsection"], Cell[17769, 454, 286, 5, 30, "Text"], Cell[CellGroupData[{ Cell[18080, 463, 127, 1, 35, "Subsubsection"], Cell[18210, 466, 140, 1, 30, "Text"], Cell[18353, 469, 371, 7, 54, "Input"], Cell[18727, 478, 495, 10, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[19259, 493, 269, 3, 35, "Subsubsection"], Cell[19531, 498, 188, 2, 30, "Text"], Cell[19722, 502, 277, 6, 54, "Input"], Cell[20002, 510, 593, 14, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[20632, 529, 178, 2, 35, "Subsubsection"], Cell[20813, 533, 185, 4, 30, "Text"], Cell[21001, 539, 372, 7, 54, "Input"], Cell[21376, 548, 948, 18, 54, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22373, 572, 330, 4, 44, "Subsection"], Cell[CellGroupData[{ Cell[22728, 580, 696, 14, 35, "Subsubsection"], Cell[23427, 596, 1060, 16, 30, "Text"], Cell[24490, 614, 888, 16, 54, "Input"], Cell[25381, 632, 286, 9, 31, "Text"], Cell[25670, 643, 1539, 25, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[27246, 673, 748, 17, 37, "Subsubsection"], Cell[27997, 692, 843, 18, 32, "Text"], Cell[28843, 712, 636, 10, 32, "Input"], Cell[29482, 724, 422, 13, 32, "Text"], Cell[29907, 739, 562, 13, 32, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30518, 758, 108, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[30651, 763, 269, 3, 35, "Subsubsection"], Cell[30923, 768, 675, 15, 30, "Text"], Cell[31601, 785, 608, 11, 54, "Input"], Cell[32212, 798, 1231, 19, 54, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33492, 823, 101, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[33618, 828, 501, 12, 35, "Subsubsection"], Cell[34122, 842, 212, 6, 30, "Text"], Cell[34337, 850, 351, 10, 75, "Input"], Cell[34691, 862, 246, 5, 30, "Text"], Cell[34940, 869, 217, 3, 30, "Text"], Cell[35160, 874, 690, 15, 54, "Input"], Cell[35853, 891, 196, 2, 30, "Text"], Cell[36052, 895, 613, 13, 55, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36714, 914, 203, 3, 44, "Subsection"], Cell[CellGroupData[{ Cell[36942, 921, 1170, 29, 39, "Subsubsection"], Cell[38115, 952, 405, 5, 30, "Text"], Cell[38523, 959, 440, 8, 54, "Input"], Cell[38966, 969, 767, 13, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[39770, 987, 758, 22, 39, "Subsubsection"], Cell[40531, 1011, 131, 1, 30, "Text"], Cell[40665, 1014, 321, 8, 54, "Input"], Cell[40989, 1024, 356, 9, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[41382, 1038, 844, 21, 39, "Subsubsection"], Cell[42229, 1061, 961, 18, 31, "Text"], Cell[43193, 1081, 562, 10, 54, "Input"], Cell[43758, 1093, 759, 12, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[44554, 1110, 626, 19, 39, "Subsubsection"], Cell[45183, 1131, 653, 19, 36, "Text"], Cell[45839, 1152, 109, 4, 34, "Input"], Cell[45951, 1158, 1752, 41, 60, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[47752, 1205, 108, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[47885, 1210, 986, 20, 39, "Subsubsection"], Cell[48874, 1232, 941, 14, 30, "Text"], Cell[49818, 1248, 439, 9, 75, "Input"], Cell[50260, 1259, 549, 10, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[50846, 1274, 557, 18, 37, "Subsubsection"], Cell[51406, 1294, 296, 10, 30, "Text"], Cell[51705, 1306, 818, 17, 58, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[52572, 1329, 111, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[52708, 1334, 285, 9, 35, "Subsubsection"], Cell[52996, 1345, 236, 4, 30, "Text"], Cell[53235, 1351, 616, 11, 54, "Input"], Cell[53854, 1364, 975, 15, 54, "Input"], Cell[54832, 1381, 475, 8, 30, "Text"], Cell[55310, 1391, 271, 5, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[55618, 1401, 644, 14, 37, "Subsubsection"], Cell[56265, 1417, 496, 8, 30, "Text"], Cell[56764, 1427, 757, 13, 54, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[57558, 1445, 299, 9, 37, "Subsubsection"], Cell[57860, 1456, 238, 7, 30, "Text"], Cell[58101, 1465, 468, 12, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[58606, 1482, 297, 9, 37, "Subsubsection"], Cell[58906, 1493, 400, 12, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[59343, 1510, 262, 8, 37, "Subsubsection"], Cell[59608, 1520, 263, 7, 32, "Text"], Cell[59874, 1529, 427, 13, 32, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60374, 1550, 248, 3, 65, "Chapter"], Cell[CellGroupData[{ Cell[60647, 1557, 130, 2, 64, "Section"], Cell[CellGroupData[{ Cell[60802, 1563, 112, 1, 44, "Subsection"], Cell[60917, 1566, 1053, 27, 70, "Text"], Cell[61973, 1595, 681, 18, 32, "Input"], Cell[CellGroupData[{ Cell[62679, 1617, 123, 1, 35, "Subsubsection"], Cell[62805, 1620, 452, 10, 32, "Text"], Cell[63260, 1632, 502, 10, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[63799, 1647, 232, 8, 37, "Subsubsection"], Cell[64034, 1657, 141, 2, 30, "Text"], Cell[64178, 1661, 274, 8, 32, "Input"], Cell[64455, 1671, 292, 8, 32, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[64784, 1684, 375, 10, 35, "Subsubsection"], Cell[65162, 1696, 323, 6, 30, "Text"], Cell[65488, 1704, 766, 15, 56, "Input"], Cell[66257, 1721, 111, 1, 30, "Text"], Cell[66371, 1724, 626, 14, 32, "Input"], Cell[67000, 1740, 104, 1, 30, "Text"], Cell[67107, 1743, 313, 8, 32, "Input"], Cell[67423, 1753, 200, 6, 30, "Text"], Cell[67626, 1761, 478, 14, 35, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[68141, 1780, 486, 11, 35, "Subsubsection"], Cell[68630, 1793, 710, 16, 32, "Text"], Cell[69343, 1811, 410, 11, 32, "Input"], Cell[69756, 1824, 408, 11, 32, "Input"], Cell[70167, 1837, 732, 19, 35, "Input"], Cell[70902, 1858, 848, 21, 35, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[71787, 1884, 124, 1, 35, "Subsubsection"], Cell[71914, 1887, 499, 15, 32, "Text"], Cell[72416, 1904, 548, 15, 32, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[73025, 1926, 180, 2, 64, "Section"], Cell[73208, 1930, 385, 12, 30, "Text"], Cell[73596, 1944, 232, 5, 30, "Text"], Cell[73831, 1951, 638, 17, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[74506, 1973, 148, 2, 64, "Section"], Cell[CellGroupData[{ Cell[74679, 1979, 320, 10, 45, "Subsection"], Cell[75002, 1991, 462, 9, 30, "Text"], Cell[75467, 2002, 120, 1, 30, "Text"], Cell[75590, 2005, 570, 16, 34, "Input"], Cell[76163, 2023, 148, 2, 30, "Text"], Cell[76314, 2027, 542, 13, 34, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[76893, 2045, 335, 10, 45, "Subsection"], Cell[77231, 2057, 965, 20, 51, "Text"], Cell[78199, 2079, 358, 10, 32, "Input"], Cell[78560, 2091, 359, 10, 32, "Input"], Cell[78922, 2103, 627, 17, 35, "Input"], Cell[79552, 2122, 1131, 23, 34, "Text"], Cell[80686, 2147, 1991, 43, 103, "Input"], Cell[82680, 2192, 260, 5, 30, "Text"], Cell[82943, 2199, 1409, 33, 103, "Input"], Cell[84355, 2234, 183, 2, 30, "Text"], Cell[84541, 2238, 2002, 45, 110, "Input"], Cell[86546, 2285, 163, 2, 30, "Text"], Cell[86712, 2289, 1795, 38, 103, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[88544, 2332, 256, 3, 44, "Subsection"], Cell[88803, 2337, 427, 10, 30, "Text"], Cell[CellGroupData[{ Cell[89255, 2351, 138, 1, 35, "Subsubsection"], Cell[89396, 2354, 212, 4, 30, "Text"], Cell[89611, 2360, 631, 17, 55, "Input"], Cell[90245, 2379, 533, 12, 34, "Text"], Cell[90781, 2393, 714, 16, 55, "Input"], Cell[91498, 2411, 466, 11, 34, "Text"], Cell[91967, 2424, 714, 16, 56, "Input"], Cell[92684, 2442, 217, 4, 30, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[92938, 2451, 136, 1, 35, "Subsubsection"], Cell[93077, 2454, 424, 10, 32, "Text"], Cell[93504, 2466, 1174, 29, 55, "Input"], Cell[94681, 2497, 87, 1, 30, "Text"], Cell[94771, 2500, 860, 19, 55, "Input"], Cell[95634, 2521, 457, 12, 56, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[96152, 2540, 108, 1, 64, "Section"], Cell[CellGroupData[{ Cell[96285, 2545, 226, 3, 44, "Subsection"], Cell[96514, 2550, 202, 4, 30, "Text"], Cell[96719, 2556, 611, 16, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[97367, 2577, 230, 3, 44, "Subsection"], Cell[97600, 2582, 327, 6, 30, "Text"], Cell[97930, 2590, 809, 21, 96, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[98800, 2618, 202, 3, 65, "Chapter"], Cell[CellGroupData[{ Cell[99027, 2625, 160, 2, 44, "Subsection"], Cell[99190, 2629, 574, 18, 32, "Text"], Cell[99767, 2649, 3709, 83, 327, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[103513, 2737, 295, 4, 44, "Subsection"], Cell[103811, 2743, 452, 14, 32, "Text"], Cell[104266, 2759, 4709, 116, 270, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[109012, 2880, 544, 8, 44, "Subsection"], Cell[CellGroupData[{ Cell[109581, 2892, 527, 14, 36, "Subsubsection"], Cell[110111, 2908, 584, 13, 33, "Text"], Cell[110698, 2923, 1332, 29, 32, "Input"], Cell[112033, 2954, 332, 11, 32, "Text"], Cell[112368, 2967, 5901, 130, 516, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[118306, 3102, 243, 6, 35, "Subsubsection"], Cell[118552, 3110, 579, 17, 32, "Text"], Cell[119134, 3129, 4839, 119, 411, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[124034, 3255, 92, 1, 65, "Chapter"], Cell[CellGroupData[{ Cell[124151, 3260, 116, 1, 44, "Subsection"], Cell[CellGroupData[{ Cell[124292, 3265, 102, 1, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[124419, 3270, 468, 7, 32, "Input"], Cell[124890, 3279, 25694, 512, 361, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[150645, 3798, 146, 2, 44, "Subsection"], Cell[CellGroupData[{ Cell[150816, 3804, 688, 10, 32, "Input"], Cell[151507, 3816, 20202, 389, 328, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[171758, 4211, 172, 6, 44, "Subsection"], Cell[CellGroupData[{ Cell[171955, 4221, 247, 4, 32, "Input"], Cell[172205, 4227, 13360, 252, 408, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[185614, 4485, 178, 6, 44, "Subsection"], Cell[CellGroupData[{ Cell[185817, 4495, 205, 3, 32, "Input"], Cell[186025, 4500, 27145, 484, 408, "Output"] }, Open ]], Cell[213185, 4987, 89, 1, 32, "Input"] }, Open ]] }, Open ]] }, Open ]] } ] *)