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

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

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    269380,       6134]
NotebookOptionsPosition[    267294,       6063]
NotebookOutlinePosition[    267640,       6078]
CellTagsIndexPosition[    267597,       6075]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["DFB1 - DTOL - T1 fit 2018/09/26", "Title",
 CellChangeTimes->{{3.777365491334436*^9, 3.777365495812441*^9}, 
   3.777620196717688*^9, {3.7776320632102532`*^9, 3.777632068794711*^9}, {
   3.7778823986426334`*^9, 3.777882407885*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Temperature", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "293", ",", "8", ",", "10", ",", "15", ",", "20", ",", "30", ",", "40", 
     ",", "50", ",", "200"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"taus", "=", "Temperature"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"errors", " ", "=", " ", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"Temperature", ",", "Temperature", ",", "Temperature"}], 
     "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "@", 
    RowBox[{"{", 
     RowBox[{"Temperature", ",", "taus"}], "}"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"expo", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", " ", 
     RowBox[{"A1_", "?", "NumericQ"}], ",", 
     RowBox[{"T1_", "?", "NumericQ"}], ",", 
     RowBox[{"A2_", "?", "NumericQ"}], ",", 
     RowBox[{"T2_", "?", "NumericQ"}], ",", " ", 
     RowBox[{"y0_", "?", "NumericQ"}]}], "]"}], " ", ":=", 
   RowBox[{
    RowBox[{"A1", "*", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "t"}], "/", "T1"}], "]"}]}], "+", 
    RowBox[{"A2", "*", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "t"}], "/", "T2"}], "]"}]}], "+", "y0"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.777293824243705*^9, 3.777293833764422*^9}, {
   3.777298559152591*^9, 3.777298570773249*^9}, 3.777298931772601*^9, {
   3.777614704948596*^9, 3.777614729245869*^9}, {3.7776192676261816`*^9, 
   3.777619268780657*^9}, {3.7776193537666893`*^9, 3.7776193549865656`*^9}, {
   3.7776195288143272`*^9, 3.7776195722122707`*^9}, {3.777630680940977*^9, 
   3.777630700289357*^9}, {3.777631543140421*^9, 3.7776315835617943`*^9}, {
   3.777631719968566*^9, 3.777631722689185*^9}, {3.7776320584424543`*^9, 
   3.7776320791336813`*^9}, {3.777876626410688*^9, 3.777876646774501*^9}, {
   3.777876699128194*^9, 3.7778767024496665`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"files", "=", 
   RowBox[{"FileNames", "[", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<*.tsv\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{
     RowBox[{"Length", "[", "files", "]"}], "-", "2"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"experiment", "=", " ", 
     RowBox[{"Import", "[", 
      RowBox[{
       RowBox[{
       "files", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
       "\"\<Data\>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"experiment", " ", "=", " ", 
     RowBox[{"experiment", "\[LeftDoubleBracket]", 
      RowBox[{
       RowBox[{"4", ";;", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"experiment", "\[LeftDoubleBracket]", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], " ", "=",
      " ", 
     RowBox[{
      RowBox[{"experiment", "\[LeftDoubleBracket]", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], "/", 
      RowBox[{"Max", "[", 
       RowBox[{"experiment", "\[LeftDoubleBracket]", 
        RowBox[{
         RowBox[{"1", ";;", 
          RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], 
       "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"A11", " ", "=", "  ", 
     RowBox[{"-", "0.8"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"T11", " ", "=", " ", 
     SuperscriptBox["10", "7"]}], ";", "\[IndentingNewLine]", 
    RowBox[{"A21", " ", "=", " ", 
     RowBox[{"-", "0.4"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"T21", " ", "=", " ", 
     SuperscriptBox["10", "6"]}], ";", "\[IndentingNewLine]", 
    RowBox[{"y1", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"Show", "[", 
        RowBox[{
         RowBox[{"ListPlot", "[", 
          RowBox[{"experiment", ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], 
          "]"}], ",", " ", 
         RowBox[{"Plot", "[", 
          RowBox[{
           RowBox[{"expo", "[", 
            RowBox[{"t", ",", " ", "A1", ",", " ", "Tm1", ",", "y1"}], "]"}], 
           ",", " ", 
           RowBox[{"{", 
            RowBox[{"t", ",", " ", "0", ",", " ", "26000"}], "}"}], ",", " ", 
           RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
           RowBox[{"PlotRange", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
              RowBox[{"{", 
               RowBox[{"0", ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",",
          "\n", " ", 
         RowBox[{"ImageSize", "\[Rule]", "750"}], ",", " ", 
         RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{
             "\"\<2\[Tau] (ns)\>\"", ",", " ", "Black", ",", " ", "24"}], 
             "]"}], ",", " ", 
            RowBox[{"Style", "[", 
             RowBox[{
             "\"\<Echo Intensity (arb.un.)\>\"", ",", " ", "Black", ",", " ", 
              "24"}], "]"}]}], "}"}]}], ",", 
         RowBox[{"LabelStyle", "\[Rule]", 
          RowBox[{"Directive", "[", "18", "]"}]}], ",", " ", 
         RowBox[{"FrameStyle", "\[Rule]", 
          RowBox[{"Directive", "[", 
           RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}]}], "]"}], "//", 
       "Print"}], ";"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"nlm", " ", "=", " ", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"experiment", ",", 
       RowBox[{"{", 
        RowBox[{"expo", "[", 
         RowBox[{"t", ",", "A1", ",", "T1", ",", "A2", ",", "T2", ",", "y0"}],
          "]"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"A1", ",", "A11"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"T1", ",", "T11"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"A2", ",", "A21"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"T2", ",", "T21"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y0", ",", "y1"}], "}"}]}], "}"}], ",", "t", ",", 
       RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListPlot", "[", 
        RowBox[{"experiment", ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"nlm", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", 
           SuperscriptBox["10", "8"]}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", 
              SuperscriptBox["10", "8"]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics", "[", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{
            RowBox[{"\"\<\!\(\*SuperscriptBox[\(R\), \(2\)]\) = \>\"", "<>", 
             RowBox[{"ToString", "[", 
              RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Max", "[", "experiment", "]"}], "/", "10"}], ",", 
              "0.1"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "18"}], "]"}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics", "@", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", "experiment", "]"}], "/", "10"}], ",", 
            "0.4"}], "}"}], ",", "Left"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotLabel", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"\"\<T = \>\"", "<>", 
            RowBox[{"ToString", "[", 
             RowBox[{
             "Temperature", "\[LeftDoubleBracket]", "i", 
              "\[RightDoubleBracket]"}], "]"}], "<>", "\"\< K\>\""}], "]"}], 
          ",", "Black", ",", "28"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2\[Tau] (ns)\>\"", ",", "Black", ",", " ", "24"}], 
           "]"}], ",", " ", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Echo Intensity (arb. un.)\>\"", ",", "Black", ",", "24"}], 
           "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", "18", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
       RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"data", "\[LeftDoubleBracket]", 
      RowBox[{"i", ",", "2"}], "\[RightDoubleBracket]"}], " ", "=", " ", 
     RowBox[{"T1", "/.", 
      RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"errors", "\[LeftDoubleBracket]", 
      RowBox[{"i", ",", "3"}], "\[RightDoubleBracket]"}], " ", "=", "  ", 
     RowBox[{
      RowBox[{"nlm", "[", 
       StyleBox["\"\<ParameterErrors\>\"",
        FontWeight->"Plain"], 
       StyleBox["]",
        FontWeight->"Plain"]}], "\[LeftDoubleBracket]", "2", 
      "\[RightDoubleBracket]"}]}], ";"}]}], "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7773668140991316`*^9, 3.7773670391643705`*^9}, {
   3.7773670880095816`*^9, 3.7773671171744843`*^9}, {3.7773671626441345`*^9, 
   3.7773671790626163`*^9}, {3.777367229958725*^9, 3.7773672648423977`*^9}, {
   3.7773673407880836`*^9, 3.777367638542963*^9}, {3.7773677845977077`*^9, 
   3.777367794087028*^9}, {3.7773678692231493`*^9, 3.777367926907556*^9}, {
   3.777367985361179*^9, 3.7773679911561575`*^9}, {3.7773680542296295`*^9, 
   3.7773680591823597`*^9}, {3.77736820175932*^9, 3.7773682090973215`*^9}, {
   3.7776147222540903`*^9, 3.7776150333934236`*^9}, {3.7776150711581507`*^9, 
   3.777615092523905*^9}, {3.7776151938635197`*^9, 3.7776152997624006`*^9}, {
   3.777615343211698*^9, 3.777615443014755*^9}, {3.777615547429371*^9, 
   3.77761558813841*^9}, {3.777619576258251*^9, 3.777619692530328*^9}, 
   3.7776197242301517`*^9, {3.777619756085382*^9, 3.777619819804407*^9}, {
   3.7776198620436764`*^9, 3.777619905096871*^9}, {3.7776307041987066`*^9, 
   3.7776307435032187`*^9}, {3.777630778958292*^9, 3.7776308052975993`*^9}, {
   3.7776308463254504`*^9, 3.7776308548317566`*^9}, {3.777630887101179*^9, 
   3.777630920541937*^9}, {3.7776309718490624`*^9, 3.7776309721048813`*^9}, {
   3.7778211229342127`*^9, 3.777821147501272*^9}, {3.7778766718401976`*^9, 
   3.7778768232504325`*^9}, {3.7778769500475225`*^9, 
   3.7778769623996587`*^9}, {3.7778819748444543`*^9, 
   3.7778819887135468`*^9}, {3.777882025405753*^9, 3.77788203179375*^9}, 
   3.777882074174816*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVl3lcjVkYxyuNJSIxZK+JKIPIkqXRT0aWmEL2mmvfyWSZLCNLQqRCKdtN
Ea23Rftyuy23e2+NW4qS9n3Plmhi3nt6/vH+cz/fz3Pee97znOf5/c7R2XZ4
9U4VJe5RVlJiv4pH+Jdp7+8z19pbRS1U4BP7lVj8n7XzX33DGG+2t8GVq54l
iRY9bDFsFxql+95tvtozXsP+IFyNTz+fK4lh3Lj7L6hNs8qNuBtD449jV8dN
R713sYxD0x1g0vA9eUdIMr1/BsG50X0rD6UwjnNzBH/AwLF5XUL6v/NIWzN1
2ecxqYxHLbyI65/Lt23YJqL/v4TPhZfT1t9NY3ymxRmliRbjeA4ZNN8VXFS/
M3WApIfL7rrA6IxjjfUSMc1/HTGXgiRv7XsYy28g3KUqpTUpi77HDcLwG5Zq
RyUKdrQ67Y5zBrZVJrFZ9H0eSBQN1At2k7H4+TU3UdZPkQAZfe8tzIjI3xDw
piceaXAbvWw8N18KyKbv94RAOMfIdHUOi1cre0HzxhXZdMN/aT1eyB/y0OTT
EsaOPxfdwahQPfsXNi9ofd64cMH542/pjB2XCHzgceCnM99C5bTeu3ih9dqo
j3tP/ITzPWxz13W7rZlL67+PvltkYV862XjHp7YP4POToiByKR8PUdT7ekRh
BmNh80g+Bp/as95LL4/yw0evrb2e9DdjbOrU2xexVuvXuZTlUb58kbxh18J+
exgLx7z3xfyC0uVSvzzK3yNYDazw+xD1kr0fXfIIBffDTohW5FM+/fBnaMNi
sTJj4SqJH0xaDvRrXJpP+fWHib3Gl+kRjE3rovwR33ZZ9UNLPuX7MX77Elnv
MKqAvX+W/xgeE7vLvIILKP9P8JBlhLGp1rUnWBusuXpzWgHtRwBMBy8K8Ba+
Yu8LTgRAqnP66IPjr2h/AqB8VWNejipj02Xbn0JldFffx6avab+eYt3yxUpp
uYyFFaueYUejha/n2ELav2dgf9/B4qYn5wVi/4nvDls0Cmk/A2F/1XrRvv2M
hZp6QTil+8fXlGlFtL9BaL92hEsBY9OgwcE4P/uxKOdqEe13MFYXjKsd7cRY
aNYdjGlD/QIXZhfR/odgt0rxn9FpPe+/rQ/BqA9TNWbz3lA9hKJp+ErdnDTG
wqP5odh8kndGZXQx1UcYDuv83WftOxY3VReGwXxjc2VnWDHViwA+yh6N/75m
XJ5nLcA/5uPvHA4opvoRQMXqj9Md+Yy1H8oEyDt28MZ147dUT+EwSh5lPCeE
MW8/whEW1b5GcPYt1Vc46mcOKfwWUaJg/pyYcKTwTLmWKaF6C4dqmyPXsYzL
e02JwA0n27pAlVKqvwgsqhZnrd7O4tryRxEY+ajs5kKXUqrHCOxKyhP9kcqY
d08rEl7+Xa5LDcuoPiOhM03RcSzO3+MaCeEB50i/I6VUr5F4GMMags0/UzUK
T6QB43bUllH9RmHUTOm24WLG2sono6Brrj15wi/lVM8cq73/RbKOMS+nLQoh
Jd11R1BO9f0cewp45w7vYsz33vkcBmOWNr0KL6d6f45hxw23Or1lXL6z+Dn4
l/ZNvepRTvUfDemYQQYjihlrz7CKRmHScFnzxArqh2j8s8K98uMixrxvmdEY
X6T29T+bCuqPGMwwfBBZPYAxX7ogBkc+dk9Sv1VB/RIDX+sLPyV7My73jIhB
nkLuH1ZQ/8TAyGHIXXkgY+3tk2JRJLENPP21gvopFtvv7zs8oaZn/mkPYkl/
Kqm/YklfGPO7hsShvk1t/h1BJfVbHDJqtLRebGRcLr7yQ5zrvzh0b/yYeD2e
sfat73Fw5K98ZhdZSf0YD+cpSlxLMebxjsVD0T1z1aqoP+OhzW3musGM+b82
xSN8+dKD6uurqF8TcKPXpEX1MxmXd/ISMIIJbBX1bwJmDf99mXEcY+2MVwkQ
NlpyilhF/ZyIGxb39fPzGPPcLRLRcO5TP7vmKurvRGyw3XnUprhnfhtRIr41
lbrs7Kiifk/EecVw3Wo2v75xEvwdNvgdHFxN/Z+EjQFvNi9zYKzdEZKE1SVf
Tk5MrCY9SEL83pqhQRcZ80S6yejtVGiWEF9N+pBMesuY7+qdDP3szkPlb6tJ
L5KhUMto1Ro2/6ZBKai+pEhoDelHCqImPNXNNWSsPdGJiy/7/nnC/hrSkxR4
R4XF2jxgzPvwNQXK4t8W6ctrSF+E4KvOvCJOZyz/01iI93qzuZKrIb0R4oxZ
zMrG/rUKbv/dXogl1mfv2A+tJf0RQnll5fQjcxlr/BoqhIt2a8eI8bWkR0JI
FeUIxoaaDUI4jShTv3e3lvQpFX3v7+IUlLFlp24qus4rc4pWS3qVislswYzt
Sm1T4SPs8GqxqyX9SkVtcUNm9xPGbuneqfB9acHrktWSnqWinDMr3TV1ChYE
5nPvL/FxnvWmlvQtFfCq8azQZ3G52yAR0vkaXIfUkd6J8Gi0yLxuL+P248tF
KMqRfVT2rCP94+IKuXvAWMPGSYRxWwassHhTR3oowq2Mqa7f4xkbmglFaP16
6dDd/DrSRxFsXndwJzDGlvpdIrh2rVRIFOllGpy50cMH1LP1D5qdBrNmXxsb
n3rSzzS8KdLMd9/D2O2TXRpsbXyy5L/Wk56mIdZasSLGguKgNHjeMt9pJKon
fU0DB5fPJzKWp9am4fOI8cPmqjSQ3qajYYHiwMDi7QE66eSfDaS/6Qi6mP/K
bhZjDdct6Xgc/+HTqr8bSI/T4Tmyae2pyYwNj3r9MJ7T53S8rdkYqTOfseWm
vHRcuaR/c054A+l1Ory28xbsljC2M1XPwIN2zZ+nJDSQfmfgyrKuq8U1jN30
lmYgVXEcLGkgPc8Ak9/pjWz9Ay5k4MXr+RUTDBpJ3zPAHcaHBgxnLH+flIFR
hjZaHpMbSe8zoJSyI2SsN+P2ws4MbOXcwtG/kfQ/Ewbc1/YLYayRYpQJuXZ4
1uCsRvKDTGxdDNvxRYwNHx/ixo8o5lsNayJ/yITHnjszHIYwtnR5lomVXPUe
N24iv8iES7EiQYztjlRn4quJ4kDWRP4hxt6Re8e+2sPYbf04MWa0qXAnyiby
EzE8Wuf/knqascBkkxgKtzxb0kT+IkZL7c6vSjLGct3bYnCXD6+GXs3kN2I6
n7N4ez+5GNzZbkdrXBP5jxjXAr8Z1k1i4zXa1bKQtDTi549fmsiPspC+uW+p
sjWLG776PQs7xvkOrY9oJn/KwtwMA53nsxhbJjpmIVr12PiRT5rJr7Iw1p2X
fP8QY7tHCVm4/sFe62VmM/lXFgTcaXdtFGO3yx1ZKBq427zqv2byMwkm+Edz
NxTGgkPTJVDj1PyWSgv5mwTOinLrx1i+9oAE82+ZddYvaCG/k6C72GCb5WXG
7fMCJJhysnSJzcYW8j8JVPeWzBt2krGGTqUE/eO29nfkt5AfSsBdpm7nHmNs
2GeMFNzHJ/a/2EL+KMX9bbfd3oxsZetvWS+Ff5v5Xv6AVvJLKZb1GARb/0uP
H5jzTymCFHZqxMa7xeVIYe8qutbWu5X8VApL80dbpdVsvOBhXxk2bOrUL1zY
Sv4qQ8qz5wnfFzCWO5nJMMv7FCdRreS3Mri5P86cV8C4ff8/MijMQkurjfxX
hmkvfNSLJCyusTpOBoVbDylsJT+WoWruin81uhkbGn+UgTPb7boD28ifs2Fy
2C80eBhjy7HTslGwZeiEiupW8utsnJ+nqb5Gj8XtVPdl0/2tjfw7m+6/jN0a
/bOhWN0quzby8x/GC+Rl2dC9uMroXEsb+Xs29FcpTvSM5dEjc9BHcV1710Z+
nwMl9rSz9d+zzkFuYKpKWXb5wv8BMed2HA==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVjns01AkUx4fabbataApDT1ImQ02b5JGuW1nOOt7E7km7GJsJO+W1aGM0
lBDjOWpES9ELx3S2GZMwhpmJ329lEWWzbfZMdSo5ZkhZ2dk/7rnnc873e+/H
MpIbGG1IoVB89PP/NmmrOiMMorgLvpGsC78ngRxtbtW09qm7v3ar2d52CdBe
2fq2aN+6+x/uXrFaLoHHE/P1Au2Cu+CUQNOtlMC+CHYQT7sSpwqOBdv9IYHJ
msrtqdoNyGKuM//4UgKeHeK1SVp7nDr0+utiUylof4flCVo3fLhG6dh0Ugqb
DwX2vNrjh4Jx4eE3jq2w6dXc56E7Q1Eg6ze4O9kKRffTtty4fBT9ee/UubUy
CDlk/FB0OApZV4pEX0XfA5zNmDpnfgz9rRcyMyzagF9HQZp9LBobnY4oGm+D
lJFLF8rsuWi8UmxdV30fJpiM8ctJJ5H1qOwfbkA73OUUXOhMT0T/J5wfX9M6
QOrzqTH5aDKyNu4SMVUdQEv+hah3+hkZnRwjhWsnmFksXWLjmoZeXdav94k6
wTv64k3ndadw1EXJtNZ1gu0Op+OiLafR66IJ0y9YDhEuEzZpVpnI+MQ5mC2W
A3vW51ZSJg/VIWULu5Z3QfyqZt+hrCyMaSQL6ZwuKPxQYbuQcAbnMj/nnZZ3
QXYdv8QnlY9h5Hg6zVIB27gpH8ZSs5Eha/S7m6GAZyunKnfH5CDV27BlYlgB
3NifusWxZ9FJd8PD0aEbTKsSGfPh59Brf896ekE3cCYz8rO8c5EuX3Re+7wb
ihcL03f6nMcYNo/KhB4YmNhaW++Wh3P8pvGx8h7QnJWHeBzIR/XmWkW1tgca
vKOoVgcKkKHZrkv1UwJvIl+rYl1A+qjMcu6qEna4tB4v312Iudfi2jIMVKCL
irew21qEuQzibXOoCsQjpWzKFwJkLAuuXnJbBcNHtFkZ5wWojraKD16mhmzv
CtcIg2L0ohVEfndEDdUXXe+F8otRvaBYCJaq4WCA9Yj432JkzKQELF/1ADrM
BdO3E0vw+rhltSbiAVzDT4MyXQlS++ICGtsegNlgc4B9fClWzkTtd17dCzpF
VPmdd6XIOJG4rSGuFxp6Lo2OcsswN2THZmdlL2hYJtLIF2VIHytdIjLvg6L5
4nAKpxyljq7ZQ4l90L0zsMbweTmq00n2hKoP+pPKn9WFVaDUcPigpQUBHuZj
L8IeVyDV743YLpEATxt2fkKAEOmfre03UxKQ/s5kIC9IiIzbYU3nVQQ0SVSm
dSFCDEsKyJtXE2Dqxawd/FaIXme/d/qrjwBNzLTUIVKI0jOTcfUDBOTc5Glm
E4R4PWF8r8NTAhT2l/FUmb5PuoT46AiYnfE9V1qhv29L62ufIcC2nULeqtTn
K6vdWO8JKPFlh/1ZJcRK9SP6mo8ERHKZXLdr+n+ePQ2jiwQYtLRWLf4mRGrg
rzZRX5LgkBb73EyqZz8yZmgFCTG4gcGSCfHlcFO9xyoSHg7w7vzQLkSnmhI6
YzUJV6Y9e+VKIaZOPx16Y0rCkOyD0RO1no0l8+F0Eqj8WyHTvXpfncemfnMS
Tqwx+tuqX4hzzJwjLetJuDrWuc11QO9buCfFaiMJo3UJcUGDer9hUUHpJhJW
xFmLY4f1/WXSmqWWJIDDo/f8ET3b5TUnW5HwH+D4U7o=
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = 0.9979\"\>", \
{9.843*^7, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", "2.2492520879960627`", "461671.0623121337`", 
         "4.87197979602922`*^-6", "0.9999961183689422`"},
        {"T1", "9.858558037235876`*^8", "1.0625090954515187`*^7", 
         "92.78563430128973`", "2.903427378433496`*^-196"},
        {"A2", 
         RowBox[{"-", "3.6478804909259863`"}], "461671.06085197214`", 
         RowBox[{"-", "7.901470982812205`*^-6"}], "0.9999936996122536`"},
        {"T2", "9.858558703182034`*^8", "1.723197422404424`*^7", 
         "57.21084871068412`", "5.276844144557891`*^-146"},
        {"y0", "1.4913310932744108`", "0.052095102779383846`", 
         "28.62708803147983`", "5.064909340725983`*^-81"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {9.843*^7, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 8 K\"", TextForm]], "InlineText"], 
      Text["T = 8 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 9.843*^8}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.777882121728243*^9, 3.7778823135295315`*^9, 
  3.777882400053516*^9, 3.7778825234543495`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxNlmlUVFcWhY0KtkMixgFM2wZtTXBAMQKK3fLYmijaSQuiMY6QFtRljOAU
5zjPIogEJ0QEBAWUYp6hgKKqoAotUVRGi6lQZBKVVtE27506P7rWYrG+dd99
55579973jfqP90Kvnj169EgS/6T/9JNvdpq0ZpfTq4TXuRKu7l4EB9mhNuGr
BmKLbk9cfPbJPc1XdcQRO7yxOrLPt5Mv63l8K/rHp72foHpCXOOwCyGvk7tc
k6r4+X14vOXCwYUHK4mTlx/EFJPrvR9dL+f5h7Fz5rFxVmMfE+++dAxXlr7J
1Hk+4vedRH1n3AjhRRkxyk+jqbsrbXVlGb/fD9Z/3B5euvaBxPt7DTiLY8uL
jv33aCnXC0Bs7Y+dtdn3aHxNzDnoPqgOn/yg4/qB6Dq0uH2rLfH+ovlB8A0+
dXGkWQmv5zwqPi+YY7dNQ+MTmy+g2f5JqupvGl7fJSz8odrQ3aWmcb8Tl1H2
a4633z+UvN5gWJ1eu/fWXgWNd1qF4PLxieKK83n9V6E56Wk2ZkSexPLxnqGg
dhqyuJ9rcEt9mzOzLU1ip6rEa9x/MvcXhsm25dVJy5Jovm+vcCi/H3h8lX08
9xuO1n+mF5/0lNF8wS0C3cu6rZYpo7n/CKzeuqa2fVY4ze8Iu47DWSEFQwID
eD8ieb4/zQ/rjES6eNoL9mzi/Yni9SwWpPlus25gx4wvQpUHfAXjft3A/eBO
5187/CV2Mgm4Cfuq+Y5Z0yIE4/5F45Qmd/N7RRTNT6mNxrhlyi82jo0TjPsZ
g9/rTvW4s+oWzV83JRaD5OUxg98kCcb9jUXAlin3e4Wl0vzhB24hstRu9rvT
WYJxv29DLr7d/BNiJ43uNlZecht589Mcwbj/cWiPLAvTLpdL7OFoJsNDnwlv
O2qIxfOQIWrjy727q/IktjRPk3F9hWA8n3i0hq8b/ktaocT6dvd4aF4Mdu/t
oxSM5xWPUOspGxa5qSQOVfdJwJy1w/43ybZIMJ5fAurGuO77fZ6G6l+LS8C1
QH2GbZRWMJ5nIiKk1/9BbLlrSSJc5vuILdwRjOebiAV6tyM/rSDWL/yYiLej
9ycu+VonGM87CQZ3B3ELiUMnRCUh22SLeOT3BOP5J6HI0nl63Rhij94LkhHu
JTmGWNRDMo77PxIdXEr1q7uSsdb56llxywWjPlLgGv9l7K4oYn1ySAqEn17/
e26vB4JRLylYIMJ0GY2HnpmTivFkOBoX9ZOKzti4ZL+wMqq/ti2V97OM9ZQG
ksuQh1TfKSgNOddsxIh5yPpKw/b7610N1o+pvoVjOkLOmN7Y5PGI9ZaO3VXx
rf0saDz0RWM6yC6B5ay/DJhlbxidsKiC6hf7ZmDwivOGwLkVrMcMDFEm5jx0
JLYMt8vEgKSxR33XV7A+M0Gv21lJ9XdXZyJ8av995peqWK9ZkNJBNAjVX3Qk
C4E7+xuUT6tYv1kI/vHUN955xB7W1tnwooaqWc/ZkLpXJtZQfdOybEy68Fex
xBPWdw4mTvpY/GIwsb5mTw6kt2vzn7Dec7A9ZIXXd9/oqX7qmFy8ad2kSpmg
Z/3nQhTXnh3exB7+2lzU/BDz3cVUPftBDpd6+WcZH4n9bWfIkT9b/dzh+1r2
hxwO5lNnWu4i7rA8I4fj4uOFje617Bc5bg3zqjmYTuzyaZ0cEXfV6Ree1bJ/
8jBy1qq7P/erk1j21i4P5/c1vjkxuY79lAcT2nBiM8OJPLxuOp/0sqGO/ZUH
z5tbS/wd6yX2Ka3Ow4bMnqYVn9ez3/Kx4eir4Q7mxLqcKfl4fCNSdHQ9+y8f
D/vuiTY7RWwTcyQfZQ+kAK9nP+bjijyqX3xaA/V/vjwf0ZV7nozc3sD+LPh/
7jhkXQC6Phc1sF8LMCquycbkOrGLz4ECDCPDNbB/CxD47Ye3Y1uJZSvKCkDL
ndrIfi4AqcOC2GzeOAW2SHEW3Mj+VvD9SOxjt1cBb7pwGtnvCpTeORcT62yg
/kfdU4Di9UsD+18Bkn8Gsc1nYwtx9510QRg4DwphK8m5hdj/3Y5C2G273F5Z
b+B8KES4drnNtDlN1L9BW4ggUU1Wp5s4LwrRu+/c4DHNxC73LZWc902cH0qY
kGCIZblblfASb8NNAU85T5T8fUBsFqtW4vkVyeBPOV+U8KwcaqMLIva5MEKF
MtOB4pY/5bxRwdVC6ohYd9hHhdnnqkWFP+P8UcH6/cp1CZnENpsUKkwIgL+P
4hnnkQpkn780U/8rLdQY/a/rvxx99YzzSY2e03dv63mVxjvmbVAjOHvGgQVD
mzmv1Ojzm/TFQexiL1djC124zZxfavw2TXIIsWz0kCK0hHb79R36nPOsCLog
C/vom8RmA9cV4ZHjyaD4o88534r4fmuh/rszi2A/aOn4lVNbOO+KgPxBX594
R8/rmgYW8/dCC+dfMayWLD074CCxzYPVxfz90cJ5WIxQd0lBxP7y1GIEVOhH
Nbxu4XwsxhDxtutqJu6I7a+BnxS/fVo5LzWQ1LNxGbHLRXcNGlZoX+1/2sr5
qcH6ZKuXw7TEsiOJGohmEi3cxnmqAV0fh4jNNvfRsj7bOF+1cKAPBGKfVcu1
uOVsKrbcznmrRbyr9IFG47r5cVqk+IWJN1wb568WF12kC4yet5nWqwSmxgPi
PC7BiZ/DL2WUEPv/fUkJetCvQ/gTCt2pNA==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdlnk0FIoXx8dS0YIWhFAqFNJDZam4KEWyMyIxjJ3B8EQlHkX2fYRKSH7F
q5Qt1ZU2NGrsy4zB8CxFNGpSefWb3++ec8893/O953O/f95tJIotWZBAIFTx
+3/TM3xZRE/KEAj/rwVMkj2qtPTDEPL7+/x6m+dRTFtZ3lAAQPagoEKTzjyW
xajveyViAty/xdoid31CqWMaS7XHTaBPr83cQPQTJq3f01SRbALPTo3cNZyZ
w+ByTUhaawqkCItvInfmULddy9JC4ggUGi+5ZuyZww5JPXKntBn8miyWWTae
RaMRPdUWohmsdsk5nqU8izWV+h9rrpqBuYbzhTOrZ7HA4GBortwxGHqyZsut
ro9I8jC84KR4HHgJ54pbyR+RV3Ukb1jZAo5ycUgs/wNuNbV9NbPPClqmQkn1
cjNIbAnvSw2zglPCKc8lVs1glhFtSvOeFdhWeKRkcqcxTuGTsMEma1i9Kl1X
sH0aubLaKnFp1sDOvi5SET2NPRufBqyLtYH8vLTmB5wpLFjR+WUn2Q5KZd7G
raRP4iNT0oXIeDt47WN5prJpEhnxiyvabtqBUk95oO/dSRQVlJIOZNtBxR4j
TeOUSYz+dUqvxskeYgaJ0o4nJtH128SFw+YOoOz669O77n9QcWZppZOmE+hP
PXqex5vAkFl/KwlLJ/jQsutY38wEtsyzaG3+TkBK/FqkMTyB3rxm1YMVTqA8
u56w9eUEVgtdMd8mT4SjgWFy4jkTaKAgk/5xtTMolX6p5OpMoJOdnmTs5ClQ
mtXqfJY4jpWOd0/rCbsAu1b/asqFcfzhLF/B3eYC5iafPfyp43jdXeAA+bQL
KCStDD59Zhz/CWojmve4gC37S7uk7jhSk5yLN7W4gne3sc7DWQ5mPI3a/p9r
bsB5O/G2zYODT4iBp6eeugFp2i9pmsjB6UU32k62G3CD5n5KW3PQaLfpmlKF
M/A38fbFysMc5OaLLRbeOAPcEnGr1C0cVGuw8Xht7Q5uBva5xswxTM+a3Ntg
6wFsZQeZHM8x3DEyYtlP8oCT2zPSUlzH8LH6oD8vzAPaTU9+znQYw6k3b8t1
cjxgZfaUfIvZGBr9ur/5QbcHJLuL7WtSH0Ou/znCHXsSOJJqbblLo+hgKsEo
cvQEU5t83XdXR3HL76zY22RPmNA4VpSbO4oTjRv/eBjuCVLbfes9M0YxXFM6
uz3bE4ZU0gflLo1itqyC/fd3nhBMLfj5OWQUGQtqA45mXnBYupauYj6KFtfM
RtfrkqHg22pna8FR3EBsy5Q3I4OXdcWC4vIIDm2wgF2OZAipEJ+tWhxB/6ST
pUbhZDCSmL4/zxnBJKqDF+U+GcrvjN+UbBnB18c9p+mq3vCkkKrX8dcIAi9m
IVHGBxiPtS4cWTeCvOVmmb5dPvCEKGXVsGIEq4SETHbo+8DSCfHuA7/YKLU+
Ma/5lA9stbmd5DrPxg9qGfrfi3yAnvpjUK+LjdkeNxL8FXzhkZ7ZoT2FbOTQ
cbPldj/wdV8T46zFRlq3gHGRth+YKppVaauz8cSQScCMCV9/FLotrczGuqk3
Ty95+cHetBMPlmXYmCzIID275QcTAofndAXZqKU7WqWp6g+BNmaqfj3DGF9G
gA0aAVBCTGjcdXEYbddqm286FMD3PzH3Rg+jUgTZTsqSr2H5mGHEMLYcbSfL
BgWAu/em1tCAYRT8kJOsVB0AuiWqL9WIwxi7V6VHSyMQGNeSSVNaw3j+qaWP
nUYQ3Jfc4bh1joUnlGNDHA4FwfLIJ0feNAu3ZNREOVny9ezN350TLGxyl051
CQqCkkUJuUIWC38Ijd33rA4C1U5Lw0A6C6PMw39QNYIhacP7+2LVLPyzvzAt
V4MC9oeOHxAOY2FktcPu+IMUKGn1968PZuHZeIk3oRYUGFWKoAQHsPCc5mWC
lR8FNrfEdE15sTA2MZQqeosCXn9+3beKyMJXcuXqhmIhsDnY3p97mIXv30Zv
eHQpBKYpjiMnxFnI2D/grpYWAl4eQvZBa/n65r57pbkhELuYQ88UZWFX5IJF
VlkItNbcqxkVYmHPdu9Lwc9DwKjGoa5siYmD52yWVP8NgYMzjwYfcJg4rqbK
vhYeCjqVlentDUwcevKPb935UChfqC1YXcfELsuyxXcJoUBvmgy2fMjEZoqC
KCEvFKyNZnyZ1Uy8/nCTDqk2FGZzo3jSZUwkGggkK/NCQbdoT61YOhPp5kP7
7kWGQQNbkfOOzMQ6v9S05mgqFC9/lCqSY+LRP8RIVn9RgXBtRjtNhol9Sxn7
2VeowEj2fhMrzUReYs7IzwIqnBVvPRq4kYn7Kwr/OFBPhcq22lP2a/g8TmVv
9SIVchWSErx/DmG9yyv5osBwKHCbOxHHGsIGy1/VEW4R4Fvv1behdAg3RJyn
V+hGwvKtDo1ovSGUlhUWUjGIAncGYUK6axAtyFfv6MmdA/exmNCUyEHcvUfX
v2j7BTD1cDhClhlED/1xlSili1Bs2tR1CQfQi2d5N/xiLFS6iNapBw1gkNi9
kz1xcVBpL68+t2kA07/n7/437C84v/vyQeMX/ZhQFp9teTYekg6a9toG9KMy
5c/vzLMJULDWNzNIsh9H1y0UaPtegtaKGcr1V31ICQh+WRNwGaZPPUwgU/pQ
qpiq+vN0IrieL1dVVexDv08xKXEWSZDq+iSqkdGLWb/TozUtr0BgXWIH51wv
do7vLK04lAyM53VGn9V7cfLyc4cjximwtUtQo6S/B29beIooGadCMddJYUtC
D8aOpyy+2ZsGVc0BJUH7e3CPfqN/nnY6HNNeQQ3gdOMXzyBZ9Z0Z8DIyuuBA
bjfW9Od4EUQzYYdCpGqLWTf2ui7GxVzJhPBtj3RWfO3CBIt8Aw+BLGj+tyRG
tLILr181aHKKzwLryBfeDPsuNLHZ0V+znAVPVA48slnVhSiTya2iZoO7mFJj
SlMn3oJf3Y+/ZANxVLww168Tpbvv2WgE5QD99pyEhXwnfnnhmfdwPgeE3d5F
DLUz8ParwoEBSi4U2CpN74xm4OReyQbSVC4MCJ/krtdkYMbPrNMEvzxoNceU
103v8aWm7Q1BTh5sDsXN13a8x/fheaNlxHxoruepdWa+wyMyzCniYD6IFCs+
nVroQDMVr5QwGxqUdNYayrh2YPS8ZGeyHQ3OzoTXxDl34N/1b6TKHGiwWVlW
44NjB/9/UivtdqZBZbWUfpNNB076cht0SDQIseutOW3WgZfuxE7ywvi8D3aK
5Vod+ELjGpzLpUEsq3p8v2gH8r6eTMzJp8GxeUG7kpUduPsZoeNuAQ1Edhq0
iwp3YPZJLyKrmM+7as9g/aIjiaJGOXSLn0d4l0H8FzoKPGgs/l3L91nGKZ0j
dNSJCuBIN9BgK/PZWYNhOvqCvOrex3z++S3Bt4boyOiMfej+jAaEo+dDonrp
WMI1a3/+mgYDjm+7t72lY8/j7+JDrfz7bTaE1FY6isTfdeC28/PLN+rwXtEx
ZKP4mNJ7Gkyv213b3kzHcmazskEnDQqitAX2PaPjQFlYoF03DTJ95B1uNNFx
beCOmoBe/j5O3RdtpKOhTt+3+H4aJPlnbwqvo+N/Aaz2eZA=
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.99883\"\>", {9.845*^7, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.9421253794343707`"}], "0.021116825285616547`", 
         RowBox[{"-", "91.97051891873275`"}], "4.298695036845566`*^-150"},
        {"T1", "7.380711590969075`*^8", "1.7337134012755055`*^7", 
         "42.571693715576245`", "2.9269823272858285`*^-94"},
        {"A2", 
         RowBox[{"-", "0.8771370905515482`"}], "0.020821695455266985`", 
         RowBox[{"-", "42.12611275753102`"}], "1.5681776045053551`*^-93"},
        {"T2", "4.1198606533590853`*^6", "256390.8149354421`", 
         "16.06867490318031`", "2.7919364515690392`*^-36"},
        {"y0", "1.4717194520398424`", "0.024527175507144304`", 
         "60.0036254321725`", "1.1781586240948999`*^-118"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {9.845*^7, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 10 K\"", TextForm]], "InlineText"], 
      Text["T = 10 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 9.845*^8}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.777882121728243*^9, 3.7778823135295315`*^9, 
  3.777882400053516*^9, 3.777882523874104*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVlnlUk1caxlmkSkcrUBXGYgHBEaUqqLhWwiMjFu0oitYFFRQQtU5ZjhtC
R1EopRYJooC4sRZQVgEB2RJC2BKURSiIoUH2fdFqkUGbvLl/tDlwcn7n3jf3
3vc+z/N9BkfcdrqoKCkpZcn+5d/04XlaGlbfnGVSN1AsR6eJXVim5ar0Zn4b
sc6EMy5JUt4aNkmI4865YSxeU2+hw3M2fgqF/mbLxfZNxK1rz+Pk7rYngm8a
2PwLyP9yVJAoqifOtr+EtTq108Mv17J6PxiPJ6X4XHtK7B0ZAA2x+pFJnpj9
3k/4PDrQu1mzihjNPyPyaNvbu8fL2O8HQ7Q/Y2tislDOF1Wnh2Clntdsy1d8
tt41uHxqc9xmFfHFow9C0RdmZp/wXR5b/zok9njfUJhN45VbwpCirOz669x0
tp9wTIbzZzRcSKLxL/oicD0KMRvVI9n+IsH9hC+c6OHSeHDgLQx6Kf/QcPcs
R7Hf2/D8zNdIPydEzhfHjO9iyZhyfP38YI5i//cwsc33XsZwnJx5i52jUNAf
fZqfn8pRnCcamivafGaYZcrZ8kVmNFJcPe6Lzz/iKM4Xg099DPpN+TlUH6Qa
i5zikBduE/kcxXlj0Tt37dbAVD7Vc+zicPT3jIID3xRzFOePg9RCc9GUIQHV
j8TEo3CnF7fWRMhR9OMX1h9iy5ixXxB3xebHzY8rOIr+JMDmtnLTldJKqrfb
mAjrPLOUg9dFHEW/EuFbdzxkpnE11atdS0Jgm83uYJ0nHEX/7sPyVcge5ZVP
qf5R232Uf7TkrPvJGo6inw+wYpZ5molVLdUfM0tGxDy5IGpZf5PRahx4oCWo
jur/6ZuCj5dt0osZqWP9TsUJzj6VW2/qqV5Uk4qzm0MKPc4+Y/1PQ8jXhdUf
VxI7WmikA/uPe2rGNbD7SGd6a5SzvnZuOgJcdmzy2NvI7icD7mdIMXKWDjtk
wPvYwZHUgEZ2XxnYf+0/RvELmuUcVTH1IUJvTK5fuq+Z3d9DCK9rvtn6NbFj
dNpDIMhg1vRnTew+M8HJvrF9zK6F1j+/JxPncje5ege0sPvNhH6O5lcqnsTS
nR8ysa1C00Pi94LddxZGSvD6j6XEUSYJWfiyTmhUaihh95+FRbXmnmFaxI5T
tmejq6XhW4ciCdNDNpL6NAWh91tpfcmbbMR2nXYxPtHK9PEIPiqDyXkLpbR+
9t1HuPlBXXJ1/Deml0doV2l/ungpjUddtc6BmfroV9qhUqafHOhNOxzW60vs
6DqUg1CN4FNm6m1MT7kI0zpo6LqIWN8yLBdTtIdjrdzbmL5ycWmulbFOIrFU
xyIPP80+/iRubxvTWx7StQNXKHkTR4125uGakY3s7yXT32MoLWrRUuYSO1YF
PUbiwoRXAedfMj0+xrJ/GXzee4RYP9Y8H1bLf19lYtTO9JkPUzMXv0ktYqm3
JB82q0Kuhzm3M70WoHCF9/Sq9cRRu/wL0LgmQdcpqJ3ptwAha1RlWyR2XLKk
8K8s03MhbNfJE4NY/6OGQmxFw7v7szqYvosQarV5zhdriaWtPkWguAvpYHov
wpC1Tcfz74ijcoyKYbl9wfTJVx1M/8UwtXWapqbaSetzxcUsvzuZH3gYs7Mf
N+IQc1eu42Fwv6rKk9RO5g8e/n1gtcHmUuIR/as86O3XlkVYJ/MLDzOcRW51
ll1ytp3xkoedzm4v5m3qYv7hw8/pctj6NcTp4+Z85p8u5ic+Fn8rXBr9kFij
K5APh5MJ4a+FXcxffKR6Zmu0Le6Ws3ud5G8s81sJItz2pH0/TvNrisxK8Pyc
R31CUDfzXwlMzqjfyD5CbPrAvwS6FBDdzI8l4F447aY2TswNby7BoYuHs7vV
epg/BZDfvp018cjlJQJo+ofHzNzRw/wqAD2+Iolt3X0F2HDFzqUxs4f5V4At
sjSN8CNOP9AggO3P7dpThD3MzwLIzHSvZpBYw2ZRKXTDNs0WHu5l/i6Fceja
EwHLid3Nvy/F00hvmSN7md9LMRpZnauVRlxjUFuKqDvmb6c872X+L2XP1z46
/ycLhH9lWR4IcYEMQcx9d04Iav+ZPpYPQsjdOGpBPNIlFkIRh30sL4QoyYBo
nm4/nb9evwyv03f7r5/Zz/KjDPKwVBum+enFp8rQn73st9RD/SxPytCTedjU
y4JYI7miDB5ZSeoam/tZvpThzmMXcWMSsXuEbjlS8hbWPInsZ3lTjnUFG/be
EhDX+LmXI65IefHGvn6WP+XwEgRWB68eoPN7lJbjA1/1jxG9AZZH5ficF/BB
qkzMPahTAVnz9+3aMcDyqQIVleHWPreJR2xOVkAkcpE9YQdYXlXgWdmVWxb/
JbZdxavAZJVX2tO0AZZfFdCuiS8+pjxI558/qxLN9XfSf9wwyPKsErLJt9++
o/kaM49V4tavN6ITvQZZvlXiSpO8gNh9Ir8SvZLYuTdaB1neVWLai4Xz/XnE
Nd0zq2DVePjSMudBln9V+EyS8+xhLbHpM6cqmElnr5qjOsTysAq7pK4D69WI
ubycKszpcJC9EgyxfKyCq/zxOId4JPkfInR0bDW02DbE8lIEcZ+TV14yse1N
BxE6h4MDd74fYvkpQmv/K5PuQuJ0/0wR9tIL1BDL07/N1/CcKsbcUQ/ZK+gw
y1cxoob7dae+o3H3Q/ZiRMjUed5mmOWtGPH/nzTbUUVcsyVNDKO3Le+tPYdZ
/oqxbaJSqymL2HS1ajWU6DPC8rgaie9F0h/6aJxruKcauZNBHf9rGeb8CcTx
kZs=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVj3s01AkUxye1zjS75NjQSw9DRIpU2zZLc8WyWdZjRccmMfKYpLyKipEo
RhiMkejh0fxm0gOlEblTyGMrYykjttSUx1TMGnmcyu5v/7jnnu+53/v5nu+a
wEjPYA0KheJKzv9br6H4lMCLwpS+p2hLlEpMVZ8tnlD/zZy0etG24ZUSdUfN
3arUH5lSmfPFym4l9ik+X81Rf2WG7rNMu9+gxJ/2s7w4ai3IYtS02mQrcexS
4bpjakOYPCChHtqiRCesXhyjtgRnjWn5bNooqp/uoEWpbWFr7arpBNsRXO3g
2TK65TfgtPmHpza9w1WjM5o+G31gTGYWPNCuwOz78XRRiT9I28tz/Ve+QW8H
HdmF3UEw84tqjXn2IMJUourM0hAwUwZkpl94iSllFNC1ZAPLjld0gzmAcb1F
5/ItI2F9iNnhIuYLVFiYvSyJOQLyw8Sm1xflWBuWeU6aEA1LOsYWT+n0osR1
7nqsfyz06E4vMm1/hrqxJx5f3XYUZP4jGCTuQYNlC+abMuLB17mSR83vRpfg
8+Iflx+HwtV6pX7iv9B8w7bwC/STMJD50ovS0oX7tytM442S4Ivdrk0/z8iQ
NeV6LSaJAzlLpo3RWYYR2jfdepKTQSeeZrfWuhOzZgvMv0adAqZNzaf3c0/w
dFlKruuxFBhhuKycan2MayPjZvuPnQaVhbl+OvEnDmqpCm1CU4EitNYYF3Vg
JPtQczU7DUYmpXpHSttRvzja7PPeM8BpUdUl1rZh2FgiN9nlLLhrvvWz721F
3r9ZCRtd00Gq6fhc/uERdilMSq/aZkAbl71n35JHOJT2wNvRngszOm/zZn9o
QaFLENXIPhPaqOumZQHNyFFw1a1W54D6ZD7LsLgJN2yvC+fbZAFx5AS9oOMh
TgZFLFtvkg06WVvjDGkPsbo3j0VZmAPb6nZ+me/+AJ/9oU5OTM8B928Hj1ec
leJplwLG/nk8UJ0kKLlXEC+eZ9T7pPAggBuRb2LQiDs9jHurv/CAqR1nxBY3
IC7NmaiMzgXmgQmFwqkeK2Cu+95kLrjT1RpHO+rQoPumh2VEHlj9usLeOkyC
k01B/JrxPJCWDpYt/1iLwpYiuTwyH6QiySVuwh0cstKTBA7ng87v3nQt+m3M
/szbSwnjA/PGWFnfrWps3uh5SeMNH1ZXraix21OFnTH8wTLfApAlad62od1C
x6X9w759BXDZ813jLriOTqYsbpSHAC7flZvrlooxYVyvK8NLAJQ2agmrQIw3
7rbql3mT9wUWHnczxKjvbFHavUcATD+TpL3RYhwKnZBsDiS1vvY/lQ5iTBVz
hqaiBDCYV2HiOyzCJssSOJ5P/ouERa/Wi3Dqk9uZvAIBcFTXGdvXiNC8kfLk
WqEAAsbFhnw9Eea6sXwHikneZHi5yxyBgZEWkbYVApButW6o7yRwXlVd8b93
SJ6pjzYRReDmePYbAwnpl+2q1wwhMBQMzazukflPG4lgPwJlXZyagEayTx/N
0diBwMsTTh0PHpH+g2GnyvUI7Lk3u+hFG5mv4m/6hkYgNeWa90QHmbd7If3A
nBAPf7/otVEnyQsmms2GhVjeL13L6CL1cEtsRr8Q5WVRB726yT5zWiEfOoX4
3UHjavYzknclvtCtWYg7Nj+fTukleY/n0aokQvwPAiKBDQ==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999166\"\>", {9.845*^7, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.4812437679632386`"}], "0.007798186492405439`", 
         RowBox[{"-", "189.9472100860635`"}], "1.26484333669422`*^-204"},
        {"T1", "4.64206157800164`*^8", "8.694059668760784`*^6", 
         "53.3934865282941`", "3.0485118578152867`*^-110"},
        {"A2", 
         RowBox[{"-", "0.5078701371756603`"}], "0.018312335084892817`", 
         RowBox[{"-", "27.73377260853202`"}], "5.929413088041034`*^-66"},
        {"T2", "1.1871588976379212`*^7", "855897.1935146669`", 
         "13.870344553449897`", "5.440324608202009`*^-30"},
        {"y0", "1.1479615940742525`", "0.010534846842264977`", 
         "108.9680382887695`", "9.23533331025694`*^-163"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {9.845*^7, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 15 K\"", TextForm]], "InlineText"], 
      Text["T = 15 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 9.845*^8}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.777882121728243*^9, 3.7778823135295315`*^9, 
  3.777882400053516*^9, 3.777882524312543*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVVmdQlFcURRg1Ro0lI06CzqBmLANREwcbKns0apIxGjGWjG1VEAuWREWJ
DWPHhiIqxihiAQISqYK0peyyLKsoEhUVWZXOFuyKo+Z9990fy53DMGfud7/7
vffOPW97LVzl7evo4OCQLP6U/xSa31XJvd4nCXgpNCP8FzhfGymgI7463Af3
U1cIFBPvX7MSnSN1nSJ1JZxfi+BbvgKlxI05gfh82xyBW/z8Fmxu0G5q0JYR
H9vmT8yo6yBwm+t3oLv6mbP6meSn3Xcj5un26Kfb7/L79sI7IGdqQE458Wbv
/Zht6SJwn99/EPvflu17WyZ5bGYIzpm3CNznfkew0zNmh2fMA+LlU0JhPd9V
4CH3P4qP/t8LVBJv+yQMh+4uE6jk7zmOy2P9BEzEPQJO4GXJrhclu0z8feFY
oZR/lHxRu7/wFmVvUGbi7z2FzRSPiB8+9TeWUjzi7z+NxCW3E5bcJh5U2T0C
n22aKfCY1xOBMS8XChAPClhwltf/hNcXiX6O6X0d02W+Y2wkjg+YLPCE13sO
/r1DlvcOIR50/sU5nMhsLVDF6z8Pc6MSMu855gLibnwhUMX7cQH+KRMFiAeV
7r4Ii7K956p4f6Ja5JfejOL1V/F+RWNARmX/jEqZd3CJ4f2o5v2LQc99iwWI
Bx33+Yf3p5r3Mxbxr/ZcerVH5gfGx6LvqlYCNby/cbx/Mq99HQdFTc7qGt7v
S5hMG0I8aA7icb9P6r0+qTW8//Eo7KQIWuafB/+LPhS1fB6X4bXnSwHiqvHL
LvP+1vL5tOCazp0S0H5woEAtn1cC6gJP1wpQ/YOkBLi3zXZrm13L55eIn7NO
TMk6IeujZiUiomP9mY71tXyeiaD2XnVUv+Z9Ita2cROo4/NNQhe9h0A91Y+J
TELPN/E93sTX8XknISVZCVn/6cRkjC55PqrkeR2ffzJy11dr1lcT1/zXmAyF
adbXsx5SIIO46mxICn448pVAPesjBUcOKyH7+3uk4phTZZhTZT3rJRUB7ifX
uZ+U9cPvpYLk4l/P+rmCEvXO6+qdDVTvtPUKn1cD6+kKupLgZX1JnzT2jwbW
Vxpc6IBk/Ul9GrzbrRdoYL2lg+xnE3HV4hXpqK1RooH1l46tZBiy/puuV/Gu
WYkG1uNV++dV71OvYnu3kQKNrM+MFvX62RmYE1Q0O6iokfWagWEUxFVHHTKx
hqKR9ZuJ2NELBYhr5l/IxAY6gEbWcyZULqVeLqWy3u3HLETPM0bNMzayvrOw
ZFyz37hmWf/KmoUyxY6DG1nv2ejh+9rF97WszwvNxqmB0wTMrP9s+36aA8Nz
QPJtb+Z5yAHZszNx1a8VOaDlzTbzfGgw6+wQAeLqrtCgs8cWATPPi4b9n7jr
htAWeTE/GpQrdnuIuKmiWsP6NPM85WJd+OO14Y+JR4wbnou9lxRDMPN85UJx
9x2eFuofE5yLuReHC1h43nJ5Poi7dqrIxdMmJcw8f3kguXhT3rR2UB4qHihh
5nnMY3+ifMS9bXlwVo5/u4XnMw+tyJBkf1VZHqZTWHheW9S7XuybD0Xt19UW
nt981rOV+rcPzMcfZBcWnud8fJhQ/n5Cuez/W3E+Xr1UwsLznY9nynUZLfvf
6VmAobRgC897AeaNaJo7okn2H726AIqavFysPP8FMFiHCcj+kXkFGKip+lpT
ZWE/KAB9TiDlIz7ppoUfLcjK/qBFzbRBAsTVK/20PG9W9gst+y1x17J0LQ6N
Tzo4PsnK/qG1f79pRAedfV74iQ7zFblHyf5n5unwsTzkQ3mIlf1FZ/9+desE
HZTbIGGJlf1Gx34g+y93KuR5trL/FGLmxoIZGwtk/xvTC6G4V5iTjf2oEE6T
HjpOeij7D40uhG0Y7Rj7UyH6ha0WoOfVp5pb5IVf6fk+oLyr4096++eFf+n5
94/s73dGDzcyeBv7mR63SpWQ/a891WMUCd7G/laEJsM2mwD1H/JdkX1e+F0R
6Lpxk/3DjxWxv1nZ/4own4Lypg91RexXNvZDA/sT8QgfTwPSHEKvOITa2B8N
WH20YtXRCtnfcMBgvz7hlwb773MdbDKA7MzLxv5ZzP4j+4d9W2zfT/hpMcje
/GT/dzuK4XMzbtHNOBv7azHfl7L/gjvFUH4tTg2wsd8a7Z93LRxgZH+2sf8a
2T9lf/dNRjhQNLEfG/m+lv2PXDfC1F/5QWPz+h8PopVY
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0GlUkwcaBeCAytCcKoos6kil2GLYaV1aQXl5AUkrYKsMwrgNJIQGAoIY
IktLgWBRMBBCyIcStYrgCAoFJZOgTQRRsWr9AgkJ2zcIFUuxCoSC1ILD/Ljn
/rzPue+zkvdwzGk0Gmsh/2/bW/I8Ipzm769h+nTGXITjphPySdOA/9QP6mzv
GBKsR113NZp+90/vMZ0TsUj46Krl5RuCaX9PhnPzb2wSeobf1IhNc/6vA7mt
TA4Jt0XHwrcozTE4reXOpTgSpC5Hwi8JLDBvscMtMy4J22Jiw3NMS5F/yKbk
ZgIJJ+brXWaMy3FadSV+VSIJqY/qXDyV1mhZ/qVPWhIJwdxqF7nADveOdf3o
mULCy/MVLukmBxwxV4VdSCPBmFTu0tC5DtfuGDLOCUh46vDAxmR0RMXn6/bt
Syfh4dhdG1elEx64qfdbmUXC+QKNTYXAGX9hbCvNzyGBqWmy4Zs8MDPecx+n
aMHn3Ci1GvbEtuvNwa2nSPAWNdjUdXqhLCjCxaGYBJHHXvqE0Rsl+yhSJybh
2Js9dIbyY3y0zfFKoIyEECKULhNswff+vJC97gIJpp+Bnmrajtyxcs0TxYI3
BsXhaX6YcISoYCpJUE8F2G2e8UNWxFuORrXwx5pgp9d/ArZVL6Lqb5GwbKOz
A5ghTib9GiBqI6Eq233zXctANGpSB5k/k/DYditHa89EvomedOMZCY5Be+6O
bv4CP64JGkyw0cK60dcWkV6RePFyc4MbTwslP2asv3L2EAbz2FbnNFqICFpO
Vu5l41BWgerUmk7A6ezxgtVfYUrN1eIHhztBWEVDaw8eHraKjIl70AkCwxmR
1CMZf1Esmbj2fhcMuzGos/wjSF/xwj3xaBco4k+JbmcexfwSk5D7sAuUYfPX
0g6lYYdc9Y/xtTqwTvv6Uc2nx/DRfx/mhibqwH7N4kUbfDOwMK+Fd69VByGc
07Vb/56FBzQcw8RyPbh6fppQuf4btPCdYTnG6SHGZ3hDhtO3KFhl1rtWpYfY
6bA6/rc5KO5XDI4v6YakZQ27dLm5yNqcy/h3VDcUz8pc51LzUBetKdxZ3Q35
VUJJWLoQ8xmcI4qZbnBOFsz2peejeL9tyqLPDDC4dLxiI/c4FkdJYqMlBkjm
HW5v4n2HvYrHS7lDBrCTH2W8OViAU8vsKiXuRoh/mV2UG3ICK+LaHNv5Rih9
W5zpFXYSxwuiX+S1GUE7/OHFmu2FqDa8+0kBvQdGvmuN2BFQhF9+lCKlRfXA
5RC2pVPAKQz1WW+dVdUDOcNFpvveImxxkNUfHO0BTx9VQvnGYlS/lrMrNvXC
FDtpjfuHJcgXZL8NzeyFJkNZLO0dMSpX5H3hrO4F/QFTbvZJMZKRo+9s+1sf
5IfIfGPMSrG3rdbjxc4+OHfa92aksBRrRd/Ptpb1QeDuDwxNf5Vi/lgpL9DQ
B5rV4smrRyVY+3WoZHZVP1TjfFfLlAQtrhpOt/yrH+y7GnZ7JJWhdPV8R/CF
fpi6wy6//qoMrbt9dfef98Plu2eMxmQpstiLg9PdB2DE21bJei5FNVkduzJx
AErelB6kxZfjX1Wd5id/GIB2rz3nzYfK8T2aX/bsqwF4wi8frIqSYaHu83aV
BwU7Vvc9j+qRYccnQft9UyhgbogtSt1NYK1i9Cv9NQoyX9lqC8MJpHt6ZTyv
p6D+P/ftqiIIrGercmcbKLD7zO1i1z8JlDufTXdoomCEO6ncxCKQr7syF6ug
4Hhtzsh0KoHtK+04k2oK7nicxSwpgb333eosSAqm/9hVUCYj8JBeUm2vpcBV
TXtcV0GgRMgkGJ0USHbFRvXLCVQOnIneqaOAleyWvL2awMKdE4UiIwVmjSr5
2+aFfXqln/VTCjZl8IbslQv+g3PXnIYo4KIDw7uFQB9No83GYQpIbc71aDWB
8x0rOsKfUfD9JPOn1nsEnruhuCcdpUDXMmvV20FgwNbG8Uu/UWAprIuY/IlA
gTnNunmMgpSVVk+dnhAY902lj/53Ci713Xb21RIovvUrPntJgbEqNTG8i8BV
+4v8/3hFwbuJHzTx9AQ2nRduWTJBAWzqnhEaCLTUatfbTlLwP6HJC1U=
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999606\"\>", {9.666*^7, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.7485696015820542`"}], "0.004893519980078574`", 
         RowBox[{"-", "152.97160420913102`"}], "2.8655179920123272`*^-188"},
        {"T1", "2.75770791408004`*^8", "5.042327059981964`*^6", 
         "54.691174953056375`", "5.77607457782514`*^-112"},
        {"A2", 
         RowBox[{"-", "0.2202671248616813`"}], "0.021492793468881013`", 
         RowBox[{"-", "10.248417693149179`"}], "1.3309757912793198`*^-19"},
        {"T2", "1399.514907110633`", "0.00001438283095226256`", 
         "9.730455094380954`*^7", 
         "1.3253425776866534606722884524622649396953624879934`15.\
954589770191005*^-1203"},
        {"y0", "1.0044183211267894`", "0.0036764040756765612`", 
         "273.20672604301484`", "3.72520659735484`*^-232"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {9.666*^7, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 20 K\"", TextForm]], "InlineText"], 
      Text["T = 20 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 9.666*^8}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.777882121728243*^9, 3.7778823135295315`*^9, 
  3.777882400053516*^9, 3.7778825249230833`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVVWlQU1cUjqigVERpqa1WG+pSraBUK6JY4KCUccG2uKBSK5tWUSlViqgV
KWXqUhFkFSsSBVkEkT0ECCQhISEJoGhlkVQEWVLIe6CIg4r25d374yYzmczh
3HO/e875vg8r35899hpxOJxi5qv/ZT+iI86vPKLS4qKETvqwInkriGM7T7R6
3GXjoGR/yE103Thh5kM2XtgTCPeDD7xU3W/F+WDoz5sosHzTzsbq6uOg/XzT
ncq3Gnw+DD7pWeD/4vVjNnYxjoApAzuzrnOe4PpIONWjyT41o5ONr1mfgWMh
EfNlLzrxfedA3DjKvLCLjV95XICNciPHd5ee4vsvwoyn2wePVqE4pzIGXD0z
Bd8EdWO8WIjOn9M7dU4PG7d+Gwf07ON/mJ3uwfjxcKwoeSz0GxSbdCXAOeca
3+1vevB7kqA5ot00rKGXjVeEXIZvdRUxFiZ9+H3J8Hz/+J+PKlHeb/LfkJZq
K3z2qhe/9yrQu2K8xI1aNr50NQUSd19aezKmD7//GqSP+3jJqBWbD388gwfB
JuZe9Ue0uB8e8C+6xD1sRvkQn+tgssOSaVGL+7sBfu31+0a6UN4s5wbIlilP
bT3wH+43DVqqn3d++Wk/m08fToOVNptP24b34/7T4Z03h+96FuUdHG+C9ZH9
5hbv9+N53ARmWKXfL0b5pjMZkCnTmhsH9eP5ZII8vpDaFYPyB+5lgh69vLgf
zysLRgfTl0XtG2DznFnZMDTH5+uG2QN4ftmQcmhgGrUI5ZP8b4EP/019mtkA
nmcOCB1KaJcNKL8kLwdUj9e0iR4N4PnmgmLkyh4fPsrLXubCP/arW1usBvC8
b8PJDwMWOk/RsfkfIA8aFf9u5XJ0eP55kO5oa3z7CKp/fv4O0EmZy3/l6vA+
8uFZ+Pq8B+vY2Nk1IB/WhLYEJKoG8H7yoaiTP/jFBDYvmmZeAOXFr7u1m3R4
XwWQwfuIoRiqby8qgPfCGpICPtHh/RWC3SS9AlB95o5CqEpJ8V7/iw7vsxC2
NbsyK0X1R8cKwWo4+VjmiA7vtwgkfzo9ykpA9Y43isj3MvsugnW5E+55OVBs
valbMcz8bHtE320d3n8x7BT1OsVSqP6f/mLIPlc+ZFGlw3wogd3sH1D99ZgS
uOo2K/TvLRTmRwm0/SGVOh5G9YdWlMLSy1a+889SmC+lsOW7CxWtalRv31YK
g6PR6SfdKMwfPqxiCYHqx5/mw/Lfa9ojcynMJz50O976ancb6r9xbhn2Fx3m
VxmcWW4/eS+PPS+6oiiDcJ/h9zM8Kcw3ATBmlbw6BuHvOywg38fwTwCrt5g0
rX2B6r+0KId3KTOiR1sozMdy8j3OY6XlME/j8Mx4FoX5WQGPGzbnp5eheoVX
BTzqzl3hGk9hvlZAptG4PoEI1cdzKkFZfhACJ9KYv5Xk+0R7blZCLKU3KBrz
uRKaLtyxs9nMxs6LNwhBfq+uduoTCvNbSJ4XjVBC8n6G71XguCZ7U9rHqF4S
VwVGZwSTd45RmP9VMOdwx+HNowg/yr6anAejh2pY4DTPz8wF1e/UVIP1ndO9
Mj8K60NE5r0tQETex+hFBNETf3s7V8vG3NA4EZRmnG1a6UFj/YggsVlvUGzc
oekWgXuH7UqrHBrrSQxDXqGWEYFszFtrLwZB9BfuSSE01pcYXObr/yMg/Ozz
YrCZvn+H+jyN9SYm++Waa8TA0n82jfUnAdepOvD1RfjBSyUQMunlBxen01iP
EvI8r+13CZxL4J44KKexPiVgHOQVWWaF8J0fSGCvpoTLj6CxXiXguWqJ3aoh
hJ+xoAZODF2O1q2gsX5roCHNrLJ+EcJ/73gN2S+j5xpgxKwJnYzwf1HVgNgn
0GV7NY31XQMrA/Z6Pr3L3u/dPFtqsC9TNylsLQy27njOxtyvg6RwPfam37hU
GutfSu6r44ZESvKL8QMpCEPV8pErCH+SpQwsP+gKtCuisT/IgJVHGOo/8CcZ
cNjPIPYLGTlf7gOBzIC/Jl0yCGtbbeq+C/W/akotLFpYqzm0j8Z+UgtmLqnH
jwUg/NQfa0G6YZqwpIvG/lILWf7aHaJehD+xoBZ2fXY3/7Iljf2mluQb9+B4
uUH/16zl5P0dd7fJyfOMH8lJfvHssuTwXV1TQXgjjf1JDoXCHs8WG4R/9ZXc
oP/GuQqSr1wjdwXJH8a/FDBqU2kKfIT/U6qC3DfjZwro4ekfjPDrhxQknxh/
qyP56r18XR05T8bv6gz6T06sI/fF+F8dqbeOt30GMeOHSrJfnr+DktQX448G
sbcySglXRHqC0tgvlSSfubYdSpK/jH+qDPafsEwFL9bNjHkSS2M/VcGFMMmw
sh/hv45UwfTFMPzwIo39VUX6o7dPs8oAP56jhq+6ctz/uo/w5YvUZH+M/6rh
o7FIbUIzwrf+TU3ynfFjNalnXmyDGjRuCRkbK2in/wH094gg
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVzn0w1Akcx/HlZFwlRscOPehInsscd6Povr4iXaI8HTXpjvW4iy1RNpew
CFuedtePrGuz0niopq2rTQ55qgg5zyEPu/Z3Zq7Ubp5y6vb++Mx7Xv99vg1l
+oarUygUL9X+r36DIJ3wo7gcg6r3J2JbIFOZLVAoJ1zGz99xOpzWAnpzVt73
lG9djjTq+NnzW2BUulpVoFxz+YdXNa9oaAHnkDC/VKU2avUmbbPY2ArvrpdY
Jim34ZFIsX1MdSt4NIm/SVDaYtsHegh9sg2UPbA+XrkfbZ5cUjzY+wx2uPm2
z31/FJ1DNev6NF+C8dyyZuCeQHwYRMy767+C/D9ZptXlp5A3l3jUaKkPAtx0
X5X9TMPspuZ+t7F+wMWU95cNI1Gjg5ugnzIIbBEF9WwZWKfmWmlsOgznhq9d
5dkyUTMZSq0rRkBqbfGmPOEMzhhH2bS+G4WH0VeuNl84i1E9ws6uH8dA4vX5
duKpRPxcq73hOG0c9BJ/e1nleB53PVr1X2NOANVI4ytzJxbmWi6UD6W+Ac/w
0pq9W5LxLzFjIJw5CVa7HellphfRSJJz44vdFITsk5qzTC6hU/sLWp1wCsIW
vWoTLqVixFu81qo+DbGb7noPpKUhvUNrkho5DXkrxVZr8enIyy0JTG+ahgwR
u8griY09ztknDYxmYBfz3MpYUgY2iV44WcbNwJT2+xL7qExcrvn0skwyA0xG
XJuYkYW/jJoP+q2TgoHgrMVq8GUMf3RwMOUnKUS/S+GkeWZjc8DrGP8cKRR+
ybuwxysH6dXjYcldUuiTmlVU7c/Fo2E3HLI0ZSDPehrg7srBO/cHTHsOyOCW
J03LxPUKbq3xDY67KINUKUf5zO4qVkjdtPXvyWD3vsd0vn0eOog4m1fkMvhI
izWyMcvHK9FrGrHUWRAPc8MoXxdgbUNEibf7LAyeVKal5BTgsfgH30UmzkKG
Z7FTiFohflrHlXUJZ+H3UqcngexCXKznsvx7ZuGAz85h8b+F+PCYoSxzaRaa
DAsUdWeLUGvLpozG7XK4iZ/76z8W4fM8lofuITlQ++/62MZy0ZlDXeLEyuFj
K41/f56LNW+0KTp8OdxqvzYywuShP1Mjs6teDnI7fUkoyUPd9WYZWybkkL9a
GEyJ5iNdW+gVrkZC2x7f6+ozfBxayPdNNCGhN4E/JQoqxp31W/XMXElwNxwj
g0aL8XREt7KJRoKHeRgn3odA/x8U+fR0Ei7M6/fl+hHomCDTVKh859EzA1EA
gR8cLc+w2CQYHLKu6D9O4IDggXF2BgnyKIXEIZRAnyyj2cosEjJrUuWL8QR2
PwnePJ5LQqttOSbzCGyT0HWQS8LigvdlbjGBkzuIhQ6VrRop3bUlBFryI3qP
8Ego8g4LGhcQGMlaDg7ikxDKtGbuv0ngDqkNGUeQoHbvseDLHwQKdVZrS8tI
cGAxZqgSApfFF7u3C0iIwm0WdvUENgR3zohUftWXev/XRgI9GF1/3y4nQajw
6HzaQSCt8m7o0+skDNSv6Lx+TuB8R7vJQSEJWuzaAEUngerGj4c6VT69WWfa
pJdA1yUXo4EbJFSONe9y6lP93fu6OqiChBFRfIxfP4EbHE7YTqi8MWanmDFI
YOPB1soQEQngMLTEHibwcC9VV67yf405aDs=
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999864\"\>", {9.666*^7, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.4842270582855513`"}], "0.014079507262217029`", 
         RowBox[{"-", "34.39232987826184`"}], "8.936978528000946`*^-80"},
        {"T1", "1.44051638987868`*^8", "4.300436564338436`*^6", 
         "33.496980325770345`", "4.93259164795397`*^-78"},
        {"A2", 
         RowBox[{"-", "0.3558909318503233`"}], "0.01508015033605697`", 
         RowBox[{"-", "23.59995914625468`"}], "2.8950178541282536`*^-56"},
        {"T2", "2.1586923353527717`*^7", "1.6163526222933815`*^6", 
         "13.355330424681002`", "1.6678949027988628`*^-28"},
        {"y0", "0.9840802065427628`", "0.0013914690872631555`", 
         "707.22390856582`", "2.2905932561561524`*^-304"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {9.666*^7, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 30 K\"", TextForm]], "InlineText"], 
      Text["T = 30 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 9.666*^8}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.777882121728243*^9, 3.7778823135295315`*^9, 
  3.777882400053516*^9, 3.7778825252678003`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVVgs0lPkbnmi1kU2tsv9DmXaLbdmQiC7MW8p/C6Wly+pCpY1YretaKt0l
/imKYZZxG4MxjMswF4V/RW2rWKWEHa1LjPm+tsJma3c/3+/XOR/nOM5zXu/v
eS/P+5xv0f6Qbf5aLBarivqd/Ev/1IdylnsPJ7iG1DlPQp0MFxDy3K7Kn7XS
WMH1gnOas8v6d3TQOGxgLzQKH6QPzeui8VHuQfAe/8nktp6KxvduBIBDfMZE
wfxeGn8+8B20WLY3magQXqcTCqlSf8uUw7/j/HB41H/DShiBcJZlFPz1ZL//
nxv78HvRMDFzueFFv34aT2yLhTvsPR2N2gP4/ePg96WV+wtnhEuUcWBYcN45
om0A850CXbdVdrNDB2n8ZMtp0LjcVxSQg5j/DLQ++a+zBxfhGb+fhXRbvVGb
Gc9xPeehzlz8xanHCNtFxsNIeFagg+4Qru8CZI+M7a7jIXxg5kWoaPFlm/ww
hOtNhN7K2hrjlcM0vsxLAmHEx/OlRsO4/v/BV3paG7paaBz3m1EypI7f9N5g
oMb9JMO2t1LBRSWKR/pdhkdmpru+WaDG/V0B/8j4BtslNI7TL7kCQ+1rmvc4
q3G/KRC1WGC90hXF81+ngMWDTVFGKWrcfyoMBeWbFt5D8dVOV0HwUBL21G0E
z+MqPNxOzNCspHFc2/lr4OnbVhSdrMbzSQPBzL+b7HVQPKA1DSwOT05gBM8r
HSK9In6744fiLGMuTBzvvpzeOILnx4Xn02dFvdiF4mkHM2CQF9biODiC55kJ
mbEHAyJGUHyZOBMutGyc+P7uCJ4vDy5/ZrRvdqKGjt8a54H+G7GIY6HB8/4J
8ltXtMwVo/huyIKdkiUBHpUaPP8siD8k9lTsQPFXCdkQUZv8rMZOg/fBhzUb
JzdMY86GQD40PM52jbXW4P3wAd0PjesNZudAhupE0IF6Dd5XDuzP7bz7jo/y
uypzYJ7HiTk9Ixq8v1z4/C0vrvcjgs4v3JkL9WsUmwKnE3ifVLx5q+U5bxpz
wt7lwq/Dj2XBZgTebx4csRg/PWaM8p1y84CsG++JITV433lT8nVd82F1j44L
Z1iD958PpWYf2JaHoPyH6nwwrMgwvFdPYD0UwM5jTwxfvUH15yQXQFchNDV8
Q2B9FED9hyFjH21G+UF2AliYtyUyRkxgvQhgdbGc7LNG/A6dAuZ7lH4KwTdr
zxI7LZLO1z5RCAtDtD9ljxJYT4Ug3awzJJ+P8u9/JoQ8u62trFME1pcQwuKa
nqd0I/6MZiF4LE7UTeISWG9FQJmD1EaF8g8FF8H5a8dYHqEE1l8RdIWNhh7K
Qfk2c4uZ9VB6LIZLand/tS2NOe+kxcx5UfosYcbrm31KwOWfBK9TLwms1xIw
twyyCl+K8lNZImiTJvrPDSawfkUQ5haT6rAY5e8rEMGqdZ+6LrtOYD2LoP/t
HMt9JijfYlMpiF7W9nhJCazvUuY86seIUohdaz02OIfEehfDDf4j952PUf+N
KWLoa77VoX2AxPoXAyH70bFyK+JPciiDHb2vjXp/IfA9lDH74ezqLgP3+EL9
mGAS30c5cF0yQzxT6bjvXCiHO5PPnyDwvZQz+2H/kFLOrI+6n3LmfFTd/VPi
1D1JIMDn9vIL9jTmr3eQgOh6UMKbtwS+LwlUxzxMc7eh475FCRLgdmk1ZSwi
8b1JYNrhdKE0lMbs2d2SKf2v06mA8WKrzP1OiD/cqgKuOzgV5PiT+B4rgGuw
xXisk+bjd56smLIf/ZIKmMbrozaE+DntFaCXxN3b8B8S3+sUzBaYVcL2DQbG
93NIfL+VzHpUetGVYH1yTeocNYnvuRLW/+zEMndE/X//85T/p+67Emw8g/uP
P0Dz71hQBbq73HUP+ZL43qvAXfnK75EZ4l97tAr22d+KPX6JxPdfBeZ/mj79
5Cjiz22sgr7U6NPCIhL7QRWwVrh5+cgQ/4fzqqEz7+aiNwoS+0M1XJ/+cutG
Eer/u2+rIZd7pJ3wJrFfVIP1gkWURSP+dlk1k4/yj2pI/npAP1dA169ynCUF
s5u/nquTkthPpEz987P3SmF79O6QL3xI7C9SaB4VVIxyEf8HEimzXspvpNDm
8VrpM4H0d0S7hnmvlP/UMPWheuBdA81LX+l4fv3ej2pg8jXTKsRvL6yBs7fd
ylSJJPanGggw/7Hny2OInzdRw6yf8qta5jzZWu61U/RnF1kL6eGBC/vEiP/b
7FpY1XkhK2ozif2sljlP/i9/1E7xF5axDC6drlauaED8ti4ymPy6kKeS2O9k
TD4295oMJrt1Pkxi/5Mx31P9/VwGxOTnXhqJ/VDO7Id/cLUctpcK/3/W8L0/
ypn34ns3Sc6cF+WXcmY9bGuVnHkPlH8q4Knenrtly1D/V5crmPVRfqoA6mPG
RzQL8f91RgEs+ucF9lfFlP79OhTgKFi7yeTKe79Vgu6SaVLdQsTftFQJoZ9Y
cboDSey/FO57pj4pQfyWsUoQJbDts9a/92MlPO0woD5hEP+VFiXk+pvGpfBI
538BWkF2cA==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVzXs41IkeBvDR0qN1oqOGgwitiNAJnaR8faVUwjDEbjXbuLRyaeQum0ZD
JsSMy/zIuCwbu2m3szxZOSSasnUi1sRYl3VrGPMrPTMStXLm/PE+7/N53j9e
sxCWf/g6CoUSrsr/m9omvErQKW6UBF2zTW6dkKXkChXKMbeZ8dnVlYRO0JVZ
+/yifO2WWZfPbP2xE4anP9bxlKtub6HgRIduFxxghtHZyo0Y3etSMjbVBW+q
SnemKI2xekV4OydNBJ4djVsSlLZ4tIebIijoBmUvfB6nPIii1Zo/+Md6QMJE
Hj3RFTWbfk3uSemBB4vuek7vXXHZQ/P3yfoe4BoeMV/+AMizHaKVaPSCtsMO
Y1BD5Bq/jrXp6IXa9F1OjzUP4c3kI8/LqH3QQ3UO79f3RPWyuacD8f1g6uH/
WObki27UbyS3/xqA4K6Ewbw4Xzy7tyKkWlsMfDdi1v6uLwY4MRhcUzFkmLxR
d9lCw7Yn14btPcSgMHSwzLhBQ1OtkxbjOWIQb26P2sj2wzYNf6su6kso1ehf
tAinI83uUdKS2SBsky2vD7IPwrMFB2LC9SQQS0b6bvIOwudvP71bZyGBroVR
4mmkan9moSZwkMC5pYdWB+pU++ttXUKaBH767PpxM+NgvNDCe2WbIwEXE4N8
+edfIqWy2/fcRwkE0Z2pbOlX+DzlN2rU4DAUtKdu/7GCgTuyDY25sSPQFhx9
ZradgZRi9nTf5RGYUzIIi3EGajO/u6OTOwJu1h5aNSZf4+kAThTr1ggoBNrK
m1VfIy/vQ2nL8AjYtPgxn9DOYmZ3HjvVbRTy+dLdLf5MFOF5UKwfg0CPTX3l
J0Nxy/pBdm7qOOBS+ttsg2+wnWoudIyZAE4tBXVtozDeqz00OHMSkoZu3ii2
ZeGfMvdRw5gpmLaxGq9IuIiCOx8ucKymofl83o2Hl+IxOVR4KWt4Glq8P/2U
yEjExyV9KfciZ0A38dvndfuS0dX1lE69bAb0DdU/s3RJRfcB0ZpD+CvwCi+7
7WyUhl8ZnXBO7nkF1nb7Isu3X0ahiZE311EKzP3TlqnmV1DcrCbx5UshbMm7
IeEKG7lX3SOzJ6UQo33XR5yRgY2nKpn/3jML+SsC69W4qzhZtYndmjoLmbWc
Qu8UDs5RSZ/DXbOwg5W0MpKSibGB0r8Xa8zBxMa3pQ4RWThWabT9OM4BK+qC
qDHqGk6km7VtuDIHesJ4q49nsvHplnNGO5vn4Pyb9NwMLy66/rCnQ2t+Dvhr
+Zfsva+jaY1h2DZTGfRPW9TUHczBl+XxaQ00GUivdQYeds/F1dE9g8EcGdR7
hWqau+eh8yp3j0eTDNjTucru3TdwimrSED0uA7v99yNLHPKxM69s6HuteVgM
jTHcZVGAg9WpoouO89A4VBRG2cDDwrWoFLtT8/DytDIj/ToPA8oUC2Ocecj0
Ergw1fhoff/bsIof5qGyzOU/QRw+ml1Wbrd/MQ+H/L4YavyLjxesltdpK+ah
w4CnuBNfiNn/qo1x2iyHW/hpoHWxEDUuxh/V3isH/YG7frYxRVgZN5XJD5TD
4qPQkqaFImyuR2F9khzqH9+USFjFKCIYEQYCOUh3U1tCZosxQD9pmdsoh4KP
/DOU8yW41l6qE90nB5G9f9W6qRI8PZWjSJLL4UVCyURtsAAjd4bP/FODhMMG
I7PBwwIsyvMpPGRKgqdlWG6cH4FWx+arHu4j4dICtT+HTiDecfTb5UzCz792
69UGErgaYL5IqKx31KZm4EsCXx9f0GbtJ0EaoWhxDCHwFPta6dYDJGTdZkuX
4gjc2stYTQASHtlWYFoxgWdmTxgZHSFh6Z1PdpGAwOZ7IvUsla0fUHoaSgkc
7DeeeKNyoU9Y8KiQQHp1WnSXJwkhLBvWwVsEjoDRaMQxEtR+uS9cu0eg1rjg
H00nSHBMjZrSbyHwT7sNZlu9SYhAY6vdrQT+l5FmlKVyXz+76ewDAt+9Oyc9
6UNCtcLzWecTAksteeIVXxLErSs6f/xG4L6yvTEhNBI0OQ2BimcEJumR75+p
HLtZZ9L8BYF5otzpcj8Svh95uMOlX/Xfnuqh7k+CpDYumj5AYCItnYhW+W/R
XzRGvSRwhlk+KlYZHAffc4YItBb/vvkgnYT/AegUEj8=
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999892\"\>", {4.833*^7, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.4342086377714516`"}], "0.011545767665185011`", 
         RowBox[{"-", "37.607602228196555`"}], "9.212650719403664`*^-86"},
        {"T1", "6.609008789815764`*^7", "1.85267206425136`*^6", 
         "35.672847436636744`", "3.294435866211412`*^-82"},
        {"A2", 
         RowBox[{"-", "0.4118159093160142`"}], "0.012931571343553602`", 
         RowBox[{"-", "31.845774838593357`"}], "9.918836746356793`*^-75"},
        {"T2", "8.921134608276471`*^6", "519594.8014162275`", 
         "17.169406976283607`", "2.2590184442720705`*^-39"},
        {"y0", "0.9807919872206161`", "0.001157434632791742`", 
         "847.3843441637284`", 
         "4.191271434649144231722990036157250992538022519223`15.\
954589770191005*^-318"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {4.833*^7, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 40 K\"", TextForm]], "InlineText"], 
      Text["T = 40 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 4.833*^8}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.777882121728243*^9, 3.7778823135295315`*^9, 
  3.777882400053516*^9, 3.7778825255720387`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVVgk01eseLep2UyKaJfHcum7jJQ2rbuyS54YGaXpN8m5ImRIJ6aBkiMxT
hnMcziTkvSbV5SiNerfhlqFbpNx3OZz/XyqKR+/4f19rnc76W9Ze+9vn/32/
b++9jrGrj9M+jWHDhl1Q/Q395z7yQ9ZeAcNv3N+SYTUEHeot0GavXf1Mdo/D
l+pWY6WltK150+8cvl3tiB1i4dT4z/UcPlC3CYE9XnaTQ55z+F3tNqyw36jc
fbqJwyHVuyA11/zV68KrIcwL37EXC3oW+eo2tnD8zLp/4tmDBaYV719zuHWD
G8IbrIJ9yt5wWFLrgWup4iUue1o5fND2ABbdOlVT20XwwmovTEvpuXyA9yeH
+wx9sf9ek4+5z385vHOHHwZK7Y8GaxJcmXkIE58xt9rM/qLv90fHrm4X+VSC
I/QDEH4wysFUs43uJxDz+pP0tm4g2DbhyFdYUhuEl8svaxnICNYaHYynztGL
Qwfb6H5DoBGW9x9Lg3YO/xYZiqqnujtLstvp/o/BqHHL9fJXBCcPhuGqSa/Z
9IR2eh4exiW8j+wyUHC4+DoPv6XzbD6JFfR84ZhmbCubXUawdl84MqOWN/Kb
FfS8ESjMifZxHtnBYZ8lkXB2kdanvlXQ80ei4+1SiwAvwj8+fAKBXYEeM7Z0
0HmchKRW9OP+4wRb/Oskqnutdz+630HnEwWPp+bdfmM6OZzGRsHMZegEnXRe
p6Bbbhql70Bw79xocOM/0knnF42dyxUd2ETwds8YZM91t7cu6KTzjEX+3lCl
Iwi+Jo7F5303HJ1OddL5xmH6HT/VQ7Dhn3GIT5mxRlfRSed9Gt0Pjv7d5CHB
x03igahdPvs2KOn84zHvTEPrmELCt+xJgK+5T+DZz530PhKQ3rtRZWGyfnXu
GRisPP5g41UlvZ9EJFkhQ/KYwzwnr0TkNcTkNsQo6X0lwv2ujTmvmvCaY5Og
caZ9gfcLJb2/JBh1ZQ6+vk34C7IkxOweLdSwV9L7TEKVx9b5rgzh9/2cDP+m
pLsWfynp/SbDaV3NElkE4Se1JePBcP6iZJGS3ncKQm/Jc54kE/5OVAp0vjdf
nJeqpPefgnbX9Zqjkggf9F2qOlb5IRUfPvDNVpoyHG9Wk4q+Hy7V2t9UUn+k
4UhicV/NO6J/7pqmvl7llzSEVN273uhF9HHD01FqOLSCof5Jx9LpFnPW6hF+
BT8dWcLD/fcVSuqndBgpBDMUAsIrV2agqKI6KUyXof7KQP34HoWDmPB5LzNg
5JWb4LaIoX7LhB4XSMKvD81E4vU1s+daMdR/mRjY/jTe5SfCDzPIwuzaRr3E
71nqxyzczAhQJYLw5RVZuHrednrDdYb6MxtHtM/H2u0lvOu2bPjvSN922Zmh
fs2G3sbtU662E16/NxsPF1b2iGYy1L9ncWlwrsL2POFr0s6i/N5ku2XjWern
s/jjpo5h078JH7AoBxpjmaq3PzPU3zlYaDlia7Eb4Wf9ngPPw+4npkgZ6vdc
bDcb6bC1lfD1frnq61X+z8Un06oOpzzCR+vm4aPgZkjdGJbmIQ8O3MA4zFtW
locToo+JQVMZmo88/GE9oWSvMeEVjvkYqGswbJUxNC/5GB7TvT7gMvn+s535
WHF387HXnxiaHz7qE/qCH03g9NaiNXxUurqs23+PoXniq6+XD6bywe+vyO+v
YGm++Ji97lnE2Gscb721lY+98UvPHx1gaN4EuPjRUmtdHLdeXmYhwHbR6BfP
N7I0fwLYzI1pGaFP3v9tpACebw9MyJnE0jwKIBhefvx9E3m/yxMB3KycXmtp
sTSfAmhPtwk8t5boK4wLsGvb38Yd3M3SvBao708+3q8AA5telrhPYWl+C9Tn
be0pL0Bz9zzVw9I8F6jvV35DR4hDT4Tfrsplab6FsGsq0E83InqDPcKv7uNO
lBAjr+jqxf5I9P6lQtz/UH6Yv5Ol+ReisvmXps7FRP9gQKh+HlUfFGK/t2+h
0QmiN3UsxHG/N4xnMEP7oRDBFU9evLIj+mM5hSgfikcYS/uiEBa/mEyVvyLn
f9ZRiJLsTydNMxjaH0Xq+bCev7wIt1dnrtLZwNI+KULmtIjizRbk/VGxRei6
OvSDgKX9UgR+2EWdIAfy/ubGIpik1/hGxLC0b0SY4S4q9dIh+iVmIvX9qPpH
hGkXT4e+0CD6xCARHPWvXBRWfukjESpk61c0ZxB92x2R+nxU/SRS94s1JovV
v0/VV2LcULVV2Gqiz3IToyRVQzTnEEv7S4xTD438U72JvvuiGBuqno9aIWJp
n4lRN+azlnME0a8dKVHfn6rfJPjfo5afOk4SvdBZgoc/3JlU2v+l7yTqfpD3
CyWw6vVXPSztPwlmcQYieud3EqR6eBytmcXSPpRi/rnxoxaXEf25VVLYSOP9
onlf+lGK5Wv+oe3mTvQjk6WIG2E5sUCbpX0pxaHN+UGVC4h+V4sUkYbfQNOV
pf0pwxtjB8EoCdFfWijDMO7TRftUhokDIZ5Oj4l+HE+GOcfe2RhbsrRfZRi6
zUEDond/KFM/n6pvZdDOsvtm4RWir5pR/FX+D9oWY+jX3pQXRD/Fuxglkwcn
SkawtI+LERe+rOi7EKL3/bUY3jNj684nslb/B8hSUwk=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVz3k81IkbB3CiXuhUjlIkhHXOVsrZ4yktsVQmoWvNIMckNY4csaOpqFzj
+qqQUghtGR2DFZt0HyzCTqYxxhUz2RmNldJvfn88r8/r/dfn86yjRnoHz1NQ
UMiW3/9T88+i0wRZwbkleAeUR96Cs9K0Iom037lUp+QBz7Qalo+ZedVKRc53
V7TFsD/WQN/gbHm29LszQ1usr2t4FxwpQWSGdDG6NfmkE4l1IL5a+FOcVBdN
S+3W8L7Ug2szWyNaaoktW7zP1C5uBUfj2rylg1bI+ZKhlxLeCqSMOxrVf1uj
aVzpTMfTVsiw3Kf2by8JA74qHfua9AROznqrmXI24PGL+pKE4TbwIH5VK4jd
jHGhDe3c0ucgfQtqdKkTanyJv/e5+Q30UjCbHLMVQ58zLr3XeAuPprZp2Uxv
xSC3KLttYW8hTecXg/++AgYwQ19XLXsHSzYa64IiYtqIdtS4RTuUJVvYtKls
x4CnsXPraB3wRtMuuEPbFV8fqiM5PeoE5492po/9XHHR/jtC9kAnsCvtx9mX
XDFAEOkjU+6CQgfHE3mr3fCCqmLdiHsXUCmQ5Lt2J0ridv6U1NUFspod+f3G
Hmj2/Oith7xu0Hfxbhuz2YUKH4odYzt6wO9x9Pt0+i7859/MHc6iHmA5EyPW
d3bhlNXNs8MqvZCiJ1Z20NiNK93enH4OvSDR2WiSkrEbR1Xvbx+t7oWuFU20
xYw96IbdYU+S+qBwfsfU+mAyZuZKkz1UuXDPhZp0kklGFd5Z8Zw+F9qZ0vkv
rpGRL3jQmGfLBdV5WtpHeWQszUrQDw3hQsLcfju2715kMO0/slu5cHBamLTV
3QcDNpLqvsd+gLVj/y3wtfbFewuRmfqiH45PhO9a5umLu0N+VqL398Pjzx+I
F+G+WKJoM+Tybz8ckbWYOpb7Yst8N/8bK3lwW+m8+zpdPyQVfmvwPMIDB71V
meNq/ph7zCkt5DsPfMl2mozh/TjW+Nn01WI+VO6rPmSnfABlA1bLj2jx4au/
brlk3QHkU18ZTevxoSRAcUvwoQM4uk3nx6w1H4YiXvi5dx1AuzLP5Tl7+BCV
5l+k8fggxrhym2dz+JDVFG94q/gw7lWfjFq3dAD+9Dt6aKTpMHpP1Mc7aQ/A
qPQwsZ53GO2ZvJ5dawfA2cxl4XW933DlgG+fr/UASAqWSC9f/Q2PCTOyZV4D
YM7ZQ3m6OwCjC1yTEtMHIJM1TOJ4U9C27et3JUUBGH386NlDpWCD2tiJBSoC
aLDoC5fRKZgwqiVVWCqAkWevbmzKpaDNWhMv3hoBOM/dXVnbScENX6LrHWwF
IAlPVKjaS0WJTebDixEC8HFZ1n5lXyCm8ZqWvPtbAGt+sBgVwYHYQ58OSekV
gLB+xc910YGo1++uZsUTQLS1ds7LnEAsbb/rHjsmgBwdvb0zbwPxD73By60/
BNA+ad67zzUIMz1Ye/3MB8Gj2JWvbhuMVjOPKkqSBwFlyZOpq0KwUrHRYq22
EGTfWla9/ykEuY27i7+tFkKNktJ2I/sQvJ0T7NOtLwQt9dT8lv0hmBVqx4kz
E8In8yz7mSshaOi+dWGakxByKFfPhOuF4tbKAz1vqUIQvG5e6WkYhg/be8hm
VUJglingcksapk9WhFAth8B70UZ3DScavu4cOEP6eQgMYoLJWp40fHzKOHF2
0xA8/uVlsE4EDVfr/K6c5jgE8z7lXjC4TcPIxmrlUx5DwCCZdG2wPIoFvY6x
naFDcKrJM4RsGYGKubpFB68NQWzP5Yw8y0jkbI56VKE2DIPmprzi6BNokXnN
RZUzDA/C0jNaEqJwh2aqWYf/CHA8527HHI7Bbn6fRwBvBJbHnHpdbnsSy/Y7
s354j4K2jrKSiUM8iip0jrDbRsEj+FKV3epEfGXF2lJpMgZmVrbhVwyTML1y
zdTl82NAsR80iTf4HfvWFKlfE4xBkMyzOvp3BrotVLbSJH2CiCV3vLpSUlCY
ZWJek/wJMmcKzL7TT2PYm9kbtNZPcKaMmeMZx8SWc7m1e1XHwTgydoYbdwYb
8zXi2TvHgb94snBj6Fn8XnPYz+b0OETSjj1h087hLSr9o6BxHLSKokxnD6Xi
aLHLaJ54HMLEyRdTPNKwk9l/L0V3Alg/MhOsPc/j7rbMmGTPCegYXH+93OkC
Gun4xLFPTsDwub98dmy7iPrAqHx1fQIqPAJVDLalY9WrlJvEywlgDF6UPiNl
oJ5Klu4l0QRY2deH52/MRLvIO0SgugimAiN0LNZn4aQBNZVPEgG7JzdIQTUb
lWPW1C30EkH3QWlK8vlsNLwvqBqmieCMR4EDRZGFKzdTWWbnRFByyaHRl8nC
X899SlS8JoLte4x62N9YaPTmtKSEI4LmVdmSmqgcbF62wT/5rQhu4lxnw1QO
vnb00+YJRaDdeWePZUQudiy4Eprxn3xPa2B+3edcbKld+FfFIjFUtF3u7Y3M
w88Wi+i2a8UwTNLkUEfysH6nT2GGtRiyZlmHFMLycbqwfAicxfDE2vvqPEE+
Vsa03Zj0EsO76Hx+mV8BTqkt8Uo/KIYdq7gjfn0FaKLR6xAfLgZXk6CL9D0E
ijo/FNXHiiHhs2bHBTKB0y11LWK5/3j4TKvMh8DtT9R7DE+KQcvN/HqnP4EH
HxznZsg9HCrhbKISGHB/1XZKnBjOVjGGZXQCf7u7jDU/QQytlsWYmEfgrLEZ
uCSJQfbFKzW3gMDlB040nJTb7JHCm+pCeZ9btWm13DleQX4figh8mqHMU08W
AzXSPNLpJoHNlrdqeHIr1tYX/bhP4LErVz7EMMSwKZ4m0OYQ6H77Ulql3KGo
a0pqIJCxoNmEK3d7B6Mu4BGBbvnp4JwihlKJ68u/nhLoYZDZrXpaDF0NM0v/
eU5gE33dake5VZjVPpKXcivKyMfkPr5i6YDBO/l/zyKv/i33DW6LsUMHgbIT
q9nKTDH0ltGPkjsJnNumydks96KjRmxaN4FH6AG1oXLDpvfTzB75vi0KJZfl
/h9Wp1oR
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999886\"\>", {2.327*^7, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.4307542358386606`"}], "0.012559025214314555`", 
         RowBox[{"-", "34.29838132243691`"}], "1.3563746176751692`*^-79"},
        {"T1", "3.4639441947235286`*^7", "1.0473829502753208`*^6", 
         "33.07237523594381`", "3.397057674917892`*^-77"},
        {"A2", 
         RowBox[{"-", "0.4971454240446262`"}], "0.013558784697461468`", 
         RowBox[{"-", "36.665928041301804`"}], "4.740405548970543`*^-84"},
        {"T2", "5.092586814634118`*^6", "247886.3155547501`", 
         "20.544041744447686`", "1.6539299463790875`*^-48"},
        {"y0", "0.9775793776218977`", "0.0012654217873074222`", 
         "772.5324373480256`", 
         "4.457844640984122304164407345891912335`15.954589770191005*^-311"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {2.327*^7, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 50 K\"", TextForm]], "InlineText"], 
      Text["T = 50 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 2.327*^8}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.777882121728243*^9, 3.7778823135295315`*^9, 
  3.777882400053516*^9, 3.7778825258376007`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["293 K", "Subsection",
 CellChangeTimes->{{3.7778820888790865`*^9, 3.777882090081942*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"files", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
     ",", "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"4", ";;", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], " ", "=", 
   " ", 
   RowBox[{
    RowBox[{"experiment", "\[LeftDoubleBracket]", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "\[LeftDoubleBracket]", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A11", " ", "=", "  ", 
   RowBox[{"-", "0.8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", 
   RowBox[{"3", " ", 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A21", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T21", " ", "=", " ", 
   RowBox[{"2", " ", 
    SuperscriptBox["10", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y1", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListPlot", "[", 
      RowBox[{"experiment", ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], 
      "]"}], ",", " ", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"expo", "[", 
        RowBox[{
        "t", ",", " ", "A11", ",", " ", "T11", ",", "A21", ",", "T21", ",", 
         "y1"}], "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", " ", "0", ",", " ", "26000"}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     "\n", " ", 
     RowBox[{"ImageSize", "\[Rule]", "750"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<2\[Tau] (ns)\>\"", ",", " ", "Black", ",", " ", "24"}], 
         "]"}], ",", " ", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<Echo Intensity (arb.un.)\>\"", ",", " ", "Black", ",", " ", 
          "24"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", "18", "]"}]}], ",", " ", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}]}], "]"}], "//", 
   "Print"}], ";"}]}], "Input",
 CellChangeTimes->{
  3.777882096359953*^9, {3.7778821392776027`*^9, 3.7778821883428354`*^9}, {
   3.7778822885296016`*^9, 3.7778822893888197`*^9}, {3.777882444053444*^9, 
   3.7778824452336693`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1nk81VkfB/CbjJAaehQjk9IkqaTF8pTyURgpMlJJxmiTLGWmhSJa1dBy
LSlJZN+z78u9F3exNEwKVyRLqyQjNEVPPfd7/+j+4/X2+X7P75x7zvm97rw9
h232SzC+fCYxGP//+/XD+gPy059LX/BhG4n+cRwSr11G/LZwRMYJtLkx7kyW
qhb5tC+MRsN3xvXXiszyx9qcncsa5tdRfgbzJzwS46eR556Dfugur9iWv6j+
PPKtnd2M9lDuFABt+wG/W7Ob6PmXUODwemvDSKPIMX/iXMeQlLNvM80nCLY8
O9XbVuSuy3Cdlf1svWcLPf8qAvd37+tNeCSyPBMRnI5fxm0p72IiSMtn2cpT
5KxgRLzPNPJqEPeHwGTg3fAHo1aRrUPRptIoU35ISOsJw45PLQbPBsmDYVi7
ZUvHzxKdtL7r2CPLkpLUbxeZGY6A9ofBKlZkpxuoj57yftj5scg6NxGuIrnj
fDz1MyJQv7T0UHTgE5EbIzD08CFjt4AccwsRM28qtf1J9ozEnGU/pUi+IeM2
lnQ/cbYQdtH6o+CgEHJSZu9TWn8U+jV6HL6LpjzrDp4nn14VtYLy09Gw+9C0
9PrzbpE1Y2CWu3/8KIvMjAFzTavVj03ksRh0M1nPNQvJTncRqTkjfbpcr8j8
uzilcvuInlYPrTcWi/aG9mzgk2/GQu37hi2sETIjDnp9FQvCR6nfJQ7uuWf+
fjlKeWMcGL1aQXy/PpEN4pE0/81dGJFj4jF7VG7yZh+ydALWyeplpdeQPRPw
Zs2dvex2cmsCNhx4deCFxjP6/hK/zZMT8bRNT39cgXL5JFh9r2M/w5dy7yRc
SNGvsHSkvCsJ7ZYrj9tmkM2TcXzxVSfpeHJWMg6a2dXrbH0hsnIKTBmOy7cz
n9P3n4LhGy4sxxuUv0jBeouKdj6TbJ2KYOvQbW3TyEWp2GTxnUJiJ3luGkZa
hWY/SL8U+VIanBp29xyZRPlgGpS8Wf6mB8l26QiYNz7rWhmZlY4cdQtf/+c0
H80M/BS28VlcEuXMDLg+qbt+p4zGH8tAq7rzL8NzyE6Z2KS0av4SZ6rnZ+Je
305h02uyzj1EabGEnbqvaP/vYfa/8ZdLLKifkYUHi22PpWeSV2Xh4vTBdXEp
ZJcsuJVEYr8h+XYWdFS+bvhrOh9ZUA1V3q6ZR+NLZmOP99iiZa1kg2zw5g0E
RXaQ3bNxRmZtrYoxOSYbkfzontFicnM2Fl7rSBy7TM+TzsER176PyT70PMMc
7Ih6ujFIluyZg6I4E+3t88nxOTDvd56oa6HxWnOgsO+sUuceyuVy8WPCmgfH
5vXT+cvFcWFiUONbqj+aixChz2KXNqpPzsVDLVeV6TJU/zgX33/9ek5QvXwe
HqgKzjTIU26SB6GtZe9f76jfOw89jJmlUmWUp+fhzuE808TZ5K487E/8tXVc
l6yYj7NnJOY7RJPN86G0sC11Wj7ZNx/6teCbBb2h852PmCyNeqfLlPfm4552
46JEM7JyAVYOP3ZYrEH1mwug/tRY5YIX+XQBLOQWK9qvpfq8AqR76zQr/0z5
iwIcU/j31x0dlKsWQjPkmM4BB8qtC+G3Q23nrQLKzxeCm84q41uRiwrhYHPD
5OQ+cn8hlPyFb1gZ1D+3CKWntPz8xim3LYL0/d9iJ/lQfqkIf8/d5Cy8QC4r
Qt3X5UcN0P0qwk6fjX6sneSfinFiqeG11gYaz64YhSsiNjBlKL9cjFHjmek+
fBqPVYznYaqmAtm3Ig8Xozr2rvT1Oso1S7A9NyCtr5/sUIKbG7c6vUsiM0tQ
vWjINp9Hri5Bs3b/hIofeawEzB0ZVbY25CWleFnlZqU3nebjVIqzTrY5y8Io
DytFofAGo0OezC+FKTuizW0j+VMpFMMPphbrUr9OGZq8N6dc8SPvK4PZsCuv
j031N8vg6qFnvXqc8voyNE9bd3XgDzKjHFYxK+6oXiavKodwxjsJr3bqdylH
x8fdZn5bybfLYbrZXTaihOobyyEhSF96YgZZsgJrF773Pyv+vgy+ONO0PvYF
2b0Cmf1HzC11qD6mAlxJzmcf8XlrroDFePRcn2jKpSvR7fpfnynqtD+GlUjO
e9tnsYVyz0o82KpqaztB/fGVKEgzHz08jfLWSgS99lBevZX6pVgw9B/h6PZR
PpcFr451M40qyatZeGSVpZjSQ7Zl4W2Sp02IG/kQC9kPe4Nsk8Xnk4WukfdS
Dwwoj2V9O78yFux13Yrs75MfsSDXEvYx3E58fllodE2Ttwwgy7IxN2dIXvmo
+Dyz0a3vcuVKCnkdG+6ZyY+GPWg9dmwEqi3abfM7zecPNtaMJRyf+VJ83tl4
KzSGXC85kY2rzZ27jOvILDYcv7x9Pon3U8jG9OAC3eUN5GE2QifYCybnkadz
YDCuUMCaTNbkYHaXfKDMeZrPeg60x2tP9+SL7wsHmi0HI7XXU36cg+zQS6kf
g8lMDm5wJBSb0qg+lQOpTcGrB/6h8as5kLAePxEhvi+dHJRds/xY50oe44Cl
sELaeDONN6MKngklOYadlC+pwvsKMxMXY8rNqiCvkawSwhbfvyrs2+7kuG8h
+WQVxiXdjdJUqD6sCkVql93iRyjPrEKmybEgxiLK+VXg9vzn2hZDyrurwBBt
LN3XKkx9dffBWTda36xqJNzMyBM4iu9vNZh6n200fyZbVCNy8AAnWobG31eN
yS89N0zxJvtV4xx35Mr8C1R/sxr31Ez1eMnknGp4pXosrDET3/dquPu0vDj5
nvysGjZlR/+K8hXf/xqMJRVePFxMVqlBgtfnDVHi+7KqBoNhe08m2pGtahBV
pHX95HGySw2YBxsRK74/Z2u+vf+3azAsuUD2fj3lBTVQa/n6A0b8/qgBP1Dz
3XgUjfeqBjZvTcuVxPOV5GJyiyW3WJY8h4vH+wOk/Iup3oALtXNxU9I8yTZc
vDG13pX2lurdufA53RTSlUYO4GKe8vX+qfupPoaLisbKMwHtlJdwcYq94YdI
VcqbuUg24szyZpEHuAjsqPf/YE+W5mGeu+KmnBfUr87DDcuHJhPifkMeGvKm
llYGkLfzwC7WqbmyVfz+4iFw+ebOaPF5DeRBL/JdRdtFcjwPoXWD+n+uIVfw
EMAOtPJ2pfFaebhVHt68IJjyIR62tRYw1DzIcnz0mspo3L9L1uAj7qBjmsMu
6gcfyspWhdpKZHs+6q0OfvnFSfVH+ZhId/00Oo98lY/1ez9yg8X3OZmPqcmm
Q4u2kTl8SE9azvT5h/b/MR+RCrNW1itS/wgfF2fKZswZIMsL4L9dd+KjPPVr
CWC20DD/t9WUmwhwUa/ox00faDxHAdT/LtBIbKN6bwFSNVfa+xuQQwQowurH
jZOoP13w7XnhChDb+OrpwDsar0uADmHuw1/Mqf5fAWzUldKCxe9XxVrMOKBy
d/MKsnYtthVKM4d2k81r4aH7QX2meD/21OJQx+iT3b/TeL610AgfVTzaNGD0
P0K3lpM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Xc4le0fAPCiUCQhIYleySqjpCH31+qVbCFSGUlDS0MqqaTozcoISYqE
ZCszHI7tcCYnM3ud8wgpEr/799dzfa7nvq/vdX3XLe92xcaDZ8WKFXYrV6z4
//dUYIislLs+KlO91RAf14CE11PKhYe3wpR0PKHR24A6os5rNgypQxSHv/ml
QiMqd9C5mDqEIPyKtlJHViNS3y8rED1kCeFv9CcVq5rQaHqE/fOh02B2PtxS
srsFGbs1/X06dAXqc1PJEfNt6LreOWrgkD94b5qx1mhloAbph68ndB6A2YD1
9pUEAzlKWNiI+z0ApUZuUIkwE/muGy314H8Ia/MHjUfMmajoz+YwAZlHcMuB
30eliYn2dgRoWxg/hgWqXNjZKhbSirB9xH4ZBFy1iyzl1x0o+uH8utuJ4aB3
jCfdYWMXshf/U1v1NRzO2PsHCu3qQpIfFv0Fe8Oh8sxe95zDXSi+eflH4tYI
2DW5zprs04USN/GxyEkRUHmp8uB2dhdK/SSaKJb8Ah5JrT1VF9uNitiqu7I/
RIGuvS1pQLAXdWqeshjOiQUa72gT53sfoi04D4S0xYKV+2HK1sk+VF994rb2
VCz8Z3l5ynSuDxXYOb57rB4H+RIpqc/XfkehvsfmtmXFQV128YmvWt8RVJkm
nv4YD4cfzQ/3PPyOUq10uB3vE6C69zJz9+Z+VKQjUOdhngRKpStXyx4cQM+O
jy6Gn0qCvf8IqN40GkDOvvVaZVeSoKz9512y+QBaLglKFH2RBOJGD/OsXQbQ
Yb01typYSaDIcvsrGTiAmEZrt0u5vAXB+SZ7z5YBNG0tFNDs/Q6eG5dXKTgO
IlUvEbQ7NgU6eL2fKJwaQnc26SnsT0uBma2JrLMeQ6iedHENKkqBsxwhrRSv
IXRGqo5u2pEChcr7JUXuDqHEWr9zbpLv4e3y7+XMl0NIVH4iIiL2PRyb/au4
1DqEfjPJg0RsKtyPc88UPzSMatDdZ5lxaUC5cEGXtGYEnf+wpnPNxzT4ppz+
3F1kBPdrrKpnWRpwnLR/LkuMoOM9Bc3yvWmwbPNli4rCCJq8xxV+qZAOQteO
aRrpjSDxEtfIh9npsFuV9fDFtRHkscckwZ6cAbHNh/fmMEYQn/LGrBU/MsHU
LHDrx5BRVKv6blKI5xMofL5EFoscRYG71FWlxD7B/W+v/G7HjqJVe46kaWp/
AgEDTY29yaOIF/m9c/P9BF1OKZxHRaNohd1QTM3KLAghbdA70z+KFh4U+geJ
ZoNA5ovLjrvHkM9khpJAfA64oO133jaOIYndsW/+vM2BsobRCyzKGCrwDZQg
0nOgdmn6oQB9DE3xuaxiFeeA2XikypnOMXROfmNfMjsHHuxrfDU/MYYc7f1f
Iqlc+CzU/SFRaBwdrLTl84nNhVtrznr3HB1Hy5GLA0MxeeAfq64QRxpH9fvi
RQLf5EGwdlCSd+04etGtc0ghLQ/I13pNjjSOI4Ud12PcivPga0/7di51HJmW
jJn0duLz3HJTie/jKKaP9alDLh/GFdvX9C+No507c32aMvLh8vTeEzf3TaAT
tR6CuV8LoDZOOXgueQK5aWSEldcWgI94neBs6gS6EM8Va6QUALXI6iGRPoHu
XPaRGegpgJeq9aZ92RMoViJ458blAigMu3I/vXQCsc5mWvqiQgi+V57YSZtA
NvwzkfqVhaD4at6gfnkCmZo8kKFVfYY9hcdlhI5NopCdlzltJUVQvPsx+ePQ
JLIwdEt0qS6ChuRoIEYmkbCjveVUUxHsiB4V1xyfRKGP9XLXdxdBQeE/lGzu
JArvFL5psVwE0lPeKXG/JtGL4OzFJsNiCB0uHdu6hoNih6YE65qLYc7fdXZJ
hYNSXl9XKe8pgSg5O33jCxz07rbw7pLhEgih0cr5vTjorW36wS/cEjgw9Y6/
4RIHJa7pNctdKgHS4j0+k2scFHfT9Mp72VL4c6CpTuc2B4WayxeEnCoFI7l4
od5ADvL9Szl0qqcUorJ+ytkkcZDFSRXr5e4yGDHUb5mlctDtmJvr04bLwF23
PiScjuO3VrZYEWVg+sZfVpXJQXP6DqbvVpRDcPpyvnMHjq/42ND4n3JQ60uq
y+3hIC7Rrf3fuXIo3KFhozDBQSGPIqQ3zZRD/QE2W4OXi5o//B7YJVABfTWl
38U1uChgl6FUtkgF/Mf7nXtGk4sOFIZYqEtVQHVbrECBFhelk7YVq6tUgOzk
gzOW2lz0pNssVMOsAjpkT1LvHOAiEHu7Tyu8AvoFf0m8N+Iip4qUWmmhSsgS
p/w8epyLWlXMN8tGVcLy3EQcnx8XNbaRv4vHVsLVa51CQve5qOaWXppgQiUw
GhVbRfy5qISkrj2fXAlLSlmGkg+5KNVJ1JKRXwm7XX3nZQO56N6z9kfP6JVw
73njkmAIFymNu47PiVZBV8DTGM8ELnqYfqu4NaIKwgK+ah0q5qIX9+ucZGKq
wMSb81qthIve2UounouvgtU7chw3l3IR6W+xHk9yFYy+n66ZK+OiVTZ/q/cU
VIFcrfvt95VcFLQQQIljVUF5ckBVfx0XhR2NGHDfTALSspteH5OLXnM+rvud
QgLXeUfKiikuMtve5vQnjQTO5GpWCfai8+yHpUwS/CmfOn3jBxc5N+sarC4k
QYro1M+haS6S/thyS5RMgl8nFvZX/+SimHNEr9oQCRq+q106+4eLwge08ly3
V0MZX2qTNR+BAtjF9k3vq+Ga+PI6ijSBTODzfYWMahh5vXXIZzOBhD/kpfpl
VcMy84yevAyBYm98nFP/Ug3t0rTb3lsI9Gn965io+mo45+q0ab0cgdqNH7BO
TlTDPjW7o5rbCaSad9h+SqMGxtRaeGTUCUR/RrfbWFYDYqq6d17rE+hUrOV+
p8oaWAw1WtphQKDx900yb2pqoLYmcEseNk9V9YBSSw2IlrTvIhsSSOtX/jXd
nhrwLsxNGTYm0Av3qBD3FWS4/6+VzCZTAlnp2pFzjchQcVFVWcOGQC0c1h6L
FjL4zXY/tnYl0O+TijVHqGSgb044WI6tQLlpa8wkQ6a7brqSG4HuZIl763aT
4WTJWPoStuIVm2wVDhn2Tjkf/nCGQPenWpT519XCjjB3iQlPAqnP1MhWmtXC
0+vKbnqXCRTxO09Aq7kWspP1S7bcIRDt5TfvgLZaWOSVgwfYojo83QxGLVxd
c9+vHzvqpnWuT3ctxBmHbk29S6CYacKxnFsLs1+b+FT8CJQwqfbRZEMdPLR4
HabwgEBpfanmp+3rYN+G3h9DgQT6Wh//4nlfHXzWtCpJCSdQYmN0WtRgHfxt
S9D7gX2/OfxrwmgddKfbhR6KIJBe25PxzKk6QN4J4Uzs8nZvg5YV9UBpv6jA
G0mgsmHT6XXy9ZBxaGfasWgClaz6Yx3mWg8/D8mL0+IIvGlPbHjRj88XubYd
ekcg5zFmf+BwPSgJJM/fw+Z5YVXgO14P7c0Ov0uxrQaMHVyn68HENPTW/mRc
30CN1xo8DXB+wsxXK4VAsk2rlVvlG4DVXJkjk0qgJ3Y5IOTaAEIspXRaOoHs
L6y++qS3ARb47kQ05uD8GRyXaRtoAFeNGe9VuQSiSH2slxptAMFMORU97H8b
rOQ/TTWAvYK4dC72PqUEGn1lI9ROF/FG5xFIalhLW16hEWivwyTtCgjU5eqy
UHquEXKpiZJfvhDI1bH08Y8fjRDNPpQl8BXnI/J714+fjRC4VvmjNrYkhV97
er4RTL55BLthUwyODU2vbAKrhR3jpdi6ahzj2Q1NUPlKHF2qIJDEsiz/L80m
0NoQZdJYSaDmlEfBi9ea4OLN256Xqwm0d+pIKP90Exj9VRZzryfQB0eTqpNz
TcA+pbzzObZk9eHZ/IUmyLapVyrEXog2dHLhbYaUT3pkvgZc/4OHFIvFm6Gj
2C86DfvwU42vF3SaQfRjZOpwI86f7CZuy71myHxhvM28hUA3zQbNo/hbgPx9
fnU9lUCZzm66LMEWuHlWMWwMe9CrT0VSpAWsY/8ur6UR6FhIF3+CZAv4xUzH
mmNrURhVycotwNXuT6diT1mStfOPtoCFvoADk06gC7apW2hhLVDue8auiYnn
2+kcZ70kBQqp8d432QTSbil+KiBDgTnSx6AwbCEQ3LZSjgLpJeIh6djF27Ps
p3dQ4OEjWddubPEfMxUMHQrQxU7pGH0jUONT/xdxDhTIWmxPFe4kkE5hjM4/
LymQUnmlP6aLQCIi5Id7JVrBlvRrn08vgRZzuXOPpVvB6Xe8VBj2mK2kF122
FUR4ikZTsUkvL9pf3dEKy79f2LCwb2wVVc3Y1wrm+lr2e/oI1LHrNGPLiVbw
XqWoxMF+Yz6vuDqpFSgv/c1t+gn0kiwxPCbeBv+o9WlzBnE//Rt9a1KiDSxc
k0jL2NsaxfgJyTYQHc4wEB0iUBZFRGlWpg0KPlXJ6GDXtq+9sKTQBmcjR/c/
wJ4dW+KIardBoNmrrSLDBLIWHvl50K4N0CUXuuIIgQQdvqwOjW6D+knnJM0x
AtlWmUWni1GhyilIp3gSz8+uX1PNG6lwI77LsA675NVbs6lNVDg4M2PMxN52
a45XR4YKX0nBqj+wp1WSvGsUqLDsJe+nxMH7NGrGslebCk6jFyEam+YZv3bj
cSr8q5Dj68nF8yw86v8ggQqnk6z3TREEYqjd0/RPpIL/jfMKf7AdjooM+CVR
4Xi/2Bq+KVz/oH2H76ZQoax0T9lmbC+eYKFbmVRQnNdqPIwdNKccd7GMCjqS
d4NfYVf1XMyz76KCvpn9F/QD91s2MagmQwOHFH/W9WkCwRARYC9LA4NfvTQ/
bMvNU9seyNEA/g7UPcX2ejrlQleggTRt8tUr7Penf3T57qRBUkjsJAlbUmSG
UatHg6A6Hm2RGQItXZ2rcXGlQf7pjCfvsRu0/qZEpdLAwl3XuGwW73/pkbi4
NBr0qSG+GuzHK6mhiRk0OBE9UdWEDW0pt9OyaFAwbanciV10ycys7DMN9Ld+
KprHTkt7NTNQS4OWdQNd2j8J9FT2gMHuERpcj1x7LAPbeK1PL3UHHRw8B0sf
zxGIjyyX16xMB7ORRfn/sOv9Gx/XqdLh01B1QAS26c8tKuXqdFi/6vyBRGyr
vpobaTp0aBlyufEF2+mz6Fr/f+lg2Rq8ZQz7slvWHjVPOjjbXj1+5Bd+X0qG
gp+k0qGnY5F/Cbv/+Z8jmWl0aL/iM8j7m0C7Tm9YS8ugg3/Fh7I12LW8h55t
yaaDjMRel43Yv8yinhV8ocPUossNNezjvQb/9dfTIUYume6ILbUq6bneBB12
Sy0/ysVOMHcKm1NngIWtzr9283gfUx3f/9JkAKgB0xGbccyx9PduBhx1U3M5
hS3ofHxkQYcBJh5fvDyx71ywR8uIAdxpmosvtsNTG4LfigFLrNnPCdiiVaaW
UlcZwB7WU/6O/XTPwfW6OQwIXjSJcl3A89aaKnoujwG/hGXLPbAZF0QlogoY
ENnZ038eW/7tmMxkEQNoFWrbvbFL18WqJFQx4PmW/YGPsInhWeNFGgPil9YU
vsN2iMu6V/aTAc8GB/v7sHcsyY/rHmRCt6M459gfAuV4mTedOsQEn4AM6+PY
BzpvZz5ATOh3bcg/gW1R1Hq5xpAJSp5pV92wb3n7zRw1YwLl6paWK9g1wx2L
TiexNS+LPsN2aw1b7+vPhJ2h5d/KsBOS/u4prMb/ORlfNy/i+5WiXnlkJiQX
73KTxbbs25GcXccEl3ujvPLYPHI2GzKamMBXyWOgiO35JpWTSGeC26rZNA1s
rUTL1KABJmT8Zmwzxm549XaTMy8L8g+TKF7YczHGCzyGLFCKMj/8BduJUiur
aswC4ZWOOcXYX1ebGNr+y4LcjYmSZdhPb5g+Tz7KAv1L3wYqsSVtLGWNjrHg
uDx4NGIfWOdoEOjBAsG+HvFu7PsBXs/4g/D9SS2NlX8JtPpqpLRQCwuOKDyP
N8IuOr4Utb6VBVea4+4cxvbSP79ejMqCoNmTjibYDFG0SprJgiSzdWJm2CmF
45wd3SzoypPzscU2+KNfZchhQYBYN48btv+TKc+769ohfH3yrvvY8wnmhePm
7ZC2Und1PnbVu8UKaG6HvtX5tsJLOP+3Ild7UNrBwGvp63rsVaYqR4Pb2uHy
G1DegG3yw4FFZbTDz2uZC2LYbSh/0q27Hd5S90ZIYfd1nZcK5LaDz4ryEAXs
FZvavRtEOsBU/kPDfmy9/3K329h1wNk/y9ddsTVEtKqsHTrgprtnqBu2fHSe
s7VjB9ifF05z/3/8N/mRVic74IbTFrYHdmNe4UpLjw6gbjDXuoBt/624++jN
DpDMPVPljX1FmRRtHN0BMaQxuwDspDra6v3MDoib6fV+h235OVb+RnsHWKV/
uJeMvZRy6lA2uwMMj7wPTME++Wj8xvaeDhDKMopOxZY+xDO4YaQD6ssUPmZg
R+VpksZ/d0DoSm5uHnbQ6/D7CTJskHuUpU7C1nluH98uy4Ynz4/JV2MP35H5
LCrPBrtvBqI12MbH0zhB29kQeXnhBxmbR6zS+eYuNqh/GExrwL4XRBywADbk
X9rysw1b1afQPtiADRyjoE4q9jePu941RmwoHDOsomHvN+TPOHCEDe452c8Y
2HN/ZaV22LABPnpu7MBOnRzc43aMDRUXPOf+b7vODKvX9mzwlShjsbELivYG
iZ1gQ/CBs9Gd2O4fFpMtTrKht7Dsehe2aAypIvg0Gy7/c8G6G5v0OKizxpUN
JN4ru3qwr123+LXszgae9qa1vdj/A+7pPzY=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 13560.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{{3.7778821675567646`*^9, 3.777882189704256*^9}, 
   3.7778823163264093`*^9, 3.7778824028385553`*^9, 3.77788244563962*^9, 
   3.777882526239175*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"expo", "[", 
       RowBox[{"t", ",", "A1", ",", "T1", ",", "0", ",", "T2", ",", "y0"}], 
       "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A1", ",", "A11"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"A2", ",", "A21"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y0", ",", "y1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       SuperscriptBox["10", "4"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"3", " ", 
           SuperscriptBox["10", "4"]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"\"\<\!\(\*SuperscriptBox[\(R\), \(2\)]\) = \>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Max", "[", "experiment", "]"}], "/", "10"}], ",", "0.1"}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "18"}], "]"}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics", "@", 
    RowBox[{"Inset", "[", 
     RowBox[{
      RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", "experiment", "]"}], "/", "10"}], ",", "0.4"}], 
       "}"}], ",", "Left"}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{"\"\<T = \>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
         "Temperature", "\[LeftDoubleBracket]", "1", 
          "\[RightDoubleBracket]"}], "]"}], "<>", "\"\< K\>\""}], "]"}], ",", 
      "Black", ",", "28"}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<2\[Tau] (ns)\>\"", ",", "Black", ",", " ", "24"}], "]"}], 
      ",", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Echo Intensity (arb. un.)\>\"", ",", "Black", ",", "24"}],
        "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", "18", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "\[LeftDoubleBracket]", 
    RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"errors", "\[LeftDoubleBracket]", 
    RowBox[{"1", ",", "3"}], "\[RightDoubleBracket]"}], " ", "=", "  ", 
   RowBox[{
    RowBox[{"nlm", "[", 
     StyleBox["\"\<ParameterErrors\>\"",
      FontWeight->"Plain"], 
     StyleBox["]",
      FontWeight->"Plain"]}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.7778821991484785`*^9, {3.77788236328959*^9, 3.777882363461424*^9}, 
   3.7778824393229403`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1nk81VkfB/CbjJAaehQjk9IkqaTF8pTyURgpMlJJxmiTLGWmhSJa1dBy
LSlJZN+z78u9F3exNEwKVyRLqyQjNEVPPfd7/+j+4/X2+X7P75x7zvm97rw9
h232SzC+fCYxGP//+/XD+gPy059LX/BhG4n+cRwSr11G/LZwRMYJtLkx7kyW
qhb5tC+MRsN3xvXXiszyx9qcncsa5tdRfgbzJzwS46eR556Dfugur9iWv6j+
PPKtnd2M9lDuFABt+wG/W7Ob6PmXUODwemvDSKPIMX/iXMeQlLNvM80nCLY8
O9XbVuSuy3Cdlf1svWcLPf8qAvd37+tNeCSyPBMRnI5fxm0p72IiSMtn2cpT
5KxgRLzPNPJqEPeHwGTg3fAHo1aRrUPRptIoU35ISOsJw45PLQbPBsmDYVi7
ZUvHzxKdtL7r2CPLkpLUbxeZGY6A9ofBKlZkpxuoj57yftj5scg6NxGuIrnj
fDz1MyJQv7T0UHTgE5EbIzD08CFjt4AccwsRM28qtf1J9ozEnGU/pUi+IeM2
lnQ/cbYQdtH6o+CgEHJSZu9TWn8U+jV6HL6LpjzrDp4nn14VtYLy09Gw+9C0
9PrzbpE1Y2CWu3/8KIvMjAFzTavVj03ksRh0M1nPNQvJTncRqTkjfbpcr8j8
uzilcvuInlYPrTcWi/aG9mzgk2/GQu37hi2sETIjDnp9FQvCR6nfJQ7uuWf+
fjlKeWMcGL1aQXy/PpEN4pE0/81dGJFj4jF7VG7yZh+ydALWyeplpdeQPRPw
Zs2dvex2cmsCNhx4deCFxjP6/hK/zZMT8bRNT39cgXL5JFh9r2M/w5dy7yRc
SNGvsHSkvCsJ7ZYrj9tmkM2TcXzxVSfpeHJWMg6a2dXrbH0hsnIKTBmOy7cz
n9P3n4LhGy4sxxuUv0jBeouKdj6TbJ2KYOvQbW3TyEWp2GTxnUJiJ3luGkZa
hWY/SL8U+VIanBp29xyZRPlgGpS8Wf6mB8l26QiYNz7rWhmZlY4cdQtf/+c0
H80M/BS28VlcEuXMDLg+qbt+p4zGH8tAq7rzL8NzyE6Z2KS0av4SZ6rnZ+Je
305h02uyzj1EabGEnbqvaP/vYfa/8ZdLLKifkYUHi22PpWeSV2Xh4vTBdXEp
ZJcsuJVEYr8h+XYWdFS+bvhrOh9ZUA1V3q6ZR+NLZmOP99iiZa1kg2zw5g0E
RXaQ3bNxRmZtrYoxOSYbkfzontFicnM2Fl7rSBy7TM+TzsER176PyT70PMMc
7Ih6ujFIluyZg6I4E+3t88nxOTDvd56oa6HxWnOgsO+sUuceyuVy8WPCmgfH
5vXT+cvFcWFiUONbqj+aixChz2KXNqpPzsVDLVeV6TJU/zgX33/9ek5QvXwe
HqgKzjTIU26SB6GtZe9f76jfOw89jJmlUmWUp+fhzuE808TZ5K487E/8tXVc
l6yYj7NnJOY7RJPN86G0sC11Wj7ZNx/6teCbBb2h852PmCyNeqfLlPfm4552
46JEM7JyAVYOP3ZYrEH1mwug/tRY5YIX+XQBLOQWK9qvpfq8AqR76zQr/0z5
iwIcU/j31x0dlKsWQjPkmM4BB8qtC+G3Q23nrQLKzxeCm84q41uRiwrhYHPD
5OQ+cn8hlPyFb1gZ1D+3CKWntPz8xim3LYL0/d9iJ/lQfqkIf8/d5Cy8QC4r
Qt3X5UcN0P0qwk6fjX6sneSfinFiqeG11gYaz64YhSsiNjBlKL9cjFHjmek+
fBqPVYznYaqmAtm3Ig8Xozr2rvT1Oso1S7A9NyCtr5/sUIKbG7c6vUsiM0tQ
vWjINp9Hri5Bs3b/hIofeawEzB0ZVbY25CWleFnlZqU3nebjVIqzTrY5y8Io
DytFofAGo0OezC+FKTuizW0j+VMpFMMPphbrUr9OGZq8N6dc8SPvK4PZsCuv
j031N8vg6qFnvXqc8voyNE9bd3XgDzKjHFYxK+6oXiavKodwxjsJr3bqdylH
x8fdZn5bybfLYbrZXTaihOobyyEhSF96YgZZsgJrF773Pyv+vgy+ONO0PvYF
2b0Cmf1HzC11qD6mAlxJzmcf8XlrroDFePRcn2jKpSvR7fpfnynqtD+GlUjO
e9tnsYVyz0o82KpqaztB/fGVKEgzHz08jfLWSgS99lBevZX6pVgw9B/h6PZR
PpcFr451M40qyatZeGSVpZjSQ7Zl4W2Sp02IG/kQC9kPe4Nsk8Xnk4WukfdS
Dwwoj2V9O78yFux13Yrs75MfsSDXEvYx3E58fllodE2Ttwwgy7IxN2dIXvmo
+Dyz0a3vcuVKCnkdG+6ZyY+GPWg9dmwEqi3abfM7zecPNtaMJRyf+VJ83tl4
KzSGXC85kY2rzZ27jOvILDYcv7x9Pon3U8jG9OAC3eUN5GE2QifYCybnkadz
YDCuUMCaTNbkYHaXfKDMeZrPeg60x2tP9+SL7wsHmi0HI7XXU36cg+zQS6kf
g8lMDm5wJBSb0qg+lQOpTcGrB/6h8as5kLAePxEhvi+dHJRds/xY50oe44Cl
sELaeDONN6MKngklOYadlC+pwvsKMxMXY8rNqiCvkawSwhbfvyrs2+7kuG8h
+WQVxiXdjdJUqD6sCkVql93iRyjPrEKmybEgxiLK+VXg9vzn2hZDyrurwBBt
LN3XKkx9dffBWTda36xqJNzMyBM4iu9vNZh6n200fyZbVCNy8AAnWobG31eN
yS89N0zxJvtV4xx35Mr8C1R/sxr31Ez1eMnknGp4pXosrDET3/dquPu0vDj5
nvysGjZlR/+K8hXf/xqMJRVePFxMVqlBgtfnDVHi+7KqBoNhe08m2pGtahBV
pHX95HGySw2YBxsRK74/Z2u+vf+3azAsuUD2fj3lBTVQa/n6A0b8/qgBP1Dz
3XgUjfeqBjZvTcuVxPOV5GJyiyW3WJY8h4vH+wOk/Iup3oALtXNxU9I8yTZc
vDG13pX2lurdufA53RTSlUYO4GKe8vX+qfupPoaLisbKMwHtlJdwcYq94YdI
VcqbuUg24szyZpEHuAjsqPf/YE+W5mGeu+KmnBfUr87DDcuHJhPifkMeGvKm
llYGkLfzwC7WqbmyVfz+4iFw+ebOaPF5DeRBL/JdRdtFcjwPoXWD+n+uIVfw
EMAOtPJ2pfFaebhVHt68IJjyIR62tRYw1DzIcnz0mspo3L9L1uAj7qBjmsMu
6gcfyspWhdpKZHs+6q0OfvnFSfVH+ZhId/00Oo98lY/1ez9yg8X3OZmPqcmm
Q4u2kTl8SE9azvT5h/b/MR+RCrNW1itS/wgfF2fKZswZIMsL4L9dd+KjPPVr
CWC20DD/t9WUmwhwUa/ox00faDxHAdT/LtBIbKN6bwFSNVfa+xuQQwQowurH
jZOoP13w7XnhChDb+OrpwDsar0uADmHuw1/Mqf5fAWzUldKCxe9XxVrMOKBy
d/MKsnYtthVKM4d2k81r4aH7QX2meD/21OJQx+iT3b/TeL610AgfVTzaNGD0
P0K3lpM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0Hs0lAkYBnDLTi67teWyoU2NwqwZl0TJZd+3KZvNqlgx2VxGyB4iKW1K
zKD6JCnWHjaX2lCo6TIuSzJ8QlonlbTuSsYwM19Jis4a++0f73nO75/nnOdl
hsR4h6mrqal50vd/ltq4jLxotITkhRsZZoMJkNyVbvMboYUS03ZXG91k0Fra
LwoiDFFi1pM6JhbC3zYab7cSLMSs0Prij6fhJizP2kg4YvKJfrbVpgtQtI05
Yku4Y3DOLdvzhX/A7x7mZ6wIHi7llrsIdK5BdidrgE1E4K43R42cqCpY7/XK
xffCMVwa/55fpv4ARkn7z5xVQlTMD16Oz+2E3dblOZf0CeT07S84VPYUDOuO
k3qi8xhVqZ6iltgDszPdvgGKi1iZahK4heyFjFX5ec5bclG1Qu2mg/ogVNnW
ioXpeShWnZN7TQ6DLCf1Bj/vErKs1z+ZsnsJLdoLcR6TRTi0x3I3L/oVPJfp
ZYQLLqMJsyzkxvFRyJb4dPQz/kTBJ02RWfRrKCmOivGtuIrGjW8GDYPGwKX8
Z40C+1KMUp1ivOJIweIeUyUbKsPDmmKd2VkpDGzWD/tFcB1HBQOxpGgclk8N
1lVpVmD1rGxe6iGD0msnj2qKKnHZdGrslFQGdcQHUzOnm5gxLD/Ji5wA0zg3
B3epCN+NB+lkUhNgGTHSu/PBLYw+/GW1dugkpFUQWXziNtpd7Bfw2ydBJ67w
00zAHeRFvl0zxZaD92OTvQfX3sUheYbjTLIcksKqpj8fv4scY2OfE51y6Emq
+e6bOjGe516XCo0U8NbaTGCUVIWx53IzD/orwD5EFZ/nU42LVnoyu/IVEPBY
eWW9eQ3OfSDL4rsV8MMT99a7EzWofbilRMxQQpDfVwXVDbVoFOn1U+4GJWw8
tDmyKOUvXLSsLs4nWAnvW4mYK251SDWcPTaRpoSBIlcLlmE9ZgaoFFsqlHBq
cUBP9kA9ji/xV2M/UoL/wrij8PY9rD6arNc1qYSptKGLvr82IFPODX/OoODA
93JTN+f7uKhgnb+FCQV6Z/eFVy9pxNq1e6/u2EDBidBtlxd3N6LHWLntm+0U
aPIftU37SNBRPUefH0QByVH1KhskSFS1PRLFUjDSLB3vW9WEBnO8Z94CCnRX
pO3UTm/CFCsW/0UWBaWuvXcslU3ok0KULC+kgJPouG7PjmaUsIhYRjkFbSc9
tR/WNGPhutSm4Sq6f7vhINuYxLyyAw4LjRRIviWsRleQ6OfsdMxSQsF9rU+J
+StJvM85U7mbdm1rv4k2k8Riz6aXFbQruUXBUgsSvRm8035NFOQ4mb8udiBR
N+JsS0UzBeGW9nIDLxKFMms79wcU7NMuce70JjE+kHUolnawzCAj1YfEsL79
V/Jp+5d+5Ez7kZg02PVMQXuHaX10VyCJaiHvErJaKdhozH2XHkVic0LpcHcb
BfZzd7jcaBK5TzvM52nb/bMmey6GRPHinECzdnp/LsM+Io5EZh6n+Ajt1boP
j7glkLg6xCjK4CEFK6c2tf57nMQxd61NrrSNu8q/FieSaFbR8SGUtn5mRo2p
gESJxsutYtrLDsxr9glJjE7D5/20l/wYzbuQSqJrXrqvRgcFX7CHr7mfov+3
0NJuSVtLZ9fcwmkSq4/MsL1p/wdIoGfn
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999553\"\>", {1356, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.9682314252449151`"}], "0.006984708055688084`", 
         RowBox[{"-", "138.6216027248875`"}], "3.6027462924322783`*^-239"},
        {"T1", "2302.8904927703497`", "28.962285940146163`", 
         "79.51342299187064`", "5.452367115390423`*^-180"},
        {"A2", "0.`", "0.`", "ComplexInfinity", "0``307.6526555685888"},
        {"T2", "200.`", "0.`", "\[Infinity]", "0``307.6526555685888"},
        {"y0", "0.9747898975972954`", "0.001961135136364782`", 
         "497.0539151137717`", 
         "1.0193392167931695103088988555273989435786865812`15.954589770191005*^\
-377"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {1356, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 293 K\"", TextForm]], "InlineText"], 
      Text["T = 293 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 13560.}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777882198578754*^9, 3.777882204608176*^9}, 
   3.77788232110828*^9, 3.777882407585872*^9, 3.777882448826906*^9, 
   3.777882526426634*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["200 K", "Subsection",
 CellChangeTimes->{{3.7778821014570217`*^9, 3.777882102457608*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"files", "\[LeftDoubleBracket]", 
      RowBox[{"-", "2"}], "\[RightDoubleBracket]"}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"4", ";;", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], " ", "=", 
   " ", 
   RowBox[{
    RowBox[{"experiment", "\[LeftDoubleBracket]", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "\[LeftDoubleBracket]", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], 
     "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A11", " ", "=", "  ", 
   RowBox[{"-", "0.8"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", 
   RowBox[{"3", " ", 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A21", " ", "=", " ", 
   RowBox[{"-", "0.4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T21", " ", "=", " ", 
   RowBox[{"2", " ", 
    SuperscriptBox["10", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y1", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"expo", "[", 
       RowBox[{"t", ",", "A1", ",", "T1", ",", "A2", ",", "T2", ",", "y0"}], 
       "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A1", ",", "A11"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"A2", ",", "A21"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y0", ",", "y1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       SuperscriptBox["10", "5"]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          SuperscriptBox["10", "5"]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"\"\<\!\(\*SuperscriptBox[\(R\), \(2\)]\) = \>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Max", "[", "experiment", "]"}], "/", "10"}], ",", "0.1"}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "18"}], "]"}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics", "@", 
    RowBox[{"Inset", "[", 
     RowBox[{
      RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", "experiment", "]"}], "/", "10"}], ",", "0.4"}], 
       "}"}], ",", "Left"}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{"\"\<T = \>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{
         "Temperature", "\[LeftDoubleBracket]", "2", 
          "\[RightDoubleBracket]"}], "]"}], "<>", "\"\< K\>\""}], "]"}], ",", 
      "Black", ",", "28"}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<2\[Tau] (ns)\>\"", ",", "Black", ",", " ", "24"}], "]"}], 
      ",", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Echo Intensity (arb. un.)\>\"", ",", "Black", ",", "24"}],
        "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", "18", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", "\[IndentingNewLine]", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2"}], "\[RightDoubleBracket]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"errors", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "3"}], "\[RightDoubleBracket]"}], " ", "=", 
   "  ", 
   RowBox[{
    RowBox[{"nlm", "[", 
     StyleBox["\"\<ParameterErrors\>\"",
      FontWeight->"Plain"], 
     StyleBox["]",
      FontWeight->"Plain"]}], "\[LeftDoubleBracket]", "2", 
    "\[RightDoubleBracket]"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{
  3.7778821074882154`*^9, 3.7778822136244507`*^9, {3.77788226749783*^9, 
   3.777882267713967*^9}, {3.777882349746504*^9, 3.7778823669934397`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1nlUU2cax3FFllYoBVxAKgpFxIFS2jItVOjkNzVqAaUFnQwUBStGwYyI
yjZWPCIOiGBFq6KgFpAy4oJlGRQUCLKIiCxCDIEKYV8SQjY2F6j1Pv7h3HNy
cj7n+7z33Lz3/SMWW3d7cTVmzZqV9urz5/fri78XFxY9qWm++Ij12uaJCOQm
//sDQT3jkGRUrlW6Xfq0iXFgGgbN7ySnxDQzNvkVWftMTIaFLYxrsmGfVKM2
DxIyjsxB8ND+iA5HEePTufg2yKNE/E07Y2k+Wt4bz+9r+50xuxBITLjSbdDB
+MJtrBKfPaW43clYXYzV85vlCn8x43UlCDjGuX2ki5xZho83Zs//15JuxtN8
lHrYGzhPk23u4ZvvUysMTXoYcyoQN9DGsxwlH66Em8hStZjTyzinCqMLZlLO
zJDbquFX7x4ypOpjrF2DSpFuofsV8mcPwIuNDM8Vkf1qMTzXf1mZTz/jYw+R
oLF8ao3hAOPCOvjrD8dpj5O7H2FjtUeK7TmyfgP0TTWyPcMGGZs1YkBrKFAS
RM5vRLitNLuwk+zahJz/ZTp2uA0x7myC47s1fqVp5LDH+JtjXWlmBlm3GZFX
Q0XlZsOM05txzHy+dUwU2bEFTaOVs3e9ID9qwUeNlkdnT5EDBHi/efqvETPk
KQGcXLeHt2dIGJ94gsP5VjdzWGQrIc4/z1zoW0a+I0TWR5+ctLWTMvZsxfT9
/ewGR/JAKwp6NyWrjMhRIpSE3pwUXifPa0Nu6MOD2gnk7DY4OVv6S/PIrHaE
VLVL5y0ZYSxoh1NBdLN6JZn3O8QDJ5Z69dL87KfoTOCJOBrUk5/CYHf5qRM9
1O06sOXV2+SsoF7RAcVnedbGOWSfTnTfcznjrSljPNoJjfV29k9tGR/6Wowt
F83q/X5j5g8dF0NwMtf06Flyqxhi0bp3AtRkyy7U5Og0VJjS+uAurOnT86i6
Qr2oC+e9ozb9Zwd1zW4YS7IsDgupf9uNbbcKfDfoUU/phtvM5fYier5Dfd2w
+HHq8PY95E968O4Do9KGpaOMf+xB0kI9mxtl1Kt78EJ1Lf7Zz2TDXkxPCdgv
XWl+Uy/8/BwKQ0Kp/7cXTm6m4XODyMpe7AizvrwulvxVH0ZivphwHiYf7cOH
19NiuCXk5j6UxTfWTprQ/Zf0Y56LrSJrHjmoHzsWzdnsmUnzBf24zFbP4faQ
Z/phHM2qTNaiebcB6OVpuFfZk88MoMZ6+6q6DJoXD2Bvyb0k616y7SDYLnda
pSk0Hz6I9MRrEcFv9qd8EDouayMECprXG8KKiQ5DHy71fw5hnVb92bvF1DOG
wKqe0Xy5ifrIELLsepO+V1F3GkZx4j6eYQD1mGHocjo0a9eT64fRzD4iubqT
vEiCMoO9HHkSrd8mwZZtm/fss6F+U4LP245uNuui/kyC584BL+c0kldL8TC+
gF27kuaTpPBcyl2Wu5DcLkWUlt9Bja/Jy0fwAz/6VrAeec8IdJ8VldbzyHdH
4KE76VkWQtaRwU/90Ds2g+wle3u/Lsrw5a6D/qZV1AdlSBVqJSb9SnYYRWiF
1N3mzf4fHMWHVjMTu1aTH4xCHVtiuJzDGHPluP9D2y/9MsZ8ezkcqj9IsHWm
/g/5W++Hv1+OxpndJsWR1NPkCHX7SWhhRL1KjicFCzTPKZnnhUT+1vvhGygw
5ou6v/Bp/RcK3F3EytM9Sd1XAa0VbZk97tSjFVhrdY3bfZV6lgLC+HOlqXQe
UKfAg7C1e1tPU1coMJW28RfTPOrGSlTOJFwapN/Ld1HiK/1bkdrnqW9VInFH
0lTTc+pxSpSEBUxq76N+Q4mVVvclBvHUHysx6/UlZ/qkEl7f6Vn9tpW6mQou
nGDp+wJav0oFi12FvIho6oEqPC8o36PnTf0nFQ7J1r86AdTzVXhP3/ok35C6
SIUIoc+SxaA+rYJ39vHaU89of5ep3zoPfFc1jBvMVZcnaP1uNcTsQO6BROqn
1bjesobrGkW9WI0D2V866Wyh3qmG6U57z+MLqGuN4Q777oSONXWbMcQu9uJ1
bKD+3Rhk3kW5rI3Uw8bA3RBRxJNTTx2DQ+ql1fZ0Pvn8Mfhs+JmVUk+9fwwX
HGweJ8RR1x2HBmvYWPbm/H06jrg//x58Tp0zjtlx6QkTEdQPjOPIO33npDeo
p/9fvz+O2751O42MqUvHUWuXNF3/Zv+NJlC+8IKhag11xwkIXtRFpH9MffME
chJPKFh/H2X9AbHl0CU=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0Hk8lIkfB/Cx0a7YZJOmaF/K1o9FjmSx1febivqRcqSQ5L5C7ilrG3JL
jpW0EqXWFbLFUJFrU/GMm5RcDTHMPBTNs9jss398Xp/X+8/PZ6uzv6XbVwwG
w5fOf92Ss31mgnMWmt2ur/NM4EJetG/4Ysk+nAyoyCbsuLCmpzObU2KOij+2
HKjU5sJY4OflasZJ1D/gp9/3LReeLa1Szyw5g/OlrpbTQgLMG+NLDdRcUD8j
ivdnDwFPY2UOFTI8kKckmSKsI+BH08xB+T5vPFWpucGllIAbMluCY0r8UK6y
S/d1LgHi/E6JixiAWZdV2MxMAn42u2ahrRaE98udDeZSCAgsO5UzuSEEH2Ru
09JJJqBoneJULiMM5b4uziulPRI4rHtymoX11yvk9NMIYPbeYa/tu4gq8e2H
Cq8TcOwn97a/6n/BQml7sf48AmJvqDIjSn7Fg8Lqb3PvEzAU8Vl7sykb9W1X
1r17TMDiztf9IRiJ0bnDLP9WAuRHaiI6d0ehfvpfLnpDBOikZStrqF1GpQnF
pPWf6P1GES/jlaLx0UjpTr4kF7w+nfHnbYjBeJNVYrnb6H9PbHuSzYhDRbZG
6x5bLjxdLe4kWohDM85C40IoF/o546utpuNRl1/0Qj2TC2s3F1mu6UvErGrr
xw2vuRAxpMlnlVzFSS3jf1jn2iErRTa1Jy8FdZ2+SEtntINd3t+bmaapmFfT
xUp52g6hFm/rgzAN7cT2aTG/6YDSh7ek1dR+Q3UXcU842wEKrO13bzCu42Ej
K3WV7zuBYuzqDi25hfwY5jKb0wVK0iY2oVq5mG5fdUfQ3QWHN9oPhFTmovSQ
corrbBe0ZTb4P3bMw0UivspbtRsUS6dCarxu46M/izLKs7uhdsAgihORj80Z
BSpy7B74ovPm94f3CpBPXGANGPUBe3xzW8lCOWq1Lbor5AzA4Hxkw8taDlZs
41jV7hyG6ZqemibbZ0hSDq/CpkfhuLWG3TmiCf/QWimbleFB2K7E+8EFLbj8
JEA7rmEczhcw2Gt6WvGhpE/k0WMf4P2eCSdlQTs29kVtUMqaBNl3gdLvhjuR
Oyf6bv/NKVBwv6Ti/7EbHxh9dLFK4oPUe6Zm/WgvtkyWju05PA3Vs1NPLVv6
8UCq1AnViWngvjCRUu8bwAye+M7UsBlozdA52NzwFqW8PnyfyJ8BbbXivfl9
71AlKdlpo7UArC1t65pGh9H2m9hBpxIBlFe9yujkjWC6s/qD4FkBeKqWF7sK
RvH1H+EmS5pCkJN/s/skbwwrFmLMtZ2FsOBhulVAvsek2zfu7kkVgm7UqY78
zzxMZqYZ/L9KCB7y9+drpsfRUM3xvEuPELgyxheCFiZwrbgkX3JWCKqXdwRd
EXzANEavxZgECWN1d7Sej0zi8bXjOj8wSehwdDPPn5zCQvnBe3MqJFRc9Bsd
HuJjyKBNkKEeCc8Xa3ueTU2judhDNR8jEgwPFCXVkzMoCLKwuWRGwm2Jtxwl
ngDPjt6sYFmTsFfD6uAPAiG2uneYEvYktHFljeN4JBo2N1pmOZFwWrEqJsZn
Fu/GBh46707CzOVY5iZyFvcFG+tOeJMQqrLoNug1hxLCeBNfPxJ+X0l1mRPO
YXET80pxAAnV61sV9Hw+YkbvkWyDYBIkpLt3S41/xE1+R2dPh5Ig0Puyou31
CXVtPQOsWSRwb7VFx/M+YeOuV8FjF0g4YlBXo+U9j0sSignHwkmY50Qc9xLM
4739skcjfiEhK2jkdqfHAgqWb351LoKEfif3/KSZBVRONDpt8isJMskpjiGe
n/HK35dK52mH3oyNIEc/o7Hy18kxl0hgDeWZPnEToUKzKX8Nm4QghzM9VSMi
vBbb7BBMWyt4mno7JkL3Gm+ZUNoziawtYuMinJAcfBZG27U63d10SoROQcpb
wmnbrG+hhudEuN/S4WUkbf2XmlskV1G4nG44dZX2F10xd/vtFO6IcjcrpP3Y
9Goi+38Uqn8nM1BEO8xZofyeKoVim3JcS2jPpuymSA0K48rPscpoj/K9EqP1
KKwdJtMf0W7O6yorNaFw8MKujHrabI5jd9cRCp9fS5VppL2XOyMSmVKodHE4
oYl21dLq/UbHKYzKORH+nHaBzc/dfacoTDOstmj7b4/vC9GSHYWnE6qbCdpK
0ScUtzpQGHrtgV477awKfzcfJwpXehM3dtG2frGckOpCoVWkX2w3bdnhhLJK
Nwrr+s3me2hzF+S733hQ6PnbDqc+2onSd0UrXhQKfZfb+mn/C+O7igo=
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999913\"\>", {9570, 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.8148385771780812`"}], "0.005791954304048135`", 
         RowBox[{"-", "140.68456593460536`"}], "2.0782193711118048`*^-165"},
        {"T1", "12318.091727074585`", "123.38303602979228`", 
         "99.83618594131724`", "1.4160202533376268`*^-142"},
        {"A2", "0.0686862004082748`", "0.02448092014904711`", 
         "2.8057033800238234`", "0.005664758977254175`"},
        {"T2", "595.4035442290717`", "335.56742700141746`", 
         "1.774318650500475`", "0.077973623099564`"},
        {"y0", "0.9847207908952575`", "0.0009894892916441779`", 
         "995.1808465344817`", "7.528965739572986`*^-297"}
       },
       AutoDelete->False,
       GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
       GridBoxDividers->{
        "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
         "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       GridBoxSpacings->{
        "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
      "Grid"], "DialogStyle",
     StripOnInput->False], {9570, 0.4}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb. un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
     InterpretationBox[
      Cell[
       BoxData[
        FormBox["\"T = 8 K\"", TextForm]], "InlineText"], 
      Text["T = 8 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 95700.}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7778822154225807`*^9, 3.7778823214675713`*^9, 
  3.7778824079318647`*^9, 3.7778825267401266`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Subsection",
 CellChangeTimes->{{3.777882112487054*^9, 3.7778821128775215`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"data", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], " ", "=", 
   " ", 
   SuperscriptBox[
    RowBox[{"data", "\[LeftDoubleBracket]", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], 
    RowBox[{"-", "1"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLogPlot", "[", 
  RowBox[{"data", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "300"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        SuperscriptBox["10", 
         RowBox[{"-", "9"}]], ",", 
        SuperscriptBox["10", 
         RowBox[{"-", "3"}]]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(T\), \(1\)], \(-1\)]\) vs \
Temperature graph\>\"", ",", "Black", ",", "28"}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<T (K)\>\"", ",", "Black", ",", " ", "24"}], "]"}], ",", 
      " ", 
      RowBox[{"Style", "[", 
       RowBox[{
       "\"\<\!\(\*SubscriptBox[\(T\), \(m\)]\) (ns)\>\"", ",", "Black", ",", 
        "24"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", "18", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"errors", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}], "=", "data"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"errors", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "1"}]}], ",", "3"}], "\[RightDoubleBracket]"}], " ", "=", 
   " ", 
   RowBox[{
    RowBox[{"errors", "\[LeftDoubleBracket]", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "3"}], "\[RightDoubleBracket]"}], " ", "*", 
    RowBox[{"errors", "\[LeftDoubleBracket]", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], " ", "*", 
    RowBox[{"errors", "\[LeftDoubleBracket]", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}]}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
     "\"\<T1_DFB1_DTOL_2018_09_26.tsv\>\""}], ",", "errors"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FilePrint", "[", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
    "\"\<T1_DFB1_DTOL_2018_09_26.tsv\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.777882265260878*^9, 3.7778822947831593`*^9}, {
  3.7778824963201733`*^9, 3.777882512393449*^9}, {3.777882670549285*^9, 
  3.777882710278577*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{293., -7.7419203488726795`}, {8., -20.709020658184215`}, {
      10., -20.419550799457014`}, {15., -19.95583931711982}, {
      20., -19.435080612740542`}, {30., -18.785682397339617`}, {
      40., -18.006529337422414`}, {50., -17.360503531460473`}, {
      200., -9.418824332807555}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -20.65418828415659},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox["\"\\!\\(\\*SubscriptBox[\\(T\\), \\(m\\)]\\) (ns)\"", 
       GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], None}, {
     FormBox[
      StyleBox["\"T (K)\"", 
       GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{-20.72326583694641, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "3"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.33697147582652, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.11382792451231, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.931506367718356`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.7773556878911, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.643824295266576`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.526041259610192`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.72753356339242, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.322068455284256`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.034386382832476`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.62892127472431, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.474770594897052`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.34123920227253, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.223456166616145`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-15.01948336229021, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.73180128983843, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.9208710736221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.02375108873622, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.86960040890896, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.41431317630212, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.903487552536127, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.721165995742174, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.567015315914915, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.433483923290392, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.315700887634009, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.111728083308073, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.824046010856292, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.418580902748128, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.264430222920869, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.013115794639964, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.214608098422191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.809142990314028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.521460917862246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.710530701645918, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.605170185988091, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox[
    StyleBox[
    "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(T\\), \\(1\\)], \\(-1\\)]\\) \
vs Temperature graph\"", 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->
   NCache[{{0, 300}, {-Log[1000000000], -Log[1000]}}, {{0, 
     300}, {-20.72326583694641, -6.907755278982137}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, {{-20.72326583694641, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-6.907755278982137, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "3"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.33697147582652, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.11382792451231, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.931506367718356`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.7773556878911, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.643824295266576`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.526041259610192`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.72753356339242, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.322068455284256`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.034386382832476`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.62892127472431, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.474770594897052`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.34123920227253, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.223456166616145`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-15.01948336229021, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.73180128983843, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.9208710736221, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.02375108873622, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.86960040890896, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-10.41431317630212, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.903487552536127, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.721165995742174, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.567015315914915, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.433483923290392, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.315700887634009, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.517193191416238, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.111728083308073, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.824046010856292, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.600902459542082, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.418580902748128, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.264430222920869, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.013115794639964, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-6.214608098422191, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.809142990314028, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.521460917862246, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.298317366548036, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.115995809754082, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-4.961845129926823, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-4.710530701645918, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-4.605170185988091, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{
  3.777615348716035*^9, {3.777615394402049*^9, 3.777615446109084*^9}, {
   3.77761557105577*^9, 3.777615590642848*^9}, 3.777619275821128*^9, 
   3.7776193607731223`*^9, 3.7776195787014236`*^9, 3.7776196892148433`*^9, 
   3.777619727487322*^9, {3.777619802378772*^9, 3.7776198212919493`*^9}, 
   3.7776199095515413`*^9, {3.7776307197629147`*^9, 3.7776307469495606`*^9}, {
   3.7776308205296335`*^9, 3.777630859234705*^9}, {3.777630890984586*^9, 
   3.7776309250611906`*^9}, 3.777630976139266*^9, 3.777631616140382*^9, 
   3.7776317332043657`*^9, 3.777631977321285*^9, 3.7776321108293867`*^9, 
   3.7776324380537505`*^9, 3.7778208432123814`*^9, 3.7778211802460423`*^9, 
   3.7778768476514482`*^9, 3.7778769249556513`*^9, 3.777876971249654*^9, 
   3.777881958055211*^9, 3.777882007868284*^9, 3.7778820446490765`*^9, 
   3.7778822358434515`*^9, 3.7778823215925417`*^9, 3.7778824080724554`*^9, 
   3.777882526990065*^9, {3.777882672693618*^9, 3.7778827144828296`*^9}}],

Cell["\<\
293\t0.00043423688757211027\t5.461177135041793e-6
8\t1.0143471248259528e-9\t1.0932157035562276e-11
10\t1.3548829102380652e-9\t3.182591041103768e-11
15\t2.1542152838706847e-9\t4.0346031397090546e-11
20\t3.626199841159015e-9\t6.630319872029672e-11
30\t6.941955031030364e-9\t2.0724121886562075e-10
40\t1.513086200673485e-8\t4.2415627273967326e-10
50\t2.8868825355883483e-8\t8.728984583032964e-10
200\t0.00008118140554206519\t8.131461030550873e-7\
\>", "Print",
 CellChangeTimes->{
  3.777615346763361*^9, {3.7776153924761825`*^9, 3.7776154441963754`*^9}, {
   3.777615569149969*^9, 3.777615588622642*^9}, 3.7776192736968985`*^9, 
   3.777619358448348*^9, 3.7776195775254946`*^9, 3.777619685576914*^9, 
   3.7776197264782596`*^9, {3.7776198013350644`*^9, 3.7776198202609453`*^9}, 
   3.777619908536155*^9, {3.7776307176437283`*^9, 3.777630744795802*^9}, {
   3.7776308176074057`*^9, 3.7776308561979027`*^9}, {3.777630888085287*^9, 
   3.7776309222079144`*^9}, 3.777630973049016*^9, 3.7776316098182793`*^9, 
   3.7776317261739883`*^9, 3.7776319703619165`*^9, 3.7776321048462477`*^9, 
   3.7776324321703253`*^9, 3.7778208370144267`*^9, 3.7778211742650213`*^9, 
   3.777876845314021*^9, 3.777876916875154*^9, 3.777876963357603*^9, 
   3.7778819500866795`*^9, 3.7778820005687933`*^9, 3.7778820446959405`*^9, 
   3.7778822358903165`*^9, 3.7778823216706486`*^9, 3.777882408152797*^9, 
   3.7778825270681725`*^9, {3.77788267277172*^9, 3.777882714560981*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Section",
 CellChangeTimes->{{3.777631771543828*^9, 3.777631771840623*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     SubscriptBox["J", "8"], "[", 
     RowBox[{
      RowBox[{"T_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Theta]_", "?", "NumericQ"}]}], "]"}], "=", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "8"], "*", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "x"], "/", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", "x"], "-", "1"}], ")"}], 
         "2"]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", 
        RowBox[{"\[Theta]", "/", "T"}]}], "}"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Abragham", "[", 
     RowBox[{
      RowBox[{"T_", "?", "NumericQ"}], ",", 
      RowBox[{"B_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Theta]D_", "?", "NumericQ"}], ",", 
      RowBox[{"x_", "?", "NumericQ"}], ",", 
      RowBox[{"C_", "?", "NumericQ"}]}], "]"}], " ", ":=", 
    RowBox[{
     RowBox[{"B", "*", 
      FractionBox["T", "\[Theta]D"], "*", 
      RowBox[{
       SubscriptBox["J", "8"], "[", 
       RowBox[{"T", ",", "\[Theta]D"}], "]"}], "*", 
      SuperscriptBox["T", "x"]}], "+", 
     RowBox[{"C", "*", "T"}]}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"B1", " ", "=", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "26"}]]}], ";", "\[IndentingNewLine]", 
   RowBox[{"\[Theta]1", "=", "200"}], ";", "\[IndentingNewLine]", 
   RowBox[{"x1", " ", "=", "9"}], ";", "\[IndentingNewLine]", 
   RowBox[{"C1", " ", "=", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "10"}]]}], ";", "\n", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLogPlot", "[", 
      RowBox[{"data", ",", " ", 
       RowBox[{"PlotRange", " ", "->", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            SuperscriptBox["10", 
             RowBox[{"-", "10"}]], ",", " ", 
            SuperscriptBox["10", 
             RowBox[{"-", "6"}]]}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"LogPlot", "[", 
      RowBox[{
       RowBox[{"Abragham", "[", 
        RowBox[{"T", ",", "B1", ",", "\[Theta]1", ",", "x1", ",", "C1"}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"T", ",", " ", "0", ",", "1000"}], "}"}], ",", " ", 
       RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
       RowBox[{"PlotRange", " ", "->", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "1000"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            SuperscriptBox["10", 
             RowBox[{"-", "10"}]], ",", " ", 
            SuperscriptBox["10", "7"]}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<T (K)\>\"", ",", "Black", ",", " ", "24"}], "]"}], ",", 
        " ", 
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(T\), \(1\)], \(-1\)]\)(\!\(\
\*SuperscriptBox[\(ns\), \(-1\)]\))\>\"", ",", "Black", ",", "24"}], "]"}]}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", "18", "]"}]}], ",", " ", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.777631748670679*^9, 3.777631962209364*^9}, {
   3.7776321212487507`*^9, 3.7776321219061785`*^9}, {3.7776321677782493`*^9, 
   3.7776322117757807`*^9}, 3.777882731701522*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NIntegrate", "::", "nlim"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"x\\\"}]\\)\[NoBreak] = \
\[NoBreak]\\!\\(\\*FractionBox[\\\"\[Theta]\\\", \\\"T\\\"]\\)\[NoBreak] is \
not a valid limit of integration. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/NIntegrate/nlim\\\", \
ButtonNote -> \\\"NIntegrate::nlim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.7776321163381324`*^9, 3.7776321269885006`*^9}, {
   3.777632168216857*^9, 3.7776322120257225`*^9}, 3.7776324544210887`*^9, 
   3.7778208434246497`*^9, 3.7778211807183332`*^9, 3.7778823218156805`*^9, 
   3.777882408262147*^9, 3.7778825272290173`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NIntegrate", "::", "nlim"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"x\\\"}]\\)\[NoBreak] = \
\[NoBreak]\\!\\(\\*FractionBox[\\\"\[Theta]\\\", \\\"T\\\"]\\)\[NoBreak] is \
not a valid limit of integration. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/NIntegrate/nlim\\\", \
ButtonNote -> \\\"NIntegrate::nlim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.7776321163381324`*^9, 3.7776321269885006`*^9}, {
   3.777632168216857*^9, 3.7776322120257225`*^9}, 3.7776324544210887`*^9, 
   3.7778208434246497`*^9, 3.7778211807183332`*^9, 3.7778823218156805`*^9, 
   3.777882408262147*^9, 3.7778825272602644`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{293., -7.7419203488726795`}, {8., -20.709020658184215`}, {
       10., -20.419550799457014`}, {15., -19.95583931711982}, {
       20., -19.435080612740542`}, {30., -18.785682397339617`}, {
       40., -18.006529337422414`}, {50., -17.360503531460473`}, {
       200., -9.418824332807555}}]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVzns0FIgXB3CvlEhJrKiRmcGMmcyMmSHKzFXyiplID+UV8s4jxCKbPIqY
iV5bbA09FCVblBRuKLRbhjZZQhRqyyNKCvn5/XHPPZ/zPefer55PuMs+ORkZ
mdz5+f8evMZScCeP8fcUFxpdUDTDhJqrMgoFE3yFZO0o+zZT7OzkFfEzpvj9
T90fUM+ZosW3dqeEyFn+AbdwOBRsis8yzOK76LLQsa1+VHGTKc6eTXH6LpEH
b17p4Ks1pki/2rLmFw1FEPfhSJmcKbqX63zhZCwC2iJF9cohLmbVBTS6zC4G
tnpZt3MLFx9K75yPiFwCsY+j05Tvc/FTz9x+0cBScCp53JN9mYuiyStr2ulq
kMbyNDydw8UahfGJCYk6HLcbVvcP52K78u/dcl0rQOc1f+6NFxdHlvMa1TQ0
QUBjqfOduUjQyzzPyNCC1wYVxjamXDSlMFN59Sth5duxkiYqFwWM9v1Os9ow
Krk00ruai4csiVYhkathGzU5/dxCLp6ybjKKLyFA1du9DINZDt7YErYiY0AX
cFT0WGeCgyP07qgXdD3Iv8nuI77hIGE91fazhAS5Yz9kJqo5WMybeTBlSYYf
H2gyy+9y0HRjC1OmiwythhU6+0s5KLCP0V6qYQB6ZOOB5oscTNr5aJieQQH+
NpUFf6dycPGeUz4cAyow1x18EpvEwTOeAa/W11OhpFhZ1yGOg6X7ljxymDWC
neSzWntCOdgd5XYqMHItWHbxns5t52BgLF0pQtUYPAttPpZt5eCX+LlDsSXG
4D22YG3iFg6qHLkSkD7AgNSYE1buVvP9m+JWt9FZ8OP90nsk4/l+7Q1joxI2
SA+n4bfFHPyt18NNdZINs75xxFhFDpa9n3xE38KBwJqwk/JyHFSbppwM+soB
l4zrC+E7G//Rzea+tTeFpjpVX8Z7Nu4O2h7fPr4OgtUfGlo2sjFgZkC+2poH
dx68vjGdxkbISVHeHG0NrXGEEsKUCTb2aPLk8q0h7hppb92ECQroxRG19dZg
51q82W/UBD0apS/N1TdDXtRB40uDJhg/u1pifHszpMi5Z6m9NMHyoEqO1pgN
kNxtzaV/miBl47DHxxB7ODtQ8LwqxATVJnaU5fgKYGGmeq/NIAsJHnquRzMF
oLd1OsWnn4X0xo/fEv8UgOLPlKjkHhba5R3mB84J4HdlPr+5nYVJm4qf8/KE
MHQ5o+1wIwsnm5MmY4K2gpn00o6c6yz01W5bQSpwho+7pWbrIlgYLLw3+Ee5
M+yfefaxJpSFEan5lVpNzhDe6TJkFzR/b8TfXXXUGYzHRor9fVh4vm760vcN
LvCPV+/KZlcWSoP12dIOF4h/92KRoQULeQ/inA8tcwVvj3AKcyEL17R9eH5B
3xWYXvyZdnkWyn7Y7YgWrlD8qoqRLMPCBk1LW/l9rpAVdLew9zsTHQ7IWmbc
d4VdgkR2wycm7qBmUk77bAeV1isvDV8wMfxs3tyN8h0w/lSOtq6QiZKompuv
d7mBSkCpRqodE7+PuBidDnWDZdm2FBUbJroED111OuwGtv2yFmc2MVFh7zJJ
TZEbeCWbCct4TAwU+ORKJt3gKd1+bJrDRCZVMdbv1G7o/WJwfkSPibU9TvCp
ZQ8EnKG/8fjBwB777rZpG09w7ZQ+M4pk4PKi2R+73T2h47hRf1UoA20UCKSq
SE+g1MlYCwIZeLPGMyou3xPatm/qTvJiYCL7jfrXz56A/orvFAUMXLn6retI
vheQSsYFpTQGGsVFh0T86g0f0wlVGz4Y474t8cM+LXvhl4boN8mhxmhV9U2h
JcwP5NjtnxfmrkXlyj4ZnT5/MLdihDj30pH22TZsw7Eg0E5VSvjbhI4W97XR
Ui4UHGh2Tx4X0PCWvZf+k/AwkDbObP+kS8Pqxct+qmVEQFCXRVfuBSPUrrza
VVYfCaZ2QvPlDCMkpkxHVmlFwZBgaLaxhoqeJkq5RwOiYZbgWK66i4pqVKfL
DRdj4ABzFVn3JwXDLYXhoeMHoWKMTDMvpKD1uaP0VOM4KGM/uEdzpmDD8qRC
xbRf4aVXV//nWUOMjVhb6PgyHgTj6+tCygyxQEP9lNzSRFjod0c5IWQ+77jL
I/keAu8tQ1maZENs6D/RdUeSBBupRlXCdwZo3UqSW9TxG8iHyZOtrxlgZVhV
xNtTh6Hv3pjJrSADzNBK+jfeJBm0mlwMklkGyGyVXLDtTgbN48/9uib1cWz6
ImUy9QgEpyiV+tTqY6hDVYm7XgpEUm+H7svWx+oi9vGppykQcnfg+rdd+viU
0uTrGJQKdW17vp+l6uNnHXPZIwppMOPUbn1shozDq5WmP91IA4mjaE7zGRmv
bPoyvNQhHYSEFWmrCsloEsezDPySDk+cQgtfRZMxQXopLe7kUegs0Siv2ULG
7vMDucGMY2B92/BeEpmMGtHpMzkdx+BiTP5zxWkSKkVu9Io8mAFebss8hC9J
2JboQUjXy4Q5xVa/mJskrPjhWpjYnAmZ+dONW4+ScFt+gC7N/zgIy/ntOX4k
bHT8d0p1WRb4yC7xq+eTcHKN/1/FpVkwFC7WMSaQkB/Q4kNxyIa+4pZrX2aJ
6Pnw7I6u8WzIuzNFreki4jpuwiabEyK4FfKo49BDIrYnbDRacFIE0nbb6okH
RIypU1JrOC2Clp3rS4PmfVv4e49Vngiqr3lXbK8iIj244lfLqyLoXOC/y7iS
iGsujt7iPBQBFgSN9t0hopKS3yrSexHECN86u5QQ8ZqQJt//nwjk+XW1zcVE
tDkz/kEyLALftkZzq3mnkpLvESZEUGrJc2FeJ+JPywsu2j9FkHA3b8XSIiKO
H+g4prZCDIMnzbqfFxLxxP2L4VJNMYT5JKnYzpshE7BDvFIMfyU029YWEDE0
+ytpia4YylX8+m9JiDhYtLx2kZEYOk3Di3IuzP8b+fdKI10MeUP5povnTeIW
ZKUzxLBxuLr1yB9E9K5j7FbgimEqvZUWnT/fZ9E3qDcTg8272v8+5RHxD2GN
4RELMUxTzlXsm/eGM2mqVpZiWLV+T1bPeSJ2vnb8OscXw3pZhfCd8/4fIFJJ
XA==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -22.979799228080577`},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"T (K)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox[
     "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(T\\), \\(1\\)], \\(-1\\)]\\)(\
\\!\\(\\*SuperscriptBox[\\(ns\\), \\(-1\\)]\\))\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{-23.025850929940457`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.72326583694641, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-25.328436022934504`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-24.635288842374557`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-24.229823734266393`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-23.942141661814613`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-23.7189981105004, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-23.536676553706446`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-23.38252587387919, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-23.248994481254666`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-23.131211445598282`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-22.33270374938051, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.927238641272346`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.639556568820566`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.416413017506358`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.234091460712403`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.079940780885142`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.94640938826062, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.82862635260424, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.33697147582652, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.11382792451231, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.931506367718356`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.7773556878911, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.643824295266576`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.526041259610192`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.72753356339242, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.322068455284256`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.034386382832476`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.62892127472431, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.474770594897052`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.34123920227253, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.223456166616145`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-15.01948336229021, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.73180128983843, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.9208710736221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.02375108873622, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.86960040890896, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->
   NCache[{{0, 125.}, {-Log[10000000000], -Log[1000000]}}, {{
     0, 125.}, {-23.025850929940457`, -13.815510557964274`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, {{-23.025850929940457`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.72326583694641, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-25.328436022934504`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-24.635288842374557`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-24.229823734266393`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-23.942141661814613`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-23.7189981105004, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-23.536676553706446`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-23.38252587387919, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-23.248994481254666`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-23.131211445598282`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-22.33270374938051, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.927238641272346`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.639556568820566`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.416413017506358`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.234091460712403`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.079940780885142`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.94640938826062, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.82862635260424, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.33697147582652, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.11382792451231, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.931506367718356`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.7773556878911, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.643824295266576`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.526041259610192`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.72753356339242, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.322068455284256`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.034386382832476`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.62892127472431, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.474770594897052`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.34123920227253, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.223456166616145`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-15.01948336229021, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.73180128983843, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.9208710736221, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.02375108873622, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.86960040890896, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{{3.777632209036131*^9, 3.777632212791165*^9}, 
   3.777632455155283*^9, 3.777820844197464*^9, 3.777821181549182*^9, 
   3.777882322630804*^9, 3.7778824089651437`*^9, 3.7778825279199986`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"nlm", " ", "=", " ", 
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{"data", ",", 
      RowBox[{"{", 
       RowBox[{"Abragham", "[", 
        RowBox[{"T", ",", "B", ",", "\[Theta]D", ",", "x1", ",", "C"}], "]"}],
        "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"B", ",", "B1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Theta]D", ",", "\[Theta]1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "x1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"C", ",", "C1"}], "}"}]}], "}"}], ",", "T", ",", 
      RowBox[{"MaxIterations", "\[Rule]", "2000"}]}], "]"}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ListLogPlot", "[", "data", "]"}], ",", 
      RowBox[{"LogPlot", "[", 
       RowBox[{
        RowBox[{"nlm", "[", "T", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"T", ",", "0", ",", "300"}], "}"}], ",", 
        RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", 
        RowBox[{"PlotRange", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", " ", "1000"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{
             SuperscriptBox["10", 
              RowBox[{"-", "10"}]], ",", " ", 
             SuperscriptBox["10", "7"]}], "}"}]}], "}"}]}]}], "]"}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<T (K)\>\"", ",", "Black", ",", " ", "24"}], "]"}], ",",
          " ", 
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(T\), \(1\)], \
\(-1\)]\)(\!\(\*SuperscriptBox[\(ns\), \(-1\)]\))\>\"", ",", "Black", ",", 
           "24"}], "]"}]}], "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"Directive", "[", "18", "]"}]}], ",", " ", 
      RowBox[{"FrameStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"ListLogPlot", "[", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"nlm", "[", "\"\<FitResiduals\>\"", "]"}], "2"], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"Directive", "[", "18", "]"}]}], ",", " ", 
      RowBox[{"FrameStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", "]"}]}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.777632138285451*^9, 3.777632140824128*^9}, 
   3.7778827364383755`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NIntegrate", "::", "ncvb"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"NIntegrate failed to converge to prescribed accuracy after \
\[NoBreak]\\!\\(\\*RowBox[{\\\"9\\\"}]\\)\[NoBreak] recursive bisections in \
\[NoBreak]\\!\\(\\*RowBox[{\\\"x\\\"}]\\)\[NoBreak] near \
\[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \\\"}\\\"}]\\)\[NoBreak] = \
\[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \\\"27.740165936018347`\\\", \
\\\"}\\\"}]\\)\[NoBreak]. NIntegrate obtained \
\[NoBreak]\\!\\(\\*RowBox[{\\\"40484.398978687546`\\\"}]\\)\[NoBreak] and \
\[NoBreak]\\!\\(\\*RowBox[{\\\"5.1351956929358`\\\"}]\\)\[NoBreak] for the \
integral and error estimates. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/NIntegrate/ncvb\\\", ButtonNote -> \
\\\"NIntegrate::ncvb\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7778823267048283`*^9, 3.77788240943676*^9, 
  3.777882528249356*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "4.864207412112809`*^-28", "5.32058543708375`*^-33", 
      "91422.40961323451`", "2.971943456223776`*^-24"},
     {"\[Theta]D", "865.8473478042218`", "1.4885492315502526`*^-62", 
      "5.816719591480917`*^64", 
      "2.850448646030483443413518968008262208875688`15.954589770191005*^-323"},
     {"x", "9.`", "0.`", "\[Infinity]", "0``307.6526555685888"},
     {"C", "3.9098454699360444`*^-10", "1.9030643426487254`*^-54", 
      "2.054499883327244`*^44", "5.185292467777894`*^-221"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{3.7778824260596876`*^9, 3.77788254280228*^9}],

Cell[BoxData["0.9999999994021187`"], "Output",
 CellChangeTimes->{3.7778824260596876`*^9, 3.7778825428648005`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{293., -7.7419203488726795`}, {8., -20.709020658184215`}, {
       10., -20.419550799457014`}, {15., -19.95583931711982}, {
       20., -19.435080612740542`}, {30., -18.785682397339617`}, {
       40., -18.006529337422414`}, {50., -17.360503531460473`}, {
       200., -9.418824332807555}}]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVjnk0lQsXhxFCJaRocMyZLp33PefIfHaZZxJlLMKVFM6VuMoURTgkU5lT
5imiQdgyJLdBSooyFBJdQ7pRqT7fH3vt9azf81t7S3v47/Pi4uDguL86/99G
x4+p/GD3Mp3Lryrn8e7GWcUKngvlz5gbDVRWxBbVMW087TE3e4A5qjzbyypT
R62C8PSIwLfM4pPUrXYB6jivelPtTPkYM4lPP694jzq2rytL1coZZ8psyrSk
blPHjI+5X5eSPjBf7Io24Fxm4NEHqU4NEdNMO6d0i8HXDNS5fr6FFfgv07J7
KGCshYFxe/SEs4h55tqyOO2wYgYG1mq0B5cvMLPpdu/pKQx0kqSdtJddZO4I
qdG5FcZAA7aqAj3nC5O94hLb4sNAMT+ZhIWkJeaMlw0r2YiBHEM7dHt5vzF/
iqxzE9jNwGlTsbnqiO/Mmg9XWT6KDLynsN7OL/Anc+lKQ4r/BgYWZ/DymE//
Yh7L1BP6zMHA7ujIoTSCAzRPWDvw/0fHGwt/J/1Vzgl2J0a+3R+m406lkMl3
3lzQt9+m0voFHa8cPsncJ7sG2m6UWBv20DHmqf8CNYcbnIUN0i1u0fFAlaf9
bNJakMnTPiORTsdH4+7VrmZ8IFR0bkAniY6w49Dax7z80Dc35Z0VS0flBMc7
FRECwN9dFfo1mI4rPlYSRwM3gGBWcdpPZzoGFpgHv1IVhJh9/Psr7Ok4OWDy
1HhaEFzth0QirenoU1QIlwghEHrdeCBTn462IjmfA8uFoea00jcbVTqur96W
X8YnApbt3hX8inTsMr1sPuYtAm8VKsvfytBRKyrjmo3sJshMU7B8Lk5HufkU
h105orAorH1xkIeOS49j735KEgMavT644j0NPZkCGsJfxCCRxl/oNkLDvlp2
A8NJHMyq1vyQHaJh9aXM2vCdW+GD9asP7/pWfceyYqHWbbB+OLVbpn3VH3+U
Sp+XAPPmfrpRMQ3BwVbI0YECE718Ke+urvYf9CeduUcBj+iIPRfyaRhfPhzX
FScJnHPZ4d+zaCilEcKsTJECjjOlbx0SaTjwM56hpyQD1HP36nuCaMhWtwiy
cZGBNh648yuQhgb+gvUeyTJgEZ0WpuVPw7rRVOr5/2TAJi2b3X101W/PVult
kwV42Z6rdYiGhvFV0h5O8uDSuS/tgDkN60WfbTiXoAhb68cjqhRoeC9w+zij
SRFuFVZytcjTsOOJ192JaUUIdgPdPlkavoz77m1opgSPrh0p5JGi4fKKLHLz
K8OM1tuKDHEa6k0Es86eUwHDmaIJBwEa9jTsGIiMUoOyLd5yPPMk9on8WUW9
oQZPI71VgmdJHPK/cXZ0VA0Gz5rkfPxE4iclIyrALpjNE84b+Ejixjz/+N+/
dkEPx1XHp+9JVNYfk2C2UOFt8cF+hVckBqjQe5u1SYiDiVi7+yQO7zb+LWFH
Qu9kyLb1bSRaGjiphfuS8J5Dy7qrdbXvGpmod5mEwuiHccxmEifYj0xav5Kg
6ib8yOA2iU6fPdvwBg3q/s7ck1lNov6d9Lp2BQZcH5Rf1M8hsa6zdEyWyYA1
A73JStkkSvU1CcU4MOD3/G53oSsk/poeO2EQywB+1fjMsUwSb+9QU+l8x4Bl
aVX+1Esk/hHZVdSVqw4aZMszxQQStxgvpT3cpAGHbewXJMJI/NxtviynqgHn
Fl5FCP1N4mOzAudIIw2oSCiW4w4lMcbKVGZ3qAbYP8oomQ1e9e2za64Na4Cm
eJBtL2vV92T2RJRpQpCYtF6H76offf43g6kNr7bKDx5yJnGxWcz3qq8eyJ0y
ivmlR+KyLfWyRbQebPq3yZyxyisTJt1fL+vBt47TeX66JHIL/r3T/KEeJOhP
jb7RXv3X7c27RQUmbKdhY7sGiRq/CpwNJ5hgUzSWWkaSyJRM3/mlBsAnxC3s
8U4SYw9RxDOV9wJv4E1HqhCJlUmHzuofMoSJJ66TOmMEOkWtOTB4zBC0+xNj
okYJ5DtZohwYYghbSi2fd44QeMRl7lneRUMw3cN/ynKYwG0qEVLf2w1h86Xu
2INDBMZ15zXXKhqBrmmplHM/gZ5rhpckPhvB8nSa3Eo3gSJLUf/c/GUE9oe4
B6mrjNPy+ebrjCGdK/C15wMCt/cdNwqVM4bRy/ylPZ0E9hX8THvhYAyRDsWS
SfcJBD0JMqHJGNrYvobTTat+qIvfcowJ2GmZCsxUETh88t31xhQTONWgGyu8
ygUsn5GgHBPojXyxrF5JoJxf0L6FehNoHJNpDi8n8I9DiRrT70xAYm3nYc4S
AvUM73G/AVPYwEwz6c0n0F14R27riikML8gEh6es9gWvvjzDZwbsYKOxM8kE
TgooCumImsFi6vvRMDaBvtz0s7dVzEDXruPiX4kEspbMj95wMoPgDU99bOMI
jHkbxii6bQbDUduCOiIILCkbenwuyByeayaXnjxOoJR7dOHeKHPYVvzaS9GP
wCxxpZO/ksyhrYRb/LUvgRfOB+8ILjGHKideW7oPgX5ewse8BlfzAofnzzwI
pEob8xmABXBf6dIqOUDg3ay6vZzrLUH7uS61lkkgaeO4pVncEjwUSxck9Ais
WMsxHSJvCflZfKHxOgTmBFtenNezBM6L9185ahIYsX9qZCTQEvT9ZAdHSAIN
hChnWgYsQey+pliUPIFPzsffCiuyAknlRlUKP4HOJiILbjVWQN/+VNVrLYFT
fNnKe5usoIjdfqCch0CuC5W5fM+twLrZh7qLi0D1xKdn07ms4e7RciXZH1TM
T9lsU+NuDfN67zY0fqLi7Uc2QQsbbcCgWzs56wkVL/S/WS//xAYG72/3+ppE
xd7OvtNC+vugaecgcHBTcXz9KLVmwA7U1nqp1fWp4flgtUItW3voFHA3eHJX
FZfU0+xDpx1A/EWCjV/eH7ju5YCJzumD0KV1Zd3hXBWsznRZnvnsCFzyqZb0
NmWk1C7PWMU7Q13rjV7mpBJKzPRn53G7gkfP5rwHyko4fbonuTDfDeaTTI+L
BShiVbCVe9rWw1BUl/NP1gMFVIVXB5/0H4aK+qAyOXUF3NRw/PNYoTvUVlHt
+4p24p4m2eljhz1gjtPiTavcTmyrNeHU2H4EmHxqLLVaeSyxDb37duIICBJF
RV2a8th/tufZt6ueMPPFxE2sTw593RUS5vy9wMmyKOhPHzm0VVs8oqDpDQal
FNF2XjmMSBy50v/FGyrjf3QV1cqiaMbAX674Jzjt/tGlcFAW56nz5c7hPnDK
qGGwg18WKU2nOHM0jsLcys3JCyiD9fMC3xu4fOH2cjrfkyAZTL7VYmPU6gtT
opu5nQkZ7FMKN61NOAa5czLjwTPS6KLqVpBi5gcxbPtZjipp1JCq2lLPcxzY
GahFY0ljWMvaXTW9q8w71bJAl0ae2ejr0uwTwNkUe+zHTyn82s3fctzZH4wu
/vG7tEMKcx7+/n5GJAAGdgmHh7Ol0H1JwCgyIABcBTIk7rpK4evv2z38XwbA
7vDX5teVpfA/I92qy4xAWNj8p53oN0m8K7CFbyI1EJ7ul7UNKZRE8toXmsRy
IHDQ7vG6GEqi1bn37BQHFjTGif7k+kxBYzO2hfpBFoQYhlqnzVMQBDUF3jiy
wNJ56zP5OQoSGexYBVcW7K994276iYKixZqnW46w4MItxdupkxQc6kw++imA
Bfk2ZapqQxT04dExMElgQWr+7ZnzHRR0fzjJOZvIgpwwyY2S7RR0SrrYeonN
AprVvsONbRS02PxBa+QiC3IXZxMmWii4Sz6VCM5igehoD6/RHQp+NZiiXLvO
Aucpq6iN1RSc47v0xrSEBZ1RWqfLKik49Uj3ylwpC3T2wjX9Cgq+3n9ps3Yl
C8ZNT4SFlFLwnqfe+r46FgjelzYcv0rBBsWPD0/dZIHLg4qSiEIKVn+6dF6i
kQXXQ5bVtxdQsCDoI9fROyxo9qke2pdLwcsaaSjYxIKy/zgXZrMpmLqiF37z
3ur9nk9kwhUKXsCP2k4tLPAS9yxUuEzBszFp3363siBJxFWnI5OC/wNCP6wq

       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -21.650181164505213`},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"T (K)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox[
     "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(T\\), \\(1\\)], \\(-1\\)]\\)(\
\\!\\(\\*SuperscriptBox[\\(ns\\), \\(-1\\)]\\))\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-22.33270374938051, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.927238641272346`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.639556568820566`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.416413017506358`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.234091460712403`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.079940780885142`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.94640938826062, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.82862635260424, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.72326583694641, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.33697147582652, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.11382792451231, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.931506367718356`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.7773556878911, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.643824295266576`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-18.526041259610192`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.72753356339242, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.322068455284256`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-17.034386382832476`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.62892127472431, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.474770594897052`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.34123920227253, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-16.223456166616145`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-15.01948336229021, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.73180128983843, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.9208710736221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-12.02375108873622, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.86960040890896, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.41431317630212, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.903487552536127, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.721165995742174, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.567015315914915, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.433483923290392, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.315700887634009, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.111728083308073, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.824046010856292, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.418580902748128, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.264430222920869, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-7.013115794639964, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.907755278982137, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-6.214608098422191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.809142990314028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.521460917862246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-5.115995809754082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.961845129926823, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 110.}, {-21.42941511981263, -7.7419203488726795`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{-18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-22.33270374938051, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.927238641272346`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.639556568820566`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.416413017506358`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.234091460712403`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.079940780885142`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.94640938826062, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.82862635260424, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.72326583694641, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.33697147582652, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.11382792451231, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.931506367718356`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.7773556878911, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.643824295266576`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.526041259610192`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.72753356339242, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.322068455284256`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-17.034386382832476`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.62892127472431, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.474770594897052`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.34123920227253, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.223456166616145`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-15.424948470398375`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-15.01948336229021, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.73180128983843, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.326336181730264`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.172185501903007`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.038654109278484`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.9208710736221, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.122363377404328`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.716898269296165`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.429216196844383`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.206072645530174`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-12.02375108873622, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.86960040890896, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.736069016284437`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-11.618285980628055`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-10.819778284410283`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-10.41431317630212, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-10.126631103850338`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.903487552536127, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.721165995742174, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.567015315914915, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.433483923290392, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.315700887634009, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.517193191416238, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.111728083308073, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.824046010856292, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.600902459542082, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.418580902748128, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.264430222920869, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.1308988302963465`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-7.013115794639964, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-6.907755278982137, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-6.214608098422191, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.809142990314028, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.521460917862246, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.298317366548036, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-5.115995809754082, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-4.961845129926823, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-4.8283137373023015`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{3.7778824260596876`*^9, 3.7778825437843494`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., -58.461686976646966`}, {2., -39.94981328865832}, {
      3., -39.57045635623896}, {4., -38.824162803165976`}, {
      5., -38.579353433307155`}, {6., -38.30887856568863}, {
      7., -42.03036546942217}, {8., -37.520214037718375`}, {
      9., -54.782629448988914`}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -59.98163259318212},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{-55.262042231857095`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "24"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-50.65687204586901, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "22"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-41.44653167389282, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-59.86721241784519, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-57.564627324851145`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-52.95945713886305, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-48.35428695287496, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-43.74911676688687, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-39.14394658089878, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-36.14821430734479, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-35.74274919923662, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-35.45506712678484, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-35.23192357547063, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Log, Exp}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Log, Exp}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 9}, {-59.625102139920784`, -37.520214037718375`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{-55.262042231857095`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "24"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-50.65687204586901, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "22"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-46.051701859880914`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "20"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-41.44653167389282, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "18"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-59.86721241784519, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-57.564627324851145`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-52.95945713886305, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-48.35428695287496, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-43.74911676688687, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-39.14394658089878, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-36.14821430734479, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-35.74274919923662, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-35.45506712678484, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-35.23192357547063, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{3.7778824260596876`*^9, 3.7778825438949957`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{1912, Automatic}, {Automatic, -8}},
FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (April 11, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 237, 3, 101, "Title"],
Cell[820, 27, 1947, 48, 112, "Input"],
Cell[CellGroupData[{
Cell[2792, 79, 10678, 252, 555, "Input"],
Cell[CellGroupData[{
Cell[13495, 335, 9087, 176, 524, "Print"],
Cell[22585, 513, 9933, 190, 524, "Print"],
Cell[32521, 705, 8066, 160, 524, "Print"],
Cell[40590, 867, 8009, 159, 538, "Print"],
Cell[48602, 1028, 7739, 154, 538, "Print"],
Cell[56344, 1184, 8382, 166, 538, "Print"],
Cell[64729, 1352, 9343, 181, 538, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[74121, 1539, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[74241, 1544, 3816, 104, 212, "Input"],
Cell[78060, 1650, 12240, 218, 501, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90337, 1873, 4641, 127, 287, "Input"],
Cell[94981, 2002, 8745, 172, 543, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[103775, 2180, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[103895, 2185, 6401, 178, 467, "Input"],
Cell[110299, 2365, 8098, 160, 543, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[118446, 2531, 94, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[118565, 2536, 3412, 94, 264, "Input"],
Cell[121980, 2632, 39332, 932, 530, "Output"],
Cell[161315, 3566, 1457, 24, 151, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[162821, 3596, 88, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[162934, 3601, 3836, 101, 183, "Input"],
Cell[166773, 3704, 786, 14, 47, "Message"],
Cell[167562, 3720, 786, 14, 47, "Message"],
Cell[168351, 3736, 36771, 856, 495, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205159, 4597, 3056, 77, 132, "Input"],
Cell[208218, 4676, 1012, 18, 23, "Message"],
Cell[209233, 4696, 1179, 24, 113, "Output"],
Cell[210415, 4722, 114, 1, 31, "Output"],
Cell[210532, 4725, 46867, 1095, 489, "Output"],
Cell[257402, 5822, 9852, 236, 475, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

