(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    334318,       6512]
NotebookOptionsPosition[    326219,       6362]
NotebookOutlinePosition[    326585,       6378]
CellTagsIndexPosition[    326542,       6375]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Chemical potential plots", "Title",
 CellChangeTimes->{{3.7346695829284153`*^9, 3.734669633943098*^9}, {
  3.741518137519939*^9, 3.741518148247685*^9}, {3.749367449348456*^9, 
  3.749367453273859*^9}, {3.756978720353941*^9, 
  3.756978733840438*^9}},ExpressionUUID->"0aacadf9-23f6-438d-94db-\
f7a8d5c3b71a"],

Cell["Brian Cowan, July 2019", "Subtitle",
 CellChangeTimes->{{3.771233440071756*^9, 3.771233450522567*^9}, 
   3.7712334993040953`*^9},ExpressionUUID->"b90de7dd-52cd-4776-8615-\
36e0de67cac6"],

Cell[CellGroupData[{

Cell["Set options to make plots look nice", "Section",
 CellChangeTimes->{{3.74893571154445*^9, 3.748935725359828*^9}, {
  3.756978811914701*^9, 
  3.756978844543996*^9}},ExpressionUUID->"9a1cf7f9-65c0-434b-8a46-\
313f07159733"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Plot", ",", "ContourPlot", ",", "LogLinearPlot", ",", " ", "ListPlot", 
      ",", " ", "ListLogLinearPlot", ",", "LogLogPlot", " ", ",", " ", 
      "ListLogPlot", ",", " ", "ParametricPlot", ",", "LogPlot", ",", " ", 
      "PolarPlot"}], "}"}], ",", " ", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Euclid\>\""}], ",", " ", 
       RowBox[{"FontSize", "\[Rule]", "16"}], ",", " ", 
       RowBox[{"PointSize", "\[Rule]", "0.02"}], ",", " ", 
       RowBox[{"FontColor", "\[Rule]", "Black"}]}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", 
     RowBox[{"Directive", "[", "Black", "]"}]}], ",", 
    RowBox[{"TicksStyle", "\[Rule]", 
     RowBox[{"Directive", "[", "Black", "]"}]}]}], "]"}], ";"}]], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"82bbcba8-044b-44e3-9fa0-3dbc0b72e6d9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define the chemical potential and fugacity functions", "Section",
 CellChangeTimes->{{3.74893571154445*^9, 3.748935725359828*^9}, {
  3.756978811914701*^9, 
  3.756978886423524*^9}},ExpressionUUID->"1649838c-9a34-478a-b307-\
56c387e8fd41"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muF1d", "[", "tau_", "]"}], ":=", 
  RowBox[{"tau", " ", 
   RowBox[{
    RowBox[{"InverseFunction", "[", 
     RowBox[{"Function", "[", 
      RowBox[{"zz", ",", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Sqrt", "[", "Pi", "]"}], "/", "2"}], " ", 
          RowBox[{"PolyLog", "[", 
           RowBox[{
            RowBox[{"1", "/", "2"}], ",", 
            RowBox[{"-", 
             RowBox[{"Exp", "[", "zz", "]"}]}]}], "]"}]}], ")"}]}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"tau", "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "2"}], ")"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.749478187488975*^9, 3.749478198666559*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"2443e7bf-0060-4269-a3a7-f01b8bc19b35"],

Cell[BoxData[
 RowBox[{
  RowBox[{"zF1d", "[", "tau_", "]"}], ":=", 
  RowBox[{
   RowBox[{"InverseFunction", "[", 
    RowBox[{"Function", "[", 
     RowBox[{"z", ",", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Sqrt", "[", "Pi", "]"}], "/", "2"}], " ", 
         RowBox[{"PolyLog", "[", 
          RowBox[{
           RowBox[{"1", "/", "2"}], ",", 
           RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}], "]"}], "]"}], "[", 
   RowBox[{"tau", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ")"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.749478219687027*^9, 3.7494782222332163`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"2dbfd720-d6ef-4ab2-a177-2a14eaa6208e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muB1d", "[", "tau_", "]"}], ":=", 
  RowBox[{"Re", "[", 
   RowBox[{"tau", " ", 
    RowBox[{
     RowBox[{"InverseFunction", "[", 
      RowBox[{"Function", "[", 
       RowBox[{"zz", ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"Sqrt", "[", "Pi", "]"}], "/", "2"}], " ", 
          RowBox[{"PolyLog", "[", 
           RowBox[{
            RowBox[{"1", "/", "2"}], ",", 
            RowBox[{"Exp", "[", "zz", "]"}]}], "]"}]}], ")"}]}], "]"}], "]"}],
      "[", 
     RowBox[{"tau", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "/", "2"}], ")"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.749478240978455*^9, 3.7494782428089314`*^9}, {
  3.7494788999384823`*^9, 3.749478906760886*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"aaafd394-d4c7-483f-8a58-69aad6662c61"],

Cell[BoxData[
 RowBox[{
  RowBox[{"zB1d", "[", "tau_", "]"}], ":=", 
  RowBox[{
   RowBox[{"InverseFunction", "[", 
    RowBox[{"Function", "[", 
     RowBox[{"z", ",", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", "Pi", "]"}], "/", "2"}], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", "z"}], "]"}]}], ")"}]}], "]"}], "]"}],
    "[", 
   RowBox[{"tau", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ")"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.749478260408226*^9, 3.749478269791071*^9}, 
   3.749478397909521*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"7ace336c-54fd-4f1b-a508-8950763f4528"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muM1d", "[", "tau_", "]"}], ":=", " ", 
  RowBox[{"tau", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2", "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"Pi", " ", "tau"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.749478300651738*^9, 3.7494783196824703`*^9}, {
  3.749478361853647*^9, 3.749478389077176*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"8b6f13a3-6f9a-44aa-857d-4b3a554baf69"],

Cell[BoxData[
 RowBox[{
  RowBox[{"zM1d", "[", "tau_", "]"}], " ", ":=", " ", 
  RowBox[{"2", "/", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"Pi", " ", "tau"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.749478410787444*^9, 3.74947844996597*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"776f88b0-a068-40c9-b54a-3b3aaed1c2fa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muF2d", "[", "tau_", "]"}], ":=", 
  RowBox[{"tau", " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"1", "/", "tau"}], "]"}], "-", "1"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7494926806140947`*^9, 3.749492680615102*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"edf40143-c595-4cf7-8829-0e9f6fc6bc93"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muB2d", "[", "tau_", "]"}], ":=", 
  RowBox[{"tau", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "-", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "tau"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.749492713384755*^9, 3.749492715703453*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"3cd12001-473c-457c-b71a-00d7546ecd00"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muM2d", "[", "tau_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", "tau"}], " ", 
   RowBox[{"Log", "[", "tau", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7494927880827017`*^9, 3.749492835254211*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"3d8f2846-4f4a-4df3-994a-3349b3fb62a6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muF3d", "[", "tau_", "]"}], ":=", 
  RowBox[{"tau", " ", 
   RowBox[{
    RowBox[{"InverseFunction", "[", 
     RowBox[{"Function", "[", 
      RowBox[{"zz", ",", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{"3", " ", 
          RowBox[{
           RowBox[{"Sqrt", "[", "Pi", "]"}], "/", "4"}], " ", 
          RowBox[{"PolyLog", "[", 
           RowBox[{
            RowBox[{"3", "/", "2"}], ",", 
            RowBox[{"-", 
             RowBox[{"Exp", "[", "zz", "]"}]}]}], "]"}]}], ")"}]}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"tau", "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3"}], "/", "2"}], ")"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.749492980286606*^9, 3.74949298241424*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"515cdd15-7dbc-41e2-b0e9-53ef5632ac8b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muM3d", "[", "tau_", "]"}], " ", ":=", " ", 
  RowBox[{"tau", " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"4", "/", "3"}], "/", 
      RowBox[{"Sqrt", "[", "Pi", "]"}]}], "/", 
     RowBox[{"tau", "^", 
      RowBox[{"(", 
       RowBox[{"3", "/", "2"}], ")"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.749493050693378*^9, 3.7494930686207113`*^9}, {
  3.74949312221248*^9, 3.749493165143117*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"cb98ae56-5a92-43e5-b22a-7557e67fd04f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"muB3d", "[", "tau_", "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"tau", ">", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3", " ", 
        RowBox[{
         RowBox[{"Sqrt", "[", "Pi", "]"}], "/", "4"}], " ", 
        RowBox[{"PolyLog", "[", 
         RowBox[{
          RowBox[{"3", "/", "2"}], ",", "1"}], "]"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "/", "3"}], ")"}]}]}], ",", 
    RowBox[{"tau", " ", 
     RowBox[{
      RowBox[{"InverseFunction", "[", 
       RowBox[{"Function", "[", 
        RowBox[{"zz", ",", 
         RowBox[{"(", 
          RowBox[{"3", " ", 
           RowBox[{
            RowBox[{"Sqrt", "[", "Pi", "]"}], "/", "4"}], " ", 
           RowBox[{"PolyLog", "[", 
            RowBox[{
             RowBox[{"3", "/", "2"}], ",", 
             RowBox[{"Exp", "[", "zz", "]"}]}], "]"}]}], ")"}]}], "]"}], 
       "]"}], "[", 
      RowBox[{"tau", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "/", "2"}], ")"}]}], "]"}]}], ",", "0"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.749493517606789*^9, 3.749493537284092*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"8875726a-9072-4b96-956a-e693cea59aa8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plots -- exact expressions", "Section",
 CellChangeTimes->{{3.749493190951016*^9, 3.749493202013068*^9}, {
  3.774073946237008*^9, 
  3.774073967650799*^9}},ExpressionUUID->"851bba03-c994-438f-bbd7-\
0e070999b93c"],

Cell[CellGroupData[{

Cell["1d", "Subsection",
 CellChangeTimes->{{3.774073861823588*^9, 
  3.774073863128793*^9}},ExpressionUUID->"dc02910f-db76-4e27-9fbe-\
132dfc5fe6bd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF1d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB1d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muM1d", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", "Black"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7494784810800953`*^9, 3.749478535318734*^9}, {
  3.7494786144789047`*^9, 3.7494786158667717`*^9}, {3.749493862182012*^9, 
  3.749493863132308*^9}, {3.749493954074603*^9, 3.74949395617507*^9}, {
  3.749494128309033*^9, 3.749494129921442*^9}, {3.7495388433706007`*^9, 
  3.7495388706626*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"e6fe4f34-8a51-4f6a-a81f-4005609ae4b4"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwV13k8lFsYB/AslUrJ0g03KVsbUoQWfopC6NraIylFi2wtUskaZY0sZV8q
ytLNUiiS6la2UMiapGFm3nnNiBLmHvPPfL7/nOU57znP8yx3PGvtJDhjxozd
AjNmTP/vdGJ8rBp00p85Y/pHQ9hQ1q1HxgjsACmbaWumJiQ9kbHF5VJzcwHi
/iVKfhdU7LEnPIcpSGxW1/pvsswxMBJV180kVgqTy+bLu+CqZNsSEeKJnUfj
j6i44mhTfv484qHAlpojce6YaVU0IEa899jY81syXpB+xKqRIq4xlC19lXQe
nRmHTGWJNRT1CkfkvWEaP8drGXGSoEOOcqYPHCJ+G60gFunzz9ijchXeGpoV
6sRlvU11r2yv4ca75+3axG6Wx3YeivNDrGl6Moi71l43DJcJxPqft6VtiGNT
pauUDwbhhW5Zgx3xTrHcLS+SgrEq1k7NhbiEqt3AkQ9Ff/+uTj/i0/b2/14/
cgOXlYvVIokV6jnqyzJvInHRB+Vk4og8iZVWKhFQadObW068XS4ra/BEJKD3
dPQ98dU3dxa+tI3C84tyNzqItbRVw/fHRaN/dCh7ijht0T/BN2RiMfI49Im5
AA2fuviaPWWxiK+yaD9CvCeoV1Dx4G34esbcu0As+tPdtzwpDhEOEzrZxBdb
Yi+y5BPhH9mmKyJIwyasq+RpVSIkFm1MViBWN1L5GXjkDgzW9uToEfc/KXWX
y7yLYanTFeeIrWK+nNylkoImfvU7NrGqmWKO7NsUrN0d5DlfiMRb6PSPgROp
2LrO740a8eFnU48rbdNw0S/f2Y140aoo9X1x6Vj3uzZ9kthP5MmKUJksCKnu
m6M7k8Zq4+iQf92yELrfheNE3BR0drDjbRZKBe1TY4mVhFQfqp/PxgVZpt0I
8ZvJLPWWpntgfCs59HwW2S8vboN8WA6OixqmnhOhUbzuXJzJtxw8iOMYFhLb
u9mMuW/KhVzUklImcQFb7FkNIxeiw3ZznebQsGaEbDm5/RE4MlWuR+bSSOi6
ZFg8lY8H8++E+InS2Lpkf1b37gLsVBo2fEc8dEBnpkheAVK7zraIz6exlOV9
NE+tEKUDg+ezic+6aCvP6CzE857kxs8LaEgcK3iQrfsvxrdf3esoTmPf/vQC
ergIZ1wXHVi+mAanw3ZuhmwxYiJVd10lDrYXcbIxLMa10TVincRPjp6VLYkl
1isYT5SmscBVL8hHpwTLy9NuysvSeO3ffmDWlVIExynpWMvRWP9IfNYSkTKc
mr+s5YASjXfqrx3qNMoQGePwoYnY4fHF8qv7yyC+59I9M2Ua4SU9bl9zy2Ap
+mWugQoNRlVexz2Lcjh9W52iuZJGyifTx+tiKnB+2z/ndqjSmMf3O2S8tBKB
mo2nlm4g8XLZa6+6oxJJB8vHC4mVWlQdxF0rcfP4qIeRNg39nNajHc8rEZOw
dJmrDo1nOXHFpepV8Nob6167kQbbhlVhVl8F2wiXmcX6NHY/iP/gOb8aacNf
szeYkvtt529+fHk1fnBCnL8T90mcqdu3oRonHs2SiNtJ4n1lW4OeXTWuxs+T
HjejEWrNbpqdVw2Fj3R/7S4azye2fblr/gpC59Vkk21pKFtRjFc3a7DssXv/
Nwcasr7Gm06k18DpePm7qiM0Fual3ZxbWoM7Tq33UxxpjIvYqFv11SDinPFO
u2M0GqtKPbt1X8PstsecgRM0Lmn4Tf36/hpx95e4KZ2lUS8mJaVu8BYhX9XU
za/SuFC/EQkj7yC438VsPIXG4iLxbgGBBtQFJ3ro9JH3pM+wtmFLE2Q279zU
vnYY1SeT/97PaoEo9pbmXh7GTxU9sbwzrbDryHzxT/UwBH8/XPi38hc8qV2W
zJjDhTbfocQmvxNCX6PXLDXhojZQq/7N6h7EqtmKGF3jQj6K+TuH6oVwjLGN
bykXzLGe7k8afVCKlrl55zsXWUPl7xdEfEP9x8bBPHEeFsjd5/T39+NiZOWo
uA4PBnsCur4N9kPeuzX+FrFH5OEPfVQ/vFOaBiV0efgsIH2/91c/eR9upUls
5CFlIMS+U/Q7MhvlDyzYzIN64cm6Zq3vkKu/LTymz4OFofrD6sDveKq51j18
Bw9hLsXH05QGoKAtd73Rlochg7yQeasH0PsX98uO3TwYS2fnnl87gLj4zS0V
xIJvYynzTQPgrjhQen8PD95KXud//zOAUIFZW7338XC8Z32wtc8AZO+rnJ53
iIetuwuzhZsGIDkU7cFy5GHU4GG/s+8P6LDlGjPP8lCRxbx7IfAHaCN4TxL7
i6jaBIf+gPfYvM973Eg8Gh+9zIz5gQVm9bki7jyoHM5P6b7/AyzmrGpnDx72
XHm8z7bxB24m1RbInuOh+FlpLZYzwA2ja7df4uGS3K+AXSoM1OnaT90mNvDT
3Wy3hgGeZ0H/d+Jak2c5lzYwwH+h2Bjow0N/a1lwsSkDrHdOipWXeZAafW6w
xoOB52FfXyn78uC1vqbor1cMzCzfta48gOxXa1la9H8M/P12y5/ZgTzs0758
U7SegQDNU662xJs3aTkKtjMQP7fckkUsuC1LjKIY0CoJmCUdzEOkVeDJ17KD
MDVP23o4hIdcN6NlXh6DiGSrWeSF8ZDkkTaPc2EQ/QGmeznE4V4Toy5XBsEt
0xRdF86D28WiusMhgxAvzD7/hFjnmpKPWcog7CQO/lMUwUNNpPBnhfeD6Pm7
X/ZeFA89+TU3Py4fwuzqWe47Y3loZAuz1q8YgveuRcxrxFWq281jVYcwEuQv
VUqclvtadK/OEGoC759TuM2D47034Z3mQ1jmfsTjJ/FA8n+RPy4MIXtW5eGw
eB7YYbUxk3VDiGvTPnj1Dg/dH0RH7JuHIBkQ05pLXD/XwraqbQhSmi+FW4nz
Q+qkAr4NwTb5ubv6XbKfwPrbIr+HYKx+Ob6deMSnMV5SiYlGb+kly5N5+HOy
5e6qS0xMhb/dfy6VB1ttu2h1XyaEEk2KbxM/EhgI1gxkQqJpSV0xsX3CmLte
BBN+0d/W/SR++VrWxCqDiUQ7ZqNbGg/Xlx0ZufieCU3ZwdMH03noZQ4OXmlg
Ii54MPoCsW6pR49/CxMT9xs8Y4iHLALfh3Uzke/n7vqe2MLnfloal4nM+LkG
GzJ4kPzMNv9PloWwoOBDU8Sn089vq5NnYeKTsu1fmeQ8TvN1mpRYUFi7ZY46
8XkhccVOdRZ+KnEfHiJu19D6zdnGgs0f35YS4tSbl7IXn2KBKzqrzD6Lh197
hO4ucWMhf4VluAexpUJY1PJzLDTapS8NJhZ8luyzxpcFw5HLPo+InQaqrBDD
QrSTpPwo8Zqts6eOl7Pwihm+6Eo2D4W5D1e0VbFgqblHLoJYS8rSyvQNC1Fr
N7WlEG/5kZC15iML0iH+JyqJd4WvNqMHWLCTsWJPEDeN1nsdYbFgf04zct49
HvY6eKY0DbNwuO1mvwyxg2bFcNEECx1PP+RsIPZot0jwlmBjTVp1qgvx6Dbu
y6HFbHyejOw+R+zzKI55UI4Nhy1qH/2IA3179PVXsnFWSbgpgVhkMMC5QI2N
V2q2vZnE4dYrby3TZEO5NS0jnzhO2f27oD4bIUWHDF8Ry0YuEvMyZKNUt295
HXHqr2e6303YCJyMKvpM/OCDYNhbGzY6W+JGGcTP3GPXh7mwobvUh5pznwf9
Dt1Dk65svJTxPytOXG3UFeTqxcblTfOypYnfL1Zpt/RlI3Jjo5oK8S6/94LV
gWzEb1TwUyVuHnJV1bzBRk2GQuh64s7npb6LbrOxuvtAqR6xw4pDOcF32Cip
ftC1jfh71IzmsVQ2ErQ+PjUmPjmeNeGczYakbo+JOTF11FTlSy4bRg1d4ZbE
HnXsf8wK2Ugcb71uSzymfcu7opgN/adt2vuIL6dpZ6qVs3FTmHnnIPGMuR21
KVVsvGiXKbInDvT0HRV7w8YODTf/I8RzuhSX+X1gI27q18xjxBE7/jPlNrLx
RbdS/zixROFpz6Of2WB8rFN1Jo6TEU9u6SDzP1vb6EL8d0Dxm+1f2Sjv5qw8
RZzG2k+XDLDxVE1G5zSx0p4pmZUsNiaiSsan/aAywzBxmA0W3eR5hlhtlfGZ
uWNsiGp5Z0z731vMOJ8JNmRRFDxt7YnIKpYABamRiGXTLnPSGrKbTWFIU8pt
ejz9hjbJBlEKHzp3nZuev1r3ip6BBAW7D6YaJ4mNM5afeLyYwqwvYunT69dK
WKDyZgmFzy/sB6f3tyziT/+X5RTu14oNT+9/fiAjk6NCQb5lzVNH4nHvT47C
qhRWZ5XrOxD/OFu9XGYdhaK5/wXaEbc4FfSqaVPwat5/4wBxnlWo/V4DCtrF
Gi02xHeMz8ud3k6ROvO69PT5Besd7by2k8Kum8FLps/XYZXegVxbCtt9048a
ElvIr5ap3E8h7339PX3iTYsWtzXbU1DNeJuzkVhSYHj3pDOFjSx9jvr0+Y51
SUm4Usj/XL9uFTGL9b5ZxZPCNj0LLUXiN21ZVpZXKFgf0vX+i/hJffRCJ38K
8ddKysWmz6vmaoP3dQqDY9tfiBB7F+6zyIymkJRdLjRO7sfxe9tFn8aReG5+
soNLbJ20/kPtXQp+fd2mQ8SqIaKmo9kUBCR/RrUT9xyuMjIto+BwVEyxmLh2
d56QfSWFsLFE54fET83uVHvUUJhsSHZNJ76l42WQVE+B959mRRjxdrGVWzh9
FEYYofYOxOtnLvojxKBwpbjhgS3x0j8CZdJsCqduNz8xIf410KGzbYyCyBcd
UQ3ihy8iNW/P42CHsuPbP+S9Sii6zM1ZyMFmkxBpijgw1+Xxi0UcaA0Vru4l
to8zXMuQ50CxZs2tV8TirmOrN2tx8NfyEtfrxBfkDit8PcRBGXXDSYjY0VJj
T+cRDoqLKEUueV93BQjcaD3OgbH1znu9xCqDmcN1bhxs+CwyVkHcUsSoKgvk
wGPq2rvp91vD3ONw7CMOHEdNNjaT936Jr2FM5GMOwrg9m14Qz/5X6u2NEg58
VNgzcoi7F5eq+1VxYHkn9MsV4rBvfybPtHCwacW9GiVixqWgJOMJDsxLjXxO
kPwztGeNczrpYw0XDL3dRexASwrKkz6QEerfPp2vzBS/b5AlfZns74dmQsQK
odeTF0rQUEt/dvouyW+NtrWnJ0mfIljs/6CK5EtV1u55rRakbu6K3dKTQs7P
1rzyhiWNur0GlyuIDZ9v89S3oXHgbMSFROIDEWs7svfR+L1yY7o1cajGnIde
R2k4a7e+fEny+YBXxU4JbxqpuRkGMUnk+5tUuGGRRWPDr3MXhEh9oHpcRl/g
PulzaufrtyXyUFovxi3KoREgfOnlI+L61In9SwpoiFv/nLIlntz6eRXzGQ3p
3qu7MxLI/MGh70IaSN+mKumtQeoTSTFapGachuO2wA5ZUt80Pb9x3XSS9A3z
z1QPxZDv77TyrAY+jaDm9rNlxBLvDwh9ER6Gs7Ld0v3TDno9yVkwjGifjvcx
t3hY+OcO92/FYfyu03aeIvWV6I/tnZ5mw2itlGE8IPWYcOXdAsWkYYyfsr5t
S+q9L1uMTHpShpH1RFBOnLigjNV7J30YMziWR+uCyHpL9CQk7g9D1om5Zjvx
47werxn/DsOlXSp/Hakf7ZMUN3W9HQZVt/jqlB+Jv/fDmjjeMDr9jt88cYWH
U1rl7XPMuMi2EDP19iT1XOOnR08tuJB6t2r7CuJFZ2jfE5Zc9FvaC38i9XNl
trLK691c/Pm+oXYtseTiKI9rDlxEO/r595H6u/z3sXlj57g40HU7aosrD/Mq
F+j1p3GxKb/85Ctncr9MHdNejHKhXhH9Uc6Oh59M2YUDcSQviSueoY1IPW5j
LBRrNALrioRvWit48DUJSi0aGEGxcaetgQgPy7t2tmUG/cTeuQedpwbIuDqB
sTLrR6FQz++tqOTi0NKG3wLNo/ihveOabgIXP9+H97n5jUE81iLI6iQXCcL2
XtZKvzDlFyD2YAsXkt3FGYI1v/C1qzF893wuZl7xs93o/htCHnEBOq0kzjn2
BX0S41AQ9/dfmTEMjzsF4RLV46hRTLnAcxrG8zUhIuKufyBfc429euUwxHd6
qPovmIDUYyMDLRaNTrXGZu+KCdS5Jx8qekCjMAVK/faTWPtfqowL6UftCrTF
5aYmUf7edZ8luTfXgtL9OnOn4NRx/HwGucd5DLm7C8z5OH532V97V3IQkhzk
0L2Ljx0ZM7KalDk4Zs1Wzrfi47tGY5+FIgdLKioKLfbyoSJ20NNwKQc3Ig++
CXPkQyaM2btaikPuUeLwXG8+TM5ajQzxKSgESpnMvseHRuwLdY1WClO6l+e3
PiDjm8Qx0lsotLO/Nd17yMcVayNbySYKUXuf2O14zMdMJrb+rKXAX23tGVRB
5k+77FFcTaHzY2SKUDMf2f6GuivyKTwNHjva/ImPyOZPErEPKcRuPrwqs40P
6dmFqTNyKJhlqxdt6+bjrO2+xrZMCmUX6975DZL1NutFBCVSiFPbEGnF4mMy
seUPh+QR974k2+UcPhYnMP8+EEthpfnpnqoRPnz/KfFUi6QgLNCSFTXGR9SC
iw/jwij0Fm8+6TDOxwmJz7f5oRQqTmau1Zjk4/DB1vXOJG/Fy8/7yefzwWL4
+zcGUvgfudbvaQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$5187#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVjmk41AsfQMmSSkS5F8VkTYXihltxf5VCpCK7LNmKK0shtBLqWiKNQU0o
6wgjxhKany0iyVaSNRQxyDIjlP/b++E85znfjoyTt6nrGi4urju/+b8f0TaL
jElwQb9wD6uCIcfk1ZX0GZQ4ClTd7afXH8pn/pWaRC2WMIMa84OCpaEtzNFt
8iFXFO3hAFku29p/kGn0trvosYQLbD5+XzTh9iRTPloqkyC5Qy1d0/O2Gpv5
09A58ZyiFwzYO1H2yq4yJ8K66s9RfCHo2szk+WO8aOmy+DJewg+wVccrT209
1utKltVRA8DIepoh474J98rpFC6QgmCP9P5alsgWpK5xpCmkX4Ucl8iAAhFx
FBgOfWqheAP0E3SpS27bsGKo422d2S1457LWWfvudvQ57WJ4lhICf8C3h/78
cti/545ujEQY7C5kjBHXlJCcKl6tYBsOUdItjfv9dqOhcK42kxoB1gNqp17G
q2LpdIvGDOk/CGKzpfueqKOnvX3RnXORMOKbxJ/hsQ9lW2dUt6dHgRV/V5WS
nibeyxdVMlG8B0J3BHYl7zuAx6QyMr6djwWFJM8eGX1tvNHwcFONWRyI7vjM
9+Tff3CfpnKMNeU+RIQ62Y75HcY0sVMRkRJkKKwvqJGz1cOrbxPrLSrI4O32
5RKLpo8W4UNr5GwToJkVtyLIfRwF2b43K6kUKKpJcxB6bYSBXeRAFikZHFS5
nKi9p/FMdH9peXUy3BQ6ddM33QRVjyqyw849BLNV2ca93qY4WlzmK5X+CIoy
Bq+eFjVDkwefPE4qpsA8g5lzKsISlY3kaJKNKcAfcHlLoacVCvB4jn09nwr9
La6tdRbW6PBi9TmapYHmRn8DloYtiu2MU7WiPAFHyy83kkkOGCJQvOM/iQxQ
53V1Z751xl369+8W+WQAdaRMzczdBTvCvb/1NmZA21D3h2F+V5TnUX6mGpAJ
sTxBBQP6btjwK0O1qyMLZHKr+YihCyg4T9EgRdMgUiH7Y/BFLyxR86cYjNDA
k3RY23iHN9r7nFn0PZALxhrkc1PD3kifEn5RP54LpDrWywa6D5qO39X2OJYH
7zX6dPi1LmFSf7BuyWoBCNkamG709sfD26wzBszp4CV3jDLQ448TNlp8Avl0
aBTIuB5+LAClWUHO+SqF0GluYnOadAW93TUVuPoKQXOgbhT7AlHUhZ6T+XcR
ENPmDQdvXEMr6yf077MMmAkyaBvbFYozvWbrn0qWwI9HFjO+F0Ixwl7A9Yxu
CUTL6zCNs0Kx2NlbspRcAkry3w2XZG+jkJdO+FWtUiCva7YT3x6Gr0J7bPiv
l4GNBvfRAzsjUD1PhH+bQAVsT+mQNfCPxA1EyFl9aYS4sE6J+fn7mORuaa+s
h3CKYpOltjUe5buUHUW8ENpIaQlxR+LxH1q3c+9LBH2dE/r0+/H4gkYpKVOt
BteEgtyLag9w6gyryqi1GvTofFf6AshonpP45vLGWrjVvD30h3giKphMj9dF
1UOMfHesRikVr7Tuh6SFJigYorgtqWTinwyRAW7ud3Dy1doqRbs8LB3WbXmn
3QG8ap6+7YFFWOvxeKs1qwt68+3cdATLkK2oI5x/sRsqg318VB5X4pqlZ5u2
KnyC54IW8U1e1ahJOJaeKeiDSmH3xRmeOmwJ29fasGsQdq4Sfcm0V0iKm1yi
TQ9Bu0xs6mr2a5xcHBx4v3cYSNSULS/uvcGMicpmoXsjwMUb+sq8rRWFpLJn
RkdHwY79T9Em4XaMdi9xS5P/Ci4eH0dlMjuQc+jZ6IWbY6CdZBZb7t6Ffur1
jD/qxkHy7HCj5NYPOFhQH9UuMwE/9YUtd/zsxhWPrkc7gydBHNsNHgz24O7D
a1fdKlmgtEq7IpvXi/pPZc4//3MaTJcXi6Jo/XhFykH289kZ2KMVcdf43iAq
s8w3dBt/B78DDJ2J8iHcLPxdoH75d198ZVNY9xl58RFdjjoLy+1rtKqqh/Hf
fZU964zmoOn2m3mT7hF8dtwpjcmZg1Q58VHRqVFkT0pu+kqZBxOLhMD381+w
5Iw+D/noAiRtFHdjbBnDmwbhqYyvC6A+pxkzpzCOMv2GH9PD2bAQtbIkpvEN
D2iFkSXUOcA5UiH+2X4Cz0q/W+Lu5EC3bmI9d+Aksptjhn1CFkHjJOPkkTwW
JvHa+5nK/4AuikCN8bsp3DxQ8nRN/Q+Yi/a2T5iZRr7rIWb7fZegIsiIVC32
Hblo9vRh0WUItsxKzM79jpce0mNEa5chOyA0M8l4Fl/uvisg4rUCbVESsrIz
syhieEk5VOgn5Gl+aNx7Zw77VNo6g6p+QqC2CnFHZR4LU0B+1P4XiDUJC6o0
z6MdXVNEavUXRLKmsldcFvBW+JOQvtxVcFSTMjspxMb8calHQicI+PzuU1pc
PhvvPg53HDhJwJDkx2CbQja6mE4pFJgQwClP95QvZuO2qqpCY0sCystSEsvL
2RgZa9sQ7URA5enZ9cN1bLygmTy7PoiA2+cDXPd/YqNs2BaDtVkEUFOD+5f4
Obj697WN3TkEtMs35Tes42DP1EhH1jMCxtvyEh4IcjDOsthO7/nvn0jlPBVR
DhK7TC+HVxGgLdI37yTFwb722BSeTgIccnxY7X9xsDxi0bnzPQF8izoaaZoc
JB902Jn+kYD+Q2EJXvs5aJSpyjgyQEBtvR91A3CwIvBtU8g3AubjGXV6hhyk
qGjEmrAIaGOKvxYz5qDvMNVMZoaAXRNjI6OnOKh0wnOweoGANL3qc7fNOcjL
3ZURt0jAhp+v6kytODhUctDDcZkA8os9OrK2HKzySN+z9xcBorUrb2ftOJhI
2sAmCAISrJQCahw5+D9zG2SN
       "]]},
     Annotation[#, "Charting`Private`Tag$5187#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV13k0lO0fBnAkqSR6pWRtUSpJZY8uUchWpFVJloSQ5RVJllIKUXlFlmQL
LSRbwtjXeUJ2s2AskYSsqczv+f0153POnLnP/dzf67qf2WzlYmrLxcHBocvJ
wfH/T33bkZayUdtDNOOPzSuSnh3i1t50vVfkCDySXB8u32eNAy+i4z6ImMH3
Tjp9pbsrBsW2BdzYbgHpVypGhqleMCA6c+JFbODsdfyknoMftoWKp7Il7WFs
H2nCORGIP/rWzy5vd0aims2ML+89nLGZL3ki4gEiU4Dr8Y8QVGlvKqiM88Qf
HSeF8fJHkN+qkT0j6Q0JSAq/L48ALysw6fT226Cer9/w0fEpGHvva4eJ3IVm
lVwdyy0akS82lkmbB4G+K0lV4VUM9NdmqpfG3cNa3mqtho7nyP9BVZyQfIBV
Yx63G2Ti8ejtOhmT7Y8wV1znt/A5EYnrj997KBIJ/gyvRJX5FPgQz6pOF5FO
FReR8kzF6aA+rq3m/2Ff+bI3TdOp4Jt19fsUF4U35UnGr8fS4NUW6fVdMgYl
i4WflD6nw+Rpj4Px9gSo5L567m7zBgG8H3Y8EElBOPeGoxE+77FL93FwzvUU
yMkkcdu9f48vQS6jtNoUiOnVdfYNv8e2ZbKv5ch1dZg+lZUnclDzN0Wu7Usa
0m4eNneW+gC+6ShFydAMGO82GnLNzkU046Z23tI7cMQKRl19XoDDYudSmKey
sOPko/zemgJ8O6+8nPdtFmr/yKttmi6AxHdv67d7shH25D4XXb8QLvZK0hz0
bDiyjP8kzxdinU1WeqpKDrjOygTU6BTh7LmXWZNTudC+rnW4rbQYEzSzVUmb
8vDYpKhDk1WMexa8tie185Bx85P8veUl+GDtsik/Mg+aPx5fjDMoAb+zRpCP
cj76QvlDl9pLUB3YfZ7HtwAaRWOuHQOl2P9GkEeMtwjTp6uDK93KsJodcEFX
goJ8iwmtDToViLY/YyGrQ0HYXR2hoJMV2NYmaynoTEFZwGPZYcsKHMrotKaV
UDB/yN0t0KcCHzOi8grkytAp/2aNdHYFxk9+Lzb4XAbRNvUOyQ2VOJX+rNF9
TQUMah6IHqdXIu5ioOGVzRUIdpQ20BqpBGudE3FWsQIu1skBu2Yq4eKr1aRx
sQJ7sw4f6FldhQem419WvK3A5hMa0wVqVSj5o9UTa1iJAyUY9oyqgrTJj5HK
kCqsCTjONNKpxiY/XTW7l1X4NvBMn2lSDYG3iSGrCqqgeWzmovXFaizynpQz
YVVh2TfVDAOPajSXFbgzVaoRVNK9IeplNW7KBywtDFXD1fmesthiNT6vFRKS
06xFNv3aRpXkGlRqONm2nKrFy8A1r9ze1qDQsSbfw7EWrQOee5ILapBc63Xu
U1QtWsTTdIYba+Dlx0jQG6+FFa0tY3a6Blsm0nZaP6/DThPagqZWLW58VkX0
TD1kyr3LqzprwS+XN1TP24BYwdx+hb5apITJh/4Wa4BR6Lxs/Aj5u4Y7ui2O
NqAhoeHC6V+12N0o5C4d1YC76hN1jpvq0Fs7kZaj3IjEbonJHeZ10C1P5Sdu
UrGpQC6Jr7MOTKnNeUuPqOCLKVcMY9bBwz/OXD6ZipHByFSe4Tq8xNP0p41U
EIIicoMzdfhd4q91XozAhZ42J/119cgqMvf8WkLA7Vn4WK1BPTbkCjI5OZtg
jdHUVx/rcSH0t9mgcBMCfo5K08rqkWQz1Fgj2wQ/S/6fPHX1kF3/8WPI2SbI
NJvf1e2oh5an5X/rs5tgLBe13elnPZTizqRF7m3GKovJWeOdDbhskXYxndmM
rXu6ZsMfk/vUF42JGW2G6XDDaMezBqQpRbQ9nGnGSMT5euGEBnznv2ngtKoF
Qx6PLwZkNsCTYqS6X6kFhxNoZ7kqGxAqNStUHNaCSEjcKvjZgHyWNrVJ/Qs2
PTC6zGfUiA69gKkw3S+4V/B16pJpI+belQobmn7BlV3a+9+eaYSyj+rlOrsv
uHmEt0XBqhGF/+ydK3vyBW4K1uMLno34eGSTVM7IF6g/Nag786IRxWmT7pGR
rXAwtHQIHmsEnU8uxvRFK3pDTzRtnGzEHzfHUoHMVhz0iDdNnmmEBoZ5wyit
aOnfWp72txGlnbT4oG+t4JtairJbSwWFt7bWU7MNeheeD7Tuo6LCIV703Pc2
PJULPHzNjYoPo46OFnNtWN6ec5zbk4qUq2qfrDnaIWwQ+fSZNxVBVzrPOwu1
4/ZiSHWWPxV6VoLP76i3g3KjWvAVORdN54I2vgttRy9VQvNDBhV0Paf1y/Z0
wMjxqpwJnZyL2oO2vModOCbdoWzWS0Wpzqq8NYc7QFsQKTZlUfHiyCuzjac6
EGCqo6E1QoWVZv/TPb4dSMwoPj82Tc6Z8ql1Z4kOpEk+K7NbRWB2u8bat06d
aBUrahZWIHCIpVX70KsTkY0zv8uVCNyL1/O7eqcTrgXmkldVCQgLmU1sjemE
+7uFM6mHCChxOjY9r+qEug9Hy4AeAS9adHiwaBfe75/qdbtAoCwqQffK9i40
9RgkfrYgwGuawtbe14X40ZW+0pcJxNRlubB1usAa84yssiVQlFdz3NOtC0dT
1nvVORP4Ez6z1qa+C+YFYjMjfgSOGCzWHm7rwr9Gs77zAQRCeTj8JXu7YKfr
pMN5l4C47+rJnpkuWC9/EMsTTO7HYUuziVQ3KCt2RXSFE/A7ciICN7phNrPO
MTaBQB37lJ54YDfaXfTbLBIJCHwy5/gd2g25pIdx4kkEEvfZXc9P6oYXlpmG
pZL7kbh9Ys/nbuypenhf8Q0Brl+vBUSle/B06RCRWUhAlNCaxt4eFDsoCPIV
EVB42d1uo9qDKylidvafCNgeWxH7zqgHsotdxhtLyfVjrKS1PHvgzq+noltJ
IFxNRM2+tgfhg87l36gE0vmzxR619KA02qNrzWdyfZYOO4fWg5RcRZE9TQR+
PvSo+jPRg0XuPHHLFgKnaU3GERtpkNacPx/dTkDs1j3rAnsaMvxvD5kyCCie
ENehu9Ow1qlGW5VJwHhbrgznbRoUNnuzRHvJ50PtH9d/QgNFKm24vY8AS0zD
i1lEA9U+Wl58kMDvydbzy6ppSM8pKBwiLVTtoCHTRMMFLqXQzCECOk7RXG4D
NLxk5m/a+ZVARsl06HI+OriLbX7/GiVQ8fihyy5hOjwsJbhTvxHosd1selyK
DurfMSvDMQJ8/Mc3xCjQIaW3WibiO4HrFpkvZS/SEbRSYnbsB4EH+w/fNbGj
45qoVqv3BIEknq4rnq500EenBLknCbS+Wy5bFkRHwZBE/popcj7Zlvkn39Hh
I5NUMvuTgKFRWeDRQjoEFSue2kwTsI6VPK5cQceplZYLTaQjlJlfN3XQIe/b
6Ro3QyAtSCOXr48Or2MCD/6SLm6N818apeO+StAB81kCoy7mIqy/dCSwunT4
5ghwlBYNta5g4Jq+QM4l0sJ8m3KqBRk4KK+Yl0VaK71LP0OaAculiftH5wmc
nVPeELuXgV1yXedCSLsceTYQqsrArWumdQTpuL5Tt64bMfDvXLSf3gKBHLk8
PaszDGgcet/gT7rultB6s8sMODyazs8jzWxw7z/qyMDQ9J2jX0nPbmx9q/wv
A9L5QTfW/yKfr93+mzv9GPh5RtRYk/SWvMc6og8Y0I2+0mBHWmXZ1Lo1Txno
dwseDyFtbHKidymOAWx+WfiGtM2LrNeTaQwcEW2WbSDtM87vxcpm4PcGBYNB
0k8OOh9pK2LgKv+Y0G/S6Q8IgZoqBtSV1oXwLxJkn8oyCj4zEMVb806CdJt0
aEZGFwPNmlsCdpP+5j72byyLAQnG4WWKpDkr9LXCvjPgLAmlg6Q3CmTy+80x
IPDogOgh0nIWK2nXOZhwm1H+oEH6yJurr6xWMdFpbcNWJX1+sdbdTIgJCYVm
jgOkr+vt0NSRYOI695NCGdL3o+7xqcgwMf2JskOUdMLgUNfO/UyEP3Q+vop0
7v6jqaLqTDwYzZGfI/fT4J/iukaHidNxiVQm6b7Pyw6xjzOh9F5/WxXpOTHr
VVPnmJgPqFRJI73GsaKDZc3Es1yx1UGkt33cnNzmxMRKdbs4S9JqKwJcam4w
QZz9MK5C+koyeDNDmLClh7X1kud3ayqhLfY/Js4bq157R/oplhLDXjBx0Emq
zpt0Ga1Y1fUDE0sabc08pDt2ivFYlzBRGVjoV0fOz/cbPl/MapkIiV0xf4+0
iJCaowqNieVc/NqL5DzKW8Uo7xpi4pZfp8j/51Mne2GZ2AQT1H3yJZak3QwL
4thcvZA68sapiJx36l2FzzW7evHzzb9PdMk8qK1t5Hqs2Ivm1GClHjI/6TGX
lc01eyFenyxpT/rOu0eJE6d64R20scaHzJ9a14jbxoBeJKxsu+9B5jXdyu8V
K6QX1z7zeI2SeRYeX09/E9UL2RrPgvOkpzi1jx5+04stOht37ifzn747foND
Zy+UTt1YzCX7Qjj/gKECqxeKEVn3+Ujf1WzwX/reC8GKLc6WZL9kZ/72OMbZ
h9VD6QZ/RwiEUGSYDOE+GLwOc1w9TOZxNDCbR6sPR1a3G98k+89b7nODo24f
nhTxcEWT/ZjtLjLUbNgHvl9Nm3PI/pRYyhKJPdMH0aODr2k0Ar/WMQL3OvXh
wiWe1dxd5PfVlU+dje4DXUJ9MZPs568BgS4l8X1wcz+4LILsb4la4sGW5D7k
V9uGuBLk/WViU/r9bR+GRqrFdzUSuHrl8Y6Ayj7cqTJzcK0hIBkx9ivjRx/q
jE3izxWT+bnsl5Ez3YcTv172i5P3icWBf859WuhD6XSUTO9Hsi861AqpXP3Y
YfGr/GwBmRfxh54Twv1Iv3TyoEwOgXWZMtMK6MfKem0+1VcEllfZfqeE96ND
Jn+3DHk/pvz3K7Yush+Sd73cHoWRebILM2iJ6cfWD9qdUyEEAlflZbKS+yF0
UnMpi7xfl05w2y8v7AettKFrZSCBBUbSkH5fP9iKlzwVPAiMzfcy2+VZ0M/x
Hnc4TSDfLrxCX4kFe7cKS0MzAv6dh9IoB1nIrP/zaJcpeZ4F8U4ZOiyw0vdK
MYzI8/E0/3PrAgtR7k3yokcJPJ/pENkWzILZMfGB3/sJ6E0RZm69LMROBu49
zUfgn8u+Kl8HWRg/fIzWvJLsw2ZZsQvfWOiiq1jqrSDgkR0ycHSWhUAHpV97
uAi8cDnmJrJ6ADe42f6t81TMjVeFlykN4JFqXnYw+T6V8u1TA/+jAQyUxZW8
zKPC+dnxrQ5PB1AhGzZWk0OF8pEBn+roAXyom981mkVFQ/yqPbeSB5BT7tK/
LZOKqRPnwkcLB6CUCG3vBCoOFcydrBoYgOeT2JCoe1R039nH8FYdxNS+8aR0
Myr4xV9NDA4OQqB8xYFTI43QPH2HMTA6CD5OXQuuoUa4hV9qZP0YxGYiYPvb
fvJ9mXPjq76FQbzj3xfxu6cRCcPBFnS+IeTsPdvlQzRCLtuBaFUYQviO+Y+r
chphpC33uuLuEJb/4E+z9W5EqH3elcRtw1gQELgqx0m+b2u+Hrzq9xU6kpcc
Shj18NhflStcOQKei9/+PMkg/9+8qwpp2fwN+6xM5C2VavHboS12580xiOS+
CNicVo3dh1csXfn0HbcL/jYZrquCbtJmu/cbfmDZNdvievUK3BC/tKX/wgSi
siWfztiXQfb7qdWdRpOYJWhX7NeU4J+1k7xVi5MwjTpY2ltSCG5KbNbWuCkE
K6x2NL+XC0eFT90rDX7CKH7LqLN/Fl4fs0osnfuJO79Efdd+SsXs2CaB4ahp
DJsdkosPjUbeSd1lkUdmwOSJvsMZ4gA/vaAXucMzeBm29qaVzGPKZoZ+V3LQ
LP6D4HDNaBJFTflupMj+OUQLeBc5u7+jXJBo+sXZOocLXw/F2pfnUmYbwljX
A+bx94GIr9RIESWa28LDdNsCitePa4bZllH+YeYlcVUtIPhA16Ops5WU5b4B
Zqquv6D9pXDsdkINhSPDIou1bhEfd40KtBbXU9yeZ4Wtq1hEnoz3QvxeglKy
O5hX0Pk3WmNit/WbNFME9d1kA/n/QHF9Ap0220Kh72lu9S7+g9ej4XGnq1sp
2QnYNmjxFxxfeZhevu2Ui1lKguJLf6G9w1qo6kAnxT/oZQA9cwnJ19mvy4W7
KW9HxGP5DdmYXJ298nhfDyU4PsiSacyGQs6zH2dHeig2puPS70zYCD1bY2Y9
2UMRKy7ONjrDhvzBhhRvDhrlYbh5TagVG37DO0zfSNEoV5ViplZ5szH2j0TX
zss0ypa7Qnor0tjQ++ajGcSiUZZUbq3pTGfjivqE8otvNEr3+MCXtNdsNOxW
y/r4k0aJOPPhos57NgJu7xSf5KJT2LtM3YOK2ZjOkJ+12kqn0FvCE5a1spFh
8TfE0oZOKbw3b93azsbwYpxP4DU6JfLgpZ3JXWwUhF36luJBpxikyuVqMdmQ
/SB1dOwunVLkRdQHjLKxYt+5H76pdErUHsVwk+9shL/qaE9+S6e4suLMNk+w
ccRfXL0hj06RMbzWWzbDhveHnrsba+gUbs62lIh5NvzL1Ow0P9MpfXkHHSwX
2fgSqVx3tYNOKXZI3iv/l40H/DWvHjPplGeSq2fZbDaINbTln4bplP8B6uCJ
EQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$5187#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 2}, {-1.3986219993144335`, 1.228376040136257}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{3.749478562349998*^9, 3.7494786411472178`*^9, 
  3.7494789273138533`*^9, 3.749493872296062*^9, 3.7494939635205727`*^9, 
  3.749494140395084*^9, 3.749538889547037*^9, 3.774073770079743*^9, 
  3.7742839275444183`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"f46a7a27-7f6e-4c24-9458-e96233731dab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF1d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB1d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muM1d", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", "Black"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.749479487925056*^9, {3.749494016465605*^9, 3.749494017391734*^9}, {
   3.7494942125637836`*^9, 3.749494266246729*^9}, 3.7495389099683313`*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"eccce6a4-fcc2-4113-ac98-10b4d8626a99"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwVlnk0lVsfx0+Ouq6hRAlJ9Boyq1NOhN/OUBlSV6ZUpgxJlC4VKQ2Eok6S
MQmZokS4L1c8SYM5Q4YiZOYcnnOec8zyPu8fe+31WWuvPXy/v/3dW97tgrUH
H4VCGSDb//vUG27rdrmnGHr/Hyg41LbLWdrLBcEFZ4FAOZJXP1XdkZOLAvUO
y5+3SF4fW/ZGsDsWvi5puSqswSEVi9m+Vi4JFG536Qvw4aA+4/5g1SsN7L/d
btCg4tC3/tnv5a4M8K1OCnvCj4NC9p86i0tZEP+lbBXW4XDeINB3bnsemAzu
W9AQwOFtx8ALrnEBiEs4nHARxGHRx7KX7VUI/o5Fht3CODxf0xs1Z1oEn/wL
hBI24GDS9EhxtqsYrrwx/fuZGA7jiYfec71L4OvBolB8Mw7R7iuniKVSuNJQ
EfNQCof2pbNx+PZy8C97bFItj8Plz7LaM0UVUDZ+191WCQfpxx0NLONK0Oqo
ljdWw6HK6Z4X89s7SC5h597TxsFNFVGnvKrB+cSOXA0dHPiWglu4IRjcOMHZ
raGPQ8eA7Tau6Xv4YufyJsoIh6sFQuWcrhpIytCKsz+Gg3ns6DrO8w/g21pj
8skeB5mr723Y3rXwo+0iI9oZB8z4Cj6z9BGC9WaY4hdx+OPHL2XW9jqwWVce
lhGHQzf2LpA5XgdeqvH2Xs9weJmd+GGqqB4Cb2L2Z3JxsLpk5Txp3AgvKvuk
pitxiP+zIn7MqwW299281jKGg9jTL3zsrjYo28vpQAfYkF6f5j+1vQfOW5cF
Pp5hAzexVLU/ugeE86+HZS2y4aBXw1DbQg+cjjq5M3EtB5jUOduK9u8g31nb
vXUrB/YZWOlFRfTCR1f32CgTDtwXcidCuL0gdqHZLdqKAz97ggouuvYBLXbw
+zkHDoRdzpJ12P8TpLs6Hcp9OPC1cJlPeaYfDmaGseIYHBCDP51ENAcgU8Rj
rW8SB/YrxelFuA/Asbf1E7IZHHjAzSOCWwdgk3Z61Ya3HNjz6JuHW/4g7HP0
dlFo54DTVRej3sFB6M5LCKj7zoEI5ylZO8lfMJAbsfPwLw5811jTbRb+C+a3
quW14RwIrVc33+U8BKZvVQ7JChOQW/SPUv6TIViUPhsUK0ZAW6IRVbFxCC6W
+qwdlCRAwcuhUlJ3GLim54tEFAmop4ZpUsRHYB395Km8/QRwJ9cLBZuNgGIj
w5qLCNjWljRGhI7A/YDj7dIHCbj4vPD5GHMEdhRR5ZeOEiBh8EOs5dMoVLiY
1Yu4EYAUPGcOr4xCl/7ElK4nAd5C7IYa2hi07w6mGJ8joLJnXXjZ8zEIfRdf
xfQnYBR75KrdNQZz8Z8+xQQSsCFXxvClyDh0tEqFCgcR4HZ591xq8DhU3P6j
OjOUgOjT79q3FI3DC3v97MrbBJSaHH7zaGwczEr/u/w2nAABcSfvcJsJ0Puz
tczwPgG7F8dNV+9NgLczJ6gthoCTg3/vCHo/Aff+OeFjyiDgdWHUj/Oak+Bd
vBxfF0fApNhktLnrJERqCEiUxxOgfNnccGfcJJTJ/JUcnUiAe8/LmbWfJ+Hn
ExFzk2QCnusLpQ8tTMJIjJXFQAoBvWk+1u/Vp6DHZ+WDSyoBUtRGaprzFLQ2
9vR8fEaAnad6aUjsFNj7Xyne8JyA2LpoT8ePU5Bup/+3YToBzeqsLfvmpyCP
53TAOoMAIcaRus1qTNDNGT5gkUnAYeJVMHGaCbfUniepvCAgzG69eiuDCbSj
2r4skrFyv77XH5gwWvx7ID6LgBWZlgfRs0wIzzeUUsomQO+mFjqnwgIWMHVT
SL489JB96BQLThg2eM6SXHwQz1B8yIIlb88P9BwCZvKO2VBryPFV6/92Jlld
pGjtIJcFGfXfE31JPntx4z9VytOgIZlt70byi3b/s08dp2HqlWibAcmDOm1S
wTHTYPvshiqFZNnk3Q322DQ8y95yJ49cz3ElNmQvMQ0lPz+t6JIc70JoiCvN
wB+BepVF5P7bPxzvxx1mgB001C9KsqhyCaP5/gzolPGi7MnzWt7bZFRQNQNn
Yrx+hJP6RLICiCj2DLyaZHNTSP3ccs+10chcZeiKziWR+lK+S+dnkLk44UHh
u0nqnybUcGejKQ6JozV7rdIIMDS4duqmEw4GLdLF/KRfvX5qe2eu4CA5FROf
+ZQAybb7o40vcfC1yN+UkkRAGVW/en8tDlF/aDOJBAJs9jITXvbhoGMWnrOX
rJ9HiZZmkaJsmI2sNAqIJUC7fll+ToUN4uvinfzJ+mteKlj0MGZDYaxWp/0D
AgSdRQqML7MBv0O1Gowi4I5i8/rVH2wQDvsdOUHW/w77G2O+PDaE85u/2nOd
9DtSE+tdz4E2ZXWxc8EELE898K84wIF54X6huAACAouPdgTmcEBGeql0zIuA
TcOrBcMYByxGw7si3Em/N78JP07mDLfBRVTclYDpq6L0XSKk757OWlMnCPCC
1iTmJQJ0Iq9MvjAn9cuYrfhB3qvznlmsEjIPEvlleutJH2xO0ZOKjAj4Uucp
m9dJ5pDghIm/HgE7bZYzPPS4sGBt4S6sQsD4WeWCn2t4QOOXG6zlI+Bmg2VT
kzQPjH571OatcEBS89J0JY0Hgpvq8kLmOWS9V2qnePDgkEVmA5PFgbzr1qX2
dTxgXDJJnO/iwLnY61VfGbNg4Zhn0JLLAT5eRn913iyYOdR6p5J5m2z/hVJY
MwvJat11jk85UC8jbhzDnYX+bcG+mQ85oJaT+9nMYQ6MZAy0/QLJ9+Hf9q81
2+fBpvhe1rwBB/xGVIZKXi+AUtkT0eMf2DDg1CPwvm4BeO5HlS9XsOF4d6Rm
0/AC4JQt3RFFbNjXMBY0Ir0I5vfPHLuSxgZqUZaoRMQimF68zogMZkNiiLzh
FeclOAWH7t7RYMN7cakkXdEVWG/fkmYVgcOemC9Vpmor4JToh3mE4JC97urw
XwdX4PLrtWG+/uR/YKFT61zICohPd2kcPYmDXX/cp+TxFbinU5V8ShOHyZei
3CXsNzR+1lu1z5wBQfkw5f59FLRifXWSIz0NX/Qfad0wpSAZT2OZ3dRpuOvw
jL7NmoImrra7nphiAR/jv4dO+lDQrXrfAJd/WbD4m+nVlUpB343uf7J2ZMFU
r21uC98aZMeW1e9+zITGRGUVrHENshB0WR7kTcID0QbVdBcqsl4z4BUaNAbl
9G2lVn5UdO1I7+vOE2Mw7HQBlq9RUaSxfYKE3hjsfyVuY59ARbXf9R4dWxyF
cbNT10WaqSghKYevMGgUjO+wWoL286PDPp3OCgEjMM/bEGgtsRbJr93zzMVh
CNx+2FRTG9chVr+lRUlNH/h/DHO7oCyIOE+euFTgtVB0Ufi4pJkIsjnilpby
paY6/ZrPpLa9KBrsTMU7Tg1U305b/ovL3IjGbfn6TfmY1ZT2AVQZLI7cIGf+
ogC3WinA86qN6mYU6OeykD+6WD3MS7ATeieB6vJs+GobKJj5yLnrsf6SaMOZ
mZVrDH7MapihJisrjSaNHwZXewhgkx/cbn55tRXFneanOW0WxjQ3dm4zdt6G
6MgoblFSFBMEnmsvIYuyU7cqSm4Uww6xHOd22Mqhox5npBPQJqy7xn2No7o8
0jfs4MZfksBKI2ud5HjyqDpE98iLKEnMc23gQHPzDnSa+vHgVLc0dubStVLh
5P+g6qhcyorgNkzLS63Z0lUBnX7w1YOyfzvWIqYuFKiriAa+Nm2TaJPD/n19
O0WdqoQ2pLSOes7KY9fWqB5r7FNC5lGWobX0/2CCvcGH/UqU0cIRH8XiKwrY
SLZ8XFrITiR2sMt8IksRi9spxV9uq4IKs7TN89hKGCPZ87OrnCoqzN7+cFl1
J+YYd7pZeEwVXabF5Pi7qmDzJlkLaVVqKLj79oexUlVsaMToak2EOhrbJPOu
bVYNyzDYtbXJVQPp3n8UpWqngb0KD9zopaGJCGqD/pl0TSzC9owFlaeJ9FXv
DCyNa2F7e9PzIpq00LXhb2nlOdpYokrKqyYLbcTKefPY79guLBSLSbQo10ZO
ljq5tQK7sSNbbbPqFXahTbM3+vSrd2MH/D6f3Bi1C9lOiPph52hYmoybQiNv
F3L5Up6wVWkPpvAhJ97q5G7U8lwz0bxzD8bQqFFtq9qN+lsp7uphezFPgr+1
TpWGAt1uakgZ6WBuRRy5qIc05Ftul3qdq4Odv3182fwRDbV/21f8dE4HCzxe
0iX8mIYM/pbq+3dRB4vkBT5gxNPQwFJTwCKFjr3WXVhKSKWhzuH6/KsidGzh
/Wpndj4N1dma6wQp0TFGm3BM7Wca0j+lWHjPgY4lZ/qevVtHzj86HFpwko5l
BjQbH26gIe1VV89mJzpWJsFYbGimoaft0QFiHnSs11H8bPs3Gro+f/5Jij8d
Ux6SMv41REPjTQljRffomHZJsOyLERqqPoLEv8XQMb3wHwseYzSkcuGuzTyD
jlkqp76ZmKQheu7QFkigY5d85GTZbBpqvP0yvSmTjoXo31ooJmiImSIQzM6m
Y+EivzoCeDSkdIfrtfklHUsszLw/P09DvG7fsNNv6FjGTX6vikUamrObK771
lo7l/+VhFLJMQ9Pv181lldGxkh2fthn+piH/HcnH6svpWBWhtLC6SkMhtwqr
pyvp2P8Ap8IgvA==
       "]]},
     Annotation[#, "Charting`Private`Tag$6473#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwVxXk81GkDAHByvNa1TTpEGJJjQviVSvyeR6MUVhfKkWPE1DqqWdOLrJKE
zdWQJtQgVCpKk0I8j6MsgzYUQmJS7Ri506C17/vH9/PVZZw8GLhMSkqK9T//
f1nmkTd+1M2gv5t1wnQgpbaxk+p8mBoJ9hTlro5bsRItvayNo1KTQJsTk08t
sESqnIqHij0c4KNuqrmym45u4BQdOep1QOztflrVtx+ZjB9LXWLygLR1g+Sz
uwcaUL35z2J3AbAKTiUV8v2RfvFPVvMLRcB+yd7tdzoThdiyQ+d07oKaMkUy
JCkUPe76UDhDvw/iGuMuem1hoflg5/5JZhmQX7m0nDrBRvZtVzZ86y4HQ/Nx
f1VujUFfuA51Myf4QEw20rJ8Y1HysR/e0wtPwMeGw73j9XGoc+F45oROJcjJ
oBgf+ZiIzjRpm48/qgIFwjlwMe8y0sjoEozRn4OQ/t2ZlyJSEYMGZUaZCEQN
zDZF23BQxH2lyqnuerD8dnTK/i4ucuR8kp/KawAcKVeOKjcbrYuoc5080Qje
asQcM2XmIkz/78T4wgtwRK5tp5NaHvpP37DhmE4z4EEps3lKIerBNWzxl2Zw
+2jYVqBdhEqKuQ2jj1qAqiQh3ndTMXJhufiK6K0ggeJX2ed7B2X9VJX1mfkK
+DWofMmYu49W5P65bLK7A0iGd77ziXyMFlQr7p6y6QTlB3rdFfT46GPsrf0T
eZ1gNKxJzG3lowpmzM3xE13gcE2uu7thBfIkNlt/XXgDYl7MH8mdeobyW3in
R3V6gfqzwvDCvlo0w31CG0zuBUIHPVz9EKHdTIGwQ9ILNt5Ie/iWjpFYZs6t
qvMdSMzdZRevVYe22bpYJyX0g8bnB2+n9dWjv8oWlxmOD4IEb2t11/Mv0bkW
E0cLXyFgK2u8EPi0o9KypL4QMxH4Kk5VuKvSg0QrRMmO/iLwq4mjPcu1Bxme
cSSNMkXgaqhDQUROD8qzUcoXSkSg7pOH7w5aL+I0Jwd5vhgFwj/aDqQ5vkNn
hGmTDt5jYD33jYxRVj/iKQniKLsmQHgxrST23gfEBK+vi1nTIF37YFbssxEU
NmIs5JdKwExGjNjKZQIp6l40HNwmBRmRlPCmjm8odbmAlu8nA/PFTpyb/j8Q
o88VybTKwwu2wfpTZ5bh0y8uMk4aKkLxb8mqDkfl8aNTyofU96pARsU+jpSR
Is4/GywyP7wc2v0hO+MfrIov8BYPzIgpEGcMTfPpFCzV+QE+j1KDXsFC6ztu
atggPCjClbYKlrtWV7BvrcIfZ6+5K9Wshj/2jCVWv12DHUd+/Z1zWh0KR536
InZrYJeP6Ru1tTWg2H7p/b6n67CogXH+zweaULqd/j5NQQebUd5q0X21oGrf
CDtUQMWKYNa/f1obBkSVON+Q1sMOY55zem5UmO+F1zx3X4976o9Je5rowqEs
9erIEn38JLHRhzqrCxlY1vLy6AYcJMf+0N6uB1OnK5amnQxxAOvsE+Xs9XD5
cGHRANcIb2JubHf214dygQHmNcPG+NUKEyX29g2wgmYu7ee8EVeXXsgxkTGA
Owxii+zzTfBZadr+1gEDyAn8FHpotRlW7I/aE8Y3hL95X/l7VeImPFKsm8mL
NoICz58PS7HMcabRWtlKN2PofS9K2s7cAqdnBzX5U2kw6Rnt/T6hBfbMPNqu
/JkGLWrb1ppkWuLv9kUSXu1GGFooyklwI7BwZGdEfYIJBAI7lp3SZlxga6HZ
5m8KeVktv9x5vRk/iGdTmKZmcD+6E0okb8EJbgFOMrNmUKtFQ3OnvRXe0p9/
N6FtEwxYs+WLmcpWzDXOedDmZA41a7+rDTVvxedwCtep0hx2z3ypzbm2Df+i
6VbUom8BI8/2lL1mbMd2YU1elCQLuMrzfna4rjXmrWPot85awFTZxSWXSWus
33A7y8XLElpflXBP8HfgdNN6WketJRxS+PlJUbgNDpqWfd1MI6CGrErBrt22
mPFoipqURsCgbzJZ7xRJHHLh0KLjFQKm25tEOqqSmH2I362cQcCyXVVhVRQS
J86yU9OzCEhZI30lW53EpdslC9duENBWWrXcy4DEkrqlt8X3COhn+vLYkB2J
0zuUUxqbCCjX1RQ7H0Hi7Fuhxy81ExC/55WGRJP4Vng7fY+AgJzX98benyNx
xer0eUE7AeX3eBQ0XCJxv6fa8c43BNRhDY6kZJLYULiWPiwkoCbTrmvDQxKb
86O0C0cIeLWft/76YxJbx/dJAj8TMKRqbbzyUxI7G954+LeIgC5cj5jpGhKz
gqnak5MErHAa3FsvIHG0TaykfJqAI6e+Glu9InG8ynBX+CwBo7uV15V0kJhb
duvy9+8E9PA8bcXpJXHBeVlm1TwB507yfeQHSHzvQODO6EUCPquUuh71gcR8
vZda5D8E/MR3HfkqJHHttIFkaYmAWoOl9IDPJP4XxqCPCQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$6473#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVk3k81fkXxm2ZJlIoYwlXiazhUrjD+dStRKYSSiZLsqSypMhYJjUalOyh
MEj2JFkScj/25d6vrKEruZZIZLn2rZ/fH8/r/HNez+t9nvN6ZOzczjlwcXBw
VGzq/zPpbztedfsE/d98zog4PW3Sr+0gGV8g/QX7roX9+7UqAn7WV/5DIoVA
sm/5lcUDSSAQVfJ6W08UGHf2nXk1nwZJ+LH0FtJTaKPWjp1syQLlKfuwn07J
cKu/38rkSB58FvhvY637OXRli1KLCl7DDT1Pl0XpbFiS9k3PvVUEhZ0DL+ao
L+GAxa48AZUSWLlu3DfjlA/K5+7m7mx9C8eIyP0L3W/A8B4bBTLLYCzeoGrO
uQgcJ0gCpgYVEGq/fom9Wgw+SUqfM9PeQ8fq1Zhp6Xdg60pt2S2GwatBSm2q
oAwknB0DhAsxiEd30iepFSBSKjstZ1AFdoqI+7sTDRq2OnJ3W1cD16rPhzk/
DK096o1cQ9XQOWAuOXe8Cmi+PIv2djXg/ZLv3Wx3NRil7yrJMK0Fo6ivvLMp
NYAaxttG62phj3eV2YxzLVwY+Rm6T7MOMPXO9NRqHcRGq16R21IPvzAH5Sel
m8DSwE6R178BevB7z4mxJvh4x6RioL0BcjLia74XNEOm91B4/v5GOO1x2mac
yoA2VxG3wOpGIFko5H3jJ8Bidim4iL8JZvV4Vse6CJiQWNBSMWuC2F/LYked
PoD9qGgkYjZB0R0jj1uiraBUrbNnXbwZEscPi7H9WiGFo0LkhEUzuLYKOc0e
bwMWv6tbKb0ZLlA5BDxy2iDKOjhznZMOqGSyaEagHboz+MV/OUQHocRGrpnu
dvj+kJsVF0eHVYGSbPffO4BTMDXwUB0dhu+lnZ1O6QB8Sk+wcZoOJU5//zfl
3AmSVkfuTh5hQPKn68fdWjrB6/260hMnBgT/cXHih0YXsExE7S88YoAlWVP3
x2oXHCHfEDtDMICaIcNysf0IQj6XEp58Z4Cy2I7gydqPYDeMy0S3ErA7dE3V
RaEb9Eok0cBeAjY2vnVNPO6GnELn12wKAaM3u/1uzHbD0UXXs5amBLQO1+6b
ON8DCTvY8hLOBJReeNN8vbwHEhdyePT8CUhtTr75XboXenl/+tWHEzAXX6z4
JbQXbttMKog9J+CEE32ofbkXUtMHtRPeEPBUi5VY7/gJHuHWE2ZVm3/gXjQv
6/gE3qy2glMtBEA7/45XiAlXzsglBvcSEJWytzE1jwmlF7mmBIcIGHHVvvdE
vA+cSGpWP8YJ0NY7rRsS1AdXQ4IdZGcIeMRnz/ab64NctxPmZfME9Pf+9dL9
8mf41nbIqGSJAPWscAf7ls/Q/7BRU2qFgECvdCkLSj8IDa/3Li4T0H2svPtU
Vj+k7D3adXJzX1G4LQJ2fwFejv3PRDb9/FlfDcn3v4B2z7qn4/RmPvlrXPJT
X6BVzTtSb5NHCH613q46AAJ7+GZTBgmgyMXoBtkPQATzku+TzXvst0v/xpkw
AP3bNmv3gYCwuWy2T9sACN+Lmz9Ws5kvU7N17hcW6HLq7/y1hABWNe2lqz4L
mBWu2e6ZBGzLMQoZu80C/niyQEAcAZqRXQ52uSwo3l7pTvmXAGtv26N9LBb0
3bP5lnGLgCCb71LnRQdhvMrzTr0NAZ9UOHsMHwxCTh77oromAdy7Q4tqygeB
8mS7duAeApTXRCL1ZgdBxTsSPeMm4G6zspG6zRCENZQuSbYwIKvgrVzukyFo
57V5GFXAgPb4o9z7GUPgtV7N1xPNAFkniwpRnWGwPMzqGDRjQDN3oCqH8Ag0
2qbcPN1Eh7lxAT4fwxGoW6hcS02jg2T701H23REIeuBS1O9HB/eU/JTRiRE4
vJGTLqVMBxE9ptCH+q/weSDmH66/mwHJOk6dXP8KNmBMfDvTDM58M/Rq8ihQ
Tlz71kJqhope3gclKaPgLhjHm0hrAjsvjcUknzHY16Phd2+mEV7lhzBvqI6D
RfW9w+cPNMC40Hio0eVx4CjQ4T00VQ/yXkb6B2LGIYw3JdekuB5SfudLHVoe
h2KLyHNHoR6imkIdLeu+g37U/UY1ozrwGgqfMbg0CcziHls3vRp4c2L6+f7w
Scg906dVsFQNU9lnzbirJ0H8XPQKtbAarroLvq2U/wEfZKTXbOWqwXI9yk+L
/QMWx1texPNUQTIf/R/B49PwL3vRmUV9D/p6vpcCrKdB5yPvsUfpFdDnqqQ1
dWcadolFrS9tqQDR9kdfGTnTYE2VypGvKYPIeGPD4J0z4G27NLTlYCn8s79F
4CdzBi5ZCjJNW96AE7Q9nfBgA5g/1Ir+lAgczxfKmI/YcHfU+tirL08hnmdP
X/MLNuysd7z7YSAWGpscpbI/sqHGfl+SdncEHDBbe+6gOwcJXQbFlWYeMHZV
/mU/5zxc2FEcLJsRQ7sW5V/ZGrEAtlYNCgVeb2iuIwpDRa+WweBqwzV9RgNt
wLp3a1XTMtQGJU6/NWmkmfYEqxLDyxAelj31vLuRpk0f/WtEfAUkgBpAH26i
cRek7xQJWoFnE1lqljwMWryfjP4dm1Ugz8b7bVFupVUJiz3V2bkOC7m2klcz
O2nbZALlv2hzoOTF/E+BGv20sJ10xVRbbtQ5prHiNDFGs2Oa0bgZvOhUaLF0
otUs7WZdoJ2b/DYUXVhKb8heohW485uKGm5HaoVZvrGTG7RU3+vjahd2ol2R
Ew8q+Lnx/eQ1k7kJQbTHfPZFQhgv5ugYQBU+wig+dVStWGYblrvt6G2muBvF
KAW7ecgJ4OH5uPN870WQSIKoQimXIDYaueYfdVMUfZzNMA5REsanhyOUpKTE
UWq+8yehi7vxeI1dQGOeBDILWCx0d/kNqwp+lKTaSCJPq7jM6HIxvA3mL/ex
pdCTrNb015MS2GDScnGvOQmZuKwruVpK4Z5qe05LZRlk7HD+StAVEi4OrrUm
zcug5Mpl5YYQGey4xXOgpWUvomT9olRF7MVXPHyL+Z/tQ++bTm99zSGLDzop
tRhflkXlejxH4tT34w9CynyeOvtRyH0BrZwAOVz+6n6CMrcc4lM42vz7e3ns
y6l4lvFZDnWlmhLXRBXwtj6fk65F8sjUwPAa5aYiHsmQiUn2O4C+Z/Wwjpco
4ZgDYjzvzBXQ1sP+CzbiKjjimWPDZZIiKrxzoVDomiq2jLFq4R9VRFEr9oqy
JQfx0rH05eRKJXSdRMr4FKGGh0aOelcHKSOHIf2JKYo6fq6nLkFcVkEbe88x
FxbUcd4DT0EnFVVU7ZLntjVTAweZXznFPa+Kck86TrLNyFirLzU7iDiI0v7s
EecV1sTxCgl5xCk1ZFbK7Hpbp4nv4sfxp96pocm4xHOVwVr4Dwnz9GZZdZTd
yJcWbXgIH3Ft+FMwRB1tje4+k75xCCfvsZNlzKsjY8LVW7/2MJatyYw9/acG
UhpR6WD5a+MIlWrF9koNlByUeX1KUwc7snnamhTJyEeLZVW0poPtCmZJIeFk
ZCG9zDhYqotv3DddM4oko9t+PtQ75brY07Somz+ajMJmVFsqK3Vx8LxnWEQs
GWkOKZBO1+niVzrLq3FJZOSuoVXi0q6Ll6t+fszIJSNvru3Zryd0cUQ7/+Pa
BjLqtlJNOi5Dwc/SXK7+20RGjMdPYsNlKTjtdgv1JJ2MzroupPXKU3CJSMQK
vWWTT+G/FRdVCu6zFL7a0UVG5XOmcXEUCpYfEqMODpHRmCER+sOcgtWKfKRe
jJCRi8Nqrc5FCtZ9wFx2GCUj/0VewQeXKNhYPun1t3EyivTNH5a4QsEe10lS
MzNkVLy6y8fInYL9fr+3/IZNRher1s/G3qLgB9sHO2/Pk5HJRjFl0IuC4/PT
Hi0tkVH48GNjH38Kfh7A41S2QkbvBHM86gMoONfE4ajfGhlxVoa9FAqk4KK9
9ZL6G2S0T1l3xTqIgivZcss/f5KRbHLOn7kPKfh/FAXofw==
       "]]},
     Annotation[#, "Charting`Private`Tag$6473#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 20}, {-30.90385840434384, 1.2283760043034495`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.7494794933394127`*^9, 3.749494022949692*^9, {3.749494221946106*^9, 
   3.749494272926999*^9}, 3.749538917160681*^9, 3.77407377353303*^9, 
   3.77428393089631*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"9cf3af46-79ef-444d-b41b-29237232ee89"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2d", "Subsection",
 CellChangeTimes->{{3.774073891701742*^9, 
  3.7740738924509983`*^9}},ExpressionUUID->"bce4b066-7294-4ab4-beb1-\
ae997279bcaf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF2d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB2d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muM2d", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0.01", ",", "4"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", "Black"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.749492868620201*^9, 3.749492875154636*^9}, {
   3.749493816876486*^9, 3.749493840921315*^9}, {3.74949388190361*^9, 
   3.749493883139786*^9}, {3.74949403374743*^9, 3.749494042331338*^9}, {
   3.749513369047613*^9, 3.749513370484125*^9}, 3.7495389381743803`*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"5919751a-2f9a-4458-bcd4-9ca039c49085"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwd1nk4VGscB3AkqTAYtIgsJZXk3jZK/U6rNkKiGqlcRAtyuQblhojKdhMl
LTdLIsxgZJ9j3xnDRCJbyjoHWQYzue/c93nOc57P877Pc/54v+/3Peq2Lub2
YiIiIv3oEb7dbR7tGvW+D4v/DwK6yrVxtZOvQOT/MQ7YWEWm/db3UKQ88//8
1Bm3ZQsfUsH0csH/Ts5UtY7QTYfDexN+CS32zV2C4pIBCgV7BEKnP7Rvlz9P
Aw+V5/NCi69a8D+aTIPzTS94QlPiI7ZReTRoaFucFjpzu1Z7ynE6WGXETQot
WVjg3/WMDtb4Qa7QNsfNtskO0aH5OGNQaEbr97ZDBplwWDurV2ipq3f8PUIy
wfHFSLvQtmNy25I/Z8L976KNQud6vWvr2JwF6uMPcaFJEvv9pb2zQNCwkia0
wz9sHaw2C7hHeS+ELlR1bHNbmw3cI/QAoeVTBX6J17PB3CTAQWinPU902vOz
gTqQcFhovEy7bcVKBuye2rlWaCXTYr/9FAYc1DMY+oV8q/OsjmsqA/r94jKE
Lncc+vR2gQEHnLfdFHrttK8f51QOHH0QpyL0bT8FHcm4HAjp9y4VIGdzbMvn
JnPgblLqGaF5m+nWIyc+QkivYi0feZ/v4lTnm48wnWC9XWhftnFo4+xHaLEl
7iwgl2jFbcRNckFURpI2L9wPn+EiemIukKzeV8whGzXpW8bzc+Hc8pf5POSH
mg+4UWfzICHE7dEscoMnJygoJQ88qXd3ziDL1muup4rmQyi1lT6FbKHm9tHp
fD6IKJsuTiLHuONnKBn5cGciZPUEcke1zOBpiQL4VfmFx0VWVbl078ClAoBF
mxejyFdvp67Wyy6A7HWj80PICRVzNPWVhSC4uVb+B/KPNcdPkG0LQe4LfOlH
3uIc3SueVwiM766mPcjOpd+8ZkhFcBq/d6MTma60Q37QoQgED0S12oX5ve6X
8rmoCA5nHPFqQdZnNh2qUygGLx+KTSNy8bWbf6aXFgNoS5WUCvNcmL/yzRom
FIuFbS9EPiq7PCHSlQkNpxlyDORgOyvDgComkA1tLqcJ89Npfn0vCYd5sy2y
icJ5Ce/dWXtx8HzppxyH/F7vXzEdBxza5KKo/yCP3idiVYpw4B2LXXIXWSZD
6Vr0IA5Knn2qt5G3f96/g6RQAmxOpIMdsukS+8UHUAKGZp9Ylshu2x7Xidwo
gT82ZJw9jhxllRXjFV0CMk+53/SRc/w6/pgsKQHl/H3e2shzHG1+/+pSkL/R
GCQuzJuIabX1kVLY9CR2cPwXAYZbPKM4LqWQYR2o2Yl8z7dCp6qyFMIPHOSl
I79NHuXBZClMbQnxiUYuY5MrclXKwFetN+UOssQm20sp7mXgYu3bfQRZ2yxk
s+abMmjxc2jQQj7hQ5t+UVcGGmuT9ZchP276FRqqUQ7WIq+sygSoL+Y2XpQw
KYfaNsrPV8gsTWOtv73KIYsR0klFJlNfFLuyysG0J8dhE/LOt6UPhxbKQc7C
hljgE2BZP2Rpu6kCYq7URDUix6rpE2d9KyAtbELcGVmtpnX9Hp1KiGHpaEYt
oO/P3nRptKgEMVHiiDUyb+NSpv3dSng0GXdTA7nZf5dNVGMlUP4SJCbPE3CA
3pC2dbYSLvp8jXdETum2F5SurwKPtuX3tJD9DaPjJlyrwE1kJPXFHAHc67qj
wc+r4AtFatAc+eLzyn1qpVXgnWT6ZRny7zMzHSbkavCcD8av8wjoz7Ba84FR
DTkhR73Is2i/vxKOh79WQ39C+dWPM6iPpIJzOyRqwF5gyDiPHOWUa7X8fA18
KpGjPpkm4IjmmmiH+Rq45Jt4a/AnATQz+oBAoxZ6fbvT/kJed+/ErqenasF2
90dZMeTpTq/WsrhaeOpvpyw7SUBSdIe8OtRB1ssRC8lx1HcVbra51+pg9GlV
ni+B+uTniswzEXXwfk+QYIJLgJXpPjPf3jpQ1TAWbRpDfb0iLvxLQD3IGoqv
sx0hwF1/Z7fbh3qQPOX4vHiYgB6Het0VnHq4Jbb64yrk3DJ+g75WA4zTkhjM
QdSndy9JRVc3wG4b66mBAQI+pU5Ttk00wO/7ryZrIR/qCE0tX9MIJ8P9y/74
hvK7p/jkz+uNEOGtqdDSR0DtuGqIqXQTPNIbdAjsRv37+7j/0s0sKLA+dnFH
OwF2FDqMGLJg0w+ar2Eb6of7bnyWKQvOsfuaDn4i4HTblEcclQWkgUPfsFYC
/O7MOe6oZsF3zw8nZVnovFaKnbl6rRkOTlydIyoJMBgvW2nk0wyW/2ak51UQ
ELQmsFonvBkcjFhGf5cToH5z2SFeTjMUQ6nirxKUTzmpXeESbFA59J5RU4j6
mKKoXJTIhgcSvQNP6ej8B35qe5vHhvPLnNXX0QiwTo+JCm5gQ/czzeWv0gmY
EVkrYzHNBoMLh5qjUgnQSVIVHTnSAm2Zq6aNEwmIHt/0Y/W3FrC064fRGAJu
Bu7NctfgAGtGD2q80P3R47R1hT4Hojbwxp94EiDY9zz+tTEH+BsWDC54EBA2
OfuklsqBwBNpD1tcUX4uM9zVmjgwox7HC7qG+tNAb3e9zydIcz1S8uMsAXe4
G/M0OW2wZ/7npRBtdJ+dOPdb3nAb6C496pewkQDpxPvvTUTa4b6BonK+BgGv
KP3Pvba2w8O/u2mt69B9Wf3Gu8mvHRyNCy9VyaL7KF7Z0Ef3M0j7Tse9neXC
Yys5JvtBBxw9sHjwtxIuzO+co86+6IDDmQsx7UVccJTv/X0drQP+OlCk6pPP
hcMNtCT79g4YtDDH6Vlo/SHTMJ72F1htMHNlIJELTrrhl1Rrv0BJybowhxAu
HFsqzXeS6oJZ3byF1tNcyO6bYoSpdYH7YGFw/3EuaOCdLlk7u0Cs6jfK2BEu
CLw/9POtu8Cks7Jl0hCtHz9VF57WBUrVwVsrdND6zoexDJOvIO0lYhi8kguL
mZIGopHdUOrvdDesYgwcS23SOUndkBgVgyXhY8BqztZMKeyGSLZ4bG7BGLwd
vyJzdrAbXBaWKjbQx0AzpvM2e30PcEQGzBgvx6CqdafRBs8e+G7uo3rffQxI
pgMTVRt7wS6AJLlRdQxeHztmRAroA1/ztndVV0fhStuNx5WhfWCb8NI3jTIK
ao6RzXef9cGrn5FeYedG4U1IJ2U0rQ+mOonegyeQ691ca9r7wM57NtFZD9n8
9fMA3X64he826hWMwFsb3sjs534Q59id2fV0BJL+Sono0RuA2Pt+G0YYw2A5
oioXS/sBr332MFgDg3Dz9YXFkw7DcO1Pgz9F077D1mcJG76NjYL/MB0buvIN
2C2Rg0xHAiIZxZ/iub3g8k4jtEZqAp039sgZra9w8sH9g5tMJmHLPcWhbx7t
0B5U8+Feyk/YsCqQ3jLWDB3vLl/zEZmGxsHX8xOWlaA3cnf/dZiBltWnXHxO
ZYKByd+1Fs9n4SKrakSJ9I4Z0yL5545OHpgFLF9TrV/OfEf1YEvvnYfgzAqj
CX02cyvs8AuJXAAFRqFRgHsHU1zb69RcMx9U5Gq30nR7mRF6b+vttv2CZElV
ikjMAPM25axT+e1F8GHznWRYQ8z+lpSUPisR7Gn6A4kCKS7zR4gK/4q4KBax
oHhP+coEU9HMgnIhURR7bdDBLn35k7kumf+06awY5nzRyFl/9QyzK9yYqrQo
hulFagQEPeExa4JtHdteLcHW52sfYHHnmWFyQzuUTotjYiXx/TbBAubd1B3S
TWPi2IV9Qx/QDzRT65NW2PnHS7EC7Eqr4V5R/H3Eo+HL+hJYjYpLnUWUGG5p
nW3R2y6BGZV/Xdr/ZQne+dEktidoGbY7YnnTwOGleOiGtLELmyUxj/30wIhn
EjhPPXswvloSk+FcmEoeXoYbZugwb3gsx66bmm7ovrQcTzF2ik9TWoG17HLz
vFW4Ap/0WfXHrYoVmBL357IPhlL41F7nWoHrSkxZ0TpoT740rrYyBCTlpDDL
Dotz/eokfOMNxYiIYinsSTfbZ/ycLH6u0577zxVpjPrGIoRGksPhq82U/aI0
1qduwKZWyeFirjWcnFQZ7LootisnQh4n5HnlfqdJWClZ97OeCRnX9cktOnOG
hD1ccyLK34yMO/dTc1TMSVinx2WXVgsyPpo19y7PioQNd7kFUilkfNBi4eGE
LQlL3zugV+pIxnuif5le9SJhxnDPnxJAxtlrl3ZhSSTsnfowPzGXjMsFVHBk
3pOwVxF8+kIBGTcdCWzsTCVhXYm0IDMmGW8skMCpdBI2njYZJqgg43XWkvG0
QhKmkx+x1qqFjJe/Wumk1kLCLgTWKstyyfiSZfVXuRwSFtueWnNtgowfcnl8
sbCdhP2bLRbDnCLjOEifPv+VhFnKSkS4LJDxoh6Z7RFDJMwuU2mBJamA8483
bbIZJWHuCVYJm6UUcEN6uJoOQcLMD/Bu+pMU8Hw/WfnqKRLW7WdsvVNJAZ8b
Yq2IniVhv3L5/qFrFHB988gldvMkrCBTpOb7OgXcM9+M/5uAhM3lWOpiagp4
joY8ihUJU5DhZz7XVMD/A3Ozhmg=
       "]]},
     Annotation[#, "Charting`Private`Tag$7329#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxFznc01n/YB3CbrNsoq8iIVEihKHV9oxJJVkZW+aWQQqlIyYjKvJUoKXvP
21739/O1905GhCTZlD3y/J5znvN7rnPe531e57z/uMSsHfVt6GhoaP7+m/9t
F8sApenHz4Hm/0664ri/16bffx6U+PGNz+PVfz4/ofryjFfwf2Y/8ehOk3rY
/++rpQlRrU8woShwj34ztFx52cN+yj8a3tiP396HU8ob3tizfrWJgXYPuRsm
NW3lDzPeWmFMsZD0YUsvkGayXKKGyE9MioXCxFR9jw/01PbBqR1sGnHgFsKo
cNt5N/XpMp+V03gcrCu+cZ5bPEI9SFLL734RD2y6XSeowuepPfvv7DgpnQAB
bWcmkutMqc+xd5Yx9QkgT37BtxTmQD1qWpXHaJcIylSPtMJzHtQh51mW2zuS
wNbldXYsCqYG+gtatqcmwY3tvegU5yeqSvzZPCWtZBBUadzdZZZB/VnmyPJh
Mhne5k1uO/0sob75HGlBE5ACB+Yzs4QXa6nYTE2uzaFU8C0Q2vKt76LOMC4w
NzWlwlGxY8eSPw5TI0X2WMg7pIELo15KNExRNY5r5L5lT4cu/fKzin1L1MXL
95g3MtKhX5u375A0LR5r+9H82qUMINcnPVh2YMV1vOopNTMZwBS1kJuzwYtv
vP/DdCg4Ex56hdquFQjjKbki5mS5LIgaj6k0K5fErzRpUpZas+Ck8BelHoPD
ON0PFyYzx2xoPMlgvl/tGG7yt012mDkHcoqwqs9KgGf52/TymORAWcCIjP+H
czgD/4b3uZQcSKW7HFdJvoSbxZNlXVdzgGvx001dGkM897BUb9oFCqQyuevF
1l7FWcrLvAffUUD7x3oc4Ndxywt6slwTFDC6OCZXpHULL/j8s0dNJReSAzSo
Pdp3cfbrT7wfvMqFJ/F3Lx71v49bz3DLpvTlgmp0NJV92xUvdkvu6T+QB6Jj
vHMvSp/hJKZT3hyP86D453dP9i0f/ObrThmsMQ+CsKDns7Sv8HIR2557Qvkg
relYncUbgvOkb3kl2udD42qdUvjhN7jd8TcyvaX5oNq4rvtPQAROVEn3sLIV
gPHPU27XS6JwPl3c65RZAbiHrWw4OMTidwYMZJzSC0AitnPkOFMiXm078SVu
owA+1QnuOXAqFRda8vDqvlgI0WzlAcelsnBnr50yLFGF8Iy9ZFR6moLnd1tX
r/0uhA02oeY47wJ89QDFfEqzCESGy/7oZpfgJz22FwdiisC517hXyBfHPTov
BbWuFEGHbo6LGnslXiEVJUnoFIPnfdr6IajBGdwnqZTEYjgdVBF/daIe12hT
NorfLAYL66z+gF0tuL/Ei9kwgxKQXSqaFppox1sedfv5pZVAEys3iTGiC+dq
ltjrSlsKP+Enp3HUF9xQ9F6RnUkpxL+nbbSi7ccjXIjLZtmloDnOLDzdOoj3
13P+0mYqA8YwGpV9zCO4iLCF52mLMmCYIGhib4zi153TBeTzyyDW5+IoL+NP
PKFmLUeMrRxcJRnejM38wscFL2jyWpeDt+X8PmLfNH7wbvgIQ0k5XFPWEgzJ
nsPvVv5wWyZRgVreFw2NCziFT4Hn100qFH6mUd2e/oMv2nul9VGpMKFmmWKh
vowroza1pp04sJ1WV+tsX8XxWw73sypxWFkYnnKL/ovTlZeyxQgi2FbVfbZn
kQad49qREOqEwCGmOeN1GR16ecNY1acOQZD5hpN0CgO6OaBvf4JEQHaY1+2l
Mib0kunxsbwTBMxuxb7bu8aCUuVj6WRuEnBUy3+j/zobmn4+FylMJWCJUawo
0IoLcWbz3Qr/RcDdc8IUiQFudLjvlAJpZwVkJJ2rkb3Pi3TpbbZfQAWEufQq
jUnuQvdkA5toblcAvLy/23+JD4UZ50W4hVdApJqlrPWoACr06v/nd0UF+MWW
vyyeF0Jr3dKbowKV0Jn98aiU414kRKNbb362ErYiWoweLogi1YOPwrodK0GS
Tymt7pQ48vSokamrrYRiPv5pdy5JFJcyvQq/K2GW0L2j8U4KVXXy1hQLV0HR
4dUZPSVpxLTf2iLNpQpUhFSEWHIPIWm9VwckYqqAtud7xIE3skjTPWfpQ1MV
0IxbeDwIPIwC2/4GBYlXA7/UFkl97AjKWpO8yqRTDf+knhGzYVFA7RKXpJ65
VUPFLf3c3SqKiNf1A+7UXg1Z3lsXGquPIcW4Sv+JjWr49MiKw1dUGRk1TxhZ
768BU62NfNMAFRQpqjxn4FEDYW/97/eGqCLRhs97j8vUgkkCVft+9hkUuOLg
2GpYCyLLG+rTwWpoVZIR2TythXfdSoGXHqqjDm8ly7DWWuiMkGK1tTiHTlNa
Mg+t1MLQex4/J4vzKG3IZqtybx3kycT1bttoIG/V8KgFpzpoPvnXQDdUE83a
y02/fF8H4mHkVqt8LXT1fe1J0co6+MN/k/p6+CI6urzcr8NbDwsSfANbhjpo
NNtYMKOgHsbfTrtw9Okh3W9zturf6oHjROFD1VB9VM7+srifqQGsFRn93uoY
oDC7YuMdJg1gbvhkgNRniM5KCIbfXG+AuvP0BfsOm6AcPcrYlngjLJ+mO5PA
Y4r2eGoqvb3YCL3Kb0K/bZiipQG3z1VRjaDfs36sYcgMJYX384hBE+hHVksb
zVkhnpp71sW3mkCG1175vNc15PGHNfcyuQnmjOvd6DivI2Pdk3oeI03gPjKY
+1feGrGwRoV89WkGsbmqjdGPN5CLsuLQvYxm+LmSH3HzjA0avtksx9rdDNmv
t8Yv/LJBxVWbLcpSLbCX+7KpFnYL2T21YA+vbwHPxth4NiF79CV9yUx2oQU6
Wys/GffZI7X+oPRqwVZ4UOD0VDXqNhI6jmv9sW+FEUffgSmZO6hxXuSVLkcb
2JeOB2ifckJ8R+e9GQ+0w4G4jgH9n/fRDTMKTKm2Q7tDYDJx3QVRnt/bbNdt
h5vd4ZwCQy5Iu2fxQZRrO4S6Bn0LGnqAvJ6s2SrUt4MKR3Vq/8ojNF1Ld/n6
rQ6QtGK+TP/yCVKZr2LTcO+ATcPDKdIST5GfoG+9TEgHzGoP8JsTT5GYA7Pa
amEH1IsOiyzRPENG3OxKIUydkOOa/fZ1iyeqMNu1m5rYCdKW+Au/SB/E6ful
J67kXx/0SFhZ9UHmWRFhL1s64UC9YNFTk+domUaI03CpE8IodtlNQr5IJkmE
dupsF2hp8ZZ6Z/ih8Pn94wI/uuDGpBTzPIM/cvA9keci3g2bkiOCvbVklD9s
d4hVuRu872wMe3GEoq2T7+OjL3XD3WsfiF7DUBT8e+VNo2s32LQZpQWPhaIc
qwIX0bZugAr3aVHSG7SoIn+s2f0LOE469zD7vEVPZiVLJLp7QLHE88zn2UhU
rXnlSMlkD+hdtepxvPgBcSQ+T9Wh6QX/NpOP5Skf0Cez0fduh3qhmpPrh51N
FCLqYx63efUCvcHDCzvHPyKG+N2q7nJ9oLk3Rf6LbwwKNOZGnS/6oXA3+/DU
dDxaV1xzXfnQD31fz3o+FE9AtjwjR/fk9MM7AZmdOiYJSL0lJ8mmtx+eUfrX
R6sT0LqabvCq9Fe4fzdqPjU2EdnJhViINH6FrlEFkQi7ZHSekWPTjn0Qwrju
nM05mo7yvy8WBIsOQq/rEZc653QkTgw45ikOwmDIqPZBSjraepwxumk+CDIn
X1d1ymeg/PmLTSGZg+DvcV8jUyETiQ/4RxbofANZx1V4opGNtnNZVGhDh2B8
Im9nYBcF2VZaZnUnDcHAVfWNlnUKau/Il0grHwKX232HT4rnorj5a5wGv4Yg
cF+7cYRzLpKIGHDu3DsMJms9Tld48lDdZ0WNfY+G4YutJPuQWT4i6Y4t1EmO
wNgPH9TDWYSiz5/XIPl8B26HcxWVC+XoWs/twNqg7zA9wMMWJk5ForahHU/f
fQfmf5wUAg2oKObVgNl05newEvCany/41833nBp6v8OgzNl2/yc4itGPfu8j
NwoX/+4bfcxCoDjL1amVvlGYSXeoPJhegZIeppGH5ccgfGbtjoF0DTKaEuGO
zBmHV9zih6i2zcgh2nRb6+YkHBEMEtxK7ESH3iXs+zEzDZsHozxkT/egzq7Q
X8h2DgbCvPWLxQeQY7J4UAP7ArBX87H2Tg8jrRfPz+zX+Q3T8CCAo2YU9fo1
ZHim/YHbLqf28+0YR/3JVrfcaZagidHES91+EslPPT1lD8vwK4rvNblwBqno
PGs0fL8CPqcti1yL51FEF8t9hYFVsJcXoxd88Rsluz7o5DixDnEOC3qqwYvo
ECh4vQrdgLOycx2iH5cRg7TbxbWOTSCzjO0yiVhFZPm45huyf+EKQ4isZ9M6
cjYzsKt23gZVu7+KzL820WhXWtp3YxpMu0fdx4JpG42/Et68xkCL1W+xEhw5
NMQuPUMz00RarGPPHbuRVlpiT8rm2zYDOuxYpsTxPez0xGDIJVe+bTrs3YXQ
M1WaDETDS2vbnk/0GJfFzr22jxiJYO4JBT5tBuzZcIfz4Wom4mm6AkfbDAOW
+dHly/o2MyH1RSrYJJARK8WufVY9sYNIJQdMWikzYfXCjk2GYayEkXm+4Ugv
E3a++hvj6Fc2YqBIJ3LYjxlTIu9oG1PnIIL2Zc6YHmDBHp2i+JLfcRKrYvm/
4utZMM5u08WUSRKhmi2Dbj/YgR2Xln49l8VFpF2yi8/kY8UmhUrKjllyE7/d
+f+5U8OKsa+s0RuJ8BCLJ+42bjmxYUGsclW7B3kIUbZXwMLNjh26k5a2QOYl
JG/vIpNxduz1UKf7/JWdxJUBm9nX1zgw1xjDVzmkXQR8s1y02ebAvoupdLrW
7SLonBq6C9M5MTtaTKmQzEfM8axWe2mTsEpeuT55HX5Czr2YevkyCfMX1Azz
1uMn7o66Fgrrk7D+B1aOnw35iem8teQSYxI2OXjP19WMn/hluOG/YE3Cck6M
yVfa8hPD4X91r7uRsEvg6W3mw090CjEOYkkkLFVscjOxmJ/g9qnp5kwlYdHk
TcpGGT+hO+XbOpBOwoYSc/z0ED/RWsZEuFJI2Hzm7+CtGn6iyZwlPqechB0s
JQsZd/ET1Z/Y7ES7SJipb+Nurll+gp65+fpsNwmL7E1vuLXAT6g5Bl4t7yVh
cfl0EWiRnyCAQ9vkGwkz5mIiO27wE9RhzsPkCRJmncu30c4iQGxeaNtvOU3C
HiYYJxxgFyBUKSGiMnMkzOD0qoM3SYAo9eLiqV/89z+vS+aKfALE2kQ7a/gK
CftbvOkdJChAKOuH0t9YJ2FluTQNP/cIEI9K9TaPbJGw9UIjOUxUgCgU51na
3iZhOzk3c99LCBD/A7L6/nM=
       "]]},
     Annotation[#, "Charting`Private`Tag$7329#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVlXlUTf3/xSsapLrEvZJmTZSUDKG++0iIimSoNIo0oQEVKRoMpVIkw5Mp
REVCA6nnnkiDxtvtnnObRw+pVESDht/9/XHWZ73W2uv9WZ+993sdVTdfG3cR
ISGh34Lv/8+TzlfW9J+JQsaTqFiVpKfQLl4XEz55EY/2yiQNV6WjdWlPGyss
GgYjcrXGI5nY2mt8eVN4PBLKgnSOS2ZDakPQscrNSfDak25+uP0NjvhUL0qO
ugH5Jc08u7IckClLP7h+SobwVj2Fhxm5ODlTy/qz9Tbs+WuvrDicj9YSbVJl
xz3oXXb8MPCsAEZ/wrz7Yu7D4O7Den//96i47i3Z7P4A63VWS5euLcTST2TO
k7SHMPnodsr+bRForWNzNmo/hlOKQa6EFQli4NNrd510dEP3zdTIBwyIDotX
VqbjzKvBPsMtH3FHScFJ/2gGlqet++yX9BEjuwLE/z7PxIMCsUamfgmevVZy
TNDLwn1ho2upjp8gUfg+ovXWK5Rif0lxfBn8wxfqSqTkwXvXu/lGvpXI4bmV
jP/Mg3Z1Rmzf80qMLXvl2Lc9HwdXae6d6K1EWL1VXM1oPoLUCm0M3aoQs/TS
j6Q976B021bZxqIajz+NZ6vOLUQB0ytPUqQWXxebb1/gVog9g8c3+a+txfLj
yZ2z3xUiVPLFQxvvWrxiGcp+O1KE3ist6rF1tfjX4+iJrA//wlStVCzCog79
UYN3FItIWKo+fHZXjAOZlyyP5G8k0n8RdZMKHKxsNDFkLCxGApXIVDfkIGBF
bKWQTzE6XoeurHbmYJynPdkt9wE98Q8ib73hQEzLzSnj5EcYU9z7EXvqoVLR
oLxOtxQmbmTJC18uYkeP+tbsLQX/7hnfnjAuxjRE2e6hpbAoWrz2TxwXnIg1
zkk1pch0Oq7yPJOLCOPklGG/MqzepR7s+YWL7pe2i5/nlmPWtqEmO5sGWLcN
em5uK0dQz4pEZ5cGFEpdftskVoHpjE+am482IMnrre0cuwokBpuWpl9ogNnS
xclHJipgYDQe+zOvAWnJTbKqqAQ9XNd+dwEPsp8C3N56VGKiY9v+dCUewn5J
vt6VUIkPGbpFyct4sLXeuDussxLEaY6UHHiQkEy52hxZhUUHUn3eefLgFeok
lVxeDZPuTod/8nigMn87rBiuhqJHdWwjmwfTprjMksU1SH+ov2GynAf5df/u
+OVdg1lah+8NNvHweUgp2lq6Fp7ZRpHXpnhgrRqKEF1Whyx3c9OvJhQOO7xC
n3EdRFMCftluofAqKmCyzroO9RHfTLMtKVjSI6dSguuwR9nFUM6BQvjZcU/D
8jqk2Z6NLg+kUPOkQGNxi2BeO8P5dCgFhdqQrunBOlhWqObLRlHIU512+LyI
gx1p/MMzCRT6S0V2HfTgwDfR6tHHdArrhz7O3RbCQXCO87X3LylcXHyhXPcq
B3G5ZHNKLgXVo+KmY3kcTNr0dC8pprB/vtSaq2L1CElXj5GhKRQ7MJcUPamH
YUBYWPM0BZkLFJ36rh7GLrkPTs6i4Zh1M+lydT2C5pjfGxOn8UdIXmbv73qY
+NVFFc+joZumJNxnxoVes88Re1Uap2vbi+rsuLgyVVdpoUGjdOzBmbyjXHib
XypYtozGQYulI+FJXCh73rj0TJ9G8pDWV7keLjS3vFfJ+R+NnsW9j6ZHudh3
wkVW1JSGweYM1565DeiqOKlvuoVG1Q3dppeGDbjgFUmEW9AQ3mhQvTWyAVJh
76oX2tLYefhntO7NBkiHXNxUYU8jJe7NVtnMBgwFSoZ4O9JY27GGbK1vwPV6
pegTB2kcvbDhzUk1Hv5LUWKketPI6fDSkTTiIeEH90nfURpTG28/um/Fg3Pn
LHNlXxrxP0evfw7mYZ3mQ/EtJ2hQVlpSrvE8TISJ7l53ioZy+v6o3494ELnO
nVoQRCPbJfekSi0Phs8L6NgzNMYKevpze3gwnvRduewsjU2she4WEzw8vV2O
7FAaMf6bWzsYFK5sz1BUO0ejvipgX6AGha0DnNaw8zTktVOr526kIDXBTSoN
p3EokrPloTWFtB8KtuMRNEbW66+tCqFg7ee3U+UCDeMbLlkHEymQaxIyF16k
cWEoXnM0jcIiQ7XDIwKusfj3Xmwhhd9szhX2JRqspwMstXoKpc3qawMv03AW
Ubya/5XC+5tnA+WiaTx1shS3mqKw/BzTNU3AQ29DznXJ0jg5LS6mEkPDaGHm
aJA2jQPl5iEXBHzet8lXWpBr//r0ekrAFZ/nfEvdQ2O4kFZaeIWGrOZ6VyMv
wRxt1wATAR8I9+RXh9GoVnvebiPg1Jab1oeSaMwJmXV6r4D71pWVj6XTeBYT
a20q4NXX/xDxbEHP4i2DFQR89ofGu6U8Gs0i2iLdgvtKtu8zePedRuF418wN
AUs/iUrfKcSH/SnVyDUC3i+Uo9rD5MOkyONuseA99xy6b5/W4aPzjbzrBgH/
lycry9jEB7n8fMt9gR8rZU1jHu/nw2oNe+lPgV/Bx/xFNhzl4+2Zjq0GAibL
H5ypDefj7sWa/U4CfyXU634evslHnNz+w4GCPHafm/GeeM5HZIDm+bNRNO40
6XVf/cCHRRqnwDeSRtcaZwcNPh+czip1a0GeyxPjuAUDfJws8KtRFOR9or/Q
wnpWI7YFjZfxBf2Y/WiJcYheIxi9Sn0sQX8sp3fkzDNrxG7D9NV3QmjcsD+j
m2bfCKb8iPRcQf805zUqcKIa4fX7bFZuII3jPhI3jtxpxLwVnKTBkzTyS9dJ
T75sRK70gu2LBP02D02e0mxuxGuR43b6gv4n8D+dKhxqROGxGo7qMRqNhr8H
dos1ITkrc5+wDw3v73vazho0YbWi3duYIzRibeez6y81QbEsIqpcsH8Tq8eD
R/9pQufHmEX2B2h4ynauUshugvqvdu8mwf5urs5Oc+c3odfG+/xLG4He1Dp+
TLsZY44STx5vE+hVjMwVTZqRf2U6uNBMsH9TyiKmu5uxoTjY49MmGq/fDp66
croZCssa2RkbaXjpXXVS+tyMPX7f4kr0BPq5QYs2tzXjn93zjhzRoWHW68zx
+NmMy+/as8a1aKg81tvySr4F0odcC0dUaPAX1+ia+bTAZbNsr4mg51tFpSe9
pFqRWZzrrfGTQk7XSG68Siv8N8fJdQ9QUCNbfN+sboVilxb/Wi+FqTPPuycd
W7GqR/xNeYdAP2RRefVFK37k/K8zvkagb4m5k7uzDXMKRzbHPaUw81pivXBi
O/omskoTdlHw/OCcxUtrR5uQ1iO17RTqODlLMwrb4XLJyv+JKYXUIVeZPd/a
MXButlTYGgpLb7b41yt3oPXlbfuz8hTKGlZvUw/qgIzFNoW8Th4Y1l+GyzQ6
MaOVXHbQnYcS2wTd1/qdKPqz4z91Jx6CXTZ6pGzsxM/1t7Sb9vLQeTyxxW93
J+YIMzYuMePhTZxJ2eLQTrTKRceMqQr+v5U3UnwaOtH8Fdu1mhtwf+vWbYzI
Liy0W0nFb26AK+0TWxrXhbdM7mTD+gaoeCZyQm914XlVxgcZ/QY8iG5x6H/R
hXy1QHMnBQFXBfhV8LsQMX+1iMcIFw9s7t+O1OtGRlPbJsNULlKdx/pGG7th
pnNxsnWkHmmBGQkd+l8Ax+zQ1iAOTps/D2zf8AWXAkft5I5yYCmf5dhm9gUJ
yqmft7tyMFz0SrvF7gsO5dRGJJhzYCz6jqTPf0FF56HiF3Ic1F8vG6qp+4LT
Yx2ETn4dprN7rIv8/oP5yoi4+0212N+nNP9O9ld0Vy24aRJWhaP37Wd2HPkO
MTcnstG6BDq3Hqv3DPRjelXClkm7fNRzE7+xPQexImR3jPT7a/B9qhZXITUM
d43e73n7X7F3XIrapLXzJ9gZlQy5vI9s/sWK5+czfiFBzv5G7IY6dtNTF48Q
od9Qk4o6p9hEsfX7Qk288QcujxtKJve1stfvPPd57+1RROZO25217WLf5Eqc
MGwZg5iuYaVy7xf20+BT9dIbJhA0fCFgXn8vWweG4dGJf2G8yO9j9cwAe7b2
aYtxzqTAhyPpjb+H2An6qVWHV0wj6JdTf6nGL7a/wx6vEv8ZXDSz/5D1v9/s
bm5GRpetEHHs/otjRfaj7K/RipOus4UJRsKFEwbZ42zm7r0O9k+ECWY1my3U
95et8GzyRu0eEULedNL/tts0u/WqVTBrRoSYdXfbqSfHhMiKy26e9L1ZxFfH
z2Oad4TJ+Pm9hizL2cT07IDw0i8iZGimoXTtwGxCe4XB33iV2aQmpRlvFytK
MIXvUp32omR6wpXvLkZiBNPhi53oGzFyv2PO3k6+GEGa5PoUjouTLfk773Rc
FCdWK5V0drnOIePUXwzYL5MgnCYzRCtzJMkx1Zxvj8oliC11U7Z6YlKk8Utd
ts+pOYSX7MV5GcHSZIaV16MXLEkihvgoeZ2SIX+GLDp07JMkIXzH7tYCnXnk
yIbjn6f85hKvb5pVR/fOI1XmRkNivhSRMDzcL3d3Pqnhw0xI+FeKmH0pLajm
oCy5r8X9xzVXacIs1EjbaskCEm3OI+4z0sStc0Zz+PULSBG/Cl5epgyxXXPu
P7x/FpKDsmMl4ZYMgtkkpLPInknqhbwt2rWLQbSJ+PV7ODLJ493BeYo2DGK+
pnjNWxcm2f9m/Ok7WwaRSz8cPnCESX7b+zdm2I1BzPEyKnhwgkl2JE9bHzzN
IMz/euxcFc8k6+VFW4k0BnHMufH4sY9Mcn7kJ55MOoNwTyxa+aGUSVr3Xahp
yWQQX28en7foM5OseS9GBr9iEIEtOgbFdUyy0lHiUXYhg1gXUzLIamOSJffm
eqlwGUS+5YRz+RiTnCVedfAHj0E86T6wRHmSSZr6xh4o5AvmhziMnpphkiSk
Le3aGMSfaAMZdTEWWdQhszKhl0G0b+3OC1/AIifNa7Wc+xnEudl/fBtZLNL4
1VUV3UEG0Xj5mrmBPIssCJ8nWz7CIAY4TnadKixyvLdOMnmUQfyVvnR1vTqL
NLJJnHV4gkF4zOj9l6jFIoMKdk8aTDEI2W4bx+/LWWSemuzvmRkGYfdncNhU
j0X+H7+Wpgo=
       "]]},
     Annotation[#, "Charting`Private`Tag$7329#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.01, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.01, 4}, {-6.034766003259865, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.749492876578302*^9, {3.749493826142418*^9, 3.749493842343073*^9}, 
   3.749493884265995*^9, {3.749494036633336*^9, 3.749494043480069*^9}, 
   3.749513371802731*^9, 3.749538939562242*^9, 3.774073773661253*^9, 
   3.7742839309823923`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"bcfa9270-c3ef-4cc8-8619-f303da06f74a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF2d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB2d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muM2d", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "0.5"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", "Black"}], 
     "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.075"}], ",", " ", "0.1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.749492904734408*^9, {3.749494054760077*^9, 3.749494055484571*^9}, {
   3.7497106973388033`*^9, 3.749710852733779*^9}, {3.749710924433275*^9, 
   3.749710948483149*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"994c44ae-6486-4d5e-b283-c782c549d255"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw91Gk01W/UN3BDSeaEKColGpAkMxsZypwIiUwhMoREkShSiJCIzPN4HDPn
d10HxxCSMZKckopoUCok7p5n3fd/v9nrs/ba37VfbVFHb7MLTAwMDB8ZGRj+
X9e/MDNAndVRZ/jf2nB8uw9dSAz+z0czU9KrheT+s8GzUfITIe3/bOn8m0gQ
Mv/Prw/fOR4r5Pyfs/hNIu8J+f/nMNZqibtCt/+zlXV25beFpP/Mvh52Tm9n
Jth7h+i32RZQUi5a2knqZsLhllTvY04lFLFhSfstXplw/P/3Sop68ajTKyIT
ArXzhiMHaymS0FI9yJIFpWfYtvRwIEpjcXJtvfQ/by62f9VMozCcD5Mv0coC
w80zRYt7uii6fJfq089kgWMaKenesV5KzNMzinHuWZCyO65z+Vo/ZeiGZmPY
jSz4o1bAePzoEGW7nKSyf0IWXHc5JN2r/YJiPyvQ7FKQBVcyX9dVT72kFGQw
qlo3ZYHBTPKayNpryufT8xSDvizQlSJr7LN9S5HbPKqmPpUFR/Tus+7gn6Zc
Qy1I5lcWuL3rzUuW+Uih+pXBXrZs4Hu+aj3X8omy6cAjKv/ObGCd+7o7o/sL
xXgyTJNVNhs+x4YwGtYvUJISL7Wu6GSDf3Cpmeq5Rcr4Ccvjn62z4fQzb+1x
298U0TVNGt0zG2QdlVc3daxQ3KoldQbDsuFGVKZnfOEapcJtWwftYTY4CHxq
dIhkJBZFmPTqi7Nh80nrkYANGwiVofnOYiIbYi2GWDJGWIjwqNET6QPZYECy
mmtnZiO61Fqf3n+fDelbM9xuPOEkuH6U6YctZ8OD4MoR9xEewqLoUY8fZw4o
MK9rhe7cSqTbhhu6iObA0gpLtj+Jn5ji9XxmdSwH5tytNug+FCT2d1kaG5zM
gVRnYbVnwzsI7xCt52q2OfBL83eFUdAuok5WylTmcg6kb+8el+wUJVY/bhvY
E5EDL08ZpTJsESO0njCZ8afmwI8dP+k7ssSJu2afBzeV50CIsPo+k+ADRP+m
sdMr1Bx4+1NxaGeFJCFAtA7PD+fA33fM9G27ZIhzvuUW9JkckBJ2DY7cIUvk
SqS8GFjNgaLIB91up+SITxPhljSeXHijuGZ+rlOekEnwHKsTywW9kgSfG7eU
iAA9K+tixVyIvffz3myMKkGsao2nGeZCg8Pw5k3zQGwgS9nct88F+W8x11WG
NQl9V8GJm/658BjtLD/y4TgRL8xs6xeVC2fxhwoso0uMDnx+fSE9F/IHoz09
G08QO++M2VmRcuHuqt4nw0gDwlm1ja5Py4UvVIJ15IkxUbJQbq82lgtF12Vd
I5hPEQsFKW8Pz+eCVd14zey0GaF47pbjHoY8yL6hyC7525y4scXrHR9fHiRN
vG0dUrckaB1Wzpv250GP2NPGLqo1wR58/P2ySh6wftu/82L4OcLsiLTLvMm/
/VDPy8Z3zxMpHwQ/TjrlQVaK3+lpTwdiMo3ZbeBqHnQIOSkd1XAi9p36MtMW
nQffAn4vaMEFYnuonrJrdh50XT5o05DlSvCUZ0Wz1edB6HULz0YNd2Ljq+WJ
8t48EEwqeLl3nyexwnpa+tRUHtAfGh3YddCH+CZfFrr4Ow8eIgsB30+XiffO
GwceceZD9J65S0qjfsR4gt0elb35MHa07vWVxStEP7Xeb1IxH+z3Kwz76AYS
7V942sOM8yHc9tmXwYFrRJOwu8A+53wIiPVMyk8LIUj6ba5dQfngMtP4Ic/8
JpEfKNzoEZcPH7dpG+gzhBOPC66wcefnQ3AexWlm6BYRP9xnQ27KB+NUVsux
wQgigml/uUV/PphGqOQQDFHENZmwtaX3+RBUXnAu2OEe4W03bpL+Jx9e8khc
1VqOIZxjjmbDlgJw+jNYGN0bR5xtivk+JV4AM2wLZF6fB4TJzPvjkaoFUN8S
qJUunEhoC8DDA2YFoH5mYS73SxKhrJ3yode1AGzXyX+EZ5MJsSz9u1sTC+Br
oJKelnMaIdSXO15XVABSmut/P849IbhWVw+dRQWQuuCkxWCRRWw4eCbk71AB
aKmVMpkNZBPLlpV9WbMFsBZL0xL2zCW+RLDu1l7/59HlWzUH84npaofLH/kK
Qd5o1SyFo5Do4+bjk9YohHt5gqLsJ0qJNjXPCwMWhTDPPGt2qbCcaPDoqPP3
KIRxX3Yjxx0koiJ1F6tgWCFsETmKmoOriNzOQOvm5EK4XjByNX6ZTKT8HCix
KyuEVG411aeJNcT9vYdWGVsLwXWgg83LqI4IDH2dceJzISzEx7k1SDQRnuXy
3+aYiuDIGtmLx4hCOL6K04wTLIK9JR8c1NIQYbV5NkFWughGI0Y9rt2jEkYK
WtMjx4tAXHlnwL3JFkLrQtqxIOsiUKvy6zYzaCMUExcjhb2LYMJ5KdZzkEbs
+VpwwOlxEbxT034SKN9FbBNhuM5CKgLdrYG7BbZ1ExwG1r3F7UXwau6CpaNQ
L8EURBYxelUEijU7HK5CH/G7gN3727ci8L6+i6FDp5+YH3amJrIUQ8Umx6WV
0AFiigltURAuBlBjtnn4fJDotfOpCdErBqkO0QClmhGiNebpRlHbYuA/GsTI
bThK1DftsaT5FoPtWwW7d2tjRNnM9SLXqGIw5PATMOwbJ3IERpbZMv7lh/tO
/GieIB5pSxtUVBeD+07i1uOnk0SM7530U0+L4SytVi06+A1xtU8JUhaLYSRd
l7Fyaorgkq59/5S1BM4+fnSVS3iayIuVifkjXAKlkUomda7viQFDiZd2OiXg
WWV8lKQ0Q7iV5YTGW5dAiNW9fSyts8Qa+07xVs8SSHPV/1pmP0cc6uHz25dc
AtlX7wxdef+FaD0YL2RZUgIRXk5v/7p8I6zusVOjUAl4e7jef+a2QEScZOKc
/1ACAeFXGFoe/SCEi0OqRf6UgFrt0XdGHYsEmXXZ2oS7FK7zsospb/xF0Du/
FpAVSiFIrnDFsn6JCJDwMJo2KAWXkLL+I5IrBMedDz/47UvhYB9pK6XmD6Gk
+1ojKKoU1t2E7yZuWCf6860+lqSXAikoJHjGhQG5bByOnSCVAsud5E2mlowo
kdY9Di9LoT9q9G+WLTM6KKYbdvlzKQRuLvcq9d+AqLdaJHIZy6Cl4dD2ltSN
6LNWgz/LwTLgXDCKvc/Dim7nHN2hqF4G1+uKMx86bUbbmSpbLpqVQdyw+ivd
Tjak15LP9exaGcwLcBfHtHGiyd2itWv3y8DKErLybLmR/810G5ncMrh6pPpn
XQQPyobEosSeMnDZuFew1owXKWZymbTTy8BLZvJO+cmtqG/t7s9fP8rA7vHZ
OlVDPvSHuKl1Vrgc+EjedpsDBFCCyOpMtEw5sJA9QnQztqH9IVfjCO1ymLt2
YEpoWBBZqHpN7PYsh8rudpYa9x1oPm023CysHFSJsDcZvcIo/I/zgdsPy2HI
I9TXTX0nqmyyCfhIlMOWLe127CW7ke72UWGhwX/zdkXWvGBRNBFk1qb/oRz+
KHH3BlrtQZuVTvJUcFWAdX/iQ00pMZSVQquj76kAy2dVlt/F9yH5JbDdolAB
xwq29VsdEkdO9fIl/ucrwENsz+Rbi/1oRYBsWuBXAVunR3+8DD6A4gOkfo/e
qQALSZ9pWdJBRBwT01YhVUC9jZzqqJoU2lazZZKRsRIUL/0Mlwk7gs7F/DGf
FqiEmuGMXAM7WZTj/L6nQ7ISGi/UR7LrHEWS/I2N0VaV8Hbb7LuvMseQ7+cc
GS+vSrjzNHzohbw8qm+PKTS9/c/OJ5M/6ikgrQD7h/ykSqCWZ8pIxSqhKGN9
jqX2SsgWA1u1VmX0TFzu1virSvj1Y1xKeoMqKpu71fCcmQSKuZvMY0nqSD7d
siDpMAk4W56qR5zTQtZRvW8jlEmgdKAgz+3IcRTsrylyVYcE0bLeNzq5tFGL
4aEkaxsS5LzUWxCd1kHTilnP9V1IIKEU+bN+Qhex7ONnV71MAnnWOeu1ST1k
+HctbOcdEqiGarHMMuojr1k/gjuBBOIjdTZKew3Qg5GZJYYnJNBwWNVKMDFE
L8oHvd+RSeDV7zb0vNsYOdgV2BZNksC2Srh2yyEzdFt/R2rqLAm+P2oi7f9s
hgrk44fvLf7Lcx5gtaw7jea5rhl4slWB6UAAdcLOAnH9+RJpx18FI9sUDhWr
n0FHPjq1muyuAsU1ToGr4pYoABspycpXgdcvne4t3NYotbTVf69mFeiyPU05
z3MWUR4pkPgMq+DLmAhD1XYbxOgjKvHboQrkq78L+xrYopjdP/kosVXQ/Oly
fjGvA6rgcDctT6mCK1oMJwybHdDA0mR0Rm4VeGd+0X180REJDHQxhTVWgV8G
/+rrUSekRKip+9KqILK7bWJ/ijM6V0wOcnpeBcufbgY8tbuAssPSv+m8rwLC
9NAwdd0F0Ty3SCp8q4K7FrtT/Mdd0QfrSNf9f6pgccpFRJHihiRlfSbZtpBh
XOxwe/VDd1Q3dbz3uSoZJlochHcVeKEXJ8IWYvXIIBd7Pbqh0Rv9qkAChmZk
2La4nvLK3QcpXFdy6HIlA/89fpM3iZdRw9bDv6gJZOjhHfwlJuKPxoIu7Qh9
QoYY57nO/B5/tEQv1lArIsPOvIQr2qFXkGKZWHQjQYZLCszK534FoEbt7bvJ
M2RwOGvNniFxDY2XWOr4/CDD3bUAOTLTdbTC89Bdeo0MzCPvjH69u46UX3PX
lmythuxyh47cxhDUdGWjfq56NayWWmrMjN9E46+0vB1OVgP/XK+IsVMYWtG8
mbTLvBpcVB4Fun8NQypcfybTLlZDJPkIFt56C1EKvvklJVWDsdsxp9F7EWiC
QzrVLLMaTh4O9LE7GolWfT0QT0k1EF3mO83eRCI1+MAai6vBOSl59q1eFEKj
r55EfKqGxMID0pdMo9GkmlDb8Z/VMNrUemHnrhi0lntmhpGhBlaKeGU4f8Qg
dZ8B2Rv8NUD9OPiYp/Q+wqydnQEaNfBEf9Hk0uEH6I3Xhs9yBjUwl0cTMSh/
gBhGNHl/WNSA5J5JWXXpBKSRTTnn7VEDD3RfpmYpJSKqEnnBNbkGos8GlO4K
fIjeZH4VEM+ugTAudns3nmTEwCKlOl1aA/4xHqH6ZclIc7Aw0r6lBsbkHYz3
fH2EWt2f7LCer4GOgK3jormPUfWsh4fdr3/3VKpFdhiloTw35WYnhlpQ2KfX
wbmahiJcRs968dUC+cPBYprTE3TCccvjW6q1kAHOuwdlspDSW/pslG4tJHLt
kU1+mIUO2lco3TethTmda9+9VrMQh53ByxTnWuBlZlUN789Gz60jBCtiamHr
Sq6pTGIuoo6ddqtOrgUtvMkvdXMeIlnuaWjIqoVv7KV5DuF5KMECW7bV1AI9
JPe+/PV8dObUcvLYRC2MfFu4whFdiCZOePIzS9WBBfbzTZcsQ886VS6wKtTB
tXCz/oFnZQjpstVyatYBv+unsC2+5ShTu9Bc0KIOMsOHNtDbKpCjxttEqZA6
eH7p9CRjJwmdxpXvZO/UwfA27w1eYlVIW/3GUcUHdeAV8lgi/lYV2qe6Y0gr
vw6+BHJy8eiR0YyCBa/VszqY8zpEqX1XjV7W7XW0Ha2D2L+8tVEmNaj72Pcq
x7d1YDukh3SJGlR6NO6U5886gDzuscyMWuR1+Gl8uEg9mC5EfY0Jqkc/xdW4
yz3rgVJv5klLbkbqU1qd9wLrYeCDQVe7DAVFPjkR6narHgpXHJcfPqMgAT7z
r3tT6+FBmYZBLzdC8owezx/T6sHtGFKdsKGiGxSfO4HP66FF6k1vaQ0VdVwN
gDPj9ZB7TzKek7sFWX4Jq9zyrR40+NL5MrpaUOCrlLioHQ1wbTRkKMGkDVGT
M/RcxBtgaLHyXGJtG2I1y1s/fqQBbE5uOGEuQkOpXZXe67oNsGuc+8Lh7zTU
VNthEuDbACw24qRfVR1oNW6R2/npPz/ZftAqrhtpG6x0ag43QPLymoApXw+K
YWG4uYveAIJ+i47eaT1IJIT92/hiA4h9lhgBUi9Sd9/Tf2p3I4zzdN3/vNiH
Ivftjzp8qBHyWwSD3kc/R31vpDQ45RthPVr2TQZvP7KzVCJ1GTSCmopYWHJl
PwrVNo2Hq42wjWP2yqWlAdS1bnFCJLwRcvPv/Bo0GkQ8zTYMf2IaAZTfborK
G0RZR1x96nIawVPILfOzxRCi7rxhKtXXCDv0mPIFng4jpuVSnh37moAcaFES
tDiKdjzT+gGHmyDlzOCEv/UYkst+OeKs1ATHu3e7PsNj6MLJTWkVRk2woHnl
U178S9SV6rhPK6AJDL9N9Z8+/grFKQspX+xsgk9azyR+fZ1ERVwk4fsDTcCz
sfDarUt0RJ3SXSe/aoKG28thJZ/o6Ps9f9rq1yZwOOH07NOVN+jMq+fG8YLN
0CMl6MQa9hYJB0c61V9shtR8zrfj1HfomKmI7oRfM8zbiV6a5phGxmI1+xlv
NEM5szTPhPU0Cu19+1k/oRk+9Ww8n/FrGk0JqwVONjWDLnDMlKl8QMXEj5iN
HBT4u43b6tPPGdT64J73QQEKrEgdffv21CwavyBqZrKbAg+pV8bnKmYRB5fJ
tlQ5CtwVa8vUuPQJ+diVZEvaUqC+RqtGZnEOya/b152uoACLyncJE5WvyNCI
Gq7TQIHrr5SFnQq/Iqe0XSYKrRToC0q2MGP7huIVJj9uf0GBbf7XxGyDvqFZ
bxuhqb8UePLFf7nRbgGlv7EI9jEiIOuAw/sCvR+ILF17wtGSgMTYpcWqOz9Q
VzAfv7kDAVW+gS9cu36gn4JD5QpXCEi5Pqb50mARGZ8ypa+lE7A6aOfx++xP
xNiqrxU7T4ApmEsapP1GgjwlXKG/CPCOX5bJ+fAbSdttfuXDgKCGNcS/UXYJ
nV3p9DPnQ3DWcJO29LMlVCOrk79DFYHC++p9VuwryCUXWEuiEfRVkK5+Kl9F
vbfl+joOYjCI9rLbacCIlbl7mB4cw2BzeX92XDgjLkp1ULDRwFBWQqPFNjHi
WxX3s75aYPjcMFAoJ8mElcdmfAXDMDj/GKOfEGDGRYeebHMfxZB2tVzIi2Uj
Fqg7aig3hSEh9t5Vcb2N+LZG9821eQxfF/WZgqM2YlLJH/+TjFTItT/cz8TJ
gqPx/snXAlQwSht+mS6yCWvNhpNYtKjAZuM1tGC7GQdJ93V76FEhftIyZbVo
Myb5Cb3vN6RCHd/T6trFzXjnWqVQmiUVbl/6baFwnw0v874OP+xJBV8zfYNH
T9kxSVXBwiqFCii+B9McufCu+Lnl4i9UcEk/3u6+lRcjh9Bi8g8qyDD7tz3W
5MV2R7daNy9R4fSe3+niPrw4/YVyQy9TC7xylho+3ceLBUXuBXwVaAEK/RgT
b9xWzFuy/4cctAC774266D38eCPtwjyOawFvNkvhn0mCOO/hclpXUgt8ZeJ7
k/xcEGu7xhoMpLZAStOpB3lsQjicrbZkKrcFMoXtn28MF8JrphsubmxogWCr
AMMvV7bjpdc57/XftADj+npOr68wnvtNnxyRaYXkqk+Fyo67cZ1rXKu+fCsk
eAsIT93djW+OqhdglVbI8ExfH6zajQXqn3gW67ZCWT4OTGASxVoBNqvB51qB
kSL3+0GhKH68+EJILKoV7s9Xk9+u78EnFp6Z+9JbYfVbtRLM78NbHUIUP063
AmnEKbRNRBxP9ksKn/vU+u9dZSekm4hjf1L0O52fraAz7vzQuEYcZ3qf9BVi
bwMLPgUVSpgE/vWZFkeVbwOx292j3FIHcN6n5m6u+21QeEZ89lCXJPZ6ZLLX
PbEN7qn07ZtilsIK2u+ut6e0QZj8tWs/QQp3P2GTCs5tgyJS6gu5Rim8YGod
N9vQBuoRXCd3k6Sxev2v07R3bUDadW161VIGv7x15HWQEg229bhzCIfI4hyZ
9mMj6jQwf6WzVzRbFl96bXVfRpsGsYHxN8+2y2IGhZvw0ZgGq32pne5cR7H4
p75sc2caXP/alcKSexT7m15yORxHA8GGTdOnX8hhLpHCr9PTNHBKamGKdlHA
GmduvX43SwOP+vS5mPsK2DfufM/UFxowu+Zbt9Qp4BeMgoVvlmiwK0/OtnWT
Is74EGU3wdEOVnZXDh4oU8TSJPdnQ3Lt4B/Iv690TQkbHZcubb3dDt5pL8Wj
e1TxjWC21Ja77ZDgY+wjsaKKSbUfIqn328FNKILxz341zLc/0xGltANxh5Z4
4o4anuDg2d5U1g7uLR65Ybrq+NKLhaiq4XZ49PxQX8xzwDEXa12yxDogMkhE
6G6kJv6kUR7FfrADBo+TWxtyNbGeYH5JwOEOuHTdHrO3aGKmzqQvhsodcGF9
11bhVU0cJOYfsGzSAWcW7vbM+GlhF7pspNn1DmCxbK/Tcz+ONS1I+RsGO2BZ
Om6C5quDMySLOr1HO0DFqmYkNkkHrzJnzY5PdIDRbLtESJ0ObiDHSVV97IBm
5Rn55ys6WJrHu9b2bwfctVTJOR6hi4V7pNrr9neC2ru48vBsPfxLo3TaLbQT
mvOXOBmXTmJK3lza1dudUJCZKCslrI/DWSVPR97tBK01L6sQDX3M1V/WkpvY
CfyRa4t37+pj8fMVGZOFneAw+DDmjIgBPhNSZWXe3wlLEdkb+wwMcW1jfS+I
doHRlxhOCs0Y+8vSagTauqB60pPRlt8Mu8jtznrQ1QVWrNwF+6XNsJV8cDRH
XxdsK1Q5xqFnhlWU5RyZXnbBqUYVrR1BZphJK4/7y5cuMLhy4fzZSTMcd+q2
e/v2p+APx6Zcyk/jEh/t3f6+T8FvaacNm50FplfQogdEuyHO4IHzKrs17v+8
YV5WohuuhB6QjjlojamSOoZJkt3Aq6vbfuykNc4qaeewVOgGu56+iBeR1tix
oCN2wrAbmuqRnwnzWfzhSVfcx6vdgIsuCuxntMGfY3oT/z7rhsa/w74UHlv8
x3047cC1HhAvWcoaotpjc3nbB9KhPXD+NrJSHbTHZYwfIo/e7oG+C7OOVe/s
sV3K78tq93tgLk74BpXFAbe0bz9xKqcHlriuqvkZOeA7ux0WA7t7gJ9jTE/6
tQPe+uKzYdf2XmAJk4niZ3HChzQ3rbk098J3dzn/4BsXsF6OqGvVtj5IEm1S
OJzgga+KnN/z9txz2Gmvja5vu4wl5y3YR4364W+4DKdSrz/eyv2NlbbSD4qy
t278PReEN+C0yr3pA2Aq0336vcQN7CHX/HKzwSAUvBJUzl8Ow6UnHbPQr0GI
enL6XrdoBP45t53nQ/IQnNn1i7/uXBSuPa3HnKQ9DB2HkpKHpWNw6ImIzJoP
wxB48/JZzBKPRV/rj+VGjIA2DrGV2JKAlRVuJwnJvoB5R+aH5ZeT8Lmdz5cZ
h17Ad64Rt9H+ZPyzO3bKJ2wUartoQpr3U3HKBjt/M7ExuMoqYP5TJx1vnazN
YaKNgQeLT72xQCbeGBJmrnT5JSxWPAnSk8jGDMV2lVO845AWfWGSjZKDfR9X
xvK2jgMnbxdHQlQeJg5FsW7xegVvRI487HMswFv0fSXDuSZA95bE/IRMEZ6Q
6h8KokyAoouYuKpKCSZlgNi03WvoSI6Xm5Ivw7aV8ltE1l7DLtZLzQdUKvDN
iOywiZJJuFDoW86oQcLlMyJpXIZ0eJpxQrfUqgpHPYmwnzSmg2jHhYR82yrs
bPZ5X8UpOqwV73qU5ViFhSkUkpElHc49NOtOuVSF78XZdMQ40kESto4+uFmF
3eRTF9iC6JB9/svtgqIqvOc234lNBXQ4n6m7+exyFV5TDOYcLaID77dGW4+1
Kvzy87vBglI6GJ3ldg9hJuN4y2pb3ap/eW9OlORykvH6QTO/CMq/udKpriVR
Mp4YiMtgHqLDYc6oK+36ZNwQ+dtpaIQOGSVndKZMyDhJ5fyB3DE6KIYW9a6b
k7FBvnSN1iQdcr8TjGrnybgp8NnTsFk6RPewbqT6kXGy1LG4U/N0mPx+Mn4q
kIwvT6Wbi36lg1LY5ODGG2S83/ASnbpIh+6x2RDjKDLewDicF/+bDo455h/8
Ysn4Ta2Ku/0KHd4NrWx8nEDGFPfcwzJ/6bDL48UE9REZP9rF/nN9nQ5/nd+6
z6ST8f8A2/FQdg==
       "]]},
     Annotation[#, "Charting`Private`Tag$7381#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAASmXo0cDpRT4ne+c/YjOJPgRDGnDf
GSQ/O2hZ11kRVj8zn5icsxk0P4yMJuRXU2Q/5BwkgXcmPj9f1sA1vvVsP0vN
17KdGUQ/6eZwDm+Vcj8kjB2l/x9JPxan4iZeh3Y//Epjl2EmTj99ize67Fh6
P1dk972SGVQ/6xB31JHXgD/EQxq3w5xWP47o5+VInYI/MCM9sPQfWT+4DRNa
DFqEPwjigqJWJl4/ezxCTCa8hz/dL4dDjRlkPxvMsd1zM44/lJ8YwCVbZT9B
vGdHzsOPP0oPqjy+nGY/gJFmpLankD+27sw17x9pP4gMgbq/LJI/jq0SKFEm
bj8OZ5TrZB+VP6AVT4aKGXQ/UXlO7ci3mj97zZfEVrp0Pxe6FOK0ZJs/VoXg
AiNbdT//GhzxaBCcPwz1cX+7nHY/BaX9i01knT941JR47B95PyzxmOnq/p8/
UZPaak4mfj9p6MjUpYKiP4EIsyeJGYQ/BzmWLSA8pz8qR5GIsnCEP+i4wp/o
iqc/0oVv6dvHhD8ZNYolVNmnPyQDLKsudoU/yYOAdhp1qD/G/aQu1NKGPzOR
y9iLqKk/DPOWNR+MiT/xI+L3HACsP5jdekO1/o4/5yteaZc8sD9YWaGv8PGU
P7NaDGnoXbQ/79tUCqIalT8N6mr3Q3u0P4ZeCGVTQ5U/Sx0O6IuYtD+zY28a
tpSVP3qUvoXh0rQ/Dm49hXs3lj+SXoerp0a1P8WC2VoGfZc/0eqKu70qtj8y
rBEGHAiaP8ZPhEXq5bc/nB7BVIWrnD+amZmZmZm5P6+qE9M=
       "]]},
     Annotation[#, "Charting`Private`Tag$7381#3"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.49999998979591836`}, {-0.075, 0.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.749492906492908*^9, 3.749494056502942*^9, 3.749710720018058*^9, {
   3.749710770676043*^9, 3.749710853797268*^9}, {3.749710926935389*^9, 
   3.749710949486209*^9}, 3.77407377384744*^9, 3.774283931176758*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"590b1885-de59-432c-8b0f-7856beba67c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["3d", "Subsubsection",
 CellChangeTimes->{{3.7740739069293423`*^9, 
  3.774073907795947*^9}},ExpressionUUID->"dac73a7b-388c-4eef-9dde-\
073f93e6a93c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF3d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB3d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muM3d", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", "Black"}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.749493232198427*^9, 3.749493239117053*^9}, {
   3.749493603671999*^9, 3.749493605068124*^9}, {3.7494937106543627`*^9, 
   3.749493755931705*^9}, {3.749493894519445*^9, 3.749493911115789*^9}, 
   3.749538979159992*^9, {3.749712166867141*^9, 3.7497121685271473`*^9}, {
   3.749712204472686*^9, 3.749712205604795*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"2d95bca4-9596-46e7-b035-792bcbf27102"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}],
        LineBox[CompressedData["
1:eJwV1Hk8lekbBvA4TWkZOw0lqZhkbaMa5hJCaMoWChGlJBHtNTqiIRQSKkmW
Yym7Y6/zZk22OmizJkpxzish+/t7f388n+fz/fO+nvt6FI6ctjwquGDBghz6
/P8W+mdYp0FqDc48tJ+iKBILDWS9e2QMEUW9tf+/tzyKiy+QsUbaYnf3Odr9
q9Yzzys5oUM3Z8M0bbOmd/kPZdywUyv74Tjt9WFyqZT8Cej+dKklac+ausa6
KHkhY6AuaZD298C2apcYH8QNd27upW3r9utZlIwf9ts8PPeWdrWBbHFV/DkY
dCz0aqCtuU43d0z+InhpwjIc2vGCzhmKyZdRYMk+n0dbqC8g6YDSv+juHQ1J
ol3Wy22qsr4GixpiXxRt7/1upg4xTIT0rqi/RrtL4z+DcJlAUIf16QFJRD/6
g1A8FIRTaQs9DGmbimTqPI+/gZwhtTw12kX8xm2kfAgCusLsZ+dJeDo55f/n
chPGrU/LPtFe20yqr0kORYONUEsN7VtZ4hsslG6hfIue2E3au+VSUr6530bC
VkF40P639r7oC+sIPFzeIL+H9lYt1XD7mEhcXKs1LUg7UWrfjZsy0TipViDq
PkficlNs9YGyaPTo/2jToX0gqFdw3aG7aE/ONROjvXzcx788Pgbn9Y7uL5ol
caEt+sKw/D0orzhSODJDwiqsq6iEuIdt/R5LK2irGyqNB7rcx16jPeI3aPcX
FPvIJT9Am6uitjRtizsfPf5RSgAz7xZXaZqEqtm6DNm6BCj+caXw6xSdN8Pz
6xf3R7im4mmcRvtw6XwexzoR72a6/dfSllKOULeLeYwz42ztJZMkmEIFf4bI
pKDcX5cVO05io3FkcL53CtKsko7p0OYGnf7WUZcCKr3hfs8YvT8M1Sfq51Lh
VfzIUYF27VyKehuXBUHxAOOoUXrenzHb5MMysMP61iVlkgR709kYk88ZcLDZ
5cjmk3DytvrlszMTpwokckE7hydSWj2YibNbhFL38UhYDgbreOx+CknDsGqH
IRJxXZcM2PPZqFWYj1P5SmLXKvuUbpscaBuHHkr4Qu/rQe3fhLJyUNHjGyJC
e/XwRdcstVxo3ZtS5PWTOH1CS3FBZy52MSZt7/aREHfLSU/dno9sxqzZvS4S
dvaPc0Z+FOKEiON1Ty4JssN6aZIsGw0m58tL3pC44SR01MqADZO5rBsM2gWu
p2WLotk4NZXeFt1CQthLN+iydhGON4vosxpJ1AR8OLjoajHmDT/+ul5LYvNT
sUWrhMrQdMtL889SEvXqNc5NmmXgXl/SblhCwjnvQvm/9mU4IPF5xrmYRHhR
j/enzDJcie1pimaTGCSyOlh7y5GT8NDnex6JhPY9eZvuVGDaLFF5byaJZRTT
wXg1B6fZ3uyhe3ReJ2ydVI04yN87XN8VR79Xm6qzmBcHN34bOdgcS+LvjHeu
Hc84wFgXmXmXRGlGDLtYnQDT15lrEUmCZzVcYdZMYAfT+pNNMAmb9NgG398r
8XU8wnbzWbrfjgHmxxQqUR8pljnqS6JP/FST3bZKqPhsdM07Q+d9Vb9F17ES
dV7HF230JhFiyeMuzqrEpomZucUnSTyb1f/4wLwKo1FlMuecSSha8AerQquR
Lt19UNqUhKy/8U73x9VY8IfG3QATEqJZiaFLi6sht6K9bdiIxLSQlbpFXzXM
J0ecyw1IvCaKfbu318Ak3SZGT5fEJU3m/ORADdr7Yl9+1yDRLCIpqa5Xh89m
X2RLJUhU6Z46+samDkZNkiH9YiRKTtYW+Z2sg4jn1oHfRUkk112wL4+pw9xI
ptvB5XRf/bsSTHh10Cu64PVxIf2fkCxl1/svoVk/q3BunI/zzTsQN1aPqN3H
fqxo50NYnT1QL/QKZqxl9eta+UgJ1wybWfUKDuHCVWpv+Hhj/ucHp92voFMd
u0qniQ+VBklfxZhXWJfaeVC/ho+eOpKVr92AazEZuWOFfBi/SBVuutSIjquV
9vwoPlYUinULCLSgsbkoVnEPHw5hM9b90i1QHpV0vG7ER5LbQEOtagtW5WR1
dhvwoSpVWhpq14Lnwpwlt//mQ/+c812pXNprRqXatvChFW/LitZ4jQL5luYR
OT5cnFiO6d2v4XJO+pnvCA9FfQaNLTpcRGVn5N2/xcNbE+aPcGMudhX6iZ8N
5WEi+7m0uSUXibynunuDedC+vMPlpTsXywv/+znB5KFEQmOCiOLi8EqBbo2z
PJQayq7JH+Ti73rZUu1DPFSwRnyjo1vxirWJkajIQ6XHw5X2w23wH/tU8r5g
GONKuiJZp97BOPfMHquXQxCceiK6UvEjrCObsjzTvuMv49GlzMEOzPis+Zb3
9hu0KOciq+xOkIvMjm+//A2NgVubazf2YOWLCj/bHYOQjxiayuD3gmqw+Oby
/AuGfvV0t2v2weDZ+8mpXQNI+V7+SvjWZ2jYKbfEhXyGsFwa2d/fD5XIDztF
nn9C2An2scT1X3DGoUvg4FgPJvSe9B/3/4rI81P9+mQH/DZXF0pXDWJCJ39L
vOB79GRXh75R+I6LxqIxL+60Ysaj7YHypSHI+d8sEJZphsquxfPHyoexZOfb
4CS7GhgnKbjnreBj4sod7zmJYpyXO7z2kwPdq5B9LG1OBFSHbZa92zuC0Z7y
bqXiLI6EyIhQ9fQIfjCbOhYtq+Qs5DzIWRf/AzNlAWPdWxs5J7eWf1hiNgrW
177N+zmtnCd7jiQ+nxhFhUbCZQnPD5zxIVnRLzE/ITohINrQ1s1hWxkzog3H
kGi2TG/8eB/H3yToUeGXMWxz5vYN6A9wFLpM3ycHjaP0iepkxMpBzk7twGiZ
zRMYNQ3vDNEb4jisbpkSaJ2AzaP3Wpk6fM74q/A+b+YveJ2ImvOrGuHELXTy
s1w/iQKrS/bCVqMciW52kmD1JM6aBuum9v7k/HaVab3DZwrt+R9+GMWMcxZk
OOX0iU8ja4ApEbH1F+fM/Zxw8cppqBk7dZbNTHKeqQQLiXnNILy3ZYIgpjli
pmdUA4RnsTJv7dVSz1lOp9rr1osVs0iykY4L0J/n5CZgfb/THHSGczc7z1Mc
xxwtMbn5OXB/Fm5Q71hAXAt6zOzMnEdc0+75wEYBImtQ7oGwOYXj6pvebcwV
JIIfBjl3/0OhnR3yeEOhIOFmyVPMtqAQKyV5X6lEkFhVUZG715aC+1S21DpC
kLh5+1Bt2BEKBYWRWqtfCxLHte79WHqRwhOZ3JVyI4LE2kBJk8UsCgqq9+10
NRnE/PYrv79Lp1BZUf1JbyuD+MD7zGU9oaCvkRZnuJ1BRNgWOBrlUTBMCbxt
rscgqI2WvkEVFDrstj922s8gOt/cTmC0UvDT3WER6s0gSm78cm1tp2CUsrow
0o9BRP91WDn5PYW0Tn/DuAsMwixVvVC/m4J4K4uXeo1BlF1oqmd+o7Di9GqX
qggGEaO27bbFMIW8iYsaDdEMwqcv3lqBpODG3KLSGscgNph79hBjFP6uzsv8
nMggFgq0pUT8osATOa0+nMIgetl/eThPU3gddLlnLJ1BVHgka2jOUVjv0/ps
7imDiJVfNk5RFGrlfOsX5TGI/wHTUcCM
        "]]},
      Annotation[#, "Charting`Private`Tag$7524#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQA2IQ7ZX64uKBl6l2DFDA4ixVcF/SxR7GN54/Y85myRA4
3/vs9U1zJVPg/PCU73snSZbA+Xf12517JVvg/AWi/m1dklPg/EaOzeqdkkvg
/IjIhes/fNwC53P/b4xxl9sP56sGvntxuPsInF9+ztJ+xpeTcL74FsF7jIzn
4fxtj5zPnLe5BOcfyporHfnmCpz/Vc2Wf23udTif6edqAWnVW3C+9Fmnz/b6
CL7JwptXUywR/FRP9tnrfBH8EzOTVJ3KEPx+K0mrzOMIvkxNW/L2zNtwvmmA
rNudYgTfT2WLBmMdgl9/5uFbr0kI/iMZ24p7uxD83x8uRzEfRfBFjmbZapxH
8HesnyfFdw/BBwBCanMR
        "]], LineBox[CompressedData["
1:eJwVy3k8lIkfwHHXTFJpxU6pKEknKTdZX9lCjuRaRaG2CClXbW1TSnQ5RrHI
qNxFMrnKIt8nSVK65H7mZEKU3Fc8v/398Xm9//qoHT7pdFRKQkIi+r/+bzVv
18zIcCcIZ0PfkctLquP7DuQLJElYZt7paqxGVuc9G4mhLSSh1fSAssH1/uqa
mzdObmKQkHHfrzuhary646iak8NqEogWXo3PhASOGJfrhW0iIdXeTnuwYB4u
lHdYeluPhLg8dwftC4tRQySeemZGgrnf4kUm+kpo9oRJiqxJ0FtnVBxlpIxu
NxRxnjMJxz8lDmbUq2KQZ36G5kESmuVjdrFD1uB1nR2Rjr4kcPrPdI7VaWAm
vc3ndDAJdQYFsvqHNmJFx4nd7HMkvDWtdNTaoYVNhTRNIoqEUOG28v0lW3Eg
Ik1ezCKh6nDyxne9Oijjpjs0P5WEK6evxPHM9dGA8n7iXEjCh7ei6fP7TNDO
nojYVU6Cmdgj5en83/BP9ioHwxoSVqQFTos6AeMNeT3LW0i4Vqa52nvIAnOj
fitdKCCBFCswc6J3YlVT2sW5PhIOCuTiTA0sse+kh7JoloQ7TeMaxlW7UaK6
Qtw0jwu3Xs8ERSfbImPh8uKXClwIr1f6KXvZHi0etNnkaXDBxTOhX/vlXkwT
uDKD7LnAtFuaUKHpisVbyqwPu3HBrzvmc4z7H1jPVPrV5RAXhn/tsXKId8Ox
ZU2PDE9xoSAyNeSWojvucdzLn0vjgvzWxXjrjBdK1thYxA5wob5jO2s3eRSX
/ZIvHz7OBfLuIJFb5INbPOd3Bknw4PMF7bi2G77oPv0q1EWJB23fOMFF1n5Y
qrMrZ4UpD/wO3lw5O3QcfbJANj+aBx3sWy8TmSHIHLr7mf0PD5pVreL8aaGY
AHPpsfd4oLtmN2N5fCgSnVXGwSU8sI/38JV6GIbKSiYBRp08SAQtL3L8NL6N
1HtXt4kPvOxKdqf4HJosfiN1U58PH713rZyfysQHtw8ZepjzYZV9p6TT3vN4
uTAufdCVD1/qbI22vbiAJm29Icsu8eF4Uu9qKeFFfLD5zlL/Vj5Ubf5uyVSI
RMYTXTs9ER/WN1xV2MCMxEjzhotzA3wYbQxwauuJxMf5M2G7JQVwpUpu7vea
KIzGDTwuQwAn3mxiGV2+ihZ9EY/pFgKQFQeqqOhH49kt7xoCrATQwvFse8eJ
xsehyuIPdgKYOf/cj7k5BlXnOMpsNwEYqDfP1GvE4tQSboR2oACm/NNOKq9j
4WNTQ9d9KQKQ8wocu5V/E1fF90/lfRdA0rHEv5/pJWH1ofC84hEBLHfw/qHL
TEJPXcX9lZMCOJq/zVShNgnTWkzK30oJoeAEJlMuybhM5cbpQYYQGCUr9XPP
peCS/A0jeiCEdIa17XBnKtJqjw4gSwjan/OjrXvuYfY/U+z6RCEENJkdTVdJ
x52+sbYfbwvhcJLkqkardIyQK8sXZQnh+9lHC8vT0nFur4wfrVwIr8J8Ij5a
Z+AkN1NsIxBCnTgrQyI/E/sn+LzmrSJwNy/Lfs7KwSe+rBobAxFwnIcVil7k
4MVWs1zcLoL04PjMlokcZDy9E5hnKYIl0+TbF965aHHa4yfzgAiU3Gcz1fXv
Y+poi/LaayJgZG+40t3zAK2HGl1C+CI4l5AyWh9WgNlfKxvk47rgXfiF6zmK
xXgi2UHdP6ELOKBfGKRbjIY7u869TOmCU6farZydi7HhjpwWM6sL7t0Qlnom
FOPQ3v2svvIuUEt2DItVKkGzp+POtV1dkFaTlmCxohTbL2/jnjXuhsnsZNVG
4ycor3J/sLu7G4JmujhX/63AGL8yn/S1X6A5sdAeqec4bv6w+1h4D6xYV3Bq
U+YrDNOpLWW86AWD41fr9wY0Ir+wNvqj2lf4cq1FNWjlJ5zx/8ze+Hc/vLx0
0GaqpBk375g351M5AHcaVCwkd7ajVaaab9HS71Bn727J2sfFv1S81ggPDML7
TFVaUYEANQdcF7Ta/4Bbt1OUV/wrQsXFP2Rrp3+AevsgI3a+GGWQzVFPG4KL
tOTwy1Y9GKBX2T7fdhiG3gq9WG/68OHuw+nV48MQHDPZqLF/AMf6l//yJWkE
njmKS6Ubv2OZs5V04s5R+MtBPBFV+wPDraPulX4Zhd620uKvisOoxrVpy4oa
g/NORXLXj4ygiWFkorLOODxIMjSz7BjFA6rvpySbxoETZuFfYDaOYw2xoqBL
E1AT16+z7vUEpsh4hjmtnQTHNkNGt/kUKvLKMqVqJ6H/ze/HZp9OI+38JRfj
4CnoNEhYsvmPnyiR58kRLZmGCdPeH0f4sxiSyoldUjMNi7zAJymewmebr8kq
nJgBOY/usYB0CULBJkQzQv4nHAvcqrI4UJIgtT40na36CdcNn3Zs3CNFPL4L
a7s9ZyF0UarRTnVp4iDHQEFlbhY4SgkOgnFp4mJUxiUyfw62NSzd4MeXIR71
qrDl7ShwadLlKVfSiGt3orx5eyjYnmhaMFpNI444fdModKRggKf16H0NjVhZ
VfXY3o2CoOAnVlcaaMQNlkddzOH/fq8W3lg7jThmcHtI7iwFsuoLbvImacSa
SCXrebkU1GlbdzUb0Ik5I+ai1gcUaF4flnlqQifav3V9yn1IwRnjr/tSzOhE
vFvJQcsiCgz/Kkz2sKQT1Can0KgqCnKiZIK6XekE+ZF1V7qJgrtfKq5SYXSi
/MrEn03NFHgOz77pOkMnErd7bcxqo8BUzcKinkknbHO2lFrwKPCdqai9GUkn
Ks40vr7UR8HZ/V9Xr0+kE0la+izHAQq+aRePLkyhE8GiNBe1QQrUfV2nh9l0
YoPdcT4xSkHD+hVszKITMpKfs+MnKDhtq2eQe59OCMq2+3tPU+Ahw5COfUgn
qvyztLfOUtCaUSkZxqETyasWjFEUBRphq3U8SujE/wCyCphx
        "]]},
      Annotation[#, "Charting`Private`Tag$7524#2"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV1Xk4VdsbB3BEKUpCIUNlaDCkbojS11ApQ7cQQpLhEk3KD42oaDJ0SyJD
JUSuIaEMOcdQZIgz4Dhnb+KqKHMh4/nt+9d+Ps+znrXWftd3rXet+xkbLyEB
AQFZQQGB/74WXn0Mer/XrlPZEedl973aJWwmf7ZLbjc2ui6xcNh4CX88iU96
LWcH7mTtweORt9CroBoWpO4K5yJFQY7Z37Bsai9IlvOEkP/s7TvDD6EaqZjO
Vz4BOymtekvXx5i18Hh0XP00BE4WmF5OSoGD5+S7+3IBYGzoG660eY4aM/k3
1UmBOHCK3W5ilA4dFaP8X8oXIKPOsbWTfwHRnmup9upXYTGUxj386iXIzTfN
ouRuYFB1oIhflI/YJ7J0NedwRMmt1DS8/goWEi93ViRFQPnFAuk+qwIUDzXq
DivfRpHbkJBH22tE56zYcEg9GtG+kj66H4rxVObPiDtysZC6U/gsdGs5LjU9
qrEvjUWFH02/o60c9uGfhVScHyJ5TmP86IV3EB/3DylLikO+tYnGupIKBLNj
gweUEzC7Jv5EwH06Dj3g+h5QT0FdvezDVbwqhIm+Xn9bLg3ttY6HhKc+YJP5
37cKzqYhY3bJypwdtWCGn+nn1aZhOFstuP5KLVQXaGZrB6ZjTCxQ9aRAHT7M
pWmzmRlYHJCWHMGvg/jPOF3lyCzI/K5cVfm1HvHkRbOi+VxUPxQIUvT8BBOF
I2mdh/PgulGxqTj+E7476YuI5uRhy4sx/fHGT1AauOCRo5WPlAj9zV7bmnHm
hJ6aAJGPX5d8yjT4zVjhmZeZvr0Ahbak/Z2qFjgeeZY3MlqI8c+zjI8aTAzz
7JakyheheDZa8wOYiHAV9bI1K4LVslvy6bZMvPY4I18cW4RbFnJ/i11iYtlp
o/BL+sWIi2wnQ+uYeH+tw2nhlTeoEeYrGrqysPUfyYUKoqVo9zYw0gpk46P2
e7cmnVIkGKlu5EWw4fYquOzqkVLcf+x3zP8RG1HFXWe7X5bivNNKI4e3bPTR
c3gZ1mUw+fg5VXyKjZTW/a+2PCjHYqHvozsCWyHGD3MxV6JBrfGqyi23NsSf
cHDV3EtD1sxk6/bTbVBla7pJnqZh21DnubZLbdiV1e7Be0dDRFBKIyeuDSVZ
cUVvtOmweWf9aLahDYO2A+WWn+jQ8+HeZG9tx+HMRw3nl1bhPHQnnX62I+no
Nau/1lZhmbbMG9Z8O3pWnGpy1K1CVvw+wZ1LODhzxbTZ6GgVaidTL/PWcHDb
ZpC5KKcKW3YHzjtYc/Bu1pSbaFWND8k52vbPOVA7NNRXfbcG4XmamzhmHZAP
MTf0flYD+6eXaDoHOrA85+ndJW9qQMb6/Bns2IFpUVvtQz01WEqTyWCf7EAL
/c35zu3v4TUUvaomtgMXdcLmf395jzGeamdkdwc+SUhLaxvXInN/Gql7hotq
o1NejMO1WPUkKCMqiIu3fh+KA/xq4b30t3tbCBfPa4OPlMXVwj/5+pDhPS6C
Q8iUfYO16NZgfTqUz8W64YyNHo/rUEw/41I1yEXQJwPE//oIsS3X9Re58qi6
FH35KFoPuws3xtQ9eUiL0omcUajHZKjUkKEvDwyr9R2ue+rxpUylAYE8aDRI
n1eLo/xVULYiioeu2uGMAv0GuDSvyowt5SFwvZ91r2UD1P2P3Zul8SB+8+tP
GbcGpN8w233kPQ8Ge0njC7ca8Cm6d/NoMw8Pauq56GhA6RR/OrGXB/PK9GVN
Fxuh+bDxaK8Ygc41a4vmoxtR+Ib5Pmk5gYDQJGed541YdcEg2EKGwDM8yHzQ
0IhUZ1tuuBKBmXehpk4KTejcG+t5RYdAXqlz4Ld3TbDuujjxPxsCe+XbFeSY
TXBuVAmOsCdAXLCptvjaBIVwvbeRTgQWG+xfnrvsE2yM9sRcdCfg8UbvZcCx
T9h9tdCR8CewqlCyU1CwGSy7lO0V0QRcImfselc2o3tl0VzgfQKpnl8aPmg2
w8hfUFc1joCmTEnJXcdmBC94Ju+STMA00O2hTH4zdP76M9U0m4BekkNG7OYW
1DkKXxutIXDkVmN3uGELxCYjlcdrCVwOMFEM2tOChhMj2YP1BCqtNGKPOLfg
9GehvHctBKzm5sOUbrYgvnufJpdH4LhrxtHMzhb4eu2wFRshcMNidUJCfwv+
1jHae3yMQIbePfadXy1geb18/M8vAgPLLlqeWsLAbfUN11WmCATSrA226jEg
bXh6+QNBEgnZVQEqJgy07qxtjF1AovyRfr60FQOf5U+uiRQhIXh27frJ4wx4
jX174byYROSacenyKAYk2/mDV5eTyBX3PZgTz4BKqMVq7RUkGL8776Y8Z2CR
T5YUS4rESkadUFgJA5OVw1fnV5J4FpY0sucLA2Tk3BBPgUTNKUlN/REGwt+F
qhoqkfh6JMJ7wwwDuZu+2Ucrk9DcerZziSQTbqeK6mXXkSjuMWts3smE3ep1
j4rVSbTtCxuNMmfikJPidfp6EhO5FSutbJiYDimdoG8goX/J4HidNxNNckvu
pm8i4dgdGBFxjomoDTXFtzVIBJsXZu++wkTjic2hnpok3kptnqDfZ2K9d4/g
vBYJzoWTq0OSmVBgzteUa5P43ZVlbJTJhOy//9txbjMJ2b3fvGYKmMg+luqr
pENi+z+qd0veMXHkK8ehkrLjCvf8IOod/mPKW9R5C7Ve8JNWXRYTNqLxYT8o
l+yWX1PQx8QGemfPyFYS3JcOe87+ZMLSyqfV6w8S08sf+mrPM0HkBaczKMsH
MWMGRFlQTzR03LaNhCEpUfRSioVL/cyxKMpOZtZcHyUWlma7XeykfDHrDl99
Iwt52nM/1XRJPJaoU/3yBwvXxco9PSmX/k/E4vkuFmI3ZTMSKHN5pmeO72fB
q4WJD5SnTUJjle1YMM3QLeynLJ/5roSk+sjb6pY/hPVI7Fg205l4goXaN4nV
MpRdArYLOwWwIHP/lo8S5cvc/22UDWFBfOD6+v+cZPz6QNttFnpHA0T+G1+e
MXI+NpaFO35GixZQJsS1E2yesPDgfcmWPmq92XN+FctfsjAuV3m7hrJCR+a/
nwpZYG5Xk46nbISvolE0av5XBa3ulF3TVbQt61n4wtFhqVK+KnbcdnErCyFt
xyX/q0eKf0pwbRcLezOFHkZTrmjnJYd/Z+GAVoO7HuVOI7lqs3EWErVOh7RS
9Z5/bt8nKMCGi3vCsB9lpSWxS+lL2JC4Ov5mijqvXWcZW6/KsJG4TZ28Stm1
bZnjzjVsHDCr95ihzvfqTqsr05vYaAm+dPAMZZpobW2gMRujsnanjah8fD4t
PLjNkg2rirjMR1SeBFpNVvw8TK0noejcT+XN+Fm5yxk/NthHJwzPU3l0WzQd
9l/fvm2/yz+bymvoKf0XP0LZCBMo3MKj8kw3KBj1jmNjhOh0X0vl/fOT4ZXq
z9iwKPUg9DdS8y/U2tmbzYZyTtHoHup+mDBfRLhVssH4qiW4n7pPVb7Jq48M
sLHQ94zmj7UkXvf7+blOsLGm5cFJ1hoSaT6GZR4CrUg/ZXKlkLqf4X+1O52W
bkVK0w/F44ok9rlLPr6+sxUGZXllnrIkDLq7+m/tbUX/fe8uqVUkNrnlGkQf
bEVwSdlQmQwJcVfLjnjPVpSviiAnqPej+Ui4bG5kK5yUJB1ll1L/w7H1eR3X
ir7IzboxYiTyHda9ffu0FZUHtsnyqffo/mGaQ3VhKzQEidmPC0nYH5qK4xCt
uLvo5GNxASpP+07JLNBqQ4+N3g/zUQJNtTu8RPXbsN9eL+3gMIGKvUuKlpq0
QTo06KHNIIEnu1/YyR5ug1fXiKZpPwF34+4HWlfa0Ch170bLZwJ9+odXODa1
Yc+GPwL++URgXN1IIudUO0Z9lUr/l05gV49p7Z3gduypNnp6OpVARPK+EJ/r
7TALejJ97AmBldJ2wyoJ7dCOlpPXTKD6g6Bf8+MayneqPH0jCQTz4mNureZg
TvsvtWtUP5qN+SXh+ZED0wSFeF09Arstp2tN2BwkN26INNtKIHKhQKhyFwel
MqquFtoEFK+IjXB/caDs4JJpqk7tx3ddy6E1HQhU8dPspPppyO6D9xDUgalV
C55U/+RBaCp7+Wo1LuIsShcefcnD6ibTn9jMhdLWkqzOdB62Peto9TTg4pt1
mrfTMx689i9KzLXmQuWIi5FxPA91Ce5qpoFc5IhXxLwP5yHGUM7wRC0XisFD
798e40HhcoTHmxM81OiNNR6U4EGP71Zsm0vgvrPA6/KjXFhZ06/teUvgdZAR
7acDFx6Jyn/qVxFwhv4zNRsu7ul3fpNvI5AVcmPwwl4u+s84y/XMEeCUG3b0
anOR9Pnw5bPWJF6pVke8n++AYJWFadQACbuJyP0VjzvQeGPbpw+butA/FqL7
vZoDQ4kGob91u2DqIDNqUc5BZsJxfWfjLhjM6ElnFHJwPTf66fDhLnB/tsdb
plPjOX3nZMO6sGXCjmEbQY3XSF7l296FtmOSWU7m1Ln0X8tfaPoZwd2a/APv
26F878dU1tBnsNeLpOm9asOPya7OVp0eWOx2GvAOYiPte1n9suh/0cd8KnGw
ioFlii+Ge3t7wY2tszuV3oTIE0V/PVX9iq1zn/8JKqzFhHF2r0/INzRdp6c+
raMjYGtN4crqPjzYo+DEbHyNrtyau4y138HmSITkit7DjC87cePFH9io9pHh
k51J0zBZNP9X2QAcO8vKQi3Laeapa71frRpCaopBUKFGLS1I8di6bpdhFEn1
DjIHm2maA4fF2q1HoO3suPuwD5smJTEiWjM9gj+LC77c9uigCdMS81SSRvHL
T+EhW7uT5retrGOx5Rge9gtuFa/ppmXvd39aMTGG8xmhlcZBvbTxH/LLv8b9
xL8bhlM8xb/RimzNF8Tu/oXkxMiygu/9tJB94U8Kv/7Cnx0nvb+/GKCtJS04
z8PHsXCtoUqq1zDNUP9GrNzWCZjotM0e0B+luSg1TwmyJvCLfWA1mTlGG6+P
6jkbNonxrEr/WeNftHhh1wAb1d8IObWvZ6hmnCbVWZQqVPMbpvO7Nt80n6SJ
XAmzM/CfgqiZ1I680d80gSzXvJ4V09DYGX04M3yadu5xXtSKqmkIvNG2WWY6
S3uncUtU8vQMluu7TPTOztEkLc5pXls2Cwulptv5T/g0QquFdaF8FjMPDXYN
FQnQ81Og2us6h5CfPfsjYgTpR/P0JBXn52C96ayJl7cQPTT8WRjxch72eist
vO0W0HP6FBOXWfERsK/u6rptwvRbyeFunQf4EPftl5DYLkz3tBlUyz3ExwuN
cMbMDmG6Qnl5vrUDH0rrV39tNROm34lx/hDpzoeVnbldpK0w3UcvYXTJBT62
0VqNhc4L09fdkN63KIMPB5XknSsKhOnz2y8vbc/kwy29gC1cLEzvGPyXmZHN
xzGhkqTJEmH6PYfXR/e+4oMwv1lOVgrT+ZtszoeX8yEn8trwH4YwnWDEpCxg
8VHR87eWzagw/W3EpAerlY8YgbdV5uPC9NgdxzY+5/DBMbx702hKmG6Zrl1o
2smHy+YNTzcKitBLg5s+hvXzEer3QVxYUoQep6Ubc2iAD52yLqUZaRG6f0+S
3dphPvJibriNyYrQN1id7KL/4sN5sdu57jUidGFBdtq9ST4uHYo27VAVoX8u
2uHrNs2Hnae+KWODCL3c9/lmnTk+dGUc/D9qitAfKYuN8/l8bNre31ypI0L/
P5JCu24=
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$7524#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 2}, {-2.8375762859491425`, 0.999999987613519}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.749493388572048*^9, {3.7494935920610332`*^9, 3.749493612003583*^9}, {
   3.749493734820013*^9, 3.749493762793456*^9}, {3.74949390008243*^9, 
   3.749493917239276*^9}, 3.749538985813114*^9, 3.749712179049255*^9, 
   3.74971221161132*^9, 3.774073776966823*^9, 3.774283934057383*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"73e3dd58-9e8c-4228-b407-cb31f97ee1f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF3d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB3d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muM3d", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "0.6"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", "Black"}], 
     "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.749712215140974*^9, 3.749712217794788*^9}, {
  3.7497122578280993`*^9, 3.7497123128094873`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"2db55ed5-0a0c-41f2-a75d-5c4f34b8ba46"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ/fm+mP4Wby87BiiY2yyvwCOvYQ/j56tu77guZwHn
R3xjst0r5wHnn72nIb5BLgLOZ79s3bJSLgPOV/E9arVMrgLON+bimrZErgPO
n3PxC2uI0kw4/0rqlqwjqxfB+bp6gU+2L18B53/TEqpvVl0P5zvO5woymbUJ
zndwlvs66dFWOP+Fj7LiPOmdcP6nRE8hM9k9cL7JREaRXfH74fy3qbm5qaYH
4XyRbUGiLpsPIfwv3Hh0RuARON/3m/0N4ytH4fy4Z+6fXcqPw/kunSeC1gid
hPNvb7wpEjXpFJzf99z4fq3RGYT7FsnxvNh2Fs4vyg5yPBF9Hs5PLq6Pra+5
AOc//Tz3tK3tRTj/668HtuZ8l+D8ey45D4MvIviGL4yXz55wGc4XElIolEu4
AuefqQvJOaJ4FeH/orXZSz8j+Mf2OfVuPHgNzg/0U3jwoPE6nJ+VomTuHXQD
zo/em7P/hshNOH97/ufMiZcR/IUr5km0LrqF8J/KpB+zk2/D+TktSg4P0xD8
sieb2tWyEPyOJZfFNhYg+GtVRE2P1SL431VmFH6YjuB3q8575XIGwZ/SqmfU
dR7Bn/d0X+X5Swj+hqX3OaJuIvh6DMv6454i+ADgs8ix
        "]], 
       LineBox[CompressedData["
1:eJwVj3k4lHsfxsc2pMVWR9upg7JkX0qIbypCORgGRePNUBmd1CjVqSZkSYtk
7aTepkNaBiNKSj3ft5NsLUSLXr/nmZopaZPQRsbr/eO+7j/u6/p8rtsoOoET
q8pisYTj+X/7ZXtklLzvhmYmIOiXzD3UZ6+OUY/+bpiXk/qb9UgpNXwu2itt
sBv8OLb//Ln4KqXGHjzS8rUbKgb2n/jx7DY1acOBx1OGu8HYocrp9OdW6pdG
g9kho91wMbvlYfRQBzXXtJT/F4vA0N1e+4O855R5hpOEUSOQ7zW/PSPiBeXQ
0zBgoklg0Gm2xkvRK8rNm+sap00gzk/d1XXGW2pF2euUyskEhqV1w7sX9FH+
7KSWQV0C+q15fcuff6ZCN7D1XKYS2J617z/nuoaoOFMz8Z2ZBDxK1/F8s0Yo
Yca1N1pzCKzZekAudB2j9vastP3diIC95FUEP08Fs8s2UV1mBHJ17u/jdWlg
EfuHxhxLAkaLSktNzLRQvCHLn29DIGe3fWdsnjbWmF4iH50IFF9me/o26GDz
+bGqEWcCPpPvu6ZZ6SEx56ZPcCNQFcGUXzmgj2xLls18z3F+9LUoUfg0DLcN
3R/pTyAwQ2a6rXgW/lElCRYEEpBpbTljsPpXTLVXMd8VPO7faFeYOGEuShzL
2/PWjP/P0bC35xqh0lnV+F4sgWfVnvaRy+aj/vWwr12bCMzjBP83xd8UzVwr
WnviCVBbLap/8swwcEl4oqqQQMLdGJuP+RZYsrSywUVEIMCL73hitQ36+K7d
eKGQwFOZd5jmDieMbJW61f5FwCDQ8PlPq4W4bZWGbsMpAhyXb4cNehfiSf+q
OtnfBBrXdzr8vdEZPwaxtQ2lBC4HczhOR1wxd211eXoTAZcRZjf36lIs69ZM
yWslkC75Zum8wBPrI9dxzz4gIIo/w5SKPfEVT0t5s5PAzQ5PE5PcZejM5wUM
yQjsqdGEkswVSOK1B6K/E/BkXUPhTR8MZXqF60cILMmVtJmv9MX2wKbBKCUB
rmqfXVinL95dmPYlUp2Gex5t3bP6/bBybPR7qC4NVnfWZLq7+WNK3ucxP3Ma
8jM4+o8nBuFPjfZkX0saBCev68gjgzBpV6WKjw0Nna1fTS5VBqFgXbyalxMN
5vF6UzaFcDDE7DUbltJAOcwIK7oQjKb1XZMdw2n4RH4Gn08MRbH1tWz7CBq6
yur2r2wPxZniAh07Hg0d75j6M9ZhqJPO0bOOocFmZujrne/C8Pvv96eabaWh
PrNJdGfzGmyV46xZB2l4JPZWSvIiMUH7vIVaHQ3nVU+NDlxZj+o6hYXL6ml4
p2ctOTK4Hk8YpKulUjTofOoIzHGIxn9m82nWXRo+/Ka36MnlaJxqO/e48hEN
srgGr+CrfKwLLvr+4z0N1Sote3XaY5F1OrOpfy4DP2OK21RCBJh/NsnJzoQB
yi7K8OoZAVqUxZ5NMGXgm6XFQNt7AXKky/f0WTHA9/4+bUl6PJbeHrP54MLA
+rnGkz7c3Iw+PTsL3wQz8K/6yB0nIQFzbDfFMpkM1H5R4Xb5CNGOOzuq59D4
PjI2b55QiO1/tof3HR3nm4TpnyoWom7j4tXKPAZK1b+Y6X4S4rHICY5zxAxk
DdxM1DqRiNlZl1i8Ogb6RovdHAe241HFh2K6l4H3vnt2QdNOPFS0rYP4ymBr
qFbmxYF9uCJgUd18fxkkN9a2GluKUMkeOb0lUAa3edMePuCLUJiUFscKk4Gp
4/XPdU9EGMEtYs2LkUFOjz4lr9+PVga3bOJFMqhJdkimmpOxLVvr8I9qGQy3
eNc2V6Wi9p02o4lTXoB8yrkjtS0ZqP4mLd59xwu4p61Jr3p7DAVWjH/Kkxdw
v43tIH6Sj4ZXfavl7i9BfWjR08Kmk2gXtUbKPfMSPrqzht2TxKhcmOnOKF9C
3doLd/WpEjQIbPJP2yCHVWVtnGdF57HgsOSrW5McMgNENWmJEkzmHeh83yyH
kKd7kwPTJSiwj6gqbpUDtyzVw6hIgh7PtAUjD+QwnME+/OiGBHuNBfSNx3Ko
UZYE/6Fajq43zBtc5HLIWr5X73huOTK95447j8qhO1d2I622Apvr9215o5TD
nlsJGz82V2B1NndVEUsBuo1x/Wu7KzDTSUPjm5oCDmlOLVjBqkS75JhdtdoK
2P3vY4Ycv0pMNTSJWjhdAQ8PL9jOlVXi5nfDbq9nKMAvp7544kAlht7qmF4w
SwH3WRcLGtWlaMlP7RiaowCP8plKvwVSfFz50uvKfAVUCQePHd0hRSrlunGM
mQKS+MrFgoNSvBhyfMzAQgHWoi3SVcVSFA0vvZ5oNe4P11D99bYUNz2YXmhi
M75v6CeTHkuRI+4XdtoqgFfbnKryRopLEpsDDtgrwOhC/8DwDymaeYutHB0V
8PZcbOFedhX+Dxg/p40=
        "]]},
      Annotation[#, "Charting`Private`Tag$8331#2"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAA898WL7RLSj4yUQ6a0ziWPp2DHyAM
Hyg/6enPT/8EYz9vJbeI1x44P20Iz/2Yc3E/iESvgBQXQj+OGyBXQc14P1j2
Aj29Hkg/Jf4Dt5DEfz8oqFb5ZSZOP/etPkZfOYM//CzVWgcXUj95/fqFUnOG
P83eKBewHlg/eFWybAOijD+2t1J1hCJbP45bbXrZnI8/npB801gmXj9mQyJQ
yUORPzch6McAF2I/bW8JMm0ZlD8H0zuEqR5oP8WnzUR/f5k/fL9Qs5OgaT9H
J7a048yaP/CrZeJ9Ims/HCtW4AUWnD/YhI9AUiZuP1FXD5BvnJ4/VJtxfv0W
cj/fy1UvjL+hPyRNxTqmHng/ynnDQP9cpj9ew09Sm994PyyuPvIp66Y/mDna
aZCgeT8SGY7uO3inPwwm75h6Ins/qjyEVzaPqD/0/hj3TiZ+P4vpf4BQsao/
Yli22fsWgj8bHSY9WsuuPzMKCpakHog/mXT4F4E6sz+YiOGjPIeIP2LXJoMc
erM//Aa5sdTviD9BHcdMZLmzP8QDaM0EwYk/QBBLa/42tD9U/cUEZWOLP7L0
p4iALrU/dPCBcyWojj/mjwhIuw+3P//hq2klp5E/mpmZmZmZuT9HgdHY
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$8331#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.599999987755102}, {-0.1, 0.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{3.7497122255577393`*^9, 3.749712287571762*^9, 
  3.749712320160399*^9, 3.7740737811164293`*^9, 3.774283937847001*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"e98940f3-7748-4321-853c-140d51809955"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muB1d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB2d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB3d", "[", "t", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "0.8"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", "Black"}], 
     "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.2"}], ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.749805594481907*^9, 3.7498056376330547`*^9}, {
  3.7498056838783484`*^9, 3.749805695665637*^9}, {3.7498060087240763`*^9, 
  3.74980600997549*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"eee769ca-1299-4ae5-9e7b-80c1d6afb51b"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}],
        LineBox[CompressedData["
1:eJwVkok7FAgfgBm0JYoMZsQw8eXeEPX0OX5FQja5YhShdHwiTMhVrljiy5CR
IzlTg61RyBbz0xgsiRhH7jOhQmTbRHb3fZ73ef+Bl3rGz/4cQUBAwPsf/63m
UJzN1oZZE+UjPto6p77VeROk658QdUD/RdFsrmos509SGDuFeBAeTD8Nz+wr
5Dxjzwo0USzhRdoCnbJQyTEqLle7TrQFg+kVra3eXI68/5RtFtkR7pd7SvrG
tHHWDeVDKyk0SBFxLio91c0Z+cmxoEPZFQ7lzvgYRw1yRmcbvYKIHrD/RNKt
rJ5xzpuO8b8Ismcg8cCUUqrPNKe+aj2ZQfaCYakJNXrsBw47h0ylyJ+HBcum
vDPJi5z8aIOqMspFuMZ87cBkLnMYF+ysDlC9ITh+V3zZ0J+c6GO+w03KPjCf
aBG82XOVU5HcRQgg+kO/mtSm+9sFsTRyrO2ZdABUmlvki2kJYSF9PuOHDB30
FvUiBc+LYBpNVDOZHAglF8IE7+qK4k1r0kqXXBAQRtP7X3HFMMZkN5LlgyFt
NFgo13870lVMHR5QQgCTu++VMHagt6ytwrxiKIRGlNVOSBLxjOjp9/rUMODN
uKVtLpBGh8XQcK5yBGjohpQ+mSGh3MjbzsvEKGAcFzOOF1fCjL7RfTuYUVD0
37MZt4SpuKNzOqdKOhok4GKVPmEXivK+nFuTiYEUihVjr6QKrrIkVhPJN6BN
j+DyV4QaBhfJumtn34Bzsaojsw/UcekuhfdGLg4i95kM6vRr4FyK1i1Z+XjY
JCvtfc9GGweDLHfdpyTAYbmPWuKmukjzO/6rZV4CbN98OcJnURe7Lzp9/KCY
CMz1sOS+Aj1sO+VVrUe9CR57+llccX2sPRR1tF45GW7b5O1M3rIf2ze5/u5L
ZMAgffsViVvGWCtyyFftJAMUeT9R3a+bIEt4N3UyjwEtNYrVInTAG4TFBJpm
KvRsPU0qqTiIB37E0sxM0wAhb8+jalMsXin7SvJPh5LDzbHHt1lg2hdGGb8q
HXptu45551tg5HKQ+63v6ZAoZMiX0bfEk5+hWehXJnQWqukoelihxCd+xnxu
BowqmG7wWq0xfOq7Ae9VJhiaN6lmBtrixcmx2euSWcA4axEw2mKLThONuQec
s+Bok8mLKUU71BlLEXk8kQXPm1m9u9vtcHpQuSfrWzaIfl/VDNnrgPZ860A/
1VzYatRJbFNyQuL4MZf/v8yHftKK39kYVzwpc9Vw50Q+EMwFPP7z3hXzrPMV
WIQCcGz4OHvtFzfUqF4a55kVQNC3lcOfSafxYNId77XGAojiVqX21rjjJYPx
8EuthVAkOdegctMTuYmB96z4xSA4afSSvfMcBujlTIq8ewh2PNKs7TZftKSG
Wi8Ks+C55sijEVtfVJJwfjqgwgIzhw69stu+2P5pR+xjLxYQpPS/bZAvowbr
5i6XKRYwy+ZUmOp+OKUY5lk+WQpm7yLfqJf6o5O4y6j9RDnY9dElyz7QkRKY
9KnDjw28kzZfGpquokxbl6diNBu8s40EZpauoriKXO/lNDYMCM8LayuG4Br/
IUe8ig0scmsdOSQEB/Y2pVivsqFBw/NEhGYoMpcF9JpvVMA9YKa6ZIah2JXg
YE7WE1Au/EqRunkNVwM8N8obKsGrPd3E8V00PlLfRsp5XQMVnLeCV2gJ6CzM
P0L+uQ4OXtjzOkWGgTkJsjLEunowWt8v6u6Qjl8/6IipcLggumXi9O6cTGz3
cBKPmOOBv1uGhT4zF1P13qcOfW4C2xPdPJpZAfrnNgSILPwBQ8Xi7fTOImwl
l7sGy76C8PW76lovSlBieaN1Qe41fPA3Xza7zcLOYffDFVYdIOekokNpLcc+
dlyywrM38Looyc9sCxuNqKk109WdQJMailHKq0C37F1zDm1dwI2SWRQ4/xRX
Xv7PzbyDDy4xxveGd1ah9dK+3oH33aCR1utzTPgZ/rzAinD83gP2X+s84z7X
YHx2l5f9Wi+oHZN5GNLyHO/aRNt/2fEWsi2kplg9tahW8S5aTrb/n39LdMNb
OWg6tjCiIjMAOmm1jz+61yOZFHWIrzEIs3edjBODXqKhxZJo9MwgqP+29qpk
Pxcv/Gh8J6I9BKJla/ON17h45VNqytDhYfg0PVh5v6ABxVhCF+44j0DJY9Xi
nEYeyklpRvU6j0LSxh1W8UAjLpv6dAztG4NLWQb7yGLNmM7PjWTUjEH95C9t
b7X/wIijhUeq949DqzzNTsGmBd/XcNzjaOOQnfUvLfg3pdtKxQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$9122#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxF13c00H/UB3CzEkpWommkhEhI6BplpCIjO9mkgWQlGakUGZVI9t57+34+
9t47IjvjZ2crz+8553n63X/uef1xz7l/3XPfp4weq5qSkZCQfCUlIfnfHj1T
ZNf8+vYVkv+r+2RMZdmMAvD/XmNxzvRjlPpridjUM66MKn/9Y7ra5Cnjvb/O
8ukgs2G0/mvWob72R4xuf92yR6/oIaP/X5dSSj88o/OfkyhOnxqL+M8vyRbf
aJ0L+GuxP55asjKBfx27mrLOYv3xr5+NbwtXNQb/tcXY8LTroZC/vjNaHSam
+Z8Fhv0oM0b/8+QAR3fI5pe/Vu1UsnvMHQZMJhmJcZdsS6U6BM7wPAyD7QKe
sZfYqZSvnen7eHYY4GhfqlY/j9J9rT9kda6Eg9M4Xw09eUAp0fCE4ZpGBHQv
RIbImaaWJtdr1e5+iQBzy9lBSfKc0uA6yWfFwxFgXXaFS427qLTCOODzZYZI
IFu4+aDrQ1mp2Jjn0mGRSLgj/UDv6HR1aaaRvdKqViT8OBLPb1DaVHp61CKu
41kkKEanXJVo7igNM9TdzQiPhHnRAy/oLftKGUduavuWR0Lw4vMMvrAfpTrM
DuJso5Fw3SrsjhvNeGmEUuSxJLIo+GEYT+mgPV067la/K8IRBRQOX5zD5hdK
efKXR6pko8CJQVd3kfpXqfUsW5WqSRSEyusb/mLaLM07eS1++GUU8OxsSQVd
3y3d0nj05lFcFGwmzh6LsyMnpN59vr9THQUpZhzGe4/vI16Vld14OxkFlWtK
NWwttETj6jQ/y95oqG2vGynSoyfozjEciueOhomNdUkvP2bizj2JFSGFaBjw
XKFWimUjQj+ZdpdbRIPw4hd/xbGTxHDD+wJl72goCqV3MvrISZwmKQwZTIqG
pxdbX1WQnSWshEeeWTVEQ+p1kWKu2/xE5v39dzdnosH6yMTMJfULxFqEkNRr
6hhQ3hOer80mQoh367Ez8caAb53C6IOQy4Tb/lcUMTdiQGBlO01+DogayJgU
eBgDG3tfTCYdkyWon/bVId8YwJ/pF3N75AiVZNKUG+kxsH+TtuWZmBIR9IPH
t78lBvas7NMoE1AhvjOqP7ZYiAEvioI+JlE14tT157fXDsZCjnAcY0b5HcLs
RbzQS4FY+MI11L84rkOk5rYy0d+Ohf1XLm0yFRoQy9Mb6xE2sbC894ZMV7IR
IXqCvZ8vMBayj9Y7F8yZEi7qSqUl2bHAUhlyMDHPkqjwtgtX7IwFkrvkbj1M
j4h9OMytdyUWLIWUt6YDbIibv2qMTBnjQPZP/vTWMzsi8Ozi1ZWLcTBiJWyI
ehyIvrtHuN014iBlqXMkOOsZcfyjDNVB+zgo3I3n6j3gRhjXW81+DYqDKqM2
j1OfPYjEPx+beQri4KZLeJqJixcxL4QyCnvjQCWZ9khMwxviouXPALmNODi/
x8NRwM+HcAqns+tiiYdJf868pw/8CdQpdsdILB64LXaDuL8HEhRUxpcWteOh
v/LcdlfEJ+L6FR9WV+d4oIjy5ogoDyb8nuTtUIfGg15XQh9x4yvRlTg0FFIS
D22+QTfqT0cSrEN7y7m/x8Or1ZCOMYto4h6DYEzeTjzoZmVdFP0VS8Qp6HjJ
HksADruFc7TtCcTMc0/zdskEOGQd1u6+L4UQyElVNLibAHzeb7mCYtMJ+6nu
c3OuCRCawzF6SiuLKDm2S/ssIgG42aoO1YbmECRqZxb3lSVAhP8RvhaOfELu
ze2OoOEECKE+wGO+Xkj4EM65nKSJ0G6/smt5vJRoX44Jyj6VCIfZK6pMojDB
fKbZUUomEaBz4mB3VTmhp7+m02KUCE0HmJgyFiuJqMATknqeiaBynfRwlXYN
MVmrcGImJhFuTdAO0e2pJ3h/25A6ViUC9ZdUE8adRsLmQugY5UQiCPDWKn2T
aSUUTjkpLVIkwdp8jYGdeTtxkk4zp58zCQxXkpl6dTuJ9T8X2aqvJgHlS0G/
ao9uomWO3jPDJAnU7idLVw33EnHfF2dCXiaBizC1ZZZzP+HS2KL6MjYJdqJc
zzRoDBJqxanFj6qSIFyL606f+DDBk/SWXXs8Cc7fTbEXWxkhSIMt3spSJIOY
v7iJQtcY0fdKbpmPMxkk3YlK99EJIvMppw7L1WQAIUI1+tQU8dqErILMJBlm
aOvbkj/NEHfVhs/OeSbDuLIF57jMHCEigwJ6Y5KB7+e76CXmRWL8hLNh6lgy
CL4TP+pnsUKUHNCqDyJPAXlU78d4fZUI/C0s6M6RAoPeXU0qGuuE5T8MIVay
KZDuuqP72HeTkBpYIrljnAIWxk5P2la3icMNrRZSnilQXLkWSB34h5gvTGvj
iUkBxYuPFDezSVBYkGXk7mgKLL/fCIwcJUd2XvL7ZshS4Q8NfW51KiW6Ycdl
3cWeCgFjVpXxoXsRhzF5H5JJhVEvz4M9WVRo6/YIJBmlQv/6m0maZWrULoUT
Pnikgr+D6Vs+gwMo8XzYQdfoVNCWuOHO7kqH7tBq/1AdTYUj+aTqBZYMiG9H
RF6SLA1GXG+FSe9nQhSzjBnc7Gng02g80ljPjL5/W2aml0mDMsyooJnMgnLq
2lx3DNPAact9iCSdFb0tSJ+cdE+D46tKtWS9R5FRvM+t9qg0CJoIdsnjPoHo
Xiocjx9JA33PG9cOc7Gjn7anX/mTpkN26J4Psf4cCBlSzDufSgc2tZvTBkxc
6JPKqIapdDowXVdRbMw9jR5AGaFsmA4fup9uP7M+g2T5w7kuu6dDWuHnW2zX
eRDrMRdfzqh06GGbvmsuy4vqt0T1N4fTodVw8anwLQEUOc1UPUaSAT3s7+f3
uAkix74V3paTGUB/W4wutPoCUq5t/1golQFzD1kPUp+8iE7nZ+xE38sAsV+Y
+rm/MPod62vi65YB9lnYm5NFFHV9sGpyiMwAzudvpmQKLyEPG+6vN4YzwNat
Y1pQXgLxZpJ5sJFkgj9l1GzLpSsoOGEpj44uE143X5a/wimFrINaj22fzwST
eDO9syYy6Lsvur0ImeDe/khqIkwWyXuleU0oZ4Kx8S3pzemr6Ljdu7nWx5nQ
0O47/L1UHjE3dRiecM+ExIOSgjPmioiWk7XnUWAm9KpfK5fgU0I7nYmINi8T
hsbps6VolNGvc4sX9Gv+nc9ZLXv8UQXNeoompPb+uw+bVFZr9m3UL1Tjp7SV
CcHPQnn2cqijjne0FKHUWeC1Xs382V4D1Y+pO84czYKl4eGuxME7qPDD2D1v
yILbs2cvn57RRhmzPN19Kllw7kAh68cAXRQva6t4xigL3nYFN75R0UefVkgu
1L7MgtSHp64TPveQj5JCPHNQFiRZvBCZDDREL2P8WM0SsoBW1+gTd4IRslU7
Tk7ZkAWt+zltX+2YoPsppg7qA1kQkazNt3PFDBmSp83G/JMFvzdFOcQDzZFK
jniXzMFsULc500/16D5SoPZUCDyZDV1BOj6cG1YIjBtKRwSzIfuieOrxoIeI
n0E7zk09G3iO2Nz2fmONTltFHmkzzYZJPofPPx1s0LHKn74nHLLBVG/3yYat
LaJ5Ym+PQrIhkUxkz/H3doiikZihTcmGV74ToRcynqJtdkoD/dJsCEQ5OZuD
9mim44P8zlA2yCvEyDWZOaFRnoESpcVseONhPbpR7oy+ebALhJLmgP7j7Ees
fC6o7kIWy2XOHDjCKRuYIfwClb3d8PEWzoGBFHL+i/fdUMEokH6TywG5wlL1
Nhl3FB/YMu1gmQOv6JQCuA95Is/l2eK89Bxw/HV0xoX3NXK+LnSesiwHTl7S
blhSfoNso51j1Ntz4Cl5ZU/iC290T5XKZ2UlByROsDEEUvogrWQVElnKXCAZ
9yuP0/NFymTBdoHMuRBOHpOFyt+jK9mn9QXFciHxne720oA/Etn/qN3tei5k
9jqO/ooNQHxGedfadHPhhfbIwsrTQHSU/ir/Y9dcoJ8e1FgS+Ii2bAx3Uytz
QXNLSjiAPhh946wq6OrMhafVr5cD6EJQYe9p652xXAjYkjvrdPgLeir5z7AS
RR4Ij5xO35X6itQXb4U8YcwDCarKSk6TMHQhJut2KGcezA96z4gHhKPFfQ4V
M1fz4L53aBmfVyRqLfnmTK+RB5wbCT7O56JQ+iMJocumeWDMV+t7uzcKPegi
jfX2ygPdl3lOolIx6GeEj9eZmjxwWWaKv6Ibj2pUFyRVevIA8b+NFLqQgGIp
VdccJvPAKIPEZvNgIjKyOmxeuycfdPTerCUNJyHp484nFpjzocXv6OxCZzI6
2f69l5k7H16d679EtKSgIZFoBTP5fHByywhKG0hDxDQF6XvNfPjsNxV7YT4d
ff1qXpRnng+HuJVeuVNkIm0yPh7KN/nAI1RUfJY3C3U1F1DH1uXDh3XbzPKs
HJTjxlrV2JcPHgti88wGuShQ6LnLylQ+3Co6zmR1KA8ph8jMyVAVALeXl4OX
Vz5qMGluGVEsgMh+x6CO9CKUdFjgNZVOAdgM8k9YvS5GbxoCQfB+Acyvcshu
m5YgOQGtTLe3BXBz/4m97sIEKt8eDTjRWADj2d9MV/zLUGT6tevyAwWwaL4Y
vspcjlwNE8kezxZAW9fELdfIciRR+/AJoi6EUEP9jIeoAhUGbqjr3ygEXtPw
54Pc1ejzNV1aL71CCGvqSOBpqkb2G0R16oNCaHmPLb7Y1SChu54iOz6FMBnh
P3ixoxalnz3AEtpcCEfMB6+mVDQgFsl6umM/CqFH6Z8hldBG5KnykipisRC0
F8U7I5yakJbD1lY0QxEYxd4Uz5BvQeTVk4PJ2kVQeusJkzVzO3rUF9XDa1UE
CzYkJLSh7ahvVq813aUI9nod59tk70Dp9J1l2RFFEGfjaEYi2Ym07uGY4oki
4HX6oRUW2o0qnjh/lVgvgmid2WUviR7E91r4E9pXDCOkgkrXRnoQWXrKq4pz
xaA1c/a7n0gfStv+bNlgUwxvd0XTNegHEMtBNaMbnsVgne+4ttI5gDzYD+i2
fCyG4baZ3N8h35GW4ssbHQXFQL2rPBclNITIPluf7/9dDISuV0N66zB6kHzu
jN7BEhilPn9eVnYE9RKTJ4dOloBnV6Tl3aIRlDquRz8qWwIkBjQrammjSPOC
4uq0dwkUuDnpWeWNo4prFPNWoSWQ8U9orumVCcSrjSfnUkugQXGq/UrDBCJz
E+5bai2Bl211+iUzkyi1+VTJJlMpCGP+Zi6VaXR45HvOM+5SmOpxi9RfmkYe
vz6n/r5UCgtNX/d1fppBmmwHwkn1SkE0WXl/4tQsIrPccqOKLoXO6bt/dArm
kSZFp9wRfgLOKiPakx7L6K2dhYciEMDHr43i55YRGv9NOKkQ0Pv+8kN23RXE
WX1GuN+WgKNzfGYMEr/QspcrR2gBAZmqXyaDmdfQ6TUGg8Y6Aib0G1RfBq4h
bbOkL9vfCBhvqJENpVtHZXJdh/R2CABfiXFzhg30fi8PyTFpBNLdrhxXL26h
CgcsflMVAUOIrrFaxRZa/anu8NwYQZyMXV2t6jbSq3sxP+iFgCDdLv7tvIN4
vLu/hzcgEOAaXbae/oNq9rsXnVTHsHT9Y1kwOxnecmZeVTHFcOOkbu0HVzLM
N5si4G6P4TJ3xqvdATL8sbEnYSQYw0pLmJdYKDk28uENih7EYPAmhD3lHCXe
3fNALFCoDC7e3JG+GLwPs2ARTR6JMhjcTkkSoKXCFxxIn1ZcLYPeLduMEU8q
bPYzKHNZowwY8sRvPbHfj5try7nVHMvgEtmTgx3WNDj0zWFmRqIMHodfEZAw
oMNn5hc0WKrLwOS85aVnMXQ4X63u09HmMphkLvjn8xQdbjvuxMQ1WAZjp6kO
2D49hPfk9TOK/C6D9l9Or3+E0GPbkTAGLclyaNm616J5kAmTyNur6V0rh4rV
jUd6RkzYN/XWh3s3y6FuoF7nbj4TTnTYpbfULwes2ChqZMiMh2gN6Z2fl0PU
jU96MZWHseJlzkNfiXJwCG2+OFDMinsidlQiq8shuL1rX+pxNmxC2e0f21wO
KY9SHoV6smHXNi+6tMFyOL/73n5I5SjONft5EP0uh0b6SXvBzWP45IfkA8OS
FWBr8WncofwkXp8VoOFEFdALMYFs1Zy4wV34QXdNBcy59s9v0HHh8MOXm161
VkCodZN9oj4Xvior6zM9XAGOQg9+eG5y4cAvGjQZ5JXAenzzkIY4N+ZVdKa5
rFgJZQv4dMrUWUzyw/XB7O1K+EG1na4rw4M77TybvupUgqhf6561rzzYOdLH
Z9eqEmJO/+SYVz+Ha9fDaarfV8I1sdtnmdt4sVF8JY1KVyX02zLUfP51HotI
1D0gHayEwUzHo838Apiqo6kpe6IS5guYtVuNBXDm724fpvVKyDRZntFuFcC/
1adoBo5Ugak30+TXVEEcTE5La2ZQBSWRjW6v3IRwy707tC4zVZBxOYVS7YMo
Zoq18AtZrgKnf0N0dZco1vvpfKhgqwoC/MivIuZLeOZhBNPy/mo48O43xdWv
l/CeZ1PHLM5VQ/P9vY9z0sQwfHLmV39QDfLKmymZM+I4sz5cmXe+Gvjju0Ra
LKTwOk1Wu+JaNYzOTbzxCpTCV1Qq1cz/VMNTCYaDb0ulcFPPT83oAzXQZ2Pw
59khaTw1JnCP5XwN3HXkvkODpfHJPxXWFNY1IDrKcu30WVkccOFnwPelGlD/
bfHWUVwOS8SaCbdv1kAmr6Pbw0dyeIppsq+atBZeR9Rb5kfJ4Sub4ycyDtWC
4oW1a9eo5PE/eDTNXbAWvkRyWBt8l8cKN4fqT9vUQuFdelwbqIhJLLpJbRZr
Qe0y/7q9zE2c+k09znSjFlYLlxxc3G5iTaUuBR2SOtDKP6r8A93E6fydfrJ0
dVCgVX0GSdzCeqttx5gF6uCiIk34lIQyLvRoEit5XAdhIfzPghNUsHVYpQ3l
Qh3w0/Gcrx1SxUbwWDhhvQ5Wm8le0O1Vw2ojrJsKJPVA0KYcDzqvhkW4bN18
DtVDf0Yuuaa7Gt5OPenHcLEejOWY9HO51fGr0uepp5zqQfVYXR+FmwYOGxD9
KUneAJYTIUXC97Tw++djyT+oG8ArZYPqnr8Wdjvh98idsQHAg0u8qUwLGxlP
rlZxNUCtkPDcfXZtfGb2I8UNhQZYm/ijUDOljXO3lk7p+DbAIUU5U1YPXdxw
JFXP/nAjCO70yNybuovPW5rKvDzRCC1LDTJKxwzwx8LjZwK5G8Hm5wNBO1UD
fFczYCVNtBH6kmUN3AgDvPLR/u2EZiOo2BU2ySjdw0fppAvVgxvhmhAFqwCP
IX64p4dB6EgTeNZykR0lMcYdGn6bUqea4Jvrx1m/48b4UpzCj1tnm+D8q44W
TkljTHa1JPm+WBOUhw6UZTkb4yD3SOlo7SZYJz1JobNujNHO/ceHvjRBEf/j
J0trJphuZbdhgbUZrOvufYg7aI5LbCfakjma4avgXUtpYXNsttzQY8rbDI5D
Lhf36Jrj0qVPowOSzbBNQqzsTzDHFovntmrvNYPsDulhcmkLXDaneTYyvvnf
/2R/K+Fiia2nMl6rXGiB9on37t8YHuD2QYOrWYqtkEzz7ILQqDUefpdtJava
Cj96F0lWNq3xohjlh26dVliyuB5Ud8gGHwhKHtm0aoUpw84LedI2+MatVVeZ
961wlE/oz8doG1yH3hZ1drTCOZYZjqcWtni4VefwNl8blD6yLpmisMO9mV4+
xwraYCXLY43BwwEHDwlnHS1pA0nzvmcvwhywDs1kNxtuA0eKOaPdQgc8ZC53
grW2DahUUy0lFh3w+PG92cy9bRArfHQ4xcARL/q86T243gaWQT+DTWSc8H7L
d+xkou0geIoiR//wMyxxKqBwMr8deGqTyc1IXmD9L+wzak0d4CLSvZGi+hKv
llvqX2vtBPM9/2Zyf2+stCzS0/+zC3xig+tM9vtj/oUkF/Xtbpi/s5Gdk/IB
v/rSYaK60wNmXwXPTdp+xl9vuav+ou+DxCB92cnNUHwma8Kd9fA3EJAkNaK/
FYllhheGOJn74fF9kUCzqmh8hMVNupNnAJxONDA1x8dhcfnl/e5TAyD0M0bZ
pSYB/3t7Jij5vkNr2Huz0beJ+MlcgN/3q4OwEFJoIj6egmmSyM0/aw5BYPjD
EE3TDMzKcM6tR/MHDAXEur57mIVXZB60fhcZBo2YU3vAIgd/7Ax74V84DL9N
tuwqtfOwy/VouXzRERieM7vNq1WAK6st6dLLR2CfmEkRS2gRvsZCs20uMwr+
0j1Fdi0lmOuxzdRK8yhI5ezUHLuOsFRY1pq0yhi88H2oZqRdhqOzqtjI2sYg
WeMtn3pgOTZu+CL7UWccvifMuXovVWCDYiWfqYFxcIhtDRe8WoWL03HvAYsJ
ULxfr/kNVWM97z2XE5YmQLD3sPulK7VYTPwMQWo7CbzeVbEH0utwqUHS693y
SfgS8r9Vj/8HT6PtmA==
        "]]},
      Annotation[#, "Charting`Private`Tag$9122#2"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAGIQvejVzpKz7YF2DFCQxSR6YJOIgT2M/02iakO/iAOc
b7NkjUadSACcf//l0ZRSkQQ4f2PPJaZCkQI4X+rejYt5Ig1w/jm2mJ25IhPg
fJGHvpG9BxfA+YVGsx+zPl0B58uVdL89n78Bzv9VmPh/zeEtcP46TT6J2Wd3
wPnhLJfdJPX2wvmzO8TFRPYegPO/vzbgUdl3COGehDDemldH4PyJRs8n3vl4
DM4vmHu4kPX9CTj/lOSamDLx03C+wOf/p95LnYXzL96Nd9noeR7Ov76htUd2
+wVE+ClO3PFs20U4P3aW0qvgM5fg/K8HM2Ndz1+G870/mV279fwKnK/3fmVN
yO+rcH7brEspQX+uwflz/BqDvgjdgPM1Nj5tlBK/Cec7PXh/T0XsFpwvKdHg
eFnrNpy/SV+Q544egu/jvujaEyMEv67sSPY3KwT/0RWOaZLeCP6aiRNfxWcj
+A7ciye/WY3g31Qyifu6HsEvsjqq8W8zgr808/le/j0IPtcJ7RdGZxD8xff3
bLK+gODbfPetdbmC4OerFQiF3UHwOewY78Y9QPCv2JoLBj9B8AHHP8It
        "]], 
       LineBox[CompressedData["
1:eJwVVHs41HkfdUlLO08UuyVsCVHKUsglfZJrMw1Ti+Sy5G6ziFpSL9pU67Ll
kshtsTE2EZHLyHyyLdlyy0p2fX8z4zbsRAzZ16VYe57nPOef88c5z3meo+4T
dtJfSkJCImCN/2kxq2Ldw8lBUEs+8CQx6gfu+tr+V0nvBwHUXroK3Bq5hS8D
8zIWBuHR+LQ7I6uNazqyEJD3YRB+4T/K+Fj+itu7lGhQIkEg1lrD3TfqT27I
ZpUPFesIvIvJ9W12GeLK7HnQVidLoLHBeHSuVMgtsLRIQxoBZkDiYe0Hk9yD
p7vc2xUIJBd81aFUI+b2hHvteqVEwDjzflbAN/Pc4B9mZv7cSsBQV0t39tIi
V6rwStOwKoHeKqqpcPwjN7d+8/W3OwgsbdNsrXCRRMPun1nvNQnsMNkkviaU
xsCV1jGZfQQm/HLoiylyqKn37RF/gzV/1LbG9nEaCjyVcn8zIsCz9xTlmiug
a7MP6+phAj7dhtOUshIqTcmVDx8lECRjttNN/3PsUa2WOWpHwOqQ0j25M1vR
/vIqR4JF4KybgbFQQQ3XPSj9zNtpLT/zU3WZ1O34dJAZjq4EZI+33MhXUkdT
8zyt2DMEBCbPReN9GrhnySR1OYKAhmXp+RDxbhTuFojcoghEb9Gl5rN1sfj0
DRvOJQKdkm9ehzL3oUrj66XoBAI6N4Z7UkP1kRYd4f9PJgFd5y+3ZjIMsZ2t
/NQ5h8Ded0Md4yeNMOHN022PC9b6vz2efM/bGD8Yy/dEsgkU7d9zyvmWCU7N
l5uJGwjMMgca/Uwt8L7WV5msZgKbng1YD0QexgDnpemHLQREko5OZbWAvFr7
ktAXBFZjWexyTUvsihyTnxwkUGjTI3mGb4VJP6d8wxAQ2P80Mm4+0xpt/zjQ
en90bQ//jOxqRxvE/d/HBE8R6JaXPZnfYYtV4i/GhCsEFpv6RLqTxzBEvQ1s
pSl4e+sMXdhER50T3+aUfELBzqHxxpabDCyqanL0U6DAK1QhecCCielhrpwh
dQoeF+hU1nuzMHIq7RaxpkCUYqXxXM8JfWqnY7SPUUBEC+nbK5yQdYkZEMGk
oHPXTuHcXmfcKydnIetCgaLERc5GAxcUasaLDgRScNFVGaUYrujmEWqTnEhB
9nzFdFqrB9prdOj3/0iBZafA77K7Jx4U7VZVT6fA5Z7BEJn1RKXosdm6HAr6
urxjV7S8sDPDo3C4nIIJ8cXtVJc3HnlJXzbtosA/IVnGJ9gX9dLLhAm9FFzf
z98wi76odnp9b3c/BWIp3UNmW/xwSdhS5s+nQCfh17DZ535YI2XqkjZDgcpV
hvlHgwDcZaZdPbGZBycyzj5w1glG2i/SgVmneIDqi9cFeWFYaxvkm+3Ogz6j
ja+9JcPRY7TD664XD+qbHLR/MgzHiu13XHMDeRBcee73dXnh6HBHh/5TFA+0
w5d2RYSew9SrzH3sLB5cqDa80KYeiYpfZ83VveHBS7zNFLR8h0+Wl6frB3kw
QDPzCFr5Dv3uek828Hngl7/z80PmUVjbt3uMM84D/Zm39LbHUejEeNLP/T8P
JIO03vtWRuMdk6HGti18KNPrM62riMFtirrx/af4MHOzO9tuNBbH2ktoeh58
aD7OUlXQj8Oq2B13r3nz4WrRmP2Xl+PQTvTZI8NgPpzwiWQ3bIjH8y0So+kx
fPAPKZ+XKI3HzrB+O8d8PqRcKDYqHr2C8R1X5NuH+SBtKm0+eiUB546GdBNj
AbDEeW3uZkloLLevYMREAGrvDzxMDUzC6O6pEJGZAFZtbJz+vp2EK+5hGxYO
C6DktHW9zEwSyl6IsFG0E0Bao4OyiJ2MquzopmOnBODCrVNx/+JHtP70Grsu
SgC35utu9m9Oxdt/5MelNgjgxItk2jGHDLxML7atOzgEnKSuv/qCcvBZa7BC
ZcsQZDCiLMPzitBmK2058Ogw1LwrisWDpagVdm5irnMYVmRWN37PKccj+dX/
WLJGQI4723W9vAqLq39TkeoZAfr9miNni2rQ90WO1W23UXCWcxzx3FSPXhxG
ysTgKHD7Ih1WYzjIqcQ3G4PGgG4R0v3Mj4seievN2OIxsLI1SvrEtGXtr3Sa
JSOEsChf2atg+AzPi2lWeh+FoLhU5vR1RCuKYjv+Vo0bh4Cy5Aqq8DnOK/9v
wXlmHHLu/off8V9SOVra
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$9122#3"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.7999999836734695}, {-0.2, 0}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{3.7498056468894978`*^9, 3.7498057054091187`*^9, 
  3.74980601949086*^9, 3.7740737869512787`*^9, 3.774283942904867*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"bd1cf89f-715e-4fbd-9621-0b83585b1319"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plots -- series expansions", "Section",
 CellChangeTimes->{{3.774073981608861*^9, 
  3.774073995122039*^9}},ExpressionUUID->"3928cc28-f70a-41ad-97ec-\
0eeb82380cfa"],

Cell[CellGroupData[{

Cell["Fermions in 1d", "Subsection",
 CellChangeTimes->{{3.774074038386326*^9, 3.774074042712158*^9}, {
  3.7740745627067947`*^9, 
  3.774074565065641*^9}},ExpressionUUID->"29cfbd92-7609-4bf3-af61-\
d1b4b694755f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF1d", "[", "t", "]"}], ",", " ", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"Pi", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"t", "^", "2"}], "/", "12"}]}]}], ",", 
     RowBox[{"muM1d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM1d", "[", "t", "]"}], "+", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", " ", 
        RowBox[{"t", "/", "Pi"}]}], "]"}]}]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", " ", "1.5"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7740740222920227`*^9, 3.774074027229073*^9}, {
  3.774074085037909*^9, 3.774074146663292*^9}, {3.774074183988315*^9, 
  3.774074211872163*^9}, {3.774074252639189*^9, 3.774074282527049*^9}, {
  3.774074354290174*^9, 3.7740743765993567`*^9}, {3.774074463087178*^9, 
  3.774074463749673*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"ce85b0fb-82a4-406b-a95d-a02ab4303fd7"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV13k8lFsYB/AslUrJ0g03KVsbUoQWfopC6NraIylFi2wtUskaZY0sZV8q
ytLNUiiS6la2UMiapGFm3nnNiBLmHvPPfL7/nOU57znP8yx3PGvtJDhjxozd
AjNmTP/vdGJ8rBp00p85Y/pHQ9hQ1q1HxgjsACmbaWumJiQ9kbHF5VJzcwHi
/iVKfhdU7LEnPIcpSGxW1/pvsswxMBJV180kVgqTy+bLu+CqZNsSEeKJnUfj
j6i44mhTfv484qHAlpojce6YaVU0IEa899jY81syXpB+xKqRIq4xlC19lXQe
nRmHTGWJNRT1CkfkvWEaP8drGXGSoEOOcqYPHCJ+G60gFunzz9ijchXeGpoV
6sRlvU11r2yv4ca75+3axG6Wx3YeivNDrGl6Moi71l43DJcJxPqft6VtiGNT
pauUDwbhhW5Zgx3xTrHcLS+SgrEq1k7NhbiEqt3AkQ9Ff/+uTj/i0/b2/14/
cgOXlYvVIokV6jnqyzJvInHRB+Vk4og8iZVWKhFQadObW068XS4ra/BEJKD3
dPQ98dU3dxa+tI3C84tyNzqItbRVw/fHRaN/dCh7ijht0T/BN2RiMfI49Im5
AA2fuviaPWWxiK+yaD9CvCeoV1Dx4G34esbcu0As+tPdtzwpDhEOEzrZxBdb
Yi+y5BPhH9mmKyJIwyasq+RpVSIkFm1MViBWN1L5GXjkDgzW9uToEfc/KXWX
y7yLYanTFeeIrWK+nNylkoImfvU7NrGqmWKO7NsUrN0d5DlfiMRb6PSPgROp
2LrO740a8eFnU48rbdNw0S/f2Y140aoo9X1x6Vj3uzZ9kthP5MmKUJksCKnu
m6M7k8Zq4+iQf92yELrfheNE3BR0drDjbRZKBe1TY4mVhFQfqp/PxgVZpt0I
8ZvJLPWWpntgfCs59HwW2S8vboN8WA6OixqmnhOhUbzuXJzJtxw8iOMYFhLb
u9mMuW/KhVzUklImcQFb7FkNIxeiw3ZznebQsGaEbDm5/RE4MlWuR+bSSOi6
ZFg8lY8H8++E+InS2Lpkf1b37gLsVBo2fEc8dEBnpkheAVK7zraIz6exlOV9
NE+tEKUDg+ezic+6aCvP6CzE857kxs8LaEgcK3iQrfsvxrdf3esoTmPf/vQC
ergIZ1wXHVi+mAanw3ZuhmwxYiJVd10lDrYXcbIxLMa10TVincRPjp6VLYkl
1isYT5SmscBVL8hHpwTLy9NuysvSeO3ffmDWlVIExynpWMvRWP9IfNYSkTKc
mr+s5YASjXfqrx3qNMoQGePwoYnY4fHF8qv7yyC+59I9M2Ua4SU9bl9zy2Ap
+mWugQoNRlVexz2Lcjh9W52iuZJGyifTx+tiKnB+2z/ndqjSmMf3O2S8tBKB
mo2nlm4g8XLZa6+6oxJJB8vHC4mVWlQdxF0rcfP4qIeRNg39nNajHc8rEZOw
dJmrDo1nOXHFpepV8Nob6167kQbbhlVhVl8F2wiXmcX6NHY/iP/gOb8aacNf
szeYkvtt529+fHk1fnBCnL8T90mcqdu3oRonHs2SiNtJ4n1lW4OeXTWuxs+T
HjejEWrNbpqdVw2Fj3R/7S4azye2fblr/gpC59Vkk21pKFtRjFc3a7DssXv/
Nwcasr7Gm06k18DpePm7qiM0Fual3ZxbWoM7Tq33UxxpjIvYqFv11SDinPFO
u2M0GqtKPbt1X8PstsecgRM0Lmn4Tf36/hpx95e4KZ2lUS8mJaVu8BYhX9XU
za/SuFC/EQkj7yC438VsPIXG4iLxbgGBBtQFJ3ro9JH3pM+wtmFLE2Q279zU
vnYY1SeT/97PaoEo9pbmXh7GTxU9sbwzrbDryHzxT/UwBH8/XPi38hc8qV2W
zJjDhTbfocQmvxNCX6PXLDXhojZQq/7N6h7EqtmKGF3jQj6K+TuH6oVwjLGN
bykXzLGe7k8afVCKlrl55zsXWUPl7xdEfEP9x8bBPHEeFsjd5/T39+NiZOWo
uA4PBnsCur4N9kPeuzX+FrFH5OEPfVQ/vFOaBiV0efgsIH2/91c/eR9upUls
5CFlIMS+U/Q7MhvlDyzYzIN64cm6Zq3vkKu/LTymz4OFofrD6sDveKq51j18
Bw9hLsXH05QGoKAtd73Rlochg7yQeasH0PsX98uO3TwYS2fnnl87gLj4zS0V
xIJvYynzTQPgrjhQen8PD95KXud//zOAUIFZW7338XC8Z32wtc8AZO+rnJ53
iIetuwuzhZsGIDkU7cFy5GHU4GG/s+8P6LDlGjPP8lCRxbx7IfAHaCN4TxL7
i6jaBIf+gPfYvM973Eg8Gh+9zIz5gQVm9bki7jyoHM5P6b7/AyzmrGpnDx72
XHm8z7bxB24m1RbInuOh+FlpLZYzwA2ja7df4uGS3K+AXSoM1OnaT90mNvDT
3Wy3hgGeZ0H/d+Jak2c5lzYwwH+h2Bjow0N/a1lwsSkDrHdOipWXeZAafW6w
xoOB52FfXyn78uC1vqbor1cMzCzfta48gOxXa1la9H8M/P12y5/ZgTzs0758
U7SegQDNU662xJs3aTkKtjMQP7fckkUsuC1LjKIY0CoJmCUdzEOkVeDJ17KD
MDVP23o4hIdcN6NlXh6DiGSrWeSF8ZDkkTaPc2EQ/QGmeznE4V4Toy5XBsEt
0xRdF86D28WiusMhgxAvzD7/hFjnmpKPWcog7CQO/lMUwUNNpPBnhfeD6Pm7
X/ZeFA89+TU3Py4fwuzqWe47Y3loZAuz1q8YgveuRcxrxFWq281jVYcwEuQv
VUqclvtadK/OEGoC759TuM2D47034Z3mQ1jmfsTjJ/FA8n+RPy4MIXtW5eGw
eB7YYbUxk3VDiGvTPnj1Dg/dH0RH7JuHIBkQ05pLXD/XwraqbQhSmi+FW4nz
Q+qkAr4NwTb5ubv6XbKfwPrbIr+HYKx+Ob6deMSnMV5SiYlGb+kly5N5+HOy
5e6qS0xMhb/dfy6VB1ttu2h1XyaEEk2KbxM/EhgI1gxkQqJpSV0xsX3CmLte
BBN+0d/W/SR++VrWxCqDiUQ7ZqNbGg/Xlx0ZufieCU3ZwdMH03noZQ4OXmlg
Ii54MPoCsW6pR49/CxMT9xs8Y4iHLALfh3Uzke/n7vqe2MLnfloal4nM+LkG
GzJ4kPzMNv9PloWwoOBDU8Sn089vq5NnYeKTsu1fmeQ8TvN1mpRYUFi7ZY46
8XkhccVOdRZ+KnEfHiJu19D6zdnGgs0f35YS4tSbl7IXn2KBKzqrzD6Lh197
hO4ucWMhf4VluAexpUJY1PJzLDTapS8NJhZ8luyzxpcFw5HLPo+InQaqrBDD
QrSTpPwo8Zqts6eOl7Pwihm+6Eo2D4W5D1e0VbFgqblHLoJYS8rSyvQNC1Fr
N7WlEG/5kZC15iML0iH+JyqJd4WvNqMHWLCTsWJPEDeN1nsdYbFgf04zct49
HvY6eKY0DbNwuO1mvwyxg2bFcNEECx1PP+RsIPZot0jwlmBjTVp1qgvx6Dbu
y6HFbHyejOw+R+zzKI55UI4Nhy1qH/2IA3179PVXsnFWSbgpgVhkMMC5QI2N
V2q2vZnE4dYrby3TZEO5NS0jnzhO2f27oD4bIUWHDF8Ry0YuEvMyZKNUt295
HXHqr2e6303YCJyMKvpM/OCDYNhbGzY6W+JGGcTP3GPXh7mwobvUh5pznwf9
Dt1Dk65svJTxPytOXG3UFeTqxcblTfOypYnfL1Zpt/RlI3Jjo5oK8S6/94LV
gWzEb1TwUyVuHnJV1bzBRk2GQuh64s7npb6LbrOxuvtAqR6xw4pDOcF32Cip
ftC1jfh71IzmsVQ2ErQ+PjUmPjmeNeGczYakbo+JOTF11FTlSy4bRg1d4ZbE
HnXsf8wK2Ugcb71uSzymfcu7opgN/adt2vuIL6dpZ6qVs3FTmHnnIPGMuR21
KVVsvGiXKbInDvT0HRV7w8YODTf/I8RzuhSX+X1gI27q18xjxBE7/jPlNrLx
RbdS/zixROFpz6Of2WB8rFN1Jo6TEU9u6SDzP1vb6EL8d0Dxm+1f2Sjv5qw8
RZzG2k+XDLDxVE1G5zSx0p4pmZUsNiaiSsan/aAywzBxmA0W3eR5hlhtlfGZ
uWNsiGp5Z0z731vMOJ8JNmRRFDxt7YnIKpYABamRiGXTLnPSGrKbTWFIU8pt
ejz9hjbJBlEKHzp3nZuev1r3ip6BBAW7D6YaJ4mNM5afeLyYwqwvYunT69dK
WKDyZgmFzy/sB6f3tyziT/+X5RTu14oNT+9/fiAjk6NCQb5lzVNH4nHvT47C
qhRWZ5XrOxD/OFu9XGYdhaK5/wXaEbc4FfSqaVPwat5/4wBxnlWo/V4DCtrF
Gi02xHeMz8ud3k6ROvO69PT5Besd7by2k8Kum8FLps/XYZXegVxbCtt9048a
ElvIr5ap3E8h7339PX3iTYsWtzXbU1DNeJuzkVhSYHj3pDOFjSx9jvr0+Y51
SUm4Usj/XL9uFTGL9b5ZxZPCNj0LLUXiN21ZVpZXKFgf0vX+i/hJffRCJ38K
8ddKysWmz6vmaoP3dQqDY9tfiBB7F+6zyIymkJRdLjRO7sfxe9tFn8aReG5+
soNLbJ20/kPtXQp+fd2mQ8SqIaKmo9kUBCR/RrUT9xyuMjIto+BwVEyxmLh2
d56QfSWFsLFE54fET83uVHvUUJhsSHZNJ76l42WQVE+B959mRRjxdrGVWzh9
FEYYofYOxOtnLvojxKBwpbjhgS3x0j8CZdJsCqduNz8xIf410KGzbYyCyBcd
UQ3ihy8iNW/P42CHsuPbP+S9Sii6zM1ZyMFmkxBpijgw1+Xxi0UcaA0Vru4l
to8zXMuQ50CxZs2tV8TirmOrN2tx8NfyEtfrxBfkDit8PcRBGXXDSYjY0VJj
T+cRDoqLKEUueV93BQjcaD3OgbH1znu9xCqDmcN1bhxs+CwyVkHcUsSoKgvk
wGPq2rvp91vD3ONw7CMOHEdNNjaT936Jr2FM5GMOwrg9m14Qz/5X6u2NEg58
VNgzcoi7F5eq+1VxYHkn9MsV4rBvfybPtHCwacW9GiVixqWgJOMJDsxLjXxO
kPwztGeNczrpYw0XDL3dRexASwrKkz6QEerfPp2vzBS/b5AlfZns74dmQsQK
odeTF0rQUEt/dvouyW+NtrWnJ0mfIljs/6CK5EtV1u55rRakbu6K3dKTQs7P
1rzyhiWNur0GlyuIDZ9v89S3oXHgbMSFROIDEWs7svfR+L1yY7o1cajGnIde
R2k4a7e+fEny+YBXxU4JbxqpuRkGMUnk+5tUuGGRRWPDr3MXhEh9oHpcRl/g
PulzaufrtyXyUFovxi3KoREgfOnlI+L61In9SwpoiFv/nLIlntz6eRXzGQ3p
3qu7MxLI/MGh70IaSN+mKumtQeoTSTFapGachuO2wA5ZUt80Pb9x3XSS9A3z
z1QPxZDv77TyrAY+jaDm9rNlxBLvDwh9ER6Gs7Ld0v3TDno9yVkwjGifjvcx
t3hY+OcO92/FYfyu03aeIvWV6I/tnZ5mw2itlGE8IPWYcOXdAsWkYYyfsr5t
S+q9L1uMTHpShpH1RFBOnLigjNV7J30YMziWR+uCyHpL9CQk7g9D1om5Zjvx
47werxn/DsOlXSp/Hakf7ZMUN3W9HQZVt/jqlB+Jv/fDmjjeMDr9jt88cYWH
U1rl7XPMuMi2EDP19iT1XOOnR08tuJB6t2r7CuJFZ2jfE5Zc9FvaC38i9XNl
trLK691c/Pm+oXYtseTiKI9rDlxEO/r595H6u/z3sXlj57g40HU7aosrD/Mq
F+j1p3GxKb/85Ctncr9MHdNejHKhXhH9Uc6Oh59M2YUDcSQviSueoY1IPW5j
LBRrNALrioRvWit48DUJSi0aGEGxcaetgQgPy7t2tmUG/cTeuQedpwbIuDqB
sTLrR6FQz++tqOTi0NKG3wLNo/ihveOabgIXP9+H97n5jUE81iLI6iQXCcL2
XtZKvzDlFyD2YAsXkt3FGYI1v/C1qzF893wuZl7xs93o/htCHnEBOq0kzjn2
BX0S41AQ9/dfmTEMjzsF4RLV46hRTLnAcxrG8zUhIuKufyBfc429euUwxHd6
qPovmIDUYyMDLRaNTrXGZu+KCdS5Jx8qekCjMAVK/faTWPtfqowL6UftCrTF
5aYmUf7edZ8luTfXgtL9OnOn4NRx/HwGucd5DLm7C8z5OH532V97V3IQkhzk
0L2Ljx0ZM7KalDk4Zs1Wzrfi47tGY5+FIgdLKioKLfbyoSJ20NNwKQc3Ig++
CXPkQyaM2btaikPuUeLwXG8+TM5ajQzxKSgESpnMvseHRuwLdY1WClO6l+e3
PiDjm8Qx0lsotLO/Nd17yMcVayNbySYKUXuf2O14zMdMJrb+rKXAX23tGVRB
5k+77FFcTaHzY2SKUDMf2f6GuivyKTwNHjva/ImPyOZPErEPKcRuPrwqs40P
6dmFqTNyKJhlqxdt6+bjrO2+xrZMCmUX6975DZL1NutFBCVSiFPbEGnF4mMy
seUPh+QR974k2+UcPhYnMP8+EEthpfnpnqoRPnz/KfFUi6QgLNCSFTXGR9SC
iw/jwij0Fm8+6TDOxwmJz7f5oRQqTmau1Zjk4/DB1vXOJG/Fy8/7yefzwWL4
+zcGUvgfudbvaQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$9844#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwd1Xs0FdgeB3CPCSnPNDki4mCadDwm9KBvhXQxZjzyKMQQYfJYlNctaajk
SCYdyqPUoTnq5NWhSMTBCofGcCukksortiLcabi7u9f6rd/6/Lm/v/Xbe/0v
4c6HJMTExEJpfe12h0b+bBg9tENK7Osh+MZKLeIlwxqGx1VcvvqHqzl5lQxX
FNs7OIhTD6szk2L0fBAaenNcgtpe9LQinxGAxAFd42XUTLZG0ZJmMF4XtKrL
UH+x88/20wtDZgX7zgrqseQeoR8nEhlrjr5ToHYPmKv7nRGNAdFJoQq10Eqt
uinvGGJ6S/eqURvpWJbNaMbBlyURpUWdJ+HL072RgOxnMVb61DJDp6676Z2A
Ro9iDYu65lW3qMn1JIiW6D9m1BE/B9h5cZKgXH/7MqhfGJ6xSmckY9dUr5IL
ddZV1QbdAylwTNJs9aa2UyixeJh3GrwAtnYwddVkh+mUZirsNJ+0J1H/6uNT
ccbvHC58LmZkUGt3TrG0bqSBqVkol099nq/8nZPeeZgFLL2vobbR4HJHgzIg
OOnf2UZ9ouWK4iPXCzg1Oba/n3qzmUG6JycT0g/9Axepr63+6fQ5RhZqDf7Z
4yBOkCDKFrrVZOH2Xwk+ftRuKa8kdA5cwni7hnoM9crZyMTaPA5cytpTudSx
PVmxE5qX0bW3iyUtQeDCflF1r+EyTOIPx6ynZlnrzSb7XcGbL8xAC+rhyupI
jRu5MPwsbRZN7XSxL8RRrwBR945eHac2sNfhqbUWYG/0BsYKSZq35K/v3wVd
RWiS2NaN1AfvL5bXu15DboZq6BHq1RsusDw4hbiZQHIWqJNkKvVTGVyE/I61
xssIvrfNPFsRwUXroGqyD3V3SvhofysXdiGmZWxqpqTBLdaxIgh3bHEep275
h8vq6S5GyouAunIpet9PHFNNNg/bP3oa+csQCIyPcva+4WHRKEiUR+0T4TIX
ua0EI3eqNz2lLv2gcF84UgLDw9pbHJcTOI+ctQixuY1zT9ZF28gS5LyItxIs
3kFUbOVZj5UEu9Q9uYP7SpHHm/EsoB7bb75Mhl+KD4y4yWHqdRNx/vxNZRC/
Z+8XLUcQHmymKzZQhtnRNWF58gTKAaV/FG2pgLKuA1NJicDDs7CUTN+F6ryO
ZPq3BFP9rrLX1QQY09w9P0x92kfmkIuVAPz3+dmWawgq/cPVqrIEkHKX7yXU
8mGWKQnmVfhG0G13kEHQfOr5fqnj1TAMG13vpU5gcltJSl2mBta9jid6tQke
s5p9RUY1MPtbq3a3DoFveWztCc8aMB4ZXS+jTq96GfG6pAblBsvDzzMJRhr4
/cU/1oL1W76ksx5BQe+/yo0vPoD7JlfVhQ0EK5aSvGzX1SPo2MJUizHNK9jd
x2BPPa7XRbzZY0Ln1WPgqxRWj978s/Gt1Dt4T/376+qhveHKxbYfCO7zOIJq
VgM8Q60jn5kSfHCZeGDf2QDLAkGf8jaCfX9kt0fJNWKgTjZQworut/cph8D1
jVBkXhJxqIeUj4g8TBthodPwbKM1zfv47i5L70b8e2LuubsNQarzh25pfiNy
SibPVNsS1H3Z3Zfr0ASb3vnMSw4Euk6TI01pQsQOJ/p0uBGoJdpuCyoU4klT
YuZv7gSK/GtpstVC+L1dnrLdg+C/Mi4spyEhDKYe8PmeBE8aqqMGtzQjWKNg
Wa4XQbxR0uL822bEDTt0Xf6FoFNBRYW1sxWz6l5t+uEEMZ1bkTPzGN7muw6m
nKPzYwnePpZpw4HVvB3eaQTcdCP23+ptkCNNzaZsgj8d9J/72LQhLVe5fSSd
YGO7SpQupw2zbasq3DIJXrZOFVeYtyM2rWjaKYfA9lGRvCi+A7goZd5STLDm
rtKguHgXuuse9hU10/dqyKqjy6IbhmPGehlK02gMyV/rOdGDM3eDCxUOT2NW
z1KBf+QpflLtfhbZNA2JhVuKa3X7sFJuaetmk48wW/KtcrkzgGxjPcsM7kd0
JG/ubPn+JQa0irZPrfsEzQvjC7zJV2Cmju0zK/2E8bmXg71GQ4j/0uRYuHMG
3LHaNvnzbxDvu0pXemwG8ho3p4aHhxG9h7vKMm8W7GBB4DXmO9zyXjmq/ONn
fN55a/hw4nuo6+tqx6nOIdpEePfbphHkyTYom7+ewz721M7vPo7g/9+T2Dz+
B5mxKfA=
       "]]},
     Annotation[#, "Charting`Private`Tag$9844#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwV13k0lO0fBnAkqSR6pWRtUSpJZY8uUchWpFVJloSQ5RVJllIKUXlFlmQL
LSRbwtjXeUJ2s2AskYSsqczv+f0153POnLnP/dzf67qf2WzlYmrLxcHBocvJ
wfH/T33bkZayUdtDNOOPzSuSnh3i1t50vVfkCDySXB8u32eNAy+i4z6ImMH3
Tjp9pbsrBsW2BdzYbgHpVypGhqleMCA6c+JFbODsdfyknoMftoWKp7Il7WFs
H2nCORGIP/rWzy5vd0aims2ML+89nLGZL3ki4gEiU4Dr8Y8QVGlvKqiM88Qf
HSeF8fJHkN+qkT0j6Q0JSAq/L48ALysw6fT226Cer9/w0fEpGHvva4eJ3IVm
lVwdyy0akS82lkmbB4G+K0lV4VUM9NdmqpfG3cNa3mqtho7nyP9BVZyQfIBV
Yx63G2Ti8ejtOhmT7Y8wV1znt/A5EYnrj997KBIJ/gyvRJX5FPgQz6pOF5FO
FReR8kzF6aA+rq3m/2Ff+bI3TdOp4Jt19fsUF4U35UnGr8fS4NUW6fVdMgYl
i4WflD6nw+Rpj4Px9gSo5L567m7zBgG8H3Y8EElBOPeGoxE+77FL93FwzvUU
yMkkcdu9f48vQS6jtNoUiOnVdfYNv8e2ZbKv5ch1dZg+lZUnclDzN0Wu7Usa
0m4eNneW+gC+6ShFydAMGO82GnLNzkU046Z23tI7cMQKRl19XoDDYudSmKey
sOPko/zemgJ8O6+8nPdtFmr/yKttmi6AxHdv67d7shH25D4XXb8QLvZK0hz0
bDiyjP8kzxdinU1WeqpKDrjOygTU6BTh7LmXWZNTudC+rnW4rbQYEzSzVUmb
8vDYpKhDk1WMexa8tie185Bx85P8veUl+GDtsik/Mg+aPx5fjDMoAb+zRpCP
cj76QvlDl9pLUB3YfZ7HtwAaRWOuHQOl2P9GkEeMtwjTp6uDK93KsJodcEFX
goJ8iwmtDToViLY/YyGrQ0HYXR2hoJMV2NYmaynoTEFZwGPZYcsKHMrotKaV
UDB/yN0t0KcCHzOi8grkytAp/2aNdHYFxk9+Lzb4XAbRNvUOyQ2VOJX+rNF9
TQUMah6IHqdXIu5ioOGVzRUIdpQ20BqpBGudE3FWsQIu1skBu2Yq4eKr1aRx
sQJ7sw4f6FldhQem419WvK3A5hMa0wVqVSj5o9UTa1iJAyUY9oyqgrTJj5HK
kCqsCTjONNKpxiY/XTW7l1X4NvBMn2lSDYG3iSGrCqqgeWzmovXFaizynpQz
YVVh2TfVDAOPajSXFbgzVaoRVNK9IeplNW7KBywtDFXD1fmesthiNT6vFRKS
06xFNv3aRpXkGlRqONm2nKrFy8A1r9ze1qDQsSbfw7EWrQOee5ILapBc63Xu
U1QtWsTTdIYba+Dlx0jQG6+FFa0tY3a6Blsm0nZaP6/DThPagqZWLW58VkX0
TD1kyr3LqzprwS+XN1TP24BYwdx+hb5apITJh/4Wa4BR6Lxs/Aj5u4Y7ui2O
NqAhoeHC6V+12N0o5C4d1YC76hN1jpvq0Fs7kZaj3IjEbonJHeZ10C1P5Sdu
UrGpQC6Jr7MOTKnNeUuPqOCLKVcMY9bBwz/OXD6ZipHByFSe4Tq8xNP0p41U
EIIicoMzdfhd4q91XozAhZ42J/119cgqMvf8WkLA7Vn4WK1BPTbkCjI5OZtg
jdHUVx/rcSH0t9mgcBMCfo5K08rqkWQz1Fgj2wQ/S/6fPHX1kF3/8WPI2SbI
NJvf1e2oh5an5X/rs5tgLBe13elnPZTizqRF7m3GKovJWeOdDbhskXYxndmM
rXu6ZsMfk/vUF42JGW2G6XDDaMezBqQpRbQ9nGnGSMT5euGEBnznv2ngtKoF
Qx6PLwZkNsCTYqS6X6kFhxNoZ7kqGxAqNStUHNaCSEjcKvjZgHyWNrVJ/Qs2
PTC6zGfUiA69gKkw3S+4V/B16pJpI+belQobmn7BlV3a+9+eaYSyj+rlOrsv
uHmEt0XBqhGF/+ydK3vyBW4K1uMLno34eGSTVM7IF6g/Nag786IRxWmT7pGR
rXAwtHQIHmsEnU8uxvRFK3pDTzRtnGzEHzfHUoHMVhz0iDdNnmmEBoZ5wyit
aOnfWp72txGlnbT4oG+t4JtairJbSwWFt7bWU7MNeheeD7Tuo6LCIV703Pc2
PJULPHzNjYoPo46OFnNtWN6ec5zbk4qUq2qfrDnaIWwQ+fSZNxVBVzrPOwu1
4/ZiSHWWPxV6VoLP76i3g3KjWvAVORdN54I2vgttRy9VQvNDBhV0Paf1y/Z0
wMjxqpwJnZyL2oO2vModOCbdoWzWS0Wpzqq8NYc7QFsQKTZlUfHiyCuzjac6
EGCqo6E1QoWVZv/TPb4dSMwoPj82Tc6Z8ql1Z4kOpEk+K7NbRWB2u8bat06d
aBUrahZWIHCIpVX70KsTkY0zv8uVCNyL1/O7eqcTrgXmkldVCQgLmU1sjemE
+7uFM6mHCChxOjY9r+qEug9Hy4AeAS9adHiwaBfe75/qdbtAoCwqQffK9i40
9RgkfrYgwGuawtbe14X40ZW+0pcJxNRlubB1usAa84yssiVQlFdz3NOtC0dT
1nvVORP4Ez6z1qa+C+YFYjMjfgSOGCzWHm7rwr9Gs77zAQRCeTj8JXu7YKfr
pMN5l4C47+rJnpkuWC9/EMsTTO7HYUuziVQ3KCt2RXSFE/A7ciICN7phNrPO
MTaBQB37lJ54YDfaXfTbLBIJCHwy5/gd2g25pIdx4kkEEvfZXc9P6oYXlpmG
pZL7kbh9Ys/nbuypenhf8Q0Brl+vBUSle/B06RCRWUhAlNCaxt4eFDsoCPIV
EVB42d1uo9qDKylidvafCNgeWxH7zqgHsotdxhtLyfVjrKS1PHvgzq+noltJ
IFxNRM2+tgfhg87l36gE0vmzxR619KA02qNrzWdyfZYOO4fWg5RcRZE9TQR+
PvSo+jPRg0XuPHHLFgKnaU3GERtpkNacPx/dTkDs1j3rAnsaMvxvD5kyCCie
ENehu9Ow1qlGW5VJwHhbrgznbRoUNnuzRHvJ50PtH9d/QgNFKm24vY8AS0zD
i1lEA9U+Wl58kMDvydbzy6ppSM8pKBwiLVTtoCHTRMMFLqXQzCECOk7RXG4D
NLxk5m/a+ZVARsl06HI+OriLbX7/GiVQ8fihyy5hOjwsJbhTvxHosd1selyK
DurfMSvDMQJ8/Mc3xCjQIaW3WibiO4HrFpkvZS/SEbRSYnbsB4EH+w/fNbGj
45qoVqv3BIEknq4rnq500EenBLknCbS+Wy5bFkRHwZBE/popcj7Zlvkn39Hh
I5NUMvuTgKFRWeDRQjoEFSue2kwTsI6VPK5cQceplZYLTaQjlJlfN3XQIe/b
6Ro3QyAtSCOXr48Or2MCD/6SLm6N818apeO+StAB81kCoy7mIqy/dCSwunT4
5ghwlBYNta5g4Jq+QM4l0sJ8m3KqBRk4KK+Yl0VaK71LP0OaAculiftH5wmc
nVPeELuXgV1yXedCSLsceTYQqsrArWumdQTpuL5Tt64bMfDvXLSf3gKBHLk8
PaszDGgcet/gT7rultB6s8sMODyazs8jzWxw7z/qyMDQ9J2jX0nPbmx9q/wv
A9L5QTfW/yKfr93+mzv9GPh5RtRYk/SWvMc6og8Y0I2+0mBHWmXZ1Lo1Txno
dwseDyFtbHKidymOAWx+WfiGtM2LrNeTaQwcEW2WbSDtM87vxcpm4PcGBYNB
0k8OOh9pK2LgKv+Y0G/S6Q8IgZoqBtSV1oXwLxJkn8oyCj4zEMVb806CdJt0
aEZGFwPNmlsCdpP+5j72byyLAQnG4WWKpDkr9LXCvjPgLAmlg6Q3CmTy+80x
IPDogOgh0nIWK2nXOZhwm1H+oEH6yJurr6xWMdFpbcNWJX1+sdbdTIgJCYVm
jgOkr+vt0NSRYOI695NCGdL3o+7xqcgwMf2JskOUdMLgUNfO/UyEP3Q+vop0
7v6jqaLqTDwYzZGfI/fT4J/iukaHidNxiVQm6b7Pyw6xjzOh9F5/WxXpOTHr
VVPnmJgPqFRJI73GsaKDZc3Es1yx1UGkt33cnNzmxMRKdbs4S9JqKwJcam4w
QZz9MK5C+koyeDNDmLClh7X1kud3ayqhLfY/Js4bq157R/oplhLDXjBx0Emq
zpt0Ga1Y1fUDE0sabc08pDt2ivFYlzBRGVjoV0fOz/cbPl/MapkIiV0xf4+0
iJCaowqNieVc/NqL5DzKW8Uo7xpi4pZfp8j/51Mne2GZ2AQT1H3yJZak3QwL
4thcvZA68sapiJx36l2FzzW7evHzzb9PdMk8qK1t5Hqs2Ivm1GClHjI/6TGX
lc01eyFenyxpT/rOu0eJE6d64R20scaHzJ9a14jbxoBeJKxsu+9B5jXdyu8V
K6QX1z7zeI2SeRYeX09/E9UL2RrPgvOkpzi1jx5+04stOht37ifzn747foND
Zy+UTt1YzCX7Qjj/gKECqxeKEVn3+Ujf1WzwX/reC8GKLc6WZL9kZ/72OMbZ
h9VD6QZ/RwiEUGSYDOE+GLwOc1w9TOZxNDCbR6sPR1a3G98k+89b7nODo24f
nhTxcEWT/ZjtLjLUbNgHvl9Nm3PI/pRYyhKJPdMH0aODr2k0Ar/WMQL3OvXh
wiWe1dxd5PfVlU+dje4DXUJ9MZPs568BgS4l8X1wcz+4LILsb4la4sGW5D7k
V9uGuBLk/WViU/r9bR+GRqrFdzUSuHrl8Y6Ayj7cqTJzcK0hIBkx9ivjRx/q
jE3izxWT+bnsl5Ez3YcTv172i5P3icWBf859WuhD6XSUTO9Hsi861AqpXP3Y
YfGr/GwBmRfxh54Twv1Iv3TyoEwOgXWZMtMK6MfKem0+1VcEllfZfqeE96ND
Jn+3DHk/pvz3K7Yush+Sd73cHoWRebILM2iJ6cfWD9qdUyEEAlflZbKS+yF0
UnMpi7xfl05w2y8v7AettKFrZSCBBUbSkH5fP9iKlzwVPAiMzfcy2+VZ0M/x
Hnc4TSDfLrxCX4kFe7cKS0MzAv6dh9IoB1nIrP/zaJcpeZ4F8U4ZOiyw0vdK
MYzI8/E0/3PrAgtR7k3yokcJPJ/pENkWzILZMfGB3/sJ6E0RZm69LMROBu49
zUfgn8u+Kl8HWRg/fIzWvJLsw2ZZsQvfWOiiq1jqrSDgkR0ycHSWhUAHpV97
uAi8cDnmJrJ6ADe42f6t81TMjVeFlykN4JFqXnYw+T6V8u1TA/+jAQyUxZW8
zKPC+dnxrQ5PB1AhGzZWk0OF8pEBn+roAXyom981mkVFQ/yqPbeSB5BT7tK/
LZOKqRPnwkcLB6CUCG3vBCoOFcydrBoYgOeT2JCoe1R039nH8FYdxNS+8aR0
Myr4xV9NDA4OQqB8xYFTI43QPH2HMTA6CD5OXQuuoUa4hV9qZP0YxGYiYPvb
fvJ9mXPjq76FQbzj3xfxu6cRCcPBFnS+IeTsPdvlQzRCLtuBaFUYQviO+Y+r
chphpC33uuLuEJb/4E+z9W5EqH3elcRtw1gQELgqx0m+b2u+Hrzq9xU6kpcc
Shj18NhflStcOQKei9/+PMkg/9+8qwpp2fwN+6xM5C2VavHboS12580xiOS+
CNicVo3dh1csXfn0HbcL/jYZrquCbtJmu/cbfmDZNdvievUK3BC/tKX/wgSi
siWfztiXQfb7qdWdRpOYJWhX7NeU4J+1k7xVi5MwjTpY2ltSCG5KbNbWuCkE
K6x2NL+XC0eFT90rDX7CKH7LqLN/Fl4fs0osnfuJO79Efdd+SsXs2CaB4ahp
DJsdkosPjUbeSd1lkUdmwOSJvsMZ4gA/vaAXucMzeBm29qaVzGPKZoZ+V3LQ
LP6D4HDNaBJFTflupMj+OUQLeBc5u7+jXJBo+sXZOocLXw/F2pfnUmYbwljX
A+bx94GIr9RIESWa28LDdNsCitePa4bZllH+YeYlcVUtIPhA16Ops5WU5b4B
Zqquv6D9pXDsdkINhSPDIou1bhEfd40KtBbXU9yeZ4Wtq1hEnoz3QvxeglKy
O5hX0Pk3WmNit/WbNFME9d1kA/n/QHF9Ap0220Kh72lu9S7+g9ej4XGnq1sp
2QnYNmjxFxxfeZhevu2Ui1lKguJLf6G9w1qo6kAnxT/oZQA9cwnJ19mvy4W7
KW9HxGP5DdmYXJ298nhfDyU4PsiSacyGQs6zH2dHeig2puPS70zYCD1bY2Y9
2UMRKy7ONjrDhvzBhhRvDhrlYbh5TagVG37DO0zfSNEoV5ViplZ5szH2j0TX
zss0ypa7Qnor0tjQ++ajGcSiUZZUbq3pTGfjivqE8otvNEr3+MCXtNdsNOxW
y/r4k0aJOPPhos57NgJu7xSf5KJT2LtM3YOK2ZjOkJ+12kqn0FvCE5a1spFh
8TfE0oZOKbw3b93azsbwYpxP4DU6JfLgpZ3JXWwUhF36luJBpxikyuVqMdmQ
/SB1dOwunVLkRdQHjLKxYt+5H76pdErUHsVwk+9shL/qaE9+S6e4suLMNk+w
ccRfXL0hj06RMbzWWzbDhveHnrsba+gUbs62lIh5NvzL1Ow0P9MpfXkHHSwX
2fgSqVx3tYNOKXZI3iv/l40H/DWvHjPplGeSq2fZbDaINbTln4bplP8B6uCJ
EQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$9844#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwV13k4VG8bB3C0KSW0iJQk2iRJtKhvpV1E2SKTKL9SKSUlFQohaZtQIWtC
WUIlRLL0yk7JmmSs58ycsSRZ5n3mr7k+15xrnvt8n+0eJdtzB0+IiYiIrBYV
ERF+7jvRVZXXfWLLmVmLulLUVDBRT/78T7kdcFS16fOPCsLa5yGhaXIm0Is8
TJ+5HoF2hSWel1VZiHwjmM57GgP9sro3YXLHUfhCT+vh8pdYErAgVqB4ChGz
Q9WuWiVidJ9d8DFVR6jUn94ZtS8J5seHch7KOcPTfmhhdWkqCvTk330OdcH3
h9b0uUlp0FDenDKg6IrA+rsri1enQ7ztZpSZ6g3cmFW7acWxt2hefVvvrpwX
4jmSQcMWH8B+Pi9PxcobWc2jeW47s7BvZoLux1AfrIz9n+FqtWy85Zau4yn6
wXfTI2lOdw4CX8ssM1YNxIxYD+XR4DxEzDng4y/HRqOa5MavAZ/hVhZcYPaB
DdeHUwyNOJ9h5t0qpmz1GAWK4dmvdAswfdDJPSs0CFLd3hbyXQW4Usu+Qik+
QUrMpiGOZhGMHzU4GKqG45DSKlez51/gKZ621E8uBpWB8wYn/yvFit0PfN+c
j8F0qkQhemsZqr3PdTcWx+DPoQLxdJ8yLJmglqjuEou/La0aW6XLUTQWo15b
/QKbIs3SDyyqwPT+oHWKAfEwa3l6VZtdiZDmq3oZ40lomHLytOjlamxTOBzT
YpqMbtGoAzmPqtFjqTNJ/HUyltp0hxqnVGMh5Wr3elUKem9teTmpuxrnTmmr
iDSlYOskjQ0JFjWQOZ78Mnb9GyQUqXUZramFxeHIZIafjrUdsrZ0yTfwGk2m
RclnwOdxp0jfr2/wYYmfOKSXATVNKY2ff78hze6c/Ft2Bqob01ScVb9D0nGz
t5vOW5SbetwK9PiOwpv1lpOvv8Ox2RZZbzTqoPlKerKC+AcYram4Oeb5AxIC
zyO7F+aCucQyK2AaEHLKnKW2KxeqYbtW/BJrxJJaNRtpx1wo6zeymNmN2BJf
Z9eYk4uk78bbOtY3IjM+KOOdeh72yb/YqunRCPoQla1fnoeNMW6S1tObYPoy
+OvFGfmQFPlvwHN+M1SMuV2f7xRgR9f9P+x5P3G5fANCBv6Hctb+zbsu/YJs
unSLqGgFAh6fdN0jaMPbNr3SCt1q5FuM/jjv3I58h7D5h6laGJix57ZmcDCo
unnm67N1CHM9uyE9twNiw4lS81Ua8Pzyi5BvuZ3QFti8PZTUhDmC6NWm7C6U
emmVF634iVG3hdesDbuheL93OJ7bilmpIndeifagd+hnyzeNNiwe6FV+97gH
MT1ZJZKBv3Gw2nHFn8W9kFwQx2tvbwdX7MGrtGe9CDiVYR+xpANy03OvXB3r
xZ+tie0n3TuxrOWsuosFheyY3meXvTph2bv4xuvDFG6Kqx3y8evEKLtOtN2S
gmTlq0/RjzoRXT7thaE1BdWjSeEtcZ3In6X0n7wtBbPrqRYmlZ3QiRH5e+c0
hYzMd6VQ6gJrAyv5x3UKzpoF6XM/d+HjnC4R5QgK9lqLIh586cIwOyRhSyQF
C+1rd6aXd0HLsPnC4SgKmzZq2YrVdyGPPdUmIIaC2PaYmVxuF3baaqZ1vqRw
z9jLoVC+GyUfHzg6p1JIOL9jkfOFblyUsczv/EThZ1LBnSqlHoh/OFG+rZVC
JT2R0lzaA/6UhrjFvyjkqe3cz1brgau+fIZYG4WIhMLp5jo9cFmXdzrvNwXb
F0V3m/b34Aer01Czk0JH2Jd7nZd7EGbjP5ehKdABpY/Gynpw+anIn9p/FFq+
Th9g1fSg+apcbOgIhfJpBiZ5P3rQV/zrrt0ohSTfstm3fvfAK0FnBm+Mwnmv
8sfiwz1Q1x0sHhWhMeBWGTxrSS98vaxM+yfTGHGofbb8ai8cp3DFDWVomGhb
P1B374WrxXo/PvEr0Q6ftV69kLH9dIw9iwYrZMhpc2AvQo8qKPyYTeNTofwe
46heDKwrzTSXpXF70bGBKyW9+CIT/E5Hgcas7/T+L/IU4jaoJLmp0DgT6bK9
TJGCxGZH12mqNArOCHSql1DQy90WGULsMkFauUmdgouW5JS0pTTqNbSGedsp
tKf9Vm9dTuP5nauxsmTe68YDpiuo01i5bcq4fRaFUKsQjrw2jZSExKU/8ii8
zBItf06sNdvIeG8Rha+hsiPKOjR0O0NiVlZRkL/Zq7xiPQ3Duyv0mQ4KPn5R
6as20rhQbxDiSt77tH7AoPQWGplObM2AUzQSxtsljHbS2NK4/siYI40NAw51
OcT5O5q9HZ1paIg/olbsolEiq1pv5E7DT+L4gNhuGk0579znPKZRHYQbCXto
iExrLA3Po4GXlqF1+jR2Ryn9lyrLRc4N7rREY1JviKRqkQIX11TC7o0SLwoc
aW9Q4iLL9IyrwUEa/1y/2U5U48Jm4Pc1mvi1sR/LfCsXzWpuu1RNSN6ifNOx
k1x4pW0ev2pGxhtqni3jyMXSNb/b8okpqqRG9SIXpSU31aeZ0yj6EWNsdJ0L
R12VkSBi1xQLg+gHXGxXW3o23oLGz6N5O/Z+4GJM4XpZqiWNUtPXE1i5ZPym
Y6sZ4vf6T/MvFHCRGDTz3yorGg91nLeGlnNRuHN9SRzxzpnLdHltXFQZN1mw
j9BI/Hhv7WMJHqpebNpjzKIRkn6tL16KhwIPgZ4PsVfCqdSPc3j43mCU8IGY
FaS3ukuRh6xyiXdKR2lIOw6t2KTFw+18bk0X8eUFRxf/OsLDnk8v11odo2Fr
pGHWdIwH1c3TJXyIDW+J+tfZ83Cn4ZJJCrFqdzS/7DwPIpfyN0+wpVGb3pX3
wYuHWBmps1HEeZ2ZAxl+PMR/vlj3hThR/s6y1EAepsUmpHOJb3qsuh8XwsPK
H0PF6+3IvO+/cJT9iodHq+tMiogV3PUe3UvloaPymUUX8ZQ3s4v93/Lge328
YupxGi2y79Q983jIyBOT1ycO+D0ydraWh+GbRQuKibuueofuHuWhyHH+v5gT
NHrMVp6MFGHw9OQNvY/ENswsMcUJDLQSJcXqiPWVOevkxRlopMr9nGxPY7Hf
7TApGQZeV/zn2xCHLD6vEzibQVGiuPQlYslsiyoJWfL9syvX/IiHucsnTVFg
cGH/vYwU4kqT0jNjKgwcHLal/SXexU2f7LaMAW/NkOXU/2hk3w6L+LuCgfy8
Y65yxHEfHGv7VzMQ/54qv55YwcTc0UmTgWH7l7BdxA9piPO0GOy7MRBsQnxj
kbRuzwYGtqe6+Y7EA5nD3/7TZWCW0mbsRuxwqO0cZwuDt45Gy28Tm/qkRbfq
MZjL6doSRlyiGLqZtYvB54N61+OIt2Z61TXuYaAb7bQ2lViNMpWoM2CwVSR+
ymfi9yb7c/2NGBy5+LfiK7FezvaLWw4xsPzr8reGuFxlw9I+UwaTP233bCS2
DFzdGGtB6h1wdWgj7vijcu+wFQPVpI3pXcQXjirozWAxyBNEsbjE48UyQ3k2
DKx4laf6if00piY625E8r7R9GyKe/UTAWmbP4OWdwagR4gjRPzJNJxn8lFxW
NS6s14EquneagWZzsI3oSVJvddtVPUcGE4ptjScQ79hUrz50nsHYgxfRE4kr
oivaEi4ymDnsYT6J2HJ6URDLhUHgq5lnhe5wzt4n40rm5+D5duHzF5rfjBe6
Mcj0yssR/t7Yzvg3rjcY1NUuGBaO55v03H6VJ4NdX2KDBMJ6ZYPkf91iYNBw
KWhUWK97QDnbh0GsW+Lfv8J6u27e3OPH4JbM8ZwBYb5GrtqjdxhE/Mtu5wnz
zTzXkxzIQMe7xrFHmK+SfbjdAwZSwwVW7cJ8/Y8clGUz8HmYlNgszLfv4OSv
QQz8b71mfRfma7X3w40nDF70tziXC/P9DEfNUAYSIjbcQmG+atqLO8LJ+2YZ
fM0W1je22N8ghoxv/jv5pbA+e7ktonFk/a0ofCdcL+/KZ/alx5P1dv+28kNh
Pc9HDyskM1jor7TUVViPeP+MylQG/TmauaeF9Zzv/nQrncGDwuAsa+Kxbd+X
92YyCF5U+QvEvgmlzeHZDDrymyQ0hHnN+vzgYC6Dqu/JTxWF47cnD2cWkPxu
zu8cJfvH0sfvf74VDA6NqWwR7q8Orvt13WoG2b63HjwjdjJ3WcPUMhC0+O/z
IfZdZvfEvIHBpcYp3MPEb0t0T6lyGHxxqRgbJvt9+9q1Cxo6GaiL3vdsJS57
trzqbg9Zv+saTxcRt5+Zu2GQx2CeoafzfeJZMxnxgn8MFOTmHV5AXJ3jf3vv
GIP689ELRYkfnlGZXCFg4CGhf7SdnD8yJZYTGibyIdmw52C80N6FYzxJPmyG
nURXEUuNPO2br8xH8Y2R4PnkfKuMX+cUqcJHnHu+3BA5H+9bVPJUl/ER8Wnq
vGrimW8n0WtW8fFe0snfh1jS6Xznbh0+Sk5P3dtNzuPpnTubLurz4bTMfWuQ
DblfHrdaDhvw8ex4APsUccAOt/obRnwklrnY6xJLRKV89zPlY9hxg1crOf+n
Wc+ven6Uj1sOlfGLicVrmMKvF/m49k0sJdCaxsTcZ8nKoXyE/5q4eTK5rxp0
d+z5Gc5H/WNVi4LDNJI/UK1PI/moTvNt9iS2fLtZRiaOj8DPl5eOkPsv9fVP
Z5E3fByxbvvQQe5HVqjyxuZiPnT/9+1PpClZ/66JBUH9fIz/KL0Sb0QjcOiQ
9cE/fHB9r0qaEttdGh2cMczHxPgYaREj4fsbLPUe50P5Wo2NyQEaJ07y/C5O
7cMRB5bKHwOSt/naA0aKfZgyrGK9kPQHp7Wy6qfq9yH/bso6MdJv5FV+e/Xe
oA/TKprvhO2gMecs4/6fUR8KkqrM1xPnxqqoFpr2wX3rKeMzemT+Ze9f8LDp
Q3FNfVnZNhpZw8clhi71QWraB4EL6W8kciU3t0f0IWZDMceW9EeJe20jPv4h
/nwjKJb0X1pqSlsw3IcZT+QXLSP+KNnamDvSh3CJndoJpF+rrLGW/STSj8AS
f/HXpL8bsD4c+HlaP7QTs3a9Vib90gWja18W9uPymzfrQxTJ80+3WFTv6seI
5sCpeaRfHOyVl+oI6od7nHRC4UQa7LDO4tAn/fAtqa1fSLz2QLr7odB+LF2V
7XN5Atkvbwx4eZH9sEvda7FUjAZ9xaP82at+HGOFNnkIKHAmdQQY5/djqgvf
bT7pl78ppk7Nofvxsio2iscl/xcO7Z7A3jGAKjG5Ttk6Cu57vJ+ndwzAacC+
3iyWglLzvh/R3oMQv0KtUXKksFHHiy2n+QfttYPB21ZSOLKwYli05g++tObd
8evoxWDJ3bbznkN4WrHkNutxL0ImspwPLvkLjccj7R56vZjVkhElVvAXc1+E
HHhP92DSdU+TDU7DsM7M10n074FIPCu5TeYfLNctjstd1oMLT5PvyuT/g1Vm
jcv3993IWekrLu04Ai+NiSPbd3ZDet8FtZuSo2jgP7e5XtuFplWVNa7Zo9hX
o53JN+lCSjiWtLPGQDna1UrUd8I6WVt6wfgY5NmjCWpWnfDwjvRsShhHtbad
ZUlZB153LXgmuV+AqCJa3WlnB3zDvG1aDInt/asn63Xg+EFaJclYAAW92cqh
WzugkJ2dYmAuQEuN1NfCTR3wv2dVFGArwKsets4czQ6c1H7Cn+YqwE17Ef+Y
hR1Y7DV7z5QXAnDPlBl4D3Ewvv7ajLqXAlyEyHOpQQ7q6d/VLxIFmGStGv6s
j4P75mnWu1IFYFefeZFCcyBYcfCid7YAcz8V/Pz+m4OmqnvhE2oEWOj0anRW
JQfvfYbsar4JcGBDo8bTMg7Ym44uj/4hwFbB9VmLvnKgH6uevr1FgAQ3tK8o
4uDDlbL/eXYLEBHzIF03m4OgVevuGVMC+NbAOi+TA6e2UBMlngAOxZHpeu84
WLb/zM+8AQGkCiPO7X3DwUTR2pj7QwIEJhnUfE3moDVjk4PNP/I+CuUcg9cc
ZDtEr9YYE6Dr3/K4igQOghUlBgUCAby0Tskav+Tg/7pvxio=
       "]]},
     Annotation[#, "Charting`Private`Tag$9844#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 1.9999999591836735`}, {-0.5, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.774074057280479*^9, {3.774074087582574*^9, 3.77407409663315*^9}, {
   3.7740741343460073`*^9, 3.774074151376275*^9}, 3.774074217193171*^9, 
   3.7740742867131653`*^9, 3.774074381619927*^9, 3.774074467743012*^9, 
   3.774283946216856*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"6cd19aef-31e7-4cfd-bf30-de96861a5e98"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF1d", "[", "t", "]"}], ",", " ", 
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"Pi", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"t", "^", "2"}], "/", "12"}]}]}], ",", 
     RowBox[{"muM1d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM1d", "[", "t", "]"}], "+", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", " ", 
        RowBox[{"t", "/", "Pi"}]}], "]"}]}]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "20"}], ",", "5"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.774074402725238*^9, 3.7740744588407497`*^9}, {
  3.7740745052271643`*^9, 3.774074517889358*^9}, {3.774198216473748*^9, 
  3.774198217333537*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"3aff18eb-36e0-4270-85d1-9ac17cd60d02"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdlgk0lVv/xw8H1zWUKFcy9hoyK02E35OhMqSucCSZMoSIbmalW1wUJcl4
JcpwSonivlw5T0imKFxDEa7hcAbnOec5Zur/vP+91l57fdbaa+29v9/f/u6t
6nPZ0U+QRCK1Ef1/Y+F1H5G9vgXmgf8DEgat/Sr2FJUYuOwpGqFC8I+2plsq
KqmgO2D/7XeCt2TWvRIbzoRP6wbeagIYFKLpysIqeaB2c8hUVBADXY7v3R8B
RUD552aXHhmDsS2Pvm8MlUAILS/xoRAGamU/H1xbL4Xs9rofIILBJbOIkGVl
KlhNHl7VE8Xg9cDEU75lJcjIup71EsNgLdh+lBtQBeFu1ebDEhg8FhhNXbau
hrbwSvGcrRhYfbyvvjRUA1GvrH97JI3BXO7xd/zAN/DpWHUCtgODNN9Nd3y9
FqK6GtLv7cSgf/1iFqZcD+F1D6xoqhhEflAy5FQ3QN3cH77OGhjIPxjoYls2
gsEATdVSB4Mmj9sBrH/eQv4bbsVtQwx8tBEyM4AGnmd3V+gdxEBwPbaXH4/C
9bO8fXqmGAxMOCvyrd9Bu4vXq1QLDKIrxet5Q82QV2KQRTmNgW3mrAjvcQuE
fG62aqNgoBD9zokb2Apf+8Iy0jwxQC2jMM76e4g14bBkwjD46eu/mmzlDnAS
qU8sycJgGH0bwZrrgADtbErAIwyeleW2MKs7IeIGSrlQgYHDFQdPhmU3PG0c
27nQiEH2zw3Z9IBeUB67EddLx0D6z3ZB7lAf1B3gDSBHuVDcWRTOVB6BS451
EQ84XODn1mqPp42AxPNriaVrXDgW0DXVtzoC51PP7ckV5gGLvOzc0P8FVAdb
h3ft4sFhMweT1ORReO/tm5lqxYM74r54PH8UpC/3+KQ58ODbSExlmPcYGGVO
fgly5UFiZKmS65FvID806FofzINPVRuCmpxxOPYkkZ2VwQNp+NlDUn8Cnkj6
CYfk8eCIRpZJsu8EnH7dOa9UwoO7fCoe+3kCthsWN219zYP99//x83k+CYfd
Ar3U+nngEe1lMTo5CcPUnKsdX3iQ7MlUcpH7FyYqkvec+JcHX/QEhm2S/oWV
XTrUPowHCZ26tns9p8D6tdZxJQkcKqr/0nj+cArW5C/GZErj0JdrQVbvnoKw
2mDhSTkc1AJcG+WMp4FvfalaUh2HTnKiPklmBkQOnXOnHsGBz9giHmszA+rd
GY58BAfFvjw6njADd66e6Zc/hkPY46rHdNYM7K4mq66fwkHW7Kt0b9ssNHjZ
dEr64ICo+XNObM7CkOk809gfh0BxblezER3698WSLINwaBwRSap7TIeEt9lN
rHAcZtH73oZDdFjObmtLj8Bha4WC+TPJORj4vDNBIgYHn8h9y4Wxc9Bw8yfa
kwQc0s6/7f+leg6eUkzLGm/iUGt14tV9+hzY1P5343USDqIyHoFJTvNg8vPn
OvM7OOxbm7P+cXseAj15MX3pOJyb/G13zLt5uP3X2WDrDBxeVqV+vaTPgMCa
jeyOLBwY0ow0W28GpOiJytZn46AZaWu+J4sBdQq/5qfl4uA78owj/IEB3x5K
2lrl4/DYVLx4apUBM+kOdhMFOIwWBTu+02XCSPBmi1chDjvJ3eQiTyZ87h4Z
ef8IBxd/3dr4TCZQwqNqtj7GIbMjzd/tPROKXUx/My/GoUeX/cvhFSZQFz2O
OpbgIJ5xsmOHDguMy6eP2j3B4QT+IhY/z4LfdR7naT3FIdFli+7nDBYYnTIM
YROM1oeOvWxhwWzN94nsUhw2FXrvpi2xIOm5+U6NMhxMbhggQVpsYAPLuIDg
yKl73OPubDhr3uW/RHDNMaxE/R4b1gP9Ww6V48ChnnYiNxPzm7b85kmwrmS1
8CSfDSWdX3JDCL4Ytu2vJs0F0JMro/gQ/LQ//OKfbgvAfCHVZ0bw5MG+nbHp
C+D86Lo2iWCl/H1dFHQBHpX9cotKrOe2mRl/AF+AN9/aNo0JzvbC9WQ0OPBT
hEljNbH//pYz45grB7gxU+NSBEtpvsnoucOBg3WLqRTivPa3t1tUNnHgQnrA
1yRCnxT2VTyVy4EXDC6/gNDPpyKoz4jI1QxjqeU8Ql/SF/nnJUQuzvuRBG8Q
+heJd93aZo1B7mzzAYciHMzN4txveGBg1itfI0T4NRqqc4AThYEcMz37yZ84
yPXdme1+hkGI3fPtBXk41JFNaUdaMUj9yZCF5+DgdICV82wMg4M2SeUHiPq5
n2tvkyLFhaWURourmTgYdm6oLmtxQUYk2yOcqL+e9co1P0suVGUaDFLu4iDm
KVlpGckF7BbZYTIVh1vqPVt+fOWCROL3lHmi/ndTrtNDFrmQJGT7Yv81wu8U
fXR0Cw/6NHWlg2Jx2GDeDW84yoMViXHxrKs4RNScGogo54GC/HotPQCH7dM/
KqdRHtjNJg0l+xJ+73iVdIbIGX6Xl5SMNw4L0VKH9koSvvt7GjDP4hAAn/NY
V3A4mBLFeGpL6Fey1PCVuFeX/EvZb4g8yBVSGO0kfHByP5RXbYFDe4e/EnWQ
yCGxeatwExz2OG2U+JnwYdXRzldCC4e5i5qV3wQWwUhIZbJVEIcbXfYfP8ov
gsV3v1bqJg/k9K8sNBotgtj2Dmr8Co+o90bDAr9FOG73pIvF5gH1mmMtpWMR
Mq5Y5a4M8SAo81rTp4wlsHOjmvVW8EBwsWScRl0CG9fWwEIib/Mp7aSq5iXI
1xnucPuTB50KMpbp/CUYV4wNeXKPBzrlFR9sXJfBQsHMMDSCeB/+7v/UrLwC
TjW3S1fMeBA6ozX15uUqaNQ9lDrTwoUJjxHRdx2rsOh7SjOygQtnhlP0P06v
Akb6ZTi5mguHu+gxM/JrYHvnwumoIi6Qq0ulZJPXwDrsWkZKLBdy41XNozzX
wR2O/3FLjwvvZHbmGUttwhZKb5FDMgb709ubrHU2wSM3FPWLx6BMJHr612Ob
EPlSODEknPgPrA4aBMVvgszCkN6pcxi4jGe15c9twu2DTfnu+hgwnknx19Hv
0P3B5AflCQfEVBM1xw+TkE3HaAZPfgHaTe8bXLcmIQr+lgr7yAvwh+ujQ4qO
JGQ+ut/7LJMNghn/PX4umIT83hly1etvNqx9ZwUMFZKQLxZ32hzd2MAcda7o
FRRAXLhKpsMPWNCdq6mFdgsgdmJeG5OLDLgr1aVd7EVGHAUmAhJi6FB/SLHW
IZSMxJ0cfTl4lg7THpdhI46MpFhScmRN6HDkhYwTJYeMtH4xuX96bRbmbNyv
SfaQkZy8csGqmFmwvMXujTkihJwIHvRUuzoDK4tbIxxlhRFV4f2PvFynwOer
E43cLYKwx+3t3jSPQfj7RJ/LmmII7+FDrwasFarDJM7I2UgiTid9igram2nF
ccEMQ4oUMjlYiA24T9BuFm38ymdtQ+acBcetBVk0Uv8E0hgrg/hA+UqYKJ+m
cdU/2kl7BxIR6rX6fHaNNr2Y4yL+VhbpoDoJtnaRUNuZoGuZ4XLI1guczbgM
IdRhOkNHSUkeYVjei6X5iaKMFp8b7S92IVnnhYw8dkig+tsGFS09FZFDiEXW
mpwUKgaL3qO4ElJWuEtdbps0epzttrzbWQU55XdBPgfZjg43+wq46aoipuYD
/OwrsmhtSquHyqIqQos3Pvk0VQ71F46Y6OnZjZwnvz/GHJZHL1yJq5XI/w9C
S60gbYopogYBOj323mrI+buf/EhHlNFeaV3xCGN1ZOLTR0XZPhX075c3C3TJ
GsjWgs+z/kuqaJyA9unuMQ3ENtU+ofXQf1Cx0dgToW80kdWTweo1UWroTJlq
VlH8HkT62JDtfKk6mrVnp1C9sxZSVWpoS+VqoBn5/h+8VbSRqjLlexvae1C3
rPM9EnRtJNIovTzcWwtdsSpdLWrSQWKHb7bQa7XRqRmL6OZkXYS+XeFt35IO
WmK2d9dHbz3E+M79VG0XPfRFUsS2AD19BCd3mV4o1keTnS/YkRf1EVPtWxPr
cwbogdFiavJHAyRu+p+i+nJDNFer4MVHO0OEXf7qQejpvWgCmp5rV2+IeNgf
rGgV3Yee3OVc2qm2F9m+dH3MlLYPPRr64dy21L2I87xUKBpkhKbHyBW+HN+L
kP6/7Uf/D4hORvY=
       "]]},
     Annotation[#, "Charting`Private`Tag$10583#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwdkn84FHYAxu9OhztSTpmKnFJKm0WtMLzfJlmekizVzNhEl6LJSLXSSkst
GtePneVX6IfqYSwqjVFTnMqvM+qUKyWdw/fcHc6F2d7neZ/3+fz9eW1Cv/MP
ZzEYjKDJ/reZCaH6jmEXPCL+AwbF3y38dVv4+/FNNyOWP8kTDyoT+fyT6E5+
/PjIJJsIy37ntgsxrgmfasukyKxKsWbz03HJRuxkwKL4cCDs9IQgG8+njbov
0aN4bpI1/r4tF5erNA6pUyhsL3NWjOouYWJZBXuFPkWke1zUsHUBeiL87lka
UvwhkeWrPW8gNLQobDWXYnTXug6loAhRVs8UN4wpcpgdJ4e9imFwoTFw8zSK
1Y/TFgy1lcBJKiwkPIoekXe1OuIm+p/ze3bNpEgOGwtS6UrhmnfAoN2CokW3
4yy1voPEuLThGD7F3odzlw4Ul+PHo761F20pZp+R1Pd5/gkT/7YE08UUofZE
r1fwF6TO6zL/cKJg6Q40qA9WYbafM7t7JYVEFmCl9qrGu8XU/0t3in03jO4M
tt2Dy4L72ay1FD7Cbv3BnPsoX/Miy3kDheW+6k3KiL9Rb1+TWBRAUeUZTwd0
NchyHRoP2UZhIH1l12ddB+7+N+X1RyjaqyriFD11MCkK7jH8meLaZdH93mIx
8q7k6Y4LKXxjfEPkno9wSJba4pVPcZ5Tfv6toAHD0SOfPxFT3Iz3ifneohEJ
dxvyea0UGfKVs1QHG3G+Nqb7106K3Y08waBXE/bZW84J11DwMmpZyrZmTBi/
X8u1VUJnUlYQ7dYCbqSjJGCpEq+P5PnRnBZcSnFa/cpNiTJBQtZAhAQpFqLW
is1KBC5b7tqva8W89bTicIoSF8XZe3qtn+Jbx9Z8B4NBqEWl9p3JT1HGvpXe
azGINYL6rmbtUxj/9Fyith+EQm84oLzlGe4cG7FSbBiEs7uv68mkDpif2K6L
yhxEY9F7lt1AJ15lzeuqXKMCD5zgqQ4yeMzf4Ea+VuHThWddk8JkSPevkk6N
VeG0ukB1oEmGjSXRfSm5KixPaw0Pvf4SNXGcIBs9NQ6LP/RxDOlChfGc7eea
1bhafGvh9XNdsFolnC/tU6NZ9JnegkddSOD72kVxNLAVbP3TwuU1VsnOMPeu
0kCsd8yBYfYG9du2MOeUamDuLuU1POgGPVD5Ucm1IRQWnZRGOsiR8M7YdWbD
COQ8ebLPt3Icj5doo5UjsNvr47HorBwlhwtdps3QIsfN6GKXVo7Y8XQXs0At
hHXJ2wNrepFR6uvq8k6LvV2/KL2D+nCU+zHGzHTINqpPNPWa/IVv/ebwC2Pw
cP8h6Mdgilk2ryxMH4yhY/eSTwbiKQqijL6aoGOwaD7V/egahVPcuZA873Gk
idatPTFdCYV7UgRnZByJC56YTEgnvT+LrrrsxCACNKUrYlRw4t958ew2kzBy
h8qlp1Qo47Aj25uYRDTFskOcr0J2S2G/Rs4ktXXb5xb8o0KOoaUk1YpFFm16
nxvuqsa24SDrNcdYpGeH3Y0XTA0Ub/fdKtyiR3YKD1U2pg5Bf+as/nhzNmFp
cjv/KhjCCiMbu9hlbPLbllpG0b0hiF8eD0j1YxOxpZlninoItksjhYtOscmS
K1cfrt06DNHGzOR2pj5R3G1pvGc9gqNX0o+u0OiT3W8Wd90s1CI4ezRWrjIk
suCnhtV1WuR7qHeWfMAhX7SfcHj8Wgv1o35d9qcc4lz/dv+b2aO4Xtbd35vI
IXrFl6abJ43ih8qXFt7mXCI6aOMRH6LD+ewph7ifGZFqs1npLtPH8PDK2E81
pVMJ1+aYXaczg5jsCF6vn2RKat3SPk7wYhDZzMS5czJMyfGtWSut/BnEY888
P1JsSlipt72/2sUgGUubJHelpmR0XCFoy2SQnqb+bfGOPNLbEXC1gcUkt7Ps
0xkyHgnUThyqzpv08H9mkH8BzcDb7A==
       "]]},
     Annotation[#, "Charting`Private`Tag$10583#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwdU3k0lIsbxkhdJFQuCkOWLIlSKZfnK5XIrw2RU0gyUaG65KLbpotyhYii
i4osqWTJlcxn7GY+IbKMZCzRIMtYQ/2c+57znuef57znWc6r6up95LSIkJDQ
o8X9D/90FTN0SzD7NeCgHONBjVn5B7q1Pf0PrPOM+OtLaSR+VpbcpNPDkBT4
9tT0+keQii54Jd4aDeumjoMvJp/gEfm3yhL6AzSYlw/sq0uH3ohbxE9GEi51
dp44vDMbn6T++THf8hjNGfLmeTmvcM7U9/y0SgZmVAJTsy7lIbep6+mE+XOs
d1iVLbWhAN/PWneMMV5C78jVLOn6N9hNRWlMtbyG5XUBEcwtwkC8RemERx7c
h+hSNhbFCHdbOC6Yy0fAI91Pz568w4e5MzGjKv/Cxcu8brUCCb8qZYORnCKs
8XC/tjKXhOK9JvaweTHkCtVHNS1K4apD0AYZTFQtc6e1OLEgMhfwfiKIRH2r
YbVIDwtNXXZKE3tKwQwUnXZzLYP/c4l/x1tYsEpdVZBmUw6r6C9i48llIKr4
Df0V5VjrX2o75lEO+76f4euMKkCaXx4dmavA/Xv6pzSXVGIpt1trWKUGjhau
OmJXqtBKvvMdGqjBx8uHi7saq5CZFl82mFOLZ/49d19qVOPAxQPOfHMOGrzk
vINZ1aA7aGd/laTgMD4TmidZg3FT0bmBZgpDa6a2bLCtwf1fiu73M97DrV8+
iuDWIO+y1cVL8vXQZW1fu6BYi0T+NgVBUD2ShYrl9jrUwqteljG+pwE8SS/v
QnYt7M2FpC5mNiDaKfTZgjAbRMFw3phUI1rSJBWXbmVDNrFaZKylEYO3aby4
ODbmpAoyfH77AGGZlOCtFWz0Xn9yaDT5A8j9pjLVo2wUMP78Z8SjCUondl4d
3slBUvvZPd51TfB7t6Aby+Ag9H/Hhr5tagbvsLyb/R0OHDcb7fg214ydm88p
HKQ4ME9T5Z13+QjZgOMJsYMc6CmsCB0u/wjXXrJIfhmF1eHz+ue1W2BaoER0
qVH48eNr89DfLcjM9XglMKHQf6El6Nx4C3ZNex1ytKFQ31u+buhoKxJWCLTW
eFAotH9de/ZtKxKnMkVNr1BIqU26MKjShjaxn0GVdylMxOfrfA5vw+/Ow9oK
jynsZbB7GmfbkJLabZzwmsKDLbzESvd23CHr99qWLvZAm7Yr+tAOf15Dzv46
CmiUXPGC4OLUQc3E0DYK0clq1SnZXBQeExmR6aHQ52V8PVaxAwy6wYlvfArG
pgd2hIV04ExY6Gn1MQp3JNwEQRMdyPLea1c0SaGz7Y/nPic/4WvDVquCGQqG
6XdPu9V9QuftaiPl7xSC/VKVHUw6Idu70DY9S6Fl99uW/emdSFbb1bxvka+z
siESqz9DTEjjodzivSu8L5abb3yGceuCr/voYj4v50W0Rj6j3sA/ynRRjyx+
cVqu3wWptRLjyd0UTDRjdoS4dSGSezwwdtGP23KVX4UTutApvvh27ylETGQI
Ahq6sPJ63OTussV8uUb1E0t52CFsJv1LAQUei/ncy4wHbrFXhs8zCuKZVmED
v/MgGb9Z6locBaOo5tOuWTzkLy/xMfmLgpO/y64OHg8d152/pl2iEOI8qHxU
vhv8Ut/Llc4U2jcIt1re6kZmtuCYoREF2urwvLK33TCJXW4cvJaC3rxclOl4
Nzb4RxEPaRSu1upZGTr3IKKqcEapjoP0nDeaWbE9aBRzvh2dw0Fj/C6aBqcH
fgssidZ7HKgzHIrlt/fCcRvvQ7ctB7W0YH2hlX2odkm+cKCGjQm+lESAZR8q
pkrmU56wodT4oF9wtQ8ht87ndQax4ZP8Mrl/qA/bfmSmKuuxIWfKlX1f+QWf
umJuivxZC0LdfWTfwhc4w5r6erAWHhJjbNbmfpjs9fxaR69FcZvYrYLkfvjI
xIklMmvg6rdp+lHAANa1bgq6PlaNFy/DuOf0+XBgXd92dH0V+LL8cKuTfAjl
bBfbOlIJLT8rs/UxfESIJWcdzq9E8m8SKT2zfOQ7RB3ZhUpE14S7O1YMwiz6
RrWBVQX8eu6OWRwfBje/1cXbtAyv944+1rg7jKyDHVtyZlgYyThkS2MNQ/HI
ve/muSyc8ZF5U6L1De9VVeZdNFlwXIgO2iL4hml+3dN40VIkSbBvyuwZxV+C
aQ+e+TuYmQYev+Y0iu0fxXbfSS1Gh5fulpHLo1ilEL0ws6QY8o13vnAyR+Fk
rpypVVaEqHhry1DpMfi7zPQs2ViImxp1Uj+5YzjuKMO1qXsNBhoeDF0UAHa3
t9xrT4TQ46ki7h0BrvY77X7x+QHiRdd21D4VQLrS/er7rvuornFXzvgoQJnb
ukfGLZFYbzv/+PSOCSQ0W+SX2F7EwBmt553Ck7BfkR+qnhbD9Iy+UlIfOQWX
E1XaOX6vmV592j15L2ZhcabK04xTxexyaltWWjOL8pDE0TeHq5k2raH6VO8s
7kZkjDxuqWYas/v/6FP8jjUwv8burWHSclKl5UK+4+FQuoGjKIcZH6Rqdtl5
DpvH44OW6NUzS1cqPNguvYCpLBelM8+amOKqwVqfjYWIpOmX7cGbOpkR0myd
FBca0TSw6TtjaIDpyrVl0jhixP7wfJXEE+PMCxXBrt5a4sS93EJ2VcYMM8dH
0kbecjlhkJseeH/4BzMl8CzfwF6aWBU1dKtYkkbeSJo/PDEkQ6y1G3+aECFG
Cn3oIooDVhLxKf0G+aripObv7v62OquJGN1Q74uaUmTvZNxRiXdyhFyCvHah
iAxp1ed5JfqCPPFxPM06THcleaA3UldZWZFIeenRLntsNckvc71Wnb2GsL02
netz/ldSX+ajkrmzEuF7Iu7ZvbcKpDgmT3YIlInY9PrUV8NrSIthx2k1Ozpx
+PyCrpejMtnKchN21FMlrE8fPRVyik7mh5Y70SdViaSSWb2qMFXSfYlvV12d
GmGSvlS3lFIjT10MzJd8uI54V3Ng2SshdXIjQ7fO+qQ68dZUdGecoQb5XlZP
wne7BhF2Q2pL5jVN8u2LGwl6NE1CQntX7W/vtMhAYZ1DnE+aRHOKDeUpr02K
dwTs88rTImwsLD1NLuiQfWmqMUlB64nB9FbengJdMma9gui/dtrEsm1XppwV
N5CRD92rTtJ1iNzL9rmynvqkY8yJOsl+HSL6u5uOesFGcmZ36mxSiS5xlk5P
a480IHv6dvmzQvSI0z1mQyMmhuRjU8M11MkNxA+1I9ypKUMy+5avDGODPsE6
n+297NkmMsTu1H7apD6Rtc99WGC7mVSTMxrjvtlICP03RuT/ARCp7kU=
       "]]},
     Annotation[#, "Charting`Private`Tag$10583#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwdVAs0lGsXHqY6ReQSuSUk92tXUT1fpKKbw0hJiYSkwkkXRefvRlERp+QS
OSm3og51csQXOrknEkKUGcPM95lhhhLqn/9/19rrXc/aa73v3s9+nq3re8z1
oDSDwaiVxP/u9CjfWdZ+qevWuRx4UNRIoLpVZ6uHzmmYiiwpkWUxfv5bfkFH
5wryr2RGzuK9hPzNZ0UyHTfxV5SBum5HJdLJa4tm6txBsfrDPaNL/4WZwO/6
z4AM9Ohm2C9YVose+bs/ptqzsP/b/c5MYT2C14Yf+booF2fMeZOvg5vx1/u+
+2KHAhQdW6ZXc/Udvh/e2j0SUAj1d1qVj+60YENjwpLx9qfYNKE1+0bCewwm
b3olPlQMAy9hJyuyDXF+016iyRIUrde/V+X9Aa2TgUnCRS9QfXZLFFu2Ayfe
aFsJnpTisq5WJP2hAxqJ7+tphzKU6huf353aCV8TgskPqMDNIJdEI6UunCqQ
fTHaXomt+5XLkl71wPnmwKzRzCrM8qjm6fl+gtapV6yRQ9UIvuoyeu/HJ5AO
J4WCydf4qPH0pYZqH37p+mJIL6pFZ7DlNg3Lz+ggX4ZTg7XwoKmlJ0M/I+9B
chX/SR0s2HOc/J5+xvaw7d48hwYwdFL8Flt9wa05pbe4AW/hZyyXd1KrH8Un
ncN+U2uG3n5L1wxWP9J4q9RFZ5sRcW79hkex/TjarBQw6vgOMxQyN6SN90Mp
rUZ6pL0FH682zL1JsjEp/yw3ZE0rqmxjy0qFbLD/86eLMFOCX5N3GTocPAuI
uis49B5pph+zJ85w4Llsue3wZBva/EqLTE0GcK8uI5S/qBOxsh8SnQ5wIU4u
MemN68QuUeLtwKtcbAyo72+Z6IT1n+ZadUVcUMyv7qWtH+H1TvPXA5Nc2Kzd
bnsluhtRw/XCbTGDknf8RGfF3RC2K0Z/zh3Ep87TBSE+PSgqS299VzeIiyey
tXfZfULDn2MFrTJDaC6ckjYU9OLUL4GB2ReGoIQ5++Qs+pC1IOZgYOYQ7AyS
bKP9+pCpGmSTVjaE6+JcUcS7PijucFP0Fg1heULbQd/8z3hhwlOM9eThXJ2Z
s7V3P1qqveS1FPnIefLcIP+Pfsn8ure/X8JHS7I9c0lDP+af0TTSsOVDP2BX
mdpqNro/+HiyfPioY160YChzUDXk25eTx4eYJy8b4cRBlFm8k/gfPha23OGK
znEwIbTltDfwEZJZmMmlOHDRmxEeTPOhurZL6e2/AwiIaGvjGVMg9P0Fm6cH
8GRZYP8CGwqHZEfqK5dxcXgja8aAI4WyzlmXnmVyYdW25uKh/RQGyAQfq3Yu
mjaEdegcoTAvR2tdntwgLBLLTSJPU/A9sfRresQg6t2pKKMECnF7X7YueDKI
GZeVXU6nUSjZsLkogTuIr0zt8rCHFGYr7zt0iTWEED6jz7eMwuPCK13BFjzY
yab57fhCgafEi3P24SGmWv/FYR4FwxPO64ySeNgQveDk+lEKmWtk7/VP8JDj
qZKqKUWjO+Ow6yszPoja11a6s2moMxuYGd582Ls73fgiT+NmbZy/52s+5KVK
+CmaNJrM6AU23/iY7e41K1GXhmz8tloVUwpaU8cWOxnSuLhT3uxdPIUHc90v
j1jTIF8c7XlcRWGVuKCdvZLGtNbb63HjFDToP+yT7Wic6L8xssmLhlzWKv/1
G2g83SjMWnKDhnRDqYbNZhqCXBcWs5JG3ozTfcItNMzknsz8LKbx/nGlVfAO
GoEhis/LDYdxa/aSC3muNO63hgameQ4js/S3bQXuND6vbFGPuDaM2sUtzLBd
NLRTltZ7kMOYeaBMbcqThuf0zbMrRMNQ01OYdt5L49Z+kbmygQAWi1V0vL1p
tFa59Qp3CWCTeElg40NDwbA4vilWAMfFt9o7fGlsvTrfvqBcgFO8aXv40Yih
j4uujAiQrfQjJfggDd+coJZlSkKY/Xpok48/DcZHjfwsUyFazPMfLwygkSFb
f0HRUQgL9bcrsiR43dozXr/vE2IDK5oQSHD3UdMVgpNC3M9bZj0zkEZEZpfc
vgQhSMZgIFuSV2uJHWjIE+LG87BN1yT4GXNNhV21EPJcX1OGBLNWULfzeoSo
D5EPWyv5f9Q/LUT9qxCP+LdPOkrqS0je6hSjMAL7IPEtNUn9VnVTul+NR5Cn
NWL8XNJf02TB94MOI7B5a3NFV9J/sPne1vdeI+jbuHvuLgk/Mt5yBQ4nRnDk
bM2cPRL+cuJfXnx6YwSpz4c+mOyhsbHyyF7d3BE0XVWqeSPh/8KSJvmfXRJc
n+sb5EZDzyOKe2RsBP0yeYUhLhK9xFiQ3fKjeFn4KcBxG40p/vXQ0vWjeDrT
deeejTRSFsLZeM8ofKgjRun2NGx2CPSSj4/izvTv6Y/X0Qh/uuN9+MNRBDc6
310v0dt89s8CNjkKq+7C8iqJHp+qFF1y+ziKJFZIvqo5jeFTCqus5UQwUpKX
sVpMIwDv7lBhItjW3b9uIyeZV9Z4aVesCAoj9+YE/EIjeYZWd919Eb4EfbcN
kvinptZfO/eDCDld7L8FYgpGrKmsg7Zi8IeGXk93UiCf6Vaz3MT4o7UrraOF
wi71TRyHYDHExUVzrtZTiPmUYKh3V4wFMTOuhEr8PBhoWPBJagzc/K7VuyX+
/71+a2Ojxhi+aef3DidSULMIGy5bNoYDR66+94qlsFlUZpV6cAykZXZkpWSf
5Ea6lnjUjiFzf+6xUhaFoJuR5c3x49BeFb05hklBeiyrtyJ3HCsXlp0qlfg4
xaOGUVg5jmI1pdk1kn1Xp6XscE08jqhb276Ft/Nh+jDnjdOur4jZvXRMN5cP
6p/W5spF38BK3fKm15GPoxzj/uLHE+j7609Kxp+Hvn2ds1/VTuBcNaewyJ0H
t44Yi0b2BL6klZtYO/JgU889zdH4DrcMk7HKxTwwn2QrqEZ/x0fGf65Y9A4h
+azuupPek1A678Z22jGEV8rqd1YrTKP20Fy/eyqDWH6tptzRdBqhvZmv+YxB
PJh1iv3rxmnUBaXmqlBcxE18sAw6Ow3vRruo2ZVc7OxN+jdlcBpWUfqjR4K5
4OUpiCfJHxA2K4+5/TMAGd2Lhr02DKJuaGOztz0HNWsSLKMcGYSzSltJhCkH
l3fdXbXQlUGYoCPu7HwOpOP/3rTnMIMIrZt3cMUAG99/UAHt6QxCQXr7vKgY
Nvjd7jlvpaUIWynjA5E1/WhINjQmG6SIiRU7TcpXfsF1hXqTe/uZxFypnorj
mT14sWphyfajTGLABWEXfHvA3ncMU2eYxPG3l1/76PfA7pEyy+O2JC9vzb72
sBuDTl6Rck1Moi62QjYnvwsOF+i3p+1mEPo9/Exmfie+jc0Ld1WdSWhtDN3s
HN0G3y5WBbNhFvFNReu7TkQtQl9f9D1mKEOE3Hh5e6Xzi4onIXPd1JzkCGp+
wZkK6Y8V984c5ll5KBDaVpqrGcmDFeczpn4VU4pE3jqV7nrV0QpGax9RFqFM
uHh49Xgv+FZhcNz/FMtEhWgZv5toJ/hRwR67vVP2pSpxLJtVG9woTTpzgiJv
hqoRnOfJD9JvzCK3s+NNtbU1iN+aQpDrK0Pyqnx/r3mkSYRabuEHKsiTFoof
Fjp4LyRYq5anJqookjIY8+kWaRMuY49iuXOVyU2051c9dx1CuS29P91Oheyo
9JPyNNMl4tq2xwwGLyBLYqr36YzpEvs7VM13X1An/WeG9zU16RGqxxsMpVs0
yQNhZ0rmpiwmVJyDXa8ytUnLANOmrT76hOcxx9RodR3yrZKZbPjqJcQtNaFW
zzZd8p/H51PNmAbE31mLvMZC9cgzUiYuDT0GhMC+aqn6X4tJme6IzUeLDYlC
ezmfd6P6JOeBblLGWSOiZGW0U6eOAZlkpD7jhbsxYeRnUBgYbEjGp/i/8dEx
If5WNP4Yn21EeibtbZrLNSEmy7Uf9nQZk982ZE9klJsSp9tPKJhYmZL9HPtT
ldFmROXaCxxBiBmZtdZas9HHnOjYVLtCt9mcfHQpXDHA3IJ4PM8iepWmJRnt
fmALc8yCuF6ZNOhhbUWu6L6XG91oSRgfWl55nm1FJhunPmrcYkXMS1DJMLpm
TZ4jryVveWFFFBYrTx11XEpu03TPrtO3JuLueu/tmFxKrj/6Zo/iFWtiq8ry
lO0Pl5Gu/ZHj18qsCcb/z3Lyvwu4P+Y=
       "]]},
     Annotation[#, "Charting`Private`Tag$10583#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 19.999999591836733`}, {-20, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.774074405192284*^9, 3.774074448827642*^9, {3.774074498414171*^9, 
   3.7740745209417973`*^9}, 3.774198220701638*^9, 3.774283947899171*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"79d0abca-78b1-43d9-916c-a26af136b954"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Bosons in 1d", "Subsection",
 CellChangeTimes->{{3.774074621490891*^9, 
  3.774074625322947*^9}},ExpressionUUID->"c700ff70-b202-49a8-81e0-\
1d4a00f7e2b3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muB1d", "[", "t", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Pi", "^", "2"}]}], " ", 
      RowBox[{
       RowBox[{"t", "^", "2"}], "/", "4"}]}], ",", 
     RowBox[{"muM1d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM1d", "[", "t", "]"}], "-", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", " ", 
        RowBox[{"t", "/", "Pi"}]}], "]"}]}]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "0.5"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.3"}], ",", " ", "0.3"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.774074640109967*^9, 3.7740746485262003`*^9}, {
  3.7740746790803328`*^9, 3.774074700213442*^9}, {3.774075166798819*^9, 
  3.774075175062276*^9}, {3.774075218662222*^9, 3.7740752195435867`*^9}, {
  3.774075260346119*^9, 3.7740752613209257`*^9}, {3.774075293129771*^9, 
  3.774075293727792*^9}, {3.774075327584054*^9, 3.7740753285188303`*^9}, {
  3.774075394483283*^9, 3.7740753950435553`*^9}, {3.774075593270653*^9, 
  3.774075620873877*^9}, {3.774075685338925*^9, 3.774075756969893*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"c47a142b-75ae-47fd-b52d-a43075f8a7fb"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0fk/1IsawHFbjpCltJAl60kkSiOVnkpkSceaSIw9+xIVRWeEUsQtjFC2
0SHZssUwjyxzCqNs2X1LSAyqY+/invvD5/X+Az6yTn7mrlwcHByP/u3/PvRe
6VPe+f0EjqWp7WnkZvDoSvgT4gpwc+ZSo5CaL+NQRkp6mbgmKE3pXkt5F8cY
k1SgXFc6AWHbfdhfkzMZxqzeV0/Fz0Bjy84lEyhkKMRK5W7IGMJbsqVxa1El
479GzlRHpfPwmrOD4qVdz5iK7G5yTDYDM5U6gvRPM8PaZanukbglxNlXd9pG
tDGadCWqGtMvwKcK2+nzPzsY6vI6JfMyNjCuTJdeFvjISOci5yvmXAL+k93P
DsYNMPhGI7IvKNnD2ggxtCOYYNR86mQ1WpJBU3FZ0NVxlOFv6mJkl+wI+mnf
XRlHxxnDB+7qxom7wMnEEF+PO9OMxIxd9YqXXCG3M8uY6+csw0j4xXFGuhts
Gf52uNvgB6Nytu3wnIwHyFK3ZVzRWGB429u/uuvoCZYxXS0DhksMufY5tT05
XuBuW8J9OHSF8bBw614zJV/w77k7IyK3ztCTotG+uftBMSU45Pk5Dgxnpoq8
sfQHIt68+edjTtQkqcbZJAdAZ96dKis9Hszc/kf0ffEgeHfeaIKqwY83WdSm
CzVBkDfP6lp6K4AXoj5xyV8KhjBWZ8dDry0ouBBwm55+DeYdh8/t8BDBG92J
N9gyIfDN3+DYJ1ExtIgdrnxdHwKn3gYuVm3ejmpnlBYiHUNhfTxeZoV3B46V
VQVI5dwElkN8T6boLjR7POB5XikcnrJxfMpNElWN5fMl/g6Hzb/luAfGSCEf
t/fXCffbIOHe+V2rVBodqtdL0fJPoLOlbmve24PblRPULiZToFDVSt2HVx4p
fGW/x4hHwvc6q+DFW3tx39n/3HvlHwlO5F/yXfrK2Bnl923w70h4SJIIfbJt
HypwqxaoXYsCa4felr4KFWSu0dS6O6PhllFB/KDkART8J/mwTGwMLOWZpXtp
H8IKjeBkgy8xcEqjPFCs4hDa+1ssBRy9D8PsA2oyBzWxeEa4umnyPmR1/BK8
oH4YzSfvHffUi4Xri3fFVHW0MGU4VLdi/SGYfHayoVKP4SlJG9qIVTzMLgnX
fNl7HKdstTbxFcYDf9HBbRH04yjNDnEu3J8ANdfyeEvHdNDPg6TIMZQAFfQW
Nwf5k7jVpTgv98gjMLWUTvaincaLNlnF338kwtzr0ZQsGQOcG7Tkz5ZIgvV1
FcqVawYYbc/naqGbBJz8LpQqlgGWOftJVCYmwd2JpGx2mCEK+epE3dRKhufC
bQEFY0bYHNFvyxtGhU8L+rt0Wk3w4EtRXkm+VHgyXjfluWaG79SaySz1VGgN
/0oT1DBHcukNerhNKiiXjB6ZdTHHuErC//OLVBip/RrkzzLHyfrCwecmaeBm
3jDvk2WBz3oMSzUep8M+WvTFQ1ZWKLBBsTsrnQGs9JqPstMXMcXD2l5VPwOk
1tyk7BRtUKFblSzqmwFru+pdPzjY4In8XufBugwYV01Kdeuxwer85IoqtUwI
D/05r99oizMW7Frj9kw4squgpSHfDq3yqK1Xt2SDtl1f1R1TMiqazU42PqDB
6J0IOcFUF5S4ffaoexYNnnmclpJ944IihZkP+KtooC/oJGE16YKrfBZqZqM0
2Ep5yhbXcsUP9VVXR47kArHlTf72j64Yqk5ZXx7PhTZb/qBWcXdsFxYTUzv5
F7SODwuNVnng9XZtSJnPh768JW3vc364s1x0hJOzGC5f758cDAjGylHdtvfH
X8ELrgkyLeYWNng+3W3DLgd6qe+JELkIXFDSES70qYI7VophWiLRyLVSILJb
sQbW0wV+8eTdR9IGudKiqBYkv6QZNOvEY1ukZjtzH4Kv6NjkUY5HKJMwvZI/
Ww8PbnFkdlUn4vQSMdKj3gCFJNNDj12pSJuitwg9bATdga+XpX1SUUjqr7mx
sSbw9p6grdx9irEeFW6ZCkzYkz03ukUvExdPFoxduf03DLHbvk4sZGHQwaby
HY1vYeVd/0k6NQeJoqYHHbIt0C/ZNizqlYu/PLvTlENbwXTSh6p15i9UOfXb
uhu9DTR8F9s38+fj2WxZ99Kd7aAquOPyCe4CvC7lIPfZ7j0sVyeIr068RFW2
lUCvyQewqTsmRmorwm3C3/maVj+AwHL6hOnVEuTBtGL59A44vbZ7TCCoFL00
6f2bjTtBTGKY8/eEV1hg6JTJWOwEX14mDr0sw4VpCZGJ5C7oVZDjDqGXY4XF
We7EM90wYz07ZTlRgbcNojLKJ7pBJWn6ox5XFcoOG/XlRPXAcmOnxX6p13hU
KzJR/OBH2LZU5rfXqhrtpN+vcHZ9hD3UGtO+WzW40BI36k/phfcHpi//0UDH
FB77IHOFPuiLanVsWKzFbSMV2VxNfZC049xua2UGbgqjWGoH9INNwHDGzVBE
jnz74tGtAzAeNplSYlePganFcVsbBqCc58lzFHiDdSr3+ER9ByG04sYiUf0G
RY0CVSOEhsA0aNO6oX0DDu3/0BVSOwQtyY83lW5txJJnoDBmPwxkkt5nsbpG
vFxMEpVaH4YNrZbVOdcm/DMqizL0YgQ6fmaWyss0Y+GkVJrQOQIkqfkz7axm
vPc0ijxyngAjHcfPIx+a0cV8RrHIjAA9Z9LybFczStbWlphYEzCqrx4vPNCM
9+MvMWOdCFj8XcHJfKIZr5Ce/OAPIcBcZXfqyHozykWKGfz2nICk1bbToupM
XD9ya0tvHgEcMlNJioeY2D/zpfN5AQFfxEcEjpKYmGBddlm/lIAfHafIzseZ
uLHP/GpULQGaYvQXVQb/Pu2If8bdRcBLndgmN0cmvo5ecu7qIQCrRc6EuTAx
8ZiDck4fAUvahhOP3ZlonKtWfnqEAJIX69EbHybW3GC9o3wjIJAYfyAdysTk
/YfjzdgEPLNn7SGFMTFgNN1Sdo4Au3DrPpM/mbj3nDdRP0/A7KpRcVg0E3k4
u2kJSwTI8Za0J8Uw8VPFMU/yKgFMoWKRolgm1nrmHFBfI+AtWy+YGc9EqozA
wsYGARdvBP535BET/wf9dbQj
       "]]},
     Annotation[#, "Charting`Private`Tag$11088#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwdxQk8EwwfwHFHxVM5Ek/NkYR5kndRchV/ORIdWlhIIkehckSF4qVN0dQK
c62XZuRolNjKsb9j8ZaGkHJHEiL5pBxP6T1+n8/389M4FXzUT0JMTCzqv/53
B7/x13UTthZjh/jpptfKa1ZYK4cMEbRAzzNvtlQnWLAzJ4P1hGAISmEpG3R0
bgtGVbXiLhEtwH2JSp2i3RccEL0tv0ewAZ/bS7ofiGUCLbpa/m91e2gXsfsp
lKeCnw4+6d7Ew9B4vWdNJ61eMEntEnozyRC06lheWU+z4JjvfO1dgjMMj7ww
rCe2CYTWyvxGFgVSZAnvr/E6Bfqa5o/m1N0gs7eZvZfyTsCS8CrSzjsOCS6h
I5lhAwLpkXg2hegJXExybKINC6red4ganb3gDz33KTpjVBByxNfBg+kNvTMF
zbk9nwQD269bJxN8ofvqU9NHxBlBas7GOu3jfiDOsRh3SZsVOMgV7xGw/KG9
YuhoFO+bgPfl1a4Z9QDI6hlYaUxZEJz19Cy/7h0IqdNmh9u6lgRbWmdIm/OC
wJ7bvetW2C/BLa7CX2TieZjZ4DeLNHG0VeNwJk4Hg/eivLObpCTGNGXJ1zuH
wCN9j1UJjBVoaKSX7MYMheHcdrfMHinMVXJMSCKEw73rBjUPiHIYLUoXUqrC
YWnNlOgcQx4ptPcSmscjQPH3LT9y2jpc+z00tpp1EdaPWdMjeOvxclfq5Sn1
SLDgB/ANKBvRiT7Ae1oXCf2Uqo8ZdwhIsiF+p3pHQcD93uoXXco4+oQfqpYX
DYeNk07eCFNDckpv4GFiDGg9OdpQQ9NAvQOaRcrNMcAtfbbAtNqC0pJnP42d
joXSWGlJiqQmnny2/Bid/wmK7BMp8QwtVNrKILky4+Di+Ed2Wo8Oxkk/0Ukk
UCE1+vzVPOJ21LW7c6M8hApvnFkOdBV97KAFT/Q1U0FpyCJXvkAftST1SkgX
abD7UE3hj3oDbPrFIXV1JIA0I4NkomSIa78xd6nTE6GurFvmzlZTrDSIYO7/
kAi6S3d3nek2Rc8Qp/lQsyR4yV+rk0gzw7JpuWfC8SQopJucLpzcjUfHb+wJ
tKXDV1aoh0e7BWYMRFlXLt+ClhJDGRHVCvequnEGXW7Do8DlLwnTVjjpbrxS
mnsbSB8KKv2OWeOmqUgf7j8Y8EssdfYOyQaDA4y0xfoZ0DczqJk/aYsKvmWF
+SZ34UGWcRgv0x5d3e6XfZ1NBVOFJfeGiSM40+e8mq2cBlUz6QZV28iY4Cnt
52SdBkv153gG58n4xCdYmZeaBhU29S9z5sgoe96cFm3MBKVGqU2XpZzweXyP
+6qr6ZCUpxBMsHXBHQ/XrVKVzgLDb+rVmza74wvScy+RfhbEnalxXRvmjl6P
L1fHuGUBvYPBiRS6YzJvKGS4OAv6qcP7OgOP43gdt6/gUDYEnNrCi6/1wH+9
sX9skMKCneJboCPqJK75HedhtykHmv3pvzKLT2FGwDFPvX05MKxq55DWewq1
uvS81p3PgU/bd38TrfZBi6K3Pn21OcA/2+Y2H+SDz4qYlXxSLnjvLYzUNfDF
aaepmgOtufCBorJCodkPXQrTWy7IsIG1Q8pmbHMAsk7EH/TXYINewvSGZNcA
HFE4J3LdxYZ8I5n9oYwADL5q1WZ+gg3HSxdqZsUCMfHodIcUlw2dC7GLHaOB
WPvTqjf7YB58XXSs/fPpWdQmfxlvvMmB4O4lPnlfCCrH2pmdvs+Blfw5u5Iz
ISjPzb25ms8BQ4m+2b9uhuCStBOJPMIBp3dnUxjtIdhex78waJIPJdfyZdad
CMUo/bjlhY/5UNAdONh9JQxb5RQVSZYP4P0529mIt+F4qdUUMuaKwNfbrF98
MRJlSZUfX0gXw1rxCozWiEJOsj79b9Vi8JGoVVRyiMLXB3V6PG2LQUv36vqC
7Cjc1qJ4QZtZDJ9leD57LaNxqHmmoNy4BOKIqx1P3L6CdvX5sqKoh9CfvZus
axuLGyrWDYqLl0Fhy3Ac/Xo88kasX7XtKYczc9zUoPxEbAi8p+I2VQHHLs4x
qt8z8DvRXI57jg9Vmj1bKVvTUGKxRF5FuwqSWXP8MPcsNPrtxXMqrYGNTi8H
eLwcfEU1bG3SRdj2fNAv+xkb1RmfF4u+1EGfUazkPpUC/Dw/NPhGvwF6J9Pf
NV8rQs5k9UvZW43QZxU+qHuFi7JqD2ZGR4Xg0Tllxu96hPSASv9crSaQIGhX
m3wqxx+WJaNnYpvBJSLYP8i+EsN3CCv+bPw3dKlbmuTn8XGoVHjztcZLuKsy
X9rhVIV/B3Zlb41qARkL8Z/XVGpx216pZf/qV2Du+3D8QSeiHVvj9OMNrXAz
4lCEMLweL6md3DLs0QYTRSue//7egHpTLmveHmqHd47CX+qxQlwv91VauNQO
rkW5A5NmTbgCs8s0Wa8hKya+3nGiGYMMq3v+ONABKUbujjGiF1hifypX8KMD
dvzcttBQ1YLfPyvLjzE7of1p05pepggrnewkU226IPe+jpD1sA1j99NyKsa6
gHDR3of9th01Bhze5dHewA+6OTm17zWaGVNTCTu6IVhVs95yuQMzPXLms450
w87/14n/AaoO3kg=
       "]]},
     Annotation[#, "Charting`Private`Tag$11088#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwV13c8V18YB3CEZGVVRkIkkWgoo3x+bUSllBYipTRsoWSEyihtK2RVP6uM
IntE4crM+H7v/fZDyk6l0uB3/HVf79d9nXvOeZ7ndZ5zleyc9hzn4eLi4ubm
4pp5mhz/1Fw+sNXwt4i/gtRVb0PezbLOHBkV6BvZVxVlbMPqhKi4XJk1UBs9
5VswaoG+hSoB51UNEb1sk2sjY4UdVEfOA5kt2Hdt91Sj9jGohMunTisYY9cm
2093jR3wx+TYfVvVnQhR2Gf2Z+NpWNr/KLklY4GS1hSncVcXVG+WfVEVtx+v
l344JWXqBm3lDU+/KRzEwTecms0LPSDQE5i0X9UaQ58zQ3VSvUBrXdkcIWMP
NdfDZasc/XAnQbp8yeHjOOz0+eqfEH+YzP13fWncCYy8F5wK2B+A56MNOmMK
p2DV+e3P99FAXM+UUDNXPYccjUfTbgIhSJy3KyRUxh23tBJSroyG4QJ1v3r/
S3eEr6AilqWGY3/wex7lwx5IM1t/8/ahCAhPuPgVxXlinsWIVF/FdXi13fEa
VvBGUINkUkZFJMxvdzvuVL0EVZ3s1rzTtxEgkLv0mkwQ7M6/fMu4RkF9+82r
Oc5B0IyIeDNYE4WWYKcBVm0QjBN+v4uWjYbKrOXpKzyDQclg3cfyaNT8TVnR
1hKCnksqBSfmxEL46z0dhfBr+FLuJCUV9gBRtM/m/KnrKH7StUZr+UMcOPgw
+/P4HaxcN55V8DAVQtMBR7YvSsD7n3pKU6KZWGI++qkqLAVTS/gNhSuf4Xyj
HqK+PYHPqbDswsE8LMgTZ7i5s1HquTL1buwLPO/Z3PB2fQ6ob1fTckxeotLx
gdzB4TzcOs375UthMSZUN8zNPPsC7s/8pM07SsEzmS4mt+QlxAyHBVt8y7F2
+ujzvVnFaDTZdfX42Qo0BK1prFEvQ8zejBgzk0ooRA5NPhktx5aBtLpUjSoM
/eAw7dqVeF6dK+IzXoWUwaI60etVcG3qLrcsqoao/KOxvr5qTJWs9H7k8Qrh
p/JPJKrUoENKq/eiTA2+/5Ped9KvFo2J0U3T5TVwX1WdN7/qNabNWpJ3W9SC
k1Ud1qxUh5uuVk4Jg7X47dgWu8ynHsW7/llk6PEaGhtnT50oakDyCtXrX0df
Y3uSksOzBY04MP3E46/jG5yXt1n835G3OHstQCa74w2WD+8T6jBrgt1E7FCn
QR0k534WqP7VhJ17/o18+LAOvGWx2cpxzbAoW7LY4VcdTq8p6pqzowWHAva+
lbaoR7qxXWLp9xaY/j77vj61HhNDsmL991rRv/SxXPBwPfL3bp91Z0sb9ps6
RTivboCfUXBCXn8bdjfckLR3boASbdKZHNyOuCxzbZtHDdBfF3RHZtU7DGp7
63fRDTiy6O0kd+s7VE1+KPoqRGGiLqLHOaAD2fhaMKJLIYrX2n2PSifkWXa3
D1tTkGTyk3iqO5HzmPLsuUSBzzfAQs+lCzdj76kmPKCQNz48WebWhS8icjJz
4inYnziQsM2zC/x3Xetdiat3aQ3uvdAFJ8s8p60JFIIW037ngrvwN3HNi4+J
FHhf66YnR3fBtCZ3u2IKBR7Jz9yilV3Y0lYTY/svBa4n1tk9Et2wyhc8ofqc
Qs1wx7mEed3YFhzGd5U4XNt8xRHpbvAKXj48QLygYHNmu3w3VgpNqKe/oLCi
Vi39tVo3XAKLD2gUUjjy4UtalmE3BjIjv8sXUyhUuhLv49iN0ZP5zg0VFFxj
siMkKrux6zQP3+4GCi/+xFyprO7Gl8gqoXjiP9YhAa613dBUcKOGiK8oW3m0
NHSjVLMwIISiEJchaHWroxvst0lZBY0UXpUeXy4x0o3+gAkFsWYK0r1y9eLS
LNwwjY0Ma6dgtXX2qwpZFuyrLvI0Eyc9+lLqIs9CR81S7fnvKCw/8yaneTEL
a3wnShOIN054xtzUZKEpYXl6dgcFx9ktp8Q3s3BQfqSqsotCicZVAfFzLDhd
Dl/ynKawtm0BdcuZhdYUh9ljxE8vProp5cZCxefErKUMmY+qkZX2YsHFdbNZ
FPFVJz5NhUAWghvpek8OhT25geaa91iQ2yTRqvYfhY/6vjHGpSz0SMessO2j
cLRX2Ka+nAWF3Cs1t4i7w+KUzapYWPbloko1cQO7KGP3axYazW6vUv1AIefS
r1LLFhZEmrmjPhJfrDzfe7yfBZl4j3CbjxTETVyXB4qyMTEx6x+VQQqJFXOF
9MXZEBGXWb2HWFsvc2Bcko3msDc9fsQ71T6l2cqwIVYw36ubOJTfWmmjCht3
TKQvhA+R+qoyns+lz4bbSodPvcMUvhsocV06zkbcrlMRR8coBOeWMjon2fi4
0lMxhFhK40jJiCMbmk3DzunEq2Xv+1g5sxFaqG0yQez8U3hi/QU2UoxfMcGf
KQzk/Rz4HcmG8vPMuzHjFNiaTa3exWx4bkw4cesrhYQhcd9ZZWx0HJOvyiS2
e7JXNaKCjTLdjf2viQdUOrwSa9iQ0b3uP0X8XY6Rr21ig1ekns/hG4mH4LCD
1Ac2clX0LDUnKLTVaorHf2TjOstJcStxVLDTy6WDbLS1xz09QryI+6uwwRgb
w9EjS8KIl/+cfGY7ycYai+/2H4i39c/+kyVCo9acW+/GdwpzUoxTdcVorBL9
6pZM3GAbtrNSgkZLibrnC+K9tOjD9gU0llf7NTHER9vmbfujROMpy4RW/0Hh
QqVypPFaGm7t+YcLiA39j+u16tIwlbAUeUPMY/io54gBjWypiJAu4quF6jrO
/5DxXPVvJ4nvPV3Zfc+ERon9gtJ1P0l9xkOlz5pGv8g60SfEX32+zra1pTH3
1uPJfOK1lo+G6GM0qqc1siuJi+bOze04SeNdl48Xi7jGn9lY70ojWb0gSHCS
goDVrSVGHjS+JelWzCPeobdtzqvzNB67j9UqEjeNZzaVXqThaiaxZi0xy87X
JieExpu69CvWxIuwcrPWNRrRc6znnyQ+KvdBNSOMxoX3jk4uxP2tpqOpkTT2
OqT5Xyb+vGWhb3QM2Z+KsmIq8WqlpqPzH9Boc1fjyST2/Ht5y+0EGvynM7Ly
iH/nDwlFpNDQ2rTJoYqYf2lRjH8WjdsblC0ZYuNZTpf+PiXzHY+N6CMO5yy2
88mlIS7+/PogsXhU6DL3Ahq9rX2fJ4gt3A1Fxl/SuNzFvec38b3dXz6fLaGR
jlZfrl8UFs45VOBQSUOCJ1VHkNjmg0hcXzXZ77asClHipIoKP9taGkyxr7Qk
8VKfZdsPN9B4zxegKkfsuJ9W72ykYVRUQi8izlh1U3RfMw1hhxabxcSrhn62
73xHw9v6brUasUdtRmF9J41nIaaPNIgLko8+MGLROGk9YrGC+JefVMArmobQ
nouUNvGGI6/tN72nYUL9FVtN7K970aish4aSgaeCDnGllPby9R9I/vkGf64l
5hvvnVv4kUbBPasHusRG1P2vOoOknva3C+sThz7Z0ZEzTKM5c992A2IqePql
1hipz1m9puuJxexy4zPGaTwvCZDfQLzH0CFw2TcaPZvWFs74rqzcibTvNMZ+
8CoaEnd+bzRWnqSxZuMX8xnLtgZqJv6mYRXIs2vGVtlrxeWnyPoX6S+Y8fND
P0WbuBgc8voWP/M9Uf6XwpdnMdjyPujTzPwOzy4IruVnsHrk89eZ9ZUf2SAw
IMDAQsewYmb90gLTfHFCDBrMXHfrEbvkls/aJcqguu7Ww3XEddaB3DziDOyR
mjcTn8WCW6bzJBm825B9bSZ+Pvl8fx3mM1hv+VxxJXHr0dpfsjIMyuXKvWfi
v1z42k9KjsEV2ZY7M/kJemHy3X8Ref/fuMtM/th2wt9WKzG4MaUivoRYR7Rx
vF+ZgfJfZ1cl4n578xHTZQxM6k9dkCE2FJMcmtZgsCFLSXke8f2itk85Kxg8
ixaIEJvJj8SBPuk1DITSvB/xEyeWyPTUr2Vg3SJ6gJt48iSLc0mPfH/RQN1M
/f5bZs3qM2QgqHj5xxgxz2nFrvsbGbzqMns2QHx4fs87ky0MJF+6afYSC589
3vLUmEHrYP+ZduJzsmfeXLRg4FbMO+cFcc0rzVotSwanbTe9yyJWcBmr7jlI
4iM8+0TazHlQ61puZMMgercBdYd4lYf3CylHBvdOfXp5jjhU0SC/9gyDHJkf
cfbEvfV/cnycGGQ5F2w8RHxnsX/We3cGx5pPtm4h/vE2JDXDj0HxIWnpBcS7
Lxgl2wQyCNlqISZE/FhV8KFEMAMX/XP1U+T8OuQbEecVypD/HPPQD8TF6ndu
b7nL4PJOJ42nxP7BDwPY/zJIyi6Y1iMWOT/bxDaTwX9/XPU0iGNOnpXoz2Zg
JrnBcCFx7g695LE8Blv/iD/5S87bfvHmap4yBmn6urylxDviuQSWtTLQ+Ia2
NcSdN040ZbYzMMyYKl9MbB/QELWqk4GdlYS3GPEl+6hl62kGoozxjiHSD56q
a+/Y9ZHB/SgXr3ji+S9srnv8ZpCddGzyF+k3yY9f7f/1l8EOH/cHM/1HO0ZD
wY+Lg/6aRSJNxMa+P7Kv8nFQ+Gr3rhTii5tvNMfO5SDb9qGNCXHP21KpSmUO
fomm54aTfpj5ST5W1JSDY5rD2wa/kH7yIPgos5OMP8i7pJ7Yfs/IkixzDvj5
vSvTiRcWFz81s+QgVfKGwRni0BuHa8LtOGAMxJYOkn59cm30uKA3B0OKHp+6
SD9fHCRlNDuNA2jyb7g2SmFK96JIx2MOHl3uFLcj7hrpbUlL5+CcUFmaPnGk
Za7VtmcccNtyxIZGKEyr73ELLuZA/Y3QRyNidvON+FmtHEQ68iX+JPeRgpAf
x1rbORiMrfCiiO8Y2CxL7iT7Mx8WTyLekboibxPDgVZpcrAJ8Usv6k3AAAfK
vuvcosj95p6mzg3zYQ4OVPDuPk3s0hNnoTTGgYfF2ZENxGqmZzjl3zioK1R1
7Bkg9x/utpTIHxyU5QQa5xG/zzdwPPqLg7lGkQPBxMWOyVrafznIENxnYkl8
X0FoYnqag4DQd6fViP8HZMZdoA==
       "]]},
     Annotation[#, "Charting`Private`Tag$11088#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwdxQk0FAgYwHFXrd1yttZ9zGK2NOmyyMOXFTI26xhXWbSuVK7Nri1XCrmS
NIZFO5OjGkfDMCPnh5koZlw5yr3Ikumgw9K1x/+93/sTfgp3CZQQExML/td/
JwcuDrQt2Vh2jOyejlNTQilrtYhpVT0orBpP+mPgAu6n5xfVqhrB7Ny460Gx
dJzX0EuMJlqCzdsTpjVOV9BBOMq+rnoIMm/KkXePXEW9TM2yT9r2IDlooH6J
ew3fk/3zjhMdIZN429LaLxefJg3xj9OcwXz1q5anMzT0CFhryVGlgF9o4g1r
q3zkW6vV84rc4X0a8Yzvpd9xj65F9WttLzAmUMZK6wtQevZCsTvRB459UE4z
mCvCxplBIY/iB15XO1ok5q5jhFMA2Zt2HNbSnTdlj/yBk7svWV9WDQBKp3Lm
hiMDqXSVNv1jgbDLxDP7RQMDyXLl5q1FQSAqz7Wc0LmB3OeCb19ohwCr+y77
9dwNzKpS3O5MDAO2zv7PfG1L0EaztHQpOBxebvfwqM0vwfjOAvl2SgTwP6js
HV0sQSNj0mUvWiREZVB3KV4sRYbSDynpqlFAPnDXzLO4DGOEeXz3xii4v1mG
ZLtQhu7JMxK6x36BFIflVsH2m7j1TWRCU9GvcEgjQWqBeRN/G6L+JtI+C21P
smHs+i10vjZ20pEYD2tCw6Z8dyaSHHSZal3xUK6oHrKSxkRpydN/LQQnAAZk
iDKbmejb8LEGKeeB8kRdWKpdjko7sg09aYlw1zBWZ3WyHBOla79JU00C30lz
C1moRAO7q6nsiCSgLJH6Q05X4mBy+NJ4VxKQsr9zNPu9EvUkSRWGvyYD3+Wm
hP1KJXZ+KDUcGkwB31SvmrjCKtz6ivatdmYaXAld2Jgcu4Ocvb/QDs+lAcmA
ECApzkKfCNe1SLN0iNHNdeohspD1TK6Bv5gOWgomw+RIFrosppqftMmEjpWc
RS3xasyfPGfN+ZgFHqFHV7jp1Wil4VU65XYFBGNTiocLq/HpUZNN0lVXIKmQ
EFtfUY1aorP+VbuygbEeRN8vqMbwEGN9sYlsMM2qzKjZUoOKAazbZaY5cP7L
M1fNkmvQ0+sG6+UKFSr/VvqeGsjGF+OUL4rVcuHrs+8WP0ayMcVHOtDVOhcC
pnZu84xnY61/uBqXmgvXInLejdDYKBtmkRxjQoNGlV5nmS423rvw+OjmuDzY
8YWKU7peLe6rVNisIV0ACw0//Cg9XItbPiV622nRoTF7j9fqNg7mh3j4kGzp
IPZdQoKmJgf1hkh+CmF06LVoiD1I5KAlc9R/vIUOR14O24eZcrCBSePUGzJg
T0yV1SlvDj5zFTU79DJAIzo1aqOYg26383rOyBRDUFzczIwBF/Wdny/yMkoh
doegv297PUb3HoD810ygOZGSChQbULlOYUpcnAXyjEsF87cakTtrLegzZ4Pu
EzVvKbNm7Dh5Xd1LVAey2E0kVLTgG6KFXFVoPRiqxL4/8aoVJdYr5NX1G2F+
bzte1G9D409+XNc7zaBF/+bvB+1tKEgy6u00QFgQulHtPdtRO3t5nfm8DeIH
amJT1ttxeW16anhPB5wgB/Naszqw9GlTt2wWD9rOGHF4u3koq3nrxfw8H9yD
T9vmCnmYGcIJYuh1wvSG7diMHx/fHqyYP5HQBVMZiqMy4vcwah+/7ivefXh3
J3V6Z949nL7DzxggdEOwk41SnVknvjs5VLjjXA98+aRn35GJTtxp9dnHoCYB
jFZuGVaP6kK7YkJwjXIv6BwW63ileh+jNX2//tO7Dx7rHJSS4d5Hkshty+iR
fmAof3rg4vQAt8m9lOZv9IP7xtu9hPUHKIWFLN2iAeg0JsTJ5nfjKaOmx587
DMJ526XWSZserLD/idH6dhAEW0Xemqs9+GZZTX6B9hC6rfICzakC5LjaSVIP
DYFlWpMF00aICYeT6XULQ3BaabqzTyREwiT5UUnyMASF2Mtr5PSimUkSVXXf
CKwWtAuU7frQW6tvXfzhCJQlnuo4u9KHb7ovz0YkjoLEccfGZbd+zJfyiXLR
ewTyocmnuFX9uG2KUyzBfwT0qb+iL0oN4Ka4RMqByMdAZAT6xvgPoBjThzWr
OAZH9T1M/2wewJ8LWJcVO8ZgRhixmqs1iC07U6UVwsaB25RxzjNhEBXIP5Mu
yE7AOfFnhl5jg1jyo+Xn88wJ2P9/D/Ef2N5Frg==
       "]]},
     Annotation[#, "Charting`Private`Tag$11088#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 0.49999998979591836`}, {-0.3, 0.3}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.774075181124487*^9, 3.774075225825315*^9, {3.7740752725108356`*^9, 
   3.774075297293429*^9}, 3.774075332943267*^9, 3.7740753986152554`*^9, {
   3.7740755988203497`*^9, 3.7740756252176733`*^9}, 3.7740756923369703`*^9, {
   3.774075722634383*^9, 3.774075762289135*^9}, 3.7742839524687443`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"94060f49-edef-4325-a319-2c914a44d683"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muB1d", "[", "t", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Pi", "^", "2"}]}], " ", 
      RowBox[{
       RowBox[{"t", "^", "2"}], "/", "4"}]}], ",", 
     RowBox[{"muM1d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM1d", "[", "t", "]"}], "-", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"2", " ", 
        RowBox[{"t", "/", "Pi"}]}], "]"}]}]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "15"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "20"}], ",", " ", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.774075529347396*^9, 3.77407554375436*^9}, {
  3.774284191521563*^9, 3.774284194235668*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"c8de3b54-8fc3-4c13-a131-6d5dc5c47ef8"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdxQs0E2oAwHF5q5RHNkneW4wQRWJ9n4ZSkVw9KI/UbigqdVKIJdHDul6F
JbS4ZJVHKxG+LyQsqWVt5XUyKoo1o0jlPv7n/M7fOPSIL11eTk4u5F//XbFf
EWbYWoPA2NWLtT8wGrsLdE+7iqLBvRMfy4+QVBDU6QrVFSUBQXpGQf9dEiL0
aKppuKUBUPGnpa6zIzrpUy5UEGUC32YCVhbS0L77vPI5Zg6YS0OcvgkvtJUw
dmaWlg9marffqxvxQ/kuqWWz8UUgRmtkmli5B2mOEzNnhGzwxH3PSfmb+1BK
YVncd7sSwH8flGvNo6OfPk70KWYp+F03zzfVNwJ9uh+wVkq7A8jrw67vWhON
guifjSUF94Byh0FhyY8TKGJB4/lv8ZUg1v4p2/NTDBqo9z4yKawGn7Y8VXjg
mIBYOsQDx5W4YAG93fQWj4H8ogZ2T9g9AFQHv/FAZhLqMDy64SuzBvCPhbPf
uKWgh0kZOl9o9WCbHPfQuVNX0NEe//mHjjUAG80rPuY705HlapO5kYJGIGtQ
HUiKyUAvo/0nZfEYCAKYP351ZSEPs9E+qbAJmBZtKvXuzkXFPt67q6KaQScG
l9XILDTvTDX/qFILYA7Wiu0TrqN6Qewzid1TQPrDNu6wawFalbqgaoz5DNz3
6Ezcq8pG+qNWySO054D5oznpXXAZiiVk/C579xxwY54tfO1wGwk3TJ0KO9YJ
blzYErpHoxxlXm+I/FjwAti8YNbPdnBQMrmUMxH/EhwxSvhSFliBZoSOV78K
+UC5J9I06PR99MhONaTU4jVoGqgf3yPPRSeZIkpQ3GvQxeVeyk/jookNpzHP
oBtYRnrmi4ofoNG7dZ//pguA6sLCTe/FNaj3HHVDoEwIjPa2ns7Jq0fYhiZp
X9QHIhVFSV1hzSjhknYdI6QPDNYfNmlrbEYuw+Jkx+o+oMjc9dlJpwXVspL1
Snb0A/9MvV3nm1tQtVKrOyN/AHxVHv7GJrUifqSZ9zKd94CduSwLzLWhZlpp
8Su2GMwULI/lyXch2ysVI9/bxIDL/5ncGtyFCkQ11gYSMRjr6R0mNHShU5Ft
jyKch4D5x/DhAJeXyDpn5LlC9xDI3tbCkcy8RKxRy6k1Sh9AYmtmHYrno6MZ
le6sg5+AeGl2YXqhAOkP1H4ItRoDPE0m1dWnFy05HFyuQpMBcmjVbl74MMpc
5fHYe8c0CHqyiBe5Yhy9zbXFUo1fYP2kK/1NggxdLk7skl86D/Ikyuo1edOI
mC2+mHVDAcbXio9fHPqFUv081/O/KcHajQEhd1Pm4eNON4Pbk1Rhb14V6o1S
xG6SH7FR4vlw+vmv1lKqCj7rsn2f3lp1GF6yZWaR9ny87l4eNwEthrI2taDb
zur48LSU0aauCakOo4sZRhp4xlKjf+UOLRjXxoigdmpiF86domvXtOHes493
u8VpY6nW5pCdTUvgYJxXzJy2Dh5KC9kZrUKAaTVS8nohAXtKYjyHHYgwRVmJ
yDini7/sVz3OTdSFvaaCS4MBetjDjCif2rQUZk+0qbfY6mOtTvKVSoke5FAF
Eoux5Vj/QoWPg4M+HBcl+mwVGOJcSycN7YPLYYQzOz/4lRHu0HNdI8swgO0r
+TdMHhrjdfpN6TZvDOEoR8FwSZUJXqTAPrEvyQhG2VOyW26YYoOzhi7+ZGNI
mUovlxSZYTXS3oe+z4yhuRqtafImCVtTl1bEBJpAkzmjC6NZZBzdr9W8Wc4U
5gj/2sXJX4ElsrQdnrmmcE0O1/3bVXO80aaV5bnSDCZQllC90ixwo8x59vsL
MzhYyNpan0fBUVZ2717RSbBEOmStmWOJqeMHuv3VyNA7XiB6wrHC7ma6Xups
MmxfrausULkSmzMunWpyXAG3x/sRhiqtMYXuhEjvVsBUFYeK8HYbTG8MS+Ye
M4cHxCxCbJgtRkXdB6Q6FpAyWDhlO22LJ8vmvtvUWMBbxIb+VSmr8H4SR43l
RYFrg4VmJxbYYSkly6H6KwUeIha/7ci3w4+KZ99PXbCEHT0VUleSPQ5wM4XO
BlZwWqt6GnPscYxHCNc5zgrK/d9q/A+H3gB2
       "]]},
     Annotation[#, "Charting`Private`Tag$15364#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwdxQlUE/YdwPEQllCqoJRLBWqxDJ9yVPEgVswvJYJT+iIWmOAqJUC0VKJg
bbkCIgvSakFhYEIIaQcIisI4BMMh/z9HQSAROTQRyhnEcCUkkQAVyrp93/u8
r33opS9YRAKBwPzT/64f6WxzuJlNjbUJFAV4+T4ZEG2J+0x+GdpzQlrGmBsQ
zbIndIs8BY7yxP+IYDohqyEz481HfwJzrMERUir63rdUZijPAjKl/Z4L0wcx
q7tL19N5MGE1e3oiLAB9bjWf+I4uhKKQgd89pMFI6JF27x3nFyjm3Ar204cj
M5V11oqsAM5FsXo2MS+g6z/fS1hyuwsSkv5NhF80WvU9xFpML4HtJWYVPWHf
ocvELoZOeR+chCRa3XgcUlafoWjoD0E92ctzlCahYNasvVpUDrW0hqEN5ino
mw1NqXpOBfSK405667lotJFx6a2sCviODRME5k0ksLQO/5b0CI7ZUonXlBnI
/+JooNatBpT5L1OYfpmoa3uU50L6Y6Cu7vyyPSwHpcZS3C81iKGnq3nf+zk8
ROslOKuUdcAoP7VWPp6LalMyLefojWD5yO+cjVSEooaC3r8Q/QRcZydSNDW/
IKf9O9anRU3QSeZ1k8wL0PPLQW91HAzhZxc6QF+EvB1mhjWyFnD74XzkSsgD
VOTLCKy82Aqb5pcNx+3KkEFiVV8UqQ3Cvky1iFOWo8YX8R1qt1+BUnbM96xf
JdqbtqFyPr0DTGf2VTWH1aCM6ktOZQ5PIbBdyVyKrUVzo/13IxuewthOGwYp
5zEqpggFs8pOEMYvD90fr0O2M87caboEXgfnSC2lTSjeKvOPe4MSSHPLq7i+
ESOZ52Ls19FScI8t5atqMMrKe8J+I3oG3/qkthLNWxDXseSBlvMcTpk5cz30
bWhF5p6zIOsD4TZq5WJINxK7vRdSsqsf7KWOeZG+EvR9unx3cEI/7OSWH5qm
S5HWMw53fzgAzeuCbN3BHjRTVj9bzHoBfKu3IcXFvei3fx7xPKuTQXzFrsQf
7F4iwYiJiYWXHMZcrHjRNS9R4KERWdcdOaS5fHHz7EkZeqFKYlM+fQWF1WIi
9Uc5ehaE+ebXBmFhEFzsLYcQ/oSu7jQdBoJPHkXsPYaSbpjXJ4cMQ3ueCb+1
YAx5vFZw3auG4WFZSfjz9TFUJ+BuuxswAqMWfl6qxnFURWr3ShaOQt/CdYfD
dAXqYzswbCzHQT0SemZr8hRqpZcU9RYowDh7tvBN/Tzak/Gf6aWnCmCZu/gM
u6qQSP7Y9UO1AlZVD0OrC1Uolv1U/M3hSfi1/vwE4bYaufKmJYYDkxDTF551
u24BCWacFg+QpgAxfz7TUKlFUZkVXoLzSmixiCEe1uvRyJD4Bk5Xwm+8tVce
1CXk49jcM1WthE3HC6fLry8hx4beoH2Eaeg88HmlYssyGprUsiX8abhGsZi4
5bmCvCkH7vzROQPmCk6ntvQdsh2tmwp1noe/n5Of1pwnYIIumt95ah7Ck/92
0C6LgCfJu0/siZkHW1IH8WojAZe5CsrWmufhFkPNmjQzwNSk+Cv80yqIH5/z
P4gM8Fd2h4nPUtTANBK+0H9siHtdRjKEcwtw1a+LOWNJxm3u9W9Ori+AtsWI
OOBNxrWf3aEZfqABk3y/27oYMhYEMLQR7hqgZ1rFDAyScWhiU4B7igZq446z
7QqNsFYisu2z1kL5ibDV7iPG2CLyq1Ijug60c+fu5uVtxLuNCtt9T+ugcRfH
Yk22EdMKpiZyL+hAsbJjJd/CBEfK2TbO2To45v/Xj0UZJrjtKOcn39c6+E6z
usJLNcVX7HIv5qa9hdKphFdi2Iz7n/W5OUkWIZtkej/41Ac4a693AyNgGfJP
3ioY7LfCnwwFHTvy9TKo9ye2spessITL7ndKWAa77Z+m2dpYY7I8e/a9fy+D
KdF+SRJqjROSFDatc8tAIxbGxumscXh3MseduwLDszFEg21b8UFWw5GPqn+H
v4Sz9nYl2OBX/D1Ys3kNiFd2Ju04/hG+WXS1h7jVgPZc8TA97IYjts5W/Piv
fEOasVj6yPiBC07zP07t05NoEfKOev9cN3xiz9ac9SYyjfD/9uP/AtJ7MU8=

       "]]},
     Annotation[#, "Charting`Private`Tag$15364#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwVlnk41PsXx5XK0hXZ9649y1imsqXOV5bSIkqibIVyC0W2q5Alyfa0XaTJ
RSLLyJ6tfOwzY75kiyzD2EJZx96Vn98f5zl/nOf9el7nec4fR+b6nQuuO9nY
2Oq26/99hUFtkI95efxqhWMR6Vn98a4U0b8Ne73BxNrw/JegaMCE2q6L9oZB
luknCbJeIgj37+fiM44FStmK9cLav+BnkdPD3vsc9K1NG98vv4VrxS05W3GJ
4FaoY5ybngVnhWeCfhmR4NH8c+oafy7snxV5vt6TDnzlBUJFhQUQ+e/7+6vE
d4BfWvQUP1gE/1nouS7HZcEPY8sdlXHFMFl8RXfBKA982x71/kEog6Fq8ztL
PUXgI3snN6y/EpKFRFzu7S4BJXPi6cGZKrDyHLJZJJaCToDDI5vVaqAduHti
Pu4j+PbaU0kLn6Es7JnQT6NqaD/VZql4shbu9tty3/b6BMIG/pqRRbWgelh2
ayrlM/i4x+8ZEa+DL962S6wHCKpkkf7O0TowlZ8eXOipgwYLY53Miw2QYWFu
U+hZD7P7QtQrshtgR1BRx93dDXBpimUdvtkA1d2BzXPERnjaPbk/NKURtB7v
LZyJawaiSNQFWnMTxBffUSXLU0BA6H2DKU8z/BzqfOdeRYFyKcvonxbNkKlL
Sv4xSYXwK65Owx3NIDmtFjFlRAcYLpKMqKNAoPCz3+/76PDaQVPm1gYFek4s
B7h54eA/5m7VpEmF568/eXxPaQXRd8GBbK+oMN8sM5l5pA2UTnaazNCocG7p
0fUb9DYweZq/7vGLChGKWbmLD77AhJpBt4kNDYoMvrldoHyBL1X+KDuCBswL
exWLBNrBxpUmU/WBBsdD7qR65bSDa0mix+aOFljv0flnvqcDNsUU8hMTW6Cc
yOmUpdwJN/g33/VUt4BfXK+Kw/1O2DS4olQ13AKLJ/5GLdJd0CRk4xkuT4eC
N2YxYXe7QDnFQPCeMR0818Ss9eq6YKg/klPSmQ7T5Mofma7dEPOjFCeT6PCe
M6bM/mM3EOOzdVI/0uGG89VQQa6v0M0TruDYTodR0f+Ew/K+gm1z+jGrHTik
36MzdX9/BT21o/PPRXBwaiXlzZ3vAb0obv0PajgMhB87Yc/qgUqbTsenF3FI
ZvDwCJr0gmTNDYadKw42eoweWkIvFBk/OSrsh4Pwy/z00MlekGMkcqFHOHTP
Bnvo6n+DT3kh9fYvcXhpdl53LuYbtNal4YtpOFzIOMCeOfgNHjzK9QvLx4Fv
aw630+iDbkeXNd5KHFptUZJAaB/s8fQKSGnAIbbkqTOtow/Eqni5tFpxOM17
TT1Uvh8E0xqzaV9x4Lylta7j1w9fv+w95cnAoblhR8Nscz+0Bs3WSI/jEHmg
I/6d2AB4y2QNMKZxMA5Mt7W7PQCvDTVsC+dw2NntLS/waQD2/EsfTmLhgDSM
5qj7BuEP5UTepBUcgqMFKh86DcLdfevehWs4GIyPRugUDcK1Y8rR39dx2ICS
87PsDChLSW0y2MChIjlC/N0lBpRaRccWb88Dlq3Gr2YxQBDTOGS+nde2UCjg
X2dAGrf9bt5t/lLOciD19BAoLlIM1xZxKNrdZPKQNAQJMZ4Sf2z7eTkl8OnM
DgFH0XTF2W3/JPvimZUDw8DV2aFXPYbDarTExY5Tw/C9kZNst72/dXl4Odlr
GO7b7pXQ7MGhdPyH1JPkYQivNQrVbcNBUMAq3KV+GP7lsuj0b8Khw0PeXEKI
CaavefvSi3DQeh1bvHKMCQdsgk8+z8LhKWVJtOMGEw4JVPKj1ziYyzWORpUz
4YnIRNdgKA5kC4KZC5MJs9fjsPZ7OPwR/E8+cI/AxPoQi2v7Xmi9rn+vXB0B
u4YPjZYmOCjvaWW0R4yAUft3CZfDOEQd0jYmk0egmJiuXCeLg2n8Hl6XrRGI
POUYf3OTDvVGWRnt6aOQ+daKPTSHDprxH6ZWKaPgH/iBg/QPHVJ6P6pLz42C
rzTPjNxDOgR4UMpvHR2D6tHR6uCLdFBPnKKzd43BIQeSfjCrBUjMhf0qG2Pw
rlNWQ7qvBbjUNqwt/hwH4oDytUOoBcYQN5PkPg49JeEutdEtkDytunxk9wSE
irj4R4q1AOeRw/p2qhNQmO/P9uMXDXxDDELCLCfgSpflMfogDSwEz3G1vZkA
ir+kJWcqDXYf95Ry0/4Oa4OjJcHSNLj7rMAk+eYkFDbH7hXfRQVGf3k0ipuE
SOztRB6DAmcUa9smiifB3T7qCLWcAopV7baH2KZgpoTBmXabAv1jix70pCk4
yNvFzmxpBlPdIwm/qdMQELMrRse/CSSHKiauq81Ax/GFwKigemBjeSVRLWfA
KmCE9fhMPYztUTmt6T8D/z1cYzsoVg9k9WTyZu0M+DYPVJ4proPjwYE+SZdn
QcUqIV19tBYcpY7ubA2bA37ueb0mLQTtBEY86ec82G10O54Vr4AGncrv57fm
4fJYVY9EajmUGSZg7PwLoJM5VmaqUA7Jl8wX/9JZAI24isBCwke4HvT5kk7Y
AtROvvSa1S6FRXqKZIfIIsQosSRJqoUg6O6Yw2HEAjI5c5ejcRqocLxtsrjM
gj1znSOW+1MBS58YeXWbBbNLRTnDFW/AvddDQu0lCxwsWnbfHk6CBuMHsRbj
LLB5QKqVlIwHH6lXnq8eL0GKhZ9D0Cmfms7WDqIqfRm2lIp93RKzap5rmVaZ
X1oD9U+/q56cqa35lqSJFvg2YZjDw/xqdldNTEZI206xHZhyVLccdxmzRuTl
6JMXb9gx9gxK9J3SqZrHVmbHO1Z2Y0cEvGVfD8/X3NNLc6SGcWIFprW7Vh4t
1xjPbQR6jnJjW/YifHliGzWhBpbXxHV5MOOwhdhc2u8a/fxXJcE1vFj9F89X
DXt3Ive1hYcUnv2Y05Nq8QOkXWhdlY9BuMSP8cRNHVG+z4EMcvNSExIEMLeo
ez1sztxogf+0k3WdIKZ0a0vqgioPGot1svbmEMaW/ETIITJ8yGzO32xcWwRL
mKO533m9H/105rxXEiKKSZ+pqCg8JoBM5UV2Pq4Tw2SoT6mVw4KIH1eML5gT
x27dDiNTPIWRZNQHC21tSayLYMNBURBFSap6fAI3pTBrtzwzqyYxRBM3PMJ6
Jo29NSdHFbpIIH3JuqcaXw9gfaULj3PUpNA+9nSfa2F/YoxO0nO2AWkkHXrA
wFZRBnsYmLdEv/In4lKwK7vQLIOlGevhhqYySP2Y2Ad/e1lslRz39a68LPJm
8NefZpPDoiWtskVF5dAcK/aSWZIcpiQn0rzjtxw6qdGUbEaQx7wOGaukMuXR
Z9bRX6ut8ph8JeHa3n4F5KlG7Gt3VcDKTpT6rDUqomOzLl22XIoYf845sc0m
JWQiL3qOJ10RO++TGfZnxUF08GF0QJ2OEkZTb2P/+70yUnHVq1HoU8K0mRqp
uvkqyPWzW0SJ10HsYtdne78MVVST2uWyIKSMZWvEWjoVqqGl91urGh+VsWpS
erVnFQE5K+RyJZ9TwW6cEA25UaqOFlReaBfNq2B1h5jx1k0aqDzjF3M5ShX7
ImN/1dtZE10xlsOOSqthJfb++mwjmkjC43GFOlLDBEqKFNXdtZAQt3vhucsE
7NHwb+ufM1oowygocN6WgE1WLN/UmtdCxKB4oxd2BOzsOH+U36IWMp8v6O69
RsDe11Yus61qocivy+vO7gTMOiY5UpiNiNbSQ04EhhKwIfbbQcb8RNR39EVn
Zi4Bu2nILM3VJiI33wySWT4Bmw3Ylb2oS0Qr+aWuPwsI2MiSbK7eUSLil+1d
1SojYE5uZwe2vzp0hlNK8hMiYAK8aotjp4iouivTpbObgPnmLk/LXCWi0/vK
CX69BCxHQB3/y56Iek9SV0T7CVjjy7OfCx2JaKnyR5TDMAFbTtHGDV2IiJCm
SZ6aJmAWPMlvrnts8/oM/WJnCJiEL2Ml5842T/AiaMxv+/r9dmB5EdGNx77t
PssETJubfjXCb5uHIpNF1ghYxpbfPD2AiMI2Ep0rNwjYbau1F0L3iYjvcLaa
/SYBe1FpbuoQREQpHpXLW1sEzGUsgCMrhIj+BwSRCB4=
       "]]},
     Annotation[#, "Charting`Private`Tag$15364#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwBUQWu+iFib1JlAgAAAFQAAAACAAAA9t7JxCSLlD4LAJ7ZRMc8v9SeGHlB
2HI/4athPR8Wpb9AFc9iGNiCPyIyQl3Tkqu/FtsRCRBEjD9P7aQ42ACwv3ZQ
qtcD2JI/jNzcnpG6sb9hs8uq/42XPzOLshhQKbO/TBbtfftDnD+qUR7oF2a0
v5w8h6j7fKA/XR9BYEF/tb8R7heS+deiP3QoIcvXfba/hp+oe/cypT8VTB79
8We3v/xQOWX1jac/50r3fN1BuL/os1o48UOsP2tSERsC0bm/XmXrIe+erj8F
ntRxdYq6v2oLvoX2fLA/Aodbp5A8u7/fvE5v9NeyPzTIoK8yj7y/mhUXZHMF
tD9H04RHdTG9v1Ru31jyMrU/i8RsZe3Pvb/KH3BC8I23P2U+nmiaA7+/toKR
FexDvD+j3Ua7ZKjAv0Yk6t3x18I/mrr1ptvbwr+kUE5YsW7DPx68FPRRIcO/
AX2y0nAFxD9nqZE0umbDv7zVesfvMsU/LlLWzIPxw78xhwux7Y3HP7gIpQHG
B8W/HOoshOlDzD8tgpZMhDvHv/nXN5Xw19I/AVXtAhjTy7+4MghgpynTP/Sz
09N+Jcy/do3YKl570z9PAXQKRHjMv/JCecDLHtQ/eqSRoesezb/qrbrrpmXV
P1dV1t25cM6/3IM9Ql3z1z+aQ4TcPpPQv8AvQ+/JDt0/omxyvy9t07/DQ6ek
0aLjPwmZtBIGq9m/MI6v6ffI4z9kk8hVQdzZv57Yty4e7+M/iJPr1aAN2r94
bci4ajvkP7A7HgbMcNq/LpfpzAPU5D/uBNJ5zzjbv5rqK/U1BeY/AA2ctW3P
3L9wkbBFmmfoP/j3WKATC+C/HN+55mIs7T/+sTeviIHjvxRsX6oHQ/M/VeJb
d1/v6r+SMUa7TlX4P4O3iRHE5/G/2ZgwwPEQ/T++xCkPOF/2v4ukf88CGQFA
NNICSMaE+78XlOOJk50DQCkKta8XbADAh1RJPtL2BUAm3Gpz4wMDwHM5oV/J
gghAZviX5DvvBcBE7/p6buMKQC7OOIKZwAjAgTxRYRo4DUBcdHyOPZgLwDqu
mbR+vw9ASvHXwwLDDsBs+PGAyA0RQPBNL48V5RDA+SsQ3i1VEkDSJGtzt5IS
wDyrrKCWlhNAWg3pSYpBFMDxEkpgVsIUQBEQIunz2hXA5IxgVnIHFkDVH30P
4Z4XwEnvd0nlNhdARMERrLlLGcDsYwhztH8YQNQ3GL+zIxvARiQXAofCGUCg
90uzH/ocwBLNJo6w7xpAel0Gdf62HsAciK9QNjYcQKYjWOfNTyDAmCs5EBNn
HUCoPQ1ZvTYhwMoaQTXzkR5AYnrmYbIbIsA6HMKQL9YfQFhEODbXFiPADgOi
dGGCIEAXpe4JtQMkwB6BHzxZJiFAIvCpyA4HJcAJJVy2UschQKta8Fk/CCbA
Lj0Zr3ddIkDgde3CW/omwHLeEsNKACNAC8lmjEQDKMDv84xVSZgjQLUk6R+z
/CjARy/GmkktJEAnj72UK/MpwL7zO/v3ziRAcCCOd70AK8BuLDLa0WUlQMJS
pIQx/ivAPe5k1FkJJkCI5CefAhMtwEUkGE0NoiZArSEQ6GAXLsAogIp4wjcn
QFrewnddGC/AKmU5vyXaJ0BiK1nmfxgwwGW+aIS0cShArRSjElKcMMC/oNRk
8RUpQCY8VXUWLDHA9Kj/9y+3KUAdeo0qJLoxwGMlqwmaTSpAeSY0+3E/MsDx
KpM2svAqQO3VCsvU0DLAuKT74fWIK0DX4VvTVlkzwFpEI0A7HixAl8X3QODf
M8CMaXQIr0EsQAAAAAAAADTA83mLhg==
       "]]},
     Annotation[#, "Charting`Private`Tag$15364#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 14.999999693877552`}, {-20, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{{3.7740755318903217`*^9, 3.774075546367742*^9}, 
   3.774283954344098*^9, 3.774284198013571*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"19742b7a-e69a-4b3e-9dc6-d3b6cfd1a30d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fermions in 2d", "Subsection",
 CellChangeTimes->{{3.774074038386326*^9, 3.774074042712158*^9}, {
  3.7740745627067947`*^9, 3.774074565065641*^9}, {3.774075895328517*^9, 
  3.774075896153144*^9}},ExpressionUUID->"a44894e6-642b-4c65-8705-\
495a2917047b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF2d", "[", "t", "]"}], ",", " ", 
     RowBox[{"1", "-", " ", 
      RowBox[{"t", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "t"}], "]"}]}]}], ",", 
     RowBox[{"muM2d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM2d", "[", "t", "]"}], "+", 
      RowBox[{"1", "/", "2"}]}]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.5"}], ",", " ", "1.1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7740759121054087`*^9, 3.774076020507045*^9}, {
  3.774076077766238*^9, 3.77407608851747*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"81229ff3-ac2f-4c1d-8b7a-a4e326f6b247"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJw113k0Vev/B3C6LsItMhQJFY1CGlxKb0NF0khFSjIUSRpEt5JUKiHdzEVz
RCHDMXRwDo6pYx7LGCGZtnlO32ff9fs9a+211+u/Z3/2e38+z15q7XzQbg4P
D08/uei7kV1XBfun3Tae/9YAXkjuu/tAOhD/b0/BpJXe0m8gMvKbLAoiw8Gb
5H2j4es89J9Dm67qM2bjUBdf+Yu2XO8/NrHrPiKo+8I0bWeHzUo8jR/Bd4t3
nPaidxJ3V29IgLrF02Ha7M6hzoMPElDHUaBoS/Bbh/xgJOC8wKle2g5KFQbX
WxOw/ojRT9pZ23UmRP9KxCq/nA7aC2zj3739OxHenjmttE/dljPXsk0EZ3pr
E23mK7+5Zf6JkH61/Att0ZyZdBtmIhq6TlXStm11PDPRmYhdvGNc2mk8DTJ+
C5IgVJjF+e95FYy4S7clwTwpNoO2FdKvpTgkoZUdm0SbYblKeXdQEkxs3kXT
FroR0tjCTkKBs9cz2pYR/H4uvUmoF1r7mHZixmXtuYuSERnkfoc2f2N7X4R+
Mh4+OXGZ9tFpk2fqzskYTU+wpR0vk7u34EkyyoIPHqTNp6X+2yI/GVq5ctto
m5m/jB8YTMbEh4GVtKkGU6FXMgyIpu8Vo33XUtDORJ+BbV5xE7PEsq1MFt9Z
BrzEe5toJ9k4y6QEMiDn28qmbdS57PLpTAb6VU+/pP3NvrZsUScDfLtNPGjP
O6ftdU0jBQa/Y9Vpvx0YaFG2SoHcYJYA7a2X3mg130/By8GrX38RV40eCfJP
SEEMKzaK9pkrwgM69SmIqlO4SJt3OstoaE4qDp1++jftUPeLb1+vTUWebtvU
DHHera9H+d1TcX9h4wXax/70Y6S+TcU6H5EVtIfu6Yg6lKZCQZGvZprYW2jk
jMx4Ko7suHaDtoJfVB5XPg3dySuX0U6db6HgbpgGwccZrCnivY/nXVO5kAbX
3d2HaV8Puaz2b04artpyzk8Si8us9tHrScONptyhCeKY8MaOYfF0dJnOcaJd
91L/6WG7dKhvyzUcJz6nOD4q8DAdIkOe0WP0+4qK2Z+eko5HMhM8tNU/iPHL
Cn7C8jbrxyPERSp5ViVqn/Bd9Dp3mM5XwhXmDfNP0CsKmhwi9ktpOd8a8wnR
oUPqg8SKmgHcx1WfYNChqz1A/Im5c8X2mU9wkI/Rooi72LENkXuY+J3FFOkj
9tA/udnMlYleH7NvPcRS+RL/zn3OxBGx0TfdxPrcazvPDjCR8m5w9gdx/R7V
l0ukM9AorhzQSXy+vG26VDcDC37KSHUQP6vZlbA+IAORU1EdrcSbzH4Jf2dm
wN5FYP034uL6j6cC2zOgXBNh30w82bJQdnxTJmRtysLqiR9Zc13fWWZisnrB
4y/EKzpuVJjfy4RZRtOlWmLT7o67GV8yEeb292AFcc/ZsFYn3iykdx3xKSO+
RRlvlV+ThddiciIlxB9HkgY9r2UhyCE8q4BY+LfnMQM5FoTXv69g0nlyOGKp
vJOFLc/lwtPo+lUrW4mdY6Hh3gpDBvG26DqbhkwW9h3O140j5orH2rE7WIjk
z/aLIVZGdlIlPxs3qyTTIonTo4MZqSpsDB5ze/OMmOeE5+YYPTZWx1XaPiHe
KXE2NfwwGykmSjzBdP5v6KZ73mCT3G7g+BL3mfRm7C5lo0Xll/0V4o1z67S3
tbGh67y+6yLx1azsLLUxNtpeK21xIhZYHcKWlMuGefs9s5PES2d1OS1O2dib
ZHrYgNg+SXlHpWc2VrSmmekQx9kvzOcEZeMCe/FKTeItVb0F0ZnZGG+tW76G
+NC7EO6lv3JwZ0nEzbnE4cdvGZ9amoOA1275PMRtC5xKzDblILlqYfn4LOnf
7npl2sdzYAOnNR3E3gf7KgVic6Bc5tKUQVwu8MVkip0Dptuj5YnEUpk51b3V
OVgmX60YRfx6ZWhtxUwOdvedMX1EnDmjV//UOBdLjqYZniDmS1xn8dAqF+PU
rOFBYqPTixpvuuTictyN6e3EdRV9TXbhudhv+uziauLByNBW1d5cxIge9+7/
RUHpQH9Xrg8HQrl6h+2JZTwMtE6/5GD46/VjpsSisS98hFI5aDi5axDEU4Im
KgfaONhvQ+pKXM5OvdT8dx6e72ziMmdIv+kXzfPcmwertV6yb4g/yZ6RUrLN
g84/Hykf4rdXZNMd/fNwJe3OwqPEV9U8Zyc68vCHRYHewDSpl2X9vvDpPMwL
VHWvJrb13fASYvkIOMarkka8r6tD/+7WfHja1fa6Eyu+MPIWD8jHxXv8jDnE
pfMlJFR0CsB3myM3MEkhV9vJruJQAfTfrBfmEqc55qe4OBYgI1bo8Fvi1wVX
zJnBBdDjleI1I77i0fTMsK8AlOfh24wJCk6xmwd65hSCL7RN04fYusFf139R
IeqGFutbEe/R0Guv0S+EXFehgSDxMipytc2TQhQFRQ3uG6ewcAnPNf6PhTAu
VJdUIBbZbV4cnVeIRrleD2qMwniksPPAQCHqj0DJl7jY8nyyu0ERWMKC9zNG
KbiVaiJ0pAiiz067TQyT+aHC6CgS/Az5FlVnNvEbPzXfadnPSAxoSLxHXGG8
8qvljs9QXO0tLUG8litxSSn4MzSnVHcqDlFoKaAiEzW4+Jkrr7Z0gILrSsc9
7bu5SNeOPdVEkf3d6xyWtOJCw+rwl1BizZ1NOv/c58LYbcT+L+IAzud6fCVu
cFne10fBIPvtvJKrxXhcarvsbg+FZoWljNmHxVgVfz1wE7HLzXALtdfFEKlZ
pd7eTeElAt4FcIuR3ebdu414OvOm3lHZErClS/S7u8i8/mTh+iOzBJRXTNLC
TlK/ZLFmXt4yDNsUhhW0kPnlO23aLlWG1vIPbw8Qv7Lt4OYrl2HEUyO0vpn0
G8n0dB+zMkgr2q772URBz9UqSPJjGYLrPH5NNFDYHH4kMlC1HK7CrXZtdRTM
7xe3emmVo8hf/exR4usuukvcdpSj1fyhUUUthWzjtYHmFuUIs53xYdZQMP41
6yl3rxx9ulpCt6oonLSMPP6uuRy7ptZvqy2lcMdocVjYz3Kcu+ptvYU4cvOj
6gcj5RDYIH7weQmF3nlXdzsJVcBrKMffppjUn7VHU31zBSq2LrrQVETBV2FU
IsOvAgLuCuuCORRS2vSLy7ZW4t2u1G6pdAq1hp6DfgaVcI4bTTySRmEsLkvK
+GAlkgx8tENSKWhc0zxZeLoS77WiQhakkLyLq46xH1finN/RA1OJpP9ul1FI
7KqEuF/GWb8PFDIiBy4FBlZhXbm2FOsZhUYRlbCDz6uQo/kQdREUZi46ZonG
VOF25YRsfzgFbXQK+rGqUFLzZmjhU3KerGuI8OquwhaF/b8tQiiwBAsKXHWq
8ezKjgNv/SnknIlYbN5bDdd+1WgtD3Je+unoaDlWDf0tG1ZtuUHya6/FtOGp
QZvNuLuWOwWvU3VHz0nU4MHGqQ+brlEwtBZ7cntrDVa9CxGXc6NQZu61KM63
BrvKqutTzpH9GjpJ/rGuFowgCzWB4xRKCrbYCWrUYnoD74Y2C7K/nUKMv3Rr
cXzKWiDjKIXn26NMFx2qxfjPNsWzZuR71mkNWOdei0fjMapZJmT+axxaYFZS
C2/7hrOrjSiMrtCeH+tUBz89zY7Fm8m8a9MreHClDmEhU6PJG8n5MMLQw/52
HYI1JV4YbyD9W8KUWh5Wh1+KQmw3NZI3XseyJ5w6zHhqrMtcQ/pLQ6j//cVf
MMQy+sgnT+rrPzLftugLrlstl7zLT2HO5HvRxUr1+B4lN3Cgoh+LS/SGoVoP
2/2L/ogv68fGl19rbDXrMXvfuEmotB92uwSexu2px720f39kfe5HYZi1kp5r
PZoM6k0XcfrhryWt5VBQD+frbyMepfRD9vpdm1SHBtSwJveFPOnH5t9WKSZx
jbid4LGN90Q/iu9sLM1f04KX4pLrdRv7IP+oZzK6/xukc79bT2r2oWe8pblG
rQ1RIemz4/69eNPN/Dzv4XcoDIQZLuP0YN6SKKq9vR2eEXaTE13d8HVgnHqh
2InWJQFsDZFujOm8b7f3+AE5ZaXhZ8I/4aLOSZbK7YKEcCkzXKQLLXEcn4ql
3TgtbZEv1NWJ6TPVT1df7cFJSY8/p9M6sFZXYPYUsxcaPvd4Ix+1w+DV0tMJ
C/vh4HL/H1Hd73BbcmJZ6zHSty9DoHCqFcq9h4Tr9gzAauePS2vjv0F8/oAg
Z2oA4vpqvOcuN4OP9TR+efggvn/UjFSPaoDjRubXubuHsNbQ1uPMnS94v8v6
RdbYEELeeL84a1aD0R4Z0c7gYbxu5lc7vbcSDBODPwK3j6BKtnjj868l8DD0
ep7cOQItf40/E08WYGmT0ZfXXqMwvTlrI9jJhpbGnUBp9TGo3Yr4LuyYhGNy
ZZO8VWOIs3Z8UPMtGKOf/drOe44jVLy9yL3xFSuUz9LloOIEmWeOMir1qSzx
ZsarOZwJ8J7vF+eXz2X96e5pqnlhEnOteZKkRLksnmjL+LYFU3DI4nK/GVew
Lj6J91uQMwWphwVCjy7VsDLX3hcUOzcNSfGZgNKQrywxo4vKt+bN4Pto85OI
200sEcZgdN7Fmf/7f/3G+h9ZYgXF
       "]]},
     Annotation[#, "Charting`Private`Tag$11994#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw113k4VO8XAHDiay1RUglpU0mSsiR1RJaovoWSlCRkSZYkUYoiFSmUXWkR
ym5sgzuWMcyQfclOTLLMtWVnfu/9Ps/v/ec+n+e9f5x77rnnvHebpZOh9SoO
Dg4uTg4O4qpvPVRP+WN9nOO/NQ4fNvzr/2JzGPzfPnxZu59v/gyrp9lo4bB6
6p3S1sAkCHKa/M8RXZ5apJVUaE1rWCYsNXr/Rsr+dIgadlkk7GSnvIujMx02
+nLOEt6UKOq/91AGmJhFTxGmMCeZhi8yYBNVGicsymMZ/puUARW8NqOE7XbV
6z7oy4DPJvp/CBef1JgTXpMJlKDSQcLrrNISv6hmgpFvaR9hmydSpmpWmcBY
Uu8iTP4YxF8bnAlOn3a0ERYuXcq/Qc6E8GGbBsJWfQ72c8xM8OeaYRDO4+gQ
D1qXBSP04vL/nldan7HteBbw5qYUEraAfK8cuyx4TU3JIkwy3yNn8DYLtO0S
kwgLeId39lCywOCeXxxh81ieILfRLDgnui+EcGbh3WP8m7LhSfzDp4R5OgfG
YrWy4XrStbuELy8axSk6ZcPN6gwrwmniZWdpUdmQlmJoSJhbTZFtVpENj3qk
jhO+ZBqfNj6RDdW147sJ4x3GAh/FSXDs11kRwv7mfNZGWiRQzEudW0GW6CNj
3LdIwDw32kU464aTeE4YCdqb+yiE9Znb794sIoF2wM14wr22LbWbmCSIyDZ6
RFjo9jE/L5UcmA5LVST8ZXy8R84iB1I+YryE1e98VusOyAFqmdfPZeTGvyZv
gzNygJGb+pWwvYfguEZ7DiwsbnMlzLlYrD+5KhdmimNUCUc8dP3yaV8utDT9
WlhCpvr+vMzzMBdCjne7EL7yTxAp90suPFyzVobw5DMNYbsfuXBhLW/zIvJz
gWl78dlc6E309iYsHfSVytiaB4c/7ttOOHetmfRDvTygSpRgC8hnQ4S85F3y
4Mdz/CLhB+F3Fd6U5sGYCcN5Hnm9+N6XmiN58KuNMTmHnBzTOTi1Ph8svQQd
CbfGa0VftM4HWaVavVnk2ztn//K+yofl8OCkGeJ9fU0+l5+TD4wvvJyEFb+L
8EjwFcCLKfeQaeQqeapFjUIB8NSHMKaI+srwIHubFoDsi7T5SeSgnB7nvuQC
uOe2/tAE8s4joYyQxgKoZtkcG0cuIOvInFwqAHZtoxqOPERJ6Ug4Q4b5y+Or
x5AfaV1XvuROBo9nob0jyGIVom/435PhpoTKl2FkLYaXzq1xMmjInGT/Rm4/
cyBecnMhvNgcEMpEdq7rX/xxohAsXHzEBpHjmk9lHAwthIEGGWYfstKlZcFf
5ELoNQg72Itc3Z5uEzZQCPYCanbdyPM9GyVmlYogeehVVDvya0uGe6J5EYgG
M0PakGUGvetNnxUBI4jm1oJsPDzoX9hWBF+LjSfrkUduRfY5chaD4MDrwFpk
X/y0+lbZYtA/576mBjl9OmvCx6sYqIlHKTRkQbbPFV0pDATTOJrIRD3ZmZjL
6WDQaZ8cl0fkr0nOQuQ2BrJzo/ok5ONJrTc6ijAYOSWsnYrMWJ9iTRnEQMnb
+E0yshyUZDXwUGC9yxw5ATk/6R0pV54Cr78JJMUhc1zzUU7WpICYcaVdFLKO
6K3cmIsUmHv59J93RP17n8j38aaA5J8H9EDkMaPRQoMfFDhGCnDxQD7M33rs
eD8Frh+4OeGK7FlcUqwwQ4Ht+0S0HZF594ZTNkiVwP3z3FbXkbetnCjvcSyB
ju4Ya11k2yw57QafErBdJ2GngZxqu7Gi/G0JRGLfVI8gH20cpSUVlcDf+AUV
WeQLieGMO2tKoaOBGcWPHHPV97TNtlJQP/asnwO5f51jzSWlUnjC4GXNrqD+
/VCz9tjVUjgU7np6EPm54VgDb0ophNKl+IuQ63jbjBYopTAos3g+E1msqLRp
tKkUjlN3XfyK/Gl3REv9UinoaHAHvkYuWtJsjz5dBncVll5dQ+bO3G/2yqIM
Zk3tQg2R9W9u6nzsVgYXfbT1tZFb68e6rGPKYPB5JX0v8kRCRN+B0TL4MHR0
lrWMw67zrKGyl+XgKhq/bIss/khX7WZ8OWCql9dcQBZO+fBSILcckvi3fNdA
XuAzkj/fXw5rGsteiyHXUXLvdKtSIeWKSE3hEuo3LGGqz1kq8Pja7/uCXCBh
L7bLigojkwOrg5C/eEjkOwRTYaeqnpEZsqeCz8rcIBV0TomVTyyifJm3/xuz
SIUE+UqRFmSrwEPxIFIBGk1ZLfnI/w4NavmrV8BB51OUR8g7P+g/Xx9aAY7l
y0PcyD/WiorKa9DA+P6gztQ8DmXHHK3rL9BgwOesyQ/kPIeKHDcHGhR23qcl
In+ieZiS39FA3+pCiRmyx6OuOL0xGoS6CEzlz+HgmKI8PrKqEkaU7H8GI1t2
BJ8I3lQJMZQdotbIZ1Q0B5q1KuFb3j8+a5C34wl7b0RVgqjyPZGLszhslOTw
4kmvBIeuV3dkkFcbmFYnUSvBUmVQamYGh9kEQafx8Upw8m43CEWuNnfOfqhb
Bf5rRH6W/8Xh3o8jEDFdBaFb+MO5ptH8kCcNVvHR4azNBRZjCofPQQqBixJ0
ENokExaKXH96909zbTrs1DxCk0bexxC9s+sdHSS/Z6QqTuLQQ8MTMlUYIM1Z
+unQOA7uux3ODBgwQF1w3H4cR/E9Y05tsGCAqH6T83fkIzpdGvcDGHAqePnw
duTQcno7/GQAd2TbU24WDrolX4RqPKshop1879MIDt3S20grr6pBWfVroRGy
2+MYM4VP1bB/DesgF3I8hCaGMqrh7L9yydeGcVgseqx5WaIGcFvRAqE/aF4X
mLn/LqoB+ZWh+JNMlL9skW5OzlrYv+e6kkAvml+Bi8YDYrVgniy5+LYHh49W
g4wKuVqQF45Il0aW25Cf//JSLZBt3X4rduOg6W7xdkN6LWimct7W78RBOcYk
IexAHXCFTslrt+FgGlDd56dWB/47j7/BWtH8cjsheU+7Dp41sVpUkUtO7wsz
NUP362bz72nB4fTyio/Uszpg9UTPzzXicN084Wpidx0wzlOdrGpxeKq/JTLy
Tx3Qra3yqn/gkKD8uunFdB3Eaom1H0IeFfI0cBSoB2//6wkr1Sj/2Jkjisr1
0L6fbuhPxyFQ+q9oYVA9lNp89L1KxSGnX6u6Vr0B3hY96dhdgEOLns9EkG4D
PPjQVuKYj8NMarHYacMGcNe1epiZh4OK15HrlTcbwNKi3FU1F9X7+gMzlJAG
GB33PKOcjfrvSXHpzKEGGL4s5z2fgkNhwvidsLBG2KirMxn9AYfO1fKRhu8b
4W6PyST5PQ5Lrg7FwsmNwD1yD2uPw+EYMPmCsEYYOqpCEY1F58nWjli/4UZQ
fqRp4hmJA8ZHo7lrNKHveo4sGIJDqX3sFtPRJhA7GfRexxedl/44OJjPNMGH
kgPZ531Q/dqqkW9wNEN380KB2WMc/GxaL98WbQbTyIm4W9446FmKRD1Rb4ar
Ge2YjycOtaZ+m1IDmyFAs+TGfVcUr57jBq79LZBzTulU3HUc/socW5vi2ApX
hLJOlqij+dSvSXvh0Yr61zny7aPoPBer98j2SSsU7/w2J66G+q2oMb4jshVy
RdUrnVRQfXA61EaVtwL/+zOYgCLqBx0RwQFb2uC+q94hnt0oH8HTa62q2qDv
QtVjUWEcVs1/E96yqx0Of6aXRXWzYEuN5hQcaAfZx6MSG7tYcDj+Z7PVkXbw
VD3iEtLBAutTvNGpZ9pBJu7wav82FlRGWu7SdG+HFxuHRa43sCBYbbOaHa0d
Vkapr5hUFkg88L+Ra9cBO/o2jCl8Z4Ey2yLHKLUTVrv6VtfdZUH108M/KmR7
ILsvIOUgBwu2vh6ZT2L1gnCxdfx6lzEYme3pblboh5rSazJbu0fh8zCZLvTq
F1RddPRxPjgKQpJf8YGBAYhea0B/6TUCgXYkmw87mbDc2LWllTYMMxrfBmwf
/YZFrnDXPwt/wE2xPFusbAjy28gpAof+QE9q+cv6bcOwty04d/T8ECzaN0Xv
9RyBVtpHIS7H37DvBO+KDXkUooTEtq96wwTdj9tuZmxkQdpzYRe+mEG4J3lt
e98VVCed9ZeKMwZAbvSCYOuZcXBWuWWkQfsF69eO85UvjEOL2nNtZlk/cGPR
aTtiJiDlbaTFm5o+cDhM/slvMAkK2tP/nijuhW+nLD8Uz0zCHEXywvdrPfB3
RFyY+W4KYpR5Bh5bdAHJSJcr7OQ0rO6ODTE70AGP9PzeZzOnodCx8/FbyZ+w
rUu/7ZPfX/C4aGAiINIKaipPwzYrzgB3WQ7VrqEJrkjVznM2zsCLkqnf3qQG
+EsP6nf2mYWnQdmG6jZ1EMFt7ma4cw4Geha8Uu9Uw/pu0sdV5XOQHVndK7O3
Ev556GN8xGUeuLNMN8TfLwOOJPO0/nULsElf+pKsTDG4RqUFrStdgLZmWoDs
q2wo2hfAJ3J7ETgOZpXaySaAiL6rnK/QEjx2Zxk9ifGBzv11jfcLl4AjTjwz
ghmLpcfBzgHzZRDeI79uPDAdu5qmLCK5sgzOikXLuFc+9tgv3qczeQXSWdpK
76JLsJQhyWih02xo40iRvSRbgQXE+ll0n2XDnuW3V8nHKzArw7FdqefZQCH5
9kkZVWAShYXpZ0zY0Lsk1cn0qsBeBJtVBFqyoc7NLsqzpgKzVY6cELjPBguO
wH0ZzjRs+1NRPd4EtM9lsONybiW2ovpgTWsiGz5ocBrTGJXYz7FfDQnf2JCu
69t4uLcSe22SdVUngw2qE3HFwvxVGFvW8I5fIRs87plpVV+uwjrrg+O4Gtlg
uyVv9vxKFZbnP3ujsRk5fG51+To6Fnb02t5PbcQ+7qS8m44ZfJHP1uxmQ0BB
vpTEOTpW4FFT5fOHDZVMpuRIPB17t18p+PwoGzhE5uOu5dAxl/4Y4204irdU
1bGJTsf2nL7VQ5lG8XQsjRdP0TFuzqbPr2fZIHz1WsJhPgbWSzpqb7GAHPst
MVmCgRXafzqgsMwGPlLdrPRBBha+VfAv+tGHurKi0HBtBvY/gyjP/w==
       "]]},
     Annotation[#, "Charting`Private`Tag$11994#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwd1nc4Vv//B3Aa0iQke1SkzMxSeSJSMpKd0jAKhRAipCKEFClFpCIU2btb
kn2b932OPVtkhfRp8Tvf3/3PuR7Xdc513uf9fr5e90v8rNsxh2UsLCyrWVlY
/nfVd/jaXjXmoMFWIfbd3DBdY8UBAfdBfh1crnZ88uy+B5SSHybm85thWNzh
QAZ5DR+FtgX7SNpiwrSYc1/FLRyhk3lJ/PZ4qBTjGaYUjW2Rwi+WRJ3A07Ip
pkHmHv7q2z04I+mKB2kHz7iK3oel/c/Ke/xe2C5R2NRe/Ag1BwSK3yd6I7ze
Q8bCPgkKW/e/mRe9gj9sL47NLSaDfeR6qoVkIE6mnezOuJ6KfvlbB6L4b0JJ
JOTz1n3piEvmq5KwCcE59h1uq0++hD5H5r63iaFQcrp6R+lKBoqmmlWmRcNx
xjTql83zLES/5pIykYxG2owL2dGUg5RNxqER/HGgz24fu1KVD3/6gxqLsjg8
UnC4mKVSAIuQoWVbbe4jPHp07YuMAqz7cSmoPDEeSVz5H3iiC+HLiPOdEE3A
0LGdZ+oPF8MktsfZSPIJKgR6E83vlSGYPX97OP9zqNTOprbrVGGn3t2wPPfn
GDMle+wvV6EjxG2st+45JvstJB+/qMK25TJZct4voH2octnPFe9Q+++5HKMj
DT8jv/rH0t5h3Vy8imhkBo5E0+r9JN7jYb/fgcLFbJgnCyztLv8ALSHr5wPm
Obj7bubBhZEPGD+utpL9dQ70mBOxdqtrITJxxe617BvsxoLBE4tauDmpSrD0
vcEFta1SVlO14LLPeflidx6y/9W52XLXw8r6ac7M9wLoFvsWKqk1YrrXbE2q
QCHEWIs4iswbEWrL7mB6oBA1967KbfRqRL6dm0BRXCEukf0fj71pxAbX/SH+
akXQ4HOXXLe9CR+udx9nCyjGfLiv4r31zVB8tZFNiL0MpmyuIslVdDTIfThN
VyjDzSTxTyU9dJzO9S0PtC6DmcafDfnzdEQVDboPZ5ZBsb/T6LBUC75Wve5N
MywHa05T7rLoFjxhHs7dFVsBueas9jbTVqxdCj6hJ0LD09ji+0v2bXjoZGkr
c5AG11+vUla4t2EbQ+b0Rlca7qvGz/71a4NGBmnXW0lDkWdBVl1MG0oz4guL
5arg5OAoW1fehknTiYojLVUwYx+r9udoh/nLB02e66vR9os/VSS7HYknrxs4
ildj2aDp2ozidoxwXaRbqVRjkNfdX+pdO9wCtFv3n6xG2Ih+ChujHeHHJjtW
va6G0Q3aQa1f7aj8q93z2OA92Gby2cq0OiBhMvX1/e0ayOWnP1zR1AGBID31
c09rEP+b8fNnZwc4X6fcXlNcgys6vIuDfR34zW4qZzJSA4tsCfnoqQ60VRV7
Duz+gNU81k72GzvhpxC8+N+nD7AakxFbZt6JFg4eHjnNOtimnJE3ZHTi/f6L
Du3mdejb+eXNeG8nSlxqi7xc6vDIXWVn4GgnntX5WpfH1yHXU27HrdlO+Ab1
Pzk0WYfL72cst3AysGU6bYfdo3oknxTRCDnMgE/LHjycb4A971qV3YUMbJAr
/NTA3ogU/dNTauUMPI9SiPwj1Ai+jLcd8u8YaDfY3m2r24htN+qU2ekMSDfx
eErEN+JfjuXKEx8ZGKybTstTa4Kpi+2PuI1M6L17sYHu1wytEKE9no5MDIiJ
Fy5GN+OffqPDDRcmvK4l2ig8a8ZTvxLXSHcmniL2ZWxTM3jcPHaE+zHxp/Ka
9nEhOmi1CXTZaCZyymy8v1TSsTFVmkeqgInNBRsHWFlbcSVU6TTrHyZORP4x
+8jbioV39xVjlphItf/UVCvTCtMSQZPNKwjIbCotvW3VitLdMmEb1hPQ9j59
f9ObVtiUTHg+FSGgmmiZFiffBk5pU+KkJgHrsObhEPU2nPiVNeqpQ+Cql5aw
j24bTMy1Yq4fIvDOQDrO2qYNR9/P9YQfJWDwbzFY5FYbxlhraJqnCZyxTTv5
cqANfNdM/5oGEripL5iQMNaG9Hfp2gvBBNJUYxgR821Imn/odTeEwMQGvyMX
17TDYuze67xIAt40wz2Kqu2QU7abTXlEIFLsB09FVDv8+fJeKhQSKBo50Ny6
rwPfv/zKV/9EgDgU/D1KrwMuO3dN/fhCYCH7La/BsQ5Y5+7oyhwnoOa/50z9
uQ5EzEk1ss4QKOGWX6i614FSpf8i7X8TKNUREMv72oGfig0FLBtI9GRa6rrP
dUB1cfUTK04SvznvO8stdoDb2tg9k4uEej9HYSZ3J+grs/r3biZRdnml/jON
TgR83baXV4xERdqMZ1xcJ9hkc2ayFEj0rZNLOJbcifDgfUvPFEn89XB5y5nZ
ibmrkjLxyiT24zN7FK0TL7i+TJ7fTeIt2ZsUMt4JQQ9V53qQoLHX1XlrMvAh
oGy5hyGJIdcVk8pHGOi0FvdYb0yChanFNWfOAJtpocKzoyQ0n1accHNhwKjE
IbPSlETVnrzv5+IZsKjBaLY1iWrnJEHrCQYWYjz/3LQnkT/m4mK7wECuvo91
rgOJ5+fVy+1YmFjDkJ7sciQR4kged+VhYkVmw1t+JxKHzm58dGMfE85exvpn
L5LYMzw4FnaQidvbTt8/70pi5+nsPdFHmYizlZNydiOxzvZI90N7JqrChmVP
XSLRah3Clx3JRKed1k/Oy9T6ukzP58cz0Uf/Vvmd8hvLLSUlKUxcdOvpp3uT
uGdOs3xP5X7VdnFFX18SFia/4rv6mJhllT9/35+EXlvd5/7PTBj3jSqbXCWx
2zhedXSGCUHjURf2ABL8hkrEJFUH+w+JiTsFUudx6OKm5bIEOlUrRuaukaDX
7XVgVyPAv+Lf3tvB1P4fXFO4XovA3Dg3p8h1Esk66WZ85gR2uHxWUL1BIub9
5efCpwg0pmUHl1O+pq0zv8WJyq2uo/m+myTOag7HygYQuMCREaUQQsKUljOq
eIuArJfiwjPKOhqBSrvvEniRnz7GFUpCYp9gp/YLAmJvNa6MUuYtH9tyKIeA
ZNpRft1bJNjUSzwMSwnEpcsZpFL+qmbOZUUnUCYq5GEcRqK7aOvZkyQB0+H1
TsmUG1Vmc88OU/dbxPwep1xWUMV6/hsBO4cYKcVwEllKd0wu/qDer/Nr3oty
Yt7Jpx5LBDwDC87kU47cJfPdZzW1r7MZ7pOUA9781gzgJiFL0rZujSDhKt8Q
c12YxLfKnqtmlE9lPxi6tZ3E9tj+gGDKR2UdFaJ2kQh+miGVSVnrlfK1e3tJ
VMaKBLVQVpRe3vZAlwTTW+DGFOWtme2iSVSOOSuuqK65TYJnR4pbKpVTgb2b
H4tTXvHSlZZuR2KtcnOeMuUfkvs5XlO5CzRxDzpAWWNEuy6CyoVoSU2+EeXQ
pENB56lz6bHRHTKj3GJlpHYwmsTcKd1VFpR5ecymtyaQSKreJH2Msm2rdTrr
cxLfT600Okw5LeLUqcFsKifzpz32Up7SddhcWUpi4xbPR1KUVVldWh/VkBh3
vVnPSTmwwv2WbysJfYPexTnqe2p9vGHRQ8J/cwU6KG9QuvpT6ROJJSGnqCzK
llPBORtnSDg/3jIeRDkl49a56d/U/tVKWhlT/mofJUpf2QWt+txufsoKYrFk
JmcXJOv+uQ9S5+Hb+/BOmGAXHD5pi6VQrop/ouco2QV73eIxG8rsx54vHdjV
BZ51d1q5KCfU57gtHewCf6D8r0tUHkZuFG7vN+kC90MLLQHKO1E+WHaiCyZ/
krIrqXyVFdYae3t0YXGTCusClcdll5pXmQV0ga+sczyCsr5MB21XWBfGQhSW
CVLuTe2Xn0yi1uP3ulqGyvffO/Mc9g1dEP66upaXOgedI7/rtBhd2Kz61yqE
qqdINpZrooPU81+idk5T9SYcsHamZ74L6Zv67xZQ9ajhvKXNRKwbIT8/ZrJR
9RoqIRUmL90Nh3sJF4ypem4ZktVcr9qNy0rHA2Kpere13POm/kg3vmnyxK2n
+kGQztEY+HRD/NnjlgYfEvVL5oeEr3fjBjGhOUn1E85yG5Y/kd2orDrItY5y
yq5z7kWp3fhAn+3e60Xtp0jgUdmWbiztGlayd6e+/1cWp6BED5yk7aq7z5EQ
pGvPQb4H2UYvC+uo/qj8tJtpv6cHXhgq+1//dDi86nG2IeXl+1j9qNzWJ5yV
0PbugdT8WHqvLYk76vzqTnU91DwRnfXRjMTLDW+Eott7cGFq9FLc//r1yMGl
vN4eXHw3f0bzGInZCK+av9M9+BvE/SGSqhOL3lajGL5exD6Io/08TELoaqhd
sVMv5mMSajZrkFA5Knywz7MXfsq7OiL2kTDaViDFGtiLomQlsd/q1P40D0/q
3+uF/3qWG3Q1Kg9C+30HynqxoLgrQo+q24zKuciV6/qwRsO/NXwrlfel00Wm
2X3QECoIPbqShIFh1XXdkj4ku5yys1pOwu6xqLFadR9eXQ9rOcFK9Ue1gS8C
RB+1Ll5zm38Extxs+Ef+9aF4QkdHnuo7iUPmV90N+/GJ91Su0kcCrNX62lET
/Yi+UNpWRCPAx5m5IWihH/8J76k4VklAznZ1rzvLALbU1R//Vkbg+O86TzOe
AZyL9CnkKiJQoKj7QnDfAP4Z3Fra84qA4zOwZ94egJxFBfntAYHmm8ottTsH
4WxqtTh6gYA6R9OyuyqDeKW0/2wv1bdfJpxRs9EchLXGzrWtjgRuZEenTJsP
IqBBe1cWNc+od3314AsexM5vurOqZtT90kmbnclBdF7ytUtSp+apsetv2LSH
sPbJfEE29T8jGvPtV8bUEAbpr/9JUPPb2zNBGXlzQ2A7xfbSP4IJWyVu6/L/
hsChudy8JZSJREK9pHnZMHJ9Lpc5BzHBJxzhPc07jHTu6aYgaj7kypSaU8Yw
5nJF6ILHmFhZ4zBBuzOMeH8OQ3FuJr79HBxgKoygtKu1NSaSml/Hyxs3RI8i
tuC+J8eBTmwQTp/++PEj6BdDb4u1tSPSqdAxZdtnXNGNm7lm1IYFzayP54O+
YG7ZtrE1q+jwUqwp4H3/FXo+D2TmHRowmF1zu118HAdrecwzZD7gjzPj8Q6/
bzANlbT0oFVBWmvVomP5BO5GZffVVJdAL1X8XO7mKRgxi2IPP3gNH+FTW4ZP
TGNxrZ51hHwcZCbM15KGMzhRemmy+XksjZtjhr3m9wwmjw4+fLbtDW0F7XHO
1sTvaDC4sclueTnNRbm8e/WRWdztW3OYkfCelnX4bMrbhVlopW/eYVnfQPvx
TYDzc/wcuMdFs9RKWmmFpnrL43TmobddQtpcupMWdCgkueDzPEQ92l+qWBI0
8X79rmchPxDeH3lBNrSbpq52M45fcQE8pd5Oezn6adUrWRmObxfA8v+/Idr/
AXSjPoA=
       "]]},
     Annotation[#, "Charting`Private`Tag$11994#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwd13k4VWsbBnCajiYkFUkkUgjJECduJBxDERJJimg4lSRJKRRJSIUIhcqU
OWTeQonM2XtjmzPuZepkKJx87/n2P+v6XWu9117XO9zPs7advnzkzBIODg4+
Tg6O/64GZ4abykbOaPCdpLtycvRg2YHNzt2COvCt268nLdGDvS8jot8JmsM/
dO0b2wM96N8i7n19hy1MOrUnJ217YFjHzI4RdEC9Zv22evceiAcKv1kUOYcr
6V5Gjo97sGBg/+zUjktQUlp1dT6pB5YOsyVPBF2xK/lEcCm9B5UHNr+viHaD
Trh9lhjVA/nt6plTIjewb2fY89nFHnD1+cQf3XEbju1hMVI7e9Epd/9AkOA9
fDM9q1F+tRehLwXKJI77wi/kn/BG314Y8KTsL432w9NPs/uePutF3nit0oTI
AyjTI2gHC3sRnMa303RHMFbR3HaXLPQidsNhvwDBUFj/Flfnce/DzbpnlUcL
Q7E+IfVirl8fjvr2LNl+PAxNV27FKYb1Yc30lTtF0eEwP50XUZ7VB/eWUPdR
kUjYGEisUR3pg+nT9vOHdrzAMfuodwZHvsGb653kA8HXCMoqPqu4rh9Seo/9
s51fY64lV9lKuB/NvpdHWFWvcfN9WLXjrn6IL5V5K+v2BrxHMsrUtfrx6d/X
si3NCdDYPtfVf7kfa36EK4kEJuPpN7ls2+p+RHR6HMj9nQ564ifUXxqA1har
110WGXCQX5CIch8A21plOVdaBo4ozfcf8xnA1tEb9mm7M1H/SP1pYtgALp9T
luDoyASrjmtVeNEA+Bwykt7sy8bfi9+jmMsGccwqLmPyew6adtuO1QYNYoJl
vip+cy70vcbuXgwbhJ8t1xmzA7nIEn9puCxmEO/sL2/OC81FxzWVAv7UQXBf
Uve9qZIH3hXRKyuqB/HRp816hed7eIq9CHRYOgSF1HUrtnAVIsw7qkrSeQjV
sh/t6uQLccpJXzXdbQh2We5Ft63I/YbSChnPIQTldTv3phTCaDbHjC9gCMNl
aawE4yKUUS6pXq+G8IL+V9aep8Vkns4rTrUMYfWit43eVhoaq1k1dxSGEXHO
0lZGl4b3t46aLNk3DPEWGbt1l2gwEDK8cVt9GBrJTHtWCQ0s1Xa6vf4wCpLD
c9/LliFH4V34txPDGDMbLTasL4PUPdfekvvDsEh69uXq2nIML6wx5WEOI/qE
j5HjtnJ4TyT7trCG0cd3se6YUjmcV+erh/YM47KndoP6iXLoXJEwWcoexoMj
Y81/pJUj8cPJV7ELwyhZ0G6PMqrA0p9WSztFRyBhOj5c8bASz9rMjHzOjGDz
HT01p7hKGHqy5+fPjYA3LfbhqveV2C+2evHypRHMcZnJmvZVQpr5ZJPe9RE0
lr2/2rXvI5YFpCpm+4/AQ97798+Bj0h13cjrnTKCeh5+flnNKsg1Zj7bwR5B
hfrFM00WVbgUdvXY9NgI8i98ynO9UAXj/M0baN9H8KrK3aoovAqtqs9CD/wa
gfudzhf6Y1UoPPVTeh0XG2ITCbvsn39GoyzPy3JxNq7XqyJiqhoKD303R1uz
wS2bO1DNVQMTCfnZqBNsvA6SD5zfUoNA85Mjz+zYaDKSbLM9WIMnH+w333Nk
Q/oL/1WJ8Br8Zr5dIuvCRnfVREK2yhekKGV41PizoffhDXedRy1itYOjVd+x
0SW6Lfd3cC1uSwxkf8hlw9Ur+rj8q1qYqNuo6OazEYenSU+/1CJApSBUp4SN
+RIvbestdbD7Vju4sYqNjMLjbkMldeBq2rCKv52NTTnrujg5G7C/QjDT6182
bALnzfs3NmC+x0Dw8yIb8Q4DXz7JNECqIyhp9RIKMhsKCh4ea4DNlo0691dQ
0HazC9uQ2QBZm5kCEx4KytGWCaFyjfAP20XJilKw8q/t9VVrRPoC/buqGIVb
rlrC1w82IilFVF9LnMIHI+lQq+PEvTfGdHZSMPr3t/fW+42Y4ug7KSpP4ZRt
womkrkasKdv1exco3DMQiowcaURLj9m2eU0KCcohLQFTjTjkYVT4WZvCKLeH
4cVVTXjrWn3USpeCG81YVUG5CZue77lhYkwhUHSavzioCRprrMwjrCnk9R2o
bdjfjJ8/FqxiXCgw9L2/B+k1QzlMYHbuKoWZ9NKNRkeakdrK/7fFNQoqN1VP
fXZqxscb/AMc7hTy18vNlD1pRofgLV0FTwoFOptFs4ebcSvSwZrjPoX2FMuD
zj+aIbS47LCMP4U53rDzsr+bEZAquc/iAQW1Tp7clPVfMehDH495SKHw2nKD
VxpfoeH6RHh1CIXihMmroaFfcTfc8qdFBIWONbKRR15+RaXmi0XTSAoLLhdK
eVO+wkNj/UbD5xTUMcgVRPuKIw9+uClGUyhlsmJ82V/BrSqk1P+SAo2rqspN
swV9Gp2cBQkUei4tG1M0bAE7lbfAL5ECB12L74dFC+4mW0eYJlHQjCu2uXyh
BZIdCvSuZAplqtnfncJbIN338gozlUL5+Rghq9EW3Pxc4KmdTeHdyIULtjMt
OPamKLWV+PVZtSJ7DjqWs8Pc/n5HwdeRaX2Jn44ldIfuwBwK+qfXPb+7nw6l
QkmJrDwKqr3dI/66dOjyZRoovqcgZZeuGmxCh4HcJv5c4jW2hm0RDnTYVU6G
Z+RTaLDyFUgPpIOdFXvTv5C8X6vZ2XfhdIwPTnf9JM60FMvPj6UjT2Vs3LGI
whMLmmVFDh33nvIK7i+mcNT0V3hrBx2/vDbl1JRQ0GusGuwcpGPn+JXnO0sp
7Dscrvxtko7gxO9K94gFjfcyxpYxsFU8JESRRtZD/+KGpbsZOC9k+/1GGYW6
qj/PcKkwsMbnd8xH4lLdVblrtRjwmF7JxfOBwkudRHMBCwZCla4KRBGHVFx7
LXySgTNmzLJOYi9tnSmxcwwUib2T2lpO4bRm79Pdngzk3W/RjSA2o2V8U7jP
wEY1wfkmYh2N23v3PWague2r68oKChL7hb5qv2GA9+TL4ivEG4tGxPQzGFhv
lhQYT7xCLd/FuICBGrNNO5qIh1Us+I7VMdDJw10gWUmhLW/76RNMBlIm/XIO
E9co/ZN1upcBA2l9z2vEhTllnGcpBrIV9Pkjid/ufWR6cZqBI/G3PAqJo7NP
xLksMqCG9sw24sA9Mt+vr2RC/Jd5/gyxZ+acpud6JsKp7sfrPlK4JFcd4iPM
xIztRQ0p4pPpz3ruSzIRWj1eqklssttRPmgPE2WN5vwWxFqpil5P/mSi669H
cCJWkF7a+OwgE+f/DNK6Trw9pUkk5jATXF37hXyJ+XfFXo63YiIo5mFdCPGy
pEu0RHsmVmx2tHpOPL1DnSftIhO0nfm0OGKNPu2qAHcmeG36rBKJ/WL075y9
y8RYmphzCnH9sUMqusFMzGXEL31LvJHffGJ7JBOHegM2JBPbNlglcr5m4mfG
ksTXxAkBJ092pzNxyUO+IIZ4/OCZTSUF5P0eqxqHEitzXmh4XsnENRVtB3/i
28XO990bmJBIuLh4g/jTdTccbWeidHWXyDli7r23ZvcOMOEVnPPpv/mwHPfO
WDfJRK7xumkQxybfd5qYY4Lffn2qJPGwQ5BI3fJWiPa3jq4hlhd9ykzhbSX9
1e38CbIe7qyIR/5Crch22cbbSFwW/kLPcQdxPGsqjZjryOvFA3tascqvyukB
ceTnjMuLuq1YQ3u2sI+4726uZKcpuW/0VnQtsRSKugttWpH07yFmF9lfhbmf
Dru5tGIx4DnHTeIlV2r/MPck4zvPXTtIbCDTTNvj34opbQHvtcSs+E65sZhW
KJQcPRVO9vfCoykeh+pWcE8ts39IzoeO4VyVVgsZL3Q7VZs4cAWHl0g3Gf9D
N2yWnDdhz9WT7VOtaAkY17cm1jgv1mgq2obymy4WS8l59ZPY6S8n3QaFaqO8
RHKe63t2a65VbkOhYFrpX8S2lqqZnw3b4Ca6qsaP5MEdHZMQXG9DSJPxUD/J
j8+LFvrCPm3QvuAW60bMW3ScYz6wDbZ221euII7d4+ScF9+GPsdfo8L/5dHW
2ya769vAETkpqEDyasmvt7xCEu3ICdvTO0ryUKhO+wfk2mEp2dJuT6wY10Z3
UG1HoYhz53/5eeavP6LSjYk5X3CUZJH/jzwtoe3WDv65qa8XMyg8UhNUO1fV
jidaVRYuKRSSuDO3BDe1Q3n2+76a//K6T3cxm9WOPLs5eVHifwJcKxcm2vGb
9uD0J5L3R1kNh0IEWKgxrOmef01hyy0/+/fnWPD4bNS3mtQLJRNh3Y6rLKg/
Fzh38AWFQ+I5Ozlvs8BqEOT1jCHzU9s7ZvCEhdIVXh8Go8h+2KLu3lXIws1I
gY+vSL1KLvkRuHxNB5a/LBmqfEz2+6Jdnll6B0S4rQ8k+ZB6b1zmczC/A425
GXtSvSnYR4kcVinvwFEtHad0L5KPKl1Dmxkd4NZ4mJJ2m8LI5eOCff92wMZN
LP6ZB8mbHotbzsadcHmY0SpI6jdnuYF20Ggn9PJszrJOUhDgTeG+M9OJheAt
tsm2FGRtV7KcObrw2N4h7doJCtZzVVfN+bug+KnIeuVxivTBB98I7e/C7YSK
xS1HKTi+AlfKwy5sku6ipg0p1N5TrP8k1Y3cXTKLV5RJ/eb5suSxUjcYkVuz
xhTJ/EeeUjmu2Q0ZkTBfp70U7qYHx05YdKPUIS7CgvQzaq3DLgLe3QibFrsh
JEWel47ZdJ7ZDfa+4qxDwqSfGvHJXKHdgxWHPawtSb8lEkL9Sh7vweQg4zcf
6d9KT91Jzv7Rg7tyS1vUP7Jhu3e9VdFP8h0Z6y3lVMFGNEMtv3ZJL1qL1E7k
0tgQEA5wm9jYi5YHswMg/SFfys4fiujF3LFHg2uT2VheeWaU9qgXX0ruJ4Q8
YIOa7e6iy/fBZnTISV+X9K/sohru4G8waK8puB83Am7hxIn+/n4MKlcc5B0e
RuC5XMdY8UEUixm4a0oOY0bzbf/ZO0Mo4firsFxrCK4KlTkbK4bR3Cmx2tNq
EN3plQ+btrHxZM9BCynDAcyfb4naRdYxLK46rEOuH9Jaf/x2LBpFdlNY1DGB
b9CL3+aUtWkcFhf/jHRt68V14ZNivTYTsNtXc+RWXA9kRi1WM40ncb5/5553
H7uwnmeSq3JuEh+lPwsyZ1hYRovK2B79HfUyL9Uk0YYLikVtKw3/Qf5jD9aG
vQy8/et0bOnMP7CTcb3QIvQV09Rm3sHwH5hZ5SzVv70RuWZ6S0N1puCSlZts
kVyNO/q+L3MGp1AudCI91LQC2zoNWl/5TqPjQa2xwVAB1FTuhQoqzMBOxSBH
3C8RNlsbfnF+nYGXAUd22aubtOmaoD5n71nE8l+50p6cSYtYZut6RPwnnIeC
h44NlNLWd+XGL6n8CX+RHUncwZ9oyz29zVWv/MI9b2HLQad6GkeybUYf3xyK
bdrVb40301yeZwTxlc/hkHtHWdAqJq1E2p9r3aV58Obu6uoTZ9HWGbjI+HAv
gM2tEdT9RzeN65zN32NKC+D4/6+H9j+0isBn
       "]]},
     Annotation[#, "Charting`Private`Tag$11994#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 1.9999999591836735`}, {-0.5, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.774076022049615*^9, {3.774076079223596*^9, 3.7740760903044147`*^9}, 
   3.774283954477076*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"fff314a1-ca47-4110-8dee-90b25c887088"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF2d", "[", "t", "]"}], ",", " ", 
     RowBox[{"1", "-", " ", 
      RowBox[{"t", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "t"}], "]"}]}]}], ",", 
     RowBox[{"muM2d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM2d", "[", "t", "]"}], "+", 
      RowBox[{"1", "/", "2"}]}]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "20"}], ",", " ", "1.1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7740761563003483`*^9, 3.774076168421513*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"3ef3a4f3-9c45-4906-9635-85fac3baf016"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJw11Xs41IkeBvDBbjUpRNuh5JIThXWI07ai93cayjrb3W3VZpuGUVpySRK1
FdFxOVGL9qTooJVL2dCpyM81l9wGuYsGhxkzv2EGjXHZsec53+d5n/f5/Pv+
89Vn+h31VKTRaN7yLHfqFeYKC9a/9tD+OBFSyTjdz/Xu4f8+Z3vhx1ndbMgu
zSwtLVF43j6YIWHkwms45Q/P+XzbN8l+ipiFvQvLTlPouzVrXwDnB6VTy7Zr
TNg60/kbZIcZTcseS9lfLjlTiPKbdV7LjmUtnBDLinDeddhnUW5z8+efJuNe
4IKx5Oi83G0y77si3Zdwvq9h90nu4Lc65lTBK0i3MeiTcm+8094gYJQg46dK
hRG535z8B3uioxTJSqUbOXIzjQklPrsMuvlXG4vkVpSFNkvCSCwuzW+Jk7t9
0HmzxL4c+w3zXjvJnVVj7iNWqcDayc6eVXKH5Cq/nOqsgFn5l0GZixQcE0dX
TKVVQlKXb20ot3ZIudPkmSpgSfHZzQUKwu/vPxLtqMZ4/W3LinkKJOOiiJJV
g2PaqNYuo5C4/egeqqoGkcPesS/mKLBUv4wVxr1Fjr++iC2lsHN6ZY/ApRa5
Dlo/D85SWNn70UigW4eAX59NaM9Q6CJLL0yM1SE6fyxKU0LhSVZKJb+gHo0X
PTc3T1IIiw1cxw9tgJatSbwNReFgwEEPHuMdtA/vHD8xQUHPbXve+JpGMH1V
fU3HKUzZfiYb62gE92V4/OMRClUGHxzGHjTB+1AwVT9EIYn+Kum/7GZI3dhn
7vRTKLzoGBCo2YIuoXTlYheF+7yvtMRhLdjldpq+qp1C5PdbyYChFvQEHO/P
b6Lg26LOnrJvReyRBgNRLQVXBk0l4EkrphLscuoqKBDFgsJJFQ404g75fV1C
Qf1+reJkJwe3R/X82/MoyFSKs8/btKFlxiR4PpPC8LV/HxaltaH9Y9DewlQK
xewrD6gz7aic++JYUwyFhz0+9n5N7Qgcyww1u04h+sB3E8IdHbDo3GG6MYSC
u6WVtVDWgW7vq39NYFJgZOkP/fjDe6wvrTmyyZWCqZZqtKDqPWqtx8PN/k5h
cXG8YyKuE6Gfx0YLLSik1z/05+t2I+U4w6BZKoQkpcj4Q2w3ogZEcwfGhdjH
buBypN1gqBpkykfChNKs86u2HhS52mmGFQqxy/ag9a2oPmioZPzllJcQMcos
cZikD1X8Kx3hR4QY6L6Ue/5UP8Yq74hUbYSICM7Ucds9gMOGp1OTVIVoeTqv
aER9gALPTWr7TAB10E+uNRvE6ZNJOzYkC7Db8K51FGsQ1/Tpv3mHCxAvyRaH
tg7C4XjavqsOAlgldHgyc4ZQubBUcrNrAlfrTR0tPLiI3FeemTHIx68FLwxz
fuZilY11REgZH5yUvUpb33GR81r9GieVjz+z3Uo0vx5GpVbmwKbv+KhXijCj
aYyA9XrIQauehw22verNNaPIVwm08EwaR/7TW73nzHgIeBtjvKt/FDx1Xqzj
KR6sotJJl4JRGAU77tl2lwfSUytQJ3IUaTbK6VwpD7t/STbKMRlFYl2sl3s1
H7Vx18++DRpBMPefk/tPCJDCSc4PmuXioXLDjXX2Igyp0vOLywfBRuu9iQAx
XtwIkA0sckB7NPOqN0YMl2m6ypMIDlI+0+6rzxCjd+pa9Tydg9o6L53s92LE
vaTv3a3Rim1O8488rSXwqavVciGaMOZtlDugMA0PU9a9eIcanE0Mf9Nyewa0
P12I+7YmC74j27mF+VL8jdG6053XWLZaP8Lowy4a4RP9C7HvK0FZvFqDcfoP
SsQz42OXcxTnypi9TmVK71YQRN5HxZByJdK/OoLpZ7SakKR309cPrSYLzq85
pvnNWsL38SXPbIkamX7Zh2fuqkaYtM6UN0nWk9cfzh+RTKwj1FkFdx90a5K0
tkGiJFSD+A/j5oGERm3SMMgrxMn4C0JFvSgqPVWPHJ5OdlEu3UAkqwm6lN9s
IR1HzoYn+msS1xU23OjetJU8OHzbREdnI9H1XLrGI9yI5FUyf6rN20Qoc62b
LCq2k2br3m9meGwmuH7MG/12puRqTJ/qE+sQgc6XKxYfm5H7Be6zW5z1iAJx
ZAwvw5zsqmApuJvqE5+svIq/mbYgi6KrTupN6xPn3n1kdVpakpYGWYfmA7cQ
//svVuTvtZBtRA==
       "]]},
     Annotation[#, "Charting`Private`Tag$12052#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw1z3s01HkfB/AJKZcUbW1W7swwrj9TlKXP90lUlFXSlm5rkuGxXdiopDZF
KOSWlPuGaktWyS4rvqEy5E5WKJncxoyfMS4zxuWZ9pznc877vM/rn/c5H13m
6b0nZCgUSoI0XzvjMlOe8E7bQvn3xiEDx2ov1bkL//fP9kEnZ7QfgeTC9OLi
IgnP2/tyJx2egM+X1H8967+rR8AqhJj5rfNfnb2kJ3rGsQguZ76c+OptDQmG
053PYLm7Q+NXD6dufzXpVwx/pbJ9vjrGe/6wUPICwuq/+C9IbWn5XCSI/RMG
g6b3zkndJvFNHtcuBSs9zW0iqYPfalmSRWVAKfFWEEj9XVJ7Pd+hHE6l02UG
pK44eoPF63gJj050arRKzaQj2VFWJVTU2jW/kFpGEtI0GYpBhWpvHCt1e5+H
5qTjK2gtH6/dJ3X+G0t/oUoVbO/eOrVc6vNPlEonOqtAO1CYl7dAgnPioPxE
djWMLJ9Nokq9/vyrfQK/GvBK8tsZOU/C2JH038atXoOprTZRPUcCdjg3Tkpe
Q8FgUV6HhIRE471byJo3kDSPFktnSfBeaRYzFvsWzgxysvzFJFhPLfvA318L
s0OpCwMzJCzr7qfxtdkginz4h8E0Cf/gl0G8YTa0xV0L0J8k4ff81OrRojq4
3G5m/FFAQmjML6qjIfWgP/WDwI0kwTXQ9RjX4R10Naion+eRoHPAuGBEuQE0
+Wya2wgJE/ZykuGOBvBJ6//YMUBCjf6nHcOZjeC++4mtfD8JKQplKUOsJhjO
yAv82EtC8TnnwF/WNUNQ4VrxoS4S0rk26sLQZvDZZhES2k5CxBFDHPi5Gfw3
lH+wbyLhVLMaa8KxBaxsoq0z2ST86EBRCfy9BTT8wz6mVZOASvjFApVWWJOY
uX/jSxLU0mtlBJ2tQAC11LqQBIlKyaMzdm3QcCg6Jf0BCV/C7ruNZ7fB1fwd
hveySChhXc4k/dphy7ULiwfjSMj64O94urEdnpWXXNCIICFq90HemFUHZB8/
vBB4kQRPxgbbMUkHiFyd+jk+JDjk634++dN7cHIUHZ8/RIKp+soofs17iHou
sSxwI2FhYaSDF9sJl0buTDdvIiGnLitgVLsLsqfdj1vLkTCZ+oL+KaYLnBLq
j3ZNjoETq57TKu6C23G2u5YOjAFPdsajrO0DOAwpfjNXPQab7F1toyN7oOfR
84Tw0DG4qeQtDJ3sgam54qFYvzH42HXhyRmvXkDD5v7G+8cgPDhP68D3HyF4
40Od9eZj0Fw4J0MjP0HdQobcmi4+qIHC0RXmffAwTXysvYoP31OTbSO9+2Bv
msVZyyd8iJt8JAxp6YPmlgGNmkt82JDQcYL5+DN0Nx87d3k9H36tM3UmjnHA
Oqe7/qedPHhY9Cf18W0OrBgyqog040Fr6lZZw3ccoCiyy4+p8sCAdaB83eYv
cKYy4Brtn1Gokw03p6weACov98NG5iiste9Wa3ozCK6S06/t/bjwtDC6+2dz
LjixmYEFO4eBq8aNcfbiAn+nf7WL0TDQgp23GCVzYXpzkGml/DBk2ynlcMRc
MLrJi6NVD0EiO8bH8/UozC0LXaViOwTBnFuC7Yf5QBc9rcrXGYQspfprqo7j
EGizp8axnQMsaLnLCxRCeJH/6d62Xjg1YMwpfiqGK24u4qmGV6CoG077tImC
0EFDVd+rjZVxq+rpOT/Jor80b5otceFUMrv3Vcq+k0fK19c43lAfrwx4Hc48
TVNEouYfvBSvT1cWnVF2X7dzBVoY7z9LSZyrzLnoz7X8cRUShHWbsG8vwVez
5vZM8lSRTHv44J6ncpjS1ofKQ1ajg9+2XVxZtgxTz/qc30dfg/aV1erHKCrh
L1N39iu9XIsS/TbprDdQwc4D/72UGLAOJVH1imfwKuz6Jd5ES+s7FLb9ZUSB
rxrmVjOv1BZooC6/khGPydXYXPW9psMxTXTvk1c0P2cNVoQprx6hFrrle0Zv
G+NbvJ3vOaPnoYNWdppXhg6uw/9UeS/xNNVFtx/bzXyT+B1+EVVzVGdKF6ns
zoiz0V2PfZYG9TU26qEbbdwk81ZNfDzw4gvle/oo2cgxIM1HG1uwTBp3eRmg
venuvZkXdHCTmqlS0GZDZMGkr+5008V/P72aZipLRXuCIl9VqOvhi0vobu96
qajK+3JvjFAPK/aE7DhVTENLD509cJqtjwfydZOzQo3QLP2PKHG8AU42Upcr
9TBGBZQNGn5+hjj+ns9bLx06Gj3sS7nEoGLP5CONykN0ZBNifTxTTMWibXni
rAoTZHHzaHFuMw1zBraer4o0RaE8BQ2Xu0b4N3tCo8HLDG3Oj7/5PtAYF0QE
qbLMzFFBx7QaZQsdR3ocd5GdMkcKdhtuMZaa4I09OY8iGyzQkcrNlF29JjjV
OK2gwcUSHVDL4C7mm+JfcWyqS6klSldImU4NM8O7NTzy6gwIVOMnemN7wBz/
59TbQ6rRBCpTsZEP1rHAWeuZBu+mCKS8Z2VwitgCG1Q/SHE9ZIUMstULaUxL
HG9WRW+tsEJ+CrdiIl9bYh+hXAubzkD+ZsUrPQkCM4smdKJvMdCYVo2+6DaB
f77qPuecwEATdX+fLL1D4CD34k7lJAZCug1/htwlcNRUUFx8CgOlFtntmk8n
8NPNYsmdDKnvuwbL5BJY/Grxff5j6d6QTZPyMwLHtyrH1rxloE1OgiTdRgLf
u3/S9zqbgXKR6uf+JgLfP9vosKOegZJWOZvnthC4ZG38bH0jA0nWyrOpHQTu
8Vzt29bBQFeWP1g06SEwjaPu0M9hII0P1wOsuQS2LA7Ryh1goNuGBJ4ZJbBt
RLf4xBADZX0SqpTyCbyLlvHHCJeByIiqJ98LCBzor6MlEDDQ3Mi1ESQicKhd
mPiZkIH2isY3ycwSOGJFf/vZKQZK2BocVS0hcGrh/ZsiEQM9CGDTnBYJ/NsV
OVbZrPS/nXfOLVtihR/vObE1dI6BKI6X3tbKWOFivTeaWxYYKOPwxW9vyFnh
CiFVvLjIQBE3Elgu8lb4f6SEne4=
       "]]},
     Annotation[#, "Charting`Private`Tag$12052#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwdkXk01Ykbxq8lFRH5ESpbypJU6CTi+YpsSQ2FtJLcCEWTtDfRpJKxNNK0
WELRIs1NkbpfW+lmuZv7tWVf6oZruZKuyZjfe857nj+ec97zfJ5XL+CI50Fp
Go12bmb/07vnAuTWBN62Syhnv41b1WRXydN199E9CddsKfhOp2P63dsYXd0r
SJud0nMp+xGUkoueyTcmw9HURtaP+xx3yes6s3RvoWqlmkqT60uYigITpunp
OOCn/6Nq12t8Urr3c4rKQqo/PbVsMROhtsfDJnTy8OVVXOYGUTn+5ndkix0e
Y6H1om6V6Er8OOzeOkIvgNbZ84t+F1bBsTZp2TfqOczt+gzablTjc5pzmTiY
AffReaY67A+ID/xn95jkBfwHlNf2SVjgSQ7dGNYpRuabvYc8jGsR9V57taiw
BGpTd+VKTeuglcL/OOhQitndqro7DOoRYELIfKUzYX7N8ZP7STakJafqxWdI
lEzPY67pZYPfsWOJeFMZjJxb5be4cxD9WKF4lCrH8+JeGSlFLtyS++RGMypg
eOHVBkkQF4ujy7aPBFeidCPrf8OlXJAOJ4ZFkip8Xz9qcHAPD8nGnnaiynfY
Mpqy0PQhD4HzV8YPXX+PthNZjNMiHma3dBkO6nxAyXmN/ca/8tFIvjk+8PkD
GNtl578p5CM/N63iayELMj+Spx0H+PCI9NgndKjBivVMjXjfBuj6Gj/5Mq8W
Fv73th6/2oBRW1nJ54ZabFqVpvmguAGpc0tS++n1KHVgPDVVFoBxwi3ymAYb
UhUc76x1AtwRrtMcO8OGOGdbePZuAS7tWUZGdrKhr67ab39egHD2AvroJg4s
JBLalXQBfBxoSpH5HASOLPC+/EYAomiQMaLExbK2lF7XJgGMjVt2RRzjImTN
HO1PowIsuFMtPUJxsV4hts9dnoJEqSjv6AYeatdqP8jWodDz2/1twxk8KKi9
3CYyp1ArTpw4MouPGHvdwHWOFIro5+6JgvmgH2F8/92LQnrz4U1H6vjAr2Hl
/fspxG3ZOTBk3gCjJ7ELD4RSiCCdUsJvNqAi/+G4VBQFPwtL6yFJA+Iojlzt
WQoOuXqdYfsFaCx/m1MTQ8FUc37cYKUADzg6XXPiKKjFT5mFGVOguZyMvXKV
ws+fXxoGrlMQfilT8b5GoT+COhM6SkGWW1F3fMZn91QuHfBuREuCY4XoMoVX
Ps9Zh183YqfWZClr5n4mKz3iq04T1OpdPRXPURCnvTBpj2+ClvWEr9JMPif6
x27uZBOKkh+V2c3kv7W28867oGbIk77GuTN8AzITO0p4zTgwpjG0eYYf3Hnz
nxItKD5mav5fP8kZ+tWZT1pwKvF9W7gFhd5wq9/+1GpFSjAjd1KXgpWth/WV
y62Q6v04p20ehWsKgWNnxK148snFU39CgLamk4+P+n+Ct+f3jJp2AWKjcrR9
bdrge8W2J+SxAJTja2rzwzZsbSbWhyQKYKLKSYRaO/RZXT59kQKwC6akDUXt
KNNhSIdYzPwbc/cqmnUgdIncm9MqAtgsv2F9ObADviL1DO2hBiSI88ZOcTpQ
WFxfa3K/AZZJDQcDHnVCOnG0oHmKj73R+ze2dnYiVd3roriej8v7vmp7a3RB
IdgopDyTj+aVUo2ul7qQc9KAdtWej/MsU7c1+7ph+al31upIHh4Wvlz+6M9u
9JhtHvG04YGbtlFmWU03xOvCa5xkeDCg+5ZqrO/Bs1R5l6d/cMGSiTWjqfai
eu47d95fHKjbtiyof9eHUOugneLJOhAGQSKXf/qwZbFXhk5wHYIVRj6WW/RD
4KEY7ySoRWmT3KWijH78MDuw8q/8GgREmU/cPfUZJVtT+igbFp4WXGkJNROC
46Y/GSRbBeECYbybvxDJti5ONP9KGEa52RndEEL/J4tQKa1AxgaFzO5JIbbV
ag7lhJUj+UN8kF/VV/iY5q3hnWUiqvuPEefdg6hTOZBwyIqBdIWPMSqbhrG7
zDLvaHAS08729O4Le4eRRVPctb33JrM1fMVa0YlhTNpKq2gevsfU4F7rq8kf
Rigr3VeWlcNMSnN3jVMewdFpoXV0aiEzZlmd0nTLCG4zfH6xD2Ey6eDcGogc
g73LZInlvjomLetbScu1Mdw06I9a4lHPTJNd3MrKHoNQvcdLWofNrP4QpJ0n
GMNYTH1BoDKHabR9KuugtRj3/p5fKzvJZX4+ZPi4TWocjJu7PVd2CpghyWff
shO/4cQjey/bue3M8F7jbsbTScQU5ydd9/jMlNeLNWy3ohFFuaE1maJvzATl
jyaZ+2WIxNsb+DEGUmRAy3amTI0c8VZtr1VA+2wyoio24IihPHHzu1u3kUSJ
LDw6z0vDVZF4Gp21bStNlcw8fVi42keZUBx/YYppdfJi+tQv4gEVomKxc79+
txZJ43UQpadUiYTJk2FeAm1y+a9B0dtN1AhVswc78zL1yJ7xm94Kb9QJ1YI9
njVlS0m33pCzyREaxLPlH2R8dJaTHj2JK7S1tYhczXKP+xeMSGFFwIXqJ4uI
gVUeX5yqTEgzFcESh31LiKooukGV80pSHuP+rWPahIxNVxiZv4p0HvSb0N+h
S1ys6+2yWr6GbCwPlPIz1SNGvKufXY4yJ1/EVe7VHdcjypOaz8x+YUGOZ2uJ
Xy7VJ2j/H0vyX3/K9LA=
       "]]},
     Annotation[#, "Charting`Private`Tag$12052#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwdVHk01YkffdYma5YMJR7ZM1qNsnS/kzWVDFlSYxvrZAklpFIKDSlaLKVQ
KdJmML9UPFtZs+8v28Pz3peeXZamefP7nPM5n3P/+Zx77+eej5J7oI0nL4VC
Oc/t/2bGeXfB7R539/q4VKWIUAZR1UY96EANh7Lo1/Ll74P4/qE0mkq9ioht
+50tSoYgllz8Sqg7GXGescQBp2Fk0K4pClDT8OaxsrIBaxjaHI/E794PcPCA
SVnYCQY+i93/Z7UrGzsnGnakMhjwMzrtv6iYC30dd42mtyP4q33w0ZxxPmI+
fQjjVxjF8omD9GnvlzAbGIjJihiFSWOS6kJXARKu77mqpzqG8VTz8jnfQtw0
5Ktfc2oMCR7fjs+uFEHWwOTaUukY2lZ8bk0pvoHPyx/TbS2ZCP2osI3zugQC
F57wbI1nYsPN9vpJ43eo+Mpvsb6WCXctgo/0LkOaaXZAjuE4eFcimuYiafh8
IWYgNXgc7YN2m+ZMy3Frc8AVtZxxhOULv5npqkAPfeZilCALlsljgjOZlZAm
jt8/t5MF+bDyI9O+VXBW8hQKc2aBZnxmirNSjVX58OSCFywka9rs5VR9gNpS
rbBMOwse4j8lfLn2ERyDX3vfL7Kwpm9YfVKxFp8h8kpan41u2vvTE+O1cNK6
FNvvyEZeTmol+boOvOdqLyiHsmEVbOXCNm7AnXsuImb5bFAdNZ+zRBqRvq3p
iX41GzNG/CvjHY3I/rEhoY3Oxp21JXeY3k3oV3JykPmBROEZy+AQ2WZEDfls
adlI4h5bT242shnLNhp6NjokrvymSgseaoZE/NXZTJAIaJb0njFtQfq3c1FV
h0k4GFPEgvNaUBC29lmlMwmieLJwWqwVkpzamUd+JDQ1+44FhbSiSJb/ekA4
Ccl7NbzTXa24J7AvRO0KiRWx4tyThm0Y23DdtvU6iZGLD62nMtsQ8+exp2fS
SDTO3VgMFGhHBXVdwcZsEsXe5+9zfNtRqOcUWZlL4kHvCdPAT+2glvw8FPKK
RNyhoxNfdnTgln1F/PZiEkE0s5sBKR1wt2tfprwl4bRzl/6XlQ5UkT7RY6Uk
jHOUhvxdO+HnNmAzVk5CW048brKqE+3j4kH8VSTWJ6zq+Gt2gfLIsMKkmsQ/
/7A6Jq51YX5u8IdnXMwM6or0m+kCL8uNqc/FzSNVmyfsuxFgnj20WEnifw4F
dSfedkP7WqTzKHd/Vt2DIFKxB38yVXIFy0jMpRZpDST0QDTjrPYaLj8z73pG
61IPjtV2uCpy+afpDt374NULAdd8aVuuvgm+RbuStl4UhIssPubqR6uI+Aui
D/Q9Mmn/+ZOcqVyT9bwPRjW/B/7N9W80YPfF2xvoqNvl1BZ5g8RuIyv9q7F0
RM148gfGkIgX9piNnKOjM0BFM+ksif6e8PyTbp+xRTPSeiyQxOXQxwqOBv3I
r1II1rUn0WXytuvA035o+GfK61qQ0JJquYH1A5DwnN4Ssoer/+UqrzpnAIPi
TjxFctx7Y62zqM4gisWi+99z82agdks/1mMQ+WeErcUX2Uicy52NaBlEN53p
dbuFjV1JHZ7uz4bAY7Hk4H+eDecw1330oSEciNf8ZdmbjVgXUsFedhgxu6R1
h6zZ6P2Jp3v/lWG0GkpSqqlsXKjTttzuwkD6lxle2TcsPH39t9qz2wwEpzwO
y81goTV1H59qAwPLG/W8Hl5kQcXb8Z3snhE4HhBQ6TJnoY7vsg5FahQj/L/n
+DaOQ8aoT7LpwxjuJh6VOVfKBKHixbH4Ngapj9Lj5ulM+ApP11fsZKLYlu9h
0mkm3vUIXinOZKK03jE+R4v7X0J3LGZEjONL26Ol+cQxvHh5tc9Ph43CZItS
uV9GwZZkJ1i6sbl/IFmCkB2FeqjlXo1bbMSV7bDm54wg01A4i7HExpGQmLO+
d0eQXJvg5cTNWbyqrlcJh4FQxvVp8+OT0HdvkBCNHcYD4fpoCdMpsP/ym/dh
9WOv0dnjUc5TWNh6uCTvYj/oAVt0OWemQKVzAqzk+iHbGj/WkDeFAsGJU2Vm
n5GUenB/3LppqBCm027pfYhW/ST2vW8aPZJ5zwJVu+GNlrSJ4FkMHovO9mxu
BiV7oaQvfhaF/gkm047NSOWXp9c9moV2q57jSnkTamq9FHI7Z7Hhq2vmzwON
0Diymu2pP4eq1EHPBdE6jPuo5/fzzCO12ezYY6MK/JF8rrT5xgKoSXUpdt2J
CBjVZBS+WIJgiN3mjRnNZUJKl9UHdlMIv0M9qcYDk2WJ6+q1slz5CKpe+NM1
+5fL3PuOlPE1CBKl6513uw/w0YKqL7sHqgsRKV8tGRorQrTXJ0VsZfeLEi/C
sq0PUyRoWWdPsLc5rCNE54u08V2adunB6q9zExJEpbw5U5khS6O0DRLvIqSI
xKVwf9tOeZraKa+wI1rrCSmdJ0dzs6i0kfkUe+H3MoTUy99sGsqVaZajf5xL
DpIlXqnV8jkoqtKsRm5sUVDYQOTIVVg9jFKnsSvdo2qebyQmtlqxzKo1aToS
nZuMXTYR1aHeKtXm2jQhzLvRZxUIPoNhf1qeDs180mlR2Y5KXPo0Orw7Zxut
u8KDx0lbiZi2r3kVu7CdVhRX5UydVyIqknoj1+jupMnxDx8yCVEmKP+vXbR/
AaMy+mQ=
       "]]},
     Annotation[#, "Charting`Private`Tag$12052#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 19.999999591836733`}, {-20, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{{3.774076157094207*^9, 3.7740761691723824`*^9}, 
   3.774283954546681*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"52476deb-f430-4d54-9820-ffc1a45a98f5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Bosons in 2d", "Subsection",
 CellChangeTimes->{{3.774074038386326*^9, 3.774074042712158*^9}, {
  3.7740745627067947`*^9, 3.774074565065641*^9}, {3.774075895328517*^9, 
  3.774075896153144*^9}, {3.774076976929055*^9, 
  3.77407698228906*^9}},ExpressionUUID->"61f46a77-df85-48a8-ab29-\
5a65a0382c1f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muB2d", "[", "t", "]"}], ",", " ", 
     RowBox[{
      RowBox[{"-", " ", "t"}], " ", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "1"}], "/", "t"}], "]"}]}], ",", 
     RowBox[{"muM2d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM2d", "[", "t", "]"}], "-", 
      RowBox[{"1", "/", "2"}]}]}], " ", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2"}], ",", " ", "0.5"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.774076997187503*^9, 3.774077008394388*^9}, 
   3.7740771111196823`*^9, {3.774077151363662*^9, 3.774077159120182*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"e9e93a93-3b54-4d97-a68e-e9b2a56e2a14"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJxFzHc81f/bwHEkCWULKXyjUlZUSriMRKIyMkuyykjJSKQIpRAhu+xZ9nbO
+byPXfYmZO/svY5zf3/36L7+eT2ej+t6XPymT7QsqCgoKFQoKSj+UzWLqVbi
tIUcxf8OtRL300Guq/B/loyNiMnn0vnrG43deV+4zP9az3yDEMzl+Ne/xd4p
BXB5/3Uc+623H7hC/9qtMbxKt+z/reszRHXC6PNfM6zZv8bFhP21S0eoyyxv
5F9rhvRa3zz5FQz+ux/xwjdOpHPXfoUr/1M87T7byYmHsXAoUTwn1TYL/+xe
b7ABdRx4xFSc3O9LwN8v3ctFOnHA3iHopttSj1dnP9EqmBwHFuRBSeGvv/DS
9iqLfmtxEKsYSaHMMYk/3WjDuKwcD8FamcwSd1fx7EJBovph8aB69j+lJFD5
FGhgE/GwlEeLt+g+RFgc6rEVkEqA594MupT9nIQBGZLfh3cJcMk0ToJkJECo
j+D/ttidADIqbyx1H4kTSlaV63RPJwKzzMZ2J500IeW29TTeJRGOVbC5dN67
Sgj9/pH2xM9EkIouUeaxvkXwpM0/9Z4rCe6NlyTen9IjnFH55Jv3NAno9Tka
2kJNCW0+T6b7apNgyPfYy40XtgS3Kg21/bzJMGdndlHgnRNBYJ/wN1HnZKj2
6P4twOxBaFCgY9BvTIYFS3/KvJx3BCePKVtPgRRo8ysU41D6RDiOahoz3FLA
ZxRSHIYiCDWkJNGOthR4KkI5yoePJzyR8QokCaVCuHoiReqBdAKn24PFk56p
sPbVwL3EPZdALAXN2z2p4G/v5j0kVUKw2jyW90IsDXyEPDImvhAJLFK7LIlv
00CqPE79dXQNocyp16Hhdxro+WC5Rp5NBLOCko618+lwuDtAUdmmg8CwEnaB
1z8dEmtMhSb4+giF55zCVEfTwZNnhmNmdJhg/FR7w146A7hEcZIGdpMEmuxz
+tGfMkDSN1BOzm2ekD3HWFo1lQGZr7nx5XkrBH3hea55+AaXbNWmqDW2CBQ2
Da5Hwr/B6UbpV3EnKbD09Iw++flvIEG+E3HSgxrTmvKVsVb+DpVDIgsPhg5i
OycffgmJ+Q769q6lsnJMWJKF8h5+5TsI97ElKl9nw9STTtyfUMuEcLL1a7ML
XNjaCCWRMSET9oyudFsI82Jf+Yf4Lm9lAuHcQ0UFsRPYNRPM0/R2FqxyyhT6
e57CFr7GjPilZsFza1Wjyu/CWMRvV6XCvSy43olue1qfwxR4DJIG7mSDOG5W
P435AjZjKLWfNjMbrN97nGA0u4zVNdDlc1LlgNgrundTLnLY8dkXZpkiOVBV
fCPzziVF7Bn9NKuiQQ50i/SI5hQqYzVn9Ku6vHNgispLcbvmOsatVutok5MD
3gaOvbUeN7EnVhcFKfpzYETEamNnVxOr8k3uDD2QCxGwfHxZ8A7Gmcb2Vkgy
FxQ+O0Rd/6mP2dZ6XcSMc8FZALfntH4XI04sT2h9yIXgovenrwyaYGw0puGT
hbnwIssxaDPSDLMSbFV5OZwLGp+bmtMKLTHsqvwm06E82GIq63kma42xmGen
JV/KA9LbXKdXsnaYpddxA2nzPKD9VnDszQN7DJcQcLA5MA+EXkWtiM47YEwV
u6VmuDygCfAL9mtwxsyHbaw3J/KgVcHaiEztipVQ9HEHsOTDUYa87eg4d4yB
T62eXy4fiHZZQiEdHpgJlLoVWeWDpNd2bSCbF1ZofFr4xud86JI0PDv52Qej
exXeP0jMh2RrOJxk7IsZf6EJcJzNh4L7BtdlnfywPLyT7EHOAtB2NQyLGvqI
0fSPzX1RKoBRTs4sBp1PmOGO9leJJwXwm9uw/IdVCJbNXXmzNqoAUP3Bk5mF
nzFqaQmyUU0BPFCujTglE4HpG8RnLy4VQI9tt8kMZTS20KdDl8BdCO9Xzg6c
7vqCvTWmtdBWKoRHRO7vR5ziMJ5hHKK2LQQvjeRaOf4ELN/sCXdRaCEkKjDJ
TS4lYmoT/zg9JBSCqLMwZcB0Mjb0qKuZc6IQ7PRbbtXTpWGH7WR93KSKoNXW
i56v8zuWvLg4KGxSBAUEznkm72xMxiFJesC3CNhDSc9On8/F2tf0PgfmFgG1
dAFVcEUeZu1CvyjfWwQCC02KW3YFGOUOprZMVQx2j/WrBa4UYRHuz5ITzxYD
b2X70tzpEqz6zS9DGvdiOOiMlHjt8djd/QGFxcnFwHnzc0p0M4Ytv5Nnsmoq
hoZqjycL34jYe7pVa+6NYqj95+sMC00FxheQWl3PWwLBOEPhB88rsWJGIz53
1RIg3u0rPkRZjd0MPuwmal8CBbHCbbpJNdjLcCfxTxUlcNuJ225epg5j5Rby
U/xTAs+TDnxYPN+AZcT0j6+wlgJTw93v6zeasO54pWhdi1KYKI/2emHXitkJ
bKwd+FgKYfVTR3e/t2HUqRm3S4tKQfHH7zrGvXZM4jszDQ9tGex/h78i3deF
/RStNmkUL4NOS6mBA1Y9mEmuC+6VQRnw7rg+7mDoxQKKBp8OZ5SBR/n3Ju6o
35jA5ZD64PYyUGd5duGlzyBWhrt28upuGXzSDBu6Uz2ETREz+1I0cPDJlVLh
6soI9lrpwUV9ZxzEcrM6pvKOYRw1bJ8OxuLAWidtns5oHFOqd7tmu4gDdVc1
vcOUU1ivhlj8MS48nMk8MdtuO409bRnZaVLAg7HpAsf49Az2tfN67rkQPKR2
G+zX557HLuiT6EdxeLC3ifDbbFrAGnpzLEPH8NBeasWeW7+IbQ0e4dm4QADZ
xGc3OfOXsSDTeuc0YwJsn/T+vF60gp0cf9Vq8I4A8ZId/Mw1q5jOzPhbfA8B
5o0kq8wObGB/bCOHH1NicDo3gV5HehN7s6Auw3sGg/BekY3FF1tYzmr+kqcb
BueiLtTn8u1i9GTPuyrHEazrESQ/01OiCCs9Y+FrCJwNz+lv9lAigQ5hE2Y7
BPdUDxqvZ1IhufRusz4Cgjh7W+uPT6hRPWumBXEcQWy8LhZ4dz8ShvL8Nhoi
NIjw+W1r0qDS9LDCYlEi3C6sPD2iS4so7ntezFAkQkWik0695UF0jc22OEaX
CH3BLN/WX9Oh9lcKpZ6viHBNNl1upYkBzWnP4m80EeHdaQHDoWUmdP5gt6zc
CBFmBo+0bSUwI1esHBNfJwJW7nUjWp8FHRAKJ7IfL4f0fsd9Cx2siH9PoWrw
cTnoqYRZXWA/gh7lCyu3eZZDwLW+0anVIyjr0ZGaqs/lIDm39I6njxNdaZ+t
TSeUQ9C+8n0+OG50Jy283uFQBZwJvnV3tvk4irn3Rt2SvwJ48gPoz03yohGW
x436FyqgtaHqzd4bPvTEXbFZ9l4FtPw4KGyQyY/ea821Hcj8d3/uUP5pCQHU
cqBHe5tYAaL63ps1vwUQB6GiY7ajAt4MHcLyAgRR4qmIrtbdCshQPatZun0S
EXYVe6PVK2FMwtjVkf4Mos4TMfpoUgm6IRTMT/vOILWHnP0ejpVwLJaTXTXn
LOpunfttEVMJZZQ47q5HImgpJWJYbLYSytNcjxT6iSNBzfmpSr8qGMmbnNYg
nEfcr1WkH8ZXQY+pOBfPvQuIKTPOj664Cq4LLhU4UVxE27TaopojVSD/cvzq
jqYUaiEWOwxcqobwA/Xs8fzSqHqeqdrzZjUw7U/uOjoojcp4rDkEzauBfefC
yzdxV1CyC0+pTWA1aMvL9CqJySJXcc+9zfFqqFkNGVmVk0dPjHtvxexUQ2V1
tgJ9ljwy95eMB+Ya4CsK2FbhVUC3psaV3srUgNamVYo6rSISiFN7zxpSAysX
RsbPrimhJkY2NlH5WtBfXZnzBlVUKfvYovVOLVgv2l1ub1dFJTY1RY42tVDM
cr0z1fo6Sqx1McCF1YLJxnbqTqwacnn9+6vqXC0UKW4mLwtpoMeZFxf/UP2A
/rlYJ852DWTaF6gQyPkDviSfD1p5dRNpSCmOdSr9APcP9/uHBm6hfxZShMyi
fsBDm44cHhNNdOQYhRtNzg9IfvQkqhNpIoYbBg3p1T+gXqXiFAW/FtpIoX+y
uPjvvfptz8JJLdRg/LTAXeUnRHtOLSy81UHPmy5DxOpPYB6oFGdm1EeHRQvH
f9LWwXCFQhz/a32UFCDuv8NTB/zRPapRi/qoVf3UL2PlOrhXmjnX0G2Aztaz
OQiG1cGRAPo4h2IjNFi7kJInVQ+L4i7EWMJ95HzKRmPsRj3EXavQivzHBDG8
m1hhN6kHjbrY9FMPTdDla7/lX/jWQ36BL334sgkKqarrhV/1EJAn4NfPYopU
ypMPN7o2wOvH56J/vzBHA3z8hXsfG2B/z20vmzpz5OgRYySe2ADzK2e6G49a
oHgISQupb4A7csecWcst0A7BQ9GQpxGKYUICz/4QZZcZOU8SGoHI7HpHfcoK
HSlgHqCkbIZOmqajkjxP0V3/HZ0xjmYY+RguJKL3FCWYj9fXCDfDeRoYyw9+
ioTZS0v99JuBdWVOw4reHik6m3xmz2mGcxfY5D33PUMXY/RSQsVagFbZlbHx
sCMy8G0Y9pFuAeOjJRM/tRzRS0eFY8+VW0CKsb3EMNwRlaufDTUwaoGFvEZK
6X+ckDppz/P4uxYwODg4si3njB4Yp9xLG2iBR31Uk0OhLshb7Whk5HQL3P6p
iLs54oJSLgZ1fFhtgeGXluu64i/Q7GHXG4/pWsGU8Pb4paYXyBlpXJa42Aq3
wocdVJjdkD/fGhs+oBUcXpY/mS5wR0UjSg3NMm0gFSaipVzmibpUPZcCVNpA
0zxUkXXGE61nYRzqWm2gxCr6RZz7DZJyu/zgx8M2uH/nHIeh2xtUwiq2Tgxu
g/qku+k2Cl6o9Co3X95UG/Dj+luS+r0RPmXRITS0HRpW/Z5K3/ZF/QyikVqx
7eAXaM8j/sEX7T6zwZgy2uHW/fpylypfJAsTtAGoHXL963T3Sb9HWHffF5+Z
dmBb2jhLIfQBIdraWmf5Dkjtic/6xuGPKqy/HDWY7QCJc1S9GZxBKH/axsZ4
vQPSwiO2oi4FoaRH0jgzik7I8mJVyNEPQj6W3YZ2bJ3QbVdqohYZhFRNmaO8
ZDphfJsuQJbnE2o28OHM8u+EKg7LZAGhYNSv+ph9n0gXXL0esMp1PxQ11l6x
oJXqglqPX7GlXqEIu0ZXeEihCzwL4lhfp4Wi2KupOpx3uoCqPMHMbTkUmcoP
h4i4d8H+w/F00r6f0ZTUHRb9xi4YnQ82bysLQ2snZRkzH3fDx6xufS+ZSCQ3
olj7waUbxhky5R9YRaK3X1RfP/LqBvNGF5JNWCTiYNNZOBHZDWYmuL0DS5Ho
IqVNc1RVNxgSGQ0M06KQS19EoO/RHmikTFu34o1Bu4GrjOY/eyBgMcRIViwW
UW19Yzoq2AtVnux7QzMJ6Gij4gqI9ULulmsT4/5EdD7+V6f55V44/lTqrBZv
IrK4fiA6S6MX0p+PvWXWSUQ/Ik0FFZ17QfKNUZ4rlogCpbmkrWp7gedymuB6
WBLiefnWrNiqD6qpzCn8dFPQRbJJkXZWPzRNUnPOMmagBu/zTTVnBoHSTO/5
+rFcxBv0Zyt9fgiuTA5PnRcvQn82Bgc6xUegXFGSTt4Dh5JmcHWHP46CB0T8
dl4gosPHUhfGxsZg570VN8/dKuRvVWgZJzABrr75JL7mWrQu/23s0etJ+HjL
RtK7tR45SlQVcFROQU57LVNAYzMazKrya+WfAcnG6w4zYm1ox7ojWsj1D0An
5drBjx3orMKBPUvcLARPL+7mD3QhlQT+h7lH5kHoyALDoPsv9PzY/X+G7y7A
aXbPpSd0/Uh49g59t8YiyDuc40yPH0CsjIu0VduL8HzgIVm1eghRo+jsEzFL
EHhq9Lul8AiyOY/7dfDGMsz0aRDrCKPo23XTOGx9GQpEcNk/tcfR2h9upomw
FcgM2n3Y0DOBCrVV9oVeXYW6zQaJiPdT6LWqT2zBxCpI8uS9Cjk1g/h/q/Uk
+qzB3H2KSfeaP0hayjuUS2IdcLf8vb4Gz6G7x5u3KNvXYTrpu/aW6gJaqwsY
eeq5ATF8t+ZHwxZRBLWxo5bAJoiXpAwnuC8h1oHCBKqqTaBocq8YMltG+909
dS7bb4ECg0kXlekKokg3zh5h2YaohWWJS9qr6FlUdgBLxTb4jOZSjd1dQ4Sz
vrTMdjtQQ01OWrFYR8xqz4TfHN4FF0Kx5aTJBuoXaWl/gd8FikO6oSuOmyjn
KwiMGZMgee4Vi5rrFrqXfZH52B4J+O2dWFvct5GHT7xnf8Ye6JEsSTTROyhz
6lj0YXUyVDslZ/ik7SLfLz4mAzfJcP/axlX5zF1krjUnmKVJhhtc74/v5O4i
Hjw+R0OPDI8Z9ALtcbvoQ6BRjb8pGa6oUD980LSLHl2MXKJ7QYaKfVPT6qu7
6B9vNtUDKWQY+3CCU1uehPYuvTzUnUYGk3qKIHZlEvo1N9qW8o0MHZv213qu
k1CQXv69a7lkwLVv2xlrkxD5jJaDD54MeXXMWY8tSai/NfDrvnYyBKflDob7
k1DJ2w2z9k4ybFzRlDP+REKhV+4LJfaQIZNGvE8gjIRuJIsWKA6Q4bJkWHNe
LAmVuTT+9Jz+93+ufUJrHgmFiVwI1Jwlg2vF8+XIYhKyH4nR4V8gg/O+EA9T
PAmdVrcdJK6SgfXEqu5qNQlRU3YkBW2Q4dYHsVhCHQkNFV6xNtkmA42kjeC7
ZhLCWyeKiZPIkDEaP327g4TCeenXyGQyvDdr+sP9i4T+C6bWbdA=
       "]]},
     Annotation[#, "Charting`Private`Tag$12110#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw9kXc41n3c/pGQuq2UEaGIJEkhwltGdoVkhGRkJsoqDdcto4GEbNl773Fd
34+999472esihVzP/TuO3/Oc/5zH63j9dR4nj9kzbUsKMjIyeXIysv/XapYL
3VWLlrJk/z+UCuyOk2yK8L987Xt4dCHb/f9j9fbBghg2C6g9MZFppJ4UqWex
S/jK5gxWkaoK8ReZs8ev+Cr4s72Hhbj6P+Zc90viTt31+cgWAnp0Q8fkHA8q
PNrD6h5UhIBAT+BtNUGeygfeUxTnH4bCUl/FPvopX3lix+ldZfQ3qFNQ3TPc
xlW694W4r3BFQIp44tDGxEqlVvCI7Z0LscATc9n4nUAAXkj9fDp7YywwH44V
qTbH4mmO2P+ct/oO7R9j5wQDcvDPjUe+GlDGgWSLwv47PwL+UflhProfBxn6
UccMBlvxGqfOd/MlxwEz/nuqV8IwXspJeePTThxEz9N+sDz1Ey/Qbke/pRQP
pLI7v58YbuNPXfwirP8tHoJE8slsw8gJFN5Fmth8PDCF2SZRD/5D2JgasueV
SIBjMcPqM6OshAnpv58++ibAe9ExMQEjXkJrOE/mxmACqL79Z8HKWoRQtq3U
8kAgEVhMX3q10EoRUu7ZLuLdE2GF87xMl7EiISQrgOZ8cyJ8MYpeZ7K9S8DR
FPJ/YEuCS3Tcyg8X9AiCykF+BY5JcCB627wjxIzQ4/1scbQxCcq173j+emlP
8KjTVDvKlQw1wSFOF3xdCLxHhDKFXZNB87Ex4TyjJ6HtFu0J/fZkuExFk5if
50tw8Vywx/GmgGKXmN5phSDCWdTQnuGRArcuTTi9mAonNPxNEu7rSQEF25sX
ePDxhGfSXoF/L6YClT55Ywp1OoHV4/HGBVwqmOZURpa9ySdUlYPWvaFUMC9a
zJ6SKCPY/OYseHklDbQoatF8TBWBSeKAKdEnDQTjORTfRTUQKlxGXrSNp4Fw
0uu0h7gOgnlRWd/O9XQg+1AmpmTXRzhB/CbG9TkdGp8/4pjnHiUUX3X5pjKb
DhfZLzAvzU4TTBx1dp2kMsBYOkTCwOEngSr3qn5UUAZw3hO8IeuxRshdpS+v
W8gAwZ7ZsuoCIkFfaI1tDTJBP55xgVLzD4HMru0VS1gmUD/Wext3gQxLT88Y
lVvLBAGdb98ueFJi2gt+0rZKWYDLPbv6eOoYtn/BKiY4Ogs2wrJLZGQZsCRL
pUM8MQukA4a/K6kyYxpJ5x/Nq2VDV1DyK3MxNmxnhryKPiEb2s7gOiyFuLBY
niluyT/Z0Fq6c/PWlfPYbVMMZ3YvB1xZqzM/4/ix9djomU+pOWBrTNSszRLC
wsdfKRQf5kAIK40yzvYqdovDIGlCNxeGknPV0hjFsCVDiaM02bmgNblIR28u
ibW00RayUuRB83yfzYK7LHZ25aV59uU8iPFpCde9IY89P754Ut4gD9DOBmNe
sRLWIKhfN/A+D2yRJvtegyrGrtbobJeXBy9WyhIaPe9gz2zE+cjG8kAznKl7
/0ALq/NL7g+hzgc+dtulTT5djDWN2efitXzwmT/UVm3Wx+wbvcQxk3y4Ks8S
6/LLCKua35rX/pgPl9W+/5SaNMWYqczCfhbnwyWfVMnfEeaYDV+38uvpfNC5
6GyUVvwEwxTlfjP8UwDhfoJyz2VsMSaL3LTkGwVA67Sb9UbGAXviddZAyqIA
Su+oReIeO2GVCf7HOgMLgFPXQkV47QXGUHNQbl5ZABZrX4o+trliFtN2tr/n
C8Bdal76kPIVVkY2yu7PVAjvX/t8jIx7g53gVmvlkS2EkSA+2a99npgplHuU
2BTCSsRSVACzF1ZsIiCkHloI+3TZOT9CvTHat2Fjk1WFQD547XKCiR9mEkPl
77xSCB+yp5alXD5hBXgXmWOsRVDiLPo9bCoAoxqbW41RKIKLhyu9tPeDMMN9
nVjRZ0VweVnoRYNNMJbLXnunMbIIDOuY1DKKQzFKKVHSw4Yi8KRgY+CVDsf0
DeJzNzaLIOCRM9U8eRS2PnqfNoG9GPgzdcPPD8RgPiY0ljoKxWB8cfo1s0sc
xjFdiSjti+G5cMqmFE8CVmj+jL0kpBh+0T9MmNlMxNTmz7lYEYphWjbDw3cx
GZuyHuhknS8GBjvvkjraNIzOQcbbQ6IE3OiwvNP9WVjyxsakkGkJ3CQX7D/6
PheTfpEkNeFXAnK/h6d5rudjvTt6oYH5JcAYmXLrY00BZut+fENupARQ3VXu
DYcijHwfU9uiKIU+Wk0a9pslWPib58mJl0phok7HYFqgDKv/d9iQ6k0p6C0+
P07nhMeMjvoXlyaXQmkXS4hvJ4Zt+cox2HSUQtdMVs1sZhX2gXbbln23FPx7
PI2OUtVg3P6p9a1cZeCce9VNy60WK6V/yP1GpQycLFc/75PVY3e+0nkIO5UB
ybZ56FZSA/Y6zEUkqKYM+D004nqkW7CT7Bc/yS+Xwd3FF9Fd19uwjOixH8ST
5dAR+pKpR70DG4xXiHpgWQ6zqpmhjx26MQfe3R3qgHKg9KPqmsrqwShTM+6V
l5SDmItt0cbfXkw0i5GKg6YC1p4uszKNDmDNwvWm7SIVEGK+bTxiPYSZ5rtX
vjWoADG7rOW4EyOYf8mk43RGBbjFMbIMR4xjvJLBrV97K8Cs1+qcqPckVlF5
+4LiQQXY1ZGJCNVPYQtV2aMpmpXw0pcqmZ44g71TeCyu71oJ7ZO+7vZcc9jp
BuagY98roS8yfLbJ8Aem0Opx236jEu4YVg1Xki1gI5pX4jnZ8BAQ6DLvZr+I
OXbN7HfcwsNNjriAt4tLWGy/av7VYDyY1p65PMy2honp/z0+W4kHclPuIruO
daxtJO9JyBweUi607pm1bmB/Jlk4dsUIcO9Pxqeygi3si1mra5oJAbwWXMo+
lxCxCz/edhv4EkAwiF0yun4bu7/0wwc/RAA+XFZcP9UutmwfMf2UHANxxT3/
Usnf2L/rGtJcghhc5hsdVHz5B8vbLtzEeWBQEB9zaYbrADtOwhkpn0Vw95JM
H4mWHIXb6JkI3UagRlSx1B0iR7x9QqaMDgiqnXeqFbMpkGz6oPkoAcFZAe/V
SgdK1Hoy27LqBwLb4udTGQ+PIiGoLuyhqoIW5cpZci0qVJ7+rbhUuAoGaDh0
Cbo0iOwRTjxDvgpeBewt+VseQ7eZ7UujH1RBF4l8PPYtLep9e6sc97YKXAhl
/x19Aq3qrODVO6qgVU9/sWOTAV0/NigjO1MFFEsn2XvjGdErrBoT+VUF16ui
Roz1mBD1xbCqU2erQXWky+Vd70nEc3irbvJpNbyK4LXQOMmCrAuFlHpw1fCR
ovDN2BYLyrFmaagLrQZ87wm/pSFWdLN3pTGdUA1T9tWZZOXsSDctrPXFPzVA
H5fEl9h2FkUb/6vxhKcGjjzXZ82d5UIzTE/b9cVqYLdN2YsLx42evZHvlDGu
AZu+zwM3MnnQB+3VHursGrAbeHDS4Qov6qIe0tmrqgGX3CDNqRFedJpQ07fS
VwM0fFmJMR/5UCJ/+ED3QQ3cTdyvhN0LiHAgPxKlUQtthb+lGagFEWXB5YcB
prVgFWZq2zwgiNSsWMc8nWthL24p9WHmJTTYvTpuGV0L/iWP3XTML6PNlPDp
Kyu1IHBYwX3bTwTxaa0t1H6qg0wHo12msuuI/Z2ylFV8HYhQSgmH6okhhuy4
T7SldcBWWsD/fU8M7dHoCGvN1EFEhNX0S3UJ1FVV+mLiRj1cD2d3CWOTQvVr
DPW4O/VA37OemTQghSo4bE/zWdTDfpr1UHjYTZTszlFuF1gPlROymCWfDHol
gjv8/aMeqBdHUtZvyKFnJiN3o/frwdBKabIsVQ5ZfL4WD4wNgCPLFUlmvYXu
LvxQ8JFuALGbMHJIJo9449Q+nAxuAA6NNRqjFQXUQc/MLCzXCHa57LZzoiqo
VuapZbduI2w4/a5PaFBBZXYNJc52jTDI6M86Y6SKEhvdDSq/NUL9oEPG3hc1
5P5uPFZltRFSCiQHrrFqoqfZ4hvLFE1AoyOgF1mlicxGA28FsjbBTNBfx1y7
O0hTQn6uX6EJAu9zLu4330Xn1lMumkc2gfpQMOO4jhZi4STzoMprAipBpRnW
Qi10Qt2gLb2+CXxuBonVnNRGuynHn21sNAEfzxF162Ft1GbiWPRGuRl6iXPj
mq73kVuHJIRvN8PacNNq9289RCdc/KOZpgUsLK7pnrfWR0n+Ip/3OVpAcq6z
cHBIH3Vr8A+bKLVAV6mHvxNmgC61Mr/g+9YCqQ2p0QmRD9Fk43pKgUQriFb9
9SgLf4Rc+e0059RbobV2mz6U3hSd8J0nnjJthS/LxZcCdUyR5O1xuZd+rWBS
6kjROm6KgutaRmC4Fe4ePOH32H+MlKuT6dpftYGQNZ+in5EFmuDmKT4MaIOA
5kZ9hSwL5OwZ/VAksQ2Se7YYOw4sUDwEpwW3toFZQV6vbpwl2id4yhtytEM+
Q9iy0uYTlFvx0PUnoR36u8lZTCptEEsR4wQ5eSd09QzGtuw8Q0af9+/Pne4E
nm5BJwoxR5Rg8aO1QagTmBZ3C1OfOSKhU+Xln/Q7ISChVenzvCOSdzUNPZXX
CWSTAqSmESckHq2XEnKlC8zeivtYj79ABn5t095SXTCGXzWV4HZGr51vcbop
dYE1PtQvxNwZVWtcCjF42AW2b8f49pedkcbfQ9xZ3y7oomEQ9Triih6bpBin
TXSBIrseZ5OmO3qvdiYiYrEL2tnb2xMj3FGK+Je+j9tdoH51Yptp3h2t0L1S
f0rbDfzV0p1Zni+RK9KUFBXvhiamxcgB/Cv0mXuHGe/fDQLf23Jktd6gkhmF
tk7pHuiJZOA65opDAyq4TX/lHuCeHvwQmIRDv3Kw0xraPeBxbi3FtBeHJDwk
HzdZ9UDUz593Zq/+i8pOXvlV9bUHOOoV4u23/kXliuzcBQs9EKa06ByHe4/w
KRsvQkJ6QUbKweHIsC8aOyEcof29F7BzNLZHGP3QwXM7jCGjF/7KHj13T9UP
ycA8jT/qheNUV7c6K/wQNjga473UC66iplds4z8gRNPY6CrXB8HTRHLGN59Q
jW3MGYOVPviyl8Oh7xCIChft7Ex+9cFyGP3218xAlGQtVWlO1g+Rfmq3GBcD
kfeTQUMH5n4Y6mvjsRf9glTMGCO9pPtBty+dsin3C+o08GbN+dwP1LmDvr15
QWhM5empI5cHQH5Rd1i8LRjtXJChz346CLjrsTaDVuFIdka+8aP7IPxsOQwV
+BqOfGJU3ll7DYK0ddRSHD4cnWa+v34+YhD4bd78pmKKQOLkdp2RdYOwclbj
dBoWgdxHwwP9zgxBd97mN0muKHQQuE1v0TwE/Qr988/+xiCKP5kMZ/hGoByv
W6tzOgGdaZcnwpURMPsrcTVAOAFdjx/ut5AcAXN3+5Wh2wnIUpU6KkdzBJI4
S6S/uyWgpggzPnnXEbD0NZleG05AgVJsUjaNI8AhEn8yLD4Rcbz2MS+1GYXB
1XjhTelkJE4yLdHJGQO5ySEJYkIaant/vaNBcBIIc078Pw5yEdeX5T/pa1Pg
Sd+zbeZWhJZ3Jyf6RWYgapG8nYq+HCUtVbbQBcxCqWrotoczhug4U9fn5uYg
pLp3oIuxBn22KX4SxzsPx/P8viRO1aFfcplz1u9+wqmNRDFD5ibkLFpXdLp2
Ac7EMKj2X2tFkzl1n7p5lsD4exWPZlkH2rfti7r4ahm0HStm/vB1o0u3qA+f
VK5A20xv5f54D1JO4LHKZ1mDhJUJzvXGPuTG+ejctNE6eNw2uuMVPYCEVnSP
D2puAHcQv8E7pyF0kn6Dpm5vA3Q/rjpfcx9BlCgq93z0JqT0tcmOW4whu+uV
w8fUtyDOhcX0jdcEylQ1i8N+bcF7Lqf+i/em0M4yO8P8NyIUzB34o7vTqFhH
+UiI4jbsMeSLa1vPoHcq3t+L5rfhXHMQiDnNIp5xtaFE7x2ou2/Y98ptDklJ
vA9hE/0Fb2N5OVu//UBGZzv/kPf+gptcVJ/lkufRTov/jCNuF2TLkwem236i
cEoTZ23e30CtQv6YeXYBnZwoTqCo+w3Bw23KJTuL6Ogb3H1Jpz8AwekVYTzL
iCzdJHeGaQ8Iv/aLpG6uoOeRuf5MNXugdPRnjpTDKiJc8qNhdNiHjbY+c4OY
NcSo9lzoX7oDuHA7b8u/fB2NXe7qfYk/AHfbJrNItw2UFwu8cyZ/ATdzjryT
ZhMZ54ozch7+Bf7eURIWtok8veNxYxmHMEBIa3h+bQtlL3BG0WmQ4Eyc7lH1
+i3kF+NtOnGHBMmowG6wcQtZaK/y5WiRoOyByJh5yxbiwOPzNPVIED3pNfq6
cwt9DHzY8NmMBJHCmjq5w1vIWjxik/YlCU54OvGdXttC594zq1CnkOCVqY3i
8mkiOrzx+p/BNBIwC3guubMR0fDqbE9KJgl+qThGUnEQ0Re9QuPb+STgn+hl
OcdDRCRB7RfeeBKsO9j5GVwiorHuwNgjvSR4emRXtgWIqMxn17y3nwSrTN9x
+vJEFHLz0cXEof/87N/2eUUiUk8WLpKfIIGWxKDXETUiqnBvb8YtkmB4DG8u
c5+Ivl0WC9RaIQH3uUli6wMicpqJvs+zTgJD1lR/QwMiEtCwn6zaJoFVFNeE
mwkRUZL3JX3ZJUHCcmsI1WMimiq+aWu69x+/OKUbak5EeNvEKyJ/SRB/eu8s
7xMiCuM6vkMi/be/zG2rwJqI/geupHmS
       "]]},
     Annotation[#, "Charting`Private`Tag$12110#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwV1nk0VW8XB3BK0mSuKGMhZcxYlC8iJZQ5KSlUKITQIEkkIWUolSgilCFj
ho4kU+br3mMemxSR8Udx3/P+dddnrXPXfc5+vnvfLX7a3cxpGQsLiywrC8v/
Pw2dfrRWjDhpsZeJ/bE0TtNi27fJo19QD5cqzzxLjvWEcuKjp3mCFhgUd9qX
Tt7AFyGJQF8pO4yaF3HvKbuNQ43k2wRBRzxSjvIKVY6ERLjwS6aoM/ib1kfV
yT7AP0OHh6ek3PAwdf8pN9FYWDvOlT8Q9MY2yYLPrUWPUbVvU9HHpz64U+sp
a+WYAMWte3OmRS/jL/tLs6mlRHAM3XxhJXUdJ1JPdKbffIFehdv7IgRvQVkk
+NvWPWmISRSokLQNxlmO7e6rTryCIVfGnvdPQ6DsfO2e8uV0FP5uUB0XvYNT
5hHztimZiHzDK20qFYnUCVey7XM2ktYfDgkTjEHj5LaRyxV5uNr4sMqqJAaP
FZ0uZKrmwyp4YNlW21jciRxe8zI9H2tnLgaUPo1DAm/eJ/7IAvi1x/iNisZj
wGzHqdqDRTCN7nIxkXqGsk3dTy0flCCQI2/bHcEUqFZPvmjVq8AOg/uhbz1S
MGJOdjleqkBbsPtId00KxnqtpJ68rIDEctlMeZ+X0D1QvmyO7QOqF1Pk29tS
MRf+42o08QFrp+JURcPTcSiSqL0i+RGPeq/sK1jKgmXiJuau0k/QEbJJ6bPM
xv0PEw/PD33Cz2PqKzjeZMOAPhrtsKoaIqOXHd7I5WAXZo2eWVXD3VlNkqUn
B+fVt0of/V0NXsfsVy93vUXWYo27HV8tjto8z574kw/9Ir8CZfV6jHdbrH6x
qQBirIVchZb1CLHjcDLfV4CqB9fkebzrkefgvqkwpgAXyd4vZjn14HTbG3xV
vRBaAh5Sa7d9xqebncfY/YswfcdP6cG6Bii95mEX4iiBObubSGJFI+rkP9k3
KpbgVoL41+KuRtjn+pVetymBhdZfzrzpRkQU9nsMZpRAqZdmclC6CT8q3nSn
GpeCNftz7rLIJjyjH8zdGV0G+YbM1hbzZqxhBh43ECHwPLoolunYgkfO1nay
+wm4zb9OYvNogUS7rD2PG4FYtbjJf1daoJVOOnSXEyj0ys+siWrBu/S4giL5
Cjg7nZGrKW3BmPlo2aGmClhwjFRe5WqF5auHn73WVaJlXvCFSFYrnp64aXRG
vBLL+s3XpBe1Yoj3QuNR1Ur0b/C4Kv2hFe7+us17T1QidMgwib29FXfMxtpW
vqmESRCxX2e+FeX/dLueGH0E+0Qee4lOGyRNf//4eLcK8nlpj9g+t2FTgIHG
2edViFton5ujtYH7TdLd1UVVuKy3Yam/pw0LHObypkNVsMqSVIj83YaWiiKv
vl2fsIrfxtmRh4YrioFL/339hKMjsmLLLGlo4uLnl9eugV3SKQXjdho+7r3g
1GpZg54d33N+dtNQ7Fpd6O1ag8ceqjuuD9OQXONnUxpXg1wv+e23J2nwC+h9
dmCsBpc+Tlhv4W7HlvHU7Q6Pa5F4QkQr+GA7fJt249F0HRw3rFHdVdAOTvmC
r3Uc9UgytP+tXtqOlAjF8L9C9RBIf9+m8KEdrUbbOu306yERVKPC0dgOmc/8
XpJx9VjMtl5x/Es7+mvGU9+qf4a5q91MDA8dBh9ecjZeaYBOsNBurzN09ImJ
FyxFNmDRsN4pyJUO7xtPbRWTG/D8SrFbuAcdzxH9KvpzA/jdPbffuULH3/Ib
useEGkFUxzfKRdKRXWLr8728ETwvZPil8+nYmM/Tx8rajMshyvasf+k4Hv7X
4suGZsx+iFWKYtLxwvHr52rZZpgXbzbdyMaA7Pp37+4ebca7XbKhnOsY0PWx
j12f0wzb4lGv5yIMqD21To1RaAG3jDnjhDYDNqENg8EaLTg+nznspcfANW8d
YV/9Fpha6kTdPMDAByOZGBvbFhz5ONV15wgDRotLgSK3WzDCWkVo2zNwyi71
xKu+FgjcMP9nfp2BW4ab4+NHWpD2IU13NpCBVLWo9rDpFiRMP/K+H8zAKOeV
QxdWt8Jq5MGbt+EM+BDGu5XUWiGv4jCZ9JiBcLEZ/rKIVlwVePtKsYCBwqF9
Dc172vDn+3yexlcGGAcC/0QYtMF1x87fM98ZmM16v8HIrA02uds7Mn4yoH51
96nas20Im5KuZ51goJhPYbbiQRveKf8X7rjAwDu9TWJvf7RhTqkun4WTRFeG
tb7HVBvUllY9O8pNYoE71kV+qQ18Noc9MnhJaPRyFWTw0dC4IrNXcyOJkksr
DJO1aPD/IaG5QYxEWeqEV0wMDexy2ROZiiR61srHmyXScCdwDzNZicQ/T9f3
3Bk0TF2Tko1TIbEX3zgiCBpe8n4fO7eLxHuyOyH4Jw2bPdVcakGC4Kip8dFu
xyf/kuWexiQG3NjGVA61g2Yj7rnuMAkWug7vlGU72M0LFJOPkNB+Xnbc3bUd
JsVOGeXmJCp2v/1zNq4dVlUYzrIhUemSsNlmtB2zUV5/bzmSyBtxdbWbbUeu
oa9NrhOJlHMapQ4sdKxulxnrOEMi+Ax5zI2fDraMuveCziQOnOZ5HLSHDhfv
w4anL5DYPdg/ErqfjrsS9rHn3EjssM/aHXmEjhg7eWkXdxJr7Q51PnKkoyJ0
UO7kRRLNNsECWeF00Bx05rgvUefrMD+XF0dHT+Ov8j+Uc6y3FBcn0XHBvau3
0YfEA0vC+iOV+5XbxJX8/EhYmc7HdfTQMcmqcC72KgmDlppvvd/oONwzrGJ6
jcSuw3FqwxN0bD487MrhT0LQWJkxRvXB3gNi4s7Xqfs4cGH9cjkGaGplQ1M3
SDTWaDpxqDMgyLaoeTeQqv/+1QXrdBiY+snHLXKTRKJemoWAJQPbXb8pqgWR
iPp4KUX4JAP1qVmBpZRv6OpNb3Gmcqt/xnLPLRKntQej5fwZOM+VHqEYTMKc
yB5Wus2AnLfSbDJlPa3ryrvuM/AyL22EN4SE5J7NNN2XDIi917o8THlD6ciW
A9kMSKUeEdS/TYJdo9jT+B0DMWnyRi8o/1C35D3ayECJqJDn4VASnYVbT58g
GTAfXOecSLledTL39CD1vFXUwk/KJfkVrOd+MeDgFCWtdIdEpvI90wsz1O/r
zU97U3769sRzTyYDXtfzT+VRDt8p+8d3FVXXyXSPMcr+OQva/nwk5Ehi69Yw
Em4KdVE3hUn8Ku+6ZkH5ZNbDgdvbSGyL7vUPpHxE7oxixE4Sgc/TpTMo67xW
ufFAk0R5tEhAE2UlmeUtD/VJ0H02Bf2mvDWjVTSByjF32WW11XdJ8G9Pcn9B
5XST5sYn4pTZXrkRaQ4k1qg0vFWhPCO1l+sNlbvrph4B+yhrDenWhFG5EC2u
yjOhHJJwIOAcdS9dtvoDFpSbjpqo748kMXVSf6UV5Q38FuNb40kkVK6XMaNs
12yTxppC4s/JFSYHKaeGnTzZn0XlZNreU5Pyb32njeXvSPBs8XosTVmN1bX5
cRWJn263arkpXy/zuO3XTMLQqHtpinqfal8fWHWRuLqxDG2UOZWvzSl/JcEU
co7IpGz9OzCbZ4KEy5MtPwMoJ6XfPju+QNWvWuroYco/HCNEG1d0QKc2t1OQ
sqJYNJnB3QGpmkWPfuo+/Lof3Qvd3AGnr7piSZQr4p4ZnJHqgKN+0YgtZQ6z
FOa+nR3gX3uvmZdyfG22O3N/BwSvK8xfpPIwFFSwrde0A3yPrHQ2Ud6B0v6S
4x0w/ZuQVU7lq6Sg+rCPZweW1quyzlJ5XHaxYaWFfwcESmg/wygbyrYRO0M7
MBKsuGwz5e4XvQpjCdR5rryplKXy/e/eNJdjXQeEf6yq3kDdg96hhRqd9g5s
VPt3NJjqp3B2lhui/dT3v0fsGKf6Tdh/zUTXdAfS1vfez6f6UctlS4upWCeC
575ksFP9GiIpHaog0wmnB/HnD1P93DQgp71OrROXlI/5R1P9bme9O6f2UCd+
afPHrKPmQYDekSj4dkI8+UlTnS+JWqblAeGbnQhijGqPUfOEu9SW5W94J8or
9vOupZy086xH4YtOfGqc7NT0puopcv2IXFMnmDsHlR09qPefz+TeLNkFZxmH
ys6zJDY36k5BoQtZJq8Kaqj5qPK8k+64uwveGCj5//x0OrjySZYx5eV7WK9Q
ua2NPy2p69MF6emRtG47Evc0BDWca7qofSIy84sFiVecOUKRrV04/3v4Ysz/
5/XQfubb7i5c+DB9StuMxGSYd9W/8S78C+D7FE71iVV3s0mUQDeiH8YQcwdJ
CF0LcShy7sZ0VHzVRi0SqkeE9/d4deOKys62sD0kTCTypVmvd6MwUVlsQYOq
T8PgmOGDblxdxxLUqE7lQWivX19JN2aVdoYZUH2bXj4VvmJtD1ZrXW2+s5XK
O9O+0DyrB1pC+SFHVpAwMq64qV/cg0TXkw5Hl5NweCJ6WL2yB69vhjYdZ6Xm
o3rf902MHupcGyxtFxkYcbcVHFrsQdGonp4CNXeeDlhe8zDuxdcNJ3OVvzDA
WmmoGzHai8jz71oKCQYEuDM4A2Z78Z/w7jKzcgbk7VZ1e7D0YUtN7bFfJQwc
W6jxsuDvw9lw3wLeQgbylfRfbt7Th0Wj28zdrxk4kwyOjLt9kLcqI389ZKDh
lkpT9Y5+uJgfXRo+z4AG1+dl91X78Vp57+luam6/ij+lbqvdDxutHWuazzAQ
lBWZNG7ZD/863Z2Z1D6j0fHDUyCwHzt+6U+qWVDPyyRsdCH7Qbvo55CgQe1T
Izdz2HUHsObZdH4W9T8jGvVrPv33APob3yxKUvvb+1MB6W+nBsB+kv3V1TA6
7JT5bEr/GwCX9nLLphA6njI0ihuWDSLX91KJSwAdAsJhPuMbBpHGN/45gNoP
eTOkp1QwiKlckcbNZnSsqHIaJe4NIu4ql7E4Hx2/5vr76IpDeNfR3BwVTu2v
P0vrOSOHEZ0f68W1jwZO4bTxL1++oPFCyF2xllaEOxecSZL4hsv6MRM3TFow
q5355VzAd0wtkxhZvbIR3kpV+Rs+/oCB70PZaac69GdV3W0V/4n91fyW6bKf
8Nel/cn2K79gHiJl7UlUQEZn5dKZ0lHcj8jqqaoshsEL8bO5G3/DhF4YffDh
G/gKn9wyeHwcS2sMbMIUYiA7armGNJ7A8XcXxxpSogk+rgmOqoUJjB3pf5Qs
kUOwEU+ytz79gzqjoPUOy0sJV5XSzlWHJnG/Z/XB9viPRObB00nvZyehk7Zx
u3VtHTHzaxP3t7gp8P0UzVQvbiYKzA2Wx+hNw2CbpIylDI0IOBCcmP9tGqKe
ra9UrRmEeK9hR3LwDO70hp+XC+kkNNRvxQgqzYL/nY+zJlcvcVykeZ6VNotY
FsdAA/UBYqY+YsgjcA4xW+RNNNcPEY/Y7LzNJP7D754/Qpk9wwRfX8GLZVX/
Yej2qoyg5K/ECv9Ai90X53HKviZ2Pv47wZJulz3EuwA7+TERLd8RwvNxdgRv
5QK27XEb2B/8iyiXCeXgcfuL0C5+94sPxggeQ0/Zm5z/cGllYvV40DjRI9dC
u1z2D9qLz6+X0iaInGeQ+GK3iJCN1r4c5B/iRLYaj/DSIg4LVPukdEwSN4Kf
B/ZkLEG+3YW3b2qKePND+AmnERMWn97JxTKnidCEYPs+EyZYuRWZBmwzhKPZ
mGSWKRN5XQd5/nLMEEJlZTnG1kysLz0yd4p3hgi7Z1sdfpqJPrdV9UqSM8Q5
tfg/qy8zwdARCB4wnCG23OI/sDKViZCXbtvPx80QS7uurSNfMSFavYNt25MZ
onNsuC01kwnrgjaRocQZIso678T+XCaqjJv5bNJnCOYOM6/gMiaefej5e7Bs
huhpvfdsOY0JzQ4rQn1ohigOmXOg0ZkYEN4eN/tthojRPLk9uYOJ5r7w1wW/
ZohDL+XzdfuYeGw/+VBlZoYo8WusCxxhIsP/0TlVjlkiTk71nukoE745Npqz
a2eJi0NPLcTHmTgaE2BcxDNLSBud76+YZoJNeFhBY/MswcbanhI1xwTvk/Us
/0RniYECTRf7BSYqrsVxvZeYJcpckhUUF5mQ3Glvd2P7LPFQdM0Mk8mEsfSF
UV35WeJ/avt3QA==
       "]]},
     Annotation[#, "Charting`Private`Tag$12110#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwV1nk8lN0XAHAiSWVLsnsrvJKtzdZyIpVEq13J2kJJKsoboSzJ9patQolk
yfIKyXZmxi67MTMGM0hKRPYI83t+fz2f7+e593Ofe+855zlbHG+cdVnFxcWl
ys3F9f+nscv3dtKIy8FefXPxZQ4beQ9LebAlDWHOOfhmZhEbd79KSPwgaQaT
tKEig3tsHJJRCPBWsgOHIz7ycgZsPNFML0iSdAYnP6dyJ0E2KoTLvuXIXwX5
1JVLu/tYuGTsFO+g5A7xsaOSa3NZaOk8X/FU8jbk5hh+CTRjYfVhqY9ViV7g
3amTVLqdhZrbDuTPyN+D6LyuRmEuFvIPBr6xUPKDPSeo1Vl5fdinEXI4QvIR
6J3XePiPRB/GvJIgKdoGwTRLqsNupheNhbL2VyYGA9NTOLK7rReLx5v2Tsg/
hhjzFv/bT3oxMkdU+YxSJIwGiL4N4uvF15tOBYdJxoApT3HQgFAP/tMcX21R
GgPMD+kKsVNMtAjqX7XNNhbsZNZUxHUxcf3szQdliXFgve9Zi08iE+9SY+6O
yT8HI7eibxFqTDzzjOl6UikZzug2JLjadmMA/4e/H0umwXBisHp8Hx1Vjv0b
WuCRBustYp6a1tCxI+jGSE9dGgj8S722K4eOCjyq2epeb4Ftm+L3yJeOtctp
6tSOdHj0aZ2B1l90XD8dt1c+PBOYOq9fGlynYUKfz+GilVywyPf0d9rahfoy
1mks8zzQebWmsEGwC3/YaK/mz8mD87FrtU7+oaLc2D2nHLV8cO5/1J1PpeKN
q1qKXL35YOw8PtoZSkVR57yMtzoFsJ1bpv70XCdaWafk/ZosBLu0w4qXhjpw
osdM4I1UEXhwFH4rdHVgsB2/y7nDRZBcTL4yX9OBH5xuSBXHFIGR2L8RtHcd
KOh+IOgf7WIYmK4bu3etA2sCu234fD8CX1nVsNZCO+56L8Inw18KtKV6j3z5
dmxQr7Fv1iyFgztvRKSKtqP9f3fL/KyJ9/aBd9NXt2NEMdtjIKsULovEWfWM
tuF3Uk5PumkZ+CtLvVspacPkruP/7XxWDiOSKvGbLdpwHSfg/DE5hEpGNJVL
qxUTrlraqR5FUNiQXjkn34oKVFV7EXcE2tNOKT6BVjyYSXfqqUCIkYjP8GC1
4KfMuKKP6iRQ37v77c3QFvx5bqz8RAsJrCbUfPgHmtE8I/7zrQ0UsF/fVEZJ
bcLEC4Eml7ZQYEnfaiQnugkHRa83W+2lgEGH/No83ya84WvQeuACBX7pueKU
ZRM+PvuzY00OBZwX/D19NzRhxZIB86VJFczIJ0w9uf8ZFc+Mf696Ug1pz/Nb
5q42otSDY3qXU6qBKmAhLGzViMI5r58IfKwGQe9OnkNHG3GR/5z6mcFqMEst
TPmytRHbSB9vsXRqYJxuqqbd14A+mgErv7/WwGm1dPxj3oAtQmJi6ofqwBD3
p7hY1mPVgesu7eZ1YJS1M1nFqB5L3GqLb7vVQZNcbDaPbj2m1t21Lourg2SJ
1JxJqXq8+6Av2ehnHYjfkztdxq7DrRPp251e1APFsOrh7LU69G7RhYSZBtDp
HImNiq1FQfWirw38jUByhW3Rj2sxLUIz/I9MI7TlBNq89q3FdpO/u+2ONELJ
gkfchEst7vgsdksxrhH4Xp+ePaZdi+y6ifQC7c9gs/3wJlpvDR4jvxVs9mkC
v9naCMndNcj6a0vRSmQT8Lm67VlQrsHb/om2mqlNUCkQtfWbXA2mwLOMZ5+b
gLFFOuenQA3+qfA3sJFphkDPJue0L9WYV2rr9a2iGVhlGfS8+GrcXCjC4uZu
BcHpBFheW43nw/+YDYm3gth96gs2VzW+cf76uVa1FWyi6i+0z1eh6qZPn55Y
tUJk5LuJwa9VaOBlH7spvxWMo5QkKihVqJVomR6j0Qb9mdbnDB9UoXVo00CQ
XhsYbcjQkfCuwvu39WW9j7SBnbkve9G9CskmO2KsbdvA/p6E8ZhdFZosrwTI
hbSB+pK3vx9UoYNd+oUMVhu0cazWWPFU4SNj6efPR9qg4H6+z8YlCqZrRVPD
ZtqgVrxFvG+GgmOCPieuC7SDmRoz7cUwBb3QVHeXVjukxetKVzZSMPyvWbHy
iHYQaH2ZmxxLweLBw02t+ztATnN9QtheCtKMAiYjjnWASnbSNjFNCs7lVoqb
nO2Ak0nvT2WpUFD7H12H+ssdMCaR67YkT8GSjRpzpKcdEJkgNKy1joKfDKX+
KvjeAaIvrsetfCEjM8vyiMd0B8TwjFWdZJNxUTjWVX2lA5imDvLZTDLq9QkV
ZW3shEszmYah7WQsvbPaOPVgJ/BpFD/uRDKWp/+6FRPTCTNvU+QyksnYu179
+dlXnTC+FMxd8oKMS55ulcJZnSDF9+FdZxwZD8AwfwR2QjFzp4J6FBkr6T1J
QT86oVH62Y4b/mRE/ro6r0NU8OJ98lvahYz97rw/iX8P2JhUSH91ICNXl77o
tDkVZqxjkz/ZkfFQSvn5G25UcI7ak/3Iiowk3YLJy3FUMPP2131jQkaKa5K0
9RgVxFgSa+e0yPhhxM3Nbo4Kya4ipkl7yJh2Ra/MiasLxiwzFE/uImPQJbqN
u1gX/M6+FtikRkYjR5EXD/d3gepmB7d9imTUHWCPhB7tgh/F0KW+jYwq9rm6
kae7gGGQmrdjCxnX253oTnDuAv/x/Wn6smRstQ6SyA3vAhsdXxHWJuL7GOeu
fIjrAiNn5UcyYmTMt9xaUvK6C5S2nDB0FiXjU3O0rCrsgqn/Kl4KCZHR4sxC
HKO3C2SWUjS6+Ml4rK1uuG+4CxyP6cRdWENGnVNxWl9+dUGjg67yxGoySpru
pv3kpUHwDaxQ4yHuw+j6Jh41Gtg8DdGTWCFhc90+F35tGrTMrw4dWSJh5VGB
og36NJBSYbCr/pDwleE7MwlzGuRu3538bIGE0VV30mQv0uBawZul0N8k9Dcw
nNl6lQZid3abh8yT0PHQwDM1XxooD+QMJc+S8BzmfdkVQoP0zS83lsyQ0PCg
326df2lQnJCvypwmoeJ+6U6DtzQgPQzcoDtFQvGyka1GeTQo/GDXfGeShHx6
JZ6mn2jAyH9zuewXCb9rm4taNdMgnFQn7TBBwu7ibY4X6MR+DgypkcdJ2Lh3
6j/HAWL8WbaACuHSQhL3lVEa6O1l5778ScLs3VFnrs8S63ttEBcnnFhwIcWT
Q+yXJ37/8zEShu9UnfReSwdP6fdyioR98xcP+W6kQ/oZ/5JPoyR012iIDpSl
g8ojYz5Lwhdz4/tD/qZDQbch7/IPEp5Wu6QZsZMOK+Xvc7MJ67/f4/90Hx2C
GRRuJ8K7dvC0xR+hg4Xo54WthLdltcsnnaJDf8j6Z6MjJBTb/vrGG2s6ND1u
bygnzJvhju+c6PAj/vKLOMKzSgeEcq7TgfeCPPc9wgcHDerC7tKBEuWV4Eg4
OMnowZWHdDAxugMWhFusTmofjaSD1KE7k+cIi4uZTWx7TodaH2qmLWG7Vut3
3Gl0kDs063SdcHrYxYvsXDoYiR+Ufkx4/IjL5opPdKL+Sn7OJazF7db6opoO
qlvn3VmE/co9Qu620uHa5eOrJIj91Hp7gQWTDgLtIf62hAV335/f/ZUOq2rV
vmYQthwPyBP5RcxvKN3BRZzf68yQyxOLxPndKjjlQPi7c4R882oG+N1INGki
rPnXM3qWMAMKb/LK6RP3cbcnISpUmgFae30QCZPiko9dUmKAzp1/VY2I++Q/
m8Y5vJMBjG8D9kzCz+vzbnCOMqCFJ2WDDBEvgw+L/u47wwBm61nfz4RVoIxd
ep4Bdmur3zwi4qu0qPaUlycDeKmxyxuJeFx1s2mNmS8D2p5YqfwgbKzagTtD
GaA+k/yngYjfnjd9Gj+TiO9Z99YnnYj3pagZIecGBtRqjN3qIPLF8MRinT6V
AR3P1pycXSTii4/LX55NzNccytpC5Jus77pfzBkGFFCP9MYR+XjQdWvbmb+6
YU5YK2uKyNdgReVQjR3doNXTpORA5HNLv9qhDVrdIP78xOpuPjLaWerm15/o
BhU/On1oLRkfGJ6OBu9uqPxU73hNmIz1HHMj2cBuWDyr5KdI1BPhMluuP+Hd
EOzn2fNtIxlf77zsUfymG7ycpUxCNxP1SM7vtFpLN6xKPJCgLU/GVQvZwtKK
TFDP1P3HRJOM0s0G06DBhDTHvBgPoj7uSenuctZlgkQAhCUS9dPl+JqXuaaE
F0KW1+kS6z93VDTwYkL+ZtV8IwMyRulJ6l2tYxL9xGCGlgUZMwTzZSLbmaC8
TUeG/v96PXiUU9DDBCVf8f0PbMk4FXa7emmCCfxc3XeG7Yn619N6MlqiB5ht
NH/ha2SUuR/s9PFqD0iwmrzaHpJx72nZo723emB9fJLtj2AynlQoVOb264EY
UgKuCyPOp2ngp/HTHhD4yllwjibjoMyBu6zSHhB7kTTqkUTGzIrp8NXre2Hs
4VqHsRIyanHsi8/l9sKjuvgpu1kympiSAo+U9AJFWV/31AIZnV7Kn9Km9ELG
4rjj0WUyRmuzvknReqF+Taf58dUUHLlhKzm43AtPlby8UzZRMLHf/L6HaR9o
degnJWhTkJtibBAx1gdDShF2T/0pKCGcJfhgrg+EqyNCbIIoqG63tseDiwXl
N92Nt4dR0Gax7paZGAt2fROOZT6jYOGuI2+l97OA79IkV/g7Cl5KBf6sJyxI
OxdyWrmNgk2P9rTUqrBB1foUj45SFeoJfV717142ZCQE7TuuWoUZzx20bQ+x
4eTD7BGHXVX4MDfy9YQ5G/iu+yRlHiTGM757SgSw4f3229JPLYnxO5I2u9LZ
YCMjpFsTRvRTI4H5fAb98KNKPO7NXBXKR48uZI73g4FzGm8h0b9VOjzILJju
hxn96Tz+0Wq0273Ruux3Pww+WDB3mqrGRJpeSdOqAUgW3vREhbsGJWTDvCbE
B6CAseUKl3wNimYpT++BAZBKpLjU29bg6mqXMYwaACr/gEtFdw2OzrNZXZqD
EHnS3p41TPSvP8oaBSO/ADOOKjFwrwEFZd9NDA0NwSWF6e+VF5sw/GrRpdcK
wyB4hy634tiKc4eyh648+AbBK9ef+Nxvx9u7qgvFq77DecPCkdWmncjOrX7S
vuUH9CXeMc++2oV/XKkvt/uMAq38GvXoazru0F+zcqlsDBLPU+tPtnbjsTdb
Lv+3eRwsFB83i5v2orfsxa0D5yfgUJSbzZoKFqqOma+jm/6CzxFul5WS+nGj
0C/+6sVfIPdD+lYM7yDy4su8bYmT8PxqvuM1+y/otqese+2JKVD4aCB6Z3gI
s487vq6cm4K2kSONmzyHcXZUSng4bhqCFut+bBj/hkXnjvHEGM5A2rOnsVmx
I/jAKOhV4fAMCH+6Qn2xYxS39BkzUoNmodr9aLF41RjqaT+Kkdw1B2HnywqT
QsbxvFzrAnfnHBhzFZBSpX/hbGPEoEfAPBiLbH6XJDCJCbx2t88q/Abv8buR
5uOTuJFV9GZV9W+YrOLtIrdP4WrfADPdmwugmf+lcalpGrky7fIGRRdBI95L
6FXZDHq+yIsQpSyCmJy2RyplFit2hPKLuP8Bw+thH3Ua5lDE2FM1UHAJSh+e
+jJPnsdetbbOe+VLcGg5xa+s8zfmJ4PCkN0yBG+29OanL+CFPC0R2ZVlOCVR
65XGWET/oJSA3qwVUKe6irKm/2DOd9mXgiYcMKv5pBbLWcLQpCB71kkOcAtr
co7xLqPz2Z+KuWc48IF5XOQP/zLKlJfnm1pyYFPZ6XkH0WUMi7KtDXfkAMt9
beMuxWW8ovV8UuAeB2j6EkH9xsu49ZGY0Zp0DgS/dd9+LW4ZV3Tub6BncEC+
VoX375fL2P3zS0d6NgcsizrkBl8tY7TlhwtH/+NAtWnrRuvMZeSonL0VVM6B
ZHLvn+Ply9jbHpXM08mBfQwL1B5cxpLgeafOLg70y26Pmxtexph9F7enMjjQ
ygp/XzS6jCfeqhcasDjwwn4qfs/sMpbebW4IGOFAlm/Clb38KxintjfqzBgH
vPOt982tX8Gbg4lmWyY4YBXzwPSjyAoqm1xjk2Y4wCv7RUNPegV5ualp0fMc
EH25iWtJfgX7i/a52i9ygHQ/TqhSYQXLXVM1NJc5oLjT3s5/+wrGy6+b5XA4
YKp8fcxAfQX/B0AUDOk=
       "]]},
     Annotation[#, "Charting`Private`Tag$12110#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 1.9999999591836735`}, {-2, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{{3.774077135046633*^9, 3.774077159787531*^9}, 
   3.774283954718334*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"f9490ce6-60f4-4917-a0b0-7fc8323f5693"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fermions in 3d", "Subsection",
 CellChangeTimes->{{3.774074038386326*^9, 3.774074042712158*^9}, {
  3.7740745627067947`*^9, 3.774074565065641*^9}, {3.774075895328517*^9, 
  3.774075896153144*^9}, {3.774106339915992*^9, 
  3.774106340889071*^9}},ExpressionUUID->"8c0f37fc-ad16-4cc8-bbbc-\
70504b0649e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muF3d", "[", "t", "]"}], ",", " ", 
     RowBox[{"1", "-", 
      RowBox[{
       RowBox[{"Pi", "^", "2"}], " ", 
       RowBox[{
        RowBox[{"t", "^", "2"}], "/", "12"}]}]}], ",", 
     RowBox[{"muM3d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM3d", "[", "t", "]"}], "+", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"2", "/", "Pi"}], "/", "t"}], "]"}], "/", "3"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2.5"}], ",", " ", "1.5"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.774106358689063*^9, 3.774106418163732*^9}, {
  3.7741065834320507`*^9, 3.77410661450347*^9}, {3.774106664439535*^9, 
  3.774106696816964*^9}, {3.7741067564022627`*^9, 3.774106757286721*^9}, {
  3.774106923896574*^9, 3.774106946933234*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"1e4f0817-aac9-4192-8e99-c1cecd0b860e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Hk8lOsbBvCYTmk51tKhJBUnWStR/TiXEEKnbEUhSilJRHsdjeikKCQk
JMtYym7IUvPGRLLVoA1DohQzL0L29/eeP57P8/n+eV/PfT1Kh07ZHBGdM2dO
Dn3+u8X+HtCvW7oKpxMcJyiKxFxjeZ9OORNEUu8c//Omh7HxhXJ2SJ/v4TFD
u2fFWuY5FRe0GeSum6Rt2fC+IEHOHdt0cxJGaa8NVUijFI/D4KdbNUl72uJw
jJuKNzJ7a5L7aP8IauG6RfsidqB9Yxftfe6/nkXK+WOPfcLZd7S5xvIlVfFn
Ydw217uOtvYag7wRxQsQpIvLcWjHi7pmKqdcQqEN+1w+bbHuwOS9Kv+A3zUc
kky7rIvXUGV3FdYvid2RtH32uFs4RTMR0rWs9irtDq1/jcPkgkAdNKIHJBH1
8A9C+UAwTqbP9TShbSGRpf88/jpy+zXyNWgXC+s3k4ohCOwIdZyeJeHl4lLw
r9tNmDU/KftMe3Ujqbkq5Rbq7MWaXtK+nS29zlrlNso3GUrdpL1DITX1u8cd
JOqIwpP2P9Vxki/swpGwuE5xJ20dXfUwx+gIXFitOylKO2np7us35aJwQqNQ
0mOGxKWGGO7esih0Gg216NPeG9wluubAPbSm5FlK0V486htQHh+Nc4ZH9hRP
kzjfEnV+QPE+VJcdKhqcImEb2lH8lLiPzT2eCytoa5qojAa5xWGX6U7p67R7
Ckt8FVIeoOWwsp4sbeu7nzz/VkkEM/82T2WShLrlmkz5mkQo/3G56NsEnTfD
69tXj4e4quZllk77YOlsPscuCe+n+AGraS9VDdd0iH6E06NsvQXjJJhihX+G
yKWiPMCAFTNKYr1ZxI0Cn1Sk2yYf1afNCz71va0mFVRGXVznCL0/DPXHmmfT
4F3y0FmJdvVMqmYLjwVR6UCzyGF63p/RmxVDM7HV7vZFVZIEe8OZaPMvmXCy
3+7MFpJw8bH95bstCycLZfJAO1cgUcrty8KZTWJpuwUkbPpu6HvueIIlJqFc
p34SsR0XjdmzOahWmo1V+0Zi+wrHVL59LvTMbh1I/Erv636938Syc1HR6Rci
QXvlwIXD2Rp50L0/oSzoIXHquK7ynPY8bGeM77vXTULaPTcjbUsBchjTlvc7
SDg4PsodHCrCcQnna148EmSb3cJkeTbqzM+VP31L4rqL2BFbYzbMZ7KvM2gX
Hj4lXxzFxsmJjJaoJhLi3gbBl/SKcaxRwohVT+Jl4Mf9866UYNbk069r1SQ2
PpGat0KsDA23vbX/LCVRq/nStUG7DLxrC1pNnpJwzT9f/o9jGfbKfJlyLSER
Vtzp8zmrDJdjOhui2CT6iOw21q5y5CYm+P7IJ5HYujN/w90KTFomqe7KIrGI
YjqZreTgFNuH3X+fzuv4Phd1Uw4Kdg3UdsTS79Wi7irlzcH13wb3N8aQ+Cvz
/eG2ZxxgpIPMukeiNDOaXaJJgOnnyrOOICGwHaiwbCSwlWn32f4GCfuMmDq/
3yvxbTR838YzdL+dA62OKlWiNkIqa9iPRLf0yQaHzZVQ811/OP80nfcVoyYD
50rUeB+bt96HRIiNgDc/uxIbxqZm5p8g8Wza6NMDqyoMR5bJnXUloWwt7Ku6
xUWGLH+/rAUJ+QCzbR6PuJjzh9a9QHMSktlJtxaWcKGwrLVlwJTEpJitpnU3
F1bjg67lxiTeECV+/C0vYZ5hH21oQOKiNnN2vPclWrtjXv3QItEosWSJpmEN
vlh+lS+VIVFlcPLIW/samDYsCemRIvH0RHWx/4kaSHjp9P4uSSKl5rxjeXQN
Zgaz3Pcvpvsa0JFoLqiBYfF5709z6f+EZKkejnsF7dpppbOjQpxr3IrYkVpE
7jg6tKxVCHFNdm+t2GtYshbVrmkWIjVMO3RqxWs4hYlXabwV4q3Vnx9ddryG
PjdmhX6DEGp1S/yUo19jTVr7fqOXQnTWkKwCvTpcjc7MGykSwuxFmnjDxXq0
Xal0FEYKsaxIii8i0oT6xuIY5Z1COIVO2fXINkF1eInzNVMhkt1766rVm7Ai
N7udbyyE+tLS0lsOTXguzllw5y8hjM663luaR3vV8NKWTULoxu9jRWm9QaFi
U+OgghBuLiznDP4buJ2VfeY3KEBxt3F9kz4PkTmZ+XG3BXhnzhwKM+Nhe5G/
9JlbAozlPJe1suEhSfDEYNcNAfQubXV75cHD4qJ/f44xBXgqozVGRPJwcLkI
X+uMAKUm8qsK+nj4q1a+VO+AABWsQb+oqGa8Zm1gJCkLUOmZsNxxoAUBI5+f
figcwKiKgUT2yfcwyzu90/ZVP0QnHksuV/4Eu4iGbK/0H9ClXIttc9pBzrM8
tuXSd9QH6TRWr+/E8hcV/vu29kExvH8iU9gFqs76u9vzr+j/1clv1e6G8bMP
4xPbe5H6o/y1+O0v0HJQbYoN+QJxhXSyp6cHahEft0k8/4zQ4+yjSWu/4rRT
h8j+kU6MGT7uORbwDRHnJnqMyDb4b+QWyVb1YUy/YFO86Ad05nBvvVX6gQtm
ktEv7jZjyrPlgerFfigE3CwUl2uE2vb5s0fLB7Bg27sbyQ4vYZas5JG/TIix
y3d9ZmRKcE7h4OrPTnSPQnaz9DjhUB+wX/R+1yCGO8v5KiXZHBmJQTHu5CCG
mA1t8xZVcuZyHuSuiR/CVFngCF+nnnNCp/zjAsthsL51b9zDaeY83nko6fnY
MCq0Ei/JeH3kjPbLS36N/gnJMRHJuhY+h21rxogyGUGS5SLD0WPdnADz4IdF
X0ew2ZXX3WvUy1HqsPiQEjyK0sfq4+HL+zjb9IKi5DaOYdgirD3EsJ/jtLJp
QqR5DPYPP+hm6Qs5o6/Dun2Yv+B9PHLGv2qQEzvXxd9m7TgKbS86itsOc2T4
7GRR7jjOWNwwSOv6yfntCtNuq+8EWgs+DplGj3LmZLrkdktPIruXKROu84tz
Oi43TLpyEhpmLu1lU+OcZ2o3xKS8pxDW1TRGEJMcKYvT6oHi01iev/pKqdc0
p13jTfOFimkk28vGBhrNcvISsbbHZQb6A3kbXWcpjnOurpTC7Ax4P4vWabbN
Ia4GP2K2Z80itmHHbFC9CJHdp/BA3IrCMc0N79fniRI3EoJd+X9TaGWHPFpX
JEq42wiUc6wpxCxdEqfyVJRYUVGRt2sfBY+JnKVrCFHi5p0D1aGHKBQWReiu
fCNKHNO9P7TwAoXHcnnLFQZFidVBS8znsygoqcc5GGgziNktl39/n0GhsoL7
2VCHQXwUfOGxHlMw0kqPNdnCIML3FTqb5lMwSQ26Y2XIIKj1Nn7BFRTaHLY8
ctnDINrf3klkNFPwN9hqfcuHQTy9/utwcysF09SVRRH+DCLqfwdVUz5QSG8P
MIk9zyAs0zSLjPgUpJtZgrSrDKLsfEMt8zuFZadWulWFM4hojc13rAco5I9d
0KqLYhC+3fF2SiQFd+YmteZYBrHOyquTGKHwFzc/60sSg5gr0pIa/ouCQOKU
5kAqg+hi/8/TdZLCm+BLnSMZDKLCM0VLe4bCWt/mZzNPGESM4qJRiqJQreBX
Oy+fQfwf0LS3Zg==
       "]]},
     Annotation[#, "Charting`Private`Tag$12180#1"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwV1nk01OsfB3AzWqYFqW5FJFlKxkSF6qZ3pVJI2ZKUCCm3a0tRroofWlR0
c6VsYbhRyDKjLM0Xg7ITV/Y1S5hviSxhft+ecz7nOa//ns/7+TznPPLnXEwc
6CIiIlFU/dr1HQZqiUGHPWPCX4vEPF1p1w6pA4ib32j5y9tiwiMzpcyQdcHR
cZZyr4yir6eyNVRU0jdNUzaobMyIkrIHXS8rapyy4n3ZBKHcRewpdC0hKc/o
2z2xVXZG+7O+uAHKX/zr+bZhbuiq+W1bJ2UL+4n8v6U8cNh+7up/lPm60tlF
kVexwvy5czlldQWd12Ny17A3/qcUj3Ik3SZJKd4bdUbLrqVTZnT7xZ1QvoFS
i/agOMo5nXWVRWa3IPfOweRvyq7H7fVPh/mixTex4hblti23dR9I+cNH3qzV
knJozBpCySoA9rOE2wHK+hLJu99FBiJVqz9HjTJXUKFJyt3FpYKzF2bmSFyy
ts64bXsPXcszKroob6giWevjg/C2IL+3mPLDlOWbjJUf4rE2Tf0e5YOybPag
YzDC5nbYOVG+UfJsWYFZCGY2bNY/Qnm7FvOBZdgjfP/fjm2ilJ//dizwnlQo
7iXOd3ecJeFd+YR/IicUSScZujqUTwR00hWs/oHqBX6pJOWl4243cyPDcCrm
wjB3hoRXfajXsNxT2Drbxn37ScL0fhv3DfEUkUu2SOZTZh1QHve3fYZdC7jb
blPuzcx2k42PQOyKr49XUzZ+3OxkpBwN6eCVBZumSTANFJKkS6PhujqlcnCK
ylv0Un+fYwxUZ+ceJFE++3YunWf2HGWdVSpKlH9TCWGdDItFJkOuaukkCV9G
5sa7UmwwW259iBonsVnv0Z0MVzbc91dN7KdcF+Ay2FLKxh+q/8T0jVHzI8p8
ybqaAE+/YCsVyiWzbFZ9XSLGD2gFRI5S/X4P05S7n4SgtYYxO0kSHI0rYYd7
kjAvWsOhREDC2tV0wm1XMtTjQtjGlNNGJN7yB5IRtyU32G6EhMnAnd1OB19h
xLpw9ZUhEuFt13U5c6lYK/FUYNRPYp+MJbvdPA2lr1YZFvVR83pKez4jJQ3K
FWIKWpTXDV+zS1F7DWHwBZ3Vn0m4XNRSEml9jVXMGoXSbhLL7dNeJOzIQCvH
MbutjcRJy9i0r9+yUC3xZupzHQmyxWxxnDQHqoS3hBblQGuGg6kuBwnq/Br/
WhKZdi7S3FAOvhv3mK+rISHurBPgrc3F5D+nnPZVkij2azq1wCcbsQpqeXql
JLa+klwgw8iBp/k5UfMcEh9YxTaV6jkIXfTu7vW3JGzSvXJvWOag2ic6N/oN
iQfcDteu5BxEJ47I93BJDBApLYlHc8Ge4k9aZZKIbjiSrvE4DyYJFtVir0gs
Efqe1lvHg8YKsfXukVReFy2smYd4yPVft9M9grqveqaNpDMPJ/iCxW7PSOxJ
arRryechL6X8k1M4ibdJYZxsFgEjFU/ZY6EkRkyH8wyqCAQWheo3B5Ewf/Gk
/LJYIfT8v2z7eY1632f8DM/LF6Iju8G+zotE9/I/K09qFuL225tGLzypvH32
V+ucKcSijcsMj18hcddkpG5hSiFqkzd8DXElkT+zvznCsAhXzcVb68+TUDIW
DBQF8SGpLaLraEJC+qbeLsdYPmy8RNomj5NYlvI8aHE2H3s0h8fvHCMxzTBl
GXfz8a98IJttSKKGyL7cvqMYrOKisQ+HSFxX952b/FwMce3zthW7SFRJrFzJ
2luK1SV6f7yWJ+FZtRPhYx+g98hn3/gXAcRZnM8fGGXQb0jxOzgoAPuB+v2f
MmXol/PyCO0XoNZwY5P1wTIMvm++yOoVQLV85WWlsDKscvoUYdImQEcpmZih
XY5lg1kyp6sF0CtIEK+8XgG/ptFHlzMEWJ0l2U6jVeOMv59+locA3G7diurd
dYhTjczsah1BoVPUWsvheoyGMfM7t4xgXFlHIuXPRthWWxnJXBsGferlsrVK
zRj4TLv/JGIIWkIbrmlqK2ojMwO6uF9Q4b+9qmRzB/Tece7IFw5CLmRoKknQ
ieyRzWaPYwcwNNHR3qDejaULvc7l3+gH+0tumfjDHixFE+ebah/EZf8le3t7
seZy9qeA0l7cv8g5/1yxD8kH+tWaHXrwY+/L3gs3+/E+nZMrVt0Fj638rFVF
A3j/5WbzI51OdKTyg2rlvyBU3bbg0edW/HSqj1C5PoRwetKpBPUmqO5bOHc+
dxinrrt4XAlpgF6cvGP6agF617a6HblcC0/Zsxu6TpPYVP5oF62zDMxh8yWN
R79C/cQeW/O0QqyQ+MrgT3/F8ch4567ODMzjRaQpRH6DSBvNxHSvM/7Yntu0
yGAU6w8VxofvyuS9PHLu+bsfo3gzhP8keot440PSy/rCvuNFk0KoZnUlj2Oq
Jxp6YAwzqRdtJq7W824eDojJ6hsDs/y25LmPTTz5Nv1P8QHjUDx4OL1Ap4O3
S9s/VGrrD9QZMETpid280+uqp2gff8A90EOi8OFn3njZg25X3wlwU10an1YO
8MLnWXuYKE5i+05rxl9DQ7wV7Zw4On8SgbY7Bi6Kk7z5Pr5mO92mYKL2fnzv
oW88kSTrtO7l07hlZ6VlNTrKc3+W9mB54TTiouXWr68a4+Wr3mFIOv9E56qM
dK2UHzxJfXemn/gMWJH7TzZcneS1qtV8vJY3gztu21257tO819FQ7LWeRY2R
t8F/FjO8M2lakrJzsxi13qPK0Znj3QqI9W1NnkO4qJ2AxRQhUgZkI8QNhVh7
y0VygEkj7kQF2LQbCVGf/VDHWYNG2JuMKKUaC+EzklU7pkkjZPLyXh+1ECLO
ZNVWUdCIe8FWJffPCbFxntpHRWMacUHr6bfF14TAvOQw7ys0YoP/ysMLE4W4
7dW9wfMdjZjb8ZdY4wshDjl3HVtcRCOaRnrqEl8K8d22vzeqlEaEWGSeOZQu
hJwuQ6+khkYIN5tcDsgTImc4amhtD41orQ2OFv0oxHjrGm7zQjrxJnDC7mOD
EJz023YeS+lE6O9nVeI/CeHoP+slLkknDBJYWfvbhQhXmGvRlaYTOV6VH3wH
hdh9xNQvk0knwtQ0g42HhbghNu1yXINOuHVHmsmTQqRW/1s8okknNhle6iDG
hOg6uiZJBXRiHq2eHTIhRM+iFq33unSik/O7k820EI1FbKbjYTqR5xS/RX2W
Oq/3lXsLjtKJJ3JLxqmPG4I0jh5PNKYT/wfgNBu/
       "]]},
     Annotation[#, "Charting`Private`Tag$12180#2"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], 
      LineBox[CompressedData["
1:eJwd1Qk0VdsfB3A0KUoyy1AZGkhSiNI3VMrQYJ6SQkQ0eaheoeI1oF4hMkWI
PEMylOma6sp8B1z3nkN5KkqGijL/z/uftc4667PWXnvvs/d379/ak2ctPQT4
+PgE+KmX+pp6DDCqBz12++aEX5Q+8GL3QmPZc70ye7HRZZmp3cYr2JYSl/hS
xhrcX/QjJyJuoV9OOTRQ1QVOxfL8HOO/YdbSVZgk4w6B8zO374zEQDlCPmNe
8TSsxTY3mrk8xoyp26MTqn7gO1No9GdiMuzcf1U+kPEHY8PASI3lU9Qby5bW
JQbgkC+7y9AgA5pKBgU/FS9BQpVjZS37DIJ919NsVa/BdDida/PiOcgtfxlH
ytzEN+Wh4vniAkSnSFerOIUhUkZSXf/GC5iKPN9VlRgOxWcLxAfMC1Ey3Kw9
ongbxa7DAm6dLxGVu2rDUdUoRHmLemm/LcETicPhd2SiIXanKDVEqwJXWh7V
25ZFo8qHptvdWQHbsPcCSk4xSJpVGz92qRLC4+eDyxNjUWBhqLbudRWC2NFB
Q4rxmFkTd9r/QTWOPuR6H1JNRkOjdIwUrxahgi/X35ZJRxfd/ujCybfYZPL3
rcJz6cicWSaZu5MOZtjZQR49HSM5KkGNV+lQXqCeoxGQge9CAcpn+BrwdjZd
g83MxFL/9KTw+QYI/4jVVozIhsTvGqmaT42IIy8bF8/loS6GL1DevRWGcg7p
PTb5cNko31IS14ovjrqLBHPzsfXZd93x5lYoDF1yy91cgORw3S0e29tw9rSO
Ch9RgJ9XvMrV5tuwyj0/K2NHIYqsSNs7te2wd0jNHx0rwvj7GcY7NSZGeNbL
0mSLUTITpf4WTIS7CHpYGRfDfMUt2QwrJl66nZUtiS7GLVOZv4WuMLHCzyDs
im4JYiO6yJAGJt5c73ZcfLUU9Qvn5fVdWND6R3SxnGAZujz1DDYHsPFO441r
i2YZ4g2UN/LC2XB9EVR+zaEMDx77HD//iI3Ikt5zH56X4aKjpIHdKzYGqnN5
mRblMHz3Pk14ko3kjoMvtj6swFKBL2M7AzogNB/qbKJAg0rzNaVbrp2IO23n
or6fhuzpXx07/DqhzFZ3FfWjYftwz4XOK53Ynd3lxqukITwwuZkT24nX2bHF
pRrVsKy0eDTT1IlvVkMVZq3V0PHi/sXW6oJN1qOmi8trcRHavxx/dCHx2HXz
U2trsUJDopQ114W+Vb4t9tq1yI47wL9rGQdnrxq1GRyrBf1X2p+8NRzctvzG
XJJbi617A+bsLDionDHiJpjX4W1SrobtUw5Ujg4P1N2tR1i++iaOcTdkg030
PVPrYfvkCk3zUDdW5j65u6y0HmS01+Eg+25MCVppHO2rx3KaRCb7TDfaq0sv
9ux4A4/hKKn66G5c1gyd+/3xDb7zlHsiPnSjVURcXGMPHVkH00nts1zUGfh6
MGzokEoJzIwM5OKVz9sSfx86PJf/PtkZzMVTepBDeSwd55NuDOvf5yIomEw+
8I2OD2qs1qMFXKwbydzo9rgBJdVnnWu/cRHYqoe4n+8gtPWG7hIXHrUuxR/f
CTbC+tLN76ruPKRHakZMyzXiV4jYsL43Dwzz9d0u+xrxsVypCQE8qDWJX1SJ
pfyJX7oqkode+khmoW4TnNuksqLLeAhY72PRb9YE1fPH78/QeBD+69MPCdcm
ZNw03uvwhge9/eSeS7ea0BrVv2WsjYeH9Y1cdDehbHJ+KqGfB5OajBUtl5uh
HtN8rF+IQM+atcVzUc0oKmW+SVxJwD8k0UnzaTOkLukFmUoQSMXDrIdNzUhz
suKGKRCYrgwxcpRrQc/+aPermgTyy5wCPle2wKL38sQflgT2y3bJyTBb4NSs
FBRuS4C4ZFln+qkFcmE6ryIcCSzVO7gyb0UrLA323bt8koBbqc5z/+Ot2Hut
yJ44T0CqSLSHn78NLOvkHVVRBJwjpq37JdvwQbJ4NuABgTT3j01v1dtgcJ5f
WzmWgLrE69d37dsQtCBV1jmJgFGAa4xEQRs0Tx1OM8ohoJNolxm9pR0N9guv
j9UTcLjV/CFMvx1CvyIUx+kE/vQ3lA/c146m06M53xoJ1JirRTs4tcPvvUB+
ZTsB89m5UIW/2hH34YA6l0fghEvmsayednh77LQSGiVw03R1fPxgO/7WNNh/
4juBTJ377Ds/28HyeP74n58EhlZcNvNdxsBt1Q03lCYJBNAs9LR0GBDX91v5
kJ9EfE6tv5IhAx276M3RC0hUPNItEDdn4L3smTURi0jwn1u7/tcJBjy+f37m
tJRExJpx8YpIBkS75r9dW0kiT9j7SG4cA0ohpqs1VpFg/O65m/yUgSVe2WIs
MRKSjAaB0NcM/KoZuTYnSSI1NHF030cGyIjZYZ4ciXpfUXXdUQbCKkOU9RVI
fHII99wwzUDeps+2UYok1LXO9SwTZcLVt7hReh2Jkj7j5rZdTFivXveoRJVE
54HQsUgTJo46yt+oXk9iIq9K0tySiangsonqDSR0r+idaPBkokVm2d2MTSTs
PwSEh19gInJDfcltNRJBJkU5e68y0Xx6S4i7OolXYlsmqh8wsd6zj39uMwnO
pTOrg5OYkGPO1VdokPjdm73HIIsJ6X//2HlhCwnp/Z89pguZyDme5q2gSWLH
P8p3X1cy4fCJY1dD2X7VyYJA6h7eNukp6LSVGi8opUObxYSlYFzoV8qv98qu
KRxgYkN1T9+oFgnuc7t9534wYWbu1eGxjcTUyhhvjTkmiPygDAZl2UDmvSFB
FlQT9O23byehT4oUPxdj4cog83skZUdjC66XAgvLc1wv91C+nH1nXnUjC/ka
sz9UtEk8FmlQ/riNhRtCFe7ulMv+WGT6dDcL0ZtyGPGUuTyjsycOsuDRzsRb
ylOGIdGK1iwYZWoXDVKWzap8TVJ15FVd+7aFOiR2rpjuSTjNAr00oU6CsrP/
joWO/ixIPLjlpUD5T+4fG6WDWRAeurH+PyfueXmo8zYL/WP+i/5rX5E5ejE6
moU7PgZLFlAmhDXiLVNYePjm9dYBaryZCz5VK5+zMC5Tc7ueslx31r+tRSww
d6iIx1E2wCfBSBrV/4vCjpOUXTKUNMwaWfjI0WQpU74mdMJqaQcLwZ0nRP9b
j+TzyUH0Xhb2ZwnERFGu6uIlhX1h4dDmppM6lHsMZOqMx1lI2OwX3EGt99xT
2wF+PjacT8aP+FBWWBa9vHoZGyLXxksnqf3afY6hdU2CjYTtquQ1yi6dK+x3
rWHjkHGj2zS1v9d2mV+d2sRGe9CVI2cp0wTp9IA9bIxJW/sZUPl477fw23Yz
NsyrYrMeUXni6zBc9cOGGk9E3mmQytue1Arnsz5ssI9N6F+k8ui6ZCr0v7p9
23b3+RwqryG+us++hrARyle0lUfluVqvcMwzlo1RoufkWirv71NGJFVT2TAt
cyN0N1L9L968qz+HDcXc4rF91PkwZD4Ld61hg/FpM/9B6jzVeietdhhiY7H3
WfWva0m8HPTxcZlgY037wzOsNSTSvfTL3fg6kOFreLWIOp9hp7oc/cQ7kNzy
Vf6EPIkDJ0Uf39jVAb3y/HJ3aRJ6H3oHb+3vwOADz14xKRKbXPP0oo50IOh1
+XC5BAlhF7PuOPcOVEiFkxPU/dHmECadF9EBRwVRe+nl1P9wrLxexnZgIGKL
9j0hEgV26169etKBmkPbpeep++iBDc2urqgDavzEzLvFJGyPTsZyiA7cXXLm
sTAflacDvhILNneiz1Lnq8kYgRb6Tg9B3U4ctNVJPzJCoGr/suLlhp0QDwmM
sfxGIGXvM2tpm0549I6qGw0SOLnnw8PNVzvRLHb/Zvt7AgO6NqvsWzqxb8M2
/39aCYyrGojk+nZhzFuh7I8MArv7jOh3grqwr87giV8agfCkA8FeN7pgHJgy
dTyFgKS49YhSfBc0omRk1eOp+sDv0/a4nvKdWnfvCAJBvLh7t1ZzMKtxSuU6
VY9m7v0UcX/HgVG8XJy2DoG9ZlN0QzYHSc0bIoy1CEQs5gtR7OWgTELZxVSD
gPxVoVHuTw4U7ZyzjFSp+Xivaz+6phsBSj7qPVQ9Dd575D4CuzEptSCl7gcP
ApM5K1ercBFrWrb42HMeVrcY/cAWLhS0Xmf3ZPCwPbW7w12Pi88W6Z6OqTx4
HFySkGfBhZKDs8GeOB4a4k+qGAVwkStcde9NGA/39GX0T9O5kA8afvPqOA9y
f4a7lZ7moV7ne/MRER505l1LrPIIPHDie1lxjAtzi+rr+14ReBloQPthx4Vb
guJh3VoCTtBNVbHk4r5uz2fZTgLZwTe/XdrPxeBZJ5m+WQKcCv3ufg0uEt/b
/HnOgsQL5brwN3Pd4K81NYocImE9EXGw6nE3mm9ub327qReD34O1v9RxoC/S
JPC3di+M7CTGTCs4yIo/oeu0pxd60zrimUUc3MiLejJi0wvuj644swyqPWfg
gnRoL7ZOWDOswqn2aklS3l296Dwumu1oQu3L4PWCxUbvEfRBff7Qmy4o3v86
mT38Huz1i9J1XnTi66/eng7NPpjudRzyDGQj/Ut544qofzHAfCJypJaBFfLP
Rvr7+8GNbrD2zWhBxOniU0+UP0Fr9v0/gUV0TOzJ6fcK/oyWG9VpTxqq4a9V
XyRZN4CH++Qcmc0v0ZtXf5ex9gvYHJHgPMH7mPZmJ2y8/BUbVd4xvHKyaGqG
S+ZOlQ/Bvqe8PMSsgmaSttbzhdQw0pL1AovU6LRA+ePrPjiPoFis/xvzWxtN
fchGqMtiFBpO9nttvNg0MZFRwfqpURwuKfx4262btpCWkK+UOIafPnIxbI0e
ms/28u6lZt8RM8ivJVz/gZZz8OSTqonvuJgZUrMnsJ82/lV25afYH/h3w0iy
u/BnWrGVyYLovT+RlBBRXvhlkBZ8ICyl6NNPHO4+4/nl2RBtLWnKeRo2jsVr
9ZXSPEZo+ro3o2W0JmCo2TlzSHeM5qzQNsnPmsBP9qHVZNZ32nhjZN+50F8Y
z645P7PnJy1uoYu/pfJvBPse6BuuH6eJ9RSnCdT/htHc7i1/mfyiLboaaq13
fhKCxmI788d+0/iyXfL7Vk1BbVeUTVbYFO3C4/zIVbVT4CvVsFxhNEOrVLsl
KOo3jZW6zhP9M7M0UdML6tdXzMBUoeV2Qco8jdjczrpUMYPpGL3dw8V81QXJ
UO53mUXwj76D4ff4q4/l64jKz83CYtM5Qw9PgeqQsNRQ4vkcbHUkTT2tF1Sb
6L1MuqY6D77/Pwur/wcEZAoV
       "]]},
     Annotation[#, "Charting`Private`Tag$12180#3"]& ], 
    TagBox[
     {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
      Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwdlHk4lAsDxZkh4kvIVSmkKIQkpKSTCmW7IRUXKdWNFkqLdLsifLoSIlSU
7EuIDFnyvmlos5SliMia3cyYMZPw3r7vPM95fv+cf39H5ai3/XGakJDQtV/9
H+fPlplbjadB6P8RQJWulatzKR2aHfNvRt7wUTuXptPSlAHGEfXZRAs+vLfd
iJzTyESPmHCHmwYfy64eYa0NzMRMvFTrgCQfngLFoisbskA2PBxRa57Gf6bi
DJRvZeOx2JGXDM9pMDZejNvTl439021k/75puPk48M9tzUFtm8twhtE0CsYX
lzGHcnCDNsL7sHAa9kNh27zMnmBYVSjXpIiHhK/+uxjz+agStIytXMaD6Uqn
tC7HAggQ4xO9gIcR582i4nkF+DumztONx4XS2BWPPO2naL92OI/fzIW3p6Ga
UOdTyIrLaQ7GcsEMS2+NFSuEYUzDvs4QLpZlyYVqbCqEhF6o1PLLXJCDnEH7
fwrBqrBtdnPmQvZYQVa6URF0+N6ZI2u4OHFDyWnrsSKcHFTW6pfnoiIlYmFj
ZBH8dtzulpfg4ljPKS/BYBF83C1Xr2ZPgeGmrmV19xl2H65m5rycwiGnxwUs
djEGf3s66X9qCpMd+yVSFBjwq3W0WHF0CqFu4scddjEQe0Aj4euhKTzz8FYo
iWXgjtvP32vMpyB11iTk6uYS6E75WUqpTqEmqN15wbVSPNwp9H2ujwMX0QhG
aXoprE3PfT7XyQHnvzukPRtKYUuI7Jtv4WBVRGbNe+XnYPVcFrjVcvBX/EXd
6OrnqLtdlqiXw4HeE5kFK8XLkesX/fvrixy81alxr9ctxxs61RTlzYF7oV/F
307l+ChxO+C0JwcRJd0+PTnl6N+rLe7kysEQmdeRYVMBbM1ZN2/GwcPWvYUb
Yyoh3+7rb6TAgSQV6GKhRED/zoLdjDo2EjwPummZE7hbZSp+4A0bqi1a7jJn
CcS8WNAnxGRje/Znj44XBNJmTbZcqGCjLDuOUapDwmzh+5X1OWyMO4xVWjWQ
iH0ulbwunA3HrPj3vouqUXq9sD/Jjo1E1yDrEyrVUOpel7Ldlo1e2TP1hwyq
8W6DaOiAJRve13Y2mrhWI6XVzMNsNxs37cebxPKq0Z7VIbDczMaL2Z1fHli/
gqwIu9NZiQ01u4mhV+FMPAoN1xdnsaAQYLH1z8dM6BPlPIlxFqTzksMlSpmQ
zzugLzvCwoy4g45dLxPGJc3ftPtZ+ECW+nYZ1WCdTZJYQhsL/rqB84KBGhgH
dLHUq1loWCwnp7PjNfblLme2xLNwuWELErhvMSkSWFZoycLSYpkuYeFGpKVk
ae6/M4mS3l11jduaMKTpJ/kxeALVXkkrnMZa8PYvy15/33Hw1poszjvzGfd0
yiJfeYyB9iNXeoXaFxiap0rR1o7CkHIvccjvxCX7FrnrA8OoC9ZvqNXsxqXn
qx79FjsE5ajRH9kT36AlsGltkPyOUX53V6tuLzL95yJ9QgaQNlLxTup2Hy6U
D3DNmX2QUsyc7O/vR+Xm08/y2D245ck4kaw6CGaS5Tor9W+Y3pHbfzLgO45W
XCXPmnbigh6zWP7VEBq5vofqrNvQnc8M/6gyAtGCzoU3PzXjp1fLAw3/UdD6
43KU7jRgvanY/ImKMURtFzKKeF0DixSVPwuXTsBdvjEjuqsUlxUPr+5xmYTR
3epC25wYaI05Sn62YeHkZMcnNdcnxJLFLHHmDAsHCscj11e8JESIBwVrEtnQ
bbW9e2vkPXFKv6J9oRUH2vwbnE+JzUTu3qPJVdMcFFXVpvKt2gneqIL0YNwv
Dwdcb+eVdBEMBwt67G4u8hurbHqce4mAPSGPige5GBezy8gwGCBUvlq2pYbw
EH/PJVh68RCxdXNw7HK9aUQl362r1R8lXJQafwj/+k3J+lVKNzdOELx3Eb0+
gXwcu5K/xKCKRSSIuF2wVxVA1yO/ZIkth1jSxUihMQUILnO+ONwxRYheC9y/
5dwPvPE0M34XzSOEst0KemVnYJzk0r9Xl0+cv18QIVs9A392+vVcvoB4sT5M
XObsT4Rl64f2Vc4QMpbntYKkZiHatPS8mOcs0an9oflK5Swu3P9ycXb7PPH0
IVT73eYQIt/9h9BPinAtMJRRnJ+Dv/3qL5HtQuT1kMeBnTnzGO3qui94J0zm
DSk+kLKmwAvaoZafTyPDkkLcu2wpLJIM3/SkiEYesx9Xy7ejsMmU551TQiNX
VlY+tTlIof30ct/MKhr5T+QftbeOUnBqM0hJbaCRJw3vsSWuUAgq80xOm6CR
q4Pl9ohlUFA8s4n2VodOzhv9tehzFoWoBUvr6/ToZPt4X1NGLgUFlcc1Hwzp
ZNTBZ67mhRQcOu+hfTudpDTtfUMqKYQnFx8Ys6WTnR8jH9KbKYzNWUqt8KaT
z0P5Hs2tFGK2fCpU8aWTscaHNVLbKGSZ1wWpX6aTVuk6xTu7KEzODT8xDKCT
5X71bwOHKYQpB6s4RtLJOG2DSLsxCmtU5je4xtDJc72J+1UmKcg41pw6Hk8n
1a1Pd5PcX/tIrVOXHtFJEeGWtCg+BXuDGp2AVDr5jWHs5T5DgW+VqByWSScr
vVI36M5RuKWabxKdSyfjlSV5FEWhUpofdr+ATv4LPjYOXw==
       "]]},
     Annotation[#, "Charting`Private`Tag$12180#4"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 1.9999999591836735`}, {-2.5, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{{3.774106408999221*^9, 3.7741064210477667`*^9}, {
   3.774106589298739*^9, 3.774106617186532*^9}, 3.774106703754657*^9, 
   3.774106759875948*^9, 3.774106962979104*^9, 3.774283956313843*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"44eb376e-df83-430a-9cb8-aef887ecc110"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Bosons in 3d", "Subsection",
 CellChangeTimes->{{3.774074038386326*^9, 3.774074042712158*^9}, {
  3.7740745627067947`*^9, 3.774074565065641*^9}, {3.774075895328517*^9, 
  3.774075896153144*^9}, {3.774106339915992*^9, 3.774106340889071*^9}, {
  3.7741068284717293`*^9, 
  3.7741068336502523`*^9}},ExpressionUUID->"12f7f93d-bc2e-44bc-bb63-\
fee980c532e0"],

Cell[CellGroupData[{

Cell["First get the BEC temperature", "Subsubsection",
 CellChangeTimes->{{3.774107061714509*^9, 3.7741070670563517`*^9}, {
  3.77428957011836*^9, 
  3.774289600256524*^9}},ExpressionUUID->"8f060984-90ea-423f-b66f-\
96a7457f8cfd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tb", " ", "=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"3", 
     RowBox[{"Sqrt", "[", "Pi", "]"}], 
     RowBox[{
      RowBox[{"Zeta", "[", 
       RowBox[{"3", "/", "2"}], "]"}], "/", "4"}]}], ")"}], "^", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "/", "3"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.774107075885401*^9, 3.7741071547547817`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"15fe0f93-1bf2-44c9-b8c5-095f6ad3a2de"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox["2", "\[Pi]"], ")"}], 
    RowBox[{"1", "/", "3"}]]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"3", " ", 
     RowBox[{"Zeta", "[", 
      FractionBox["3", "2"], "]"}]}], ")"}], 
   RowBox[{"2", "/", "3"}]]]], "Output",
 CellChangeTimes->{{3.774107136172698*^9, 3.774107157211344*^9}, 
   3.7742839563846893`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"e6af0102-ec7c-4c78-ae8d-1ee0ba6e0a1e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tb", " ", "//", "N"}]], "Input",
 CellChangeTimes->{{3.774107602602152*^9, 3.774107605384212*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"e23f0109-354a-4f00-86f0-edf1484b552a"],

Cell[BoxData["0.43606592244133296`"], "Output",
 CellChangeTimes->{3.774107606994589*^9, 3.774283956396188*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"a1ecd63b-dc46-4809-9d1a-1e2def7579ab"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"muB3ds", "[", "t_", "]"}], " ", ":=", " ", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"t", "<", "tb"}], ",", "0", ",", 
    RowBox[{
     RowBox[{"-", "9"}], 
     RowBox[{
      RowBox[{"Zeta", "[", 
       RowBox[{"3", "/", "2"}], "]"}], "^", "2"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"t", "-", "tb"}], ")"}], "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", "Pi", " ", "tb"}], ")"}]}]}]}], "]"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.7741071810399723`*^9, 3.7741072381125603`*^9}, {
  3.7741072910623093`*^9, 3.7741073798361807`*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"7dc16b7d-1bc9-44a5-8662-bd5971b4e4ef"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muB3d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB3ds", "[", "t", "]"}], ",", 
     RowBox[{"muM3d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM3d", "[", "t", "]"}], "-", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"2", "/", "Pi"}], "/", "t"}], "]"}], "/", "3"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "2.5"}], ",", " ", "0.5"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7741068491132812`*^9, 3.774106873069983*^9}, 
   3.774106974836443*^9, {3.7741074385910807`*^9, 3.774107441996911*^9}, {
   3.774283979566965*^9, 3.7742839913776207`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"1c61026a-9a06-4a95-b473-fc2e534efaa5"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGCQA2IQ7ZX64uKBl6l2DFDA4ixVcF/SxR7GN54/Y85myRA4
3/vs9U1zJVPg/PCU73snSZbA+Xf12517JVvg/AWi/m1dklPg/EaOzeqdkkvg
/IjIhes/fNwC53P/b4xxl9sP56sGvntxuPsInF9+ztJ+xpeTcL74FsF7jIzn
4fxtj5zPnLe5BOcfyporHfnmCpz/Vc2Wf23udTif6edqAWnVW3C+9Fmnz/b6
CL7JwptXUywR/FRP9tnrfBH8EzOTVJ3KEPx+K0mrzOMIvkxNW/L2zNtwvmmA
rNudYgTfT2WLBmMdgl9/5uFbr0kI/iMZ24p7uxD83x8uRzEfRfBFjmbZapxH
8HesnyfFdw/BBwBCanMR
        "]], LineBox[CompressedData["
1:eJwdxQk41AkfwHHEhlesYydHlKS3UMrNWj9Z5SjrXkUh7yJErtptm1KiyzHC
IqaaXDFZk6tsjt8kZIWtFcn85zQT4s09rug9vs/zeb66IWe8QqUkJCQS/+t/
b+UcXJ2bZQF/LaGP0KxrzRo/TudJEqBuz/K11iVaK1vm0mUUCHhne1zD4uZE
a9vtW2cMSAQ8eBghzGkWtw6H6nq5byOAOchpC1uUwDnrRrNEAwIK3Y4YT1Vt
RAVF9813zAjIrPR3N76khPoC0XKLHQH2EUqbbMzV0O4JmRA4E2C206o21UoD
/W6p4kZvAk7/nTv1oEsHYwPpD4xOEDCgmH6wKH473jQ5kOIZTgBj4hfWQqc+
Fn81FHYujoBOiypZ85O78dlwjEvRBQJ6bJs89xzYg/3VMkbMVAIS+Psbj9Xt
w8lkqqKIQkBzSP7uvjETlPYznZErJODauWuZHHtztPgS/MS7moDXPYKVi0dt
8IgbM/lgIwF2ooCCp3Lf4b+KtrpbthGgRY1eEbAAsyw5o5qDBNxoMNoWPOOA
5anf1SvwCCBEyuSyNEds7qdeXh8n4ARPPtPW4hCOnwnQEKwRcLdfrG/d7IIS
rc9E/RvZkP3namxa/mEkKWjWdiizIalL7bPsVTd0qBhyrdRng09gzoRxhwdS
eb7kWDc2kI9sznlm5Iu1exucQ/zYECFMf5vu/yN2kdW+8TnJhtlvRp3cs/xw
Qb3/d8uzbKhKKYzPVvXHHzw9uOtUNijuU8LsX4JQss3VIWOSDV3D31JciFBU
/5qumCRmA3FvilleE4Z7A+VYsRIceHvJOHPoVjj6r7xM8FHjwNC/GXE1zhFY
b3KwTMuWAxEnbm9ZmzmNYSUgS0/jwHBRdkcuOR7JM/feFv3GgQEdp8xImQTM
gXVaxn0OmG53IWlmJSCT1WwdV8cBt6yAcKlHiaihZhNlxeJALuwJIsTnsCfF
rK/TgAuc0qYilugC2ii9krptzoU3wQe3yBWSseLOScsAey5sdWNJenlcxKvV
mbQpXy586Dxstf/FJbQZGotXv8KF03lj26T4l7HC8O7myHdcaDb8dIisnIKk
J6ZHzARc+Gf3deVd5BRMse++vD7JhfneKK+h0RR8TF9NdJHkwbVm+fXv21Ix
DXdx2CQexLwyoFhdvY4O48mPv3LggawoWlvbPA3P7+3rjnLiwSAjcKiPkYaP
EzREr4/wYPXi8wiyYTrqrDM0ivx4YKE3sNqln4HLKuxk42geLEdSz2jspOBj
W0vfowU8kA+KXsim38atWRPLlZ94kHcq99cWszxsPZlUWTvHA0334GlTch4G
mqoea1riQSh9v61yex5SB20ae6T4UBWD+V988lFd+9a5KRIfSHVbzMsvFKAK
fdecGfCBRnI+PMsqRJn20Emk8MH4LT3NefQ+lv62XNSVy4eofrtQmjYNHcMz
Dr+5w4eQPMmtvU40TJZvoAtK+PDp/O8KjVQarntIR8g08uFlYljyG+cHuMQu
Frny+NApKnkgQS/GiUUuZ2CfAPztG0qfU8rwSTilzdVCAAzvWeWaF2V4+Z1d
OX4rAFpcVvHgYhmSnt6NrjwkAJUVoudFcDk6nAv4TD4uADX/tWI984dYOD+o
seOGAEilu64JRyvQeabXJ54rgAs5BfNdiVVY+rGpWzFzBPqSLt0sU63FmHx3
vcicEWCAeXWsaS1aOo5c6CgYgbNn3zt5e9di9135PeSSEbh/i18fmFOLMx7H
KOONI6Cb75mYoVaHdk/F3u0jI0Bto+Y4aNXj+6v72eethbBUmq/Ta/0EFbUf
TgmFQohdHWFc/+MZpkc0hNF2fICB3Go3/PIcxfaPhKeSRkFrZ9VZg+KXmGjS
Xk96MQYWp693eUT1Ire6Pe2N7kf4cGNQJ3bL37ga+bZo968T0HHlhOty3QAa
Hti4HtY0CXe7tR0kHd+jU7FueM3mT9Dp5n+IcpSNP2sHbecfn4K/inVkaqp4
aDTp+493btOQfadAQ+sPAaoqTcu2r0yD3vspUoacCKWxiKFHnYHLMvlJV51G
Mcqs6b3c4VmY6eEHUV6N4yOXEFqreBbi0pd69Y9N4sKE5tcf8uagxVNUv6H3
EzZ4O23IdZyHn91Fi6nt05jknHq//sM8jA3V135UnUVdtutQSeoCXPSqkb/5
0xzaWKbkapiIoSLP0u7Q8Dwe1/lrWbJfDIxEh8gqOzEudGcIYq8sQlvmhMnO
PxexQDow0WvHEngOWZKE9suoymkolmpfgolX359ae7qCMhev+FjHLQPLIkfF
8MfPKFEZyBCorMCi7dj0T9w1jC9kZKi0rcCmIAjLy/qCLYY3ZJVjVkE+QLgQ
RZNgKrvGGyUrfoZT0fu0laIlmcSe1/3nmz/DTcunw7t/kGI+vgc7hIFrkLCp
0MpRbwPzBMNCWXt9DRhqOe488QamH+W5jVB6HST+nzTzP33S1Ss=
        "]]},
      Annotation[#, "Charting`Private`Tag$14404#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQA2IQ7ZX64uKBl6l2DFDA4ixVcF/SxR7GN54/Y85myRA4
3/vs9U1zJVPg/PCU73snSZbA+Xf12517JVvg/AWi/m1dklPg/EaOzeqdkkvg
/IjIhes/fNwC53P/b4xxl9sP56sGvntxuPsInF9+ztJ+xpeTcL74FsF7jIzn
4fxtj5zPnLe5BOcfyporHfnmCpz/Vc2Wf23udTif6edqAWnVW3C+9Fmnz/b6
CL7JwptXUywR/FRP9tnrfBH8EzOTVJ3KEPx+K0mrzOMIvkxNW/L2zNtwvmmA
rNudYgTfT2WLBmMdgl9/5uFbr0kI/iMZ24p7uxD83x8uRzEfRfBFjmbZapxH
8HesnyfFdw/BBwBCanMR
        "]], LineBox[CompressedData["
1:eJwdins41Ikeh8cthVAYt4NuOip3E5stX0mpSSQkkmKLMptsBrUUq1TuKrY0
LkVhELNCTtr5TrPUrtJlKeL3m/somkMuKZec0zmf53mf94/3szzixJ4jyhQK
JfYb/zNXsHV2YnwANmuwQ/Qs7nHzh0JrREoEaNHUD3nZE1z27xPZaloEGCfr
z/WUfODyL2eeWEsl4A9ZZVT831Pc/iPL9/guI+CzkEEP1lTCiQ2tNOZaAiRH
nyu/6lJHLW1fwyIaARVas8Qtjg5aSuTTv7sRUCo/pZAH66NbSzIh2U5AwJ7g
pCqGMQZl6qG6PwEJz8xZhYstMDas5pb1AQJUamSWfWUrMMNx83m/KAJSmHWP
ZymrsXxBX2TCTwRwOgYb1teswQf9MTtYSQQ4llwVp7NssLtezZqXToDszFub
hGF7VKQVa8vzCMiMXZFHW+eEqkFOY4tuEOBdeVt/Pm89Ov/nUIt/PQFBREB2
Y4creu/ipW1tJUBJ87XM4NIm/IFl4evCJ8A6QMbMdXbHfBfBO5M3BAxT0+cy
fbdgZfqmJi0RAXMadUqqU574sLs4dX6IgE0tWuTzu9tw6MR+Y8lXAk47JlFD
/OhI4T6Qd6uTkKCSwTTZ5I1ULZPGjiUkMLNeVlu7+qBHdR+dbUnCmUML6Ctp
flgsCkyO3UVCoLjY1aozEBttm7dHBJGQWJnJ91ULwj+T9Q0Cwklw8Cpcv2zH
Pvxk1H3XJZ6EbFMlsm04BH38dgvni0kouVhkNEo/hIfLGmo/Vn7rfSoZqzXD
Menf2qckHBJCrs3FNL4Ix+qMLt3H7SR4hRWxnhz5AZX4dI8cBQlFS1IT33VE
opFujXbKFAlzLw8U8Kuj0DZs0UAsRQAG83+tHs87iiEzT+IC9AXAvrWrzocR
jU2OW++YbhRAnray69fAGIysgIU1WQKwRx3762fiMHmstIdVKACnxePR7CVM
vArzN3PKBGB9hSWSVTGRN/Bww0/3BMBz90zu749HY31XxncDArhlr2DyQk7h
s/O054/XCiF//6+MRP4ZdNV5qnx5vRBCC+m9XZfOYnVRuMt+dyEsLa9t5fil
4Ln63JujgULQNXEdyYlPRde+9yeNfhHCtRKdni3maVi9rsQwulcIkdEjVf11
6UhtcfKmSYSQbW6XdWzVBTzv3pk6rxDCPzduY7uVXEBOzSxzh5II/nXvc2Hb
lYuYhVYCkioCWkGUAyUnAz2G0jgLPESgbJoU28TNwdO2zzsZXiJgRK5QqqLn
IifOWP7SWwRepjefCXtz0Xy+wZgVJIJ9j8z1V03l4fRSMs3uuAiOpRQ0zi67
jJyNLoH7rovgVVnrxcNZV9Ei/8M0e0QEDj8e9cjuv47c8BR244QINr7i2/TZ
FmGYk15w2xcRlBkYmjWeK8LiN66tz5TFYLjxrrqu3Q00MstMGKWKIZCSr8XM
ZuHSGqsJGojBIdLuNRFeimrtRxSYJ4ao7mHO9e/L8XbhNOvPgm//mfWDpTHl
6BmVs/NVkRgmdM+aKW6VY5pGc42kQgxKi9Wu7F9UgfO7VY+ptYqhw33kSu5A
BX4hy+V00bd+zWbSM+cOfvgsFLy2l8DQ14O0CUs2tkTl8enOElC+sS9WFsnG
1F63SvxeArRZHdM11Wyk3i85zt4mAeritod162rQI2H/XHKoBDJjlB1KnGvx
xuQb41WXJGButZdcEXoXt491BZwUSkDx4FK5aJyDt4fbOrVzpaDOZVjdmW7G
mGu+K6OvSmFZaASDv7IFXTylSR3XpTD2jwcSdZ8W7CzRsEmukIJoQU6MZkUL
ju0OzhtqlUJHEm9m0uc+ut2f8m+XSqFs6IDcr74V355zIE9vkEHF65MqTllt
qG1WNSqTyeBoYprDXwIeuu89R0qHZJBqf/aR6Wcensw7+FQyIoOdtxldKTqP
8I2SUZXoiwy+tpkGJ7s/wtLBS2GElhye1r4Er4pHaMuJ7uqmyUE/J4e+6kc+
7tpiW8s/Lwfvvf6BsxrtmH2sOfLmqkE4raLjbnbmCU6518qOpryD1ZzfDmi8
e4FMx/Ym6h/vYdnx8nGH+B4U1rdnvVo+DPm89x0m029xNrqHtebnD9C01Gjh
BRURrtusPh/ZpoC/Levsyi2k6FW+POo3wxH4wo2wzH4+iIlmB1eIQ0eBlmDg
1p0xjNaKQM3eXR9h0v5Q9+VTI6in83Fh+8xHaIzvNW5IH0NVZDWsLB4DqbPr
sPjZBDJobW8X7RyHYfudcY7Hp7B2R8RN7tQ42L/4bmRizTR++mCiO/jrBHTH
yeiKgVls9vdSKfCchG0zhzV6RucxZXt6WdPgJNRv0vPZMUPhLSfpfRXpn6DU
8wjllwvKvMjh5oKfqVNA+f9Uef8Fjnum6g==
        "]]},
      Annotation[#, "Charting`Private`Tag$14404#2"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}],
        LineBox[CompressedData["
1:eJwd1Qk0VdsfB3A0KUoyy1AZGkhSiNI3VMrQYJ6SQkQ0eaheoeI1oF4hMkWI
PEMylOma6sp8B1z3nkN5KkqGijL/z/uftc4667PWXnvvs/d379/ak2ctPQT4
+PgE+KmX+pp6DDCqBz12++aEX5Q+8GL3QmPZc70ye7HRZZmp3cYr2JYSl/hS
xhrcX/QjJyJuoV9OOTRQ1QVOxfL8HOO/YdbSVZgk4w6B8zO374zEQDlCPmNe
8TSsxTY3mrk8xoyp26MTqn7gO1No9GdiMuzcf1U+kPEHY8PASI3lU9Qby5bW
JQbgkC+7y9AgA5pKBgU/FS9BQpVjZS37DIJ919NsVa/BdDida/PiOcgtfxlH
ytzEN+Wh4vniAkSnSFerOIUhUkZSXf/GC5iKPN9VlRgOxWcLxAfMC1Ey3Kw9
ongbxa7DAm6dLxGVu2rDUdUoRHmLemm/LcETicPhd2SiIXanKDVEqwJXWh7V
25ZFo8qHptvdWQHbsPcCSk4xSJpVGz92qRLC4+eDyxNjUWBhqLbudRWC2NFB
Q4rxmFkTd9r/QTWOPuR6H1JNRkOjdIwUrxahgi/X35ZJRxfd/ujCybfYZPL3
rcJz6cicWSaZu5MOZtjZQR49HSM5KkGNV+lQXqCeoxGQge9CAcpn+BrwdjZd
g83MxFL/9KTw+QYI/4jVVozIhsTvGqmaT42IIy8bF8/loS6GL1DevRWGcg7p
PTb5cNko31IS14ovjrqLBHPzsfXZd93x5lYoDF1yy91cgORw3S0e29tw9rSO
Ch9RgJ9XvMrV5tuwyj0/K2NHIYqsSNs7te2wd0jNHx0rwvj7GcY7NSZGeNbL
0mSLUTITpf4WTIS7CHpYGRfDfMUt2QwrJl66nZUtiS7GLVOZv4WuMLHCzyDs
im4JYiO6yJAGJt5c73ZcfLUU9Qvn5fVdWND6R3SxnGAZujz1DDYHsPFO441r
i2YZ4g2UN/LC2XB9EVR+zaEMDx77HD//iI3Ikt5zH56X4aKjpIHdKzYGqnN5
mRblMHz3Pk14ko3kjoMvtj6swFKBL2M7AzogNB/qbKJAg0rzNaVbrp2IO23n
or6fhuzpXx07/DqhzFZ3FfWjYftwz4XOK53Ynd3lxqukITwwuZkT24nX2bHF
pRrVsKy0eDTT1IlvVkMVZq3V0PHi/sXW6oJN1qOmi8trcRHavxx/dCHx2HXz
U2trsUJDopQ114W+Vb4t9tq1yI47wL9rGQdnrxq1GRyrBf1X2p+8NRzctvzG
XJJbi617A+bsLDionDHiJpjX4W1SrobtUw5Ujg4P1N2tR1i++iaOcTdkg030
PVPrYfvkCk3zUDdW5j65u6y0HmS01+Eg+25MCVppHO2rx3KaRCb7TDfaq0sv
9ux4A4/hKKn66G5c1gyd+/3xDb7zlHsiPnSjVURcXGMPHVkH00nts1zUGfh6
MGzokEoJzIwM5OKVz9sSfx86PJf/PtkZzMVTepBDeSwd55NuDOvf5yIomEw+
8I2OD2qs1qMFXKwbydzo9rgBJdVnnWu/cRHYqoe4n+8gtPWG7hIXHrUuxR/f
CTbC+tLN76ruPKRHakZMyzXiV4jYsL43Dwzz9d0u+xrxsVypCQE8qDWJX1SJ
pfyJX7oqkode+khmoW4TnNuksqLLeAhY72PRb9YE1fPH78/QeBD+69MPCdcm
ZNw03uvwhge9/eSeS7ea0BrVv2WsjYeH9Y1cdDehbHJ+KqGfB5OajBUtl5uh
HtN8rF+IQM+atcVzUc0oKmW+SVxJwD8k0UnzaTOkLukFmUoQSMXDrIdNzUhz
suKGKRCYrgwxcpRrQc/+aPermgTyy5wCPle2wKL38sQflgT2y3bJyTBb4NSs
FBRuS4C4ZFln+qkFcmE6ryIcCSzVO7gyb0UrLA323bt8koBbqc5z/+Ot2Hut
yJ44T0CqSLSHn78NLOvkHVVRBJwjpq37JdvwQbJ4NuABgTT3j01v1dtgcJ5f
WzmWgLrE69d37dsQtCBV1jmJgFGAa4xEQRs0Tx1OM8ohoJNolxm9pR0N9guv
j9UTcLjV/CFMvx1CvyIUx+kE/vQ3lA/c146m06M53xoJ1JirRTs4tcPvvUB+
ZTsB89m5UIW/2hH34YA6l0fghEvmsayednh77LQSGiVw03R1fPxgO/7WNNh/
4juBTJ377Ds/28HyeP74n58EhlZcNvNdxsBt1Q03lCYJBNAs9LR0GBDX91v5
kJ9EfE6tv5IhAx276M3RC0hUPNItEDdn4L3smTURi0jwn1u7/tcJBjy+f37m
tJRExJpx8YpIBkS75r9dW0kiT9j7SG4cA0ohpqs1VpFg/O65m/yUgSVe2WIs
MRKSjAaB0NcM/KoZuTYnSSI1NHF030cGyIjZYZ4ciXpfUXXdUQbCKkOU9RVI
fHII99wwzUDeps+2UYok1LXO9SwTZcLVt7hReh2Jkj7j5rZdTFivXveoRJVE
54HQsUgTJo46yt+oXk9iIq9K0tySiangsonqDSR0r+idaPBkokVm2d2MTSTs
PwSEh19gInJDfcltNRJBJkU5e68y0Xx6S4i7OolXYlsmqh8wsd6zj39uMwnO
pTOrg5OYkGPO1VdokPjdm73HIIsJ6X//2HlhCwnp/Z89pguZyDme5q2gSWLH
P8p3X1cy4fCJY1dD2X7VyYJA6h7eNukp6LSVGi8opUObxYSlYFzoV8qv98qu
KRxgYkN1T9+oFgnuc7t9534wYWbu1eGxjcTUyhhvjTkmiPygDAZl2UDmvSFB
FlQT9O23byehT4oUPxdj4cog83skZUdjC66XAgvLc1wv91C+nH1nXnUjC/ka
sz9UtEk8FmlQ/riNhRtCFe7ulMv+WGT6dDcL0ZtyGPGUuTyjsycOsuDRzsRb
ylOGIdGK1iwYZWoXDVKWzap8TVJ15FVd+7aFOiR2rpjuSTjNAr00oU6CsrP/
joWO/ixIPLjlpUD5T+4fG6WDWRAeurH+PyfueXmo8zYL/WP+i/5rX5E5ejE6
moU7PgZLFlAmhDXiLVNYePjm9dYBaryZCz5VK5+zMC5Tc7ueslx31r+tRSww
d6iIx1E2wCfBSBrV/4vCjpOUXTKUNMwaWfjI0WQpU74mdMJqaQcLwZ0nRP9b
j+TzyUH0Xhb2ZwnERFGu6uIlhX1h4dDmppM6lHsMZOqMx1lI2OwX3EGt99xT
2wF+PjacT8aP+FBWWBa9vHoZGyLXxksnqf3afY6hdU2CjYTtquQ1yi6dK+x3
rWHjkHGj2zS1v9d2mV+d2sRGe9CVI2cp0wTp9IA9bIxJW/sZUPl477fw23Yz
NsyrYrMeUXni6zBc9cOGGk9E3mmQytue1Arnsz5ssI9N6F+k8ui6ZCr0v7p9
23b3+RwqryG+us++hrARyle0lUfluVqvcMwzlo1RoufkWirv71NGJFVT2TAt
cyN0N1L9L968qz+HDcXc4rF91PkwZD4Ld61hg/FpM/9B6jzVeietdhhiY7H3
WfWva0m8HPTxcZlgY037wzOsNSTSvfTL3fg6kOFreLWIOp9hp7oc/cQ7kNzy
Vf6EPIkDJ0Uf39jVAb3y/HJ3aRJ6H3oHb+3vwOADz14xKRKbXPP0oo50IOh1
+XC5BAlhF7PuOPcOVEiFkxPU/dHmECadF9EBRwVRe+nl1P9wrLxexnZgIGKL
9j0hEgV26169etKBmkPbpeep++iBDc2urqgDavzEzLvFJGyPTsZyiA7cXXLm
sTAflacDvhILNneiz1Lnq8kYgRb6Tg9B3U4ctNVJPzJCoGr/suLlhp0QDwmM
sfxGIGXvM2tpm0549I6qGw0SOLnnw8PNVzvRLHb/Zvt7AgO6NqvsWzqxb8M2
/39aCYyrGojk+nZhzFuh7I8MArv7jOh3grqwr87giV8agfCkA8FeN7pgHJgy
dTyFgKS49YhSfBc0omRk1eOp+sDv0/a4nvKdWnfvCAJBvLh7t1ZzMKtxSuU6
VY9m7v0UcX/HgVG8XJy2DoG9ZlN0QzYHSc0bIoy1CEQs5gtR7OWgTELZxVSD
gPxVoVHuTw4U7ZyzjFSp+Xivaz+6phsBSj7qPVQ9Dd575D4CuzEptSCl7gcP
ApM5K1ercBFrWrb42HMeVrcY/cAWLhS0Xmf3ZPCwPbW7w12Pi88W6Z6OqTx4
HFySkGfBhZKDs8GeOB4a4k+qGAVwkStcde9NGA/39GX0T9O5kA8afvPqOA9y
f4a7lZ7moV7ne/MRER505l1LrPIIPHDie1lxjAtzi+rr+14ReBloQPthx4Vb
guJh3VoCTtBNVbHk4r5uz2fZTgLZwTe/XdrPxeBZJ5m+WQKcCv3ufg0uEt/b
/HnOgsQL5brwN3Pd4K81NYocImE9EXGw6nE3mm9ub327qReD34O1v9RxoC/S
JPC3di+M7CTGTCs4yIo/oeu0pxd60zrimUUc3MiLejJi0wvuj644swyqPWfg
gnRoL7ZOWDOswqn2aklS3l296Dwumu1oQu3L4PWCxUbvEfRBff7Qmy4o3v86
mT38Huz1i9J1XnTi66/eng7NPpjudRzyDGQj/Ut544qofzHAfCJypJaBFfLP
Rvr7+8GNbrD2zWhBxOniU0+UP0Fr9v0/gUV0TOzJ6fcK/oyWG9VpTxqq4a9V
XyRZN4CH++Qcmc0v0ZtXf5ex9gvYHJHgPMH7mPZmJ2y8/BUbVd4xvHKyaGqG
S+ZOlQ/Bvqe8PMSsgmaSttbzhdQw0pL1AovU6LRA+ePrPjiPoFis/xvzWxtN
fchGqMtiFBpO9nttvNg0MZFRwfqpURwuKfx4262btpCWkK+UOIafPnIxbI0e
ms/28u6lZt8RM8ivJVz/gZZz8OSTqonvuJgZUrMnsJ82/lV25afYH/h3w0iy
u/BnWrGVyYLovT+RlBBRXvhlkBZ8ICyl6NNPHO4+4/nl2RBtLWnKeRo2jsVr
9ZXSPEZo+ro3o2W0JmCo2TlzSHeM5qzQNsnPmsBP9qHVZNZ32nhjZN+50F8Y
z645P7PnJy1uoYu/pfJvBPse6BuuH6eJ9RSnCdT/htHc7i1/mfyiLboaaq13
fhKCxmI788d+0/iyXfL7Vk1BbVeUTVbYFO3C4/zIVbVT4CvVsFxhNEOrVLsl
KOo3jZW6zhP9M7M0UdML6tdXzMBUoeV2Qco8jdjczrpUMYPpGL3dw8V81QXJ
UO53mUXwj76D4ff4q4/l64jKz83CYtM5Qw9PgeqQsNRQ4vkcbHUkTT2tF1Sb
6L1MuqY6D77/Pwur/wcEZAoV
        "]]},
      Annotation[#, "Charting`Private`Tag$14404#3"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJw9mHc8lX/Yxw8aSlnJipCWSEtk/S4hiZa9ysgqIzNp2jJzVyKzkxAKJ3t/
T2bZHDqcYxxCSDYh8dzP88dz/3O/3q/Pdb2v6/7je7/u1y12y0XXlplAICgw
EQj/e0+faxr7PR8EhP+7tpC1OLKUqhKDQc1p/IxONguZ4KNYajjwDKZHp5v6
hFjIRdPNZ2dEQmHY61QWcywz2cncPO+ZVRjEy2TceyLITD7QOiMt+j4cQo4G
iyqlM5GfZ3Mf1Tn8HE4tcOXspBDIF4RTUyfso+DU86tnPrkTyE/r4zm/6GNQ
rpTTmclHIMvISkWaxLwAbuaXknGDG4hj2rPpkNxLsFY6lndefQNNplXumKe+
hPxUuy4D0j9E3HstOEwgGgp761TuJq6jRy2xtYZl0bD3cMqE6751ZBjEYBY3
ew2vGkdyqG//ol1Lbj7liTEwem33qG7xGvr5qazymXIsfNmmRK66tIaqbVjW
9QZiQeOhoJUiYxV5d0V7T4nEQcp/e0Vt+FeRXkR/UQk5DlhlNkmJpStIWv3w
UqBVPLjpW5T/u7mCRvKL3YTfJ4DqPTGugNw/SOcVzeHq4WRQPpYgYua2jKS0
xTMFG5LhjH7z6IMjy4iVxennmP1b6IpN2UgZXEIWpRufkT4RgreS5T8bLKG9
Epi0ccw7cIr2v25puIiYgwquVI3hrHgk105wEc0yepwOyqXAifuBxt8HF1DT
G7GPs9QUoLnmEIvuLiA/1vwjoQKpMHbaqIUtYR4du/giJM81FaJcNmrKbOZR
Z5DLBL0hFZg9VDOTTsyjgyxSH6W90kDaeAi1fZ1D9f9Spbs60yFfHemXb59D
LkoBUf8kPgB1s7WG1juL+B9ZzR72+wDJ9NzdA59m0Z0V4bwHJzLgeiNdyc1g
Fu1aiDkrEpEJcnuGlndazqDCU/diNH9kwpbIIO8Vzhlk7qr3x00hC9T3zeuq
1Uyj3N8cpbXjWTA8zV9RLzmNdMdDlBwufIIDDliPJ9tv9Kb/oVrhRg4kpEvs
l9yYROeFTFIHDHJB5VfswwbyJJo0ldvKmp0LNpS3cqqBk2j/1APr7OMkuHVO
vKZi9yRyuSN7iNBHAslODy/ZYxOI2yY3I+1cHnyIZ17RCvqJ7AL2myjY5EF7
ko7+K72fqDwlckdbVB6czjry1fPAT2Qz5OiwMpYHjp/fSS5/GUOF5keltF/n
w7mAp6Tk7WPI2ORd7uxcAXzXst4t9XEEzdD1d6YIFoI8JnTLNXAEBZuz2uqp
FQI9uXEvr/kIyrd2ESyKLoRE9352H+4RxH5XOeiRXBE0mggWJ/j8QHX+vabb
nhSDty8T6cudYXRja2RhcVoxxCuuXnXUHEbzz1Q477QWw1jPBxXLI8NINPJD
XZNICQhc20w/MjaEHsfeO/miugS2JC9+YLcfQqc/cW0TYi2Dp6ETVlb3GOib
dJ1ly8kyWPnW+1jDmIEsP3uXPzUpA85HpLf2igwUWTToOpRVBvry6hRTZgYa
J2fT06+UwwPDn8aDhwZRcvelz6deVcBFy79bHR73I7ZNvxsX9yMIIgl9q3Wj
oTd3jMylNBAwsfDdG1OnoYNdUpZcdxGMCNxMN+Snof8yqdb0SgSBLOXaIuRe
VJoZU1gsTQbXLExdcU8v+q03VaHdSoYxrmDXpXoqMsiIbfLYXQ1/AsxSv1h0
o8Sb/pftxKrBVPSeoJ5iNxrmdm4xPlsN1MiAvfv5upHLE9U25ZvV8Neu45V5
WxcK1f3duT27Gpj2+Y89Uu1CleuqtITLNVDVdZsXnaagQzrT4zXhteBR3vXE
9VwHEvS5qGD/rhYOVywYNfJ1IM5sYvjO4lpICgs9bfynHa2x6knrDNdCh6m4
HHtxO2onF3sMnKsDipHRDPVcO3p40m9jZbQOOMMs2XnCW1ErBw+PtEoDMM4o
ZbUyNaEaZWfbDoMG2NkysZW9uRGVONYXeTo2QKs4dSQ5phG9b/A2KY9pgCIO
8dE8qUbk7dOfrPm7AbZ1WZpE3/iGDsykS1jHf4Ut4uxYXWMDut8qD28Wv4GW
9d/frv21iF26cPQbayP0uFzt7c2vRamRJyP+CjXCgciHeo/DalHH5SO95hca
QXXhY5rTuVok2cTjcSimEaaVvtfPxdSgwYaZ9Dy5JhhvTknVNK9GF7+ksbc8
bIZxl8aZAzxkNCAqVrjxvBl6qJb1usMIefommp183wx9bAEvyIkIvYNXGa+a
mqHk3wdGBTdCfyt9VU2FWgDbd3buGEsVyi0z8/pZ2QKPN4+SPJfKEV8B1wAT
UxsE3tXFcoVK0I2Iv/ojvG3wKShvkru/GKXYjDbVS7WBUiuFQk0qRlJ7S0vD
jduA7DxzJ1C0GKl6Wb7eS2oD38bNALNjRUg20Sg9+kQ7YNGVxIRrBcjKPP1m
xkA7qOR32tj2k1Cg1r64uIl2WBfX3iGaSULpslhX2GI7LArIVkrfI6Ep9ofa
zjs7oDkggabBTkJe6Ir8adkOUPFrj8gNyUERoks8FZEd4H06adPU5yMqGlZr
blPqBJVVywsfhtLQd02/uciLnWAp1ppt9DwNLedU8V7W7QRR8/7e14ppSO6R
vNVX+04g7KdcKo1NRSV7TiyTX3ZC+68Kk0jD96hUXVA0b7wTjtatti/8JiJa
ltEF14VOID3LcVR5T0RrnK8dpDc6AXNovMNtQkQK/RyFWXsogK1dkQ6NeIvK
7m3Vev8fBRiizJIZV5JQRfqsR3Q0BUQz3Z44EOJQ3y7pON23FCCO7RZWfvQG
rbs7VnFmUWBWUvAe259YpAxjrJGIApYSruTYuRhURaUnBU1SgFDIedpwPhoh
1oYGL5Uu4Px3/lmW2AtU7ZC0z2SqC8ikWq/f1oEof8LR0Xy5C0R7iuT53weg
1NsK5daEbvC9Fr6j+Yc/CrKjmt7lwXnAi6vxjh/SvMUVH6DUDSotm13/OJ6g
NpMg/pwIPP80kRrN747IPXq382NwJk6OLtW7IpLRgZISIs63J4JDZ++ilwbI
qKYA54Omqhca7iBDndWYnr5uIJgeTAzztEB9ms57WY5/BwKP4yttBwVoaVC0
ZZXDeTrV7YKeBlRp7CzcfR5n6Xi5LWbX4K36B31+A5wzNZ+3vTKGWypDr44/
wfkjn9OX3zYwLmfAbdzyHVTMdGqCYt2ht0j81k0qnrsWJbtHeUDj2fnPt4a+
gy86K5sX6Akfz0TpOC/h9TsGVk/ae8HdE98wf2EqqDinL1jseghLh5U5sp2p
QOC9Fhfm5Av/Das2hHlTgfFUe1S8zxeCkzR9bgdQgRhIElfU8gNeHv0Z8Tgq
iB4ZaPsp5g+yTI5t8bVU8GWT2DBCAfC0wvWZdxvu9xcibB4IhPr7XmBIw/1O
ST5SQYFgNO2XyzWLs/HZAyIXgsCb/iYqZF8PMHI4vvvkBwM5Jvmi3eEeUNn/
KOc+2zNg1U3dVDuFc6ai3IbVM4j7muuyqdEDZNO/JuU7Q6CssP6alzue56ol
c2mHwnrUIofNtx7w7S/o2B4SDuraaw3nu3qA0J8rYPktHCK2EXxFBvH+7fN+
hjsiQPgJ2yxtEZ9PF7MVC4qA/xwOtOuI9oKo7RfuS06REHzoaMgJyV5QmStj
+pQSCa2M4yq7ZXuBHMlmVECNBHMjedJX7V5gTD2qLlF+Dj7q1zG4j/NuDZXM
1efwddNAU9i/F4gu9ruvH4oCznIzwt8I3N+IH6drUUA8Ze9alNILvl11arrE
KBifcjoanY37tU0bcuuj4GSGO8OtBM87dPkqf0UBef/T68dbe4GQSlNc4seA
lRbAytaL+2aTBYIlMLj+OpQ8/qMXMGJhiKs8BkNsr0+mruL1j/zJekYYHGuI
H/fbQgOGCsX0ii0G7v5EogUHDUS1siVS3DFgXv3Iue8QDQgRDGaLcAz2tagu
wAkaXBehUHfGYCDzrrfbRp4Glu5H7h4lYnD5nmtJqBpefziNvyQTA9tL2xNy
ruC+o6USZXkYPBVOfkIxogFR1WtBuhyDmDkZyxUrGvimvm7grcHga9ytQ6pe
OP8n3qXSge/rvLrd3pcGJ/M0cwKoGKydxybDw/B8Cb4r9GOwh/dICyka3//C
zkS7YQykJitzu5Nx/33da9t/YnChSv/lWgYNVB45g/AvDMxf/vIUyacB55Bp
ecY0Bl52/kbqlbjfrI4raw6DKAUBhTsNOAPLC7FFDDLYSULPO2jQvo3vGccy
BuRhjc08Ou5vyz3v+QfDz1v/EHWUBq49EuzXVzCYD/OsXZ/Bn58pSv49zmwW
bB/E1nC+EMt5F+eDZ1JCNbbQQeVc5iAJ71feLu/kyE4HSz/avCPuN6S3XcX4
6UDUn339Fp/vkmt3qvAAHWYnLXguz2MQEvBvD02KDr7rV0vdZjAgGkUvb8ji
uUx0G+cUBqWSkr3i5+nQ/qn4ncQ4Bp2bX8o1tenAMFt4UPEDg0mKcbKzAZ5H
nUn5NoABS8aM70sLfB8LPhudXgyEHgdbF9/BffvmWPUpGJy9LqzR50EHrK6+
t6MZg6sHC44yPaUD+YGuSFMdBnYrWmyHQ+hAGmU+oFKFgU/z0G+tl3S4XvBX
4lQRBm+I3u0uifi8f3t9krMxIHly5Een08G1gHE7JBWDYSFl74EyfN5WPT4K
hsHfWYopSx3uT8i8IxOMAU+dg/LRNpwdOJz2PMJAw/kNs/sPOnAqasdpW2OQ
WbkQsXVXH4heJp/4dByD6hdhLsd4+4Dk8DWZWQQDmq2Y7jXRPrjeKfOzhwOD
XezX+OJk8HoPtyO7GFHgap71TupmHxACVty69KMg9PT5QB37PvDdeTYt8kQU
pGzrsfNy6wNG271yrR1RQMnZKkUOwvNp5bedpc9BdtOySC8H911kDj/C8Rwu
XyH7XyjpAzLPaNrCcCRYJ4hck6vGufmFaUdhJGByAz8Fv+O+mq3uNcaRMOFi
JjD873/n6dtGvYoAQlXZKGV7PxDnC24uWUQA7y7BvDquflDRKE9zlYwA1Ywe
rcxD/UBIuPgnA4VDIsPgseuVfmB4Smod7w+DPOlCzVtG/SBqGu2klRIGXx/z
7NW36gffqrfevnZhsMRPyZa7h/scY7nlp0Lhqs71wY1EPJeriBufCgGmai3V
yCk8/6z1711NMPBzZrH7LOO51Oqy38NgkDbfQXclDIDluDzyOxkMpmsNHvo8
A8DYNWY3HBcEBacvpO1TGgCyQnP2mVuBYPceWLPCB8D3SU+R2zc/aA6Uaa0/
Nghk+aQT2pP3QYGjifnF2UHwTc455sh5HzLirOTMVPB8eeBEnIwXBOQ8J84Y
DOLvk3dHxe97gkLPuDu/H872iTo7Rl0hQzKJz4GK92e8Ehj8dgtUJ/xJ21QZ
QKikCLJw30APpFsbHS/ibDZ+KeesJSJ5CIy2X2aAr/o2ma12t9D+jVyBBCM8
/1JUl9Vhh1a5+/1POOP8ZFdqWpcLIinJGRi/wTlULWde7QESwX6tZk4zQJRX
RndXejCqsvLJzFvAff5yJU9UnyHzM3tMylfw+vhuYdLgM5T4XaGkmXkIGOWn
PhoKhSJ+4TCvGd4h8DW8eSYlORxxZx1dkIEhmLXT87pvjaGttbZTKApnRe6n
hzpfo19/Bge6Tw5Du+0ZhTAGERXZR1VryQ7DiktavC3fO+RL/S8dKeIs2GPu
efUd4i1Ocs7UGIaSxPNIsvId/j1qtv74xjCQWdmTNhNTUPzid4GDIcOQcZgw
IWGXijTnWvTdB4eBUJYxtC6cgVInyxvZn/8AG6Ujx4o5SIhd+MPMyMgIPHYA
zZI/JSjiTqEd8eAYZD2+raZ87gtaVvk4ctvnJ0i6eCkmztUjz9O1Bbw147Az
tcmwvrkZDebUhneITcKv/DV5j+4O9NehK0Hi4S/QLq8MnfDoRpLnt2/YlU+B
J/vAavCOXnQxRcz+M980KNj8ZhiL96P7whYHhm7MQOB+3ynFaAaSmjJgo16Z
hXOJk2P+KcNoD8csa+3aLKxdKmZCiyNoC0rIFU+cg4yiry6nZH4iR5ny3h3a
8xBN/TL5qXQCfbx0i1i1PA+Rv4U/B2lOoaVfgpxjMQsAFrle7pXTqFDvIku0
+iLUn8nmUa2cRT6aQW8LxhbB2ECdh2/3PBLr1+p5H7QECl1sQwLmC0hBLjBa
4PQyKGBWrxS6FtGN/W2rTJRlsFaL/LB0bhktNUYOu/r9gWBaV1tNzR/0Zou5
p+7BFWi9P7y7UXEV7RkoTGGuXQGCmvjEwfw1tPWJn7682ypoCg0pROusI0Km
ee4w9xrso6P6bfR/yD0+N5K7eg2CHxeLu0VsokrJEFauu3/h8vD5Mx7JBDKX
lruUP/s6aJ790i7lyETuO95OeVCxDhUDQefNLzOTSclwcMT8H1SYfbeNEGMh
38yV5RLe+AeizFUZCkssZB6e/m6hbRv//z/ufwDC3vrE
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$14404#4"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 1.9999999591836735`}, {-2.5, 0.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.774106977419271*^9, 3.774107445481491*^9, {3.774283958350016*^9, 
   3.774283993993878*^9}},
 CellLabel->"Out[36]=",ExpressionUUID->"86596b7e-0ee4-4323-8b18-2f5d43c21a24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"muB3d", "[", "t", "]"}], ",", " ", 
     RowBox[{"muB3ds", "[", "t", "]"}], ",", 
     RowBox[{"muM3d", "[", "t", "]"}], ",", 
     RowBox[{
      RowBox[{"muM3d", "[", "t", "]"}], "-", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"2", "/", "Pi"}], "/", "t"}], "]"}], "/", "3"}]}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0.3", ",", "0.7"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Black", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "Dotted"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.15"}], ",", "0.03"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.774107580588468*^9, 3.774107582016644*^9}, {
  3.774107626365882*^9, 3.774107655443611*^9}, {3.774107686693182*^9, 
  3.774107734360211*^9}, {3.774107773366148*^9, 3.774107807423234*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"118c4e10-b207-49d4-8d4f-659b63534ae3"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQ/Vbyu7Wx8WV7Bii4ZNp90tQUwd8RKB9uYY7gt3S6
F9laI/gyP6evcHdG8H1uWIjGBCP4q6dVvWspRvAzhf8tuLYZwXcRPMHhY38F
zo96ljOx+SCCv23hEwNdx6twfmGi/OUVpxH89B8m0575XIPz90zmjfl2A8GP
EN1pUZF0Hc7Xz7M32/MIwU893WF2KfcGnH/t/5rwVe8R/F6pJf1f8m7C+Yst
404J/ETwv+h/Vn1feQvOX6Ll3TKf9TacP5u77OfBPgS/Rulc98EJCH6MpZrc
wUkIvlz6NacD0xD8RYfMevbNQ/BXVH6X270Owd/yvMJlyzkEf+q/C9c2X0Dw
y0Q1MzdfQvDNnW/2brqG4O+aZ3l9wz0k926dmLnhAZJ7z7z8vf4Rgt9+SIQv
6xmCDwAvXpp7
        "]], LineBox[CompressedData["
1:eJwVkWk8lfkbh6VCCFGW1FgqmeyF0NRdlpQWS9n6h5OSI0tZRykKRRM1spWt
3RapVJMOz82paCPVkOP8nsOxPOQkUpElTf8X1+f76vp8X1xavgdd/MTFxMSS
fvH/HXr5WvLCAB8a14pN5UezqVrXiYDyT3xgPb18SbEih7oS5DJVNswHXdiJ
FT5FVHxC6dmyET7E9Cgds1O7S/nmiGuVfeVD62iIV2dfFWVzZ1flzVE+7Dsn
ebcmtY5a+uyu3c3vfLiuGVj/lVdPzeqQbiud4IPiJfGh2LZXVO833wOlU3x4
2aDXdvXJG6peljNVMs0HlW83tqhFtVBFS5TOlYgRkP/Yk5N9nEclWwVqlYgT
oHMq0xR7aCrA+XFl8SwCv93TiQMnIeXAVt9YLEEg7JYqr7+9m9KLC28rkiKw
zzur9mcaQ8lmvTxQJE0gq1X6SmzkB6rxccy5QjkCuzP0ZhTUDVG1jCDgjQKB
kCpBmiTnM3V3jrXtlCIB3j1nC+eKL1SWo9S4swoB+3T5nDnMGJUcFvjuqBqB
po9+1qG6E1RMZlN5kTqBxIvjPH7iFMXiZ/j+0CBAzSunW56Kocv02B+62gTC
NXlTs9TF0Vbrfyo7lhLo3mSZbHhsJv7ur/WqWJeAa+xWOoAtgSMj5WY7TQj8
qBU76NQuiz0L5inErSJQ5Mhp18qWw1aLiIESMwKZ4/K8g8YKyIm1uvTTkkCk
YWprylxFTJRukLppTWB+tvV8vQXKGGWworvFlkBAT7q2wXIVZDul1ojZE7hq
7B1ZAKq4LWtHmNsWAhreE+EvExaisnYnf8ZOAp1JuZXmnhooZWfzQN+NwJnc
FXu2OWrihH/h3+4eBLZ5e11c9U0TO8qD7Mp3E+i/Vtmb46CNxZbjtzz8COwY
Kxx9pr4MrZwV4yuiCLzbHpZr466H+hGRu9ujCfwEzaTZBvr4W3ab+ewYAltJ
YOvX2QY4ky4Q7Yr71fddxLBnnSG+Yuu5SiQTKOVv0FEzMkHv47a6XhcJiC4v
+yBQMcNyOT2ZvbkEfJ5aJpinm+FU3rxP7HwC90c0Tw7Km2NulaAy4gqBpNLX
Sofnrsa2kWhIKSHwMLKxcIaaJTr7lbtxqggc8AlSrgxdi5e/pFvWcX75o35z
BsXX4fCJI4saan79hZ56kJC5Ds8W2He9rSNQ3G2ZWU8BvngvDB54/qufi0Nn
k8IGtHVQPqnWToB9rYdtnmGD6W1T/hqEQPO8KfuKPhvs2t/tsExA4DEvZGXL
Gls8kXBbwaSLQO1Ycctyxhapaoe8TQMEhB/cZRnrjbjaKK7yzwkCBZMrxO8t
2owr5vcLWxbS4NnbsX22syP+dYsnK7mYBpNnDuwnXEcUbXq52kKDBg+V+29v
LHTCsmO3UnOW0NDuXzbP86wTGvVFWPro07Dh+xODkCPOaPpoRlr/WhpmbTp/
yd5vBwJLff0ki4bkyZmLvE+64+UJ2UD9vTRYNUgoF71wR7HM6UwvPxpIVchf
LgoeyH0uFGEADWeUPW8353mg7ari7MQwGq5F5J9nP/JEBwmzobmJNPQGhryc
lNyNO8u2F2gW0bA5hsvVj2Lh9vO5afYlNGg++HHCsICFm6L7E0Nu0gC9+8e9
61m4xjY+sLqChlj6+fgWlT2oTe5beDykIU9p62VXzh4clln87txzGprvFidq
y+7FlECR5E8RDTeJ++iRZj98uiI5lDYWwFHHj1sHuwJx0VGP4I6VAvgW4nV4
QjEIwxp1A4SmArAXxqoa2QSh5qHnrF4LARhNQb7c9SA8cl/aaXC9APInR+0K
/YPReH2q4Q8nAUi5btpgOhqCua7nRYtCBTDaq7DWTTUUQ4/n+e2+IwAX0x2f
5VIj8Gh7+O7yPzrA9435/cF5x5AroxNRS3WAx4F4+zitBCxKc32jrdEJ8lnJ
pYmrkjH/0njA9n2dYM5r0DzgfBaN1WSU+Nc7YfQy5/TpLefxy/zYmuaBTsiL
3ePGms5EXsKu8DgjIaQa+GWUii6il/d1y3MHhbCuSPTe430+KnAcZ0jdF0Jp
yr0+RaMryEpg84TfhJCZaNCxJuga/ksNVEeYdYEG62fiQ84N/PNo05VDR7pg
6GnTPXHvYnx4QyO78VEXpDtF0uPDpajr/DY1XawbWiri5Ffyy9GcPZLxaEM3
mOhGBZR43Eb/kZiinBPdsPHgIRflF3ewYXo/p7u+G/69XqiUE1CJT6OwI1Wy
B2zIsRdzJu/hyKHDs69s6wG7Q56frlU/QBtBnnnw+R6YXv/P91OJD9HkH4Po
nLc9YFrsMH3M6hE6KmpyjFV74WOwL2tSuxqleXFyup69UCo1YJo9VoMfFDcH
t13oBZ5ujNG5JsSxpvDGz3QvGIptFS0ZrMWrozLrgn5j4MaMx6M+fXWY0Zar
k6LBgNnYKaUXojo8+UhPvkyTAbvfOZdMh+uQHbulU6TNQIuPq4TMeB0aSZyJ
D1zOQFBetEyNNBerF0g3HDBmwD276pOZIRdbTaWcAqwZSGp27z4SycVnyhcs
TtswoFpt0TFymItV35drldgy4GSVsTkwlot51fYj/RsZ8InMC/BK4uJe26QM
9hYGhkoWt268yMXhHRI8/50MbI+HXYY1XOwyy6pLcmWgT22NVXkdF9+p6JQW
uTEQMd8iWb+eiw/4djF9HgyUfVEJ0X/NxaN7Ty7292LgTXQey0TIxRC7BRJJ
3gx0zm2uqOzlos/yG58KfRhwu/4syHyAi9aiJ8jsYSAlWmS09gsXTRt3Fkvs
ZUA9TcK8boyLOhU9f+vsY2AtPiuxm+KialrE4Y1+DNCnV5x5IfYY54TP8t2/
n4G4lKXtjrMf43/n6mnR
        "]]},
      Annotation[#, "Charting`Private`Tag$12974#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQAWIQ/Vbyu7Wx8WV7Bii4ZNp90tQUwd8RKB9uYY7gt3S6
F9laI/gyP6evcHdG8H1uWIjGBCP4q6dVvWspRvAzhf8tuLYZwXcRPMHhY38F
zo96ljOx+SCCv23hEwNdx6twfmGi/OUVpxH89B8m0575XIPz90zmjfl2A8GP
EN1pUZF0Hc7Xz7M32/MIwU893WF2KfcGnH/t/5rwVe8R/F6pJf1f8m7C+Yst
404J/ETwv+h/Vn1feQvOX6Ll3TKf9TacP5u77OfBPgS/Rulc98EJCH6MpZrc
wUkIvlz6NacD0xD8RYfMevbNQ/BXVH6X270Owd/yvMJlyzkEf+q/C9c2X0Dw
y0Q1MzdfQvDNnW/2brqG4O+aZ3l9wz0k926dmLnhAZJ7z7z8vf4Rgt9+SIQv
6xmCDwAvXpp7
        "]], LineBox[CompressedData["
1:eJwdk3k81XkfxTHRLZK0aSJLhQnhkbXlIy7JTEWWjG7ZxpYUshRKItVEiUKu
RM3gChUpLv0+ZGJsldSE+/39uC4RlebW8GRrPM95vc7r/P8+56h7H93rKyUh
IXF8zv/Lsdbn87NGBFBQmepRfiKAqnOZDCz9KICua0/aksuzqfzDe6dLPgng
lAX3zSOfQupMQvGlErEAVPawprRUyinvbCn1ki8CaH3Y53nuYzVlfd+94s64
AOSP3JGfSaun1v1ZbnPnvwKoP2CsVCdspOb1LuwqnhSAo5Z8e7KojRr8x/tQ
8bQAPIazMwzbOqhGuZpp3qwAuDquOeqnX1OFa5de5kkQ4NBVURkp3dR5iyB1
nhSB2zNPtFO/0FSgY0NF0TwCprb8fefchZR9wGrbIhkCzB9vpS8MiSiduGNd
hSwCLZNv1+zKf0vJZbQeKlxIYHyIf6vz3DuqvSHmcoE8geC39IiWYIyqe8sE
digQiF27d1Kp5W+qfIEVe1qRwCHz8YK/6z5TGXtYXx1XEuArxU/cmJmgzocF
dcauIqDc788NtZ6kYq49Ky1cTWB1+uKhrNvTlKfgqveMKoHnnS8sQrslcO/s
xBZtDQJJ0rYcKUMpZKvvX+m0jkB0Mdfx8bXv8Ad/9bYibQKdu4cf3UuSQbG4
1NjZkMCHGZljKTKLcGD5EoU4IwL5zXFGwU3y+JdZ+AjPmIB94nufGnsFrDll
cfObOYGUkBUPE3QVMXFhE+uOFQH96RLHxbACI/U2iF6zCSzQD4rXdF6JAQ4p
jyV2EIjnruK+PKqEuzKcwlx/JNCjviP5Hf97XKHRJ5B0JpAuHPBVzFNFlo31
Q11XAg9C0sKGw9Vw0r8gdZ8bgbCUDVqKKurYW3rYppRDoFjFeowdpYFF5l/L
3HwJpGYun9JyWo/ZHM6FBH8CUycj+90VNTE5Dn3KAuf6i3++reuVJoY+Pas0
78gcDybQtdxHGy0cFc/cjZzjLwbJgSId1A2P4PQcJ+CCXqmHzujimswuE+kY
Aoq8mKubPfTwOzp31D2OgFdn5lSthj62Bei4yJwnUFZXdSs3wBAPnmZrH7hO
wFDjtWiVnzGWyuvI+nAJRNoZ8NYOGON0zpKPATcILM3r9cvxMUFuNVMRnk8g
Q2TR2uNnil3i45DMI3CaLzK9eMocHX1LXWuqCWQWzebxxVsx73O6eX0NgYMD
OaMV57bhp/ho5abHBJodL29UXgN4KXdH/8t6AvM9q57laFliyxth8Ejz3L7H
0xY7e21Htv2Ks6t6CGQ36Hb/MGGN6V3T/qqEwJbDKtvX7GJjv5/Ifj0z16+e
2fqW22yMT7inYNhPYP/kqJedkw1StfY5diMEhDU/lTJ8WzTVj6uImiQg2Su+
GFayEzcsGxa+/p4Gy86AB1w5B/y1rFtuvgoNX2eTeLk7HHDUrtXUTJWGE/pe
rosSHLDkZFlK9loaOLk73+hNOaD+ULi5hy4N2x6MRMR8csRNfMkrw1tpEGGw
5s4xJwTP1ZZTnjTY7otyLtvqhnmTckG6PjSEKa3Yrp3khhLXZq8d8KVhPRMy
uOi5Gz5pFo5iIA0dUe4uyt4/I9uoKDMxjIbB/pkOmxR3tJcxHluUSIPD9bPb
Wic46FyyO1etkIZRq5/Ez+W9cHca98oOHg2rZyxvfjPzQrvjw4lH7tCwyf2K
iY+PF25mnwmqvUuD7Ax7XWOVF2qQSjO3KhoqByemJn298ZOsSuflZhoKrZJz
1Fp8MDlodP63URqkdY7e2l/th083nA+lDRj4o1KlPtUoGJVj3YJ7/8NAnlbl
G2n/YAxr1w4UbmIgwENapSg7GNVCmj0HzRjYpP7CKFzqCEZXLnT4YMlA/Xv5
tA2vjqCBZcrGGQcGPF5msViWIch1SRtVDmWgoFV6Ue90KIaezvHl3GfgUgNL
x4kfgT10FO9CBQM2ZUu+upEItNrs9OFhJQNXQ2JcTsxGoOL4goglfAY0Y0Or
F1hHYnlQVGLjEwbW3B3SC2yPxC+ue28bvGIgInH6T42hqLn/s4TzJhjQft/U
dHpjNMb2HOOUbumFH+8NDg3JxeETWc3wOqoXLj6caePkJWLhFZcODdU+WJbD
DPo7/4o3bn4N3P1LH3woEYS9KEhFg1WySwW/9YFTrlW6re1V/Lzs1OMXI33Q
PtCcfSI7C7sT3I/F6Qth+b0q9xKrG3jg4G/ml48KwfN6k2XvVB4q1OyRZFUK
wanYIVOh9jZ6JgR0C/8RglpN3+eVJwvwFTVSG27cDw1/tXSMcngYFfssPyS6
H345qWN6qLQEq35XzWzn90OOR2q67Je7qO34MiVdQgRvWj9NGfbcR5MA8VX+
dhFM9Jtk3CyvQH9xTGF2vAj8xrZJuWVVYtOsX42oUQQtyUuTjtU9wqeR2Jsy
fwDGWe9+DxFUozjkhHT+rgE4aMd152ytRWsmxyQ4bQCqs57Z7ymj0PCR3vHs
lwNwfqMg1DGpDvcoqtUYKA2CNe+uaaOgHhd2x8lr/zwIhVlgl6jZgA33ohNT
9w+C0f/VgP8CrdzyDw==
        "]]},
      Annotation[#, "Charting`Private`Tag$12974#2"]& ], {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJwVlnk4lG8Xxy0typIWWmWopKRUiKRjC0WJkF+pREIRRYUsk6yNmXmULXtS
ZCeE5GGkBZUozIxlskxKIUSovOf9a67Pdc59zvcs9/2MnL27haOQgICAqKCA
wP9/f6ye0tq9uxUKP9Dqlg8kky1qtDdqaq3Ae9tua9+QTJabyx7X2NMKhFj8
ysqCZDI4wuiKthbad60YCvZNJtdNx2UZ6bdCs7F7V5hkMmnaoSFle6wVdGjj
kbr7k8icWN/hYM9WsJOVX+uTlkC6LP+X1vakFdLmTmelB8aRBktfi5jCR0hr
md4Vuj2KPMF3jbpV+xF4VKXolLwwsux+v4qy7iegxu8z93PyIy+flW3NakTe
95Ox+58D6fRbNZZv2gYCTcWG2b8soequuO1kRxvUiHIaK8o8wUaqQsPbvh1q
amiLK0cCoWp7gbHPuXbgCTYrs8WoIGv80Mb3fDvoxJfKv5ajAt83ytvvQjtQ
KjO8A0yo4MlzKadeQX+HqwsOp1CBkbNGIyKoHQT2h+721L0JL3T99iSko31F
16JR/yDYcQnUq3rbwS4l6ZdoczBk3NVhDPa3Q5pehpVRXzCsqtDlr/iCetwF
ijwng0FonkGs21A7UFeq2KeuC4G2e8aT6yfwvMX9r3rOIeBXb152c34HUJLS
zlX9CYGGdefUjRQ7wG5uPDdsTRg4Noart7ghv7j3YWxLBKjbisex3TuA2nnw
2lWNCBD5ETXFu9wBAg0Prw0ZRkCuRGL5yNUO0GG3E0UOETBhnrdXPKADePJH
bB4lRUBQx4f9xgzMN01L3C12G1IG1hhV5yNzYmUHP98Gj2upmfWFGN99kSV7
+DboLdwo8rYY7eUbVlbP3oYBReU33DK0l8WY2UvRYJsrmExXd0CNuFGplDEN
KscczFTfo15lp6ItOTRom8s9nj2CdsuSA0udI0G3M5Ka+RP1CnWL7PeMhNxy
18cZ4x2Q9sJiwZmASAi6vG02ZQr9dbil/tGRoNyXk3J3DvO9CVmyvSYSgl9m
D/gtYQOvft2Pk1J02EXP8jTbwYYa590wWUaHZJfwJNOdbKBaBInn1dBBxNC5
/uBuNuhQXPVtGujQ/W/zSoM9aP+bMUTrokOER2alBqBdJdvSWZgBvGOPBOXN
2CDwa5icNGUAfU0Gc+ISso5Xumc7AxYLMwVkLrMhbVt4qhuPAaFDPpcPeLKB
or1664mvDAioMjsWe50Ndu/ShhfPMsDj9Ky0BhXZqdCxUYYJFukWKTei8Dzn
Nf2NHRNWbRXMEyrBelz6yZedTIhe9l1GqQzt75bUSPUzYelsG+NYOeZ/dDr4
+BATFjflemRUYb0KFLsn00yYdbNRNaxHXh13kL+YgO6igmcRbWzwiBLaUbeJ
gAeapxskp5Hvyt+NsibAj96kv2KWDSr9jUnq/xFg/Xnv85V/sR/SBTOfThIg
ErGycL0gB3Rm35QKnyXgUkdzzLZFHKCksbXWXiRA47r+WePVHCiU2bRWK4CA
pY1FHJO1HKDuz3saQiXg23qKpZkMB+ubLm4IIiD55R9DazkOCKwPeK0fRoCQ
dNm2c1s4wJvve3OMSUBTieLvQE30Pyb4XC+NgIcicZdvaWH8tL93d6cTEGA7
fyhUG88f2fhxfQYBO+f1dtF1OdB8OOROfyYBsccS6xIPor7i5NXKBQTYjYkz
n/6H/mt/8oqrCNA09BN5dpIDHr8K4w5VE7As4dvN6lMcOLqiq7aTJKBe95VX
/VmMVz3fc5RFwNYo6olWF2R7+xOfXhMwsWN804gP6iuWb4xpJaCH6fpFxg/j
bdl7Z+QjAQ0jA1mmARjvnixPr42A1IIOpewgDtRIhy1v6yDg0I7qnY40DhBT
lJH8LgLUmHvG79I5YDcpKPypmwDKSGEJi4nn/ZZmTPQQ8Cv/wR5KNJ7vHiQo
vQSkbY/Q5iahnvFMJSU+ATSG0NyiVGRXZVLmCwHXhm/UaNzngKSCOn/RIAEm
+Zf0Yx9yQEXz9893XwlQlxicV5+J+RkGHZnfMN+lsy/HH2M9a/Za+Q4RMKls
edA8H883GUiL/SDgM/3tYmohzuf60MlG5KYfhk35xViv02mt4GEC7udpmok9
RX9KQ0PvCAGR4k8ktSpQ7x8Lv/BR1OO2rcXlGdoNXjds/kmAqbKs1SsS8+2P
1T02RsAeerz0ZC3ON9r/Yg+y/I+lHRtfoL6ES2qO4wRM5c47GfQa5ycckXtq
goBesYB1RQ2oJx5ONiM3uU519TSh3XBN3r5fBKRv+2an/QH31dpSW2iSAHqk
g7xrK/YnEPxPInt/7+xL+IT9OHzeIR/Z3tT64Zt29FdhjM4gH859f/43G/W4
+m3SncL9FjuouLkT9a6eFLqJLO/K+mrVjfOh1ERUIos3aeUE89BfO7XyB/Jv
pVLXJ724/wI2sWt+E9BH2769tx/jN+bL6CK/G8ockfzCgdEWJ/OzyOUmckXw
FfVTjHbdQH6Qk3Dl0hDqpUvWMpAZoitUk39gPxvC/iUie1+k/2ocwf7beAyl
Izs0Lng68xP7RaOHP0A+okT13jKB+ejpbcnImrRpTZtJ1GNzpS0KeePQldnQ
33g/npPhgcgSJt+rSmeQTx0ePo88ne0Y0P8H+5vftdAYuX9xDyyfw3h/drXJ
/1//BRtBPUEu3oclJ6aw3oqGDywPYS4UtqpG1yNnbDUJTp3PBckVjiF0ZMU2
WYkXC9Ff9oHdUeTcmxNxg4u4kBaas10cWUX5jZy4GBco8mqjddj/ko7knJ0S
XBBIn3zohawRfEXNWpILRxmPjsoiV+0wIn2XcYF6YHa0DuddFzraUifNBZUX
F6VmcR8Md9XbDq7iQo3/eAIduaHrHl9sLerjT61ag9yiqj9jJcsFu++mgnK4
X9a8lcG+csh7RNwScf84tO/iqRu4wKNLfVyC3NsbIze4GfnPdCwf9/k840KO
2Fb0v7l3whj5myao7dyGPJhq9hD3f4wYNPZVQb03soVN8X4IgpaHmCYXPOrc
vMzxfgV/WzKjooX13Qppu4X3TyS2/5aVNhd0zO32FeL9lPxBj0vR5cLoXiXp
KbzPlERetcqh//unS2n3Y38NS42tTDG+uN1j6MP+jkW0+BzB/P1ehvvwfVA5
uJvPssB6sy+mbuARAFMh4lYnsf92Uz3ZXAJY6SfifE6hHmXOB38O9uvIDrmU
M5ivIKXlEBv352GH6hcHjL+JKdyK79fpY0q2Pq5cIHyt1JM+YD/+zQ0kX0K9
BYxiaMZ+ZH90Z3lgPsOt+l3vCHATDLglehX7JWWYsaAJvy8FzdnJ/jgvSXWf
ZS8JSBS9Nl3LwPknZy1YUoF2+Xe0WgLnP+/OhitPCbDVVFhfewfjaxdvaC4l
YL1Tm15NLOq/9vq9XzHeb5Z6ZHUK5ptK4cfnEJDlM7X+WT7qtdke0ZlEQARh
VlRZiPajS9cOJxBwITNTv7IY++PTFz8TT4DSp+POFWUYPy7wxLwYAvJVyoue
ViP7l8/jRuL+ffE2KHmH8aS63GJuEBDzr7ntSTPuk7TrnJUPvmdSW1yetCDT
Q0OWXsf3S59NL25Df/mbl32uEFCZotle2I31Nfm3i7kQUGM145I3jHpMWBZ6
VgS8rbvBfCTRCUTPocqhLWjnd7t8kOwEFU6o81sFAooX6Rn8WdYJkoHXtR5v
wO+Zmci0+cpO4BXKWpjJ4PeMG23/V7YTRoXlrawkcd/G8tQsd6I9wTzyzjcm
SMvzuIKWyDn7urKvMkHkgH7ZNmvk2+t/TbsxYcbpEXHcphPsCtyo2ueZ0JPn
eiDPthMEAm9O3rdmQpbmdL6NYyekPSkI5qkzYa/5sqCCa+i/rO6g2i8GnKYa
KJ661wk1dhZuhi4MyJNQEnVI7AQdeOnKsmPAn6Slw87JnUBZKEFVtWFAYkX3
E6/7GE9xN3/GkAEdY94Q+Rj99/u/ldzIAHPHPOtnFWifX/L9bCcdDA5Jh6zm
IB8zDk87QIetKwY/f1rTBWntpg6vZmhwO58ttlCmC2pWuugODNNgyLhxj4Zs
F+gE/PdiqpcGuf759IQNyJn5z2caaLDji5fmmW1dIGDQl+adQAPVSsGoQe0u
oILDfqs9NAC7tTqzdl3AKyt0T3C+DZa5R1IomZgvK/hR/ONwOHInMcroMTLP
vl85MRyMvQeDL+V0AYWR51seGQ5aBkEXqwow/rG5kjz3cJDvLNWwKe8Cu31v
AlephcOoqEwr8w3Gb+edH30eBpEXhxbODWG8A+/Vi16FQv3W8MtdKt2gkxYt
XPIsGC5Tkxxti7ohLWYd9/QNKvhxPG3z9vWAAPu8TX3gNWCJKnjVVPcAVYG3
fVjJCTKjrD7Iy/JAgBfX99hrHpmcOu1y5BwPqE7d1DOrXEmV1aLLuRlod63j
qi7xI8dXBDxv/saDmsy6D+PbQ0n2rROegTs+A2VTwXvDagZ56nSGJtP9M6RZ
H9qzI/EuKfnMTFCk9DPULOuTlr0aT9rdcmZ//vUZmoUk5G5qJpMfq79Vean1
Qk0jL31G4j553e/dfQ/fXhgsZew1//SALH8oG/e2shd+C0qdvBr+iFQ0b6Hf
FeiDrE9+1CXRj0l157HoSt0+UInOsxcJzyWdxm5kJtzsg/CYJ/Sp0ALy1b/z
z/pe9sGLDxknEi8XkfXXyB76wn6ouef6RVbyCTnm4TP//uF+ULTK2WDVU0Lq
dyepu93ph1491iKRkjJy51Nl74SWfpj4FHDG72o5abaM8kxl1QAMKvc/m3Cp
JBezAyUU/xsA017J9xYHq8ivyw66dcQPwK75EqVXt1aTU+883/7sGoDWhZXu
TpQaMn1SdL/rej6sC18eekG2lozuSFSIlOXDz629MV831JIhlUpLcil8MFJu
WeqiWEs6B5jwhuT5oLZx5rDLzlpyxwJa0MXNfBhrz2i7pF9LVkktfnVBhQ9x
+3Q2MJxqyTZVkaMuenxwLYjxlimsJV9Lx2tE6POhb2L23+OSWrLi92a5xwZ8
uPvzwah6RS2ZVGU0NmjIB2GbZCkLVi3pYBAW7WzChyV/PR3pH2vJ0WML2E6W
fHhanCG9arqW7FWLrQ2z4sNMwuDhnL+1ZOtKhexMaz5oVM+N7BdikWXcAze+
2PCBphbp5STKIv0cQmScTvFBKP5UwHMZFnnpgNSCsNN8cBe6IWopzyLPbH44
/OgMH65VqwoPKbBIvaEXJP8sH0xfnd21RoVFqr61zFrgwAfLc69cilVZpEJB
P6Fwjg+HxvNETTRZ5KooLx9DRz7cTpFY1a/NIhd5zrM/f56P/7t7Gf56LPJ/
vKF19w==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$12974#4"]& ], {}}, {{}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.3000000081632653, 0},
  AxesStyle->Directive[
    GrayLevel[0]],
  BaseStyle->{
   FontFamily -> "Euclid", FontSize -> 16, PointSize -> 0.02, FontColor -> 
    GrayLevel[0]},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.3000000081632653, 0.6999999918367347}, {-0.15, 0.03}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic},
  TicksStyle->Directive[
    GrayLevel[0]]]], "Output",
 CellChangeTimes->{
  3.7741075855064163`*^9, {3.7741076374370003`*^9, 3.774107657875122*^9}, {
   3.774107709549388*^9, 3.7741077374093523`*^9}, {3.774107782242127*^9, 
   3.774107810494731*^9}, 3.774283960409295*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"3a47e161-e99b-4316-bb50-665d4c8e1007"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.774289532691969*^9, 
  3.774289536908812*^9}},ExpressionUUID->"fae899fb-cde2-4c0b-8a81-\
fc2cee0b11e5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1321, 684},
WindowMargins->{{157, Automatic}, {Automatic, 64}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 313, 5, 98, "Title",ExpressionUUID->"0aacadf9-23f6-438d-94db-f7a8d5c3b71a"],
Cell[896, 29, 193, 3, 53, "Subtitle",ExpressionUUID->"b90de7dd-52cd-4776-8615-36e0de67cac6"],
Cell[CellGroupData[{
Cell[1114, 36, 228, 4, 67, "Section",ExpressionUUID->"9a1cf7f9-65c0-434b-8a46-313f07159733"],
Cell[1345, 42, 971, 21, 52, "Input",ExpressionUUID->"82bbcba8-044b-44e3-9fa0-3dbc0b72e6d9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2353, 68, 245, 4, 67, "Section",ExpressionUUID->"1649838c-9a34-478a-b307-56c387e8fd41"],
Cell[2601, 74, 833, 24, 30, "Input",ExpressionUUID->"2443e7bf-0060-4269-a3a7-f01b8bc19b35"],
Cell[3437, 100, 743, 21, 30, "Input",ExpressionUUID->"2dbfd720-d6ef-4ab2-a177-2a14eaa6208e"],
Cell[4183, 123, 872, 24, 30, "Input",ExpressionUUID->"aaafd394-d4c7-483f-8a58-69aad6662c61"],
Cell[5058, 149, 715, 21, 30, "Input",ExpressionUUID->"7ace336c-54fd-4f1b-a508-8950763f4528"],
Cell[5776, 172, 430, 10, 30, "Input",ExpressionUUID->"8b6f13a3-6f9a-44aa-857d-4b3a554baf69"],
Cell[6209, 184, 320, 7, 30, "Input",ExpressionUUID->"776f88b0-a068-40c9-b54a-3b3aaed1c2fa"],
Cell[6532, 193, 374, 9, 30, "Input",ExpressionUUID->"edf40143-c595-4cf7-8829-0e9f6fc6bc93"],
Cell[6909, 204, 395, 10, 30, "Input",ExpressionUUID->"3cd12001-473c-457c-b71a-00d7546ecd00"],
Cell[7307, 216, 319, 7, 30, "Input",ExpressionUUID->"3d8f2846-4f4a-4df3-994a-3349b3fb62a6"],
Cell[7629, 225, 843, 24, 30, "Input",ExpressionUUID->"515cdd15-7dbc-41e2-b0e9-53ef5632ac8b"],
Cell[8475, 251, 543, 14, 30, "Input",ExpressionUUID->"cb98ae56-5a92-43e5-b22a-7557e67fd04f"],
Cell[9021, 267, 1253, 37, 30, "Input",ExpressionUUID->"8875726a-9072-4b96-956a-e693cea59aa8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10311, 309, 220, 4, 67, "Section",ExpressionUUID->"851bba03-c994-438f-bbd7-0e070999b93c"],
Cell[CellGroupData[{
Cell[10556, 317, 150, 3, 54, "Subsection",ExpressionUUID->"dc02910f-db76-4e27-9fbe-132dfc5fe6bd"],
Cell[CellGroupData[{
Cell[10731, 324, 967, 23, 30, "Input",ExpressionUUID->"e6fe4f34-8a51-4f6a-a81f-4005609ae4b4"],
Cell[11701, 349, 18930, 339, 228, "Output",ExpressionUUID->"f46a7a27-7f6e-4c24-9458-e96233731dab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30668, 693, 822, 21, 30, "Input",ExpressionUUID->"eccce6a4-fcc2-4113-ac98-10b4d8626a99"],
Cell[31493, 716, 13766, 254, 226, "Output",ExpressionUUID->"9cf3af46-79ef-444d-b41b-29237232ee89"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45308, 976, 152, 3, 54, "Subsection",ExpressionUUID->"bce4b066-7294-4ab4-beb1-ae997279bcaf"],
Cell[CellGroupData[{
Cell[45485, 983, 946, 22, 30, "Input",ExpressionUUID->"5919751a-2f9a-4458-bcd4-9ca039c49085"],
Cell[46434, 1007, 17745, 320, 231, "Output",ExpressionUUID->"bcfa9270-c3ef-4cc8-8619-f303da06f74a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64216, 1332, 991, 26, 30, "Input",ExpressionUUID->"994c44ae-6486-4d5e-b283-c782c549d255"],
Cell[65210, 1360, 13409, 244, 226, "Output",ExpressionUUID->"590b1885-de59-432c-8b0f-7856beba67c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[78656, 1609, 155, 3, 45, "Subsubsection",ExpressionUUID->"dac73a7b-388c-4eef-9dde-073f93e6a93c"],
Cell[CellGroupData[{
Cell[78836, 1616, 997, 23, 30, "Input",ExpressionUUID->"2d95bca4-9596-46e7-b035-792bcbf27102"],
Cell[79836, 1641, 15621, 285, 237, "Output",ExpressionUUID->"73e3dd58-9e8c-4228-b407-cb31f97ee1f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[95494, 1931, 910, 24, 30, "Input",ExpressionUUID->"2db55ed5-0a0c-41f2-a75d-5c4f34b8ba46"],
Cell[96407, 1957, 6204, 127, 236, "Output",ExpressionUUID->"e98940f3-7748-4321-853c-140d51809955"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102648, 2089, 958, 25, 30, "Input",ExpressionUUID->"eee769ca-1299-4ae5-9e7b-80c1d6afb51b"],
Cell[103609, 2116, 16308, 295, 236, "Output",ExpressionUUID->"bd1cf89f-715e-4fbd-9621-0b83585b1319"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[119990, 2419, 171, 3, 67, "Section",ExpressionUUID->"3928cc28-f70a-41ad-97ec-0eeb82380cfa"],
Cell[CellGroupData[{
Cell[120186, 2426, 213, 4, 54, "Subsection",ExpressionUUID->"29cfbd92-7609-4bf3-af61-d1b4b694755f"],
Cell[CellGroupData[{
Cell[120424, 2434, 1474, 38, 52, "Input",ExpressionUUID->"ce85b0fb-82a4-406b-a95d-a02ab4303fd7"],
Cell[121901, 2474, 24519, 432, 241, "Output",ExpressionUUID->"6cd19aef-31e7-4cfd-bf30-de96861a5e98"]
}, Open  ]],
Cell[CellGroupData[{
Cell[146457, 2911, 1323, 36, 52, "Input",ExpressionUUID->"3aff18eb-36e0-4270-85d1-9ac17cd60d02"],
Cell[147783, 2949, 16429, 298, 245, "Output",ExpressionUUID->"79d0abca-78b1-43d9-916c-a26af136b954"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[164261, 3253, 160, 3, 54, "Subsection",ExpressionUUID->"c700ff70-b202-49a8-81e0-1d4a00f7e2b3"],
Cell[CellGroupData[{
Cell[164446, 3260, 1666, 40, 52, "Input",ExpressionUUID->"c47a142b-75ae-47fd-b52d-a43075f8a7fb"],
Cell[166115, 3302, 15949, 290, 241, "Output",ExpressionUUID->"94060f49-edef-4325-a319-2c914a44d683"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182101, 3597, 1266, 35, 52, "Input",ExpressionUUID->"c8de3b54-8fc3-4c13-a131-6d5dc5c47ef8"],
Cell[183370, 3634, 12881, 240, 236, "Output",ExpressionUUID->"19742b7a-e69a-4b3e-9dc6-d3b6cfd1a30d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[196300, 3880, 259, 4, 54, "Subsection",ExpressionUUID->"a44894e6-642b-4c65-8705-495a2917047b"],
Cell[CellGroupData[{
Cell[196584, 3888, 1219, 33, 52, "Input",ExpressionUUID->"81229ff3-ac2f-4c1d-8b7a-a4e326f6b247"],
Cell[197806, 3923, 23456, 414, 231, "Output",ExpressionUUID->"fff314a1-ca47-4110-8dee-90b25c887088"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221299, 4342, 1171, 32, 52, "Input",ExpressionUUID->"3ef3a4f3-9c45-4906-9635-85fac3baf016"],
Cell[222473, 4376, 13309, 248, 235, "Output",ExpressionUUID->"52476deb-f430-4d54-9820-ffc1a45a98f5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[235831, 4630, 305, 5, 54, "Subsection",ExpressionUUID->"61f46a77-df85-48a8-ab29-5a65a0382c1f"],
Cell[CellGroupData[{
Cell[236161, 4639, 1233, 33, 52, "Input",ExpressionUUID->"e9e93a93-3b54-4d97-a68e-e9b2a56e2a14"],
Cell[237397, 4674, 28665, 499, 241, "Output",ExpressionUUID->"f9490ce6-60f4-4917-a0b0-7fc8323f5693"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[266111, 5179, 308, 5, 54, "Subsection",ExpressionUUID->"8c0f37fc-ad16-4cc8-bbbc-70504b0649e2"],
Cell[CellGroupData[{
Cell[266444, 5188, 1453, 39, 52, "Input",ExpressionUUID->"1e4f0817-aac9-4192-8e99-c1cecd0b860e"],
Cell[267900, 5229, 17630, 317, 230, "Output",ExpressionUUID->"44eb376e-df83-430a-9cb8-aef887ecc110"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[285579, 5552, 359, 6, 54, "Subsection",ExpressionUUID->"12f7f93d-bc2e-44bc-bb63-fee980c532e0"],
Cell[CellGroupData[{
Cell[285963, 5562, 230, 4, 45, "Subsubsection",ExpressionUUID->"8f060984-90ea-423f-b66f-96a7457f8cfd"],
Cell[CellGroupData[{
Cell[286218, 5570, 473, 13, 30, "Input",ExpressionUUID->"15fe0f93-1bf2-44c9-b8c5-095f6ad3a2de"],
Cell[286694, 5585, 503, 15, 70, "Output",ExpressionUUID->"e6af0102-ec7c-4c78-ae8d-1ee0ba6e0a1e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[287234, 5605, 201, 3, 30, "Input",ExpressionUUID->"e23f0109-354a-4f00-86f0-edf1484b552a"],
Cell[287438, 5610, 190, 2, 34, "Output",ExpressionUUID->"a1ecd63b-dc46-4809-9d1a-1e2def7579ab"]
}, Open  ]],
Cell[287643, 5615, 712, 20, 30, "Input",ExpressionUUID->"7dc16b7d-1bc9-44a5-8662-bd5971b4e4ef"],
Cell[CellGroupData[{
Cell[288380, 5639, 1281, 34, 52, "Input",ExpressionUUID->"1c61026a-9a06-4a95-b473-fc2e534efaa5"],
Cell[289664, 5675, 20427, 366, 241, "Output",ExpressionUUID->"86596b7e-0ee4-4323-8b18-2f5d43c21a24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310128, 6046, 1298, 34, 52, "Input",ExpressionUUID->"118c4e10-b207-49d4-8d4f-659b63534ae3"],
Cell[311429, 6082, 14571, 268, 226, "Output",ExpressionUUID->"3a47e161-e99b-4316-bb50-665d4c8e1007"]
}, Open  ]],
Cell[326015, 6353, 152, 3, 30, "Input",ExpressionUUID->"fae899fb-cde2-4c0b-8a81-fc2cee0b11e5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)