(* 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 ]]
}
]
*)