(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 453791, 8867] NotebookOptionsPosition[ 448043, 8772] NotebookOutlinePosition[ 448463, 8789] CellTagsIndexPosition[ 448420, 8786] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"getData", "[", "dir_", "]"}], ":=", RowBox[{"Dataset", "[", RowBox[{ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data", "=", RowBox[{"Import", "[", "#", "]"}]}], ",", RowBox[{"metadata", "=", RowBox[{"ToExpression", "/@", RowBox[{"Rest", "[", RowBox[{"StringSplit", "[", RowBox[{ RowBox[{"FileBaseName", "[", "#", "]"}], ",", "\"\<_\>\""}], "]"}], "]"}]}]}]}], "}"}], ",", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"metadata", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"\"\<\[Beta]0\>\"", "\[Rule]", RowBox[{"metadata", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"\"\<\[Beta]1\>\"", "\[Rule]", RowBox[{"metadata", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"metadata", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"\"\<\[Beta]s\>\"", "\[Rule]", RowBox[{"data", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"data", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"data", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"data", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{ SuperscriptBox[ RowBox[{"data", "[", RowBox[{"[", "1", "]"}], "]"}], "2"], RowBox[{"data", "[", RowBox[{"[", "5", "]"}], "]"}]}]}], ",", RowBox[{"\"\<\[Rho]s\>\"", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "/", RowBox[{"Total", "[", "#", "]"}]}], "&"}], ")"}], "/@", RowBox[{"data", "[", RowBox[{"[", RowBox[{"6", ";;"}], "]"}], "]"}]}]}]}], "|>"}]}], "]"}], "&"}], "/@", RowBox[{"FileNames", "[", RowBox[{"FileNameJoin", "[", RowBox[{"{", RowBox[{"dir", ",", "\"\\""}], "}"}], "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.778948155736003*^9, 3.778948220094614*^9}, { 3.778948251774682*^9, 3.778948445776267*^9}, 3.7849915996103563`*^9, { 3.784991674882406*^9, 3.784991676833317*^9}, {3.785001256798332*^9, 3.785001295499127*^9}, {3.7850013404547863`*^9, 3.785001375744542*^9}, { 3.78500144259391*^9, 3.7850014923774643`*^9}, {3.7850917037659607`*^9, 3.785091718086301*^9}, {3.785804403591153*^9, 3.7858046033535*^9}, { 3.7858046959527397`*^9, 3.7858046963435593`*^9}, {3.785804895089408*^9, 3.785804919668272*^9}, {3.785870396919524*^9, 3.785870421125996*^9}, { 3.789742875252179*^9, 3.7897428826827908`*^9}, {3.789745855694088*^9, 3.7897458585723753`*^9}, 3.789745905309957*^9, {3.789816778074827*^9, 3.789816780007482*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"c", "[", RowBox[{"\[Beta]i_", ",", "\[Beta]j_"}], "]"}], "[", "A_", "]"}], ":=", RowBox[{"2", FractionBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Beta]i", "2"], "+", SuperscriptBox["\[Beta]j", "2"]}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Beta]i", "-", "\[Beta]j"}], ")"}], "2"]], SuperscriptBox[ RowBox[{"InverseErfc", "[", "A", "]"}], "2"]}]}]], "Input", CellChangeTimes->{{3.7789451133983593`*^9, 3.778945185413146*^9}, { 3.778945446992125*^9, 3.778945447478743*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"], Cell[BoxData[ RowBox[{ RowBox[{"Ts", "[", "dat_", "]"}], ":=", RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}]}]], "Input", CellChangeTimes->{{3.778948523412203*^9, 3.778948610089134*^9}, { 3.7789486512266293`*^9, 3.778948654153482*^9}, {3.785091924316422*^9, 3.785091992968083*^9}, {3.785804631517852*^9, 3.785804644235256*^9}}, CellLabel->"In[3]:=",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"], Cell[BoxData[ RowBox[{ RowBox[{"Cstmp", "[", "dat_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"ts", "=", RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"#", "+", RowBox[{"ts", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"ts", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "&"}], "/@", "ts"}], ",", RowBox[{"dat", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7789537137281647`*^9, 3.7789537203664207`*^9}, { 3.785804654584515*^9, 3.785804658431868*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"], Cell[BoxData[ RowBox[{ RowBox[{"Cs", "[", "dat_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"ts", "=", RowBox[{"Ts", "[", "dat", "]"}]}], "}"}], ",", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", RowBox[{"{", RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{ RowBox[{"c", "[", RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", "#2", "]"}]}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"#1", "+", RowBox[{"{", RowBox[{"0", ",", "#2"}], "}"}]}], "&"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Most", "[", "ts", "]"}], ",", RowBox[{"Differences", "[", "ts", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"dat", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7789479000625353`*^9, 3.7789480157738333`*^9}, { 3.778948503834503*^9, 3.778948518745183*^9}, {3.778948666921554*^9, 3.778948688346896*^9}, {3.7789536224795513`*^9, 3.778953623110043*^9}, { 3.778953673879937*^9, 3.778953685238799*^9}, {3.778953742582839*^9, 3.778953745606895*^9}, {3.7850922784387903`*^9, 3.785092334045607*^9}, { 3.785804672596216*^9, 3.785804675153932*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"], Cell[BoxData[ RowBox[{ RowBox[{"logZ0", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"n", "/", "4"}], "+", "1"}], ")"}], RowBox[{"Log", "[", "2", "]"}]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["k", "2"], RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", RowBox[{"Log", "[", RowBox[{"Gamma", "[", RowBox[{"k", "/", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "2", ",", "n"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.784991222937964*^9, 3.784991266472834*^9}, { 3.784991403570047*^9, 3.784991404177*^9}, {3.7849915386807756`*^9, 3.784991539440803*^9}, {3.7860403579487467`*^9, 3.7860404711525*^9}, { 3.7860406298600283`*^9, 3.7860406306484127`*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"logZ", "[", "n_", "]"}], "[", "\[Beta]_", "]"}], ":=", RowBox[{ RowBox[{"logN", "[", "n", "]"}], "+", RowBox[{"n", RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "4"}], RowBox[{"Log", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "\[ExponentialE]"}], RowBox[{"n", " ", "\[Beta]"}]], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7860366301695232`*^9, 3.78603671133499*^9}, { 3.7860405792534246`*^9, 3.786040612454341*^9}, {3.786040708688937*^9, 3.7860407113402042`*^9}, {3.789830910073181*^9, 3.789830910887369*^9}, { 3.789831116169219*^9, 3.789831161489019*^9}, {3.802427601491159*^9, 3.8024276275718613`*^9}, {3.80255411623153*^9, 3.802554136732387*^9}, { 3.802554309395567*^9, 3.802554327528305*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]Ss", "[", "dat_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ts", "=", RowBox[{"Ts", "[", "dat", "]"}]}], ",", RowBox[{"cs", "=", RowBox[{"Cs", "[", "dat", "]"}]}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "#1", "]"}], ",", FractionBox[ RowBox[{"#2", RowBox[{"(", RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], RowBox[{"Mean", "[", "#1", "]"}]]}], "}"}], "&"}], "@@@", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Rest", "@", RowBox[{"Rest", "[", RowBox[{"FoldList", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "#2"}], "}"}], "&"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "ts"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"Cs", "[", "dat", "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.779561994673626*^9, 3.7795620342479887`*^9}, { 3.779700498628436*^9, 3.779700513292344*^9}, {3.7797005747090063`*^9, 3.779700575188902*^9}, {3.779700627710291*^9, 3.7797006535654173`*^9}, { 3.779700716133662*^9, 3.7797008200306168`*^9}, {3.779700857824486*^9, 3.7797008584386597`*^9}, {3.7797008994884863`*^9, 3.779700901055118*^9}, { 3.779700939144706*^9, 3.779700939215414*^9}, {3.784991004834445*^9, 3.7849910388807697`*^9}, {3.78499127505939*^9, 3.78499130611341*^9}, { 3.784991358538706*^9, 3.784991380665337*^9}, {3.78499900310424*^9, 3.7849990048956738`*^9}, {3.7860344496890173`*^9, 3.786034449949182*^9}, { 3.786034500347063*^9, 3.786034500511032*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"Interpolation", "[", RowBox[{ RowBox[{"Normal", "@", RowBox[{"Prepend", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Normal", "[", RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Normal", "[", RowBox[{"dat", "[", "\"\\"", "]"}], "]"}], "/", RowBox[{"Normal", "[", RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}], "]"}]}], "/", SuperscriptBox[ RowBox[{"dat", "[", "\"\\"", "]"}], "2"]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", RowBox[{"Method", "->", "\"\\""}]}], "]"}], "[", "x", "]"}]}]], "Input", CellChangeTimes->{{3.78981937873456*^9, 3.789819402196154*^9}, 3.789819474816937*^9, {3.790681092801322*^9, 3.790681117801856*^9}, { 3.790681180513014*^9, 3.7906811931278267`*^9}, {3.790681242639571*^9, 3.790681258207963*^9}, {3.7906812901132507`*^9, 3.790681290231492*^9}, { 3.790681402002227*^9, 3.790681423050158*^9}, {3.790685542851465*^9, 3.790685542953432*^9}, {3.790685591570828*^9, 3.790685622587248*^9}, { 3.7906857070679502`*^9, 3.7906857098174353`*^9}, {3.790686466475259*^9, 3.7906865000258904`*^9}, {3.790686531395797*^9, 3.790686531553914*^9}, { 3.790881720932847*^9, 3.7908817264181337`*^9}, {3.7923749537341022`*^9, 3.792375130677185*^9}, {3.7924029511957493`*^9, 3.792402985526917*^9}, { 3.7924030254849777`*^9, 3.792403084016642*^9}, {3.792403114379051*^9, 3.7924031279076014`*^9}, 3.792403261936502*^9, {3.792404599160046*^9, 3.792404604084053*^9}, {3.8020866648177557`*^9, 3.802086709879932*^9}, { 3.802166142883629*^9, 3.802166150569436*^9}, {3.802166213474002*^9, 3.8021662967565603`*^9}, {3.802419515484016*^9, 3.802419528552248*^9}, { 3.802419566209362*^9, 3.8024195904623747`*^9}, {3.802419634366872*^9, 3.802419638891492*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"], Cell[BoxData[ RowBox[{ RowBox[{"oldSs", "[", "dat_", "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"ss", "=", RowBox[{"\[CapitalDelta]Ss", "[", "dat", "]"}]}], "}"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"ss", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"Accumulate", "[", RowBox[{"ss", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.779700960584425*^9, 3.7797010023114433`*^9}, { 3.7849910515540743`*^9, 3.784991075832299*^9}, {3.784991369146078*^9, 3.7849913764007483`*^9}, {3.784991547938244*^9, 3.784991556568716*^9}, { 3.7849917900181932`*^9, 3.784991803720964*^9}, {3.784991863633103*^9, 3.784991884800845*^9}, {3.784992068826951*^9, 3.7849920762732773`*^9}, { 3.784992122226707*^9, 3.7849921237610617`*^9}, {3.7849921543708973`*^9, 3.784992167089695*^9}, {3.784992239922765*^9, 3.784992242761147*^9}, { 3.7849989835196743`*^9, 3.784998984447055*^9}, {3.785000974761281*^9, 3.785000975480179*^9}, {3.789830929032741*^9, 3.789830929207098*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Sf", "[", "dat_", "]"}], "[", "x_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "y", "}"}], ",", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"c", "=", RowBox[{ RowBox[{"Cf", "[", "dat", "]"}], "[", "y", "]"}]}], "}"}], ",", RowBox[{ RowBox[{"Interpolation", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"NIntegrate", "[", RowBox[{"c", ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "#"}], "}"}]}], "]"}]}], "}"}], "&"}], "/@", RowBox[{"Normal", "[", RowBox[{"dat", "[", "\"\<\[Beta]s\>\"", "]"}], "]"}]}], "]"}], "[", "x", "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.789817903707137*^9, 3.789817918665738*^9}, { 3.7898179830831623`*^9, 3.789818070963172*^9}, 3.789818128172594*^9, { 3.789818328048049*^9, 3.789818328991467*^9}, {3.78981865828652*^9, 3.789818665814815*^9}, {3.789819419187801*^9, 3.7898194204672337`*^9}, { 3.789831192249136*^9, 3.789831192735342*^9}, {3.79088174691607*^9, 3.790881879203828*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"], Cell[BoxData[ RowBox[{ RowBox[{"ff", "[", RowBox[{"dat_", ",", "\[CapitalDelta]x_", ",", "\[Delta]x_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "x", "}"}], ",", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "=", RowBox[{"dat", "[", "\"\\"", "]"}]}], ",", "\[Beta]", ",", RowBox[{"xmax", "=", RowBox[{"dat", "[", "\"\<\[Beta]1\>\"", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sf", "[", "dat", "]"}], "[", "x", "]"}], "/.", RowBox[{"{", RowBox[{"x", "\[Rule]", "xmax"}], "}"}]}], ")"}], "==", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"logZ0", "[", "n", "]"}], "-", RowBox[{ RowBox[{"logZ", "[", "n", "]"}], "[", "xmax", "]"}]}], ")"}], "/", SuperscriptBox["n", "2"]}]}], ",", RowBox[{"logN", "[", "n", "]"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7898311955449543`*^9, 3.7898312093030577`*^9}, { 3.789831243231729*^9, 3.789831244079329*^9}, {3.789831294191235*^9, 3.789831426152293*^9}, {3.789831478986567*^9, 3.789831485824489*^9}, { 3.7898315199939957`*^9, 3.789831522392721*^9}, {3.789831606978533*^9, 3.7898316137600183`*^9}, {3.789831690098496*^9, 3.789831713568328*^9}, { 3.790686819364822*^9, 3.790686924891573*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"], Cell[BoxData[ RowBox[{ RowBox[{"ns", "=", RowBox[{ RowBox[{ RowBox[{"Import", "[", RowBox[{ "\"\\"", ",", "\"\\""}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "/", "2"}]}], ";"}]], "Input", CellChangeTimes->{{3.78982026538109*^9, 3.789820353900846*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"], Cell[BoxData[ RowBox[{ RowBox[{"d", "=", RowBox[{"getData", "[", "\"\<~/doc/research/hadamard/data\>\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.778948447393362*^9, 3.778948476191824*^9}, { 3.7795618755287123`*^9, 3.779561880399358*^9}, {3.785804692431429*^9, 3.785804692864304*^9}, {3.7858129014364243`*^9, 3.7858129030771227`*^9}, { 3.789743002867009*^9, 3.789743004777854*^9}, {3.792404552519981*^9, 3.7924045542821417`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "[", RowBox[{"All", ",", RowBox[{ RowBox[{"{", RowBox[{"#n", ",", "#N", ",", "#\[Beta]1"}], "}"}], "&"}]}], "]"}]], "Input", CellChangeTimes->{{3.790500857951195*^9, 3.790500873614827*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"], Cell[BoxData[ TagBox[ TagBox[ DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = Association[ "InitialData" -> {{12, 64, 25.}, {12, 128, 50.}, {12, 128, 50.}, { 16, 64, 25.}, {16, 128, 50.}, {16, 64, 50.}, {20, 64, 25.}, { 20, 128, 50.}, {20, 256, 50.}, {20, 256, 50.}, {20, 256, 50.}, { 20, 256, 50.}, {24, 128, 50.}, {8, 64, 25.}, {8, 128, 50.}}, "InitialShape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`RowShape[{ TypeSystem`PackageScope`AtomShape[34], TypeSystem`PackageScope`AtomShape[34], TypeSystem`PackageScope`AtomShape[60]}], DirectedInfinity[1], 3, {All}]], 15, DirectedInfinity[1], {}], "InitialType" -> TypeSystem`Vector[ TypeSystem`Tuple[{ TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Real]}], 15], "Meta" -> Association["ID" -> 163174602661232], "RowTarget" -> 20, "ColumnTarget" -> 20, "Shape" -> TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`RowShape[{ TypeSystem`PackageScope`AtomShape[34], TypeSystem`PackageScope`AtomShape[34], TypeSystem`PackageScope`AtomShape[60]}], DirectedInfinity[1], 3, {All}]], 15, DirectedInfinity[1], {}], "Type" -> TypeSystem`Vector[ TypeSystem`Tuple[{ TypeSystem`Atom[Integer], TypeSystem`Atom[Integer], TypeSystem`Atom[Real]}], 15], "Path" -> {}, "BaseIndices" -> {}, "DisplayedRowCount" -> 15, "DisplayedColumnCount" -> 3, "DataRowCount" -> 15, "DataColumnCount" -> 3, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, "UpdateType" -> 1], TypeSystem`NestedGrid`PackagePrivate`$outputID$$, TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Pane[ Annotation[ RawBoxes["12"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["64"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["25.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["12"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["128"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["12"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["128"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["16"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["64"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["25.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["16"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["128"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["16"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["64"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["20"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["64"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["25.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["20"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["128"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["20"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["256"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["20"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["256"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["20"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["256"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["20"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["256"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["24"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["128"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["8"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["64"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["25.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}, { Item[ Pane[ Annotation[ RawBoxes["8"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 1}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["128"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 2}, "Item", False], "Mouse"], ImageSize -> {{34, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}], Item[ Pane[ Annotation[ RawBoxes["50.0"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 3}, "Item", False], "Mouse"], ImageSize -> {{60, Full}, Automatic}, ImageMargins -> {{5, 3}, {4, 5}}], ItemSize -> {Full, Automatic}]}}, BaseStyle -> { ContextMenu -> Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \ {TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = TypeSystem`NestedGrid`PackagePrivate`$lastPathType, TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = TypeSystem`NestedGrid`PackagePrivate`$\ lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`allHidden$ = TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$[ "SortPaths"], TypeSystem`NestedGrid`PackagePrivate`$state$$[ "SortDirections"]], TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[ FailureQ[ TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[ TypeSystem`NestedGrid`PackagePrivate`$state$$]]], TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[ FreeQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, Join[{ If[ Or[ Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], Nothing, MenuItem[ StringJoin["Show ", Which[ TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "Item", "", TypeSystem`NestedGrid`PackagePrivate`allHidden$, ToString[ ReplaceAll[ Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], Key[ Pattern[TypeSystem`NestedGrid`PackagePrivate`x, Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "RowHeader", "Row", TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "ColumnHeader", "Column", True, ""]], KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "remove"]], MenuEvaluator -> Automatic]], If[ Or[ Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[ TypeSystem`NestedGrid`PackagePrivate`$lastPath, TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`allHidden$, TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], Nothing, MenuItem[ StringJoin["Hide ", Which[ TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "Item", "", TypeSystem`NestedGrid`PackagePrivate`allHidden$, ToString[ ReplaceAll[ Last[TypeSystem`NestedGrid`PackagePrivate`lastPath$], Key[ Pattern[TypeSystem`NestedGrid`PackagePrivate`x, Blank[]]] :> TypeSystem`NestedGrid`PackagePrivate`x]], TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "RowHeader", "Row", TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == "ColumnHeader", "Column", True, ""]], KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], MenuEvaluator -> Automatic]], Delimiter}, If[ And[TypeSystem`NestedGrid`PackagePrivate`haveData$, MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, Alternatives["ColumnHeader", "KeyDummy"]], TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], { If[ TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= "Ascending", MenuItem["Sort", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateSort[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "Ascending"]], MenuEvaluator -> Automatic], Nothing], If[ TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= "Descending", MenuItem["Reverse Sort", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateSort[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, "Descending"]], MenuEvaluator -> Automatic], Nothing], If[ TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= None, MenuItem["Unsort", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`updateSort[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], { MenuItem["Copy Position to Clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy Data to Clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste Position in New Cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste Data in New Cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}]]]]], FontFamily -> "Verdana", FontSize -> 12}, Spacings -> {0, 0}, Alignment -> Left, Dividers -> All, FrameStyle -> GrayLevel[0.7490196078431373], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{ TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`datasetData[ TypeSystem`NestedGrid`PackagePrivate`$state$$]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$vPos$$; TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$vPos$$, TypeSystem`NestedGrid`PackagePrivate`$hPos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Style[ Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[ TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, Blank[]], Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, Blank[]], Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, Blank[]]] :> ( Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path$; TypeSystem`NestedGrid`PackagePrivate`$lastPathType = TypeSystem`NestedGrid`PackagePrivate`pathType$; TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = TypeSystem`NestedGrid`PackagePrivate`localHold[ TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path$, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 15}], FontSize -> 1]}, DynamicBox[ToBoxes[ Dataset`DatasetContent[ 1, "Path" -> TypeSystem`NestedGrid`PackagePrivate`$path$$, "Grid" -> TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[ TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> TypeSystem`NestedGrid`PackagePrivate`$state$$, "VPos" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> TypeSystem`NestedGrid`PackagePrivate`$topBar$$, "BottomBar" -> TypeSystem`NestedGrid`PackagePrivate`releaseLocalHold[ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]], StandardForm], ImageSizeCache->{163., {155.296875, 159.703125}}, TrackedSymbols:>{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle->{LineBreakWithin -> False}, DynamicModuleValues:>{}, Initialization:> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]; Needs["Dataset`"]; TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = CreateUUID[]], UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}], Deploy, DefaultBaseStyle->"Deploy"], Dataset`InterpretDataset[1], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.790500873928317*^9, 3.790680744086668*^9, 3.790681304959074*^9, 3.790881552322233*^9, 3.790881662895382*^9, 3.7923746610938683`*^9, 3.792404584560915*^9, 3.793457947950061*^9, 3.801993488439518*^9, 3.8021659380229473`*^9, 3.802177639203734*^9, 3.8023535290439157`*^9, 3.8025515944029284`*^9, 3.802689200114045*^9}, CellLabel->"Out[15]=",ExpressionUUID->"50478f07-ce1f-4ccf-b25f-71f47b0f2386"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"sample8", "=", RowBox[{"d", "[", RowBox[{"SelectFirst", "[", RowBox[{ RowBox[{ RowBox[{"#n", "\[Equal]", "8"}], "&&", RowBox[{"#N", "\[Equal]", "128"}]}], "&"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sample12", "=", RowBox[{ RowBox[{"d", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{"#n", "\[Equal]", "12"}], "&&", RowBox[{"#N", "\[Equal]", "128"}], "&&", RowBox[{"#\[Beta]1", "\[Equal]", "50"}]}], "&"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sample16", "=", RowBox[{"d", "[", RowBox[{"SelectFirst", "[", RowBox[{ RowBox[{ RowBox[{"#n", "\[Equal]", "16"}], "&&", RowBox[{"#N", "\[Equal]", "128"}], "&&", RowBox[{"#\[Beta]1", "\[Equal]", "50"}]}], "&"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sample20", "=", RowBox[{ RowBox[{"d", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{"#n", "\[Equal]", "20"}], "&&", RowBox[{"#N", "\[Equal]", "256"}]}], "&"}], "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.789831908881502*^9, 3.789831945703508*^9}, { 3.7898604011843967`*^9, 3.789860408737005*^9}, {3.789864913402884*^9, 3.789864920183464*^9}, {3.789865009416779*^9, 3.789865014802567*^9}, { 3.789892804356556*^9, 3.789892813604467*^9}, {3.789893714396906*^9, 3.789893716106145*^9}, {3.7898968668142767`*^9, 3.789896872979452*^9}, { 3.789932602730394*^9, 3.789932608991914*^9}, {3.7905000270031652`*^9, 3.790500027298358*^9}, {3.790500832505785*^9, 3.7905008364464607`*^9}, { 3.7905008834877453`*^9, 3.790500908670889*^9}, {3.790680745136145*^9, 3.790680750622045*^9}, {3.792374662080278*^9, 3.7923746621818542`*^9}, { 3.792404618078377*^9, 3.792404618278862*^9}, {3.79240470105615*^9, 3.792404701157148*^9}, {3.792404764681065*^9, 3.7924047648849792`*^9}, { 3.792404827458228*^9, 3.792404849799734*^9}, {3.8019935044318123`*^9, 3.801993504950218*^9}, {3.802165933059615*^9, 3.802165951654866*^9}, 3.802166521639855*^9, 3.80235352882937*^9, {3.8026891863603067`*^9, 3.8026892468326187`*^9}, {3.802701602078568*^9, 3.802701602206174*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"c8", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Cf", "[", "sample8", "]"}], "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"c12", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Cf", "[", "sample12", "]"}], "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"c16", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Cf", "[", "sample16", "]"}], "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"c20", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Cf", "[", "sample20", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\ CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBWIQvck167C76RvHi5H9YFo1SvIZiHa1VAbTSRWMpz8B 6Td2C86DaKvFC96A6Oyw9WB6puzHs7E2bxyZJnwG0xmN5QlxQFoy4mQyiJY4 7XQgHki7uruC6QdFLWUNQPqe7OMaED2H0/RoI5C+cOL9CRD9KqH8fjuQXvAo 4CmIvlI65fd0ID1ji9wfEF1hnM4+A0jPmy3JAaK/zdWctRRIv5lsBKat0kSm LQfSYceOgWmbtn0cO4E0R2gyJ4i2+Sybke/4xlHayxpMtyk8FyoA0kWdFcIg Wj++Qh9Ex6VbG4DonFL79CJnoD+feoLpG9v1fHcFA83Pfwem9warG3aFvHGc 4mgLpgEOPaQr "], CellLabel->"In[84]:=",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", "/", "\[Pi]"}]}], ")"}], SuperscriptBox["x", "2"]}], ",", RowBox[{"1", "/", "4"}], ",", RowBox[{"x", " ", RowBox[{"c8", "[", "x", "]"}]}], ",", RowBox[{"x", " ", RowBox[{"c12", "[", "x", "]"}]}], ",", RowBox[{"x", " ", RowBox[{"c16", "[", "x", "]"}]}], ",", RowBox[{"x", " ", RowBox[{"c20", "[", "x", "]"}]}], ",", RowBox[{"x", " ", RowBox[{"c24", "[", "x", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.0001", ",", "8"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Beta]", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", RowBox[{"{", RowBox[{"0", ",", "3.8"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"Italic\"]\) expansion\>\"", ",", "\"\\"Italic\"]\)\!\(\*\ StyleBox[\" \",FontSlant->\"Italic\"]\)expansion\>\"", ",", RowBox[{"n", "\[Equal]", "8"}], ",", RowBox[{"n", "\[Equal]", "12"}], ",", RowBox[{"n", "\[Equal]", "16"}], ",", RowBox[{"n", "\[Equal]", "20"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"{", RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"ColorData", "[", "97", "]"}], "/@", RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQB2IQveXA9HOxNm8cBbfxXwXRSRekHoDog4/DXoDoE1pT 3oDoV4wb34PofheJryC6K6YUTC8s6ZGJA9LbCvrAtNi/5DAQvSqnNw5EL5Kt qGsA0gJh4Z0ges7/W+cagXTJx5MXQXRDcvmLdiDddqvlFYh+dHL/LxCtbPfg D4j+XLJBqgNIJ65YpgCiz0Zc1wDROh5huiDaIOj3ialA2s31H5hm0qz5Mx1I M//K+guib6wr5JgBpPc0rwLT+xM3z1oKsr93F5jWO1yyEkR/Llq5FkSzzXc8 DqLX6KicANE80frTlwNp7n99YFpUs2oOiD4WVAOmUxw3cO4E0jMthblA9LMN /4VA9CvOkyIguo7zeMh52zeOQf7MYSC6oIU1CkTzKJ4H01/Y7M932L1x5Ns1 8waI/qbBXZTo+MbRjsmtBET3nVatBtELFqWBaZGoRwYFQDp4qqMRiLY5bxhb 5PzG0eqcahyI/vD116O9wW8cnX78fgKiZULPr34OpKXDroFpANzG+Wc= "], CellLabel->"In[88]:=",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0]], LineBox[CompressedData[" 1:eJwV0Hc8FXofwHHzEG726BgnqyibrHK+P0pG9oiEiwhlRilEQ0fIynii49gu ukZyTzYZ4eBaGde+x8xxZddj5LnPH5/X+/+PuJu/lQcDHR1d1r/9X7EHca1j ulggcQZ/a+c51km+vc1JoLkDq3Iwa0ptCr5W82tlxLNgwBsqRt7frcKfaxq/ oZ0YAW9HWt8ns3fg+8Td6Q9Mo8D4l663k6lDeMLC5Ii9TQxE10YWp61O4fG/ WZeSHRKgRSMqMqxtAX9Q7QGxlcmQJfi+/1htDW+Xnitbq5oKcvhbVJr7Fr46 ZJp3hZwOhypuFfS63/FcN079FNDOAM07I2afyg/xPtq2K/qNb2E70NmF344e uoSTh4IRCegtXjFkZzPB64jbM4OuOWBgvhN/pMQKyD/K2js/Fzr80xmU2TmA aNGi8+ZMAajFtluzm/KAse5MlaJXIVztXbvr/hsf/FA+PNtZUgS7YlU/zp4R BBteTZ49uRI4s8cbsJ4kAgxM16Pj/UqhOLTSYTMcB5U7QYdSle9gnmXXseKq OHCMVixZq5YD7QL2bkO8FNR97rtJC64A94y87tcmZ6B68r6X7s1KkHvxyI0k KgNuvSnT48T3kL/Lc9l27zw0lfV3spyuBlHR/dnTuirAX+T8bLilGrgDHv5w 8VYFH9I/l7Jd/wA5FrHy+kw1wCayV6nnk2GcfnajRUgDHgQYED3O1AKjrOYX tmeXoM9r9LpyZy0oZm2M4LZ1QMrVg/vIsw6e2g4Em/sCDFk+J6SW1IN5N4N+ JF4XFFSbA9rkmsA6W/LEn1FX4MV5s/OJfU3AvEr82eqqD1OS04sOfs3QM1qi p3/5KujHPpb/r10LJKVHkDd5DWE79G1eUsYnYK7gNV2lXQNzx7FXzSLt0CO+ h5W/aAWO4WZFK0Ht0Ky0UBc9YQVexI5m7p52kPHwOJMYbg1Ppj5s3XrUATfw 4i4FXTZQ6Zhkzzr6GaAqwnnliR1wORlJWSZ2g0DOAGE00AlEHrfohC51gxtm c/boojPIZGnY5etQQPJ1AdMQ66+ApqVjd2kUYIp3s0e2LhDoxLCRYdgLpbu7 3QcYNxhyqq+n0vfDgdFKa2GpB8w8Vhlhv9EPfcXcvTjp20DLKllXq+wHx0ym ixs5t4HhW0/SZcUBKL5gYJxK9ASsYl1b2vQAHJuAwtd8bzCuSJfV1h6C6p/7 7J+3fKG0wnz32fYXOKVhwVnUFQRkkzIFNZERqCfLq1P4g6HtK5vX4pURKMc2 ZD+/Ffzv388TBukjEJlI0ybT3Ydf3lxq4dAahUG5tGSs3gMIeCIblx4xBvrq vC2zcw9B3ZJRvPTEBLhE1Yk7JkSA3rqLw02VCZiNrybJrEeAeVxTCsfNCagM +9U51iwSvDoeYfx/nwAxhoUhAusTyNDaoKmaT8LzhcDSmD+fwKH4NLkxdQqq uSQz472ewactsskgbhYqMJNhCV9ewMOZaXmywSzw1BT3FHMQQIHCxPnWfxaM eEmjbPoEyMy1GnRvngWNzmPRIjIBtGS+nwtXnAN+6ex7WlnRwD32uoKzfw7G akxVh0Ni4JMapUb9JBUeojs8w27xQCx1kpWVoMJLOfnOhfx4CDm9mSGsTgW/ VkEN/GI8yHMIhdE5U6GOdsuwyysBMuY9dChlVLBVG1fSCkqEwNf0rU6m80Ax e8PRSUkC8Q3NnqhXC8DnNSDJwJoCO2bjbDJ5CxCJ4Xh1XikFuspCjHs+LkDX N22ZSPsU8LtL7uaeX4CVvHuHBSUpULek2kXSWoSQOCM+mmkq2EwrdNQsLcKo Rxq9KykNCBSp5jW0DGFQOLTt/AZWC7g+2Ox+hSBCodkfziRAbPRGhBOr8HDZ lJ41gQTp/pszH0VXwfse84PIRhJc1h5iE766CtyYvMIpkWwg9qe4/Z2+CgFS yaIW09lgvi/A46dJg3qSZE18VQ5Um4sGRoetgVFAzIC4YR483pdVrKP/BnG7 vEK+pYXwS6fYR1mdLcAbxYb6HJbB/TCd4cq1HVg9iQ3/XP8B9Oge1zL4fQfl rtGYgcYa4C/QeuonvQ8lESvvSvubwERIkLew/BCY6Kq292NaQSwkRlzg/DFM EpskXBY6IDS04eXAOh3K71kR9Bzvhje57R4HSgxIYLPcw+dLH2jax6mqJjAi Qv9krtWlQZCOIgLrIhO6+IeQvF3ZMOgLNVW2SmFQCHk/5OWpUVi+SOKJjWRB g0S22HnqODR0Jvyl3saK7t8Rub2WNwm88zrJG+JsKHn12CGgcwY+BmlEG4Sy I8/jnYYaxr8hwUeX+ryeAzHrlW/kZlJheeeEQp/gSZQkdTBj67UA9xapMweO nGhEwsKx8twSFEozLs+bcqECZaUr+nvLYHV65/rAPhe6KeZowX/0FU6Z+z5S JHIjg5zCwIs7NMjt0Ofjv8aDpN3zOvTOrUP/g8tm3Xs8KNIorzD4wgYIOnZr b6TzItk/PVwbr23C6Zjy7KwrfChtPP9D/fMt0FsV/ti4xIc4bKX1Eiu3gZ1Q 7vv7C36UlyS8ETi3A2neOURxFQHkuRXUj9T2QPMpNuLEsACSfT51qSn0OxDn tsdCngoiSmlh2n+XfgA22HbBXkoIrbRnbn26sg94valE1nYh9E9fV3RLwQFI 2rd+wAeeQr8aJWuT5Y5AIk8pdpkHi/LNxJo4C34CVfXnuEArFrXrq2EzJeiQ Id3mZz4/YdS/kETJ2aFDnXQ+ni9OiiDnaEMcvpEesRpdfRLeIIJ8BUir828Z kFtH8bUlZ1Fkx2dzmBjAiNzClchiP0XRS2+TzkR9JiQVJpgxXSqGam4wj3xQ ZkbHZQQFThMcesnUe53Cg0GrzTmbM2Y45B5/TPkkgEFfBuuqyy1xKEnUK7MW i0HFu+vaZnY4tGg9blwqgUFWOnYG8W44FCJ0YStRBYMKes+6sD/CIXX6OQcf KwwypHUlsxThkITlQYr3awxSOaLajBXj0K32fj+fdAwS4TwS/O0dDv3A/1Xg n4lBmyrKpKvvcUjMOE4iJA+DMkMzSl804JB5zV332CoMWjtxp41xGIdMdkQZ WocwaFQ4ijA8gkNtU3pJlFEMapEnGeWP41BcL/HR8AQGpVkO9evN4NCp1m9O S1QMwmdoTz39ikNYZh5frm0Mknlnk225hkPnZGa/CH/HIN5GPzfxbziUYPX3 f84eYNDKXN5Kyw4OWTRGKSJGFjS01fAu6TsOlR1JM5mysKAGpjE/l30cctI/ VHVgZ0FFApvKSkc45JrK0uzJyYKSZdh3j49xqHbVoPA+Lwv6H0E9j3A= "]]}, Annotation[#, "Charting`Private`Tag$208435#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLVfWfei6o5Q9AxhcsN+39vxxdoUtcL5/zPWe/TJH 4PxV6/2/Nn2+Aucf/LTN56L8fThf8YPF6ZaeJ3D+qyUCm0O+voTza39p6u9i fA/n8x6X265p+wnOL622vbzhzRc434mhdidT3nc4X3SJZWOe6i8430dCXHjp uj9wvlx5p6KY9n84v6pqT8eFdwwOMP6MhUdSfxswwfkWEd3Gxn3McL5qyxx7 jqcscL6rxL4Nh1TY4Pzn1vOEuurZ4fw9x/tumh3mgPOFH9tO/KDIBedvLzZv d6/ihvP7chwfNe/mQZj3hVPvrDgfnF/09NG93zH8cP5SVebnj30F4PwghS9h F34h+JL+uZX6cwTh/IVHXUVEvYXg/PNlzn4nvyH44jEnrT5ME4bzFTrXzZ/r IgLnO72S3r73GYLP3bYud02rKJw/NXPBHEUjMUT4NUrVcV5G8Oc8+Hy9vFEc zpcqCX0SoSIB59s53ennOILgK0cc2mxXKAnnKy0y6HouJAXnPzL+d0PsEILv wfDxmEieNJx/nCEnvZVPBs7n8HRrqNmD4CcdXeH9LE4Wwa8x2Cb3D8FXqRaf eXeVHJz/f22bHr+PPMK+1ycmsi9D8CdqcH/9/x/BBwAP3+w9 "]]}, Annotation[#, "Charting`Private`Tag$208435#2"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], LineBox[CompressedData[" 1:eJwVl3k8lN8Xx4VKEWYe+zKDtGiPEsI5JEJJhayFECUprUiIhBbpS4kKoaI0 IZRCslSYGWQ3M1L2JQmV9ff8/npe79d9vc4953PP59z7KLue3O/Oz8fHt2sB H9//v7Rz0WXNBnLgruPR5xw9r3fb47fY1UE3yNx0p61x6o7+G61+RlDoGfhW mWSCa3L11xS32OncCgKpxAeS63Qr9GuV3RZM7wmDPXMJLq0F9fpXf7Q32lpF gt0hUTuWJEdf/8mBzHz7m6DO8xKpb/uhP53nDlGM22DUVS3iazakfzA+Re2N xn/AWBQep+s9pp93nkP05cfD68SP1BqDP/ridrJzUjoJcE2h6dLW9Bl9bx3r vp3vE8Guw7+o02wBfJK/XX8GH0IOBK11iBSE2CAPbp1LMiTJbJHKXSYEeDLs gNfjFFDxG2bcaRaGJMtSvXsr02D74MiNvYpUMDPg5mz0TAebv6cbbntJwN/N M6uqnmXAs+bPa8eapcCK0KJOrnsGtLsfzhyTUwB+QZuIGz6Z8GTKpn/zCA0Y 434zqowsSJC30i36pQQiTS97Dmhkw1mOxpchGVV4W1nrMHjmJUhi1grrihWQ 137W08CBAdbLFmhvCF0FrjV3OC1Jr0ApdVdYz7q1UPyCVbVYKQ+KnBJPqqdu BsmMQ6ENpXnw94FdyPI36uD9cFj3kctryIi0IwRaNEDulnCO5uN8MC5a43Rs vSac8zVJcl/5Bkq7Odk9W7dDrWeTzeaqN9CDi6xto3VB1cWdMnv0LSzMbRvy 69OD+n1Xrv73rAg8pWNo5Y4IGzRKfD+uK4a6Q4eiVBx2QPhai7W3aovh6Nbt eVRVI+hYzum29ymBEZONmoWjRrAz6tL6fwdLIcTk5HaJOGP47Z+YGpPwAe7q XPN+tsQM9jo2Xy9RKIed74/T7rMswTHQIqPPrxxO2a5e1e6wDzyTKkoo1eUQ XD1wTG1gHwR35I4duVgBlfTJ8m6RA8BwjLEVaqoE+85jJk+PWYO4k6nqvluf wfPzXHZpuD0oXCrV8+/5DFa29YF/NzvA6gfbDj7W+wLDg8OOyp0OgJwVUROD X+DWHxkzNHSCU078owm7auB+VaRUhagz1DsVFXUtYEF28lOXGOkjwL2k3ihs xwLffZNt3wKPwOCDZyNbGCzInTvppvz9CPD/rI7ZsZENgdYpt4/muIHcxrcf 4zhsYGDdqikHDzB7Ga+mo1MPsTFjJpFtXpD5cu9E6O+vkBTZuW6+xBfyd7/Y sEWhEeL5X4sHzvjCx/6lnt1GjcC1sDGw0T5F6lvZZhLfCJsSe1yV807Bsnu6 pSLaTbDIa//zpdmnwTdYLTo+qBnUjKxPDOScAc19AsqZS9pgdiRbcnLuAnwY y99dR+fB1mHKj7FdIXCBy1mfb8ID5m0xf/5TIbDhi6BY4kkeREnQlLYlhMD9 lP11biU8+D74SUNsIAS0V/9ZE7ixE1jp8mnnb4QCpTn2pRirEyr2ejsR7Vfg w5YvhZqiXWDpIXW+LOYqKI9qVYdd/wE/864V3HO+DgNp4rlWE/1w4MfzeNae OLg0pbbx7YKfYGel2/a+PgmWVdEK1PTG4EEL8fsZJxXOBug1MIbGYYnNZNfT kCdgyHfpDb/PH+j8qiaiI/EcJNO0Q3xWTMGcvFDPtgcM2C0jTaRnz4CP0FSb smwu0M5HKkutnYea6yUeT++/Bn//d9fYI3wo1aV13vNkIdxLKXef3sSPde67 q3I1i0DLNlpD46YADtmVWVkeL4YVYUkg1C2Idjqt2/RHSmGnTDGjTHUR8h+z E7UuKIPe7Q+pUZcXo1ZTEv+voXJ4V3WzVfOjEDJi7v0RsKoC4rve7VHlpfgt 9A09xPMLFPhtizDxF8ZnF3BLKz8TbnobdF0pEsGc3PcSYxNs6B1fsqFWWhS7 updXdTk3wOnuLu60oxhGcPdkJjQ2QvoKgd7ve8RxrMnuQJxFC+xXGrdhT4nj BuX51u/NbbBsYVCD9aw46pU5U/M72+BT/2LL9nlx3MP3NS+0vw30c+VNewQp mPjqubTwdBusNd6xfUaUgnpXGKebFdtB0DuWvno5BYflc50PurZDfsGmvsvm FPStTdlT0NMOp5Leui20oGDZxfd3KkbaYV2I0bcoSwquNhLprZlsh1Qz27Y4 awoGhk6fqFzUAbc4l2uyDlPQJs1O6MjKDvAUYDGa/Si48+v9F+puHSC798TF jUkUdEozncpq7YBxRovY4EMKumraJ+391gFMqlFGRgoFpYWfuPb1dUBok1yD 4hMKvnLtmf77pwMGnD6tE8mhYIuOePEdSQ4UeS/v7Ksi8zOQMbpvwYF45s1z aV8oSBifYIdZc8B305SIcy0FH96NmXZ15IDqOFu7uZ6CCbq2zH9eHLgeEHSn gkPBRmPGrpgwDjhFtRqn/qYgawvHw6mAA1pDRhynSQqathypvvSeA1QLhp/s Pwo+e/bl+O2PHKikRCTHzFGwRvHB/lgWBzYkbJkKWkJF/40n7KZ6ODD/5NYL BzoV85YW2zkTXGhbMr1DWoWKb6gOvTkyXMg77tFWr0rFuZfLA/4qcsFzo95i szVUHCvkf+q4mgvs/AFnra1U3GXHe3tNlwspFTslJM2pOOId2+/tygWPd+u7 P+6hos1wo3OrBxfW5Ermn7akIlfZTFX7OBk/ufsg25qKr2IzrtT7caEyIDwx 2pmK228w9nqHcWFoc4UK/zkqetRPXNJ+zIVXq1/8Zlyg4s0bzXtbM7hwjh5X fjiAil8bFoJ3JhfmRdw93gdTUW6Fs9/xV1yg9glmXoimotC3qDWsYi5oPTTa /DOZihPrA2LWNnNh9r91/A8fU3HPq3Cx2VYulEVLNOzOoOKwmeGTDx1cML/4 40xmFhVLjBSVVLu4cMgqrNA9n4ruC6gaFkNcWG7uHSnxhor6ApZ+hSNc6DOw sv9YRMW016rVkr+4cGqj6ozSBypGq+l9eDbBhbCl5dBRTcUsy6AKzTkumC54 Lh7NpKLlH0apNh8PRP/e+aZdR8brUGzYyM+Du91HrtxtoqJaC0NvYiEPHDvM rYxbqaiT/D2ufDEPlBo0Vky0U7FC6NjCiCU8yCwVqNr/jYo7fmat6RbhgU/B 4N0FP6hYPBPdGSzKA43sBk9GDxXffxbKFhPnwbvEx0tFh6iodMcwZhHBA9a5 HRafJ6lYc3PHWTsZHrjdnOg3/UdFhyCf2IuyPJhKfxL+ZZqKOU1tZ2/K8UC1 Ufh9NR+BVcvkYuIVePBm6L3tbgECSwt2VEUq8sBC0He8ZiGB886OFadoPLig 8XUtcymByTRlaSUlHiwzv1plsYzAn6Kax3tITnXVOsISI3BvvnBEijIPtvkP zO2lEjiwquPYPhUe1NxOus+WIHC68LvUJMkuzyw090kT2MbnEn1rOQ8mS/nq 62QJHG7575OiKg+ut+Sc2K9AYJ5jGTOZZOVRtyUNNDK//g0PZVbwIH+xdPoB ZQLf0VW2hZO8m/4Zvy4n0KOzO6GH5G+aAR1WKwm8tbeyUnclD85ZrL/QuJpA 5QZKcQTJwh48wmYtgWgjG1xFcvKl2y+b1hMo4m0lOkPy1rgd5gc3EShKiz2x YhUPvjyf6GlWJ+tNxMc7SD5c/iTUdiuBl2fr82xIHm+3o7VuI/Ct4Ycnh0iO /C381k6HwMID10IcSKYJF1u36ZL58mWa7CE5V8X3lz0QuI3/xbwGybt0VG60 G5D1/lV4KUYyd9/X1Y5GBPZ7Rzl0kvn4eV0t7zAmMIcVtTSDZKEQLWcnUwKl /Qs/OJP88N7ANMecQIMXOVfFSdZgJN09ZEFgQKzi4dekHp+qLDR4lgTqb0+1 3EuyE4+PdfgAgStTRpy5pL5jkznHOq0JHEt/HedKssJK6dRv9gRSk+5eMSPP 55XeZz1XJwIzWjftyibPz9g6oLXrMIGZFga7FpPsG8YT/+FGoMapKUoC2Q8L k24/dztK4Mbnu3r//064n7tjV7cXgde17cT4SK7oenK5x4fU87DhSV2y3+yn 7OSPniLjV/XmmJH9OEoRKej1I1CY3u9sIc8DOQPfkb4LBH7XYBGaZD+/tFWJ 8gogcNOCp6pyZL8b+X5dMXCJwF5OecFvKdI/j7ScBkMJHOT2BUZI8ECgYODv 8XACTayEiwxIv9xjJv03FEHgqoCnd35ReFA2y1czfJ1A7Ysl69TFeCDt+Fln NJ7AHQbHM7eR/qwZdRzNSCD9sE36XCDp3+Dw0XSnJAIJw0OGr0l/92VLU6pT CKxoeDnDT/q/cIFHb/pzUt+6wFaxKS54x/9LcnxJ4Gj5cNTEHy4orb2xn8gh /VFx8xKLnC+RVnnvgwsILHdaZ+JMzh/7J/z/OZQRyD/+bf9kLxdEdeNNqRUE znJfjgd1k/OOrTb/qYrA8JUTsjPkfFszZXlMs5b0n1uU+FcOF6Z3P0JKC4H0 xvb70/VcSBrbPlw5TOBqPoPUTUVcsIxgpV4aJVDlQrv/wkIuCCocsd3ym8CI n7HOrDwy351RH1P+EljSSY80zOaC3r2WhEABCVzoJZv1NJkLXL2zxuqyEvgv 8V55xBWynsjsRw+MJLD9+/Z3mwy5kKYvorTSRAJlwwWWK+hzQW3cKznbVAJV pyd9+XS4oH54RUqJhQQWBtaI5W3mgtHWpNRvthJ4b/7Uxc9K5H31LTJ9xQkJ 3GgapFw8y4FX2u5ZL+IkcOmt1zL2uRwwHJAveN8jgS7X5ORmxMn1LZOntPsl 8JWmoluJMAeULrPXvR6UwA3eQulBizgwR4SnPh+VwCzxf4t/TXdAkd7IjcQp CfTd36WV3tMBW26Xul0UlcTODYEBZkUdsFLLnbpVUxIX90wuD3XpAOGr2See h0vi5wfSd9+ktEOcV3KSsroUfndY+jy9pxW0QuSCljRIYf+AtZOWfQskdf5u Ph8ijUaUHtnJj00gd8b6h62qDF65XNgTfKwR9A07bgmVy+DFF8FXru78Cstt y3L1T8kiP9+9B4lbG8CMonCwwk8W7xuZHfu3mXy/fTk7ZX5OFoXOmmfYbWiA Ml01A7sAWTyqOHhceVUDuCrHMP3CZdGDsF/LlGmA1AGn/qcJsth3d//RpJl6 ULn0j0aUySKzdClduJLk1E1RvVQ5NFfizNCc68Gr5bhJmqQcPkwwMml0rAeG 6BNBFxk5fJM/qXPTrh70AxQvtynK4Uv1ZkmhA/Vgb7X0TO1qOfwSE3pI3pj8 D1n0wylXXw6rBasPFa+rB/7jdzdfPiaHVFnN4Z7pOujSmGuRKpPD75lb9hql 1IHE/Gt2Zbkc5se2E8kP62DnlxOfzlXJ4R5GMGc2sQ6eOnMKmmrk0Mf82rmS +Do4eeNdfHyzHEYz7gXZX6+DmR5/K6lhOfSs9Pw+fL4OJO//YUnKyOOaz94y ly3rYBffr0oJH3mMOaW8X2hxHZgNnY6M95XHrGfyUXOCdbC7Zdxcxk8en9Ye 3DrJXweWjL9s+QvyeDzmyLf+OTbYOvO1q4TK4/OPJqe7JtngWSr2c1O8PJqi caR0LxuuBW+Q3lMsj7kawrORn9hQxed9NFxUAZuMu2P23WJDnxdrhx5FAXNf 71E5f4MNSxvUlSYIBSw1rJJ8GM2G3en/WtxkFbDI3VRpNIINbNMIMyNVBTS3 HWWkBbOhJTZ1vYCOAlqUu63Ze5qMp9r6O9hdAY9Iw6s0GzYImRoHB75TwB4H Psqa5WyYqvdbtahEAXVKXRLeKbNh0DGFeeuDAo5aGW6wVGID03dG4XGlAqo8 mPD3V2TDnXs5bz6zFTCsBW62S7OB1kf7LdWtgFHrF4mwRNiwNeKP+6tlivhd h5Y0PMIC14qn5j2HFLFm4K+2ySMW6P/Yv/6IiyKqDc4IjyexQE5gVrTziCLG vV8bm3qfBfW4r77Vk1w/KlwgGM8Cw3f/bGtPK+LN4GJjznUWqOSaeeRdVcTs C5cSuf4s6EoeCg7NVsTCUe9+OVtyv8BN+bQ5RayMiy/Sl2aBk8y7V3V8NFzy 48SZlZIssM0zeREmQEPj7zpcMYIFFkOH0gaEaFiY1l3cK8oCHccbsfkEDV2/ JEdnLWIBVXfAx0KNhgLT2ktCJ5nwcfrxqiArGi6d+Krk3MwE1QDpBE4mDe9G aN2LesCE0W0nDru+oOGIZOOC0UQmFI2Xreh9SUPBxAM3be4zYb+PT85oHg37 EpJFVt1lQrBLRbVACQ0DRaqjG2OY0G7iN6fWQEO1nPbZo2FMiJVgHTk3TUNp 3wf9Tt5MmH9xdYPYbjpO37Lw8wAmDJQk/+Ja0LG3vF69V48JX+ve5mXvo2PN stHlXrpMeDoxomNxkI7VOmXxvtrk/noHTW640nFgbHvKDQ0mpNWscha+SMdi bxeH+VVM2DX46fbiDDryX3/W+IbCBPXZLqvmp3SUnXiUd0icCQpis9JPsuh4 5VJQqqAYE36pb35o/IqORoPnMw6IMOG+f0Jm+Ds6Gka2bJxbxIShJcc+CjTQ cdEeW7OwmVpokg+72tBIx1aOQoz2dC2Urn9o+riFjqljd+t//quFuH31LEMu HdvOUUwP/6kF/QSdjpB+Ol7vjWk3HauF1VlWj/YN0ZEZdb1n0a9aIN77uCr/ pKNE0s8f5T9roa8zta90nI4uJdoFO4ZroX7sXVbMHzr2GVZeExyqhXeCzT7O U3T0kF5oWjlQCxlSvzZvmqVjUXTV5LX+Wri9Wnhifp6OfIe4Mbv7auF/+XGR iQ== "]]}, Annotation[#, "Charting`Private`Tag$208435#3"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], LineBox[CompressedData[" 1:eJwVV3k4lG8XFsoaZpgZBoNCKUIqS3FORUL6IUpFISRFRWSJSlJRlooUlb1F RKREskVlmTH2ncjOTEhR+Ob7673u65zn3Pe5n3Od63kVnM5auXBzcXF9XsHF 9f8vzTeivHUnFa7rObftbl/Sj3GdEQ0bdwYprbgU/ah7BoU6oznBIRdg0qCT rVb9xmBDSdthvahgyPLIa1zBrDSoU3Be8dc8FNpkPI7F2jENwgY7m22tb0Hl Au+b2+FdBgbPDrwsOBIJynLvXvn6DRr8zXeB8JwYGHKmaPVVjRsciktWKdS6 DxT7ZMdKyrRB/sVu8ZGCOPAMOVJW1DZnIHZYaoms9xDuWKV6dSj9MzijZzNi 9DEBEhScM62WueCLdAzzAj4BU/YKbktNXrgb7NrT4JgEYsnTpzKf8wGeDT1w KjUZ/q5IcldyEYJEi1L9eOU0MFgZLGjYQgDTnT1v1N3SQVrZsvqStAT80fy3 rvpFBqjrBsjXh5DBWlyHOKf6AmbqGl2M3kkDN+/BG3c8X4KatIWCZigNcma9 /ynmZEL9n64Ih0J5EG55PXRAKxtuDS8mqXWshQ9VdUfHL7yGlQztg3HXlCC/ 08dt59EcEDMOPR6vvw6cau91tyXmQvGL3wkaAxugJItezSefD/zfQ6Yf+GsC KeNYSGNpPjQwq23ZUZvhzJPJHU8d30KksuH9Y9laQI0SerMttQDahdkhjjzb wPeccaKLciEAOa7UaPV2qHNrOahZXQh6mdPUmBM7QNHRhbB48gOUmHrxfSzT B6bltbD7L4pgJDnYqN4UYZPWp3MVqiWQuqza4GS+G65v3L8xqq4ELAQdj+VQ DKFrbfePI56fIGpaM6rphyEYhQepzR8qhW2nqw7cv7MHZgISUqIflkGCPiHy kaAp/GfXevuTTCVcdN/JEuqyALtL+zNGvCshZfXedebuluCW+PkToaYS0o79 MMpbsIQrXXnTJ/w/Q/M9zZYhhQOQYxdty99SBQLX39W9u2UDYvYmipZRX8Fl 9Qifx8cjIBNUqh8w9BUEFcKX13gchfWPtQ+l6n+DCzvNoZ9mB9itFP5r/Btc 215YdvamPZy352Y/3FsLxW5RpUxdB2DaFxV9X0GH2qfHHl6xPgE9QZubhQ7T AfZJ1+gWn4Dxxy+mtuTQ4eociWtM0Rm4WTXRu9UZ8E8abVTnnYGq/qEitpsB lhM+UmuzXMH0dZyKnh4TKijD0eq73OHl6/9+hcw0QWV3z+/i1eehYF/Wpi0y zWAyvUW03+w8VIwKuv0wbIYvB6+7u4af5/hb1WEc1wyknuNV9/i9YHX8jlJh 3Rb4JFUncV7AG85dUYmIC24Fy53p5N8yPrDNkkfhpUAHuKQ8id17yx/Kpgv2 Ncj1winfXrZB/lXw6+lWKzDuhRXUPNf47quw6RuvaMLZXrAY8i+Q5AuBR8lW Dc6feuGvLly8cyQEdNf/3nBJvQ/I+rMRhjzXgNB697UovQ9mlJ+0NBwNhbIt 395vE/kO/0KLKbnrb4ACW6cm9PYgZB9dUbu48Q6MpYnlWf8ahaADGxNlZ2Mh aEFF/cMKFlTkaImcLHwMq6tp71T0p2HyXpNJo18q+ATqN+ZMzAI12FtppfVz 2MUVVMjt+RuEl5JG3ClZQErTveqptAChTz8HvdXLhX2SFPH07H/Ap6xStIue B7SLtxTIG5chmRhYqXqiAAICim8yprhwMsqrckm7EOKTK13+anCjz8lTu3f0 F4GObYSWViQPBjMJa4srS0ApNBH4f/Biecb9U9M1pWAkWZJTrrgKcx1rvDuo 5TC8/Qkx/DIfOq7S8P14tQKKqyPbt1Xwo+akRYJSXSWID+jHsBUE0ezTo+ZX 6lXwzlv7hnGAEBK0uF4136qGyDM7v18rEsYDPgvt7XVfYHhWYFMdRQT/RPl7 auh+A68f33v+2oniRXuhyw9f1ICg91OR346imBF1b9WD1zWQzGVnMO0qinOR 1R0P3tYAQ7r58cg5UWRLPw9LLasBNatqu+ZQURTOsSkaaK+BkZLMjuxXnHqJ O2VFhGrhWPyFFsd/ojhUQenbf64WFu5KXsvmEkNGq11RtW8tVLXPUVV5xJBr amSnURAn/2Se6Tp+MVxu1I/YH14Lt0NUX8oSxfCbwOkXCWm1MPaedkpQWQwb I/Zwq3XUQroSz/CAuRgKv72rE2tSB9Gj5fEPLMTwz29HBzvLOgjICjE1OyCG FnepuPFwHVhs5c5+YyuGtw6N+/a51cGC4QqfqyfEcPfyyM+XNzlx52VuOX8x XF2tXtrwtQ7+pfylHUkTw8cFtcsiB+ph2LWIsfqZGNrzC47PH60H5obAkLIX YkikNHSwnOvh2ZuFH+tfi2E3Y535om89WJXPv/pdKIa5aVpKKQmceP9vvVi6 GG6IP6KgOcyJy88eZCyI4Vm3eQHrm3RYvTK40WZRDPHEWh/Vu3T4Mspn0bks hkEzy1uIiXQwyJM2GeIloEznDeVVnL2wcc/u7f9ECChe/WPxbhsdeM/clVu/ loAvfOr2qZEZUPBOY+SyGQHrdEqles8y4HziB+eV+wk4IlqcXuHDANWrhv3h Fpx8VqVTbiADUkxtO2JtCCgYvoH+/AYDorov12YeJ+Cq4wQRwSQGuPHQc1q9 OeeVzDQzmQyQ+s/DXz2RgPUe0r1EbIDZnDbR8ScEHEr7JDVi3AD1RMOMjGQC Rhx+WlTzXwOEtFAbZZ8RUMy9/G3J8QYYs/+iKvyGgHb/jQkfutIARWfW9o1U EzDIouqOV2UDxNVH+qZ9I+DGErYp1DXAOY0FYYc6An6M7RmUaWkAxVmGbiuT gH+PazoIjTTA7cDge5+7CTjj89PygzAT7MPb96TMEFC+jP/QjcNM0Jkw7Laf I+CyimKj7wkmEPfneEvNEzBZh/rX34MJVYQbSdFLBGx8FLyy+CoTNj3cshAs QMSfFWECWzKZsPwsKuuoHBEZSRWGMtyNkPzZSIJkRsR18klN5LJGcC1W+1Fh TsRhQljPo7pG2JBHKvCyIOJawZeftDsaIT/pxyGGDREfqv/tK55phKrA6wkR DkR8lpUat7CuCSY0P6/h9iXiiHlbh3dsE+Suz5rJ8SNiz7rllU9Tm8BXLrby eCARy7j8/Idym2BZ2MX14xUiJh3UlqqpbwLiCO9LvwgiiiTccvgp0Aw6Tww1 WUlENE5XvDVwvRkW76tyP0kl4vvHNS8nY5uhPEKicV8Ghy9t4SkloxnM/Acv vMwkYqqw5XhNVTMcsw5971JAxMZpbdtigRYIFayErhoiWnwrVGXHtgDdd/f+ r3NE9LbKDj/9tRWcI3+NmswTsaJ9PiOsqxUW0p9d//aXiH0+e3wqWa2g2Cz0 sYZLHMstnfhekNvAT6tpY72gOI4Nq66VcW3j7HNngUaaOP4nJxzTKdQO3qfC Krv2iOMMr9L13Rc6gP+qjoO9iTgOX6ME0253wJP4sb/dZuIY5chjuSatA75U 79fqtRDHJe1/vOlNHSCjTEnpPyKOfwTm1j/S7oTP359dHvIURx75tYnHV3YB xe6rHjtOHCXMffP0yrqhlm3HzngojpXetDcjfd1w5To73T5RHC+YZFBquHpg JJtCqEkWx7dnurTUdvbA+xWuw+mvxFGrXeviycoeOPKM+/7RcnGkNloaf2jq hcTp7ZNVk5z8Q3TFayL9IH8r++ljQwkcl9ohqJIyAGkGwvLKxhJ4zU1soKxg AFRmTyVlm0jgIdYKoTM1A7D5uFLyp/0SKBwgcWBmdgAMtyam9NtysPBz/uq9 g+DWfytdyUMCbbb2lu+bGYRcXZfMrFgJfGG/InTecgh2jUm/+zgkgYEBBeee KIxC7pa587qjEvimWXvhkvYoyF9mqL4dl0D/dcKPLc1HYUn8esortgR6XSvp 7vQbhSL9qTsJCxL42yVc+DR9FLbElDr7i5Bw1Zon2SoBY6Cs40Lcuo2Ef6zO OZ+oGIfYEKjL0SFhka7M9d2t48BbJ3VTdTsJ387pXhIcH4fvjvWLa5GEnQkz mqbECXgaoT1KNCXhwquPVUHHJ0CyV6CUbU9C86vuOtqzE3BDZTDgjAMJhb6M r9yxahLmvEu2jjiR8PRIVwxNchKa+b0ze0+SsFgihx6wfRLubu6Kqz9PwsN8 3QZXr0yCUFi2x6vrJMz74LysyzMFj8zddx27SUJ0EulVlJiC9SRlilgECZWl akU6FafAMO1xqXc0CWMFx2PSjabgUvlt8e0JJDTNj/aND50CwfC9IxOPSXjo H8uh4t4UxFvyfnySREKtU5fa36RMwdu+QFfuDBIuGyVc7/k0BVNL7oVfc0jo kO2u6/SbU69KOTIwj4Si5qorM3lZIBj53UmtgIROFwyCCwgsUJY9IhxTREJy a0SYxEYWHN9ucty2ioSZucT9Q0dYMMW9covgVxKOPx4q0XdlwaVvpfzFNSTU /PI0wuY8C+IP67yRayDhuig/2cowFjAurls53ElC9y7GochsFhyDgfb4HhL+ Zh/uaX/HgolVT7NN+0lo0f8itL+UBfxxZNvsIRKO3rsqspbJgjh7pqrDKAlH znr1He1ggaJS5AriBAk3HP2Xvf87C3bmr8z0+UnCzXXZig4/OXyBZZfXzZLw /ZmuP0F/OHy7g6zb50jo726kar3MggDm7OKOfyT06Vc4KLGKDfyPcphTSyQM CdfaLi7AhjjHM8+SVpBxTce5ukkhNrxhD1jw8pHxacp9360ENuD7p0oFAmR0 T54zSxFnQ/3lowsnhcn43CrQbIzEBjtjCl1KlIwhg3utV0uyYVykMbWGQEY3 8iUjISobAloi/YIkyEjUXb80IM3hf2Jqrk4hYxnJ3v6BLIffZdWafikyqq/K slSSY4OiWvncXRky9ndozd6R5+iZDaoxlCPjqMdBlwYFjp5i3aQ5BTIq8kR/ Zq3h6Ln268JzRTLu2Ou1dXQtR49ZrsmRdWRMtk5v/qjIhjGiB014AxljXgxX eSixwa9j/cxHVTKKbBbZMM/Bq1IGq8+qk3FsF6+8gzIbYk8lJSps5uh7VPM1 hYNnLZV3pG8hI5uqd6yUg630XnWu1ybj2XDXmBIOzl2zOfCVLhmPploHP+Zg MaH3VI0dZPwhLYX2HOw5o/8hz4CMX3MKWYscvrrOisPaO8moEXUy9jIHq1aa zH/YTcbJRTPN7xy94a/o8QZ7yGhueLNCiYNH7tvolO8lo+uJXftMOf0ZB3W2 Gplx+ien1/zH6T/DxfHiV3My6jT07tzG8Yd3/zDZ3IKMKhXKrxc5fjpt8yhg WJFxb9Mb8QwaG8poMzbWNmQsyCg7q87xP5i1dP/oETLyF/qI/pBiQ1dr6JZe OzJu7ck6QODc5/ZSwSan42TcHRUZTSOz4U80WdzdmYwOke9+dXLm46B/4ptJ VzJ63GrTuC3KhreOa6zOnyLj4OUVebKr2eC1eVOMnycZmcI7o3/wsYFBzdf4 d46Mq8LiPGRWskGdR49x2ZuMCqXn47Zys2Gi0Uj0hh8Z5ySskuU48+zqY38n NoSMzntWarR0saDSfkBV6joZg37x8lxsZsHaPadqE2+Q0fZJSkRfHQv6yD5C abfJ2PpoqUG0hAVH3t++9SaOjH7PCTxjCSx4n0RU2faQjJEU2Nd5lwWUW/Ff ChPIuF/4U+iDWyxoOpzGV5ZExvhwcTjvy4L//hZdp78ko/Cwnn6WOQuyB3Yq HcjizOP5+87zu1ggXFtd2fKajIdz5S8QdFjwLbGRpyefjKaejV/TFVhgaDB+ daKE039tdajz9BToXKUGCzSS0VMo53N/+BQUDF3Vrmgmo3FV5iqeS1OgtW+U famNjPmXZqNmz0zBJsr7E+xuMvbO9LqZ758CxSwbk9YRMkY7vPj6R2QKCO3R EulLHD83/zhbdnMSxjT4MnEDBfmmkzbhsQlwi/N0XlClIOnHbXUX0wn48bdZ Nl+dglzRhzQ9t01AX1Va9LqtFKzK2xK6WWQCWux2+YogBQs+Lr3IKR6HiptB O7tsKDjjZ+mTTx6HxL6Z1otXKThenLJpoXQUxlyV7HhCKXjBJbn15atR0Jk8 2BcZRkE1waSuA/Gj0DRfOJIeQUHeYqGMmLOjICx+Zb4xloLpZ3vn6mVH4ZKR sLTGSwrGbF8fNuw/AkdfKh4bYVLwhhvnqbZlGKgXbAZtFSWxuJZc9aF8EKyi eFJblSWxdvSix9GcQYh4met4UEUSbUO32Ag9GYR/fat7D2ySRFnV6n8P/Qeh x7yqfb8OB8t3bQrQHITUddp0w32S+M1v0tAubQBUOyU/aFyQxI9axo9i476D 81yV32tfSbym1nfCKOw7PCb4aG/yl8RfVzbGrfT9DiJ7G/I3BkviZ/VxpXc2 34Gdf+u18k1JzJzfFNVD+g5vIxfSZBIlcbrQfrXJw34w2NUVxV8picHTirPb svogruO028cqSRSVHjftfdwHk15/0eurJLrafWt9HNkHianU6c56SQyPcSMd O9cHC7yHrV+3S+IH74CsqS198K66WfIgSxL3Lh1ZywztBQ1zenIqVQo/Fb+y fNjVDTd/HAuwlZXCpktqd0MquqE3aMpqtbwUSqpsloh92Q2R2at5LypJoaaz RskW/26YFN3naqohhf1zr2sOSnbDS+aXDT+NpPDAPufjQ/ZdsNa2PM/gvBRq ab/ItObtBFOCzKHP3lK4V8rGBH52gNc3nwUzXymsuepyxbinA8p3qOw8HCiF FnfCTHPed4CTQnS993XOLjTS1+vz7ICUMfvR5w+lkLb2Um5SXzusCZqniZdL odFPk60dbW1guu1A+cNKKSx6PRCBX9vAi/XKRb5aCq28U7tLC9ug3NHhlVqt FAavalsQSWgDpz3VuntbpBDcE5jdx9ogRTTWOmhMCuvsFg5tHG+FNSka4cNE KnJr6Oc9I7XCqbbTxmkkKrq9OR3Oy98KOSLPeB0lqWhml6gbuNACBoGylztk qRhXe+/i294WOGIteKFuPRWXtkgwbTNb4O6qQfs8AyoW/o4u3mrcAu075KTP 7aSiP0ljg8z2FpD3PtKmakjFCi7LSin1FsjuZVhlmFDxiIMx4zClBb69/2j8 0JqKZ3ITro6MNAP36Qeal92pKKz+t1UquhlMkplT2z2o+N+TtyHHOP8P0a2r X/05S0VXd1b8u4BmoBmGKnv5ULEy77V1hksz6Mmel3a5QsXdDda08zuawYtu utIsjoqf4vTj4ieb4LvWUhu5nIrywul/7OybQGL5LaOqkoqPi4Z5CDZNYPTN 44tvNRWzM39VN+1rgucO3e9aaqkosuePQMSOJjh7pzgurpWKPlvNjr+WaYJ/ QwHW5EkqHu3PPlfS2wikR7/pJElpzGh74a96rhH2uLyu/kyVxqjDRKWkU43g p3Hyk4+sND6caBqXO9EIXVUt2c1rpHG79zbr3QcbIWXm7Z1YNWm8o04zI+s3 wibzC2ak3dIoJS8YyBRuhL1cP6skPKXxwGP1EFYeE0wnvG7FnZPGXX4df4Rf M2Ff26yZpLc02u50vLX5JRMscv4wpP2kcfR3ytfYJCbYOnB1rgmRRi9znatF d5jgVirK0oiTRmJY5R3/U0y4eWUTxbxEGlO6lcgeykwIP5PTXl8qjd9CvNi+ a5hw23ZzokWFNCp5VJ28QWNCtMY2Besv0rjmXtS/IjIT4vv0Nx5lSuODmBZX Lz4mPEdzODUkjRJ/yjwFxhqgmuvMyesiMqj64WDZzbwGGDlF361PkMHj+DCH P6cBBBs3y/8Sl0HBXLE7ka8aYF/6fJuzlAzyGg3XZKY3AMPkhqmhogxu1Um5 tyG+Adrupqjx6MngO4tX4RuDOfUU22euuMgg3TtjbN68AQQidzB03GRQab1v s5xZA2z4/fQV210G5+HkSdO9DXDmq6uLwzkZvL045JS1qwHYHrMtECiDJ5TU hl9oN8CfAtEPS9EyODDAG+27pgH4TfZcuVQsg5e36vKp/GXAAtN73apPMtii Wpv47w8Dxu2S66PKZLDs44vTjXMMqD/3Tya1SgYNmKkJ4dMMuBf/pvArQwa/ LD6Kpo0xgDZCmyH/kEH5li3Kre0M2Hrjt0vualkUKfPQsi9igDJBafV2MVlU PjdwMKKQAZIJVvmVRFkMuvS4v+gdhz87i7uNIosDO6YIivkMKG058XRJQRYf BHTJi2UxYJ8yo81smyxuv1Ox1/IpA5w+PzcbOiaLlwjF8g7XGWAwaKV2wlEW G4LFGe3XGEDlWRTpOyGLdYRoe5sQBjDRktnuJovcK4oFrS4zYFfxvG2dlyzu E+S94OjPgDV5pq75YbIYQLuV0+LBgO9JE1dCsmVRzq1WXNiWASWf4pyWc2Tx U9lJ/48HGfCoBw0v5cmiyVCE/zkbBljJxPL5vpdFvqIS7LRiQPkD/chT5bI4 fLQuq8KcASmRkQkWLbL4Zjia0rObo/+SRgFtSRarZ8NSVDQZYC9ZnNvARcO5 Iuu3P9UZYJtvnBXKQ0M3aetDRZsYsH/iWNoYPw1l67brH1BlgJ7dnbsF4jS8 YFFgELuOAcQdY577VWi4VyMw9DiNARV/U9cFW9Ow9eyDmD/CHP0P1NdqHqLh s/N3f00IMeCDVhFt8DAN9QLS738XZEDOaSbJ9DgNAwTCgxr4GZDYycVLdqfh 7kSH2o+8DLhQZN+XdZmGI48H2x7P00ExkPKw+yUNpTc9WBHVSQe2tsdxpywa FtbZcve206Fotlxp+DUNxc2Cv2m00cHK0/MNO5+GVauL09ub6HDF8XMNzyca Tmls08V6OnQaey+pNNJQhVv8yLEyOtyVoJ/w/UvDxc4Vft+e02E5K2yT6D45 VAjzli4JpMPYp6SfPfvlMOZU4L2dAXRoaviQn20phyud+w9V+dHh+a8pvf2H 5LCl8VF+ow+HX/+Q8R0nOWTHrTdaPEuHtNp1DkL+crj4Wm/xpjMd9o5/ieHL kMP8Q9kqQfvpsHnxu3XrcznkKksSUjang4zoIuVZphwuVwkKM8zo8HOz5pM9 uXJYx8fvus6EDo8CHr68XiyH11cNeA7spsOEgHsFT6Mc3rYtsY7WpUOLdGhY Y7Mcmsdu7DDVoUOp2hOT1DY5LImaurBKmw6xlkz6rh45PKkpP3JlCx0MHup1 XR2Vw+ETVfkh6nRYn2n91HJCDvnc/JqMNtFB/KOnkwJLDj8cruEVVKPDSF/K SOmsHP69Nn0/dgMdmNPFmdG/5fC0cOyMnQodinlbPR0W5FBzjY+D0no6ZJB/ amosyiF56U/HlDIdYtYL/VpelkNV/zCnQiU6/A/sACFc "]]}, Annotation[#, "Charting`Private`Tag$208435#4"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], LineBox[CompressedData[" 1:eJwVl3c8Ff73x4VUSsXd17UyUkayKuucRMMK+ZaEJIRKIVLSUCkqo09EURlF EpIoVFZEuMPOJrPsURm33/399X6cP17nPM8578fj/X7JOJ+xduXn4+OrXMbH 9/+npP+d0uaddNDR0jA1mebqR7lNrwv56QJhEz2eIs/+M/iwfTj7cvA5kH71 gJXQnGOw+VPLYZ2Iy3C8wtM54ke5Qa2My7IF8xvQo7dzWPc0xyDkR1ujrU0o jN5zq+xOaTcwSD2QnmcXDmO7ITn9zg+DhVxXCMuOgvaRcFuHnp8Gh2ISN33Q eABLFFdF801TBrnnOwhDeTEg5xyIOuNzBusP07hknTjQFVjk5zNcNDil878h 44+PIahENvTB+mXwVTyKcw6fQOGzg9bSuwXh/mW3TvaxZxBVqGXoUbIC8MyN Ax7JiXD6UfMtreDVEG9ZrB+rkAJHvPfJfBgWBZOdnTlb3J/DhF7zrvdbifBn 6+LGypcvwCh2b49QPBlsCNvF5pRfQh83bVqmWRz4BQ/euueVDlVs/4C8VEnI nvFdlMt+BayeKVNSrTSsacoaOKCRCSpvH2XKTMlCQUXtkZ/nsqB6j0dCS4I8 5Lb5ue88kg1aP4yi9tptBOea/zpa4t+AOXnvHYnlSvDpNbNyhXQuBOkKzt6P 3AqkF47B9cW5QFLPsHyYpg6nnozqPT32DgQzj28o+6oB9IjVOdrJeSB1gWVy XkYb/M/uiXdV+ADnD74fitfQhVr3poNbKz+A3lS2leJdPZA75iq6dKIA/lT6 16X+0geO1fWQBy8LYTJP4UeuM4KqxuezZcqfQKR+7sBzz11wU8lCKaL2EwTd Cc49rm0E7bId/XZen8Ey5q+BgJAxGIcFqfw9VAx/ThiltGbvhumLj5Mi40pA /gBLO0LTBPbbN9/9zCiHxHerYkv/WIL9JYsXQ77lECX24o7ybStwj//yWfRb OcTNUs1LadZwtf3t1PELX+DRtZwVnrsOQLZ9pO3KpgpY1x0TEpD9P1jvsE/O KqIKhu4kTAlP2AEjqFj/4kAVqPJ79TsmHgHFhG2HkvWr4XK1W0+pjT1gh3zY 7M9qkGhdVMwtcQBvB/6JuL018HazpouQnRNwHAoLe5cxoUch0D7q0nHoDFJv XH2YCR0120IP9R+HnwkvxzSzmXCNOh1G3e8C/OPfIndtYUG39mD3LXlXoG8p KIvuYIEZfwR7eacbmGTFbNLR4YDEPeY99iVPSM/aPxs83QCN5msHtLW9Ic/s taomoxHcP6UZi/p5Q9mwsHu/USNkv+zJssj15s234vuemEaIahO+PanhAyKx esVrdjSB0culB8xtvnD26qY7MZebQVT58Y9MKz/QthKQSV/1HVRpvu9W1lyA kqk8M7ZUF7QHvkhXHrgGAZ0dKnl7uiAkrLafuD4YVKsF1z0+0wXlF73z5XSC 4VGiNdvlcxdESipmFoQHww7F35svbemG5kmxrqId10G0+X7WOmY3XD33byv/ wxtQoln9XnttL9QrMRrrT98CmYnt327c/QEnQq7H8d26ByMp69/azA6D7OwG vj8GMRA0v2lLwbJxYJI8bFbKPwGRSsn8TfpT8EbglB6xLBn8AvXrs3/NgO0k eUkoNw0M+YI+8Hv9hv0lwmnJ914DKWXHNS/5ebA89c3+avAbMKNSCM8zF8FW 4t3O9xtyQfJ8qAxZ6R98Ug6toZXlwcWLRbdZY3woVbKu5u3zDxCbWO66oMaP TisXGt/bF8F22zsaGuEC2LkgrXzL8jPI34iHlf2C+D/HG41X6CVgTP2UXSon hDMr8g0TvEthUPeJWNiVFaiyTvH31d4yKKoMb9UuW4kKdjF+Otu+AKFPP2pC Rhh9/8fYmJhUAfm+227tubgaI45SO5KXfYXwUzt7rxeuQa14lbLwXVUwOLNK tZayFtUjlmFmXDX49Pd2Ltivw7nG1s+d7G/wXF5gsM98PTY8OhsRtlQD1tIz B1nz65Ewp3uOql8HtP2nL2yJF8X502a/448xIfGLMZFkKoaSqjrRahYsYPrv sqiaE8OsEdln70ZZ4BI+O7zvrxhyNAkKUhMsmH+eerN6QQybqs+FhE6xQK5x 9cdvfASUchPudvrNggCNBqU6YQJaS/ik0pexeft1WVUvScD0inZyOZENvh4h 5e27Ceh39PlGA302rLy23clhHwGDw/nWNAEbnsSOLHSYEvB9nqn0WUM2fK20 0OiyJGDzl/4Vr/awgaFASeqxI6DoWY6kvjUbvvSmXhnwIuDI0dtt7SfYQLGv 0pmIIeDoBqru0Wg21EzYT7yII+CAqN71B7FsuHpz4rlDPAE30Rc21j1mw1Am RfRbIgFzDGUrLZLY8H6Z2+DzDAKWe5cybmWxwS6V/8GRUgKqdRob9VazYa1e zD6xLwSkaLJ6XOrYUMra9O9rJQEV5UY6f7HZsHne0lO7loAPbyTsEGllw4LZ UxRtIeCZNWchapAN8VO6oxWjBDylUXXq3XIOWN5iJgVNELDUx/RkzCoOCDKO 22pOE/CP7XG7yyIcOGUcVpb4h4C7HppPHidxQD+2Je6SABFL/D0P35XnQKe+ 3251GhF32U5uubmHA9KhmU8TjIhoTFrkz/uPAykGa6QV9hBRSDvOMjyWA5tm PJ5l7iPi0L+UDb4JHFA/Kp/42YKIj6tWM46ncsBIKz6px5aI49HyPT2FHHDv CX0uf5qIg19iB0MGOfArZlA+8wwR7xlFiMMoB7zNjF9o+xDxUp05V2iaAxfz +VL3nCfixtaGhAouB+7eO5/mcY2X/3j3sDClHt7scH31OpqImRUqGxtN6kF7 vFRJO5aItzpCo55Z1UNBinTGp0dEdPlW8vOybT2Ur2vPYD4lYvBj+V1+bvXQ 1G+dOfmSiJNdtiYW1+thPgrfaH0i4tLg8Ib+4nq4vOfJ1k/FvPzfazYsfa0H gaWFN7vLiPi9e7pYhV0Pa9zzcw59JeKKncLxbT31IGmgmnuBQ0TKBS3dIMEG MBwRz/84QMQDc0tx5/Y3wBvNOe8dw0RcV7fy/rbDDSB9haX87icRqx87zTCO NwCXcDMpY4KILb8MXlidb4BC/bF7j+eJOFZr/J9fYgNoRhW7XFhLQinF4S2w 1ADJbY+kZteTsPAwNl1Y1QhiCn7fzxJImH3LpbSH1AgTBZss3akk7NQ/oKK3 pRFe/7ive2gDCb3PS6aqujSCwnZXMS1tEj59yDf2vLkRooOhNns7CWfiUjVW DjaCYC3ttrIuCe/1XxhImmuE3mN1S7LI0+9vPnGD3ARP72wbFjMhYWRteP7q w01A7VpVPOFAwoCgfBXOcBPc2vTj4iknEu4X8valLDXBnO8nrSFnEiYTxvhT 1jdD40rfV10nSGjl3/Q+dnsz3Fdvj6nzJqEk+2Ue9W4zrA7JPJ1xk4Tn+mry 8gxb4JG5p6HjbRI+0RyN1XJoAUWSAmX9HRISXW+3ywa0gFFKQrFvJAm1i0TW HMxqgUuldwm6j0n4U+5Vs7FsKwiH7R36lUBCe4HJsHM7WyHWSvDjk2ckDPFp +ijj1ArvugPd+F+Q8JPI1M5/T1phjOv5oSqbhIHzNfsXN3yHSxUK4YFvSfiS cyLExvg7CIf3OqvkkbDfaixKx/07KEjYrYkqJOEr/vLe/KzvcFR331HbChLm NE4UvDZuA9b5jcsH20jIsjE7eT6iHRyhrzW2k4RaounpmYXt8EvoaaZJDwlF Ps6XxA61w8oYsm3mAAlDdWzbI4w6YGfu8ld+kyRsEhMvsl7eCazAkisbZ0hY 9WB1lse2TnDcFWTTOkfCW8ENR/d6dsJFzsyS3iIJ5bb2Xz/B6YSciT5LwRVk 9H0Z2+if0QX4/ql83ioyvrKvzCT1d0HdlSPzJ9aQcbPmr4K967rh59r65G+i ZDRNa9AnmXSDnErp3H0GGTfRhF5Tv3RDtMezeBl1MgartQpLcXpgxkpB77km Ga9EryY/mu4Ba52MNsVtZGQ2/KcQRuqF9avf09X0yFjmcc6zzq4XwjKYsQa7 yUhMCpNY/bMXLo9zHxyxI+OJTJ1+Z9kf0N58Q7PLnowXNQczP5v9AN1i4Qbn o2QMp8cPJvv/gD+RZIKnCxk5awyahGp+gI+6alSAFxlPTzuuswnqBzc/h3vR wWRcT2sza5sfgHKHPmXaTTJGi/iOSqoMguxuj5r4W2Q0fkMtnDs6CN1kv9Up d8koHHR2uWvlINi9vxuaE0PGxRbVWNOEIdi/UHiTmU5Gqal3RYOuI7D9Gv3y qnoyjmyix5p5jUHewLVtZY1kVDLx0uv/MAYaZsMTl1rIeCC/NGez0DioUt4f n+gg42CWxNXsZ+Mg9/p/+5qHyDgqfVn4tdcEiLZGEp9zyXhyle3MsoJJGFFb 8Qo3UzDhcv71zIsz4B7j5TKvTMESCW0n1bQZ6F9olMjdQkGDY+N8hY0z0F2R ErlRi4KaNzjfOtRmocne0H8tUjBDser+m8FZKLsdtLP9fxSkBR8e3G3zG+K7 p5vPX6Pg5nABdqPAPIy4ydsL3KCgiAKb6LlpHraPHuwOD6Fg8BWfgwkW89Dw 98PQ8zsU/FbaF5/2cB7WEK7+rY+m4GTbXenrsgtgF/cm6GgsBee9Dr+TNl6A NKm+ZT8fUTC2Sj1d3W0BjJR3C/M/49VLuhz78cUCXDJeI66WTsHA0tHUOzKL UP1N/2lhBo8vTu7tJ4NFoFqfkd2TRcG1EW2SWkcWIdeRo+SYS0Hi3Pzvd1GL wN8vkD2cR8EwXevxmleLYHlSS9PvAwXFfFVJW78swq/zsXp3P1Fw5bqUUdrc Iuhwq4opJRQ82W3l+kJkCW7fWDBKLuP1Q+j9HCq3BHJRjuYFXyn4Oo56SMZy CXwokWzjbxR0eeny4ZPLEhQnlPyPXUvB0+Kp1+8GLMGRdDnHIQ4FD0qT83IS liBN7WCvbyOv3/FzD1ZkLcFc3i23f828/UisWHH98xIY6X8YCftOQXdJlceS zCW4XzbiRe6g4OGO5/X1HUvQvY8xndhFwf1uBerxP5dAlWV+XqWXgql42cjv zxJUt2dfMRqkYPzDEycD13GBerxXgDVMQXWCj1ARjQtuw4TbR35RsELS8r+t slzIPWO8ZnCMgnT5IMMWJS7wz/lH+kxSULx0x5kUDS5YXkojcqcp6DElbxWm w4Un/N9jQ+co+GdaYcNl5MKv26slSH8pGHBi2+wFYy7orNNPfLZAwew56s8b +7hwO9pLXpnLu5/+tJ+pZlxoEn/2Mp+PivruXt0/Lbggl8RW2SVAxUSyHcfW kgs+igI5dcupWPrVPWWMFxdnamrbraTiIdaR4TRevFbLraBfmIrKizKK1/dz wb7woYG3CBUvhioNBZhzIX1nVeniOireb6xvDjHh8nzj/O7bYlQ8+Zc9/mo3 F3ZbKH8jkKjIvp55enAnFx40OOx/SqHi4e+fwrfrcaHXLqJ+M52nV838+ESL C2o9xYfyGFQseitTT1flwuUTU207pajYOPPCNlOeCzWjsk61MlTs8c5ptWNw gX7ufz9s5agoMbF3SEaMC9YRAsnNClRUOLLsMa7gwp30N8cObqJirmy4352F JVjsFuk6oErFjn1jxI89S6C5WJjAUaPi9lfhHZn1S3Ca4mlvpUHFSnVSUlv5 EnSaV7RabKdiktZCaG3KEpA9zsXW6lBRdOKoach/S7D/xoZDZvpUHDLp3+x2 jXcfCy437DOkIkHZ6EmT3RIkb9zGNDKj4sO7b8+ICy1Bu2H/vTILKs7mJBGc xxeB6PifmaEVbx5X2uV+Ny9CyIPxKjhIRWLl8gOjLxbBfVlauY4TFTvrZBZd 9BZBuY1aoHaOin164xJC5gvgMlcRkOVPxdvz0m5KKguQIOq3TfUCFb2dBYjd axZg7V52rtJlKrqFOx9sqJ6HidzQLIXbVLwX2ePcA/PwLnw+hRFPRcUovTI2 5S8YGLZHrCzn8T5aazn3dA5ivp90/1hBxZvRp07G+s7BqM8C+lRR0W99XJHp njmIT6ZPtdVRMdAs7bn++CzMCx62yWql4rLrzc7ROAv5lY3Ug+NUZE1s44r8 mAY1c2ZiMp2GEwO9RfwWk3C73/GirQQNrSU3XopRmISuoDFrEWkavqsffuny bwLCM0UEz8vTkP+diujzNxMwus7MzUSNhrGz+5dHUScgnfN186QxDeO+pzSk DIyCrG3pWwNvXn7vUFeVhmEwEWUc+uJLwyd0rd7b8cPgU+03b+pPw597LHU9 XYehVG/TzsOBNDy4ja2U92cInGUi63xv0nCnUrOUqfwQJI04DKfF0VBmdEu5 +sMBqE7Ov7slnoazVrcutJ0YgCl7UbW8JzQUubdwVGzHABgyy/3Lknm84U82 qHX0Q+9bJcHO1zTcvqZ3eKtyP2wI+itJKKWhh9Obkoy+PjDRPlAaV07DkGv5 AU1FfeAznuEqXUnDHTHLR87H9EHpMacMlRoazhQm3qCZ9oHz7sode5toKEar Non/0AtJ66JtgkZoyK1NeheQ3gPVX8d+C4zScOh0aYxLWA9MXdv7OGychvF3 KwbfefaA4cxCz8MZGlrOtXwMUe6B3hbnMzlcHo9tsCcntxs2JKmFDYrRsUt9 75BmVhd4tJzck0Kio/P9OBzx74LstamCx6h0rLml/yoAusAgUOLKdwk6KjYc iyXVd4KdjfC5WkU6GtUciFgm2AmJYcZbw5TouHzlOdOtnA4YKr46tluVjhmO LjmyiR3gr/LbvViDju17izSMd3bAfaEfDm8N6Lz34XyiUlg7tOpJiZ/dScet Z3bbyTi2g7SvXYuyEY9v4AZ/mXo7ZHaxrF/so+P2tWqvuB1tUP3+4544Gzru dTr+XUivDfhPPtx6xZOO5tt1jnEI32FfImdM9zQd+w9wIpQnWyGyWSTjzxke 3zMNFGS2gqTRDQUfPzqWj/7Okb7bCjoS3uKuV+l4IvdvX+fqVvBhmiw3jeHx RwYUuEm3wIflIaUr4ni8jk9etwq2AJ9eyZXyx3SktpNK3w43Q3jatnn9RDpu tLl2PTa3GdKvyY2rZdBRqfLIB/79zdCrwW0hl9KRFqmYaRLdBMR/71gV5XR8 KGFFE7jaBMbVp7/6V/L6qRTavuZkE6Q5deQ31dAx4bx//2rDJjhzrygmppmO /Fcv7Xg23QiLAxdtyKN0TDvW20fk+QnVHHWzinEef6JboOmBRjgaNLLLf4qO Dkm/uz8bNkIpwU6j6Tcdg9eQTR02NMJt3CEWwy+OfoEvJ/b+aADSo99MElUc s1o/JH/3boDdrlmVX+ji2GMVIOTi0gABaic++0mIY3ntlXvihxqgvaIps3GD OBasn/Ag6DdA0vS7e9Eq4rhrX+kifXUDqJqfMyXtEsfTJh3TKln14ERV3vXF WBx33PyV6p5SD1F9fTp+e8Xxy7jsZHVcPcxcOLC50Vwcnz1qixW8WQ+FL9RX Rdvy+Ba676BDPezlm6wgeoljtJT890vEejD55RMac1YcMz8ciohYUw9mLTOm VF9x/NPwpvOTYD1YZv9hiQfw6hdeGPKe5YCtE1/bhmBx1N7YOyTVwvPDxevG 1WLEsdpmmYp5Egc8M6Le5MSKo+dgavS/xzy/Hks4p/lYHLUYLfNfozlw9izl 77Zn4vgr6IHF01AOBEhLCUC6OGYbz0hY+nDg9lVVivkncXzZ/3zBm+ffw05l t9YVi+NthzYND0Oef7ZVj7csE8dAlRup3vociFTTlrH5Ko4eNetrcjU4ENut r3SEI45dXhfr/kpzIA3NwWOAF3vsP6HMZUMl36kTN9cyUKL70ffkYjYMeTB3 6Ysy8H7v8dTyIjYI16tLzxIYOGZVZDb2ng1mz/+2uNAYqOtlM3zkDRtY+26Z GMkxsCp/V++TJDa03E9SEdBh4JX37Mv5IWz4u7BcuFCPgXT7Mv2j19lAd/UY 8AEGCkxpTq+9ygb7bWpPe40Y2K+qtjLkAhu62z6uL93PQKWuXXvYp3g8cq3T V10ZeP2fhyfThg2rwvVY290ZKHslr2rcig2bfz/NmPBkYNf1CW3KfjacqnJz dTrLQK1HcnyB+9gwcXqmCQIZKFL+I/OBARv+5K0r4EbyeDLlfQU2s2Hlvt1X LxUxkH9zw0+X5WyY5/huFPrMwOW6D2JOC7Dhp31iXUQJA/W0G0suLmND3dlF RnIFAyOKlU8kLbHgv9icD1UsBlbMOoXKz7FAckhymtzPwEpF2tL4IAu0bv12 fSMigVOtYxt161igICovorteAo02XPhbUMMC6mPr3HIxCTTnZmTof2PBfOZr /haKBJ6g/gw2/cqC4qbjT7kyEvjA6emFW6UsMFNgtZhqS6Db0cSmc/kscP6S ZjrgKIG2rTHJtUksMPhhrXL8mAQWNT7eHJvIArrA0tru4xJ452SUhcszFnDQ itPqLoE/qoNclz1hgWHRX9taHwksMAyItYhjwYa3Jm65IRLIfC1+WCOSBb3P fl0NzpRASqCDCfUKCz59jnH+ly2B6y1iY8Qus+BRJxpdeiuBVJkXsDaIBdaM 6BX+7yUwb4r7dFUgC0of6od7lErg1tD6o+vPsyApPPyxZZME1kwUCNuf4fFf UsuT5Epgrif9UIcTCxyoRW/YfJKocnba8ddRFtjm7nl9Q0ASM05/ebPoyAKL X44pIyslsZS1W0XGgQU69vfu5xEkse+dlOqFwywQ0xvxstgkiefbHQecrVlQ tpC88bKNJB498vX0KmMWyAVS4jrSJdFgoGeMT4UFE9tOH3V+LYl+neN7bZVZ UDhTKj+YJYk1ay7KZCvx+vHyypnIlUQGgWJ0bDMLrh778k3gsyRuzq5bVbWR BW17fLmb6iWRIrfhecYGFtwnMo/7L0ii/NXWks9UFvx7HaK6zkwKfzJiR4SF WDDy+dlkp4UUhv75mOm5nAUN7ILcTCspPCBS218tyIK02TEdi0NS6F5189Vd AV59/UN77jlLoW3xmXukZSxIqdnotPqCFO60/tcY8IcJe39+jVrxQgq5S1WC H/qZoL7Ua9OcJoUtidcUH/xgAmPdEiX1lRT+m94ndbaPCZPqW5/sfiOF0Tvi r2/uYcKji3HpN4uk8JiqNPllOxN+rfIsE6iXwo5o/Zaaeibv/38jpL5RCl2c iH25HCYUqzzZl9wihecs1+cnsJkQbcVhGnZKIUd8It+byQSDOJ32a8NSGHwt ZLXsNyYovrJ5avWLp5cpNhetZgLho5ezzLgUlgYI2fBVMWGoO2moeEYK03UU 0rsrmMCZKnoV+VsKAzXf/WF/YUKRYLOX07wU2ggWrSwvZ8IL8uRWtSWePuxB a14ZE6IUV8/++yeF/aaxnumlTPg/yMVTKw== "]]}, Annotation[#, "Charting`Private`Tag$208435#5"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], LineBox[CompressedData[" 1:eJwVl3k8VV8XxolShjKUO98bGSoSElKsRRkSKkkqlAxpMkspQ0JSpIlMRVKS kIRUipT0S8697jUkQ2bKmJT5ve8/53y+n7PP2Ws961n77C13xNPadYGAgMB2 /uX/d+bpKxUNhlTwucWNlHac1L/u9ntZ5E8XGPxx34IqH2fwUrc/PzjMDxZd 1XVVks4zWFvWuF/vWjCUFL9NbjApN6iRcxGctgwHuYDLr7bHfTWI7Grm2dlc BuG/E1HDnAYDg0d7sosOxIL56cL9zFU/DKYLXSE6/zpYLVlvoWPda7AvPn3N yw23oOLcRtdfAUMGhQEtMn1F8XB8V4t4vvlvA8n9lDlZvUT49lP1Qz3vr8FJ vb19xm+SoSLiieF4y4zBJ9p1jh/ehR85yoeqNAThRrBbK9spDZ77ebvd2iAM 6Bm+51hGOqwJDstO8xOBlF3v9O8oPQDmrc+xJ14sBXPD1oL17pmQfCVxovaA FPzTmFGuevwQrnYdCZsPlAEbGV3pCdXHUCQztF+UToYFwraXYjyyQU/DW52S SoX8cd8ZhfwnUDQudvaBAQPE6/N69mzIhYOOS5599JaD0o81B3/65YGRuV/K ld/yUNjs7254MB88v9v8LY1QgCNfbrY0pjyDdY+6lEOblaHsaW2VyMpC6M0S F061XA8rHjqG1b0rBFOPXwmNj9Xh5N3BLfecXkCkgB9j0wsNoF4TK9DOKAKp cZOXS7o3wGkv0xRXpZfwghu8TvOxLtS419tqVL2E3Dg3G73hTaDg5Co1e7QU HMKUA5/obwbO7ouRtx6/gvR/r/NqfuuD2oa3Xu9Vy0DMaW3xzQ5DiFCxUrlW Uwabh/9zN31kBN9XtXQf8HgLP8OYMRpeW8E4Omjd5L538GjSY+rRUmP4HZh8 Py6xHAz3UeOXBpvBTvuGq2/plfDLvHLxhPQusD9v9bDPtxICjmuWL7i/C9xT PryV+q8Szr/oDQ7esBtCvz8fcz77AcaPDV1742AN+fZxdovrP4JdUL/R+lob kHTYrrD7WjUYFB7aaaZwAOhB7/QDe6rh9PJbjICmA7A6VWdfhv5neDJl1vwn 7iBgi2L0n5+fIU9IPLlxkQN4OywYSTT7Ai9q/c+NLToMHIdXrzoEa0Hgi/lF za3O0BqkyRPbXwsbv0jbxec5w8/Ux0Na+bUw0dR0djHDBRYM/xe3dT0BbwL3 NyybdgHq+tL3t1sI0CW4yj7v3cA8L36Nnh4HTAqa96RePA7ZeTv/hP3mgvnF SolqO28osniqpkXnwfyGHTv0E73hfb+oe/c2HviG0MMlvnnz9f34zTSeBzRZ /1Pv7H1A4s6Wd+Kb6sEF25Td3HzBK3TNlfjgBiC3jMsfjfYH7d1CctlLvoEW y83HTCYQyseKLNisNgja1OO2aVkYnGltWVdk2gZpKb+VNTaFgdpn4WXJnm0g kemhscs5DJLSrdkub9tAW1xbT7gkDDat/rv2/Pp22B3AIhk7XwSphht5y2rb oer3Tl2t8nAo1/pcor20A0YWxciWJl0CuRHd/8KvdkHBOzF0KIuBgQeSz23+ 9MPbx6hmfzwegqbWrC8VHIYEW4lzOU53QaKKWbxGfwxuJt/TzBvMAP9z+nX5 v8bBdv35Qa3BLDASCHq5wOMvpG2F99O8p7DiwaYLHopT0PZERetk3jOwIJNk MnNnQH5uXVjnvkJgBlyWk1WZh48tPy3/my+CwMDXUcSQAC7ctemD2s+XcCe9 0nVafQEOmpj+1sh+Dbp2VzZsiBVCDPl6UfrRW1AMT4HF3cKYcvf7hxvm5WBM LsuvUFiE+to3o8MeVkDv5rvS0SEiSFHtnLrJ9/Hrqtgm7feLsSSyPOmx/weQ 6dS/PiInimpBFFfo+QjFvjqXTAPF0N7cOy93+yeIPWnYcfGVOFK+d2oUxFZD 7/gStRrSUow5f22FRu9n8OnuaJ22X4bskyU7Rld+gUxFod5OS0mc2XGxdtKi BqxXjtsSU5IY8Ucjmh79FSg7T51dnyKFfxh31jtn10L6B+PlK3ZIY1/hc+eh kwTUnt5qVT0hjYRIcU7nDAEk+2q9kXgZrDt1SzwwmA0rL+feS922HPWyZj50 LeSA0QCt+E3PchzNrnJ4GsIBscjcUzkRK9D5Zb2f2G8O3D6WliKnKYuVQzcD bp2sA90L1OAldbIYmHh0N+V7HRT1XNB5z5NFTd8ae4HWOthg0T9yvlEWt+hc mOxtqwM1UonzSIssOj1cufBlZx0oPN27vaFPFv8JKuk5/6wDqaa45Zlzsmjs NVXTOlUHA+oiT3AtCdc01fVnUbngHu/hMqVKQt7NlqXP6FzonuYxCteT8O+N XWWlTC60f3wQp7yRhFIiod858lyotzc6vRRJ+HbN6r+yKlx4HxVk+H0vCcmq GqV/NnMhpf13Q8AFEi513FVncogLA26K9kLhJGyS/q1zzIkLuoO27bGRJMwx dW2KceYCd/JlX+YVEt5S2TLUcpQL4jKhk3W3SShwtWtlkhcXzhuL09SzSegm TKhfD+PC5//0773KIWGKpsit9nAukK09V5nmkVBfN2JQ6xIXCh05Ko6FJKQ9 V2ANXeHCr4A7W66WkXDWnVX99DYXDmYrOPZxSHjA2Gz1m2wuZKnbdvjySPgi 0/zq1adcmCi65DbfQMKR9qhjR/O5cOP9gIdsCwmFnx7TNiziz/89P2RbLwnN 75IK4ir48zt3CBH9JPRWWBVQ9YELbv0yUQd/kfAmoSMiUc2FBROn43xGSRhq eVfrYy0X9Jbpp6dNk9DQgR0208KFqNseiqpzJDzd4ebw4gdfX1ra42IBMu4s LDwU2s0Fn9VCBV8XkjGgVSzGapAL2YbVFTPLyKiwf5NCwywXqH57u+wUyFhD +y/HWJ4H1teEMhqUyPjvveeiSSUeXMl+5mS7hozR6xZvKVLhwUy7RNseNTJa dZ8zM9/Ig1bLj01WumTUbtNY98aMB7LH/O7U6JHxQwMlP8OSBzvD5fdZ6JMx L4XMumrNg3elwdztRmRUv/I6yd2eBxnKOrXbLMi49GCsyS8vHnw36o55b0VG vZ+vCvef5sFyx5sWRrvJOKjuETV6jgeRt4arwZaMmhbti0su8aAsLzWqzI6M xYKd18ZiePD38w5T/YN8Vh1R97zFA3fBrEq9w/z4hlbFmdznQRrd9uLLI2Q0 3pIm/PQxD5p0hI10XclYRG7wPvqMB+Yeh99uPE7GVd1R9PJyHqg2k0vV/cj4 37UnXoe6eeAy8fFM3mkyNpTfDnw7xINUKX8dtbN8fXmJSVv/8WCpGbtQJZiM 1pSShnti9TBSeDlPKYqMIcfO+jtsqIfVhI5HZjT/e3MRQSn69eD0s1tVIYaM h8tg42KzeuDIGWXL3SCj+4Ol50Mc6uFF7NQDegoZubR5q/Qr9TD0OMs5+S4Z HeLW3vudUA9KH2zlqelkjBldV5L0oB7uTBfcIz0kY69L662BsnoIdD+RJJ1P xtUCTnpZf+uh4CJl//UCMm6lvpAsWdQAP+9WkSRfkPGG5dXRVbINYM9bdVui lIxLujVZK7UbwMDo+7XFlWQUIUUJrz3XAPHfTri/+UjGlzavytZea4BBn2n0 qebXe63n5YqMBkjJoI41fyWjQIs14+vXBpgS3m+T18Svx6KikJeqjWCd2qfq 8p2MwnWeej3GjfB445mFlDYyxmnOyHw81Ah2bglFYV1kLNzLs8q+3QjFVTyy 7TAZSTU5m46INsHSw66jomNk3Lb+2ObINU3g9m+8+u04GWk7Dh46v70JZNcs P7dmioz6TIn3o1eawC/aumVGmIKdoepB12nf4It8x4tnIhQMHXuc88PwG6x6 5R3rJkrB/e7bPbYc+wacn3FALKPg538K6XqvvoG6ZW16BpWCWcJ3/p071QxR 3Y6BdgwKfnFgyJqlNkNb0JC1xEoKRk++7jj7tRlicyWEAxQp+Kfh0Xbjjd9h cJmFm7k6BVn/XameXNEC27KaDeY1KbjxXOh7d+sWSMETpMKNFMzJqPyRFNcC Ft7RnxibKahuWqrjJN0K2ZxPa0eNKfgg+biWgmobLDhhJ/TQjIKt68q5jgFt sF+or/nADgo+WXGlJaGyDRZricRU7qLg6B0aPVGzHdxuGw8nHKTgV2UvIfn2 dihbx6uycOTnUxWTsHfpD1jx0SVN0ImCleZ3Vj/X/wGVExd3n3Cj4MdFRqvn 7v2AVXYVzw28Kfgp+zPJ17cDzKXo+z74UtCR3tI586gDfD77T+04TUGzSO/q 3y0dULFljeH+c3w9owMTkqw64Yhc3FffCAo+XfT15+9tXRD9rd976hIFrZbp CFZE8vclN7euuBBNwX/b8j1In7tgwaK/B2OvUfC15UCZ4N5uuD/g0J+VSEGv jivVBWd64HNG8dX1KRSs8JnmbajsgTF7KfWiuxQsUU8+nCDVC0a1laffZ1Aw UCF3o9yLXuh4riLc+pSC3w7cuLFPrh9ET0U8csmn4GT6qMPF0H7QVGoz/1lA wSG56/80f/RD2J0b1/8VU/BGg+eUyeMBkA+aZMpUUJD+T7hI8OAvMNfeU5FY ScHj0i2F72t+gc9wjuvKKgrWXEjwpRkNQoXT4Zx1XyjYIuXC6FAdgiMmVZvM 6im4YjDiUcnSEYieX9nytZGCPMEHnOPWI1BQEhi6t5mCKY/CcvMTRmCBilrV kXYK7v6pq9WuMAr3l922CRqgoOXKoz+7dozB509Df4UGKdhjsMDOOXEMxi6Y JUcPU5Ajk1bysm8MjManfySMU7Dv76u6squ/oaPxiGfBHAXTKXFNzL5xkL+v Ht0rTcXXxaYrP/f/hWONJ0wfrKDi5Gr3CbeD/yB/6SNhJzIVmzuHFVVq/4HB OUbINwYVnRKt1huWTsIBG1G/mtVUvv/UnaYSpuHGoi6H5wZUrH0Vbrr5+Tw0 bWHRvAyp+N5QUFaVKYArfQ80qm6j4mbfP/JdRwQwt42wfridigarH8l+GxTA zyVvTBNtqJjq0T00vHgBLjiRoBFynIriuxpVpXcK4/Z0ztDmU1SsrNwr8TVB GOMaJHL+eVLRkGjdLdcujMxt4Uo+/lQMUpWctPRaiHoMb5prKBUjv4891b+8 CC/syWmUu0jFFds7/yl+XYSfLvfebo2gYkvWJusUaRG0nXCQtLvCj2dJpeRc ggj61Jov3BFPRbfX7rNB8Yvx5cLICpFEKibuWaDzibMYBbaUh1QmU/HoRrhz T2IJxmbpTOmnU9F8wcVP7SFLkNfqUzyVQUXhoWuFEUVLkL4i16/4IRU75UkL fgwswewLCsPqOVTMFHo20mopiqPFh3IGc6kYTFCzus6Lou5Q0rHsZ1S06bYV +v1YFEMU6pWOFlKxZPXaMxVcUfx4QKprVTFfT+/jhlqzoihx3SK9/SW/fiGC GVqrxNCm6pJj6msqLlra+q/JRAw7Nsw1ylZQ8dpQ00zFJTFcPv+C+FhJxfmM aLvdD8TQ+POpT6erqAgdMZy9ZWJ4+rbiO6XPVJR8NyddxxPDrMMtxfVfqFgw Mx8/PiCG31Ru50XWUvFQl5IWd1YMxf9aPNLmUFF+9Vj30aXiaFAhfK+HS8UP 5p4JSXRx9Ix5HR/fQMU7iTbR8qvFMc3OL9bkGxXpXe6b76mLI2eVauTEdype EFnyRlJbHIWHO4MetlHxto/l7cWbxFG7NNnftoOKD1szGQJ64ugesefUom4q TqdfLnquK46Ju8Rci3qpmOIwp5+pJY6fae/t3QaoOPqhd2/qOnGc6Qm0kR2k IvlQxJbcVeKoVqBp8XGYisfJCfWCJHE8FDSw9fQYFSXGVJ8ILxbHOLP7m5X+ UNGTLS+36q8YVsgc2FD/l4pvDuTspHeJ4XirlErkFBVN7Iwb9b6KoWJ2tbz2 LBU/hcrEb30hhrb+F6g981ScvavFG0sUwyjcJB2/gIZc37TJf+fFsFRsdInJ QhryhO1uTjuI4c/6LMEJERqayFQr6G8RQ6tT5NG9EjT8UGyU+XBUFEN1ib6F kjTcwnbu3PNZFAuEotpfSNMw/rFN+7c0UVyR9Ld2BZmGUQtFm7jbRNHENa/q A5WGfRN+HpXLRfGM+tG3/gwapl9WuePftQS/f6zP5cnTUPRJTnp00BK8//tF zO11NPSVK6dsvr0Y1Sz9dqzYSkP2pvX+p+4swsNk1a0fjGlouEvMe2jvIrze 2annb0ZDl4Id3h6Si3D87J61PEsaZkTdPbHt4kJ89VBzyW07Gv4SvL9x1ylh NBMY/bjcg4bzByA1TnsBmv/yuRzvRcPwNQHrd44LokXj+A6yLw1PqL5SLngu iLvy/xG0MzS0f/ixI15LEO0OCzTLh9HQ9pqGj+sGAXR/t2xYPZ6Gl9WcZROT Z+B4zvVnBXdouP6S1v1TSjNw8o6Mn1YyDUXqblZEP5sGLy/SpE4aDXvIY1JX qqfgzEqWEGTTkH7ubeZ/tEmIClUjWZbR8FZy1qcPk38g+mR+09d3NFSUp959 lvQHrtpppux6T0OnTLM7nVv+QJy6tpzNJxoGxL4Krrk0Dnfa9VUOcmhIjvvg XabzG5K+vB38zqXh1RFNK/vOMUgpMcx3bKBhtu2Xkq9xY5AWZ7zxyHcaHlDW O3h6YhSy0BKO9fDrYfRIcSV7BLJVawV/9tGQGXxDAa6OQA55d+XJnzS8bfb6 mqLpCOSP2Gz3GqFhk3u7aV7EMJSk2e8JmKJh7NUrM7fuDULp1dYVkzM03LuS FpmtPAivzxxuDJynoV/cHbOCgl/wbpeLQ7AwHVuok/Ofqn9ClcDJoxFL6Rg7 Ln5tatUA9B2r3aovRcdXIbwcxRf8/2Wd5so/MnR0ntd9GmLWDxaZk40uFDoy dn9khQT0AbH9kvk2BTreqhdPtl/QC6MFA0ozSnTMmQs5cvJRD0jTrYQK19Ax 6CXlpKtJD9gMLX+9aj0dE0dqjFLjuqHxxv11Qnp0TDjMUKTs6YLJ6YWir7bQ 8dK+hxOGIl1AdT3W4wN0NFZcl2Bf1gn2Our3OrbRsaDpS0CReicEpd08l2RK R+Uuk/9m+zvg7pK/+6zN6fhwQ3X5gQcd0N78RrJiJx07LobN9zA7QNBYbvCs NR0X/B69VtL2A+Rzw6s19tJxtC0mxC/jB7iE7ghLP0BHLXnJa6c2/IA+habf oa50tMkwHp7a2w5LYrcQuu503H4mfzqR2Q5r/97LGTlOxxjpIv8+XhucrHZz PexFx7+a2l6GzDYYOTVeD+foOH7J4z+fzy0g1bDv+d8gOup4p4nYn2sBTXx1 LS+Ujk9ONa65vrYF/KTDzFiR/Hj/qN1xifkO/4qWlc7F0bGiZLfLXrdmoKz0 jS+6SceT7yczfenNoHe53scjno5j62ZIXo3f4PzBVJXWZDq+u7x/52ubb5Ba KbA4/i4dg6+lTfyW/sbf/7l0WabTMaL2vxNf2U0gIKCS+uYhHX9z3ZR/2jWB 3LHYs/6P6Tgd3vBBXr4JjDije9fl8PVS0PR+OtgI4Q9KlqY+o2Nyimy9akgj LN5uEnr+Nf/5N0ZFagl/v8/xVV70lo5+Q+Mb567wzxf26V+vldPR/vhGBVfH BvjqNUPP+MiPJybOM1yqAW7eKXhZTfDrNVDR23uhHsLl2w/vqaOjrIr36q37 6uF0jsTiFh4d90ctDdFXq4ej2pvz3BrpaG3yfI3Iknqwe+duO/KNjrOUmPXG Pfzzm3n87NkWOpYKmQ2EVvJgM/f9A6F2Oh6TTLEuecA/zzmO7ojpoOPPcs8Q kcs8YPYxf8t28+cLidy+xpsHkj4WSWm9/PeddmeL7OeB4MxZw7UDdKxPPxxB 0ufBWMSjvue/6JjqdXt+N4sHXct41/SH6bjQdiquTIgH2TpXVF0m6Zih/aF0 9gEXUspL6gan6Xj4udklbjQXYnb0BAbM8ftnb0VsoScXgnky8oKCDNTS44w/ sOGC1yHD6mghBgZk5HFy9Ljg1O/htXwRAyc5YXXp8lyw9k0h3V3MwM4aDykj CS5sm60uUxZj4Ee1Y/4qU3Ww8dJf12cSDNytujrpZm8dKEkpSmyWZODlRiqz ta4OyMnWhZXSDKS+oa7oLquDJYqhB61WMDDEaW238OM6mMp9uqCRxEAfofxT e27WwS/d5sdOVAYKbZVs7w2pg5aKxbt/0hmY52na7eBVB18ttP/5sRjYVZ85 m3WkDt7VO9+bk2MgW+5eqvmeOig4fN0kSoGBmh2OmnTDOsgYKBuUUmYgpWdA fcn6Orjl9+tW8hoG3mhGM+GVdRA5R9miqMrAuern5yJk6sBCiWjcoc3XQ/vi /pPfOGCQPxvC02VgKav0487PHFivp6J8aDMDl9iR5GZfcmBlpd3XPn0GBpfd VvnwmAPSVpH+PsiP75K4RlESB4Qan9NnjBi4NiP4ycJYDow7/XgfYcznM7Z6 Fy9yoMF/i3SiOQPDaivdlp/iwKf5Yy/lLRmo2P6qvuUQB0ovJxzO2cnAK7nG sTp7OPBE5oOItjUD110y3q1lxoGU1LHctzYM3LdOdH6rAQdilVfabt/HwOon f8+kaHEg5JnlLGc/A+UmPAYVVDhw5EPWjh5HBvbmG5KGqfz8uqzXOTsxcMKR WDcuwwGq0OzSdmcGqk/RQhXFOTAh92jE3o2fT4CaaN0CDnBwN6fJnYG3zqoV P/jHhtxD089tTzCw5q9Ee8AQG6KDM2/XnWLgCffM5PouNhi9nrSr8WGgSfVJ 9Zw6NjCbM/TM/RnY9DD30Mh/bJiatKRXBTBQfF/NLvVKNhTo3G97d56B5rUu 5mXP2RBra1GuH8LAq6SClndP2HDcf+J+6QUG7q85s/LwAzbIPzd3K4xkoEjt V4GaeDbMscdNNS4zsPZJ/I+9cWz4NnJ3Te4VBnpc6J7dE82GomXbxVRiGbg6 +GWCRAQbbqj9/vUojoEPLdDkaCgbFmQn+yYnMTDQN+hZ1Ek2tH4y3ktO5cdz aqq/5ygbSnuHtW/fYyDMt1bpObMhflESWfo+vz4BA4duOrDBR3HbVOwDBr7J jX+6x5YNVtuGmsUeMbBEkjXna8WGtc533kQ9ZqCVutcyN1M2LAozurcwh4Hb an4EKxmxoSPtV2hYLgOzk8uTtQzYUPY2/sh8PgMHftW6VOixIakVt51/zsBX BXY+ijpsOD07oDj5goGCCZd3iW5ggzX9tsjpEgbuzOwTVVFjg9pm6B8rZWDx /nCb+NVsED3Q/9nzDQMzFFauWbiKDT1nbub8esvA14KCnK1MNlQk6Mceq2Bg 7GCCaBqVDXeLej17Khlofydb+gKJDYG867udq/h+kT/8Tns5G2zHN29or2bg MXH/8DOSbNCU6Vnu8IWBZxRTe56Ls+F+bGzyrnoGsgYzte4IsCH4qW5QTSMD m/XmVjnOEHDgS4ejeTN/fblkemDZPwK0f17FqhYGPv2zufPqOAHSojry29oZ +HvHsDKOETC0+odQeQcDbz+JW+g7QsBn0yvd+t38fr4s2L9tiICHbhurSnv5 +efVOK/9SUBYRFuWzgAD334I8k7rJcDxweXowl8MTOj3NtvXRYDe+w0nNYYZ yEl7vb3uBwGyHS2WuaP89cT4ZnlTGwFjAlHrVcYZuPB7qchMCwFHzqsXMecY KLPwW9tHLgEO5NfP2AJMPO+Yv/YEhwC7QtOn4UJMPPBhU/YCggCrX44PBhYz sSCSHnr6MwHbowbupYox0WVKJHRXFQHbFE4n71rKxOQW0YmZ9wTAO8EEISkm vvGGVW/f8eOzj7lRJMNEP3rGzZk3BGz8R449JsvE1FmF2qWvCVC/9eAyncLE c+W1x56XEqCirh5RS2Oiz9nDu+AlAUpfXoWGMZkIkGcmVUyAnLvp+Y1yTBT5 rK2sW0gAXbguoG8VEy831L81e0YAKc3RN1mJiTRlC9H6XL7+WwY8rNYw0fJ1 25LJHAIkGv2PC6oy0en0gV+7nxCw2E/QrVCNiWcZS+rPPyZASDLG6agGE19V ZmrYPiJg7gnZgarFxOrs11fJmQRMmj6wq9Fm4sKrmb8WZhAw3rneJnQTEzOV 8m9tSydgOOTVzg1bmDj3Zodb8T0CBmimO3oMmKhr36+tc5eA7mKOSaIhE9cR rmOPUgho3+NoZLGNibMzGpJyyQQ0D/frz5swcbeL0PSnRALqr/hvKtjO13vW q/jtHQLeT2coB9swUXXRAkexmwSUJaxfpbGPiblq8dvfxxFQuuEVs2s/E/9Z 3nhGxBLwotaEmmDP5J8zn0dHxRCQf4KzwvwQE0OebtuZfpWAJyKOUrNOTHx3 5qJvxhW+/zL6xfNdmGh3e3U/PZqAdPBf7HyUiSNP4molowhIaRYQlj3OxFNx Xj0jEQQkBFyd/3SSiVzGrMuGcAJuyJCnz3kyUfJxZ4nyRQJi8jIm1HyYuJJE NrsTRkDUjvVjP/yY6L3YYFKTzxd7SwdvBTBRyVFqU9YFAoIvmvSbBjJxe9Gf hNZQAs6yOF1T55kop+NzaTiEAL9XDu1PQ/jfnxELnAgmQOEcKbElm4mHnO9L CJ8kYETn1KEjT5kY0cKSazxOwKvxCsXePCbu97CZv3GMgMhn5F8nCph41PPL 5b3uBFh7eBSMFDKxNk1qEo4SwFSpPONfzERZwoJ20I2A/l4KTL1kokeJpO1N VwJCnT78J/SWP79dd/FCF369TH3n1tQx8aHv3kP19nz9hKsrc3lMvJVzdeEy PvuUM69saGTiheF3UboH+X7b/Jmk38LELZunnE7u568XanIau3r5/eE7lEmy 5eu3vNb59DQTX7Jcs5p38vudrbB2epaJYx2EihKf18QGjoQIsJCdFRh93oqA dyJKQZcXslCg43CxriUBg1Pn41OWsfD8aFS6jzkBJcUcezlpFroOqe/N2U5A uN/qVQ+Xs3AhbT+t3YwA6lBdXh6FhRlsIevNpgSY/VhbXbGKhXnGgeldWwlY fjf0mqkSC31lPTNk+Nx2oH7vl9UspH/ZtczMiIBskip9twoL/bSFEiIMCTjN vdDBW8dCY+d2UQIJMLrekHVAnYW5jKAtKnyWsFrn2abJQoWhrLkkIKBR9OJG l40sNPDtmZDn84Oqxuk+HRaaMZK0yg0I8ApXqzilx0Ln6tGtp/i82TA8amwL C0NHzu5i8nnRXJNVALBQbrAr7D99Ajil61fMGPLHT4sKnuRzakBEc+g2fj7m KSMTWwhw12pOX2jKwjfud4OO8llrVN09ejsLg6I+DVdsJmD+aaTaMgsWPtCL Z0nyeeBt2mirFQsDvn1bjnoEcNmlhbm7WfjsylJ7r038/uvkBgTbsPDA1rLw bF0Csv4M6VntY+Gxia8jEzr8eoosmWMcYOH8v83f9/I5iLKqfNCeP15yklSp zfef/j7TmCMsnLh5vaB8IwFbdnqLOriyME7l/iNzPis5XalRdWfhfitdWr0W AZK+mXEzx1nIzeJKOfF5Ovztni+nWKiW9Ifbt4GAnvgm2RQvFu46bvTsOJ+J rN9NJ3xZmHngxFinJl/fL8qHxc7y9b8ANc80+PX++em6yEMWSi1/vPy0MgGa sx02DVksPLcm8+ZyPtOXzZIePWGhB+PTrzwlAkY1Ne6aPGOhp23SHE+RgO/b djjJFvKfd9bWHObzR1tXhZ4iFjZ5KV3qUSAgKTAxO+I1Px94ONC5iu+/q89P 7X3LwjX7LNTs+exxt0ZdsYKF5TSJa4Q8AVsrBIsrq1jY2iXyPVeOgF9Ljr8X qmNhcHDf8R0s/npIC4+s47HQVJqdmcvk+3/d3e0ZjSyMLqA4SPH59m5OrVEr C7/5W9s30AkwSNT7fqGfhfozIe5+VAJWP7G5t/sXCxd83GLZQSFA5o3HEblh Fpq3eV7dw+e+9vt978ZZ2MU00QMy309jr5/E/WXhSGSC+ksSAa+FGzwOT/HH r14dv5HPD2VHNdRnWfjJM1GtUJaA66vF/szPs1BkZ8AbLT7/D7sex6U= "]]}, Annotation[#, "Charting`Private`Tag$208435#6"]& ]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\[Beta]", TraditionalForm], FormBox["\"c(\[Beta])\"", TraditionalForm]}, 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 -> { "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 -> {All, {0, 3.8}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \ expansion\"", "\"Low-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\ \\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)expansion\"", RowBox[{"n", "\[LongEqual]", "8"}], RowBox[{"n", "\[LongEqual]", "12"}], RowBox[{"n", "\[LongEqual]", "16"}], RowBox[{"n", "\[LongEqual]", "20"}]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.790882453336982*^9, 3.790882501867523*^9}, { 3.792374664527342*^9, 3.7923746907782507`*^9}, 3.79237474803944*^9, 3.79237499411572*^9, {3.792375026306861*^9, 3.792375134052556*^9}, { 3.7924029902370977`*^9, 3.7924030406404753`*^9}, 3.792403090008027*^9, { 3.79240312149918*^9, 3.792403131515787*^9}, 3.792403267420866*^9, 3.792404636833185*^9, 3.792404705061488*^9, 3.792404770664214*^9, 3.792404832025153*^9, {3.7924048760483913`*^9, 3.792404882613935*^9}, 3.792406490904468*^9, 3.792406637758203*^9, 3.792407145350552*^9, { 3.793457972918446*^9, 3.793457981677313*^9}, 3.801993531088336*^9, 3.801993840422288*^9, {3.80200117688089*^9, 3.8020011925311527`*^9}, 3.8020866850937223`*^9, 3.802086716606737*^9, 3.802086751096583*^9, { 3.802165942532137*^9, 3.802165953078238*^9}, 3.8021661564482603`*^9, { 3.802166275396001*^9, 3.802166302092602*^9}, 3.802166522900576*^9, 3.802177643344718*^9, 3.802353533774496*^9, {3.802419573869814*^9, 3.802419600668242*^9}, 3.802419642563301*^9, 3.8025515949663277`*^9, { 3.8026892051075783`*^9, 3.802689248070465*^9}, 3.802701603517775*^9}, CellLabel->"Out[88]=",ExpressionUUID->"addcb650-971c-447d-9e45-ff6aab4a2549"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", "/", "\[Pi]"}]}], ")"}], "x"}], ",", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", "x"}], ")"}]}], ",", RowBox[{"c8", "[", "x", "]"}], ",", RowBox[{"c12", "[", "x", "]"}], ",", RowBox[{"c16", "[", "x", "]"}], ",", RowBox[{"c20", "[", "x", "]"}], ",", RowBox[{"c24", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.00001", ",", "50"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Beta]", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"Italic\"]\) expansion\>\"", ",", "\"\\"Italic\"]\)\!\(\*\ StyleBox[\" \",FontSlant->\"Italic\"]\)expansion\>\"", ",", RowBox[{"n", "\[Equal]", "8"}], ",", RowBox[{"n", "\[Equal]", "12"}], ",", RowBox[{"n", "\[Equal]", "16"}], ",", RowBox[{"n", "\[Equal]", "20"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", RowBox[{"{", RowBox[{"Automatic", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"Black", ",", RowBox[{"{", RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"ColorData", "[", "97", "]"}], "/@", RowBox[{"Range", "[", "5", "]"}]}]}], "]"}]}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7897457807422733`*^9, 3.789745832490975*^9}, { 3.7897459208379374`*^9, 3.789745986715302*^9}, {3.7897460206302223`*^9, 3.7897460455314837`*^9}, {3.789746088758369*^9, 3.7897460916675463`*^9}, { 3.789746404389237*^9, 3.7897464044512587`*^9}, {3.7897468671247663`*^9, 3.7897469324195147`*^9}, {3.7898168197536173`*^9, 3.7898169067292557`*^9}, {3.7898195108437023`*^9, 3.7898195343107243`*^9}, {3.789832003730896*^9, 3.789832020151675*^9}, { 3.789832149993394*^9, 3.789832167007585*^9}, {3.789832405514276*^9, 3.789832453208054*^9}, {3.78983251872959*^9, 3.78983255469631*^9}, { 3.7898604238537827`*^9, 3.789860423945956*^9}, {3.789864931880006*^9, 3.789864939343019*^9}, {3.789865027552593*^9, 3.789865029328581*^9}, { 3.789892821605682*^9, 3.789892821829767*^9}, {3.789893469770935*^9, 3.789893523416409*^9}, {3.789896909604662*^9, 3.7898969280516768`*^9}, { 3.78993271416635*^9, 3.7899327158509693`*^9}, {3.790501039529852*^9, 3.790501039713043*^9}, {3.790501336673828*^9, 3.7905013914221354`*^9}, 3.790687109212183*^9, {3.790882229195242*^9, 3.790882338816361*^9}, { 3.790882392082082*^9, 3.790882410199548*^9}, 3.790882481218687*^9, { 3.792374703041896*^9, 3.79237470544767*^9}, {3.792374752269224*^9, 3.7923747523930387`*^9}, {3.792404902068869*^9, 3.7924049086980267`*^9}, { 3.802086743964109*^9, 3.8020867457475*^9}, {3.8024195819822483`*^9, 3.8024195828431683`*^9}, {3.802419647305911*^9, 3.802419647693857*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0]], LineBox[CompressedData[" 1:eJwBcQOO/CFib1JlAgAAADYAAAACAAAAH5kSIJ4GJ8DRZMLVkzktwN5e/Qwy BCfAkCqtwic3LcCcJOj5xQEnwE7wl6+7NC3AGrC90+38JsDMe22J4y8twBbH aIc98ybAyJIYPTMmLcAM9b7u3N8mwL7AbqTSEi3A+lBrvRu5JsCsHBtzEews wNQIxFqZaybAhtRzEI+eLMC8RvyDisMlwG4SrDmA9ivAOJssup4mJcDqZtxv lFkrwHxDL/PGjCTALg/fqLy/KsDzubga5eUjwKWFaNDaGCrA/kY6TyZKI8Cw EuoEHH0pwDyiQnJdoSLA7m3yJ1PUKMBDUR2YqPshwPUczU2eLijA3hbwyhZh IcCQ4p+ADJQnwKyqSex6uSDAXnb5oXDsJsAOVZsaAh0gwMAgS9D3TybAcaZ+ lzoHH8DrHm8Bk7YlwCs/1NZcuh3ASOsZISQQJcANBRowxYMcwDjOvE3YdCTA VWdtZhkzG8Bcf+ZogswjwC9xZaKV6BnASYTihkAnI8AxqE34V7QYwMuf1rEh jSLAmHtDKwZmF8B+iVHL+OUhwCd8KXj6LRbAxYnE8fJJIcAcGR2i2tsUwEBY vgbjoCDAol210eKPE8AG9RQ9zvUfwFDPPRsxWhLAtGadhhzAHsBk3dNBawoR wMh0M61WcB3APzG0BNehD8ADsLnt1jYcwNv2CZEnOw3A0ZLkM38DG8BC9XrX T6AKwAUSHVcTthnA+E3MUQQyCMBgvkWU7X4YwHnfOIaQjwXAIQd8rrMtF8Af wO7FbPkCwHT3Vs6h4hXAFPuEOdWPAMDuFCII1q0UwKjdbM4q5Pu/zs76HvZe E8DIeZCRwwH3v9a1w09cJhLAL7RGa/w38r9wRDGG6vMQwFnAZnLJC+q/3t5Y M8lOD8CTgcHdylngvy2PL45J4gzA5pckxqxcx79GeCGjoUEKwAhjblkdyr8/ r7vz64XNB8BbBH+15DDbPz1OD0C6ZQXAzVTkIUII6D+UGUZOxskCwBffw4zw 4vA/PT9dkF5aAMAxIl+UECr2P147Hxmdbfu/BMdnhZBY+z+MlhYoHT/2v5zb Vwf8FgBAWKbOnrVp8b/rmuAR2LUCQHRPehP7V+i/6f+I6CcoBUD4drFxdx3d v8QV6LMnjgdAO5BxLfLaw7/ILr/W1ssIQAAAAAAAAAAABzanTg== "]]}, Annotation[#, "Charting`Private`Tag$208552#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAA7zn6/kIu9r8AAAAAAAAAAC+0Rmv8 N/K//S2cnTSyz79ZwGZyyQvqv4SzjYu8UOK/k4HB3cpZ4L9K8jIguwLsv+aX JMasXMe/86Y1Zq1C878IY25ZHcq/PyAgkdTkKvi/WwR/teQw2z8G+1ksfPr8 v81U5CFCCOg/KzL2BzIZAcAX38OM8OLwP4MM38WZiAPAMSJflBAq9j8QrqzJ KSwGwATHZ4WQWPs/egAxwmnDCMCc21cH/BYAQJT41IYdLgvA65rgEdi1AkDj t12R+cwNwOn/iOgnKAVAcA4DtKQfEMDEFeizJ44HQF6ZspmkUhHA1PIrxU8o CkDmh1SiuJ8SwJV1j6LrlQxARkkGkYbWE8Aa5zo+w6AMQAkC3F7y2xPAnljm 2ZqrDEDLurEsXuETwKg7PRFKwQxAUCxdyDXsE8C6Aet/qOwMQFkPtP/kARTA 4I1GXWVDDUBs1WFuQy0UwCum/Rff8A1AkWG9SwCEFMCwF6mztvsNQFQakxls iRTANIlUT44GDkAW02jn144UwD5sq4Y9HA5Am0QUg6+ZFMBQMln1m0cOQKQn a7perxTAdr600lieDkC37RgpvdoUwPsvYG4wqQ5Aeabu9ijgFMCAoQsKCLQO QDxfxMSU5RTAiYRiQbfJDkDA0G9gbPAUwJxKELAV9Q5AyrPGlxsGFcAgvLtL 7f8OQIxsnGWHCxXApS1n58QKD0BOJXIz8xAVwK4Qvh50IA9A05Ydz8obFcAz gmm6SysPQJVP85w2IRXAuPMUViM2D0BYCMlqoiYVwDxlwPH6QA9AGsGeOA4s FcDB1muN0ksPQNx5dAZ6MRXAlJkh0w== "]]}, Annotation[#, "Charting`Private`Tag$208552#2"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], LineBox[CompressedData[" 1:eJwVlnk41H0bxfmNWTHWsW9Ttuzhlcf2/RVJ5CkllBQKZWlXKlsIMWOPFglP hahUVCRuWetFPYXKHrJF2Wfsr/ePc93Xua7733M+h+l5aq8XxsPD076u/1/F W6JKWSQ1aM094da6WRt6Dq8I6POpgZTcF7vjutqQqTyyUMerBh+8LEyWtbRB pvjtl4llVbA9JyOprK4NEg3HY8xnVGGlZOTTOQVtEJir/N3VqwoeLb1WYvza sLjH761smSos1Nno7B3UglZK7cFbfqowOplC/pSuBRXWy5FxNSoweI7dXv1b E4zvaJVnqapAg/ymH+0OmhBsqTtTz1KGa2MqhjyvNWCm7LXMz58bgYVvXlUU 0YBVa5PdqrYbwUbj0M6jgZvALHfbWbecDcCK7I2526QOlg7yN/OXmBBqozM8 rqoOPRKTHyQ8mPC4r/CyO0sNih7tHL9cpgSV1tHpTYOqQN9/RwaTVwKa+fM5 NxtVOPMwNMOErAiB6nnZpKcqoIla2w+Vy4OtIievkKICgkQZvbpIOcieK5G4 FKAM+30CvKUNZKH/X49zNnUbQfeMV+6NEWlIvON/01hpI2zOt+c6l0iBWISk n0v0Brh5xVKT5C0JgR+u+cf1MkEteFPQorYE2BSZic9ZMkFOWj63o1Mc9p0t 7I26owS5bqX/9ieKASZ8MurhuCLs+Wguu/mgKIxYfVapf60Ax7q/bPWjiUDY tWXtU37ygDaX8H3NEYI0m5V344Zy0DlPTVYzFYSvbmPb04mysG3u8tfd2TTA G0U3HaiUBq59kwOfPgX0c5eNdyZKwaVe4+ikRCKIHA9vVbKVBEX4Xee/gEGy vuuolZAEiC9F/dWWyAP5Ol3GN36LQ363f4vG4FLVp6J/YkwqxKDxUlJyDS+n itr6gOj/QBR0S6z9lrdMVwURXLNl74jAAfA++55/rKrFSkskLEoYUq9Wd384 0Fd14zB/o6KsEAxlKNcXHWqoIuaU9xxREwTK0ZMH5D9UobpSVY51CD+48oWV Dup1oiCqU0SqBA0mNV4bHI3qRF2eilyOMA2iHKae/fjaiXqvGrW489PgSdbR Jz2hXYg3KuIg4qEB9pdN3rembsTYfllMZ4wKbS9jd3kb9qE167SM2koqhPxy sDj4qR+5pDv+3e9LhcbQkyHSi/3o2mBEZL0XFURF4yu+bRxAL7pjbJ64UyHP uNbE+eIAOrZanRHjRIV/rxltcVQYRPb7ctIObqOCipKs3t/+P9H1Skv2Dhkq NDsOMrdRRtCjnwEewe8pcLb/3V1j3RFEdI2xKq6lgNTpHGldpxGE523801dF gWPxh0Xk7o+gTSdadhq/pMBi9TeeeTSKHuXvb6zIpYCqbnNvwcUxtLOpt4B4 hQJNFYWu2Vlj6Ca3h48bSIEztnFf0+vGkIXHeNXAaQpUeO34GCn2C4m1Zeg8 8KbA3szqSrenv9Cxo/J7wIECodSXd0WGx1EqqVK7TYUCyhlp0hT6BErnP2gl o0SB98rnbqwaTqDlVfaWPTIUEMf12L8iJtB57dEZFp0Cjy48Cq5T+I3CbSS2 mM+ToX0gy/WS0x+kVfmBS3lHhuAzIV9PhfxBrBqnV4pvyMBcc93nff8POval eEC+hAz+MtJ2+6b/IPSk2LT5ARmu5u+8K7FjErnFuJ3riyGDZG8Na7J/ErVt 21EraU0G5V39AoLcSUTwkP0aZkYGvTIe9ibBKRQX/zivXJ8MNqnmbM8tU2hV 2H7oHwUyXN7xit0aP4VCIwZSlGdJEF3SJjiVPYVE1SeOYaMkSGXOsgVfTiHW l7ffC7pJULSkl2DdN4Uc58K2O9SToOfpo4TXhtOo8GEDDKSRYEzuPb1t5zQS 9jc2n4whAef6cMLU4Wl0znS14e1lEggfU07UuD6NMuV+bL55hARbpbISM7vX vTXxlLkqCe6HJyeFR8+giv7RaIk8IhRPPBW+e2cGLbxX/cGfToS3B1uSyopn kGFBgGFdFBHaDfmTpztmUMLjLVdYHkQgj0YlH9OdRa8GXgsVSBHB1yEoxebb LAqqLFg2COWDC5Xpol4Ts6j49ds2XV8+iNQsTbmKzaH9sqtuYk58kEmcTinX mkPfZ+x6i7X5oKXML1Xr6hx6npiTJ99NgM0bjqQJa8yj1DkVKu82AtRabUz7 YDGP6nfd1/umSwAXn+HUqH3zqMQsSGpGngChRadSucHziMkbtENlCQPRjwap z5PnUdxVjsb+MQweTHFS/B/Oo7Cf8tTF7xg0GYWn9H2cR/f+G+7QWo7BkQNW KbcH51GdTkikQhEG01coKY4L8yj0WsUsbxYG0tVJyY0bOMhPvVonOxKDogHH 5IgtHBTfGaPlcREDnCSdbLaLg9yexX1r8MPA2y4nqTiQgwiljawMJwwWAryS fOM4qLP4HUfEHgNW0qYk5XscdF761629VhgovZhI7HnBQTqlOYe9zDB40fYs 8WYjB+USdO86/QcDa25g4t5uDrJ7GKBqoItBh4xJosA0BzXrO/eTNTAIMF9N qCdxkfJQhHCnCgY87u8SwmW5SDX8SNjjDRikRkQnmOhxkVv5ae1wJQxUH9gm zFpxkQL1VqCjIgblDfSEJwe4SOB5vrDWurcf+8w+fpKLHtoclaSu//cJZLA3 RHJRqT5xdYKJwXldV3ZXBhe1Frg3diljQN6ryE4v4qKQyPAf7eoY3D4/wNpT zUU5NRlr3doYaGfksWjtXNTUJmUwa4ABlPmxase4qOhp6YisKQaOXbqs0DUu Mlv69MvZEoPh1Zl4Y/EF9GbN+EThLgwuM1/HT6svIKPk8u9SzhjQrYLji8wX 0NY01xf3PDHI8cbjvfcuoMGuk7MWpzAwvM4Xr+SzgM4ZZpXPBWPQWNgY13Fl AY0Lt5nXxGPg2sKKS0taQOk1Ux8e3sEgQowRRylfQFKxbpceV2LAMPp+/V3L AvKwMxJo+heDfJe714MHFhDu9efhn58YfLyrcn1SYBGprpRxBEUI4AmjsY+Y i+v9/c/AqBoB5vsfxx4zWkS1Hq8WWIgAcupGsd+OLCK2imfS0GkC+D63joHn i8j80/BtiS4CrLTSYi43LCJqKl/aFy4Bkjgt0YZdi2igg8TwluCDV2bO0fnE JRS1R9790z4+4GvwuZbksoTyz1tJ/27lg7oh1sYhvyXkPh/GvDvDB9Gk59Wm YUto8czOm+6i63m1Xl4ZerCETgZtJejsIQKtLumC+cwSqm83lDBoXuduTZnP GHsZZQ56ahc2keBzfw8Rz1lGFi7NzwLGSZCC8d2/UbKMWjbnec7zk0F82999 eOcyKhr8OWFuSwap6n6XDPUVFBlzi5RWQwaFKn5bq5oVpLAodaYjnwK9PXoj t9pXUGZ7rS5pnTfZq/uj/4yuoGfvE8paeijAtMh+d1t4FbWoyC/oi1FB+a2h 6ZTbKhooW/XyvEgFzTduWlncVRTdGfiGV5cG4x0RH2b415D0EaPDIVY0KFrM O75TcQ090xN0eXSABjom0/dnt68hUnh9vFIkDfTLouXtUtdQCHkwK+YzDTI7 ncnLEjw4LW5BqOUoP9xavXrxIpMHr1Z5+Y/+BX5IZxYNT2vy4InVKhfsY/kh 2YencRTnwcOMT6PiQn6InsmP/erLg/t85XW/8ocfTvMvUl9U8uD3rBzsB/wF wMo0U8DXmxdf4iU/D7YThK2H64N/nubF2TIGNmdcBMHi6uS4+xVenBvC22Pr JQh/NVg1Oyfx4kMaV4QehwqCzr4J9vZyXvz8mqP5f4oFQcrPQohJx/BsnhPq dsJ0+HW7T+RbKYabSUfONzTSIdTM1CGnCsNpN1mHrL/QQbTnRpLvewy/Jrx4 u7KbDiZMO6GVLgy/cNYsPn2aDnF5pQIb+Ai4kbthROX6/tEoiSP77yXg58wO vnALEALfZsOVtd8EXOdQta8pWRhG12JH1NSJeH7guGXlA2GoZYy8UEsg4wNp PrnMDhFondas261Ow9MuUzSi1MTgRmBi7q8bArj6tZL20MPiIDNsYlGTLYBX SO8waj8qDlkuQ99vFwrg7yMVnXVOrO85U3MR22oBXC7Y0n7LeXEo5/0Vlj8u gHfKLtsz4sShj23t5mUpiL88ErFbsVQcNB+uSPZOCuJif/kKiQowoFiy4MXL JUG8OSlKw1+EsZ5/x90JJDruPM71eCrBAAv/wmhzOTr+iqZSZcpkwB79A3N3 dtDxoB3D28q3MNZ5VfLZJYuOQ5q14mNPBizpup/UK6DjHc0dxWs+DAjP4adR Suj4cmwHT3AAA65HeW599Z6OW5mLTcUGMSDTVriYMUfHHyeLzK2wGaBU8cZu Yo2Od2qPSvmlMuCBts9wLU0I122hmFveYsAT4UqF80pCuORx/aeE+wwwiDhR bqcphB8cOn/HsYABr2fEnTYaCeHHs5wujD5hgJkXTC3iQjgjP3XyQgkDqtv9 2J/thHDs4pzEozIG/A8btXGo "]]}, Annotation[#, "Charting`Private`Tag$208552#3"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], LineBox[CompressedData[" 1:eJwVl2k4lP8Xxsc2zwxjbEO2QpaKbFEk+j4hFVJSCWmxZE1IvzYhWbIbkhaU EoqiokLMkWRJ2lGypiwRjW024+//6ry4r+u+znXefD5HzePEHm9BAoEgJEAg /H+qXJdWzSOuAvmYU2u3WuhC76EFyjrhVeB/V03xm5ku5GiMsBsFVkHow3bs uKkuKJbXfp7gaYFqnM7PK0a6INfkG28xrQW+flPXh9boAmW27u+PPi1YwyrC YuR0gbM7oFapSgskYzt+vppcC19Ir12vB2hB1Kszt/A7a+GlDe9SYoMmGBHC lNdxdMD05trqPC1N2POIUGfjrgPhVvrTb5I14EdZeuyJBm2Yrnqh+OuXOpg7 QVSqsjbwbcx2admqg8m+poYPUWvA/I5lqHv+SnCoo58ld60GK8fl14q5avBW P6Jh/7rV0Cs31Sp3VA1wx97ypuxVUPpgx/i5KlWIVQnu15/SAuq+m4qCy1Vh vYMw/tJJC0IKI7LNMBUo3Oi991C1JuigLx0Hq5dD1UtaKVtGE8RFFA0aLylD tWbMUPUZDdjnc/yYgpES3ClX8T3zQR30Q7zvZI0ogO+F7OHdOupgWLyT5Vwh Dw7/eIVO9JVw7byVDvHYMhCZ1M45OKYGq8LXnOHoysFbb/PIqw5qoKyw/M73 bhqcGo4L+XVPFe64V34cTJMBK6mYDH+CKux+b6Fk6CoN9ANVmoFtK8Cr5/OW AFEpIFru0UyNWA7IsEK4M18CShNbP1/Ypgzdc2T6qk3iMHE3+vWhZUpgOXuu c9dtUaBT7Xor2hWAtbPNUXgdCZQ83CE7Vx7O9pnGpaeJgOKe7V/RvmWgAn8b A9mCkBcJL6Tk5IDGjdn4NY0Ankx/XHOKBsU9ge3aQ1yGPcWscvCZDDSfTac3 CMwzsmPAT/u6NOhX2ATwTJgMaxmKqVyCFLjAsdAWsTEG3C3l7zouCZkX63ta XfoZRm4awfuGqPA7W+NN6cEmhivRMjJ8lAIkzyCX5a0MxPsYXtBqLgYD9uXZ ApGAfh/UcrmxQQw2+96PnpGvR3UyjdbHDcRgPu/mge/2r9Bvj+gpZQ0x8KdE CRdWvEbykSf/FoiJwe7h7QctYloQ4xPYH+kWhVSHCZFn9I/Ixqdxz7ULouAm HFk5ZNCNuvp+1Kq+I8OU9gsjz5huFKLF4wQ0kSHG8d/jgc5u9O/4yI6X9WR4 lOf5qDfiB2p1iKYEPiOD4MbtRV1tPShJYOtd7DYZvj67bH/MuB+1ZHhs0Q4j w4U/jptdPwwikXG2FleFDM0RQRcUOINoPtUheUCRDNLSSS+71H+i8h3NFe9k yVBk+trM+fRP9PM82eaFGBk+xm4w2btiCBWL9/n2zJNAU1XJwCHwFzIMtLCM +kiCd3uH1CxJI2js/XgXMYEEoYOvck31R5CqqXwyO4YE8sH5Cvr7R9BlI0My M4oEXkmHpJQLRpDTq6yymTMk4NR3EebQKJKPkOq19COBlv67vvunx1CJyfhN aTsStL0scbudN4bsv0es8NtGghDbxM6rjWOI/fDk6UYrErz03vb+kswfZLb9 21iqOQn25NTXuZf9QSMDwTaH9UgQQX6WKzU8jtxibtVxpEmgkX1FgUSdQHYj WS4lEiRo0TiZxTeeQF5RermeFBLQcIOUP9ETiKDy0G9chAQP/nsQ3rjiL2L9 la10Y2PQ8TPP7ez+STS5sdg0dACD8JALnScuTKJ2z7aM1F4M1BbdnI4VTKJ3 nMsqj7sxCFRUsHNiTqL7eibyoh0YXCzekSu3bQp9dGnvor3FYFlfQ/LU4BQK uMkJKXiGgYb9IEWcNYVWP3GTF6jAwKCKkLJG/B96GXLQ2esxBtszLVI8TP4h amfYPYtSDM5te57yJekfejtwaLvVHQx6yx6kvjBmIpV7lVt60jAYU26hft3B RHkTRR8qUzCYTxhO/XeIiUL5wWFZSRhIemmkaScwkYeg50bfeAy2yOel5fQw 0clb2WqOkRgURNHTo+KmkXvZoplwMAblE2WSuTenEbyDszpBGNS6tqdXlU8j k4eFXvsCl+5jLEZnfl/KIwcry3wxwEZj6F76M2js81p6yFEMaPvvSl20nkEr yKe9bx3GQLWhnp7rMoNcdwwym90xMM3l0zsuzaCNTzKFSa4Y+DueydjeNYO6 arLrCHsw+K/uqrT3xAwKC4gw7tyFwSWdyoyLgrNoYlLb6fpODHJEmBnVa2eR UvysWud2DIpDJWU6t8yiEB8lzk4bDCr79DKn988it9MqbwutMGivCshce3EW eT7W0py2wOC7VqLMjquzqKKq06rPDIPhzOJM75JZZPBZz+iWCQYzhCaZaJhF PHOvaj1jDAhBvzLzvs4i+0NuSQkGGFC6hWg1Y7MoIsTaqmQtBvLbV17pXJxF SdkHA9JWY2C48vAVSe05JFBy1yFBBYPX1upXWjfPoVNr5m4XKmJwwGc4M8Zp Dk1vagsNkMXgT0JJ5mbfOVQTtmWiXQKDiNITmazwOWS4yUG5mYyB9HujzCf0 OeT8+SpzpxAG9/7NZwQWzqFlQZU7nXlEaNsQldH/fg79GR8cax4nwmEX64wb Q3No4n3QhMwQEZjnSRl72XPo+sC7oZLvRIjLa6NTqfOooyzP5+IHIijUp9Ob V86j9SZf5GIbiVD6cy892mQe2axyLS2qIgJOVKCb28+j6SJV+rdSIhyzy08v PzWPQpx2TEulE4F93DvdP3EeDRuPHPgdSYTk9DXpGrfmkXRor7l/EBFUn06k 9T6dRzVE57lYNyI8/fo47VrzPPpr61WxchsRbFin0vb0zKNUpsyn1YZE+K5o lkZhziMxjYGd5xSIQDjyKjVKiYV+Dwf5xQ+JQGZ0XKqZAQttDX/yVqxJBLTu 2abOWLNQRujV9ONFIlDdRE195MJCAmynoqxYEdg59inFN4iF9q6r/eN3VAT6 KdkpKy+x0Itnfu0fzUQgTN8t5Uc2C6WgfIcXUiJwI+xn8u56FpqjrBhlPBcG 3eyiZNEOFmI4GEm/iRMGqApIfj3GQs7UdmNpJ2EY5k8nmdLYKOv8aPDRn0Jw Tu1FEnM1G4lvffDVu0gIqNbhSaUWbCRs1VPY6CsExgnCSao+bHTG0T1Rb0gQ mkuaE7+fZyN3R91HiXmC4NaenHglnY32jXuw2fsFIVpGNpFUzUaWMVnvaA0C 8D5XM2GKwkFcabrZ/gwCeMDo5QdqHIQfqFn8akOAucGHl702cBBhICFBkr3I UF694XLXYQ5iH7Op+fmdzyi35cRnhHFQ8LlBWcG9fIbV8bp4+wQOMnBpZd3+ ssDoSIuOJ+Zx0A0jBfyo+wLD/4lNPDzhIOFUFz/WXx5j4Yto/LkmDmrf5z1e nshjpM+3xxn/4KDH+Rte5hryGBqKmXF/pzjokXzPrbIljj83d44rFuGi7Hbr Nvwel2F7WCnOQ5GLBj9MuCiFcRm9F/tilfW56OyGPGt/Ry4jpOBubIcVFz0y YNf0W3AZwk0+sekHuOhJ2QVbIzMuo/F3svrvAC5aVr/L/9BWLiOO+KR+UyQX 5b7a99vvEJdho9V5mJ7BRf6fa0e9YrkMzIa38PseF2EXDacOVHMZzd5qOeZV S/sE3bIq53EZl2NtzDLauMhSYd1pD3seY8e9gK7hPi464+VU5XefxxBtTP/P YpqL5uq7jjlLLzDeDlXSMok89H36zdaEuAVGsnD3kxEFHhpzGHWoI/IZVGvN yUych1jFWNAljUXGe0/blFEnHorL6Qi9ylhkpF86oYN8eOiU8QefvYYEkGqo 8hlL4SGHhSySWw8BPg32iuD5PPQpNd64aYMAZAgKF2RV8JDlmN6laboA0Cwd +vFuHmrtS7BaYycI8vWDB7JXL6CYGabln1oh+NaPzY9vWkBOj5dF35MXhhsE 3SzLXQvo3liuh2eIMCjhpz9OnFpAthvsysjKIrCCIWZr3bCAQpVL0rl7idDX azByvWMBWajmCDzJIcJt/r64ydEF1LOrxShlgAhqm2+/uiHJR3452s5nPDAY dG88MqXOR1Yz9hVxeRjcuTDG32rCR6brz5Q971ziXa3xpn/ufDQ81nBicgsJ fv1w+WYTwkcDtCMRiidJUMiLOJ0Tw0cPCi541OaTYLV5y9NtJXzUfsmTPbbk I6Nufx1z6/jonPTGgXdLfvPgvMwU8yMfGT5vu/J6Kxl0atzX5rH4KMzAaadB MhnGv0e3TostIgXWV6EPpWQo5RT57lBZRLMbzxt2vyWDnhmzYGbrIrpf35AK IqIw6bLMytZlEaWqfaF3q4pC+VnzgVuBiyinvL71k5korKuKW26XuYiO7NL5 dzVAFKa7SmpuFy6iq+eFoxKjRaGC9cFlrmoR5X8NTCu6JgrrTZWu5vcvouvD UwR4JQo53c4YT46Ab57pDCqSEIPr/IunT6sRcK/Dn6+JqIvBVbXSYaYOAc+1 dPnRtV4M6D6E5lGcgN9dsgMpVzGImy6+3OlPwGsV2aLVuWIQLMYhP60j4Npi HJ0WeQoc19M4p9dCwHVz0v1sVlGWeOowdv8zAc/Tl354ZT0FvLPvtN4eIeAm s3KmZY4UcFW3S0qVFsC/pZ6MN7tMAetNORT/YwJ4yeDBk/1TFNhy6E34r2AB 3KkmqStjgQKbL06NHzkvgD8MyNpjICoOG5us3zmnC+Dlmo+sDdTFQc9pImVr tQDu6bn7qOdecZAP2CyhRhXEt68z/7WiQhz+3OiX6qoUxKfuxnf4BlAhwnyT Yz5DEMdD7YL7T1FBujcr3b9FEG9etS3JMYoKZmp2Egs/BPGYNkRTyaJCYlEl ZaWwEC7kGll0tI4K2hWJWOAeIbwRPMSpkhLg/854YfGvEK7V82n9QLkEjC5e Hlm1WgTnF3xiNP8nCa9lR56uSsVwSXUv9/gHUvCFqdO4a7UoXmvg84E7Lw1Z p9Lu/Mmi4HVF5pbi+jRQHDbb3HCbgr81+5ly2pgGeQd+f7tRQsHFPxdeGdi4 9J9sspCyrafg4byI3kprGlQL/IksHqfgHwipQt6uNOhPsXH3thLHKTeP3m+P pYFO4cKyvilxfKrEUzX3Bw3Kl91/+owrjh9sG2ohDtKWeLB3VyqRiquE134M HqbB5sCSOAtlKk78WPZrK5MGu9e5zN7cRsUfSklaTmOyS35U8elAHhUn15fM OxnJAlf/SJDBfSpeww++wjCVhah8MVFSBRV/ckpKU2ezLCTEeGx53kLFSy9c 2y60QxZybCXLZWepeN2tnZO1h2RB9WWN3cQiFe+JOzqu6yUL93R9hl+LSuDX miIKcv1k4ZFk3YowVQl8/zWvyHNhsmAU7VdtpyOB4+fxp7/PysKLadp+9Q0S eNpn0uvdkbJg7g3/OLjEUj9H90WMLNR3BKR8spPA14yv8VVOlIX/ASxVALg= "]]}, Annotation[#, "Charting`Private`Tag$208552#4"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], LineBox[CompressedData[" 1:eJwV12k41O0XB3Dr/AZjbGOn7GuWJHls9y9EabGEsqQi9FCppEWiItmXZCuE R1G0oyjm2NKqxZIskZItYsYyw8z4z//VfX1e3OfFub7nuu+j6h/mFsjHw8Mj xsvD8/9zbb6kShFBG7518VnnWBrAdz82yURAG/Tvl+np/WMABRrjzDZebXge 4CjXaGYACo8aOqdZWtAelk4fXW8AMu2Hr1rTteC8qt69jToGQFponBkY0gLF 70my3RQDWHYJbVCs04LufF661Mw66CK2eueHasGTGux+ZvE6eOnAik1q0YQ5 /XTNWIY+mN9cV1+kpQmeC0FNuT76EGVnRH+VogHfzAMuQZMe0OueK4yOqkPG H7cTQwp6wHGwcNZyUodrC4zbqjG6YFVqe3JfiRo81vJx8O7RATtX5byKFVWY 2aMVXm6sA99lZt/KHFSF85xAS7kcbai6t+1PZJ0KFIe93XBxRgvIHjcV+JRV YEtJ/Q6SmxacuBOda4GthVe+//I/eK4J+qirx7deGXb3yX/aKqkJooIKxm2x SrDWXmmP0BkN8Ag+GiS/QRFqSjq/tHWog9GJwNLscXnQPvx0qkBXHdZX7GTs qZaDuq2dI4XpapB33k6fECQLx62mTMrGVUE7SvfssoEM7H8jWdO3QxWU5JVL +/op8NsrsESjTAVK99V8HkmXgqtDBUNb2GvB5aO14npvSRi/23j13es1cGiw c3OosARItF/s74xUBrS+WuBriRi8POQwUGqnBP2LQpnalqJQrhj0fq+UItgu RH51LhaG6NXmlbC38sDY+d5VwIQI6q2mjQL5cnBuyDw+I10QBKc95G1cZGEt zLQdYfJBsImrYZy4DFBW4v7pTueBTy9CbWYnKFAxeKRD79cKtefDTrdXD6Xg 9bmMzBbeJSpxeEMIK0MSjKodQlmbaFR1pM2ui5EALwg6+UZkkjovYd0S5y8O WZeaBt96DVMzJhyFKO/J8DtX41WVbztVbDf5pEwHCYgBx7yU31KR5/zrkylr RODHjke5vDGAAhIjLD3kRMDm8N3L83JNaIfnK2dVSRFYKrq5t29HM/LmGQ5o ERSBENJFgTvVrahEZCDcaFoYXMa2+lrHvUG5HbI/K14KQ9quacHazM/oH7/0 FFM/YfARiKn5ZdyPWp6YeORVCcGs3vMNAXH96H6j/9i3O0IQ5zr3+MfXfkTx LDNXKRGCB0UBD75HD6Dq3hjzF9lCwPfP1vLe94MouT08XT9GCLprE3YEmQ6j ZySFGpabEFyYcrXx/jSCBDmnRlM4RHgdfeyC/PIIYrdVDZ9kEkFSMvllr/pP 1KQ7v8Zvngjl5q0We878RO7fHvvYTxLh8xWzTe5rfqFfH1WPuPQQQVNF0XjX kVHEV90cdPYhET64/1K1JY6jaaZKd2wQEU6ONBeaG42jvSdL68L9iSB3vETe yHMcZaZFVBz2I8KhZD8JpbJx5Pvj7J6DnkRYburlWUQTiN/M9W6KAxG0jD4M 3T0ziR6rbKV/0ybC+5eVPsVFk+j6G73LShpEOOGU9DWnbRLtUR6bPKRChJeB jh9jpaZQpe/7h5g8EdwKmhr3PZxCpXezrXOFiRAtVFsoMfYHnfRIvfV9BgON 3OvyRPI0Gk0KWr08hcEbjfBsjuk0yrZVCjYYx4CCG6dOXZ5GER8bTK//wODe 6XtRbWtmUOM7+Q33ujDo+Vnkc87zL6ooGTIhvsRAdqglZXZkFjG7Ldz70rn1 d4yQRBmzaDo7R0M2FQPjOp5UXdE5lMxU+O2dhMHWLOtU/01zaGCgmbYUh0Gk 47PUruQ55BAafyg1EoP46m7RueI5NBduMk44i0GW6nyqaO0cWuPa9SMhAoOq FeM0h+E5JGllK1J+HIPvD++lPTeloevRh+xcgjGYVHpD7t5GQxf2LKpJBGKw lDiWNudHQy3bxwf7/DEQP6SRrpdIQ7pVrCsJfhhslitKLxikobw65+ZtnhiU XczMuBhPR/wXjme5O2LwaPqheOFNOlIf5v1yYwsGDd4dGXWP6GhOJ2/PhB23 H6YimbQ+OtrEZO64hWOATcRlHjKaRzs18zWOW3D76fmfxCX7eXSKHzqY5hio tDRlFnrNI/bgs40pmzAwL+Rk9sTOowq7lqR3phiEuJ69trV3HvFL3E6qNcLg dGOOZOD0PFK5GumSYIhBrH7NtUt8C4gx2nw8wACDAkHatfp1CyjqRz/RTB+D ipPiUl83LyDpondlBnoY1AwZZtE9F9DmNyE/DXUx6KgLzVp3aQFtFObP3KWN QZ9WktS2nAX0Q1dF46gWBmNZFVmBlQvI7NCNomxNDHiOjWYVdS8gm44LKfwa GJD6+SkvJhcQ84jkwa3qGMhtVbv+dXUBBb2oFchRw2C92v7r4nqLiFPWu9dJ FYNWe/Xrb20W0QnzFvJTFQz2Bo9lxe1eRINNhB9qXEdXhWUxohbR70U+X5m1 GEh+3JD1JHMRySqnHcxfg8HtuaVrR+4sIjvZbWVqXL83u3ht+OMicp44+Hyr Mgb7veyv3fi1iC54uTJGlTCgnSdec2cuonj1UrckruOL3meSyUvoXH4brxnX 8k0Zma/VlpC8cvTmCUVunn66Z17etIQMxcd2lXGNE+QzrXYsoe18Fw4Hc92p M5ixeGAJ3fgk8cyE66DtJRmPIpZQl9T9YkGumUcDM0KSltAz/Xz1IQUMUjJ0 MzRuLSF/H+WNjVyrPJ1O//50Ce06sdpUwvXT7sfpea+XkDNl14MErh0YEelu g0vI+LB+9wmu+xQs0km0JTRvmEf05fqoNSftFYGBbqYhCQeueQ40p11UZCDf O3YPDLnOuhyfZmHMQEbK2ucpXGvddkqbt2eg+osa8/PyGNS3k9MeeDFQWExQ 33uud05+ST18jIGWopW78rgeJuWmqsUyUIVT0DEPrk8Z+aQO5DJQ6mGO0qoc N89ua1NzqhjI04hocY3rG6d+prg0MdBdo2FBEa4NcstThHsYyC1LsDxQFgOo C01pneTeV5fVK5LBwH3AKCV6lYEYnZOkh9LcfHHoyeYUJpoSX61NoHDnX/V5 Mk2HiWKevGHJSGFAto9KrrJmov3H8vS2SGBQEoQnB7kxkabtuCiHjIFpokCy SjATFVl+ZuuTMHhd+Tqp7zwT8XiL/35OxMCnIyXpegYTFe/qdE8TwGBm1iVp 120mquj0T85eJcBlKekkYj0T5UjlfK1mEkDa7FticwcTZfLoKT6iEaBib2Fi 1E8mChZO2LZhkgBW5w8mmjGY6HZJSdjEEAE+FmomzpKW0ZEtuR0XOgngDxMJ 91SXEVlptKKglQCLI/cTDpktI/nMTcbzTwiQKHgyYc32ZdSuKJi+sYgASjpm Cb37l9Hlg3lf2FcI8Mhp+eq1U8vIdSGoxPdfAtgdbby6I3EZ1dnGTZs5EqAn /fJVQtEyqjLcNntlDQFCnjhchSfLaEzEqcpvRhDYXcJXI9uX0VNHtzBmjSBk LHXEmw4so3feQ0fiTgmChkJW/MzsMuo/XXgvRUcQnlntia8QXEHJhz/kwCcB cNqvGO+vsILsc6VbLY4IwPdLQ1eUjFZQS2C4XNgyP5wo++9Kj90KInl84/kS yQ8C7cFXMvauoKFZRp39NB+0/U5R/x26guQDKqv++PJBPOFJk2XMCvKbD/Ve 18QLmAOL/fv2CpLx8LVqCOWB14GqBVZ1XLv9J60eukpNuOJgce39Cor0+WlR Ps+mCrdlnLamr6C6nHO1Yexl6rtfNZQsAgt9Fm/Jr0xiUlME+p+My7PQWuO7 V3p1GNSdGjyuNgYs1JUUr8zuX6SS7TX/ZuEs1FPpN7L+4QL1Y4BT6sRuFurr 005IvTNPzYgN00fBLKS3+O+rzW/pVJf/rr+5HslC/MkdfO9U6FSJlrrgyVQW up6U4a35gEb9MvJdEC9hofi81MmNZ2jUa3wCZdnVLDRCj5EwuECj7lbTtZ1q ZyGB2IGZdU00KsV21zDez0Kvbh69N2xLp3YfDI/OmWGhp8f62us4dGrOpTyl P7xsdFsoNWv47zx1T0lD/WZpNnLN+RjJkF6kyjWN7M3VYaNnZXpvnYOWqN+G saU/lmyklrFNa+MAg3qDxyDb1pmNTIWqO0nHlqmK+JnP0xFsdICWGvnoNZu6 hiriZN/CRvtU/0mmuvDB0Hfj8fweNqKUj7xiKvJDMccj/u8EG61VjVp3e5Af Dqw5r7GFzUajCTL/fckSAFWb4uYb4hyUox5l128pCCP72g7MqnOQbukMe65L EEovTHK2bOIgqeQIm879BAgoFCu86cRBAQ0/b0l8J4BGg6nl3D4OKvc583LR GYPRAa9vDic46Ov75+JVNRjcYUWfKYjjoD8FD+8vihEhWKlMmpbLQZFb/hba HCCCjtWbp46VHOQ4JaEkUkGECZ8Z18JGDvptYrXp8xgR7p2XmqV95qCGXZuE WGuFIOSmedrWUQ6qNdFUMnYVAv0X+9YVMTjo3AZt621RQvCn7/JbusgqEu+j v/YsFYKq5fLD29auIv2vzja5rUJwVOED4ZbJKipzPW3p+ksIDC1oZfNbVlFt vvrJZV5h+Osla+fktYocmVMTVcrC8Oic1Y9bR1ZRx4aI5KubhMGkLl55e9Yq CrtV/8ApSBjovZUviu+sIkOfpfCk88JQzfjktVi3iga1C6uK04Vho7liTsnw Kno2lyS6oUYYCvr3YCwZHjyLUiRTyhSGfM6lM2dUefD8IIX1E8IikKNaNUbT 58Gn307rvVQUgcxgntcTOA/uFpJcaGMlAvH0ioSvITz4N8tanX2RInBcZFno aSMPXk49M277VwTsLQtIIUG8uNNZcrZIKwk2+72KGj3Oi5d7i29+/IkENpdm /xw4z4vvyo1g2Q2S4J92+w97MnhxFZt1A0aLJDDcPZ26pZ4X1xe4wNHRFgW5 UBsxVTIf7na69kt8vChM3RiW6K3hw8MFH5QL2ZAh2srStYTKh+91jxeP2EoG ye/ZGSFv+HB3437dfjcyWKhuF2MP8OE+DZ8j8oPJkFReQ1IT4MfnRPXX/8gg g151EnbEjR9XX1ppqBkhQ8gHU/bqDD++RbvYYihWDCZWE8a1dQTxXtrxIKsD 4tAqPf5UOw3DR8wo5YNZEtBF029z1hHG3+20cDP4IQnZEemlU9kkfNDxjpGG HAUUxixsWopJeJLywcRMZQoU7f397UYlCf8q2E7mqHH3K0trCacmEl5y8cWV LgMK1PNOxVT8IeELIYfUouwoMJzqsC/QThQXP3fq6q9jFNC/w5YdmhXFPUh0 s4Y2CjySvfu0dkUUP7txw3W9dxTue+XunEYg4xKPpE3zPlHA5khlvLUSGV+Y Ue0N5+6dLiZeCzcdybiyOJ2uO0fh/veqv+wtIuPPdMY6YpWkYcXowDHju2T8 V+b8vmlVabhYIiJMrCbjTMdPlZ7a0pAY57/52RsyzpiZbtQxkYYCJ/FH0gtk XOzgp/73jtKg8vLF9ulVMi7gz3/UbKc03DYIHmsVFsMdm1+FFbtJwwPxxjWn VMTwT18CPE7vk4YNl/+t364vhsf8yrwy4i8Nz+kUT3UzMZxUZ9nsfFgarAJh bhkXwyXNt1g0HpWGpp7Q1C/bxfCCciUVw3Bp+B+XbkUl "]]}, Annotation[#, "Charting`Private`Tag$208552#5"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], LineBox[CompressedData[" 1:eJwV1nc8Vf8bAPBrnuu6rnXJ3qskkkrW5xQpo0FUiHxDykxDQzLzzcwqM9Gg kBQNKveRhL5aVMpKUlbENa5xx+/8/jqv9+t8znk95/k8z3M+6odCnf34SSSS OB+J9P+rap6UWpGwLpxZr0aPLDGAfi8O1VhQF1Sef+BJXDeAQq2RxWY+XdjR HDV+q9AAFKpfdE6wdUBs/7eX7TkGINty5F/LGR3odTgXppRmANS5hsne7zrw 87+wd8/OGcDS7sAXinU68OHeyn+X9hjAJ/Ir97xAHVCb2T5zWtgAntuy45Ka tCEg6GD2Ea/VYFqwur5IRxuKiulK5xv14by14czrFC3w5gQF39TVh5m6pwq/ fmlCubCwJUSvAq6t2S4de02wPTRTxxtaCRY3thz3LNGA1yE5O00sVoK1k3Lu nWV1oEVIL0Vc1YN+2ak3sv+og0C4dcOvZV2oLLf7c65ODa7L3bezdtEFmmuB Ar+yGijT11JePtGBsNILOWaYKrSFOtKcVXRAH336cqBeGV5r9hZ0nNYGMSEF o+Y4JVBMc7od1qsFrv7Bh+XXKcLzRIX97HVaYBjmd+PKiDwIrN/VdTlNE9be 2bGwr1YOSB1JA2azGpAbYa0vfHgF1B1O/tboqAG651eeWTKQhbC9+jzXanVQ kle+0d1DhwLfZ9r3hdXhhuejj4OXpUH9j8jt4YNqsPu9peJadynYJJWfq3RJ FXz7OjcHUiThGx6rcnS9CqC1tYJdJeJgzd9XgRaUoGdeJEPXXAxgu42HMSjC lrlzXbuKKbAjN3NcPkgBFna0Owkak6EocOkQa7U8nP1umpB+WQiEF2s0mB9W gCpMNgct8sP7sjLc/Kws0JfjN32+TIJa2YsPCjfKwJ2+oHerhpYZQpYt8Wa9 0tB6Nj2jiY/FMLzQvrKiSAoMa20D2RuZjO7Wlp6EM5LgBoePt4mOMTQGnN7r 75eArJjGvjduA4xAybFDui9o8DtH63XlgRbGivW0rsgGKpB9QtyU3zBQh2Gc SaiYKPxwrM7hiwKk7PzG1AATBasjd2Nn5RqRQcnjk5MkUWAVFezvdnyJznxA N8/NUiCAGi1YWvsKNW81sKvvocDu4e0HLOPbkJX0Se3ucgqk7ZwQepzxEcW5 Tmk/caCAh2DUoyGjHjR2LaS2JlcEplY9XecT34OMajUHRzNFIN5p+sGPrh4U 3JvD1UoVgaoin6r+C72osrlTuTxGBPg3bS/72t6HNPcdq5gKEIHPjy85HjYZ QPp3N988aSUCkeNOVu4fBtEq/2OVcaNkaL0QEim/NIjkH58f8xkig5RU8vOv mj9Rf9P2HrvvZCgzfWW27/RPVHP36ZjOZzJ8vLhho4vKEJo84eyi00gGbTVF o51Bv1Cg1FClVT4Z3roMqW8hjyDdc6bWM7vJcHzw5TVTwxHkf9xlfZ8jGeSO lcgb7h1BB6WuJrdvJ4Nvspek0q0RdCyaP+AZToalxq+keTSKdjc8pnYbkUHH 8O33u6fHEJ9jTIKiFBkuiDy+Jjn8B1X88ufv/IqBVk62PJk2gSwb/WyOfcag TevEFa7JBKJ27EqX7sCAjhuljsdOoO4hFd+g/zAoDy8/36wyichVZe3+DRh8 +VnkcXbvX/RGrI2TfBuDFd+bUqYGp5DGNtqqujPE+x0HqWILU2iL7yHzyVMY GNWRUleKTaPQ4w379U9gsD3LMvXQxmlkSsl9/yIYg3PbnqR+Sp5G1cVsOxsf DBJqP4tNF08jZxrdrd4bgyz12VSxx9OIkRRYZOqFQeWyUZrtwDRSFN7Su8MN g/775WlPTZjItXfyWs8uDMaU2mif7ZgIhc/8zdqBAStxOG3ai4kKqt4/dnHA QMJX6/KqRCbCGmu//bXFYLNc0eXCPiZKMdWbSrXC4FZ0Rnp0wgxaQY8RO2WI QfXEfYlrBTNIUiJ1vt4Agxfu79LrqmeQX9ELXcpqIh8mohnM7hm0UwJlv9LD ABuNz/A1nEXBXYFj5RpEPvfelIyxmUVmAliAhToGak2NGdfcZtGYV0FGlyoG pte4GV/iZtEPh+tC+soYBDidydz+dRbJ8part8lhEN5wVcpvYhY1OQSX6K7A IE7/UWYM/xyykI1Ok5TFoFCImVm/eg45CmbFC9AxuHNcQrpr8xyKaP57XVQa g0ff12TN7J1D9KSSXmUpDN7VBWatjplDkhn3PnhLYNCtkyRtd3UOcZqiLmWI YzCcdSfLr2IOpQtN+LfTMJgltUjHwhxy6BUIliRMCvmVVfR5DkWprLviLYYB tUeA/mxsDsmcs+mro2Igt10ju4s3h+o7925WJrxW42C2xKp5ZGQZY88visEr G83sN1bzyEeVrphAwWC//3BW/J55dPjE2WxpwuOJFVlWR+aR/tbU++UiGFyo DM1aOD+PvsQG+DoQlnq/LuthxjxqbfAtnyNjcHualRlUOo+uNvOduUvYlP48 U+fZPJLBZl4eJty+ITpz4P08svtIizYgfNDNJjN/aB65HLC7ycEwYEaQM10W 5xFeek+1i3BCUXsGjcZC5cp7h+sIyzemZ7RqsNAmBb/x24Qrf7pkxG5koXfq HMUCwriwfIaFIwvxtj0NyiPcqdeXPu/NQotmvsxiwocdStKrT7HQNrGMjw8I Lwb7pQcksdBe9XDDdsIp6SvTta6zkKfdj7VThNVqJi7317CQ/sAmnjIRb83n B5dzW1no+3xcgyth24VTl537WAjl+uTkEO5WMLtMZbKQi4baw5+Egy25aa+F F5DEk7KNZkS+SN4v06IVF9C9V5lOBYSzYhPSzIwWUH6p7iqMyLfObfu0WZsF 9PSg159IwvUttLQqtwXUGDLUxCO8Y6wj9UjIAqp/odaXQuzfADUnVSNuATnc 2+inTezvSUOP1N6cBfQkjJLYRjj/5M+U3Y0LaE/gd64JUS8GOWUplC8LaEPE F182YagLTHk1toASpkKL3v+/3rgzyab0ReR08nVVniQxD9SfJjP1FtF9q6gr 6US90mzOJ1daLqKd0q2hWUQ9myQKJqv5LyLG7hz5FzIYtFa0JnVHLCL9RNrc T6IfPN6lJGWnL6IHZn96ZIn+iZWWSSLXLyK6TOenYgUM3l/TTpyiLqGUrRPl 1moYHILRS+XqS4ghcS+vjejP+cF7l3w3LKE/5uH8HpoYKOltuPT14BISDStu ua5D9OdD23/h4RKqulN98B4xDwRb/C+m719GfTlqTpmWGDT/TtH8HbiMFtKG fRMRUU/CDxvNo5bR2FYLPH4zMR9s2Zzft5fRybNSibFbifj91Ast6pZRd3NV VPw2DC5dtDXLbF9Gyi6d3Dg7DCjN6eGWM8T96WDzncQ8+2/oET1LmI369/qq koh5lyLY83BEno32edLLLuwm9kuL5GRlwEYjHq2hz53+nz/tv1k4Gy1rnHhc 4Ux8v4996ugeNoq083G32oNBelyoPvJno/epK374Ed59M7st+xwbnXob9ZpF rJdsqvMfS2Uj7SdaxYh4X8dgvxBewkY5xVVf3Yl4MvkFb12pZaPTxh1XfIh5 ukdj5ZbxFjby2NkvK2ZBzL8tOwfwHjailQpuFjXC4PM/Jy5cnWSjmonY8HFi 3l2NyVX6w8dBar9m3F7xhGFfyYv6zTIcxMu7cRLrFga5xsH9OXocNHXpte2J 28LwbQBj/THnINeLFh3sA8KQTzK4smUXB809CHHoXRYCdzXndbmHOAgPC3jJ ihQCRfz0x4lTHFSQLCig1C0IvQcLQ60TOSiws4i7RBGEwqhGsbxCDjrV5y2n JiUAntd/V0ze5yCyymy/0DAfqDBE7W2aOCjOLdl0LJME3/uNRvK+cJC/vNQP BWMuo5jrmvB3lINiTrh3ulOWGd4qEVpbORzUwDr2QaiFxVC3Kn6ZL8FFDKk+ 2dnUWcagZ7P3lCYXzY0cleAlTjNuRI5xt27kogH9MtWq+gmGzzXxawX2XCR3 5symDJ9RhtYLE/NpTy46HvnN/qPTb8avXrdvtmGEffP12l8PMUrZF04XxnPR jZtrwmQGhhj+SrdkmDlctNVLJFOx5DdDz6KtZlsFF/118lM4vjjKGPWYdLrW wEULGd2WMlWTjPII6SnmR2K9daqnkSWTEVBgmrb9Fxf9YswVNqfOMfSfea4u WuAiZpr6f3dVFxl/umPfzIjy0OA6j+F9H9iMyqWyI3aqPOTJV+fWYECCYIW3 wteNeehZJavNYYgP1pgxb81u5SHsrfahzycF4K/bCmt7Nx46YufuaNorCNVn LX5cD+KhM2skmT+lhCEs75+ouSgeIiWsvfyW6E/jugRlhyweOn5pvXXDEgYz XyueFZfyULbxwK/wcjLULnxwm6/joTHHaHXDDSJwUm6e5fCWh2oGE658LxaB 9aaKV0sGeEjdJiM/f0kE5vfhJqwZHrJZ3NmDm1Og55nx0VIBEr7+uFSEQzAF njtsNXUSI+HOnmmR83kUKOzZh7FlSfhBwcnoijoK5HFjTp9WJ+ENQ3/rWF8o cFW9cpipT8Kb3MSTL05TINvmy76QDcTzdQbeJ4nzboY/qXUUJ+FhnBiJCXlR SEtaZernQML3hWSTpQxEIeWey50BVxLOWhucxLMShYSZO5e6Akh45Vyd3zZv UYiT7VxwPkXCiw+5JxmHikL0Js6Rd1FEvO4m3L5IUYiIcrJrzibhZg+1W9cV iMIx0SWRmgYSrne/gJz6SRSC12idW9NGwh2bntD9BkWJ88XOsbudJPxES1rq 0l9R8Mu58aZ4hIRvSyuoX0OlgrumQ3KaFB9ucdVnYttmKtiYF1IDDvPhszWy btl3qbDZ6/X5X8f48Hx7+B3wmApWMVN/vCP48Id6o5EjL6mwqcXm7b50Plyn /YeWdQ8V1uyZSN1az4fLPQwWXk8VA7lAK3F1Gj9uH3vd9n6QGIznD0h+fcSP w8GmyjBNGlywMHcqYfDjNps5o1MGNJDqv5Ie0MaPx6s9fxJoSgMzdQdxTi8/ HqZdWr9nBw2Syh5RNQQF8Nz7PR/Gw2mwqjYJC3IWwDusA0xN22gQ8NaEw5sU wLf/bA4/FSAOo7xLI7p6QrhRuLOrmbMEvJIZqdFNw/Dcm7ZntP+VhE9M/eZd ehT8aYxJ3PpOKbhy6vKN8StUfOPDne++iNBBYdjMqqmYiqOR+l4hcToU7f/9 Lb+CikdXFj5aS6fDHXNLSftGKj7saPMtSoUO9XzjUXf+UPGQpqTxeWM6DKTa evpZi+EbWCmq/3jQQb+Us+L7lBj+cE2XiW8FHapX3K15vCyGFwUZlh6rphP/ O5ddacI0fEfK7XUxj+hgFVSRYKlEw4tDdZnVDDrsNnabK9hGwy/qik8c+EQn zou1HfuLaHgzNnU2m0eHZUPvEKO7NDzu1P4IMyEZiC4RpZBraTj1+QVNJkUG EuMPbX7SRsPrj+YeLZCVgUJ7iWqZORpu5xu6g71GBtSeP3OY4NFwvr7dZa7r ZeC2gf/wK4o4nmfw2avdXAaqJBpUTqqJ4/wXB9bI28nAutij9Q764ribx7jW zC4ZeDpD36u5QRzXeYNvYO6VAQs/mF7CxfG+IaMMOS8ZaPwSmNrhII67em2M PuInA/8DlWMekg== "]]}, Annotation[#, "Charting`Private`Tag$208552#6"]& ]}}, {}}, { DisplayFunction -> Identity, 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}, DisplayFunction -> Identity, DisplayFunction -> Identity, Ticks -> {Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }, AxesOrigin -> {-11.512925150175361`, -14.815407399112459`}, FrameTicks -> {{Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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, "ClippingRange" -> {{{-11.512925150175361`, 3.9120226906332793`}, {-14.815407399112459`, 10.12663078905547}}, {{-11.512925150175361`, 3.9120226906332793`}, {-14.815407399112459`, 0.}}}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\[Beta]", TraditionalForm], FormBox["\"c(\[Beta]) / \[Beta]\"", TraditionalForm]}, AxesOrigin -> {0, 0}, CoordinatesToolOptions -> {"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "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}, PlotRange -> {All, {-14.815407399112459`, 0}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Scaled[0.02], Automatic}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ "\"High-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\) \ expansion\"", "\"Low-\\!\\(\\*StyleBox[\\\"T\\\",FontSlant->\\\"Italic\\\"]\\)\\!\\(\ \\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)expansion\"", RowBox[{"n", "\[LongEqual]", "8"}], RowBox[{"n", "\[LongEqual]", "12"}], RowBox[{"n", "\[LongEqual]", "16"}], RowBox[{"n", "\[LongEqual]", "20"}]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.790500033011464*^9, 3.79050084055266*^9, 3.7905009114756613`*^9, 3.7905010403939533`*^9, {3.790501365461398*^9, 3.790501391778983*^9}, 3.790680768133603*^9, {3.790681247430805*^9, 3.7906812623349133`*^9}, 3.79068130990163*^9, 3.7906856024308653`*^9, 3.7906857162813396`*^9, { 3.790686478844146*^9, 3.7906865357958193`*^9}, 3.790687109731969*^9, 3.7908818555386677`*^9, {3.790882251610034*^9, 3.79088230753218*^9}, 3.79088233976814*^9, 3.790882410673272*^9, 3.790882481813483*^9, 3.792374706008803*^9, 3.792374752964991*^9, 3.7923749956929092`*^9, { 3.7923750272817097`*^9, 3.792375134900605*^9}, 3.792403136221466*^9, 3.792403269523156*^9, 3.792404639923942*^9, 3.792404706203754*^9, 3.79240477113796*^9, {3.792404905237535*^9, 3.7924049091758623`*^9}, 3.7924064956964693`*^9, 3.792406640845828*^9, 3.792407146166306*^9, 3.793457995015514*^9, 3.801993539213942*^9, 3.801993854444618*^9, 3.80208668565763*^9, {3.802086717197608*^9, 3.802086752921731*^9}, { 3.8021659444702873`*^9, 3.802165953601725*^9}, 3.8021661569732447`*^9, { 3.802166276010775*^9, 3.802166303583931*^9}, 3.8021665232773647`*^9, 3.8021776440699177`*^9, 3.802353534336429*^9, {3.802419574160919*^9, 3.802419601097328*^9}, {3.80241964290504*^9, 3.802419648188257*^9}, 3.8026892489469557`*^9, 3.8027016044600782`*^9}, CellLabel->"Out[89]=",ExpressionUUID->"8f31c4e7-3f9e-4970-8ffa-82ae946fa101"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"s8", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Sf", "[", "sample8", "]"}], "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s12", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Sf", "[", "sample12", "]"}], "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s16", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Sf", "[", "sample16", "]"}], "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"s20", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Sf", "[", "sample20", "]"}], "[", "x", "]"}]}], ";"}]}], "Input",\ CellChangeTimes->{{3.789818072879238*^9, 3.78981807590705*^9}, { 3.789818340608953*^9, 3.7898183589082117`*^9}, {3.7898187403625097`*^9, 3.789818745944372*^9}, {3.789818811197695*^9, 3.789818811385725*^9}, { 3.789831546161499*^9, 3.789831546839629*^9}, {3.7898320404262114`*^9, 3.7898320553038607`*^9}, {3.789864943007975*^9, 3.7898649514318943`*^9}, { 3.789892831115396*^9, 3.789892831435464*^9}, {3.789896963511537*^9, 3.7898969690204773`*^9}, {3.7924031541862164`*^9, 3.7924031725229*^9}, { 3.7934580243954144`*^9, 3.7934580247386847`*^9}, {3.801993872175102*^9, 3.80199387669166*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"], Cell[BoxData[{ RowBox[{ RowBox[{"fit8", "=", RowBox[{"ff", "[", RowBox[{"sample8", ",", "1", ",", "0.01"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fit12", "=", RowBox[{"ff", "[", RowBox[{"sample12", ",", "1", ",", "0.01"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fit16", "=", RowBox[{"ff", "[", RowBox[{"sample16", ",", "1", ",", "0.01"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fit20", "=", RowBox[{"ff", "[", RowBox[{"sample20", ",", "1", ",", "0.01"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.789818955879264*^9, 3.7898190417484913`*^9}, { 3.789819085394668*^9, 3.789819091758133*^9}, {3.789819628723962*^9, 3.7898196362971153`*^9}, {3.7898199879787416`*^9, 3.789820000838752*^9}, { 3.789820614022482*^9, 3.78982065862674*^9}, {3.789831005306398*^9, 3.7898310300074987`*^9}, {3.789831442674109*^9, 3.789831462231441*^9}, { 3.7898317830894527`*^9, 3.789831783399386*^9}, {3.789832066674664*^9, 3.78983207936756*^9}, {3.7898624522781687`*^9, 3.789862458686954*^9}, { 3.7898649576818438`*^9, 3.7898649685188828`*^9}, {3.7898928388527813`*^9, 3.789892842756661*^9}, {3.789896975455278*^9, 3.789896979805492*^9}, { 3.792403162844507*^9, 3.792403169274756*^9}, {3.7934580282594843`*^9, 3.79345802877892*^9}, {3.801993883164137*^9, 3.801993888363929*^9}}, CellLabel->"In[94]:=",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"{", RowBox[{ RowBox[{"s8", "[", "x", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"logZ0", "[", "8", "]"}], "-", RowBox[{ RowBox[{"logZ", "[", "8", "]"}], "[", "x", "]"}]}], ")"}], "/", SuperscriptBox["8", "2"]}], "/.", RowBox[{"fit8", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"s12", "[", "x", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"logZ0", "[", "12", "]"}], "-", RowBox[{ RowBox[{"logZ", "[", "12", "]"}], "[", "x", "]"}]}], ")"}], "/", SuperscriptBox["12", "2"]}], "/.", RowBox[{"fit12", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"s16", "[", "x", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"logZ0", "[", "16", "]"}], "-", RowBox[{ RowBox[{"logZ", "[", "16", "]"}], "[", "x", "]"}]}], ")"}], "/", SuperscriptBox["16", "2"]}], "/.", RowBox[{"fit16", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"s20", "[", "x", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"logZ0", "[", "20", "]"}], "-", RowBox[{ RowBox[{"logZ", "[", "20", "]"}], "[", "x", "]"}]}], ")"}], "/", SuperscriptBox["20", "2"]}], "/.", RowBox[{"fit20", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "10"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Beta]", ",", RowBox[{"(", RowBox[{ RowBox[{"s", "[", "0", "]"}], "-", RowBox[{"s", "[", "\[Beta]", "]"}]}], ")"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"{", RowBox[{"None", ",", "Dashed"}], "}"}], ",", "4"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "97", "]"}], "/@", RowBox[{"Riffle", "[", RowBox[{ RowBox[{"Range", "[", "4", "]"}], ",", RowBox[{"Range", "[", "4", "]"}]}], "]"}]}]}], "}"}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"n", "\[Equal]", "8"}], ",", "None", ",", RowBox[{"n", "\[Equal]", "12"}], ",", "None", ",", RowBox[{"n", "\[Equal]", "16"}], ",", "None", ",", RowBox[{"n", "\[Equal]", "20"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.7898191382164*^9, 3.78981915322369*^9}, { 3.789819203381546*^9, 3.7898192055038*^9}, {3.789819326102756*^9, 3.789819347009884*^9}, {3.789819591195232*^9, 3.789819600655766*^9}, { 3.7898196738325663`*^9, 3.789819677929298*^9}, {3.7898197611734333`*^9, 3.78981977649758*^9}, {3.7898322181303864`*^9, 3.789832224367557*^9}, { 3.789832474001747*^9, 3.789832488208096*^9}, {3.7898326615380707`*^9, 3.789832728584391*^9}, {3.7898604327260637`*^9, 3.7898604328817043`*^9}, { 3.7898649731597443`*^9, 3.789864977151291*^9}, {3.7898928942783813`*^9, 3.789892895301448*^9}, 3.789893744798514*^9, {3.789896988834631*^9, 3.789896988839439*^9}, {3.790501199339796*^9, 3.790501228605167*^9}, { 3.790501312814767*^9, 3.790501318389104*^9}, {3.790502626780437*^9, 3.790502637745879*^9}, {3.790687415941184*^9, 3.790687512627081*^9}, { 3.790882634773901*^9, 3.7908827218832617`*^9}, {3.790883013752141*^9, 3.790883013839507*^9}, {3.792406738076473*^9, 3.79240674231993*^9}, { 3.792407225415324*^9, 3.792407275163086*^9}, {3.792407389924787*^9, 3.792407391131912*^9}, {3.8020868653471622`*^9, 3.8020868811244707`*^9}, { 3.8025540559940042`*^9, 3.8025540630900307`*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], LineBox[CompressedData[" 1:eJwVj2s0lAkAhseXiLJyqVTYLUNtum0kt7wfGg4rUtpcMg1hUNFSqVg6siUp DWZKWZcmKWuzw0iuxeaykbbCmDQfUiIS49JYNdb+eM776znveVb5h+8OJGg0 2s45/t/bmdevRFmG2NQtkJoJzThYZxZ4j013hL1Es9rEmoNJ7RMWW+n7UBGk 9FFoy4F3gly+ks6G5uVNLlUuHKhV1fmp06Ow/pS2drc/B/0iupYK/Tya+A83 Hk/h4OW79qH59KuozOY96B/k4O/DGz0V6fkgPjTelfFT0VzkE/K93gOMM8O7 9HalQ3y0wLxusBYB+kdbV9B4ePPzQbfz+Y0YSS44p9B0FfekmXu6e5+CiI0v MJFkgGJfyxrofA5r/7NPfSdvwIG3WtV4tg2s7iQxn52Fcpkqypd2osYzJFUQ lwOXCzlB2tOvsEhpeiatJRe1XlOK5csphLCb+wp38bGu8IszN74HpV8jpPL2 WzjN2CAbH+1FNa1oNifsNirl1ayo2D58OOd6TdP5Dha55dn5jb3FhHtAWJVh AVwfDneHn+3H0VP83AzXQnCd+vzo3wzAqPBk0hT3HoZDN/sidhDPFgUdvBL2 J0wLJVpxakMIJqb1B2oFSE7otTeMH4bL5icbmEtL0B7D2DS6ZAR5oncrX/CF MEjxnGXd/AS3UwK9JOf7sNX1o+smjcLJNn230lQZBmgNRtd3jyFvqObYlU/l WPZDR2CzmhQsrYbB5VOVcBrZftWtXooEWlGv1ZoaRFbuNQpKHkewwdrsfvYj GLbpSDc5TCCqzWqiuLUW/3y5uDJZfRKnR8McjiX9hV+Kf9pm1T6JOrYotTau HsUlLSm/XZrCzYUpawK4jeh5LGWk7v0Mi/OHxDqrn4C36rG55WIZwr4ONjnW tsBt4Ue9rY0y+JfU22lEPwNtfgOr7tI0xOMisSOew8LZuYdw/BedGeaXbbNe IDQ7trpdfQZho5bzXhNtMCCZIp/mGSSe4fyxeks7uo9w+0zPfsHGsor8CpsO pP8eszPH+StCPZiZvTtEeG6qPlGjKIdaYPaJ9QadUGp1l4W3ynHMUI+XpiCG zcTQSGT6LFwafCMZrWLMFutwuEY00k6RbXIm4RW6ItO8KpJopPaQd/QJ+y5E vzr4yHyARsYo7dFkjnUhU5mV02OvQBqf8zGWX3uNCmvTIvd8BfJClOR9mosE mcuY+3UVCbLKccUSgVSCFZZ1gor5BLklwGtf+qQEGfuNlL2UCfLG2kcJUTIJ eLkjAq4qQQa/98jdLpcgxThOWV2DIMcOv+5rUqEQj5xiBX2CNLnomdv1HQU2 +82C99sIMv50wy2pK4X+Cw7MXy0IskJkdvKlO4WAwoISAyuCvL5YYiH0oMAa i2CybOb+Z8jE494UvKPnCcU7CNInX+DxOZCCSwr9QIs7Qdql1S6UxVB4IkgU hu6Z8z+4vhXFUXBqG1ZR2UuQIp3qwrJ4Cg7LS4UMT4I0c76kFpVIAXyG6kMm Qf5CMjQm0yjU1N894MsiSI2Sbw+18ShYD6iVzvgR5GJ+QmlJBgXzDR0HzAMJ 8sdZR92IbAr33SxLO4LmevXbzN1vUtgakaV6PJggjxg4OGzOoyBMJ1haoXP9 GaU71O9Q2FIWVCo4RJCVHpamIwUU/gPx+Uwz "]]}, Annotation[#, "Charting`Private`Tag$363079#1"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], Dashing[{Small, Small}], RGBColor[0.368417, 0.506779, 0.709798]], LineBox[CompressedData[" 1:eJwVkms4lAkAhce3hCkN61bRlkx6Jkm15FbOJ0sPXTxEbmEQcslU2lWytVtJ igiDJIko1maNS6F8mkjlEnJPH1IaJbmvYsfqx3nef+c9P46GF8/Oh2AwGHsW 8p05aalxocb+plWqFYcv70qh1m/1uefH3omL2gOHlmimUFNKvxnpsx3hhMUH Y74lUy7nxWI1th9k/FxdYnOTKbmHQk8WOxTc0lnLBOlkarCDrSjLjoSMw7bV 15/wqVfv2z5JsZPBjX/UkmeSQD0P2ugkyb4D+RV/8BIdo6m6Ald/zsoHqFLR UECcP9V1JM9QOPQYZJaj4qqt4Xh71Nsm8k4tUvKu5Wcsv4p742n7evsbILNb XFQ+fx20X0q6qLMZRyK5i5qVs2CZtIapPd+KDKf4HTUpd1E2w0SZSidGJTmr xBL3sDsqw1fpazemuQYtSyML8dh5WrJsOY0DocKedPNirM+fs+af7cNqlWyT zOZShFnozEyM9sN/TfnHWrsyVIgfcUNPDyDd937/YeZDLLHJ3uE59g7aPy/R iUyoxF5quJd3bhCN19ncuNwq8K0GPNlLRWi077EdIYQYDtjkhtND+NpMfZay eAK9/DeKZ+Q+YVlg8t9umdWIPt9vvvbsMHyfparyRDVoC7fQHVUewW2z+Owq q1poxjrNczO/IHcs0zXr9jOYqXuy1S+NosentwKi5xAxnmql2o1BYppFqu+s g+rmdp86uXHYWwcFC67Uw2pke7JNzTgC2/qru142IKTCQcs3egLHw3fBbMNL rG1dNq5rOYn2kNHNhYZNaJq7rBbNmkKggX57v6gJvwv2G5i0TcEr6cLS1/xm CIrqY2/ETONox2e1zQYt6Kset4h3+BdhWjYm6wZbkKRRbWgsP4MUx6e6YVGv YLP480r92hmsYFs/4HNawZB6yhXGfAVfXGtn29EKI2vrPmLnN6yrcBX6n2xD wM3Tj9pYsxBEDJmv4bRDk3TvcK2bhf2WmFSDhnb0HuYP6J2bg1PY9gjl4A4k /hW+J8P6P+xv+vBngnonmvVYk5WSYgTJ3N0XTHViUaPtDK9RjLC9XgZDvC6Y Tn4aCUmcx7Aup2DDym7MC5Zd5WsxyOMTUnP1ld14HZLgXH6JQU5W97jIBb/G qW7vKkMRg4w58fxKnkIP0qS5GX3mEmRkrXC/vKAH5dv0CmzvSJBh7NJNKtw3 SFN1P6AuSZAXvKneEwSNFcbCwnIpghy4uXFqjxSNawe0pJ2lCdKs5wZTU4ZG 0q2RQj6TIGftw/Ub5GjEap+RZikQJM/S6LLGwk/PIkMg8RNBOnOKtr7QpeHn 91bmgwFBcr7kxKi50RiMsnSPMCLISG2VrFEPGgfz84o0TQjynV/EgxovGtyx Y+5cU4K80ec9wDtEw+XUD8VdvxDkjy2rjapDaOyOZXvU2y74i1PfBV2i8aLw YnHAPoJ0HJP9ZhZDw6p1WFbWgSBLdE6yVONoWC4vKbZwWtiX42j8mE8DWRZM yn3Bl6wUp3yLRmVNrocblyB3tJ7L/phFY5tIrmTWkyBvyk+UUzk0DHXaPQx9 Fvqjmt/759MotTEuafclyKIacta0gIb+sXTmr4cIUoH4R15JQKM4keAqBhDk UdNVWkPFNLbc9y0pDCTI+rArJpX3afwPLXRHcA== "]]}, Annotation[#, "Charting`Private`Tag$363079#2"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], LineBox[CompressedData[" 1:eJwVj3k01IsDxflGKllaSOIVDYqnUrLG/UYRWcIjIkslFUrWSouHqPCsY4uS 6qG87IpCFNkalHVEM6VS9imaYYaf3x/33HPPuefc+5E7ds7aneDj47u9qP/7 vxnpcUE6p/XzA9Xbt+fEQ1nD/YkHxRiFeXek+/PjMb02UHs35TD4HeRkbxTH 40j4/PwGigeyyuzMvlXFQ+RFnZsYJQiZDzpdKzvj8bWHsmY5JRKvspe/LSES 8P5L14ggJQXe1YOiv10S0OS1zV6AkoMF9Utn6RsT0VLgeHqr7DP0XzkYc60v CX0+j7Tqvtdiy7F8zTMpyfh0/rhlZM4b8LpUM43OpuIJK8PmI/Mt2ktildyp 6Rj0SL0z3NuB5HxrG7WXGTBKll+hstAJg4NKCmkH7qKCvQIVkr148Iq2U4Kb BbObWSfXcuiQnHjMFbXNRq3DjEDF+kE42vz0dPp2H8r5XFNqKAPcd0SIdPBD XNqvyv45ycQj2nKvCfkcPJ+vcg26+hnLdgXfWS+eh5WWDw3cpoawsG3CwIL3 CBY1ox/PhX1FUmDuMj6d/0A1+exGER2GWmOA/FBSAUbP7DiKq98xIBS2tGqm EOr5A2uuiYzgeCSjzd26GNHhTEOF0FEcDvZNuZ5fgq7L+7dPSozjUeWEmfGe MmyOtV9wzZ7AlquS9h8Hy7FXxo0ic2sS2b3yvwuvPMMwX4NiuvUUKmbyKpY4 VmKdWrd7iwgL2wwELKJ2vYDJuF6KZT0LleX7HgzLVMPvua3iyeifuNgga7Ba 6SUUOqVY241+QfvynfE23Vq0c6M2RItNI2ClnN/4hTpcKbbT1O2ahnXSp2z/ V69QXNIamxkzA/8UK0OecD0Yr1n7E2x/w4V64VRcTAOS5V5r6YizwRYZOiC1 qRF69fYUyTVsJLnSNCoUGzF0akyMJcFGqaLYXWfVRuwslPyWt4GNPR8Slj/V acRb/dPU9UpsmPG6Au7aNkLASZTF1mOjfuSxkX10I3yT7R8/9WTD1C7wXBiv Eet1xpITz7KRPqHMqhdowsuBv0PPnWcj9vw0VXRlE0QVHjsoBbGRYO0XWizd hLwSnlBKKBsaoRLVRlpNYLRnnwhMY+N5rZxXgX8TLIXHZHe/YaMp96vuCKsJ GufY1pbNi3+MVre9nGuCzPslN06/ZWPD5iCrLIFm/EiXZmW+Z+Mfzt7bVySb EaF8oGEpg42CNF50qU4zXpjcP9vLZiPm+Yp72643Y8sNh5pgZQ4cxhPcKJtb IDZ64hdVlYPfGvcEfVVbMGPps7VwBweSr58UvtVswat1kYlDGhx4LgyXFZi1 wDmn1MPckAP3ac8X8kEtSGoQE9/oxIE4y037G60FfIINrnUxHCRtSk4UiGqF hOTrYzlxHBwfSFWNTm6FslLdiehEDrKrvl+gZLfiL5PqU3Zpi9l0pCSyohU5 MeU+Px5wEBfNXy7zvRUWkjkhq19wcHCvGuffg2+RoXQj69gPDp436A/IbKSh SCsi23hsce9Ooy+hSkODSfiDPyc5eJrQL8bToWHSMyR3ZnqRL/Zyh9phGgwL LxTe4p9FgvDPmIw4Gn5onX5ZLDWLo0vXrI0TaoO2qSmDMJ6FROKmbceWtOOf DTUqiqazCJB2TPVf2Y5Po7uCTMxnIR0cdokq0Y7oWFnROJtZyKUaJS7Z0g5G 56SurOssSpjxsjfN2xHhkpKieXEWEVRjQ93b7XjnP2Th9XgWTfJXAhT2duDM 3atVXWJz2HvrwSW/4nfYTDr3OLbMoa7m5sPSzC7QZWJ1dWlzSIkxftOd24U4 Ts1d6Y452OdqjE6VdGG+WO5UX/ccxiqi01Y3L/YVvrDtPs1BXFthnD3dtcjp JW3NmQOr4Ad3h1k3+HsuHj2gxEXThHet3VQ3npU8qlVS5qI/3MfFYq4bZ+P6 FYRUuVCxk/DWEezBBxO98fqdXLRXzapNSPXg2Qu+a4b6XPSGUVTb0AOf7Mgs fVsutP1qVRyjevDRm/pZPYyLdSK3yp3W96J7hV68dQQXle7mlVHyvWjNGdL3 uckFf6L6xXyVXlQyd6U/juXiwiZ5/Vd6vUi2fXdIPoOLggHVa0ZuvTDTE6sW K+PiF8GUz3642F95M/XHVy5uba8X3EbpQ1HeDqNlP7jwWOq4JVelD7lGvT8V xrjQoJa/kdjVB2qIkqXbTy7iXcrbWvb2wedXvWDvAhdHuhQPPXTug9IHwq9e ioea0jnzjcl9SHp82TzLlIfTRkO/P3D7UDEt2XjDnIeQ9E/bowg6BlFkcP4Q D5mudUvUltGxpfOLpoEdD9Gcgubja+h4wbWQH3LjobbDYMRjKx2fzeV+K13k wWX2euCcDR07J+uzCnJ4mLrp28G5T8dhHdcNqY948FYIFn6VS8fl8FlqyH88 KAT5KkT8R0eD1PYoqxLeIv+C1mw5HUf2pgb8rOahctWDe7eb6AhNOGOq2c2D rH/0+44xOjrUxX5VC8xD2Xb47tOd/dDApmdfhOax2WDXPU3NfqSbqF1eKTyP ej7huGLdfpxwthE4smoeJX+w/NP29YMdmbJ2WnYeHUXKkqp2/fijf+NuFc15 TOkvbb94oR9ef+8ITDk9DyeR635elf1YSrNin6PNI0qqJlV09wfo/xoZ90ta QNx7DYNN4gNYKJaKpyrykVFDK18H0wbQ75foUHmLj+TrSPDRoA4imH78pdYw H+lS6Wlz1vQjMoRcsxiG/GR3Gc/7FOcjKveoF1jl8JMVe3arxh9hIGOds5OM AEF2RpxMOlfEgLROXVGlIEEyv+aAVcxAmpOikIMQQT6zG2T4lzKQfG+8iLqC IPfUHxK89JSBWJVrQmKrCDKTdO0Jq2IgFFnF/H8QZC5hmEdtYsDD49Oyb5oE Gf4k6K9iJgNfbxo5X9cmSPu/7r/f9ZmBE/mPSjbrEqRooJ5p2RADrlO+zq76 BOkSOCP77BsDR4KXlPbtI8jygxJuVWMMmMVSXFqtCHJKy+l4A4eB5qIbpWds CHKkoNrbeI4Bk87R5cttF/8d3RrQyGXAaH1Z6X57gpQQU/duXmAA9/evqHEm yEFqK0ETZKK6Ps/lqCtBRh642mUhxMSeYZGyOTeCLPtdm9W2jAkt1W4XLXeC jOJIy3UIM1FuqVPWfZIgQ3z0u61EmNjte2dFwCmC7PtTPPydKBOlSYTrmjME WfBPirKNOBM7n54sK/IkyAiJD03vVzHxP/TbxQc= "]]}, Annotation[#, "Charting`Private`Tag$363079#3"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], Dashing[{Small, Small}], RGBColor[0.880722, 0.611041, 0.142051]], LineBox[CompressedData[" 1:eJwVkHk4lAkAh8cXTSlNJYuiHhlqeehYMs7ft8nZYU1LdDC2RaxdlaJkKWnl Sm2oRKvDkTyunIMYOQopZZzh+1iMxRCRsKz9433ef9/nVfnJm+tKMBiMg0v8 75SE+Jt+Bh4mdtsCCE09f2jscc10Z1ugKOusoIvyx9QGX31d9hGs4Xhcvhl+ CUdDFhY2sd1xw9J+YaorADKllS4sth+UPHfOVoQEYaCVLbuSHQoN+4kLmh7B +NAvHJZi30Hj3ZTTgoJQvPbSdpBkp2LwBjN7evst1Gcd8/hWuQhNaZ3ca2kJ aD+dzqkcEmD/qorCK7mP0XvmpE1oai0Gpk0K66fSkDmRcLiHfoOZDJ+1Fs8y 0e1+94GorQkXzC1lExdzYB63VVpzsRnP7u/an9Wbh+IZaRR/0waj/Tlz5kWF OBCW5LbhaweqWcnhG0/wIXCclixW7EZosU/NcsMyaGTMW8cGU+BcKKC0ReXw N9OamRyn8eRVrb7YVICShTKeX2AfGmofOtpmV2K1TfJel09/w7Mp/xRXsgqH ykd6vK8OIO2gXmPPuWrEWvW5sNeIIPdl2XhWdw1GPHeeQOAQvqZLS2ze+Qo6 GV2yQTLDCGgKPKXw4DUiQ2hTteAR+BFa5dmTdRAGmO0YlxNDJsXSS+jaANVo h0XeozEIfbOERk1v8L2SC1spfBzy3B+097LfQsSoUY/nfsKsTZZ4yOod5He1 uNbLTEA94EPZlal3sBIb37GpnsCQifIwP7EJPiV26m6Rk5jlJ5oa/Pgeas0K EzvMP8PCqOT29YX3eDcfsSmSNYV+XxZLufADfs+11zMUTkHRMkzE9WpG7vOG 6MSoaYRtTio+IicEVTVh9qfdF1hljuY/ahAiTqWKY7B2BmambU9L/Vpgs2pU Wbd2Bu2/ieb8trSCIVXDq4z6Cv7hHRcvCluhb21NERaz6DCWFVsFtcHzr8Ay IWsOFrTWDZ5eO1RJp9Zj9XMYD+tXM+9rR8+vsX06V+ex63XlpjcRHYh5FnAw yfpfCAQtRvF7O9Gkw/r8QnIBN8tD7faMdmJ5o+2Md+MC0n297ymkfITJ52Gx T8winKoCDBOOdWExV+FWrDqDPCS/TSiW7Eanz21HfjiDjFRdER9a2o1LHScr OCIGydT9w37MvQcJTF4SZSpBRopjOPNMCnwjnSzbVAnSeEtwp+pJCgnyTseV JAky8r3x7O4iChsNKnP4UgR52SLkVWYxhXvH1ZmOTII8V1oXp1FCIe6hOCdW miCPpxz5busLCtGaQUzWOoLU9D/jta6KQjCSciU2E2SdSnL32FsK7u69Kwb1 CHL5mdUvMwYpDISZO13TJ8i5fu6t7UMUfs5If65qSJBjR+85P/mHAu/TWSee CUEK96nP3x+lcPTSsrz2fQSZrEDqRkxSOBDNdm6wJUjTCp9Uj0UKdTnX8zwP E+QeXf75fgYNq+aRlSvtlnrSGftcCBrmivl5Zg4EuT4minKQooHHZtLlTgTZ 656qaLmKxovqp84neATZ8nF08OVqGkYimfw5l6V+W50CrKHB0Wpx5rgSZI6h gKu3jkaBjUF+ixtBPs5mqjxfT0P37APp86cI8q7aoTHtDTTyYgierCdBRsXH lKXL0dhd6Jaf88vST1ZnhLo8jf8A/r9P+w== "]]}, Annotation[#, "Charting`Private`Tag$363079#4"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], LineBox[CompressedData[" 1:eJwVknk4lIsfxcckJKUiuaGuZWi9JEXIGZQuNwqptDCUlHSNFJErIZVkzZLI 0jKlW10koj0q175mFvLaUpZLKOadd+bn98f3Oc95nnOe7+ePo+np5+RFp9Fo ZTP3f72bmZEQZHrMws3y0L5+QSJWbfR65K2zDfnmI6fudidiUjlw0wadPYie Z7Xj6EAi9kWJxWo63piIWr91bDwR856/9VDUCcLnx3XWqnOT0P9JR2mOzkXs v/N6qmxTEpr7Wgdn66Thd1b2w93pSajy/W2vtA4HNTcEP+j7k1H9eP+xlRql WPhI5w9NtRRw2fkmb7++Qf7ZSea9z6no9j+04yLnA25sY/Smv0jHo++Zzp+J WvQ8/hi6YDgDnd7pNwfaG8HNjYnz+DULNqla8qslLfjLSC+gvzAbz6bk8Uyl HWVPtw/e2ZiL7ZdzjihP8+Det/W0Zkoe3rj+kH72SyfirIcCvqy9jVV/i+xS Irog9k9imX68g5Cta6fGRwnkyinm04I4KBe/YAWF9UC/OsPCzvc+FHbcsfIY 64Xgw/etDzwewOHV0Ge/yH4EDNl9neI8RIptj4fO/AFMGgq3XJH5B0M+BgcR 9hWanNyXP4wLYPR3h9K5eYNY0beef/t6IWKjCGtGxBDWRFYF8qeL0Bq6VX90 8Qi0Jv74VplQDO34vRJW3n/QTAsvn21WAkt1Dx31mFH4ma5VSSVKMUB7r5vh NIYQvRav+R/LsGRdm1f1vO+gSb6d7L7/HLYjm9N2VH6HzKrIG8pZLxFQ7qJ7 JHYc5f23lZp9X4PRovpd32YC/+TO3St18Q0aRFfUYhUn4WYgul9U9RZ/Fe42 NmudxMJVw4tmqVagsKgmPuvqD2jfiNBodq9EV8X3rUkuPzE9vKZmXet7pGpW mJgumMKC4x6HR60+YsfcYY0NH6YgNgxcuLGsCrTZ71lvr07jpvMbK/cj1Vis UuHJSZhGeIHswWbfaqzSe3s4NnkaKxcsdbYNqMYu25dHd1+fxvECk8+m4dXg XH3K/nZ7GrPKNRqMMqrhoMIJX/R8Gm7jXhZ76qqRqXcpx/PbNCa1dsjHGNdg k51dF32bEL/OnXXfQakWcWqvVuvaCZG/PtxeRq0W3UPrg2zthTjAPb36nVYt YuM15ic4C3G1V9i63bAWXS2jZhosIUr/vDHBc6xFtHtamnGwEKO7gt8xkmrR dKrXwfeBECcHUnFhcR30bFwz4h8J4Vm1YHBSow6hS+r6CguEePX0Ct9Ptw6M spLQ6RIh5KN+6p03rsMZSUx+dIUQXWRuvc6+OiyLWSeT2yGE7AXveeZ5dfDJ DnvRqkhCf4v2Bw2Legxr9Le+W0TisjfjTOW2erAz7UcKFpO4KXUpJdyxHoHX 1ZfHqZEoUZzvv96rHueTy8Jt9Ej453N+3r9aj/SLP6xLLEhMlbHsTXrqoSbj duCOJQnZ1C/Z+0fqcTOq8lTyFhIbHCK7M6brcfv8tTt+diQ47caWJnINeHzW UHbFbhIBWUFFH5Y34L3fn/+mnyCRQPmYrHFqmNlba3c0m8RZVe7d+r0NqPHd TJ4KIME30m696N6ApmMKaxyDSexT4BqanGhAx6H8q3MukGgtTn6Se7kBE3v6 d4Zkksjl2bFUPzQgqM3+2NFsEkdtJQPM+gYIdxWf351HQsnq/pnoTw2gOUUV Gt4joeoZIn18oAEK27WUB4tIZLCdV+bPbYQ20+3T/moShhyO+eW9jeCpx5uZ 1ZH4xzO2NdWzEQnTr7KXNpKgTqq3Vfk2QlyoeZTbRsJTbTA87/xMntE3tbub hGubq7fBw0YkzfVd6jRN4tXB7JXmCk2wHcgMWyci4WAZQvui2gRaZW33AsmM f8eQes1owp9h+g/qpUVIPWm9SIwm2I19N7NfIMLXnaY1xYFNkPoUfPB3PRFe nRib2DvchNKi/Dd6q0TIvqp+fj4100/gM2TXiqBstHjlT4VmCGw3j1QaisD4 ESF0W9uM0ue0c9YWIvQsz7kYyW4GO+9ijoWLCA9VDWK7JM34fCKlxyhy5p9B ob+JRSva5DcnOkWLIOU5Fivl0ooaTq8F+7IIWpMl3gPHW1FGrM94EC/C2Bmv CzIZrUh1adqplSlC8gqfDzY/W7F9s+JLxWIRbLnCGG5RG6x5T4+vLRUhXtIc za5ug2mQ2y9/lM/wBnwooPW0YUXBw1PRb0S4MxE8QF/0CbMY21dTtSJcWWHn s93vE8oULqd/6xdhQ1wcXZbRjoL7BjZy30R4PcusW8usHfds2scZwyIMacom LXZsR0q43g6PcRGe3PKWDgltB3uicna7ZIbPKTlLtbEdegJ6QKUqhReZUbwI NhfLgvN/7VGjcHBAycY/kgtlFac62nIKure7e3RSuaDvzF1pzqDw52GTfG4Z F53v0FW4jkLANYNcHykerj0Itc+xo8COkbqlFsnDs0mVj5fsKRRdr9G1TOSh EwVW/jspXHFRVlqfzcOKlj5jq90UqroiXf4q4+G5yEGr14OCuueJ2JIRHgib r5k1hyk0VGfP/YPkQSYxckmxN4WE6CaTR7J87GSUKkSfoBC8YpFK33I+euw1 f+oFU7gnO+e0tgMfcunl/gtCKfQuDjth6crHmm6XoakwCo8D730xPMxHYGAM URVFYSRs/+xrwXzIZ49XH0+g4Bqon+CZx4fhaGXOY85MPpabVTHExx5Tllp6 PoXy83PK/Cb5CI0SpoQ/pGCuZqU0TfHxXlX/imMRBcnsTsm9+QLss0w/Pf6S QphSXkLibwJEJPnYGbdR4PS9q5A9JgBHIF25nEvBgr2vr8dPgBrdbMgJKNwy OMTjBAqgUt5sxCUo1O8JWPY1UoD8HvPlZ4cp+CXd2uCWJUCjkeLES2kxZrs9 uftXjQAb8Wtpn6wYw7/15UU3CZBhuy5UYa4YJ0L8nUPbBTjs5iy9b6EYGq5d Bw16BZi6mKY8qSHGt5uqS2uFAizjL9+w2liMEP1zaasYHfA9bxCYdkwMtnq7 dRy7A41XLE1f+opxyVddmXa6AxtTncS9fmJkNihU+AZ3QJJ/KtowUAxHRtIb k4gOJLWUptZGiHEhIsQ7M7kDz/QsS2ZlilFJi2Z/K+qATJ3jlF+dGA5b7LfV jXYge+MauUuNYuj18LwCJjpgki2jmtMyw6O4a/+SqQ74sMuNG3hi3Btsaz4g 6UDtIkaQwRcxcq1f2PbN68S1PVOToxIxKsZOvtJb3Qkt4ua4/zoJxE8ONN71 7ITFxOBIwDUJqMMKtY+rOyEpVE1M0aUxz8Qe7OyL+wx+QLJrWcyMX2p3dtea LpzlHXptMkBjZnk7ery91IVMWVZOl7UU09D9Lqnd3YUyc6PHjhwpZlhl3dBi KwKZS9wOqEvTmRWU7/u+DAJLTd8WlM2mMy0tr+r6ZxK4fkBX1lWWzrz+Y0Oo KItAau5IQYo8nTnuaCWnlEsgfvU5WcWFdGZP7qbb4BCIQE6h1DI68zb/7/HU IgLe3t1yX4zpTJU0lolFDYH+yzZuFzbRmVOhZw58rCVw+O/8Im0zOjMk0ifI qZ4Aa+ykG8uCztSXX5h0pInAvrOznnC30JmVzh3749oJbI/Xca9xpDMDzuba C3oJ/Ftw6YmPM53pZFzV59VPwLZlaM4cFzrzTenD0/99IWDzS/GTrXvpTNW9 g6H0QQK4tVX+lRudqcX6sWrFGIGXlffdD7LozPmyLdcLvhMwH5hXTHrQmVLP 5eXMJgiYrG1zN/GiM08t8aq1/0ng6Q7T4rYjdCb732s6n6YIbDh5U/70UTrz S7n2KZaQwJNrdJaSD525xUL1+VeSgGHJkeKC43Tm3bdnRCcpAv8D9e/Mpg== "]]}, Annotation[#, "Charting`Private`Tag$363079#5"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], Dashing[{Small, Small}], RGBColor[0.560181, 0.691569, 0.194885]], LineBox[CompressedData[" 1:eJwVxWs01GkAB+DxxlqD2CQp6shkV2WLQw2V39sFO45ypLZc0ii31K5UclZW aSuUjtqaISFJUaRci4rMFgllchsU80camcSEiMzufnjOY7I7ZIs/YbFYm/7z /zdTks+H2+21f7jWStR3PRFLVvrnBXKcIC7b7eT8KhGjs4/Y2nC2Q7rqYt2d r4nwPDk9PZ8TiA+WIy2H3ZKg/Ujkq8MJxyyzkgGiTEJfK0dPgxMD75l2+gs9 k9H4rnlAjZOId53rgrbrpqJm/887VDlZ0Hjyk7qf/TXU3vXaa278AIMS6b60 hVloO3CbK+qvxKbsVAPD1Fx0h+5xjcmqxvX4sMHjynvIU6S4dzH1UIs+sKL9 QyE6A5PSZBIxMhs+CtwzS+AoXMReqmyCiXdFu2VSKUrH2SidI0Eo12OZU9Qj uMSlB8yeaMdESNi1SKsKVHqMqZYadqJwWBFxVrcSS3KnnAUnpNDwkJfIfhch wsFi/PMQA5GM94dv1T94OP2YHx7Vg1ChW47W6mfQcr2x3ne4F49D532qFlZh c4W8K+SvPkwEn8so1nkOAa/HlzNThtR4vzfl0TWQB6/Yiah+dHZM/ShpfwHr 3Ld6x7QHMIuHHlO3OsSfZDYsPiFHX8/6e8fy6tEc6bB8SH8Q2SlDcm3zVzBN 2KHkZ3xCv72KxGtzA9YZ+XKMzgxhc1Ww6MFkA2SsKrPkLcO47X2rN+++GAaW Lf612gq0xj3XsQh8Dd7g2kTXZwqsrDWc5uo14tDDbWYB8Z8RP59yOusbsbhp rmK54wiKiJO7ZmQTGqbOzo/XGUXj+KIyMbcZfxb8ump18yjMZlj2LlY0o6Cw LiH13BicMhcakKstkD5VOPy97Qt2b+2JDvdshdDkKddOdxwuV2JGD2tI4Kr5 0dimehzBYzuXsYolYKlV8UXnJnCcr3GFE9IGW2dnKXH6igBfwSyxUTuCr0Y9 btaZxMbQsco5be0wpT6tXrWTGDbgRvTGdqDrN0GP9V9TEL/OGYXNG1zKidyU 7vwNOSkj2dZDbyC21hkpV53G1m/G/vlpb/HdS7fxkJfTGNtv5FHt1Qn7kYHB Q5eUqB1y0d2n3wVlwdwLAjMWDdH0aRCKutBx6KJH2RkWPT1vUa8FpDjavucJ V8aijyJO+TUJpUhR56dLN6hQ9rvoqkq5FGVrrO+6ZanQlpagp5M8BikGPt5G qoSyZz+pmkhnMM9OlF+mRih/pH5lVAaDy95m6h7qhD5o6rhJMhkIrw3mC9iE +gm+nNbMYpCw9Ji6zg+Els9Z7mR8h8EJpBeoLCD0oGFaNS1lEBjY/f37VYRK FkQ+jxEz6Itz9DllS+gKZRxXq5GBX+7tQtPVhJ7uSsw+38SAP3zQh29PqFV6 YezlVgaeR2cUtW0kNN5k4JectwxcEji76twIpRzPmpf9DF7kxxYFuxMqVA2y dR9gwGuSa2hsI1TeG3arVc7A0bC4yGEHock3LsRJPzHAdQd2hQ+hI2Y1PMUo g/Jnt3bt5BPqrN5aeuQLgzUy7eJJX0LT3/eaT44z4Fq07OL6E+qSzWKrTjEo cbUrbgkgNCN2ZkTsNwY2B9PYYUGEfg0y+qClZFB0ifD1ggndwlvieYHVDav7 AcX5+wjNNue+0Cfd+BeLLFhR "]]}, Annotation[#, "Charting`Private`Tag$363079#6"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], LineBox[CompressedData[" 1:eJwVlXk4lAsDxTWmSCQRSglZihYpWcJ5EUUqlCxFg6Koayt9lduCShEhKteN VJSUbEWW4iO51M2MfZsxlsiSLKHmfd/P98d5zj/nn/N7zvMcZQ8/+2MMISGh 0jn939OTk26fNTxhcupYF8NuOBaa24699FbdiZawJemK47GYkgk20FV1hMGN WonR6Vi4hFOUgqo3+vqr18cJx0GipMJdUvUsag7Yvv6+Ig79zarSC1Wvg7kz xVPIOg6cvsah+ap34bRtJPLCszjUnNzoxFTNgITE3vDJU/GozT50Yt2qQnjM Gh8x1klAq3+mfsVgOV4POzJGfyWCH+C573pGNVbbMd9Id97Dy/Hk/dzuT9hN nj+nJvUXurzvPRhoqQfjUqhS1K6/YZmoIqZFN4C1bVmSDy8FRTNiKJJtwfFY F6OHdg9hcyPVS2a2DVeIxKjw/DSUO/9kFi3vwp3nEm537B9DM0tgnRDKg9Er Lz+d8Sc4b7FhZmKsG0klxHav9AwUU6Wssxd7wO7eUnL74TOI73ti5v6jFytz 2pWUkp9j77thrl9YP2zHF1zZ/PUFEqx63FUXD+By750rxRqvMOyj7YqLg6io kk4scsnB1qxO6UsSQ/je2OI0VZaLqPBuc7XQYcRMql5dpJKPxhCLTWPLRqF0 XFu1tKQAa2KcaFbad/CcMoUv+76B6Up31ZU3x9DX9N1ITq4IA0If1JPsf0DU Xb71q3Ax5DY3HauVGMfLF0XP/IZLYDVqfHdf1ThurT/5+GN/GYKKHdS9oiYg F1JhZZ7wHmoN8uObLCcxb1K9sCS3HF8EkQpRklOoOsJUEZutwJ+5B/W2N07B bqO087zdlcjNq4v5+9ZPEK6OsocSq8CrHLeIc5jGxbAfZxIlq5GoXKlvuGQG rpoJRx9d/oh9i0ZW6VbPYPyxneulXzUQmv+BVXFrFkyqbn90ei0MrK15jJ2/ 8MbPTlBn+Qk+KRdLGyV/Q9bkyqesVf9iDeHWfKj2N14Y9AwuDfwC7qmEnq1h Ati0H5f5r3M9msSMY+2vCeD5tOdJlWs96jJ6TfxvCPAuY7ldjXs93nZvSXoe I0DLQOCJhhP1SHRg26okCyBV9WnN7Ll62BhLlkkWCGBeGat7KWkuL37j3rd+ ATT/6LMv66hHzjNtS9FvAvRv2Ht1glePp5YtE2ojAsT+U3ZEq68eCZc19rlP CDDktt750Ug9/Cer5rfQAjQ02xYVUfXQ6GAEVcmT2BHpq56qzJ7bXcieVGsS hw8RW4Z82Siakv0YsYfEIe47/+v+bHQhxyzAloRK7EnhjWfYWNvQp2d2kIRR oJkg6SIbJYK9Kr3uJD6EVEqJxLHRbTmYXHeUxO61Eh7Cd9lYEBsmV+BNIiJo wevFyWzYqhWKXztFYnrz+ysO6Wz07FGe1jhHokZj+mhhMRui94oDloSQsBJk 7jEvZ2M932F45iKJpJ5lYz0f2AgOvtldE07CzvzwSl82G2IpE7W+t0nkWWos yfnGxqbBW5YH4klY7/jDWewHGwe2rC03SiQRt7VSKmyajQfVh19LJJP4Z/3H nCYmBzpjVanZGSQ+pjH2GCtz4GjIUriXSaL5jcj2d2s5CAn/lXD5BQl12QcK ftocfJDfFGmXR6J6dUelG8GBi+m9MxNlJKKHDf6T58HBpUidsfZyErO/h8M6 fTl43FjnU1lJQs64qmXXGQ5GT8xjJfxDolJqqfxIBAehcT7Wek0klv/ao1We x0FGB7NqdSuJ3CNZ883ecVCnngLRDhLbHAVPFGo5kC3mbG3tJuHGbV871MPB 9vl/ZJf3khgj8oz7xzhg7RPVzPxKYue4reUuioPMHqPVF0ZILC6+MGC3ogH/ bmi+7zlGwl6U2MhY14DJswEyNhMkgs5OSWrpN8BEPH3hqlkSVRXMpJ+ODajf KjlZxqRwjRZz6/67AdugVNgnQiF7nWWqe24Dkqw2h4gvotAav+VuXHUDjrrt Z7pIUVjBqWtdNdmAmuNHP16WoXBbwk8xbFEjNgadicqQo/DF1CX2xZpGzFy/ KzO1ioIpGTrlcbARrnFPWxSUKbSI5NaO+zeiIrko2UyVwsjZUMkDUY2IzGlX va1JQep4mf+dqkYotq/W1dKjEB2uG21u1oSwPu1ZO0MK9S8CnG57NmHgu2np f4wpjJv5/Mq72oRc5lGLD+YUzgfIuQbWNcFi41MHd1sKw94Nnw94NuPkFe3g uycobLI1vs581YL6SFPDspMUCmJiVTPbW7At0Z7q9aOQuEzJ855IK+jM09d0 gil8H+yYlmG1Iq6hMPFTKIWVkZWaHKk2THfVuExepeCzT8NtsUkbDg+2KSrc oPDVdpW0rE8b1ClB+vEYCuuyp+z2lLehSMP0jXDyHO9R2Q2ffNqhqGN/QTOF QsjJxH9b49sRauQJuzQK9saWZlYl7bCxu1r94CmFNkt/uZWLOsA7X9NsUDDH K9NttjSlAxZX2/5iFc7x3z/o1l3RgcyYoSPXiyl4bzwXo9nXgaDHEgMN5RRK Y+1bNTQ6seCz3YzfZwo7yqJ1s1M7kbJtvWhEPQWdHQpwL+mEfsoC+dQGCvmD zopEcyd8/Iv1vrTN8fSLnr0u1gXh1oSdA50UmD/jjMZVupBs6u8o1E1BUXKH c7xhFz4tVTur/ZXCbq8W/ZveXfC6QF/b9Y1CVvE6i56QLlA9rYmsEQoiy4KC L8V2Qbsg+vXtibn84KP7jwrnftJxZmqMpkC5WsfL0V3Y8J49f6EwjWfrH2tp SnLxYe2LZcoLaPgYKE5kKXIxM+uuaydOYykzzFPaiItYDyOLE5I0tOzjTGgr LjRrZR2uLKXxrvC4qJ8jF4eSa0/nyNNYUK2dNeLPxSQzPbxGgUauQ3+A6J9c RJ26fKdbkcY6++8nSyO4KDPRzZdSo7FQ73ns7wdcqHQ/mAjYTOPnxM5cvWou iq3OCd/cSqMsPJNx/gsXB3L3S6fp0bgdUZ15ppWLa2GiW9jGND6zlDLuf+Ni UC0wUMeaRnrXm1WTTB5Co21CrffQCL//56G7ojysmFaP87Cd65f4WV1JnAeb j+05cQdpZOWf/jm4lIdXPhY/xj1oOLkoD4Ws5sGKs3reIi8aI666roEqPPC3 /1qy5gSNMI8xX0c1HmQksrX3+9FIKzH0Gtfk4Wy2vH/eBRp16bKfzuvyYDI5 NBp0Z66vSePD/bt4mC9WVHvwLg3/mrH7LGse6lZfe2qQRMMvbXaXlw0PLruV POgUGjGHJqwP2/IQnHag8eZzGuKes2kiTjy8tC0tflhBYyaySvyqFw+KL6Ij /h2jsVHbvNHsCg90rnxsgroQEWb72rAsl4f2oHjntzeFiEyL5fVGy7txoc3z vf6AEJEaP5vTG9yNZBFWKs98HlGXvLf2dH033hptzbbLmEe0VBzVeabDR7Kc 2+GVTAYROFvY/iiKjxWGFTlv5zOIZTcltmyN5uP+YXURZxEG8dsl/2JlDB+J D0dzEsQYREWK1kRvHB8xWpdEJKUYRMSXDfZq9/kIRWruPEUGEU8ETD56woe3 N1/0qx6DqNZP7furjI/+G5ZuVw0YhIxKuJHWez6OZmXmrdnOIAqO8W++LeeD 9SPQjWXCIKLkVBa3VvLhckE4v3UHg1gYZJq9rJYPmxjVI3V2DMJWimLdaubj n5yIfJ/9DOL1JWWdla18WDUML1zowCBUQlf9zmzjw3J5Qb6FE4NgyhSf/tjJ Bx5ZiL1zYxB1GgdFhHv5KKt6dsSVxSAuyojci+3jw2hAouC3O4N4+GetktJX PvQ3NB3RP8YgbJ68XGH8jY/X+wwLmrwYxNP0zsjaIT50Ax+InTnOIHwyiSnn ET7y7zBY0j4MwleNd3BglA+dN14FOb4MYt3LylfBY3z8D3b64bU= "]]}, Annotation[#, "Charting`Private`Tag$363079#7"]& ], TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], Dashing[{Small, Small}], RGBColor[0.922526, 0.385626, 0.209179]], LineBox[CompressedData[" 1:eJwV0Hk41HkAx/Hx27EWaerRQXSa7KZDinLl86UoOiwe5ZiYqRAdUlt6XO1W u5Wd6HCUHWePxlUaxwqVI6PcbCi1mPk5UuS+TWz7x/t5/f9efcTX3oNiMBj7 v/W/DwUxt/yNvc0O1tEDeYlC6GzzeOzF3o3x3J+LsvOEGFt0wciAfQjhghdh mTVCuFydndVge6HQO2ajcEoIlWelPBbbHxuY9iei7FLQ/Zatqsi+Bjmjku5f 5FLxpqupV54djayk+FY9XhoqTm5yYrKFmHeBU5W+6hGqMl291y1/igV7TZiy UBFazqQZln4qAW3loKjmkAPa76jtNeEr6I7mqZiq5OHxsMChXVqDTW19Fnyq AG1e9+J63jVgIjvDzV78DFZRa5TWzzXiXLlp+q6XRcifVEL+knfQE/MD451L sO9GgueiqfdYEFsccehpKUqcx5n56m3Yc5dTnqxfBp0MmU3kZQm85nb0Po4W I8By4+TIoBQoE7OejZSjcPY51z+kA37C3H3up15jnm2yBW+oE6GM3qDnNRU4 UNTX7nulGzP+18WivVWItO7gsef34Kc91SpppdXo89l8GCGfYBLmaH14VS30 M1pVL6n0InnYKvbhX3XgX5XuXHu5D8HdZmebQurRFGSpO7i4Hw1H5iclmTVA K9xpjps0gKvKooah6QaYa/LYmqGD0PEdD4hL+wc9jHLtGPshyKS+m5d4v8FS vWaPKpVhvGTx3XuXNcK6f0e0rXgYXd6BYRYV3z4VOmp78kdg8Cau4tgfTVjb qDasazUK/4ljIZ3bmlEv+1ODzxpDl447dMebEZx1cLtJ0xgyQzcwZKK3yMqu Do+9OY4zyQJjbd47SMqGLe84TsC1jvymsbIFUavLDI0XTMI455r56foW2Cp/ WW7wahL+4kS5nSHvwZAv55benEJ710ANbfwBRjY2Emr3NExLJKqSzx/gEx/y vIk1g7J0ec+U1H+hRdzeulbNwNyuRq/WtRXtpyI79K/IsEzr+NfzSm2ISA/a n2DzFSuZ25t6XrWhQZ81+oI5C42EFO38i+34vtZu0rd2FvFrf7TQ0ZTAbLS3 /1zEHHi3OwYNAySYy1K7HanNIAIXP854gwQfzt11LghlkFPr1Q+o60kR+P5o sWEPgzx1viP7fEMKgQI3QbJTjuitGEv7KpGiwFQ/004oR8w/+7WfBw3BUjeO JpMilarF9YJoGsuMS0UF8hThyGWc1r5P4z5HW8FZgSL9/dHznsTQiErsF0Uq UWRhpe+el7E0wtdfUmAtpIjTryuLPz2gcRkJWXIrKNLVF5K57QkNLy/6h4/b KTIn3hFW/5pG9w0rt9+NKHI7e90Gl0oaxzLSsrVMKLImcXFlRxUN7tBZN64Z RSyDvshP1NJwCfwup2UXRfhbYoOXN9HYF852r7ajiFq87KSPlEal6HqOjwNF Uvk9SqM0DevGPkVFR4qYBjSmBHfSsFLPzbF0ooi7Y0bnrY808MBSqciNIsnK HE7eFxovxKnuh7kUMZzaPU0GaJj2qOTO8ChS0b31XuUgDcONze6GHhTpK1Fu bB2h8betcW6zJ0WCMyf8vMZoGJyNUzp/nCKs2A7W0DiNnAiKq+pDkaTQukcB kzS25Hnmik5QZOvFwr3MaRr/AS0mXhM= "]]}, Annotation[#, "Charting`Private`Tag$363079#8"]& ]}}, {}}, { DisplayFunction -> Identity, 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}, DisplayFunction -> Identity, DisplayFunction -> Identity, Ticks -> {Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Automatic}, AxesOrigin -> {0., 0}, FrameTicks -> {{Automatic, Automatic}, {Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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, "ClippingRange" -> {{{4.6991532510082564`*^-8, 2.3025850460025135`}, {-0.02372567994350283, 0.5930196265360393}}, {{ 4.6991532510082564`*^-8, 2.3025850460025135`}, {-0.02372567994350283, 0.5930196265360393}}}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\[Beta]", TraditionalForm], FormBox[ RowBox[{ RowBox[{"s", "(", "0", ")"}], "-", RowBox[{"s", "(", "\[Beta]", ")"}]}], TraditionalForm]}, AxesOrigin -> {0, 0}, CoordinatesToolOptions -> {"DisplayFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Part[#, 2]}& )}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "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}, PlotRange -> NCache[{{0, Log[10]}, {-0.02372567994350283, 0.5930196265360393}}, {{ 0, 2.302585092994046}, {-0.02372567994350283, 0.5930196265360393}}], PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ RowBox[{"n", "\[LongEqual]", "8"}], "None", RowBox[{"n", "\[LongEqual]", "12"}], "None", RowBox[{"n", "\[LongEqual]", "16"}], "None", RowBox[{"n", "\[LongEqual]", "20"}]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.789819154559926*^9, 3.7898192058383102`*^9, {3.789819328973916*^9, 3.789819347233488*^9}, {3.789819586510404*^9, 3.789819601266243*^9}, { 3.7898196317659693`*^9, 3.789819637118384*^9}, 3.7898196782312527`*^9, { 3.789819743383521*^9, 3.789819776802191*^9}, 3.789820003836022*^9, 3.7898200483861856`*^9, {3.789820594030262*^9, 3.789820707787868*^9}, { 3.7898224631465263`*^9, 3.7898224693046827`*^9}, 3.7898317351153708`*^9, { 3.789831769123528*^9, 3.7898317873044233`*^9}, 3.7898320868229*^9, { 3.789832219182062*^9, 3.7898322246789417`*^9}, 3.789832488485786*^9, { 3.7898326687007637`*^9, 3.7898327288395452`*^9}, {3.7898604293463984`*^9, 3.789860433244069*^9}, {3.789862454221322*^9, 3.789862459724276*^9}, 3.78989284423855*^9, 3.789892895680129*^9, {3.7898937316741867`*^9, 3.7898937451922913`*^9}, {3.7898969827585917`*^9, 3.789896989637113*^9}, 3.790500048307528*^9, 3.790500844463442*^9, 3.790500913757571*^9, 3.790501318999692*^9, 3.790502638211178*^9, 3.7906807712547293`*^9, 3.790681264559465*^9, 3.790681313682047*^9, 3.790685724380177*^9, { 3.790686481233158*^9, 3.7906865375867577`*^9}, {3.790687438279323*^9, 3.790687513180407*^9}, {3.790881893625595*^9, 3.790881903596817*^9}, { 3.7908826353218327`*^9, 3.790882641285583*^9}, 3.7908827224551153`*^9, 3.790883014282462*^9, 3.7924032178994417`*^9, 3.7924046676549397`*^9, 3.792404725732418*^9, 3.7924047967098846`*^9, 3.7924067452244263`*^9, 3.792406942354463*^9, {3.7924072707485237`*^9, 3.792407275615801*^9}, 3.792407391544647*^9, {3.792407480674727*^9, 3.792407492098131*^9}, 3.792408564773666*^9, 3.7924088574397087`*^9, 3.79345805394835*^9, 3.801993606684061*^9, 3.801993935183337*^9, {3.802086861425941*^9, 3.802086881569778*^9}, 3.802166355135913*^9, 3.802166568488834*^9, 3.8023535815627623`*^9, 3.802554007075569*^9, {3.8025540586202183`*^9, 3.802554063614998*^9}, 3.8025541639955463`*^9, 3.802554388630266*^9, 3.802689292305612*^9, 3.8027016491069317`*^9}, CellLabel->"Out[98]=",ExpressionUUID->"9963b39a-253f-470a-8961-9edebd6507c7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"logN", "[", "8", "]"}], "]"}], "/", RowBox[{"ns", "[", RowBox[{"[", "2", "]"}], "]"}]}], "/.", RowBox[{"fit8", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7860347589391937`*^9, 3.786034815522037*^9}, { 3.7860348927276173`*^9, 3.786034892871313*^9}, {3.786034938992958*^9, 3.786034939228087*^9}, {3.786035027428249*^9, 3.786035027598805*^9}, { 3.78603612665457*^9, 3.786036174521947*^9}, {3.786036298387973*^9, 3.786036298558413*^9}, {3.786036391518311*^9, 3.786036392481715*^9}, { 3.789817322122814*^9, 3.78981734350443*^9}, {3.78981904967447*^9, 3.789819050028948*^9}, {3.78981989295175*^9, 3.789819900229203*^9}, { 3.789820346352702*^9, 3.789820358949071*^9}, {3.789831035088595*^9, 3.789831035495175*^9}, {3.790686939117031*^9, 3.790686939521482*^9}, { 3.7934580054599047`*^9, 3.7934580068511267`*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"], Cell[BoxData["1.0090511830903437`"], "Output", CellChangeTimes->{{3.786034765393785*^9, 3.786034815805835*^9}, { 3.786034880548635*^9, 3.7860348931752234`*^9}, {3.7860349290857697`*^9, 3.78603493955373*^9}, 3.7860350281548758`*^9, 3.786035066093541*^9, 3.786035221700058*^9, 3.786036062003336*^9, 3.7860360946394253`*^9, { 3.786036127322308*^9, 3.786036132430464*^9}, {3.786036162798462*^9, 3.786036197237939*^9}, {3.786036258065976*^9, 3.7860363091693296`*^9}, 3.786036393224642*^9, 3.786036435908414*^9, 3.786036506475976*^9, { 3.78981732702774*^9, 3.789817367917185*^9}, {3.789817799899253*^9, 3.789817828202737*^9}, 3.789819050485126*^9, 3.78981908819144*^9, { 3.789819607127367*^9, 3.7898196375034018`*^9}, 3.789819744075357*^9, { 3.789819893666527*^9, 3.789819900694466*^9}, 3.789820004964889*^9, 3.789820359137393*^9, {3.789820594929513*^9, 3.78982070858637*^9}, { 3.789822463806806*^9, 3.789822470222951*^9}, {3.789831035829953*^9, 3.789831039712731*^9}, 3.7898311296448107`*^9, 3.789831173331883*^9, { 3.789831771607078*^9, 3.7898317882862673`*^9}, 3.7898321075130663`*^9, 3.789860441009506*^9, {3.789862455358055*^9, 3.7898624604158573`*^9}, 3.7898928491271963`*^9, 3.789895378453265*^9, 3.78989699519963*^9, 3.790500053288452*^9, 3.7905008466582413`*^9, 3.790500915366055*^9, 3.790680774016933*^9, 3.790681267181381*^9, 3.7906813151258707`*^9, 3.790685728199264*^9, {3.790686487552446*^9, 3.790686539072474*^9}, { 3.7906869354035*^9, 3.790686939935053*^9}, 3.790687522332919*^9, 3.79088196776464*^9, 3.792403224556333*^9, 3.792404677038349*^9, 3.792404725798419*^9, 3.7924047967695627`*^9, 3.793458010300988*^9, 3.793458057319188*^9, 3.801993610026066*^9, 3.801993937627986*^9, 3.80208690202335*^9, 3.802166355203932*^9, 3.802166568555097*^9, 3.8023535816447983`*^9, 3.802554394967621*^9, 3.802689292377997*^9, 3.802701649157143*^9}, CellLabel->"Out[99]=",ExpressionUUID->"d6eb8147-5336-4f0a-af98-2c7f67894dec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"logN", "[", "12", "]"}], "]"}], "/", RowBox[{"ns", "[", RowBox[{"[", "3", "]"}], "]"}]}], "/.", RowBox[{"fit12", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.789820082827054*^9, 3.789820111656827*^9}, { 3.78982037403331*^9, 3.78982038294141*^9}, {3.789831775865436*^9, 3.78983177611141*^9}, {3.790686943324568*^9, 3.79068694357749*^9}, { 3.7934580631993933`*^9, 3.793458065692689*^9}}, CellLabel-> "In[100]:=",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"], Cell[BoxData["1.0125023628299263`"], "Output", CellChangeTimes->{{3.789820091591922*^9, 3.789820112136485*^9}, 3.789820384157509*^9, {3.789820595407804*^9, 3.789820619979476*^9}, { 3.7898206520168953`*^9, 3.789820708977715*^9}, {3.789822464040449*^9, 3.789822470632036*^9}, {3.789831772132658*^9, 3.789831789119802*^9}, 3.789832108205226*^9, 3.78986044212982*^9, {3.789862456024865*^9, 3.7898624608924503`*^9}, 3.789892849403596*^9, 3.789895378722474*^9, 3.789896995440785*^9, 3.790500053923429*^9, 3.790500846700687*^9, 3.790500915950795*^9, 3.7906807745707397`*^9, 3.7906812676631613`*^9, 3.790681315798389*^9, 3.790685728471385*^9, {3.7906864883651733`*^9, 3.790686539448419*^9}, 3.790686943835453*^9, 3.790687522603384*^9, 3.7908819681122227`*^9, 3.792403225338358*^9, 3.7924046779366083`*^9, 3.792404725843038*^9, 3.792404796806484*^9, 3.793458066147029*^9, 3.801993610528057*^9, 3.8019939378480263`*^9, 3.802086902436619*^9, 3.80216635525252*^9, 3.802166568605502*^9, 3.8023535816944637`*^9, 3.802554395477442*^9, 3.802689292421947*^9, 3.8027016491860857`*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"f74d6f02-720c-446d-9c38-444a61f1ed7e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"logN", "[", "16", "]"}], "]"}], "/", RowBox[{"ns", "[", RowBox[{"[", "4", "]"}], "]"}]}], "/.", RowBox[{"fit16", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.78986498754324*^9, 3.789864996472858*^9}, { 3.790686947012381*^9, 3.790686947257492*^9}, {3.793458069037771*^9, 3.793458072163686*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"6c35788f-083e-448b-82aa-5d86bb96b55a"], Cell[BoxData["1.0325392834736038`"], "Output", CellChangeTimes->{3.78989699778589*^9, 3.790680775155786*^9, 3.790681268587042*^9, 3.790681316297798*^9, 3.790685728795175*^9, 3.7906865399149313`*^9, 3.790686947637628*^9, 3.7906875228290997`*^9, 3.790881968518544*^9, 3.792403226396414*^9, 3.792404678984394*^9, 3.792404725889168*^9, 3.7924047968419724`*^9, 3.79345807241748*^9, 3.801993611036623*^9, 3.801993938056158*^9, 3.8020869029109364`*^9, 3.802166355296812*^9, 3.802166568655848*^9, 3.802353581745173*^9, 3.802554470825571*^9, 3.802689292471705*^9, 3.80270164921527*^9}, CellLabel-> "Out[101]=",ExpressionUUID->"fab803c0-6c8a-4f51-ad3c-a478c5fdbd88"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ns", "[", RowBox[{"[", "5", "]"}], "]"}], "/", RowBox[{"Exp", "[", RowBox[{"logN", "[", "20", "]"}], "]"}]}], "/.", RowBox[{"fit20", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.792403234355908*^9, 3.7924032407627687`*^9}, { 3.7934580759027643`*^9, 3.793458078997445*^9}, {3.802170148074904*^9, 3.802170153391099*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"03139c62-638d-4c12-b522-98250958257e"], Cell[BoxData["1.2815918959240733`"], "Output", CellChangeTimes->{ 3.792403241270093*^9, 3.792403288655431*^9, 3.792407028286045*^9, 3.7924071620036097`*^9, 3.792407303664468*^9, 3.792408542078228*^9, 3.792408586893564*^9, 3.7924088327510757`*^9, 3.792409519590407*^9, 3.7934580794048443`*^9, 3.801993611470645*^9, 3.801993938230275*^9, { 3.802086903264731*^9, 3.802086930875636*^9}, 3.8021663553437243`*^9, 3.8021665687075777`*^9, 3.8021701537550087`*^9, 3.802353581796845*^9, 3.802554471751316*^9, 3.802689292515863*^9, 3.802701649241859*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"834849b1-c68a-4110-8710-d6ab56b9cfdb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sf", "[", "sample20", "]"}], "[", "50", "]"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"logZ0", "[", "20", "]"}], "-", RowBox[{ RowBox[{"logZ", "[", "20", "]"}], "[", "50", "]"}]}], ")"}], "/", SuperscriptBox["20", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"logZ0", "[", "20", "]"}], "-", RowBox[{ RowBox[{"logZ", "[", "20", "]"}], "[", "50", "]"}]}], ")"}], "/", SuperscriptBox["20", "2"]}], ")"}]}], "/.", RowBox[{ RowBox[{"logN", "[", "20", "]"}], "\[Rule]", RowBox[{"Log", "[", RowBox[{"ns", "[", RowBox[{"[", "5", "]"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.8021761889474773`*^9, 3.80217620160071*^9}, { 3.8023536321071033`*^9, 3.802353659958747*^9}, {3.802553848993369*^9, 3.8025538642868547`*^9}, {3.80255389437457*^9, 3.8025539020877542`*^9}, 3.8025544487830257`*^9, {3.802554494130415*^9, 3.802554503538479*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"c2dc46a6-3d44-49a2-a86b-2bc8d34ad4a2"], Cell[BoxData["0.0006969425642958542`"], "Output", CellChangeTimes->{3.802176202806409*^9, 3.802353593729126*^9, 3.802353683597536*^9, 3.802554515526149*^9, 3.802689304101239*^9}, CellLabel->"Out[68]=",ExpressionUUID->"b65d9eb6-d781-4a0a-a70a-d4eab4091d42"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"\[Rho]n", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]8", "=", RowBox[{"sample8", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{ RowBox[{"5000", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], RowBox[{ RowBox[{"Total", "/@", RowBox[{"#\[Rho]s", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{ RowBox[{"5001", "-", "\[Rho]n"}], ";;", RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]12", "=", RowBox[{"sample12", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{ RowBox[{"5000", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], RowBox[{ RowBox[{"Total", "/@", RowBox[{"#\[Rho]s", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{ RowBox[{"5001", "-", "\[Rho]n"}], ";;", RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]16", "=", RowBox[{"sample16", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{ RowBox[{"5000", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], RowBox[{ RowBox[{"Total", "/@", RowBox[{"#\[Rho]s", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{ RowBox[{"5001", "-", "\[Rho]n"}], ";;", RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]20", "=", RowBox[{"sample20", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{ RowBox[{"5000", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "\[Rho]n"}], "+", "1"}], ")"}]}], RowBox[{ RowBox[{"Total", "/@", RowBox[{"#\[Rho]s", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{ RowBox[{"5001", "-", "\[Rho]n"}], ";;", RowBox[{"5001", "+", "\[Rho]n"}]}]}], "]"}], "]"}]}], "/", RowBox[{"Sqrt", "@", "#n"}]}]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7905019043473682`*^9, 3.7905019700870667`*^9}, { 3.790502002763351*^9, 3.790502012968639*^9}, {3.7905024679717703`*^9, 3.790502472800358*^9}, {3.790502738458009*^9, 3.790502748395129*^9}, { 3.7905028635862017`*^9, 3.7905028895420027`*^9}, {3.793461158972835*^9, 3.793461163896308*^9}, {3.8019956674153423`*^9, 3.801995667797414*^9}, { 3.802123697463352*^9, 3.802123877415626*^9}, {3.8021693040538177`*^9, 3.802169447751336*^9}, {3.802170593845665*^9, 3.8021705939372873`*^9}, { 3.80217148950497*^9, 3.8021715258895893`*^9}, {3.802353599970759*^9, 3.8023536001673613`*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Rho]PlotOld", "=", RowBox[{"Show", "[", RowBox[{ RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ "\[Rho]8", ",", "\[Rho]12", ",", "\[Rho]16", ",", "\[Rho]20", ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "}"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "24"}], "}"}], ",", "Automatic"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"N", "\[Equal]", "8"}], ",", RowBox[{"N", "\[Equal]", "12"}], ",", RowBox[{"N", "\[Equal]", "16"}], ",", RowBox[{"N", "\[Equal]", "20"}], ",", "\"\<\!\(\*SqrtBox[\(\[Beta]/\[Pi]\)]\)\!\(\*SuperscriptBox[\(\ \[ExponentialE]\), \(-\[Beta]\)]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "97", "]"}], "/@", RowBox[{"Range", "[", "4", "]"}]}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"Black", ",", "Dashed"}], "}"}], "}"}]}], "]"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\[Beta]", ",", "\"\<\!\(\*SubscriptBox[\(\[Rho]\), \(0\)]\)(\[Beta]) \ /\!\(\*SqrtBox[\(N\)]\)\>\""}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"LogPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "\[Beta]"}], "]"}], SqrtBox[ RowBox[{"\[Beta]", "/", "\[Pi]"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "25"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.790501877407139*^9, 3.790501891324082*^9}, { 3.790501974222625*^9, 3.7905020566343613`*^9}, {3.7905026457917023`*^9, 3.790502688930539*^9}, {3.79050273258263*^9, 3.790502736403462*^9}, { 3.790502791574119*^9, 3.790502816300976*^9}, {3.7905029000440617`*^9, 3.790502900230397*^9}, {3.79346111660496*^9, 3.793461171994597*^9}, { 3.793462039441681*^9, 3.793462057865758*^9}, {3.7934625448030577`*^9, 3.793462557481504*^9}, {3.793463868489814*^9, 3.793463886376687*^9}, { 3.793464001191711*^9, 3.793464012808115*^9}, {3.801995680724104*^9, 3.801995685414912*^9}, {3.802088044271686*^9, 3.802088143824456*^9}, { 3.8020882136260347`*^9, 3.802088369761056*^9}, {3.8020885427596397`*^9, 3.8020886330439043`*^9}, {3.802088666259138*^9, 3.8020886692165737`*^9}, 3.8020887903319807`*^9, {3.802107154674386*^9, 3.802107220497456*^9}, { 3.802107467370481*^9, 3.8021074715983543`*^9}, {3.8021145075699663`*^9, 3.802114510857387*^9}, {3.8021151115319757`*^9, 3.8021151251524754`*^9}, { 3.802119993324555*^9, 3.802119994017742*^9}, {3.802120304178557*^9, 3.802120309718081*^9}, {3.8021205412757673`*^9, 3.802120579192766*^9}, { 3.802120942530304*^9, 3.802120946371635*^9}, {3.8021214142463408`*^9, 3.80212142310493*^9}, {3.8021218825568123`*^9, 3.802121922087904*^9}, { 3.8021236760749817`*^9, 3.802123683898315*^9}, {3.8021238427254877`*^9, 3.80212384295257*^9}, {3.802123892359234*^9, 3.802123896945738*^9}, { 3.80212443436276*^9, 3.8021244537138844`*^9}, {3.802177584222899*^9, 3.802177584426332*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], LineBox[CompressedData[" 1:eJwB8QMO/CFib1JlAgAAAD4AAAACAAAA/Knx0k1iUD9Kyvf2hGjwv6Hgvf5/ 93k/3c6Hn95Y8L8P4hRnVgCVPwpTQ4mjVvC/qCEFqtrJqz9+kLwr7Zfwv80E w7mGGeU/7qsDbTHg9L8xlumXiLfqPwT5xGavIfa/AcCxZ8/l7T+XPElapcf2 v64q+64IfvE//m8yLmvn97+GG/D5YQT0P4B0B43RGPm/+kSeJF2z9j+zftQX cUf6v34dOGdE6fk/og3e3K2b+79HyatzDMj8P5cjo9Gy1Py/xOv6Bbvh/j9k oYcBc7f9v9biUwCMpwBAst1ME9zY/r/rxVBOtOsBQDMlgRe35v+/h4px/iZU A0CWhAjVoZsAwIE+kSdJ1wRAD6v0WwpFAcA0aOif4CIGQDlh8cp22QHAOIQq NXugB0DIdK2tCYwCwHnpJjEIbAlACz7d43Z4A8DB/1ayY+MKQABKAkqbPQTA gosVNZgGDECNqGf9F94EwC+Lic3H9QxAG9uAwCBxBcBcOBCSBcwOQKVea7Sr qAbASKeufJYHEEA2uDMt85UHwGN/2T15mBBAMwPMxYt+CMC+9sySADURQCiZ cD0QlgnAnnsPlxzXEUDwRtjsFswKwGoYPiKmZBJAZ67k+UTdC8CyEYjX9SsT QGkWCPovlg3A/3ivWpnwE0BpgmF5JGQPwHfWbrvQvBRAjj5J28KyEMC2Z5YE qEkVQE6E3J08WhHAoUrNHmgFFkCLdtXiTEwSwErvG197BhdAJX8r0/mEE8B8 1cqEXwoYQD/zC58k0BTAWW5pNSTuGEBRuPOhevEVwLCPTl35zBlAhpkXsyTr FsBZbmk1JM4aQL9g6nUFDhjAqrcGtkoQHEDir/GpHoMZwBqLprOTQR1AJZux 3WLHGsAUP8bctYQeQFJI3FzRIhzAboYb8PkhIEBBkhtulA0ewIguqG+Z0yBA SISkrWWOH8AWwf9WsmMhQH/Lb4ezMiDAVMa/z7gQIkBUwbiNvQYhwOlg/Z/D 7CJAoYOhh4nLIcCnrnyW57EjQIC1fRxhoSLApU5AE2FjJECSg4uBPBMjwFMF o5I6QSVAKfkomb4aJMDOiNLe4EsmQFfC0xVQaiXAmnecoiMZJ0C1DZVtSicm wBPyQc9mtSdA/xQWRDd2JsC9UpYhjhUoQFmnXYSQ0ybAzTtO0ZE8KUApPW4Y ILAnwPmgZ7PqMytAGgN/tErPKcAkufyH9DssQNz/5NPjnirAXkvIBz3bLECf /ErzfG4rwLfRAN4CSS5A3UMqU0U0LsCneccpOnIvQN1DKlNFNC7AMZkqGJUE MEA+oDojYdEswHWTGARWPjBA3UMqU0U0LsCzXNRG "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], LineBox[CompressedData[" 1:eJwlU3s81IkepdEwg8wMM8Mg45HxmGVQURm/b200Fluyl0IWvURlsxWy1bZx 7fqgWNo8sl1lIz3U9tA29fvW3Gm7hhg18tplLuWxXTGYxdJsfe4f53P+O+d8 zvkc+8TUzTsX6enpJbzHB56vm2gPS9xEPLUPj+rPe0uWldfdVoXnEXucmlds u/WWrHkTwFTVNBA9ezZlPfYZJ5tbTcO6RmSEoV7pPXX7OPki+M4vlSwlkaxY HTlfPEF+tnqLbkjURZw7mH/Nc7+GvDv2um7JvX7i7hcHyyRhk6RYZe8rKxgk nn10dd8ymymyoSDjZoXVMEGZZcKZ7inS6Wh04PGkP4j5o5rnBwqnSehJ7rDq GyMGynbvUki0JLUqy+wHmwkiOPnelnsLWvLBgIXtf15piPWFXXYd9/8kqaH9 Hb9Jp4h/H/pn60z2DPmx3O+4eZ6W4L0ROA8HzZKxpx5Pu8TOED9eKbpz0mSO 3EubPb/bZ464sSGTLeyYI9dfWPPtOdd5Qj2o7rhS+xcpHXaX+HDeEUMl9TrR V/OkXHwm4KC+HpzWuSuoYQukmUtFWs6ferCsZda5Y+k7ct+qH/57WaMPEb27 a7VT78jzvuw6kXYRTEZOPepr05GrixXHJToK9Li+TYMYPTSitD7INV4MmWlV YfRWPfQ/v7eJvZQKPuMXHyrX62P81j2b6asNYbjlnCaM1EenwB1b5DFGMCfb qTjpvwi7StylihwaPA95UZjycBG+js2rb3pIB8HKSNeCQAqeTnnfgM4Y7oZ/ bJ6rpKDN+GxCtsgUxBnFZ42jDHADJcPYKWkJqDZdVHarDfDqhcu06mtmcPbT 2pjSA4vx+xWj9ryjDCg5etWumUrFX19WbWXxmaAeTf+88RwV/f7F0M9tYMKz qGP5bwSG+KrNoWc2gAXjntmKG7cNMXRBWieRs+DHu7WdPIkRVgfemVxYbg5V 9KIoarMRVojb6CZl5lCkSgiRbqRhsshUtmHQHFoHDk33PKThmohh6RMPCzDb O81o8aWjWYduVXO6BXQfe1T0k5SOMrffn/rftICEltgdV0TG+PWECW9uyAIe qTrlh34yRk3cbW81lw01vzvEfsI1wemPvvxFGMSGnOp62oECE7QOlY0zD7CB +So46fliU0z4zrAkrIwNqYeobamZppgU68colrMh2bcw98g7U7z84S7jbEh0 P+zf+N0SPBFQJAjmcsDK902cm7EZtozcPNvpzwFK24lH1GIz7M9eZ2CTyAGv +KrU/cYMpHrO0dvzOUD3KRC3RTNQVdqq8W/kgKT92PdfXmOgR+SLeN5rDtTv d/a7TmOi2diz7n1cLiw5EVk2lcxEdlECO3U9F05bH/n8LzkTWY8vFDge5oIq LmuUImRhpr5WWVfPBXXZEdfAMyw8i1fvZ45yoW6XFm6zzLF2wItS6mUJ/zuc wdlYaf7/fN9YQnenckS4wgJjxYIHqb2W0BgXxHJut8Cf3+b1Hw+xgtHGqidf 57PRKnIi6LXSCjSbh6aORHOw0qf6lm8GDyKKpPmR67j4Ya1wsTUIc6JkLmJL 1Lu249cgvg34ZK5KF661Qvf3c2kEtsD94olVbTwPXQTd/5CsWgrldoPyNSes sc/7kiIx0Q4+FafxbettMOhGb3uyhA+8quJdQ322uPO9WtwQH9JbGW7R5naY llc4qDllD00RG5rKffjI3z4WvS7AAUbdfS22/8bHaUbBGF/rABe23rIsPGWP dVJb9S10BGYyJYy7xQEntjdvC/nWCda1JPGsbR3xJUuztjVoGcw18f5QtDii h85+Qct2hq5EL92lEifMa1CPlGqcYSafKstKWYajBsuZK3sFcF96mNYb6owq WpLD3k4XaFgbv/MbEODSS8MSjz5XmKwhcoV5LriyPiAqRukGgU/jJ9OCXDH4 g0GHO1SaPr9ov80NeRjDXzshhJfCnJ85HHfkhXdbf6XvAZMj2dRCOyHKdlyO /4zlCQkVEe1PjDzw1KDGrt1OBIPXS6sbAzww23Tj9RK5CMoTYpRrFoswPKU8 vTLRCxxrp2fK/UQ4EzFQU2HgDa8uxlguN/LCT7JOeobe8YZsSYjEMsUb/wbu q9zI "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], LineBox[CompressedData[" 1:eJwllHs41IkexsewrmPMYOb3G3ZcxqRc0lCRtP2+KQ6plUuunV2DYtkit1aU 1HFNtcKRLrK6oCuLNlK/b7psF04Iy5Etl6nluFbuYes5f7zP+8/7fP54n/d5 DQMj3HcyGQxGxGd98U9l4y1bA7dR9c7nzO7Nj9BdEcObnJ2uUczI9bXZt0bp vY8lS0NznlLGu6h+x5YxejDnlVSroI0Ks7N++qBunG7Xl5Ll/a+pq7wX7mdf vKc9S+R9Xa/LqPiXOqfqGB/pdp3Nww5VA9TE5iynqdaPdE1Z8tvokWHKbLRb LL01QUfNaAz8tmKc6sgN37/v4iTdwviTqZL5gapuaDx2vXCKtjcW2KrNTVBv a7LTpRem6T2pumMz0mlKPBYnP3Rhhv6S1u+bpUTU5bHq8lm678qvo5kB81Sx R5C/ad0cbWfNHK9dWKRKJGt0FNo/0XfJZxlx2+XgRXG1bvXkPJ1+aGOpeyUT BBduJecKF+mEXc6HTusoQMERduOQMQPP1b73LUz7CjJkbkUT9Qz0NpQtbVtQ hNLBSa+MQDlsG0r2CkhXhjlNn1R1NSb6K0dtq2epwmyWLze2golbHoxxLS+p gY9N1m8iqTya9r0O2bFGHZyXBM9layhguUGjz6puNoRoGBkNPVLA9ZVi2LqV A45/LcQ/Tv8KEyxztYZNueB3vjYvzVkR1yz/qdmbowmls8kG8tpKaBf5n/SW BU0Q1rcdlbxVwh61nLLD41qgMJgmK7+njEcu9LfZPtaG0HAD643JKvhDjFLF yp08CCpJcT0mVMX5ydg3Z5t50Ob+c8axHFVsHT+V/IzkQ1hTZeDuYVVU6Wl+ zHXhQ/isj9WklRq66vHDtkbzgVvyasEmWg0lEx8ui/L44Dqwij1yTQ17ksw6 Kyr4YH7ZXI3Zr4aN/Wd272ngg6fqo+ZAXRby01bSp/v4oK/FkHa5sjCwq7hB cYYPXpUrbESpLCyXf5e1TJ2A7zob46/WsFB4QlCapU9Aqd8dK5chFi4EvKmZ khBwtLGMp2Cojh6VSn7JGwiQeSzeCfdUx4e5TsX5bgTIy8Qlw5nquH0uZt2u AAKMw9J/Zd5XxxiTG6ZzewgQvU3z+npaHf0LxlzmEwkg990ILjJnY/MN+2eu mQScVbYJfRPIxkMBx/XofAJapLd65c6w8dukSSOHiwR42OnFfdPOxis7ww9k lxOw0fK/B9+zNLDx5lvG/ToCuqdTdIv+oYFsXt+nrU8IaJYpZeclaSD/T5no 3ksC4JAwsbROA+UkhRs2viZg1KMpK3NaA5uaqPuPBglQLKqJWa3LQU1t6vGr CQJ4LHECacfB0qyk83vlSMi/ny+3zJ+DojecK60sEs4xJvU/JHAwqDkmzook Qbr8oIXJOQ5erO+w/9mIhCbxjihD5KCscp3GiAUJpp9sAkp7OVj1JO7e+bUk RBokeVcqcZEr8Bp3dCRBVnu3e8Cci6s3tB5guJPwLiYt8q4HFxUUoj9O/5ME 56baqtvxXKy2ma4PDiPhrP9ccFIxFwuV9oUMx5GwOXmt+txzLnafKix/eISE oNqPnknTXFxgOySvzyYhbFg7w3GJJuqn/M/tdiEJoWdla1U9NHGHwYbxoGsk jHovRvgc1sSh1N1Hre585q3a66xUpYlNBy+ms56TkNgh9to7oIn2AbImURcJ aX75liw9LRS393owhkiInV7zx6PtWujbPWg7ME+C06vjnuontbD35lOdCY4A WPcX3m9o1MKJrj+So40FoLWTuhShoY3RtebG1pQAft9d+fqTnzZWfseSbfIX gLtFikPBdW3cb311vXeCAM50tJyXKPL+v79fBBAQBwZuITzst5TPG38hAN/i 2IbQVh7u98hWDVLTgarlRxMObOOj8JuDES+/14HEROsfDAf4WFEiXDg9pAO0 Q3NUUS2BcpPNZWavdaF/tMJc1Euiy7qiH5+tFsLhD5353lt08K/Ds/+2vasH Ymub4pkOXdQvbhY+tDCA2d6qTZ6RQmx1cpENKxuCU/C/+i7p6GN0yr6a9FFD KEsN6XCLM0DB5/vj9YpgyNZZku9tiJ5lnfLX3xjBdf/TVyUeIjTanHBkxZAY njSspKR+Rhg04me/XtkYbs+IUSVEjAezasJVbJfCzcXQyp6TS/BE/3v9lohl 8JwdYXOiyhh3TfVLf7llAtnRTi4P5ZYh50thhBm8ajrRbh1ogpe+BS3pEXNw CSGzJytMce75yNMHTAvo2b4tSzRqhjGOuZOK51fAoRmqTtF9OdbF5JAKlyXQ L+oLrmuwwM7v41z1Ui3h+NLs/LyTErQsMCXzYqzAKW1R4eFeKyyJ/91kbdRK eJe+JXZKxQrbVEJFP/60Ckjfqa+tjVbi3+L6OVI= "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], LineBox[CompressedData[" 1:eJwlV3k41W0TtmSNw+Fwzm87hySkopKyTylpka2FaDlS2lC9hIr2bAnthYgi FZE3JcUIkZTQomy9RESWLGWpvtPXH8/1XM8fcz0z98zcM7emh6/TZgkxMbGf ovPnHk/vr7HzcLDKly9Y3SLbWygTZxod8fut1Yv2fu6WhP5Cvwslruw5/1nF Xnb5NO/lt0ILm6D2tqw2q+iLX7rcigYKHVKrP3mc7LI68ubV7pUSQ4WznpW7 1tUOWaW5fGj0XP2jcJWdsr8AxEGytaX7YPzPwrHYSbNut8iBxcSelEt7JbBz ykzZ2w0sCOdrRi28NAG7TDqDW/XZ8KkzKEaBkkbdBy6OR9NVYJ1L13jBFhn0 /l2x9EyNKryYUTbz+jZZZKm1jtvJqkHlxrKdlgfkcN5VZfHQPnVo9thr9Hba RFQ3POwWUMsFyQ1zXzt9n4jXv0fdsVDlwdxB9M4zVMC5JLppzBe9PQ8qi7sq IHezcfnkTTwgr7TNqvRXwJuvuw+vPsQDj0zhFbGzCli9JmbLtMs8yPLQ+Nfm pgKmxZ6vqM/mwXXhVo5HkQKui7hVUfCcB4plZx0H6xRw+CBroK2NB0YfVeRe DyigxOvXd+/94oFevGl460RFZH9KOnZJnYCG7zi2apIinjkZf9xiOgHq5519 Q0ARrz2pWxBjTcDdOuH0CWsUUeGLW7ufKwFOkofVL+xWxCyLnMngTUBf1pbD HmGK6LrNSf5hMAGFqlvM6hIV8XTHZs7zKAJ8U+j1bf8qop5V+nDnRQJGxXSj bEoUMWzTugabFAKeurenT36tiJrmH+Z5ZBCg0z/ju0+7Ih4OXFe48T4B72Z5 J+4aVMRf908zVBEBr19KtPtJs3CKseDdiQoCQqJ2NtVzWdg4v3v51VoC6iJz 25dMZWF2iWRFagMBgRK38itMWPjh9qi7dxsB2XtJxVx7Fj7/8Z3g9hAQkdMa 8K+QhYmuKkmpwwTUbIzjP/RnocQjKRXObwJ+hIyl5EawUJTNgZUyJBQ7fq39 fJWFtz5f+x6lRILbjHvd5vkszAvrLbnNJSFukZpzdTUL9zToMbcFJMTw5dhO 7Sy0Tcs8cF6HhDmWGTm1YkrIzPNauM2ABNk82lSXr4TvGs3faM4lIZk8/emG iRKa7XoZVmNJQqjexEmb1ijho6Cb1j42JAgPBerm+Cuh6+grqSE7EiJY0voq Z5Rwq9SJ2z6rSLg952ZGQq4SZs2LH3njTsLjkOAo2zolTHHx2TbHkwQPnpQd 8UsJc3ojPh7cQQLvxLPNmcrKaMQ2Nn+8h4Qhurn14WRl7Fm7wLIjiISGrCbZ pLnKOPfjQLHsYRKMOMIWJTtl/NY7ewYdRkL9O53+0E3KaGpG0NrRJChv/+f4 4UBlTPppyybOk8A+NJgmH62MAUtlun7HkxAVJLwbnKaMjTXbbRtSSOjkHqT0 UBm/Lo4oz7pJgurhFdln6pTR+bzmKf9sEjZfibntPKiMU30Xz5v+gIRbR6pC 2hXZ+KzN6lpzAQmVhe5tA3psNBiVrzlZSgI8FR9m2bAR/jR8pci/9pmldUI2 Ns8tGK6sIWFsr+5YbQgbe38F3ln7ngSLpV9imxLZWLZJemprMwl3jENqLxSw 8Sg3WGpbOwmxw3piC5rZOIkUVVi3yH61TyfnFxt3yo0keQ2QENC477ItXwVz f3DEWkdI0EuOjpAHFTyl9bbFWYyCccUPXq5CFZzevS20UJqC47ZFh2uOq+AZ p1dftRUpeJFuaX36hgoWrZZTD1Wl4IFdRezOShWsSddPbCMo2N/+7V5Brwru njdwy0SDgjfSO2Kq2KpY5xm1L2wKBUnnC0uXG6ui9B8AplEgnXraO9VdFcfO m6xTn00Bn/pweeEBVbwfv2z3KhMKCnp0gnekqKIpGC6OtqLgQLpLjVS5Km59 9cqqaBEF952Cg5Z3qiLYTXfrWkYBJjVutlLiIFERvlfNiYKTrPiDs4042G/T HmvlQsG8Gtt0+TUc9M/6VSVcT8GxxztlpYM52LBVzPewJwWj1YvuDlzl4IYa XkbKdgo2WHLTu0s4GKX7VbFgFwVKhwweXurgYH5IkU/dXgqSTbW6eHJq2Pn6 XNW3AxRcYad5lU5Xw7Eg51j5oxQ8kSpeMrpcDWsftXKYcJE/rRfsYnzV8Pbv fy4aRFMQ6HtgsdtpNdwa+/WA1TkKbtX+2Op2Tw1l9zg8WR5HwZoE92cJ1Wp4 wylHZu1VCi4Tc/ZoDKnhtCO/MzzTKKhezHV25qjjXnu++vYMCurrO47uNVDH ItoixDeHgp0akfOVVqhj77xFi/fkUZA3/v6Jr7c6il8z3r2nkIKYI4G6KyLV UVVJN25PKQUlaRf8v6aqo/Y+onTPcwqa7QTCnkJ1JI0G7XdVU/Ajt0byc4M6 Dpg/MNvxToRPJz88/Ls6Vi46oLOlkYLS8JUWQ8pcvL4CVIWtFDjd+uWyZRoX c/NmWgg7KfCSKeoynM/Ftjcm0p69FEx22HEl0o2Lqt/mV20ZoqDfxLhhhx8X q5b0UhvGKLj0X5X1zAgunrwav3WNOA1hF2S1u65x0XZkyT17GRp0V4dbRT7k oqYE6+pSRRpO61ct2F7FxT/ttUiVhjc+aZ5nPnOxT8R21gQNDfuvRaQNi/4P CU0GAQ33Co42PJDnYUHoslNm2jRkKFel6VM8zJk/hTDRpyHPZ1ZQrwEPS0Xm JjNp6JT6mDRuycN3XDlvk7k0fCLi+2Y58LDjyOh5EwsavC51dCt48nD0axea WNMwdUFmoeduHiq4Nn4xWUKDqnW5eMoRHpr6t+WY29MQWVEsv/4072/+V9EQ 7Nq67EoSD/eNN6VaudGwcVgxyzeHhzd4n30XCGlINzLwe1TAw4dH6y4t8KJB 0sQtvO0572/83jTcKXEcL33Hw7BD1jec/qGht/GN3NoO3l/+CKJBOJjW1DjM w+jm+kGvg6J4E+ZY6kkRaICWpv7HadD5qerczSKw2/EB/3gkDdLv3oWlEQTe aJ0peS6WhvNmI71mWsTf+XGBhsynW2xbDAnsaCrWLkugYS91ImujJYErLpSW tKfQ0N6VK3/WmsAasSYJuZs03J0Kjk8cCTTJa76qm0XDK5dvs5rcCKyrZR20 y6XBzEmrdHgbgdkOOy4HPKJhppZHdZIfgakhTSuvPaFBO/9iYv1+Au+v25pZ W06DYcymAcdQAiUSBTayVTT8DPWvXnia+IvnGxocdPlL3RIIlG3v6N9fT4PY 9+EInRQCS7pGpfL/o+EpoZx+7jqB8claeeOfaZAx0a1WzyYwM180wHpokCq2 v8MuIrD+eLtp1KAoP51C6RYkcMHdQ3INozRUvpuJIy8I/NW//t4scQZyw2ti 1tcROHBme+IpGQaC1mTVHPtIoMbFlLJeRQYcW0KSGzsJTLmj8cKFw4CZfENY dQ+BG/SeK5eRDKysLEkLHyHwpJeI4DQZOJTXdFFMgsS3q7sN8nUYOPVg6IWW LIn+rst3Ws5gwMm992aXKonbfPuOPzNiQGzyajKBT/7tHzMGJDIzzqVpkuhz guobmc+AbW5RjL4OiTba/hKXbRmgll6a4DabxJgwvdiF9gw03RhOzTEn0Uto bza+igFaLkdps+h91i7vSb47A8kTXhRb25Kobuelc3QTAwU7+3gWDiTe+6mv b7edAY5cGVnuQmLpnmW3NHczMEfLbyxNSKL+WKbsrwAGdkV8WVWwkcQMn6H4 wRAGbJ7vk5yyh8Sk1PMZQ8cZ2G0kHi0TQGJn//64XycZcOtTLv12iMQVPQG6 8mcZ+LT286764yRq33k5UyOOgQnzHqh/jybxYwErfnYyA+7ag2G2F0jUXYia K9MZMA8Vd9NLIHG3pKXVySwG3m8VXqq+TmKCaLy8v8+Ap0O23PtMEv95OG2K cSEDs2WsXXhZJC7Z9O+pm08ZEL5/pyZXSKKraB2Z/JKBc+vXNlaVkmjg+HhO 1hsGpoYEfyyvIFFTMLhzdSMDC18WpQa/InG5vUuLeBsDNQZOi/0aSZyUulDl cTcD0bvX/FbtIJHToRp0epABg9lznpR+JvGF+BGTfeMMGD3+sP/XEIl2A6ec /SbwIZ7Tp5Q3RmK2t+OWowp8SC3qku0QozB53fGziRw+FIxw1wwoURjw1if/ Fc2Hs0mLpSM4FC4v7mPP1OYDXSk/pkBS2FHU6Jo/nQ9jLze8shJQOHRMm+9g zAePlGkvzfUobHs1qX7Ekg++VzWEKwwpTJgRGf5iMR+av9wMLzanMMoj7/ob Bz5Evk6zqV1G4cQ/BbSWDw/jWhL+c6D+8t0mPjistWnId6Xw7LD0hos7+fBp Uey37I0UPsrckEXt5YP+7a5GST8Ky/RMTz8/yIcVH9OS7+2nUHiKX3g/nA9y pbudnh2i8P/66AwfVjJVJ4tPUZh55UzT3Ct8eBx4y6/iHIV67tFPhm7wwed+ oYxxCoU7+vXEnubwIcTT08Exg8IMIz2pxgIRPh4LtHMeUliduaDCvkKEn5nQ 1LWYwmVfJhix3/KhTyOsw7iKwv/ruxY+TJTCrv46CiX6H4YU9fDh1E7TbVHd FHa1GJM4xgftzV93HRum0ONY39ZWWQG8XD+/yl2a/rsPcwUwJ+PsQgkWjQV2 B4e1tAXwaUil/o6Axj/02jZbABsv6Jg0G9IoEndRldYC0A0I6xu1pFG0DQ/F rxQA9W1xgqw9jeyyhw+itgigwHuqpLyQxt72dFZekAAMuwq+Zu+gkV5w7rJF jAC8rdvaqiLpv/ripgDuR51YdiWRxviGXgdOuQCWBl585FVAY7W7SIF9EUCg I5tY9YFG5X3GtyxlNEAltdquT55BQXI1U8LXgJH00bnD8xjUVZp4L9VEA5qf VY33bmNwfOzkRBkPDfB8rP3b4C6D6xyaZ6XFacCiwLiFmZP4ePOPPP6oAfIb PrZ3XOPjdDkH5+fqmnCXzSpw5wnQp/GFM+OkCe65kQp+UQI8Hwjvz8ZpwtcP Y0vt5DXw/3KYNQn+fXy7en2wBvrdUxt7HjIJoGurcV+XBq7ZWP5l9QYtyOt6 /N6oTBNtHcZ5/wRMhjum5R+4VZMw0Xza68sntCGwh9O4rUkLPzNpHbY9emB4 o++ZzKgOVq5bVi4TZQjLwgtbAkJn4P8Agm89bg== "]]}}, {{ Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]]}, {}}, {{ Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[ 0.922526, 0.385626, 0.209179]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]]}, { Directive[ PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], RGBColor[ 0.922526, 0.385626, 0.209179]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, TagBox[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJwVlnk01e0Wx5ExZBauaybzzPkp9TzXkFdFht6raJDIMWUICUW9JVPGV/Im UYZQFGlQPI+SoglJImPmqGP6/c7B4bp/7PVde+219v581157ra3sFeziw8XB wVGxEf9XlXT2nQKFol1+3jHzhjaK+Am/lmIQPQ58DGPXXFTkx01RVcWa9HQg 6dDHjvTjwdnmo4eF03JBe7ln3sq3TbjFMNSXl34LCBy7MCD3igvHSq0/XS+8 AySLb83t/8WJr2XZ7lq9WgZKBdYpZ2tOXC2S+ooZXQlmHLzLdOs48NvUzj+W fKvB3V71CDVLDsy4JDQRVfEQmO4UETlbuo7OvarWogprAWMoUEru1xrazOUa GJFbB0rk1hyd9qyha5CsWrj6BOhUxoZefsJGqnF5c6GXngG1lUQlDhM2etBg acqIfg7yXBT33K5fRZarg5GnQhvAhKuHeeO+VdS6/a9nM74IHOIRiWZNrKBK S4nzZtUYdBRteUGkrKC5Pu9b4RVNwDWGssk0W0FEzGNcW/ISRLaUnNk1vozO y/GPzBe+AuHnhtl5+cuo+dmhTcb5zUAox3VA6uAy2nyoUi009zW4HMe9QJNZ Rrm5jr6/r74BUZM9X7uKWWjAvDBRP+ktuO2UvP92CAupdc+VB11qBfTAYMcn gIX8I6zf3YtrA3cVQFiXGAs9kMyZ+Rn9Djh0llo3jTMRWTsurBP5HuTw5O3c 28hEO10JA//QD6D1SOuazXUmasvsC530/QSktghJTrowUeL1a63ZRu1APTCt bY8JE+nSgbtJdTvIEXinlS7FRJ9ok9Oduh1AqkTRJo9FoTC+zJiwig6wbrk7 cf8ghaS+WgiJa3aCj9aScf+0UOhp6Uj+w5JOoKEsmuVdTaE1W9NGRuFnUFhb x9h2mUJFUv2OGQpdYNO7pU/sUArZjF0eNMjvAn2aDyoEPSk0+Ug/5JPsFxBa NtZhtZ9CKZe+cgTnfgHew0N5OYBC+gfiM7dIdYOpg+NWlCGFOlW1VKqyukHM 9fBRD1UKybyKtp69+hXciFM05xKk0PMs1a5UwR6go2N6z4CDQke93nvrJvUA 2c6kZBpJIk7jiKV3vN9A0It0bbFZEhVzKiQEXPoGbvvWn3w0SiK7jhZpQa5e 4HqrKkO2n0TThcFlFXG9wLbXjW7RTaK0EBliD7sXCC5+khBuJ5ERbHo7Fd0H 7tzilElrI1GXiP+hJGYf2NQ45/z4NYmiBsWnNSO/gyy9AkZcE4n+Vf08+u3C d0A0eAWPNZCo8by3ID20H9x73p0xXE+i447C+Xy/+wHU3eoe/JRE3AqPdcsC B4A/3+ktyY9JVDZ7tGH39AAYkQ/R0asj0Z4GPsdx30Gwj6bkc+DRBs+615I0 YxBEtpYPs2pJlKp07KOq5RBQ+tutz3CjHt8kpGIZPwQE2hNzFzfycK/6iAPN Q8CXpyYHbvSnb6K3BvIPg6kPj1JEN+YfLpb69+V9w+CnSryX5wafk+2rkJsZ w0Ake95Yd4PfZjykua5rGNQFMa1CMImIKwoyH2VGgE/GEJdWM4l0Nd8HjB8e AWeEf2x2fUsipdazaK1wBPQc/SLz8z2JJPy3SWwdGwHvbPi3/OogEa/gl5MG Wj/AYMfe2YNfSbRcebHeLugHuBIj/U1zYx8js/3Ho5Z+gDddqoszUyTqTkup y7AYBcfGS6g+BonaDCwEys+Ngjjm7vvqTBLVhP794BvPGFAI4p9GfBQqFbfi nrcfA/zjLbxCohT6p/a32+a0MWBVVLJWLkOhC0t71rdLjwOjsr3Jn7UpFH6N 6eLqPg6mIzSdPUwpRKeVlgYUjIN2Zrab3i4KOZ3ldMzXmACxepWw3IVCSuwn +WzzScDfEZ3y+TyFJAt8GFIxkyDHoXk4LplC/EDCRh9NAvnMmwr+1yj0O/7U z6N2U0CU00NwoYpCjdzq27HbNKA8VfUfjVDoiFDW14tRM2A03IdguzKR032g c+PFDIiXe/2J7cVENo6z52s5ZoHYf51cdcI27jnjD43RxFmg+rj8u0AmE61K rIfb5v0CCQFFh1E7E30QNhfgPsIAbgM3/wx2Y6HOveLXP8YywOUjxmsNvizU k/RLIy+fAbgvHPbRjmKhUZ4yG/3vDMD4DO+557HQKntr/EGPOeCd1+wo3M9C 2r9Y5L1D86CqxaPthN8ySvzYMPrnfxfBDZWW+LjsFWSVbovL9jPBqHFAt73i GvIxWBY2EuaA5WLKPc49nNhBy2dO2o4b2pVpqI+q8OCarnMRrQQ/zDAXVM49 yo93iGtXc8cJQbOdyWO+a4LYdyXrZslBUXjheWklZ7EIDm6ZMKl2EIcREbQk 1atiONmdV50dKAkH83/L7g6XwCfexJw0oktDaz71dQkohZv4ZJ0DDslAieNB aw28W7GRWPy1qXA5mLz5UvQLSgZ7LuzUdQyUh/nTLbsC2+RwUcFreeqqAhQ/ 8IpX5I08rk3b3tfpogRXnHltP79QwOH1O51u7lOGFx0abdzslTBqK5lP8lCB KtYWiaL2ytjPzqLB76AqvHLwTsplQgXn3zWqC/BXg4XecfaNlqo4c6HhQsgZ dZh2v6duylINj1dERNLDNODoU0fR07rquHl31vWLF7fBhzu8DOsMNTDn/t6R 9HhNKIZ1R3TVtmGO/zzmLDyrBbU9tyvYSmjixK2UQ+cVbbj7fcac+FYtHOJ+ 4iX1lw6s6nc6/UNAGw9fMPUGObpw/KZhfqCYDpbMzutNKtKD99Z6teIkdXGp qPbZNzf04alUidogXj3cFKZou63SAGbxvbGQFtbHBUqF8jsPGML2ZOeniVwG uCF2mYPebgiV/0kx81wwwMp7+VZV3Yyg5GCFYnSsIX70SSvlW5cRPPMzqjif NMSpLWuGSkeM4bTFo2OKMUY4+/SUv+d3Y2hyRypwkTTa+B8URFQOmUD7Tf0a YSHGuFyLpy18yAR+Dm0rcV40xryLnLJNR01hq6JpZnSwCS4zfHi+YMIUAlgl wLdkgrW8KhzZQWbwHLS2sogyxX32z2r+/GkGUxJkvO7Pm+LOO9F64LQ5bNyh XJpwxgwza50tVebNYZDsLuWCBTO8/jSsLuEUDXaKu8+5BpnjvYa7bWOXaPBU 5GJwyJw5fnPEwC/gNAEHIrxzXwfSsPgJ+vObEQTUeOHlP3OKho/Si4TbzxDQ 2s5vl0QoDZNhEjWmsQSEp9KmPCNoWC2RWmZfIqB0p8m+1XM0HF+DUjOuETDg YZOVSToNb+dzelD3jIDz3rcXih7ScIJQEtfkcwJaOTlOvK2l4Q6xlwfkGgn4 uGK173cdDdPlTVnnXxIwe+nY2531NJxrJGP1xzsCpg/vuP/tJQ0vegx97v1O wHo95TKxLhqGx2U1hAcJmFQ8UEF003DKSZcoMExAxZob1cd6aFgltFm+eIyA xv0SL+5/p2HnhLs+Qb8IGJFADdmP0XB+yvCTWwwCPmy5NxMyQcOTGXKbO+cJ yG/uycqd2vBzI7XKnCKg2G8sNT5Lw+8LX3P4sQjoMxikLsyg4a2lay43Vggo u0/G3HSehr0qaSUf2ATM58d2Hos0XPUghFpfJ6D/pLf7RZKG/wdAk2OP "]]}, Annotation[#, "Charting`Private`Tag$205849#1"]& ]}}, {}}}, { DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\[Beta]", TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[\\(\[Rho]\\), \\(0\\)]\\)(\[Beta]) \ /\\!\\(\\*SqrtBox[\\(N\\)]\\)\"", TraditionalForm]}, AxesOrigin -> {0, -20.559377287217877`}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, { Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange -> {{0, 24}, {-20.559377287217877`, -0.9684744693607217}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Charting`ScaledTicks[{Log, Exp}]}}], FormBox[ FormBox[ TemplateBox[{ RowBox[{"N", "\[LongEqual]", "8"}], RowBox[{"N", "\[LongEqual]", "12"}], RowBox[{"N", "\[LongEqual]", "16"}], RowBox[{"N", "\[LongEqual]", "20"}], "\"\\!\\(\\*SqrtBox[\\(\[Beta]/\[Pi]\\)]\\)\\!\\(\\*SuperscriptBox[\\(\ \[ExponentialE]\\), \\(-\[Beta]\\)]\\)\""}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.368417, 0.506779, 0.709798]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.880722, 0.611041, 0.142051]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.560181, 0.691569, 0.194885]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0.922526, 0.385626, 0.209179]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], GrayLevel[0], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.793463886647957*^9, {3.793464003662573*^9, 3.793464013272131*^9}, { 3.8019956706275787`*^9, 3.801995685949774*^9}, {3.8020869242774353`*^9, 3.802086931839355*^9}, {3.802088045447991*^9, 3.8020881442540092`*^9}, { 3.802088215172125*^9, 3.8020882865276203`*^9}, {3.8020883178701353`*^9, 3.802088345595327*^9}, 3.802088376774427*^9, 3.802088568224568*^9, { 3.802088611121944*^9, 3.8020886335692797`*^9}, 3.8020886695878983`*^9, { 3.802107156099215*^9, 3.802107220950468*^9}, 3.8021074720514717`*^9, 3.802114511289742*^9, {3.802115112859208*^9, 3.8021151255889063`*^9}, 3.80211999439322*^9, 3.802120310466969*^9, {3.802120543130497*^9, 3.8021205794894*^9}, 3.802120946841928*^9, {3.802121415333844*^9, 3.802121423777544*^9}, {3.8021218830618753`*^9, 3.8021219225127363`*^9}, 3.8021236775727243`*^9, 3.80212378629697*^9, {3.8021238283177013`*^9, 3.802123843360074*^9}, {3.80212387819786*^9, 3.8021238976263657`*^9}, { 3.802124436596198*^9, 3.802124454173592*^9}, 3.802166592314657*^9, { 3.8021693743024073`*^9, 3.802169448910295*^9}, 3.8021705948196583`*^9, { 3.802171490421248*^9, 3.80217152672799*^9}, 3.802177584736429*^9, 3.802177649426807*^9, {3.8023535952950277`*^9, 3.802353601047291*^9}, 3.802554524900489*^9, 3.802689328826398*^9}, CellLabel->"Out[74]=",ExpressionUUID->"13b84951-cc38-4f71-953f-0adb0f741a41"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"E8", "=", RowBox[{"sample8", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{"#Es", "/", SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"E12", "=", RowBox[{"sample12", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{"#Es", "/", SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"E16", "=", RowBox[{"sample16", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{"#Es", "/", SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"E20", "=", RowBox[{"sample20", "[", RowBox[{ RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"#\[Beta]s", ",", RowBox[{"#Es", "/", SuperscriptBox["#n", "2"]}]}], "}"}], "]"}], "&"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7905019043473682`*^9, 3.7905019700870667`*^9}, { 3.790502002763351*^9, 3.790502012968639*^9}, {3.7905021289101*^9, 3.7905021961735163`*^9}, {3.790502479326455*^9, 3.7905024854037313`*^9}, { 3.793461179649745*^9, 3.793461184768985*^9}, {3.80199572501341*^9, 3.8019957253343067`*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"E8", ",", "E12", ",", "E16", ",", "E20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"n", "\[Equal]", "8"}], ",", RowBox[{"n", "\[Equal]", "12"}], ",", RowBox[{"n", "\[Equal]", "16"}]}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\[Beta]", ",", RowBox[{"e", "[", "\[Beta]", "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.790501877407139*^9, 3.790501891324082*^9}, { 3.790501974222625*^9, 3.7905020566343613`*^9}, {3.790502159523988*^9, 3.790502162452405*^9}, {3.7905026513955193`*^9, 3.790502656361638*^9}, { 3.790502718545635*^9, 3.79050272132894*^9}, {3.793461186910082*^9, 3.79346118901049*^9}, {3.801995729798863*^9, 3.801995730008172*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtlQs0VfkXx2/+7vXI5JUQKSKh8kqJy91X3klGYZpQeUTGaKKH6jYqChlN KMoqSYnSXw+v5LFDUd70uAhJUe7rh2gQNccsZ62zzvqs31r77PPd3+8+mn77 3APFaDTaCeqefU7fHmnf7OfGuhTK7PDz4OH1vorvUf8cYVU9O7vYxYuHsv0L gzxpF1l5B/vDy715mKtJv9P1Io/1OXTe9fFgHjaJ15SeUR1gqZpnZhus4KNx 6lBaXAmP1Z7jMRa7jY/znjwIahkQsnpppu+qfudjvv63fMk/R1iSHxUcNC7w 8Yza8ORu8TFWW8PK1B2P+Dhlm6HtU/CVFX7T1Gi0m49/LjEPsh2aZG3u1o87 yRCgw4u8CJnn06xj4yOth/UE+JQ/RS97/5119bSVcJgtwDf9W2l/5dBAcXfN SwMfAfKfubkW8ufB29ODFomRAow9u//7im3/g7GplInuiwI8aZ2k68QVh606 9b3uhQJcG/z5Wp8WA5bsf85obxKgeYy+2bFMCUi4PabYzBPgkaEVxpKhUnB9 j6PSs5+EWPXD86H/B2mQ+n1DWr++EE8lKJldYshAt0Jpn4yNEA0T4pvqxmXg a1pPSqyHEL3N5ZLpjQtgJm7ngzPHheiYk89JlZCDqZf2By3Shegf1Wl15JIc nLXs/VhSKMTKr43JNDN5sHzKCh1qE2LGMdk0da48eCja9kgMCzFExVrrVoAC oPRwz6CUCB/Kx3HHDRSh8BD1xatE+CPy3q+XhxXhNdPhY5mLCA+/CStrLV8I NeMrvf8OEWFxUKp4rpMS/MEPy+BxRHjduUkjmL4IPH4ur+9KFqEzUdt5jKEM Lh+UfZ3uipDzuj5mp7QKcN1CDLOqRLg9bK+ZtkgFYk65F4a3ifD+364+k42q 4FnqNsntnTtvXgxMY2oSAhHeKWEUO8upgw6Pfm1wSoSLE24VpLCXQHpL6dtx BsGFrNruohgNoLsWn7RUIBg2axDNZeAbXTn2dSnBuDW5+y6/XAZJMhuKM/QI LvpvAJqwK99ufqsRwW212PJITgu2h6acrTUnOLRr5lqNQAuSvb9vnGITnJX7 04PlkJd64EK0E8FsV8oq/trgZxR1unELwa30G8kWbB1YGnOCI+VFsDmuvbdv 0wrwikxLmPAlmH74StZyVV2I56S5pwUQVBxlt+wp0gV7nYNi6cEEK9xTNc8p rQR79vDE1xCCTZaubUlMPZhe9zSyaT/BycygAp6pAcjvj9BX5RDULp2OHbNc BSFTghP8EwR9Nz2XsHq7Cv7R6jp3O5pgSRutV8xpDWgXDnifjaf6P1KnZxFu CMuDG7V5iQSNL+urXBQ3gmrjhgzx8wQPpqiIe1obgUfFtGtKEsHHTjJiBjlG oNvJC3e+QPDFAOvmO2tj0LE+fGomjaCR/m3F1kJjUIqQO1CYTrDu8aNEBphA 5ZqaqMdXCZbpys4vKjaBmTPxDL1Mgj1FMZzWFFM4ukFQ6X+TYP/QxYcy8mvB KqA+NvPWXH+n1kLLjf4f53IJqnN2m3gsM4NgxsjJJXkE3RLTwhRemkHA0Ebl V/8n+K5vfsptv3VwY3un9cd7BCXvqv8akLcOJOnZwQP3CbJH/Bt9DNbD5aix zekPCf7lzBNfm7QevnwwXM0roPxxY1453cQcNh0KFe8vIsik5PauNIct9y4E xpUQvFyWel7WYgNIjxYk8R8RnFaJ4CpUb4BOtk6+/2OCZr6UQlkW0BN5OOBu OcGdEs2qPy+2hNPLHbM7KghGBCcJOVGWcAltBusrCcpeMc0qlGBCkdrxRokn BIu/zLyKjGcCryl3Ur+KYH7HzkNbRExIiPMbZVQTFDOIXdQZZgXjnfO4SjUE cQFV4KkVaNsF/PKM4kdwqr/O0RpWS7ltbXhKMJ6y2/wP1sDd8mP7l2cESxMZ w4vMWZBWa1ieXEtQIbuiSrmYBRw9ZvChOoKz7axXAXAzLytyeU6dzwbICuDK wkGrZopDyg+kqBwA+PS83jD6BcGr8lSBFgCampxmfj3BdbMGlWJDWDZ3j38D wdgcr3oTFzaUflNfurqR4PrFT3Ysi2dDX6dGxXuKnwgymKvK2WAZNtFzoIlg 3+rzmROqNmBSN5p/tJngWKjn8XxPG+Ddr169tIXgf3smywa2NMh6D1CcZ+21 48EnG9CYEnmmthJcMmtI3Y3gpnJh79o2Sn+9Brm68I3AiP5N9Lltbp61G2F2 7d5tJ0ibveRsgZ6lG+j+kmCgav8vyixb+DyuO1JKcQEvokgpwRbStZ4M+bwi ODC6tH1fnS1o5G7V6KFYlyqjLm0HV6reGe55TdWfDaynHRTWu+ydoXiQikfl OTsoGS7fFvqGIJUO244OO/Axa5GfpPiVAfXGlfZAN721K5FLUO0nSoFd9hCj V589QrH5RHXAnfP2EBBBbdwOgpzR+26/VdvDsoKCz1cp3kTZV/67Paj565aL dxJ0CJ+UHWI5wJ69OYPhFFN/rUDVZAfoYi6Inuycy+crB5hWlhQL6CIoMJxN pCMEBX47X9I152dnR5D3au5VfUv5z+H90YVnHIGZZXMwguJ0SbUM3xeOcPMP K2nu2zn9aE5wTE5sVKeb4L/nUiX8 "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtVAk01fsTvyJbZb+urZBe11L2bOEOcl2lovcqCU/on0opeaHFmld/T6EI aZHyL5Q1lKVRUpKIsqaiJO7y+8aLJMvjf96cM2fOzOecmTmfWTR9g7bsXkCj 0aLmdN5O5Y60bfR1ZY0wwzvpclzMuJRb1u4Wz1LdtWDrHkUu5vBtZdtzilj0 0NwZfR0uNrUs2dg9XMcimoYWyOHiG+fyystyrSznBhXx3gNc/M3KffaLYTfL /MWWLuOLXKygBnOlHvSxbF3+TLGp4aJNu6Z53dkBlpTS47HuD1wsOhtWkqk8 xBr+T2B75gwXV5z0cIwM4LGyXGl+dio8hLf7OpQ/UKwzJY2/m5rxUPTqcek0 tRGWwcthoa2uPKz5pLD0+edRlmla0+Y1++dwl76Od9XfWMz3rh7f4njoUG8R KR8/ztp0PfmC1TUeeiY+HtP2nGCFhqRH8Cp4GCjxI2uPySRLmxMYKv2Kh+tu rD1zRWeKlbLpsQx3iIfVQ3ocE8UZ1nSNX88RGh/rbS7ahgjR4GCXUpEJg4/S 2pnBcd9pUNShEG64mo8HLNM+5o0KQbDv4ZABez5mmdNzDccXQMe1zpJEdz5a nX8RyZkVBnHqxLmRA3wUF26pOb1oIRSE9jt0xfDROiuwkb5MFG4zAz5GpvHR Z8feLZJWYlAnfJyrdoePKxz93et3ikNgTuYf/rV87E7Rq34RJwEJtY4KUW/4 OOgZn9/4UBKK6xcrtQ/xMWn/HAOzi8ApbmVX/xQf1b7+2HXKcAmcszsKm6QF 6CQctmhFgBRcDi+wjdIU4N0beRLZBdJgYefiM2MiwAtruJoqJ2Wgc0+k7Va2 AJ91Xt0hpyEL57wSC3XdBWhxXUbodJEsPJI7XKgaIMDPr5a//WErBxV5s3/6 hQnQZbo6l1MvBwVVDK26MwLMdiz/e9pUHg7l+Cpkpwkw0+aV5OIMeZiMVffx /p8A9xkuqXMakAf3iUmPtBIBrv11qPqpvgKc08+fbUcBSnfMWjaFKoDDze3X FzcLsE73fYN1iQJEX5rQ39YjwKiRxSqTXxSg4Gi97t5BAY56lxn3M+hgq/20 Jm9EgGOrj1SuYtMhSW9slfi0AFVd6r7KHqZDsvwTkUExCnf9VyxlYwYd3Nj5 1TvkKAzwtJA5X0+H/koafl9KYd78uXylQ4KxeIabDoXRtslMZ4YiJE03SmWb UPhyuCS9y1oRFrKlVeJsKOw7ZS+i5qsIY/UqJ/WdKBQ1mJRsS1CE0MFcnHKj sD21ZdT6viJwz9dybnpSqL/tjY/KoCJMrU8XC9lDoTTV3HOAwYAeuLUkJJhC evIuetA6BjT0xdPGj1Mo9/jGWa2jDLBDvdaqOArDhcZbc/MZUFZ1Xy8ykcL0 2rtV4VwGyEZ2xX7JoPD2JyPhVCMlOC0/2b7/5r/9xShBxYTrSH8BhZ42zJqg XiU44SiqKv+AwlIS3xe5QRksJIMTSusoVN42wh5sVQb+VMOliGYKL5tk3zMP U4GFuSWlGd0Uzk/LzUYVplq9ZjMHKKQV+D9ja6iBj/qs3RFCod7cuEaZS4Ev XvkqaJJCbWbPVo7lMnhffdchTYTgB+NbL3x91YGzrVLyLymC7OLetn0cDfis KRLzhEFw91w27y8akJPuVHhTg2Bw/LmB0URNqCxlqrN1CGr4UR72tsshoLD3 YrgRwTGZs5TG+HLoXJgrdMiSYG710v57tVpwRnh9ZIQdwRG/Jq8NZ1bAnRD/ tiYOwU65UbsW9i/gKS7z3G4zQf1Zzelx+koY22gR+WQrwfii/uHU0ZWQnO7W aOBJkCtiKmvWywTmN0/VcF+C7RIBywO7tMF796KmqgCCy24NcfQ/6IBWccWt hwcJmuXbbt/ZqgtW6byJviMEnecLdOhBWe/PJNFwgiq1OzXsRlaBXXDKhF7E nO/Wo3pCSB+eVe5tfRpDsM4/z+c3OQPozDymrHCaYOLAqHqbuiHkmHnfiviL 4KklmwtT6g2hb2z995lEgm77L4Ve9jWCaOnhgL8vEJz49VNOpogx5EUpMzCN 4PrjsQYu5cZwP6Vv8komQdb2ncUYaAKB5o/MN14jqDee9u4CwxRU0l73xGYT HNo3F3lpCh7ql3TLcwh+dGdUtCatASHLWauh2wRD2CnjopvNoF9Ka7A5n6DW 2x8R+xabQ49peWdMAcGwYzmrHHrN4dDra9OcYoLEwtEp+IEFHJaTOihxj6DO /INOt4RQiSKR6+UEDauY0ov+sIJoz48Nwg8I+nv1soXd14KkVexP1yqCe2lB 0SKO1mAi9NM8uYZgsvQxs3x9G2iti9bPQYLNynMErrIFqwHG1KNHc3zNv38D FliH0a4+qyOYZBS6WlMdoNPLv/RRPUGjDF2l1JsA5ofEuCnPCGpHJDzYr2MH Cb/33HF+TnAeflNsB3eCvxaQRoKl3CNldAd7cPVf/i21iSBKzV1Ekz28Xpu1 VKqZ4NPeslMnAhyAmSrseq2FoPgdNQ//nw7wOUjUULiVYKyb85Woi+tg02dF g91tBL03NIjZ6DnC9y7NwpzXBLNUDN6teOgID2NM/VrfEPQ6UD9TspMN91ut W4Q6/t3/72y4EE9PU+8kOFjwy0DsRSfYdb7C2biLoIMa76OZPQcCfDS2u3QT pP1fnMHQs18quIfgP7J2EnM= "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwtVAk01QsTty8vT9Z7/5eQJaKyR+S540Zo8wgllS2Rihfy6slyU/KkhYqo KEkoRXoV0rR4RCFCyZ6luPf//0dR2fpu3/fNOXPmzJk5Z+b3O78ZTf8wt0AR ISGheIH/jDOFYy3r/X9nt7vBuzh6BDvDSHtnp5ts0x8fL5iLjuK+GmO94DN1 7LGgA2WJy0dx9EyXn2JmG1v/7s3pWv9RbNfwI0oGe9krn7WmV5wdRffrol4u xUPsxB+RouJ1grrKGtLh7gh7WFt/pJ83iuWF3OEIimTHV3BFaFkehn+fP3Lf aIxtcdrQYpkpD1uEekSkkz+zubxkVr8HDzm6LKt50xPs4ymyTpyDPAxNVP30 3e8be5eKUkNCFg9/dmsMTLFrLAqDb1bycKDoDp3sO8t+IHFvjXEnD1daiIxV zP1gn1KNteye4mEVUf93lIcw6PZz1J+w+JgUv6rArUwEDD12HedZ8jF6p3N8 looYzFgabTjkwcdLFeNe2cfEIdHmsKp+OB83aQ7ptc1JQNNEzAqnk3xs43M9 fZOkIM7l5sbAIj56S4X//lTmF7ghZclqq+bjumef5E2uzQMvxroZ114+Ggz0 Bm1d8StwGqd/rPjGx5KFDZvNu2XhYMQDz2k5Em3LdGD9ejnwydJ6PKJPYrTJ WUXSQB4iOh85xtiRuGLZgeZNcgqw2uHihjubSVz5R2NSy5wC8E7+a1EYRmL/ vDOFh8cUQffZ2CGJRBITrg62WdUoQXaZ+BHPTBJ3RUqWmgUqw0wtJzKpgMTZ yf19F5uVIaqnZqfjXRJbx85z6wkGjJUr8tlVJEr3N9fIr2WA3/XNy5OqSXRR Z4Ssj2DA4nGdEZUXJBpPfM7XOscARe6ohn2zYH7cko7SUgb0iPWaz7aT2DB4 YW/oSwZIiez4+LaLRMYxM8waYIDE503Pt74n0b8z96XEdwaEfTpa1/qBxBLR DymLf2VCrkF+iwtJotopVkGKBhP2FU+WZIyTOOfbV/7VmAm1ARIGA19J3Fgm uYVrx4TgdLEC/VkSq8865Wa4MsGlzqr0mAiFHtORNjt9mbDAfrfDBUkKI/Vv GUyHMsFQ9dLn1zIUemd+Wjt7iAlXrdWeT8lT2HyLU++SzISucuOWeUwK431P qmMGE+50pI6uXEDhhrhJbYc8JlTbcc4aaVJYFLg7JrWECT37LQY1dClsuD0s 9OQhE0KSDGZYSyiUVR6YWf9csJ/th9A3RhQyeoa0Hr1mwp6PO+Mum1MobJxt t6qXCeoz1cKRVhS+esV+8u8oE7RDcpscbSlUUGLXdE0w4fuahYsmORQWpMTl 7BMm4O3SjBONjhRq9ckVtcoQoHNftzt9HYUBzZFRpgQB9w7nL/J0pTDv6VvO aW0CXDsTXeU8KRwqs5lPGRKwoCkIqrZQePd51KMcawIe88yCYnwolGd5jq1e TcDCe1+CDXZQuNyuNUbITZBnrBh/HEyhmFjEl2/bCHDjntnru5fCfyy/Pd0R QkB62pCOUjiF2ZJ/BpFRBDgEZToURFHYfT67pDqBgKbAEAWbaArnZB24tqkE rLK2OTIWR6HGUZ7rg2wCAsYlzh88QuHWhXZjATcJuE2S6YNJFPIT9x43rRTg 9Vs3FX1CwE9sXpLMCwK6tYzbLdMo5PgOvdLqJEDt9JGYynQKddrfbxTiE5BT u7jJ5gKFXt2jViOzBDjWM5wrcyh8f7tOZUKOBU87igNN8yic6HzDjdBlgWwX 13qogMKIiqW6FmwWXI2ITR4oprBsu8yQvTcLHqSpqQqXUfiXxQ3bTdEsEN9w j7vyAfU//V1hQdflSe/KKgoHTUTPjTWxIPVCv8ShZ4L+jam/BMxTgfj52yvv 1lGo9lts2GsfFYhwCrky+IrC0utqc1l8FWg095t2fifQw2Rz4ZJeVahSuWze OkzhWpvLe+qXq4HJudinXhMUfjw8lW5VpQ6NC9K2FIjSqJHbrFZtuBCUbL0l JeVpbHVaO0RKacJL2jxznxqNEUf/LE+iNUEh4XG9pj6NLMH7U36vBYkaF13U zGl0L+wQLe7TBtRrLwy3pVF7TXSCEV8HSmrt15g50RhAbeHYSulC27YO8QRX GmNTyndLW+mBt4x6fswWGk8Njmu0hC0GQ/e5fx7607jz66DflXv6MLy5x+NU CI1yPwljLgFP+VBTg3Aar20ARb+EpbA27cOU7UEap19Qdc9EDMGsP2PqexyN kavPTkrkGIFBMS6KT6TxYeQZQizfGGwXfajOTqGxwyfKRT3RBCKlj/X4p9Fo kmlAnIs0hf0nhTt4GTReP1irbx1uBtclspqsLtHYJh2steeAOYgk5LksyaVx xMnwh+aJ5QB/N13qy6exutQw9GqpBQS6s2q23aDxjcK4XdOwJei/0hvPu01j xbvk2UA9KxDvy3G7VvZ/Pg5Yw6JbAVv33adxE9+oUq93JXQ5239jVtKodMux /y/338DKf5nt0Uc0GlinvYh7awsnOGleVU9oFFxLka8NwAuuekhntQBP49eN A8p20Ft9+uLLWhp/wvf5ZgfS01EKqfUCPn/aMAeOPZlRNm2g0bsU+dldq+Cr p45uQRONf/hINrL67WGzzYSTaAuN0qrZ2/WnHeCj0Zck11YaBxOyG4rYjsB2 VzEpa6dR6L/mDPIET/V8B43/AeExE7E= "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.0055000000000000005`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwt13k4lN37AHCUUFKWMDPPzFAU7Ul25halklBUihAlFZWS6i1LkeVFSVTo pZQtRL52OWl57WWJSrYS2Z4z9hbid3p/Pf/M9blm5nrOfZ/73OccxYMndh4S EiCPoIDA78+p1OEGs4MWvMY9zxPcPvQhkVidayEzzbwjXKn9tVb96MytlzaS Gz7xaiWTei6E9iP9zed7urO6eSVaUl+8cvuRRVL9l4OhAzx5zJyS7e1HapUV Nu8bx3niW/XPtjkPIGuzhZ5cEISattLzmiKDaDJisVr6ZzHwrdRpgZxB1Ld0 nWh6qwR8n5A8zpxFowHtvktdKyThezW3SF+dRioFey2vpErBTHKlatg+GrnN VG2LbJAG69XMXSvP0khiUdeUmegiuOHW60NF0Ejr3kLBwCFZiKupTpQuoJHs Wr/9Xo1yECUmdrC/gkYPv4U91peWhw3lh4XDa2mkyXy2X8FQHlSexD3srKOR 3CGNCiUneRAYyf5l20ijtLeDfrt95aEq/jrDp4lG9XuuH14ZIw/Nunubj7yj UXJEdNXHbHnQcW5xXfeBRnYhj6pKq+XB2rm0duVHGk34SIx2d8tDfgjGum00 Enr79knutDzMElDTMeygkeSXBP87sgzI40Hotk80igyNC9BfxYB3qVmKll00 evD8/cbrRgyIUOhNO9VNI/H+/T1nbBiQsWOhW+ZXGmXp5yiBGwNWPbuu9b6P RjauO+cWXWLA+tauH1UDNLrRe0imOowBOp8LQ5toGqnyUif6bjOAWWpaZcOn UZCTXevmRAbYL3+SUT9EI0W9Fq2DGQzA4pkydiM08jtnhxzyGaA2etKYP0qj 6fwbbFYZA2yFJA/cGKfRUg3uu6tVDPB11F0I32jUZji4/V4jA+jgpJiJ7zTK fjmrKqmVAYsSmPSznzRqSf9p69bNAM7nRHx7ikbV378x5DADxJ7Oib46TaN4 G6mEpAkGjH6yuRwqgJFQibCUzAwDTl/V35ImhBGZzVErESa8bg1or5yN0aOv D76FLWDCS/HyhnkiGBUG8V+myzGh5KzrC0cxjDxaVdnpXCZkzw1papqH0Zbk zIvRy5jQ+rSYcUACI7aWi7HrGiYcMj2QJyCJ0bs2vSZFTSaYGXWGlEhjpHvy dVCDARM4pVKut2QxKjmfZuS+mQnrb2yo92dgZPOzTnjcjAl5eyIPXacwOiJ8 Nd3dmgl7tY4KZnMxytKK+9Fky4RJqUu+PYsxStzr7rrBmQktV0se8ZZilMMP 6fQ5xoSua1/6M1UxUpfU0HvqwYQjVstHNqzCCO/baNB7nglpiQZK79ZipNk5 +kLUjwm3psaML6pjNMJfv5oKIuOTUo3U1cJIR5dBKV9jgsHsglopPYwSfm2R ZEQzoT0iu2WKh5HXNpGBmTgm4NGb6eNGGLU1HN3SmkjGo7TX57sJRrRJSEVW GhOUznp2zphitCtaMdwzm4x/BhrmWmC0/ISJ1qoCJgy/633FscKospv3oKOU CbEKgTKb9mK05ufchtBXTMg5zdvuYosR/F7wNUzIjc89GemAUYdm6URNAxOO vxmx+9cZI/70ucf7PjBBMtabN3AEo3KnOcu7OphQttTJafI4RlfkLgm79jAh Xuf2pgWnMFrMJBU2yASjBdsaZDwxOi72I8FllMy/svNpufMY5X2XEej6wQS/ 14ZLmJcwCl/S/HmXAAt2vXSzm/HFaNWgayCaw4LxW92z6/wxitxZRyvPZ8Hx Lo38qCCMynaLyQZKs8BCb/an7aEYNaSuiO9msGB52eeTPdcwOqU1+khbgQWh X40un4jE6L1z2IWgpSwwSc6j26MxmvM7AStZoKJ7RE8tBqPJaG072fUsSFgW Xn/mLkb5caanrLVZoHbKwiUygcwXrDW5xmOB//RFnfuJpH7q6nhlm1iwc63O 3w+SSP7MVu0fMGVBPnSLX0nFiFEVfHbRTha03xouNUrHaHhzTwRvLwscdnYk /crEyDNr+o3jARZU3RSpC83GqPWIwAk/ZxYoNfq+mvs/jOwb5DMSj7IguuCq wKU8jMJU6PmlJ1lgVLI470UBRsXeZe7vz7Lgh/i1GKFijPreRr0ZuciCRCon mPuUxHN+V8TcKyzI5H8xX4EwaizpkmEHs2DDtlvTymUYpc+cvr3mGsnXc+nY eS9IPBH0RV4UC1LmpQZ/fImRqIfF8+2xLPC0vHfu7r8YpezMEdl3jwUP+9Mu b63AaOXlmQznZBZoeq0+1lOJ0VlzjuzRDBbU9oxbnKwm80Ppe5/IYYGz2DGn wRpSP1qbTDwKWRA1tiDJ8jVGgg80TnkgFvD2XEQpbzCSXqAS6/GKBXpXksVH 6zBSvsB45VFN/p/RNbS2ASOm+pj5yXry++HXLo6NGI3qFegee8eCSr/5Blfe YlSz6eKyw20sCJhLK8Q3YfRwB0g7drHAPdu8NKWZ1FvhOn3HPha8sPYsS3qH UXeT9hxnPnnf+weN996T948Yvjk8zoJBj6+LIj5g9GYrn2U/yYIgmxjFsy0Y hd6LO7JHkAKl0UPjFh9Jf/qxNddchIJ6Wf+sxa0YKQpJ3Ns2n4I8n742mvj3 8tokTUE2P8c+uw2jIdLtjBgUnHSY+Hi8nbzfO/A+cCmQo6Usl3RgVBpoGq6r TMGFTv/SauIcw6UM7RUUGEvmfnLvxOgV+bv2OgrEoupXSH0i/U9OzE1bk4J9 6nk6GcS9l39Ga+tToGdb4mr8mbyfHnimbUTB+uLIsSZicZu2fu2tFIgHizS7 dpF69uzO0TOnoG/OMGe068/8W1OAR74WnfmC0YWp9iTefgpidIXqJ4hT5L+e 2OhIQa53cuDJboyKrry/s9GFglOGQ+96u//E70bBbFWXdocejIJ8jVJ2nqZA NbVAtqHnT/84T8Hyv5VtNn3F6FrHxzEXHwrKuS2CecRrnhnoeAaQeJuNKjm9 GA1aFnAC/qYg4Ohf94OIU7rWzYqKoEC64onfUO+f/eMWBX7fnllZ9ZH4218o l9+lwO27K6eAeMetVy97EimQurvimFw/6Q8C7UJiaRQcyFTv8CLWLuy4p5JF 4hP9NPKW+H2jhI9ZHhnv+fUeawYwyrY4FuNVQkHtMyvPQOIk73arB88pyH8g d7qDON/uSGZjBQWp43ZR6oNk/4vnbhZ9Q8HEeT4VNPgnn00UHNJzet5KLNrT O/zXRwru6EnRajRGLwd+Chd/oiDhTOeDy8Rx95cUTn2lQGV/5fq3xJnFZAPD FOlXu14swRh9DOjRCRsj+bvHs/Mg3vjEV6z1JwWiEg7nnhNPDx/IVRNkQ4k9 J2oBn6yPyKPx4SJs8I71MNpPrHA7sZw/nw13QsqVkokTHyvU7pVhwxaf4tVj xPaq1QvLmWwoe61EwRCpdxfS4BTZ0Kfp7R5M3Lx7cE3xMjbk1/54/ZbY02b7 cYPVbDB6ufYtdxgj1xNDAZXqbFCVmLx9dPjP+tFlw85v/7CfELtfZQ39MGSD hXDr6BTxZmVPoZgtbPAwPB5vPILR9SDVCGNzNlR+dtwRTuziaK47Zc0G7SD+ snfEN80KnxfbkvHUlNkqjGIka+ay7IoTG2ps+mYOE+f+WrHC7Cgb/PaPFmUR v/IwfaR4irhQouQb8YrJTNFpLzZUnE76hzeGUYb7eNyYNxs6ui95XSVOSIrO GA9gQ8ajn0Z1xH3Df8VOh7JhtGmJCWOc1BP2Upl7kw0j63lbHIiVH79epxBL 8lVpPj+FuLNUIm79fTZEcHULh4hVjJ8pWqWygfvvU1utCbIfzTLghWaxQbzW StyX+C7ZXj7ks0HxjbBDJfHpopVLNRAZX2roBqlvGG11+l942r9s8E8Zvbaf 2IYcR5ResyH9VJH1Q+I1lk83ZDWxYSrgS8AQsSJ37PjuNjJejT1bdb9jtN18 72fBbjak9coZBBAvTjKWejpI5nvzN8M6Yple6fM3xtjQsvVxJOsHRrWCl7Uv TLHhS5lm5WFis9HwXWdmc6DlvuzNHOJsN8vDV8Q5kNH9sHaa+L5dwM14GQ7p r40T23+S80qze3EdxYEgh1noDvH2F0OS65Q5YDjT0NpH3FvWZlO8igP7pvPm 6ExiNO6vzLHQ4IC/8eTbIOLuusUffxhwwCKmJP898d3VfwfXmnDAsebx1hVT ZP87WPiwyYIDen3D2j7E834X0D4OOPtYCzdN/el3ThzQXpO6QeUXqZeJOfa3 j3OgXs93kzdxSaZ9FussB8Ju2yk0E5er6tyo9uGAwN47AqunMXIM56D8YA6s NFW7EEj83/0okgN+rj2zPhFn/hPZrvkPB3wt5Zx4Mxip2l57Pp7CgZDGGZUE 4mPDqgL/5nAgWLfHWkCAjzLUVYXbSjkwK/fbKifi+syNVeZVHDhgZhtdQWza P1tdspkDH0fvZa0V5KP/7nefSb5F24JiiYWGi7zLMAcyR1wGxYT4aOCzBvPZ JMnH5KbOC8QH/YeOdIlywclNUYgm/u88LMeF4OUar1xm8VGpmc/EEmUu5M8O 6Okg/t1eu9dzoWqf7eYDs/mIXO7Caoy4YLBjnn4PMTkNj8dZke/VHANPC/OR ZHlRQdhhLqy1qd4lPoeP+D2pEoXnyQ3RpMIxnZjaGBWjf50LAnLLFVxF+P9/ v0jjguOO9ZYbRfkorpVvIVPBhZVV37U1xEj8tuQG1s+FRZnBv7bP5aOFFzQe GYgowPAXkyL3eXzEvV/PfslRAOZCVW63OB+pLJiXm6StACniMvYhEiQ/k6Hz RA4qQFiqie33hXxkZ9GhlhyrAGUC9nZ7ZPgo7ff1uFMBksPUhXTl+WiVmMWu allFkIjaob+BxUfubbW72DsVwavzZoIth4+iz8GHm7GK0HtgvEhpMR/9dx2W WAzMk/kJr5fx0ZncRZPV3ovha73Yudmr+GiPQ0X/bvslsE/usUOBBh9tsZiS P+2lBOIRexbeNuSjeL2Vb2OuKsMwt8xIxJSPvrKTe7dgVWjYrlDU4spHNXam FSJha8E/3ibcJYSPjH83TG0tUNgdOJ76+E+8loZw8dI2xYZyPhL479kKmvOn 9RZ94KP/A3nwO9E= "]]}}, {{ Directive[ PointSize[0.0055000000000000005`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]]}}, {{ Directive[ PointSize[0.0055000000000000005`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[ 1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[0.0055000000000000005`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]]}, { Directive[ PointSize[0.0055000000000000005`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[ 1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \ {}}}, {DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> { FormBox["\[Beta]", TraditionalForm], FormBox[ RowBox[{"e", "(", "\[Beta]", ")"}], TraditionalForm]}, AxesOrigin -> {0, -0.7973564197222224}, 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, 10}, {-0.9956235625, -0.8077915324999999}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{ RowBox[{"n", "\[LongEqual]", "8"}], RowBox[{"n", "\[LongEqual]", "12"}], RowBox[{"n", "\[LongEqual]", "16"}]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.790501975959618*^9, 3.7905020568911247`*^9}, { 3.790502162871426*^9, 3.790502197077286*^9}, 3.7905024866172*^9, { 3.790502652323476*^9, 3.7905026569786167`*^9}, 3.790502722784449*^9, 3.790680810877782*^9, 3.790881982342059*^9, 3.79346118959251*^9, { 3.801995726426937*^9, 3.801995732420045*^9}, 3.8020869421384163`*^9, 3.802087954618482*^9, 3.802166607229807*^9, 3.80217765154186*^9, 3.802353605171362*^9, 3.802554527026136*^9, 3.802689331153693*^9}, CellLabel->"Out[79]=",ExpressionUUID->"930a1ab6-cd4c-4165-9216-6f31dd6f1d71"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"colors", "=", RowBox[{"{", RowBox[{"Blue", ",", "Magenta", ",", "Red"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.802104179964892*^9, 3.8021042187751007`*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"7f334b13-fb8f-476f-af9f-ccaaaff3658d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cPlot", "=", RowBox[{"LogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", " ", RowBox[{"c12", "[", "x", "]"}]}], ",", RowBox[{"x", " ", RowBox[{"c16", "[", "x", "]"}]}], ",", RowBox[{"x", " ", RowBox[{"c20", "[", "x", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.0001", ",", "8"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", RowBox[{"Style", "[", RowBox[{"c", ",", "16"}], "]"}]}], "}"}]}], ",", RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", RowBox[{"PlotStyle", "\[Rule]", "colors"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "8.2"}], "}"}], ",", RowBox[{"{", RowBox[{".05", ",", "4"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".1", ",", "1"}], "}"}], ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8"}], "}"}], ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzV1IU2EAh/E1SZpKqdtElkGioxmW5oVgrcnbh3gT0mZH0TnYpl5E0BxH FBMxE1uR6yZZhqAJVltfi0RwqEsE3RB3CkrNLhwrUseBClNk2uz9vxcPv8sn 23JT3yCVSCRqGhz94ArVaUWSNnbkC7R8VIXh9HduHQZOPhJh9MC7X/Dhpcwt eN/YzHzKP8gyUcdsTmZG3MpBz41eExw+1trRSU3lqu7Bgf2V0G0q/yf4CXZa W9bvUntWuqMwEvTHYI4uvAc3ea/KQTW/eHYcLlQvaWB+OXcKFup3A33Usstx pjSvfc9FTYhd/weX3zQdekyduONh+s3vn4zg3+tjnp7h3XDT7n4NEwfJHHyV nxuAKbUFrufU5LiTqcxrG4Cz+nZmPfHKxqn9JfIk+NO7nw6jsqACdsjmKoXz ItFXJHDQ1n2wBqZkC8y/iaWCQyeSw77+ZbitSbabiUh00jIeOufVt+DQcCNT URMptFENfaQIaoUzdfaLIjkbUpvg761YZNIgkgs7uz9g1jXh5Rr1KLfI/Bxe e5taKZKKK/UT0Gc88RXOp5V+g10q7Sr0nGtgpu9UtcqpxT3hNhjJvdoFp5RD Dli+YVQqqNrB7Qz4H+WyJJo= "], CellLabel->"In[78]:=",ExpressionUUID->"afd9fdc2-8f88-464e-964a-ee3b58355b95"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVV3k41O/XlpRQGMxnMGYmQhJFVFKZU1mylaRNWVIolUKpUJas+fKjIqEI SbaEJMmxaxEiu1RSiGyz2MI771/Pda5znfvc932e88eRd7ho6cjPx8dnu4SP 7//f1PJDzh6pHGb0Tw/v3VOC5bv5brzmd51i9h5+VOcysbycnLbN31VplrlR YXdTRuyycjNpiuST3H/MhX8iB7uuCZTTr4bJE+sXmTvOed0/cHNpuZdXaWjT KB+YzUHn+dv85XGPqx3nNPhhcnhee7Z0SbnO0XAtrcilMMUKKiax+MqVAhOZ K34JgJOy/doNTL5yA+myvErF5RBjp6241nQRB7Y/krjtKwif1Y6/zpJZwNK6 yM4tVStgTe/Mfm+JeZT8uTN6XF4YhrIcsryE/+Erj60hRl4icN9Yp0tZeg4j z+/qu/VmJdTGLz+YtGsWB9hCGz5RROF68LPUlzYz6P6rr3fuhBj8uDVX9j1g GoU9kkSnTooBOcZ3tYvvND7mO6E36SQGqzyFrCe9p7GJ2vpw8JIYPOzpMlq8 PI3qlnUnWgPFgGrm8ULYeRoHy7K6crPFQGvvz45+k2m0jbvcdvKfGAjaGtFC SNP4RGnpwE9zcfiq7yMn+WAKo4Yq4+5biMNAjM3PlntT6JUTYGJ6UBx2zO6P iY6aQovN/Ln5R8XBAmjxS0OncFZ/yRX/U+Lwxy7esMKTlz+9yM+4Lg79Yobb Eg9O4b+UObp1mjiUSxxWiRCewgGnN02rnorD3h1ZBzqXTWGzqndAxTNevyMp YvJLpvBp/uwvlefi8NnlnVTqFBctK2eyp16LQ+S37taL/Vx8+mNKN6ZRHBw/ 9w6vfsvLr2Yfbprl8bHJ5oa5cHHVspsth+bF4V5pd2e4IxffDQladC+Kg8wC KzzUnot6BVTj3wIk2Nj+a6v7YS6uN9yz/Z8oCX6qfcldtpuLAufvMFTWkMAk JJpfSZqLRa80Bn1NSdBQEiXQjxx0Syw5vWwfCTxPd8SrlHBQzV//x20LEuwM WWrpVMjBFJOjXTGHSLD5su9AfQYH//fVtz7LjgT8Dd8lDaI5eGZpY167Bwl+ FBF/v9hzUGb/hesbE0nwd32CgNQsG9l5HWLDj0hwtkC+9vMkGxsk9NPTH5NA pPGgf9AwGwPaZFtoT3l8X/FnNfSw8Y/NO7WV+ST4rWsCv8vY+Ob8mu+DdSRY rRZgK+vPRpvbnYYpLBJI4q71S+ZZqDOi/9WGS4JnlNjXx9gslNiX5yEzQ4J7 9pu/PRlmYS0pJDlqgQTegptzpLtYuOGB9uxNIQkgzj+McCpi4eLT/+UcZ0hA rfQjydjzLHxcYyBFNpWAzV0rpwcaJtGpVP1XlbkEhGUmi76rnkTVAnKRu4UE mNgIBcaXTGJh8q8jTYckYOYR4xCRPom13kEJ4fYS4PZ939ozPpM4olmjwO8p AU2t0dYuypOo80hfcyxZAuw/FS5/dnEC5++p8T9KlYCS1+v5Kk5NYGW4VItZ ugTwvY42/nBkAk2v91/OzJKArMyM8jzmBNpaBRY7FknALcnGJZ9EJzBQuJrZ 81ECaJ0N53ZljmOj555977kS8Pi689ZV2WN4OpIzZDzD03szLObUnTGcffI0 6MOcBGxjJZCTr42hYqvI2498ktB0NSbio/4YXtP6sr5BWBIG53ynRrpHUX78 tFALXRK6cpap2S8bRY+zwdU9hpLQwnoT5mAwgpQT73XHYyXBRJhfVjNgEFeH 5SY91JeCqpa+msQ93zBNb+VqZSNefMq7MoHvG65jn03ONZYCxbNmTzLe9uIm O6XHuE8KYjLXPBnb2ov6mxNTfhyVAq3jpeEm6l/xzI+wJ0oXpCCj4s29IWo3 vtjmmJUTIwUhb9q9t4m245axyvVb4qTAUXbEJLihDUvSVmeXxUvBqZEj4bOR bVgt1pPdmCQF5jGWeifE27Dtl2XuxDMpKLnbMkAht+JsNLzYXCYFqsKpGXJr W3D3H+qrt7+l4Eqo/jvXvw34Qpvrtm1ICgyNys/uuNmAq32b1F4OS0Hou3Tn RLEGXJAMSskel4KFNhEfsvYnfLNzNCJhVgoE56o6Zm59RO3o8tPXRcmwhp9y hMt8h6nd8QyOOBlCJ6s+rumqQwnlK12XJMnQeeTyhuHLdThess7ijDQZ3L4+ u22cXYs5/Xe2H1Egg6Im6Dor1KCyjqPE5i1keKEdq/ZZvRJjApif8nTIILjG 4Pb+5goU+CQTqradDE/lL/gHXK3AvpMN82uADKsTOO6rqssxKXzrkIQJGX7R tS82fSxD6W9C5eM2ZOAfKnb2SniNIev6vc7bk6HnV6Pe8X/FyPUo2zzoQIZT exZV622LsXWFR9Y3Zx6+VuiMo8orvLOpJ7bBjQzqoSJNzxsKUSQ490J2EBk+ l2vmkFzyMN7cZbdtKBnEfuoJdRU8RxWyMkU8nAwnxzruvLifi/ppD8s9osjw apl1xNC5bPSp/E9yewIZiGMCb28bZaDw7b2DIw/J8G3WRt3S+CnGHRB4+yiZ DG8r1cSu70/Hl9+9nfjTyTC17/eunjNpOLrg8vp9HhmcLZq0yxuT0adWOdK7 gAx7ZS5evTeYhMKRfQ7qRWQQT9O6ZKz7CJVp1iuj35Ah78VfzfCpeLTbbmx3 tJYM1jGwU73zHo7yL9MWfs+rL+hfKeJ8F30+lK8o/UiG4y8uCoXMR2PcMZ18 xmeeP5VTo+zQSGy6unbZQDcZvnfxe/p6BqIt82dnXC8ZKtaHpv+jBeDI8qRc kx9kOGTh2Ruc64srYomjub/J4FnSbz214ImxNs1q9kNkCFO00FT96o6KSpFL JEbIYLf1y/rVeAF3FS7LujJBhs3Hv2Y6G9pgk3eF71o273/sO8efKrIPbffc sOrkkuGxX/V8nhcZvZrZ8zv+8fi1982XmB1lrojPax5dIMON4MZHlvIOzNiT 558mLyFAzUkwoKTZmZk//tNCQJCAzMhy4R1qbkwoTlIqEiKAUaXWbhzrwWzw PT7rvJKADz3M4cPdV5gnjCiNMmIE0NxS91nOXWUOi7akfiQR4CWDIqrc60yv tshrN6QI8Ngjs+HjR2/mikcm5hspBDxL8amV97nBjHVcrvBDhoC2JDigIujL VFSv5N6RI8B01aKe/xY/Zj77xkd9BgFlNzmSf9v8mFC6LZkrT0AeqURm5LQ/ s+EW53KGIgHECdbeO9/9mSdMXxhbryUgX85PgWUcwPwjcYG+UpWA+T+bXsg/ DmBe61JhvVUj4HK7f7jG7wDm8pT+uosbCThoq9qqKXOLGXM2OVF+EwHx/e9h q+4tJvuA8o4n2gTA+gNCvXtvMS11s7tVthLwtmbfuxmjW8wXCpu8s7cRYDMi 33V/6y2muEixrMYOAmw3NRrXUG4xXVk7Swr0eHwVA6ojBnnL2l11bOsuAg5v KdrLfhbAVKs2ninZw9P3qsJ/6ngA83Z2Y5yeIQHrvtLLYhb8mYP3DulU7uXh KT7g1Ef7M41udLcbmBJQV6n8Pp7sz0x3PHn1vTkBh8LfBPwL82MK7BsgzC14 /r9XVe396st02HKhqMmSN68DAlt7Q28yK+isQ1aHCNCa2lkwIXWDeXNs4d5x awK0+1zTNZuuM3vaA7W/nSDg88+c16aLV5nby4W/ONjx+Lr5eFiJeTKnowhJ l9MERHwgfJc1uzEPX0/M/+vE838x+uN+oYvMlycVLN3OEjC3/KFjloYL033T huhrrgRMzrKo1yLtmE2yhRr/LvH8dp2gebhaMTcu1W3y9SCg0tzR0DtrF3Ok xUAs5BoBFZI/po4H7UenKzYRMQEEbDuziT/ukRtW2/xUkwkigN67MSzH8gqu MTxbnxhCwETWMfuLa67jd+KKSNp/BJi7CTbTI/zQuvi/sPxYAoro56om1cKw OFli3ZYHBITu9ydWXwtHSljcu9cJvPmpkfrOfY7AL8fSBCuSCTARFXHVORKN ++feBDVmEqDQMhtgGxaLuT93KR3MIYAsrX+9cOA+rqyvq257ztuXWIrcRvMH +CGxZWlvIQEL4dp5SeqJqK837D9SRsCbvrlwM4XHqOMve1OohYDY4OVa9N6n WPTbf2tVK08f19v1cXsGapkNjft0EJAmKHWt4ssz3EApPjX+lYDlVkcOPejM QsWcQ8btgwTc2ltI4S7LQ1JnlNSTBQIS383dkg8pxEi96U+2SyhQPX//7Ff6 S1yZZhciLUABvwmVYKvil7ji4obZcCEKKP26NBAwXoQLAvXf3KUo8J/ZRcLY 8zX+0RDMAlUKvDGQ2sbfXoZnYl1Pz6pRYFHHVeDibcRfc620wo0UyFJNnMli lOP32rSotZspYP5vG39xWzm2ndjtKQoUAH31gCKzSqwKvbGr5xAFYkKcdD4c rMHE76z2q/4U4Ish8rI+fsQ/TkonlgZSwDeQw1ejUY86fw9/jwymAMZxkq1i 6/HLzOvBJ+EUcNCyq693+IQrJf1mWmIokNn5/H4HXyP6GKykamRS4K/4fKvP 2s94PFPRdrCZAs9C81WNo7+g7OVD/UcVpaH6reoZbl436u3u+d+KamnwCl+9 itPVj7Fd5868rZWGQBXhHR7T/fjXfQ7c30uDeTW55gf5Fyamyk52N0hDW7ZU e4TFL5wVOGb1vFMaCtSbd0vW/MJXda3Sh8ekgfhhf8Q+8zdqmDc+TpWVAcev 0yaNpwdxzdHKAj03GViBxqETccNoQpI7UuMhA2n9xvN3nw+j+4crs6aeMvCF HcJcUzuMlTvW7TrmLQODsnU/BFnD6CAf1eARJAPDQ7rpA6YjmPLHZijjgQz0 7e47Pjkzggo3ZuiSlTLgI5p76pPhKJpsOVj5oFoGpFYKiA5bj6L7WLbj6joZ KHp2o4blOoqVJ+2z1etlILhliW5t7Cg6GNZt29smA9G1Yiddf41iiliM1Y0/ MpBvf+dA7c0xVEjRuD0gIQuCtIz7VRbjeLbjnFEaWRa+1m5h6FqPY57oU4GT 0rIgYUDSTzs1jnreNN8umix4fU7xPOg5jtZWwpc/qcjC0vZvgvSEcbyzvN+m QE8WdGfjN5ztG0f+c/c1fV1kgVx4yU7yzAQaP24e3X5BFq6Q04dFLk1gVPuq 7OmLsuAX6bxj5uoE0vUDld2vyMK5lx+c8kMmUJfmRnX0k4UVwf+LSk6fQPdG k2WmsbLQaB6YcrVvAvu0FjqISlmIqTe+wbScRKnFl0211bLQer8jouboJBp8 uPDOs47Hd0atf5fdJGbYf33VVi8L2klnQmjnJ/FiRGlsbLssDOxOKj4ZNIn/ fntZEX9lwSGlf0q5aBLJ8VONZGkqiA5oGc2Is9DQ8XldjSwVRvlWLrUlWHhN wxmv0KiwZpfk3RIqC3tq23JbFaggIsR38bgyC1NYLyNi1Kng3HWzZ+d23n1i ftmUvIcKDh3gcO8UC/fyTdRKuVLhStyk40guC01G3MNiL1GhTn2qQraAhWYd bFNpDyo4yWvp73nFQou86SbqNSpUzlY1BiALj9rzdSsEUKFm5npsaSMLz5SL jWnEUsE1QaGYMcbCUL8NFPMyKghIahU1rGPj7fN5nQ3lVJDgKsmaq7Pxv6Ob Ei2qqGDNCnep1WBjlMYWeat3VDD+QB19tpWNcd93rj/eTAU+X9aBzQZszABz 5tnfVGjaaHfgtB0b6/jOOweJysF5Nyw9EcXGwbONe3aS5CAlQm8h+C4bhVs2 reZIysG6zLSA7Fg2mj2Z6TgtIweTQ6KBQ4lsbDIOMdFXlIMnrgffqj1jY8ed FPWlunLAf/2lbl85D0+xk+XnKAd3hK7TtP+yUShyR5POGTkoGmyyax9jo+pU Uva4ixwMjn+q9OTdn+ffOznaX5KDI3fPLTybYuP4BXYb01sOrjUZdvQt4eB0 kVjJQpQcJLb2x6aQObjC2NDPp1QOzj5z3uKny8HZZo+1y1EOpm/nJv63g4PD Jx43/K9CDn6sL9seq8fBhkv/5FJr5eC3rZDO490cvBuX//p9kxwktPu9jDXh IH2QziJ+yQFrnrFdwJqDm0OmHF+sosHx5gkf0ascVCYprdouToPncfPi9dc4 KJ1gWVgtwcv3ZYeGePH65+bwd1BowGc6sW36BgfL204lLcjTYJqy07AikINm yk0dpltosAft/3B597lDTYbpb1sabHZ8tMCfxUG9fkv1Uydp0Potm3Qjm4Oy S+dFv5+igcr3ndc4ORxshgPNnWdocM570eBHHgd3l84c/eROA6YpVexJEQcV CkycCoNpsD5a5VVvBQf7kkf8AnJpoB82WanUzsEyjHVYzKNB2399dhc6OBjf C/o+BTw99j8DCzo5aCkXI+hZTAP3ofWu23s4WHl/Z+TZSho013we2/aDgymR kQkWbTSYZzsbsP7w+PtoFNEXaHBB54vJ6XkO2kiXvvjMRwdqZ3hU3AIHjxYa 5QQupcPTL3UOHxc5uG/ENu3PCjqUSAu8UuPnou6JiDtFknTQ8Ypz6l3ORYkd f1z3raPDMc3zqnziXKyaS11704oO3ZSg7P3yXCy7v3GN5hFeverUNWsFLpZo vaH3H6ODzXio3Ok1XMw710w2saODpWb6qIcSFxO7+QQIFzoYTuz7HbSOi5ff 2HzP8aXDwxek05c1uajoTXnwNZMORUkrfgcBF8e3XrBzyKGDUYFXn+0uLr5h VyoNPKdD2dWHy7bu5qKlq2v+eCEdlFVW1fTv4aLfyZqPS5EOj65eNttixMVu I4+FdS10kPaPSMo35+IdqcZTnnN06BN6Gi9jzcXFnOANYmYM2DDqRoxe4uIf TJ7o3ccAcrDhzeduXPzyuaQw9wAD0s31DS+5czGDM6q77wgD3GKpi2MevP47 jxhFODAgR115/6AnF9Pq19qLXOfhVbniWx8u7h1+Fy2YzoCO2EmthRAubprv s2rPYMBPKe+7OaFclBObpzzNYkD2E9KZE2FcnNik+cjwBQPMWAZuxbe5GO/1 IDOolAFvyb+FXCK4OCLkUrW0hQE3vT4FFdzhYhs1MLillQEuKYUW1ne5WK7+ yDi1gwGpDOY9vntcjDnQ3Li7lwHJPurBpjFc1Hug2+M/xICiWyJy3fe5qJJl lXRghAFqxNP8G3FclHzr6iA/xgC/rfVVjAdcHPyeMljOZoB+YdZhh3guNk+W ZkVNMeDUqp8d/AlcLBVod7WfZUDm+MO2FF6cTkxoaswzIP8u1WJ3IhejVUQ4 i4sMULiSYPCDF/8fLPi+Og== "]]}, Annotation[#, "Charting`Private`Tag$451837#1"]& ], TagBox[ {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3k4lN8bxm1Jy7fFzHhfs5bQIpIK2d6HRIoWCaFSUokQ0kKkKC1ERUQh KZVESbacibJU9ixFlpmJSAyzWBK/+f11rs91znPu+3qe88e5lx7ysXWXkZKS OiotJfX/lWca0GXmJSJiuf5BZmOz2WZS5wtlvMcI+2v5F1Y2yLMpjzaGeatN EhTjtrK7p2axrXGMlJE9RWyKZW7wcpBjM09fXaqkMUPwousHbF1k2efOlUTW D0nBGfFF34GjMuyEtA/uf7VlIP/dy5y2RGm2vuP1deuiZeGB5/mzc+uk2Grh yYTCTzmISGz6SKVKsTfjpTllqvJgxS6Zqz0zjfoMHyheC50NLzQYDQs//0Ml ldHfdMsVgNp2nJXzfgqRuMax/KVz4Ug3u/FowV/01l/viuW5eVAZSn90qXIS RXuZci4Vzwdz9/x+N/EE6hPO0arBFsDZ/Q7bTZdNIL+fnM6/LgvBbk162WPP cZShJtvHtVkE+06eNvhaNoZslwjt6ycXQYAabXy50hhS3nHi7JrkxTAks3eR YYgYpX3cTKZsUwRSp8Hium4RqgvctL1arAjnOrRfr7UUocPRon6rCUXwq5+j O2AuQpMZTyI+/VWEiOuFxg/NREi1ed67z1IkeDf9ommRiQidWfdVo3YuCdR6 753rWy9CS/mH5zQxSRBj5DJ9UkWE/D0uf+iwIMF1WWevvCkhUgjTd91nRQK3 i+E+1pNC9CBh4O+PbSTgPVxTxRkToqrK7eu6dpIgMCR211yBENHVsYc9TiSo wmKebuoXoo+cJ6G93iQoDepOtm8WIsyl2oAfT4JlgcGBb58L0Re+C/9xIglM 3pw49iVTiC5E8DP2JZOAaBj8/SNDiH5lY4s/p5Eg9XvcKXGKEBVIH+nLyCLB R71i3anbQuT0ROaOcxkJ9mx5nLQjSIiSRw3/VPwhQe+RqK1sCyHaeaXu4Xk+ CZhv72M7NgmRHN3Ncb2ABE3s8KA2Qoi8Nl8rTxsnAeek5tbv+kJknNCWGCxL hgKWedudVULUaXzKQkeZDG7m3LyS+UK05Gp2yn1zMgT8XhUT90mAHpnMX6Ju SYbVlwvaPSoEaKXQIzXbigxPzs8KWl8mQDoH1NLQdjKseCK9MqtQgMw3JD/s cSSDuNTxzNJMATrWczVD7QQZCOfPS+QvCdBgfJ9atg8ZdsxEJ68JEaCT1psf 6/qRodX15E6bswJ07q3UE8vTZGiatug+7CNAN6JOZ3qEkWHr/QWrpJ0FKHej +/MXcWQI3TPm27RGgHSHyzR0E8jw5i6lfe0qASp6tCSr9B4ZKrgH4y+qCtCH hR1ZdSlk0DVwuTmJC1DLT9vskadkiJuuCTOVFqDJWMjdUEoGg/SN+ovqRlGI 5YO1pWwyWDlXWFyqGkWy//7mWpSToe7OYZWf70fR/GNvXzlUkeF7dp+rf94o Yppo5Z1tJEPUyJ25LxJGkdkA7e27XjIsqn5zSXvfKMpdLz65sZ8MP/aZl4Tt GUVLQutXv/kt6TdzLLXYZhRNkyIeZvHJcH/tqZ99xqOo2HgoKmlSMp+YTS0Y YxStj2UfPruAAivtHcbCW0ZQevs9lmgRBXbGfNfZUDOCFNVPffclUWDjwtag qvIRxC9aufMYToGuU52T8Tkj6AXvlqGDCgVGGcj5c+QIUtd3V9ygSwEpp+zu 3etGUNxFoiZHnwKUR+/GFVeMILka5cjVhhRoe2PyPYc+gjgHa/8tAwpE337C jJw1glKu6/UrbqWASaLD/JRmPsK75rD5+ygQ99wLzHz46MpK3jkvVwr81rhC bjrIR2L/0g2/DlHA+WL7K2M7PmpW8H/edZQCV+IH5R/o89EtnY742pMUuDFi +nRsehjNu5x9IiuCAgqDIcuD5g6jezbHzfZHUmBtgWdwUt8QWkFRxxZdp4C3 /JGZHR+GkPmj+2z/GAq0qF2Q9wseQsFlN0iGSRT488kx/VLfHzQ0fbywOocC sncDZ1lnDqLgCvXooNcUuP3eWOAUMojmRnMOaeZTQLo4JFe4exCpM5zmxxZT QFPsV1j57zc6YGh1wLGCAmFqt4b7tv1G9aeXz+prp0CM51JxbUM/2k9wvyV0 UiC8senN8dR+NCifkr21R9Kv5+fNbnj3I4V4JcfsXgrcTyPTXOf0I9O8Wc9P jVCg5pWKtNXGX+gVn7tTbrYSCD9GjGy82IviPFKTl+ooAVfVL82pmIOEu9SN MtYrgULBsTUBoRxka5DVvkJPCdLWKk5obuKgRfMKqNpGSqBdeVkhoroHXcuq SzCxUAJflWiploZuFDI8fcfZSQlYt+ydctN/oCOn9kXFXVSClIG952e0m5F+ GDVkTpMSSC8eTlEtfYrye8P0ypuVYPqw9J19Xx6hddb9/OA2JVB/zHOmvU1B WliBG/+HEpw6UqGePnYFqb7YY9X6SwnMGoPbwCaJWPwthpwxrQT5oZNfRgyL iGiT8Zr90hgEXV1nmZRWQsx/dOAKLoeBU91oSYkcIhR8tCavz8Hg/aoMjQU9 74lpuS9dfmTJ+T0nShKvVhAD2rOfwyoMxre6q3TdrSOOxXsfnlyNQc/HoMBL e+uJn3+bGXlrMFBecnaRQm890V3xKGb5BgxM80Ij7/9tIFpczAIXAAYTWO1k NvUrUR553rRjDwYXK7S4OSptBAzxJuMcMTDknJ2aSmojSndb5+1wxmBDhuz5 YdI3oohJW17uioFR1L3bXVLfiZy8gvnPPDFYVqpfE17XTiR3C1pPh2HwYO9g wAytixg4ouYiG47BJw0FwZozXYT+H/vu6MsYuC0vPMxv7CK+ThT+yriOQWdl VWyraTcxn3RhoikOgyit9okTv7oJp8Tc8wcSJPsHnt0ZX9hDZLK40r/vYZCQ JxX6UreHMF9tMVcmFQOOiffTgrAeInjzfJr2MwyGjFz4DxZwiE+fjVOKszAI JG/p+LCGQ+C2PsssX2IQfvtJsWAHh8jb36ixPw+DmbDeLIMoDiHzUzanPx+D Dw1fDx95xiF2em5Yf6pQUs/1Lc6p4BCDpxOMbpRi0BaFMfunOITBdDUbe4+B VGL4da4Sl4gM/2ueXo6Br6nHpoXaXEI1dr9NURUG5z1cd1cf4BJ+WEzD5s8Y xNgmxJgFcgn2/fd7GmowqM4vf/bpOpdwfqa6/1cjBm9/mD6dncclMrXtOf7N GFxJs9ItqeAS4vwrR2ZaMfBWLZ4KauMS5saFA9e+S+Z9bUOaaT+XuFU+4K30 QzLP4d2vZ09wiW4ruiCtS9JPx8H8qtk8Qqve5rQmB4OTVTf9LlF4xKeOnFDz Pgy+OaZYL9TiEbgbR7a+HwO7JAW3MX0ecaSfFOk8iEGJrI6G3CYekeezeX7f EAYkXtFRHWseISMOjPEbwYA/xbsQaMcjdgZnkqcFGNDqdF59cOYRD2S+J1wV Y6CXvm7N4kM8YjByHoMyIdEPl7e2P8ojDBYap6X+xaD0Y7BisiePiIzzVls9 jcFHkmDHoDePaKGlPn0rhcONZZuKd57kEaoPGzQ3yeKwbOEPmUY/HuG3QvZV 7Swc1q4oW+HrzyPY2et1nRRwkBvsjFKX8IINR4p+zsVBN3+RP19S71J81+Tk fziEn6+Vq/bhEc9Mq8umFuKwaVlFTJYXjxivnLSIVMRBp2RDYeIxHmGxffVn EgWHp4UOtjfdeMSdr/t2pGA4TNWvUr6xj0dwnG42raLiYBu7jRttzyO0e9gO +XQcpA+yR+9u5xEhR0fbTVk49HfIrcnczCO+/FnmWrMUBxmGiRfbkEdQA/bw HFVxGKoN8O3R5hG2N2XTW9Vx0P7CctqmxiOuP8s9aL8SB69Bg8lanEdMdf/X tVsLh9SywPX6/7jE+qni+43aOOTssDu4fIhLnMCOu+xah8OqN+UvDDu5RKdN xbft+jjEh/hPvi7mEkoeAQk1Bjjw8lXezH7KJXaEqzhYG+Ow+rDPDvc4yXss CvlqZYZDraMN+7Qnl0hfrldnbo3DtmUxT28v4BIdZj+jyrfjMK4TIgwScQjy /tvWZrtweBDae+l6O4e4fGe4mrDHwe3xnNOiRxzimHTmBwNXHIrkRHNpmhwi lW5/qfAQDtE9ZCP5/zjENz05M313HLrjMqw0B3uIrd6uaMNxHOoPqb93y+wh VrfjRdoBOMifrTQzVO4hDosrzrwMxMEpSpFUJ+gm7i8+pad1Fodzsz0Kcmu6 iQVbGvI0QnA4k3JcSzu0m+DnXX2pHonDbNmnv/972UW8iZ58RE/GwYOiTWr+ 0kEMPc10S3qAw+PZD/tjPTsI9Y/2KtQ0HEwafZNGFTqIhL+vUrDHOPj013/p JtqJc8c87ynmSPy0Og4sT/tGmJh13FT4gMO72/evH13dQsR/9zz2rgKHxQJk 4pndTPzx+wt+1TgMGnMDHq9pJpLTqaPttRK/vGFWgfZXYlJur93Lbzj8YpG6 ZTUaibeVzbj9MA4hyY5FqR2fCW2burR0qjKsLCm967s4j1jmWPba5KQy4PfZ vQe9PqOti+kOH/2VQep0/TrrsC/I79OpyW2BynDVOWZqOK4GlRmtNN0bpAyF voH9fqV16NDSmFr/CGWoJ0zkjeQb0cOBff2ZicowYjj94s+WFqRyfoJJKlOG /delw7x9OtFW3d1liR+UoS1C5mTPYCfyG85yX1KpDJ8slcc+eHShsoOuWZpf lKFWxyBkVLsbHbKo3LilRRlam8KTetR60MOFcXbnB5Sh4KZxTYcMF6k81L7W p0iFPqz3fUBoL/Jo87R8RKHCqycfcsIKelHOgidyB3EJ+2e+UxrpRSZBjNDv DCqoZM/raXXtQ052cwNqVlBhyvecb47BL3RLnrfvtQkV6sbi7pS29qNvRiya rykVUvVF8y3mDKAl/k5tq82pMPRjOMLBYABld9XbPraigo3fJoKWNIA+Fbyz TLSjgt2e8JXGDr+RjOfdtaHHqYC54jqcokFkldY4ZHiCCmNb+I0Xfw6imNb/ ssZ9qPA1M6OfvfAPYpqHq/udokJLEz2M7vYHGTBO0twvUOHSxW+DzrOGkF/d 1lnb4qlgciXX/4feMCqcdblsdiIVlH1T6eddhpGU0fvQD0lU2B4+3lFyYRhF Z+pNGqdR4aePuimjahg9C1Md1s6igo5dRd26lXzEWTfdplQmuV/q0rP8Z3xE nnlTX/GBCsyT0s4NhXy0+dOJqsBKKrzTE75nV/FRpuuPty1fqLDWOniU2ctH PlEl8fGtVKhccOEEhzmCpnrP2Sn9oUKeTm1qp+Q/rPVKx7pimAoRZl/5J+NG 0IHzA5sCR6mw1CPhSXfaCCojOa1rGaNCg37rKduiERQJGxXjZWigv4R8627/ CKLcG6uj4DQoW1y0RstsFFm4v6z8SKUBgz81XmQ9is5oH0WnGDTovFfus8ph FHVUtGQ3q9Dg0r8nb3I9R9FDwZuoOE0adPmW4YdvjyItm4BtlE008PcMxXx/ jCJXfPWmj5tpEHP3Vd663lEUy+UanNpCg+2i/Ib2oVEkPLt7VbMNDTY239f4 PiPJD4915sQ50sCpcbX8nSUCtEVqpILsTQMHv5pQtX0CtHXQ72q8Lw0EgUfu fnETIOs24TbcnwYftqw7vP+4AO3MGa+nnaGBZ/pEu9lpAXJ0lWpXuUiDdVvd MskxkjzHXjisHU+D4NMzgXNKBeh4VmzuqwSJ3jtfjn+5AHklkALWJ9Ggeypv 75cqAfL1xSb0UmkQIa503tIkQGeWsGSJZzSgfC5z9+8ToMgLWphNKQ00xzTC ayT585pXzrdaNg3MFTX1dBcL0Q1HneSd5TQYqGiUjaUIUYy27lK7Khp4FRyS ZTKFKKHbWMO5kQZtvSKv+1pClAk2hEcvDe43O5n62QhRpZTX0YgFdLCTmTgX GS7J2x51m4wX06HyJlNXPlKI5jbpLBGR6MA6K3obfF2IrDMm2g4r0+HjVbaW 3S0hqre6stVclQ7nVfZWvpDk87ZbDzVlDehQmBbep1goRBN/Z80tNqLD8vRL nCUlQkR19+j1I+hAfrhCYwUSIhc97RSOOR0KinZ9UvkoRN3t7xaV7aCDnM8N y+p6iR/Vb4IL7nTAzvW85/YK0Zxoo3r9Y3RQi1urfL1fiFaNpWTxj9OBrs91 Xj0oyfPVR9xdfSX+LD/VuIwIEf+EsIUIosOL8YqYwL9CNJ6/sGg6hg63evkm dxeIkIKVxYXgEjqUVW6M79QWoclG/+XyiA62xaTmtzoi9NslrfbmezqYfrVa ELVehGp9p+jpFXSAVl6ihr4I3U54VVhdT4eGtt2EASFCzF9MgdJPOihEPtd7 Yi1CG66Muef+x4AITvXof+4ipL5Y7T/DRQw4ukaxMuiICOFJtnkfFBlgZE78 6z0q0c9+IdOGMYCBLUFvjosQu8UtZXopA7J0VAc2+IqQtXp92zZdBpByfK58 PidChz5mbuvdz4C7Lgdtk6NFyIRnq+l2kAEOVknSFTdFiCr7b0G3GwPqVfCN QzEi1Ai7Gr8dY0BFK9nS4LYImZVMONb4McB97uJ57++KkMrrrUfyLjOA7mSb cC1VhDipgxcuZjMgPneelXKuCJWi+EMzOQyYu8VbFXslQvc6wTz4NQO+LVn0 jvRahGzpcbMDCxhADWBoznkjQmV3jaM9yhiQv2OOwc8CEXoYHZ20s4UB4s+3 E93YEv/B2vnMaQb8qVLafblWhPbhJbkNUkwIZnSxT9aJkGOe5YtwWSbEFL4d d64Xoe2D+x8NKDBBtjGmfnWjCBm4RN3KJzHhz07SUXazCCkaDXhvX8kEr8a9 R3M7RKj8b/ryEDsm6D6u/P6lX4RUg7DEH8+YIC8r8/OCtBjx9U4cOPSCCRlD qoXLZcSoWFim1veSCXKsP0q1Erb19n7Fz2PC2wtyZ5XlxOjCwY+fZRETXK4W UZ/Li1G7pf/0yiYmzLrjkV88T4xukevcAv8ywX7XPZt4ihjNvListdCaBZ6O 6/U3rhCjAZQ60rmdBUcT3xt8k/DXhqK87F0sOOBXVX9mpRhlioYMtjuw4ARZ uyB/lUTf2MEy6hALBo+OnNPUFKNHX5a7zjvLAqMXbrNm64jRlt9VsbMfs6Ah KJLnaShGOv84dq2ZLGgL4NdMS5i+8B/25DkLbuTk28YaidGIztoHFrksyD/s ueaNsRjdO5f4LKKEBTPjPUbjhBgNzjleLtvEgslSPZ6nuRi10MIvNzWzoHp9 cvq4hNmaD6zS21hgV54rE7FZjOJ2NdaZdbIgMum/tGQLMTJJNOgI62dBs+Hh I5VbxGjFc7uUXYMsyC7R0NhlJUakd96Hlg6zwDn7Z+x3Cf/qfviLLWRBlKW9 xeBWMWocLXkeM8aCXUTqnYBtYlQi1+rtOskCxy2yl6ck/FhpZK32PxboPK2m hluLUeyKeaKZGRaU9BnvnmcjRv8DCRgJag== "]]}, Annotation[#, "Charting`Private`Tag$451837#2"]& ], TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3k4Fm8Xx8lWSrI+6zxP1gpJqxLNSSK7kCQViSRbtkqFhKTS8gvJElFJ QiVK6baVSLJHCin79myjsuSd96+5Ptfc15zzPdvcR+mwn637AiEhoSZhIaH/ P/dM8TRqzQn8xs/AM4a/JcoNhc69WuD7Gz9kTfv7uEy8XCF7y3lftWncX2Tw vaarWLkFlSJ3P38W5+tOynkaipazTl5SUtScx2/tPG5PNxEpDw19E9s4IQQW DSs899suKL+dWe0+o7MApqe4Cswo4fLNjpfXr48Xgd+q2Jslr4TK1aJS8YX9 ohCeJ/qsTESofCf1bWGlqjioq8abxzf9Q4Nb02XjwiUgobl9QXLqHHpTE9+5 qWoh7NQflu25OYvkfhrc4ChJwpeEipd9sTOoJFD3oknoYtB/s3xdTdI0ivfe 3nfh9RJ4afhiiXzNXzQoWKT9ibIU5oTnbPsFf1BAf1/3jLM0lMy8bvbe9gfd VxMZ/Gm5DPp3r3m+Oek3sl0ucGicXgY7ZZ2MUsanEM3a5/SaVBl4d0ZFxnzf FMp8t1NewVwW4n9p/C2vJNDnkB1WtVOywBhS2dKzmUAU51o9TqIcsKqSve+U C9DyS/l304zkoaHr2fZEYwEyHGGUlA3IQ92F5dTeLj5aHJPvkxetAF6Fby6b nuajhGMZqUrrFMH5e1nrhBwfbT5PD1vUoghLC1pOKr7ioeKB87pVbYpQ1xu3 Ir6Eh9ZbDHPOdiiCev2Xi2LFPKRNeenG+a4I/8VuNeQ/4yHVJ3tMvwwpAn7O cqo2j4dkOq/L3/+nCEEBhoxDGTw0oiPxGDQoUO+x3vBfDA95JvoemdaiQEqn qatLNA/1z7RhRWso4H4u1r/iAg/1vs++vmIjBSJvu5pERPBQu7NhyFKgwNPg l6s5p3moKvbc9m97KGC6pjrxP28eSu3lfzl5ngL0+C9P39qQ9jzUnEWiKMDV tXooY81Dm8cdeuNjKPC5WnuhmyUPtf59NXT/MgVe/nj8R8iMh5bIRfxtSaDA yVmNJat28NDZnUsYOrkUUAmLVGFv5KG6jwZ3X+dRIFtCpX/3eh6i2vqpmBRQ QMjvzmzEWh4qOtisebCIAk76Idzm1Tw0dvK2/pW3FLArU7QzUOeh/bmqB4ea KcC5Zqw4qMBDOToOfYFtFHiscta8VI6Hpoovesx/oQC1t2EsSoaHblaN+Cp+ p8BBh/yt80tI+98Kw40GKbCuPvJiuAhp361PpHGYAgd0Nt0RE+Yhj2G52P1j FJDJrnsc8Y+LFkyFXA/gUqDc93KS/V8u0pM2yMyYocD8lQTt4xNcFJvgq6b1 jwKZWaGt10e5qJ2R8ahEiArXi1sUHg1xUcBKkWcNYlQQzpc0KOzjotzttZWz 0lRYeiJYRaadi+hBe345qlJBsnD33iOlXGR7TSTrizoVDB7XF7UVc9Hl3Keu DqvI87JSx+A5F832SvXYaVNhoGmwTzSPi7ot33dabaZC6UiO26E0LlI8FnT7 kx4VqCr6FYXJXGQdpbzXwoAKMfLmMcKJXFReGtZqakgFXuCzwdR4LspaofvZ yIIKUykpKcbhXPTNsP9qlRUVMv1ETfXOcJH8wf8sDHdTgc6EY9InuSjm1mQt 7kCFsV1HGyx8uehtQVrsW0cq4B2UC3nHuOh3nbmJwX4q6KoQcd+OcJGncE61 ngsVTO+HP0x14qIMpsOFV4fJ7+l3n1Xdw0WduqKGm92p0KJ8AfytucjM1wVt 9KLCurmABPcdXKTVRS3VCaKCr80Va9NVXHRk6v2pghAq7G86KHRCmYvSZIJ1 tU9T4ZP6wz3nGVy0dFdTkWYYFa7FZi/yleIiTtGlAvVYKiy26VtZyOGglY26 vvfjqOBxNu6E9TAHuY72a6leJfV6lSxs/sFBzUqGuUo3qbDlVpCjXzMHvYif zmamUiHJgh5+/SkHTTzKcUtJp8Kb7i97WnM4SP2dgzI9kwreUTvEftzloNsz z+5SHlDB/3IYxf4qB4V6Hr8jW0j6E6XamOLOQc8u0PbdeEaFu9RyltJ+DhpN r6Ese0GFKIkLZ3xsOMi5TSVBqpQKKhau87v1OGib4bdrC6upsP522R7hxRyU +PW4Z9l7Kky/P1P2cXoSjQfMQEAtFcIEbNee7kmUmkXndTVQ4apmecjn7Ek0 LbrPvqCTCl+Fk+0urZhEtmlDWke+UUGrfb7CRHwSPdp4SozWQ4WNJYV+Br8m kKNHUnHkLyosmvP6ry5tApXUtFEdJqnw90eZvaHEBFrq4s6V5FEh+z6+/1rP OPL4I6hFAio4ZvUGi5SMI8VV8mdWTVOhd8Eqi71u4ygozvb7rCgNjBbG0w8/ HUM6lp8zs+g0MJDLou/BRlFs/8FQR4wGk64KcRX9I6jn3ISt1HIaNClEa/Py RlB8vpToSTWSubdqwnRH0Li0hYeZDg32x2mtO6U/jIxyurbNr6MBTY32DZ8e QqlwnFK0kQYfiDX0h8VDyOJE3AdsKw2GnsRru2oOodzmDxrcnTSQvRTmNyQ6 iBYcdxR5sIsGO2yvKS1+OYD2iQx1OZnTgLKkJK7v2ABauEHiarUNDbac1jpT UNuPPBJ2Tibtp8F8vklO6+lfSMWx8vm2EzTwbdxPeZz+A5nJMPe+C6SBqj9+ ScroBwqoC542D6GBR/qrEwuGelGl/qrt+87QoAcIJRXNXnRY6XpDYDQNMjZ/ m3De8h3dGzkwnJNMg/LR9eeu321Hyuf+suQqyfgQi/XNBG+R2Sa7yuRqGjAU 9lzZwylFAZN57straKBQ5O90eKIYVbq65K2up0H4kovgJZ2PDhvXbNnVTup/ 8fHbRzcf/J50gv25ERqkLl8b/lmjAle+pxM3KEuH8gJ7dkNJJ36s47hJtgId pH/b3lLo/4oXLn0o6kqlw1DNxp+hst/wbWew8K8YHerkT2v+de/Gnewlgz6t pMPz+tMX0/1/4DfFfx14vo0OYZw7qUo/+vFOfTbDfzsd8ibtrhz2GsCXBzp1 aBnR4YztzpKn3AE8v6fR9oEpHWzVjC7kzg7idS/LTJLt6fAthOYtIjKCLzie tDbci7QXUNhb/3kcN81sntjqQ4dRtQuGqdsn8OtfpPL++NEhZK+btP7TCZxl FKUeEEyH9vm0cOvLk7gedoLhHkGHmW7JTqWbHPy8XV6H0gU6XNaPrayq5OAf Lg0mdEfTwc/86s0oHgd3mDqwzPEyHW5ZS/XPWHLxgM9mYuaJdNgr7Dq18DcX fyUWUymRTIc/XxTvy7N4uJB+RXh1Cnk+8o5S2w4eHp+jO22QSYeJ1Qe8Vl7h 4W3dASXTWXSItj7raZnPw5kK+UElD+hQc6TncXkDD889rzqpk0eHm1u21R1b zMe5JYfyxvPpcGla4fzICj6+eeLOsdyndEgeka6T3MHHw1Xb1Y8W0UEvUz79 gTMff+8k80ulhA7uCpHFz4L4uNQNi8zeV3Q4/Ov1Ro3LfNy+5uLBtDd0eC29 PGd5Bh/vW/+vQ7GSDmv1S9vF3/Nx+fkXje+r6dBQn9+d2M7Hd9b5fAipoYO9 8Qz1bj8fD0lQK1evowNL/7OpGp+P57h8L2mvp4NhtIey8Twf/6qZUBDzmQ5r WA6X5CQF+JLfFg83NdMhoEvVP05OgG+rFL070EqHja3pazMZAtzv6pvExC90 8JyZ/bNGWYBnOAbFG3+lQ9Aedo/wCgHerKIVM/WN9E/aN5yqIcBFJ3+ee9BD B+31ivtrNAX4ptKUYIc+OuhssHtipyXAPaPtfMT7yfNVFwySyPfJNovdiwfp 8O6skK3ZKgFex6hy9hihQ2JXxScLNQE+OxBqrzhOBw05h/qHbAGu/WydxftJ sl6XYV4nqAL80LmRHSE8OrQlzIb2Swvw67vubVUnyHzVzP/AxQV4pZzT+vbf dCgNpR7dN8PHBd0ymjHTdLj6Z3B5zQQfV8utVd40R4clH5bNHO7l4w7B5+kD 83T4EFm+JaGRj8fCFtnEBQx4pVzkVo74eOli7iJjMQYscvzqmfeEj4+25whP STBgrLayoT+Zj1v5ULl7pBigm9bV+8WHj0dsbhwSW8Yg/x/Pe70d+Pgzkdje F7IMcOnXbb1lwMcV7vz+rEBlgKyt2/ZhMT5u7F5Q847OAM9hfv/FIR5+Suco CsYYkHGDlllbx8O/vW/Pb1NmwDaVWomncTx86c34B9FqDGBtFKelHuXh+AHj 9I0rGbC24FvXT0Mefo//4mrCagZ8MpBp3TTFxVvf+kTv1GFA1pm7pX8auLhY nNo5Yh0Dqv22b8EecnHP5QneezYzwL7Bx1HZnotrWwaZK+xgQFWan99AKgd3 oWrteLeTAcO2MaFxPhxyz/mpF7yLAdPqI5sCt3JwwWk7jTZLUs+5M/3XH07i rx+sW5TgyIC+dj93m/lxfJcQ9728L6lHK1LlP7sR3Gws4FKiPwNEhr/cse8e xi06BObUQAbk/U5zcvIaxm0K/zQyTjGA7hYlZXF+CHd0EepSjmSAg7nHSq9b A7hnufSkTiIDMjetaTe/3YfHRmhTLN+S+jP+njpu3YrHeRd2NpQzgL1yQdiK zS34Fcd1qTZVDJBP9CvuYzfj13U2Kdl/YICi/Wr7muHP+O1eA839zQwI+GMS mBRUg+eAJX5sgAGHVpUL14Y9wmuEvI9GL2UCJzVS2uRnLRo69nmHgQwTxP4l W0aL1yPJlnXLCTkmdLatlhVe2YAs7v/tOEJjwuIz1gMfVjehRtOLZkaqTLBw WTzLYLahjpv3VovoMYHX3BpfueQ7+jsjJvlanwkrmze12s99R3T3YwMBOBMK dvvncAa7kbOuzt0+IyZ4CW6fbHXuRb1dZcsqrZnQv7FPNHNdHxpS7eRHuDPh IuNAvXxUP1oUr9+42ZMJb4dTjUy5/Ujj9908jhcT1gjfsAlxHEDetR7uLv5M 6OlrKteSG0QcH0E7foYJC59vCd51agj9KZYu/XedCX3HlDhP1EYRbXlgYvF/ TJBb1uzofXYU6V1qD/BNZALX2kuC9mkUnd2fptmdwoT7K3OTUo+PISEhzbSy B0zI6BZqOp81jhaaGkecfcOELW/1HAoryftOc+AKccSExtnLTxjzk2jUObPh WgUTEhpa6h+yOKjBf5aZ9Z4JlzgeEvfsOOi/289e1TYyIdPB9dGplxwUpdzr YtfCBO35vX/72zkoJE9q4fc2JlgnLGUdFnDQ0U1bCzw6mKC0NzDeRpqLHMs9 HThfmfApzOFE5kry/mqWOHf6OxOelJkou2znoq2tVdkivUxYvZov+ORI3mcP cs2v9jEh4sD3S3Y+XMQaYvEV+8l8Fl+Qp5H372UBFncyBpkg893jj+oNLhKe Pb1dY4QJE6zhdSoPuIgX/XDo+RgT7gldvJPxhot+SbddM5hkQuyMNLrRRO4X upe1jvxlwjKw/uZEJ/e5ipct4zNM2LfcC8/X5qGr5gOhJ/8xId0jpPobuZ+F tckpCwtjsCE0Kom+j4f8D22vjRPBwE5i9FmSDw+5Dvv6y4tjYPAE2/aQ3B9t A1Mp6QsxUA2xMsm7wUNGc7VvVyzGQF/o8ZsJcj/dePG3+1MpDMI6eUOdBTyk LqMmtXUZBhrD0pGvELlvpdgWVctiQFkWu7SgkYcWqUXst1LAYEvoy4qAPh6a zn+yoIOCwZtCeXlVAbn/be565ErHoNLyS8hiUT76Xrlw9ygTg6as/5Ibl/FR g8WmP0FsDBpeyr1mMvmovN3t7j8lDBQ/uks3reSjZy43jGNVMejediC/X5eP skbejsuswKCmwrmIa8xHt4LGbqWswmDdrynvc3Z8FPOPpq+mhcE/kyGB4AAf Wag3dphvwqBrrdgKpXg+2lY4F962GYORqelDLSl8tEZPc8WhrRgozIRdQ4/4 aHm1Y8OQAem/dZlYZgkfyVrFBAcABqlfFyhdq+YjkY7nzFlDDBITf2ae/cxH AtcfVdE7MSDEO9Zf6+CjL8H6sslmGDxEz2X/jfLRh/ljr5QtMbAcdHY785uP Si8lueRZY/AqhvcvcoEAPZZ7J7HJFgOPzDlvlSUClJrGy0f2GHD37YvukBeg +BXLHUz3YvBZ6vhhW0yAwp9azjXvw2DpzzthD9QE6PC7HPOBgxho4fFH+esF aNsv29VurhjkLVF4zdYTILrI3NJeNww6YzgaktsFaErpIcfZA4MVUjXiNqYC 1Ay7mzs9MfjR6zpwwFaA8g/NPHc4joHVaFKC334Bigu7n9Dig4FoZlvqoiMC ZPjmr+OnAAwmyziWXoECxOrK0jMLxmBPcGmZc6gATf+1ZNacxGD1uxViDucF 6JnuvZ7ysxgU+q/bp3Wd1ONgUWEQjsGuubZSjyQB8gqeuld6HoNz/j47FdMF SPm5mUdRDAZD67vyvXIF6F+TwGTtJQz2XbLab1koQF856avyL2Mghblsr3kh QMXSpos14zF4MWJTl1QqQDe1+WMPr2Nwn290/MtbAVqQmxKYcgeDGf66icVN AtT9YeceahoGzc/3H7RsE6DSwclNCXcxsFXOOpncKUCJ4neosvdIvVlVGxu6 BShAzWg6PhsDau8+13P9AmRlNNG1+CFp70IKXjUmQBput8tiH2EgKVqgbcYX IPFIw7tieWR9bb0rueKPAPVljEVE5mPgaDf14vOMAL1FiYfnCzE4obn2wYJ5 AbrTDUZnn2NwKcuEe2ABgULmRtT+vsDAKaNx9xpxAtkyEyRCXpL9GNW8/aUk gbS34sO8UjIehFnOqDSBJJ2G6/zKMDDrwE9gCgQaOPVf3hjCYD5K8X48jUCV SQbxxyoxCGVrjhJMAqUXD/oNVJP5ttJL+MEmUGjbjd1uNRgwz/YdmVImkINg 6/reWlJfC/f0KXUCrZMbkD9QT+arzWu3sAaB7sXHp9i0Y+COuvUObyRQ2JPN 5z51YBBYwpl33kIgp/q+g2ZdZDwCXll4GxBo0+gVqPmOAf5156fXQCBZSV1l o14Mfm5oixw0JNDEyh8iFX0YeObtnb1jRKA6k8v9Bv0YlFrE78o1JtADj401 pYMYVOTquCebEigyuidHdwSDhMncCJ4FgQ5mX4orGsNgUU0+d6kNgfSq1nuv ncTgo3Mo84QtgRT7vlvmczGY8HZxsLEnEE8odo2mgJwfl0eOKjgQ6PBZnWLW P7JeXk9Vtxwk0AHqm6dNQixoPn2wWcaVQI5FJk+iRFjw5rnhAWc3AlmNHcwe WcgCc5+6qmxPApnGjtxNW8wC10Y9hfvHCWSkGpJis5Q876Pn3eRLILxcOElE hgVxTksfDp8g/XO+erNYjgWfdjKfXAki0MY/1Phjiiz4tTf10ZEQAuncyr7E pLHAsy7sW+FJAmnq6ER/ZrAgZterevnTBFKvfx0RyWLBUreJJo0zBFLyNDm7 UYkFPZFmc7/OEYgp2nJySIUFtwsl/hZFEIiScTAwRZ0FRo13v0pdIOOvP+Jr tYoFNvqPfL5EEUiqI9hLWIsFz1x9Q31iCLQwSNijSJsFvUEerWtiCSSy7Krr 0bUsaDpS+QriCPTvMfUAfQML/lhUzh+9QqC/JtmOnzaxIOFuhI5HPIEEP9fY R2xhgeOYprfidQJNhr+2Xq/Pgu0rKzJu3SDQCMPEfGAbC0YOvwwW/49A/SXN xsnbWYAEBC/mFoF67Q4aWhix4MU/q4j5BAJ1TQ4bzBuzIPf+DXnzJAK1Xw7e 8syUBVbFNe/NbhOoaiZrRZg9CzI1Jm58TCPQ26Q1Kmv3sqB6s+O1+bsEKl3/ mvVrHwsmK69u+5FJoBefjelJziywqN3txsoiUOHxZgWzQyxoOFU6OkfyY4mD MnOuLFh0PduVn03WX9bwksIjLIiYP4T5PCBQJh680O0oC2Trvht45hAotUtI VNGLBXoZsvUhuQRKOnll/oM3+f38nl3qeQS6KUedOePHgjNJT9JXPSHQ1YKs Ke0AFpTcjkgvIjnWfA3vRxAL2K/WfFLMJ9CFwdLxWydZ0NpubJpGctgF42GT UBbse78DuRQQ6DS7+df0WRb4dF+7vKuQQEGvD/Q+CWfBSpsZeb2nBFI9Q0n+ nssCzseoHferCMTR9Tl0+AkLjvGeRtdWE+i1oFJtsIAFu8tq/cTfEyjmKXXs +DMWSMyOT22tIeeNr+8zThELlvgnPTb7QCCWZvWp4BIWjB3tmlhVS6DhQRo+ /YoFhySHOsdIjnB991EEsUDrvPGo/0cyXyaB/1a1sGB+vR8R3EzGT7S2Or+N BTlrPg5tbiFQQAXr8voOFmytnn8u2UrW29Y6isF3Fnzs2DBe30bOC22ltTaD LPigrv9eupOMn/xnt5AZFvBbg+S0esh+b1LVmJljQZnvUUY3yaviQznhQmzY qzcQG9VLoHIJ9XOXxNhwJ/L57sofBBqfPpuYKs2GudhV4Wd+EehlSbOzkiwb XjWN79zWT6CooJUqD+TZEBgyPiQ+QCD6REtBAY0N92JlvbMHCbTrh0ZtpQob fh7/0D42QiD59IhrJupsOCefcaJ0lEA9Tu176leywTR4ojJyjEC5FC3mbk02 pKExdcNxcp63nu9rW82GsrkNXQKSDW98yXHSYYN3UiojaYLsP6vVfj3r2HDF 1EFZbZJAHZIXNh7ZyIZP45N7UkjOrumYGdJlw7ZDIWkzJPtHaVf66LHhCe+p mRWHQFu3R8Xy9NmQKXZWOpVk8X+dVidxNpj93JA5TnJz6RqF2e1s+KhY8dKc S6C0k9FdEUZsyLNZugyR7LmhK1PMhA2yEaNeFjwCbeDqeMaZknq2ViZNkDz/ JEZb2oINv9+c7Eznk/2LMrjdVmygSZsIjgsI1NpUWpS/m7Svcu3DZoLsv5+t J8Ps2WCizRiaITmHmNCz2suG/auuLnkyReZTYtE/zIkNua9d/pj/JtA5mkrF uDMb6BcqPnWRbGuw1+TqYTY8OGvd/PUPgfStT0gecGeDnesKe5u/5PxzvfxJ y5MNW5ymD1eRvCzw/vVZLzb4pPtyNk0TaCYK2dX7sGFU51DuE5IHEjsVU/3Z cHS+Y6vGDIEac/idxwPZsIOzYXcBydn1K1wWn2aD8IZy9H2WzPfohxsSD9iQ sf6o0Zz4FFo312f/JYcNY1OHOg5ITCGm9Bzl4WM2vDCfuFJBMnfd2nTjp2x4 w64NSV44hb4ZmbsqFrGhRP5eotSiKfTewV11oJiMz0nR6hiS74Qm50a/YYPF L1/aRckpFHXluc8exIZpNY1cqcVTyDf9k45aJRtCElpot0neUSlcUl1D1odT j3vJkik0tsirSqSFDZsfbpBQlJ5C7YyomJY2Njzj8dKfkly+Ot00q4MNAeNG yHLZFErY3fzZsJsNYk3syGiZKbQtWe/b+WGy/j5aHvglN4VWPra/u3vs//HC LgfLTyG5Mt/DSpNsOD7+w1NEYQoN9d4bKhewQaP4qoyi4hRq5r15fP03mR+R 03YpJL8R/eLrMk360zu3mkWZQg8UuWt15thQenXkWzrJN1YuJubnyXyra6Zi 1Cn0PwSPclc= "]]}, Annotation[#, "Charting`Private`Tag$451837#3"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, -2.995732273553991}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox["c", 16, StripOnInput -> False], TraditionalForm], None}, { None, None}}, FrameStyle->GrayLevel[0], FrameTicks->{{{{-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}}, {}}, {{{0, FormBox["0", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}, {6, FormBox["6", TraditionalForm]}, {8, FormBox["8", TraditionalForm]}}, {}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->{371.24999999996305`, Automatic}, 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}, PlotRange->NCache[{{-0.2, 8.2}, {-2.995732273553991, Log[4]}}, {{-0.2, 8.2}, {-2.995732273553991, 1.3862943611198906`}}], PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, RotateLabel->False, Ticks->{Automatic, Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }]], "Output", CellChangeTimes->{ 3.802176471458942*^9, {3.802176537825046*^9, 3.8021765812592583`*^9}, 3.802177653040785*^9, 3.802177720093027*^9, 3.8023536087086897`*^9, 3.80235375947283*^9, 3.8025545288135567`*^9}, CellLabel->"Out[78]=",ExpressionUUID->"418904c2-3867-4abc-9f50-70af35b92fcd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Rho]Plot", "=", RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"\[Rho]12", ",", "\[Rho]16", ",", "\[Rho]20"}], "}"}], ",", RowBox[{"Joined", "->", "True"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameStyle", "\[Rule]", "Black"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\[Beta]", ",", "16"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ SubscriptBox["\[Rho]", "0"], ",", "16"}], "]"}]}], "}"}]}], ",", RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", RowBox[{"PlotStyle", "\[Rule]", "colors"}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".001", ",", ".01", ",", ".1"}], "}"}], ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2", ",", "4", ",", "6", ",", "8"}], "}"}], ",", "None"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", "8.2"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0005", ",", "0.5"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.790501877407139*^9, 3.790501891324082*^9}, { 3.790501974222625*^9, 3.7905020566343613`*^9}, {3.7905026457917023`*^9, 3.790502688930539*^9}, {3.79050273258263*^9, 3.790502736403462*^9}, { 3.790502791574119*^9, 3.790502816300976*^9}, {3.7905029000440617`*^9, 3.790502900230397*^9}, {3.79346111660496*^9, 3.793461171994597*^9}, { 3.793462039441681*^9, 3.793462057865758*^9}, {3.7934625448030577`*^9, 3.793462557481504*^9}, {3.793463868489814*^9, 3.793463886376687*^9}, { 3.793464001191711*^9, 3.793464012808115*^9}, {3.801995680724104*^9, 3.801995685414912*^9}, {3.802088044271686*^9, 3.802088143824456*^9}, { 3.8020882136260347`*^9, 3.802088369761056*^9}, {3.8020885427596397`*^9, 3.8020886330439043`*^9}, {3.802088666259138*^9, 3.8020886692165737`*^9}, 3.8020887903319807`*^9, {3.802107154674386*^9, 3.802107220497456*^9}, { 3.802107467370481*^9, 3.8021074715983543`*^9}, {3.8021145075699663`*^9, 3.802114510857387*^9}, {3.8021151115319757`*^9, 3.8021151251524754`*^9}, { 3.802119993324555*^9, 3.802119994017742*^9}, {3.802120304178557*^9, 3.802120309718081*^9}, {3.8021205412757673`*^9, 3.802120579192766*^9}, { 3.802120942530304*^9, 3.802120946371635*^9}, {3.8021214142463408`*^9, 3.80212142310493*^9}, {3.8021218825568123`*^9, 3.802121922087904*^9}, { 3.8021236760749817`*^9, 3.802123683898315*^9}, {3.8021238427254877`*^9, 3.80212384295257*^9}, {3.802123892359234*^9, 3.802123896945738*^9}, { 3.80212443436276*^9, 3.8021244537138844`*^9}, {3.8021709261303883`*^9, 3.802171066377483*^9}, {3.802175860037815*^9, 3.802175862027673*^9}, { 3.8021763298857193`*^9, 3.802176374541358*^9}, {3.802176436859355*^9, 3.8021764416394053`*^9}, {3.802176487694611*^9, 3.8021764909031878`*^9}, { 3.802176588015765*^9, 3.8021765911996098`*^9}, {3.802177462202373*^9, 3.8021775233109207`*^9}, {3.80217767767203*^9, 3.802177699668241*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"19ba1574-8da8-420d-80f7-17a4f14ec9e1"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6], LineBox[CompressedData[" 1:eJwB0QQu+yFib1JlAgAAAEwAAAACAAAA/Knx0k1iUD/IIVFX4Irvv5maqbXV UYo/aSTMNV2077+l7D4R1aWwP9tpUHvCM/C/zM8NTdnpwz8HAJW54dLwv9RJ trqcEtE/ass6VvyS8b9UOlj/5zDZP510jK4vbvK/t+7mqQ654D+3cHSZSE3z vz3VITfDjeQ/zi2tbSUc9L+wjXiymxnoPwP5EUCW2vS/JH1aRX9o6z/8ffLT cY71v0DbatYZ3+4/45lnZstI9r8GnnsPlxzxP0lquVi5/fa/veMUHcnl8j9E jtkf1rv3vwZM4NbdvPQ/xHWGz/iE+L9DxTh/E4r2PxrsJyboRvm/XI/C9Shc +D+frJG2gwz6v2wJ+aBnM/o/sUd5FSzW+r9EozuInSn8P+Hk4dasqPu/vOgr SDMW/j/nlKv/MHz8v8U9lj50AQBAkP8rywZN/b8PKJtyhfcAQCXN+SbWHv6/ bTmX4qryAUBT3Geo9vT+v6A3Fakw9gJA81b0wd/Q/786kst/SP8DQNsp73JA WwDACAPPvYcLBUB5cp5NCs8AwDygbMoVHgZAM/CkvtFEAcBgWWlSCjoHQOjN nfJNvwHAJEVkWMVbCED6w2XLgzwCwNmUK7zLhQlA00vUjmu+AsDmXIqryr4K QCc2VimNRQPAkGtDxTj/C0C3UUMTh9EDwBzw+WGEMA1APXiSmAtXBMBHA3gL JGgOQNVQpNHa4QTAraOqCaKuD0CYTqhblXEFwJM16iEafRBAlH2tH8wGBsDH 155ZEiARQOHqd1+4nQbAOKEQAYewEUDOV36M7CcHwOXQItv5PhJA8C+Ey7G1 B8BM/bypSMUSQJ+3qNgaSAjAokW28/00E0CeCpFXBswIwJs90AoMmRNAkdVh S7xPCcBqMA3DR+QTQM/jdfXbvgnAO1PovMYuFEAPbPUQzTcKwA/W/znMdxRA 2n7Bkaa8CsDDKt7IPLIUQGHNXGSsMAvAgPEMGvrnFEDB1djFdaYLwPJetTLh FxVApd4iXEoXDMD1LXO6LEYVQIWiqwlxjQzAG0zD8BFxFUAR5Ulo0wUNwGGJ B5RNmRVAb3UG0G95DcBoXDgQksUVQGo3jod6/g3AqvHSTWLwFUBiK3Y8uIkO wIE+kSdJFxZAGTfsXioLD8DN6bKY2DwWQAPQgcEGkg/A4IRCBBxiFkAxYJ5v bgsQwAYv+grSjBZACjONPdBaEMDVlc/yPLgWQEjSfpNzrhDALlbUYBrmFkCr biY4rwkRwA/uztptFxdADoFWmfRqEcAVkWEVb0QXQJAbel/7xRHAEsKjjSN2 F0DVXnvqAywSwHkB9tGpqxdA4Zl6KUWWEsCYwK27eeoXQKlm9kC1EhPAqOMx A5UxGEDtdngWT5wTwOCEQgQcghhA2tjR6Sw1FMBcPSe9b9wYQLheRhIm0hTA s++K4H9LGUDquJ7GgIwVwBlW8Ubm0RlA8lLn9HpaFsCcM6K0N3gaQFORvIxW QhfA6LzGLlE9G0AshVfDKD0YwACuZMdGIBxAM3k5dyxBGcAr3sg88icdQBdw xhmoYBrAKCfaVUg5HkCaH+TFO4EbwN8yp8tiYh9ATj1yIB2rHMBGsdzSakgg QBqekmbn3x3AWMXt6m2OIEDeRm/5UmcewAP+SAM= "]]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6], LineBox[CompressedData[" 1:eJwlkmlUUwcahkOgoGRPSO5NaFhiSiuiBaqgYr0fKlS0FCXIah0CKhRGQUGs gmL0KIvYKVWLCyJFK+BWMGBLRO8HVaYujASB4iCiQGhhQIgKhi3WnvnxnufP c55fr3NMUvAmJoPB2PBuf3Oq3NgcGLOGqg84M+fW9Au6I2loRcDKyxQzeaku //owva3B/cP4o3cpl81Ur3/zCD1w9IladLKVSvDxuvtrrZFuc1STFb1d1CXx w+DChy/pkFLLiKArBmrXI9mJWsZruk22asivqp8aXZW38k3La7qmXNOX8mKI mjPcqVRfH6W3j/P6f/7YSLUfS9y98/wY3cx4ypyZ+4qqftB45ErRG3qZi3QR a3KU6qvJz1afM9FbD9mPjKtNlHIkzXLw3Dj9t+3YM0EpqAsj1RUTdM/Fa8O5 0dNUiSo2yrV2kvbxYhp15rdUqftCmVXbFH2TvJeTts4CHpZU21ePTdPZ+5aX BWuZID13XXNM/pZO3xyw75TMCk4e4DYOujDwjO5lRFHWe5BjWFs8Ws/AMGfD h61maygbGAvNibHA1kFNaHT2DJgUhh/isJgYNWP7mnq2LUzkRQh2VDLx819H BB4/siDcO+9nhdoSXXu64tYv5EDABxsn83lWWOHUGD6/kwtxvFmzBu9Y4VKt EgID+eD/p3lXQ/Z7mO5xTDTkKoDIs7rjWQHWuHDu1/owvhDKJjROlnY26JP8 n+xmsxDk9a2H3fts8DnraPl+owisBrIMFbdm4IFzva2LGuwgPtHJa7lmJn6V alP5ySYxxJYeDDoit8XpsR3PCvViaA3+NufIUVtsMZ7Q3CMlkNCkjdkyZIsz n+sbBKslkDgR7jnmycIgB0lCYIoEBKVPzN4pLHQffXVBcVwCQf3zuS8us/B5 5pzHlZUScLvgxmL2srCx9/SWrQ8kEGJ7Rx9jz0ZJ1if0qR4JOIoY6o4gNsZ0 lDywHpdAqPZjb8UhNlZY/pH3EYeADY8bd12qYaP8X9KyPEcCyiJveK4eZKM5 +lnNG3cCDjeWi62cOajS2kRqfAkwqN7eSAzh4O1jK0sK1hJgaVCWDuVycN1k 6pLN0QS4JGRfY9ZxMHX2VdfJrQQo+rJC3zdxMOrkyOrpDALInVc3FrtxUX91 2b2gXAIKZ3jHP4vh4r7obxzoAgKa1de7LU5z8YvMsVl+5wlQ+TikfdrGxYub EvfkVxCw3OO/e1+yedj4Ux+jrpaATtNB++LPeMgV90wF/kaA3mCTfzyTh5Kn BsWtRwTAPnlGWS0PLdyLfJd3ETCsasrLNfGwqYmquzNAgHVxTeoCez4K7aiG J6MEiNnKdNKHj2V5mWe3WZBQUFdg8VEUHxXP+Bdb2CScYYw5vkrnY6w+Nc2T JEE9d++82Wf4eL6+fdm3s0hoUq7f7ox8NGiX8F7MI8F1yju6rJuPVb+l3Tq7 mIRkp8wwrY0ABdJQo78/CQbdzc5+NwEu8G3Zwwgm4Y/UrOSbKgFaWaW8Nn1J QkCTruqXXQKs9jbVb0wgoTBqcmNmiQCLbHbGDaWRsEqzmDN5X4CdJ4oqbh8g IVb3OiTTJEAz10+zNJ+EhCG7HP8PhOh48H9rfykiIb7QsNhWJcT1Tr7G2Msk DIe9TQrfL8TBQ1sOe95415u/LcCmSohNe89ns++TkNGuDN3WL8Rl0YYmRQcJ WZEFHmwHESrbulWMQRJ2mBb+fmedCCM6Bxb1T5Ow8sk3IZzvRNj9013ZKF8K 7DrzS99GEY52/K5JcZGCaBP1YxLPDlN0bi5elBT+vUXbNRVph9oNbMOKKCkE zzvod/KKHe72urQ0LF0Kp9ubz7pbi///vx+kEJ0GTmvjxNjrYXnc+FAKESU7 HsS3iHG3Kt82liWDqrmH0/eskaD8071Jj/4hg4wMr6+c+yVYWSo3nxqUAe2n 316sI9BiTF8+p8seeocr3RTdJK5eUvzPewvksP/V44Kwz2X45/6J7xfddACl l3fJeLs9Opbo5bfnOcFEd9WKkGQ5Gq/dL5p9xQme+ieNB8c54F8r+cBc "]]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6], LineBox[CompressedData[" 1:eJwlV3k41G0XlrJUZhjGzPy2GZSQyitLKDkpSyHeitKmtCBrSqVFC4pCaQ8V RSSkaFWcUERRRCq0ML1EliwJ8U1ffzzXcz1/PNc55z7n3Ofc6u7+SzZJS0lJ 9UjOn3v4eneVg7uThXGHHWdpckeBXLzZ8aOjtRZ37wSQerndBdvPFbtyjD5b aE3ixpW3/ygwtw7+Ks4WW0SpPa92/9BT4HTtdbN7VJtFY8rdsUFSfQUzn5e6 1lX3WVTGqnKGXQYKnB2UgkQwBk63FIWcvPi7YChWY2bGl/HwZurjqbuCpLF1 ir58Rj0bvOjvBS8vjMM209Z9Tboc8DJM2ZdEy6L2/RX/hl5XhpesARfvTXLo O1q26FSVCmxxECtlessjW7Vp2EFeFeJqNBI/BY9HkySlMUe6eLBSc49x87SJ yPvn4Kqd1XxQWq1le/nnREz5GX3TXEUARMyBaZ91FXAWiavU5gnAuW3ybfEK BeRvMi6dvEEAXsxRK7ldCpj+pv2gywEBJIqbuVJnFPD18hObp8UJ4KR8SvW6 6wqYGnu27MMtAazqvWJcVaiAa47eKMsvF4D9qeyuX+8UsH8/u0csFoDyxplW t3oUUPrNm9t3RgQwX11u+cEJLOQ0J4Zd4BFw3MbX5KAmC09FJYSbTyegpz0r ecFcFiYX1lmemE+A35rLC7Y5s1Dh26qv210J0N+7qo7nw8Js85zJ4EtAx5VG E+cIFrp6LZnwcB8BdHVlVFQCC0+2bOKWRxOgY1lfHJXNQh2L6/2t5wmwnGlp bVjMwogNa+qtrxKgLl6So1DLQvU5703cMwm46hlm7/OJhQd3rSlYd4+A4cW/ qbAeFo7cO8lQTwjY+rP1RqgMG6cYi94eLiNA5J0RPcRlY8O8dvukagLmtzow flpsvFU8tuxaPQGl+gpql4zZ+D5jcLWvmICHsMa+3ZaN5QM/CX4HAeGpFyc3 rmPjZVflxGv9BPw+/ciUG8RG6UcyytxRAt7tMCzcGMVGSTZ7lsmRcGD+44nK l9h447/kn9GKJExOkl/QnMPGBxGdxRl8EnbcCVBcXsbGwHodJkNEwnv9xtEb YjbapmbtPatFAg3JFc9/spEx8VjgpUfCsur8XieOIr5tmFOjPouEDwG7jDbO UMTZARURVXNJGKnQSu5epIiPgtPn+1mTcKFbw0GwRRFdB1/J9DmQsHZFRBAe U0RPmcMZfs4k7KxwN/95TRGzTRJ+1awmYZKo+WJdmSJeXeHnZbSRhLtp233i 2hQxp/Pop/3eJGiNWn1QHa+EhhzjOY8DSVBbZzcxkVbCjpWWc1uCSeh5o6ya OkMJZ33qKZI/SILNxnGyMqCEPzoNZtARJBzcr5nNc1VCs9kErXmchC4D6NXy VcLE37Yc4iwJuYP/mS0IVcKdi+TaRhNIiPLYa56SoIQNVVts66+SkJixaNbB W0r43eZoaXa6JB5nR/VF5Uq49Kx6TNAtEr6Hmb3Z1qyEU/1tTKbfJyE1eo/M jWElfC62SP6YT8KhrqJ/cggO6g1OqIp6SkKQlMZZFwMOwp+GfyHBT8EtTWkp Bz/Oyu9/UUVC1ufNo/I+HOwc2XVz5TsSNIel0q8e5WDJBtmpTR9JmC7d8uNb JgdD+ftkvL6S4JPapFFezkENUlJh7STo3nTLTvzGQZ/xvxI9eki4sm6r29OJ ynh3gCvV9EtijxMw67SuMsZMqv2yVIqCAQX5TCN7ZZze7nWkQJaC+HKjyM5t ynhqyavvmiwK2JVTU3bHKuMTl/G8IyoUkDVeGgG5ylh1XfeymKAgIcrnRP47 Zdxq0nPDVI2CTp/ltocHlbFuY/TuiCkUmBYpXY8XqaDsHwCmUVByt0e7wkoF h86aruEZUDBk7XRw5mYVvJdgt9XZlIJ9TO3565EqaAb/2By3oKBjmeVUUZYK er56ZfHEioKQtpVWO+tUEBymr2qzo+AH18jFfFgFibLIHapLKJA5MM/WUMTF buuvsRYrJP7cO/f+GHAxKHukcv1aChzNlLPHenCx3lPK/+BGCtyaN2/3PMpF typB5tUtFFAh24dOp3IxWvs7Kz+AgilXI2OSKriYF/LEr24HBWf2q1OxP7jY +uZM5Y+9FET5xesU81RxKHhp7IRQCgxYLUUuZqpY/aiJy0RSEKbWtmHUVRUz Rred1ztOgebXkPVSe1XRM/b7XoszkniL9hzQuqyK8oFOhfbxFHSL4yPHoSqm LcmRW5lEQb/N2Kc+YlWcdmg0c2MqBUExyrUWo6q4w1HI25JJwcv3xm4MzcMn tHmIfw4FpX20i7UhDztNrGwCH1Cwxz6u74sbD8ckG28NLKDgrZP71fZdPFRR 1I4PfErBjbiEhfbxPNTcTTwNLJfgt/i7u/AuD0nDXseA1xQ020nfPf6Ghz1z 7s/2fksBP+79AKeFhy+s9mptbqCg/rLMSwNZPqYsBpX1TRTciR730FCNj3cf 6Juvb6Vgx7Ha90/N+CiuMZXd2EnBalNdpUJHPqr8mFe5uY+C1z8qutvW87Fy YSflNiTxpw5X54XwMSopwXP5GBrudIS7RZ7lo+2vhXcc5WjYVf7fzUmpfFSX ZictYtEQJv+roiifj3/ay0qFBhY1K6W9mo9dErabT9BApPEViHaJ/ZAjV0BE Q1vUibdeA3zMP2IXM1uThkot67T7HAHmzJtCmOrS0J/bNjVUJMCnku+m+jT8 OjKQzjMS4Fv+eF/TWTTU9Gvb+VkKsOXQ4FlTcxqmxfP8YpcLcPB7G5rOp4Ht ZvvP3k0CVHBt+Ga6kIbOIp+Gmj0CNAsS58xxpOHHgkLV4mjB3/w703BiU/fI 3DMC3D3ceM1iFQ3ZgStlHycLME3wn7/lehrMuUfSxuYK8GFo3QVLDxrsajSq bUsFf+P3peG4BvtHeY0AIw7MT1uyjYZj0cGB3Y2Cv/wRTMO9YMPzNu0CPP7x Q6/Hfom/Ghn2Sb8EqIdzzYLCaVgR3T7grEBg+7/3heHHaJiQOnjOhCEwrUl/ 7JlYGuLkq8p81Im/8+OcBN/RurA5OgS2NBZpllykofu2h6HmLAIXn3ta/PUq DTMWPOv4bENglVSj9Ph0GsZ6TjjmsIhA0wcfk7SzaQidY3LoiyuBddXs/Q53 abAOYW94uo7AW07ecTsf0XA4Z7P4sT+B10IalyUX0vAsX5jmFUTgvTWeWdWl NORO5xq/CiVQ+rLIWr6ShuL38utSYoi/eNZIppepUdhIFIHyX1u693ygoUHv 22f1NAKL2wZl8j7T0PVCzNJOJjDhyqQHw/9J8v/SPXZlFoFZeZIB1kFDim9v u1MBgR/Cv5pF99LgcoBzX6aIQMvbB8bXD9Lg6T11zbxSAke6196ZOYaBUYPt Pf2vCew5teVyjBwD+c9GLkS9JVDt/NWSThYDVoaWbd7NBF69qfZyBZeBBP/M amgn0E2nXKmEZOD+cXFEUAeBUR4SglNnQFbhjbNgHIm1Lu16eVoMbAotinkk RWKQq73P3BkMLGhLmaQ1gUQv/67w54YMOE5esi+HT/7tn9kMFNdcr5pNkeh3 mOr6NY+BkDzFsTc0SbTWDJKOs2Ugp5U9gNoknojQiV3gyEDk1gMlSUYkeqx3 nD3szIBe+/1VTQYknnZ4UJi3moHsFeHnL9uQyHPw0ArdwIBmWaX9HScS7/zW 1XXYwsD6oa1N9stJfBpod0N9KwMRJQtf960gUXcoS35kJwNGF1SfGXiRmOnX l9AbwsDd4xz7Cn8SE6+dzewLZ2DHtQSrkd0ktnbviR+JYsDtUGF+bjCJizt2 ak84zYBv0qf0wEMkat6s0FeLZ6AnuvVjYSSJn/LZCQZXGLgS5aWuH0Oi9gJU X3adAW+HE+Ipl0jcOnauRVQ2A2G3lY2srpB4UTJe3t1jILMjfM2+dBK3PZw2 xbhAguelwvSQPBIXbsiNSX8miZ9ntPhSAYmuknVkcgUDWrt+Pi58TKLev4+N smsk/ljd4g6Vkqgu6vVxaWDArtl2X+5rEu0dV3wZI2bAcCCOqGkgUePaAuXH 7QyIBCymqZ5EbotK8MleBmwu9D1a1EriyzGHTHcPM2AaXRcxdZBEh56YpdvH CcFo96SPun0k3vL9d3OoghBU+a7aM8ZReGVN+OnLXMnbtWvuF1kKd9b65b2i hVBq/el3gDKF9kVdHH1NIbDLaxcHCSlsedLgmjddCEPTPrXbMxT2hWkKnYyF MOFs7lR9DQrFrzQ+/JorhNHMANXEmRRenHEs8qWNEFo81yLfhsJo9wcpNU5C ONQ7EDa4hMKJfwpopRD0FtlExEve/+e7DUJw10+U93Sj8HS/rNt5HyF06Gee 3+pN4aMst2xqhxCK1n7+phtIYYmO2cny/UIozHphs8WfwvUxwoJ7kUKIaKid eSmawv/ro1NCuPlqtKY9jMKsS6caZ10SwvNBWd1TpynUWX28sC9NCNR8Orn7 IoXe3TpSz3KEEP7xwsrftyjMNNSRacgXgsvNpC/4lMLXWZZljmVC0NnjOuNl CYV238YZcmqFcMWaKG0oo/D/+u6LEOIXbtezaqRQuvthyJMOISStu+2p+JHC ti/GJA4JYVew67mL3RS6h3V5NsmLIB+yK2Es/Xcf5ovAd9GltXvG0ZjvsL9/ kqYI6is54r0aNP6hV7GBCN6NUaUPzqBRIu6iX8wXgWkYyy3AhEbJNtyXsEwE le+aNpbZ0cgpeXg/erMIduV83W7tTmPn1+vsB8Ei6LCNPmcURCNteSbO/IQI nL3TbE+E03/1RboIlowKfP6JozGhvtOJWyqCwAOngmse0Ph6tUSBfRNBl3JR 7oVmGpV2G9+YK6cGv133B9VJMSi68popFqqBXeO+/nR9BrUVJ965ZqoGAe5a O0o2MDg8FDVRzl0NUrrrFN/fYnCN08eZqfFqwHufMS1VT4hWl7bsC8tTg0Zr /19LPIT4P3az6PY= "]]}}, { {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}}, { {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[ 1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, -7.600902459542082}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ SubscriptBox["\[Rho]", "0"], 16, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\[Beta]", 16, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->{{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}}, {}}, {{{0, FormBox["0", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}, {6, FormBox["6", TraditionalForm]}, {8, FormBox["8", TraditionalForm]}}, None}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{-0.2, 8.2}, {-7.600902459542082, -0.6931471805599453}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, RotateLabel->False, Ticks->{Automatic, Charting`ScaledTicks[{Log, Exp}]}]], "Output", CellChangeTimes->{ 3.793463886647957*^9, {3.793464003662573*^9, 3.793464013272131*^9}, { 3.8019956706275787`*^9, 3.801995685949774*^9}, {3.8020869242774353`*^9, 3.802086931839355*^9}, {3.802088045447991*^9, 3.8020881442540092`*^9}, { 3.802088215172125*^9, 3.8020882865276203`*^9}, {3.8020883178701353`*^9, 3.802088345595327*^9}, 3.802088376774427*^9, 3.802088568224568*^9, { 3.802088611121944*^9, 3.8020886335692797`*^9}, 3.8020886695878983`*^9, { 3.802107156099215*^9, 3.802107220950468*^9}, 3.8021074720514717`*^9, 3.802114511289742*^9, {3.802115112859208*^9, 3.8021151255889063`*^9}, 3.80211999439322*^9, 3.802120310466969*^9, {3.802120543130497*^9, 3.8021205794894*^9}, 3.802120946841928*^9, {3.802121415333844*^9, 3.802121423777544*^9}, {3.8021218830618753`*^9, 3.8021219225127363`*^9}, 3.8021236775727243`*^9, 3.80212378629697*^9, {3.8021238283177013`*^9, 3.802123843360074*^9}, {3.80212387819786*^9, 3.8021238976263657`*^9}, { 3.802124436596198*^9, 3.802124454173592*^9}, 3.802166592314657*^9, { 3.8021693743024073`*^9, 3.802169448910295*^9}, 3.8021705948196583`*^9, 3.8021709696284227`*^9, {3.8021710300512323`*^9, 3.80217106689748*^9}, 3.802171099437634*^9, {3.8021714947434587`*^9, 3.802171532277275*^9}, 3.802175862524061*^9, {3.802176337883368*^9, 3.8021763749160337`*^9}, 3.8021764911718273`*^9, 3.802176592312737*^9, {3.8021774825132113`*^9, 3.802177523649211*^9}, 3.8021776536990023`*^9, {3.802177690861484*^9, 3.80217772250681*^9}, 3.802353609246464*^9, 3.802353759926162*^9, 3.802554529328253*^9}, CellLabel->"Out[79]=",ExpressionUUID->"703b6729-885f-4b8d-996f-7370b4d419ef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c\[Rho]Plot", "=", RowBox[{"GraphicsColumn", "[", RowBox[{"{", RowBox[{"cPlot", ",", "\[Rho]Plot"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.80217113290844*^9, 3.802171146562332*^9}, { 3.8021757593645*^9, 3.80217576096896*^9}}, CellLabel->"In[80]:=",ExpressionUUID->"84e35e5b-7f3e-4788-809f-e1b50bd74ed2"], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVV3k41O/XlpRQGMxnMGYmQhJFVFKZU1mylaRNWVIolUKpUJas+fKjIqEI SbaEJMmxaxEiu1RSiGyz2MI771/Pda5znfvc932e88eRd7ho6cjPx8dnu4SP 7//f1PJDzh6pHGb0Tw/v3VOC5bv5brzmd51i9h5+VOcysbycnLbN31VplrlR YXdTRuyycjNpiuST3H/MhX8iB7uuCZTTr4bJE+sXmTvOed0/cHNpuZdXaWjT KB+YzUHn+dv85XGPqx3nNPhhcnhee7Z0SbnO0XAtrcilMMUKKiax+MqVAhOZ K34JgJOy/doNTL5yA+myvErF5RBjp6241nQRB7Y/krjtKwif1Y6/zpJZwNK6 yM4tVStgTe/Mfm+JeZT8uTN6XF4YhrIcsryE/+Erj60hRl4icN9Yp0tZeg4j z+/qu/VmJdTGLz+YtGsWB9hCGz5RROF68LPUlzYz6P6rr3fuhBj8uDVX9j1g GoU9kkSnTooBOcZ3tYvvND7mO6E36SQGqzyFrCe9p7GJ2vpw8JIYPOzpMlq8 PI3qlnUnWgPFgGrm8ULYeRoHy7K6crPFQGvvz45+k2m0jbvcdvKfGAjaGtFC SNP4RGnpwE9zcfiq7yMn+WAKo4Yq4+5biMNAjM3PlntT6JUTYGJ6UBx2zO6P iY6aQovN/Ln5R8XBAmjxS0OncFZ/yRX/U+Lwxy7esMKTlz+9yM+4Lg79Yobb Eg9O4b+UObp1mjiUSxxWiRCewgGnN02rnorD3h1ZBzqXTWGzqndAxTNevyMp YvJLpvBp/uwvlefi8NnlnVTqFBctK2eyp16LQ+S37taL/Vx8+mNKN6ZRHBw/ 9w6vfsvLr2Yfbprl8bHJ5oa5cHHVspsth+bF4V5pd2e4IxffDQladC+Kg8wC KzzUnot6BVTj3wIk2Nj+a6v7YS6uN9yz/Z8oCX6qfcldtpuLAufvMFTWkMAk JJpfSZqLRa80Bn1NSdBQEiXQjxx0Syw5vWwfCTxPd8SrlHBQzV//x20LEuwM WWrpVMjBFJOjXTGHSLD5su9AfQYH//fVtz7LjgT8Dd8lDaI5eGZpY167Bwl+ FBF/v9hzUGb/hesbE0nwd32CgNQsG9l5HWLDj0hwtkC+9vMkGxsk9NPTH5NA pPGgf9AwGwPaZFtoT3l8X/FnNfSw8Y/NO7WV+ST4rWsCv8vY+Ob8mu+DdSRY rRZgK+vPRpvbnYYpLBJI4q71S+ZZqDOi/9WGS4JnlNjXx9gslNiX5yEzQ4J7 9pu/PRlmYS0pJDlqgQTegptzpLtYuOGB9uxNIQkgzj+McCpi4eLT/+UcZ0hA rfQjydjzLHxcYyBFNpWAzV0rpwcaJtGpVP1XlbkEhGUmi76rnkTVAnKRu4UE mNgIBcaXTGJh8q8jTYckYOYR4xCRPom13kEJ4fYS4PZ939ozPpM4olmjwO8p AU2t0dYuypOo80hfcyxZAuw/FS5/dnEC5++p8T9KlYCS1+v5Kk5NYGW4VItZ ugTwvY42/nBkAk2v91/OzJKArMyM8jzmBNpaBRY7FknALcnGJZ9EJzBQuJrZ 81ECaJ0N53ZljmOj555977kS8Pi689ZV2WN4OpIzZDzD03szLObUnTGcffI0 6MOcBGxjJZCTr42hYqvI2498ktB0NSbio/4YXtP6sr5BWBIG53ynRrpHUX78 tFALXRK6cpap2S8bRY+zwdU9hpLQwnoT5mAwgpQT73XHYyXBRJhfVjNgEFeH 5SY91JeCqpa+msQ93zBNb+VqZSNefMq7MoHvG65jn03ONZYCxbNmTzLe9uIm O6XHuE8KYjLXPBnb2ov6mxNTfhyVAq3jpeEm6l/xzI+wJ0oXpCCj4s29IWo3 vtjmmJUTIwUhb9q9t4m245axyvVb4qTAUXbEJLihDUvSVmeXxUvBqZEj4bOR bVgt1pPdmCQF5jGWeifE27Dtl2XuxDMpKLnbMkAht+JsNLzYXCYFqsKpGXJr W3D3H+qrt7+l4Eqo/jvXvw34Qpvrtm1ICgyNys/uuNmAq32b1F4OS0Hou3Tn RLEGXJAMSskel4KFNhEfsvYnfLNzNCJhVgoE56o6Zm59RO3o8tPXRcmwhp9y hMt8h6nd8QyOOBlCJ6s+rumqQwnlK12XJMnQeeTyhuHLdThess7ijDQZ3L4+ u22cXYs5/Xe2H1Egg6Im6Dor1KCyjqPE5i1keKEdq/ZZvRJjApif8nTIILjG 4Pb+5goU+CQTqradDE/lL/gHXK3AvpMN82uADKsTOO6rqssxKXzrkIQJGX7R tS82fSxD6W9C5eM2ZOAfKnb2SniNIev6vc7bk6HnV6Pe8X/FyPUo2zzoQIZT exZV622LsXWFR9Y3Zx6+VuiMo8orvLOpJ7bBjQzqoSJNzxsKUSQ490J2EBk+ l2vmkFzyMN7cZbdtKBnEfuoJdRU8RxWyMkU8nAwnxzruvLifi/ppD8s9osjw apl1xNC5bPSp/E9yewIZiGMCb28bZaDw7b2DIw/J8G3WRt3S+CnGHRB4+yiZ DG8r1cSu70/Hl9+9nfjTyTC17/eunjNpOLrg8vp9HhmcLZq0yxuT0adWOdK7 gAx7ZS5evTeYhMKRfQ7qRWQQT9O6ZKz7CJVp1iuj35Ah78VfzfCpeLTbbmx3 tJYM1jGwU73zHo7yL9MWfs+rL+hfKeJ8F30+lK8o/UiG4y8uCoXMR2PcMZ18 xmeeP5VTo+zQSGy6unbZQDcZvnfxe/p6BqIt82dnXC8ZKtaHpv+jBeDI8qRc kx9kOGTh2Ruc64srYomjub/J4FnSbz214ImxNs1q9kNkCFO00FT96o6KSpFL JEbIYLf1y/rVeAF3FS7LujJBhs3Hv2Y6G9pgk3eF71o273/sO8efKrIPbffc sOrkkuGxX/V8nhcZvZrZ8zv+8fi1982XmB1lrojPax5dIMON4MZHlvIOzNiT 558mLyFAzUkwoKTZmZk//tNCQJCAzMhy4R1qbkwoTlIqEiKAUaXWbhzrwWzw PT7rvJKADz3M4cPdV5gnjCiNMmIE0NxS91nOXWUOi7akfiQR4CWDIqrc60yv tshrN6QI8Ngjs+HjR2/mikcm5hspBDxL8amV97nBjHVcrvBDhoC2JDigIujL VFSv5N6RI8B01aKe/xY/Zj77xkd9BgFlNzmSf9v8mFC6LZkrT0AeqURm5LQ/ s+EW53KGIgHECdbeO9/9mSdMXxhbryUgX85PgWUcwPwjcYG+UpWA+T+bXsg/ DmBe61JhvVUj4HK7f7jG7wDm8pT+uosbCThoq9qqKXOLGXM2OVF+EwHx/e9h q+4tJvuA8o4n2gTA+gNCvXtvMS11s7tVthLwtmbfuxmjW8wXCpu8s7cRYDMi 33V/6y2muEixrMYOAmw3NRrXUG4xXVk7Swr0eHwVA6ojBnnL2l11bOsuAg5v KdrLfhbAVKs2ninZw9P3qsJ/6ngA83Z2Y5yeIQHrvtLLYhb8mYP3DulU7uXh KT7g1Ef7M41udLcbmBJQV6n8Pp7sz0x3PHn1vTkBh8LfBPwL82MK7BsgzC14 /r9XVe396st02HKhqMmSN68DAlt7Q28yK+isQ1aHCNCa2lkwIXWDeXNs4d5x awK0+1zTNZuuM3vaA7W/nSDg88+c16aLV5nby4W/ONjx+Lr5eFiJeTKnowhJ l9MERHwgfJc1uzEPX0/M/+vE838x+uN+oYvMlycVLN3OEjC3/KFjloYL033T huhrrgRMzrKo1yLtmE2yhRr/LvH8dp2gebhaMTcu1W3y9SCg0tzR0DtrF3Ok xUAs5BoBFZI/po4H7UenKzYRMQEEbDuziT/ukRtW2/xUkwkigN67MSzH8gqu MTxbnxhCwETWMfuLa67jd+KKSNp/BJi7CTbTI/zQuvi/sPxYAoro56om1cKw OFli3ZYHBITu9ydWXwtHSljcu9cJvPmpkfrOfY7AL8fSBCuSCTARFXHVORKN ++feBDVmEqDQMhtgGxaLuT93KR3MIYAsrX+9cOA+rqyvq257ztuXWIrcRvMH +CGxZWlvIQEL4dp5SeqJqK837D9SRsCbvrlwM4XHqOMve1OohYDY4OVa9N6n WPTbf2tVK08f19v1cXsGapkNjft0EJAmKHWt4ssz3EApPjX+lYDlVkcOPejM QsWcQ8btgwTc2ltI4S7LQ1JnlNSTBQIS383dkg8pxEi96U+2SyhQPX//7Ff6 S1yZZhciLUABvwmVYKvil7ji4obZcCEKKP26NBAwXoQLAvXf3KUo8J/ZRcLY 8zX+0RDMAlUKvDGQ2sbfXoZnYl1Pz6pRYFHHVeDibcRfc620wo0UyFJNnMli lOP32rSotZspYP5vG39xWzm2ndjtKQoUAH31gCKzSqwKvbGr5xAFYkKcdD4c rMHE76z2q/4U4Ish8rI+fsQ/TkonlgZSwDeQw1ejUY86fw9/jwymAMZxkq1i 6/HLzOvBJ+EUcNCyq693+IQrJf1mWmIokNn5/H4HXyP6GKykamRS4K/4fKvP 2s94PFPRdrCZAs9C81WNo7+g7OVD/UcVpaH6reoZbl436u3u+d+KamnwCl+9 itPVj7Fd5868rZWGQBXhHR7T/fjXfQ7c30uDeTW55gf5Fyamyk52N0hDW7ZU e4TFL5wVOGb1vFMaCtSbd0vW/MJXda3Sh8ekgfhhf8Q+8zdqmDc+TpWVAcev 0yaNpwdxzdHKAj03GViBxqETccNoQpI7UuMhA2n9xvN3nw+j+4crs6aeMvCF HcJcUzuMlTvW7TrmLQODsnU/BFnD6CAf1eARJAPDQ7rpA6YjmPLHZijjgQz0 7e47Pjkzggo3ZuiSlTLgI5p76pPhKJpsOVj5oFoGpFYKiA5bj6L7WLbj6joZ KHp2o4blOoqVJ+2z1etlILhliW5t7Cg6GNZt29smA9G1Yiddf41iiliM1Y0/ MpBvf+dA7c0xVEjRuD0gIQuCtIz7VRbjeLbjnFEaWRa+1m5h6FqPY57oU4GT 0rIgYUDSTzs1jnreNN8umix4fU7xPOg5jtZWwpc/qcjC0vZvgvSEcbyzvN+m QE8WdGfjN5ztG0f+c/c1fV1kgVx4yU7yzAQaP24e3X5BFq6Q04dFLk1gVPuq 7OmLsuAX6bxj5uoE0vUDld2vyMK5lx+c8kMmUJfmRnX0k4UVwf+LSk6fQPdG k2WmsbLQaB6YcrVvAvu0FjqISlmIqTe+wbScRKnFl0211bLQer8jouboJBp8 uPDOs47Hd0atf5fdJGbYf33VVi8L2klnQmjnJ/FiRGlsbLssDOxOKj4ZNIn/ fntZEX9lwSGlf0q5aBLJ8VONZGkqiA5oGc2Is9DQ8XldjSwVRvlWLrUlWHhN wxmv0KiwZpfk3RIqC3tq23JbFaggIsR38bgyC1NYLyNi1Kng3HWzZ+d23n1i ftmUvIcKDh3gcO8UC/fyTdRKuVLhStyk40guC01G3MNiL1GhTn2qQraAhWYd bFNpDyo4yWvp73nFQou86SbqNSpUzlY1BiALj9rzdSsEUKFm5npsaSMLz5SL jWnEUsE1QaGYMcbCUL8NFPMyKghIahU1rGPj7fN5nQ3lVJDgKsmaq7Pxv6Ob Ei2qqGDNCnep1WBjlMYWeat3VDD+QB19tpWNcd93rj/eTAU+X9aBzQZszABz 5tnfVGjaaHfgtB0b6/jOOweJysF5Nyw9EcXGwbONe3aS5CAlQm8h+C4bhVs2 reZIysG6zLSA7Fg2mj2Z6TgtIweTQ6KBQ4lsbDIOMdFXlIMnrgffqj1jY8ed FPWlunLAf/2lbl85D0+xk+XnKAd3hK7TtP+yUShyR5POGTkoGmyyax9jo+pU Uva4ixwMjn+q9OTdn+ffOznaX5KDI3fPLTybYuP4BXYb01sOrjUZdvQt4eB0 kVjJQpQcJLb2x6aQObjC2NDPp1QOzj5z3uKny8HZZo+1y1EOpm/nJv63g4PD Jx43/K9CDn6sL9seq8fBhkv/5FJr5eC3rZDO490cvBuX//p9kxwktPu9jDXh IH2QziJ+yQFrnrFdwJqDm0OmHF+sosHx5gkf0ascVCYprdouToPncfPi9dc4 KJ1gWVgtwcv3ZYeGePH65+bwd1BowGc6sW36BgfL204lLcjTYJqy07AikINm yk0dpltosAft/3B597lDTYbpb1sabHZ8tMCfxUG9fkv1Uydp0Potm3Qjm4Oy S+dFv5+igcr3ndc4ORxshgPNnWdocM570eBHHgd3l84c/eROA6YpVexJEQcV CkycCoNpsD5a5VVvBQf7kkf8AnJpoB82WanUzsEyjHVYzKNB2399dhc6OBjf C/o+BTw99j8DCzo5aCkXI+hZTAP3ofWu23s4WHl/Z+TZSho013we2/aDgymR kQkWbTSYZzsbsP7w+PtoFNEXaHBB54vJ6XkO2kiXvvjMRwdqZ3hU3AIHjxYa 5QQupcPTL3UOHxc5uG/ENu3PCjqUSAu8UuPnou6JiDtFknTQ8Ypz6l3ORYkd f1z3raPDMc3zqnziXKyaS11704oO3ZSg7P3yXCy7v3GN5hFeverUNWsFLpZo vaH3H6ODzXio3Ok1XMw710w2saODpWb6qIcSFxO7+QQIFzoYTuz7HbSOi5ff 2HzP8aXDwxek05c1uajoTXnwNZMORUkrfgcBF8e3XrBzyKGDUYFXn+0uLr5h VyoNPKdD2dWHy7bu5qKlq2v+eCEdlFVW1fTv4aLfyZqPS5EOj65eNttixMVu I4+FdS10kPaPSMo35+IdqcZTnnN06BN6Gi9jzcXFnOANYmYM2DDqRoxe4uIf TJ7o3ccAcrDhzeduXPzyuaQw9wAD0s31DS+5czGDM6q77wgD3GKpi2MevP47 jxhFODAgR115/6AnF9Pq19qLXOfhVbniWx8u7h1+Fy2YzoCO2EmthRAubprv s2rPYMBPKe+7OaFclBObpzzNYkD2E9KZE2FcnNik+cjwBQPMWAZuxbe5GO/1 IDOolAFvyb+FXCK4OCLkUrW0hQE3vT4FFdzhYhs1MLillQEuKYUW1ne5WK7+ yDi1gwGpDOY9vntcjDnQ3Li7lwHJPurBpjFc1Hug2+M/xICiWyJy3fe5qJJl lXRghAFqxNP8G3FclHzr6iA/xgC/rfVVjAdcHPyeMljOZoB+YdZhh3guNk+W ZkVNMeDUqp8d/AlcLBVod7WfZUDm+MO2FF6cTkxoaswzIP8u1WJ3IhejVUQ4 i4sMULiSYPCDF/8fLPi+Og== "]]}, Annotation[#, "Charting`Private`Tag$451837#1"]& ], TagBox[ {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3k4lN8bxm1Jy7fFzHhfs5bQIpIK2d6HRIoWCaFSUokQ0kKkKC1ERUQh KZVESbacibJU9ixFlpmJSAyzWBK/+f11rs91znPu+3qe88e5lx7ysXWXkZKS OiotJfX/lWca0GXmJSJiuf5BZmOz2WZS5wtlvMcI+2v5F1Y2yLMpjzaGeatN EhTjtrK7p2axrXGMlJE9RWyKZW7wcpBjM09fXaqkMUPwousHbF1k2efOlUTW D0nBGfFF34GjMuyEtA/uf7VlIP/dy5y2RGm2vuP1deuiZeGB5/mzc+uk2Grh yYTCTzmISGz6SKVKsTfjpTllqvJgxS6Zqz0zjfoMHyheC50NLzQYDQs//0Ml ldHfdMsVgNp2nJXzfgqRuMax/KVz4Ug3u/FowV/01l/viuW5eVAZSn90qXIS RXuZci4Vzwdz9/x+N/EE6hPO0arBFsDZ/Q7bTZdNIL+fnM6/LgvBbk162WPP cZShJtvHtVkE+06eNvhaNoZslwjt6ycXQYAabXy50hhS3nHi7JrkxTAks3eR YYgYpX3cTKZsUwRSp8Hium4RqgvctL1arAjnOrRfr7UUocPRon6rCUXwq5+j O2AuQpMZTyI+/VWEiOuFxg/NREi1ed67z1IkeDf9ommRiQidWfdVo3YuCdR6 753rWy9CS/mH5zQxSRBj5DJ9UkWE/D0uf+iwIMF1WWevvCkhUgjTd91nRQK3 i+E+1pNC9CBh4O+PbSTgPVxTxRkToqrK7eu6dpIgMCR211yBENHVsYc9TiSo wmKebuoXoo+cJ6G93iQoDepOtm8WIsyl2oAfT4JlgcGBb58L0Re+C/9xIglM 3pw49iVTiC5E8DP2JZOAaBj8/SNDiH5lY4s/p5Eg9XvcKXGKEBVIH+nLyCLB R71i3anbQuT0ROaOcxkJ9mx5nLQjSIiSRw3/VPwhQe+RqK1sCyHaeaXu4Xk+ CZhv72M7NgmRHN3Ncb2ABE3s8KA2Qoi8Nl8rTxsnAeek5tbv+kJknNCWGCxL hgKWedudVULUaXzKQkeZDG7m3LyS+UK05Gp2yn1zMgT8XhUT90mAHpnMX6Ju SYbVlwvaPSoEaKXQIzXbigxPzs8KWl8mQDoH1NLQdjKseCK9MqtQgMw3JD/s cSSDuNTxzNJMATrWczVD7QQZCOfPS+QvCdBgfJ9atg8ZdsxEJ68JEaCT1psf 6/qRodX15E6bswJ07q3UE8vTZGiatug+7CNAN6JOZ3qEkWHr/QWrpJ0FKHej +/MXcWQI3TPm27RGgHSHyzR0E8jw5i6lfe0qASp6tCSr9B4ZKrgH4y+qCtCH hR1ZdSlk0DVwuTmJC1DLT9vskadkiJuuCTOVFqDJWMjdUEoGg/SN+ovqRlGI 5YO1pWwyWDlXWFyqGkWy//7mWpSToe7OYZWf70fR/GNvXzlUkeF7dp+rf94o Yppo5Z1tJEPUyJ25LxJGkdkA7e27XjIsqn5zSXvfKMpdLz65sZ8MP/aZl4Tt GUVLQutXv/kt6TdzLLXYZhRNkyIeZvHJcH/tqZ99xqOo2HgoKmlSMp+YTS0Y YxStj2UfPruAAivtHcbCW0ZQevs9lmgRBXbGfNfZUDOCFNVPffclUWDjwtag qvIRxC9aufMYToGuU52T8Tkj6AXvlqGDCgVGGcj5c+QIUtd3V9ygSwEpp+zu 3etGUNxFoiZHnwKUR+/GFVeMILka5cjVhhRoe2PyPYc+gjgHa/8tAwpE337C jJw1glKu6/UrbqWASaLD/JRmPsK75rD5+ygQ99wLzHz46MpK3jkvVwr81rhC bjrIR2L/0g2/DlHA+WL7K2M7PmpW8H/edZQCV+IH5R/o89EtnY742pMUuDFi +nRsehjNu5x9IiuCAgqDIcuD5g6jezbHzfZHUmBtgWdwUt8QWkFRxxZdp4C3 /JGZHR+GkPmj+2z/GAq0qF2Q9wseQsFlN0iGSRT488kx/VLfHzQ0fbywOocC sncDZ1lnDqLgCvXooNcUuP3eWOAUMojmRnMOaeZTQLo4JFe4exCpM5zmxxZT QFPsV1j57zc6YGh1wLGCAmFqt4b7tv1G9aeXz+prp0CM51JxbUM/2k9wvyV0 UiC8senN8dR+NCifkr21R9Kv5+fNbnj3I4V4JcfsXgrcTyPTXOf0I9O8Wc9P jVCg5pWKtNXGX+gVn7tTbrYSCD9GjGy82IviPFKTl+ooAVfVL82pmIOEu9SN MtYrgULBsTUBoRxka5DVvkJPCdLWKk5obuKgRfMKqNpGSqBdeVkhoroHXcuq SzCxUAJflWiploZuFDI8fcfZSQlYt+ydctN/oCOn9kXFXVSClIG952e0m5F+ GDVkTpMSSC8eTlEtfYrye8P0ypuVYPqw9J19Xx6hddb9/OA2JVB/zHOmvU1B WliBG/+HEpw6UqGePnYFqb7YY9X6SwnMGoPbwCaJWPwthpwxrQT5oZNfRgyL iGiT8Zr90hgEXV1nmZRWQsx/dOAKLoeBU91oSYkcIhR8tCavz8Hg/aoMjQU9 74lpuS9dfmTJ+T0nShKvVhAD2rOfwyoMxre6q3TdrSOOxXsfnlyNQc/HoMBL e+uJn3+bGXlrMFBecnaRQm890V3xKGb5BgxM80Ij7/9tIFpczAIXAAYTWO1k NvUrUR553rRjDwYXK7S4OSptBAzxJuMcMTDknJ2aSmojSndb5+1wxmBDhuz5 YdI3oohJW17uioFR1L3bXVLfiZy8gvnPPDFYVqpfE17XTiR3C1pPh2HwYO9g wAytixg4ouYiG47BJw0FwZozXYT+H/vu6MsYuC0vPMxv7CK+ThT+yriOQWdl VWyraTcxn3RhoikOgyit9okTv7oJp8Tc8wcSJPsHnt0ZX9hDZLK40r/vYZCQ JxX6UreHMF9tMVcmFQOOiffTgrAeInjzfJr2MwyGjFz4DxZwiE+fjVOKszAI JG/p+LCGQ+C2PsssX2IQfvtJsWAHh8jb36ixPw+DmbDeLIMoDiHzUzanPx+D Dw1fDx95xiF2em5Yf6pQUs/1Lc6p4BCDpxOMbpRi0BaFMfunOITBdDUbe4+B VGL4da4Sl4gM/2ueXo6Br6nHpoXaXEI1dr9NURUG5z1cd1cf4BJ+WEzD5s8Y xNgmxJgFcgn2/fd7GmowqM4vf/bpOpdwfqa6/1cjBm9/mD6dncclMrXtOf7N GFxJs9ItqeAS4vwrR2ZaMfBWLZ4KauMS5saFA9e+S+Z9bUOaaT+XuFU+4K30 QzLP4d2vZ09wiW4ruiCtS9JPx8H8qtk8Qqve5rQmB4OTVTf9LlF4xKeOnFDz Pgy+OaZYL9TiEbgbR7a+HwO7JAW3MX0ecaSfFOk8iEGJrI6G3CYekeezeX7f EAYkXtFRHWseISMOjPEbwYA/xbsQaMcjdgZnkqcFGNDqdF59cOYRD2S+J1wV Y6CXvm7N4kM8YjByHoMyIdEPl7e2P8ojDBYap6X+xaD0Y7BisiePiIzzVls9 jcFHkmDHoDePaKGlPn0rhcONZZuKd57kEaoPGzQ3yeKwbOEPmUY/HuG3QvZV 7Swc1q4oW+HrzyPY2et1nRRwkBvsjFKX8IINR4p+zsVBN3+RP19S71J81+Tk fziEn6+Vq/bhEc9Mq8umFuKwaVlFTJYXjxivnLSIVMRBp2RDYeIxHmGxffVn EgWHp4UOtjfdeMSdr/t2pGA4TNWvUr6xj0dwnG42raLiYBu7jRttzyO0e9gO +XQcpA+yR+9u5xEhR0fbTVk49HfIrcnczCO+/FnmWrMUBxmGiRfbkEdQA/bw HFVxGKoN8O3R5hG2N2XTW9Vx0P7CctqmxiOuP8s9aL8SB69Bg8lanEdMdf/X tVsLh9SywPX6/7jE+qni+43aOOTssDu4fIhLnMCOu+xah8OqN+UvDDu5RKdN xbft+jjEh/hPvi7mEkoeAQk1Bjjw8lXezH7KJXaEqzhYG+Ow+rDPDvc4yXss CvlqZYZDraMN+7Qnl0hfrldnbo3DtmUxT28v4BIdZj+jyrfjMK4TIgwScQjy /tvWZrtweBDae+l6O4e4fGe4mrDHwe3xnNOiRxzimHTmBwNXHIrkRHNpmhwi lW5/qfAQDtE9ZCP5/zjENz05M313HLrjMqw0B3uIrd6uaMNxHOoPqb93y+wh VrfjRdoBOMifrTQzVO4hDosrzrwMxMEpSpFUJ+gm7i8+pad1Fodzsz0Kcmu6 iQVbGvI0QnA4k3JcSzu0m+DnXX2pHonDbNmnv/972UW8iZ58RE/GwYOiTWr+ 0kEMPc10S3qAw+PZD/tjPTsI9Y/2KtQ0HEwafZNGFTqIhL+vUrDHOPj013/p JtqJc8c87ynmSPy0Og4sT/tGmJh13FT4gMO72/evH13dQsR/9zz2rgKHxQJk 4pndTPzx+wt+1TgMGnMDHq9pJpLTqaPttRK/vGFWgfZXYlJur93Lbzj8YpG6 ZTUaibeVzbj9MA4hyY5FqR2fCW2burR0qjKsLCm967s4j1jmWPba5KQy4PfZ vQe9PqOti+kOH/2VQep0/TrrsC/I79OpyW2BynDVOWZqOK4GlRmtNN0bpAyF voH9fqV16NDSmFr/CGWoJ0zkjeQb0cOBff2ZicowYjj94s+WFqRyfoJJKlOG /delw7x9OtFW3d1liR+UoS1C5mTPYCfyG85yX1KpDJ8slcc+eHShsoOuWZpf lKFWxyBkVLsbHbKo3LilRRlam8KTetR60MOFcXbnB5Sh4KZxTYcMF6k81L7W p0iFPqz3fUBoL/Jo87R8RKHCqycfcsIKelHOgidyB3EJ+2e+UxrpRSZBjNDv DCqoZM/raXXtQ052cwNqVlBhyvecb47BL3RLnrfvtQkV6sbi7pS29qNvRiya rykVUvVF8y3mDKAl/k5tq82pMPRjOMLBYABld9XbPraigo3fJoKWNIA+Fbyz TLSjgt2e8JXGDr+RjOfdtaHHqYC54jqcokFkldY4ZHiCCmNb+I0Xfw6imNb/ ssZ9qPA1M6OfvfAPYpqHq/udokJLEz2M7vYHGTBO0twvUOHSxW+DzrOGkF/d 1lnb4qlgciXX/4feMCqcdblsdiIVlH1T6eddhpGU0fvQD0lU2B4+3lFyYRhF Z+pNGqdR4aePuimjahg9C1Md1s6igo5dRd26lXzEWTfdplQmuV/q0rP8Z3xE nnlTX/GBCsyT0s4NhXy0+dOJqsBKKrzTE75nV/FRpuuPty1fqLDWOniU2ctH PlEl8fGtVKhccOEEhzmCpnrP2Sn9oUKeTm1qp+Q/rPVKx7pimAoRZl/5J+NG 0IHzA5sCR6mw1CPhSXfaCCojOa1rGaNCg37rKduiERQJGxXjZWigv4R8627/ CKLcG6uj4DQoW1y0RstsFFm4v6z8SKUBgz81XmQ9is5oH0WnGDTovFfus8ph FHVUtGQ3q9Dg0r8nb3I9R9FDwZuoOE0adPmW4YdvjyItm4BtlE008PcMxXx/ jCJXfPWmj5tpEHP3Vd663lEUy+UanNpCg+2i/Ib2oVEkPLt7VbMNDTY239f4 PiPJD4915sQ50sCpcbX8nSUCtEVqpILsTQMHv5pQtX0CtHXQ72q8Lw0EgUfu fnETIOs24TbcnwYftqw7vP+4AO3MGa+nnaGBZ/pEu9lpAXJ0lWpXuUiDdVvd MskxkjzHXjisHU+D4NMzgXNKBeh4VmzuqwSJ3jtfjn+5AHklkALWJ9Ggeypv 75cqAfL1xSb0UmkQIa503tIkQGeWsGSJZzSgfC5z9+8ToMgLWphNKQ00xzTC ayT585pXzrdaNg3MFTX1dBcL0Q1HneSd5TQYqGiUjaUIUYy27lK7Khp4FRyS ZTKFKKHbWMO5kQZtvSKv+1pClAk2hEcvDe43O5n62QhRpZTX0YgFdLCTmTgX GS7J2x51m4wX06HyJlNXPlKI5jbpLBGR6MA6K3obfF2IrDMm2g4r0+HjVbaW 3S0hqre6stVclQ7nVfZWvpDk87ZbDzVlDehQmBbep1goRBN/Z80tNqLD8vRL nCUlQkR19+j1I+hAfrhCYwUSIhc97RSOOR0KinZ9UvkoRN3t7xaV7aCDnM8N y+p6iR/Vb4IL7nTAzvW85/YK0Zxoo3r9Y3RQi1urfL1fiFaNpWTxj9OBrs91 Xj0oyfPVR9xdfSX+LD/VuIwIEf+EsIUIosOL8YqYwL9CNJ6/sGg6hg63evkm dxeIkIKVxYXgEjqUVW6M79QWoclG/+XyiA62xaTmtzoi9NslrfbmezqYfrVa ELVehGp9p+jpFXSAVl6ihr4I3U54VVhdT4eGtt2EASFCzF9MgdJPOihEPtd7 Yi1CG66Muef+x4AITvXof+4ipL5Y7T/DRQw4ukaxMuiICOFJtnkfFBlgZE78 6z0q0c9+IdOGMYCBLUFvjosQu8UtZXopA7J0VAc2+IqQtXp92zZdBpByfK58 PidChz5mbuvdz4C7Lgdtk6NFyIRnq+l2kAEOVknSFTdFiCr7b0G3GwPqVfCN QzEi1Ai7Gr8dY0BFK9nS4LYImZVMONb4McB97uJ57++KkMrrrUfyLjOA7mSb cC1VhDipgxcuZjMgPneelXKuCJWi+EMzOQyYu8VbFXslQvc6wTz4NQO+LVn0 jvRahGzpcbMDCxhADWBoznkjQmV3jaM9yhiQv2OOwc8CEXoYHZ20s4UB4s+3 E93YEv/B2vnMaQb8qVLafblWhPbhJbkNUkwIZnSxT9aJkGOe5YtwWSbEFL4d d64Xoe2D+x8NKDBBtjGmfnWjCBm4RN3KJzHhz07SUXazCCkaDXhvX8kEr8a9 R3M7RKj8b/ryEDsm6D6u/P6lX4RUg7DEH8+YIC8r8/OCtBjx9U4cOPSCCRlD qoXLZcSoWFim1veSCXKsP0q1Erb19n7Fz2PC2wtyZ5XlxOjCwY+fZRETXK4W UZ/Li1G7pf/0yiYmzLrjkV88T4xukevcAv8ywX7XPZt4ihjNvListdCaBZ6O 6/U3rhCjAZQ60rmdBUcT3xt8k/DXhqK87F0sOOBXVX9mpRhlioYMtjuw4ARZ uyB/lUTf2MEy6hALBo+OnNPUFKNHX5a7zjvLAqMXbrNm64jRlt9VsbMfs6Ah KJLnaShGOv84dq2ZLGgL4NdMS5i+8B/25DkLbuTk28YaidGIztoHFrksyD/s ueaNsRjdO5f4LKKEBTPjPUbjhBgNzjleLtvEgslSPZ6nuRi10MIvNzWzoHp9 cvq4hNmaD6zS21hgV54rE7FZjOJ2NdaZdbIgMum/tGQLMTJJNOgI62dBs+Hh I5VbxGjFc7uUXYMsyC7R0NhlJUakd96Hlg6zwDn7Z+x3Cf/qfviLLWRBlKW9 xeBWMWocLXkeM8aCXUTqnYBtYlQi1+rtOskCxy2yl6ck/FhpZK32PxboPK2m hluLUeyKeaKZGRaU9BnvnmcjRv8DCRgJag== "]]}, Annotation[#, "Charting`Private`Tag$451837#2"]& ], TagBox[ {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3k4Fm8Xx8lWSrI+6zxP1gpJqxLNSSK7kCQViSRbtkqFhKTS8gvJElFJ QiVK6baVSLJHCin79myjsuSd96+5Ptfc15zzPdvcR+mwn637AiEhoSZhIaH/ P/dM8TRqzQn8xs/AM4a/JcoNhc69WuD7Gz9kTfv7uEy8XCF7y3lftWncX2Tw vaarWLkFlSJ3P38W5+tOynkaipazTl5SUtScx2/tPG5PNxEpDw19E9s4IQQW DSs899suKL+dWe0+o7MApqe4Cswo4fLNjpfXr48Xgd+q2Jslr4TK1aJS8YX9 ohCeJ/qsTESofCf1bWGlqjioq8abxzf9Q4Nb02XjwiUgobl9QXLqHHpTE9+5 qWoh7NQflu25OYvkfhrc4ChJwpeEipd9sTOoJFD3oknoYtB/s3xdTdI0ivfe 3nfh9RJ4afhiiXzNXzQoWKT9ibIU5oTnbPsFf1BAf1/3jLM0lMy8bvbe9gfd VxMZ/Gm5DPp3r3m+Oek3sl0ucGicXgY7ZZ2MUsanEM3a5/SaVBl4d0ZFxnzf FMp8t1NewVwW4n9p/C2vJNDnkB1WtVOywBhS2dKzmUAU51o9TqIcsKqSve+U C9DyS/l304zkoaHr2fZEYwEyHGGUlA3IQ92F5dTeLj5aHJPvkxetAF6Fby6b nuajhGMZqUrrFMH5e1nrhBwfbT5PD1vUoghLC1pOKr7ioeKB87pVbYpQ1xu3 Ir6Eh9ZbDHPOdiiCev2Xi2LFPKRNeenG+a4I/8VuNeQ/4yHVJ3tMvwwpAn7O cqo2j4dkOq/L3/+nCEEBhoxDGTw0oiPxGDQoUO+x3vBfDA95JvoemdaiQEqn qatLNA/1z7RhRWso4H4u1r/iAg/1vs++vmIjBSJvu5pERPBQu7NhyFKgwNPg l6s5p3moKvbc9m97KGC6pjrxP28eSu3lfzl5ngL0+C9P39qQ9jzUnEWiKMDV tXooY81Dm8cdeuNjKPC5WnuhmyUPtf59NXT/MgVe/nj8R8iMh5bIRfxtSaDA yVmNJat28NDZnUsYOrkUUAmLVGFv5KG6jwZ3X+dRIFtCpX/3eh6i2vqpmBRQ QMjvzmzEWh4qOtisebCIAk76Idzm1Tw0dvK2/pW3FLArU7QzUOeh/bmqB4ea KcC5Zqw4qMBDOToOfYFtFHiscta8VI6Hpoovesx/oQC1t2EsSoaHblaN+Cp+ p8BBh/yt80tI+98Kw40GKbCuPvJiuAhp361PpHGYAgd0Nt0RE+Yhj2G52P1j FJDJrnsc8Y+LFkyFXA/gUqDc93KS/V8u0pM2yMyYocD8lQTt4xNcFJvgq6b1 jwKZWaGt10e5qJ2R8ahEiArXi1sUHg1xUcBKkWcNYlQQzpc0KOzjotzttZWz 0lRYeiJYRaadi+hBe345qlJBsnD33iOlXGR7TSTrizoVDB7XF7UVc9Hl3Keu DqvI87JSx+A5F832SvXYaVNhoGmwTzSPi7ot33dabaZC6UiO26E0LlI8FnT7 kx4VqCr6FYXJXGQdpbzXwoAKMfLmMcKJXFReGtZqakgFXuCzwdR4LspaofvZ yIIKUykpKcbhXPTNsP9qlRUVMv1ETfXOcJH8wf8sDHdTgc6EY9InuSjm1mQt 7kCFsV1HGyx8uehtQVrsW0cq4B2UC3nHuOh3nbmJwX4q6KoQcd+OcJGncE61 ngsVTO+HP0x14qIMpsOFV4fJ7+l3n1Xdw0WduqKGm92p0KJ8AfytucjM1wVt 9KLCurmABPcdXKTVRS3VCaKCr80Va9NVXHRk6v2pghAq7G86KHRCmYvSZIJ1 tU9T4ZP6wz3nGVy0dFdTkWYYFa7FZi/yleIiTtGlAvVYKiy26VtZyOGglY26 vvfjqOBxNu6E9TAHuY72a6leJfV6lSxs/sFBzUqGuUo3qbDlVpCjXzMHvYif zmamUiHJgh5+/SkHTTzKcUtJp8Kb7i97WnM4SP2dgzI9kwreUTvEftzloNsz z+5SHlDB/3IYxf4qB4V6Hr8jW0j6E6XamOLOQc8u0PbdeEaFu9RyltJ+DhpN r6Ese0GFKIkLZ3xsOMi5TSVBqpQKKhau87v1OGib4bdrC6upsP522R7hxRyU +PW4Z9l7Kky/P1P2cXoSjQfMQEAtFcIEbNee7kmUmkXndTVQ4apmecjn7Ek0 LbrPvqCTCl+Fk+0urZhEtmlDWke+UUGrfb7CRHwSPdp4SozWQ4WNJYV+Br8m kKNHUnHkLyosmvP6ry5tApXUtFEdJqnw90eZvaHEBFrq4s6V5FEh+z6+/1rP OPL4I6hFAio4ZvUGi5SMI8VV8mdWTVOhd8Eqi71u4ygozvb7rCgNjBbG0w8/ HUM6lp8zs+g0MJDLou/BRlFs/8FQR4wGk64KcRX9I6jn3ISt1HIaNClEa/Py RlB8vpToSTWSubdqwnRH0Li0hYeZDg32x2mtO6U/jIxyurbNr6MBTY32DZ8e QqlwnFK0kQYfiDX0h8VDyOJE3AdsKw2GnsRru2oOodzmDxrcnTSQvRTmNyQ6 iBYcdxR5sIsGO2yvKS1+OYD2iQx1OZnTgLKkJK7v2ABauEHiarUNDbac1jpT UNuPPBJ2Tibtp8F8vklO6+lfSMWx8vm2EzTwbdxPeZz+A5nJMPe+C6SBqj9+ ScroBwqoC542D6GBR/qrEwuGelGl/qrt+87QoAcIJRXNXnRY6XpDYDQNMjZ/ m3De8h3dGzkwnJNMg/LR9eeu321Hyuf+suQqyfgQi/XNBG+R2Sa7yuRqGjAU 9lzZwylFAZN57straKBQ5O90eKIYVbq65K2up0H4kovgJZ2PDhvXbNnVTup/ 8fHbRzcf/J50gv25ERqkLl8b/lmjAle+pxM3KEuH8gJ7dkNJJ36s47hJtgId pH/b3lLo/4oXLn0o6kqlw1DNxp+hst/wbWew8K8YHerkT2v+de/Gnewlgz6t pMPz+tMX0/1/4DfFfx14vo0OYZw7qUo/+vFOfTbDfzsd8ibtrhz2GsCXBzp1 aBnR4YztzpKn3AE8v6fR9oEpHWzVjC7kzg7idS/LTJLt6fAthOYtIjKCLzie tDbci7QXUNhb/3kcN81sntjqQ4dRtQuGqdsn8OtfpPL++NEhZK+btP7TCZxl FKUeEEyH9vm0cOvLk7gedoLhHkGHmW7JTqWbHPy8XV6H0gU6XNaPrayq5OAf Lg0mdEfTwc/86s0oHgd3mDqwzPEyHW5ZS/XPWHLxgM9mYuaJdNgr7Dq18DcX fyUWUymRTIc/XxTvy7N4uJB+RXh1Cnk+8o5S2w4eHp+jO22QSYeJ1Qe8Vl7h 4W3dASXTWXSItj7raZnPw5kK+UElD+hQc6TncXkDD889rzqpk0eHm1u21R1b zMe5JYfyxvPpcGla4fzICj6+eeLOsdyndEgeka6T3MHHw1Xb1Y8W0UEvUz79 gTMff+8k80ulhA7uCpHFz4L4uNQNi8zeV3Q4/Ov1Ro3LfNy+5uLBtDd0eC29 PGd5Bh/vW/+vQ7GSDmv1S9vF3/Nx+fkXje+r6dBQn9+d2M7Hd9b5fAipoYO9 8Qz1bj8fD0lQK1evowNL/7OpGp+P57h8L2mvp4NhtIey8Twf/6qZUBDzmQ5r WA6X5CQF+JLfFg83NdMhoEvVP05OgG+rFL070EqHja3pazMZAtzv6pvExC90 8JyZ/bNGWYBnOAbFG3+lQ9Aedo/wCgHerKIVM/WN9E/aN5yqIcBFJ3+ee9BD B+31ivtrNAX4ptKUYIc+OuhssHtipyXAPaPtfMT7yfNVFwySyPfJNovdiwfp 8O6skK3ZKgFex6hy9hihQ2JXxScLNQE+OxBqrzhOBw05h/qHbAGu/WydxftJ sl6XYV4nqAL80LmRHSE8OrQlzIb2Swvw67vubVUnyHzVzP/AxQV4pZzT+vbf dCgNpR7dN8PHBd0ymjHTdLj6Z3B5zQQfV8utVd40R4clH5bNHO7l4w7B5+kD 83T4EFm+JaGRj8fCFtnEBQx4pVzkVo74eOli7iJjMQYscvzqmfeEj4+25whP STBgrLayoT+Zj1v5ULl7pBigm9bV+8WHj0dsbhwSW8Yg/x/Pe70d+Pgzkdje F7IMcOnXbb1lwMcV7vz+rEBlgKyt2/ZhMT5u7F5Q847OAM9hfv/FIR5+Suco CsYYkHGDlllbx8O/vW/Pb1NmwDaVWomncTx86c34B9FqDGBtFKelHuXh+AHj 9I0rGbC24FvXT0Mefo//4mrCagZ8MpBp3TTFxVvf+kTv1GFA1pm7pX8auLhY nNo5Yh0Dqv22b8EecnHP5QneezYzwL7Bx1HZnotrWwaZK+xgQFWan99AKgd3 oWrteLeTAcO2MaFxPhxyz/mpF7yLAdPqI5sCt3JwwWk7jTZLUs+5M/3XH07i rx+sW5TgyIC+dj93m/lxfJcQ9728L6lHK1LlP7sR3Gws4FKiPwNEhr/cse8e xi06BObUQAbk/U5zcvIaxm0K/zQyTjGA7hYlZXF+CHd0EepSjmSAg7nHSq9b A7hnufSkTiIDMjetaTe/3YfHRmhTLN+S+jP+njpu3YrHeRd2NpQzgL1yQdiK zS34Fcd1qTZVDJBP9CvuYzfj13U2Kdl/YICi/Wr7muHP+O1eA839zQwI+GMS mBRUg+eAJX5sgAGHVpUL14Y9wmuEvI9GL2UCJzVS2uRnLRo69nmHgQwTxP4l W0aL1yPJlnXLCTkmdLatlhVe2YAs7v/tOEJjwuIz1gMfVjehRtOLZkaqTLBw WTzLYLahjpv3VovoMYHX3BpfueQ7+jsjJvlanwkrmze12s99R3T3YwMBOBMK dvvncAa7kbOuzt0+IyZ4CW6fbHXuRb1dZcsqrZnQv7FPNHNdHxpS7eRHuDPh IuNAvXxUP1oUr9+42ZMJb4dTjUy5/Ujj9908jhcT1gjfsAlxHEDetR7uLv5M 6OlrKteSG0QcH0E7foYJC59vCd51agj9KZYu/XedCX3HlDhP1EYRbXlgYvF/ TJBb1uzofXYU6V1qD/BNZALX2kuC9mkUnd2fptmdwoT7K3OTUo+PISEhzbSy B0zI6BZqOp81jhaaGkecfcOELW/1HAoryftOc+AKccSExtnLTxjzk2jUObPh WgUTEhpa6h+yOKjBf5aZ9Z4JlzgeEvfsOOi/289e1TYyIdPB9dGplxwUpdzr YtfCBO35vX/72zkoJE9q4fc2JlgnLGUdFnDQ0U1bCzw6mKC0NzDeRpqLHMs9 HThfmfApzOFE5kry/mqWOHf6OxOelJkou2znoq2tVdkivUxYvZov+ORI3mcP cs2v9jEh4sD3S3Y+XMQaYvEV+8l8Fl+Qp5H372UBFncyBpkg893jj+oNLhKe Pb1dY4QJE6zhdSoPuIgX/XDo+RgT7gldvJPxhot+SbddM5hkQuyMNLrRRO4X upe1jvxlwjKw/uZEJ/e5ipct4zNM2LfcC8/X5qGr5gOhJ/8xId0jpPobuZ+F tckpCwtjsCE0Kom+j4f8D22vjRPBwE5i9FmSDw+5Dvv6y4tjYPAE2/aQ3B9t A1Mp6QsxUA2xMsm7wUNGc7VvVyzGQF/o8ZsJcj/dePG3+1MpDMI6eUOdBTyk LqMmtXUZBhrD0pGvELlvpdgWVctiQFkWu7SgkYcWqUXst1LAYEvoy4qAPh6a zn+yoIOCwZtCeXlVAbn/be565ErHoNLyS8hiUT76Xrlw9ygTg6as/5Ibl/FR g8WmP0FsDBpeyr1mMvmovN3t7j8lDBQ/uks3reSjZy43jGNVMejediC/X5eP skbejsuswKCmwrmIa8xHt4LGbqWswmDdrynvc3Z8FPOPpq+mhcE/kyGB4AAf Wag3dphvwqBrrdgKpXg+2lY4F962GYORqelDLSl8tEZPc8WhrRgozIRdQ4/4 aHm1Y8OQAem/dZlYZgkfyVrFBAcABqlfFyhdq+YjkY7nzFlDDBITf2ae/cxH AtcfVdE7MSDEO9Zf6+CjL8H6sslmGDxEz2X/jfLRh/ljr5QtMbAcdHY785uP Si8lueRZY/AqhvcvcoEAPZZ7J7HJFgOPzDlvlSUClJrGy0f2GHD37YvukBeg +BXLHUz3YvBZ6vhhW0yAwp9azjXvw2DpzzthD9QE6PC7HPOBgxho4fFH+esF aNsv29VurhjkLVF4zdYTILrI3NJeNww6YzgaktsFaErpIcfZA4MVUjXiNqYC 1Ay7mzs9MfjR6zpwwFaA8g/NPHc4joHVaFKC334Bigu7n9Dig4FoZlvqoiMC ZPjmr+OnAAwmyziWXoECxOrK0jMLxmBPcGmZc6gATf+1ZNacxGD1uxViDucF 6JnuvZ7ysxgU+q/bp3Wd1ONgUWEQjsGuubZSjyQB8gqeuld6HoNz/j47FdMF SPm5mUdRDAZD67vyvXIF6F+TwGTtJQz2XbLab1koQF856avyL2Mghblsr3kh QMXSpos14zF4MWJTl1QqQDe1+WMPr2Nwn290/MtbAVqQmxKYcgeDGf66icVN AtT9YeceahoGzc/3H7RsE6DSwclNCXcxsFXOOpncKUCJ4neosvdIvVlVGxu6 BShAzWg6PhsDau8+13P9AmRlNNG1+CFp70IKXjUmQBput8tiH2EgKVqgbcYX IPFIw7tieWR9bb0rueKPAPVljEVE5mPgaDf14vOMAL1FiYfnCzE4obn2wYJ5 AbrTDUZnn2NwKcuEe2ABgULmRtT+vsDAKaNx9xpxAtkyEyRCXpL9GNW8/aUk gbS34sO8UjIehFnOqDSBJJ2G6/zKMDDrwE9gCgQaOPVf3hjCYD5K8X48jUCV SQbxxyoxCGVrjhJMAqUXD/oNVJP5ttJL+MEmUGjbjd1uNRgwz/YdmVImkINg 6/reWlJfC/f0KXUCrZMbkD9QT+arzWu3sAaB7sXHp9i0Y+COuvUObyRQ2JPN 5z51YBBYwpl33kIgp/q+g2ZdZDwCXll4GxBo0+gVqPmOAf5156fXQCBZSV1l o14Mfm5oixw0JNDEyh8iFX0YeObtnb1jRKA6k8v9Bv0YlFrE78o1JtADj401 pYMYVOTquCebEigyuidHdwSDhMncCJ4FgQ5mX4orGsNgUU0+d6kNgfSq1nuv ncTgo3Mo84QtgRT7vlvmczGY8HZxsLEnEE8odo2mgJwfl0eOKjgQ6PBZnWLW P7JeXk9Vtxwk0AHqm6dNQixoPn2wWcaVQI5FJk+iRFjw5rnhAWc3AlmNHcwe WcgCc5+6qmxPApnGjtxNW8wC10Y9hfvHCWSkGpJis5Q876Pn3eRLILxcOElE hgVxTksfDp8g/XO+erNYjgWfdjKfXAki0MY/1Phjiiz4tTf10ZEQAuncyr7E pLHAsy7sW+FJAmnq6ER/ZrAgZterevnTBFKvfx0RyWLBUreJJo0zBFLyNDm7 UYkFPZFmc7/OEYgp2nJySIUFtwsl/hZFEIiScTAwRZ0FRo13v0pdIOOvP+Jr tYoFNvqPfL5EEUiqI9hLWIsFz1x9Q31iCLQwSNijSJsFvUEerWtiCSSy7Krr 0bUsaDpS+QriCPTvMfUAfQML/lhUzh+9QqC/JtmOnzaxIOFuhI5HPIEEP9fY R2xhgeOYprfidQJNhr+2Xq/Pgu0rKzJu3SDQCMPEfGAbC0YOvwwW/49A/SXN xsnbWYAEBC/mFoF67Q4aWhix4MU/q4j5BAJ1TQ4bzBuzIPf+DXnzJAK1Xw7e 8syUBVbFNe/NbhOoaiZrRZg9CzI1Jm58TCPQ26Q1Kmv3sqB6s+O1+bsEKl3/ mvVrHwsmK69u+5FJoBefjelJziywqN3txsoiUOHxZgWzQyxoOFU6OkfyY4mD MnOuLFh0PduVn03WX9bwksIjLIiYP4T5PCBQJh680O0oC2Trvht45hAotUtI VNGLBXoZsvUhuQRKOnll/oM3+f38nl3qeQS6KUedOePHgjNJT9JXPSHQ1YKs Ke0AFpTcjkgvIjnWfA3vRxAL2K/WfFLMJ9CFwdLxWydZ0NpubJpGctgF42GT UBbse78DuRQQ6DS7+df0WRb4dF+7vKuQQEGvD/Q+CWfBSpsZeb2nBFI9Q0n+ nssCzseoHferCMTR9Tl0+AkLjvGeRtdWE+i1oFJtsIAFu8tq/cTfEyjmKXXs +DMWSMyOT22tIeeNr+8zThELlvgnPTb7QCCWZvWp4BIWjB3tmlhVS6DhQRo+ /YoFhySHOsdIjnB991EEsUDrvPGo/0cyXyaB/1a1sGB+vR8R3EzGT7S2Or+N BTlrPg5tbiFQQAXr8voOFmytnn8u2UrW29Y6isF3Fnzs2DBe30bOC22ltTaD LPigrv9eupOMn/xnt5AZFvBbg+S0esh+b1LVmJljQZnvUUY3yaviQznhQmzY qzcQG9VLoHIJ9XOXxNhwJ/L57sofBBqfPpuYKs2GudhV4Wd+EehlSbOzkiwb XjWN79zWT6CooJUqD+TZEBgyPiQ+QCD6REtBAY0N92JlvbMHCbTrh0ZtpQob fh7/0D42QiD59IhrJupsOCefcaJ0lEA9Tu176leywTR4ojJyjEC5FC3mbk02 pKExdcNxcp63nu9rW82GsrkNXQKSDW98yXHSYYN3UiojaYLsP6vVfj3r2HDF 1EFZbZJAHZIXNh7ZyIZP45N7UkjOrumYGdJlw7ZDIWkzJPtHaVf66LHhCe+p mRWHQFu3R8Xy9NmQKXZWOpVk8X+dVidxNpj93JA5TnJz6RqF2e1s+KhY8dKc S6C0k9FdEUZsyLNZugyR7LmhK1PMhA2yEaNeFjwCbeDqeMaZknq2ViZNkDz/ JEZb2oINv9+c7Eznk/2LMrjdVmygSZsIjgsI1NpUWpS/m7Svcu3DZoLsv5+t J8Ps2WCizRiaITmHmNCz2suG/auuLnkyReZTYtE/zIkNua9d/pj/JtA5mkrF uDMb6BcqPnWRbGuw1+TqYTY8OGvd/PUPgfStT0gecGeDnesKe5u/5PxzvfxJ y5MNW5ymD1eRvCzw/vVZLzb4pPtyNk0TaCYK2dX7sGFU51DuE5IHEjsVU/3Z cHS+Y6vGDIEac/idxwPZsIOzYXcBydn1K1wWn2aD8IZy9H2WzPfohxsSD9iQ sf6o0Zz4FFo312f/JYcNY1OHOg5ITCGm9Bzl4WM2vDCfuFJBMnfd2nTjp2x4 w64NSV44hb4ZmbsqFrGhRP5eotSiKfTewV11oJiMz0nR6hiS74Qm50a/YYPF L1/aRckpFHXluc8exIZpNY1cqcVTyDf9k45aJRtCElpot0neUSlcUl1D1odT j3vJkik0tsirSqSFDZsfbpBQlJ5C7YyomJY2Njzj8dKfkly+Ot00q4MNAeNG yHLZFErY3fzZsJsNYk3syGiZKbQtWe/b+WGy/j5aHvglN4VWPra/u3vs//HC LgfLTyG5Mt/DSpNsOD7+w1NEYQoN9d4bKhewQaP4qoyi4hRq5r15fP03mR+R 03YpJL8R/eLrMk360zu3mkWZQg8UuWt15thQenXkWzrJN1YuJubnyXyra6Zi 1Cn0PwSPclc= "]]}, Annotation[#, "Charting`Private`Tag$451837#3"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, -2.995732273553991}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Part[#, 1], Exp[ Part[#, 2]]}& )}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox["c", 16, StripOnInput -> False], TraditionalForm], None}, { None, None}}, FrameStyle->GrayLevel[0], FrameTicks->{{{{-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}, {0, FormBox["1", TraditionalForm]}}, {}}, {{{0, FormBox["0", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}, {6, FormBox["6", TraditionalForm]}, {8, FormBox["8", TraditionalForm]}}, {}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{56., 1.5}, {17., 0.5000000000000142}}, 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}, PlotRange->NCache[{{-0.2, 8.2}, {-2.995732273553991, Log[4]}}, {{-0.2, 8.2}, {-2.995732273553991, 1.3862943611198906`}}], PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, RotateLabel->False, Ticks->{Automatic, Quiet[ Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& }], {189., -109.45948351831635}, ImageScaled[{0.5, 0.5}], {360, 204.45528159684318}], InsetBox[ GraphicsBox[{{}, {{{}, {}, {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwB0QQu+yFib1JlAgAAAEwAAAACAAAA/Knx0k1iUD/IIVFX4Irvv5maqbXV UYo/aSTMNV2077+l7D4R1aWwP9tpUHvCM/C/zM8NTdnpwz8HAJW54dLwv9RJ trqcEtE/ass6VvyS8b9UOlj/5zDZP510jK4vbvK/t+7mqQ654D+3cHSZSE3z vz3VITfDjeQ/zi2tbSUc9L+wjXiymxnoPwP5EUCW2vS/JH1aRX9o6z/8ffLT cY71v0DbatYZ3+4/45lnZstI9r8GnnsPlxzxP0lquVi5/fa/veMUHcnl8j9E jtkf1rv3vwZM4NbdvPQ/xHWGz/iE+L9DxTh/E4r2PxrsJyboRvm/XI/C9Shc +D+frJG2gwz6v2wJ+aBnM/o/sUd5FSzW+r9EozuInSn8P+Hk4dasqPu/vOgr SDMW/j/nlKv/MHz8v8U9lj50AQBAkP8rywZN/b8PKJtyhfcAQCXN+SbWHv6/ bTmX4qryAUBT3Geo9vT+v6A3Fakw9gJA81b0wd/Q/786kst/SP8DQNsp73JA WwDACAPPvYcLBUB5cp5NCs8AwDygbMoVHgZAM/CkvtFEAcBgWWlSCjoHQOjN nfJNvwHAJEVkWMVbCED6w2XLgzwCwNmUK7zLhQlA00vUjmu+AsDmXIqryr4K QCc2VimNRQPAkGtDxTj/C0C3UUMTh9EDwBzw+WGEMA1APXiSmAtXBMBHA3gL JGgOQNVQpNHa4QTAraOqCaKuD0CYTqhblXEFwJM16iEafRBAlH2tH8wGBsDH 155ZEiARQOHqd1+4nQbAOKEQAYewEUDOV36M7CcHwOXQItv5PhJA8C+Ey7G1 B8BM/bypSMUSQJ+3qNgaSAjAokW28/00E0CeCpFXBswIwJs90AoMmRNAkdVh S7xPCcBqMA3DR+QTQM/jdfXbvgnAO1PovMYuFEAPbPUQzTcKwA/W/znMdxRA 2n7Bkaa8CsDDKt7IPLIUQGHNXGSsMAvAgPEMGvrnFEDB1djFdaYLwPJetTLh FxVApd4iXEoXDMD1LXO6LEYVQIWiqwlxjQzAG0zD8BFxFUAR5Ulo0wUNwGGJ B5RNmRVAb3UG0G95DcBoXDgQksUVQGo3jod6/g3AqvHSTWLwFUBiK3Y8uIkO wIE+kSdJFxZAGTfsXioLD8DN6bKY2DwWQAPQgcEGkg/A4IRCBBxiFkAxYJ5v bgsQwAYv+grSjBZACjONPdBaEMDVlc/yPLgWQEjSfpNzrhDALlbUYBrmFkCr biY4rwkRwA/uztptFxdADoFWmfRqEcAVkWEVb0QXQJAbel/7xRHAEsKjjSN2 F0DVXnvqAywSwHkB9tGpqxdA4Zl6KUWWEsCYwK27eeoXQKlm9kC1EhPAqOMx A5UxGEDtdngWT5wTwOCEQgQcghhA2tjR6Sw1FMBcPSe9b9wYQLheRhIm0hTA s++K4H9LGUDquJ7GgIwVwBlW8Ubm0RlA8lLn9HpaFsCcM6K0N3gaQFORvIxW QhfA6LzGLlE9G0AshVfDKD0YwACuZMdGIBxAM3k5dyxBGcAr3sg88icdQBdw xhmoYBrAKCfaVUg5HkCaH+TFO4EbwN8yp8tiYh9ATj1yIB2rHMBGsdzSakgg QBqekmbn3x3AWMXt6m2OIEDeRm/5UmcewAP+SAM= "]]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwlkmlUUwcahkOgoGRPSO5NaFhiSiuiBaqgYr0fKlS0FCXIah0CKhRGQUGs gmL0KIvYKVWLCyJFK+BWMGBLRO8HVaYujASB4iCiQGhhQIgKhi3WnvnxnufP c55fr3NMUvAmJoPB2PBuf3Oq3NgcGLOGqg84M+fW9Au6I2loRcDKyxQzeaku //owva3B/cP4o3cpl81Ur3/zCD1w9IladLKVSvDxuvtrrZFuc1STFb1d1CXx w+DChy/pkFLLiKArBmrXI9mJWsZruk22asivqp8aXZW38k3La7qmXNOX8mKI mjPcqVRfH6W3j/P6f/7YSLUfS9y98/wY3cx4ypyZ+4qqftB45ErRG3qZi3QR a3KU6qvJz1afM9FbD9mPjKtNlHIkzXLw3Dj9t+3YM0EpqAsj1RUTdM/Fa8O5 0dNUiSo2yrV2kvbxYhp15rdUqftCmVXbFH2TvJeTts4CHpZU21ePTdPZ+5aX BWuZID13XXNM/pZO3xyw75TMCk4e4DYOujDwjO5lRFHWe5BjWFs8Ws/AMGfD h61maygbGAvNibHA1kFNaHT2DJgUhh/isJgYNWP7mnq2LUzkRQh2VDLx819H BB4/siDcO+9nhdoSXXu64tYv5EDABxsn83lWWOHUGD6/kwtxvFmzBu9Y4VKt EgID+eD/p3lXQ/Z7mO5xTDTkKoDIs7rjWQHWuHDu1/owvhDKJjROlnY26JP8 n+xmsxDk9a2H3fts8DnraPl+owisBrIMFbdm4IFzva2LGuwgPtHJa7lmJn6V alP5ySYxxJYeDDoit8XpsR3PCvViaA3+NufIUVtsMZ7Q3CMlkNCkjdkyZIsz n+sbBKslkDgR7jnmycIgB0lCYIoEBKVPzN4pLHQffXVBcVwCQf3zuS8us/B5 5pzHlZUScLvgxmL2srCx9/SWrQ8kEGJ7Rx9jz0ZJ1if0qR4JOIoY6o4gNsZ0 lDywHpdAqPZjb8UhNlZY/pH3EYeADY8bd12qYaP8X9KyPEcCyiJveK4eZKM5 +lnNG3cCDjeWi62cOajS2kRqfAkwqN7eSAzh4O1jK0sK1hJgaVCWDuVycN1k 6pLN0QS4JGRfY9ZxMHX2VdfJrQQo+rJC3zdxMOrkyOrpDALInVc3FrtxUX91 2b2gXAIKZ3jHP4vh4r7obxzoAgKa1de7LU5z8YvMsVl+5wlQ+TikfdrGxYub EvfkVxCw3OO/e1+yedj4Ux+jrpaATtNB++LPeMgV90wF/kaA3mCTfzyTh5Kn BsWtRwTAPnlGWS0PLdyLfJd3ETCsasrLNfGwqYmquzNAgHVxTeoCez4K7aiG J6MEiNnKdNKHj2V5mWe3WZBQUFdg8VEUHxXP+Bdb2CScYYw5vkrnY6w+Nc2T JEE9d++82Wf4eL6+fdm3s0hoUq7f7ox8NGiX8F7MI8F1yju6rJuPVb+l3Tq7 mIRkp8wwrY0ABdJQo78/CQbdzc5+NwEu8G3Zwwgm4Y/UrOSbKgFaWaW8Nn1J QkCTruqXXQKs9jbVb0wgoTBqcmNmiQCLbHbGDaWRsEqzmDN5X4CdJ4oqbh8g IVb3OiTTJEAz10+zNJ+EhCG7HP8PhOh48H9rfykiIb7QsNhWJcT1Tr7G2Msk DIe9TQrfL8TBQ1sOe95415u/LcCmSohNe89ns++TkNGuDN3WL8Rl0YYmRQcJ WZEFHmwHESrbulWMQRJ2mBb+fmedCCM6Bxb1T5Ow8sk3IZzvRNj9013ZKF8K 7DrzS99GEY52/K5JcZGCaBP1YxLPDlN0bi5elBT+vUXbNRVph9oNbMOKKCkE zzvod/KKHe72urQ0LF0Kp9ubz7pbi///vx+kEJ0GTmvjxNjrYXnc+FAKESU7 HsS3iHG3Kt82liWDqrmH0/eskaD8071Jj/4hg4wMr6+c+yVYWSo3nxqUAe2n 316sI9BiTF8+p8seeocr3RTdJK5eUvzPewvksP/V44Kwz2X45/6J7xfddACl l3fJeLs9Opbo5bfnOcFEd9WKkGQ5Gq/dL5p9xQme+ieNB8c54F8r+cBc "]]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwlV3k41G0XlrJUZhjGzPy2GZSQyitLKDkpSyHeitKmtCBrSqVFC4pCaQ8V RSSkaFWcUERRRCq0ML1EliwJ8U1ffzzXcz1/PNc55z7n3Ofc6u7+SzZJS0lJ 9UjOn3v4eneVg7uThXGHHWdpckeBXLzZ8aOjtRZ37wSQerndBdvPFbtyjD5b aE3ixpW3/ygwtw7+Ks4WW0SpPa92/9BT4HTtdbN7VJtFY8rdsUFSfQUzn5e6 1lX3WVTGqnKGXQYKnB2UgkQwBk63FIWcvPi7YChWY2bGl/HwZurjqbuCpLF1 ir58Rj0bvOjvBS8vjMM209Z9Tboc8DJM2ZdEy6L2/RX/hl5XhpesARfvTXLo O1q26FSVCmxxECtlessjW7Vp2EFeFeJqNBI/BY9HkySlMUe6eLBSc49x87SJ yPvn4Kqd1XxQWq1le/nnREz5GX3TXEUARMyBaZ91FXAWiavU5gnAuW3ybfEK BeRvMi6dvEEAXsxRK7ldCpj+pv2gywEBJIqbuVJnFPD18hObp8UJ4KR8SvW6 6wqYGnu27MMtAazqvWJcVaiAa47eKMsvF4D9qeyuX+8UsH8/u0csFoDyxplW t3oUUPrNm9t3RgQwX11u+cEJLOQ0J4Zd4BFw3MbX5KAmC09FJYSbTyegpz0r ecFcFiYX1lmemE+A35rLC7Y5s1Dh26qv210J0N+7qo7nw8Js85zJ4EtAx5VG E+cIFrp6LZnwcB8BdHVlVFQCC0+2bOKWRxOgY1lfHJXNQh2L6/2t5wmwnGlp bVjMwogNa+qtrxKgLl6So1DLQvU5703cMwm46hlm7/OJhQd3rSlYd4+A4cW/ qbAeFo7cO8lQTwjY+rP1RqgMG6cYi94eLiNA5J0RPcRlY8O8dvukagLmtzow flpsvFU8tuxaPQGl+gpql4zZ+D5jcLWvmICHsMa+3ZaN5QM/CX4HAeGpFyc3 rmPjZVflxGv9BPw+/ciUG8RG6UcyytxRAt7tMCzcGMVGSTZ7lsmRcGD+44nK l9h447/kn9GKJExOkl/QnMPGBxGdxRl8EnbcCVBcXsbGwHodJkNEwnv9xtEb YjbapmbtPatFAg3JFc9/spEx8VjgpUfCsur8XieOIr5tmFOjPouEDwG7jDbO UMTZARURVXNJGKnQSu5epIiPgtPn+1mTcKFbw0GwRRFdB1/J9DmQsHZFRBAe U0RPmcMZfs4k7KxwN/95TRGzTRJ+1awmYZKo+WJdmSJeXeHnZbSRhLtp233i 2hQxp/Pop/3eJGiNWn1QHa+EhhzjOY8DSVBbZzcxkVbCjpWWc1uCSeh5o6ya OkMJZ33qKZI/SILNxnGyMqCEPzoNZtARJBzcr5nNc1VCs9kErXmchC4D6NXy VcLE37Yc4iwJuYP/mS0IVcKdi+TaRhNIiPLYa56SoIQNVVts66+SkJixaNbB W0r43eZoaXa6JB5nR/VF5Uq49Kx6TNAtEr6Hmb3Z1qyEU/1tTKbfJyE1eo/M jWElfC62SP6YT8KhrqJ/cggO6g1OqIp6SkKQlMZZFwMOwp+GfyHBT8EtTWkp Bz/Oyu9/UUVC1ufNo/I+HOwc2XVz5TsSNIel0q8e5WDJBtmpTR9JmC7d8uNb JgdD+ftkvL6S4JPapFFezkENUlJh7STo3nTLTvzGQZ/xvxI9eki4sm6r29OJ ynh3gCvV9EtijxMw67SuMsZMqv2yVIqCAQX5TCN7ZZze7nWkQJaC+HKjyM5t ynhqyavvmiwK2JVTU3bHKuMTl/G8IyoUkDVeGgG5ylh1XfeymKAgIcrnRP47 Zdxq0nPDVI2CTp/ltocHlbFuY/TuiCkUmBYpXY8XqaDsHwCmUVByt0e7wkoF h86aruEZUDBk7XRw5mYVvJdgt9XZlIJ9TO3565EqaAb/2By3oKBjmeVUUZYK er56ZfHEioKQtpVWO+tUEBymr2qzo+AH18jFfFgFibLIHapLKJA5MM/WUMTF buuvsRYrJP7cO/f+GHAxKHukcv1aChzNlLPHenCx3lPK/+BGCtyaN2/3PMpF typB5tUtFFAh24dOp3IxWvs7Kz+AgilXI2OSKriYF/LEr24HBWf2q1OxP7jY +uZM5Y+9FET5xesU81RxKHhp7IRQCgxYLUUuZqpY/aiJy0RSEKbWtmHUVRUz Rred1ztOgebXkPVSe1XRM/b7XoszkniL9hzQuqyK8oFOhfbxFHSL4yPHoSqm LcmRW5lEQb/N2Kc+YlWcdmg0c2MqBUExyrUWo6q4w1HI25JJwcv3xm4MzcMn tHmIfw4FpX20i7UhDztNrGwCH1Cwxz6u74sbD8ckG28NLKDgrZP71fZdPFRR 1I4PfErBjbiEhfbxPNTcTTwNLJfgt/i7u/AuD0nDXseA1xQ020nfPf6Ghz1z 7s/2fksBP+79AKeFhy+s9mptbqCg/rLMSwNZPqYsBpX1TRTciR730FCNj3cf 6Juvb6Vgx7Ha90/N+CiuMZXd2EnBalNdpUJHPqr8mFe5uY+C1z8qutvW87Fy YSflNiTxpw5X54XwMSopwXP5GBrudIS7RZ7lo+2vhXcc5WjYVf7fzUmpfFSX ZictYtEQJv+roiifj3/ay0qFBhY1K6W9mo9dErabT9BApPEViHaJ/ZAjV0BE Q1vUibdeA3zMP2IXM1uThkot67T7HAHmzJtCmOrS0J/bNjVUJMCnku+m+jT8 OjKQzjMS4Fv+eF/TWTTU9Gvb+VkKsOXQ4FlTcxqmxfP8YpcLcPB7G5rOp4Ht ZvvP3k0CVHBt+Ga6kIbOIp+Gmj0CNAsS58xxpOHHgkLV4mjB3/w703BiU/fI 3DMC3D3ceM1iFQ3ZgStlHycLME3wn7/lehrMuUfSxuYK8GFo3QVLDxrsajSq bUsFf+P3peG4BvtHeY0AIw7MT1uyjYZj0cGB3Y2Cv/wRTMO9YMPzNu0CPP7x Q6/Hfom/Ghn2Sb8EqIdzzYLCaVgR3T7grEBg+7/3heHHaJiQOnjOhCEwrUl/ 7JlYGuLkq8p81Im/8+OcBN/RurA5OgS2NBZpllykofu2h6HmLAIXn3ta/PUq DTMWPOv4bENglVSj9Ph0GsZ6TjjmsIhA0wcfk7SzaQidY3LoiyuBddXs/Q53 abAOYW94uo7AW07ecTsf0XA4Z7P4sT+B10IalyUX0vAsX5jmFUTgvTWeWdWl NORO5xq/CiVQ+rLIWr6ShuL38utSYoi/eNZIppepUdhIFIHyX1u693ygoUHv 22f1NAKL2wZl8j7T0PVCzNJOJjDhyqQHw/9J8v/SPXZlFoFZeZIB1kFDim9v u1MBgR/Cv5pF99LgcoBzX6aIQMvbB8bXD9Lg6T11zbxSAke6196ZOYaBUYPt Pf2vCew5teVyjBwD+c9GLkS9JVDt/NWSThYDVoaWbd7NBF69qfZyBZeBBP/M amgn0E2nXKmEZOD+cXFEUAeBUR4SglNnQFbhjbNgHIm1Lu16eVoMbAotinkk RWKQq73P3BkMLGhLmaQ1gUQv/67w54YMOE5esi+HT/7tn9kMFNdcr5pNkeh3 mOr6NY+BkDzFsTc0SbTWDJKOs2Ugp5U9gNoknojQiV3gyEDk1gMlSUYkeqx3 nD3szIBe+/1VTQYknnZ4UJi3moHsFeHnL9uQyHPw0ArdwIBmWaX9HScS7/zW 1XXYwsD6oa1N9stJfBpod0N9KwMRJQtf960gUXcoS35kJwNGF1SfGXiRmOnX l9AbwsDd4xz7Cn8SE6+dzewLZ2DHtQSrkd0ktnbviR+JYsDtUGF+bjCJizt2 ak84zYBv0qf0wEMkat6s0FeLZ6AnuvVjYSSJn/LZCQZXGLgS5aWuH0Oi9gJU X3adAW+HE+Ipl0jcOnauRVQ2A2G3lY2srpB4UTJe3t1jILMjfM2+dBK3PZw2 xbhAguelwvSQPBIXbsiNSX8miZ9ntPhSAYmuknVkcgUDWrt+Pi58TKLev4+N smsk/ljd4g6Vkqgu6vVxaWDArtl2X+5rEu0dV3wZI2bAcCCOqGkgUePaAuXH 7QyIBCymqZ5EbotK8MleBmwu9D1a1EriyzGHTHcPM2AaXRcxdZBEh56YpdvH CcFo96SPun0k3vL9d3OoghBU+a7aM8ZReGVN+OnLXMnbtWvuF1kKd9b65b2i hVBq/el3gDKF9kVdHH1NIbDLaxcHCSlsedLgmjddCEPTPrXbMxT2hWkKnYyF MOFs7lR9DQrFrzQ+/JorhNHMANXEmRRenHEs8qWNEFo81yLfhsJo9wcpNU5C ONQ7EDa4hMKJfwpopRD0FtlExEve/+e7DUJw10+U93Sj8HS/rNt5HyF06Gee 3+pN4aMst2xqhxCK1n7+phtIYYmO2cny/UIozHphs8WfwvUxwoJ7kUKIaKid eSmawv/ro1NCuPlqtKY9jMKsS6caZ10SwvNBWd1TpynUWX28sC9NCNR8Orn7 IoXe3TpSz3KEEP7xwsrftyjMNNSRacgXgsvNpC/4lMLXWZZljmVC0NnjOuNl CYV238YZcmqFcMWaKG0oo/D/+u6LEOIXbtezaqRQuvthyJMOISStu+2p+JHC ti/GJA4JYVew67mL3RS6h3V5NsmLIB+yK2Es/Xcf5ovAd9GltXvG0ZjvsL9/ kqYI6is54r0aNP6hV7GBCN6NUaUPzqBRIu6iX8wXgWkYyy3AhEbJNtyXsEwE le+aNpbZ0cgpeXg/erMIduV83W7tTmPn1+vsB8Ei6LCNPmcURCNteSbO/IQI nL3TbE+E03/1RboIlowKfP6JozGhvtOJWyqCwAOngmse0Ph6tUSBfRNBl3JR 7oVmGpV2G9+YK6cGv133B9VJMSi68popFqqBXeO+/nR9BrUVJ965ZqoGAe5a O0o2MDg8FDVRzl0NUrrrFN/fYnCN08eZqfFqwHufMS1VT4hWl7bsC8tTg0Zr /19LPIT4P3az6PY= "]]}}, { {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}}, { {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {}, {}, {}, {}, {}, {}, {}}, { {RGBColor[0, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {RGBColor[1, 0, 1], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {RGBColor[1, 0, 0], PointSize[0.007333333333333334], AbsoluteThickness[1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, -7.600902459542082}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ SubscriptBox["\[Rho]", "0"], 16, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\[Beta]", 16, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->{{{{-6.907755278982137, FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, FormBox["0.1`", TraditionalForm]}}, {}}, {{{0, FormBox["0", TraditionalForm]}, {2, FormBox["2", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}, {6, FormBox["6", TraditionalForm]}, {8, FormBox["8", TraditionalForm]}}, None}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{56., 1.5}, {41.99999999999997, 0.5000000000000426}}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{-0.2, 8.2}, {-7.600902459542082, -0.6931471805599453}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, RotateLabel->False, Ticks->{Automatic, Charting`ScaledTicks[{Log, Exp}]}], {189., -340.8784505549491}, ImageScaled[{0.5, 0.5}], {360, 229.45528159684318}]}, {}}, ImageSize->{ UpTo[360], UpTo[445]}, PlotRange->{{0, 378.}, {-462.83793407326544`, 0}}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.802175761479096*^9, 3.802175863775364*^9, {3.802176338770213*^9, 3.8021763755995083`*^9}, 3.8021765932282*^9, 3.802177501048196*^9, 3.80217753253866*^9, 3.802177654285932*^9, {3.802177701112014*^9, 3.802177722830563*^9}, 3.802353760449629*^9, 3.802554530020987*^9}, CellLabel->"Out[80]=",ExpressionUUID->"6183abe4-1482-48d4-b438-3be515fa5caf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ "\"\<~/doc/research/hadamard/paper/equivert.eps\>\"", ",", "c\[Rho]Plot"}], "]"}]], "Input", CellChangeTimes->{{3.802175767579317*^9, 3.802175836385655*^9}, { 3.8021758677098*^9, 3.802175868234004*^9}, {3.8021766423740883`*^9, 3.802176642761888*^9}, {3.802177544143303*^9, 3.802177601792076*^9}, 3.802177663313095*^9}, CellLabel->"In[73]:=",ExpressionUUID->"c19fc7ad-2f20-4408-ae77-f80f7c794d03"], Cell[BoxData["\<\"~/doc/research/hadamard/paper/equivert.eps\"\>"], "Output", CellChangeTimes->{{3.8021758144847*^9, 3.802175868789843*^9}, { 3.802176340222908*^9, 3.802176376145843*^9}, 3.802176594528945*^9, 3.80217665251313*^9, 3.8021775016591873`*^9, {3.802177532816225*^9, 3.802177602515102*^9}, {3.802177660372542*^9, 3.8021776664299707`*^9}, 3.802177702601185*^9, 3.802177733014504*^9, 3.8023537672333927`*^9}, CellLabel->"Out[73]=",ExpressionUUID->"9d6eec3f-fb1b-4010-8b5a-96f35f52fd2d"] }, Open ]] }, WindowSize->{956, 1056}, WindowMargins->{{2, Automatic}, {2, Automatic}}, Magnification:>0.8 Inherited, FrontEndVersion->"12.1 for Linux x86 (64-bit) (March 14, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"7dd147f2-d824-4b69-9ff8-d008132a0184" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 3307, 78, 97, "Input",ExpressionUUID->"6ca216e4-4a7b-4e5f-a718-f4e70c77d6a2"], Cell[3868, 100, 668, 18, 48, "Input",ExpressionUUID->"f756d73a-4921-45d7-acd1-44fe21438a02"], Cell[4539, 120, 417, 7, 23, "Input",ExpressionUUID->"c91e85b2-f90e-40d7-bf19-7a03fd9499bb"], Cell[4959, 129, 819, 23, 23, "Input",ExpressionUUID->"1b068f0a-fa61-487d-893c-5b00f279e758"], Cell[5781, 154, 1819, 48, 61, "Input",ExpressionUUID->"83b164e2-d1bf-4be5-bf92-d3645cb950ca"], Cell[7603, 204, 963, 26, 37, "Input",ExpressionUUID->"f81a2199-caac-407b-95bf-2211d7b265a5"], Cell[8569, 232, 901, 20, 39, "Input",ExpressionUUID->"a0e3da7a-9e7b-466f-bc4d-cb0b0d8819f4"], Cell[9473, 254, 2200, 55, 79, "Input",ExpressionUUID->"cfeba3ce-dc48-40c8-b8b8-f34cf59a253d"], Cell[11676, 311, 2250, 45, 43, "Input",ExpressionUUID->"9b0c3339-71cd-41f6-9ef3-ca7bd5b2e440"], Cell[13929, 358, 1306, 28, 23, "Input",ExpressionUUID->"a1830ef0-911d-442d-b5d2-b62c202fce89"], Cell[15238, 388, 1314, 33, 26, "Input",ExpressionUUID->"c5d823f9-e85c-4b3b-b05c-3154ec28aa66"], Cell[16555, 423, 1668, 41, 62, "Input",ExpressionUUID->"b26da0ea-b484-4f10-9733-25392042ef58"], Cell[18226, 466, 478, 14, 26, "Input",ExpressionUUID->"5a1efa6e-dfe2-4d60-ae14-3a6c7a1d321c"], Cell[18707, 482, 535, 10, 23, "Input",ExpressionUUID->"3b7ef50e-b362-4da3-b734-818bb17a7c2f"], Cell[CellGroupData[{ Cell[19267, 496, 317, 8, 23, "Input",ExpressionUUID->"1d9176bd-3b77-4ecc-9453-1c9a125a6eca"], Cell[19587, 506, 43127, 860, 331, "Output",ExpressionUUID->"50478f07-ce1f-4ccf-b25f-71f47b0f2386"] }, Open ]], Cell[62729, 1369, 2481, 56, 77, "Input",ExpressionUUID->"965aa541-441e-48ee-b9c7-6c04093a0d42"], Cell[65213, 1427, 1179, 34, 75, "Input",ExpressionUUID->"0885a315-6bfe-4916-87e6-8a66c95472da"], Cell[CellGroupData[{ Cell[66417, 1465, 2465, 62, 62, "Input",ExpressionUUID->"b9af9737-77db-4699-8144-d484234a5c9a"], Cell[68885, 1529, 73084, 1329, 208, "Output",ExpressionUUID->"addcb650-971c-447d-9e45-ff6aab4a2549"] }, Open ]], Cell[CellGroupData[{ Cell[142006, 2863, 3383, 71, 62, "Input",ExpressionUUID->"d80acc58-e355-49f5-8e82-b7a019a31499"], Cell[145392, 2936, 56549, 1066, 196, "Output",ExpressionUUID->"8f31c4e7-3f9e-4970-8ffa-82ae946fa101"] }, Open ]], Cell[201956, 4005, 1367, 34, 75, "Input",ExpressionUUID->"09f155dc-a270-465f-83b4-5452a9d3c6a6"], Cell[203326, 4041, 1478, 31, 75, "Input",ExpressionUUID->"faf27222-05ad-48db-b551-d6176fd5d567"], Cell[CellGroupData[{ Cell[204829, 4076, 4143, 100, 98, "Input",ExpressionUUID->"511fd1ec-10b6-4e80-beb1-748a7f18c95e"], Cell[208975, 4178, 55346, 1044, 194, "Output",ExpressionUUID->"9963b39a-253f-470a-8961-9edebd6507c7"] }, Open ]], Cell[CellGroupData[{ Cell[264358, 5227, 1021, 19, 23, "Input",ExpressionUUID->"90d2bb91-ba31-44f8-b0ca-47994c701e88"], Cell[265382, 5248, 2020, 28, 27, "Output",ExpressionUUID->"d6eb8147-5336-4f0a-af98-2c7f67894dec"] }, Open ]], Cell[CellGroupData[{ Cell[267439, 5281, 589, 14, 23, "Input",ExpressionUUID->"24a1235a-0106-41db-84ea-024b7cb0822c"], Cell[268031, 5297, 1205, 17, 27, "Output",ExpressionUUID->"f74d6f02-720c-446d-9c38-444a61f1ed7e"] }, Open ]], Cell[CellGroupData[{ Cell[269273, 5319, 495, 13, 23, "Input",ExpressionUUID->"6c35788f-083e-448b-82aa-5d86bb96b55a"], Cell[269771, 5334, 681, 10, 27, "Output",ExpressionUUID->"fab803c0-6c8a-4f51-ad3c-a478c5fdbd88"] }, Open ]], Cell[CellGroupData[{ Cell[270489, 5349, 500, 13, 23, "Input",ExpressionUUID->"03139c62-638d-4c12-b522-98250958257e"], Cell[270992, 5364, 652, 10, 27, "Output",ExpressionUUID->"834849b1-c68a-4110-8710-d6ab56b9cfdb"] }, Open ]], Cell[CellGroupData[{ Cell[271681, 5379, 1178, 31, 26, "Input",ExpressionUUID->"c2dc46a6-3d44-49a2-a86b-2bc8d34ad4a2"], Cell[272862, 5412, 261, 3, 27, "Output",ExpressionUUID->"b65d9eb6-d781-4a0a-a70a-d4eab4091d42"] }, Open ]], Cell[273138, 5418, 3675, 100, 92, "Input",ExpressionUUID->"49fe8588-a840-4740-82fd-06e6920b19de"], Cell[CellGroupData[{ Cell[276838, 5522, 3687, 79, 95, "Input",ExpressionUUID->"63c8922f-d24e-46ca-a537-602acfdc4822"], Cell[280528, 5603, 42346, 821, 200, "Output",ExpressionUUID->"13b84951-cc38-4f71-953f-0adb0f741a41"] }, Open ]], Cell[322889, 6427, 1557, 46, 80, "Input",ExpressionUUID->"666e65f1-8d79-40dc-9b3a-fee9e9d2fc06"], Cell[CellGroupData[{ Cell[324471, 6477, 1148, 26, 26, "Input",ExpressionUUID->"fdefbdb5-3432-48a1-ab56-2911aa735797"], Cell[325622, 6505, 34479, 669, 187, "Output",ExpressionUUID->"930a1ab6-cd4c-4165-9216-6f31dd6f1d71"] }, Open ]], Cell[360116, 7177, 289, 6, 23, "Input",ExpressionUUID->"7f334b13-fb8f-476f-af9f-ccaaaff3658d"], Cell[CellGroupData[{ Cell[360430, 7187, 2198, 56, 44, "Input",ExpressionUUID->"afd9fdc2-8f88-464e-964a-ee3b58355b95"], Cell[362631, 7245, 27242, 473, 193, "Output",ExpressionUUID->"418904c2-3867-4abc-9f50-70af35b92fcd"] }, Open ]], Cell[CellGroupData[{ Cell[389910, 7723, 3401, 67, 44, "Input",ExpressionUUID->"19ba1574-8da8-420d-80f7-17a4f14ec9e1"], Cell[393314, 7792, 13350, 240, 198, "Output",ExpressionUUID->"703b6729-885f-4b8d-996f-7370b4d419ef"] }, Open ]], Cell[CellGroupData[{ Cell[406701, 8037, 352, 7, 23, "Input",ExpressionUUID->"84e35e5b-7f3e-4788-809f-e1b50bd74ed2"], Cell[407056, 8046, 39956, 701, 363, "Output",ExpressionUUID->"6183abe4-1482-48d4-b438-3be515fa5caf"] }, Open ]], Cell[CellGroupData[{ Cell[447049, 8752, 464, 9, 26, "Input",ExpressionUUID->"c19fc7ad-2f20-4408-ae77-f80f7c794d03"], Cell[447516, 8763, 511, 6, 27, "Output",ExpressionUUID->"9d6eec3f-fb1b-4010-8b5a-96f35f52fd2d"] }, Open ]] } ] *)