(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 491873, 11533] NotebookOptionsPosition[ 427699, 10766] NotebookOutlinePosition[ 428140, 10783] CellTagsIndexPosition[ 428097, 10780] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Figure 5 : Evolutionarily stable virulence according to p and T : Floquet \ method\ \>", "Section", CellChangeTimes->{{3.8146786322593584`*^9, 3.8146786950590353`*^9}, { 3.814684960145999*^9, 3.8146849913860154`*^9}, {3.814687957043744*^9, 3.814687993715679*^9}, {3.81573498095619*^9, 3.815734985262968*^9}},ExpressionUUID->"f42cae73-91e9-42a8-8f23-\ ba6a2d08f1f4"], Cell["Functions", "Subsection", CellChangeTimes->{{3.773635504627611*^9, 3.773635505359812*^9}, { 3.773635563487845*^9, 3.7736355641311665`*^9}, {3.7813305541156516`*^9, 3.781330558396535*^9}, {3.782733018985167*^9, 3.7827330232961273`*^9}},ExpressionUUID->"61e0b6aa-c851-4f34-8916-\ ed96808a1165"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["T-periodic square function", "Text"]], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.814679553416707*^9, 3.81467955684791*^9}, {3.8146795947242804`*^9, 3.8146796038084836`*^9}},ExpressionUUID->"71a1ce96-56e3-4cc5-b9f2-\ de194eb3e1c4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Nu]", "[", "t_", "]"}], ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"t", ",", "period"}], "]"}], "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{"t", ",", "period"}], "]"}], " ", "\[LessEqual]", RowBox[{"p", " ", "period"}]}]}], ",", SubscriptBox["\[Nu]", "max"], ",", SubscriptBox["\[Nu]", "min"]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.782733097871188*^9, 3.782733098042356*^9}, { 3.782733172807872*^9, 3.782733225702805*^9}, {3.782799128131941*^9, 3.782799137081585*^9}, {3.7828011961065187`*^9, 3.7828011963534822`*^9}, { 3.782804714216487*^9, 3.782804761549217*^9}, {3.7828047956682587`*^9, 3.782804823377716*^9}, {3.783234619690131*^9, 3.783234620366033*^9}, 3.7832464716896667`*^9, {3.783337864599156*^9, 3.7833378761062927`*^9}, { 3.783338352766814*^9, 3.783338361987915*^9}, {3.7834021554710627`*^9, 3.7834021594241*^9}, {3.7834036764250593`*^9, 3.783403713779108*^9}, { 3.783403845418488*^9, 3.783403863415435*^9}, {3.783404457708583*^9, 3.7834044645145206`*^9}, {3.783405074514501*^9, 3.783405075521028*^9}, { 3.7839332755093718`*^9, 3.783933291750869*^9}, {3.783937157658964*^9, 3.783937158705433*^9}, {3.783944165124826*^9, 3.7839442332237997`*^9}, { 3.7839443510520144`*^9, 3.7839443764552383`*^9}, {3.783944412295107*^9, 3.7839444135288897`*^9}, 3.784355184079467*^9, {3.784367174389304*^9, 3.784367209342579*^9}, {3.7843686339073687`*^9, 3.784368644759679*^9}, 3.784368741405861*^9, {3.784372127971723*^9, 3.784372130118856*^9}, { 3.784373133933194*^9, 3.784373173355878*^9}, {3.784373217492775*^9, 3.7843733545121107`*^9}, {3.784373448209797*^9, 3.784373650046002*^9}, { 3.7843739127620697`*^9, 3.784373937920573*^9}, {3.7843739736606703`*^9, 3.784373985557932*^9}, {3.784374027992071*^9, 3.784374028946094*^9}, 3.7843759718198547`*^9, {3.7844496640292034`*^9, 3.784449670896808*^9}, 3.7844503529929934`*^9, {3.7846164423461056`*^9, 3.7846164431162314`*^9}, { 3.7846357290560317`*^9, 3.7846357466022935`*^9}, {3.7848891383056765`*^9, 3.784889138660181*^9}, 3.7936148015793805`*^9, {3.809860375494294*^9, 3.80986037669843*^9}, {3.8146783270370727`*^9, 3.814678338111764*^9}, { 3.814678482141125*^9, 3.8146784917750926`*^9}, {3.814679480075869*^9, 3.8146795113466034`*^9}, {3.8146795603690443`*^9, 3.81467956146585*^9}, { 3.814679597033947*^9, 3.814679601813321*^9}}, CellLabel-> "In[217]:=",ExpressionUUID->"2d8f61e1-40aa-434f-8397-6060d9be6ced"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Forces of infection", "Text"]], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.814678519163371*^9, 3.8146785251787186`*^9}},ExpressionUUID->"f5f5c336-5617-47fc-84d4-\ 1096aadcb337"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["h", "U"], "[", "t_", "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], " ", RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"fonction", " ", "\[EAcute]pid\[EAcute]mio"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["h", "T"], "[", "t_", "]"}], ":=", " ", RowBox[{ RowBox[{"\[Sigma]", " ", SubscriptBox["\[Beta]", "U"], " ", RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{"\[Sigma]", " ", SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"fonction", " ", "\[EAcute]pid\[EAcute]mio"}], " ", "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.782733097871188*^9, 3.782733098042356*^9}, { 3.782733172807872*^9, 3.782733225702805*^9}, {3.782799128131941*^9, 3.782799137081585*^9}, {3.7828011961065187`*^9, 3.7828011963534822`*^9}, { 3.782804714216487*^9, 3.782804761549217*^9}, {3.7828047956682587`*^9, 3.782804823377716*^9}, {3.783234619690131*^9, 3.783234620366033*^9}, 3.7832464716896667`*^9, {3.783337864599156*^9, 3.7833378761062927`*^9}, { 3.783338352766814*^9, 3.783338361987915*^9}, {3.7834021554710627`*^9, 3.7834021594241*^9}, {3.7834036764250593`*^9, 3.783403713779108*^9}, { 3.783403845418488*^9, 3.783403863415435*^9}, {3.783404457708583*^9, 3.7834044645145206`*^9}, {3.783405074514501*^9, 3.783405075521028*^9}, { 3.7839332755093718`*^9, 3.783933291750869*^9}, {3.783937157658964*^9, 3.783937158705433*^9}, {3.783944165124826*^9, 3.7839442332237997`*^9}, { 3.7839443510520144`*^9, 3.7839443764552383`*^9}, {3.783944412295107*^9, 3.7839444135288897`*^9}, 3.784355184079467*^9, {3.784367174389304*^9, 3.784367209342579*^9}, {3.7843686339073687`*^9, 3.784368644759679*^9}, 3.784368741405861*^9, {3.784372127971723*^9, 3.784372130118856*^9}, { 3.784373133933194*^9, 3.784373173355878*^9}, {3.784373217492775*^9, 3.7843733545121107`*^9}, {3.784373448209797*^9, 3.784373650046002*^9}, { 3.7843739127620697`*^9, 3.784373937920573*^9}, {3.7843739736606703`*^9, 3.784373985557932*^9}, {3.784374027992071*^9, 3.784374028946094*^9}, 3.7843759718198547`*^9, {3.7844496640292034`*^9, 3.784449670896808*^9}, 3.7844503529929934`*^9, {3.7846164423461056`*^9, 3.7846164431162314`*^9}, { 3.7846357290560317`*^9, 3.7846357466022935`*^9}, {3.7848891383056765`*^9, 3.784889138660181*^9}, 3.7936148015793805`*^9, {3.809860375494294*^9, 3.80986037669843*^9}, {3.8146783270370727`*^9, 3.814678338111764*^9}, { 3.814678482141125*^9, 3.8146784917750926`*^9}, {3.814679219043457*^9, 3.814679219889784*^9}}, CellLabel-> "In[218]:=",ExpressionUUID->"20ac4b63-84ac-42af-b541-5d63deab8036"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Transmission-virulence trade-off ", "Text"]], \ "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.8146785354673405`*^9, 3.8146785426923385`*^9}},ExpressionUUID->"d43d0eec-a4cd-494b-81dd-\ 2e23279ae6f1"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Beta]", "[", "x_", "]"}], ":=", RowBox[{"5", RowBox[{"x", "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Alpha]", "[", "x_", "]"}], ":=", "x"}], ";"}]}], "Input", CellChangeTimes->{3.8146785498426695`*^9, 3.814679340082705*^9}, CellLabel-> "In[220]:=",ExpressionUUID->"67466644-af97-4096-a449-8e30b447d5d6"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Transmission and virulence ", "Text"]], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.8146785354673405`*^9, 3.8146785426923385`*^9}, {3.8146791140098104`*^9, 3.814679117953334*^9}},ExpressionUUID->"f20b1427-8ad1-4e23-9be8-\ 5a1e5fd14e26"], Cell[BoxData[ RowBox[{ RowBox[{"fun", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "U"], "\[Rule]", " ", RowBox[{"\[Alpha]", "[", "x", "]"}]}], ",", " ", RowBox[{ SubscriptBox["\[Beta]", "U"], "\[Rule]", " ", RowBox[{"\[Beta]", "[", "x", "]"}]}], ",", " ", RowBox[{ SubscriptBox["\[Beta]", "T"], "\[Rule]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "3"]}], ")"}], RowBox[{"\[Beta]", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], "x"}], "]"}]}]}], ",", " ", RowBox[{ SubscriptBox["\[Alpha]", "T"], "\[Rule]", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "4"]}], ")"}], RowBox[{"\[Alpha]", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], "x"}], "]"}]}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.8146792604732513`*^9, 3.814679299930256*^9}, 3.8146793569328127`*^9}, CellLabel-> "In[222]:=",ExpressionUUID->"107254bb-8189-4a71-9136-aab15cbbc288"], Cell[CellGroupData[{ Cell["Parameters", "Subsection", CellChangeTimes->{{3.773635504627611*^9, 3.773635505359812*^9}, { 3.773635563487845*^9, 3.7736355641311665`*^9}, {3.7813305541156516`*^9, 3.781330558396535*^9}, {3.7832443858153143`*^9, 3.7832443893744783`*^9}, { 3.8146785738232994`*^9, 3.8146785771323433`*^9}, 3.814678734850321*^9},ExpressionUUID->"ee4eb5d9-eec4-4cb6-8d1b-\ 4b2c5a614698"], Cell[BoxData[ RowBox[{ RowBox[{"tend", "=", "400"}], ";"}]], "Input", CellChangeTimes->{{3.7846350344625063`*^9, 3.78463503906843*^9}, { 3.7848891456925735`*^9, 3.7848891515203657`*^9}, 3.785735051801385*^9, { 3.785741998200568*^9, 3.7857420261862717`*^9}, {3.785742071766706*^9, 3.785742072052472*^9}, {3.7857421031706953`*^9, 3.7857421255734997`*^9}, 3.785749865846203*^9, {3.7857512832919703`*^9, 3.785751289108974*^9}, { 3.787913935502869*^9, 3.787913970612689*^9}, {3.7879804242236915`*^9, 3.7879805327366557`*^9}, {3.787980565994981*^9, 3.787980721088555*^9}, { 3.7879807714563913`*^9, 3.7879807876961145`*^9}, {3.7879808249529753`*^9, 3.7879808652444277`*^9}, {3.789464938600443*^9, 3.7894649391784754`*^9}, { 3.789464982319584*^9, 3.7894650312827787`*^9}, {3.7894668790341063`*^9, 3.78946688906582*^9}, {3.7894669272095795`*^9, 3.789466941696265*^9}, { 3.7936148132447214`*^9, 3.793614890340866*^9}, 3.793614922743394*^9, { 3.7936149571559205`*^9, 3.793614957760547*^9}, {3.7936153755497675`*^9, 3.793615382310989*^9}, {3.793960205179286*^9, 3.793960208104191*^9}, { 3.7939602430378714`*^9, 3.793960292872838*^9}, {3.7939603461683564`*^9, 3.793960521137968*^9}, {3.794307871957835*^9, 3.7943079081689816`*^9}, { 3.7943082525751677`*^9, 3.7943082832959533`*^9}, {3.795323645275709*^9, 3.795323704014177*^9}, {3.795329177966961*^9, 3.795329192535523*^9}, { 3.795329285836069*^9, 3.7953293114161596`*^9}, {3.795337250251523*^9, 3.795337276159265*^9}, {3.7953381457386446`*^9, 3.7953381590695353`*^9}, 3.79533819231359*^9, {3.797329409229101*^9, 3.7973294547752504`*^9}, { 3.8078653010239573`*^9, 3.8078653012268405`*^9}, {3.8078654158443575`*^9, 3.807865416705845*^9}, {3.807866184364339*^9, 3.8078661850127807`*^9}, { 3.8078668504103546`*^9, 3.8078668970525064`*^9}, 3.8078669762205915`*^9, 3.8146783491054535`*^9, {3.8146785455006423`*^9, 3.8146785548282504`*^9}, { 3.814678596253053*^9, 3.8146786031795893`*^9}, {3.814679049293153*^9, 3.8146790559070425`*^9}, {3.814679086442998*^9, 3.8146790995741916`*^9}, { 3.8146791337795444`*^9, 3.814679134523259*^9}, {3.814679494953847*^9, 3.81467949545689*^9}, {3.8146798814339304`*^9, 3.81467988200845*^9}, { 3.8146799487936683`*^9, 3.814679950150361*^9}, 3.814680146693499*^9, 3.814695622012924*^9, {3.814697380962141*^9, 3.8146973918559217`*^9}}, CellLabel-> "In[223]:=",ExpressionUUID->"3d659937-d48a-4467-ad20-7d8a3614b624"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Variables : ", "Text"], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], "Text"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "b5e8a954-708c-4845-8b95-b6950cf0c50e"], StyleBox[" (naive susceptible), ", "Text"], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], "Text"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "73a5716b-e524-4197-b28a-647c5e0808d5"], StyleBox[" (treated susceptible), ", "Text"], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "Text"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "42ac3f09-61fb-49ae-837f-00c31f966f50"], StyleBox[" (naive infected), ", "Text"], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "Text"], TraditionalForm]], FormatType->"TraditionalForm",ExpressionUUID-> "d77e1050-3e56-44eb-bdf3-8637f4e7c68b"], StyleBox[" (treated infected) ", "Text"] }], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.8146785354673405`*^9, 3.8146785426923385`*^9}, {3.814678773059308*^9, 3.814678905403185*^9}},ExpressionUUID->"992e5632-df1a-4bed-9b6a-\ dde022efe954"], Cell[BoxData[ RowBox[{ RowBox[{"vars", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.781254777516264*^9, 3.7812550339699764`*^9}, { 3.7812554926036234`*^9, 3.7812555109929533`*^9}, {3.781255690448312*^9, 3.7812556944949427`*^9}, {3.781255809395154*^9, 3.7812559025177593`*^9}, { 3.781255990736166*^9, 3.7812559927985244`*^9}, 3.7812575405397606`*^9, { 3.7812576595612173`*^9, 3.78125774933109*^9}, {3.7812577923839955`*^9, 3.781257792915248*^9}, {3.781257855051608*^9, 3.781257903167404*^9}, { 3.78125799700679*^9, 3.781258050440591*^9}, {3.781258089059433*^9, 3.781258116255972*^9}, {3.781258168314863*^9, 3.7812581753301396`*^9}, { 3.7812600288772373`*^9, 3.781260029392703*^9}, {3.7812644086979136`*^9, 3.781264461207691*^9}, 3.78126467075363*^9, {3.781267560365933*^9, 3.7812675890295095`*^9}, {3.781330585316495*^9, 3.781330588300702*^9}, { 3.7813425764449725`*^9, 3.781342592245322*^9}, {3.7813427718005686`*^9, 3.7813427742632055`*^9}, {3.7813439440620604`*^9, 3.781343966256383*^9}, { 3.7813480741600547`*^9, 3.7813480770974865`*^9}, 3.781352674609539*^9, { 3.7813527643977313`*^9, 3.781352771282955*^9}, {3.781411506744766*^9, 3.781411512618375*^9}, {3.781411993014685*^9, 3.781412024251787*^9}, { 3.7814120595306177`*^9, 3.7814120653203025`*^9}, {3.7814120978626933`*^9, 3.781412100413243*^9}, {3.7814121341259885`*^9, 3.7814121343368344`*^9}, { 3.781412309276826*^9, 3.7814123205633373`*^9}, {3.7814125046886005`*^9, 3.7814125072801137`*^9}, {3.78141266462914*^9, 3.781412665115862*^9}, { 3.7814126978221827`*^9, 3.78141270109931*^9}, {3.781413942430855*^9, 3.781413967216715*^9}, {3.781421180603479*^9, 3.7814212737102127`*^9}, { 3.781421442399435*^9, 3.7814214434298453`*^9}, {3.7815074478149443`*^9, 3.781507559729435*^9}, {3.7815076036611624`*^9, 3.781507628701585*^9}, { 3.781507663355313*^9, 3.781507673460061*^9}, 3.781507892346198*^9, { 3.781507956477439*^9, 3.7815080025538874`*^9}, {3.7815080367397995`*^9, 3.781508038453865*^9}, {3.7815080704154673`*^9, 3.781508154559347*^9}, { 3.7815098407551937`*^9, 3.7815100165993395`*^9}, {3.781949796957184*^9, 3.781949812003792*^9}, {3.7819501857456703`*^9, 3.781950201050798*^9}, { 3.781950287845545*^9, 3.781950288395589*^9}, {3.7819503398151827`*^9, 3.781950340284987*^9}, {3.781957918057992*^9, 3.7819579232474194`*^9}, { 3.7827330813031073`*^9, 3.782733125639876*^9}, {3.782799096980143*^9, 3.782799102086356*^9}, 3.782799812569613*^9, {3.782801614832428*^9, 3.782801615680245*^9}, {3.783232096051009*^9, 3.783232124351516*^9}, { 3.7832325353697033`*^9, 3.7832325442558203`*^9}, {3.783233157420356*^9, 3.7832331953564253`*^9}, 3.783233927688799*^9, {3.783234051307782*^9, 3.783234055736916*^9}, {3.783234700960717*^9, 3.783234729908125*^9}, { 3.783337262959304*^9, 3.7833372666316957`*^9}, {3.783402019669366*^9, 3.783402028074494*^9}, 3.783405423486126*^9, {3.783940059176766*^9, 3.7839400747230587`*^9}, {3.783944111973495*^9, 3.783944115454051*^9}, { 3.784368027261438*^9, 3.784368028505515*^9}, {3.784371031856937*^9, 3.7843710533302183`*^9}, {3.7844496366940703`*^9, 3.784449654498992*^9}, { 3.7844502874323263`*^9, 3.7844503198588343`*^9}, {3.7844504922931857`*^9, 3.78445050804828*^9}, 3.784955588641425*^9, {3.784962584495794*^9, 3.7849626222118835`*^9}, {3.787635579426891*^9, 3.7876355883869734`*^9}, { 3.7879807351134353`*^9, 3.7879807549258766`*^9}, {3.787987140250079*^9, 3.7879871476120405`*^9}, {3.7879891808081656`*^9, 3.787989185699894*^9}, { 3.7894669429603777`*^9, 3.789466943675978*^9}, {3.79361493542141*^9, 3.793614936177623*^9}, {3.793615000067281*^9, 3.7936150066546907`*^9}, { 3.7953237518023725`*^9, 3.795323753404461*^9}, {3.7953381114704947`*^9, 3.7953381169664483`*^9}, {3.7953381804507427`*^9, 3.795338184503441*^9}, { 3.7953382173292847`*^9, 3.795338221183358*^9}, {3.814678933453554*^9, 3.814678937662131*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"dcf56d4e-654f-4e0e-b6bd-bba0b66f0b3d"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Initial values", "Text"]], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.8146785354673405`*^9, 3.8146785426923385`*^9}, {3.814678773059308*^9, 3.814678905403185*^9}, {3.8146789470998487`*^9, 3.814678949906973*^9}},ExpressionUUID->"20b36f03-93f4-461c-8310-\ b15a11d54b00"], Cell[BoxData[ RowBox[{ RowBox[{"inits", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "0", "]"}], "\[Equal]", "0.2"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.781254777516264*^9, 3.7812550339699764`*^9}, { 3.7812554926036234`*^9, 3.7812555109929533`*^9}, {3.781255690448312*^9, 3.7812556944949427`*^9}, {3.781255809395154*^9, 3.7812559025177593`*^9}, { 3.781255990736166*^9, 3.7812559927985244`*^9}, 3.7812575405397606`*^9, { 3.7812576595612173`*^9, 3.78125774933109*^9}, {3.7812577923839955`*^9, 3.781257792915248*^9}, {3.781257855051608*^9, 3.781257903167404*^9}, { 3.78125799700679*^9, 3.781258050440591*^9}, {3.781258089059433*^9, 3.781258116255972*^9}, {3.781258168314863*^9, 3.7812581753301396`*^9}, { 3.7812600288772373`*^9, 3.781260029392703*^9}, {3.7812644086979136`*^9, 3.781264461207691*^9}, 3.78126467075363*^9, {3.781267560365933*^9, 3.7812675890295095`*^9}, {3.781330585316495*^9, 3.781330588300702*^9}, { 3.7813425764449725`*^9, 3.781342592245322*^9}, {3.7813427718005686`*^9, 3.7813427742632055`*^9}, {3.7813439440620604`*^9, 3.781343966256383*^9}, { 3.7813480741600547`*^9, 3.7813480770974865`*^9}, 3.781352674609539*^9, { 3.7813527643977313`*^9, 3.781352771282955*^9}, {3.781411506744766*^9, 3.781411512618375*^9}, {3.781411993014685*^9, 3.781412024251787*^9}, { 3.7814120595306177`*^9, 3.7814120653203025`*^9}, {3.7814120978626933`*^9, 3.781412100413243*^9}, {3.7814121341259885`*^9, 3.7814121343368344`*^9}, { 3.781412309276826*^9, 3.7814123205633373`*^9}, {3.7814125046886005`*^9, 3.7814125072801137`*^9}, {3.78141266462914*^9, 3.781412665115862*^9}, { 3.7814126978221827`*^9, 3.78141270109931*^9}, {3.781413942430855*^9, 3.781413967216715*^9}, {3.781421180603479*^9, 3.7814212737102127`*^9}, { 3.781421442399435*^9, 3.7814214434298453`*^9}, {3.7815074478149443`*^9, 3.781507559729435*^9}, {3.7815076036611624`*^9, 3.781507628701585*^9}, { 3.781507663355313*^9, 3.781507673460061*^9}, 3.781507892346198*^9, { 3.781507956477439*^9, 3.7815080025538874`*^9}, {3.7815080367397995`*^9, 3.781508038453865*^9}, {3.7815080704154673`*^9, 3.781508154559347*^9}, { 3.7815098407551937`*^9, 3.7815100165993395`*^9}, {3.781949796957184*^9, 3.781949812003792*^9}, {3.7819501857456703`*^9, 3.781950201050798*^9}, { 3.781950287845545*^9, 3.781950288395589*^9}, {3.7819503398151827`*^9, 3.781950340284987*^9}, {3.781957918057992*^9, 3.7819579232474194`*^9}, { 3.7827330813031073`*^9, 3.782733125639876*^9}, {3.782799096980143*^9, 3.782799102086356*^9}, 3.782799812569613*^9, {3.782801614832428*^9, 3.782801615680245*^9}, {3.783232096051009*^9, 3.783232124351516*^9}, { 3.7832325353697033`*^9, 3.7832325442558203`*^9}, {3.783233157420356*^9, 3.7832331953564253`*^9}, 3.783233927688799*^9, {3.783234051307782*^9, 3.783234055736916*^9}, {3.783234700960717*^9, 3.783234729908125*^9}, { 3.783337262959304*^9, 3.7833372666316957`*^9}, {3.783402019669366*^9, 3.783402028074494*^9}, 3.783405423486126*^9, {3.783940059176766*^9, 3.7839400747230587`*^9}, {3.783944111973495*^9, 3.783944115454051*^9}, { 3.784368027261438*^9, 3.784368028505515*^9}, {3.784371031856937*^9, 3.7843710533302183`*^9}, {3.7844496366940703`*^9, 3.784449654498992*^9}, { 3.7844502874323263`*^9, 3.7844503198588343`*^9}, {3.7844504922931857`*^9, 3.78445050804828*^9}, 3.784955588641425*^9, {3.784962584495794*^9, 3.7849626222118835`*^9}, {3.787635579426891*^9, 3.7876355883869734`*^9}, { 3.7879807351134353`*^9, 3.7879807549258766`*^9}, {3.787987140250079*^9, 3.7879871476120405`*^9}, {3.7879891808081656`*^9, 3.787989185699894*^9}, { 3.7894669429603777`*^9, 3.789466943675978*^9}, {3.79361493542141*^9, 3.793614936177623*^9}, {3.793615000067281*^9, 3.7936150066546907`*^9}, { 3.7953237518023725`*^9, 3.795323753404461*^9}, {3.7953381114704947`*^9, 3.7953381169664483`*^9}, {3.7953381804507427`*^9, 3.795338184503441*^9}, { 3.7953382173292847`*^9, 3.795338221183358*^9}, {3.814678933453554*^9, 3.814678955848213*^9}}, CellLabel-> "In[225]:=",ExpressionUUID->"49b0541c-73e4-4ff7-972b-db00e9138be0"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ODE system with a periodic coverage", "Text"]], \ "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.8146785354673405`*^9, 3.8146785426923385`*^9}, {3.814678773059308*^9, 3.814678905403185*^9}, {3.8146789470998487`*^9, 3.8146789845382853`*^9}, { 3.81468513616147*^9, 3.814685139537901*^9}},ExpressionUUID->"4fa2d420-7d7f-42a6-b1c2-\ 39bc2c7448da"], Cell[BoxData[ RowBox[{ RowBox[{"sys", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "[", "t", "]"}]}], ")"}], "b"}], " ", "-", RowBox[{ RowBox[{"(", RowBox[{"d", "+", " ", RowBox[{ SubscriptBox["h", "U"], "[", "t", "]"}]}], ")"}], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "T"], "'"}], "[", "t", "]"}], "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{"\[Nu]", "[", "t", "]"}], " ", "b"}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"d", "+", RowBox[{ SubscriptBox["h", "T"], "[", "t", "]"}]}], ")"}], " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "'"}], "[", "t", "]"}], "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["h", "U"], "[", "t", "]"}], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}], " ", RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "T"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["h", "T"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], " ", ")"}], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.781254777516264*^9, 3.7812550339699764`*^9}, { 3.7812554926036234`*^9, 3.7812555109929533`*^9}, {3.781255690448312*^9, 3.7812556944949427`*^9}, {3.781255809395154*^9, 3.7812559025177593`*^9}, { 3.781255990736166*^9, 3.7812559927985244`*^9}, 3.7812575405397606`*^9, { 3.7812576595612173`*^9, 3.78125774933109*^9}, {3.7812577923839955`*^9, 3.781257792915248*^9}, {3.781257855051608*^9, 3.781257903167404*^9}, { 3.78125799700679*^9, 3.781258050440591*^9}, {3.781258089059433*^9, 3.781258116255972*^9}, {3.781258168314863*^9, 3.7812581753301396`*^9}, { 3.7812600288772373`*^9, 3.781260029392703*^9}, {3.7812644086979136`*^9, 3.781264461207691*^9}, 3.78126467075363*^9, {3.781267560365933*^9, 3.7812675890295095`*^9}, {3.781330585316495*^9, 3.781330588300702*^9}, { 3.7813425764449725`*^9, 3.781342592245322*^9}, {3.7813427718005686`*^9, 3.7813427742632055`*^9}, {3.7813439440620604`*^9, 3.781343966256383*^9}, { 3.7813480741600547`*^9, 3.7813480770974865`*^9}, 3.781352674609539*^9, { 3.7813527643977313`*^9, 3.781352771282955*^9}, {3.781411506744766*^9, 3.781411512618375*^9}, {3.781411993014685*^9, 3.781412024251787*^9}, { 3.7814120595306177`*^9, 3.7814120653203025`*^9}, {3.7814120978626933`*^9, 3.781412100413243*^9}, {3.7814121341259885`*^9, 3.7814121343368344`*^9}, { 3.781412309276826*^9, 3.7814123205633373`*^9}, {3.7814125046886005`*^9, 3.7814125072801137`*^9}, {3.78141266462914*^9, 3.781412665115862*^9}, { 3.7814126978221827`*^9, 3.78141270109931*^9}, {3.781413942430855*^9, 3.781413967216715*^9}, {3.781421180603479*^9, 3.7814212737102127`*^9}, { 3.781421442399435*^9, 3.7814214434298453`*^9}, {3.7815074478149443`*^9, 3.781507559729435*^9}, {3.7815076036611624`*^9, 3.781507628701585*^9}, { 3.781507663355313*^9, 3.781507673460061*^9}, 3.781507892346198*^9, { 3.781507956477439*^9, 3.7815080025538874`*^9}, {3.7815080367397995`*^9, 3.781508038453865*^9}, {3.7815080704154673`*^9, 3.781508154559347*^9}, { 3.7815098407551937`*^9, 3.7815100165993395`*^9}, {3.781949796957184*^9, 3.781949812003792*^9}, {3.7819501857456703`*^9, 3.781950201050798*^9}, { 3.781950287845545*^9, 3.781950288395589*^9}, {3.7819503398151827`*^9, 3.781950340284987*^9}, {3.781957918057992*^9, 3.7819579232474194`*^9}, { 3.7827330813031073`*^9, 3.782733125639876*^9}, {3.782799096980143*^9, 3.782799102086356*^9}, 3.782799812569613*^9, {3.782801614832428*^9, 3.782801615680245*^9}, {3.783232096051009*^9, 3.783232124351516*^9}, { 3.7832325353697033`*^9, 3.7832325442558203`*^9}, {3.783233157420356*^9, 3.7832331953564253`*^9}, 3.783233927688799*^9, {3.783234051307782*^9, 3.783234055736916*^9}, {3.783234700960717*^9, 3.783234729908125*^9}, { 3.783337262959304*^9, 3.7833372666316957`*^9}, {3.783402019669366*^9, 3.783402028074494*^9}, 3.783405423486126*^9, {3.783940059176766*^9, 3.7839400747230587`*^9}, {3.783944111973495*^9, 3.783944115454051*^9}, { 3.784368027261438*^9, 3.784368028505515*^9}, {3.784371031856937*^9, 3.7843710533302183`*^9}, {3.7844496366940703`*^9, 3.784449654498992*^9}, { 3.7844502874323263`*^9, 3.7844503198588343`*^9}, {3.7844504922931857`*^9, 3.78445050804828*^9}, 3.784955588641425*^9, {3.784962584495794*^9, 3.7849626222118835`*^9}, {3.787635579426891*^9, 3.7876355883869734`*^9}, { 3.7879807351134353`*^9, 3.7879807549258766`*^9}, {3.787987140250079*^9, 3.7879871476120405`*^9}, {3.7879891808081656`*^9, 3.787989185699894*^9}, { 3.7894669429603777`*^9, 3.789466943675978*^9}, {3.79361493542141*^9, 3.793614936177623*^9}, {3.793615000067281*^9, 3.7936150066546907`*^9}, { 3.7953237518023725`*^9, 3.795323753404461*^9}, {3.7953381114704947`*^9, 3.7953381169664483`*^9}, {3.7953381804507427`*^9, 3.795338184503441*^9}, { 3.7953382173292847`*^9, 3.795338221183358*^9}, {3.814678933453554*^9, 3.814678955848213*^9}, 3.814679004134926*^9, {3.8146798543868027`*^9, 3.8146798721820717`*^9}, {3.8146801068978753`*^9, 3.814680130176874*^9}}, CellLabel-> "In[226]:=",ExpressionUUID->"6a0bb853-33d4-4a3d-a13b-385e8095a606"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["ODE system with a constant coverage", "Text"]], \ "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.8146785354673405`*^9, 3.8146785426923385`*^9}, {3.814678773059308*^9, 3.814678905403185*^9}, {3.8146789470998487`*^9, 3.8146789845382853`*^9}, { 3.814685127577927*^9, 3.8146851322417936`*^9}},ExpressionUUID->"e67fa33b-0594-48b2-99a7-\ 71b237661271"], Cell[BoxData[ RowBox[{ RowBox[{"syscst", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Nu]cst"}], ")"}], "b"}], " ", "-", RowBox[{ RowBox[{"(", RowBox[{"d", "+", " ", RowBox[{ SubscriptBox["h", "U"], "[", "t", "]"}]}], ")"}], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "T"], "'"}], "[", "t", "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"\[Nu]cst", " ", "b"}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"d", "+", RowBox[{ SubscriptBox["h", "T"], "[", "t", "]"}]}], ")"}], " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}]}]}], " ", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "'"}], "[", "t", "]"}], "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["h", "U"], "[", "t", "]"}], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}], " ", RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "T"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["h", "T"], "[", "t", "]"}], " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], " ", ")"}], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.781254777516264*^9, 3.7812550339699764`*^9}, { 3.7812554926036234`*^9, 3.7812555109929533`*^9}, {3.781255690448312*^9, 3.7812556944949427`*^9}, {3.781255809395154*^9, 3.7812559025177593`*^9}, { 3.781255990736166*^9, 3.7812559927985244`*^9}, 3.7812575405397606`*^9, { 3.7812576595612173`*^9, 3.78125774933109*^9}, {3.7812577923839955`*^9, 3.781257792915248*^9}, {3.781257855051608*^9, 3.781257903167404*^9}, { 3.78125799700679*^9, 3.781258050440591*^9}, {3.781258089059433*^9, 3.781258116255972*^9}, {3.781258168314863*^9, 3.7812581753301396`*^9}, { 3.7812600288772373`*^9, 3.781260029392703*^9}, {3.7812644086979136`*^9, 3.781264461207691*^9}, 3.78126467075363*^9, {3.781267560365933*^9, 3.7812675890295095`*^9}, {3.781330585316495*^9, 3.781330588300702*^9}, { 3.7813425764449725`*^9, 3.781342592245322*^9}, {3.7813427718005686`*^9, 3.7813427742632055`*^9}, {3.7813439440620604`*^9, 3.781343966256383*^9}, { 3.7813480741600547`*^9, 3.7813480770974865`*^9}, 3.781352674609539*^9, { 3.7813527643977313`*^9, 3.781352771282955*^9}, {3.781411506744766*^9, 3.781411512618375*^9}, {3.781411993014685*^9, 3.781412024251787*^9}, { 3.7814120595306177`*^9, 3.7814120653203025`*^9}, {3.7814120978626933`*^9, 3.781412100413243*^9}, {3.7814121341259885`*^9, 3.7814121343368344`*^9}, { 3.781412309276826*^9, 3.7814123205633373`*^9}, {3.7814125046886005`*^9, 3.7814125072801137`*^9}, {3.78141266462914*^9, 3.781412665115862*^9}, { 3.7814126978221827`*^9, 3.78141270109931*^9}, {3.781413942430855*^9, 3.781413967216715*^9}, {3.781421180603479*^9, 3.7814212737102127`*^9}, { 3.781421442399435*^9, 3.7814214434298453`*^9}, {3.7815074478149443`*^9, 3.781507559729435*^9}, {3.7815076036611624`*^9, 3.781507628701585*^9}, { 3.781507663355313*^9, 3.781507673460061*^9}, 3.781507892346198*^9, { 3.781507956477439*^9, 3.7815080025538874`*^9}, {3.7815080367397995`*^9, 3.781508038453865*^9}, {3.7815080704154673`*^9, 3.781508154559347*^9}, { 3.7815098407551937`*^9, 3.7815100165993395`*^9}, {3.781949796957184*^9, 3.781949812003792*^9}, {3.7819501857456703`*^9, 3.781950201050798*^9}, { 3.781950287845545*^9, 3.781950288395589*^9}, {3.7819503398151827`*^9, 3.781950340284987*^9}, {3.781957918057992*^9, 3.7819579232474194`*^9}, { 3.7827330813031073`*^9, 3.782733125639876*^9}, {3.782799096980143*^9, 3.782799102086356*^9}, 3.782799812569613*^9, {3.782801614832428*^9, 3.782801615680245*^9}, {3.783232096051009*^9, 3.783232124351516*^9}, { 3.7832325353697033`*^9, 3.7832325442558203`*^9}, {3.783233157420356*^9, 3.7832331953564253`*^9}, 3.783233927688799*^9, {3.783234051307782*^9, 3.783234055736916*^9}, {3.783234700960717*^9, 3.783234729908125*^9}, { 3.783337262959304*^9, 3.7833372666316957`*^9}, {3.783402019669366*^9, 3.783402028074494*^9}, 3.783405423486126*^9, {3.783940059176766*^9, 3.7839400747230587`*^9}, {3.783944111973495*^9, 3.783944115454051*^9}, { 3.784368027261438*^9, 3.784368028505515*^9}, {3.784371031856937*^9, 3.7843710533302183`*^9}, {3.7844496366940703`*^9, 3.784449654498992*^9}, { 3.7844502874323263`*^9, 3.7844503198588343`*^9}, {3.7844504922931857`*^9, 3.78445050804828*^9}, 3.784955588641425*^9, {3.784962584495794*^9, 3.7849626222118835`*^9}, {3.787635579426891*^9, 3.7876355883869734`*^9}, { 3.7879807351134353`*^9, 3.7879807549258766`*^9}, {3.787987140250079*^9, 3.7879871476120405`*^9}, {3.7879891808081656`*^9, 3.787989185699894*^9}, { 3.7894669429603777`*^9, 3.789466943675978*^9}, {3.79361493542141*^9, 3.793614936177623*^9}, {3.793615000067281*^9, 3.7936150066546907`*^9}, { 3.7953237518023725`*^9, 3.795323753404461*^9}, {3.7953381114704947`*^9, 3.7953381169664483`*^9}, {3.7953381804507427`*^9, 3.795338184503441*^9}, { 3.7953382173292847`*^9, 3.795338221183358*^9}, {3.814678933453554*^9, 3.814678955848213*^9}, 3.814679004134926*^9, {3.8146798543868027`*^9, 3.8146798721820717`*^9}, {3.8146801068978753`*^9, 3.814680130176874*^9}, { 3.814685109058384*^9, 3.8146851198592253`*^9}, {3.814695370389879*^9, 3.8146953710405087`*^9}}, CellLabel-> "In[227]:=",ExpressionUUID->"9da8e444-f704-48d4-8c27-d5247d721b51"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Calculation of the Floquet\[CloseCurlyQuote]s \ exponent (from Klausmeier, C. A. 2008. Floquet\[CloseCurlyQuote]s theory : a \ usefool tool for understanding nonequilibrium dynamics. Theoretical Ecology \ 1:153-161.)", "Text"]], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.814679553416707*^9, 3.81467955684791*^9}, {3.8146795947242804`*^9, 3.8146796038084836`*^9}, {3.8146883440381174`*^9, 3.814688352732272*^9}, { 3.8146883917077694`*^9, 3.81468846379682*^9}},ExpressionUUID->"fa0d1ae8-fafe-407f-b040-\ 8677feeb7642"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ListOfNumbersQ", "[", "list_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "ret", "}"}], ",", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ListQ", "[", "list", "]"}], "\[Equal]", "False"}], ",", RowBox[{"ret", "=", "False"}], ",", RowBox[{ RowBox[{"ret", "=", "True"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "False"}], ",", RowBox[{"ret", "=", "False"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "list", "]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "ret", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"MatrixFunctionOftQ", "[", "mat_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "ret", "}"}], ",", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"MatrixQ", "[", "mat", "]"}], "\[Equal]", "False"}], ",", RowBox[{"ret", "=", "False"}], ",", RowBox[{ RowBox[{"ret", "=", "True"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ListOfNumbersQ", "[", RowBox[{ RowBox[{"mat", "[", RowBox[{"[", "i", "]"}], "]"}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"Random", "[", "]"}]}]}], "]"}], "\[Equal]", "False"}], ",", RowBox[{"ret", "=", "False"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "mat", "]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", "ret", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"FloquetMultipliers", "[", RowBox[{ RowBox[{"m_", "?", "MatrixFunctionOftQ"}], ",", RowBox[{"T_", "?", "NumberQ"}], ",", RowBox[{"opts___", "?", "OptionQ"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "sol", ",", "dim"}], "}"}], ",", RowBox[{ RowBox[{"dim", "=", RowBox[{"Length", "[", "m", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{"m", ".", RowBox[{"x", "[", "t", "]"}]}]}], ",", RowBox[{ RowBox[{"x", "[", "0", "]"}], "==", RowBox[{"IdentityMatrix", "[", "dim", "]"}]}]}], "}"}], ",", "x", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"opts", ",", RowBox[{"Options", "[", "FloquetMultipliers", "]"}]}], "}"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"x", "[", "T", "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Options", "[", "FloquetMultipliers", "]"}], "=", RowBox[{"{", RowBox[{"MaxSteps", "\[Rule]", "Infinity"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"FloquetExponents", "[", RowBox[{ RowBox[{"m_", "?", "MatrixFunctionOftQ"}], ",", RowBox[{"T_", "?", "NumberQ"}], ",", RowBox[{"opts___", "?", "OptionQ"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{"Return", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"Chop", "[", RowBox[{"FloquetMultipliers", "[", RowBox[{"m", ",", "T", ",", "opts"}], "]"}], "]"}], "]"}], "/", "T"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Options", "[", "FloquetExponents", "]"}], "=", RowBox[{"{", RowBox[{"MaxSteps", "\[Rule]", "Infinity"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"MaxFloquetMultiplier", "[", RowBox[{ RowBox[{"m_", "?", "MatrixFunctionOftQ"}], ",", RowBox[{"T_", "?", "NumberQ"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"Return", "[", RowBox[{"Max", "[", RowBox[{"Re", "[", RowBox[{"FloquetMultipliers", "[", RowBox[{"m", ",", "T"}], "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"MaxFloquetExponent", "[", RowBox[{ RowBox[{"m_", "?", "MatrixFunctionOftQ"}], ",", RowBox[{"T_", "?", "NumberQ"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"Return", "[", RowBox[{"Max", "[", RowBox[{"Re", "[", RowBox[{"FloquetExponents", "[", RowBox[{"m", ",", "T"}], "]"}], "]"}], "]"}], "]"}]}], "]"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.8146952609361362`*^9, 3.8146952784954925`*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"8b8830cf-2c63-45b0-8ffb-7c32396d0b6c"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Calculation of the Evolutionarily Stable Virulence ", \ "Text"]], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.814679553416707*^9, 3.81467955684791*^9}, {3.8146795947242804`*^9, 3.8146796038084836`*^9}, {3.8146883440381174`*^9, 3.814688352732272*^9}, { 3.8146883917077694`*^9, 3.81468846379682*^9}, {3.8146886268191147`*^9, 3.8146886348364964`*^9}},ExpressionUUID->"ce3f35d4-7026-455c-840b-\ 7002eb578d59"], Cell[BoxData[ RowBox[{ RowBox[{"ESS", "[", RowBox[{ "j_", ",", " ", "xresinit_", ",", " ", "eff_", ",", " ", "ODEsys_", ",", " ", "input_", ",", " ", "valinput_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ "i", ",", " ", "firstrho", ",", "dx", ",", " ", "parres", ",", " ", "parmut", ",", " ", "xres", ",", "antiinf", ",", "rho", ",", "\[Epsilon]", ",", " ", "per", ",", " ", "parvacc", ",", " ", "vecvacc", ",", " ", "parbase", ",", "pp", ",", "vacc", ",", " ", "\[Tau]"}], "}"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"input", "\[Equal]", "\"\\""}], ",", RowBox[{"pp", "=", "valinput"}], ",", RowBox[{"pp", "=", "0.8"}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"input", "\[Equal]", "\"\\""}], ",", RowBox[{"\[Tau]", "=", "valinput"}], ",", RowBox[{"\[Tau]", "=", "10"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"parvacc", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Nu]", "max"], "\[Rule]", " ", "1"}], ",", " ", RowBox[{ SubscriptBox["\[Nu]", "min"], "\[Rule]", " ", "0"}], ",", " ", RowBox[{"p", "\[Rule]", "pp"}], ",", " ", RowBox[{"period", "\[Rule]", "\[Tau]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"parbase", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"b", "\[Rule]", "2"}], ",", RowBox[{"d", "\[Rule]", "1"}], ",", RowBox[{"\[Sigma]", "\[Rule]", RowBox[{"1", "-", SubscriptBox["r", "1"]}]}], ",", RowBox[{"\[Nu]cst", "\[Rule]", RowBox[{ RowBox[{ SubscriptBox["\[Nu]", "max"], "p"}], " ", "+", " ", RowBox[{ SubscriptBox["\[Nu]", "min"], RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}]}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"vecvacc", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"vecvacc", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "eff"}], ";", "\[IndentingNewLine]", RowBox[{"antiinf", "=", " ", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", "1"], "\[Rule]", RowBox[{"vecvacc", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ SubscriptBox["r", "2"], "\[Rule]", RowBox[{"vecvacc", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{ SubscriptBox["r", "3"], "\[Rule]", RowBox[{"vecvacc", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ SubscriptBox["r", "4"], "\[Rule]", RowBox[{"vecvacc", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"dx", "=", "0.01"}], ";", RowBox[{"\[Epsilon]", "=", RowBox[{"10", "^", RowBox[{"-", "4"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"parres", "=", RowBox[{"{", " ", RowBox[{"x", "\[Rule]", "xresinit"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"sols", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{"ODEsys", ",", "inits"}], "]"}], "//.", RowBox[{"Join", "[", RowBox[{ "parbase", ",", "parvacc", ",", "parres", ",", " ", "antiinf", ",", " ", "fun"}], "]"}]}], ",", "vars", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tend"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"SU", "[", "t_", "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], "/.", RowBox[{"sols", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ST", "[", "t_", "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], "/.", RowBox[{"sols", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"parmut", "=", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"xresinit", "+", "\[Epsilon]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Sigma]", " ", SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"\[Sigma]", " ", SubscriptBox["\[Beta]", "T"], " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}]}]}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"firstrho", "=", RowBox[{"MaxFloquetExponent", "[", RowBox[{ RowBox[{ RowBox[{"A", "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], "\[Rule]", " ", RowBox[{"SU", "[", RowBox[{"t", "+", "tend", "-", "\[Tau]"}], "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], "\[Rule]", " ", RowBox[{"ST", "[", RowBox[{"t", "+", "tend", "-", "\[Tau]"}], "]"}]}]}], "}"}]}], "//.", RowBox[{"Join", "[", RowBox[{ "parbase", ",", "parvacc", ",", "parmut", ",", " ", "antiinf", ",", " ", "fun"}], "]"}]}], ",", "\[Tau]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xres", "=", "xresinit"}], ";", " ", RowBox[{"rho", "=", "firstrho"}], ";", " ", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", "firstrho", "]"}], "==", RowBox[{"Sign", "[", "rho", "]"}]}], " ", ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"xres", "=", RowBox[{"xres", "+", "dx"}]}], ";", "\[IndentingNewLine]", RowBox[{"parres", "=", RowBox[{"{", RowBox[{"x", "\[Rule]", "xres"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"sols", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{"ODEsys", ",", "inits"}], "]"}], "//.", RowBox[{"Join", "[", RowBox[{ "parbase", ",", "parvacc", ",", "parres", ",", " ", "antiinf", ",", " ", "fun"}], "]"}]}], ",", "vars", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tend"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"SU", "[", "t_", "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], "/.", RowBox[{"sols", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ST", "[", "t_", "]"}], ":=", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], "/.", RowBox[{"sols", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"parmut", "=", RowBox[{"{", RowBox[{"x", "\[Rule]", RowBox[{"xres", "+", "\[Epsilon]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"A", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Sigma]", " ", SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"\[Sigma]", " ", SubscriptBox["\[Beta]", "T"], " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}]}]}], "}"}]}], "}"}], "//.", RowBox[{"Join", "[", RowBox[{ "parbase", ",", "parvacc", ",", "parmut", ",", " ", "antiinf", ",", " ", "fun"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"prev", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "/.", "sols"}], "/.", RowBox[{"t", "\[Rule]", " ", "tend"}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}], "/.", "sols"}], "/.", RowBox[{"t", "\[Rule]", " ", "tend"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"First", "[", "prev", "]"}], "\[GreaterEqual]", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "4"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"rho", "=", RowBox[{"MaxFloquetExponent", "[", RowBox[{ RowBox[{"A", "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], "\[Rule]", " ", RowBox[{"SU", "[", RowBox[{"t", "+", "tend", "-", "\[Tau]"}], "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], "\[Rule]", " ", RowBox[{"ST", "[", RowBox[{"t", "+", "tend", "-", "\[Tau]"}], "]"}]}]}], "}"}]}], ",", "\[Tau]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"rho", "=", RowBox[{"-", "firstrho"}]}], ",", RowBox[{"parres", "=", RowBox[{"{", RowBox[{"x", "\[Rule]", " ", "0"}], "}"}]}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"x", "//.", "parres"}]}], ",", " ", RowBox[{"First", "[", "prev", "]"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.814688774337895*^9, 3.8146888483799696`*^9}, { 3.814695387078332*^9, 3.8146954492097893`*^9}, {3.814695517723628*^9, 3.8146955315526824`*^9}, {3.814695748145847*^9, 3.814695796724709*^9}, { 3.8146960591763916`*^9, 3.8146961202715445`*^9}, 3.8146961744854965`*^9, { 3.8146963006953897`*^9, 3.8146963418768296`*^9}, {3.8146964833508863`*^9, 3.8146965180520315`*^9}, {3.8146965992931657`*^9, 3.814696614084715*^9}, { 3.8146966615105658`*^9, 3.814696674840943*^9}, {3.8146967317507553`*^9, 3.814696756919366*^9}, {3.8146968061432066`*^9, 3.814696826229747*^9}, { 3.8146968836308823`*^9, 3.8146969038633003`*^9}, {3.8146971333273034`*^9, 3.814697139640109*^9}, {3.8214236330308332`*^9, 3.8214236333596516`*^9}},ExpressionUUID->"5f407e53-99e1-40c0-bbff-\ 468c8311367d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ESS", "[", RowBox[{ "2", ",", " ", "0.99", ",", " ", "0.8", ",", " ", "sys", ",", " ", "\"\\"", ",", " ", "0.8"}], "]"}]], "Input", CellChangeTimes->{{3.8214235959308133`*^9, 3.8214236537504206`*^9}}, CellLabel-> "In[237]:=",ExpressionUUID->"5d6baa7c-194a-435a-ad7b-b893429d2230"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8999999999999817`", ",", "0.24386751084264602`"}], "}"}]], "Output", CellChangeTimes->{3.8214236651137457`*^9}, CellLabel-> "Out[237]=",ExpressionUUID->"220ef8c9-9a9e-49c0-aaa2-e34582e3a02b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Calculation of the Evolutionarily Stable Virulence \ for p or T", "Text"]], "Subtitle", CellChangeTimes->{{3.8146779698574004`*^9, 3.8146779700048494`*^9}, { 3.8146780509083195`*^9, 3.8146780549483986`*^9}, {3.814678314597189*^9, 3.8146783236210184`*^9}, {3.814678403770167*^9, 3.814678410469347*^9}, { 3.814679553416707*^9, 3.81467955684791*^9}, {3.8146795947242804`*^9, 3.8146796038084836`*^9}, {3.8146883440381174`*^9, 3.814688352732272*^9}, { 3.8146883917077694`*^9, 3.81468846379682*^9}, {3.8146886268191147`*^9, 3.814688687850773*^9}},ExpressionUUID->"499a9544-988b-45b8-ac16-\ b3d9af7a425c"], Cell[BoxData[ RowBox[{ RowBox[{"effESS", "[", RowBox[{ "j_", ",", " ", "xresinit_", ",", " ", "eff_", ",", " ", "ODEsys_", ",", " ", "input_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ "vacc", ",", "i", ",", " ", "VecESS", ",", " ", "xmut", ",", " ", "imax", ",", " ", "di"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"input", "\[Equal]", "\"\\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"imax", "=", "1"}], ",", RowBox[{"di", "=", "0.01"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"imax", "=", "101"}], ",", RowBox[{"di", "=", "2"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"VecESS", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Monitor", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "imax"}], ",", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"xmut", "=", RowBox[{"ESS", "[", RowBox[{ "j", ",", " ", "xresinit", ",", " ", "eff", ",", " ", "ODEsys", ",", " ", "input", ",", " ", "i"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"VecESS", ",", RowBox[{"{", RowBox[{ RowBox[{"xmut", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"xmut", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "i"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"i", "=", RowBox[{"i", "+", "di"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"ProgressIndicator", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "imax"}], "}"}]}], "]"}], ",", " ", "i"}], "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "VecESS"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8146954611079826`*^9, 3.814695468468771*^9}, { 3.8146955579266033`*^9, 3.814695569458996*^9}, {3.8146959274546556`*^9, 3.81469592786079*^9}, {3.8146959670695877`*^9, 3.8146959921035595`*^9}, { 3.814696524254485*^9, 3.81469659543237*^9}, {3.814697271819583*^9, 3.814697321473211*^9}, {3.814697353020136*^9, 3.8146973531490564`*^9}, 3.8146974025258303`*^9, 3.814697679812949*^9, {3.8146981909876213`*^9, 3.8146981957468247`*^9}, {3.814699983696616*^9, 3.8146999840214224`*^9}, { 3.8147015888358655`*^9, 3.8147015917142563`*^9}},ExpressionUUID->"c0a35e30-d0b6-4c94-b495-\ 8f9cf128862d"], Cell[CellGroupData[{ Cell["Evolutionarily stable virulence lower boundary", "Subsection", CellChangeTimes->{{3.773635504627611*^9, 3.773635505359812*^9}, { 3.773635563487845*^9, 3.7736355641311665`*^9}, {3.7813305541156516`*^9, 3.781330558396535*^9}, {3.7832443858153143`*^9, 3.7832443893744783`*^9}, { 3.8146785738232994`*^9, 3.8146785771323433`*^9}, 3.814678734850321*^9, { 3.8146803779261384`*^9, 3.8146803796060953`*^9}, {3.814701654642524*^9, 3.814701672203498*^9}},ExpressionUUID->"5bbe387c-1473-4e3f-826f-\ a25ebd786c98"], Cell[BoxData[ RowBox[{ RowBox[{"ESS2lowbound", "[", RowBox[{"p_", ",", " ", "rr_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "pars", ",", "Dfun", ",", "antiinf", ",", " ", "SG", ",", " ", "DSG"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pars", "=", " ", RowBox[{"{", RowBox[{"d", "\[Rule]", "1"}], " ", "}"}]}], ";", RowBox[{"antiinf", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", "1"], "\[Rule]", " ", "0"}], ",", " ", RowBox[{ SubscriptBox["r", "2"], "\[Rule]", " ", "rr"}], ",", " ", RowBox[{ SubscriptBox["r", "3"], "\[Rule]", " ", "0"}], ",", " ", RowBox[{ SubscriptBox["r", "4"], "\[Rule]", " ", "0"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Dfun", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "Up"], "\[Rule]", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"\[Beta]", "[", "x", "]"}], ",", "x"}], "]"}]}], ",", " ", RowBox[{ SubscriptBox["\[Beta]", "Tp"], "\[Rule]", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"\[Beta]", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], "x"}], "]"}], ",", "x"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"SG", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "p"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "Up"], " ", FractionBox[ RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], SubscriptBox["\[Beta]", "U"]]}], "-", "1"}], ")"}]}], "+", RowBox[{"p", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "Tp"], FractionBox[ RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], SubscriptBox["\[Beta]", "T"]]}], "-", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}]}], ")"}]}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"DSG", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{"SG", "//.", RowBox[{"Join", "[", RowBox[{ "pars", ",", " ", "fun", ",", " ", "Dfun", ",", " ", "antiinf"}], "]"}]}], "}"}], "\[Equal]", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"First", "[", RowBox[{"Flatten", "[", "DSG", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8147017448759007`*^9, 3.814702066721053*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"8ec338f4-5d7b-4479-97d2-4de3cdc6b6b9"], Cell[BoxData[ RowBox[{ RowBox[{"ESS4lowbound", "[", RowBox[{"p_", ",", "rr_"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"p", " ", "rr"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.814701698782262*^9, 3.8147017269391623`*^9}, { 3.8147017803946314`*^9, 3.814701784297396*^9}, {3.814701930627921*^9, 3.81470193211506*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"ff3d8514-990f-43c3-8c7a-6a7300224bca"] }, Open ]], Cell[CellGroupData[{ Cell["Export data", "Subsection", CellChangeTimes->{{3.773635504627611*^9, 3.773635505359812*^9}, { 3.773635563487845*^9, 3.7736355641311665`*^9}, {3.7813305541156516`*^9, 3.781330558396535*^9}, {3.7832443858153143`*^9, 3.7832443893744783`*^9}, { 3.8146785738232994`*^9, 3.8146785771323433`*^9}, 3.814678734850321*^9, { 3.8146803779261384`*^9, 3.8146803796060953`*^9}},ExpressionUUID->"d571be10-5d68-4e5f-b110-\ ccf528a682b8"], Cell[BoxData[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eff", "=", "0.8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "2", ",", "0.99", ",", " ", "eff", ",", " ", "syscst", ",", " ", "\"\\""}], "]"}]}], "]"}], ";"}], "\n", RowBox[{" ", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "2", ",", "0.99", ",", " ", "eff", ",", "sys", ",", " ", "\"\\""}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "4", ",", " ", "0.99", ",", " ", "eff", ",", "syscst", ",", " ", "\"\\""}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "4", ",", " ", "0.99", ",", " ", "eff", ",", "sys", ",", "\"\\""}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "2", ",", "0.99", ",", " ", "eff", ",", " ", "syscst", ",", " ", "\"\\""}], "]"}]}], "]"}], ";"}], "\n", RowBox[{" ", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "2", ",", "0.99", ",", " ", "eff", ",", "sys", ",", " ", "\"\\""}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "4", ",", " ", "0.99", ",", " ", "eff", ",", "syscst", ",", " ", "\"\\""}], "]"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"effESS", "[", RowBox[{ "4", ",", " ", "0.99", ",", " ", "eff", ",", "sys", ",", "\"\\""}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"ESS2lowbound", "[", RowBox[{"0.8", ",", " ", "eff"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", RowBox[{"ESS4lowbound", "[", RowBox[{"0.8", ",", "eff"}], "]"}]}], "}"}]}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{ 3.814688019782057*^9, {3.814688715603755*^9, 3.8146887512136087`*^9}, { 3.8146888966526155`*^9, 3.8146888994218802`*^9}, {3.814698053786585*^9, 3.8146981554988556`*^9}, {3.814698239411297*^9, 3.8146982439466257`*^9}, { 3.8146999651472178`*^9, 3.814699979876828*^9}, 3.814702088709506*^9, { 3.8154555600425005`*^9, 3.815455585282019*^9}},ExpressionUUID->"eac89cb3-fc68-4d05-85b8-\ 3fe52cbbc933"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.814702090806275*^9, 3.814702155284436*^9}, 3.814702218344104*^9, 3.8154555787682943`*^9},ExpressionUUID->"3e88f5d0-18d4-488a-9571-\ b1eab58353f7"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Figure 5 : Evolutionarily stable virulence according to p and T : RV method \ (anti-toxin vaccine)\ \>", "Section", CellChangeTimes->{{3.782210866562813*^9, 3.7822108677231703`*^9}, 3.782214865302174*^9, 3.782221352034561*^9, {3.7827522172384157`*^9, 3.782752219192133*^9}, {3.815735028451708*^9, 3.815735031732484*^9}, { 3.815735654020125*^9, 3.81573565948372*^9}},ExpressionUUID->"38fb593c-56ea-42a6-9402-\ f8ec4a1817cf"], Cell["\<\ The goal of this section is to calculate the selection gradient under weak \ selection using the analytical formula derived in the supplementary online \ material.\ \>", "Text", CellChangeTimes->{{3.8057898388592777`*^9, 3.805789840721627*^9}, { 3.815735048084558*^9, 3.815735069404516*^9}},ExpressionUUID->"2b6a6422-bb21-412d-ad59-\ 5f3b3ea596ae"], Cell[CellGroupData[{ Cell["General set-up", "Subsubsection", CellChangeTimes->{{3.7827522098485126`*^9, 3.782752214454311*^9}},ExpressionUUID->"e0afe794-b3b1-42c6-a1e3-\ 58af4d263041"], Cell["Set up resident system for densities", "Text", CellChangeTimes->{{3.7827287429988728`*^9, 3.7827287486628017`*^9}, { 3.782728788638564*^9, 3.7827287900461597`*^9}},ExpressionUUID->"ebcb22ae-fd1a-45a5-99e9-\ 63bbf6fc9c7e"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Nu]", "[", "t_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"t", ",", "\[Tau]"}], "]"}], "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{"t", ",", "\[Tau]"}], "]"}], "\[LessEqual]", " ", RowBox[{"p", " ", "\[Tau]"}]}]}], ",", SubscriptBox["\[Nu]", "max"], ",", SubscriptBox["\[Nu]", "min"]}], "]"}]}], ";"}]], "Input", CellLabel->"In[1]:=",ExpressionUUID->"b0c09794-9a07-408b-94c0-3717550614fc"], Cell[BoxData[{ RowBox[{ RowBox[{"sysf", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "T"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"b", " ", RowBox[{"\[Nu]", "[", "t", "]"}]}], "-", RowBox[{"d", " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "T"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "T"], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}]}]}], "}"}]}], ";", RowBox[{"matf", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "T"], SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "T"], SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}]}]}], "}"}]}], "}"}]}], ";", RowBox[{"basepars", ":=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], "\[Rule]", RowBox[{"\[Beta]", "[", "z", "]"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "T"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "3"]}], ")"}], RowBox[{"\[Beta]", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Beta]", "[", "z_", "]"}], "\[Rule]", RowBox[{"5", " ", RowBox[{"z", "/", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}]}]}], ",", RowBox[{"d", "\[Rule]", "1"}], ",", RowBox[{ SubscriptBox["\[Alpha]", "U"], "\[Rule]", "z"}], ",", RowBox[{ SubscriptBox["\[Alpha]", "T"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "4"]}], ")"}], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], SubscriptBox["\[Alpha]", "U"]}]}], ",", RowBox[{ SubscriptBox["\[Sigma]", "T"], "\[Rule]", RowBox[{"1", "-", SubscriptBox["r", "1"]}]}], ",", RowBox[{"b", "\[Rule]", "2"}], ",", RowBox[{ SubscriptBox["\[Nu]", "min"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["\[Nu]", "max"], "\[Rule]", "1"}], ",", RowBox[{"p", "\[Rule]", "0.8"}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"varsf", "=", RowBox[{"{", RowBox[{ SubscriptBox["S", "U"], ",", SubscriptBox["S", "T"], ",", SubscriptBox["J", "U"], ",", SubscriptBox["J", "T"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tend", "=", "300"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"initf", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "0", "]"}], "\[Equal]", "0.1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysf", "=", RowBox[{"Join", "[", RowBox[{"sysf", ",", "initf"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.763715256786396*^9, 3.763715562964344*^9}, { 3.763716124080658*^9, 3.763716124541383*^9}, {3.763716895065646*^9, 3.7637169018947783`*^9}, {3.76378471074289*^9, 3.763784737027555*^9}, { 3.782210269662024*^9, 3.7822104332864943`*^9}, {3.78254834584683*^9, 3.782548347298911*^9}, {3.782556301127675*^9, 3.7825563181481047`*^9}, 3.782728737343611*^9, {3.782728774764187*^9, 3.782728778879568*^9}, 3.782729930272236*^9, {3.782730730962742*^9, 3.782730737377474*^9}, { 3.782750105326797*^9, 3.78275010567038*^9}, {3.7827502767078943`*^9, 3.78275028221983*^9}, {3.782751815056843*^9, 3.782751830847279*^9}, { 3.7828178920627947`*^9, 3.7828179328299828`*^9}, {3.782818590025576*^9, 3.782818604141765*^9}, 3.783145997311401*^9, {3.783146185917459*^9, 3.7831462131975527`*^9}, {3.78314815027827*^9, 3.783148171590719*^9}, { 3.783490383002679*^9, 3.7834903893735323`*^9}, {3.783490448264286*^9, 3.783490451403294*^9}, {3.783490487207966*^9, 3.783490487669415*^9}, { 3.78349132146424*^9, 3.783491330788951*^9}, {3.805790976367579*^9, 3.805790976817987*^9}, {3.805791110489079*^9, 3.80579111348114*^9}, { 3.805793002010655*^9, 3.805793003312339*^9}, {3.805793136610609*^9, 3.805793148605031*^9}, {3.805793212570363*^9, 3.805793212939307*^9}, { 3.805803325859651*^9, 3.805803336317244*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"5abd6d50-62e2-489b-a8ee-50e045e75a0f"], Cell["Set up resident system for RVs", "Text", CellChangeTimes->{{3.782728781654657*^9, 3.782728786374425*^9}},ExpressionUUID->"a72647a4-27f8-4a1a-8d43-\ 31b36497ab2e"], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", "matf", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], "}"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sysv", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "'"}], "[", "t", "]"}]}], "}"}], "==", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Transpose", "[", "matf", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}], "+", RowBox[{ RowBox[{"r", "[", "t", "]"}], " ", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"varsv", "=", RowBox[{"{", RowBox[{ SubscriptBox["v", "U"], ",", SubscriptBox["v", "T"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"finalv", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "tend", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "[", "tend", "]"}], "\[Equal]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysv", "=", RowBox[{"Join", "[", RowBox[{"sysv", ",", "finalv"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.782728822040114*^9, 3.782728829282227*^9}, 3.782729934937859*^9, {3.7827307471861973`*^9, 3.782730749192699*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"a162c2d1-e938-48e5-abda-5dd57267db1b"], Cell["Define functions for integration", "Text", CellChangeTimes->{{3.782728839438982*^9, 3.7827288432547693`*^9}},ExpressionUUID->"07177345-de00-4333-bed3-\ 6318bb99fda1"], Cell[BoxData[ RowBox[{ RowBox[{"IntegrateResidentDens", "[", "zres_", "]"}], ":=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{"fullsysf", "//.", "pars"}], "/.", RowBox[{"z", "\[Rule]", "zres"}]}], ",", "varsf", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tend"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.763715787500193*^9, 3.7637158165990887`*^9}, { 3.763715879649042*^9, 3.763715886213044*^9}, {3.7637159205617332`*^9, 3.763715949247744*^9}, {3.763784903409876*^9, 3.763784912498193*^9}, { 3.763874610326062*^9, 3.763874638180828*^9}, {3.7638746864872437`*^9, 3.7638746868779297`*^9}, {3.782210675907648*^9, 3.782210676062872*^9}, { 3.782550387922647*^9, 3.782550390110454*^9}, {3.782550640856113*^9, 3.7825506409991083`*^9}, {3.7827288490782757`*^9, 3.782728880279551*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"4ceb9aec-971c-4a48-83bd-23fe859f69b0"], Cell[BoxData[ RowBox[{ RowBox[{"IntegrateResidentRV", "[", RowBox[{"zres_", ",", "soldens_"}], "]"}], ":=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fullsysv", "/.", RowBox[{"soldens", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//.", "pars"}], "/.", RowBox[{"z", "\[Rule]", "zres"}]}], ",", "varsv", ",", RowBox[{"{", RowBox[{"t", ",", "tend", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.782728363981552*^9, 3.782728418415028*^9}, { 3.782728885678653*^9, 3.7827289303675632`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"8b1b68d9-bac5-4030-97d3-0ac98b4eb43d"], Cell["Set up mutant system", "Text", CellChangeTimes->{{3.782728951958708*^9, 3.7827289612466516`*^9}},ExpressionUUID->"0f5aee10-6261-4247-8c72-\ 28be34bbe7ba"], Cell[BoxData[{ RowBox[{ RowBox[{"tinv", "=", "200"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"matfm", "[", "t", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "d"}], "-", SubscriptBox["\[Alpha]", "Um"], "+", RowBox[{ SubscriptBox["\[Beta]", "Um"], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "Tm"], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "Um"], " ", SubscriptBox["\[Sigma]", "T"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "d"}], "-", SubscriptBox["\[Alpha]", "Tm"], "+", RowBox[{ SubscriptBox["\[Beta]", "Tm"], SubscriptBox["\[Sigma]", "T"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"parsm", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "Um"], "\[Rule]", RowBox[{"\[Beta]", "[", "zm", "]"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "Tm"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "3"]}], ")"}], RowBox[{"\[Beta]", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], "zm"}], "]"}]}]}], ",", RowBox[{ SubscriptBox["\[Alpha]", "Um"], "\[Rule]", "zm"}], ",", RowBox[{ SubscriptBox["\[Alpha]", "Tm"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "4"]}], ")"}], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], SubscriptBox["\[Alpha]", "Um"]}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.782210892110941*^9, 3.782210979627592*^9}, { 3.782211375985991*^9, 3.782211386291944*^9}, {3.782728340936467*^9, 3.7827283571604156`*^9}, {3.782729016072158*^9, 3.782729098518826*^9}, { 3.782729160361245*^9, 3.782729184343643*^9}, {3.782729820400219*^9, 3.782729857520968*^9}, 3.7827299432407503`*^9, {3.7827302716974077`*^9, 3.782730279544629*^9}, {3.7827307588182507`*^9, 3.78273076064155*^9}, { 3.7827312786831617`*^9, 3.7827312932557907`*^9}, {3.78282347318635*^9, 3.782823483863686*^9}, {3.783148181709778*^9, 3.7831481829012413`*^9}, 3.805791947099107*^9, {3.80579321504265*^9, 3.8057932176149807`*^9}, { 3.8058033401800327`*^9, 3.805803340489543*^9}, {3.815735116259354*^9, 3.815735128115192*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"3fd8df0b-747e-4246-8d00-d8607fca0a3f"] }, Open ]], Cell[CellGroupData[{ Cell["Calculation using Eqn S11 + Bisection method", "Subsubsection", CellChangeTimes->{{3.782751859822446*^9, 3.782751865820404*^9}, { 3.782752045037979*^9, 3.782752045522992*^9}, {3.8057993147263823`*^9, 3.805799340146462*^9}, {3.805802676357815*^9, 3.805802680279662*^9}, { 3.815735964740642*^9, 3.8157359811078*^9}},ExpressionUUID->"94388798-2ab0-42b6-b935-e4df7b77ed37"], Cell["\<\ Calculate selection gradient using eqn (S.11) in the supplementary material.\ \>", "Text", CellChangeTimes->{{3.815735180328203*^9, 3.815735228879241*^9}},ExpressionUUID->"4aafe998-1902-4025-a138-\ f9b21d1ecf25"], Cell[BoxData[ RowBox[{ RowBox[{"CalculateSelgrad", "[", RowBox[{"zmut_", ",", "zres_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"solrv", ",", "soldens", ",", "\[Rho]"}], "}"}], ",", RowBox[{ RowBox[{"soldens", "=", RowBox[{"IntegrateResidentDens", "[", "zres", "]"}]}], ";", RowBox[{"solrv", "=", RowBox[{"IntegrateResidentRV", "[", RowBox[{"zres", ",", "soldens"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"\[Epsilon]", RowBox[{"(", RowBox[{"\[Omega]", " ", "/.", "pars"}], ")"}], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}], ".", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"matfm", "[", "t", "]"}], "//.", "parsm"}], "//.", "pars"}], ",", "zm"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], "}"}]}], "/.", RowBox[{"soldens", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"solrv", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/.", RowBox[{"z", "\[Rule]", "zres"}]}], "/.", RowBox[{"zm", "\[Rule]", "zres"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "tinv", ",", RowBox[{ RowBox[{"tinv", "+", RowBox[{"1", "/", "\[Omega]"}]}], "/.", "pars"}]}], "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"\"\\"", "\[Rule]", "0"}]}], "}"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"zres", ",", "zmut", ",", "\[Rho]"}], "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQfW+Cw/7fem8c9/c8Ogiir0X8ugaiN+kIfgPRbWGL f4NoE0ZNrj9AOkL9pAKIrlmRrAeiHViu2ILoJQzqdiC6/tUddxD9WynGA0TP tdmdBKL7Xv0B0/pvzhSCaBbNJ2Da4kxRM4i+8mFjK4je/W9DH1heeFU/iJ71 Qvs0iBZ4ZnkGRN+/L3oVRPsKaV4D0dpTV/4B0XsWfAfTF6OuMP8F0svO3wfT 2q/iDiw3eOPoERV4CETbPJ10GkTf+DATTJ+/9cbsb9QbxxXPfoJp0+lODiA6 /rA3mN4al9f5D0hbrigH0+2HxftB9B8GWzCdtZtlOoj2OMsJpiWyZz59nwu0 X8bgOYjWWaDB/AFInxMwBdMAxHXNDA== "], CellLabel->"In[17]:=",ExpressionUUID->"a6732dcd-f09c-49d4-b6a6-6d45fc823ed5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"zlim", "=", RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"0.8", "*", "0.8"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.805791231464591*^9, 3.805791237220048*^9}, { 3.8057946861261463`*^9, 3.805794695691599*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"c54c2287-be15-4658-b960-bfcaa77ac8b9"], Cell[BoxData["1.666666666666667`"], "Output", CellChangeTimes->{3.8057912375463753`*^9, 3.805791953482133*^9, 3.805793230578473*^9, 3.8057946961658497`*^9, 3.805797673387772*^9, 3.805799813318234*^9, 3.805803362040454*^9, 3.815735374473263*^9, 3.815735413866818*^9, 3.815735453283657*^9}, CellLabel->"Out[18]=",ExpressionUUID->"34d4e1c5-237a-41dd-a538-0501fa0b7cf1"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"vaccpars", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", "1"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "2"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "3"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "4"], "\[Rule]", "0.8"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]", "=", "0.0001"}], ";"}]}], "Input", CellChangeTimes->{{3.782751870374545*^9, 3.782751876375462*^9}, { 3.782751913525055*^9, 3.7827519255774527`*^9}, 3.7828176187869883`*^9, 3.782817772932867*^9, {3.782817993949123*^9, 3.782817999739758*^9}, { 3.783491426889502*^9, 3.7834914279279013`*^9}, {3.805791008665867*^9, 3.8057910209217367`*^9}, {3.80579108295021*^9, 3.805791093377673*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"631315e6-74ad-40e6-aa33-895dcb1ceeaa"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"\[Tau]val_", ",", "zainit_", ",", "zbinit_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zESS"}], "}"}], ",", RowBox[{ RowBox[{"perpars", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Omega]", "\[Rule]", RowBox[{"1", "/", "\[Tau]val"}]}], ",", RowBox[{"\[Tau]", "\[Rule]", "\[Tau]val"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pars", "=", RowBox[{"Join", "[", RowBox[{"basepars", ",", "perpars", ",", "vaccpars"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"za", "=", "zainit"}], ";", RowBox[{"zb", "=", "zbinit"}], ";", "\[IndentingNewLine]", RowBox[{"results", "=", RowBox[{"CalculateSelgrad", "[", RowBox[{ RowBox[{"za", "+", "\[Epsilon]"}], ",", "za"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhoa", "=", RowBox[{"results", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"results", "=", RowBox[{"CalculateSelgrad", "[", RowBox[{ RowBox[{"zb", "+", "\[Epsilon]"}], ",", "zb"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhob", "=", RowBox[{"results", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"niter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"niter", "<", "100"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zc", "=", RowBox[{ RowBox[{"(", RowBox[{"za", "+", "zb"}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"zb", "-", "za"}], ")"}], "/", "2"}], ">", "0.001"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"niter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"results", "=", RowBox[{"CalculateSelgrad", "[", RowBox[{ RowBox[{"zc", "+", "\[Epsilon]"}], ",", "zc"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhoc", "=", RowBox[{"results", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zc", ",", "rhoc"}], "}"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", "rhoc", "]"}], "\[Equal]", RowBox[{"Sign", "[", "rhoa", "]"}]}], ",", RowBox[{"za", "=", "zc"}], ",", RowBox[{"zb", "=", "zc"}]}], "]"}]}], ",", RowBox[{"niter", "=", "100"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"zESS", "=", "zc"}], ";", RowBox[{"Return", "[", "zESS", "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7827301276917763`*^9, 3.782730253536025*^9}, { 3.782730327143387*^9, 3.782730328318729*^9}, {3.7827309625457993`*^9, 3.782730968872819*^9}, {3.782731308024325*^9, 3.782731309204022*^9}, { 3.78273205232051*^9, 3.782732075856773*^9}, {3.782732110446437*^9, 3.7827321105855227`*^9}, {3.7827322518308783`*^9, 3.78273229060892*^9}, { 3.782750326507348*^9, 3.7827503275325403`*^9}, {3.782751888349661*^9, 3.782751905314535*^9}, {3.7831463202064962`*^9, 3.783146337243705*^9}, { 3.783148282262253*^9, 3.783148286341049*^9}, {3.783148327169224*^9, 3.783148358445261*^9}, {3.80579107461281*^9, 3.8057911020817747`*^9}, { 3.805791140341983*^9, 3.80579124638273*^9}, {3.805791290808879*^9, 3.805791296814315*^9}, {3.8057913603958597`*^9, 3.805791394089918*^9}, { 3.80579149456649*^9, 3.805791502667747*^9}, {3.8057916169128942`*^9, 3.805791685998014*^9}, {3.8057917358577147`*^9, 3.805791787154359*^9}, { 3.8057918441455183`*^9, 3.805791844851437*^9}, 3.805791956360057*^9, { 3.805792029699247*^9, 3.805792038053144*^9}, {3.805793552335343*^9, 3.805793598340785*^9}, {3.805793690357936*^9, 3.805793696937049*^9}, { 3.805793730905829*^9, 3.8057937326746883`*^9}, {3.805799481841482*^9, 3.8057998079296103`*^9}, {3.805799860865123*^9, 3.805799898494585*^9}, { 3.805799960997964*^9, 3.805799992599689*^9}, {3.805800092297658*^9, 3.805800092683652*^9}, {3.805800136338183*^9, 3.805800190963431*^9}, { 3.805800246322219*^9, 3.805800286395096*^9}, {3.805800324914175*^9, 3.805800327948124*^9}, {3.805800363888465*^9, 3.805800381248263*^9}, { 3.805801306611381*^9, 3.8058013084660063`*^9}, {3.805801553534418*^9, 3.8058015729939003`*^9}, {3.815735437797929*^9, 3.815735442103491*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"e6f9b31f-da17-4d74-b800-5f311018c2c5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Tau]vals", "=", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "15", ",", "20", ",", "40", ",", "80"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ESSres", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"#", ",", "1", ",", "2.3"}], "]"}], "&"}], "/@", "\[Tau]vals"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.805792100301477*^9, 3.805792154515383*^9}, { 3.805793619931196*^9, 3.805793674888913*^9}, 3.8057937250680313`*^9, { 3.805800550912263*^9, 3.805800552096822*^9}, {3.805801328512673*^9, 3.805801334350712*^9}, {3.8058014364492617`*^9, 3.805801490867403*^9}, { 3.805801581398324*^9, 3.805801588285334*^9}, {3.805801719974743*^9, 3.805801783574733*^9}, {3.805801844305141*^9, 3.805801880025743*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"06052a84-d629-4786-9798-ca83303f08e4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "7.403950970828984`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735467506654*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"740ac7ff-3528-47f4-a3bd-49c4b295793f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", "9.063684773915459`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735471870921*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"06cde767-58fc-444e-8606-3bb4358fb624"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9749999999999999`", ",", "2.3`", ",", "2.1374999999999997`", ",", RowBox[{"-", "1.4667887925791428`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735476107704*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"f58208da-5ea2-4847-9ad6-7f1575d135ec"] }, Open ]], Cell[BoxData[ TemplateBox[{ "NIntegrate", "ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"t\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"200.80076570835948`\\\", \ \\\"}\\\"}]\\). NIntegrate obtained \\!\\(\\*RowBox[{\\\"-\\\", \ \\\"0.0033722548420805267`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"5.676252610428526`*^-9\\\"}]\\) for the integral and \ error estimates.\"", 2, 23, 1, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.81573537452534*^9, 3.815735417924436*^9, 3.815735480135345*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"408b52c8-d3fc-406a-9999-ab2c3bbe1f60"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.1374999999999997`", ",", "2.05625`", ",", RowBox[{"-", "3.3722548420805267`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157354801565943`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"cad9edac-4313-470f-93d8-2f192d8f797c"], Cell[BoxData[ TemplateBox[{ "NIntegrate", "ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"t\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"200.80076570835948`\\\", \ \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.002693506200020012`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"5.758624732460576`*^-9\\\"}]\\) for the integral and \ error estimates.\"", 2, 23, 2, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.81573537452534*^9, 3.815735417924436*^9, 3.815735484267967*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"413260ce-ab73-4a7c-8405-9017afc41092"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.05625`", ",", "2.015625`", ",", "2.693506200020012`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735484273267*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"ab20a4c9-d878-469c-b59f-c9fa0a159279"], Cell[BoxData[ TemplateBox[{ "NIntegrate", "ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"t\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"200.80076570835948`\\\", \ \\\"}\\\"}]\\). NIntegrate obtained \\!\\(\\*RowBox[{\\\"-\\\", \ \\\"0.0003761543947130568`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"5.586501856928885`*^-9\\\"}]\\) for the integral and \ error estimates.\"", 2, 23, 3, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.81573537452534*^9, 3.815735417924436*^9, 3.815735488337657*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"56d3de87-2216-4548-9d7d-9726456c43b4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"", 2, 23, 4, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.81573537452534*^9, 3.815735417924436*^9, 3.815735488342189*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"82d45806-be8a-49dc-8504-295cad37f014"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"2.015625`", ",", "2.05625`", ",", "2.0359375`", ",", RowBox[{"-", "3.761543947130568`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573548834643*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"45b57a40-3049-4d9a-a852-bd6427bd1492"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.015625`", ",", "2.0359375`", ",", "2.02578125`", ",", "1.1493238832541568`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735492497492*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"7ad8fd2f-1f52-4510-9b34-72ca0b40e611"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.02578125`", ",", "2.0359375`", ",", "2.0308593750000004`", ",", "3.8426534401252994`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735496566235*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"bf0800b2-3a9d-4192-950a-67ac0753246f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0308593750000004`", ",", "2.0359375`", ",", "2.0333984375000003`", ",", "3.4771188370333613`*^-10"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735500647451*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"30b80458-a2f9-4242-8114-3743310f56db"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0333984375000003`", ",", "2.0359375`", ",", "2.03466796875`", ",", RowBox[{"-", "1.8648152285823984`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735504753293*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"b85d8c03-883e-4301-9d67-85165a5516f1"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "7.124358529755483`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355129737167`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"66e8129d-4c7f-41ba-a81b-707a18907913"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", "6.301928437792107`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735515771549*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"fd3bf766-e9ed-41fc-a4ae-9b0bcb31b724"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9749999999999999`", ",", "2.3`", ",", "2.1374999999999997`", ",", RowBox[{"-", "1.7378406880309107`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573551851899*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"aaa73e39-78d6-47d5-b740-a5f22d4b7b76"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.1374999999999997`", ",", "2.05625`", ",", RowBox[{"-", "6.110634099776996`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735521347921*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"e8f221d0-6b88-4174-8f43-32c08b86d4d5"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9749999999999999`", ",", "2.05625`", ",", "2.015625`", ",", RowBox[{"-", "5.715208340979165`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735524208783*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"1bd1a7ce-c9ad-487f-b36c-fda5c932b595"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.015625`", ",", "1.9953124999999998`", ",", "3.082882012587824`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735527249825*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"d9d6a98f-e67b-4028-a1f5-1bdb1e7bcd49"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9953124999999998`", ",", "2.015625`", ",", "2.00546875`", ",", "1.5031569324400746`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735530093364*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"2e0c1def-baf6-4461-8d6c-8afcc0f6b107"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.00546875`", ",", "2.015625`", ",", "2.010546875`", ",", "7.205952122860508`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735532920168*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"0893cbf6-5177-4f03-920f-4dc5366bd190"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.010546875`", ",", "2.015625`", ",", "2.0130859375`", ",", "3.3112442155089636`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735535794436*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"8a60ca26-4977-4d35-bf1e-be6b2802a993"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0130859375`", ",", "2.015625`", ",", "2.01435546875`", ",", "1.3683771796078615`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735538695204*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"8e7af19e-1ac3-4ab5-971a-4d93a00035a3"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "6.447247125618997`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735544582444*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"ec9c34d7-103d-4886-96ea-a25ff52368f8"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "3.993428729756389`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735546567618*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"d6f0b3b4-885d-443b-80f2-1b0af4f36fcd"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "2.8511082773659237`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735548485189*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"4b8247c3-c5af-44a9-a16f-7489b9e9f755"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", "1.3299895848092098`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735550396385*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"5e6819a5-7906-41da-b80a-cc0c3785e8be"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9749999999999999`", ",", "1.9343749999999997`", ",", "6.274496765035233`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735552332697*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"4c4fcce1-2e7f-48d0-973a-a0e72d132c5c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9343749999999997`", ",", "1.9749999999999999`", ",", "1.9546875`", ",", "2.8951630106518484`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355543033123`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"39f94c89-6629-4264-933d-42b94d744d62"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9546875`", ",", "1.9749999999999999`", ",", "1.96484375`", ",", "1.2374885898173156`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735556221373*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"57a0eadd-2270-4a21-8c44-215b7a10bf1c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.96484375`", ",", "1.9749999999999999`", ",", "1.9699218749999998`", ",", "4.1648798950126075`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573555814421*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"4eb80963-4868-4122-98d3-5a652d962332"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9699218749999998`", ",", "1.9749999999999999`", ",", "1.9724609374999997`", ",", "7.932173311937276`*^-10"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355600697517`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"494543e7-d181-4355-a5ed-f791d93914a7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9724609374999997`", ",", "1.9749999999999999`", ",", "1.97373046875`", ",", RowBox[{"-", "1.9586906289051074`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573556200821*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"b9a13c15-cb17-4bf9-be45-45f5d414e4cb"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "5.783116502196586`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355665295467`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"16648d8d-775d-4fd5-8b76-5e894ce2eb2d"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "7.264845953202361`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735568065283*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"fc465c49-3c9a-4f8f-98cf-8dcaa896cd9f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "2.1742315774746256`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735569727291*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"2486330f-35e9-43e6-b4aa-a4513b51fc8d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", "6.479224987669307`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735571472782*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"e4d3a906-ed2a-4d38-91fb-73cec8c6c28c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9749999999999999`", ",", "1.9343749999999997`", ",", RowBox[{"-", "5.6941405977980105`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735573257958*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"7555cca7-9ce5-4d60-9025-9911d8cf0400"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9343749999999997`", ",", "1.9140624999999998`", ",", "2.909180572160118`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735575027668*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"d71fe5cb-7ace-4139-95f8-890160b0e22c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9140624999999998`", ",", "1.9343749999999997`", ",", "1.9242187499999996`", ",", "1.1586608680865715`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735576755253*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"73756f12-a816-47f3-88cd-19447cd21302"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9242187499999996`", ",", "1.9343749999999997`", ",", "1.9292968749999997`", ",", "2.9184225345540994`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355785616713`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"8ca94c44-178b-4b88-8e13-be5fd1656d4a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9292968749999997`", ",", "1.9343749999999997`", ",", "1.9318359374999998`", ",", RowBox[{"-", "1.3947582332020371`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735580236822*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"773a86cb-1a1b-4ce7-97ef-cd464b7d6b3f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9292968749999997`", ",", "1.9318359374999998`", ",", "1.9305664062499996`", ",", "7.60048457228435`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355817878733`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"296e39c0-a4fb-4f1f-8f4f-c352dc1060f8"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "5.172776922811756`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735585770033*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"19e31750-8ce1-4d8a-81fa-62ec66a412a3"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "1.3768138350577615`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735587167822*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"22fe52db-5a46-4748-9d32-f9dbf3a85c3a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "1.5423398335026283`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355885082617`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"50fc9994-f4fa-4f6f-88a7-51e0f9cf52af"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", "6.457937089794121`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355898823433`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"a43577e3-18e8-435e-8ff3-450b5a3e59d6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9749999999999999`", ",", "1.9343749999999997`", ",", RowBox[{"-", "7.029228961261781`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735591303728*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"da7a745c-2611-494c-89ec-ee5b28868e7e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9343749999999997`", ",", "1.9140624999999998`", ",", RowBox[{"-", "3.5282498951926275`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735592670519*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"e967706f-eb5d-44c4-8a88-79443624e5bd"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9140624999999998`", ",", "1.90390625`", ",", RowBox[{"-", "1.7435154543678743`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157355940280952`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"517edbab-e689-4242-aa86-37751e710d03"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.90390625`", ",", "1.8988281249999999`", ",", RowBox[{"-", "8.424231082918348`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735595364797*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"46720121-75d9-47fb-a87c-f228cc3e1582"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.8988281249999999`", ",", "1.8962890624999997`", ",", RowBox[{"-", "3.8965691626387764`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735596701641*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"4676cc61-2402-428f-9c15-fe965068ae1e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.8962890624999997`", ",", "1.8950195312499998`", ",", RowBox[{"-", "1.6272744133613658`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735598062344*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"de3e18b4-47e1-4c85-9281-49f905cb1a2b"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "4.628619868019467`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356014525642`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"e2e00c43-4c38-48e6-9a8e-bc909e6d98df"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "1.973986997588766`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735602607953*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"98ce8cb9-0d2d-43b5-a73f-d721629569c4"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "9.703348758356844`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573560373904*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"f70d3781-99eb-4024-abeb-1a8d88951adf"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", RowBox[{"-", "5.78442406390523`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735604892425*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"ee6c241a-69f7-46d5-b19e-db8c5b29298f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.8937499999999998`", ",", "1.853125`", ",", "1.7539626772073656`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356060373697`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"ddf57ab2-ad41-4574-aa6d-91919a751cf8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.853125`", ",", "1.8937499999999998`", ",", "1.8734374999999999`", ",", RowBox[{"-", "2.0647608914157804`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356072015057`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"10ab3cec-fbef-41ee-9f97-be8ce2532a8d"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.853125`", ",", "1.8734374999999999`", ",", "1.86328125`", ",", RowBox[{"-", "1.6800780557297782`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735608339932*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"e269ef35-8134-42e8-8bc0-7b10271f2111"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.853125`", ",", "1.86328125`", ",", "1.858203125`", ",", "7.897920970010723`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735609481028*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"23c3b7a0-caba-4fb7-ba50-6760aa4e610b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.858203125`", ",", "1.86328125`", ",", "1.8607421875`", ",", "3.1009426694640054`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735610621359*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"8783541a-e274-4c1b-b82c-1b2c1a640b43"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8607421875`", ",", "1.86328125`", ",", "1.86201171875`", ",", "7.0855421094318196`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735611772963*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"017faf5f-43a6-4e06-b4fc-fc9d72f96af2"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "3.5697762022545067`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356144509583`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"29630abd-b88b-419d-8366-0b1fa00beeca"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "3.1795131064165625`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735615413711*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"664804a3-aebe-460f-8e0c-3a528045ca7f"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "1.6440327682082145`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735616351471*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"dd946b65-8b69-4164-8aad-82c1b8ecfb6e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.8125`", ",", "1.73125`", ",", "1.5988808684316432`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735617253118*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"362ddc17-6a10-47d8-8ee5-b3bcf1f69017"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.73125`", ",", "1.8125`", ",", "1.771875`", ",", "6.932350148422389`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735618187561*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"cf315a56-2370-4de8-a2d7-0f6135a20a7f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.771875`", ",", "1.8125`", ",", "1.7921875`", ",", "2.5864307618554186`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573561911417*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"68836519-01d6-411c-a107-2d4ffc954ba9"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7921875`", ",", "1.8125`", ",", "1.80234375`", ",", "4.570078305883619`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573562004764*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"488ca8fd-0948-4607-9d52-46aebad0fe2c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.80234375`", ",", "1.8125`", ",", "1.807421875`", ",", RowBox[{"-", "5.969862203120213`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735620971751*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"4ddfc320-7eed-4451-8394-219e269d810b"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.80234375`", ",", "1.807421875`", ",", "1.8048828124999998`", ",", RowBox[{"-", "7.085015126673331`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356219076023`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"eb31bc50-17a7-49fb-bfd7-71fd4802dc73"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.80234375`", ",", "1.8048828124999998`", ",", "1.8036132812499999`", ",", "1.928738299025261`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356228370667`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"d0c84439-dfa3-4f4e-a729-6ea8e175cb71"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "2.8740159147305556`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356251100883`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"240f4bde-48a8-48ef-9a72-1168a98d2c9c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "3.995394739909979`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735625894959*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"292b9735-e677-4897-9685-e431ebcd193f"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "9.221593872265575`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735626658361*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"0366f922-cba8-4f12-bcf4-f63c4a1db5c0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.8125`", ",", "1.73125`", ",", "8.716130602980592`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356274528713`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"1b62e2d3-19db-4311-8a05-7a2f80eaaf08"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.8125`", ",", "1.771875`", ",", RowBox[{"-", "4.9397928690692635`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356282022877`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"613ef5e4-9760-4684-b68f-43c101fc84ac"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.73125`", ",", "1.771875`", ",", "1.7515625`", ",", "4.0484729652309553`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735628962797*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"98c98fc0-48c4-4e66-8bd5-a7eb80b5b496"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7515625`", ",", "1.771875`", ",", "1.76171875`", ",", "1.7618827406810804`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.81573562972745*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"111a8a9b-c002-4437-a4a4-1f3751420038"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.76171875`", ",", "1.771875`", ",", "1.766796875`", ",", "6.301490906013439`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735630486384*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"2dd577ef-ba4e-4b6a-a3e2-9e052106283b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.766796875`", ",", "1.771875`", ",", "1.7693359375000002`", ",", "6.714907782074121`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735631248332*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"b6428520-3593-469b-aedf-2a5893b4fda1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7693359375000002`", ",", "1.771875`", ",", "1.7706054687500001`", ",", RowBox[{"-", "2.13647719906844`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735632068172*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"d61fab5e-050f-4d38-b5eb-5d0b26a57d6c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "1.685195187634358`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356333904753`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"b3bba576-77e2-45cf-81c3-c423409afb66"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "5.411337803729957`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735633841174*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"3fe300a4-bb80-425c-8682-dce6b56848a0"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "2.2288936526426835`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735634288622*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"751c0d55-18f8-4185-9882-166e76bce578"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.8125`", ",", "1.73125`", ",", RowBox[{"-", "3.7728976474896655`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735634739663*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"78e5a193-3654-462d-9276-056de6582175"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.73125`", ",", "1.6906249999999998`", ",", "6.255357722956806`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735635190693*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"8ad4320c-7ee1-4655-9c2a-44038e8660d1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6906249999999998`", ",", "1.73125`", ",", "1.7109375`", ",", "1.1729044357787642`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735635643145*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"55e9a831-84a4-40a9-8c4c-6ffcc9be62fe"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7109375`", ",", "1.73125`", ",", "1.72109375`", ",", RowBox[{"-", "1.3167523885461345`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356360951777`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"c39ac380-2293-4482-b4e7-226d31eb192c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7109375`", ",", "1.72109375`", ",", "1.716015625`", ",", RowBox[{"-", "7.61460081367904`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735636554092*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"f6b0a10a-bb63-4ab9-b734-35e51586d6fd"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7109375`", ",", "1.716015625`", ",", "1.7134765625`", ",", "5.4731188002545356`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735637001684*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"55222d9e-39a3-47ce-9ff1-c27ceda1c50a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7134765625`", ",", "1.716015625`", ",", "1.71474609375`", ",", "2.3531768393448353`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735637448201*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"33bef0fb-bb95-4fb1-a0f6-96d38e12c93c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "1.07022550957921`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735638156083*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"225add82-f15e-4ca2-b5f2-57c1ce5995c7"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "1.7832404845763871`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735638397328*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"62cb6fd8-e460-48df-a679-24d84068a3c4"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "2.905939042675806`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735638638713*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"180251bc-0fe3-447d-8e80-c33065c39a87"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.8125`", ",", "1.73125`", ",", RowBox[{"-", "1.0239529022963073`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735638883272*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"07545391-84c8-488d-868b-59a9bbad0721"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.73125`", ",", "1.6906249999999998`", ",", RowBox[{"-", "5.445886596655916`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735639140481*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"e0161f13-d2ac-400a-b261-d3039c434503"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.6906249999999998`", ",", "1.6703124999999999`", ",", "5.249637060646812`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735639397681*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"cec16c06-5a1c-4c7e-8fc4-30484f932c10"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6703124999999999`", ",", "1.6906249999999998`", ",", "1.6804687499999997`", ",", "2.579387648769255`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735639649336*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"aceee871-b9aa-4724-a605-eed7d63e9d77"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6804687499999997`", ",", "1.6906249999999998`", ",", "1.6855468749999998`", ",", "1.2579537071244843`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735639985063*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"8499b686-8275-4dd0-beef-cf2bab66cbdb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6855468749999998`", ",", "1.6906249999999998`", ",", "1.6880859375`", ",", "6.00652709682532`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.8157356402195387`*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"b9ae594e-da21-49a6-b726-f613d2aa7804"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6880859375`", ",", "1.6906249999999998`", ",", "1.6893554687499999`", ",", "2.728031620713525`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.815735374772194*^9, 3.815735426306485*^9, 3.815735640468289*^9}, CellLabel-> "During evaluation of \ In[22]:=",ExpressionUUID->"3d887cb9-e792-41a0-8127-f2e94cb4c46d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["ESSres"], "Input", CellChangeTimes->{{3.805792570055151*^9, 3.805792570809909*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"fce2fd0b-ee5d-46b4-8206-b8f0d657d2ae"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0340332031250004`", ",", "2.014990234375`", ",", "1.9730957031249998`", ",", "1.9312011718749997`", ",", "1.894384765625`", ",", "1.862646484375`", ",", "1.8042480468749997`", ",", "1.7699707031250003`", ",", "1.7153808593750002`", ",", "1.6899902343749997`"}], "}"}]], "Output", CellChangeTimes->{3.805792571412582*^9, 3.805794338281502*^9, 3.805798021821127*^9, 3.8058026069548388`*^9, 3.805804213948818*^9, 3.815735640536632*^9}, CellLabel->"Out[24]=",ExpressionUUID->"f7b55366-779d-4cbd-ab6e-251c84383978"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"1.5", ",", "2.1"}], "}"}]}], ",", RowBox[{"Epilog", "->", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "zlim"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "zlim"}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.805792795458452*^9, 3.8057928696992607`*^9}, { 3.8057944048645887`*^9, 3.805794405579506*^9}, {3.80579449738241*^9, 3.805794556047126*^9}, {3.80579470157504*^9, 3.8057947147558727`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"54c1d47e-3c46-4747-8a3e-581dfb5ab5c2"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 2.0340332031250004`}, {2., 2.014990234375}, {4., 1.9730957031249998`}, {6., 1.9312011718749997`}, {8., 1.894384765625}, { 10., 1.862646484375}, {15., 1.8042480468749997`}, {20., 1.7699707031250003`}, {40., 1.7153808593750002`}, {80., 1.6899902343749997`}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 1.5}, DisplayFunction->Identity, Epilog->{ GrayLevel[0.5], Dashing[{Small, Small}], LineBox[{{0, 1.666666666666667}, {80, 1.666666666666667}}]}, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 80.}, {1.5, 2.1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8057928103931503`*^9, 3.8057928702654877`*^9}, 3.805794345720708*^9, 3.80579440625991*^9, 3.805794556721592*^9, 3.805794728256727*^9, 3.805798021873831*^9, 3.805802609349473*^9, 3.8058042180025177`*^9, 3.8157356406900806`*^9}, CellLabel->"Out[25]=",ExpressionUUID->"c7d43cc3-8b9d-482a-b96d-fe70b63555ca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dat", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}]}]], "Input", CellLabel->"In[26]:=",ExpressionUUID->"3c85c511-ac62-4348-a52a-f44ae639f05e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2.0340332031250004`"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2.014990234375`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1.9730957031249998`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1.9312011718749997`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1.894384765625`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1.862646484375`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "1.8042480468749997`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "1.7699707031250003`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "1.7153808593750002`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "1.6899902343749997`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.805798021886361*^9, 3.805802614928673*^9, 3.805804221064156*^9, 3.815735640712998*^9}, CellLabel->"Out[26]=",ExpressionUUID->"45a23c02-14d7-443a-8bce-98421feef3ed"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "}"}], ",", "dat"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.805797516002461*^9, 3.805797519844634*^9}, { 3.80580223882668*^9, 3.8058022400644073`*^9}, {3.815735336584476*^9, 3.815735336733007*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"73a0927a-4759-4389-8580-e5d4aa41cf5f"], Cell[BoxData["\<\"evolution-rv-r4-bisect-simus.dat\"\>"], "Output", CellChangeTimes->{3.805798021924312*^9, 3.8058026164975567`*^9, 3.80580422192351*^9, 3.815735640739842*^9}, CellLabel->"Out[27]=",ExpressionUUID->"9a448b35-43c4-42b8-9cfc-c906d9a213fd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Calculation using eqn S22 (approximation of selection gradient) + bisection\ \>", "Subsubsection", CellChangeTimes->{{3.782751859822446*^9, 3.782751865820404*^9}, { 3.782752045037979*^9, 3.782752045522992*^9}, {3.8057993147263823`*^9, 3.805799340146462*^9}, {3.805802676357815*^9, 3.805802680279662*^9}, { 3.805884899172021*^9, 3.80588490904635*^9}, {3.8157359871575947`*^9, 3.815736008980369*^9}},ExpressionUUID->"711c77d4-db32-49cd-960b-\ db4eb31f2a51"], Cell["\<\ Calculate the selection gradient using eqn (S.22) in the supplementayry \ material\ \>", "Text", CellChangeTimes->{{3.8157352357618847`*^9, 3.8157352590660467`*^9}},ExpressionUUID->"6fd13928-fd21-4b85-8e96-\ 46bbeb863105"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"zlim", "=", RowBox[{"1", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"0.8", "*", "0.8"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.805791231464591*^9, 3.805791237220048*^9}, { 3.8057946861261463`*^9, 3.805794695691599*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"4f9dd85a-1e67-41fa-a938-d42e18cd2dff"], Cell[BoxData["1.666666666666667`"], "Output", CellChangeTimes->{3.8057912375463753`*^9, 3.805791953482133*^9, 3.805793230578473*^9, 3.8057946961658497`*^9, 3.805797673387772*^9, 3.805799813318234*^9, 3.805803362040454*^9, 3.805885506801395*^9, 3.806031100079278*^9, 3.815735640766644*^9}, CellLabel->"Out[28]=",ExpressionUUID->"01872dbc-deae-46c5-bd89-5328d9833d88"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"vaccpars", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", "1"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "2"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "3"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "4"], "\[Rule]", "0.8"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.782751870374545*^9, 3.782751876375462*^9}, { 3.782751913525055*^9, 3.7827519255774527`*^9}, 3.7828176187869883`*^9, 3.782817772932867*^9, {3.782817993949123*^9, 3.782817999739758*^9}, { 3.783491426889502*^9, 3.7834914279279013`*^9}, {3.805791008665867*^9, 3.8057910209217367`*^9}, {3.80579108295021*^9, 3.805791093377673*^9}, { 3.805885904783765*^9, 3.8058859050569897`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"d934069b-25b2-49f3-b64d-7f21a5c67795"], Cell[BoxData[{ RowBox[{ RowBox[{"varsf", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tend", "=", "300"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"initf", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "0", "]"}], "\[Equal]", "0.1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysf", "=", RowBox[{"Join", "[", RowBox[{"sysf", ",", "initf"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", "matf", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], "}"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sysv", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "'"}], "[", "t", "]"}]}], "}"}], "==", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Transpose", "[", "matf", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}], "+", RowBox[{ RowBox[{"r", "[", "t", "]"}], " ", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"varsv", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"finalv", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "tend", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "[", "tend", "]"}], "\[Equal]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysv", "=", RowBox[{"Join", "[", RowBox[{"sysv", ",", "finalv"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8058914794915543`*^9, 3.8058914807109613`*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"b192f875-5bc6-4cfa-96ec-ca3a03af9649"], Cell[BoxData[ RowBox[{ RowBox[{"MeanCT", "[", RowBox[{"\[Tau]val_", ",", "zval_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"cT", ",", "func"}], "}"}], ",", RowBox[{ RowBox[{"pars", "=", RowBox[{"Join", "[", RowBox[{"basepars", ",", "vaccpars", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Tau]", "\[Rule]", "\[Tau]val"}], ",", RowBox[{"\[Omega]", "\[Rule]", RowBox[{"1", "/", "\[Tau]val"}]}], ",", RowBox[{"z", "\[Rule]", "zval"}]}], "}"}]}], "]"}]}], ";", RowBox[{"solf", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"fullsysf", "//.", "pars"}], ",", "varsf", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tend"}], "}"}]}], "]"}]}], ";", RowBox[{"solv", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{"fullsysv", "/.", RowBox[{"solf", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//.", "pars"}], ",", "varsv", ",", RowBox[{"{", RowBox[{"t", ",", "tend", ",", "10"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"func", "[", "t_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}], RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], "/.", RowBox[{"solf", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"solv", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"cT", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "\[Tau]"}], "//.", "pars"}], ")"}], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"func", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "200", ",", RowBox[{ RowBox[{"200", "+", "\[Tau]"}], "//.", "pars"}]}], "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"\"\\"", "\[Rule]", "0"}]}], "}"}]}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "4"}]}], "]"}]}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.805891083349745*^9, 3.805891116863599*^9}, { 3.805891148960371*^9, 3.805891149842485*^9}, {3.805891411682991*^9, 3.805891427809134*^9}, {3.805891473018403*^9, 3.805891475908671*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"e4a85fbb-b164-42e0-a2d6-c343e095f67e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"selgradN", "[", "z_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], "//.", "basepars"}], ",", "z"}], "]"}], "//", "Simplify"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}], "/", SubscriptBox["\[Beta]", "U"]}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "U"], "//.", "basepars"}], ",", "z"}], "]"}]}], "//.", "basepars"}], "//.", "vaccpars"}]}]], "Input", CellChangeTimes->{{3.8058901346448183`*^9, 3.8058901955404453`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"38234db2-a20c-416e-8202-a69275fa6f9d"], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["1", "z"]}]], "Output", CellChangeTimes->{{3.805890185840687*^9, 3.805890196097513*^9}, 3.805890298969482*^9, 3.805890369461578*^9, 3.805890561923781*^9, 3.805890660174738*^9, 3.805891121266056*^9, 3.805891488136867*^9, 3.806031105947772*^9, 3.815735640893078*^9}, CellLabel->"Out[40]=",ExpressionUUID->"b5a68459-8223-49b2-b3b2-bfedc26e8b57"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"selgradT", "[", "z_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "T"], "//.", "basepars"}], ",", "z"}], "]"}], " ", "//", "Simplify"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}], "/", SubscriptBox["\[Beta]", "T"]}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "T"], "//.", "basepars"}], ",", "z"}], "]"}]}], "//.", "basepars"}], "//.", "vaccpars"}]}]], "Input", CellChangeTimes->{{3.80589020325979*^9, 3.8058902181400547`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"646924fd-9dfe-41ff-85e0-b55366a77e1d"], Cell[BoxData[ RowBox[{ RowBox[{"-", "0.19999999999999996`"}], "+", FractionBox[ RowBox[{"1", "+", RowBox[{"0.19999999999999996`", " ", "z"}]}], RowBox[{"z", " ", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.805890218678487*^9, 3.805890299963421*^9, 3.805890370115995*^9, 3.8058905625808287`*^9, 3.805890660777532*^9, 3.8058911218584957`*^9, 3.805891488736258*^9, 3.806031106638268*^9, 3.815735640923298*^9}, CellLabel->"Out[41]=",ExpressionUUID->"32f3f907-94ba-4753-8258-a26aa321bb74"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val_", ",", "zres_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "cTm", "}"}], ",", RowBox[{ RowBox[{"cTm", "=", RowBox[{"MeanCT", "[", RowBox[{"\[Tau]val", ",", "zres"}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "cTm"}], ")"}], " ", RowBox[{"selgradN", "[", "zres", "]"}]}], "+", RowBox[{"cTm", " ", RowBox[{"selgradT", "[", "zres", "]"}]}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.80588498416218*^9, 3.805885215283155*^9}, { 3.805885447401667*^9, 3.8058854596204042`*^9}, {3.805885582217198*^9, 3.805885613289315*^9}, {3.805886031991847*^9, 3.80588604052344*^9}, { 3.805886166336677*^9, 3.805886174736022*^9}, {3.805890234330962*^9, 3.805890270173562*^9}, {3.805890785371587*^9, 3.805890786268749*^9}, { 3.805891169863605*^9, 3.805891170471784*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"ffa037e5-66d9-4de3-ad22-2b769f4fa509"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"\[Tau]val_", ",", "zainit_", ",", "zbinit_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zESS"}], "}"}], ",", RowBox[{ RowBox[{"perpars", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Omega]", "\[Rule]", RowBox[{"1", "/", "\[Tau]val"}]}], ",", RowBox[{"\[Tau]", "\[Rule]", "\[Tau]val"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pars", "=", RowBox[{"Join", "[", RowBox[{"basepars", ",", "perpars", ",", "vaccpars"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"za", "=", "zainit"}], ";", RowBox[{"zb", "=", "zbinit"}], ";", "\[IndentingNewLine]", RowBox[{"rhoa", "=", RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val", ",", "za"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhob", "=", RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val", ",", "zb"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"niter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"niter", "<", "100"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zc", "=", RowBox[{ RowBox[{"(", RowBox[{"za", "+", "zb"}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"zb", "-", "za"}], ")"}], "/", "2"}], ">", "0.001"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"niter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"rhoc", "=", RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val", ",", "zc"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zc", ",", "rhoc"}], "}"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", "rhoc", "]"}], "\[Equal]", RowBox[{"Sign", "[", "rhoa", "]"}]}], ",", RowBox[{"za", "=", "zc"}], ",", RowBox[{"zb", "=", "zc"}]}], "]"}]}], ",", RowBox[{"niter", "=", "100"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"zESS", "=", "zc"}], ";", RowBox[{"Return", "[", "zESS", "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7827301276917763`*^9, 3.782730253536025*^9}, { 3.782730327143387*^9, 3.782730328318729*^9}, {3.7827309625457993`*^9, 3.782730968872819*^9}, {3.782731308024325*^9, 3.782731309204022*^9}, { 3.78273205232051*^9, 3.782732075856773*^9}, {3.782732110446437*^9, 3.7827321105855227`*^9}, {3.7827322518308783`*^9, 3.78273229060892*^9}, { 3.782750326507348*^9, 3.7827503275325403`*^9}, {3.782751888349661*^9, 3.782751905314535*^9}, {3.7831463202064962`*^9, 3.783146337243705*^9}, { 3.783148282262253*^9, 3.783148286341049*^9}, {3.783148327169224*^9, 3.783148358445261*^9}, {3.80579107461281*^9, 3.8057911020817747`*^9}, { 3.805791140341983*^9, 3.80579124638273*^9}, {3.805791290808879*^9, 3.805791296814315*^9}, {3.8057913603958597`*^9, 3.805791394089918*^9}, { 3.80579149456649*^9, 3.805791502667747*^9}, {3.8057916169128942`*^9, 3.805791685998014*^9}, {3.8057917358577147`*^9, 3.805791787154359*^9}, { 3.8057918441455183`*^9, 3.805791844851437*^9}, 3.805791956360057*^9, { 3.805792029699247*^9, 3.805792038053144*^9}, {3.805793552335343*^9, 3.805793598340785*^9}, {3.805793690357936*^9, 3.805793696937049*^9}, { 3.805793730905829*^9, 3.8057937326746883`*^9}, {3.805799481841482*^9, 3.8057998079296103`*^9}, {3.805799860865123*^9, 3.805799898494585*^9}, { 3.805799960997964*^9, 3.805799992599689*^9}, {3.805800092297658*^9, 3.805800092683652*^9}, {3.805800136338183*^9, 3.805800190963431*^9}, { 3.805800246322219*^9, 3.805800286395096*^9}, {3.805800324914175*^9, 3.805800327948124*^9}, {3.805800363888465*^9, 3.805800381248263*^9}, { 3.805801306611381*^9, 3.8058013084660063`*^9}, {3.805801553534418*^9, 3.8058015729939003`*^9}, {3.805885697761197*^9, 3.805885750827519*^9}, { 3.805890868645759*^9, 3.805890871609929*^9}, {3.805890939571973*^9, 3.805890952674654*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"48e54921-3ad7-4ea8-bd0d-7a514bdc0464"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Tau]vals", "=", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "15", ",", "20", ",", "25", ",", "30", ",", "35", ",", "40", ",", "50", ",", "70", ",", "80"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ESSres", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"#", ",", "1", ",", "2.3"}], "]"}], "&"}], "/@", "\[Tau]vals"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.805792100301477*^9, 3.805792154515383*^9}, { 3.805793619931196*^9, 3.805793674888913*^9}, 3.8057937250680313`*^9, { 3.805800550912263*^9, 3.805800552096822*^9}, {3.805801328512673*^9, 3.805801334350712*^9}, {3.8058014364492617`*^9, 3.805801490867403*^9}, { 3.805801581398324*^9, 3.805801588285334*^9}, {3.805801719974743*^9, 3.805801783574733*^9}, {3.805801844305141*^9, 3.805801880025743*^9}, { 3.806031224162999*^9, 3.80603122964927*^9}, {3.806031487128216*^9, 3.8060314874676847`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"0479df44-a3fd-4067-a37c-f246717d02b1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.07434434148303505`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735655948591*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"624961ec-31af-41c2-a561-b1260a690b34"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", "0.009373201418604087`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735660771661*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"2166c630-b1d3-4ee7-842b-deddf6d3fd82"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9749999999999999`", ",", "2.3`", ",", "2.1374999999999997`", ",", RowBox[{"-", "0.01436177341200811`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735665635153*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"026c8652-f883-4320-966f-7ea29c3c8443"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.1374999999999997`", ",", "2.05625`", ",", RowBox[{"-", "0.003066020201567571`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735670500306*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"15fe42c2-8ba0-409d-a55d-916bcd5148f1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.05625`", ",", "2.015625`", ",", "0.0030018116239222126`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157356752653418`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"1818cd54-fe0d-4c0a-8558-4a0a3f533423"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.015625`", ",", "2.05625`", ",", "2.0359375`", ",", RowBox[{"-", "0.00006953566213049878`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735680061184*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"9bdd3efc-824a-485d-a670-bd70499a2489"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.015625`", ",", "2.0359375`", ",", "2.02578125`", ",", "0.0014553632466877998`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157356848447647`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"71940573-9fd1-4db3-a51d-f41fabcd42d4"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.02578125`", ",", "2.0359375`", ",", "2.0308593750000004`", ",", "0.0006903020320972071`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573568963097*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"ef5237de-3da4-4ae3-b84d-55f248f311db"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0308593750000004`", ",", "2.0359375`", ",", "2.0333984375000003`", ",", "0.0003105174104133593`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735694416458*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"aaa5a9a4-118a-4d0c-9303-0b442d9c905d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0333984375000003`", ",", "2.0359375`", ",", "2.03466796875`", ",", "0.00012037815314918168`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735699216052*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f40acc11-5f0d-4071-b7fa-0ae2341697d2"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.07286013517519169`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735708845353*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"3fd22da7-baba-4d5b-b838-fde52d08f2be"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", "0.007789960402432718`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735712073251*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"58f4e36b-9314-4e53-92f1-45261c10625d"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9749999999999999`", ",", "2.3`", ",", "2.1374999999999997`", ",", RowBox[{"-", "0.015961442354558517`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357154053802`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a5e3b926-9cc6-40a6-977f-37b404f1476f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.1374999999999997`", ",", "2.05625`", ",", RowBox[{"-", "0.0046584465302274974`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735718747583*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f14b8586-2fbd-4c6b-8555-f9767a49c632"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.05625`", ",", "2.015625`", ",", "0.0014129745153894264`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357221230583`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f0301a96-6a9e-4d89-861c-f91a4fd29d7f"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.015625`", ",", "2.05625`", ",", "2.0359375`", ",", RowBox[{"-", "0.0016593519220610142`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357254195538`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"b8db26cc-d948-4fe8-948f-c463f7df6196"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.015625`", ",", "2.0359375`", ",", "2.02578125`", ",", RowBox[{"-", "0.0001320451309832979`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735728799621*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d0ff6ecd-bee3-43b3-ab74-0b67fe94eca8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.015625`", ",", "2.02578125`", ",", "2.020703125`", ",", "0.000638103952292312`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735732021598*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"3c4f68e2-db03-41cc-9e63-668ec451f159"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.020703125`", ",", "2.02578125`", ",", "2.0232421875`", ",", "0.0002521845922332372`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735735388673*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"3330e702-16b9-4fbe-bdf8-0df191e4212e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0232421875`", ",", "2.02578125`", ",", "2.0245117187500004`", ",", "0.00005959350305438302`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357387432003`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"753a496d-7c5b-40b3-993c-5629090d2c11"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.06814359460641974`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735745268819*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"bf8a287e-2ee8-4ca7-8226-2c372d18ff10"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", "0.002960636367549882`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357474466352`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"65ed5f02-5526-4b85-a2c1-e0c0f20be20d"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9749999999999999`", ",", "2.3`", ",", "2.1374999999999997`", ",", RowBox[{"-", "0.020884998420467264`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735749853825*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"3e71e495-f56c-47ec-9e64-96b0b777d357"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.1374999999999997`", ",", "2.05625`", ",", RowBox[{"-", "0.0095374527562577`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735752117206*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c756535e-a0cc-4d14-a376-3869c3968308"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9749999999999999`", ",", "2.05625`", ",", "2.015625`", ",", RowBox[{"-", "0.0034419596201280545`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735754434554*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c172df91-3e6a-43ea-ab6b-9a0d5b53e60f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "2.015625`", ",", "1.9953124999999998`", ",", RowBox[{"-", "0.00028022649959788537`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735756769883*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d66e1977-9327-4df0-9dbb-f393a5c99a9b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9749999999999999`", ",", "1.9953124999999998`", ",", "1.9851562499999997`", ",", "0.001329958811172413`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735759036667*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"66813678-4c16-4d16-8d54-bd3dfff60c49"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9851562499999997`", ",", "1.9953124999999998`", ",", "1.9902343749999998`", ",", "0.0005228863732412992`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735761268839*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"45d64ae7-b2a6-4a86-8790-2390f24c4bda"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9902343749999998`", ",", "1.9953124999999998`", ",", "1.9927734375`", ",", "0.00012013860851563946`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735763574132*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"656c96a6-05d0-4b8d-92ab-6ea8c0e8a989"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9927734375`", ",", "1.9953124999999998`", ",", "1.9940429687499999`", ",", RowBox[{"-", "0.00007962438296499341`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357658598833`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"431e209c-3a43-4e2a-ab35-7d5c09463951"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.06285477117622641`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357712141533`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"e209b7ee-b1de-4501-842f-42a8f3f3c538"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.0028842370588049934`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735773020109*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"1d21fa81-3f43-484c-bae9-40483857fad7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "0.026436567368441674`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735774836363*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"2631915d-b8fb-474a-8774-657da4812f46"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", "0.011014564073918098`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735776652672*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"e68ebdf5-a9f7-4d9e-a4d4-6531957e574a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9749999999999999`", ",", "1.9343749999999997`", ",", "0.0038878542902311686`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735778458418*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"b50b1c1a-f838-4d70-96a9-f02b73858ab2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9343749999999997`", ",", "1.9749999999999999`", ",", "1.9546875`", ",", "0.00045897571908670026`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735780367468*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f0ca7900-b09f-41fe-9e5a-7712775d9f29"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9546875`", ",", "1.9749999999999999`", ",", "1.96484375`", ",", RowBox[{"-", "0.0012232372527275492`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573578213269*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5cb463dc-a332-4933-950a-981e82dd4cba"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.9546875`", ",", "1.96484375`", ",", "1.959765625`", ",", RowBox[{"-", "0.0003845932087926038`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735783931426*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"366b2170-a8b6-4897-aa18-945d5c134b75"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9546875`", ",", "1.959765625`", ",", "1.9572265624999998`", ",", "0.00003692602509563353`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735785798531*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"67f9a78b-6f3c-4d23-a926-fa7031a562b4"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9572265624999998`", ",", "1.959765625`", ",", "1.95849609375`", ",", RowBox[{"-", "0.00017440322176372203`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735787638434*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"98a0cfb2-2ca7-4ea5-bc11-83542634a6c4"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.05742506306021479`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735792087055*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0e4ca826-425d-40b7-8c78-4bae198e8e4c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.008798453634228695`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735793613089*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a0f08d11-a86b-4e72-9dbd-08dd4c2d1d6e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "0.02074712159339285`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735795136403*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"046a6e57-b46e-4edc-9980-906b7fff3ad0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", "0.005208506286683116`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157357966726294`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c990ebcd-a235-4dd0-ace7-7f7dea733ebb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9749999999999999`", ",", "1.9343749999999997`", ",", RowBox[{"-", "0.0019732267636148187`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735798208496*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"ff8ff412-edac-4b1d-a0da-cee33d56f3b5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8937499999999998`", ",", "1.9343749999999997`", ",", "1.9140624999999998`", ",", "0.0015714056969020618`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735799720552*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5147b8f9-62b0-4036-b90b-a8b36c2ef277"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9140624999999998`", ",", "1.9343749999999997`", ",", "1.9242187499999996`", ",", RowBox[{"-", "0.00021204616821054317`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735801254003*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"42ecf7d3-295f-48fe-9e23-f165d3fc9a96"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9140624999999998`", ",", "1.9242187499999996`", ",", "1.9191406249999998`", ",", "0.0006772196478239748`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735802777646*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f165399c-54e6-4663-a6c5-9ede9f85e286"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9191406249999998`", ",", "1.9242187499999996`", ",", "1.9216796874999997`", ",", "0.00023126032514817624`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735804320809*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"320f9fd4-cd53-41fb-b552-9d0ec92c6f9a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.9216796874999997`", ",", "1.9242187499999996`", ",", "1.9229492187499997`", ",", "9.2817110894719`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573580584794*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"cc5ad94b-3df3-4c8d-9255-48c5dce863f6"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.05226542846090861`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735809712953*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d94b4f09-fdb8-45e3-a486-9da2e1d034c8"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.014518956297648856`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735811018382*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"36c39ac0-3265-45aa-85a9-38cd109f83bc"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "0.015293305397397532`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573581238739*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"68c92a34-2962-4779-8e15-f96612f77c64"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", RowBox[{"-", "0.0003815717992464718`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735813693677*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"3a7d8c2a-ab92-48e6-ae3c-3a9f6b01432c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.8937499999999998`", ",", "1.853125`", ",", "0.00724932760129849`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358150311537`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"4642533b-946d-4f7a-b4ad-980ce7607657"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.853125`", ",", "1.8937499999999998`", ",", "1.8734374999999999`", ",", "0.0033840788093044277`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735816382393*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"66a84e4f-de77-4667-b7f4-f60d004b7f3b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8734374999999999`", ",", "1.8937499999999998`", ",", "1.8835937499999997`", ",", "0.0014890559611894366`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735817739464*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"99c71ec2-97e4-4e48-afe4-00285e6df0f1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8835937499999997`", ",", "1.8937499999999998`", ",", "1.8886718749999998`", ",", "0.0005503983807038856`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735819093462*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0def1223-6491-4db7-b7d8-74e06a633efe"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8886718749999998`", ",", "1.8937499999999998`", ",", "1.8912109375`", ",", "0.00008361161518188193`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735820438252*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"bd40c392-be37-4ff7-985d-c2a83fb8e54c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8912109375`", ",", "1.8937499999999998`", ",", "1.8924804687499999`", ",", RowBox[{"-", "0.0001493150130060586`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735821753376*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c664d24e-8015-4e95-a053-e3cddb41e4c9"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.04136427530156534`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358248244247`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"b1882205-4478-400b-b0f6-a03e86cc8623"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.026849897532509735`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573582595063*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"6d092251-5b0a-45bb-98c4-7be9d6d6bce5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", "0.003650683907907168`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735827033916*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d71958f5-08e1-4e25-8d9a-4f84d1c21629"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.9749999999999999`", ",", "1.8937499999999998`", ",", RowBox[{"-", "0.012374798530636368`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573582814787*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f427b6d6-8273-48f5-b342-dffd4531cfed"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.8125`", ",", "1.8937499999999998`", ",", "1.853125`", ",", RowBox[{"-", "0.004569921644969888`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358292255297`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0c89537f-fd94-4b33-9a77-eda51c502bb4"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.8125`", ",", "1.853125`", ",", "1.8328125`", ",", RowBox[{"-", "0.0005135875378766766`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735830299391*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"8d3ebbeb-31a7-4835-a330-e4130143eee4"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8125`", ",", "1.8328125`", ",", "1.82265625`", ",", "0.0015549328033430607`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573583140044*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"4ccf0377-f15a-45a5-bfdf-c704e76a63d0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.82265625`", ",", "1.8328125`", ",", "1.827734375`", ",", "0.0005171422000914139`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735832504065*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d5361a2b-2408-43e5-a838-704a6ce3d24f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.827734375`", ",", "1.8328125`", ",", "1.8302734374999998`", ",", "8.884724077631856`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358335792828`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"069185bc-04b7-42ee-b446-dc87a939dbf3"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.8302734374999998`", ",", "1.8328125`", ",", "1.83154296875`", ",", RowBox[{"-", "0.0002567144724681322`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358346757917`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"e767c272-de6f-46ce-b949-c7afe358d59b"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.03353024261283634`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358374507847`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0f40aa2a-c9ab-47f4-956e-8b63961ad22a"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.035796773918016486`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573583838645*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c5a3e163-8aa7-49cd-ae0c-fdd7370283df"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.004758814733885577`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735839327196*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a7fb0856-1e42-4c9d-ad66-a67a4da03159"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.8125`", ",", "1.73125`", ",", "0.013339663887626377`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735840241644*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"175c0ae2-be4e-4f1e-9403-4510d22bbaed"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.73125`", ",", "1.8125`", ",", "1.771875`", ",", "0.0040486020394071565`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735841117462*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d406d297-4a0b-4298-ac69-b974e369dcf2"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.771875`", ",", "1.8125`", ",", "1.7921875`", ",", RowBox[{"-", "0.0004137615338237477`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735842011998*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d66f6772-6226-44a8-94b4-ae11623782a1"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.771875`", ",", "1.7921875`", ",", "1.7820312500000002`", ",", "0.0018026096829728624`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358428982897`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c1725702-6fb8-47df-bc8a-b1bf735f914e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7820312500000002`", ",", "1.7921875`", ",", "1.787109375`", ",", "0.0006910594116777205`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735843794352*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c2ca00f0-cc2d-41a2-9321-ae1b7d2cca8d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.787109375`", ",", "1.7921875`", ",", "1.7896484375`", ",", "0.0001376608870602078`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735844732872*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"206e2cfd-ff6b-46d2-88c4-beb288d1371d"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7896484375`", ",", "1.7921875`", ",", "1.79091796875`", ",", RowBox[{"-", "0.00013826607647510203`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735845678013*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"8e22eb41-c01b-4fc5-b579-753b2e83febe"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.02811706102426019`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358478874397`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c873c78b-68dc-4729-9b60-a96a691150b3"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.04197824549726851`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735848618246*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d4f207d4-0941-4061-a7a8-2dbd4d293d53"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.010537989742971987`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735849360861*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"1470524e-777a-47b0-b8e4-fbb48a981829"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.8125`", ",", "1.73125`", ",", "0.007723983682434779`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735850132481*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"ff44f6f8-5345-41b1-80c0-f38382252c89"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.8125`", ",", "1.771875`", ",", RowBox[{"-", "0.0016657486355376727`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358509227057`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"3b708483-c7f1-4a09-92d3-4f08ff2fa83b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.73125`", ",", "1.771875`", ",", "1.7515625`", ",", "0.0029660984547127955`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573585168985*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"734adb67-5420-4d00-8a09-f6cd3683736e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7515625`", ",", "1.771875`", ",", "1.76171875`", ",", "0.000634563897438406`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358524294863`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a6317fb6-2b87-4037-982e-93ff17de2727"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.76171875`", ",", "1.771875`", ",", "1.766796875`", ",", RowBox[{"-", "0.0005193897723893698`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735853163135*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a69b9cab-3fc7-4f1b-98cf-c5d554102d4f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.76171875`", ",", "1.766796875`", ",", "1.7642578125`", ",", "0.0000564929620300858`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735853883563*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"cfb6f5ba-a913-4023-a1e4-3aa2b1e11237"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7642578125`", ",", "1.766796875`", ",", "1.76552734375`", ",", RowBox[{"-", "0.00023173944728263618`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358546156473`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"498eb9fc-6d00-4f4b-8002-75a517d2d7aa"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.024207506604838586`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358565312357`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"8cb2c60b-231f-4c4f-b79d-f4f051ee221f"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.046320674895476`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735857174369*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"e338cc8d-e901-4afe-b5eb-b6a4517535d5"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.014653459225876256`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735857802701*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f4cbc664-916c-41fe-a53c-473f374a3eb5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.8125`", ",", "1.73125`", ",", "0.003677200258116936`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735858444641*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"4c15d14f-4aba-45f9-b9fb-5dd3e4be9f92"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.8125`", ",", "1.771875`", ",", RowBox[{"-", "0.005779226402610027`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573585909059*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"6c9d0b5f-f47f-4be4-93f0-3bec1cf66fbf"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.771875`", ",", "1.7515625`", ",", RowBox[{"-", "0.0011142853503453842`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573585973146*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0efb13f4-0ce4-45ec-a100-d23d57351671"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.73125`", ",", "1.7515625`", ",", "1.7414062499999998`", ",", "0.0012653789059554194`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735860385109*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a586e134-955f-4391-8c82-df56af5691d5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7414062499999998`", ",", "1.7515625`", ",", "1.7464843749999999`", ",", "0.00007151312929556952`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735861026387*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"73a9484d-3054-4067-83c5-1b8b16d8f1c8"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7464843749999999`", ",", "1.7515625`", ",", "1.7490234375`", ",", RowBox[{"-", "0.0005223212393004467`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735861665201*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5fd7f7c9-2203-459c-82aa-925a6b992278"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7464843749999999`", ",", "1.7490234375`", ",", "1.7477539062499998`", ",", RowBox[{"-", "0.00022567241258905635`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735862335906*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"353ad350-065d-44fb-ac60-12a7c10c76d0"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.021494450632275702`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735864086446*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"d16376b2-e08f-4534-b5f3-a7e2dcb31571"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.04952696244157425`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735864646679*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5293688f-951e-4556-9eba-dae944253bba"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.017674588987064907`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573586520883*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"dbf407f8-cf25-47bc-a673-da995ecac56e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.8125`", ",", "1.73125`", ",", "0.0008555255967474945`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358657942*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"450a4739-ad73-4f9a-98bd-7f9dfb463eeb"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.8125`", ",", "1.771875`", ",", RowBox[{"-", "0.008653624771115753`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358663638077`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a8242c36-f0b6-4f2c-ac25-e7e9c86ae1ba"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.771875`", ",", "1.7515625`", ",", RowBox[{"-", "0.003962433250701253`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735866955131*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"df09cb41-5edb-4bd9-9e1a-f81d9ce8ef41"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.7515625`", ",", "1.7414062499999998`", ",", RowBox[{"-", "0.0015695248527387712`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735867542983*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"28f19d33-21c4-4e9b-afa3-5be8965cab6c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.73125`", ",", "1.7414062499999998`", ",", "1.736328125`", ",", RowBox[{"-", "0.0003611283278819738`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735868132012*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"2c94c390-f1d5-4e82-bd72-bf153df6c2ff"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.73125`", ",", "1.736328125`", ",", "1.7337890625`", ",", "0.00024616631574703174`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358687139397`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0f12c030-e24f-40a0-854c-ac2a32a4dc78"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7337890625`", ",", "1.736328125`", ",", "1.73505859375`", ",", RowBox[{"-", "0.00005778856771009033`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358693021107`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"ddede2fc-afe0-462f-a0e1-35fd6283d841"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.019404189361793972`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735870819695*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"ce7991ea-6131-49de-8db8-61121a67f72b"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.05194031740884891`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735871332217*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c2285653-2d54-4a80-b98c-189197c2c0cf"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.019918011508510462`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358718508167`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"de786fb0-70b7-4694-8c48-b4f4a05d1093"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.8125`", ",", "1.73125`", ",", RowBox[{"-", "0.001312920381655383`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735872353446*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5b7ac3bf-51e3-43a9-a7ca-ea0f81a6b64a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.73125`", ",", "1.6906249999999998`", ",", "0.008761094810927766`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735872859157*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"61c88c35-493b-490a-9510-42979afcb442"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6906249999999998`", ",", "1.73125`", ",", "1.7109375`", ",", "0.003655561312823047`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358733756104`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"02447e14-6c49-49a3-8a80-c5463e9fa76a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7109375`", ",", "1.73125`", ",", "1.72109375`", ",", "0.0011544985202434355`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735873886656*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"67acc7e6-2696-4b66-ab77-7ac6e5680b07"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.72109375`", ",", "1.73125`", ",", "1.726171875`", ",", RowBox[{"-", "0.00008346007477680328`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358743896008`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5da6afd7-edc2-4d19-953c-a94067c332ad"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.72109375`", ",", "1.726171875`", ",", "1.7236328125`", ",", "0.0005345638329952301`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735874911701*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"75cceca3-0100-48da-87c0-20ab5ed185f0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7236328125`", ",", "1.726171875`", ",", "1.72490234375`", ",", "0.0002252805866661406`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735875431402*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"e815b09e-d449-470a-b13d-0c55de558768"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.016433795844847804`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735876601824*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"431dc75c-1355-49f1-811c-4c998210ec6e"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.05528833659606813`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735877035152*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"8889ca49-0c00-4779-818b-c7ae3a4af619"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.023084612329307024`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358774696703`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"49a840c4-b656-48d1-8042-6ac72381619e"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.8125`", ",", "1.73125`", ",", RowBox[{"-", "0.004377521249944588`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735877901544*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5d57e66c-ecb2-4e8f-9500-c3cd721acb7b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.73125`", ",", "1.6906249999999998`", ",", "0.0057358057371282994`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358783254557`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c6640178-493b-46af-a984-d7dffd8c0b73"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6906249999999998`", ",", "1.73125`", ",", "1.7109375`", ",", "0.0006034858620321409`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573587874465*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"5634c2b2-2827-4fcd-92fa-89f60f087713"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7109375`", ",", "1.73125`", ",", "1.72109375`", ",", RowBox[{"-", "0.0018969591614941411`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358791664124`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"46a5388d-2d52-4749-9443-a9b3367a5f2c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7109375`", ",", "1.72109375`", ",", "1.716015625`", ",", RowBox[{"-", "0.000644133638243366`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735879614156*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0367e59e-9ab3-4899-ab14-4e6914f736a7"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.7109375`", ",", "1.716015625`", ",", "1.7134765625`", ",", RowBox[{"-", "0.00002830989469593259`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735880039764*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"817f10c5-b348-431d-8bdf-c347f9ecaa64"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.7109375`", ",", "1.7134765625`", ",", "1.71220703125`", ",", "0.0002873561424693999`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573588047754*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"1e7e1966-2d5f-4ea5-83cf-839e72eb884e"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.013044414360354403`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735881471526*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"2add0a3c-b356-415b-ba16-2f87e8146035"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.05914302414961792`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735881822072*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"e6a5849b-7910-495b-8e53-0e2392b783fa"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.0267327121940674`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735882162239*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"76fa3268-edbb-443a-b90d-ae22d0dddf35"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.8125`", ",", "1.73125`", ",", RowBox[{"-", "0.00790512052571761`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358825018997`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"3c591d9c-95b3-43e6-965a-7a71da3f61eb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.73125`", ",", "1.6906249999999998`", ",", "0.002283668162821953`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735882842506*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"0c65e464-4c2e-4e57-a78f-45d889343ac0"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.6906249999999998`", ",", "1.73125`", ",", "1.7109375`", ",", RowBox[{"-", "0.0028795574706300675`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735883182741*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f4cf9871-cc41-4a63-95ba-f937c014b664"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.6906249999999998`", ",", "1.7109375`", ",", "1.70078125`", ",", RowBox[{"-", "0.0003154394556783291`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.81573588357437*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"431f9db9-44c7-4378-971d-839ecb50828a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6906249999999998`", ",", "1.70078125`", ",", "1.6957031249999999`", ",", "0.0009795780300518864`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358839251127`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"73e4ad8b-92c9-4c5b-9564-1340eb780fe3"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6957031249999999`", ",", "1.70078125`", ",", "1.6982421875`", ",", "0.0003312331134178309`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735884272018*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"01c54d90-4a0f-4da3-a9c8-da0d240461da"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6982421875`", ",", "1.70078125`", ",", "1.69951171875`", ",", "7.440326602339842`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735884621069*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"e3d6e8be-d736-4075-9cb4-202736d41889"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2.3`", ",", "1.65`", ",", "0.011970850841921454`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735885456524*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"a6944570-c6c7-4508-858a-798b727dc9ea"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "2.3`", ",", "1.9749999999999999`", ",", RowBox[{"-", "0.15213752771572156`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735885728939*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"056e6802-72e7-45ab-b6a2-f37edb955673"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.9749999999999999`", ",", "1.8125`", ",", RowBox[{"-", "0.027881083388574555`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358859981403`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"b0d1151c-9f16-4625-aa09-3e7c6d954359"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.65`", ",", "1.8125`", ",", "1.73125`", ",", RowBox[{"-", "0.009016812377378988`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735886261896*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"6e9744d7-b325-4da2-93d7-9db8bbb434a7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.65`", ",", "1.73125`", ",", "1.6906249999999998`", ",", "0.00119103045155515`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735886538904*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"7f0b510f-cc86-4d80-be4c-56271b02dd7a"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.6906249999999998`", ",", "1.73125`", ",", "1.7109375`", ",", RowBox[{"-", "0.003981785282365535`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.8157358868094387`*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"7151c896-6841-4e05-a749-b808a4a2398c"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.6906249999999998`", ",", "1.7109375`", ",", "1.70078125`", ",", RowBox[{"-", "0.0014129093816418609`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735887080675*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"f40cba10-eeb1-4398-bd37-12a530719477"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6906249999999998`", ",", "1.70078125`", ",", "1.6957031249999999`", ",", RowBox[{"-", "0.00011532065341741948`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735887350131*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"58f37c48-8809-4d50-a952-64fd19fa266f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6906249999999998`", ",", "1.6957031249999999`", ",", "1.6931640624999997`", ",", "0.0005367140845597557`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735887625279*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"78177c94-3f63-42ad-8c58-10ee23c670a4"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.6931640624999997`", ",", "1.6957031249999999`", ",", "1.69443359375`", ",", "0.00021039465008880487`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.815735887903078*^9}, CellLabel-> "During evaluation of \ In[44]:=",ExpressionUUID->"c7387b4b-2b91-41f2-86ec-2b6229f951f1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["ESSres"], "Input", CellChangeTimes->{{3.805792570055151*^9, 3.805792570809909*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"02ec1b57-aae5-40c7-99ae-8e88b806cbe0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.035302734375`", ",", "2.025146484375`", ",", "1.993408203125`", ",", "1.957861328125`", ",", "1.9235839843749996`", ",", "1.891845703125`", ",", "1.830908203125`", ",", "1.790283203125`", ",", "1.764892578125`", ",", "1.7471191406249997`", ",", "1.7344238281250002`", ",", "1.7255371093749998`", ",", "1.7128417968749998`", ",", "1.7001464843749998`", ",", "1.695068359375`"}], "}"}]], "Output", CellChangeTimes->{3.805792571412582*^9, 3.805794338281502*^9, 3.805798021821127*^9, 3.8058026069548388`*^9, 3.805804213948818*^9, 3.8058918259408693`*^9, 3.815735887976254*^9}, CellLabel->"Out[46]=",ExpressionUUID->"5f89e72b-1c4d-4eaf-b726-460144fdb33f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"1.5", ",", "2.1"}], "}"}]}], ",", RowBox[{"Epilog", "->", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "zlim"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "zlim"}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.805792795458452*^9, 3.8057928696992607`*^9}, { 3.8057944048645887`*^9, 3.805794405579506*^9}, {3.80579449738241*^9, 3.805794556047126*^9}, {3.80579470157504*^9, 3.8057947147558727`*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"49e5dcb0-826a-45e6-b69b-7a0bb57d82c4"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 2.035302734375}, {2., 2.025146484375}, {4., 1.993408203125}, {6., 1.957861328125}, {8., 1.9235839843749996`}, {10., 1.891845703125}, {15., 1.830908203125}, {20., 1.790283203125}, {25., 1.764892578125}, {30., 1.7471191406249997`}, {35., 1.7344238281250002`}, {40., 1.7255371093749998`}, {50., 1.7128417968749998`}, {70., 1.7001464843749998`}, {80., 1.695068359375}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 1.5}, DisplayFunction->Identity, Epilog->{ GrayLevel[0.5], Dashing[{Small, Small}], LineBox[{{0, 1.666666666666667}, {80, 1.666666666666667}}]}, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 80.}, {1.5, 2.1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8057928103931503`*^9, 3.8057928702654877`*^9}, 3.805794345720708*^9, 3.80579440625991*^9, 3.805794556721592*^9, 3.805794728256727*^9, 3.805798021873831*^9, 3.805802609349473*^9, 3.8058042180025177`*^9, 3.8058918276504793`*^9, 3.815735887996491*^9}, CellLabel->"Out[47]=",ExpressionUUID->"67956f31-8f44-4c7d-9e04-ebcf35a730fb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dat", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}]}]], "Input", CellLabel->"In[48]:=",ExpressionUUID->"b0ce355d-0663-4026-b082-fdf4f0653d63"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2.035302734375`"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2.025146484375`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1.993408203125`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1.957861328125`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1.9235839843749996`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1.891845703125`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "1.830908203125`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "1.790283203125`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "1.764892578125`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "1.7471191406249997`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "1.7344238281250002`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "1.7255371093749998`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "1.7128417968749998`"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "1.7001464843749998`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "1.695068359375`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.805798021886361*^9, 3.805802614928673*^9, 3.805804221064156*^9, 3.805891836523778*^9, 3.8157358880033617`*^9}, CellLabel->"Out[48]=",ExpressionUUID->"8ddd4c79-838b-4410-9722-9aba0540cf06"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "}"}], ",", "dat"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.805797516002461*^9, 3.805797519844634*^9}, { 3.80580223882668*^9, 3.8058022400644073`*^9}, {3.805891747534813*^9, 3.805891748594961*^9}, 3.815735330901911*^9}, CellLabel->"In[49]:=",ExpressionUUID->"b3aede65-0aee-4f16-9d08-3f830359e3e2"], Cell[BoxData["\<\"evolution-rv-r4-bisect-selgrad-simus.dat\"\>"], "Output", CellChangeTimes->{3.805798021924312*^9, 3.8058026164975567`*^9, 3.80580422192351*^9, 3.8058918392113113`*^9, 3.8157358880094013`*^9}, CellLabel->"Out[49]=",ExpressionUUID->"87ec067f-16af-4ffd-abfc-76d6182bf842"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Figure 5 : Evolutionarily stable virulence according to p and T : RV method \ (anti-growth vaccine)\ \>", "Section", CellChangeTimes->{{3.782210866562813*^9, 3.7822108677231703`*^9}, 3.782214865302174*^9, 3.782221352034561*^9, {3.7827522172384157`*^9, 3.782752219192133*^9}, {3.815735696446866*^9, 3.815735698958538*^9}},ExpressionUUID->"c54502aa-ddea-40f4-98b6-\ 863b72cbd467"], Cell["\<\ The goal of this section is to calculate the selection gradient under weak \ selection using the analytical formula derived in the supplementary online \ material.\ \>", "Text", CellChangeTimes->{{3.8057898388592777`*^9, 3.805789840721627*^9}, 3.815735711574849*^9},ExpressionUUID->"ff5fdc69-5909-454c-ab49-\ 7347db14ad2c"], Cell[CellGroupData[{ Cell["General set-up", "Subsubsection", CellChangeTimes->{{3.7827522098485126`*^9, 3.782752214454311*^9}},ExpressionUUID->"208cf222-cc0a-42a8-851f-\ 655736adfe32"], Cell["Set up resident system for densities", "Text", CellChangeTimes->{{3.7827287429988728`*^9, 3.7827287486628017`*^9}, { 3.782728788638564*^9, 3.7827287900461597`*^9}},ExpressionUUID->"21e2c12d-6a24-406f-a6a2-\ f4005dbbe57f"], Cell[BoxData[{ RowBox[{ RowBox[{"sysf", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Nu]", "[", "t", "]"}]}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "T"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{"b", " ", RowBox[{"\[Nu]", "[", "t", "]"}]}], "-", RowBox[{"d", " ", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "'"}], "[", "t", "]"}], "==", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "T"], "'"}], "[", "t", "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "T"], RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}], ")"}], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}], RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}]}]}]}], "}"}]}], ";", RowBox[{"matf", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "T"], SubscriptBox["\[Beta]", "U"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["\[Sigma]", "T"], SubscriptBox["\[Beta]", "T"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], "-", RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}]}]}], "}"}]}], "}"}]}], ";", RowBox[{"basepars", ":=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], "\[Rule]", RowBox[{"\[Beta]", "[", "z", "]"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "T"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "3"]}], ")"}], RowBox[{"\[Beta]", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], "z"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Beta]", "[", "z_", "]"}], "\[Rule]", RowBox[{"5", " ", RowBox[{"z", "/", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}]}]}], ",", RowBox[{"d", "\[Rule]", "1"}], ",", RowBox[{ SubscriptBox["\[Alpha]", "U"], "\[Rule]", "z"}], ",", RowBox[{ SubscriptBox["\[Alpha]", "T"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "4"]}], ")"}], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], SubscriptBox["\[Alpha]", "U"]}]}], ",", RowBox[{ SubscriptBox["\[Sigma]", "T"], "\[Rule]", RowBox[{"1", "-", SubscriptBox["r", "1"]}]}], ",", RowBox[{"b", "\[Rule]", "2"}], ",", RowBox[{ SubscriptBox["\[Nu]", "min"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["\[Nu]", "max"], "\[Rule]", "1"}], ",", RowBox[{"p", "\[Rule]", "0.8"}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"varsf", "=", RowBox[{"{", RowBox[{ SubscriptBox["S", "U"], ",", SubscriptBox["S", "T"], ",", SubscriptBox["J", "U"], ",", SubscriptBox["J", "T"]}], "}"}]}], ";", RowBox[{"tend", "=", "500"}], ";", RowBox[{"initf", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "0", "]"}], "\[Equal]", "0.1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysf", "=", RowBox[{"Join", "[", RowBox[{"sysf", ",", "initf"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.763715256786396*^9, 3.763715562964344*^9}, { 3.763716124080658*^9, 3.763716124541383*^9}, {3.763716895065646*^9, 3.7637169018947783`*^9}, {3.76378471074289*^9, 3.763784737027555*^9}, { 3.782210269662024*^9, 3.7822104332864943`*^9}, {3.78254834584683*^9, 3.782548347298911*^9}, {3.782556301127675*^9, 3.7825563181481047`*^9}, 3.782728737343611*^9, {3.782728774764187*^9, 3.782728778879568*^9}, 3.782729930272236*^9, {3.782730730962742*^9, 3.782730737377474*^9}, { 3.782750105326797*^9, 3.78275010567038*^9}, {3.7827502767078943`*^9, 3.78275028221983*^9}, {3.782751815056843*^9, 3.782751830847279*^9}, { 3.7828178920627947`*^9, 3.7828179328299828`*^9}, {3.782818590025576*^9, 3.782818604141765*^9}, 3.783145997311401*^9, {3.783146185917459*^9, 3.7831462131975527`*^9}, {3.78314815027827*^9, 3.783148171590719*^9}, { 3.783490383002679*^9, 3.7834903893735323`*^9}, {3.783490448264286*^9, 3.783490451403294*^9}, {3.783490487207966*^9, 3.783490487669415*^9}, { 3.78349132146424*^9, 3.783491330788951*^9}, {3.805790976367579*^9, 3.805790976817987*^9}, {3.805791110489079*^9, 3.80579111348114*^9}, { 3.805793002010655*^9, 3.805793003312339*^9}, {3.805793136610609*^9, 3.805793148605031*^9}, {3.805793212570363*^9, 3.805793212939307*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"2554318b-7044-49ba-af0c-ce6d7ff25781"], Cell["Set up resident system for RVs", "Text", CellChangeTimes->{{3.782728781654657*^9, 3.782728786374425*^9}},ExpressionUUID->"fd7deb34-3010-45a3-9782-\ d9ea84986249"], Cell[BoxData[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", "matf", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], "}"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sysv", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "'"}], "[", "t", "]"}]}], "}"}], "==", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Transpose", "[", "matf", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}], "+", RowBox[{ RowBox[{"r", "[", "t", "]"}], " ", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"varsv", "=", RowBox[{"{", RowBox[{ SubscriptBox["v", "U"], ",", SubscriptBox["v", "T"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"finalv", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "tend", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "[", "tend", "]"}], "\[Equal]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysv", "=", RowBox[{"Join", "[", RowBox[{"sysv", ",", "finalv"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.782728822040114*^9, 3.782728829282227*^9}, 3.782729934937859*^9, {3.7827307471861973`*^9, 3.782730749192699*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"7222441a-e721-48ec-8bb6-f829be2ffb90"], Cell["Define functions for integration", "Text", CellChangeTimes->{{3.782728839438982*^9, 3.7827288432547693`*^9}},ExpressionUUID->"59e2d61e-ef9d-43fb-ba5f-\ 62f538a0b76a"], Cell[BoxData[ RowBox[{ RowBox[{"IntegrateResidentDens", "[", "zres_", "]"}], ":=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{"fullsysf", "//.", "pars"}], "/.", RowBox[{"z", "\[Rule]", "zres"}]}], ",", "varsf", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tend"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.763715787500193*^9, 3.7637158165990887`*^9}, { 3.763715879649042*^9, 3.763715886213044*^9}, {3.7637159205617332`*^9, 3.763715949247744*^9}, {3.763784903409876*^9, 3.763784912498193*^9}, { 3.763874610326062*^9, 3.763874638180828*^9}, {3.7638746864872437`*^9, 3.7638746868779297`*^9}, {3.782210675907648*^9, 3.782210676062872*^9}, { 3.782550387922647*^9, 3.782550390110454*^9}, {3.782550640856113*^9, 3.7825506409991083`*^9}, {3.7827288490782757`*^9, 3.782728880279551*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"c7c72b46-fe00-4373-9329-f320b850c693"], Cell[BoxData[ RowBox[{ RowBox[{"IntegrateResidentRV", "[", RowBox[{"zres_", ",", "soldens_"}], "]"}], ":=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"fullsysv", "/.", RowBox[{"soldens", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//.", "pars"}], "/.", RowBox[{"z", "\[Rule]", "zres"}]}], ",", "varsv", ",", RowBox[{"{", RowBox[{"t", ",", "tend", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.782728363981552*^9, 3.782728418415028*^9}, { 3.782728885678653*^9, 3.7827289303675632`*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"001800ee-ece6-4177-9df5-d84fa3a05397"], Cell["Set up mutant system", "Text", CellChangeTimes->{{3.782728951958708*^9, 3.7827289612466516`*^9}},ExpressionUUID->"fb963374-1f65-4487-919c-\ d8bf3bffe973"], Cell[BoxData[{ RowBox[{ RowBox[{"tinv", "=", "400"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"matfm", "[", "t", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "d"}], "-", SubscriptBox["\[Alpha]", "Um"], "+", RowBox[{ SubscriptBox["\[Beta]", "Um"], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "Tm"], " ", RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "Um"], " ", SubscriptBox["\[Sigma]", "T"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "d"}], "-", SubscriptBox["\[Alpha]", "Tm"], "+", RowBox[{ SubscriptBox["\[Beta]", "Tm"], SubscriptBox["\[Sigma]", "T"], RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}]}]}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"parsm", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "Um"], "\[Rule]", RowBox[{"\[Beta]", "[", "zm", "]"}]}], ",", RowBox[{ SubscriptBox["\[Beta]", "Tm"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "3"]}], ")"}], RowBox[{"\[Beta]", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], "zm"}], "]"}]}]}], ",", RowBox[{ SubscriptBox["\[Alpha]", "Um"], "\[Rule]", "zm"}], ",", RowBox[{ SubscriptBox["\[Alpha]", "Tm"], "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "4"]}], ")"}], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["r", "2"]}], ")"}], SubscriptBox["\[Alpha]", "Um"]}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.782210892110941*^9, 3.782210979627592*^9}, { 3.782211375985991*^9, 3.782211386291944*^9}, {3.782728340936467*^9, 3.7827283571604156`*^9}, {3.782729016072158*^9, 3.782729098518826*^9}, { 3.782729160361245*^9, 3.782729184343643*^9}, {3.782729820400219*^9, 3.782729857520968*^9}, 3.7827299432407503`*^9, {3.7827302716974077`*^9, 3.782730279544629*^9}, {3.7827307588182507`*^9, 3.78273076064155*^9}, { 3.7827312786831617`*^9, 3.7827312932557907`*^9}, {3.78282347318635*^9, 3.782823483863686*^9}, {3.783148181709778*^9, 3.7831481829012413`*^9}, 3.805791947099107*^9, {3.80579321504265*^9, 3.8057932176149807`*^9}, { 3.815735718635035*^9, 3.815735725781682*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"55872498-f586-435a-a841-24d8bd0be513"], Cell["Calculate selection gradient using two methods", "Text", CellChangeTimes->{{3.7822123959877*^9, 3.782212400628338*^9}, { 3.782729706367132*^9, 3.7827297102787247`*^9}},ExpressionUUID->"9057b8d4-ebc8-4249-b80d-\ 333278f6b4f4"], Cell[BoxData[ RowBox[{ RowBox[{"CalculateSelgrad", "[", RowBox[{"zmut_", ",", "zres_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"solrv", ",", "soldens", ",", "\[Rho]"}], "}"}], ",", RowBox[{ RowBox[{"soldens", "=", RowBox[{"IntegrateResidentDens", "[", "zres", "]"}]}], ";", RowBox[{"solrv", "=", RowBox[{"IntegrateResidentRV", "[", RowBox[{"zres", ",", "soldens"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"\[Epsilon]", RowBox[{"(", RowBox[{"\[Omega]", " ", "/.", "pars"}], ")"}], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}], ".", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"matfm", "[", "t", "]"}], "//.", "parsm"}], "//.", "pars"}], ",", "zm"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], "}"}]}], "/.", RowBox[{"soldens", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"solrv", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/.", RowBox[{"z", "\[Rule]", "zres"}]}], "/.", RowBox[{"zm", "\[Rule]", "zres"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "tinv", ",", RowBox[{ RowBox[{"tinv", "+", RowBox[{"1", "/", "\[Omega]"}]}], "/.", "pars"}]}], "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"\"\\"", "\[Rule]", "0"}]}], "}"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"zres", ",", "zmut", ",", "\[Rho]"}], "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.782729210017684*^9, 3.782729231079681*^9}, { 3.782729399823344*^9, 3.782729648536706*^9}, {3.782729693104312*^9, 3.782729809281397*^9}, {3.7827299902860527`*^9, 3.782730099114317*^9}, { 3.782730222625519*^9, 3.782730225218828*^9}, {3.782730302903625*^9, 3.78273030687927*^9}, {3.782730517851149*^9, 3.782730519903632*^9}, { 3.782730638403831*^9, 3.782730639130007*^9}, {3.782730779587429*^9, 3.782730797560648*^9}, {3.782730869531095*^9, 3.7827308773148212`*^9}, { 3.7827313533721437`*^9, 3.782731361809334*^9}, {3.782731432683578*^9, 3.782731441283484*^9}, {3.782731749299459*^9, 3.782731751738371*^9}, { 3.782731806636086*^9, 3.7827318069940977`*^9}, {3.783605762966085*^9, 3.7836057785422707`*^9}, {3.7836058525904827`*^9, 3.78360585281065*^9}, { 3.815735729436267*^9, 3.8157357662327557`*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"a5f7526e-3495-465f-a527-e1e9aa03c223"] }, Open ]], Cell[CellGroupData[{ Cell["Calculation using eqn S11 + Bisection method", "Subsubsection", CellChangeTimes->{{3.782751859822446*^9, 3.782751865820404*^9}, { 3.782752045037979*^9, 3.782752045522992*^9}, {3.8057993147263823`*^9, 3.805799340146462*^9}, {3.805802676357815*^9, 3.805802680279662*^9}, { 3.805934726799214*^9, 3.805934727635851*^9}, {3.815736015049416*^9, 3.815736021948492*^9}},ExpressionUUID->"e9c32686-91eb-4a41-b03c-\ 036a4eba9195"], Cell["\<\ Calculate selection gradient using eqn (S .11) in the supplementary material.\ \ \>", "Text", CellChangeTimes->{{3.815735796574144*^9, 3.815735798345364*^9}},ExpressionUUID->"787ae457-4e8c-4d9e-8633-\ 5356df5908a2"], Cell[BoxData[ RowBox[{ RowBox[{"CalculateSelgrad", "[", RowBox[{"zmut_", ",", "zres_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"solrv", ",", "soldens", ",", "\[Rho]"}], "}"}], ",", RowBox[{ RowBox[{"soldens", "=", RowBox[{"IntegrateResidentDens", "[", "zres", "]"}]}], ";", RowBox[{"solrv", "=", RowBox[{"IntegrateResidentRV", "[", RowBox[{"zres", ",", "soldens"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", RowBox[{"\[Epsilon]", RowBox[{"(", RowBox[{"\[Omega]", " ", "/.", "pars"}], ")"}], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}], ".", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"matfm", "[", "t", "]"}], "//.", "parsm"}], "//.", "pars"}], ",", "zm"}], "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], "}"}]}], "/.", RowBox[{"soldens", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"solrv", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "/.", RowBox[{"z", "\[Rule]", "zres"}]}], "/.", RowBox[{"zm", "\[Rule]", "zres"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "tinv", ",", RowBox[{ RowBox[{"tinv", "+", RowBox[{"1", "/", "\[Omega]"}]}], "/.", "pars"}]}], "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"\"\\"", "\[Rule]", "0"}]}], "}"}]}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Return", "[", RowBox[{"{", RowBox[{"zres", ",", "zmut", ",", "\[Rho]"}], "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.782729210017684*^9, 3.782729231079681*^9}, { 3.782729399823344*^9, 3.782729648536706*^9}, {3.782729693104312*^9, 3.782729809281397*^9}, {3.7827299902860527`*^9, 3.782730099114317*^9}, { 3.782730222625519*^9, 3.782730225218828*^9}, {3.782730302903625*^9, 3.78273030687927*^9}, {3.782730517851149*^9, 3.782730519903632*^9}, { 3.782730638403831*^9, 3.782730639130007*^9}, {3.782730779587429*^9, 3.782730797560648*^9}, {3.782730869531095*^9, 3.7827308773148212`*^9}, { 3.7827313533721437`*^9, 3.782731361809334*^9}, {3.782731432683578*^9, 3.782731441283484*^9}, {3.782731749299459*^9, 3.782731751738371*^9}, { 3.782731806636086*^9, 3.7827318069940977`*^9}, {3.783605762966085*^9, 3.7836057785422707`*^9}, {3.7836058525904827`*^9, 3.78360585281065*^9}, { 3.815735729436267*^9, 3.8157357662327557`*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"6dec8ced-2622-4226-a727-5710e0352efb"], Cell[BoxData[{ RowBox[{ RowBox[{"vaccpars", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", "1"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "2"], "\[Rule]", "0.8"}], ",", RowBox[{ SubscriptBox["r", "3"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "4"], "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]", "=", "0.0001"}], ";"}]}], "Input", CellChangeTimes->{{3.782751870374545*^9, 3.782751876375462*^9}, { 3.782751913525055*^9, 3.7827519255774527`*^9}, 3.7828176187869883`*^9, 3.782817772932867*^9, {3.782817993949123*^9, 3.782817999739758*^9}, { 3.783491426889502*^9, 3.7834914279279013`*^9}, {3.805791008665867*^9, 3.8057910209217367`*^9}, {3.80579108295021*^9, 3.805791093377673*^9}, { 3.8058041091447153`*^9, 3.805804111443717*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"018fe90c-aafc-471e-9ff3-f24167775b01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"\[Tau]val_", ",", "zainit_", ",", "zbinit_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zESS"}], "}"}], ",", RowBox[{ RowBox[{"perpars", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Omega]", "\[Rule]", RowBox[{"1", "/", "\[Tau]val"}]}], ",", RowBox[{"\[Tau]", "\[Rule]", "\[Tau]val"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pars", "=", RowBox[{"Join", "[", RowBox[{"basepars", ",", "perpars", ",", "vaccpars"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"za", "=", "zainit"}], ";", RowBox[{"zb", "=", "zbinit"}], ";", "\[IndentingNewLine]", RowBox[{"results", "=", RowBox[{"CalculateSelgrad", "[", RowBox[{ RowBox[{"za", "+", "\[Epsilon]"}], ",", "za"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhoa", "=", RowBox[{"results", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"results", "=", RowBox[{"CalculateSelgrad", "[", RowBox[{ RowBox[{"zb", "+", "\[Epsilon]"}], ",", "zb"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhob", "=", RowBox[{"results", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"niter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"niter", "<", "100"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zc", "=", RowBox[{ RowBox[{"(", RowBox[{"za", "+", "zb"}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"zb", "-", "za"}], ")"}], "/", "2"}], ">", "0.001"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"niter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"results", "=", RowBox[{"CalculateSelgrad", "[", RowBox[{ RowBox[{"zc", "+", "\[Epsilon]"}], ",", "zc"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhoc", "=", RowBox[{"results", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zc", ",", "rhoc"}], "}"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", "rhoc", "]"}], "\[Equal]", RowBox[{"Sign", "[", "rhoa", "]"}]}], ",", RowBox[{"za", "=", "zc"}], ",", RowBox[{"zb", "=", "zc"}]}], "]"}]}], ",", RowBox[{"niter", "=", "100"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"zESS", "=", "zc"}], ";", RowBox[{"Return", "[", "zESS", "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7827301276917763`*^9, 3.782730253536025*^9}, { 3.782730327143387*^9, 3.782730328318729*^9}, {3.7827309625457993`*^9, 3.782730968872819*^9}, {3.782731308024325*^9, 3.782731309204022*^9}, { 3.78273205232051*^9, 3.782732075856773*^9}, {3.782732110446437*^9, 3.7827321105855227`*^9}, {3.7827322518308783`*^9, 3.78273229060892*^9}, { 3.782750326507348*^9, 3.7827503275325403`*^9}, {3.782751888349661*^9, 3.782751905314535*^9}, {3.7831463202064962`*^9, 3.783146337243705*^9}, { 3.783148282262253*^9, 3.783148286341049*^9}, {3.783148327169224*^9, 3.783148358445261*^9}, {3.80579107461281*^9, 3.8057911020817747`*^9}, { 3.805791140341983*^9, 3.80579124638273*^9}, {3.805791290808879*^9, 3.805791296814315*^9}, {3.8057913603958597`*^9, 3.805791394089918*^9}, { 3.80579149456649*^9, 3.805791502667747*^9}, {3.8057916169128942`*^9, 3.805791685998014*^9}, {3.8057917358577147`*^9, 3.805791787154359*^9}, { 3.8057918441455183`*^9, 3.805791844851437*^9}, 3.805791956360057*^9, { 3.805792029699247*^9, 3.805792038053144*^9}, {3.805793552335343*^9, 3.805793598340785*^9}, {3.805793690357936*^9, 3.805793696937049*^9}, { 3.805793730905829*^9, 3.8057937326746883`*^9}, {3.805799481841482*^9, 3.8057998079296103`*^9}, {3.805799860865123*^9, 3.805799898494585*^9}, { 3.805799960997964*^9, 3.805799992599689*^9}, {3.805800092297658*^9, 3.805800092683652*^9}, {3.805800136338183*^9, 3.805800190963431*^9}, { 3.805800246322219*^9, 3.805800286395096*^9}, {3.805800324914175*^9, 3.805800327948124*^9}, {3.805800363888465*^9, 3.805800381248263*^9}, { 3.805801306611381*^9, 3.8058013084660063`*^9}, {3.805801553534418*^9, 3.8058015729939003`*^9}, {3.815735802707399*^9, 3.815735807463105*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"0fe80a0b-7fc1-40a6-9017-e248fa472a5e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Tau]vals", "=", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "15", ",", "20", ",", "40", ",", "80"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ESSres", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"#", ",", "2.3", ",", "4.3"}], "]"}], "&"}], "/@", "\[Tau]vals"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.805792100301477*^9, 3.805792154515383*^9}, { 3.805793619931196*^9, 3.805793674888913*^9}, 3.8057937250680313`*^9, { 3.805800550912263*^9, 3.805800552096822*^9}, {3.805801328512673*^9, 3.805801334350712*^9}, {3.8058014364492617`*^9, 3.805801490867403*^9}, { 3.805801581398324*^9, 3.805801588285334*^9}, {3.805801719974743*^9, 3.805801783574733*^9}, {3.805801844305141*^9, 3.805801880025743*^9}, { 3.805804141085767*^9, 3.805804143555882*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"244b0d17-2abb-4267-93a7-54a0737f7e87"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "4.903704458126831`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157360743158493`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"69b365a6-1023-470a-be6a-3f34f7fceaa3"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "1.637474819158671`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736081271893*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"e932da66-4b71-4e37-aaa9-9834cdefd19e"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", "3.024121429504386`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573608799015*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"c1f448cf-874e-4c23-9afe-2d9683937f0f"] }, Open ]], Cell[BoxData[ TemplateBox[{ "NIntegrate", "ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"t\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"400.80076570835945`\\\", \ \\\"}\\\"}]\\). NIntegrate obtained \\!\\(\\*RowBox[{\\\"-\\\", \ \\\"0.003062284585469971`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"3.4041118236023492`*^-9\\\"}]\\) for the integral and \ error estimates.\"", 2, 69, 5, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.805804323262165*^9, 3.815736094723969*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f1d646be-6c85-4a0a-aaa9-fe48cdadc59f"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.3`", ",", "4.175`", ",", RowBox[{"-", "3.062284585469971`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157360947331257`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"6353fad3-7530-42b8-8936-aa6d93c6b59e"], Cell[BoxData[ TemplateBox[{ "NIntegrate", "ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"t\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"400.80076570835945`\\\", \ \\\"}\\\"}]\\). NIntegrate obtained \\!\\(\\*RowBox[{\\\"-\\\", \ \\\"0.00006446686301746739`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"2.9175151165211487`*^-9\\\"}]\\) for the integral and \ error estimates.\"", 2, 69, 6, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.805804323262165*^9, 3.815736101535081*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"b129a0d6-00e1-4c23-8052-61bfc72aea01"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.175`", ",", "4.1125`", ",", RowBox[{"-", "6.446686301746739`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736101540613*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"6625f958-e5f4-4073-a71a-08660908d708"], Cell[BoxData[ TemplateBox[{ "NIntegrate", "ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"t\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"t\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"400.80076570835945`\\\", \ \\\"}\\\"}]\\). NIntegrate obtained \\!\\(\\*RowBox[{\\\"0.00146822040545843`\ \\\"}]\\) and \\!\\(\\*RowBox[{\\\"3.108767647048422`*^-9\\\"}]\\) for the \ integral and error estimates.\"", 2, 69, 7, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.805804323262165*^9, 3.815736108364991*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"e80bec69-bae0-4121-b2a0-8b02392b4107"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"", 2, 69, 8, 18976104493103857555, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.805803941676015*^9, 3.805804323262165*^9, 3.81573610837007*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"022be0c5-e3f1-4fd0-b469-e8b841a77a24"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ "4.05`", ",", "4.1125`", ",", "4.08125`", ",", "1.4682204054584302`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736108374653*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"27becb3f-70be-4003-b30e-3afc2a35c335"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.08125`", ",", "4.1125`", ",", "4.096875`", ",", "6.990109617958012`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736115106764*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"6d69e7b6-cb6f-44c7-a8c1-7f2f21c04d49"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.096875`", ",", "4.1125`", ",", "4.1046875`", ",", "3.165589794504068`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573612192528*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"a7499645-707c-4e6e-a94d-0c3e2a86388e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.1046875`", ",", "4.1125`", ",", "4.10859375`", ",", "1.2586819975278031`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157361286635942`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f9f54d7b-c9d6-4d50-8b23-d3087932f8e5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.10859375`", ",", "4.1125`", ",", "4.110546875`", ",", "3.0657061706483486`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736135538587*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"bd6e65e2-181a-49c2-b9e5-29068f44af9e"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "4.809677022818354`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736148934864*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"9893bfb5-09bf-4a64-917e-e319848bf74e"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "1.5558375325581212`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736153607834*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"977f42b5-ba76-400c-a06a-728d76ec9f33"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", "2.2848146877058997`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736158368596*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f9ad33a8-fff4-461f-9ef0-8e3a9c82d38d"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.3`", ",", "4.175`", ",", RowBox[{"-", "3.7614516716397794`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736163007119*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"89acfe84-d6ea-4186-9965-d8a314ba850e"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.175`", ",", "4.1125`", ",", RowBox[{"-", "7.836439213192909`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736167712941*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"804cd8ef-adce-4f90-ab38-b979bb691633"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.05`", ",", "4.1125`", ",", "4.08125`", ",", "7.389557995803929`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736172422605*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"fa2601cb-0554-4a0b-901f-64165f700191"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.08125`", ",", "4.1125`", ",", "4.096875`", ",", RowBox[{"-", "2.5218687819130566`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736177172401*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"240e2543-412f-4971-9742-b0aae6f0af68"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.08125`", ",", "4.096875`", ",", "4.0890625`", ",", "3.561477277826902`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736181993046*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"e0e3e0e2-deaa-4506-b9f9-4570ac26fffa"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.0890625`", ",", "4.096875`", ",", "4.09296875`", ",", "1.652851065491816`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736186690414*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"4b2ba8dd-afd6-4a48-8d77-de735a444daa"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.09296875`", ",", "4.096875`", ",", "4.094921875`", ",", "6.998716832857792`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736191367091*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"091c0974-1795-4760-8499-0bef4fada745"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "4.441062528030213`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157362009338017`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"68abb032-127a-4a7b-83fc-172fb4f0ea9d"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "1.1572582575866743`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157362041656933`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"64400269-8c30-4b74-ae07-722b6e7435a6"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", RowBox[{"-", "1.7850440754165472`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736207603313*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"5fd7c6fe-5ba0-43fa-9b6b-cf8bac310fe2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.8`", ",", "4.05`", ",", "3.925`", ",", "4.6798085791621793`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736211056306*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f53dc894-d0d5-4991-bead-29ce98390b8e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.925`", ",", "4.05`", ",", "3.9875`", ",", "1.3964396922077463`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736214398802*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"ec09d969-9856-4824-a697-07477e072b61"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.9875`", ",", "4.05`", ",", "4.01875`", ",", RowBox[{"-", "2.06740113321112`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736217633562*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f0ac25d8-e0ec-4e66-80c2-dddb88f41a0a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.9875`", ",", "4.01875`", ",", "4.003125`", ",", "5.917038620017859`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573622090976*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"e4d7fcff-1755-4a00-b39b-4cd135437791"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.003125`", ",", "4.01875`", ",", "4.0109375`", ",", "1.917002499547468`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736224227871*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"5d067951-362b-4ed6-a27c-6731061ec0d6"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.0109375`", ",", "4.01875`", ",", "4.01484375`", ",", RowBox[{"-", "7.716723845446045`*^-10"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573622751036*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"04cd3ee7-7474-4478-b903-a77dc8728d5a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.0109375`", ",", "4.01484375`", ",", "4.012890625`", ",", "9.194453964169754`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736231095764*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"90e0df00-7c39-4d05-bd5f-bfa300c5e340"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "3.5697711207184368`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736239624302*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"9d3d1a59-9f6c-43a3-9423-14ab1b6482f4"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "2.6073182538114983`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157362422493467`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"822efa72-932a-4cd8-b9e3-0c7c6e267d7a"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", RowBox[{"-", "1.0746918611380294`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736244925893*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"b93fc021-44d0-484e-994d-0919b91ab2ca"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.05`", ",", "3.925`", ",", RowBox[{"-", "4.292247751552164`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736247553052*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"42d077e6-09f7-47f2-8556-bfd5158979fe"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "3.925`", ",", "3.8625`", ",", RowBox[{"-", "9.008506561209653`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573625016492*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"29219e29-c6a3-4da7-b90b-956147f44457"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.8`", ",", "3.8625`", ",", "3.83125`", ",", "8.382714008726139`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736252796007*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"bad367e3-59b2-481c-acd8-bcb8de3b405d"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.83125`", ",", "3.8625`", ",", "3.846875`", ",", RowBox[{"-", "3.4986718480284978`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736255437496*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"2eda0e0f-584b-47d2-9f62-e48c80121a10"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.83125`", ",", "3.846875`", ",", "3.8390625`", ",", "4.0071427481956204`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736258165593*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"7eb90b84-76fc-4f09-8acc-3dfded862df0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.8390625`", ",", "3.846875`", ",", "3.84296875`", ",", "1.8263098656999197`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736261419549*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"ba1f0cc8-ace2-436c-a92a-b6bd94bcc769"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.84296875`", ",", "3.846875`", ",", "3.844921875`", ",", "7.376832484833063`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736264579714*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"b3e58287-81c5-4c52-882c-f2e54264cb28"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "2.616314344931732`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736271486925*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"c300496c-583a-492e-b828-8548411ccb16"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", RowBox[{"-", "7.067796158478325`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736273723737*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"eb616080-8d7b-41ae-b2a8-d3a2719ccbd3"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "3.8`", ",", "3.55`", ",", "8.292929318171125`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573627593496*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f71a96fd-be28-4c82-8210-1574b4e18ec6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.55`", ",", "3.8`", ",", "3.675`", ",", "3.318638537195604`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736278229776*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"17647e20-9d1c-4141-aa0a-dead7cfa6473"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.675`", ",", "3.8`", ",", "3.7375`", ",", RowBox[{"-", "3.434605414225898`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736280628902*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"4d332be7-4382-4c58-832c-e86aa4c2105d"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.675`", ",", "3.7375`", ",", "3.70625`", ",", RowBox[{"-", "1.5685182039334197`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736282910205*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"eaa08307-bc94-405b-bf34-f6c848f284af"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.675`", ",", "3.70625`", ",", "3.690625`", ",", RowBox[{"-", "6.22726871039866`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573628510848*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"b50a54a6-ac5d-4dbc-b2fb-f8922b3a6d42"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.675`", ",", "3.690625`", ",", "3.6828125`", ",", RowBox[{"-", "1.4659166420842628`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736287277205*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"184abe6d-742e-4b5d-b5ab-b344b8307c6d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.675`", ",", "3.6828125`", ",", "3.67890625`", ",", "9.243677694761399`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736289457567*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"d185b3f7-90e4-4643-83cc-146c9d953de8"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.67890625`", ",", "3.6828125`", ",", "3.680859375`", ",", RowBox[{"-", "2.7215672070672584`*^-9"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736291640956*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"9b930ae4-c79d-4a5a-bef6-22499479f7b9"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "1.6669218750476925`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736298063545*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f63fc206-a26c-4325-a9cd-effb007d0ed3"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", RowBox[{"-", "1.6951177550040499`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736300562437*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"d1428269-d78d-4824-92d5-f24fd1c50c21"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "3.8`", ",", "3.55`", ",", RowBox[{"-", "1.428726744506383`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736302958066*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"f64f9aeb-9658-46c1-9012-d0cf3e942a5a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.3`", ",", "3.55`", ",", "3.425`", ",", "7.262236177361942`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736304983684*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"426b815b-6f9d-4409-bfa2-89ff6b3395de"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.425`", ",", "3.55`", ",", "3.4875`", ",", "2.8322406049305547`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736307084282*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"54f04d8e-bb62-43db-b8ef-65e71c36273a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.4875`", ",", "3.55`", ",", "3.51875`", ",", "6.811851621176323`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736309145294*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"7ccfc3b4-82b5-4954-94d5-3b233074aa96"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.51875`", ",", "3.55`", ",", "3.534375`", ",", RowBox[{"-", "3.788441106372521`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736311112846*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"5edb8868-a74b-46ba-bb74-0833c0941f37"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.51875`", ",", "3.534375`", ",", "3.5265625`", ",", "1.498933753569243`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736313438847*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"9d7f845c-9bde-4f6e-b518-0bb435c0b2ad"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.5265625`", ",", "3.534375`", ",", "3.53046875`", ",", RowBox[{"-", "1.1479473022399679`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363158838367`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"2284e26e-33ed-43f3-8753-028db0200c34"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.5265625`", ",", "3.53046875`", ",", "3.528515625`", ",", "1.746558493401296`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736318289192*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"29f6f2c1-404e-4172-8f28-cb3a205cea3b"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "3.338757902502495`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736323110696*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"4745441a-a9ec-4224-a9be-d38544e3473d"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "4.524801611096826`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736324667931*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"d4ccedc5-3852-421a-8caa-12b3197d1cc4"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", "1.8838493351899935`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363264898357`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"5948aa41-f89a-4ef1-97de-8461d753d2d9"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.05`", ",", "3.3`", ",", "3.175`", ",", "7.283849497502413`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736328325378*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"02960555-b64a-414f-baba-cb6a9f7da899"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.175`", ",", "3.3`", ",", "3.2375`", ",", "1.862732497268663`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573633015186*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"0af1d87f-80fc-4102-8518-d9de68c8bbda"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.2375`", ",", "3.3`", ",", "3.26875`", ",", RowBox[{"-", "7.646052481211999`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736331981494*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"6d3fb45e-a902-4c68-8e25-ffa386b1880b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.2375`", ",", "3.26875`", ",", "3.253125`", ",", "5.42246280720012`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363338180017`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"a6f93975-a971-4b7e-83b0-21b45e9bc511"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.253125`", ",", "3.26875`", ",", "3.2609375`", ",", RowBox[{"-", "1.1289548496275873`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736335754134*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"2ee75989-3d96-4773-8f03-6f4025c16056"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.253125`", ",", "3.2609375`", ",", "3.25703125`", ",", "2.1425141817633943`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363375961637`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"7abe0c6e-a452-4e16-bc80-c828deb117d5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.25703125`", ",", "3.2609375`", ",", "3.258984375`", ",", "5.0673390305233655`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736339433496*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"a629ae13-fdde-4dad-8e56-de0eecd58291"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "1.6097865352040343`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736344218804*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"209265e7-6fb4-4c6c-8eac-a30ec9971bc6"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "3.376982510013658`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736345876254*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"2b8ad1cd-1b6c-4def-a9ec-67208c38c1d8"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", "6.697133708182853`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736347696767*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"009ea0c9-384b-4bf4-9115-f8a38c87d1a2"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.05`", ",", "3.3`", ",", "3.175`", ",", RowBox[{"-", "5.171465982231561`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736349564837*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"2bf9b817-f75d-4104-a0d0-765b434bfb48"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.05`", ",", "3.175`", ",", "3.1125`", ",", "6.379703829689621`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736351373843*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"d95c76e5-575b-49d0-95f0-fe886e5d0f50"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.1125`", ",", "3.175`", ",", "3.14375`", ",", RowBox[{"-", "2.2970694832502846`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736352946149*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"fab66062-0118-42cb-bbfe-eba0a391f0b6"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.1125`", ",", "3.14375`", ",", "3.128125`", ",", RowBox[{"-", "8.37193185810304`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736354428097*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"fbf46f56-8824-4d91-ac2f-59d438c31f87"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.1125`", ",", "3.128125`", ",", "3.1203125`", ",", RowBox[{"-", "1.0155046957901725`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573635599114*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"15b2223d-79ee-4dc3-ad73-9d5d5540c54a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.1125`", ",", "3.1203125`", ",", "3.11640625`", ",", "2.677156581393267`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736357520239*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"242d6b6d-5fe2-4bd7-b0af-20376c0b836d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.11640625`", ",", "3.1203125`", ",", "3.118359375`", ",", "8.29694520264471`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573635896885*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"0d382942-7096-427e-bb96-68f6ae608749"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "3.635385376988943`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736361661167*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"a4408f41-dfab-4822-8773-72c27fcbb968"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "1.5603947879816588`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736362553112*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"ddf56223-74ef-4883-9b8e-632a33228d8a"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "1.255280129003283`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736363437957*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"426fb7e6-bd78-4942-aa6f-d741cace9c4e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8`", ",", "3.05`", ",", "2.925`", ",", "9.109896620821124`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736364377553*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"ecac6557-b4f9-4d73-8fe0-8ff84b1a660e"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.925`", ",", "3.05`", ",", "2.9875`", ",", RowBox[{"-", "5.964869713534535`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736365348769*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"8b00556e-899b-4cb7-a8e2-80c9d1a1c92c"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.925`", ",", "2.9875`", ",", "2.95625`", ",", RowBox[{"-", "2.56407561595004`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736366436181*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"d5202b56-424d-4d9d-a36e-faf8bab039b8"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.925`", ",", "2.95625`", ",", "2.940625`", ",", RowBox[{"-", "8.359786894741456`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736367388253*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"85d17977-ace4-406b-b2b6-98f0ec3590f7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.925`", ",", "2.940625`", ",", "2.9328125`", ",", "3.512727137048311`*^-9"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736368339406*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"03bdedf9-efeb-49ba-b1de-3134ca2255f3"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.9328125`", ",", "2.940625`", ",", "2.93671875`", ",", RowBox[{"-", "4.0101667124320674`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363692790003`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"7a991c80-275b-48f2-bd54-959e5ca07f74"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.9328125`", ",", "2.93671875`", ",", "2.934765625`", ",", RowBox[{"-", "1.8308718601124653`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736370194242*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"1df8efc3-c143-428b-8946-820f6554e2a9"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "4.666096642351141`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.81573637169388*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"3b884d4a-762e-4a66-bca6-ebec03c8604b"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "6.373919508096784`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363722840347`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"0618c416-b5b8-4c85-95b0-d4a2c213fb05"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "2.1403313348260994`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363728796873`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"37bdeb22-0c90-4feb-a6aa-829d76218315"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.05`", ",", "2.925`", ",", RowBox[{"-", "8.603785719251153`*^-7"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736373537648*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"d29f9f84-aca7-4d82-9fbc-49583e4d9e6c"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "2.925`", ",", "2.8625`", ",", RowBox[{"-", "4.7380266522066147`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736374035303*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"45d253a5-10b0-4233-8ea5-ec7446ca77ff"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8`", ",", "2.8625`", ",", "2.83125`", ",", "2.504235719640697`*^-7"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.8157363745777597`*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"386d5b13-e652-4869-9589-a5e4885840fc"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.83125`", ",", "2.8625`", ",", "2.846875`", ",", "6.015447215058622`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736375126951*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"83c07aec-cfdc-43b1-9325-18d63d013c0e"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.846875`", ",", "2.8625`", ",", "2.8546875`", ",", RowBox[{"-", "3.4190832284576056`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736375621079*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"d4efecdc-c6b5-4821-81f2-1d6f585a7995"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.846875`", ",", "2.8546875`", ",", "2.85078125`", ",", "1.2916945937044116`*^-8"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736376195222*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"b8628152-01a1-4390-90be-8fe405c406b2"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.85078125`", ",", "2.8546875`", ",", "2.852734375`", ",", RowBox[{"-", "1.0653085606174823`*^-8"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805804316153625*^9, 3.815736376708115*^9}, CellLabel-> "During evaluation of \ In[68]:=",ExpressionUUID->"9f162a27-3725-44f6-aece-a2f83e2a86fc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["ESSres"], "Input", CellChangeTimes->{{3.805792570055151*^9, 3.805792570809909*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"6d241a72-ed11-491a-a7d9-0ca92f1b3db7"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.1115234375`", ",", "4.0958984375`", ",", "4.0138671875`", ",", "3.8458984375`", ",", "3.6798828125`", ",", "3.5294921875`", ",", "3.2599609375`", ",", "3.1193359375`", ",", "2.9337890625`", ",", "2.8517578125`"}], "}"}]], "Output", CellChangeTimes->{3.805792571412582*^9, 3.805794338281502*^9, 3.805798021821127*^9, 3.8058026069548388`*^9, 3.8058049210566483`*^9, 3.815736376731732*^9}, CellLabel->"Out[70]=",ExpressionUUID->"6bae9f75-e4a3-4d25-9082-5369741be444"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "4.3"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.805792795458452*^9, 3.8057928696992607`*^9}, { 3.8057944048645887`*^9, 3.805794405579506*^9}, {3.80579449738241*^9, 3.805794556047126*^9}, {3.80579470157504*^9, 3.8057947147558727`*^9}, { 3.805804927639155*^9, 3.8058049321568403`*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"19b0ac73-6a19-400c-9ddf-0b9b7cad6d44"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 4.1115234375}, {2., 4.0958984375}, {4., 4.0138671875}, {6., 3.8458984375}, {8., 3.6798828125}, {10., 3.5294921875}, {15., 3.2599609375}, {20., 3.1193359375}, {40., 2.9337890625}, {80., 2.8517578125}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 2.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 80.}, {2, 4.3}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8057928103931503`*^9, 3.8057928702654877`*^9}, 3.805794345720708*^9, 3.80579440625991*^9, 3.805794556721592*^9, 3.805794728256727*^9, 3.805798021873831*^9, 3.805802609349473*^9, { 3.8058049220313997`*^9, 3.805804933357679*^9}, 3.815736376751231*^9}, CellLabel->"Out[71]=",ExpressionUUID->"bbdeec6b-b7c8-43e8-8f70-1f82d9e25bf2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dat", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}]}]], "Input", CellLabel->"In[72]:=",ExpressionUUID->"fd131296-ec1b-429f-9b2c-8d0487db79e9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4.1115234375`"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4.0958984375`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4.0138671875`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3.8458984375`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "3.6798828125`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3.5294921875`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "3.2599609375`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "3.1193359375`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "2.9337890625`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "2.8517578125`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.805798021886361*^9, 3.805802614928673*^9, 3.805804941651133*^9, 3.815736376760891*^9}, CellLabel->"Out[72]=",ExpressionUUID->"84b40554-c951-416b-9e57-16237e28f2a6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "}"}], ",", "dat"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.805797516002461*^9, 3.805797519844634*^9}, { 3.80580223882668*^9, 3.8058022400644073`*^9}, {3.805804152971933*^9, 3.805804153343478*^9}, 3.815735851935091*^9}, CellLabel->"In[73]:=",ExpressionUUID->"8262bc13-73ca-4323-9f99-695d903d46b8"], Cell[BoxData["\<\"evolution-rv-r2-bisect-simus.dat\"\>"], "Output", CellChangeTimes->{3.805798021924312*^9, 3.8058026164975567`*^9, 3.8058049441363773`*^9, 3.8157363767680597`*^9}, CellLabel->"Out[73]=",ExpressionUUID->"d1c1252c-eb32-4d15-aeb1-bdfd69a3e6c2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Calculation using equation S22 (approximate selection gradient) + bisection \ method\ \>", "Subsubsection", CellChangeTimes->{{3.782751859822446*^9, 3.782751865820404*^9}, { 3.782752045037979*^9, 3.782752045522992*^9}, {3.8057993147263823`*^9, 3.805799340146462*^9}, {3.805802676357815*^9, 3.805802680279662*^9}, { 3.805884899172021*^9, 3.80588490904635*^9}, {3.805893628264538*^9, 3.805893630010518*^9}, {3.815736025555017*^9, 3.8157360474319*^9}},ExpressionUUID->"3940a0ca-9e30-4bc1-808a-52350cca2028"], Cell["\<\ Calculate selection gradient using eqn (S .22) in the supplementary material.\ \ \>", "Text", CellChangeTimes->{{3.815735818666779*^9, 3.815735821627829*^9}},ExpressionUUID->"58b16e2c-97ff-4714-bc78-\ a9a8cc6b9746"], Cell[BoxData[ RowBox[{ RowBox[{"vaccpars", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["r", "1"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "2"], "\[Rule]", "0.8"}], ",", RowBox[{ SubscriptBox["r", "3"], "\[Rule]", "0"}], ",", RowBox[{ SubscriptBox["r", "4"], "\[Rule]", "0"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.782751870374545*^9, 3.782751876375462*^9}, { 3.782751913525055*^9, 3.7827519255774527`*^9}, 3.7828176187869883`*^9, 3.782817772932867*^9, {3.782817993949123*^9, 3.782817999739758*^9}, { 3.783491426889502*^9, 3.7834914279279013`*^9}, {3.805791008665867*^9, 3.8057910209217367`*^9}, {3.80579108295021*^9, 3.805791093377673*^9}, { 3.805885904783765*^9, 3.8058859050569897`*^9}, {3.8058919484808702`*^9, 3.805891951647497*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"26c0eedf-bce6-427a-8a26-7b7bd0c2cf5f"], Cell[BoxData[{ RowBox[{ RowBox[{"varsf", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["S", "T"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tend", "=", "300"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"initf", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "U"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["S", "T"], "[", "0", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "0", "]"}], "\[Equal]", "0.1"}], ",", RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "0", "]"}], "\[Equal]", "0.1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysf", "=", RowBox[{"Join", "[", RowBox[{"sysf", ",", "initf"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"r", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ".", "matf", ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], "}"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sysv", "=", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "'"}], "[", "t", "]"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "'"}], "[", "t", "]"}]}], "}"}], "==", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"Transpose", "[", "matf", "]"}], ".", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}], "+", RowBox[{ RowBox[{"r", "[", "t", "]"}], " ", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"varsv", "=", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "t", "]"}], ",", RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"finalv", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "U"], "[", "tend", "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ SubscriptBox["v", "T"], "[", "tend", "]"}], "\[Equal]", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullsysv", "=", RowBox[{"Join", "[", RowBox[{"sysv", ",", "finalv"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8058914794915543`*^9, 3.8058914807109613`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"eeb47beb-345c-4dbc-a994-f611667a29a0"], Cell[BoxData[ RowBox[{ RowBox[{"MeanCT", "[", RowBox[{"\[Tau]val_", ",", "zval_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"cT", ",", "func"}], "}"}], ",", RowBox[{ RowBox[{"pars", "=", RowBox[{"Join", "[", RowBox[{"basepars", ",", "vaccpars", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Tau]", "\[Rule]", "\[Tau]val"}], ",", RowBox[{"\[Omega]", "\[Rule]", RowBox[{"1", "/", "\[Tau]val"}]}], ",", RowBox[{"z", "\[Rule]", "zval"}]}], "}"}]}], "]"}]}], ";", RowBox[{"solf", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"fullsysf", "//.", "pars"}], ",", "varsf", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tend"}], "}"}]}], "]"}]}], ";", RowBox[{"solv", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{ RowBox[{"fullsysv", "/.", RowBox[{"solf", "[", RowBox[{"[", "1", "]"}], "]"}]}], "//.", "pars"}], ",", "varsv", ",", RowBox[{"{", RowBox[{"t", ",", "tend", ",", "10"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"func", "[", "t_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["v", "T"], "[", "t", "]"}], RowBox[{ RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["J", "U"], "[", "t", "]"}], "+", RowBox[{ SubscriptBox["J", "T"], "[", "t", "]"}]}], ")"}]}]}], "/.", RowBox[{"solf", "[", RowBox[{"[", "1", "]"}], "]"}]}], "/.", RowBox[{"solv", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"cT", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "\[Tau]"}], "//.", "pars"}], ")"}], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"func", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "200", ",", RowBox[{ RowBox[{"200", "+", "\[Tau]"}], "//.", "pars"}]}], "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"\"\\"", "\[Rule]", "0"}]}], "}"}]}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "4"}]}], "]"}]}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.805891083349745*^9, 3.805891116863599*^9}, { 3.805891148960371*^9, 3.805891149842485*^9}, {3.805891411682991*^9, 3.805891427809134*^9}, {3.805891473018403*^9, 3.805891475908671*^9}}, CellLabel->"In[84]:=",ExpressionUUID->"78060072-10a9-497c-90c7-43e0762a2d65"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"selgradN", "[", "z_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "U"], "//.", "basepars"}], ",", "z"}], "]"}], "//", "Simplify"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "U"]}], ")"}], "/", SubscriptBox["\[Beta]", "U"]}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "U"], "//.", "basepars"}], ",", "z"}], "]"}]}], "//.", "basepars"}], "//.", "vaccpars"}]}]], "Input", CellChangeTimes->{{3.8058901346448183`*^9, 3.8058901955404453`*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"45ae9c33-ef4d-427a-b20e-c21a8ef6f07b"], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["1", "z"]}]], "Output", CellChangeTimes->{{3.805890185840687*^9, 3.805890196097513*^9}, 3.805890298969482*^9, 3.805890369461578*^9, 3.805890561923781*^9, 3.805890660174738*^9, 3.805891121266056*^9, 3.805891488136867*^9, 3.805891959966055*^9, 3.806031526635846*^9, 3.8157363767958097`*^9}, CellLabel->"Out[85]=",ExpressionUUID->"1cae8673-12db-4874-a1b2-e789412c166e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"selgradT", "[", "z_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Beta]", "T"], "//.", "basepars"}], ",", "z"}], "]"}], " ", "//", "Simplify"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"d", "+", SubscriptBox["\[Alpha]", "T"]}], ")"}], "/", SubscriptBox["\[Beta]", "T"]}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "T"], "//.", "basepars"}], ",", "z"}], "]"}]}], "//.", "basepars"}], "//.", "vaccpars"}]}]], "Input", CellChangeTimes->{{3.80589020325979*^9, 3.8058902181400547`*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"1118894f-fc46-4248-8b6a-14b1d12fe7ac"], Cell[BoxData[ RowBox[{ RowBox[{"-", "0.19999999999999996`"}], "+", FractionBox["1.`", "z"]}]], "Output", CellChangeTimes->{3.805890218678487*^9, 3.805890299963421*^9, 3.805890370115995*^9, 3.8058905625808287`*^9, 3.805890660777532*^9, 3.8058911218584957`*^9, 3.805891488736258*^9, 3.80589196217397*^9, 3.806031527330887*^9, 3.815736376803589*^9}, CellLabel->"Out[86]=",ExpressionUUID->"c239e306-da2c-4dca-991b-47dffb7aa959"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val_", ",", "zres_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "cTm", "}"}], ",", RowBox[{ RowBox[{"cTm", "=", RowBox[{"MeanCT", "[", RowBox[{"\[Tau]val", ",", "zres"}], "]"}]}], ";", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "cTm"}], ")"}], " ", RowBox[{"selgradN", "[", "zres", "]"}]}], "+", RowBox[{"cTm", " ", RowBox[{"selgradT", "[", "zres", "]"}]}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.80588498416218*^9, 3.805885215283155*^9}, { 3.805885447401667*^9, 3.8058854596204042`*^9}, {3.805885582217198*^9, 3.805885613289315*^9}, {3.805886031991847*^9, 3.80588604052344*^9}, { 3.805886166336677*^9, 3.805886174736022*^9}, {3.805890234330962*^9, 3.805890270173562*^9}, {3.805890785371587*^9, 3.805890786268749*^9}, { 3.805891169863605*^9, 3.805891170471784*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"8fb1e8c1-0ab5-448c-987c-759041af040a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"\[Tau]val_", ",", "zainit_", ",", "zbinit_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zESS"}], "}"}], ",", RowBox[{ RowBox[{"perpars", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Omega]", "\[Rule]", RowBox[{"1", "/", "\[Tau]val"}]}], ",", RowBox[{"\[Tau]", "\[Rule]", "\[Tau]val"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pars", "=", RowBox[{"Join", "[", RowBox[{"basepars", ",", "perpars", ",", "vaccpars"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"za", "=", "zainit"}], ";", RowBox[{"zb", "=", "zbinit"}], ";", "\[IndentingNewLine]", RowBox[{"rhoa", "=", RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val", ",", "za"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rhob", "=", RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val", ",", "zb"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"niter", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"niter", "<", "100"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zc", "=", RowBox[{ RowBox[{"(", RowBox[{"za", "+", "zb"}], ")"}], "/", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"zb", "-", "za"}], ")"}], "/", "2"}], ">", "0.001"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"niter", "++"}], ";", "\[IndentingNewLine]", RowBox[{"rhoc", "=", RowBox[{"CalculateAnalyticalSelgrad", "[", RowBox[{"\[Tau]val", ",", "zc"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"za", ",", "zb", ",", "zc", ",", "rhoc"}], "}"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Sign", "[", "rhoc", "]"}], "\[Equal]", RowBox[{"Sign", "[", "rhoa", "]"}]}], ",", RowBox[{"za", "=", "zc"}], ",", RowBox[{"zb", "=", "zc"}]}], "]"}]}], ",", RowBox[{"niter", "=", "100"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"zESS", "=", "zc"}], ";", RowBox[{"Return", "[", "zESS", "]"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7827301276917763`*^9, 3.782730253536025*^9}, { 3.782730327143387*^9, 3.782730328318729*^9}, {3.7827309625457993`*^9, 3.782730968872819*^9}, {3.782731308024325*^9, 3.782731309204022*^9}, { 3.78273205232051*^9, 3.782732075856773*^9}, {3.782732110446437*^9, 3.7827321105855227`*^9}, {3.7827322518308783`*^9, 3.78273229060892*^9}, { 3.782750326507348*^9, 3.7827503275325403`*^9}, {3.782751888349661*^9, 3.782751905314535*^9}, {3.7831463202064962`*^9, 3.783146337243705*^9}, { 3.783148282262253*^9, 3.783148286341049*^9}, {3.783148327169224*^9, 3.783148358445261*^9}, {3.80579107461281*^9, 3.8057911020817747`*^9}, { 3.805791140341983*^9, 3.80579124638273*^9}, {3.805791290808879*^9, 3.805791296814315*^9}, {3.8057913603958597`*^9, 3.805791394089918*^9}, { 3.80579149456649*^9, 3.805791502667747*^9}, {3.8057916169128942`*^9, 3.805791685998014*^9}, {3.8057917358577147`*^9, 3.805791787154359*^9}, { 3.8057918441455183`*^9, 3.805791844851437*^9}, 3.805791956360057*^9, { 3.805792029699247*^9, 3.805792038053144*^9}, {3.805793552335343*^9, 3.805793598340785*^9}, {3.805793690357936*^9, 3.805793696937049*^9}, { 3.805793730905829*^9, 3.8057937326746883`*^9}, {3.805799481841482*^9, 3.8057998079296103`*^9}, {3.805799860865123*^9, 3.805799898494585*^9}, { 3.805799960997964*^9, 3.805799992599689*^9}, {3.805800092297658*^9, 3.805800092683652*^9}, {3.805800136338183*^9, 3.805800190963431*^9}, { 3.805800246322219*^9, 3.805800286395096*^9}, {3.805800324914175*^9, 3.805800327948124*^9}, {3.805800363888465*^9, 3.805800381248263*^9}, { 3.805801306611381*^9, 3.8058013084660063`*^9}, {3.805801553534418*^9, 3.8058015729939003`*^9}, {3.805885697761197*^9, 3.805885750827519*^9}, { 3.805890868645759*^9, 3.805890871609929*^9}, {3.805890939571973*^9, 3.805890952674654*^9}}, CellLabel->"In[88]:=",ExpressionUUID->"e4c95214-6e04-477b-a35d-a580f31bcb3f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Tau]vals", "=", RowBox[{"{", RowBox[{ "1", ",", "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "15", ",", "20", ",", "25", ",", "30", ",", "40", ",", "45", ",", "50", ",", "70", ",", "80"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ESSres", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"FindESS", "[", RowBox[{"#", ",", "2.3", ",", "4.3"}], "]"}], "&"}], "/@", "\[Tau]vals"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.805792100301477*^9, 3.805792154515383*^9}, { 3.805793619931196*^9, 3.805793674888913*^9}, 3.8057937250680313`*^9, { 3.805800550912263*^9, 3.805800552096822*^9}, {3.805801328512673*^9, 3.805801334350712*^9}, {3.8058014364492617`*^9, 3.805801490867403*^9}, { 3.805801581398324*^9, 3.805801588285334*^9}, {3.805801719974743*^9, 3.805801783574733*^9}, {3.805801844305141*^9, 3.805801880025743*^9}, { 3.805892004866541*^9, 3.805892007711296*^9}, {3.8060319293270597`*^9, 3.806031935592668*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"6dd3bd35-4c0a-48d3-9f0b-4bf17ba89351"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "0.0490294702467089`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736390228491*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"6e02712d-c777-4bdb-8d85-7f39303ef409"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "0.01637364629960772`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736394816832*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"6e6e6f69-a2d7-4916-bb25-75ba296149d7"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", "0.0030222017514905525`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157363995534353`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"09e214d5-8fdf-47d9-bb0e-140dcae0023d"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.3`", ",", "4.175`", ",", RowBox[{"-", "0.0030626895727514925`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157364041395493`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b915577b-8289-4b58-a042-cbf8177f9f35"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.175`", ",", "4.1125`", ",", RowBox[{"-", "0.00006467954502625828`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736408419621*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"9d0a00f6-111b-4663-a09e-c8e6f46b2cdb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.05`", ",", "4.1125`", ",", "4.08125`", ",", "0.0014664493981720803`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736412721116*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1a6bcb0b-9690-438d-8f29-71b7dfba89f8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.08125`", ",", "4.1125`", ",", "4.096875`", ",", "0.0006976205243089534`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736417234695*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"05a5ccbd-962e-4b2f-ac07-3d120717c965"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.096875`", ",", "4.1125`", ",", "4.1046875`", ",", "0.00031613851315279856`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736421531479*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"8b2de51a-851e-4c20-8588-d837b1b5b0f3"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.1046875`", ",", "4.1125`", ",", "4.10859375`", ",", "0.00012511034484261052`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736426061089*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3eda7c84-acd8-4630-a552-c65a45d82794"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.10859375`", ",", "4.1125`", ",", "4.110546875`", ",", "0.000028898715524042218`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736430556583*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"2a68b289-7ec2-4da7-85b9-f12cbcf55cb8"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "0.047822362618292355`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736439221493*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b8686bbe-a9c4-4103-8855-9911368e0a74"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "0.015289183558676818`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573644240349*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"ba90187e-3ec2-4f09-bd70-fa881ad318c7"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", "0.0020165701773250874`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157364455590982`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"73e50070-e452-48b7-ad5c-673eb1435c4d"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.3`", ",", "4.175`", ",", RowBox[{"-", "0.004028692445323112`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736448533073*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1f06ea45-4c59-4131-8cf3-4c40bf73ec54"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.05`", ",", "4.175`", ",", "4.1125`", ",", RowBox[{"-", "0.0010522355917088402`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736451488447*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f2e5d7ce-76b0-4d91-ae6b-25533224906d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.05`", ",", "4.1125`", ",", "4.08125`", ",", "0.000470696082734777`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736454466569*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b1d93798-c373-43d7-a742-7a8d85c263b9"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.08125`", ",", "4.1125`", ",", "4.096875`", ",", RowBox[{"-", "0.0002944366984588276`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736457663824*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"38efd076-a215-4a11-b499-c895a0138bab"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.08125`", ",", "4.096875`", ",", "4.0890625`", ",", "0.0000872434862843191`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736460803227*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f8623196-6566-49fa-9cbd-85034f14d79a"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.0890625`", ",", "4.096875`", ",", "4.09296875`", ",", RowBox[{"-", "0.00010324662665141954`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736463843157*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"6a798dc2-6c2c-41a0-b989-8820071f9ef1"], Cell[BoxData[ RowBox[{"{", RowBox[{"4.0890625`", ",", "4.09296875`", ",", "4.091015625`", ",", RowBox[{"-", "7.50913432050887`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157364669315*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"79c201b3-f6eb-4f3f-b1fb-ee4064c1553a"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "0.04339322928350522`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736473432536*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"e1084ee1-cb53-4d87-8c7b-328963d302a7"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "0.010756199514722023`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573647545402*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f1dff4c1-5f9e-4e88-a382-6cde553a3624"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", RowBox[{"-", "0.0025200178238027546`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736477785158*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"c74d6600-d16d-4ec0-ac09-fc138ed04e1d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.8`", ",", "4.05`", ",", "3.925`", ",", "0.0039061577953123858`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736480376466*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"d2cce201-9aa4-4fe9-8a41-b9b0ca919ba2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.925`", ",", "4.05`", ",", "3.9875`", ",", "0.0006426863002159874`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157364827267227`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3db0f372-e4f9-442a-9c7d-5b868b678573"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.9875`", ",", "4.05`", ",", "4.01875`", ",", RowBox[{"-", "0.0009506144026068669`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736485056924*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"aeb8fbb3-dc0f-4988-8531-ad3f2ffd6fdd"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.9875`", ",", "4.01875`", ",", "4.003125`", ",", RowBox[{"-", "0.0001574995391488629`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736487393011*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"0652b013-4f1b-4a9a-bb89-26cf501867d0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.9875`", ",", "4.003125`", ",", "3.9953125`", ",", "0.00024162161127758847`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736489684238*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"2e3adafc-548d-42e7-a998-5f555a333bc5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.9953125`", ",", "4.003125`", ",", "3.99921875`", ",", "0.000042211954236898164`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736491969946*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"7acda916-04e1-41fb-8d9f-2a9b25ceee32"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.99921875`", ",", "4.003125`", ",", "4.001171875`", ",", RowBox[{"-", "0.00005777249638241194`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573649426482*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"8ec289f7-1375-4625-9084-55bf5e2558b0"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "0.034411658810978234`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736499755054*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"33e9fb4b-3e26-4f03-b626-1fdb5c46f6b2"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", "0.001676077882978258`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736501700716*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"ec594b77-d3e4-470c-90ca-bc87c8e03a85"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.3`", ",", "4.05`", ",", RowBox[{"-", "0.011545383163893225`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736503531021*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3ac305d3-95f0-4ee8-b5e8-ac35cedfee2a"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "4.05`", ",", "3.925`", ",", RowBox[{"-", "0.0051544137176883845`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736505510477*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3c387287-909a-4ace-bf0a-9cceed488390"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "3.925`", ",", "3.8625`", ",", RowBox[{"-", "0.001797158967050863`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365073593483`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"03d25b20-2dfd-4f2c-ae80-8c719f2a0378"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.8`", ",", "3.8625`", ",", "3.83125`", ",", RowBox[{"-", "0.00007536574702743382`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573650927903*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"ec44253f-d27e-4964-8cb5-e2d634bf5b19"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.8`", ",", "3.83125`", ",", "3.815625`", ",", "0.0007961472115830814`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736510938781*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"9b642ae3-bd4f-4845-b7b4-e488fab1184b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.815625`", ",", "3.83125`", ",", "3.8234375`", ",", "0.0003593621431350058`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736512668333*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"0e5250c1-4a72-4214-ad90-ddafa30ffe55"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.8234375`", ",", "3.83125`", ",", "3.82734375`", ",", "0.00014197358893840856`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736514351989*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"e4c90577-8a77-41ba-9461-e9b24643495f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.82734375`", ",", "3.83125`", ",", "3.829296875`", ",", "0.00003337420896145499`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736516020702*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"ba815b0d-0d4a-4ca5-8f0f-75066834f17f"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "0.024851268711156352`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573652057823*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f52ce67d-fc0c-4e64-b8e6-4afcab418460"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", RowBox[{"-", "0.00793346499713525`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736522143753*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"16db44f4-cc3a-48fb-bb41-3eca17a214f4"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "3.8`", ",", "3.55`", ",", "0.0072264212316593135`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365237299013`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"76cb8fe1-406b-4832-95c7-54f0957ed8c5"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.55`", ",", "3.8`", ",", "3.675`", ",", RowBox[{"-", "0.0006293150250506196`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736525155405*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"fa855806-c474-43de-9242-b5dc4db9db66"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.55`", ",", "3.675`", ",", "3.6125`", ",", "0.0032255389404373808`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736526568036*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"9751b6ed-417a-4dcd-91b5-c55ea4223961"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.6125`", ",", "3.675`", ",", "3.64375`", ",", "0.0012797216883476126`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736527970604*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"4e11ca08-ae92-4c91-9fad-f7cccf264b2c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.64375`", ",", "3.675`", ",", "3.659375`", ",", "0.0003209869843430607`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365293939753`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"78375f0c-ebd1-440c-8e76-43727c39ba28"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.659375`", ",", "3.675`", ",", "3.6671875`", ",", RowBox[{"-", "0.00015500985204641715`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736530915204*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f5e4af70-c3d2-4bec-a7c0-09d23b20b3fb"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.659375`", ",", "3.6671875`", ",", "3.66328125`", ",", "0.00008251008698942353`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573653243913*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"2318f197-f675-454b-8c2c-53c743bdfc29"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.66328125`", ",", "3.6671875`", ",", "3.665234375`", ",", RowBox[{"-", "0.000036665800645180324`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736533888286*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"5a3992cb-5c56-424b-ac98-37cf3f1a1fed"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", "0.015499511536828561`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736537657752*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"ceceab79-fa0b-43b9-a32f-650183307307"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "4.3`", ",", "3.8`", ",", RowBox[{"-", "0.01761739073288924`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365389381037`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"8ec552e6-6f13-4ac3-9e42-744eba511539"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "3.8`", ",", "3.55`", ",", RowBox[{"-", "0.002320871946577985`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365401954613`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"e1ce841d-61dd-4750-92b8-890a9ecc476c"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.3`", ",", "3.55`", ",", "3.425`", ",", "0.006238619020826869`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736541466302*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"6a3f0a08-964c-43d7-babf-ab2f8a3bd234"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.425`", ",", "3.55`", ",", "3.4875`", ",", "0.0018760690266246688`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736542743938*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"dbf3c067-b5c2-4d25-a7f7-b2a6ae74086d"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.4875`", ",", "3.55`", ",", "3.51875`", ",", RowBox[{"-", "0.00024217407570380212`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736544021017*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"7879af0b-3b3e-4f2d-aa31-eaa52cd0500b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.4875`", ",", "3.51875`", ",", "3.503125`", ",", "0.0008125657871475844`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365452893753`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1f90ba91-5301-402f-ba97-a6df95d5a729"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.503125`", ",", "3.51875`", ",", "3.5109375`", ",", "0.00028348724459337227`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365465465612`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"84c41f4b-d28d-4fce-98bb-b232e1269baa"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.5109375`", ",", "3.51875`", ",", "3.51484375`", ",", "0.000019920496725139847`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365478285646`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"a1861195-4279-41e4-b82e-1f1a1a4f3fce"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.51484375`", ",", "3.51875`", ",", "3.516796875`", ",", RowBox[{"-", "0.00011103817724927856`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736549116577*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"4ee79fc6-a926-4737-9b95-a8d167884f1b"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.003787718316639363`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736552199594*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1874a3d1-95f6-48d4-846f-16f6086f08cb"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.043985472782116994`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736553166978*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f6e2ba3a-412a-4093-88f0-84be650bccaa"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", "0.018027132999119885`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736554208354*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"9621eed7-f0fb-4cd1-b733-f520d37eb8af"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.05`", ",", "3.3`", ",", "3.175`", ",", "0.006663611031420186`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365552062197`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"6948f208-247e-4974-bf1f-8747f4c711af"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.175`", ",", "3.3`", ",", "3.2375`", ",", "0.0013310230998924144`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365562356453`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"11ca2664-3d31-4a85-b0b0-fac013da42a1"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.2375`", ",", "3.3`", ",", "3.26875`", ",", RowBox[{"-", "0.0012539755441507844`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736557290954*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3821282e-5275-4173-b718-a6f751e95978"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.2375`", ",", "3.26875`", ",", "3.253125`", ",", "0.00003177490799353977`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365583392153`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"238ee95f-c3f7-438b-836c-ba753533c4b0"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.253125`", ",", "3.26875`", ",", "3.2609375`", ",", RowBox[{"-", "0.0006130756194270698`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365593819933`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"a85386e2-212c-4abb-b9e8-54cb1cf5a6e7"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.253125`", ",", "3.2609375`", ",", "3.25703125`", ",", RowBox[{"-", "0.0002908966906612076`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736560440146*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"fdc1bfb2-425e-4e7e-90a2-72fff001b929"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.253125`", ",", "3.25703125`", ",", "3.255078125`", ",", RowBox[{"-", "0.00012965120244030903`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736561638883*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"c9656d7c-6510-458d-ad67-90e246947b16"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.016129010896152055`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736564457026*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1c9902c9-18b4-419d-a9fe-8b66af398d5e"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.03304404064145128`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365653473186`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"5b4d92b6-a593-45a6-97e7-edb5fb2c1ac7"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", "0.006370096144993523`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736566171441*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"34d1a1b9-4a85-415b-aed4-38fb74885b3e"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.05`", ",", "3.3`", ",", "3.175`", ",", RowBox[{"-", "0.005357038513849166`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736567052885*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"569b2dfa-b05e-4b85-a8f0-537ae1d66717"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.05`", ",", "3.175`", ",", "3.1125`", ",", "0.00036929033859398053`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736567904078*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"8f6301de-b4be-440e-848d-65951aef8778"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.1125`", ",", "3.175`", ",", "3.14375`", ",", RowBox[{"-", "0.0025237969595970494`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736568930299*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"256385fd-5174-4839-82a3-1c4f86421669"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.1125`", ",", "3.14375`", ",", "3.128125`", ",", RowBox[{"-", "0.0010849803832334026`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736569834455*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f36990db-0bef-46b2-b8cc-e232347c36df"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.1125`", ",", "3.128125`", ",", "3.1203125`", ",", RowBox[{"-", "0.0003596895650672255`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365706691313`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f92ce4b6-e875-4de7-8dba-c94e727a67be"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.1125`", ",", "3.1203125`", ",", "3.11640625`", ",", "4.126519659766736`*^-6"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736571499167*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1107c252-2501-4671-adcc-485ca4ff687f"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.11640625`", ",", "3.1203125`", ",", "3.118359375`", ",", RowBox[{"-", "0.0001779539078549386`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736572432925*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b1f0352e-ffc3-46a8-a084-94350c0de2ac"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.02402355151869809`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365747747707`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"0b6e63c6-4dca-4931-a718-3b824224d4e9"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.026048709790221905`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736575516891*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"5c4086ed-c361-419d-a9aa-cb2274375ede"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "0.001110609549902844`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365762453547`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"8dbf1320-7a33-48e1-91b6-61504185c911"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.05`", ",", "2.925`", ",", "0.011869272064864073`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365769831*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"bd1a54fe-1ee2-44f3-ad64-c47d8372743f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.925`", ",", "3.05`", ",", "2.9875`", ",", "0.00523913335494805`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365779766083`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"40d91178-9e80-4ca6-a726-bc1d05e2eecf"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.9875`", ",", "3.05`", ",", "3.01875`", ",", "0.002030015675128699`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365788613663`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"7b8c2c61-98d5-4d63-bcdd-1eeb85d97de5"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.01875`", ",", "3.05`", ",", "3.034375`", ",", "0.00045159406944440816`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736579603997*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"87913aa4-b93f-4851-839a-8ae7b864cd21"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.034375`", ",", "3.05`", ",", "3.0421875`", ",", RowBox[{"-", "0.00033183359213428965`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736580330271*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"0df42f2c-bb75-4379-a287-7d35b8b30a39"], Cell[BoxData[ RowBox[{"{", RowBox[{ "3.034375`", ",", "3.0421875`", ",", "3.03828125`", ",", "0.00005950302815962982`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736581063979*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f365e6f1-a3d7-4854-9434-0d13f50032bb"], Cell[BoxData[ RowBox[{"{", RowBox[{"3.03828125`", ",", "3.0421875`", ",", "3.040234375`", ",", RowBox[{"-", "0.00013639821444186295`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736581790498*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"56173929-d603-48a8-a88e-61ab475c9814"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.029422616061987886`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365837573*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"55ae9aa9-e5d5-407f-bc03-ff5d61f70540"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.021320094358983507`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573658440311*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"c3ff921e-07e6-4623-b42c-87a3ea0d5bc9"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "0.006190343931755785`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736585036509*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"6ff121c2-bef7-430b-9f8d-6fd280a9cd91"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.05`", ",", "2.925`", ",", "0.006960906822651422`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573658568381*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"7f364aec-df8e-4dd6-8398-7c7829bba67c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.925`", ",", "3.05`", ",", "2.9875`", ",", "0.00024396624313059723`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736586319601*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3a51434d-05c3-4fd9-9bed-8ee915117f04"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.9875`", ",", "3.05`", ",", "3.01875`", ",", RowBox[{"-", "0.003007558842747962`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736586951303*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"35dd9d99-5725-4203-94c3-8a337672241a"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.9875`", ",", "3.01875`", ",", "3.003125`", ",", RowBox[{"-", "0.0013903041323808374`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365875699778`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"989999c8-846f-4dac-a7d4-aa6a307d8dad"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.9875`", ",", "3.003125`", ",", "2.9953125`", ",", RowBox[{"-", "0.0005757120071163829`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365882064247`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"85614c17-760b-4b4d-bfcd-39e3e884eda0"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.9875`", ",", "2.9953125`", ",", "2.99140625`", ",", RowBox[{"-", "0.00016624864812304907`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736588856431*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"aaa3a901-1f01-4a10-957b-814d684fa6d2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.9875`", ",", "2.99140625`", ",", "2.989453125`", ",", "0.000038677916956608716`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736589514723*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"805b3f3c-d3de-4f58-a9ca-41801e8a03a7"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.036318009963150516`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365910385427`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1d3cb715-f413-4fee-846f-494884340637"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.015172019851578164`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365915543528`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3b93e22a-00dd-4c9c-b579-9024115fcb8b"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "0.012682343816540015`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736592063098*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"38d15b87-990c-45d3-97a4-3c6c565eec90"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8`", ",", "3.05`", ",", "2.925`", ",", "0.0006846664581699469`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736592569912*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"695c76b5-a645-4ea3-832b-164c3874317e"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.925`", ",", "3.05`", ",", "2.9875`", ",", RowBox[{"-", "0.00614146543426887`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736593079569*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"cf8b04a9-969e-471d-a2d4-1cabf0d59555"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.925`", ",", "2.9875`", ",", "2.95625`", ",", RowBox[{"-", "0.0027652167979527464`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365935890636`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3227920d-5934-4c86-8c0e-1a2390e31f2d"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.925`", ",", "2.95625`", ",", "2.940625`", ",", RowBox[{"-", "0.0010496132517190115`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365940899277`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"530587d8-da28-44d2-96ae-1421886d4b50"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.925`", ",", "2.940625`", ",", "2.9328125`", ",", RowBox[{"-", "0.0001849940671863337`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365946001368`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"28766b8f-7a98-40f6-a927-0fca3cf5f568"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.925`", ",", "2.9328125`", ",", "2.92890625`", ",", "0.0002493758258426959`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736595111116*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"ec7cdfdd-6398-4515-8a0e-2a9905217950"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.92890625`", ",", "2.9328125`", ",", "2.930859375`", ",", "0.00003210023029763531`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157365956164837`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"58b3760b-e039-4292-bf93-194809847212"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.03861754148948396`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736596951407*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"aa2ba636-5fb7-43a0-8fde-0cb81318c924"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.013250231101096605`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573659743181*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"2df52706-624d-41c8-bc63-fb3b566c57b8"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "0.014848600182917546`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736597898241*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"bbbf2bc1-53b2-472a-9663-5eb8a6e8ca9c"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.05`", ",", "2.925`", ",", RowBox[{"-", "0.0014100702403407328`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736598348255*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"a30ff3c3-02c3-4550-b6ab-769cc9e03007"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8`", ",", "2.925`", ",", "2.8625`", ",", "0.005757126623195552`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736598815733*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b6e093fa-c84c-485e-90eb-0ae93e857b77"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8625`", ",", "2.925`", ",", "2.89375`", ",", "0.0021341673889194723`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736599279084*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"49bd609e-20be-4092-a234-ea55a1cdc7d9"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.89375`", ",", "2.925`", ",", "2.909375`", ",", "0.00035229580194270915`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736599740532*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f5dd4f62-1a5e-4f5a-9e3b-2feee2ed796f"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.909375`", ",", "2.925`", ",", "2.9171875`", ",", RowBox[{"-", "0.00053126878218622`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736600222928*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"18d87760-8dd5-424a-ba30-48582229faba"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.909375`", ",", "2.9171875`", ",", "2.91328125`", ",", RowBox[{"-", "0.00009005325906558115`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736600698271*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"56c95d75-ce49-448b-9bf0-159464f52d1f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.909375`", ",", "2.91328125`", ",", "2.911328125`", ",", "0.0001310380865422317`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736601184272*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3c4a27c4-9640-4f59-ba94-317d6aca40b0"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.04093802956823216`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736602498539*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"3c8ba5d1-75f8-4298-83c5-f2c707ed305a"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.008504870116341032`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736602889996*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"0250083c-1462-4dec-b11b-cde936aa6103"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "0.02051575426219937`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573660326649*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1121bdd5-054b-40ca-8aa0-dd4faa17b7a9"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.05`", ",", "2.925`", ",", RowBox[{"-", "0.003080574943615827`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736603691616*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"dd27d0ae-bcfe-4f79-aeec-4c5b9782246f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8`", ",", "2.925`", ",", "2.8625`", ",", "0.003906487262087019`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736604089238*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"25e6cbd7-d1ad-4cf5-9888-48cbaf87c8a3"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8625`", ",", "2.925`", ",", "2.89375`", ",", RowBox[{"-", "0.002966250596079606`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573660458493*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f80f7a0b-c221-4f8f-8bf5-1685fa9f3f79"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8625`", ",", "2.89375`", ",", "2.878125`", ",", "0.0020666187717404833`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736604989601*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"65aab1ae-5f58-4543-a937-a53fa7f6ed3a"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.878125`", ",", "2.89375`", ",", "2.8859375`", ",", RowBox[{"-", "0.0020388199915069433`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736605526401*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b90466b6-db07-4d87-8bb0-0c7dff405a8e"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.878125`", ",", "2.8859375`", ",", "2.88203125`", ",", "0.0018333521693611604`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736605942659*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1db25e5e-a721-48fe-84e2-9aa8f8609106"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.88203125`", ",", "2.8859375`", ",", "2.883984375`", ",", RowBox[{"-", "0.002031002605315635`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157366063626957`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"f028f74f-8faa-467b-adbb-c6234ca9293d"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.0451624801409079`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736607513363*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"ed9dbc78-55bc-4d6b-bb16-993bb1972a4a"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.007497648960793857`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736607916662*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b3cc1bef-979d-4291-bed0-08c635a0f1f5"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "0.02102100119881592`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736608275094*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"70259397-de5f-44d0-8de2-8318c934ee3e"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.05`", ",", "2.925`", ",", RowBox[{"-", "0.007544927561737927`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736608658641*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"6e4db376-1a27-4156-9d5d-1a51168c3d80"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "2.925`", ",", "2.8625`", ",", RowBox[{"-", "0.00027957577893655827`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736609086112*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"af6838f1-f056-48a7-af09-cf569cd489dc"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8`", ",", "2.8625`", ",", "2.83125`", ",", "0.00347464390836677`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573660953284*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"c6dd9897-7a50-4207-8276-22a9369611ea"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.83125`", ",", "2.8625`", ",", "2.846875`", ",", "0.0015871891168106333`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157366099247513`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"7ff6ca55-df9c-4e76-9283-8683f5f5c3c6"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.846875`", ",", "2.8625`", ",", "2.8546875`", ",", "0.0006512332490279105`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157366102802753`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"96023981-de3d-4b92-aa58-e28b63a3b0ba"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8546875`", ",", "2.8625`", ",", "2.85859375`", ",", "0.00018515166106104763`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.8157366107268744`*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"76478023-52e5-4ee3-a14c-454762801028"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.85859375`", ",", "2.8625`", ",", "2.860546875`", ",", RowBox[{"-", "0.00004741776002427367`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736611142572*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b2d593d2-198f-4cc0-94e5-1f383f54f84c"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "4.3`", ",", "3.3`", ",", RowBox[{"-", "0.04663391016526393`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736612071681*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"75da7a3d-2d16-4e1e-a76b-01cae77eb41b"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.3`", ",", "3.3`", ",", "2.8`", ",", "0.006217378214507255`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573661237829*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"1a55e73b-dca3-472a-bedd-cd25c18ec631"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.3`", ",", "3.05`", ",", RowBox[{"-", "0.02239629453674062`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573661267864*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"70bc5394-f9fb-4afa-8a3a-a1e6e3d25682"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "3.05`", ",", "2.925`", ",", RowBox[{"-", "0.008706817471754905`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736612976387*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"8b0fc777-6024-4c24-b40c-de2492c9faa0"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8`", ",", "2.925`", ",", "2.8625`", ",", RowBox[{"-", "0.0014092763606894237`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736613278311*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"d596e770-f3cc-405c-8256-62b9016bc5a2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8`", ",", "2.8625`", ",", "2.83125`", ",", "0.0023615914757239703`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736613574884*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"381f860a-e9cf-40b1-8cb1-9a5c070a8080"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.83125`", ",", "2.8625`", ",", "2.846875`", ",", "0.0004657352463406095`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573661388911*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"8ed37bdd-a152-402d-b701-f10707c836e4"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.846875`", ",", "2.8625`", ",", "2.8546875`", ",", RowBox[{"-", "0.00047427945301410646`"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736614200791*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"15222bbd-0e03-47d2-9ab4-8a38414f03e1"], Cell[BoxData[ RowBox[{"{", RowBox[{"2.846875`", ",", "2.8546875`", ",", "2.85078125`", ",", RowBox[{"-", "4.901683243282995`*^-6"}]}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.815736614496217*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"19b2bb57-3e4b-4c5b-adfa-747e8e087a24"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.846875`", ",", "2.85078125`", ",", "2.848828125`", ",", "0.00023028901365605703`"}], "}"}]], "Print", CellChangeTimes->{3.8058019114345703`*^9, 3.805803386342292*^9, 3.8058036208999434`*^9, 3.8058037317483273`*^9, 3.8058038224203033`*^9, 3.805891624951426*^9, 3.805892078330413*^9, 3.81573661479104*^9}, CellLabel-> "During evaluation of \ In[89]:=",ExpressionUUID->"b239836e-04ed-422d-9843-934ccea1f225"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["ESSres"], "Input", CellChangeTimes->{{3.805792570055151*^9, 3.805792570809909*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"be31cca8-a841-47a8-90be-0045d0ee1d4a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "4.1115234375`", ",", "4.0900390625`", ",", "4.0001953125`", ",", "3.8302734375`", ",", "3.6642578125`", ",", "3.5158203125`", ",", "3.2541015625`", ",", "3.1173828125`", ",", "3.0392578125`", ",", "2.9904296875`", ",", "2.9318359375`", ",", "2.9123046875`", ",", "2.8830078125`", ",", "2.8595703125`", ",", "2.8498046875`"}], "}"}]], "Output", CellChangeTimes->{3.805792571412582*^9, 3.805794338281502*^9, 3.805798021821127*^9, 3.8058026069548388`*^9, 3.805804213948818*^9, 3.8058918259408693`*^9, 3.805892260702758*^9, 3.815736614811841*^9}, CellLabel->"Out[91]=",ExpressionUUID->"a2245b94-f904-4412-9269-d97a8b76c06f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"2.3", ",", "4.3"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.805792795458452*^9, 3.8057928696992607`*^9}, { 3.8057944048645887`*^9, 3.805794405579506*^9}, {3.80579449738241*^9, 3.805794556047126*^9}, {3.80579470157504*^9, 3.8057947147558727`*^9}, { 3.805892680057773*^9, 3.805892688937986*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"73d67782-17fb-494f-8422-035fcd8eebc6"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 4.1115234375}, {2., 4.0900390625}, {4., 4.0001953125}, {6., 3.8302734375}, {8., 3.6642578125}, {10., 3.5158203125}, {15., 3.2541015625}, {20., 3.1173828125}, {25., 3.0392578125}, {30., 2.9904296875}, {40., 2.9318359375}, {45., 2.9123046875}, {50., 2.8830078125}, {70., 2.8595703125}, {80., 2.8498046875}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 2.3}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 80.}, {2.3, 4.3}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8057928103931503`*^9, 3.8057928702654877`*^9}, 3.805794345720708*^9, 3.80579440625991*^9, 3.805794556721592*^9, 3.805794728256727*^9, 3.805798021873831*^9, 3.805802609349473*^9, 3.8058042180025177`*^9, 3.8058918276504793`*^9, 3.805892260781486*^9, 3.805892689563243*^9, 3.815736614830699*^9}, CellLabel->"Out[92]=",ExpressionUUID->"260f45d4-367f-4007-9547-0dd0abe54754"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dat", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"\[Tau]vals", ",", "ESSres"}], "]"}], ",", "2"}], "]"}]}]], "Input", CellLabel->"In[93]:=",ExpressionUUID->"cffa1043-22a0-44b5-baee-b7e311b2c258"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "4.1115234375`"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4.0900390625`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "4.0001953125`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3.8302734375`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "3.6642578125`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3.5158203125`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "3.2541015625`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "3.1173828125`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3.0392578125`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "2.9904296875`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "2.9318359375`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "2.9123046875`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "2.8830078125`"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "2.8595703125`"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "2.8498046875`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.805798021886361*^9, 3.805802614928673*^9, 3.805804221064156*^9, 3.805891836523778*^9, 3.805892260824175*^9, 3.81573661483879*^9}, CellLabel->"Out[93]=",ExpressionUUID->"c2c81d9c-935e-4544-80fb-1affe1574776"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], "}"}], ",", "dat"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.805797516002461*^9, 3.805797519844634*^9}, { 3.80580223882668*^9, 3.8058022400644073`*^9}, {3.805891747534813*^9, 3.805891748594961*^9}, {3.805891915446104*^9, 3.805891915978297*^9}, { 3.815735846674857*^9, 3.815735846802351*^9}, 3.815736690077115*^9}, CellLabel->"In[95]:=",ExpressionUUID->"5d5a4171-e1eb-4723-95e5-3d292746f382"], Cell[BoxData["\<\"evolution-rv-r2-bisect-selgrad-simus.dat\"\>"], "Output", CellChangeTimes->{3.805798021924312*^9, 3.8058026164975567`*^9, 3.80580422192351*^9, 3.8058918392113113`*^9, 3.805892260886425*^9, 3.8157366148517714`*^9, 3.815736690592198*^9}, CellLabel->"Out[95]=",ExpressionUUID->"c7966735-8d05-48b4-8162-dd078b55bbd2"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1440, 747}, WindowMargins->{{1147.2, Automatic}, {Automatic, -4.8}}, Magnification:>0.75 Inherited, FrontEndVersion->"12.2 pour Microsoft Windows (64-bit) (December 12, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"c0701e2a-329e-4c3d-af53-373f5c8348cc" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 385, 8, 50, "Section",ExpressionUUID->"f42cae73-91e9-42a8-8f23-ba6a2d08f1f4"], Cell[968, 32, 307, 5, 40, "Subsection",ExpressionUUID->"61e0b6aa-c851-4f34-8916-ed96808a1165"] }, Open ]], Cell[CellGroupData[{ Cell[1312, 42, 452, 6, 31, "Subtitle",ExpressionUUID->"71a1ce96-56e3-4cc5-b9f2-de194eb3e1c4"], Cell[1767, 50, 2718, 47, 34, "Input",ExpressionUUID->"2d8f61e1-40aa-434f-8397-6060d9be6ced"] }, Open ]], Cell[CellGroupData[{ Cell[4522, 102, 398, 6, 31, "Subtitle",ExpressionUUID->"f5f5c336-5617-47fc-84d4-1096aadcb337"], Cell[4923, 110, 3104, 63, 51, "Input",ExpressionUUID->"20ac4b63-84ac-42af-b541-5d63deab8036"] }, Open ]], Cell[CellGroupData[{ Cell[8064, 178, 416, 7, 31, "Subtitle",ExpressionUUID->"d43d0eec-a4cd-494b-81dd-2e23279ae6f1"], Cell[8483, 187, 458, 13, 37, "Input",ExpressionUUID->"67466644-af97-4096-a449-8e30b447d5d6"] }, Open ]], Cell[CellGroupData[{ Cell[8978, 205, 456, 6, 31, "Subtitle",ExpressionUUID->"f20b1427-8ad1-4e23-9be8-5a1e5fd14e26"], Cell[9437, 213, 1219, 37, 21, "Input",ExpressionUUID->"107254bb-8189-4a71-9136-aab15cbbc288"], Cell[CellGroupData[{ Cell[10681, 254, 389, 6, 40, "Subsection",ExpressionUUID->"ee4eb5d9-eec4-4cb6-8d1b-4b2c5a614698"], Cell[11073, 262, 2490, 35, 21, "Input",ExpressionUUID->"3d659937-d48a-4467-ad20-7d8a3614b624"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13612, 303, 1494, 40, 31, "Subtitle",ExpressionUUID->"992e5632-df1a-4bed-9b6a-dde022efe954"], Cell[15109, 345, 4381, 67, 21, "Input",ExpressionUUID->"dcf56d4e-654f-4e0e-b6bd-bba0b66f0b3d"] }, Open ]], Cell[CellGroupData[{ Cell[19527, 417, 492, 7, 31, "Subtitle",ExpressionUUID->"20b36f03-93f4-461c-8310-b15a11d54b00"], Cell[20022, 426, 4527, 72, 21, "Input",ExpressionUUID->"49b0541c-73e4-4ff7-972b-db00e9138be0"] }, Open ]], Cell[CellGroupData[{ Cell[24586, 503, 565, 9, 31, "Subtitle",ExpressionUUID->"4fa2d420-7d7f-42a6-b1c2-39bc2c7448da"], Cell[25154, 514, 6297, 126, 65, "Input",ExpressionUUID->"6a0bb853-33d4-4a3d-a13b-385e8095a606"] }, Open ]], Cell[CellGroupData[{ Cell[31488, 645, 568, 9, 31, "Subtitle",ExpressionUUID->"e67fa33b-0594-48b2-99a7-71b237661271"], Cell[32059, 656, 6340, 126, 65, "Input",ExpressionUUID->"9da8e444-f704-48d4-8c27-d5247d721b51"] }, Open ]], Cell[CellGroupData[{ Cell[38436, 787, 743, 11, 31, "Subtitle",ExpressionUUID->"fa0d1ae8-fafe-407f-b040-8677feeb7642"], Cell[39182, 800, 6059, 170, 430, "Input",ExpressionUUID->"8b8830cf-2c63-45b0-8ffb-7c32396d0b6c"] }, Open ]], Cell[CellGroupData[{ Cell[45278, 975, 630, 9, 31, "Subtitle",ExpressionUUID->"ce3f35d4-7026-455c-840b-7002eb578d59"], Cell[45911, 986, 13561, 334, 640, "Input",ExpressionUUID->"5f407e53-99e1-40c0-bbff-468c8311367d"], Cell[CellGroupData[{ Cell[59497, 1324, 321, 7, 22, "Input",ExpressionUUID->"5d6baa7c-194a-435a-ad7b-b893429d2230"], Cell[59821, 1333, 240, 6, 24, "Output",ExpressionUUID->"220ef8c9-9a9e-49c0-aaa2-e34582e3a02b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60110, 1345, 638, 9, 31, "Subtitle",ExpressionUUID->"499a9544-988b-45b8-ac16-b3d9af7a425c"], Cell[60751, 1356, 3056, 74, 262, "Input",ExpressionUUID->"c0a35e30-d0b6-4c94-b495-8f9cf128862d"], Cell[CellGroupData[{ Cell[63832, 1434, 525, 7, 40, "Subsection",ExpressionUUID->"5bbe387c-1473-4e3f-826f-a25ebd786c98"], Cell[64360, 1443, 3002, 86, 198, "Input",ExpressionUUID->"8ec338f4-5d7b-4479-97d2-4de3cdc6b6b9"], Cell[67365, 1531, 469, 11, 34, "Input",ExpressionUUID->"ff3d8514-990f-43c3-8c7a-6a7300224bca"] }, Open ]], Cell[CellGroupData[{ Cell[67871, 1547, 444, 7, 40, "Subsection",ExpressionUUID->"d571be10-5d68-4e5f-b110-ccf528a682b8"], Cell[68318, 1556, 3162, 84, 305, "Input",ExpressionUUID->"eac89cb3-fc68-4d05-85b8-3fe52cbbc933"], Cell[71483, 1642, 203, 4, 21, "Input",ExpressionUUID->"3e88f5d0-18d4-488a-9571-b1eab58353f7"] }, Open ]], Cell[CellGroupData[{ Cell[71723, 1651, 450, 9, 50, "Section",ExpressionUUID->"38fb593c-56ea-42a6-9402-f8ec4a1817cf"], Cell[72176, 1662, 365, 8, 26, "Text",ExpressionUUID->"2b6a6422-bb21-412d-ad59-5f3b3ea596ae"], Cell[CellGroupData[{ Cell[72566, 1674, 167, 3, 34, "Subsubsection",ExpressionUUID->"e0afe794-b3b1-42c6-a1e3-58af4d263041"], Cell[72736, 1679, 233, 4, 26, "Text",ExpressionUUID->"ebcb22ae-fd1a-45a5-99e9-63bbf6fc9c7e"], Cell[72972, 1685, 611, 17, 34, "Input",ExpressionUUID->"b0c09794-9a07-408b-94c0-3717550614fc"], Cell[73586, 1704, 8132, 233, 149, "Input",ExpressionUUID->"5abd6d50-62e2-489b-a8ee-50e045e75a0f"], Cell[81721, 1939, 172, 3, 26, "Text",ExpressionUUID->"a72647a4-27f8-4a1a-8d43-31b36497ab2e"], Cell[81896, 1944, 2328, 75, 106, "Input",ExpressionUUID->"a162c2d1-e938-48e5-abda-5dd57267db1b"], Cell[84227, 2021, 176, 3, 26, "Text",ExpressionUUID->"07177345-de00-4333-bed3-6318bb99fda1"], Cell[84406, 2026, 926, 17, 34, "Input",ExpressionUUID->"4ceb9aec-971c-4a48-83bd-23fe859f69b0"], Cell[85335, 2045, 659, 16, 34, "Input",ExpressionUUID->"8b1b68d9-bac5-4030-97d3-0ac98b4eb43d"], Cell[85997, 2063, 164, 3, 26, "Text",ExpressionUUID->"0f5aee10-6261-4247-8c72-28be34bbe7ba"], Cell[86164, 2068, 2900, 78, 50, "Input",ExpressionUUID->"3fd8df0b-747e-4246-8d00-d8607fca0a3f"] }, Open ]], Cell[CellGroupData[{ Cell[89101, 2151, 386, 5, 34, "Subsubsection",ExpressionUUID->"94388798-2ab0-42b6-b935-e4df7b77ed37"], Cell[89490, 2158, 226, 5, 26, "Text",ExpressionUUID->"4aafe998-1902-4025-a138-f9b21d1ecf25"], Cell[89719, 2165, 3559, 89, 119, "Input",ExpressionUUID->"a6732dcd-f09c-49d4-b6a6-6d45fc823ed5"], Cell[CellGroupData[{ Cell[93303, 2258, 358, 8, 34, "Input",ExpressionUUID->"c54c2287-be15-4658-b960-bfcaa77ac8b9"], Cell[93664, 2268, 377, 5, 24, "Output",ExpressionUUID->"34d4e1c5-237a-41dd-a538-0501fa0b7cf1"] }, Open ]], Cell[94056, 2276, 906, 21, 36, "Input",ExpressionUUID->"631315e6-74ad-40e6-aa33-895dcb1ceeaa"], Cell[94965, 2299, 5050, 105, 359, "Input",ExpressionUUID->"e6f9b31f-da17-4d74-b800-5f311018c2c5"], Cell[CellGroupData[{ Cell[100040, 2408, 984, 21, 48, "Input",ExpressionUUID->"06052a84-d629-4786-9798-ca83303f08e4"], Cell[CellGroupData[{ Cell[101049, 2433, 438, 9, 21, "Print",ExpressionUUID->"740ac7ff-3528-47f4-a3bd-49c4b295793f"], Cell[101490, 2444, 460, 10, 21, "Print",ExpressionUUID->"06cde767-58fc-444e-8606-3bb4358fb624"], Cell[101953, 2456, 487, 9, 21, "Print",ExpressionUUID->"f58208da-5ea2-4847-9ad6-7f1575d135ec"] }, Open ]], Cell[102455, 2468, 835, 16, 18, "Message",ExpressionUUID->"408b52c8-d3fc-406a-9999-ab2c3bbe1f60"], Cell[103293, 2486, 496, 10, 21, "Print",ExpressionUUID->"cad9edac-4313-470f-93d8-2f192d8f797c"], Cell[103792, 2498, 823, 16, 18, "Message",ExpressionUUID->"413260ce-ab73-4a7c-8405-9017afc41092"], Cell[104618, 2516, 468, 10, 21, "Print",ExpressionUUID->"ab20a4c9-d878-469c-b59f-c9fa0a159279"], Cell[105089, 2528, 835, 16, 18, "Message",ExpressionUUID->"56d3de87-2216-4548-9d7d-9726456c43b4"], Cell[105927, 2546, 522, 11, 18, "Message",ExpressionUUID->"82d45806-be8a-49dc-8504-295cad37f014"], Cell[CellGroupData[{ Cell[106474, 2561, 470, 9, 21, "Print",ExpressionUUID->"45b57a40-3049-4d9a-a852-bd6427bd1492"], Cell[106947, 2572, 463, 10, 21, "Print",ExpressionUUID->"7ad8fd2f-1f52-4510-9b34-72ca0b40e611"], Cell[107413, 2584, 473, 10, 21, "Print",ExpressionUUID->"bf0800b2-3a9d-4192-950a-67ac0753246f"], Cell[107889, 2596, 482, 10, 21, "Print",ExpressionUUID->"30b80458-a2f9-4242-8114-3743310f56db"], Cell[108374, 2608, 491, 10, 21, "Print",ExpressionUUID->"b85d8c03-883e-4301-9d67-85165a5516f1"], Cell[108868, 2620, 440, 9, 21, "Print",ExpressionUUID->"66e8129d-4c7f-41ba-a81b-707a18907913"], Cell[109311, 2631, 460, 10, 21, "Print",ExpressionUUID->"fd3bf766-e9ed-41fc-a4ae-9b0bcb31b724"], Cell[109774, 2643, 486, 9, 21, "Print",ExpressionUUID->"aaa73e39-78d6-47d5-b740-a5f22d4b7b76"], Cell[110263, 2654, 493, 10, 21, "Print",ExpressionUUID->"e8f221d0-6b88-4174-8f43-32c08b86d4d5"], Cell[110759, 2666, 480, 9, 21, "Print",ExpressionUUID->"1bd1a7ce-c9ad-487f-b36c-fda5c932b595"], Cell[111242, 2677, 479, 10, 21, "Print",ExpressionUUID->"d9d6a98f-e67b-4028-a1f5-1bdb1e7bcd49"], Cell[111724, 2689, 472, 10, 21, "Print",ExpressionUUID->"2e0c1def-baf6-4461-8d6c-8afcc0f6b107"], Cell[112199, 2701, 464, 10, 21, "Print",ExpressionUUID->"0893cbf6-5177-4f03-920f-4dc5366bd190"], Cell[112666, 2713, 467, 10, 21, "Print",ExpressionUUID->"8a60ca26-4977-4d35-bf1e-be6b2802a993"], Cell[113136, 2725, 469, 10, 21, "Print",ExpressionUUID->"8e7af19e-1ac3-4ab5-971a-4d93a00035a3"], Cell[113608, 2737, 438, 9, 21, "Print",ExpressionUUID->"ec9c34d7-103d-4886-96ea-a25ff52368f8"], Cell[114049, 2748, 472, 9, 21, "Print",ExpressionUUID->"d6f0b3b4-885d-443b-80f2-1b0af4f36fcd"], Cell[114524, 2759, 464, 10, 21, "Print",ExpressionUUID->"4b8247c3-c5af-44a9-a16f-7489b9e9f755"], Cell[114991, 2771, 478, 10, 21, "Print",ExpressionUUID->"5e6819a5-7906-41da-b80a-cc0c3785e8be"], Cell[115472, 2783, 489, 10, 21, "Print",ExpressionUUID->"4c4fcce1-2e7f-48d0-973a-a0e72d132c5c"], Cell[115964, 2795, 483, 10, 21, "Print",ExpressionUUID->"39f94c89-6629-4264-933d-42b94d744d62"], Cell[116450, 2807, 473, 10, 21, "Print",ExpressionUUID->"57a0eadd-2270-4a21-8c44-215b7a10bf1c"], Cell[116926, 2819, 481, 10, 21, "Print",ExpressionUUID->"4eb80963-4868-4122-98d3-5a652d962332"], Cell[117410, 2831, 492, 10, 21, "Print",ExpressionUUID->"494543e7-d181-4355-a5ed-f791d93914a7"], Cell[117905, 2843, 503, 11, 21, "Print",ExpressionUUID->"b9a13c15-cb17-4bf9-be45-45f5d414e4cb"], Cell[118411, 2856, 440, 9, 21, "Print",ExpressionUUID->"16648d8d-775d-4fd5-8b76-5e894ce2eb2d"], Cell[118854, 2867, 472, 9, 21, "Print",ExpressionUUID->"fc465c49-3c9a-4f8f-98cf-8dcaa896cd9f"], Cell[119329, 2878, 464, 10, 21, "Print",ExpressionUUID->"2486330f-35e9-43e6-b4aa-a4513b51fc8d"], Cell[119796, 2890, 477, 10, 21, "Print",ExpressionUUID->"e4d3a906-ed2a-4d38-91fb-73cec8c6c28c"], Cell[120276, 2902, 509, 11, 21, "Print",ExpressionUUID->"7555cca7-9ce5-4d60-9025-9911d8cf0400"], Cell[120788, 2915, 489, 10, 21, "Print",ExpressionUUID->"d71fe5cb-7ace-4139-95f8-890160b0e22c"], Cell[121280, 2927, 490, 10, 21, "Print",ExpressionUUID->"73756f12-a816-47f3-88cd-19447cd21302"], Cell[121773, 2939, 492, 10, 21, "Print",ExpressionUUID->"8ca94c44-178b-4b88-8e13-be5fd1656d4a"], Cell[122268, 2951, 509, 11, 21, "Print",ExpressionUUID->"773a86cb-1a1b-4ce7-97ef-cd464b7d6b3f"], Cell[122780, 2964, 490, 10, 21, "Print",ExpressionUUID->"296e39c0-a4fb-4f1f-8f4f-c352dc1060f8"], Cell[123273, 2976, 438, 9, 21, "Print",ExpressionUUID->"19e31750-8ce1-4d8a-81fa-62ec66a412a3"], Cell[123714, 2987, 473, 9, 21, "Print",ExpressionUUID->"22fe52db-5a46-4748-9d32-f9dbf3a85c3a"], Cell[124190, 2998, 466, 10, 21, "Print",ExpressionUUID->"50fc9994-f4fa-4f6f-88a7-51e0f9cf52af"], Cell[124659, 3010, 479, 10, 21, "Print",ExpressionUUID->"a43577e3-18e8-435e-8ff3-450b5a3e59d6"], Cell[125141, 3022, 508, 11, 21, "Print",ExpressionUUID->"da7a745c-2611-494c-89ec-ee5b28868e7e"], Cell[125652, 3035, 509, 11, 21, "Print",ExpressionUUID->"e967706f-eb5d-44c4-8a88-79443624e5bd"], Cell[126164, 3048, 503, 11, 21, "Print",ExpressionUUID->"517edbab-e689-4242-aa86-37751e710d03"], Cell[126670, 3061, 500, 11, 21, "Print",ExpressionUUID->"46720121-75d9-47fb-a87c-f228cc3e1582"], Cell[127173, 3074, 509, 11, 21, "Print",ExpressionUUID->"4676cc61-2402-428f-9c15-fe965068ae1e"], Cell[127685, 3087, 509, 11, 21, "Print",ExpressionUUID->"de3e18b4-47e1-4c85-9281-49f905cb1a2b"], Cell[128197, 3100, 440, 9, 21, "Print",ExpressionUUID->"e2e00c43-4c38-48e6-9a8e-bc909e6d98df"], Cell[128640, 3111, 472, 9, 21, "Print",ExpressionUUID->"98ce8cb9-0d2d-43b5-a73f-d721629569c4"], Cell[129115, 3122, 462, 10, 21, "Print",ExpressionUUID->"f70d3781-99eb-4024-abeb-1a8d88951adf"], Cell[129580, 3134, 491, 10, 21, "Print",ExpressionUUID->"ee6c241a-69f7-46d5-b19e-db8c5b29298f"], Cell[130074, 3146, 470, 10, 21, "Print",ExpressionUUID->"ddf57ab2-ad41-4574-aa6d-91919a751cf8"], Cell[130547, 3158, 497, 10, 21, "Print",ExpressionUUID->"10ab3cec-fbef-41ee-9f97-be8ce2532a8d"], Cell[131047, 3170, 484, 9, 21, "Print",ExpressionUUID->"e269ef35-8134-42e8-8bc0-7b10271f2111"], Cell[131534, 3181, 464, 10, 21, "Print",ExpressionUUID->"23c3b7a0-caba-4fb7-ba50-6760aa4e610b"], Cell[132001, 3193, 469, 10, 21, "Print",ExpressionUUID->"8783541a-e274-4c1b-b82c-1b2c1a640b43"], Cell[132473, 3205, 471, 10, 21, "Print",ExpressionUUID->"017faf5f-43a6-4e06-b4fc-fc9d72f96af2"], Cell[132947, 3217, 441, 9, 21, "Print",ExpressionUUID->"29630abd-b88b-419d-8366-0b1fa00beeca"], Cell[133391, 3228, 473, 9, 21, "Print",ExpressionUUID->"664804a3-aebe-460f-8e0c-3a528045ca7f"], Cell[133867, 3239, 476, 9, 21, "Print",ExpressionUUID->"dd946b65-8b69-4164-8aad-82c1b8ecfb6e"], Cell[134346, 3250, 452, 10, 21, "Print",ExpressionUUID->"362ddc17-6a10-47d8-8ee5-b3bcf1f69017"], Cell[134801, 3262, 456, 10, 21, "Print",ExpressionUUID->"cf315a56-2370-4de8-a2d7-0f6135a20a7f"], Cell[135260, 3274, 458, 10, 21, "Print",ExpressionUUID->"68836519-01d6-411c-a107-2d4ffc954ba9"], Cell[135721, 3286, 459, 10, 21, "Print",ExpressionUUID->"488ca8fd-0948-4607-9d52-46aebad0fe2c"], Cell[136183, 3298, 474, 9, 21, "Print",ExpressionUUID->"4ddfc320-7eed-4451-8394-219e269d810b"], Cell[136660, 3309, 488, 9, 21, "Print",ExpressionUUID->"eb31bc50-17a7-49fb-bfd7-71fd4802dc73"], Cell[137151, 3320, 483, 10, 21, "Print",ExpressionUUID->"d0c84439-dfa3-4f4e-a729-6ea8e175cb71"], Cell[137637, 3332, 441, 9, 21, "Print",ExpressionUUID->"240f4bde-48a8-48ef-9a72-1168a98d2c9c"], Cell[138081, 3343, 472, 9, 21, "Print",ExpressionUUID->"292b9735-e677-4897-9685-e431ebcd193f"], Cell[138556, 3354, 475, 9, 21, "Print",ExpressionUUID->"0366f922-cba8-4f12-bcf4-f63c4a1db5c0"], Cell[139034, 3365, 453, 10, 21, "Print",ExpressionUUID->"1b62e2d3-19db-4311-8a05-7a2f80eaaf08"], Cell[139490, 3377, 471, 9, 21, "Print",ExpressionUUID->"613ef5e4-9760-4684-b68f-43c101fc84ac"], Cell[139964, 3388, 460, 10, 21, "Print",ExpressionUUID->"98c98fc0-48c4-4e66-8bd5-a7eb80b5b496"], Cell[140427, 3400, 462, 10, 21, "Print",ExpressionUUID->"111a8a9b-c002-4437-a4a4-1f3751420038"], Cell[140892, 3412, 464, 10, 21, "Print",ExpressionUUID->"2dd577ef-ba4e-4b6a-a3e2-9e052106283b"], Cell[141359, 3424, 472, 10, 21, "Print",ExpressionUUID->"b6428520-3593-469b-aedf-2a5893b4fda1"], Cell[141834, 3436, 493, 10, 21, "Print",ExpressionUUID->"d61fab5e-050f-4d38-b5eb-5d0b26a57d6c"], Cell[142330, 3448, 440, 9, 21, "Print",ExpressionUUID->"b3bba576-77e2-45cf-81c3-c423409afb66"], Cell[142773, 3459, 472, 9, 21, "Print",ExpressionUUID->"3fe300a4-bb80-425c-8682-dce6b56848a0"], Cell[143248, 3470, 476, 9, 21, "Print",ExpressionUUID->"751c0d55-18f8-4185-9882-166e76bce578"], Cell[143727, 3481, 465, 9, 21, "Print",ExpressionUUID->"78e5a193-3654-462d-9276-056de6582175"], Cell[144195, 3492, 464, 10, 21, "Print",ExpressionUUID->"8ad4320c-7ee1-4655-9c2a-44038e8660d1"], Cell[144662, 3504, 470, 10, 21, "Print",ExpressionUUID->"55e9a831-84a4-40a9-8c4c-6ffcc9be62fe"], Cell[145135, 3516, 476, 9, 21, "Print",ExpressionUUID->"c39ac380-2293-4482-b4e7-226d31eb192c"], Cell[145614, 3527, 476, 9, 21, "Print",ExpressionUUID->"f6b0a10a-bb63-4ab9-b734-35e51586d6fd"], Cell[146093, 3538, 468, 10, 21, "Print",ExpressionUUID->"55222d9e-39a3-47ce-9ff1-c27ceda1c50a"], Cell[146564, 3550, 472, 10, 21, "Print",ExpressionUUID->"33bef0fb-bb95-4fb1-a0f6-96d38e12c93c"], Cell[147039, 3562, 437, 9, 21, "Print",ExpressionUUID->"225add82-f15e-4ca2-b5f2-57c1ce5995c7"], Cell[147479, 3573, 473, 9, 21, "Print",ExpressionUUID->"62cb6fd8-e460-48df-a679-24d84068a3c4"], Cell[147955, 3584, 475, 9, 21, "Print",ExpressionUUID->"180251bc-0fe3-447d-8e80-c33065c39a87"], Cell[148433, 3595, 465, 9, 21, "Print",ExpressionUUID->"07545391-84c8-488d-868b-59a9bbad0721"], Cell[148901, 3606, 476, 9, 21, "Print",ExpressionUUID->"e0161f13-d2ac-400a-b261-d3039c434503"], Cell[149380, 3617, 475, 10, 21, "Print",ExpressionUUID->"cec16c06-5a1c-4c7e-8fc4-30484f932c10"], Cell[149858, 3629, 489, 10, 21, "Print",ExpressionUUID->"aceee871-b9aa-4724-a605-eed7d63e9d77"], Cell[150350, 3641, 490, 10, 21, "Print",ExpressionUUID->"8499b686-8275-4dd0-beef-cf2bab66cbdb"], Cell[150843, 3653, 484, 10, 21, "Print",ExpressionUUID->"b9ae594e-da21-49a6-b726-f613d2aa7804"], Cell[151330, 3665, 483, 10, 21, "Print",ExpressionUUID->"3d887cb9-e792-41a0-8127-f2e94cb4c46d"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[151862, 3681, 177, 2, 21, "Input",ExpressionUUID->"fce2fd0b-ee5d-46b4-8206-b8f0d657d2ae"], Cell[152042, 3685, 575, 10, 24, "Output",ExpressionUUID->"f7b55366-779d-4cbd-ab6e-251c84383978"] }, Open ]], Cell[CellGroupData[{ Cell[152654, 3700, 942, 24, 34, "Input",ExpressionUUID->"54c1d47e-3c46-4747-8a3e-581dfb5ab5c2"], Cell[153599, 3726, 1832, 45, 191, "Output",ExpressionUUID->"c7d43cc3-8b9d-482a-b96d-fe70b63555ca"] }, Open ]], Cell[CellGroupData[{ Cell[155468, 3776, 269, 7, 34, "Input",ExpressionUUID->"3c85c511-ac62-4348-a52a-f44ae639f05e"], Cell[155740, 3785, 1006, 25, 24, "Output",ExpressionUUID->"45a23c02-14d7-443a-8bce-98421feef3ed"] }, Open ]], Cell[CellGroupData[{ Cell[156783, 3815, 529, 12, 34, "Input",ExpressionUUID->"73a0927a-4759-4389-8580-e5d4aa41cf5f"], Cell[157315, 3829, 258, 3, 24, "Output",ExpressionUUID->"9a448b35-43c4-42b8-9cfc-c906d9a213fd"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[157622, 3838, 476, 8, 34, "Subsubsection",ExpressionUUID->"711c77d4-db32-49cd-960b-db4eb31f2a51"], Cell[158101, 3848, 236, 6, 26, "Text",ExpressionUUID->"6fd13928-fd21-4b85-8e96-46bbeb863105"], Cell[CellGroupData[{ Cell[158362, 3858, 358, 8, 34, "Input",ExpressionUUID->"4f9dd85a-1e67-41fa-a938-d42e18cd2dff"], Cell[158723, 3868, 377, 5, 24, "Output",ExpressionUUID->"01872dbc-deae-46c5-bd89-5328d9833d88"] }, Open ]], Cell[159115, 3876, 871, 19, 22, "Input",ExpressionUUID->"d934069b-25b2-49f3-b64d-7f21a5c67795"], Cell[159989, 3897, 3462, 114, 177, "Input",ExpressionUUID->"b192f875-5bc6-4cfa-96ec-ca3a03af9649"], Cell[163454, 4013, 2847, 77, 135, "Input",ExpressionUUID->"e4a85fbb-b164-42e0-a2d6-c343e095f67e"], Cell[CellGroupData[{ Cell[166326, 4094, 849, 25, 34, "Input",ExpressionUUID->"38234db2-a20c-416e-8202-a69275fa6f9d"], Cell[167178, 4121, 422, 8, 38, "Output",ExpressionUUID->"b5a68459-8223-49b2-b3b2-bfedc26e8b57"] }, Open ]], Cell[CellGroupData[{ Cell[167637, 4134, 851, 25, 34, "Input",ExpressionUUID->"646924fd-9dfe-41ff-85e0-b55366a77e1d"], Cell[168491, 4161, 561, 13, 40, "Output",ExpressionUUID->"32f3f907-94ba-4753-8258-a26aa321bb74"] }, Open ]], Cell[169067, 4177, 1062, 24, 34, "Input",ExpressionUUID->"ffa037e5-66d9-4de3-ad22-2b769f4fa509"], Cell[170132, 4203, 4644, 93, 317, "Input",ExpressionUUID->"48e54921-3ad7-4ea8-bd0d-7a514bdc0464"], Cell[CellGroupData[{ Cell[174801, 4300, 1146, 24, 48, "Input",ExpressionUUID->"0479df44-a3fd-4067-a37c-f246717d02b1"], Cell[CellGroupData[{ Cell[175972, 4328, 414, 9, 18, "Print",ExpressionUUID->"624961ec-31af-41c2-a561-b1260a690b34"], Cell[176389, 4339, 437, 10, 18, "Print",ExpressionUUID->"2166c630-b1d3-4ee7-842b-deddf6d3fd82"], Cell[176829, 4351, 462, 9, 18, "Print",ExpressionUUID->"026c8652-f883-4320-966f-7ea29c3c8443"], Cell[177294, 4362, 470, 10, 18, "Print",ExpressionUUID->"15fe42c2-8ba0-409d-a55d-916bcd5148f1"], Cell[177767, 4374, 448, 10, 18, "Print",ExpressionUUID->"1818cd54-fe0d-4c0a-8558-4a0a3f533423"], Cell[178218, 4386, 450, 9, 18, "Print",ExpressionUUID->"9bdd3efc-824a-485d-a670-bd70499a2489"], Cell[178671, 4397, 442, 10, 18, "Print",ExpressionUUID->"71940573-9fd1-4db3-a51d-f41fabcd42d4"], Cell[179116, 4409, 449, 10, 18, "Print",ExpressionUUID->"ef5237de-3da4-4ae3-b84d-55f248f311db"], Cell[179568, 4421, 458, 10, 18, "Print",ExpressionUUID->"aaa5a9a4-118a-4d0c-9303-0b442d9c905d"], Cell[180029, 4433, 454, 10, 18, "Print",ExpressionUUID->"f40acc11-5f0d-4071-b7fa-0ae2341697d2"], Cell[180486, 4445, 414, 9, 18, "Print",ExpressionUUID->"3fd22da7-baba-4d5b-b838-fde52d08f2be"], Cell[180903, 4456, 437, 10, 18, "Print",ExpressionUUID->"58f4e36b-9314-4e53-92f1-45261c10625d"], Cell[181343, 4468, 465, 9, 18, "Print",ExpressionUUID->"a5e3b926-9cc6-40a6-977f-37b404f1476f"], Cell[181811, 4479, 471, 10, 18, "Print",ExpressionUUID->"f14b8586-2fbd-4c6b-8555-f9767a49c632"], Cell[182285, 4491, 448, 10, 18, "Print",ExpressionUUID->"f0301a96-6a9e-4d89-861c-f91a4fd29d7f"], Cell[182736, 4503, 451, 9, 18, "Print",ExpressionUUID->"b8db26cc-d948-4fe8-948f-c463f7df6196"], Cell[183190, 4514, 452, 9, 18, "Print",ExpressionUUID->"d0ff6ecd-bee3-43b3-ab74-0b67fe94eca8"], Cell[183645, 4525, 441, 10, 18, "Print",ExpressionUUID->"3c4f68e2-db03-41cc-9e63-668ec451f159"], Cell[184089, 4537, 446, 10, 18, "Print",ExpressionUUID->"3330e702-16b9-4fbe-bdf8-0df191e4212e"], Cell[184538, 4549, 456, 10, 18, "Print",ExpressionUUID->"753a496d-7c5b-40b3-993c-5629090d2c11"], Cell[184997, 4561, 414, 9, 18, "Print",ExpressionUUID->"bf8a287e-2ee8-4ca7-8226-2c372d18ff10"], Cell[185414, 4572, 439, 10, 18, "Print",ExpressionUUID->"65ed5f02-5526-4b85-a2c1-e0c0f20be20d"], Cell[185856, 4584, 463, 9, 18, "Print",ExpressionUUID->"3e71e495-f56c-47ec-9e64-96b0b777d357"], Cell[186322, 4595, 468, 10, 18, "Print",ExpressionUUID->"c756535e-a0cc-4d14-a376-3869c3968308"], Cell[186793, 4607, 458, 9, 18, "Print",ExpressionUUID->"c172df91-3e6a-43ea-ab6b-9a0d5b53e60f"], Cell[187254, 4618, 473, 10, 18, "Print",ExpressionUUID->"d66e1977-9327-4df0-9dbb-f393a5c99a9b"], Cell[187730, 4630, 466, 10, 18, "Print",ExpressionUUID->"66813678-4c16-4d16-8d54-bd3dfff60c49"], Cell[188199, 4642, 467, 10, 18, "Print",ExpressionUUID->"45d64ae7-b2a6-4a86-8790-2390f24c4bda"], Cell[188669, 4654, 462, 10, 18, "Print",ExpressionUUID->"656c96a6-05d0-4b8d-92ab-6ea8c0e8a989"], Cell[189134, 4666, 483, 11, 18, "Print",ExpressionUUID->"431e209c-3a43-4e2a-ab35-7d5c09463951"], Cell[189620, 4679, 416, 9, 18, "Print",ExpressionUUID->"e209b7ee-b1de-4501-842f-42a8f3f3c538"], Cell[190039, 4690, 450, 9, 18, "Print",ExpressionUUID->"1d21fa81-3f43-484c-bae9-40483857fad7"], Cell[190492, 4701, 440, 10, 18, "Print",ExpressionUUID->"2631915d-b8fb-474a-8774-657da4812f46"], Cell[190935, 4713, 454, 10, 18, "Print",ExpressionUUID->"e68ebdf5-a9f7-4d9e-a4d4-6531957e574a"], Cell[191392, 4725, 467, 10, 18, "Print",ExpressionUUID->"b50b1c1a-f838-4d70-96a9-f02b73858ab2"], Cell[191862, 4737, 459, 10, 18, "Print",ExpressionUUID->"f0ca7900-b09f-41fe-9e5a-7712775d9f29"], Cell[192324, 4749, 461, 9, 18, "Print",ExpressionUUID->"5cb463dc-a332-4933-950a-981e82dd4cba"], Cell[192788, 4760, 455, 9, 18, "Print",ExpressionUUID->"366b2170-a8b6-4897-aa18-945d5c134b75"], Cell[193246, 4771, 452, 10, 18, "Print",ExpressionUUID->"67f9a78b-6f3c-4d23-a926-fa7031a562b4"], Cell[193701, 4783, 471, 10, 18, "Print",ExpressionUUID->"98a0cfb2-2ca7-4ea5-bc11-83542634a6c4"], Cell[194175, 4795, 414, 9, 18, "Print",ExpressionUUID->"0e4ca826-425d-40b7-8c78-4bae198e8e4c"], Cell[194592, 4806, 449, 9, 18, "Print",ExpressionUUID->"a0f08d11-a86b-4e72-9dbd-08dd4c2d1d6e"], Cell[195044, 4817, 439, 10, 18, "Print",ExpressionUUID->"046a6e57-b46e-4edc-9980-906b7fff3ad0"], Cell[195486, 4829, 456, 10, 18, "Print",ExpressionUUID->"c990ebcd-a235-4dd0-ace7-7f7dea733ebb"], Cell[195945, 4841, 486, 11, 18, "Print",ExpressionUUID->"ff8ff412-edac-4b1d-a0da-cee33d56f3b5"], Cell[196434, 4854, 467, 10, 18, "Print",ExpressionUUID->"5147b8f9-62b0-4036-b90b-a8b36c2ef277"], Cell[196904, 4866, 487, 11, 18, "Print",ExpressionUUID->"42ecf7d3-295f-48fe-9e23-f165d3fc9a96"], Cell[197394, 4879, 467, 10, 18, "Print",ExpressionUUID->"f165399c-54e6-4663-a6c5-9ede9f85e286"], Cell[197864, 4891, 468, 10, 18, "Print",ExpressionUUID->"320f9fd4-cd53-41fb-b552-9d0ec92c6f9a"], Cell[198335, 4903, 464, 10, 21, "Print",ExpressionUUID->"cc5ad94b-3df3-4c8d-9255-48c5dce863f6"], Cell[198802, 4915, 414, 9, 18, "Print",ExpressionUUID->"d94b4f09-fdb8-45e3-a486-9da2e1d034c8"], Cell[199219, 4926, 449, 9, 18, "Print",ExpressionUUID->"36c39ac0-3265-45aa-85a9-38cd109f83bc"], Cell[199671, 4937, 439, 10, 18, "Print",ExpressionUUID->"68c92a34-2962-4779-8e15-f96612f77c64"], Cell[200113, 4949, 470, 10, 18, "Print",ExpressionUUID->"3a7d8c2a-ab92-48e6-ae3c-3a9f6b01432c"], Cell[200586, 4961, 445, 10, 18, "Print",ExpressionUUID->"4642533b-946d-4f7a-b4ad-980ce7607657"], Cell[201034, 4973, 457, 10, 18, "Print",ExpressionUUID->"66a84e4f-de77-4667-b7f4-f60d004b7f3b"], Cell[201494, 4985, 467, 10, 18, "Print",ExpressionUUID->"99c71ec2-97e4-4e48-afe4-00285e6df0f1"], Cell[201964, 4997, 467, 10, 18, "Print",ExpressionUUID->"0def1223-6491-4db7-b7d8-74e06a633efe"], Cell[202434, 5009, 462, 10, 18, "Print",ExpressionUUID->"bd40c392-be37-4ff7-985d-c2a83fb8e54c"], Cell[202899, 5021, 480, 11, 18, "Print",ExpressionUUID->"c664d24e-8015-4e95-a053-e3cddb41e4c9"], Cell[203382, 5034, 416, 9, 18, "Print",ExpressionUUID->"b1882205-4478-400b-b0f6-a03e86cc8623"], Cell[203801, 5045, 448, 9, 18, "Print",ExpressionUUID->"6d092251-5b0a-45bb-98c4-7be9d6d6bce5"], Cell[204252, 5056, 440, 10, 18, "Print",ExpressionUUID->"d71958f5-08e1-4e25-8d9a-4f84d1c21629"], Cell[204695, 5068, 468, 10, 18, "Print",ExpressionUUID->"f427b6d6-8273-48f5-b342-dffd4531cfed"], Cell[205166, 5080, 458, 9, 18, "Print",ExpressionUUID->"0c89537f-fd94-4b33-9a77-eda51c502bb4"], Cell[205627, 5091, 448, 9, 18, "Print",ExpressionUUID->"8d3ebbeb-31a7-4835-a330-e4130143eee4"], Cell[206078, 5102, 437, 10, 18, "Print",ExpressionUUID->"4ccf0377-f15a-45a5-bfdf-c704e76a63d0"], Cell[206518, 5114, 443, 10, 18, "Print",ExpressionUUID->"d5361a2b-2408-43e5-a838-704a6ce3d24f"], Cell[206964, 5126, 453, 10, 21, "Print",ExpressionUUID->"069185bc-04b7-42ee-b446-dc87a939dbf3"], Cell[207420, 5138, 470, 10, 18, "Print",ExpressionUUID->"e767c272-de6f-46ce-b949-c7afe358d59b"], Cell[207893, 5150, 416, 9, 18, "Print",ExpressionUUID->"0f40aa2a-c9ab-47f4-956e-8b63961ad22a"], Cell[208312, 5161, 448, 9, 18, "Print",ExpressionUUID->"c5a3e163-8aa7-49cd-ae0c-fdd7370283df"], Cell[208763, 5172, 452, 9, 18, "Print",ExpressionUUID->"a7fb0856-1e42-4c9d-ad66-a67a4da03159"], Cell[209218, 5183, 428, 10, 18, "Print",ExpressionUUID->"175c0ae2-be4e-4f1e-9403-4510d22bbaed"], Cell[209649, 5195, 434, 10, 18, "Print",ExpressionUUID->"d406d297-4a0b-4298-ac69-b974e369dcf2"], Cell[210086, 5207, 448, 9, 18, "Print",ExpressionUUID->"d66f6772-6226-44a8-94b4-ae11623782a1"], Cell[210537, 5218, 450, 10, 18, "Print",ExpressionUUID->"c1725702-6fb8-47df-bc8a-b1bf735f914e"], Cell[210990, 5230, 451, 10, 18, "Print",ExpressionUUID->"c2ca00f0-cc2d-41a2-9321-ae1b7d2cca8d"], Cell[211444, 5242, 445, 10, 18, "Print",ExpressionUUID->"206e2cfd-ff6b-46d2-88c4-beb288d1371d"], Cell[211892, 5254, 460, 9, 18, "Print",ExpressionUUID->"8e22eb41-c01b-4fc5-b579-753b2e83febe"], Cell[212355, 5265, 416, 9, 18, "Print",ExpressionUUID->"c873c78b-68dc-4729-9b60-a96a691150b3"], Cell[212774, 5276, 448, 9, 18, "Print",ExpressionUUID->"d4f207d4-0941-4061-a7a8-2dbd4d293d53"], Cell[213225, 5287, 452, 9, 18, "Print",ExpressionUUID->"1470524e-777a-47b0-b8e4-fbb48a981829"], Cell[213680, 5298, 428, 10, 18, "Print",ExpressionUUID->"ff44f6f8-5345-41b1-80c0-f38382252c89"], Cell[214111, 5310, 448, 9, 18, "Print",ExpressionUUID->"3b708483-c7f1-4a09-92d3-4f08ff2fa83b"], Cell[214562, 5321, 436, 10, 18, "Print",ExpressionUUID->"734adb67-5420-4d00-8a09-f6cd3683736e"], Cell[215001, 5333, 441, 10, 18, "Print",ExpressionUUID->"a6317fb6-2b87-4037-982e-93ff17de2727"], Cell[215445, 5345, 454, 9, 18, "Print",ExpressionUUID->"a69b9cab-3fc7-4f1b-98cf-c5d554102d4f"], Cell[215902, 5356, 446, 10, 18, "Print",ExpressionUUID->"cfb6f5ba-a913-4023-a1e4-3aa2b1e11237"], Cell[216351, 5368, 464, 9, 18, "Print",ExpressionUUID->"498eb9fc-6d00-4f4b-8002-75a517d2d7aa"], Cell[216818, 5379, 417, 9, 18, "Print",ExpressionUUID->"8cb2c60b-231f-4c4f-b79d-f4f051ee221f"], Cell[217238, 5390, 446, 9, 18, "Print",ExpressionUUID->"e338cc8d-e901-4afe-b5eb-b6a4517535d5"], Cell[217687, 5401, 452, 9, 18, "Print",ExpressionUUID->"f4cbc664-916c-41fe-a53c-473f374a3eb5"], Cell[218142, 5412, 428, 10, 18, "Print",ExpressionUUID->"4c15d14f-4aba-45f9-b9fb-5dd3e4be9f92"], Cell[218573, 5424, 444, 9, 18, "Print",ExpressionUUID->"6c9d0b5f-f47f-4be4-93f0-3bec1cf66fbf"], Cell[219020, 5435, 448, 9, 18, "Print",ExpressionUUID->"0efb13f4-0ce4-45ec-a100-d23d57351671"], Cell[219471, 5446, 447, 10, 18, "Print",ExpressionUUID->"a586e134-955f-4391-8c82-df56af5691d5"], Cell[219921, 5458, 459, 10, 18, "Print",ExpressionUUID->"73a9484d-3054-4067-83c5-1b8b16d8f1c8"], Cell[220383, 5470, 464, 9, 18, "Print",ExpressionUUID->"5fd7f7c9-2203-459c-82aa-925a6b992278"], Cell[220850, 5481, 481, 11, 18, "Print",ExpressionUUID->"353ad350-065d-44fb-ac60-12a7c10c76d0"], Cell[221334, 5494, 415, 9, 18, "Print",ExpressionUUID->"d16376b2-e08f-4534-b5f3-a7e2dcb31571"], Cell[221752, 5505, 448, 9, 18, "Print",ExpressionUUID->"5293688f-951e-4556-9eba-dae944253bba"], Cell[222203, 5516, 451, 9, 18, "Print",ExpressionUUID->"dbf407f8-cf25-47bc-a673-da995ecac56e"], Cell[222657, 5527, 427, 10, 18, "Print",ExpressionUUID->"450a4739-ad73-4f9a-98bd-7f9dfb463eeb"], Cell[223087, 5539, 447, 9, 18, "Print",ExpressionUUID->"a8242c36-f0b6-4f2c-ac25-e7e9c86ae1ba"], Cell[223537, 5550, 448, 9, 18, "Print",ExpressionUUID->"df09cb41-5edb-4bd9-9e1a-f81d9ce8ef41"], Cell[223988, 5561, 459, 9, 18, "Print",ExpressionUUID->"28f19d33-21c4-4e9b-afa3-5be8965cab6c"], Cell[224450, 5572, 461, 9, 18, "Print",ExpressionUUID->"2c94c390-f1d5-4e82-bd72-bf153df6c2ff"], Cell[224914, 5583, 446, 10, 18, "Print",ExpressionUUID->"0f12c030-e24f-40a0-854c-ac2a32a4dc78"], Cell[225363, 5595, 464, 9, 18, "Print",ExpressionUUID->"ddede2fc-afe0-462f-a0e1-35fd6283d841"], Cell[225830, 5606, 415, 9, 18, "Print",ExpressionUUID->"ce7991ea-6131-49de-8db8-61121a67f72b"], Cell[226248, 5617, 448, 9, 18, "Print",ExpressionUUID->"c2285653-2d54-4a80-b98c-189197c2c0cf"], Cell[226699, 5628, 454, 9, 18, "Print",ExpressionUUID->"de786fb0-70b7-4694-8c48-b4f4a05d1093"], Cell[227156, 5639, 441, 9, 18, "Print",ExpressionUUID->"5b7ac3bf-51e3-43a9-a7ca-ea0f81a6b64a"], Cell[227600, 5650, 441, 10, 18, "Print",ExpressionUUID->"61c88c35-493b-490a-9510-42979afcb442"], Cell[228044, 5662, 448, 10, 18, "Print",ExpressionUUID->"02447e14-6c49-49a3-8a80-c5463e9fa76a"], Cell[228495, 5674, 439, 10, 18, "Print",ExpressionUUID->"67acc7e6-2696-4b66-ab77-7ac6e5680b07"], Cell[228937, 5686, 456, 9, 18, "Print",ExpressionUUID->"5da6afd7-edc2-4d19-953c-a94067c332ad"], Cell[229396, 5697, 446, 10, 18, "Print",ExpressionUUID->"75cceca3-0100-48da-87c0-20ab5ed185f0"], Cell[229845, 5709, 449, 10, 18, "Print",ExpressionUUID->"e815b09e-d449-470a-b13d-0c55de558768"], Cell[230297, 5721, 415, 9, 18, "Print",ExpressionUUID->"431dc75c-1355-49f1-811c-4c998210ec6e"], Cell[230715, 5732, 448, 9, 18, "Print",ExpressionUUID->"8889ca49-0c00-4779-818b-c7ae3a4af619"], Cell[231166, 5743, 454, 9, 18, "Print",ExpressionUUID->"49a840c4-b656-48d1-8042-6ac72381619e"], Cell[231623, 5754, 441, 9, 18, "Print",ExpressionUUID->"5d57e66c-ecb2-4e8f-9500-c3cd721acb7b"], Cell[232067, 5765, 444, 10, 18, "Print",ExpressionUUID->"c6640178-493b-46af-a984-d7dffd8c0b73"], Cell[232514, 5777, 446, 10, 18, "Print",ExpressionUUID->"5634c2b2-2827-4fcd-92fa-89f60f087713"], Cell[232963, 5789, 453, 9, 18, "Print",ExpressionUUID->"46a5388d-2d52-4749-9443-a9b3367a5f2c"], Cell[233419, 5800, 454, 9, 18, "Print",ExpressionUUID->"0367e59e-9ab3-4899-ab14-4e6914f736a7"], Cell[233876, 5811, 458, 9, 18, "Print",ExpressionUUID->"817f10c5-b348-431d-8bdf-c347f9ecaa64"], Cell[234337, 5822, 446, 10, 18, "Print",ExpressionUUID->"1e7e1966-2d5f-4ea5-83cf-839e72eb884e"], Cell[234786, 5834, 415, 9, 18, "Print",ExpressionUUID->"2add0a3c-b356-415b-ba16-2f87e8146035"], Cell[235204, 5845, 448, 9, 18, "Print",ExpressionUUID->"e6a5849b-7910-495b-8e53-0e2392b783fa"], Cell[235655, 5856, 450, 9, 18, "Print",ExpressionUUID->"76fa3268-edbb-443a-b90d-ae22d0dddf35"], Cell[236108, 5867, 442, 9, 18, "Print",ExpressionUUID->"3c591d9c-95b3-43e6-965a-7a71da3f61eb"], Cell[236553, 5878, 441, 10, 18, "Print",ExpressionUUID->"0c65e464-4c2e-4e57-a78f-45d889343ac0"], Cell[236997, 5890, 459, 9, 18, "Print",ExpressionUUID->"f4cf9871-cc41-4a63-95ba-f937c014b664"], Cell[237459, 5901, 461, 9, 18, "Print",ExpressionUUID->"431f9db9-44c7-4378-971d-839ecb50828a"], Cell[237923, 5912, 461, 10, 18, "Print",ExpressionUUID->"73e4ad8b-92c9-4c5b-9564-1340eb780fe3"], Cell[238387, 5924, 453, 10, 18, "Print",ExpressionUUID->"01c54d90-4a0f-4da3-a9c8-da0d240461da"], Cell[238843, 5936, 448, 10, 21, "Print",ExpressionUUID->"e3d6e8be-d736-4075-9cb4-202736d41889"], Cell[239294, 5948, 415, 9, 18, "Print",ExpressionUUID->"a6944570-c6c7-4508-858a-798b727dc9ea"], Cell[239712, 5959, 448, 9, 18, "Print",ExpressionUUID->"056e6802-72e7-45ab-b6a2-f37edb955673"], Cell[240163, 5970, 454, 9, 18, "Print",ExpressionUUID->"b0d1151c-9f16-4625-aa09-3e7c6d954359"], Cell[240620, 5981, 441, 9, 18, "Print",ExpressionUUID->"6e9744d7-b325-4da2-93d7-9db8bbb434a7"], Cell[241064, 5992, 440, 10, 18, "Print",ExpressionUUID->"7f0b510f-cc86-4d80-be4c-56271b02dd7a"], Cell[241507, 6004, 460, 9, 18, "Print",ExpressionUUID->"7151c896-6841-4e05-a749-b808a4a2398c"], Cell[241970, 6015, 462, 9, 18, "Print",ExpressionUUID->"f40cba10-eeb1-4398-bd37-12a530719477"], Cell[242435, 6026, 479, 11, 18, "Print",ExpressionUUID->"58f37c48-8809-4d50-a952-64fd19fa266f"], Cell[242917, 6039, 467, 10, 18, "Print",ExpressionUUID->"78177c94-3f63-42ad-8c58-10ee23c670a4"], Cell[243387, 6051, 463, 10, 18, "Print",ExpressionUUID->"c7387b4b-2b91-41f2-86ec-2b6229f951f1"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[243899, 6067, 177, 2, 21, "Input",ExpressionUUID->"02ec1b57-aae5-40c7-99ae-8e88b806cbe0"], Cell[244079, 6071, 723, 12, 24, "Output",ExpressionUUID->"5f89e72b-1c4d-4eaf-b726-460144fdb33f"] }, Open ]], Cell[CellGroupData[{ Cell[244839, 6088, 942, 24, 34, "Input",ExpressionUUID->"49e5dcb0-826a-45e6-b69b-7a0bb57d82c4"], Cell[245784, 6114, 1976, 47, 191, "Output",ExpressionUUID->"67956f31-8f44-4c7d-9e04-ebcf35a730fb"] }, Open ]], Cell[CellGroupData[{ Cell[247797, 6166, 269, 7, 34, "Input",ExpressionUUID->"b0ce355d-0663-4026-b082-fdf4f0653d63"], Cell[248069, 6175, 1396, 35, 24, "Output",ExpressionUUID->"8ddd4c79-838b-4410-9722-9aba0540cf06"] }, Open ]], Cell[CellGroupData[{ Cell[249502, 6215, 561, 12, 34, "Input",ExpressionUUID->"b3aede65-0aee-4f16-9d08-3f830359e3e2"], Cell[250066, 6229, 292, 3, 25, "Output",ExpressionUUID->"87ec067f-16af-4ffd-abfc-76d6182bf842"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[250419, 6239, 402, 8, 50, "Section",ExpressionUUID->"c54502aa-ddea-40f4-98b6-863b72cbd467"], Cell[250824, 6249, 339, 7, 26, "Text",ExpressionUUID->"ff5fdc69-5909-454c-ab49-7347db14ad2c"], Cell[CellGroupData[{ Cell[251188, 6260, 167, 3, 34, "Subsubsection",ExpressionUUID->"208cf222-cc0a-42a8-851f-655736adfe32"], Cell[251358, 6265, 233, 4, 26, "Text",ExpressionUUID->"21e2c12d-6a24-406f-a6a2-f4005dbbe57f"], Cell[251594, 6271, 8013, 230, 121, "Input",ExpressionUUID->"2554318b-7044-49ba-af0c-ce6d7ff25781"], Cell[259610, 6503, 172, 3, 26, "Text",ExpressionUUID->"fd7deb34-3010-45a3-9782-d9ea84986249"], Cell[259785, 6508, 2329, 75, 106, "Input",ExpressionUUID->"7222441a-e721-48ec-8bb6-f829be2ffb90"], Cell[262117, 6585, 176, 3, 26, "Text",ExpressionUUID->"59e2d61e-ef9d-43fb-ba5f-62f538a0b76a"], Cell[262296, 6590, 926, 17, 34, "Input",ExpressionUUID->"c7c72b46-fe00-4373-9329-f320b850c693"], Cell[263225, 6609, 659, 16, 34, "Input",ExpressionUUID->"001800ee-ece6-4177-9df5-d84fa3a05397"], Cell[263887, 6627, 164, 3, 26, "Text",ExpressionUUID->"fb963374-1f65-4487-919c-d8bf3bffe973"], Cell[264054, 6632, 2848, 77, 50, "Input",ExpressionUUID->"55872498-f586-435a-a841-24d8bd0be513"], Cell[266905, 6711, 237, 4, 26, "Text",ExpressionUUID->"9057b8d4-ebc8-4249-b80d-333278f6b4f4"], Cell[267145, 6717, 3964, 92, 119, "Input",ExpressionUUID->"a5f7526e-3495-465f-a527-e1e9aa03c223"] }, Open ]], Cell[CellGroupData[{ Cell[271146, 6814, 436, 6, 34, "Subsubsection",ExpressionUUID->"e9c32686-91eb-4a41-b03c-036a4eba9195"], Cell[271585, 6822, 229, 6, 26, "Text",ExpressionUUID->"787ae457-4e8c-4d9e-8633-5356df5908a2"], Cell[271817, 6830, 3964, 92, 119, "Input",ExpressionUUID->"6dec8ced-2622-4226-a727-5710e0352efb"], Cell[275784, 6924, 958, 22, 36, "Input",ExpressionUUID->"018fe90c-aafc-471e-9ff3-f24167775b01"], Cell[276745, 6948, 5050, 105, 359, "Input",ExpressionUUID->"0fe80a0b-7fc1-40a6-9017-e248fa472a5e"], Cell[CellGroupData[{ Cell[281820, 7057, 1036, 22, 48, "Input",ExpressionUUID->"244b0d17-2abb-4267-93a7-54a0737f7e87"], Cell[CellGroupData[{ Cell[282881, 7083, 420, 9, 21, "Print",ExpressionUUID->"69b365a6-1023-470a-be6a-3f34f7fceaa3"], Cell[283304, 7094, 418, 9, 21, "Print",ExpressionUUID->"e932da66-4b71-4e37-aaa9-9834cdefd19e"], Cell[283725, 7105, 418, 9, 21, "Print",ExpressionUUID->"c1f448cf-874e-4c23-9afe-2d9683937f0f"] }, Open ]], Cell[284158, 7117, 814, 16, 18, "Message",ExpressionUUID->"f1d646be-6c85-4a0a-aaa9-fe48cdadc59f"], Cell[284975, 7135, 439, 9, 21, "Print",ExpressionUUID->"6353fad3-7530-42b8-8936-aa6d93c6b59e"], Cell[285417, 7146, 816, 16, 18, "Message",ExpressionUUID->"b129a0d6-00e1-4c23-8052-61bfc72aea01"], Cell[286236, 7164, 440, 9, 21, "Print",ExpressionUUID->"6625f958-e5f4-4073-a71a-08660908d708"], Cell[286679, 7175, 799, 15, 18, "Message",ExpressionUUID->"e80bec69-bae0-4121-b2a0-8b02392b4107"], Cell[287481, 7192, 500, 11, 18, "Message",ExpressionUUID->"022be0c5-e3f1-4fd0-b469-e8b841a77a24"], Cell[CellGroupData[{ Cell[288006, 7207, 430, 10, 21, "Print",ExpressionUUID->"27becb3f-70be-4003-b30e-3afc2a35c335"], Cell[288439, 7219, 434, 10, 21, "Print",ExpressionUUID->"6d69e7b6-cb6f-44c7-a8c1-7f2f21c04d49"], Cell[288876, 7231, 435, 10, 21, "Print",ExpressionUUID->"a7499645-707c-4e6e-a94d-0c3e2a86388e"], Cell[289314, 7243, 441, 10, 21, "Print",ExpressionUUID->"f9f54d7b-c9d6-4d50-8b23-d3087932f8e5"], Cell[289758, 7255, 441, 10, 21, "Print",ExpressionUUID->"bd6e65e2-181a-49c2-b9e5-29068f44af9e"], Cell[290202, 7267, 418, 9, 21, "Print",ExpressionUUID->"9893bfb5-09bf-4a64-917e-e319848bf74e"], Cell[290623, 7278, 419, 9, 21, "Print",ExpressionUUID->"977f42b5-ba76-400c-a06a-728d76ec9f33"], Cell[291045, 7289, 420, 9, 21, "Print",ExpressionUUID->"f9ad33a8-fff4-461f-9ef0-8e3a9c82d38d"], Cell[291468, 7300, 438, 9, 21, "Print",ExpressionUUID->"89acfe84-d6ea-4186-9965-d8a314ba850e"], Cell[291909, 7311, 440, 9, 21, "Print",ExpressionUUID->"804cd8ef-adce-4f90-ab38-b979bb691633"], Cell[292352, 7322, 429, 10, 21, "Print",ExpressionUUID->"fa2601cb-0554-4a0b-901f-64165f700191"], Cell[292784, 7334, 447, 9, 21, "Print",ExpressionUUID->"240e2543-412f-4971-9742-b0aae6f0af68"], Cell[293234, 7345, 437, 10, 21, "Print",ExpressionUUID->"e0e3e0e2-deaa-4506-b9f9-4570ac26fffa"], Cell[293674, 7357, 440, 10, 21, "Print",ExpressionUUID->"4b2ba8dd-afd6-4a48-8d77-de735a444daa"], Cell[294117, 7369, 442, 10, 21, "Print",ExpressionUUID->"091c0974-1795-4760-8499-0bef4fada745"], Cell[294562, 7381, 420, 9, 21, "Print",ExpressionUUID->"68abb032-127a-4a7b-83fc-172fb4f0ea9d"], Cell[294985, 7392, 421, 9, 21, "Print",ExpressionUUID->"64400269-8c30-4b74-ae07-722b6e7435a6"], Cell[295409, 7403, 436, 9, 21, "Print",ExpressionUUID->"5fd7c6fe-5ba0-43fa-9b6b-cf8bac310fe2"], Cell[295848, 7414, 425, 10, 21, "Print",ExpressionUUID->"f53dc894-d0d5-4991-bead-29ce98390b8e"], Cell[296276, 7426, 428, 10, 21, "Print",ExpressionUUID->"ec09d969-9856-4824-a697-07477e072b61"], Cell[296707, 7438, 441, 9, 21, "Print",ExpressionUUID->"f0ac25d8-e0ec-4e66-80c2-dddb88f41a0a"], Cell[297151, 7449, 433, 10, 21, "Print",ExpressionUUID->"e4d7fcff-1755-4a00-b39b-4cd135437791"], Cell[297587, 7461, 437, 10, 21, "Print",ExpressionUUID->"5d067951-362b-4ed6-a27c-6731061ec0d6"], Cell[298027, 7473, 451, 9, 21, "Print",ExpressionUUID->"04cd3ee7-7474-4478-b903-a77dc8728d5a"], Cell[298481, 7484, 443, 10, 21, "Print",ExpressionUUID->"90e0df00-7c39-4d05-bd5f-bfa300c5e340"], Cell[298927, 7496, 419, 9, 21, "Print",ExpressionUUID->"9d3d1a59-9f6c-43a3-9423-14ab1b6482f4"], Cell[299349, 7507, 421, 9, 21, "Print",ExpressionUUID->"822efa72-932a-4cd8-b9e3-0c7c6e267d7a"], Cell[299773, 7518, 436, 9, 21, "Print",ExpressionUUID->"b93fc021-44d0-484e-994d-0919b91ab2ca"], Cell[300212, 7529, 437, 9, 21, "Print",ExpressionUUID->"42d077e6-09f7-47f2-8556-bfd5158979fe"], Cell[300652, 7540, 438, 9, 21, "Print",ExpressionUUID->"29219e29-c6a3-4da7-b90b-956147f44457"], Cell[301093, 7551, 428, 10, 21, "Print",ExpressionUUID->"bad367e3-59b2-481c-acd8-bcb8de3b405d"], Cell[301524, 7563, 447, 9, 21, "Print",ExpressionUUID->"2eda0e0f-584b-47d2-9f62-e48c80121a10"], Cell[301974, 7574, 438, 10, 21, "Print",ExpressionUUID->"7eb90b84-76fc-4f09-8acc-3dfded862df0"], Cell[302415, 7586, 441, 10, 21, "Print",ExpressionUUID->"ba1f0cc8-ace2-436c-a92a-b6bd94bcc769"], Cell[302859, 7598, 442, 10, 21, "Print",ExpressionUUID->"b3e58287-81c5-4c52-882c-f2e54264cb28"], Cell[303304, 7610, 418, 9, 21, "Print",ExpressionUUID->"c300496c-583a-492e-b828-8548411ccb16"], Cell[303725, 7621, 434, 9, 21, "Print",ExpressionUUID->"eb616080-8d7b-41ae-b2a8-d3a2719ccbd3"], Cell[304162, 7632, 418, 9, 21, "Print",ExpressionUUID->"f71a96fd-be28-4c82-8210-1574b4e18ec6"], Cell[304583, 7643, 424, 10, 21, "Print",ExpressionUUID->"17647e20-9d1c-4141-aa0a-dead7cfa6473"], Cell[305010, 7655, 439, 9, 21, "Print",ExpressionUUID->"4d332be7-4382-4c58-832c-e86aa4c2105d"], Cell[305452, 7666, 444, 9, 21, "Print",ExpressionUUID->"eaa08307-bc94-405b-bf34-f6c848f284af"], Cell[305899, 7677, 443, 9, 21, "Print",ExpressionUUID->"b50a54a6-ac5d-4dbc-b2fb-f8922b3a6d42"], Cell[306345, 7688, 448, 9, 21, "Print",ExpressionUUID->"184abe6d-742e-4b5d-b5ab-b344b8307c6d"], Cell[306796, 7699, 437, 10, 21, "Print",ExpressionUUID->"d185b3f7-90e4-4643-83cc-146c9d953de8"], Cell[307236, 7711, 456, 9, 21, "Print",ExpressionUUID->"9b930ae4-c79d-4a5a-bef6-22499479f7b9"], Cell[307695, 7722, 419, 9, 21, "Print",ExpressionUUID->"f63fc206-a26c-4325-a9cd-effb007d0ed3"], Cell[308117, 7733, 435, 9, 21, "Print",ExpressionUUID->"d1428269-d78d-4824-92d5-f24fd1c50c21"], Cell[308555, 7744, 435, 9, 21, "Print",ExpressionUUID->"f64f9aeb-9658-46c1-9012-d0cf3e942a5a"], Cell[308993, 7755, 424, 10, 21, "Print",ExpressionUUID->"426b815b-6f9d-4409-bfa2-89ff6b3395de"], Cell[309420, 7767, 428, 10, 21, "Print",ExpressionUUID->"54f04d8e-bb62-43db-b8ef-65e71c36273a"], Cell[309851, 7779, 429, 10, 21, "Print",ExpressionUUID->"7ccfc3b4-82b5-4954-94d5-3b233074aa96"], Cell[310283, 7791, 444, 9, 21, "Print",ExpressionUUID->"5edb8868-a74b-46ba-bb74-0833c0941f37"], Cell[310730, 7802, 437, 10, 21, "Print",ExpressionUUID->"9d7f845c-9bde-4f6e-b518-0bb435c0b2ad"], Cell[311170, 7814, 455, 9, 21, "Print",ExpressionUUID->"2284e26e-33ed-43f3-8753-028db0200c34"], Cell[311628, 7825, 443, 10, 21, "Print",ExpressionUUID->"29f6f2c1-404e-4172-8f28-cb3a205cea3b"], Cell[312074, 7837, 434, 9, 21, "Print",ExpressionUUID->"4745441a-a9ec-4224-a9be-d38544e3473d"], Cell[312511, 7848, 418, 9, 21, "Print",ExpressionUUID->"d4ccedc5-3852-421a-8caa-12b3197d1cc4"], Cell[312932, 7859, 422, 9, 21, "Print",ExpressionUUID->"5948aa41-f89a-4ef1-97de-8461d753d2d9"], Cell[313357, 7870, 424, 10, 21, "Print",ExpressionUUID->"02960555-b64a-414f-baba-cb6a9f7da899"], Cell[313784, 7882, 425, 10, 21, "Print",ExpressionUUID->"0af1d87f-80fc-4102-8518-d9de68c8bbda"], Cell[314212, 7894, 441, 9, 21, "Print",ExpressionUUID->"6d3fb45e-a902-4c68-8e25-ffa386b1880b"], Cell[314656, 7905, 435, 10, 21, "Print",ExpressionUUID->"a6f93975-a971-4b7e-83b0-21b45e9bc511"], Cell[315094, 7917, 450, 9, 21, "Print",ExpressionUUID->"2ee75989-3d96-4773-8f03-6f4025c16056"], Cell[315547, 7928, 443, 10, 21, "Print",ExpressionUUID->"7abe0c6e-a452-4e16-bc80-c828deb117d5"], Cell[315993, 7940, 444, 10, 21, "Print",ExpressionUUID->"a629ae13-fdde-4dad-8e56-de0eecd58291"], Cell[316440, 7952, 435, 9, 21, "Print",ExpressionUUID->"209265e7-6fb4-4c6c-8eac-a30ec9971bc6"], Cell[316878, 7963, 418, 9, 21, "Print",ExpressionUUID->"2b8ad1cd-1b6c-4def-a9ec-67208c38c1d8"], Cell[317299, 7974, 419, 9, 21, "Print",ExpressionUUID->"009ea0c9-384b-4bf4-9115-f8a38c87d1a2"], Cell[317721, 7985, 437, 9, 21, "Print",ExpressionUUID->"2bf9b817-f75d-4104-a0d0-765b434bfb48"], Cell[318161, 7996, 427, 10, 21, "Print",ExpressionUUID->"d95c76e5-575b-49d0-95f0-fe886e5d0f50"], Cell[318591, 8008, 444, 9, 21, "Print",ExpressionUUID->"fab66062-0118-42cb-bbfe-eba0a391f0b6"], Cell[319038, 8019, 445, 9, 21, "Print",ExpressionUUID->"fbf46f56-8824-4d91-ac2f-59d438c31f87"], Cell[319486, 8030, 448, 9, 21, "Print",ExpressionUUID->"15b2223d-79ee-4dc3-ad73-9d5d5540c54a"], Cell[319937, 8041, 438, 10, 21, "Print",ExpressionUUID->"242d6b6d-5fe2-4bd7-b0af-20376c0b836d"], Cell[320378, 8053, 441, 10, 21, "Print",ExpressionUUID->"0d382942-7096-427e-bb96-68f6ae608749"], Cell[320822, 8065, 434, 9, 21, "Print",ExpressionUUID->"a4408f41-dfab-4822-8773-72c27fcbb968"], Cell[321259, 8076, 419, 9, 21, "Print",ExpressionUUID->"ddf56223-74ef-4883-9b8e-632a33228d8a"], Cell[321681, 8087, 435, 9, 21, "Print",ExpressionUUID->"426fb7e6-bd78-4942-aa6f-d741cace9c4e"], Cell[322119, 8098, 424, 10, 21, "Print",ExpressionUUID->"ecac6557-b4f9-4d73-8fe0-8ff84b1a660e"], Cell[322546, 8110, 440, 9, 21, "Print",ExpressionUUID->"8b00556e-899b-4cb7-a8e2-80c9d1a1c92c"], Cell[322989, 8121, 442, 9, 21, "Print",ExpressionUUID->"d5202b56-424d-4d9d-a36e-faf8bab039b8"], Cell[323434, 8132, 445, 9, 21, "Print",ExpressionUUID->"85d17977-ace4-406b-b2b6-98f0ec3590f7"], Cell[323882, 8143, 435, 10, 21, "Print",ExpressionUUID->"03bdedf9-efeb-49ba-b1de-3134ca2255f3"], Cell[324320, 8155, 455, 9, 21, "Print",ExpressionUUID->"7a991c80-275b-48f2-bd54-959e5ca07f74"], Cell[324778, 8166, 456, 9, 21, "Print",ExpressionUUID->"1df8efc3-c143-428b-8946-820f6554e2a9"], Cell[325237, 8177, 433, 9, 21, "Print",ExpressionUUID->"3b884d4a-762e-4a66-bca6-ebec03c8604b"], Cell[325673, 8188, 420, 9, 21, "Print",ExpressionUUID->"0618c416-b5b8-4c85-95b0-d4a2c213fb05"], Cell[326096, 8199, 438, 9, 21, "Print",ExpressionUUID->"37bdeb22-0c90-4feb-a6aa-829d76218315"], Cell[326537, 8210, 437, 9, 21, "Print",ExpressionUUID->"d29f9f84-aca7-4d82-9fbc-49583e4d9e6c"], Cell[326977, 8221, 440, 9, 21, "Print",ExpressionUUID->"45d253a5-10b0-4233-8ea5-ec7446ca77ff"], Cell[327420, 8232, 430, 10, 21, "Print",ExpressionUUID->"386d5b13-e652-4869-9589-a5e4885840fc"], Cell[327853, 8244, 434, 10, 21, "Print",ExpressionUUID->"83c07aec-cfdc-43b1-9325-18d63d013c0e"], Cell[328290, 8256, 449, 9, 21, "Print",ExpressionUUID->"d4efecdc-c6b5-4821-81f2-1d6f585a7995"], Cell[328742, 8267, 441, 10, 21, "Print",ExpressionUUID->"b8628152-01a1-4390-90be-8fe405c406b2"], Cell[329186, 8279, 456, 9, 21, "Print",ExpressionUUID->"9f162a27-3725-44f6-aece-a2f83e2a86fc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[329691, 8294, 177, 2, 21, "Input",ExpressionUUID->"6d241a72-ed11-491a-a7d9-0ca92f1b3db7"], Cell[329871, 8298, 529, 10, 24, "Output",ExpressionUUID->"6bae9f75-e4a3-4d25-9082-5369741be444"] }, Open ]], Cell[CellGroupData[{ Cell[330437, 8313, 658, 14, 34, "Input",ExpressionUUID->"19b0ac73-6a19-400c-9ddf-0b9b7cad6d44"], Cell[331098, 8329, 1662, 40, 186, "Output",ExpressionUUID->"bbdeec6b-b7c8-43e8-8f70-1f82d9e25bf2"] }, Open ]], Cell[CellGroupData[{ Cell[332797, 8374, 269, 7, 34, "Input",ExpressionUUID->"fd131296-ec1b-429f-9b2c-8d0487db79e9"], Cell[333069, 8383, 958, 25, 24, "Output",ExpressionUUID->"84b40554-c951-416b-9e57-16237e28f2a6"] }, Open ]], Cell[CellGroupData[{ Cell[334064, 8413, 553, 12, 34, "Input",ExpressionUUID->"8262bc13-73ca-4323-9f99-695d903d46b8"], Cell[334620, 8427, 263, 3, 24, "Output",ExpressionUUID->"d1c1252c-eb32-4d15-aeb1-bdfd69a3e6c2"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[334932, 8436, 528, 9, 34, "Subsubsection",ExpressionUUID->"3940a0ca-9e30-4bc1-808a-52350cca2028"], Cell[335463, 8447, 229, 6, 26, "Text",ExpressionUUID->"58b16e2c-97ff-4714-bc78-a9a8cc6b9746"], Cell[335695, 8455, 923, 20, 22, "Input",ExpressionUUID->"26c0eedf-bce6-427a-8a26-7b7bd0c2cf5f"], Cell[336621, 8477, 3462, 114, 177, "Input",ExpressionUUID->"eeb47beb-345c-4dbc-a994-f611667a29a0"], Cell[340086, 8593, 2847, 77, 135, "Input",ExpressionUUID->"78060072-10a9-497c-90c7-43e0762a2d65"], Cell[CellGroupData[{ Cell[342958, 8674, 849, 25, 34, "Input",ExpressionUUID->"45ae9c33-ef4d-427a-b20e-c21a8ef6f07b"], Cell[343810, 8701, 446, 8, 38, "Output",ExpressionUUID->"1cae8673-12db-4874-a1b2-e789412c166e"] }, Open ]], Cell[CellGroupData[{ Cell[344293, 8714, 851, 25, 34, "Input",ExpressionUUID->"1118894f-fc46-4248-8b6a-14b1d12fe7ac"], Cell[345147, 8741, 441, 8, 38, "Output",ExpressionUUID->"c239e306-da2c-4dca-991b-47dffb7aa959"] }, Open ]], Cell[345603, 8752, 1062, 24, 34, "Input",ExpressionUUID->"8fb1e8c1-0ab5-448c-987c-759041af040a"], Cell[346668, 8778, 4644, 93, 317, "Input",ExpressionUUID->"e4c95214-6e04-477b-a35d-a580f31bcb3f"], Cell[CellGroupData[{ Cell[351337, 8875, 1149, 24, 48, "Input",ExpressionUUID->"6dd3bd35-4c0a-48d3-9f0b-4bf17ba89351"], Cell[CellGroupData[{ Cell[352511, 8903, 437, 9, 18, "Print",ExpressionUUID->"6e02712d-c777-4bdb-8d85-7f39303ef409"], Cell[352951, 8914, 438, 9, 18, "Print",ExpressionUUID->"6e6e6f69-a2d7-4916-bb25-75ba296149d7"], Cell[353392, 8925, 443, 9, 18, "Print",ExpressionUUID->"09e214d5-8fdf-47d9-bb0e-140dcae0023d"], Cell[353838, 8936, 461, 9, 18, "Print",ExpressionUUID->"b915577b-8289-4b58-a042-cbf8177f9f35"], Cell[354302, 8947, 463, 9, 18, "Print",ExpressionUUID->"9d0a00f6-111b-4663-a09e-c8e6f46b2cdb"], Cell[354768, 8958, 451, 10, 18, "Print",ExpressionUUID->"1a6bcb0b-9690-438d-8f29-71b7dfba89f8"], Cell[355222, 8970, 456, 10, 18, "Print",ExpressionUUID->"05a5ccbd-962e-4b2f-ac07-3d120717c965"], Cell[355681, 8982, 459, 10, 18, "Print",ExpressionUUID->"8b2de51a-851e-4c20-8588-d837b1b5b0f3"], Cell[356143, 8994, 461, 10, 18, "Print",ExpressionUUID->"3eda7c84-acd8-4630-a552-c65a45d82794"], Cell[356607, 9006, 464, 10, 18, "Print",ExpressionUUID->"2a68b289-7ec2-4da7-85b9-f12cbcf55cb8"], Cell[357074, 9018, 439, 9, 18, "Print",ExpressionUUID->"b8686bbe-a9c4-4103-8855-9911368e0a74"], Cell[357516, 9029, 438, 9, 18, "Print",ExpressionUUID->"ba90187e-3ec2-4f09-bd70-fa881ad318c7"], Cell[357957, 9040, 443, 9, 18, "Print",ExpressionUUID->"73e50070-e452-48b7-ad5c-673eb1435c4d"], Cell[358403, 9051, 458, 9, 18, "Print",ExpressionUUID->"1f06ea45-4c59-4131-8cf3-4c40bf73ec54"], Cell[358864, 9062, 462, 9, 18, "Print",ExpressionUUID->"f2e5d7ce-76b0-4d91-ae6b-25533224906d"], Cell[359329, 9073, 450, 10, 18, "Print",ExpressionUUID->"b1d93798-c373-43d7-a742-7a8d85c263b9"], Cell[359782, 9085, 468, 9, 18, "Print",ExpressionUUID->"38efd076-a215-4a11-b499-c895a0138bab"], Cell[360253, 9096, 459, 10, 18, "Print",ExpressionUUID->"f8623196-6566-49fa-9cbd-85034f14d79a"], Cell[360715, 9108, 475, 9, 18, "Print",ExpressionUUID->"6a798dc2-6c2c-41a0-b989-8820071f9ef1"], Cell[361193, 9119, 474, 9, 21, "Print",ExpressionUUID->"79c201b3-f6eb-4f3f-b1fb-ee4064c1553a"], Cell[361670, 9130, 438, 9, 18, "Print",ExpressionUUID->"e1084ee1-cb53-4d87-8c7b-328963d302a7"], Cell[362111, 9141, 438, 9, 18, "Print",ExpressionUUID->"f1dff4c1-5f9e-4e88-a382-6cde553a3624"], Cell[362552, 9152, 457, 9, 18, "Print",ExpressionUUID->"c74d6600-d16d-4ec0-ac09-fc138ed04e1d"], Cell[363012, 9163, 446, 10, 18, "Print",ExpressionUUID->"d2cce201-9aa4-4fe9-8a41-b9b0ca919ba2"], Cell[363461, 9175, 451, 10, 18, "Print",ExpressionUUID->"3db0f372-e4f9-442a-9c7d-5b868b678573"], Cell[363915, 9187, 464, 9, 18, "Print",ExpressionUUID->"aeb8fbb3-dc0f-4988-8531-ad3f2ffd6fdd"], Cell[364382, 9198, 468, 9, 18, "Print",ExpressionUUID->"0652b013-4f1b-4a9a-bb89-26cf501867d0"], Cell[364853, 9209, 459, 10, 18, "Print",ExpressionUUID->"2e3adafc-548d-42e7-a998-5f555a333bc5"], Cell[365315, 9221, 464, 10, 18, "Print",ExpressionUUID->"7acda916-04e1-41fb-8d9f-2a9b25ceee32"], Cell[365782, 9233, 476, 9, 18, "Print",ExpressionUUID->"8ec289f7-1375-4625-9084-55bf5e2558b0"], Cell[366261, 9244, 439, 9, 18, "Print",ExpressionUUID->"33e9fb4b-3e26-4f03-b626-1fdb5c46f6b2"], Cell[366703, 9255, 439, 9, 18, "Print",ExpressionUUID->"ec594b77-d3e4-470c-90ca-bc87c8e03a85"], Cell[367145, 9266, 456, 9, 18, "Print",ExpressionUUID->"3ac305d3-95f0-4ee8-b5e8-ac35cedfee2a"], Cell[367604, 9277, 459, 9, 18, "Print",ExpressionUUID->"3c387287-909a-4ace-bf0a-9cceed488390"], Cell[368066, 9288, 462, 9, 18, "Print",ExpressionUUID->"03d25b20-2dfd-4f2c-ae80-8c719f2a0378"], Cell[368531, 9299, 463, 9, 18, "Print",ExpressionUUID->"ec44253f-d27e-4964-8cb5-e2d634bf5b19"], Cell[368997, 9310, 452, 10, 18, "Print",ExpressionUUID->"9b642ae3-bd4f-4845-b7b4-e488fab1184b"], Cell[369452, 9322, 459, 10, 18, "Print",ExpressionUUID->"0e5250c1-4a72-4214-ad90-ddafa30ffe55"], Cell[369914, 9334, 462, 10, 18, "Print",ExpressionUUID->"e4c90577-8a77-41ba-9461-e9b24643495f"], Cell[370379, 9346, 464, 10, 18, "Print",ExpressionUUID->"ba815b0d-0d4a-4ca5-8f0f-75066834f17f"], Cell[370846, 9358, 438, 9, 18, "Print",ExpressionUUID->"f52ce67d-fc0c-4e64-b8e6-4afcab418460"], Cell[371287, 9369, 454, 9, 18, "Print",ExpressionUUID->"16db44f4-cc3a-48fb-bb41-3eca17a214f4"], Cell[371744, 9380, 443, 9, 18, "Print",ExpressionUUID->"76cb8fe1-406b-4832-95c7-54f0957ed8c5"], Cell[372190, 9391, 459, 9, 18, "Print",ExpressionUUID->"fa855806-c474-43de-9242-b5dc4db9db66"], Cell[372652, 9402, 449, 10, 18, "Print",ExpressionUUID->"9751b6ed-417a-4dcd-91b5-c55ea4223961"], Cell[373104, 9414, 452, 10, 18, "Print",ExpressionUUID->"4e11ca08-ae92-4c91-9fad-f7cccf264b2c"], Cell[373559, 9426, 457, 10, 18, "Print",ExpressionUUID->"78375f0c-ebd1-440c-8e76-43727c39ba28"], Cell[374019, 9438, 470, 9, 18, "Print",ExpressionUUID->"f5e4af70-c3d2-4bec-a7c0-09d23b20b3fb"], Cell[374492, 9449, 462, 10, 18, "Print",ExpressionUUID->"2318f197-f675-454b-8c2c-53c743bdfc29"], Cell[374957, 9461, 479, 9, 18, "Print",ExpressionUUID->"5a3992cb-5c56-424b-ac98-37cf3f1a1fed"], Cell[375439, 9472, 439, 9, 18, "Print",ExpressionUUID->"ceceab79-fa0b-43b9-a32f-650183307307"], Cell[375881, 9483, 456, 9, 18, "Print",ExpressionUUID->"8ec552e6-6f13-4ac3-9e42-744eba511539"], Cell[376340, 9494, 458, 9, 18, "Print",ExpressionUUID->"e1ce841d-61dd-4750-92b8-890a9ecc476c"], Cell[376801, 9505, 442, 9, 18, "Print",ExpressionUUID->"6a3f0a08-964c-43d7-babf-ab2f8a3bd234"], Cell[377246, 9516, 449, 10, 18, "Print",ExpressionUUID->"dbf3c067-b5c2-4d25-a7f7-b2a6ae74086d"], Cell[377698, 9528, 465, 9, 18, "Print",ExpressionUUID->"7879af0b-3b3e-4f2d-aa31-eaa52cd0500b"], Cell[378166, 9539, 458, 10, 18, "Print",ExpressionUUID->"1f90ba91-5301-402f-ba97-a6df95d5a729"], Cell[378627, 9551, 462, 10, 18, "Print",ExpressionUUID->"84c41f4b-d28d-4fce-98bb-b232e1269baa"], Cell[379092, 9563, 465, 10, 18, "Print",ExpressionUUID->"a1861195-4279-41e4-b82e-1f1a1a4f3fce"], Cell[379560, 9575, 476, 9, 18, "Print",ExpressionUUID->"4ee79fc6-a926-4737-9b95-a8d167884f1b"], Cell[380039, 9586, 455, 9, 18, "Print",ExpressionUUID->"1874a3d1-95f6-48d4-846f-16f6086f08cb"], Cell[380497, 9597, 439, 9, 18, "Print",ExpressionUUID->"f6e2ba3a-412a-4093-88f0-84be650bccaa"], Cell[380939, 9608, 440, 9, 18, "Print",ExpressionUUID->"9621eed7-f0fb-4cd1-b733-f520d37eb8af"], Cell[381382, 9619, 444, 9, 18, "Print",ExpressionUUID->"6948f208-247e-4974-bf1f-8747f4c711af"], Cell[381829, 9630, 450, 10, 18, "Print",ExpressionUUID->"11ca2664-3d31-4a85-b0b0-fac013da42a1"], Cell[382282, 9642, 463, 9, 18, "Print",ExpressionUUID->"3821282e-5275-4173-b718-a6f751e95978"], Cell[382748, 9653, 459, 10, 18, "Print",ExpressionUUID->"238ee95f-c3f7-438b-836c-ba753533c4b0"], Cell[383210, 9665, 473, 9, 18, "Print",ExpressionUUID->"a85386e2-212c-4abb-b9e8-54cb1cf5a6e7"], Cell[383686, 9676, 474, 9, 18, "Print",ExpressionUUID->"fdc1bfb2-425e-4e7e-90a2-72fff001b929"], Cell[384163, 9687, 477, 9, 18, "Print",ExpressionUUID->"c9656d7c-6510-458d-ad67-90e246947b16"], Cell[384643, 9698, 455, 9, 18, "Print",ExpressionUUID->"1c9902c9-18b4-419d-a9fe-8b66af398d5e"], Cell[385101, 9709, 440, 9, 18, "Print",ExpressionUUID->"5b4d92b6-a593-45a6-97e7-edb5fb2c1ac7"], Cell[385544, 9720, 440, 9, 18, "Print",ExpressionUUID->"34d1a1b9-4a85-415b-aed4-38fb74885b3e"], Cell[385987, 9731, 458, 9, 18, "Print",ExpressionUUID->"569b2dfa-b05e-4b85-a8f0-537ae1d66717"], Cell[386448, 9742, 450, 10, 18, "Print",ExpressionUUID->"8f6301de-b4be-440e-848d-65951aef8778"], Cell[386901, 9754, 465, 9, 18, "Print",ExpressionUUID->"256385fd-5174-4839-82a3-1c4f86421669"], Cell[387369, 9765, 468, 9, 18, "Print",ExpressionUUID->"f36990db-0bef-46b2-b8cc-e232347c36df"], Cell[387840, 9776, 472, 9, 18, "Print",ExpressionUUID->"f92ce4b6-e875-4de7-8dba-c94e727a67be"], Cell[388315, 9787, 460, 10, 21, "Print",ExpressionUUID->"1107c252-2501-4671-adcc-485ca4ff687f"], Cell[388778, 9799, 477, 9, 18, "Print",ExpressionUUID->"b1f0352e-ffc3-46a8-a084-94350c0de2ac"], Cell[389258, 9810, 456, 9, 18, "Print",ExpressionUUID->"0b6e63c6-4dca-4931-a718-3b824224d4e9"], Cell[389717, 9821, 439, 9, 18, "Print",ExpressionUUID->"5c4086ed-c361-419d-a9aa-cb2274375ede"], Cell[390159, 9832, 458, 9, 18, "Print",ExpressionUUID->"8dbf1320-7a33-48e1-91b6-61504185c911"], Cell[390620, 9843, 440, 9, 18, "Print",ExpressionUUID->"bd1a54fe-1ee2-44f3-ad64-c47d8372743f"], Cell[391063, 9854, 449, 10, 18, "Print",ExpressionUUID->"40d91178-9e80-4ca6-a726-bc1d05e2eecf"], Cell[391515, 9866, 452, 10, 18, "Print",ExpressionUUID->"7b8c2c61-98d5-4d63-bcdd-1eeb85d97de5"], Cell[391970, 9878, 455, 10, 18, "Print",ExpressionUUID->"87913aa4-b93f-4851-839a-8ae7b864cd21"], Cell[392428, 9890, 469, 9, 18, "Print",ExpressionUUID->"0df42f2c-bb75-4379-a287-7d35b8b30a39"], Cell[392900, 9901, 463, 10, 18, "Print",ExpressionUUID->"f365e6f1-a3d7-4854-9434-0d13f50032bb"], Cell[393366, 9913, 478, 9, 18, "Print",ExpressionUUID->"56173929-d603-48a8-a88e-61ab475c9814"], Cell[393847, 9924, 453, 9, 18, "Print",ExpressionUUID->"55ae9aa9-e5d5-407f-bc03-ff5d61f70540"], Cell[394303, 9935, 438, 9, 18, "Print",ExpressionUUID->"c3ff921e-07e6-4623-b42c-87a3ea0d5bc9"], Cell[394744, 9946, 456, 9, 18, "Print",ExpressionUUID->"6ff121c2-bef7-430b-9f8d-6fd280a9cd91"], Cell[395203, 9957, 441, 9, 18, "Print",ExpressionUUID->"7f364aec-df8e-4dd6-8398-7c7829bba67c"], Cell[395647, 9968, 450, 10, 18, "Print",ExpressionUUID->"3a51434d-05c3-4fd9-9bed-8ee915117f04"], Cell[396100, 9980, 463, 9, 18, "Print",ExpressionUUID->"35dd9d99-5725-4203-94c3-8a337672241a"], Cell[396566, 9991, 470, 9, 18, "Print",ExpressionUUID->"989999c8-846f-4dac-a7d4-aa6a307d8dad"], Cell[397039, 10002, 472, 9, 18, "Print",ExpressionUUID->"85614c17-760b-4b4d-bfcd-39e3e884eda0"], Cell[397514, 10013, 473, 9, 18, "Print",ExpressionUUID->"aaa3a901-1f01-4a10-957b-814d684fa6d2"], Cell[397990, 10024, 464, 10, 18, "Print",ExpressionUUID->"805b3f3c-d3de-4f58-a9ca-41801e8a03a7"], Cell[398457, 10036, 457, 9, 18, "Print",ExpressionUUID->"1d3cb715-f413-4fee-846f-494884340637"], Cell[398917, 10047, 441, 9, 18, "Print",ExpressionUUID->"3b93e22a-00dd-4c9c-b579-9024115fcb8b"], Cell[399361, 10058, 456, 9, 18, "Print",ExpressionUUID->"38d15b87-990c-45d3-97a4-3c6c565eec90"], Cell[399820, 10069, 446, 10, 18, "Print",ExpressionUUID->"695c76b5-a645-4ea3-832b-164c3874317e"], Cell[400269, 10081, 460, 9, 18, "Print",ExpressionUUID->"cf8b04a9-969e-471d-a2d4-1cabf0d59555"], Cell[400732, 10092, 467, 9, 18, "Print",ExpressionUUID->"3227920d-5934-4c86-8c0e-1a2390e31f2d"], Cell[401202, 10103, 469, 9, 18, "Print",ExpressionUUID->"530587d8-da28-44d2-96ae-1421886d4b50"], Cell[401674, 10114, 471, 9, 18, "Print",ExpressionUUID->"28766b8f-7a98-40f6-a927-0fca3cf5f568"], Cell[402148, 10125, 459, 10, 18, "Print",ExpressionUUID->"ec7cdfdd-6398-4515-8a0e-2a9905217950"], Cell[402610, 10137, 468, 10, 18, "Print",ExpressionUUID->"58b3760b-e039-4292-bf93-194809847212"], Cell[403081, 10149, 454, 9, 18, "Print",ExpressionUUID->"aa2ba636-5fb7-43a0-8fde-0cb81318c924"], Cell[403538, 10160, 438, 9, 18, "Print",ExpressionUUID->"2df52706-624d-41c8-bc63-fb3b566c57b8"], Cell[403979, 10171, 456, 9, 18, "Print",ExpressionUUID->"bbbf2bc1-53b2-472a-9663-5eb8a6e8ca9c"], Cell[404438, 10182, 459, 9, 18, "Print",ExpressionUUID->"a30ff3c3-02c3-4550-b6ab-769cc9e03007"], Cell[404900, 10193, 447, 10, 18, "Print",ExpressionUUID->"b6e093fa-c84c-485e-90eb-0ae93e857b77"], Cell[405350, 10205, 452, 10, 18, "Print",ExpressionUUID->"49bd609e-20be-4092-a234-ea55a1cdc7d9"], Cell[405805, 10217, 456, 10, 18, "Print",ExpressionUUID->"f5dd4f62-1a5e-4f5a-9e3b-2feee2ed796f"], Cell[406264, 10229, 467, 9, 18, "Print",ExpressionUUID->"18d87760-8dd5-424a-ba30-48582229faba"], Cell[406734, 10240, 475, 9, 18, "Print",ExpressionUUID->"56c95d75-ce49-448b-9bf0-159464f52d1f"], Cell[407212, 10251, 464, 10, 18, "Print",ExpressionUUID->"3c4a27c4-9640-4f59-ba94-317d6aca40b0"], Cell[407679, 10263, 454, 9, 18, "Print",ExpressionUUID->"3c8ba5d1-75f8-4298-83c5-f2c707ed305a"], Cell[408136, 10274, 439, 9, 18, "Print",ExpressionUUID->"0250083c-1462-4dec-b11b-cde936aa6103"], Cell[408578, 10285, 454, 9, 18, "Print",ExpressionUUID->"1121bdd5-054b-40ca-8aa0-dd4faa17b7a9"], Cell[409035, 10296, 458, 9, 18, "Print",ExpressionUUID->"dd27d0ae-bcfe-4f79-aeec-4c5b9782246f"], Cell[409496, 10307, 447, 10, 18, "Print",ExpressionUUID->"25e6cbd7-d1ad-4cf5-9888-48cbaf87c8a3"], Cell[409946, 10319, 463, 9, 18, "Print",ExpressionUUID->"f80f7a0b-c221-4f8f-8bf5-1685fa9f3f79"], Cell[410412, 10330, 456, 10, 18, "Print",ExpressionUUID->"65aab1ae-5f58-4543-a937-a53fa7f6ed3a"], Cell[410871, 10342, 471, 9, 18, "Print",ExpressionUUID->"b90466b6-db07-4d87-8bb0-0c7dff405a8e"], Cell[411345, 10353, 462, 10, 18, "Print",ExpressionUUID->"1db25e5e-a721-48fe-84e2-9aa8f8609106"], Cell[411810, 10365, 478, 9, 18, "Print",ExpressionUUID->"f028f74f-8faa-467b-adbb-c6234ca9293d"], Cell[412291, 10376, 453, 9, 18, "Print",ExpressionUUID->"ed9dbc78-55bc-4d6b-bb16-993bb1972a4a"], Cell[412747, 10387, 439, 9, 18, "Print",ExpressionUUID->"b3cc1bef-979d-4291-bed0-08c635a0f1f5"], Cell[413189, 10398, 455, 9, 18, "Print",ExpressionUUID->"70259397-de5f-44d0-8de2-8318c934ee3e"], Cell[413647, 10409, 458, 9, 18, "Print",ExpressionUUID->"6e4db376-1a27-4156-9d5d-1a51168c3d80"], Cell[414108, 10420, 462, 9, 18, "Print",ExpressionUUID->"af6838f1-f056-48a7-af09-cf569cd489dc"], Cell[414573, 10431, 447, 10, 18, "Print",ExpressionUUID->"c6dd9897-7a50-4207-8276-22a9369611ea"], Cell[415023, 10443, 458, 10, 18, "Print",ExpressionUUID->"7ff6ca55-df9c-4e76-9283-8683f5f5c3c6"], Cell[415484, 10455, 460, 10, 18, "Print",ExpressionUUID->"96023981-de3d-4b92-aa58-e28b63a3b0ba"], Cell[415947, 10467, 463, 10, 18, "Print",ExpressionUUID->"76478023-52e5-4ee3-a14c-454762801028"], Cell[416413, 10479, 475, 9, 18, "Print",ExpressionUUID->"b2d593d2-198f-4cc0-94e5-1f383f54f84c"], Cell[416891, 10490, 454, 9, 18, "Print",ExpressionUUID->"75da7a3d-2d16-4e1e-a76b-01cae77eb41b"], Cell[417348, 10501, 438, 9, 18, "Print",ExpressionUUID->"1a55e73b-dca3-472a-bedd-cd25c18ec631"], Cell[417789, 10512, 454, 9, 18, "Print",ExpressionUUID->"70bc5394-f9fb-4afa-8a3a-a1e6e3d25682"], Cell[418246, 10523, 458, 9, 18, "Print",ExpressionUUID->"8b0fc777-6024-4c24-b40c-de2492c9faa0"], Cell[418707, 10534, 461, 9, 18, "Print",ExpressionUUID->"d596e770-f3cc-405c-8256-62b9016bc5a2"], Cell[419171, 10545, 450, 10, 18, "Print",ExpressionUUID->"381f860a-e9cf-40b1-8cb1-9a5c070a8080"], Cell[419624, 10557, 455, 10, 18, "Print",ExpressionUUID->"8ed37bdd-a152-402d-b701-f10707c836e4"], Cell[420082, 10569, 471, 9, 18, "Print",ExpressionUUID->"15222bbd-0e03-47d2-9ab4-8a38414f03e1"], Cell[420556, 10580, 474, 9, 21, "Print",ExpressionUUID->"19b2bb57-3e4b-4c5b-adfa-747e8e087a24"], Cell[421033, 10591, 464, 10, 18, "Print",ExpressionUUID->"b239836e-04ed-422d-9843-934ccea1f225"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[421546, 10607, 177, 2, 21, "Input",ExpressionUUID->"be31cca8-a841-47a8-90be-0045d0ee1d4a"], Cell[421726, 10611, 690, 12, 24, "Output",ExpressionUUID->"a2245b94-f904-4412-9269-d97a8b76c06f"] }, Open ]], Cell[CellGroupData[{ Cell[422453, 10628, 658, 14, 34, "Input",ExpressionUUID->"73d67782-17fb-494f-8422-035fcd8eebc6"], Cell[423114, 10644, 1824, 42, 186, "Output",ExpressionUUID->"260f45d4-367f-4007-9547-0dd0abe54754"] }, Open ]], Cell[CellGroupData[{ Cell[424975, 10691, 269, 7, 34, "Input",ExpressionUUID->"cffa1043-22a0-44b5-baee-b7e311b2c258"], Cell[425247, 10700, 1364, 36, 24, "Output",ExpressionUUID->"c2c81d9c-935e-4544-80fb-1affe1574776"] }, Open ]], Cell[CellGroupData[{ Cell[426648, 10741, 657, 13, 34, "Input",ExpressionUUID->"5d5a4171-e1eb-4723-95e5-3d292746f382"], Cell[427308, 10756, 339, 4, 25, "Output",ExpressionUUID->"c7966735-8d05-48b4-8162-dd078b55bbd2"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)