(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 268565, 6041] NotebookOptionsPosition[ 256581, 5851] NotebookOutlinePosition[ 257020, 5868] CellTagsIndexPosition[ 256977, 5865] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Preliminaries", "Section", CellChangeTimes->{{3.890381973761797*^9, 3.890381979363853*^9}},ExpressionUUID->"45ed454b-eb4f-475c-afe5-\ 7eade935039b"], Cell[CellGroupData[{ Cell["Load the solutions", "Subsubsection", CellChangeTimes->{{3.8584016290904293`*^9, 3.858401647805174*^9}, { 3.8584070597061157`*^9, 3.858407061560068*^9}, {3.8771606351557713`*^9, 3.877160640892913*^9}, {3.890380096208899*^9, 3.8903801008324966`*^9}},ExpressionUUID->"30b2384c-1e74-4f43-8cb6-\ 93e453ec74af"], Cell[BoxData[ RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.890380044565257*^9, 3.8903800536874447`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"6d6af6e5-8be5-48f8-838e-1ef083c92578"], Cell[BoxData[ RowBox[{ RowBox[{"Get", "[", "\"\\"", "]"}], ";"}]], "Input",\ CellChangeTimes->{{3.890380068247736*^9, 3.890380075782074*^9}, { 3.8903826006881227`*^9, 3.890382602758739*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"f2763898-5d9d-4e07-abf3-b3168431e685"] }, Closed]], Cell[CellGroupData[{ Cell["Useful functions", "Subsubsection", CellChangeTimes->{{3.8584016290904293`*^9, 3.858401647805174*^9}, { 3.8584070597061157`*^9, 3.858407061560068*^9}, {3.8771606351557713`*^9, 3.877160640892913*^9}, {3.890380096208899*^9, 3.890380119653632*^9}, { 3.8903811914392357`*^9, 3.890381194183998*^9}},ExpressionUUID->"255b272d-bbf6-4a85-9579-\ 5b9843859f17"], Cell["\<\ Here we define some functions that are useful when it comes to plot the \ different quantities:\ \>", "Text", CellChangeTimes->{{3.89038119551541*^9, 3.890381223767366*^9}},ExpressionUUID->"9611930c-7a37-4258-ad59-\ 371d6878c47c"], Cell[BoxData[ RowBox[{ RowBox[{"removeUnits", "=", RowBox[{"{", RowBox[{ RowBox[{"Nc", "\[Rule]", "1"}], ",", RowBox[{"M", "\[Rule]", "1"}], ",", RowBox[{"\[Lambda]", "\[Rule]", "1"}], ",", RowBox[{"bJ0", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"4", " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]}]]}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.890380887470584*^9, 3.89038089350247*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"b03c3684-d735-4352-9ced-3724cb9615b2"], Cell[BoxData[ RowBox[{ RowBox[{"ruleLQCD", "=", RowBox[{"{", RowBox[{"\[Lambda]", "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["Nc", "3"], " ", "\[CapitalLambda]QCD"}], SuperscriptBox["M", "3"]]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.890381484905431*^9, 3.890381490957847*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"1e2dcd31-2b61-49ee-8d93-6d205181cda8"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"valuepfMu", "[", "k_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"\[Mu]dual", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Mu]dual", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}]}], "//", "N"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.890381615158209*^9}, CellLabel->"In[5]:=",ExpressionUUID->"dd697054-2f75-445a-b0d1-9faeb5ddc976"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"chooseMu", "[", "chosen\[Mu]_", "]"}], ":=", RowBox[{"Select", "[", RowBox[{"allsolutions", ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"chosen\[Mu]", ",", RowBox[{"(", RowBox[{"\[Mu]dual", "/.", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], "&"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.890381617902863*^9}, CellLabel->"In[6]:=",ExpressionUUID->"9c5ba9e3-a30d-4899-88fd-642811ca030b"] }, Closed]], Cell[CellGroupData[{ Cell["Thermodynamic quantities", "Subsubsection", CellChangeTimes->{{3.8584016290904293`*^9, 3.858401647805174*^9}, { 3.8584070597061157`*^9, 3.858407061560068*^9}, {3.8771606351557713`*^9, 3.877160640892913*^9}, {3.890380096208899*^9, 3.890380119653632*^9}},ExpressionUUID->"46b66ec8-98ec-4d60-b5b0-\ 25ec06d35269"], Cell["The baryon chemical potential is:", "Text", CellChangeTimes->{{3.890380787642199*^9, 3.890380794817321*^9}},ExpressionUUID->"e92d065e-ccea-4a60-b628-\ 18436c4403d6"], Cell[BoxData[ RowBox[{ RowBox[{"\[Mu]B", "=", FractionBox[ RowBox[{ SuperscriptBox["M", "3"], " ", "\[Lambda]", " ", RowBox[{"(", RowBox[{ RowBox[{"675", " ", "b5", " ", SuperscriptBox["\[Lambda]0", "2"]}], "-", RowBox[{"16", " ", RowBox[{"(", RowBox[{ RowBox[{"80", " ", "b1", " ", SuperscriptBox["bJ0", "3"], " ", "v0", " ", SuperscriptBox["\[Lambda]0", "2"]}], "+", RowBox[{"27", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["bJ0", "2"], " ", "v0", " ", "v1", " ", SuperscriptBox["\[Lambda]0", "2"]}], "+", RowBox[{"5", " ", "B0", " ", SuperscriptBox["f02", "2"], " ", "g02", " ", SuperscriptBox["\[Xi]H", "2"], " ", SqrtBox[ RowBox[{"1", "-", SuperscriptBox["\[Xi]H", "4"]}]]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], RowBox[{"23040", " ", "b1", " ", SuperscriptBox["Nc", "3"], " ", "\[Pi]", " ", SuperscriptBox["\[Lambda]0", "2"]}]]}], ";"}]], "Input", CellChangeTimes->{{3.890380148262466*^9, 3.890380169335121*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"7f919322-303d-41ea-8634-9032705eeed4"], Cell["The baryon density is:", "Text", CellChangeTimes->{{3.890380787642199*^9, 3.890380805425337*^9}},ExpressionUUID->"8b71c23f-36c0-4383-b642-\ 03cc555d2c40"], Cell[BoxData[ RowBox[{ RowBox[{"QB", "=", FractionBox[ RowBox[{"b1", " ", SuperscriptBox["bJ0", "5"], " ", SuperscriptBox["M", "7"], " ", SuperscriptBox["\[Lambda]", "2"]}], RowBox[{"36", " ", SuperscriptBox["Nc", "5"], " ", SuperscriptBox["\[Pi]", "3"]}]]}], ";"}]], "Input", CellChangeTimes->{{3.890380139299473*^9, 3.890380143752027*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"3cdf647b-dde7-4eab-8d94-290d25bd3afe"], Cell["The temperature and entropy read:", "Text", CellChangeTimes->{{3.890380787642199*^9, 3.890380824786912*^9}},ExpressionUUID->"df7dc6fd-eb5b-4349-ad9d-\ d225d873dd44"], Cell[BoxData[ RowBox[{ RowBox[{"temperature", "=", RowBox[{"-", FractionBox[ RowBox[{"B0", " ", SuperscriptBox["bJ0", "2"], " ", SuperscriptBox["M", "3"], " ", "\[Lambda]", " ", SuperscriptBox["\[Xi]H", "2"], " ", SqrtBox[ FractionBox[ RowBox[{"1", "-", SuperscriptBox["\[Xi]H", "4"]}], "h0"]]}], RowBox[{"32", " ", SqrtBox["2"], " ", SuperscriptBox["Nc", "3"], " ", SuperscriptBox["\[Pi]", "2"]}]]}]}], ";"}]], "Input", CellChangeTimes->{{3.8903801923333807`*^9, 3.8903801947460413`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"cf6f1eaf-46ab-468d-a4cc-b5b588093f2c"], Cell[BoxData[ RowBox[{ RowBox[{"entropy", "=", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["bJ0", "3"], " ", SuperscriptBox["f02", "2"], " ", "g02", " ", SqrtBox["h0"], " ", SuperscriptBox["M", "7"], " ", SuperscriptBox["\[Lambda]", "2"]}], RowBox[{"6", " ", SqrtBox["2"], " ", SuperscriptBox["Nc", "5"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["\[Lambda]0", "2"]}]]}]}], ";"}]], "Input", CellChangeTimes->{{3.890380202231135*^9, 3.890380205244413*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"b4bdccf0-6be9-4cd0-89f5-cb0da9b786e0"], Cell["while the pressure and energy are", "Text", CellChangeTimes->{{3.890380787642199*^9, 3.89038083383136*^9}},ExpressionUUID->"99db1525-3256-4b02-aa27-\ 49bb9d64a6d7"], Cell[BoxData[ RowBox[{ RowBox[{"pressureB", "=", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["bJ0", "5"], " ", SuperscriptBox["M", "10"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "405"}], " ", "b5"}], "+", RowBox[{"270", " ", "f5"}], "+", RowBox[{"128", " ", SuperscriptBox["bJ0", "2"], " ", "v0", " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", "b1", " ", "bJ0"}], "+", RowBox[{"27", " ", "v1"}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Lambda]", "3"]}], RowBox[{"1658880", " ", SuperscriptBox["Nc", "8"], " ", SuperscriptBox["\[Pi]", "4"]}]]}]}], ";"}]], "Input", CellChangeTimes->{{3.890380221400548*^9, 3.890380224290687*^9}, { 3.890380680975115*^9, 3.89038068117691*^9}, 3.890380714042273*^9, { 3.890380747913278*^9, 3.890380750566236*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"4da3d101-01ce-4ee5-a02b-efa558878aba"], Cell[BoxData[ RowBox[{ RowBox[{"energy", "=", FractionBox[ RowBox[{ SuperscriptBox["bJ0", "5"], " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", "b5"}], "+", RowBox[{"2", " ", "f5"}]}], ")"}], " ", SuperscriptBox["M", "10"], " ", SuperscriptBox["\[Lambda]", "3"]}], RowBox[{"12288", " ", SuperscriptBox["Nc", "8"], " ", SuperscriptBox["\[Pi]", "4"]}]]}], ";"}]], "Input", CellChangeTimes->{{3.890380230919032*^9, 3.8903802341333714`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"e865960c-98af-48d0-b224-5dec4e96385f"], Cell["Finally, baryon magnetic field and magnetisation ", "Text", CellChangeTimes->{{3.890380787642199*^9, 3.890380805425337*^9}, { 3.890380838444666*^9, 3.890380853900963*^9}},ExpressionUUID->"8f55e76f-fecd-46fe-802f-\ 4ea00c8ab631"], Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalB]B", "=", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["bJ0", "4"], " ", SuperscriptBox["M", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", "b1", " ", "bJ0"}], "+", RowBox[{"27", " ", "v1"}]}], ")"}], " ", SuperscriptBox["\[Lambda]", "2"]}], RowBox[{"1080", " ", SuperscriptBox["Nc", "6"], " ", SuperscriptBox["\[Pi]", "2"]}]]}]}], ";"}]], "Input", CellChangeTimes->{{3.890380508625502*^9, 3.890380512878035*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"99047fdd-fbb8-493c-b6a1-9d1e40eb216e"], Cell[BoxData[ RowBox[{ RowBox[{"magnetizationBaryons", "=", FractionBox[ RowBox[{ SuperscriptBox["bJ0", "3"], " ", SuperscriptBox["M", "4"], " ", "v0", " ", "\[Lambda]"}], RowBox[{"12", " ", SuperscriptBox["Nc", "2"], " ", SuperscriptBox["\[Pi]", "2"]}]]}], ";"}]], "Input", CellChangeTimes->{{3.890380520437428*^9, 3.890380531546351*^9}, { 3.890380858811144*^9, 3.890380858896443*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"ef1f92f3-743c-48f9-9616-af17527eaaba"], Cell[BoxData[ RowBox[{ RowBox[{"freeEnergy", "=", FractionBox[ RowBox[{ SuperscriptBox["bJ0", "5"], " ", SuperscriptBox["M", "10"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "405"}], " ", "b5"}], "+", RowBox[{"270", " ", "f5"}], "+", RowBox[{"128", " ", SuperscriptBox["bJ0", "2"], " ", "v0", " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", "b1", " ", "bJ0"}], "+", RowBox[{"27", " ", "v1"}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Lambda]", "3"]}], RowBox[{"1658880", " ", SuperscriptBox["Nc", "8"], " ", SuperscriptBox["\[Pi]", "4"]}]]}], ";"}]], "Input", CellChangeTimes->{{3.890383394328875*^9, 3.890383408977891*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"5ab11aef-a00f-4cdd-8017-764770cd5ff7"], Cell[" ", "Text", Editable->False, Selectable->False, CellFrame->{{0, 0}, {0, 0.5}}, ShowCellBracket->False, CellMargins->{{0, 0}, {1, 1}}, CellElementSpacings->{"CellMinHeight"->1}, CellFrameMargins->0, CellFrameColor->RGBColor[0, 0, 1], CellSize->{ Inherited, 3},ExpressionUUID->"df270cdd-3767-40fd-a99d-8455dfe53171"], Cell["We can check that the first law is satisfied:", "Text", CellChangeTimes->{{3.890380761678005*^9, 3.890380779382988*^9}},ExpressionUUID->"18a9dc7c-1081-4ce6-85f3-\ e3af4019b361"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Assuming", "[", RowBox[{ RowBox[{"h0", ">", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"pressureB", "+", " ", "energy"}], ")"}], "==", RowBox[{"(", RowBox[{ RowBox[{"temperature", " ", "entropy"}], " ", "+", " ", RowBox[{"\[Mu]B", " ", "QB"}]}], ")"}]}], "//", "Simplify"}]}], "]"}]], "Input", CellChangeTimes->{{3.890380543861444*^9, 3.890380582131173*^9}, 3.890380754770609*^9}, CellLabel->"In[16]:=",ExpressionUUID->"29037053-68e9-49c5-b04d-31371880e82f"], Cell[BoxData["True"], "Output", CellChangeTimes->{{3.890380567552515*^9, 3.8903805825405693`*^9}, 3.890380682885222*^9, 3.8903807155824013`*^9, {3.890380754883316*^9, 3.890380757871278*^9}, 3.890383435327221*^9, 3.890466046065757*^9}, CellLabel->"Out[16]=",ExpressionUUID->"bb2ba581-32d8-44ae-83d0-d7a066e86b85"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"freeEnergy", "==", RowBox[{"-", "pressure"}]}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.8903834281847363`*^9, 3.8903834321906223`*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"b01f2002-a484-4d06-82d1-845257e70376"], Cell[BoxData[ RowBox[{ RowBox[{"pressure", "+", FractionBox[ RowBox[{ SuperscriptBox["bJ0", "5"], " ", SuperscriptBox["M", "10"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "405"}], " ", "b5"}], "+", RowBox[{"270", " ", "f5"}], "+", RowBox[{"128", " ", SuperscriptBox["bJ0", "2"], " ", "v0", " ", RowBox[{"(", RowBox[{ RowBox[{"20", " ", "b1", " ", "bJ0"}], "+", RowBox[{"27", " ", "v1"}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["\[Lambda]", "3"]}], RowBox[{"1658880", " ", SuperscriptBox["Nc", "8"], " ", SuperscriptBox["\[Pi]", "4"]}]]}], "\[Equal]", "0"}]], "Output", CellChangeTimes->{{3.890383428714263*^9, 3.890383435353812*^9}, 3.8904660460858*^9}, CellLabel->"Out[17]=",ExpressionUUID->"cdfd53a2-a1b2-4551-b519-58bf76c64f02"] }, Open ]], Cell[TextData[{ "Note that all the solutions provided are such that ", StyleBox["\[ScriptCapitalB]B", FontWeight->"Bold"], " is set to zero," }], "Text", CellChangeTimes->{{3.890381129139206*^9, 3.890381148240649*^9}},ExpressionUUID->"2c6f1b39-b9ea-4f0f-9ae0-\ f22630f93493"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalB]B", "/.", "allsolutions"}], "/.", "removeUnits"}], "//", "Flatten"}], "//", "Max"}]], "Input", CellChangeTimes->{{3.890380865061816*^9, 3.890380960618957*^9}, { 3.890381109160849*^9, 3.89038111946413*^9}, 3.8903811525149384`*^9}, CellLabel->"In[18]:=",ExpressionUUID->"8b4a2b43-3d70-4d68-b0cd-f4c7d2898fee"], Cell[BoxData["0``35.75554577857982"], "Output", CellChangeTimes->{{3.890380870040853*^9, 3.890380961005437*^9}, 3.890381084200664*^9, 3.890381119961502*^9, 3.890381154917922*^9, 3.890383437549699*^9, 3.8904660465042562`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"fac75c3d-5a1c-476a-b99b-0268b86fde72"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Using the solutions", "Section", CellChangeTimes->{{3.890381973761797*^9, 3.890381994214261*^9}},ExpressionUUID->"4fc56bcb-6c2c-420c-83a5-\ fb8a84e16d2a"], Cell[CellGroupData[{ Cell["Understanding the data set: finite temperature solutions", \ "Subsubsection", CellChangeTimes->{{3.890381423162054*^9, 3.8903814294641237`*^9}, { 3.890382217673277*^9, 3.8903822216437817`*^9}},ExpressionUUID->"f5aca597-6257-480a-8a0e-\ efa218df63c7"], Cell["\<\ The set of all the solutions that have been computed is encoded by:\ \>", "Text", CellChangeTimes->{{3.890381243776322*^9, 3.8903812585863113`*^9}, { 3.8903812952060633`*^9, 3.890381300088475*^9}},ExpressionUUID->"de94a382-cd3b-49cd-99e4-\ 4689c1e91db3"], Cell[BoxData[ RowBox[{ RowBox[{"setOfMuDual", "=", RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "200"], ",", FractionBox["1", "100"], ",", FractionBox["3", "200"], ",", FractionBox["1", "50"], ",", FractionBox["1", "40"], ",", FractionBox["3", "100"], ",", FractionBox["7", "200"], ",", FractionBox["1", "25"], ",", FractionBox["9", "200"], ",", FractionBox["1", "20"], ",", FractionBox["11", "200"], ",", FractionBox["3", "50"], ",", FractionBox["13", "200"], ",", FractionBox["7", "100"], ",", FractionBox["3", "40"], ",", FractionBox["2", "25"], ",", FractionBox["17", "200"], ",", FractionBox["9", "100"], ",", FractionBox["19", "200"], ",", FractionBox["1", "10"], ",", FractionBox["21", "200"], ",", FractionBox["11", "100"], ",", FractionBox["23", "200"], ",", FractionBox["3", "25"], ",", FractionBox["1", "8"], ",", FractionBox["13", "100"], ",", FractionBox["27", "200"], ",", FractionBox["7", "50"], ",", FractionBox["29", "200"], ",", FractionBox["3", "20"], ",", FractionBox["31", "200"], ",", FractionBox["4", "25"], ",", FractionBox["33", "200"], ",", FractionBox["17", "100"], ",", FractionBox["7", "40"], ",", FractionBox["9", "50"], ",", FractionBox["37", "200"], ",", FractionBox["19", "100"], ",", FractionBox["39", "200"], ",", FractionBox["1", "5"], ",", FractionBox["409", "2000"], ",", FractionBox["41", "200"], ",", FractionBox["21", "100"], ",", FractionBox["43", "200"], ",", FractionBox["11", "50"], ",", FractionBox["9", "40"], ",", FractionBox["23", "100"], ",", FractionBox["93", "400"], ",", FractionBox["47", "200"], ",", FractionBox["237", "1000"], ",", FractionBox["119", "500"], ",", FractionBox["239", "1000"], ",", FractionBox["6", "25"], ",", FractionBox["241", "1000"], ",", FractionBox["483", "2000"], ",", FractionBox["121", "500"], ",", FractionBox["24201", "100000"], ",", FractionBox["12101", "50000"], ",", FractionBox["24203", "100000"], ",", FractionBox["6051", "25000"], ",", FractionBox["4841", "20000"], ",", FractionBox["12103", "50000"], ",", FractionBox["24207", "100000"], ",", FractionBox["1513", "6250"], ",", FractionBox["24209", "100000"], ",", FractionBox["2421", "10000"], ",", FractionBox["1211", "5000"], ",", FractionBox["2423", "10000"], ",", FractionBox["303", "1250"], ",", FractionBox["97", "400"], ",", FractionBox["1213", "5000"], ",", FractionBox["2427", "10000"], ",", FractionBox["607", "2500"], ",", FractionBox["2429", "10000"], ",", FractionBox["243", "1000"], ",", FractionBox["61", "250"], ",", FractionBox["49", "200"], ",", FractionBox["31", "125"], ",", FractionBox["1", "4"], ",", FractionBox["13", "50"], ",", FractionBox["27", "100"], ",", FractionBox["7", "25"], ",", FractionBox["29", "100"], ",", FractionBox["3", "10"], ",", FractionBox["31", "100"], ",", FractionBox["327", "1000"]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.890381262020444*^9, 3.890381292894125*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"03af2b75-f9e0-4fdc-a81e-09a76d21fd39"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"setOfMuDual", "//", "Length"}]], "Input", CellChangeTimes->{{3.8903812671533813`*^9, 3.890381269783098*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"80f3a4c4-88fe-4b97-b016-6d7e35ea6dbe"], Cell[BoxData["87"], "Output", CellChangeTimes->{{3.890381269943295*^9, 3.890381301522806*^9}, 3.8903814388553677`*^9, 3.8904660503710947`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"9d0b4bf2-716f-431d-9fe9-1fdeedff2abb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"allsolutions", "//", "Length"}]], "Input", CellChangeTimes->{{3.890381271311944*^9, 3.890381273168363*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"d3b2854a-8215-4837-8cea-1578854b4a5c"], Cell[BoxData["87"], "Output", CellChangeTimes->{{3.890381273350222*^9, 3.890381301729891*^9}, 3.8903814390368137`*^9, 3.890466050388612*^9}, CellLabel->"Out[21]=",ExpressionUUID->"f3ef2d57-0049-4d0f-a387-2bab486d3514"] }, Open ]], Cell[TextData[{ "Each element in ", StyleBox["allsolutions", FontWeight->"Bold"], ", thus, correspond to the parameters of different solutions with varying \ temperature and fixed chemical baryon potential. This is encoded by \[Mu]dual " }], "Text", CellChangeTimes->{{3.89038130558571*^9, 3.8903813665986557`*^9}, { 3.8903816437775106`*^9, 3.8903817076995173`*^9}, {3.8903817728144283`*^9, 3.890381793918874*^9}},ExpressionUUID->"780f48cf-ccaa-4584-b6a8-\ 5580c88a1bb1"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"\[Mu]dual", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"\[Mu]dual", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.8903817988694763`*^9, 3.890381806272291*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"c48dcb46-7c93-4511-a871-d1e29219afef"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{{3.8903817994117737`*^9, 3.890381810651271*^9}, 3.890466050395875*^9}, CellLabel->"Out[22]=",ExpressionUUID->"8105359c-ac2d-4b28-8904-3a1b0a9a6280"], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"], ",", FractionBox["1", "200"]}], "}"}]], "Output", CellChangeTimes->{{3.8903817994117737`*^9, 3.890381810651271*^9}, 3.890466050397711*^9}, CellLabel->"Out[23]=",ExpressionUUID->"c3e143b3-6c39-4eac-a365-c5319a5f092b"] }, Open ]], Cell["\<\ Additionally, each solution contains the different parameters that determine \ the solutions, for example\ \>", "Text", CellChangeTimes->{{3.890381784203002*^9, 3.890381791285737*^9}, { 3.890381826724419*^9, 3.890381831718915*^9}},ExpressionUUID->"d67107a0-8a0c-4938-8d3e-\ fa2132bc7658"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]], "Input", CellLabel->"In[24]:=",ExpressionUUID->"b260c461-df18-4e1e-a778-30e0c5fcfda9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "f4", "\[Rule]", "0.9731557763247413123932220249720917804869282173008374157937`40."}], ",", RowBox[{"f5", "\[Rule]", RowBox[{ "-", "6.4783091116604067040451927657001584617450284022375027897161`40."}]}\ ], ",", RowBox[{"f10", "\[Rule]", RowBox[{ "-", "14.294310408359124392872342016940056478594962854164727406645`40."}]}\ ], ",", RowBox[{"bJ4", "\[Rule]", RowBox[{ "-", "4.8354698783796627417175234167208657550917695670586159633233`40."}]}\ ], ",", RowBox[{"bJ6", "\[Rule]", RowBox[{ "-", "4.2174099540931126464975712315456268127826672179936781273359`40."}]}\ ], ",", RowBox[{ "bJ9", "\[Rule]", "12.0579959748789452058020648389741522828667877062352062324247`40."}], ",", RowBox[{ "v0", "\[Rule]", "0.0321966969157553382878075275413819792163469257956421847672`40."}], ",", RowBox[{ "f02", "\[Rule]", "1.203738422508449363600770517887934821422657265208736836975`40."}], ",", RowBox[{ "\[Xi]H", "\[Rule]", "0.6130032102503455899404650928181371643461182208409382387727`40."}], ",", RowBox[{ "\[Lambda]0", "\[Rule]", "0.8541529252346332822098312477679772926273841631802318441117`40."}], ",", RowBox[{"B0", "\[Rule]", RowBox[{ "-", "9.6945613056574392807859079036394809557197038153766988689387`40."}]}\ ], ",", RowBox[{ "h0", "\[Rule]", "0.1450039772714499474645129014746030355820952885328446110333`40."}], ",", RowBox[{"\[Xi]0", "\[Rule]", RowBox[{ "-", "1.623650118498583599042160434249497038928958103781232203484`40."}]}]\ , ",", RowBox[{"\[Chi]0", "\[Rule]", RowBox[{ "-", "1.6239693647150393420825363533648173895352714086342254185916`40."}]}\ ], ",", RowBox[{"\[Alpha]0", "\[Rule]", RowBox[{ "-", "0.7559397870593762058421976942098580643426825788985693357826`40."}]}\ ], ",", RowBox[{"v1", "\[Rule]", RowBox[{ "-", "0.0658096095881004471649098544903236063223266550439744994496`40."}]}\ ], ",", RowBox[{"v4", "\[Rule]", RowBox[{ "-", "0.0535465096928048475944975771343188831659958562937678902613`40."}]}\ ], ",", RowBox[{ "v5", "\[Rule]", "0.008078403452529882237442176220805494827107698554050206844`40."}], ",", RowBox[{"a1H", "\[Rule]", RowBox[{ "-", "0.048803276420551526283621736057107985562928268245977656731`40."}]}]\ , ",", RowBox[{ "aTH", "\[Rule]", "0.0209366468219369016274497174749279655348916600197834292039`40."}], ",", RowBox[{"aHH", "\[Rule]", RowBox[{ "-", "0.0685942981510095303147626156062832077107663684713201302577`40."}]}\ ], ",", RowBox[{ "g02", "\[Rule]", "0.42902194630991757895444038695131894201040267944335937500000000000000000\ 000077`60."}], ",", RowBox[{"b1", "\[Rule]", RowBox[{ "-", "0.022588615010504769611509063466038634140635950234414128232`40."}]}]\ , ",", RowBox[{"b5", "\[Rule]", RowBox[{ "-", "9.2810337691026471018291371732453446359747242358524324767366`39.\ 13805038216081"}]}], ",", RowBox[{"\[Mu]dual", "\[Rule]", FractionBox["1", "200"]}], ",", RowBox[{"Bdual", "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{3.890381703595778*^9, 3.89038183295323*^9, 3.890466050412781*^9}, CellLabel->"Out[24]=",ExpressionUUID->"5572f8b4-bcd0-40fe-8d57-6f5a14b97e3f"] }, Open ]], Cell[TextData[{ "It is good to know that ", StyleBox["\[Mu]dual", FontWeight->"Bold"], " is proportional to the baryon chemical potential, essentially ", Cell[BoxData[ StyleBox[ RowBox[{"\[Mu]dual", "=", FractionBox["\[Mu]B", RowBox[{"2", "\[Pi]", " ", SubscriptBox["\[CapitalLambda]", "QCD"]}]]}], FontWeight->"Bold"]], CellChangeTimes->{{3.89038145842352*^9, 3.890381525991115*^9}}, ExpressionUUID->"162e3f08-3ae0-4cce-bb52-f7073d6c8d95"], ":" }], "Text", CellChangeTimes->{{3.8903813803032503`*^9, 3.890381398796507*^9}, { 3.890381444561846*^9, 3.890381455731904*^9}, {3.890381537132393*^9, 3.890381582285759*^9}, {3.8903818381543427`*^9, 3.89038185041496*^9}, { 3.8903818860616093`*^9, 3.890381886963935*^9}},ExpressionUUID->"5d4502e2-33ab-48b7-9a21-\ 1d2945d351d1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Mu]dual", "-", FractionBox["\[Mu]B", RowBox[{"2", "\[Pi]", " ", "\[CapitalLambda]QCD"}]]}], "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "/.", "ruleLQCD"}], "/.", "removeUnits"}], "//", "Simplify"}]], "Input", CellChangeTimes->{{3.89038145842352*^9, 3.890381525991115*^9}, { 3.8903818724271603`*^9, 3.8903818774619217`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"fe20223a-f001-4c34-964f-1302277771ad"], Cell[BoxData["0``39.048696414276904"], "Output", CellChangeTimes->{{3.890381468953849*^9, 3.890381526192952*^9}, { 3.8903815835757713`*^9, 3.8903815884496603`*^9}, {3.8903818579782352`*^9, 3.890381889587162*^9}, 3.890466050417163*^9}, CellLabel->"Out[25]=",ExpressionUUID->"3d9a402f-d8ff-4c1d-ad80-6a30a32dae84"] }, Open ]], Cell[" ", "Text", Editable->False, Selectable->False, CellFrame->{{0, 0}, {0, 2}}, ShowCellBracket->False, CellMargins->{{0, 0}, {1, 1}}, CellElementSpacings->{"CellMinHeight"->1}, CellFrameMargins->0, CellFrameColor->RGBColor[0, 0, 1], CellSize->{ Inherited, 4},ExpressionUUID->"f6716e06-093f-4e85-82aa-b0c9c918f382"], Cell[TextData[{ "The function ", StyleBox["chooseMu[chosen\[Mu]] ", FontWeight->"Bold"], " can be used to choose the solutions with certain \[Mu]dual. This can be \ used to plot certain quantities, like the entropy as a function of the \ temperature." }], "Text", CellChangeTimes->{{3.890382027212542*^9, 3.890382053186554*^9}, { 3.89038215965718*^9, 3.890382209132626*^9}},ExpressionUUID->"4948e867-b0bb-4c0b-9647-\ f45a6a3f0061"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"temperature", ",", "entropy"}], "}"}], "/.", RowBox[{"chooseMu", "[", RowBox[{"{", RowBox[{ FractionBox["1", "10"], ",", FractionBox["3", "10"]}], "}"}], "]"}]}], "/.", "removeUnits"}], "//", "ListLogLogPlot"}]], "Input", CellChangeTimes->{{3.890382055190484*^9, 3.890382149903143*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"e90b4355-1e6f-4677-824d-e0585d45eb46"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVl2c8FWwDxu29ObZjH+vgkBSp+w4N1FEZRaIUicgmSTY9KCObChElGY8y 4r6ThlFGopASlZ09zhHv8364fteH//Xt/+mSd75ywoWJgYFh7r/8vztiQi8y T/DCoNm3j99CEhSY9JHutuWFm3wMZPdpZZhg1sRQ/poHJulRSbwZyjAsSOtz ph4PjPD2K6yEylCBo9H7ThE3vANfllpPK0FNEndRoRA39EhSNt5IV4JTrnxW ryK44FTLruC7UAlKimZ7r81zwg6pQzam04rwhBfXOjjLCcX2uo9PpStCc/3N xfwuDhgEk3VSoSKkGW0GCwEOWEZNMzOcVoC+Wscq71aww+LZI4Zj6QrQwqD1 gwmRHR5SLRdKggqwcS1akvkWGwTP3//YNS0Pj7OzTn/9ywobrUVfjKXLw4dP 5so+ebJCExfLqmQoD/f1y/dNf2WByXJv+vdNy0H3vGaaPJUF6l3wNJ5Ll4Pq vkatV5uZYcBJJp57UA5efps0u6zFDClsbjmF/bLwzKClRfo9JnhyPteEiywL 2XjZOhwEmOBejU7LgAgidGp08j8awQjrBiQZxvtl4D7BOPdLiwzQ9ShHri1Z Bvq3Bs5Wn2eAeYnfL7+PkIZ5pQ+fnXq0DYwTNN8dHpCCo7Rb5yuTtsBrVU22 NrIULH9bSvT1+QtOMJrFUSMloSvT/ktFNpsgNzOp5suABGQwOMltbkgH8ydk 6O6aEjC/qYtwWZYGGm/l9DNFicOmz9RxftYN0OwY+bbgsxjkpeYTjabXgFXh lVOHtcRgZ7pn/VrPKnjpuUdmLUoU7sm3XDWrXwE/U2aqK74Q4OXT6c6GBctA Yf08uqJNgO+rhvu6by6BnT4V84YxIvB95A83gt8i6No3QhcYEoYXtbSvCpxZ AHkvD+YuUoRh3m5CRvuheZBHm0r4HisEe+2bF7Nc5wBzytjNoWFB2B3aO70X zABlK1+LcV1BON91tTVdYgp8lLsYQo8XgKifQqta+Q1Y7d/ZmjTzw+lySnrR x5+gKHryQYU7H2TtoneH1IyBI0mpbgZivHDCOvXpwfRR0CAaXzL2ihva5hn/ Ul0cAYU5JRXl3lww5Vrp4temQVDnXzeSKsMJJ1bP/WxM6gfc971s0trZYcEl yre2c73AI2Y4pSyIDUrMP5vj8O8EzFaS9A9KrFCa6LxVS24FG1t95rQeZjiS lcFUNfgcvCBk9BFvMEG568726uX5IFDPt1CDzAg//qIci5wtQPm79zSJVG8D rYMBty8cqUcaBUEMRtx/gRNZT1uwsxW1690/F3meBjqtFI/7z3UiTbuR5viG /zxdto/MjetFdSKS8/38K2Dp5X4R66x+5KC8w6/feRHU0w4Ydz4aROJ+V3CW yx9Qec3tUzUeQfeGDeuL/04C9jgHyW3PUbSg4benOGEceH69Hu57YwyxMD34 vCoxAohOtbvH0n8ig61vBbv/9oIR6smBkOrfaF+DtVzXRDOwsG5iVe+fRDlf o77j6ifI6dHNT1TGGeQo6ltx6dkHtPlc/bnSjjnEmy/sw28whAz49LND9eaR 173Vo4MPx5Ca2Y59D6gLqCRjlEe8YxKdvy+1nXN+EcnWbTZdpP9B0QaV11I8 l9A8F/G2i/ASCvm5GePjuozWBdE5bqlV5OF4x9LbbAXFyK9cG+HYQI/2RM7p iawi6Yv8Xgkf6ehwkUvy0ptVJOY7wPYwYAvVrneUVvxZRRtSZXkLhG203pAo eyhjDd0SZHazHmXAV85O+HeQ1tEI4VWZkiwTzjMfpygWr6MDbV474w8yY5qD Wni+yAaaG5a/t2LHghWvebxsD9pADlEfDoyfZsWQ5wCK6t5A61U1Zx9Q2bCF lc+/jHI0FCnyqfK4HjvueVvFv+FKQ4faRUo+8nHg79lr3lXFNCR1WiFt7BsH tj7THykxTEMyp5Y5CGWc+FnmfpUBTjq67qBMHfHgwp0j0iQbLTqKMJX7cE+N GzO+OdfSdZiONt0rWsrGuHGLn8Ptc6fo6Mkur1iQy4OH48oLBR3oyE/oiEzW cV7cFsjWOXaCjlp+O1UNsfPhY3x/26f20BEQNJciIj7s7BOTfVr0P146LHAy mB+n2xps3huloecaHRlkSQG8QGqfdsmnoWCDly3jVwXwcb5a1zIzGqLeUOtM HBLAcim9q89+baBnX2dvGwNB/NnhXiIpYANxZMfpchULYq/Z+u6ulXUU5oDO 9fAI4RJrG82GS+vItERZxD9QCGtoPgHcvWvIQzVm5eWoEJ6MSpFc1V5DOvvt n0VRhXHTgRT2J9GrqIdJovTGC2Es8twz27ZnBZ0wIdpc1xDBGsZlamxiK+iI zxjj4VwRnK/1+Nxz22VEJw1TKrkJeGdK1s4jKUtoxcvELjGUgI1PJD9OfLuI lKEle/0sAds8pgyq0BbQzMR6priTKCb53ymuVVtAfQGH61O7RbHLA8Pvdbbz yPR5wXthYzHcuJIkZ8L8B4WzCB5KrBHDsoGRjndtZpFu6G/2eSVxvL8tLl25 eBqFnAbdOzPEcUOC8fy5xUm06c/+wpZdAgN3rPZ27wTa2J3fezRYAotwsZU8 i/uFeGzdH4pNSmBqECBFdo+jABciV7WdJP75nk/OS3wMbWbWtUq1S+LcdaGX NU6jaGv8mou1oRSO8fQ6xnr0G5JKpgk5PJLChczwBcvgEHqqfdtth6Q0jr7S q/7Q9TPSjum0G7opjbmeaAUoLPUhjpBCKZsNafx80b+28EYP4l9WFSp0k8Fe rDG5meKdSL9Gq+XVgAwe7c91DdB9jciqva8bDxIx8yFTKcmcF8iZmPgqoZaI z2QSBXgKn6CqBMrFnUqyuNKJl+J91xsxekc4NKTKYouJlgeUwDJAjYtQvsUg h6+enP/x+XoDSDZ3u1SxSw63hxjeVZBtBYbxxNfNXnI4ruvSuspWO/D25d5C xXLYxiE3aXO2G/SQ9D9WD8vh5aNxT80d+oA619BmprA8Vqws19xuGwAG0Wpk b3N5LBnQ2iS1awjAKHluowh5nKxn3ltYNAIsft402nwuj5kGJBs62EcB1YR2 umpOHq8wWaWENf0ANdVLf08rK2DL0A9D077j4NQiS+XmaQUcJh9TSlD9BSY0 1tbTUhXwoGQLcWv4N6hhYrRTaFPAftaCgQ9TJoGZzJZZ6bYC9meN+iN8cBpo /VsGSPqK2PSjUPcB2gzwpA8+zLusiCXD2B1AxRzwuNoyxV2kiLcU0y4x6swD 31sqHv5fFHH+0ff6bVwL4ExWcWw/vxLOuNFIDh5fAL/2TqTrHlTCSUoODvzN iyAk7tdMfKgSbi4c6rqduQRawqWHvlQr4YJl+k2a9zKgar96rDyphNVeFcUc M18BxHq2ksuyyjj13a3aVMVVIFFgyPvURhnvJkmytGyugnEOHvnZBGV8XErV 6tunNSD6p0pGpUUZ6+uKhU5XrIMJVymjM+vKWOmfNsvfcRvAskOq+rYWCbs6 1Wd8PEsD/kt3qpsvkHCWo7hglQEd+Pnc85zKIeFHj9cCw4U2weCvSgHhHhIG fYHBxtObQDQUv9nNroIt1Nab1l79BcE3L9Wd3quCqfp2E/fztoBvBA9PqJ8K 3gO0UvYFbIOT5Lmf2WUquGLmRvEEiQFeOGjjVvtNBd+eae0mpzFAhpSSmg8E VXwy6C/P5W0GqO5249dPC1WcsCMnu8SDEa7PfJChR6jizC6WmuEBRvjm06w/ X50qFnNBqXymTPDy8r+scnOqOMAp6opRJRO8GJk6oa2khlneOl13lWaGvsZ3 9fbZq+Hxgf7ZxHhmeDO2fNs8WQ1X9ND+PF1mht9UzzravlHDxgs3K7vOssDS mD0Xzm6qYY1/OO1nOlmgYlSl4iVddWy3+7sImwErrP9Xu8LbTR2nKl9hlylm hQHF+iJBd9Vx/Fl1Wx1BNphsc8YltO+//YFKRZPrbNBo1bkynEsDd65/Sz4x yQZPzRkwR0MNrLAx98LJhh3K6gp7xAZqYMq766/dX7LDyDW35bhyDRxe8/iN nyYH3NPN8Tj+hwbuQ2pDIdkc0FJXJidenIxnm45Ih7NyQtkg/c44Khkv3iIW RvlwwrFTVhax0WTMe88rKuYrJ2xfmZCLbiBj1vzRTzFmXPC105RNxDwZ9wYw VETXcsF/UNfidZImls09KBspzw0XBfK3rzpo4spcbaOwJG6YFzYRFZCqiUtF TEWvbnBDK+fvsd7vNHE4E6nZ14UHXvlzjN9jSxNfDs4z8ejhgeKJZYouelq4 vfVurfNeXsg/wtju6K6F2TidFOzKeKH9bSLHqfta2NDCOpNK4INrHwLGjvVr 4Rx2U3mTCD7ombLjnBmPNo4/ZNGpP8sHJ+7sjd1vrI25TH8XqdnxQ3vyrpMG wdpYOPtvtdRrftjdF/2ZUqGNvdgXI2LFBaB4liWf6rg2Ntze0R1GFYBvZE3D +HkpWOXx1LvAaAH4mxzwkUuVgpsLwry9GgTg/D83ONhMKJjPmNjhMi8AJen8 soyOFJxcg4cdSILwS8UL8c1gCv7YrFpm5SAIM0LZ1lbTKPhz+O8d5qmCMJDZ vnGhgoLpNMdw+E4QHkYCF2faKNgoojVFf0sQnub1pf8ap+AoDkUPsp4Q3KX4 79XRbQrOsT3Dr+AuBEfXNn8MSepgQKBEiN0XglFy53f379TBS207XvH0C0FS wVxI9zEd3FwzMsDIIwylqrMft3voYPvk2Jer+4Xhm5DjHa2xOnjDzDlyOkgY WresDjYX6OCBWwnS358Iw/UMx6G6Fzr4nRVDat+YMCTOnHhfPaCD3xg/GH8n IQL1KGlV5Ys6OFXUWLTJUgTaD/bFl/DqYvvxRNWq/35B6vwrq/uquviUtbxM caMIrIllFs4x0cUm7bErWQsisEhf622aoy72CaPUJKoQoHJqv3fSVV18Pj7s ZPgZAky7FScQd0cXZw01j/mlEeDsVGtJ+FNdDHZp2V1sI0DPZG69kHZdfJNz o85+mwBZ5nrq/H7q4v8BbXYzxg== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.0055000000000000005`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVV3c4Ft4Xt/e7l+2deO29ea+SImkgUmSvtFRSyTd7RYqWIkqSUWhIxXtK qUhli0qICA2jjOLn99d9znPv+ZzzOfc5i+G3d0ugkICAwIyggMD/z8PDV51f u6qhsuQ1uMOvrNGDnT/XSq1WQwTSpliPsyvyQOLN3XQ15OAoYnEj1Bp5+NoH iv9VRS8GdjzvtbFG35PVCyO6VdEz25ksDtka6UPT0/fVquhsOD4sYswKefLO FKJMVbQ1TDSQX2+FGmWCE2+EqiKTi1+8ZHKsEK8hbw92jSpS1kl13RZqhVqW o7wO0VXRjcLudcU2VuiVHtryYZGDltZXW0yTrJBSgdWG1d0ctGZogYvGLFGU 9mPn0moOMmSepmbUWyKeHd6dkMlBc5tcBHqzLdHr9ZlBUaEcZExQ/qoaaonw 3aeO99txUJjj66YDNpYIvY+4bE/nICbZtAxIlqj748WGikU2yss3TsGMWaBk FD5N7maj1wp5vp71FqgqbKtWdDUbwXVkeiPbAi0RmvYMZbBRA/uXxEyIBVp3 zOaRYygbXTE83oVsLJAV6BGr7djokVDVlQySBUqgsQ/K0dlog8XWgN5Rc/T6 QGL/iUUW8tFZxVGrN0emd5tcR7tYaHqL/eCBbHM0emRvx8ZqFvreqX8JQswR Yd+sd00GCxXHtW7E2JijlPNfZpRDWUiy6MfyNpI5opxrPpdkx0KOwy5lxaNm KEoSrfmuwkJy+g2bp+vMkEv/J4Gti0z0PnN5ipdthnJvOzXVdTGR+PKLzJMh ZihEyeQqp5qJBl172O+tzdAxy02pGRlM9Aw7dpdDMkP9sx4nZkOYyFfrtk3E qCl6foKW4mXHRMLCH57U15mid693FD5XYaJcnJKNdLYpkhEUadFeZKD0RoU7 7iGmaGJhSvpcFwOp+h6nF1mbopMd8juXqhjoYslg4k/iirw/6kVQBgM5138d tBo1QZ1Eiv3bkBX9AZZpap0JuvZL7IOpHQPpG3DjOs+YIM3B/WkFKgz0376E BkaICbJfSt4iuUhHBbWPF3Zbm6BjHmnGEV10NINc1B4STVBfzSujvio6eifa sE5s1BjRvW5stsugoxuJJ7y31BmjqNazGRUhdOQYNh+cf8YYpfHlvlHt6EjL KCfgW7Ax4nY3hZxQoaOwz7ddTKyNUVzUTWrHrArySrtmFEc0RgrCP4tvlKug BIl6sTdfjVDgTmrSMX8VlJmw5pVcnREqrP5Ts1FeBZliDx8LPGOE/jtyBbFb lVGDepJiVbARMhldz55PVkYtWy6X/bUyQlUh+4Lf2CgjlZQetXVEI7TV7AG2 aFYJra9zzsr+aoh+q0qqHC1XQrddxb98emyITkUl5W3yV0JnTi4xNM4Yosrx 7FNq8kpocZjlcCjYEPFGehaW3imiqfhtHmBliAqaVg93JSuiO3EHnKWJhsju MMbtto0iOmxvqrH1qwHiTz3elDKrgHY98fxW8NgAldhr9vuWK6C1lfEZ46cN UEF6sriVvwLSabEnmgQboH/q21up8grIcE718AkrA1TjmGk39U4eEdxyHjYR DJB7Vnjom2R5FO013kv+qo9a/txcV2Yjjw58PdDl/VgfGYqHjKfMyqFZZZ+y ktP6qM7McntwuRzaFdHsPhWkj2TL9a7a+8sh3P7a95ZW+miI3tGkKi+HLuSS dRMJ+qjb2uSzeKss2qZS4fZmRA+dVZ+eHEuWRQunTNfTHushwwhzgRYbWfTr 2HqMz2k9VLejlVU1S0PV/3wvlgTpofUx7KBz5TRUYNgx8dNSD/Ea13RG+9NQ ZdF7EXOCHqodm/8vQJ6Gvilj6gRbdNEWKzi0oZWKRNbkTGYd1kVnFvoaTVOo yMH8fY4KUxfdl/ZOYPGoCN2QL694rYOKkS7gf1PQXZ6tluVhHcSkKmQsl1NQ 6tY+zEuGDkoR6Fv64U9BR1bLOri+1kZn1zI1BuUpqDW2obM/UhtNRpWyu1rJ qDeNVxbG0EY6UUj0dQoZOQedgJlmLZRp2DbUwCOj6nFRmZhILUQWOf6+7jcJ zdzqjBdjaKGDcFngYQUJMc4cVMps1kRnU/sOPgggIZvZ/hZypCbKcV/lUqtA QhXRSam5dE3UtMHx4eM2IjoViOxUmjXQfN/3V09TiSjTe+2vq4c0kFg1XGtG ROTaqx3PoWugvrT5sO4/BJT8tnO8uImLHrdm2Y3cIqDUniBFtUNcNMfa7D4X SEDbr60WLVbhooJb35sxSgTUeGXpLKtJHV0IVG5R7cCj0O4NdVcOqqNJzK3k 1el4xO75FyKvoo48CXkaAavwaOLsUGL2KzXUSwt/Q5jGobfslmWpg2oo9u/m QX9fHBJW2//khLIaKsc6/at/i0Wk5zvuzrxc6StLP7NYNlgUuNwPQQdUET7O jnymHINW0+daupRUUX7DpLC0AgbJypg9sXvJQftldg9mpsogd+atmMoIDvr8 fqOZ8pw02u76YlROiYOGd/rl1AZJI6yE7ucTL9jon8XHdN9OKfTSoWz18H42 wjdlPKTaSaHwRzM/7BXZ6NXGPyv9URIdP5vKv97IQn8zw5zLGJJo3a+jaYL7 WegKmYA5mSWB3PcZqnoqsFBW4+i96GVxNK1lEnj7ORMF55SJxewRRzm3O6iC +5hoYF1+Q9ZHMfRnd6/YRnkm0tiHau45iaF3NK1/F54x0E7JrqrJR6JIq9Sj 7tMeBnK0eZpirimKRsflxOhyDPTgQgklN1cEHT/9JGtHAx39Ja4zxkuJoP3t p/A5u+nIf1Cg8fIRYSTB/6HfSKOj6aGp62hMCJmPcA2H41WQEf5K5V8PIRR1 dbxRv0cZzepPPWp9KYhs35ut3q+ljHJ0c3PATBD5eJy6d/WEEsoNjJ1/VSKA qlxLCc87FNHMHbtz32UFUEFdl3a3uiK6mjkw50Vc5nEU7tV3RyugpyjbhDb9 j7f5jsuW5yt15KdjyS7Jjr+8awdTHfPZ8ij7yYUKo3uLvOj5w10+UXJIynxt woVzC7xUoty41GtZFDGt/MIwap4XOPjQIldFFg39tTwg4jnHoxM3aMocoKGb v1yOiFv94d1K82v2aqSi84sfYs2Uf/PCNd48T5ejoojYW9dPC8zyQnReuJwJ p6AEY2k56aFp3uf5k9q7+WT0VOVWY+7zKZ5UYfYRGpGMunHkHsOSX7wlUe+H 6St5BUJtao1pP3mdB10eNdwnospD942O9X7n6YoqHH8gQUQVX7yqha5M8M7L eTP9PAko3ESuZ9jvG8+NsfFTTRke3b6zyr2XM8obSFlq2TmPQ6avC4hJX4d5 ifILH2JysWjLY+bm6BtDvILUmQ33LDDoSd2bLIvAAV6PVuPtsffSqNteeskB feLlvx6kCUZJITeeq6vo7fe8bZdvP+8nSyJBlRzjaXIn7/rOz2phleLoSknN Duq+d7xPqm/9kxzF0Fjyhq1rol/wlPcbxyoPiaBdW7lu33894mXm3fJgHRVG S7RZo3e2hbyFNjuXLJwQ4vRSnohii/m0LdYje68JrMxRVQbpRD7f3S1zDnYt 8bb4nUZPGl/x55T2BxpkLvKI7OAJS3obX60uX63v1hyvqCDugHR0N19OXnk5 /80sb7P37iCL2Q985S83xfK/T/HOmPdp2q8e4Gdl3fmoj//JG9JxUvtJ/MK3 2+i2vjv0Gw+fd22kZmCEXzac9Zhb94Xnbf3UXvH6GJ8+dLayzuoTr9fLLlNq 8wR/+8+MiVJWOy/y8o/R4vff+QsTV+e09gGvN1Rla37uT74K7oLbm/FrfF8t x4HmW7/4X1SLPM3GX/GV03f/egHT/OmUJ2uvDA/wD8SOOX/VmOUzlBIGy+3G +axdJjWjGr/5ugOd7a7Rv/heZjS94snffI3Y6AtBMMMPXDsXxD35h+/G8YsQ zf3D19OY5UWT5/gpJb8fG3AW+AK1L637Muf4hhsWjyQc/Mv/ndtivllgnt9f sC29N2eJH+yp0IQNn+dPmG/E1q8VgDP9pvXsjnn+DWyl/U1jQYik7Jz5br7A P5NnKNpBFQLbFnqAa/4C/8kh49mNk0LwoJfz87vgIt9hjfuXpw+FYZirOMgO XOR7h7VUx54QgY13ipJKjy/yv382OuRbKQLHn+IL9ccX+ScgsuFWrCjwFa88 avP4y0dX2lPdncQg6FwMsbzxL19m2HNkA0Ecml5yOlqM/vE9qX2enq3iQBwY EOBd+8fnphQidoYEdNlfqBAgLvHXLL82N1sjCYmYaCN87BJ/vrBQC7MgCee4 hFshP5f4qR40DYlyKaiwlf8u7LPMt78dlPDfdmnYNmmi1fd2mY/KGGvrJGRA 0TCmdlpFAPbeYBkL3pWBpOoP03gPASjx3Bgc54WBGM/SRdssAdh2JLBgnygW jONCH8S/FID/1gcGzpZhQfPYPYd2AUEQ+rN1xGgzDiy+KUvpmAvCnaL74DyL g7mNa06d3i8Ixae2b9Z1wsO5IG7J4k1BKApICrPJw4Pq0SDPsEFBeOM55N4/ iYfqiqZPffJC8EHtW4yCDQF8GQV5zi5C8PgtnruYQQDG6k8aT9KF4ImTS0ni RwJc6AteZfBMCAYEyiKfaBGBt373s4K/QpBxh7f57jEiUFYLVksbC4PVurmN /k1EiB37yo3YLQwnH87Mt8mSoP7ftcD268Iw/9LfXTyYBK3nnt7X+SQMuHGS oMg9EuhyAhLiqSJQ2o3TeS1EhipFAYdWZxHQWJ/G99tEBvy3nVm0ZBHo8dmy vimPDITdLbNufBEQtBXkiI6ToV94P/PkHxEweCEVRDGjAEa/r7lWVxQudHTM /E2ggOnSvepPwaLgLzWTVtdKgZ7g3MKFK6JgcbTkoYcyFTiuYuGYHlFgu1ZN vw2jQl/r3kkqXgzGLqUns2uo8PpihARtnRjUB2hXuAvToEaaUow5IQaFw04J YRtpcFKBeW+hRgxW9yFZ70s0CPt0lvvphxgwCEl+hl9X3ufJ/61RE4eU5Bmn cQNZSE7L4absFAf3wxV3kmJk4dX2h9XO58WhNagpSKxJFsKcay9JvxUH/fMd mrsociv/NDReLyYB3qul+fd85MBOMLAixEYChvfHdIyUyYHVM9FJiUgJqDkq LLf8Ww4u+Y7XXqmQAMc2ccNlW3kI/xrI0R5e0deyb/h6Uh607/FXVSlKwsbz voG13fLwi01U03KVhKLm0MqDTAWQpyiP5aVLwmTWelP53Qqwo1WtUKxBEr69 0E0trVGAm986Q4JW8kDBt1lfVUgR3l8mbq/Tl4IHa67WZjgpgsOeH9nSoVLA W7IpHjinCBlP0vQ2F6zIFT5HmQOKMK3wxzmzWwruPaff36SpBMUTLGwDVho+ 1hK6ww8pgUDTkYACrjQwpI7wj15UAnAjNB2zk4ZApcspCXVKIB9XvsptpzRY /fJEaQNKkK1HbdM6Kg0xJw/OpIsqQ0wFI1rorDSYeCZXp3KV4ZpOqV3XbWn4 e4SQEr9BGb66ntEtaZIGvtj+uCP7laGrsgFFDUuDhNuXW7vOKsOMg060vYAM RHLT5D1rleGZ+sthooIMBI76ttl9VAafoZOxH41lIIK/fkhTUAVytY67FG+S gZxXEp44jgqkBebv3L1LBo7rWK7+sU4FkvQXbhokycAb66Cy5nAV8JHJN/ld IAP8pO/5RVkq8HswV/LBIxm4MyGncfSuCkxWiKhFdcmAVS1um1OPCtzETp0x +SUDS2U9pgp/VWD792Obp6UxEJKgGzqNo4ORSl3QLVUM2G8xze1m0EEw/Q3l C8LAms+Ckn6GdBiMpf4wWY8BzdbgAkcLOtQKtPWmumGgiK5lYGhLh8r/2no+ 7MTA8YZt9Qrr6PDy8diobhgGjE4t2olspIPC4zGp+IMY+M9CsXHCjQ7KL4ts umIw0OnVaNu5gw69+yfjuakYmDsg8qDOnw5ap8/1RmdjIKL3s3pxGB1m7A6s epeHAWpbYE7mfjo4T299xCrBQNx/eQuRUXSod6CsOVyNgZzx09t3/kcHb+u4 /qbHGBgR3lCzNokOEtIRacovVvhc6sHoZdAh2rR2TUQrBlTCbHbK5tAh8ZQW obEPAwvYlDKBS3SgqRdOyI1g4DOWPzVaSIe93hPdu39ioKVzwqi1ZMW/nqG2 JwsYoNXIR9TepkNIvNdHykrd7ZncXFp4nw7N53T/hOKw4Jp36WNqHR0KT+vR 6+Ww4NUqIBPxjA7DlqYeRDYW7sWkGXs202FTsfyVIB0s7Iq39VzVRgdfjeqZ h2ZYQDd0jmq8X8EP6/TArcbC/CXPs8TPdEjavKPZfwMWGv61lC2M0OEOScXp gTsWEl1O1w1O0uGh9u9eGT8smOEqmppm6GAe+PCwbzgWrDO57dWLdLjw0o55 PxILlXK47lwhBoje3tMrFYuF+yOBXXGSDAh+QCjYmY6Fd1ST1jA8A1xaxA/c PYsFjQfJL7bQGDCvrOkiWYCFwed+tRbKDJBX24q8S7GwTf1tMZPDgIkb/hZ3 7mLhyL2OU1JaDJAu17GV4GPhr96xg1MGDPBOOuPq9WqFv1OTa685AxZaww5W t2Oho+SV3lPEAFxEdoH4JyxwO05IlK5lAP/0aM+OUSwEOf3pO+3MAJEie6Xq KSz4xBiVHXFjQIZ/2m7xf1jY2MiL9N3BgAttWa92iONAeh/d2sGfAW8sTPWr CThwqvm4rBfGAAXt7UXiijgYeBFTL7ufAXGxvUwvVRx8r5M6IhDFgOmt2eXV ejhgF6fojsYwQJkUYCthiYOF48sDbxMZsMpPc8BrDQ4GDSOzak4yQND0Zfqd jTiIuzFtcSWbAapNcraSnjgYvhkzkJTLgKO5ywI7A3Bw559Swp5CBiSGb2u+ uwcHPu49zK0lK/FwFC+QOrIie92ts77NgP3xYzE+8ThwK3ngyrnPANvyz8H3 M3CwumH8q0wdAwzzWzxlLuDgkabr4ZkGBjgePu3ud3WF75Y5oQ9NDJi8iPF+ UI6D0Iuf0hpaGXCjnLUHW4MDhgcGV9bDgOGL95IDnuCgrjvt1Jl+Btw9db30 YTMOjN28ZI6OMOC/5c4ufBcOiILpib6TDGjM48oEf8ZB7rLc4roZBnzyjXes +4aD+RD8br1FBhQnNp4mrcwRAQ4H+2hCTLBN7BoIXV7xt3C9/bIEE0Yqb+zq kMGvxONyVpI8E3Rl4gVn5PDgcDb7GUaLCVP4K1UkNTxcb8gczLFmQnwl85ih ER6U2799U9jIhL0CFl4utniQqRD6dNWHCbFcqvsBZzxcPKP7mBvBBJetk8HZ 2/HwQv1VYmU8E3IKFzLvhOBhKJ5jaXqWCfPCMc3th/Cw3+Dih7piJgzbPlac icNDztrDYXYPmNDZsxRLzsLDvwDCcNMrJlyYyF4wWpl7Ap/VOG3uY8JGozeJ bqV4uIRqC7snmODwVYQVWYMHNW//L15LTGi4md167hkesl2EKF9wLIg90ptV 04qHTYQBwzAGC3bmWvv0fMLDOgcH258GLGiK4/Dmx/GgGBlvHWnHApOXS1ry 83iQH+xS/+vGgtPSFlxLMQL0V6QKxwWz4O7wesMdJAI86frcIn6EBZ/byx2P 0wnw04qekpHGAjv2+z352gTYejPNgHSZBdmDm67wLQjg0O7bcqGCBfeene/7 vJYAC4EjHsp8FqTQjFlCbgSoFfXovPaOBU/L7hxi+RFA0G12FXeQBTNPC9vs 9hJgx/xi4a1pFlT9zTIPiiaAXEHJlKEoG7pXU0uTUwnQKWRqXEtlg/jjV6yb 5wjwdXwg1EadDatv2xc3XSNArsVQVoM5G14c09SfqCTApq8HStetZ4NQnNwz TD0B4sRf32/ZwYY24j1v3WYCnG1l3t+yhw0TXtcFNvcQ4EbBrZLu/9hw3Cfn ZsQwAbTmijJ3nGaDZIfOtpwpAhxLtggZuMqG/5TYuPvLBLDTvmYcdJcNSVaq zd0yRBhZIPz59pwN5EdjJ+fliHDftLZ8bzcbjPI4rgpqRNAOaNo6M8oGwuZs urUREcSsI2ejFtjgeOX7L2/blTm1fiLlnzQHDl6afXHCmQiyql6EOCUO/MwJ uXp1OxF+/ZnNFNPlwKy4VOyzECLQl78IpiMOjGbm+48cWrG32T0Mt4UDY+0T DhLxRDB2OfIy258DlXF1hhpZRDCpiVSUPcSBYos+ulMeEcQTjgZdTuLAqlgi YU8pEfQot4vpFzhQcldfJKuGCEtKNh+LbnLg5JLEQtUzIvwo2yTFfcSB7WvD ptpbV+xzcToVrzmQx+VOzn4iQpl34Tr9Tyv4w/LfaBNEWIjU8bz3gwMxbtQx 83kiEAU++pkLqoLMwPTYdjESdE62+dURVSE9ImPiOIkERpeNPW3ZqmC0q/7n FToJ/Fu5Ds+NVUHjgv/vJ9ok+Mtv13VYqwq31bb/G7IggaKkO7bFQxXS8hNE xdaR4HB915dNYapwtwWw6m4kCA04dKfjmCrYvPwl6+hHgt/Trkc9MlTh0PsF VvheErz5cM78Q74q2B8D3cxoEvDEd/zaWakK7U7qVpWpJNDoelY49EQVHCTl HNrOkWBE/ZdjcLsq/Io5unXmGgm4XgKT376s4CUZB1CrSNC/iZCy57cq+CwY RpjVk0A0YJXilLgatN7yOeHZTIIDR6tuHpJTg+DQG5nRPSQo/XdMb15DDfzf z1zOHyZBzqf6ymgrNVg8ZVIGUySwP39OQ8BZDYbmPGsHl0lwV0slP36nGoi6 bH4hgiFDkN5BafH9arD3pmSnqjwZOE8rI9Li1CD89cHBdWpkuHr6RzsmRw06 HBN+hBmRQfazo+7p62qQsEvj70lbMozGfkgg16zgqXlK3HYmg8nnuo7zL1f8 YYiTW7eT4cCCuIpCrxroFHFUpkPIMBvc7p8/rgbXL5RyKZFkiNxmdo3xTw1w cemGpvFkKMh1/liEVQeTqHqrbVlkSMrWJqrT1YHItFhzbGUPYjlO2Jbpq0Nu 5axTXikZXvsXhuusVoea96Mu/JoVf1X9z1S5qoNPu7TnwDMyCB5be8coSB0+ OrvvFG4jw+CE/9uaw+qgdfCZP6efDKsrWkYsUtUh4aNT8NoJMiRmX5yvy1UH iexvoaHzZHiu/EHctlwd0sUu7EoXo4DB4ZuEZ3XqEIvbFF5BooD3Xgpt7Vt1 kP6KCX9Lp0BmoqFs02d14LBbwn5pU0BwmErZMKUOEzWpISRLChgGt2HeCXNB 8hsv0HgdBRhno4RcKFwwc5vwcXejQEKJwnSnKhe+DKVvP+JHAamMln4PMy6M v1Zwu7SXAikDV172OXAhPOvihrpoCmjNX6vw3s6FpzNCa/pTKVD64VvmQDgX UoS3Wgqep4D/+sTwgJiVe7HTeqwiCqQ+jrf/eooL5KRq9poqCqzy+a0YVsgF WbtaWnA9BYA++WOimgvPLYskU5sp4HPtMH/vMy5M50UslPZQ4KHD9fSpTi5M vGF9ez1MgTsGia6HvnJBMaCm5/sUBTIsVeXn5rjwiqHdiBegwk+B8x+OSmnA 2FxCtQGGCt/7hy/9U9AAKVF+nqs8FaT+0D1OaGuAXVpfcqQaFfTVthKEeRqw frp33wUjKtSTs18kbtKApLd1Hg9tqRCqPnxUwk8DLFsTeB+cqWCbtU0z/YAG dDbrcZa2UyEf/evBJGqAavVTSXroCv7sh/iscxrwLsdy0jaSCnr6olqkEg0o Kbj81j+eCk9s41rP1mqAmdLXysQsKrhb+xyUbdaAtbsUT9/Io8I20TLypQ8a sEfYZt+rUip02O+pVvquAXBwg/P4yp7sfuzehoJlDTji76SJeb6yN4+ljzAJ mgDJVuK6bVRYe+Nv9HWmJuwpVxnc1E+FD+eJBHUjTRiu+PMoYmKFz96eq6Vr NOFPVGNOzjwVAqo9DLTdNaFZMjP8vhgN8u7n8W+HaEJv2KbVPSQaSBVVORoc 1YSfd3ByC3QaJBzKb7+brgnmkm8mFXRokDy/29M0TxPccjOeWFvSYLKN2197 SxOiCjfl7FxHg7Ijfb5WoAnZfnJBsW40iLc8OVjfqglJGt9MrvnR4JHVGl/b IU3Y5vxc7PleGjRH4T41zGjCcY2KzpFoGmAbpj3sxbSAxiy6JpFGg90vFlpf 0rTANb98n8Z5GohLazus52pBHeaVlVMRDbonztS3WGjB5aFF8T1VNNhebGSw yUkL/M6vbTtVTwMDJ/miNi8tIBXdulTVTIO6N+vJbnu1oD7ZMKC9hwYPFt7F dZ/QWunvPZqzwzToPVL1Y9sZLXDqKZiiTtMgqH3G88M1LXjETp02F5CFlMHL z7zvacH/ANShmUc= "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-6.743965295768825, -22.706039182058344`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{-6.743965295768825, 11.665621240029152`}, {-22.706039182058344`, 29.786972956156813`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{ Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0]}, {{{-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, {0., FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092, FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-9.261633666363734, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.251162366496438, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.24079957946089, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.230543079293703, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.220390707829685, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.210340371976182, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-6.907755278982137, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.815510557964274`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.9108207377686, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.997832114758229`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.077874822431765`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.151982794585487`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.22097566607244, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 14.28551418721001, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, {{-16.11809565095832, FormBox[ TemplateBox[{"10", RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, { 6.907755278982137, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"1000.00\"", ShowStringCharacters -> False], 1000.`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{"10", "8"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {29.933606208922594`, FormBox[ TemplateBox[{"10", "13"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-27.631021115928547`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-25.328436022934504`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-23.025850929940457`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-18.420680743952367`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-13.815510557964274`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-11.512925464970229`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-6.907755278982137, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.210340371976184, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.11809565095832, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 20.72326583694641, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 23.025850929940457`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 27.631021115928547`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 34.538776394910684`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.8903820594412403`*^9, 3.890382150330456*^9}, 3.890382211176736*^9, 3.890466050724278*^9}, CellLabel->"Out[26]=",ExpressionUUID->"ed3f60ca-d5bb-4f1a-aabc-f262ec93097e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Understanding the data set: confining solutions", "Subsubsection", CellChangeTimes->{{3.890381423162054*^9, 3.8903814294641237`*^9}, { 3.890382217673277*^9, 3.8903822216437817`*^9}, {3.890382265517962*^9, 3.8903822686250763`*^9}},ExpressionUUID->"9eb7562b-0d1c-4e74-badc-\ 53da52338504"], Cell[TextData[{ "The confining solutions are stored in a similar way, the only difference \ being that the IR parameters are different as the boundary conditions are \ also different. They are stored as ", StyleBox["solutionsConf.", FontWeight->"Bold"], " " }], "Text", CellChangeTimes->{{3.890382627275713*^9, 3.890382671508966*^9}, { 3.890382850449481*^9, 3.890382858985527*^9}},ExpressionUUID->"aece92cb-3f61-405b-8a40-\ 275b0c2aaf47"], Cell["\<\ For these solutions, temperature is arbitrary and entropy is zero. The rest of the thermodynamics quantities have the same expression, taking \ \[Xi]H -> 1.\ \>", "Text", CellChangeTimes->{{3.8903827219993362`*^9, 3.890382737108336*^9}, { 3.89038286025916*^9, 3.890382885708988*^9}},ExpressionUUID->"34659f45-f7a2-4014-89cf-\ 09046dc64108"], Cell["\<\ Note that for these solutions the chemical potential is bounded\ \>", "Text", CellChangeTimes->{{3.890382902585888*^9, 3.890382912730794*^9}},ExpressionUUID->"3532f3d3-83c7-4560-941a-\ 0692479b8152"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"lIR", ",", "\[Mu]B"}], "}"}], "/.", "solutionsConf"}], "/.", RowBox[{"removeUnits", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "/.", RowBox[{"\[Xi]H", "->", "1"}]}], "//", "ListLogLinearPlot"}]], "Input", CellChangeTimes->{{3.890382741922085*^9, 3.8903827704230547`*^9}, { 3.8903828352660437`*^9, 3.8903828441339827`*^9}, {3.890382895430027*^9, 3.890382955574223*^9}, {3.8903830036347723`*^9, 3.890383004351914*^9}, 3.89038326868239*^9}, CellLabel->"In[27]:=",ExpressionUUID->"ad431a41-5da6-44d0-9422-29463cf3a088"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwtlWk01W0Xxg2JyDyEjEWhSCFT2URIRBQlIXoqaTAlKmUWQhTNyZChZMhQ yLlvFTKE0jGEOOY5HOd//hnq7X3W82Gvva619v6wf9da15Z3u2j7DxsLC8uv v/X/Pjm9gYWewUnJDHM5+0py1qB/QDf4T7gohTd4Sr+qgmFgN+Mih1M2UizS 8ns/HlwxaFh8GtDxbTvlSl9yankdO2he5qzar29IcUqoZTtbyA0NBh76y7es KLydQikXWYXgjkp28d4RR8rEpl4+r/3iQDF3fuF77QxlY+7hoCF3OZAZVvKS CfChpJ5TLwyTVwB6cGQBv4U/RRc1ffKR3gQOuRWNchbhlPJYbZ2RdlVoefzB XC4giXJ4VezLCHlNuFVSHvyz5RmF9bBeRqKyPrh2cGg9eZRPyeG28la12wNG jU42OT2VFMUvP2Wry81BR+mgRqNTPUWcdUv60Xwb8DUxXHEV66Acq087+SfE HtB1vR6enh6K4ulnVGWVo2D91WLnvlXDlDCf2bA6Z2ewT8153ytPp+jRvct9 g05CGKExP3GWFQ2cjFCGLE8QTQhKPvSGH3F/VtAUzvEByenhI6E0KfRKU2D1 LrVAqM2xS485oIJcN1pbHPgTDBYMjbjkX9qIOJb7QJgRCWtV13uu6tuLNtl0 PwjiSgABLXNh0xxT1LHTandISgIc/xrhO7Fsh1YK9KW6WJMh3wWp/LFzQyz1 13IzIh5D2KnN/2xgPY3uzYvrCLI8A7ZDtgkr9Z6Ig/qy7tHjNNhqEyzFctML XbzX8Gxgdwbc0bZ7kDPuhco+G3nfuZwBySFDex09fdGKHKXPaygTzDmmtvEm +iOeo3ZW3bezoNI9i9txKRBNX3s8UG2cA/6z5uMNeUEogJCM/bKSC3qZiZns D2+goaYfNs+/v4CyqKlx6W/BaLw+UKMWvYTNHjbNPmQoutKHdp6PeQW0X9Ve Wnsj0Osd3wxznAug3rytz/ddFDqSQzvx9mkhHMxaV1x8/yb66I83f/pZCLLh Ln6hrjHodek64Zk7RRA3mhHMqRmHRPZRLtxOeA19MZcHYi3jUVRBOXF95jUk JrD3rZK+jY5YZxw7kFQMmlw8iqyViWhNCsV+5nEJpPA65/y6dAdJxOw/YVdY Ci7h6oF7bJKR3k4/i7DPZWAo1GiVbHkPuSQMteYz3kCbUiyLyoUH6H59kM0u lXKI0eEy6Hj7CN1wteJsP1cBy95nlwy2P0V/0EJUEKoExatDeV3kU9RaWiOX pfQOArZY2bPQU1FLV7eE88t3sCztpxx54Rk6fsKImqVQBSrt66ef09LQaBFt i0sqBQTmerr8/TNQ86UfMh8kMDjajYjX7niO9KLMhoXoGN48rwk6JJONPM3f Df/+Uf3XHyw6YJyLboQfxjoD76F9n125UPFLVCsRTnvI/hFeZRR57gjPR4QP 8ZZqVQPOPAeobrOFKO3pSpNRWy2IDMZvKOctRqWNWTsT334CW6/V5a1cZSjr pU/KPddG0PMdJfy93yK+2CGBqojPQOWL8pc7VYE6U65ZvDdpgYDNVO78ikpk sY5NaVyvFcJ6L2v9UKpCTIvf5tf6WmFmHcX5LQdGqTF47TXVr+CV4zZk31aN vPNtd9m2tcHgLx8JlQMfEDfHkec7t1Mh0Cjlnufnj+ibmvyEd0o7KI/1au88 WIuc9L9d7WHrhOtCBxqed9WhDhXRbXL+XbCeaJfvOFWPxr1Lblf9/A7HjLjl x8gGxJHt3iR4sQfkHj6sYyY0IeWReo3j9F6w9isx3LS1GdGCJY0brvZBfK/h /N3PLUg98tDFirB+eKKaZKpR0YoMtnaWv7WggU6raYLL7S+Iozr8q4fQACR1 awq6eXxFj88rSTl+H4DbqTH7D+xtQ0vtTqvXpw8Cw3ZHtI7CN2QQ1vnbxGMI PHr5p7RWU1H+/VlqwLZhaBjiDHSapKLlrqEnrgvDYAM0hQ9t7ajqFpdI4ZsR KHguPBCCOtDFKsNshcBRaDp/v6AovxNJXp1Vj9AZgxCDbznn0rqQ5iaaXxpj DObEisWa731HV5qKrxwsHAe2CqHQ+cRu1KJ5v9XvzATI/3t/DxoTnf4wJz0J WS0bVVcSe5FkvceDktZJeBHaEbDx/g/EHU5pzA+egpjbatxx6X3IeMXmcLvq NNiKhCzmH+lHe31HORU7p2HUyZvfeaAf5Um8ot+7MQPG/gEFpy/QUGUwvVdN 4SeMUHe39i/TkJStU91kzU/YZuoQ3hc3gNYWHDD02DELYkVf+a/KD6LBj+6b /IJnIcgp/Xfjm0EUHTNeJ/F5FljL5HdP2Qwh+33CH4+Lz0E0++wO5tQQ0h4c 4zJxm4PCzFP9a24NI5XNG8pbX8zBT93F33vURpB1WL4o1/wcWP/LcwT5ZLqf ndGeh+8Vp6fyro2iKlnHlahr89A2fEpWUXkM4chYli40D8tPPUZtu8bQaI1N xDArHdaHrmd3jRtH9XJnvYv20CHVoZw1cO8E8nQ2vmQYSoczpH3EZ9ZJFFSg xp6C6fCreO7W7feTCMIdzEpX6ODPvFhHRk0h/nENuTTdBbjc3z9raDuNjNfD Oie/BbDzjtHPkZ9Bj3sbjo69WgCe9Ce1PsQMMkkvKzIbWYA30UhhovUnYkr1 BF2VZvzHfxbVlqzkhtsxoOlcqblQ0yyqDuDMcr/JgLM67pOf98whZa0TTuLv GFAyoMwhWjWHPi9Kbk6fYUDwB3dvWf15pCSV/eGPLAHpK6+Pq1TNozPDLSbb bAiQz65aDjCmo6T9kWxqNwiQOKLrcLiZjmwuC0eReQTw4xwjQecFlFkmHRjT RcDO/c3XOekLSDiqNeTHKia8k2GIP4ljIIl8S7UZNeZ/fhAo0tOqsciBCf8s FjIuUwkUK5OlK3eDCf5T2+kNYUxU8LarXO05E+o+HWX5oUuizTXRea31TFgg GDUeJInIjZ9MmFNM0IibZhrhX2jf2hNKiXwkrEw3DjgmLSKWrh4yWo2Efdt/ B7ZeXEKUEFFKvSUJbof7z/48uoxiHocraXqQEPAv/xXU2XjpSXYYCeIf9a49 dPyNaj2P/Vp6RAJnr2L1jkt/UKOx/yTLaxK+S+tautiy4BnxDnS1hoR8nnsV lgQLHq5dOKzQTkKfzyS6kcOKf91U7Xk2SILo4dLKIk82LCyhkX1jmvyPJzs2 YNasVqOTENGx1Scijx3TiqzVVRdImOB8PJoougrrxNC2yP7V1jo8x59e/6v7 OdLE/s6XnLny9cXoKlzjdH+t4hwJEg/Gzd7YcOBdtyTaHWdICKo/UvWhnAMn 3dngXjdB/s3Puh2tG1ZjJ7OtyoEjJJipaOf0xK7GvQntVUE0EvIcs6THF1Zj tdiOYVo3CYKxoncYxzmx4MbS9CIqCf6V4VxsdZyYteQ0kM0kdE/Sg/jUubAT lcUJ15FgKOVOl3zAhf30L5DCmITnll/PbGZbgw8unb++/IaENUFGPzQ81+A6 6bqG0AISLrwqtDP8tgaPuXZoFWSR0NYrW2+5mxsb6UY8in5Cgg5fgsHRLG68 Mz7DTeIuCU8Mfhf/w8+D95q3hf0TQwLbxfPKPgE8mD1uOsEvmITTqT1Pr9N4 sOUFljJLfxKaWvaLxFqsxQU9I5/oniRsZ6mMvle8Flt8DTO5eIKEZHWVPxlS vFh2Itv2oz0Ji64P/AojeLHXZHYLcz8JLolcE+9meDG/9osDfEYkfKy+7FLv wIeTrhZKr91JgvL8yDcq5sM8j9z2MVRIiN9gbzGgzI/vGqQ++yxLAt22Bs0k 8WPTHe1v7ouQ4BCmqbW0xI/nLNSnjq4h4UfXQWrYDgFcZnbzlMhvJgj6rBHg Pi2AaV3aMo3zTDDmrra4/UgA91ZWdgePMuFSekCEWKsAlo7crq/Tw4QcPXX8 eJUgNqgsyqe3MuH719HFDbqCWPzQzeDSGibweqZq5Z4XxHrjVtQbFUwAdgev bemC2P3C4KtDBUzwecT3srRdEOfa2I5rZTIhU6N2WJ9HCIdmJZkqPmBCR2OQ 3HsQwn2suqcU4pmw5qTWMXM/Iex2lLdJM4wJ+stTyc05Qphwu9XvEMCEC3cz Ww/1CmG9jEPz8eeZ8GyrE0+3oDCWcAnW7nZjQttHYdMTpsLY6+Z08+4jTOA4 3hg8ekUYX8vzq35jxQRtRmjl+QJhfLmLn93CmAln4/QI+uDffdd5X4YOEx4r zqtfERfBDLMkWsXf/GipyvVksRLBuwwyOR8pMIHV/kRWZIgIDq7gTkyRZILm jDhtbZkItuAqF88XYMKpyNb1dyZEsHhnjMrAaibcl7lpLyErik/OCphorBDQ WAaJqXaieDDGjppGJ2DlALNR8aYoXqLFGKlNEKA+mr86750o/n26ua+zn4AX WNbqdZUoTvlSveXVX91zpCNKZ14Us4yVlPp2EMA3F/+eskkMj4gvrXJqJsAo 2nTF5JgYDjqSYuheQ4BzkljhpStiOCdPRkQGE5Co0jyxlC+G6+PZpuzfEPDh fYRi6KAYlop1WFOQTwDhuNuVS3wdLjL0CtqURYASfeFhvOU6fH4wwqbqCQHH YvOoIiHrcENGV4hvMgFxG08KPCpdhzePV3LuiyMAVa7fLz+xDh+T9WvZHUHA vF1bRLaMOJ6YYqs6GESAwlQMVrUTx7tSy16EXyLAIXzPUnGUOD6fF3Wm/TwB 0VKLWnrvxPGtYPVK01MEvCsp8sKz4tjWY9aR6kzAjKXHS1NFCexLG54LcSBA blhupOmoBO5pHpaw/Ps/7II65eziJbBiYLCPwT4CIkRvH+t6L4EnfqZquO0h 4O0rsxQXpgRua+2g3dInYGLvn9bhLZJ4qmSrF1WTAOkfZTznXCXxfkpWlr4a Adb+F0zn70pimdwWE7SZgBC+TSEB9ZK4UI5/jas8AVHaL+SdtNZjenfy8wwR Am65qr2HtPV4sMWlxJmLgKTo124beaXwGf7ml/HLDLj3eic7Z6AUlqQqjarP MeBJd0XGxJAUfiqAX+4ZYUD6KjBptpHGcvdiVKu7GZCj+mGo6J00PhtrfSf3 CwNe2ZtFJCvJ4IWzJxfJOgYU32hUDLwrg8OrJUteUhjwNse61olFFmdGCq/o lzKg6kvbKcNzspiv7ErPzRcM+LDowKnQKYt1C13EOdMYcNqe+7UZyOEXvKMk 9wMG/A/GAClg "]]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{-8.465602811228196, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, { Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Exp[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-8.465602811228196, -6.880269689681828*^-10}, { 0, 1.5596134078178852`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{ Charting`ScaledTicks[{Log, Exp}, {Log, Exp}, "Nice", WorkingPrecision -> 15.954589770191003`, RotateLabel -> 0], Automatic}, {{{-6.907755278982137, FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.100\"", ShowStringCharacters -> False], 0.1`15.954589770191003, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.210340371976182, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.605170185988091, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 2.302585092994046, FormBox[ TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, Automatic}]]], "Output", CellChangeTimes->{{3.890382745833654*^9, 3.890382770798379*^9}, { 3.890382838137789*^9, 3.890382844537026*^9}, {3.890382890539864*^9, 3.890382955938077*^9}, 3.890383004522789*^9, {3.890383269026558*^9, 3.8903832969776*^9}, 3.8903833358795033`*^9, 3.890466055366374*^9}, CellLabel->"Out[27]=",ExpressionUUID->"929669a6-7c30-441e-bacd-4bbb16d68a42"] }, Open ]], Cell["\<\ We can plot the free energy as a function of \[Mu]B for the confining \ solutions (it does not depend on the temperature). There is no dependence on \ the temperature. First we select the stable branch.\ \>", "Text", CellChangeTimes->{{3.890383473725226*^9, 3.8903835277949057`*^9}, { 3.890383713977025*^9, 3.890383720703269*^9}},ExpressionUUID->"96d1c1ad-6fd5-469f-b219-\ 3c5f27265162"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Mu]B", ",", "freeEnergy"}], "}"}], "/.", "solutionsConf"}], "/.", RowBox[{"removeUnits", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "/.", RowBox[{"\[Xi]H", "->", "1"}]}], "//", "ListPlot"}]], "Input", CellChangeTimes->{{3.890383447693118*^9, 3.8903834667063*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"1bbd7a41-8f82-47e3-9db3-676a3bb17c41"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlXk01Q0Txy0tWqRSWZ6USpaS9GQJMZQiRZYkhWR5EgmlUhGyRqVU6KHF EkqWegjl3qFwI2uyRXS5+7Vzf/fXgtf7x5w5n3PmzMz5zpmZDW5+tp5iIiIi P+fs/z4r4qR3vvyYUf/9w8urG1opkmFDBpR3AqP3udU2tJ0/KBbpBd+rbaaN jMwoyhtDhylX+x8+LaeJw+3EbN8H3b8oTgm1Yt5Fi4ERJqPY4y9BlexameQn uhL0/X4OXoM1VJ7y92X+B2XBTAy/BBsrUTe9sA9huCvC0b6pTAe/v6lPz2oW RWxQgkWzFWX2zQZUPWz4dF5BGUoCv+WN0Iyp5fG6u1gd28Cyean1gttWVPt5 8XlRG7TAVEZdx7H5BFXUXj/znpoB8PLlVmZYn6HmLrYM2Ga3B/YsCpoyWHKZ url1dH1VuTnMtEh6zfsVSZUV3ZrhWGANPp9sjaxl71NP1KV7zIYfhTV2gWX0 U+nUzaeftattcYTkD/V3zr97To04PxZBc3EBG2s5y8rnhVT9yYDyCyEe0C2q HpTRXEEd8IhSg2wfKH/ip6pmUE9d3KikJZ17Hs7qK8VWD3RS87WWL9itcQV+ beEuSKtiUl03Hbawmg2Dq3/N7Mtsm6QSJ148khZEg0PM9FXaajFUtu55FCKR AIZaNXLm0cuxU8fSMDwpAZ4dLohhrluB04UGa7tFH8LqWQ2rjxbrUKQu+EVm VBqob109az68FZMnZHetEHkGr1p6aIcf7MD57Xm01LR0kDJujttpqY1+yfXP BgwzQXzg9rL95/TwbaNJwP3LmSAXG3ylcaE+TitS+/0ZWXD3QdZp5z+GuMTR zrLnbjZMK1sfDLlugsPBaQNVe3MhoPTDke0GphhEyMe3Tr8Az9Nfp1t1zZDR 0Gf9/NtLeMA48jW5zhy5dVd21mIebC96anguyAKv9qOOb1w+JFgaLksVtcI3 f381znUphDrqXcqBIWs8lks/VfakCGi8WmquqB1WX6pU+TRaBPH6FKY9xQ7f lMhIj9x/DezQn4EOpva46gD13N2EN/DvZo/lZmUOGFNYTlwfeQOsfdr7VAuO 4bHDmSesEv+D/H6+2wK347goiXp0JK0YmluC6un7nVEu7uApu6ISONs4jxWl 44r6OoEWEY1v4bHoukLO8Ck8mcBoKRCUAhNfrR5tdMeUuhDr3VvK4VxNSeTn Hk8MdbVc2HH2HXitOv6nTsELZ3EqJgTfw+Qxn6nMVG9sKalRzFatgL1SVcd2 evlgc3ePnEteBbwa73lN8z6LzqdM2rOVKLDleccJwsUX2a/pW08+pcKa2YEZ gZ4/Nl3sW/dRrhICiiYyFAQBqB9jxlw5WQlN/aHqDvwL6GNewZzpq4ImioxV 05ZLGBppX7lr4ANsWXTaK5EWhLVykfR/xavBYZD65VL/NSTOE2XtljUwEeIc OpgeiulPphtM2mpBb9vHOL7mDSz5nK1zr+wTPNmeahnoEYXZeeeTkl0/Q2yz Z8Rl+zhcFs9YTolqhHS/wmeRpXewKynY4oNpMyhLeB4V7ruHFjJiqlz9FnBy NFHlPU9EocWMeXB/C7h+v/Pz3x0P8Glc5dLgbV/AdXxSnoxJxoAC2922bW0g Erd95vTGNFw8/9hznR3tEH3zw7wHSs/wq8YGXkBSB1zRPj4d7ZOBTgZfr/WK dcG8ID3lJk4Wdm5ZvV3xUjcESKVWdz3JQW5A8V3K6Ddopyk+Kkp4ifNz3BtW +PWCjMuYJrciH9VYdTudJ7/DAfsdOXX3i5AeJr+3/lo/2Dhb5sp7vUHN6CN+ 7yJ+wPC9jzEeJ4rRSL2rvMyCDvM3O9076fsW51dFfjmzcgDM5YtiIx6XYZqv 6trj3wbg5ia9Gkn+O/zd4bTgr4xBMLGFagl7ChpFdM2YnmHAqJ57ypFviAUp Y+1B25kgc3f2S+fuKvzTzXjsOsUEls2ilP6UD0i5JbGqqJQFzMa8l/Ei1ehH Mc5RusKG85KZChsu1KD8tTHNqF0cWLUiUXFwtBa1lOmB6QIOqFEfJa2+9Amv Nvx31aaIC/fbDNVn59Vjs1ZKS6AXD7xmdwt4qZ+Rs3r447gCH9xiWU/U9BtR vu7Mo+IWPpwMd9i3sr8JF0dSPxeEDUGvj1aI6L4W3Dttbd+xbRi05+lFayq0 4r4L7IWbu4ZhUPbHrQZhK76Sy59MDh2BY+4Lrid8/YLvwya/ayiNgubop3qd /9pwra0TjV8zCgu29e6NuP8VlxZaGZ/5ewyCm4aHdl1sx8Fqd+XAsDGwI7Lq 1x3rwJtxXJpc4xg8p5vkzxh04tED0tXOsuNAF7j9zFLsQt1BjoSp2zh4Hpfy /zG/G7eobCxveTkO485fiXB+Nx6OKFgtMTEOfzaHuTq1fsPzWe7eI7oT8Kuj Sce0tAcp649PxwRPwDJJ7Sipx71YGR0v0o0TEMpoyXp44zuya6yjmKKTULjE f1Hh6T6sU/QOeL1nEjSpEVLah/rRx2XvReMbk5DR5cEUkf2BIYUa4kmVkyDZ XcS7fPMHQqSDWcn0JPz+GSzl++sHSnF3KqbrTYH7+c7vjd503PsXyDgFToHK zJrumG90TPte78jJnwIbMyuP2AMDaJrx9rUZawomi7tzKkoHULi2N+SaggD0 JEsvrtg8iLXF0y8i7QSwdmS/+oV7g1gVtDDbPVYAqT2yyY1/BlFN+5STbMUc z2g1LjnNwMZf8ioZIwJI2f7PUtkWBqquzfk4u56AfZYtd3t0mejFbDbdbk3A Vk9JL6MnTEw8GC2mEUrArtF+IxVxFlpflo4hXxHgaXpU9do/LMx6q3AlrpsA K93fTgqfWCgd0xLeN08I0snOYyMqbJQrOKQxoiEEm5dNV5ui2BjtY/n5tYMQ LC4VFCfT2Ri/LltPMVQImiRndqMBBwvLuss1nguBM+zYY5rIQZWam69a6oTQ EJyg38jiILnpk6lwSAizlqXvondx8cDSU6r3lpFQZKqbpx3DRZHuXvKmBgnt zfu+J33hIjV8NbXuEAmCFGc1F3kexqVFqmqdIaGOIn5fy4WHXZ8vPs6JICH1 tQSv5DEPa31O/PydSsK33SnvfLt4+HnvJb7IGxIO0H3N2yT5OCLbiddqSLBz bNM0NeQjs3bKXqmDhMtK7+WnPfn4M3Zb77NBErZVNERJxfBRWm5nTugwCdVZ Y1p2T/loJKxZoDFJQq7hsxzrfD7SXx/W3DY11885//CaQj7uiqNvXT/HTcd6 JjL+zz/mp6+Zi++RWdG3Zi6+xill6eZxEozq2E8P5fJx9y25juMjJEg6bNL0 Tedj4v2N7jQeCcqGh4yfpvDRyUxd7QqLBDFyvePCO3z8ntBBCaGTEF+UTdDC +agR38mk95DgavorQzSQjys2lWS8bichadVnqTYPPooWnwayiYRihUINxyNz +dpFnCppc3o0m5kX7uFjoME5UrqShKkxi5Wj2/lo89v3+p9SEq5lX63WXMtH mgKt/kYhCaqOKerxC/nIce3ULswmgSF0rpKe4KGJXlTqzcckhGTGFvf18FDn Tqab3AMSPgXPis9W83CfeVuEZxwJ5ziKcdH5PBS/PZwQGEZCjJ6xZPRDHh46 J/L20CUStto6W0mG8LCwl/Vp0ocEU6/1Mls9eGjxJcLU7xQJi6l/mQ1b8HA9 L8e2+igJg5X+P1x38NCfn9MsPDinZw5FOlGGh1K6L62WmZCQaXX94K1pLiZe K1JYqkPC49ovOscHubgk1e2AYAsJ7pnlbfPruPjA6OmzxvUk2DM+BqUUcHH/ 3x2lKatIODti3if/gIvjFppDjotIuNCqqPLwChffmsX+s2pGCFc/8TjLTnKR 3q277vOEEPQymDsTTLn4/f37njC2EGjBJ/9du4WLCtE7DHb1CuGB6AddihQX jd6/LphsEcLfK41LLwk4KHskNqykRggtaWrHrXo4qM+1bA99J4TnMrxp8yoO up8bzD9SKATz4ZINPjkcfGFty9XOEkL3GI9fdpuDN7IT929+JIQsVNmuE8jB flG9f5TuCEGBpuDHOs5BN0fJBq0IIeQGbWA2mHCQcLv1wyFICEWLgiOHVOfq ZR6ZuOMrhCWC8Bmz5RyUOxmm2+M2t78WAbV0IRv9Y4ebDI8Jgf1WfnVFPxuD XwVWlVoKwXrWYaiLxsbL3VLiFnuF8Puxrbx+0dy9cJ24INglBPWJtN30FDYK zBLp7+bux7C34sfmcDbuNspamKokBB/+wMQCHzaGvVt8L0leCG9uP+fEHGGj hUS5bMFyIQw0uKTaGbFRtituy8CCOf3mJ/Z5q7LRY2y56c5pAnQ3Rns0rWTj YJxde/okAf47nCuvT7PwNz3ORINHQO3tZV7BHBbOnG7q7/pBgLfqvre0NhYm tVZtzZ/jzU0TbqfnWIRTXHKhk4Dmn2Inf1FZyJL9Pc+piYBx9YDGgZcsDDmW ZOxeQ4A8Z8xMLpmFua/WrVpXScBoUIv69XgW1t0RGzpaSgDBM5jQDGLh2niH RYUFBBQlm0Xs8GTha2P/EOVsAoI42pmhtiz0HYyypjwmYLL2tNhfxiysz+wO v/CQgJiMeiNxDRaqcN8vPHCbgDgJCYbuWhaeWB/YbBhFwIsAH5+yxSzkDYlR bEIIWMrzN4j8ycTdT9++jLxIwOJiXva/HCb6vorx6vAlwLc+h/+rk4m3wjTf 7/+HgNgDoZpZNCbanhk73u5CgNiRxzceljLxAp05Hu5AQIMRq7Uxh4m9TUy5 Q3P/44OEztDBFCZuvhJ23ugAAeJZRX+UbzKRN/p0p9seAtyKczMvXmViW0sn /ZYBAcOQtrrdh4lDxer+7VoEHOphsa84M/EgNTvbQIMACelFTu6HmbjuRbMp qszNp3cm/a4JE4sUpRa5biDggUgFV0SLiZM9D59nriLAzFTbc0qWiYPNJ4td JAjo65NpF84w0EuqKe/OHwE8kpFvFWcxUL5dla05LgCOzcJvy5sY+GR5Zd4e lgD6gOYuU8pAxeS4bVU9ApCv2dQnlc5A7/jD91+0CkDtjn/FRDwDp7w9fpE0 AcwL2RlcdpmBkVXyxXlUARhfoxMOHgzMipaeNigRgHTQiNJLawYue3u1N/bl 3P9ekPZZW5+BekUnZRemC0DszVZzV2UGvpRkk4sfCWDv7TyWyxoG/g/tinTo "]]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 1.5596134078178852`}, {-0.8652064827069462, 0}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.890383454039171*^9, 3.890383467019889*^9}, 3.890383533656782*^9, 3.890466055426249*^9}, CellLabel->"Out[28]=",ExpressionUUID->"900faf81-ff6d-40d8-8d0a-3d8f5ab8efd1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"stableBranch", "=", RowBox[{"{", "}"}]}], ";"}], "\n", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"stableBranch", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Mu]B", ",", "freeEnergy"}], "}"}], "/.", RowBox[{"solutionsConf", "[", RowBox[{"[", "kkk", "]"}], "]"}]}], "/.", RowBox[{"removeUnits", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "/.", RowBox[{"\[Xi]H", "->", "1"}]}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Mu]B", "/.", RowBox[{"solutionsConf", "[", RowBox[{"[", "kkk", "]"}], "]"}]}], "/.", RowBox[{"removeUnits", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "/.", RowBox[{"\[Xi]H", "->", "1"}]}], ")"}], ">", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Mu]B", "/.", RowBox[{"solutionsConf", "[", RowBox[{"[", RowBox[{"kkk", "+", "1"}], "]"}], "]"}]}], "/.", RowBox[{"removeUnits", "[", RowBox[{"[", RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "/.", RowBox[{"\[Xi]H", "->", "1"}]}], ")"}]}], "\[IndentingNewLine]", ",", RowBox[{ RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";"}], ",", RowBox[{"{", RowBox[{"kkk", ",", "1", ",", RowBox[{ RowBox[{"Length", "[", "solutionsConf", "]"}], "-", "1"}]}], "}"}]}], "]"}], "\n", RowBox[{"ListPlot", "[", RowBox[{"stableBranch", ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"\[ScriptCapitalG]of\[Mu]B", "=", RowBox[{"Interpolation", "[", "stableBranch", "]"}]}]}], "Input", CellChangeTimes->{{3.890383548158102*^9, 3.890383640045576*^9}, 3.890466068044396*^9}, CellLabel->"In[33]:=",ExpressionUUID->"43bc1929-2ce6-4660-be16-e709acfc1c8a"], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVjnk81AkfgClJh1SSY1MquXK1oRBf1lhHi5GEQgqbkhxJcizWGburaNFS uSm5WkKZ35dyM0w5Mo4YjGtyjmNUw7vvH8/n+Tz/PYevep5z3cTDw5PyH/93 dvjlG4US87pDiRa769o+UARDv2hT3izrvs2vs2w8OUwxzSgarLPk6uoaUWSO hMxQAob+flbVuBn+TMj1eET/SrGPb9h0o2Q7jIWKSvV7CRCCvXuTPHn3gpbn 2mgg7CemZQZ3eZ0VA6NN+DFIT5o4+tw6eMxZCi58Xsqy8fyReHZTtST8sDRs 26iutO7QJjSxrclHUgbKffsKZhv1iKq4U6fHe5TArGMnmf9Pc8KaL64g8rAa kEQVNew6LhG81lpZD+W1YbpQfG8m+TqRv93MW8nqJ/hpm/+S9o67xLEPc4dq q4xhnSboxvc1ghDjPZ5pV0QG96ZzumSxROJSc4bLRtgF2G/lW8m4kkEcu5be La9gB8nvWv7yeZNDhPvMhzc6OoIlWdysJqeY0GJ7V90OdgE6r6J/Zkc1MeIS KQ+57lD11FNOXruF2E6VVhPO94GbWtIxdSOfiEK13fxnlO/BV4Up/rRaJuF0 1MLUfCMUAn5YN8zqZBMrl54/Fl6OAptobkCjyCaUIfc/DhaIBx21enHjqN34 ScNMJywpHtItiqKZB/cgt1j7AJ33bxDZUDZ/b3oQeZqDnmdFpoHicZEN45nj mLwodnoPTzq8pPU3Wjw6gVu6CxpT0zJASK8j9qSZOnomt6SP6GTB5pE/d/18 SxNfU/W9E+9mgXhM0D3qVi3kShFDXmPZ8OBR9jWH7zq4w87KrP9BLnBlyGeD f9PHmaC0kVqDfPCueHdeRZuE/isScR+4z8H1Whf3wykjHGv7TM7pewGPxs53 JTcb41TzvZMNWAAqJc90bvmbYsAQanjEFkK8mc6uVF5zfPVjl16+YzE0Ew8o Jl/IaJvPuFL5tAQapxuIfF4rrPOrkW2aK4E4LQrTmmKFr8pFhWcTS2EiZM3X hmSN+0yIWw/iX8E/x1x2G1XaYHRx1cpvs69g3FDdUK7IFm0tsi6ZJ/wLhUOs q/xXL+K2JOLCbFoZdND8Wxg/O6B47NkrViXlcJPKNx6p4YRaGr6m4dTX8IT3 YPHkzBW8HD9GK1quACa+FJmjOmNKczD5jEIV3Kovj2jtd8UQJ7OtPTffgNu+ i9+bJd1wA5eig/EtsG3dl7JSbyCtvF4qV64aDIRqbU+6uWMHvV/csaAaXi70 lzbeuIkOV/S7c6UpoJDTc2nF0QMnShnHLz8jYP/GyPqyphe23/l88L14DXiX LGZKLnujVrQRcy+7BtqHQhRtWLfR3biauf65FtopoubtCn4YEmFdc3rkHShs u+aW0OiPDeIRjH8214HNKPHRbygQV3xWKrvN6mEx2CFkNCMEM55y2/Q7G0BT 6X0sS/V3LG/N1XhY2QRPVVLNfF0iMbfAJynZqRViOlzD71rH4q64sd2USCpk eBanR1T8hb1JQabvSB0gI+B6YdXwIZqKbpKb0qKBvZ2+3HROAq6arhsHDdHA afCvtX9OPMJnsTU7g5Q+gtMCW4ITnYzeRefOnOvsBJ5YlfVrR9Jw+xbbHI0T 3RB1/x3fI+l07FI+PO2d1AP31C9yo9wz0V67K3BgUy/w+WvKtE9m4ycFERUp Pzp4C6XW9T7NwynvsgeUuT7obpR6XBL/ArfkObft8RwAUcd51anqQpQfbz7p wB4EE+sTec2JJcgIlTBoCRwCSwezfAm3V6gadd7zTfgwzDx8H+1yqQx1FXur Kk0ZsOWY/cPLHq9xS23Ex+t7R8BYoiQm/EklpnnIHbjYNwL3j2rWC7Le4Lce e/4fMkdB/xzUCVhTUDe8d510fQzmNJ1TzvchFqXMd/urMEH0wcbHT2dq8Tt9 7InTEhPGLbelDKW8Q8ofAvtKKsaBSS14EcdTh54UvTzpexPgI5glefh2PUoE zqtGnp6EfXsSpEbnGlBNhuGbsTwJ8sTjJBG/Jgxo+zfAsmQKEjt1FDf4WrBD LYXm6zYNbhtnlqdTW3FSZOb9giQLrsaMP5XXoqJE8/XHZTQWXA6zMdw71I7b I4jWotAvMOCuFsxrSEMDLtm6R2kG1Pk0o1QlP6Dh7Ymtx3pnYFRs+I+21Q/4 UryQnRwyC7bO/L/Fd33Et6HsQWXpOVCda2rR+LcTD5yzb2TVzwG/0oBBeGIX 7iw217v+4zwEtc98OX2nG0frnGV8Q+fBaiW75aBtD96PnWoUp85DDkO/cF37 E14wEa5zEFsAxvLVtWypXjw1OilAuroArheFvIa30FFB9kgV7cUCLDh0rYSx 6GgRXiQisLgA34+FOtl/6EOfbOcbs6cW4WtPuwapoh8phy5yo4MWYZegeqTQ kwGsiYrjoeMihIzRsv/+fRAn6smRTF42FO/w2lZ87TM2S93wLv2JDapEuJD6 L0Po7mhwR+93NmT2ujB5xIYxuFh5c1INGwTpJdN37w8jRNgYlXPZ8G0tSMjj 6zAKTZ2UytBcAmefT4PUGww0+AFE7X2XQHZ9Pz26j4Fpgy12k4VLYGlk7hJj MoKkzNelRuNLwC6j51VXjODqgYHgQMll0BSsuLPn2Cg2lHGfR1gtw4HZnxVv PxzFWv+tuc4xy5DaL5ZM/T6K8upX7MWq/+t1NeqOa2NI/Sohmzm7DCkqv+4U o42h3IG89xuHVsDQjPag/xQT3ZgdJBXyChx3FXTTfcrEhLNRm5RDVuD03JCu 7OZxJN8Vjua8XAFX0gW5wF/HMfu15L1Y+gqYn/pmL9k0jsLRtLDPfKsgnOww Pys7geJFvyjPKq+C5Yv2gPbICYxyN2sttVkFU7+ismTGBMYdzNWUClkFVc7k xhHtSSyupFcp56zC5IxdPylhEmXr77+kNa9CW1C8FnV8EjlHm0irX1Zhw6zi TdTpKTTZeUXu4S4OlJBOFahHTyEPfYBzX5kD3R2Gg0kfp5AIEyGaf+HAcoqD vKPENMamRcipXedAM2VzoprjNPa23nmSF86B1FKB6fIn09jgfmntWyoH+s6k vPHoncZWAz8WzysOmDA8jDsFWTgr9gkD6zlgZdepStJhIbNhyVq6hwN3pd9K cF1ZuBajNJA+ygGl6rZIoWgWCoufzAuZ4UBd9rya1TMW6q7W8yuzOZCvk55H LmQho9RCVWnpv59bXmH1xSz8H0IrDOo= "]]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageMargins->0., ImageSize->Automatic, ImageSizeRaw->Automatic, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 1.5596134078178852`}, {-0.8652064827069462, 0}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.890383642537118*^9, {3.890466055448546*^9, 3.890466068449732*^9}}, CellLabel->"Out[35]=",ExpressionUUID->"d4f42320-ba54-45e2-9631-bf2736d06209"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["InterpolatingFunction", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, TemplateBox[{ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxOpener"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ "0.0000153581701382053349452064079997208819536750888256870\ 234`28.64899350448447", ",", "1.55961340781788510540697770825490944905`28.\ 64899350448447"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource["FEBitmaps", "SummaryBoxCloser"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, BaseStyle -> {}, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ "0.0000153581701382053349452064079997208819536750888256870\ 234`28.64899350448447", ",", "1.55961340781788510540697770825490944905`28.\ 64899350448447"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic]}, "SummaryPanel"], DynamicModuleValues:>{}], "]"}], InterpolatingFunction[{{ 0.0000153581701382053349452064079997208819536750888256870234`28.\ 64899350448447, 1.55961340781788510540697770825490944905`28.64899350448447}}, { 5, 3, 0, {152}, {4}, 0, 0, 0, 0, Automatic, {}, {}, False}, {{ 0.0000153581701382053349452064079997208819536750888256870234`28.\ 986009784148028, 0.0000207228183582986323123197554153269183068313839766179079`28.\ 98597968559641, 0.0000279611684665126520528547333264622637799488498999639782`28.\ 985963114405777, 0.0000377276919136239972995107003558933770671469932340006725`28.\ 985954025169548, 0.0000509054519597640344698724235216014357102612446284288342`28.\ 98594903494733, 0.0000686859471155933529655856558481930989106729912194263561`28.\ 98594629561737, 0.0000926768441022147775592347440430660210261748251107793459`28.\ 985944797050593, 0.0001250473421053411915699711352981682879728710494277633952`28.\ 98594396743646, 0.0001535866977925058559259956830033008285281856053952761373`28.\ 985943618934893, 0.0001687243096966052690550615787044561413426327481556463857`28.\ 9859435098192, 0.0002276569394857577750492009977408238610075650224837581624`28.\ 98594325473498, 0.0003071738570206751699789267688044065311147512491300850747`28.\ 985943107626838, 0.0004144650040214942494255647522145852426114240463531860262`28.\ 98594301386786, 0.0005592319381338599373146873518071094211411103588343150206`28.\ 98594293859077, 0.0007545655242880184758015119725051524393796278564494790621`28.\ 985942853833002, 0.0010181308104365068301135599637005340614845208715264220354`28.\ 98594272804469, 0.0013737672875576343643290467276780762105649324992731506993`28.\ 985942514727146, 0.0015359314479667732050399209132382571496312771567663074022`28.\ 98594239849133, 0.0018536518471200808917779066243117167088146523587588764791`28.\ 985942134849108, 0.0025012264482583675945367851903996322749419857426110006644`28.\ 985941447818455, 0.00337517105451167022282110980461328719173886172148374833`28.\ 985940199356744, 0.0045548200744634033652649298314116951072312408491205227085`28.\ 985937927143198, 0.006147608249205277684157172944783331221583631414545239778`28.\ 985933788862795, 0.0082994572093341711198257184558707569298876769147378643939`28.\ 985926247626345, 0.0112096339482103776343588950484682185428421586725327813905`28.\ 985912493124804, 0.0151529133394561856710911571925234590920080298903322646777`28.\ 98588736749847, 0.0154237839539307771106777059847858338746274093529257713145`28.\ 985885368940977, 0.0205148623926305525067905282508780384603194448756461310954`28.\ 985841340382198, 0.0278535434910702776191562046310635496477920209827775853505`28.\ 985756581975092, 0.0312505131700834777618588847052427319800101343459099749917`28.\ 985709019606865, 0.034397953151634330932061484181525633564209603688006518922`28.\ 985660353305246, 0.0375815221098453238717522241398747609850249650620518338985`38.\ 98560671154167, 0.0380216670754650991399697463148294604696140635489669206665`28.\ 985598950569045, 0.0408053658603097841329473578868380902881706561435881084683`38.\ 985547953311396, 0.0440739185229848847497645986294320851508299341283242628829`38.\ 98548391946139, 0.0473919476628398068700313840877287450101009741921931617613`38.\ 98541443080425, 0.0507646066957762583146639526827345014290450531323802432711`38.\ 98533928582164, 0.0524493848055500850777055773367684126349481511545211483211`28.\ 985300083350857, 0.0541974962078660218538536425882824493568940369319772953154`38.\ 98525825795001, 0.0576967362721338549806969481509292829417722775687429780232`28.\ 98517109234885, 0.0612690524231757198345522202800683237340600466302450549134`38.\ 985077501999164, 0.0649218787163204882565719434089371568116858427055977822343`38.\ 98497716307898, 0.066158780770332604993765943460663277214417043822094954478`28.\ 984942155124255, 0.0686634823429901627684006336239710179705608070545369163862`38.\ 98486970924915, 0.0725031156892195794006246589411577997513280571595586602098`38.\ 984754724754026, 0.0739516594273351578637375758129259548555819909481083569651`28.\ 984710148412578, 0.0764512037015355735593897296453111013489064582004487570021`38.\ 98463173588653, 0.0805195771959789287781293951901708169273866818056787113989`38.\ 984500200379244, 0.0847217667137915093291138133389789298961671135571185092945`38.\ 98435949407052, 0.0890733773014397418203884655488614095809697817370724620814`38.\ 98420889394683, 0.0935925731651514406556578888992478360036756178238668394388`38.\ 98404755628901, 0.0983007141601660527588264334839066942930029627045193419436`38.\ 983874488084574, 0.1032232063129203606196673981256589737667147255532349028074`38.\ 98368850899207, 0.1083906609462701326821722876424853320519595330194920819254`38.\ 98348819974622, 0.109995253563929693965875468279374869414880019022748015178`28.\ 983425016015577, 0.1119898617870156356698402210781808970820782735948687881568`28.\ 983345860438327, 0.1138405104296728731842060635355202852997809931972711631849`38.\ 98327183059386, 0.1196193201191771766498555195089948335407574436451496445541`38.\ 98303725942665, 0.1257861996390787190831213449245375194372130295154525397784`38.\ 9827817822905, 0.1324180240181307961774164094468340451083422223960996725456`38.\ 9825019058703, 0.1396177884822152605625302901887620476380140303185323807588`38.\ 982192985545126, 0.1475287379389875530302262028238709227413214945958324425508`38.\ 98184861696354, 0.1563600159790452063353558112167063979024222244598494897484`38.\ 98145953847635, 0.166437831224264408722772903216622913149616381071200033788`38.\ 98101145583767, 0.1783220530444298595530886238451670256934793298038791884553`38.\ 98048011888508, 0.1931325451710940433633194569171468131813973301252945105203`38.\ 979817641560516, 0.2138852581604996970796336833387909167194653566764434846018`28.\ 97889694588967, 0.2306438763126483210090850063396568457455844535603999831498`28.\ 97816591210765, 0.2442858566002346173624901349517901739289587982273763931595`28.\ 977582005467973, 0.2535956278519405761581683990369900779168490257882509556941`28.\ 97719018330531, 0.2636404717278958862383794448288899980351863880748512472999`28.\ 894727412121835, 0.2840261578113913708719395512662346288701286225380175765484`28.\ 89396177560155, 0.3097730244723840076627018885772429808687098871665458678205`28.\ 893037554176093, 0.3311287512479600447466700592094880967838207493206752624401`28.\ 89230870656917, 0.3529324327871396938114571563531405002585756940888625479294`28.\ 89160037105931, 0.375174637724674081537142448679374880502985500814499615044`28.\ 890914846375825, 0.3978348216811986018570438414384311730780594806443962792068`28.\ 890254210369914, 0.4208825982221058773755781405265331332326375099693471423191`28.\ 889620267242037, 0.4442791458119333376351942765274109077476650860951443770425`28.\ 889014503979404, 0.4679787641285622698393258560044009370172323676408267787711`28.\ 888438059124713, 0.4919305472667599270978011068459997594302465526102919080658`28.\ 887891705954143, 0.5160801100175315854164144459583241830050177023411728076628`28.\ 88737585082432, 0.5403712873243262387043971215381556313855233202583298918065`28.\ 886890546063963, 0.5647477256480050164577822253831794510846971843946756445642`28.\ 886435515556848, 0.5891542959174560245840848965434816492758907290406896222564`28.\ 886010190260606, 0.6135382770796406113713331043424030872220842745543411378374`28.\ 885613750426465, 0.6378502824264627371887614985703735069816685258689196829032`28.\ 885245171231503, 0.6620449236404704143605864638085718594509611547937527024426`28.\ 884903268835842, 0.6860812267175897390566790326260847139520519339658099485655`28.\ 884586744418534, 0.709922827842454419907550644323509629480291085667412326258`28.\ 884294224402417, 0.7335379854829805670766932058425780526317312195662222565606`28.\ 884024295739703, 0.7568994479987367773067940673478966498323458982560289145063`28.\ 883775535720147, 0.7799842150499842295588687061880656163139984890152630831678`28.\ 88354653623768, 0.8027732273607306172585520302585538391771576006031444900773`28.\ 883335922795084, 0.8252510141479890969950339053644120404678043130417141050407`28.\ 883142368747475, 0.8474053217584556337556351699929610326550671419039083393414`28.\ 882964605403377, 0.8692267414428755778507271070462299727805953678369980781555`28.\ 882801428640462, 0.8907083491686773470185240326317698278369228701906936175932`28.\ 882651702676302, 0.9118453661284678904247828626533673370412628109933730077687`28.\ 882514361583155, 0.9326348451973919178118253006628799608425396636777756654655`28.\ 882388409065396, 0.9530753859806302382575819091890181113234438312965033828481`28.\ 882272916941506, 0.973166879175571763828224311898929807370315124973403476868`28.\ 882167022696482, 0.9929102796327842036815351529490140775948346415204059677322`28.\ 882069926400305, 1.01230740661680134348083739785504105074`28.881980887225893, 1.03136076923356580014471432589851464927`28.88189921974709, 1.05007341471415058970246378990935816307`28.88182429015267, 1.0684487971489794140132115158421588163`28.881755512476722, 1.08649066429479808632655722686004279401`28.88169234491662, 1.10420296018350911562995020152841209977`28.881634286287547, 1.12158974141512487441620033857305234219`28.8815808726447, 1.13865510519306366005773616973400866976`28.881531674091324, 1.15540312734263676229837832110052525687`28.881486291780472, 1.17183780873203599425026521311000628464`28.88144435511139, 1.18796302868246942651113378630289297385`28.881405519115795, 1.20378250410617419849719447331815345317`28.881369462026022, 1.21929975324556030616126738384082291275`28.88133588301409, 1.23451806300269535480872512547733344908`28.881304500089495, 1.24944045894541458349468502344299661977`28.88127504814218, 1.26406967715462640119185699984131913687`28.88124727711681, 1.27840813713710652145356232296489186885`28.881220950304154, 1.29245791506932674935431466470762644173`28.881195842735046, 1.30622071666052003824878708325244878151`28.881171739662772, 1.31969784893027313277806268098470742474`28.64899350448447, 1.33289019015073647058471767363793842082`28.88112573053021, 1.34579815726424125930045472649039853637`28.88110343337561, 1.35842166982485882312322957826810444212`28.8810813558779, 1.37076010966818561014285835092227086239`28.881059313704387, 1.38281227518906211921159920750401678442`28.881037124664925, 1.39457632903789811630455105058698195224`28.88101460738708, 1.40604973779838752316630459060989753079`28.88099157994772, 1.41722920192792753165071329923533727402`28.88096785843785, 1.42811057387317760759114756141662531622`28.880943255433564, 1.4386887617951672334827485052429631826`28.880917578341407, 1.4489576157165002121340895327205506578`28.880890627580257, 1.45890979208954388212926230664379735745`28.880862194553927, 1.46853659171202607961244479832994908062`28.880832059357758, 1.47782776449052365004940068205724854855`28.880799988148848, 1.48677127263756310903077180861218763586`28.88076573009084, 1.49535300128832018411608656485163820352`28.880729013759044, 1.50355640194972497817645998709886238641`28.880689542858185, 1.5113620492170981198871305719127856379`28.880646991058295, 1.51874708415571950769839046563617145993`28.880600995689942, 1.52568450763081608878897499415508507098`28.88055114994863, 1.53214227207057788638673155545038947885`28.880496993127796, 1.53808209805605270466303465724533783809`28.880437998208656, 1.5434579084141997092740331731957037002`28.88037355585029, 1.54821371972644380385168447628582387765`28.880302953388657, 1.55228074623703917362515976786699355178`28.88022534677168, 1.55557332999211290871202971822112482167`28.880139722257567, 1.5579830676302364226316063319422581399`28.88004484286534, 1.55937006612607796437809951533563735584`28.87993917137106, 1.55961340781788510540697770825490944905`28.879887597310336}}, \ {{-6.47555378049534686295064207239229710347958050966`28.97210766739378*^-11}, \ {-1.178869579073793374008458521437026332186144035853`28.972086239596614*^-10},\ {-2.146161194677873037505048707656759590963224494655`28.97207444949607*^-10},\ {-3.907177755386613165876112197416890795859176369151`28.97206797955544*^-10},\ {-7.113221679938040486336884565930310385326380073854`28.97206442671253*^-10},\ {-1.2950031185397552851629375485858427372492682468444`28.972062475846773*^-9}\ , {-2.3576319975885418178034298362600864607745478081979`28.972061406973925*^-\ 9}, {-4.2922168591102647577144702539241579476169082607367`28.972060816034844*^\ -9}, {-6.4749973263426373826382909443975995107916181246202`28.97206056882427*^\ -9}, {-7.8142553498290269079572442300614400046187745368457`28.9720604893955*^-\ 9}, {-1.42263609795311759623423473152876472273257576926719`28.972060306143323*\ ^-8}, {-2.59000389009184097604890999775488694479031729574662`28.\ 97206019839642*^-8}, \ {-4.71528116663744144157976644943175048462712794833443`28.97206012619579*^-8},\ {-8.58451559768472173861110888776639649392340870586696`28.972060062743214*^-\ 8}, {-1.56288070509256301277479935752747849765752512476685`28.972059984510654*\ ^-7}, {-2.845372917933369780543311462605831009900251726215848`28.\ 972059862461514*^-7}, \ {-5.180344126188046414731907384934336438737604190245843`28.97205965146712*^-7}\ , {-6.475541148490145781905507894028022939279940025331029`28.972059535927592*^\ -7}, {-9.431679705664950652066013553536608098684452195546419`28.\ 97205927341521*^-7}, \ {-1.7172737620253400847044121076094344004735619606144673`28.97205858841028*^-\ 6}, {-3.1269904101521866247711355332407355699226023072042573`28.\ 972057342926032*^-6}, \ {-5.6948211997325365687271974543839116676124370943277948`28.972055075739046*^-\ 6}, {-0.0000103742060818721037678572101548730049778814602279780105`28.\ 972050946386194}, \ {-0.0000189082242054955009617543181845062295354228889829357973`28.\ 972043421203175}, \ {-0.0000344945432278048384777731782959545953830805022590746911`28.\ 972029695578048}, \ {-0.0000630361086610556289077768825271133297678487686528223165`28.\ 97200462151894}, \ {-0.0000653102487560550968120867220775734370290949741132576521`28.\ 972002626998666}, \ {-0.0001155549721678607424259856405347902344269871498474271751`28.\ 97195868496228}, \ {-0.0002130653006509828538262504835040184631027654816119139949`28.\ 971874079932988}, \ {-0.0002682394768804923024612356358508211073607085517435302636`28.\ 97182659589529}, \ {-0.0003250361285696010141132368447571289840753870543468827313`28.\ 971778003877805}, \ {-0.0003880425488698437110300626977322116678192418013006383311`38.\ 97172443701867}, \ {-0.0003971935889116609264498168858647486362007693503996271409`28.\ 97171668626824}, \ {-0.000457547000808419279236368441105574763913759074122916892`38.\ 97166575230364}, \ {-0.000533877543263033476587535622528899417344099957430189255`38.\ 97160178823673}, \ {-0.0006174069508426538619344158959213616059689643534765761947`38.\ 97153236288677}, \ {-0.0007085585927228797765474032067963481666245299131996713972`38.\ 97145727152517}, \ {-0.0007564536432830442752180125055239728254809633267182633621`28.\ 971418090800725}, \ {-0.0008078134808307042489014736398172325567749386262956633725`38.\ 9713762838284}, \ {-0.0009157187564405188948059104353678702494641090373963251669`28.\ 971289140569557}, \ {-0.0010328979608508640502003372237052611157521918794795417488`38.\ 97119554946859}, \ {-0.0011600635435643923272673232444648212686150824618449556409`38.\ 971095180662104}, \ {-0.0012048090784052858758711079007239296473799414175945782858`28.\ 971060155050683}, \ {-0.0012980321952440422234660872700529048406376173642772304162`38.\ 97098766055108}, \ {-0.0014477437958383188788841412670640665416366328106573231263`38.\ 97087256478689}, \ {-0.0015063660874442495710343463323972122930895635288876554102`28.\ 970827933840685}, \ {-0.0016102850310612913790940683130597895150368204980629657843`38.\ 970749409410764}, \ {-0.0017869191159550107060892167510269109530321561559790686316`38.\ 970617639861366}, \ {-0.0019791236119545608327768951675963035121444955364772834981`38.\ 970476617146865}, \ {-0.0021886391268141749491428156574681238963297464309749989628`38.\ 970325600243235}, \ {-0.0024175328848272552336328048238385668775834052428936607112`38.\ 9701637233896}, \ {-0.0026682829827044319488830304464610053885662273132729589126`38.\ 969989966359265}, \ {-0.0029438920053644243945627007147339826214936290994925888862`38.\ 9698031148672}, \ {-0.0032480432740654652808889763394289035174233568221481570209`38.\ 96960170680944}, \ {-0.0033455851426270900692776196844818974634603508912703251098`28.\ 96953814117717}, \ {-0.0034688854492499114303500315577786705991844644631933165019`28.\ 96945848272243}, \ {-0.0035853206342905303301032254399198883230145505360016247745`38.\ 96938395761829}, \ {-0.0039615258412480005854482142331579775961328617077922454069`38.\ 96914765389774}, \ {-0.0043841512371437388696220974470492338827313730303641434222`38.\ 96888999716289}, \ {-0.0048631100871645140316618626346110974649465950490513363752`38.\ 968607365755304}, \ {-0.0054119166174894775221210147763195316724438288257535430928`38.\ 968294935646206}, \ {-0.0060497016006045096048360432030383678136817486065820274203`38.\ 96794604225132}, \ {-0.00680490889856673981550444030346600070931801477787681977`38.\ 96755102775431}, \ {-0.0077227484342467948071075386001633205247230944699682834396`38.\ 96709495364533}, \ {-0.0088823701593328962575398855067608786136825098513690225548`38.\ 96655241654755}, \ {-0.0104455076392680443878867957139053131929569975584911540427`38.\ 96587312260942}, \ {-0.0128583275770564198212382699509977776028705127401840010549`28.\ 964923208164524}, \ {-0.0149984704530011247133307755636120080426656738755394292073`28.\ 96416354881144}, \ {-0.0168684622269738235456054435660933478926986492394695521668`28.\ 963552936111558}, \ {-0.018211039263712576932641386050251169573617205656717607023`28.\ 963141117820964}, \ {-0.0197204794710307280051204646816173231801630680821834579433`28.\ 87467581692757}, \ {-0.0229796186877008218070133593929603991131099591652862435985`28.\ 87360530337803}, \ {-0.0274749993221892195744873090978956967744509133202108353071`28.\ 872298453552233}, \ {-0.0315290695009649420284246774618190854030291356116901728557`28.\ 871254977134825}, \ {-0.0359766182201423713734976866662094201267352190986974803914`28.\ 87022841607411}, \ {-0.0408386632595778842591329262612184942885044649111731234714`28.\ 869221668436154}, \ {-0.0461337795254895902597717898866453414868505186095438134419`28.\ 868237488567758}, \ {-0.051877516453160115580305781804669753813551273823759977625`28.\ 867278420691697}, \ {-0.0580819008102332800258223106443929326861934084608679504106`28.\ 866346738224802}, \ {-0.0647550614533730725514423919582863988347955124164253823017`28.\ 865444392947428}, \ {-0.0719010029691749190798829992339438599336123408309093240462`28.\ 864572977380874}, \ {-0.0795195418791718319321633269544132541354406318019639306779`28.\ 863733702524076}, \ {-0.087606404293314528903875733244988706956937483865962067875`28.\ 862927391655145}, \ {-0.096153469916410045241845461715927447569152416911609846169`28.\ 862154489452234}, \ {-0.1051491362096738182375572223304619890647048804141392697716`28.\ 861415084453235}, \ {-0.1145787695998672434618639618869779286941007965134305182436`28.\ 860708942011847}, \ {-0.1244252082862897591216010524602525118331790028489610603002`28.\ 860035544485104}, \ {-0.1346692829384898685649986901162700405779319041500740305072`28.\ 85939413538211}, \ {-0.1452903263440383302766065599929251485944814272754455446966`28.\ 858783764529864}, \ {-0.1562666495661765619579279942585784853634321410805268243954`28.\ 85820333184885}, \ {-0.1675759691916983071643922876420986576830129744019864315484`28.\ 85765162796149}, \ {-0.1791957768474580307250598976049546665719778687466396840497`28.\ 85712737048059}, \ {-0.1911036477426802188581825775773617984016272418836521297145`28.\ 856629235376786}, \ {-0.2032774892828937691367364932706161727641116614284822639928`28.\ 856155883267622}, \ {-0.2156957337810993966077618064746886243530476834705021136898`28.\ 855705980796397}, \ {-0.2283374811059416006190140568646256103367968457351289826891`28.\ 85527821748466}, \ {-0.2411825979788870555630358351752621083986217410428403470986`28.\ 854871318564907}, \ {-0.2542117808058586069027900480803238833870420072434870805425`28.\ 854484054351484}, \ {-0.2674065886276964535332833690284209696315094970472887054841`28.\ 85411524670807}, \ {-0.2807494521843080843161433830447687243900732387860650026836`28.\ 853763773137445}, \ {-0.2942236643516955316208414175850796249035396945116102747757`28.\ 853428568967228}, \ {-0.3078133564301763917864148277728118044254159549958592713742`28.\ 85310862804491}, \ {-0.3215034640022199548870839947856815400899246545576186500461`28.\ 852803002292973}, \ {-0.3352796853789426013114078281856439110564324903610171458172`28.\ 852510800415967}, \ {-0.3491284350346621118232643133555177767431029214238945757335`28.\ 852231185997148}, \ {-0.3630367938963224226520651657568634077493424121351481620015`28.\ 85196337517517}, \ {-0.3769924579063097926747182508879856248036948806756086546515`28.\ 851706634050927}, \ {-0.3909836859069513688487559277896895571295152163420052214648`28.\ 851460275940852}, \ {-0.4049992475933939749149109301655715789696065093300009352426`28.\ 851223658565157}, \ {-0.4190283720386955842309271131606821833078214510092080323014`28.\ 85099618123702}, \ {-0.4330606971010265434973627908355038366493589311162685486825`28.\ 85077728210082}, \ {-0.4470862198688373614632297162283219560036659709194826423044`28.\ 850566435453192}, \ {-0.461095248177635087494704158697690129697810473861468001731`28.\ 85036314916962}, \ {-0.4750783531346155969837078652598523792022007236238404503916`28.\ 850166962250807}, \ {-0.489026322508808976657691850665105980512852254069606405916`28.\ 849977442496407}, \ {-0.5029301147794919589486786313901209562497838220590842793805`28.\ 84979418430882}, \ {-0.5167808135800285884988956342203565575649439735327926052999`28.\ 849616806626177}, \ {-0.5305695822242449435556375805286098982923238844568810869416`28.\ 849444950980796}, \ {-0.5442876179545915984075768562098446877425849871346072900127`28.\ 849278279677655}, \ {-0.5579261055026493165161409892334366552033182938969389523012`28.\ 84911647408594}, \ {-0.5714761695000821963567266582659083436550795503630986777731`28.\ 848959233035835}, \ {-0.5849288252190078328149412996615661056436330303037926605711`28.\ 84880627131211}, \ {-0.5982749270555479902860965783855777210135863390465145095527`28.\ 772315033577588}, \ {-0.6115051140581643823848285639056968945001176430295207817748`28.\ 848512116323644}, \ {-0.6246097518077137710286815334982352517406377000902872736701`28.\ 848370420019346}, \ {-0.6375788696240819741989837044116701980842986966092905980222`28.\ 848231994481164}, \ {-0.6504020921870390101051858479292825998434052986027324679276`28.\ 848096614421916}, \ {-0.6630685642616432503090951955477996094500191921668170680478`28.\ 84796406298761}, \ {-0.6755668670913669000237589231802896488824173903461566633189`28.\ 84783413066505}, \ {-0.6878849247000067632332953761794655210014850546626655901432`28.\ 84770661420712}, \ {-0.7000098979789412066581055403857530269016141096981536439751`28.\ 847581315563232}, \ {-0.711928063968778821639026104003598142789300042383244689513`28.\ 84745804080167}, \ {-0.7236246771469459661255257493392919455736511066034903880518`28.\ 847336599008507}, \ {-0.735083808763485994143655920268540554058462480765335054672`28.\ 847216801145983}, \ {-0.7462881592688941819386040200966724487633696030317029536144`28.\ 847098458850112}, \ {-0.7572188375704680811983872036351393515752018061997946874104`28.\ 846981383143763}, \ {-0.7678550991253674051633890136527335748104073914105851965256`28.\ 846865383036384}, \ {-0.7781740325698591218206306936457122490062555666734943232997`28.\ 84675026397532}, \ {-0.7881501814649139605100041970779047913399436100927223119616`28.\ 84663582610481}, \ {-0.797755083471335129498624788925118485979586649023259570768`28.\ 84652186227757}, \ {-0.8069567033512564254493661777191959957365717344844954297356`28.\ 84640815574839}, \ {-0.8157187278673335782201674568744727334282015717399370774294`28.\ 846294477458247}, \ {-0.8239996787432853490118473390899980550122895879577619209386`28.\ 846180582788573}, \ {-0.831751782510355240464687091081397348494195192314518148223`28.\ 846066207625487}, \ {-0.8389195103099169835470690774396351129484757115093228570766`28.\ 845951063516807}, \ {-0.8454376616128139189379215423017347340776579721268747631814`28.\ 845834831623655}, \ {-0.8512288049339907658760735238918886830350490626171904751561`28.\ 84571715504954}, \ {-0.8561997911539397664215767498721761511683527030628059085112`28.\ 845597628953158}, \ {-0.8602368939663214898881428932909314246609208763354615092192`28.\ 845475787582792}, \ {-0.8631988557800913229118053531421102036121706909078777499925`28.\ 84535108695341}, \ {-0.8649066232628017456563652836876075842454780114272602675347`28.\ 84522288122528}, \ {-0.8652064827069462298382934208006345295701314851737294599275`28.\ 845163843127903}}, {Automatic}], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.890383642537118*^9, {3.890466055448546*^9, 3.890466068474819*^9}}, CellLabel->"Out[36]=",ExpressionUUID->"e1f1d3ea-f6b4-40b4-9f0a-e572caccffa3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Computing the line of first order phase transitions", "Subsubsection", CellChangeTimes->{{3.890381423162054*^9, 3.8903814294641237`*^9}, { 3.890382217673277*^9, 3.8903822216437817`*^9}, {3.890382265517962*^9, 3.8903822686250763`*^9}, {3.890383658588019*^9, 3.890383666624802*^9}},ExpressionUUID->"845460b4-be2d-431d-828b-\ 54560061416d"], Cell["\<\ For each choice of chemical potential, now we can ask whether there is a \ phase transition. For example, two cases where we find phase transitions are\ \>", "Text", CellChangeTimes->{{3.8903836828205233`*^9, 3.890383737510627*^9}, { 3.890383822941986*^9, 3.8903838249886303`*^9}, {3.890384033536463*^9, 3.890384041938905*^9}},ExpressionUUID->"896363a1-8aa6-41c4-b8f8-\ db593b2426b9"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"\"\<\[Mu]B = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{"(", RowBox[{"1", "/", "10"}], ")"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"\"\<\[Mu]B = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{"(", RowBox[{"22", "/", "100"}], ")"}]}], "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.890383826327797*^9, 3.890383882294158*^9}, { 3.890384044383997*^9, 3.8903840770960903`*^9}, 3.890384129952121*^9}, CellLabel->"In[37]:=",ExpressionUUID->"d406af48-14f1-487d-9b33-a65898c0a0c8"], Cell[BoxData["\<\"\[Mu]B = 0.628319\"\>"], "Output", CellChangeTimes->{{3.890383837521482*^9, 3.890383882613011*^9}, { 3.8903840266848*^9, 3.8903840774342337`*^9}, 3.890384130332329*^9, 3.890466072340626*^9}, CellLabel->"Out[37]=",ExpressionUUID->"2e07a8dd-0469-49ca-8b16-b3f969656711"], Cell[BoxData["\<\"\[Mu]B = 1.3823\"\>"], "Output", CellChangeTimes->{{3.890383837521482*^9, 3.890383882613011*^9}, { 3.8903840266848*^9, 3.8903840774342337`*^9}, 3.890384130332329*^9, 3.890466072343645*^9}, CellLabel->"Out[38]=",ExpressionUUID->"f3c826fc-581f-4d6f-9086-59f7f3ad204c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"temperature", ",", "freeEnergy"}], "}"}], "/.", RowBox[{ RowBox[{"chooseMu", "[", RowBox[{"{", " ", RowBox[{"(", RowBox[{"15", "/", "100"}], ")"}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "250"}], ";;", RowBox[{"-", "60"}]}]}], "]"}], "]"}]}], "/.", "removeUnits"}], "//", "ListPlot"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[ScriptCapitalG]of\[Mu]B", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{"(", RowBox[{"15", "/", "100"}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "40"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.890383748224317*^9, 3.890383819078844*^9}, { 3.890383860362431*^9, 3.890383860833535*^9}, {3.890383891100252*^9, 3.890384024065551*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"534576b8-c84c-47df-9e95-ce0f67c1dac1"], Cell[BoxData[ GraphicsBox[{{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV1nc4Vf8fAHCJJCkrsrOyGiii4n2/Li6yshJC6IuWUdEv31Jmgwa3siqS ioxQJOXcXK69jr27XHtde4Xfpz/Oc57X83mec8778x6fI+XqbXmBlYWFBUPX 37u525VYIi8r4Srv2+qZU3oUzwCedzKDLIRgiROVGQIESvwPS57L8ZvgsP70 2EaQFmXFK7pI+uk6FJCMyS4nj1K8juvxV3xcAzfXlSZVfhXKEXGpAQZ9Bdat nX5wRitSkg8ZxylpLYN01z3m8DlZSiHxiqBPxiLsofdHLsE+Sj/DMC1LawFa 7jaaPV8TpgTnyKtu9s7BaRrxSQguQHEXtnR7GT8Lft0NA0NFPJQKExGV8osz EFK1zHb3zw7KKujpL5oy4dPClkyLdnZKsLioAzFsCtLVLY8/om6hsHqGSOU9 noAVwedTYlzrmFrM8sk7X8fAiufwCmFgCXtgrXSdfWkEwiP1Xbsr5jCNXnGl MothIETnOsuGMjF6Qq+kNWUQZF47PhTBx7ELEZu8F4gM4NlOKslKG8bCr7mk 17b1w8e95FdEOwZWUpDo+jKQDuG2foL1uXTsmUVfvvTB39BzUHU78XAf9tkg LqOltQeSHxm7CnV0YbPGYRprl7uA81/ixYrjHZj6VKC5x74O2JqUax6o3obZ Pl+QmFhphaG1+kGBnBasypn/lS9HC3iXrzXTY5sxDTejr5lnmsAozLNKpb0J 49caD3WcbQST72aGh882Ye96Qp8NNjWAwqujJ0kcTdiP6eydkvR6yKg8mamJ 41iJ2uw70Rt1YJH95tRqFo4d4T3C+fpULYi2NkXmvsAxIyL7l/2WNSBKtxM2 CsMxbacAG4fAatDyvxFkehPH/Nyqkv41roaSX7eLXtzAsd+ZvI25QVXg3ffV SPcSjmV8zhkdlK0Cf5HyaAEPHPsoGXjVtK4SSPVJprZuOJYp2xjtGFgJ2Rmj 5xedccy/9UnDG+VKEHlwS3TYEcfucfLf/tZbAc2L7B7i9jj28MXxg2fJFWCg 76bz9AyOsQjMlOiaVEB6/EFNTRsc67+mw667rQJmRX6o7rZCzz8Tl3awpBxY jvbu5DmNY3P+E4WMoHJI6Az+T8Mcxy4dzTMwhXI4YZPXfccUx/I1aWesWMpB reAo/9ApHDPk5uYdKaFB8Fqdv5cxjvkaerJuiaBBw/GCom1GOPY/JXrCSxMa cGssDxSRcCyqM4bykZ8GxfqrahEGOHbDZeba0e4yyOC5K+Ohj2Nn7oy/0n5f BubtZGd7PfT9wV4Dlb5lkM3O8d2ZiGNrWXzP6DploOu0T9FfF8dG2ne/fMJd BixZTiWJ/+DY6JVhMr2nFFZ51/NxAo7tucC5MJxdCjEOCqeFkI/lse/NDymF oQXKjBfg2AST8sT1bCnENUTvqtLBMY+fBpc4VEth13WmyjFk+CRALtlRCjrV yfOftXGM5N6tnT9EhYRwYY5jyAf6fnhxllFBz2pwf+VJHBu/hd0eSaVCW4Cp jAeybDmDGfaACp2pQt08yJ2SwlyiPlQg1Tj9QzuB4r3RmD9ylgo+2letIpDt v5CdNUlUMDZ+IG2NbNnI2eKoSYWzDvfqDiBXJc/L5h2kwkrIXBgvspNGwpkU eSq8n1gLZUX+1WM+k7SfCk9tpflZkMPyMV5lZSqY5mvd3YFMt/LdrFangu6d UUlp5PDlfUNC6H3RxW+IJOSoxoiodGcqEO6Vq91C7hI50CFzlwrSHrZSRcjD gr0b0mlUiCGIyu1A8fhFU2IIXVQYVfig9DfeOsHpJg6hUnggJDHeiOz0vbxx 2rEUzg5HMozQfl2ZD/OxySyFPA532zpklU3RvQHby6BjxYDohPZ7Vf1dj9/V MlQf4TeXkWOTG31JfWWg1nA/PgHla/PpvpQ2exoY0QOOGqB8zvqJ1U3/psHs /fWKReSbPTI2Jr7lEHd5hv4J1YMZD0EjiasCaHo24u6oXt6tvmFLyK6AFCJV QwLV053g1/ikYyXENipzdyCXNG70mfFXwTaGUWoMqr/Z616C/+FVUBwbpGiK 6nM8lyvoZHw1zO36PcyG6jewdnLU5WINtEmJmH9HDgrp26Tq1gLTpnnsMqr3 FYFUppFMHXhU9juLGaL81A4y+rjqQc4y0bMCOSpd+HTgn3pofRbQ6IP65V9+ xuvIWw2wKsPmvwf1k3STcmXvagNkyBvo5P/tL30Nda2gRlik+YpZof4r1eT7 mcKBA1f45o4J5AVy0C8FMg66nbu57pngWP2hjolm2Sbw6eKX4UP9G3pBeCO/ sAkiFHPOvUEOkTmX0GfZDPpjbRUKZjgmwa+sfJ7ZDGU01htZyMz3P/PMo1tA YSDuugqaB+21ZIyi2Qok3K8rC7nua7JB9UArDAR4FitaoP1e9k6IiGkDxptt R5KRT4f+ctht2A7iFfrme9B88ZWXdb+9pQOOqVsrhiPzzQnRJrEOYEx6tc0h r4VcptwO6YSSlFRvJ0scu29yv/CUSRdEjzM5aMgdfnYnAkS6Qc1n7KsSml8t 33KY+6a6QYyz5XEkcs35uZSL5T2wVPfwwzjyZ6NSnYD3vSDud03A0BrHNKMq qi4+6oMbmrdHk5Gts+O01E/8hlyZvcdXkMkPHhPr8n7D9zY1YTM0Lw8n6OmQ D9PBaVwzLgnZu4H9VkIWHVjP8dUwkSckg3qXVfrhwIwMVccWxz6ViE/+yu8H u1MWTx4iB3xJo+4kDEBf3AqhGVmHKCzJrBmAoi9bR0TRfOZRiHcKOceAb+TW mPPI17Rrw3tnGGDPfd4qFfmPl5q+yMNByC0QVR/+u04rmTPfPwRxm1wkeTuU T4+CxDjaEPiQyl9cQDYLD9zgvTQMlXv9Vd8iO3JVPmnmHwE5+zaZnr/rxVMh 65QRuB5CvCV4FsfEY6A+zW8UXGqyCWbIrT/TlZcUxsDGIic4FLnT+T9xNsYY yMvdPVWITKcZLE+njMPo+dXUCWSrM/MDnZ4TICLwIVECnT9Ldqz9g2qT0CRV qGWOXL7EwNVYp2BeiC/iDjK1nxzIaJ2CnAG9xxnIydtJjyRypkEqINauA1ks 5ENDsCETEu12TLM54FiK/4s05yImbIidtj+M/DbKTVhLdQZ6anrf2iHLXfcc k06fAW71gYa7yFHB2ZdU988CJm028QF5TsPm+v9SZ+Hdo8Y/tcixfls8eBTm IOXtAOccctLaTfWdWXMQ3EEREULnaVslyT3k2DwcariicRzZ5FPorqjSeZBQ K3RzRK5tyhol2CyAS7B22m3k/cxUo4LRBVhqdeV+jbzk8FOWM3gRNkJcXvxE LpEYF7KQWAL9Ah3jbuQke/5L74uXoJWt/dAq8nC3zx55t2XgGOw0EjqHzuNw 0ZJJrhVIkK1OOoIsaZTZLFi4AgGkrVrmyKYB265iF1fBu/er0EVkPnU1X3ap NfjUMPVPKPKnhkv3ObrXQDaO/OMVck6nvtJgwh9Iu+kVmY+s2jr3uthlHboS d+bXIU+4FLB/VdqAtyfXtIeQ5b772o+tbMDV9GcK68g0sn3gvbpNKHLceYvf CcVLvipkbs1CUJm8r6GITNSuI6uVshAqdnG46iAnzpjv2NDYQiAFerFYIX/z bK4szdhC8Gj33+OBTPfpSI2XYyXsft757hbySGb9fEwyK6GxWC43Ctk7Ppxc tm8rQbShnpCEHOmUPamXspVADDhmnYvszhewJK/IRmiyTZmmIvtwaJ0Iy2Uj 6GK6gi3ISgVG7deAneDheqh6EFl0tTOCq4Gd0MfixbuI/PLQapK7+zbCe97f 4+zof6pm9aNY7J9tBD73y+f2IP8fIyZC8w== "]]}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbWd8rXmPYmJl/az336k/lb+pj2Mv/DU /MLX8i/h/HXrO2/n6P2C89PtL858U8TsAOPnPdV8vGUdJ5zPpdiift9CAM7v EzittTBBGM5Puh2yn/mMGJxfeLQlKV9dCs7fWMATLOEpC+cvrM5+ZRCuAOc3 zf8T+OWNIpzPcPmBw54qZThfrSStIkRLFc5/8nV6GPdeNTjf62lW7aRCDTjf 78kEbTk5LTj/1eGkhhNrteF8PcFrss7xugj/2X9NvPNZD853fxv1XSnUAM6/ cSiFMUrHEM7f2nEkTuErgp/GWvrg3DkjOD+5qHorzyxjOF8/XfucT6IJnH9e SIe71NIUzt+9rmm2DrMZnF/NqBVw5i6Cz3WnyiNvizmc/3SZ4pT5NRZw/hQN SZadoZZw/oRZaccTFazg/Kgpsed4niP4P1yW/py/zxrOf/zUqeJQuw2cv8jW UPpsoi2cv7a1VDBd1w7Obw9N9mb+iuCb3lm4sv2sPZw/Q3P22rPeDnB+/YHe Gd47EXxf6dClp1Qc4XzHvOPRgp0I/nyZJJUzXxF8lcPLp/lFOyH8p3tI69I+ BD/tM8vFk1rOiPS48ZNCZz+CP+EST++R4wj+vs9qP///R/AB0VChoA== "]]}, Annotation[#, "Charting`Private`Tag$8713#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, -0.28410769659583096`}, 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]], ImageSize->{416.49609375, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{ 0, 2.8733370055264}, {-0.29823221001226397`, -0.2848510920388003}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.890383745061482*^9, 3.890383819605077*^9}, { 3.890383857670566*^9, 3.8903838614762287`*^9}, {3.8903838945984583`*^9, 3.890384026898026*^9}, 3.8904660724136553`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"e9049c44-a01a-40af-a620-5c8281be5b4d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"temperature", ",", "freeEnergy"}], "}"}], "/.", RowBox[{ RowBox[{"chooseMu", "[", RowBox[{"{", " ", RowBox[{"(", RowBox[{"22", "/", "100"}], ")"}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], "/.", "removeUnits"}], "//", "ListPlot"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[ScriptCapitalG]of\[Mu]B", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{"(", RowBox[{"22", "/", "100"}], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "40"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.890384083397133*^9, 3.890384121806542*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"eebc4504-229c-41fe-91f7-140db6da4322"], Cell[BoxData[ GraphicsBox[{{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0mlME2YYB3AcFhAcGhWGiDiqpcDKpa7iij7AOCZaKhMWN7ksghBADYjA mKJYDtGFTM6wytlquYRWZFAtL+WmQAVDJYocG7zARJnKZVF0rx+e/PNLnjxf /o8Z9+yPIV9oaGh4kvmcDgO58lXpMwBaMZ2651/05HTJVIdgCMwHRtXhNdNo /0WejWJpEKJcOU/qJVNou89Gg5Gxx7CRSku5vGMKlV/SBX+/AXg4O6XiKzFa Z8zb8cmtHzj9vu7uJRi5Cm6qKHNK2GCfushIxegQ+8iKqqIPuBvCNaTnMToq 0yvRLO2FwDMV0powsu+blpGLeuDSlhPcsUCMhHGYsWVZAaGcBbT1Z4yCcF9d upMC+GH0aPExjG6qoyx7crthY/TLkIMcjNpWeydil7qgcIjvlnQYIxxJtVx8 1AX1vq3hIk+MtHOUCYUWXXCK9w/LxQOj4K2s95VpnQBJJtE/uWIk2f2VZG62 Axh3Ewp7nTEqTuc9KPHpAH60KzMLMGo9qh51lbfD8JCEfusARr5nfuHy7Nsh NcIjeJyFkax/2cNS2AavDRRvfL7DqImT9E7fpA02e0j9FxwwMqO4XDDJbYWA eSGncR9GN7xvTMLmVmineXsWMTHqtLUuiMhqgWSuY2Lptxg5fdzNyjZsAa3n vHy0F6Ocfr/kGr4cFscbOuf3YJTIUibdo8mBTh3IcCQWxLXScsXNMK5OEOft xqjDpFeH7dQMsfti2ZrEQyleVwvKEOhcdi6/aI/Rr1Ne3Ya9TUCvjnWiEFd0 Tq9fVstASxbemG+HEcXd9w+qtQwokxNjTOIrS3GqpJCHEGSYXTxqS/pKtG1c KH0Ap4yYlEziI9pOZaFYCteULHsP4mKHQaGUIYUD52cCtIgnhi8Uq+IbISpC 8bzHBqP4dTMB/O4GqN6UopdHnG91vW7etAFEo6MnThNr6odmN8f/BWeMdNmO xGYWStrMk3qgHPk6woC4zH1ZxdlfDxHybvZba4yuWZWFjhTdB1qIXt5j4i+X mCsXdO/DNn/m2/vED2N+266ZUAeHmIub+MQZaccehc3eg+8tY+p4xG212amZ J+9BcGRB/lliC+pJZuCwBGivQ9P8iCONjbybj0vguMNhr8PEOea7FH8+FcMn thCxiCsoSsNhfzE0rHWRWBPfoh60CcO1kLP2lYYZ8XGjgXTrc7Xwg8P6DAPi d++bDjA+1IBdmJut3ud7pVZKY9MaODfHUK0hPhE3IfrodhcCMz9w1QzyX7BO VBtTDTK+d8sbYm/xu2zdO1VwtPTN6AvijGLzndNjlXDjv+zbk8S+dqoXZqaV UH2qXmeMeFDZEJx3sgKMVk4vPSWmyQrHdlWUQ2HaN1wV8SvnnSmiZRHoBzyC AWKD6GTPNZ4isPf24vURb6u6/lq/5A6EPZPQFMRd0bJV8YfbEERZNe4kXgO/ N/b43QafcV2/NuKsHSP0g3IhVNld/VtOvHy9aO1LSyHQ9rQIELFaIEINuQK4 srerSEbsyKyMT9cWwLNBy74HxP8DYV9paw== "]]}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbXddsf3NnnGT/ez336k/lb+pj2Mv/DU /MLX8i/h/HXrO2/n6P2C89PtL858U8TsAOPnPdV8vGUdJ5zPpdiift9CAM7v EzittTBBGM5Puh2yn/mMGJxfeLQlKV9dCs7fWMATLOEpC+cvrM5+ZRCuAOc3 zf8T+OWNIpzPcPmBw54qZThfrSStIkRLFc5/8nV6GPdeNTjf62lW7aRCDTjf 78kEbTk5LTj/1eGkhhNrteF8PcFrss7xugj/2X9NvPNZD853fxv1XSnUAM6/ cSiFMUrHEM7f2nEkTuErgp/GWvrg3DkjOD+5qHorzyxjOF8/XfucT6IJnH9e SIe71NIUzt+9rmm2DrMZnF/NqBVw5i6Cz3WnyiNvizmc/3SZ4pT5NRZw/hQN SZadoZZw/oRZaccTFazg/Kgpsed4niP4P1yW/py/zxrOf/zUqeJQuw2cv8jW UPpsoi2cv7a1VDBd1w7Obw9N9mb+iuCb3lm4sv2sPZw/Q3P22rPeDnB+/YHe Gd47EXxf6dClp1Qc4XzHvOPRgp0I/nyZJJUzXxF8lcPLp/lFOyH8p3tI69I+ BD/tM8vFk1rOiPS48ZNCZz+CP+EST++R4wj+vs9qP///R/ABkI+ahA== "]]}, Annotation[#, "Charting`Private`Tag$8823#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, -0.6611271754288349}, 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, 0.4176630392569396}, {-0.6722130867398686, -0.6617106444452034}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8903840838819036`*^9, 3.8903841221684303`*^9}, 3.890466072441134*^9}, CellLabel->"Out[40]=",ExpressionUUID->"03823969-dd77-483d-98a5-5e7a0490fde7"] }, Open ]], Cell["Whereas for some other the phase transition is lost, ", "Text", CellChangeTimes->{{3.8903838633023243`*^9, 3.8903838737564*^9}, { 3.890384134446804*^9, 3.890384154763892*^9}},ExpressionUUID->"310a9675-6420-4a58-ab67-\ d7932f6b971e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\"\<\[Mu]B = \>\"", "<>", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{"(", FractionBox["1513", "6250"], ")"}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{3.890384345956215*^9}, CellLabel->"In[41]:=",ExpressionUUID->"58308856-f3c0-4e23-b0ad-9c2302cb5bd5"], Cell[BoxData["\<\"\[Mu]B = 1.52103\"\>"], "Output", CellChangeTimes->{{3.8903843509030247`*^9, 3.890384359520084*^9}, 3.890466072448311*^9}, CellLabel->"Out[41]=",ExpressionUUID->"e70bbd73-9d8d-40c9-b2e9-21c65cfafca3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"temperature", ",", "freeEnergy"}], "}"}], "/.", RowBox[{ RowBox[{"chooseMu", "[", RowBox[{"{", " ", RowBox[{"(", " ", FractionBox["1513", "6250"], ")"}], "}"}], "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "100"}], ";;", RowBox[{"-", "1"}]}]}], "]"}], "]"}]}], "/.", "removeUnits"}], "//", "ListPlot"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"\[ScriptCapitalG]of\[Mu]B", "[", RowBox[{"2", "\[Pi]", " ", RowBox[{"(", " ", FractionBox["1513", "6250"], ")"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "40"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.890384164507298*^9, 3.890384212520443*^9}, { 3.890384281010709*^9, 3.890384310450206*^9}, {3.890384348377207*^9, 3.890384353382123*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"80ceb6cd-c0a7-4949-a336-1f4f147c4408"], Cell[BoxData[ GraphicsBox[{{{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwd0Ws01AkYBvCpIxqN3BJr5Xpcq1Ua5LJeObootUmhVcS0bMM0Ji3DYBj3 ZBjjFuZi27ZCqjVmyK4lOimXLNN927E1e9rC6lRKKXbe/4f3POf37TnPaxPL 3PfdUhKJdFRzmPMps+uHIhqB3nGK1rnh5e8KU/MyqmUj7JruUndoXP+vlXm8 WgpyP71EtOM4hxzTLAXPXW4fFBpLD29ptEqWgj7raQmaaa3lKvWRwrD4gR06 lNNJntCSQpDDeI9c41FTd7tOkQTGBMJY9MFhyhGHTRLI4Py1HF3meKt16W0x cOI4be0av5DqawfFiiGyjhqLnl9re/ztvAhWk+6vQr8aPkci1YjgMcltUKZx qVi2TegpgoLyj4WEN731OfCwAb62Um5Hu0/UbQ7IaADxf3W66IDTW6Rh1g0Q NbFutE3jMZ+Ov/k36uEA7Vgt+tfixynPE+ohLWYjDT1PvmnmpaiDrNvRn3/R WGhS+clSpw7iy1RSdO+eaN+MyDPAH70XjA53Cv6ZKquF6yVcEtrz1VHFOsNa WByy77qKfWraq4NO1EAS2SEDHRIoNmDdr4Yh6WQAmtz7bUWxfzWU5sysRBuM d9mnX6oC1ZRcdUXjhLP6DBfLKtgePiZDz9I8JLyKSsil/VmKnmFP5CboVsKa WTYdPZT3hjmSL4TmiP070ew7xgFVWkIQc23Xo2WSb6KbCipgbrfYCO3p+/Ly 3IoK2DhX9PGyxifpgQ0JlQJ4yryoRktiJsgzVgL448ngKHo6iBvBbC0HN6fe bvRYdlj0QyiH97lRregf37crqRfKwNMgU4JmFQQw/e/x4Vr6BwE6y7vxxVUy H+61tOWjE2FvWlxAKai5/HS07zsnZ9/s0yBgM5PQfo+alIZ9JcAs8otHP+uj 2d3ULQHfu/9EoT8NJOf5hp+Cvfkh4Wi5w1qX0AvF0FPO3IsWDfYsm/5cBP3V rjvRDD/rvqnwItBW8ALR73qH+93lhcA6Hgnoa3KVVYtZIXinXvJGx0dQaqnc AnjQzPBAj+gP1ste5EPtlMANTWoq8jeKyIfzOoau6NRH037U23kQePbpWvRX OZ4zS/zz4I3zohM61E+6ldaZC9yOaAd03+SjEX+PXDint2CHpjeKWnLlPPDg KG3Qh9/6Vph486DuwRMrtJdLeO9ETw5UpJhYEv+wKdMe3ZkDhqtSLYg9OsPk I/ezwVa5YI5uyBm4OBCfDXLqxS/QLyk2qftnubBbO9kM/dppoLjHmgtHjh40 RZdyDdyvhGQBt/XganS0/YjxYmEmGPBYJuimlLiW4r4MkMjEq9A7XKgJ67Uy QLFHZYyeuasjGgjigFvhRsIRov5j3pXp8KFbaITm3jC7E/ssDawztQg7qkPq bT3TgJHAM0SnxQZ/H1nGBptQCmHy8qzqmclUMDJvNEALt3y543pwKhj2AOFx ZdghxdUUyD70XB+tutJFbzNPAWeLGsIWRdLu+sIfYBvsIaynku0LmzsJClMK YYrX+aFbiSchTmd0JdpYV81+ok6G/qwzhGeNGNvSjiQDdz6eMH9w4Hq+6gT4 6/gQ1s8kr56KOQFVHkaEX7dMLlQ9Z8Frx2k99FL2ijuMJBb08QYJd3A2xEd9 SgLJuxbC9MnLm0JLkiDHW0B4hKF22rwmCSwpbMLvf0vhvqExYatrDGEL+1Y1 WXgcQhjBhNtjS1j8mwz4qdKLsHZD7YrDSxiwge1EmFVTUrjPPxEMZswI28a5 nA3OSwAbpS7hbuuwRedhOjQvW6CgH9rajbSY0yFNT0lG/w91KyF3 "]]}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQPbcuic0wZbWdocKXmnUGr/az336k/lb+pj2Mv/DU /MLX8i/h/HXrO2/n6P2C89PtL858U8TsAOPnPdV8vGUdJ5zPpdiift9CAM7v EzittTBBGM5Puh2yn/mMGJxfeLQlKV9dCs7fWMATLOEpC+cvrM5+ZRCuAOc3 zf8T+OWNIpzPcPmBw54qZThfrSStIkRLFc5/8nV6GPdeNTjf62lW7aRCDTjf 78kEbTk5LTj/1eGkhhNrteF8PcFrss7xugj/2X9NvPNZD853fxv1XSnUAM6/ cSiFMUrHEM7f2nEkTuErgp/GWvrg3DkjOD+5qHorzyxjOF8/XfucT6IJnH9e SIe71NIUzt+9rmm2DrMZnF/NqBVw5i6Cz3WnyiNvizmc/3SZ4pT5NRZw/hQN SZadoZZw/oRZaccTFazg/Kgpsed4niP4P1yW/py/zxrOf/zUqeJQuw2cv8jW UPpsoi2cv7a1VDBd1w7Obw9N9mb+iuCb3lm4sv2sPZw/Q3P22rPeDnB+/YHe Gd47EXxf6dClp1Qc4XzHvOPRgp0I/nyZJJUzXxF8lcPLp/lFOyH8p3tI69I+ BD/tM8vFk1rOiPS48ZNCZz+CP+EST++R4wj+vs9qP///R/ABpoqUBA== "]]}, Annotation[#, "Charting`Private`Tag$8927#1"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, -0.818442565616264}, 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, 0.033880596742831025`}, {-0.8184477752854609, -0.8184428398093778}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.890384167899316*^9, 3.8903842127228327`*^9}, { 3.890384282083088*^9, 3.890384302398942*^9}, {3.8903843490304527`*^9, 3.890384359699609*^9}, 3.890384495687942*^9, 3.890466072478997*^9}, CellLabel->"Out[42]=",ExpressionUUID->"1a45c9f9-eed1-412d-aebc-b3c496c8de1b"] }, Open ]], Cell["\<\ In this way we can compute the line of first order phase transitions:\ \>", "Text", CellChangeTimes->{{3.890384540947309*^9, 3.890384554853332*^9}},ExpressionUUID->"288d7edb-d44a-4091-8938-\ 476f495360e2"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"linePhaseTransitions", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"sol", "\[Equal]", "22"}], ",", RowBox[{"Return", "@", RowBox[{"Null", "[", "]"}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t1", ",", "t2", ",", "cusp", ",", "\[Mu]here"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"cusp", "=", RowBox[{ "Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Mu]here", "=", RowBox[{ RowBox[{"2", "\[Pi]", " ", "\[Mu]dual"}], "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"sol", ",", "1"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"t1", "=", RowBox[{ RowBox[{"temperature", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"sol", ",", "iter"}], "]"}], "]"}]}], "/.", "removeUnits"}]}], ";", "\[IndentingNewLine]", RowBox[{"t2", "=", RowBox[{ RowBox[{"temperature", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"sol", ",", RowBox[{"iter", "-", "1"}]}], "]"}], "]"}]}], "/.", "removeUnits"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"t1", ">", "t2"}], ",", RowBox[{ RowBox[{"Return", "[", "iter", "]"}], ";", RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"iter", "==", RowBox[{"Length", "[", RowBox[{"allsolutions", "[", RowBox[{"[", "sol", "]"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Return", "[", "iter", "]"}], ";"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"iter", ",", "2", ",", RowBox[{"Length", "[", RowBox[{"allsolutions", "[", RowBox[{"[", "sol", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"iterPolG", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"temperature", ",", "freeEnergy"}], "}"}], "/.", "\[VeryThinSpace]", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"sol", ",", RowBox[{"1", ";;", "cusp"}]}], "]"}], "]"}]}], "/.", "removeUnits"}], "//", "Interpolation"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"\[Mu]here", ",", "t"}], "}"}], "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"iterPolG", "[", "t", "]"}], "-", RowBox[{"\[ScriptCapitalG]of\[Mu]B", "[", "\[Mu]here", "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"iterPolG", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"iterPolG", "[", RowBox[{"[", RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"sol", ",", "2", ",", "64"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PrependTo", "[", RowBox[{"linePhaseTransitions", ",", RowBox[{"{", RowBox[{"0", ",", "0.2238664151793708`"}], "}"}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.876970904768086*^9, 3.876971268755294*^9}, { 3.877145569068519*^9, 3.877145705124391*^9}, {3.8771457373201647`*^9, 3.8771457393091497`*^9}, {3.877145791351152*^9, 3.877145810105013*^9}, { 3.877145846205195*^9, 3.877146008540208*^9}, {3.877160915464374*^9, 3.877160915960635*^9}, {3.877161220467546*^9, 3.8771612213331947`*^9}, { 3.8771619183219767`*^9, 3.877161931607977*^9}, {3.8774013512206373`*^9, 3.8774013547536573`*^9}, {3.877402304190589*^9, 3.877402343765267*^9}, { 3.877402612166994*^9, 3.877402615844316*^9}, {3.87748703241886*^9, 3.877487032464655*^9}, {3.877575606676969*^9, 3.8775756075312033`*^9}, 3.8800811577686977`*^9, {3.880081207355768*^9, 3.880081219483005*^9}, { 3.880081381556841*^9, 3.8800814125681973`*^9}, {3.880102937675935*^9, 3.880102972008391*^9}, {3.880170047439404*^9, 3.880170074137554*^9}, { 3.8810406694198494`*^9, 3.8810406714516506`*^9}, {3.8814871422255106`*^9, 3.8814871440724897`*^9}, {3.8820854110823603`*^9, 3.8820854122878113`*^9}, {3.8820854984412622`*^9, 3.8820856250380244`*^9}, {3.88208616318303*^9, 3.8820861668179436`*^9}, { 3.882512885334056*^9, 3.882512885404668*^9}, {3.8834657039046087`*^9, 3.8834657081562843`*^9}, {3.8834662649681883`*^9, 3.88346626504562*^9}, 3.88744651746384*^9, {3.887446554779208*^9, 3.887446555665889*^9}, 3.88744658844011*^9, {3.887446634112268*^9, 3.8874466651092453`*^9}, { 3.887446720448045*^9, 3.8874467497311277`*^9}, {3.887447104266967*^9, 3.8874471488519793`*^9}, {3.887447641000559*^9, 3.887447706909317*^9}, { 3.887448084680378*^9, 3.887448107526189*^9}, {3.887448163999318*^9, 3.887448189120204*^9}, {3.887448231122369*^9, 3.8874482675243063`*^9}, 3.887448322396532*^9, {3.887448397467202*^9, 3.887448403995812*^9}, { 3.890384564302887*^9, 3.89038458797639*^9}, {3.890384627779523*^9, 3.890384634726*^9}, 3.890384666555756*^9}, CellLabel->"In[43]:=",ExpressionUUID->"95de6263-b994-4a2c-9827-0c64e753cbd8"], Cell["\<\ The solutions also have a nice properties: the low chemical potential have a \ cusp that is eventually is lost.\ \>", "Text", CellChangeTimes->{{3.890384685653132*^9, 3.890384719399712*^9}},ExpressionUUID->"eed6b003-f848-43a3-9c53-\ bbdac28225e4"], Cell[BoxData[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t1", ",", "t2", ",", "cusp", ",", "\[Mu]here"}], "}"}], ",", RowBox[{ RowBox[{"cusp", "=", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"\[Mu]here", "=", RowBox[{ RowBox[{"2", "\[Pi]", " ", "\[Mu]dual"}], "/.", "\[VeryThinSpace]", RowBox[{"allsolutions", "\[LeftDoubleBracket]", RowBox[{"sol", ",", "1"}], "\[RightDoubleBracket]"}]}]}], ";", RowBox[{"t1", "=", RowBox[{ RowBox[{"temperature", "/.", "\[VeryThinSpace]", RowBox[{"allsolutions", "\[LeftDoubleBracket]", RowBox[{"sol", ",", "iter"}], "\[RightDoubleBracket]"}]}], "/.", "\[VeryThinSpace]", "removeUnits"}]}], ";", RowBox[{"t2", "=", RowBox[{ RowBox[{"temperature", "/.", "\[VeryThinSpace]", RowBox[{"allsolutions", "\[LeftDoubleBracket]", RowBox[{"sol", ",", RowBox[{"iter", "-", "1"}]}], "\[RightDoubleBracket]"}]}], "/.", "\[VeryThinSpace]", "removeUnits"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"t1", ">", "t2"}], ",", RowBox[{ RowBox[{"Return", "[", "iter", "]"}], ";", RowBox[{"Break", "[", "]"}], ";"}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"iter", "\[Equal]", RowBox[{"Length", "[", RowBox[{ "allsolutions", "\[LeftDoubleBracket]", "sol", "\[RightDoubleBracket]"}], "]"}]}], ",", RowBox[{ RowBox[{"Return", "[", "iter", "]"}], ";"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"iter", ",", "2", ",", RowBox[{"Length", "[", RowBox[{ "allsolutions", "\[LeftDoubleBracket]", "sol", "\[RightDoubleBracket]"}], "]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"{", RowBox[{"\[Mu]here", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"cusp", "\[Equal]", RowBox[{"Length", "[", RowBox[{ "allsolutions", "\[LeftDoubleBracket]", "sol", "\[RightDoubleBracket]"}], "]"}]}], ",", "Null", ",", RowBox[{"Min", "[", RowBox[{ RowBox[{"temperature", "/.", "\[VeryThinSpace]", RowBox[{"allsolutions", "\[LeftDoubleBracket]", RowBox[{"sol", ",", RowBox[{"1", ";;", "cusp"}]}], "\[RightDoubleBracket]"}]}], "/.", "\[VeryThinSpace]", "removeUnits"}], "]"}]}], "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"sol", ",", "1", ",", "62"}], "}"}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"lineCusp", "=", RowBox[{"DeleteCases", "[", RowBox[{"%", ",", "Null"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.890384722720621*^9, 3.890384732476911*^9}, { 3.890384787277925*^9, 3.8903847907373447`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"acba76b4-98b0-4771-b057-6238452711d7"], Cell["\<\ In blue we plot the line of first order phase transitions and in orange the \ cusp found\ \>", "Text", CellChangeTimes->{{3.890384817039362*^9, 3.890384833999256*^9}},ExpressionUUID->"4188be0a-d4bd-4a15-8690-\ fc3507dea949"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plotPT", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"linePhaseTransitions", "[", RowBox[{"[", "All", "]"}], "]"}], ",", "lineCusp"}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.890384802974203*^9, 3.890384803221095*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"3f5e82e2-220c-4262-9b22-1e280c1d50ed"], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw1kQtMk1cYhgtGLrOOIU6qshVUKJchLrYILvPtIrJNusgqsgUDqMDmDTDC NiKwiBLYaOQmKnfY7CxDGUMuluqgUC69/BouChOoraggIJS2FOocui75/5Oc nDz5zvm+932P25FEfpw1jUbjWvb/J7VamboSkYjABpZzYfu71eDO+myX1FL8 J07b8NoXbhIQSTYdrHIVI3q/D+zbqLoUhfYjjHwFAe18+fd+G7tQXv3y2+uD 1H05BD+l2bJHCcRn1sDBg8C1mditGRrqfR+65TEb9moJLK+KyPyBMQCnvsfr ktRUv/u4WPaXk+0wAdkDzdHJ94bgnK/6w+ku1f9vHNZ97ChuJ5BTFffFV5tH wPINc1hVT80bw6MJ74/cywiEHpv5sNfzERy2D4e4ZFLztZAOLwa+PkZAUBIg 2Oj8GLSMZb8HPErPOKo7PJeFHxBI/DE1fXD9EwgzI26csKf0PUV23bqVbk9U 4Me0JQpcniE9NPJlc6uK1DsBZ0lH9NoLKnA+szqymzkJq8acTe9Hqkj9zzF2 /JumG14qMHyDwl65TWFo97nGAoOS9DONFTkji0W3lHjlmB3cuGUG+mYzNylF Sfp7gfrwPX1qthKaRUXACdYszDsrIlNeKEi/c5hgq3gPKxXoHKX7bPbWoa12 bi4rREH6n8eti80uJr0c+7Wi3PjL8wg4EDRwvkBO5qGHRtogS/eSo4uvyFZc 0SPWuy5rdWsvmY8BHPvVRi564d89fda9xICGYTnPJOkh8zIiVTI5dd+7B6Id 9DMZpUZcStHwdlzoJvNbwL6iQJOttguHYvncN7kLGLKybhGyu7C+1jdJXbaA hK2nfy1y7SLzNWFb3ZDjthAZBC77TgZWmDBGI2x+iegk816E4lr4LkNwB/7N PRV3qXIRFUH/vPPcWkrmvwRxC9e1ZvoO+oWfHyqNXoLsztMprs1tJFgVRumr lsBI+KQySibGl4w3XscHl2DHv11Mz2qB7GpznsespZ57T3nUpxkcv5OmcRsz Rg0cEzO/kfxPM+bEK89U/dwARvBD6cGdZnDddU3JQXXoFzQZAz814+yahjV2 v9cgpz/PgxFmRurrtHNTb5cjZHzULsLCnW52Hg66UtCNrJkyC7/lX379Zm0J 7q1Ivqu2cPypqJg0djHy1krrmQfM+I0zouZ+dxmh7vTCwxaW+10p3rOrCI7+ XydftTBTwerxdCrAQLAw/JmFje2txYLS8/gPPh/wqA== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGBQA2IQDQONkzSjojVO2Uupi0/aL7rAvueO7tnl4jD+BnsD 3rmX5D+etF++Syl6vsIOeyFvOw2Tkyeh8gfsT0Z/e7lw8Un7Bx/mlOlLH7GP fqzw0rYVpv6E/eK5n5tmZMHUX7Bnyliu+8DspP1f7qiWcolL9rYuVp9kZGD6 r9ivrd1a+OHfCaj+G/ZpWyUCbuw9Yd81P9U3XPmWve0n568TZ56wz21ZYc+v dsde3emePk/hCfuAzNeGxzXu2c+8veKmv8sJqH0P7E3ttSrERE7Yd8+06JYW f2h/vI/9idiD41D7H9m/+jBJlHvFcfv8uuray5KP7VOTWV6fzzwOdc8T+63C n37vVTtuH5S8L79b5qn99D8rol7fO2Z/+Or9jOeyz+zL2SK/tU06Zm/qwZjk LP/c/rnKt4B5Dseg7n9hvy/9+9GSp0ftJXRdQn4rvrSfVp+jrdh2FOqfV/ab 9+/sPS571P63YLvbZpXX9jbOmunT1x2B+u+NfZez4R1V0yP297+dtMhWf2uv HnXlxZsth6H+fWd/8K7/xwVqh+0P3ebRVtZ6b5+8o33vtL5DUP9/sH9YsLyU /+VB++AHy/typ32wfy/Rx7/a9CA0PD7ar6q0tuLNPwANj0/2wWIlU/c57YWG x2d7palFfefX7LBfbs5T1Tjrs/3GNgHX3Ye3QsPni71K3XKPMtVN9pKrdIvv zv5iX6bjui5YfZU9AFxUHf8= "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0.}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0., 1.5209706673089625`}, {0., 0.22559477127612673`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.890384806242228*^9, 3.89038483700598*^9, 3.8904660734025793`*^9}, CellLabel->"Out[47]=",ExpressionUUID->"cc36b11c-59e2-4905-b682-7952e177d4cd"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Reconstruction a black hole solution", "Section", CellChangeTimes->{{3.890381973761797*^9, 3.890381979363853*^9}, { 3.8903849068778353`*^9, 3.8903849160419617`*^9}},ExpressionUUID->"e4d4d090-427c-43fe-b61e-\ ef187902147d"], Cell[BoxData[ RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.890380044565257*^9, 3.8903800536874447`*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"8879b42d-f97b-4084-a350-9c5404213ecf"], Cell[BoxData[ RowBox[{ RowBox[{"Get", "[", "\"\\"", "]"}], ";"}]], "Input", CellLabel->"In[49]:=",ExpressionUUID->"f57a362f-e79f-4852-a3bf-950fd11e0ce1"], Cell[CellGroupData[{ Cell["Code", "Subsubsection", CellChangeTimes->{{3.8564967251621428`*^9, 3.856496751439169*^9}, { 3.8619501394953337`*^9, 3.86195015408722*^9}, {3.871700159450548*^9, 3.871700160327385*^9}, {3.8860446507053833`*^9, 3.8860446536751413`*^9}, { 3.886066830370138*^9, 3.886066830674033*^9}},ExpressionUUID->"155722e7-ad47-420b-b73c-\ e50636e556f7"], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"point", ",", "wpc"}], "]"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", "solUV", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"solUV", "[", RowBox[{ "f4_", ",", "f5_", ",", "f10_", ",", "b5_", ",", "bJ0_", ",", "bJ4_", ",", "bJ6_", ",", "bJ9_", ",", "vb_", ",", "v0_", ",", "v1_", ",", "v4_", ",", "v5_", ",", "\[ScriptCapitalQ]_", ",", "b1_", ",", "\[Xi]H_"}], "]"}], "[", "\[Epsilon]UV_", "]"}], ":=", RowBox[{"NDSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"eqsnum", "[", RowBox[{"\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", RowBox[{"Length", "[", RowBox[{"eqsnum", "[", RowBox[{"\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"af1", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "1", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af1", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "1", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{"af2", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "2", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af2", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "2", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{"af3", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "3", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af3", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "3", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{"af4", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "4", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["af4", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "4", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{"af5", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "5", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af5", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "5", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{"af6", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "6", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af6", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "6", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{"af7", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "7", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af7", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "7", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{"af8", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "8", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af8", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "8", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"af9", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "9", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af9", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "9", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"af10", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "10", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af10", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "10", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"af11", "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "11", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af11", "\[Prime]", MultilineFunction->None], "[", "\[Epsilon]UV", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "11", "]"}], "[", RowBox[{ "f4", ",", "f5", ",", "f10", ",", "b5", ",", "bJ0", ",", "bJ4", ",", "bJ6", ",", "bJ9", ",", "vb", ",", "v0", ",", "v1", ",", "v4", ",", "v5", ",", "\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", "\[Epsilon]UV", "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "af1", ",", "af2", ",", "af3", ",", "af4", ",", "af5", ",", "af6", ",", "af7", ",", "af8", ",", "af9", ",", "af10", ",", "af11"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\[Zeta]", ",", "\[Epsilon]UV", ",", "point"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"WorkingPrecision", "\[Rule]", "wpc"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.714386227974585*^9, 3.7143862729975986`*^9}, { 3.714386939472136*^9, 3.714386940461356*^9}, {3.714388427593408*^9, 3.71438843801151*^9}, {3.7159300177489443`*^9, 3.7159300656319237`*^9}, { 3.715930374125311*^9, 3.71593037464786*^9}, {3.717821624282263*^9, 3.7178216272470407`*^9}, {3.718079216857082*^9, 3.718079276414857*^9}, { 3.718079974186277*^9, 3.7180799746810427`*^9}, {3.718950089427163*^9, 3.718950140096896*^9}, {3.718950476464864*^9, 3.7189504809066763`*^9}, 3.718950515264688*^9, {3.718950839637821*^9, 3.718950843865737*^9}, 3.7267302882628503`*^9, {3.726731425532901*^9, 3.7267314257986417`*^9}, { 3.8292149992954893`*^9, 3.8292150564646797`*^9}, {3.829215351836986*^9, 3.8292153938548317`*^9}, 3.8292154282933407`*^9, {3.82921554791444*^9, 3.829215548262485*^9}, 3.829215648468671*^9, {3.829215690857431*^9, 3.829215698156557*^9}, {3.8292159724701557`*^9, 3.8292159763370132`*^9}, 3.8292160351668997`*^9, {3.8292796250964193`*^9, 3.8292796359847097`*^9}, { 3.8292796691293097`*^9, 3.829279683179076*^9}, {3.829279788965193*^9, 3.829279794216261*^9}, {3.82927992280484*^9, 3.829279946475524*^9}, { 3.829279997910679*^9, 3.8292800001512747`*^9}, {3.8292859532972317`*^9, 3.829285977369495*^9}, {3.8292860774162683`*^9, 3.8292860823440228`*^9}, { 3.829286143479307*^9, 3.8292861486063967`*^9}, {3.8292861888822813`*^9, 3.829286191447109*^9}, {3.829286268444145*^9, 3.829286272706422*^9}, { 3.829286331390175*^9, 3.829286362424965*^9}, {3.829286396851061*^9, 3.8292864015424147`*^9}, {3.829287015378942*^9, 3.829287015595354*^9}, { 3.829294607577705*^9, 3.8292946228000193`*^9}, {3.829294769634268*^9, 3.829294770185277*^9}, {3.8292950655799847`*^9, 3.829295068728848*^9}, { 3.829295952408527*^9, 3.8292959535105057`*^9}, {3.829299503936998*^9, 3.82929954571005*^9}, 3.829299811425729*^9, {3.8293003972822847`*^9, 3.8293004102305803`*^9}, {3.829300572063753*^9, 3.829300574391178*^9}, { 3.829362526001102*^9, 3.829362526965271*^9}, 3.829362627926058*^9, { 3.829362690408597*^9, 3.829362746239957*^9}, {3.8293628054851913`*^9, 3.829362838806181*^9}, {3.8293629221172523`*^9, 3.829362941644416*^9}, 3.829363605982841*^9, 3.829363657340064*^9, {3.829363809000741*^9, 3.8293638259094276`*^9}, {3.829367796672503*^9, 3.829367932775271*^9}, { 3.829624570507146*^9, 3.8296246597515707`*^9}, 3.829624762780313*^9, { 3.829625047743297*^9, 3.8296250479549847`*^9}, {3.8296252497123947`*^9, 3.8296252578039227`*^9}, 3.8302375109082108`*^9, 3.8411133479472127`*^9, { 3.841113861028699*^9, 3.8411138818098435`*^9}, 3.841114019000079*^9, { 3.841114180993816*^9, 3.8411141813697653`*^9}, {3.8411142400417013`*^9, 3.841114249936341*^9}, {3.8411142943702326`*^9, 3.841114296873891*^9}, { 3.8411180045908422`*^9, 3.8411180127897167`*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"1c4b0750-cb6b-4b54-bf00-78c3b463d415"], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"point", ",", "wpc"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "solIR", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"solIR", "[", RowBox[{ "b1_", ",", "f02_", ",", "g02_", ",", "\[Lambda]0_", ",", "\[Xi]0_", ",", "\[Chi]0_", ",", "\[Alpha]0_", ",", "h0_", ",", "B0_", ",", "a1H_", ",", "aTH_", ",", "aHH_", ",", "\[Xi]H_"}], "]"}], "[", "\[Epsilon]IR_", "]"}], ":=", RowBox[{"NDSolve", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"eqsnum", "[", RowBox[{"\[ScriptCapitalQ]", ",", "b1", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "11"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"af1", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "1", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af1", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "1", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{"af2", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "2", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af2", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "2", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{"af3", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "3", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af3", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "3", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{"af4", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "4", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ SuperscriptBox["af4", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "4", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{"af5", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "5", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af5", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "5", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{"af6", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "6", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af6", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "6", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{"af7", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "7", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af7", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "7", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{"af8", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "8", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af8", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "8", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"af9", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "9", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af9", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "9", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"af10", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "10", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af10", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "10", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"af11", "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "11", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["af11", "\[Prime]", MultilineFunction->None], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "11", "]"}], "[", RowBox[{ "b1", ",", "f02", ",", "g02", ",", "\[Lambda]0", ",", "\[Xi]0", ",", "\[Chi]0", ",", "\[Alpha]0", ",", "h0", ",", "B0", ",", "a1H", ",", "aTH", ",", "aHH", ",", "\[Xi]H"}], "]"}], "[", RowBox[{"1", "-", "\[Epsilon]IR"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "af1", ",", "af2", ",", "af3", ",", "af4", ",", "af5", ",", "af6", ",", "af7", ",", "af8", ",", "af9", ",", "af10", ",", "af11"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\[Zeta]", ",", "point", ",", RowBox[{"1", "-", "\[Epsilon]IR"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"WorkingPrecision", "\[Rule]", "wpc"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{ "\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.714386227974585*^9, 3.7143862729975986`*^9}, { 3.714386939472136*^9, 3.714386940461356*^9}, {3.714388427593408*^9, 3.71438843801151*^9}, {3.7159300177489443`*^9, 3.7159300656319237`*^9}, { 3.715930374125311*^9, 3.71593037464786*^9}, {3.717821624282263*^9, 3.7178216272470407`*^9}, {3.718079216857082*^9, 3.718079276414857*^9}, { 3.718079974186277*^9, 3.7180799746810427`*^9}, {3.718950089427163*^9, 3.718950140096896*^9}, {3.718950476464864*^9, 3.7189504809066763`*^9}, 3.718950515264688*^9, {3.718950839637821*^9, 3.718950843865737*^9}, 3.7267302882628503`*^9, {3.726731425532901*^9, 3.7267314257986417`*^9}, { 3.8292149992954893`*^9, 3.8292150564646797`*^9}, {3.829215351836986*^9, 3.8292153938548317`*^9}, 3.8292154282933407`*^9, {3.82921554791444*^9, 3.829215548262485*^9}, 3.829215648468671*^9, {3.829215690857431*^9, 3.829215698156557*^9}, {3.8292159724701557`*^9, 3.8292159763370132`*^9}, 3.8292160351668997`*^9, {3.8292796250964193`*^9, 3.8292796359847097`*^9}, { 3.8292796691293097`*^9, 3.829279683179076*^9}, {3.829279788965193*^9, 3.829279794216261*^9}, {3.82927992280484*^9, 3.829279946475524*^9}, { 3.829279997910679*^9, 3.8292800001512747`*^9}, {3.8292859532972317`*^9, 3.829285977369495*^9}, {3.8292860774162683`*^9, 3.8292860823440228`*^9}, { 3.829286143479307*^9, 3.8292861486063967`*^9}, {3.8292861888822813`*^9, 3.829286191447109*^9}, {3.829286268444145*^9, 3.829286272706422*^9}, { 3.829286331390175*^9, 3.829286362424965*^9}, {3.829286396851061*^9, 3.8292864015424147`*^9}, {3.829287015378942*^9, 3.829287015595354*^9}, { 3.829294607577705*^9, 3.8292946228000193`*^9}, {3.829294769634268*^9, 3.829294770185277*^9}, {3.8292950655799847`*^9, 3.829295068728848*^9}, { 3.829295952408527*^9, 3.8292959535105057`*^9}, {3.829299503936998*^9, 3.82929954571005*^9}, 3.829299811425729*^9, {3.8293003972822847`*^9, 3.8293004102305803`*^9}, {3.829300572063753*^9, 3.829300574391178*^9}, { 3.829362526001102*^9, 3.829362526965271*^9}, 3.829362627926058*^9, { 3.829362690408597*^9, 3.829362746239957*^9}, {3.8293628054851913`*^9, 3.829362838806181*^9}, {3.8293629221172523`*^9, 3.829362941644416*^9}, 3.829363605982841*^9, 3.829363657340064*^9, {3.829363809000741*^9, 3.8293638259094276`*^9}, {3.829367796672503*^9, 3.829367932775271*^9}, { 3.829624570507146*^9, 3.8296246597515707`*^9}, 3.829624762780313*^9, { 3.829625047743297*^9, 3.8296250479549847`*^9}, {3.8296252497123947`*^9, 3.8296252578039227`*^9}, {3.8297116970817738`*^9, 3.829711873933395*^9}, { 3.829712333992689*^9, 3.829712335557538*^9}, {3.8297136736840982`*^9, 3.829713680115769*^9}, {3.830243000278833*^9, 3.8302430048447742`*^9}, { 3.8411341668545666`*^9, 3.841134299708308*^9}, {3.841134488114417*^9, 3.841134489762189*^9}, {3.841135011002554*^9, 3.841135012458355*^9}, 3.855290794145853*^9, {3.855290855860114*^9, 3.855290861180052*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"6b9b2a76-7b02-4133-bba5-6f12c3843813"], Cell[BoxData[ RowBox[{ RowBox[{"valuepfMu", "[", "k_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"\[Mu]dual", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"\[Mu]dual", "/.", RowBox[{"allsolutions", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}]}], "//", "N"}]}], "}"}]}]], "Input", CellLabel->"In[56]:=",ExpressionUUID->"ec1b3887-212b-49c4-9d67-ceccabdfe371"], Cell[BoxData[{ RowBox[{"Clear", "[", "chooseMu", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chooseMu", "[", "chosen\[Mu]_", "]"}], ":=", RowBox[{ RowBox[{"Select", "[", RowBox[{"allsolutions", ",", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{"chosen\[Mu]", ",", RowBox[{"(", RowBox[{"\[Mu]dual", "/.", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], "&"}]}], "]"}], "/;", RowBox[{ RowBox[{"chosen\[Mu]", "[", RowBox[{"[", "0", "]"}], "]"}], "===", "List"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"chooseMu", "[", "chosen\[Mu]_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Select", "[", RowBox[{"allsolutions", ",", RowBox[{ RowBox[{"chosen\[Mu]", "==", RowBox[{"(", RowBox[{"\[Mu]dual", "/.", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "&"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/;", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"chosen\[Mu]", "[", RowBox[{"[", "0", "]"}], "]"}], "===", "Rational"}], " ", "||", " ", RowBox[{ RowBox[{"chosen\[Mu]", "[", RowBox[{"[", "0", "]"}], "]"}], "===", "Integer"}]}], " ", ")"}]}]}]}], "Input", CellChangeTimes->{{3.886044340929163*^9, 3.88604436963897*^9}, { 3.8860444020401173`*^9, 3.886044557871348*^9}, {3.8860447277033987`*^9, 3.886044728195784*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"6cee7a3d-a3da-4983-9d07-e9fe949ca075"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"evaluateThis", "[", "solution_", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"in", "[", "par", "]"}], "=", RowBox[{"SetPrecision", "[", RowBox[{ RowBox[{"(", RowBox[{"par", "/.", "solution"}], ")"}], ",", RowBox[{"wpc", "+", "20"}]}], "]"}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"in", "[", "par", "]"}], "[", RowBox[{"[", "0", "]"}], "]"}], "==", "Real"}], ")"}]}], ",", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "par", ",", "\"\<] is not a number :S\>\""}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"par", ",", RowBox[{"solution", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "}"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.886045274879813*^9, 3.886045277239902*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"2dcb145a-7a11-4ed8-a938-1f9af93101ce"] }, Closed]], Cell[CellGroupData[{ Cell["Reconstruct a solution", "Subsubsection", CellChangeTimes->{{3.8564967251621428`*^9, 3.856496751439169*^9}, { 3.8619501394953337`*^9, 3.86195015408722*^9}, {3.871700159450548*^9, 3.871700160327385*^9}, {3.8860446507053833`*^9, 3.8860446536751413`*^9}},ExpressionUUID->"43debd2b-52e2-43db-91d8-\ 6b8bf4859064"], Cell[BoxData[ RowBox[{" ", RowBox[{"(*", " ", RowBox[{"Choose", " ", "a", " ", "convenient", " ", "matching", " ", StyleBox["point", FontWeight->"Bold"], StyleBox[" ", FontWeight->"Bold"], "and", " ", "Working", " ", "precision", " ", RowBox[{ RowBox[{ StyleBox["wpc", FontWeight->"Bold"], ".", " ", "9"}], "/", "10"}], " ", "and", " ", "40", " ", "respectively", " ", "work", " ", "nicely", " ", "in", " ", "most", " ", "of", " ", "the", " ", RowBox[{"cases", "."}]}], " ", "*)"}]}]], "Input", CellChangeTimes->{ 3.856497023243647*^9, {3.8564975788856707`*^9, 3.856497579128982*^9}, { 3.856943511869013*^9, 3.856943514330339*^9}, {3.856943652170928*^9, 3.856943653878323*^9}, {3.859446280915454*^9, 3.8594462810037937`*^9}, { 3.8604741924812527`*^9, 3.860474192848421*^9}, {3.861089194260844*^9, 3.861089216902729*^9}, {3.861089373097192*^9, 3.861089373401782*^9}, { 3.86194713699063*^9, 3.861947139233611*^9}, {3.8619477712325277`*^9, 3.8619477727128267`*^9}, {3.871699088710948*^9, 3.871699091184457*^9}, { 3.871699232596002*^9, 3.871699234292947*^9}, {3.871699450236973*^9, 3.871699450754233*^9}, {3.88604478016815*^9, 3.886044809655863*^9}, { 3.886045284801567*^9, 3.8860452868925543`*^9}, {3.886055865036087*^9, 3.8860558982506857`*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"e5edf840-57f5-409b-bd3e-b4c556f76bad"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"computeBackground", "[", "solution_", "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wpc", "=", "40"}], ",", RowBox[{"point", "=", RowBox[{"9", "/", "10"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"solUVnow", ",", "solIRnow"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"evaluateThis", "[", "solution", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[ScriptCapitalQ]", "=", "0"}], ",", RowBox[{"b1", "=", " ", RowBox[{"in", "[", "b1", "]"}]}], ",", RowBox[{"vb", "=", "0"}], ",", RowBox[{"v0", "=", RowBox[{"in", "[", "v0", "]"}]}], ",", "aux", ",", RowBox[{"bJ0", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"4", " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]}]]}], ",", "120"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]UVhere", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"SetPrecision", "[", RowBox[{"#", ",", RowBox[{"wpc", "+", "10"}]}], "]"}], "&"}], ")"}], "@", RowBox[{"(", RowBox[{"\[Epsilon]UVnow", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", " ", RowBox[{"Abs", "[", RowBox[{ RowBox[{"error", "[", RowBox[{ RowBox[{"in", "[", "f4", "]"}], ",", RowBox[{"in", "[", "f5", "]"}], ",", RowBox[{"in", "[", "f10", "]"}], ",", RowBox[{"in", "[", "b5", "]"}], ",", "bJ0", ",", RowBox[{"in", "[", "bJ4", "]"}], ",", RowBox[{"in", "[", "bJ6", "]"}], ",", RowBox[{"in", "[", "bJ9", "]"}], ",", "vb", ",", "v0", ",", RowBox[{"in", "[", "v1", "]"}], ",", RowBox[{"in", "[", "v4", "]"}], ",", RowBox[{"in", "[", "v5", "]"}], ",", "\[ScriptCapitalQ]", ",", "b1", ",", RowBox[{"in", "[", "\[Xi]H", "]"}]}], "]"}], "[", RowBox[{ RowBox[{"in", "@", "\[Xi]H"}], " ", "\[Epsilon]UVnow"}], "]"}], "]"}]}], "]"}], "-", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"wpc", " ", "11"}], ")"}], "/", "10"}], ")"}]}], ")"}]}]}], ",", " ", RowBox[{"{", RowBox[{"\[Epsilon]UVnow", ",", RowBox[{"10", "^", RowBox[{"-", "1"}]}], ",", RowBox[{"10", "^", RowBox[{"-", "2"}]}]}], "}"}], ",", RowBox[{"WorkingPrecision", "->", RowBox[{"wpc", "+", "10"}]}]}], "]"}]}], ")"}]}]}], ";"}], "\n", ",", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "\n", RowBox[{"Check", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]IRhere", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"SetPrecision", "[", RowBox[{"#", ",", RowBox[{"wpc", "+", "10"}]}], "]"}], "&"}], ")"}], "@", RowBox[{"(", RowBox[{"\[Epsilon]IRnow", "/.", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"10", ",", " ", RowBox[{"Abs", "[", RowBox[{ RowBox[{"errorIR", "[", RowBox[{"b1", ",", RowBox[{"in", "[", "f02", "]"}], ",", RowBox[{"in", "[", "g02", "]"}], ",", RowBox[{"in", "[", "\[Lambda]0", "]"}], ",", RowBox[{"in", "[", "\[Xi]0", "]"}], ",", RowBox[{"in", "[", "\[Chi]0", "]"}], ",", RowBox[{"in", "[", "\[Alpha]0", "]"}], ",", RowBox[{"in", "[", "h0", "]"}], ",", RowBox[{"in", "[", "B0", "]"}], ",", RowBox[{"in", "[", "a1H", "]"}], ",", RowBox[{"in", "[", "aTH", "]"}], ",", RowBox[{"in", "[", "aHH", "]"}], ",", RowBox[{"in", "[", "\[Xi]H", "]"}]}], "]"}], "[", RowBox[{"(", RowBox[{"1", "-", "\[Epsilon]IRnow"}], ")"}], "]"}], "]"}]}], "]"}], "-", " ", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"wpc", " ", "11"}], ")"}], "/", "10"}], ")"}]}], ")"}]}]}], ",", " ", RowBox[{"{", RowBox[{"\[Epsilon]IRnow", ",", RowBox[{"10", "^", RowBox[{"-", "8"}]}], ",", RowBox[{"10", "^", RowBox[{"-", "14"}]}]}], "}"}], ",", RowBox[{"WorkingPrecision", "->", RowBox[{"wpc", "+", "10"}]}]}], "]"}]}], ")"}]}]}], ";"}], "\n", ",", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"g02", "=", RowBox[{"in", "@", "g02"}]}], ",", RowBox[{"\[Epsilon]IR", "=", RowBox[{"2", "\[Epsilon]IRhere"}]}], ",", RowBox[{"\[Epsilon]UV", "=", RowBox[{"2", "\[Epsilon]UVhere"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"solIRnow", "=", RowBox[{"Flatten", "@", RowBox[{ RowBox[{"solIR", "[", RowBox[{"b1", ",", RowBox[{"in", "@", "f02"}], ",", "g02", ",", RowBox[{"in", "@", "\[Lambda]0"}], ",", RowBox[{"in", "@", "\[Xi]0"}], ",", RowBox[{"in", "@", "\[Chi]0"}], ",", RowBox[{"in", "@", "\[Alpha]0"}], ",", RowBox[{"in", "@", "h0"}], ",", RowBox[{"in", "@", "B0"}], ",", RowBox[{"in", "@", "a1H"}], ",", RowBox[{"in", "@", "aTH"}], ",", RowBox[{"in", "@", "aHH"}], ",", RowBox[{"in", "@", "\[Xi]H"}]}], "]"}], "[", "\[Epsilon]IR", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"solUVnow", "=", RowBox[{"Flatten", "@", RowBox[{ RowBox[{"solUV", "[", RowBox[{ RowBox[{"in", "@", "f4"}], ",", RowBox[{"in", "@", "f5"}], ",", RowBox[{"in", "@", "f10"}], ",", RowBox[{"in", "@", "b5"}], ",", "bJ0", ",", RowBox[{"in", "@", "bJ4"}], ",", RowBox[{"in", "@", "bJ6"}], ",", RowBox[{"in", "@", "bJ9"}], ",", "vb", ",", "v0", ",", RowBox[{"in", "@", "v1"}], ",", RowBox[{"in", "@", "v4"}], ",", RowBox[{"in", "@", "v5"}], ",", "0", ",", "b1", ",", RowBox[{"in", "@", "\[Xi]H"}]}], "]"}], "[", "\[Epsilon]UV", "]"}]}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"bJ0", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"4", " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]}]]}], ",", "120"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"ae", ",", "aeUV", ",", "aeIR"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"aeUV", "[", "k", "]"}], "[", "\[Zeta]_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"afUV", "[", "k", "]"}], "[", RowBox[{ RowBox[{"in", "@", "f4"}], ",", RowBox[{"in", "@", "f5"}], ",", RowBox[{"in", "@", "f10"}], ",", RowBox[{"in", "@", "b5"}], ",", "bJ0", ",", RowBox[{"in", "@", "bJ4"}], ",", RowBox[{"in", "@", "bJ6"}], ",", RowBox[{"in", "@", "bJ9"}], ",", "0", ",", RowBox[{"in", "@", "v0"}], ",", RowBox[{"in", "@", "v1"}], ",", RowBox[{"in", "@", "v4"}], ",", RowBox[{"in", "@", "v5"}], ",", "0", ",", RowBox[{"in", "@", "b1"}], ",", RowBox[{"in", "@", "\[Xi]H"}]}], "]"}], "[", "\[Zeta]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "k_", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"aeUV", "[", "k", "]"}], "[", "\[Zeta]", "]"}], "]"}], "/;", " ", RowBox[{"0", "<=", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aeUVp", "[", "k", "]"}], "[", "\[Zeta]_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"dafUV", "[", "k", "]"}], "[", RowBox[{ RowBox[{"in", "@", "f4"}], ",", RowBox[{"in", "@", "f5"}], ",", RowBox[{"in", "@", "f10"}], ",", RowBox[{"in", "@", "b5"}], ",", "bJ0", ",", RowBox[{"in", "@", "bJ4"}], ",", RowBox[{"in", "@", "bJ6"}], ",", RowBox[{"in", "@", "bJ9"}], ",", "0", ",", RowBox[{"in", "@", "v0"}], ",", RowBox[{"in", "@", "v1"}], ",", RowBox[{"in", "@", "v4"}], ",", RowBox[{"in", "@", "v5"}], ",", "0", ",", RowBox[{"in", "@", "b1"}], ",", RowBox[{"in", "@", "\[Xi]H"}]}], "]"}], "[", "\[Zeta]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "k_", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"aeUVp", "[", "k", "]"}], "[", "\[Zeta]", "]"}], "]"}], "/;", " ", RowBox[{"0", "<=", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aeIR", "[", "k", "]"}], "[", "\[Zeta]_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"afIR", "[", "k", "]"}], "[", RowBox[{ RowBox[{"in", "@", "b1"}], ",", RowBox[{"in", "@", "f02"}], ",", RowBox[{"in", "@", "g02"}], ",", RowBox[{"in", "@", "\[Lambda]0"}], ",", RowBox[{"in", "@", "\[Xi]0"}], ",", RowBox[{"in", "@", "\[Chi]0"}], ",", RowBox[{"in", "@", "\[Alpha]0"}], ",", RowBox[{"in", "@", "h0"}], ",", RowBox[{"in", "@", "B0"}], ",", RowBox[{"in", "@", "a1H"}], ",", RowBox[{"in", "@", "aTH"}], ",", RowBox[{"in", "@", "aHH"}], ",", RowBox[{"in", "@", "\[Xi]H"}]}], "]"}], "[", "\[Zeta]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "k_", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"aeIR", "[", "k", "]"}], "[", "\[Zeta]", "]"}], "]"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "<=", "\[Zeta]", "<=", " ", "1"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"aeIRp", "[", "k", "]"}], "[", "\[Zeta]_", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"dafIR", "[", "k", "]"}], "[", RowBox[{ RowBox[{"in", "@", "b1"}], ",", RowBox[{"in", "@", "f02"}], ",", RowBox[{"in", "@", "g02"}], ",", RowBox[{"in", "@", "\[Lambda]0"}], ",", RowBox[{"in", "@", "\[Xi]0"}], ",", RowBox[{"in", "@", "\[Chi]0"}], ",", RowBox[{"in", "@", "\[Alpha]0"}], ",", RowBox[{"in", "@", "h0"}], ",", RowBox[{"in", "@", "B0"}], ",", RowBox[{"in", "@", "a1H"}], ",", RowBox[{"in", "@", "aTH"}], ",", RowBox[{"in", "@", "aHH"}], ",", RowBox[{"in", "@", "\[Xi]H"}]}], "]"}], "[", "\[Zeta]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "k_", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"aeIRp", "[", "k", "]"}], "[", "\[Zeta]", "]"}], "]"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}], "<=", "\[Zeta]", "<=", " ", "1"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "11"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "1", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af1", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "2", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af2", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "3", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af3", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "4", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af4", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "5", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af5", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "6", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af6", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "7", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af7", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "8", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af8", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "9", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af9", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "10", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af10", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "11", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af11", "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "1", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af1", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "2", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af2", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "3", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af3", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "4", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af4", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "5", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af5", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "6", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af6", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "7", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af7", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "8", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af8", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "9", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af9", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "10", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af10", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "11", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af11", "'"}], "[", "\[Zeta]", "]"}], "/.", "solUVnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solUVnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "1", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af1", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "2", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af2", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "3", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af3", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "4", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af4", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "5", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af5", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "6", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af6", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "7", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af7", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "8", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af8", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "9", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af9", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "10", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af10", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ae", "[", "11", "]"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"af11", "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "1", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af1", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "2", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af2", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "3", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af3", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "4", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af4", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "5", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af5", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "6", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af6", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "7", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af7", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "8", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af8", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "9", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af9", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "10", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af10", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ae", "[", "11", "]"}], "'"}], "[", "\[Zeta]_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"af11", "'"}], "[", "\[Zeta]", "]"}], "/.", "solIRnow"}], " ", ")"}], "/;", " ", RowBox[{ RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "1"}], "]"}], "]"}], "<", "\[Zeta]", "<=", " ", RowBox[{"solIRnow", "[", RowBox[{"[", RowBox[{"1", ",", "2", ",", "1", ",", "1", ",", "2"}], "]"}], "]"}]}]}]}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.85529155439559*^9, 3.855291672007841*^9}, { 3.8552917269260817`*^9, 3.85529178067223*^9}, 3.855291836484763*^9, { 3.8552920209756317`*^9, 3.855292025482078*^9}, 3.85529206147025*^9, { 3.855292279598236*^9, 3.8552923471150217`*^9}, {3.855292380596485*^9, 3.855292383520924*^9}, {3.8563273780211487`*^9, 3.8563273867375193`*^9}, { 3.85632746153759*^9, 3.856327470143683*^9}, {3.856327522851202*^9, 3.856327583047078*^9}, {3.856332943163617*^9, 3.8563329725555677`*^9}, { 3.856496810121223*^9, 3.856496899207759*^9}, {3.856497021466853*^9, 3.856497024925321*^9}, {3.85649837733156*^9, 3.8564983773863087`*^9}, { 3.856498422284729*^9, 3.856498428978455*^9}, 3.856499799496666*^9, { 3.856500015945962*^9, 3.856500015982849*^9}, {3.856943610167645*^9, 3.856943610213841*^9}, {3.8569437128069563`*^9, 3.8569437319266987`*^9}, { 3.856943872211803*^9, 3.856943875324156*^9}, {3.8594430372070637`*^9, 3.859443081653151*^9}, {3.8594445042482147`*^9, 3.859444507159658*^9}, { 3.859444593574449*^9, 3.8594446752968616`*^9}, {3.859446337201311*^9, 3.8594463382986317`*^9}, {3.861089803296142*^9, 3.861089804658023*^9}, { 3.861947718041347*^9, 3.861947718119792*^9}, {3.871699220901366*^9, 3.8716992489809303`*^9}, {3.871699455881167*^9, 3.871699487589176*^9}, { 3.871699679539559*^9, 3.871699681467308*^9}, 3.8860448170754757`*^9, { 3.886045327264084*^9, 3.886045348659637*^9}, {3.886047246471367*^9, 3.886047252930664*^9}, {3.886055777781876*^9, 3.8860558675359087`*^9}, { 3.886055905605356*^9, 3.886055948950975*^9}, {3.886056024327484*^9, 3.8860560276085997`*^9}, {3.886056182090012*^9, 3.886056188346497*^9}, 3.886056260436164*^9, {3.886056417955474*^9, 3.8860564187553673`*^9}, 3.88605656777824*^9}, CellLabel->"In[62]:=",ExpressionUUID->"d0cae9b5-76b3-4b67-99de-8ee675335149"] }, Closed]], Cell[CellGroupData[{ Cell["Example", "Subsubsection", CellChangeTimes->{{3.8564967251621428`*^9, 3.856496751439169*^9}, { 3.8619501394953337`*^9, 3.86195015408722*^9}, {3.871700159450548*^9, 3.871700160327385*^9}, {3.8860446507053833`*^9, 3.8860446536751413`*^9}, { 3.890385010262054*^9, 3.890385013851006*^9}},ExpressionUUID->"95bc3c61-3084-4515-8c7c-\ ef7fa25c879d"], Cell["\<\ The different functions of the metric and flux are sorted in the following \ way:\ \>", "Text", CellChangeTimes->{{3.8903850916217117`*^9, 3.8903851106092997`*^9}},ExpressionUUID->"d557a687-6dc0-447d-a7ff-\ f8755461aaef"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"computeBackground", "[", RowBox[{ RowBox[{"chooseMu", "[", RowBox[{"setOfMuDual", "[", RowBox[{"[", RowBox[{"-", "1"}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.886055960790386*^9, 3.8860560017348757`*^9}, 3.886056668118853*^9, 3.886068111913308*^9}, CellLabel->"In[63]:=",ExpressionUUID->"844a0976-2ce8-40e9-a2ae-3437e747533d"], Cell[CellGroupData[{ Cell[BoxData["\<\"IR computed\"\>"], "Print", CellChangeTimes->{{3.886056003271085*^9, 3.886056030734116*^9}, 3.886056293735854*^9, {3.886056374225563*^9, 3.8860563907516127`*^9}, 3.886056423249875*^9, 3.886056454852405*^9, 3.886056587020316*^9, 3.88605666982587*^9, 3.8860675123292427`*^9, 3.886067898490658*^9, 3.886068113399788*^9, 3.890385024181438*^9, 3.890385125029464*^9, 3.890466087672654*^9}, CellLabel-> "During evaluation of \ In[63]:=",ExpressionUUID->"c54f488b-9eea-4bd3-9df2-ddca949dc9a1"], Cell[BoxData["\<\"UV computed\"\>"], "Print", CellChangeTimes->{{3.886056003271085*^9, 3.886056030734116*^9}, 3.886056293735854*^9, {3.886056374225563*^9, 3.8860563907516127`*^9}, 3.886056423249875*^9, 3.886056454852405*^9, 3.886056587020316*^9, 3.88605666982587*^9, 3.8860675123292427`*^9, 3.886067898490658*^9, 3.886068113399788*^9, 3.890385024181438*^9, 3.890385125029464*^9, 3.8904660902496157`*^9}, CellLabel-> "During evaluation of \ In[63]:=",ExpressionUUID->"81cd85ab-8387-4248-82fd-2389c542d360"] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"auxFunctions", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"e\[ScriptCapitalF]2", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af1", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"e\[ScriptCapitalG]2", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af2", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"e\[CapitalLambda]", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af3", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"b", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af4", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"BJ", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af5", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"BX", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af6", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"AJ", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af7", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"\[CapitalEta]", "\[Rule]", RowBox[{"Function", "[", RowBox[{"\[Xi]", ",", RowBox[{"af8", "[", "\[Xi]", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"A1H", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"af9", "[", "#", "]"}], "&"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"A1", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"af10", "[", "#", "]"}], "&"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"A1T", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"af11", "[", "#", "]"}], "&"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"Bt", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"af12", "[", "#", "]"}], "&"}], ")"}]}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{3.886055916872266*^9}, CellLabel->"In[64]:=",ExpressionUUID->"3d578527-0e15-4131-9244-a01956993310"], Cell["\<\ For example, this is the plot of the warp factor of the solution selected:\ \>", "Text", CellChangeTimes->{{3.8903851261314583`*^9, 3.89038514215407*^9}},ExpressionUUID->"c8a6aa5e-de05-4a77-bb24-\ 5a8278882591"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"ae", "[", "4", "]"}], "[", "\[Zeta]", "]"}], ",", RowBox[{"{", RowBox[{"\[Zeta]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.890385038869293*^9, 3.890385082057644*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"d612d6f1-9ee7-4d42-8585-8c8a542ec4ef"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwd2Hc0V/8fB3BSUomMdpLSUEjLrmc0lBGKIiWhQqWtYZREyixERmaEZO/N x97jm71lc5VREn7v+/v88zmPc97nc+593de6HwH9O2evLWJiYlJhZmKivxWv DdTkDGoeYfr/Zxxte18fc1r/EOE7JxcWFigErFa1e7v+FRYb2s/TZp+69zzd 1w6h3y7N0X5S7/5khP8N/ky8naXdG598jy/YAUvsv/+hre7WbHJmhzOaoqYm abOx3Orvu+GC7Kinv2hfSZ2PzdZwxVoDV4q29D2FcYcpV/TrCY/QXi3kKqr1 4R0ExDBAe5FtgkpW3zusPL+qj/Z4Z+MtQYn3uH8ytYd2u+ycw9vX72HVI9FF u8xLIHK84T3Y5960006ZPFF6fpcbVNSiWmiHqpkMZjxxg9tr/0ba1mzxO9+s d8fm4b4a2rsV3tnH3XXH+3+9FbRrbe8MthS5Y90BvxLa5gwVxSX8HmDmZS+g LcgiHClq5oEdbKI5tMvllrNrVXjgmc5CGu1HLwZuWQt+QIisRSLtwrkQ0fra D9hcaRRO+46sjcuckCfcTlQH0V5nfnV8h7UnLjfW+tA2/sMX93SvF9zsPR1p c0v84w6288K3+2qvaKc9an5Q3uaFiFXvzf//vCY+HOJ3/IhQbx8j2on7Hn04 1fMRUNbWpa1799zve9Le2C3rcI529ChnKmPAG/xDh2RpawmPrR+DDzQuBu+l zXSz/NlaTx/cuWW6lfbZAXtZkxO+GFJfwkp7dscNPzdfX3QnM6bniUOunZjP mPCFZG9xH+2pbuYcziA/zG20ZdD+JNC5RWrGDy7Oe+Non9TLstZX+wRWDxZ/ 2l5tz44lzn9CwMsVZrTlNmmHtGv6I+ejmB7toYsSS9ii/LEs5Opp2ptHnhpE iQSASap4He37KwZ55LUDsDp2dH6OjvduLcb3VwEwnZ7voX3HWHw7U2sA9szm RdBm2H/+z31pIHZdNHSkve4Lr53QgUAMMypv0c7p+9V39m0gsL1ZiDa3YfSX z5JBmFTPdftHfN1ms7a0YRCMzYNMaKcHOS2rcgnCDZYF0Dbsumnypy8IOkxM fbN0PjK1bHDiDobZkHMSbfYtimUCR4KRu8nUlnai7i5hJY9g1B8d56O93Mqz tSMnGDp7Lfr/0s/Pj9Xp4UgwfujujqbN2to76ncsBMeMMyVpa2kHRo//DIF+ tf6BGWKqRWN50IbPqLU0+vmH2E6X7dq5Y59hst8sina8wZ0NSe6fsdzJkp82 h+lhW3OJUCS/mh+cJv48Pt4hrBcK38mlnrRlH4RIt9uHonRnphxtkycrxo82 h+Js3ozLFHHBy6aLrJZhuK6iwzFJfGmJU2Ly5zBsfmQQNkH86/XRVcaVYQjm iD1Me4tTWEEZ/xfwXeq7+ovYwvOR2Lu8L2h8c/D1ODHPBiEH+eEvkHPsZaMd 4dv6Y4InHLyyxq8p4obAYz7nr4XDkjvx2Rjx/q9crJvYInCW+6vkCHGJaIFe hVgE2rZr+Q8T68U+SbfSjkD/mcuLaDslddztioiAS+m+zEHigZyollCVSFgM 7VvcT/z82FVxLbNIXDD8rtRHvKaQ990y/0jICqu4/CA+VmZ+8tZ4JHa1mSzr pfP7v9Ox+9y+Imnj7eJO4kNacyt60r8i1z9ypIPuD80x1917v8J022522jMd azf9PhQFyVfesm3EGkM/7DIaoyCYuP1qE/GKBetLCpujMULtDaum68P4gq7w yWjI2GywqKL7T72wHpdpNEqWSilVEh8JbzBoySTnxbMayohTwz8kJovGIEHV I6yQrucr1uIR8jF4WV2uVEDXH++tZN/zMdi2z3Ewn7jOSi7V2ioGHlynuXKJ R8+NZChVxqDl6RHOdOKDyxoOH+mOQelNKctU4mdZuVli0zHYbrq4N5l4qZBn zurNseA+EOmTQCwwL8fouB0LkS0eMVHEml88yx6sjIONN6vOJ2Lfyy+VrwvE YaXoHUVf4m7u2xVah+Lgw8W7z5uuV0v5qsOX4yC/LazHg/jN2dHapVFxSGGb bnYkrl7aeO5vThw8OU5av6WfT2Ze/Uh9HO4um+azJw7e6fW95l8c0v6wSNsQ Z/6Tb/ZRjkeZafTME+LFcSI6znrx6BduVDUjVryxrvXFw3hU/Hrs84DOr5rR tmu+8Xh+MYTblPhnqFfX3pF41JXoWOoTb1cfG8h3SMDOTdO7ThNveK4gfSMw AU0lwlYniFdFBTgsT07AQ7VwhhzxX7ZzourdCTCtKhGUpq8/J/lBu2QitDl/ Ce+m4ylmPf/nRyJYhmTFl9L3r9us6jubiKZOJYdFdD9xJM2JKwlu5xsq5+Yp qA78OGYnm4Td18O2TBILBii+4XFLAvObqcEO4kpOXl7Ro8kYLAkaiCfOP3z7 Wo1mMibPVHJ8I065WZj08GYy/I0NtnwhDi56op3+IRn7LGYX+xI/ed726dRo Mt7b7q58SbyVChUy8E6BGGfpPmXitXxM5qwxKdhyNXHqODG7knZ5eEEKGiu+ Bh4m/h264s74eAruaLbHiBKX695NsFRIBYf4qlBO4seVUvCaTMXVwsaU8jnS f0QTf5SwpUF7q+ozBnGIk5jj7KY0uN3K2JZBXKO8s0n3RBpkRBJFIon3lPE+ 2P4hDbovQ9bZE3cUUaFxEul4HdnPd5jYbOdNlV6ldFws4lQ4QMz+um9itV46 Ig3/aggRS51sO/rUPh1Mh+Q3ryZ2Y5Q2oykd0Vsz9Yb/UVDI/cxR8SwD/mZf H70nbt8ikDjvnIHfhu9r7IgfvvDVEQvOwC6pCg5z4kC4fXEryyDx0BU2IJ7N fCF/cVMmjLoiR/cRR6fpmPVnZuLC4m3nS2ZJ/BK42pmZs+G++9qm9r+kXzrO avSuycaihZSmcuIgwx9lhcLZeBIgbJJOLLw6NdVBKxsXBUVZvIjlzfQ8Vsdk w9PoM7sqsbjvhVD3vTl46sA4mDBDQdu+vMtWOgcdxZfm/IktHsrxPT6RA4/U NjcH4lzlPe7aOjk45CUnpE+sPDdvvfl1Dow2rxthJ76qG3r5S3sOJOXkbbX+ UHiluPHjx8Ec8JQ/ZpEjDhV3rX87mQPRBh5FIeIRjmdKt5fnQrOYd+/MbxL/ bBWp/eK5aPTAmQ/EjlumeDOccqFQb+ZaME0hqftYeZVsHv7FhrtMTVL4fsr6 p5NCHkTiKn9/J57+lrVG+WweirXHNqcQS5hLXS2+kYfAmZAvT4lTePZO57zP g9oWD/+ZCdLvjm/YEjeQByPzzqKRXxSaIy6cuDuRh01WyydKiP+u8jARnc/D IXGxhlBi6TbOxAiefDR79xVf+UXvU0sUg4/ko4UhqVD5k0JG6PgDd/d8KOs9 0/Ibp9DKLvrxrH8+ruwb631E/O/+zaxVEfmIGBEQPEN8GH1sTtn5YBPcnzpH UchqaPGzHcqHFlfxfm3ibLaiIrOjDNxQCF7GPEYhz8Rvo/YIAythacw1TObx 4M2butMMqPmNdHUPkfw3kk43YCpA2FTmigRi2+sNF015CxB6dMd9TeJT+lze NrIFqHXVf+E+SKFK23bdN8cC3PZI0WAZINd76vZqFpFCxMoWXA/spVBRJHON TaIQ791X6BoRZ51cnrhSrhA1u2/OihL7Hw/TWKdZiK8NLDvTeyjoH+1yE7Ek 5+88lKjqJvNRQpNbq6IQHd1xwz86yX634zBn1O0iaC49w1HWSuZPt3zR2ydF WN+ZLPuC2M7v1HMjmyK0OLycOEi8hleD2vaxCLIiqn98W0i+Mt+s8mYUgVJV Vb/RTPpNi5eL/cZivD3AqO9tIPF1meQ0LCmGxBmj1Oe1FI4r/S2Sqy8GP7sZ y3ZiR1amF/wdxVBbqVRYUkOBz3LFePNkMSTzVRO4iI+YbK1W31KC4YjObT5V ZJ4fV3PF4xIYxMZ3uZWT94uZyFUbt5ei1Gqx1vpCChsr5CewtxSHjssuxBeQ eRfY9J+hVCnUX3/deob42umlPt9USqFq/K71BYNC8Uf97fJmpTis3reqM4+C i/R6aeOiUvTE3OC3zaawycLOINm4DNJyStT1FLIPqPGdbH1QBsUlXWrjyRTO CCbsYrYqw94DjwSeEj8v7xpVfF+GR4PUyjdJZB5uOvykPa0M+V0ubEEJFMIz JxyXsJdD7ZLFzpQYEr8FvaRz38ohyrRY8P4XUr8qOS9PpJTjbW6WynAYBQMf flWJvHLYuF7qMCB2lWjv3/C9HAtvYiXPhVIYvKOzvnuuHFbmdSm7Q8g87tS0 uKtSATaxAM8MfwrMeYryTiMVEOCVWWP8gezHqyI4nk9XYL3bQfNKDwqiusta 7jJVQuV6oMwB4ot/ix5o8FbCoeJ0xV83Cgn7T3zeKFuJxZPLhF6+I/tyMNgi HCqR92r9rXuOZB68OlhZuLsKvN4q96usST1yli16d6gKog8XOawi/vLxqoTO 0SosmLrWqb2gYPPNOYDSrEIUv+KvSityvnHg/jrrKkS8StfKNSfn9/itNWmo gqKAhK7VI9IfB1/GsMpXg7Pa87emEQV+1+GZ8LFqxKrsO35VieT/1efhcRPV MOfy2GGuSPbrAzza6X+qccFnRMr9NInHd+mU8kU1sL/O9itfgdw/31szak0N ZMqn/NYfJ+8DEbsmDqIGm9uUPPxkKSxhXBvJdqkBV91W1yUiFIZ/d7T/J1aL PJ4tBfIrSL+74ZKnKF4LPonf4FhO4UXDkdBsmVpwzh3/1shG6iPZ73b4yVpc vhVrYMJK93edfxaXapF5p3mHNTMF78nv6wXta+Gm35Fs/nsMp35WaNzvqMUa jw9Xg7rHEDKUXsrhXIfSuhXtgYljMPVU3WbiVofxI01yogljkDjeY17gVQfn ViGn1LgxlPotF7EIrkMGr2hTefQYfqppuwym1KFyXcmRvvAxHEmePsfoqYO6 TBpzr98Ymmz2tT2VqkfgkZ12y2zHwMEXRvX21kNMsrRmTHUMjsaJ1wMEvyPA g2O1eecopo9G9ho9b0Bt7bJvExqjeLifkbAmvxF3pWaG+XNH0PGN4VAj0AxG UL7iNo4RzJrU+wg9a4G484YgaeVh7JFbOn89vRWjP51zpO2HoBAkcCN2bTvc y7K82kMG8ZjvytauSx3QeZrBd4MxAOERzRUNKp2A9LONue394OEcZ2P87cR9 2/RLXG19WJztE73NtwtWxllT4X0/cPNgetMypW4YXLpw52lDLyJP6wdkTXeT PjmooFrWg6nhDav6PvQgZP03V82abiSeU2BxP96LwB4XXRlGF56fsvVP6OuF mPTGHq3yTgi0KTYG2/6AVVjYLeH0DkhLvHJfv78PQQ4HWa1y2nBpc9UMc10f qvNqj32faMFUqVP3Xet+vM9+bWjB0QyvxboPzwoOQPugvrj/+UbwtCcGLSL3 1aKuXvko/juWWFprSN0bxEHRazPrZurBFK4b3c09hP3qs82t1+pw3zvaiTtv CJLbPtziT6lB5h57Ni7TYciuCvHI5q0Gl+J94Zckzk2MZt6bPBVoFamue5ox gtZqOb6FTyWI+QTBXt1R8EcG5zmIFeJytDgX3/woPndeF79hnoeki384qpnG 0Ldab17OJA8crGnsNixjuI0za7m185Bz6TDbINsYjjY5tLwTz8PW5ccXEnjG MF72fY79Zy76DNVHlYXGoM/ufLvFIBemG26VWGiQ8zt2Km84moMXtoHWrRFj +GqG/qde6Vj5eKni1agxSF+PTK+8lw5vo9vcfSRPt+SaRC4ie128klQwRfK6 bKEwjXUuDX1cNYxF2WPwfiHz8vGVNCh9YmITqhuDs0G3cwpfKqmvK86PZknd 8O979MgyCcFfCs7/nSPXk6rsxn02CWLee/ifM1H4YSd26NWOJJy2/B1tv4T0 FXPBhz2VibA45lLjw0mhX/RonB1fIrqrsnjztlG4Iq6zmyUuHlEDfD4cyhQm joWUf02Igb2frV77GQrGQ10nJC1jYHh2dPs3dbL3Zp5fbn4iBpsyMmJULpA9 5tnhrJMR0XjrolPoqE+hqGF4a21XFIzEP/5c/pTsCRWvpfkORGDrK95TS0nf vi/xSuqbehDmJS1WNpC+b/Suc4lYRSCaRntqQyNJn2+TzulRCITrhfjLJ2PJ e0wlx7sG6QAs7D77wDaDzNnPZ2y0RXzRWuPyiaWO/B6z8+pABTek2P02qPuP vKfdq3d7vfU93GWuCAU3UpgUttljNesKpc+iCfLtFNx/vehfquqEtCcVJdZk 72gPPcHuXGmDDyKHXNRHKMhIL1/GZmiNe92+GgJk73H+c+qa5ZAldinf6sgh e5uM4aZz2qsfYjFzfYgr2Qsft3Wxb5MxRWeijIke2WNz9Hutv0oZIsMkeK8Y 2ctjLE1YRZQ14Mm/Yor+38nLjhu/Gx4c+R/GLQPl "]]}, Annotation[#, "Charting`Private`Tag$10192#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1}, {0., 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.890385049718711*^9, 3.890385082245185*^9}, 3.890385148448284*^9, 3.8904660918191442`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"c21659b0-2e04-47e5-8a3a-a8fb2257ced8"] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{867, 1126}, WindowMargins->{{159, Automatic}, {Automatic, 0}}, TaggingRules-><|"TryRealOnly" -> False|>, FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"be259bae-7c9d-4c7e-be3a-cf27608d7525" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 158, 3, 67, "Section",ExpressionUUID->"45ed454b-eb4f-475c-afe5-7eade935039b"], Cell[CellGroupData[{ Cell[763, 29, 321, 5, 45, "Subsubsection",ExpressionUUID->"30b2384c-1e74-4f43-8cb6-93e453ec74af"], Cell[1087, 36, 269, 5, 30, "Input",ExpressionUUID->"6d6af6e5-8be5-48f8-838e-1ef083c92578"], Cell[1359, 43, 299, 6, 30, "Input",ExpressionUUID->"f2763898-5d9d-4e07-abf3-b3168431e685"] }, Closed]], Cell[CellGroupData[{ Cell[1695, 54, 368, 6, 37, "Subsubsection",ExpressionUUID->"255b272d-bbf6-4a85-9579-5b9843859f17"], Cell[2066, 62, 244, 6, 35, "Text",ExpressionUUID->"9611930c-7a37-4258-ad59-371d6878c47c"], Cell[2313, 70, 689, 19, 64, "Input",ExpressionUUID->"b03c3684-d735-4352-9ced-3724cb9615b2"], Cell[3005, 91, 408, 10, 52, "Input",ExpressionUUID->"1e2dcd31-2b61-49ee-8d93-6d205181cda8"], Cell[3416, 103, 579, 17, 30, "Input",ExpressionUUID->"dd697054-2f75-445a-b0d1-9faeb5ddc976"], Cell[3998, 122, 542, 15, 30, "Input",ExpressionUUID->"9c5ba9e3-a30d-4899-88fd-642811ca030b"] }, Closed]], Cell[CellGroupData[{ Cell[4577, 142, 325, 5, 37, "Subsubsection",ExpressionUUID->"46b66ec8-98ec-4d60-b5b0-25ec06d35269"], Cell[4905, 149, 175, 3, 35, "Text",ExpressionUUID->"e92d065e-ccea-4a60-b628-18436c4403d6"], Cell[5083, 154, 1310, 33, 61, "Input",ExpressionUUID->"7f919322-303d-41ea-8634-9032705eeed4"], Cell[6396, 189, 164, 3, 35, "Text",ExpressionUUID->"8b71c23f-36c0-4383-b642-03cc555d2c40"], Cell[6563, 194, 466, 12, 53, "Input",ExpressionUUID->"3cdf647b-dde7-4eab-8d94-290d25bd3afe"], Cell[7032, 208, 175, 3, 35, "Text",ExpressionUUID->"df7dc6fd-eb5b-4349-ad9d-d225d873dd44"], Cell[7210, 213, 665, 18, 75, "Input",ExpressionUUID->"cf6f1eaf-46ab-468d-a4cc-b5b588093f2c"], Cell[7878, 233, 639, 17, 58, "Input",ExpressionUUID->"b4bdccf0-6be9-4cd0-89f5-cb0da9b786e0"], Cell[8520, 252, 174, 3, 35, "Text",ExpressionUUID->"99db1525-3256-4b02-aa27-49bb9d64a6d7"], Cell[8697, 257, 1007, 26, 55, "Input",ExpressionUUID->"4da3d101-01ce-4ee5-a02b-efa558878aba"], Cell[9707, 285, 587, 16, 53, "Input",ExpressionUUID->"e865960c-98af-48d0-b224-5dec4e96385f"], Cell[10297, 303, 240, 4, 35, "Text",ExpressionUUID->"8f55e76f-fecd-46fe-802f-4ea00c8ab631"], Cell[10540, 309, 640, 17, 53, "Input",ExpressionUUID->"99047fdd-fbb8-493c-b6a1-9d1e40eb216e"], Cell[11183, 328, 507, 12, 53, "Input",ExpressionUUID->"ef1f92f3-743c-48f9-9616-af17527eaaba"], Cell[11693, 342, 849, 23, 55, "Input",ExpressionUUID->"5ab11aef-a00f-4cdd-8017-764770cd5ff7"], Cell[12545, 367, 331, 10, 6, "Text",ExpressionUUID->"df270cdd-3767-40fd-a99d-8455dfe53171"], Cell[12879, 379, 187, 3, 35, "Text",ExpressionUUID->"18a9dc7c-1081-4ce6-85f3-e3af4019b361"], Cell[CellGroupData[{ Cell[13091, 386, 554, 15, 30, "Input",ExpressionUUID->"29037053-68e9-49c5-b04d-31371880e82f"], Cell[13648, 403, 322, 4, 34, "Output",ExpressionUUID->"bb2ba581-32d8-44ae-83d0-d7a066e86b85"] }, Open ]], Cell[CellGroupData[{ Cell[14007, 412, 265, 5, 30, "Input",ExpressionUUID->"b01f2002-a484-4d06-82d1-845257e70376"], Cell[14275, 419, 884, 24, 57, "Output",ExpressionUUID->"cdfd53a2-a1b2-4551-b519-58bf76c64f02"] }, Open ]], Cell[15174, 446, 284, 8, 35, "Text",ExpressionUUID->"2c6f1b39-b9ea-4f0f-9ae0-f22630f93493"], Cell[CellGroupData[{ Cell[15483, 458, 394, 8, 30, "Input",ExpressionUUID->"8b4a2b43-3d70-4d68-b0cd-f4c7d2898fee"], Cell[15880, 468, 312, 4, 34, "Output",ExpressionUUID->"fac75c3d-5a1c-476a-b99b-0268b86fde72"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[16253, 479, 164, 3, 67, "Section",ExpressionUUID->"4fc56bcb-6c2c-420c-83a5-fb8a84e16d2a"], Cell[CellGroupData[{ Cell[16442, 486, 262, 5, 45, "Subsubsection",ExpressionUUID->"f5aca597-6257-480a-8a0e-efa218df63c7"], Cell[16707, 493, 270, 6, 35, "Text",ExpressionUUID->"de94a382-cd3b-49cd-99e4-4689c1e91db3"], Cell[16980, 501, 3475, 92, 300, "Input",ExpressionUUID->"03af2b75-f9e0-4fdc-a81e-09a76d21fd39"], Cell[CellGroupData[{ Cell[20480, 597, 212, 3, 30, "Input",ExpressionUUID->"80f3a4c4-88fe-4b97-b016-6d7e35ea6dbe"], Cell[20695, 602, 226, 3, 34, "Output",ExpressionUUID->"9d0b4bf2-716f-431d-9fe9-1fdeedff2abb"] }, Open ]], Cell[CellGroupData[{ Cell[20958, 610, 211, 3, 30, "Input",ExpressionUUID->"d3b2854a-8215-4837-8cea-1578854b4a5c"], Cell[21172, 615, 224, 3, 34, "Output",ExpressionUUID->"f3ef2d57-0049-4d0f-a387-2bab486d3514"] }, Open ]], Cell[21411, 621, 482, 10, 58, "Text",ExpressionUUID->"780f48cf-ccaa-4584-b6a8-5580c88a1bb1"], Cell[CellGroupData[{ Cell[21918, 635, 392, 8, 52, "Input",ExpressionUUID->"c48dcb46-7c93-4511-a871-d1e29219afef"], Cell[22313, 645, 3449, 46, 224, "Output",ExpressionUUID->"8105359c-ac2d-4b28-8904-3a1b0a9a6280"], Cell[25765, 693, 1382, 39, 89, "Output",ExpressionUUID->"c3e143b3-6c39-4eac-a365-c5319a5f092b"] }, Open ]], Cell[27162, 735, 304, 7, 35, "Text",ExpressionUUID->"d67107a0-8a0c-4938-8d3e-fa2132bc7658"], Cell[CellGroupData[{ Cell[27491, 746, 191, 4, 30, "Input",ExpressionUUID->"b260c461-df18-4e1e-a778-30e0c5fcfda9"], Cell[27685, 752, 3381, 98, 542, "Output",ExpressionUUID->"5572f8b4-bcd0-40fe-8d57-6f5a14b97e3f"] }, Open ]], Cell[31081, 853, 819, 21, 46, "Text",ExpressionUUID->"5d4502e2-33ab-48b7-9a21-1d2945d351d1"], Cell[CellGroupData[{ Cell[31925, 878, 566, 14, 50, "Input",ExpressionUUID->"fe20223a-f001-4c34-964f-1302277771ad"], Cell[32494, 894, 321, 4, 34, "Output",ExpressionUUID->"3d9a402f-d8ff-4c1d-ad80-6a30a32dae84"] }, Open ]], Cell[32830, 901, 329, 10, 8, "Text",ExpressionUUID->"f6716e06-093f-4e85-82aa-b0c9c918f382"], Cell[33162, 913, 442, 11, 58, "Text",ExpressionUUID->"4948e867-b0bb-4c0b-9647-f45a6a3f0061"], Cell[CellGroupData[{ Cell[33629, 928, 481, 13, 48, "Input",ExpressionUUID->"e90b4355-1e6f-4677-824d-e0585d45eb46"], Cell[34113, 943, 23447, 447, 236, "Output",ExpressionUUID->"ed3f60ca-d5bb-4f1a-aabc-f262ec93097e"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[57609, 1396, 299, 4, 37, "Subsubsection",ExpressionUUID->"9eb7562b-0d1c-4e74-badc-53da52338504"], Cell[57911, 1402, 449, 11, 58, "Text",ExpressionUUID->"aece92cb-3f61-405b-8a40-275b0c2aaf47"], Cell[58363, 1415, 356, 8, 58, "Text",ExpressionUUID->"34659f45-f7a2-4014-89cf-09046dc64108"], Cell[58722, 1425, 213, 5, 35, "Text",ExpressionUUID->"3532f3d3-83c7-4560-941a-0692479b8152"], Cell[CellGroupData[{ Cell[58960, 1434, 661, 15, 30, "Input",ExpressionUUID->"ad431a41-5da6-44d0-9422-29463cf3a088"], Cell[59624, 1451, 8061, 155, 246, "Output",ExpressionUUID->"929669a6-7c30-441e-bacd-4bbb16d68a42"] }, Open ]], Cell[67700, 1609, 403, 9, 81, "Text",ExpressionUUID->"96d1c1ad-6fd5-469f-b219-3c5f27265162"], Cell[CellGroupData[{ Cell[68128, 1622, 478, 12, 30, "Input",ExpressionUUID->"1bbd7a41-8f82-47e3-9db3-676a3bb17c41"], Cell[68609, 1636, 6602, 124, 232, "Output",ExpressionUUID->"900faf81-ff6d-40d8-8d0a-3d8f5ab8efd1"] }, Open ]], Cell[CellGroupData[{ Cell[75248, 1765, 2111, 58, 178, "Input",ExpressionUUID->"43bc1929-2ce6-4660-be16-e709acfc1c8a"], Cell[77362, 1825, 4669, 94, 232, "Output",ExpressionUUID->"d4f42320-ba54-45e2-9631-bf2736d06209"], Cell[82034, 1921, 34745, 732, 94, "Output",ExpressionUUID->"e1f1d3ea-f6b4-40b4-9f0a-e572caccffa3"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[116828, 2659, 352, 5, 37, "Subsubsection",ExpressionUUID->"845460b4-be2d-431d-828b-54560061416d"], Cell[117183, 2666, 400, 7, 58, "Text",ExpressionUUID->"896363a1-8aa6-41c4-b8f8-db593b2426b9"], Cell[CellGroupData[{ Cell[117608, 2677, 664, 16, 52, "Input",ExpressionUUID->"d406af48-14f1-487d-9b33-a65898c0a0c8"], Cell[118275, 2695, 295, 4, 34, "Output",ExpressionUUID->"2e07a8dd-0469-49ca-8b16-b3f969656711"], Cell[118573, 2701, 293, 4, 34, "Output",ExpressionUUID->"f3c826fc-581f-4d6f-9086-59f7f3ad204c"] }, Open ]], Cell[CellGroupData[{ Cell[118903, 2710, 1105, 30, 73, "Input",ExpressionUUID->"534576b8-c84c-47df-9e95-ce0f67c1dac1"], Cell[120011, 2742, 6286, 120, 259, "Output",ExpressionUUID->"e9049c44-a01a-40af-a620-5c8281be5b4d"] }, Open ]], Cell[CellGroupData[{ Cell[126334, 2867, 978, 27, 52, "Input",ExpressionUUID->"eebc4504-229c-41fe-91f7-140db6da4322"], Cell[127315, 2896, 3830, 80, 224, "Output",ExpressionUUID->"03823969-dd77-483d-98a5-5e7a0490fde7"] }, Open ]], Cell[131160, 2979, 244, 4, 35, "Text",ExpressionUUID->"310a9675-6420-4a58-ab67-d7932f6b971e"], Cell[CellGroupData[{ Cell[131429, 2987, 342, 8, 48, "Input",ExpressionUUID->"58308856-f3c0-4e23-b0ad-9c2302cb5bd5"], Cell[131774, 2997, 224, 3, 34, "Output",ExpressionUUID->"e70bbd73-9d8d-40c9-b2e9-21c65cfafca3"] }, Open ]], Cell[CellGroupData[{ Cell[132035, 3005, 1116, 30, 90, "Input",ExpressionUUID->"80ceb6cd-c0a7-4949-a336-1f4f147c4408"], Cell[133154, 3037, 4216, 86, 217, "Output",ExpressionUUID->"1a45c9f9-eed1-412d-aebc-b3c496c8de1b"] }, Open ]], Cell[137385, 3126, 219, 5, 35, "Text",ExpressionUUID->"288d7edb-d44a-4091-8938-476f495360e2"], Cell[137607, 3133, 6501, 139, 598, "Input",ExpressionUUID->"95de6263-b994-4a2c-9827-0c64e753cbd8"], Cell[144111, 3274, 262, 6, 35, "Text",ExpressionUUID->"eed6b003-f848-43a3-9c53-bbdac28225e4"], Cell[144376, 3282, 3300, 78, 220, "Input",ExpressionUUID->"acba76b4-98b0-4771-b057-6238452711d7"], Cell[147679, 3362, 238, 6, 35, "Text",ExpressionUUID->"4188be0a-d4bd-4a15-8690-fc3507dea949"], Cell[CellGroupData[{ Cell[147942, 3372, 490, 12, 30, "Input",ExpressionUUID->"3f5e82e2-220c-4262-9b22-1e280c1d50ed"], Cell[148435, 3386, 3512, 74, 242, "Output",ExpressionUUID->"cc36b11c-59e2-4905-b682-7952e177d4cd"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[152008, 3467, 234, 4, 67, "Section",ExpressionUUID->"e4d4d090-427c-43fe-b61e-ef187902147d"], Cell[152245, 3473, 270, 5, 30, "Input",ExpressionUUID->"8879b42d-f97b-4084-a350-9c5404213ecf"], Cell[152518, 3480, 189, 4, 30, "Input",ExpressionUUID->"f57a362f-e79f-4852-a3bf-950fd11e0ce1"], Cell[CellGroupData[{ Cell[152732, 3488, 355, 6, 45, "Subsubsection",ExpressionUUID->"155722e7-ad47-420b-b73c-e50636e556f7"], Cell[153090, 3496, 16878, 346, 724, "Input",ExpressionUUID->"1c4b0750-cb6b-4b54-bf00-78c3b463d415"], Cell[169971, 3844, 17186, 355, 661, "Input",ExpressionUUID->"6b9b2a76-7b02-4133-bba5-6f12c3843813"], Cell[187160, 4201, 509, 15, 30, "Input",ExpressionUUID->"ec1b3887-212b-49c4-9d67-ceccabdfe371"], Cell[187672, 4218, 1562, 43, 73, "Input",ExpressionUUID->"6cee7a3d-a3da-4983-9d07-e9fe949ca075"], Cell[189237, 4263, 1375, 37, 94, "Input",ExpressionUUID->"2dcb145a-7a11-4ed8-a938-1f9af93101ce"] }, Closed]], Cell[CellGroupData[{ Cell[190649, 4305, 324, 5, 37, "Subsubsection",ExpressionUUID->"43debd2b-52e2-43db-91d8-6b8bf4859064"], Cell[190976, 4312, 1427, 27, 52, "Input",ExpressionUUID->"e5edf840-57f5-409b-bd3e-b4c556f76bad"], Cell[192406, 4341, 50600, 1202, 2616, "Input",ExpressionUUID->"d0cae9b5-76b3-4b67-99de-8ee675335149"] }, Closed]], Cell[CellGroupData[{ Cell[243043, 5548, 358, 6, 37, "Subsubsection",ExpressionUUID->"95bc3c61-3084-4515-8c7c-ef7fa25c879d"], Cell[243404, 5556, 235, 6, 35, "Text",ExpressionUUID->"d557a687-6dc0-447d-a7ff-f8755461aaef"], Cell[CellGroupData[{ Cell[243664, 5566, 441, 10, 30, "Input",ExpressionUUID->"844a0976-2ce8-40e9-a2ae-3437e747533d"], Cell[CellGroupData[{ Cell[244130, 5580, 527, 9, 24, "Print",ExpressionUUID->"c54f488b-9eea-4bd3-9df2-ddca949dc9a1"], Cell[244660, 5591, 529, 9, 24, "Print",ExpressionUUID->"81cd85ab-8387-4248-82fd-2389c542d360"] }, Open ]] }, Open ]], Cell[245216, 5604, 2408, 66, 304, "Input",ExpressionUUID->"3d578527-0e15-4131-9244-a01956993310"], Cell[247627, 5672, 225, 5, 35, "Text",ExpressionUUID->"c8a6aa5e-de05-4a77-bb24-5a8278882591"], Cell[CellGroupData[{ Cell[247877, 5681, 356, 8, 30, "Input",ExpressionUUID->"d612d6f1-9ee7-4d42-8585-8c8a542ec4ef"], Cell[248236, 5691, 8305, 155, 239, "Output",ExpressionUUID->"c21659b0-2e04-47e5-8a3a-a8fb2257ced8"] }, Open ]] }, Closed]] }, Open ]] } ] *)