multi-layer-system.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    468350,       9611]
NotebookOptionsPosition[    462853,       9502]
NotebookOutlinePosition[    463429,       9523]
CellTagsIndexPosition[    463386,       9520]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Multi-layer system with L-layers and instantaneous Lindblad jump operators \
L(t)\
\>", "Section",
 CellChangeTimes->{{3.864900302476614*^9, 
  3.8649003352552347`*^9}},ExpressionUUID->"1f2aa145-aa55-49c6-950f-\
372076ba7931"],

Cell[CellGroupData[{

Cell["Definition of the multi-layer system\[CloseCurlyQuote]s parameters", \
"Subsection",
 CellChangeTimes->{{3.8649003713712597`*^9, 
  3.86490037442575*^9}},ExpressionUUID->"840047d5-3b63-44c3-a93e-\
4c762cf0d1a7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", "=", "50"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"number", " ", "of", " ", "layers"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"y", "=", "2"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"coordination", " ", "number"}], ",", " ", 
    RowBox[{
     RowBox[{"i", ".", "e", ".", " ", "number"}], " ", "of", " ", "adiacent", 
     " ", "layers"}]}], " ", "*)"}]}]}], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"50c55c71-022c-4dea-a2ee-d7b3bb07808b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Solution of the single-layer self-consistency equations", "Subsection",
 CellChangeTimes->{{3.8649003877505198`*^9, 3.864900389629591*^9}, {
  3.864900777339723*^9, 
  3.8649007806563663`*^9}},ExpressionUUID->"d856071a-6b98-499e-b906-\
68621fbc5a77"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"h", "[", "i_", "]"}], ":=", 
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", "hx", ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"hz", "[", "i", "]"}], ")"}], "2"]}]]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"effective", " ", "mean"}], "-", 
    RowBox[{"field", " ", "magnetic", " ", "field"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"hz", "[", "i_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     FractionBox["1", "y"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "J2", " ", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "+", 
       RowBox[{"4", " ", "J4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
           RowBox[{"[", "i", "]"}], "]"}], ")"}], "3"]}]}], ")"}]}], "+", " ", 
    RowBox[{
     FractionBox[
      RowBox[{"\[Alpha]", " ", "J2"}], "y"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", ">", "1"}], ",", 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"Length", "[", "\[Sigma]xi", "]"}], "]"}], "]"}]}], "]"}], 
       "+", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "<", 
          RowBox[{"Length", "[", "\[Sigma]xi", "]"}]}], ",", 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", "+", "1"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ")"}]}], "+", 
    RowBox[{"2", " ", 
     FractionBox[
      RowBox[{"\[Alpha]", " ", "J4"}], "y"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}], 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"i", ">", "1"}], ",", 
             RowBox[{
              RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"Length", "[", "\[Sigma]xi", "]"}], "]"}], "]"}]}], 
            "]"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"i", "<", 
              RowBox[{"Length", "[", "\[Sigma]xi", "]"}]}], ",", 
             RowBox[{
              RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
              RowBox[{"[", 
               RowBox[{"i", "+", "1"}], "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ")"}], "2"]}], ")"}]}],
       ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"J2", "=", "1."}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"two", "-", 
    RowBox[{"spin", " ", "coupling", " ", "strength"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"J4", "=", "1."}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"four", "-", 
    RowBox[{"spin", " ", "coupling", " ", "strength"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]", "=", "1"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"intra", "-", 
     RowBox[{"layer", " ", "coupling", " ", "reduction"}]}], ",", " ", 
    RowBox[{"set", " ", "it", " ", "to", " ", "one", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"for", " ", "y"}], "=", "2"}], ")"}], " ", "in", " ", "orded", 
     " ", "to", " ", "recover", " ", "the", " ", "single", " ", "layer", " ", 
     "result", " ", "in", " ", "the", " ", "homogeneous", " ", "periodic", 
     " ", "boundary", " ", "condition", " ", "case"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]", "=", "15."}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"initial", " ", "temperature"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tmax", "=", "1550"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"maximum", " ", "integration", " ", "time"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hx", "=", "2.63"}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"transverse", " ", "magnetic", " ", "field"}], " ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.737812982742972*^9, 3.7378131708888855`*^9}, {
   3.7378132061232634`*^9, 3.7378132293732553`*^9}, {3.7443689315133615`*^9, 
   3.7443690337801256`*^9}, {3.7443697876912007`*^9, 3.7443698789091*^9}, {
   3.744370097362464*^9, 3.7443701803084645`*^9}, {3.7443703116808786`*^9, 
   3.744370319915779*^9}, {3.7443703534614277`*^9, 3.7443704283994727`*^9}, {
   3.7443704829548163`*^9, 3.7443705128434687`*^9}, {3.744370578702711*^9, 
   3.7443706550687914`*^9}, {3.744370737802739*^9, 3.744370781907259*^9}, {
   3.7443712016442947`*^9, 3.7443712040442634`*^9}, {3.7443712457347608`*^9, 
   3.7443712703804626`*^9}, {3.7443714352964725`*^9, 3.744371439197426*^9}, {
   3.744371495722743*^9, 3.744371535932258*^9}, {3.744371675705431*^9, 
   3.7443717666313643`*^9}, {3.7443718065459375`*^9, 
   3.7443719192905226`*^9}, {3.744371952764118*^9, 3.7443719994785557`*^9}, 
   3.7445320705354147`*^9, 3.7445327740133467`*^9, 3.744688779737849*^9, {
   3.745034358165902*^9, 3.7450343858531427`*^9}, {3.7450344558368196`*^9, 
   3.7450345388049297`*^9}, {3.7450345693826413`*^9, 
   3.7450346365384316`*^9}, {3.745035747679793*^9, 3.7450357477422905`*^9}, {
   3.7450359795370874`*^9, 3.74503598336529*^9}, {3.7450361392857556`*^9, 
   3.745036179785287*^9}, {3.7450380224672575`*^9, 3.745038094044627*^9}, 
   3.745038170637804*^9, {3.7450401207602987`*^9, 3.7450401241929216`*^9}, {
   3.745052503790923*^9, 3.7450525292844377`*^9}, {3.7450551634686036`*^9, 
   3.745055166414545*^9}, {3.745213680710807*^9, 3.745213722241684*^9}, {
   3.7452149291455116`*^9, 3.745214938974856*^9}, {3.745818789618193*^9, 
   3.7458187995828857`*^9}, {3.7458197319886703`*^9, 
   3.7458197774831333`*^9}, {3.745819815331175*^9, 3.745819852708036*^9}, {
   3.7458198978475575`*^9, 3.7458199620821323`*^9}, {3.7458200069473276`*^9, 
   3.74582008030505*^9}, {3.7458203861916447`*^9, 3.745820446111513*^9}, {
   3.745820505738454*^9, 3.745820540363358*^9}, {3.7458210460016446`*^9, 
   3.74582104957965*^9}, {3.7458211302450304`*^9, 3.745821135057529*^9}, {
   3.745825749275648*^9, 3.745825852397407*^9}, {3.7458260311734495`*^9, 
   3.745826034401409*^9}, {3.7463492529367676`*^9, 3.746349272703531*^9}, 
   3.7463520225483665`*^9, {3.7467646447172775`*^9, 3.746764668092343*^9}, 
   3.7467647560451527`*^9, {3.746764815107562*^9, 3.7467648236388984`*^9}, {
   3.7467650922477417`*^9, 3.746765094263364*^9}, 3.746850687146247*^9, {
   3.746850778255453*^9, 3.7468508247240186`*^9}, {3.7468508605989494`*^9, 
   3.7468508609583254`*^9}, {3.746851897912861*^9, 3.7468519695232363`*^9}, {
   3.746852018259743*^9, 3.7468520258463726`*^9}, 3.746852083785245*^9, 
   3.746852123577419*^9, {3.7468523146595125`*^9, 3.7468523259950967`*^9}, {
   3.7468527280819817`*^9, 3.746852764222412*^9}, {3.7468531591948943`*^9, 
   3.7468531632423587`*^9}, 3.74685321794071*^9, {3.746853515400627*^9, 
   3.746853545335474*^9}, {3.746853804356043*^9, 3.7468538154389105`*^9}, {
   3.746854363180416*^9, 3.7468544464128838`*^9}, {3.7468649734543295`*^9, 
   3.7468649796162567`*^9}, {3.7468650175527973`*^9, 3.746865017773794*^9}, {
   3.746955253753253*^9, 3.7469552552292356`*^9}, 3.7469552940867367`*^9, {
   3.747033291734167*^9, 3.747033307821886*^9}, {3.7470357030464144`*^9, 
   3.747035732566805*^9}, {3.7470446849867563`*^9, 3.7470447748728957`*^9}, {
   3.747046157793026*^9, 3.7470461610839553`*^9}, {3.7470584368876595`*^9, 
   3.747058437450032*^9}, {3.747059568702802*^9, 3.7470595693434505`*^9}, {
   3.7470596818346868`*^9, 3.7470596820535235`*^9}, {3.7470597837151127`*^9, 
   3.7470597847777047`*^9}, 3.747060811448169*^9, {3.7478866858005557`*^9, 
   3.7478867107077584`*^9}, {3.7478868126598186`*^9, 3.747886813644169*^9}, {
   3.7574017025767884`*^9, 3.7574017348127413`*^9}, {3.7574045977184067`*^9, 
   3.7574046217101264`*^9}, {3.757405510066405*^9, 3.757405587184504*^9}, {
   3.757666042630618*^9, 3.757666074067755*^9}, {3.757666118082964*^9, 
   3.757666208003997*^9}, {3.8274058436704435`*^9, 3.827405844089116*^9}, {
   3.827407145420068*^9, 3.82740718391813*^9}, {3.8279785575228014`*^9, 
   3.8279785657539206`*^9}, {3.8279804157628527`*^9, 3.827980418035901*^9}, {
   3.8279804743436437`*^9, 3.8279804780212708`*^9}, {3.82798055460705*^9, 
   3.8279805631170235`*^9}, {3.828759468111083*^9, 3.828759473790183*^9}, {
   3.828760176219222*^9, 3.828760180424782*^9}, {3.8479744034664116`*^9, 
   3.8479744141544733`*^9}, 3.8479746480520535`*^9, {3.8479761938616*^9, 
   3.847976194153598*^9}, {3.847976950516453*^9, 3.847976952083419*^9}, {
   3.8647142486046953`*^9, 3.864714259795681*^9}, {3.86480256574815*^9, 
   3.864802619413156*^9}, 3.86480266047307*^9, 3.864877908647448*^9, {
   3.864878006000937*^9, 3.864878019975774*^9}, {3.864878571603183*^9, 
   3.864878571683783*^9}, {3.864878998912532*^9, 3.864879017622826*^9}, {
   3.86487973629738*^9, 3.8648797385546217`*^9}, {3.864880154540155*^9, 
   3.864880160228142*^9}, {3.864900399333961*^9, 3.864900418953677*^9}, 
   3.8649005332444897`*^9, {3.864963071855661*^9, 3.8649630720201893`*^9}, {
   3.864964305109716*^9, 3.864964305687323*^9}, {3.8649648527881947`*^9, 
   3.864964856814598*^9}, {3.86496770704391*^9, 3.864967717620166*^9}, {
   3.864968206020829*^9, 3.864968207008916*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"4b8b13da-a59d-4183-abfa-13f408eeb17f"],

Cell[CellGroupData[{

Cell["P-phase initial conditions from self-consistency equations ", \
"Subsubsection",
 CellChangeTimes->{
  3.864900548588015*^9},ExpressionUUID->"d9aeecbe-f017-4132-a90d-\
1f514b333437"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Beta]1", "=", "\[Beta]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]yP", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]zP", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]xP", "=", 
   RowBox[{"(", 
    RowBox[{"Tanh", "[", 
     RowBox[{"\[Beta]1", " ", "hx"}], "]"}], ")"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", "\[Sigma]xP", ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", "\[Sigma]yP", ")"}], "2"], "+", 
   SuperscriptBox[
    RowBox[{"(", "\[Sigma]zP", ")"}], "2"]}], ";"}]}], "Input",
 CellChangeTimes->{{3.864900448967304*^9, 3.86490050598566*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"68736353-2f22-4534-a8f4-47ff91ca325e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["F-phase initial conditions from self-consistency equations ", \
"Subsubsection",
 CellChangeTimes->{{3.864900563765563*^9, 
  3.864900565777235*^9}},ExpressionUUID->"27506298-6b34-45df-ab82-\
2423007427ea"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]zF", "=", 
   RowBox[{
    RowBox[{"FindRoot", "[", 
     RowBox[{
      RowBox[{"\[Sigma]z", "-", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"2", "J2", " ", "\[Sigma]z"}], "+", 
          RowBox[{"4", "J4", 
           SuperscriptBox[
            RowBox[{"(", "\[Sigma]z", ")"}], "3"]}]}], 
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", "hx", ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", "J2", 
               RowBox[{"(", "\[Sigma]z", ")"}]}], "+", 
              RowBox[{"4", "J4", 
               SuperscriptBox[
                RowBox[{"(", "\[Sigma]z", ")"}], "3"]}]}], ")"}], "2"]}]]], 
        RowBox[{"Tanh", "[", 
         RowBox[{"\[Beta]", " ", 
          SqrtBox[
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", "hx", ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", "J2", 
                RowBox[{"(", "\[Sigma]z", ")"}]}], "+", 
               RowBox[{"4", "J4", 
                SuperscriptBox[
                 RowBox[{"(", "\[Sigma]z", ")"}], "3"]}]}], ")"}], "2"]}]]}], 
         "]"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Sigma]z", ",", "1"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]xF", "=", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["hx", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", "hx", ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "J2", 
            RowBox[{"(", "\[Sigma]zF", ")"}]}], "+", 
           RowBox[{"4", "J4", 
            SuperscriptBox[
             RowBox[{"(", "\[Sigma]zF", ")"}], "3"]}]}], ")"}], "2"]}]]], 
     RowBox[{"Tanh", "[", 
      RowBox[{"\[Beta]", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", "hx", ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "J2", 
             RowBox[{"(", "\[Sigma]zF", ")"}]}], "+", 
            RowBox[{"4", "J4", 
             SuperscriptBox[
              RowBox[{"(", "\[Sigma]zF", ")"}], "3"]}]}], ")"}], "2"]}]]}], 
      "]"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]yF", "=", "0."}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hzF", "=", 
   RowBox[{
    RowBox[{"2", " ", "J2", " ", "\[Sigma]zF"}], "+", 
    RowBox[{"4", " ", "J4", " ", 
     SuperscriptBox[
      RowBox[{"(", "\[Sigma]zF", ")"}], "3"]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hF", "=", 
   SqrtBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", "hx", ")"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{"(", "hzF", ")"}], "2"]}]]}], ";"}]}], "Input",
 CellChangeTimes->{{3.86490049439669*^9, 3.864900496089266*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"577d79be-306b-4dea-a3b6-18dca238d7e2"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Definition of the Lindblad parameters", "Subsection",
 CellChangeTimes->{{3.8649005894779043`*^9, 
  3.864900591193123*^9}},ExpressionUUID->"cc7132b2-aabd-4909-8841-\
73af1217dd99"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Lindblad", " ", "coupling", " ", "strengths"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Gamma]bL", "[", "i_", "]"}], ":=", 
    FractionBox["1", 
     RowBox[{"1", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[Beta]"}], " ", 
        RowBox[{"h", "[", "i", "]"}]}]]}]]}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]L", "[", "i_", "]"}], ":=", 
    FractionBox[
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], "\[Beta]", " ", 
       RowBox[{"h", "[", "i", "]"}]}]], 
     RowBox[{"1", "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[Beta]"}], " ", 
        RowBox[{"h", "[", "i", "]"}]}]]}]]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[CapitalGamma]", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Lindblad", " ", "operators"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U1x", ":=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U1y", ":=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U1z", ":=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"U2x", "[", "i_", "]"}], ":=", 
     FractionBox[
      RowBox[{"hz", "[", "i", "]"}], 
      RowBox[{"h", "[", "i", "]"}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"U2y", ":=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"U2z", "[", "i_", "]"}], ":=", 
     RowBox[{"-", 
      FractionBox["hx", 
       RowBox[{"h", "[", "i", "]"}]]}]}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.737812982742972*^9, 3.7378131708888855`*^9}, {
   3.7378132061232634`*^9, 3.7378132293732553`*^9}, {3.7443689315133615`*^9, 
   3.7443690337801256`*^9}, {3.7443697876912007`*^9, 3.7443698789091*^9}, {
   3.744370097362464*^9, 3.7443701803084645`*^9}, {3.7443703116808786`*^9, 
   3.744370319915779*^9}, {3.7443703534614277`*^9, 3.7443704283994727`*^9}, {
   3.7443704829548163`*^9, 3.7443705128434687`*^9}, {3.744370578702711*^9, 
   3.7443706550687914`*^9}, {3.744370737802739*^9, 3.744370781907259*^9}, {
   3.7443712016442947`*^9, 3.7443712040442634`*^9}, {3.7443712457347608`*^9, 
   3.7443712703804626`*^9}, {3.7443714352964725`*^9, 3.744371439197426*^9}, {
   3.744371495722743*^9, 3.744371535932258*^9}, {3.744371675705431*^9, 
   3.7443717666313643`*^9}, {3.7443718065459375`*^9, 
   3.7443719192905226`*^9}, {3.744371952764118*^9, 3.7443719994785557`*^9}, 
   3.7445320705354147`*^9, 3.7445327740133467`*^9, 3.744688779737849*^9, {
   3.745034358165902*^9, 3.7450343858531427`*^9}, {3.7450344558368196`*^9, 
   3.7450345388049297`*^9}, {3.7450345693826413`*^9, 
   3.7450346365384316`*^9}, {3.745035747679793*^9, 3.7450357477422905`*^9}, {
   3.7450359795370874`*^9, 3.74503598336529*^9}, {3.7450361392857556`*^9, 
   3.745036179785287*^9}, {3.7450380224672575`*^9, 3.745038094044627*^9}, 
   3.745038170637804*^9, {3.7450401207602987`*^9, 3.7450401241929216`*^9}, {
   3.745052503790923*^9, 3.7450525292844377`*^9}, {3.7450551634686036`*^9, 
   3.745055166414545*^9}, {3.745213680710807*^9, 3.745213722241684*^9}, {
   3.7452149291455116`*^9, 3.745214938974856*^9}, {3.745818789618193*^9, 
   3.7458187995828857`*^9}, {3.7458197319886703`*^9, 
   3.7458197774831333`*^9}, {3.745819815331175*^9, 3.745819852708036*^9}, {
   3.7458198978475575`*^9, 3.7458199620821323`*^9}, {3.7458200069473276`*^9, 
   3.74582008030505*^9}, {3.7458203861916447`*^9, 3.745820446111513*^9}, {
   3.745820505738454*^9, 3.745820540363358*^9}, {3.7458210460016446`*^9, 
   3.74582104957965*^9}, {3.7458211302450304`*^9, 3.745821135057529*^9}, {
   3.745825749275648*^9, 3.745825852397407*^9}, {3.7458260311734495`*^9, 
   3.745826034401409*^9}, {3.7463492529367676`*^9, 3.746349272703531*^9}, 
   3.7463520225483665`*^9, {3.7467646447172775`*^9, 3.746764668092343*^9}, 
   3.7467647560451527`*^9, {3.746764815107562*^9, 3.7467648236388984`*^9}, {
   3.7467650922477417`*^9, 3.746765094263364*^9}, {3.74685011764742*^9, 
   3.7468502522252817`*^9}, {3.746850284865844*^9, 3.7468503145844193`*^9}, {
   3.7468509812623377`*^9, 3.7468510017729073`*^9}, {3.746851503023156*^9, 
   3.746851507427249*^9}, {3.7470447850256853`*^9, 3.7470448277728024`*^9}, {
   3.7470458530633287`*^9, 3.7470458553972774`*^9}, {3.7470461325065475`*^9, 
   3.74704613870243*^9}, {3.7478868469563932`*^9, 3.7478868478625655`*^9}, {
   3.7479085998509417`*^9, 3.747908602541854*^9}, {3.7479095654976463`*^9, 
   3.7479095676435995`*^9}, {3.7479792231349993`*^9, 
   3.7479792943358645`*^9}, {3.7479793435540695`*^9, 
   3.7479793735495477`*^9}, {3.747980008545512*^9, 3.7479800137893925`*^9}, 
   3.747980048551285*^9, 3.747980138608595*^9, 3.7479802166600556`*^9, {
   3.747981006615466*^9, 3.7479810324602857`*^9}, {3.7479811757888365`*^9, 
   3.747981194069008*^9}, {3.747985700816821*^9, 3.747985707081006*^9}, {
   3.747987470558072*^9, 3.7479874814079604`*^9}, {3.7479984193123837`*^9, 
   3.747998422592318*^9}, {3.749290113826898*^9, 3.749290199475339*^9}, 
   3.749290232861733*^9, {3.7492903005175*^9, 3.749290303065504*^9}, {
   3.7492906348524075`*^9, 3.749290648032169*^9}, {3.749290689969455*^9, 
   3.7492907686959677`*^9}, {3.749290802976341*^9, 3.749290833184845*^9}, {
   3.749291917810164*^9, 3.7492919363438296`*^9}, {3.7492920066565437`*^9, 
   3.7492920306411085`*^9}, 3.7495283367351685`*^9, {3.7495283708598986`*^9, 
   3.749528405556809*^9}, {3.7495285132684555`*^9, 3.7495285409401045`*^9}, {
   3.749530965701451*^9, 3.7495309689201736`*^9}, 3.749537513470789*^9, {
   3.7495380166585693`*^9, 3.7495380337362547`*^9}, {3.749539658370119*^9, 
   3.7495397295118227`*^9}, {3.7528350634922695`*^9, 
   3.7528350729011517`*^9}, {3.752835145603243*^9, 3.7528351639080167`*^9}, {
   3.7528353144531384`*^9, 3.75283532409402*^9}, {3.7528353708084383`*^9, 
   3.7528354449015107`*^9}, {3.752837536039121*^9, 3.7528375797695723`*^9}, {
   3.7528491359417624`*^9, 3.7528491663575068`*^9}, 3.7528509519677896`*^9, {
   3.75299381866559*^9, 3.752993829726613*^9}, 3.7529938770715857`*^9, {
   3.753170260248826*^9, 3.7531702684997225`*^9}, {3.753170369817461*^9, 
   3.753170395518139*^9}, {3.7531704393765907`*^9, 3.753170464648277*^9}, {
   3.7531705186726027`*^9, 3.7531705431162977`*^9}, {3.7531705801268787`*^9, 
   3.7531706241822863`*^9}, {3.753170672072689*^9, 3.7531706784636097`*^9}, 
   3.7531712440332756`*^9, 3.7531722916722083`*^9, {3.7531725068060675`*^9, 
   3.7531725245988417`*^9}, 3.753441742657603*^9, {3.753442133107509*^9, 
   3.753442151076106*^9}, {3.7534427138839383`*^9, 3.753442737977604*^9}, {
   3.753443927686527*^9, 3.753443933389694*^9}, {3.753446237584276*^9, 
   3.7534462543183985`*^9}, {3.7571404046252484`*^9, 
   3.7571404142814837`*^9}, {3.757402365465049*^9, 3.757402365958993*^9}, {
   3.7574024836021805`*^9, 3.757402617023324*^9}, {3.7574044159730625`*^9, 
   3.7574044237389755`*^9}, {3.8274059002529726`*^9, 3.827405937879072*^9}, {
   3.827406068495825*^9, 3.8274060882697725`*^9}, 3.8274066226775026`*^9, {
   3.8274066794095726`*^9, 3.8274068424046664`*^9}, {3.8274069880791674`*^9, 
   3.8274069948688097`*^9}, {3.827407063777904*^9, 3.827407113285198*^9}, {
   3.8274072873114605`*^9, 3.8274073160602226`*^9}, {3.8274073936470337`*^9, 
   3.827407428884591*^9}, 3.827407498419282*^9, {3.827407579615941*^9, 
   3.8274076079389772`*^9}, {3.8274076561841736`*^9, 3.827407659558777*^9}, {
   3.8274080195476294`*^9, 3.8274080276487207`*^9}, {3.8274081530266237`*^9, 
   3.8274081828735485`*^9}, {3.8274086793325124`*^9, 3.82740871210485*^9}, {
   3.827408843405283*^9, 3.827408854760417*^9}, {3.827409777402792*^9, 
   3.8274098027317295`*^9}, {3.827413464851534*^9, 3.8274134963748503`*^9}, {
   3.827413559983925*^9, 3.8274135624367156`*^9}, {3.827413657848277*^9, 
   3.827413681193434*^9}, {3.8274137188437386`*^9, 3.8274137384195576`*^9}, 
   3.8279794797644835`*^9, {3.8279795320739117`*^9, 3.8279795327515235`*^9}, 
   3.827979888698323*^9, 3.827979958036311*^9, {3.8279803453721485`*^9, 
   3.8279803459403915`*^9}, 3.827980690270883*^9, {3.827983232346293*^9, 
   3.827983254219059*^9}, 3.8279837380738115`*^9, {3.8279839728085403`*^9, 
   3.827984002232803*^9}, {3.8279842278456926`*^9, 3.8279842504414043`*^9}, {
   3.8279843298712997`*^9, 3.827984331812378*^9}, 3.827984672839308*^9, {
   3.8279848179416227`*^9, 3.8279848181269217`*^9}, {3.827985260130855*^9, 
   3.827985265111166*^9}, 3.8279853760594063`*^9, 3.8279855809615917`*^9, {
   3.827985904817218*^9, 3.8279859068985224`*^9}, 3.8279865668340487`*^9, {
   3.827988106500796*^9, 3.8279881497916336`*^9}, {3.827988334172309*^9, 
   3.8279883884845357`*^9}, {3.8287595613835278`*^9, 3.828759567083511*^9}, {
   3.828759705992077*^9, 3.828759715717122*^9}, {3.828759758976945*^9, 
   3.828759760043564*^9}, {3.8291880745092964`*^9, 3.829188074966308*^9}, {
   3.847973430813773*^9, 3.8479734457199097`*^9}, {3.8479736327618217`*^9, 
   3.8479736576149006`*^9}, 3.847973712393855*^9, {3.8479741223155203`*^9, 
   3.847974131381563*^9}, {3.847974662540305*^9, 3.8479746664703655`*^9}, {
   3.8479747869493494`*^9, 3.8479747905433874`*^9}, {3.8479749240173903`*^9, 
   3.84797496861763*^9}, {3.8479752870096874`*^9, 3.8479752880677633`*^9}, {
   3.8479772666753163`*^9, 3.8479772856360006`*^9}, {3.8479773206285677`*^9, 
   3.8479773217994986`*^9}, 3.8487186582721033`*^9, {3.864714468202283*^9, 
   3.864714522073517*^9}, 3.864795503920726*^9, {3.864795957045806*^9, 
   3.864795959213719*^9}, 3.864795994004238*^9, {3.864798311701613*^9, 
   3.864798346518091*^9}, 3.864798387755671*^9, {3.8648026264058313`*^9, 
   3.864802664668085*^9}, {3.864878034636544*^9, 3.864878036427477*^9}, 
   3.864900599713228*^9},
 CellLabel->"In[21]:=",ExpressionUUID->"99bad15d-dc29-49ba-9aa2-325af81e857b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Initialization of Lindblad\[CloseCurlyQuote]s variables and functions", \
"Subsection",
 CellChangeTimes->{{3.864900611201139*^9, 
  3.864900613023222*^9}},ExpressionUUID->"920672b2-742f-48c4-9447-\
9747ebb82a34"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]xi", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "<", "L"}], ",", "\[Sigma]xF", ",", "\[Sigma]xP"}], "]"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]yi", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "<", "L"}], ",", "\[Sigma]yF", ",", "\[Sigma]yP"}], "]"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]zi", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"i", "<", "L"}], ",", "\[Sigma]zF", ",", "\[Sigma]zP"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]0", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"i", "\[Equal]", "1"}], " ", "||", " ", 
         RowBox[{"i", "\[Equal]", "L"}]}], ",", "0", ",", "\[CapitalGamma]"}],
        "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]x", "[", "t_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Symbol", "[", 
       RowBox[{"\"\<\[Sigma]xd\>\"", "<>", 
        RowBox[{"ToString", "@", "i"}]}], "]"}], "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]y", "[", "t_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Symbol", "[", 
       RowBox[{"\"\<\[Sigma]yd\>\"", "<>", 
        RowBox[{"ToString", "@", "i"}]}], "]"}], "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[Sigma]z", "[", "t_", "]"}], ":=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Symbol", "[", 
        RowBox[{"\"\<\[Sigma]zd\>\"", "<>", 
         RowBox[{"ToString", "@", "i"}]}], "]"}], "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"variables", "=", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Symbol", "[", 
         RowBox[{"\"\<\[Sigma]xd\>\"", "<>", 
          RowBox[{"ToString", "@", "i"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Symbol", "[", 
         RowBox[{"\"\<\[Sigma]yd\>\"", "<>", 
          RowBox[{"ToString", "@", "i"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Symbol", "[", 
         RowBox[{"\"\<\[Sigma]zd\>\"", "<>", 
          RowBox[{"ToString", "@", "i"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "L"}], "}"}]}], "]"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"p", "[", "i_", "]"}], ":=", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"i", "\[Equal]", "L"}], " ", "||", " ", 
       RowBox[{"i", "\[Equal]", "1"}]}], ",", "0", ",", "1"}], "]"}]}], ";"}],
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "have", " ", "a", " ", "differential", " ", "equation", " ", 
    "for", " ", "each", " ", "layer"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "write", " ", "the", " ", "explicit", " ", "equation", " ", 
    "for", " ", "each", " ", "component", " ", "of", " ", "the", " ", 
    "magnetization"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"listequation", "=", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Sigma]x", "'"}], "[", "t", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
         RowBox[{
          RowBox[{
           RowBox[{"p", "[", "i", "]"}], 
           RowBox[{"(", 
            RowBox[{"2", " ", 
             RowBox[{"hz", "[", "i", "]"}], " ", 
             RowBox[{
              RowBox[{"\[Sigma]y", "[", "t", "]"}], "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}], 
          "\[IndentingNewLine]", "+", 
          RowBox[{"4", 
           RowBox[{"\[Gamma]0", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]L", "[", "i", "]"}], "+", 
             RowBox[{"\[Gamma]bL", "[", "i", "]"}]}], ")"}], 
           "\[IndentingNewLine]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1x", " ", "U1x"}], "+", 
                RowBox[{
                 RowBox[{"U2x", "[", "i", "]"}], " ", 
                 RowBox[{"U2x", "[", "i", "]"}]}], "-", "2"}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "\[IndentingNewLine]", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1y", " ", "U1x"}], "+", 
                RowBox[{"U2y", " ", 
                 RowBox[{"U2x", "[", "i", "]"}]}]}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]y", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "\[IndentingNewLine]", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1z", " ", "U1x"}], "+", 
                RowBox[{
                 RowBox[{"U2z", "[", "i", "]"}], " ", 
                 RowBox[{"U2x", "[", "i", "]"}]}]}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}]}], 
          "\[IndentingNewLine]", "+", 
          RowBox[{"8", 
           RowBox[{"\[Gamma]0", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]L", "[", "i", "]"}], "-", 
             RowBox[{"\[Gamma]bL", "[", "i", "]"}]}], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"U1y", " ", 
              RowBox[{"U2z", "[", "i", "]"}]}], "-", 
             RowBox[{"U1z", " ", "U2y"}]}], ")"}]}]}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Sigma]y", "'"}], "[", "t", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
         RowBox[{
          RowBox[{
           RowBox[{"p", "[", "i", "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "hx", " ", 
              RowBox[{
               RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"hz", "[", "i", "]"}], " ", 
              RowBox[{
               RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}]}], 
          "\[IndentingNewLine]", "+", 
          RowBox[{"4", 
           RowBox[{"\[Gamma]0", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]L", "[", "i", "]"}], "+", 
             RowBox[{"\[Gamma]bL", "[", "i", "]"}]}], ")"}], 
           "\[IndentingNewLine]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1x", " ", "U1y"}], "+", 
                RowBox[{
                 RowBox[{"U2x", "[", "i", "]"}], " ", "U2y"}]}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "\[IndentingNewLine]", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1y", " ", "U1y"}], "+", 
                RowBox[{"U2y", " ", "U2y"}], "-", "2"}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]y", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "\[IndentingNewLine]", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1z", " ", "U1y"}], "+", 
                RowBox[{
                 RowBox[{"U2z", "[", "i", "]"}], " ", "U2y"}]}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}]}], 
          "\[IndentingNewLine]", "+", 
          RowBox[{"8", 
           RowBox[{"\[Gamma]0", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]L", "[", "i", "]"}], "-", 
             RowBox[{"\[Gamma]bL", "[", "i", "]"}]}], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"U1z", " ", 
              RowBox[{"U2x", "[", "i", "]"}]}], "-", 
             RowBox[{"U1x", " ", 
              RowBox[{"U2z", "[", "i", "]"}]}]}], ")"}]}]}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\[Sigma]z", "'"}], "[", "t", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"p", "[", "i", "]"}]}], 
           RowBox[{"(", 
            RowBox[{"2", " ", "hx", " ", 
             RowBox[{
              RowBox[{"\[Sigma]y", "[", "t", "]"}], "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}], 
          "\[IndentingNewLine]", "+", 
          RowBox[{"4", 
           RowBox[{"\[Gamma]0", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]L", "[", "i", "]"}], "+", 
             RowBox[{"\[Gamma]bL", "[", "i", "]"}]}], ")"}], 
           "\[IndentingNewLine]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1x", " ", "U1z"}], "+", 
                RowBox[{
                 RowBox[{"U2x", "[", "i", "]"}], " ", 
                 RowBox[{"U2z", "[", "i", "]"}]}]}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "\[IndentingNewLine]", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1y", " ", "U1z"}], "+", 
                RowBox[{"U2y", " ", 
                 RowBox[{"U2z", "[", "i", "]"}]}]}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]y", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "\[IndentingNewLine]", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"U1z", " ", "U1z"}], "+", 
                RowBox[{
                 RowBox[{"U2z", "[", "i", "]"}], " ", 
                 RowBox[{"U2z", "[", "i", "]"}]}], "-", "2"}], ")"}], 
              RowBox[{
               RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}]}], 
          "\[IndentingNewLine]", "+", 
          RowBox[{"8", 
           RowBox[{"\[Gamma]0", "[", 
            RowBox[{"[", "i", "]"}], "]"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Gamma]L", "[", "i", "]"}], "-", 
             RowBox[{"\[Gamma]bL", "[", "i", "]"}]}], ")"}], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"U1x", " ", "U2y"}], "-", 
             RowBox[{"U1y", " ", 
              RowBox[{"U2x", "[", "i", "]"}]}]}], ")"}]}]}]}], ",", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]x", "[", "0", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
         RowBox[{"\[Sigma]xi", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]y", "[", "0", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
         RowBox[{"\[Sigma]yi", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "0", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
         RowBox[{"\[Sigma]zi", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "\[Sigma]xi", "]"}]}], "}"}]}], "]"}], "//", 
    "Flatten"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7354493073645926`*^9, 3.7354493538020563`*^9}, {
   3.735449474096943*^9, 3.7354495214405413`*^9}, {3.7354496175876417`*^9, 
   3.7354496357750854`*^9}, {3.7354599863688917`*^9, 3.735459997464471*^9}, {
   3.7354600671890984`*^9, 3.7354602511896715`*^9}, {3.735460401761911*^9, 
   3.7354604136734776`*^9}, 3.7354607989255247`*^9, {3.735461087483673*^9, 
   3.7354611247716136`*^9}, {3.735461348827531*^9, 3.735461374196851*^9}, {
   3.73546178327072*^9, 3.7354618508542395`*^9}, {3.735462396077786*^9, 
   3.735462406398323*^9}, {3.735462944842337*^9, 3.7354629592490573`*^9}, {
   3.7354635465819364`*^9, 3.735463547321977*^9}, {3.735464247334634*^9, 
   3.7354643917041073`*^9}, {3.7354646257355704`*^9, 3.735464640751218*^9}, {
   3.7354647267330008`*^9, 3.7354647326861324`*^9}, 3.7354712105740747`*^9, 
   3.7354712871412573`*^9, {3.7355304912304735`*^9, 3.7355306322827296`*^9}, {
   3.7355306687202754`*^9, 3.735530684579669*^9}, {3.7574026994756813`*^9, 
   3.7574027529139156`*^9}, {3.757402785480302*^9, 3.757402969079319*^9}, {
   3.757403040763493*^9, 3.7574031502452087`*^9}, {3.757403182432832*^9, 
   3.75740318624679*^9}, {3.757403219400402*^9, 3.757403396949334*^9}, {
   3.7574034457847633`*^9, 3.75740344860573*^9}, {3.757403480963354*^9, 
   3.7574036914683666`*^9}, {3.757403789332224*^9, 3.7574039727021475`*^9}, {
   3.7574041160457087`*^9, 3.757404117350745*^9}, {3.757404673150528*^9, 
   3.7574046820577693`*^9}, {3.7574050638707485`*^9, 
   3.7574050690736866`*^9}, {3.757405402393658*^9, 3.75740541673749*^9}, {
   3.7574069112691216`*^9, 3.757406917445049*^9}, {3.7576593215309715`*^9, 
   3.7576593597185187`*^9}, {3.8274059466085653`*^9, 3.827405953714219*^9}, {
   3.8274061014025707`*^9, 3.827406179711831*^9}, {3.8274062339862795`*^9, 
   3.8274062350147243`*^9}, {3.8274068724362936`*^9, 3.827406897646104*^9}, {
   3.827407534414229*^9, 3.827407558911885*^9}, {3.8274076173786664`*^9, 
   3.827407747689598*^9}, {3.827407808894798*^9, 3.8274078357923703`*^9}, 
   3.8274079456445756`*^9, {3.8274088308789797`*^9, 3.8274088347869053`*^9}, 
   3.8274096599666977`*^9, {3.8274136240560646`*^9, 3.8274136496442766`*^9}, {
   3.8279794627603416`*^9, 3.827979463927969*^9}, {3.827979540984849*^9, 
   3.8279795459211645`*^9}, {3.8279801587608223`*^9, 3.827980175171589*^9}, {
   3.8279803050975533`*^9, 3.827980308634763*^9}, 3.827980353811009*^9, {
   3.827980530722292*^9, 3.8279805321578884`*^9}, {3.8279806173303804`*^9, 
   3.8279806186477404`*^9}, {3.8279810507609367`*^9, 
   3.8279810516259837`*^9}, {3.8279832913213468`*^9, 
   3.8279832930991664`*^9}, {3.827984662182547*^9, 3.8279846639994764`*^9}, {
   3.827984834854082*^9, 3.827984906824268*^9}, {3.8279849443304253`*^9, 
   3.8279849957692966`*^9}, 3.827985235305087*^9, {3.827985589169442*^9, 
   3.8279856157388783`*^9}, {3.8279858272629976`*^9, 3.827985851311727*^9}, {
   3.8279859767613707`*^9, 3.827986009481957*^9}, 3.827986132412496*^9, {
   3.8279861987823915`*^9, 3.82798625960098*^9}, 3.827986292520937*^9, {
   3.8279870924345174`*^9, 3.82798709390399*^9}, {3.8279881684574165`*^9, 
   3.8279882565540276`*^9}, {3.827988398698521*^9, 3.827988407376068*^9}, {
   3.8279885083300686`*^9, 3.8279885276639533`*^9}, {3.8279886448207016`*^9, 
   3.8279886625168905`*^9}, {3.8279888322062387`*^9, 3.827988849320586*^9}, {
   3.8279889712330017`*^9, 3.8279889737674665`*^9}, {3.8287596555307655`*^9, 
   3.82875965764083*^9}, {3.828759774650277*^9, 3.8287597864446316`*^9}, {
   3.8287598975139823`*^9, 3.828759904238427*^9}, {3.847974813392706*^9, 
   3.8479748197246275`*^9}, {3.8479748751320744`*^9, 
   3.8479748778741803`*^9}, {3.847975087025652*^9, 3.8479750888665743`*^9}, {
   3.8479756494341745`*^9, 3.8479756514782085`*^9}, {3.847975734535901*^9, 
   3.8479757368429127`*^9}, {3.84797600256891*^9, 3.847976023187481*^9}, {
   3.8479760654135203`*^9, 3.8479760689136024`*^9}, {3.847977387871149*^9, 
   3.8479773893554*^9}, {3.847986608672818*^9, 3.8479866103033204`*^9}, {
   3.8479866478795643`*^9, 3.847986649203539*^9}, {3.8479866911447945`*^9, 
   3.8479866969553647`*^9}, {3.8479867792065125`*^9, 3.847986796487672*^9}, {
   3.84798691283722*^9, 3.8479869166026707`*^9}, {3.848724164911496*^9, 
   3.8487241677784557`*^9}, {3.8487266817009106`*^9, 
   3.8487266835145206`*^9}, {3.84872698164365*^9, 3.8487269839514713`*^9}, {
   3.84872708384647*^9, 3.848727087421894*^9}, {3.8487272671211777`*^9, 
   3.8487272692955337`*^9}, {3.8487278791215453`*^9, 3.848727881136468*^9}, {
   3.8647983928181343`*^9, 3.864798432862092*^9}, {3.8648018545035267`*^9, 
   3.86480186094796*^9}, {3.8648021489651957`*^9, 3.864802233157729*^9}, {
   3.86480267619739*^9, 3.864802718589039*^9}, {3.864878046234531*^9, 
   3.864878047087641*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"6b4b6ad7-b91f-406c-a181-f138a7188a98"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Solution of the differential equation for the magnetization components\
\>", "Subsection",
 CellChangeTimes->{{3.8649006355735197`*^9, 
  3.864900637365913*^9}},ExpressionUUID->"5fda29fe-438b-4316-a453-\
da113ada65cd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"s", "=", 
    RowBox[{"NDSolve", "[", 
     RowBox[{"listequation", ",", "variables", ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tmax"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Lindblad", " ", "Equation", " ", "solver"}], " ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.7354615600033827`*^9, 3.735461637664424*^9}, {
   3.7354617022765102`*^9, 3.7354617056486826`*^9}, 3.7354625566051373`*^9, 
   3.7354627092890816`*^9, {3.7354644093760424`*^9, 3.73546448840739*^9}, {
   3.7355307309859767`*^9, 3.7355308220487003`*^9}, 3.7574039862409916`*^9, {
   3.757404065742296*^9, 3.757404104236844*^9}, {3.7574041433213882`*^9, 
   3.757404271160898*^9}, {3.757659378952854*^9, 3.7576593897497196`*^9}, {
   3.8274062531277447`*^9, 3.8274062540972776`*^9}, {3.8274077556737366`*^9, 
   3.827407777270407*^9}, 3.827408096554805*^9, {3.8279850159447556`*^9, 
   3.8279850750942283`*^9}, {3.8279859670212245`*^9, 
   3.8279859690355377`*^9}, {3.8279863028552065`*^9, 3.827986303912196*^9}, {
   3.864714529598724*^9, 3.8647145527814755`*^9}, {3.8648027239041243`*^9, 
   3.864802760487903*^9}, {3.864878064684291*^9, 3.864878069948702*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"894725b2-b31c-47c8-9dbf-54cc0da46730"]
}, Closed]],

Cell[CellGroupData[{

Cell["Printing results", "Subsection",
 CellChangeTimes->{{3.864900646896289*^9, 
  3.864900648400507*^9}},ExpressionUUID->"52d2819f-8b8d-4768-9732-\
e0f53dcf3481"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Evaluate", "[", 
   RowBox[{
    RowBox[{"\[Sigma]z", "[", "0", "]"}], "/.", "s"}], "]"}], "//", 
  "Flatten"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Evaluate", "[", 
   RowBox[{
    RowBox[{"\[Sigma]z", "[", "tmax", "]"}], "/.", "s"}], "]"}], "//", 
  "Flatten"}]}], "Input",
 CellChangeTimes->{{3.73546142730648*^9, 3.735461492267864*^9}, {
  3.735464758561269*^9, 3.735464766545659*^9}, {3.735472139380282*^9, 
  3.73547214941145*^9}, {3.7574042789398108`*^9, 3.757404294338683*^9}, {
  3.8274062623090425`*^9, 3.8274062628260117`*^9}, {3.82740778122935*^9, 
  3.8274077842393255`*^9}, {3.8279839321835136`*^9, 3.827983947035387*^9}, {
  3.864802766421274*^9, 3.864802794332617*^9}, {3.864878079414403*^9, 
  3.864878084346678*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"9b3e9fe2-7e2a-4639-8cc6-8c3a9d00fdec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.`"}], "}"}]], "Output",
 CellChangeTimes->{3.864796097890341*^9, 3.8647985824770107`*^9, 
  3.8647988841688423`*^9, 3.864802274938127*^9, 3.864802965464777*^9, 
  3.8648780883269253`*^9, 3.8648785858010807`*^9, 3.86487884661502*^9, 
  3.864879146088092*^9, 3.8648797118466043`*^9, 3.864879760900732*^9, 
  3.864962315986987*^9, 3.864963085641779*^9, 3.864964199083994*^9, 
  3.86496433252551*^9, 3.8649676905655603`*^9, 3.864967734458146*^9, 
  3.8649682214442883`*^9, 3.864969590806933*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"6831c7b7-df37-4d87-b7fd-7fd38e6a0f03"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.8364054781551072`", ",", "0.8364054781551076`", ",", 
   "0.8364054781551078`", ",", "0.8364054781551076`", ",", 
   "0.8364054781551076`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551072`", ",", "0.8364054781551072`", ",", 
   "0.8364054781551077`", ",", "0.8364054781551077`", ",", 
   "0.8364054781551078`", ",", "0.8364054781551079`", ",", 
   "0.8364054781551078`", ",", "0.8364054781551077`", ",", 
   "0.8364054781551077`", ",", "0.8364054781551076`", ",", 
   "0.8364054781551079`", ",", "0.8364054781551077`", ",", 
   "0.8364054781551077`", ",", "0.8364054781551077`", ",", 
   "0.8364054781551077`", ",", "0.8364054781551075`", ",", 
   "0.8364054781551075`", ",", "0.8364054781551064`", ",", 
   "0.8364054781551018`", ",", "0.8364054781550798`", ",", 
   "0.8364054781549766`", ",", "0.8364054781544882`", ",", 
   "0.8364054781521815`", ",", "0.8364054781412826`", ",", 
   "0.8364054780897873`", ",", "0.836405477846482`", ",", 
   "0.8364054766969118`", ",", "0.8364054712654184`", ",", 
   "0.8364054456026793`", ",", "0.8364053243512937`", ",", 
   "0.8364047514627119`", ",", "0.8364020446859274`", ",", 
   "0.8363892559047403`", ",", "0.8363288360624145`", ",", 
   "0.8360434676759942`", ",", "0.8346974647041602`", ",", 
   "0.8283889331836715`", ",", "0.7996795053655722`", ",", 
   "0.6847696358954755`", ",", "0.3971142244755651`", ",", 
   "0.15498101215945811`", ",", "0.05343795800438511`", ",", 
   "0.016422643316187643`", ",", "0.`"}], "}"}]], "Output",
 CellChangeTimes->{3.864796097890341*^9, 3.8647985824770107`*^9, 
  3.8647988841688423`*^9, 3.864802274938127*^9, 3.864802965464777*^9, 
  3.8648780883269253`*^9, 3.8648785858010807`*^9, 3.86487884661502*^9, 
  3.864879146088092*^9, 3.8648797118466043`*^9, 3.864879760900732*^9, 
  3.864962315986987*^9, 3.864963085641779*^9, 3.864964199083994*^9, 
  3.86496433252551*^9, 3.8649676905655603`*^9, 3.864967734458146*^9, 
  3.8649682214442883`*^9, 3.86496959080767*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"aa4411fb-ce64-4471-87d6-0f5a6a2995dc"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots of the wetting profile", "Subsection",
 CellChangeTimes->{{3.864900657021594*^9, 
  3.86490065838116*^9}},ExpressionUUID->"e63b7b2a-a0ea-45bc-8b3b-\
bf686e376070"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Sigma]x", "[", "0", "]"}], "/.", "s"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "51"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1.05"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Sigma]x", "[", "tmax", "]"}], "/.", "s"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
   RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5", ",", "1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50"}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50"}],
          "}"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\[ScriptL]\>\"", ",", "25", ",", 
        RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Subsuperscript", "[", 
         RowBox[{"\"\<m\>\"", ",", "\"\<\[ScriptL]\>\"", ",", "\"\<x\>\""}], 
         "]"}], ",", "25", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
     "}"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", "Medium"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.757660191007213*^9, 3.757660197850995*^9}, 
   3.757660278960314*^9, {3.7576603118976746`*^9, 3.7576603180071497`*^9}, {
   3.7576603678819757`*^9, 3.757660377850692*^9}, {3.7576611636968093`*^9, 
   3.757661242071682*^9}, {3.7576616879458623`*^9, 3.757661723555176*^9}, {
   3.757661784820783*^9, 3.7576618009144306`*^9}, {3.75766666036557*^9, 
   3.7576667038183546`*^9}, {3.757666865848019*^9, 3.757666899629055*^9}, {
   3.757667107892615*^9, 3.757667112017686*^9}, {3.757668058618136*^9, 
   3.7576680712743006`*^9}, {3.827406272914633*^9, 3.8274062954471817`*^9}, {
   3.8274077869949255`*^9, 3.8274077936627383`*^9}, {3.827409742411066*^9, 
   3.8274097435431194`*^9}, 3.847975470200431*^9, 3.847975508182969*^9, {
   3.8479757670179195`*^9, 3.847975777192006*^9}, {3.8487234920292406`*^9, 
   3.848723560408637*^9}, {3.848723592916564*^9, 3.84872362676842*^9}, {
   3.84872369708514*^9, 3.8487237713821526`*^9}, 3.8487239413629637`*^9, {
   3.848723979825961*^9, 3.848723980362646*^9}, {3.8487266564321623`*^9, 
   3.8487266603119583`*^9}, {3.864796207645176*^9, 3.8647962088625402`*^9}, 
   3.864796248255628*^9, {3.864796291250729*^9, 3.864796296706809*^9}, {
   3.864796340469224*^9, 3.864796358754003*^9}, {3.864796398751054*^9, 
   3.864796431350806*^9}, {3.864796466431964*^9, 3.864796582876734*^9}, {
   3.864796613613453*^9, 3.864796655565164*^9}, {3.864796718449356*^9, 
   3.864796737300178*^9}, {3.864796845721181*^9, 3.864796931414713*^9}, {
   3.864802802311777*^9, 3.864802840553955*^9}, {3.864878094001667*^9, 
   3.8648780953637733`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"9fe57e3b-e6e2-40d1-82e5-4a86c0cb8f3e"],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxdyb0OwWAUh/F/TEaDwWB4iYiINLTUt/etFrX2EiRmq5jM7tId9BK0qaXP
SU5Ofufp3R7ZvSHJL7a81eT2mYUv8/na/8PV3YRbcBvuwF3YwH14AA/hETyG
J7AHT+EZ7MMBPIcXcAgv4RW8hjfwFt7Be/gAW9jV/YYVocM6osOK0WEl6LBO
6LDO6LAu6LBSdFhXV93c/gCwi78j
       "]]}, {
      {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}, {{}, {
     {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7CuCzKoUuh7aQwUcSlD4HA7FKHwBNHkRh1IU
vgQaX8ahDIWvgCavhMZXQbNPzaEIha+BxtdCc48Omn49NL4BGt8QjW+ExjdG
45ug8U3R7DdDkzd3QA1fC4c2FL6lw1EUvpXDx2BkvrVDXSQy38ZhSzEy39ah
/z0y385hl4UlEt/eoYvVBYnv4LCPpxzBb3BwuKiaUY2Qd3Q46Xm7HiHv6LCn
4eEUhLyTg0ma+Q+EvJODWlbfWSW4vLNDwQ6hcm24vLODbPTL5BC4vIvDqpwX
W0W7YfIuDqHyf9SW9cHkXR18bpj9SZ8Pk3d1yP91bvuxNzB5Nwee9EX3Npk9
hsq7OShlXV78P/A5VN7d4bnQz/rYuLdQeXeHXX3HeVnnvofKeziwbZ7Q7v0F
ym/wcLAsN9N9+g8m7+kAoT/YAwDuVdAO
       "]]}, {
      {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}},
  PlotStyle -> Thickness[Large],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox[
     "\"\[ScriptL]\"", 25, FontFamily -> Times, StripOnInput -> False], 
     TraditionalForm], 
    FormBox[
     StyleBox[
      TemplateBox[{"\"m\"", "\"\[ScriptL]\"", "\"x\""}, "Subsuperscript", 
       SyntaxForm -> SubsuperscriptBox], 25, FontFamily -> "Times", 
      StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[Large], 
    GrayLevel[0]],
  FrameTicks->{{{{0, 
       FormBox["0", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {{0, 
       FormBox["0", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}}, {{{0, 
       FormBox["0", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}, {20, 
       FormBox["20", TraditionalForm]}, {30, 
       FormBox["30", TraditionalForm]}, {40, 
       FormBox["40", TraditionalForm]}, {50, 
       FormBox["50", TraditionalForm]}}, {{0, 
       FormBox["0", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}, {20, 
       FormBox["20", TraditionalForm]}, {30, 
       FormBox["30", TraditionalForm]}, {40, 
       FormBox["40", TraditionalForm]}, {50, 
       FormBox["50", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  LabelStyle->Medium,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 51}, {0, 1.05}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  RotateLabel->False,
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8647964854207783`*^9, 3.864796583158201*^9}, {
   3.864796617348289*^9, 3.864796655857479*^9}, {3.864796721954749*^9, 
   3.864796737833147*^9}, {3.864796852180191*^9, 3.864796931619204*^9}, 
   3.8647988865910788`*^9, 3.86480227510985*^9, 3.86480296550928*^9, 
   3.864878098459373*^9, 3.864878585996994*^9, 3.86487884682889*^9, 
   3.864879146245104*^9, 3.864879712099695*^9, 3.86487976104563*^9, 
   3.864962316170046*^9, 3.864963085805318*^9, 3.864964199242127*^9, 
   3.864964332695138*^9, 3.864967690763652*^9, 3.864967734699527*^9, 
   3.864968221635075*^9, 3.864969590979166*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"dc67e6fe-42ba-4c84-ba09-9b9dcd8cd86a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "0", "]"}], "/.", "s"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "51"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.05"}], ",", "1.05"}], "}"}]}], "}"}]}]}], "]"}], 
     ",", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "tmax", "]"}], "/.", "s"}], "]"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
   RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5", ",", "1"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50"}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "10", ",", "20", ",", "30", ",", "40", ",", "50"}],
          "}"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\[ScriptL]\>\"", ",", "25", ",", 
        RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"Subsuperscript", "[", 
         RowBox[{"\"\<m\>\"", ",", "\"\<\[ScriptL]\>\"", ",", "\"\<z\>\""}], 
         "]"}], ",", "25", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
     "}"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", "Medium"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.757660191007213*^9, 3.757660197850995*^9}, 
   3.757660278960314*^9, {3.7576603118976746`*^9, 3.7576603180071497`*^9}, {
   3.7576603678819757`*^9, 3.757660377850692*^9}, {3.7576611636968093`*^9, 
   3.757661242071682*^9}, {3.7576616879458623`*^9, 3.757661723555176*^9}, {
   3.757661784820783*^9, 3.7576618009144306`*^9}, {3.75766666036557*^9, 
   3.7576667038183546`*^9}, {3.757666865848019*^9, 3.757666899629055*^9}, {
   3.757667107892615*^9, 3.757667112017686*^9}, {3.757668058618136*^9, 
   3.7576680712743006`*^9}, {3.827406272914633*^9, 3.8274062954471817`*^9}, {
   3.8274077869949255`*^9, 3.8274077936627383`*^9}, {3.827409742411066*^9, 
   3.8274097435431194`*^9}, 3.8479773587713127`*^9, {3.848723791515731*^9, 
   3.848723890930251*^9}, {3.8487239482259803`*^9, 3.848723954743696*^9}, {
   3.8487240121406527`*^9, 3.84872401791714*^9}, {3.8487262748788595`*^9, 
   3.8487263324914885`*^9}, {3.8487263708374968`*^9, 
   3.8487263971442833`*^9}, {3.848726430240324*^9, 3.848726542795143*^9}, {
   3.8487265768071346`*^9, 3.8487266121298676`*^9}, {3.8647969461105328`*^9, 
   3.864796948475067*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"a378b39e-b446-411b-aa34-0b6720a34db8"],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxdyb0OwWAUh/F/TB07GDp0QEQakYb6pryvz7K6BInJ4BbcmMk1mGxGk0to
pV36nOTk5Hee+vl2ulQkRdn+bz4/8/i8r6/n1xQPW7YDu3AV9mAfrsENuAm3
4ABuwx04hLtwD47gPjyAh/AIHsMTeArP4Dkcwwt4CRvYln2HtUKHtUaHtUGH
tUWHtUOHtUeHlaDDOqDDOloVkwKw3zLF
       "]]}, {
      {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}, {{}, {
     {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAwAmIQDQEf7Pc+up199fAre6iAwwEUPofDIRS+AJq8CBpf
wgHVPBk0vgIaX8nhIApfBY2vhma/hsNhFL4WmrwOmn49NL4BmnsN0cwzQlNv
jMY3QeObovHNHPaj8M3R+BYOW1H4lg49KHwrh2MPkfnWDir3kPk2Dl/PIPNt
Hc5UI/PtHEL+3ETi2zvUv7iExHdw+FK+EcFvcHDgqRRGknd0iP2pkYGQd3Rg
eJUYhZB3clBy8JREyDs5SHPveHoZLu/s0F/ZbnEOLu/ssO3orLTNcHkXh6P3
P20wgcu7OEyq/WZ17wBM3tXh8Wq50utbYfJAfg9Pk2YTTN7NIbs4qvLntJdQ
eSD/wTumRS+fQuXdHao6dh4PzLoJlXd3WP8i5mvWtcNQeQ+HBbf+BFvErIbK
ezj43738XuLiBKi8pwMDFAAADeceWg==
       "]]}, {
      {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}, {
      {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[
       1.6]}, {}}}, {{}, {}}}},
  PlotStyle -> Thickness[Large],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox[
     "\"\[ScriptL]\"", 25, FontFamily -> Times, StripOnInput -> False], 
     TraditionalForm], 
    FormBox[
     StyleBox[
      TemplateBox[{"\"m\"", "\"\[ScriptL]\"", "\"z\""}, "Subsuperscript", 
       SyntaxForm -> SubsuperscriptBox], 25, FontFamily -> "Times", 
      StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[Large], 
    GrayLevel[0]],
  FrameTicks->{{{{0, 
       FormBox["0", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {{0, 
       FormBox["0", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}}, {{{0, 
       FormBox["0", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}, {20, 
       FormBox["20", TraditionalForm]}, {30, 
       FormBox["30", TraditionalForm]}, {40, 
       FormBox["40", TraditionalForm]}, {50, 
       FormBox["50", TraditionalForm]}}, {{0, 
       FormBox["0", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}, {20, 
       FormBox["20", TraditionalForm]}, {30, 
       FormBox["30", TraditionalForm]}, {40, 
       FormBox["40", TraditionalForm]}, {50, 
       FormBox["50", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  LabelStyle->Medium,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 51}, {-0.05, 1.05}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  RotateLabel->False,
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.827988609411915*^9, 3.8279886698531303`*^9, 3.8279887592582817`*^9, 
   3.8279888575627546`*^9, {3.8279889014996614`*^9, 3.8279889275359054`*^9}, 
   3.8279889798765097`*^9, 3.8287595859958386`*^9, 3.8287596781277504`*^9, 
   3.8287598737534738`*^9, 3.82875995665345*^9, 3.8291880828806767`*^9, 
   3.847973506059395*^9, 3.8479735972599306`*^9, 3.8479736485369005`*^9, 
   3.847973690145901*^9, {3.8479737205719767`*^9, 3.8479737676980305`*^9}, {
   3.847973857841072*^9, 3.8479738782492094`*^9}, 3.847973926936041*^9, {
   3.847974015274731*^9, 3.847974039073962*^9}, 3.8479740889197273`*^9, 
   3.8479741488476715`*^9, {3.847974719837966*^9, 3.8479747551252065`*^9}, {
   3.847974800639547*^9, 3.8479748296686335`*^9}, {3.8479748644979486`*^9, 
   3.847974885820114*^9}, {3.8479749166814237`*^9, 3.8479749310413904`*^9}, 
   3.8479749782966805`*^9, 3.8479750390915484`*^9, 3.847975096780575*^9, 
   3.8479751368975506`*^9, {3.8479752674022937`*^9, 3.847975294843747*^9}, 
   3.8479753448588386`*^9, 3.8479754046553593`*^9, 3.847975677373644*^9, 
   3.8479757461458683`*^9, 3.8479764179207363`*^9, 3.8479769740572124`*^9, 
   3.8479772760716095`*^9, 3.847977331947522*^9, 3.847977403417005*^9, 
   3.8479774578646817`*^9, 3.8479774894324613`*^9, {3.847986206479379*^9, 
   3.8479862297893543`*^9}, 3.8479863522257023`*^9, {3.8479864708638144`*^9, 
   3.8479864928375607`*^9}, 3.8479866179485207`*^9, 3.847986656156971*^9, 
   3.847986727959532*^9, 3.8479868062981334`*^9, 3.8479869260855303`*^9, 
   3.8480288569091206`*^9, {3.848029474258234*^9, 3.8480294954762487`*^9}, {
   3.848029533012965*^9, 3.8480296131292315`*^9}, {3.848029658466254*^9, 
   3.8480297024596868`*^9}, 3.8480297432749863`*^9, 3.848382864190421*^9, 
   3.8487186918629403`*^9, {3.8487238015577*^9, 3.8487238915803275`*^9}, 
   3.848723956507132*^9, {3.848724013142548*^9, 3.848724018619733*^9}, 
   3.8487241985775337`*^9, 3.8487244359969015`*^9, {3.84872631946025*^9, 
   3.848726333749221*^9}, 3.8487263840377607`*^9, 3.848726433323757*^9, {
   3.8487264638847632`*^9, 3.848726485132496*^9}, {3.848726532354471*^9, 
   3.8487265432151814`*^9}, {3.848726586554986*^9, 3.8487266126048574`*^9}, 
   3.8487267108162346`*^9, 3.8487269920353446`*^9, 3.8487271022955804`*^9, 
   3.848727360683178*^9, 3.8487278938096924`*^9, 3.864796107532395*^9, 
   3.864796948706769*^9, 3.864798892123496*^9, 3.864802275236753*^9, 
   3.864802965721468*^9, 3.86487810573151*^9, 3.864878586074341*^9, 
   3.864878846904108*^9, 3.864879146311487*^9, 3.864879712446916*^9, 
   3.864879761111027*^9, 3.8649623162109537`*^9, 3.864963085843948*^9, 
   3.8649641992986298`*^9, 3.864964332760024*^9, 3.8649676908426657`*^9, 
   3.864967734772472*^9, 3.86496822171482*^9, 3.8649695910509644`*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"65e33632-a386-4653-8cc5-38d4db9aec78"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots of the magnetization as a function of time", "Subsection",
 CellChangeTimes->{{3.864900676851501*^9, 
  3.864900678399901*^9}},ExpressionUUID->"a00437bf-edd1-4a46-9e4e-\
588700d45b4c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"first", " ", "seven", " ", "layers"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "5", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "6", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "/.", "s"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"0.02", "*", "tmax"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<t\>\"", ",", "25", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Subsuperscript", "[", 
          RowBox[{"\"\<m\>\"", ",", "\"\<\[ScriptL]\>\"", ",", "\"\<z\>\""}], 
          "]"}], ",", "25", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=7\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=6\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=5\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=4\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=3\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=2\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=1\n\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellLabel->"In[45]:=",ExpressionUUID->"639acfed-cfb4-4b12-a8f1-733bcad4c0a2"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvXLR3XUrpzLY7310O/vq4Vf21lt99Fbm6DnA+PH1
06WX59jB+Xt33bhovsUfzj+e5Nyk1RsO51/eLcLdLxkP5zMx3LK8tyQZzud5
dlGTuTwdzl95cEMnz+xsOF/iuM/DA6vz4XzrDo9djrsL4fyt6vesp54shvPV
X7rffr+lFM5vsp/wbf60cjh/mcAZT6eFlXD+IeY7u153VMP5KwrvJ7fPrIXz
y0oOdlQsqIfz553ZnWpxqAHOT5sjsHjtiUY4X6vWP3/Z3iY4P1i6I1zieDOc
/5F5w98tp1vg/O6/B42u7muF87u2nG3OO9YG57fWHE7u3tMO53/pW8F4eW0H
nH8irn335M2dcP4M+wCWG8u74Pyzd4Uyp27oRvjn2JHu2i09cL7MgQTbl8t6
4Xy18m9c59b2wfm69mXpZov74fwrKz4deOI5Ac4/IqB+J+sMgm/ceGGfkdtE
OD/kQpm++SkE/7P6pPRa10lw/hmVpf8i9iH4EQxblQsdJ8P5SU8sBU7vRvDl
lu/uSnSYAueL8Jum9B5C8DvqlVl/W0+F89ef4zNZuh/BD1HL15poNQ3hXuXj
9UKbEfyj/6STL5hOh/OvPnrKe2E9gv+/7SzTi88Ivqb21u//zWfA+QAQ+vEY

          "]]}, Annotation[#, "Charting`Private`Tag$1747#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBGIQvXLR3XUrpzLY7310O/vq4Vf21lt99Fbm6DmshfLj
66dLL8+xc9B6DOGb2V5a71rq7nACKr93142L5lv8HfZD+cIPppsu3hzscADK
P57k3KTVGw6X9+VfcywmONoBZt/l3SLc/ZLxDnug/AK3eUZnJyXA+d/0Nt2/
NCMRzmdiuGV5b0mywz4on+fZRU3m8nS4fSsPbujkmZ3tcBDKlzju8/DA6ny4
vHWHxy7H3YVw/lb1e9ZTTxbD3af+0v32+y2lcH6T/YRv86eVw/nLBM54Oi2s
hOs/xHxn1+uOarh9KwrvJ7fPrIXzy0oOdlQsqIfz553ZnWpxqAGuP22OwOK1
Jxrh5mvV+ucv29sE91+wdEe4xPFmeHh9ZN7wd8vpFji/++9Bo6v7WuHqu7ac
bc471gY3r7XmcHL3nna4/V/6VjBeXtsB55+Ia989eXMnnD/DPoDlxvIuOP/s
XaHMqRu6Ef45dqS7dksP3P0yBxJsXy7rhfPVyr9xnVvbB+fr2pelmy3uh/Ov
rPh04InnBDj/iID6nawzCL5x44V9Rm4T4fyQC2X65qcQ/M/qk9JrXSfB+WdU
lv6L2DcJ7t8Ihq3KhY6T4fykJ5YCp3cj+HLLd3clOkyB80X4TVN6DyH4HfXK
rL+tp8LNX3+Oz2TpfgQ/RC1fa6LVNIR7lY/XC22eBg//o/+kky+YTofzrz56
ynth/XS4+f/bzjK9+Izga2pv/f7ffAbcPABY6x+I
          "]]}, Annotation[#, "Charting`Private`Tag$1747#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCwBWIQvXLR3XUrpzLY7310O/vq4Vf21lt99Fbm6DncgvLj
66dLL8+xc9j/AMI3s7203rXU3eEcVH7vrhsXzbf4OxyE8nfKOfXfPxYI5ws/
mG66eHMwnH88yblJqzfcYT+U78u/5lhMcLTDLij/8m4R7n7JeIcdUP43vU33
L81IdNgJ5TMx3LK8tyTZYTeUz/756sYPvakO+6B8nmcXNZnL0+H23Qo+eJO9
M9PhEJS/8uCGTp7Z2XC+xHGfhwdW58P51h0euxx3F8L1b1W/Zz31ZDGcr/7S
/fb7LaVwfpP9hG/zp5U7HIDylwmc8XRaWAnnH2K+s+t1RzXcvysK7ye3z6yF
88tKDnZULKiH8+ed2Z1qcagB7p+0OQKL155ohPO1av3zl+1tgvODpTvCJY43
w/kfmTf83XK6BW5e99+DRlf3tcLd07XlbHPesTa4+1trDid372l3OAzlf+lb
wXh5bQecfyKufffkzZ1w/gz7AJYby7vg/LN3hTKnbuiGm1d27Eh37ZYeuH0y
BxJsXy7rhfPVyr9xnVvbB+fr2pelmy3uh/OvrPh04InnBLh5RwTU72SdmQCP
H+PGC/uM3CbC+SEXyvTNTyH4n9Unpde6ToLzz6gs/RexbxLcvAiGrcqFjpPh
/KQnlgKndyP4cst3dyU6TIG7R4TfNKX3EILfUa/M+tt6Kjx815/jM1m6H8EP
UcvXmmg1Dc43Vj5eL7QZwT/6Tzr5gul0OP/qo6e8F9ZPh5v/akskx52L0+Hu
+d92lunFZwRfJNLx72fRGXD/aWpv/f7fHMEHAKFsSCE=
          "]]}, Annotation[#, "Charting`Private`Tag$1747#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwA2IQvXLR3XUrpzLY7310O/vq4Vf21lt99Fbm6DlMgvLj
66dLL8+xc9C7A+Gb2V5a71rq7nAcKr93142L5lv8HQ5C+cIPppsu3hzscADK
P57k3KTVGw6Xv7xbhLtfMh4uz8Rwy/LekmQ4n+fZRU3m8nS4+pUHN3TyzM6G
8yWO+zw8sDofzrfu8NjluLsQzt+qfs966sliOF/9pfvt91tK4fwm+wnf5k8r
h/OXCZzxdFpYCbf/EPOdXa87quH8FYX3k9tn1sL5ZSUHOyoW1MP5887sTrU4
1OCwH8pPmyOweO2JRjhfq9Y/f9neJjg/WLojXOJ4M5z/kXnD3y2nW+D87r8H
ja7ua4Wb37XlbHPesTa4e1trDid372l3OATlf+lbwXh5bQecfyKufffkzZ1w
/gz7AJYby7vg+s/eFcqcuqEbzi87dqS7dksP3D6ZAwm2L5f1wvlq5d+4zq3t
g/N17cvSzRb3w/lXVnw68MRzApx/RED9TtYZBN+48cI+I7eJcH7IhTJ981MI
/mf1Sem1rpPg/DMqS/9F7EPwIxi2Khc6Tobzk55YCpzejeDLLd/dlegwBc4X
4TdN6T2E4HfUK7P+tp4K568/x2eydD+CH6KWrzXRahrCvcrH64U2T4PHx9F/
0skXTKfD+VcfPeW9sB7B/992lunF5+lw/ZraW7//N58B5wMAQhQDPA==
          "]]}, Annotation[#, "Charting`Private`Tag$1747#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwA2IQvXLR3XUrpzLY7310O/vq4Vf21lt99Fbm6Dm4PYbw
4+unSy/PsXMwuAPhm9leWu9a6u6wHap+764bF823+DscgPKFH0w3Xbw5GM4/
nuTcpNUbDudf3i3C3S8Z73AIymdiuGV5b0kynM/z7KImc3m6w0Eof+XBDZ08
s7PhfInjPg8PrM6H8607PHY57i6E87eq37OeerIYzld/6X77/ZZSOL/JfsK3
+dPK4e5ZJnDG02lhJZx/iPnOrtcd1Q77ofwVhfeT22fWwvllJQc7KhbUw/nz
zuxOtTjUAOenzRFYvPZEI5yvVeufv2xvE9z8YOmOcInjzXD+R+YNf7ecboHz
u/8eNLq6rxXO79pytjnvWBuc31pzOLl7Tzuc/6VvBePltR1w/om49t2TN3fC
+TPsA1huLO+C+//sXaHMqRu64fyyY0e6a7f0wMNf5kCC7ctlvXC+Wvk3rnNr
++B8XfuydLPF/XD9V1Z8OvDEcwKcf0RA/U7WmQlw+40bL+wzcpsI54dcKNM3
P4Xgf1aflF7rOgnOP6Oy9F/EPgQ/gmGrcqHjZDg/6YmlwOndCL7c8t1diQ5T
4HwRftOU3kNT4OHfUa/M+tt6qsM+KH/9OT6TpfsR/BC1fK2JVtPg6o2Vj9cL
bZ4GN+/oP+nkC6bT4f67+ugp74X1CP7/trNMLz5Ph6vX1N76/b/5DDgfAB8E
AuQ=
          "]]}, Annotation[#, "Charting`Private`Tag$1747#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwB2IQvXLR3XUrpzLY7310O/vq4Vf21lt99Fbm6DkwPobw
4+unSy/PsXOY/ALCN7O9tN611N1hLVT93l03Lppv8Xc4DOULP5huunhzsMN+
KP94knOTVm+4wz4o35d/zbGY4Gg4//JuEe5+yXgHmP1MDLcs7y1JhsvzPLuo
yVyeDjdv5cENnTyzs+F8ieM+Dw+szofzrTs8djnuLnQ4AOVvVb9nPfVkMZyv
/tL99vstpQ4Hofwm+wnf5k8rh/OXCZzxdFpYCecfYr6z63VHNZy/ovB+cvvM
Wji/rORgR8WCejh/3pndqRaHGuD2pc0RWLz2RCOcr1Xrn79sbxPcvcHSHeES
x5vh/I/MG/5uOd0C53f/PWh0dV8rnN+15Wxz3rE2OL+15nBy9552OP9L3wrG
y2s74PwTce27J2/uhNs/wz6A5cbyLjj/7F2hzKkbuhH+OXaku3ZLj8MhKF/m
QILty2W9cL5a+Teuc2v74Hxd+7J0s8X9cP6VFZ8OPPGcADfviID6nawzE+D2
GTde2GfkNhHOD7lQpm9+CsH/rD4pvdZ1Epx/RmXpv4h9k+DmRTBsVS50nAzn
Jz2xFDi9G8GXW767K9FhCpwvwm+a0ntoCty8jnpl1t/WU+H89ef4TJbunwoP
rxC1fK2JVtMQ7lU+Xi+0eRrcvKP/pJMvmE6H+/fqo6e8F9ZPh6v/33aW6cXn
6fD0q6m99ft/8xnw9A0Ac5cLuw==
          "]]}, Annotation[#, "Charting`Private`Tag$1747#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGCwAWIQvXLR3XUrpzLY7310O/vq4Vf21lt99Fbm6DnYQPnx
9dOll+fYOXT/gfDNbC+tdy11d1gDld+768ZF8y3+DoehfB478T21FwIcDkD5
O+Wc+u8fC3Q4BOULP5huunhzsMNBKP94knOTVm84nO/Lv+ZYTHA03LzLu0W4
+yXjHY5A+d/0Nt2/NCMRzmdiuGV5b0kyXD3756sbP/Smws3jeXZRk7k8He6e
W8EHb7J3ZsL5Kw9u6OSZnQ3nSxz3eXhgdT6cb93hsctxdyHcvK3q96ynniyG
89Vfut9+v6UUzm+yn/Bt/rRyuH+XCZzxdFpYCecfYr6z63VHNZy/ovB+cvvM
Wji/rORgR8WCejh/3pndqRaHGuD8tDkCi9eeaITbp1Xrn79sbxOcHyzdES5x
vBnO/8i84e+W0y1wfvffg0ZX97XC+V1bzjbnHWuD+7e15nBy9552OP9L3wrG
y2s74PwTce27J2/uhPNn2Aew3FjeBeefvSuUOXVDN9z8smNHumu39MD5MgcS
bF8u64Xz1cq/cZ1b2wfn69qXpZst7ofzr6z4dOCJ5wQ4/4iA+p2sMwi+ceOF
fUZuE+H8kAtl+uanEPzP6pPSa10nwflnVJb+i9g3Ce7eCIatyoWOk+H8pCeW
Aqd3I/hyy3d3JTpMcdgP5Yvwm6b0HkLwO+qVWX9bT4Xz15/jM1m6H8EPUcvX
mmg1DW6esfLxeqHN0+DuOfpPOvmC6XR4/F599JT3wvrpcPX/284yvfg83WEf
lK+pvfX7f/MZDrD8CgDXszy6
          "]]}, Annotation[#, "Charting`Private`Tag$1747#1"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
     ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         StyleBox[
          
          TemplateBox[{"\"m\"", "\"\[ScriptL]\"", "\"z\""}, "Subsuperscript", 
           SyntaxForm -> SubsuperscriptBox], 25, FontFamily -> "Times", 
          StripOnInput -> False], TraditionalForm], None}, {
        FormBox[
         StyleBox["\"t\"", 25, FontFamily -> Times, StripOnInput -> False], 
         TraditionalForm], None}}, FrameStyle -> Directive[
       Thickness[Large], 
       GrayLevel[0]], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> Medium, 
     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, 31.}, {-0.1, 1}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     RotateLabel -> False, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"\[ScriptL]=7\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=6\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=5\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=4\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=3\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=2\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=1\\n\"", 18, FontFamily -> "Times", StripOnInput -> 
        False]}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> Medium, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5147193333333333, 0.28770266666666666`, 
                    0.06825800000000001], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.772079, 0.431554, 0.102387]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.772079, 0.431554, 0.102387], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.24259866666666668`, 0.412334, 0.521566], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.363898, 0.618501, 0.782349]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.363898, 0.618501, 0.782349], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.864962316367756*^9, 3.864963085998496*^9, 
  3.864964199460803*^9, 3.86496433293328*^9, 3.864967691039015*^9, 
  3.864967734952322*^9, 3.864968221993833*^9, 3.8649695912414427`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"63047ebd-b22f-4856-861b-3c6d959e0212"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"last", " ", "seven", " ", "layers"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "L", "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"L", "-", "1"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"L", "-", "2"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"L", "-", "3"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"L", "-", "4"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"L", "-", "5"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"L", "-", "6"}], "]"}], "]"}]}], "}"}], "/.", "s"}], "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"0.02", "*", "tmax"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<t\>\"", ",", "25", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Subsuperscript", "[", 
          RowBox[{"\"\<m\>\"", ",", "\"\<\[ScriptL]\>\"", ",", "\"\<z\>\""}], 
          "]"}], ",", "25", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
      "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=L-6\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=L-5\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=L-4\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=L-3\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=L-2\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=L-1\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[ScriptL]=L\n\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8279790072784524`*^9, 3.827979031772992*^9}, {
   3.827979072922434*^9, 3.827979086802378*^9}, 3.827979128876192*^9, {
   3.827979386935217*^9, 3.8279794350392284`*^9}, {3.8279795120105042`*^9, 
   3.8279795188321652`*^9}, 3.8279795618849936`*^9, {3.8279796325248337`*^9, 
   3.8279796581450253`*^9}, {3.827979749198618*^9, 3.827979753916545*^9}, {
   3.8279799124192047`*^9, 3.827979915922923*^9}, {3.8279799827997475`*^9, 
   3.8279799898560767`*^9}, 3.8279801871782193`*^9, {3.827980376628963*^9, 
   3.8279803870107164`*^9}, {3.82798071196919*^9, 3.8279807215050125`*^9}, {
   3.827980988154003*^9, 3.8279810043513184`*^9}, {3.8279834104170074`*^9, 
   3.827983417207506*^9}, {3.8279834504325333`*^9, 3.827983486061061*^9}, 
   3.827983622502447*^9, {3.8279837264651194`*^9, 3.8279837288597746`*^9}, {
   3.827983861310008*^9, 3.82798395418285*^9}, {3.829110540520165*^9, 
   3.8291105616903706`*^9}, {3.829110844967407*^9, 3.829110875130261*^9}, {
   3.8291302086867313`*^9, 3.829130227782769*^9}, {3.829187499048998*^9, 
   3.8291875046490602`*^9}, {3.829290209822176*^9, 3.829290217709652*^9}, {
   3.829363833581778*^9, 3.8293638942313366`*^9}, {3.829363933363005*^9, 
   3.8293639457592726`*^9}, 3.829364080935274*^9, {3.8293644522182493`*^9, 
   3.8293644682677097`*^9}, {3.8293659240730314`*^9, 3.829365935531354*^9}, {
   3.8293663309947186`*^9, 3.8293663370806694`*^9}, 3.82964998232837*^9, {
   3.830256599383011*^9, 3.830256622556614*^9}, {3.830307769766179*^9, 
   3.830307779660452*^9}, {3.830307999673044*^9, 3.830308005269568*^9}, {
   3.8303084661873055`*^9, 3.830308504331585*^9}, 3.8303085716223445`*^9, {
   3.8303251918547735`*^9, 3.8303251923780622`*^9}, {3.8303255221456614`*^9, 
   3.830325557553706*^9}, {3.8303260629085255`*^9, 3.830326064332056*^9}, {
   3.864879310841241*^9, 3.8648793219384537`*^9}, {3.864879352308463*^9, 
   3.864879433047143*^9}, {3.864879469505661*^9, 3.8648795282375402`*^9}, {
   3.864879570091433*^9, 3.864879617067231*^9}, {3.864962085838866*^9, 
   3.8649620865120983`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"3ec6ab17-657b-47be-94a2-83921dec77f4"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxF0HlIEwAUBvB5ROLVEoOlopbhmJKSOo+kpkaHoBgpqUGZLpV0tYY2FR3L
eU3XPJsHlR2eI5YLt5LNYy51mptMzJLSWWGmBVYayyO1gnrvwcfj99/33r4k
5plkUwKBEPknf7f44cxjsYhAI/wblsr7KeWKAbxuXprwibEEprVR/YYYW+DE
VUGjnGEb8t/Lrs+iJQxncLA8wkvM8AIncOsc2xhHwT2KqfEAWRRYk3SM5yGM
BU8o7a0q9iaATQlvggzNdLD1/DjFLCsVLO6XllrfTgeTNBHvVY+Y2Id/ShGq
ZIHlZEOwaCQDTF48+far7DqYR6s03qvNArcSteFhD3LAarNpxRd+LridNUsv
aeCA2Zn9/Oz7XHCjVpkcqL4BTrlDbJIM54M9OFHM1h4eONqRH0vSFIC/m0k3
ZaOFYMFmv89kbxG4TKYruDpUDC7Ke04XdJeAf5S3m0xI+ODhCyXKms5ScD3t
tPlUWxlYN2N3WSQV4D1DAwKO7CbYSXXxyGKrEOyeZbQck5SDD9LYqf5NFeCX
7cuqufBK8ACRPJ2mRfvm63t9TlSBY/Rs74AX6BVydSrneDVYe6BlK64XHUeQ
u7FCa8BJc0HEUSXauU1ZlhhyC2y/i3pJqEbzuW47NoJF4I4xW7+WPnSMO9Oj
6nAt9nXTcO060YNbjnQ9tQ48+eGjjb4DbXQR6r49QZPO+wl3y9DnXvOso7vQ
70ZdrF6p0J9l8RbT4+jtYp3pwgradSBTbWFEh5k48Sir6MLcNJP0X2jLazsJ
S+b1+I/40M2VPWhq7UK3PQl9dqIij+qAbog0bLCd0c5huetr7ugQ7n6FAwWd
2D2SE+yJbvYnreV5owcz+rruHkLPS1Oye33RFks2gbNUNMVT/nM7AP0bKSQn
jg==
          "]]}, Annotation[#, "Charting`Private`Tag$2004#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxF0nk8FXsfB3BLi0r2UCK3U4mE7BK/L7Lva6WFbD0VleVaikROyTqWc2i5
lCUqS+GUKHsHWXKEi0Q3knAry5VcyzPD9Dx/zGte79fv9f3MfL4zv7mct3Hn
YGNjG8Mv4v4g433BAxobuiky6MiqHUXeVfJPpb360WXTo1NtHH1obtUNp8+e
X9GwfC9F3+0R6hdamLjDmkFPXr8u9s96jFCOijLTcxHdH5Uo0+MpRm1b1cp/
cHLCxHPvqSGHZMTmYXsshrUGZg9mtP/9Ng0pFJ5fkExfD4KeJiFX6Qno5Gx0
GsOTB466PNAZmo1DjZId23aK84PE+dEJdkoKOqnvcuEbpyCMM/oqshTi0M/T
36uejwrBxTUWn/c6x6GEuMv8ESxhsH6l525jH4dkirldLEpFYUT03bSqYAyq
+fNWkWj6FmjKiwgLVseQ4/xuzkHqVhixHIhyC4hDk5LPbPM9JWCXQ2XKo+Fo
xMzY3l4uLQm8RXPd/+THIgHG6TlJ8d+AV9kcq3CMRyfqH2+/xrcdqtvFw83H
4tDDnh8mY5wUkApMl+hYG4dmxrR9rX5QQEbj7DW74Tiku0i9zRjdAQ0G4l4y
r+JRHF9L7Zb+ncDc/MdZ/tR41LtdaDyUtQuCXO+YhBXHo10qR4U+1UnBGZ13
AVvZMORjmHHApHQ3HOB159y4GUMVR764FT6Shrt71bp+qmFovadCrFC6DBhM
CortNcSQw+UARlDiHuB/fj6K3xJDGVjF+36qLGzyKrOdcMbQ14zVaw4G7YWF
gonQHF8MaTLM5B54yoGeRWeMUiiGIuuTHHic5UGjadWuwQgMjXp6VT6XVgCq
zbWdrBgM8c1gtp6ZCtDEtA6QS8WQamjJZwnxfcA4dmKnbzqGjnF1X2LR90GY
TYyDVCaGwhP+5Y3gU4SSyK8tSrkYyt2yLUs1ShF8hEuZE/kYas3UVf/CqQTd
OrvVBIswNC3r0Xw7RAmeKmaw1BgY2vL0hrPFDyW4fW9boXophgDlT7N5K0N3
o+RH/nIMeTS0RRaPKgMFNPQzX2Ioxnp6q4ebCuSZOB15V4mhol6RJ6L9KtBQ
NYU9rMZQt6umftMhVbjnka2hW4uhxfETPSEsVei07YzvqsPQDv9wLwVTNWDb
Q/kKTAyZLGWzD9apwT8/Lfxd6jF0IbKRRtNWB5u19045N2CIzv+3tFGpOpyU
ljB3aMTQi1t8FXP7NOCaVGG08msMfaQo2+Q/0oDK2facb7i58g8NO+3cD50H
xKsSmzAkp3rpokD6fuBnvKVJN2PIrjKN55WoJkQndU0U4b5oVJMRkKgJG+7X
btrTgqG7rE+qMtwH4MSL1hPJuJmO65r6qAfgt4Ncv03hHh+UdYpfOgCXZr7X
G7ViSMDLakonSAvYRTrO0XCrz/hen57UAn2OEbce3E6hKWI5ntrwKLwwfdMb
/PzzMy36d23I/U/oBivcfJbdTlQ/BB/+NLaPwD3ydDbMbxaBXOW3o0W4neO5
2/dpA+j4MBt7cZvVbnWVvgKg9pTSsUjk/ZCdlqwB0OZmTku04fvdo0UVXaUD
vcKuxpq4+Z3MhfkMdOB9qLylHe7FxOM5ayN1YMTiMHYG9yjTS32pUQeU3/k5
XMbdNRfSOLNBFyozKV3xuGvk4hy/muuCi4u7bTruApe0sU/xurBlwUkgH/ct
ekHwe5YuHPJSN3qO+9rrio2dgnrAEtwkW4fbd7E1rdleDzolZdtbcDsrDsjX
pehB+2CuUxduM49vVeU9evDdumrhPW71W0vWxWIH4fHD3uwhok8r7+DD4wdh
M2UychQ3H4ekX0b6QfDh9q35hnteRWH1rb8OQoFymes07pHTQE+g6IOAf6f7
LO6OP6ykbrjrg191+Pd/cVexnEuv5ODn1ALZJdx5q72NA7/og6i1zyI7C0Op
GmG95/cYQOVkl98q3FSvhLOnvAxAOciTsQa3z7178ycKDYC9IrWUC/eJziex
DhMGULf5QuB63CbraiQslAzhYclDbm7cqlrthfq/G4LkzJXgjbi3e38ErWeG
8CPo/gse3DzZkyzln4YgYRPQy4t7rpvDVVbTCORNtg3w4f7MLThNCTECcWHB
Wn7cHUChilUaAWdPZ4wA7io/JWFBdmMIkWLpCeLOy9XLWa9nDPOci0OEU/ts
1TmoxlBj+6+PEO4IPrfGn0xjiMImJwlfOOjnOMFlAj9LY1034T4WGDE2YmIC
8Un5dYSN85KDP8SYgFoFc7Mw0edD1sbuVhMY6DL3ILxdiJH2hs8UztRl5BPm
MXolX29jCn0XzcYJz13qrKpINgXh9H8kRXAPF36yftplCrl7UiwItw/+8zFf
1Ax2iskEEq4QWeOX7WgGimdS7xJ+ZCq8+o87ZnAzLauOcGroLnpyvxm0Sft9
JBxRrCoVI2kO5+YE5glf+GxQetXFHLiWYgRFiT5ih4wvZZnDS5dhGcJGlqd6
fYbNgUkVAcLKVwPOntltAXb8hdaEJZ9dnz95xgKK0jucCXOPpcQeybMAhabC
c4RnJXIlrL9awOJL92DCQzalhUYKliAYdOQG4bZrDQA+lmDk/iyZ8MuybpZa
iSVYjxSmEY7a9Ox4iYgVPC5XLyDMaAlrN7PHLVJfRvgD1czwU6IVSFfdfbX8
fG2RFyFtVpDuePoNYZeCvOwCU2sIvl39nvBzCd34AaY19GWVfSLsseTpovPS
Bihap/8mLPghRSWz2BaUVp/+Stjr3t/vPO7aQ7Eb+ka43kUvXCb2EGyRpi7b
nDePecz2KPiu0/1O+G250Ib4zU4gN5G07Bm5ooH21JMwbpe8bA62Xo3+LFfo
YR5b9tqpziffY93hjrTIsrmHWdKcAadgAQ0s5/faVvesvXEaJGTeLvtB9eMb
3LfPQnxZz7Kd6y4zPDK9IIbxbtmi9WZ/VT06D8GPe5c99HvApoSGC3DPsHvZ
mpFGZTrl3mCY2bns2UOCl87W+AB790o+Q6pfk9boC8d/rvgcV1K0bqUf9Ct3
LFvqi+G7byW/Q5jtiu2Exkfqs/1hznHF4QibSacHQKD1ioV2y0lO3A4Eqf0r
vs/XbKx7Lwi+ia1Yeb0dhwjtIoQvrTyvhrOvbCzyEkSOkO9TdjxeIyEY9vWt
ONd7wPX6zRB48n7FvL5WM0t3LoP2wIr9/aojA++GguCHFXvq8djvN74C9qTT
msvd1WuugAZpjzt8mfkNYWBHzjdwK6yT0QuHv/pXLBNief7+y3C4SVq7+ayr
k+5VuEvaVizykGj9VfhAOoP3zkMP4wjgJfMmOB8vlDRFgDLpbtOIy2FvIkCF
dEXS4SXztxGgSjqKws7+uTcC1Ejv0LNZtXk0AjRJHw6fXh/CRQXdX/NsGqL6
+lSwIB29UK3YWUEFl195JS1XzzGvAZU0NbjWNfrFdXhIejoul/1tfiQ0/+p/
4np5UvENoJFWeDM2wNgbBSdJpyKrVd05UUAhXRT35KmqbDT0kP1b3gucpj2O
hljS29vPXryhGAP6pP2ZddEhJTGwhrRxbaJb8d5Y6CK/59YqZ60v92Mhm/Su
gJn1rflxsI/0XuR/SjUzHl6S/0NH7mTVkDEGRqSb+2JapaIxWEe6jk+q70wz
Bk3vVjzfcKnFYl0CpJBWCmurUDRIgCDSF7YktekaJUAg6bxi+482JgkQQHrX
cO9qX4sE8CctavrJrNghAfx+5QvN9SqdSgBv0nW5lB/KkQlwjrRdm7+82uv/
z09JJZ4K0U+EXNLNO7IXD1ckwgjpw2wMirdOEoiTfVyGNPiaypNAi7RETnnU
SUiGQNJCvCpusTXJUE06MpSy+l9NGnD92q/Uza1tITTYS7qwlUc5u5IGlqR5
rEYGsWoaWJH2ZFUnBdfSwJq0TIfflG09DWxIZ/X0FnG8oYE96dSh+/uc+2lw
hHT4nLa82AINjpK223VeJmE/HcxJ1+0Q62T500GOtBKlPlSgmA4bSGf42wWI
M+iwnjTf67/O7X5Gh3Wkxy/MH9cup8Ma0vcr9h04U0sHDtKijndmq9/SYY7c
xzzm7e09TYdx0q8WxVzbVFJgkHTnx08b2wpTYCM5v3SthWNkKgUUSUvvYfxY
Ukv9377+C9i0QXk=
          "]]}, Annotation[#, "Charting`Private`Tag$2004#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJw90nk4ltkbB3BRiYSQ1GskZMu+G3FuZHl5s0tRkYoRRvayZInsuxdhbJHl
sWVpE9lCWQZlBpUaJevUKEMbfs/D85s/znWuz3Xu65z7e8456OhhcYGRgYFh
ER/EXF70qrqczoDm7cddRzrmkGer7B0J9wnk19BCGcmeQd+2xthPu31AdV52
kxSFN2iCZ3Uxd2gZNTOgGxwOTxEqVVbqcltD7pkeLuU729Egv2rTChMTPPx8
R6pIth0xOFmeih/aDgZ2xx1dLtUiuRqPVcF8VvhL8Zeqnl216OyXuLxGN3Zw
cGLzDGiuRU8Enx849NNuGIs/8cLSCENn9RwvfWTihsQmO3aW1Ur01eWf1vtz
PBDXF2Eu01iGUhKv7o4Y4oXnqQvCmealSLKezdHkHh+IMnk8d9UqR+1/Ztfx
5e+HMeUz3FUdZcj2hzjT20h+oDFObVswLEOfBO9aVrkJwG9tj32cn5eiriKh
4SYJQXjz4QXnZ2oZ4mp0+Sb400Hwbg4+sbSnHJ3prhW6zikEx3+vKIiZLkMV
YytG80zCQK0bu5s+WYaW57W8zVaEIVkziydXtxzprEXmNM6JwB8SiTa/pJej
RM7+jv0Th+Ch46B5QE85GhfiWQgZEgVXSiXXxVflSFTZjmeqUwxC6FUuoVsr
kJdB0RGje+Jw5sr9qY8aFajl5Oz5GkwC+qRr16gOFYjVTS6BJ18Sooo1FJqv
VKDjV/0br6QeBhmms9SHyRWoKLnl1USkFAQKsFd/Kq9AH4q2bT96RRpMbdcf
iHRWII1Gmky5mwzU9S4y9o1UoOjutOPsDrLwBnPbfn2yAs25uT+6LyEHniKy
I/KLFYhzOdnS7aYc1LJ6hNxYr0AqIQ3TAj/Jwx6WJcNiVgyd2jEaOJQhD6F/
WH8+zI2h8JTvHBGcCiCE7SjSoGCobP+BYpVYBdDTtLHVFMbQwE0dtVkmRXiZ
f6iHVRJDS1JOfTnBiuCrLPk1SBZD++/EOJisKEJBUl89TQlDgKqWGDyVwPxj
cfqwGoacegaj6+eUQOOKC8/CEQzFmy/xO51XhsDF2bFfAEN143tv800ogxKj
QM5pXQyNntPQ67VRgX2TuzXY9DG0tnBmLHhIBfJEpAyiDDEk4hfuLmesCltc
48ob8f9ntF6y5W2nKryem/qSRsPQpegndLqWGhz9blumYYKhjN1/SxjeU4Ow
cs/traYYepjN2fJNXh2CuLgm+M0xNCmsZFGFqYNoqW8ozQJDO6ps3tsf+hmo
f3IxnLDEkIxKYABX/s8wfcp1i5EVhqwe5bE/5tOAhR21O0SsMRRg2F7kn6oB
UycvKE3hLhiaUpFkOwJ/NxQtJx3HUJctS+/LyCOQs9aaL26DoYW3UvZJ60dg
Zp/vzjrcXO5mn7WvaEIc1XOL9AkMqS17Ry190oTE0DSVbNz2IZmUUjctSD9f
6fudWJ++q5nxjxbUNXdVnDyJIU7TUftIHwSz0WsXqnDP3PkS5vMFwcUgdqsV
3A5JbMPyWgADGSVFarYYonXwn5MIBWj5PlXkhVttRWpJsB3g4vVUsVu4RQ5r
RvJt1Qb5PXFNz3Dvtj/Gy6mvDa9zFzh+4F5LPV3KHK0NWIvViwN2GJrrcldb
f6INcUozBQj3H9+Cnyzv1IFgdd8uO9ztMom2H47pgHTvT40+uKsd8+anknTA
j130WSzu7IzqoFdDOpAvr++bh/v605ZdI9y6ILTu/KUGt/faQF6ftS4IeFgF
P8LtoPBatjNTF/Yu2UE/bprTx9amMV0YiuANH8Otlr1uXk85CiNffdTe4RYZ
4HhbcfootHmV3P4bNyejoE9R/lEIZhPdt4z7h7Lctuy/jkKJ/WDsKu4ZF8hI
EdaD2CGVVaZTGHr+m5lYzAU9CHeOrGHB3TrkcC+0VA++J+ZOsuOu3OZJvTyr
BxesWVy5cWeph417HNaHMbkjZ/fijnRPcXV21weLHoktFNxehYU/ztTog9bE
QS0B3GdGbiccX9SH+htl7AdxG7G0C5goGsDROwdvCONW0Ryu0fM1AAnlg7OH
cAt5ToLmXQMQnTu4IIabveTTkNJXA3haVnNXAve3UcZzUhqGQPOutj2Me5qN
e0k42BCo/2o/kSLygHAk5ZEhDNQ+3SVD5PFR5OXeQgULSV4lWSJPmW4pqy4V
ghSPq8oReV5aqjFGUmF/Vj9FHncE5/knX7uoILelf5bwpaM+tos7jCA3a1e+
Au5TlyPmZ4yMIGrIVEMRN7UyPehNvBFgp6U7Cau8Kd41OmAEHR8QUiLy8DTm
/c5pDAl3128TZjd8LNttYQyT3oO8ykSewJHWlnRjcDOOdCX8vmbK/M4fxjBS
9r6B8PDbfyer+GjQs/xwhXDL3u0+JbY0OEC/p6aCGzPm3fZbLg2WSyq8CGeF
iGakT9CgEuUUEY6oVxGLFzwGUkbPeglfmta/d83xGDhW5SwSPkWxoQYWH4OA
Qbm9qrgNTZ3Hvd4fg0u1xuqEla75u14UN4GeshvWhAXvRv04e9EE0j1W3Amz
zWcmnKw0gekH2hGEvwiUCZh/wG1unk34ncW9GkM5U2i/L15DePB6D4CXKQQH
eLURbn4wOqTaYAqamUFDhGe8buoPLpqCy5P6CcKxe+6ebthrBlmFl+cIF3jy
Z4WqmMFEIeu/hBv7w4Zp1mZgQitfI/xUYpptn48Z2KnRmdVwv4mkGUylmoFZ
B4WTMJvW3ofBg2bQyzp6gLDq8l9yvOzmsK7BI03YsbqypNrYHDgF51UIJzr5
7zeIMQf33hOahO8L6CS97jIHz8fNuoSd1t0ctZst4NryPjPC3G8ylW/WWwLz
1UZzwu6Ff79wKrCGJmZ2S8Ldjrrhkgk2oARXN3yMo7LrlKUduHNXWxF+1sSz
M2mfPaw+k7cmvCxT93o46yz4+ihsmJFhXH2i+Bws845t1DN/Hrn9T8IFeENx
2TDb+yEJJn9nEDjMseFxy7Yx5hgXOPXg+8Z55W21MWw5rhBF3b6x7tB5tdHp
pjtwX2HZMF837a9WzAOERpg3/M7Xf09KzyV4ucS0YY1owwfaTZ4w2bC+sd8X
G+5A13Yv2D/8Y8ONYhMa9Cfe8Jh5dcO/7kiL03nkA8HOmxabNXjxscEXHmdt
2opnYaa7xA96ijcdjpKX8zP8IZi+aR5xGcHFnMvw1WPTtzj7qDqFV8AWbVqJ
1YpxLz0ACnZvup3p5YP56EAoXSD7eXA6ST0lCPpGN13m+fpc1I1gUH6xaQ5v
s+X13KvQ8GrTfj5t0ZcLQmDn60276bJb/0wNBX/SeX1NF9TaQ4FGOlzJaau3
XhhUT2zaKZfzZlVPGEyQ+/WwybFI6oaDOGnJYFOPW83h0PBy01p9rufsda5B
G2lLSrQNX/e1/+qLOHIrnKgR4Ed6kal2taE3AmpJtzCo8+npRcI46bjVNoWR
lkj4Tpp1zOBFoc514CP7i23ov/Zr13VQIB0Z1HEu7mEU/Er64bY7CrLK0ZBB
eimxbMuzqmgoIT2xnHmmXi4G4kj3nIlqSquPARppud/nXzdKx8IX8vwsZLZ1
tDQW0knXJd6+oyIVBxTS/a+4XOi1cZBP5hcadg2IUYiHw6T9ujrjghvioYt8
L2pH6vl66QTwJ83f6qA5eysBxEmL+i+zDlQlgtv4pqWRn7PKzSSoGdv087JP
re+oyfCJ/A99L+MHxOKSIZ50J6fYy4t9ySBO+kdPYL8JSwo8/3PTimGDLQr6
KVBE+tL+tEEdwxQoJF1Zbz1pYZQCBaRF349v8zZJgTzSfMZTtPrjKZBN+gfP
t3FF5xSgk+4sE15Rik6BFNJWg36yqk9TIJ+0SFCE8ThzKrSS/iyW6hyslwof
STvcoijOh6WCyP/ziZSsnWhJhROkU7mkd0+tp0Ic6RMMjcKe2mlQQ/q018q+
vKtp0Ena8Z06Z29TGrwl3fo44BjvWhpwkPcpUNoUexbSQZf0PrvL/v5h6RBE
modD+XxCezrcJx0dIrztuwYdpMj34Re7wT8YTIdfSNcMsCuVPKJDAWl2s5m3
yW10KCTtNtSWFtRBh5ukJZ/7fLbspkMJ6eKx8TrG3+lQQTrr3S15hwk63CYd
/k1LlrJKhwbSVqIekik/Z0AO6U4RysiQX8Z//SgKd4dw1WeADOkfyZ6enksZ
8JXM83iNcm5QORPmSff/E6o26JUJTGT9yOTUrsGaTFAgvX69n3HmcyZ4kJY4
3Liyrpr1X97/AYQACwA=
          "]]}, Annotation[#, "Charting`Private`Tag$2004#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJw90nk0Vd0bB3CRRjNJ8Uoh8co8JvaDzNM1NJc5XlMhUZmnckO4QmkQChWp
jEWGe0wVcpWSRBnKEEm6SeJ3Dmf9/tjrrM96ztr7+93nbHU+YXOMlYWFZQRf
xPNOzof7d9JYUNXAe68ubAz51cmXS/v0oasHvh3mSxpDcyupDl+8J5EMLVmO
jTKC+gT+fr/GYCIO6s+XCjcHEcpXVWnyXkCH300uqjv0oA4R9apfbGywVdLi
wvnITsTiZnskgbEK5pJ2rfaIeYkUik/8FctaB7FbmoOlFpuR02z8jTJvLmCt
KkYJTxrRM7HXWyT/4YUhzy9T/2U3IicDZ99vbPyQuPFpprsdhn57TNU9HhOA
kabEWs0DdJRyMYw3hiEIKx+/OH7waz2SKeFwtqwUgkGNDXtmeusR/W3mI6Gs
zTBV8WNgZLIeHZrfwTYYKwIDlusmZhPr0bRYhW2Rtyj4hjTU+WbVo6acbZ1V
0mJw8Hr2K++BesRX5jEn9s9WSJofTW1g1qO7736ZjrOJA5ujUZco0BFzXOck
5Zc4BKat1/rPiY70FmKvlo1JwMV8melVNDq6yNOGbe6TBEujcW1mOR31bBP4
Gs7YDppODok6DDrarnpYYLhBCoruuqrQJ+jI3yhnt2nlDng+njX8Yz2Gag6O
uhbfkwbO2vfjhZIYWuetkCiQJQOs8PZolwaG9oUFlZ2h/Qtv5w8M3TDFUE5y
zYe+WFkwn7b5c+YIhiZz2FftObMTLCWdnt7zwpBWmbncHW85mNokksN3GkNx
zan7uBzl4b5XfxkzCkNj3j61j6UVYIRC5ZxIwBAPM9nWO1cBPoT59TPSMKQW
XvpF9B9FOGV/fs7rOoaOrOkOZqQrQjxP4L3vuRiKSvnDHcOjBOxrI6Qe3cFQ
weYtt9QuKEH14P07/fcx1J6rpzHKpgwjVZSDwSUYmpF1a70aqgwSitMznhUY
2lxOdbT8pQwtve+zXj3BEKCiGRY/FTAumOeafIoht5aOuJIxFbhilVlTWoeh
BOsZETdXVeBbkDuxGcPQo56ND4X6VGEqs3ZWuRFD3S5aBi/2q0H99aZxwWYM
LXy1fxfKUAMlvpWpTS0YkgiM8lEwU4e2wSFj/ecYMl28vWKwQR0i8rrHaC8w
5Bv3LC1NRwN2sspfedqKoXTeCWnjSg341thS29KGoepMnpo5RU2wWBHYVt6O
oQFxFZuie5rQ2716nvoSQ2uK9n92kNwFnys44w06MCSnFnyWL2sXJNm7cUzg
tqu9wdUopAVJbNjfKAaGzhrTc4JoWuBjOHFrTSeGbjKG1WQ4dkNlz0JgOO6m
Q2tf9MbuhvXp3dRR3F8HZR2SFnfDKzvBFONXGOLzofzQPaMNueZbgq/j1mCe
PD8zrQ3541ayo7gdwjOE8711wPlvNV32NT7/UqGdPqUD82kU7uO4eay6HWID
EHA+Ev+aj3ukfDYyYBbBO0V1sfe4HZM4OhV1AOgPFoLWdGHIHBNxkY4A0Hu5
/a4Cbo1fsjNidABawYi5HW6Jf7VjhVbqws7A8f6TuHkdLAR5DHWh8KTwuyTc
C7Sj+avjdKElLzuvAPdYk4/G4jNdeJiffLsG95u50GfM9Xogwtgk2YmbLnfx
0KSFHszTvX0Gcd93vjE+nKQHuTGr6qdxZ6bfD/nA0IMDxaKHWN5g6NzzGs4u
fn3gEw0O5sB9cqH9RutefbBym9DaiNtRqV++IUMfdqjbN4rhNnf7Vlf1Th/+
fCrUl8atkbloXSK8B/gEdj1QwC3Rzj149+gekDGeAHXcPKxiATlZeyDMJ4Zf
G/e8qgJ75qc94BOjqaWHe8QD0lPEDaBWh/bIEPfr6xQp6jEDsDr2+ZYp7jqG
Y2VEvgGkrLyqY4m7kN3P5PSoAfhetXC2xn1ZM7LnxL+GwG3Au9UOd6xPipe7
jyFQaCq39uH2z86ety82hGrt4oEDuO27Hibu+24IJTzTXYdwm66li1oqG4GO
dunlI7jVtDuLDU4ZgQBzTske9za/AdCuMILTk88zHHBz3Z5mqPw2gjxewTeO
uOe6WV1ktYxhm8fuWSfcXzj4Z8RDjQHJSzOdiT4gHitcawzFISveuhB9ApQF
+VeYgNq6oRxXok+Bfv46fRP4vSNy3zGiT6+tBmusCdRu6JwhHMPj+ux3kwl4
CF6LdsPtuyfg0Pc1pnBKRnuFO+4jp2PGR0xNIWQhyoewSeGlkI8JphDoZdtK
WO3jLc7udlM4ZHpp639EH4GyGy95zOCOnIAfYS7jRvlmGzPQlZosJzwX3FVX
c8kM7Lyvfyf8uXjYuvyNGfQo+Et44O4c/DlQJGQOLfnVNoRrNq4KuH3IHM67
VocTvmcmyH79mjkIHPiQT/hy+Pb0S33mUJzH94xwTImaVIKYBWzdljNM2PeL
YWW0swVoXmMsEj4ivN8k+JYFyGv1bfLEbWzl3uP/2QKuyEUqElaJDvLy3GEJ
nFKiBoTFKs7PO3laQvufxb2EOcYzEg8WWsLmGL9jhGdFC0StJy1hb++TAMJD
NpXFxgpWYMQtG02441wLgL8ViPN1JxF++qSboV5qBdsWZjIJj/jnGnZ8twKp
HpFbhC9sqDhaupEC+2f1Cwnf9BO5HKFGAQ6X9BLCZW2RneZ7KXBdAp4Qfi79
hWNTAAWoa47XEf4Ya240TKPA3va9TUt5dTZWh3ZQwMx7N4PwtswQpsk3CtBC
+d8QVmd+UhDksgaxT+49hM1tjLwGZK0hpkSyj7Dz/cLb982swYJX8xPhi25B
m42o1jDOWzRM+LGoXlJ/kzW0bhceI+y26O2s+9QGhirvTRPm/5ihmltiC0kf
W34Q9smeeO92cy+E+VfMEG521o+SSdwPjxXZfxK24C5sOmJ7GFwevl3yqyqB
9UmbHCD6txKTMFPuUX/nZSco/U95yawsPZp9t1yAGvZz6f3VP7oeTiUeg52j
+Uvm+MyQZgtyhz+XPZbcY1v/bjXVA2bEjiz5Tv0DKsdVL2j1c1myY0NYmVuu
D3TlHVuyULP5p7p7J2Aw2nXJQ6eCNqS0+ILHa6cla8UZP9Gt8oPsAfslz+7n
D/ai+0PzwPL+ZVJ9WmnPTgJz9dElH1+TGq9XGwBGpsuWGjV6/630FHh7L9tO
4OtI8+1AqAlYdhRKZmalB4Gk57IFdsiJfb96GqQoy87jaTXRyz4DgXLLVlln
x7ox7Sw0cy2bztb7ZDwuGKR/knmeHE3STAkB9y/LLvDrdzl/JRT4RpfNfZLC
XLwWBm1jyw4MqI87fTMcqsaX7a3PtXeXSQSs+rrsG61VxzToETBCzqNU3Fae
NIiEENJu13hyi1oi4Su5XwuHwloZ/Sg4Tlom1OpE3tMo2EJap9XLxUEvGqRJ
2wrH7RdqjgZf0jnc1+66mcRAPunvbA/+lr6IgQ7SNSyaQgYGsTBBOv5vvVJX
TSysJPOse2f0PlvvHGwifaG0Lfp40zmQJR0bgrnEV5+HfaSr2cuV5FXjwJ/0
zMWCFa+K4iCUdB8zw75EgQqepFvsz1elllABkVZ4Od5ftvPC/8+/jCgru/Mv
QA2Z79HFh+VqsvHgSbrtA59H2oN44Ce9rdPrLFUpAejk9wlsaogPLU2AYNIm
GM21ZGciGJAWqXPUHs1LBE7S24OY69qLLgJ1ZNk7UaC7Wm4SsJN+XTBdN2SS
DBHk/9Dam9AuFZ8MmqQbeKR6PVuT4cfnZc+3BLdZrk2BStLKkR01SoYpkEa6
oUD8l0pcClBJ23UEyqs/T4FU0hIhMWY9q2lwl/QPKZp7qAENXpB2zBNWHo+k
wRTpVonbCwdqaLCBzEPj28k7vEgDDdIHWMrE/XRTwYb0Uf9fm26EpYITaech
TZ4XVakQSLqu8ayF4EIqpJEWza+64ASX4DHpTYdPBwVFXoJPpAW4VV0T6Zdg
PXlfceHi7H+00uAwaRGpKyIdoWkQQ7q4nUvldm0a3CMdNacjL/w3DR6Tttt+
QiZlVzoUkG6QEO5iBKbDOdLK4s3hfCXpYE96PtnPz28mHbRINy4Iu3SoZoAi
6bapCI0O/wzQI901MMzZUZwBLqQXz7WxjvzIgETS0v+W/VpUvwzFpP8H5gtj
XQ==
          "]]}, Annotation[#, "Charting`Private`Tag$2004#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJw90Xk4VdsbB3BRxHWF3LimK5TIFM7JEOtFHMc8VG5lytSAQqIMGXIyy5Ah
lUIDlVQyRCGzQiicnVKRjBUR5Wf47c1+7h/7Wc/nWWu/+/vda7PzCWs3VhYW
llH8IdaC3Pf3C9JY0LOBPo/uujHkU6NUKuvVj7ZGiVg8rxlD82tjHIc9v6FM
i1hvXpsx1C+wOHWlcxZdNNm4MCM1itBtilqj5xI6bjDKd2TgC+oQ3Vk5x8YG
EwbBmd/TBhGLu41dfCc7tM1N9+j++IiUi04sSlzjAs5vZi695f3o0K+47BJP
HgiwSou42tuHWiTe/LNFjA+W0vfbyQi/RYcMnL2/s22Ez2aZqawbMfT76GTN
kzEBGFHoyJpfz0TJiWf5Ijs3wfHXVktnC3qRXDG3s3m5EJQFfw038e1Ftb1Z
j4SuCcN4dgk7i0IvOrCwjW2QIQrnNp1fF0fpRT8kymwKPcXhic2aDk3TXtSY
K9lVKSsB/lcGM4vtexF/ydF5CbHNgL6q7pQ414scmh5InueVhGmOOv7Nd3vR
HWzOeJxNCtgUkigdr3vR7LjOScs5KQhVLS3MX+hFekuMyyVj0sD9Xq0ifzMT
JfK21Qn3b4F9njnDNoZM9FZSYCK0cyvUFf4ZJHiEibZSDgoM1cvAiLOK7iUG
E/nScncZl28DQeEet2fXmahq/6hr0V1Z0OfONf1ZzkRcnsoJAtfkoJ3mrinX
zkT7zgaUnEnZDvxinyLEPzFRblLV+36GPOhEpSe8nmKib7nr2HefUQCpvVtu
aLNgSKvEVLHAUxG2SvTNTnJjKLopdR+PkxKcCX3DiYQwNObpVf1EVhmovzcv
sktiiHc2ycYzTxnWpyRLhsthiBr6eFhcbAe88z/zY60KhuzWM4M603cA7c79
y9nqGIpI/t+GSF4V0HltneKgg6F84X9uUGNVgFM2o9pDH0PteXrqo2yqoOFz
mf6ehqEZeffWyyGqcOdaDzSaYEi4NMbJfE4V9o19dNCwwBCgwhkWHzVIZ2wu
1LPGkHtzR3TxmBqUKt3hm9yDoXirGVF3VwqEtNbkmdti6NFbwYdC/RQQ0G4M
PrwfQ0wXLYOXtlSYnHb/rHcQQ0sTDlhIJxVq9xpOD9thSNo/wkvZZCdYNcpv
tnfAkPHyzTWD9TvBm/vHfL4jhryjW9LSdNTB4c2wSIcThtL5vsoalatDi+ZP
4Z5DGHqaxVs1v0MD9mrOiVU7Y2hASs268K4GCMbFdCe6YGh9oe0Xxy2aUNzv
+oXmiiFFalAg/zVN+HJqV8kE7j3V2TwNQlrglvirINQNQ4FGtbkBKVpAbRhu
YXXH0PXOIaoc9y7YlnPqZQDuxgOcL98xdkF7NUPnI+6JQXnHC8u7QJBnQ7j2
YQzxe1lO657RBuZs+Ysk3OqzJ6NmfmjDDv9eah9ux9AMkdueOrBIpzwRO4Lv
D5dpp0/qwC63rPf2uHktmI4MPwR1ed356bhHSn+F+/1CEB9Y8KsZt9MF7q4d
OgBKfF7xP3Gb1om6yIYBHJ6M5RI7is+bk5+RqAVIKg1aD7ilt2szhNbqQk63
Drcjbj5Hs028hroAXoaxgbiXUuxvc0TrgsyewZEU3GONXurLLbog714XkY+7
Zz6kZfYPPfg497CgEnetYuKBb2Z68AoJ3GzFfd85e3zogh70sfcW9+HOSr8f
/L5TD0are3hGcZ9/UfVn90Z9AFWO3zO4Ty61Z7fu1QeVqb7oZdxOKh+U6jP0
oeJQ4PD6Y3gf9+81lZg+nHweg/hwq2ctWxWL7AY5qepYIdzS7RsG79jvhtP7
fi6K4+ZllfDLvbYbtpvKlErjXqAor8v6tBsCKdsbZXGPHIX0ZCkDYMRpyyri
fnPVUibGzQDC1Mo4VXDXdDqVh902APmmzykU3PfW+dBPjxqAnR3kq+PO1Ah/
e2K7IcjW5R3Qws3wSvY47GUIVJ6oLm3cvjk5Cw5FhsBqOs4OuB26HybsmzKE
1ucOU7q4jTlrxc1VaXDouuI9fdxU7a4ig1M0iNmigwxwS/oMgHYZDb46PLtq
iJvn5o9Otd80KFc62EPDPc9kdZHXMoJHtubTRriHuTfOSIUYgSt/2QSd6ANS
DJFqI/i1P63FmOjjp7pp4xo6ZGW8SzYh+uTr3+bSp8PUQVM9U6LPOxt1VgYd
Xg10vSccyeva8ruRDju4xI6Z4fbe7Xdgar0x9KfFDhG2Ox05PmJsDPsMhy3M
cdPvXQz+GG8M2lychYSpH2/8yWw3BvWOBhYLoo9ASfYrXhNgufXOnDCPUYNS
k7UJHPl9JpXwfFB3TdVFE1CaEG8j/KVoyKq0xwQUQrmXCXcN/hwoFDIF9eJz
8pa4qwTZ/W4eMIUb6iX/Er5rsmnd1SumoBMhHkY4M3Rr+sV+U8DKnl4nHFlM
lYmXMINogZdPCXsPG5afczYDh9eRPYTtRGzpQTfMQOiO6CRhI4vDb32/mEGU
214OK9xq5wI8jm0zh7CuS8KEJcqiFg4dM4dkeaXthLnHMxL23zMHg6IDmoR/
ieeLW30zB7VhBzrhz9blRUbKFuA9kGhLuON8M4CvBdzLWuNK+FkFs3PnYwug
UyeOEx7xzTPsmLKA8oSxAMKxf5XZPxa0BFreRCjh6z6imWFUS8ipFIsiXNIW
3mW61xK8RQoSCL+QHeb+288SahoqUgl/ZJjShlIsof5K1KWVvDqCT0M6LOHb
o103CEtmBc/Sv1tCX/diPuGds5+UN/FYQex1nULCptY0jwF5K/gQOf6AsPP9
ezfvm1jBs5nJYsKJ7gHCtBgrcCyzLCf8RFzvwodGK0h4dOcpYfdlT2fdZ9aw
KUOggfDGjxmUvGIboJTKNxL2yvna5359L+xnEWwi3OSsHyGXYAvLDi4rNttw
r9HO5iA8kVZpJvy6UuCPC387guKruBXPKj760JV5CI7uil8xK8tbjf4bLtBz
zGLFHNPdDycT3ICfwrZi7i+dsmwBh8FwuWFl/lub5xhHzFEwqS9fccHzBzHc
lz1gYbp6xU71Z0vc87yA/Z/aFQs1mX6quXsCNNc8X/HnUwF/JTd7w7h91Yq1
oo0qdCt9IOhM5Yp/2W4M8qj1hYcRT1ZcItOvldZyEtRvr/r4+tQ4vWo/sBtZ
tcwore/741PwhbNixXsEJkaabvoDP/+qI1DS7LX0AMjnWLXANkWJqcunQfzb
6vu3eFvpejlngL1t1Wpce1gF0wJhqHDVtWzvKsajg6DiIpmnwv6CRnIwUKNW
ne/zwSXqUghg0avecNJydvnKWYiPXbW/3/Po09dD4VTcqj31efZq0sOghnR2
a6Wbem0Y3CAdoea+9qRBOGiRdr/Cm1fYHA4PyHnN3MqccvoRQCUtF2Jx4taz
CBiNWbVOq4eLo945mCFtIxJtK9R0DrTI87kbrtxxp0eCD+kptgeLj19GQhbp
KhYNIQMDBpSTjlt8rtJdxYBXpLkwWl+O3nkYJB37uO3c8cbzMEeaEVznEvc0
CjaT+Z+uK1VRokSDNumZxPw1rwujwYh0/2yGQ7FyDFBINztEVaYWxwAXaeVX
4x9KFGL/+34mslzLvB0LMaQfJT4spcrHAYV023v+o2kP4uAD2V+yyyMwRiUe
Ekn7N9bHhTyOBxppel2Ka7FCAvCRFq1x0h69lfDffW4NmOVqL0yEfaQVkP9h
at4F6CLv/03+j5rP9CQwJ936Lr5dJi4JOEjX88q8O9aaBLXnV73QHNRmzpkM
UaRVwzuqVAyTwZV0fb7UnFp0MuwnvafDX2nni2RwIS0dHGnyliMFAklPy6Qc
DjFIgcuknW6JqI6Hp0AN6Vbpm0v/VqXAEOkUfgW+oeUU4CTz/ctSIuWjmwqS
pO195/7OPpsKKqSdP2vwvqxMBRrpmoZAs01LqeBGWvx2ZewhuAgxpP8+eDog
IPwiPCAtsIHimlB7ETDS0aFS6/6nlQYy5P8Ulbkk2hGSBpaki9p51G5Wp4E/
6Yh5HSWRxTSIJL1n6wm5ZM108CNdLy3S3emfDtakVaWaQvmL02E76YUkHx+f
mXTgJN2wJOLSQcmAZTJP22SYeodvBvCS+90DQ392FGWAMunl822sI9MZsJ+0
7PaSueWdmRBI+v+kewhW
          "]]}, Annotation[#, "Charting`Private`Tag$2004#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxF0nk8FfsbB3BLSpKEpEhCicSxk5jHvm/JUokop4REdsl6RHY6iK6tTQvK
ViGEUCGHdCXZJ9tNWSJuOb8Zpvv7Y17zer++yzyf55k9Th5HnJkYGBjGsAd/
38//XHSfyoC8GP7k2t0wiXjWSVeIu/cjCbzVKxWYl9fFOIy5TSOLvePu9NJJ
pJ/n98xN2gJCbrBitXGfRJB7CvJNbivIoHhpt+fcBNIhoFS1yMwMjtXqb4eW
xxEGsqVdHG09+J2lmquOjSGkYo/fQjlskKNV9ybXcAxx/BmbXe7GAUuKEbtC
m74gr4Xe7967ayuEDNmmn9j0BXHUcbr4jZkbdGSqQh8XociSy/e655M8MLpA
zbLLRJHkhCtbI2m8IDYd7sLkiCISpexOps/4YC48nlIiiyL1f2eW8OXsBF89
qTYzEooc/7WfeYQiACXVh33c5VFkVuipZaGbIFiXmOnwKaFIU75wZ5W4EMxN
l2y4iaAIV7nLstCuPVDOE7FQbIgi9s2PhaM4hYHj25Gl57Yo8uDjouEUswio
Zm0pEz+HIgtT6pfMF0XgSOj+k5k+KKK5QskqnxQFiXfPMsPCUCSBs61hZ/9e
qJV+//FnHIr0CvP8E0LbB0rlWvGJGSiyT+EED9ooBnOcPn1t+SjipZd/2PDZ
frBCZqs+PkCRmmMTZ4ofikON0pyzcgmKsLmR4nlyJEBeyKLu7HMUsb7iVx6Q
cgB8GHfORdSiSH5Szed+iiQEHeuVudyIItP5LOu1Aw7C9q9pzT9aUES13Fjq
vpsU2DwT8V7fhiLRzanWHKekQetn7EpEB4pMurnXPhcnwbzbOHNUF4pwLiRZ
ut0iQXBej/LeDyiiGFI2JrhLBkhnD8169KCIHWtPEC1NBmocKzz9e1EkPPnf
LZGcstB+g51Vsw9FCnbuvq14TRb2FQxdefsZRdpvaSpPMMvBJ/GkbSIDKDIv
SW7NCpaDEDrto/UgiuysiDlluigH/sKac+QhFAGkcJ7BUx6WqEdJlsMoQm7p
iC6dlIeuY7ZewiMoEmcxL0A+owCSqebmnzCX9G5/wtevAGW06Q8hoyjSc1pV
562NIlyLnnTmRFFk5R/7j8E0RbDVfN2QiFnUN9ydZKQEesGlWoxfUMSQfodx
pFEJkIklKzLmi9GvqVR1ZeDmNPlRizlt61dx/WfKMGSu77dlDEWqMzlrlmVU
gDe7Q9wa87CI/JHChyqg3bRbgoqZtdDmi8PeQ8AxYW3fhllKMSiQK+cQjFnJ
u9ExH63N5njFpwry6vdnD4yjSKB+fb5fiip0dPg9tMScS0MVJdgPQ8B2RpIf
5qbjG9/2UQ4DL/PgcBrmf0YkHRLph6H8+UmRUsxc7uZzGgFqsJG1xL4Vs/LC
pavzs2owP2T6fRizQ0g6/z03dRi/lMO/iK+PPVVL+64OdetUYtkmsHmb9ThQ
vBHoOi9Tx495vOJnmPdPBBiMyukSmE8lsnfKqANUcl8MV8Zs3CBwWjwUQL5p
IUAbs/Ki5LxQPUD2DZTbDLPoATUK3zoNYKryD7DFvNXBhJdTVwPOVe1uP4V5
JeXkvQ3RGuCb5UE6h3myyV2Z/loDdCtzqy5g/rAc/HphkyY8H/0a7Y25Xirh
+LSJJnhKiRUFYC5yyp5CEzXh0DZm9SuYM9OKLn+maUJNSYlBOOaoNzWbu7m1
gH38CUrBfGmlPbvVSgsyK9v5YvA8sgPSjelaMBcf9C0Wz0P+Vlf1UQsYGdN9
E/A8mXSLUn5tyN6v8SgJz9O+ZeTBSW3Iqw3KTcH7xSTknZ+jDRJkFrvrmH8p
kFgyh7Qh4O+kUSrePxdISxbRgZCUBuV0zO//MheLcdaBS/znnTMw19FOPQu9
pwN2cel+NzA/YvE08J/QgVL3J+RMzBkqYb0eB3Rhk223UhZminuy61l3XbDb
pLWI2ysv75d9sS7QOg/n38Rs3/0k3npGF9SutCv+hdlwY72gqZweKDyeqcat
qNZZrOOjh9XPppSNWdhzGNSe6kF8imIebo47szT5JT2gvRij417uYTotqaoP
594rWudgHmPnnhcJ1gdxroY83O9BhMJfqw/2Hx6M4q7zluPlZjSAASbrPbl4
ngKte2xaBqAt12KNO6PPUpmJYgBXv41ScEdynnm91GQAOzLPPMZ9Udv7+Ayr
IQRQW7px2/lHTo0bGkLLC4YF3AaPrl8ejDMEu0JFrjw8z+DtzT3thhC1knoA
tzBPefY7TiM4eFJVCzeH/ivp5iNGIMm7zhb3clB3Xc11I3ASDHTB/aUYtaj4
YASfX97wx9058mO4kM8YHhk7ROGu2b7e+85xY9izsz4V90MjXpa/bhrDXv6S
HNwZIfvSrvcbQ7FH6n3ckaWKYnFCJqC3k7sE98Ux3WcRTibgs6v/OW47fhuD
oNsmMPAl+yVufbOzvV5fTIBSe68Ft3yEn+v5/aaQPRzcjlvo6dVfjudNYWNf
RBdu9qn0+GOPTOG2kkAP7p+CBYIW06Yg+aSgD/fokWfF+iQziBqZH8TdEdUC
4GUGQ3KVo7hfVPbQlMrM4E0V6zjuca9buh0zZlAjWj+J+9q2pyfLtptDprD0
V9y5ngIZoYrmkN9h9w13eVtYp7GVOewwtJ3B/UZ8jH2HtzlsGJWawz1IMdZD
U8xB9u73+dV61bdXB3eYQ+Cs1E/cSgtDJF4OC3jtNbGM26no0Z0iIwtQq/3+
C3cC2W+nXowFnJ/WWsH9XFAzcaDJApztqXTcZLqbk8aLIxDZtYcpHzP3YLrC
rVJL2Ffku2r3vK+fyLlW0HT7xaqbnbTCJeJtYLzp/apNtjxqsrM8Aeou3My4
u6p4NiXucADvFKlVL0iVDHRmOEJs6ZqZGHpV+m+fBnM9gVVvmOt+8j3eGeJk
WFbN/oUmzux3Fn7cnV29v9fy5ccNMS5Avz296vsvH8ewZ7mCduf3VZ9qvFJO
vuUOzoEzq+ZrNh6qe+gBXSJrHvXx25bcchG0bdb2q0brV2pUecKy77dV/7Th
DnKt94LC/rX7y8X6VamvL0HNxJovsKbGatZ6Q+DvNYtN6H36VuYD+RvWzh/l
+We8+Y4vCLCtORxJWshJ84P59Wvm2S8lNJPlD8r0tfN3OVsNNPMCQObHmuXZ
jjJtpwZCw9Sa65n7Kqeig0B0lKin8mSiSvJl2DS45gLPgdNXbwTDNcJbLpkv
0G9eAY6hNft6v4z2zw0BK8JuWhxWhwxCwY1wdmuVs3J9KJwhHC5PXndJJwx0
CJNvct4qbAkDfsIt7KSNElrhsEB8TyLYzOPui3AYIKze6nraQTMCRghb8kfb
8DVHwBLh/C03H5ANImEjcd8M8+PfZW8jgZdwDYMKn44OBQQJx/5+KdtdQ4G9
hNk+6n3K04yCA4SvlbVFXGiKAhJhyuWG07HVV+Ew4WqWCllphWjQJjyfUMDY
VRgN+oT7F9LtS0kxoPknn/3VqtTSGJAnTHo3NVB+8BqIEM5AzNf13LsGmwmX
JDypUJSMhXkiX9tnLhfq41joJSzc6RoYIxsHLwn7NjXGBpfFwUPCBg0pZ0oP
xkMWYYG6U2oTd+P/m+c+vwW29sIEcCR8EPE9q3grEZQIvy+YrRs1SILNhFv7
4trFYpNgcWDNjZxifedbk2CI8K+WoDbTjcnwjrBcWEeNrG4yNP7ZXyCyKB+d
DHWEj3b4Siu9+f+66OVIo94NKfCW8JxYytlgnRT4QPjUXX65qbAUGCbcKnpn
xbYmBaYJp3Ad3IrSU2CJsC1DuYinRiowEfWf9FrckX0lFdYTdhpV4Xxblfpf
vrpXgSa8K6mwnbDgvaprjnAd9hDeccLfzy/sOhwkzLNF4Ux8/XU4RDg6RITl
X1UqHPnTb7EbAh3BVLAnXNzOIX+nlgrnCYcvq0vz/6bCBcJH93lIJB9KAxfC
jaL83TTfNHAgLCfSHMJVmgaWhH8leXp6zqeBPuFXK/ynOxTSQefP//I9VLnD
Kx0MCXcPo5s7itPhKGF6VBvT+Fz6f/MXP1C+SFfKAFfC/wO/xX9P
          "]]}, Annotation[#, "Charting`Private`Tag$2004#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6], 
          Thickness[Large]], 
         LineBox[CompressedData["
1:eJxF03k8FfsbB3CRbosQbokWpZJ9yS7mcThxrNlayBJFwpUlS7I7OrIeHITI
XhepLLnJkkSFQvRDokuqwU3iHqL4zTDcP+Y1r/fr+c4838/zndln7256npWF
haUfu/D7ndz3d+8wWJDa4XcuPU/HEI8G6SpRt0Hk008Soxvz/Poo28+uXxFK
6+J9ycYxZJDv11RmJxM53exVqvFgDEGKFOSbXReRBXPGbGDGGNKxS6lmlo0N
bLWLb110GENYHM3OxHRuAPMtRz+kC4whMmXuv4SyN8MlC+YXzmkUOTsXnVXp
ygkZR2Cmpx9FXgh17z24exu8/MgjaZyN1cn2lybZeOHu7ZY8iWAU+eH8reGv
MT4IqzOveh+JIvS4oG0RndvB78INVysPFBEr57A3quYH/U9tb/psUKTxf+kP
+LMFQL9JIvClA4pY/jzMNkLdBYP8PTWnMH8XemhW6roHTpb/kVOAuTl3f1eN
qBCczq+iLzmiCE+l87zQ7n3QO6tqccEZRWxa7u2P5N4Pb0/IznW7ociffbN6
42zCYFaYsM/aE0WY4xpex2eFYY8xiSbpgyKkRWpG5dgBcBZQepzmjyJx3O1P
BQYPQk9byUzDVRTp3883Edx5CORMLYaFQlDkkIIV32iTCCTVFrscDEcRT53c
o3rVh8GWXdbsBBVF6k6j58qKRcFlomfR6hqKbHaVieXLFgPU9ZmXXxSKnAjy
rfRPFIcli9at8tEokptQ936QKgGCv4/yJ8SgyNdc9g3a/pLg61xv1xWLImqV
BlJ3XKWg4fKHhvk4FKG1JJ3gtJOGHc8mS2fiUWTM1a3+L1EZMHvLONaagCLc
zAQz1zwZcOd2vkejo4hicMXnPbtl4TGJclc8EUXObOwN6EyRBbXaSL1azGH0
Ba4Ibjm4RbPP1EhCkdsCe/MVr8tBcM67nmLMr/JIyijbEdDbcOHilmQUmZFw
bMsIxPzW8P5ZzAJVUXZGs0dg72TeRClmQEpnWDzkYTpWp38Ss+PzDlr5mDwk
nd3uLspAkRiTmV2O5xSgrTySyxrzg/4d9/kHFeBQ1wXhaMy9Dmrk1pOKQOb1
ulSOeXHCpi+wUxHo1XrDbzEf8Alzk9FXAv6LbTFMzHpLBetGmpSA1TWyhScF
RS7RXjAYGsrg4S7VKI45Zds/orrVyjD3ZnRcE/PjdO66eVkVEBqqz7XAPCws
b1parAKcTykyTpg3lp78ZHtQFQa5fw74YJZSDLjCk60K3anX3kRgNq/P4nzG
rwZ7lfNU6Ziv6Dbm+iaqAWtciH4m5ludo4piHEeBurDpSCHmZstNrQPUo1Do
2LOpDPPEiIRt/NJR8NUp/1KFmcft+LSmvzpYRJK+1WJWZnpdm/muDiaNA6pN
mG2DUwWLXDUgR5mz/wVe//xQPeWbBsxdiNB+jZnbuNeW6o1ABM8QVzfmL1Vz
od5zCIg9qDDuxWwXz9ElqwHQdiqTdwCzwdNdDqIhACMmZOch/H2zEjNCjQDi
Q0HWw5gPiKtT+ddrwoPrLQsfMW+zNdzOfUwTXML5jD5jXky0LvqNpgnBJt1n
UMxjzW7KSy80YXRjmvQ45rfzgS+YW0ggluLZPoG5USrO8qshCapngo9+xXzX
Pmt8NJ4EB/0nQicxp6fcvfq+kwTbuAJzv2GOfFm3tYdXC04/nMqbwuy1+Cqr
zUILFBqkaN/xPHJD0k2pWjAWVGw6jedxnGyo6dMC26H5DTN4nvQlk3JBbZjY
eSMf94FXXCN/WmsDbXpB+l98XqxC3rnZ2uCkQS/G/VNBhj39b2348OErPxOf
nzOk0IXJwFyo9sXdffO4SNR5MrAvBLXibui0qw4pIoMAeWTHLOYSdg+KH0qG
isFQS9xpKqH97uLHYLfc82TcVDe6i5PbMWjy2fsSt2dOzk+bMsyRT3/gtum5
H3ti6hhsmj8sPIdZb1PjHqMjOpDxL00Xt6J6Vxn5sg70qMRdxL3fYxjUH+rA
/dPCNNycBd875X/oQHcUNRf3fC+rg4SaLgQU0x/h/szBOyMcqAsLZ7Ne4+4G
YapgvS6U1pGGcTd4H9nOu44CKmSxadwlt7WKNmtRoCyZk/UHnmfATJmVSoER
QWku3BHc5178aKbAcPoGQdyXtL0tpzbqQfsjj4O4z/hFjH/RwzzlIoWbUpJ8
9UOMHnDI6CriVvyQv7X3lR5UnT+tjns/X2XWa259iE7+poWbU/eZdIupPqjy
1VBwzwf0NNQl60NsXJoR7k9loyZVb/Vhi9FrU9xdI/8Ol/IbgNrNghO463Zs
8C6wNAA9RztL3MX629lvZhqA01C59XKe4EMpyYMG8CXT2245T7miSIyQIbR1
ddkv5/l8rDrc3hB+r1w8t5xH8CQlIN8QUupFnHDLh/u6XDxsBKl9tRdxc4yn
xp4uMYKcf1zccH80rS7TlTGGZ5PD7rhrH/V2KlUYg0DzO4/l9Ro7Hgd2HAdG
qZUP7r/2kOKHmk0gk+rih9txydVes9YULpvs88fN+yFVIa/cDHYwlZftlvPP
O8dbFlBYY7DsFnutMLHYk/BY0mzZhlwlzWfMrMAh59yy39TwbYnfaQtP5VyX
zZR6MNSVdhYW1FbMytKvMpjvAKM7nZb923TP/W+x54FUbLdsjk+domy+TlAV
YrXsfrMnfb9FOUO/veWy7zy5F8WR4QJ7F1ds1xRU6ZjnBnMSK+v5Wwz+bih2
hz6+FX+87Ps7/fkl6H+3sl6NpvtIs8YDztxc8dxJ3gCXRk+Y8FxxpcigGuOF
F6zzWfEfG5OiSfXeEBqwYhFU591kxWWwCFqxOd/El5YCH9gQvOIwJIGZneIL
B4g632EpoakMP/hJPF/I3UYh5fiDrP+K5Tebs+5gXIEEol8j28CjcVoAXPIm
9vPIOl6FfhUMvFZ822PI4dqNQHAnzOV1nLmUGQRJhH28n9D8bgVDEWFXLU4L
VUoI3CWc1VZzXrkxBEoIh8k7rvcih0I+YcdM7rzS56GQRvg5h8wmMa0wiCMs
FmjsXlgbBjTCGm0uDrakcLhO2EyQdpK/JRwSCOdyZf7pSIkABuEptnu/Kloj
1t5fx6LCTyZTIZ1w9K8ncj11VMgkvLlP510OKRKyCF+vaA//ozkSsglTrz51
iH58DXIJP2avkpNWoK3lmYm7ve5NKQ0KCA8yU23KZaLW6s9trtUklUfBLcIy
r8eHKiWvr/VPQ46v7y26DimEH8Tdr1KUiIZ4wu3veZwZ96LX5uHT3BQdWBED
VwnvarBTRwtjwZNwToZ4vpVYHLgRPuTL3PyqNA6cVudrpagSdjgezhKWRHyc
FPPiwZJw9+3vDR8pCWBEuG0g5pVIdALoEG7iFhm42JYAmoR/Pg9oN9pEBzXC
R0I76uSO0UF5df1t4Vl5Gh2UCJt3+EgrvfyvPi2S6BRITgSN1X4HChZP1SUC
mXAij+S20aVEoBA+xVIp7KGZtPa9WnvO7swKSgJDwvYfVbhba5LAmHDDsyuG
2xeTwJTwnqKa62chGSwI77Ty8/UNTYZThPm4FM7FNiaDFWEjnRJ57aVksCFM
CxZmX1BjgP3q/EVu7OoIZMB5wmWvOOUL6hlwYfV8PxbK2g0ywHn1f5jXkBb8
9Z/ND7mL0VVT1s6n6YBgT6dPCpxbnadwSzBPeQrYrc47wcPDYyYFzhB+tijo
0KGQuub2byHKHZ6pa/vtGR7d2lGWurbfpch21i/TqWv9RMUrZ5eU0sCF8P8B
uhXxtQ==
          "]]}, Annotation[#, "Charting`Private`Tag$2004#1"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
     ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         StyleBox[
          
          TemplateBox[{"\"m\"", "\"\[ScriptL]\"", "\"z\""}, "Subsuperscript", 
           SyntaxForm -> SubsuperscriptBox], 25, FontFamily -> "Times", 
          StripOnInput -> False], TraditionalForm], None}, {
        FormBox[
         StyleBox["\"t\"", 25, FontFamily -> Times, StripOnInput -> False], 
         TraditionalForm], None}}, FrameStyle -> Directive[
       Thickness[Large], 
       GrayLevel[0]], 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> Medium, 
     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, 31.}, {-0.1, 1}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     RotateLabel -> False, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"\[ScriptL]=L-6\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-5\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-4\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-3\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-2\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-1\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L\\n\"", 18, FontFamily -> "Times", StripOnInput -> 
        False]}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> Medium, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5147193333333333, 0.28770266666666666`, 
                    0.06825800000000001], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.772079, 0.431554, 0.102387]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.772079, 0.431554, 0.102387], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.24259866666666668`, 0.412334, 0.521566], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.363898, 0.618501, 0.782349]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.363898, 0.618501, 0.782349], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.864879306342146*^9, 3.864879322218585*^9}, {
   3.864879366405335*^9, 3.864879383971485*^9}, {3.86487942132618*^9, 
   3.864879433295542*^9}, 3.8648794984027643`*^9, {3.864879539499288*^9, 
   3.864879541035263*^9}, {3.8648795875882683`*^9, 3.8648796175677023`*^9}, 
   3.86487971273022*^9, 3.864879761269699*^9, 3.8649623164810867`*^9, 
   3.864963086107583*^9, 3.864964199574078*^9, 3.864964333108572*^9, 
   3.864967691247731*^9, 3.864967735322906*^9, 3.864968222477832*^9, 
   3.864969591440756*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"df717b60-6c62-4a35-9df8-3a96dcc9a5db"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots of the single-layer and multi-layer energies in time", \
"Subsection",
 CellChangeTimes->{{3.864900692561257*^9, 3.864900694584592*^9}, {
  3.864900771603654*^9, 
  3.86490077186862*^9}},ExpressionUUID->"522539cb-0be9-4838-b260-\
20de65d8f1aa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"En0", "=", 
    RowBox[{
     RowBox[{"-", "hx"}], " ", 
     RowBox[{"Tanh", "[", 
      RowBox[{"\[Beta]", " ", "hx"}], "]"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"energy", " ", "of", " ", "the", " ", "P", " ", "phase"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Enp", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["J2", "1"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", "\[Sigma]zF", ")"}], "2"]}], "-", 
     RowBox[{
      FractionBox["J4", "1"], " ", 
      SuperscriptBox[
       RowBox[{"(", "\[Sigma]zF", ")"}], "4"]}], "-", 
     RowBox[{"hx", " ", "\[Sigma]xF"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"energy", " ", "of", " ", "the", " ", "F", " ", "phase"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"En", "[", "i_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["J2", "1"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], ")"}], "2"]}], "-", 
     RowBox[{
      FractionBox["J4", "1"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], ")"}], "4"]}], "-", 
     RowBox[{"hx", " ", 
      RowBox[{
       RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
       RowBox[{"[", "i", "]"}], "]"}]}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "energy", " ", "of", " ", "the", " ", "disconnnected", " ", "layer", " ", 
    "i"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Enc", "[", "i_", "]"}], ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["J2", "y"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], ")"}], "2"]}], "-", 
     RowBox[{
      FractionBox["J2", 
       RowBox[{"2", "y"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "i", "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"i", "+", "1"}], "]"}], "]"}]}]}], ")"}]}], "-", 
     RowBox[{
      FractionBox["J4", "y"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], ")"}], "4"]}], "-", 
     RowBox[{
      FractionBox["J4", 
       RowBox[{"2", "y"}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "i", "]"}], "]"}], ")"}], "2"], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", "-", "1"}], "]"}], "]"}], ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"i", "+", "1"}], "]"}], "]"}], ")"}], "2"]}], ")"}]}], 
     "-", 
     RowBox[{"hx", " ", 
      RowBox[{
       RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
       RowBox[{"[", "i", "]"}], "]"}]}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "energy", " ", "of", " ", "the", " ", "embedded", " ", "layer", " ", "i"}],
    " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"EnL", ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["J2", "y"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "L", "]"}], "]"}], ")"}], "2"]}], "-", 
     RowBox[{
      FractionBox["J2", 
       RowBox[{"2", "y"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "L", "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "L", "]"}], "]"}]}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "L", "]"}], "]"}], "0"}]}], ")"}]}], "-", 
     RowBox[{
      FractionBox["J4", "y"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "L", "]"}], "]"}], ")"}], "4"]}], "-", 
     RowBox[{
      FractionBox["J4", 
       RowBox[{"2", "y"}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "L", "]"}], "]"}], ")"}], "2"], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
           RowBox[{"[", "L", "]"}], "]"}], ")"}], "2"], "+", "0"}], ")"}]}], 
     "-", 
     RowBox[{"hx", " ", 
      RowBox[{
       RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
       RowBox[{"[", "L", "]"}], "]"}]}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "energy", " ", "of", " ", "the", " ", "embedded", " ", "layer", " ", "L"}],
    " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"En1", ":=", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["J2", "y"]}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}], "2"]}], "-", 
     RowBox[{
      FractionBox["J2", 
       RowBox[{"2", "y"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "\[Sigma]zF"}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], 
         RowBox[{
          RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "-", 
     RowBox[{
      FractionBox["J4", "y"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}], "4"]}], "-", 
     RowBox[{
      FractionBox["J4", 
       RowBox[{"2", "y"}]], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ")"}], "2"], 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", "\[Sigma]zF", ")"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], ")"}], "2"]}], ")"}]}], "-", 
     RowBox[{"hx", " ", 
      RowBox[{
       RowBox[{"\[Sigma]x", "[", "t", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "energy", " ", "of", " ", "the", " ", "embedded", " ", "layer", " ", "1"}],
    " ", "*)"}]}]}], "Input",
 CellLabel->"In[47]:=",ExpressionUUID->"2ed0287f-0f29-4299-ae8f-c2cc8665716a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"first", " ", "seven", " ", "layers"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"allP", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Enc", "[", "7", "]"}], ",", 
         RowBox[{"Enc", "[", "6", "]"}], ",", 
         RowBox[{"Enc", "[", "5", "]"}], ",", 
         RowBox[{"Enc", "[", "4", "]"}], ",", 
         RowBox[{"Enc", "[", "3", "]"}], ",", 
         RowBox[{"Enc", "[", "2", "]"}], ",", "En1", ",", "En0", ",", "Enp"}],
         "}"}], "/.", "s"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"0.1", "tmax"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"Enp", ",", "En0"}], "]"}], "-", "0.02"}], ",", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"Enp", ",", "En0"}], "]"}], "+", "0.14"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{",", ",", ",", ",", ",", ",", ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.50"}], ",", 
            RowBox[{"-", "2.45"}], ",", 
            RowBox[{"-", "2.40"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.50"}], ",", 
            RowBox[{"-", "2.45"}], ",", 
            RowBox[{"-", "2.40"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "5", ",", "10", ",", "15"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "5", ",", "10", ",", "15"}], "}"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=7\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=6\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=5\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=4\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=3\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=2\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=1\n\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*SubscriptBox[\(E\), \(0\)]\)\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*SubscriptBox[\(E\), \(+\)]\)\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<t\>\"", ",", "20"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Subscript", "[", 
           RowBox[{"\"\<\[Epsilon]\>\"", ",", "\"\<\[ScriptL]\>\""}], "]"}], 
          ",", "25", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", "Medium"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.864962173936508*^9, 3.8649621812655067`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"762373c5-52be-449d-b089-049c2f2b98a5"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF0nkwlHEYB/BNkYaO2aaaSoUmhBLJtbI/S2KRtWmx9sjmqkhp25XWObmm
CyO1ZYYs3SUaJe2sYmtKsjQmtxwjqWQi5eya/XneP9555zPf53nm+b2/10AQ
zQzVIJFIrH/P//etQxYJSzPrnCSimlUeOprPLJQyxTBrgpqA7VVPXvmVpY3i
sc1DOqptlWQkxrYU3BNOclajuf60sMCRptQNKAU7qkJjx74WQ3QCu7Uk047e
uQly17xljtReExSLvcmTUf/Y2BwxsbVIWZxtRyzQZ7Ha2pxuY7aTJRLHqK1b
KTTIf2GFOElq00XhvQVR1qgc92das6/JVtggz0i1Px0MVX6psEV3MtR2Lzg6
uJ1lj3hhalNYo0+T2x2QIkXtrYuFWSqeI8qJVptjxDT7MN8J3T2J51O3vfx2
k4r6j+P9o2iLNKQI9eF906oiS89yndFivI/YZWO6/XoaisOOqG/jfeymoUps
UZpi9Y9SFxSNnYpkzfOSXZEIm0txiSC77kJnsXfY9E8bLnRDc/dlKiiLyW13
g/vQP584pHl/N+TXx9uypfHukJtzrR22eHuAJZr0p7VL6FD/5h7fkd1Ih9wu
XVboW+QJLtk/uMBD6AX/R2fcR2cXO2/Il18cSNg54w15RA+54HLjHpgvN0PV
Y8U+YEabJKPSgQH1tfmBlr+KGDDvCinXzXaBL+QxIQ1B4lBf6G/tKegbbPBF
idhO3GMHA+yYkC+KK+TUXWFCf3Oeysdxlgnzw5uUQdXcveApnapwmoKwHt9t
YNzID52am1/+TnDrAuEXJXIv3nc/qPeSXrdZvncfWFBinDMhJywuuzncZcQC
+3WMBDefJ2ylafu+7icL5gtVHY9q/P0hfyxNulRVSThDIh/qMwgAs/kTFJ0z
AXD+rL7sKethwi9DzZ7wfALheyi1zmRJSwnX3vgc3ryUDWYE9z6gxrKhv2tN
6+TtHsIqoXnpKloQ+HlDUshpGeGah/7lChEHfK5tqHWawgV/ctC2DJolHPzW
L3KtigcuLuQkdefwwSnM15Tk7fvBcTGmjOKrhFushhpfzRCu0aHWrgsLBpNT
Rw2Erwib6kVKO0wE4KY3kpTj2YS71n5p0R0j/PtwcUTa5gNgfTl38g+f8F9Y
PDJJ
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF030sFGAcB3AppaHa9V5KNCoUJ2853T3OS1zkOpycO8dFXqK83A7lfV66
KdEKt1rUqWiT0YrUKGRCjrK4vKQ1b73ZSNF77R6/549nzz77Pu8v+qKTnBB1
NTU1zr/yv66IMEtZKW2nJ0ma1rtpaTw2a5E3fOLOMRbs3klZ95GriZKxTYMH
Gm1aKCgVmyqqFM/zN6I07OxjflM9WXpIgh11T93Kp88AZWD335DasgYNUSK2
U+Eqe8bbnSgT2/Agu7N2hylKx16qls83P2GGHmNr8od38OhUFCtWWbtOrH/l
qQWKPq0ySxL6tiTKEmmfVFlqybsmX2uNFAkqT4SHtHy4Z4NeYruWRI/v5e5D
G6JVpnGnH6a/tkNFiSrv0RHnKwLsERXPzzfimLxZTEcvsaUM89bP5Qw0g9dj
GMVcri5DqHbhPOojq84KHJAYO95xe86+rUyUgh3WqQwYG2aibGxJdsPGL1WO
KAY7C8l7F6U7oQRsAc0xjOLkjHKxrazf/TBY5gLjGYuqYy++dkEL97ctL3VS
484ByG/OKgtkya6Qmwos7XZ7uIGTNFgPm1ewoH1HpdCe182C3DZHXnr4+kHw
jcDxJW5id3gfg6fGHBxtPaD/6kujKft/ekAeNkIpKe4+BPkjE9Q4U+YJ47GV
SWfq7NjQvvmKH/XbdTbkscFd/vEhh8F0QUz4EVsOuLdQ4Wn/izi0p8W/UeCF
TmN/16oPZTYQ6wpdRmeNvMH0mheiivPE7rKb1qu9fMDx1eWfhoy4YO+BqaDe
PGILDZtX7V+5ML9YMXC/ydcXXCtLK6qvI+YJ52hauUfArSEmDwI8/cDNt96H
9q7kgYc29c/fHiF+0pUWnCn3BzMdInP1dfiwnqa7vjUNEuLy1lJngZL4nHKy
/wdNAJ6w06T6/yIOeu4duVkRAC4r5acNXxCCMzjPaOl7A8GnYo3ZZZeJy19I
8607ifssJrvbfgbC/brrrWHFUYPATVqM5i3HiCPaiqddi4gpWdP64rYg2O9V
dtXQrTliY91I2cBOEbinIykjroB4aPOHPu0Z4t/Hy8Kydx0l/+WRYP6PkPgv
9ZIUuA==
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF0X0wE2AcB/AlSkfp1ttJL+hQKI2ZZWt72iRGZ6jFbMbCKHqZoUNeOqOd
XsaJW7kjk+iuXHVdwhFWV8jbubyrdHlJynnJa6+3x/P88dxzn3ue5/f73u8x
E5/3CdUhEAje/9b/veyMXZKRopGRGFu/zd1A76WdRl0zwZtnJkF7NhO3fuPp
gxXbhvTVOmmIIAGaJH4oWxAYg0vQ6WH+P9rlu0EqdNQzHceTXeYgBrr7noLK
6bcAKdAuuRvpzE970XsLD27zcytbVH8NQSk4eM4OlEDrCwat+AwSkEAbVsjM
8l/Zg+UYrTmxkk8FUWSQHa21gsy/q95CAQnxWo9GhGrGnzmBGanWbgUXRhx4
h8BknNY03lRVaq8zMJFpfWC9TNkaSAf1l7QWWPrYfFjNAG6wn4J58PX3UibI
XckfxVqnowKAvDKPysjya8IjoA46jr0n49AuFvCADm/uCRweZIE86Nj0GuOZ
cjaQQcuBunNVqgsIghbS2OFEl6MgDdqR8nnJfK0rkENbix9Lc3pdQTy06Y3k
Mb1Hx8DK/5bM9mSpLrsh2wrJzvuPuyMn6nGqGjZw0H83PRTR+W3Y1Ax1oXeR
B7p/L2hE113mCS5D98cPH2FTjyNvuvUl6fAydrUNqJ0u9kLm9iRerXDmovoN
+f6kuSIuSIa+TchxddL1RufSkJaAuFDs7o8FQyMt2AzhxQg/qg9yZ26rF/0X
tqRdE1Ar9EX9Fw0qJawa7B0i1y+zlieQGU86xGU3sT1VJZRNvieR4x6XTgxY
8pDt9ZzeN/7Efq5KyausOIXMF83TDDL9kJVDWYvkCezXoTYvAr38UV7Nmkyl
qhy74f5XSacRH3lge/fCg4/YdS0pIWnqAOT6p6ee1MQKkK/3jHUv0YTIo876
pIBf2MHvTkSatAYiFxcKUgazRXieRXMJk8vYV3ze0lIdglD+pKGFV9kS7Hip
Nbf4DnZph0JJacbush9re7MchOp57t7MiSYF4/wGzIadYdhE+ZSZ7A229Y5I
Vd9eMXJ7U+KV6CzsAZPxLsNp7N9ni8PT951GNq0WLvwRYf8FoesQeQ==
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF0H0s1HEcB/BLCVPTWFlRUcOF8qw43X07EvJwHY47dy6Xx0KlX5R5HmJ6
oJW6sk556GGTaB4zlWRCjmZ5KEITktpIEXqar8/3j+++e+29z+f73VtXcpwb
pECj0dz+nf/3/aMmCWqZLcy46AZNZ1XFZyaNBfWTvFlWErZrm/qGLzxltJyb
SUqoOeFGtJynB/O/daZtRWexIyoUrLy7t6FU7J6izD0u7/Vg3iF3nR1riA65
3kFOW5WBMexbTcsWmkaaIHdsZeGAgYBphmqw11RTunkvzREd2yU6ZEgWYYmK
sTMtBbcL1lsjesySx8KCGicqdiM6tWQn2YlRC54NUjq7ZAZv6klyny3ah/Nd
a6lsub8dmsXzQn2u0YeVTHTrNN7PMm36eo+F2DjXi2CrKEgRUlnuoza89Lxo
H6rEjrHffs5mCxsdxQ5t6/X/NMBGkdjR6fUbv5faQx9pqKBrRbIDisIWMexD
1R32Iwrbyvrj/DYlR5SIbSgpi7rS54jisXUuJo4rPjwAfRfP9OZI453AxiJL
251uzuDWErGdoMMFXHR4dJUz5QrWuDqSsHfBDRw6qC673uEOrjNCT6cLPVAC
Nqc3LqPalgN+kcc3+3mHOCqw3S8m6BD8t2dQNjzaTswUnQzz3cOF/Sqx+cKW
G1zIu3LlHnaLxCGdjX5PRZ7gX6q1Iex6T3hPW+w4MqPvBWaWv5Hcv0TsKi22
1vD0BseU3Zvs1+eBzRV3v235QUzJ31U2+PiAq6RJ12qrfeD9jLi68WFdX7BA
PMtQzSJuCjKq8ffggxtXZ2VLS/mkr7ufQ7rUBKTPgKFHrDPE/Zt65h4MCqAf
OWVcqsn2Az9vTwpMLSBueOxTXh8tBF/oHe+ZZ4jAY7bKZn6LxAGvvcK15P7g
wnxh0sBlMTiF+4qRbHEYHBtlyCm8SdxtPt7RvEDcoMp6sTk4AKyeNqVLNRMb
aodL39El4M7WuJRTOcT9WhPda6aJfx8rDE3fcQSsUyea+yMm/gu3bfQ+
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxN0Xkw1GEYB/BNlNI12zXddCCUVkK72n0diW2xjhZrf7tsFokOtjVpnYMy
Xct0bZlU6JwYNU3SDpWtUeRoTEgkTSGpSdQ6OsfrefvjN7/5zPt93veZ5zGR
7vaV6dFotIC/37//tSjrpJlZz9hKxaP5HkYGD6y1+eV9Ah0nEZtXQ5/3SWCI
xm0V1lphr6WjJGyG9KZ8SLQAJWBnhgd9achYBvmYO3obtjUtRwrs5sIsB+7r
VXDuemqWI+etOdSv2sqvuWtmhcb7mURTidbtskY52IaidjMhmwGeVio3yX1s
g/SxuYqIt3kxtmhh/JizbIUX8+faIRk+794h0/besUc+2O55e7rWCzYiMc6z
BP33U18xkW7fmNdOl6vqxI5IhfMiU1/LNxPZKAo7i7PuyeerHDQ83n+M8xQ9
NUKB4/Moiy4+QjmhDOx4lxUHNy51RmnYkTUt4g/tznCfIrN8wUCxC+QzUH7j
hFRXyFMsl0i662a0B3uD3buR5ZPd0AFsC2lJ7IlXbrAf42PJPQZFW2C+lwdb
stWJ7pC3omyZazw9YN5KA+79yhlccPVNiaOwnrgwpEvfQ84Dv0744OTi4An7
nH3yfdKmUU+4P7KDnnem3gussUQV3wq8wfwW5aFSJh/6rcwNYvy4RHyWdsLN
Xt8HHBtWGxwv84H3mjvyOrtqidnU3h2BDr7gxlN13o4/iSMatMEVlB942Kgs
wrncDyVjL5a4vR809Yf32LdeSK8dJ35cqOGJv/pDnqe+bDfbbxtYWmiWo9MQ
x5dc7WszFUC9f+uX0MZjxDYG9i+ffSe+q045XVYaAP0dUmp6Ok0CYd5CiY5l
dJhY1Zk9bNsXCPN8IrO8J/YOgn1rJx1WqYuJK698jGicKQS3LWweut5B/LA2
JSw9Pxj86HbArXKFCHy0pad5hEWBmVOH0m/kEnczDRnBPym0H3tlepEXK1wM
Dn3uH72ojrjggiilPUcCTvN9ykpdHwJOiLXgF5wjbrLpqa8aJeYtm8ONY4SS
fo04lUvCiaOqzvS7nyamZ/SbyKtCof48v7jtio7YYnG0utVcCvlfcQNHzSji
hmplWlw2cdui3qZp3/7L7yyIzFy9HWysoYZ+S4j/AHJZNsU=
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF03kwlGEcB/BNSEPHrKlGVGgcodznyj6O5My6FmsPNmdR0g6NljC5RolG
smUii2iSaAxhKNcIORqTW2hcSU2knF0zz/7eP9555zO/5/t73uf5zavEvewW
KEYikWj/nv/vsgvacfvSOi34Uc2H7KUlXmu3ChuX6GvU69hO3eSDX+hSKA5b
K2C0ybiVjER1XW45b50ph2Kxk4N8vvUnHUOifuHVYoaeg8qQHypOM3EYU4G8
Tc5+c+qUOorHVnGkddeoacF6SVImU+eSNorAlmJOqDEsdKEuU8tTymvTQ4+w
HaKCp/LDDVAFdpoB47HwgBESx54PDWxdrDZGY9h2+RFz+nRTxMWm0JfrE0bM
UAf2qT28zF62OZLHZqq6aX7caYGeifpTddq/llJRruj7w612iwkQShLdR11Y
xS2WJQrHjrY+nmJ61AplYId0D7NnJ6xQKHZUcqPcjwpryCch4cCOBBuUhs2i
WIeQbc4gHrah0adN5V22KAZbg1sZmT1iC/ejmHFjQeL5WZhHyepwliDWDqzF
MjA76WwP8+NLONS37HWAelc5x5zRR9gkRVjgWugILvabE7fnOUF+LGbW0trE
GSx7bybu9BbhkElyfm7fOcg3aKKmlSIXMG2Yn1prRoP1LXk+ur8KaXCeB6Rs
W2NxV3BkQI9vdKAr5Icm86fneghbsK6Eepu4gQdyel3MtwlvSNcFWzW6gxU4
tjOrqh5Evuo9t+yOB+zXVtzgxP5O2ElQYiTr7gmOrixdGlelg/UkjD90/qTD
eWoE8ffrar2gfyq/YWFayRvM4KxRpNO94f/InM7aMFgi6u2Bmq/YLj7gVsn0
TEGFD8y/5cnn4IF9DDDNf+oF9Rrh8cND608nCb/piQ+4KfQFN7/0qmqMYoJv
Dy8MbVJY4HkzKV3fbcL+7zzC5HvZ4KICZvzEXQ440e0tJUHfDxwTqUErekh4
UG+hr2OLcLM0teVIkD+YnLSsxOsgrKEQJhhV54L7u/iJV7MIj8svDsqsEP59
sSgk+cR5sGIDa/0Ph/BfZBQIDA==
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGBwA2IQvTJLv46/85RdTdkhcU9u1gP6Rxbvexv2w74Wyvc5
IyT2JozDAcbXSbm93/yIEJxvmLS25GeMpANMf1ta5PuLrfJw+dytTKah15Xg
8i7TBGzsH2rA+areAWe2q+vA1bMxTIgxyNN3aIDyOWLuqUfZGTpUQfk8O0oU
5xw1cmiE8r3K0h/OzzVxSIHyO02iFi4WNXPohvJfZKYeeb3V3GEFlO8xv+C5
cZilgxCUbx32aXfjLSuHC1C+Hm/JhPNxNg5hUH6MWpD2fWY7h3kw8+0Njr1b
Ye+gAXN/rhMn00wHhwUw/+/KWd8T6+hQAOWXOyu3W8o5OVRD+RlnbsY9u+fk
MAnKL2vbJ/llvbNDCZTf6rD4CmOjC1x9rLVzhpCLq0MHlG9q9vi3ErsbPLy0
kjYWTbnlBg9Phb76l6zr3B3qoPxlX29OnFnrAZfXiTWx0vX1hPNrWL12H+bz
gpt3em28TdQFBN+iffGCwEXecP7ShOcsniU+cL7w1Kd1tn984fw92g77Py/x
h/MPz4k0/L4oAM4vSjkXXZ4aCOfbxRZmRlgEwflXpp33t/mL4P/i3pXutC8Y
oX7TpaSV/SFwvs/MZWbCwaFwfvnGFW/vqoXB+Uas5tdOfUPwt89smL5rRzic
HxX/w5q7OwLOP5aqvTPOPxLOP8LWPWHm+kh4eB1e/ir9Cn8UnB+Q+HCDfQWC
f1fqxs9VDxD8g+caUloWR8P5hzaHb9pXFgPn9958eeO3dSyc/8KKwzD6L4Kf
eDYkR/p8HJy/ZEFMw71J8XB+U9BJ60bjBDi/qkgrYMlsBP+60csLJ/4g+Ie4
7Q/LpiXC+UKtnxRLTiD4WjI5M29rJMH5F0/XNBVPRPDvSr++zvMZwf+XvSSj
TTMZkf72xP78H4/gAwBMiMN6
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTJLv46/85Qd1/XFBbZcrAf0jyze9zbshz2M73NG
SOxNGIcDjG+YtLbkZ4wknJ+7lck09LoSnO8yTcDG/qEGnM/GMCHGIE8fzufZ
UaI456gRnN9pErVwsagZnO8xv+C5cZglnK/HWzLhfJwNQr29wbF3K+zh/LZd
Oet7Yh3h/IwzN+Oe3XOC81sdFl9hbHSB803NHv9WYneD8xX66l+yrnOH83Vi
Tax0fT3h/NNr422iLnjB+UsTnrN4lvjA+cJTn9bZ/vGF8/doO+z/vMQfzj88
J9Lw+6IAOL8o5Vx0eWognG8XW5gZYREE51+Zdt7f5i+C/4t7V7rTvmCE+k2X
klb2h8D5PjOXmQkHh8L55RtXvL2rFgbnG7GaXzv1DcHfPrNh+q4d4XB+VPwP
a+7uCDj/WKr2zjj/SIT7l79Kv8IfBefflbrxc9UDBP/guYaUlsXRcP6hzeGb
9pXFwPm9N1/e+G0dC+e/sOIwjP6L4CeeDcmRPh8H5y9ZENNwb1I8nN8UdNK6
0TgBzq8q0gpYMhvBv2708sKJPwj+IW77w7JpiXC+UOsnxZITCL6WTM7M2xpJ
cP7F0zVNxRMR/LvSr6/zfEbw/2UvyWjTTEaklz2xP//HI/gAs3dZiw==
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{0, Small, Small, Small}], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTJLv46/85RdTdkhcU9u1gP6Rxbvexv2wx7G9zkj
JPYmjMMBxjdMWlvyM0YSzs/dymQael0JzneZJmBj/1ADzmdjmBBjkKcP5/Ps
KFGcc9QIzu80iVq4WNQMzveYX/DcOMwSztfjLZlwPs4God7e4Ni7FfZwftuu
nPU9sY5wfsaZm3HP7jnB+a0Oi68wNrrA+aZmj38rsbvB+Qp99S9Z17nD+Tqx
Jla6vp5w/um18TZRF7zg/KUJz1k8S3zgfOGpT+ts//jC+Xu0HfZ/XuIP5x+e
E2n4fVEAnF+Uci66PDUQzreLLcyMsAiC869MO+9v8xfB/8W9K91pXzBC/aZL
SSv7Q+B8n5nLzISDQ+H88o0r3t5VC4PzjVjNr536huBvn9kwfdeOcDg/Kv6H
NXd3BJx/LFV7Z5x/JML9y1+lX+GPgvPvSt34ueoBgn/wXENKy+JoOP/Q5vBN
+8pi4Pzemy9v/LaOhfNfWHEYRv9F8BPPhuRIn4+D85csiGm4Nykezm8KOmnd
aJwA51cVaQUsmY3gXzd6eeHEHwT/ELf9Ydm0RDhfqPWTYskJBF9LJmfmbY0k
OP/i6Zqm4okI/l3p19d5PiP4/7KXZLRpJiPSy57Yn//jEXwAp4RT2w==
          "]]}, Annotation[#, "Charting`Private`Tag$2134#1"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, -2.6505105072231623`}, FrameTicks -> {{{{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}, {{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}}, {{{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}}}, GridLines -> {None, None}, 
     DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> 
     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, -2.6505105072231623`}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         StyleBox[
          SubscriptBox["\"\[Epsilon]\"", "\"\[ScriptL]\""], 25, FontFamily -> 
          "Times", StripOnInput -> False], TraditionalForm], None}, {
        FormBox[
         StyleBox["\"t\"", 20, StripOnInput -> False], TraditionalForm], 
        None}}, FrameStyle -> Directive[
       Thickness[Large], 
       GrayLevel[0]], FrameTicks -> {{{{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}, {{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}}, {{{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}}}, GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> Medium, 
     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, 15}, {-2.6505105072231623`, -2.4899999999999998`}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     RotateLabel -> False, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"\[ScriptL]=7\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=6\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=5\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=4\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=3\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=2\"", 18, FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\[ScriptL]=1\\n\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(0\\)]\\)\"", 18, FontFamily -> 
        "Times", StripOnInput -> False], 
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(+\\)]\\)\"", 18, FontFamily -> 
        "Times", StripOnInput -> False]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> Medium, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5147193333333333, 0.28770266666666666`, 
                    0.06825800000000001], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.772079, 0.431554, 0.102387]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.772079, 0.431554, 0.102387], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.24259866666666668`, 0.412334, 0.521566], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.363898, 0.618501, 0.782349]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.363898, 0.618501, 0.782349], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
               ",", #8, ",", #9}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.864962316639009*^9, 3.864963086262273*^9, 
  3.864964199856484*^9, 3.864964333618997*^9, 3.8649676916769037`*^9, 
  3.864967735578717*^9, 3.8649682228231487`*^9, 3.864969591839449*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"fee84bac-49d2-4fc9-a54a-d56afe53324b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"last", " ", "seven", " ", "layers"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"allF", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Enc", "[", 
          RowBox[{"L", "-", "6"}], "]"}], ",", 
         RowBox[{"Enc", "[", 
          RowBox[{"L", "-", "5"}], "]"}], ",", 
         RowBox[{"Enc", "[", 
          RowBox[{"L", "-", "4"}], "]"}], ",", 
         RowBox[{"Enc", "[", 
          RowBox[{"L", "-", "3"}], "]"}], ",", 
         RowBox[{"Enc", "[", 
          RowBox[{"L", "-", "2"}], "]"}], ",", 
         RowBox[{"Enc", "[", 
          RowBox[{"L", "-", "1"}], "]"}], ",", "EnL", ",", "En0", ",", 
         "Enp"}], "}"}], "/.", "s"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"0.1", "tmax"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{"Enp", ",", "En0"}], "]"}], "-", "0.02"}], ",", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"Enp", ",", "En0"}], "]"}], "+", "0.14"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{",", ",", ",", ",", ",", ",", ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.50"}], ",", 
            RowBox[{"-", "2.45"}], ",", 
            RowBox[{"-", "2.40"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.50"}], ",", 
            RowBox[{"-", "2.45"}], ",", 
            RowBox[{"-", "2.40"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "5", ",", "10", ",", "15"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "5", ",", "10", ",", "15"}], "}"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=L-6\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=L-5\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=L-4\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=L-3\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=L-2\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=L-1\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\[ScriptL]=L\n\>\"", ",", "18", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(P\)]\)\>\"", ",", "18", 
          ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*SubscriptBox[\(\[Epsilon]\), \(F\)]\)\>\"", ",", "18", 
          ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<t\>\"", ",", "20"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Subscript", "[", 
           RowBox[{"\"\<\[Epsilon]\>\"", ",", "\"\<\[ScriptL]\>\""}], "]"}], 
          ",", "25", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", "Medium"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.829188179058017*^9, 3.8291881821968994`*^9}, {
   3.8291882639983006`*^9, 3.8291882744504037`*^9}, {3.84802897756124*^9, 
   3.848028979777618*^9}, 3.8480290717880573`*^9, {3.848029215560142*^9, 
   3.848029304969739*^9}, {3.8483827827252755`*^9, 3.848382785133087*^9}, {
   3.8487197115724535`*^9, 3.8487197403973923`*^9}, {3.848720044757639*^9, 
   3.8487201162328043`*^9}, 3.8487202099117203`*^9, {3.848723244448421*^9, 
   3.848723328083491*^9}, {3.8647145775427938`*^9, 3.8647145902578535`*^9}, {
   3.8647161559752555`*^9, 3.8647161688427563`*^9}, {3.8647162576119595`*^9, 
   3.8647163885943546`*^9}, {3.864798484249117*^9, 3.864798487128327*^9}, {
   3.864798808857172*^9, 3.8647988113749638`*^9}, {3.86480225282628*^9, 
   3.864802253985073*^9}, {3.864802850156251*^9, 3.8648028590542603`*^9}, {
   3.864803035551343*^9, 3.864803036352188*^9}, {3.864878111908856*^9, 
   3.864878113437805*^9}, {3.864878253397085*^9, 3.8648782910146017`*^9}, 
   3.864962130497684*^9, {3.8649621615326233`*^9, 3.864962198542151*^9}, {
   3.864964038092247*^9, 3.864964047985133*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"aaa86a9a-e94f-489c-b119-df121aaf38e6"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt1nc8Ve8fAHBxL4lssndEETd73c/lukZIsresslJJJVGSjJSQoiVZGWUU
EnWNVGQ2vlaIhiIJRUi/5+H313m9X+e8Puc8n/GcR2rvARtfRgYGhr51DAz4
ejdgexRnQqtBZHjjJjM2Iv1FV3a0hEMNmX++YdWZNpd+ExxekCPLqat+8Pzn
padBHeS9Zfl82P7idwX0KT3k4YprrNhzjk4+whZvyfsUvn40RT6dxloxb99L
/mHNH43N0fHo3xuvAXJC8XKCCfL19QGWFUFDZD1CRqQxcrpUcvvzxyPkUiJ/
FAV5wMA3TIMySialxtjrIEu76ovktYyRrR6d36+MvO84fyOvxSfypRPhTSLI
9zK+74vp/kymj6pqMyD/qnzG+dN+nJx8l/FG3wYiXa/7RpXH4FfyVOQDhnzk
mKkjbh1eE+TrtlF/vZFfslkR9L9Mkg859M7wIHMpyBUXB02RC3rTt1eyEun2
tJXdwjM/yM4hYkvGyB2qgZHNj6fJ6VH9x9rXE+n8u4xkdlBmyAFfQ0qesRDp
NW73w78xzZLv1wYz6yG7Bom03m6ZJecUsB8pZybScxJmQ7ksfpGlwweZrhOJ
dOOrHs3POX6TL0+4MXAij+e3bYru/k2+IObXE0kg0s8/1AzUSJ8nK/edCv7A
RKRvb77z5Lv9AnnhsZ2KFnJPDydPntAfcnz4W+9IRiI9/MMJX9fBP2TbDQfq
7q4j0oWmv9Tw3lokBzrLt9UxEOl1K3vY27yWyK1XjthU/iPQPTfSPWJkl8mT
Scqh51cIdCbRbZXaX5bJJUzyN03/Eujm2gTnwqAV8kDml4aDiwT6lEloqcf2
f2TFa+8DPi4Q6JfsBxk2zfwjD38Sb6fOE+iT2v2vGx8zQG/6xTf9swQ6yaEi
QpXCCBwXG85kTBLose77ZJNzGGHwUdz7h98I9Le+4h3jTEzwQ31HdPc4gX4s
LFEqu4UJYlZEUomfCPTWE9C2JE8AEZWUEJkxAl30zO8whwQCvE0l25t+INCf
Xtr7gsOCCCXFDflV7wl0rkzBQwGlRGjNzq1iGSTQ92Z3iLRwMEP4keHLIf0E
+oOC2GdSoczwKShr6Hsvgc58X+fAyW5miHBfoZ37j0B3rJoW7COxgKJtfrTu
OwL9bn1+o1o6C/QXfpDd8JZAt3jFIzBpvx6arx+a/dFDoG+b9FA9Rl8PI2PV
SlPdBPpG9lILgiIruPhs1FrpItA7dpqcEf3LCionj2ww6CTQ7wWm3yz02wDR
9aWs3h0E+oWkD4/UujbA9G/9+dh2An1X24lpiztskKsStr28jUBXmXjB1sfO
Dvk6unNVrWh9bALyvuHsUBJ/4knZSwK9y7zM7aTZRqh+WfDkzHMC3ab1Y2vp
Dw7oTdpvO9GI8v9N9bO2EydoWRertTUQ6Lwbote1NHLCBTV5mQd0An2Rz49D
QYAL9kflLBc+JdC/5bKL/jDngnGx7C0lTwj0frVKhYfRXADaQ/FP61E9mp00
TzzgAtmM58Ef6wj0WlsGY8pXLtA703lJBLnoY74Nizg3WKSNC/o+JtCzwiw9
2224gad4Kp1eS6AnEuaC085xg7QpmVMJOSI964RTHTc0yvwUuPuIQA+UpSRI
/OSGzoS3b0nIrg++ZHzazAP7BPMVXtSg/FMv5BY788DisTtNfsjbfAaeajbz
QOTnxRNV1ag/5k63/13ggf3Zrnu8kdljtww0KfHC0CVHaW7kyTtHfu+6wgvJ
yzFygVUEeukYp9K+AD44n1eTzfuQQL95uEpH+RYfJL4ilT95gOrD5GY695oP
aI/meYOQo9KY7GvX88OTIwKPRJFDZIq8T+nzg7bAomd3JYHuXml9kHaIH+a0
mhISka2M5qPYC/hh406nfabIyt7UrKtcAlDuX1nZXUGgi89+K3A3FoAi+gGj
68gcZy49lI0QgIzh39/3I//IGeoqGxMAb8etNWzIZaPHWF5WbYILm+OeOZYT
6NmHJPgvTmyCBennCtuQUxhbpO0kBSHVQj/7XxmBHirNa/AhQRDGnas3FCJ7
VjzaWfBEEKinfadPIlsbejoFzwqC3Nbqejtk6GH237FFCIZzygRVkFX3lob9
cRWCnIGYuxuRbRtjtOCCEHhkuvyevk+gh0s7Lsc9FYIsQjJXL3JmjBK9fVoI
Rss1HJuQ60YZY/mkheEGkx9PJfKQYa+Jyx5hYPpB9C1AXnenlC0nVhhA/Yt1
NrIs05nO8YfCMJsTV34DmebtmLb9izAUHv6rfwt5f5OSQ7igCFzebJmYi3xe
hkmk3kwEIpmD2EuR753pHWI6IQIip1dkapC7x0pzzEtEoIh7TOoZ8pzRGb9L
70Wg9Ijm7tfIArmOir0copC1XnDdKLKrD1OF70FRkNut6LeCHNXce6QkRxSo
ow6b2ND6b8ve0559LQpXvZItBJCbY8/81SaKQYhaco8E8uePjg2nNMRAMXXo
qjwyq7Hy2ef+YlBoc7NMCXlbHpMZR6YYvL5yj0ZCtiL2sdu1igEjlSFbHfmg
772ua0tiYA5dfFrI6c/OpI9uE4d5n6ssOshVm50cFdzF4ZzP7LAuct9ZZdHQ
i+Kw9+AZggHy8iemkSq6OKzP8X0NyOK0vjt/f4pD6/mdt6jIlPx7/lQZCWC/
cazYDNmHOXZrkq0EFJv8lrdGjvNz+tF9VgL4epZUHZELW5QrBaslYB/7/dde
yG1yhKMe4xLg/5SBGIx8tClI7DW7JByUai49jhx/2CE6fLMkzEzw3D2HnCVj
+EHIQBKiA2kvMpCLX28zqreXhMPCYe/ykTt2MLIQ4iWBbczx4wvk4bHJfQXZ
kvDoiOaJfuTptP9azR9JArFvr/okMu9cyYVL3yRBjm3wPCfqd8cHDgISllLQ
HO6qbYsc/JBR3e4/aVgJloyIRPMyPSn+PvKHNMjffyCcghwmq3s2l0UGruwu
SbyDHJF2+O2spgzsr1HPeokcf/DjkdSrMjALxJPcaF5zlFqqOp1kgSvPyj0V
Wc531H3+oCwM7blbfxv57vUVZolEWcg1kuQuRy5j03QIqZUFqZ9KJZ3I9V8L
5tlFNgP/yiDPRrRf9OYlaJkPbgb72OCieGTX93kjB+c2w+LERraryMN8jfGZ
7HLwPWPQrQD585nF3nE9OVAQuN/2DHnWK/D4uRtyMPJT0nEd2q/CM89J3X8o
B4ZmZYOcyItdd16+a5cD0waOHeLIDDAoJLciB1UhUjQdZA5xy9pmd3mgX7St
OYCcard/72S4PEy9+X4iEpk/+ewGvovyUDRGYUxAFl2ud/Z+Kg9LDbdcbiMr
9CsvrZPcAjdOpp/rRKZmcOmRP2yB4BrBIlm0n06kpTIcXtoCFKaBmu3IqZf4
nuXzK8B80+9yHeSR84JWHOYK0Oj81t8aOfKMpOf7CgUwkq6biECWOZ0jy92u
ADpq1s5nkVujZL9SvyjAt/DJiovIghFbDpWIKEKdtZBYLvKDUJXYE7GKIBr8
trAN2SWkwvT+TUXw5xjVe4vMGKS2caxGETpCq0qHkK39tTLMvytC0eJ18Z/I
k25QKGS/FULXuwnxof/D5p3Wr6rltwFpH4OfDfIr056UCco2CBPJS3FCDqPZ
2km4bgMfGsctT+RGiuNQXMo2qOr7eCAE2V3Lc9ruzzZgGzfgS0DO2BzKN9eq
BBvuFfA9RtaXmemV/6QEjudzmBqQP0qG3XD5pwRGm/qHWpBJosfkmnYog+AI
3bEHuYPnlFbqdWWYSE7bM47MzJDiqhKyHQgGFw9zof9fi69CZG7cdkh919TJ
hxzX1nhN8NZ2UCvdLyKEzHLlVz9D13YQ8O05LYVMuFJaMi6oAjZc1BRVZGZl
3q2PIlSAVrZ70Qr588iwzmycCphunAyxwfHTSsyV0lTgUHtwrx2O/8c44Hax
CojxTSe54vjPjt1NGFSBp6wdJ/Yjr3cdknc2UAW+UbX008jjHMWa6eaq4L99
b1As8ouGoyYd9qpgdmtB5xxyvDy3v+EBVfDlvvz4PDLrrFG+YrYqFPsGWFxB
3pB4V3ZpHQkcpxObi5C/6YWrqXOQQC2CvrEUufWHIfWAMAmCBvqt7iMn2g16
j5FIoKtm+6gSmU2K806bNwkIMbykOmT2mjCp689I0Dli/LINecUyjDzYQ4LF
EeaWduTpscNuoiMkKNQTr+tEfsN5OPP6Ign6fn9Lf4183f8g943tO6CDfGul
H3nrppB1NzN3wKu2b43jyKKlwRJD+Tsg9lq91zdkDqNgffEHO+CyZuHiBPJM
SNDxmx07oCe0Q/gHcm1LwM+bTGqgfoyf/xeyebj/h1vBanAi4zAjAzr/6LH7
/xuOUIOtNkTzdcjKOX5ikvFqwPpPIpkRmafD1yk7Rw18Q2OYicj9m326s/9T
g8Ql0gtW5IC3ng23KepQr1J7lQefpwI9hz9YqQOf4koOL7LVOs+/Uq7qQIgc
vcuHTFLy0M4JV4ce0dZSAeTFWLfynGJ1oHhyXBBGTlBzvn2HXwOSCksrpZDV
LhwazZPWAJmkG3HSyENfEmUKt2uA2kyVvQy+f+1xXomZBsytnJuSRR5ZJ1b0
8KQG7GoY/yuPrNU5XPH8kwbk55cXKCGPbVmYfTmjAW/Nv9soI1+I4VJ/9U8D
DIy4lrE/qlOqu4Q0gRQpZaqCnHI953GfpSa4DnG+wOfF8f2+zRMPNYGZ0BWo
iZzWdJI41agJPh+ZF7ANxDJo052aIC4XHaOFnN7V8mLuqyZc8NdN1UYGzS3t
f8W0QM2WekMX+Sph4i1nnBboKGj5kZGN3Jk28aRpwflf0b3YU9UijnzZWtCV
YW8GyNRAi37BWi0oMGiVoyBPd5cOSU1pQXpbYLchsumt0C877LWB7yvrN2Nk
hlI+e/u92jATfZpCQ66urWk+FqIND5L/XsGWe8eQUx+nDYRYoqEJMnHjJVeT
am2Isy9ONEVujCjvdhbUAV8Wv2lz5Ih4OzgpqwMeUuraO5FVM/7cu6WiA0Nc
W09jZ5dTzn801YGBpCwOC+So8W5ayHEdcBnpkbBE1rWfeXy6XwdUetvFdiHP
eGco5n7WgclMC2fsooM6mS0zOpCzWzQDWzg5JpyNTRcsd5axWSMvNPGoXtbV
hbHnM1PYD1R35Bde14XTon1XbJCDyP/xtRXqwrorNq3YMpYnznx/oAthz2EZ
O3VfkyepXRcSug+670E+eGuPSN1fXQg+bCpqi/t/Y1hKp7seMM0Qo+3w+/6a
b1wI1AMHmdIS7IYpqUTJ43qg0tXch23b1XnmYJoeLO7cSbLH+UnbepT3hR40
MY0NYj8TGnNzUNUH9doxIUfcbxtq+6MN9IF6z5uM7biU4lC4Ux+usIT6YH8b
NNj9x1cfFt1Jpdhc2VnUa1n6wOiQqO2E50vOZuswkwEIO980cMb126RQyMJt
ADUFp9ywf7AwbFYRN4CpG4RI7JivpeKntQygwneuGrughJVHJtgAhheTtrrg
/JMaFvzeGYDKUW9GV+Q6matHLo4ZQAC0i2Cf5TswUz1tALm942rYgr9FJ9ez
kaHPWtsP2+DRseEiMhnExx2eYSeQVVqmCsmgLGgV7obs+TE1VPMhGVI63idg
ayT8Ej7VQIbHtuo3sEd7ag9w95NBM5rchC1WmcOeRQS4UtHB7o58hKZUVacB
YBtql4E9ctWd7YMeQKptUT72zomLnkQjgBFKdxW2VMrMBqtdAJ/9Lr/Dbu+r
9hj2B+javsjrgbw52JCVMRMg6GVrHHbK08PucrcAdlkEp2Mvc+dVmucBLF8c
v43dU8XinlYO4BIdWIcdxdBeIdsKYLKl/Af2uzQHV5MlgF6jrF2eyJTP8eWB
6ygwqvfPGbtEq5Y5hYUCh4qM/LBj3ouW9/JSQIApKBJbWX6UGLCNAuGlxgXY
cbVB98+7USCjLmAeuyNEUSDVmwIDJ+kMXsj8MuORV/ZTIJdnmRU7N8nbPOcI
BT4GbBbFbnR1/lSdTIEIdgsy9sqKichYPQU6jwqdxqZVEmPGmygwYfE9HjvZ
v2n8+0sK/OdQnIIt2mVQtfCWAjwjn29h69xW380xRYEKdq967KNGMue0xQ0h
N+DyHPaT+ZHvBrKG4BEvt4TNXHLTlqpoCAH78tbtRc7gE5bepWEIct1BHNgP
PnHV+1gZwnGbLfLY0+dWZi5GGUJ10nE7bC29OqfLsYbAemfJGTt6+jg9K9EQ
umghntgcTr+S8zIMIcVULhB7m+Lklsf3DEG/5mM09r5Xfe6fhwzhWkBX/mq8
mbJXIZ8MQSd9oBibVTBeZ37CEB579ZZhF3lrCKz/Ywih8vm12JOLqe0KvEZg
sCm5HfuAgoVesIkRmJDLprFhl0zRL0sjsCJ+mMPmOrK4KcrWCKLeEv9gl9EL
Zy94GcFJdsV13ni+HIjFZSeMYEGshws7PO6J0Nx9I8gQ+6SETSu5fC6yygiq
Ld1UsTf1BP0i1BsBXahNDbtGTKSbv9UIRibO6mIvPjgar/nRCMqowabYUWMq
8xGCVLigrOmJbcW63pdJggrnGli8sSW2D/ckbabCXHGnLzY9IvnedRIVFn4b
B2Iz8nzzfWJBBd6wziPYZ+HOm3WnqWAeFZKA7QrgJHyOCtnMWUnYJHj/npRM
hbb4p8nYI+RNX7wzqXDo7cIlbF1y0p9n5VQoZpPPwv6pf1g8cZQKRcNed7Ff
6HPdyRmnwrb0rcXYN/VL5R9PUcFa4kcJtoX+F5XJRSqsuPiUYRfouRhZ8RpD
xwhbNbabrtE+HqoxnMk/1IStpjsyqWhuDIbdk83YG3RPHjSyNoaXrt4tq/nT
qY4IczWGFi3aS2xena3J78KMwSD8Swf2Sy3eiqw8Y6B33O3DztYq06gsNoad
ZT/6V+ulZfm4rdwYEqtUBrFltc41L9cbQ/Gj3CHsaM2ld+7vjEHM3nEMW11j
bEmahQbrn7FNYqcXZJ57spEGpf8UvmPPCVrzOvPR4NQG4ynsB0t1ipekaHDG
4ND0an4bMpz+6dIAPpTOYatYmFcPhNKgfFv7MnZKPYPR0aM0iE1q+Yv9Q7m6
gyeKBonjj1ew73HLfjZLokH8xmsMPshK//3lq8mjwTS/MgFbcW/5ofR+GnA9
fLoB+xtVPLHtCw06rczZse/KJ91m/EWDmw6vNmJv+e7TFcppAj7atVzYm48J
KltSTeBGh60A9kfns8axu03ARrZ4E3au/ozrY3cT+Kc/L4gtzfQqSeG4CYQ+
PySCLXkh+ivxngnwRxAlsa+qEWX/1ZqAM5lXCpt7INF94bkJPOcVkcZm3JLx
+tsHEyD1CstijzWU1Hfym0KM3rg8tus+0sILaVOAxa4t2G84akiN201hQaFS
AbvZpanggZkpdK3z3Yqd/6vvUuZJU7COjVPGvmL4ifn8FVPorFncjh1/cfpE
VLkpuE64q2LvV2Dx8/5kCnvcGdSwncN5Buz+mQI51EAd27xJzNpUyAySXAM1
sLe5qekoWZpBh8sVLWwNHocNnr5msN8+Xhsbnh/vTz1pBiSbAzrYtqpPIxZK
zaB8vawe9r5rBBH3ITOoNXykjx1JNH/cxGEOLmRZMnbKgYsuCmRz+Dq0H1bz
3fdm6cIBc3gbkELBbiv10HPuMoeU4EwjbLncUP5ewk7wtL1OxY7JOj1lp70T
zHsSjbHfp6Q+fx28EzR2OtGwtc7dyd6dsxN8DnOYYE8dfmZjyWYBZcympth5
nl8IZmEW8Jq2zwx7MOIzxUjLElpZJ8yxeS9/itJftoRLJvwWq+sZ4bl1tcsK
elamVl23FZ7O5u4CJbkbltjWfZHxNTrW8M6J0wq76bqT6nyONQQy+aw6iyGd
pknYDWXGuas+5NPhctR3N9zJbV9178it0S8duyF9YWLVBm4H9ztq2YAKibAL
mzUi27U1ywZSddhW/Sajc5feXxvojeVYtX93s8tTtz2Qa8O16kW2Wn/DJ3tg
WIl71aIetE+/5Gwh/NKaDSp69t69aAv5v9f8LK/Owv2nLZj286zaIjNfg3eP
HSiS+Fa9N08+daHODv6I8K/6aHnh9/dy9kBNW7PtwA+vNxfsga95zSSi5rvW
3/ZQNLDmsM6BqkYHBxBiEFh1deapK7U1DiBit+b4yLqvo1KOMNK2ZmePBV22
JEc4pbtp1S2+Wx+573ICnz9rbir45v+G0xlYbgiu+r1w75+iEWfI0hBadWfY
tvubDF2AJ3zNDR2nfGLvuEBc2ZoNKUFJUhtdwfPbmhsrHSqehLtCibjwqgtb
so3d+lzhtvmak/u+9i7pugHzoTXrbPgTW3zdDVzT1zyus17V5a8bpFWsWTb2
npWunzv0dazZq902SKTTHa59XjNjtePvZRUP6F9Yc26266mhVA8IZRFZq2/O
/InpZQ/YybvmGJuXuqd3eIKKyJqjRv88S/X3BEOJNUccUrTOveYJA/93YU9C
isYrTwgSW/N/pK9dL5Y9wUBwzRYSfOaHVb3gHueaG9nITWJ+XqBBWHPAi6sz
ple8gG1+7ft4zs5Ihb3wgltf1nzT+v77ggUvOPZuzYqiQZkDW/ZCcNOaVw7P
Jcu77YUXJWvubouMOXxpL+j+P1/vRSb+Y5/dC1+9/v98YO6+OAVvyDRas2Sd
259/Ht4wJbPm/wEZBWQv
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt2Hc4VW8cAHBxRQjZe+8V1573ayREQ/ZOFKLISBJFyUgSWUkimwYSIjer
koRUkpVRKklGsur3vvz+uff5POec93zXe+55rrD7CUtPSgoKCl70gb9LfHZG
MMV16IWHNHOa0lOTJV81JVvZFpMm+po2/Lw7N1LQtpZ0ootzwxFDio5m+s0k
GKtlxM60TP5NsH1OGu50+miCXP3sV3KTbxcpNWyYAfuoQAmHrn4vqXWAO2MX
8oKdvQeP+VvSZ2H3EBLy+ZRtlUs2/aRT7OF7iMiMXXX/+g59JKX+myByI2fT
+lhU+g6TSv+29/6goyanCie+evZ4lNRFm9pejPxRzzNITX+M1HzumIsBsoiT
Lm9B+ziJ4gQxs2obNdnrNHszq/kkScc0RnKJlpp8N+2HV1TPZ5Ll8RsmdMiL
VW1Mv2ymSBFlioY/tlKTdXpu1rgOfiUdOTDrmk9NTY6aCXbuOvSdNOtU60ok
UJOZpSXKynxnSBol0kx/KKjJNsZ/D/DM/SRVR1R46/wjkLuUjoW3Pp4lCXOn
xZxcJ5DZ9xmKKuvPkUL7bqRULxPItc73Qr5RzZOK1vY+q10ikJ18eTtut8+T
2L9TKuYuEsj/wi7x28ctkHaTK0sPzRPIeXHz/szmi6TqifTx+VkCeVeGa+sz
xt+kU8ORp/fOEMhThS85I3t+k8S+xC34fCeQd7bmP/lh84dEzGlZG5wgkHt7
mVgKuJdJxkO9EcqfCOSQT2c8nQaXSdsr205ZDBHIDX8PMrw8tEriiTt95Esf
gWymSXAo9v1L+ucyJ1XQTCDP7PavcN35j5QV6eu/0kggJ9sMUnDOIRvIGNnU
EcjTmgNvmh9TQN6/iWGD+wSynv7VswL8W4Cr+Uj8RBmBnGRiLBkWsQWoXqsk
3C0ikIm2lWFK+pRQzBgmOnSLQL7g4iWWmEcJqTNntA5kE8hvPQW6pqioYImo
9ok+k0CW8Os7ZeRJBeqfpV7sSCOQQ4PihXPbqaBhsvuxZwqB3HEGXq5KEuBw
3LgVbTKBzBf9O8g2jgC2DaSBpSsE8vH4coGqbwR49JpfXTGRQG5Kdn/OaE4N
X/tMeMsSCGTmTK6TPhXUoFqnoOcWTyC753bxtjNuhexMh6e74gjk6qILbcL+
W+Hsm7vl+2MJ5K33tE6c7dkKQz7G4cGXCGS7mlmuD0Qa0P/R/6g4hkAuaSxs
VkmlgZAa/fiRiwSyeScLx7QNLci8usSmfIFAlpt2VQol08JC1LkCuWgCeTtD
hTlBZhuYtrnH0EWhesuuHL2asg0m2Iw7X55D87RndzTf+jbwcDRfPBlJIN89
lppTfIQOViR+FFJHEMhXEj7VqXTTgX42rcblcAJ538szs+b59KCZxDB16zSB
rPj9Of0HBgYoTR9bMQpF+dJzSHqGMECVraAqwykCeVbmsMGvEQZwuNHoTxFC
IHeb3Xc+a7odBP44dcgEE8j3fdZDt1VtB4N6Fq5rQaj/8Wap1/kYIcpMKk4L
+WRp+j3hGEagLtHyF0e27JjoqPjJCBxf92seQCZ+U/qsac8EJgKKl+qQWeki
t7Q3M8E2SYoQW7T+CtsRRmkOZuhYDVkVRvf/doeB76cZM1BebnJlRPENqFRJ
P4xkhp37RtqZUfwdrfbqZ6qZYcR2vJUP5VdvRbFL/yszEBSrFsTDCOTSiUJL
GoEdUP3BKEHoDIGcFWTh9spyB7yGvyNbUH3iCQt+KZd2wHb2n+Nk5LDUrDP2
DTvg22pslM1ZAvmYmH6c4K8dMCtR97kR2an6S9qkOAucefbr9gKyudGVO2UO
LMD9obZyBVmnT6UyIIkFRBTWj/Uiy3l8bFJvZYEHtD5655D5Fs6/Wv/DAgSb
8150yAwXpD62yLOC5qLstVB0/zXW11Nx7qxA7V/k8AbFO50f/HtfOis4Jd0b
EUUeVOYjcHSywgATx65AlF9nS/OOQQo2IEoEG3ag/BsOegvmqbLBfppLLYrI
FeNM8l4+bJDT2BhfgeqVE1ijpXCLDSZZmNd2IV+hcjZZeMMGYVyrP9ZRfSNS
qGzqadmBjd8p4z3ycdHSw+d02WHA/kHKG2SXqv0BxifZwfBS1sws8l7DpQiG
InaI6T5wQB6tp/fm5uXej+wgWpipeBFZ4bBRVgYzBzz8RUO3gCww/63IZRcH
MJWwFwWh+Bijkx+KhXHAWe3ww1tQPj/zhrvvj3PAURdjBSmU7yjx4nAIFyck
iHbCI+TuZtlpHQtOsOV7OqOD6kW27F2mjOIEu+hyjYfI98dCaV7UcELr6r01
PlTf3JOC7EnfOeHOp7FtJ5GvUraLWAtxgYAWUaIK+dw1X0Veay4I8tanGUX2
F2HV+xTHBWVZ2bCM7FZZt6foCRdM+P2UokD7a7+Bm73fPBcUvNCq/Y2OQ+/W
o8pS3LA9N/TQCLKSe0XQshM3zCiwf2tAtmqO0oAr3PC7q9/4OnKIiN1aTBM3
pBs7fPZCzoySJ7+a5Ya/J/l5tJAbxigvsInwgI7PGVp65GGD/t2OB3nA+2vi
zSGU35b8Cvq8CzzAZs4YVoUsRhX9euohD7wo3v4jEdn4sF3Kzi88MLNE98sP
2btF3jaEixeCjPOlrJAvi1LxNprygp56yQgg343uH6Y6wwvErzFsKsg94xV5
ZuW8cLviYqQ88oJh9JHkIV7Q+mScJYfMccdOpp+RD7bX+1UoImsSFGYEgA9u
n6ga0kB28qCq9Azgg7OJWupGyBGt/cHleXxAmumrP4B8W+yu5vwbPjj25LaP
G3Lrheh1TWp+yKxjtTqB/HnC7uk5NX5w7z2fdRZ52y6Fi8+O8kPPuFVkPLJc
AZUpYyY/WJybOHIdeS/1BwbrDn4ozIoavIkc4Hm3+8YqP/z8zZSWj5zaFp06
JicAL5uNThYi14jb20m7CMCw/59g7A8XFfj8kwSg6XTHC3z+2iTVaA1ZAIbk
tz7MQRYw/pC//ksAMsJGrqcj6xfePWokKgg7nsR/vILssfWCbIKVIJyNNPl3
ATnmiP3PnouCIJ++OzwMubhdoYrrkSA88Tn2Auf3UoJwynVKEBQVAw96Ip9q
8eV/wyAEMnMzIY7IsYG2kSHiQjBG9TncEjlL1OATt54QJE2WZpghl72RM2y0
EYLGsJlJQ+SGaM4CtxNC4K+S56WH3KVMSUOIFYIa2x+MWsgj49NeRblCYJ1t
WaWGPJvyvsOsTgh8pFSEcL8pjZrlZnqEIGVxhJWIzLpQfiX5G1ovoNwI91fs
TvqsCpUwxFJFHlFAVrOKsuznFYZy00AFPA+7CX7VZ1SEQWUy31Ya2a7alkPQ
QhgsniUXiuP58zAIbfYUhjOdBtNC+PnKJj/gGSEMfJVEWl48j62cOtvShSF0
JvkrK/LNIMqc8nvCsNqknUSP51Psx799z4WBtvs7DSXe733vD82PCoOX5o4T
S+h5MKZSIa7FIgKhammVI8gLE+mXhmREwKU3+3cvMvX1qK/nDEWgbOHqfBuy
1KJtxbMgEbi2Pr1ahqxZYMB0LFEE3nP9PXEL2cxaPoCxUAReuJZ6pSD7PaRU
tX6P1pcPcj+LPDstMBT+UwQY+FprApGDxLQv3qERBYpQo24f5CVHW/lOQVEQ
ss4vcUcOSwl8O68uCtZTtWqOyH87ks7y7hcFsx77I1bI5ynLxQ29REF4xFFk
L3JswETwtQxRWHdcGzVApi+hEKi/Lwqerp+rdJGvjPK1f3ouCgaan2s0kK/v
s+ZQWhYFw7oQ+p3IefLtNa/txWD3L3NaPmQJzzGXpQAxuJqbYMOJXJL9d6tg
vBh0bXF+yIJ8n17d9ni9GMy5apC3ITd+LVpi4BUHaZZtF5bR8xiEW2+pKIvD
Ivn+i0XkVrvR3U57xKEmSkx0DrnjGVdG2Rlx8DS9M/wNee8/FXiTIg7JPTUi
X5B71A5MrZSJA83zYBhH7i+I0zAbFIetj3pfDiA7DRWMBiyIA79bgeA75BG2
5thMBgkIs+Tm7UH+HL3SP6UjAZaGC3/akL0fc5xntpaA1BDJ4Sbk6TmitIaf
BPTPzvvXIc8fOnb60k0J6MiI7S1DDsm8JHzvoQSkibW33EFe6c5/8e6VBLDR
kQpvIlPAILfEXwn4foQyIwn5wqk/Ty04JCHvbmBfLDLNPTafYAVJeEJf4xCF
zChgUd/qIgkGPeMJIcjXrL3dp0MkIWyC52AAMnviRTq2JEkwivlxwxc5o/V2
pXaRJIjIuvl4IfOtNTocbpKEoq+XmzyQbykPUCa8l4S/1Hbph5BFjv0urfwp
Caebxb+7IBfmsRwcoJGClq3S952QpQcUVrcIScEe/+QPDsjlO/bkS2tIQWlN
gK09sqLp0T0H9kuBWLEQtx1y1bno+VAv5KhFBltktdpbN3LPSYFv+Q8hG+T6
n48Nn2dIQSJVqKE1sq5k//ef96Ugr6b7sBUy2WUhhfOFFLxNdzt5ENkojVmH
9EkKFFyvHbJE/p5yjSJwVQqWBxtoD+B6JLO1FbJLA9PLgIB9yJpJaXEDO6Xh
0BHDFAvk0ctcexnNpEHtM7P3HuRL8VksBh7ScMstZ9YEWSGW731whDSkHhyW
NUZ+ezHnRkmGNLTNKAkYIodHC7kNVUoDd0BsFwlZ9Hye2I5X0qBxcdcuHTyP
EWJfjb5IA7OmcKIGMleY1MlyXhkYeXGlURG52l/xwpkLMmC1orEshOx4vNLk
Xo4MxH1TNeJHpvRV2T5eKwNUT+QfcyOXeNf0cLyRgRv9Np4cyPuPaqSZ/ZCB
oovJJqzISx71DhE0sjBjP+bFjJzjriNYKSwLrIL0L7Yj73J7Mj6pLQscumre
9HhenaGY20YWeMhtJtuQUxybfS38ZUHt2VkPGmQteyOl8/GycCbnfC018ieb
9sXqO7Jwh+WDHgE51sqkfuqJLMixCf2iRN5p2RHB90EWdHQvPsPvT+/2mRvu
n5eFVE66egpk8T37Ox9JykGw+nrPX/S+1WnSe/W7vhwYvhP+so4cZGxlLegk
B/0/b/5ZQ+Y1esd9MEQOiH2N/1aRm/XthmOuyoH105GlFWRv0kBefakcXKon
DC4jM+s6HZ1plYNk+96SP8guGm6z1stywPrk9toiMrXaWHUcqzwI/qmPWkAu
V/Y43SgvD/zNy3NzyCsKXpTi7vJgeIOc+xM5TdyfbaFDHlZ8mIunkHVF5/ol
J+Xh39+s+c/IE0JBNx3/yYNtL8OeSWQiX6hEi7IC+B2/Ij2G/IF75dtvCwUw
zaKpHkU+xxl+T8ZLARacKw6MIHexnNO4lq0ANlu3tw0iBzNTrrfVKEDAweqM
j8h8jBeeLncrQHW2SPgAss+2WLND1Dvh+Zlh737krRRXnRSP74TxNpqyPuR2
T+nwOzE7weZacd8b5JiXzTe4bu0EwYvn//Ui06QvDlB074TeYm3rHmRCekX5
FJciOMcIUHThfEzDGkTEFcHH8brcK+TWNeNOJyVFSLIvcuhEvug++r3bVBE4
opia8Pv9VgVW2bowRZCzNat7hvx5dERrPkYRLAsOEbDbU8rN5FMUgXzwpVU7
jmd5l8/tMkU4XhdH3YbjaQstiRtUhB9Lz7OakWmdhiUd9JTgq7w+/xPkKcYy
9VQzJUhfcUtsRH7+9NTuLhslkLz6Zq0BOVZyx1GDE0pgPjj/4THytnnDQplc
JaCIcL9Wh/ytgLnGo1wJnpWNbcHusBtqy6lVgvryjpO1yPFPQiZZepRAzDHV
4REyXXyJ2OoWIrw8MGbxEF+vE6KiykiEFg1iXzW+/qeB0QkeIuz/8dMFO956
8PA4kQi5L9POV+H+0JYE8pOIcN+omhvb7HFwtO0eImyNc66pRKYXZsp/eZgI
IVe/rT5Ann7zsZLanwid7oJ3sDtjiptJ4URY8j6+D/vytP5YVSoR/PYfq7iP
zFAbJJzdRoQrM8uh95D/WgSRBnvRel4CEtiz44HOfKNE0Be63XsXuY8pMDN7
hQjTI5TS2NlHA3bc3KkMuk4Cz8uRr6z77xzSUQaDGjs/7HMp/hb8Zsrw9oo0
C7ZH04m4mx7KUFol4ViGLMt5fEtOpjKc5OZfLMHzWeEnOFyoDGOjtLewGQ39
dAWqleFzLOUe7LnjvqdzupQhXsWhpBjPF8E3ffijMvQ70Tlhv8s69lDgqzJk
DwnswK5v9/mVQ6UCeXIlUUV4fzr5MI0wqwD7PQIJO2fOW15QQAX9vmSvFyJH
CXh739JQATGm1XPYZiFHP93yU4GQ2WM3CpB1GI7+GwlTgYDjkp7YCnlH+IVi
VYB8tWcnNkuXp31ungr49Zo8u4M8IO7Rk/teBdLGSGv5uJ9v3Z7e1leF5tR8
vzxkp2NuI5/2qoL0Kx4d7L1b3NaFnVTh29BTOmyivKtmXogqTD8eK76NnycX
nB/klakC+Ybjt1zcbx7n12O1qlDHebwBe/i+0w+RdlXI+2SbhN086CidP6oK
pZY7NLDjVBxu57OrgUv2/jT8f4nKlZNjBSJqIEUwDsAe/hIvWrxTDXxvqVts
HL/xuKDcVA2kDwzQYI9u4S99eFYNnJ/3X8xB1ng9UvlsUg3OHlm4dhN5XOrP
/Is5NYhN0A7GvhLFrNr5Tw2y7fNssSdU9R91c6sDw45RPuyr2XmPP1iogykt
oTQb709vz9bvD9WBr9D07Q3klJaz1DPN6lBw/WoDth5/mvHsa3UYi9a7g53a
3f584as6xHt2BGGDutSrdX4NGL6qy4OdQfj+lilGA3JOJgVmIRu6UHGypGiA
stWkK/bMI147tlwNiN0dZo5tdMx8gKteA6bL3CSwZ3sqhoVnNOBIPvdQJrLJ
Lf8vyjaaoMp62xqbooLNxsZdE5xOVxljP6qvbQ09rgmGV2fUsSXeUeQ1xmhC
fsAQDzb19mSn3Y80QZE9dCwD9yfsQY8DlxbskhYLxQ6LtYazYlowoh18DFsp
bfnuLUUt2O753QU794H+5QkTLRCvMTXGjpjqMT5+Wgsi705yYGvbzD0+P6AF
M4XjTel4vxxOk7nzWQvoWB8+xC4N0Mpsn9OCfTeLy7B5EqNC6Om1Ib9wIR37
TwuL0nVtbQir+xaAXa2kXFicrQ3dC0Iy2L6k92wvi7Xh2JlIYWxRizPRP6q1
oXboJxf2Na8WN+IrbXibSkeLHXDrIG/DOjruoPklDe+X7UFXX7vowIUpplLs
P+tm2/8c04GHXw3ysJ/OCMcLndaBiaaULGyr7tfRASk6YEGXmIAdliJ7ivW5
DijefXEcu4173NlWSReKIzM1sa/Q1Q9E6unC20QzZWy71au2xXt04d1vBnns
b4N6B5Y9dUFtplUImzk3y+hGli6w5a3QYjtJWMqOUOlByXjY4HXcP07pYpod
ejC4Ve099k8aCnFFAT3IHd3Six31tULgvIYeuLN1PsMuKt/GIuqnBy1z0tXY
c8Snf4680wOvjMkk7AbRjOCkcT3gLMxJwL7IdmLu0aweRPN4XsLm+s03TUtP
Ajlq7khsvbrQkVISCezq2U9gx5EU22eKSXCRQvMAttvENX/1hyR4eOKbBbZa
3CLPuackeCRcYIY91lt/YscACXb+VDXC5q/KY8iiBtjb1qKOHWwsX9OgBvDp
63kh7NEMF/pPOgAJl5v4sfd8T3KjNgQgCVDzYgtfnaPbuw9AfWsxO/arD49c
R44CELvN6bHF/Qy2UWYCnA5cXErF+7sp0EXiFkDBTMki9tqOgiqzAoBOFs95
7N4aGpeUBwAiEzMz2BEUryrFOgDqOi0+Y79LsXXavQqwlirxDlv/c+yDY1v0
wW5Jqw+7XKN+61Uafah7atWLHTXE96CfVR+eumd0YStIjlH7yOmDkYLLM+yY
et97l531YVrrQx1213EZjmuH9WFir3EtNrvoVHi6tz70jT2qwb6TcNgsL1gf
xgOLq7CbnRwmHyXqA41uYwX237+7eccb9aGLsiIP27iKOmqqRR+S9zjdxk48
2jL144U+eOky5WLzdevV/HmrD2PTkTextW6rHmCc0Qct64QM7FOGopc0BQzg
byIkYT9ZGv2hJ2YAKQfFr2BvLc+xMpIxgEax7YnYaWw8IvvUDEByeDIeu3qS
udFjrwFMrdXHYM9e+juXFGEA/i9mIrA1dBrsr18wgKe3tmw4cvY0OSveAJ7w
cp7FZrRfTCxIM4Ct3aZnsOVkpqUe3zUAr+BXp7C9Oj+4fB42gFEfw4CN9ebu
dx6fNADZEz7+2Nu4YrWWvhtA3oeUE9ilh9U4aJcNoGbLjB/29Mq1V9KshrAj
muyDfULaXMdvtyE4DLz3wGYOXuGMsDKEJdqAw9j3ycXzVw4ZgnwEizv2nC11
2f0zhvBEz98VOyTmCffCPUNgEr/sgM3Z67tIaDSEGeXD9ti1/Lw97B2GwBWv
b4e9Un0qVn3CEKp4OWw25m1ccSmMywj6e9gtsQV3jvQmiBtB6UexA9jksMS7
2UQjIBZp7semZPnm+cTcCCoXAvdiX4T8vi3njUAgWnIP9iiJ88vhTCM4b1Br
iq1NSlhue2CE5tPOBPuXbqBA/JgRtOZ07MI21/2iOL1iBO1aN42wi3QcDfey
7oLKxQhDbGdtQy8Wo13wi+Stv5GP1qOwIKdd4JhwHLBZtWQT3wXtgh6/cBL2
Cw3WyqyCXVBkcld3o7/qq+9c3u2CE5qMOtiqauOrIjTGwD2froVNfJpm/0/b
GFbtxDSxFc3NHn30Nwa62nZ1bPn362y1BcYQrRWnhi3j/uBk6oAxFJUfV8WW
+uHR7c+0G95d9lPBFg/lUrAw2g2vL4YrY4tQdSZIn94NKv65RGyhK5Ffqe/u
hsWuj0rY40/LG1+zm4D3fKwiduHih+TMsyYQGee7E9tbmubI4UkTuE1/XmFj
Hp1VtOQtTGFv2WN57HBqs8ctjGbgP3hbDvtlhauOQ7cZsKmOyW7M56X83AN5
e4Bww2LDBW5fCKZB5iCSOiWDPRj2Wd9QwwLqbhdtmPX6ZITumgU8Ph+8Ya9R
llsZ3XshY3b/hhtkoWn+zj4ovqe84f0fwmNrtfYDS5TQhluy7ZWW8vbD4h6W
DWdRpBqrEw6AwXmaDZ/06HI85XkAbK5QbLh/9NbYl64DkBiyKo2t5xzgbadh
Cf0eSxveFpbr1JFlCYZqvzfcl/Z6n866JVQVL274aE+rY5PzQRB03PQKff1R
gycHwVpt03yuxpOLElZQIb5pvcpe95IkK2hi23RbQYO5yy8rSJhZ2LB5ZqEa
60FreFm9afcCyWt/GqzhQuKmTz0o/jEkYQPhpzdt9fHnob4rNmAasGkitfq7
jt82YOW36aDXH2uabW1B5eimH2WeS6+vtYUZu03Hhjd8HRO2gzWjTTu4/tGm
T7ADXeKm2z1l61z22YMdy6Zbir4d7WNygMHf8xse4ulfLh11gB1Dm34dJHeP
08ARvHs3/bTrnMeFfEfIeL5pA33fBOHtTjD6ZNPNVbaVT0KcgLNm08Xtubuc
PzhBzd1NJ3742r+q7QycxZvWolu+UJbtDFZ5m57SolVyXHcG/ZubFrtwd6/2
EReIytj0oVdWvryvXSA6ddOUj+x+rym6QmDypu/kOp0bvuYKFEmb7stbOjO7
5gqUiZuOsnyhfV7ZDe4nbDpibLnt2lE3+Be/6bCTMvvv3HCDz/+7uDfuqlqn
G+z7//z3xK/dz9fcQP7yps0F2cwClQ5Bzv/rN9OTWviPHIL4/+/v8zxjziT9
EDz9Pz6Wi3PCQc8Pge3/8efsvzdU9OcQaKZvWobPN/OjlDv4ZW36b+BCoqSz
O2jlbLrnZXhUYLI72P9fryHe7+8Z5t2hs/T/84/d8YqRPgwT9zYt1OC8/M/1
MKg93PR/Qa5CEw==
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt1nc8V98bAHBxkZG9smXvkWw+z4ePmSLZWZklKl+jolRGGWU3qCQrFYpE
IV0jSWUlkZ2KUAmV7Xcuv7/u6/069z733uc85zlHzPOYjQ81FRXVny1UVMT1
nr9yJGt8q8HpsAZecyZaXPrdi1RbhyLSrXM27IRbOnLOijg8JRkPdAebIUcO
qhywIDeQEv6zcKMgZ9qk/sUcWkjNa1YKu5ArXv1OfRHQRvLux1KYkf2E7/Ho
k7tI2RzJOk8YafF5RydvfssPpKwT55O4kM+nM5T/s+8lHRtSlmVhoMVZ2p6t
dx/sJ6W4iATH0dPiN7f67ykPGCINte9gC6KlxTPELr97VTNCuinLxYlT0+L9
Bj4hGuTPpKbmcPZT6xi+w0VfoKB5jMRdPrR+bxnDD53ibuC0/EqqoKejOvQP
w/88fsn6236CNP/04ZPvPzBcr/NWpfvAd9JKnzbdhwkMj/oZ6tp2cIrEqSF8
7+oYhrPJSj14EPCTNH64V+ZmL4bbm6zt45/9RbLJ5DnS0YXhbapHTjfVzJBS
GeLW8bcYzm1lJL6TPEt6apvk/egFhj91fRg2STNHOi7488ndpxjuEiDQeqd5
jiRpVxJoVYbhufFzx9ks/5Ak2gPip+9guPF196ZXLH9JxmXWF1izMHyi8A3v
2c6/JJ1TsaG6aRiu3JRX98N+gZT1gRSmFI3hXV2sHAXbF0lm20pvaJzG8LDR
CB+XgUXSv/ePMl6FYvj2mfGnnLeXSO6LejJrxzC8dm0/85uDyyTuRLd98/4Y
7rENd4+SWCHFWbk+xn0xnEZQ4bH2+AqphFWIKcwLwwvlrtP9vrdKaopczNpx
EMMttDHnooA1Us7BkvR2dwz/aXq8xF15ndTOqRN3DjnVfoCKd3adJBI6TLXT
A8Oz1CTk/JypICpTGIbQ89Pan9431FDBq/uO5sHeGG5ATjkjLLQFltn2qgz6
YXiymYl0eOQW6K0klW8JwPARq5WOD8NbYMxhgb3hOIarOZSHq5KpYVnGRmEF
/V+M2yGJy7nUkBcvWZUYgeEffITbJmhoQEj12Y3d5zH8ZEiCWE4zDbjkJgS9
vYThrRHwZlkaA/r+2Ru7UT4Fo/+GOMRjoKF5avnUNQw/mlAs/HgSg7Ft0lSG
NzH8RapnC4slLSgUPWDLyEH1kMn3n38JLchKmHz1zcdwz5w2gWYWOiicKEqt
uovhFXdjXoodp4Om/S/14+9jON1DnWNnOulgn/x8xpdiDHesnOHrU6OHT4NN
sz2lGH7veWGDegY9YHy/XYMeYfhSk0tAyh968GRf83iF6sPyLQfPtP1WONRT
2fWjHMMVpt1VT+JboZpSe4W1AsO3MZdYYnIMYC/jTpJ/guZDfskvJZ0BlMcp
Ig6VqD53m0YLrjLA2wHDwIIqDC89kpFd5MsIofOyYeLPMDwpcfSZegcjZMym
yvZVo/9/oPQB12YC+/+O0b+uxXCrNxEzlnlM4MrwzWemDsNVplqY+piZIWid
Qm1Wj/LBxCPtE8YMYgMzbU2NGN5h8cj1jPk2YBmxeDTfguGP/FdPMjzeBloO
kW0X36D6SLDIuCLIAtJzk7bUbRj+3/1rD8UusMCvaIUHdh0YbtP6pbXkFwu8
CMv3CkXrS21S9Zu2Eyt8dF8YdejGcE7Gs1uaG1hBKSbx3d8PKF9cviyyPGxw
79ItS6uPGD6Zzyz4y4IN9mueoPdE6/WT+mPZJ2fZQFP48F+1PjT/TU6aERVs
UN71eb0FudqWypj8nQ3qNQqOKn7C8PtfCm3ohdkhuNbA4ghyVsgej3c27DBl
xXUrCTkBmw9Mv8gOhZkqFXnI4RlZEU617OBX0O5diXxEghwv8psd7JlGPTuR
XSrGr36V5IDva+tlq8iWlKT8B84ccO5EiJZhP+o/3erlQckc8G2U/lQesoJ3
/wvNJg6wGFwKFR9A9Tl//t3qAgf0aR+prUdmjpHpb1TkBJ8F8SsRgxi+wtk+
Ee/JCXWBeXaWQ2h95YX+tbrGCcuS1q2Kwxg+sFMQ43nLCVK7Ksv4RjD8bWMD
+wAVF4zfNwPaUdQP9h8Wyd3FBcUk8fwp5JIxVsVD/lxQITdyrukzhmcHV+oo
3eaC6Khsl3jUD5NoXM3m33OBjhbLovoXDI9Mp7Gv3soN6QEVaY3IR8Xve53T
5wZ8IXzrzq8Y7vbYOsjkP244uvjnaxTyXqN/kcx3uUGeHGFXgWzw/talrn5u
YKQLWHyNrORFybrOxgPJnTvLXyELz03edTPmAafKS3blyCzRqU8kwnmgMOfV
gWTkNQ6txslSHuBRhnhv5F+5Qx2PxniAVj/4iibyiFrsUBgfLwxoYf3bkDsa
5Kf19vDCrclstmn0vbhN1yJ1FC+0+F9m7UF+9Pkk/etKXugul7nfhpzznwh3
8hQvaJwdT/uInELdvMNOlA9OvaO3/418Li1ARcCOD+7JSfsIoPjHd3AajMbz
AdWtIVVbZI/yZ7vv1vFBv8aibSaytaGHU+AcHzzij3gxjqzqWRKy6LIdvITY
NNO+YbhtQ5QWJG0HQeF691HksB2OKxdebIfbIj9MFcYxPDNKEX83sx3uthz1
PY5c+5k6hmsHP8y79mc9QB4y7DU9sJ8fykUkDQaQt+SVMOXG8EPSpLjmFrS/
SdBEt0884YfXMuFL25FNvBzTlcf5gcfU54IU8uFGRYcwPgEQpaK4SSNfEqcR
eG4uAAwu46eFkEuje4doIgRgcJueHiNy51hJrkWxAOy9/xF+offNG0X7pg4K
wLXD8l5tyDz5jnK9LIKwRZQn/R6yizdNuU+QIHxsqm84gBzZ1BtanCsI/Z4/
TTSQ70iUas+9F4SZlzo1nMhNMdGr2rRCcG2Q2vQPyse3L4715zSE4IzH8bp+
ZAZjpdhXfkJgkrHr9itkhQIac5ZMIRipSOF6hryXto/ZrlUImBROLj1EDvIp
7bixLASTUpSxB8gZL6MzPisIAyyclipGrpR0cpR1EwZjofIfxP19sUqCx5OF
oSPdllyJvPKVZqQSF4Zi9TW+OmRhk7681d/CkOsR49+MTC4s9aOIi4DwkrtG
G7I3XYx8oq0IzCb/zehGvuDr9KszVgTEJ47jvchFzUqP+apEoNi5l/8T8hsp
7IT7hAioGOjsJMZPNAYIvWcWhSAmj9ddyHHBDmfDJEXhsdTeN6+Rs8QNR7cb
iEKwPIvNc+QH7xWMntuLQumznlslyLXRvAUex0TBYNGF9QZy205qeixOFLz3
hotcQB4emz50N0cUXBfn7I8hz6R/bLV4JgpKojImDsic88VJqZOisK3BOkoS
WSL/2ow6jRhorQS3MyNr2EbZ9AqIQYtO7Ot5VM+mWGBFhLoYsDGE1A0iO1Y4
8IjsEYPS2u7PxHoOfEK9y+7jDuBPt5p6iNbPzLTw4OlfO2BeKJT+BnKIhG5s
Pr04jN3UexiLHJ4e/GFOUxwGpCKcnZHXWpPPCFiLw7PS9VoK8nnqYkmjQ+Jg
xHbdRxk5LuhLaNp1cQjw8RejQ2a6RyVc/UgcslPCjs4S/WtEsHm0RRz+BTsH
DyNfsbLjUV0Uh9/Flo9qkHMVmyvbnSRg/ZbuyQjk3oJ4LYsBSbis2Kl4DPVD
l8GCkaB5SVA16x5wQR7maojLZJaCof2WLy2Qv0Uv9U7oScFgOO0laeS5g0dO
XbwlBflnq0W+of4alnlR7OETKSiNSh7pQV7qyHvd804KPppYMrQgU8HAdqk1
KTB9qub/AJlFeE91k5s0GNOfYAxFTrM77DkdJg1nDfwb/ZC5L8cyciVLA3MH
X5wzsuDKc2evF9JQx7lHAJBlPyktbxGVgcZT22WYkClX2fRIo8ixLFV5aD+Y
Sk+jCl6WAavX3h5XkdNSuV4WcsvCk2Qho3jkkUt8e1ksZIGVIl19DPl0tKjH
YLksnLzzcT8JueK4SkxEjBycCokL+4b2mwNHy80eZssBFl822I9MHaC+beyp
HPQs67t0Ilv7aV21+CEHkXensmuRp12haLu9POx/fto8A1lyt/XbKmkFkHjo
52aO/NasK2WKrAAnmFmLADnExNZOxEUBYsKk+LWQG8iOQxdSFGBhO/mkNLKb
lseM3aICeGoHMm5Fvip5nGu+VREo/lU/2tD+qC8+2yv9VRGCYmWlWpC/iIbc
OrCuCAmWlwLqkdUET0o17lQCX2lLkQrkNo5zWmk3leC9gYVIFjIdVYqLylFl
GI2wTTmM3Owjezr/gjLEKprt8Ua+8KbhBt9tZXBvvLnDHZn+2p9PVB3KcFaq
lNcOGbtWUjzBpwIC98aEDIl4Spzyz8JVQNH/daEI8reRYZ25CyqQtPtbmgAR
P73YQjFdBfbrt8fxEvEXjf3vPFABEpVAMisR/+XJe/EDKuAekYxRIW91GZJ2
NlAFyxrfT5/R+WCC5YFmhoUq6HBcOjKM3FJ/wrTNXhXOvylgGECOk2b3Mzym
Cq5G9IEfkBnmjArlclSBfa3pbQsyY8I9ieUtauAd+bKoDHlSL0x9F4saiCQc
/FWK3PrLkHKMXw16frsZFCMn2A14jampQcbhD/OFyExirHlvvNSg1XHri5vI
zE9DxG6+VIOisry2eOS1PSGkgS41cArt9r6IPDMW7Co4ogY3ZkZoYpG7WYMz
by6pgeA1ZpdzyDf9gthvKe8Ee+fywBPI8rxHt2Rn7oTfmXcmfJEFSwJFhgp3
wr3TnX+8kVmMAvWFK3ZCDtslBi/k2aMBp7LbdoLNwwKKO3J1s//vbBp1oHFf
YHBEtgjzG70dqA7v7/S1WiDrMfutD4erw17SH31zZKVcXyHROHXQiTpbaYrM
0ebjlJOrDi9zVyopyJ8kvTtzPqrDbSx/1gDZ/4NH/R3yLig5MExWR3Y54jE8
uncXLNmqrash793isSrmsgsuXXyOqyKrKbpr54btgmh5V2tl5KUY17LcB7sg
Rvl1jhxyvLrznTxuDXAoZlkSQ1ZP+u9zwQ4NkF9aXhRFHhpPEC9S1oCEbtlV
EWL8Rk1BsbkGsI9KbhNGHtkidP/JGQ147/vShh9Zq30YnbM0gGPO7ign8pjM
wtzrWQ14y5mezYGcFMW26+26BjwrONXJjvxlF7mqY7smsKyyk9iQU27m1vTt
0YSO1fea24h6O+zTNPVEE6woDVfokdMbz9D+bNCECj6RKTpkA6GrJjPtmqBY
nWJIOKOjuWX+uybculXyD0MGTZl3q0JaIFYTFU6NfB2b+sB6QQumag4Mr6Lz
r5EbDS9HuhZ4BQbaEv5ZJeDIlaMFZoMmb1aQKUcsP/FVa0GBs0zdMvJMZ8mQ
2E8tGDj4uGoR2ez28fGd9tqwa+u+uT/IVCVc9vae2tAp3hJHuKr6adPJo9qw
cP+oCGGpHqrc5xe0Yc3J1HoemXZbqotplTao7+l5MYvcEF7W6cynA4/vB3f/
Qg6Ps4MzEjqgn9wXQVj16mLpbRUd+HXJVIJwThn50hczHThPp3TyJ3LkRKfJ
0VM6sEZdL/8DWdd+tub8Jx3o/TpdN4k863VVLv+bDpBlNUIJ3w/SyWye1QGt
f/sUCPNfjgpjYtKFFdn1m9+RFxo5VK/o6oKC2+jFCeQK1Z2FRTfR+Mnp89+Q
A0gfud4U6YL19kAKYfE9EdE/KnRhh/FtesJphxo91N7pwitFtpSvyEG39wvU
ruoCy9Gpoi/ISttCUtrd9MDPuWvhM/G+VYttC0f0gPG7Wj3h+p9iCaKn9ID7
AyQQtu1ojw5K14P2MBdhwuHp8ic4W/Rgh7Xr3lHkl9vHXB1U9eFJ6Ns3w8hJ
jNWfzhrow7sc7mzCjsspDkW79SHRZPo44ckBg32LPvqw9ZkeH2G2nCzKjSx9
sPFRCRxCdpGykR+mMYCvOf+UBon545Utomc3gPQ71gyEf9FTSaoIG0BwutCX
AeSo7yXC57UMIPoayw3Cd4sZOMQDDeDiERkWwrNq9Qu+PQaQ9HTH1n7kWvHr
ocljBvB3n8T3T8ixXMdmq2YMYPFPbCthvr+C01uZSJDn5Z1E2ODZyeH7JBII
SB3hJxxPUmn+WUSCscs5hn3IHl/Sjms+IUEoZ7McYY34P/zn6kmQq6zCSfhz
V/Ux9k8ksLn97ksvstDjXOYsWoDYTP5EwqEmipW1GgDVnR5jH5FHrrsxjeoB
ZDGFthPePZXsQWsE4EfTUENYLGWWca8VwMcG2iuE3/VVuQ/7AdTbiloQlgw0
ZKDOBChRFqrrQU55EewmdRvAsTCihPAKe8FjiwKAuw8ZbhHuqqR3Sy8DmLIr
P004kupduUQrAIUibUC4J93BxXQZoEZO8fUHZPK3uLIjW8jwk8O0hnCxVjVd
Cj0Z3l+PKyEcNShY1stJhhjh82mElaQ/0/orkCHBRteN8IXqgIeXXMmgYH5q
pRu57agcT5oXGcgpPL8Jc4tPnL52mAzH77z/Sjg/0csiN5QMStTF7YQbXJy/
Vl0mw52t7/IJr62ZCow9J0O5RKwtYZPHtFETjWTY0b1gQfiyX+PEj9dkiFa7
SCYs2GFQufCBDD0Vs0qEde7s2sfykwz+ZquMhE8YiV/UFjaEmQt5r94j1/0b
+WEgYQh873NeEKYrzralyBlCrl9FFeGrXPw7rDQMwf63UBHhiq9sz733GkLO
m9l4wjMX12aTIw3hQUXQPsJaerVOV2IMwdj0mQXhszOn8KwEQ3hTzkkhzOL0
53LBVUP4tbSuQVhBblqmptQQBqTLhAgfetvn9m3IEIoXd/3sIuLNPnp79Csa
b2CZIMzAF6fzb8oQOFgWRwnf99Lg2bpoCEt8ND2Ep5fS3slyGkFW7Fwd4WOy
lnqBpkbwOYY7gzBYid//s8cIep8uJBFmC13ijbQ1goyoyXjCj/CiuaSDRjD/
ZPks4VkH2gePIowgvHw0gHDYhbrt8w+NwODXIXPCJsVXLp6uNIJJG0Vjwrxd
AX+w50aw6rUGhJ8KCXRytxrB+LkWLcJLFSfiNL8YQZ4poyzhyDGVf+F8FKjj
w5gJ72XY6kMjQgGJHxlbCYsoD3clSlLAe58KLWE8/HLpTTUK2JAvrHUiU3NM
+tRZUmCC9sFvwrGQ173lPAWeO1f3EXYBcOK/SIFfiVwfCavB4KDaZQpI8oZ1
Ex4h8Y57ZVKA9d3edsK6pMTFl2UU+PRo/0vCv/WDhRM+U4Cuta6ccIs+W17u
BAWcbVMeEc7WL5Gu+UkBsufhUsKW+uMq00sU6DNUvU/4rt4Bo72cxjBcwpFL
2FXX6BAHxRh4R2fSCKvrjkzLWRhDTLB4KmFG3TNBRtbG8DPIOZnwU52q8BAX
Yxic7k4kzKkjf7knxBiWg/7GEH6txVmeVWAMo6w9JwjnaD3SePzAGPafMgsj
HKa1p+ZNmTHEteEhhCW0LjatPDeG+SsNQYTPai73uPUYA802ugDCuzTGlnfQ
m8Bt/UMHCWfczbxYt80EZNYYPQjP81lzOnOZgFpumRvhiuVauVQxE6CvZ3DZ
yG/9Vad1XRO4nDxsT1jF0qKq/7gJpDz6a0k45TmV0YkTJlAa3Lyb8C+lqjaO
SBN4vP2GBeFSdolv5okmcDrWxoyw4sdVrqcFJrBX6K8RYTnPsv8yPplAkeOs
LuGE935ryqMmkKhPteFJinDCm3ETiBll0yF8TzrxDvUfE2gd1NYiLPPDu+M4
qylg3wvVCUue5FPaQzGF6dQORcJfnGONY/aZwoUvSgqE8/VnXWrcTEH3caYc
4R00bxNlT5nCNrM0acKiSWe/05aawt0vq2KEr6vTSqxXmwLt8wpRwuz9CW4L
r0zhdfd/Ihv1KnP1/eSoKXzyoxYiPFZf/Lyd2wxmatz4Nur1kNpCyw4z0G0w
5CXczfJUrUHZDNZeKfEQbjrQeLfC3AyijwlxES7805eaecYMBs7sZiMsfNP9
bVqCGci0+7ASvmb4le7SNTOQOBDLQjgueSYisswMOvEuZsKHZel9vb6agT3H
LQbCzmEc/XbrZsCzxreVsEWjkLXZdnOY6L5HR1jBVV1HcY85TAfRYIQ1OBwY
PXzMweDIIDVheHXqU9oZcyi62riFsK3qi/CFEnM4XVe63oHs9m3UQr7ZHF6S
y9YIH7qBCbgNmYOdDb5K+DStRU0jiwUUHqVdIZxyLPmALMkC4kVPLhHO7+te
TjpmAU21bIuE35S46zl3WIAv/ZW/hKXyj3P3YruBVtzpD+GorPM/7bR3A5eU
xjzhwZS0V+8Dd8MBbZ05wloX83L25e4GDWXXWcI/g1/a7GGyhC+pQzOECzzG
MfMQS8gaiPxFGP/hK27SYwlOgyd+Eh4I/0Y20toD/+YKfxBeoPf1gKw9YCY4
Pk2Y88rXSP2VPZDNorvhQyMct6937IVnh1SnCNfKw4u5fCtwn3SZJGzddzru
qY41eKZ1fifceNNJ9V+uNfga+284iyrDRBPbB5cGBTb8n3fbgRM+++Cb5/cJ
wr0jtz+Pt+2DooNNGzZwDTrsqGUD9V2FG2YIz3FpzbKBFf3sDXdfbbfSW7UB
ik7Whv06mw68cN0PbXTXN7zEVO1nWLcfrJavbljQ3eTrHylbeHt+0wblXZ73
km1hP92mXxbUWrr9toUrMxkbtsws1ODcbwdrlukb9iyQTluotYMnymkbPlFW
9GNQyh6ks1M3bNv/62B3kj1c89y0Gq1mT+tfe+g03nRIe39lg4MDuGzfdFXm
uWvVTx0gtyxlw3Gna79/FnOEatFNO7sv6DIlOkLs9eQNN/vIP3OzcoIPj5I2
3Hh30q+b1Rlkv1/e8CB/7+L9EWd0vt50e4jCQ17DA+AwcmnD9W3nvGPyDgCW
uWlDckCi2DYXCLTZdMNjh/K6MBfI4dh0UXOOsWufC6wOJG74ct/33mVdV5gq
3rQO42LMg5uuQB+96QmdraoHVl1B1m3TEjGle3V93aBId9MH39kGCLS7QYnw
pqmrHP+uqLjD4a2bzs9xOTeU5g43/yZszm/uv4iZFXeQmth0lM1r3fM7PSBm
aNORnxdfpvl5QELfpsP/k7POv+EBnb2bLuqKT9F46wEt/Zv+qPa9o2XFA/g/
b9pShMsiWPUgJE1vuoGJ1CjkexASlzbt33J91uzaQchm3Pw+jthZsZCWg3BU
aNPZ1g8H7y4cBBe1TcsJBmT2y3jCdfNNrwXPX5Z29QQdn013vjkdFZzqCYr/
z9egwNRH5jlPyMD/f/+R/EMXZL0g5eumRWtdF9fdvUCdeXM+/geHwSgW
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt1nc8lV8YAHDjItkzMi/XHtmb+9iRnVGZGWkgJERJRaWFSOUnZO+VUipu
SKWIbGmRspJo2P3OoX/u/Xw/73nPec45z3nOS/Q+7OBHQ0VFxYp+8H/xwW0x
bAltBr+PNm2xYKKjSLU3Jju6FJE/6L4NN0B+3pl9UsTlPpnw9rDu2GY6Ssw7
JVdLwyay8xlPmVZGOspNh+TfBJfn5Hef+fLcGOgotc9+JDcGdJCX0i/u0aWl
o/gLF/PqG74hWzjf7ZBcJVB+7trtu9Wql8xrl20h+otAOZXCWPPHeYDseI7r
l9cUgcLa8eBvz963ZN9v+toWHwmUjE0HrWsC3pO7Le8PWPYQKG8N/MI0DEfI
J/T1+uEhgfLrzlO2H87j5LO/7apLLxIoel237nkOT5Anh7sN3sQSKKdnjrp3
7J0iux/fxh8ZTqC8YLIh6H+dJp9uHNOoDiBQ2GUkS0sDZsjOWVK7M3wIFGez
Nfutc9/Jwh9+x3u7EigdyoeOtzycJZsr7UlScyRQQqH/dXTMD7IlIU/J3IZA
4bE1Flc1nCMfTlM72mFBoNx3rwyfpJ0nSwAbcdGMQHELEGi73TpPluTZETlt
SqD8jTontDvhJzmWVuA7BT3PSZgPZrf6RWb2yuCMRe+b3vBsecb6myxWEVQr
jvofL3i55WTXb7LPLW6zNDT+pbuahzRS/5AfVcqI1roRKNtachu+OS+QdXYv
7rXeR6C8ecPGmc+/SFbQHheUDiFQwj9F+7kNL5IXOB9fpjlBoDxa28n8cu8y
+a6vY9y1NALFi4XieZq0Qm7J51OpyyVQaAXl72h/XSFL9u6PrawiUCy1CXuK
AtbIK8ap11heECgz5sHlntv+kj8XV6wudhMoyc7DVFvm/pJFrxRWd7wjUNJV
SLL+e6hAzaya6uAXAmVae6i76SEVXBqJ1K37RqAYGCadEBaiBpWIJ58r5gmU
xO1mUlEx1LCYxKPuvECgfLRd6ez9QA1jY2V0DcsEiopLTZSyIQ30tuaRqdcI
lDiP/aTLOTTgEBs9a/SXQOn1E+4Yp6WFNogglSFLBvZEmPjRgqCid+EB5Miw
C8TsVlrgOa7dWIzeb4uGl8tSBDgdcpIpHeWj4JnfYS4JBHg67JTot0KgBF0o
E74zSYA5Lx+CKhq/Mdn7OasVHTxvTDwjvoTy5SZf6MFyOtDety/RfpFA8c7u
EGhlpYf0zLS4ThR/bWHcU2IwPXCmeISUIdNX6hw+0UUPctSh5pPIu+7N8g2q
MICJr+y+8+j94scFTWqpDNDSoeF/EvW/1OIWkPSLAVSOZYg2o/GtXnHyTjtv
Ar7XEm3GKF75aU/lSMomMLe7EMON5sfCXG5FkGWERfnihjUqOsqM3JJ/Ugoj
2Dbf/DFBQ0fp2GF+RnCVEVoXLgs0EugoFYdSM4v2bQaPsqfEg/R0lCsXPz1Q
69wMcYVtDUPo/AaVKvZStJlAZ1WDSIfOt+3L6FmrXCb4OTSvPoKsNPWcaZCZ
GdR6wvMOo3rAzsQr5RfODN1ejvGVyLOyPkY/PjADlQfbp0LkTssq9xMWLMC+
7S2NN3LVwdVIxjssULr/aPkE6i/5gmXqNUFW4OdXJVshh5ZcrySeZQUde743
1zfRURzaPreVf2eFOTc6XxyfyqTyF+3dbPD9ejkHEZlr80nq1iY2UFe7ExiB
5rPEvY9VhpcdOC4mLn+ho6NM5jELfrdkB0FP3e5w5CG1OzJ3T7LD+DeOYDnk
tpbdmtG17HCsprOEHrnekcrUcIIdSnV1hhmQSz4XODAIc4CvDL+4PHJ6mLVX
uwMH/C5jfBaEfIHwMzDlHAdceptd+QI5KjU9evcjDlDeP/xFHcVziGSYIPKD
AyKW0oTKkN1qv6aNSXBCjrSJjASK38rkSl7pHk6wJTkcSUfW61GrCUnkBOlQ
FUd6NH9537eNmi2c8Mz2p5MvsuDPU+2rC5ywpS7ErRqZOU76bbMCF8g8YL8z
hbzC9Xo8wZsLSIzPqbnQek7nHv1te50Lurgq5aWRh1UFCbyvuGB4KVxMAflV
cxPHMBU3sD+pyyQhP9p5QCRHnRusJCzGOJDLR9kU9h/kBs2RlugF1H/mkXs6
ilnc4Mg1MfYW+Qqt+/af3dwQz/1ifyNyTAqtc/0mHjAqaRrIRw4SL/GJ1ecB
rYHh0GRkjzt2IWahPFB48HHLGWQb4z8xzIU84EO9ePsEskH3rUtv3vJA/7kI
qZPIij4m6TfYeaHEpq/tHLLw/GShhykvxBtnHklDZj2TfJcUxQvRjBoZxchr
nFrNkxW8wDUXGI7j+Z7zvrNqlBeC1Fu5+5A/qsS/D+fbAnuXLyfh9epskpvW
s94C/buTFdaQKQ5vFmlOb4FxTvVIZjT/qpFIhhf3toBGcZEbD3J2qAhP4tQW
WPh7XoMPOYmmVcxJlA9iTl3r50aOvRqgJODEB39LquOZkIPFuAw+JfBBQoXU
jxXUv1fNgx2FDaj9sgdpEtnOyGt34DwfzHTbBvUgK3uXhy268UP944dQgOzY
dFoLrvDDWoqX/FXkcLFdK2cb+WHTB4nMWOSbpxUo7bP8cHjifkIo8qMRmjhu
sa0Q3MtYth/5vdGAuevOrRCx6WScDzJ1bjlTTtxWOLy8wwqbRHvm9fjdrUCn
WbXgj2zmsytl29et4BIwZhCCfKBZwSWcTwAutp++EYN8SZxW4LGFAAhbMFon
IlecGXhPGy0A7DwVJ3OQu0bLcyzLBCC4UVC3Dvmn8Zl9ye8E4GYM18lXyLx5
u2QHWAVhKdLc9hOyNkFxRhgEYf8Sb+NPZDdf2hq/EEHgbLqygutPTMvA0bIc
Qdj3NNkVr+9tUoX2fLcgqN6c3COC3BJ3ZlWbTggs7FsKJZG/fN71JFZDCPLI
1kRZZEZTxfhn/kIwfkO4XwZZPp/WgvWmEHTXihFwexu6QWanNiH4vErajPsL
8avo/G9ZCEonKw7h/U59eiZ1RF4YBu9SNTEi35PYvUvGQxgaPtyoxfs5GK8o
GJwoDCOcN2Zn8Pkbo/14jyIMwlc2i+D5CZsN5q7+EIYKO8l33ciGBRX+JuIi
0NbWdvcZsi99nNxFRxHY9+rF1sfIZ/ft/t4VLwJ0y9p7a5GLWhXv8NWJgPfb
lcZy5JeShAjPcRGY4aq1wfke0Rwg1M0sCn9o++kKkc8fcTkZLiEKUcsJTTh/
0sWNPvEbiMKdvoOWRcil3fLGj51FoZTYaFuK8+XMlnyvw6IgvsgYUYncoUrD
QDgvCm3u8u54/A+j0/sLs0Whb4z91gPk2ZT+NssHoqBbvam3AZnGpEl+pksU
Zja3lTYjc/0su5I8KQrtg8M9eH6kvOuzarRE6FrQ53qJrOF42mFAgAhj6Y91
25HNCYG10WpEsFxeVe9A3lXrwitiTYQoL88V/PyAr1Fkkx8RQqgn03H+RHEr
DPnFEMFAxUmhDedjyxY9xutEyMjzGG5FvhVGk1lWSQRtAZehJpyfpG9/bZ8T
QaDA1QvHS+np3zv/kQj2fptL8Hy64pqa0xaJwHWNMI/nO6JWLqHDKQb2h2RD
q3D+fr5+7p2sGOg5Wu4qQ6a7dnoi1lgMktd02/F68poG7iC5iUFKcc03XO+k
f7mUPwsTA56hwZe5OL/zjdgOXRaDNOWKQHw+LJ0UQlgLxOBh39322zjf6fi6
qxvEwPLq+DB24F0adad+MTjXU3Uat5+dFn53/LsYpM9p38T9hZF04/MYxCGO
PZ0Kj/fH1UXhlYg4VEkNpuD9jko50juvKQ7NA2yKOL61tsQTAnbiYEK+Worz
5RRNmYTxfnEwqjafKkEm6DxvPxgrDtXCRl04H86HfD569YY4nNIzNcPzZSqm
Eq6vEgf+6nId7CsfBVs/PRcH5i0Webg9J592EOMncQi/xXsK93fN1olXeVEc
tH3jevD4fOdCGnZxkMBzU0ERji+j4fK+WBkSxCg6Mechi/wuZi0yJMGnyWhO
PP8chdZ7r3eT4I6DctctZEm/EY8/ISTQDOz0TEcuzlijF7lAgrqK7j5c/+V7
tlaa5ZDANDHAOgW5iknTJaieBL0wO4jrk6rxzr/X3pDAViEy8RLyvajDhY8n
STDt9iAmAVmn5qLtGI0ELNAY1J5FfjxR+IdZQAKIn/m045CB2JKlpioBKURP
ztPILbs+mrvtkICl+0GGuP6aJ618P+MjAUOg3YLrY9szvhul0RKQWXv9Gr7P
bP6qQXeKBPhVsVQcx/mmYT++VCoBZFoeArZjUGCSWIsEvCngvhyNPJCfoGU5
LAE3PfP1sd3e5X8M+SkBcwoJm7E/cDedv8ksCdteVI1HIXtbvVd6QpKE/jm2
DuwvZ5YGxvUk4VTLk2rsAw95T7E7SULgJ8NL2NNzKjJagZIQHVnlgh0sa9vl
GS8JDh/S2LDn9x46du6WJEgmKFUfw/fNzXPEyruSIJs2qIO91Jn7oq9dEprn
dpdFIp/YRAlZG5OE/AQ5emwqGOaXXJOEz8fqLCKQ4yIWnljzSoFnRk5kODJD
JffBo4pScD+I5tpRfH8LW9e3eEiB7e2pW0eQrzod8J4OlwLSNdYr+D7juRy/
mTtRCkL58kPxfSS48niPT6MUqMSxCB1GlhlSXKYWlQbOzVfpDyKXcezIldGS
hh4B9nJ8/ylZ+O+wt5MGY/8JK3y/adzP+i87VhqOuMSfwN9TJmnseuRP0sD8
JGLAA3kq5SrVkWVpUFJJ9nTH8SRzPy3gkYH9lxbnXfF5TkxLGNomA3+DTG7u
wd8Tl/hsWC1lYJqlwmE38rkL6ZxGvjLg9H5abBf+fjkv2H80RgaYzm9ldkHu
jc/8r/iGDKSpnWRzRj5+RtTrXY0MlAtFKTghi5/KIXG0y8BQ21U/R5xPMaQJ
k68ysBLjd28ncsjxgvJIalnQkSgXwuaLkg4tE5AFfmOHGw7IjRElGh/VZSHk
cJsY9r6j8stcdrLARr9y3x65NlgpLjpOFq7r2/2xQ3YNqtlemSkLwkKf07Bp
AtRYRu/LwgtvL2Xs4gP3uni7ZaHkdlizLbKdv1aa5TdZ+HF7uyX2H9/6PTEM
crCwNNBsg5zprSdSQ5QDEst1RWxTr4bRMV050M9kv2CN888divid5cB9gNhn
hZzi2hRgHSwHEUz1XNg6u02UT12QA4Y7dCY7cD1y3F4/3iAHN+aH4yyQJXbY
vaqTkofNFcmvTJFfbX+TNGUoD03U9p9McH00c3QScZOHipzEZWPkJsNd788m
ycOHX5NmRvg8kIdy6kvkYV5ZJ8oQmV3fzX+mRR4GU/3rANlDy2vWaVEe1mim
bMm43muM1CZwKYBJ5fUSA5xfqr7HHisogPV1HVbsJcX9NBLeCsAznzyth5wm
Ecz9s00BIoZFpnSQ9cXnBqTGFMC13fwI9mfRsFuufxVgX2b0qjayimCkZLOq
InQoCfFid3DGal3NUISUmXh7TWR6qiQ3paBtYOW+/60qcqufzPG8s9vggn1G
GPbZl03/8WVtA/HibhZshuu/hqg6t0Gsrj2o4Pp+vbxsnE8JRFK0CpTw+BZR
j8QklMAy8RBgt6yYvXJTVoI4C7m325DjvT9OdVoowYrlJi5sekUuuQdRSpDW
YZmsgOvLxw8682fR89QfatitKWWWCilKoBF+fEgex7NoevB2qRJwkOrlsBme
RhYnDCvB+8fUX2WRxyNMHzSPK4FyS2k69nNZzherP5VAZYHNDvt8Uul4CIsy
9E8kNcogb3J7L7XHQBlq5IbKpfH7rKWaqZbKYNj04xD28ycR5h3OyvCbaUoW
+7wUh7/RYWXYGa1fKoXMOG9cIJutDKMX+molkTdfKCYtU6vA7amQCRLypF64
mjqrCrhvelCD3fbdyOTwVhVYuHX8OPYFp2GfURUV0HmowYHNRGTLfemjAppc
T/XFkZnvhxEznqrAu/ihDCK+b63DyMNvVOBFIP0+7NnRI+6CH1WgzJ9HCbuH
7cjNjCUVeJuq/kwUr19+aN0wgyqcK0xPxb6vG9oryKMKQ4k2PtgZ/iEct7ap
Qq0fNx32ldXgbe/0VCEmV31ABDk2JdhayFIVyPVvyrB9Gw8n3PJVBWWPvXuw
5bYEUWfeVIWDjfebhXH9LA8UeV+gCr83G2ZjsxoH6gvXqoJmqsEJ7LmggGOZ
Hapw3N1JC7u+9eCPTFo1kGpfrRBCtgz3/5QVqAazLZdSBJH1mP3/fohSA15G
hWBsxZx9QqLn1cDMQMYam7PDb3d2jhrYoK8v7CEJ367sfjU4QjV0TgCf34c+
3z9+VoOOn2cPYDfY+7AQ59TAmZ7KCjvnhLfFbWZ1GFM14cI+2Ov15LahOjQo
cJRsxffjIa8Pn2zUIW1UNxnbhtprleimDtFn30diqyh4aueEq4M6i5UF9lKc
e3VOqToEXWv5xo+coLbndi6PBlyq7dfHVrsSOpIvpgH53H3S2O+/XhAv2qYB
3al/udaf//cwv8xCA2TkP03y4fpPLVRy94QGSK7Bf9gXXdWn6i5ogDzTz3PY
Gnet5euva4CN5EQY9qX9MRUN1RrQ551pi631+kPNszENuJpmtgl7VHph/sWc
BvwnIPxnC97v0+zqr/5qQO+K9hfsz+qGdZ38mnBFRe8pdlJGzsNBa00oeWR2
Fnv8gF/L1F1NSKK858ROaT5BN9OkCc6LZnTYBkJpZrOvNUGTof8PL3JqZ+vz
nxOaYPbl0Dts0JRuXxXSgkdHjUqwbxCmetnOaoHrazFLbGMP2i2cKVqgerHG
AHumTmAXd7YWLIz4qGKbHLIa4qvXgqeF8kLYs13l74kzWnAxxHWOB3l7VvBX
VWdtON4hnYtNVc7t7OytDaKWkenYdfX3WyKDtIGuZzQZW7KPKufxWW04lsV6
CpuOJdnNvE4booLyvbCboqq79vDpQBXhEAk76rwTnCDpwJsRMyFs5bTFiiwl
HaBv0uDFzq42vPR5uw68ErHbhB0z3mUWdEwHWBhdv3Ej6zrPPTw1pAPWxy7W
Y8/5pMnmfdGBXo2oWuySEJ2brXM6cDLkWAX21sunw5mYdOFTWHEO9kIzp/I1
XV1oLe25iF2rrFpQlKELuWf892IHkPu5XxbpwuO0fW7Y4tbRZ77V6kIPQ7gL
9tX9zV4q7brA39ZijR2StVPg0aouPFvj1cVWZAlLeu2hB+UjCnzr461asiwc
0oOC7BIu7CczxAuix/SA5Z4qG7Zj5+szISl6YCF2kB47KkUuguu5Hrp//X5x
IT/lH3V3UdYHcaasXuwrm+uHThrow4nyd13Yu5aTXIp26MNanXQH9uSwgf2i
nz4UdIy2YrNnp5v8l64Ps3WT97HdJB3kPtAawLUo9ixsyS0yRQwcBnCWhjYD
+zsDlYSSsAFk9a3dwD49US58SssAuC5ypGAXljFyigcagPWrW+ew51SeLOzr
M4AUda1Q7EfiN44mjhpA/6WKw9jx3Ifn6mYNgCZVPhCb77fg9CYmMjClkvdj
GzyI/FBCJsNOG4oHdgJZqXWmiAyN0cLW2F6frwZr3iXDRIT8DmyNhF9bY5+Q
oUodLLBH3tQf5hgiQ2l4pCm20J0c5nQ6gJlfMgbYR80U7j3SAPhrFKuE/fGG
B9MnPYC6Gx8VsXdMJXrRGQM0HTNVwCYmzW22sQXI6hGUxW4frPP84A9gbEdF
wpYINGKkuQlwQD2JDzup8YiHZBaAvrLaFuwVjvw7lvkAEkzDPNhv7jF4pFQD
SKlrcmHHULXXkNoALgZsZcXuS3FxM18G8Mi6RMA2/HK++hC1IaRbHqTFLtOq
p09iMAR32EGzvh/vBKsHuAyBZZKXCltRaoTuoLwhkBa7lznx/V4fUHnJ3RCK
nr2dx+4IkuW96mMI5zfNzGHziI8fv37AEPT6aNadd9HHMueoIcj+VZ3FbnLb
M1Z32RCq+u5MY6+tmQuMPjYEApn0Bfuyf/P4txeGIN+f9hlbsNPg3kKvIVgJ
cY5i69xWt2edMQQpHrGP2BHG4ue0hY2goydnCJu+LNPRRNYIRvidB7HTuLeK
2WoYQXou+wB27Rj7Y18bIzj7ML0Xe/bc2lxijBEw+651Yp+cPUZJv2AEwStf
XmOz7v51OT/NCPpSezuw5WWnpR9WGMEpu5ZX2PtfDXp8eW8EoD36HJuR77zO
nykjqHMYfYZd4qPBu2nRCPIMJlqxp5eutstwGcNxEsNT7MMyVnqB5sbgIH7u
CXYVpWj+yl5juMI/2og950JXWhVtDGwExwbs8LMN/D8rjeH7t6CH2PeFBLp4
2oxhWzRXPfZSbcR5zc/GYH+q7T52zKjSnyg+E5jnD7iHTYm6XJGhYgKLug53
sWk4J/0arEwgK9O0FjsecnuoT5nAKwv7Gmxd8sXFp9UmMJhVUIX9Q/+I8IUR
E5jqJlZiF+q5GttwmYKkztNybHdd4/2cJqagNXe+DJtLR+5yX5gp+Nz3LcV+
ocVVk55vCqf4HErW11tzuc+jzxR06V2LsdU1RpfFGMyAlf9EEbaSlWXd22Az
OEB4U4At610dmjpkBoPBQfnYEpF8itYm5vCI3zwPW/TKyQm6CnPwobbLxS74
NZh888R2KPvy7vb6/rmr6ShYW4C78rts7ON0lg+bWS0hWl1j3S/LPfX2dFrC
cGxLFrbWudxs+5wdIOMQsO58r68EizArYHVSWvdw1BdDYy1r4HjJuG6ua2Mx
+ivWoMU3nbmeHx85s2502oCLf9+6H8lB43yeLTCyPl233eDx8/d17OBD2YN1
N2fsVv6TYwfletXrTqdKNdMk2MPt3pJ1h/p2uEb42UPYvYJ1D3zMGvnaYQ9d
VbnrNnAPObBLywFozG+vmzEq260t3QHupWSvuyftta3eqgP0kTfs39Xi2ui+
E3o4NrzEVO9v1LATFpez1i3oaTb2S9IR6OY2bFDzxrs40RHGv274af4jK48f
jqDZtWGrmwUaXDud4GfFhr3zpa4uPHKCousbjqgu+vZO0hlaL27Y8e33vT1X
nGHi7IZV6DT72n47w5W4DYe9fnuvycUFZmI3XHcz9nr9fRc4Grnh88cfTYwQ
d0F2wIb3eC7oMl3cBbF7N9zqJ/fAw3Y3pNlsuLlw0r+HbQ+YG2z43daBxZKP
e2BFccOvw+Qrtxi5QqH0hp90xPrG5bpCn9iGjQwDLhJZ3IBTaMNNd1xqGsLd
YHjLhotas03dB90gmmvDlwcnBpZ13eEK24Z1Ni/GlWa4A5F5w+M6m5RdV91B
hHHDpLgKG919HmBLv+G97Y4BAq894Afthmnqdv1eUfIEEZoN52W7xb6/6gnF
VBvuyfkTPbviCSf+Zq77tMML3VOqXlC7tuGYkcWnV/29YMc/R4XK2uX95wW6
/1z0JiFJ45UXRP9zv8pE5/MVL1j7ZysRbssjynth8F//TUzkZqF9e2H13/gH
n9+Y2359L9j8i48zfo4Y9nwv9P+LP9Ou8l3hwl64RLdhWcGAm2+lvSGEYcNr
R35elnL3hjv/1qPr5fHTR5K9QeLfer0TmOpnnvcGWY5/7Q/l7T8r4wOK3BsW
feS++NfTB5z/7cf/W3uR0w==
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF2Hk8VF/YAHDLDMq+k3XsOzN2Yh5LKhHJvq9Z0iKSkIhsLUibfkKU7EqS
JZqEEKJSJBIplVCkiHrvuXnf9x8+38899zzPec5z7twZku8BuwAGOjo6euwP
+l8aoh7HmdZt7Hi4beN2ViJNvvdBlr1TCfVF0MZDM/REWmd/wXEJp3rq+8sl
H+K+Emhxoxpuliat1M8mhd27Bgi0HLusJYJTJ1XQbchJ8DaBVvv4W9aD0D5q
q62JinomgRYoXipgZPKM+mvQrlInjEBbdHbx32Q1SA1TTVSdciDQErI31Px0
HKI6rzBmkagEGkdfw98XPiPUsS57YR1VAi2XJcS6JnSMWmsxG7BRkkA7TzrT
+7hpnHpEfbLcXpBAGzEOiNAxmaAyzy7fauQh0KTcjURudExSj46GfJ3kJtCC
jvK38lpNUct15evj+Ai0qotfg04MfKAqR7flUjcRaD/utHN+c5ym+vrd7X0j
RaBtHrha5/XmE9VL4wXbRjUC7cTsYY8+ny/Ugznbmg4bEmhdrDsJRh9nqHue
3uV8bEmgcSnKlZeHzlKr4pKKr7oRaI4Wf3Zt+j5HLfLlZjq3j0DrI++NbWua
pxqaD4jqxhNo/DZm0pom36kso1UdAzcItHqP6sjPjAtU27/Tlp/vEWjuoSLd
1zoWqHMmmw0Yugi0v9EpYi5pi9SLDz+/bR0i0ArTFg5yWf2gbt6ZtOPDBwJt
y2WvtsccS9R3PLbT+gsE2nTxE8HjA0tU6p60mPw1Au30Xd29Oud/Ugm1AdVs
TESaeltRy1fHX9TZd2yhaWxE2rNnnDw3hJep3k0LvqrcRFrku5gA9zfL1BRa
AojxEWnC8x/refNXqE01L3tT+Im0+392sz3x+U3dtnFEuAizNzvN64TMKjX5
o8piKTaeUVTljv7HVerPpOHDwzxEWrHSZaZvpWvUU23xbfu5iDRLfYJrSegf
6q93lkvX2Ym02a0HK73U/1KfLBlL3tlIpGU5vqET/P6XaiATm9fNTKRdocgo
BbrSweoe1nJ+IpE2o//6eWsTHfC+P+1Yx0CkGZtkHhMXowe3zRdn2+mItIxt
FvLRcfQwZf37uf1fAm3cZrV/8C09GBIzGkP+EGgUp5posgkDqBifsmDGnOQZ
JHOmkAHkVnYtS2EeDBDvm2ZkhK52G89bmOX2vThiHsAI3+189lzF5ouKSCcV
dDCCmUzw+xdYvO4YePJbngB8fIfYActHNHEpwimNAA1Rs18eMxJpD7J8Ozms
iHAqf3fTEFZ/rhyhQyGVRCh9mJNmxEKk+Rb0iXRwMEHorSypqA1EWu3NpHbS
QSbYNZnnexyrB1O1wYFjA0zAZfHjhzV2Pp3r5oWGKczgz9C8aQJzaXNxq9Z5
ZjhzncXQCNvPlTb30Mwf2HWj0GA/zFY9PAIzjixgxDzR64pZZcaLHEVjgdQk
35OymNnZKq0IShuAdrVSpRebb1Z5JTAzewPMO3HKe2Du27E1UXRtA5Dpf10Z
x/Kp2ns+r2TPRmCTfTDig/nsqXcNWv0b4ej7QwufsPz3l6sN0vRZQSRJ2joe
s82TmHmrIlaIN52JU8Ks8aWTdZiNDQ6UZZJnsPVzsQrIB0SyAb03u8xjzPNK
fqbf3rJB+MrWrU2Y+y1veRzbzg5bM/bPdWC+FbIWteEOO7gWSwt+xJyVbnn+
gigHkBy8bgli8x8qu1RNSuaAunmZP7sx23W/766c44BUQsa3i5gpn8kf9F04
Ia0wPWkEM+/G4/QdrZxQJFfJJoatZ4VvD4eiABfoHiUlOGH+fJ1NdM6SCy52
/apOwfxa647i3eNcUH+20Lscc3ebi25MLRfMDfb7PsTcaE+3xeQTFzBcj0zv
wlz2vtiOWZwbmnKY/mvDfCXC2rvXjhs8Ap7K1GJOJyzuy07hhpQySecrmKPP
X4lxuc8NuYPiz45i3itjkibxjRtEVSiBDpjdaz9enJLlgZbzD2bVMVuZn71e
7soDWXtDeNkwb36hVROWwQP7XZKVZrD1qfiPPNBt44HfPVV8zzCLLib0rv3i
AY5r9xQeYGZLUhh5pMoLWk4BirWYV3mfTqf58kLX9qottzHPFB1esrnEC8Fr
WVJ1mN9oihIEenjBTIvh60PMPY9aud/Q8cF8ylrYc8z3dwdLFGrzQbPlPQPU
D5WTnKpBIXxgw3OujB7LLy+8zkAtnw9kItpFRVD/MHpsW3zOB8dTnv7VxByX
zejYyMIPRybaZiwx75cu84s34gfpz6RGT8yed2zDLA7xg2VMVOp+zDvNfsax
3eQHp8ZjXahexs+vnn42wg9lB4RN4jGr+ZlfucwlAL15VvQnMIsvfL7puUUA
Xkt1+aDzxZGYdVcmWgAaPnIuRmH+w6P36HOVACy+vXj4AOa5wrH+W5MCoJn2
8oEf5nHKybFIIUFw/NlV74i5v1V5ZrO1ILD+GjPbjplm92yZ4YQgqEKq1mbM
tyaimLvqBEGC8ZepBuaCQxL8GV8E4bLlTkY5zJkMHVIOkkKgtfL8Leq/+HOh
GiIOQli/uAoIYT4oxWv8Lk0IUmSv1fNh9q5p2HGzRQhcLwRV82K2NfV22bcg
BF4F7x6g6/CMKVBTQRjsyV/PCWIm+1ZGLLsLg1DclWZUb/vWE3pwVhh42Tcc
lMQcKeW8mvxAGJZ2uSXLYs45oUrrnceuJ+heV8J8f4IhiU9qEzQr2B9B/TZm
OrTVbfcmKNAXb0L7RV9UyVqYtAkODrdu1sUsw5j4dPruJti9ne+NPmYLP+ds
9Y+b4NrtlFOGmIMfqTpFColAIN1fG1Sf09KMIs3bRUBTadIYuSpxaIwxRgTY
Bc9Ho/EDk5WFlhUiEBDgom6AedEscU/WqAgMeHdl6GEWuO6sNMQhCkzH9vXr
YNYnqM2KgyjQ14OMNjov/ow1AWGiEFUd3oD3V9vQ4YpCUbjRTaqjYL4mU6W/
8FwUvDZd0UFuS0pc0yeKQcM+fSvkD++dH8briMHRbfaryBu2qJ18HCgGQQVX
QAuzyg3G7Rw5YpAaHcSC4u8kDrM5dIuBTh7BAOUXFlDV/99vMTCJPVCL8j/f
nnh+QkUcah1E7Yww18m6OCt6isOqjekXKubhk2qiBzPEwTze3NkU8+oU43gd
TRw6b+6IMEf9azFctPZNHJLzdCUsMJsUVwWaS0tA4HsqdStmf6Yk5VP2EsBs
lN2KnLzHZW7gpAQU2TIXIJd0qN0RuicBn3gUXqH7n8gRjnhNS4CJr/zBLZiP
PAoVe84mCa6ZETFmmFPDnY5HykrCm9qtXCbo+SVt+k7YWBKMZox2GGMuf65i
1uwoCUs/h63QfvVpMjATUiVh7kCwGqr/28mZoJsFkrDVRckO1W8++1W3ZYMk
JC2+o6F+YjBvVZkdkIQPi3PZqph5FyvOZn2WhGXy/Jgy6qfrl+a1GEnA+1C/
GvWjjv0JuyEREjQverEibyXsq43RIsF4ve6CImbnWicBCWsSMEdSvNH1YH/T
qNYAEnitbbBA80Xzqb4OiCOBj3V1tgrqvzbBzRsukYASEKylhvlqBENeRTUJ
FiqVuNF5rZL5+temkwQpdDe4Uf60F698FsZJEFRbIYb2fyCp9dHFZRIkleqJ
o/2f0KqUNeCRAjGHsT/oPCy+v5QyqiQFx7W5q9B5IF448SneTApe8kmKo3oJ
bNm3Q8ZdCiQ/XduC+l/hh1Pl4wgpUMwSkkD9oX/DlHPvGWy+IJ9SZEsH1TCO
YimoGlT8iOxOFHp+u0UKtnFtHkPed5dB2+GVFBg/drqEPD8jPho7h7lhBp8v
Qsbw5HVmaVjx2XYCxfvp5qTaIyENj2ia3Sif6OzwwQVdacjoF2FE/tOdcUzE
Vhq+d7frov5NYKiQNQuShhPwKgyth2DQ2RsSLw3KxQYNqN9Tw94fPndZGoTa
DPmQWUvpxBtvSQMtYSwZ1ePsuGjHu05p6LFO40XmEdLfv+GdNJya8mlE9btg
4yBAXpaG24d1opGFUsJanLllIIGdYouc23JmT7yiDAiMXNFDllgq5SgxkQGP
ji9qyIWqHXVPXWTgoYkzbrmACc+fYTIQeV6Kglya+4dJIl0GSnReaCOrvNhU
bVEoA7mpzbhvseo67W+UAVOBIfx+TbPdfy88kwHXrt0SyHXRB242f5YBw15N
JmSDmlM2UwyyINDZPIn6vfnTzZ9sIrLglMDQgAyktnwtTVkwiuNJRW5zHt/q
vkMW0p4m7Ebemrk6l+gnC7854sWRux8LXS6PkQXzCKsZ1F87/2rB82xZyP5s
RcP7TWfX9Eq5LDy+HXMV2X7/vkypNlkoOJiRjDx0I03P8o0siPYePobsPnpj
PGxRFi5FpSYiv+VrTc1hk4OVNZUcZF+rMY2HMnIQ+Y3UgvwhcWVoerMcNCdK
fUMObhJI4HKQA808Xw2U38x3iqLePjk4t8/oKPJBJZsBr5NyYB3Z2Ym84LP3
aMpVOZgrOyuC6hOZk0KqvisHohTV/cgr/UVdL3vlQPslTzPyMRZa2J8pOeB+
z09E/UAHb4Tl/siB9JS+GXLSkV8PrQXkYWVE/TAyczVfyGE1eeC8w56DnP5B
g+eqhTy4C7ZVInOIWze2ecpDvtuDGuRzDsG+M5HycKHbqgSZ/8zJjXwZ8nBj
TSUD+XLbtRrDm9j4be+CkEVXm139HshDUb2hLnK+5muGU6/kwYgxexXlK7V3
qaxmTh5qtF2bkBVfq/2ml1SAqoEhdeQK7h1FinoKsDJf+hnVQ2N74I5dtgqg
pDNTgnwnPnEhKkgBemIzQpF16vP/K4hXADNXcV3kxrkms87LCqBPd3sDspH8
0Je5WwrgY/znPdoPmuditmCXAtTYbO9CNr/ItZn6TgGmmHzqkL9kn6ML/60A
YQ0a5cjnsvjai/kVYYzzegmyfsbFtNfqirDllFUl8vhpoZ0clopwZSXtHnJK
+hUeU39F2Pylph1ZLVX01eE4RdjmuTKIPHgy77/Sy4oQXDT2ATk2UdJ7tEYR
5A78XEKWTiiU4e5VhB9SGkS8n+NkPpl/VITz07VcyGGxxZVR9EpQQRIVRhaK
VjhUIaIErL078P5/cKRMZ1xbCXRG9koi7zms8pvXVglkaz5IILOHVz3YGqIE
L1ccxJBrD2okxSQpgfrJGHw+t/0126rzlGBvLjc/MkOoFvtkvRIkdr/F45cG
1w0IPFeCZx7p7Mi2gXoXLb8qwXhIHivyT/9G1zhmZXDJOoA7z3ezRA1JGb6e
1cXHb/FumZwyVIZuxUl8vhkPKBF2VIZ981YCyNluraHWB5UheTsLnp+Bizk5
IV0ZrDyv4u8j7xw7ftReVwaDLh8V5FT7bY3TLcpwbrpKE1ndrjtOdFgZvvF3
6yO/tLEys11QhugnbMbIcdZ9zEnsKpDz6RUVWXaHbc89eRXInGjAr/dse5b5
xUQFjvrYGSBHWNg7SLirgITZSQqyiPlL4d2RKlAgu1UeudXEeSw5UwUyznwQ
Qg6mvi5sLFMBtbN5zMhcRu6Bs20qIHx/aQHtr6ee97zDsgqUTi0/RibqTNSm
8apCUgPPbeQKTf+jzaqq8Opt+hXk3eQPRt+2qkIvUfQk8opaEIOsryrcT48N
Q76m8rnDOVYV5mSMvZG3KYWeOn1RFcZfvt2FPCc/a0O7pQqbuKstkC/KHuRb
7FYFR6ZJY2Qj6e9D8lOqMOsSZ4D8XjLiqttfVejr8tdHPiW+5JMhrAZWHa6G
yBTRKLlHmmrwpYgef38bFl75vGStBsJXp/H54wVjq5WC1KCqN9MGWZ7/T7jn
CTWIOOPggtzHE693LlcNbue/9EM+zMWw1l6nBmL3I/Yji3IkPVzuV4Nw69Eo
5EesTMmqX9QgrS32BHLIhlRLH6I6TEmqnELmZt7IeUFCHVaCc88h1xNOP+/U
V4cfh5wuI3sxcFxe3a0O9sOUXGQmukx3jf3qEMtnkYfcEaAYez1ZHaJmU3An
P2n9TyhfHZQJxvjngwXZven0PXXg+BGF7wfzpR+v6frVQejO9ovInatnVyKm
1eF+4kIm/jwh852JoNOAx7Ol6cgy78dzq9g0oKzpP/zzg3CpsmJaSAPori3H
4PXeHn1fSlYD9EkL4chtqxY97mQNIH2u24t80nf8S/92DTg8utMNeQ9/5e+N
jhoQTorajefXeZR1i68G6HUv78DXp8ar3BCtAYYJfvj+fhh/a7CQjMWz36OH
rze7wlI1WwNGD61RkIstjroG5muA1RJFDV//8paQa+Ua4Bi1qojHq+CJHrmn
AcekHeTweF5v0/jbNEBwliKNLMdTkWPTrwFL97Ik8fq0R5WmvdGAn31B4sjT
R7Y0PJrWAPboO6J4vZR4utYWNQDIwSLIJaNjQ7r0ZPgvMnETcmpm+XQYOxmr
37Iw3s9L5iwfZMlwt2wUN4v7mLyrMRmCs57i46c5ynXPW5JB8Fg2Pl/nwyNb
+xzJUGOfgMcriTB3YvEjQ1FyIv6+mSrPHWh6gAy0+ot4fkGvRyNjY8hgxVcq
gcc7U5Zcl0KG/OOV+HoU4MjF+WwyjPdcIyFvWDArViogQ/10pBRyt/Noe149
Gb69jsfrkd4SOcUzQIaIDQdxh4SZ/bAaJUOF7AI+3lKGi5jyiQxPBsVxK716
w/fwBxlcnX7g8Taml8r8pqdAmvZRPJ/PmyO1tDko0BhfiuffPWdqfmATBUIe
JuPrLSvktC+Vo0DpY1G8PukOb/wmKRTYJx4ugMdnKQ0Xo1Kg51oGLx6/6XCi
0w4KhF8+xoXMSuIseuJHgb/tvBuRZ56P1BAPUsBa+jUTck9ySSs1lgKXJqoZ
8eeT/uFnR1MpEPy0kA759IzJxJ3zFHgu27yGvh+G5nN8/1pAgeUIlt/IVnYj
9AqVFDjAduYXsgqxhNu3gQIfRGyXkNnqI0i57RSQ9LdfRP5jHUF984wCqz5H
viPPT4Z7iI5TICt4ch554mh4jPtXLL+QS3PILzjDc3JXKFA7enYWud7w0KAo
vyZIj8h/Rc4NDOO+qq4JF4QOzCD7PziQdtVfE5RjGHErC+6nz8vRhAnjw1+Q
Ocz2GYnXakJceO9n5O/7Q4/m9WlCisOLT8gvr+y9K/5JE0gup6aRGztCvuUx
aoGe5c8PyBXuIZxvubQg+xI/7rzvwaoS4lpgmS03hXxCPDg4X08LHhXJTiJb
Rga+y9+nBTTrpjHkzWyBf99Ga8FDsaxRZLXCPWKSqVowJeP3BpmnL8CloFAL
fGIIr5EJ/gFHxqu1oMFpcAh5adn/gmSzFtwtKnuF/FrWf6DglRYsHgoeRO5p
8psbf68FQSSnF8gtu/zYSd+1QNpp13PkWx99lX2wd2YOc+dnyIXHfLdfY9OG
7G0HBpCTS31OkuS1Qai//ylyyKD3w2sm2sDcH9WHTFH10i+M1AaWyXM9yCtJ
HrcLy7Uhs+vIE+TWN26KRePawN6R042cpuV6rYhfB1izAruQxz6mS5eo60C8
/qVOZK3/mm5UbNeBHOu8x8jpO2fkb/vpAFNrQgfyOL1Y2d1jOnDI1bIdWeeu
tUrjJR3wucHQhnw6KK6q5bYOfNeoa0XWe/q25vGUDvxH1aMhnz3Bpd3zVweq
6AQfIL/XNrnXL6wLiU1cLcgGn8L0BzV14cmAfDNyZm5h07C1LsSedr+P7xcj
gTaRoAvurwXw33OmgwPavtzVhVxpqUbk8/0dnYufdKFh1Q7//QR0FXrXxPSA
8Xl0PfLM1bQBJjs90KY/eg/5MuHLIGeyHgStQB2y+V6r10KNelAtM1GLn4eB
yjHSLHZ/yfE7eH/rcU4qSemDG/ZKi7wt/+BHTUd9GHyrdxuZyJ7lvvWePtBX
vqzG6x99e8BVyAB2cd2rwn/PmR6w2H/UAKbWQiuRDR2/NyW8NgDnYpYK5F+P
eMgXDA2BQOgsQ64laxaX5BqC1SStFDksf7fI/TVDsDkwVYL3K3tE5lPPzRCb
K4q7XXjSw4lsBAKi4cXI7nJ2ym8ZjcGuUfQGfr4oD3/teWkMSbLc1/F+oGp0
zJZQ4ddvUhGy7D7TDQw5AKZnx6/h/dcYWn3awwSsX6wWIB8xk07RFzeFiye9
cAf1DHt+GDOF3eXf8pEjk1uEF6vNYNQiD/dJKHpBn2AO7qsBuD0MzYJ4zLeA
2G8T3No6k7+lmC2gpUUBt5Lv7UPnX1vA4wl+3JJnj38iVm0FoycsuIt/DGfl
HNsGXzv+5uHPNw8tA1Xr7fDz7DLuWKJl0yMOS7ie/gP3k0qvza79lrDQ+R23
XkpRwa7CHaBRPI/7hvdHwvYIK7inPof7TfQHEzM9a7CDWdy8F6bijFatwT/t
K+6gcZ78y/07YQPjP99XhgcL122g5dIMbtvh2NR6A1vYuOufH+W6kH8W2kK0
6D9foTtvoUvYBbTFL7gP+fe5HQnYBZoj/zw0nj/xsW8X7O/8Z2OPsGBnPTuI
bfjnDdEF7t1X7ED57j+/uPjUZvOaHSjc+efAgTa3Bx67gbXmn1dYGwNNW3bD
idv/LOplMfVDzh7M1m1c88y3NMMe6NbdfuO+lec3ewi/9c9WOcU6vLsdoKD6
n31vyJ/7dd8BONZ95HbJ11E5R2iv+mf7kTmfF2cd4ea6KUTdl91LjnB53RFP
R+panZwgYd33cuIvNdY7gdW6U2Pvf5ogOQPDul29fhmynnKGlsp/7ghQbvC0
cYFt635083PgC05XmKz459FNQ8tl465wct1PI1SqBU3dwGPdD/vi/ZOK3EBv
3aYmoadI7O7Av+7WO041LZHusFj+zyUdBVs8ht1heN1nhj8N/Tb0gIfrNti4
nFSe6wEV6542YCG7rXlAzrplkqp2Gu7xhJR1+/Tah4o89YSj62a457y0quEF
+9d9vcA9fuycF/iv+0Xhz5j5VS9wX/cJuy7DBE1vcFp33MRy+7lAb3BYd/Qh
Jdvr/3mD4//m/ywtU6fn/8e/onzq71z1Btd1W0nwWYaTfcBr3a2s1Edie3wg
cN0hnZe/b7vkAwfWzXPyOymi0wei1p1nWz1685cPJK1bSTQ0Z0TBFzLX/Sd8
8Yy8hy9cXffAk9gT4Vm+/1evVwuaqtDqC/fXPSry5RXbgi/0/O/9e68HJSv6
wei6Je97LP/18oPv6/4fVKhEeQ==
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF1nc8lV8cB3Bxkb23zGtd80pW6n7tWUb2zJYoIvpFUraIEGkRUZKUSkV0
Q5KV0UBWS4pCSEr1e87Dq/7yer/Oec7zPZ/zfY4r6bPXzp+Whoamah0NDfp7
8UFRfNvcAGXK9q5Y0hQdlb373p9n3q8oNKErHE/ZCNSz64O31YSMUiS3+nF6
biJQ8yQzux7Xj1NOznJmRboQqK+2+kdq6r+h7M3MjPv6H4Eq5b5FpKz1LeU4
dZdPez6BGvQfXxOP1XtKk4eXwe9qAvVa/uego70TlOJesYLiRwTq4s1HHHOO
kxS6B7euPXtJoOr1nqv1Gv5IYZGo7+qaIFCPftnv0e09RXn2IzW58yuB+oRl
O2HLh2nK9nV3tURWCFROBdnKypAvlOEK8g5mOnqqo8lvW+GvMxSRjk+904z0
1G7y7tiW+lmKdt0iHR8LPXUfvHwaEzdHOX0gx7OPlZ7KZ20ovVH/K0V47s7L
vWz01Lse1VGf6OYp5S7ZOeqY3UNE2i+0zlOirRUHnbH5fw6mbHBJW6AQO+rT
hbD1StLmwzitFilPBO1aSpnoqcanvFoes3+jLNnFFYmtp6dOlncIHO79RmFv
/WVVwUBPzbittVszb4kisnN+nxs9PVW1pbTxs+N3iphYZ7sxgZ7a18fBXSa0
THk+dvbDPmw/Ua9j/N2HlylL29KZJ2npqUKzH+7yFP2gDO32ny3DfP/3DtYO
75+UdrsjCRWYd7JRvY4SVygW/XMp05jpRJVu6nxYoWzhOLcpAFuvnHSKYa7i
F+VQIdcrFux9FjoE18shvylP2AIzejF/MQ2r8lL9QynpyRi+gtV3wnGYRuDr
H4q4adKpY1j9p9WJpEBXGhA4dSYqCMt3Wmeov6meBmjoKJVa2H636mcfEtuw
DgiXJpzmMGeZmcgdjFsHXjWkriwsn3HrlZ7nY+vg9/mK8xzM9FR1p5qDZH1a
yHe0ytiLOdEziJhZQguxux3MrmN+7i/WPUlHB7paNMRnmGVDn0Ub+dPBTfGk
qlHMByLTJYtb6YDZ+p0pGm+PgY6fcgQgfaZtu4dZNOFbpFMaAVomZITzMO9J
vyp28xMBjt59uxiI+cEJnzZ2K3oYtfUu0cHMWSi4L7iKHkRUyjtYMfsUd4u0
sjPAi/d7g95h9d+6lPhIMowBdo7RVTdhZqjW3XuolwHigpf5KjA7184KDqoz
gtiCrdcpzBUN5U0aeYzgeMvoSjbmHy3uIdmLjNDU8SXtBGarTm7+acf1sOg9
LXYas9K0F/kAdT1kBYTduYKZjbXKikBiglmPdv6HmL8o/gjMzmUCt2lF7VeY
uy1NE0R/McGBiiNcS5iv7c47fzmAGTyybtzixuo/fuz1PY0eZpAmue5WQvuv
VHlO1WGBUnOaTgPM1h0xs1alLHDcUaTNHrPaVBvLICsr+Awt13ijPFj45fyj
WMHx7pD+LsyzJF+DuTFWML6jnbwbc4/FdY9D5myw/ZfV2yDM14N/HWC6yQaM
eTw0PphPpFvknRRlB5oUujtOmPddKaiWTGYH/dlTBEvMdu3v2qtm2CF04Pyi
HuqHT+QJHRcOuBohna+CmYf58LrWJg5osbr5WgLzD94AdgV+Tnh5u+A2L+ZP
F1lFZyw4wWbh0iNmzEMaNxVuH+aEpVD5PDrUDy0uWjG3OOEccIX+wfKps6cx
1v/ICYs35vx+Y77yrtyOUYwL8hb93Giw+acjt+3ssuOC+1tHaOgxpxMWQnNT
uECq12iMBfPBvNMxLve5IJKzwQ+9fzdRP018jgtEWApnNmB2v/Uh/70MN/i8
OT0kh9nK6PjFSlduaOyNSyVj1numUROexQ3xaT9DdTEr+b16oNXCDTLGJ4TQ
eYguHOn69Z0bRPqo2maYWRPlXzUr80CuUeppK8wrPE8n03x4YKqIomqNebp0
/zfrAh6Ye6HAYIN5eKMogb+TB4jRZHM03tncxDVMwwsK31y0tmG+v2OXeMkm
XqhwjRCzwFz1lkM5KJgXPrKctDfBfD6iVleliBcujPSRUT3H6TzMFvp5gXd9
MvNWzHG5dI516/lA+fMhEqp/j/QV3/gtfFDAL9Oridnzpk24yT4+aA97qaKB
ebvhUhzrJT4onrX1Vce8tf9cRt8rPoiO334I5aHia3T6FCc/LBsqxCCLzX+6
5GnMDzdcg63QfPaEE7eJB/mhb5Tv2UbMv7m1mz9d44f8Yd+pTZhnSkZ7rr/l
By91aX9tzOPqSaNRggKgRvrNuRn1Z5PitN42AXBRbW7cgplq17dMe1QARjn8
9QH165sDjE9qBSAh5ng42m/xPnG+rCkB4Im+oWqEOZu2VcpBQhDM3EP9jTHH
54SoiTgIwncrUwaUV5gUz9bXaYIwwn+PA3lnzT3LS42CcMuzPBXNtzHY6RI6
Lwgnp8zj0XrQxxC4UV4IMorusBpiJvtURS67C8HrMG5zfcz2TUe14bgQxEnV
76dgjpJyXkl+IASf+oOzUf2FR5WpXbNC8IKyvgbt7/4b2kReKWGoPlk0h+6v
UYMBU7cdwhBRGuGL8lhXWsVSkigMBQzjAlqYiXQJTydvC8MX07fC6LxMfJ1z
VT8IA0/c1wiU565mZacoQRHIT22QQc6QphNpMBcBJlo7FeRrCQOjdDEi8IOh
MwW5921VicVVEXhV8EoerbdgmBBwYkQEVPkD6NH7+C86kwbYRYEtPp0D1aND
UPkiBqJwbGyfNqrX3Y+uxj9cFNbVC4ejfoprGdh/tUQUJk00K9H+LhCv6cz3
i0KS9KNBdD+0JCb80qHfADTE1DmUx8Q754fxmhvg1kLiR9SfTMYqSY8DN4AL
vWo9yk+pjM6cvXAD/LHx8EHnvZ1+kNWhfQMw7zYdQQ73v9Zz5ucGSO7yUkL5
5z1KyHujJAZSXjO2yLUyLs4KnmJgxPkQ92CSimhYlhiE329WQ155TzdeSxUD
zy9nF9B6YiaDpb/mMPMZlyLrl18LNJIWh5ax6wbIfgyJisfsxeHJQOwAqi85
wGWmN0kcVHVqdiFfblW5KXhHHPwLzv1A++mQJUR7TYrD48s3jiNHN4ds6GeV
gN0B/8kjp0Y4HY6SkYDt8WVPUB6npQ1eC22VgCPJEhHIlf1Khg2OEuAWoSiD
fD9BoGznXgno60oaQ3l2b6RlJKRKQEtX4QXksbfTQZeKseclLgUjz+a+bLe4
JwETK590kGmNmpS+9ErAjZPN7Mg8C1ePn/gkAe1pHZPovIgXC2Y16CRBaMfk
Y2RN+6N2AyKS0HHO9iqyKSH0VoyGJND7ZOYjO99y4hffJgk9wj4pyLv8DA40
+UtCg/7Dw8gHeZWH/OMkQe9FZTxyRouAHlOBJPB95TmGfC6S9vzVakkoq2oo
Qr5G/PzHuk0SvOkkHiBTn730nh+XhO8yTh+RexObmvOXJWEDkVEM1f9Go0pG
l1sKSmZ2uCMvvCtIGSFJwVebjyXI9CePfow3lAKBQ/MzyPKLTlWPI6UgN0kz
D+WpU2bAsTtTCuTeyk8gWzgoh7OXS8H1bwYa6Hzc6QX7bzRKQetscwxy6G3a
TQ4vpSBuSKAOeXZabCR2RgqKmKSnkSOJm5MuMkrD4JkYLtQPS25Oyp3i0pC/
NCaPfDA34vm8ljTssj1HRv7dnnVIxEYauuySFZGP0F6VMQySBqU4JgFkgm5b
V3C8NBxqEVnE+yX83f6cU9JQHbvxMTJLBY1Y3XVpaGiALOTj46Ktr9uk4fuN
w9bIJ60d+MnL0kBReteE9ieYEt7ozEWEt8KBMchnGzMD4hWI8M3rrCay+LcK
9sv6RDhBu/wN5VWi3Fr71IUIFMv8RmRZ/zeeS+FEGD29OQu54uxvBvF0IhwR
1sP7TemZcLVJCRFuR+2xQb7OouW0p44IrXu0DJA3Gu74c7KPCDd5QijItQf3
Xmr4RATmzKOmyLo1x6zf08qAhHyYC3LDx0tLrCIy4M36IQIZJFuKNDbKwH22
LSfx+8R53NTdUgaW/KvqkdsfC56qjJEBPWciJ9rP9j8a0J8rA+lFu3SRezVt
J39UykC8argPsv2e0GypFhmYTK9LRh4oS9O2GJaBri6xcmT3kbLx8AUZkDxz
8wHyGG9TaiGrLCgtf+1D9rEaVXtIlIUWt4Ix/D5L+DEwqScLIU+o75F31fMf
4XSQha6vzbinv6oraIfKQsNp83HkMJJ1r1eSLMQuCL1Anvfe/V/KOWz91k1t
yFGFKZLVt2VBdfjCHeQfPaVPXnTJQm9fbBnyofXU8N/vZeFnb3cOMg0MC8n+
loXN1DPxyInR3x9u45cDqZD6vciM1bzB+1XkQMbsy07k9Ak17nMmctBy+549
MrvYtroWTzmg5By1RM5x2OUzHSUH4WV7jJH5MpOYebPkwF8zwQD5VMuFms2X
5CDSOhO36EqDq+8DOcjS0sfnF20coj32Ug4KmUkWyFK7v12pmZEDjU2PbZDL
S7h3DDHKw7E3R5yRFYZUfq6TkIf3Qo/x+q5yWZYqaMtDsAnNLmQ180BLWxt5
+Ln5chjyzfiE+QNB8pD00SwaWfNu0ZnieHlIP5oQi1w3U2/YdkoeXjnz4nls
kRuYmrkuD6Z5T4/gvyc8F3IFnshDOV85bqN8Tj3Ka3kYzig/jDyVm0MT8VMe
XJ3z8O8l5wTvo3I+BSDU9OzH74+s/LQhVQXI2vRgD/J4huB2dgsFIPX3BiCn
pJ/mNvBTgDBSnCeySqroy/1xCkChMXZEfp50/kzFKQUQ2Z27HTk2QWLnSI0C
rLD3miJLHykhcnUpQBKrNZ5vexzxo9EHBSjO27YVOTy2vOrAOhLEXfu8Gf++
D8rvuypCAuNnOrgfRF/RHN9Egh3OsnrIAfuVfvLYkECPIxd/ni3i2gPTYBKw
fLbC178VppYYk0gC+gBu/P1ue2rMqs+ToPDBWStk2hANtrd3SaBy5ZwdcsWu
2l7+fhKo1j7Bz88mUDvf4jMJaqNe4vtd8qtzjWNUBEOOND/k8z564jWSipBT
Voafp/HOxrfvNytCOwcDnt+0B1wWclSEyKS0cORct6aQbWGKQBstFYms62JE
PpKOjV96guf/2rF18dZFRaCopUUhp9qb1U02KkLMrr24Ve3a40QHFaGTtQCf
/8LaytBmXhEGyzfg68Vt62ZMZFOCDxSZfcgyljadd+SUYMn3Kf69dJr1ZU/p
K8H6G1tCkSNN7B3E3ZWgez4jGLlJ33k0OVsJTGrU/PHvnTJUUndFCcYsKvD7
hXOLe+CXFiW4TmOJ9/Md3VFFqTEl6CGK4vl4au+cdVhWgvFaCXdkes03t9J4
lCGv3t4V7/+Nfv81KCvDN+U7eL47yBNb5kyVoX9J3wm/D1SCaGV8lCHVZ9YB
+YLSp1bnWGXQVm/Ev2czUsixjHxl6G24tAN5Ru6LNfW6Muw9dBU/v3yZMN6F
dmVojeyyRVYXPSDbvFEFqNsGrZG7ueO1c86qwN6gInx8Pyftr0e1KkBb2oQ/
L8qe+HC5RwXaXBXw9zWzMCQrT6kA13IbXk8wU6qFN70q9AycxevlYmTmOCmu
CqeNTrog3yVk9LfpqIJdXYkbMgNNtrvaHlUYCa31Qm71V4i9mKwKZW7/eSMn
dzSdESxSBe0b3L7IJmT3+ow7qlCnuB/vL8aCxSGaHlUgM+Xh52FE5s2MpFED
OfV3+PdIKKi6OimoBj/2PcX9zvzgfSkZNZBh1MfdsmLS6U5WA0KAG/78xWqe
4fwtasDXQsLXT/IZn+oxVwM/7Vr8fAP4qn4yO6qBICcDXp9J238sxj5qsMSn
jNfPoMKjeO+gGtxy18X3NzE+pjufrAaZ4Vvx/bfmXrVQzlUDYR8HPJ9yk/9c
A4vU4OeX43h+ycvGwRcq1UDbfAU/v4Cr3Adf3VED9zPFeP4mXmNpfC1qEF+Y
gp+PLPfVQuseNdhkfhu/XxkfHahIG1aDTzJKuNtI3E9+LajBxuxF/HxTsysn
w9nIAAUd+HiQ4YHvlUJkOEQ8hq9n9s1o/YQMGZpro/D3yVdwCUqok+H4UCJe
z3r3UTnXrWQ4lVmBn/8ke6VWngUZ5rcP4PW3PYw27XYkQ2QbG76/y5FGTut9
yfDqijbez6lyXIEGe8lwO9ARzyNoaCQqNoYM7X3ueP+bZV5Jrk0hw8h+Izw/
eYjOn80lQ8N2Nvx7YZo3LCcVk4En+Bbu9Mao99y9ZHjOXOqBzJxeQfy5Th32
Tpjj4+0zBkZ7hdXhPZUJXy/dYdj3rbo62GeX4O+3qN+f4GSpDie0LfH6WCQ5
Sjt81YFgqYzXnzGt/+ZmnjokbOnH98d6N1Ly7CN1kDAqwm0RFfi6KFQDdMt+
4Pd7mobrhVI+TcirDMA9ucu/Zeq2FhQ0NOPzzYrCPmx01AHbPxm4Nzt+rT8y
pAvfxw7hVmGLzH7qqQdulr643WXtFMfotkIWrSXuNIpa65fLFFiw3oJbJtSA
ibYQINZz02r/1IVUZ3joA5lXFXe0oXSKjpgBcOSQcAd1DnpOjBoAV44c7qjk
RqGFakNYNpLBnQSlz9YdMYLAh9K4PTYbBnEbGcO5RincmzTf/pRiNAEq/apJ
Pjf25Q2ZAH2iJG6J44c/0l8zhUWFVZcvDp4oPGQGgpMSuJU8NHSVt5nDp/pV
x9Jb1DezW0Bn8ao7qrz0XHssQCdz1doppcW2JZagF7fqsp0fCOaRVhAaserh
gxP6htrboDFk1Twn38dtWdkGE4GrDhrnLjrVsx02+636viI8mL9oDfbeq7YZ
jE29q2sDrl6rbj7rQl4qsYFhj1Wfpskz0SLYQrP7qvf5dbtF+9sC25oHxove
fOi2hRS3VW/1CN/lrG0HYmtmOljs3n7aDtat+Vn+U2u9X3Yw77rqwN4Wtwce
O2BqzT9Y6gINGnfAhzWLepm8X5S1h/dr3lrT51ORZQ/v1vyo7L6V55w9jK7Z
qrBck2eHAwyu2adMLuf7fQd4vuboG5c/j8g6Qv+a7V/NeD87/s/q9Fov2r85
Qt+aI5++qm1ycvrrO4XxBXV3naBnzamx9z++kXSG7jW7en3fzHLMGTrXnP3m
xA+Nz87QvuZWf8V7ntYu2P+PVbcwHMsurHaBJ2tuvvQp8BmHKzxes4336+uU
A67waM0jwgPLV8ZdoXnNTyOVqgUM3KBpzQ+74/0SS93g4ZoN9EOOSbK5A3XN
TTedahqj/vlya7Gxx6A7NK45c/DjwM/NHtCwZl3m5cTKs/88qbue7Pbrn727
7ENEnnrC/TVfLHaPH83xgvo1PytZipld+eejdk82H9m4E+rWHPdm+VFO4M6/
4wf3kWwunvk3frkvLVuz89/4S/WPPW0r/2wlzmsRQfb+6yYWSvOGgH8Objv1
1azA+2993ElfJSPb/vm8TfXIpe//5pNEQwpfyfv8Hf8dsZAp5/HPvR2xRyNO
+PzN6+X8RmVo8vmbx4jI1EvW+X/jv3dfDEpW8IUHa5a477H8x8v3b/7/A/Qr
vc8=
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTJLv46/85Qd1/XFBbZcrAf0jyze9zbshz2M73NG
SOxNGIcDjG+YtLbkZ4wknJ+7lck09LoSnO8yTcDG/qEGnM/GMCHGIE8fzufZ
UaI456gRnN9pErVwsagZnO8xv+C5cZglnK/HWzLhfJwNQr29wbF3K+zh/LZd
Oet7Yh3h/IwzN+Oe3XOC81sdFl9hbHSB803NHv9WYneD8xX66l+yrnOH83Vi
Tax0fT3h/NNr422iLnjB+UsTnrN4lvjA+cJTn9bZ/vGF8/doO+z/vMQfzj88
J9Lw+6IAOL8o5Vx0eWognG8XW5gZYREE51+Zdt7f5i+C/4t7V7rTvmCE+k2X
klb2h8D5PjOXmQkHh8L55RtXvL2rFgbnG7GaXzv1DcHfPrNh+q4d4XB+VPwP
a+7uCDj/WKr2zjj/SIT7l79Kv8IfBefflbrxc9UDBP/guYaUlsXRcP6hzeGb
9pXFwPm9N1/e+G0dC+e/sOIwjP6L4CeeDcmRPh8H5y9ZENNwb1I8nN8UdNK6
0TgBzq8q0gpYMhvBv2708sKJPwj+IW77w7JpiXC+UOsnxZITCL6WTM7M2xpJ
cP7F0zVNxRMR/LvSr6/zfEbw/2UvyWjTTEaklz2xP//HI/gAs3dZiw==
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTJLv46/85Qd1/XFBbZcrAf0jyze9zbshz2M73NG
SOxNGIcDjG+YtLbkZ4wknJ+7lck09LoSnO8yTcDG/qEGnM/GMCHGIE8fzufZ
UaI456gRnN9pErVwsagZnO8xv+C5cZglnK/HWzLhfJwNQr29wbF3K+zh/LZd
Oet7Yh3h/IwzN+Oe3XOC81sdFl9hbHSB803NHv9WYneD8xX66l+yrnOH83Vi
Tax0fT3h/NNr422iLnjB+UsTnrN4lvjA+cJTn9bZ/vGF8/doO+z/vMQfzj88
J9Lw+6IAOL8o5Vx0eWognG8XW5gZYREE51+Zdt7f5i+C/4t7V7rTvmCE+k2X
klb2h8D5PjOXmQkHh8L55RtXvL2rFgbnG7GaXzv1DcHfPrNh+q4d4XB+VPwP
a+7uCDj/WKr2zjj/SIT7l79Kv8IfBefflbrxc9UDBP/guYaUlsXRcP6hzeGb
9pXFwPm9N1/e+G0dC+e/sOIwjP6L4CeeDcmRPh8H5y9ZENNwb1I8nN8UdNK6
0TgBzq8q0gpYMhvBv2708sKJPwj+IW77w7JpiXC+UOsnxZITCL6WTM7M2xpJ
cP7F0zVNxRMR/LvSr6/zfEbw/2UvyWjTTEaklz2xP//HI/gAs3dZiw==
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          Dashing[{0, Small, Small, Small}], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTJLv46/85RdTdkhcU9u1gP6Rxbvexv2wx7G9zkj
JPYmjMMBxjdMWlvyM0YSzs/dymQael0JzneZJmBj/1ADzmdjmBBjkKcP5/Ps
KFGcc9QIzu80iVq4WNQMzveYX/DcOMwSztfjLZlwPs4God7e4Ni7FfZwftuu
nPU9sY5wfsaZm3HP7jnB+a0Oi68wNrrA+aZmj38rsbvB+Qp99S9Z17nD+Tqx
Jla6vp5w/um18TZRF7zg/KUJz1k8S3zgfOGpT+ts//jC+Xu0HfZ/XuIP5x+e
E2n4fVEAnF+Uci66PDUQzreLLcyMsAiC869MO+9v8xfB/8W9K91pXzBC/aZL
SSv7Q+B8n5nLzISDQ+H88o0r3t5VC4PzjVjNr536huBvn9kwfdeOcDg/Kv6H
NXd3BJx/LFV7Z5x/JML9y1+lX+GPgvPvSt34ueoBgn/wXENKy+JoOP/Q5vBN
+8pi4Pzemy9v/LaOhfNfWHEYRv9F8BPPhuRIn4+D85csiGm4Nykezm8KOmnd
aJwA51cVaQUsmY3gXzd6eeHEHwT/ELf9Ydm0RDhfqPWTYskJBF9LJmfmbY0k
OP/i6Zqm4okI/l3p19d5PiP4/7KXZLRpJiPSy57Yn//jEXwAp4RT2w==
          "]]}, Annotation[#, "Charting`Private`Tag$2300#1"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, -2.6505105072231623`}, FrameTicks -> {{{{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}, {{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}}, {{{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}}}, GridLines -> {None, None}, 
     DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> 
     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, -2.6505105072231623`}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         StyleBox[
          SubscriptBox["\"\[Epsilon]\"", "\"\[ScriptL]\""], 25, FontFamily -> 
          "Times", StripOnInput -> False], TraditionalForm], None}, {
        FormBox[
         StyleBox["\"t\"", 20, StripOnInput -> False], TraditionalForm], 
        None}}, FrameStyle -> Directive[
       Thickness[Large], 
       GrayLevel[0]], FrameTicks -> {{{{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}, {{-2.55, 
          FormBox[
           RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
          FormBox[
           RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
          FormBox[
           RowBox[{"-", "2.45`"}], TraditionalForm]}, {-2.4, 
          FormBox[
           RowBox[{"-", "2.4`"}], TraditionalForm]}}}, {{{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}}}, GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], LabelStyle -> Medium, 
     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, 15}, {-2.6505105072231623`, -2.4899999999999998`}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     RotateLabel -> False, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"\[ScriptL]=L-6\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-5\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-4\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-3\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-2\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L-1\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\[ScriptL]=L\\n\"", 18, FontFamily -> "Times", StripOnInput -> 
        False], 
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(P\\)]\\)\"", 18, 
        FontFamily -> "Times", StripOnInput -> False], 
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(\[Epsilon]\\), \\(F\\)]\\)\"", 18, 
        FontFamily -> "Times", StripOnInput -> False]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> Medium, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5147193333333333, 0.28770266666666666`, 
                    0.06825800000000001], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.772079, 0.431554, 0.102387]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.772079, 0.431554, 0.102387], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.24259866666666668`, 0.412334, 0.521566], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.363898, 0.618501, 0.782349]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.363898, 0.618501, 0.782349], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
               ",", #8, ",", #9}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.864798906643156*^9, 3.8648022755257053`*^9, 3.864802965959589*^9, 
   3.864803008241638*^9, 3.864878116319413*^9, {3.864878256200857*^9, 
   3.864878291569249*^9}, 3.864878586719265*^9, 3.864878847559793*^9, 
   3.8648791467230463`*^9, 3.864879713195426*^9, 3.864879761511838*^9, 
   3.864962316964114*^9, 3.864963086596113*^9, 3.864964048976542*^9, 
   3.864964200205442*^9, 3.8649643340069017`*^9, 3.8649676918996553`*^9, 
   3.864967735808856*^9, 3.864968223080434*^9, 3.864969592041705*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"b815889c-1c9c-42a7-9177-384a628c83b4"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plots of the energy profile", "Subsection",
 CellChangeTimes->{
  3.864962294341854*^9},ExpressionUUID->"b29ca32f-b875-4b6e-8edb-\
87dcc15e4a80"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"first", " ", "seven", " ", "layers"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"a1", "=", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"En1", ",", 
           RowBox[{"Enc", "[", "2", "]"}], ",", 
           RowBox[{"Enc", "[", "3", "]"}], ",", 
           RowBox[{"Enc", "[", "4", "]"}], ",", 
           RowBox[{"Enc", "[", "5", "]"}], ",", 
           RowBox[{"Enc", "[", "6", "]"}], ",", 
           RowBox[{"Enc", "[", "7", "]"}]}], "}"}], "/.", "s"}], "/.", 
        RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "//", "Flatten"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1b", "=", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"En", "[", "1", "]"}], ",", 
           RowBox[{"En", "[", "2", "]"}], ",", 
           RowBox[{"En", "[", "3", "]"}], ",", 
           RowBox[{"En", "[", "4", "]"}], ",", 
           RowBox[{"En", "[", "5", "]"}], ",", 
           RowBox[{"En", "[", "6", "]"}], ",", 
           RowBox[{"En", "[", "7", "]"}]}], "}"}], "/.", "s"}], "/.", 
        RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "//", "Flatten"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", "3", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", "4", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", "5", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", "6", "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "/.", "s"}], "/.", 
        RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "//", "Flatten"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            FractionBox["J2", "1"]}], " ", 
           SuperscriptBox[
            RowBox[{"(", "x", ")"}], "2"]}], "-", 
          RowBox[{
           FractionBox["J4", "1"], " ", 
           SuperscriptBox[
            RowBox[{"(", "x", ")"}], "4"]}], "-", 
          RowBox[{"hx", " ", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             SuperscriptBox["x", "2"]}], "]"}]}]}], ")"}], 
        RowBox[{"HeavisideTheta", "[", "x", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox["J2", "1"]}], " ", 
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["J4", "1"], " ", 
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "4"]}], "-", 
        RowBox[{"hx", " ", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", "x", ")"}], "2"]}], "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2.67"}], ",", 
          RowBox[{"-", "2.55"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", "Black", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "4", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "5", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "7", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "4", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "5", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "7", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.60"}], ",", 
            RowBox[{"-", "2.65"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.60"}], ",", 
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.65"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Subsuperscript", "[", 
           RowBox[{"\"\<m\>\"", ",", "\"\<\[ScriptL]\>\"", ",", "\"\<z\>\""}],
            "]"}], ",", "25", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Subscript", "[", 
           RowBox[{"\"\<\[Epsilon]\>\"", ",", "\"\<\[ScriptL]\>\""}], "]"}], 
          ",", "25", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8649053449803286`*^9, 3.864905378931319*^9}, {
  3.8649622233696404`*^9, 3.864962223776257*^9}, {3.864963152630389*^9, 
  3.864963238795134*^9}, {3.864968196478993*^9, 3.8649681989284897`*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"1afe8308-4ecf-40ce-8e3a-3b42f07cc02b"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd2Hk8lO/XB3DLiGiRKFRCtuzKEslpsSaSImuhSKTVVtGCyJK1X0nZswuV
kPXO8k0oa2QbYywxM0TZUz1nHv94vV+3mblc95nrfM4t5nTF3JmNhYUlgpWF
hflbk0MpizKmC7nZ184e4OYgZo5L/7xy3RI2/DAQY/p2nH6Tu6oDKMyqNmuj
/965+TxZyRkevCZbMH3PLf9Sp6wbtPjqfdiPZrccOsApdQUE0i+uZ7pONDQk
kfc6fE021tJCBz0Rv6oR6QkDs3QDTbT+ukqrdh4fsFMyVt+H5gywOOQeehMm
WN04NNCNi9O7OTj9wF3K6J0aOszjIV9y0B1Q9ZjUU0Vnzkb7b79/D368Ny7d
g75wQdal5G8A1J6y0VZCG4r72AQeCIK1zVxmCmiZwTpTM78HkPTUX1cOTTO3
16Ath8A265pWKXTT+ly50n2hILIpykUCnde4sDPIJwxeZsiSxdCXdKK5ROYj
4FpN85XtaJPlgVXa3kgoTesKFUIrFu+eLb0eBXdEioK2oJceDzNklqIh8Or4
dl70e+7bX2u94qCiKLSHFZ2iINBZKP4YEqAn7c9aDiLYrLDtRetj+N4ZYrSM
PvVkpNl79xMg9YvsnkHPiB2rlR2MB+ORQJUBdI/ueM3WsGcw5Wj4rRtdfeFe
FUkjAehaETbt6PBXxWXk6OegtStttgEtpbmjMFY3CV6V+7u9Qq+zK82/O5sE
x3TeTmWif905kXspKRkixMOPpaAdqLXmu/xS4HiEWmIsWlFm0eTP11T4pMke
7oX+9Pas7uvQl9BudixRFa3dIF8nTXkJHTtlBuXQRd3Lh5LUM+CAK8uyOPrJ
chyEj2RATQxRz4s+D41azgeyQO2k9isaFwfxr0lZRWg2B15YOjY+RV8f+FMY
ZZALLUImzRHo8akmxTVJuVAhlJt7H93C6yz/62gelKV/++uGTrB8Jv35ZT5U
3fr1Zz9ajcoqct+qECaEus70cOL6y0/PKucUQnha+sZmtFTsq3rKciFU7l9K
rUbzpOarpZgUgWCmmXsGetXMauDfdBE8nUyLuYYeLCrcXaPyBrbZ7lUloZOv
nqk/UFoMm3pNeTev4SBe2K0t+N9QMYz7VrGxo+MNi59Ocb6D7949PT85OIho
UW73RKt3EP5IQ7YDfa/t3aY/y++g0q/jahTaUXn92UrtUvDcwhlFQu+aqVjW
qn0PpTkCDr3sHITf5yNBc1PvYTRPZWs9uju3eUOBUDlc6Yh5VYAOc+7fJXat
HFSSHHwD0TN9KyacohXAGrPuoRy6ukEzrdO/EspUnyV5sXEQNs9Lj17SrIGY
mCHJnywchFF672dTq1qIttYciv5DImYeFLg0eNTC+K+A+57oeNfAf/sDa+HC
Z7a1VugJBQWV3QW14FOz+lEE/bDs3mN2Uh0EuRzhylslEY2fpW3LCuvARLcs
o/o3iTBY8poQ42yAgv1sCx3LJELPhI99/t1HcDu71eDdPImIOttzT7m0BY79
/lqsNkUiPpruWG/G1w4+z7f2yY2QiCkxgTsdCZ2wT/JhQmAvifDylHOM2tIN
vzrsg43aSMQW7h+VlmLdkLgePoqjy5LfCIrId8O55rItq60kYrVJsy3/UDfU
jEtTC9ABYobQdKkbHuh9VRJAR345v4Ojrhs6kqI+j34mEZkySb23rvTAYoel
SUwziegZ4DV3afwG1Ca/Y7s/koij4c7fPDu+gfu2E9/Wois1y88EDnyDoC3l
t2j/kYiUJ+fcU2a+wWDFEHs+2tWsJKhPsBc2LsXIKaNX6mxLTS/2Qv4m61nt
BhKxPS9zuwZ3H2RND9pdrMP1WP9O0+Pvg4ftFHYTNAuX2e5TIn1AbZP+Txk9
en5Z7dqePlDnF0xcqiURr0SOHc+z6YM3cwnxoWid2Nn7O/P6QMPyx3jRBxLh
cFP7O+exfjjrFTouQJAI2fONX6ct++Eu6xWF3zUk4pfpqfqvjv0Q2T30jIIO
lriUmu7TD5fiREfz0Pmtz20hvR9kPIyO6KKXJX+3eq/0Q3zmTQu/ahJRyxtS
bc8xAJpFKjzn0RG/+V7p8g6AVozLpDFatF02jE9qAF4LsYluR+v72egWnBgA
O/r229VVJCK2433ZWPYAJG/J2MSDtqvSy2p5OwChCpzO85UkQjK7/X9vqwfg
k8uXkSF0mf/k9ftdA0AldM+/Q5NlhBR2sAyCVH2vlxNa9q5v6qnTg0CiVLE3
VJCIuYuk6P1Og9BpMS/+Bl11KvqOuMcgxBV7XE1Gm8lm284EDILH5u4nt9De
X3sEIgoGoYTTc8tedJ2cRlgdBxlU8sW4XpWTiDNKp9JnN5LBKSxBPgm9tOda
5U5hMuw69/V2FFpeK2/6tiIZ/F6KPr+Ofmy486TqaTL0nlukaKEVj2lfcnIk
w30/t7MK6Mbj1g+i3cmQrVG1VhT9xzKulHGXDC/UoqgcaBdnzu0Z2WTYtkJk
d77Hergoodb5hgw5R9aHfUQnXDpkylpFBqLIPL4C/eXG7Xv27WRwdj6l/RKt
EfBjVGCFDGWa/zJ80FzJPa+CjYdAp2CziDQ6LW3uv2KLIXhLExvagdbO3ESh
nh0C4qhpKz/66itjPvAcghB6yAF2dG9FjffiiyEYEpO2oJaRCM+agSjJrCG4
db81tg+9oW45++TrIWB5k8LSiT7ctLe/sGEIvBUOedSjc79lgev0EJgsb4jM
QesN1Fs9WRqCdYxYs3T0zI+ZfU6sFNCP1dVNRIf9Wm8ezUMB/meva2LQp71e
nMnipcBp7lcGEWiJRVn3agEK/DpuyRqCrl4xCGLspMCCvQq3PzrcrzuaXZIC
ERfSrH3RVn/PJwrLUsDxI/TfQP9kDSgxVKXA3Jiflzu6JpC37qwmBfI22EZe
QEdwJLd661BAwJHaew4ttbZy4qUhBSYlXdfaM1//UdEtzYQCP7tqVq2Znx+c
Sk82p0DklI7Yaeb69fg9Ek9TYIc8m88ptCUpZDrBjgJb90j9PYEWr1u+Eu9I
gY8PPpYcR0/fvzT7Pxf8vFi2VBN0+cGh63HuuB+ZvyqN0Q/+nZiLvkqB6vkS
7qNos+p6r0gvCjQ9dQ0zRG/311gMv0UB2xAJbQP0xP5c39C7eD1tjag+unhl
+0pwEAWS8mTV9dD33kfdDgrF99fPv6OLPubL9ud+JAVGlzOXj6AFNbzu3I2j
ALuyehbTo/Pf//nFU8BO1SuE6aJim/u3EinwXPVuAtN+Nz6z+aZRQPjgFQrT
hnsOBnll4XUDB2vm+/PPvuG4kU+BzTs8OJifTymUDLn6mgL2N4pGmc6/HM91
uYQCLGTdReZ6fRV4wtwrKEBv0z3A/P+OMPx5LhIUUElpKjFi1lveTIRLAwVq
786cY+5P38VzG843UWBvYJsuc/8yZbqjHFspcC0xyJq5v9e/G24620UB/xSp
NOb+62RWxNr1UkDxQJsI8/5wOyvy25ApMMb2vNUSnUbdvNViggKbkpY/26Ev
pwbHm09RIGGiZpsDWsthWcjsJwXq9dYlMeujY5C83XiVAoIZCQeZ9ZT04kSS
IeswfOLY4HgF7WZbv1N/zTDEq7mVMOuPtTdH/BDvMOio67Aw67Xl6faXOgLD
sEF/fO4+Ot4ySlJbeBgc0npEmPWt3OUpoyExDL4y83yxaIdWUFTYNwyyQXl3
ctHykW8KZQ8Mg9JmJdHX6KVjkioyh4eBh/pusRQd1cStuuvYMBw6LW30H7Ne
G75qCjkMw54ATt8xZr0GGVZscR6GLBJ/yxSzXo9UaPO7DYN4f6flArM+iRTY
6DkMBf61vFx4HuyodNfjeDgM2YIZgopofqGVlcuPhiHh6xKLJnqd98Oib7HD
UG7qIauLXlXK2JafOAw2XTsO2aL70smz5m+H4QyXxb0IdAeLR1Zl2TD8p+jq
+Qz9yf63nVT1MPSeccjNRJdtFWxcbhyG/L32Ax/QT8JPJKWQh0HyMqftb3Tk
xNBJ7tFhCL5Y58CN5+cDvctrPSeHoQIEc4TQnv/CPA3mhuGk7jCrJtr8Rv3R
6bVUOBS0p/sWeoOtxuJ+NSqQxWeEefD8X1PWkJ+hRYXeC7EnRdB/+E85bTxI
hXj9f60qaMaXq5+pR6nwvebWY2t00+Hc9FAHKlh5FJvko0Nkd5j1hFPBwpUl
8gz2pzsheRyHYqjwWd2W2xvtPapZkfuEClH3nJofoV2SLKXupFKhdkv6tmq0
Ll/0qkQpFR4r8y6IYX9kWWHLuU6lgl1QUMIC2mGk99fd71TY3nUhlBf7K9FS
pPOIQYX627HFsuh7yWe6shao4BDxpeYs+p9u+b8B7hGojdXLbUH/jbpmabB3
BJo19dtfY39flaSwbw8aAb72tRdyMD/YbSw13R06AkfDBylN6MqlR8/UI0dA
RIX8hIH2a96vdCJ+BMzUjEuVMX/8vvrUJjh/BDR0WD9VoFcqTF/PdI2Acf2K
9CDml8UTVWcaJEfBiMfl7jHMQwG9hYM6cqNg1S3W64ve4JhmV6Y8Clltz30y
0FJXQ2zy9o+CU7JjwD/0qcgTljEnRsHl0J6WEsxfRU1jJvb++Hqhx1v2fCIR
F49sODDfNQpsVYxHNi0kol/17DbJoDE45ZKS5dqJ+7ustvFB6BicW5ZoS0fP
VK1jH4scAxmeN4pDaJJBOe3lszFw0noTYdmF/dpaoFyicAxOsObUGXzF/fRv
tpLoG4OTJFrX3h5c338aT3Ypj8NtVfk1yv3YL0/zbhIfGIc3JiYvUzC/Cj0e
tSLtmIC+TJlvknMkYl/gzi2e4hOg7nOj7hLa8rpN54j0BNA+2Ma9RceatZnU
7ZmAFBf5gYOYj9etrzwcYDgBPY9Uflgv4P16ECfP4jkB3Pelfwct4Xnsc5hl
tWkC5OWcFooxf7Nd8K9yb5uAggq/gXm0qGXZrf6vE7Ca0nRTHfO6varifDll
Ahi6pp0l6O4ZIdrNhQnw5d/Z8fYvft8uznYuik0Ce4vOtUScDwpsU7J++U5C
vVjORzESB6Has2tlzZ1J0DkiEmqOrjDPOiYcOAl8xPWuAHSjUcHswUeToBov
y0pFj2hU7o9MnYSPY0N+CTjfuL2FyNRMfH+rW6c/omcU6yjFefj6ldP5v9B/
JZse9L+bBKF1RZVHcZ4S5P/WKtM0CWy/vQ78RCdF2Yprt05CU8OPQmGcxyR5
hjyPd02CcOen8MPoPWzjQt7kSfhS0eAdjTaZ+XWu7uck1CoX9EngfNjl7lPS
vTgJJzeKWxuibb6vcNFWJ8Gw8ZWiO9qVzFrAy0kDym6frwXogJaNS/bbaCAf
ZvtZAedXLsO4o9dEaRDvdJgwRkfVbUkMkqTBw4qrC67oF+U7Ducp0WBuD4in
oneppz6uVqVBQP9zvkp07muJ7+2aNLCZLtvPnN9Ls+Uilo7QoO2cgwIXNweh
I1FI5jHC9yNfntmJrk/eo7LTlAav/9MbVkd3PNHs1rOiQas66ZAT2oqvSsba
ngaLcaq53uihRwdvX3KiwZrearUwNCPIQDTuEg1kv+3ILkDfYGm+nnmNBqcl
/zysQa/cNm14702DMBPje63M5zuL7Vs/38a/t10OIzOfz9ywcKPco8HMxpkM
Bjpy+lvlrwc0+PFp45dlNL+b3UbOcBrsdlVmWcPDQTwfG3IUjqbBS0UxzU1o
ccdzxQr/o4FwbrbXNnT2wPiaQwk0kIsLeiOBVrJysz6VTAPB1xcZ8uiSzqm8
Cy9p8LeCXVQVrX382t9bOTSI1Zk30kLXNc2ZRRbQwMWnxwXQR/V901Pf0iBJ
U+vGEXTbh9/zxWU0kPic7q6PPn3grmFjFQ0sv0QfM0QPzI9vrK2lgbeK2SYj
tFOBaU/FRxq4k7Nrmde/u5QkvWuhgUeukr0B+tJOEZfCdho0s1wd1EX/7Hmg
kNNNgy11dDiE9omemkvrp8EHmW33tdGrhhaVLyg00Ey6lKiODmCtCnwyhutN
141RQnOVSxhH02jwIuePlTT60fUIvrAfNFid+T6zA80nN9cbOEcDdWcji83o
+BHbVP9lGhTdtA/gRIu8qHP1+UuDDRwWniu4/+mn5JSvsdNBeLulNPP+FDSs
VJ9fT4fpuG6iGa16xyn4DB/6j1vye+bzKPUmE6utdJAu3aOUyayvrGcDxmJ0
IEK4zG+jjRxYX+pJ0WHSt3XgHPqL4EV3kKODhuB+LmN0b+i+lT1qdGg8OKUk
gD5zOOWDvBYd9u8O37WE9Ty6whkqBXQ4sMsvsxc97d6zVdiIDqq3bxrGoz0l
YGizKR0i1nufYT5PWh7IzFx/kg5nyjJmzdAkU281Vns6uFMm/djRYWvIqyuO
dEgzvO/eh9/HjTV69XMudKCqnagvRAsrC5ycuIr3IpUt1QKdPOEnTPWiw4Pd
v4Sl0BKpo8P9t+jg2atJn8PzQImv+GprEB2eGR689Qhd3LRt36dQOhgIPFY8
jdYKDPxXG0mHlhxniZ1o3TnzyJJ4OmTZLVXn4Plj0z2bl5hPB8X9rgI5eF5R
Iq1vPH1NBwlG5v7zaGeDD1oxJbi+mRjvHeirZdGfggg6zHkU8YXheRicoPTd
vYsOtXfKNY3ZOYh1J58WOPfSoVop2HaBjYOI4fnndZZMB333cIdk9Au/L6ST
E3RY4udcobFyEK/PeIhrrdLBl+JYcAHPZ6d3MztSWBngmdxsv/QP89c6T6E1
nAxgswk5Hoz2fn+Lt2MTA+e1mq5neL5r8T/8e1GaAUsVkjZJ2B/objwrrfIM
WBe+zCuIfvEhcl5tDwOOdm2rjPyN/eby/xisBxggbxDccH0F5/1PaX3PzBlg
dvC9Dz/2nxuiUt3/TjNA9GvbS89FnMd8ctqd7RnAX3HrcvsC83lCUaOKKwN4
5S5l38N+Zny3quSTPwN+HK1wKv5JIrpUv8UuZzNA5C+R68zAvBZuG3m2gAE0
m/7iUDqJUKeSQxve4nWVgZAcGubhqLF7MdUMGJf8aDwwgf2M9vPy7i4G7BuQ
jls3hvnhkLdbVC8DON6tV1w/inno6bLzPJkBfnfNN63Ffiyux2L/YRLXP2ni
/pNCIsaT1xtb/2OAZV/3jdABEvF0IVq/hjQF4oxgGyfs54Ym/IcluadgSwJl
Xq0P59cVYc1Z/ilw2Ka40oL9/4qFjHSo7BQkByrPlnZg3uY+wv7eYgoqBNL/
eGA+4Zve8LjWZgoo94I12DC/yLX3SbScnYKLc6aPo+tJxJmn1/WHLk5B5pcS
++eYp+p2pYVy3JmCPCenHBfMjwNrLgtvDJyC3zGE9yfMtwuTmnmCD6dgZ1B4
jiTmcZmi9ha5WFwv3bXnUzHmX21WXvPMKaicLbOvfkUisnd+TrHNmwJR8Wvn
JvNIxAe2ZyrORVMg4Ur/sS6XRMw1Kp/0LZ+CbjtN8QOZJMLGwuFJ0pcpeLx2
70WdJBIheblmO31hCtoEvSczInBeOhH+au73FGTf/ulqFIbztOppnb8s0/BT
Zd3ukRCcH1amz27imQaKiPT7pQDMV8Ei6Ro7p0FnpnEl0xfnKzfa3kMS0+Aw
rOS66EUidpmU1B/dPQ2r1LVx2jcwD202HbffOw2CqWb6Lz1IhP8L/ZsfYRpc
/v+HRPwflL73GA==
        "]]},
      Annotation[#, "Charting`Private`Tag$2458#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw123k4VN//AHDLSCEkpEiSnSwlIpzqY4tIhWRLRJZW2ZJKkSxlbZFkLVkK
lRByxhahZM8+M5aYGUL2Fr/3/T7P7/PP53k9986dO+eee96L03bni8dc2VhY
WETZWViI/4vf7NL5hqaw2//+I5EDL2va5+ybwufHLlqNupPIMsca8gT5p3CW
wB8r/2ASWedCmVAG1xT+dJNtQCWERD4a+eqmCscU3uRi6dJ/h0QOqo49brIy
id8FvrAWiCKR23ad/H1zZBKvv0ihLD4gkcfNTV3XD01idqs+P+vHJPJfT92W
pJ5JHGn2tyT3CYksl7k98/3XSWyZ+2RJPYVEvr6RbsIoncRLCnUOnVkkcrxK
f1HAu0l8/qPh/rFsEjnb9Kv4mvxJfNX7oOJULnxfyNtZiUyw2OHi4Xy43lxg
kvX9SRy4Hr3xKCaROzq46VWnJ7FwkJfMag2JfOvM+8o8e7jf6qa3fnUksvKc
Y8LDE5PYsVtQZ/wTiRy+8a2Oh9kkLtWcSPnwmUTWPWYTw681iZU1+VlFWkhk
OpX1zMruSWzrc7j99DcSOfFy3t4RZTjOTzLNaiWRZ2P/UUukJnHXQY6AbR0k
clbLc/VT/JO445Fia8d3Evn4KfN1h7gnsW5Abu98D4nM8nNxYNeaSWzfaSYq
0Eci2/Ka3l3zh4mdi3+F6gyQyHxmMz2vfzBx/mxapS2VRA5o1L35p5KJb+CT
mxrHSWRp2x/Hxz4wsU5i0OCLCRiPiVi5b0VMnEFParxOJ5GV1o20ZuYy8VT6
XgNJJolMNYqUMn3ExAXZsxLoJ4kc3b17WT2OidfXO1/4C9Y5O/BF/B4TR8rk
HCydJpEfhan6z95i4rtbVF7vmCWRTeq6Pj85z8RzP35Xts2RyIuWwSkh7kyc
1qJ51W+eRH4+In/lvAsTP6fP8W9aIJFX2a+LHTjJxA8SLFmPLJLIRQd3XBzX
Z2KpY0eXkpZJ5K3ki4KaYkws/0fRJe8vidwssMdHexMT0z05xbf9g/nputKu
K8DE/DqfTseCu7juJOivZWI2W9sMr1USOdYqSeDYHAPv/mXSzcHKQdbLPuVt
9ZOBWbo9ctzAkytSbTZ0Br6xmaxXBzZJK4g7RWFgw+TAr9fYOMjsjFr+880M
nHRQQbeFnYP8Vjfy0qV6Bg6kZI+IkzjITrFHvl2pZuC3mr9DzoEr9vTGBJYy
8BuNoWpWDg6yX/BP3vDnDMzcVUsXXMNBlmovuhCVysD3nKNXLMHt0oFfo5MY
OLKqTi0BrNpEin4Yy8BKO6eUuDg5yBNCW9ZnBjHwYvbdnzRwovvQuSx/Bn5y
JKlDcC0H2bD8eXOONwNPtxziMQBnOKncK3RnYL3ZkbtpYIt3c4x3Lgz8aPdA
ZxN4laPMtMSRgbex3oucB9vn6XNXWjKwo2vIPv11HGSuf+u8qo4wMNcmlwMe
4A8WLY21JgwstiBbdQ8svHAysmk/A794Pb+/BVxrvI3+dR8D/2uVMZkCez8d
OdSmwcAi26KHuLk4yC37L67rUWLgwYJK8kHwjQR1j35ZBj6cayRkD1YaW24Y
kmTgsMdhnD7g3r1YbngrA+/fUvE0EhweFRo+JsLAodliXalgjcFD4xMbGXh7
ybeyd+BRVT7jSV4GthiZM/sEPtj1hHOOBMcH6mJ+gKflTp1dXKXjL/Lehgvg
1GtS9SsrdGz94345OzcH2fzrhMy/eTqWm/gzywf+I1EQxjpDx1/FEqe3gHOv
+IyRmHScWbCzVAps80nLcO0POh7ffctsJ3jN5tUX3DQ6VqszLVIHv/eq5eAb
oGNVJZ1pbfBeiQtqWd10PH+zynU/uKxjk4NuGx3XOQSH6oN1I6rCO5rp2ESY
dNQITNb1KvKqp+Msn8YWY/DBWUEKWzUdZ//8j+MQuC6rkjupgo4letvnifON
7dw11Uro2C7+2wsDcCOfgEvDGzquLAzZfBBsVlsefeoVHcfvUbDSBX8LcC1b
yKLjpfdz9prgYzv5xu6n07FwOOceVXAntXSDdDId35kKpMoSv/eRs27FIzr+
cdDOTRzca8LjcTyOjtu25dRvBDusvn9Aj6LjlYiT69aCKe9OkW+F0fEzEWuV
3zDezu7rmCK36Nhw63XdSeJ5ib3bVHiNjvsb0zUHwfQ7ay4OXqLj0b0r/yrA
57ULk3y9YPzEUtpziec3dfITjxuMh6ZE5mPw/InXW/fZ0XEVp9KBC+AAnhOH
2qzo+MPbNmEb8AqZxdfDgo616+Pm94NZFCybHxvQsfFH6X4+MNeflcA5FTrW
ZdvxKgPm6/3C51lRCnS88NNC/g6Y39W8TVKajk+d0W50Awt9TZc/uoWOv30e
DpEFS6QZf39NouPYRpmdqcT7ZjnLbrA6gQVF12y7BpZel6zSvzyB8+q4zKzB
Ct4/w7h+TmB1HTEPLvAe/Ud7zvZMYLHLrdMe8D6XLqHT/9oncJhy2Mb9YO3X
E/cefoXrxdSHC4H3C+uO1NRM4LaOh76VsD6YjA/HS+RP4PHmk+lrwU731KZ7
bk9gll/fvYNh/Qksig/7cn0CK80Vu1iAH/b/EqsKmMCXRBuHtoEblYoPZV8A
rxkJ/gjr2e4v2pl+thM4uX/vk1+w3q3h1bfeuGsCk898zjoM6+GrGOuKw9Rx
zNr0KuQjrL9L8dfCMRrHkrq/f43Dep7JO7g5kTqGf3OnWv4Yhnhshzi1+sew
9nHzL+ng29lpcz1dYzjs2cApe7DzQZcW0eYxvOOaYGcrjUSW9BsPTS0ew7VO
LfyVEL8yBmZ/ZkWN4Sebbh9JHiKR015xfnq/ZwxHyy5lX4H4l2yi5t0eMYpl
myNVX7aTyFLcJo3fQkfxrNORNZfAeU3Okl9vjmLTugPcWuCyww/aGnxHcZBX
emZTG4ncY764q/L0KE5DFYK/IB4LH//4K1trFGc3X5U3hXgdY3fI98bECI5d
kb21/QscF3P+cm1kBJdQBJ9PN5PIKf2B0leHRnDGuzN/MDjf4VXnlc4RbGvY
YHYK3HyKT8OjCs6fLfdPayKR157pXDj+ZARHDFpy7myE8Th3OkD+0AgWzpKZ
vlhPIg9GOyaX/TeC90o2BRwEa7+xI5vqjWAXzlf6QuDZeau1F3aPYDm1uKxy
yD9O3zRJfLt1BK8JqX/IDd4fv7t03+ww1mOp1iithfEpUu1vZg5jZ/3qf9Hg
pa6dLI4/hnGD0AVuN3ChqJxxcP8wVh7l/SUI3vZC7Hvtp2G8FHvwry/kP/9K
OJbMng7jg+dJXAbVkG/0sokNPRzGDxQ7d0iAi/+sokuxw3jkoULI7yoS+cKB
lbvxd4ax/2iYwDvwQOPUpu6Lw3jXdqqPNLhioFvTSX8YH/c9YbaJTCJfY8/1
956k4QqlvY4qlfD5J45rnMZp+NDV2vVCYGeVjQ/NhmnYl1NwZeUj5BN2QW/l
emjYxJYeXg8WeWc+OVhLw9NzlBsu4CLnX86myTRskej6KasC8r+llzN7H9Pw
fkU7FAt+Gm0fLBNPw+tuvZy7Cr5dVveMNZyGDZy3CZqDjwokfi+5QsMRR69K
L5eTyFNVOuZSpjTsneAcbgumnZjp32BIwxJoqMoI3Dn5wmt1Pw3T+1Y19oAr
NvNF9GrQ8D2bxXZ+cNRlak2sJA33z2h3N5aRyDc4Hx27sZWGf3pbMj+AvZ+Z
UL1EaFgkNk0nB2z7+d0/Q14a5rmdEB0OltsepvV3mYpP1CsuHAKLlWg30Oeo
ONx0x7B2GZHv/bT+/pOKd5z8wqUEXgiw8Xk3SsXxXXPr+MC13xQKPFqpWKnp
ZV33B5gvwS1SXdlU7F2fLukDtu5J1RvIpGLmbyeGO9hk1yWbkRQqRvrnGA5g
9RH+e7MPqDjl3pY4Y/Ba42O/eG9RsWFC0SUJ8N80yfXCQVRsp1c0IwyeXZ6V
2eoP3+ftnLMe3JeXYKt4norHvQMqfpfC+8HXWWV0korPPfzvYi840/1Fn7kl
FctfvpzZBk6s8p23OgK/L+HF+ibwrSvC8mcMqFgh+HNIBdiveeyg134qLrS4
H/Me7CldYu+9j4rnfFa/5YMtu0/EBqtR8Yrgw7l08CFVudy7SlQs7hjV9RSs
F7FUEy1LxU6POicfguX2PVlM3krFfU3rKiLBWx94bHguQsViZ+u874AFJrUU
8zZSsaRygGMw+HdKr+OHdVSsNnqmww88vZgbQCZR8S6zi47e4BGLa/H1qxTs
37ph6wXwVzaxT53zFDz7oFLTDVxjxxzqn6ZgSZXEBGdwaVHF8jCDgrcmZ+84
Bc5wc9g5S6XgXhluig34Md5ptNxPwYFRijzW4Hsi/5xYvlPwzqPbzh0HB1/+
GsjZTsEGRl9WLcC+jSkPeL9SMENUrN6cGJ8dF/OFPlOwi/1s1WGwYxBqEKul
YDNfjWkT8PFOPtoOTMH0t1+PHgIbK1N+K5RR8OkD6WNGYN27hUK73lPwX6UH
+YbgXZRgFa1CCvZ2vp9jAJbROnpofx7cf4F3tz5YNH67i1EWBRtWye8lzM+Y
CTJPp2BXucSm/8Ak/epHVskUbG2VGUd4OTm+0P4xBeclqUYSnpp3bnSJp+BB
Jen3hIfNd4943qfgeEk3AeJ631+y/7scTsH9Pt/TCX9h6dh0NYSCfVedXIj7
qT75XC34BgWz3hqxJu635K2P6d2rFGz81CiI+D2vuA1co31gPNsvtBuD084I
3Xx4EcYnXs+eGI+HH0cTkz0puFDqqfD/xisg6YamKwVrDFxXJsZTbveRM22n
KFhP+3IwMd4zk+wm520pOMrrKA/xPMqyS1XWWlGw9rWVVitwiMt5ocwjFCxl
btxKPM/D4pK/dU0oWPW5MJc9eDAh6tMVBN8nmSnrAn5pvv8VrzYF2wiJ8JwF
X1o3H5ejTsFaEtfkvcBsNx0dhuQpeON9f14fcJPWxv8CpWA8Uz91BoAfzNXL
CW2jYB7Fi53XwbKeanMmgvD8HmtcDyfmq9RYzygvBctu4ZKOBn8YSsLB6yjY
xCaN9ICYb7lrhc//HcIq1CDPNDAlOP8//bYhvH3jp+ZysPfCJr7A+iEscyhY
uYZ4nudu9RZUwPnFnz81guVPWF4WfTmEc+UvJBHvt/fOlZTZa0N4c8Hbz3+I
8zNdPOUuD2HBvOQ+DlgfHol82ePoNoRnW3ol+cDl7GnNny2GMH3mnYUkmNRr
sJImPYQNd/tJmxLnHymo69oyhPW6UwaswHJ1InE8/EP47/Oez05gs0KGbMDK
II74StP1J84Pi7M60jKISbafY7KI8/+sSNypHcRNLFwjb8Fll88wyz4M4hve
gl4YPGSvGSLzfBBvqaLw9xDn7x4o/BswiFdPNBTzwnpaNiTH80pyEOdXCBmF
gIN0WF8niQxi7H4/Nw6s+6THLIJ3ELMuz2mmgcnHImPcVgZw7du13z6C6+sY
AtvbBnDn8OWZFXBHXv7mR7cGsN5oYm8QEW/81WWDKf14aXKdeQrEo8IOnoYL
Xf1YaFQm7w34stqou0NzP35bU72zDjxHf5irXdqPeVTGMpjg3w6LO+dj+vGB
azRjXYiHa/XL1D1RP97V9tllFLyDf/9By5Q+vKnOv+MIhnpelRromdCHD7cI
P/UAL1ncfhcc3of5LtqFh4Cb42qlXnv34Zf8Il0lYJ+NhzjXGPXhjdUqWpIQ
vz8JH2su+dmLT2uZzv0Fe249Yy16oBfvOvJmugXyg7cK4Z604e/442BxVDvk
J9tanT4o9nzHOoO9I3Pge/5aa32/fscB5eUnhCG/ca2lv+D88B1vF1+NOAkW
cTSjKkV/xzyRSaJU8PU4ARv/vd+x07OUprkGWK+Wkg147nfjmzeu79gJ+dVQ
3RsJDY0uvH7bxHh3C4k8qvRwFy5ux9/jG59s7iGRN9zI0VBmbcXTKk+azkH+
qaTxU+nFr2acpTEU+ZkJ76v+5LcPAfX4snn6J+EFWE+MmUfUXepx7vYR2l4w
ixnja75ZPa62pk/YgoOsJpozJeuxVVh7SQrYz2204X7zJzxkI2EhvUgiu4cP
kE9LfMIHWBXslJfg/W/+UriuoRZz7mPuUFkhkSO/NauEvq3F/+UedzUHN3Q0
5f9LrsWDt1D0ebDBwOdXvy7XYs2cg4/ywHpTddkDorX4Lz4SJPObRFblr0x7
c7EG92gnRW36QyILWebHntxUje2OBAuOQX7+ViaqzIC9Gq9VvLaX5R+JbLF8
dkTtZxVOiXmpvwUcmbJ9L1d9FT5rekTIHPxv/MFQmV8VNv638LAIPHb9mrJY
Fxk/i6nnuL4K+dmRuMSP8hjr70ZKv1k4yNlzJsyHrBjPi/JoCEB9QHtC2n+h
pxJbfmCRkQdbj/j/EI+oxMyPUqXWYHTVUSN4/CM2qH6fWQjmz1TsOPiyAvc4
yUWdgnrj7UIdX4NUGcbPnuzNgXokOjejWm/5A05I+hlfCfZyvOn7/ssH7EDq
am4HS33a25fh9wEveG4c+gt+9DAv63pDKRZwj7tG1DuB6nG6u8+VYIM7S2E/
wdbj56dz9pfgKqPFNjYOqHeSTTIlhEpw3/uYv0JgJjtpHW9lMf4v8vjUPrBj
u1/HOF8xPvL8kU4Y+KC3vVfKuyIcIzR0k+jfiMtoiQuFF+GcZlq+NPh3j1Br
lH0R3qH4vFwDXHSgReMqRxGmRShdsAHLbDjIZnniHQ5ynd2TBOYqlH2y7vcb
nNufarAJ6rsXfaP3J0LzcaRNgNAiuDdIOPXZ7nycV9DLww71Iq+4UeFR2mvc
tFt2lBfs55Td9gG9xqeXT+2VIfo/o56bIlfyMPeN6+7HweNTP9MULuXg7gTB
iZdgsViJt4PiOdiGNYfxhugHqR2tif+SjdV6338tB5deeTu6opCNt6hv02gB
Ryz5KDSNZuFOyq2IOaJ+ZVt552X3HCtIW+tqQf3rmKlQt43rOT5slax/AByv
b9fVXpqJKxb/Kh4Cr4RVLO0TzsR+yqtJNuAm7pu6PK3peEHl4rIvmOV1gTn5
Zjo22LmG9TpY3Zxyykc5HWvNxI2HgJNjD9zuj0rDXex+J+LA3xXWRp+8n4LZ
XZfe5YL3n/corKI/w/7CH8sKwdkFjW3yxs+wiahVejH4qvr9TStsyThk9uf6
avAWPYH0pIAnOGiX15lu8O3gKzVsXYm43eiMRz+YUd0x6rk7EWv5C5pTwRVG
jxX2TT3Cax/eL6aDHY6KFfW5PMBVfjHsf8DMX/NavrUJuCpAaHYVHPSoBfNK
J+D42etV7Fxw/323mw6MxeEGJpON6H8p3bA/2mcYh7dMTvnwgsslNLp9XsZi
UdfG+g3goqa2uiOt0ZgWy8EvAu7gD2u9HX8fu506zSEK/mWlNfD++D28uS+6
byt4FyV1TrQrAl8cOaGwA3xU+jjLkcfhuEB2OkMafMlzDc9tm7v4WMjxP7Lg
grlzO8Z7Q/FCje9RJfBXLQkV0eQQ7L+sZqYMnrrRrm3ucBs7jr+TVwWvrw0z
vCV+C1t6rIypgW0EfJ6745v4tDvpzm7w4+Te8q8HrmPmyDf2PeAumQPt6rWB
+MOMo4sGWPDNS3qSYQCeKHqdqQk+vo+XjfWzL/53tqJ2Lzi+zmfzWdMruPtE
5Cct8LcjfapfvlzCRSPCOdpg8aKQWLe0c1jt9ulz+8BPGyzwrhdnsWmJB78O
WGRg69S/HGfsKK7ykLDicKfWIwc7vMP1zQphGZ5Lj5XPHsXFh6f364KDO+Q6
RGt0cUwO4yxhJb4BT46dUuiOS+ZFwl0zt1P5l4xRu+8mG8LTR2RnL3pbI96f
RtsJX0swbPRSd0I7Z9SbiOv/u3H1aaqKK7rzZtCKcLDnq3PtCp6oOcCgirhf
dushXU6Zi0go02M94RqJiLvP+L1RZ6qpNvH7Qh9JXtKM9kH9Mwwj4vcb8lTY
tHL7I3sVUw1ifDhvWx3wiriKxlk9OYjxa1ickufgDEJeMofeE+MdeT5cIDX0
BlI/P2GgDs6aib0udisY/fxgWrILfPasglvxv9uo2tJWRwVsLOlvG6IbitY1
rbXYCZYbqDG3CLqDUh5f11ck+m/HHDTpy3eR6EncIgNuXJ+rWLI3AolviHGT
Auc1LGwL9Y9Ez18oDG4Hn9OLXSs+fw9dxk0XxcBmy/1/6LujUUlGR8RmsHKR
/EyJdwy6IV4YKgxeekBlyi3FopBLY2L84A9c1zqrfRNQeWFENys4badQe4Hk
A5SEujP+wvsUZlHwLbnlAfrRfvfQMtjy0XCTn/wjROoTl58GT28/XK0wkIhM
h0PUiPe3W38Mb4p8giZPG3/vAleeDf5I0kxCDO17tq3gqNdFpYOxT5H2joyZ
OrCM1taCeP0U9LrsuudrMI99yaubMynosN67ySzwrxtHc8+lpKJ7klGH08BO
tOpjO4LS0JF7e57Fg5XlFs3+dqajz1rsUcR69vndKf03Ec9Rq8XhZ+pgnTql
GlnKc9S2TW5AEVzYtXwgReMF0nVnWZYEP1pOQFHDLxCOI9fyg8+gBm1X3Zdo
z3Gd13SiP9+oqrZ5JgclW59ueAz27v9bEGOUi5o3mzXdA49NNiqvSclF5Ztz
c2+Bm/ldlX6Z5KHSzO//PMFJ1k9kvzx/hT4G/vq7j+g30ljFb9kUoPHNHY7d
EF+Uy07MqOYUoKiMTL4msEz861rKcgGq2LeUXgnmTn+1J82sEIlkWXi9AP+x
sOlfnSpEjycy4i6DBwoL5LHaWyRqt1udBE695FirW1KENvSY82+E+JZsvy7/
4VARGgv4yMYOTjQuejzJ+R798OvunoV4GivB5fXM5j2Kuq+p0AYO/vZ+w9/l
96giqO1SDPi06vpTFTolyEeYM4YE3jFdvqxd/QGV5Ag59UC8D/ryX+jc5Ac0
kqe2qRbcldvEm7+5DF1si3udD4507dux/XIZUktxCggBT/eumHFKlCPWOJ5w
RXBlnVZG+/UKVKr+JMUX8g/bpyUm57Qwiosbkp6F/OZQZs8Xc5tqFHtSaygW
8qnpO/ludeer0div27d8wInuIav7QqrR2S9s62zA4zt3qsnnVyN//KdeHBxe
GvyAnVSDQt3+W5sH+VnDF1m70oIaZKZf+qIS8jejJd/x7Zx1KH8f20LbMuR7
ZgLs8+/rkeepTUbv50nkmFPdwaolzejw786iPZNQP5hvXW8h0Ir8n27qVYT8
dXK70I22pHa0Vzo8KQTyW18fxdMxwl3oV5tD2KFvJLIw188K6+1d6Nl6VC8J
Lk19KyKu1IVcmkqF/0B+/KdR69urA10Ij8nS8sG3txujxnNd6I5Bp4oQOPrr
ma0cNV2oLSXmy8gXEjlLLqUn8GI3WmyzNouDfLu7n/+YW8N3RGsMOiwP+blJ
lOt3n7bvyEv06Pd14AqtMseQ/u8oVLgskA75ftojF6+06e9ooHyI/RXY3aI4
tFekB/EtxSmqgldq7ErMPXrQqw0nZ3TqSGSxvCwxTa5e9HJqwN6jBu7n5O8M
A8FeFN5KYTcDs6y1kLcU70W0b7KfVMEjZ5b3XN7VizQERZ4tQf3xWvzwkTzb
XvR2LikxAqwXP3NrW14v0rT+OVZYRSI7XdX5wXm4D53yjRgTgvpF4UxD55R1
H7rJenHnb6h3fplb1nae7kPRXUNPKOAwqXPpmf596FyCxEge+FXLUzuU2Yfk
zh/6Tx+8LP27xW+lDyVmXbUKqoT6gf9upQNHP9IqVOM+A773W+C1Pn8/0o5z
mzAFS7QqRArI9KM3m9kkxMCGQbb6+Uf7kT1D7Fol1GvxbR9KR7P7Uarwiw3c
YPuPBi+b3/WjiJ2crvNQ70lntz58V9mPPrt9HR4Cl16f8L7V0Y9oZP0z78GD
cpt3bmUZQDK1Pb7OYIWbAemWJwYQifKRvQ7qzTkPUuw+5wHUbjUv+Rb80TL2
huT5AZRQdP5SKthCIdtu+vYAOr+x61Eg2K+zW+he/gAq5vQR3g2uUdSMrOEY
RGqvtq99DfWso4pl5gzfIHKOTFJKAS/tulyxbcsg2uHSeS0GrKSdN3VNeRAF
PZd46g1+YLztuPqJQdTjskgh+pnKh3XOOZ8eRLeCPE/tBDccOXkn1msQZWt+
XCcB/mudUMK8OYiS98TQOMBurpxiL7IHkegKObsd6nUWD6k97W8HUc5/6yPr
wUnnDpizfhxE5MJjieXgr1euBTu0DiJXV0ud52DN2z9HhFYGUanW6guiX7A2
tft1mOkQ0svfKC4LzsiY+1RkNYTe0bcPbQXrZG2g0E4NIbKJeYsg+NJrUwHk
M4TuMu7qsoN7yrHfYvIQGtoua0UrhXoZ98dIvxxCgbda4ol+CG/NcvbxN0OI
5W0aSzv4YOPuvoK6IeS388D5WnDu95fIfWoImS3zRueADfprbR4tDSEeZrxF
JtG/+Tm915mVggzj9fWfgSN/rT8Wy01Bgk/e4DjwCd9kx5f8FHSC67XRPbDU
ooJXpRAF/TpizXoXXLliFMrcRkELDmpcRH8oKqgrll2agu6dzThJ9I9s/p15
tkWBgk7Xo74r4FnW28XG6hQ0NxrkS/SfcAh/zSktCsrjtYsm+lP3OFJb/PQo
SOg0rYfoX8msqxh/bkxBE9Lu6xyIz9cre2aYUdBsB/5zkvj+sHRG6jEKip7U
236CuH8DwfPPTlDQViU2f0uwNenuVJI9BW3aJfPvKFiyZvli4mkKqr9TX3yE
6A/eOjfz0A2+L54t3Yzot+0f8k7wgvHI+lVhCr6zenQu9hIFVc4XcxH9PIvK
Wt9oXwpqfOweSfT7xK5rLkYFUpDdXSkdoh84vi83IOImHM9YI0H0C4tWxFbC
QikoJU9Bg+gnBn+IuRYaAdc3fHWD6DceDmD7eyuagkaWs5aJ/qSIpu+NmwkU
xK6q8ZLwyPyP1aBECrJX971LuLDI9lbgMwp6qn4ziXDQlS9sARkUtGX/RQph
4137Q31fwnEjp5PE9QVn3nJceUVBG7ee5yC+n1IgfffSGwpyuFI4QvjVhcS1
F4opiGVQf5G434Cd3JFe5RTE+KavS/y+/5jXuT3IFKSW1lhM9HN586bvudVR
UPXNaRdifHo9XHjPNFLQ7pBv+sT4Zcl1xZxuoaDLz0JPEuPr/cN4w6kOCrqe
JpNBjL9eVnm8fQ8FKet+EyeeD5ersqDtIAWNsj1tIfrRGbSNm6zGKWhDyvIX
op95IT0s8dgkBSWNY1EnsLbT8maLWQqqNeBJIeZH28CgmOkfChJ5kbSfmE8p
yUdTjFmp6DMH7+mLRL/arnab4RoqStzjWUzMP9aeHMkD/FSkp6HHQszX5sdi
z/WEqIjXcGzuFvH3AusYaZ0tVOSU0S1OzG/VDh85TSkqCpCbF4gHO7Ug5Z17
qUghNO9GLlgp+m2Bgi4VqWxUkXgDXjosrSZ3kIq4ae8XS8AxjVzqOw5T0YET
soc+EfO1rlNrsxMV7brNGTBKzNdQ43JhVyp6SRJsniTm63/lOoKeVCTZ1269
QMxPchri86Gi/OvV/GthPdha4WXAEU5F2SIvRJTBgptXVi7cp6KkziUWLTCP
X3jh93gqKjM/r6AP/qPyQvTVMyqy7dh6wA7cmzk4c+wdFTmutQq+B25jOf+y
opSKPim7+zwBf3b4bS9TSUU9jk65RH+zdJNIw3IDFb3a7dBfRfQ/o46mpA1S
kfQFTrvf4OjxoeNcI1QU5lHjxAXr5x2DC+t8JqioHInkbAb7rEb6GM1R0XF9
KqsW+NiVWpOpdTR0IHRXVyCY105zcd8eGhqUnN7CDev/mtK6Vy+0aajnbPxx
cfBfQUtnvv00lGi42qIGZn699IVmQkM/cOCDk+DGg7mZEU40ZHO+yOwV+K7C
VovuKBqycmeJdoT4dONuHseBOBr6omHH5Qf2G9Eqz31EQzHBzk33wW4p1jI3
0mmoWjhTtBKsLxD7R6qEhh6o8i9sh/jIssKW402jIfvQ0KQFsNNwz6+bP2hI
rONsBD/EV3Jzod59Jg3VXosvUgAHpzp2vFygIad7X/Ep8Kp+2Wo/1zCqjjfI
bQb/i7lsbbR7GDVpGba+gfj+R5rCLhY6jARa153NgfzBnq/EXD5iGJlEDVAa
ib9vLt1/ohE9jMTVBh8xwUFN+1SOJg4jiz2mJaqQf/y+9Ng27NUw0tRj/VwO
Xik3fzPdMYxMa1dkByB/WTz60bFOegQd4na7eRjyods9BQN6iiPIpmt7TwCY
93SGfanqCHr57an/C7DMpbu2eftGkHPq6durYMvoo9ZxR0eQ24FdzcWQfxU2
jpo5XIfPb34gvOsziezxH6/ufMcIYvvIvG/bTCL3qZ8SlQ4dRZZuaS/d22F8
l/fw3YkYRS7LUt8ywdMfedhHo0eRHPdb5SEwyaiM/vzJKHLWfnvPugPi9Umh
MqmCUXSUNafGqBPG83qTjVTvKDpOonfs7ob7+6T5aIfqGLqmrrRGtQ/i5Qn+
DZL9Y+itmdnzNMhfNz8YsSFtHUe9WXLfpedI5L0h24R9JMeRhv+VmnNga2/b
9mHZcUSvskt4B463+GZWs2scpbkp9e+H/JhnfcXB28bjqPu+2s+TC/C87iQo
sfiMI65bsr9Dl2A99j/I8qdxHCkpOi8UQf7Ndvb6R69v4yi/PKh/HixhXRrY
1zmO/qQ1XtWAfN1BXXm+jDKOmPrm7cXgrunN9KsL4yhAcFvbu3/wvnnMtC9u
n0DszXqXn0F9kG+X9vJXwASq3Z5Tv53EQVbv3rGy5sYE0vtPPOIYuPzYy8Nb
QiaQANm74za44VD+zP77E0g9UYGVBh7WrNgXnT6B6keHgpKgvvF8h6LTs+D6
NoEn6sHTyjWUojz4/MqJV7/A/6Qb7/S9n0CbeQorTKCeEhH83iLXOIHYfvvq
zoJTYuwkdVomUGPdz4ItUI9Jcw/5HOmYQFvaP0cdBO9iG9vsNziBvpbX+cWC
zaZ/udTMTqBq1fxeKagPO7z8i7sWJ9BxPsmTxmDbHytr6X8mkHHDa2UvsPsg
az4/Jx1R5P0788G3m/mWHETpSCnS7stOqF/XGieYXJago0Tng2RTcEyN8LNQ
aToKL7+04E7088q2HsxToaO5XUgyHbxDI/1BpTod3e57KlABzn0j9aNVi45s
p0r3EfV7SbbivaX/6Oibi9POtVwcZD2pgkHuQ3C9wQvT28C1qbvUtpnT0ZtP
BlSi39T2SKvLwIaOWjRIB5z/16/6KHfSgY4WE9Rz/cBD9/dfO+dMR2t6KvcQ
+8mYoUYSCefoSOH71ux88BWWJu+sy3R0QvpvOCb2D10zr/vgR0eRZqbBLUR/
Z7F105drcL7dciSxX4nzipUnJZiOpvmmXzDB0VPfK37doaOfn/m+LhP9L097
Ps4oOpJ3V2VZw81Bfjo6dHpLLB09V96utQEsedqlaOdDOtqSm+0rCs7uH1tz
IImOFBNC3xL7y1RsPE9aptKRyBsPphK4uH0y7+xzOvpXzi5B7C/TOXL5X2AO
HcXrzR8i9pfVNM5ZROfTkZt/txsCmxgGZKa/o6MULe0r/xH7vap+zxeV0pHU
l0wvQ/AJ3ZvGDR/pyPpr7GFif1n//BhfdTUd+alZbCD2lznnm3eX19OR12B2
NXH8h1txyvtmOjqfq+JA7Dc7t03craCVjppYLg0Q+9dmu+/szOmiI+EaBjoA
9o+dnMvoo6MqOdFbOsR+OmOrimQKHWmlnHumAb7N+jHk0Sjcb6Z+nAp4bZmU
aSydjpJz/toQ+83ue98TiPxJR3+mf0xvBQsozvWEzNGRhushK2K/WeKwXfr1
ZToqvOpwmxMsnlzj7v+Pjng5rHxWYPwzLRVVL7Mz0BYxa1ni+eTXrVSeWc9A
Uwld5Caw+g3nMEcB8F/P1A9EP0qj0cxmEwPJluxSySLm18sn/abbGYh8d+2x
a+BDTqzPDWQYaCKgpd+F6J+KeHghRQbSFNm31hTcE7F3ZdceBmrYP6kiBHY8
mFalpM1A++SjdizBfB5Z4YyQQQykuyMoqwc85dW9acshBlK/dtU4EewjhYY2
mjPQvfV+jkQ/abk/K2v9cQZyLH0xYwEmmfvtYXVgIC/KRBA7OHLN4J+V0wyU
YXzLqxfeRz5sUDvnxkC0PUdrC8BbVIWOj1+CZ5HOlm4FTh0P2kLzZaA78r+2
EH8vkEofofYFMpBPjxZjDtYDFYGiSy2hDPTEeH/gfXBRo+jezxEMZCT0QPkE
sR8tJGS1OpqBmnNcpbaB9eeORRcnMtBL+6XKHFh/bLtm8p69YiDlfe5CObBe
UaJPXnn8hoGkmFn7zoBdjaq044rh/qbj/LaCL5XGfg4lM9Dc+UKBSFgPw5JU
fnh1MFD1jTItU3YOMs/xx/muPQxUqRJmt8DGQY7jXvU9NchAhl5RTqng5KCv
pOPjDLQkyLlCZ+Ugv3E8L6n9h4ECKKfzz8L67Px+emsaKxP5pDY5LK1C/sXj
s3kNJxOx2d49Egb2+xDI37aBCfUa7ngC67u2YPg/D1kmWiqXtk2B+MDw5F5p
UWIinqhlfhFwclX0/J5dTGTSIVoR/RvizYWHTFZdJlIyCqvzXoF6/3NG75Nj
TGSx/4O/IMSfKxIyXasnmEii89tzn0Wox/xzWl0dmEiwPPBC6wLRTyhsUHNn
In7Fc9nBEM9Mb34s/nydiX6alDsXzZLIHerf45ezmUj8HznXlQn5WpRd9Kl8
JqLb9hVFMEhkDdpgRN07OK7WfzeHDvlwzGhwXCUTjUnXm/aPQzyjz16Q72Ci
vf2yCTyjkD8c8POM6WEijvfrldePQD70eNl1fpCJgm4e27AO4rGkAYtD1QTc
/4SZ1yyFRB5LXW96cpWJrHu7rkT0k8iPF2INMWkSSTLDbJ0hnhubCR6U5ppE
wkmU+T29UL+ubNGaEZxETqLKK80Q/y9ayclGKEyi1BDVmZI2yLe5/mP/YDWJ
yoUy/56H/ERgivdBte0kogSHabJB/qLY2ivVfGoSecyZP4itJZEdH3sbDnlM
oqyvxQ5PIZ+q2ZERwXFjEuU5O+e4Qf7Yv+bCFr6QSfQ7juz3GfLbhQmtPJHw
SbQtNCpHmtivUdjarBgP98tw7/5cBPmvDiv/saxJVDFT6lD5mkTO3vYlzS5v
EklIXnaZyCORq9ieqLkWTiIpd8ZPnlwSea5B9XhA2STqsteS1M0ikW2tnB6l
fJ1ED9bt9tBLIZGlL2AxxsIk+ibiN/HiHtRLR6Nez/2eRNnXZt0PRUI9rX5C
7x/LFJpV45Efvgv1w8rUqQ3cU4giLvth6TbkV2HimZrbppDedMNKVgDUV570
3QekppATVcV90ZdE3mFWXGsiP4X+0NYl6FyBfGij+ZjD7ikkkm5h+Pw8iXw9
2fBqPZpC///vM/4P/n/akw==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$2458#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, -2.67},
  DisplayFunction->Identity,
  Epilog->{{
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.8364054781551072, -2.6305105072231623`}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.8364054781551076, -2.6305105072231627`}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.8364054781551078, -2.630510507223163}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.8364054781551076, -2.6305105072231627`}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.8364054781551076, -2.6305105072231627`}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.8364054781551072, -2.6305105072231614`}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.8364054781551072, -2.630510507223162}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.8364054781551072, -2.6305105072231627`}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.8364054781551076, -2.6305105072231623`}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.8364054781551078, -2.630510507223163}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.8364054781551076, -2.6305105072231623`}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.8364054781551076, -2.6305105072231627`}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.8364054781551072, -2.630510507223162}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.8364054781551072, -2.6305105072231614`}]}},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox[
       SubscriptBox["\"\[Epsilon]\"", "\"\[ScriptL]\""], 25, FontFamily -> 
       "Times", StripOnInput -> False], TraditionalForm], None}, {
     FormBox[
      StyleBox[
       TemplateBox[{"\"m\"", "\"\[ScriptL]\"", "\"z\""}, "Subsuperscript", 
        SyntaxForm -> SubsuperscriptBox], 25, FontFamily -> "Times", 
       StripOnInput -> False], TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[Large], 
    GrayLevel[0]],
  FrameTicks->{{{{-2.55, 
       FormBox[
        RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.6, 
       FormBox[
        RowBox[{"-", "2.6`"}], TraditionalForm]}, {-2.65, 
       FormBox[
        RowBox[{"-", "2.65`"}], TraditionalForm]}}, {{-2.6, 
       FormBox[
        RowBox[{"-", "2.6`"}], TraditionalForm]}, {-2.55, 
       FormBox[
        RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.65, 
       FormBox[
        RowBox[{"-", "2.65`"}], TraditionalForm]}}}, {{{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->Medium,
  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->{{-1, 1}, {-2.67, -2.55}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  RotateLabel->False,
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.864964200293847*^9, 3.86496433413081*^9, 3.864967692015484*^9, 
   3.864967735929275*^9, {3.864968199349934*^9, 3.864968223282255*^9}, 
   3.864969592157625*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"8673ffad-d651-41da-a35a-80253557a868"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"last", " ", "seven", " ", "layers"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"a1", "=", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Enc", "[", 
            RowBox[{"L", "-", "6"}], "]"}], ",", 
           RowBox[{"Enc", "[", 
            RowBox[{"L", "-", "5"}], "]"}], ",", 
           RowBox[{"Enc", "[", 
            RowBox[{"L", "-", "4"}], "]"}], ",", 
           RowBox[{"Enc", "[", 
            RowBox[{"L", "-", "3"}], "]"}], ",", 
           RowBox[{"Enc", "[", 
            RowBox[{"L", "-", "2"}], "]"}], ",", 
           RowBox[{"Enc", "[", 
            RowBox[{"L", "-", "1"}], "]"}], ",", "EnL"}], "}"}], "/.", "s"}], 
        "/.", 
        RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "//", "Flatten"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a1b", "=", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"En", "[", 
            RowBox[{"L", "-", "6"}], "]"}], ",", 
           RowBox[{"En", "[", 
            RowBox[{"L", "-", "5"}], "]"}], ",", 
           RowBox[{"En", "[", 
            RowBox[{"L", "-", "4"}], "]"}], ",", 
           RowBox[{"En", "[", 
            RowBox[{"L", "-", "3"}], "]"}], ",", 
           RowBox[{"En", "[", 
            RowBox[{"L", "-", "2"}], "]"}], ",", 
           RowBox[{"En", "[", 
            RowBox[{"L", "-", "1"}], "]"}], ",", 
           RowBox[{"En", "[", "L", "]"}]}], "}"}], "/.", "s"}], "/.", 
        RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "//", "Flatten"}]}], ";"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a2", "=", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"L", "-", "6"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"L", "-", "5"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"L", "-", "4"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"L", "-", "3"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"L", "-", "2"}], "]"}], "]"}], ",", 
           RowBox[{
            RowBox[{"\[Sigma]z", "[", "t", "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"L", "-", "1"}], "]"}], "]"}], ",", "0"}], "}"}], "/.", 
         "s"}], "/.", 
        RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "//", "Flatten"}]}], ";"}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            FractionBox["J2", "1"]}], " ", 
           SuperscriptBox[
            RowBox[{"(", "x", ")"}], "2"]}], "-", 
          RowBox[{
           FractionBox["J4", "1"], " ", 
           SuperscriptBox[
            RowBox[{"(", "x", ")"}], "4"]}], "-", 
          RowBox[{"hx", " ", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             SuperscriptBox["x", "2"]}], "]"}]}]}], ")"}], 
        RowBox[{"HeavisideTheta", "[", "x", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox["J2", "1"]}], " ", 
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "2"]}], "-", 
        RowBox[{
         FractionBox["J4", "1"], " ", 
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "4"]}], "-", 
        RowBox[{"hx", " ", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{"(", "x", ")"}], "2"]}], "]"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2.71"}], ",", 
          RowBox[{"-", "2.45"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", "Black", "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "4", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "5", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"PointSize", "@", "Large"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "7", "]"}], "]"}], ",", 
             RowBox[{"a1b", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "4", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "5", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"PointSize", "@", "Medium"}], ",", 
          RowBox[{"Point", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"a2", "[", 
              RowBox[{"[", "7", "]"}], "]"}], ",", 
             RowBox[{"a1", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
     RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.7"}], ",", 
            RowBox[{"-", "2.65"}], ",", 
            RowBox[{"-", "2.60"}], ",", 
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.50"}], ",", 
            RowBox[{"-", "2.45"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2.7"}], ",", 
            RowBox[{"-", "2.65"}], ",", 
            RowBox[{"-", "2.60"}], ",", 
            RowBox[{"-", "2.55"}], ",", 
            RowBox[{"-", "2.50"}], ",", 
            RowBox[{"-", "2.45"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Subsuperscript", "[", 
           RowBox[{"\"\<m\>\"", ",", "\"\<\[ScriptL]\>\"", ",", "\"\<z\>\""}],
            "]"}], ",", "25", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Subscript", "[", 
           RowBox[{"\"\<\[Epsilon]\>\"", ",", "\"\<\[ScriptL]\>\""}], "]"}], 
          ",", "25", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", "Medium"}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.850022160200471*^9, 3.8500221885491996`*^9}, {
   3.8500225181050105`*^9, 3.8500226827316213`*^9}, {3.850022730019327*^9, 
   3.850022822872362*^9}, {3.850023059285286*^9, 3.8500230807012835`*^9}, {
   3.850023126889087*^9, 3.850023139392615*^9}, {3.850023220141426*^9, 
   3.8500232308331423`*^9}, {3.8500232701621714`*^9, 3.850023307076019*^9}, {
   3.850023343847576*^9, 3.8500233992207127`*^9}, {3.850023441064064*^9, 
   3.8500235500085535`*^9}, {3.850023605921544*^9, 3.850023724027521*^9}, {
   3.850023797459646*^9, 3.8500238026749697`*^9}, {3.8500239079520226`*^9, 
   3.8500239122934155`*^9}, {3.8500239645809107`*^9, 3.850023967194773*^9}, 
   3.8647973096911707`*^9, {3.864797404851809*^9, 3.864797423317152*^9}, {
   3.864801334535204*^9, 3.864801386984144*^9}, {3.8648028775031633`*^9, 
   3.864802897467705*^9}, {3.864802945654242*^9, 3.8648029463255672`*^9}, {
   3.864803053363903*^9, 3.8648030614375257`*^9}, {3.864878145643529*^9, 
   3.864878147533064*^9}, {3.864878200733797*^9, 3.864878220528657*^9}, {
   3.864878263682905*^9, 3.864878295670658*^9}, {3.8649622534310217`*^9, 
   3.864962254661462*^9}, {3.864963193436771*^9, 3.8649631961425667`*^9}, {
   3.864963243451109*^9, 3.8649632525535297`*^9}, {3.8649647943095512`*^9, 
   3.8649648467958307`*^9}, {3.864967656692713*^9, 3.8649676759707937`*^9}, 
   3.864968034612768*^9, {3.864969534525586*^9, 3.864969544429824*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"58e58fe8-7a7b-46f0-9a48-37a1921990b6"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV2Hc81f8XB3DjimhIFJUZ2auMjJwGIZEU2aFIRqmsSiVERma/ksosO1RC
5ifjm6SMRPZ1jbj3mpGR8jvXPx7Px/W59+39Ofd9Xucj6nTZzJmFiYkpmZmJ
ifFbg00xizyqC7nZV84e4GQjZk5Izl2+agGbpvVFGb6ZcLTJXcUB5GdVPmuj
/92+/jRF0RnuvR4wZzjQLd/jm4wbNPvrfdBCs1oMHmDfcxn4Mi5uZLhOJDzs
OfdV+J5ipKmJDnkk5qUe7Q19szR9DfTRDZWWbVx+YKtopLYfzR5kfsg9/DqM
M7uxqaMbF6ek2dgDwH2P4TtVdITnfZ6UkNug4jmhp4LOnI29tetuIEy/Nyrd
i75wQcal5F8Q1J621lZEG4j5WQcfCIH1nzlM5dFS/XUmpgH3IPnxLV1ZNNXM
Tp26HAY7rWpa9qCbNubKlu4PB6EtMS7i6LzG38IhfhHw4qXMgCjaQyeWQ2gh
Cq7UfL68C2283LdK3RcNpekd4QJohWLp2dKrMXBbqChkG3rp4RBdaikWgr3G
dnGj33Pe/F7rkwAVReFdzOhUeb5vhWIPIQm60v+uZyNCTQtbn7U8hJ/fwgyX
0acfDX/2lX4EpF4h6Rn0jOjxWpn+RDAaDlbuQ3fpjtVsj3gCk44GPzrR1RcC
q0jqSUDTjLJuQ0e+Ki4biH0KmrvTZxvQezQEC+N1k+FV+S23V+gNtqX5d2aT
4bjO28lM9K/bJ3M9klMgSizyeCragVJrtjsgFU5EqT6PRytILRr//Z4GnzRY
I33Qn96e1X0d/gLaTI8/V0FrN8jVSZJfQLuwVL8suqhz+VCy2ks44Mq0LIZ+
tJwAkcMvoSaOqOdGn4dGTecDWaB6SvsVlYONWGtSUhaYzYFnFo6Nj9FX+/4W
xujnQrOA8eco9Nhkk8K65FyoEMjNvYtu5naW+3UsD8oyfvxzQydZPJH88iIf
qm78+quFVqUwC921LIRxgQ77LnZcf/mZWaWcQohMz9j8Gb0n/lU9ebkQKrWW
0qrRXGn5qqnGRcCfaer+Er1qatm3NlUEjyfS466g+4sKpWuU38BOm30qJHSK
l339gdJi2NJtwr11HRvxzHZ9wf8Gi2HMv4qFFZ1oUPx4kv0d/PTt6ppjYyNi
RTjdn1u+g8gH6jLt6MDWd1v+Lr+DyoB2rxi0o9LGs5XapeC9jT2GhN49U7Gs
WfseSnP4HLpZ2YiAL0dC5iffw0ie8vZ6dGfu500FAuVwuT3uVQE6wrl3t+iV
clBOdvAPRs/0rBizi1QAc9yG+7Lo6gaN9G+3KqFM5UmyDwsbYf209JiHRg3E
xQ1KzDGxEYYZ3V9MLGsh1kpjMPYviZi5V+DS4FkLY7+C7nqjE12D17SCa+HC
F5b1luhxeXll6YJa8KtZ/SiEvl8W+JCVVAchLkc48lZJROMXSZuywjow1i17
Wf2HROgv+YyLsjdAgRbL7/ZlEqFnzMO68O4juJ3drv9ugUTEnO0KVCpthuN/
vherTpKIjyaCG0152sDv6fYe2WESMSnKd7s96Rvsl7ifFNxNIny8ZR1jtnXC
r3a7UMNWErGNc7rSQrQTnm+Ej2LospQ3/EJynXDuc9m21RYSsdqk0Zp/qBNq
xiQpBeggUQNo8uiEe3rfFfnQ0V/PC7LVdUJ7csyXkS8kIlMqufvG5S5YbLcw
jvtMIrr6uM1cGn8ApSnguPRHEnEs0vmHd/sPcN958sd6dKVGuX1w3w8I2VZ+
g/ofiUh9dM49deYH9FcMsuajXU1LQnr4u2HzUpysEnqlzqbU5GI35G+xmtVu
IBG78jJ3qXP2QNZUv+3FOlyP1Z90Pd4euN9GZjVGM3GYSp8W6gFKq+R/SuiR
88uqV/b2gBov//OlWhLxSuj4iTzrHngzn5QYjtaJn70rnNcD6hbTY0UfSITD
de2f7Md74axP+BgfQSJkzjd+n7LohTvMl+X/1JCIXyan67879kJ05+ATMjpU
3CMtw68XPBJERvLQ+S1PbSCjF6Q8DY/oopcl/rT4rvRCYuZ184BqElHLHVZt
x9YHGkXKXOfRUX94Xuly94FmnMuEEVqkTSaCZ08fvBZgEdmFPhpgrVtwsg9s
abtuVleRiPj292Wj2X2Qsu3lFi60bZVeVvPbPgiXZ3deqCQREtlt/3tb3Qef
XL4OD6LLbk1cvdvRBxRC9/w79ICUgLwgUz/sqe/2cULL3PFPO32mH0jkKtaG
ChIxf5EUq+XUD9/MF8TeoKtOx94W8+yHhGJPrxS0qUy2zUxQP3hu7Xx0A+37
vYsvqqAfSti9t+1D18mqR9SxDYByvijHq3ISYa94OmN28wA4RSTJJaOX9l6p
FN4xALvPfb8Zg5bTzJu6qTAAAS9Enl5FPzQQPqVyZgC6zy2SNdEKx7U9nBwH
4G6A21l5dOMJq3ux7gOQrV61XgT91yKhlH5nAJ6pxlDY0C7O7LteZg/AzhUi
+9t7rIeL4qrf3gxAzpGNER/RSR6HTJirBoAoMkusQH+9djPQrm0AnJ1Pa79A
qwdNj/CtDECZxtpLPzRHSterUKNB0CnYKiSJTk+f/6/YfBDeUkUHBdHamVvI
lLODQBwzaeFFe70y4gHvQQijhR1gRXdX1PguPhuEQVFJc0oZifCu6YuRyBqE
G3db4nvQm+qWs0+9HgSmN6lM39CHm/b1FjYMgq/8Ic96dO6PLHCdGgTj5U3R
OWi9vnrLR0uDsIEeb5qBnpme2e/ETIaj8bq6z9ERvzaaxXKRgffJ65o49Bmf
Z/ZZ3GQ4w/lKPwotvijjXs1Hhl8nLJjD0NUr+iF0YTL8tlPmvIWODOiMZZUg
Q9SFdCt/tOW/8893yJDB8SP0XkPPMQeVGKiQYX40wMcdXRPMXXdWgwx5m2yi
L6Cj2FJafHXIwOdI6T6H3rO+cvyFARkmJFzX2zGu/6jglm5MhrmOmlUrxueH
ptFSzMgQPakjeoaxfj1ez+dnyCAox+J3Gm1BCptKsiXD9r17/p1Ei9UtX050
JMPHex9LTqCn7nrM/s8FPy+eJc0YXX5w8GqCO+5H5q9KI/S9tZPzsV5kqF4o
4TyGNq2u94n2IUPTY9cIA/SuW+qLkTfIYBMmrq2PHtfK9Q+/g6+nrxM5ii5e
2bUSGkKG5DwZNT104PuYmyHh+P5H82/roo/7s/y9G02GkeXM5SNofnWf23cS
yMCqpJbF8MjCz7WARDLYqviEMVxUbH33xnMyPFW5k8RwwLUvLP7pZNhx8DKZ
YYO9B0N8svB1fQcrxvvzzr5hu5ZPhq2CnmyMzycXSoR5vSaD3bWiEYbzLyVy
XCohA9OA7iJjvf7yXBHuFWSgteoeYPx/R+i3uC4SZFBObSoxZNRb3kyUSwMZ
au/MnGPsT8/Fc5vON5FhX3CrLmP/MqU6YxxbyHDleYgVY3+v/jTYcraDDLdS
96Qz9l8nsyLetpsMCgdahRj3h9NZgdd6gAyjLE9bLNDplK3bzcfJsCV5+Yst
+lJaaKLZJBmSxmt2OqA1HZYFTOfIUK+3IZlRH+39A7uMVsnA/zLpIKOekp+d
TDZgHoJPbJscL6PdbOqFj64bgkRVtxJG/TF354gd4h4CHTUdJka9Nj/e9UKH
bwg2HR2bv4tOtIiR0N4xBA7pXUKM+lbq8JZSFx8Cf6kFnni0QwsoyO8fApmQ
vNu5aLnoN4UyB4ZAcauiyGv00nEJZanDQ8BFebdYio5p4lTZfXwIDp2RNPyP
Ua8N3zUEHIZgbxC7/yijXkMMKrY5D0EWibd5klGvRyq0ed2GQKz3m8VvRn0S
qbDZewgKbtVyc+B5IFjprsd2fwiy+V/yK6B5BVZWLj0YgqTvS0wa6A2+94t+
xA9BuYmnjC56VfHlzvznQ2DdIXjIBt2TMTBr9nYI7DnMA6PQ7UyeWZVlQ/Cf
gqv3E/Qnuz+2e6qHoNveITcTXbadv3G5cQjy99n1fUA/ijyZnDowBBKX2G3+
oKPHB09xjgxB6MU6B048P+/pXVrvPTEEFcCfI4D2Xovw1p8fglO6Q8waaLNr
9cem1lPgUMjezhvoTTbqi1qqFBgQm9nBhef/urKG/JeaFOi+EH9KCP2X97TT
5oMUSDy61qKMpn/1+kI5RoGfNTceWqGbDudmhDtQwNKz2DgfHSYjaNoVSQFz
V6Zoe+xPt8Py2A7FUeCLmg2nL9p3RKMi9xEFYgKdPj9AuyRb7LmdRoHabRk7
q9G6PLGr4qUUeKjE/VsU+yPTCkvOVQoFbENCkn6jHYa7f935SYFdHRfCubG/
Es1FOg/oFKi/GV8sgw5Mse/I+k0Bh6ivNWfRa7rla32cw1Abr5fbjP4Xc8VC
f98wfNY42vYa+/uqBJl1V8gw8LStv5CD+cF2c6mJdPgwHIvsJzehK5cePFGL
HgYh5YFHdHTAZy3Fk4nDYKpqVKqE+eOP12Pr0PxhUNdh/lSBXqkweT3TMQxG
9SuS/ZhfFk9W2TdIjIAhl8ud45iHgroL+3VkR8CyU7TbH73JMd22TGkEslqf
+r1E7/EKs87TGgGnFMegNfTp6JMWcSdHwOXQ3uYSzF9FTaPGdrfweoGH2/Z+
IhEXj2w6sNAxAixV9AfWzSSiV+XsTomQUTjtkprl+g33d1l1873wUTi3LN6a
gZ6p2sA6Gj0KUlxvFAbRJP1y6osno+Ck+SbKogP7tRVfuXjhKJxkzqnT/477
eeuzpXjPKJwiUTv2deH6/lN/tFtpDG6qyK1T6sV+eYZ7i1jfGLwxNn6RivlV
4OGIJUlwHHoypX5IzJOI/cHC27zFxkHN71qdB9riqvW3YclxoH6wSXiLjjdt
Na7bOw6pLnJ9BzEfb9hYeTjIYBy6HihPW/3G+3UvQY7Jexw470r+CVnC89jv
MNNq0zjIyTr9Lsb8zXLhVpV76zgUVAT0LaBFLMpu9H4fh9XUputqmNftVBQW
ysnjQNc1+VaC7pwRoF7/PQ7+vMLtb//h9+3i7LdF0Qlgbda58hzngwKb1Kxf
/hNQL5rzUZTERqh07V5Zd3sCdI4IhZuhK8yyju8IngAe4mpHELrRsGD24IMJ
UEmUYaagh9UrtaLTJuDj6GBAEs43bm8hOi0T39/yxpmP6BmFOnJxHl6/cib/
F/qfRNO93ncTILChqPIYzlP8vD9apJomgOWPz4E5dHKMjZh2ywQ0NUwX7sB5
TIJr0PtExwTs+PYp8jB6L8uYgO/ABHytaPCNRRvP/DpXNzcBtUoFPeI4H3a4
+5V0Lk7Aqc1iVgZo658rHNTVCTBofKXgjnYdYC7gZqcCWdrvewE6qHnzkt1O
KshF2HyRx/mVwyDh2BURKiQ6HSaM0DF1256HSFDhfoXXb1f0s3LBw3mKVJjf
C2Jp6N1qaQ+rVagQ1PuUpxKd+1r8Z5sGFaynyrQY83tptmzU0hEqtJ5zkOfg
ZCN0xAsHuAzx/QYuzQij61P2KgubUOH1f3pDauj2RxqdepZUaFEjHXJCW/JU
SVnZUWExQSXXFz344OBNDycqrOuuVo1A00P0RRI8qCDzQzC7AH2N6fPVzCtU
OCPx934NeuWmScN7XypEGBsFtjCe7yy2bf9yE//eZjligPF85pq5GzmQCjOb
Z17S0dFTPyp/3aPC9KfNX5fRvG62m9kjqSDtqsS0jouNeDo66LgjlgovFEQ1
tqDFHM8Vy/+PCjtys312orP7xtYdSqKCbELIG3G0oqWb1ekUKvC/vkiXQ5d8
m8y78IIK/ypYRVTQ2ieu/LuRQ4V4nQVDTXRd07xpdAEVXPy6XAB97Kh/Rtpb
KiRraF47gm798GehuIwK4l8y3I+izxy4Y9BYRQWLr7HHDdB9C2Oba2up4Kts
usUQ7VRg0lXxkQruA9m1jNd/upQkv2umgmeuop0+2kNYyKWwjQqfmbz6ddFz
XffkczqpsK2OBofQfrGT8+m9VPggtfOuNnrVwLzyGZkKGskez9XQQcxVwY9G
cb0ZunGKaI5ycaNYKhWe5fy1lEQ/uBrFEzFNhdWZnzOCaB7Z+e7geSqoORua
b0UnDtuk3VqmQtF1uyB2tNCzOle/f1TYxGbuvYL7n3FaVukKKw127LKQZNyf
goaV6vMbaTCV0El8Rqvcdgq150H/dUt5z3gepdZkbLmdBpKlexUzGfWV9aTP
SJQGRBiH2U20oQPzC709NJjwb+k7h/7Kf9EdZGmgzq/FYYTuDt+/sleVBo0H
JxX50PaHUz/IadJASzpy9xLW88gKe/geoMGB3QGZ3egp967tOwxpoHLzukEi
2lscBrea0CBqo68943nScl9m5sZTNLAvezlriiaZ+Koy29HAnTwRwIqOWDew
uuJIg3SDu+49+H3cXKNXP+9CA4rqyfpC9A4lvlPjXngv0ljSzNEp4wE7KD40
uCf9a8cetHjayFDvDRp4d2vQ5vE8UOQp9moJocETg4M3HqCLm3bu/xROA32+
hwpn0JrBwWu10TRoznEWF0brzptFlyTSIMt2qToHzx/rztm85/k0UNBy5cvB
84ocbXXt8WsaiNMztc6jnfU/aMaV4Ppm4nwF0V5lsZ9CCBrMexbxROB5GJqk
+NO9gwa1t8s1jFjZiA2nHhc4d9OgWjHU5jcLGxHHteZzdoAGR90jHVLQzwK+
kk6N02CJl32FysxGvLb3FNNcpYE/2bHgAp7PTu9mBFOZ6eCd8tluaQ3z1wZv
gXXsdGCxDjsRivZ9f4O7fQsd57Wajid4vmvy3v93UZIOSxUS1snYH2huXCst
cnTYELnMzY9+9iF6QXUvHY517KyM/oP95tL/6MwH6CCnH9pwdQXn/U/pPU/M
6GB68L0fL/afayJ7OtfO0EHke+sL70Wcx/xy2pzt6MBbceNS22/G84SiRmVX
OnDLemQHYj8zulNV8ukWHaaPVTgVz5GIDpUf8cvZdBD6R+Q60zGvRdpEny2g
A9W6tzicRiLUKAPhDW/xdeW+sBwq5uGY0cC4ajqMSXw06hvHfkaduyTdQYf9
fZIJG0YxPxzydYvppgPbu40KG0cwDz1edl4YoEPAHbMt67Efi+kx2X2YwPVP
GLvPkUnEWMpGI6s1Olj0dF4L7yMRj3/HHq0hTYIYPdTaCfu5gTHvYQnOSdiW
RF5Q7cH5dWWHxizvJDjsVFhpxv5/2VxKMlxmElKClWZL2zFvcx5hfW8+CRV8
GX89MZ/wTG16WGs9CeTAUHUWzC+ybT3izWcn4eK8ycPYehJh//jq0cGLk5D5
tcTuKeaput3p4Wy3JyHPySnHBfNj37pLOzYHT8KfOML3E+bb3xMaefz3J0E4
JDJHAvO4VFFbs2w8rpfm2vWpGPOvNjO3WeYkVM6W2VW/IhHZwl9SbfImQUTs
yrmJPBLxgeWJsnPRJIi70qY35JKI+UalU/7lk9BpqyF2IJNEWJs7PEr+OgkP
1++7qJNMIiQu1eyi/Z6EVn7fiZdROC+djHw1/2cSsm/OuRpG4DytckbnH9MU
zClvkB4Ow/lhZersFq4pIAtJvl8KwnwVKpShLjwFOjONK5n+OF+5UfcdEp8C
hyFF10UfErHbuKT+mPQUrFLWJ2hfwzy01WTMbt8U8KeZHn3hiXkz5ZZ0iP4U
8Mjbt1EcMa8EGZY/OD4FiYJ8lHZ7EjHtzGf0+OQUnK4ua31ng/dX7pVHrs0U
HJamqp4yx/xd1lfYenkKakMvy43oY95v01ITTJwCM9afyttlcD1aXB8qn+P1
3+I5Hkvg/rzoMbLNQFf9K1gTwXnL/7rj04IpeGfiPnZ/O9aXcGmUQMMUqGhv
/XGBlUT8dz90+/umKWC1Isnv/MdK3JozT7dsnQLzM+H3Xi+xEvSG+dLHvVNA
r/R7GzzJSnzy2DvMN4fX/3yZnv6dlQjsZL70bnEK1iiP5sxaWIn9B9uWTv+d
gvNPp3/2N7ISmVu9Nj3kmIbTJrG+tytYiZDyVxo8wtNAhO9OIZJZiXEBA+l+
sWlIesL4YSX+D/kFiT8=
        "]]},
      Annotation[#, "Charting`Private`Tag$2539#1"]& ], 
     TagBox[
      {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw123k8VN/7AHDLyJokpBKSfU2JVJzqQ0REIdkSqdAqW6IUyZatTSpryVJS
CSHn2iKU7NlnxhIzYyyp0OL33O/r9eufXu/XvXPvmXPPPed5njk2uJ076MHF
wcFhyM3BQf7Pt3Gwnyo3hVMekP+4ieNqubGfhKewbrv+ytY33MTT0WLVev4p
XPuC/zVvGTcxllbbQFCm8JygOVuK4CY8xaiUokU27s608/jWxE2c/SsRkjLG
xmIzEy0SdG4ioCX8zMlKNq5Yys9K4qcQsUz/7rlSNu4w5UkNEqYQmbyeu6+/
YeN1b2tq9q2iEM3IQvxxDhtfrxPfki5FIeQKxd+3JbFxWQRnpqEmhdjWzKvk
eouNUxLZ6hc2UwiL8YWEyZtsPKchHxmvSyECZQeP84Ww8RP32MeJhhTic0K2
kOFJNo40kegtsaAQI8+T/ZuOsfH4maFUW2sKsdAQTbV3YmO5kfFndBsKIc95
ruiiNRur52b8bXKkEEEX9Jxyd7DxmbFztqOnKITiwYZ8MRE2zhb9YxsQSiF2
ni0TzxRg4w9XuQa0wiiEdfTzq1o8bLza3ca9/waFCK5OOGS2OInfBD21E42h
EG2bj/y+OjKJl5+jUn/doRDjluYey4cmMbdtn7/dfQrx18ugJaVnEkdb/C3J
e0AhlLM2ZL39PIlt8h7M66RSiJBVDDNm6SSeV61z7symEEla/UWBbybxmfd7
d43lUIgc88/Sywom8SWfPWrsPLhf2OtZ2Syw1P7i4QK43lxQit2tSRy0HL3y
LKYQHR2CjKpjk1gi2FtxqYZCXDv+tjLfCdpb3fTav45CaM653L57eBK7dIvt
HP9AISJXvd7paTGJS/UmUt99pBAGB+3jRfQnsaaeCKdkC4Vg0DiPL26ZxA6+
+9uPfaEQyRfyt41ownERinl2K4WYTfhHK5GfxF17eAJlOihEdssTnaMik7jj
nlprx1cKceioJf8+wUlsEJjX+6OHQnBM/RrYvGwSO3VarBPtoxAOwuY3l/1h
Ybfi7+E7ByjECouZnhffWLhgNr3SgQbPv9Hg6p9KFr6Cj6xuHKcQCg7fDo29
Y+GdycGDTyegPyYSlL8UsXAmI6UxhEEh1PlHWrPyWJidsc1YjkUhaCbR8ub3
WPhlzqwsmqIQcd1bFnQSWXh5vdvZv+CdJwc+SceycLRi7p7SaQpxL2JTwOw1
Fr65VuvFxlkKYVbX9fHBGRae+/a7sm2OQvyyCU0NO8XC6S16l/x/UIgnIyoX
z7iz8BPGnMjqnxRiiTtEavcRFr5z24bzwC8KUbRn47lxIxaWP2g9n7JAIdYT
58T0pFhY5Y+ae/5feD9Et/puX83CDC9eaZl/MD49FtsNRFlYZOeHYwngLoEb
t434WJjLwSHTe4lCJNimiB6cY+It3826eTh5CMOcoz62U0zM0e2ZewI8uSjf
Zs9g4itrCMM6sFn6y8SjVCbe+yjo82UuHoKbWStyppmJU/aoGrRw8xCvDaLP
n69n4iBqzog0hYdwTTjw5WI1E7/W+x12GlyxtTc+qJSJX+kOVXPy8BD+oVPC
kU+YmLW5liG2jIeQby86G5PGxLFucYs24HaFoM9xKUwcXVWnfRu8qYkSdzeB
idU12OoCvDzEhPja5VnBTPwr5+YUHZx8auh0dgATPziQ0iHGx0PsLX/SnOvD
xNMt+4SMwZmuWrGFp5jYcHbkZjrY6s0c8407E9/bMtDZBF7iKTMvcWFiGc7Y
6B9gp3wjwUobJnbxCNthxM9DCPzj9646wMQCq913e4LfWbU01poxsdRPpapY
sMTPI9FNu5j46Ysfu1rAtaYyjM87mPhfq6IZG+zzcGRfmy4TS8rEDQkK8BAt
u87x96gz8eDLSmIP+MptHc9+JSben2ci7gRWH1toGJJj4oj7Eby+4N5tWHl4
PRPvWlvxMBocGRMeOSbJxOE5Ul1pYN3BfeMTq5h4Q8mXsjfg0U0rTCeFmdhq
ZM7iA3hP1wPeOQocH6iL/waeVj568tcSA39S8dn7E5x2Wb5+cZGB7b7dKucW
5CEsP08o/vvBwMoTf2ZXgP/IvozgnGHgz1LJ02vBeRd9xygsBs56qVEqD7b/
oL+X7xsDj2+5ZqEBXrZm6akgnYG168yLdMBvvWt5Vgww8Cb1ndPbwdtkz2pn
dzPwj6tVHrvAZR2rnQ3aGLjOOTTcCGwQVRXZ0czAZhIUaxMwYeBd5F3PwNm+
jS2m4D2zYlSuagbOmfqPZx+4LrtSMKWCgWV723+Q55s6ntLTLmFgx6QvT43B
jStE3RteMXBlYdiaPWCL2vK4o88ZOGmrqq0B+EugR9nPbAaefzvnpAc+qLFi
7FYGA0tE8m7dBO6kla5UeMTAN9hBNCXy+95zM6i4x8Df9jiekAb3mgl5Hkpk
4DaZ3PpVYOelt3cYMQy8GHWEnw9MfXOUuBbBwI8l7bR+Q3+7neJnSV5j4L3r
Qwwmyecl9WZ14WUG7m/M0BsEM24sOzd4noFHty3+qwCf2V6Y4ucN/SeV2p5H
Pj/2kQ9CJ6A/9GSz7oN/HH6xfocjA1fxqu8+Cw4UOryvzZaB371uk7AHLxIc
fp5WDLy9PvHHLjCHqk3zfWMGNn2v0L8CLPBnMWhOi4ENuDY+z4TxeqvwSXaM
KgP/nLJSuQEW8bBsk1Ng4KPHtzeeAIt/zlCxXsvAXz4OhymBZdNNv76gMHBC
o6JGGvm+2cxyGy9NYLF1y2QugxX4H2n1L0zg/DoBCzuwqs9UhMDUBNbZKeUp
AN5qdG/ryZ4JLHWhddoT3ufSeXTsX/sEjtCMWLULvP3FROzdz3C9+PpIcfAu
CYORmpoJ3NZx168S5gez8eEk2YIJPN58JIMP7BqrPd1zfQJzfP/qEwrzT1BR
UsSnkAmsPlfsbgW+2/9dqipwAp9f1zgkA25UL96Xcxa8bCT0PcxnWz5tz/J3
mMCP+rc9+A7z3TJhI7tVmycwcfxj9n6YD5/H21Xsp41jzqbnYe9h/p1PuhyJ
0TiWM/j9fRzm8yzhwTXJtDH8WzDN5tswrMeOiFe/fwxvP2T5KQN8PSd9rqdr
DEc8HjjqBHbb496yrnkMb7ws1tlKh/jGfzw8rXgM17q2iFTC+pU5MDuVHTOG
H6y+fuDREIVIf8774e3WMRynNJ9zEda/R2baPu1Ro1ipOXrTs3aIVwTNGr+E
j+JZ1wPLzoPzm9zkPl8dxeZ1uwX1wWX777Q1+I3iYO+MrKY2CtFj+Wtz5bFR
nI4qxL7Deixx6P33HP1RnNN8ScUc1ut4x31+VyZGcMKi0rUNn+C4lNunyyMj
uIQq9mS6mUKk9gcpXBoawZlvjv/B4ALn550XO0eww94Gi6Pg5qMrdD2r4PzZ
8oD0JgrBd7zz56EHIzhq0IZXoxH64/SxQJV9I1giW3H6XD2FGIxzeVT23wje
JtcUuAe8/ZUjYW44gt15nxuJg2d/2PKd3TKClbUTs8sh/jh21Sz59foRvCys
/q4geFfSltIds8PYkKNat7QW+qdoU38zaxi7GVX/iwPPd2lwuHwbxg3iZwVP
gAvXKZuG9g9jzVHh72JgmadSX2s/DOP5hD1//SD++VfCM2/xcBjvOUMRMK6G
eKOXS2ro7jC+o9a5URZc/GcJnU8YxiN3VcN+V1GIs7sXbybdGMYBoxGib8AD
jezV3eeG8eYNNF8FcMVAt56r0TA+5HfYYjVBIS5z5wX4TNJxhfo2F61K+PwD
l2Wu43S871LtcnGwm9aquxbDdOzHK7a4+B7iCcfg18o9dGzmwIisB0u+sZwc
rKXj6TnqFXdwkdt3N/NHdGyV7PEhuwLiv/lnM9vu0/EuNUeUAH4Y5xSqmETH
/NeezV0CXy+re8wZScfGbjJilmBr0eSvJRfpOMr6ksJCOYVgV+20lDenY5/b
bpEOYPrhmf6Ve+lYFg1VmYA7J596L+2iY0bfku5WcMWaFVG9unQca/+rXQQc
c4FWkyBHx/0z27sbyyjEFd57B6+sp+MpHxvWO7DPYzOatyQdSyak78wFO3x8
82+vMB0LXb8dFwlW3hCh/3eBhg/Xq/3cB5Yq2d7AmKPhSPONw9vLyHhvyu7r
FA1vPPJJQB38M9De980oDSd1zfGvANd+UX3p2UrD6k3P6rrfwXgJbZHvyqFh
n/oMOV+wXU+a4UAWDbN+uzJPgc02n7cfSaVhZHSa6QzWGRGJnb1Dw6mxaxNN
wXymB78LX6PhvbeLzsuC/6bLLZcIpmFHw6IZCfDswqzi+gC4n49b7nJwX/5t
B7UzNDzuE1jxuxTejxWdVSZHaPj03f/O9YKzTj3ts7ShYZULF7LawMlVfj9s
D8D3u/10eRP42kUJlePGNKwa+jGsAuzfPLbHexcNF1rdin8L9lIocfLZQcNz
vktfCsA23YcTQrVpeFHs7lwGeN8m5byb6jQs7RLT9RBsGDVfE6dEw673Oifv
gpV3PPj1aD0N9zXxV0SD19/xXPlEkoalTtb53ACLTuqr5a+iYTnNQJdQ8O/U
Xpd3/DSsPXq8wx88/SsvkKDQ8GaLcy4+4BGry0n1S1Qc0Lpy/VnwZy6pD50/
qHj2TqXeCXCNI2uof5qK5bSSb7uBS4sqFoaZVLz+Uc7Go+DME84aszQq7lUU
pNqD72MNk4V+Kg6KUROyA8dK/nPl+ErFGtYypw+BQy98DuJtp2Jjk09LVmC/
xtQ7wp+pmLlOqt6S7J+N5wrEP1Kxu9Ns1X6wSzBqkKqlYgs/3Wkz8KHOFfSN
mIoZrz9b7wObalJ/q5ZR8bHdGWMmYIObheKb31LxX/U7BXvBm6mhWvqFVOzj
divXGKyob71vVz60/6VPtxF4XdIGd5NsKt5bpbKNtAhzJtgyg4o9lJOb/gNT
jKrv2T6iYjvbrETSC4+SCp3uU3F+yqZo0uwfbo3uSVQ8qK7wlvSw5ZYRr1tU
nCR3QpS83tdn3P8uRFJxv+/XDNKfODpWXwqjYr8lV3eyPdVHnmiHXqFizmsj
dmR7S177mt+8RMWmD02Cye/zXNDYI84X+rP9bLspOP24+NW756B/kgydyP64
+340+ZEXFRfKP5T4X38FplzR86Bi3YEQTbI/lbccON52lIoNt18IJft7ZpLb
7IwDFcd4WwuRz6Msp1SLz5aKt19ebLUFh7mfEc86QMXylqat5PPcLy3328CM
ijc9kRBwAg/ejvlwEcH95LKU3MHPLHc9F95OxfbikkInwef5fyTm6lCxvuxl
FW8w11UX5yEVKl51K0DYF9ykv+q/IHnoz7QPnYHgO3P1yuIyVCykdq4zBKzk
pT1nJgbP775uSCQ5XuXHekaFqVhprYBCHPjdUAoO5adiM/t0yh1yvOXxSZz5
O4S1aMFe6WBqaMF/Rm1DeMOqD83lYJ+fq1cE1Q9hxX2hmjXk8zx9rfdlBZxf
/PFDI1jlsM2Fdc+GcJ7K2RTy/fbRWEydvTyE17x8/fEPeX6Wu5fyhSEslv+o
jwfmh3uSn7a6nBjCsy29civA5dzpzR+thjBj5o2VHJjSa7yYrjCE927xVzAn
zz/wsq5r7RA27E4dsAUr10kmCokM4b9Pej66gi0KmUqBi4M46jPdIIA8PyLR
9kDLIKY4fIzPJs//syh7o3YQN3EIjLwGl104zip7N4iv+Ih5Y/CQk16Y4pNB
vLaKKtJDnr9loPBv4CBeOtxQLAzzadmQstBzuUFcUCFuEgYO3sn5IkVyEONT
t/ISwQYPeiyihAcx58KcXjqYOBgdf2JxANe+5vvyHlxfxxTd0DaAO4cvzCyC
O/IL1ty7NoANR5N7g8n1JkBHKZTaj+cn+S1TYT0q7BBqONvVj8VHFfNfgS9o
j55ybu7Hr2uqNerAc4y7edtL+7GQ1lgmC/zb+ZfGj/h+vPsy3dQA1kM+ozId
L9SPN7d9dB8FbxTZtccmtQ+vrgvoOIAhn99EC/K63Yf3t0g89ATPW11/ExrZ
h1ecc4wMAzcn1sq/8OnDz0Qku0rAvqv28S4z6cOrqrX05WD9/iBxsLlkqhcf
0zef+wv2Wn/cbt3uXrz5wKvpFogPXqtGetGHv+L3g8Ux7RCfyLS6vlPr+Yp3
DvaOzIFjA/T5/D5/xYHl5YclIL7xqGU85X33FW+QXoo6ApZ0saCpx33FQtEp
62jgkERR+4BtX7Hr49SmuQaYr+YfGQvd6sZXr4Rs1ID4aqjulayubhdeLjMx
3t1CIUbV727Gxe34a1LjgzU9FGLllVxdTc5WPK31oOk0xJ/qulPqT78342zd
oeiPLHhfjSa/vAusxxcsMz5I/IT5xJR1QMe9HudtGKFvA3NYMD8XWNTjajvG
hAM42HaiOUuuHttGtJekgv1PjDbcav6Ah+xlrRR+UYhTkQPEMdkPeDenqqPm
PLz/zZ8K+RtqMe8O1katRQoR/aVZK/x1Lf4v75CHJbiho6ng36NaPHgNxZ0B
Gw98fP79Qi3Wy91zLx9syK7LGVhXi//iA8GKvynEJpHK9FfnanDP9pSY1X8o
hLhNQcKR1dXY8UCo2BjE568VY8qMuasxn9rlbRz/KITVwskR7akqnBr/zGgt
ODp1wzaB+ip80vyAuCX43/idoTL/Kmz67+fdIvBYyGVNqS4CP46v5wlZgvjs
QGLyexWMjbYg9d8cPETOnBnrLifGP9YJ6YpCfkB/QNl1tqcS27zjUFQB240E
fJOOqsSs9/KldmB0yUU3dPw9Nq5+m1UIFslS69jzrAL3uCrHHIV84/XPuhUN
8mUYP36wLRfykbi8zGrDhXf4dspUUiXY2+Wq39tP77Azpau5HSz/YVtfpv87
/NNr1dBf8L27+dkhDaVY9FTiZTLfCdJJNNhyugQb35iPmALbjZ+Zzt1VgqtM
frVx8UC+88gsS1a8BPe9jf8rDmZxU/iFK4vxf9GH2DvALu3+HeMrivGBJ/d2
RoD3+Dh5p74pwvHiQ1fJ+o20or60eGQRzm2mFyiAf/eIt8Y4FeGNak/KdcFF
u1t0L/EUYXqU+ll7sOLKPVw2h9/gYI/ZrSlggUKlB/y/X+G8/jTj1ZDfPe0b
vTURXoCj7QPFf4F7gyXSHm8pwPkve4W4IV8UljYptKa/wE1blEaFwf6uOW3v
0At8bOHoNkWy/jPqtTp6MR8LXgk5dQg8zp5KVz2fi7tvi008A0slyL4elM7F
9py5zFdkPUjbuibpUw7W7n37uRxcevH16KJqDl6rI6PbAo6a91VtGs3GndRr
UXNk/sq1+Mbb8QlWVbAz0If81yVLtU5G4Aneb/vIaDc4ycixq700C1f8+qu2
D7wYUTG/QyIL+2supdiDmwSvGgi1ZuCfWucW/MAcL15aElczsLHGMs4QsI4l
9aivZgbWn0kcDwM/Sth9vT8mHXdx+x9OBH9V5Ys7cisVc3vMv8kD7zrjWVjF
eIwDJN6XFYJzXja2qZg+xmbrbDOKwZd0bq1e5HqEw2anlleD1xqKZqQEPsDB
m72Pd4Ovh16s4epKxu0mxz37wczqjlGvLclYP0DMkgauMLmvuoN9D/PdvVXM
ADtbSxX1ud/BVf7x3H/ArO8/9P1qb+OqQPHZJXDwvRYsrHAbJ82GVHELQPv7
rjftHkvEDSwWF1n/Ur/iZN23NxGvnWT7CoPLZXW7fZ8l4HUejfUrwUVNbXUH
WuMwPYFHRBLcIRLRej3pFj5x9BjPOvB3W/2Bt4di8Zq+uL714M3UtLl1XVH4
3Mhh1Y1ga4VDHAfuR+KXStOZCuDzXsuErtvfxAfDDv1RAr+cO71xvDcc/6zx
s1YHf9aX1Vr3KAwHLGhbaILZV9q3Wzpfxy7jb1Q2gZfXRuy9Jn0N23gujmmD
7UV9n5zCV/GxU5QbW8D3H/WWf94dglkjX7i3grsUd7fr1AbhdzMu7rpgsVfP
GCl7A/FE0YssPfChHcJcnB/98L+TFbXbwEl1vmtOml/E3YejP+iDvxzo2/Tp
03lcNCKRux0sXRSWcCL9NNa+fuz0DvDDBiu8+elJbF7iKbITLDmwnv0v1w27
SGvdJa023Kl/z9kRb/R4tUhaUej8fc2T1rh4//QuA3Boh3LHuhoDHJ/LPEla
fcWAF4+GPLrhnnWOdNfM9TSReVPU7rfanvT0AaXZcz52SHjKZAPpy7f3Nnrr
uCKNGZ0m8vr/rlx6mKblgW68GrQlHer1/HS7qhdqDjSuItvLbTdkwKt4Doln
eS4nXSMbdfOxiA/qTDPfTn6/8Hty5/XifFH/DNOE/P57hSrsWwUDkJOWuS7Z
P7zXbXd7R11C45xePGT/Nfxiq/DwBiNvxX1vyf6OPhMpmhZ+BemcmTDWAWfP
JIRIXQtFU+/MSzaDT55UPVH87zqqtnHYqQU2lQtwCDMIR/xNfFYaYOWBGkur
4Bso9X6IkRpZfzvorMdYuInWHcEtiuDG5XlqJduikPTK+BPy4PyGnzLhAdHo
yVPVwQ3g04YJfNI/YtEF3HROCmyx0P+HsSUOlWR2RK0BaxapzJT4xKMr0oXh
EuD5OzSW8nwCCjs/JiUCfidwubPa7zYqL4zq5gSna4i3v5S7g1JQd+ZfeJ8i
rF5+edRyB31rv7lvAWxzb7jJX+UeovRJq0yDpzfsr1YdSEbmw2Ha5PvbbTSG
V0c/QJPHTL92gStPhr6n6KUg5vZYh1ZwzIui0sGEh2j7xsyZOrCi/vqXSUap
6EVZiNcLsJBTyfOrM6lov+GbyWzw9yvWeadT01CsXMz+dLArvfrgxuB0dCB2
6+MksKbyL4u/nRnooz53DDmffXxz1OhV1BPUarX/sQ54Z516jRL1CWqTUR5Q
Axd2LexO1X2KDE5xLMiB7y3cRjHDTxFOJGpFwMdRw3YPg2do66GdLxhkfb5x
k/aamVz0yO5Yw32wT//fl/Emeah5jUVTLHhsslFzWWoeKl+Tl3cN3Cziof7d
LB+VZn395wVOsXug9OnJc/Q+6PvfHWS9kc4pfc3+JRpf0+HSDeuLZtnhmU25
L1FMZtaKJrBi0ota6sJLVLFjPqMSLJjxfGu6RSGSzLbyfgr+Y2Xfv8QuRPcn
MhMvgAcKX6pg7ddoneMWHQo47bxLrUFJEVrZYymyCta3R078BXeHitBY4Hsu
bnCyadH9Sd636Jt/d/csrKcJsgLej+3fophbeqpt4NAvb1f+XXiLKoLbzseD
j21afrRiZwnyleCNp4A3TpcvbK9+h0pyxV17YL0P/vRf+NzkOzSSr726FtyV
1yRcsKYMnWtLfFEAjvbo27jhQhnSTnUNDANP9y5a8MqWI85EoUg1cGWdfmZ7
SAUq1XmQ6gfxh8PDErPT+hglJg4pzEJ8sy+r55OlfTVKOKI/lADx1PSNghN1
Z6rR2Pfr13zByafClnaEVaOTn7j47cHjGhraKgXVKAD/qZcGR5aG3uGm1KDw
E//x5UN81vBJybH0ZQ2yMCp9Wgnxm8m83/gG3jpUsIPrZ9sCxHsWotw/3tYj
r6OrTd7+oBDxR7tDN5U0o/2/O4u2TkL+YLl+uZVoKwp4uLpXDeLXyQ3iV9pS
2tE2hciUMIhv/XzVjsVLdKHvbc4R+75QCAmBqQq7DV3o8XJULwcuTXstKa3e
hdybSiX+QHz8p1H/y/PdXQiPKdELwNc3mKLG013ohnGnljg47vPx9Tw1Xagt
Nf7TyCcKka2c2hN0rhv9arOzSIR4u7tf5OCJhq+I3hi8XwXic7MYj6++bV+R
9zrrr/zgCv0yl7D+ryhcoiyIAfF++j137/Tpr2igfIj7OfiUVXF4r2QPWjGf
qLYJvFjjWGLp2YOerzwys7OOQkjlZ0vpCfSiZ+wBJ88aaM+R35nGYr0ospXK
bQHm4LNSsZHuRfQvSh82gUeOL2y9sLkX6YpJPp6H/OOF9P4D+Q696PVcSnIU
2DBp5ppMfi/Ss5saK6yiEK6Xdn7j3d+HjvpFjYlD/qJ6vKGTbdeHrnKe0/gN
+c53S5vazmN9KK5r6AEVHCF/OiMroA+dvi07kg9+3vLQEWX1IeUz+/4zAi8o
/G7xX+xDydmXbIMrIX8QuVnpzNOP9Au1BY+DY3+LvjAS6UfbE09MmINlW1Wj
RRX70as1XLJS4L3BDkYF1v3IiSl1uRLytaS2d6WjOf0oTeLpSkGw03vjZ81v
+lGUBq/HD8j3FHJa776p7EcfT3weHgKXhkz4XOvoR3TC6Phb8KDyGo31HANI
sbbHzw2sejUww+bwAKJQ33PXQb4550lJ2OE2gNptf8i9Br+3Sbgid2YA3S46
cz4NbKWa4zh9fQCdWdV1Lwjs39ktHlswgIp5fSW2gGvU9KJreAaR9vMNfC8g
n3XRssmaWTGI3KJT1FPB85svVMisHUQb3Tsvx4PVt+ezL2sOouAnsg99wHdM
ZQ7pHB5EPe6/qGQ9U3P/ztNuxwbRtWCvoxrghgNHbiR4D6Icvff8suC/drdL
WFcH0aOt8XQe8AkPXqmnOYNo3SKR0w75Ooen/Nb214Mo97/l0fXglNO7LTnf
DyKi8GByOfjzxcuhzq2DyMPDZucTsN71qRHxxUFUqr/0lKwX8KV1v4gwH0KG
BauklcCZmXMfimyH0BvGhqH14J3ZK6n0o0OIMLNsEQOff2EuinyH0E3mTQNu
cE859v/1aAgNbVCypZdCvoz74xWeDaGgay1JZD1EuGYh59CrIcTxOp2jHbyn
cUvfy7oh5K+x+0wtOO/rM3SKPYQsFoTjcsHG/bX29+aHkBArySqLrN9MTW9z
46SivUlGRo/B0d+XH0wQpCKxB69wIviw3yOXZyJUdFjghUksWP6XqnelOBV9
P2DHeRNcuWgSzpKhop/O2gJkfSgmuCuBW4GKYk9mHiHrR/b/jj9eq0pFx+pR
30XwLOf1YlMdKpobDfYj6084TKTmqD4V5Qs7xpH1qVietBZ/QyoSP0bvIetX
ivwV409MqWhC4RS/M/n5ek2vTAsqmu3Af46Q94/IYKYdpKK4ScMNh8n2G4ud
eXyYitarcwXYgO0oN9kpTlS0erPiP2uwXM3CueRjVFR/o774AFkfvHZ65u4J
uF8SV4YFWW/bNeRz2xv6I/t7hTn4xpL1XMJ5Kqr8USxA1vOsKmv94vyoqPH+
qWiy3icVovcrJoiKHG/K7yTrgeM78gKjrsLxzGWyZL2waFFqMSKcilLzVXXJ
emLou/jL4VFw/b3Pr5D1xv2BXH+vxVHRyEL2AlmflNTzu3L1NhVxb9J9Rnrk
x7el4GQqctLxu0m6sMjhWtBjKnqoczWFdPDFT1yBmVS0dtc5KmnTzbvC/Z7B
cRPXI+T1xWZe81x8TkWr1p/hIe9Pfalw8/wrKnK+WDhC+vnZZL6zxVTEMWj0
i2xvoIZgtHc5FTG/GBmQ3+8/VoigJ0FF2umNxWQ9Vzh/OvZEHRVVX512J/un
19Nd+HgjFW0J+2JE9l+2clf8sRYquvA4/AjZvz7fTFce7aCikHTFTLL/DbPL
k5x6qEjT4Is0+XwEPDTFHAapaJTrYQtZj86kr1ptO05FK1MXPpH1zLMZEckH
J6koZRyvcwVvd11YYzVLRbXGQqnk+GgbGJQy/0NFkk9TdpHjKfWRdaopJw19
5BE+do6sVzvWyuxdRkPJW72KyfHH2ZMrt1uEhgx1DTnI8dp8X+qJoTgNCe8d
m7tG/l5gF6+wcy0NuWZ2S5Pje1OHr7KePA0FKv8QTQK7tiBNjW00pBqefyUP
rB73+qWqAQ1prdKSfQWe36+grbyHhgTpb3+VgOMbBXQ27qeh3YeV9n0gx2td
p/4aVxrafJ03cJQcr+Gm5RIeNPSMItY8SY7X/8p3innRkFxfu91PcnwS6WiF
Lw0VhFSL8MF8sL7C25gnkoZyJJ9KaoLF1iwunr1FQymd8xz6YCH/yMKvSTRU
ZnlG1Qj8R+vpuuePacihY/1uR3Bv1uDMwTc05MJnGxoLbuM486yilIY+aJ7y
fQD+6PzbSbGShnpcXPPI+mbpasmGhQYaer7Fub+KrH/GWKemD9KQwllex9/g
uPGhQwIjNBThWeMqAPPnDeOz/L4TNFSOJHPXgH2Xon1N5mjokBGNUx988GKt
GZufjnaHb+4KAgs76v3asZWOBuWm1wrC/L+stO750+101HMy6ZA0+K+YjduK
XXSUvHepRRvM+nz+E92Mjr7hoDtHwI178rKiXOnI/kyRxXPwTdX1Vt0xdGR7
iiPOBdanKzfzeXYn0tEnXUcBf7D/iH553j06ig91a7oFPpFqp3glg46qJbLW
VYKNRBP+yJfQ0Z1NIj83wPrIsciV60OnI6fw8JSfYNfhnu9Xv9GRVMfJKBFY
X4nmQsNbLDqqvZxUpAoOTXPpePaTjlxjP+Oj4CWjsqV+gWFUnWSc1wz+F3/B
zmTLMGrS39v6Ctb3PwpUbqnwYSTayn8yF+IHpxUllipRw8gsZoDaSP6+OX/r
gW7cMJLWHrzHAgc37dCyTh5GVlvNSzZB/PH7/H2HiOfDSM+Q82M5eLHc8tV0
xzAyr11UGoD45Zf1e5c6hRG0T/DE1f0QD13veTlgqDaC7Ls29ASChY9lOpVu
GkHPvjwMeApWPH/TIX/HCHJLO3Z9CWwTZ22XaD2CTuze3FwM8Vdh46iFcwh8
fs0dic0fKYTnf8IGPzpGENd71i2HZgrRp3N0nUL4KLI5kf7sVDv078LWFTei
RpH7gvyXLPD0eyHu0bhRpCz4WnMITDEpYzx5MIrctr+OteuA9fqIeJn8y1Fk
zZlbY9IJ/RnSZC/fO4oOURgdW7qhfR/07m3cNIYu66gv29QH6+VhkZVy/WPo
tYXFk3SIX9fcGbGnrB9HvdnKXxXmKMS2MBkJX7lxpBtwseY02M7HoX1YaRwx
qhxvvwEnWX2xqNk8jtJPqPfvgvhYaHnFnuum46j7lvbUkZ/wvG7cVufwHUcC
15R+h8/DfBywh+NP4zhSV3P7WQTxN9fJkPfeX8ZRQXlw/w+wrF1pUF/nOPqT
3nhJF+J1Zx3NH2XUccQysmwvBndNr2Fc+jmOAsVk2t78g/fNc6b914YJxN1s
eOEx5AcFjunPvgdOoNoNufUbKDyETvfGxWVXJpDhf9JRB8HlB5/tXxs2gUQJ
n47r4IZ9BTO7bk0gnWRVTjp4WK9iR1zGBKofHQpOgfzG6w2Ky8iG69sHHa4H
T2vWUIvy4fOLh59/B/9TaLzR93YCrREqrDCDfEpS7GuLcuME4vrtZzALTo13
lNvZMoEa66ZeroV8TEFwyPdAxwRa2/4xZg94M9fYGv/BCfS5vM4/AWwx/d29
ZnYCVW8q6JWH/LDDO6C469cEOrRC7ogp2OHbIh/jzwQybXih6Q0+NchZIMLL
QFSVgM4C8PXmFfPO6xhIPdrxkwbkr3ymt80uyDJQstsewhwcXyPxOFyBgSLL
z/88RdbzytbvyddioLnNSC4DvFE3406lDgNd73soWgHOeyX/rVWfgRzYpTvI
/L0kRy12/j8G+uLuqsEnwEMYyr8cFNwH1xs8Oy0Drk3brC1jyUCvPhjTyHpT
2z39LmN7BmrRpex2+1+96r3yEWcG+nVbJ88fPHRr1+XTbgy0rKdyK7mfjBVu
Inv7NAOpfl2fUwC+yNHkk32BgQ4r/I3E5P6hy5Z17/wZKNrCPLSFrO/8al39
6TKc77gQTe5X4r1o60UNZaDpFdNPWeA49teK7zcYaOrjis8LZP3Ly2kFbwwD
qZzaxLFMkId4ODp0bG0CAz3R3KC/Eix3zL1I4y4Drc3L8VsHzukfW7Y7hYHU
boe/JveXadl7HbFJYyDJV54sdXBx+2T+yScM9K+cW5bcX7bzwIV/QbkMlGT4
Yx+5v6ymcc4qroCBTgR0n0Bgs72BWRlvGChVf/vF/8j9XlW/fxSVMpD8pyzv
veDDBldNG94zkN3nhP3k/rL+H2MrqqsZyF/baiW5v8ytwLK7vJ6BvAdzqsnj
304Up75tZqAzeVrO5H6z0zLSJ162MlATx/kBcv/abPcNjdwuBpKoYaLd4ICE
ybnMPgaqUl53bSe5n87UtuIRlYH0U08/1gVf53wfdm8U2ptllKgF5iuTN09g
MNCj3L/25H6zWz6xotFTDPRn+tv0erCo2lxP2BwD6XrssyX3myUPO2aELDBQ
4SXn67xg6Uc1pwL+MZAwj63vIvR/lo3apgvcTLRWyk6JfD4FdYuVx5czEft2
F9EE1rniFuEiCv7rlfaOrEfpNlrYr2YipZLNWtnk+Hr2oN98AxMRN/kOXgbv
c+V8YqzIRBOBLf3uZP1U0tMbqTGRnuQOPnNwT9S2xc1bmahh16SWONhlT3qV
+nYm2qESs3EexvPIIm+UImIig43B2T1gtnf36rX7mEjn8iXTZLCvPBpaZclE
scv9Xch60kJ/dvbyQ0zkUvp0xgpMsfTfyunMRN7UiWBucPSywT+Lx5go0/Sa
dy+8jyuwce3cCSaib7WufQleu0n80Ph5eBYZXBm24LTx4LV0Pya6ofJ9Lfl7
gXzGCK0viIl8e/SZczAfaIkWnW8JZ6IHpruCboGLGtdt+xjFRCbidzQPk/vR
wsKWquOYqDnXQ14GbDR3MK44mYmeOc1X5sL849A1k//4ORNp7jglngvzFTXu
yMX7r5hInpW94zjYw6Rqe2IxtG860X89+HxpwsdwgonmzhSKRsN8GJGi9c27
g4mqr5Tpm3PzEEKH7hd49DBRpVaE408uHiJRcMnv6CAT7fWOcU0DPwr+TDk0
zkTzYryLDE4e4pXLGbntf5gokHqs4CTMz25vp9enc7KQb1qT8/wSxF9CvmuW
8bIQl8PNAxFg/3dBIm0rWZCv4Y4HML9vF4v856nEQvPlCg6psD4wvQQXW9RZ
SChmQUQS/Kgq7sfWzSxk1rGuIu43rDdn77I4DVhI3SSizmcR8v2Pmb0PDrKQ
1a53AWKw/lyUVexaOsxCsp1fnvj+gnwsILfVw5mFxMqDzrb+JOsJhQ3ap1hI
RO10TiisZ+ZX3xd/DGGhKbNyt6JZCtGh8zVpIYeFpP8ReR4siNdiHOOOFrAQ
w6GvKIpJIXTpg1F1b+C4dv/NXAbEw/GjoYmVLDSmUG/ePw7rGWP2rEoHC23r
V7otNArxw25/r/geFuJ5u1xz+QjEQ/cXPH4MslDw1YMr+WE9ljPmcK6agPZP
WHjPUinEWNpy8yNLLGTX23Uxqp9C3P+ZsBdTJpEcK8LBDdZzUwuxPQoCk0gi
hfpjay/kr4tr9WfEJpHrOs3FZlj/z9kqK0WpTqK0sE0zJW0Qbwv8x/3OdhKV
i2f9PQPxiShb+E61wySihkbocUH8otbaK998dBJ5zlneSailEC73ffYOeU6i
7M/Fzg8hnqrZmBnFc2US5bu55Z6A+LF/2dm1K8Im0e9Ewv8jxLc/J/TzJSMn
kUx4TK4CuV+jsLVZLQnayzzV/bEI4t+dnCIHsydRxUypc+ULCpEj8yndMX8S
ycpdcJ/IpxBVXA+0PQonkfwp5pRQHoWYa9h0KLBsEnU56csZZFMIB1vXe6mf
J9Ed/i2ehqkUQuEslmL+nERfJP0nnsZCvmQd82Lu9yTKuTx7al805NM6hw3/
cbDRrLaQyvBNyB8W2UdXCrIRVVrp3fx1iK8ipLP0ZNjIcLphMTsQ8isvxpbd
8mzkStM69cuPQmy0KK41U2GjP3T+2zsvQjy0ynLMeQsbSWZY7X1yBuLNtBCV
cBM2EtVwaaUfg3jl+r6yW/vZKHm9OL3NhUJMeYib37dmI5vK0i9vHeH5qr84
nefIRntUGFsP2UL8Xdr/8ss5NqqOOKc+YgLxfusO3fXJbHSQ+5v2alVozw7B
qorH8Pn2JL77CtA/T3rNnbLA7/8VLMlCvhV46djDAjZ6a+k9FrkaxpdMSeya
OjbS2bnq60luCvEhMmL1u0Y24j5C0Vj3j5sImbXNtP/CRraHo268mucmWHVz
Jff72IhVEfAmbJKb+Hh687D4LHz+29PMzE5uIrSL8+zbX2y0RL83e7CFm9i2
q3Xe5i8bHX849W2ggZvIXnVe+A7fFLKxTPC/Us5NhJe90BeVmUJE1MY0IpWb
GF9jqjIgN4X+/+95/g9uuQDa
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$2539#2"]& ], {}}, {{}, {}, {}, {}, {}}, {{}, {}, \
{}, {}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{0, -2.71},
  DisplayFunction->Identity,
  Epilog->{{
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.7996795053655722, -2.6275545755778222`}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.6847696358954755, -2.605423262579177}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.3971142244755651, -2.5963018841223895`}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.15498101215945811`, -2.622818922619088}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.05343795800438511, -2.629105951062786}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0.016422643316187643`, -2.629915092311132}]}, {
     RGBColor[0, 0, 1], 
     PointSize[Large], 
     PointBox[{0, -2.63}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.7996795053655722, -2.590523355394496}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.6847696358954755, -2.5593646314269622`}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.3971142244755651, -2.6078203362182917`}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.15498101215945811`, -2.628941764104803}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.05343795800438511, -2.6299812713311383`}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0.016422643316187643`, -2.629999795007597}]}, {
     RGBColor[1, 0, 0], 
     PointSize[Medium], 
     PointBox[{0, -2.63}]}},
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox[
       SubscriptBox["\"\[Epsilon]\"", "\"\[ScriptL]\""], 25, FontFamily -> 
       "Times", StripOnInput -> False], TraditionalForm], None}, {
     FormBox[
      StyleBox[
       TemplateBox[{"\"m\"", "\"\[ScriptL]\"", "\"z\""}, "Subsuperscript", 
        SyntaxForm -> SubsuperscriptBox], 25, FontFamily -> "Times", 
       StripOnInput -> False], TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[Large], 
    GrayLevel[0]],
  FrameTicks->{{{{-2.7, 
       FormBox[
        RowBox[{"-", "2.7`"}], TraditionalForm]}, {-2.65, 
       FormBox[
        RowBox[{"-", "2.65`"}], TraditionalForm]}, {-2.6, 
       FormBox[
        RowBox[{"-", "2.6`"}], TraditionalForm]}, {-2.55, 
       FormBox[
        RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
       FormBox[
        RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
       FormBox[
        RowBox[{"-", "2.45`"}], TraditionalForm]}}, {{-2.7, 
       FormBox[
        RowBox[{"-", "2.7`"}], TraditionalForm]}, {-2.65, 
       FormBox[
        RowBox[{"-", "2.65`"}], TraditionalForm]}, {-2.6, 
       FormBox[
        RowBox[{"-", "2.6`"}], TraditionalForm]}, {-2.55, 
       FormBox[
        RowBox[{"-", "2.55`"}], TraditionalForm]}, {-2.5, 
       FormBox[
        RowBox[{"-", "2.5`"}], TraditionalForm]}, {-2.45, 
       FormBox[
        RowBox[{"-", "2.45`"}], TraditionalForm]}}}, {{{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}, {{-1, 
       FormBox[
        RowBox[{"-", "1"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1, 
       FormBox["1", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->Medium,
  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->{{-1, 1}, {-2.71, -2.45}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  RotateLabel->False,
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.864964847254713*^9, 3.864967692112718*^9, 3.864967736031333*^9, 
   3.86496804152859*^9, 3.864968223384224*^9, {3.864969541264529*^9, 
   3.864969544844784*^9}, 3.8649695922552*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"3622d11d-b5a2-4ff3-a06c-3ba098e13926"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Plot of total energies as a function of time", "Subsection",
 CellChangeTimes->{{3.864962502014305*^9, 
  3.8649625167349243`*^9}},ExpressionUUID->"dd2a4faa-bb4a-4e52-bc40-\
c1497d007e62"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"totalenergy", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"En1", "+", "EnL", "+", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"Enc", "[", "i", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "2", ",", 
              RowBox[{"L", "-", "1"}]}], "}"}]}], "]"}]}], "}"}], "/.", "s"}],
        "]"}], ",", 
      RowBox[{"En0", "*", "L"}], ",", 
      RowBox[{"Enp", "*", "L"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", 
      RowBox[{"0.01", "tmax"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.3"}], ",", "15"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "131.6"}], ",", 
         RowBox[{"-", "131.2"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "}"}], ",", 
       RowBox[{"{", "Dashed", "}"}], ",", 
       RowBox[{"{", "Dotted", "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(E\), \(tot\)]\)\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*SubscriptBox[\(E\), \(P\)]\)\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\!\(\*SubscriptBox[\(E\), \(F\)]\)\>\"", ",", "18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}]}], "]"}]}], 
      "}"}]}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "5", ",", "10", ",", "15"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "131.6"}], ",", 
         RowBox[{"-", "131.4"}], ",", 
         RowBox[{"-", "131.2"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<t\>\"", ",", "20"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<E\>\"", ",", "20"}], "]"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.864963344713462*^9, 3.864963410234716*^9}, {
  3.8649635115078278`*^9, 3.8649635317131*^9}, {3.86496391578931*^9, 
  3.86496392042793*^9}, {3.864969247263719*^9, 3.864969255435583*^9}, {
  3.8649692928147573`*^9, 3.8649693292969027`*^9}, {3.864969362580902*^9, 
  3.864969435529765*^9}, {3.864969472418458*^9, 3.864969521914905*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"26b00236-25b2-4eea-a62c-56fe502b1a92"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwd1Xk8VVsUB3Czi3Cv6ZoyJVSEUtHgrDQhFEpCSA+hkiHJUCqhkjzRy1xC
yKNMEZnKXGY9CSGZh8xz3t7nr/v5fvb97LXO7651rrSNs5EtEwMDwxVGBgb8
KSVzts51b4Rm8UXuXzr21qVjVyPdqTfciOqH1lp6yHs7std/ed4l/rhfiDNA
7uU5WNHo+YSAM74mxshqqewKlZ4vidY3Vr0WyEku5yO7BpMImKg0sEIW2lvI
OWeSQmQl0srPIy/WXhnftOtfYrbz8Ac7ZMt5x2+lntkEg2WcsAvy0w56mN6b
HMJyYbTKDbmh+JNu+2AuYfJ2/LYHMgRKFE2a5BMTR4vpPsgyws1xErs+EOcd
VVoDkWdixHcUe34kHFsWC18gU3ndePwFPhGd0U/UkpAVb9eM6Lz5RLj7qb5P
Qf7L1uNl22AFkazqMpaJ3KrUKDBuUk1chOjBYuS84rsLYru+EJRvJzh+IB+4
eq27yLOFoHeacsldtC79XaQ3q/ilhUhIKqNvQ07kkOWMlW4lhsLoW1WQOV82
7/KtbSUGnE9a7kVub1N+dED8K2Go4bVmgOy+b2RfcUk7MSYp2uqJnM5mFVnC
1k0c1qiV+IJsbbw7U9m8mwi29TZrRuZ/zl0Rn9lN2EhQw/9D9tIo+n3L9Aeh
YCPO0Icsm7dBVup0D5GxkTtnHnl6yMG7J7mXsN9BuyjpYF36yEB263ndfkJs
V1XfJWTqLqblzy79xOSS5G4X5DCxnhr1yH5is7jT3WvIT4eiHahD/UTIW2uu
m8hxd/hTS+79InY86KwPQc7IY1KQKBsg7hX8FMlEbpTo3fx9zzABsUURI8hG
rCVzR62GiWiHL/wTyK2jMRVZAcOEi4/6wynk9nxT2wdtw8R7HV27ReReo8ZE
DbcRgqfBt57VEfUfULLpWcYo4Sda4SqJzD8ZK3168wTx74NTPgbIehl/rSwf
nyAuX+naaYjsf3lb23PXCSIoe2rAGHl+ND9orGSCWGbmhrPI7UMtk3fNJonZ
kzdLLiAbTLFYfTv2m7DZc4TRE98/uleJ4jtFaJg8H49FfqMrIWoeOkVwhk6o
Psf10hjZM15OEW67DdwScD2H6h7j2inCYMfp8WRcb/B0eDx9mhD1Zy3JxPX6
r67szpomzEqnvpcix3Qn19gOzhBZUw1Mvcgyh64xWKzOEEPfOOg/kV+9OrTH
iDZLeEfPyv9Czrrak6i5b5ag3KgkhpFrmET96I9niS4unmNTuJ7co901u+eI
b4+4sxmcrEt9HppfLjk+R7QGqvzNhMz4e0tirvUccX150IkFeUNBJS3hwRxR
NLyBTkHedJxh3Kt7jji6UfkwL/JJZ7eXigHzRP9NkRVx5K8tBztkoucJn8sN
CRLI5upUmsibeaKWX/WYFLId4783WTvmCc47lIBNyL5PBs52Ky0QnE7POrcg
p707Sw1tWyDYTD5M7UJmYQDfGdklolV5w/hx5Dj/wKd31ZeIHfdNpfSR1Tka
Mvn1lojrvrcMDZCd+Cz7drotEfuf+vx7ErlZ1ueYe9kSsRoop38a+YVOPm3u
3DLhf+yLiiWy5hOV5PmnK0Qe22zOFeR2umdJQNoKUSJk/cYZ2TWmpF2oeIWI
ZLZNu4qclGTAtefXCrGz72CUK84n/9LV6ztXiZzUdAcP5I7OlL2LDavElGx8
jS/ydTnphiXKH0IyVD/yIfJypvEOJYk/xOTMBd9g5JsaARHWO/8Qiyc4rB8h
++uNmled+0NUnqVIP0YOdc0dCs/6QxSb1/4dhvMp1mFSsVgnXgkeVYpEVtL2
sb3gsk4ksUgvY79pyqh+GrBOhKT5VkQhv+vnf7z2Zp2o9v14JgbZhnXy0S8m
BgiUeeUYj3xlW4Fo9hkG6J47q5OErHLV6LOeDQO8gZA/2FM5o74Dlxgg5Y5u
VjKyu6ZEr8gdBqhtOSOYguxtePeVXzoDSIxP16QhB13XVzNgZISrTSETmTjv
j736w2mMEFyyT60AP4/m3G3DXEbQO2JViO1XQMkrKGEEbb1zB98jW2YqSzxo
ZQSf8BmdQmTRaN+JrX8YIYprRP8DcriryONLhkywrWdtUxny3XHFj63mTGAT
fzIK2/UiLOy3YwLF9GzecmRDS3srbm8mcJHNWsDm0c1VzkhkAkuipegTcqC0
YePkAhPcWNKSqEb2iPmLxZSJGdiZvgRg29E91Us3MMNugdAJ7MPc8c9DpZnB
z+JzYQ0yw9LYVdXjzOCjpadfh+zVGERzi2OGqbk+/Xrky7dKjeYPs0BOyen6
FnzfA6rnawMWKPluJdaKbB1hHWttygKKPl322EavGYZqnVhgZUxtHVv9P/CN
D2OBxbbz8l+RmZTLXmn3sMDnudlz7cgrGrQva8MskPrsfAL27OHz01kzLLCv
5ugA9qAZ44GN7KzgyeRz6Rvy54CDzVNKrPC7PNq1A/lpd9lqlDcrzDut2XYi
Px6myZy8xwpRP8QTsINmzx9jfcwKKZeKurC9OZnCnBNYQV3Xx7gL979bS/5w
DSvsvcmk0Y28NaTccFyIDbTz2sd+IJcc+JhMZLHBkI37Wh+yYh3FpbKIDVyy
32//iRxlarBPv4oNJLSCrbA93L41mHWywZGYhhLs7amTi9fY2CHSa8SrH++/
gPjxdDN2qAJq1y+8fwnnBXfaskOI8AP2AZy/8qsfBc7sMP0jQRXbRHeHe5U/
O2gLfvDH5vHTju3LYAeb0Hy5Qbx/o+6TwswU6DodYjaEPOb5viCemwICmgm3
sM3YGPzlhCnQJn4xEXu39ENhNSUK7H7NPY49YfLi4IkzFIh/O+k1jHyu/MuT
e68pcLS05f4I8v5IOfVpYw6gmlR7jiHn5KXMVJzjgNjo70+wFVu3Zkbac8DP
uQ8Z2OK8ynIHvTlAOXP6J/aq/x6B0AQO2M0ppTeOXHRV+7fSFAc884jln0BW
C6l9zbjCAUL7P2zDTn+tZ9/GwgkX+zIOYccMnOz2EeYET1mKG7aPxdnPdQQn
tEZGNmAf0HZMcQjhhK6fdn6TyHm2YxcOPOOEmLT3Edjb716RpCVwQvXzn2nY
EsWuT/NzOeFvvbxW7D87vf3ZuzhB2u2c3G/kYslg66RtXFBrMFyGrbnwr3Bv
NRecWFn+PoXcr5tmcreZC9gshcew78clh2/u5AKVccFV7NYj8VTHSS7ovvhW
bBq/z8NDKTOCG2Du8ZWz2M9U3RZZLmyAU372DdgzTurtCmsb4N5s86sZfF6i
JlTHxg3GjRE52Jr8qqcuU7mBK+NQGfaD91sa327ihi+N1h3YUhxi1Xt1uUG4
LJlrFtkgee2d3j/ckH4k1RE7paf8n6uqPFCrOyk2h1yel+PVv48Hbp+9II/d
GZx8zvQoD9hkV+zApmk82ATmPNAxfloH2+tvw0zeezxQffLVNWx9rZ7KjHYe
CM4XqsOefrk2N3aLF5qUzBzm8Tx7TbZbP+AFpupMV2z5k72FreG88Pm/WW9s
i9VPt4tSeeHpf3oh2BWngrmDW3gh1E45C/vznUdhEfxUUFiqn8eO2ymepmZP
hcuKYW4L+P/BbqeA4CUqJL4w9cIuj9S9OXeVChfXqLexB9c9jfK8qJD140wI
tsrntuU9IVRoiTiUgl321+Pj+3KpsFqQ8A279Z/kXLH3VHBoD/+BPVD7QXK1
mAqiIV6/sDlVx2aKqqngyCk9hW20ph2j2UmFvbe/sy/ieYhgGj/ITIN3tpI7
seerRc7IUGiQd/y0OjZlVaWMiZsGTYZ+B7CVbKwiPgrRYGZL3jFsj+1FB45s
pUHf95fm5PerroVoG9LgiUL8bexti0PKJ+JpsNOuuhLbc8zr0rNEGrx/ta0O
+1PPhtTeVBp86bzXgG1ZoyLjnoPOd0m2Y4dGeQpE1tDAwX9oCHt2P2Wpb4YG
W7/OUJbwPt6WL/fQ5gPfkIeHsCkeBX9K9PngXPLqUezTjsf3cRjzgZ6jvS72
hJFzTvQ5PiiK3mqILSX7LrnUlQ/iDC9ZYt+rPPqQM5YPDsX1Xsc24LI7FTfF
Bx6mjK+ws0R3NdfP84HE3eJUbMGtLCfXV/jA7uH1dOxO7YTj1mz8UP6n8y22
Q0C3lowYP8xyXivC9mc8o5p8mB/2ne1pxB6kymV+1eGHvsfmLdi6UnOK7Cf4
4VBZcxs2jXiicPEsPzAq5XZgx/k0SG69wg8qe3T7sQsWjvFk/MMP57Vy5rHF
2enB3TH88MZ8chHbT2iAgzeBHxod5Vawj+7yZ72azg/qTkHr2K2upauqZfyg
5SNGWcb5jKuP5o7wg+jEDWFs2f4t1R8OCMBLF+bd2MH7/ikO1xKAxJHIPdhz
YSy5TscEoC5SUQO78uCPFyKGAvDXk6P7se3jw72v/SUAWSz6WthpZuvblR4K
wHR6kj42X9alzSyhAkCRYziB7c3RIfY9XAAsVkxOYuvl51DuxwlA+fslI+xx
Qce+/rcC8PgPvym2SlNrREy7ABhLvDyP/UxBK9itSwBaZytssBn9Mu/o9gnA
x4hfF7Cbtz9wXhwVgNIAMTtst2BC59S6AJxOtnHEzjuWtsolJwh//bF1xT5Q
fOuCt5sg5EeG+WH3fLVXLPQUBBPba7ex70yemFv2FQQOHpM72NVSUoFeQYIg
J0rzxza6W5p2I1YQPi84B2Jf1Gacvl6Fzl90PcIOb77j5y4mBJaDHyOx94w6
6uRICYFd9Y0o7A5mY77ZzUKQVbo9Glty16ZENxUhyJV9GkPm+c/HKtcjQrA7
0Dweu9SChdfFWQhmM0sSsccG7sVe/igE6jozGWS9Yxt+GFcLQeucfyb2/pQw
qb1fhOB+guAb7IcO8S/Z/hOCN1pqb7G3juWnxo+gfrrss8n+p0Zzm2h06E5I
eodNNXJdeCdEh6IWhXzs/KxF9TgxOnDxvSbN7s5a5LiZDlqV6QXYyfMS5cwa
dJiuTSzE/rViWL/Lmg7fBc+XkPNl0c4rbkuH1voW0mofLA2ZHOnA432kFNv/
plNrvRsdouM3l5HzyXivwz6QDluC2suxbdjyByIz6HBEkqMSm9NeU8EvG91n
4Eg6q+qTg10+HX471JJmvN80tqOcDpTrgVXYz7lGp+va6KAwOVuN3U2VWF9b
pUOacVwdme8OSX59JmGwH50jnXBKSj6GXRjtl95nbLtnMif28gnDZoF50pOS
8vEe8sJgsnN/PTaDsgoxaSgMkTWRjdh9J1WNNc8IQ5RxL+lPrjvsH1kIQ8e0
fBN2UJ7a4232whAdkkWapqnxw95HGBruFjdjy+hr3epJFoYBnexWbBbnQ0+U
04WhqXKC9EDo4Vc33wpDeu6WNnJeWo82iBcJg82vWNI7LY5Lnm0ShnrFW1+x
DzudKmlaEYbAMPl2bNv7duvlJ0Wg8JzUd2zLysRTS6dFwCLqOGkT5p+pyuYi
wO7pQVrb1+pUjK0IdIvXkVZ0MU295iUCI7POndizprrGCokiYPUspYvc54ig
FMtUEXgkUk96oLlyLTxDBMKIGdLteodSGAtEYNhvfzd2Iexf6/giAuF/aknf
Udj+6tGCCNjS23+Q7w/bS6sfV0Vgbd8iafeENMNlRlFopwr3kL+PuPyq3QZR
+NxkQlqXKmUI0qJQ9LWRNG2RtjKtKwqhk3m95DxUzRmYxonC5UKjn9gxTRkj
tBRR2KJ4i/Sz7/YBdW9FoYD9NenQyW8fNCtE4R4LYz+2H71YcfOYKCR6JpO2
sg/gnNYQg5F33b+wzVyI5NeHxGDqMssAmaf34kFbfTFQHt5C2uCx4412azEo
UXEnrfnOYKg4UAz27GAbxJZgp1c+bBMDZy7pIeyQJxVs9B4xSDQ7Snpd0v1Y
wogYNDo5ke5Rb6rOXxeDpewc0i8dH9b92iIOLFKHhrEFFjQ2uKiJg9eALWn/
u0N6q5riwKYfRNou5kg93ylxUP9YR1qhfr2RuCkO92/rj5B5mGXQ6oLEAdou
keYYtDAyeSIOoUkPSY+sF7RcShGHgJoq0umq7l8jm8WhzWjvKLZqxND3GbmN
0OFJGcOWqy8mEvduBLVHaqTF2SNenjLYCKcOWJFmu3HQKffaRmgTeku60yJq
2ePTRhC6oDOOHSirJ7J8XgKCCbsJ7L9vzCc1PpWEPYWlv8l+Q1KGxl2lICj7
3QzZb69EmBavNLh3uc1jV5iNP3ibLw2ah92XsM33WL2mWMmA5aaEVewnAlE/
ti/LQH2/7zq2oIjSBeeETRDV5My0gqwhcX/5JiELltG8rNh7AoIKPL7JQnOE
Mzv2LcGeqiC/zeABZRzYDkkMIw7ichCjkcWFHWtxw9y2Qg5+y//Nje0mUNij
fEEezkwL8WJvUn7+qG9NHpoaLlCxN7p03c9MUoBg3RgadkH2z8jjWlvA+EgE
H/bzjVpLjGNbINzXix/bauSQ3/OwreBerS6AXfaOR4xn+zbgWK4nfSVdlfXp
121gvnhGELvwxUbmcTdFCPH5SPrnUrqCIo8SONwXF8I2uREeey9XCTqLLpN2
WDosl2G4HeRv/kuaqaeF+7+U7TCz8QvpqEqbufX17SCTMUz6f/P+Xaw=
          "]]}, Annotation[#, "Charting`Private`Tag$2634#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQraAUebrIaqodAwgUJBz4PEfGaF/FYXsY37ag9N6e
istwfq+filai1xM4X/j9XMVQ1Xdw/px7y06mPv8M57MwONR+VvkJ55erKZ7/
yfEPzl94+KHvy1WMDjB+bv2BoG8uLHD+ftvDy+w3scH5NjPVLD4Fc8L5dt/X
Sjw8wQ3nr3hwaHqBIR+cP89YZpVJugCcr/3jhb7/fEE43487LWTeRyE4X+WJ
5om9tiJwvu2++uTqYlE4/82z1rm5h8Xg/HsCcv///hGH81M70/4fCpCE8xcc
/+oXMU8KzpdjFz/WfVUazjec+uL2ZzVZOL9dxUfyV6IcnD+x8tvSC9Pk4fwZ
fStevC1SgPM5H8pNcuJXhPOPRr3t2rgDwY82j1/NEa8E508WmXVf7xeCLyqp
m5y/SBnOt5Tr/FVnrwLnm7d17Cy7ieDXiz443tGgCudnLmV4lSmjBufPjamM
Tj2K4BeL7H6gn6wO5yvrL+h99BfBly2827l+qQacv3Pz45neTpqI8JN1+sn4
BsGPf+XcsGCSFpx/cDufNJ+eNpyft8aQddo1BH/3Qlnmt8U6cP7jn2s0dPh0
4fywyilzW7ci+Jk/XdTWBerB+UwPLvNeX4HgzzqW9PX/fwQfACc3Cfo=
          "]]}, Annotation[#, "Charting`Private`Tag$2634#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6], 
          Dashing[{0, Small}]], 
         LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQraAUebrIaqrdxDf9UhcLEg58niNjtK/isD2Mb1tQ
em9PxWU4v9dPRSvR6wmcL/x+rmKo6js4f869ZSdTn3+G81kYHGo/q/yE88vV
FM//5PgH5y88/ND35SpGBxg/t/5A0DcXFjh/v+3hZfab2OB8m5lqFp+COeF8
u+9rJR6e4IbzVzw4NL3AkA/On2css8okXQDO1/7xQt9/viCc78edFjLvoxCc
r/JE88ReWxE433ZffXJ1sSic/+ZZ69zcw2Jw/j0Buf9//4jD+amdaf8PBUjC
+QuOf/WLmCcF58uxix/rvioN5xtOfXH7s5osnN+u4iP5K1EOzp9Y+W3phWny
cP6MvhUv3hYpwPmcD+UmOfErwvlHo952bdyB4Eebx6/miFeC8yeLzLqv9wvB
F5XUTc5fpAznW8p1/qqzV4Hzzds6dpbdRPDrRR8c72hQhfMzlzK8ypRRg/Pn
xlRGpx5F8ItFdj/QT1aH85X1F/Q++ovgyxbe7Vy/VAPO37n58UxvJ01E+Mk6
/WR8g+DHv3JuWDBJC84/uJ1Pmk9PG87PW2PIOu0agr97oSzz22IdOP/xzzUa
Ony6cH5Y5ZS5rVsR/MyfLmrrAvXgfKYHl3mvr0DwZx1L+vr/P4IPAJmepCY=

          "]]}, Annotation[#, "Charting`Private`Tag$2634#3"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, -131.6}, FrameTicks -> {{{{-131.6, 
          FormBox[
           RowBox[{"-", "131.6`"}], TraditionalForm]}, {-131.4, 
          FormBox[
           RowBox[{"-", "131.4`"}], TraditionalForm]}, {-131.2, 
          FormBox[
           RowBox[{"-", "131.2`"}], TraditionalForm]}}, {{-131.6, 
          FormBox[
           RowBox[{"-", "131.6`"}], TraditionalForm]}, {-131.4, 
          FormBox[
           RowBox[{"-", "131.4`"}], TraditionalForm]}, {-131.2, 
          FormBox[
           RowBox[{"-", "131.2`"}], TraditionalForm]}}}, {{{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}}}, GridLines -> {None, None}, 
     DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> 
     Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, 
     AxesOrigin -> {0, -131.6}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
         StyleBox["\"E\"", 20, StripOnInput -> False], TraditionalForm], 
        None}, {
        FormBox[
         StyleBox["\"t\"", 20, StripOnInput -> False], TraditionalForm], 
        None}}, FrameStyle -> Directive[
       Thickness[Large], 
       GrayLevel[0]], FrameTicks -> {{{{-131.6, 
          FormBox[
           RowBox[{"-", "131.6`"}], TraditionalForm]}, {-131.4, 
          FormBox[
           RowBox[{"-", "131.4`"}], TraditionalForm]}, {-131.2, 
          FormBox[
           RowBox[{"-", "131.2`"}], TraditionalForm]}}, {{-131.6, 
          FormBox[
           RowBox[{"-", "131.6`"}], TraditionalForm]}, {-131.4, 
          FormBox[
           RowBox[{"-", "131.4`"}], TraditionalForm]}, {-131.2, 
          FormBox[
           RowBox[{"-", "131.2`"}], TraditionalForm]}}}, {{{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}, {{0, 
          FormBox["0", TraditionalForm]}, {5, 
          FormBox["5", TraditionalForm]}, {10, 
          FormBox["10", TraditionalForm]}, {15, 
          FormBox["15", TraditionalForm]}}}}, GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{-0.3, 15}, {-131.6, -131.2}}, 
     PlotRangeClipping -> True, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     RotateLabel -> False, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(tot\\)]\\)\"", 18, FontFamily -> 
        "Times", StripOnInput -> False], 
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(P\\)]\\)\"", 18, FontFamily -> 
        "Times", StripOnInput -> False], 
       StyleBox[
       "\"\\!\\(\\*SubscriptBox[\\(E\\), \\(F\\)]\\)\"", 18, FontFamily -> 
        "Times", StripOnInput -> False]}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"]
          , LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
         Background -> Automatic, StripOnInput -> False], TraditionalForm]& ),
       InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.864963411307218*^9, {3.864963513949717*^9, 3.86496353288262*^9}, 
   3.864964021206327*^9, 3.8649642010911922`*^9, 3.864964334932562*^9, 
   3.8649676928001623`*^9, 3.864967737095154*^9, 3.86496822409683*^9, {
   3.864969256531837*^9, 3.864969262120085*^9}, {3.8649693074486723`*^9, 
   3.864969331249999*^9}, {3.8649694181089354`*^9, 3.864969436482625*^9}, {
   3.864969489550145*^9, 3.8649695227033157`*^9}, 3.864969592893403*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"873c5756-a2eb-4811-935c-36435d44b637"]
}, Open  ]]
}, Closed]]
}, Open  ]]
},
WindowSize->{1213, 794},
WindowMargins->{{Automatic, 12}, {Automatic, 0}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Text"]]}, Visible -> False, FrontEndVersion -> 
  "12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions -> 
  "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 236, 6, 67, "Section",ExpressionUUID->"1f2aa145-aa55-49c6-950f-372076ba7931"],
Cell[CellGroupData[{
Cell[841, 32, 217, 4, 54, "Subsection",ExpressionUUID->"840047d5-3b63-44c3-a93e-4c762cf0d1a7"],
Cell[1061, 38, 563, 16, 52, "Input",ExpressionUUID->"50c55c71-022c-4dea-a2ee-d7b3bb07808b"]
}, Closed]],
Cell[CellGroupData[{
Cell[1661, 59, 256, 4, 38, "Subsection",ExpressionUUID->"d856071a-6b98-499e-b906-68621fbc5a77"],
Cell[1920, 65, 10277, 218, 334, "Input",ExpressionUUID->"4b8b13da-a59d-4183-abfa-13f408eeb17f"],
Cell[CellGroupData[{
Cell[12222, 287, 188, 4, 45, "Subsubsection",ExpressionUUID->"d9aeecbe-f017-4132-a90d-1f514b333437"],
Cell[12413, 293, 808, 22, 115, "Input",ExpressionUUID->"68736353-2f22-4534-a8f4-47ff91ca325e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13258, 320, 212, 4, 45, "Subsubsection",ExpressionUUID->"27506298-6b34-45df-ab82-2423007427ea"],
Cell[13473, 326, 3150, 96, 204, "Input",ExpressionUUID->"577d79be-306b-4dea-a3b6-18dca238d7e2"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[16672, 428, 187, 3, 38, "Subsection",ExpressionUUID->"cc7132b2-aabd-4909-8841-73af1217dd99"],
Cell[16862, 433, 9974, 163, 377, "Input",ExpressionUUID->"99bad15d-dc29-49ba-9aa2-325af81e857b"]
}, Closed]],
Cell[CellGroupData[{
Cell[26873, 601, 219, 4, 38, "Subsection",ExpressionUUID->"920672b2-742f-48c4-9447-9747ebb82a34"],
Cell[27095, 607, 18335, 433, 808, "Input",ExpressionUUID->"6b4b6ad7-b91f-406c-a181-f138a7188a98"]
}, Closed]],
Cell[CellGroupData[{
Cell[45467, 1045, 228, 5, 38, "Subsection",ExpressionUUID->"5fda29fe-438b-4316-a453-da113ada65cd"],
Cell[45698, 1052, 1304, 23, 30, "Input",ExpressionUUID->"894725b2-b31c-47c8-9dbf-54cc0da46730"]
}, Closed]],
Cell[CellGroupData[{
Cell[47039, 1080, 164, 3, 38, "Subsection",ExpressionUUID->"52d2819f-8b8d-4768-9732-e0f53dcf3481"],
Cell[CellGroupData[{
Cell[47228, 1087, 858, 18, 52, "Input",ExpressionUUID->"9b3e9fe2-7e2a-4639-8cc6-8c3a9d00fdec"],
Cell[48089, 1107, 2083, 35, 70, "Output",ExpressionUUID->"6831c7b7-df37-4d87-b7fd-7fd38e6a0f03"],
Cell[50175, 1144, 2085, 35, 70, "Output",ExpressionUUID->"aa4411fb-ce64-4471-87d6-0f5a6a2995dc"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[52309, 1185, 175, 3, 38, "Subsection",ExpressionUUID->"e63b7b2a-a0ea-45bc-8b3b-bf686e376070"],
Cell[CellGroupData[{
Cell[52509, 1192, 3889, 83, 115, "Input",ExpressionUUID->"9fe57e3b-e6e2-40d1-82e5-4a86c0cb8f3e"],
Cell[56401, 1277, 4180, 96, 259, "Output",ExpressionUUID->"dc67e6fe-42ba-4c84-ba09-9b9dcd8cd86a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60618, 1378, 3473, 79, 115, "Input",ExpressionUUID->"a378b39e-b446-411b-aa34-0b6720a34db8"],
Cell[64094, 1459, 6345, 125, 259, "Output",ExpressionUUID->"65e33632-a386-4653-8cc5-38d4db9aec78"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[70488, 1590, 196, 3, 38, "Subsection",ExpressionUUID->"a00437bf-edd1-4a46-9e4e-588700d45b4c"],
Cell[CellGroupData[{
Cell[70709, 1597, 3627, 88, 178, "Input",ExpressionUUID->"639acfed-cfb4-4b12-a8f1-733bcad4c0a2"],
Cell[74339, 1687, 39058, 784, 261, "Output",ExpressionUUID->"63047ebd-b22f-4856-861b-3c6d959e0212"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113434, 2476, 5884, 123, 178, "Input",ExpressionUUID->"3ec6ab17-657b-47be-94a2-83921dec77f4"],
Cell[119321, 2601, 59688, 1128, 261, "Output",ExpressionUUID->"df717b60-6c62-4a35-9df8-3a96dcc9a5db"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[179058, 3735, 256, 5, 38, "Subsection",ExpressionUUID->"522539cb-0be9-4838-b260-20de65d8f1aa"],
Cell[179317, 3742, 7836, 247, 341, "Input",ExpressionUUID->"2ed0287f-0f29-4299-ae8f-c2cc8665716a"],
Cell[CellGroupData[{
Cell[187178, 3993, 4876, 118, 199, "Input",ExpressionUUID->"762373c5-52be-449d-b089-049c2f2b98a5"],
Cell[192057, 4113, 51204, 1030, 266, "Output",ExpressionUUID->"fee84bac-49d2-4fc9-a54a-d56afe53324b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[243298, 5148, 6164, 142, 199, "Input",ExpressionUUID->"aaa86a9a-e94f-489c-b119-df121aaf38e6"],
Cell[249465, 5292, 99222, 1822, 260, "Output",ExpressionUUID->"b815889c-1c9c-42a7-9177-384a628c83b4"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[348736, 7120, 151, 3, 38, "Subsection",ExpressionUUID->"b29ca32f-b875-4b6e-8edb-87dcc15e4a80"],
Cell[CellGroupData[{
Cell[348912, 7127, 11829, 320, 411, "Input",ExpressionUUID->"1afe8308-4ecf-40ce-8e3a-3b42f07cc02b"],
Cell[360744, 7449, 28055, 512, 252, "Output",ExpressionUUID->"8673ffad-d651-41da-a35a-80253557a868"]
}, Open  ]],
Cell[CellGroupData[{
Cell[388836, 7966, 13781, 359, 411, "Input",ExpressionUUID->"58e58fe8-7a7b-46f0-9a48-37a1921990b6"],
Cell[402620, 8327, 29567, 542, 252, "Output",ExpressionUUID->"3622d11d-b5a2-4ff3-a06c-3ba098e13926"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[432236, 8875, 194, 3, 38, "Subsection",ExpressionUUID->"dd2a4faa-bb4a-4e52-bc40-c1497d007e62"],
Cell[CellGroupData[{
Cell[432455, 8882, 3161, 81, 115, "Input",ExpressionUUID->"26b00236-25b2-4eea-a62c-56fe502b1a92"],
Cell[435619, 8965, 27194, 532, 285, "Output",ExpressionUUID->"873c5756-a2eb-4811-935c-36435d44b637"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}
]
*)