LGD_Electrocalorics.nb

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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    546013,      11295]
NotebookOptionsPosition[    538679,      11074]
NotebookOutlinePosition[    539038,      11090]
CellTagsIndexPosition[    538995,      11087]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6356960113766937`*^9, 3.635696027534657*^9}}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 3}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["BaTiO", "3"], TraditionalForm]]],
 ":"
}], "Chapter",
 CellChangeTimes->{{3.636820094468174*^9, 3.6368201013686457`*^9}}],

Cell[CellGroupData[{

Cell["Thin film free energy", "Subsection",
 CellChangeTimes->{{3.6354278058731422`*^9, 3.6354278086440477`*^9}, {
  3.636820096681623*^9, 3.6368200973625793`*^9}}],

Cell["\<\
Free energy of a thin film with dependencies on misfit strain, \
electrostrictive tensor, and elastic modulii \
\>", "Text",
 CellChangeTimes->{{3.635428674918562*^9, 3.635428704443046*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gfilmf", "[", 
   RowBox[{
   "\[Alpha]1t_", ",", "\[Alpha]11t_", ",", "\[Alpha]111_", ",", "aE_", ",", 
    "Gelt_", ",", "P_"}], "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"\[Alpha]1t", " ", 
    SuperscriptBox["P", "2"]}], "+", " ", 
   RowBox[{"\[Alpha]11t", " ", 
    SuperscriptBox["P", "4"]}], "+", " ", 
   RowBox[{"\[Alpha]111", " ", 
    SuperscriptBox["P", "6"]}], "-", " ", 
   RowBox[{"aE", " ", "P"}], " ", "+", " ", "Gelt"}]}]], "Input",
 CellChangeTimes->{{3.635427824298709*^9, 3.635428030753106*^9}, {
   3.635690716491322*^9, 3.635690726780581*^9}, {3.635695653973804*^9, 
   3.635695656425232*^9}, {3.635695692716267*^9, 3.6356956936677113`*^9}, {
   3.635695755405182*^9, 3.635695757289192*^9}, {3.6356958351843023`*^9, 
   3.6356958992724113`*^9}, {3.635695961071228*^9, 3.635695965003639*^9}, {
   3.635696137841593*^9, 3.635696138667018*^9}, 3.635696266319206*^9, {
   3.635696900491774*^9, 3.635696903943122*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gfilmt", "[", 
   RowBox[{
   "\[Alpha]1_", ",", "um_", ",", "Q12_", ",", "Ct_", ",", "\[Alpha]11_", ",",
     "\[Alpha]111_", ",", "aE_", ",", "P_"}], "]"}], ":=", 
  RowBox[{"Gfilmf", "[", 
   RowBox[{
    RowBox[{"\[Alpha]1", "-", 
     RowBox[{"2", "um", " ", "Q12", " ", "Ct"}]}], ",", 
    RowBox[{"\[Alpha]11", "+", 
     RowBox[{
      SuperscriptBox["Q12", "2"], "Ct"}]}], ",", "\[Alpha]111", ",", "aE", 
    ",", 
    RowBox[{
     SuperscriptBox["um", "2"], "Ct"}], ",", "P"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.63569590359578*^9, 3.635696008269888*^9}, {
   3.635696144095557*^9, 3.635696150771139*^9}, {3.635696181278668*^9, 
   3.635696181920203*^9}, 3.635696268507889*^9, {3.635696896050837*^9, 
   3.635696898139097*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gfilmtc", "[", 
   RowBox[{
   "\[Alpha]1_", ",", "um_", ",", "Q12_", ",", "C11_", ",", "C12_", ",", 
    "\[Alpha]11_", ",", "\[Alpha]111_", ",", "aE_", ",", "P_"}], "]"}], ":=", 
  
  RowBox[{"Gfilmt", "[", 
   RowBox[{"\[Alpha]1", ",", "um", ",", "Q12", ",", 
    RowBox[{"C11", "+", "C12", "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["C12", "2"]}], "C11"]}], ",", "\[Alpha]11", ",", 
    "\[Alpha]111", ",", "aE", ",", "P"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.635696052419694*^9, 3.6356961078809023`*^9}, {
  3.635696153239118*^9, 3.635696193861643*^9}, {3.635696890695271*^9, 
  3.635696893274254*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Gfilmtc", "[", 
  RowBox[{
  "\[Alpha]1", ",", "um", ",", "Q12", ",", "C11", ",", "C12", ",", 
   "\[Alpha]11", ",", "\[Alpha]111", ",", "aE", ",", "P"}], "]"}]], "Input",
 CellChangeTimes->{{3.6356961189091167`*^9, 3.6356961318478317`*^9}, {
  3.6356961665547733`*^9, 3.635696173956427*^9}, {3.6356968879347553`*^9, 
  3.6356968884152117`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "aE"}], " ", "P"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"C11", "+", "C12", "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["C12", "2"]}], "C11"]}], ")"}], " ", 
   SuperscriptBox["um", "2"]}], "+", 
  RowBox[{
   SuperscriptBox["P", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{"C11", "+", "C12", "-", 
        FractionBox[
         RowBox[{"2", " ", 
          SuperscriptBox["C12", "2"]}], "C11"]}], ")"}], " ", "Q12", " ", 
      "um"}], "+", "\[Alpha]1"}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["P", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"C11", "+", "C12", "-", 
        FractionBox[
         RowBox[{"2", " ", 
          SuperscriptBox["C12", "2"]}], "C11"]}], ")"}], " ", 
      SuperscriptBox["Q12", "2"]}], "+", "\[Alpha]11"}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["P", "6"], " ", "\[Alpha]111"}]}]], "Output",
 CellChangeTimes->{
  3.635720115759696*^9, 3.6357266286372223`*^9, 3.6358706471223516`*^9, 
   3.636399407769197*^9, 3.636399948470825*^9, 3.636405095259078*^9, 
   3.6364063506018467`*^9, 3.636407736331746*^9, 3.6364084959621162`*^9, 
   3.636409691147469*^9, 3.636414065746202*^9, 3.6364596608501053`*^9, 
   3.636475486451623*^9, 3.6368200890373583`*^9, 3.636997960705501*^9, 
   3.637007849614505*^9, 3.637008173344915*^9, 3.637012309320593*^9, 
   3.6370142048391743`*^9, 3.6370166112739553`*^9, 3.637023598082342*^9, {
   3.637975451715629*^9, 3.637975454292242*^9}, 3.638833125928574*^9, 
   3.6388335932919207`*^9, 3.638836141182539*^9, 3.638837736343643*^9, 
   3.638839986638063*^9, 3.639222332767436*^9, 3.639229524556871*^9, 
   3.639232634671974*^9, 3.639331601626642*^9, {3.639331675642042*^9, 
   3.6393316891511097`*^9}, 3.6393317501902447`*^9, 3.639335008060197*^9, 
   3.639335873096792*^9, 3.6398258747191563`*^9, 3.63982908004424*^9, 
   3.639834897317844*^9, 3.639909985350065*^9, 3.639918936922399*^9, 
   3.639926487803842*^9, 3.639934686289649*^9, 3.640016947736177*^9, 
   3.640082398525955*^9, 3.6401039680302973`*^9, 3.640277128611882*^9, 
   3.641895789207103*^9, 3.641911146011244*^9, 3.642247836869672*^9, 
   3.642248517718466*^9, 3.642250383846249*^9, 3.642250652629036*^9, 
   3.642251391537278*^9, 3.642252164776849*^9, 3.642253433311335*^9, 
   3.642331753889524*^9, 3.6424553393998337`*^9, 3.648487571770011*^9, 
   3.648498211054525*^9, 3.655650643059813*^9, 3.655805033317965*^9, 
   3.661185284412964*^9},
 Background->GrayLevel[0.85]]
}, Open  ]],

Cell[TextData[{
 "Inputting the coefficients for ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["BaTiO", "3"], TraditionalForm]]],
 " to get the free energy as a function of misfit strain, applied field, \
polarization, and temperature.\[LineSeparator]"
}], "Text",
 CellChangeTimes->{{3.635696551260087*^9, 3.635696584604281*^9}, 
   3.638839987574662*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GfilmFE", "[", 
   RowBox[{"um_", ",", "aE_", ",", "P_", ",", "T_"}], "]"}], ":=", 
  RowBox[{"Gfilmtc", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"(", 
      RowBox[{"T", "-", "383"}], ")"}], 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"1.7", "*", 
        SuperscriptBox["10", "5"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"8.85", "*", 
        SuperscriptBox["10", 
         RowBox[{"-", "12"}]]}], ")"}]}]], ",", "um", ",", 
    RowBox[{"-", "0.043"}], ",", 
    RowBox[{"1.75", "*", 
     SuperscriptBox["10", "11"]}], ",", 
    RowBox[{"8.46", "*", 
     SuperscriptBox["10", "10"]}], ",", 
    RowBox[{"3.6", 
     RowBox[{"(", 
      RowBox[{"T", "-", "448"}], ")"}], "*", 
     SuperscriptBox["10", "6"]}], ",", 
    RowBox[{"6.6", "*", 
     SuperscriptBox["10", "9"]}], ",", "aE", ",", "P"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6356962621864033`*^9, 3.635696417637003*^9}, {
  3.635696880316823*^9, 3.635696886294879*^9}, {3.636399356711679*^9, 
  3.63639935684811*^9}}],

Cell["\<\
At this point, we can\[CloseCurlyQuote]t take a derivative with respect to \
polarization and solve for polarization analytically. We have to abandon \
symbolic math at this point. We need to take the above expression and solve \
it numerically in order to get the curves in Fig 6. But \
let\[CloseCurlyQuote]s start with Fig 5. We can first pick um = -0.01% and \
then a specific field curve to get the polarization.\
\>", "Text",
 CellChangeTimes->{{3.635696543387826*^9, 3.6356965459279003`*^9}, {
  3.635696589620751*^9, 3.635696621500545*^9}, {3.635697201856928*^9, 
  3.6356972276224203`*^9}, {3.6374982682971697`*^9, 3.637498274959888*^9}, {
  3.638840217094471*^9, 3.6388402272239723`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotFont", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
     RowBox[{"FontSize", "\[Rule]", "24"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.655664541630506*^9}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 3}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Polarization as a function of applied electric and strain fields\
\>", "Section",
 CellChangeTimes->{{3.636406959260996*^9, 3.636406975909284*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol", "[", 
   RowBox[{"um_", ",", "aE_", ",", "T_"}], "]"}], ":=", 
  RowBox[{"NSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"GfilmFE", "[", 
          RowBox[{"um", ",", "aE", ",", "P", ",", "T"}], "]"}], ",", "P"}], 
        "]"}], "\[Equal]", "0"}], ",", 
      RowBox[{"P", ">", "0"}]}], "}"}], ",", "P"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.635696427741778*^9, 3.635696452786789*^9}, {
   3.635696484498542*^9, 3.635696485014022*^9}, {3.6356965249604893`*^9, 
   3.635696533295927*^9}, {3.635696742292308*^9, 3.635696768282773*^9}, {
   3.635696875621109*^9, 3.635696876080284*^9}, {3.635696942826045*^9, 
   3.635696972141966*^9}, {3.6356970766702147`*^9, 3.635697106741046*^9}, {
   3.6356971555524397`*^9, 3.635697159602284*^9}, {3.6356972604047823`*^9, 
   3.635697265085782*^9}, {3.6356972991175413`*^9, 3.6356975258693867`*^9}, {
   3.635697732290621*^9, 3.6356977652246027`*^9}, {3.635697825159588*^9, 
   3.635697837020462*^9}, {3.6356980612082243`*^9, 3.635698075684083*^9}, 
   3.635698140498992*^9, {3.63569818271488*^9, 3.635698187734167*^9}, {
   3.635698572839579*^9, 3.6356985913971853`*^9}, 3.635698650268914*^9, {
   3.6356986960295143`*^9, 3.635698714921976*^9}, 3.6356991165287867`*^9, {
   3.6356991999287167`*^9, 3.63569921174192*^9}, 3.6356992674432592`*^9, {
   3.6356993185742283`*^9, 3.635699325545682*^9}, {3.635699764994403*^9, 
   3.635699769221137*^9}, {3.635699950150998*^9, 3.635699953004325*^9}, {
   3.635699984425178*^9, 3.635699985176198*^9}, {3.635700149855928*^9, 
   3.6357001632609253`*^9}, {3.635700235113488*^9, 3.635700246332445*^9}, {
   3.635700330279142*^9, 3.6357003371592093`*^9}, {3.635700557444388*^9, 
   3.6357005908827972`*^9}, {3.6357006746261272`*^9, 3.635700708473257*^9}, {
   3.635700796600103*^9, 3.635700798219924*^9}, {3.635701382098887*^9, 
   3.635701395084134*^9}, {3.6357019528753347`*^9, 3.635701979621571*^9}, {
   3.636399393920525*^9, 3.636399394036171*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plotFont", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
     RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], ";", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"T", ",", 
            RowBox[{"P", "/.", 
             RowBox[{"Flatten", "[", 
              RowBox[{"sol", "[", 
               RowBox[{"um", ",", "0", ",", "T"}], "]"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"T", ",", "320", ",", "450", ",", "1"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"T", ",", 
            RowBox[{"P", "/.", 
             RowBox[{"Flatten", "[", 
              RowBox[{"sol", "[", 
               RowBox[{"um", ",", 
                RowBox[{"10", "*", 
                 SuperscriptBox["10", "5"]}], ",", "T"}], "]"}], "]"}]}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"T", ",", "320", ",", "450", ",", "1"}], "}"}]}], "]"}], 
        ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"T", ",", 
            RowBox[{"P", "/.", 
             RowBox[{"Flatten", "[", 
              RowBox[{"sol", "[", 
               RowBox[{"um", ",", 
                RowBox[{"35", "*", 
                 SuperscriptBox["10", "5"]}], ",", "T"}], "]"}], "]"}]}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"T", ",", "320", ",", "450", ",", "1"}], "}"}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<T [K]\>\"", ",", 
         "\"\<P [C/\!\(\*SuperscriptBox[\(m\), \(2\)]\)]\>\""}], "}"}]}], ",", 
      RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Blue", ",", 
           RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
           RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", 
           RowBox[{"Dashing", "[", "Large", "]"}], ",", 
           RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", 
           RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<E = 0 [kV/cm]\>\"", ",", "\"\<E = 10 [kV/cm]\>\"", ",", 
           "\"\<E = 35 [kV/cm]\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.8", ",", "0.935"}], "}"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.8", ",", "0.935"}], "}"}]}], "}"}]}], "]"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Black", ",", "Bold"}], "]"}]}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"um", ",", 
      RowBox[{"-", "0.001"}], ",", "0.001"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.635698335871964*^9, 3.635698453790086*^9}, {
   3.635698633651366*^9, 3.635698688722589*^9}, {3.635698724709228*^9, 
   3.635698833759038*^9}, {3.635699126126075*^9, 3.63569912970105*^9}, 
   3.635699216809923*^9, {3.6356998898992977`*^9, 3.635699932361354*^9}, {
   3.6357000339280863`*^9, 3.6357000633685637`*^9}, {3.6357003786178827`*^9, 
   3.63570049879602*^9}, {3.635700596332086*^9, 3.635700623602729*^9}, {
   3.635701061946309*^9, 3.635701062305674*^9}, {3.635702098989931*^9, 
   3.6357021566792517`*^9}, {3.635702566302444*^9, 3.635702575853878*^9}, {
   3.635720246562114*^9, 3.6357202519124107`*^9}, {3.636399380363597*^9, 
   3.636399381916747*^9}, {3.639331669733177*^9, 3.639331683058696*^9}, {
   3.639335427204488*^9, 3.639335465901335*^9}, {3.6398259615491247`*^9, 
   3.639825964735317*^9}, {3.6398268659594517`*^9, 3.6398268964139223`*^9}, {
   3.639826932776944*^9, 3.639827138183251*^9}, {3.639827203171575*^9, 
   3.639827237507201*^9}, {3.6398274721750917`*^9, 3.6398274951405897`*^9}, {
   3.6398279703264637`*^9, 3.639827988284688*^9}, {3.639831431419384*^9, 
   3.6398314326320267`*^9}, 3.6399346977235613`*^9, {3.640277149817404*^9, 
   3.640277153125433*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`um$$ = 0, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`um$$], -0.001, 0.001}}, Typeset`size$$ = {
    1000., {309., 318.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`um$3300$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`um$$ = -0.001}, 
      "ControllerVariables" :> {
        Hold[$CellContext`um$$, $CellContext`um$3300$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ListLinePlot[{
         Table[{$CellContext`T, 
           ReplaceAll[$CellContext`P, 
            Flatten[
             $CellContext`sol[$CellContext`um$$, 
              0, $CellContext`T]]]}, {$CellContext`T, 320, 450, 1}], 
         Table[{$CellContext`T, 
           ReplaceAll[$CellContext`P, 
            Flatten[
             $CellContext`sol[$CellContext`um$$, 10 
              10^5, $CellContext`T]]]}, {$CellContext`T, 320, 450, 1}], 
         Table[{$CellContext`T, 
           ReplaceAll[$CellContext`P, 
            Flatten[
             $CellContext`sol[$CellContext`um$$, 35 
              10^5, $CellContext`T]]]}, {$CellContext`T, 320, 450, 1}]}, 
        Frame -> True, 
        FrameLabel -> {"T [K]", "P [C/\!\(\*SuperscriptBox[\(m\), \(2\)]\)]"},
         BaseStyle -> $CellContext`plotFont, ImageSize -> 800, 
        PlotStyle -> {{Blue, 
           Dashing[Tiny], 
           Thickness[0.0025]}, {Blue, 
           Dashing[Large], 
           Thickness[0.0025]}, {Blue, 
           Thickness[0.0025]}}, PlotLegends -> 
        Placed[{"E = 0 [kV/cm]", "E = 10 [kV/cm]", "E = 35 [kV/cm]"}, {
           Scaled[{0.8, 0.935}], {0.8, 0.935}}], LabelStyle -> 
        Directive[Black, Bold]], 
      "Specifications" :> {{$CellContext`um$$, -0.001, 0.001}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{1057., {360., 368.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input",
 CellChangeTimes->{3.6485085316589117`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 320\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.648662019099362*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 321\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.648662019101295*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 322\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.64866201910207*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(ReplaceAll :: reps\\), \\\"MessageName\\\"]\\)\
\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.648662019102832*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 320\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.648695148465897*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 321\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6486951484833508`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 322\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6486951485098352`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(ReplaceAll :: reps\\), \\\"MessageName\\\"]\\)\
\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.648695148510545*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 320\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6550268781260147`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 321\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.65502687814332*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 322\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655026878144002*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(ReplaceAll :: reps\\), \\\"MessageName\\\"]\\)\
\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6550268781446238`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 320\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655650644285495*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 321\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655650644304521*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 322\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6556506443483543`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(ReplaceAll :: reps\\), \\\"MessageName\\\"]\\)\
\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655650644349104*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 320\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6556506446220417`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 321\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655650644643948*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(sol[\\(\\(0, 0, 322\\)\\)]\\)}\\)\
\[NoBreak] is neither a list of replacement rules nor a valid dispatch table, \
and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655650644665876*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(ReplaceAll :: reps\\), \\\"MessageName\\\"]\\)\
\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655650644666513*^9}]
}, Open  ]],

Cell[TextData[{
 "Now here is the tricky part. Let\[CloseCurlyQuote]s solve for ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalDelta]C", 
    RowBox[{"E", ",", "\[Sigma]"}]], TraditionalForm]]],
 " as a function of temperature to match d, e,f from Fig 6. We can\
\[CloseCurlyQuote]t approach this the same way because we need to solve for \
polarization at some given applied field and temperature and put this back \
into our free energy with those same temperature and applied fields."
}], "Text",
 CellChangeTimes->{{3.635701256229937*^9, 3.635701282631082*^9}, {
  3.635701598163146*^9, 3.635701621253869*^9}, {3.6357025444429417`*^9, 
  3.635702550020348*^9}, {3.6357028429919167`*^9, 3.635702866798397*^9}, {
  3.6364053732838993`*^9, 3.636405373979652*^9}, {3.636407964874062*^9, 
  3.6364079932711573`*^9}, {3.636409664355795*^9, 3.636409674993425*^9}}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 3}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}]
}, Closed]],

Cell[CellGroupData[{

Cell["Entropy and heat capacity", "Section",
 CellChangeTimes->{{3.636411718925448*^9, 3.636411722775366*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]", "=", "1"}], ";", 
  RowBox[{"equilibFE", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Solve", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"D", "[", 
                 RowBox[{
                  RowBox[{"GfilmFE", "[", 
                   RowBox[{"um", ",", "aE", ",", "P", ",", "T"}], "]"}], ",", 
                  "P"}], "]"}], "\[Equal]", "0"}], ",", 
               RowBox[{"P", "\[Element]", "Reals"}], ",", 
               RowBox[{"P", ">", "0"}]}], "}"}], ",", "P"}], "]"}], ",", "aE",
            ",", "T", ",", "um"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"T", ",", "1", ",", "580", ",", "\[Phi]"}], "}"}]}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"aE", ",", 
         RowBox[{"0", "*", 
          SuperscriptBox["10", "5"]}], ",", 
         RowBox[{"150", "*", 
          SuperscriptBox["10", "5"]}], ",", 
         RowBox[{"1", "*", 
          SuperscriptBox["10", "5"]}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"um", ",", 
       RowBox[{"-", "0.001"}], ",", "0.001", ",", "0.001"}], "}"}]}], "]"}]}],
   ";", " ", 
  RowBox[{"Dimensions", "[", "equilibFE", "]"}]}]], "Input",
 CellChangeTimes->{{3.636473792252554*^9, 3.6364738031107693`*^9}, {
   3.6364738799957123`*^9, 3.6364738823980227`*^9}, {3.6364766477091303`*^9, 
   3.636476655713544*^9}, {3.6364773200603733`*^9, 3.636477320275342*^9}, {
   3.636477632810368*^9, 3.6364776334068747`*^9}, 3.6364779818749247`*^9, 
   3.6369979747786303`*^9, {3.6369986929132957`*^9, 3.636998697876461*^9}, 
   3.637008179555794*^9, 3.637009770119319*^9, {3.637013550046504*^9, 
   3.637013554054089*^9}, {3.6379768913559713`*^9, 3.6379768918020353`*^9}, {
   3.638833749589376*^9, 3.638833756910904*^9}, {3.638835809432453*^9, 
   3.6388358098058443`*^9}, {3.6392296516650763`*^9, 3.639229652530545*^9}, {
   3.639230010939645*^9, 3.639230023622745*^9}, {3.639231775422544*^9, 
   3.639231775505788*^9}, {3.639331629748889*^9, 3.63933164821004*^9}, 
   3.6393358407780523`*^9, 3.639834546725211*^9, {3.640089732152255*^9, 
   3.640089732490053*^9}, {3.640103984960846*^9, 3.64010398724193*^9}, {
   3.641833916759021*^9, 3.641833917280129*^9}, {3.641895808546713*^9, 
   3.641895845742485*^9}, {3.642250637746668*^9, 3.642250640959605*^9}, {
   3.642254905121842*^9, 3.642254905454794*^9}, {3.648487774878009*^9, 
   3.648487775720096*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "151", ",", "580", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.639332453831493*^9, 3.63933570926968*^9, 
  3.639336781336269*^9, 3.63933828180201*^9, 3.639826867293303*^9, 
  3.639829825509815*^9, 3.639834774240168*^9, 3.6398353033003674`*^9, 
  3.639910692608612*^9, 3.639919341814685*^9, 3.639926880945264*^9, 
  3.6399350866282187`*^9, 3.6400173357799807`*^9, 3.640082790917369*^9, 
  3.640090359487995*^9, 3.6401046107135763`*^9, 3.6402823933893557`*^9, 
  3.641835178993773*^9, 3.641848735414757*^9, 3.6418499265699463`*^9, 
  3.641896472968274*^9, 3.641910969139127*^9, 3.6419120026964893`*^9, 
  3.642248470389928*^9, 3.6422491486677628`*^9, 3.642251296584724*^9, 
  3.642252092414897*^9, 3.6422528087467003`*^9, 3.642254060693371*^9, 
  3.6422557078757267`*^9, 3.642332535356546*^9, 3.648498628803151*^9, 
  3.648499010311969*^9, 3.655651076344637*^9, 3.6558054323192244`*^9, 
  3.6611855864474583`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]", "=", "1"}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\</home/john/projects/equilibPolFE.csv\>\"", ",", "equilibFE"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6418958693995256`*^9, 3.6418958715685663`*^9}, {
  3.642250657189208*^9, 3.642250657455496*^9}}],

Cell[BoxData["\<\"/home/john/projects/equilibPolFE.csv\"\>"], "Output",
 CellChangeTimes->{3.6418964995824757`*^9, 3.648499013605729*^9}]
}, Open  ]],

Cell["\<\
We have built a A[j, k, l,m] object that describes the equilibrium \
polarization in this parameter space {j,k,l} which correspond to strain, \
electric field and temperature. m corresponds to the number of polarization \
solutions. Note that not all of them are physical. The below function \
computes the free energy as we vary j, k, or l (l changes the temperature).\
\>", "Text",
 CellChangeTimes->{
  3.636411710860968*^9, {3.636411768636053*^9, 3.6364117792052107`*^9}, {
   3.6393321182246523`*^9, 3.639332190925561*^9}, {3.639335673267961*^9, 
   3.639335726012829*^9}, {3.641897195032154*^9, 3.641897195613984*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"G0filmFE", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  RowBox[{"GfilmFE", "[", 
   RowBox[{
    RowBox[{"equilibFE", "[", 
     RowBox[{"[", 
      RowBox[{"j", ",", "k", ",", "l", ",", "4"}], "]"}], "]"}], ",", 
    RowBox[{"equilibFE", "[", 
     RowBox[{"[", 
      RowBox[{"j", ",", "k", ",", "l", ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{"P", "/.", 
     RowBox[{"equilibFE", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "k", ",", "l", ",", "1"}], "]"}], "]"}]}], ",", 
    RowBox[{"equilibFE", "[", 
     RowBox[{"[", 
      RowBox[{"j", ",", "k", ",", "l", ",", "3"}], "]"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.636410766091916*^9, 3.6364107776321793`*^9}, {
  3.636410810645584*^9, 3.636410819227312*^9}, {3.636411155341198*^9, 
  3.6364111903865213`*^9}, {3.636411228507875*^9, 3.6364112619845877`*^9}, {
  3.636416110553068*^9, 3.636416119208435*^9}, {3.642250666551098*^9, 
  3.642250672948805*^9}}],

Cell[TextData[{
 "The excess entropy, which is defined as S(T) = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[PartialD]", "G0"}], 
     RowBox[{"\[PartialD]", "T"}]]}], TraditionalForm]]],
 " at constant field, can be found by considering the numerical approximation \
to the derivative f\[CloseCurlyQuote][x] = (f[x+h] - f[x] )/h. This is where \
one needs to be careful. Different approximations for derivatives can give \
radically different answers. The forward differentiation is OK here for S(T) \
but other derivatives can be problematic. It seems backward is the most \
useful(perhaps since we are doing a forward sum and "
}], "Text",
 CellChangeTimes->{{3.636409480989957*^9, 3.6364095474906073`*^9}, {
  3.6364119804609003`*^9, 3.636411982893408*^9}, {3.636412024554179*^9, 
  3.636412059888886*^9}, {3.6393322031374826`*^9, 3.639332208269052*^9}, {
  3.6393324322029657`*^9, 3.6393324788504677`*^9}, {3.641897202299138*^9, 
  3.6418972164634733`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"S", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  RowBox[{"Flatten", "[", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"G0filmFE", "[", 
       RowBox[{"j", ",", "k", ",", 
        RowBox[{"l", "+", "1"}]}], "]"}], "-", 
      RowBox[{"G0filmFE", "[", 
       RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "\[Phi]"]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.636412764691031*^9, 3.6364128106810303`*^9}, 
   3.6364133039937983`*^9, 3.63647685334307*^9, 3.636476961741308*^9, {
   3.6364773506375217`*^9, 3.636477352191842*^9}, {3.636999796336668*^9, 
   3.636999796721963*^9}, {3.638833736340042*^9, 3.638833760009417*^9}, {
   3.639827678155003*^9, 3.639827680373212*^9}}],

Cell[TextData[{
 "Similarly, we have the heat capacity, in which we use the second derivative \
approximation ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"f", "''"}], "[", "x", "]"}], " ", "=", 
    RowBox[{
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"x", "+", "h"}], "]"}], " ", "-", " ", 
         RowBox[{"f", "[", "x", "]"}]}], "h"], "-", 
       FractionBox[
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], " ", "-", " ", 
         RowBox[{"f", "[", 
          RowBox[{"x", "-", "h"}], "]"}]}], "h"]}], "h"], "=", " ", 
     FractionBox[
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"x", "+", "h"}], "]"}], " ", "-", " ", 
       RowBox[{"2", " ", 
        RowBox[{"f", "[", "x", "]"}]}], " ", "+", " ", 
       RowBox[{"f", "[", 
        RowBox[{"x", "-", "h"}], "]"}]}], 
      SuperscriptBox["h", "2"]]}]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.6364134722275143`*^9, 3.636413578645049*^9}, {
  3.63646011291031*^9, 3.6364601297644978`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalDelta]CBackward", "[", 
     RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"equilibFE", "[", 
       RowBox[{"[", 
        RowBox[{"j", ",", "k", ",", "l", ",", "3"}], "]"}], "]"}]}], "*", 
     RowBox[{"(", 
      FractionBox[
       RowBox[{
        RowBox[{"G0filmFE", "[", 
         RowBox[{"j", ",", "k", ",", "l"}], "]"}], "-", 
        RowBox[{"2", 
         RowBox[{"G0filmFE", "[", 
          RowBox[{"j", ",", "k", ",", 
           RowBox[{"l", "-", "1"}]}], "]"}]}], "+", 
        RowBox[{"G0filmFE", "[", 
         RowBox[{"j", ",", "k", ",", 
          RowBox[{"l", "-", "2"}]}], "]"}]}], 
       SuperscriptBox[
        RowBox[{"(", "\[Phi]", ")"}], "2"]], ")"}]}]}], ";"}], " "}]], "Input",\

 CellChangeTimes->{{3.639339610481682*^9, 3.639339616935693*^9}, {
  3.642251353888257*^9, 3.642251354206024*^9}}],

Cell[CellGroupData[{

Cell["Entropy plot:", "Subsection",
 CellChangeTimes->{{3.6418971290704527`*^9, 3.641897131059682*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "1", ",", "k"}], "]"}], "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "3"}]]}], "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "320", ",", "381"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "25", ",", "k"}], "]"}], "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "3"}]]}], "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "320", ",", "420"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "35", ",", "k"}], "]"}], "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "3"}]]}], "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "320", ",", "420"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           RowBox[{"S", "[", 
            RowBox[{"2", ",", "61", ",", "k"}], "]"}], "*", 
           SuperscriptBox["10", 
            RowBox[{"-", "3"}]]}], "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "320", ",", "420"}], "}"}]}], "]"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<T [K]\>\"", ",", 
      "\"\<\!\(\*SuperscriptBox[\(S\), \(XS\)]\) \
[\!\(\*SuperscriptBox[\(10\), \(\(3\)\(\\\ \
\)\)]\)J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]\>\""}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "320"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"20", ",", "340"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"40", ",", "360"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"60", ",", "380"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"80", ",", "400"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "420"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "5"}], ",", 
        RowBox[{"-", "10"}], ",", 
        RowBox[{"-", "15"}], ",", 
        RowBox[{"-", "20"}], ",", 
        RowBox[{"-", "25"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "DotDashed", ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<E = 0 [kV/cm]\>\"", ",", "\"\<E = 25 [kV/cm]\>\"", ",", 
        "\"\<E = 35 [kV/cm]\>\"", ",", "\"\<E = 60 [kV/cm]\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.895", ",", "0.235"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.895", ",", "0.235"}], "}"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "Bold"}], "]"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "25"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6364602082156*^9, 3.6364602564462013`*^9}, {
   3.636460337285184*^9, 3.6364603518143806`*^9}, {3.636460508362164*^9, 
   3.6364606359958487`*^9}, {3.6364709585119753`*^9, 
   3.6364709684528303`*^9}, {3.636473548278233*^9, 3.636473565383963*^9}, {
   3.6364738592611017`*^9, 3.6364738603949738`*^9}, {3.636474218540029*^9, 
   3.636474256827883*^9}, {3.63647429609828*^9, 3.6364743227708693`*^9}, {
   3.636474377079568*^9, 3.636474474896982*^9}, {3.6364746766719637`*^9, 
   3.636474759944687*^9}, {3.6364765283031263`*^9, 3.636476529242869*^9}, {
   3.6364767257703457`*^9, 3.636476788706667*^9}, {3.636476891692957*^9, 
   3.636476893139141*^9}, {3.636477013607849*^9, 3.636477013734922*^9}, 
   3.636477050018113*^9, {3.636477369079442*^9, 3.636477405691554*^9}, {
   3.6364777993170843`*^9, 3.636477812489934*^9}, {3.636477856614091*^9, 
   3.636477859661574*^9}, {3.636477997673238*^9, 3.636478008528019*^9}, 
   3.6364784467728653`*^9, {3.63647923424366*^9, 3.636479234690475*^9}, {
   3.6364800690503807`*^9, 3.6364800694512577`*^9}, {3.6369998548417997`*^9, 
   3.636999881475992*^9}, {3.637976825117169*^9, 3.637976865529936*^9}, {
   3.637977004384845*^9, 3.637977009741851*^9}, {3.637977976967942*^9, 
   3.6379780118516827`*^9}, {3.638833575114245*^9, 3.6388335766069593`*^9}, {
   3.638834066677218*^9, 3.638834078578908*^9}, {3.6388341883689213`*^9, 
   3.638834188997121*^9}, {3.6388357547501497`*^9, 3.638835756661738*^9}, {
   3.6388358372354794`*^9, 3.638835853104837*^9}, {3.639332520956292*^9, 
   3.6393325961067467`*^9}, {3.639334462891349*^9, 3.639334466700324*^9}, {
   3.639335181907423*^9, 3.6393351912739697`*^9}, {3.639335820196802*^9, 
   3.63933582059508*^9}, {3.6393369158241987`*^9, 3.639336944832202*^9}, {
   3.639826141808461*^9, 3.639826161940436*^9}, {3.639827550532672*^9, 
   3.639827650495425*^9}, {3.639827739826056*^9, 3.639827952895007*^9}, 
   3.639828035555504*^9, {3.6398287192527447`*^9, 3.63982872057487*^9}, {
   3.639828790616241*^9, 3.639828834902314*^9}, {3.6398289153333273`*^9, 
   3.639828921857925*^9}, {3.6398289539850607`*^9, 3.6398290134089823`*^9}, {
   3.639829162025481*^9, 3.6398291728696737`*^9}, {3.639829875133677*^9, 
   3.6398298829922256`*^9}, {3.639830036829088*^9, 3.639830040902915*^9}, {
   3.6398307380442047`*^9, 3.639830773660808*^9}, 3.63983083065277*^9, {
   3.6400205114401693`*^9, 3.6400205380317698`*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw1yX0s1AEcx/Eb2YQbh3OeLudZHo/rnLs8fDwdzhEWtfWHpbX1oFnaEuvs
epgTPU8TmczJVCaEGYnVxRSuMEtaqWYsLYqGYqr5/r7bd9+9vm/nrJy0wwYs
Fiv83/6/W7MY8bXeL71rNKiPHhjjnxILixkbo7Hq4099GGMLSKSGM7eXAsnW
4NvfO1Byn7Et9rfEVWszGTvCwVM7/4XLWAADQ26+YkhIdkGNwbbcifOM3aCf
DV4pkjL2QN4HaWjHdADZC5WTZtPaZMbe4HeVj44/8Sf7Itzk+aLch7E/AjYe
rK1U+JGFkJ8+fnnGmHEgmjQd7uwzvuQgjLED+NmzPmQR5Bnq2s0MxrswfNa7
S9fvTRajUvpb2hnMOBhtIc4vJup3kiW4dO7zgCOPcQisLuhyizReZCnSViXt
5queZBlcTWskbUcY74b4e93enEkPcijKVts5oQrGYUhruGPD7XYnh2PSZlm7
7MM4AiYRJ4rHq9zIQM+yxrqJTVYDpWVas4JCV+qRuJJpVCFccKEeidpfKtFg
JpkVBfFT2U3Za2fqUVg1lVwrAJkVDVH5XdPCZgH1aHQWpIyECMisGAS093TK
nJyox6BR+ahMusGnHgtR97px0jtH6rGIut7CS+lwoC7H8Hi6wu6GPXU56rzC
v+Ufs6MeB6XehxcWZUs9Du79rRc9bHnU48GZm+L8mOdSj4e0QTKl7LGmnoAy
9duh96VW1BPw6Vn2SdE+S+oKrAcWto7s4FBXoCb3qKebzpx6IvSvXh5UgU09
EWLMP9Q3m1BXYkDTp9JZGlNXgvfmj2/6ISPqSYhJFfTlVxtQT0Kd8OocVJu9
Wz0ZWY8Ht+fkrW1ZnYwF31sWJZZL1PdAt2nflho/1/sXl8QZ4g==
         "]],
        FontFamily->"Helvetica"]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Large], 
       StyleBox[LineBox[CompressedData["
1:eJw10XlMk3ccx/GCgNyHXKIot1AmZylnkQ9HOQShtKWUDhUNiCwyNkcwzDU8
TIw6YJPLoDDjmG7MiEOOBHBIdWPMIFmAyDUZQ0AJC6RjLAMhOBa+zy958svr
+eT918/hZJ44S5PD4WRtff/f20cddu8TweP+9/kq+oFKowIhl8taF6uStfD+
GT+yKWSJSSsPbrK2QLrXi/rJNNa7EVStXZRoydoWF/9UTGsN8sj2uO+qMtIo
Z+2I3Nc3kiPjWDuj209zs1+b9QFYbqqz6574kt0wVXR+/kERa3d0de6cNAll
fRCmble+bX/jQ/ZE7VLP/a87WHvDp/H8sYkC1j7INHjpquCz9sVgQ2ex04o3
mQfdZx3z/q2s/TAgGJ+qPsuaD834ZnWoL2t/OHxQm5o160UOQH+xh/h1JutA
mOR+bLrjlSc5CIVPBS87s1kHI8dM6Wa04EEOgZ3wgmzzDGsBXH4eW/5cfZAc
Cgd1aq0qn/Uh9LyN+7d67R1yGPJaqkaMilgDcpu/LDy0yQwwox1+d6XUnfZw
dBz7o/GUOZkJB6/KMuxiHZf2CCiPl3WInclMBPr6p4sGm9xoj0R2NOy1AslM
JMrPGcQsPnGlPQoZ/LreLxLJTBQ227SqliYO0C7ETK96wPA0mRGil1E+WvzH
hfZoDKRzx6pLyEw0Drn3PtS2YPcYjP6YExR125n2GGx05oqlfDInFitHZSHB
fU60x2Jw6NHRN2lkThzafvFUXF90pD0OvAvjerafkjmHMdwkYC5Zs/thqANq
DKebHGiPB49nF+IpJDPxGA61GMmftKc9AYXXFa+6CshMAhauPW/VMWP3I1vv
U/5Zt9yO9iPQOSHvqarYT3si6n+y0b/5bB/ticiY85xb0CNzkqAM0xdcibOl
PQkDCYmZl0v30i7C0g8Wlqu/7tk2RKh3DkyftyIzIgQUFlbkZNhsWyXCBdHx
mLJ7u6lPxmRJa9CJdWvqk6H1TVnQWgKZScbDzt+ssr6yoj4Zt71LLrWvWlIv
xnC3ueG6mAwxXIvDh4TNFtSLUZmbV3PHlKzacpNSyc03p16C3D7pxtTELuol
UHrdujsSRWYkyIuIdt7TYka9BIrMkLl2RzJHCvDfdW27Zkq9FFF71x/vMyYz
Uiwvj1qvmJlQL0VbbHDxl8bG1Keg43eTobBdRtSnYEb4d8WUrSH1KeBJPmpQ
ehpQnwI7lzEP6xh96mWoXHxx684pPeplmMy/+v3+cl3qZZCaR2Tld+2kXgan
OsuwmiUd6lNx8mql6AyXjFRMtkV9OP2eNvWpaJOLzo63aFGfitL6doW/Bpkj
x/PA2cbRlB3Uy1Eq4NfeaNakXo6QpOnTCjOySo6GOavv1Oc0qE9DwNMFJX+W
Q30aymM2Ft6mcFT/AcI800U=
         "]],
        FontFamily->"Helvetica"]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025], 
       StyleBox[LineBox[CompressedData["
1:eJw103tQVGUcxvEDyX0hQiAJkvv9IvebCA+CCyz3XdgFFJggWhOFEpAhnDhF
TkGMCztADiCWYEJi02AkYsWBQnIIacYcMgK1DBFUYMeoGMxo+r1n5p0zn/O8
3z+PfUGptEib47iizfPf+/9nJYrj6x27Xg0W6AM8x59yUmdmfXQut3Ul3Aki
m6JH956i/iSzOcSW7ofMc5i3QaR9NGjBktkG0hMPdXR/DCTbQTXaEVzSxOwA
lfZNB/tUZiesuMa42xozu+Bx7vK5/RMBZDd80vSe6T91zB6oi64QbsUze8Hw
4hM3E31mH9QKZZfrxv3Jvqh8tPeh9F1mP2jvPRF6II7ZHyt6LdY/6DEHoH+2
wurYd37kQHjGiYfq6piD8HK1x/tzEuZgvFWh3v6OiDkEaCkRVV/zJYfiq8dF
mm8amcNwSGlSni9jDofKwWVniiXzTkQadi7bX9hBjoByvnUkLZx5F6xLq5Qe
oz7kSMx2jx34TMIcBaX4cuHd695kQL9h7u/xXDIPrOnX3N234EV7NPJysNRd
Ruajoe3ZPf/RU0/ad0Pk0CJkNpD53Wh00JSPWrE9BnIfK7PFsx60x6B/1+uX
rgWTuVj4uWlOHb7iTnssbM/0mvwkJ3N70LcvolBrwY32PRgTXjJdrSJzYvxW
lN3ZK2K7GIvirHPeH7rSHoeZ7AdLNYFkPg5XWzM8u6660B4Pi5KJxLZ8Mh+P
MX5EvH/NmfYE5ATqepseJ/MJEKlnXFpc2C6Bfp+mbH3YiXYJlK3JxTE5ZC4R
6slnqsv+cKQ9EcPDv7sebyJzSejYsiH6wIftSbjRM/dz0/cOtCejcu62/O1i
Mp+MKYVxzkEjtqeg5o3lKVmfPe0puDXsPBCRQuZS0dF8ycJz1Y72VLgnhRk5
tpC5NKg0jUNu4WSkIUAW2cULtnQ/DRmFega/mJCFNGxpTbQ4mL+d+nSoz/8a
HNb/IvXp6Pi2+UaiHplPx/qbpZK+PBvq05FyumG6YNCaeunm/5h6qtKcDCm+
CHBs1xx+gXopmkOHm2auW1EvxYSWgXF4CJmT4WZKW6rFyW3UyzDioSMp1yHz
Msz7LqpyX3ueehlOH1tPmp61pD4D40Za4feSycjAx+2marVgQX0GPu9Z05sL
IgsZiF81+3LyvDn1mdhaO+Bf5EZGJnpcnBLPntlKfSYCLihDWp3JQiaUllxF
QI8Z9XLkDbVfqfEmQ46s+0s+1QPPUS+HhU/fAyeQBTk0BY8qqydNqVfglSOD
/NFcMhQolf45m3D7WeoVkH86NX7HkCwo8FfZjqqL4SbUZ23u1l5CqTH1WSje
WOhe7hVRn4X+JzZRofeNqM9C5de1G/XeZC4bY3axrdNHDKnPBodBlWjMQPgX
WdfKaA==
         "]],
        FontFamily->"Helvetica"]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[{0, Small, Small, Small}], 
       StyleBox[LineBox[CompressedData["
1:eJw11HlQlHUcx/HHDZQSxKNSBALkkvuQW44PxwrCuuzFcmkSI1kq1XoxtoQP
bKCGjFw5eGCOiNGUXKNBgbIwBJI6xMjVAIlojcpaKmiALRNN398z88wzr+f9
fHZmnz8em/SPZRkCjuMyFs7/rv8fT8MsUzxuPWgP0NINPFTHZ88dZjaCbOZm
47ZQ5uWYm9c0L9P7k9/EVtPJIZNW5jWo+HP5tlQ1swWuXfnmy7+DmK2xtfet
vok5P/I6VCzblWbZwmwHXUPWya/VzA449l5/d24w83qke07Efqf3JTtj5NBQ
lmMbsyucWrtqpnhmd8SKLgWuiGT2RKwu8ShvyOwF39D66fAbPmRvcFzOeEIh
8waMmJXUtYqZffD4/fbugyuZfVHk/6L488ENZD/8c8zxwB+nmf0xMJw5fnY7
cwCel+pRY8ccCNFqryWvP/YmBy383vHqtjrmjbjjpi2+dYA5GLavasM8g5lD
sNviI5dJAXMoCo/H9Op7vMhhSJptq/mghBmwdyjyd00m80Bf+lf6GBvWw3FC
YH647ZEn9XDYdykjihvJXATarIZ7W9SsR2AgQNwYIWQ9EuZ1hQftTVmPxL0f
9cqeRg/qUUjZIe1cFEPmo3C20zb1xZg7dSGaf8sWVu8n80K0/xzasNKY9U1I
lxj+EnrRjfom2J5ZNOQcQuaioarsmx8adKUevfB+5ZpoFZmLgWBSVfWpMesx
aKx8dn5vjQv1zejr8NJ6Csn8ZtiaP4n+fsKZeiw0mOINcsl8LLjzo1ctrFmP
g7q82ZvTOlGPg2/O1aj6NDInQta5jkB3Aesi3K92SVNfXE99C7Kuuy0+FU3m
t+C2ccGho5OO1MU4kTe7OK6YzIsxrR+YvefLejyWXd5zRjzqQD0evU353qUa
MieBKuS2oNaFDAneaAoUVfXb0/MSXHm4O3ZfDlkrgTjPyMfKicxJoaxdGlTT
b0d7KVYMv33ENJfMS6F71hyqdCdrpTC+0JD92agt7WXY2eWhKCgkQ4aXN5b2
qjaSeRlm5PM66NbRXrbw/+5cmK4kc3KcPnXu1yIJGXLc//1BpokBmZdDlNjn
vr/ZhvZyaMbTxjoyyZwC9gWlLnO2ZCiQ9ENFy9oRa9orMLbDxMq+jKxVoPtb
p0EzEZlLwNy7gvhZQzIS4Kgq7zmSa0X7hIXvne/1qZl3aJ+w8L0onPDbS+aU
WKVJ3Sd9Ykl7JXQlyrzIXWReiYxX09PGjyxor0Sw1R7N5Q/JXCLcvK812enM
aZ+IDPVdneoTMp8IRdUScfnLtbRPhMFJk8EvcshcEp46PhcrjMhIQtpP+dK/
ysxon4RVr3kJU2zI2iTk37y7vax+De2TYdZpeqkinIxkSEwEkzv7V2v/BTHT
3G4=
         "]],
        FontFamily->"Helvetica"]}}, {}}, InsetBox[
     TemplateBox[{
      "\"E = 0 [kV/cm]\"","\"E = 25 [kV/cm]\"","\"E = 35 [kV/cm]\"",
       "\"E = 60 [kV/cm]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 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], {
          Directive[
           GrayLevel[0], Bold], FontFamily -> "Arial"}, Background -> 
         Automatic, StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], 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], ",", 
                 "Bold"}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.895, 0.235}], ImageScaled[{0.895, 0.235}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T [K]\"", TraditionalForm], 
     FormBox[
     "\"\\!\\(\\*SuperscriptBox[\\(S\\), \\(XS\\)]\\) \
[\\!\\(\\*SuperscriptBox[\\(10\\), \\(\\(3\\)\\(\\\\ \
\\)\\)]\\)J/\\!\\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\)K]\"", 
      TraditionalForm]},
   AxesOrigin->{0, -25},
   BaseStyle->{
    FontWeight -> "Bold", FontSize -> 12, FontFamily -> "Helvetica"},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   LabelStyle->Directive[
     GrayLevel[0], Bold],
   Method->{},
   PlotRange->{{0., 101.}, {-25., 0}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{{{0, 
       FormBox["320", TraditionalForm]}, {20, 
       FormBox["340", TraditionalForm]}, {40, 
       FormBox["360", TraditionalForm]}, {60, 
       FormBox["380", TraditionalForm]}, {80, 
       FormBox["400", TraditionalForm]}, {100, 
       FormBox["420", TraditionalForm]}}, {{0, 
       FormBox["0", TraditionalForm]}, {-5, 
       FormBox[
        RowBox[{"-", "5"}], TraditionalForm]}, {-10, 
       FormBox[
        RowBox[{"-", "10"}], TraditionalForm]}, {-15, 
       FormBox[
        RowBox[{"-", "15"}], TraditionalForm]}, {-20, 
       FormBox[
        RowBox[{"-", "20"}], TraditionalForm]}, {-25, 
       FormBox[
        RowBox[{"-", "25"}], TraditionalForm]}}}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw1yX0s1AEcx/Eb2YQbh3OeLudZHo/rnLs8fDwdzhEWtfWHpbX1oFnaEuvs
epgTPU8TmczJVCaEGYnVxRSuMEtaqWYsLYqGYqr5/r7bd9+9vm/nrJy0wwYs
Fiv83/6/W7MY8bXeL71rNKiPHhjjnxILixkbo7Hq4099GGMLSKSGM7eXAsnW
4NvfO1Byn7Et9rfEVWszGTvCwVM7/4XLWAADQ26+YkhIdkGNwbbcifOM3aCf
DV4pkjL2QN4HaWjHdADZC5WTZtPaZMbe4HeVj44/8Sf7Itzk+aLch7E/AjYe
rK1U+JGFkJ8+fnnGmHEgmjQd7uwzvuQgjLED+NmzPmQR5Bnq2s0MxrswfNa7
S9fvTRajUvpb2hnMOBhtIc4vJup3kiW4dO7zgCOPcQisLuhyizReZCnSViXt
5queZBlcTWskbUcY74b4e93enEkPcijKVts5oQrGYUhruGPD7XYnh2PSZlm7
7MM4AiYRJ4rHq9zIQM+yxrqJTVYDpWVas4JCV+qRuJJpVCFccKEeidpfKtFg
JpkVBfFT2U3Za2fqUVg1lVwrAJkVDVH5XdPCZgH1aHQWpIyECMisGAS093TK
nJyox6BR+ahMusGnHgtR97px0jtH6rGIut7CS+lwoC7H8Hi6wu6GPXU56rzC
v+Ufs6MeB6XehxcWZUs9Du79rRc9bHnU48GZm+L8mOdSj4e0QTKl7LGmnoAy
9duh96VW1BPw6Vn2SdE+S+oKrAcWto7s4FBXoCb3qKebzpx6IvSvXh5UgU09
EWLMP9Q3m1BXYkDTp9JZGlNXgvfmj2/6ISPqSYhJFfTlVxtQT0Kd8OocVJu9
Wz0ZWY8Ht+fkrW1ZnYwF31sWJZZL1PdAt2nflho/1/sXl8QZ4g==
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw10XlMk3ccx/GCgNyHXKIot1AmZylnkQ9HOQShtKWUDhUNiCwyNkcwzDU8
TIw6YJPLoDDjmG7MiEOOBHBIdWPMIFmAyDUZQ0AJC6RjLAMhOBa+zy958svr
+eT918/hZJ44S5PD4WRtff/f20cddu8TweP+9/kq+oFKowIhl8taF6uStfD+
GT+yKWSJSSsPbrK2QLrXi/rJNNa7EVStXZRoydoWF/9UTGsN8sj2uO+qMtIo
Z+2I3Nc3kiPjWDuj209zs1+b9QFYbqqz6574kt0wVXR+/kERa3d0de6cNAll
fRCmble+bX/jQ/ZE7VLP/a87WHvDp/H8sYkC1j7INHjpquCz9sVgQ2ex04o3
mQfdZx3z/q2s/TAgGJ+qPsuaD834ZnWoL2t/OHxQm5o160UOQH+xh/h1JutA
mOR+bLrjlSc5CIVPBS87s1kHI8dM6Wa04EEOgZ3wgmzzDGsBXH4eW/5cfZAc
Cgd1aq0qn/Uh9LyN+7d67R1yGPJaqkaMilgDcpu/LDy0yQwwox1+d6XUnfZw
dBz7o/GUOZkJB6/KMuxiHZf2CCiPl3WInclMBPr6p4sGm9xoj0R2NOy1AslM
JMrPGcQsPnGlPQoZ/LreLxLJTBQ227SqliYO0C7ETK96wPA0mRGil1E+WvzH
hfZoDKRzx6pLyEw0Drn3PtS2YPcYjP6YExR125n2GGx05oqlfDInFitHZSHB
fU60x2Jw6NHRN2lkThzafvFUXF90pD0OvAvjerafkjmHMdwkYC5Zs/thqANq
DKebHGiPB49nF+IpJDPxGA61GMmftKc9AYXXFa+6CshMAhauPW/VMWP3I1vv
U/5Zt9yO9iPQOSHvqarYT3si6n+y0b/5bB/ticiY85xb0CNzkqAM0xdcibOl
PQkDCYmZl0v30i7C0g8Wlqu/7tk2RKh3DkyftyIzIgQUFlbkZNhsWyXCBdHx
mLJ7u6lPxmRJa9CJdWvqk6H1TVnQWgKZScbDzt+ssr6yoj4Zt71LLrWvWlIv
xnC3ueG6mAwxXIvDh4TNFtSLUZmbV3PHlKzacpNSyc03p16C3D7pxtTELuol
UHrdujsSRWYkyIuIdt7TYka9BIrMkLl2RzJHCvDfdW27Zkq9FFF71x/vMyYz
Uiwvj1qvmJlQL0VbbHDxl8bG1Keg43eTobBdRtSnYEb4d8WUrSH1KeBJPmpQ
ehpQnwI7lzEP6xh96mWoXHxx684pPeplmMy/+v3+cl3qZZCaR2Tld+2kXgan
OsuwmiUd6lNx8mql6AyXjFRMtkV9OP2eNvWpaJOLzo63aFGfitL6doW/Bpkj
x/PA2cbRlB3Uy1Eq4NfeaNakXo6QpOnTCjOySo6GOavv1Oc0qE9DwNMFJX+W
Q30aymM2Ft6mcFT/AcI800U=
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
          RGBColor[0, 0, 1], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw103tQVGUcxvEDyX0hQiAJkvv9IvebCA+CCyz3XdgFFJggWhOFEpAhnDhF
TkGMCztADiCWYEJi02AkYsWBQnIIacYcMgK1DBFUYMeoGMxo+r1n5p0zn/O8
3z+PfUGptEib47iizfPf+/9nJYrj6x27Xg0W6AM8x59yUmdmfXQut3Ul3Aki
m6JH956i/iSzOcSW7ofMc5i3QaR9NGjBktkG0hMPdXR/DCTbQTXaEVzSxOwA
lfZNB/tUZiesuMa42xozu+Bx7vK5/RMBZDd80vSe6T91zB6oi64QbsUze8Hw
4hM3E31mH9QKZZfrxv3Jvqh8tPeh9F1mP2jvPRF6II7ZHyt6LdY/6DEHoH+2
wurYd37kQHjGiYfq6piD8HK1x/tzEuZgvFWh3v6OiDkEaCkRVV/zJYfiq8dF
mm8amcNwSGlSni9jDofKwWVniiXzTkQadi7bX9hBjoByvnUkLZx5F6xLq5Qe
oz7kSMx2jx34TMIcBaX4cuHd695kQL9h7u/xXDIPrOnX3N234EV7NPJysNRd
Ruajoe3ZPf/RU0/ad0Pk0CJkNpD53Wh00JSPWrE9BnIfK7PFsx60x6B/1+uX
rgWTuVj4uWlOHb7iTnssbM/0mvwkJ3N70LcvolBrwY32PRgTXjJdrSJzYvxW
lN3ZK2K7GIvirHPeH7rSHoeZ7AdLNYFkPg5XWzM8u6660B4Pi5KJxLZ8Mh+P
MX5EvH/NmfYE5ATqepseJ/MJEKlnXFpc2C6Bfp+mbH3YiXYJlK3JxTE5ZC4R
6slnqsv+cKQ9EcPDv7sebyJzSejYsiH6wIftSbjRM/dz0/cOtCejcu62/O1i
Mp+MKYVxzkEjtqeg5o3lKVmfPe0puDXsPBCRQuZS0dF8ycJz1Y72VLgnhRk5
tpC5NKg0jUNu4WSkIUAW2cULtnQ/DRmFega/mJCFNGxpTbQ4mL+d+nSoz/8a
HNb/IvXp6Pi2+UaiHplPx/qbpZK+PBvq05FyumG6YNCaeunm/5h6qtKcDCm+
CHBs1xx+gXopmkOHm2auW1EvxYSWgXF4CJmT4WZKW6rFyW3UyzDioSMp1yHz
Msz7LqpyX3ueehlOH1tPmp61pD4D40Za4feSycjAx+2marVgQX0GPu9Z05sL
IgsZiF81+3LyvDn1mdhaO+Bf5EZGJnpcnBLPntlKfSYCLihDWp3JQiaUllxF
QI8Z9XLkDbVfqfEmQ46s+0s+1QPPUS+HhU/fAyeQBTk0BY8qqydNqVfglSOD
/NFcMhQolf45m3D7WeoVkH86NX7HkCwo8FfZjqqL4SbUZ23u1l5CqTH1WSje
WOhe7hVRn4X+JzZRofeNqM9C5de1G/XeZC4bY3axrdNHDKnPBodBlWjMQPgX
WdfKaA==
          "]]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
          RGBColor[0, 0, 1], 
          Dashing[{0, Small, Small, Small}], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw11HlQlHUcx/HHDZQSxKNSBALkkvuQW44PxwrCuuzFcmkSI1kq1XoxtoQP
bKCGjFw5eGCOiNGUXKNBgbIwBJI6xMjVAIlojcpaKmiALRNN398z88wzr+f9
fHZmnz8em/SPZRkCjuMyFs7/rv8fT8MsUzxuPWgP0NINPFTHZ88dZjaCbOZm
47ZQ5uWYm9c0L9P7k9/EVtPJIZNW5jWo+HP5tlQ1swWuXfnmy7+DmK2xtfet
vok5P/I6VCzblWbZwmwHXUPWya/VzA449l5/d24w83qke07Efqf3JTtj5NBQ
lmMbsyucWrtqpnhmd8SKLgWuiGT2RKwu8ShvyOwF39D66fAbPmRvcFzOeEIh
8waMmJXUtYqZffD4/fbugyuZfVHk/6L488ENZD/8c8zxwB+nmf0xMJw5fnY7
cwCel+pRY8ccCNFqryWvP/YmBy383vHqtjrmjbjjpi2+dYA5GLavasM8g5lD
sNviI5dJAXMoCo/H9Op7vMhhSJptq/mghBmwdyjyd00m80Bf+lf6GBvWw3FC
YH647ZEn9XDYdykjihvJXATarIZ7W9SsR2AgQNwYIWQ9EuZ1hQftTVmPxL0f
9cqeRg/qUUjZIe1cFEPmo3C20zb1xZg7dSGaf8sWVu8n80K0/xzasNKY9U1I
lxj+EnrRjfom2J5ZNOQcQuaioarsmx8adKUevfB+5ZpoFZmLgWBSVfWpMesx
aKx8dn5vjQv1zejr8NJ6Csn8ZtiaP4n+fsKZeiw0mOINcsl8LLjzo1ctrFmP
g7q82ZvTOlGPg2/O1aj6NDInQta5jkB3Aesi3K92SVNfXE99C7Kuuy0+FU3m
t+C2ccGho5OO1MU4kTe7OK6YzIsxrR+YvefLejyWXd5zRjzqQD0evU353qUa
MieBKuS2oNaFDAneaAoUVfXb0/MSXHm4O3ZfDlkrgTjPyMfKicxJoaxdGlTT
b0d7KVYMv33ENJfMS6F71hyqdCdrpTC+0JD92agt7WXY2eWhKCgkQ4aXN5b2
qjaSeRlm5PM66NbRXrbw/+5cmK4kc3KcPnXu1yIJGXLc//1BpokBmZdDlNjn
vr/ZhvZyaMbTxjoyyZwC9gWlLnO2ZCiQ9ENFy9oRa9orMLbDxMq+jKxVoPtb
p0EzEZlLwNy7gvhZQzIS4Kgq7zmSa0X7hIXvne/1qZl3aJ+w8L0onPDbS+aU
WKVJ3Sd9Ykl7JXQlyrzIXWReiYxX09PGjyxor0Sw1R7N5Q/JXCLcvK812enM
aZ+IDPVdneoTMp8IRdUScfnLtbRPhMFJk8EvcshcEp46PhcrjMhIQtpP+dK/
ysxon4RVr3kJU2zI2iTk37y7vax+De2TYdZpeqkinIxkSEwEkzv7V2v/BTHT
3G4=
          "]]}}}, {}}, {
     DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, -25}, 
      PlotRange -> {{0., 101.}, {-25., 0}}, DisplayFunction -> Identity, 
      AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {
       "T [K]", 
        "\!\(\*SuperscriptBox[\(S\), \(XS\)]\) [\!\(\*SuperscriptBox[\(10\), \
\(\(3\)\(\\ \)\)]\)J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]"}, 
      AxesOrigin -> {0, -25}, 
      BaseStyle -> {
       FontWeight -> "Bold", FontSize -> 12, FontFamily -> "Helvetica"}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, LabelStyle -> Directive[
        GrayLevel[0], Bold], Method -> {}, 
      PlotRange -> {{0., 101.}, {-25., 0}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, 
      Ticks -> {{{0, 320}, {20, 340}, {40, 360}, {60, 380}, {80, 400}, {100, 
        420}}, {0, -5, -10, -15, -20, -25}}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
         RGBColor[0, 0, 1], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
         RGBColor[0, 0, 1], 
         Dashing[{0, Small, Small, Small}], 
         Thickness[0.0025]]}, {
       "E = 0 [kV/cm]", "E = 25 [kV/cm]", "E = 35 [kV/cm]", "E = 60 [kV/cm]"},
        LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
         False, Automatic}, {False, Automatic}}, 
       Joined -> {True, True, True, True}, LabelStyle -> Directive[
         GrayLevel[0], Bold], LegendLayout -> "Column"]], {
      Scaled[{0.895, 0.235}], {0.895, 0.235}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.639830797929832*^9, 3.639830831162537*^9, {3.640020516012794*^9, 
   3.640020538604785*^9}, 3.64225292893363*^9, 3.642254385811997*^9, {
   3.648499013965818*^9, 3.648499025069008*^9}, 3.6556637552394037`*^9, 
   3.6558293645683517`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQecFMXy8KbLkYMjJ8lBAUkCgqAkkYwEQRFFMKOIoj6zIpgwKwYwg6iI
WXkKgihiQkFUggqSBJUMB8fF+rp6qmZrZifsAb7/957M78cCuz3d1VXVlbq6
uu/511w8dtz511xywfm1e044f/zFl1xwde0eV05QX4WDgUD4j0AgNKR2AP8N
gQB/2J7t+BHz9VH7dov+KwmKd30Dz1xxOrSskwtpKTlQo2knGH7nO/DrgdJA
gm4TAdi7BPrkhiAQLA+nf7YnRK9C4R+w8L5R0LFOeUhNzYUG7frCpdO+gF3F
EHgoju7Nfor3wLLpl8Ppx1eBjORMqNa0M5xz3yL4sxAC8Yz1cBnGKtn/E7zy
r4HQvlFVyEzJ1m3OuuMdWHewNK6xHj18lMTT5jFuY+1efVkIvz3WAtIUoyRo
dklVn1nQ8YMdUIrvuPfZ3aD3Zv1XCpTuXwbXn5AGIc12QQgG1R/97zCU7/Y4
rC/Q01NtMx2gUE/pXvhiYlNIDdreD2VB+7tXw0GAB/Tr1eIZSj0H4IfJ7SAz
ZGsTTILao96Dv4rjGjLwYBnGLN33NfyrRXq0TSjaJrvjPbDqYHxjPqLHrHS4
aIprjEddGUJ9tXQ4VI0wQ6RFGSKOfrsZXLFJ/5WKsMD293tCeUWGUHoLuOnj
3yG/YCcsf2ogVE5QrybUhLHL8rwYo+j3l6BjVlBxT3no9tAy2L5/Eyy4vhmk
qy7DlQbBx7tK79evV493NCj58w3oUV4NE6kIfR7/Fnbk74Yfnx8B1RIDEExp
ApPWHopn2AfKNOwe2PLiyZClcBdMawrXvPcb5BXsgdWzzodaSWqYUAU44/3t
UOA/rBd7xAF1PG2IPVKdWTDvO7i6QbIifQjSW9wCX/65PwT79+9XnLJ/fx4c
LI4LDCunpGtJtPmlMdC3Z08YcPk8Y4Hq0ZbB6BrIihlw0is/w+dDK0NY8mYy
NLjhJ9i64HQD/7l9YdFu482SP+ZA+0wFRUItuOi7vECUTeIZahvs/LQfVFR9
JtW9Cr4/QG0KfoF7j0812ry8Fbb7j/tAmYZVMxxWRc0wCJntX4c/SnjY9fBQ
Mxw2Eepc+T1s8R/WmG1YfeyDLw2kEdYqlAVrsCveGToNlWwOla8WSd4PU6FH
boISHAlQsett8PFfRWFSH3GMwhyzTf9VWS+7gz89BK0zVJNwJRj02RY1usJd
KBFyqlSDatXUn6q5kKzEsDKMICm3NnS6+0dY9WAzSFViK7nRrbA6n/CrxPt5
1SNa1J38zl+o+x52HWYnbJreEtKxiwb/gp+4i6KN8HTLdECubPH4z7AmvmEe
cR1mK3x3US1IUF1ktH0ZtjK3HPoZ7mqaovHa6LaV8FN8w0zVw9QgEh0NJG2B
X+MbmtZdvGP/DId4phtehytaZurFkFRzIDz49R4w1kMBrItz7K4Gz/yu/6qq
Poph5+LJcNnZvaBxRphU813w44ES2L1oLNRMzoFuz25SKxUcZF8+rLqxASSr
YdOaPwzrC2nYgz/A1XWTVF/p0Pq5zVAE8KDvcAXwy73H6xkEkmrB2He2qddK
YO+Xd0DzdJSbVWDYkj/jHe4h3+EUbr4eB/WUogmm1IOLZ/8If+3bBsueHmbo
vLRmcNuq3fEOF+Wlo4W0X2BlfEMTL6XEMzaZm9nKNl8Bj51ZE5KCqJ+bwfgF
OxWi4iZmDAsVwvpHmqPJrK2g1MbXw5f7So23i/+ANwZVguTKg2DuH8VlwMZK
mODGQm7DFcD6h4xFgF5eMJwKlY6rDtkJQd0uvdW9sPZQ3MMZLJTqPbvSA7Dm
mfOgcVoorKV7BoSz2sC41zaqJRv3SFE1fFSQ5cY6MeMaSirZb1jDN83Sns/7
VzXWxm6kyhD4944Dcc+QOGar/quKwlsh7NnwCTxwei5EQqnQ+LKFsIsUe+HG
6XBquWSocf582LnbjgAp526DNSznlMFwvjYYonLuIc+xSuCPOe0hU/WTVPs8
eOTmQdCqZjnIqNgATh4xFRZvLyrTWA/7zat4Jyy+oztUSoxAZv1OcOY5A+Hk
OukQSciFU+9YBvtK4x+Lfb4jx5PUV95jPhjXmGrUbR/D3Nmz4bX3V8Jeomfp
zn9Drwohbc+f/smfcc+TWKaH/isMF154IbWFwFO8XlTD3Z+eByc3bw7ths6G
34uMBvuWngmVwkoC5HRXhjW/lg+r71ZGipL24z/8AM6wgb5rQQ9tboUrnwlL
9xLoO96HLuWC2l0Z8y3Zj5lxD3vg+yuhjlIm4Yr90IIz1lFKPCMFpCMVz1CH
fp4CTVMCkHjcOPh6vyGcSvd8BhcopAYz2sKzm4viGTcqYo8YWfG0eSjO4XYv
7Ao5Suok1LwQlP1tPPu/gXOroWmTCR3e+BN2+A/XzZ2jniba5C27AGooBzVc
rjM8uvqgcvDzYPnk47XMQ0P80z0cXcqGUgXBxAYpkFarO9RJt0JcrNy9k7W7
VwkGztoABSUHYfUjXaBcGN29ATB/Zymv4ziGVOtjOYxHkRrOgS4Pr4D9am0d
Wvc8nNulHZzUaQhMW18Qz5DmOo5nzIM/XqvMIyXqc0+Hp1fshqLSItj57aPQ
JUeputRm8OC6+MZkOXyE6IprrIfjGOvQ2juhiVoqgcSaMFpbmYWw9e3RUDMR
v6sDVyrHNp6x4uAmyF8Ld7fJ0OGvYCQdKlXJhgQMFQVToNHVS2FvaZSb0Hzb
9fFoqJFoWC/2ENeX1yjyYOhOeYpZuUp1YD/hLOhwjyUSGMeQiG/4653zjChL
UGmkSpUhM2J4HOkn3g4/HoxrSJOb4hrz0C/w0Kk56Ajr/jJzM4w2yi2uNPBF
2FwY35imVj8ydMU11sPxjFX0O8zsWxEiOHflxWVXzIYk7b1FILfXDNgY57w8
uGm6/kyCoh2L4eGLekO7RlUgMxWD7p3h/KkfwuZDHEdWGqZ4G8zpX0mDw0Z/
NBr+Jyy8fwz0alMXyqdmQOUmPeCSp76B3WITwWsMsx9l227+4E44u0MdqJCW
ChXqtoaeo6fCx38WxjXWw2UYq3jPd/DS9QOhbX3FoilZULVRBzjr9tdhTV5J
XGM9coR4iafNo3GMUXpwHbx1y5l6MyRLzbXm8afAiDvfg/X5pXGN0Vi3SUSp
DNfWSwLaylJmeUd4b3tpBv9cuhP+3Skr+nNSXZiw8mDYnbnA+kyxjxNKgRod
ukHPQRPgq73RcWAfLLt6EPTs1h6qp4QOd5xIdByloS/8Lq8cf533LYypmVD2
fq+nDkwhH64Mg7/Yl+o8XJgpV7AOHjghVbt3Od0Wg1raRJU0tfZ3woJL6mhX
OZhQDUa8jiqDHiuYgb8XznQnOOkpgm1zhkEVDK0Hldtx9WewpwRC/xfYTHOF
smD9U9CjPMdg7sfNH8LYfxjEVGcQD/wId52UqbVYQuXB8PLvhZH/a+iU9VX+
NLj32y2wZGITbZ0FU+rDuIW7MOrnDV1rAwINHH/chh8ZhwFTigUmxFoktQqk
oc0QyoSTpnwPeaUQ3cSOG12zHb57+Si3q38Y8022cEgoIU1588auZU63GbCh
ABL/Z6aaYplquVNmwrTh1SERYzy5Z8Djaw5qZ/x/h7QpMYt/d95KmNolh4Lq
58DszQWHMd8E+u7ZZwFWrTK+e+4/gIPj9KdiWEWnwoN5uO2o/+xYfjM0Sg7o
nZMBC7cZ+5FhyDtYCKUWkMskJIt3LIDxTXHTPwRpTa6AD7cXl11IsrH63XcA
iYnGn7FjlRuRHyNAL6PXo1tJgYC2ftR36S2fho1Fciq5bvaR0ZmbXtr4Egyt
mghB1WdWu9vgy2jkCo0pNVNjPJqYHikU3+xq1QKdFoR/5s498tkVbIAZo/tA
z549jT+GVeY5O+SL/Svuhk7lwuSUPAqrD+I7++Dba4eqmfTu3VuN13vAGJix
ocBvdszmilbwgHI6hwzh5mHYuhVg/XqjnW2mj7v3mErfqZ4gMxNg2rSyvJ2i
PxP12JUqRbHdti1oClifR/3ASILduw1m5I6YOdX3drAedu8tnZC1dKmVCU44
oSy9sKpGZCu0aPTMmAGM7/x8sxN7p1PdO80ijBGl9IOTrlHDoKj1ud+9oxya
48SJVrSrju3g3OffC05m3DgTS07CwKOXCjQplLyIc34QazNn2id1t3tHlQgc
7AhJj+CccorjpKb49WLgeOhQKzPdfLMdnMnuHVWhjj7+2MpH+O/337d3NMm9
o6o0L0TzLbdEO1LEs8/Lo5fqYl60KPSDvc6aZQfnNveOauvPiGY45pvPP7d3
cItfB1bmy8pyZJub3Xs5jr5DlmneXC2bqVFpRkpc/8/W47/ce2STBDGCRGrT
BiwrLc4OEjU6Jdsg0cSCp+c6944aUEeIVn/Wuda9o4b0HbOOgkbrRPzuscdc
kXS1e4+NCUmImB49jPnFImmiewdNaW7yJZxT/fpOc7vKvaNmBIlEEEoh6zPe
vwPkFpQTZe6gBU0FJZVcTri8YlfE5e4dtdKfCbojnoqL4rrUr5dEvSJwUcq1
FbvCL3HvqI2YF77MHTkviIvcO2pL80LksCxFhlEi0T4vj17aETiI0okTo68g
3WLnNca9o476M6L5VigH2zPavYOTaT5IZKkb+vSJmY9HL53oO1QMyPVqHqbk
EnaPvceR7j2eShPDHhEenGDsxHw7SDS1uLfkOtu9o9OoI1zJ/pJrhHtHXek7
HB3VrpRcoiM7koa599idvmPJpZaIgfaQwxSHuvfTk6YoX0K8OU9xiHtHvfRn
ggaI8eSi1we793KG/owKZOwhFgyPDvrQfKTJjUvLWSAPcO+oP82nX7/oXPDf
DvZXP/de2EuZPTvqkRgoT7LM0cai9hH6uI/AXi9OEsUb9qKMmV6EByfWFQYF
Pb39+k+ERYusHZH4PJ2mKXSyNuAdhL3HIAk0COsbG0p6CYzZjWpcTg4Y6+k+
WBINZneJkEXUd2cQROjIoZ8jFrx9kB7ugyTTdzgjMg3NFU8hBt2ipwP+cERl
z5RhtFSaElJWKkuCW+JP2gTs6jjg7zT3wdJpMMQ+gyt0vEHmiCl9EYZYxXaq
e/+8t2NfH+hVq47OEMMzfYTHZ3s6u4+TJTqShgHpG4k0u+vkYs50ch8smwZD
rrL3ppYrMx3yZMOG0Z8cpI3HIDk0iH3RE2p60SvsxWOAg3SGXFXG08F9mPI0
jMtq7UNzwZ95LtjMYS7t3AfJpUGcVqmynRhhSB3J8YrryjBIRYERckYtq5Ts
4ABLU8QaAiDtYzRTrE8b9wErU0cuC7Wv/jlims6ENtvTyr3/qgJQydMjR4q1
mQiDBzuqHdtzovs41agj+xrFBanWKI+Das/fcGrhPk4Nl/mQscuyQNhV5pxi
fZbm7uPUpI6kbS+WZ296BaeLRoBCp2nk4nfMJ7YBm7oPyIYBcg+/zczhtHyV
PdOPXkF8488zZ5ZlQLYTUAAhJlGaqoGMuE6SJerFE2fV0JsgxplKIlx2WQwA
TfwASIR586y9IC8qDHCAiSMgNpZhrYK4GjXKgE8tIhnx5YFsINX3I0IsF5OP
WYVe4RCztNqldGAuFEBoGiKMU6bYwIEG7vCwZYJbNxJFGJFWMDKKXMDtS3OS
P5HZa8dJPXcYkmkQnJx9ELUK3QQMLUheKIKdTJQJP84Oz3Hu8LBpYxcl1Bvj
xGXhsjuA8tZua8dG5T3ASPMYR6DFHh6lpduHeuSVbXpr3sHzGu7wZBCx7bIC
nXcDGOc1zdtbvUUbybfYHoFWy7AM0GTqz4jFIlCQcZTWZU0zw+L40mVUa8Y+
dnX3sbPpOxkmlWpDmqioBhXT9CFwkQNYC8eqJY8xT6T+nVaiGrMv/Sz7xKa4
GufOtY9T2X0cDoKhQLBvKqkO+xECpY/qsvFR0X2Q1jSI04aTMgyMySSZui8O
O7iC+2BtaTC7WWdhidh1hIiNVejl3cc5ib5z879YdrNuY5sYB3LxXz1Gq0Hf
oZYgops7JjIgGyOtjW0+KYmwC5JtdgCy3AGoTtPgnWzhj7nahCSymYnYMGDa
KnvKDkCmHwCxK4LoyjA4uT9quRswRCzSTET0/Ydn+83uFJLd6yaeyeVnWth3
j/D/iCUHDZrqDkstF1QQ4avSK36cyXSRG0sujJHsDsxxAjEOJgUjxs6k5LT3
I8Q4qU+XtZ/oDksdGgyZwEFqVnMBlSbdj352imjFioYEdzDqUUd2i4LWgxer
qsXJZJECw8VT94ChPvViNydwW56Xkn2iuBmtmJVpguw1e3Z0NGyOlrEVkBY0
OMAeWNwtB4tCmHkkodw+sMQ4oUKbAdhuL3x2RgVMPjTbBXN6GIc/VAuPLWLe
nuP9L9wXYcHoZA86MbuMGSBWrdHj5n/PZKLdHnbFFXbnJD4aibnzdyynnPx/
td6MoHNE63smvWUTrzkRX2AAkutfC8u274e8A/mYjUk7MolQkp8Hefu3wzfX
1IOkQIBnPsWYNDMGVRTR041A2auKRBxmzu6/50pOMpeQjKagN2gVt02JNSxT
bngTrFJWbBfzt3z46QbjBChNM2CZZ4JTaYzA4dTGcJovexlOJpISGQMJBLkh
OmyYWKlbTQY0p6HLM+j0q9bPwxZKvzJEk5Fid+CXN+D2kZ2hYaUMSM6oAo07
9IPLZ3wLe4rJKcZmxbB72TNwVb8ToUa5FEgpXwdadR8B1724HA9FJnsg1kw6
P7AcLq2diLBISKBoy0vQXadQByBSsS+8tq04wEnshRuegFZ4Ul59U7H/h7Cz
NBp9wP4urpUAwXJd4O2/SgwQausJHfz1Dbh1eFdoVb8yZKSWgxpNOsDgG2fD
93upvMKBlTC+DoESzUlT0H8CXbKRQUNQ4YzPgI7cQcH6h6BZKn7PVS74ieEV
YpV6RIY9n5wG5YLGkmA5kN15IewG+RxxzQwnTnJTcmSo9KeV46uPt8TJUVXM
dmo6K+6CjtlhkgKJ+shFvXNfh226bQnsXnwNnJAWilA3gXAmtL0Zjwxz4OIw
WKl0N3wypiYkaqGSDZ2m/QYFwO+gKYHHh5tDmkENCJXviWxjclPpLpiP8j1S
FUZ8sS/JnEwx7Jg/DpqpdWtAW1VzR3qLG40sxf9DTgpLTqIlUw6ORjmNsAM7
9afv4lO/sWyHwvvNN43ONps0js46EMyEVlPn6qjePNXn/KVb4JCRBhpIpLEP
rpwAdZMCzFQG74Ryod/ne4mb8bOCUUendYbmnXB2O7hixgfw6fxZcEuvyjoL
PJBQDc5Ra6k0fxXc3CjZaJfVGsardgvfegTGNDJKgAXTW8Mj6wv8WTLVkSXz
V98JzdKMQg1pze7AM4hhhtOs70I5vaFy0OWVbYrbwBR+eAJm83NtICOYDA1v
XIW8Qpg4Tqugq+oaOcGhzBNh3Mtfwbotv8KnjwwwilGpdxrdpN75+/gzYGNQ
XNfFxUVQVFSkgMfPsPp/qclAR6lOh8ZOArJmf+INtNilAUSbe7zrbreuzRwb
Zy40zrhllYnjcqFw/SPQPA3fT4eW0zYAw1+y/T0YUNE4H1Rl2FLYvnaSkdWv
BHvTu6JFcPKWjYPjEun9Jzfq+hKJZWS7hGojYM7GDTCrZ3l9JDWYVBeu/GIv
rmhmu/zVtxoJ9Ak50LJNBUjQBaieg81FUb2av+omaJgcVFz8DH7PHHfwh2v0
0WnM5q571XLgI+tQuAVmXzwQM65h8JUfwvZ9fzvHGVGmIyve4STi2tB36OmT
Uxtw8yQpNsZaFKXfjBkm6Dp4YvGwf4uD2Yp3LoWXn34CnnjiCTUifobhiSef
h3l/FApmi8DezwdAxTBSsQZc8G2eaaMVboBpLdI05jPazoQfP+ymKwwEQhWh
35K9IYKgdPv70CnLsKkqD/kC9sXFaikWVkMiplRpAFkJxmnnamd/ANtLGKto
ih2EH66tr32FSNXhMO/DkVA9ggK1FUzbED2Dtu9LGFE1AqEKp8NHO0sT6evd
i4zSCIFgDnRdsMv4utLfqWutFn75o1rzw4nTWhO+kU1soQvLfqg9aHDLLTCI
XmWbLeagyYs0XkaG0QDzfxkG4VGgIMPDtPi75eE26m/zPWxjf69fP+t73EaN
a74n5kfvGXAxHvhIgd0QaP3gW+rb+fPn47bmkrW6NgSYNiaul1LY/l5HyNLt
Fa4N1WnS4BLNp0HI6vQmLH+uta7ipuszfpsX4HUA+5bCwEqG35HV8QPYURrP
OgjLdRAI02dYMfBMo45JwDySpdpdodlVrbPBn8Cu3YthSOWwPsx6wtRftXFq
HhUt+Qve6pINQQNGXgh7PulBC6EcnPrRTueF8JTzQuh1FBZCztGqUuLkn3Ay
rT12RtlgvAxcTgkMIBRJM7NbN6Prl/AjpD2YiD0XIdH5a6N1QkzmAq6qBI/f
9HvM7dgAFYExgvrMNBki6jrxWajEOuNhpVFuMsDehp+1YTAAsn8J/PmGUeoJ
2Tyx+lnwxJebYe+OtfDeDe0gG5VDMA1aPLQGfn68hVHmS1kDV/9wMMr+ioqj
tN0fgMx2r8G2knjYP9miBlLqnAMD66aodkFIrncVLNpF/lSK6v0iqIXaIZwL
fT/aCaWlO2F+v4raMElpfDtKTGHoFsL6h7EamWkU0X76cWSNkNkxfgVwgU4o
3AyzRp8BXbt2hT4Xvwd/CrMDUbuCGqLU7pQVILtcWzr6OfTL3bq40GGsiaNU
bMVpTfCWltP+2ZQptCbcc4xo9zXQT7RDw0UmUqPvRqeHDH2x9igzKXtLuxZ0
hmwtvEIQMWokU+Q0STNtSv1L4OOdhbDlBeXiaPlcC09qusjn92F7XPI5xeaJ
PQe/rHkKeudGtBzOOfVeWJFXGjWflfWz9LzquvwmBgTe216iF9f294w6v4Gk
+nDtDwfZXjnwPVrpymTu8Aps40jtcfqA5k0NyY0s1wGun7sM1m/5BT57bJBR
vgB5d8L3cEDI7UA4G0666nn46LN5MONqWrLIc4lVoP/kubBo8ZvwwHn1IEW7
/GnQ/OH1plMRB48epRIuTjzKpw5ccl7d0rnIvGHzBZ02aUubSQJrTBJ7GMq7
voRXn50O06dPVyPhZximz5gJH/0pDeVMxQmXQu1E47xwv1dnwc39W0OdCulQ
rlZz6HbBY/DFTsNo2LWgu5OlDDs/gs7ZZCkPjddSrugQCyiB3Z9dh0Ekjegq
g56BdeT5le75FIZXjWidXe7UN+BPsjZL/phrKFA14nGXf4fulmks7F4E/ZRP
Ga40EBbvMfcLdFzts4lwYgaHqpJpnY2DhViwT3BfJK0m5CQG2XwJJJSDZsdn
I7eQSZMCocx28MCvBRB9XJnuREL6kRaEcdr5aC9EmVfys9yZtqc3KPE3gLoR
RrWlG0sy0U8eLFiHfivd8QGcgd6AkiLNHlynrTkD/rSoglC/nXCftvQMBJq6
TKlmI0hwmPyEPxTAppeGKPkS1MGeumPehG1FpYqVB+kiemgVd5y9NWoVFyuB
0CFT959Q4wL4cl+Un/CnkzKU6KkD41ceNCAyKkTtXTELbjq7J5xE9x1Ua9QO
+k14Fr7aTmpUWqKtp8O3/54EQzo0gIoZuVC/XT8YN2MF7Nm3CmZNHAQdG1dR
tn9FqHfScJgyb6sIznpuujhtD54sRJBDMlA14jW3Y89ouA2gLlAOocVp07Qe
fGD1TubPXwRfbzskeLCCDkUvHl1Da5VIha5wx7s/wpZt6+CLFy6AFtUrK/6s
A91nboGi/NVwW5MUTZNIbg+476NVsOHHD+D2TkZNsWD6iXD/ujjCjwlOLELs
mIDGOMzrk2t0qVb1C1uKRFS8CDZNbw0ZKP0iVWG4EiilAFG6HII1tzeGFOTY
R3/THFv78GjWUSxkpwxI+0KW6euCtgOJaXGds/bhPKifaAgnSwbL2Lad+bsO
sLIZVbz9A7i4vsY/iT3Da0ysdha8gTVjUaJ+OsGyUxFS5L/lK7FT4bSFnBTd
QvagS8lfb0NPvJ9A1/HVblx044vjieqbSgM/0htfvF73fz0KqkeCSl28A3+V
QE0TjMPebj+FepY6u2NHkDvulP5mkozOL+kWHATDdjLVBtcfyl9zE/b7OAlU
nTos3vUVPH3VAGhduwKk4XUrx3eEfhdOhXmbDwUsO5NfPwvXDO8OrerkQEpa
BTjupMFw3awfYB/vTJadSJxijN1ve+1UKBey2GHRKlu/wD3HGyWEQhV6wbt/
lZh0Kt3+HnTNCUKk6tkobo8CnbrQd0gMRj6nATgdAVPr7EwCVCZvYjNrug0f
wzD2+febBVcoD6AqzciMMCY3hJtW5deit0oLD8EhRfx8+nPokK7H4iEMLqA3
7b4/5XrwIpd7k5iyYj6b3bseI5jWa59qAPEYBhDkuQs0MlABWA8yrXcf8EKa
CwIrNQkZvEwApA+n01GKhuh/nXv/F1P/ToeO1ZgDxXztJ9lx8dHcxFg/u491
CSHFKTWZN4V5QCdT6pxzzFHEgGvcB+xL3yHyONuRPQinvE4l6g0PImKG2PGn
W26JjuY1P3meiN+1RvqdpZ3MNx9IOBLHLfQ7yLuxZy5/8gMm0QIM/qGCMW5p
kBQHHkxT4WoTjCGFFjH8j+7D80atTBBii1mN6ZY6RscA2I/jZYZQod1tlSse
w/PunUuoo7qghlOow04N/L/Mh3bOfV3hDs9AgsdeWoLcWkaHU7qEGmuwoCW7
H7xoZE48fOcOwSAxZa9sTrkl5ZDUdyZhxE44rtNi5c9l7vCwO9anj1lEJyAP
QUhhR9aZpJqX8JVCizw2s504FCfg/NodTi5OhcrEFkQO8LkAu/DEVcKZ/TJ1
P0ZwRyzHaUeO9ClU9IU/mPIoBR09MgN2vNbxUFhtQWb7zqMCmcHDVwSHhfD9
gEOllzwa4j+QvZlIn7iUEHp8kIlQ0irKXql/9q5KxdJNhonwz4wZNJ0D/7np
cHIbLijJ75hIMJ6m6uStKA0/mIjEmxi2o2YxPLSHUHPkOZlOE0mhieBC4WwI
ZH6UCOMFSMRxFjOC5e2ZNLo0mfDfpLT0s5fGOcw0SyfQ+eiWzFRGlqLFMJ7w
5rRniqIUZziERrafaTPPPs41WSXO1MnSg7Du3Tvh7FNbQJ3cNEjJqQFN2veB
y59YgpdPmg5K0Q746tkJ0K9dY6ienQIZlRtA6+4jYfJ7v0F+6bHUyXg4l/eJ
ZQUz/FuxQuAqwZEOG4WDqTshbUzGRi1hsY9fi5MFzFzH0r3w1Y2tICPEGc+J
uvp8hW4Pwmqsqlj4O8weVg2TzqIRhHRoPu5D2F58LNcxHtJzCQcUVChhKYVL
01Mt9zMFefkVeSwGXTk3S57fdfJkhHwzWOMVk1Z/R85iLhT+9ii0TjcuLEht
MAoefvsTWPLhC3Btl/JG9fVQDpw2eyvs+fpCY2MVd3K63wwvL/gcFr8zDS7S
OZ/GruTYz3XWV5kzyP5ZiYtO3JZJtEPWYXcC9QyqNzP6aNTWI0eFzEjvGjws
hNhnlYd2YyqMvuzIaWXLSzTQzZkCHSCT4rsjPtvDpXKhaPNz0CbD4LgKvRbC
2rfGwOmdO0Pn7mfDk78VmLHlgl+mwgmpBsdVO+dr2H8YnPWPyU10YqpsQpa9
niseixxAv0mrheqSmA6KS82wIYw4kZeCGo7rLZiu+Kw4GMov9zBK8FI49Psy
+HTRIlj06TewydzbS9Abk8aeWBDKdVEmB4hNiH1fGNlPauzMDm/iPuexrEMP
nilHWOfaCUhUlDr4f6WbZIaHl6NtzxhxC+Gzv4Xv2Q4yGjx0KXXEWYXYRTPq
SOreqEkTX0ZfLeau0v3w/UNdIIdTl+7Xe6rMPsVbXojKqt7GbRb+7PMPSdZz
4p/yhBy2Y1CJId2wqBGH3pCfHCoHsdhxUmhKZA2h+fJGHqlGxrg4P2twzlj8
OBGZhKtiH61MI6O/HLXs18BdA9tD83o5xvGOYBhyTrkTvtlXorOdu1ZMhqTk
dKg15ElYunE37N6wBB4ZXJXMZ7XaX9X2iz8//ZOz35yYrAJNAVlB7sMPHhzd
YHc5Lc5MhkeC4tRtvIOCcU5zS/H5v4WnUkSSq5FimVz3IpjHd3kf/BEmKnsj
wRQrePnLPXgBbxwu3T88Q82Jj7hAG0e+WdmhwaT4h+WVk0BSP8ttai8dN4S6
kTsmgYC1KOyzJvkOP/vMqO+TBaWF+2Dr8lfhquYZ+m6JzLZ36DualUyC9zor
/RFMh6aXXgS9j68KGUnpUKVRBzjzpjd1upR/VOifl2bmxDmyKD0+rOawAIPi
HuYc+z4zhQ29NJ3ipKE0oNhpdE8am+7BOUbSWDbkLb8MWtasBtWO6wC3rmLR
VgxbXqQU2MTacMnyA0Yf16MhmwrH3/uLkUBWCmmHxRT4wz84V6wKQS53Gtq0
AVZPToWtlIDgrAoX9TSUYLF7ZoppDG6Y4cgNfqljWdr6a5FmrMeqZz4CC1dt
gnVfvw63nULXTCpxf51xlyXs+OBUKBcMQXaHB2Cujj8ZUah5Hy6G1YZ9HYeN
/N+QO8Y5YbiMc3OjuoG8XC51wemApD5qUU9OW8hUvUu3YFsDLRUUDHJT35IJ
8iR16Je+xPFHfc3eGH3NXjQ6rGZfeeBzsIlEXv6qG9HCM00JcR9Pojncf3t+
Ge9YM2ZZ1uLSWcqlCMKyBKpZbMjFCRlOsLIux56efdbo/Yk4yWRAlayPkS56
bBwMOrUl1KuUDilZVaB+yx5w4f3vw68HStmxQVv6NK0qA9Fg/lEg1/+XmWY1
qGdZBKt+fbq+wlUsDiNYKeiuf0Lb34xEraX3/1N5ZjI5Djd7OIJCZuHVgvHs
lqPcKBhC7fD/WBdJXqmCMokzl8B8ZrnDdBxNkgvnksa5Rn/tHEbmtI2zCL8y
ywTbYgpBdOyZfmNbk1w430J1eg397BRwnDuXyBuWILrbQ/p5wR0UruDFCphJ
Q97dNT6kWb3a6GaoABlnItFmKXfkAUp9Qqs0Eajamxm5R2rR/rZZicoJD02b
RoNvQ4nSMlFn5MiywBSxFDhT89PnDTn3SiYkkEVrcjz+JqvXYSHCmTNNEvI2
v+re5GS0nXmKURhnuMPYkOBAwcvkw3lijInzstwKhyJuGY8c44xErFuzzE/M
9vYEDGuq23R3QBtTB7L+HWcIcd6XUzBM8XxNmodXyUoWezKhhTN74oKvCXWA
65yXJCIO4RtE8LkUwJL0ti/ZWbPgLAE+60d8UM1aUrP184Q7iLp0VkhvS0RM
QhMMjEInHClVwOrILbWESlYGhhMWZF5ZrHTzuDfvBOoACzFwB7gGkE8YjU7p
jAoZDKPb+SBe0rx+kFvsS58q5ukWUXgfcYe3GcGEKgThZLIjQtSAMknO6+gT
e7Fs/vLUKI9tuJi5XUJaru/wgJTL2iEaUHcg14cQj7adcj6VLWtAdusGbpUj
6eDfcOqdM1Htu6Ox2YAPuIN6IjEBJyXxWJhvzRv+Mn+er0tzyg+RSs2gfHJM
lWPecSMdHX08bhlsSfjAfpBirIKRggp119HP9kqaZCmMoBniG3KGim8NFC2g
If8DuXFcVRhnjuCyZCBQrxeEd0giZite1tz32kqY95+bWBtCMk5KJvbddBME
rqf2TgtTOpYsfCW7YH+MAfMIwDxq+Pek/fGhclbFzG24QhRhrqfBnTKb2fAc
QV3YQ6dkrOnnfcLYUcz6aycglzuTVOefuctF942gHnFidplOkifKWpz/6Jf5
VdlsVwp/vd0RsoK8j4CFd8RWsHfWXxwB3mNpf3T4NyHmAgEs5XoWtUdlyYaY
tDTsiV8yiZUtDXxXGizo1+kWV8XJDZwHGE1A4eJ8CVGURHMAjyUBHiYj8IFf
tBBatYqKLzKDOHtBnqRBO0M1pwQD77uXRlAblAgkWwwQVX8XXSQOkYwzafV3
JAGq1ofWwpRmqUZl3EgudL9rDnwwb15Id52hPv8NHy/bBbuP5QD+jak3nWgK
UuOwu8nnfFxuDKtFPyMj2YtfqldGUs+sRsUJIYO/LnPkr8MpSYifSqyvegi6
lY9oIiZW7g13Ld6uq99FY/TF8MextL+/h4/4VDWddtcUV9Tm7QanovB8TZLd
ZVasZjkfxQFHdgXk/qblyol4GMov9S9ZMtTPs+GyVllEzOrQ9+7FsKNImDPH
0vzKxCOd9acRkGXNw7EZJU9Y3NjlCcXba1GPfr4rO9jMTniKip0s5E5Ltujx
9IPM9EulTkXNPzqTYa3xl0btRE1BSqmOPyOQwxml+etg7tWdoALtWtfsPxW+
2F3M5tKxjMAystppBBXzkeXkqrPNLLNnOBDq5CZymvs5RDrkR3n/i7wTUMc6
MzS7WQ/ApQtAuIpemkO7o11Uz8iqwHzbAtjy9pXQIiOkiV6u012YiVWWDMI4
GPBYCqHzvdhyR4r3SBTtWQA67Yopbq1NPztdDjlrFt3HHa05I9UomWTR3f0L
jjJfpZutlY31xiCojDdjhLLg5BmboOhYBuHRzSDsSoyAlL7xxqgeRSqb6aSx
+9Z0uL+W4BOnGhosAzmihL1TnqLFLGNo9Of5Jh2PtJCdMoDX3gtnn9ETevYa
BrevOmCQVunn3QuhR3k+waN04LHMwqOWWdiD8CR3o7h4mIw38J4il5Y/jgjn
FW84mxAh+AhtMNcbSM/1YCXOLYw6QxnQ5oUtZjJfyR+vG5VIFSbL9/xEUf1Y
buHRyi00vrNecMrKS9Gf00bQZOICGnXpFbTo5b4CqaNzBPcwG/DVcZbD6s4s
4Z9gWLr7ExhWxYgIJNUYAU98thY2/bIUZoyuA8lBg14n6xr5/6QEw9PpNb5C
ClUHUgUzGW4iaOybl+SHc0xHlnLHP5MmEaVG0nhxZw2qaa2b1hMqRPjQuOGE
ZLWfBMvzjMDiPyJrkO9lx6JSEukoQW+k9k6eL92HpVuwpOU9IJS0al2xpI05
5c27CnHnDirxsXXhg3BBj9bQoEompGRXg0ZtesLYB+fDpkP/zNxBvgeV414s
EVE7GovJ2Yvk4BfLQLltimexAwHb2Z/pNPv/VDYhFz+i/AxTSpCJyILCxRk5
l36WSUj8tuXSyUvcIeC7DdFRl6jDDYqbqL2bEUtjEHqN3XV7Cgul20TXg34u
dAdI3sGD82RaI70UUGww45zpOD1tyPiX4j2H5srhMJ6vNWXpInfYZIq/JBf5
BJxVJksMccUwQ40kxSSFyWDHSGqDsdjBg6MQcZKotfLYBe5wcjofOidyTwH3
G4bRIE6pVVzYhp1ge5IF/lvZC+dR9wiT3ZCNwne+O3xc8odTEZnGdEPxMPrZ
5ZR6berRjS15F95Ap/W+yrZtowDCaHcI2b3jBHIGgSTKUAGCVz2QWtTOjzOZ
8ohwuXLxaCO1E5gd6Q43HyPBjmWiD7K4zNxzi7cx5e2ZXxQdOY9+lqYJuyF8
YEo/Z7uDyKsEic2Ex+Gx8sVZ3pSXWV8O2cTnCqpQExPbAkqByeHuYPJGiL2s
PHYgc14py8hCfs6jqyXa2dN66EJfQX5nwPF0CvcXBXyYH+Cx55AQp+o7A8XW
yrxqXnUFczhlpeKG4rn0qgAT4/LS9OH7IqKQDnaHlIO7iOKJE40v8W9CDVtO
KMU4o5OvR7ZvX9DBzVH4c0hzsjaANKhcmIz2JKLPme6gsTOE6OAx6Fh64DaC
wV4YHi1JxYUsHe1lH81UEL+xR1H/UutjAippnVsFs9gLNUimMqaQbFKLsxwY
Lci4FnT0dweJ1z22J79Tv0/r0sCIN/OMJrSwocH6xtwlmkDjHq1UvAfdp8Ow
2PMdMQvodm8OO5+maid+zHTG/+emw7WP5ZJW5qGmspoGz8gOMlmR5wl+QtrK
ypmUPqlb6M8raPpHkFf4kPtExhJdOAGQs9fRaWYZicYk2+zHCdDtS0FaAqMI
IjFF9tvwCZm7QZcTAGXNOPSYk2FORizatE8fYFtUKmLaHDOn5Wc1GNMyVjij
DB+0iwU/6qelyWbx3uJ87HrmuLaifEmfaEpbKcjNbFLvNFmO/dpvJJU2G0sz
ae+lpwtz/MQ4aR+9b9m8Tzlw7ELlw6P9JTQntorpuDCbkGykOVmyainX8fhZ
cc75hBF2P1CeiWg/RxOApTYfY/l7kgxTMXp47Nbjw07m8eAiTraSdjw5BObW
odNhdOmDSnfZ7qygIuXz0YYdkGwGN/hBjmXzmQNoxzsy1OFkFeLdRscuMD5i
5mlFkBZumAYtMJ6e3BBuWZ0fvdKkFA5tng/3n98ZmtYoBykZlaHBSX3hqhdW
oDbn/VLJeoYpFI3DsUF5551CgHkfLvayY+TRNrap7dUMBdcZcoxPNR5J7iFv
gO9acOwu46PJZClQsnMBXFrX0AKBYBCCwaCBjmAqNBq3EHaV8Iqycto44jQ2
wtlUoqjq2fSzS0yoDlEVlZ79aBvvjp9Po7q5OLxPsIPayYuOQ/+F30W33sty
CbKRvL3l+WOXGx/mysiyrwx6rQg2Pt0K0vFO+Yq94LElm2D/gW2w5J7OujZl
MLUZ3PNLgePSuJIQzOd5eVlEUz6cY9Bjx5owmxUa7LeyUH4Aew/SN8af27SB
wE78LeSQMfnf+F0K4etoZeNFmb8QNhy7EvlIMzppJdUn7O/55DQoZ/iBZlJC
dueFQIYpTSvbZcUVw57lH8DcOXPgrYWbo8OSQsVrxtvP/QODVXzRtlx0fAMH
5+Cw5YNbcqY+iliCnerretST3wELuy7CPWxN9hCuWrKWGBT9WedvY9ziY1cl
H5U00sPi3Rg7ynSP85bB6Br4Yga0nbVV+LJWPr2a2rO9FAjY8wHDvG+i/8fg
OWW4yI2DC6hfufdBqf0GQ9Y1GeHI81CPXZR8eHmmNpZDCIqLi6CoqEhhCD8V
CYpLTdq7sBwv28Its2H8OcPgrPNugHe3IoUKYOOrZ0FVXECYPPn9AcM+SUAO
5PtRpO+H1gT+X4m1O2lEjGuSgHQMX3M6s9xOxK5MiRhwSFyt6cF7hqA8dlvy
0clSjdPp2/YatMsMaHYPJZVXRKxA18KHoXyP6XgtvKNlO5FGRsKzgsVIE271
TCYJYc9olbEFw2w1olXylj6+z0dmJDjzjF9mK4Y1/9duU44zWpT3HVxYMwEi
FU6GUf1bQvWsNChfpzX0nfgqrD1Q6hQtuo4GleU8uB7WZJqLSzB7LP185ZVW
SosIkXkLYPwZr+Y9y4H/gYuWae+3BTcXLnWI1Y3F/kV5swVeaKOESk43WLAL
2PmJpZl1e4rFuJK7k+kVpzQradCOFu04eSXsEOXTn9EtpnizYf/H7mK2kDJJ
X+f1xm2XwPAejSErQvEyg5QkAxDU/fD1yGoQSWkCk1fuDGNGqup1f95B1i6O
5uG/6DsM4KKEzNfiCCthWX2MUdQOzUJO3/GK3Mq9BTYVMbYgK4GZuS6c6XdU
E2pJirVkKik07FpyK7TLCttwh2gpgo1PnojOuSkIJDmcEHcj9SuLA6JAUkgM
cLIERgzpgsIAp0457eNy9ssYaoOqzl4RGBeJUnUiOcioLmiKabybcsWEupBk
TI5h3rd0MFQ2PBczsuY3N07p5ag+Vs7TZB5JKLdf10IrnefodAUs70NfSHiT
qcSxF+YaJR4dd7tuJhgQKQgg/o1KhBKvOAPEyX9BJrXXX3OqDsg7GdiCaYKL
g5m3QgULbQTc9d3hvpUmjs6WRM6dd3IWlvchZ3bwOU3QvkPHkpYBRtzwlZX4
IMKx3SzLBeB13QHmDDZ5ygixR3dmc165S5plXerRSTjI893MD/YjLlYwj3MH
8w6Cg24UNQ/OkZMrsya9au3KHQK39TmW+sI29jkRzLpFFO6a7nBPoonbi0zh
HbyjCBivw3zxLDa2mkQpMrONJRPXA05pmOEaYxagNHDOgbQnMmKtB3u0S2as
yjXGeGUwEQUsm3F6lvPS+qnqDu8U/DSyOyPmXg/V0bHn/nbrxtVk/S2Yi/Vn
tEvEBWc56qeKO0x3EZI4nMdIwvHvpfZ+WnSs6IMPbwYo7c37cugK7oDdIxgE
c8+YuHQg4x5BGKfKy5xwywREXkYjEUunMkwdOzrlVHvANJUQzQuZokoGnpz5
nQuJXEzTkcn4jpnnOX7DG32wX4lzwEfh91762S72aKPkIhuHedq5+slyB+V+
GoszF5k6mNxhYiS6tyNVmBRHFzrAJEN6sRyT6Q6TYVZZj3UgayD6x1B7NPS4
ojPrATQa7foYbRxOLLlIvEs50iYL4eT4GE8UyDQ/IK3Z7UxDBQjvZiFMrHdQ
NWKVYZZZTtUbpf1wCfUh459U1FfAmOoO4yMEI/IzExZlCpXjYRsSlxTh2jE+
xmrA6cgQL7uLBawy8zpuWB+jDmQQGbcAsfPzPQDgOEw9amPfXZS6ygAyWeNB
VlDH/+M7pASiT4I7vI8TbnE8xCnTni7wPZ9+dok1+KktKmgduJS6kUsB2Qln
ZMmZD7tDOo364NtYcbbYB+UtyH0grwoRdUU7L1FwMbXD96iCcEyOg1VQB91h
f5K4Yt486wllTLoeTRT3smAYz06mukzMZqBFIqPZ7rHHTEgNoEvd4X2KcM0R
aeYKtJLVWKPpZ6cj8koycBDdSTBIg5b5mLmndetYR47rXxe7A8v3OiFjsGhg
dW841NFbMqj0WkPCuZsJi4Tl3HVX96vQHSS+XAhnKhPVFQ0CXMUGZ8gnORsT
PF4a+1LRhhU+TodXumn2HXKH6xkiHIeomK64TtU8H6QhnDQ2GmM4xKVENESd
DBQjmnD9YFcM0gF3SJ4TkEii0VJ9QCDJvvsrBQtn1dnPYUjBst8diueJTrJM
CP7Bs3MPUXtec1IA1FRewGWXGX3wvas4C+RYJ0FhZtztdYflRZoKF5pjuhBG
HqRXnIxf9LLZOmBRi2AjFhgz4nyGFxQzCSPyKA++ioVaL6H2fLk7/k8aAciN
bmudscQERQxLxwWnZAZtdrrDN4umJ48TTZli/KimZxhwRiY3zpx4pYH+Ogme
e85d9V9Br8qkN5RI+OxwB+hlge8774ySjYIs7FciVaXkpzgEA4Yryb7wWfhf
ToChZmJhJbLTxQ0BBva2uQP7KnWFowsvmp0S5A+7BSVrNXipe2mgGBAbBgo7
E7whhVTBdsyLW/2gtYZVmNaK/mMJd25CHHFX3waxVIhSjoyjvni7y4lBdMst
7uDOIXBZKmLf2AdWx1CwMCe45I01EJA6OdczZxqjXC5ohSLcnnuJ9DNVwSZ3
aOcSK/AlR2SV2z0gu3nEPj4jls0jyTIyxsZa1L4pjddWMwfL26n153p3sN8Q
WMQlxvyA9SxNJDsbSsgjHJD3MlFkKQbGNoKPQ6LBxmDje5aKPx5gv0lg82pg
3kB0KHF6IWFJRjVJYAcaCVDt2//SzbqC+sApMkHxj3npxDp38N6mdxmrPD6y
PbubHF7C/zWh74Qn4+hyjSMmk1E1NV3GIBLN4uavcQfxHYFBHPLmm40fUL0q
CWD4XUl6mTgJUsSkgaFkS3yDb3vgpcPSdLU7JO/TpJiGJPkeJwjsxpM8yXol
dYd+ALWxrBpLWPRHPxCs9iWOgwUpHqf2TiKPI3EoIK4Q7SiUYMZfunUzEWTA
stIdlg+IMGxDofDCB2sRqNUpwbH7W1ICX0lYFRFj1KfSRrCcwVruDtGHhB30
VpgKvHk+jtrLRBiZyOVUNJBF75XEP3yNCj44LcSqPXb2nR94iRajk+9TVt1e
RojAn5En6FY8Dr5y8RLJOhQF0i3G0+QRj9IqxiizH2TzCTKUfhywRf1AJugl
4mcpYShaxxC6yVRWCYxGZlB0QthjQLRiW1oI8LU7sB/TRCU0iEZFdbJUnY95
smngBS7KYPapJ9CspR+IjIv/Zy74wh3MhQJpfO8OXdAkcepiFbDwd7rgWAp/
Ph3vNJkYG+Zzd2gXCd7kI9DIAcjiiibsAXB03m4dMBMybgX+HfUDg43/t688
rmABvOI/cwd7MfGCfbcVCxCw5+EWO+HIPMcEkPWcNAii7yob6+KcZRFAvKCP
WXexO7ifEpYRJK55xjyhsC49SqeEPzZiGGInjcM67xrCjP1mPtPXWuQO5hIC
k3Uim4p08+Kl1LUMZ/Kleo0Fozh5CqwQJxBCZfALf5filUXqAndIPydQsLl0
BdS/TROOvE79v6Ye4OHKw3aoIyV4TFd88B2yrUxz/yN38L4gROIi59uRcYYU
2nlKQGNfVSKeG+ALSGVgmsx2zvkzaDrPHZQvBetJmlIU9WkBit0Lkdqa72XF
Ye0sivRjlak/33cH52sinO0WWz2V6dTeKQAjI7Wcty0CMLofZHE2H2IOAbzt
DtM3hCLeA2BqYWBAoWi66NJJEVvBMmTFjBlR3uFaT8Le84LmO5qdrLHI5+v4
EiRpzEg7wWvnnRNGZdiL5JCBobf8YIpYqmLx1acs0nEZ8u4USwMn7YRoYLVx
ja2ddBIx6EQGugHf6+7wraC54WLixBfkXowIXyGoKxcReX1eoEojhhM05Vq0
5Iy85g7eSnqXaxgw0+PUxonxvW7wlYaBfQHKHYGJ1I61lZ0dWNLp1rP9YLYm
N/I1dQomrmODVHKLYzFq3coa2kF2yh0REWcD5FnuIGv/KaTFQMRkAbSmFW6Z
C1z2pr38W1mBkUHF/yM1W7WyihykjMkRL7mDuoo4AhenRB2GG6Sf5qQdeEEz
epFD7TAjGhnm62ksuUPJRVt1C487j1cT2tiYlddimlzgbGrJ0ggMqsgUc7Rq
r9WfVp9QyxkwxZ6lFuYz7pCvEfyL7zA/UMoEHwy1p//gvi9ftyIMQxNamahg
QGu4h+KckLmtLgW+x53NPwtQJGveeGPUXsbuKQBCd9SGpQfhCJ5B9yRdt8xu
PVBA1sDiU+6w/SKw6HBR5Qs0hNPmNZvQ11O3yEJOngrziP58wh0UHc3i5CUR
VcRBnqf2btanFZZkc/lyHStpfTLFPG41Xk8Uw+byhnJUNy+WCZQUM1eTH86B
whlShTkDNR53AW8gKiEqMZLDFKJ8iRfiBOkGoqYUFGi9xuRzehRc2aw/I+Yu
Me2KXEtNeS8fwN9lYLA4DxvfQ+2Fx+g4tZs3IfkEDD4et/xuJkRhoIg3Z7iE
pnr9GuqVFzBB0CROQLnasL0EB/7OLtV97sBtoddZmNouzJhA1EEo7JdG85Zx
vJDeQO3kFiaHAlFqsYusP+92B9nYeUqwbC9xIdurPGCR+8tlgznF4orz/KVL
bkY9pvjBHa2fK/lA4WSCAMl+SQ2V8NUt4gXdSIg3ttB5/wIf1Nwch2ZD5053
qP8kqNG5kNWTiVkYajf3iY3ueKG+mYhrz1ExJdIkd1C307uy7hJiDt9lV9LJ
YZGWbNmwa1h8SBm0wdRvbDTgq7QCDbBvdQd7B2GYvVNZO1t1z5A7xWlk9MoP
cq5FfZOAnB+FAde86ZvcId9JkCNSJW/QfhNLNhm6UV2zKeGXksmnHpycipiU
hxvcodxNbIHyV+66Im3YtJYWf3MBH9kYnvA5OXExV5Zf7w7fHoFFRJOsq60W
7yv0ipPlJS1uWfcdX1V62NRYbEmjkuUgxUR3iPYRxrArJB4vQmW90Ha5Yac6
WdUMzq3Uh0zGw/qGJsWucR9/P71rT2xCO/k1n/F5Id9MU8c+0OrC6SvDTTr6
hA0DnPHu4OQRgXgrxVb/WkLk5MZZIUqxRBvxkRFJ/Lfpyl3hDlI+Yche5xp5
mvUsjoMCA2MtJ9B3Tm6bDDjcSu24TLDdkbeg7DI/+Ky7T/iHyln/i8CXux0s
nxhURJvdgUdQWaPcIqaJqMcdaF6mMQ68x10KBQSqvZ41bUcZIRj3TR47yHYR
LTdcGbuxjrzBpxwqYcviQneoiwiD9nIPmEHFPpibg4RLkEF2iuzI3cg7HCjF
4XfdYqw7jMUCswwH28wmZr2j92irMahOclZqq9sIk9juuusMP0v48ezNmgLI
46oDvtNIumZ8xkPJ1uttkMvNb3mfoBfkMs5tQJ4ikzX1w7IzRjKMcgcdiGAc
emCi4dEWdmrcdskZk35w8/zuoHaUBOwtLc7xgTkocM7+LXIh0eBf9LMwNKVx
yEqb4+XSDkWSsFd7u0CBXWqI+LkB0ggfkMMEE8dh2IdFF1gBIn1IhAnVZ0vx
nX0vUiZ830EswaKCYyD44N8oVvB7E73DDFhdigSYlVcL/4CF942CjnXKQ2pq
LjRo1xcunfYF7CrmY/IO00ygPm0XML1l4ybpsEjpOJk4Uh60wj/mHsBQT9DN
IkWle+GLiU0hVdfoMQoV6qKFoSxof/dqOAjONSv0ZyJRiqvzsxiiHcI3xVSc
Sg3yVCYRLNKoEFc96O+RgqZ0HBTX1Ip+fwk6YvnKSHno9tAy2L5/Eyy4vhmk
hwIQrjQIPt5V6j61JLFu8GF1Sx68pJKTtc322iQCUVomiqp2nWCGY+jeAc5q
OczqSYyBXQtO19WjQrl9YRG9U/LHHGifGdRVri76Ls8dAynEYLLeHv6N6/1t
j+lLc5HL34gz8THek0nVvoczd7eqZ1g9uxmkqqGSG90K5tf7l8F5ugZdFpz8
zl94jMLpZLj+TCUO4MACMzeVPmORh1KKfReW8E5pWdLIklWBKIeA0BKRzqfJ
fGdYMRNfgSM3zOTDqhuNSihpzR+G9VzL6+APcLUu/pwOrfUNhQZmEkzEcCFN
pxJbt9BvnPckbSLWIU6GvDTj7iSmZeRhPFgGgzBDHZFlpmwa1wqSFCjrbFfC
BIfZOvFBBvEBn6fhdYCwKbgM/8M4AuSWOsgocLJkpa3FB2hlwgf+MfO/esYz
Zcn6t2HdQ+PJWwbn60pq/qyfRVPGpU3xEk06igdKn9jJUON9SZ62l6GG7QxV
liqth5hQPieW8ZIwbrb2KAOTEVMGZteCHloahiufCUupwGnpjveN+mYJNWHM
tx7SsByRBq0ZGQXDrM2bBT7sKlsadl74ECfq6CrNiOWKPjWuXXCa5xq7SFzE
U0clBYqVbtT31kYqwcBZG6Cg5CCsfqQLlAujbhwA83d66MYc+gHnhcAYBi9q
cuvZbHmNpN0qk4a6tDJRz7tZb3fZ8CdD3biM+BZY/WncvBJHYRTDBvrymuMh
FSvfBBMgKzcdIqh5wlnQ4R4fG6g8rRUEnvxwvVFNiVrsT7tFctkjlOEx++k/
xMHJJwMsXhzFAUtJJUFN1WE/T4qPcaWOd/kUZJk/YeH9Y6BXm7pQPjUDKjfp
AZc89Q3s9jJgcwm16IhKvwGl1a2CpPZEmxtvjLKInLbdkOjePWpISNKjAkIr
l318xLZ9b6adMW1XH6OioBrGwmTJB7Wkb6WuOa5NvnkrAe3llwNEIlFoUZUx
Me8hzNjT+TGl0bWIQSsfkCsRyPiirAJCJ5BvExjn99rQd/feC7yv46h3jG2h
6H6M2DcyVa8lHcIPVi6ijcDIQ6aXXcYp1M4pIlIrGNtrSZYqBzLegpJXD9bC
B5iqAnEohiSt1WwZHjepjK+gHcNVIqSPG6F2TZvaiHmCD0zVCSYUC6zeONqo
YJMwOZ1LZM/pXsKzfSMNcyeZ0XB5WnyMJj6w1dT/jFg2fLp1M6tkSAbj5SsO
LDra9wYtjc16WtL6kedluE53Yx/wahHqsB9kVCYl5Q9MJug5VY9ixXzvj5Og
wTfZNOeyHLzqKfAgA9yWUy/1fKCtQ/3JMh9q/DtpEtKYxj8U65fQ2h0JuXDv
s7WLisUEk6W4vbnXVycukBMt+WCiNMgkeg8x5pWrxHNwMnqxW940vl/MwR4c
jwnR1faBnS+AZ3XLzIESTOkldrzEOWxP2N1S8tkiud/WzighFnDerKrhA3sD
Ipzc20FnE5HEgPvtDzHgHAizR494Qd5PbClNbjOqa+xsiVCjfjyKEQnwrSc+
RTWSyT4z4FUlWR9ZxG2hcoWWiy6yqgaTzT0KFenPRgQvrhtmE94oVp0wvCg6
7fDKY7vxLtUHCLUcerTtnPE5atO7zfUBn+9/sRcrQVU1ReAax8FChyfRd7iq
nZYjp5E9KDiDHwWYXfuYYUaPGkP6s6lAs0OREgZVahUG1e9ADJ/yR5bgdhL1
7F/oT48CRPpTZwoaXkzEXp9ksQCS1ZxTuIvP+Qs7igBPsBxBwHIeZog53Qew
ZkRoe/0RdP8+tQ0oF4uMrfBiwXlNmmSJrFo2VS3JQik+gDUnynJgxFZo5DN6
DxeQXU+IYhNUISghJv1YHgFgx8ocO8EHthMJNk4zZcRR9j3LbZmFysa9n8x/
WOAc4cKbCljn8sYxi1pzNUd84GU3FXHJpgL+waIjLKvZHiN531rA67TnwaL+
MWrH3rrdvrXY0h51cPRna4ITJbMsQKKkUEAW6qJEVcccAulF2SW8ZNpHRDsc
Q0ktaheRBb3w9xIfsNsQO/BWoKxYov7PkDvpJplr0MoGkV3Ws0nzKFEMh8Lv
cFaKkqxd+fA57TR51KLRn20J5/ZdfyzDMZVe8stAYGZxcrqkSJ0mxpLCBnHv
5Ll6VInRn+0I8S6FUdh+dcpKkIdL7LyOZo0UwNzuMYF4VrKKqIx45BrsFpeC
Wvp5PsB3EMiQJ+ux0O1UAblTcoIdcicJLc0DI1s6OSZkgOPx7oNSlx7VX/Tn
yYRvlxIrXPVP5CfoP1RaiRWv08kwtC1453maIAeKGakPqfSAbrHbB9qOBA4i
Z+rUKHdQNWG7dY2VlDvYvnOTepKR2T6gIlJm4IixQHHl7T7QdqbXZIZsnz7w
jaCwlziTEMkjBig6eQZ0Va1u+Wdc4ERdHUlqRX4JFgcKGSxp7z1Js2IDFJGo
NFDI9jXh6HcfoE4loPj8MddZIKN6mY16djHE1OOaa/akLvW7Ge0UviG28yiX
oj+70oRkzRTFDN9ReyfTTlKPz3micWO3NRESPp26wQeMboQgew0UNAkVgqSy
ZoOjrY2SUutISj5la4cBKgNZiRbrE1cxIe1XH2i7E7ROpU8Uibm4o8yKEdqE
xYmb0mFqPy2ojSPwvg9OSrZnWvzsA3VP6s+pIooBchKvVIucZSXIcDvxhJTZ
XLxOHnFiy5yVJWorjr6t8oH7dIFtlPnMG1QmRRqeXjkHXvwipTiDz8nW/Bhl
baOLjEWkIssPPjPorf8ZU15FWnJe6QJ+jh+peiqF57wRxBBjHOD7uMB1LsXC
K9HJJkTrhWP9dmaxK3h2c2aItcIRF1GVVUZrcY8RCfStD/h9RJf26i2Kv3kG
KIvtxpUMWPMMGLKonW21DZ8R7VClYrEOVhMyZqX6XuYDeX9CvFOVF7bhpI2i
VkBHQXP7ORc2kLDFc/Q6Qs34Vb/bM5SRyT0qfwgorfV1iT3wu8cFRFzWoZMH
pwuTP/CsaIckjwZuEy2GGb6DpFVDLvGBdiC9jt1RrSet7Kju5SrBDW7CGAUX
nzBD4cPhWDkD9ig8SmTozzOJxDKXGumBY6yml/zWzPMCw5SuZ2o0OmuoH6HR
PvYBazCxB6es0bF5ffydwfJaCMg3L9DUECw2W/GJCk6rvprvA9MQohzqPb7L
ACmHwlqhm9edqNoZaC8wY18NMqnMOMKYGmPwy9095AZUh4oa83wgHUYzR8Kx
ZmVXdAZhVhQVQDDYYBdbVBakspXzInXN0oUfXBnSIEO+RES/5wPqWYRUVqai
ShPyDhtL+F+nlBxmQSd/w8k+fEmwNLZDm8Fpd9CjWoT+HEFg8+4Bm6sUuGKw
3TYrORVbYh1pa7cBGOsv0XDslGCGt9hElF4AxbOw6VyfSZwtaClLcuK25HQx
A6+tzZOpHa5zu8HNZj+24KKn9pPbRsTCaF+jRpQAc3xgH0n9IdbwHmnmGWRx
WdXEa7uTYXeSb+LAENUfjbC1DhRpsZ+IxS7U1DwqPOjPc4mWnDbErEOKlYF3
Uk0YrmO/k4FnI8XJCMP9uJcFkaWPhoU/pCjCu8zQaJvpA/551J8MceEKixpP
CdKkNRmqs2AoJ2XCyJ5N7QSb0wqNSbp83gdUrqyOvIFDMI9Q0VwtsEM40KkC
5/acAcnEBmxpeg5IdV40UkxjoWAWgFFzzB3IMcRFzAYoHpRluckDXcibiArs
/hV6Xe4DKaHEAVhRkRy/fjouYBIsRbK5VtAWB4aTO36MJAOidA0RSgUkIvYl
k0RxktJnUTOZ5gPaWCImE5CLeVHJIIaOj6xLfLH+wjX/umAvYt8YNozGht3B
4VsMZDECTrOdJcZgBcUWp5OclMWlXhP0RDFO/gebU7m5UXriVLGJGvLBuKCN
WJJjuZoQS2b2DdBgYO6SdrJdP7EkRc0/R0CNhEGam/WTo+en8BVcG4gkj5oB
+pNLn6EMZFpzgSFDHSZZjsJw/yzcTxFEcMpC5PX5BoGO/+e+lCJi4Y4yA/eu
iT4eJ/P1J9filUk5FES31KnwikDanRMZEpSSfa5oh6bYm2+yc5JkqXvEC41N
sslxzcG1DtFLYlin3RXmeCYASjDEoAzPSAnGx09o70gTioUvJxthizt8wOZ6
Q0gxXGUc7SK9OtPGD3Z9yabWKWJ6dl3AyYM4vTcElhD7yHcsMsUmEop1gfxb
fCbBpUVl/jKVbDHFiptJxoGlzqKdkyjEdzF08haNJRxjFs7mdjiCzg/VZA14
nDbXn3zXMu8UM+8g5tXfswgzYhkgYrvZ6GNfr+ySv02vI86RrSx7RwlaHeAk
cdHh5HGi1/kALMs4EJAKAQbaOEKOLZiFhCkV6C6+Qw5GU4fZpXJlRdDxBru8
K9rx9i5PD00GnDLC6nEwXH9ysUkuU8JMggJhjyC83WaQ6ZjvCAogGsnMChPN
pTWDixR5z+OAuP6cSDRnBSOrFqn+9tJ76IajlS8zciVx3xUzQGzKTXuhsfVs
ooW73MG6jt5FsFge0DaA5XAUvyQXP+1/mtQUh4uoOHSamdzIcMmjECh3cKlx
Ut/FPrBy0TBcivLcPxalepMohr/h5hMpObZb3QhOVU7MWtacC8EPopAtRdbN
2I+i2lgfaPlEKjOJJLha1XPpZ/uxR9Jzp1G3bA3ZFzv2iKrqA5o3W3WkH5hT
K1SIzgVRg8ztcbBZf+qsdntRKyrbNEeQ3x4E4S0cZFPpL3DKQ0SATxvXBH6C
xRRGDES36aO2ES4LpBeyyrk+c7hJ9GszQEkv+e/mMAlYS9hNO7Yy5hMJ5DjK
CpUpiOg6kiE63AfyW4gvMH7GdxEhZsh0ZpPGa0sHKSeBt9sWPElkbpmgjawY
jYUnaWJIeYKEQb7DBTPUZxq3CQIwD/ExIyaAk30krmk05yAsfQsT8RqYT+2Q
qShCZjrEUj0rhhvkA/btRDSRY4SY56sJ7JX58IRIDwGlXSJKM/ojIqxkdXaP
hTlEC1j/raDo7wMwX6eK/EBrVPdOJjUf78W1j2jFtdPLga8ZYBTJLI7nCxLK
+9Gi1o9xlxo/OHm0ylS/Z/hAPZkmK/daFXilAjJyii3SV+ySL6AecGLIGyTI
WWZIlYNyA9f96XECJVNOuJaLPbtV5kfzckJZ8AmNz1kaMmDoN/4UIiXi+uqr
o6Sk6Ll+ggSjdH7V+Ew+dvux0UKBTCQ9Oj9+INxD3dtqp31E7dHXISUfY9Y5
LU4zGy85rnGtR1MZ9QoNRjTfKDPndMkWLi8JD/uEEh5sZ57Q9su6vI/IKKua
EY8G5tFLyCZe8VwGyGmZSbkg+MsdoPsJIFlXHIUHinoGyC1IyxjqIQBCSroB
VBoXLNbdRFGo7t+CEOweOqnNngIcXuxO4BT5gPMggcOXc9gq0EkF5xRVZZ9Q
goPqWoKDy4E2lgKHfMB5mCglrQEK7llUgAgSckHL3tQnGiacjeYEgl+uIici
sxJj4qCbskBMk3dAjXoFEdP4pW0fp6H3+Qz9KM0QeVESg0IM+smMfzi/vLvH
aaZsInJ0zizik+09luQzj+vV9Oc0mhqrh3POMX5F/1BNdakgHu9AnC6+s/MU
h1JRJvllyOmcSh2KVK/LKnrmbno00VVugZ8hxndaYrQfE9hqjG/sxaKsLoVD
m+fD/ed3hqY1ykFKRmVocFJfuOqFFbC3hISnA5hPEShK01jO0eIUOYketRMp
Rss2JQspBtlNKrBa2SxBToGSnQvg0rrJRsWXoFH9RR8XD6ZCo3ELYVeJx8nn
pwXTol/J64UO1MizCdb0batA6y1A501+O+hIlQ0G6EZGMRbnKIKNT7eC9GAA
IhV7wWNLNsH+A9tgyT2dISccgGBqM7jnlwJX6KcbzGG4a8wcVOJ2iQ0kt5i/
HfSo8oxI80Zk2nGFkNjiJpmyuAngcfU9yz+AuXPmwFsLN4MZStj3JYyoimNk
Qvu5f2Diu2sVh2eIr+x31iMf8LJzOzrDJRzkDPE7+wxFbthavxlay7ckEnRY
l2K0rkuRAW1nbcXLYgOuU3qWXuUzZraijjwr6WY77QH3pXbIuVYjzJgVmggk
S1dZZxVbeiVDll7RT+GW2TD+nGFw1nk3wLtbMbu/ADa+ehZUTUDbvw6M//6A
saiitVWeJWSwkyOMe7r1I+qSYojJ8Mesx/eUFHMSUpSyZ674ba9Bu0wkSxBC
SeUVY1SApBCu+jCU7zEdNhZ6rHhOfEHBKI91o0esG9QWcIk4qoQL1w56wisk
XEp45n0HF9ZMgEiFk2FU/5ZQPSsNytdpDX0nvgprD5S6Ck++eZWtKskRbP3X
ERi07/xK/8hMUCaoFB6Kt8ALbTIgmNMNFuyiE1EOUHDoWZ5VV9D8SO3lUdA+
Ahja6o3hPYrpf2UDBvbD1yOrQSSlCUxeuTMM+/fvVx3tzzto3LDstXBmEeWQ
42VGBh5Q4istWBUylVDC9RMEFbuGTvJ5qYQWAVHy+ckTIU2t/Ait/2BOD/h0
jw+oswkcpCBTExESZZqwxLNFHbJRIsFGLiCV6EJ0Q1OZOTP7lg6GyuEAwVwG
yF8lyGXKGyW+B5bbyC61HKeTYrv+tnbKAtTik0083npYZMDsavswLPI0Lv5B
LK60rQePeEF/gcgYQRPROBd5QX6JbnMIKK7jzKRFMfeDIC2FAWJCBaiRBgiI
hIEmScu506ZX5Q7RXAeS4UVgSAqGSHpkktm4ozNtJENDJ0EgiBJgsB+/pDUG
R/qIHDBbJcBBpYU1Sc8SyIiRt1ZkKFz55Z69SaNjDJVryTB59H/kMSynmYpd
Cb8UMQ4N2kvtmi5IG/+pifXgcWOPZTg7YvF8JWfEIEeyADmTRucoEIUXeXQU
k3RaGyf7ss/o77ogFlMOftO/JcUc/JLijKGR4kxNXqKeAszY5EUfaHjTRu57
cSrBOnoJxYaT68UQcRqtsKCkXJCKTA3znA9EvBsjU78UZTZQezc/kIEZItrh
dxg1ZNygRY/Ee+YZkQTnDsk8wg1KIU4KY0ptjAMcZN8hNs61UQu32erWBZg8
WfPOEz4Q8YWoTtSSuVxWQR6WuZCBYc7UcuEfvwylj5yp9bsNGCyNey41/eor
QxDhxrWiiGQT3k9XGPe4i0R/cmTdiTj6P6cLzHO2kGLDBGeunOoz3McOmOdD
CrrBGd6Elukxqg+/DJ+F1Jss6KDQupe+ZilEIscu+ZEh3cf2uIlCfy6iqcpq
3YxZI5iUFHNNu0zGHk7QoBBjYe0OzW0+0CwW0Nh1w056SRijMdECTBwbET9E
ip08bmPQn586s/xuQQSUyyQVmL1R9ogQgCdICRbupKCsb4LJZ4QpbG/X2Jwa
ERucsJ5YPMeLixPsO5ji2g93sD53ICBdZkSh0DBX37LkaYuk0sAoB7AUEyTa
DCvErerqyjghcjKsDtBLPBKu77GiPe864gJAdmMewvCz4GqPuv368wvq0tW6
Ok+MiTIHVzyzuJ1JkKBMjQt9Bv7KgRpDhohKObxLh52yH8KSG8mEOCZmlejH
r3CnR8E6Ok4QcGryAK5Z2NTYoIu1gjhxBF2eUaIT5gjKyjLxgxn7TBNeRCN9
gPuG+pUOJ4UPAry1KpPHXIxACZ4kH25HSPIx5xLqAn6ZDd8SJST5mH9ofYgU
EPYVWRbiJM6npqj+xQpPdBA8zFOD4wIq1r00C55wZWpOuLIFDujYlW40WiCO
by9nxDGMXIGQ5LVwld1hXE79yrAQShxzezVCTMcUQ0bj4AiXkuJ0bBbazHTo
ntpFJFIVRRgO0NsHuO8JPzLaR/WKqPZ4tMIM/o/zfyV3oW5BqZ4okIoGCpaZ
9Nuy/p76s1doNOs66XxwHR+/QAyN4CINmD4yzZj77+EztLyOVAZxUTDyZld5
GhOnKvkTA01jCXWSJIqufjP+0TYNnC3uitsqWYXlrpjlHLSAwc+7/YnGQurJ
E+gm65WjOXiYjsJxf9VnuFWCmHInxozLVrANZzE9wubskOH9fNnVJl8EImah
auQ6zvStaCMPjcU6Xhw0oMRj97HW0rz4ym4mmRkkqEJv8lgYE/E7JsV3dDJt
eEPSNOv5el7O2sX/+XlpvwgK8LIlQW00MK52TtRQ4g9SUSmGesyn/3XUv1Se
iPR8LupZn95EGcTMy9mMUj6hsoqWeXMfcD0NyN6IuFpRDhgV8CSM2ECQAlsh
0eOuRP35myAKL1DkFJODG1EDuWDYIJNKhTKuqFqr+4AbRH+y4JZpjXHdOmzA
USCUeohINTm/CW0k9CA87dpZcchFy0V2WEBX19fLys8X2SQAw7RnRhffFooP
lwFi8WnTTh7XpunPLYQc7I4Th3AH0UwE4lC5FJVO3Mba0M9h+J2wJS/z5ACx
rMKE7CHVT6LLmMjhfincW6lfxBGV2eS7cI0GnagBCheOuiFLR+1xa5Tlcp8B
/6BJIjcxVtmQO9U2Fk8S1bufb/OHQJCUDxjb1A04QI3YwTgYUsQvE/gv6hRt
SCz0hp3TMUejgRGHT3UsWIXGJy9+XKxqxmf5jLeDkIMCFFmN2E0/ck8Eu8Ua
TkmaAIlmCIkpT8ahX8LqDpoeNpeXm5gKmqspiNRzrclQVqiGbHKRE60bD/AZ
cyeNiTyD9Ge0mig1koOTLHY6ixwEEPdu/Ca2SzAS9sP4xF1j3UBHIbSg8etq
D5FE+svmLZo+73LUCtvjezhXFk6v+7zL9yRSeFf/4YouuoFfsJ8vOkTksm2L
ZpFpNvjZU3kEvSxP0qcPxPXuARocmYbLU/MRAt3Azz7Jp8EZemRLrpntZ5zl
0+C4UmSSMHKObuBncR2iwfmsCHbCNrnfuwU0ONIZAcAJoOpDo0w3eMmngyIa
XEbZ2Cfy29Tgm/ukEMRFZjLNCz4dFIsOaPdb/9uUos/7dFBK0ONLqIuleH/O
512gd3m5SP33bDzvBkUHXOmCzx/5HRTXD+fR87SR3dky9rjwPtoBO/wohO1T
8Nt10U+EOpCVdlgD+B0v108CdYCjsh3JmRdPxdNBInUgT78w/z0ZTwdJ1IHU
wtyBnwdh6YBdYzqOFn8HRsZ41MnFB014My7zeDy9pBIYfMhKguHnqYgODFHA
R84s19T67THpJ41+xV5Qx5vRwrhg0I+f2DjW8rBaGjb5YV58GNMb56Yd0V2E
rr0e0TWArr0e0dV6Mb0aSa3I73HfWxdwTUPy6D3uu98Ctsvfos/z8fYZc8Pa
YUEc92VmZeg9SsMjuBDMtdcjulrLtdcjuqMqptfo+j2Me59ievtvkVrHWh5r
+b/R0vbt9v+lbxvov5TFefBHuLYeapCA8SerI7y3vZTr+kHpTvh3p6zoz0l1
YcLKg7Y+z3fpM5QCNTp0g56DJsBXe6N9wj5YdvUg6NmtPVRPCcXTZyTap9IY
F36Xx+kUkPctjKmZ4N2HPseCTzHsXfkq3DSkI5xQpzJkJadChdonQIfTh8Il
d78JP+0rqe48Grssh3ExtXGeDG8fKYG8Na/DTYPaQv3KGZCcWRnqte4H187U
x5bURJbDxbUSIbP9bNhaTE5SVvTcRjALOr3xp3EFQ8GvMPWEVDWxFGh6189G
NKHkL3inc7Yy5CJQbeTXGJwJ8FWyULAOHtDtg5DTbTFGnOgUvWpRshMWXFIH
kpSSCyZUgxGvbzOcfHysuLUzEiMXsVAK+76+AU5IC5qHUPCC0LTGY2HO74WB
amXCalnuzM7QbcNQuPFp6FE+DNFkcswgqAh9XtwMhYqFPzq9AkQqDYTFe6KY
LfkT3lScjRirft43RjgLc//PrQ4RNVx253fgL43uQ/DzlKaQooZOPeE++LWA
MZvuhFl6imDbnGFQJcE45NX46s9gT4np/cfHtOloJsEH3XIgpIYOZTRTNsN8
WPHLBvht7Xfw8Qs3Qq8qiQp8PFHyMmwtoqujyormeAx34/KcDI2LtXc20bgI
pjaBa99dCauXPA+XNUjVpElpMgnWHiqCTTNaQbqa3FWKa0x8q3fX3NHYwGOz
B2GdDmSVwB+vd4QsReKEmmPg2zwDBfu+OAuqRNQY5U5FYUT4TnPFd8H6p4j8
YcjueD+sOsiGarzITtAr6L2hLaFhw4bQesQi2FUaLfKBDL5r4UCohCfeMk6C
F7YUBw4P2/E4NAa2MzU3fjW8quLGACTVuwZ+0MAfhB+uqQdJ6rtI1RHw1X4E
4Dqon5QGLaZtwFtOEun1vUvO1AcsQjndYN4O4/DUoTW3QaNkBVVaC3j0N8OJ
KN46G9pFhzdwneqM6wM/wl0nZWqGTKg8GF7+vZDjSXGh2QAtUeOzYPv3MGdC
Y2N5JzeAG1fle6L0iK8gTzPRqjyFycOhV8+e0PeC52GTZsR8+OkGw78KVzkL
vsLo+N4lMLhyBHK6vgfbS025UbzlBWiTgbsix8HlKw4Yo6mmZ1ZW/BcqDz0/
2mkEKfN/guvro2I1KWPoIQtuFRXLnwb3frsFlkxsonERTKkP4xbuQklfJtyG
icNKDm6Az159BG665Cw4vW09yE6gw6aKjskNrlJTK/Xm3SO+0TybIHFEask2
eLVDFiRUHwXf7IeodDAd2VQ44f51RpSbjoXh6qw5liX0bljYq4LiwBBU6LVA
r9JUHk9gFWcbSa0CaXgzcygTTpryPeSVsrsVJ0o5Y69w00sw9LhkZHu69joC
wUgmVG/WFc6+fjos/avIU8Ud8a3pnhhl/ZTSBCatPRTFqFJ783uWN9Zq1WHw
0q/5UFqwHp5qma4xFM7pDPd9vQdKsN2gShDW8nuykt+M0WSLDAglpEEE3WKF
kJxuM2BDgRnJjU/EJtP/C+DX+07QCzaYkAunXT4VXl60Cv44WFLzcHAYd+Qi
m9eeIw7xjdFQIyET2r+sT8cmMBrVwl3/SHM8YAeh1GpQNycHKuYkarQiNyTn
HgdZSalQvlKGESlQqEpv9RRsLHJizCCUO2UmTBteHRLxQHXuGfD4moM6rlIm
xjSIDPrw31MtIR2nUrE/Hp2Laqx8+Pn+c+AMJeQGXP4hbFemaBVn/HJE52hd
7l7OB9GlOz6AbjkRqDjgE1QqrK4M/CumyO4IryydBeN7t4Sa5XKhYZcL4KlV
u2DzB7fD0I6NoFJ6BlRpNgTu/WYvykgnHKO62p23EqZ2yVFsHYSkmufA7M0F
h7P4q2vTslO2QkgoDRqd9zC8/80aWLfma/j3S5Ogb2Vt7kLq8ffCL1pkFcLG
6adBTjgEWR2fgA16SZfA9veGKntGyd96V8Lnewph++LH4NIezaBWbjokpuZA
9UYd4ew73oB1B0uTvYgUz63z5eIJjRElDsCaWVdC18aVIT2tAtRtPxIe/HSH
DiKm+BBRrUaY1iINkupeBQqDuQyeR5ch7tLBsCjesQDGN03TYj2tyRXw4fbi
Mik/ltQoDNc/OxRqJbMnkqu+Lgedp/4cPdyvxn+0YzaEIlVg2PvboViZCtfU
T4ZgYm24+JPdkLf6LmUPhSCUXBVO7DkCLrrwLOjerDwkBJOg9pgFsLNEz9TL
ew6bq7AYdi25FdplhWOoFEeoEUmkpn8tNEwOQWqdM+CCi86E5plhCFfoBS9t
KfKnkupl5fg6kKjMvcc3FBr5icl+3YZoRbpa2xuVOqxquB5Z7W6DL7X/Chwr
CLEXFiWY3XU8z6AamyzaN177Nkw+tzu0bVITyqcmQUZuLWjScTjc+OK3sKeY
zflsyF9znzK/lNytfwXMmXISZIYSocbojxRV8mHNne2hZuX60HfOVj6rrUyz
pXCuMgQjVYejsWwSrmADzBjdB3oq+aj/GCEKk+ngAKyYUBeSpKNfziuQS08e
fHdRLUhA21A7M0Ww5YWTICOYAW1e3KKrLvDeoQPNzHtedn/SHypGcqDre9tR
ORhpupXj6d7kcGe3tBT2r7gbOpVDVykCub0ehdUHURjsg2+vHRqC3r17K0T3
HjAGZmwo8CBcFmNR8dePk1ooXzEIYeWeJ1Q7W7E/LV0MHhXCrl8/hVl3nAk1
k4JKTN4FPx+i8gVE9nU/wIqVa2FHoQHezo9QwSiL+XHDYm5QhrY2WKkUq6H3
sxRzfgh9ctXEg+nQ6okNwNYWlB6EX9+eAmPOaA21sxMghDZ4OA1qdbgAnlix
D3VMoC7RrCTvF1j67qNwbsNUCKe3gElr8gNNPH6zQTRRYg8dkUPw68MdICtk
mA2pTW+E5XmGbM5bPg7qJCk2r94VLrhlGry+aDn8tqsQuaE+Dbj/qxFQNYJp
oBXg9BnrMQxkAuP0mxcwyrraOAO65oQhoUp/uPfihpCiENv8jh/UOiiG319q
CxnKGm05fRMFh0ph37J/wWnNm0GXa1ZiMo5BU+TtYtj9zSswfforsGz3Idi7
8XN4uEM2JFTqD6//UdwwvmbOoBqhNLUKi7bC7L4VlTWqJOW03yB/53wYVV1R
LqM13K2Mlfw1k6BlegjCGY2h61kXwgWDu0DjrIiOb509b4emaBTeEvjzDcVH
4WSo1Xc83HbLJdATwypKYj6yvrBhfM2c4c1geNVk/3oHK5MoU6TeBOX3II3V
0n2xu+pQWQrtH1TLogC2fnA3jDqlMVQrlwIpOTXh+I5D4fa3fwW1QgNGcQ0l
vQp+hw/uHAJt6uRCWnImVGncA8Y9twYOqDaN4mjjDKntWwoRB4L/DyviMBs=
\
\>"]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Excess heat capacity plot:", "Subsection",
 CellChangeTimes->{{3.641897141575632*^9, 3.641897147552947*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"2", ",", "1", ",", "k"}], "]"}], "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "4"}]]}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "350", ",", "383"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"2", ",", "10", ",", "k"}], "]"}], "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "4"}]]}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "350", ",", "416"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"2", ",", "26", ",", "k"}], "]"}], "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "4"}]]}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "350", ",", "416"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"2", ",", "61", ",", "k"}], "]"}], "*", 
         SuperscriptBox["10", 
          RowBox[{"-", "4"}]]}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "350", ",", "430"}], "}"}]}], "]"}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<T [K]\>\"", ",", 
      "\"\<\!\(\*SuperscriptBox[\(\[CapitalDelta]C\), \(XS\)]\) \
[\!\(\*SuperscriptBox[\(10\), \(\(4\)\(\\\ \
\)\)]\)J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]\>\""}], "}"}]}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "100"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"200", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"300", ",", "300"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"400", ",", "400"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5", ",", "10", ",", "15", ",", "20"}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<E = 0 [kV/cm]\>\"", ",", "\"\<E = 10 [kV/cm]\>\"", ",", 
        "\"\<E = 25 [kV/cm]\>\"", ",", "\"\<E = 60 [kV/cm]\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.15", ",", "0.835"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.15", ",", "0.835"}], "}"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "Bold"}], "]"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6392227027478857`*^9, 3.639222778183613*^9}, {
   3.639222833034659*^9, 3.6392228781143217`*^9}, {3.639229827887088*^9, 
   3.639229987974469*^9}, {3.6392301406979923`*^9, 3.639230142007004*^9}, {
   3.639230284122583*^9, 3.639230284943142*^9}, {3.639230354259967*^9, 
   3.639230367188429*^9}, {3.6392304264719543`*^9, 3.639230429604851*^9}, {
   3.639230524784671*^9, 3.639230525368966*^9}, {3.639231219104607*^9, 
   3.639231221399613*^9}, {3.639231530948452*^9, 3.639231546488418*^9}, {
   3.639231664693935*^9, 3.639231676113455*^9}, {3.639233627629212*^9, 
   3.639233666203834*^9}, {3.639233714796556*^9, 3.6392337254284163`*^9}, {
   3.639233808528903*^9, 3.639233809457258*^9}, 3.639331714492372*^9, {
   3.639333736138406*^9, 3.6393337634788218`*^9}, {3.639333906444118*^9, 
   3.639333980788908*^9}, {3.639334382911525*^9, 3.63933438543256*^9}, {
   3.639335174339862*^9, 3.639335178290409*^9}, {3.6393369992565193`*^9, 
   3.6393370287939653`*^9}, {3.639826607956039*^9, 3.6398266191335983`*^9}, {
   3.639829802213194*^9, 3.639829851925125*^9}, {3.639830089097699*^9, 
   3.639830383931375*^9}, {3.6398304198596487`*^9, 3.639830469561551*^9}, {
   3.639830589723514*^9, 3.639830677425729*^9}, {3.640019930298627*^9, 
   3.640020021076364*^9}, {3.640020243171722*^9, 3.640020265064845*^9}, {
   3.648499033539497*^9, 3.648499044179879*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.01388888888888889], Thickness[0.0025], 
       Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw1yFsow3EcBfC1UlseMJckZNvf2N/oP7e5zJwiXrBaeGHEooQU40HRyEJJ
ySRjKZQHt1gUTTztlSc8WLm0EhZ5UJYM7fc9dTp9jry9z9QhFolE8r/+bzjv
5fbHp+2+OSXYgSFB8LpXyRLYdCeKx11yNBwViwmxZ+Q42ANVlqZLciLUQrXj
6oGcDP/YR8/aJzkNLbOu7rtIjlkBfyDYeaQgc1jb19YYS8kqrEwEI24byJkw
bLkWHf1kHjfxacPHc2QNpP6dugU3OQe1gZfQ6A1ZwGuEMHgrSmfWYulbLFFl
k3PBLXtDz2ZyHrabDdbreXI+NjsblZ4LcgFGzHfSJZmKuRC+H+vXlpmsQ8zk
lMx+QC6CpyzIc7EZzMVQ/HCp3Di5BE5P1PS3OJO5FCmtLYldTrIe0t6NM5lR
zVyG08qkLDfPMxvw0ea75/VZzOV4M6U/bCxrmAHj+fre4UBO2DYgI2Dx188I
+AXsMIJA
         "]],
        FontSize->24]}, 
      {RGBColor[0, 0, 1], PointSize[0.01388888888888889], Thickness[0.0025], 
       Dashing[Large], 
       StyleBox[LineBox[CompressedData["
1:eJw1yn0sFHAcx/Hz2GkId3M44pQ8lMhDnnL3cbhz7pyHWh7+8HDIUpsWoo11
SCirsaF/tNWV1rqued6sB1tk7PjDQzapP0isVshTp2PV7vf7bd999/q+fzxF
UUq+MYPBiP43/7fhrQkWfHSt11zcQQ5Qx6T+iORSMyFNd6+ccaC2Qc395N5Q
e2o2plwSCxQsagdsOwx1ymyonSGuKVxZs6R2g4JXVi62oHaH+jJvVGxGfRQF
wQOcFQb1MXzJ75G76HnEXtBa//wwt03tg+yRYoXdOvUJKOeXX3Z/oz6Je6yH
sepFan809jQcWf5IfQqrVa8LZVPUAci6uaIbHKUOhLypYs/jLXUQ9ML9q2nd
1MFYsNM/8O+gPo1H5cOlVW3UITDKHNrh1FGHom+tvmaghDoM3HARzyubOhzj
1rPjHAl1BJT9dydC/KjP4Hx7LNfXjjoS47mF683rbsR8zJYXPdvVUgtgtata
/a6iBpzZew1LpcRKoLOlaz5TSHsUTL9KL4wxaY/CId/p+YAmV9KFqNd0RlQb
EyuF2BIay6rzDpMejeSa1t3UPhfSo8FSLZrk7DiTHgP1tJWTxJNYGQPHkoUU
VxGX9FjoBt61XTznRHos2niLCYFnHUkXId3CU8KOcSBdBE1FWr2vN4d0MWr7
U6ROZvakizFZ3tw1M8cmPQ7BOSGbrS9YpMfh/YRs7qnSjnQJalv6+eGptqRL
oDmwJI0KsiE9Hn8qTT4/DrImPR7arOFxN44l6VJcyv0UKWQdJF2KWZX/ZsZx
JukyjPQ+4U9mm5MuQ4VVqkbQY0p6AoRvXtk2epiQnoCx6VvX2T1GpMuhe97B
1WYySJdjhKXZ643bFxh6IpKZ+vYr5nqDlYlovKP6dWNDR3oSir1a8+osfxuM
JLC9a9V+8m3yPwl84XRZWO+mwYNJWM3YCrzN3xD8BZcPENE=
         "]],
        FontSize->24]}, 
      {RGBColor[0, 0, 1], PointSize[0.01388888888888889], Thickness[0.0025], 
       StyleBox[LineBox[CompressedData["
1:eJw1ynss1XEYx/HfkLnm7riTjIRTESGXj/tx+XG6WOew+YOKOMtoHd1waJVl
RhKSyZp7ZrRWGGVutSKkDa3LrMmyika0xKr5Pt/t2bPX8/7uSEw/fEKJ47ig
f/N/b70l/9UC5dHJZzZgB9SaWv+R9pLV8PRuQVn2A7IuouTDj7wbyYZ4rfeR
L7pDNoG261utjGKyBU5mecpm88k2aJ9MbZw5S7bFxmpU99EUsh2SrrUk8HFk
e0i8ptSfRJJ3IUF2fKHWh7wbDT6bc4vOZGecclBU1FmQhTj2lec7Ncl7UTqq
oStasWbeh5F2z+W+MbIr+G0qGiPNZDdIBX2XpPnk/WhRdpmWSMnu0Cly1usS
kj1gqHPueooS+QAyeu9bxL6xYvbEuP1vG1kd2QsVs3M5VZlkbyR7JPWO+JEP
QvF8SLCoRvZB5din8m/jlsy+uFo4KXxYTvbDRH/zrDCO7I+OzBvz4eZkQCoq
ffdjxmLLCuDekP+KQTkzF4B1y4tuNTHUA7DUGN2eq0o9ELkLg1NN3easB6Ik
UdalKWPmghBwRkVSbUY9CEnWJZviYTPWg5HVMFRpm86sCIbR5hVtbSPqIXBK
7rmt02nKeghWmx47ukiYuVBEqAy0yX6asB4KS+/C0zPFzFwYVvi68MsO1MOQ
UJ22mtMjYF2ELpULLp+jmRUiDBj9Gpz6YMx6OHJfxHVmyZgV4dCckpstrhmx
HgFedmQpLY9ZEYFX0rFlG3XqkejIm/cNKTZkPRKS+IAZA0NmLgo1Dtl+LysM
WI+C3fnGnlYzZo5HQfXy+Hq1Pus8bjreytiwYuaiUd8rEK/V6rEeDdVD3wV7
djJzMWgNMW77Uq/Legzcx8rkqY7MnBj68irRXLzOliFG7ESiMC95O/svRq5t
XKWVXHvLfWK8D53udyrQwl/wVgzu
         "]],
        FontSize->24]}, 
      {RGBColor[0, 0, 1], PointSize[0.01388888888888889], Thickness[0.0025], 
       Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw103tMU3cYxvEjjoHIbQpYhVHaIYWKVdeiXCw8lKIFUXphMolBR1DspvVS
Oh2SeLYhconGbW4I6B/Gyc2A1mFEXZYO1JioaAIz0SVqYkRZFIqAFyLRLrzv
SU5OPueb55/fyZEVbTdv8hIEweS5/39OXe600I6a4l6ZFPQCe/PmydW+bF/E
rVcEzRyKJAejYti9Lq+PHYL7Wm9VQBdbgtk/3utUH2NHoGd8V9i1fewozGiU
lnUXseWefaKPIpMdjb8bJ5+MxLBj4L12D2S+7FhENu/O+OPZp2QlnHfqpU3X
2fHoaC3xe9PMVmFJfW1acyV7McLPBHqdK2Yvwai763iYjv05rgaVbemLZKtx
c2i4Z2AigqyBz9l3kbl32QmQZjpe+znZS+FQD/wrqWUvg4/bum13MTsRm9/W
fTVfy07CPmVVhSyUnYySyqeXvn4eTk6B63n0R0IPezn+sbaVPzrK1qIlX7Vx
po2diuGGAH9Rx05Dqt/FaalhbOCLWfGD+sF5UxYBR7TtlyOXyUI6hKLwyfiD
3NPR9sOIMbCQuw63tm74L1HFXYfopOAv2yfnUs/wfG974dabZDED+wO0E982
cNfj9YXeot4S7noslx7zL9Vwz0Tde9tpq8A9E71tP2mcNyTUV2DR8XuPcn4j
iytw9XaNKm0j95XQ1wY/ronjvhJ7T1X4q1/OoW5A9WfvvVIukUUDLGs7rE3f
c8+CMrll0XcG7lnYqS0/fCGQezZexTpCNveHUc/G0aFDh6vrycIqnHsoiVEU
cl/lOf9pOr2cew5KYq40DjwJpZ6DOYaPNSGtZGE1Tv58zdz3DffVnv8pZb9S
xX0NuqKyG6PcIdTXoCn8xO9/OslCLha+3PPC2849F7mu0YnpGu5GqBYvOPDX
2Owpw4iAkafl2vNk0Qh77IzRKgfZZcTlrBZFawJZMKGgdKysaXwW7U2IeHHX
Wn2eLJpwoq64qsBBdplwe5msXJ5AFszY0q14NTj2Ce3NSO9Wt1/sJItm3JCf
zG8oJbvMKKi0nTqiIQsWSH9VJjvHgmlvQft9SfObTrJowWmbcZPdQXZZYM/3
uxO3lCzk4YE+KdUwFET7PGw3Z/X07wjCByLaOok=
         "]],
        FontSize->24]}}, {}}, InsetBox[
     TemplateBox[{
      "\"E = 0 [kV/cm]\"","\"E = 10 [kV/cm]\"","\"E = 25 [kV/cm]\"",
       "\"E = 60 [kV/cm]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, 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.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {}}}, 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.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.125], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 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], {
          Directive[
           GrayLevel[0], Bold], FontFamily -> "Arial"}, Background -> 
         Automatic, StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "24"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "24"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "24"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.01388888888888889`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "24"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True", ",", "True"}], 
               "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                   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], ",", 
                 "Bold"}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.15, 0.835}], ImageScaled[{0.15, 0.835}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T [K]\"", TraditionalForm], 
     FormBox[
     "\"\\!\\(\\*SuperscriptBox[\\(\[CapitalDelta]C\\), \\(XS\\)]\\) \
[\\!\\(\\*SuperscriptBox[\\(10\\), \\(\\(4\\)\\(\\\\ \
\\)\\)]\\)J/\\!\\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\)K]\"", 
      TraditionalForm]},
   AxesOrigin->{0, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 24},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   LabelStyle->Directive[
     GrayLevel[0], Bold],
   Method->{},
   PlotRange->{{0., 81.}, {0., 16.548170411010826`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{{{3, 
       FormBox["0", TraditionalForm]}, {100, 
       FormBox["100", TraditionalForm]}, {200, 
       FormBox["200", TraditionalForm]}, {300, 
       FormBox["300", TraditionalForm]}, {400, 
       FormBox["400", TraditionalForm]}}, {{0, 
       FormBox["0", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}, {15, 
       FormBox["15", TraditionalForm]}, {20, 
       FormBox["20", TraditionalForm]}}}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.01388888888888889], 
          AbsoluteThickness[1.6], FontSize -> 24, 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw1yFsow3EcBfC1UlseMJckZNvf2N/oP7e5zJwiXrBaeGHEooQU40HRyEJJ
ySRjKZQHt1gUTTztlSc8WLm0EhZ5UJYM7fc9dTp9jry9z9QhFolE8r/+bzjv
5fbHp+2+OSXYgSFB8LpXyRLYdCeKx11yNBwViwmxZ+Q42ANVlqZLciLUQrXj
6oGcDP/YR8/aJzkNLbOu7rtIjlkBfyDYeaQgc1jb19YYS8kqrEwEI24byJkw
bLkWHf1kHjfxacPHc2QNpP6dugU3OQe1gZfQ6A1ZwGuEMHgrSmfWYulbLFFl
k3PBLXtDz2ZyHrabDdbreXI+NjsblZ4LcgFGzHfSJZmKuRC+H+vXlpmsQ8zk
lMx+QC6CpyzIc7EZzMVQ/HCp3Di5BE5P1PS3OJO5FCmtLYldTrIe0t6NM5lR
zVyG08qkLDfPMxvw0ea75/VZzOV4M6U/bCxrmAHj+fre4UBO2DYgI2Dx188I
+AXsMIJA
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.01388888888888889], 
          AbsoluteThickness[1.6], FontSize -> 24, 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw1yn0sFHAcx/Hz2GkId3M44pQ8lMhDnnL3cbhz7pyHWh7+8HDIUpsWoo11
SCirsaF/tNWV1rqued6sB1tk7PjDQzapP0isVshTp2PV7vf7bd999/q+fzxF
UUq+MYPBiP43/7fhrQkWfHSt11zcQQ5Qx6T+iORSMyFNd6+ccaC2Qc395N5Q
e2o2plwSCxQsagdsOwx1ymyonSGuKVxZs6R2g4JXVi62oHaH+jJvVGxGfRQF
wQOcFQb1MXzJ75G76HnEXtBa//wwt03tg+yRYoXdOvUJKOeXX3Z/oz6Je6yH
sepFan809jQcWf5IfQqrVa8LZVPUAci6uaIbHKUOhLypYs/jLXUQ9ML9q2nd
1MFYsNM/8O+gPo1H5cOlVW3UITDKHNrh1FGHom+tvmaghDoM3HARzyubOhzj
1rPjHAl1BJT9dydC/KjP4Hx7LNfXjjoS47mF683rbsR8zJYXPdvVUgtgtata
/a6iBpzZew1LpcRKoLOlaz5TSHsUTL9KL4wxaY/CId/p+YAmV9KFqNd0RlQb
EyuF2BIay6rzDpMejeSa1t3UPhfSo8FSLZrk7DiTHgP1tJWTxJNYGQPHkoUU
VxGX9FjoBt61XTznRHos2niLCYFnHUkXId3CU8KOcSBdBE1FWr2vN4d0MWr7
U6ROZvakizFZ3tw1M8cmPQ7BOSGbrS9YpMfh/YRs7qnSjnQJalv6+eGptqRL
oDmwJI0KsiE9Hn8qTT4/DrImPR7arOFxN44l6VJcyv0UKWQdJF2KWZX/ZsZx
JukyjPQ+4U9mm5MuQ4VVqkbQY0p6AoRvXtk2epiQnoCx6VvX2T1GpMuhe97B
1WYySJdjhKXZ643bFxh6IpKZ+vYr5nqDlYlovKP6dWNDR3oSir1a8+osfxuM
JLC9a9V+8m3yPwl84XRZWO+mwYNJWM3YCrzN3xD8BZcPENE=
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.01388888888888889], 
          AbsoluteThickness[1.6], FontSize -> 24, 
          RGBColor[0, 0, 1], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw1ynss1XEYx/HfkLnm7riTjIRTESGXj/tx+XG6WOew+YOKOMtoHd1waJVl
RhKSyZp7ZrRWGGVutSKkDa3LrMmyika0xKr5Pt/t2bPX8/7uSEw/fEKJ47ig
f/N/b70l/9UC5dHJZzZgB9SaWv+R9pLV8PRuQVn2A7IuouTDj7wbyYZ4rfeR
L7pDNoG261utjGKyBU5mecpm88k2aJ9MbZw5S7bFxmpU99EUsh2SrrUk8HFk
e0i8ptSfRJJ3IUF2fKHWh7wbDT6bc4vOZGecclBU1FmQhTj2lec7Ncl7UTqq
oStasWbeh5F2z+W+MbIr+G0qGiPNZDdIBX2XpPnk/WhRdpmWSMnu0Cly1usS
kj1gqHPueooS+QAyeu9bxL6xYvbEuP1vG1kd2QsVs3M5VZlkbyR7JPWO+JEP
QvF8SLCoRvZB5din8m/jlsy+uFo4KXxYTvbDRH/zrDCO7I+OzBvz4eZkQCoq
ffdjxmLLCuDekP+KQTkzF4B1y4tuNTHUA7DUGN2eq0o9ELkLg1NN3easB6Ik
UdalKWPmghBwRkVSbUY9CEnWJZviYTPWg5HVMFRpm86sCIbR5hVtbSPqIXBK
7rmt02nKeghWmx47ukiYuVBEqAy0yX6asB4KS+/C0zPFzFwYVvi68MsO1MOQ
UJ22mtMjYF2ELpULLp+jmRUiDBj9Gpz6YMx6OHJfxHVmyZgV4dCckpstrhmx
HgFedmQpLY9ZEYFX0rFlG3XqkejIm/cNKTZkPRKS+IAZA0NmLgo1Dtl+LysM
WI+C3fnGnlYzZo5HQfXy+Hq1Pus8bjreytiwYuaiUd8rEK/V6rEeDdVD3wV7
djJzMWgNMW77Uq/Legzcx8rkqY7MnBj68irRXLzOliFG7ESiMC95O/svRq5t
XKWVXHvLfWK8D53udyrQwl/wVgzu
          "]]}, {
         Hue[0.37820393249936934`, 0.6, 0.6], 
         Directive[
          PointSize[0.01388888888888889], 
          AbsoluteThickness[1.6], FontSize -> 24, 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw103tMU3cYxvEjjoHIbQpYhVHaIYWKVdeiXCw8lKIFUXphMolBR1DspvVS
Oh2SeLYhconGbW4I6B/Gyc2A1mFEXZYO1JioaAIz0SVqYkRZFIqAFyLRLrzv
SU5OPueb55/fyZEVbTdv8hIEweS5/39OXe600I6a4l6ZFPQCe/PmydW+bF/E
rVcEzRyKJAejYti9Lq+PHYL7Wm9VQBdbgtk/3utUH2NHoGd8V9i1fewozGiU
lnUXseWefaKPIpMdjb8bJ5+MxLBj4L12D2S+7FhENu/O+OPZp2QlnHfqpU3X
2fHoaC3xe9PMVmFJfW1acyV7McLPBHqdK2Yvwai763iYjv05rgaVbemLZKtx
c2i4Z2AigqyBz9l3kbl32QmQZjpe+znZS+FQD/wrqWUvg4/bum13MTsRm9/W
fTVfy07CPmVVhSyUnYySyqeXvn4eTk6B63n0R0IPezn+sbaVPzrK1qIlX7Vx
po2diuGGAH9Rx05Dqt/FaalhbOCLWfGD+sF5UxYBR7TtlyOXyUI6hKLwyfiD
3NPR9sOIMbCQuw63tm74L1HFXYfopOAv2yfnUs/wfG974dabZDED+wO0E982
cNfj9YXeot4S7noslx7zL9Vwz0Tde9tpq8A9E71tP2mcNyTUV2DR8XuPcn4j
iytw9XaNKm0j95XQ1wY/ronjvhJ7T1X4q1/OoW5A9WfvvVIukUUDLGs7rE3f
c8+CMrll0XcG7lnYqS0/fCGQezZexTpCNveHUc/G0aFDh6vrycIqnHsoiVEU
cl/lOf9pOr2cew5KYq40DjwJpZ6DOYaPNSGtZGE1Tv58zdz3DffVnv8pZb9S
xX0NuqKyG6PcIdTXoCn8xO9/OslCLha+3PPC2849F7mu0YnpGu5GqBYvOPDX
2Owpw4iAkafl2vNk0Qh77IzRKgfZZcTlrBZFawJZMKGgdKysaXwW7U2IeHHX
Wn2eLJpwoq64qsBBdplwe5msXJ5AFszY0q14NTj2Ce3NSO9Wt1/sJItm3JCf
zG8oJbvMKKi0nTqiIQsWSH9VJjvHgmlvQft9SfObTrJowWmbcZPdQXZZYM/3
uxO3lCzk4YE+KdUwFET7PGw3Z/X07wjCByLaOok=
          "]]}}}, {}}, {
     DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0., 81.}, {0., 16.548170411010826`}}, DisplayFunction -> 
      Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {
       "T [K]", 
        "\!\(\*SuperscriptBox[\(\[CapitalDelta]C\), \(XS\)]\) \
[\!\(\*SuperscriptBox[\(10\), \(\(4\)\(\\ \
\)\)]\)J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]"}, AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 24}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, LabelStyle -> Directive[
        GrayLevel[0], Bold], Method -> {}, 
      PlotRange -> {{0., 81.}, {0., 16.548170411010826`}}, PlotRangeClipping -> 
      True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, 
      Ticks -> {{{3, 0}, {100, 100}, {200, 200}, {300, 300}, {400, 400}}, {0, 
        5, 10, 15, 20}}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.01388888888888889], 
         AbsoluteThickness[1.6], FontSize -> 24, 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.01388888888888889], 
         AbsoluteThickness[1.6], FontSize -> 24, 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.01388888888888889], 
         AbsoluteThickness[1.6], FontSize -> 24, 
         RGBColor[0, 0, 1], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.01388888888888889], 
         AbsoluteThickness[1.6], FontSize -> 24, 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]]}, {
       "E = 0 [kV/cm]", "E = 10 [kV/cm]", "E = 25 [kV/cm]", "E = 60 [kV/cm]"},
        LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
         False, Automatic}}, Joined -> {True, True, True, True}, LabelStyle -> 
       Directive[
         GrayLevel[0], Bold], LegendLayout -> "Column"]], {
      Scaled[{0.15, 0.835}], {0.15, 0.835}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.6398303008810368`*^9, 3.6398304700642233`*^9}, 
   3.6398305966483507`*^9, {3.639830632102127*^9, 3.6398306780127153`*^9}, {
   3.640019976484558*^9, 3.6400200216141367`*^9}, {3.6400202511972427`*^9, 
   3.640020265657876*^9}, 3.642252930780257*^9, 3.642254387392314*^9, {
   3.648499027389102*^9, 3.648499044731978*^9}, 3.655663753433552*^9, 
   3.655829366749611*^9, 3.661185586904305*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.639230197285705*^9, 3.6392302016712*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["VDOS heat capacity + total heat capacity plot:", "Subsection",
 CellChangeTimes->{{3.641897157645033*^9, 3.641897174127359*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CvT", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
    "\"\</home/john/PSTO_stuff_Byounghak/QPdata/Cv_T_BTO.csv\>\"", ",", 
     "\"\<Data\>\""}], "]"}]}], ";", 
  RowBox[{"Dimensions", "[", "CvT", "]"}]}]], "Input",
 CellChangeTimes->{{3.638834506484901*^9, 3.6388345292682123`*^9}, {
  3.638836729744382*^9, 3.6388367306688757`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2000", ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{{3.638834512764634*^9, 3.638834529899261*^9}, 
   3.63883637992488*^9, {3.638836728240653*^9, 3.63883673126433*^9}, 
   3.638837649313365*^9, 3.6388403949154587`*^9, 3.6392208893112803`*^9, 
   3.63923045135324*^9, 3.6393340194772997`*^9, 3.639335709954002*^9, 
   3.6393369799265013`*^9, 3.639339542752502*^9, 3.639831799402093*^9, 
   3.6398355100814466`*^9, 3.639919342348359*^9, 3.639927144954566*^9, 
   3.6399350869290333`*^9, 3.640082791382791*^9, 3.640104611228181*^9, 
   3.640282393832958*^9, 3.641835237851782*^9, 3.641850511337826*^9, 
   3.641896510072462*^9, 3.642252932540514*^9, 3.6422543892957497`*^9, 
   3.642255708218326*^9, 3.642335279145377*^9, 3.648499057655422*^9, 
   3.648499358472473*^9, 3.655663758169626*^9, 3.655829242289804*^9, 
   3.6558293689760303`*^9, 3.661185587317659*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"CvT", "[", 
        RowBox[{"[", 
         RowBox[{"k", ",", "2"}], "]"}], "]"}], 
       RowBox[{"6.022", "*", 
        SuperscriptBox["10", "23"], "6.430201823999999`*^-29"}]], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", "400", ",", "1"}], "}"}]}], "]"}], "]"}], 
   ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<T[K]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(C\), \(V\)]\) [J/\!\(\*SuperscriptBox[\(m\), \
\(3\)]\)K]\>\""}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.0055", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "Bold"}], "]"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.640086331304882*^9, 3.640086390669001*^9}, {
  3.648499061487418*^9, 3.6484990633817167`*^9}, {3.6485039911112947`*^9, 
  3.6485039945941257`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0055], 
     StyleBox[LineBox[CompressedData["
1:eJw113lczHv/xvEpZSuKIxzLT+EQoUKUqKu9KDMtWqhMy7RNy6zNRDItRJLQ
dqwjkSMRd3SUo+GIhHTIknUcHS0OhsqW5fZ73N93/3g8vbvmNZ8/MwlP8uFp
s1isfC0W6////d+Pxt7PpmBGgDQXzH8gWivARn/ePsaDURjrF9F39hhjQxy1
m+7fpFfHeBQSGibftii+zHgsct77Hmk+2sJ4Au6UPY42WnOXsTGGVG9wk6Q/
YjwZg2Y4b9jj/YzxVIRH2Decj2pnPA0dl6d3NKV0MDaF8yih69kN3YxngvXh
0muvja8Yz8LdOYElPbYaxnPgWFL0/EzFW8YW4JcurTMd0cPYEuzmfx478XsZ
z0XTCscXTmf7GM/DXHuO64HP7xnPx0OXQyl65h8ZW2HSl60G4f6fGC9AhOFq
m0rBZ8YL4RgXnzA6rZ+xNW58Dch6lvaFsQ2MuiO3Rom/Ml4Eg2OWUv3gb4xt
sa3zjwxnm++MF+PKyzL2n7osh/95CUwdLs0sjyXbYewND+vcRrI9rj4O2V41
WYsx0LXgr+XecsYK4EDougFHr9LdAWsPWwT3jtZm7g7A8NTH0VzGLEeoZlqc
tTlMd0foX1hyZk8n3Z0Qwnow7cL0AczdCW93iLtaIxiznLF/Vp1wwF66O8M5
teKe9DbdXXD536Zun0E6zN0F2svZ7vXWjFmuiDthLn4cTXdXpP2z+NWNArq7
YbbVSc6Jerq7oTq2IXZfJ93dcean5+wzBrrM3R2eZ23SDK0YszxQOrHw5aVA
untg3UVbk+41dF+KRd/ucgp3030p7h3win1QS/dlSG7dNvP6fbovQ+oojnVq
H909Edd5xqzfcCBz98SOuIFlgWaMWV6wj3XzP+hMdy/sb9Ge0BVM9+XoX2eg
tVBC9+XYPDCD82sO3dnQPdmsHK+kOxt3vvzf08ZqunMQw9UEVTQyBgcv7L40
XX9Iv89B2Iws7oLXjFUcmGh9bdB8p703jFSTZumMGMTsvXFpwyaO3ISxwhsG
h85l+VkyVnnD9OGN6v1gzPKBqCIzgcumvQ9CzCf9vSeE9j7QX3Ph7Uo+7X1Q
tk0ySymnvS8GGT69J9xAe1+cTjnZ07qd9r6QNJxb0ryX9r4oz7tjFf4b7f3Q
ODzOpLCa9n7IPtQ+nF9Pez+Umrbe77hKez9EqNSmBq20XwHza0Vr2h/TfgWW
Pv84kd9B+xVokvbZHNbQfgU8Kk40l3yivT8E0aU1LtqDmb0/7lwtrTwxlLHC
H//aX3ZvG8lY5Q+fsabaDeMYswJwU6vASjqZ9gEYn2w05d8ZtA+AjoVEY2ZJ
+wBcn1twdIE17QNhuKPBdbg97QMxTfH5YLUL7QNRt7hvi5kn7QNRUhBULfGh
fRCmdlTXbw+kfRAmusnsskJpH4Qtb++e8Iqk/Q+31mS8iaX9Siy7xR/NT6L9
Sjj5ZtddkNB+JRqzcqp7U2i/Ena5exforqf9KvxSNDuuN5P2qzDvn838PzfR
fhXy/kpdJt5K+1WQ3/7LQHcH7YOxo/PRf1KKaB8M3aRe01u7aB+Mx6df+Rvs
p30w5D3ZE+YepH0IMovus23LaR+ClbIT580qaB+C9E/v5+icoH0I3spGrG44
RftQpDwyGyg4Q/tQrHuU16pTS/tQ1FtpxFl/0D4U1qPPZr9R0X415tqwK10v
0X41DHP8UnOu0H41/jDp3FjXRPvVWDT/edCDG7Tnon6n4bqOFsbGXDyZFyl+
fps+j4ucDrO65ruMuVzIfvVo/q2NPp+LQQr/ydJHjJVcXHNpM7V8Sj0ulnol
sJ88Y6zm4mJv1/fUduqHYda2XOWwDuqHYXrJ+IL8LuqHwWPr4EUD/6V+GLzu
Fb5OfE39MHRa9wy9pqF+GKYcWf3PuB7qh+HTIKe/QvuoHwaxp9ek4g/UD0dl
W97ES5+oHw5/r6IxL/qpH469YzP8v36lfjhWlE0yGcoawvTD8Xf3lzp9bcbK
cFSkro/V1WGsCofrzY+xvbqM1eEQ36vpbxvEmBWBSTEmq84MYWwcAZ9BdRc3
6zFGBLa/c+D7DWPMjcCBAbVbRhtQPwLOhalBLYbUj0DBRffBGSOpH4F22+VN
ZqOoH4H5y5xbbhhRPxKs9gSPmDHUj8S+v3+L6B9L/UiEFimWZY+jfiR+W2Y5
S38C9SPxcNUZ85yJ1I9Eq8n9NK1J1I/E4Pp5DiJj6keCr3HZ+8iE+jyc2iT5
HVOoz4Ne/uiafVOpz0ORWHHu/S/U5+F50pCX7tOpz0Mzb3RkoSn1edi139j9
0Qzq86BSnz0z0Yz6PHR+39scNIv6UZCnVlbmz6Z+FLwivgguzqF+FASJD+a/
Mad+FEp23Rg1xpL6UVi08ajZornUjwKvY+POwHnUj8I2q5s80XzqRyG016ku
24r60Vj759eKkgXUj8b4vBT2oYXUj4bqTuG5SmvqRyNj1p4hp2yoHw2/bifP
U4uoHw2lZ+2vx22pH43nensHli+mfjT29OmV715C/Rjsua7My7WjfgyK5Wtb
UuypH4NHHPv1EaB+DEqLJlR6OFA/BqOkLfxZjtSPgfxM+XU9J+rH4OScLHUH
WR0Dg2vqGpUz9WNh9Lg5vMiF+rGIesN6G+NK/Vi8OH1ZaO1G/VjcuvVTr447
9WPha5m+sZmsjMWlWvbCQg/qx0IRFT8qaCn1Y2EwM95s3DLqx2Foc9Hm+2Tj
OBi/fmFb4En9OCzs0mV7eVE/Dv2GgTcHLKd+HHLNexpryMo47B5xzC2WTf04
xF0wCBjLoX4cIg7ztRvILD5qxzX6JXlTnw9n9ASO8aE+H/M2yn7+g8zl4+7W
o0quL/X5qFxR+lHLj/p8jA9aYnaArOJjt8svjnYrqM/Hq+4m1zYyKx6/sBIc
Rf7Uj4co0chuSAD14+E/cI/jPjI3Huu2HQ20DKR+PF7+/vumi2RlPLSfjHzo
HUT9eNS8vxPwlKyOR3h5z0D+Suon4GPffE0v2TgBrQULx69bRf0EvC4WbBsQ
TP0EpNyc7beJrEhA+uRigV4I9RPgOb/yZS5ZlYAbzcuv64dSPwG7Js79eQuZ
lYjGjDf3B62mfiLcZJ9GZJKRiNyjZU1fyNxEpC8xGSLlUj8R5n9n3H5JViZC
c+2ceVgY9ROxJ7Jsyh2yOhFFnm+r3cKpn4TQ03Zdv5ONk7A7TO+yaQT1k3D8
ey2nmMxNQu2MojydSOonQclryhKQlUlonZ9o/ZCsSoIPe81xZx71k5Ahb315
jMwSoFvHte+nKMaGArR/yryZQjYWICRw1vonZAsBrC9eGuwYTd9PgNk55wVl
ZI4AWd/Edbox9H1/3OeYv+KRBQJIEo2HNpAVAhga80ZPiWWcL8Dn83qjFWSl
ANnDhgx7RK4SYPM+l+8L4uh9AjQd2q7JJ7cI0HP9RHsXWS3AuKvspw58xhoB
gk8btJeQWUJMaEx7/5psKETIx/HjnOPp/UK8f+XtU0K2EOLOWkXpSzKEyLP6
MMwugd4vRP2o3uJtZK4Q658fcVKTBUJceWYzyiKR3i/ErtNn9deT84WozLG0
uEFWCnHhXUn6uCR6vxAjOQ8HRJNVQuzIeXD2FLlFiLalMYe/ktVClEQuu+4m
oPcLcfGy7ZztZJYIe9HV3EY2FOGV8EOViZDeL0K1Uf/dGLKFCJ5XFE4nyBBh
utfQT71kjgiWdsM+24jo/SLo1fS5p5EFItwrm9J5gawQ4aC5pk1HTO8X4Qv7
iLEbWSlC5oy885vIVT8+X/Xw9FWySoTXPpcGD5XQ+0VQ28af9SCrReif1Hd1
E1kjQlK9cPEVMkuM4ibNSF0pvV+MDTIZ25FsLAZvOqs3jWwhxmazdO06MsS4
cKg99T2ZI8aQI4Y8y2R6vxiiJPU5Plkgxt7mGRsPkRVijL1dd/EJOV+MLadX
SsbI6P1iNOy7vIdNrhLjbXHNkmyySoxae3XgeXLLj+9X2/Wml6wWg3NRpmMm
p/eLcX2VWQmXzJJgp1bJsUKyoQSlt9lOTWRjCTKzn4Z8I1tIcPdr41fLFHr/
j98/lzuVR+ZI0JZVdruYzJWg4UO6fhNZIIFBcGFLP1khwdopziaz19D7JWiu
7/keQlZKkG7KSswjV0lg7XIh/jxZJcFK99yvr8gtEhx0Pm4ycS29X4JdxcIH
y8gaCY61/TxjDZklxUPrf4YfIRtKMe35iK13yMbSH39vtpZpp9L7pSiduzrA
nAwp+i49PbSKzJEi+kra9mwyVwrf49zx/yELpGizLnd+QlZIUV6XOHzIOnq/
FDvX3kyZR1ZKoeX7KDuEXCWF34QjNtlklRQOO5bkV5FbpFifVJ7bRlZLMZrd
aa6dRu+XomKaztqZZFYybK6/T/QhGyZjbF2t/hqycTJuhrquOEC2SIZ7Y55H
IxnJ6Nmb2f2azEnGvfEGNkbr6f3J2Hp/wgJbsiAZhw5t/5tLViTjuJ+P/UZy
fjKmvlvsVUFWJuOF+ZxhLeSqZCzmaSl6yapkvE3LPTxWQe9PhrK6NH0xWZ0M
h+dGI7lkTTIK5p4OzCSzZHixeqn/YbKhDJmm+/Wuko1leGaTkvKSbCFD24s9
ymHp9H4ZEkRN6eZkjgwxcfUTvclcGXq1rKUiskAG7ZpXm3aSFTIs9ykOqibn
y/DWobujlayUoWBz0fw+cpUMa7O9YJRB75chxbxOz4rcIkP/zdxiP7Jahm+e
ce1iskaGJ+af3+0gs+QIKX/250myoRy8WxcCWsjGckzYYHfiNdlCjuCf3zXp
Z9L75RD6plbMJHPk2D032dudzJVDvkr2B48skOOYaIwmg6yQ45t+d9d+cr4c
NvUZFefISjk2/ym2aiNXyTF8m/umPrJKjhVaO8pGZNH75VDPf5Azm6yWY45z
ha0HWSNHp82WmkgyKwX5Fjrf1//wfwGS5sSZ
       "]],
      FontSize->14]}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"T[K]\"", TraditionalForm], 
    FormBox[
    "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\) [J/\\!\\(\\*SuperscriptBox[\
\\(m\\), \\(3\\)]\\)K]\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  LabelStyle->Directive[
    GrayLevel[0], Bold],
  Method->{},
  PlotRange->{{0., 400.}, {0., 209039.99951970996`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.640086346343384*^9, 3.640086391162978*^9}, 
   3.641835238985433*^9, 3.641896511258904*^9, 3.6422529335343933`*^9, 
   3.642255708327976*^9, {3.648499059405239*^9, 3.648499064100088*^9}, {
   3.648503987855468*^9, 3.6485039949525137`*^9}, 3.6556637596213493`*^9, 
   3.655829369453246*^9, 3.661185587420764*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Flatten", "[", 
          RowBox[{
           FractionBox[
            RowBox[{"CvT", "[", 
             RowBox[{"[", 
              RowBox[{"k", ",", "2"}], "]"}], "]"}], 
            RowBox[{"6.022", "*", 
             SuperscriptBox["10", "23"], "6.430201823999999`*^-29"}]], "+", 
           RowBox[{"\[CapitalDelta]CBackward", "[", 
            RowBox[{"2", ",", "1", ",", "k"}], "]"}]}], "]"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "5", ",", "390", ",", "1"}], "}"}]}], "]"}], "]"}],
      ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"CvT", "[", 
          RowBox[{"[", 
           RowBox[{"k", ",", "2"}], "]"}], "]"}], 
         RowBox[{"6.022", "*", 
          SuperscriptBox["10", "23"], "6.430201823999999`*^-29"}]], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "5", ",", "450", ",", "1"}], "}"}]}], "]"}], 
      "]"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(C\), \(V\)]\) + \!\(\*SubsuperscriptBox[\(\
\[CapitalDelta]C\), \(V\), \(XS\)]\)\>\"", ",", 
        "\"\<\!\(\*SubscriptBox[\(C\), \(V\)]\)\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.08", ",", "0.99"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.08", ",", "0.99"}], "}"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<T[K]\>\"", ",", 
      "\"\<C [J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]\>\""}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<BTO\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.648499401509935*^9, 3.648499439268408*^9}, {
   3.648504000429264*^9, 3.648504004778154*^9}, {3.6485041775640593`*^9, 
   3.6485043023461637`*^9}, {3.648504696766807*^9, 3.64850481664369*^9}, {
   3.648506021954337*^9, 3.6485060222205353`*^9}, 3.6485079758143187`*^9}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw1j3k41PsbhidLFIVKKSoqHakcIinKQ0gIKbIbY99nR1TTvtGmhZQk2hei
RXVKK2mTUkLSvkikUoh+53edzzv/zHXPO8/3/t56vASPMDkOh7O4D4fz/+//
Pm3WcSPf2b+2ugv2AzZ4CWruqT5mrIya7QG4Gl3HWB0KlX7XJsiaGA+B0rPz
ph+fvmasBd7P1pfHTN8z1sH7TPeH2umfGOvC7oZZoMmLFsZjILuV4VS7rY3x
ODzJqXqdYtTOeDxs26/W/iz7xtgAMbwBqgpzfzA2hNv3bKvsmx2MJ6HyzFXF
zqm/GBthysfPz3ZkdTI2Rv2SyVP12roYm2C02OPQ4um/GU9ByAYj3lFJD2NT
2OZkNTzL72VshnuaF1pdyv8wnor+qcdrTsRzbP5jcygXzlt69hvxNFQYrNHs
FPZhbIFyU8stRZ+Jp8NAa0DJyGA5xjOgtbnqXUoVsSVu63fY9LeUZ2yFj+GZ
jYr7iWdiv3O921E5BcazkDLsma0Jl9gauBJvVV1KDJT5X4i/pqb4H8uAtLSe
XDMeY44NAixK9X2K6G6Dr/yi+oAeuttin+ytebxDX3a3hd3JfLfiNMac2bjF
qfyxoIrusyGX2XhLrKHE7naI3mXqYOHOWGaHXs8vPy6n0d0ek83y+X+V090e
ZhXvVmz6Q3cHnHVOtVMzV2Z3B7jYfzW+Hs2YMwd5V+Ksr+2l+xwsCd7dOeYB
3R0xo/+yrV29dHfEooOhHf6T+7H7XEj18j74+zKWzcXvbidV1TV0d0K0uLVr
cSHdnbDt3oyFpc/o7gxr+733avr0Z3dn7NutatNowJjjgu5+lRdeuNLdBesv
+ax5J6L7PCga58zo3UX3eai5P+WmyUW6uyIyV1my8TndXRFe56yg+YfubgjO
Ltn/dLQKu7thv7FJZ701Y447NO9+tTQMYgx32B1UM6hcQv93h9rHdLXr2YzL
3GHQv7tRu5T28yHcvH9sfQ3t5yNghp2GUjvt50M1Y8PaggGqbD8f+cvlh10y
YMzxgBL/haL7bMbwwJmzPgvDAxjLPCCufFAmn0h7D/wVfvDOpC20X4CKgQ0X
3h6m/QIorYrfO+Uq7Rcgz22l67BntF+AEF/vpF1ttF+IvycP23VWaQDbL0Tl
ioDuxFGMZf/y03N3G80Yly3E7ZufVb44MeZ4gn9Ia8dhLu09sePjBT0NKe09
ERua7mS4kfaeqO71Xd+xj/ZeeDAze0ZSCe29oP2u/76iCtp7QeGAwfP8Btp7
4W7BermFbbRfBPVXVopX5Qey/SK86/p8o2UoY9kiWMqNUm2YwLhsETInmG9N
t2LM8cY4m7U/5d1o743nmU5VCKa9N1T6rMi2F9HeG84zXlYMXk17Hzh3bTx/
fCftfSBv+OWixmHa+8DROWioXSntfbD04Nseu0ra+0Jf4V62Zj3tfWGqM2/A
uWba+2LT0cGhhr9p74ukCXUH+apqbO+Hbb9ePdygwxh+uLkq6WnyJMYyPzzP
j8qdZcW4zA8WX2JV65xp74+V87LbXfxo748RX8v1MqNp748+E15zLyXT3h+C
fG7ChXW0D0ByQ4pixi7aB2CmTsZjh4O0D4C1fvLaJyW0D4DF5pJrttdpH4gp
yx6OS3tI+0Co78pyKH5B+0DMfOl38XwL7QPRpT1OY2837YPQlJUSWaigzvZB
OPVmpfUKFcayINycKJpnN4hxWRAu6Tc96NBizOFCYcksud2jGetysaa9e6TR
eHoeFwWGO3yLJzHmcnGVV9AywZSez8VOpT/9t01nnMvF413/vGm2Jh8Xb/Z4
HJvmwLiJi75eOekSF/IH47vDr/MFHuQPRnsfB58Kb/IHIzVVLut5IPmD0XXI
ff/bUPIH40l+/91N0eQPhsqp8iP3+eQPxqaqth+npOQPxgbLW3mrUsnPg8A+
7pHLCvLz0KHUe0R5Hfl5GKu4ds75dPLzsFhF+65fBvl5UN/23OtbJvl5WB+u
2HdZDvl5UD7xqaP3APl5KOxRcRAdIX8IxvwcrtZwkvwhqDzRHTu9hPwhqH7y
KHljKflD4GQ2yK36MvlDwLGIUxx4g/wheNHytWTWbfKH4FSaoiT0PvlD8GZD
gv+yR+QPxRc/3+Wba8kfik/jAjq3Pyd/KEKzlj3b/Ir8oejrb20ue0/+UPi4
7hgb/pn8oXDY+qvE5iv5QxHjGd4zqIP8obBdHqJW10X+MBy6JN+z8w/5w3Cv
6OPTuQoazB8GTpprUbsyY24Yxv2juHvrAMayMFjpLMkbP4hxbhgcRDfrioYy
LguDVmqGh6k246YwNLRYDz82mjEnHAGlj2cOH8dYNxy2BX0eLDEgfzgcu4zq
ayeRPxxXXMV8QxPyh2OWLHePcCr5w/GldmZc0XTyh6Msf0vru5nkD4fei73G
g23JH4FP1RNmmjuQPwLqX6/ouTuRPwKD3p38xHUlfwTitwzMj/QgfwRcK6/7
RHiRPwKq8kuHBfiS/997+6UPcwPJH4Gt0oe1k3nkj8QGz6Z25XDyRyK1+bVN
fRT5I5HUdKwqP478kfCe/PZImID8/+7DBteOlJA/EoO37g67l0T+SBRbXvIX
p5I/Erdn7S4fJCN/FI7WWRQeXkn+KJxes1zXfC35owBv2zEXN5A/CodNTa5M
20T+KCgWf+Ic30r+KHCk3W3DdpA/Cg3eTzJTMskfhfurm/o8zSZ/NBy0YqYa
7iN/NAK9LlhJ8sgfjZqf8nrnC8gfjeo0YXP7YfJHI+DJ2AL94+SPxrUlJovc
T5E/GruPFvQXnSZ/NJrPpleknyF/DIaqNWflnid/DBpvXVl77CL5Y3DSUjX7
5GXyx+DJzKqGI1fJH4NBPapee2+QPwbrs8vV1peTPwb1KsqD4yrJH4PAD42R
c++RPxbSdbwRo6rIH4uHZiXGzdXkj0XD/t6Swhryx2J5cHJhfC35Y/G7J2aS
fj35Y1H3Y+KUx8/JH4tFOnp3UprIH4uFp29xdF6TPw5lpccbSt6SPw47h6ZE
OnwgfxzMT3w9UfWJ/HEYWfLp7IIW8schtDwg/UEr+eOwvZVraddO/jic3T/x
TtF38sdB+ZnmHK2f5I9H5r6c0sRO8sfDuCRmclU3+eNh1O50Qq+X/PHoLp9m
F8sZxPzxaB3n23NKjnFuPC6vU3nzWYFxWTwW1dfKj1Vi3BSP9D8rIz36MeYk
YIuD8qgUFca6CTjassd47wDGSMBt3TPHz6sx5iYgit9v3z0N8idAsjhjSMNg
8idgzIjMEW80yZ8Ao/cFl98OI38C7p7ZPfDlcPLzsVN2SOuJNmN1PjxqPJpv
jKT34WNos2zHidGMjfmobBKM36JH78eHctHtE7FjGbvzUZCx03K2Pr0vH29W
uDcN/osxnw+XiW+ONxrQ+/MR9qvo9AFDxlv4kMvOkg+ZRD18tBR2F+kYMS7k
w9XxalXV39THx6a9PNEyE8ZVfORNbjlhYEq9fNy5obzjrhnjNj6W5srNijGn
fgGmba++rGBB/QKIe8cYZU2nfgHOD/Q9YGBJ/QIkLThgXmxF/QLM29TBmT6L
+gVYMVFf54I19QvAudyUZ25D/QLYT6ooPGlL/QIku0h4Y+yoXwDHuatqttpT
vwBpG/INehyoX4DV2gdSQh2pXwDXwtTW8rnUL8A2m5iDfzlTvwBdr75dX+lC
/QKs8e+ObZhH/UKsGlZbbuJG/UJk6vJ+r3SnfiG8FqmYPZpP/UJEjmjPGr2A
+oUYlNbtG7WQ+oW4zPtYUOhJ/UIILcXHfnhRvxA6LZE5Ft7UL4TSt1vFyT7U
L8RjXv2YUl/qFyLeM0r/px/1C5HkUf7TNID6hUjzVnmWEEj9Qux0NFE5FkT9
QvhmODx6y6V+IU6e3pOsy6N+ESIlP+f6hVC/CJXTKzJ2hlK/CDUbQ49Wh1G/
CDpP5rxVi6B+EWJXe+W6RlK/CFOm6lttjqJ+EaKdnEZVR1O/CAdXFxUNi6V+
Eew1OsO5cdQvgvHu6pLj8dQvwufVAq2eBOoXgfOKM9RDQP0iOGXpTD8upH4R
Wt8Fa6qKqV+EpZvk5ggl1C9CkWm46IWU+sUYPvbl3IVJ1C+GYYx41cNk6hej
yzPvw6IU6hcjM9zP8UMq9YsReLRzxcql1C/GzINBawxl1C9GzrkJ7o3LqV8M
rknf1n0rqV+MqXZ/r+Kvpn4xdIv62c9fS/1ifFXrSJ29nvrFqBrlvtlxI/WL
cV/uWGdwOvWLkZ3l7rV1M/WLkVCsEFS7lfrFCJKNa7PYTv0SmB8ep3pmJ/VL
oJC35IVrFvVLEHpmxE3lPdQvQWDfAOe3OdQvQcnl8unv91O/BOErJLs0Cqhf
guoe8emIw9QvQdXIaQYtx6hfAjt189aCU9QvwfgJ2rydxdQvQVdppsv1c9Qv
ge66gC6TS9QvgctiseOHMuqXQHVOXunnm9QvQb6Z2yaHO9Qvwdm95U09VdQv
RaP71VvaT6lfil65oOSjz6lfCt0yy9Vn3lC/FAZLohScPlO/FGqzfr+Rfqd+
Kb5LQ6zn9VC/FDljfpc19R3M+qUYu+qAsaMGY5kUdqN1NXN0GG+RYlTekHV9
JjDOlaKjzspulznjQil4mkfkN9ozLpOi+9xSZw0vxlVSeHpoVUVFMm6SImlq
U+GrVMZtUpTMedDckMGYk4j4sZP3Vp9grJ4I5wVLfgXdYaybCGUVN5l7C2Pj
RLRVVGoWDxnC+hPxReK3rNOWsXsirhgVqU5azJibCIUj1Wtt/2HMT4StaKF5
ubom60/EccvgaSNSGW9JxEAbzqgZqkNZfyJ6Q6Zdb6obavM/2Htr9w==
         "]],
        FontFamily->"Helvetica"]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Large], 
       StyleBox[LineBox[CompressedData["
1:eJw112lczPv/xvEpZafh2I7lpyxHhMpallxIQmkkKZRp32vWZqaSsWYJcaiO
dThZjiwdJ2toUCQkZMk6loM4GFQ4tr//43yv7vR49umaV++b2YUm+UZYikSi
kxYi0f9//+/LPCqhtNs1p5yzEH6AZfVTd1XsrhTcGNfz7kW1TbkhWIwmhYvG
q+bdFdwGjXq7L9o45aHgDggNG1V6MvKJ4M54drbXs3LdM8G2cG8j9zi66IXg
bhB9KHntvfiV4B640T8g9/1ws+BfMCY3+/Gh/LeC7RG3bWKRfav3gvvAp+Lv
e2PjagX3Rfm0MU/HHq0T3B8DRkk8tv5bL9gJd8Zt1zVz/CjYGV2/rLAJ9f8k
eADCxLNd98r+FTwQY2LjE9qlfxY8CJe+Tl/4MP2L4MFo+yJ8RaTyq+AhsNnj
rG4+65vgoVj1/MR8d9fvgl1w7mWezxlr0ej/7Ar70SV9dsbQw9Dh0gSXzDJ6
OM7fC1pd0M1C8AjUDLkyeYqWHomtwXMa7D5PuyF1h9Os2naWgkcBLdPuRUlp
wNjH6ajrDsF6oPmpkYc2Puf7aASJbv9yqlcD4X003q5R1lSFCRaNwZa+RfIG
m/g+Bu5p+TfV1/g+Fmf/KX/h28hKeB8Ly8k+nsUugkXuiN3vqLwXxXd3pP89
4tWltXwfh36D/5TsL+b7OBTGlMZsfs53Dxz66bHPIRtr4d0DXkdd08WDBYvG
Y1uXdS9LAvg+HnNOD7d7kcJ3Twz7dkOybgPfPXFzq3fM7WN8n4DkqlV9Lt7i
+wSktZG4pNXxfSJinx9y+CxuKLxPxJrYhnkBDoJFkzAqZrz/7+58n4QtlZad
a2bx3Quf59hYDFXx3QtLG86X/LaM796w/rPC0MnAd29c//K/B2WFfJ+MaKk5
ML+M75Px1O1L+cU7fPdBSO+F0iGv+e4DO4uvpebvfJegrbFrX6tWjf4zJChZ
tESitROsl8Bm+/GFfs6CjRLY37lUuAWCRVOgyF+QIPXhfgqCHLs+2hjE/RQ0
Tzn1dkYc91OQt0rV16Dl3heNxA9uyhdx74uDuj/fV63m3heq0uMjKzZx74ud
K68PDv2D+6koaxlrt66Q+6nI2P6kZVwx91Oxzb7q1rPz3E9FmNFkb1PFvR8c
L2SnPLnHvR8mPv7YJe4Z934oV9e57jBz74cJ+fsrcj9xPw2yqG2Hx1k2FvbT
cP38tr37mwrWT8M/o856VrcWbJwG3w72lqUdBYv8cdli7WB1N+790Sm5bfd/
enPvDysnldnBmXt/XBywdvcQF+6nQ7ym1KPlKO6n4xf9v78XjuN+OopG1C13
8OJ+OnLXBhaqfLkPQI9nhcWrA7gPQJfxGreFwdwHYPnbG/u9w7n/4arD89/E
cB+ISVfj2sUlcR+IsVMzik6puA9E2cJlhbU67gPhlrlpiPVc7megZ3a/2NoF
3M/AwL+Xxp1Zwv0MrLySNkm5gvsZ0F67YmO9hvuZWPP87l+6bO5nwjqp1v7q
eu5n4t7BV/42W7ifCe37jM4Dfud+FhZk3/IZvpP7WZih2X/SIZ/7WZj3qb6/
1X7uZ+GtptXs0gPcB0F316Gh7BD3QZhzd2WV1THug1A82KxceIL7ILi0O5rx
xsh9MAa4+uz1KOE+GOJlfmnLznEfjBN2zxcXlXMfjGGDHgfevsT9bBT/Kp7z
rJL72bg/MFz5+Br3s7HsmUNRxQ3uZ0Pz24SKP6q5l6KR3r+b+q5gWykujKu2
d37Az5NioneCz/2HgqVSnK6t+Z72hJ8vRd9VmYYWzwQbpOiV22ltVg17UkxY
0XhYw38Em6TwvrnudeJr9kPw3OV90wtm9kPQfdfsvzu+Zz8EnxqNvRJcx34I
lF7eXXM+sB+CvdUru5R8Yj8E/t7Z7Z9+Zj8EmzrM9//6lf0QTMvratdU1ETo
h+LRiy9FzS0F24YiP21ujLWVYITC4/LHmFprwdJQKG8e/lzdSLA+FF2j7WYe
aiLYEArfRkWnlzYTbAzF6nej4/xaCDaFYmuDY8vb2bAfBvd1aYGVYvbDsPa0
Z+P5rdkPw5Phk8sd2rAfhkGT3CsvtWU/DKInCROi27Mfhs2P/gj73IH9MARn
6ydldGQ/DH9Mcu7bvDP74bgz85Djsi7sh6PK7la6RVf2w9G4eOBohS374Ygz
j9t01479cBxYojqC7uyHo1lWu8Obe7Afjmyl/nh9T/bD8TipyUvPXuxHoCKi
Xfg6e/YjsH6Lrefd3uxHwGg6eqiLA/sReP59U0VgX/YjoE3buzerH/sR8A77
Ijvdn/0IyBJvD3rjyH4EctdfatPemf1IDFu822HYAPYjEfFs8a8BA9mPxKrB
lyMUg9iPRHDt2KKMwexHIvXM1/zcIexHotNKnc/2oexHwnh93fG9LuxHYn7f
jU0OuLIfBb8XY70ODGM/CgavY7/tG85+FB4329Rw5wj2o7CxrtnODSPZ/+GL
hpWZbuxHIUebWqkbxX4U7kpGzQ0D+1HYlt1574TR7Eejjboyru8Y9qOhPbTz
YrOx7Efjz/4LTc9oaTRsLpgOG93Zj0bbexWh2ePYj0bkG9HbaA/2o/H04Fm5
y3j2o3H16k+1Vp7sx2Cq87zFFbRtDEqO+QxdN4H9GOgj49sETmQ/BjZ94h06
TmI/Bk0rspfeog0xsH39dPhaL/ZjMLTG2sfbm/0YfBYHXG4wmf1YZDq+LztM
28ZiQ6s942N82I9F7Cmb6R0k7McibEecZSmtj8WxjmV+SVPYj4U73ge092U/
FgMXa34+QZticWPFboN0Kvtx2Dtt20cLP/bj0ClwpMNWGnHYMK7nGLdp7Mfh
1Ytyj2paH4eeooQxCn/246BIbOvWZDr7cfBvuHHMZtoUhzmrdgc4B7Afj5dH
jiw5TdvGw/J+6ztTAtmPx+H669Mf0NJ4hO583zBuBvvx+Fg3yFxLG+JRtXZo
pzkz2Y/H6xzZqgaz2I+H7nI/vyW0KAHzuuXImgWxnwCvQXtfZtJIwKWKyReb
B7OfgPVdBvy8nNYnoGz+m1uNZrOfgPGaT60W0MYEZO7OK/9Cm370Rto1UUvZ
T4Tjo/nXXtK2iTBfOO4YEsJ+IjaG53W/TksTke31tnB8KPuJCD7oVnOENiRi
Q0izs/Zh7Cdi3/djkhzalIhjvbNXWoWznwRDRPlCGW2bhKpBiS53aCTB1ydl
n3sE+0mYr616uYfWJ+GFlUfdT5HsJ+HJpwWXdbQxCUEBfefep01JcDld0nhM
FPsy9Ft2UpZHi2VY+E1ZZB3Nv+fHe3/HVxG0kwyqRNumpTRkENtGtOseI1gi
w78nm7XT01IZMlo0aXGXlsmwdPO470Ni+ffLUL59tTmLzpLh/cX9T2pogwwd
z/s8GB0nuECGWQdtnuTSRhk6l6XXv6YrZQj62KmjezzvlaH+1RTfXNosw/VU
/baXtEiOlYM/tHBL4P1yFLepzVlF28ox9/GusSbaSY5zD13bOCXyfjnWHzza
fC4tkWPvMmenS7RUjlPvcud1TOL9crSW3GkQRevlWLPs9tEDdJYc1ROjd3yl
DXLkhk+6OF7G++U4fXZ4/9W0UY5NqKmopivleCX/UGAn5/1yFLb9fCOaNsvh
dU4/dj8tUqCXd9NPtbRYAWe3Fv+6Kni/As0O13mm004K3Mzr/vwUDQV+dzRX
Wyl5vwJffHbZjqelCizovfLkElr24/ONdw6ep/UKvPYtadxUxfsVMA2PPzqB
NijwuWvd+SV0gQJJxfIR52ijAjnl5tbWat6vwCKNxmcMbVIgopeoNp02K7DU
YZ5lES1S4tT2J2n1tFiJJrvEEc7JvF8JRZLpeBztpMSmit6Lt9NQosO1otP3
aYkSyw/OULXX8H4lSjef3ehDy5R4m3N4ZAatV+LYKFPASTpLiaXHat7U0gYl
JKc1Vg5a3q/ExZkOuVLaqMSvFrl71tGVSmy75jO2nDYpsSDjQdA32qzEja9l
X511vF+Fbccze0TQYhWqF+Zdy6FtVSj9MK95Oe2kgs2sdZWfaaiQ2t3drl8K
71ehovj99yBaqsI8e1HiSlqmgsu4U/Enab0KMzwzv76is1T43X2fXZdU3q/C
+hz57Ul0gQp7qn/unUIbVbjj8nfLXXSlCr88brXiOm1S/fh/syrPMo33/7h3
wOzpjrRIjbqSB9tn0mI1os6lr86gbdWYuk/a6S/aSY1ql53u92mosbMosWWT
ObxfjV9TL+sG0lI1LKbezQiiZWr4dd7lmkHr1Ri9ZmRWAZ2lxtyknZnVtEGN
dj7PHS3Teb8a+b9YpfahjWq4XqxP9KUr1ehQdKx5Cm1S43Kwx7SttFkNz7KV
E8poUTLeb1rw4jUtTsbNTjaubefy/mSsuNV5yHDaKRnbt69+JKWRjH1+vqMW
05Jk9Hg3wjuflibjqWP/FpW0LBkjIiz0tbQ+GW/TM3d00PP+ZBgKt80bQRuS
Mfpx29ZSuiAZawccDFhAG398/uyJ/jvoymQssN/S7DxtSsZDV53uJW1ORvXT
jYYW83i/BgmK8nmOtFiD6NjiLlNoWw1qLVzUCtpJA8vDr5b8SkODyb45gYW0
RIO3o188q6KlGqxdmj2ojpZpkJrhjbbzeb8GOseiZoPpLA0+X87M8aMNGnzz
in2ipAs0uO/477s1tFGDoJ0Pz/xJV2oQcfXU9ErapEHnRW77X9NmDWb9/K68
+QLer4V8alp+H1qsxYYByVM8aVsttDM1JyJoJy32KNqb59PQ4lvzFzVbaIkW
rsXz84/TUi2WnlEOrqZlWrRc5bmkjtZrMc1iTV6rhbxfC9Og28v60QYt+rvn
D59AF2jx3HX54XDaqEWWk9X3uXSlFvXdcltvoE1arIgsf3eQNmtxRvI/QyUt
0mHNxVadXtJiHXK69gi3XsT7dXC6fSW1K+2kw/8GZIe60tBhieXLDlNpiQ71
Fzy3xNNSHY4E9qxfRMt0OHblQ5cttF6HvXmD2h+hs3S4emvio0raoIPKtWBu
DV2gw4b2V95YLOb9OnSv6jKwI12pg9hoOXEAbdLBKuPVoIm0WYe+sR61IbQo
Be9ma5foaHEKFv3x8m0WbZuC5H6NnHfRTik4onHyKKaRgkazy51v0JIU1J8f
XvsPLU1B1NzHKxpk8P4UtPfv8f1nWv+jlxTs6URnpSB3jTnGgzakINvBJXwW
XZCCPl6rhypoYwq+WQc8yaArU3Ai9nnsJtqUgi12v104QJtT8NfDkoZltCgV
/XxPd75Hi1PxUFXT4h1tm4qBDzNvN1zC+1MR4NZgQScaqfBJNzRyoiWpqL53
MNqdlv74/dp1OwJoWSpWf1t9Kp7Wp6LFwo9H9XRWKrJOdcxaSxtSEbPU3X0X
XZCKnmElN4poYyrEdk/HX6YrUzF3XV3OI9qUiu4uI8/V/fD/AR3ik6A=
         "]],
        FontFamily->"Helvetica"]}}, {}}, InsetBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\) + \
\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]C\\), \\(V\\), \\(XS\\)]\\)\"",
       "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.08, 0.99}], ImageScaled[{0.08, 0.99}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T[K]\"", TraditionalForm], 
     FormBox[
     "\"C [J/\\!\\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\)K]\"", 
      TraditionalForm]},
   AxesOrigin->{0, 0},
   BaseStyle->{
    FontWeight -> "Bold", FontSize -> 12, FontFamily -> "Helvetica"},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   Method->{},
   PlotLabel->FormBox["\"BTO\"", TraditionalForm],
   PlotRange->{{0., 446.}, {0, 374456.19064098585`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw1j3k41PsbhidLFIVKKSoqHakcIinKQ0gIKbIbY99nR1TTvtGmhZQk2hei
RXVKK2mTUkLSvkikUoh+53edzzv/zHXPO8/3/t56vASPMDkOh7O4D4fz/+//
Pm3WcSPf2b+2ugv2AzZ4CWruqT5mrIya7QG4Gl3HWB0KlX7XJsiaGA+B0rPz
ph+fvmasBd7P1pfHTN8z1sH7TPeH2umfGOvC7oZZoMmLFsZjILuV4VS7rY3x
ODzJqXqdYtTOeDxs26/W/iz7xtgAMbwBqgpzfzA2hNv3bKvsmx2MJ6HyzFXF
zqm/GBthysfPz3ZkdTI2Rv2SyVP12roYm2C02OPQ4um/GU9ByAYj3lFJD2NT
2OZkNTzL72VshnuaF1pdyv8wnor+qcdrTsRzbP5jcygXzlt69hvxNFQYrNHs
FPZhbIFyU8stRZ+Jp8NAa0DJyGA5xjOgtbnqXUoVsSVu63fY9LeUZ2yFj+GZ
jYr7iWdiv3O921E5BcazkDLsma0Jl9gauBJvVV1KDJT5X4i/pqb4H8uAtLSe
XDMeY44NAixK9X2K6G6Dr/yi+oAeuttin+ytebxDX3a3hd3JfLfiNMac2bjF
qfyxoIrusyGX2XhLrKHE7naI3mXqYOHOWGaHXs8vPy6n0d0ek83y+X+V090e
ZhXvVmz6Q3cHnHVOtVMzV2Z3B7jYfzW+Hs2YMwd5V+Ksr+2l+xwsCd7dOeYB
3R0xo/+yrV29dHfEooOhHf6T+7H7XEj18j74+zKWzcXvbidV1TV0d0K0uLVr
cSHdnbDt3oyFpc/o7gxr+733avr0Z3dn7NutatNowJjjgu5+lRdeuNLdBesv
+ax5J6L7PCga58zo3UX3eai5P+WmyUW6uyIyV1my8TndXRFe56yg+YfubgjO
Ltn/dLQKu7thv7FJZ701Y447NO9+tTQMYgx32B1UM6hcQv93h9rHdLXr2YzL
3GHQv7tRu5T28yHcvH9sfQ3t5yNghp2GUjvt50M1Y8PaggGqbD8f+cvlh10y
YMzxgBL/haL7bMbwwJmzPgvDAxjLPCCufFAmn0h7D/wVfvDOpC20X4CKgQ0X
3h6m/QIorYrfO+Uq7Rcgz22l67BntF+AEF/vpF1ttF+IvycP23VWaQDbL0Tl
ioDuxFGMZf/y03N3G80Yly3E7ZufVb44MeZ4gn9Ia8dhLu09sePjBT0NKe09
ERua7mS4kfaeqO71Xd+xj/ZeeDAze0ZSCe29oP2u/76iCtp7QeGAwfP8Btp7
4W7BermFbbRfBPVXVopX5Qey/SK86/p8o2UoY9kiWMqNUm2YwLhsETInmG9N
t2LM8cY4m7U/5d1o743nmU5VCKa9N1T6rMi2F9HeG84zXlYMXk17Hzh3bTx/
fCftfSBv+OWixmHa+8DROWioXSntfbD04Nseu0ra+0Jf4V62Zj3tfWGqM2/A
uWba+2LT0cGhhr9p74ukCXUH+apqbO+Hbb9ePdygwxh+uLkq6WnyJMYyPzzP
j8qdZcW4zA8WX2JV65xp74+V87LbXfxo748RX8v1MqNp748+E15zLyXT3h+C
fG7ChXW0D0ByQ4pixi7aB2CmTsZjh4O0D4C1fvLaJyW0D4DF5pJrttdpH4gp
yx6OS3tI+0Co78pyKH5B+0DMfOl38XwL7QPRpT1OY2837YPQlJUSWaigzvZB
OPVmpfUKFcayINycKJpnN4hxWRAu6Tc96NBizOFCYcksud2jGetysaa9e6TR
eHoeFwWGO3yLJzHmcnGVV9AywZSez8VOpT/9t01nnMvF413/vGm2Jh8Xb/Z4
HJvmwLiJi75eOekSF/IH47vDr/MFHuQPRnsfB58Kb/IHIzVVLut5IPmD0XXI
ff/bUPIH40l+/91N0eQPhsqp8iP3+eQPxqaqth+npOQPxgbLW3mrUsnPg8A+
7pHLCvLz0KHUe0R5Hfl5GKu4ds75dPLzsFhF+65fBvl5UN/23OtbJvl5WB+u
2HdZDvl5UD7xqaP3APl5KOxRcRAdIX8IxvwcrtZwkvwhqDzRHTu9hPwhqH7y
KHljKflD4GQ2yK36MvlDwLGIUxx4g/wheNHytWTWbfKH4FSaoiT0PvlD8GZD
gv+yR+QPxRc/3+Wba8kfik/jAjq3Pyd/KEKzlj3b/Ir8oejrb20ue0/+UPi4
7hgb/pn8oXDY+qvE5iv5QxHjGd4zqIP8obBdHqJW10X+MBy6JN+z8w/5w3Cv
6OPTuQoazB8GTpprUbsyY24Yxv2juHvrAMayMFjpLMkbP4hxbhgcRDfrioYy
LguDVmqGh6k246YwNLRYDz82mjEnHAGlj2cOH8dYNxy2BX0eLDEgfzgcu4zq
ayeRPxxXXMV8QxPyh2OWLHePcCr5w/GldmZc0XTyh6Msf0vru5nkD4fei73G
g23JH4FP1RNmmjuQPwLqX6/ouTuRPwKD3p38xHUlfwTitwzMj/QgfwRcK6/7
RHiRPwKq8kuHBfiS/997+6UPcwPJH4Gt0oe1k3nkj8QGz6Z25XDyRyK1+bVN
fRT5I5HUdKwqP478kfCe/PZImID8/+7DBteOlJA/EoO37g67l0T+SBRbXvIX
p5I/Erdn7S4fJCN/FI7WWRQeXkn+KJxes1zXfC35owBv2zEXN5A/CodNTa5M
20T+KCgWf+Ic30r+KHCk3W3DdpA/Cg3eTzJTMskfhfurm/o8zSZ/NBy0YqYa
7iN/NAK9LlhJ8sgfjZqf8nrnC8gfjeo0YXP7YfJHI+DJ2AL94+SPxrUlJovc
T5E/GruPFvQXnSZ/NJrPpleknyF/DIaqNWflnid/DBpvXVl77CL5Y3DSUjX7
5GXyx+DJzKqGI1fJH4NBPapee2+QPwbrs8vV1peTPwb1KsqD4yrJH4PAD42R
c++RPxbSdbwRo6rIH4uHZiXGzdXkj0XD/t6Swhryx2J5cHJhfC35Y/G7J2aS
fj35Y1H3Y+KUx8/JH4tFOnp3UprIH4uFp29xdF6TPw5lpccbSt6SPw47h6ZE
OnwgfxzMT3w9UfWJ/HEYWfLp7IIW8schtDwg/UEr+eOwvZVraddO/jic3T/x
TtF38sdB+ZnmHK2f5I9H5r6c0sRO8sfDuCRmclU3+eNh1O50Qq+X/PHoLp9m
F8sZxPzxaB3n23NKjnFuPC6vU3nzWYFxWTwW1dfKj1Vi3BSP9D8rIz36MeYk
YIuD8qgUFca6CTjassd47wDGSMBt3TPHz6sx5iYgit9v3z0N8idAsjhjSMNg
8idgzIjMEW80yZ8Ao/cFl98OI38C7p7ZPfDlcPLzsVN2SOuJNmN1PjxqPJpv
jKT34WNos2zHidGMjfmobBKM36JH78eHctHtE7FjGbvzUZCx03K2Pr0vH29W
uDcN/osxnw+XiW+ONxrQ+/MR9qvo9AFDxlv4kMvOkg+ZRD18tBR2F+kYMS7k
w9XxalXV39THx6a9PNEyE8ZVfORNbjlhYEq9fNy5obzjrhnjNj6W5srNijGn
fgGmba++rGBB/QKIe8cYZU2nfgHOD/Q9YGBJ/QIkLThgXmxF/QLM29TBmT6L
+gVYMVFf54I19QvAudyUZ25D/QLYT6ooPGlL/QIku0h4Y+yoXwDHuatqttpT
vwBpG/INehyoX4DV2gdSQh2pXwDXwtTW8rnUL8A2m5iDfzlTvwBdr75dX+lC
/QKs8e+ObZhH/UKsGlZbbuJG/UJk6vJ+r3SnfiG8FqmYPZpP/UJEjmjPGr2A
+oUYlNbtG7WQ+oW4zPtYUOhJ/UIILcXHfnhRvxA6LZE5Ft7UL4TSt1vFyT7U
L8RjXv2YUl/qFyLeM0r/px/1C5HkUf7TNID6hUjzVnmWEEj9Qux0NFE5FkT9
QvhmODx6y6V+IU6e3pOsy6N+ESIlP+f6hVC/CJXTKzJ2hlK/CDUbQ49Wh1G/
CDpP5rxVi6B+EWJXe+W6RlK/CFOm6lttjqJ+EaKdnEZVR1O/CAdXFxUNi6V+
Eew1OsO5cdQvgvHu6pLj8dQvwufVAq2eBOoXgfOKM9RDQP0iOGXpTD8upH4R
Wt8Fa6qKqV+EpZvk5ggl1C9CkWm46IWU+sUYPvbl3IVJ1C+GYYx41cNk6hej
yzPvw6IU6hcjM9zP8UMq9YsReLRzxcql1C/GzINBawxl1C9GzrkJ7o3LqV8M
rknf1n0rqV+MqXZ/r+Kvpn4xdIv62c9fS/1ifFXrSJ29nvrFqBrlvtlxI/WL
cV/uWGdwOvWLkZ3l7rV1M/WLkVCsEFS7lfrFCJKNa7PYTv0SmB8ep3pmJ/VL
oJC35IVrFvVLEHpmxE3lPdQvQWDfAOe3OdQvQcnl8unv91O/BOErJLs0Cqhf
guoe8emIw9QvQdXIaQYtx6hfAjt189aCU9QvwfgJ2rydxdQvQVdppsv1c9Qv
ge66gC6TS9QvgctiseOHMuqXQHVOXunnm9QvQb6Z2yaHO9Qvwdm95U09VdQv
RaP71VvaT6lfil65oOSjz6lfCt0yy9Vn3lC/FAZLohScPlO/FGqzfr+Rfqd+
Kb5LQ6zn9VC/FDljfpc19R3M+qUYu+qAsaMGY5kUdqN1NXN0GG+RYlTekHV9
JjDOlaKjzspulznjQil4mkfkN9ozLpOi+9xSZw0vxlVSeHpoVUVFMm6SImlq
U+GrVMZtUpTMedDckMGYk4j4sZP3Vp9grJ4I5wVLfgXdYaybCGUVN5l7C2Pj
RLRVVGoWDxnC+hPxReK3rNOWsXsirhgVqU5azJibCIUj1Wtt/2HMT4StaKF5
ubom60/EccvgaSNSGW9JxEAbzqgZqkNZfyJ6Q6Zdb6obavM/2Htr9w==
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw112lczPv/xvEpZafh2I7lpyxHhMpallxIQmkkKZRp32vWZqaSsWYJcaiO
dThZjiwdJ2toUCQkZMk6loM4GFQ4tr//43yv7vR49umaV++b2YUm+UZYikSi
kxYi0f9//+/LPCqhtNs1p5yzEH6AZfVTd1XsrhTcGNfz7kW1TbkhWIwmhYvG
q+bdFdwGjXq7L9o45aHgDggNG1V6MvKJ4M54drbXs3LdM8G2cG8j9zi66IXg
bhB9KHntvfiV4B640T8g9/1ws+BfMCY3+/Gh/LeC7RG3bWKRfav3gvvAp+Lv
e2PjagX3Rfm0MU/HHq0T3B8DRkk8tv5bL9gJd8Zt1zVz/CjYGV2/rLAJ9f8k
eADCxLNd98r+FTwQY2LjE9qlfxY8CJe+Tl/4MP2L4MFo+yJ8RaTyq+AhsNnj
rG4+65vgoVj1/MR8d9fvgl1w7mWezxlr0ej/7Ar70SV9dsbQw9Dh0gSXzDJ6
OM7fC1pd0M1C8AjUDLkyeYqWHomtwXMa7D5PuyF1h9Os2naWgkcBLdPuRUlp
wNjH6ajrDsF6oPmpkYc2Puf7aASJbv9yqlcD4X003q5R1lSFCRaNwZa+RfIG
m/g+Bu5p+TfV1/g+Fmf/KX/h28hKeB8Ly8k+nsUugkXuiN3vqLwXxXd3pP89
4tWltXwfh36D/5TsL+b7OBTGlMZsfs53Dxz66bHPIRtr4d0DXkdd08WDBYvG
Y1uXdS9LAvg+HnNOD7d7kcJ3Twz7dkOybgPfPXFzq3fM7WN8n4DkqlV9Lt7i
+wSktZG4pNXxfSJinx9y+CxuKLxPxJrYhnkBDoJFkzAqZrz/7+58n4QtlZad
a2bx3Quf59hYDFXx3QtLG86X/LaM796w/rPC0MnAd29c//K/B2WFfJ+MaKk5
ML+M75Px1O1L+cU7fPdBSO+F0iGv+e4DO4uvpebvfJegrbFrX6tWjf4zJChZ
tESitROsl8Bm+/GFfs6CjRLY37lUuAWCRVOgyF+QIPXhfgqCHLs+2hjE/RQ0
Tzn1dkYc91OQt0rV16Dl3heNxA9uyhdx74uDuj/fV63m3heq0uMjKzZx74ud
K68PDv2D+6koaxlrt66Q+6nI2P6kZVwx91Oxzb7q1rPz3E9FmNFkb1PFvR8c
L2SnPLnHvR8mPv7YJe4Z934oV9e57jBz74cJ+fsrcj9xPw2yqG2Hx1k2FvbT
cP38tr37mwrWT8M/o856VrcWbJwG3w72lqUdBYv8cdli7WB1N+790Sm5bfd/
enPvDysnldnBmXt/XBywdvcQF+6nQ7ym1KPlKO6n4xf9v78XjuN+OopG1C13
8OJ+OnLXBhaqfLkPQI9nhcWrA7gPQJfxGreFwdwHYPnbG/u9w7n/4arD89/E
cB+ISVfj2sUlcR+IsVMzik6puA9E2cJlhbU67gPhlrlpiPVc7megZ3a/2NoF
3M/AwL+Xxp1Zwv0MrLySNkm5gvsZ0F67YmO9hvuZWPP87l+6bO5nwjqp1v7q
eu5n4t7BV/42W7ifCe37jM4Dfud+FhZk3/IZvpP7WZih2X/SIZ/7WZj3qb6/
1X7uZ+GtptXs0gPcB0F316Gh7BD3QZhzd2WV1THug1A82KxceIL7ILi0O5rx
xsh9MAa4+uz1KOE+GOJlfmnLznEfjBN2zxcXlXMfjGGDHgfevsT9bBT/Kp7z
rJL72bg/MFz5+Br3s7HsmUNRxQ3uZ0Pz24SKP6q5l6KR3r+b+q5gWykujKu2
d37Az5NioneCz/2HgqVSnK6t+Z72hJ8vRd9VmYYWzwQbpOiV22ltVg17UkxY
0XhYw38Em6TwvrnudeJr9kPw3OV90wtm9kPQfdfsvzu+Zz8EnxqNvRJcx34I
lF7eXXM+sB+CvdUru5R8Yj8E/t7Z7Z9+Zj8EmzrM9//6lf0QTMvratdU1ETo
h+LRiy9FzS0F24YiP21ujLWVYITC4/LHmFprwdJQKG8e/lzdSLA+FF2j7WYe
aiLYEArfRkWnlzYTbAzF6nej4/xaCDaFYmuDY8vb2bAfBvd1aYGVYvbDsPa0
Z+P5rdkPw5Phk8sd2rAfhkGT3CsvtWU/DKInCROi27Mfhs2P/gj73IH9MARn
6ydldGQ/DH9Mcu7bvDP74bgz85Djsi7sh6PK7la6RVf2w9G4eOBohS374Ygz
j9t01479cBxYojqC7uyHo1lWu8Obe7Afjmyl/nh9T/bD8TipyUvPXuxHoCKi
Xfg6e/YjsH6Lrefd3uxHwGg6eqiLA/sReP59U0VgX/YjoE3buzerH/sR8A77
Ijvdn/0IyBJvD3rjyH4EctdfatPemf1IDFu822HYAPYjEfFs8a8BA9mPxKrB
lyMUg9iPRHDt2KKMwexHIvXM1/zcIexHotNKnc/2oexHwnh93fG9LuxHYn7f
jU0OuLIfBb8XY70ODGM/CgavY7/tG85+FB4329Rw5wj2o7CxrtnODSPZ/+GL
hpWZbuxHIUebWqkbxX4U7kpGzQ0D+1HYlt1574TR7Eejjboyru8Y9qOhPbTz
YrOx7Efjz/4LTc9oaTRsLpgOG93Zj0bbexWh2ePYj0bkG9HbaA/2o/H04Fm5
y3j2o3H16k+1Vp7sx2Cq87zFFbRtDEqO+QxdN4H9GOgj49sETmQ/BjZ94h06
TmI/Bk0rspfeog0xsH39dPhaL/ZjMLTG2sfbm/0YfBYHXG4wmf1YZDq+LztM
28ZiQ6s942N82I9F7Cmb6R0k7McibEecZSmtj8WxjmV+SVPYj4U73ge092U/
FgMXa34+QZticWPFboN0Kvtx2Dtt20cLP/bj0ClwpMNWGnHYMK7nGLdp7Mfh
1Ytyj2paH4eeooQxCn/246BIbOvWZDr7cfBvuHHMZtoUhzmrdgc4B7Afj5dH
jiw5TdvGw/J+6ztTAtmPx+H669Mf0NJ4hO583zBuBvvx+Fg3yFxLG+JRtXZo
pzkz2Y/H6xzZqgaz2I+H7nI/vyW0KAHzuuXImgWxnwCvQXtfZtJIwKWKyReb
B7OfgPVdBvy8nNYnoGz+m1uNZrOfgPGaT60W0MYEZO7OK/9Cm370Rto1UUvZ
T4Tjo/nXXtK2iTBfOO4YEsJ+IjaG53W/TksTke31tnB8KPuJCD7oVnOENiRi
Q0izs/Zh7Cdi3/djkhzalIhjvbNXWoWznwRDRPlCGW2bhKpBiS53aCTB1ydl
n3sE+0mYr616uYfWJ+GFlUfdT5HsJ+HJpwWXdbQxCUEBfefep01JcDld0nhM
FPsy9Ft2UpZHi2VY+E1ZZB3Nv+fHe3/HVxG0kwyqRNumpTRkENtGtOseI1gi
w78nm7XT01IZMlo0aXGXlsmwdPO470Ni+ffLUL59tTmLzpLh/cX9T2pogwwd
z/s8GB0nuECGWQdtnuTSRhk6l6XXv6YrZQj62KmjezzvlaH+1RTfXNosw/VU
/baXtEiOlYM/tHBL4P1yFLepzVlF28ox9/GusSbaSY5zD13bOCXyfjnWHzza
fC4tkWPvMmenS7RUjlPvcud1TOL9crSW3GkQRevlWLPs9tEDdJYc1ROjd3yl
DXLkhk+6OF7G++U4fXZ4/9W0UY5NqKmopivleCX/UGAn5/1yFLb9fCOaNsvh
dU4/dj8tUqCXd9NPtbRYAWe3Fv+6Kni/As0O13mm004K3Mzr/vwUDQV+dzRX
Wyl5vwJffHbZjqelCizovfLkElr24/ONdw6ep/UKvPYtadxUxfsVMA2PPzqB
NijwuWvd+SV0gQJJxfIR52ijAjnl5tbWat6vwCKNxmcMbVIgopeoNp02K7DU
YZ5lES1S4tT2J2n1tFiJJrvEEc7JvF8JRZLpeBztpMSmit6Lt9NQosO1otP3
aYkSyw/OULXX8H4lSjef3ehDy5R4m3N4ZAatV+LYKFPASTpLiaXHat7U0gYl
JKc1Vg5a3q/ExZkOuVLaqMSvFrl71tGVSmy75jO2nDYpsSDjQdA32qzEja9l
X511vF+Fbccze0TQYhWqF+Zdy6FtVSj9MK95Oe2kgs2sdZWfaaiQ2t3drl8K
71ehovj99yBaqsI8e1HiSlqmgsu4U/Enab0KMzwzv76is1T43X2fXZdU3q/C
+hz57Ul0gQp7qn/unUIbVbjj8nfLXXSlCr88brXiOm1S/fh/syrPMo33/7h3
wOzpjrRIjbqSB9tn0mI1os6lr86gbdWYuk/a6S/aSY1ql53u92mosbMosWWT
ObxfjV9TL+sG0lI1LKbezQiiZWr4dd7lmkHr1Ri9ZmRWAZ2lxtyknZnVtEGN
dj7PHS3Teb8a+b9YpfahjWq4XqxP9KUr1ehQdKx5Cm1S43Kwx7SttFkNz7KV
E8poUTLeb1rw4jUtTsbNTjaubefy/mSsuNV5yHDaKRnbt69+JKWRjH1+vqMW
05Jk9Hg3wjuflibjqWP/FpW0LBkjIiz0tbQ+GW/TM3d00PP+ZBgKt80bQRuS
Mfpx29ZSuiAZawccDFhAG398/uyJ/jvoymQssN/S7DxtSsZDV53uJW1ORvXT
jYYW83i/BgmK8nmOtFiD6NjiLlNoWw1qLVzUCtpJA8vDr5b8SkODyb45gYW0
RIO3o188q6KlGqxdmj2ojpZpkJrhjbbzeb8GOseiZoPpLA0+X87M8aMNGnzz
in2ipAs0uO/477s1tFGDoJ0Pz/xJV2oQcfXU9ErapEHnRW77X9NmDWb9/K68
+QLer4V8alp+H1qsxYYByVM8aVsttDM1JyJoJy32KNqb59PQ4lvzFzVbaIkW
rsXz84/TUi2WnlEOrqZlWrRc5bmkjtZrMc1iTV6rhbxfC9Og28v60QYt+rvn
D59AF2jx3HX54XDaqEWWk9X3uXSlFvXdcltvoE1arIgsf3eQNmtxRvI/QyUt
0mHNxVadXtJiHXK69gi3XsT7dXC6fSW1K+2kw/8GZIe60tBhieXLDlNpiQ71
Fzy3xNNSHY4E9qxfRMt0OHblQ5cttF6HvXmD2h+hs3S4emvio0raoIPKtWBu
DV2gw4b2V95YLOb9OnSv6jKwI12pg9hoOXEAbdLBKuPVoIm0WYe+sR61IbQo
Be9ma5foaHEKFv3x8m0WbZuC5H6NnHfRTik4onHyKKaRgkazy51v0JIU1J8f
XvsPLU1B1NzHKxpk8P4UtPfv8f1nWv+jlxTs6URnpSB3jTnGgzakINvBJXwW
XZCCPl6rhypoYwq+WQc8yaArU3Ai9nnsJtqUgi12v104QJtT8NfDkoZltCgV
/XxPd75Hi1PxUFXT4h1tm4qBDzNvN1zC+1MR4NZgQScaqfBJNzRyoiWpqL53
MNqdlv74/dp1OwJoWSpWf1t9Kp7Wp6LFwo9H9XRWKrJOdcxaSxtSEbPU3X0X
XZCKnmElN4poYyrEdk/HX6YrUzF3XV3OI9qUiu4uI8/V/fD/AR3ik6A=
          
          "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0., 446.}, {0, 374456.19064098585`}}, DisplayFunction -> 
      Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {"T[K]", "C [J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]"}, 
      AxesOrigin -> {0, 0}, 
      BaseStyle -> {
       FontWeight -> "Bold", FontSize -> 12, FontFamily -> "Helvetica"}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, Method -> {}, PlotLabel -> 
      "BTO", PlotRange -> {{0., 446.}, {0, 374456.19064098585`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]]}, {
       "\!\(\*SubscriptBox[\(C\), \(V\)]\) + \!\(\*SubsuperscriptBox[\(\
\[CapitalDelta]C\), \(V\), \(XS\)]\)", "\!\(\*SubscriptBox[\(C\), \(V\)]\)"}, 
       LegendMarkers -> {{False, Automatic}, {False, Automatic}}, 
       Joined -> {True, True}, LabelStyle -> {}, LegendLayout -> "Column"]], {
     
      Scaled[{0.08, 0.99}], {0.08, 0.99}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.64850797670993*^9, 3.655663761660946*^9, 
  3.655829371050817*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw1j3k41PsbhidLFIVKKSoqHakcIinKQ0gIKbIbY99nR1TTvtGmhZQk2hei
RXVKK2mTUkLSvkikUoh+53edzzv/zHXPO8/3/t56vASPMDkOh7O4D4fz/+//
Pm3WcSPf2b+2ugv2AzZ4CWruqT5mrIya7QG4Gl3HWB0KlX7XJsiaGA+B0rPz
ph+fvmasBd7P1pfHTN8z1sH7TPeH2umfGOvC7oZZoMmLFsZjILuV4VS7rY3x
ODzJqXqdYtTOeDxs26/W/iz7xtgAMbwBqgpzfzA2hNv3bKvsmx2MJ6HyzFXF
zqm/GBthysfPz3ZkdTI2Rv2SyVP12roYm2C02OPQ4um/GU9ByAYj3lFJD2NT
2OZkNTzL72VshnuaF1pdyv8wnor+qcdrTsRzbP5jcygXzlt69hvxNFQYrNHs
FPZhbIFyU8stRZ+Jp8NAa0DJyGA5xjOgtbnqXUoVsSVu63fY9LeUZ2yFj+GZ
jYr7iWdiv3O921E5BcazkDLsma0Jl9gauBJvVV1KDJT5X4i/pqb4H8uAtLSe
XDMeY44NAixK9X2K6G6Dr/yi+oAeuttin+ytebxDX3a3hd3JfLfiNMac2bjF
qfyxoIrusyGX2XhLrKHE7naI3mXqYOHOWGaHXs8vPy6n0d0ek83y+X+V090e
ZhXvVmz6Q3cHnHVOtVMzV2Z3B7jYfzW+Hs2YMwd5V+Ksr+2l+xwsCd7dOeYB
3R0xo/+yrV29dHfEooOhHf6T+7H7XEj18j74+zKWzcXvbidV1TV0d0K0uLVr
cSHdnbDt3oyFpc/o7gxr+733avr0Z3dn7NutatNowJjjgu5+lRdeuNLdBesv
+ax5J6L7PCga58zo3UX3eai5P+WmyUW6uyIyV1my8TndXRFe56yg+YfubgjO
Ltn/dLQKu7thv7FJZ701Y447NO9+tTQMYgx32B1UM6hcQv93h9rHdLXr2YzL
3GHQv7tRu5T28yHcvH9sfQ3t5yNghp2GUjvt50M1Y8PaggGqbD8f+cvlh10y
YMzxgBL/haL7bMbwwJmzPgvDAxjLPCCufFAmn0h7D/wVfvDOpC20X4CKgQ0X
3h6m/QIorYrfO+Uq7Rcgz22l67BntF+AEF/vpF1ttF+IvycP23VWaQDbL0Tl
ioDuxFGMZf/y03N3G80Yly3E7ZufVb44MeZ4gn9Ia8dhLu09sePjBT0NKe09
ERua7mS4kfaeqO71Xd+xj/ZeeDAze0ZSCe29oP2u/76iCtp7QeGAwfP8Btp7
4W7BermFbbRfBPVXVopX5Qey/SK86/p8o2UoY9kiWMqNUm2YwLhsETInmG9N
t2LM8cY4m7U/5d1o743nmU5VCKa9N1T6rMi2F9HeG84zXlYMXk17Hzh3bTx/
fCftfSBv+OWixmHa+8DROWioXSntfbD04Nseu0ra+0Jf4V62Zj3tfWGqM2/A
uWba+2LT0cGhhr9p74ukCXUH+apqbO+Hbb9ePdygwxh+uLkq6WnyJMYyPzzP
j8qdZcW4zA8WX2JV65xp74+V87LbXfxo748RX8v1MqNp748+E15zLyXT3h+C
fG7ChXW0D0ByQ4pixi7aB2CmTsZjh4O0D4C1fvLaJyW0D4DF5pJrttdpH4gp
yx6OS3tI+0Co78pyKH5B+0DMfOl38XwL7QPRpT1OY2837YPQlJUSWaigzvZB
OPVmpfUKFcayINycKJpnN4hxWRAu6Tc96NBizOFCYcksud2jGetysaa9e6TR
eHoeFwWGO3yLJzHmcnGVV9AywZSez8VOpT/9t01nnMvF413/vGm2Jh8Xb/Z4
HJvmwLiJi75eOekSF/IH47vDr/MFHuQPRnsfB58Kb/IHIzVVLut5IPmD0XXI
ff/bUPIH40l+/91N0eQPhsqp8iP3+eQPxqaqth+npOQPxgbLW3mrUsnPg8A+
7pHLCvLz0KHUe0R5Hfl5GKu4ds75dPLzsFhF+65fBvl5UN/23OtbJvl5WB+u
2HdZDvl5UD7xqaP3APl5KOxRcRAdIX8IxvwcrtZwkvwhqDzRHTu9hPwhqH7y
KHljKflD4GQ2yK36MvlDwLGIUxx4g/wheNHytWTWbfKH4FSaoiT0PvlD8GZD
gv+yR+QPxRc/3+Wba8kfik/jAjq3Pyd/KEKzlj3b/Ir8oejrb20ue0/+UPi4
7hgb/pn8oXDY+qvE5iv5QxHjGd4zqIP8obBdHqJW10X+MBy6JN+z8w/5w3Cv
6OPTuQoazB8GTpprUbsyY24Yxv2juHvrAMayMFjpLMkbP4hxbhgcRDfrioYy
LguDVmqGh6k246YwNLRYDz82mjEnHAGlj2cOH8dYNxy2BX0eLDEgfzgcu4zq
ayeRPxxXXMV8QxPyh2OWLHePcCr5w/GldmZc0XTyh6Msf0vru5nkD4fei73G
g23JH4FP1RNmmjuQPwLqX6/ouTuRPwKD3p38xHUlfwTitwzMj/QgfwRcK6/7
RHiRPwKq8kuHBfiS/997+6UPcwPJH4Gt0oe1k3nkj8QGz6Z25XDyRyK1+bVN
fRT5I5HUdKwqP478kfCe/PZImID8/+7DBteOlJA/EoO37g67l0T+SBRbXvIX
p5I/Erdn7S4fJCN/FI7WWRQeXkn+KJxes1zXfC35owBv2zEXN5A/CodNTa5M
20T+KCgWf+Ic30r+KHCk3W3DdpA/Cg3eTzJTMskfhfurm/o8zSZ/NBy0YqYa
7iN/NAK9LlhJ8sgfjZqf8nrnC8gfjeo0YXP7YfJHI+DJ2AL94+SPxrUlJovc
T5E/GruPFvQXnSZ/NJrPpleknyF/DIaqNWflnid/DBpvXVl77CL5Y3DSUjX7
5GXyx+DJzKqGI1fJH4NBPapee2+QPwbrs8vV1peTPwb1KsqD4yrJH4PAD42R
c++RPxbSdbwRo6rIH4uHZiXGzdXkj0XD/t6Swhryx2J5cHJhfC35Y/G7J2aS
fj35Y1H3Y+KUx8/JH4tFOnp3UprIH4uFp29xdF6TPw5lpccbSt6SPw47h6ZE
OnwgfxzMT3w9UfWJ/HEYWfLp7IIW8schtDwg/UEr+eOwvZVraddO/jic3T/x
TtF38sdB+ZnmHK2f5I9H5r6c0sRO8sfDuCRmclU3+eNh1O50Qq+X/PHoLp9m
F8sZxPzxaB3n23NKjnFuPC6vU3nzWYFxWTwW1dfKj1Vi3BSP9D8rIz36MeYk
YIuD8qgUFca6CTjassd47wDGSMBt3TPHz6sx5iYgit9v3z0N8idAsjhjSMNg
8idgzIjMEW80yZ8Ao/cFl98OI38C7p7ZPfDlcPLzsVN2SOuJNmN1PjxqPJpv
jKT34WNos2zHidGMjfmobBKM36JH78eHctHtE7FjGbvzUZCx03K2Pr0vH29W
uDcN/osxnw+XiW+ONxrQ+/MR9qvo9AFDxlv4kMvOkg+ZRD18tBR2F+kYMS7k
w9XxalXV39THx6a9PNEyE8ZVfORNbjlhYEq9fNy5obzjrhnjNj6W5srNijGn
fgGmba++rGBB/QKIe8cYZU2nfgHOD/Q9YGBJ/QIkLThgXmxF/QLM29TBmT6L
+gVYMVFf54I19QvAudyUZ25D/QLYT6ooPGlL/QIku0h4Y+yoXwDHuatqttpT
vwBpG/INehyoX4DV2gdSQh2pXwDXwtTW8rnUL8A2m5iDfzlTvwBdr75dX+lC
/QKs8e+ObZhH/UKsGlZbbuJG/UJk6vJ+r3SnfiG8FqmYPZpP/UJEjmjPGr2A
+oUYlNbtG7WQ+oW4zPtYUOhJ/UIILcXHfnhRvxA6LZE5Ft7UL4TSt1vFyT7U
L8RjXv2YUl/qFyLeM0r/px/1C5HkUf7TNID6hUjzVnmWEEj9Qux0NFE5FkT9
QvhmODx6y6V+IU6e3pOsy6N+ESIlP+f6hVC/CJXTKzJ2hlK/CDUbQ49Wh1G/
CDpP5rxVi6B+EWJXe+W6RlK/CFOm6lttjqJ+EaKdnEZVR1O/CAdXFxUNi6V+
Eew1OsO5cdQvgvHu6pLj8dQvwufVAq2eBOoXgfOKM9RDQP0iOGXpTD8upH4R
Wt8Fa6qKqV+EpZvk5ggl1C9CkWm46IWU+sUYPvbl3IVJ1C+GYYx41cNk6hej
yzPvw6IU6hcjM9zP8UMq9YsReLRzxcql1C/GzINBawxl1C9GzrkJ7o3LqV8M
rknf1n0rqV+MqXZ/r+Kvpn4xdIv62c9fS/1ifFXrSJ29nvrFqBrlvtlxI/WL
cV/uWGdwOvWLkZ3l7rV1M/WLkVCsEFS7lfrFCJKNa7PYTv0SmB8ep3pmJ/VL
oJC35IVrFvVLEHpmxE3lPdQvQWDfAOe3OdQvQcnl8unv91O/BOErJLs0Cqhf
guoe8emIw9QvQdXIaQYtx6hfAjt189aCU9QvwfgJ2rydxdQvQVdppsv1c9Qv
ge66gC6TS9QvgctiseOHMuqXQHVOXunnm9QvQb6Z2yaHO9Qvwdm95U09VdQv
RaP71VvaT6lfil65oOSjz6lfCt0yy9Vn3lC/FAZLohScPlO/FGqzfr+Rfqd+
Kb5LQ6zn9VC/FDljfpc19R3M+qUYu+qAsaMGY5kUdqN1NXN0GG+RYlTekHV9
JjDOlaKjzspulznjQil4mkfkN9ozLpOi+9xSZw0vxlVSeHpoVUVFMm6SImlq
U+GrVMZtUpTMedDckMGYk4j4sZP3Vp9grJ4I5wVLfgXdYaybCGUVN5l7C2Pj
RLRVVGoWDxnC+hPxReK3rNOWsXsirhgVqU5azJibCIUj1Wtt/2HMT4StaKF5
ubom60/EccvgaSNSGW9JxEAbzqgZqkNZfyJ6Q6Zdb6obavM/2Htr9w==
         "]],
        FontSize->12]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Large], 
       StyleBox[LineBox[CompressedData["
1:eJw113lYzfn/xvFTyhaKsY1lFGZEaBHKelNSlI5KCuW073XWzjmEI0uWEEM1
1sNkGQkz32xllCUSErJkPZaRGBxa7Pz8rvnc/dP16H3d53lef2YTnuIXZSoS
ifQmItH///7vxzg2qaz3NYecsxD+gBVN/nsq91YJbonrefdiOs25IdgKrQqX
TFQuvCu4I1r0d1+yeepDwV0RHjG27ET0E8E9UHu2X22FtlawNdw7yjyOLXku
uDdE78688ln6UnBf3BgclFs/0ij4F4zPzX58OP+NYFsk7JhUbNu+XvAA+Fb+
c88toUHwQFRMG//U7Vij4MFwGiv22P6xSbAD7kzYqbWwfy/YEb0+r7IMD/wg
2AkRVrNdC6QfBQ/B+PjEpM7zPwl2xqUv0xc/nP9Z8FB0eh65KlrxRfAwWO5z
VLWZ9VXwcKx59ne6u+s3wS449yLP97S5aNx/doXtuDMDdsfRI9D1kpdLZjk9
Eufvhaw92NtE8CjUDbsyZaqGHo3tofOa7T1Pj8HcXQ6zGjqbCh4LtEu7FyOh
gdIBDsdcdwnWAW1Ojj68+RnfxyFEdPuXk/2aCe/j8Gadoq46QrBoPLYNLJY1
28L38XBPy7+pusZ3N5z9t+K5Xwsz4d0NplN8PUtcBIvcEX/AXnEvhu/umP/P
qJeX1vN9AgYN/VN8oITvE1AYVxa39RnfPXD4h8e+hy3NhXcPeB9znW81VLBo
Inb03PDiTBDfJ2LeqZE2z+fw3RMjvt4Qb9jEd0/c3O4Td7uI715IrV4z4OIt
vnshraPYJa2R75MQ/+yw3Ser5sL7JKyLb54XZCdYNBlj4yYG/u7O98nYVmXa
o24W373xaZ6lyXAl372xvHm6+LcVfPeB+Z+V+u56vvvg+uefHpQX8n0KYiXG
4Pxyvk/B0zGfKy7e4bsvwvovlgx7xXdf2Jh8KTN+47sYnUp7DTRr3+I/Q4wz
S5aJNTaCdWJY7jy+OMBRcKkYtncuFW6DYNFUyPMXJUl8uZ+KEPtejzaHcD8V
beacfDMjgfupyFujHKjXcO+HFlYPbsqWcO+HQ9o/66vXcu8HZdnx0ZVbuPfD
7tXXh4b/wb0/ytvF22wo5N4fGTuftEso4d4fO2yrb9We594fEaUGW8tq7gNg
fyF7zpN73Adg0uP3PRNquQ9AharRdZeR+wB45R+ozP3A/TRIY3YcmWDaUthP
w/XzOwoOtBasm4Z/x571rOkguHQa/LrampZ1EywKxGWT9UNVvbkPRPfUTn3+
7c99IMwclEY7R+4DcdFp/d5hLtxPh9W6Mo92Y7mfjl90H38vnMD9dBSPalxp
5839dOSuDy5U+nEfhL61hSVrg7gPQs+J6jGLQ7kPwso3Nw74RHL/3dVH0l/H
cR+MyVcTOiekcB8MN/+M4pNK7oNRvnhFYYOW+2CMydwyzHwB9zPwc/ag+IZF
3M/AkH+WJ5xexv0MrL6SNlmxivsZ0Fy7Ymm+jvuZWPfs7v+02dzPhHlKg+3V
jdzPxL1DLwMtt3E/E5r6jB5Ov3M/C4uyb/mO3M39LMxQHzhhl8/9LCz80DTY
7AD3s/BG3X522V/ch0B716659DD3IZh3d3W1WRH3ISgZalQs/pv7ELh0Ppbx
upT7UDi5+hZ4nOE+FFYrAtJWnOM+FH/bPFtaXMF9KEY4Pw6+fYn72Sj51Wpe
bRX3s3F/SKTi8TXuZ2NFrV1x5Q3uZ0P9m1flHzXcS9BCF9hbdVewtQQXJtTY
Oj7g50kwySfJ9/5DwRIJTjXUfUt7ws+XYOCaTH3bWsF6Cfrldl+fVceeBF6r
Wo5o/q9ggwQ+Nze8Sn7FfhieudS3vmBkPwx99sz+p1s9+2H40MLtSmgj+2FQ
ePv0ynnHfhgKalb3PPOB/TAE+mR3efqJ/TBs6Zoe+OUL+2GYltfLprWoldAP
x6Pnn4vbmAq2Dkd+2oI4czPBCIfH5fdxDeaCJeFQ3DzyqaaFYF04esXazDzc
SrA+HH4tik8ttxBcGo61b8clBLQVbAjH9mZFKztbsh8B9w1pwVVW7Edg/SnP
lukd2I/Ak5FTKuw6sh8B58nuVZc6sR8B0ZMkr9gu7Edg66M/Ij51ZT8Codm6
yRnd2I/AH5MdB7bpwX4k7sw8bL+iJ/uRqLa5Nd+kF/uRaFkyZJzcmv1IJBgn
bLlrw34k/lqmPIo+7EfCIqvzka192Y9EtkJ3vOln9iPxOKXVC89+7EehMqpz
5AZb9qOwcZu1593+7Eeh1HDscE879qPw7NuWyuCB7EdBk1ZQkDWI/Sj4RHyW
nhrMfhSkybedX9uzH4XcjZc6dnFkPxojlu61G+HEfjSiapf+GjSE/WisGXo5
Su7MfjRCG9yKM4ayH425p7/k5w5jPxrdV2t9dw5nPxql1zccL3BhPxrpAze3
+suV/RgEPHfz/msE+zHQexf9tn8k+zF4bLGl+e5R7Mdgc6PF7k2j2f/ui/rV
mWPYj0GOZm6Vdiz7MbgrHrsgAuzHYEd2jwKvcezHoqOqKmHgePZjoTm8+6KF
G/ux+HPwYkMtLYmF5QXDkVJ39mPR6V5lePYE9mMR/Vr0JtaD/Vg8PXRW5jKR
/VhcvfpDg5kn+3Hwd1y4tJK2jsOZIt/hG7zYj4MuOrFj8CT242A5INGu22T2
49C6Mnv5LVofB+tXT0eu92Y/DsPrzH19fNiPwyeroMvNprAfj0z7+vIjtHU8
NrXfNzHOl/14xJ+0nN5VzH48InYlmJbRungUdSsPSJnKfjzcUR/UxY/9eAxZ
qv7xb9oQjxur9uol/uwnoGDajvcmAewnoHvwaLvtNBKwacLP48dMYz8BL59X
eNTQugT8LEoaLw9kPwHy5E5jWk1nPwGBzTeP30obEjBvzd4gxyD2E/Hi6NFl
p2jrRJje73BnajD7iTjSdH36A1qSiPDd9c0TZrCfiPeNzsYGWp+I6vXDu8+b
yX4iXuVI1zSbxX4itJcHBSyjRUlY2DtHahHCfhK8nQteZNJIwqXKKRfbhLKf
hI09nX5cSeuSUJ7++laL2ewnYaL6Q/tFdGkSMvfmVXymDd97o21aqSTsJ8P+
Ufq1F7R1MowXjtuHhbGfjM2ReX2u05JkZHu/KZwYzn4yQg+NqTtK65OxKczi
rG0E+8nY/61InEMbklHUP3u1WST7KdBHVSyW0tYpqHZOdrlDIwV+vnP2u0ex
n4J0TfWLfbQuBc/NPBp/iGY/BU8+LLqspUtTEBI0cMF92pACl1NnWo6PYV+K
QStOSPNoKykWf1UUm8fy+3x/H2z/Mop2kEKZbN26jIYUVtZRnfvECRZL8fGE
RWcdLZEio22rtndpqRTLt074Niye31+Kip1rjVl0lhT1Fw88qaP1UnQ77/tg
XILgg1LMOmT5JJculaJH+fymV3SVFCHvu3dzT+S9UjS9nOqXSxuluD5Xt+MF
LZJh9dB3bcck8X4ZSjo25KyhrWVY8HiPm4F2kOHcQ9eODsm8X4aNh461WUCL
ZShY4ehwiZbIcPJt7sJuKbxfhg7iO81iaJ0M61bcPvYXnSVDzaTYXV9ovQy5
kZMvTpTyfhlOnR05eC1dKsMW1FXW0FUyvJS9O2gj4/0yFHb6dCOWNsrgfU7n
doAWydHPp/WHBtpKDscxbT+6ynm/HBZHGj3n0w5y3Mzr8+wkDTl+tzfWmCl4
vxyfffdYT6Qlcizqv/rEMlr6/fNL7xw6T+vkeOV3pmVrJe+XwzAy8ZgXrZfj
U6/G88vog3KklMhGnaNL5cipMHYwV/F+OZao1b7jaYMcUf1EDfNpoxzL7Raa
FtMiBU7ufJLWRFsp0GqPVZRjKu9XQJ5iOJ5AOyiwpbL/0p00FOh6rfjUfVqs
wMpDM5Rd1LxfgbKtZzf70lIF3uQcGZ1B6xQoGmsIOkFnKbC8qO51A61XQHxK
bWan4f0KXJxplyuhSxX41SR33wa6SoEd13zdKmiDAosyHoR8pY0K3PhS/sVR
y/uV2HE8s28UbaVEzeK8azm0tRJl7xa2qaAdlLCctaHqEw0l5vZxtxk0h/cr
UVlS/y2Eliix0FaUvJqWKuEy4WTiCVqnxAzPzC8v6Swlfnffb9NzLu9XYmOO
7PZk+qAS+2p+7D+HLlXijss/7fbQVUr88rj9quu0Qfn9/83qPNM03v/9XqfZ
0+1pkQqNZx7snElbqRBzbv7aDNpaBf/9ku7/ox1UqHHZ7X6fhgq7i5PbtZrH
+1X4de5l7RBaooKJ/92MEFqqQkCPPa4ZtE6FcetGZx2ks1RYkLI7s4bWq9DZ
95m96Xzer0L+L2ZzB9ClKrhebEr2o6tU6Fpc1GYObVDhcqjHtO20UQXP8tVe
5bQoFfVbFj1/RVul4mZ3S9dOC3h/Klbd6jFsJO2Qip071z6S0EjF/gC/sUtp
cSr6vh3lk09LUvHUfnDbKlqailFRJroGWpeKN/Mzd3XV8f5U6At3LBxF61Mx
7nGnDhL6YCrWOx0KWkSXfv/82ZMCd9FVqVhku83iPG1IxUNXrfYFbUxFzdPN
+rYLeb8aSfKKhfa0lRqx8SU9p9LWajSYuKjktIMapkdeLvuVhhpT/HKCC2mx
Gm/GPa+tpiVqrF+e7dxIS9WYm+GDTum8Xw2tfbHFUDpLjU+XM3MCaL0aX73j
nyjog2rct//4dh1dqkbI7oen/6Sr1Ii6enJ6FW1Qo8eSMQde0UY1Zv34tqLN
It6vgcw/LX8AbaXBJqfUqZ60tQaameq/o2gHDfbJuxjTaWjwtc3zum20WAPX
kvT847REg+WnFUNraKkG7dZ4LmukdRpMM1mX134x79fA4Hx7xSBar8Fg9/yR
XvRBDZ65rjwSSZdqkOVg9m0BXaVBU+/cDptogwaroiveHqKNGpwW/6SvokVa
rLvYvvsL2kqLnF59I82X8H4tHG5fmduLdtDiJ6fscFcaWiwzfdHVnxZr0XTB
c1siLdHiaPDPTUtoqRZFV9713EbrtCjIc+5ylM7S4uqtSY+qaL0WSteDC+ro
g1ps6nLltclS3q9Fn+qeQ7rRVVpYlZpOcqINWphlvHSeRBu1GBjv0RBGi+bg
7WzNMu13/x/TPwtB
         "]],
        FontSize->12]}}, {}}, InsetBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\) + \
\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]C\\), \\(V\\), \\(XS\\)]\\)\"",
       "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\)\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "12"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "12"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.08, 0.99}], ImageScaled[{0.08, 0.99}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T[K]\"", TraditionalForm], 
     FormBox[
     "\"C [J/\\!\\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\)K]\"", 
      TraditionalForm]},
   AxesOrigin->{0, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 12},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   Method->{},
   PlotLabel->FormBox["\"BTO\"", TraditionalForm],
   PlotRange->{{0., 416.}, {0, 374456.19064098585`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 12, 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw1j3k41PsbhidLFIVKKSoqHakcIinKQ0gIKbIbY99nR1TTvtGmhZQk2hei
RXVKK2mTUkLSvkikUoh+53edzzv/zHXPO8/3/t56vASPMDkOh7O4D4fz/+//
Pm3WcSPf2b+2ugv2AzZ4CWruqT5mrIya7QG4Gl3HWB0KlX7XJsiaGA+B0rPz
ph+fvmasBd7P1pfHTN8z1sH7TPeH2umfGOvC7oZZoMmLFsZjILuV4VS7rY3x
ODzJqXqdYtTOeDxs26/W/iz7xtgAMbwBqgpzfzA2hNv3bKvsmx2MJ6HyzFXF
zqm/GBthysfPz3ZkdTI2Rv2SyVP12roYm2C02OPQ4um/GU9ByAYj3lFJD2NT
2OZkNTzL72VshnuaF1pdyv8wnor+qcdrTsRzbP5jcygXzlt69hvxNFQYrNHs
FPZhbIFyU8stRZ+Jp8NAa0DJyGA5xjOgtbnqXUoVsSVu63fY9LeUZ2yFj+GZ
jYr7iWdiv3O921E5BcazkDLsma0Jl9gauBJvVV1KDJT5X4i/pqb4H8uAtLSe
XDMeY44NAixK9X2K6G6Dr/yi+oAeuttin+ytebxDX3a3hd3JfLfiNMac2bjF
qfyxoIrusyGX2XhLrKHE7naI3mXqYOHOWGaHXs8vPy6n0d0ek83y+X+V090e
ZhXvVmz6Q3cHnHVOtVMzV2Z3B7jYfzW+Hs2YMwd5V+Ksr+2l+xwsCd7dOeYB
3R0xo/+yrV29dHfEooOhHf6T+7H7XEj18j74+zKWzcXvbidV1TV0d0K0uLVr
cSHdnbDt3oyFpc/o7gxr+733avr0Z3dn7NutatNowJjjgu5+lRdeuNLdBesv
+ax5J6L7PCga58zo3UX3eai5P+WmyUW6uyIyV1my8TndXRFe56yg+YfubgjO
Ltn/dLQKu7thv7FJZ701Y447NO9+tTQMYgx32B1UM6hcQv93h9rHdLXr2YzL
3GHQv7tRu5T28yHcvH9sfQ3t5yNghp2GUjvt50M1Y8PaggGqbD8f+cvlh10y
YMzxgBL/haL7bMbwwJmzPgvDAxjLPCCufFAmn0h7D/wVfvDOpC20X4CKgQ0X
3h6m/QIorYrfO+Uq7Rcgz22l67BntF+AEF/vpF1ttF+IvycP23VWaQDbL0Tl
ioDuxFGMZf/y03N3G80Yly3E7ZufVb44MeZ4gn9Ia8dhLu09sePjBT0NKe09
ERua7mS4kfaeqO71Xd+xj/ZeeDAze0ZSCe29oP2u/76iCtp7QeGAwfP8Btp7
4W7BermFbbRfBPVXVopX5Qey/SK86/p8o2UoY9kiWMqNUm2YwLhsETInmG9N
t2LM8cY4m7U/5d1o743nmU5VCKa9N1T6rMi2F9HeG84zXlYMXk17Hzh3bTx/
fCftfSBv+OWixmHa+8DROWioXSntfbD04Nseu0ra+0Jf4V62Zj3tfWGqM2/A
uWba+2LT0cGhhr9p74ukCXUH+apqbO+Hbb9ePdygwxh+uLkq6WnyJMYyPzzP
j8qdZcW4zA8WX2JV65xp74+V87LbXfxo748RX8v1MqNp748+E15zLyXT3h+C
fG7ChXW0D0ByQ4pixi7aB2CmTsZjh4O0D4C1fvLaJyW0D4DF5pJrttdpH4gp
yx6OS3tI+0Co78pyKH5B+0DMfOl38XwL7QPRpT1OY2837YPQlJUSWaigzvZB
OPVmpfUKFcayINycKJpnN4hxWRAu6Tc96NBizOFCYcksud2jGetysaa9e6TR
eHoeFwWGO3yLJzHmcnGVV9AywZSez8VOpT/9t01nnMvF413/vGm2Jh8Xb/Z4
HJvmwLiJi75eOekSF/IH47vDr/MFHuQPRnsfB58Kb/IHIzVVLut5IPmD0XXI
ff/bUPIH40l+/91N0eQPhsqp8iP3+eQPxqaqth+npOQPxgbLW3mrUsnPg8A+
7pHLCvLz0KHUe0R5Hfl5GKu4ds75dPLzsFhF+65fBvl5UN/23OtbJvl5WB+u
2HdZDvl5UD7xqaP3APl5KOxRcRAdIX8IxvwcrtZwkvwhqDzRHTu9hPwhqH7y
KHljKflD4GQ2yK36MvlDwLGIUxx4g/wheNHytWTWbfKH4FSaoiT0PvlD8GZD
gv+yR+QPxRc/3+Wba8kfik/jAjq3Pyd/KEKzlj3b/Ir8oejrb20ue0/+UPi4
7hgb/pn8oXDY+qvE5iv5QxHjGd4zqIP8obBdHqJW10X+MBy6JN+z8w/5w3Cv
6OPTuQoazB8GTpprUbsyY24Yxv2juHvrAMayMFjpLMkbP4hxbhgcRDfrioYy
LguDVmqGh6k246YwNLRYDz82mjEnHAGlj2cOH8dYNxy2BX0eLDEgfzgcu4zq
ayeRPxxXXMV8QxPyh2OWLHePcCr5w/GldmZc0XTyh6Msf0vru5nkD4fei73G
g23JH4FP1RNmmjuQPwLqX6/ouTuRPwKD3p38xHUlfwTitwzMj/QgfwRcK6/7
RHiRPwKq8kuHBfiS/997+6UPcwPJH4Gt0oe1k3nkj8QGz6Z25XDyRyK1+bVN
fRT5I5HUdKwqP478kfCe/PZImID8/+7DBteOlJA/EoO37g67l0T+SBRbXvIX
p5I/Erdn7S4fJCN/FI7WWRQeXkn+KJxes1zXfC35owBv2zEXN5A/CodNTa5M
20T+KCgWf+Ic30r+KHCk3W3DdpA/Cg3eTzJTMskfhfurm/o8zSZ/NBy0YqYa
7iN/NAK9LlhJ8sgfjZqf8nrnC8gfjeo0YXP7YfJHI+DJ2AL94+SPxrUlJovc
T5E/GruPFvQXnSZ/NJrPpleknyF/DIaqNWflnid/DBpvXVl77CL5Y3DSUjX7
5GXyx+DJzKqGI1fJH4NBPapee2+QPwbrs8vV1peTPwb1KsqD4yrJH4PAD42R
c++RPxbSdbwRo6rIH4uHZiXGzdXkj0XD/t6Swhryx2J5cHJhfC35Y/G7J2aS
fj35Y1H3Y+KUx8/JH4tFOnp3UprIH4uFp29xdF6TPw5lpccbSt6SPw47h6ZE
OnwgfxzMT3w9UfWJ/HEYWfLp7IIW8schtDwg/UEr+eOwvZVraddO/jic3T/x
TtF38sdB+ZnmHK2f5I9H5r6c0sRO8sfDuCRmclU3+eNh1O50Qq+X/PHoLp9m
F8sZxPzxaB3n23NKjnFuPC6vU3nzWYFxWTwW1dfKj1Vi3BSP9D8rIz36MeYk
YIuD8qgUFca6CTjassd47wDGSMBt3TPHz6sx5iYgit9v3z0N8idAsjhjSMNg
8idgzIjMEW80yZ8Ao/cFl98OI38C7p7ZPfDlcPLzsVN2SOuJNmN1PjxqPJpv
jKT34WNos2zHidGMjfmobBKM36JH78eHctHtE7FjGbvzUZCx03K2Pr0vH29W
uDcN/osxnw+XiW+ONxrQ+/MR9qvo9AFDxlv4kMvOkg+ZRD18tBR2F+kYMS7k
w9XxalXV39THx6a9PNEyE8ZVfORNbjlhYEq9fNy5obzjrhnjNj6W5srNijGn
fgGmba++rGBB/QKIe8cYZU2nfgHOD/Q9YGBJ/QIkLThgXmxF/QLM29TBmT6L
+gVYMVFf54I19QvAudyUZ25D/QLYT6ooPGlL/QIku0h4Y+yoXwDHuatqttpT
vwBpG/INehyoX4DV2gdSQh2pXwDXwtTW8rnUL8A2m5iDfzlTvwBdr75dX+lC
/QKs8e+ObZhH/UKsGlZbbuJG/UJk6vJ+r3SnfiG8FqmYPZpP/UJEjmjPGr2A
+oUYlNbtG7WQ+oW4zPtYUOhJ/UIILcXHfnhRvxA6LZE5Ft7UL4TSt1vFyT7U
L8RjXv2YUl/qFyLeM0r/px/1C5HkUf7TNID6hUjzVnmWEEj9Qux0NFE5FkT9
QvhmODx6y6V+IU6e3pOsy6N+ESIlP+f6hVC/CJXTKzJ2hlK/CDUbQ49Wh1G/
CDpP5rxVi6B+EWJXe+W6RlK/CFOm6lttjqJ+EaKdnEZVR1O/CAdXFxUNi6V+
Eew1OsO5cdQvgvHu6pLj8dQvwufVAq2eBOoXgfOKM9RDQP0iOGXpTD8upH4R
Wt8Fa6qKqV+EpZvk5ggl1C9CkWm46IWU+sUYPvbl3IVJ1C+GYYx41cNk6hej
yzPvw6IU6hcjM9zP8UMq9YsReLRzxcql1C/GzINBawxl1C9GzrkJ7o3LqV8M
rknf1n0rqV+MqXZ/r+Kvpn4xdIv62c9fS/1ifFXrSJ29nvrFqBrlvtlxI/WL
cV/uWGdwOvWLkZ3l7rV1M/WLkVCsEFS7lfrFCJKNa7PYTv0SmB8ep3pmJ/VL
oJC35IVrFvVLEHpmxE3lPdQvQWDfAOe3OdQvQcnl8unv91O/BOErJLs0Cqhf
guoe8emIw9QvQdXIaQYtx6hfAjt189aCU9QvwfgJ2rydxdQvQVdppsv1c9Qv
ge66gC6TS9QvgctiseOHMuqXQHVOXunnm9QvQb6Z2yaHO9Qvwdm95U09VdQv
RaP71VvaT6lfil65oOSjz6lfCt0yy9Vn3lC/FAZLohScPlO/FGqzfr+Rfqd+
Kb5LQ6zn9VC/FDljfpc19R3M+qUYu+qAsaMGY5kUdqN1NXN0GG+RYlTekHV9
JjDOlaKjzspulznjQil4mkfkN9ozLpOi+9xSZw0vxlVSeHpoVUVFMm6SImlq
U+GrVMZtUpTMedDckMGYk4j4sZP3Vp9grJ4I5wVLfgXdYaybCGUVN5l7C2Pj
RLRVVGoWDxnC+hPxReK3rNOWsXsirhgVqU5azJibCIUj1Wtt/2HMT4StaKF5
ubom60/EccvgaSNSGW9JxEAbzqgZqkNZfyJ6Q6Zdb6obavM/2Htr9w==
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 12, 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw113lYzfn/xvFTyhaKsY1lFGZEaBHKelNSlI5KCuW073XWzjmEI0uWEEM1
1sNkGQkz32xllCUSErJkPZaRGBxa7Pz8rvnc/dP16H3d53lef2YTnuIXZSoS
ifQmItH///7vxzg2qaz3NYecsxD+gBVN/nsq91YJbonrefdiOs25IdgKrQqX
TFQuvCu4I1r0d1+yeepDwV0RHjG27ET0E8E9UHu2X22FtlawNdw7yjyOLXku
uDdE78688ln6UnBf3BgclFs/0ij4F4zPzX58OP+NYFsk7JhUbNu+XvAA+Fb+
c88toUHwQFRMG//U7Vij4MFwGiv22P6xSbAD7kzYqbWwfy/YEb0+r7IMD/wg
2AkRVrNdC6QfBQ/B+PjEpM7zPwl2xqUv0xc/nP9Z8FB0eh65KlrxRfAwWO5z
VLWZ9VXwcKx59ne6u+s3wS449yLP97S5aNx/doXtuDMDdsfRI9D1kpdLZjk9
Eufvhaw92NtE8CjUDbsyZaqGHo3tofOa7T1Pj8HcXQ6zGjqbCh4LtEu7FyOh
gdIBDsdcdwnWAW1Ojj68+RnfxyFEdPuXk/2aCe/j8Gadoq46QrBoPLYNLJY1
28L38XBPy7+pusZ3N5z9t+K5Xwsz4d0NplN8PUtcBIvcEX/AXnEvhu/umP/P
qJeX1vN9AgYN/VN8oITvE1AYVxa39RnfPXD4h8e+hy3NhXcPeB9znW81VLBo
Inb03PDiTBDfJ2LeqZE2z+fw3RMjvt4Qb9jEd0/c3O4Td7uI715IrV4z4OIt
vnshraPYJa2R75MQ/+yw3Ser5sL7JKyLb54XZCdYNBlj4yYG/u7O98nYVmXa
o24W373xaZ6lyXAl372xvHm6+LcVfPeB+Z+V+u56vvvg+uefHpQX8n0KYiXG
4Pxyvk/B0zGfKy7e4bsvwvovlgx7xXdf2Jh8KTN+47sYnUp7DTRr3+I/Q4wz
S5aJNTaCdWJY7jy+OMBRcKkYtncuFW6DYNFUyPMXJUl8uZ+KEPtejzaHcD8V
beacfDMjgfupyFujHKjXcO+HFlYPbsqWcO+HQ9o/66vXcu8HZdnx0ZVbuPfD
7tXXh4b/wb0/ytvF22wo5N4fGTuftEso4d4fO2yrb9We594fEaUGW8tq7gNg
fyF7zpN73Adg0uP3PRNquQ9AharRdZeR+wB45R+ozP3A/TRIY3YcmWDaUthP
w/XzOwoOtBasm4Z/x571rOkguHQa/LrampZ1EywKxGWT9UNVvbkPRPfUTn3+
7c99IMwclEY7R+4DcdFp/d5hLtxPh9W6Mo92Y7mfjl90H38vnMD9dBSPalxp
5839dOSuDy5U+nEfhL61hSVrg7gPQs+J6jGLQ7kPwso3Nw74RHL/3dVH0l/H
cR+MyVcTOiekcB8MN/+M4pNK7oNRvnhFYYOW+2CMydwyzHwB9zPwc/ag+IZF
3M/AkH+WJ5xexv0MrL6SNlmxivsZ0Fy7Ymm+jvuZWPfs7v+02dzPhHlKg+3V
jdzPxL1DLwMtt3E/E5r6jB5Ov3M/C4uyb/mO3M39LMxQHzhhl8/9LCz80DTY
7AD3s/BG3X522V/ch0B716659DD3IZh3d3W1WRH3ISgZalQs/pv7ELh0Ppbx
upT7UDi5+hZ4nOE+FFYrAtJWnOM+FH/bPFtaXMF9KEY4Pw6+fYn72Sj51Wpe
bRX3s3F/SKTi8TXuZ2NFrV1x5Q3uZ0P9m1flHzXcS9BCF9hbdVewtQQXJtTY
Oj7g50kwySfJ9/5DwRIJTjXUfUt7ws+XYOCaTH3bWsF6Cfrldl+fVceeBF6r
Wo5o/q9ggwQ+Nze8Sn7FfhieudS3vmBkPwx99sz+p1s9+2H40MLtSmgj+2FQ
ePv0ynnHfhgKalb3PPOB/TAE+mR3efqJ/TBs6Zoe+OUL+2GYltfLprWoldAP
x6Pnn4vbmAq2Dkd+2oI4czPBCIfH5fdxDeaCJeFQ3DzyqaaFYF04esXazDzc
SrA+HH4tik8ttxBcGo61b8clBLQVbAjH9mZFKztbsh8B9w1pwVVW7Edg/SnP
lukd2I/Ak5FTKuw6sh8B58nuVZc6sR8B0ZMkr9gu7Edg66M/Ij51ZT8Codm6
yRnd2I/AH5MdB7bpwX4k7sw8bL+iJ/uRqLa5Nd+kF/uRaFkyZJzcmv1IJBgn
bLlrw34k/lqmPIo+7EfCIqvzka192Y9EtkJ3vOln9iPxOKXVC89+7EehMqpz
5AZb9qOwcZu1593+7Eeh1HDscE879qPw7NuWyuCB7EdBk1ZQkDWI/Sj4RHyW
nhrMfhSkybedX9uzH4XcjZc6dnFkPxojlu61G+HEfjSiapf+GjSE/WisGXo5
Su7MfjRCG9yKM4ayH425p7/k5w5jPxrdV2t9dw5nPxql1zccL3BhPxrpAze3
+suV/RgEPHfz/msE+zHQexf9tn8k+zF4bLGl+e5R7Mdgc6PF7k2j2f/ui/rV
mWPYj0GOZm6Vdiz7MbgrHrsgAuzHYEd2jwKvcezHoqOqKmHgePZjoTm8+6KF
G/ux+HPwYkMtLYmF5QXDkVJ39mPR6V5lePYE9mMR/Vr0JtaD/Vg8PXRW5jKR
/VhcvfpDg5kn+3Hwd1y4tJK2jsOZIt/hG7zYj4MuOrFj8CT242A5INGu22T2
49C6Mnv5LVofB+tXT0eu92Y/DsPrzH19fNiPwyeroMvNprAfj0z7+vIjtHU8
NrXfNzHOl/14xJ+0nN5VzH48InYlmJbRungUdSsPSJnKfjzcUR/UxY/9eAxZ
qv7xb9oQjxur9uol/uwnoGDajvcmAewnoHvwaLvtNBKwacLP48dMYz8BL59X
eNTQugT8LEoaLw9kPwHy5E5jWk1nPwGBzTeP30obEjBvzd4gxyD2E/Hi6NFl
p2jrRJje73BnajD7iTjSdH36A1qSiPDd9c0TZrCfiPeNzsYGWp+I6vXDu8+b
yX4iXuVI1zSbxX4itJcHBSyjRUlY2DtHahHCfhK8nQteZNJIwqXKKRfbhLKf
hI09nX5cSeuSUJ7++laL2ewnYaL6Q/tFdGkSMvfmVXymDd97o21aqSTsJ8P+
Ufq1F7R1MowXjtuHhbGfjM2ReX2u05JkZHu/KZwYzn4yQg+NqTtK65OxKczi
rG0E+8nY/61InEMbklHUP3u1WST7KdBHVSyW0tYpqHZOdrlDIwV+vnP2u0ex
n4J0TfWLfbQuBc/NPBp/iGY/BU8+LLqspUtTEBI0cMF92pACl1NnWo6PYV+K
QStOSPNoKykWf1UUm8fy+3x/H2z/Mop2kEKZbN26jIYUVtZRnfvECRZL8fGE
RWcdLZEio22rtndpqRTLt074Niye31+Kip1rjVl0lhT1Fw88qaP1UnQ77/tg
XILgg1LMOmT5JJculaJH+fymV3SVFCHvu3dzT+S9UjS9nOqXSxuluD5Xt+MF
LZJh9dB3bcck8X4ZSjo25KyhrWVY8HiPm4F2kOHcQ9eODsm8X4aNh461WUCL
ZShY4ehwiZbIcPJt7sJuKbxfhg7iO81iaJ0M61bcPvYXnSVDzaTYXV9ovQy5
kZMvTpTyfhlOnR05eC1dKsMW1FXW0FUyvJS9O2gj4/0yFHb6dCOWNsrgfU7n
doAWydHPp/WHBtpKDscxbT+6ynm/HBZHGj3n0w5y3Mzr8+wkDTl+tzfWmCl4
vxyfffdYT6Qlcizqv/rEMlr6/fNL7xw6T+vkeOV3pmVrJe+XwzAy8ZgXrZfj
U6/G88vog3KklMhGnaNL5cipMHYwV/F+OZao1b7jaYMcUf1EDfNpoxzL7Raa
FtMiBU7ufJLWRFsp0GqPVZRjKu9XQJ5iOJ5AOyiwpbL/0p00FOh6rfjUfVqs
wMpDM5Rd1LxfgbKtZzf70lIF3uQcGZ1B6xQoGmsIOkFnKbC8qO51A61XQHxK
bWan4f0KXJxplyuhSxX41SR33wa6SoEd13zdKmiDAosyHoR8pY0K3PhS/sVR
y/uV2HE8s28UbaVEzeK8azm0tRJl7xa2qaAdlLCctaHqEw0l5vZxtxk0h/cr
UVlS/y2Eliix0FaUvJqWKuEy4WTiCVqnxAzPzC8v6Swlfnffb9NzLu9XYmOO
7PZk+qAS+2p+7D+HLlXijss/7fbQVUr88rj9quu0Qfn9/83qPNM03v/9XqfZ
0+1pkQqNZx7snElbqRBzbv7aDNpaBf/9ku7/ox1UqHHZ7X6fhgq7i5PbtZrH
+1X4de5l7RBaooKJ/92MEFqqQkCPPa4ZtE6FcetGZx2ks1RYkLI7s4bWq9DZ
95m96Xzer0L+L2ZzB9ClKrhebEr2o6tU6Fpc1GYObVDhcqjHtO20UQXP8tVe
5bQoFfVbFj1/RVul4mZ3S9dOC3h/Klbd6jFsJO2Qip071z6S0EjF/gC/sUtp
cSr6vh3lk09LUvHUfnDbKlqailFRJroGWpeKN/Mzd3XV8f5U6At3LBxF61Mx
7nGnDhL6YCrWOx0KWkSXfv/82ZMCd9FVqVhku83iPG1IxUNXrfYFbUxFzdPN
+rYLeb8aSfKKhfa0lRqx8SU9p9LWajSYuKjktIMapkdeLvuVhhpT/HKCC2mx
Gm/GPa+tpiVqrF+e7dxIS9WYm+GDTum8Xw2tfbHFUDpLjU+XM3MCaL0aX73j
nyjog2rct//4dh1dqkbI7oen/6Sr1Ii6enJ6FW1Qo8eSMQde0UY1Zv34tqLN
It6vgcw/LX8AbaXBJqfUqZ60tQaameq/o2gHDfbJuxjTaWjwtc3zum20WAPX
kvT847REg+WnFUNraKkG7dZ4LmukdRpMM1mX134x79fA4Hx7xSBar8Fg9/yR
XvRBDZ65rjwSSZdqkOVg9m0BXaVBU+/cDptogwaroiveHqKNGpwW/6SvokVa
rLvYvvsL2kqLnF59I82X8H4tHG5fmduLdtDiJ6fscFcaWiwzfdHVnxZr0XTB
c1siLdHiaPDPTUtoqRZFV9713EbrtCjIc+5ylM7S4uqtSY+qaL0WSteDC+ro
g1ps6nLltclS3q9Fn+qeQ7rRVVpYlZpOcqINWphlvHSeRBu1GBjv0RBGi+bg
7WzNMu13/x/TPwtB
          "]]}}}, {}}, {
     DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0., 416.}, {0, 374456.19064098585`}}, DisplayFunction -> 
      Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {"T[K]", "C [J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]"}, 
      AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 12}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, Method -> {}, PlotLabel -> 
      "BTO", PlotRange -> {{0., 416.}, {0, 374456.19064098585`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 12, 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 12, 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]]}, {
       "\!\(\*SubscriptBox[\(C\), \(V\)]\) + \!\(\*SubsuperscriptBox[\(\
\[CapitalDelta]C\), \(V\), \(XS\)]\)", "\!\(\*SubscriptBox[\(C\), \(V\)]\)"}, 
       LegendMarkers -> {{False, Automatic}, {False, Automatic}}, 
       Joined -> {True, True}, LabelStyle -> {}, LegendLayout -> "Column"]], {
     
      Scaled[{0.08, 0.99}], {0.08, 0.99}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Input",
 CellChangeTimes->{3.6485079752468987`*^9}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw1j3k41PsbhidLFIVKKSoqHakcIinKQ0gIKbIbY99nR1TTvtGmhZQk2hei
RXVKK2mTUkLSvkikUoh+53edzzv/zHXPO8/3/t56vASPMDkOh7O4D4fz/+//
Pm3WcSPf2b+2ugv2AzZ4CWruqT5mrIya7QG4Gl3HWB0KlX7XJsiaGA+B0rPz
ph+fvmasBd7P1pfHTN8z1sH7TPeH2umfGOvC7oZZoMmLFsZjILuV4VS7rY3x
ODzJqXqdYtTOeDxs26/W/iz7xtgAMbwBqgpzfzA2hNv3bKvsmx2MJ6HyzFXF
zqm/GBthysfPz3ZkdTI2Rv2SyVP12roYm2C02OPQ4um/GU9ByAYj3lFJD2NT
2OZkNTzL72VshnuaF1pdyv8wnor+qcdrTsRzbP5jcygXzlt69hvxNFQYrNHs
FPZhbIFyU8stRZ+Jp8NAa0DJyGA5xjOgtbnqXUoVsSVu63fY9LeUZ2yFj+GZ
jYr7iWdiv3O921E5BcazkDLsma0Jl9gauBJvVV1KDJT5X4i/pqb4H8uAtLSe
XDMeY44NAixK9X2K6G6Dr/yi+oAeuttin+ytebxDX3a3hd3JfLfiNMac2bjF
qfyxoIrusyGX2XhLrKHE7naI3mXqYOHOWGaHXs8vPy6n0d0ek83y+X+V090e
ZhXvVmz6Q3cHnHVOtVMzV2Z3B7jYfzW+Hs2YMwd5V+Ksr+2l+xwsCd7dOeYB
3R0xo/+yrV29dHfEooOhHf6T+7H7XEj18j74+zKWzcXvbidV1TV0d0K0uLVr
cSHdnbDt3oyFpc/o7gxr+733avr0Z3dn7NutatNowJjjgu5+lRdeuNLdBesv
+ax5J6L7PCga58zo3UX3eai5P+WmyUW6uyIyV1my8TndXRFe56yg+YfubgjO
Ltn/dLQKu7thv7FJZ701Y447NO9+tTQMYgx32B1UM6hcQv93h9rHdLXr2YzL
3GHQv7tRu5T28yHcvH9sfQ3t5yNghp2GUjvt50M1Y8PaggGqbD8f+cvlh10y
YMzxgBL/haL7bMbwwJmzPgvDAxjLPCCufFAmn0h7D/wVfvDOpC20X4CKgQ0X
3h6m/QIorYrfO+Uq7Rcgz22l67BntF+AEF/vpF1ttF+IvycP23VWaQDbL0Tl
ioDuxFGMZf/y03N3G80Yly3E7ZufVb44MeZ4gn9Ia8dhLu09sePjBT0NKe09
ERua7mS4kfaeqO71Xd+xj/ZeeDAze0ZSCe29oP2u/76iCtp7QeGAwfP8Btp7
4W7BermFbbRfBPVXVopX5Qey/SK86/p8o2UoY9kiWMqNUm2YwLhsETInmG9N
t2LM8cY4m7U/5d1o743nmU5VCKa9N1T6rMi2F9HeG84zXlYMXk17Hzh3bTx/
fCftfSBv+OWixmHa+8DROWioXSntfbD04Nseu0ra+0Jf4V62Zj3tfWGqM2/A
uWba+2LT0cGhhr9p74ukCXUH+apqbO+Hbb9ePdygwxh+uLkq6WnyJMYyPzzP
j8qdZcW4zA8WX2JV65xp74+V87LbXfxo748RX8v1MqNp748+E15zLyXT3h+C
fG7ChXW0D0ByQ4pixi7aB2CmTsZjh4O0D4C1fvLaJyW0D4DF5pJrttdpH4gp
yx6OS3tI+0Co78pyKH5B+0DMfOl38XwL7QPRpT1OY2837YPQlJUSWaigzvZB
OPVmpfUKFcayINycKJpnN4hxWRAu6Tc96NBizOFCYcksud2jGetysaa9e6TR
eHoeFwWGO3yLJzHmcnGVV9AywZSez8VOpT/9t01nnMvF413/vGm2Jh8Xb/Z4
HJvmwLiJi75eOekSF/IH47vDr/MFHuQPRnsfB58Kb/IHIzVVLut5IPmD0XXI
ff/bUPIH40l+/91N0eQPhsqp8iP3+eQPxqaqth+npOQPxgbLW3mrUsnPg8A+
7pHLCvLz0KHUe0R5Hfl5GKu4ds75dPLzsFhF+65fBvl5UN/23OtbJvl5WB+u
2HdZDvl5UD7xqaP3APl5KOxRcRAdIX8IxvwcrtZwkvwhqDzRHTu9hPwhqH7y
KHljKflD4GQ2yK36MvlDwLGIUxx4g/wheNHytWTWbfKH4FSaoiT0PvlD8GZD
gv+yR+QPxRc/3+Wba8kfik/jAjq3Pyd/KEKzlj3b/Ir8oejrb20ue0/+UPi4
7hgb/pn8oXDY+qvE5iv5QxHjGd4zqIP8obBdHqJW10X+MBy6JN+z8w/5w3Cv
6OPTuQoazB8GTpprUbsyY24Yxv2juHvrAMayMFjpLMkbP4hxbhgcRDfrioYy
LguDVmqGh6k246YwNLRYDz82mjEnHAGlj2cOH8dYNxy2BX0eLDEgfzgcu4zq
ayeRPxxXXMV8QxPyh2OWLHePcCr5w/GldmZc0XTyh6Msf0vru5nkD4fei73G
g23JH4FP1RNmmjuQPwLqX6/ouTuRPwKD3p38xHUlfwTitwzMj/QgfwRcK6/7
RHiRPwKq8kuHBfiS/997+6UPcwPJH4Gt0oe1k3nkj8QGz6Z25XDyRyK1+bVN
fRT5I5HUdKwqP478kfCe/PZImID8/+7DBteOlJA/EoO37g67l0T+SBRbXvIX
p5I/Erdn7S4fJCN/FI7WWRQeXkn+KJxes1zXfC35owBv2zEXN5A/CodNTa5M
20T+KCgWf+Ic30r+KHCk3W3DdpA/Cg3eTzJTMskfhfurm/o8zSZ/NBy0YqYa
7iN/NAK9LlhJ8sgfjZqf8nrnC8gfjeo0YXP7YfJHI+DJ2AL94+SPxrUlJovc
T5E/GruPFvQXnSZ/NJrPpleknyF/DIaqNWflnid/DBpvXVl77CL5Y3DSUjX7
5GXyx+DJzKqGI1fJH4NBPapee2+QPwbrs8vV1peTPwb1KsqD4yrJH4PAD42R
c++RPxbSdbwRo6rIH4uHZiXGzdXkj0XD/t6Swhryx2J5cHJhfC35Y/G7J2aS
fj35Y1H3Y+KUx8/JH4tFOnp3UprIH4uFp29xdF6TPw5lpccbSt6SPw47h6ZE
OnwgfxzMT3w9UfWJ/HEYWfLp7IIW8schtDwg/UEr+eOwvZVraddO/jic3T/x
TtF38sdB+ZnmHK2f5I9H5r6c0sRO8sfDuCRmclU3+eNh1O50Qq+X/PHoLp9m
F8sZxPzxaB3n23NKjnFuPC6vU3nzWYFxWTwW1dfKj1Vi3BSP9D8rIz36MeYk
YIuD8qgUFca6CTjassd47wDGSMBt3TPHz6sx5iYgit9v3z0N8idAsjhjSMNg
8idgzIjMEW80yZ8Ao/cFl98OI38C7p7ZPfDlcPLzsVN2SOuJNmN1PjxqPJpv
jKT34WNos2zHidGMjfmobBKM36JH78eHctHtE7FjGbvzUZCx03K2Pr0vH29W
uDcN/osxnw+XiW+ONxrQ+/MR9qvo9AFDxlv4kMvOkg+ZRD18tBR2F+kYMS7k
w9XxalXV39THx6a9PNEyE8ZVfORNbjlhYEq9fNy5obzjrhnjNj6W5srNijGn
fgGmba++rGBB/QKIe8cYZU2nfgHOD/Q9YGBJ/QIkLThgXmxF/QLM29TBmT6L
+gVYMVFf54I19QvAudyUZ25D/QLYT6ooPGlL/QIku0h4Y+yoXwDHuatqttpT
vwBpG/INehyoX4DV2gdSQh2pXwDXwtTW8rnUL8A2m5iDfzlTvwBdr75dX+lC
/QKs8e+ObZhH/UKsGlZbbuJG/UJk6vJ+r3SnfiG8FqmYPZpP/UJEjmjPGr2A
+oUYlNbtG7WQ+oW4zPtYUOhJ/UIILcXHfnhRvxA6LZE5Ft7UL4TSt1vFyT7U
L8RjXv2YUl/qFyLeM0r/px/1C5HkUf7TNID6hUjzVnmWEEj9Qux0NFE5FkT9
QvhmODx6y6V+IU6e3pOsy6N+ESIlP+f6hVC/CJXTKzJ2hlK/CDUbQ49Wh1G/
CDpP5rxVi6B+EWJXe+W6RlK/CFOm6lttjqJ+EaKdnEZVR1O/CAdXFxUNi6V+
Eew1OsO5cdQvgvHu6pLj8dQvwufVAq2eBOoXgfOKM9RDQP0iOGXpTD8upH4R
Wt8Fa6qKqV+EpZvk5ggl1C9CkWm46IWU+sUYPvbl3IVJ1C+GYYx41cNk6hej
yzPvw6IU6hcjM9zP8UMq9YsReLRzxcql1C/GzINBawxl1C9GzrkJ7o3LqV8M
rknf1n0rqV+MqXZ/r+Kvpn4xdIv62c9fS/1ifFXrSJ29nvrFqBrlvtlxI/WL
cV/uWGdwOvWLkZ3l7rV1M/WLkVCsEFS7lfrFCJKNa7PYTv0SmB8ep3pmJ/VL
oJC35IVrFvVLEHpmxE3lPdQvQWDfAOe3OdQvQcnl8unv91O/BOErJLs0Cqhf
guoe8emIw9QvQdXIaQYtx6hfAjt189aCU9QvwfgJ2rydxdQvQVdppsv1c9Qv
ge66gC6TS9QvgctiseOHMuqXQHVOXunnm9QvQb6Z2yaHO9Qvwdm95U09VdQv
RaP71VvaT6lfil65oOSjz6lfCt0yy9Vn3lC/FAZLohScPlO/FGqzfr+Rfqd+
Kb5LQ6zn9VC/FDljfpc19R3M+qUYu+qAsaMGY5kUdqN1NXN0GG+RYlTekHV9
JjDOlaKjzspulznjQil4mkfkN9ozLpOi+9xSZw0vxlVSeHpoVUVFMm6SImlq
U+GrVMZtUpTMedDckMGYk4j4sZP3Vp9grJ4I5wVLfgXdYaybCGUVN5l7C2Pj
RLRVVGoWDxnC+hPxReK3rNOWsXsirhgVqU5azJibCIUj1Wtt/2HMT4StaKF5
ubom60/EccvgaSNSGW9JxEAbzqgZqkNZfyJ6Q6Zdb6obavM/2Htr9w==
         "]],
        FontSize->12]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Large], 
       StyleBox[LineBox[CompressedData["
1:eJw113lYzfn/xvFTyhaKsY1lFGZEaBHKelNSlI5KCuW073XWzjmEI0uWEEM1
1sNkGQkz32xllCUSErJkPZaRGBxa7Pz8rvnc/dP16H3d53lef2YTnuIXZSoS
ifQmItH///7vxzg2qaz3NYecsxD+gBVN/nsq91YJbonrefdiOs25IdgKrQqX
TFQuvCu4I1r0d1+yeepDwV0RHjG27ET0E8E9UHu2X22FtlawNdw7yjyOLXku
uDdE78688ln6UnBf3BgclFs/0ij4F4zPzX58OP+NYFsk7JhUbNu+XvAA+Fb+
c88toUHwQFRMG//U7Vij4MFwGiv22P6xSbAD7kzYqbWwfy/YEb0+r7IMD/wg
2AkRVrNdC6QfBQ/B+PjEpM7zPwl2xqUv0xc/nP9Z8FB0eh65KlrxRfAwWO5z
VLWZ9VXwcKx59ne6u+s3wS449yLP97S5aNx/doXtuDMDdsfRI9D1kpdLZjk9
Eufvhaw92NtE8CjUDbsyZaqGHo3tofOa7T1Pj8HcXQ6zGjqbCh4LtEu7FyOh
gdIBDsdcdwnWAW1Ojj68+RnfxyFEdPuXk/2aCe/j8Gadoq46QrBoPLYNLJY1
28L38XBPy7+pusZ3N5z9t+K5Xwsz4d0NplN8PUtcBIvcEX/AXnEvhu/umP/P
qJeX1vN9AgYN/VN8oITvE1AYVxa39RnfPXD4h8e+hy3NhXcPeB9znW81VLBo
Inb03PDiTBDfJ2LeqZE2z+fw3RMjvt4Qb9jEd0/c3O4Td7uI715IrV4z4OIt
vnshraPYJa2R75MQ/+yw3Ser5sL7JKyLb54XZCdYNBlj4yYG/u7O98nYVmXa
o24W373xaZ6lyXAl372xvHm6+LcVfPeB+Z+V+u56vvvg+uefHpQX8n0KYiXG
4Pxyvk/B0zGfKy7e4bsvwvovlgx7xXdf2Jh8KTN+47sYnUp7DTRr3+I/Q4wz
S5aJNTaCdWJY7jy+OMBRcKkYtncuFW6DYNFUyPMXJUl8uZ+KEPtejzaHcD8V
beacfDMjgfupyFujHKjXcO+HFlYPbsqWcO+HQ9o/66vXcu8HZdnx0ZVbuPfD
7tXXh4b/wb0/ytvF22wo5N4fGTuftEso4d4fO2yrb9We594fEaUGW8tq7gNg
fyF7zpN73Adg0uP3PRNquQ9AharRdZeR+wB45R+ozP3A/TRIY3YcmWDaUthP
w/XzOwoOtBasm4Z/x571rOkguHQa/LrampZ1EywKxGWT9UNVvbkPRPfUTn3+
7c99IMwclEY7R+4DcdFp/d5hLtxPh9W6Mo92Y7mfjl90H38vnMD9dBSPalxp
5839dOSuDy5U+nEfhL61hSVrg7gPQs+J6jGLQ7kPwso3Nw74RHL/3dVH0l/H
cR+MyVcTOiekcB8MN/+M4pNK7oNRvnhFYYOW+2CMydwyzHwB9zPwc/ag+IZF
3M/AkH+WJ5xexv0MrL6SNlmxivsZ0Fy7Ymm+jvuZWPfs7v+02dzPhHlKg+3V
jdzPxL1DLwMtt3E/E5r6jB5Ov3M/C4uyb/mO3M39LMxQHzhhl8/9LCz80DTY
7AD3s/BG3X522V/ch0B716659DD3IZh3d3W1WRH3ISgZalQs/pv7ELh0Ppbx
upT7UDi5+hZ4nOE+FFYrAtJWnOM+FH/bPFtaXMF9KEY4Pw6+fYn72Sj51Wpe
bRX3s3F/SKTi8TXuZ2NFrV1x5Q3uZ0P9m1flHzXcS9BCF9hbdVewtQQXJtTY
Oj7g50kwySfJ9/5DwRIJTjXUfUt7ws+XYOCaTH3bWsF6Cfrldl+fVceeBF6r
Wo5o/q9ggwQ+Nze8Sn7FfhieudS3vmBkPwx99sz+p1s9+2H40MLtSmgj+2FQ
ePv0ynnHfhgKalb3PPOB/TAE+mR3efqJ/TBs6Zoe+OUL+2GYltfLprWoldAP
x6Pnn4vbmAq2Dkd+2oI4czPBCIfH5fdxDeaCJeFQ3DzyqaaFYF04esXazDzc
SrA+HH4tik8ttxBcGo61b8clBLQVbAjH9mZFKztbsh8B9w1pwVVW7Edg/SnP
lukd2I/Ak5FTKuw6sh8B58nuVZc6sR8B0ZMkr9gu7Edg66M/Ij51ZT8Codm6
yRnd2I/AH5MdB7bpwX4k7sw8bL+iJ/uRqLa5Nd+kF/uRaFkyZJzcmv1IJBgn
bLlrw34k/lqmPIo+7EfCIqvzka192Y9EtkJ3vOln9iPxOKXVC89+7EehMqpz
5AZb9qOwcZu1593+7Eeh1HDscE879qPw7NuWyuCB7EdBk1ZQkDWI/Sj4RHyW
nhrMfhSkybedX9uzH4XcjZc6dnFkPxojlu61G+HEfjSiapf+GjSE/WisGXo5
Su7MfjRCG9yKM4ayH425p7/k5w5jPxrdV2t9dw5nPxql1zccL3BhPxrpAze3
+suV/RgEPHfz/msE+zHQexf9tn8k+zF4bLGl+e5R7Mdgc6PF7k2j2f/ui/rV
mWPYj0GOZm6Vdiz7MbgrHrsgAuzHYEd2jwKvcezHoqOqKmHgePZjoTm8+6KF
G/ux+HPwYkMtLYmF5QXDkVJ39mPR6V5lePYE9mMR/Vr0JtaD/Vg8PXRW5jKR
/VhcvfpDg5kn+3Hwd1y4tJK2jsOZIt/hG7zYj4MuOrFj8CT242A5INGu22T2
49C6Mnv5LVofB+tXT0eu92Y/DsPrzH19fNiPwyeroMvNprAfj0z7+vIjtHU8
NrXfNzHOl/14xJ+0nN5VzH48InYlmJbRungUdSsPSJnKfjzcUR/UxY/9eAxZ
qv7xb9oQjxur9uol/uwnoGDajvcmAewnoHvwaLvtNBKwacLP48dMYz8BL59X
eNTQugT8LEoaLw9kPwHy5E5jWk1nPwGBzTeP30obEjBvzd4gxyD2E/Hi6NFl
p2jrRJje73BnajD7iTjSdH36A1qSiPDd9c0TZrCfiPeNzsYGWp+I6vXDu8+b
yX4iXuVI1zSbxX4itJcHBSyjRUlY2DtHahHCfhK8nQteZNJIwqXKKRfbhLKf
hI09nX5cSeuSUJ7++laL2ewnYaL6Q/tFdGkSMvfmVXymDd97o21aqSTsJ8P+
Ufq1F7R1MowXjtuHhbGfjM2ReX2u05JkZHu/KZwYzn4yQg+NqTtK65OxKczi
rG0E+8nY/61InEMbklHUP3u1WST7KdBHVSyW0tYpqHZOdrlDIwV+vnP2u0ex
n4J0TfWLfbQuBc/NPBp/iGY/BU8+LLqspUtTEBI0cMF92pACl1NnWo6PYV+K
QStOSPNoKykWf1UUm8fy+3x/H2z/Mop2kEKZbN26jIYUVtZRnfvECRZL8fGE
RWcdLZEio22rtndpqRTLt074Niye31+Kip1rjVl0lhT1Fw88qaP1UnQ77/tg
XILgg1LMOmT5JJculaJH+fymV3SVFCHvu3dzT+S9UjS9nOqXSxuluD5Xt+MF
LZJh9dB3bcck8X4ZSjo25KyhrWVY8HiPm4F2kOHcQ9eODsm8X4aNh461WUCL
ZShY4ehwiZbIcPJt7sJuKbxfhg7iO81iaJ0M61bcPvYXnSVDzaTYXV9ovQy5
kZMvTpTyfhlOnR05eC1dKsMW1FXW0FUyvJS9O2gj4/0yFHb6dCOWNsrgfU7n
doAWydHPp/WHBtpKDscxbT+6ynm/HBZHGj3n0w5y3Mzr8+wkDTl+tzfWmCl4
vxyfffdYT6Qlcizqv/rEMlr6/fNL7xw6T+vkeOV3pmVrJe+XwzAy8ZgXrZfj
U6/G88vog3KklMhGnaNL5cipMHYwV/F+OZao1b7jaYMcUf1EDfNpoxzL7Raa
FtMiBU7ufJLWRFsp0GqPVZRjKu9XQJ5iOJ5AOyiwpbL/0p00FOh6rfjUfVqs
wMpDM5Rd1LxfgbKtZzf70lIF3uQcGZ1B6xQoGmsIOkFnKbC8qO51A61XQHxK
bWan4f0KXJxplyuhSxX41SR33wa6SoEd13zdKmiDAosyHoR8pY0K3PhS/sVR
y/uV2HE8s28UbaVEzeK8azm0tRJl7xa2qaAdlLCctaHqEw0l5vZxtxk0h/cr
UVlS/y2Eliix0FaUvJqWKuEy4WTiCVqnxAzPzC8v6Swlfnffb9NzLu9XYmOO
7PZk+qAS+2p+7D+HLlXijss/7fbQVUr88rj9quu0Qfn9/83qPNM03v/9XqfZ
0+1pkQqNZx7snElbqRBzbv7aDNpaBf/9ku7/ox1UqHHZ7X6fhgq7i5PbtZrH
+1X4de5l7RBaooKJ/92MEFqqQkCPPa4ZtE6FcetGZx2ks1RYkLI7s4bWq9DZ
95m96Xzer0L+L2ZzB9ClKrhebEr2o6tU6Fpc1GYObVDhcqjHtO20UQXP8tVe
5bQoFfVbFj1/RVul4mZ3S9dOC3h/Klbd6jFsJO2Qip071z6S0EjF/gC/sUtp
cSr6vh3lk09LUvHUfnDbKlqailFRJroGWpeKN/Mzd3XV8f5U6At3LBxF61Mx
7nGnDhL6YCrWOx0KWkSXfv/82ZMCd9FVqVhku83iPG1IxUNXrfYFbUxFzdPN
+rYLeb8aSfKKhfa0lRqx8SU9p9LWajSYuKjktIMapkdeLvuVhhpT/HKCC2mx
Gm/GPa+tpiVqrF+e7dxIS9WYm+GDTum8Xw2tfbHFUDpLjU+XM3MCaL0aX73j
nyjog2rct//4dh1dqkbI7oen/6Sr1Ii6enJ6FW1Qo8eSMQde0UY1Zv34tqLN
It6vgcw/LX8AbaXBJqfUqZ60tQaameq/o2gHDfbJuxjTaWjwtc3zum20WAPX
kvT847REg+WnFUNraKkG7dZ4LmukdRpMM1mX134x79fA4Hx7xSBar8Fg9/yR
XvRBDZ65rjwSSZdqkOVg9m0BXaVBU+/cDptogwaroiveHqKNGpwW/6SvokVa
rLvYvvsL2kqLnF59I82X8H4tHG5fmduLdtDiJ6fscFcaWiwzfdHVnxZr0XTB
c1siLdHiaPDPTUtoqRZFV9713EbrtCjIc+5ylM7S4uqtSY+qaL0WSteDC+ro
g1ps6nLltclS3q9Fn+qeQ7rRVVpYlZpOcqINWphlvHSeRBu1GBjv0RBGi+bg
7WzNMu13/x/TPwtB
         "]],
        FontSize->12]}}, {}}, InsetBox[
     RowBox[{"Unevaluated", "[", 
      TemplateBox[{
       "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\) + \
\\!\\(\\*SubsuperscriptBox[\\(\[CapitalDelta]C\\), \\(V\\), \\(XS\\)]\\)\"",
        "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\)\""},
       "LineLegend",
       DisplayFunction->(FormBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 12, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                  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]& ),
       Editable->True,
       InterpretationFunction:>(RowBox[{"LineLegend", "[", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "12"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
                
                RowBox[{"Directive", "[", 
                  RowBox[{
                    RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                    ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", "12"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
              "}"}], ",", 
            RowBox[{"{", 
              RowBox[{#, ",", #2}], "}"}], ",", 
            RowBox[{"LegendMarkers", "\[Rule]", 
              RowBox[{"{", 
                RowBox[{
                  RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                  RowBox[{"{", 
                    RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], 
            ",", 
            RowBox[{"Joined", "\[Rule]", 
              RowBox[{"{", 
                RowBox[{"True", ",", "True"}], "}"}]}], ",", 
            RowBox[{"LabelStyle", "\[Rule]", 
              RowBox[{"{", "}"}]}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
      "]"}], Scaled[{0.08, 0.99}], ImageScaled[{0.08, 0.99}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T[K]\"", TraditionalForm], 
     FormBox[
     "\"C [J/\\!\\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\)K]\"", 
      TraditionalForm]},
   AxesOrigin->{0, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 12},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   Method->{},
   PlotLabel->FormBox["\"BTO\"", TraditionalForm],
   PlotRange->{{0., 416.}, {0, 374456.19064098585`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 12, 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw1j3k41PsbhidLFIVKKSoqHakcIinKQ0gIKbIbY99nR1TTvtGmhZQk2hei
RXVKK2mTUkLSvkikUoh+53edzzv/zHXPO8/3/t56vASPMDkOh7O4D4fz/+//
Pm3WcSPf2b+2ugv2AzZ4CWruqT5mrIya7QG4Gl3HWB0KlX7XJsiaGA+B0rPz
ph+fvmasBd7P1pfHTN8z1sH7TPeH2umfGOvC7oZZoMmLFsZjILuV4VS7rY3x
ODzJqXqdYtTOeDxs26/W/iz7xtgAMbwBqgpzfzA2hNv3bKvsmx2MJ6HyzFXF
zqm/GBthysfPz3ZkdTI2Rv2SyVP12roYm2C02OPQ4um/GU9ByAYj3lFJD2NT
2OZkNTzL72VshnuaF1pdyv8wnor+qcdrTsRzbP5jcygXzlt69hvxNFQYrNHs
FPZhbIFyU8stRZ+Jp8NAa0DJyGA5xjOgtbnqXUoVsSVu63fY9LeUZ2yFj+GZ
jYr7iWdiv3O921E5BcazkDLsma0Jl9gauBJvVV1KDJT5X4i/pqb4H8uAtLSe
XDMeY44NAixK9X2K6G6Dr/yi+oAeuttin+ytebxDX3a3hd3JfLfiNMac2bjF
qfyxoIrusyGX2XhLrKHE7naI3mXqYOHOWGaHXs8vPy6n0d0ek83y+X+V090e
ZhXvVmz6Q3cHnHVOtVMzV2Z3B7jYfzW+Hs2YMwd5V+Ksr+2l+xwsCd7dOeYB
3R0xo/+yrV29dHfEooOhHf6T+7H7XEj18j74+zKWzcXvbidV1TV0d0K0uLVr
cSHdnbDt3oyFpc/o7gxr+733avr0Z3dn7NutatNowJjjgu5+lRdeuNLdBesv
+ax5J6L7PCga58zo3UX3eai5P+WmyUW6uyIyV1my8TndXRFe56yg+YfubgjO
Ltn/dLQKu7thv7FJZ701Y447NO9+tTQMYgx32B1UM6hcQv93h9rHdLXr2YzL
3GHQv7tRu5T28yHcvH9sfQ3t5yNghp2GUjvt50M1Y8PaggGqbD8f+cvlh10y
YMzxgBL/haL7bMbwwJmzPgvDAxjLPCCufFAmn0h7D/wVfvDOpC20X4CKgQ0X
3h6m/QIorYrfO+Uq7Rcgz22l67BntF+AEF/vpF1ttF+IvycP23VWaQDbL0Tl
ioDuxFGMZf/y03N3G80Yly3E7ZufVb44MeZ4gn9Ia8dhLu09sePjBT0NKe09
ERua7mS4kfaeqO71Xd+xj/ZeeDAze0ZSCe29oP2u/76iCtp7QeGAwfP8Btp7
4W7BermFbbRfBPVXVopX5Qey/SK86/p8o2UoY9kiWMqNUm2YwLhsETInmG9N
t2LM8cY4m7U/5d1o743nmU5VCKa9N1T6rMi2F9HeG84zXlYMXk17Hzh3bTx/
fCftfSBv+OWixmHa+8DROWioXSntfbD04Nseu0ra+0Jf4V62Zj3tfWGqM2/A
uWba+2LT0cGhhr9p74ukCXUH+apqbO+Hbb9ePdygwxh+uLkq6WnyJMYyPzzP
j8qdZcW4zA8WX2JV65xp74+V87LbXfxo748RX8v1MqNp748+E15zLyXT3h+C
fG7ChXW0D0ByQ4pixi7aB2CmTsZjh4O0D4C1fvLaJyW0D4DF5pJrttdpH4gp
yx6OS3tI+0Co78pyKH5B+0DMfOl38XwL7QPRpT1OY2837YPQlJUSWaigzvZB
OPVmpfUKFcayINycKJpnN4hxWRAu6Tc96NBizOFCYcksud2jGetysaa9e6TR
eHoeFwWGO3yLJzHmcnGVV9AywZSez8VOpT/9t01nnMvF413/vGm2Jh8Xb/Z4
HJvmwLiJi75eOekSF/IH47vDr/MFHuQPRnsfB58Kb/IHIzVVLut5IPmD0XXI
ff/bUPIH40l+/91N0eQPhsqp8iP3+eQPxqaqth+npOQPxgbLW3mrUsnPg8A+
7pHLCvLz0KHUe0R5Hfl5GKu4ds75dPLzsFhF+65fBvl5UN/23OtbJvl5WB+u
2HdZDvl5UD7xqaP3APl5KOxRcRAdIX8IxvwcrtZwkvwhqDzRHTu9hPwhqH7y
KHljKflD4GQ2yK36MvlDwLGIUxx4g/wheNHytWTWbfKH4FSaoiT0PvlD8GZD
gv+yR+QPxRc/3+Wba8kfik/jAjq3Pyd/KEKzlj3b/Ir8oejrb20ue0/+UPi4
7hgb/pn8oXDY+qvE5iv5QxHjGd4zqIP8obBdHqJW10X+MBy6JN+z8w/5w3Cv
6OPTuQoazB8GTpprUbsyY24Yxv2juHvrAMayMFjpLMkbP4hxbhgcRDfrioYy
LguDVmqGh6k246YwNLRYDz82mjEnHAGlj2cOH8dYNxy2BX0eLDEgfzgcu4zq
ayeRPxxXXMV8QxPyh2OWLHePcCr5w/GldmZc0XTyh6Msf0vru5nkD4fei73G
g23JH4FP1RNmmjuQPwLqX6/ouTuRPwKD3p38xHUlfwTitwzMj/QgfwRcK6/7
RHiRPwKq8kuHBfiS/997+6UPcwPJH4Gt0oe1k3nkj8QGz6Z25XDyRyK1+bVN
fRT5I5HUdKwqP478kfCe/PZImID8/+7DBteOlJA/EoO37g67l0T+SBRbXvIX
p5I/Erdn7S4fJCN/FI7WWRQeXkn+KJxes1zXfC35owBv2zEXN5A/CodNTa5M
20T+KCgWf+Ic30r+KHCk3W3DdpA/Cg3eTzJTMskfhfurm/o8zSZ/NBy0YqYa
7iN/NAK9LlhJ8sgfjZqf8nrnC8gfjeo0YXP7YfJHI+DJ2AL94+SPxrUlJovc
T5E/GruPFvQXnSZ/NJrPpleknyF/DIaqNWflnid/DBpvXVl77CL5Y3DSUjX7
5GXyx+DJzKqGI1fJH4NBPapee2+QPwbrs8vV1peTPwb1KsqD4yrJH4PAD42R
c++RPxbSdbwRo6rIH4uHZiXGzdXkj0XD/t6Swhryx2J5cHJhfC35Y/G7J2aS
fj35Y1H3Y+KUx8/JH4tFOnp3UprIH4uFp29xdF6TPw5lpccbSt6SPw47h6ZE
OnwgfxzMT3w9UfWJ/HEYWfLp7IIW8schtDwg/UEr+eOwvZVraddO/jic3T/x
TtF38sdB+ZnmHK2f5I9H5r6c0sRO8sfDuCRmclU3+eNh1O50Qq+X/PHoLp9m
F8sZxPzxaB3n23NKjnFuPC6vU3nzWYFxWTwW1dfKj1Vi3BSP9D8rIz36MeYk
YIuD8qgUFca6CTjassd47wDGSMBt3TPHz6sx5iYgit9v3z0N8idAsjhjSMNg
8idgzIjMEW80yZ8Ao/cFl98OI38C7p7ZPfDlcPLzsVN2SOuJNmN1PjxqPJpv
jKT34WNos2zHidGMjfmobBKM36JH78eHctHtE7FjGbvzUZCx03K2Pr0vH29W
uDcN/osxnw+XiW+ONxrQ+/MR9qvo9AFDxlv4kMvOkg+ZRD18tBR2F+kYMS7k
w9XxalXV39THx6a9PNEyE8ZVfORNbjlhYEq9fNy5obzjrhnjNj6W5srNijGn
fgGmba++rGBB/QKIe8cYZU2nfgHOD/Q9YGBJ/QIkLThgXmxF/QLM29TBmT6L
+gVYMVFf54I19QvAudyUZ25D/QLYT6ooPGlL/QIku0h4Y+yoXwDHuatqttpT
vwBpG/INehyoX4DV2gdSQh2pXwDXwtTW8rnUL8A2m5iDfzlTvwBdr75dX+lC
/QKs8e+ObZhH/UKsGlZbbuJG/UJk6vJ+r3SnfiG8FqmYPZpP/UJEjmjPGr2A
+oUYlNbtG7WQ+oW4zPtYUOhJ/UIILcXHfnhRvxA6LZE5Ft7UL4TSt1vFyT7U
L8RjXv2YUl/qFyLeM0r/px/1C5HkUf7TNID6hUjzVnmWEEj9Qux0NFE5FkT9
QvhmODx6y6V+IU6e3pOsy6N+ESIlP+f6hVC/CJXTKzJ2hlK/CDUbQ49Wh1G/
CDpP5rxVi6B+EWJXe+W6RlK/CFOm6lttjqJ+EaKdnEZVR1O/CAdXFxUNi6V+
Eew1OsO5cdQvgvHu6pLj8dQvwufVAq2eBOoXgfOKM9RDQP0iOGXpTD8upH4R
Wt8Fa6qKqV+EpZvk5ggl1C9CkWm46IWU+sUYPvbl3IVJ1C+GYYx41cNk6hej
yzPvw6IU6hcjM9zP8UMq9YsReLRzxcql1C/GzINBawxl1C9GzrkJ7o3LqV8M
rknf1n0rqV+MqXZ/r+Kvpn4xdIv62c9fS/1ifFXrSJ29nvrFqBrlvtlxI/WL
cV/uWGdwOvWLkZ3l7rV1M/WLkVCsEFS7lfrFCJKNa7PYTv0SmB8ep3pmJ/VL
oJC35IVrFvVLEHpmxE3lPdQvQWDfAOe3OdQvQcnl8unv91O/BOErJLs0Cqhf
guoe8emIw9QvQdXIaQYtx6hfAjt189aCU9QvwfgJ2rydxdQvQVdppsv1c9Qv
ge66gC6TS9QvgctiseOHMuqXQHVOXunnm9QvQb6Z2yaHO9Qvwdm95U09VdQv
RaP71VvaT6lfil65oOSjz6lfCt0yy9Vn3lC/FAZLohScPlO/FGqzfr+Rfqd+
Kb5LQ6zn9VC/FDljfpc19R3M+qUYu+qAsaMGY5kUdqN1NXN0GG+RYlTekHV9
JjDOlaKjzspulznjQil4mkfkN9ozLpOi+9xSZw0vxlVSeHpoVUVFMm6SImlq
U+GrVMZtUpTMedDckMGYk4j4sZP3Vp9grJ4I5wVLfgXdYaybCGUVN5l7C2Pj
RLRVVGoWDxnC+hPxReK3rNOWsXsirhgVqU5azJibCIUj1Wtt/2HMT4StaKF5
ubom60/EccvgaSNSGW9JxEAbzqgZqkNZfyJ6Q6Zdb6obavM/2Htr9w==
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 12, 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw113lYzfn/xvFTyhaKsY1lFGZEaBHKelNSlI5KCuW073XWzjmEI0uWEEM1
1sNkGQkz32xllCUSErJkPZaRGBxa7Pz8rvnc/dP16H3d53lef2YTnuIXZSoS
ifQmItH///7vxzg2qaz3NYecsxD+gBVN/nsq91YJbonrefdiOs25IdgKrQqX
TFQuvCu4I1r0d1+yeepDwV0RHjG27ET0E8E9UHu2X22FtlawNdw7yjyOLXku
uDdE78688ln6UnBf3BgclFs/0ij4F4zPzX58OP+NYFsk7JhUbNu+XvAA+Fb+
c88toUHwQFRMG//U7Vij4MFwGiv22P6xSbAD7kzYqbWwfy/YEb0+r7IMD/wg
2AkRVrNdC6QfBQ/B+PjEpM7zPwl2xqUv0xc/nP9Z8FB0eh65KlrxRfAwWO5z
VLWZ9VXwcKx59ne6u+s3wS449yLP97S5aNx/doXtuDMDdsfRI9D1kpdLZjk9
Eufvhaw92NtE8CjUDbsyZaqGHo3tofOa7T1Pj8HcXQ6zGjqbCh4LtEu7FyOh
gdIBDsdcdwnWAW1Ojj68+RnfxyFEdPuXk/2aCe/j8Gadoq46QrBoPLYNLJY1
28L38XBPy7+pusZ3N5z9t+K5Xwsz4d0NplN8PUtcBIvcEX/AXnEvhu/umP/P
qJeX1vN9AgYN/VN8oITvE1AYVxa39RnfPXD4h8e+hy3NhXcPeB9znW81VLBo
Inb03PDiTBDfJ2LeqZE2z+fw3RMjvt4Qb9jEd0/c3O4Td7uI715IrV4z4OIt
vnshraPYJa2R75MQ/+yw3Ser5sL7JKyLb54XZCdYNBlj4yYG/u7O98nYVmXa
o24W373xaZ6lyXAl372xvHm6+LcVfPeB+Z+V+u56vvvg+uefHpQX8n0KYiXG
4Pxyvk/B0zGfKy7e4bsvwvovlgx7xXdf2Jh8KTN+47sYnUp7DTRr3+I/Q4wz
S5aJNTaCdWJY7jy+OMBRcKkYtncuFW6DYNFUyPMXJUl8uZ+KEPtejzaHcD8V
beacfDMjgfupyFujHKjXcO+HFlYPbsqWcO+HQ9o/66vXcu8HZdnx0ZVbuPfD
7tXXh4b/wb0/ytvF22wo5N4fGTuftEso4d4fO2yrb9We594fEaUGW8tq7gNg
fyF7zpN73Adg0uP3PRNquQ9AharRdZeR+wB45R+ozP3A/TRIY3YcmWDaUthP
w/XzOwoOtBasm4Z/x571rOkguHQa/LrampZ1EywKxGWT9UNVvbkPRPfUTn3+
7c99IMwclEY7R+4DcdFp/d5hLtxPh9W6Mo92Y7mfjl90H38vnMD9dBSPalxp
5839dOSuDy5U+nEfhL61hSVrg7gPQs+J6jGLQ7kPwso3Nw74RHL/3dVH0l/H
cR+MyVcTOiekcB8MN/+M4pNK7oNRvnhFYYOW+2CMydwyzHwB9zPwc/ag+IZF
3M/AkH+WJ5xexv0MrL6SNlmxivsZ0Fy7Ymm+jvuZWPfs7v+02dzPhHlKg+3V
jdzPxL1DLwMtt3E/E5r6jB5Ov3M/C4uyb/mO3M39LMxQHzhhl8/9LCz80DTY
7AD3s/BG3X522V/ch0B716659DD3IZh3d3W1WRH3ISgZalQs/pv7ELh0Ppbx
upT7UDi5+hZ4nOE+FFYrAtJWnOM+FH/bPFtaXMF9KEY4Pw6+fYn72Sj51Wpe
bRX3s3F/SKTi8TXuZ2NFrV1x5Q3uZ0P9m1flHzXcS9BCF9hbdVewtQQXJtTY
Oj7g50kwySfJ9/5DwRIJTjXUfUt7ws+XYOCaTH3bWsF6Cfrldl+fVceeBF6r
Wo5o/q9ggwQ+Nze8Sn7FfhieudS3vmBkPwx99sz+p1s9+2H40MLtSmgj+2FQ
ePv0ynnHfhgKalb3PPOB/TAE+mR3efqJ/TBs6Zoe+OUL+2GYltfLprWoldAP
x6Pnn4vbmAq2Dkd+2oI4czPBCIfH5fdxDeaCJeFQ3DzyqaaFYF04esXazDzc
SrA+HH4tik8ttxBcGo61b8clBLQVbAjH9mZFKztbsh8B9w1pwVVW7Edg/SnP
lukd2I/Ak5FTKuw6sh8B58nuVZc6sR8B0ZMkr9gu7Edg66M/Ij51ZT8Codm6
yRnd2I/AH5MdB7bpwX4k7sw8bL+iJ/uRqLa5Nd+kF/uRaFkyZJzcmv1IJBgn
bLlrw34k/lqmPIo+7EfCIqvzka192Y9EtkJ3vOln9iPxOKXVC89+7EehMqpz
5AZb9qOwcZu1593+7Eeh1HDscE879qPw7NuWyuCB7EdBk1ZQkDWI/Sj4RHyW
nhrMfhSkybedX9uzH4XcjZc6dnFkPxojlu61G+HEfjSiapf+GjSE/WisGXo5
Su7MfjRCG9yKM4ayH425p7/k5w5jPxrdV2t9dw5nPxql1zccL3BhPxrpAze3
+suV/RgEPHfz/msE+zHQexf9tn8k+zF4bLGl+e5R7Mdgc6PF7k2j2f/ui/rV
mWPYj0GOZm6Vdiz7MbgrHrsgAuzHYEd2jwKvcezHoqOqKmHgePZjoTm8+6KF
G/ux+HPwYkMtLYmF5QXDkVJ39mPR6V5lePYE9mMR/Vr0JtaD/Vg8PXRW5jKR
/VhcvfpDg5kn+3Hwd1y4tJK2jsOZIt/hG7zYj4MuOrFj8CT242A5INGu22T2
49C6Mnv5LVofB+tXT0eu92Y/DsPrzH19fNiPwyeroMvNprAfj0z7+vIjtHU8
NrXfNzHOl/14xJ+0nN5VzH48InYlmJbRungUdSsPSJnKfjzcUR/UxY/9eAxZ
qv7xb9oQjxur9uol/uwnoGDajvcmAewnoHvwaLvtNBKwacLP48dMYz8BL59X
eNTQugT8LEoaLw9kPwHy5E5jWk1nPwGBzTeP30obEjBvzd4gxyD2E/Hi6NFl
p2jrRJje73BnajD7iTjSdH36A1qSiPDd9c0TZrCfiPeNzsYGWp+I6vXDu8+b
yX4iXuVI1zSbxX4itJcHBSyjRUlY2DtHahHCfhK8nQteZNJIwqXKKRfbhLKf
hI09nX5cSeuSUJ7++laL2ewnYaL6Q/tFdGkSMvfmVXymDd97o21aqSTsJ8P+
Ufq1F7R1MowXjtuHhbGfjM2ReX2u05JkZHu/KZwYzn4yQg+NqTtK65OxKczi
rG0E+8nY/61InEMbklHUP3u1WST7KdBHVSyW0tYpqHZOdrlDIwV+vnP2u0ex
n4J0TfWLfbQuBc/NPBp/iGY/BU8+LLqspUtTEBI0cMF92pACl1NnWo6PYV+K
QStOSPNoKykWf1UUm8fy+3x/H2z/Mop2kEKZbN26jIYUVtZRnfvECRZL8fGE
RWcdLZEio22rtndpqRTLt074Niye31+Kip1rjVl0lhT1Fw88qaP1UnQ77/tg
XILgg1LMOmT5JJculaJH+fymV3SVFCHvu3dzT+S9UjS9nOqXSxuluD5Xt+MF
LZJh9dB3bcck8X4ZSjo25KyhrWVY8HiPm4F2kOHcQ9eODsm8X4aNh461WUCL
ZShY4ehwiZbIcPJt7sJuKbxfhg7iO81iaJ0M61bcPvYXnSVDzaTYXV9ovQy5
kZMvTpTyfhlOnR05eC1dKsMW1FXW0FUyvJS9O2gj4/0yFHb6dCOWNsrgfU7n
doAWydHPp/WHBtpKDscxbT+6ynm/HBZHGj3n0w5y3Mzr8+wkDTl+tzfWmCl4
vxyfffdYT6Qlcizqv/rEMlr6/fNL7xw6T+vkeOV3pmVrJe+XwzAy8ZgXrZfj
U6/G88vog3KklMhGnaNL5cipMHYwV/F+OZao1b7jaYMcUf1EDfNpoxzL7Raa
FtMiBU7ufJLWRFsp0GqPVZRjKu9XQJ5iOJ5AOyiwpbL/0p00FOh6rfjUfVqs
wMpDM5Rd1LxfgbKtZzf70lIF3uQcGZ1B6xQoGmsIOkFnKbC8qO51A61XQHxK
bWan4f0KXJxplyuhSxX41SR33wa6SoEd13zdKmiDAosyHoR8pY0K3PhS/sVR
y/uV2HE8s28UbaVEzeK8azm0tRJl7xa2qaAdlLCctaHqEw0l5vZxtxk0h/cr
UVlS/y2Eliix0FaUvJqWKuEy4WTiCVqnxAzPzC8v6Swlfnffb9NzLu9XYmOO
7PZk+qAS+2p+7D+HLlXijss/7fbQVUr88rj9quu0Qfn9/83qPNM03v/9XqfZ
0+1pkQqNZx7snElbqRBzbv7aDNpaBf/9ku7/ox1UqHHZ7X6fhgq7i5PbtZrH
+1X4de5l7RBaooKJ/92MEFqqQkCPPa4ZtE6FcetGZx2ks1RYkLI7s4bWq9DZ
95m96Xzer0L+L2ZzB9ClKrhebEr2o6tU6Fpc1GYObVDhcqjHtO20UQXP8tVe
5bQoFfVbFj1/RVul4mZ3S9dOC3h/Klbd6jFsJO2Qip071z6S0EjF/gC/sUtp
cSr6vh3lk09LUvHUfnDbKlqailFRJroGWpeKN/Mzd3XV8f5U6At3LBxF61Mx
7nGnDhL6YCrWOx0KWkSXfv/82ZMCd9FVqVhku83iPG1IxUNXrfYFbUxFzdPN
+rYLeb8aSfKKhfa0lRqx8SU9p9LWajSYuKjktIMapkdeLvuVhhpT/HKCC2mx
Gm/GPa+tpiVqrF+e7dxIS9WYm+GDTum8Xw2tfbHFUDpLjU+XM3MCaL0aX73j
nyjog2rct//4dh1dqkbI7oen/6Sr1Ii6enJ6FW1Qo8eSMQde0UY1Zv34tqLN
It6vgcw/LX8AbaXBJqfUqZ60tQaameq/o2gHDfbJuxjTaWjwtc3zum20WAPX
kvT847REg+WnFUNraKkG7dZ4LmukdRpMM1mX134x79fA4Hx7xSBar8Fg9/yR
XvRBDZ65rjwSSZdqkOVg9m0BXaVBU+/cDptogwaroiveHqKNGpwW/6SvokVa
rLvYvvsL2kqLnF59I82X8H4tHG5fmduLdtDiJ6fscFcaWiwzfdHVnxZr0XTB
c1siLdHiaPDPTUtoqRZFV9713EbrtCjIc+5ylM7S4uqtSY+qaL0WSteDC+ro
g1ps6nLltclS3q9Fn+qeQ7rRVVpYlZpOcqINWphlvHSeRBu1GBjv0RBGi+bg
7WzNMu13/x/TPwtB
          "]]}}}, {}}, {
     DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0., 416.}, {0, 374456.19064098585`}}, DisplayFunction -> 
      Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {"T[K]", "C [J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]"}, 
      AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 12}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, Method -> {}, PlotLabel -> 
      "BTO", PlotRange -> {{0., 416.}, {0, 374456.19064098585`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      Unevaluated[
       LineLegend[{
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 12, 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 12, 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]]}, {
        "\!\(\*SubscriptBox[\(C\), \(V\)]\) + \!\(\*SubsuperscriptBox[\(\
\[CapitalDelta]C\), \(V\), \(XS\)]\)", "\!\(\*SubscriptBox[\(C\), \(V\)]\)"}, 
        LegendMarkers -> {{False, Automatic}, {False, Automatic}}, 
        Joined -> {True, True}, LabelStyle -> {}, LegendLayout -> 
        "Column"]]], {
      Scaled[{0.08, 0.99}], {0.08, 0.99}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{3.6485079757845592`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.648504742141769*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", ",", 
        RowBox[{
         FractionBox[
          RowBox[{"CvT", "[", 
           RowBox[{"[", 
            RowBox[{"k", ",", "2"}], "]"}], "]"}], 
          RowBox[{"6.022", "*", 
           SuperscriptBox["10", "23"], "6.430201823999999`*^-29"}]], "+", 
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"2", ",", "1", ",", "k"}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "360", ",", "390", ",", "1"}], "}"}]}], "]"}], "}"}],
    ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontWeight", "\[Rule]", "\"\<Bold\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<T[K]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(C\), \(V\)]\) + \!\(\*SubscriptBox[\(\
\[CapitalDelta]C\), \(V\)]\) [J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]\>\""}],
      "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<E = 0 [kV/cm]\>\"", ",", "\"\<E = 10 [kV/cm]\>\"", ",", 
        "\"\<E = 15 [kV/cm]\>\"", ",", "\"\<E = 35 [kV/cm]\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.08", ",", "0.99"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.08", ",", "0.99"}], "}"}]}], "}"}]}], "]"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "Bold"}], "]"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.638834627432848*^9, 3.6388346609486217`*^9}, {
   3.638834770598621*^9, 3.638834780179874*^9}, {3.638834825264656*^9, 
   3.6388348303346777`*^9}, {3.638835144102281*^9, 3.638835198198824*^9}, {
   3.638835546773748*^9, 3.638835551742784*^9}, {3.638835703080762*^9, 
   3.638835730458441*^9}, {3.638837111536916*^9, 3.638837136059453*^9}, {
   3.6388375140177*^9, 3.638837658110742*^9}, {3.638838079592667*^9, 
   3.638838155002121*^9}, {3.638840893306518*^9, 3.638840900681943*^9}, {
   3.638840935476572*^9, 3.6388409655600853`*^9}, {3.638841014383337*^9, 
   3.638841016966957*^9}, {3.638841574435226*^9, 3.638841637184404*^9}, {
   3.638841984669186*^9, 3.638841984762515*^9}, {3.63922089790092*^9, 
   3.639220900957053*^9}, {3.639230464610824*^9, 3.639230608556164*^9}, {
   3.639230646578743*^9, 3.639230680910252*^9}, {3.639230745361903*^9, 
   3.639230789052593*^9}, {3.6392309862306213`*^9, 3.6392311302786016`*^9}, {
   3.639231235614447*^9, 3.639231265372045*^9}, {3.6392313014656763`*^9, 
   3.639231363158024*^9}, {3.63923368687997*^9, 3.639233698035708*^9}, {
   3.639331720245534*^9, 3.639331723901259*^9}, {3.639334024314251*^9, 
   3.639334050956766*^9}, {3.639334111134583*^9, 3.63933413024271*^9}, {
   3.639334173003829*^9, 3.639334204136426*^9}, 3.639334374919291*^9, {
   3.639336990823634*^9, 3.639336994634495*^9}, {3.639339744793601*^9, 
   3.639339746949519*^9}, {3.639920094559704*^9, 3.639920254319788*^9}, {
   3.6399202912941027`*^9, 3.6399203300164423`*^9}, {3.640082438708603*^9, 
   3.640082445515677*^9}, {3.640083772097783*^9, 3.640083838375559*^9}, {
   3.640085616092703*^9, 3.640085699608189*^9}, {3.6400891762537403`*^9, 
   3.640089188568878*^9}, {3.64849907110884*^9, 3.6484990762412357`*^9}, {
   3.648499331140369*^9, 3.6484993872723427`*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {}, {}}, InsetBox[
     TemplateBox[{
      "\"E = 0 [kV/cm]\"","\"E = 10 [kV/cm]\"","\"E = 15 [kV/cm]\"",
       "\"E = 35 [kV/cm]\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.175], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.175], 
                    AbsoluteThickness[1.6], FontSize -> 14, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 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], {
          Directive[
           GrayLevel[0], Bold], FontFamily -> "Arial"}, Background -> 
         Automatic, StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"PointSize", "[", "0.019444444444444445`", "]"}], 
                 ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "14"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                 RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], "}"}], 
           ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"{", 
                 RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", "True", "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                   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], ",", 
                 "Bold"}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.08, 0.99}], ImageScaled[{0.08, 0.99}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T[K]\"", TraditionalForm], 
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(C\\), \\(V\\)]\\) + \
\\!\\(\\*SubscriptBox[\\(\[CapitalDelta]C\\), \\(V\\)]\\) \
[J/\\!\\(\\*SuperscriptBox[\\(m\\), \\(3\\)]\\)K]\"", TraditionalForm]},
   AxesOrigin->{0, 0},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 14},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->600,
   LabelStyle->Directive[
     GrayLevel[0], Bold],
   Method->{},
   PlotRange->{{0., 1}, {0., 1}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0., 1}, {0., 1}}, DisplayFunction -> Identity, 
      AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {
       "T[K]", "\!\(\*SubscriptBox[\(C\), \(V\)]\) + \!\(\*SubscriptBox[\(\
\[CapitalDelta]C\), \(V\)]\) [J/\!\(\*SuperscriptBox[\(m\), \(3\)]\)K]"}, 
      AxesOrigin -> {0, 0}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 14}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> Directive[
        GrayLevel[0], Bold], Method -> {}, PlotRange -> {{0., 1}, {0., 1}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.019444444444444445`], 
         AbsoluteThickness[1.6], FontSize -> 14, 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]]}, {
       "E = 0 [kV/cm]", "E = 10 [kV/cm]", "E = 15 [kV/cm]", "E = 35 [kV/cm]"},
        LegendMarkers -> {{False, Automatic}}, Joined -> {True}, LabelStyle -> 
       Directive[
         GrayLevel[0], Bold], LegendLayout -> "Column"]], {
      Scaled[{0.08, 0.99}], {0.08, 0.99}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.640085629243441*^9, 3.640085700454801*^9}, 
   3.6400891896366997`*^9, 3.641835240947734*^9, 3.6418965141823263`*^9, 
   3.6422529349341927`*^9, 3.64849907798571*^9, {3.648499325964357*^9, 
   3.648499350366846*^9}, 3.648499387865217*^9, 3.655663766995899*^9, 
   3.655829374073276*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Pyroelectric coefficient:", "Section",
 CellChangeTimes->{{3.639334542771286*^9, 3.639334549023926*^9}}],

Cell[TextData[{
 "The pyroelectric coefficient which is defined as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["d", "2"], " ", "G"}], 
     RowBox[{"d", " ", "E", " ", "dT"}]], " "}], TraditionalForm]]],
 "can be readily approximated as ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{
       RowBox[{"E", "+", "h1"}], ",", 
       RowBox[{"T", "+", "h2"}]}], "]"}], "-", 
     RowBox[{"G", "[", 
      RowBox[{
       RowBox[{"E", "+", "h1"}], ",", 
       RowBox[{"T", "-", "h2"}]}], "]"}], "-", 
     RowBox[{"G", "[", 
      RowBox[{
       RowBox[{"E", "-", "h1"}], ",", 
       RowBox[{"T", "+", "h2"}]}], "]"}], "+", 
     RowBox[{"G", "[", 
      RowBox[{
       RowBox[{"E", "-", "h1"}], ",", 
       RowBox[{"T", "-", "h2"}]}], "]"}]}], 
    RowBox[{"4", " ", "h1", " ", "h2"}]], TraditionalForm]]],
 ". It remains to be seen in the PSTO system whether this is the correct \
approximation. Note that this is a first-order central difference \
approximation for mixed partials."
}], "Text",
 CellChangeTimes->{{3.6364731680562153`*^9, 3.636473279804455*^9}, 
   3.639334566675089*^9, {3.6393367945478783`*^9, 3.639336889101755*^9}, {
   3.639929811470517*^9, 3.6399298247595263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"0.5", "*", 
         SuperscriptBox["10", "5"]}], ")"}], " ", 
       RowBox[{"(", "1", ")"}]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"G0filmFE", "[", 
        RowBox[{"j", ",", 
         RowBox[{"k", "+", "1"}], ",", 
         RowBox[{"l", "+", "1"}]}], "]"}], "-", 
       RowBox[{"G0filmFE", "[", 
        RowBox[{"j", ",", 
         RowBox[{"k", "+", "1"}], ",", 
         RowBox[{"l", "-", "1"}]}], "]"}], "-", 
       RowBox[{"G0filmFE", "[", 
        RowBox[{"j", ",", 
         RowBox[{"k", "-", "1"}], ",", 
         RowBox[{"l", "+", "1"}]}], "]"}], "+", 
       RowBox[{"G0filmFE", "[", 
        RowBox[{"j", ",", 
         RowBox[{"k", "-", "1"}], ",", 
         RowBox[{"l", "-", "1"}]}], "]"}]}], ")"}]}], ")"}], " "}]}]], "Input",\

 CellChangeTimes->{{3.637007870577941*^9, 3.637007967948181*^9}, 
   3.637014021785489*^9, 3.6374974316236153`*^9, 3.639831975295185*^9, {
   3.641840286134943*^9, 3.64184028664001*^9}}],

Cell["\<\
Can try to plot this as a surface but that could be something more \
interesting for PSTO(perhaps with Ex Ey the dependent variables at some fixed \
temperature near the transition temperature).\
\>", "Text",
 CellChangeTimes->{{3.639338714817107*^9, 3.639338717206916*^9}, {
  3.6393387537717247`*^9, 3.6393387883305283`*^9}}],

Cell[TextData[{
 "More so, it seems that our pyroelectric coefficient is not being \
approximated properly. \n\nWhy not look at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", " ", "=", 
    FractionBox["dP", "dT"]}], TraditionalForm]]],
 "?"
}], "Text",
 CellChangeTimes->{{3.6399209568449507`*^9, 3.639920999720622*^9}, {
  3.639929834042889*^9, 3.639929834362615*^9}, {3.655829649339611*^9, 
  3.655829651721306*^9}}],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"a", ",", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.6558296526020727`*^9, 3.6558296549727907`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"a", "[", 
    RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"P", "/.", 
    RowBox[{"Flatten", "[", 
     RowBox[{"equilibFE", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "k", ",", 
        RowBox[{"l", "+", "1"}], ",", "1"}], "]"}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.639925549869165*^9, 3.639925566032957*^9}, {
   3.639925664833268*^9, 3.639925666460202*^9}, {3.639925780048731*^9, 
   3.639925780456314*^9}, {3.639925983461955*^9, 3.639925989555086*^9}, {
   3.6399263007774773`*^9, 3.639926322314803*^9}, 3.6399276137938013`*^9, {
   3.642252658374915*^9, 3.642252659008309*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"b", "[", 
    RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"P", "/.", 
    RowBox[{"Flatten", "[", 
     RowBox[{"equilibFE", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "k", ",", "l", ",", "1"}], "]"}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.639925571073412*^9, 3.639925585909132*^9}, {
   3.639925784539383*^9, 3.639925807922831*^9}, {3.639926054541913*^9, 
   3.639926066684585*^9}, {3.639926305570422*^9, 3.639926317396283*^9}, 
   3.6399276143018637`*^9, {3.6422526594646187`*^9, 3.642252659799293*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "[", 
    RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"P", "/.", 
    RowBox[{"Flatten", "[", 
     RowBox[{"equilibFE", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "k", ",", 
        RowBox[{"l", "-", "1"}], ",", "1"}], "]"}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.639926386647932*^9, 3.639926409530842*^9}, 
   3.63992761482658*^9, {3.642252660470562*^9, 3.64225266099981*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"d", "[", 
    RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"P", "/.", 
    RowBox[{"Flatten", "[", 
     RowBox[{"equilibFE", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "k", ",", 
        RowBox[{"l", "+", "2"}], ",", "1"}], "]"}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.639927419087152*^9, 3.639927440168373*^9}, 
   3.639927615333933*^9, {3.642252661511505*^9, 3.64225266198542*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"e", "[", 
    RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
   RowBox[{"P", "/.", 
    RowBox[{"Flatten", "[", 
     RowBox[{"equilibFE", "[", 
      RowBox[{"[", 
       RowBox[{"j", ",", "k", ",", 
        RowBox[{"l", "-", "2"}], ",", "1"}], "]"}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6399276127079163`*^9, 3.639927636580593*^9}, {
  3.6422526628016167`*^9, 3.6422526632574577`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroForward", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}], "-", 
    RowBox[{"b", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "\[Phi]"]}]], "Input",
 CellChangeTimes->{{3.6399257956086893`*^9, 3.639925824697254*^9}, {
  3.6399260887724943`*^9, 3.639926115085821*^9}, {3.639926302778616*^9, 
  3.639926343256177*^9}, {3.6422484767561007`*^9, 3.642248477531477*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroBackward", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"b", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}], "-", 
    RowBox[{"c", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "\[Phi]"]}]], "Input",
 CellChangeTimes->{{3.639926354440175*^9, 3.6399263604382553`*^9}, {
  3.641851201134863*^9, 3.6418512153683863`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroCentral", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}], "-", 
    RowBox[{"c", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], 
   RowBox[{"2", "\[Phi]"}]]}]], "Input",
 CellChangeTimes->{{3.6399271677742243`*^9, 3.6399271744240313`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroForwardSecond", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"d", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}], "-", 
    RowBox[{"2", 
     RowBox[{"a", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "+", 
    RowBox[{"b", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], 
   SuperscriptBox["\[Phi]", "2"]]}]], "Input",
 CellChangeTimes->{{3.64224824470415*^9, 3.6422482720619392`*^9}, {
  3.642248348095643*^9, 3.642248401580907*^9}, {3.6422485711448174`*^9, 
  3.642248571880887*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroCentralSecond", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"a", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}], "-", 
    RowBox[{"2", 
     RowBox[{"b", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "+", 
    RowBox[{"c", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], 
   SuperscriptBox["\[Phi]", "2"]]}]], "Input",
 CellChangeTimes->{{3.642248255967628*^9, 3.642248265066147*^9}, {
  3.642248593051591*^9, 3.6422486163484917`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pyroBackward", "[", 
  RowBox[{"2", ",", "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.642250316589266*^9, 3.6422503329853077`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(equilibPolFE \
\[LeftDoubleBracket] \\(\\(2, 1, 1, 1\\)\\) \
\[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partd\\\", \
ButtonNote -> \\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.642250330025387*^9, 3.642250333391425*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(equilibPolFE \[LeftDoubleBracket] \
\\(\\(2, 1, 1, 1\\)\\) \[RightDoubleBracket]\\)}\\)\[NoBreak] is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.642250330025387*^9, 3.6422503334399347`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(equilibPolFE \
\[LeftDoubleBracket] \\(\\(2, 1, 0, 1\\)\\) \
\[RightDoubleBracket]\\)\[NoBreak] is longer than depth of object. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/partd\\\", \
ButtonNote -> \\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.642250330025387*^9, 3.64225033344099*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(equilibPolFE \[LeftDoubleBracket] \
\\(\\(2, 1, 0, 1\\)\\) \[RightDoubleBracket]\\)}\\)\[NoBreak] is neither a \
list of replacement rules nor a valid dispatch table, and so cannot be used \
for replacing. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", ButtonNote -> \
\\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.642250330025387*^9, 3.642250333441802*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{"P", "/.", "\[VeryThinSpace]", 
     RowBox[{"equilibPolFE", "\[LeftDoubleBracket]", 
      RowBox[{"2", ",", "1", ",", "0", ",", "1"}], 
      "\[RightDoubleBracket]"}]}], ")"}]}], "+", 
  RowBox[{"(", 
   RowBox[{"P", "/.", "\[VeryThinSpace]", 
    RowBox[{"equilibPolFE", "\[LeftDoubleBracket]", 
     RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}]}],
    ")"}]}]], "Output",
 CellChangeTimes->{{3.642250330083088*^9, 3.642250333442328*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"100", "*", 
           RowBox[{"pyroBackward", "[", 
            RowBox[{"2", ",", "51", ",", "k"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "200", ",", "470"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"100", "*", 
           RowBox[{"pyroBackward", "[", 
            RowBox[{"2", ",", "81", ",", "k"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "200", ",", "470"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"100", "*", 
           RowBox[{"pyroBackward", "[", 
            RowBox[{"2", ",", "100", ",", "k"}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "200", ",", "470"}], "}"}]}], "]"}]}], "}"}], ",", 
    
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", ".19"}], ",", "0"}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "Bold"}], "]"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Dashing", "[", "Large", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<T [K]\>\"", ",", 
       "\"\<p [\[Mu]C/\!\(\*SuperscriptBox[\(cm\), \
\(2\)]\)\!\(\*SuperscriptBox[\(C\), \(\[Degree]\)]\)]\>\""}], "}"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"200", ",", "0.13"}], "}"}]}], ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<-0.01%\>\"", ",", "\"\<0.0%\>\"", ",", "\"\<+0.01%\>\""}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.75", ",", "0.435"}], "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.835"}], "}"}]}], "}"}]}], "]"}]}]}], "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"wierd", " ", "units", " ", "for", " ", "Pamir"}], ",", " ", 
    RowBox[{
    "100", " ", "times", " ", "that", " ", "of", " ", "SI", " ", "MKS"}]}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.639925847152276*^9, 3.639925932007011*^9}, {
   3.639926079036003*^9, 3.6399261415289288`*^9}, {3.6399263473500977`*^9, 
   3.639926347976494*^9}, {3.6399264143530903`*^9, 3.639926464377738*^9}, {
   3.639927189398857*^9, 3.639927258499488*^9}, {3.64010440278874*^9, 
   3.64010441397325*^9}, {3.641839885596743*^9, 3.641839903443226*^9}, {
   3.641840205415113*^9, 3.6418402219702682`*^9}, {3.641840252282814*^9, 
   3.641840270185925*^9}, 3.641850586505385*^9, {3.641850707250353*^9, 
   3.64185077402728*^9}, {3.641851155812152*^9, 3.6418511873092737`*^9}, {
   3.6418515705320463`*^9, 3.641851575077897*^9}, {3.641851874773827*^9, 
   3.6418518989031887`*^9}, {3.641896610521812*^9, 3.6418967769476843`*^9}, {
   3.6418968161075277`*^9, 3.6418968622417603`*^9}, {3.641896906453846*^9, 
   3.641896930104892*^9}, {3.641896977852544*^9, 3.641897026494813*^9}, {
   3.641897098552535*^9, 3.641897107614593*^9}, {3.6418976846357527`*^9, 
   3.641897707324766*^9}, {3.6419120525223227`*^9, 3.641912201101262*^9}, {
   3.641912344927938*^9, 3.641912357366795*^9}, 3.641912529610669*^9, {
   3.642250276538455*^9, 3.642250285144971*^9}, {3.642252638951207*^9, 
   3.6422527276083403`*^9}, {3.6422529571419907`*^9, 3.642252959006043*^9}, {
   3.6423353005064287`*^9, 3.642335316681929*^9}, {3.655663795735717*^9, 
   3.655663811635631*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw12HtcFFUbB/BFJRRRVzHF+1iE4HWzxU9q6M80U0Bd76CFK+QN2GV22fsu
OhoKauhSavIWsGgmSNoqYoCX1kTB1NpSCe/rLcVSV5cEL+g779tz+IfP93PO
md88zMyZZ+ifmDZjUSuJRNLJTyL53+9/f5bBE3Hi0ao/v//x/+SWgSuduXN7
MxmiP+3ur/F3/mvlMrgyBg8v7EgWlsFtjhcudyc7lsH7RHg9oj/ZJR5/aXP3
1QPJnmXgHWv3eN8hS5LhbKuTpEaRuWQoOqojmyaSIY7Hf6v/XMHyk+EZfLwh
ah7LT4a97H7V0ySWnwx++o9dTqhYvrjeN6fXdiPLTwYXr3hlX8nyU+BeXNOw
cT3LT4GMj3/NsZnlp8AlhK08WsjyU+DN/31NYwnLTwE6ZU0YuZ/lp4D/yndn
4xGWnwKuelphcy3LT4G0eX5e+lmWnwr+bKK/31WWnwrJiFHBRXdZfirs1gm+
mT6WnwpZlqaux0uWnwqPb+yDx233Un4qFG2PpF4LJrvE8ZPrMq/1JXtSIfjq
lvoiyBIVPHcWTekVSeZUkH22YfFckKECF/Few84YslIF6aCHgR3mkgUVlLcP
+2UlsnwV+PDZbbqpWb4Kwv3myVVmli/mncoM1K1m+Wq4tanLx+eyfDUcTQev
huezfDWcXMii0BKWr4Ys90jMiHKWrwZ3cvWZhKMsXw1P2JW3Cs6wfPF4Zaft
jRdYvri+pjE68U+WnwZPZU7unccsPw2SiCXbMl+x/DRwU+8cHBm0j/LToOwR
2CegB1lIA++v9L//FtmRBniDyv8aTnalwbnxRGprkD1pcP/yu0o+hSzhIbni
/2z5PLKUh6yja+bNJWSOh8P21+GFerKMhzL+qfXZKjJE+67+tttOVvDwruvS
xlbAzpeH1Jk1d9F3ZJ4Ht6C0c3IVO38eQvUC07pasp0Hv7bptxN1rB4eriuy
Rf1uk53i+hvDzJt8rD4eiium2WGtyv61m4e7vGHceSnZw8POla0p6kf2iuuH
TE9dP5Qs0UAx6tPRX0SRpRpIFo+Pqowlcxrw8w5XtcwnyzTgZk9oUaaQoYFj
26SpNy1khQZOeWxT5jqyUiPeL3XjJv6HzGvgvrDEOGAXWdBA2ZB8PbyKbBfH
d4edjP6Z7NDAO22PMeci2anB3dXuyEf3yC4NQvb6xxqes/rF+dc/atUnaD/V
L9bz/RLH7d5kr1jvtlCVewhZogU23N1zZQxZqoV94MTSDgoyp4V3ReO3yoVk
mRbu5WW367RkaCH0HLaLzyQrtFB+6YkcuoWsFMdf3K/tVEzmtVAUBmx7vYos
aCErHP9y7GmyXcx/rylk41WyQwvJi5xBrR+RnVrwigTV163LqX4twj3W4Pnd
yG4t4rplKcZGkD1ifX6WWZPfI3vF9WO0seZpZEk63B5j4q+JZGk6vAPHHY4x
kLl0KP54vOLBWrIsHfyTyyd/yCcjHU5/+YGde8mKdHG/OjH/yHGyMh3CR9+d
fn6BzIvz5zS9rnxAFsTx5rlj/2p1gOoXj9/tWHR+d7JDnD9FKjcMJjvTIXV/
4dWPI7vS0Xxkn/rrOWS36BbN5oYUskecH/lq/McryV7x/PLfmd60hSzRgS+S
rv/hO7JUB8XOyAP5P5E5HaTyaTkl9WSZDpI9y10XH5Chg6y6qlHm/wPVL44P
CD9W2ous1EHomlwRPZzM6+A6eG9mh8lkQQfP3Z4BvgVku7j+VrH8uYHsEMc7
7Bn21gayUyfuf2dH8TvILh3sq5KzLh0iu3XIlq6ULz5H9ugQEnRrSqe/yV5x
fkifU+dbV1D9elRMTNpQ0YssFT1/ZdKBd8icHrKAvS/PxJBlejglKc9bksjQ
I+7SoEsTbGSFHne/HtKmaBNZqQcv7eaS7ibzeijv5I36/DhZ0MP+c1fhzatk
u5j/eTfbT0/IDnH9w9tNqZ0qqX49wpubt3LhZJcetU+Srl0E2a1HvWxsaF48
2aNHcVKbrXFaslcPr+sWuq0nSwyYlB3y9JftZKkBzqURqhWHyJwBQuDInqHn
yTID4uZ9EFt5nwxx/pTU3qNfq6L6DXBMezttR1+y0iDupyce+0aQeYO4X83v
88Y0smAAQk2DBi0h20XPSugbuILsMIj92Mqqyi1kpwGuiPZr5HvILgPaHl1e
oztOdhvQ/D6fqbtM9hggvb5QGOIjew2wb6sendfuINVvBGcK9Tn7kaVGTHqa
WaCKJHNGZAf/462JJsuMMN1YEFexgAwjJJuLWkboyAojQuR3qkdnk5VGFOco
px75iswbUb8rpql8D1kQ5w9feKnHUbLdiHfVJXWe38kOI4S4o1l+t8hOIxzc
lzO0jWSXEVDtSIpoc4jqN8IVvL+sdzDZY4T719Cg9/uTvWJ95b+13ziULDGh
2bpq8NNRZKkJ2ede1OonkjkTJHX73nymIMtMUHzRWW2dR4YJbSN594NEssIE
V0mBdnIyWWmCvX/n1QJP5k1wlG6PXqsnCya8m/jwjXgz2W5C7dDwzbetZIcJ
mG6aH5pBdppg6nxa3Z7ZJc5vaemSy+a7xeNvmn6z1MTqF4//94BrM3SsfrHe
nD8MGWpWvxku34atby5h9ZuRXRF2OCqB1W8GPqxprJ7J6jdDIp/g2/chq9+M
SYaOvVuxv5/CjObwgpzdA1n9ZmztJR+8twer3wz3o7Ol7QJY/WYUD4vL2/+Y
XX/xeI9XJTovs+tvRtwvDz96Uc2uvxlCzZlTW0vZ9Teja0P0rTV2stuM6k8L
3LXpZI8Z9eXb9i6cTfaawdc9KpjN7m+JBc56YUdJMLv/Lbg7cH91kpeeF86C
Tz541LDuFFlmwaT6snthO8iwIDR4eAYy2PNvgSLEMez6TPb8i8erDUsIjmDP
vwXNb3w74MYL2j8EC5QHEhbG/0q2WyD4Fa1d7SA7LAg6ur0ynWf7nwVxad9s
eXss2/8saPOJ4f0zQWz/s8B1bkfM7Au0f3oskI6elV//Ddkrnl8nn3pxGtv/
rbjb10/ecSTb/63g291ff82P7f9WvHssavi9k/T+kFmRXdnvYVQuGVZcTtZm
35vL3n9WyHallb3qw95/VmTaWwXk3KT3JW+FM/D6g6JismDFZ2XGwikq9v63
Yr96f2Dh2+z9b0XbAZXnv/mH+gWnFZL7tmmqStb/WKG4nLD0tQzW/4heU7or
A6z/sSLuZRe5h/VLXrHeze2do2pY/2dDxZBeM/PWsf7PhsZJr+oCprL+z4bY
fbuMuZ1Z/2dDXM+Oj3Ce9b82QO7I4PJY/2vDIS7v/MiPWf9rgyPm3NAt/Vn/
a8Om8pioMX+y/t8GaUI/+ahS1v/bEF7SqyaXZ/2/DUGFewfHjmD9vw1dE2dx
/Av2fWWDLHnY7dbHyG4b6l0RkzusY99bNpy+NbA4dzrZK45XbHm4uQf7/srA
6cVPivreoO9ZaQZ4b/XFYaXse1j0iTkzzujIsgx4l5xb+GwM+z7OgOw6Aqra
kRXi/BeBZ/vsov9fKDOA8qcVT8Z9/+N/AXGY5ms=
         "]],
        FontSize->24]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Large], 
       StyleBox[LineBox[CompressedData["
1:eJw913lcVOUaB/DjLkI6JrlBNd40RCwGr6F+XPjhdcdl0EyWslEkWYcZZh8G
mwgVFXM0LaDISU0xUAfMJRUZJZNcJzPF1D7jgliBjspNyO2+9/Y8l3/4fD/n
nPd5f7yH933OgIVZs5PbS5LUo50k/ff33z+pUPk3F6fd2FnzP8pT4WxO3nHj
Phni+uwvR2jb7/rbqlRIO4sSez1PtqfCHZwy5sQAslM8f3v6kw0RZLfwtC1H
jNFkrxjvx98qMmLJUhqcV/dcNy0gy9OAtoPLirRkpME78IdDZz7g+mmQpKNl
/ddx/TTY65xq2yaunwZ5oW5YSxXXF/bG982r5frC+/MmvHqe66fD3mfIZe9N
ri+8+ROp6t9cX3jFqqbpHVxUPx2+6vcnnPIn29PhnDmn/7xAsjMdnswIe3Mw
2Z0OFP2rYM0gsjcd0nOuCWNfJ0sZUHQqOv5nJFmeAXn33q8ciiIjA76BY1JX
T+H64v5zPSvSYrm+cMS6J3MSuH4G4NmeNTWJ6wsXDg+MyeD6GVDFPHocZ+D6
mVCWVo7WLeH6wlEPrhUv5/qZkEqi2512cP1MeFul8oASrp8Jzy8GX9xmrp8J
990j1ysruH4mZEHX1vXZy/Uz4ZiztefKGq6vhnvc/iy/H7i+Gri6unrDOa6v
huZmmn/4Fa6vhrPf26k/N3B9NeTv/rOx4C7XF+PVfLh+ahvXF9dHlNr7dKik
+mp4ZhUcuB9AlrKgKWsXe7k3WZ4F+zDD7B/lZGTBF9t26vwQsioLyiNTzzQM
J9uz4Ik5mtQxiuwUHhtfophKdmfBUVO8JG0O1xfjXSoNrnqH62vgnNzV3iWF
LNPA1+3p7rRsno8GMs/LtZdtZIUGki9vX8Jynp8GePPrksa1ZKUGrjtLDHmf
83zFeP5TlGHbyBoN3NGbh12v5PlroOhve2XbIbJDA29Kh1Drcc6jgT1x65TE
c2SXGC+40/JpVzmfmN+w3xon3yZ7xHxMo9VzHnBeMd63bUGZT8k+cX9L2P31
flWUXwvlgEu+E4FkmRaoetS7h5ws18KXb1i4IIysEPfbOniORJKhhatMkagY
T1Zqobo65WnFDLJKC3fbtKoR8WSNFlLBL2rPIrJdC8djxRCThuzQwvlm90th
NrJTXB+/XX1nOdmlhefoF1cOf0x2a6Hod+350o1kjxaacVufFZSTvWK+381d
k7eP7NPCfsdQsaKW82dDs6go6ouznD8b8vaTwt2XOX82VEN+f/duI+fPhnN2
9e6wFs6fDd/Fnd0M0m7Knw1X6MzxJwPIKjFe6O43Xu9H1mQDPydXlw4i27Ph
6TtxV79hZEc2ZDcyfv1yHNmZDUdmUFBkDNkl5rtxw7AL88jubCh3dLv7wSKy
R8yn1thnlJbsFW7Oz3qUS/aJ5x9n7atbSZZ0qC+6Xu78lCwTTrzQ6cMtZLkO
7k7Z1qxKskKHup23DiQfJkMHc7/p+uSTnF8Hb1vOLHU959fBN7HJ934D5xfX
iwtai+9zfh2kD1a2O/SM84vxbyg3NQR8Q/nF+DGRGb37k106eOLf+2NGCNmt
g7JH1dZVw8keHWSjkl4+G0326lB2qfuPfWaRfToUrXovIvltsqSHvZufa28q
WaaHrzJ2r7+JLNdDNShkW1I+WaEX++kPv1avJUMP5cDSqn4byUo9PLf+0hgr
yCo9pNiHqp++JWv08EaGHw0/TraL8aPXnlp5nuzQw/16iOvGNc6vh7Pk1/Wj
7nJ+PVJiYktWPeb8euz3W32x3m8P5Rfj4XKCvA/Zq8ft9ILQBQPJPj3K4suj
SiLIkgGqwqY1J8aRZQbxPs3ocC+GLDfAlXbPHBBPVhjg+/LGsaD3yDAAk65/
86KOrDTA6Xu1c087WWWAZk1EVkshWWOAJFtf8n0x2W5A2bqakGVbyQ4DZCE/
fR2xm+w0oG9CRsXxGrJL3N9s2T7pFNltwOBbsl476jm/Ad5xE2a23eT8Yr7r
n+0Ovcf5xfOBDY4xTzi/ESM7hw9S+O2l/EYURW/Y0v4FstwIz8PIyCo5WWGE
OWxFy5ihZBjhHD6t2TmCrDRCVmMdcGU8WSWer3x7adMMssYI+3yz5Ikj240o
sJVl5ieRHUa0Tn3tsy5qstOIOPXxafPMZJcR8P4Soc0ju8Xz+SVtswvJHiMc
x8ZE/bWB7BX1zoxav2gj2WeE4sDHS9aUkSUTZDNDLeZKzm8S69urJfgA5xfX
x/eYaz3K+U2wd7z3cPUJzm9C1/iQ8LnnOL8J+3tPmXD6Euc3QakuNz/wcn4T
FCMDOx9r5PwmeP9MfjnqDuc3QX4y5d78Fs5vwpSvPts84C/Ob8LgY4Hx+c84
vwmO7zQR+R33UX4T6uSeqS/5kb0mpCTcqJ71HNknxlvaafsLPcmSGeYBySGZ
gWSZGdJLo+fN6UOWm+Fc3iPhWD+ywgyU+r/lDiJD+FicKfpFstKMgspV9ya+
RFaZ0RoW1O4kW2OG96NrTafZdvF8UFmX6WyHWfR/ByvH83hOM2SpyxJ2cT2X
GZ6PIvPW8HzcZij2Lzjo7c35zZBnVVU4e3F+M8rmbXj+dA/Ob8ZtQ6M7yZ/z
W+BM3LxlYWfOb4Fr3apjxyXOb4EPnslr+e+vENfn7cysfsDrb0FZaOfiaU28
/hZ4lzVOH3GT19+C/Yk9w/Mu8/pbIPt+od8Qfl/sFqg+G33ytTpefwvc6SdW
Flbz+ovxnpu0bGIVr78F0h7ZoLitvP6i/rWjrbXF/P5bEDcy+HAB/z94LfBc
qH9n6xJ+/y2Qz09tDtbw+29FvbpwV5OK338riuLqAnvH8vtvRdea2oPF4PxW
3NbYtOZwzm+FYkVixO4XOb8VLv2rg2L8Ob+4PunUluhW3v/E8/YekUW8P9mt
2N8poFDp4f3PCndd8bKMg7z/WTFYUxhx5yve/4RPemovruH9z4qUhpQvwiy8
/1lhrp0c07SA9z8rnEO724Kn8f5nhXRpe9ea/+//OZB21Ddf6Mv7fw5aj6+N
WfyMz78c2OPeStI18PmXg/rBGZ88PcHnXw6cAzouCnDx+ZcDz4OZi53r+fwT
44/Im3vYzOdfDpDgeZTK5689B4fOzB27LYrPvxzY6p/IrP/g8y8HLXEL3r/V
kc+/HJwP2uT03eL+Rzx/bkLJ53Xc/+RA/kZA6Z3t3P+IevMvXv+d+x1fDuI2
La3YkM79jw3KK9eiHnB/JbOhbMinDV2Gcv9jw9DbisaL/tz/2DCmJGT14j+4
/7PBm/Q4+OAJ7n/F/e8uunhhO/e/Nniw9M/DBdz/2hA4aUKFaTH3vzYErC2T
d5rE/a8NXatiNekDuf+1oW9wh/Kd7bn/tWF48MRz57zc/9twZU9Q/eXD3P/b
ID/4U+lp/v7w2qAYc+t+uZX7f5v4/7//sTWOv39ycd7vTOjYSP7+yUW+oXzK
w178/ZOLkRlvZVXco+85RS5wZGln1Vn+PsxFa+p41Qs7yMpc+IKS9p1dyd+L
uZh+ISh8XYqr5j9WBOH9
         "]],
        FontSize->24]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025], 
       StyleBox[LineBox[CompressedData["
1:eJw9l3tY1FUaxwcUwbQYFQXJy8+8kYiO7qpgQl/MBEFlvKCgWRMCcuc3zDAz
MKCDgSKpDSFe1qwxXcVscQhNopBRKAkxB00hpRxSWe8OKiKisme3867/8Hye
3znv93yeOZ7znlFRqYtjHCUSiauDRPLfv3/9iwc++zbOd2Fp9f9QiIei8EHJ
3Pc4Ix6mu5vaoxM4K9j37QHhRTrOBsa3StoaN3A2sfGb5lQIxZwt8RD6JLas
28fZxjh8UcyDMs6SBNi2OsWkWig/ASaPpHs9v1B+AiRj/KV7f6d89t3qcHXx
XcpPAFYMSBzcTfmMR2z98WbfIzw/AYbCqJ4GD862BCicA948NZ6zJBHIK1xS
N52zkAjD2M1br77LGYmQ3HG/7RzOWZEIU8PF9MBozoZEWPw9AzerOJtYPbdb
K26up3zG5e2N4Z9SfiJsjQVHf91L+Ukw+ZZKY8ooPwlC6uNHfU5SfhIsjsbE
SivlM34YnLvORvlJUDRqQ5bZKT8JxoWSmJESM89Pgnh93MZhLpxtjMPHFr4h
5SxJhsllcv4UD85CMmzBU5XzBM5IBoIuyhO8OCuSIXFTeW+TcTYkQ17o4XTa
l7MpGTKnnFbHQMpn9ToH1gbNo/xkCHtajhQvovwUSCKMB+9GUn4KLA45/5of
RfkpECd8XnMsgfJToJgs3hmvovwUyKe6jdunp/wUSJ/MUI/PpfwUmIoHXzq6
mfJZvf6poaHFlJ8K8adNF27vofxUmJrfTC46QPmpMHpvGfLuEcpnXBh7tuc4
5afCVti8tcZC+anAGHG58WfKT4UQMnJ07HnKT4U5csa9OVcoX4QsbLV54nXO
UhHyur2xw+/RekRIbgT0dX/CWSbC1HPWOLSH1ifC8vrojjEuZX+xXIRt6Xwf
vwGcFay+tWDyMk/OogizNbRdP5qzQYS4aNSaryZyNrJ6hZW5rdM4m0QYIltm
jXqbs5mtzyUyJz6Ys4XVV7q8U7mIs5WtT1utHLSSs42tJzrouTqas12E0S3c
+kcyZ4kS8kvrLsu1nKVKyPr79jlj4CwoIeyo8l9QwFnGvv97cEJTEWcwvuag
it9D/kooMh8F9DpI/ozbHcv3m8lfCcO9a98sqCR/Jczel4WXNeSvhEVS+vux
s+SvhDXZVKduIn8l7IM+qJ7ZSv6s3v7OPc53yF8J+J8JuPKY/JWwzczJPPaS
/JWQtnWN3+7yDfdPg/gdhmUP5CxNA5atnZAwjLOQBsWbt0evGsdZlgZD1fdN
4TLOSIPl4OuDls7kLE+DdJbb3uVzOCvY/IacEMVCzmIa5IccLyVHcDakwau8
zdkQxdmYBl/ziC+3J3E2sXrTvKPLNJzNrN7b/fpZDZwtbL3ZExY9LOBsTYPL
1LD77sWcbWx9zRt34AvO9jQ8jfToSTxE/ipYndf8uquc/FXwnXar5ucq8lch
P9dV232a/FWQXp+ybdJ58lfBPFd/IqqF/FWw975YvKON/FUw9Dr/bYOd/Nn8
wl2VDt3kz8Z3NU6f7lTO/VUQnxdUxbtyNqkgXBr/++6hnM0qmBbPExpGc7ao
YMw4/uozH85WFSyzQ73G+nK2sfldTffnz+ZsV0H2lVuLOJ+zRA1zfF6scRln
qRo3c6MlhxWcBTUktR+7WxI4y9SQ7V01+JyaM9So21r6ftNaznI2fnnpkuZ8
zgo1pF82hjV+yllUQ9j//aGTn3E2qBHcz6u85AD5q9l5erEiz0z+ajSXpjhG
VJK/mu1v3fkRteSvhjjOL/a3s+TP8ieWdGxoIn81XFwiyse1kr8auu3RDcdv
k386pFWKOL/H5J8OjHz30FcvyD8dQt0Hh19xPsr902E6OicvQsoZjLdUBxUN
5SxPh0L704vv3uCsYPVmpnx9xpuzmA55xdXFp//O2ZAO6/WFtw/7czay9YQ/
itHN5WxKh0zrWO4dxtnM6psPV9Qu52xh9RYOiZit4GxNh2H3h0n74jjb0mEe
drC+TeRsT0fwyJ7AfhmcJRrEfbtxt2sOZ6kGCEv5x8N8zgLjzu7ub4zkr4F9
y35t2E7y18B8zqP6py/In40vX7nW/SD5axDRcnklSslfA5eigqdvHyN/Dawh
Tna3H8hfA+FEaXPVKfLXQN55+R2/n8mfjUdXVd458tfAOKnml70XyV8DxYXU
ro+vkL8GpmV3fpjdSv4ayDoGbqttI38tLJs6Olzvkr8WthMey0a3k78Wdc9P
jXnRQf5aSL1Dzu1+Rv5a3AxaY3nxkvzZ/O6tilG9jnF/LRQ+YUOcnDmLWtiz
y+YefIWzQYud9i/D+7zG2ahFhVZxQBjA2aRFyY6bux8P4mxm9R4qdxmGcLZo
EVzd5ljjwdnK8j1j/Cs9Odu0wPOaI9HDONtZfsuwGstwzhIdrJWR1xpGcJbq
EBF3et3GkZwFHTxeHO73gFimg9mh9aWDwBk6CEuVl07Qdzn7vmDm4DHECh1M
9k/myKi+qGP3wbXHrbQegw7SSSknZrxO/jrII38LlA0lfx0kE+571ZOvmdXv
CRzf24382fiJN561SMmf1TswIHnJq+TP5sf9tji2L/nrIN65sMXNifwzYFpe
33+VhPwzIK/8sCGgm37/DNiOn2qq+P/vnwHBL2Be/QP6/dn81Pshabfo92ec
u8Td/Cft/wzYN93pWk/7UcyAeKs27PYF2v8ZqPvxlfwbZ2j/Mz5bMEZdQ/s/
A7Kzf6ssrqT9zzhjc/u8Mtr/GZA+G7XRSP/frGz9O+6Fxu+h/c/4pXnsr5/S
/mdsC3Zt3Ej7PxO+Izo8FFm0/zPxVNwel0PnhZAJRYfNb1o0+Wey99NHf+jp
/EEm7CtmnwgPIX/G612W18wifzY+99asHyeRfyYsnwz1fE8gf8YzmkvzB5B/
JnvvLWwMdST/TMjdVicfeEjnP6t/Tp+76086/9n4nLd8xp2n8z8TCPQpWnCS
zn9WPyf2iZTuE3smZAOGH1Z+Tue/HiV3pwxVbqbzXw+rZ9n30kw6//WweQQJ
i9fQ/adHnN/XbdOX0v2nh2xDH4sFdP/pIWybndI+ke4/PW72iq6p96D7j80f
9ItpYW+6//SQCnlP1j6g/oflb4g/teoy9T96WMqTXO/VUv+jh67vyceTjlD/
w/JDnYrH7qL+Rw95WNLwC+up/9EDO1tr/aifsrP5R73PrAyn/icLXjf6694K
oP4nC6YnUZ5XqN8TsvD0wlxnf1fqf7KgKJ64a3Un9b+Mv+49edFV6n+zYLe9
7+1ymvrfLMhNnzwqKKX+l+UFNd+/Ukz9L6vfqyjvRRb1v4wrooSHq6n/zUK+
Zs34H0Ko/81CSafW4f0p1P9mQbdHMeiyO/W/WTDO8qqe+pLeO2z+GytXJ9D7
xs7Wu++9FR/V0/snGy1rq7vWmen9k41t8/5ZGLWd3j/ZmOU1Nskni94/2Tja
+V3Dnx/S+ycbca9VPMgN4izPhlha33eID73XspHvnxG0c6C5+j/UotgV
         "]],
        FontSize->24]}}, {}}, InsetBox[
     TemplateBox[{"\"-0.01%\"","\"0.0%\"","\"+0.01%\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 24, 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {}}}, 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], {
          Directive[
           GrayLevel[0], Bold], FontFamily -> "Arial"}, Background -> 
         Automatic, StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "24"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "24"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "24"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                   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], ",", 
                 "Bold"}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.75, 0.435}], ImageScaled[{0, 0.835}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T [K]\"", TraditionalForm], 
     FormBox[
     "\"p [\[Mu]C/\\!\\(\\*SuperscriptBox[\\(cm\\), \
\\(2\\)]\\)\\!\\(\\*SuperscriptBox[\\(C\\), \\(\[Degree]\\)]\\)]\"", 
      TraditionalForm]},
   AxesOrigin->{200, 0.13},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 24},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   LabelStyle->Directive[
     GrayLevel[0], Bold],
   Method->{},
   PlotRange->{{200., 470.}, {-0.19, 0}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 24, 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw12HtcFFUbB/BFJRRRVzHF+1iE4HWzxU9q6M80U0Bd76CFK+QN2GV22fsu
OhoKauhSavIWsGgmSNoqYoCX1kTB1NpSCe/rLcVSV5cEL+g779tz+IfP93PO
md88zMyZZ+ifmDZjUSuJRNLJTyL53+9/f5bBE3Hi0ao/v//x/+SWgSuduXN7
MxmiP+3ur/F3/mvlMrgyBg8v7EgWlsFtjhcudyc7lsH7RHg9oj/ZJR5/aXP3
1QPJnmXgHWv3eN8hS5LhbKuTpEaRuWQoOqojmyaSIY7Hf6v/XMHyk+EZfLwh
ah7LT4a97H7V0ySWnwx++o9dTqhYvrjeN6fXdiPLTwYXr3hlX8nyU+BeXNOw
cT3LT4GMj3/NsZnlp8AlhK08WsjyU+DN/31NYwnLTwE6ZU0YuZ/lp4D/yndn
4xGWnwKuelphcy3LT4G0eX5e+lmWnwr+bKK/31WWnwrJiFHBRXdZfirs1gm+
mT6WnwpZlqaux0uWnwqPb+yDx233Un4qFG2PpF4LJrvE8ZPrMq/1JXtSIfjq
lvoiyBIVPHcWTekVSeZUkH22YfFckKECF/Few84YslIF6aCHgR3mkgUVlLcP
+2UlsnwV+PDZbbqpWb4Kwv3myVVmli/mncoM1K1m+Wq4tanLx+eyfDUcTQev
huezfDWcXMii0BKWr4Ys90jMiHKWrwZ3cvWZhKMsXw1P2JW3Cs6wfPF4Zaft
jRdYvri+pjE68U+WnwZPZU7unccsPw2SiCXbMl+x/DRwU+8cHBm0j/LToOwR
2CegB1lIA++v9L//FtmRBniDyv8aTnalwbnxRGprkD1pcP/yu0o+hSzhIbni
/2z5PLKUh6yja+bNJWSOh8P21+GFerKMhzL+qfXZKjJE+67+tttOVvDwruvS
xlbAzpeH1Jk1d9F3ZJ4Ht6C0c3IVO38eQvUC07pasp0Hv7bptxN1rB4eriuy
Rf1uk53i+hvDzJt8rD4eiium2WGtyv61m4e7vGHceSnZw8POla0p6kf2iuuH
TE9dP5Qs0UAx6tPRX0SRpRpIFo+Pqowlcxrw8w5XtcwnyzTgZk9oUaaQoYFj
26SpNy1khQZOeWxT5jqyUiPeL3XjJv6HzGvgvrDEOGAXWdBA2ZB8PbyKbBfH
d4edjP6Z7NDAO22PMeci2anB3dXuyEf3yC4NQvb6xxqes/rF+dc/atUnaD/V
L9bz/RLH7d5kr1jvtlCVewhZogU23N1zZQxZqoV94MTSDgoyp4V3ReO3yoVk
mRbu5WW367RkaCH0HLaLzyQrtFB+6YkcuoWsFMdf3K/tVEzmtVAUBmx7vYos
aCErHP9y7GmyXcx/rylk41WyQwvJi5xBrR+RnVrwigTV163LqX4twj3W4Pnd
yG4t4rplKcZGkD1ifX6WWZPfI3vF9WO0seZpZEk63B5j4q+JZGk6vAPHHY4x
kLl0KP54vOLBWrIsHfyTyyd/yCcjHU5/+YGde8mKdHG/OjH/yHGyMh3CR9+d
fn6BzIvz5zS9rnxAFsTx5rlj/2p1gOoXj9/tWHR+d7JDnD9FKjcMJjvTIXV/
4dWPI7vS0Xxkn/rrOWS36BbN5oYUskecH/lq/McryV7x/PLfmd60hSzRgS+S
rv/hO7JUB8XOyAP5P5E5HaTyaTkl9WSZDpI9y10XH5Chg6y6qlHm/wPVL44P
CD9W2ous1EHomlwRPZzM6+A6eG9mh8lkQQfP3Z4BvgVku7j+VrH8uYHsEMc7
7Bn21gayUyfuf2dH8TvILh3sq5KzLh0iu3XIlq6ULz5H9ugQEnRrSqe/yV5x
fkifU+dbV1D9elRMTNpQ0YssFT1/ZdKBd8icHrKAvS/PxJBlejglKc9bksjQ
I+7SoEsTbGSFHne/HtKmaBNZqQcv7eaS7ibzeijv5I36/DhZ0MP+c1fhzatk
u5j/eTfbT0/IDnH9w9tNqZ0qqX49wpubt3LhZJcetU+Srl0E2a1HvWxsaF48
2aNHcVKbrXFaslcPr+sWuq0nSwyYlB3y9JftZKkBzqURqhWHyJwBQuDInqHn
yTID4uZ9EFt5nwxx/pTU3qNfq6L6DXBMezttR1+y0iDupyce+0aQeYO4X83v
88Y0smAAQk2DBi0h20XPSugbuILsMIj92Mqqyi1kpwGuiPZr5HvILgPaHl1e
oztOdhvQ/D6fqbtM9hggvb5QGOIjew2wb6sendfuINVvBGcK9Tn7kaVGTHqa
WaCKJHNGZAf/462JJsuMMN1YEFexgAwjJJuLWkboyAojQuR3qkdnk5VGFOco
px75iswbUb8rpql8D1kQ5w9feKnHUbLdiHfVJXWe38kOI4S4o1l+t8hOIxzc
lzO0jWSXEVDtSIpoc4jqN8IVvL+sdzDZY4T719Cg9/uTvWJ95b+13ziULDGh
2bpq8NNRZKkJ2ede1OonkjkTJHX73nymIMtMUHzRWW2dR4YJbSN594NEssIE
V0mBdnIyWWmCvX/n1QJP5k1wlG6PXqsnCya8m/jwjXgz2W5C7dDwzbetZIcJ
mG6aH5pBdppg6nxa3Z7ZJc5vaemSy+a7xeNvmn6z1MTqF4//94BrM3SsfrHe
nD8MGWpWvxku34atby5h9ZuRXRF2OCqB1W8GPqxprJ7J6jdDIp/g2/chq9+M
SYaOvVuxv5/CjObwgpzdA1n9ZmztJR+8twer3wz3o7Ol7QJY/WYUD4vL2/+Y
XX/xeI9XJTovs+tvRtwvDz96Uc2uvxlCzZlTW0vZ9Teja0P0rTV2stuM6k8L
3LXpZI8Z9eXb9i6cTfaawdc9KpjN7m+JBc56YUdJMLv/Lbg7cH91kpeeF86C
Tz541LDuFFlmwaT6snthO8iwIDR4eAYy2PNvgSLEMez6TPb8i8erDUsIjmDP
vwXNb3w74MYL2j8EC5QHEhbG/0q2WyD4Fa1d7SA7LAg6ur0ynWf7nwVxad9s
eXss2/8saPOJ4f0zQWz/s8B1bkfM7Au0f3oskI6elV//Ddkrnl8nn3pxGtv/
rbjb10/ecSTb/63g291ff82P7f9WvHssavi9k/T+kFmRXdnvYVQuGVZcTtZm
35vL3n9WyHallb3qw95/VmTaWwXk3KT3JW+FM/D6g6JismDFZ2XGwikq9v63
Yr96f2Dh2+z9b0XbAZXnv/mH+gWnFZL7tmmqStb/WKG4nLD0tQzW/4heU7or
A6z/sSLuZRe5h/VLXrHeze2do2pY/2dDxZBeM/PWsf7PhsZJr+oCprL+z4bY
fbuMuZ1Z/2dDXM+Oj3Ce9b82QO7I4PJY/2vDIS7v/MiPWf9rgyPm3NAt/Vn/
a8Om8pioMX+y/t8GaUI/+ahS1v/bEF7SqyaXZ/2/DUGFewfHjmD9vw1dE2dx
/Av2fWWDLHnY7dbHyG4b6l0RkzusY99bNpy+NbA4dzrZK45XbHm4uQf7/srA
6cVPivreoO9ZaQZ4b/XFYaXse1j0iTkzzujIsgx4l5xb+GwM+z7OgOw6Aqra
kRXi/BeBZ/vsov9fKDOA8qcVT8Z9/+N/AXGY5ms=
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 24, 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw913lcVOUaB/DjLkI6JrlBNd40RCwGr6F+XPjhdcdl0EyWslEkWYcZZh8G
mwgVFXM0LaDISU0xUAfMJRUZJZNcJzPF1D7jgliBjspNyO2+9/Y8l3/4fD/n
nPd5f7yH933OgIVZs5PbS5LUo50k/ff33z+pUPk3F6fd2FnzP8pT4WxO3nHj
Phni+uwvR2jb7/rbqlRIO4sSez1PtqfCHZwy5sQAslM8f3v6kw0RZLfwtC1H
jNFkrxjvx98qMmLJUhqcV/dcNy0gy9OAtoPLirRkpME78IdDZz7g+mmQpKNl
/ddx/TTY65xq2yaunwZ5oW5YSxXXF/bG982r5frC+/MmvHqe66fD3mfIZe9N
ri+8+ROp6t9cX3jFqqbpHVxUPx2+6vcnnPIn29PhnDmn/7xAsjMdnswIe3Mw
2Z0OFP2rYM0gsjcd0nOuCWNfJ0sZUHQqOv5nJFmeAXn33q8ciiIjA76BY1JX
T+H64v5zPSvSYrm+cMS6J3MSuH4G4NmeNTWJ6wsXDg+MyeD6GVDFPHocZ+D6
mVCWVo7WLeH6wlEPrhUv5/qZkEqi2512cP1MeFul8oASrp8Jzy8GX9xmrp8J
990j1ysruH4mZEHX1vXZy/Uz4ZiztefKGq6vhnvc/iy/H7i+Gri6unrDOa6v
huZmmn/4Fa6vhrPf26k/N3B9NeTv/rOx4C7XF+PVfLh+ahvXF9dHlNr7dKik
+mp4ZhUcuB9AlrKgKWsXe7k3WZ4F+zDD7B/lZGTBF9t26vwQsioLyiNTzzQM
J9uz4Ik5mtQxiuwUHhtfophKdmfBUVO8JG0O1xfjXSoNrnqH62vgnNzV3iWF
LNPA1+3p7rRsno8GMs/LtZdtZIUGki9vX8Jynp8GePPrksa1ZKUGrjtLDHmf
83zFeP5TlGHbyBoN3NGbh12v5PlroOhve2XbIbJDA29Kh1Drcc6jgT1x65TE
c2SXGC+40/JpVzmfmN+w3xon3yZ7xHxMo9VzHnBeMd63bUGZT8k+cX9L2P31
flWUXwvlgEu+E4FkmRaoetS7h5ws18KXb1i4IIysEPfbOniORJKhhatMkagY
T1Zqobo65WnFDLJKC3fbtKoR8WSNFlLBL2rPIrJdC8djxRCThuzQwvlm90th
NrJTXB+/XX1nOdmlhefoF1cOf0x2a6Hod+350o1kjxaacVufFZSTvWK+381d
k7eP7NPCfsdQsaKW82dDs6go6ouznD8b8vaTwt2XOX82VEN+f/duI+fPhnN2
9e6wFs6fDd/Fnd0M0m7Knw1X6MzxJwPIKjFe6O43Xu9H1mQDPydXlw4i27Ph
6TtxV79hZEc2ZDcyfv1yHNmZDUdmUFBkDNkl5rtxw7AL88jubCh3dLv7wSKy
R8yn1thnlJbsFW7Oz3qUS/aJ5x9n7atbSZZ0qC+6Xu78lCwTTrzQ6cMtZLkO
7k7Z1qxKskKHup23DiQfJkMHc7/p+uSTnF8Hb1vOLHU959fBN7HJ934D5xfX
iwtai+9zfh2kD1a2O/SM84vxbyg3NQR8Q/nF+DGRGb37k106eOLf+2NGCNmt
g7JH1dZVw8keHWSjkl4+G0326lB2qfuPfWaRfToUrXovIvltsqSHvZufa28q
WaaHrzJ2r7+JLNdDNShkW1I+WaEX++kPv1avJUMP5cDSqn4byUo9PLf+0hgr
yCo9pNiHqp++JWv08EaGHw0/TraL8aPXnlp5nuzQw/16iOvGNc6vh7Pk1/Wj
7nJ+PVJiYktWPeb8euz3W32x3m8P5Rfj4XKCvA/Zq8ft9ILQBQPJPj3K4suj
SiLIkgGqwqY1J8aRZQbxPs3ocC+GLDfAlXbPHBBPVhjg+/LGsaD3yDAAk65/
86KOrDTA6Xu1c087WWWAZk1EVkshWWOAJFtf8n0x2W5A2bqakGVbyQ4DZCE/
fR2xm+w0oG9CRsXxGrJL3N9s2T7pFNltwOBbsl476jm/Ad5xE2a23eT8Yr7r
n+0Ovcf5xfOBDY4xTzi/ESM7hw9S+O2l/EYURW/Y0v4FstwIz8PIyCo5WWGE
OWxFy5ihZBjhHD6t2TmCrDRCVmMdcGU8WSWer3x7adMMssYI+3yz5Ikj240o
sJVl5ieRHUa0Tn3tsy5qstOIOPXxafPMZJcR8P4Soc0ju8Xz+SVtswvJHiMc
x8ZE/bWB7BX1zoxav2gj2WeE4sDHS9aUkSUTZDNDLeZKzm8S69urJfgA5xfX
x/eYaz3K+U2wd7z3cPUJzm9C1/iQ8LnnOL8J+3tPmXD6Euc3QakuNz/wcn4T
FCMDOx9r5PwmeP9MfjnqDuc3QX4y5d78Fs5vwpSvPts84C/Ob8LgY4Hx+c84
vwmO7zQR+R33UX4T6uSeqS/5kb0mpCTcqJ71HNknxlvaafsLPcmSGeYBySGZ
gWSZGdJLo+fN6UOWm+Fc3iPhWD+ywgyU+r/lDiJD+FicKfpFstKMgspV9ya+
RFaZ0RoW1O4kW2OG96NrTafZdvF8UFmX6WyHWfR/ByvH83hOM2SpyxJ2cT2X
GZ6PIvPW8HzcZij2Lzjo7c35zZBnVVU4e3F+M8rmbXj+dA/Ob8ZtQ6M7yZ/z
W+BM3LxlYWfOb4Fr3apjxyXOb4EPnslr+e+vENfn7cysfsDrb0FZaOfiaU28
/hZ4lzVOH3GT19+C/Yk9w/Mu8/pbIPt+od8Qfl/sFqg+G33ytTpefwvc6SdW
Flbz+ovxnpu0bGIVr78F0h7ZoLitvP6i/rWjrbXF/P5bEDcy+HAB/z94LfBc
qH9n6xJ+/y2Qz09tDtbw+29FvbpwV5OK338riuLqAnvH8vtvRdea2oPF4PxW
3NbYtOZwzm+FYkVixO4XOb8VLv2rg2L8Ob+4PunUluhW3v/E8/YekUW8P9mt
2N8poFDp4f3PCndd8bKMg7z/WTFYUxhx5yve/4RPemovruH9z4qUhpQvwiy8
/1lhrp0c07SA9z8rnEO724Kn8f5nhXRpe9ea/+//OZB21Ddf6Mv7fw5aj6+N
WfyMz78c2OPeStI18PmXg/rBGZ88PcHnXw6cAzouCnDx+ZcDz4OZi53r+fwT
44/Im3vYzOdfDpDgeZTK5689B4fOzB27LYrPvxzY6p/IrP/g8y8HLXEL3r/V
kc+/HJwP2uT03eL+Rzx/bkLJ53Xc/+RA/kZA6Z3t3P+IevMvXv+d+x1fDuI2
La3YkM79jw3KK9eiHnB/JbOhbMinDV2Gcv9jw9DbisaL/tz/2DCmJGT14j+4
/7PBm/Q4+OAJ7n/F/e8uunhhO/e/Nniw9M/DBdz/2hA4aUKFaTH3vzYErC2T
d5rE/a8NXatiNekDuf+1oW9wh/Kd7bn/tWF48MRz57zc/9twZU9Q/eXD3P/b
ID/4U+lp/v7w2qAYc+t+uZX7f5v4/7//sTWOv39ycd7vTOjYSP7+yUW+oXzK
w178/ZOLkRlvZVXco+85RS5wZGln1Vn+PsxFa+p41Qs7yMpc+IKS9p1dyd+L
uZh+ISh8XYqr5j9WBOH9
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 24, 
          RGBColor[0, 0, 1], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw9l3tY1FUaxwcUwbQYFQXJy8+8kYiO7qpgQl/MBEFlvKCgWRMCcuc3zDAz
MKCDgSKpDSFe1qwxXcVscQhNopBRKAkxB00hpRxSWe8OKiKisme3867/8Hye
3znv93yeOZ7znlFRqYtjHCUSiauDRPLfv3/9iwc++zbOd2Fp9f9QiIei8EHJ
3Pc4Ix6mu5vaoxM4K9j37QHhRTrOBsa3StoaN3A2sfGb5lQIxZwt8RD6JLas
28fZxjh8UcyDMs6SBNi2OsWkWig/ASaPpHs9v1B+AiRj/KV7f6d89t3qcHXx
XcpPAFYMSBzcTfmMR2z98WbfIzw/AYbCqJ4GD862BCicA948NZ6zJBHIK1xS
N52zkAjD2M1br77LGYmQ3HG/7RzOWZEIU8PF9MBozoZEWPw9AzerOJtYPbdb
K26up3zG5e2N4Z9SfiJsjQVHf91L+Ukw+ZZKY8ooPwlC6uNHfU5SfhIsjsbE
SivlM34YnLvORvlJUDRqQ5bZKT8JxoWSmJESM89Pgnh93MZhLpxtjMPHFr4h
5SxJhsllcv4UD85CMmzBU5XzBM5IBoIuyhO8OCuSIXFTeW+TcTYkQ17o4XTa
l7MpGTKnnFbHQMpn9ToH1gbNo/xkCHtajhQvovwUSCKMB+9GUn4KLA45/5of
RfkpECd8XnMsgfJToJgs3hmvovwUyKe6jdunp/wUSJ/MUI/PpfwUmIoHXzq6
mfJZvf6poaHFlJ8K8adNF27vofxUmJrfTC46QPmpMHpvGfLuEcpnXBh7tuc4
5afCVti8tcZC+anAGHG58WfKT4UQMnJ07HnKT4U5csa9OVcoX4QsbLV54nXO
UhHyur2xw+/RekRIbgT0dX/CWSbC1HPWOLSH1ifC8vrojjEuZX+xXIRt6Xwf
vwGcFay+tWDyMk/OogizNbRdP5qzQYS4aNSaryZyNrJ6hZW5rdM4m0QYIltm
jXqbs5mtzyUyJz6Ys4XVV7q8U7mIs5WtT1utHLSSs42tJzrouTqas12E0S3c
+kcyZ4kS8kvrLsu1nKVKyPr79jlj4CwoIeyo8l9QwFnGvv97cEJTEWcwvuag
it9D/kooMh8F9DpI/ozbHcv3m8lfCcO9a98sqCR/Jczel4WXNeSvhEVS+vux
s+SvhDXZVKduIn8l7IM+qJ7ZSv6s3v7OPc53yF8J+J8JuPKY/JWwzczJPPaS
/JWQtnWN3+7yDfdPg/gdhmUP5CxNA5atnZAwjLOQBsWbt0evGsdZlgZD1fdN
4TLOSIPl4OuDls7kLE+DdJbb3uVzOCvY/IacEMVCzmIa5IccLyVHcDakwau8
zdkQxdmYBl/ziC+3J3E2sXrTvKPLNJzNrN7b/fpZDZwtbL3ZExY9LOBsTYPL
1LD77sWcbWx9zRt34AvO9jQ8jfToSTxE/ipYndf8uquc/FXwnXar5ucq8lch
P9dV232a/FWQXp+ybdJ58lfBPFd/IqqF/FWw975YvKON/FUw9Dr/bYOd/Nn8
wl2VDt3kz8Z3NU6f7lTO/VUQnxdUxbtyNqkgXBr/++6hnM0qmBbPExpGc7ao
YMw4/uozH85WFSyzQ73G+nK2sfldTffnz+ZsV0H2lVuLOJ+zRA1zfF6scRln
qRo3c6MlhxWcBTUktR+7WxI4y9SQ7V01+JyaM9So21r6ftNaznI2fnnpkuZ8
zgo1pF82hjV+yllUQ9j//aGTn3E2qBHcz6u85AD5q9l5erEiz0z+ajSXpjhG
VJK/mu1v3fkRteSvhjjOL/a3s+TP8ieWdGxoIn81XFwiyse1kr8auu3RDcdv
k386pFWKOL/H5J8OjHz30FcvyD8dQt0Hh19xPsr902E6OicvQsoZjLdUBxUN
5SxPh0L704vv3uCsYPVmpnx9xpuzmA55xdXFp//O2ZAO6/WFtw/7czay9YQ/
itHN5WxKh0zrWO4dxtnM6psPV9Qu52xh9RYOiZit4GxNh2H3h0n74jjb0mEe
drC+TeRsT0fwyJ7AfhmcJRrEfbtxt2sOZ6kGCEv5x8N8zgLjzu7ub4zkr4F9
y35t2E7y18B8zqP6py/In40vX7nW/SD5axDRcnklSslfA5eigqdvHyN/Dawh
Tna3H8hfA+FEaXPVKfLXQN55+R2/n8mfjUdXVd458tfAOKnml70XyV8DxYXU
ro+vkL8GpmV3fpjdSv4ayDoGbqttI38tLJs6Olzvkr8WthMey0a3k78Wdc9P
jXnRQf5aSL1Dzu1+Rv5a3AxaY3nxkvzZ/O6tilG9jnF/LRQ+YUOcnDmLWtiz
y+YefIWzQYud9i/D+7zG2ahFhVZxQBjA2aRFyY6bux8P4mxm9R4qdxmGcLZo
EVzd5ljjwdnK8j1j/Cs9Odu0wPOaI9HDONtZfsuwGstwzhIdrJWR1xpGcJbq
EBF3et3GkZwFHTxeHO73gFimg9mh9aWDwBk6CEuVl07Qdzn7vmDm4DHECh1M
9k/myKi+qGP3wbXHrbQegw7SSSknZrxO/jrII38LlA0lfx0kE+571ZOvmdXv
CRzf24382fiJN561SMmf1TswIHnJq+TP5sf9tji2L/nrIN65sMXNifwzYFpe
33+VhPwzIK/8sCGgm37/DNiOn2qq+P/vnwHBL2Be/QP6/dn81Pshabfo92ec
u8Td/Cft/wzYN93pWk/7UcyAeKs27PYF2v8ZqPvxlfwbZ2j/Mz5bMEZdQ/s/
A7Kzf6ssrqT9zzhjc/u8Mtr/GZA+G7XRSP/frGz9O+6Fxu+h/c/4pXnsr5/S
/mdsC3Zt3Ej7PxO+Izo8FFm0/zPxVNwel0PnhZAJRYfNb1o0+Wey99NHf+jp
/EEm7CtmnwgPIX/G612W18wifzY+99asHyeRfyYsnwz1fE8gf8YzmkvzB5B/
JnvvLWwMdST/TMjdVicfeEjnP6t/Tp+76086/9n4nLd8xp2n8z8TCPQpWnCS
zn9WPyf2iZTuE3smZAOGH1Z+Tue/HiV3pwxVbqbzXw+rZ9n30kw6//WweQQJ
i9fQ/adHnN/XbdOX0v2nh2xDH4sFdP/pIWybndI+ke4/PW72iq6p96D7j80f
9ItpYW+6//SQCnlP1j6g/oflb4g/teoy9T96WMqTXO/VUv+jh67vyceTjlD/
w/JDnYrH7qL+Rw95WNLwC+up/9EDO1tr/aifsrP5R73PrAyn/icLXjf6694K
oP4nC6YnUZ5XqN8TsvD0wlxnf1fqf7KgKJ64a3Un9b+Mv+49edFV6n+zYLe9
7+1ymvrfLMhNnzwqKKX+l+UFNd+/Ukz9L6vfqyjvRRb1v4wrooSHq6n/zUK+
Zs34H0Ko/81CSafW4f0p1P9mQbdHMeiyO/W/WTDO8qqe+pLeO2z+GytXJ9D7
xs7Wu++9FR/V0/snGy1rq7vWmen9k41t8/5ZGLWd3j/ZmOU1Nskni94/2Tja
+V3Dnx/S+ycbca9VPMgN4izPhlha33eID73XspHvnxG0c6C5+j/UotgV
          
          "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, AxesOrigin -> {200, 0.13}, 
      PlotRange -> {{200., 470.}, {-0.19, 0}}, DisplayFunction -> Identity, 
      AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {
       "T [K]", 
        "p [\[Mu]C/\!\(\*SuperscriptBox[\(cm\), \(2\)]\)\!\(\*SuperscriptBox[\
\(C\), \(\[Degree]\)]\)]"}, AxesOrigin -> {200, 0.13}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 24}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, LabelStyle -> Directive[
        GrayLevel[0], Bold], Method -> {}, 
      PlotRange -> {{200., 470.}, {-0.19, 0}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 24, 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 24, 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 24, 
         RGBColor[0, 0, 1], 
         Thickness[0.0025]]}, {"-0.01%", "0.0%", "+0.01%"}, 
       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
         False, Automatic}}, Joined -> {True, True, True}, LabelStyle -> 
       Directive[
         GrayLevel[0], Bold], LegendLayout -> "Column"]], {
      Scaled[{0.75, 0.435}], {0, 0.835}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.642252952821134*^9, 3.642252960774685*^9}, 
   3.64233529267791*^9, {3.6556637872994223`*^9, 3.655663813343833*^9}, 
   3.661185894394071*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"100", "*", 
  RowBox[{"pyroBackward", "[", 
   RowBox[{"2", ",", "1", ",", "299"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "this", " ", "seems", " ", "to", " ", "be", " ", "the", " ", "right", " ", 
    "order", " ", "of", " ", "magnitude"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.641912566285491*^9, 3.64191257414408*^9}, {
  3.6419127216840763`*^9, 3.641912731914771*^9}, {3.642253456143182*^9, 
  3.642253464222135*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.09992751041762449`"}]], "Output",
 CellChangeTimes->{{3.641912569504389*^9, 3.641912574966741*^9}, {
  3.641912723001277*^9, 3.641912732146399*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"equilibFE", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"100", "*", 
          RowBox[{"pyroBackward", "[", 
           RowBox[{"2", ",", "51", ",", "k"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "200", ",", "470"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"equilibFE", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"100", "*", 
          RowBox[{"pyroBackward", "[", 
           RowBox[{"2", ",", "81", ",", "k"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "200", ",", "470"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"equilibFE", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "2", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
         RowBox[{"100", "*", 
          RowBox[{"pyroBackward", "[", 
           RowBox[{"2", ",", "100", ",", "k"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "200", ",", "470"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "0.3"}], ",", "0.0"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "Bold"}], "]"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", "plotFont"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Dashing", "[", "Large", "]"}], ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<T [K]\>\"", ",", 
      "\"\<p [\[Mu]C/\!\(\*SuperscriptBox[\(cm\), \
\(2\)]\)\!\(\*SuperscriptBox[\(C\), \(\[Degree]\)]\)]\>\""}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"200", ",", "0.0"}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<E = 50 kV/cm\>\"", ",", "\"\<E = 80 kV/cm\>\"", ",", 
        "\"\<E = 100 kV/cm\>\""}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0.65", ",", "0.435"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.835"}], "}"}]}], "}"}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6423353267901373`*^9, 3.6423353915360813`*^9}, {
  3.642335511810533*^9, 3.6423355265635033`*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Tiny], 
       StyleBox[LineBox[CompressedData["
1:eJw12HtcFFUbB/BFJRRRVzHF+1iE4HWzxU9q6M80U0Bd76CFK+QN2GV22fsu
OhoKauhSavIWsGgmSNoqYoCX1kTB1NpSCe/rLcVSV5cEL+g779tz+IfP93PO
md88zMyZZ+ifmDZjUSuJRNLJTyL53+9/f5bBE3Hi0ao/v//x/+SWgSuduXN7
MxmiP+3ur/F3/mvlMrgyBg8v7EgWlsFtjhcudyc7lsH7RHg9oj/ZJR5/aXP3
1QPJnmXgHWv3eN8hS5LhbKuTpEaRuWQoOqojmyaSIY7Hf6v/XMHyk+EZfLwh
ah7LT4a97H7V0ySWnwx++o9dTqhYvrjeN6fXdiPLTwYXr3hlX8nyU+BeXNOw
cT3LT4GMj3/NsZnlp8AlhK08WsjyU+DN/31NYwnLTwE6ZU0YuZ/lp4D/yndn
4xGWnwKuelphcy3LT4G0eX5e+lmWnwr+bKK/31WWnwrJiFHBRXdZfirs1gm+
mT6WnwpZlqaux0uWnwqPb+yDx233Un4qFG2PpF4LJrvE8ZPrMq/1JXtSIfjq
lvoiyBIVPHcWTekVSeZUkH22YfFckKECF/Few84YslIF6aCHgR3mkgUVlLcP
+2UlsnwV+PDZbbqpWb4Kwv3myVVmli/mncoM1K1m+Wq4tanLx+eyfDUcTQev
huezfDWcXMii0BKWr4Ys90jMiHKWrwZ3cvWZhKMsXw1P2JW3Cs6wfPF4Zaft
jRdYvri+pjE68U+WnwZPZU7unccsPw2SiCXbMl+x/DRwU+8cHBm0j/LToOwR
2CegB1lIA++v9L//FtmRBniDyv8aTnalwbnxRGprkD1pcP/yu0o+hSzhIbni
/2z5PLKUh6yja+bNJWSOh8P21+GFerKMhzL+qfXZKjJE+67+tttOVvDwruvS
xlbAzpeH1Jk1d9F3ZJ4Ht6C0c3IVO38eQvUC07pasp0Hv7bptxN1rB4eriuy
Rf1uk53i+hvDzJt8rD4eiium2WGtyv61m4e7vGHceSnZw8POla0p6kf2iuuH
TE9dP5Qs0UAx6tPRX0SRpRpIFo+Pqowlcxrw8w5XtcwnyzTgZk9oUaaQoYFj
26SpNy1khQZOeWxT5jqyUiPeL3XjJv6HzGvgvrDEOGAXWdBA2ZB8PbyKbBfH
d4edjP6Z7NDAO22PMeci2anB3dXuyEf3yC4NQvb6xxqes/rF+dc/atUnaD/V
L9bz/RLH7d5kr1jvtlCVewhZogU23N1zZQxZqoV94MTSDgoyp4V3ReO3yoVk
mRbu5WW367RkaCH0HLaLzyQrtFB+6YkcuoWsFMdf3K/tVEzmtVAUBmx7vYos
aCErHP9y7GmyXcx/rylk41WyQwvJi5xBrR+RnVrwigTV163LqX4twj3W4Pnd
yG4t4rplKcZGkD1ifX6WWZPfI3vF9WO0seZpZEk63B5j4q+JZGk6vAPHHY4x
kLl0KP54vOLBWrIsHfyTyyd/yCcjHU5/+YGde8mKdHG/OjH/yHGyMh3CR9+d
fn6BzIvz5zS9rnxAFsTx5rlj/2p1gOoXj9/tWHR+d7JDnD9FKjcMJjvTIXV/
4dWPI7vS0Xxkn/rrOWS36BbN5oYUskecH/lq/McryV7x/PLfmd60hSzRgS+S
rv/hO7JUB8XOyAP5P5E5HaTyaTkl9WSZDpI9y10XH5Chg6y6qlHm/wPVL44P
CD9W2ous1EHomlwRPZzM6+A6eG9mh8lkQQfP3Z4BvgVku7j+VrH8uYHsEMc7
7Bn21gayUyfuf2dH8TvILh3sq5KzLh0iu3XIlq6ULz5H9ugQEnRrSqe/yV5x
fkifU+dbV1D9elRMTNpQ0YssFT1/ZdKBd8icHrKAvS/PxJBlejglKc9bksjQ
I+7SoEsTbGSFHne/HtKmaBNZqQcv7eaS7ibzeijv5I36/DhZ0MP+c1fhzatk
u5j/eTfbT0/IDnH9w9tNqZ0qqX49wpubt3LhZJcetU+Srl0E2a1HvWxsaF48
2aNHcVKbrXFaslcPr+sWuq0nSwyYlB3y9JftZKkBzqURqhWHyJwBQuDInqHn
yTID4uZ9EFt5nwxx/pTU3qNfq6L6DXBMezttR1+y0iDupyce+0aQeYO4X83v
88Y0smAAQk2DBi0h20XPSugbuILsMIj92Mqqyi1kpwGuiPZr5HvILgPaHl1e
oztOdhvQ/D6fqbtM9hggvb5QGOIjew2wb6sendfuINVvBGcK9Tn7kaVGTHqa
WaCKJHNGZAf/462JJsuMMN1YEFexgAwjJJuLWkboyAojQuR3qkdnk5VGFOco
px75iswbUb8rpql8D1kQ5w9feKnHUbLdiHfVJXWe38kOI4S4o1l+t8hOIxzc
lzO0jWSXEVDtSIpoc4jqN8IVvL+sdzDZY4T719Cg9/uTvWJ95b+13ziULDGh
2bpq8NNRZKkJ2ede1OonkjkTJHX73nymIMtMUHzRWW2dR4YJbSN594NEssIE
V0mBdnIyWWmCvX/n1QJP5k1wlG6PXqsnCya8m/jwjXgz2W5C7dDwzbetZIcJ
mG6aH5pBdppg6nxa3Z7ZJc5vaemSy+a7xeNvmn6z1MTqF4//94BrM3SsfrHe
nD8MGWpWvxku34atby5h9ZuRXRF2OCqB1W8GPqxprJ7J6jdDIp/g2/chq9+M
SYaOvVuxv5/CjObwgpzdA1n9ZmztJR+8twer3wz3o7Ol7QJY/WYUD4vL2/+Y
XX/xeI9XJTovs+tvRtwvDz96Uc2uvxlCzZlTW0vZ9Teja0P0rTV2stuM6k8L
3LXpZI8Z9eXb9i6cTfaawdc9KpjN7m+JBc56YUdJMLv/Lbg7cH91kpeeF86C
Tz541LDuFFlmwaT6snthO8iwIDR4eAYy2PNvgSLEMez6TPb8i8erDUsIjmDP
vwXNb3w74MYL2j8EC5QHEhbG/0q2WyD4Fa1d7SA7LAg6ur0ynWf7nwVxad9s
eXss2/8saPOJ4f0zQWz/s8B1bkfM7Au0f3oskI6elV//Ddkrnl8nn3pxGtv/
rbjb10/ecSTb/63g291ff82P7f9WvHssavi9k/T+kFmRXdnvYVQuGVZcTtZm
35vL3n9WyHallb3qw95/VmTaWwXk3KT3JW+FM/D6g6JismDFZ2XGwikq9v63
Yr96f2Dh2+z9b0XbAZXnv/mH+gWnFZL7tmmqStb/WKG4nLD0tQzW/4heU7or
A6z/sSLuZRe5h/VLXrHeze2do2pY/2dDxZBeM/PWsf7PhsZJr+oCprL+z4bY
fbuMuZ1Z/2dDXM+Oj3Ce9b82QO7I4PJY/2vDIS7v/MiPWf9rgyPm3NAt/Vn/
a8Om8pioMX+y/t8GaUI/+ahS1v/bEF7SqyaXZ/2/DUGFewfHjmD9vw1dE2dx
/Av2fWWDLHnY7dbHyG4b6l0RkzusY99bNpy+NbA4dzrZK45XbHm4uQf7/srA
6cVPivreoO9ZaQZ4b/XFYaXse1j0iTkzzujIsgx4l5xb+GwM+z7OgOw6Aqra
kRXi/BeBZ/vsov9fKDOA8qcVT8Z9/+N/AXGY5ms=
         "]],
        FontSize->20]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025],
        Dashing[Large], 
       StyleBox[LineBox[CompressedData["
1:eJw913lcVOUaB/DjLkI6JrlBNd40RCwGr6F+XPjhdcdl0EyWslEkWYcZZh8G
mwgVFXM0LaDISU0xUAfMJRUZJZNcJzPF1D7jgliBjspNyO2+9/Y8l3/4fD/n
nPd5f7yH933OgIVZs5PbS5LUo50k/ff33z+pUPk3F6fd2FnzP8pT4WxO3nHj
Phni+uwvR2jb7/rbqlRIO4sSez1PtqfCHZwy5sQAslM8f3v6kw0RZLfwtC1H
jNFkrxjvx98qMmLJUhqcV/dcNy0gy9OAtoPLirRkpME78IdDZz7g+mmQpKNl
/ddx/TTY65xq2yaunwZ5oW5YSxXXF/bG982r5frC+/MmvHqe66fD3mfIZe9N
ri+8+ROp6t9cX3jFqqbpHVxUPx2+6vcnnPIn29PhnDmn/7xAsjMdnswIe3Mw
2Z0OFP2rYM0gsjcd0nOuCWNfJ0sZUHQqOv5nJFmeAXn33q8ciiIjA76BY1JX
T+H64v5zPSvSYrm+cMS6J3MSuH4G4NmeNTWJ6wsXDg+MyeD6GVDFPHocZ+D6
mVCWVo7WLeH6wlEPrhUv5/qZkEqi2512cP1MeFul8oASrp8Jzy8GX9xmrp8J
990j1ysruH4mZEHX1vXZy/Uz4ZiztefKGq6vhnvc/iy/H7i+Gri6unrDOa6v
huZmmn/4Fa6vhrPf26k/N3B9NeTv/rOx4C7XF+PVfLh+ahvXF9dHlNr7dKik
+mp4ZhUcuB9AlrKgKWsXe7k3WZ4F+zDD7B/lZGTBF9t26vwQsioLyiNTzzQM
J9uz4Ik5mtQxiuwUHhtfophKdmfBUVO8JG0O1xfjXSoNrnqH62vgnNzV3iWF
LNPA1+3p7rRsno8GMs/LtZdtZIUGki9vX8Jynp8GePPrksa1ZKUGrjtLDHmf
83zFeP5TlGHbyBoN3NGbh12v5PlroOhve2XbIbJDA29Kh1Drcc6jgT1x65TE
c2SXGC+40/JpVzmfmN+w3xon3yZ7xHxMo9VzHnBeMd63bUGZT8k+cX9L2P31
flWUXwvlgEu+E4FkmRaoetS7h5ws18KXb1i4IIysEPfbOniORJKhhatMkagY
T1Zqobo65WnFDLJKC3fbtKoR8WSNFlLBL2rPIrJdC8djxRCThuzQwvlm90th
NrJTXB+/XX1nOdmlhefoF1cOf0x2a6Hod+350o1kjxaacVufFZSTvWK+381d
k7eP7NPCfsdQsaKW82dDs6go6ouznD8b8vaTwt2XOX82VEN+f/duI+fPhnN2
9e6wFs6fDd/Fnd0M0m7Knw1X6MzxJwPIKjFe6O43Xu9H1mQDPydXlw4i27Ph
6TtxV79hZEc2ZDcyfv1yHNmZDUdmUFBkDNkl5rtxw7AL88jubCh3dLv7wSKy
R8yn1thnlJbsFW7Oz3qUS/aJ5x9n7atbSZZ0qC+6Xu78lCwTTrzQ6cMtZLkO
7k7Z1qxKskKHup23DiQfJkMHc7/p+uSTnF8Hb1vOLHU959fBN7HJ934D5xfX
iwtai+9zfh2kD1a2O/SM84vxbyg3NQR8Q/nF+DGRGb37k106eOLf+2NGCNmt
g7JH1dZVw8keHWSjkl4+G0326lB2qfuPfWaRfToUrXovIvltsqSHvZufa28q
WaaHrzJ2r7+JLNdDNShkW1I+WaEX++kPv1avJUMP5cDSqn4byUo9PLf+0hgr
yCo9pNiHqp++JWv08EaGHw0/TraL8aPXnlp5nuzQw/16iOvGNc6vh7Pk1/Wj
7nJ+PVJiYktWPeb8euz3W32x3m8P5Rfj4XKCvA/Zq8ft9ILQBQPJPj3K4suj
SiLIkgGqwqY1J8aRZQbxPs3ocC+GLDfAlXbPHBBPVhjg+/LGsaD3yDAAk65/
86KOrDTA6Xu1c087WWWAZk1EVkshWWOAJFtf8n0x2W5A2bqakGVbyQ4DZCE/
fR2xm+w0oG9CRsXxGrJL3N9s2T7pFNltwOBbsl476jm/Ad5xE2a23eT8Yr7r
n+0Ovcf5xfOBDY4xTzi/ESM7hw9S+O2l/EYURW/Y0v4FstwIz8PIyCo5WWGE
OWxFy5ihZBjhHD6t2TmCrDRCVmMdcGU8WSWer3x7adMMssYI+3yz5Ikj240o
sJVl5ieRHUa0Tn3tsy5qstOIOPXxafPMZJcR8P4Soc0ju8Xz+SVtswvJHiMc
x8ZE/bWB7BX1zoxav2gj2WeE4sDHS9aUkSUTZDNDLeZKzm8S69urJfgA5xfX
x/eYaz3K+U2wd7z3cPUJzm9C1/iQ8LnnOL8J+3tPmXD6Euc3QakuNz/wcn4T
FCMDOx9r5PwmeP9MfjnqDuc3QX4y5d78Fs5vwpSvPts84C/Ob8LgY4Hx+c84
vwmO7zQR+R33UX4T6uSeqS/5kb0mpCTcqJ71HNknxlvaafsLPcmSGeYBySGZ
gWSZGdJLo+fN6UOWm+Fc3iPhWD+ywgyU+r/lDiJD+FicKfpFstKMgspV9ya+
RFaZ0RoW1O4kW2OG96NrTafZdvF8UFmX6WyHWfR/ByvH83hOM2SpyxJ2cT2X
GZ6PIvPW8HzcZij2Lzjo7c35zZBnVVU4e3F+M8rmbXj+dA/Ob8ZtQ6M7yZ/z
W+BM3LxlYWfOb4Fr3apjxyXOb4EPnslr+e+vENfn7cysfsDrb0FZaOfiaU28
/hZ4lzVOH3GT19+C/Yk9w/Mu8/pbIPt+od8Qfl/sFqg+G33ytTpefwvc6SdW
Flbz+ovxnpu0bGIVr78F0h7ZoLitvP6i/rWjrbXF/P5bEDcy+HAB/z94LfBc
qH9n6xJ+/y2Qz09tDtbw+29FvbpwV5OK338riuLqAnvH8vtvRdea2oPF4PxW
3NbYtOZwzm+FYkVixO4XOb8VLv2rg2L8Ob+4PunUluhW3v/E8/YekUW8P9mt
2N8poFDp4f3PCndd8bKMg7z/WTFYUxhx5yve/4RPemovruH9z4qUhpQvwiy8
/1lhrp0c07SA9z8rnEO724Kn8f5nhXRpe9ea/+//OZB21Ddf6Mv7fw5aj6+N
WfyMz78c2OPeStI18PmXg/rBGZ88PcHnXw6cAzouCnDx+ZcDz4OZi53r+fwT
44/Im3vYzOdfDpDgeZTK5689B4fOzB27LYrPvxzY6p/IrP/g8y8HLXEL3r/V
kc+/HJwP2uT03eL+Rzx/bkLJ53Xc/+RA/kZA6Z3t3P+IevMvXv+d+x1fDuI2
La3YkM79jw3KK9eiHnB/JbOhbMinDV2Gcv9jw9DbisaL/tz/2DCmJGT14j+4
/7PBm/Q4+OAJ7n/F/e8uunhhO/e/Nniw9M/DBdz/2hA4aUKFaTH3vzYErC2T
d5rE/a8NXatiNekDuf+1oW9wh/Kd7bn/tWF48MRz57zc/9twZU9Q/eXD3P/b
ID/4U+lp/v7w2qAYc+t+uZX7f5v4/7//sTWOv39ycd7vTOjYSP7+yUW+oXzK
w178/ZOLkRlvZVXco+85RS5wZGln1Vn+PsxFa+p41Qs7yMpc+IKS9p1dyd+L
uZh+ISh8XYqr5j9WBOH9
         "]],
        FontSize->20]}, 
      {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.0025], 
       StyleBox[LineBox[CompressedData["
1:eJw9l3tY1FUaxwcUwbQYFQXJy8+8kYiO7qpgQl/MBEFlvKCgWRMCcuc3zDAz
MKCDgSKpDSFe1qwxXcVscQhNopBRKAkxB00hpRxSWe8OKiKisme3867/8Hye
3znv93yeOZ7znlFRqYtjHCUSiauDRPLfv3/9iwc++zbOd2Fp9f9QiIei8EHJ
3Pc4Ix6mu5vaoxM4K9j37QHhRTrOBsa3StoaN3A2sfGb5lQIxZwt8RD6JLas
28fZxjh8UcyDMs6SBNi2OsWkWig/ASaPpHs9v1B+AiRj/KV7f6d89t3qcHXx
XcpPAFYMSBzcTfmMR2z98WbfIzw/AYbCqJ4GD862BCicA948NZ6zJBHIK1xS
N52zkAjD2M1br77LGYmQ3HG/7RzOWZEIU8PF9MBozoZEWPw9AzerOJtYPbdb
K26up3zG5e2N4Z9SfiJsjQVHf91L+Ukw+ZZKY8ooPwlC6uNHfU5SfhIsjsbE
SivlM34YnLvORvlJUDRqQ5bZKT8JxoWSmJESM89Pgnh93MZhLpxtjMPHFr4h
5SxJhsllcv4UD85CMmzBU5XzBM5IBoIuyhO8OCuSIXFTeW+TcTYkQ17o4XTa
l7MpGTKnnFbHQMpn9ToH1gbNo/xkCHtajhQvovwUSCKMB+9GUn4KLA45/5of
RfkpECd8XnMsgfJToJgs3hmvovwUyKe6jdunp/wUSJ/MUI/PpfwUmIoHXzq6
mfJZvf6poaHFlJ8K8adNF27vofxUmJrfTC46QPmpMHpvGfLuEcpnXBh7tuc4
5afCVti8tcZC+anAGHG58WfKT4UQMnJ07HnKT4U5csa9OVcoX4QsbLV54nXO
UhHyur2xw+/RekRIbgT0dX/CWSbC1HPWOLSH1ifC8vrojjEuZX+xXIRt6Xwf
vwGcFay+tWDyMk/OogizNbRdP5qzQYS4aNSaryZyNrJ6hZW5rdM4m0QYIltm
jXqbs5mtzyUyJz6Ys4XVV7q8U7mIs5WtT1utHLSSs42tJzrouTqas12E0S3c
+kcyZ4kS8kvrLsu1nKVKyPr79jlj4CwoIeyo8l9QwFnGvv97cEJTEWcwvuag
it9D/kooMh8F9DpI/ozbHcv3m8lfCcO9a98sqCR/Jczel4WXNeSvhEVS+vux
s+SvhDXZVKduIn8l7IM+qJ7ZSv6s3v7OPc53yF8J+J8JuPKY/JWwzczJPPaS
/JWQtnWN3+7yDfdPg/gdhmUP5CxNA5atnZAwjLOQBsWbt0evGsdZlgZD1fdN
4TLOSIPl4OuDls7kLE+DdJbb3uVzOCvY/IacEMVCzmIa5IccLyVHcDakwau8
zdkQxdmYBl/ziC+3J3E2sXrTvKPLNJzNrN7b/fpZDZwtbL3ZExY9LOBsTYPL
1LD77sWcbWx9zRt34AvO9jQ8jfToSTxE/ipYndf8uquc/FXwnXar5ucq8lch
P9dV232a/FWQXp+ybdJ58lfBPFd/IqqF/FWw975YvKON/FUw9Dr/bYOd/Nn8
wl2VDt3kz8Z3NU6f7lTO/VUQnxdUxbtyNqkgXBr/++6hnM0qmBbPExpGc7ao
YMw4/uozH85WFSyzQ73G+nK2sfldTffnz+ZsV0H2lVuLOJ+zRA1zfF6scRln
qRo3c6MlhxWcBTUktR+7WxI4y9SQ7V01+JyaM9So21r6ftNaznI2fnnpkuZ8
zgo1pF82hjV+yllUQ9j//aGTn3E2qBHcz6u85AD5q9l5erEiz0z+ajSXpjhG
VJK/mu1v3fkRteSvhjjOL/a3s+TP8ieWdGxoIn81XFwiyse1kr8auu3RDcdv
k386pFWKOL/H5J8OjHz30FcvyD8dQt0Hh19xPsr902E6OicvQsoZjLdUBxUN
5SxPh0L704vv3uCsYPVmpnx9xpuzmA55xdXFp//O2ZAO6/WFtw/7czay9YQ/
itHN5WxKh0zrWO4dxtnM6psPV9Qu52xh9RYOiZit4GxNh2H3h0n74jjb0mEe
drC+TeRsT0fwyJ7AfhmcJRrEfbtxt2sOZ6kGCEv5x8N8zgLjzu7ub4zkr4F9
y35t2E7y18B8zqP6py/In40vX7nW/SD5axDRcnklSslfA5eigqdvHyN/Dawh
Tna3H8hfA+FEaXPVKfLXQN55+R2/n8mfjUdXVd458tfAOKnml70XyV8DxYXU
ro+vkL8GpmV3fpjdSv4ayDoGbqttI38tLJs6Olzvkr8WthMey0a3k78Wdc9P
jXnRQf5aSL1Dzu1+Rv5a3AxaY3nxkvzZ/O6tilG9jnF/LRQ+YUOcnDmLWtiz
y+YefIWzQYud9i/D+7zG2ahFhVZxQBjA2aRFyY6bux8P4mxm9R4qdxmGcLZo
EVzd5ljjwdnK8j1j/Cs9Odu0wPOaI9HDONtZfsuwGstwzhIdrJWR1xpGcJbq
EBF3et3GkZwFHTxeHO73gFimg9mh9aWDwBk6CEuVl07Qdzn7vmDm4DHECh1M
9k/myKi+qGP3wbXHrbQegw7SSSknZrxO/jrII38LlA0lfx0kE+571ZOvmdXv
CRzf24382fiJN561SMmf1TswIHnJq+TP5sf9tji2L/nrIN65sMXNifwzYFpe
33+VhPwzIK/8sCGgm37/DNiOn2qq+P/vnwHBL2Be/QP6/dn81Pshabfo92ec
u8Td/Cft/wzYN93pWk/7UcyAeKs27PYF2v8ZqPvxlfwbZ2j/Mz5bMEZdQ/s/
A7Kzf6ssrqT9zzhjc/u8Mtr/GZA+G7XRSP/frGz9O+6Fxu+h/c/4pXnsr5/S
/mdsC3Zt3Ej7PxO+Izo8FFm0/zPxVNwel0PnhZAJRYfNb1o0+Wey99NHf+jp
/EEm7CtmnwgPIX/G612W18wifzY+99asHyeRfyYsnwz1fE8gf8YzmkvzB5B/
JnvvLWwMdST/TMjdVicfeEjnP6t/Tp+76086/9n4nLd8xp2n8z8TCPQpWnCS
zn9WPyf2iZTuE3smZAOGH1Z+Tue/HiV3pwxVbqbzXw+rZ9n30kw6//WweQQJ
i9fQ/adHnN/XbdOX0v2nh2xDH4sFdP/pIWybndI+ke4/PW72iq6p96D7j80f
9ItpYW+6//SQCnlP1j6g/oflb4g/teoy9T96WMqTXO/VUv+jh67vyceTjlD/
w/JDnYrH7qL+Rw95WNLwC+up/9EDO1tr/aifsrP5R73PrAyn/icLXjf6694K
oP4nC6YnUZ5XqN8TsvD0wlxnf1fqf7KgKJ64a3Un9b+Mv+49edFV6n+zYLe9
7+1ymvrfLMhNnzwqKKX+l+UFNd+/Ukz9L6vfqyjvRRb1v4wrooSHq6n/zUK+
Zs34H0Ko/81CSafW4f0p1P9mQbdHMeiyO/W/WTDO8qqe+pLeO2z+GytXJ9D7
xs7Wu++9FR/V0/snGy1rq7vWmen9k41t8/5ZGLWd3j/ZmOU1Nskni94/2Tja
+V3Dnx/S+ycbca9VPMgN4izPhlha33eID73XspHvnxG0c6C5+j/UotgV
         "]],
        FontSize->20]}}, {}}, InsetBox[
     TemplateBox[{"\"E = 50 kV/cm\"","\"E = 80 kV/cm\"","\"E = 100 kV/cm\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 20, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 20, 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontSize -> 20, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 20, 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, 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.1], 
                    AbsoluteThickness[1.6], FontSize -> 20, 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.1], 
                    AbsoluteThickness[1.6], FontSize -> 20, 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {}}}, 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], {
          Directive[
           GrayLevel[0], Bold], FontFamily -> "Arial"}, Background -> 
         Automatic, StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011111111111111112`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"FontSize", "\[Rule]", "20"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                   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], ",", 
                 "Bold"}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Column\"", ",", 
                 RowBox[{"{", 
                   RowBox[{"Automatic", ",", "5"}], "}"}]}], "}"}]}]}], 
         "]"}]& )], Scaled[{0.65, 0.435}], ImageScaled[{0, 0.835}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T [K]\"", TraditionalForm], 
     FormBox[
     "\"p [\[Mu]C/\\!\\(\\*SuperscriptBox[\\(cm\\), \
\\(2\\)]\\)\\!\\(\\*SuperscriptBox[\\(C\\), \\(\[Degree]\\)]\\)]\"", 
      TraditionalForm]},
   AxesOrigin->{200, 0.},
   BaseStyle->{FontWeight -> "Bold", FontSize -> 20},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{{None, None}, {None, None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   LabelStyle->Directive[
     GrayLevel[0], Bold],
   Method->{},
   PlotRange->{{200., 470.}, {-0.3, 0.}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 20, 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw12HtcFFUbB/BFJRRRVzHF+1iE4HWzxU9q6M80U0Bd76CFK+QN2GV22fsu
OhoKauhSavIWsGgmSNoqYoCX1kTB1NpSCe/rLcVSV5cEL+g779tz+IfP93PO
md88zMyZZ+ifmDZjUSuJRNLJTyL53+9/f5bBE3Hi0ao/v//x/+SWgSuduXN7
MxmiP+3ur/F3/mvlMrgyBg8v7EgWlsFtjhcudyc7lsH7RHg9oj/ZJR5/aXP3
1QPJnmXgHWv3eN8hS5LhbKuTpEaRuWQoOqojmyaSIY7Hf6v/XMHyk+EZfLwh
ah7LT4a97H7V0ySWnwx++o9dTqhYvrjeN6fXdiPLTwYXr3hlX8nyU+BeXNOw
cT3LT4GMj3/NsZnlp8AlhK08WsjyU+DN/31NYwnLTwE6ZU0YuZ/lp4D/yndn
4xGWnwKuelphcy3LT4G0eX5e+lmWnwr+bKK/31WWnwrJiFHBRXdZfirs1gm+
mT6WnwpZlqaux0uWnwqPb+yDx233Un4qFG2PpF4LJrvE8ZPrMq/1JXtSIfjq
lvoiyBIVPHcWTekVSeZUkH22YfFckKECF/Few84YslIF6aCHgR3mkgUVlLcP
+2UlsnwV+PDZbbqpWb4Kwv3myVVmli/mncoM1K1m+Wq4tanLx+eyfDUcTQev
huezfDWcXMii0BKWr4Ys90jMiHKWrwZ3cvWZhKMsXw1P2JW3Cs6wfPF4Zaft
jRdYvri+pjE68U+WnwZPZU7unccsPw2SiCXbMl+x/DRwU+8cHBm0j/LToOwR
2CegB1lIA++v9L//FtmRBniDyv8aTnalwbnxRGprkD1pcP/yu0o+hSzhIbni
/2z5PLKUh6yja+bNJWSOh8P21+GFerKMhzL+qfXZKjJE+67+tttOVvDwruvS
xlbAzpeH1Jk1d9F3ZJ4Ht6C0c3IVO38eQvUC07pasp0Hv7bptxN1rB4eriuy
Rf1uk53i+hvDzJt8rD4eiium2WGtyv61m4e7vGHceSnZw8POla0p6kf2iuuH
TE9dP5Qs0UAx6tPRX0SRpRpIFo+Pqowlcxrw8w5XtcwnyzTgZk9oUaaQoYFj
26SpNy1khQZOeWxT5jqyUiPeL3XjJv6HzGvgvrDEOGAXWdBA2ZB8PbyKbBfH
d4edjP6Z7NDAO22PMeci2anB3dXuyEf3yC4NQvb6xxqes/rF+dc/atUnaD/V
L9bz/RLH7d5kr1jvtlCVewhZogU23N1zZQxZqoV94MTSDgoyp4V3ReO3yoVk
mRbu5WW367RkaCH0HLaLzyQrtFB+6YkcuoWsFMdf3K/tVEzmtVAUBmx7vYos
aCErHP9y7GmyXcx/rylk41WyQwvJi5xBrR+RnVrwigTV163LqX4twj3W4Pnd
yG4t4rplKcZGkD1ifX6WWZPfI3vF9WO0seZpZEk63B5j4q+JZGk6vAPHHY4x
kLl0KP54vOLBWrIsHfyTyyd/yCcjHU5/+YGde8mKdHG/OjH/yHGyMh3CR9+d
fn6BzIvz5zS9rnxAFsTx5rlj/2p1gOoXj9/tWHR+d7JDnD9FKjcMJjvTIXV/
4dWPI7vS0Xxkn/rrOWS36BbN5oYUskecH/lq/McryV7x/PLfmd60hSzRgS+S
rv/hO7JUB8XOyAP5P5E5HaTyaTkl9WSZDpI9y10XH5Chg6y6qlHm/wPVL44P
CD9W2ous1EHomlwRPZzM6+A6eG9mh8lkQQfP3Z4BvgVku7j+VrH8uYHsEMc7
7Bn21gayUyfuf2dH8TvILh3sq5KzLh0iu3XIlq6ULz5H9ugQEnRrSqe/yV5x
fkifU+dbV1D9elRMTNpQ0YssFT1/ZdKBd8icHrKAvS/PxJBlejglKc9bksjQ
I+7SoEsTbGSFHne/HtKmaBNZqQcv7eaS7ibzeijv5I36/DhZ0MP+c1fhzatk
u5j/eTfbT0/IDnH9w9tNqZ0qqX49wpubt3LhZJcetU+Srl0E2a1HvWxsaF48
2aNHcVKbrXFaslcPr+sWuq0nSwyYlB3y9JftZKkBzqURqhWHyJwBQuDInqHn
yTID4uZ9EFt5nwxx/pTU3qNfq6L6DXBMezttR1+y0iDupyce+0aQeYO4X83v
88Y0smAAQk2DBi0h20XPSugbuILsMIj92Mqqyi1kpwGuiPZr5HvILgPaHl1e
oztOdhvQ/D6fqbtM9hggvb5QGOIjew2wb6sendfuINVvBGcK9Tn7kaVGTHqa
WaCKJHNGZAf/462JJsuMMN1YEFexgAwjJJuLWkboyAojQuR3qkdnk5VGFOco
px75iswbUb8rpql8D1kQ5w9feKnHUbLdiHfVJXWe38kOI4S4o1l+t8hOIxzc
lzO0jWSXEVDtSIpoc4jqN8IVvL+sdzDZY4T719Cg9/uTvWJ95b+13ziULDGh
2bpq8NNRZKkJ2ede1OonkjkTJHX73nymIMtMUHzRWW2dR4YJbSN594NEssIE
V0mBdnIyWWmCvX/n1QJP5k1wlG6PXqsnCya8m/jwjXgz2W5C7dDwzbetZIcJ
mG6aH5pBdppg6nxa3Z7ZJc5vaemSy+a7xeNvmn6z1MTqF4//94BrM3SsfrHe
nD8MGWpWvxku34atby5h9ZuRXRF2OCqB1W8GPqxprJ7J6jdDIp/g2/chq9+M
SYaOvVuxv5/CjObwgpzdA1n9ZmztJR+8twer3wz3o7Ol7QJY/WYUD4vL2/+Y
XX/xeI9XJTovs+tvRtwvDz96Uc2uvxlCzZlTW0vZ9Teja0P0rTV2stuM6k8L
3LXpZI8Z9eXb9i6cTfaawdc9KpjN7m+JBc56YUdJMLv/Lbg7cH91kpeeF86C
Tz541LDuFFlmwaT6snthO8iwIDR4eAYy2PNvgSLEMez6TPb8i8erDUsIjmDP
vwXNb3w74MYL2j8EC5QHEhbG/0q2WyD4Fa1d7SA7LAg6ur0ynWf7nwVxad9s
eXss2/8saPOJ4f0zQWz/s8B1bkfM7Au0f3oskI6elV//Ddkrnl8nn3pxGtv/
rbjb10/ecSTb/63g291ff82P7f9WvHssavi9k/T+kFmRXdnvYVQuGVZcTtZm
35vL3n9WyHallb3qw95/VmTaWwXk3KT3JW+FM/D6g6JismDFZ2XGwikq9v63
Yr96f2Dh2+z9b0XbAZXnv/mH+gWnFZL7tmmqStb/WKG4nLD0tQzW/4heU7or
A6z/sSLuZRe5h/VLXrHeze2do2pY/2dDxZBeM/PWsf7PhsZJr+oCprL+z4bY
fbuMuZ1Z/2dDXM+Oj3Ce9b82QO7I4PJY/2vDIS7v/MiPWf9rgyPm3NAt/Vn/
a8Om8pioMX+y/t8GaUI/+ahS1v/bEF7SqyaXZ/2/DUGFewfHjmD9vw1dE2dx
/Av2fWWDLHnY7dbHyG4b6l0RkzusY99bNpy+NbA4dzrZK45XbHm4uQf7/srA
6cVPivreoO9ZaQZ4b/XFYaXse1j0iTkzzujIsgx4l5xb+GwM+z7OgOw6Aqra
kRXi/BeBZ/vsov9fKDOA8qcVT8Z9/+N/AXGY5ms=
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 20, 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw913lcVOUaB/DjLkI6JrlBNd40RCwGr6F+XPjhdcdl0EyWslEkWYcZZh8G
mwgVFXM0LaDISU0xUAfMJRUZJZNcJzPF1D7jgliBjspNyO2+9/Y8l3/4fD/n
nPd5f7yH933OgIVZs5PbS5LUo50k/ff33z+pUPk3F6fd2FnzP8pT4WxO3nHj
Phni+uwvR2jb7/rbqlRIO4sSez1PtqfCHZwy5sQAslM8f3v6kw0RZLfwtC1H
jNFkrxjvx98qMmLJUhqcV/dcNy0gy9OAtoPLirRkpME78IdDZz7g+mmQpKNl
/ddx/TTY65xq2yaunwZ5oW5YSxXXF/bG982r5frC+/MmvHqe66fD3mfIZe9N
ri+8+ROp6t9cX3jFqqbpHVxUPx2+6vcnnPIn29PhnDmn/7xAsjMdnswIe3Mw
2Z0OFP2rYM0gsjcd0nOuCWNfJ0sZUHQqOv5nJFmeAXn33q8ciiIjA76BY1JX
T+H64v5zPSvSYrm+cMS6J3MSuH4G4NmeNTWJ6wsXDg+MyeD6GVDFPHocZ+D6
mVCWVo7WLeH6wlEPrhUv5/qZkEqi2512cP1MeFul8oASrp8Jzy8GX9xmrp8J
990j1ysruH4mZEHX1vXZy/Uz4ZiztefKGq6vhnvc/iy/H7i+Gri6unrDOa6v
huZmmn/4Fa6vhrPf26k/N3B9NeTv/rOx4C7XF+PVfLh+ahvXF9dHlNr7dKik
+mp4ZhUcuB9AlrKgKWsXe7k3WZ4F+zDD7B/lZGTBF9t26vwQsioLyiNTzzQM
J9uz4Ik5mtQxiuwUHhtfophKdmfBUVO8JG0O1xfjXSoNrnqH62vgnNzV3iWF
LNPA1+3p7rRsno8GMs/LtZdtZIUGki9vX8Jynp8GePPrksa1ZKUGrjtLDHmf
83zFeP5TlGHbyBoN3NGbh12v5PlroOhve2XbIbJDA29Kh1Drcc6jgT1x65TE
c2SXGC+40/JpVzmfmN+w3xon3yZ7xHxMo9VzHnBeMd63bUGZT8k+cX9L2P31
flWUXwvlgEu+E4FkmRaoetS7h5ws18KXb1i4IIysEPfbOniORJKhhatMkagY
T1Zqobo65WnFDLJKC3fbtKoR8WSNFlLBL2rPIrJdC8djxRCThuzQwvlm90th
NrJTXB+/XX1nOdmlhefoF1cOf0x2a6Hod+350o1kjxaacVufFZSTvWK+381d
k7eP7NPCfsdQsaKW82dDs6go6ouznD8b8vaTwt2XOX82VEN+f/duI+fPhnN2
9e6wFs6fDd/Fnd0M0m7Knw1X6MzxJwPIKjFe6O43Xu9H1mQDPydXlw4i27Ph
6TtxV79hZEc2ZDcyfv1yHNmZDUdmUFBkDNkl5rtxw7AL88jubCh3dLv7wSKy
R8yn1thnlJbsFW7Oz3qUS/aJ5x9n7atbSZZ0qC+6Xu78lCwTTrzQ6cMtZLkO
7k7Z1qxKskKHup23DiQfJkMHc7/p+uSTnF8Hb1vOLHU959fBN7HJ934D5xfX
iwtai+9zfh2kD1a2O/SM84vxbyg3NQR8Q/nF+DGRGb37k106eOLf+2NGCNmt
g7JH1dZVw8keHWSjkl4+G0326lB2qfuPfWaRfToUrXovIvltsqSHvZufa28q
WaaHrzJ2r7+JLNdDNShkW1I+WaEX++kPv1avJUMP5cDSqn4byUo9PLf+0hgr
yCo9pNiHqp++JWv08EaGHw0/TraL8aPXnlp5nuzQw/16iOvGNc6vh7Pk1/Wj
7nJ+PVJiYktWPeb8euz3W32x3m8P5Rfj4XKCvA/Zq8ft9ILQBQPJPj3K4suj
SiLIkgGqwqY1J8aRZQbxPs3ocC+GLDfAlXbPHBBPVhjg+/LGsaD3yDAAk65/
86KOrDTA6Xu1c087WWWAZk1EVkshWWOAJFtf8n0x2W5A2bqakGVbyQ4DZCE/
fR2xm+w0oG9CRsXxGrJL3N9s2T7pFNltwOBbsl476jm/Ad5xE2a23eT8Yr7r
n+0Ovcf5xfOBDY4xTzi/ESM7hw9S+O2l/EYURW/Y0v4FstwIz8PIyCo5WWGE
OWxFy5ihZBjhHD6t2TmCrDRCVmMdcGU8WSWer3x7adMMssYI+3yz5Ikj240o
sJVl5ieRHUa0Tn3tsy5qstOIOPXxafPMZJcR8P4Soc0ju8Xz+SVtswvJHiMc
x8ZE/bWB7BX1zoxav2gj2WeE4sDHS9aUkSUTZDNDLeZKzm8S69urJfgA5xfX
x/eYaz3K+U2wd7z3cPUJzm9C1/iQ8LnnOL8J+3tPmXD6Euc3QakuNz/wcn4T
FCMDOx9r5PwmeP9MfjnqDuc3QX4y5d78Fs5vwpSvPts84C/Ob8LgY4Hx+c84
vwmO7zQR+R33UX4T6uSeqS/5kb0mpCTcqJ71HNknxlvaafsLPcmSGeYBySGZ
gWSZGdJLo+fN6UOWm+Fc3iPhWD+ywgyU+r/lDiJD+FicKfpFstKMgspV9ya+
RFaZ0RoW1O4kW2OG96NrTafZdvF8UFmX6WyHWfR/ByvH83hOM2SpyxJ2cT2X
GZ6PIvPW8HzcZij2Lzjo7c35zZBnVVU4e3F+M8rmbXj+dA/Ob8ZtQ6M7yZ/z
W+BM3LxlYWfOb4Fr3apjxyXOb4EPnslr+e+vENfn7cysfsDrb0FZaOfiaU28
/hZ4lzVOH3GT19+C/Yk9w/Mu8/pbIPt+od8Qfl/sFqg+G33ytTpefwvc6SdW
Flbz+ovxnpu0bGIVr78F0h7ZoLitvP6i/rWjrbXF/P5bEDcy+HAB/z94LfBc
qH9n6xJ+/y2Qz09tDtbw+29FvbpwV5OK338riuLqAnvH8vtvRdea2oPF4PxW
3NbYtOZwzm+FYkVixO4XOb8VLv2rg2L8Ob+4PunUluhW3v/E8/YekUW8P9mt
2N8poFDp4f3PCndd8bKMg7z/WTFYUxhx5yve/4RPemovruH9z4qUhpQvwiy8
/1lhrp0c07SA9z8rnEO724Kn8f5nhXRpe9ea/+//OZB21Ddf6Mv7fw5aj6+N
WfyMz78c2OPeStI18PmXg/rBGZ88PcHnXw6cAzouCnDx+ZcDz4OZi53r+fwT
44/Im3vYzOdfDpDgeZTK5689B4fOzB27LYrPvxzY6p/IrP/g8y8HLXEL3r/V
kc+/HJwP2uT03eL+Rzx/bkLJ53Xc/+RA/kZA6Z3t3P+IevMvXv+d+x1fDuI2
La3YkM79jw3KK9eiHnB/JbOhbMinDV2Gcv9jw9DbisaL/tz/2DCmJGT14j+4
/7PBm/Q4+OAJ7n/F/e8uunhhO/e/Nniw9M/DBdz/2hA4aUKFaTH3vzYErC2T
d5rE/a8NXatiNekDuf+1oW9wh/Kd7bn/tWF48MRz57zc/9twZU9Q/eXD3P/b
ID/4U+lp/v7w2qAYc+t+uZX7f5v4/7//sTWOv39ycd7vTOjYSP7+yUW+oXzK
w178/ZOLkRlvZVXco+85RS5wZGln1Vn+PsxFa+p41Qs7yMpc+IKS9p1dyd+L
uZh+ISh8XYqr5j9WBOH9
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.011111111111111112`], 
          AbsoluteThickness[1.6], FontSize -> 20, 
          RGBColor[0, 0, 1], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw9l3tY1FUaxwcUwbQYFQXJy8+8kYiO7qpgQl/MBEFlvKCgWRMCcuc3zDAz
MKCDgSKpDSFe1qwxXcVscQhNopBRKAkxB00hpRxSWe8OKiKisme3867/8Hye
3znv93yeOZ7znlFRqYtjHCUSiauDRPLfv3/9iwc++zbOd2Fp9f9QiIei8EHJ
3Pc4Ix6mu5vaoxM4K9j37QHhRTrOBsa3StoaN3A2sfGb5lQIxZwt8RD6JLas
28fZxjh8UcyDMs6SBNi2OsWkWig/ASaPpHs9v1B+AiRj/KV7f6d89t3qcHXx
XcpPAFYMSBzcTfmMR2z98WbfIzw/AYbCqJ4GD862BCicA948NZ6zJBHIK1xS
N52zkAjD2M1br77LGYmQ3HG/7RzOWZEIU8PF9MBozoZEWPw9AzerOJtYPbdb
K26up3zG5e2N4Z9SfiJsjQVHf91L+Ukw+ZZKY8ooPwlC6uNHfU5SfhIsjsbE
SivlM34YnLvORvlJUDRqQ5bZKT8JxoWSmJESM89Pgnh93MZhLpxtjMPHFr4h
5SxJhsllcv4UD85CMmzBU5XzBM5IBoIuyhO8OCuSIXFTeW+TcTYkQ17o4XTa
l7MpGTKnnFbHQMpn9ToH1gbNo/xkCHtajhQvovwUSCKMB+9GUn4KLA45/5of
RfkpECd8XnMsgfJToJgs3hmvovwUyKe6jdunp/wUSJ/MUI/PpfwUmIoHXzq6
mfJZvf6poaHFlJ8K8adNF27vofxUmJrfTC46QPmpMHpvGfLuEcpnXBh7tuc4
5afCVti8tcZC+anAGHG58WfKT4UQMnJ07HnKT4U5csa9OVcoX4QsbLV54nXO
UhHyur2xw+/RekRIbgT0dX/CWSbC1HPWOLSH1ifC8vrojjEuZX+xXIRt6Xwf
vwGcFay+tWDyMk/OogizNbRdP5qzQYS4aNSaryZyNrJ6hZW5rdM4m0QYIltm
jXqbs5mtzyUyJz6Ys4XVV7q8U7mIs5WtT1utHLSSs42tJzrouTqas12E0S3c
+kcyZ4kS8kvrLsu1nKVKyPr79jlj4CwoIeyo8l9QwFnGvv97cEJTEWcwvuag
it9D/kooMh8F9DpI/ozbHcv3m8lfCcO9a98sqCR/Jczel4WXNeSvhEVS+vux
s+SvhDXZVKduIn8l7IM+qJ7ZSv6s3v7OPc53yF8J+J8JuPKY/JWwzczJPPaS
/JWQtnWN3+7yDfdPg/gdhmUP5CxNA5atnZAwjLOQBsWbt0evGsdZlgZD1fdN
4TLOSIPl4OuDls7kLE+DdJbb3uVzOCvY/IacEMVCzmIa5IccLyVHcDakwau8
zdkQxdmYBl/ziC+3J3E2sXrTvKPLNJzNrN7b/fpZDZwtbL3ZExY9LOBsTYPL
1LD77sWcbWx9zRt34AvO9jQ8jfToSTxE/ipYndf8uquc/FXwnXar5ucq8lch
P9dV232a/FWQXp+ybdJ58lfBPFd/IqqF/FWw975YvKON/FUw9Dr/bYOd/Nn8
wl2VDt3kz8Z3NU6f7lTO/VUQnxdUxbtyNqkgXBr/++6hnM0qmBbPExpGc7ao
YMw4/uozH85WFSyzQ73G+nK2sfldTffnz+ZsV0H2lVuLOJ+zRA1zfF6scRln
qRo3c6MlhxWcBTUktR+7WxI4y9SQ7V01+JyaM9So21r6ftNaznI2fnnpkuZ8
zgo1pF82hjV+yllUQ9j//aGTn3E2qBHcz6u85AD5q9l5erEiz0z+ajSXpjhG
VJK/mu1v3fkRteSvhjjOL/a3s+TP8ieWdGxoIn81XFwiyse1kr8auu3RDcdv
k386pFWKOL/H5J8OjHz30FcvyD8dQt0Hh19xPsr902E6OicvQsoZjLdUBxUN
5SxPh0L704vv3uCsYPVmpnx9xpuzmA55xdXFp//O2ZAO6/WFtw/7czay9YQ/
itHN5WxKh0zrWO4dxtnM6psPV9Qu52xh9RYOiZit4GxNh2H3h0n74jjb0mEe
drC+TeRsT0fwyJ7AfhmcJRrEfbtxt2sOZ6kGCEv5x8N8zgLjzu7ub4zkr4F9
y35t2E7y18B8zqP6py/In40vX7nW/SD5axDRcnklSslfA5eigqdvHyN/Dawh
Tna3H8hfA+FEaXPVKfLXQN55+R2/n8mfjUdXVd458tfAOKnml70XyV8DxYXU
ro+vkL8GpmV3fpjdSv4ayDoGbqttI38tLJs6Olzvkr8WthMey0a3k78Wdc9P
jXnRQf5aSL1Dzu1+Rv5a3AxaY3nxkvzZ/O6tilG9jnF/LRQ+YUOcnDmLWtiz
y+YefIWzQYud9i/D+7zG2ahFhVZxQBjA2aRFyY6bux8P4mxm9R4qdxmGcLZo
EVzd5ljjwdnK8j1j/Cs9Odu0wPOaI9HDONtZfsuwGstwzhIdrJWR1xpGcJbq
EBF3et3GkZwFHTxeHO73gFimg9mh9aWDwBk6CEuVl07Qdzn7vmDm4DHECh1M
9k/myKi+qGP3wbXHrbQegw7SSSknZrxO/jrII38LlA0lfx0kE+571ZOvmdXv
CRzf24382fiJN561SMmf1TswIHnJq+TP5sf9tji2L/nrIN65sMXNifwzYFpe
33+VhPwzIK/8sCGgm37/DNiOn2qq+P/vnwHBL2Be/QP6/dn81Pshabfo92ec
u8Td/Cft/wzYN93pWk/7UcyAeKs27PYF2v8ZqPvxlfwbZ2j/Mz5bMEZdQ/s/
A7Kzf6ssrqT9zzhjc/u8Mtr/GZA+G7XRSP/frGz9O+6Fxu+h/c/4pXnsr5/S
/mdsC3Zt3Ej7PxO+Izo8FFm0/zPxVNwel0PnhZAJRYfNb1o0+Wey99NHf+jp
/EEm7CtmnwgPIX/G612W18wifzY+99asHyeRfyYsnwz1fE8gf8YzmkvzB5B/
JnvvLWwMdST/TMjdVicfeEjnP6t/Tp+76086/9n4nLd8xp2n8z8TCPQpWnCS
zn9WPyf2iZTuE3smZAOGH1Z+Tue/HiV3pwxVbqbzXw+rZ9n30kw6//WweQQJ
i9fQ/adHnN/XbdOX0v2nh2xDH4sFdP/pIWybndI+ke4/PW72iq6p96D7j80f
9ItpYW+6//SQCnlP1j6g/oflb4g/teoy9T96WMqTXO/VUv+jh67vyceTjlD/
w/JDnYrH7qL+Rw95WNLwC+up/9EDO1tr/aifsrP5R73PrAyn/icLXjf6694K
oP4nC6YnUZ5XqN8TsvD0wlxnf1fqf7KgKJ64a3Un9b+Mv+49edFV6n+zYLe9
7+1ymvrfLMhNnzwqKKX+l+UFNd+/Ukz9L6vfqyjvRRb1v4wrooSHq6n/zUK+
Zs34H0Ko/81CSafW4f0p1P9mQbdHMeiyO/W/WTDO8qqe+pLeO2z+GytXJ9D7
xs7Wu++9FR/V0/snGy1rq7vWmen9k41t8/5ZGLWd3j/ZmOU1Nskni94/2Tja
+V3Dnx/S+ycbca9VPMgN4izPhlha33eID73XspHvnxG0c6C5+j/UotgV
          
          "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, AxesOrigin -> {200, 0.}, 
      PlotRange -> {{200., 470.}, {-0.3, 0.}}, DisplayFunction -> Identity, 
      AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {
       "T [K]", 
        "p [\[Mu]C/\!\(\*SuperscriptBox[\(cm\), \(2\)]\)\!\(\*SuperscriptBox[\
\(C\), \(\[Degree]\)]\)]"}, AxesOrigin -> {200, 0.}, 
      BaseStyle -> {FontWeight -> "Bold", FontSize -> 20}, DisplayFunction :> 
      Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, LabelStyle -> Directive[
        GrayLevel[0], Bold], Method -> {}, 
      PlotRange -> {{200., 470.}, {-0.3, 0.}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {0, 0}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 20, 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 20, 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.011111111111111112`], 
         AbsoluteThickness[1.6], FontSize -> 20, 
         RGBColor[0, 0, 1], 
         Thickness[0.0025]]}, {
       "E = 50 kV/cm", "E = 80 kV/cm", "E = 100 kV/cm"}, 
       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
         False, Automatic}}, Joined -> {True, True, True}, LabelStyle -> 
       Directive[
         GrayLevel[0], Bold], LegendLayout -> {"Column", {Automatic, 5}}]], {
      Scaled[{0.65, 0.435}], {0, 0.835}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.6423353722878733`*^9, 3.642335394368813*^9}, {
   3.64233551370844*^9, 3.642335528499936*^9}, 3.655663818110283*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Higher order corrections(optional apparently):", "Subsection",
 CellChangeTimes->{{3.639928206788884*^9, 3.639928210150475*^9}, {
  3.639929777929694*^9, 3.639929781217458*^9}}],

Cell["\<\
It is clear something is wonky here. Let\[CloseCurlyQuote]s use higher order \
central, forward and backwards differentiation.\
\>", "Text",
 CellChangeTimes->{{3.639927268425386*^9, 3.6399272863419333`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroForwardHigher", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     RowBox[{"d", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "+", 
    RowBox[{"6", 
     RowBox[{"a", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "-", 
    RowBox[{"3", 
     RowBox[{"b", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "-", 
    RowBox[{"2", 
     RowBox[{"c", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}]}], 
   RowBox[{"6", "\[Phi]"}]]}]], "Input",
 CellChangeTimes->{{3.639927297063671*^9, 3.63992729761017*^9}, {
  3.6399273377128973`*^9, 3.6399274114785767`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroBackwardHigher", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"2", 
     RowBox[{"a", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "+", 
    RowBox[{"3", 
     RowBox[{"b", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "-", 
    RowBox[{"6", 
     RowBox[{"c", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "+", 
    RowBox[{"e", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], 
   RowBox[{"6", "\[Phi]"}]]}]], "Input",
 CellChangeTimes->{{3.639927569274219*^9, 3.639927599195932*^9}, {
  3.639927641802631*^9, 3.6399276504808493`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pyroCentralHigher", "[", 
   RowBox[{"j_", ",", "k_", ",", "l_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     RowBox[{"d", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "+", 
    RowBox[{"8", 
     RowBox[{"a", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "-", 
    RowBox[{"8", 
     RowBox[{"c", "[", 
      RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], "+", 
    RowBox[{"e", "[", 
     RowBox[{"j", ",", "k", ",", "l"}], "]"}]}], 
   RowBox[{"12", "\[Phi]"}]]}]], "Input",
 CellChangeTimes->{{3.63992780870711*^9, 3.639927851625928*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "=", "420"}], ";", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibPolFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"pyroCentralHigher", "[", 
           RowBox[{"1", ",", "1", ",", "k"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "\[Alpha]", ",", "430"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibPolFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"pyroBackwardHigher", "[", 
           RowBox[{"1", ",", "1", ",", "k"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "\[Alpha]", ",", "430"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibPolFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"pyroForwardHigher", "[", 
           RowBox[{"1", ",", "1", ",", "k"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "\[Alpha]", ",", "430"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibPolFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"pyroForward", "[", 
           RowBox[{"1", ",", "1", ",", "k"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "\[Alpha]", ",", "430"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibPolFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"pyroBackward", "[", 
           RowBox[{"1", ",", "1", ",", "k"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "\[Alpha]", ",", "430"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"equilibPolFE", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
          RowBox[{"pyroCentral", "[", 
           RowBox[{"1", ",", "1", ",", "k"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "\[Alpha]", ",", "430"}], "}"}]}], "]"}]}], "}"}], 
    ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<central higher\>\"", ",", "\"\<backward higher\>\"", ",", 
       "\"\<forward higher\>\"", ",", "\"\<forward\>\"", ",", 
       "\"\<backward\>\"", ",", "\"\<central\>\""}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "700"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Dashing", "[", "Large", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "DotDashed", ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Dot", ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.63992745791926*^9, 3.6399275327411137`*^9}, {
  3.639927657394397*^9, 3.639927796328414*^9}, {3.639927860528132*^9, 
  3.6399279001331673`*^9}, {3.6399279351463223`*^9, 3.6399279565942383`*^9}, {
  3.639927995383675*^9, 3.639928011574665*^9}, {3.6399280985315447`*^9, 
  3.6399280996025*^9}, {3.639928135259691*^9, 3.639928192993245*^9}, {
  3.641897081444998*^9, 3.641897084048975*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.016666666666666666`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        LineBox[{{420., -0.0038047165951867468`}, {
         421., -0.004068622845150698}, {422., -0.004387435568539039}, {
         423., -0.0047827595163218665`}, {424., -0.005290238525857735}, {
         425., -0.005973461472017151}, {426., -0.006954305730766039}, {
         427., -0.008039790387557715}}]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.016666666666666666`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]], 
        LineBox[{{420., -0.003805678606840908}, {
         421., -0.004070082370526121}, {422., -0.004389784308943295}, {
         423., -0.004786850614155282}, {424., -0.005298214030787396}, {
         425., -0.005991990076083956}, {426., -0.007013866019942018}, {
         427., -0.008771418049874325}, {
         427.7466254469297, -0.013234957348406823`}}]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.016666666666666666`], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[0.0025]], 
        LineBox[{{420., -0.0038037545835325664`}, {
         421., -0.004067163319775283}, {422., -0.004385086828134793}, {
         423., -0.004778668418488452}, {424., -0.005282263020928074}, {
         425., -0.005954932867950333}, {426., -0.00689474544159005}, {
         427., -0.007308162725241105}}]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.016666666666666666`], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Dashing[{0, Small, Small, Small}], 
         Thickness[0.0025]], 
        LineBox[{{420., -0.003932957139535856}, {
         421., -0.004223052951490364}, {422., -0.00457819911787187}, {
         423., -0.005026580523531346}, {424., -0.005617290342469772}, {
         425., -0.006446034633843127}, {426., -0.007735156646453148}, {
         427., -0.010199379850411687`}, {
         427.2444329344127, -0.013234957348406823`}}]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.016666666666666666`], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Thickness[0.0025]], 
        LineBox[{{420., -0.003690397377503263}, {
         421., -0.003932957139535856}, {422., -0.004223052951490364}, {
         423., -0.00457819911787187}, {424., -0.005026580523531346}, {
         425., -0.005617290342469772}, {426., -0.006446034633843127}, {
         427., -0.007735156646453148}, {428., -0.010199379850411687`}, {
         428.2444329344127, -0.013234957348406823`}}]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.016666666666666666`], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0, 0], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        LineBox[{{420., -0.0038116772585195594`}, {
         421., -0.00407800504551311}, {422., -0.004400626034681117}, {
         423., -0.004802389820701608}, {424., -0.005321935433000559}, {
         425., -0.006031662488156449}, {426., -0.0070905956401481375`}, {
         427., -0.008967268248432417}, {
         427.5734954364087, -0.013234957348406823`}}]}}}, {}}, {
    DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.02]}}, AxesOrigin -> {419.84375, 0}, 
     PlotRange -> {{420., 430.}, {-0.013234957348406823`, 0}}, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {419.84375, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> 700, Method -> {}, 
     PlotRange -> {{420., 430.}, {-0.013234957348406823`, 0}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"central higher\"", "\"backward higher\"", "\"forward higher\"", 
       "\"forward\"", "\"backward\"", "\"central\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, 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.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {}}}, 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.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}], 
                    Thickness[0.0225]], {}}}, 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.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.0225]], {}}}, 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.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.15], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], 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[1, 0, 0]; 
                    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[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], 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[1, 0, 0]; 
                    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[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1, 0, 0]"], 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[1, 0, 0]; 
                    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[1, 0, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.639927533340681*^9, {3.639927671084437*^9, 3.639927687237405*^9}, {
   3.639927719508463*^9, 3.639927742911481*^9}, 3.6399277968937597`*^9, {
   3.639927872201869*^9, 3.6399279004968576`*^9}, {3.639927939495631*^9, 
   3.639927957276672*^9}, {3.639928019976161*^9, 3.639928046485797*^9}, 
   3.6399281000126753`*^9, {3.639928137330893*^9, 3.6399281932660837`*^9}}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\[CapitalDelta]T (electrocaloric effect):", "Section",
 CellChangeTimes->{{3.639338812675859*^9, 3.639338830849663*^9}}],

Cell[TextData[{
 "We now concern ourselves with the following  ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalDelta]T", 
    RowBox[{"(", 
     RowBox[{"T", ",", "E", ",", 
      SubscriptBox["u", "m"]}]}]}], TraditionalForm]]],
 ") = -T ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     SuperscriptBox["\[Integral]", 
      SubscriptBox["E", "b"]], 
     SubscriptBox["E", "a"]], 
    RowBox[{
     FractionBox["1", 
      SubscriptBox["C", 
       RowBox[{"E", ",", 
        SubscriptBox["u", "m"]}]]], 
     RowBox[{"p", "(", 
      RowBox[{"T", ",", "E", ",", 
       SubscriptBox["u", "m"]}], ")"}], "dE"}]}], TraditionalForm]]],
 " formula for computing the change in temperature due to the change in the \
applied fields. Since our solutions are discrete we need to rewrite this as a \
numerical integral or a sum."
}], "Text",
 CellChangeTimes->{{3.639338837263413*^9, 3.639338844948938*^9}, {
  3.639338901496192*^9, 3.639339032539345*^9}}],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{
  "TotalHeatCap11", ",", "TotalHeatCap12", ",", "TotalHeatCap21", ",", 
   "TotalHeatCap22", ",", "TotalHeatCap31", ",", "TotalHeatCap32"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.639339881742173*^9, 3.6393398879316063`*^9}, {
  3.6418520961458063`*^9, 3.6418521144347887`*^9}}],

Cell["\<\
This is the issue, we can\[CloseCurlyQuote]t sum all of the temperatures \
until the intergration. Need to get rid of this step\
\>", "Text",
 CellChangeTimes->{{3.642253307833357*^9, 3.642253325879672*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]T1", "[", "k_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"equilibFE", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}]}], " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       FractionBox["1", 
        RowBox[{
         FractionBox[
          RowBox[{"15", "*", 
           RowBox[{"CvT", "[", 
            RowBox[{"[", 
             RowBox[{"k", ",", "2"}], "]"}], "]"}]}], 
          RowBox[{"6.022", "*", 
           SuperscriptBox["10", "23"], "6.430201823999999`*^-29"}]], "+", 
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"1", ",", "q", ",", "k"}], "]"}]}]], ")"}], 
      RowBox[{"pyroBackward", "[", 
       RowBox[{"1", ",", "q", ",", "k"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "50", ",", "150", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.639339036279438*^9, 3.6393390972977457`*^9}, {
   3.639339137046064*^9, 3.639339165047099*^9}, {3.639339454741831*^9, 
   3.6393394923660393`*^9}, 3.639339960860355*^9, {3.639339992286306*^9, 
   3.6393400519199343`*^9}, {3.63934032747515*^9, 3.639340330032598*^9}, {
   3.639835522649704*^9, 3.639835522978702*^9}, {3.639836015737117*^9, 
   3.639836016081769*^9}, {3.63991945439209*^9, 3.6399194547465963`*^9}, 
   3.639919640020208*^9, {3.639919939764076*^9, 3.6399199421066513`*^9}, {
   3.639920419435636*^9, 3.6399204374701233`*^9}, {3.6399282486685247`*^9, 
   3.639928249255753*^9}, {3.6399286648015842`*^9, 3.639928675736273*^9}, {
   3.639929256847315*^9, 3.639929258727529*^9}, {3.639929317503261*^9, 
   3.639929332938777*^9}, {3.6399347921678753`*^9, 3.6399347942663097`*^9}, 
   3.639938588883904*^9, {3.6400946719541883`*^9, 3.6400946736084957`*^9}, {
   3.640100263472314*^9, 3.640100268928835*^9}, {3.641851512549098*^9, 
   3.641851515867138*^9}, 3.641851555699645*^9, 3.6418515884205236`*^9, {
   3.641851747188941*^9, 3.6418517476932287`*^9}, {3.6418520479984283`*^9, 
   3.641852080406983*^9}, {3.641852129319332*^9, 3.641852147736411*^9}, {
   3.641852201767949*^9, 3.641852202534766*^9}, {3.641852235262295*^9, 
   3.6418522356312847`*^9}, {3.641852928579423*^9, 3.64185296535369*^9}, {
   3.6418974677004137`*^9, 3.641897470658946*^9}, {3.642253335212522*^9, 
   3.642253358950795*^9}, {3.6422533917754*^9, 3.6422533919061003`*^9}, {
   3.642254557060811*^9, 3.6422545632324*^9}, {3.642254666908081*^9, 
   3.6422546701968327`*^9}, {3.642254760156179*^9, 3.642254761186651*^9}, {
   3.6556638644261217`*^9, 3.655663897554031*^9}, {3.655664089121312*^9, 
   3.6556641084605637`*^9}, {3.655664159060997*^9, 3.6556641730968113`*^9}, 
   3.65566426013417*^9, {3.6556643291385612`*^9, 3.6556643376105022`*^9}, 
   3.65566436998197*^9, 3.655664557237711*^9, 3.655829279948946*^9, {
   3.655829399187502*^9, 3.6558294170421963`*^9}, {3.655829673062187*^9, 
   3.655829695932729*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]T2", "[", "k_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"equilibFE", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}]}], " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       FractionBox["1", 
        RowBox[{
         FractionBox[
          RowBox[{"15", "*", 
           RowBox[{"CvT", "[", 
            RowBox[{"[", 
             RowBox[{"k", ",", "2"}], "]"}], "]"}]}], 
          RowBox[{"6.022", "*", 
           SuperscriptBox["10", "23"], "6.430201823999999`*^-29"}]], "+", 
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"2", ",", "q", ",", "k"}], "]"}]}]], ")"}], 
      RowBox[{"pyroBackward", "[", 
       RowBox[{"2", ",", "q", ",", "k"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "50", ",", "150", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.641852020475075*^9, 3.641852087078062*^9}, {
   3.641852138095676*^9, 3.641852158632999*^9}, {3.6418522067500973`*^9, 
   3.641852207059142*^9}, {3.641852961525868*^9, 3.641852976232821*^9}, {
   3.6418974804544907`*^9, 3.641897492419438*^9}, {3.642253370493325*^9, 
   3.642253419186047*^9}, {3.642254558414977*^9, 3.6422545646122427`*^9}, {
   3.655663868435266*^9, 3.655663898528183*^9}, {3.655664090317819*^9, 
   3.655664110879957*^9}, {3.655664160647208*^9, 3.655664174113611*^9}, 
   3.655664261310378*^9, {3.655664331070219*^9, 3.6556643387731047`*^9}, 
   3.655664371170795*^9, 3.6556645583735323`*^9, 3.655829280881072*^9, {
   3.6558294039844007`*^9, 3.655829418125177*^9}, {3.655829678360277*^9, 
   3.6558296969798117`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalDelta]T3", "[", "k_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"equilibFE", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}]}], " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       FractionBox["1", 
        RowBox[{
         FractionBox[
          RowBox[{"15", "*", 
           RowBox[{"CvT", "[", 
            RowBox[{"[", 
             RowBox[{"k", ",", "2"}], "]"}], "]"}]}], 
          RowBox[{"6.022", "*", 
           SuperscriptBox["10", "23"], "6.430201823999999`*^-29"}]], "+", 
         RowBox[{"\[CapitalDelta]CBackward", "[", 
          RowBox[{"3", ",", "q", ",", "k"}], "]"}]}]], ")"}], 
      RowBox[{"pyroBackward", "[", 
       RowBox[{"3", ",", "q", ",", "k"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "50", ",", "150", ",", "1"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.641852027647485*^9, 3.641852088157148*^9}, {
   3.641852139822282*^9, 3.641852160671782*^9}, {3.641852208369022*^9, 
   3.6418522091397257`*^9}, {3.641852962567458*^9, 3.6418529778070507`*^9}, {
   3.6418974817083263`*^9, 3.6418974869389963`*^9}, {3.64225337651408*^9, 
   3.642253420448292*^9}, {3.642254559732513*^9, 3.6422545659578037`*^9}, {
   3.65566387192387*^9, 3.655663900084607*^9}, {3.655664091442979*^9, 
   3.655664113073193*^9}, {3.655664162673935*^9, 3.6556641752164927`*^9}, 
   3.6556642623152514`*^9, {3.655664332041615*^9, 3.6556643400896893`*^9}, 
   3.655664372278735*^9, 3.655664559415277*^9, 3.655829281838979*^9, {
   3.655829407493891*^9, 3.6558294191373367`*^9}, {3.655829681099173*^9, 
   3.655829697747046*^9}}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[" ", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 0.5}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 3}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"q", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"equilibFE", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
           RowBox[{"2", "*", 
            SuperscriptBox["10", "5"], "*", 
            RowBox[{"Flatten", "[", 
             RowBox[{"\[CapitalDelta]T1", "[", "k", "]"}], "]"}]}]}], "}"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "285", ",", "560"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"equilibFE", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
           RowBox[{"2", "*", 
            SuperscriptBox["10", "5"], "*", 
            RowBox[{"Flatten", "[", 
             RowBox[{"\[CapitalDelta]T2", "[", "k", "]"}], "]"}]}]}], "}"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "285", ",", "560"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"equilibFE", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
           RowBox[{"2", "*", 
            SuperscriptBox["10", "5"], "*", 
            RowBox[{"Flatten", "[", 
             RowBox[{"\[CapitalDelta]T3", "[", "k", "]"}], "]"}]}]}], "}"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "285", ",", "560"}], "}"}]}], "]"}]}], "}"}], ",", 
    
    RowBox[{"Frame", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
    RowBox[{"PlotRangePadding", "\[Rule]", "0"}], ",", 
    RowBox[{"FrameTicksStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "18"}], "]"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Dashing", "[", "Large", "]"}], ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Directive", "[", 
            RowBox[{"{", 
             RowBox[{"Blue", ",", 
              RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
              RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], "]"}], ",", 
           
           RowBox[{"Directive", "[", 
            RowBox[{"{", 
             RowBox[{"Blue", ",", 
              RowBox[{"Dashing", "[", "Large", "]"}], ",", 
              RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], "]"}], ",", 
           
           RowBox[{"Directive", "[", 
            RowBox[{"{", 
             RowBox[{"Blue", ",", 
              RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], "]"}]}], 
          "}"}], ",", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
           "can", " ", "use", " ", "linelegend", " ", "with", " ", "a", " ", 
            "frame"}], ",", " ", 
           RowBox[{"use", " ", "Directive", " ", "on", " ", "the", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Directive", "[", 
               RowBox[{"Black", ",", 
                RowBox[{"Dashing", ".."}]}], "]"}], ",", "Black", ",", 
              "\"\<0\>\"", ",", "\"\<10\>\""}], "}"}], " ", "to", " ", "get", 
            " ", "hte", " ", "proper", " ", "dashing"}], ",", " ", 
           RowBox[{
           "then", " ", "use", " ", "text", " ", "annotations", " ", "with", 
            " ", "the", " ", "color", " ", "for", " ", "strains"}]}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Epsilon] = +0.1%\>\"", ",", 
             RowBox[{"FontSize", "\[Rule]", "19"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Epsilon] = 0%\>\"", ",", 
             RowBox[{"FontSize", "\[Rule]", "19"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Epsilon] = -0.1%\>\"", ",", 
             RowBox[{"FontSize", "\[Rule]", "19"}]}], "]"}]}], 
          "\[IndentingNewLine]", "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.618", ",", "0.18"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.8", ",", "0.3"}], "}"}]}], "}"}]}], "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<T [K]\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Latin Modern Roman\>\""}], ",", 
         RowBox[{"FontColor", "\[Rule]", "Black"}], ",", 
         RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[CapitalDelta]T [K]\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Latin Modern Roman\>\""}], ",", 
         RowBox[{"FontColor", "\[Rule]", "Black"}], ",", 
         RowBox[{"FontSize", "\[Rule]", "22"}]}], "]"}]}], "}"}]}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{
   "this", " ", "is", " ", "approximately", " ", "equivalent", " ", "to", " ", 
    RowBox[{"Pamir", "'"}], "s", " ", 
    RowBox[{"work", ".", " ", "Note"}], " ", "the", " ", "CvT", " ", "needs", 
    " ", "a", " ", "factor", " ", "of", " ", "15", " ", "on", " ", "it", " ", 
    "and", " ", "the", " ", "dE", " ", "needs", " ", "one", " ", "more", " ", 
    "power", " ", "of", " ", "10"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.6422545929887*^9, 3.642254864495426*^9}, {
  3.642255992701496*^9, 3.642256109935944*^9}, {3.642256149882043*^9, 
  3.642256188892283*^9}, {3.64225626075205*^9, 3.642256290861401*^9}, {
  3.6466701077963867`*^9, 3.6466701303874407`*^9}, {3.6556638851913*^9, 
  3.6556638866502523`*^9}, {3.6556641235525103`*^9, 3.6556641278289633`*^9}, {
  3.655664235122682*^9, 3.655664236591195*^9}, {3.655664288606678*^9, 
  3.655664312759872*^9}, {3.655664359816876*^9, 3.6556643612027483`*^9}, {
  3.655664548658291*^9, 3.655664552387678*^9}, {3.655829271826663*^9, 
  3.65582927633538*^9}, {3.661185973413787*^9, 3.661185978190853*^9}, {
  3.661186064729272*^9, 3.661186120626807*^9}, {3.661186153454389*^9, 
  3.661186274629499*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[0.0025], 
       Dashing[Tiny], LineBox[CompressedData["
1:eJw913tczPkex/GJNmGXKbVsLFOL7ULmRKQl791cUi6jFWWXcsut1TT3+/xG
ttVmt9xvyRyXkNtY65QuTEhaYSjlFpUQbTYiRDmd3c/3zD/zeD4e85j5vmbm
8fl9fu4L4sMXd+LxeC52PN7/nv9+2BJQoCkYNlD8Ytzfrk7AxoKlk+vWkJsS
UJrdfvnUv8k8CUbMunF6by6ZL0Hcysh++8rIAglirnZ+lPsnWShBzcez3B59
1PyPIUH21ZL/DB5AFkkwJvhKti6AHCOBe0Ven/oZZLEE59wuly1dQeYkmOHr
VNu+mpwmQVXl4q+yMshmCQZuiatYnkO2SPBskOEArpOtEsjOZuzz+ZNsk2CO
TG31cXhJ/RIoFGFPISA3SaCxq3VeEUjmSfGhd5Jn1kwyX4q9+pe921eSBVJc
HRteGptMFkrhz7kNq9tDhhTfFfX2VJwmi6TYfGv6zn63yDFSLJr5TlLZTBZL
sem9JCWzxyvql+LkSI/iZC9ymhT9v9Lam8aTzVIcHFM7YG002SKFZ525OUtD
tkqReq5sdtUmsk0KP8z1+OI4uVqKxDbbYF0puUkK3eiYkfWPyTwZXj62DVjS
uYX6ZfD2mn/sTX+yQIafHmQfTQ8kC2WoGFhRFz6LDBmmh79z7Sshi2Tov2dT
51e/kGNkuL7dN676IFksQ6uHqHtVEZmTIdpRue1pDTlNhqTU5kuO7WSzDDUO
d2aOcntN/TLonjfUykeSrTJsGyN3Px9OtsmQd/2bHPd4cnXH5w/lwn5NITfJ
sOXKbm3XA2SeHLzg6Q/Xnyfz5ShzCnT3riEL5DitcT1/pY0slEPlJJ7Hub2h
fjlS3bbrgkaRRXL4Lv8503EmOUYOxXRr9D0xWSzHreKBX575hczJsWfgX4qs
LHKaHAtCfjy/q5hslmNE/Vwuo45skcP27o5rpt1b6pdDGTOy4WR/sk2O8Tun
z7/8FblajujT6WUNkeQmOewtrVv4CjJPgfjUTe2BG8h8BU5Yz8xYbiELFBhb
eu3GzstkoQIJqfYl5U/JUOCvQzMW9nBspX4FGoqmV0weRI5RIE7XZWrSN2Sx
Au69KxvORpM5BSwtE23tOnKaAhpVA3/0drJZgScLAwvE2WSLAke3Lq7aW062
KnCverSk/DnZpkBpVYusvcc76leg2duz0n0IuUmB6N2mVWMnk3lKRL3OjxTF
kvlKvAuOHx6VSBYo8WJv/YNZZrJQCSe/T4aHFJChxN1PR9T43CaLlDj+oVMm
7zU5RomkT0KFRb3eU78SOeseDFIJyZwSnXtu+KLPVHKaEuK/HuTvWUY2KxHH
66n7LIlsUSJ0240a5W6yVYlD2XGLC06TbUqENM6R1d8mVyvRcCVW8rqF3KTE
7RnaU/XObdSvwsZd67fl+pL5KvgNzIxcEUoWqJDy3Wa/t4vJQhVkcu+oBSYy
VPh42svmvelkkQrvayMEZ7LJMSo8c1U8P3qdLFZhl2KsWNJI5lTIr/p+RxfH
dupXYUX6tCVxHmSzCqW9F5zOGEO2qLBbYuPSZ5GtHedZVbh6oZhsU6HgbcLm
58nkahV+zgtRjd9DblIhNLy9NiqfzFNj1/W8H4fdIPPVmHJitsO5RrJAjQS5
0c7Z4QP1q+FpftnNrT8ZatxOu3Hkpj9ZpEbezXtxYVPJMWpMdCk8G7+ILFaj
+LHSI1hL5tQ4lpH1+uw6cpoaXl1d9/+5n2xWI2h+668FBWSLGo8jtncZXka2
qpFcmbMwtJ5sU0M4ZehzXhu5Wo2GBb+/P+jIwz/9aqQPd5lvdibzNFgR4TBp
QT8yXwPXFVnTng0iCzSo2Tu5d/AwslCDcQEF46IDyNDgULQt9uuvySINeNJj
PvWTyTEarJPO9g0PJ4s1sL3pxjfMIXMarF1aKl2+gJymwa7ple2uy8lmDWqv
eEUZE8gWDSLWdPLdpyJbO87juXJIkpFs08DoV9bFPYlcrcHkApNKtpb1a7Dk
4YQxxvWsX4uCP959iq2sX4vG7weXndzJ+rXY45Pyzf3drF+L60VFQXn7Wb8W
Z54/OhhymPVrER/SPT7Jwvq1KBnydpX0d9avRXnYiboeOaxfi2c1vTJm57F+
LbYr5p+fcpr1a3Gp/z1Vo5X1a+G0Y/aTgHOsX4uLxt9EvkWsX4vc4LjXpRdY
vxYhuwQjXC6yfi1Gq9pXdC5h/TokPw3qtZ2Zr0O3ytQjlcwCHZZNVV/JYxbq
UNwp57OJzNDhTddNwQr2/iIdup7ycppSzPp1CPHfF1nMzifW4eoTo109Oz+n
wz7P/fZHC1m/DqH2GXGfnWH9Orjf2Rjhnc/6dTjVW9pYzb4/qw5eZ8ulY0+y
fh3sQz+MxnHWr8PrO5d2P2G/T5MOeX8kegQeYP16jH9iCfLbw/r1MCc8+uX6
/39/PTI36bL7sv+HUI+7rhOkPdj/Bx2vd/BNPpTC+vUI1NfZmlezfj2Cjy37
V72e9evhP2CHOVnB+js+v0uBx62VrF+PxGsvSipjWb8em9t/P5k0j/Xr0dVz
vPPjCNavxx11zz6tU1h/x3kMbt0Lg1m/Hvg2JnBsIOvXIyDL+0O8kPUb8DBR
mj9nMOs3YB1v1L32vqzfgKyxl27OdWL9BtSMHOWpdmD9BsgDuu3a28LmnwFV
k/wsN+6z+WeAsoi/e81FNv8MKI+uSLda2PwzYABfd43byuafAXcd4lWlRjb/
DHDOnWnLjGXzz4Chhy/068Xmq9WAXmu89rkMZ/PPgMg41Ymjfdj8M8Dlt4Eb
6trY/DdgyrmW1FO1bP4bIQqyfyUsZvPfiBO5B7tPO8TmvxGdy9e4uaSShUbs
m5a+KElChhG334o8D0SQRUZMsjuSoQsgxxhRdVff6tCXLDZC4b1jSWgbu/4Z
8fjC4G6h98lpRpRMetDmWEg2GzFjxpaIn3eTLUYse/OD27VEstWIjVHSsOpF
ZJsRL0zOVbkTyNVGJOrScxYOJjcZsdLvXl6VA7v+c7hRU5jj85j2A0cOrltf
yETFZD6H4qDUg9P2k/tw8Mt81MnrJ7KAQ/7ZQEFtLNmTQ8T85A26iWQhh1+v
Rte0DiIHcBj9+Rku+iMyOLxXPrt9uI72pRAOc7vIwx6eY/sUhyR/O0H3PeRI
Dk7+0VsFq9h+xaHGW/Xoy/nkpRy+1UT4fgGymEODWZDkMoCs4mAfNbKlrY3t
nxw+bPdX19wlr+EQm+L03prH9lEOjc1D5mWwfXQrB7sSaYJWzfZTDseP6Vuj
IskHOAyZc8zy1Si2r3IoerggyONTcg6HUZu6fd3zFdvfOTgPmDfZvpx8keu4
fqbc6XSC7fMd31/Jd/Efryff5OBWulLskcD2ew78lMVBE0Xkeg6Df3Mdqh7G
9v2O3lOFq/N7kN9wGOQZusrpGd1P8ExwDoudrb5MdjQhuL3C+9VhMt+EtRf2
9UlaS+5jguHoTL+hcWSBCZ9v7m1sCCN7mqBRO70v9CELTUjs/GP68e7kABNe
7ncNzWug+ymYsGTbq7r7l8ghJkyo+HK84DBZZELXxqP++rXkSBPUdy4ZXseR
Y0wISxh6N3UqeakJ638Y1mmSL1lsgjTFYefnPckqEy4d/iByaWL3nyb8MeZI
rs+1lnH/BaCPke4=
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[0.0025], 
       Dashing[Large], LineBox[CompressedData["
1:eJw913tczHkXB/Cpdm3IGkkuZU3s5s6wEio+ueXeKBS5DO26JDXN/T6/ERIh
UlorRS65xMhlIzHuLZXIJrK0WotoTemRJJ6e3fN9+qfX+1XNzKff+X7POR5L
ooN+tOfxeC52PN7/vv/zVRKDIdab0+P968f848oYhIomrxy3iGyLQfzR3Nhv
DGSeFB2j5bu6/UzmS7HUeiLX+yxZIEXE8eUPFPfJQinkd4c13/sPGVI4yH0F
s13+869FUjhVd/J9N5QsluLS5KyA3JlkiRRvs9t7/ywhc1JsPaVp2r2FnChF
rql17JVj5AwpfBafznUsJlukyLrtsSaqhmyVIjZU/2u907t/XSLFovELVvw8
gFwpRfbFFCyZRrZJsdOvc5/JkWSeDAFvztQHJpD5Mhxe00GlPEoWyPCDa5ju
fCFZKMO7WQN+9aghQwYx5vU60K6B8sugKs4PmDyILJbhYN+v3rQJJEtkWDZ9
TWF1NJmTYVLdq00vEsmJMuQ19alwyCFnyFAm6zbHt5RskaH/oLCdW+vJVhli
F9r5Obi+p/wypBiXFCZ6kytlSFIW3R45l2yTIeTzuBvNWjJPDs/Y0f0f7SLz
5XD8PjTy3gWyQA6R0PHts0qyUI4pJ+b24Ds0Un45Ss8mTQr6jiySw3/P6/NH
AshiOSKXeV9yiyBL5HC7ti5xTwKZk0O35vcw3+PkRDlScwsmv7pDzpDDa0Jb
ZXY92SLHpLkjas2dP1B+OcJiA63LRpFL5Dj/eP6jBQvIlXJUezkNDefINjmW
eY7bo8wk8xRwXnHyY8p1Ml+BO6eXtr7ykixQYKk8xNjo1ET5FQgseOcwUkiG
AvKc3O+5YLJIgcKJu3cUKcliBSb65x3qsZMsUUBz8mypPJ/MKTBwuzjqViU5
UQFLkssljy8+Un4FfPbPs1P2JlsUkEYFBV2fQrYqcHD16Kv8KHKJAlPufQgO
3kquVKD86prqjafINgVcJ0nm594n85TYapGuKPtA5itRbX2UV9W9mfIr8axO
8OJ3kIVKpL+fHXk5nAwl8tKuHN+8jixSos21KHscIouV8MvZs6v0FlmiREf/
Dbsn/k3mlJj1uLB9Cv8T5VdiXtzAJxeGkjOUOK0a+jR/FtmiRH3Ib/e2KMlW
JWQPx84dkkouUWKbZ1rD7rPkSiV2bLjV/beHZJsSXqnzepQ0kXkqVHwX6ZXg
/pnyqxBpyjZ+6UcWqLC3ecVn7wVkoQpzPLP29DCQoUJu3GKv3F1kUcvPRbck
zXlksQpN48/Yqh+SJSrsLG8zUt9I5lTo1/X4vLK2PPybX4WqipJHed3IGSrU
cDr/yL5kiwqfX0xxf+ZNtra8/p2Yd70mkktU+GbpjEDPWeRKFfTOXdNeLibb
VLB2S5++MprMU0Od73wjS0/mq+GZZFueHk8WqLGotC5hWgpZqEZA0bfrs/eS
oUaFvPHIxWNkkRoOsXEB3DmyWI28NcVZr6+RJWqMme38jf0dMqdGiGR6Q34F
y6+G3VFLXPe/WH41bnqN6P2NjeVXo8P94GH5jSy/GtrOSZ3e29tRfjWmfYry
KWxLrlTjfkzHnt4uZFvL6x8cGTzcnczT4O4U++U3epH5GhhDn7Z50Y8s0KBN
+JrG5CFkoQa9Hlpa3fYmQ4PndV7uW/3IIg3iZlzyfTiWLNbARfrL2qwAskSD
dPsm4YepZE6DZ+/2pRQFkhM1WJ1yaJBHMDlDg/pHy7a9nU22aFBywM04LpRs
1UC3Z8Td9vNYfg3sivdtDwlj+TWY8Pf12q7zWX4NZiyL9ZvDzNOi67ZPb9sy
87W4992Ec6PY3wu0iMq5tPDpXJZfC7fQLQ/s2ftDi5d1KdN2sc8n0iIrOt7h
eBDLr8XXZYdkPiyfRIvNHyN9xv4/vxa3r7zxuDqR5ddCc3e062V/ll+LOebY
QX6+LL8Wi5s/HBg+nOXXwvNGWeXxwSy/Fsl2DeLDfVh+LVYkxRX39mD5tVD1
XF3btyvLr8NCp84ncvgsvw7rpto7X/2K5dfBw/PuMPEnVv863FvdaVZ8Pat/
HV7rNlz2r2b1r4Og3Oflxies/nX4M2zPhIh7rP51eBx0ctmTAlb/OhwTtbbV
nGf1r0NKQcOmVAurf11Lv7E0/5HJ6l+Hnh1iWhWx82jVIefHM+r57LyW6JAv
MwxI0rHzr0NhQ/Jn2Sp2/nXQxjeV2i1i51+PmskBm8eI2PnXY1jmQBehPzv/
evQ+zZ9aNoTl16OqZq+rV0+WX49Fv+wNCXRm+fW4Jk+v7m3P8ushHHVuemwV
u//0uLIt7tzoy+z+0+P5TzePxWWQE/XYzx+QHW4kZ7S8n3SYZ3kY2aLHrS3X
ldUjyFY9SsLP/5XeiVyihyHzyMHmWnb/61EUWlTqWMzufz0O3+Ctun6I3f8G
BGlfhfmsJfMNEPTyi44UkwUGuHNtwhb6kIUGnPh7Um4nVzIMqNo164sdNtb/
DEjYmZ7x103W/wxYdSnqruN+1v8MqPwx87KdifU/A8bdOGz4LZScaMDTVZFv
44aSMwzQXRU1uDuRLQb0LZ+P1Ges/xswNTlwRfMF1v8NGBJdagtMZf3fgCbV
hZFJMaz/G7D9yfSNN9n8wDPCu3p1h8ZerP8b0W655HePZppHBEYEDkl7FlDG
5h8jHgSuahV1nM0/Rmw7Gm+/Yz2bf4zInDEr9tpiNv8YcUy7qOvHUWz+McK2
77Gvnwubf4wwCoQzNtbQvJVoBPRBKS/YPJZhRHP+yoCQDLLFiJGrJxgeaNj8
Z8TMcRV+McFs/jNinrxcIxjI5j8jit8K2r1sxeY/I9oeDrpYWEnzJM+EmRtF
44vOkfkmYOMN39fbyQIToozZw/tHk4UmhCgLsjdOZvNvi+MGO7X/ls2/Jiif
Fx4+84nmZbEJK7UP78Q+IEtMiD3yw1nVKTJnQuv0i/FJW8iJJrQ/4TC/PIKc
YcL6wfGjAiaSLSYkh87x+MODbDVBEvPTpwPNtA+UmJB5vcvJnx6QK00on5nu
fO402WbC1wURfzpuI/M4bE5IrVoXRXbkEOey4eKwqWQ+h6mVU9079iF34SB3
/bCt55dkAYfrEo+c8Ke0D/XhsCrK7VPZRbYvcfiYHFGrTyOP4NBF59Y8W8f2
p5bf79c+fslc8iQOM/QL6vd6k0Ucxt7JSO7sSg7lMK1sYp61nu2XHPp4/3Fk
dyl5OYc6O9mBEzls3+QQ+frU08atZDWHEIfwraoYtn9y6D/N/Kgf20/Xc9CO
TXvecQjbRznYyjqUDO1ATuVQ/GZ8dlwt7b8ZHCpUzxOd75KzOAj6CuNKc8gW
DjMvdN5xM4mcy6FtRcLlBjnZyoE7dLRV2BxyQcv/+86HsHpvcgmHxXUJZ650
JZdzsNs1vtWvTW/p+XKIzm4c/sVj8gsOx5KzhAor2cbhVfe9990yye85tI8+
6fR+LZlnRtjTmdmtV5AdzXDxtSaJppH5Znz1i8+OwsHkLmbErHVLMHQkC8xw
7/FuXHhDHT1/M17NLdhkqCALzfAVdhheeJE8wgyfBY2tAveRYUZjVUTBl/Hk
SWa0m+kN2yqyyIwJXQYN/TqYHGpGxP7R4kUjyGIzzuZu2lDVnbzcjB9CUqJ3
OpAlZjyc4VMY+7KWnr8ZacLnYem3yZwZ/WvSyl+frh3zXyjWh64=
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[0.0025], 
       LineBox[CompressedData["
1:eJw91nlczPkfB/AZtRWiQeQoJrKyqMnKUeilVQhtFB2KHOtKydz3fCdl2R/b
UGvlKkfKtUZYso5ZInINOVNMsZRVJqmwya/fen9/8888no/5zsz39X0/3p/3
233Bypk/tONwOM5cDud/7/++zKtQ/rYm37W0KeBfW1ZhRqrng5r3ZOsqOE8+
tbW2b/MXc4SodJheOyiIzBOi5kH0n1sSyHwhnBft5WITWSDECvsSg1shGULM
CSme7GMhhwmxJlT+UWn//ovjhag+3Dnxoxc5WYje19PijswmM0KMZxy0WVqy
QYhBI6Mlp/aRc4T4vGzok463yEYhjq5SBGc0k01CeH5X5BXK//DFZiGeG5a0
HzuFbBFiYNiFMbFCslWInSNE3X7bRuaIcNZT/EhwicwTYZKf/9lndWS+CLmD
b1Rc6vmR8ovQrvxM8P1AMkSIFnu96ZZIDmu7PvbcKc2v5HgR8hYmJHW9QE4W
YbzX0ovm12RGhIRHL2acdPmH8ovQnFaWVRRIzhEhJCPnc1Mi2SiCS0ZeybQs
skmE2ByuR1ER2SzC9lCr8xwr2SJCVveYNCfXFsovglvKt35PJ5E5Ynisqikt
FpF5Yry0zb1+OZvMF6PBO1P66BpZIMZYv0EfW5rJEMPrvU+El8cnyi9G4KSu
EcvDyPFi/N1QnHVYTU4WQ739Y8a7fDIjRlNIB63/PbJBDJHeZq6W20r5235P
tq9d4TCyUYwbLrHcl9FkkxgZXJ/jNmvIZjF+PFE+qkMB2SLGjLiiZY0VZKsY
w7Y7vzjf/jPll2C88q+vFvmSeRKU81ZWPI4n8yX4um65n/t6skCCGunq3cNO
kiEB9967GR8ryWESvN7j5QY7Dr7kl+CDycKJ7UNOlgCR1ZzpAjIjQfHUPwY4
BZENEihOx03ZGU3OkaDDR/2QpkSyUYKY0Q/juqaQTRLE3sgOrfuFbJagAYmT
0vaTLRL8OCgg6c4ZslWCHX/dvmy+ReZIIRz1/QhVFZknhbL3ZNX1d2S+FKeX
dp543o77xQIpUh4sdQvtSYYU9uZDOtFgcpgUR5+MMQ/2I8dLsWnF7B8SQsjJ
UuTmqX8aHkNmpFhd3y5NsYxskOIfH0GWn5ycI8XvFfuckteQjVLEBw/1d84k
m6Q4u/mi1n0X2SzFlYkdIzYdJlukiEu9P2N+IdkqxTz7puHrisgcGcxL+lXY
3iLzZKjLfLzk1kMyX4Zyg2TA80o2vwytqSXZ41+x+WXY9amuoKyezS/DCOMG
3fH3bH4ZXIy1yiutbH4ZlKINwm627Si/DN5JYzduciAbZHgUsGvhd47kHBnQ
2b18gBPZKMM6R6fZw7uQTTKkNg3ektiVbJbhQea0+3dZW2TY2mtewRLWVhka
d0rHfs1+nyPHtP1eb3ns7/PkGJXYdiSy/8+Xw9Qhsj6JvT+BHPWcgCl/2ZAh
B1MQ92wDmy9Mjq/35I5L+H9+OXi17wUM+3yS5dha2fv1rRq2/nLYzZ9YF8c+
X4Mca5IXcb3Y558jR13K4BETb7L1l8Oj9Hnp3ots/eXoXx6yOOIUW385bJPG
74k8xNZfjstDtyQdy2brL8eZOsc7Kzax9Vdgb7V389pUtv4KTNxy1L2TlK2/
Ar3Cr+xvXczWX4Gyby1NCyLZ+itQ0JihDJjE5ldgWWL1wayRbP426yrayQay
+RW4/8vUd+Xd2PwKDO3Vrc7MZfMr0FC+PTzqDdv/CsxZflApL2f7X4Hpb6X5
I6+y/a9ASVpvpy0n2P5XYPWMKdd27WL7X4Hs7qiK2sD2vwIqr464IGf7Xwnx
i+YTVQvZ/lfCYWboh3OhbP8r0d17zO45Y8gCJaJGVH9zdgAZStTcfVD3shM5
TAnPQVkRpjd0HsYr8eJqVUP4RXKyElKx74lNm8mMEkHps2amLiMblDjp6Bok
GEvOUaKi9nTxjs5koxL2f3S9V2phz/+26xMnD37EnvdmJbJfSwKPp7LnvxKX
e6jnJ8xmz38lqlZZf7L1JHNUmO/rvjbtA80fngopo7yrG0rIfBWW+wZwZ20n
C1To1yO//nAiGSqM6jZhl00AO/9UsF+5/0IMj51/Khj75N49WUnzMlkFp04r
BvQ7RmZUCJzlVJKZSjaocDvy4THX2eQcFdBj747Tg8hGFab7BLkIP7DzX4WW
I1WpwdfY+a9C2sFpfP8d7Pxvuz+f2I8zV5KtKhyOGtdimEDmqBHje7G6uRuZ
1+a9h+N+ekH7CV+N4OLauyGF7P6jxp4ellz/9ez+o8a9p+vs5s1j9x813gWd
dzw5nN1/1JiUF3EkyI7df9ToEDO22LGM9itGjWdbdvE6/0Y2qJEY0DJkago5
R40nb/plX5pNNqrx/l3Afe0QskmNltxXHnIOu/+psTmLW1xwj/ZDixpXbQ9V
eh8kW9U492lcqpUhczS4n+Wyv5HdR3kahE9IGYlhZL4Gc8WrP5ttyAINtt08
XJRfxu6/GriPsYy4cpTdfzXwS3es815Hjtcg8j/1Gks8OVmDTklXFpSNJjMa
NEr+6di3C9mgQVJ6cdnBGtrXczSYlv6kf+oFslGD0eschuRtI5s0sHP6fVh3
CdmsQbprRvTNUHb/18B1jMudO57s/q9Bn4O2xv42ZI4WXnmN3HMVjZRfi5Ta
29f3niLztWgfEeL4IIMs0IJb/P2xiJVkaMHrzxxym0oO06JDTmaZzyByfNvn
z0t6brQhJ2txOjzQ39/yjvJr0Td4sZPgLNmgxas9gbErt5JztAjyqKx6LyMb
tWgaljX3+iyySYslccvSar4lm7W4dx4OYV3JFi3ypNMyPlsbKL8WU2zH3Wy+
ReboYP2UHjv6CJmnQ+vOOxWmn8l8HfqnVdQaksgCHVxbnQfmh5Khw74Du3va
eZPDdJDu+y3mgBM5XoeHUzKUmda3lF+HHrudvyq6TWZ02HBgferoY2SDDuIV
rvr6THKODofqHzN1UrJRh7dJn+29o8kmHZ4HfZVV4E8263BhSvlxeV+yRYeG
SPvHDJds1UHGu7Cu5Hk95WfQ4YXH+FlXyA4MHl4NFPMPkXkMlg2bkjfEQO7J
IEG/c4ZUTOYziA5tff05iuzJ4MaoTW+Lx5EFDDpKOj6+0Z88mkH6OlPfLg5k
MLCbedp3Y631iyczGP+k9NfppeQwBtuuXj0TVEiOYnC6ZbqrIpscz+CIp6vX
yzTyUga14Y7L01eQkxksCOk3eVU4Wc5g4NNNWO9HZhis5VqvPXUnr2XABLks
TGhPNjDoW5ndGlv15ou3MDhTmztiRgE5h0Fhn6OxBSnkfAamPkErdOFkIwOv
wC4xJz3Ipxj8XPjJLbqpjurHYLdowtGFV8hXGIQmyDvf30o2M2i/Od/nSCL5
IYPNvef2rAPZwmBC5NE/NzqTqxl4hkR4ZVXXUr0ZhDN74m3Okt8zeGE+FHtr
I5mjR739OM+WxWQHPXq1Pi9ZO5bM06PwWcdQcVdyTz2OuNWdOVv9muqvxyLx
Po9F58meerT/xy9z8WayQI/vh251LUokj9ZjmttBsyqIDD2eLg6+tN6NPFmP
1DPBXZoa/6b66+EeknLj95vkKD3ueTxwvplHjtfjm3kDbf315KV6JJbOOd0S
Q07WIz8jKaqrL1muR8DQRVyVE5nR40BIaJnvq1cB/wVuEHRU
        "]]}}, {}}, 
    InsetBox[
     TemplateBox[{
      StyleBox["\"\[Epsilon] = +0.1%\"", FontSize -> 19, StripOnInput -> 
        False],StyleBox[
       "\"\[Epsilon] = 0%\"", FontSize -> 19, StripOnInput -> False],StyleBox[
       "\"\[Epsilon] = -0.1%\"", FontSize -> 19, StripOnInput -> False]},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {}}}, 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]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "}"}], 
                 "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                    RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "}"}], 
                 "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "}"}], 
                 "]"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], 
         "]"}]& )], Scaled[{0.618, 0.18}], ImageScaled[{0.8, 0.3}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{286.375, 0.8481806565453868},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox[
       StyleBox[
       "\"\[CapitalDelta]T [K]\"", FontFamily -> "Latin Modern Roman", 
        FontColor -> GrayLevel[0], FontSize -> 22, StripOnInput -> False], 
       TraditionalForm], None}, {
      FormBox[
       StyleBox[
       "\"T [K]\"", FontFamily -> "Latin Modern Roman", FontColor -> 
        GrayLevel[0], FontSize -> 22, StripOnInput -> False], 
       TraditionalForm], None}},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   FrameTicksStyle->Directive[
     GrayLevel[0], 18],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   Method->{},
   PlotRange->{{285., 560.}, {0.8410901321206741, 2.2591950170632162`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.008333333333333333], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw913tczPkex/GJNmGXKbVsLFOL7ULmRKQl791cUi6jFWWXcsut1TT3+/xG
ttVmt9xvyRyXkNtY65QuTEhaYSjlFpUQbTYiRDmd3c/3zD/zeD4e85j5vmbm
8fl9fu4L4sMXd+LxeC52PN7/nv9+2BJQoCkYNlD8Ytzfrk7AxoKlk+vWkJsS
UJrdfvnUv8k8CUbMunF6by6ZL0Hcysh++8rIAglirnZ+lPsnWShBzcez3B59
1PyPIUH21ZL/DB5AFkkwJvhKti6AHCOBe0Ven/oZZLEE59wuly1dQeYkmOHr
VNu+mpwmQVXl4q+yMshmCQZuiatYnkO2SPBskOEArpOtEsjOZuzz+ZNsk2CO
TG31cXhJ/RIoFGFPISA3SaCxq3VeEUjmSfGhd5Jn1kwyX4q9+pe921eSBVJc
HRteGptMFkrhz7kNq9tDhhTfFfX2VJwmi6TYfGv6zn63yDFSLJr5TlLZTBZL
sem9JCWzxyvql+LkSI/iZC9ymhT9v9Lam8aTzVIcHFM7YG002SKFZ525OUtD
tkqReq5sdtUmsk0KP8z1+OI4uVqKxDbbYF0puUkK3eiYkfWPyTwZXj62DVjS
uYX6ZfD2mn/sTX+yQIafHmQfTQ8kC2WoGFhRFz6LDBmmh79z7Sshi2Tov2dT
51e/kGNkuL7dN676IFksQ6uHqHtVEZmTIdpRue1pDTlNhqTU5kuO7WSzDDUO
d2aOcntN/TLonjfUykeSrTJsGyN3Px9OtsmQd/2bHPd4cnXH5w/lwn5NITfJ
sOXKbm3XA2SeHLzg6Q/Xnyfz5ShzCnT3riEL5DitcT1/pY0slEPlJJ7Hub2h
fjlS3bbrgkaRRXL4Lv8503EmOUYOxXRr9D0xWSzHreKBX575hczJsWfgX4qs
LHKaHAtCfjy/q5hslmNE/Vwuo45skcP27o5rpt1b6pdDGTOy4WR/sk2O8Tun
z7/8FblajujT6WUNkeQmOewtrVv4CjJPgfjUTe2BG8h8BU5Yz8xYbiELFBhb
eu3GzstkoQIJqfYl5U/JUOCvQzMW9nBspX4FGoqmV0weRI5RIE7XZWrSN2Sx
Au69KxvORpM5BSwtE23tOnKaAhpVA3/0drJZgScLAwvE2WSLAke3Lq7aW062
KnCverSk/DnZpkBpVYusvcc76leg2duz0n0IuUmB6N2mVWMnk3lKRL3OjxTF
kvlKvAuOHx6VSBYo8WJv/YNZZrJQCSe/T4aHFJChxN1PR9T43CaLlDj+oVMm
7zU5RomkT0KFRb3eU78SOeseDFIJyZwSnXtu+KLPVHKaEuK/HuTvWUY2KxHH
66n7LIlsUSJ0240a5W6yVYlD2XGLC06TbUqENM6R1d8mVyvRcCVW8rqF3KTE
7RnaU/XObdSvwsZd67fl+pL5KvgNzIxcEUoWqJDy3Wa/t4vJQhVkcu+oBSYy
VPh42svmvelkkQrvayMEZ7LJMSo8c1U8P3qdLFZhl2KsWNJI5lTIr/p+RxfH
dupXYUX6tCVxHmSzCqW9F5zOGEO2qLBbYuPSZ5GtHedZVbh6oZhsU6HgbcLm
58nkahV+zgtRjd9DblIhNLy9NiqfzFNj1/W8H4fdIPPVmHJitsO5RrJAjQS5
0c7Z4QP1q+FpftnNrT8ZatxOu3Hkpj9ZpEbezXtxYVPJMWpMdCk8G7+ILFaj
+LHSI1hL5tQ4lpH1+uw6cpoaXl1d9/+5n2xWI2h+668FBWSLGo8jtncZXka2
qpFcmbMwtJ5sU0M4ZehzXhu5Wo2GBb+/P+jIwz/9aqQPd5lvdibzNFgR4TBp
QT8yXwPXFVnTng0iCzSo2Tu5d/AwslCDcQEF46IDyNDgULQt9uuvySINeNJj
PvWTyTEarJPO9g0PJ4s1sL3pxjfMIXMarF1aKl2+gJymwa7ple2uy8lmDWqv
eEUZE8gWDSLWdPLdpyJbO87juXJIkpFs08DoV9bFPYlcrcHkApNKtpb1a7Dk
4YQxxvWsX4uCP959iq2sX4vG7weXndzJ+rXY45Pyzf3drF+L60VFQXn7Wb8W
Z54/OhhymPVrER/SPT7Jwvq1KBnydpX0d9avRXnYiboeOaxfi2c1vTJm57F+
LbYr5p+fcpr1a3Gp/z1Vo5X1a+G0Y/aTgHOsX4uLxt9EvkWsX4vc4LjXpRdY
vxYhuwQjXC6yfi1Gq9pXdC5h/TokPw3qtZ2Zr0O3ytQjlcwCHZZNVV/JYxbq
UNwp57OJzNDhTddNwQr2/iIdup7ycppSzPp1CPHfF1nMzifW4eoTo109Oz+n
wz7P/fZHC1m/DqH2GXGfnWH9Orjf2Rjhnc/6dTjVW9pYzb4/qw5eZ8ulY0+y
fh3sQz+MxnHWr8PrO5d2P2G/T5MOeX8kegQeYP16jH9iCfLbw/r1MCc8+uX6
/39/PTI36bL7sv+HUI+7rhOkPdj/Bx2vd/BNPpTC+vUI1NfZmlezfj2Cjy37
V72e9evhP2CHOVnB+js+v0uBx62VrF+PxGsvSipjWb8em9t/P5k0j/Xr0dVz
vPPjCNavxx11zz6tU1h/x3kMbt0Lg1m/Hvg2JnBsIOvXIyDL+0O8kPUb8DBR
mj9nMOs3YB1v1L32vqzfgKyxl27OdWL9BtSMHOWpdmD9BsgDuu3a28LmnwFV
k/wsN+6z+WeAsoi/e81FNv8MKI+uSLda2PwzYABfd43byuafAXcd4lWlRjb/
DHDOnWnLjGXzz4Chhy/068Xmq9WAXmu89rkMZ/PPgMg41Ymjfdj8M8Dlt4Eb
6trY/DdgyrmW1FO1bP4bIQqyfyUsZvPfiBO5B7tPO8TmvxGdy9e4uaSShUbs
m5a+KElChhG334o8D0SQRUZMsjuSoQsgxxhRdVff6tCXLDZC4b1jSWgbu/4Z
8fjC4G6h98lpRpRMetDmWEg2GzFjxpaIn3eTLUYse/OD27VEstWIjVHSsOpF
ZJsRL0zOVbkTyNVGJOrScxYOJjcZsdLvXl6VA7v+c7hRU5jj85j2A0cOrltf
yETFZD6H4qDUg9P2k/tw8Mt81MnrJ7KAQ/7ZQEFtLNmTQ8T85A26iWQhh1+v
Rte0DiIHcBj9+Rku+iMyOLxXPrt9uI72pRAOc7vIwx6eY/sUhyR/O0H3PeRI
Dk7+0VsFq9h+xaHGW/Xoy/nkpRy+1UT4fgGymEODWZDkMoCs4mAfNbKlrY3t
nxw+bPdX19wlr+EQm+L03prH9lEOjc1D5mWwfXQrB7sSaYJWzfZTDseP6Vuj
IskHOAyZc8zy1Si2r3IoerggyONTcg6HUZu6fd3zFdvfOTgPmDfZvpx8keu4
fqbc6XSC7fMd31/Jd/Efryff5OBWulLskcD2ew78lMVBE0Xkeg6Df3Mdqh7G
9v2O3lOFq/N7kN9wGOQZusrpGd1P8ExwDoudrb5MdjQhuL3C+9VhMt+EtRf2
9UlaS+5jguHoTL+hcWSBCZ9v7m1sCCN7mqBRO70v9CELTUjs/GP68e7kABNe
7ncNzWug+ymYsGTbq7r7l8ghJkyo+HK84DBZZELXxqP++rXkSBPUdy4ZXseR
Y0wISxh6N3UqeakJ638Y1mmSL1lsgjTFYefnPckqEy4d/iByaWL3nyb8MeZI
rs+1lnH/BaCPke4=
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.008333333333333333], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw913tczHkXB/Cpdm3IGkkuZU3s5s6wEio+ueXeKBS5DO26JDXN/T6/ERIh
UlorRS65xMhlIzHuLZXIJrK0WotoTemRJJ6e3fN9+qfX+1XNzKff+X7POR5L
ooN+tOfxeC52PN7/vv/zVRKDIdab0+P968f848oYhIomrxy3iGyLQfzR3Nhv
DGSeFB2j5bu6/UzmS7HUeiLX+yxZIEXE8eUPFPfJQinkd4c13/sPGVI4yH0F
s13+869FUjhVd/J9N5QsluLS5KyA3JlkiRRvs9t7/ywhc1JsPaVp2r2FnChF
rql17JVj5AwpfBafznUsJlukyLrtsSaqhmyVIjZU/2u907t/XSLFovELVvw8
gFwpRfbFFCyZRrZJsdOvc5/JkWSeDAFvztQHJpD5Mhxe00GlPEoWyPCDa5ju
fCFZKMO7WQN+9aghQwYx5vU60K6B8sugKs4PmDyILJbhYN+v3rQJJEtkWDZ9
TWF1NJmTYVLdq00vEsmJMuQ19alwyCFnyFAm6zbHt5RskaH/oLCdW+vJVhli
F9r5Obi+p/wypBiXFCZ6kytlSFIW3R45l2yTIeTzuBvNWjJPDs/Y0f0f7SLz
5XD8PjTy3gWyQA6R0PHts0qyUI4pJ+b24Ds0Un45Ss8mTQr6jiySw3/P6/NH
AshiOSKXeV9yiyBL5HC7ti5xTwKZk0O35vcw3+PkRDlScwsmv7pDzpDDa0Jb
ZXY92SLHpLkjas2dP1B+OcJiA63LRpFL5Dj/eP6jBQvIlXJUezkNDefINjmW
eY7bo8wk8xRwXnHyY8p1Ml+BO6eXtr7ykixQYKk8xNjo1ET5FQgseOcwUkiG
AvKc3O+5YLJIgcKJu3cUKcliBSb65x3qsZMsUUBz8mypPJ/MKTBwuzjqViU5
UQFLkssljy8+Un4FfPbPs1P2JlsUkEYFBV2fQrYqcHD16Kv8KHKJAlPufQgO
3kquVKD86prqjafINgVcJ0nm594n85TYapGuKPtA5itRbX2UV9W9mfIr8axO
8OJ3kIVKpL+fHXk5nAwl8tKuHN+8jixSos21KHscIouV8MvZs6v0FlmiREf/
Dbsn/k3mlJj1uLB9Cv8T5VdiXtzAJxeGkjOUOK0a+jR/FtmiRH3Ib/e2KMlW
JWQPx84dkkouUWKbZ1rD7rPkSiV2bLjV/beHZJsSXqnzepQ0kXkqVHwX6ZXg
/pnyqxBpyjZ+6UcWqLC3ecVn7wVkoQpzPLP29DCQoUJu3GKv3F1kUcvPRbck
zXlksQpN48/Yqh+SJSrsLG8zUt9I5lTo1/X4vLK2PPybX4WqipJHed3IGSrU
cDr/yL5kiwqfX0xxf+ZNtra8/p2Yd70mkktU+GbpjEDPWeRKFfTOXdNeLibb
VLB2S5++MprMU0Od73wjS0/mq+GZZFueHk8WqLGotC5hWgpZqEZA0bfrs/eS
oUaFvPHIxWNkkRoOsXEB3DmyWI28NcVZr6+RJWqMme38jf0dMqdGiGR6Q34F
y6+G3VFLXPe/WH41bnqN6P2NjeVXo8P94GH5jSy/GtrOSZ3e29tRfjWmfYry
KWxLrlTjfkzHnt4uZFvL6x8cGTzcnczT4O4U++U3epH5GhhDn7Z50Y8s0KBN
+JrG5CFkoQa9Hlpa3fYmQ4PndV7uW/3IIg3iZlzyfTiWLNbARfrL2qwAskSD
dPsm4YepZE6DZ+/2pRQFkhM1WJ1yaJBHMDlDg/pHy7a9nU22aFBywM04LpRs
1UC3Z8Td9vNYfg3sivdtDwlj+TWY8Pf12q7zWX4NZiyL9ZvDzNOi67ZPb9sy
87W4992Ec6PY3wu0iMq5tPDpXJZfC7fQLQ/s2ftDi5d1KdN2sc8n0iIrOt7h
eBDLr8XXZYdkPiyfRIvNHyN9xv4/vxa3r7zxuDqR5ddCc3e062V/ll+LOebY
QX6+LL8Wi5s/HBg+nOXXwvNGWeXxwSy/Fsl2DeLDfVh+LVYkxRX39mD5tVD1
XF3btyvLr8NCp84ncvgsvw7rpto7X/2K5dfBw/PuMPEnVv863FvdaVZ8Pat/
HV7rNlz2r2b1r4Og3Oflxies/nX4M2zPhIh7rP51eBx0ctmTAlb/OhwTtbbV
nGf1r0NKQcOmVAurf11Lv7E0/5HJ6l+Hnh1iWhWx82jVIefHM+r57LyW6JAv
MwxI0rHzr0NhQ/Jn2Sp2/nXQxjeV2i1i51+PmskBm8eI2PnXY1jmQBehPzv/
evQ+zZ9aNoTl16OqZq+rV0+WX49Fv+wNCXRm+fW4Jk+v7m3P8ushHHVuemwV
u//0uLIt7tzoy+z+0+P5TzePxWWQE/XYzx+QHW4kZ7S8n3SYZ3kY2aLHrS3X
ldUjyFY9SsLP/5XeiVyihyHzyMHmWnb/61EUWlTqWMzufz0O3+Ctun6I3f8G
BGlfhfmsJfMNEPTyi44UkwUGuHNtwhb6kIUGnPh7Um4nVzIMqNo164sdNtb/
DEjYmZ7x103W/wxYdSnqruN+1v8MqPwx87KdifU/A8bdOGz4LZScaMDTVZFv
44aSMwzQXRU1uDuRLQb0LZ+P1Ges/xswNTlwRfMF1v8NGBJdagtMZf3fgCbV
hZFJMaz/G7D9yfSNN9n8wDPCu3p1h8ZerP8b0W655HePZppHBEYEDkl7FlDG
5h8jHgSuahV1nM0/Rmw7Gm+/Yz2bf4zInDEr9tpiNv8YcUy7qOvHUWz+McK2
77Gvnwubf4wwCoQzNtbQvJVoBPRBKS/YPJZhRHP+yoCQDLLFiJGrJxgeaNj8
Z8TMcRV+McFs/jNinrxcIxjI5j8jit8K2r1sxeY/I9oeDrpYWEnzJM+EmRtF
44vOkfkmYOMN39fbyQIToozZw/tHk4UmhCgLsjdOZvNvi+MGO7X/ls2/Jiif
Fx4+84nmZbEJK7UP78Q+IEtMiD3yw1nVKTJnQuv0i/FJW8iJJrQ/4TC/PIKc
YcL6wfGjAiaSLSYkh87x+MODbDVBEvPTpwPNtA+UmJB5vcvJnx6QK00on5nu
fO402WbC1wURfzpuI/M4bE5IrVoXRXbkEOey4eKwqWQ+h6mVU9079iF34SB3
/bCt55dkAYfrEo+c8Ke0D/XhsCrK7VPZRbYvcfiYHFGrTyOP4NBF59Y8W8f2
p5bf79c+fslc8iQOM/QL6vd6k0Ucxt7JSO7sSg7lMK1sYp61nu2XHPp4/3Fk
dyl5OYc6O9mBEzls3+QQ+frU08atZDWHEIfwraoYtn9y6D/N/Kgf20/Xc9CO
TXvecQjbRznYyjqUDO1ATuVQ/GZ8dlwt7b8ZHCpUzxOd75KzOAj6CuNKc8gW
DjMvdN5xM4mcy6FtRcLlBjnZyoE7dLRV2BxyQcv/+86HsHpvcgmHxXUJZ650
JZdzsNs1vtWvTW/p+XKIzm4c/sVj8gsOx5KzhAor2cbhVfe9990yye85tI8+
6fR+LZlnRtjTmdmtV5AdzXDxtSaJppH5Znz1i8+OwsHkLmbErHVLMHQkC8xw
7/FuXHhDHT1/M17NLdhkqCALzfAVdhheeJE8wgyfBY2tAveRYUZjVUTBl/Hk
SWa0m+kN2yqyyIwJXQYN/TqYHGpGxP7R4kUjyGIzzuZu2lDVnbzcjB9CUqJ3
OpAlZjyc4VMY+7KWnr8ZacLnYem3yZwZ/WvSyl+frh3zXyjWh64=
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.008333333333333333], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw91nlczPkfB/AZtRWiQeQoJrKyqMnKUeilVQhtFB2KHOtKydz3fCdl2R/b
UGvlKkfKtUZYso5ZInINOVNMsZRVJqmwya/fen9/8888no/5zsz39X0/3p/3
233Bypk/tONwOM5cDud/7/++zKtQ/rYm37W0KeBfW1ZhRqrng5r3ZOsqOE8+
tbW2b/MXc4SodJheOyiIzBOi5kH0n1sSyHwhnBft5WITWSDECvsSg1shGULM
CSme7GMhhwmxJlT+UWn//ovjhag+3Dnxoxc5WYje19PijswmM0KMZxy0WVqy
QYhBI6Mlp/aRc4T4vGzok463yEYhjq5SBGc0k01CeH5X5BXK//DFZiGeG5a0
HzuFbBFiYNiFMbFCslWInSNE3X7bRuaIcNZT/EhwicwTYZKf/9lndWS+CLmD
b1Rc6vmR8ovQrvxM8P1AMkSIFnu96ZZIDmu7PvbcKc2v5HgR8hYmJHW9QE4W
YbzX0ovm12RGhIRHL2acdPmH8ovQnFaWVRRIzhEhJCPnc1Mi2SiCS0ZeybQs
skmE2ByuR1ER2SzC9lCr8xwr2SJCVveYNCfXFsovglvKt35PJ5E5Ynisqikt
FpF5Yry0zb1+OZvMF6PBO1P66BpZIMZYv0EfW5rJEMPrvU+El8cnyi9G4KSu
EcvDyPFi/N1QnHVYTU4WQ739Y8a7fDIjRlNIB63/PbJBDJHeZq6W20r5235P
tq9d4TCyUYwbLrHcl9FkkxgZXJ/jNmvIZjF+PFE+qkMB2SLGjLiiZY0VZKsY
w7Y7vzjf/jPll2C88q+vFvmSeRKU81ZWPI4n8yX4um65n/t6skCCGunq3cNO
kiEB9967GR8ryWESvN7j5QY7Dr7kl+CDycKJ7UNOlgCR1ZzpAjIjQfHUPwY4
BZENEihOx03ZGU3OkaDDR/2QpkSyUYKY0Q/juqaQTRLE3sgOrfuFbJagAYmT
0vaTLRL8OCgg6c4ZslWCHX/dvmy+ReZIIRz1/QhVFZknhbL3ZNX1d2S+FKeX
dp543o77xQIpUh4sdQvtSYYU9uZDOtFgcpgUR5+MMQ/2I8dLsWnF7B8SQsjJ
UuTmqX8aHkNmpFhd3y5NsYxskOIfH0GWn5ycI8XvFfuckteQjVLEBw/1d84k
m6Q4u/mi1n0X2SzFlYkdIzYdJlukiEu9P2N+IdkqxTz7puHrisgcGcxL+lXY
3iLzZKjLfLzk1kMyX4Zyg2TA80o2vwytqSXZ41+x+WXY9amuoKyezS/DCOMG
3fH3bH4ZXIy1yiutbH4ZlKINwm627Si/DN5JYzduciAbZHgUsGvhd47kHBnQ
2b18gBPZKMM6R6fZw7uQTTKkNg3ektiVbJbhQea0+3dZW2TY2mtewRLWVhka
d0rHfs1+nyPHtP1eb3ns7/PkGJXYdiSy/8+Xw9Qhsj6JvT+BHPWcgCl/2ZAh
B1MQ92wDmy9Mjq/35I5L+H9+OXi17wUM+3yS5dha2fv1rRq2/nLYzZ9YF8c+
X4Mca5IXcb3Y558jR13K4BETb7L1l8Oj9Hnp3ots/eXoXx6yOOIUW385bJPG
74k8xNZfjstDtyQdy2brL8eZOsc7Kzax9Vdgb7V389pUtv4KTNxy1L2TlK2/
Ar3Cr+xvXczWX4Gyby1NCyLZ+itQ0JihDJjE5ldgWWL1wayRbP426yrayQay
+RW4/8vUd+Xd2PwKDO3Vrc7MZfMr0FC+PTzqDdv/CsxZflApL2f7X4Hpb6X5
I6+y/a9ASVpvpy0n2P5XYPWMKdd27WL7X4Hs7qiK2sD2vwIqr464IGf7Xwnx
i+YTVQvZ/lfCYWboh3OhbP8r0d17zO45Y8gCJaJGVH9zdgAZStTcfVD3shM5
TAnPQVkRpjd0HsYr8eJqVUP4RXKyElKx74lNm8mMEkHps2amLiMblDjp6Bok
GEvOUaKi9nTxjs5koxL2f3S9V2phz/+26xMnD37EnvdmJbJfSwKPp7LnvxKX
e6jnJ8xmz38lqlZZf7L1JHNUmO/rvjbtA80fngopo7yrG0rIfBWW+wZwZ20n
C1To1yO//nAiGSqM6jZhl00AO/9UsF+5/0IMj51/Khj75N49WUnzMlkFp04r
BvQ7RmZUCJzlVJKZSjaocDvy4THX2eQcFdBj747Tg8hGFab7BLkIP7DzX4WW
I1WpwdfY+a9C2sFpfP8d7Pxvuz+f2I8zV5KtKhyOGtdimEDmqBHje7G6uRuZ
1+a9h+N+ekH7CV+N4OLauyGF7P6jxp4ellz/9ez+o8a9p+vs5s1j9x813gWd
dzw5nN1/1JiUF3EkyI7df9ToEDO22LGM9itGjWdbdvE6/0Y2qJEY0DJkago5
R40nb/plX5pNNqrx/l3Afe0QskmNltxXHnIOu/+psTmLW1xwj/ZDixpXbQ9V
eh8kW9U492lcqpUhczS4n+Wyv5HdR3kahE9IGYlhZL4Gc8WrP5ttyAINtt08
XJRfxu6/GriPsYy4cpTdfzXwS3es815Hjtcg8j/1Gks8OVmDTklXFpSNJjMa
NEr+6di3C9mgQVJ6cdnBGtrXczSYlv6kf+oFslGD0eschuRtI5s0sHP6fVh3
CdmsQbprRvTNUHb/18B1jMudO57s/q9Bn4O2xv42ZI4WXnmN3HMVjZRfi5Ta
29f3niLztWgfEeL4IIMs0IJb/P2xiJVkaMHrzxxym0oO06JDTmaZzyByfNvn
z0t6brQhJ2txOjzQ39/yjvJr0Td4sZPgLNmgxas9gbErt5JztAjyqKx6LyMb
tWgaljX3+iyySYslccvSar4lm7W4dx4OYV3JFi3ypNMyPlsbKL8WU2zH3Wy+
ReboYP2UHjv6CJmnQ+vOOxWmn8l8HfqnVdQaksgCHVxbnQfmh5Khw74Du3va
eZPDdJDu+y3mgBM5XoeHUzKUmda3lF+HHrudvyq6TWZ02HBgferoY2SDDuIV
rvr6THKODofqHzN1UrJRh7dJn+29o8kmHZ4HfZVV4E8263BhSvlxeV+yRYeG
SPvHDJds1UHGu7Cu5Hk95WfQ4YXH+FlXyA4MHl4NFPMPkXkMlg2bkjfEQO7J
IEG/c4ZUTOYziA5tff05iuzJ4MaoTW+Lx5EFDDpKOj6+0Z88mkH6OlPfLg5k
MLCbedp3Y631iyczGP+k9NfppeQwBtuuXj0TVEiOYnC6ZbqrIpscz+CIp6vX
yzTyUga14Y7L01eQkxksCOk3eVU4Wc5g4NNNWO9HZhis5VqvPXUnr2XABLks
TGhPNjDoW5ndGlv15ou3MDhTmztiRgE5h0Fhn6OxBSnkfAamPkErdOFkIwOv
wC4xJz3Ipxj8XPjJLbqpjurHYLdowtGFV8hXGIQmyDvf30o2M2i/Od/nSCL5
IYPNvef2rAPZwmBC5NE/NzqTqxl4hkR4ZVXXUr0ZhDN74m3Okt8zeGE+FHtr
I5mjR739OM+WxWQHPXq1Pi9ZO5bM06PwWcdQcVdyTz2OuNWdOVv9muqvxyLx
Po9F58meerT/xy9z8WayQI/vh251LUokj9ZjmttBsyqIDD2eLg6+tN6NPFmP
1DPBXZoa/6b66+EeknLj95vkKD3ueTxwvplHjtfjm3kDbf315KV6JJbOOd0S
Q07WIz8jKaqrL1muR8DQRVyVE5nR40BIaJnvq1cB/wVuEHRU
          "]]}}}, {}}, {
     DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
      AxesOrigin -> {286.375, 0.8481806565453868}, 
      PlotRange -> {{285., 560.}, {0.8410901321206741, 2.2591950170632162`}}, 
      DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 
      Axes -> {True, True}, AxesLabel -> {None, None}, 
      AxesOrigin -> {286.375, 0.8481806565453868}, DisplayFunction :> 
      Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
         Style[
         "\[CapitalDelta]T [K]", FontFamily -> "Latin Modern Roman", 
          FontColor -> GrayLevel[0], FontSize -> 22], None}, {
         Style[
         "T [K]", FontFamily -> "Latin Modern Roman", FontColor -> 
          GrayLevel[0], FontSize -> 22], None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      FrameTicksStyle -> Directive[
        GrayLevel[0], 18], GridLines -> {None, None}, GridLinesStyle -> 
      Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, Method -> {}, 
      PlotRange -> {{285., 560.}, {0.8410901321206741, 2.2591950170632162`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
      Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[{
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]}], 
        Directive[{
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]}], 
        Directive[{
          RGBColor[0, 0, 1], 
          Thickness[0.0025]}]}, {
        Style["\[Epsilon] = +0.1%", FontSize -> 19], 
        Style["\[Epsilon] = 0%", FontSize -> 19], 
        Style["\[Epsilon] = -0.1%", FontSize -> 19]}, 
       Joined -> {True, True, True}, LabelStyle -> {}, LegendLayout -> 
       "Column", 
       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
         False, Automatic}}]], {{0.618, 0.18}, {0.8, 0.3}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.661186075010111*^9, 3.661186129604835*^9}, 
   3.6611862305309*^9, {3.661186270943132*^9, 3.6611862827928543`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"equilibFE", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
            
            RowBox[{
             SuperscriptBox["10", "5"], "*", 
             RowBox[{"Flatten", "[", 
              RowBox[{"\[CapitalDelta]T1", "[", "k", "]"}], "]"}]}]}], "}"}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "285", ",", "560"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"equilibFE", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
            
            RowBox[{
             SuperscriptBox["10", "5"], "*", 
             RowBox[{"Flatten", "[", 
              RowBox[{"\[CapitalDelta]T2", "[", "k", "]"}], "]"}]}]}], "}"}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "285", ",", "560"}], "}"}]}], "]"}], ",", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"equilibFE", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "k", ",", "3"}], "]"}], "]"}], ",", 
            
            RowBox[{
             SuperscriptBox["10", "5"], "*", 
             RowBox[{"Flatten", "[", 
              RowBox[{"\[CapitalDelta]T3", "[", "k", "]"}], "]"}]}]}], "}"}], 
          "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "285", ",", "560"}], "}"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
          RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Dashing", "[", "Large", "]"}], ",", 
          RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Thickness", "[", "0.0025", "]"}]}], "}"}]}], "}"}]}], ",", 
     
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<\[Epsilon] = +0.1%\>\"", ",", "\"\<\[Epsilon] = 0 %\>\"", ",", 
          "\"\<\[Epsilon] = - 0.1%\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.78", ",", "0.1"}], "}"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.78", ",", "0.1"}], "}"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Bold"}], "]"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"285", ",", "0"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<T [K]\>\"", ",", "\"\<\[CapitalDelta]T [K]\>\""}], 
       "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6556638938386917`*^9, 3.655663914239607*^9}, {
  3.655664133498166*^9, 3.6556641375811853`*^9}, {3.655664230690035*^9, 
  3.655664232117841*^9}, {3.655664315237192*^9, 3.6556643573507566`*^9}, {
  3.655664524674868*^9, 3.6556645319572897`*^9}, {3.661185932886788*^9, 
  3.6611859396819057`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"{", "q", "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.655663917611589*^9, 3.655663945694544*^9}, {
  3.661185924008293*^9, 3.661185924211206*^9}, {3.6611860362736073`*^9, 
  3.6611860612121897`*^9}}],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{}, {{}, {}, 
      {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[0.0025], 
       Dashing[Tiny], LineBox[CompressedData["
1:eJw913tczPkex/GJNmGXKbVsLFOL7ULmRKQl791cUi6jFWWXcsut1TT3+/xG
ttVmt9xvyRyXkNtY65QuTEhaYSjlFpUQbTYiRDmd3c/3zD/zeD4e85j5vmbm
8fl9fu4L4sMXd+LxeC52PN7/nv9+2BJQoCkYNlD8Ytzfrk7AxoKlk+vWkJsS
UJrdfvnUv8k8CUbMunF6by6ZL0Hcysh++8rIAglirnZ+lPsnWShBzcez3B59
1PyPIUH21ZL/DB5AFkkwJvhKti6AHCOBe0Ven/oZZLEE59wuly1dQeYkmOHr
VNu+mpwmQVXl4q+yMshmCQZuiatYnkO2SPBskOEArpOtEsjOZuzz+ZNsk2CO
TG31cXhJ/RIoFGFPISA3SaCxq3VeEUjmSfGhd5Jn1kwyX4q9+pe921eSBVJc
HRteGptMFkrhz7kNq9tDhhTfFfX2VJwmi6TYfGv6zn63yDFSLJr5TlLZTBZL
sem9JCWzxyvql+LkSI/iZC9ymhT9v9Lam8aTzVIcHFM7YG002SKFZ525OUtD
tkqReq5sdtUmsk0KP8z1+OI4uVqKxDbbYF0puUkK3eiYkfWPyTwZXj62DVjS
uYX6ZfD2mn/sTX+yQIafHmQfTQ8kC2WoGFhRFz6LDBmmh79z7Sshi2Tov2dT
51e/kGNkuL7dN676IFksQ6uHqHtVEZmTIdpRue1pDTlNhqTU5kuO7WSzDDUO
d2aOcntN/TLonjfUykeSrTJsGyN3Px9OtsmQd/2bHPd4cnXH5w/lwn5NITfJ
sOXKbm3XA2SeHLzg6Q/Xnyfz5ShzCnT3riEL5DitcT1/pY0slEPlJJ7Hub2h
fjlS3bbrgkaRRXL4Lv8503EmOUYOxXRr9D0xWSzHreKBX575hczJsWfgX4qs
LHKaHAtCfjy/q5hslmNE/Vwuo45skcP27o5rpt1b6pdDGTOy4WR/sk2O8Tun
z7/8FblajujT6WUNkeQmOewtrVv4CjJPgfjUTe2BG8h8BU5Yz8xYbiELFBhb
eu3GzstkoQIJqfYl5U/JUOCvQzMW9nBspX4FGoqmV0weRI5RIE7XZWrSN2Sx
Au69KxvORpM5BSwtE23tOnKaAhpVA3/0drJZgScLAwvE2WSLAke3Lq7aW062
KnCverSk/DnZpkBpVYusvcc76leg2duz0n0IuUmB6N2mVWMnk3lKRL3OjxTF
kvlKvAuOHx6VSBYo8WJv/YNZZrJQCSe/T4aHFJChxN1PR9T43CaLlDj+oVMm
7zU5RomkT0KFRb3eU78SOeseDFIJyZwSnXtu+KLPVHKaEuK/HuTvWUY2KxHH
66n7LIlsUSJ0240a5W6yVYlD2XGLC06TbUqENM6R1d8mVyvRcCVW8rqF3KTE
7RnaU/XObdSvwsZd67fl+pL5KvgNzIxcEUoWqJDy3Wa/t4vJQhVkcu+oBSYy
VPh42svmvelkkQrvayMEZ7LJMSo8c1U8P3qdLFZhl2KsWNJI5lTIr/p+RxfH
dupXYUX6tCVxHmSzCqW9F5zOGEO2qLBbYuPSZ5GtHedZVbh6oZhsU6HgbcLm
58nkahV+zgtRjd9DblIhNLy9NiqfzFNj1/W8H4fdIPPVmHJitsO5RrJAjQS5
0c7Z4QP1q+FpftnNrT8ZatxOu3Hkpj9ZpEbezXtxYVPJMWpMdCk8G7+ILFaj
+LHSI1hL5tQ4lpH1+uw6cpoaXl1d9/+5n2xWI2h+668FBWSLGo8jtncZXka2
qpFcmbMwtJ5sU0M4ZehzXhu5Wo2GBb+/P+jIwz/9aqQPd5lvdibzNFgR4TBp
QT8yXwPXFVnTng0iCzSo2Tu5d/AwslCDcQEF46IDyNDgULQt9uuvySINeNJj
PvWTyTEarJPO9g0PJ4s1sL3pxjfMIXMarF1aKl2+gJymwa7ple2uy8lmDWqv
eEUZE8gWDSLWdPLdpyJbO87juXJIkpFs08DoV9bFPYlcrcHkApNKtpb1a7Dk
4YQxxvWsX4uCP959iq2sX4vG7weXndzJ+rXY45Pyzf3drF+L60VFQXn7Wb8W
Z54/OhhymPVrER/SPT7Jwvq1KBnydpX0d9avRXnYiboeOaxfi2c1vTJm57F+
LbYr5p+fcpr1a3Gp/z1Vo5X1a+G0Y/aTgHOsX4uLxt9EvkWsX4vc4LjXpRdY
vxYhuwQjXC6yfi1Gq9pXdC5h/TokPw3qtZ2Zr0O3ytQjlcwCHZZNVV/JYxbq
UNwp57OJzNDhTddNwQr2/iIdup7ycppSzPp1CPHfF1nMzifW4eoTo109Oz+n
wz7P/fZHC1m/DqH2GXGfnWH9Orjf2Rjhnc/6dTjVW9pYzb4/qw5eZ8ulY0+y
fh3sQz+MxnHWr8PrO5d2P2G/T5MOeX8kegQeYP16jH9iCfLbw/r1MCc8+uX6
/39/PTI36bL7sv+HUI+7rhOkPdj/Bx2vd/BNPpTC+vUI1NfZmlezfj2Cjy37
V72e9evhP2CHOVnB+js+v0uBx62VrF+PxGsvSipjWb8em9t/P5k0j/Xr0dVz
vPPjCNavxx11zz6tU1h/x3kMbt0Lg1m/Hvg2JnBsIOvXIyDL+0O8kPUb8DBR
mj9nMOs3YB1v1L32vqzfgKyxl27OdWL9BtSMHOWpdmD9BsgDuu3a28LmnwFV
k/wsN+6z+WeAsoi/e81FNv8MKI+uSLda2PwzYABfd43byuafAXcd4lWlRjb/
DHDOnWnLjGXzz4Chhy/068Xmq9WAXmu89rkMZ/PPgMg41Ymjfdj8M8Dlt4Eb
6trY/DdgyrmW1FO1bP4bIQqyfyUsZvPfiBO5B7tPO8TmvxGdy9e4uaSShUbs
m5a+KElChhG334o8D0SQRUZMsjuSoQsgxxhRdVff6tCXLDZC4b1jSWgbu/4Z
8fjC4G6h98lpRpRMetDmWEg2GzFjxpaIn3eTLUYse/OD27VEstWIjVHSsOpF
ZJsRL0zOVbkTyNVGJOrScxYOJjcZsdLvXl6VA7v+c7hRU5jj85j2A0cOrltf
yETFZD6H4qDUg9P2k/tw8Mt81MnrJ7KAQ/7ZQEFtLNmTQ8T85A26iWQhh1+v
Rte0DiIHcBj9+Rku+iMyOLxXPrt9uI72pRAOc7vIwx6eY/sUhyR/O0H3PeRI
Dk7+0VsFq9h+xaHGW/Xoy/nkpRy+1UT4fgGymEODWZDkMoCs4mAfNbKlrY3t
nxw+bPdX19wlr+EQm+L03prH9lEOjc1D5mWwfXQrB7sSaYJWzfZTDseP6Vuj
IskHOAyZc8zy1Si2r3IoerggyONTcg6HUZu6fd3zFdvfOTgPmDfZvpx8keu4
fqbc6XSC7fMd31/Jd/Efryff5OBWulLskcD2ew78lMVBE0Xkeg6Df3Mdqh7G
9v2O3lOFq/N7kN9wGOQZusrpGd1P8ExwDoudrb5MdjQhuL3C+9VhMt+EtRf2
9UlaS+5jguHoTL+hcWSBCZ9v7m1sCCN7mqBRO70v9CELTUjs/GP68e7kABNe
7ncNzWug+ymYsGTbq7r7l8ghJkyo+HK84DBZZELXxqP++rXkSBPUdy4ZXseR
Y0wISxh6N3UqeakJ638Y1mmSL1lsgjTFYefnPckqEy4d/iByaWL3nyb8MeZI
rs+1lnH/BaCPke4=
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[0.0025], 
       Dashing[Large], LineBox[CompressedData["
1:eJw913tczHkXB/Cpdm3IGkkuZU3s5s6wEio+ueXeKBS5DO26JDXN/T6/ERIh
UlorRS65xMhlIzHuLZXIJrK0WotoTemRJJ6e3fN9+qfX+1XNzKff+X7POR5L
ooN+tOfxeC52PN7/vv/zVRKDIdab0+P968f848oYhIomrxy3iGyLQfzR3Nhv
DGSeFB2j5bu6/UzmS7HUeiLX+yxZIEXE8eUPFPfJQinkd4c13/sPGVI4yH0F
s13+869FUjhVd/J9N5QsluLS5KyA3JlkiRRvs9t7/ywhc1JsPaVp2r2FnChF
rql17JVj5AwpfBafznUsJlukyLrtsSaqhmyVIjZU/2u907t/XSLFovELVvw8
gFwpRfbFFCyZRrZJsdOvc5/JkWSeDAFvztQHJpD5Mhxe00GlPEoWyPCDa5ju
fCFZKMO7WQN+9aghQwYx5vU60K6B8sugKs4PmDyILJbhYN+v3rQJJEtkWDZ9
TWF1NJmTYVLdq00vEsmJMuQ19alwyCFnyFAm6zbHt5RskaH/oLCdW+vJVhli
F9r5Obi+p/wypBiXFCZ6kytlSFIW3R45l2yTIeTzuBvNWjJPDs/Y0f0f7SLz
5XD8PjTy3gWyQA6R0PHts0qyUI4pJ+b24Ds0Un45Ss8mTQr6jiySw3/P6/NH
AshiOSKXeV9yiyBL5HC7ti5xTwKZk0O35vcw3+PkRDlScwsmv7pDzpDDa0Jb
ZXY92SLHpLkjas2dP1B+OcJiA63LRpFL5Dj/eP6jBQvIlXJUezkNDefINjmW
eY7bo8wk8xRwXnHyY8p1Ml+BO6eXtr7ykixQYKk8xNjo1ET5FQgseOcwUkiG
AvKc3O+5YLJIgcKJu3cUKcliBSb65x3qsZMsUUBz8mypPJ/MKTBwuzjqViU5
UQFLkssljy8+Un4FfPbPs1P2JlsUkEYFBV2fQrYqcHD16Kv8KHKJAlPufQgO
3kquVKD86prqjafINgVcJ0nm594n85TYapGuKPtA5itRbX2UV9W9mfIr8axO
8OJ3kIVKpL+fHXk5nAwl8tKuHN+8jixSos21KHscIouV8MvZs6v0FlmiREf/
Dbsn/k3mlJj1uLB9Cv8T5VdiXtzAJxeGkjOUOK0a+jR/FtmiRH3Ib/e2KMlW
JWQPx84dkkouUWKbZ1rD7rPkSiV2bLjV/beHZJsSXqnzepQ0kXkqVHwX6ZXg
/pnyqxBpyjZ+6UcWqLC3ecVn7wVkoQpzPLP29DCQoUJu3GKv3F1kUcvPRbck
zXlksQpN48/Yqh+SJSrsLG8zUt9I5lTo1/X4vLK2PPybX4WqipJHed3IGSrU
cDr/yL5kiwqfX0xxf+ZNtra8/p2Yd70mkktU+GbpjEDPWeRKFfTOXdNeLibb
VLB2S5++MprMU0Od73wjS0/mq+GZZFueHk8WqLGotC5hWgpZqEZA0bfrs/eS
oUaFvPHIxWNkkRoOsXEB3DmyWI28NcVZr6+RJWqMme38jf0dMqdGiGR6Q34F
y6+G3VFLXPe/WH41bnqN6P2NjeVXo8P94GH5jSy/GtrOSZ3e29tRfjWmfYry
KWxLrlTjfkzHnt4uZFvL6x8cGTzcnczT4O4U++U3epH5GhhDn7Z50Y8s0KBN
+JrG5CFkoQa9Hlpa3fYmQ4PndV7uW/3IIg3iZlzyfTiWLNbARfrL2qwAskSD
dPsm4YepZE6DZ+/2pRQFkhM1WJ1yaJBHMDlDg/pHy7a9nU22aFBywM04LpRs
1UC3Z8Td9vNYfg3sivdtDwlj+TWY8Pf12q7zWX4NZiyL9ZvDzNOi67ZPb9sy
87W4992Ec6PY3wu0iMq5tPDpXJZfC7fQLQ/s2ftDi5d1KdN2sc8n0iIrOt7h
eBDLr8XXZYdkPiyfRIvNHyN9xv4/vxa3r7zxuDqR5ddCc3e062V/ll+LOebY
QX6+LL8Wi5s/HBg+nOXXwvNGWeXxwSy/Fsl2DeLDfVh+LVYkxRX39mD5tVD1
XF3btyvLr8NCp84ncvgsvw7rpto7X/2K5dfBw/PuMPEnVv863FvdaVZ8Pat/
HV7rNlz2r2b1r4Og3Oflxies/nX4M2zPhIh7rP51eBx0ctmTAlb/OhwTtbbV
nGf1r0NKQcOmVAurf11Lv7E0/5HJ6l+Hnh1iWhWx82jVIefHM+r57LyW6JAv
MwxI0rHzr0NhQ/Jn2Sp2/nXQxjeV2i1i51+PmskBm8eI2PnXY1jmQBehPzv/
evQ+zZ9aNoTl16OqZq+rV0+WX49Fv+wNCXRm+fW4Jk+v7m3P8ushHHVuemwV
u//0uLIt7tzoy+z+0+P5TzePxWWQE/XYzx+QHW4kZ7S8n3SYZ3kY2aLHrS3X
ldUjyFY9SsLP/5XeiVyihyHzyMHmWnb/61EUWlTqWMzufz0O3+Ctun6I3f8G
BGlfhfmsJfMNEPTyi44UkwUGuHNtwhb6kIUGnPh7Um4nVzIMqNo164sdNtb/
DEjYmZ7x103W/wxYdSnqruN+1v8MqPwx87KdifU/A8bdOGz4LZScaMDTVZFv
44aSMwzQXRU1uDuRLQb0LZ+P1Ges/xswNTlwRfMF1v8NGBJdagtMZf3fgCbV
hZFJMaz/G7D9yfSNN9n8wDPCu3p1h8ZerP8b0W655HePZppHBEYEDkl7FlDG
5h8jHgSuahV1nM0/Rmw7Gm+/Yz2bf4zInDEr9tpiNv8YcUy7qOvHUWz+McK2
77Gvnwubf4wwCoQzNtbQvJVoBPRBKS/YPJZhRHP+yoCQDLLFiJGrJxgeaNj8
Z8TMcRV+McFs/jNinrxcIxjI5j8jit8K2r1sxeY/I9oeDrpYWEnzJM+EmRtF
44vOkfkmYOMN39fbyQIToozZw/tHk4UmhCgLsjdOZvNvi+MGO7X/ls2/Jiif
Fx4+84nmZbEJK7UP78Q+IEtMiD3yw1nVKTJnQuv0i/FJW8iJJrQ/4TC/PIKc
YcL6wfGjAiaSLSYkh87x+MODbDVBEvPTpwPNtA+UmJB5vcvJnx6QK00on5nu
fO402WbC1wURfzpuI/M4bE5IrVoXRXbkEOey4eKwqWQ+h6mVU9079iF34SB3
/bCt55dkAYfrEo+c8Ke0D/XhsCrK7VPZRbYvcfiYHFGrTyOP4NBF59Y8W8f2
p5bf79c+fslc8iQOM/QL6vd6k0Ucxt7JSO7sSg7lMK1sYp61nu2XHPp4/3Fk
dyl5OYc6O9mBEzls3+QQ+frU08atZDWHEIfwraoYtn9y6D/N/Kgf20/Xc9CO
TXvecQjbRznYyjqUDO1ATuVQ/GZ8dlwt7b8ZHCpUzxOd75KzOAj6CuNKc8gW
DjMvdN5xM4mcy6FtRcLlBjnZyoE7dLRV2BxyQcv/+86HsHpvcgmHxXUJZ650
JZdzsNs1vtWvTW/p+XKIzm4c/sVj8gsOx5KzhAor2cbhVfe9990yye85tI8+
6fR+LZlnRtjTmdmtV5AdzXDxtSaJppH5Znz1i8+OwsHkLmbErHVLMHQkC8xw
7/FuXHhDHT1/M17NLdhkqCALzfAVdhheeJE8wgyfBY2tAveRYUZjVUTBl/Hk
SWa0m+kN2yqyyIwJXQYN/TqYHGpGxP7R4kUjyGIzzuZu2lDVnbzcjB9CUqJ3
OpAlZjyc4VMY+7KWnr8ZacLnYem3yZwZ/WvSyl+frh3zXyjWh64=
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[0.0025], 
       LineBox[CompressedData["
1:eJw91nlczPkfB/AZtRWiQeQoJrKyqMnKUeilVQhtFB2KHOtKydz3fCdl2R/b
UGvlKkfKtUZYso5ZInINOVNMsZRVJqmwya/fen9/8888no/5zsz39X0/3p/3
233Bypk/tONwOM5cDud/7/++zKtQ/rYm37W0KeBfW1ZhRqrng5r3ZOsqOE8+
tbW2b/MXc4SodJheOyiIzBOi5kH0n1sSyHwhnBft5WITWSDECvsSg1shGULM
CSme7GMhhwmxJlT+UWn//ovjhag+3Dnxoxc5WYje19PijswmM0KMZxy0WVqy
QYhBI6Mlp/aRc4T4vGzok463yEYhjq5SBGc0k01CeH5X5BXK//DFZiGeG5a0
HzuFbBFiYNiFMbFCslWInSNE3X7bRuaIcNZT/EhwicwTYZKf/9lndWS+CLmD
b1Rc6vmR8ovQrvxM8P1AMkSIFnu96ZZIDmu7PvbcKc2v5HgR8hYmJHW9QE4W
YbzX0ovm12RGhIRHL2acdPmH8ovQnFaWVRRIzhEhJCPnc1Mi2SiCS0ZeybQs
skmE2ByuR1ER2SzC9lCr8xwr2SJCVveYNCfXFsovglvKt35PJ5E5Ynisqikt
FpF5Yry0zb1+OZvMF6PBO1P66BpZIMZYv0EfW5rJEMPrvU+El8cnyi9G4KSu
EcvDyPFi/N1QnHVYTU4WQ739Y8a7fDIjRlNIB63/PbJBDJHeZq6W20r5235P
tq9d4TCyUYwbLrHcl9FkkxgZXJ/jNmvIZjF+PFE+qkMB2SLGjLiiZY0VZKsY
w7Y7vzjf/jPll2C88q+vFvmSeRKU81ZWPI4n8yX4um65n/t6skCCGunq3cNO
kiEB9967GR8ryWESvN7j5QY7Dr7kl+CDycKJ7UNOlgCR1ZzpAjIjQfHUPwY4
BZENEihOx03ZGU3OkaDDR/2QpkSyUYKY0Q/juqaQTRLE3sgOrfuFbJagAYmT
0vaTLRL8OCgg6c4ZslWCHX/dvmy+ReZIIRz1/QhVFZknhbL3ZNX1d2S+FKeX
dp543o77xQIpUh4sdQvtSYYU9uZDOtFgcpgUR5+MMQ/2I8dLsWnF7B8SQsjJ
UuTmqX8aHkNmpFhd3y5NsYxskOIfH0GWn5ycI8XvFfuckteQjVLEBw/1d84k
m6Q4u/mi1n0X2SzFlYkdIzYdJlukiEu9P2N+IdkqxTz7puHrisgcGcxL+lXY
3iLzZKjLfLzk1kMyX4Zyg2TA80o2vwytqSXZ41+x+WXY9amuoKyezS/DCOMG
3fH3bH4ZXIy1yiutbH4ZlKINwm627Si/DN5JYzduciAbZHgUsGvhd47kHBnQ
2b18gBPZKMM6R6fZw7uQTTKkNg3ektiVbJbhQea0+3dZW2TY2mtewRLWVhka
d0rHfs1+nyPHtP1eb3ns7/PkGJXYdiSy/8+Xw9Qhsj6JvT+BHPWcgCl/2ZAh
B1MQ92wDmy9Mjq/35I5L+H9+OXi17wUM+3yS5dha2fv1rRq2/nLYzZ9YF8c+
X4Mca5IXcb3Y558jR13K4BETb7L1l8Oj9Hnp3ots/eXoXx6yOOIUW385bJPG
74k8xNZfjstDtyQdy2brL8eZOsc7Kzax9Vdgb7V389pUtv4KTNxy1L2TlK2/
Ar3Cr+xvXczWX4Gyby1NCyLZ+itQ0JihDJjE5ldgWWL1wayRbP426yrayQay
+RW4/8vUd+Xd2PwKDO3Vrc7MZfMr0FC+PTzqDdv/CsxZflApL2f7X4Hpb6X5
I6+y/a9ASVpvpy0n2P5XYPWMKdd27WL7X4Hs7qiK2sD2vwIqr464IGf7Xwnx
i+YTVQvZ/lfCYWboh3OhbP8r0d17zO45Y8gCJaJGVH9zdgAZStTcfVD3shM5
TAnPQVkRpjd0HsYr8eJqVUP4RXKyElKx74lNm8mMEkHps2amLiMblDjp6Bok
GEvOUaKi9nTxjs5koxL2f3S9V2phz/+26xMnD37EnvdmJbJfSwKPp7LnvxKX
e6jnJ8xmz38lqlZZf7L1JHNUmO/rvjbtA80fngopo7yrG0rIfBWW+wZwZ20n
C1To1yO//nAiGSqM6jZhl00AO/9UsF+5/0IMj51/Khj75N49WUnzMlkFp04r
BvQ7RmZUCJzlVJKZSjaocDvy4THX2eQcFdBj747Tg8hGFab7BLkIP7DzX4WW
I1WpwdfY+a9C2sFpfP8d7Pxvuz+f2I8zV5KtKhyOGtdimEDmqBHje7G6uRuZ
1+a9h+N+ekH7CV+N4OLauyGF7P6jxp4ellz/9ez+o8a9p+vs5s1j9x813gWd
dzw5nN1/1JiUF3EkyI7df9ToEDO22LGM9itGjWdbdvE6/0Y2qJEY0DJkago5
R40nb/plX5pNNqrx/l3Afe0QskmNltxXHnIOu/+psTmLW1xwj/ZDixpXbQ9V
eh8kW9U492lcqpUhczS4n+Wyv5HdR3kahE9IGYlhZL4Gc8WrP5ttyAINtt08
XJRfxu6/GriPsYy4cpTdfzXwS3es815Hjtcg8j/1Gks8OVmDTklXFpSNJjMa
NEr+6di3C9mgQVJ6cdnBGtrXczSYlv6kf+oFslGD0eschuRtI5s0sHP6fVh3
CdmsQbprRvTNUHb/18B1jMudO57s/q9Bn4O2xv42ZI4WXnmN3HMVjZRfi5Ta
29f3niLztWgfEeL4IIMs0IJb/P2xiJVkaMHrzxxym0oO06JDTmaZzyByfNvn
z0t6brQhJ2txOjzQ39/yjvJr0Td4sZPgLNmgxas9gbErt5JztAjyqKx6LyMb
tWgaljX3+iyySYslccvSar4lm7W4dx4OYV3JFi3ypNMyPlsbKL8WU2zH3Wy+
ReboYP2UHjv6CJmnQ+vOOxWmn8l8HfqnVdQaksgCHVxbnQfmh5Khw74Du3va
eZPDdJDu+y3mgBM5XoeHUzKUmda3lF+HHrudvyq6TWZ02HBgferoY2SDDuIV
rvr6THKODofqHzN1UrJRh7dJn+29o8kmHZ4HfZVV4E8263BhSvlxeV+yRYeG
SPvHDJds1UHGu7Cu5Hk95WfQ4YXH+FlXyA4MHl4NFPMPkXkMlg2bkjfEQO7J
IEG/c4ZUTOYziA5tff05iuzJ4MaoTW+Lx5EFDDpKOj6+0Z88mkH6OlPfLg5k
MLCbedp3Y631iyczGP+k9NfppeQwBtuuXj0TVEiOYnC6ZbqrIpscz+CIp6vX
yzTyUga14Y7L01eQkxksCOk3eVU4Wc5g4NNNWO9HZhis5VqvPXUnr2XABLks
TGhPNjDoW5ndGlv15ou3MDhTmztiRgE5h0Fhn6OxBSnkfAamPkErdOFkIwOv
wC4xJz3Ipxj8XPjJLbqpjurHYLdowtGFV8hXGIQmyDvf30o2M2i/Od/nSCL5
IYPNvef2rAPZwmBC5NE/NzqTqxl4hkR4ZVXXUr0ZhDN74m3Okt8zeGE+FHtr
I5mjR739OM+WxWQHPXq1Pi9ZO5bM06PwWcdQcVdyTz2OuNWdOVv9muqvxyLx
Po9F58meerT/xy9z8WayQI/vh251LUokj9ZjmttBsyqIDD2eLg6+tN6NPFmP
1DPBXZoa/6b66+EeknLj95vkKD3ueTxwvplHjtfjm3kDbf315KV6JJbOOd0S
Q07WIz8jKaqrL1muR8DQRVyVE5nR40BIaJnvq1cB/wVuEHRU
        "]]}}, {}}, 
    InsetBox[
     TemplateBox[{
      "\"\[Epsilon] = +0.1%\"","\"\[Epsilon] = 0 %\"",
       "\"\[Epsilon] = - 0.1%\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.075], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.075], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Tiny], 
                    Thickness[0.0225]], {}}}, 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.075], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.075], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[Large], 
                    Thickness[0.0225]], {}}}, 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.075], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.075], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.0225]], {}}}, 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], {
          Directive[
           GrayLevel[0], Bold], FontFamily -> "Arial"}, Background -> 
         Automatic, StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Tiny", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", "Large", "]"}], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.008333333333333333`", "]"}], 
                   ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0, 0, 1]"], 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, 0, 1]; 
                    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, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.0025`", "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], 
                   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], ",", 
                 "Bold"}], "]"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.78, 0.1}], ImageScaled[{0.78, 0.1}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{
     FormBox["\"T [K]\"", TraditionalForm], 
     FormBox["\"\[CapitalDelta]T [K]\"", TraditionalForm]},
   AxesOrigin->{285, 0},
   DisplayFunction->Identity,
   Frame->{{False, False}, {False, False}},
   FrameLabel->{
     FormBox[
      StyleBox[
      "\"T [K]\"", FontFamily -> "Latin Modern Roman", FontColor -> 
       GrayLevel[0], FontSize -> 22, StripOnInput -> False], TraditionalForm], 
     FormBox[
      StyleBox[
      "\"\[CapitalDelta]T [K]\"", FontFamily -> "Latin Modern Roman", 
       FontColor -> GrayLevel[0], FontSize -> 22, StripOnInput -> False], 
      TraditionalForm]},
   FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImageSize->800,
   LabelStyle->Directive[
     GrayLevel[0], Bold],
   Method->{},
   PlotRange->All,
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{}, {{{}, {}, {
         Hue[0.67, 0.6, 0.6], 
         Directive[
          PointSize[0.008333333333333333], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Dashing[Tiny], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw913tczPkex/GJNmGXKbVsLFOL7ULmRKQl791cUi6jFWWXcsut1TT3+/xG
ttVmt9xvyRyXkNtY65QuTEhaYSjlFpUQbTYiRDmd3c/3zD/zeD4e85j5vmbm
8fl9fu4L4sMXd+LxeC52PN7/nv9+2BJQoCkYNlD8Ytzfrk7AxoKlk+vWkJsS
UJrdfvnUv8k8CUbMunF6by6ZL0Hcysh++8rIAglirnZ+lPsnWShBzcez3B59
1PyPIUH21ZL/DB5AFkkwJvhKti6AHCOBe0Ven/oZZLEE59wuly1dQeYkmOHr
VNu+mpwmQVXl4q+yMshmCQZuiatYnkO2SPBskOEArpOtEsjOZuzz+ZNsk2CO
TG31cXhJ/RIoFGFPISA3SaCxq3VeEUjmSfGhd5Jn1kwyX4q9+pe921eSBVJc
HRteGptMFkrhz7kNq9tDhhTfFfX2VJwmi6TYfGv6zn63yDFSLJr5TlLZTBZL
sem9JCWzxyvql+LkSI/iZC9ymhT9v9Lam8aTzVIcHFM7YG002SKFZ525OUtD
tkqReq5sdtUmsk0KP8z1+OI4uVqKxDbbYF0puUkK3eiYkfWPyTwZXj62DVjS
uYX6ZfD2mn/sTX+yQIafHmQfTQ8kC2WoGFhRFz6LDBmmh79z7Sshi2Tov2dT
51e/kGNkuL7dN676IFksQ6uHqHtVEZmTIdpRue1pDTlNhqTU5kuO7WSzDDUO
d2aOcntN/TLonjfUykeSrTJsGyN3Px9OtsmQd/2bHPd4cnXH5w/lwn5NITfJ
sOXKbm3XA2SeHLzg6Q/Xnyfz5ShzCnT3riEL5DitcT1/pY0slEPlJJ7Hub2h
fjlS3bbrgkaRRXL4Lv8503EmOUYOxXRr9D0xWSzHreKBX575hczJsWfgX4qs
LHKaHAtCfjy/q5hslmNE/Vwuo45skcP27o5rpt1b6pdDGTOy4WR/sk2O8Tun
z7/8FblajujT6WUNkeQmOewtrVv4CjJPgfjUTe2BG8h8BU5Yz8xYbiELFBhb
eu3GzstkoQIJqfYl5U/JUOCvQzMW9nBspX4FGoqmV0weRI5RIE7XZWrSN2Sx
Au69KxvORpM5BSwtE23tOnKaAhpVA3/0drJZgScLAwvE2WSLAke3Lq7aW062
KnCverSk/DnZpkBpVYusvcc76leg2duz0n0IuUmB6N2mVWMnk3lKRL3OjxTF
kvlKvAuOHx6VSBYo8WJv/YNZZrJQCSe/T4aHFJChxN1PR9T43CaLlDj+oVMm
7zU5RomkT0KFRb3eU78SOeseDFIJyZwSnXtu+KLPVHKaEuK/HuTvWUY2KxHH
66n7LIlsUSJ0240a5W6yVYlD2XGLC06TbUqENM6R1d8mVyvRcCVW8rqF3KTE
7RnaU/XObdSvwsZd67fl+pL5KvgNzIxcEUoWqJDy3Wa/t4vJQhVkcu+oBSYy
VPh42svmvelkkQrvayMEZ7LJMSo8c1U8P3qdLFZhl2KsWNJI5lTIr/p+RxfH
dupXYUX6tCVxHmSzCqW9F5zOGEO2qLBbYuPSZ5GtHedZVbh6oZhsU6HgbcLm
58nkahV+zgtRjd9DblIhNLy9NiqfzFNj1/W8H4fdIPPVmHJitsO5RrJAjQS5
0c7Z4QP1q+FpftnNrT8ZatxOu3Hkpj9ZpEbezXtxYVPJMWpMdCk8G7+ILFaj
+LHSI1hL5tQ4lpH1+uw6cpoaXl1d9/+5n2xWI2h+668FBWSLGo8jtncZXka2
qpFcmbMwtJ5sU0M4ZehzXhu5Wo2GBb+/P+jIwz/9aqQPd5lvdibzNFgR4TBp
QT8yXwPXFVnTng0iCzSo2Tu5d/AwslCDcQEF46IDyNDgULQt9uuvySINeNJj
PvWTyTEarJPO9g0PJ4s1sL3pxjfMIXMarF1aKl2+gJymwa7ple2uy8lmDWqv
eEUZE8gWDSLWdPLdpyJbO87juXJIkpFs08DoV9bFPYlcrcHkApNKtpb1a7Dk
4YQxxvWsX4uCP959iq2sX4vG7weXndzJ+rXY45Pyzf3drF+L60VFQXn7Wb8W
Z54/OhhymPVrER/SPT7Jwvq1KBnydpX0d9avRXnYiboeOaxfi2c1vTJm57F+
LbYr5p+fcpr1a3Gp/z1Vo5X1a+G0Y/aTgHOsX4uLxt9EvkWsX4vc4LjXpRdY
vxYhuwQjXC6yfi1Gq9pXdC5h/TokPw3qtZ2Zr0O3ytQjlcwCHZZNVV/JYxbq
UNwp57OJzNDhTddNwQr2/iIdup7ycppSzPp1CPHfF1nMzifW4eoTo109Oz+n
wz7P/fZHC1m/DqH2GXGfnWH9Orjf2Rjhnc/6dTjVW9pYzb4/qw5eZ8ulY0+y
fh3sQz+MxnHWr8PrO5d2P2G/T5MOeX8kegQeYP16jH9iCfLbw/r1MCc8+uX6
/39/PTI36bL7sv+HUI+7rhOkPdj/Bx2vd/BNPpTC+vUI1NfZmlezfj2Cjy37
V72e9evhP2CHOVnB+js+v0uBx62VrF+PxGsvSipjWb8em9t/P5k0j/Xr0dVz
vPPjCNavxx11zz6tU1h/x3kMbt0Lg1m/Hvg2JnBsIOvXIyDL+0O8kPUb8DBR
mj9nMOs3YB1v1L32vqzfgKyxl27OdWL9BtSMHOWpdmD9BsgDuu3a28LmnwFV
k/wsN+6z+WeAsoi/e81FNv8MKI+uSLda2PwzYABfd43byuafAXcd4lWlRjb/
DHDOnWnLjGXzz4Chhy/068Xmq9WAXmu89rkMZ/PPgMg41Ymjfdj8M8Dlt4Eb
6trY/DdgyrmW1FO1bP4bIQqyfyUsZvPfiBO5B7tPO8TmvxGdy9e4uaSShUbs
m5a+KElChhG334o8D0SQRUZMsjuSoQsgxxhRdVff6tCXLDZC4b1jSWgbu/4Z
8fjC4G6h98lpRpRMetDmWEg2GzFjxpaIn3eTLUYse/OD27VEstWIjVHSsOpF
ZJsRL0zOVbkTyNVGJOrScxYOJjcZsdLvXl6VA7v+c7hRU5jj85j2A0cOrltf
yETFZD6H4qDUg9P2k/tw8Mt81MnrJ7KAQ/7ZQEFtLNmTQ8T85A26iWQhh1+v
Rte0DiIHcBj9+Rku+iMyOLxXPrt9uI72pRAOc7vIwx6eY/sUhyR/O0H3PeRI
Dk7+0VsFq9h+xaHGW/Xoy/nkpRy+1UT4fgGymEODWZDkMoCs4mAfNbKlrY3t
nxw+bPdX19wlr+EQm+L03prH9lEOjc1D5mWwfXQrB7sSaYJWzfZTDseP6Vuj
IskHOAyZc8zy1Si2r3IoerggyONTcg6HUZu6fd3zFdvfOTgPmDfZvpx8keu4
fqbc6XSC7fMd31/Jd/Efryff5OBWulLskcD2ew78lMVBE0Xkeg6Df3Mdqh7G
9v2O3lOFq/N7kN9wGOQZusrpGd1P8ExwDoudrb5MdjQhuL3C+9VhMt+EtRf2
9UlaS+5jguHoTL+hcWSBCZ9v7m1sCCN7mqBRO70v9CELTUjs/GP68e7kABNe
7ncNzWug+ymYsGTbq7r7l8ghJkyo+HK84DBZZELXxqP++rXkSBPUdy4ZXseR
Y0wISxh6N3UqeakJ638Y1mmSL1lsgjTFYefnPckqEy4d/iByaWL3nyb8MeZI
rs+1lnH/BaCPke4=
          "]]}, {
         Hue[0.9060679774997897, 0.6, 0.6], 
         Directive[
          PointSize[0.008333333333333333], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Dashing[Large], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw913tczHkXB/Cpdm3IGkkuZU3s5s6wEio+ueXeKBS5DO26JDXN/T6/ERIh
UlorRS65xMhlIzHuLZXIJrK0WotoTemRJJ6e3fN9+qfX+1XNzKff+X7POR5L
ooN+tOfxeC52PN7/vv/zVRKDIdab0+P968f848oYhIomrxy3iGyLQfzR3Nhv
DGSeFB2j5bu6/UzmS7HUeiLX+yxZIEXE8eUPFPfJQinkd4c13/sPGVI4yH0F
s13+869FUjhVd/J9N5QsluLS5KyA3JlkiRRvs9t7/ywhc1JsPaVp2r2FnChF
rql17JVj5AwpfBafznUsJlukyLrtsSaqhmyVIjZU/2u907t/XSLFovELVvw8
gFwpRfbFFCyZRrZJsdOvc5/JkWSeDAFvztQHJpD5Mhxe00GlPEoWyPCDa5ju
fCFZKMO7WQN+9aghQwYx5vU60K6B8sugKs4PmDyILJbhYN+v3rQJJEtkWDZ9
TWF1NJmTYVLdq00vEsmJMuQ19alwyCFnyFAm6zbHt5RskaH/oLCdW+vJVhli
F9r5Obi+p/wypBiXFCZ6kytlSFIW3R45l2yTIeTzuBvNWjJPDs/Y0f0f7SLz
5XD8PjTy3gWyQA6R0PHts0qyUI4pJ+b24Ds0Un45Ss8mTQr6jiySw3/P6/NH
AshiOSKXeV9yiyBL5HC7ti5xTwKZk0O35vcw3+PkRDlScwsmv7pDzpDDa0Jb
ZXY92SLHpLkjas2dP1B+OcJiA63LRpFL5Dj/eP6jBQvIlXJUezkNDefINjmW
eY7bo8wk8xRwXnHyY8p1Ml+BO6eXtr7ykixQYKk8xNjo1ET5FQgseOcwUkiG
AvKc3O+5YLJIgcKJu3cUKcliBSb65x3qsZMsUUBz8mypPJ/MKTBwuzjqViU5
UQFLkssljy8+Un4FfPbPs1P2JlsUkEYFBV2fQrYqcHD16Kv8KHKJAlPufQgO
3kquVKD86prqjafINgVcJ0nm594n85TYapGuKPtA5itRbX2UV9W9mfIr8axO
8OJ3kIVKpL+fHXk5nAwl8tKuHN+8jixSos21KHscIouV8MvZs6v0FlmiREf/
Dbsn/k3mlJj1uLB9Cv8T5VdiXtzAJxeGkjOUOK0a+jR/FtmiRH3Ib/e2KMlW
JWQPx84dkkouUWKbZ1rD7rPkSiV2bLjV/beHZJsSXqnzepQ0kXkqVHwX6ZXg
/pnyqxBpyjZ+6UcWqLC3ecVn7wVkoQpzPLP29DCQoUJu3GKv3F1kUcvPRbck
zXlksQpN48/Yqh+SJSrsLG8zUt9I5lTo1/X4vLK2PPybX4WqipJHed3IGSrU
cDr/yL5kiwqfX0xxf+ZNtra8/p2Yd70mkktU+GbpjEDPWeRKFfTOXdNeLibb
VLB2S5++MprMU0Od73wjS0/mq+GZZFueHk8WqLGotC5hWgpZqEZA0bfrs/eS
oUaFvPHIxWNkkRoOsXEB3DmyWI28NcVZr6+RJWqMme38jf0dMqdGiGR6Q34F
y6+G3VFLXPe/WH41bnqN6P2NjeVXo8P94GH5jSy/GtrOSZ3e29tRfjWmfYry
KWxLrlTjfkzHnt4uZFvL6x8cGTzcnczT4O4U++U3epH5GhhDn7Z50Y8s0KBN
+JrG5CFkoQa9Hlpa3fYmQ4PndV7uW/3IIg3iZlzyfTiWLNbARfrL2qwAskSD
dPsm4YepZE6DZ+/2pRQFkhM1WJ1yaJBHMDlDg/pHy7a9nU22aFBywM04LpRs
1UC3Z8Td9vNYfg3sivdtDwlj+TWY8Pf12q7zWX4NZiyL9ZvDzNOi67ZPb9sy
87W4992Ec6PY3wu0iMq5tPDpXJZfC7fQLQ/s2ftDi5d1KdN2sc8n0iIrOt7h
eBDLr8XXZYdkPiyfRIvNHyN9xv4/vxa3r7zxuDqR5ddCc3e062V/ll+LOebY
QX6+LL8Wi5s/HBg+nOXXwvNGWeXxwSy/Fsl2DeLDfVh+LVYkxRX39mD5tVD1
XF3btyvLr8NCp84ncvgsvw7rpto7X/2K5dfBw/PuMPEnVv863FvdaVZ8Pat/
HV7rNlz2r2b1r4Og3Oflxies/nX4M2zPhIh7rP51eBx0ctmTAlb/OhwTtbbV
nGf1r0NKQcOmVAurf11Lv7E0/5HJ6l+Hnh1iWhWx82jVIefHM+r57LyW6JAv
MwxI0rHzr0NhQ/Jn2Sp2/nXQxjeV2i1i51+PmskBm8eI2PnXY1jmQBehPzv/
evQ+zZ9aNoTl16OqZq+rV0+WX49Fv+wNCXRm+fW4Jk+v7m3P8ushHHVuemwV
u//0uLIt7tzoy+z+0+P5TzePxWWQE/XYzx+QHW4kZ7S8n3SYZ3kY2aLHrS3X
ldUjyFY9SsLP/5XeiVyihyHzyMHmWnb/61EUWlTqWMzufz0O3+Ctun6I3f8G
BGlfhfmsJfMNEPTyi44UkwUGuHNtwhb6kIUGnPh7Um4nVzIMqNo164sdNtb/
DEjYmZ7x103W/wxYdSnqruN+1v8MqPwx87KdifU/A8bdOGz4LZScaMDTVZFv
44aSMwzQXRU1uDuRLQb0LZ+P1Ges/xswNTlwRfMF1v8NGBJdagtMZf3fgCbV
hZFJMaz/G7D9yfSNN9n8wDPCu3p1h8ZerP8b0W655HePZppHBEYEDkl7FlDG
5h8jHgSuahV1nM0/Rmw7Gm+/Yz2bf4zInDEr9tpiNv8YcUy7qOvHUWz+McK2
77Gvnwubf4wwCoQzNtbQvJVoBPRBKS/YPJZhRHP+yoCQDLLFiJGrJxgeaNj8
Z8TMcRV+McFs/jNinrxcIxjI5j8jit8K2r1sxeY/I9oeDrpYWEnzJM+EmRtF
44vOkfkmYOMN39fbyQIToozZw/tHk4UmhCgLsjdOZvNvi+MGO7X/ls2/Jiif
Fx4+84nmZbEJK7UP78Q+IEtMiD3yw1nVKTJnQuv0i/FJW8iJJrQ/4TC/PIKc
YcL6wfGjAiaSLSYkh87x+MODbDVBEvPTpwPNtA+UmJB5vcvJnx6QK00on5nu
fO402WbC1wURfzpuI/M4bE5IrVoXRXbkEOey4eKwqWQ+h6mVU9079iF34SB3
/bCt55dkAYfrEo+c8Ke0D/XhsCrK7VPZRbYvcfiYHFGrTyOP4NBF59Y8W8f2
p5bf79c+fslc8iQOM/QL6vd6k0Ucxt7JSO7sSg7lMK1sYp61nu2XHPp4/3Fk
dyl5OYc6O9mBEzls3+QQ+frU08atZDWHEIfwraoYtn9y6D/N/Kgf20/Xc9CO
TXvecQjbRznYyjqUDO1ATuVQ/GZ8dlwt7b8ZHCpUzxOd75KzOAj6CuNKc8gW
DjMvdN5xM4mcy6FtRcLlBjnZyoE7dLRV2BxyQcv/+86HsHpvcgmHxXUJZ650
JZdzsNs1vtWvTW/p+XKIzm4c/sVj8gsOx5KzhAor2cbhVfe9990yye85tI8+
6fR+LZlnRtjTmdmtV5AdzXDxtSaJppH5Znz1i8+OwsHkLmbErHVLMHQkC8xw
7/FuXHhDHT1/M17NLdhkqCALzfAVdhheeJE8wgyfBY2tAveRYUZjVUTBl/Hk
SWa0m+kN2yqyyIwJXQYN/TqYHGpGxP7R4kUjyGIzzuZu2lDVnbzcjB9CUqJ3
OpAlZjyc4VMY+7KWnr8ZacLnYem3yZwZ/WvSyl+frh3zXyjWh64=
          "]]}, {
         Hue[0.1421359549995791, 0.6, 0.6], 
         Directive[
          PointSize[0.008333333333333333], 
          AbsoluteThickness[1.6], 
          RGBColor[0, 0, 1], 
          Thickness[0.0025]], 
         Line[CompressedData["
1:eJw91nlczPkfB/AZtRWiQeQoJrKyqMnKUeilVQhtFB2KHOtKydz3fCdl2R/b
UGvlKkfKtUZYso5ZInINOVNMsZRVJqmwya/fen9/8888no/5zsz39X0/3p/3
233Bypk/tONwOM5cDud/7/++zKtQ/rYm37W0KeBfW1ZhRqrng5r3ZOsqOE8+
tbW2b/MXc4SodJheOyiIzBOi5kH0n1sSyHwhnBft5WITWSDECvsSg1shGULM
CSme7GMhhwmxJlT+UWn//ovjhag+3Dnxoxc5WYje19PijswmM0KMZxy0WVqy
QYhBI6Mlp/aRc4T4vGzok463yEYhjq5SBGc0k01CeH5X5BXK//DFZiGeG5a0
HzuFbBFiYNiFMbFCslWInSNE3X7bRuaIcNZT/EhwicwTYZKf/9lndWS+CLmD
b1Rc6vmR8ovQrvxM8P1AMkSIFnu96ZZIDmu7PvbcKc2v5HgR8hYmJHW9QE4W
YbzX0ovm12RGhIRHL2acdPmH8ovQnFaWVRRIzhEhJCPnc1Mi2SiCS0ZeybQs
skmE2ByuR1ER2SzC9lCr8xwr2SJCVveYNCfXFsovglvKt35PJ5E5Ynisqikt
FpF5Yry0zb1+OZvMF6PBO1P66BpZIMZYv0EfW5rJEMPrvU+El8cnyi9G4KSu
EcvDyPFi/N1QnHVYTU4WQ739Y8a7fDIjRlNIB63/PbJBDJHeZq6W20r5235P
tq9d4TCyUYwbLrHcl9FkkxgZXJ/jNmvIZjF+PFE+qkMB2SLGjLiiZY0VZKsY
w7Y7vzjf/jPll2C88q+vFvmSeRKU81ZWPI4n8yX4um65n/t6skCCGunq3cNO
kiEB9967GR8ryWESvN7j5QY7Dr7kl+CDycKJ7UNOlgCR1ZzpAjIjQfHUPwY4
BZENEihOx03ZGU3OkaDDR/2QpkSyUYKY0Q/juqaQTRLE3sgOrfuFbJagAYmT
0vaTLRL8OCgg6c4ZslWCHX/dvmy+ReZIIRz1/QhVFZknhbL3ZNX1d2S+FKeX
dp543o77xQIpUh4sdQvtSYYU9uZDOtFgcpgUR5+MMQ/2I8dLsWnF7B8SQsjJ
UuTmqX8aHkNmpFhd3y5NsYxskOIfH0GWn5ycI8XvFfuckteQjVLEBw/1d84k
m6Q4u/mi1n0X2SzFlYkdIzYdJlukiEu9P2N+IdkqxTz7puHrisgcGcxL+lXY
3iLzZKjLfLzk1kMyX4Zyg2TA80o2vwytqSXZ41+x+WXY9amuoKyezS/DCOMG
3fH3bH4ZXIy1yiutbH4ZlKINwm627Si/DN5JYzduciAbZHgUsGvhd47kHBnQ
2b18gBPZKMM6R6fZw7uQTTKkNg3ektiVbJbhQea0+3dZW2TY2mtewRLWVhka
d0rHfs1+nyPHtP1eb3ns7/PkGJXYdiSy/8+Xw9Qhsj6JvT+BHPWcgCl/2ZAh
B1MQ92wDmy9Mjq/35I5L+H9+OXi17wUM+3yS5dha2fv1rRq2/nLYzZ9YF8c+
X4Mca5IXcb3Y558jR13K4BETb7L1l8Oj9Hnp3ots/eXoXx6yOOIUW385bJPG
74k8xNZfjstDtyQdy2brL8eZOsc7Kzax9Vdgb7V389pUtv4KTNxy1L2TlK2/
Ar3Cr+xvXczWX4Gyby1NCyLZ+itQ0JihDJjE5ldgWWL1wayRbP426yrayQay
+RW4/8vUd+Xd2PwKDO3Vrc7MZfMr0FC+PTzqDdv/CsxZflApL2f7X4Hpb6X5
I6+y/a9ASVpvpy0n2P5XYPWMKdd27WL7X4Hs7qiK2sD2vwIqr464IGf7Xwnx
i+YTVQvZ/lfCYWboh3OhbP8r0d17zO45Y8gCJaJGVH9zdgAZStTcfVD3shM5
TAnPQVkRpjd0HsYr8eJqVUP4RXKyElKx74lNm8mMEkHps2amLiMblDjp6Bok
GEvOUaKi9nTxjs5koxL2f3S9V2phz/+26xMnD37EnvdmJbJfSwKPp7LnvxKX
e6jnJ8xmz38lqlZZf7L1JHNUmO/rvjbtA80fngopo7yrG0rIfBWW+wZwZ20n
C1To1yO//nAiGSqM6jZhl00AO/9UsF+5/0IMj51/Khj75N49WUnzMlkFp04r
BvQ7RmZUCJzlVJKZSjaocDvy4THX2eQcFdBj747Tg8hGFab7BLkIP7DzX4WW
I1WpwdfY+a9C2sFpfP8d7Pxvuz+f2I8zV5KtKhyOGtdimEDmqBHje7G6uRuZ
1+a9h+N+ekH7CV+N4OLauyGF7P6jxp4ellz/9ez+o8a9p+vs5s1j9x813gWd
dzw5nN1/1JiUF3EkyI7df9ToEDO22LGM9itGjWdbdvE6/0Y2qJEY0DJkago5
R40nb/plX5pNNqrx/l3Afe0QskmNltxXHnIOu/+psTmLW1xwj/ZDixpXbQ9V
eh8kW9U492lcqpUhczS4n+Wyv5HdR3kahE9IGYlhZL4Gc8WrP5ttyAINtt08
XJRfxu6/GriPsYy4cpTdfzXwS3es815Hjtcg8j/1Gks8OVmDTklXFpSNJjMa
NEr+6di3C9mgQVJ6cdnBGtrXczSYlv6kf+oFslGD0eschuRtI5s0sHP6fVh3
CdmsQbprRvTNUHb/18B1jMudO57s/q9Bn4O2xv42ZI4WXnmN3HMVjZRfi5Ta
29f3niLztWgfEeL4IIMs0IJb/P2xiJVkaMHrzxxym0oO06JDTmaZzyByfNvn
z0t6brQhJ2txOjzQ39/yjvJr0Td4sZPgLNmgxas9gbErt5JztAjyqKx6LyMb
tWgaljX3+iyySYslccvSar4lm7W4dx4OYV3JFi3ypNMyPlsbKL8WU2zH3Wy+
ReboYP2UHjv6CJmnQ+vOOxWmn8l8HfqnVdQaksgCHVxbnQfmh5Khw74Du3va
eZPDdJDu+y3mgBM5XoeHUzKUmda3lF+HHrudvyq6TWZ02HBgferoY2SDDuIV
rvr6THKODofqHzN1UrJRh7dJn+29o8kmHZ4HfZVV4E8263BhSvlxeV+yRYeG
SPvHDJds1UHGu7Cu5Hk95WfQ4YXH+FlXyA4MHl4NFPMPkXkMlg2bkjfEQO7J
IEG/c4ZUTOYziA5tff05iuzJ4MaoTW+Lx5EFDDpKOj6+0Z88mkH6OlPfLg5k
MLCbedp3Y631iyczGP+k9NfppeQwBtuuXj0TVEiOYnC6ZbqrIpscz+CIp6vX
yzTyUga14Y7L01eQkxksCOk3eVU4Wc5g4NNNWO9HZhis5VqvPXUnr2XABLks
TGhPNjDoW5ndGlv15ou3MDhTmztiRgE5h0Fhn6OxBSnkfAamPkErdOFkIwOv
wC4xJz3Ipxj8XPjJLbqpjurHYLdowtGFV8hXGIQmyDvf30o2M2i/Od/nSCL5
IYPNvef2rAPZwmBC5NE/NzqTqxl4hkR4ZVXXUr0ZhDN74m3Okt8zeGE+FHtr
I5mjR739OM+WxWQHPXq1Pi9ZO5bM06PwWcdQcVdyTz2OuNWdOVv9muqvxyLx
Po9F58meerT/xy9z8WayQI/vh251LUokj9ZjmttBsyqIDD2eLg6+tN6NPFmP
1DPBXZoa/6b66+EeknLj95vkKD3ueTxwvplHjtfjm3kDbf315KV6JJbOOd0S
Q07WIz8jKaqrL1muR8DQRVyVE5nR40BIaJnvq1cB/wVuEHRU
          "]]}}}, {}}, {
     PlotRange -> All, FrameLabel -> {
        Style[
        "T [K]", FontFamily -> "Latin Modern Roman", FontColor -> 
         GrayLevel[0], FontSize -> 22], 
        Style[
        "\[CapitalDelta]T [K]", FontFamily -> "Latin Modern Roman", FontColor -> 
         GrayLevel[0], FontSize -> 22]}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, AxesOrigin -> {285, 0}, 
      PlotRange -> {{285., 560.}, {0., 2.2591950170632162`}}, DisplayFunction -> 
      Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, 
      AxesLabel -> {"T [K]", "\[CapitalDelta]T [K]"}, AxesOrigin -> {285, 0}, 
      DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
      FrameLabel -> {{None, None}, {None, None}}, 
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      GridLines -> {None, None}, GridLinesStyle -> Directive[
        GrayLevel[0.5, 0.4]], ImageSize -> 800, LabelStyle -> Directive[
        GrayLevel[0], Bold], Method -> {}, 
      PlotRange -> {{285., 560.}, {0., 2.2591950170632162`}}, 
      PlotRangeClipping -> True, PlotRangePadding -> {{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        Directive[
         PointSize[0.008333333333333333], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Dashing[Tiny], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.008333333333333333], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Dashing[Large], 
         Thickness[0.0025]], 
        Directive[
         PointSize[0.008333333333333333], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[0.0025]]}, {
       "\[Epsilon] = +0.1%", "\[Epsilon] = 0 %", "\[Epsilon] = - 0.1%"}, 
       LegendMarkers -> {{False, Automatic}, {False, Automatic}, {
         False, Automatic}}, Joined -> {True, True, True}, LabelStyle -> 
       Directive[
         GrayLevel[0], Bold], LegendLayout -> "Column"]], {
      Scaled[{0.78, 0.1}], {0.78, 0.1}}, Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{{3.6556639244490747`*^9, 3.655663946244252*^9}, 
   3.6556641016881332`*^9, {3.655664155858*^9, 3.65566418566121*^9}, {
   3.655664257755752*^9, 3.655664273808776*^9}, {3.655664347304482*^9, 
   3.655664384238538*^9}, 3.6556645673449574`*^9, {3.655829296548778*^9, 
   3.655829310692072*^9}, 3.655829430684135*^9, 3.6558297083970222`*^9, {
   3.6611859250426617`*^9, 3.661185948458417*^9}, 3.661186051812798*^9}]
}, Open  ]],

Cell["factor of 10 seems to be due to Cv being off (need 5 atoms?)", "Text",
 CellChangeTimes->{{3.64250852813095*^9, 3.6425085410701933`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\</home/john/solUnstrAllMinSmallFieldPhasEx.csv\>\"", ",", 
   "solUnstrAllMinSmallFieldPhasEx"}], "]"}]], "Input",
 CellChangeTimes->{{3.655026914916615*^9, 3.655026944703354*^9}}],

Cell[BoxData["\<\"/home/john/solUnstrAllMinSmallFieldPhasEx.csv\"\>"], \
"Output",
 CellChangeTimes->{3.655026948202738*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\</home/john/solUnstrAllMinSmallFieldPhasEy.csv\>\"", ",", 
   "solUnstrAllMinSmallFieldPhasEy"}], "]"}]], "Input",
 CellChangeTimes->{{3.655026949879115*^9, 3.655026953015607*^9}}],

Cell[BoxData["\<\"/home/john/solUnstrAllMinSmallFieldPhasEy.csv\"\>"], \
"Output",
 CellChangeTimes->{3.655026955922604*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
  "\"\</home/john/solUnstrAllMinSmallFieldPhasSame.csv\>\"", ",", 
   "solUnstrAllMinSmallFieldPhasSame"}], "]"}]], "Input",
 CellChangeTimes->{{3.655026971169009*^9, 3.6550269736881437`*^9}}],

Cell[BoxData["\<\"/home/john/solUnstrAllMinSmallFieldPhasSame.csv\"\>"], \
"Output",
 CellChangeTimes->{3.65502697700636*^9}]
}, Open  ]],

Cell[BoxData["solUnstrAllMinSmallFieldPhasSame"], "Input",
 CellChangeTimes->{{3.655026964300857*^9, 3.655026966464175*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"2", "*", 
  SuperscriptBox["10", "5"], "*", 
  RowBox[{"Flatten", "[", 
   RowBox[{"\[CapitalDelta]T1", "[", "2", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.655829520162929*^9, 3.655829520366387*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\\(\\({\\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \\(\\({\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)}\\)\\), \\(\\({\\(\\({\\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 1, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 2, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 3, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 4, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 5, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 6, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 7, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 8, 0.001`}\\)\\), \\(\\(\[LeftSkeleton] 35 \[RightSkeleton]\\)\
\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 44, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 45, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 46, \
0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 47, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 48, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 49, \
0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 50, 0.001`}\\)\\), \\(\\(\
\[LeftSkeleton] 530 \[RightSkeleton]\\)\\)}\\)\\), \\(\\(\[LeftSkeleton] 49 \
\[RightSkeleton]\\)\\), \\(\\(\[LeftSkeleton] 101 \
\[RightSkeleton]\\)\\)}\\)\\)}\\)\\) \[LeftDoubleBracket] \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) \[RightDoubleBracket]\\)\[NoBreak] \
is longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6558295221033773`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\\(\\({\\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \\(\\({\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)}\\)\\), \\(\\({\\(\\({\\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 1, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 2, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 3, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 4, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 5, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 6, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 7, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 8, 0.001`}\\)\\), \\(\\(\[LeftSkeleton] 35 \[RightSkeleton]\\)\
\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 44, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 45, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 46, \
0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 47, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 48, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 49, \
0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 50, 0.001`}\\)\\), \\(\\(\
\[LeftSkeleton] 530 \[RightSkeleton]\\)\\)}\\)\\), \\(\\(\[LeftSkeleton] 49 \
\[RightSkeleton]\\)\\), \\(\\(\[LeftSkeleton] 101 \
\[RightSkeleton]\\)\\)}\\)\\)}\\)\\) \[LeftDoubleBracket] \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) \[RightDoubleBracket]\\)\[NoBreak] \
is longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655829523419249*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "partd"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\(\\(\\({\\(\\({\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)}\\)\\), \\(\\({\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)}\\)\\), \\(\\({\\(\\({\\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 1, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 2, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 3, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 4, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 5, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 6, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 7, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 8, 0.001`}\\)\\), \\(\\(\[LeftSkeleton] 35 \[RightSkeleton]\\)\
\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 44, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 45, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 46, \
0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 47, 0.001`}\\)\\), \
\\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\
\\)}\\)\\), 0, 48, 0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\
\[LeftSkeleton] 2 \[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 49, \
0.001`}\\)\\), \\(\\({\\(\\({\\({\\(Rule[\\(\\(\[LeftSkeleton] 2 \
\[RightSkeleton]\\)\\)]\\)}\\)}\\)\\), 0, 50, 0.001`}\\)\\), \\(\\(\
\[LeftSkeleton] 530 \[RightSkeleton]\\)\\)}\\)\\), \\(\\(\[LeftSkeleton] 49 \
\[RightSkeleton]\\)\\), \\(\\(\[LeftSkeleton] 101 \
\[RightSkeleton]\\)\\)}\\)\\)}\\)\\) \[LeftDoubleBracket] \\(\\(\
\[LeftSkeleton] 1 \[RightSkeleton]\\)\\) \[RightDoubleBracket]\\)\[NoBreak] \
is longer than depth of object. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/partd\\\", ButtonNote -> \
\\\"Part::partd\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.65582952472821*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
partd\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6558295247468643`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\) \[LeftDoubleBracket] \\(\\(1, 50, 0, 1\\)\\) \
\[RightDoubleBracket]\\)}\\)\[NoBreak] is neither a list of replacement rules \
nor a valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6558295260703897`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"ReplaceAll", "::", "reps"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\({\\(\\(\\(\[LeftSkeleton] 1 \
\[RightSkeleton]\\)\\) \[LeftDoubleBracket] \\(\\(1, 52, 0, 1\\)\\) \
\[RightDoubleBracket]\\)}\\)\[NoBreak] is neither a list of replacement rules \
nor a valid dispatch table, and so cannot be used for replacing. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/ReplaceAll/reps\\\", \
ButtonNote -> \\\"ReplaceAll::reps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.655829527405974*^9}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.6558295275975037`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1855, 1056},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.25,
FrontEndVersion->"10.3 for Linux x86 (64-bit) (December 10, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 144, 2, 38, "Input"],
Cell[705, 24, 271, 9, 10, "Text"],
Cell[979, 35, 273, 9, 6, "Text"],
Cell[1255, 46, 271, 9, 10, "Text"],
Cell[CellGroupData[{
Cell[1551, 59, 180, 6, 84, "Chapter"],
Cell[CellGroupData[{
Cell[1756, 69, 164, 2, 56, "Subsection"],
Cell[1923, 73, 200, 4, 40, "Text"],
Cell[2126, 79, 971, 20, 40, "Input"],
Cell[3100, 101, 779, 19, 44, "Input"],
Cell[3882, 122, 676, 16, 67, "Input"],
Cell[CellGroupData[{
Cell[4583, 142, 369, 7, 38, "Input"],
Cell[4955, 151, 2622, 59, 93, "Output"]
}, Open  ]],
Cell[7592, 213, 355, 9, 67, "Text"],
Cell[7950, 224, 1054, 30, 75, "Input"],
Cell[9007, 256, 708, 11, 67, "Text"],
Cell[9718, 269, 257, 7, 38, "Input"],
Cell[9978, 278, 271, 9, 10, "Text"],
Cell[10252, 289, 273, 9, 6, "Text"],
Cell[10528, 300, 271, 9, 10, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10836, 314, 157, 3, 81, "Section"],
Cell[10996, 319, 2061, 36, 58, "Input"],
Cell[13060, 357, 4657, 111, 288, "Input"],
Cell[CellGroupData[{
Cell[17742, 472, 2770, 59, 1168, "Input"],
Cell[20515, 533, 560, 11, 45, "Message"],
Cell[21078, 546, 560, 11, 45, "Message"],
Cell[21641, 559, 559, 11, 45, "Message"],
Cell[22203, 572, 533, 11, 41, "Message"],
Cell[22739, 585, 560, 11, 45, "Message"],
Cell[23302, 598, 562, 11, 45, "Message"],
Cell[23867, 611, 562, 11, 45, "Message"],
Cell[24432, 624, 533, 11, 41, "Message"],
Cell[24968, 637, 562, 11, 45, "Message"],
Cell[25533, 650, 559, 11, 45, "Message"],
Cell[26095, 663, 560, 11, 45, "Message"],
Cell[26658, 676, 535, 11, 41, "Message"],
Cell[27196, 689, 560, 11, 45, "Message"],
Cell[27759, 702, 560, 11, 45, "Message"],
Cell[28322, 715, 562, 11, 45, "Message"],
Cell[28887, 728, 533, 11, 41, "Message"],
Cell[29423, 741, 562, 11, 45, "Message"],
Cell[29988, 754, 560, 11, 45, "Message"],
Cell[30551, 767, 560, 11, 45, "Message"],
Cell[31114, 780, 533, 11, 41, "Message"]
}, Open  ]],
Cell[31662, 794, 869, 15, 103, "Text"],
Cell[32534, 811, 271, 9, 15, "Text"],
Cell[32808, 822, 273, 9, 8, "Text"],
Cell[33084, 833, 271, 9, 15, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[33392, 847, 110, 1, 63, "Section"],
Cell[CellGroupData[{
Cell[33527, 852, 2634, 57, 125, "Input"],
Cell[36164, 911, 967, 15, 38, "Output"]
}, Open  ]],
Cell[37146, 929, 72, 2, 38, "Input"],
Cell[CellGroupData[{
Cell[37243, 935, 255, 5, 38, "Input"],
Cell[37501, 942, 137, 1, 38, "Output"]
}, Open  ]],
Cell[37653, 946, 634, 10, 67, "Text"],
Cell[38290, 958, 991, 24, 38, "Input"],
Cell[39284, 984, 997, 19, 107, "Text"],
Cell[40284, 1005, 746, 18, 66, "Input"],
Cell[41033, 1025, 1080, 32, 69, "Text"],
Cell[42116, 1059, 943, 27, 69, "Input"],
Cell[CellGroupData[{
Cell[43084, 1090, 103, 1, 56, "Subsection"],
Cell[CellGroupData[{
Cell[43212, 1095, 6806, 157, 235, "Input"],
Cell[50021, 1254, 71255, 1308, 615, 35617, 722, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[121325, 2568, 114, 1, 56, "Subsection"],
Cell[CellGroupData[{
Cell[121464, 2573, 5203, 125, 210, "Input"],
Cell[126670, 2700, 31815, 655, 595, "Output"]
}, Open  ]],
Cell[158500, 3358, 90, 1, 38, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158627, 3364, 134, 1, 56, "Subsection"],
Cell[CellGroupData[{
Cell[158786, 3369, 371, 9, 38, "Input"],
Cell[159160, 3380, 905, 14, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[160102, 3399, 1938, 51, 164, "Input"],
Cell[162043, 3452, 6442, 120, 468, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168522, 3577, 2886, 74, 221, "Input"],
Cell[171411, 3653, 34392, 642, 648, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205840, 4300, 33449, 629, 648, "Input"],
Cell[239292, 4931, 33652, 634, 648, "Output"]
}, Open  ]],
Cell[272959, 5568, 68, 1, 38, "Input"],
Cell[CellGroupData[{
Cell[273052, 5573, 4393, 94, 189, "Input"],
Cell[277448, 5669, 10826, 234, 454, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[288335, 5910, 110, 1, 81, "Section"],
Cell[288448, 5913, 1290, 37, 85, "Text"],
Cell[289741, 5952, 1180, 34, 80, "Input"],
Cell[290924, 5988, 337, 6, 40, "Text"],
Cell[291264, 5996, 417, 11, 107, "Text"],
Cell[291684, 6009, 154, 3, 38, "Input"],
Cell[291841, 6014, 680, 16, 38, "Input"],
Cell[292524, 6032, 601, 14, 38, "Input"],
Cell[293128, 6048, 478, 13, 38, "Input"],
Cell[293609, 6063, 479, 13, 38, "Input"],
Cell[294091, 6078, 463, 13, 38, "Input"],
Cell[294557, 6093, 523, 12, 66, "Input"],
Cell[295083, 6107, 427, 11, 66, "Input"],
Cell[295513, 6120, 396, 11, 66, "Input"],
Cell[295912, 6133, 603, 16, 68, "Input"],
Cell[296518, 6151, 553, 15, 68, "Input"],
Cell[CellGroupData[{
Cell[297096, 6170, 166, 3, 38, "Input"],
Cell[297265, 6175, 563, 11, 27, "Message"],
Cell[297831, 6188, 640, 12, 29, "Message"],
Cell[298474, 6202, 562, 11, 27, "Message"],
Cell[299039, 6215, 638, 12, 29, "Message"],
Cell[299680, 6229, 537, 13, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[300254, 6247, 4785, 113, 202, "Input"],
Cell[305042, 6362, 40748, 771, 635, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[345827, 7138, 457, 10, 38, "Input"],
Cell[346287, 7150, 179, 3, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[346503, 7158, 3262, 89, 182, "Input"],
Cell[349768, 7249, 40944, 775, 608, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[390749, 8029, 183, 2, 56, "Subsection"],
Cell[390935, 8033, 218, 4, 1103, "Text"],
Cell[391156, 8039, 690, 20, 1820, "Input"],
Cell[391849, 8061, 668, 19, 1820, "Input"],
Cell[392520, 8082, 616, 18, 1820, "Input"],
Cell[CellGroupData[{
Cell[393161, 8104, 4495, 111, 6043, "Input"],
Cell[397659, 8217, 28588, 586, 15088, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[426308, 8810, 126, 1, 81, "Section"],
Cell[426437, 8813, 966, 29, 88, "Text"],
Cell[427406, 8844, 333, 7, 38, "Input"],
Cell[427742, 8853, 217, 4, 40, "Text"],
Cell[427962, 8859, 2954, 55, 96, "Input"],
Cell[430919, 8916, 1691, 38, 96, "Input"],
Cell[432613, 8956, 1693, 38, 96, "Input"],
Cell[434309, 8996, 271, 9, 10, "Text"],
Cell[434583, 9007, 273, 9, 6, "Text"],
Cell[CellGroupData[{
Cell[434881, 9020, 7136, 168, 461, "Input"],
Cell[442020, 9190, 39063, 738, 664, "Output"]
}, Open  ]],
Cell[481098, 9931, 3744, 99, 185, "Input"],
Cell[CellGroupData[{
Cell[484867, 10034, 312, 7, 38, "Input"],
Cell[485182, 10043, 41932, 798, 637, "Output"]
}, Open  ]],
Cell[527129, 10844, 143, 1, 40, "Text"],
Cell[CellGroupData[{
Cell[527297, 10849, 236, 5, 38, "Input"],
Cell[527536, 10856, 124, 2, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[527697, 10863, 236, 5, 38, "Input"],
Cell[527936, 10870, 124, 2, 38, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[528097, 10877, 242, 5, 38, "Input"],
Cell[528342, 10884, 125, 2, 38, "Output"]
}, Open  ]],
Cell[528482, 10889, 124, 1, 38, "Input"],
Cell[CellGroupData[{
Cell[528631, 10894, 229, 5, 40, "Input"],
Cell[528863, 10901, 2618, 40, 97, "Message"],
Cell[531484, 10943, 2616, 40, 97, "Message"],
Cell[534103, 10985, 2615, 40, 97, "Message"],
Cell[536721, 11027, 530, 11, 27, "Message"],
Cell[537254, 11040, 651, 12, 29, "Message"],
Cell[537908, 11054, 649, 12, 29, "Message"],
Cell[538560, 11068, 79, 1, 38, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)