(* 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[    262896,       5757]
NotebookOptionsPosition[    260960,       5695]
NotebookOutlinePosition[    261306,       5710]
CellTagsIndexPosition[    261263,       5707]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["DFB1 - Toluene - T1 fit", "Title",
 CellChangeTimes->{{3.777365491334436*^9, 3.777365495812441*^9}, 
   3.777620196717688*^9, {3.777629532982868*^9, 3.7776295353179007`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Temperature", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "10", ",", "15", ",", "20", ",", "25", ",", "30", ",", "40", ",", "50", 
     ",", "60", ",", "80", ",", "100", ",", "125", ",", "150", ",", "175"}], 
    "}"}]}], ";"}], "\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",
 InitializationCell->True,
 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.777621697298096*^9, 
   3.7776217107098985`*^9}, {3.777623372142132*^9, 3.777623389315233*^9}, {
   3.777629310601593*^9, 3.7776293145877466`*^9}, 3.777629529815345*^9, {
   3.7776295620384088`*^9, 3.777629571122821*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"files1", "=", 
   RowBox[{"FileNames", "[", 
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<T1/*.tsv\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "files1", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"experiment", "=", " ", 
     RowBox[{"Import", "[", 
      RowBox[{
       RowBox[{
       "files1", "\[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", "8"]}], ";", "\[IndentingNewLine]", 
    RowBox[{"A21", " ", "=", " ", 
     RowBox[{"-", "0.4"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"T21", " ", "=", " ", 
     SuperscriptBox["10", "7"]}], ";", "\[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[{
              RowBox[{"-", "1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Plot", "[", 
        RowBox[{
         RowBox[{"nlm", "[", "t", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "20000000"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "20000000"}], "}"}], ",", 
            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"}], ",", 
              RowBox[{"-", "0.9"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "18"}], "]"}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Graphics", "@", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"Max", "[", "experiment", "]"}], "/", "10"}], ",", 
            RowBox[{"-", "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]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "\[LeftDoubleBracket]", 
    RowBox[{"9", ",", "2"}], "\[RightDoubleBracket]"}], " ", "=", " ", 
   RowBox[{"2.4213", " ", 
    SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", 
 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[{"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[{
       "\"\<\!\(\*SuperscriptBox[SubscriptBox[\(T\), \(1\)], \(-1\)]\) \
(\!\(\*SuperscriptBox[\(ns\), \(-1\)]\))\>\"", ",", "Black", ",", "24"}], 
       "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"Directive", "[", "18", "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Thickness", "[", "0.003", "]"}], "]"}]}]}], 
  "\[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.777621802027087*^9, 
   3.7776218378921523`*^9}, {3.7776233981713114`*^9, 
   3.7776235300848675`*^9}, {3.777623593712366*^9, 3.7776236244549904`*^9}, {
   3.7776238559702845`*^9, 3.7776238837197375`*^9}, {3.777629306335264*^9, 
   3.777629307147484*^9}, {3.777629540094662*^9, 3.7776295570316315`*^9}, {
   3.7776296113419995`*^9, 3.777629658733358*^9}, {3.7776297285039415`*^9, 
   3.77762985655761*^9}, {3.777629954420553*^9, 3.7776299942120547`*^9}, {
   3.7776300903175287`*^9, 3.777630108957303*^9}, {3.7778204367740016`*^9, 
   3.777820440109849*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwt0gtUjGkYB/Ap00baLZbN3aBISUWUWtM8JSUkIVuxTdoY6ZgRUsiOUbo4
KN3GChPdjDQ1XXQzTfcUNZVu0226aVyqQYWo1jx5z/nOd37ne77/87zveVcc
oTt4KBIIBOaPR/7GxThHiWqaNb7yZW+hnMKP45SlZLbmf9960AY686AvQWuf
gue0TdZowppKwswtfd1oRpUBjLzf5BNNmrZk/RZwXit5nGknQTM5ALc8X7+7
yOhC05jWQKlayBvN7UBrG9uBKHg5e69tO5ra4wDzDvTq6ySI0ex5B2EJ4fy7
wdWt6D/5LhAizX5/s6kZnXiYCtW7Y3WMNJvQfA13YG+V7jsobpj+rnwUQk40
12hfqkfb6x2HluIpJ2qRCJ0W7AX2ir9eYq+qQfeqMsBEN0WjL7AKvUN2CoSv
bPKVgyvQoUOn4ST33Lok3dKf+T7gT0h4uF6/CH3XzBcchqfeJDTno+mh50Fz
heqBFsVs9JKRixBZV2qV7s9Dx/v+C/3L5hvSSh7KzZyhehme5EYEhOTcQq88
zoKoGtH8U5e8zOX1vIYrEGof7hjQy0Y/2hkIcZZGVncXJ8nNVK+7CuK4ustm
2unofvdgmBjxCzrklo312sRQIMa02aVGFqBb0q+B5bPdXUbPhFg/6nUdVA4V
eDuml6CZm25C7mpB7QzlcnRBYBi4Wem56bVVounnwiGR+KI0QlolN6WVfgsU
cpWMI/Reyi38ejICirn9QwxOLfarOxMJXyymXP7qFqFdL0eBQBZq6bWyHusf
RkbDiko78yaLBsy7nxoDnd4sjz54hf321rLhxAGuY4JnIzpv7DZU/Z1+L5HR
hPVizTuwMDmn//HRZsxLc4qFqyrdr87QW7AfOeou7KL4DXU7tqJZzfegcX+f
rqmHWG4qWZ0D5d8FkRuOtMlN0sjhAD187StWWDvm73SPg9hPDoUuTh2YL57z
ALLNM0p89nbKzSkreQBKIXkqF6275JbM9nsIpoOvLd4oSHDeJ4bxUOK7g6zt
OW3uYDycU1PXF4jREsUnCfDbSMSPG9KNedn0RNALTLbW56OFZZuSYMTQZPmV
T2iKwVQSyGJonEjXHpx3rDoZfObM3EMWo6kasY/gmovA08ewF/cbSedCkNJo
QCZj2l7bH0PH+I2YrVI09T4pBcY1yzJOW/dh3vrJFJhMvVDDu4GmLOh6Asve
nTG+0IYWHi5JBd+PddG3Kf047ySXBzJHR+Pka2jGhG0atEUlHw4Roylri9OA
d8epPX7Za/xf0SwdnKMTPY47o2UhWengSjrMTIhDiwSGfGifYFX4D6CpcTw+
LPOgaj0wGsB+hvoZsFgtxlxyGh1GT8uAmVkVhaO1aAOXjZmQbrN5OHASzRx5
mgm1S/dOLiFL0WbkLNhc3HhX3w9tYFCeBaxMjWF+Kjqsfk82uKfMzneTojkr
27KhR6Z26KTZG5yHRHsKQdlFzVF70KLqsafgaFnHG2CjZZpBOaC7g7V+Rgda
qLswF+rPziW6TqIpkpRccLG6wK7a8hbPy8IiD4itbyqcaWh7h9Y8sPBW8f7j
Dlqi5p0PbVZ+HG4umnRBtQBahnl50i9o9cjkAoguKAwnb3gnd5rz9mfQk6rQ
W3QMTajtfwYN3G82twOm/eGqABw2/nKlnjtdL1xbCLywdZV8EVqdXFMI/Azi
jxv9Hs/DyFQIYdsWfTMyRstIN4RwNTdLuckOrd3XIwTL5QMBn8+jTS6ZFMFc
2ffRszFo0vCNIhg8uWexSxNasvl1EVRP/XO9UXFQbt8D5GLoWG0pVSKhpbYx
xTCRaPF2whxtoPGhGKw3JHbvoqHt83aWgKLhV6JpENrGKKkEiPvryqAIvSBw
Rincr9cc2CxEC1OopdDtP7MzSIKmPBaUwstj5p+fqw3JzWYuLQO131cNLTJA
V67zLwOlYMF4vjVaxOsog5RMO5HGcXTaLPNyYE4qSV2ZaJppXDlwy9y3hWah
vwCxAkySbmpd6xz6eV8qYK6ntDdWhuY0vqiAsdP3v0s0huXOcdtQCTj+VnRy
KbsSbLpYI3o2aMbkVCXQXFljWjS0uhrtOfDf9g+eCUMHj4meQ+ch7a2ERHRL
pmkVODXQdeI70QTbhCog4JKZ/w8gPD/C
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVi3k41AkcxqmU2g7a1GyEZktb2tgeZ1v4qky3YweD3EeTHM1vjLAqRLTG
2op6VirKEzmny5H0tbZ+My3TjGNcYWZSGSkhRljN2j/e530+z/t51wdEugTP
U1NTOzyX/zuVnBYzDLptidPyO+Vv5HgjM5znpayy684QK7365Vj0sZa1Scm3
82mP9Vj8Wo5leoEuy5Qddu00pVuQVI6mDyvt1ZQDdst3cLbrdstx9Kzs8dTE
pF2DZkIoVyTHluCJaOXEIojgE+3xj+XY0KlqG59YA18cPbyy/5Djofkcy+HJ
HyBANWhVaTHHqT/e3MvdDtR1B2NU/TK0+2nboOEZK2g/zuifnyXDutZ3h6ZG
bKB0iTw01kaG5l8ajVrj7IF5dIn2b1IpNiepmRXV7QWz3HPRPpZSvCz9tWD3
6D7odH4nKcnqw4hYduCLjwch6vPfgRqqXuSuoFUItzgCJZrhOd+3F/1ZjRt8
KM7Qc9hCt7axB7WeXbldfdkF6mO29Dvs6kH5KjHTxYQOb2pu0zoKXqFNMs3V
v8IVrHh9Axcpr7BudGtahaM7lPam1+YldaOT4NEHPwUD0gxWGZ8f7cLIuviY
1GBPsCq/YrskrAt5vHsHPs47Clk6l8Z39nbi6YYNewTJ3qDI3xRJenRiWItG
8msjX8iNoKvvE3Zg1cbn0xV+fsBtuVhyYG8HnmEZ0TYb+oOpsuwdVdCO7k+e
WjR88gen8D8LHOzbMXq1sib7XgAk55QzZ0kJ6m9USXIiA6G0wGYZz1GCHdtt
s3FXEGxdT36eEbVhu6O+Qv9rEERxdYZCPNtw4IRZ3/WXwaCVU3mqpKcVE3fq
hR+5FgLM1U4LhgNa0V/vdqa15zFoW3e+r2+sBV1m/Fz3bGZC/QCFORbXghcG
68ovvGdC/HFdk7ilLXiA+yFPreg4jBzWrE7Pb0a9bS4WVzmhsGBqQGeBSTOa
Sd18meYnIIizNCr9uRi9My8Ze2iEgcBac+F9uhibjoSnJ/PDgOHkFhfYJcLn
Dd8ly1PCgfk0Z0y1QoQi81kDH3oEUBKKxQyrl2hQfdZRRycSnG6F7ChiCTHR
2pr64W0kVBc279e73oRVlq8d4jxOQtob92FTUSM6eZ4idWtOwr5DGqkp2o3I
+rdwjdCQBbwBk/0ch3/Q3Kjo/rVEFiTE06cc0l+gzRbttedkLKj/Sp83KxGg
uEznlzgaAfXqquon3wpQo2ZQ8nshAU7fJ/k/9uOjYOxU9893CRhxfvb5pjcf
uVsXShXFBDBLinkpnnxcmUdV2JcTUDTkXuxM56N+qte08iEBdpry3CEaHy1c
hfq+DQSY5mrHbzLhI3OUd8yklwBex+rlOEuisbFtWE8fAYoqyqe70yQOBwlP
XpDN7Zd9p7MmSYzqHIzt7ycgJoSXeWKUxESkcq++J8Av75tHa9+SmJORxVNN
EsBwW6lIaCLRm099VDo15xuqh0W8INFQ/V6NxwwBmvkaa4+SJN6JEjY8+EqA
eGb3uGU9iQ+8FkqOabBB6+bu/NEHJEZnZ3WtWsQGwa0MjoxH4g4Rte8vTTYo
XkrYojIS6+1tB3SXsiGtlz5cVkjiuXjhkGDZ3F+aEnq9gESHSq8Rzgo2UGh3
tTLySVw8MjhO1WZD9cYnsvgbJDZtjpkSrWSDaXptd9g1Ev8DoCyPaw==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999544\"\>", {8.9408*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.0213327083336283`"}], "0.010677424708285187`", 
         RowBox[{"-", "95.65346853170703`"}], "2.5425444388116965`*^-117"},
        {"T1", "2.32644765726489`*^8", "5.312349247061677`*^6", 
         "43.79319862209127`", "7.002262846839654`*^-77"},
        {"A2", 
         RowBox[{"-", "0.5299357895806234`"}], "0.012839749678894704`", 
         RowBox[{"-", "41.27306239090499`"}], "6.47216352517874`*^-74"},
        {"T2", "2.415227341321005`*^7", "1.0299964851643456`*^6", 
         "23.448889157477392`", "3.2459628444122817`*^-47"},
        {"y0", "0.9921031754114062`", "0.004965369103414581`", 
         "199.80451699535442`", "2.134565599517534`*^-156"}
       },
       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], {8.9408*^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, 8.9408*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.777898412338275*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwt1QtUTHkcB/ARkmyryBG1Gs9dm4jSaYvMF2vltHlEWi2GSutRorw3TUWm
JVJJDzQ9RE89p1HTdHtMotGmpFBtUhE95ogoytbv+p9zzz2f8//e3/2f//3/
/3fm7oObnFU4HI5g+Bq5U3M/xsv/SaWja2NrIVGzj+d/5m2ofdlLcrpAExom
KVnG3S1kiRcXviq3VKc/eUE2O2kAtX2uPcbFzWROlAm2LGzxPNjdRObXLwN/
zUJX3coG8m3zVVD3/pA/LfAZ+bVkLRZYuG3RuVJHVrbboHd7dYSUW8s+37IJ
kWObz/tcqyYvSLTDcvSlxMv+JTfc2wahOFzDa/8DdvyWOxG+ZMXHQ1fkZE/V
3dgVJvddOo1h+yOc0J6tWF03KCYH2btA53jwvGmfk8mxq/aBW7D8n5yaC+SE
ba6QmmaWLX4avGLElTbumFQq0hc7J5NXqh7GdpoQMflOjQfuxPUv7LCWkafk
HkGZXdQN0/ISsmf6MbiefMZdL71HVhSewBSjcOXWwgryD22nMKCyvnqO479k
F+5pUHfUI3KtmQCze96oPDteQ/Y44APbqkgfLb3aEQs0kn2x8nCTyaTwJ+T4
936oNq7/Pe3HesqbWZ1FkUukTXTmU3L5bX8onwdOOG30nPKbJwsx2N85aoqw
gdwoDEDFr9e6HzY2Ut5x/HnUT18m6zT8j9wWegGzom27Cg2bKe9ocBHHj4xy
lRaxblJcwsVi2XhbhxeUT5YGIdu8LEBDrYXsHH4Zx/dcuFHkRuZdPxGMNPW4
d3YDZMaWH4KaHal1RgEvqZ7QOhR/jQy/n7WF5RV09jolCXe0Uv7A0jCg53GO
XgOZp7fkKpwCHTPnWrbR+9aZhOOusKbgbj7rPosILG/pKL/Ebac81yoSh87J
NRqOkZlyhyh49kqbvB6RBT0e12AWOCYB81+RQy9fh8OGkRVPZnKzb6Cr9qRG
iITM+6MxGhkSn8+VU19TXnpWhKxcqbqONevz+jGYt1m97elFsmiaNAYBpWvf
Mu/IzXscYlGR9+GS96QOqucxGAu37DknFO5kxjI27tv3JPPvW8VDO/Xiod2j
34yYO/l9PJx7fzvboE/m6MXcxDhBXkqVPevWDQnYe3vo7z4Bm98/+hYcRJ2r
vhSS+RmSW+gaXg2KNjIjdr+Ng91uj6zmvqXxnDJIxGKedLc1yM1DrxOx+lfv
+zOjySIkJkH7pJ7auWCyYNWBZOxprRa/ULAesyQF48LGDZ8gbP7MQArGW/tt
stTrpHol8lRE6hpazTAm84pD0iDNE5g28cmMt9Md/Hn52PCKIxsN6abDe3P5
YIyErKl3Lh3pGYnfGT4mCyJ606Hpulh34Anro7sy8Oglzyy0gc1nVWUgqz9u
ZffELqq3HpnQDtornz2f3LwuKxO1Px/1umFN5ibMy4I4bZu52iGykh+Vha1T
q8p0L5A3nNLKxidT/wW50WTeB2E2Ohb90uqRRGYqR+VA/b3N9ooictW4v3Pw
IOuHmMZKsrvoYw6+xHoN2veTReGeYij2RgSkfSbzle/EGJxoXpgxo3vE6bcO
5yI1XqYv0iEHyXpzkeb9JURtEZmz9KgEO81OX6pbw3rCgASihQYmYXvYPM/7
LhYH2Q5vSbZe7dg8vFN1vMIJJvMfBOZhyaxquV0UWTRjaj5mO62OP59Kdq+O
ycfIaRp1k1zVZihFyKitB8dIyYx9vhS1H0drlzwn8wzWFaBtls3H9m7yhu3P
CmDH8It3DpKV3ftlcHmbdNNPs4fmu3lIhqtfFYFhc8jNRiGFOPfYN+mwFjnc
XZtBnbDA/csMsvDTTgZCrDhQYUrmGaUweDUzQNVoNpmZ2s8gImftUZeNZLU7
a4pgXjv0XMWZrNMXWoQ/Nk7Xj+CRlZ0vi2Dh4jW/14McFGJcjP2norVUheRP
HX7FyL/u8E+0P/kn5eNiFAzv9k/JPd/WSwkUWs6hFjHs+CecKPn2/yP/NVNR
gtOTE8S+DFnSrl+KQbc1cWVScpWDZymu7/vq6pNJThfcL8UOqfVXv0qy/RZ9
OZr4KZN41eTyp0fkkDEhJvfryZzvH8rBoaZc8T9fLjoM
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVi3s0FHgYhidFOqVktdpymFwToY7LpvKbT2I3YXLZRDLCGuUyZpCsFWWP
lJJSOpTVZZd2w0xDTHbmY1ZIhonkcooxtgyhUQ1Jy9o/3vOe57zPu+lonE+E
GoVC8VzM/53V9FkaYNhPWs/+yW9nybE4N4YbNF1Do2opP7XGyLFsoi7efLqZ
Zqanym4+Jsdy/TAfreke2ss5w9yGcDnaVj10oUyP0HbNfGUqCJDj1CnZo1nV
DG3VJu/khzQ5dkaokqZVy6EtXffMqLYcxb0Lzz+q9ODiYE+4zYMh3L800XFy
ZjNoXlM8qlPIcH/W1l/35mwHmY/k1tFtMqRtsx6lpn0Ldyes2t4tHURh15v9
s0pnoNuEFbZfeoX2n56adaW4APd6mkibvMRnpyl2ZcK9EL76oqt1fz9eGfzp
7p6p70Dx0bLySWYfxp7khD2Z8ADbw2tSjb16MWeNe6VkizcwjAIFF9R7MDT+
qcmR9Qfgy8AbvaD+btRuvHan9ooPBDAaT0/WPcchXSnTx8YPqJ+ok/dyutA5
090/tNIfmLo6/HPJnSicsjpb6X0QbFkFvFN+z5DeUj3OUATA+ARj5dQuKcYJ
U5OzIgKBu76huD+1Hblc3r4JtcNQEugZ8Ta0DX8Wm7i2ZAZDuvHtitGkVozu
VM+Um4UAfWhlQVFcC9aYPv5cyWCAzDrxyPdpTZgWb+ZuQQ2F3uJSdUdBIx78
S+QgfhcKTM/T+Vl9Ykz6elpwlXcUaJP33tuZNKCB6UJ3YVwY2JoORVmpIfZs
J1dxdzjUO+blN2TX4QtvA4XBfDhQX6ze1hVSiyPH7QZutkcAPdnd2UOjGjN2
6cd4Ff0IjMhYF4aUh6H6d3J3BEaCbOXmTqumcvSZY/i7WjAhvVbUJM0rxexR
YUX2GBMYqty3VYpbuC9nvIRSFgWMFMepPNV11Lf2cShIPAaUnXMjHwbPod3g
DyFM++NAKSypn4uMxODcy5aH1KOB5hnMG45NJ21eMeczm6OBke+R+CzsMnks
/iZz6JcYqP+Jm2dhfoN02P9reMQvFmznE1wfwB1iWHvKe926OLBNInvSv5SS
jB07jMZfx4G20w0NKqWc1DjK3VIOsYC5Qs/eQsEl9MATTRsFLKDfr0vhb+CT
+C+lehJqPEiXDZuK4qqJvVnZg6KMeKClSt745tUQ5y1rN5yRxQPL3HhZ1E0B
kZav801xZwNjdyBnT2sdUReMdl8sZYNy4e+dJs1C0vL+RP/Oe2y41M46PNEh
JDlWGoOKP9iguV29qrpXSHRKjBQuFWyg81w0XceExCAr6PN0FRtorbfcD2qJ
iIO/xCBEvLiLWQ4BviLCnOJG2rxig+wf0YnGARGxtCTRLwfYkHyt/HbCiIhM
hktY2TI2UEnschOliCT0jp4cHmZDy1JxWvoSJBlolFMwxgZusZO5rQmSwgv5
3IWZRX++hHMsCklws1H1/Vk2nFVmuK1mI6Eu4QkOzbGB9fQ3P14Kkt8TJGL+
/OJfV8dYdR4JP0ijO1KdA1SvhXOcCiRJV/P7dJcv8tRJp7U1SJw6jAYaNDkg
HZk0rUAk9S5kZOMqDpTRjXmvpUjOpEretmhxQDtV+0B6HxK3h0HKxDUcqI3x
3bpBjmSFcvSj0VoObJ5Tc+OPIWmzSJ7t0OEAY8a+yOMDkv8AZAht7g==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999583\"\>", {7.3152*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.7986684711867121`"}], "0.016958105085162524`", 
         RowBox[{"-", "47.096563394073215`"}], "1.5053061540140275`*^-80"},
        {"T1", "1.090143586023175`*^8", "3.0789643572778255`*^6", 
         "35.40617751700747`", "2.3368245547640773`*^-66"},
        {"A2", 
         RowBox[{"-", "0.7531339943228766`"}], "0.01754268773532863`", 
         RowBox[{"-", "42.93150546174093`"}], "6.952305909070323`*^-76"},
        {"T2", "1.4297083743492156`*^7", "543728.8119318042`", 
         "26.29451195108883`", "2.533029427684233`*^-52"},
        {"y0", "0.975532002902125`", "0.002991172879149065`", 
         "326.1369510610321`", "1.6085957018644244`*^-182"}
       },
       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], {7.3152*^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, 7.3152*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.77789841257963*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN1Qs0VHkYAPBJshwqoiQ0WqWs2vUYsiXNl5aojaQOKeQRFcdrKMmaTbUT
QpnkWUaeUZHXyKjBjFRIQk3krZDXEj120+58/7Nnu+fcc8/v3O9+33e//32s
cvW19ZCgUCjMf3fxETe/E/SnGcHZTzcOPEDKz9IV80b0shL60YVMeZBLafpE
K+tDc8M0IHdO3VXVohdtfEoHJK1Vr3WHdaMpKTSIeadeIdrfiXZ5aQKjLlHr
1akidO4mM9BzFbAUNNvRQ9wdsETTPHq5Xgt68s1uGO+sCHzb1Eiu77OFHP55
U6OJOvT6vP3w5aKF8scFfHTnwwNQaswd26ZdRPo3dQb3bK3ZjtUxaIaUKzzJ
6hpyCEvfiueT3KGqx50leFWCjrP3hBUykVbhm/joDLNjwAxz9YptqUNnH/AB
WdmSmcHkBnTTbj+ImYlXTpV7ht4mFQDH7nOjF1U+R995HgiOyhwL/s/t6KXl
QWC00++CRMBLNKPwBKh1BnPY0h3ohgch4L+uaX6+0mu0+mAoRHK2WHUYdKM9
NX4DbYX2L69ie9BtxkwwDlKddHXqRQd6/w4nB444Fun1ic1cmH8GVmBD/ejM
9xFwdeXNdY/q0RRjy3MwSBlVNAsdQNfnnod5159cmtIZxHg7RRZE2s0k2j4h
fs26AOFDcobOB99gvJtMFASXMoW+I8SD7Gho1NrhvID1FuPddGLAaCLYqv0j
cVdDLOSZ6wzU2A1hfD4vDnKO1v/4rpnYI/ESeE+J9ugdGhabnhZyGU6yfNTO
cdH8vS7xELW5qWBUcgTzsXaxwc3uxtKAw8SbTa/A9lqO8eICNN/bMAFqVNlH
qWNoupr+VfA116VOGb7Dela0RBj1qHOcCyGe3ZwEBgmDv9KEaLqGZTKUteyw
sfuM5tc7psAtM3GBUaw3EZgKkXSZzkZnYvalNOj0P+KxNg7NLy+5Bm4OXdv3
8tB0h9fXob43gzr0gMTzzqVDeIogon2aOIrKAZFjTuXOxWNip6vwOBClZ7/7
B2t0zxHHDCh9Q1so8kDTA79kgFpvUXOQG5pvmnEDaCcj9MduoF0eWWbC/hdG
G882oDUU32fCnmmhB+MlmqLGyYKiqyq+n94SD9hkwxY3CQ1D6XGMPz4/B/B1
X4F2KeLmwFT/w1jqVjS/zC8XuqNdTAeOo+mhOnmgslY8UXTP3FAecC1NvLZY
o9Mh7yZ43qItUbqCZpp554P+BxUeJBFL6hfAXnX/hlYBiT/7uQBWn9U0WXaP
5KsV3oKL5X9Pl5WQejXxt8F+Xl/aAJf0E+5+B1QiBjOnWtG6c6qFAF89fNPG
0fJqfxSC5PQq52LJCayXNF0IPlp/LbP7SuoHHy6Cxse7NUSL8Lx8cXMROJ3K
zVitida1hrsg2PzIv4q4x6r4LiQq0R5LKaI1srWKwVF6skJNGz3pklIMIbyY
3pwDaJtQhRIYLRcPBE2fYZXABa/efS+M0PymeaWwjV2Z0eiObv7udClsl2JE
tTmh/dI/lILPmff7mCfR6YmMMjAdzhZW+6BdJqfKQN7GwXC+G7owJ6AcXoxr
S6zxQ8fdny4Hb8vEw6dD0RTDYC40PztoohBOLPuZC2zh8vVrr5B4engFHEz7
ZWzXdZKvbcE9WBMUcDsgj9R7fPEeVJ2aGWnLJ/2sVK6ElfZZQ05c0m8LpxKc
2jm9NqnkfgY38EDn8lbG+WRyv/aVPBB/fdhlZB46VlVQ8s7X5B6fzOvQqyrg
JpxVqSsn8xw/fh9s29ysNhBr9Mzdh7Da1C/dj8l66MY/+DZfop8SHyzNu1IU
GtCsj858GOZEXo7mkXq6BXxQYdCUrQWkH+VPfJBSbxQq/omWvmNeDYsLbBk/
daKXz7KrQfz15g6Rfkb7q8GidU2xTAuZV7xBDYh4HdoO/eiPwxE1QMFtUux1
k601kGzarev59b/npRa6RbkT3q2kf9mQ2m/zea1qqAXvrjF2AemH+4YqADP8
AZB5OjIEcP17G4kT02R9mI8EsEVuu/zIMNp+H1UIkv/+TGQ/oOtFQUI4aiAq
T/9M1ntR4//+B3ARNgI=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAh8b60Fgf2j9LBe5XPrTiv56PbbBb
9rdA6d9sXHav4r+o7btxJ/bHQK0WEQmvquK/rRxjUg3210BreGRaIqHivzC0
tkIA9udAYQN02hCO4r/xf+C6+fX3QF+UKjoNaOK/0mX1dvb1B0EVRmLIghzi
v8LY/9T09RdBndDkr1uH4b9MA3U37vcoQUmfDCSYTOC/TIctn0WMMkG2nZ+V
CGLev0AxLukgfjhBcptVJKJI3L+90+ZM+fA+Qe4koLDAFdq/NfjLJtN6QkFa
kmLtkBrYv9GCADSovUVBckc96ukH1r+T33ukQ/FIQRojIBxrEdS/bnlzY8nt
S0HC9BI3kEzSv4wPR6/NKk9BIk2cSyZy0L9hccskXhhRQTSkKiOZjM2/EMSW
o7iTUkFkbMbn3WDKv+EU0GhSL1RB1JkFnGINx78+hEdVYa9VQfR+Nv9PDcS/
vfEsiK9PV0FUxsFHdujAv1DItexg6FhBaGGd3Zjau79vvXx4h2VaQXghJPdz
eba/sLCxSu0CXEG4SP/BadSwv33CJETIhF1BkJdvgy93p79s0gWE4iZfQaCE
m/Yhj5m/tyXF+q9gYEGAivc+Nht1v35xJkcpIGFBwHlW5SkWij9XvL42wu9h
QaD5kh0gI6A/dhb2uZWxYkEwao4aV9SoPx4l/9Wab2NBOGwZU/KLsD/XMj+V
vz1kQbhmzrTp47Q/1k8e6B7+ZEFQkiNJcNG4P+drNN6dzmVBOOqeHIPxvD+B
PBxtTptmQbRE0Da7bsA/YRyjjzlaZ0EQCzsP0jTCP1L7YFVEKWhBJL9uPHAS
xD+J6b2uiepoQaSLktHhwsU/SozsoACoaUHA+Q8dtF7HPxwuUjaXdWpBBDH8
gYEQyT8031ZfaDVrQbwkC4Bumco/XY+SK1kFbEEc9mtl+jbMP8xObYuEx2xB
9HtsjuitzT/FwhmE4YVtQRDaF0VYE88/zzX9H15UbkH+kd8sDkbQPx+4f08V
FW9BIJyqAOzw0D+BOTki7OVvQYqunajipNE/tzfiRnpZcEH4eOOkgFDSP1Ba
d8YbuXBBdgf+0Tvs0j9x/KcXzSBxQc6rtByDkNM/NSaospuBcUHiPbXYuyXU
Pz4qERqD4HFBaKeYn0W01D/QrRVTekdyQUb2PzDeStU/Bbnp1Y6nckHqHwGg
udPVP8jyd9o7qXJBhlky3xTW1T+MLAbf6KpyQbKEU9pv2NU/EqAi6EKuckGe
QJAEJd3VPx6HW/r2tHJB5t8cKozm1T82Vc0eX8JyQa5kycJN+dU/aPGwZy/d
ckFgG0d0nh7WPysrP2zc3nJBvubyRfEg1j/uZM1wieByQVLD39RDI9Y/dNjp
eePjckFOXaYq6CfWP4G/IoyX6nJBxm4Kty0x1j+ajZSw//dyQZwXQ1ysQ9Y/
Xccitaz5ckH2oN4G+0XWPyABsblZ+3JBCiVhb0lI1j+mdM3Cs/5yQapaRHrl
TNY/s1sG1WcFc0EOx6N4GlbWP3aVlNkUB3NB0H2XE2dY1j86zyLewQhzQZ58
xGyzWtY/wEI/5xsMc0EOWPNZS1/WP4N8zevIDXNBMrMJ7pZh1j9GtlvwdQ9z
QXJTgkDiY9Y/CfDp9CIRc0G4c2dRLWbWP8wpePnPEnNBPk3DIHho1j9DC2KI

       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999754\"\>", {7.3152*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.7189141555334326`"}], "0.022522636299142713`", 
         RowBox[{"-", "31.919627257879974`"}], "2.324598970102006`*^-61"},
        {"T1", "5.977910415083674`*^7", "1.8494580328642847`*^6", 
         "32.322498314955496`", "5.849949897805866`*^-62"},
        {"A2", 
         RowBox[{"-", "0.8506222354721192`"}], "0.022170906296775927`", 
         RowBox[{"-", "38.366597381534014`"}], "2.7082823963455867`*^-70"},
        {"T2", "1.023015186589644`*^7", "366288.82794087176`", 
         "27.92919435573897`", "4.37060281646568`*^-55"},
        {"y0", "0.9850339682229622`", "0.0018552320631389212`", 
         "530.9491937932306`", "1.5566700364105185`*^-208"}
       },
       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], {7.3152*^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, 7.3152*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.77789841284492*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1Qk4lHkcB/ApraNIq0PoKWSVdVSm2sSu+aHFKuXIscqRCFuuxeRon0GE
kHEb0bjGkXvcpoxCCU1rER6tI2cZM+l6OpY1//+zzzP7Ps8883zm/31/v9//
nXfmVbrgY+m2nkAgUNZegnd0+JJJphJ3DewvTrcJOBHCJUUOjRw6O/YSe4Mo
HJJ9cNNwPTZ/ZTvYrFh5622bQr5qqQwF2nY+jnUTyMdC1KGGcH6fnvI4sq8u
EUI8BZ+MIW8p1IHRJubRCd4wckwoCah5Zvpam4bw+TQjsN9I33l6y1/IO7VM
IfrUxr4pWQ7y/h/MYXJPgwxH9TFy3agFkG5q14rw25EvD1hD89K987ZZ9cgs
cTtQ4JPLOS8KkAvJDnCklcUb/ydKX2AVJSdIbzizYN5xFzk3wgUqGz5Y32O0
IndQXcGbr/edZdBDZI/7biASxT0929qNbCfuAR/b8jJ2bHqGnOrjBbEbF3nq
g/3Iu95dhiHvUxddAgaR+Wk+IGO1LNahNowc870fOF53dZyMG0W+n+kPix59
IV3DY8i07QHgIzj9yDiulxcIVdrqRWlFE8hGumQ47vaiJIo8iSwzfRVuPP/y
59aMKeTo7BB4MtQTQI98iUx3CYNClmnALeI0svPRP6DJxJIXIDeD/FKSAiJn
k8b6WdgL34TD+OeIUmnPWWQD0QiQNw5Omd89h7wkFQmZP3sYxrZjc3ddB1Gr
Pf3xx+aR9YlREOA05JxUhT19JhruNKWq9eosII8F3gAOVS+hgIW9Lz8Gpskj
WQzlV8idg7Hg0LGUlJKI3bDlJhDJYf5ehNfIny3jYSBo+mF1EDb1dgIceLbk
2t2JHcpNBBP0hWGPKSeBpqFXXYrYInJhfxKcWAhNnPZEpmyPpoKY2jwzohH7
4I/JEGYglWA7g/PvPybDjIPTwfdKXGTXhhQwjTg5r6GCTAm5mgprF+dSiTG2
7k9psBbui4nEeYZYOuh6+FrFNWC3DKRD2bpy6sPXOE8uyoA3xRKGb2SWkP8O
zoRr7QM3Du9FJvAssgASO8+JH8Au1aSBonl7TLUtzktKZUPbnElulwW2HD8b
BLvVCMX5Z0O3gTNKaXO9hn2wPQdaaKeVDDNwXqcqF4zr5N2ji7EX6XdAtu5p
YukUtooZHVh9+voOg9jFj+jg9etq4OYvyKTVE3lwiRZXwl5BZqt35cE5WqN/
rBQP9dM0yYcl4mVLjx3YIr350E0QSSnbgMyusCiAw8UjM9dWcT3NkQLoIb6t
fmCA1inhFwohh60eq6CHXcYtBOsE0/1NNsikkpAi4XV2iAQDuIy5fG073E+Z
xgAF+aonI47YuRrF0Cz4O8Lr7CV2sXCetM22BN5knUzMTMb9NvNKQKvPobkj
GvtFTClIy4+l5l/B+XCVMpCgLX8SDcT1PrWXQTfDe13CddzP2OUuuFHCTc9G
YHuuL4etUkARL8F5p6JysKdUbt1NxfXUf6kA5bW7JyEN9+vhV4A/0yinsAab
lFUJ1sT6dNoQzscZVoExYdnArBjXK+FVCdcjPDWvBkG3qkrsWkY1xP8u+IEi
O1NWq4HBeO80V42sqGNfI9yPNMasga+S2dtonbi+p3QtlLp7aR6pQKZP/lYL
V4lax0hlyBOG3bXg85bDsanH8ybtY0LBLCU5qw77UTRTeH1ifpYJayfrdzXj
eu+M60CVzfV+y8H9XpXWCc9H6pGsF55PMd23XjjvbDZYD2qUC3rQi/f7+ngD
NNvnm/cPYwfmNQDVvaO96wnOL4g3/m//Jn6NwteTRB1tBLqqZKdZE56nw6gJ
Vnqlp+ba8bxTVU1QKOdXXbOM9/NKoRlYcrK7FAf/u1+a4UN8TfAKnofS8qEZ
Dgtu71WcD3drgblez6DgcVyPONgCIuyAvlNfcT/OiVbQID2XuPUYz2PT2AoE
dPDRvI/UWODO9Lt0hY33o5zDAuYIeuDi59e39yBMNWUvY5qn/y8T/y2C
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAh8b60Fgf2j/AyKguMTnjv56PbbBb
9rdAXC9kag0z47+o7btxJ/bHQHzubLbqLOO/rRxjUg3210CgQI5+qCDjvzC0
tkIA9udAxCspyTAI47/xf+C6+fX3QJpBrBh01+K/0mX1dvb1B0GYPowqxHbi
v8LY/9T09RdBmHm4in644b9MA3U37vcoQWzRfwS6KeC/TIctn0WMMkFgf+ul
aYvdv0AxLukgfjhBSMcbn2zu2r+90+ZM+fA+QaQMsyOwN9i/NfjLJtN6QkH4
43dG8srVv9GCADSovUVBAF0ed9VG07+T33ukQ/FIQXgOn7rz6dC/bnlzY8nt
S0EQGsBKFZrNv4wPR6/NKk9BIExZZlY1yb9hccskXhhRQXAgZyOBRsW/EMSW
o7iTUkFQXSpY/JHBv+EU0GhSL1RBMB/zAMNru78+hEdVYa9VQVDL0CAkgbS/
vfEsiK9PV0EAXNahxZuqv1DItexg6FhBwNlYlgQWmr9vvXx4h2VaQQAIddwE
Ely/sLCxSu0CXEEgWuS7taCXP33CJETIhF1BYMFUcGs1pz9s0gWE4iZfQbCv
PpRPi7E/tyXF+q9gYEEQqMBvnia3P35xJkcpIGFB0EYFLqMwvD9XvL42wu9h
QYiQydc0usA/dhb2uZWxYkFAvDconhjDPx4l/9Wab2NBeBvKWsNWxT/XMj+V
vz1kQRR5QMzhr8c/1k8e6B7+ZEEMOZu0Xc3JP+drNN6dzmVBGFhh6v4DzD+B
PBxtTptmQcRo3WXBHM4/YRyjjzlaZ0E8/1bRYgDQP1L7YFVEKWhBCDlWaS3+
0D+J6b2uiepoQUzOLSdT49E/SozsoACoaUGObi2uAb3SPxwuUjaXdWpBHBem
1MSh0z8031ZfaDVrQaYGtKSGcNQ/XY+SK1kFbEHk6g/Ks0nVP8xObYuEx2xB
EKlMZz4O1j/FwhmE4YVtQbztgBlTydY/zzX9H15UbkFUUOgOPo7XPx+4f08V
FW9BdlEqLaBA2D+BOTki7OVvQWx+aydN/Ng/tzfiRnpZcEHot+pLGq/ZP1Ba
d8YbuXBBCMirHTtR2j9x/KcXzSBxQUxbSXsn/No/NSaospuBcUHQUybyVpfb
Pz4qERqD4HFB7JBTPocr3D/QrRVTekdyQb4Fy2AQyNw/Bbnp1Y6nckHwWBoT
T1bdP8jyd9o7qXJBcD+iEsJY3T+MLAbf6KpyQcJ+jcs0W90/EqAi6EKuckFK
er9pGWDdPx6HW/r2tHJBGvHqWN9p3T82Vc0eX8JyQciMIw1efd0/aPGwZy/d
ckEeka4iJ6TdPysrP2zc3nJBZBJjZpGm3T/uZM1wieByQVJ5AWX7qN0/dNjp
eePjckHIGiyTzq3dP4G/IoyX6nJB7g2JtHG33T+ajZSw//dyQVJP3BWryt0/
Xccitaz5ckHs480NEc3dPyABsblZ+3JBEr5owXbP3T+mdM3Cs/5yQVLByVtB
1N0/s1sG1WcFc0H+6IRe093dP3aVlNkUB3NBTKEMNTfg3T86zyLewQhzQZpZ
nMea4t0/wEI/5xsMc0Eu9wIhYefdP4N8zevIDXNBoGzx58Pp3T9GtlvwdQ9z
QWwCF2sm7N0/CfDp9CIRc0Faen+qiO7dP8wpePnPEnNBppM2purw3T+maF+c

       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.99987\"\>", {4.8768*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.8694546226983283`"}], "0.028191685039194978`", 
         RowBox[{"-", "30.840817832971783`"}], "1.0013482324506633`*^-59"},
        {"T1", "3.239136609113118`*^7", "815975.507502966`", 
         "39.696493085012655`", "5.589700314323955`*^-72"},
        {"A2", 
         RowBox[{"-", "0.7185329646227757`"}], "0.027630082078573273`", 
         RowBox[{"-", "26.00545892623271`"}], "8.031750389466124`*^-52"},
        {"T2", "7.533038862472873`*^6", "300556.97895328974`", 
         "25.06359655565875`", "3.673047172075077`*^-50"},
        {"y0", "0.9872560776897901`", "0.0012961037047519225`", 
         "761.7107134793303`", "8.30758871896781`*^-228"}
       },
       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.8768*^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 = 25 K\"", TextForm]], "InlineText"], 
      Text["T = 25 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 4.8768*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.7778984131052237`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1As0lGkYB/BZK5coagtzajUqIkUsChueJF1cJoaIIiJZjZFKZDNW0VhU
U3KdjNu4M4x7YkjJWiLpQnJXDaItlZrN5n13z5n9zpkz53e+//s8z/u9842K
h7+dlxiBQKB/+yx8o4sWZFZja/H9XcZowwIHE1+ZKTN+kl2lgu3uIgaWG9ZZ
Xds+gkxzWA5l1EntwPPD2NHK0BTDC4vUHkJ2GleDoQCh3rKJAWSS5BagZNu3
9ZH7kcmH9eGMI+ljkEIvcudZY/ioS9g/2PoY39cEOBjLIY3yuvE8X3YCTx0s
9BU7kZW09kCwunScza77yJ8arWEubuVn26ONyHyX/aB//UfaYo0KPI8kBewU
J13c1ychN484QsqznhqBTLzpgsXfOoNsv7h1jHkpspL2IXic7Cq1t70emWDr
DgnTTunzO+8hv1D2gMS++dB2/3bk9xJH4XTLOjWZ6i5kjqQ3rElvidWufoTc
RPIBHesPVvXxT5B32/lC6RglrM2iF3lbqh8Yq2r2nRl7jsz8SgWUbh5ALqij
QSP9tYlwZBB5h8RJCNy1yllGehh5qWsgcOwMQtw0R5Dl6k+Bk+xN+1HxUWSL
TWfgQKaG1NwkNpcTBF3eczkm/WPI5M3BsDh8OnN13jiyKj8EVOhyLeFeL5G1
3ULhoWEQW8L0FTJ18XmoIvcerbyFPdwYBi/kFdvbXV8vmH63iQ4mlPrQ4iHs
8vxwyFi/zYh4RIDy9Ym/QVuAJbdWiD0cEwEXa5k6rVoTKE+KugAMtzn+MT52
cNRFaDziYqwzi0yYio0EoyUJzh42k8jnkqNA02mng1EFMn1d0SVoLVA/SFWa
Qh6/y4A39l1mAWuRCc2j0bBx+oG0LQu7TjoGun31Fqmk4XyHXiwYaI+Gf9eN
/cUrDnwU0wcrl79BeXPWZSBYKDCs9JHpdieuQCXhsrDTD5kvL3cVJH65OCY4
jWz2nHcVipwVu3V/xesrXJjgVydJc8jCTpG4BvC55oRJNs7HlV+D2uzZ3/2/
4npxXtfh0BfBxswG3C+VGA/iglCliXvYVZ3xwG9Izol4h/MD0TfAaUqOTFSY
RvVW7k6AbiLFeK8yMsFJKhFm9TauuLMZO7ctEXYst5m2+xnnFzGTYEbN1tDw
AjLf3yUZQlZwj68OQKa/3JACsR5pdU5kbL+P30w9/vdwCs5/bU2FrYL2T+Us
XO9mGgvyPDuDb/vifvvO3gSxcKn2+WLsRZQ0iB668e0NQyZ5E9lAHfTSfR+J
7E6OZkMJw/SxSwGu1yhkg/BgEu0IFferpqWL9hs0GE+H7eKBK1qZyGzjQxkQ
RWke6uDgfi09GeC2Zs8UZGA/s82E3n2xT0/m43xAWybk+SfXWlbield2Z8HJ
4IWJcT+DlizRvJmnZTakakfuiKfjeRVas0Xrk8hWHNBDB4ifl3wXBxqfaGkk
RmMfOJAj2o+kOpAD0ilFr37IwvWCfXIhQaXgmMwT3I/yLvff/wc8T0VYHqya
9Q7t7cDzspbki87LlmXlg7pGKU+sBu9XTKsA5CrsxNWTsM/zC6B6S9X8XDLO
0ymFIPT2LJ3A+UFpQSG8a5iIsv4D9yOGF4FA6dThkl48D5dYDFPZu/wMe/C8
7bximNElhtx5gPcTYFvyv/2nTJaATqd6PzsXr+dYcOG0RE8cswVZvimeC+dI
IfmcOuQt6eNcaHBUc03sw/OZbysFznBL4e1buF9edKnovLSH/aVQKPS738VF
7qzXKQPe2ufraW9xf2pkGXQomqfv5WMP9ZWJztupqMsDJZ/rVPIjXG8Zgwd1
rfY2S4dwv45BnmiebWNYDls/JBiavsbzMpnlouvlkybLQcvc8YFC8X+/lwq4
5B631vkv/DxnMirAjCXn2f8U+QrMV4jOz3VwrRQ9f9Lm2kpgGZMj1vyJz6dF
qQoI6JpZ8Izq2SowivC1bB1B98mWT6tAYmlfLyMPn/cmw2pAr/vAtOk/kTUi
kw==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVx3lYjAkcwPFZFfZZtGwJJdMg0uUoyq5+8xslK9vY2Voduq9B17yTRCkd
tiJiVRJL6CF0TKLL1ptRmtTUdOmgaXqHLjkGTYdo7R/f5/N89bxDOH6zaDTa
b9/638QnUxKnFT1w2YVvf7dLTl5JDRK4KkuZqvXZrRUSOZn75iFvjbKOuW+5
hX6jSE7m6/hw5is7mS9rsi0/lcnJ9fdLWDTlIHPfyZ0qLhflpCJGVjE5Ns6M
ekcVRbrIyVa/sXDl2Bxk/ZCqoiGlSGHXTPunMS3M00szPjbST+5WObTl7fha
PN5hsSCO6iN3JxpftUnZiGmZdMKD+4JkbjAZpkdboGjNGeEek26ysm1g9+R7
K9To2nXilbSDNJ9o0G87ykLVBl7a9Q+tZEsczSy30gbpNqqVH141k+f7InO2
K3aiwLrlgLHDUzL4CN+n/o0dSqKW5K70ryVT1G0LxevYyG0cuEZyqkkvXsMq
9yW/o0QRu60sp5T8sSbjRtl5Dsoe/yW2O1xA9mtIuBxTB6xuDcnZZJRFWiXY
OnoVOuJxNfekkyMEVCqMkgrZe9GzTDtpwOE67BE9GPUccsLMPmKx4XUBhFRG
RST6uWCuvduXzl9LQSAo2vVm1j6UpZ2yvra+Co4JV1mLEtzQIn1oRNdYCIGt
agmUvgeGtbx7xPaohdLVtVOFnp7oyTpgI/cQQTRP39aA7oWZ570TSPUG2Ptv
1WbhOy9s1GDfzX4uhvDFyvL0Im/knqszf2IiAd3VMx1ZIT44/UUvoMKtBTo3
Qjq5zReb3pY2qWS1wjO27pDu128fvX1oQ0kbDB40k/7T5Idre7KFL6XtEPuL
TpD9JX+kl/n5uo93gJfOjVRLlwBUlTR97fz4DDifPR2tDbj41GMVz3y6E5KH
KwuSR7jYFNa7KWOkC3aljGbTcvdjTd6moKeN3aBjwtl84dABnJca99POih4w
6/vTg2t+EKuLM3Kqzz4Ht9S/DZ3VAnEea9lFGe8FNNoHnUqoC8QIY+OG6G29
UCtcmtB/IgjviDOcLGd6odn8ywp3h2BcQNP0Um+QwoqyGLamZgiGTXzk3Yzv
g1hLS8boqxA00zLLH2DIoHQLteOocygOaA5pucXIYI/L4Sfa5aG4PL4s2bRN
BrzpW1piOg8Fyy+YJhv2g7l+7r1LsTxc78wuehjZD1brFi6Ll/GQxY6ethP1
gyRf84+jtgRyxgzu6S+lQK18uOPMLQKzXgvbL3pTIPpwuOfn2wTu3xqV1OtD
QYrR7L6hOwQGx1lp6flRsCibMcQqIJB2WVl7K4AC3UTXKeV9AlUVMm5xIAWb
HcW6HkICo2Ym6h+HU8BVCAJMewmc1qtaWX+SAkNDCHwhJZDt6289N4WCt77i
0GQZgUF53Uzb0xSEdQ0fkcsJjDa0FNekUhBLMlIujBCYmh1nVpVGQdbpNMHM
OIFKIpR15woFbnWMB3mTBE5NnWMMXqWA/l1RufNnAmMceqUrr1FwM0wsLP5K
4MznuaOXb1BQ7Dq7I0CNj2ftnJxP51IQnp7WrTGHj1GZgdr1tynY2syQPprL
R7tz3eWqdymoZsGg9jw+hna1n4rMpyA+SvxaNJ+P9MZgsqSAgh0lru8PqfNx
f0lEs6KQgu/fD39iLOSjv//EQ6MiChoNIiabF/Gx9vbHhIB7FPwHDWh4wQ==

       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999936\"\>", {4.064*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.0715776588144827`"}], "0.02591272038418563`", 
         RowBox[{"-", "41.35334472518215`"}], "5.178048183937112`*^-74"},
        {"T1", "2.0002285473809764`*^7", "340041.02447655634`", 
         "58.823153778578245`", "6.387543416905646`*^-92"},
        {"A2", 
         RowBox[{"-", "0.5382378910776918`"}], "0.02536852429468528`", 
         RowBox[{"-", "21.21675998278122`"}], "6.356790498247288`*^-43"},
        {"T2", "5.1507200365993995`*^6", "228016.32078239776`", 
         "22.589260360511094`", "1.3596084810601548`*^-45"},
        {"y0", "0.9896166125939763`", "0.0008582710628254786`", 
         "1153.0350438893981`", "5.972960627147828`*^-250"}
       },
       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.064*^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, 4.064*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.7778984133894625`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1Qs01GkUAPCpJeSVUhS1qJUSW2e3x7Ta5paN2DZNtWS1SB61kpRJtsfE
CIOIzbPHjOcwnuOkh+SxhZ7YakhphyHv0tL21s7/u9rzN+fMmfM73z3/e//z
3ft9xjv2sj0nMhgMruJL/ZKP/0HWPufSI+nBnZUUZWVy1oOv76RrF8mJqzw+
sup1avb8ao2WOWpC/WH507kzO4iH9uoDh/v3BmmzjDiIbQI7NzscvbP8KTpr
AYz8qGelu7uVOE5/Cazt4Oe2NUjR75ZCaPiaDfmz7hM3Bn0Hzwxez7nZeJdY
dJMFWrWj4rDrN4hVv7IG8RK7Vh+tcuKIezawv9DicvT8LGKzWnsIS3Vaum59
1GrKI8oOYJIW8o/HtRLizo1sSHBzbL+tWY2u2gJUdTse1mO8kyN49lhqqng0
EOvqO3+uj9h61AXKrgRSb0xco+wGptWFNUkGrcR9590hZ+nj+XkqbcQ+Gzzg
+3hh+beGMmKBlie4D1Q627q0E7vJvcBotn2KUnkHsei2D5jlqcRcHZYTB9Xt
hl0ZTN/A/k7iRqkvkPI+dREXv/WDJJfaBL5uN7FGsj/okQLQShX7oNfp1ryW
rT3EVf0B0NInnXB0eS8xa94BONXxZYTv5D5inlcg9IVQL4yOlnCApGf0Ezup
BgHVLY316B7vQ9C2suqFaT/aqikYiga2MJsTB4i3WB8GJ4H3FZkQvbj6CDj0
DopKpw7i+9gcg4miEc6DbehZvlzYptg9g7toS+ZxiG1QE/z1GD1PPQTClIOz
1ec8J/7QHgJcI8kCs9XosopQODnFb9jEGc0+xwNFcodpYnRjaBgMnD67sLsV
vdjvBBisCDU0foIO2B4OFcMXVxQ8QiduigA1zvRrT6a8ID5jFwmVk+4Z2aii
ebZ82D7kIIrciv7JPmqs/9Dv2NFQ5MjJO/MbOsI1Bn5+E7BWwxb9xv8kOKlH
mmdz0HbhscA/Rr0QevWmOPB+b/1KcGpsvT0OQuqzBR+S0bX7T8GEyrT8ouPo
UtV42E82GK0jiAecZ7SMmQCuX3jHzeWhjaQJYBj90VE9Et104A8wTXqZaXID
PTz9NNhbytf/wEefuHwaFM2gyIjmuyaC6sVDOhax6E8qSePq6ZIkjctn5ZYM
5ocvG0/KRCtNSYE7y5+viheiV9WkQH7Y9emby9HdnFQIL/CbLTuInmiZBonU
9sWjT3anwUqqPSvRURlnoI5NTST6rftZGOzV82oKR7eYnBtXj9mzc/BWhToh
0L3i85BczGo4UE3M1VwpAJlGAM8/Ddddzwugj3pc81i8spCejyveI6TXz82W
CiFodIZiIjG+lZUOOxdQJxB6XX46+E9irrl0F+P79DPG5gtddyIDqNMk5irG
t73KoNfHMPfKHJe/pDkTIqt4iglB+9tlAe/x1YjEOoz3uZYFWTHPih8WoJO/
yQY5Nf63MJ6Rlz2ufqFxDvw7ol7a8yfG/56aA+4zjgRVSNAxuiL6fnCbY0X0
da6zRi402CmZLmrE+Bn8XJhKXSe30ZPV8mB0gNogjF8WmQcvta2XKXeh0yaL
wYIcABjPjBHDhbhLO3a/Rmvr5AODfIZI/OzEfHp/cXcaFtD/T0ZnRgEEzNy4
kP1hbJ4XFcJNT6tc25cYH11WSN8v7gUoAuWuOsWNh/F694pgl9Yv1JFH1lss
iunzUgWBxfT9ZdlUFEPU/dTBaQ8/90sJ2LosufD+EXr+xhJ6f7ImpJQAWb6P
zzsoL4Gm7bMUVyDm41tK6P3OZQZLQLqGulAxnlcroe8Xy3daKeQoTou9TzDf
kFvp//X/B/HXDxI=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVjGs0lAkYgEcdyp5ti+iCMzRH5JaKIZHXq7C1SoTIdYrYcv2mQTdRWmxT
OkWKolZnUeu2kYT92sllhM01JTGMy/cJGZvJTGTbH895fj3PhiORbsFLGAzG
vm/87+QGeZuXdi+8nDB5c0dxmMxJCy/1kVbaqU5LDVzmxGTBZHW0vrTRrm4v
Par0QUwWaR11WyHtsSu4L7n5S5uY3FL+xJ4hHbPjb0pIaMgWk5Lzomey2c92
z/OclRzNxGRH8GyMdHYZErdXZmw5NkQK3ix2fZpdi45agynMdyLSeSnPcurz
JvS6tFDSl/SOdE42yXXgb8P5NTsTpHtek3ZbN9M68duxlOy8/OBuO1nbOeos
m7ZFhlIKh55vItlzzXqdp+0xMFdovFxDQLZfYJgX1DrgFnVejmJKOXlj4MyD
XZIfMYGhJrYsuE1GnOIebZr8CUWuXSXVjEzgr3QqaTV0wUAebypgrgw40c26
/utc8dbMM7n1tRpYVXcz7+kNN3Q+WNxNbXgBg2ptoW6m7hiX19jluEIItklO
HpwSD9Rdl75+xrsFaiXGKSUuh1BNei90xrcNDggrJgIpL6Tir9izOR0QWXs2
Ljn4MKbUFHH5+l1QWlq2d3KJL1K6fAtfWTecE+juFib54cvgVNd/03sgrEMx
aUgvAEUfNVcJrd9C5cZ6eUlgILKueqX51fdCfLSek4EOB82vU3mNrD44VPOX
heAjBx8GZZcVX34PMWukVRllR7DP6EqHvKUfmBsXu7Mij+KkRlKhg3wAerZB
BrkzCGNDcrOCbovgtQuTYn4NQqbcomBEdxDGTpj33/0nGOtu5oT/VjEIiTZa
4fuzj+HXALP69J1DwNHKS7M6HIKe3CNB5pVD4PYl0GO3QSh2nCSOvWCLIZWu
LU4dD8Vb2j3N+vli2MufuMco+BnfKrSL16gOg9ZmN4tM3nH0lDTdzU0cBvMB
z4BQ9gmUTtgsfTgyDH5p1428FcPQOH7T1Md9I9CyP/xyUmMYuorPVKQ9GoF6
wfqkwUvhuG9BwXtx6Si8Yi9o+7tHoK8wKMsjcBS0n553UVePRMn1keN7Ho9C
opUVa2IkEufvkHFtymNQaTnkeNo7Cm3YqQsJPmNw4HBsg2ZVFPo799iOPxiD
6Pn8ta060bjAG9e/JRkDtl7Bn9mJ0bg9NmoX34ICW0MVjYuiaGw+1S6rj6Wg
rUj94GknAvfnNJjOV1OgWEV3X80nMCs1xtJdRoFwJrbXupBAXWUzc46cAr6x
0gD1kMAJV3uliC8UqN5jUfbFBMaLeIbJCxQwk33k0nICy5Vl3EoFGiw8WpkB
AgJrrj1SWfUdDaGS0hDT9wTKgz0L72vQYGQEYX39BNYtN/Uv1KRhKqg1KlVE
oEmdDV2qRcPJN/QpsZjAxcjVF0gmDYkki585/u1fHUX2smjIupJeuvj5W5++
GKFsRINfI6viDxmBByLDfv3BmAYdhbIq7y8Eros4d3a1CQ2/n2wVPP5KoMKJ
/GEtUxoe+yh1hyhycW5tX72JGQ0xGelv1ZZxsbXTMHOrOQ07XrH6/17OxawK
d2CzaXhuD2Oa33NRxc1DzcaShotnWz8IV3Cxu8YKYTsNjk98pnkruSgoUnOw
t6JBeZr+xFLh4kXZhLbDDhpaDOJkr1S5GMJtaneypuE/0gttVg==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999951\"\>", {3.2512*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.1871870336523966`"}], "0.02156497551608071`", 
         RowBox[{"-", "55.051629099561346`"}], "1.6461422036331803`*^-88"},
        {"T1", "1.1279666750061935`*^7", "151148.6631488141`", 
         "74.62630839782213`", "2.758940277920891`*^-104"},
        {"A2", 
         RowBox[{"-", "0.42882508351728643`"}], "0.0210098051037766`", 
         RowBox[{"-", "20.41071211270795`"}], "2.619037199993321`*^-41"},
        {"T2", "2.6850334678208865`*^6", "134868.02109816324`", 
         "19.908599873846995`", "2.7667417201312686`*^-40"},
        {"y0", "0.9903268681982387`", "0.0007141998475624814`", 
         "1386.6243063172883`", "8.368368190065197`*^-260"}
       },
       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], {3.2512*^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, 3.2512*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.777898413654754*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1Ak01WkUAPCXGWUpSwqvpkElZrKkRdRYbqlksmRslYkSIVmiwigP2bdn
efbH43lIY8kSyvJsgzRG05Qk9fAiRWmfJsdM77tn5rz5n/POO79z7/9+937f
d/4qx32sXUUoFArt80/wTx7f88azVR4t4nR+m4DcnvvGTRFBatpfoOfcXhun
G6hZHNs7Qex8RAQW2ec4s83H0XQpSNPOMhMd5RFbTctDuueK4jn7R8QxYspw
Vb2dWpk0QtzopAqi1Z2Z9ZVDxHrBG0F2dPRBjuUfxIoaOsCXmmQ2Lx0kLpvf
Ci22I45p2r3EPC19oAfZfHUooh377TAAPvs79i/ltcTrHQGsnRmt3k1ZxM1L
TMBQbE5KLr7ISGB1/l5oXBYW4LCsidj91X6YstChpvp2EYdom0OgZlX2s/Kb
xJstrWDnvS2Z2fRBYhkla1j99lBFa+8dYoclNuCWlOhy7coQsYSYHUTLmdt9
CH5AvEHFAYapYh77ZEeJf7Y+DJlPRgKv6vKI8/IcYQg2MGf0x4jfLxyF1adT
r8ikjxOPNjvD6w+dHJOaCeKAxcdh+7pNde5LnxBLObqAo0d4om4fWrr1BEj8
uYY2NzhJvEfDDdolleKNYqeIq0tOgp4Z03+R/1NiK00PCNJbONhvOE2syvWE
ihMvpjj9aG0nL1hO65yg2D8j9pbwhjcqftUOL9Dj7T4wcblZv8X2ucC07g5f
MO1O2aY4hq4r94PDT3esDTWaIfmtWWfAzDfqykQJejzBH8aW2veYfySmKUcH
gC2Lp2+yZpY4KPos+F67f+mqCzFlNvEcqHxq4Ch0o3/KOQ/Uc9aJ4StekPx1
FYHAmP/2aKgyerI7CKLkEwvPWBFTuvjBIPNqJmDWBd0sHgI3r+tUPj2L+QNb
L8ChE7WnDvDQn1wvQm/Glzv6+Zi/mxkKoqaCiV6SuPVpGsS2hykYyhNzZaTD
wOziyiojGWLjh7VhUNOioNSoQUypPxIOeeegdYsBOndxBEheTk2oAcxPqouA
XR+rMsqdsF6S6yVYlbxpf5ssrpdHjQQtk7mXdXrohsFI2MpRT9dwwPzHcVHg
Fe3oUGuI9VaaRkPYwOam7Vq4noNYDATu/5VVdAFd1h8Dgtuek4v5oqmx0Boa
c7L0FNbzORIHEgohv68LwvWm1OIhic5epHYa7fUhHhyly8YUSjB/oS8BhtUy
vdjBWC+/IFH4fcr3gUnAiHjtpGmLFrVJhrcGyQ0y7cTKblQ6WNxQfpydT+xs
FUcHP7uLu/IYWK99ng5b5JY/YCbjeo2+KaAfINhxYp7uZIrwPKydP6YK7wel
524qfH1rZxCVhR62TIP6v9ZaLr+B+X79aXDclxeZ3I316Kbp4OmizWdU4Hq6
PenC7xu77GMIz+8s38cQnl/Z6kAG3Loj7anqj/slczsD3h9r3qhljba3zwTz
byRUJe9hPf/HmbBeM2BNShvGe9yz4NH7RruE2xi3eZMlfH7c+tBsEI90VWRU
4zwzy3IgimnDVo7E+GFmDrz7jeNXEItxEa1cEHw9ZVvRF7m5EFouumcVE/MH
bPL+F3d4lgd2lT4GrCiMU8OYMPvQTi67EPuppuaD0d3wtYkD2O/qunzQrBne
tsEX422WBWBpvj1b/STGc2cKhPfTuGQPCyjkmSP7Nc1ggTT5/GO8d5IF8x1v
P0+A57NbrxBU2+KGlGJwvy/HFUKaU/dz6S6s/3G0EETIBuL5PdEpgk6L8oP0
Dox7RxUJ7xdtbKRI+Dx5hpvZwveJphfLFr5vzgM8tvC8LAv9Ytj0ku9KW8B+
m1KLoYvH/fzFxfPnzhRDpKThdErzv/eFIzwPd66II9wPy/1vjnD/3BDHEmiZ
9atQZGM9zesl0JCgL14Ygf32KJbCD3G7+sLf4XmZB5ZCwkLCvqxi7Nf7fimU
leQeSK/FuIZ+2X/n9w8NVgwo
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVx3s0lAkYgHEpWgoltpSjWclGaLd1KVnvvIiSotnGJYQkKprmG0lWtUS6
2LSl7GlKTkVYl5Hc2vTVbGmUiZJrDDPjMpcv0ZoRuqz94znP+X23m8WI0tTQ
0Ng60//PaJhqCVzeDeNKL/HGFQNkblYcL1hdQ5/zKLn2pv4AWfjub/b36mf0
m2LdXr0pKVlqGsnQU3fQE0KmO/VfSckf7lW7aaiH6Rc5f1rfPyElx070359U
TdAtRSWtxX0S8nWUKkGtmos2HoE93CIxye/8+mZctRhDjE+FeDSISJ/Zh51G
Jlahj9peX2LUTvpk2N7YmLkWaVLz/ErGS5L+o52cdnwd1m7940HFOT5Z3zrk
MznqijTNwFMpZ0tJh48vLFuT3JAuYk8wnmbCq1QN+8L6jdg5uvJ6um8VXOr7
9bb72Ca04brEill8OHiUE9n4bgsWeha+7ZrdCJkGXuVCa18sMTFsjEhvhgj2
C4tdS7aj4Kg8IOvca1jw5Mqt2ksMrJ5TrT21sA3ERi0xjDU7kGfmv3mQ2wGu
aV7MiHImxndqhGU3d0H9mM3pct8ApJ+P27dEpwf8BFVUuCwQlzY1cxMMRcCq
T07MiNqJzCvxSXbdfcDjVXi/0wxBl+s5lbpt/XCMb+EhSAvFJyq5PitPDLGv
tdIklmEoWGd8qoglgZqVT6fKw8MxcYim99xOCsfZll5WtAgsFo+a9LRLIeDB
Q0f++wiU6GQvKEsdgIRv1XWXK3bj9reprSqTQTBb+bXtKisS23MVoxsKBqFj
LVwmf96DJQLv/SqHIWj3NZOZfdmDLUVXV+TeG4LhA/ai6y+jUJPmucXVcRhS
XEzjtnH34v7fFg05lQ1DhOmtrPU7ozFvQWDZl8UyYEyHMz2sYjBXfCMjOk0G
Z+T1ZWcUMbiouyl/zoAMvDOpPI3CfVi5dFopdJGDqR3DMefwftzs318mz5GD
fZ9/WIzDASzRHvPxlMkhNOvi6iCtWDw4Oiv9mrMCmrbFnUt7Fov8TNVp+kkF
POWbpInT43B+z0P3qgYFNDt8Xr5rx0Fk1B1IHZynhOW1J3yNjVm4Tv9W+vtN
SkhZv96cGmShtPeveHaGEmqcJJ5JQYcwsUDCZT5Wgt/OIw3L6g6hbcq8oOhx
JbA/3VkspLFRNijze7yKAgfLwrvcFDYynN3Hx/wpcLVeuPRkPxstnL1vdqZQ
0FJq/EuSF4HnWQ/TRKUUaNXJ287fITDip7Nrq95QIPhwpHtDEYGNF4qkoW0U
ZNpo98mKCbxrohOr3U6BYZ65zK2MQHdDnmZABwVmGcFT6nsEEu28TeouChyZ
QrMwPoE11wzotn0UxIzxotf0EhiTyqQdk1OwejXE9ogItDDY3URTUDCyR3jo
TD+BrXsH/Z7MOL5TflQqJdCoLEGqS1GQQppn5igI7OC+XHNlhIKrv2fzvk4Q
KAq7HZf/LwWhz8yrSiYJZHpdyvccp4A2q6IuaJpA1vML1cMzLogX8iu/EBjv
1RtppaagMli7LVqLgx5L/qGKP1KQcDm7y2guB/fJbEe8JylwbjYXPf6Ggw3h
HwSKGT9yg+Fl8znonV+qaz1NwclkoVKgx8EQkxp244w9q4NHDxtwMCkd7sZ8
okBnVD5uvpCDaie/prmfKWiySpxsNuTg2+QPZMGM/wOq9nq7
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999948\"\>", {2.032*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.2556006796631463`"}], "0.01731318525241736`", 
         RowBox[{"-", "72.52280047588773`"}], "8.598219082728844`*^-103"},
        {"T1", "7.272479736498016`*^6", "81999.66990447493`", 
         "88.68913429737037`", "2.4327314583092846`*^-113"},
        {"A2", 
         RowBox[{"-", "0.3599295578880239`"}], "0.016820966972761375`", 
         RowBox[{"-", "21.39767341977825`"}], "2.7899402803179494`*^-43"},
        {"T2", "1.5084726633902728`*^6", "82803.37302898767`", 
         "18.217526752952313`", "9.815084617285834`*^-37"},
        {"y0", "0.9862242873716134`", "0.0007320362425044382`", 
         "1347.2342352853302`", "2.897150933591645`*^-258"}
       },
       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.032*^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.032*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.7778984139290204`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1Qk4lHkYAPBZtmS3lEXHpnaSDkop7dYk63vXKqUVyjqTI6JDU7nPcSQr
17hnjE0WSVtCi9qEUqQWKcrVIsfk7nBkKzvzf+0+X/M888zzm+/9v+/7/3/v
N7PM7rixgwSDweCI3uJP8mJ7UPEbJHLGvbpKxeRI1VA5jvKXu6XQ7at6qJUt
T80crrwgZs8bo/bvkgx4U9hJbGMpAcI8y9uNwR3EzOAvwSRdOQks24nrtOWA
VVC+fO+lNlyfvQiMdd9bQ3UzcbEfE7yrH2yIm/uU2EmgDA/T1OpOBz0m1lNX
gdTD2x9Z+NcRm7HWQZOabX/5tSrsr2UD+DUrr77ALydObtgEduvN8v0i/yAW
Sm+BeX2We7fd4WM/nprAddDOy+Yma4ttqKQNNm8nJ/7+qYB4UzBAxLZ9HPOF
pcQRsTpALstVEauX6sJ5gbihGmKmtB4wSMJHxFbsXcDVcd24nWog7nq7G0LO
ihM+Iy5O3AOamkNL20aaiQdUjcDWwspN6oc2YiWe8XR8O/FHhX1gtmyhQYZW
BzHnvAmUKGq8Yxd0EmdrmsL0/SF27zKDImrBFzJUF3FfigWsbbp1T/VUN/Hn
dlaQkGS/8huXHuKK76xh/+otoi30EivMsYErUo87czSFxItn2oL0Aq9sRgHa
daYdWEfxfIvNX+L+ZezBRCO88bVkH/Gg4kHYwh3LGDFHa2s4AMvxdYdjJrrL
0HH6vPuJW90OQUy+zJv4JPSqdCeobPttsfUH9N0GZxBt5mDTngHiwnlHYKZ+
YW5eNXrS+CgI9HyMJ9YOEnMFx8CLFET7DLoAJ6uXORaEblViw7rgQtEJDRFn
1LPBzb1V60YHuc5RCD0BKv3qe7xY5DpHXeskXPdxvXMpAONHx0/CP43ytVdD
0faFp+BZ5ZQLvwzjvT1dQdDUzr3YgNb83g12zi7e/PwuxmdJuYPMUp7FYDP6
xhN36JcJmWyUHybxHpke8PD2hIHwMa5/7uUJuUyHJT0q5Dpj2MgL6td7+70f
xvUX1bzh64mUIgU5XD97jg+MC0NNp3ajF434wNZFy9O8z+H6ukZfGCwWbwit
Xu4H5bGDR37fiPGsXH94VxIU75aMHkgLAJ9zlS7SlmhlfQ7UHB2penIYfaGS
Ax9NZoXKORNTU7qBwD5+8+xf14nL1twLhMYrxzYdqMd6anpB8NrwM0dbX7Tk
wyDIHDHfmhOG8ZeNgqFXf1I3NxrzqTUFQ1SP+AusF2gXAme8xD8Y6JzBEHq/
VLb3aTAjA4X5vKVD4c6hl9lK/lhPiR8KeaM2oicO/evaM/R+yobKzgCv31h0
pJhP3jQMZFMjZA1LsJ7McBg9P6ct7BfIr7ZKqi/D+EDlcBCKpm1FC+Z7Vx4O
1h80tKTysN4O27Mw/9uvJIci0c4SESAa3iUmFRh/IDOCft7Uml2RMBnr/6j/
BdZ7MBIJLdvfrPiQjqZ4UfTzpsJ1omFG8ulXqXWYL3s4+pPzrjGIgYpt3d3J
99H5WTHALzMwdekltuFMxdDXM1nmXPr+qdYCLv3+lznPjYWsuyYezCfEaR1H
YmH5XAWb+feI23Xux4KKb2KUaif2G7MqDtbLK3Kq8tGVoXHAIK8REi/siaPP
S9rbHfGw1CPaxXMU6/VdjKfXox7MToAl6XGifzDsN5GdAJf2tzjdysD96Dck
QPSfOzbfnMT99m9NhKFIjzzWONrtfCIU2XWGsbkY/3JWEn3emHonkuj9UNzm
JBD92RhdS8R+Kn5MBvuE6+syA9HqV5PBV/xzkYX5WYo8EN+tp5X/zQuPPl+c
G2M8KKm1Lwq5PP18OvDBb2epcPQV5gts4ENHges+2VJ0rW7KJ/fj56IU+rxR
CqoCqIWBGfqFmJ+dKqDvj+Ekm/r/vPwLNa4lPg==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVzns803scx/HVOdLOSaicVM6sVTIkFUkH3310ITxMJElEJhJmv7mEHblF
ykkl6cQppxt1xMi1HX5SWKfGTkpSaVnF2H4hhonOzh/vx+vx/O+98hDbI3gu
iUTyUe//ZraqxPsMe1Cj4Ko8gfYBv5ITwfdV1jJOYl8ENpof8BKFgLNW2caY
/OgdvFAuxe8aBHloKV8yLrWHKSarpbhFVY0DSdnPcMgWHBE7S/GR45L7U+MT
jLI/Q5bHHuvDnwWPxyrHNaGVbHqELJXgzd3fno+NL4WoquTwuX2v8fiUEO4b
P30QJ2koQype4xYmHbqPWvRBGDl6eDz5NX418Ypbbt4yGHtp55lJfY3zKHbC
DVYrgD/jVpYa2INbsxIEkdEUsJTndVcOduNdcSr36HgaDKTyXHv1u3DX72Ks
iQljqNNy66a9EePxBWf/ijKmw9knVYLhGjF+a1Op4Zd9dHAqPeDy6pwYn8OS
ak7W00FYGKepchTjNY92d8/hmUDdTIEDEdaBG2aYx+uRzMB4Ft+bayLCR+cP
3Ledvx6cCrtCnTqEuGvmuqs7sjdCE/PBu103mnDGBnMZNWkLMKbXCtof5uIN
nZ9cp4btgRGTsTKCUY2sJp8YdSY4gNwqTRK7ugX9m0qyLGnYASWfH2LJCzpQ
7rvEG9tGnOBr3YzTodZOFBnPDXqscIEi7/HjTOeXKFvbsVxkwgRqrs+1SxU9
KJDzZLW//m4g0amf5KffIp1HF6/X5XqAxxuhqOgHCXq/RBzqsX4PZJQFmOQ7
v0f26Y5egeVeUDN7bUvR/j7UMGJ2spzpDRvf8kR6oVLkLqyWBwzsgw0Cw23t
Ph8Qu4F3LDN4P3DIlSoy/SPi8yucFXMPAK9cxBqd+Ih+bV69XZjuBxe/l1De
3/6Ewp9ppPcZHYTuwVr/2779qHZNi6o8IADw8Oe/Hvjaj5I4Ro50aiD0C/JK
pjIGkPffjZubPwfCSJ92llJXhmJ/UtbnVRwC5rpl7pNZMkRZ8+3FZXYQmFyb
3WQxIUMvN6I83I4F9FXrHoyzBlEXkzJAmWVBOlXa2PVwEPUftez9oz0YNufY
t+isGkIptgYRbgWHoalUPwiLH0KBBtdzbPaHQLMXJd/o0RDymA7w2k4PhaTo
wn/steUoS9ZQljUYCuwLmos2usuRc7a8iFRyBM5H9J9hnZYjA3OPzfkxYaDX
QplUtcqR5bu9B0OtjoK1aOf5TJUc+eWcN/XRCAf/M9cKPM0V6KlbxOn0tnC4
UWJZSvNVoJbmZenvT0RAU6HO58k0BeqwmjH03xMJj8krNi28q0CGdceZenps
cDzVdeJ3sQKl2NjQ5B/ZkC3h/egypkC11n07E3yioMryDIe/hEDu++NaV9RH
Qe+cJqizIBDna/FSEZUD04v55z65EsjKqKSyIIUD6GKbq1MwgexNdJenSTjA
3iHUSk0kkPiunmeCIwZOiTeVknME0qiXvThTjAFZji+3vUkg4Whczy+3Mdg2
4uOfo3a22bx3A3cwOPq0N6NP7UVFtAGHMgzeMp5mnLxFIEqmr0pZhcFyY7Nt
ncUE2uwlohxsxsCx6VZ10B0ChY7wQ9a/xYAiNW6MKieQqSkKf9OLgQt9qrxJ
bYIlisqSYOD5QJipwydQdLcsXirFwEyQKStXOwWnZecPYhBC5sQqKgh0+bcL
/G8TGIyU7moIqiKQXxutunQKAwcgLa5Umzqnot5nGoOirbZMUjWBbkWLmu/N
qv+lBicWqn3Pd96LEA0uwHPW9c4aAsXmXXi1RJML1CXm5itrCbS1g9b7YD4X
GI2NVyPVbnJA/SsWcEFK9bYm1xEojScaEmpx4dRWtt9etXfW+A7HaHOhLpkd
dl1t8rBsjKbLhX0/B/gPq/2UfmyqYxEXiq132djVE+g/uiXTmg==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999941\"\>", {1.2192*^7, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.1697967298286946`"}], "0.02497343243003855`", 
         RowBox[{"-", "46.84164794350173`"}], "2.8337002422092384`*^-80"},
        {"T1", "5.399725943542661`*^6", "81494.60753124594`", 
         "66.2586900792466`", "4.3680483129682624`*^-98"},
        {"A2", 
         RowBox[{"-", "0.448334078000763`"}], "0.024416903804915555`", 
         RowBox[{"-", "18.36162691153763`"}], "4.822500124646075`*^-37"},
        {"T2", "1.3727308349624714`*^6", "71328.74555813071`", 
         "19.245127952569113`", "6.546348862745658`*^-39"},
        {"y0", "0.9889215805940359`", "0.0008096288922317623`", 
         "1221.450457218799`", "4.9814358982727964`*^-253"}
       },
       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], {1.2192*^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 = 60 K\"", TextForm]], "InlineText"], 
      Text["T = 60 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 1.2192*^8}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.7778984142332067`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1Qs0lGkYAGBpS1LRropoSzrLZitbVEjNm1yOnCksK5d11xRq3DOoYcY1
Q2Uruurotkjh1ClyK2co0swqRpky7tfNblu5rFr/9zqd+eecOXOe+d7/+/73
/d7/+3V8Djv4KyooKHCnv9Qv+bCjGLrBwVdvCbqrKHItahlO3pfWNjr2EFf/
IWXoSxWuaeXieAdnhNFq9eqVjVsXjsePMSKXPmraKZERe7kpgu5mv9qk9A50
kTKoN8f4cPa0E49qL4YVgwUWcRES9OclYChT/MG9+gWxYZwWaPavne3hLyKW
NKyCUf9FlY01dcRb9dbAP73MN+1Pyonvi/Sgede+c/q784hd6g0ges6S27md
p3dQXqVkCNV8lWz2rFJiNfuNM/GP0Y+MYGAulWEDxrtugcBhX0FcoZiYoWkK
VsZVN3uXvSRmf9kGLpWzG6K82ohd5jJgo4FpgGVdOzE3F0C6pWhSGPGW2JBp
AeynykyTGhkxS9USqkxf/Jo80Ums320FauIJHdcd3Th/ow3siou4eXtRD65f
bwt5vs7hjWm9xNmtdkCm+7GP+MgEE751MNt50Lofr8/eC9bU9mgN4HoV9hCq
Dhmr69Frhh3gQmiCI5M9SHx1zS8gSlc99zcMEfcHOAHZDj56tMQZVH37vReY
DxM/nOcCGhbUP2g71j6wzhOzjJaPEOeKXWHnpu0soRL6/i53wH5C/17jAYGk
4dBGNp4Qfjq+aKMIbRfkBfyLiXdK1f4i9jLxhrMezSWBrmhnFR+4ornSqIuH
Xt/pA6Ta99H3KnyhsDjT+GMx2uGSH21cxPOHkinre1/q0YaHAuBG80C46UV0
qMd+qHr77tPkFPqMPQsKXh6863oLfcH2ALTVLZ908X1HzLc5CE/Pm0WH6aGZ
uwOhjlpNCz3hEAS1MvZW7UXoFM9gqClXP3JWET3GPgSvj/lNZgahbZMPw8Dz
76fa8tA77NnQ6JgYnW84My5jQ+0e3tgBNbQwLASEOWVbHZehS+eF0uZbnBsK
b65VT6+I7jAJg3a31BiDEPSqljCQDH3gVPyGFoeHg/QJlRD6/ZIIWn5JDyKA
6t7Bveg0z0hQIJ9R4i9KUbT8e0qioHnh3rJZtuhtXkdA1qAdm8NDf6MWDS+o
8jPR5o+ioX0kslx6CN0XyYGmiw8fZG1BK66PgTbjdeXX/dEZfTHQ/348dvtl
9PG8WHi2IX/c0hg97h0Hkn3zzFS80ZLVR+HlpkJOkhNav/coPI+WmWzYhh4o
OCa/v9yFplz4d3/m52Exjnte5kLLlcrpJ3gmfk48fCwWbm+RYHxBcDw0qVAz
oq+3xIP4Z+qAwPhXjAR4v4I6QdBWhQkzzzPGD2rw5OvDrUviwYj4svlEKcZL
P/DgSdXS8dbVaIMAPu1+i1v5IFR6NpariWbbJtKuZ1UmwqeVbZ91X6OzNyXB
J8FQZYgU4xXyk0DkNLfsKQN9RSeZVv+Yc8nQeQP+M0pBC9RT4J1Wa1xXGca3
ZqbI14fruiAVqNHD7hi/NC2V1p/zldNA/FiDo2GB8ZtT02AomTWldgt9fv5x
IK+LmxhvIjhOq7/q4nToeUbdIMavOJMOvWZ3YpXOoP20BSDqoxoE47vzBLR+
vvBTBq3+6fcyZt436LuQSct3WVMmrd6SdSdgSNPZ/HE+cTVEnJCvH8O64gTt
+RuYcxI6qOPlKFpvz7Q95j/cHY/xs3JOQlUI9QYh5011VNdJ+Xpx09afku9v
rgnnFPxJba81rs8XnpLPlxH0XRYt31GvrK/9+D+HRxO0
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0Gk01A0bBvBRCaEiqfAMIaHsu+J2y95kpIaQrRKhMIOQlFLIUrY2pfK0
eJJQKOu/lCVlCUkp+2hklmSLtnfeD/e5zu/Ddc517vX7Qpz9FpFIpHL+/T8T
Gxc69sh/BNHKj8GfNJlE3vnDJR6zTyweyyesqf0xShRwqsM2zjZZKC0v8/ha
P0oUye13Fp99bxGWGZKlumeU0C6rsCTNfrEoEmNobDg7QkyeGKyan5mzEBm8
ThTxhohOv5nI2RkhtDxV6mQ38ZnQfpq28m65MA5b7Kywu/CZSFumcp8WIYIL
vCVKLw0+E3bFLp/Lppdh46B6veqpTwTx48k2xpQ49oTst8pU6CN6rM2Eo35I
oFeaZp8+o5eo7/3bPT2zBvML7xjEBHYR0fH+jE+ea9FrYbyGKd1FaKu3S7xs
WIumimKkxhedxI1jeY5ZOeswX0AtaIjcScSSzZp1DGQxn7RG/PDHDsLoQEz1
kXAyKj/YGbTjzRui5+iCU3i0IlKUZcUHc14QuhRNhYAiRaxZf3WUK/yCSFfY
x/MYUsQHM+LUp7H1hPWrV2nb7JVw+lTh84iDz4kymSstkuuU8fI5iWFeQh2R
UWtkVfp0A0YFBlWtNKogKIsjjLhzqqjw8NwbhuNVIjr3QmGoqhoqTGssymm7
SNzVeyA/tUcNfYoEpdqdswiBAyNCPyrV0GKFFInVlkRUvNzZKxCrjiTWyRsr
pnaB/FnN6NWkzTi4qt/6xttc+C7MqtoqrIUK5v4XFqU9Bvlbi7UIYy3Utm/6
LUctA4qJ/L94SAtLfEIZ3ivL4d4hlxSbFi0s8H2U6XuhAjT9hjVUbbTx5Nf4
vuNnK2G4wemPjrAOqmYLclUpBFASNW5Yp+qi/mt6T5liA0wn08TEb+tilExP
9vOIBriWejy6u1oXszOzVKOaG2Aio3XX/gldDDVaXjUa3Ajnrh0WjnfQw17R
Y9XNpU3wqrQorEZYH0l9MqZKm1vA5pOGld4ZA4wVc5DQGWsDbj+tdOGaAao2
x99x0WqHi0PHyfVlBsjaJzOgF9UOzLHWH06jBvjp/De/lCUdkDB5uOjINkO0
843NfpnVAS+WPpS+L2CEY4VC3pWFb8FCR3NcIc4Y6Unkqi/1XdCyqtaBfckY
vzuZtYuOdcHu2e0PnpQa49hcxJCoSDcEVB8KcWQa422rlqabjt1wwfrOzDGK
CRr3CEoq9XbDgJvcovcyphh8/e3GstF3EHdqmWzaky1ol3YLtzPfQ23XGGX+
mzmuJXrT/dP6QPvyOElMBPDi4vuuEvf6IH8vu4y8HlCT9KHk9rM+SGJOylnt
BEwXNYtLmuoD57lf7PRSwIS6SF/bPZ8gPC3ZRtLEAv+oVtx9+s9nWFZ6Y+ze
vAXOlkdIS13pB4Mfr1W6Yixxk/R8oF3hIPi0kI71J1qi9g518XMVg/z/G7SP
Z1tiXZfws+fPB6Hf4sZRUrEl/vlVd2ZV7yAkJdObNUYs8d6eR224ZAg+yawL
TNq+DTee6BLpch+C02YHi8zkrDAvds5OUmAY3p4i6RfUWqOhlNdlRf0RsAqt
vxXZYo2xfvnblpuNwFPPhBXW763x5K0P/323HoE8Y+GJoW/WePvh6Ms7riMQ
yF2RL6tsg/r1JxZXxIzAInf5lefP2WDKOdZkAjECujrm7AhXW3wg/FFU3GoU
sgaO3d42aYf7sp6nbDZlwkLt0WqD33Y4Vjkt8seCCfuuMTo3itjjVc5Idost
E7Tdgkhi6+1RTtJ8eDeNCW2d7nu7nezxQnhlp2YoE5Y1mkj5ldhj/Dqtyp+3
mXDywdzpsyEOiLU/JKVFx+BINGP/K852vJbbtlyxZQwam/LDaxe2o+PUcJNT
xxjIS3eeKRWiYKDAo5aYnjHoeKRdcGU9BclpMnXPhsdAl81hH6JR0HEJtkv9
HINZr4DIZbUU7DnerTyk/gWOW3kmb0/dgdVzQn83JH6B1BW2xa3qVCRc1pRr
6LHgg2PJIaYhFZ9JFb6aMWKBSvo65d+WVOxO25pWtZUFz8TYlzd7UPFo/JVN
pjYsmBLJOJWSQsW40AgxSTcWuC/po9mz+f3pqAsqcSzIjjWKG3ZxwtuTko+n
GljgG/Za2WvtTnzin5d7gzIOK19e/PdpljN+vT9+JsfgKwxJdQQ4a+3Gy2RL
G69lE2CeYEvzLaZh59bA88mlEzC9blX6cDkNfQLyLZXKJuB+cX/j/hoabqsZ
kamumADpvgjjg69oKMSeAWb1BHB1bssGjdBw5TvbU0qNE5A3QBoOX+OCjsY5
q+w/TsAf06ojSSdcMCkHM1CADbWTm5OKqa5YGtXzTcOBDWtXEzskXVzR3qCi
w4nCBrrxzlURe13RLctWj+7IBpUTEXmmh1yxeFdNQokzGy6I1ZU1nHLF2Ong
SFkPNuzbSB3qK3fF/ACHuMIgNiz1DDMVltuDdBUby+oUNjg1l7N9WHuwMvS0
WUcTG0JqY6MS/dzxXsuaii51DpSUlDpwFu3F+LTU3LQzHDher2zVnOCJ9krW
nYtbOVBjo1zklOKJ1BrXBIU2DvxqUZL+kOGJauZDwVvbORDbpcgaz/NEHfGL
I2FvORAzqpAqWumJ357IHu16x4Gopf90O3I8cewStzSsnwPhDqsPvKN5oaRY
91YyjwPBnYIJwyreGLnQenX3ci44jb6Opmh442jipTrzFVzQn80IqdDzxqXx
L0B1JRd+rSN7nLPwxi2FQnvnJbiQ6muoq+vujQfVMoWzV3PhwbeDg/Fp3pjh
a5RVKMcFzvLmreunvVG3VDbooDoXnmxoWCj28cFdbumSilZciAtTsVVT8EUd
k/iF9CNccK2pM6zn+WJxxtWAwBwuRErPVuaU7kM74zO9gmVcIG/4++5qyH6c
uqZUndjKhfe6kEOYHcCwWzve8ka50EMls8h/DuCu0ZRD++e48CVIv/96mx/m
kvydrYV5EL9V7rBj7kFMyir4oCXNA1+5f8+buPtjy9LE7erreeD804dmpRaA
PZnvw0038SB5vPZh8tcAlHIcPKCqxwOHVPZNUsEh/CU6NfLShAdyms6GlyIC
UTn7mtJ74IH+gIt3gEEQtj4WqrlpxQPP85mb3ASD0frd/JdF9jx443g4JaEp
GD86KhCRFB401K9LGDpzGJPqCja7UnnQbvBb3mv3ETzf0Fq8sJMH8k9PUFev
DkH6/QHyit38/SYmimxmCMofJUvN0njwxGjYJsYtFE8Ex/kkuvLAyf1oo2xl
KFIzJVgv9vAg7Ne9Na0KYUitteYw3XhgoFLwKDc+DLVzAwNb3Hlgri4hc3ow
DDukugeSPHjQUbR6V4wtHV/89nxstJcHgpXj79Lv0TGEsjH5Od/N349+3PIf
HfvzVIgXfKduXjrAuk/HR89Sphr4lrypyLJ8SMcG6VTXFr7JiR4Ls2V09PQ4
I9bFtyGtlexdT8cPAu6bRvkOmCzx1/pMR69KLytBTx5s2gTBn/rpODZjay/E
N/dAa2jyIB2rsqsoInyH945Hj4zQkWFoQRXnO55QTL30lY4FKV8tV/N9NS27
5O8cHaeW3WEq8+3ZpFj+YJ6OZUvyu1T4VhAorXT7ScfLv42fqfJ9N7y1/vEf
Og7MG+ds5vuxx9J3/oIMnHC8rqnPd2RO9gcpIQZGRZ+VMOTbtF2x/7kwA2n3
JaaM+H5mCV9kxRjYKiX5aAvfp2NbJ5rFGZhom3zejG+bCo9vESsY+IZ+Nwj4
Fvk2Pq0owcADGYE2yPcbtaj5dkkGel/vkd/G9/8AzU5rlA==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999926\"\>", {8.128*^6, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "0.4415493459999306`"}], "0.04734484902457442`", 
         RowBox[{"-", "9.326238336312864`"}], "5.729100123435574`*^-16"},
        {"T1", "755935.1690041937`", "61700.56580645514`", 
         "12.251673207915827`", "4.767692969369949`*^-23"},
        {"A2", 
         RowBox[{"-", "1.2008665936176406`"}], "0.048199752715774175`", 
         RowBox[{"-", "24.91437250101569`"}], "6.791162209497413`*^-50"},
        {"T2", "2.421303745513684`*^6", "56749.96690678414`", 
         "42.66617017576148`", "1.421113060626322`*^-75"},
        {"y0", "0.9804451574663678`", "0.0008674485511645386`", 
         "1130.2631794705665`", "6.94432311832274`*^-249"}
       },
       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], {8.128*^6, -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 = 80 K\"", TextForm]], "InlineText"], 
      Text["T = 80 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 8.128*^7}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.7778984145912485`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1Q0w1HkYB/DNqSjJsl6iOjpFkZNcLVn2OSm9OYRjetsob0ftedsNy/Zm
2ZRFOePq0pw6V04qlZr1Orrkpi5XHV1IpWybzkuWtey69Xvqxv5ndnY+83x3
5/eb5/n9f1ah+/33alEoFL76M/lNHjaHueXHxY/C73XXTpJv18Rc22Hsx/FC
dzW8YLrQ3fVP5LwiZl8aYFp36mfd9HxJXBemZFK5Htqdc19gXnsGTMwuntCS
PEc/0IcHOQc/hHW1E/cLaJCbuHVPB+0pOswcvt1wPdA/9glxFc8SqCk2jZ26
LcR0G2u4FnU1psj+D2Kugy0svbVqY/nxBnS+PYS3JIQ477hB7HjJEdyshn0y
q/NxvWtWQtm5wehScZHHpEWKr4ALQzsMeDfREjpYLG5dd+96PTF7uhuUnTH8
7pfGZmJHPw8wjI9obJ/XQizZC+D57vzD5KWPiUtdPSF9+uNd02StxG1LvKAi
Xav3LOUZMXfZeniue4XzdW8HcabXBph5pxUGEruIdbibwPKznrt1oy+I5fVb
wJml0iv0eEVcRvUFkAX68oy7iWk+fuAfc4a2zeY1sXOBP4T1NLa5rHhDrCfd
CpxNJR2GUT3EpzcEQrqO+HOtPnR3ZRAIf8sPfVciQdsFA2l/5VvMl4dASZfC
tspdiv/H2AYXr0ZfLCtCO7duh3JRsl1JJ5rG2wniRdLyzNvviINMWVBtvuxy
RjNaJWPB3eZfr8RF9xIf+mc3tKRYDe3UeU/8sjEU/jzaEr97COu9lWHwJNAv
MTAA69qX9sBTlxVJPtlo+YW90L6AylnfiG4qDYfuV11yOv1f4oSKCGi3Gkjy
FmN9vDoSXrfRXVb5YJ3VEgVv7osOrNyDLpZGw9sb3reX56HFujEgaZDcckxG
VzrEgrSC62r/EzozZB9IL/MVdsVounA/9PPlayxV6FAWGwZjCt0slvQRF6jU
jmeNzzdDV539HgZSLMcX6qCbPOOgT1A3ZtWPv/9dGqeeDd/UBTSsXz0ZD4Ox
olQLa3Q2JMAAhzm+wAAdMJAAQ7soSlMmelZJIgzGRYrnm6PLQ5JgZH2dkspG
Mw05IHczc5+bga67z4HhrSwlLRjtkM2FURfHNP1stHDLARjabsYwXYd+TE2G
kU3FSsNItN7TZFAsF6XNLkE7/ZwCo662NfpC9Dp2KgxvLmQYhaO9mTyQBdMZ
Jj5oulEayEIceSab0SZv02D4G77SiIV+WZ8OH8KbxPOc0A98+CCHfp5BKnpR
DR9GvB7yqAno9w4HYZDNdZu/EP3lOU1LaIdg2JfLoO1EmwkPgWybpdLEG11L
OYzHLQDdwT2ssb+4wcMwsraNQU1Cp8Ue+fi+Q0+THgE5wyBt7hH0WMRRkAV5
Vxv7o2N6joK6WRPTH37sX2SGRn+uSTNgzLrNXfcGOmufQGN/f38QwNiy0ppZ
F9FFyZka63uilQWj6mnUz0QLsrNAZcSa0G5DV5gKQbFy8gWD9i0RwphNnUq3
Ah3hdEyjLqs/BqOrvGvm5KEV/tka/Uh6na2x3qgDxzXyj/RPgNyzS2nARVee
P6ExD3ruOaBYwU7TO41+1poDKoPJC4WYL3IRAYU8/aTeJxDBUKhEbOaKed1W
0dT98TuX5MKYXbFqVil6PycXFE6RNXpFmBc35WrMd6N5HoxsLK02jMa8IDZv
6nr5M+rzYNQ52H1OAebBOB9kAcEM4yD06uh8UB/m2pkNmJfUqv1Fl0qnCh1o
chJG6ZMX6Kd5UXs1UzVHhA69cxIU9oXusy9gftrCU6A0t62d0YzezjmlMU/x
Lac0zpeXfcHUOv8vQQFM6E7eQGiL7oKp+6NYwg//9/c/UrL03A==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV1Gs41HkbB/BRi0lR7CqkcXiiRJJQavWb27FkpwwqSYgWkcOM0zi0kULP
qHZjdVFYbNQSyiGKf6ScckwzaTUm4zBjxkzCOCSe//Pivu7rc32v75v7xa1z
PpR6YQ2BQIjC5/875c1S72mtj8gDKkqbjEex3FuXKjykteRvnR3F+cRRrGTq
efgOaSt5x5bV8w9GeFiZpi9VUcom73WQc9fL4mEmVTXWBOkEmU5eqyiS4WHT
v3HrF+fmycO96k/onM9Y/4W5KOmcPPQreSr7+g1jJs/SNz2oJkJuasUjLZ1h
LF1B/5Fb5Drodjn3N4nDwY6Un/xUNasAjZcTGSOnORi2UGtDn1EEe3V2T4zz
J4xlZ0WMWVAGjl6cUQ7lX6z5w+rA7NwWGC+IKS2MYmOMRH/6kKcaUKgyXzdb
sDGTXT3KLa/V4PrVvwy75lhYXlwu5U6mOlD6ydtkolhYPMmqba/5VlgZc0lO
YLzH9vvFPg+JIEH3g7VOl5nvMFb00okIhi6M7qbY9LzswZzWRu4Xz+8EoyAp
f71XM8bIuf1P2E4D2BDdxAWZZuzBvlKtmdMGEN8gf+VtYRMm48eTX6gzgB/i
p3ZwBC+xmhbnDzLxu6DkYtmL3plGTOu6MUOVYAT85jTTVGod9pXIr/+ZuAfC
Dr27QlYow5xSdufZMU0hn+yrR8nORLNpbhsUi0yBy5zgpAiy0D1mAmPgOZ6T
tv0xaJGNhL93ufgKTUFbbeBoV2cuunHvEjHRcR8QMhpU7koKUXtlWfgLohlo
L3gpslilyH5ot+2+a+ag3cvr7P5eg8h7jQXalw/AFXnDK+4Rr1DHjw2OoqwD
MFrbqr1S/Qq5So+V1lYegPw7trNB869QwPPAUMrYAWByBoyKGC3ott3fc3FO
lhDx74389LjXaNhdcw1b4yBo7673ZUS2ostJClvTaw9B1TlGpKNNJ2p4N+60
+OUwbGKF2DkY9CGTuwLChnUIstOZjVTrPlRwVlRF0kFgEcLd5uTRh1LHpjVt
nfE8K5hNTO9D1Pll0c1KBLTrsoalkj4UkZ5mr2JJBtvYkacPK/uRQmXeePEi
GYzNb09Ldw4g84VO/Xex1hDszNhO4bOQdwchjpNiDbSFs8GbV1n4vcx7BBnW
8LGgjditykYccl40odwa2hJmktbbsFFqGq1tN88ahgwkzk332GhIQ/1i6jEb
uB7Z2qj/ywd01erXMitNWwjrLKh2KBhEfUkEs5IGO/Az4Jao6wyhO8NxRTbT
R4CbYqZneJCLQhh03/apY+DP/fjJYu4zYm50KO/adRzWB581Y2TwkE945/Zz
as7wMIwy4z82ija1/Fn47A4VfI/yBG/kx9Hnn3oDqHtcQUkhpLtfcwIdTnZw
8yl3g5ABL2ENgY8apo1Sy4+fghMGCcLlj3x0oq1a5M0/DbrOlVWydwUotCE+
JuXCGdCMVogrMptEFRWVjlNrzsI49/7dx52TKKF5u21bsickdpk/VzwqRMH9
sskj+l6g9H3n5ESTENXqvV4q9/aGFq/6jdsNRehyuL6DgbYP1LTL3X6SJEKn
XjRaNEt8gNhcVuzOFqGozdK6zMrzMF6f971j2xQi6a2+zw71hZeem1794zGF
2KYoE7PyA/f73ey8rCnEOk7ik1b8YLbAZPBm+xSaCDLj3O++AIW0BDFrcQol
/qx5iZLzKzxeMxi09B8x8tEsvGV5xh/oiS52ag5iRP3m7WZrEAA165reaASK
UZqg4XHaZABozQQ6hV4TI0emKJ9QEgh96Mi3U7lipGlMtciKvAht5/9an1gj
RmbDJ70CzINgPkHDqrBDjDxv/WHoLhsME2WiQ1ocMXpLufTf5NZgiMc/prtY
jF43qyd/vnYJinQVfO4vi1GP+Xetc64hILRkOYcpSJDWs9+Oq6qGgsA4YWFW
VYISLS11RWOh4KG2vENNR4Jq94/Yx7qHgVzu5GjvLgk6cSb6zda6MHBcumoq
NJWg8OXiLV3a4dB+jNv26qAEmeuXPMlJDIeOBF35X0CCDu9S1rjKDYeHs92a
GxwkqLdM1SXWgQb6DaS8XCcJkq0TvL9ZTIOZOkUPG2cJavsa/fHQQxpoY+/m
TuJmGskN8x/RQHpAKeUibpV8Xb71Yxp4as0wf8dNSvFYklbh/aMr+sO4Ldy6
SF7NNNh8XOtuDFWCAqYr/Pd8okGML9wscpEgQ0MUPMShgdxYEKEWt9ivKyyN
SwOCfU5gO+6IDwIGj0cDto6Gjhh3IqbLzJqkgZWhit5+VwnKTs+oWJ2ngQb/
aXIrbs9W3erSRRqcjDMLHMStLVNZ5/6NBiUTK7ZC3A8iupqfrtBghJw0ouQm
QU895N77y9Ihan9dtRvuqMyMwZ/k6fCUt+Lqj/tgjy6niUgHE1KFMAb3S2s0
sXUDHTKnL6zm4L4a3yVsU6SDzTAtvgy3fY3Hl8iNdKj/YflLI+51XwSzusp0
OJYi69mL+61BzGKPCh1sb9x5+Rn3/wCnL6ZN
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999924\"\>", {9.7536*^6, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.1155227700472623`"}], "0.04439158676438146`", 
         RowBox[{"-", "25.129148366967723`"}], "2.806162504061586`*^-50"},
        {"T1", "3.60583679442237`*^6", "85678.4776606523`", 
         "42.08567767396671`", "6.884279012848225`*^-75"},
        {"A2", 
         RowBox[{"-", "0.49877023557255945`"}], "0.04361781550876876`", 
         RowBox[{"-", "11.435011812370304`"}], "4.508812995027044`*^-21"},
        {"T2", "1.1060643846170292`*^6", "74991.73283574801`", 
         "14.74915091026909`", "5.655892531464852`*^-29"},
        {"y0", "0.9835851096864429`", "0.0009050263530025157`", 
         "1086.8027283661968`", "8.629220984692836`*^-247"}
       },
       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.7536*^6, -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 = 100 K\"", TextForm]], "InlineText"], 
      Text["T = 100 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 9.7536*^7}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.777898414997164*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1As0VHkcB/Aha8Ws3nWUQi/StpTxFvNLWbW2MCp5lFceeQ0NETEjxivP
1IrKnhpWuwhbySNvGqdYJK8kJu9GUkKlduv+7tlz5p5zzz2fc/7nnv/9/r7/
q+Tka3lSnEKhsL/e357ExTxDz6IsUHUXjVV9I9u2mt6/bfgDO2eUcHVzF900
Vrqir2mE8MD1UXpgg1et69Vhwsysd3SroyMy7B+HcL3zZ7rp9ynW/VsEuD5B
AjbwluprbRxAO8vAGfU0VT21PsJvriyDQxPxuhpJXegvq2B9dLrspcp29MBa
KPgrj1oe+ojwvIIieOzJv1RWVYP+YRPkb8xvihzNJxyktxUeTj5b16PHMSKc
vQ14JcutyqPvEJ4/uAPqVn7cNedZTzg5Ux1WBMvtUVvSQri1YBdY60PmZdoT
wuaDNHja0Oo8pd1FeKmGNqheaLtuZPQMzdOF558pDgU1/bieZgCed2yeNxgP
4vteGoLJL8pXr5UJCJv20IGxK8ZiWGcIbb4H9g69/djoO0x4rNMYuiZrtBo6
RgireO8Duf4EboT8GGGpFT+De9RL1ft30TF8Uzj0XmLAjT9OODfhAIQbnc52
PDdB2N3JDBgBlSOCn14R5pscBJtOIxfdGbTLenPQtXArVj4tJExTsIBiSalj
mVPoDhVLmJTwtmk3myS8V48Bpvq27D8z0JEMK+iUyVim0oVOYx2Gd062VZPu
rwmzrh0BjvW8tOQV9OaWo3CUMn0xtQXNkzwG192T7dqE6BkTG/C8NaiVIj1F
eGWSLciKmTTl66AlXtjBtTjbL+ra6Hqt48BqfMxU0UdbXT4BqfvCp+s80L1h
DpD6qTY0MQLtr+UI89X7Ny+OQr+ddgQPbdpUFBdtU+QEhVlPSup56CCWM/Tk
bygTj0EX6rvA9odKOcbZ6FbJk6DkcHYuMAHd/fSr9eV3911B83NdoUwyxDWl
Av17uBtk7qb6VeegHWzcgXKggqU5ipbS9QDuRh/uvRF0+rpT4K9W4xNRh14q
7gmr6Qs83t9optAT/IYlPpr1oe/3esFsurWFxhh67LE3MFwtg4vy0ZQ6H8hu
WtarXEz6gS8o2I/26w+hWfZMcDv2b/JwK9qunwnNH5TDGl6gdRz9QGZfH9W7
mdzviB8wYKZydRn6sZc/uC0xli8cR0e+94cQs7xcuRm0Ovs02Odmer9sI/Oj
soAxp31gsB3tkskCMd+1aq29aOH2AFD84ybD7xHavTIABF/boTZB5m0ZCPbH
X8znkzYYDwTThTXFt4ToNM4ZMLzEXPS8Az2wLghCyxu7xlvQiveDYPbBPZmW
Z2R/jgRDUuwqzfNf0KGzwZBxomu54jQ5j/SzQE1K59y4g841CIHm256Lk+fR
eYIQEFIZY4/IefDiQkHA/jXchfzeZNo5kXyZA+fA30ph2/oS9N7EMCDmQnlD
mGoYDsLRmR07yTz5U+HAkL8sEdqIrrBgg2lX6ZzsB3RiHlukbzZSHOCmxNzl
1pDfe5IDMophlu09ZB61HBDuLLrhSu4nQykCMt8dWoirQh/kRMDtw2uMkx6g
FwYjgOul+ukVOX+e8XmRvExyzsOqtsGAjm60YHEkdMvltP5WSp4nn0jIiNRs
LiP7JtURKdKvVL0oUJw+wc8h+7n6RhTMCVY2uv9DzlOaC5q1YBgSj6ayuGBV
KPt6JA0d1s8VWT+xP1qkH+b3okEsLWj8FDn/wk0xQKsq2EIXoKVTY8Ce2BD6
uFisyHzy/GLh6+E1KibP14wgFlQ1blV0d6K1DsdBywaujsMT8n/DjxPJK9cg
HkoH5fNm+WR/i+KhvqQ/9mI5WlzlApRlfBsAemvWBaBlmHtmvyb7sSZBJC+7
5ASRPvtIJ4JYaefN72rRZ6MSRfJkiyX9f97/A6B7CCU=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV13c41V8YAHAlJfwoQiJJVoXs1TheGRnZZLv2HveaFUpGZmWHMioUDUrI
jESERGSvZIR7JSSpfuf+c+/zeZ5z7nu+7/ue97nfw/Y+hk7baWhoLuAP6vf1
ls1us0NDiHP665unc7MNOTe9Si3XK5VZ7kh5ns+ebXi4VEMUXm9VDr3yLjhS
d7bhCY+D4X/rn5WzN229X1bMNEiUV6jQrM8qx27PKvyZ+LXh+5WJ6l9rP5W9
WJ5avTD90tDjtBa4vrYLnttxckjfHGuQqErcU/iSHnbqlNDvYx9rSGQQKjYJ
2A3RlxPFP2aPNpx7ZjpavsoAf8tOXfpcMtLQsFF51u/Hf6Dl2a4y2DfU0K92
mj54Yy9Y3FIiUPQ+NzQN/Pu0usYJ/T5771350N1wMdzFb8R6P7Cm1eSTHbsb
JI592Nv8dj941tDGKax/aMi9nKObksYFTGo9IxeMuhpCeE+/k5TlBoE36vU9
vO8b5B0v1Xj784JVv0JJ0c/mhv6gTX3/i/zw7nrrvzcyLxqkdMT5XJ/wQ8zZ
rzSfRsoabvDZUywn+WFDdzmY/Xppg1pbW+JZzSPQ/YOvV6K5pKH8QGY7K5cA
3Ppd0i3okN+QVCevWlYlCFclLtxiGPVHOrQB8uSfIhBz+3ZgwvQLdDH7Vomv
yFGQUPojHLRYjgqlHx/6YXYUXLebNFBWXqJtjl92bbw6CsqaGezpvytRRbPB
wLaQY6DAFLVEt1WDDkWLX2SnEYWRl1KGs6ONaIV+rvoU/Qng0wjqVxZoQ4fy
aU80KJyAxRQm09spbUhH8dB9cDsBeYaPuGy2t6MiN9N49fYTcMclK1FhrB2J
O02JiahLQELYj8tqNzvQ1Fv9v5L0knCLmWY68/MHpHNdLFctQQpE5vmJb2h7
0WqsCdN/D6Qg73BGn65UL7qTEHrxU40UxA0aLeQTetFCUqeRw4IUdAlO386r
7UVxd7zow7Wkga9RsGc36RNqK3tCrKWXgUuvDvd+7ulD6iNiqtJRspB3aONv
tvcAIo+ZlG3ekYWqSw0Rr9MHUPpkKG9TuSzENNY0VtQPoK8znRv607JAchMP
42IeRJHfvZ54n5WD8uZB94biQfRm51OO4m3yoOp/v7tleAgpS4rP84UpgLpI
Ykgg7yhqZ6vTWsxQgNo7AZbKqqPIeF37cWWZAiidudY14jaKXGvcfHS/KoCc
d234jfJRdEutYO2yjiLQqHORRjTG0Lg5z/bPB5Qg8NEha0vncRR2jYE7sfIk
yLFbfj3XNIHonTJDzD6ehOevn4im9kygZA2RsSMLJ0H0gmNkx9QEKmRSz6/m
PQX8FUldO2gnUVd6uPBc1CnwbhwvSFeZRLwlG9JnjU+DJtezMJP6SVTXO6Pz
a/kMPIutM5t9OIUkbs/TMO1GIDHTVspWMYXuWS2W8x5GQDMnzyP1ZgrFfP3O
o2qAYJVGh6g2OoUMf24t3ihDEPar6Vvrni/IPzFWnVVRGTqqswO0Ar4ghrLc
maJfynAwP+vqC5lppMqWr1xGB6CSzH0elKdRaMC9rOq9AF3J2TxvtKfRsmKB
budRgKoyr6179tOor6m4YsUcoP5AGvTdnEZ5n15Gn64G4G96UcoyN41kN94L
9V5SAeX8uDtyt74iQjvN5bHrKvDMdSVOPvsr7g/ZD/OpKiATQK8hWvgVjSnn
BtE8UwG6TieH7zVfUUws6Z3YFxWYS2RtWZj5ikYOcLnHaJ8FGjv3l0+UZlDE
aecnp3lUQetVH2vL4Ax6ypK9TfOoKoRusXRZfplBA5MfTIzlVMEkr4J+dnEG
iUYr/nXXVwUjoRixsX8zqL+LSe92pCoo7ZCM0xecRccIL5ZXFlUhzmUvjb73
LPp4jUbmYZ0aVHZFcDD8mkWqvk35ge1qYL3Q7oO2zaEq60gWtc9q4B16Z5fn
7jmUo0C/MLmsBktPhQ+UcM0hdzLLPW4BdTjzb99wo+Ic2m5xaM/NOHV4+EZL
0CJ4DklJnlkMuKABD3LXJQMpc6iAl8ZC1VEDLDSlwgrW59B+pqZWVqIGWPpd
Fu38M4f+zqjdfxanAeYPa7vpmOZR+53zFvN1GpDH4MJ3UGQe2dNbv7MSOAcC
+wv/frOZRynjlx+c/X4OMmkOv1dqnUebdUE1sn/OQR1bQhtXJ15/x69HeLcm
/HpzgOZHzzySMPegYTqsCfuO7RZLHZtHXT0WVp/0NWH1bYJI8to8YmhR3OdU
qgl26OqDcP5v6OrjnxHRPlqwR+EnwST4G5qL+5EVfFkLGOKqz0aHfkN6bpQy
9+ta8Er7EPPza98Qr9DsuG6uFkjUyXtvJnxDtbn9Jzk/aMGGtvW8bv439DP5
5Y8icW0gKRcKM7Z9Q94X/RzalrRhIkUhdWXfAmppvedft6kNu3jejSxyLaBD
HD1RZbt0YN9Rr5FJ3gXU/VziYeZhHeAebeCsFVlAUotLi24mOuArnMEjdWoB
rdu4BjLU6UC6Sa3SUfsFFKpqHaudcB7Ot7Y7uBUvoP7khCyUeR5UrDn43z5d
QOKTNSXShedh6NQW8LxYQGOhB7q4X5+HmEhCdW3NAlKu/My6+OM8ZPsNc7R2
LKAdxwzvJFjqwiYdoZKOvIASWDSedR7TAxYVE01tsUU0qFvq9lVODx6NkXOG
JRaR0A0ugT8qeiBhvcvHVWYRvWZavC1qqQeiUjUJQScX0Y/dSdfi4/Wg69+t
Q56ai8hix7CJ5qIe2Pf53StzXESpIfJhU6b6YP3lkuPb24tIicfTkmylD7Ir
B1MWshfRZE2ewqa9PrQWTxQw5y4i8d+7f+z10YfV9zyR2gWLqPXiiAtc1wef
b0IX88oW0WZguEFepT7obfDNv2pbRHbE9wI2+w2AtpCX0PBzET3OabmhzWsA
4X8z+i9uLqL1940bCgIGUCQU+0jyzyJKEKrqYJMwgJYjrD6Z25dQxfAD/zYN
AxjQX2zQ/G8JMamHNcsEGYB37/biE/xLqOqApCNjvwHsPm1YfFhrCdGeE+3a
GDaAoJmtoASdJaQbIKwwM2kAdySCKKu6S+jLh4NMjUsGIJY/P11vtISYoxjK
A+kMIaXkuYi89RJypHyhnZIxhF3zTDtqfJbQnub0+1UphiDwPIL7UMoSMnpU
wiCcZQiTeVvjxLQllH7jNTEtzxDufFiXacpYQgfNvyHSE0Mwj3yUZXlnCR0j
nx453moIh/cw3iEWLCHV/V/35W5is7MXilYuoWBP6egoOyNIsr/bRhlYQjUG
55Z+uBgBjC4Rfg0tob9y1sb23kawIZrbRzO6hKK2XedHl42gvoKLsHtyCSWn
D9VvpBqBrUqe/Lb5JfT4dfhPj3dGYGc1NpS4sYQm93W7Gp4whr+zTu1HOcgo
ZyX8gaGsMcw56z/+xElGVt3SE4YnjeFU+qfFUC4y6o/PuGCkYQx8Jxlvvech
o47tturGtsaw5n8t3ugIGVUtLx0xvWkMdxP+K+eUIKNbHYzj5hRj+C+X2fXy
OTLSLa47YLFmDEm8RM41TTJijPExtfhtDOvM6SZe2mQUfba302KXCWzpvI8w
1yWjkOqsWstDJhAnzfqBz5iMXB4ezbLWM4G3ZSymnrZkdCZSw8TumQn8Svp4
nSaAjFa52G5MvTQBpyvuZe6BZFT8bKzFodYEhHoMLXuDyIhjOEDBuQ1bykMu
7xIZkSUfcHt8MQFW0gdZkav4+cdppvw5TYHb7Xb5ShwZ/VWq9o65Ygpikv1y
IblkVN4dVbQ72hQmpNttXuWRkbuzwURcgimY576RW8vH+UmaM0jMNAXKY5Mt
1wdk9HSOQzb5hSlkCifugEdkZJPu9zt71hRMfJUUy5+TUd130ZhnehdgR2a3
a2kzGe1nbzjPanoBdsdzczS+JSOSggFbgNUFqLH/VNTdQkZCVwJylNwuwOF7
x0IX3+H8MtWXv712Aa5G2rNwdpKRvbDe5PDLCyBzb75ToY+MdloTleh5zEDz
mJJpxTQZEa7S0njwm0G3oWpFwVcyqr6f9rZTxAxa99sdTJ0hI59vr/RTZM1g
U2x0h/ccGQ0EbXfh1TMDsQyKMcciGZUkp6TIXDMDjsTb/Yo/yEj/3ctFwpwZ
8Fz9xNZLQ0EC09PRJmQzSHgQz56xjYJ+/WM7rLVqBu5HhcwttlPQPXmSiTSN
OchYzzwco6Wg1ULxerr95uBWkBI2tpOCbkcV3SzWMAfvs3Z5NUwUNKGSKbVa
aA4tpOCYZU4KKrd51zH32BwcGd7w5uynoNhLP51Hn5tDYHspkzYXBUk9N8lu
qTeHUO/tK/cOUFDkYdYdmf3m4OMos6p1kIJEaOL7Tu+0gAy2SPsQfgryqQsJ
vu5kAQ3XDgi6iVLQqaS3LH88LCCmyGqYRYyCGJyYi0gkC3g1oj71EvsBU16f
9RULCAtZnf4nTkEDlm+kZDItQMa57GO8JAUpb+5emuiwAPpkoZkIOQraI59h
pyRjCSS2q69/IQoaZZjYeKZkCVFuo1PxyhRUPCZySxAs4eTmdY+DQEGq0dX1
e3QtQbZT6/kZFQoK7hvlnnWxBIIck/AlVZwPP4H+lGxLGHANl+87R0GlpWVa
S9ut4BztF34+Awr6GZJRsUpvBXvldldmYJ/RDOXfYrYCgb+tfcyGFNQ5eW6T
gdsKQn8Ol//G/sY68UhE2goGI0fpuo0p6EgA825HByv4KzFo4mBGQemKHq1D
b6yA9uVqibwtPj+dgfRUmxWMVku452ML9Mjlzn+wgoHt2a8ZCBT0wn170Maw
FVQ9T5Ifwe7OzhTiWLWCHBl280v2OJ9/W6MMBKxBJy+n8b4TBYU2Cai+i7QG
fRb9riceFFSrLvBEP94a/G5O8bB5UtBW+xGOwSRrUJ58/i8IO6SXf24+xxpe
/+uPUPaioEvTfAmMr6zBsvF2coc3ztfOg590l6yBuNB3/CORgvy12B37TGyg
Y2b87M0g3D9d+zqtrWwg/PJ5yiz2quE+uRl7G/ATdD+lHExBfpZs9D99bOBZ
FtRRsEmeex/vj7OBbesajlqXKMj3xn+rlvU2YFBscJccQkGePXSRU0K2IOZr
ZbQWTkH60+8v6ojZgriLXDRcoyCZ9SSfCmls5xC3ROwtLl7LOGVbeJ56W0Ug
goIS7OSkpCxswSyQ7ZxuJAU9XnaeCE/Edt49mxJNQUvM704dXrUFlbr07Nk4
CurhuyEVv2kLsyHpgcfiKciS61jqJRoClJ5sZvTCRseXY6d3EuAoR6fTd+xd
eiEBVWwEeHn28sR6AgVlpKfqEMQIwEGXIL52g4IqBd9uPiMQYH4ma09jMgXN
FK+PP3EgwL5zru9/YnNIiLwtcSbAjNekvngKzqdS/M0iTwKUlxbWZmFL6BkI
5AYTIK340EFiKgU9DB49f+MWAaaKTonvS6egrPdreZ6vCbDOX/ZNJpOC2vSF
o93fEIB/+4KlE/ZGn5mHawsBhBi/303DNp2okXXsIEC4K1faGjbbWni75QAB
XokOGL/IwvniZV7VWibA7DZHELpDQWFEIY2jfHZQqnaLZiEH36ee6WKXI3ZA
Hoy+zJVLQX3S95kLhexg7ZnjWw1s0fVD/fxidtBoWdByH3vwEpcTj5IdrFgO
Rprn4XpFMkWwGNvB6Xv6PLX5+H6kr9SvXbcDja1RZtsHOB8bpfwy8XZQDpKt
17HB3CeadMMOrH3CjUuxb3Mvnqek2sFBli4yTQEFqeV9HZnLtwPm+h3Cedh5
jwY2h2twvO2lHf2FFHShtl6uiWIH/fEfuYQeUdDrzPeRbSt2IEuX46aBLRI0
0NO9ZgdfWW/edsXekFzxHv9tBxNehNRi7KwiwaKtXfYQXnd2l1gxBY0lJ3DK
89mDpmvT2vESCnJ2s9go0beHj7k0naxPKKhL3UX9hZE9jG1+OC2BLS/gn1pt
ag/v7NKSzmPTjydKtFnZA12b/9R17GLjRtcZV3to/i9f9Dc2GYkM8oXbQ1O9
6OWRpxQUyLH+Kq3MHk4cdm+IK8XzSMm5K7HcHs4l9MMD7AWb/qmoSnvYtpBR
UodNKKpgDKyzB5fPwbLL2NoKQdambfaQXKYpaFxGQXwWGzSck/bQznkzlvM5
BbXf3dS4vccBGm+Z0ya+oKAdTe5Wt9gc4Cxh/s59bDQz5BvD4QDOPjl81djl
4jWZwTwOsK+xY2YGO7fh8oKZiAOkLUX6onLcv5NbN7iUHSBMPSh+EZtX8F9f
lo8D9Ar/9pCvoCATwS3XXpIDoNqSI+exEwR//WYMdIDl6tRme+xNwR+HQ0Mc
QIbo05SI3Sc062Ub6wDf88dKp6jrRT7QCdx3gLeqDF4xlXj98VzZJ/0O0ME1
TNNcRUGSonfefR10AJ0GJqbP2K6imZa8ow5Q36pK+w27XzQl/OYXBzhXzV3B
8oqCysSudxKXHWDFrfiEBbbrCR8nOQZHYJcSj1zA/iyF0hpOO0JIbsZpmhoK
0noWx9qo7AiST6J7WbDrj/ffbDrrCGkV0haHsAsFvOLeajrCGS9apTM11Ppl
X3lv4gjKe/arXcbm2Fx3++zlCKVCI2kr2KaNT89Q7jpCZ9LBqP5aXI/TmzXL
eY6gJfVIdxr7TLWa4sp9R+CIeMmwgi30YkR67ZEjnKKNsvivjoLWHzAc/f3S
EYK0vS3OYqfHOLPt6nKEdw8qZh5j9+vxzvH+dQRr9p8xgfUUpP5w/QthmxPw
0Di9jsCuoPkwfm+HE6xkd87fws4ou/JZiNEJfpq0s5Zgm7FNtojvd4JdXswN
Y9hD/fcLzkg5wSVWv8SzDfg+WB91sHF2grY9Ao60rylIt2KbbZ6bE7j03lpn
xq5nHrKY8nQC4kxFyIHX1H6JM3T2c4LcXQ6OktiEw4vgfdUJJoMf3LPBnpp+
yheWhX13/msF9qyHzNjdLieQs38+atNIQccYffO6PzrBoBvqdsX2LC6xp+1z
gmxh3yoS9vIc/6zrsBNQvsy6RWNvOu1dlp5zAtomS8Mn2MwE8rb2bc5QOx2v
8gtbxvih4LqMM7x9dGM2tgnX68eXWREFZ0g4XnQvGftV8qFiy5POcK+lyDgb
+8zHdPFGcAbOw9fvPsbW0I2ST9B1hsLjb990YVucs9fkd3WGknlj971vKCj8
FI+XbrYz0IhE2dzCpjEr5NLKcYaCpKjIDOyrfhItavnOcOd3yv0c7CvFqodO
FznDQOtax2Ps0P1eH4+/cAahjJjOd9gXV+tkd793htmk0vh/2MTHtn/fbDpD
D+eCiGszfv7W+eKGP87Au6gS6o3t+8XvQg2NCxz093/vj+1zIKb0+U4XeHQl
xCQc2yum1D6f1QVOOLbwZWG7OW5rDTvmAmV3rTPbse147t9UtHCBoWJTJeG3
FDTCVl0dYO0CK9pr58WwzRg/fi0juED3YTFLaWz9zb8nj7m4ANEmwh5hKw9Y
zB3wdwGyRJTgBWzeVFbYSnSBgb+516KwhxivrdQ3ukDP1tDbUWxT2syDv5td
IPTaca4v2D2bz87Jv3MBxd5x5znstvnRnGddLlDkF/99BbuqVVE7b9gF/AuS
m3e14P6P+H4/fM0FuOw8nSWwDX8TTFSPuoJkke/rUGxGnxZ3TVFXqHk7y30N
u3nq+FXdE67w9T27XzS2XPt6sZmsKzC7FO27ic2VmUDjBa4gO8gumIc9IVdV
kmbuCud1q8Masb1JLNtnY11h1klQclsrBQnP+HMuJrjC6KoJIx32hPmQ6Peb
rrB1q3aSHtsQCi78TnOFn5+UIvZgy+45+YTlnivQ/7HPPIS99cTZTKHaFR6F
J7Gfxo6dr3sa+80VGvaLOgdg73sQHXdlyRXeM5Frg7HzbPScA5ZdYXEgaE8I
dkXvxEG7dfx7dpQn17Cn6mgTFba7wbJNc9NNbKVkTY9ZLjf4N/DE9BH2N6U+
YTVNN9CYFTw1hB2wdpf2pI4bHNzzVHIUm6bUeVxCzw1qP1gKTGBzCG6k85i4
wcu90ttmsFVYuHeuEtzAZtvBzO/YWV8I0/eC3cBvh6Iq/Ts8LxMW82geusE5
0/FMaeyP/Cq/5Urc4Aw/kOSwzV5lmHg9dQOF3w81FLFdZlQYhsrdQFYtY/4M
dqRypt+LRjcoyVJl0MKuX1VTdx7G5/kU12iLLW2du/Ce2R0kFpx4YrGrf6yq
bWd1h50E4+x4bJU4rTwFdneI9i/kvIGtX7lmXMDtDpbOV+lTsL336tSHibgD
rfSF93ewH77duCWp4g5Ozl8/P8PmETeUywhwh0f8d3g/YU8or19KD3aHsOWs
o/3YBUZZDWmX3YFXMVtqAFv84tS51HB3kN3+8MwINmomWSYlugNrmAiaxra3
SLkaX+AO23V8vvygxov+1H6lzx00B+la9rbheZYZzHJlwB1iq/pS2bAlH/MY
hw3j9T2TduzY1R8dR0Mm3WEx7eX6fuz3PGuUi0vusC59mZEPm/ycnd2fzgPs
l35OiWHLjJvausp6wMec4ybnsFc7r/M/VPCATt19e7WwX9ZWfZ096QFZRsLv
tbHlsg54uqh4gNbBT4p62IomY8HOeh6wHhu2zRT7zHunZEc3D4hYrj/pgH2u
0v8t4a4H1M22uoZg0xcWxOTleUCIZcZSKHZbar/2xH0P6PB573sFW4uk0GNb
7AEGaq6ka9jnxbbGbCo9oK/zvn0MtuH9iA2rjx6APqdtpGBb30w+bk7nCQrO
RXTF2Babewft6D1B9XPZ2RJsM6ekaHdGTxDade3qY2zjk7cmL+/1BJWQ4PWn
1HiziRk5Bz1hh8t47wtsBRRLOy3rCcKvckzqsPdRrgx7O3vCtdKVkA/YrBb/
YoLcPIGdbiOtG3vP2zC5q56e0PJ49slHbMbs0KQkkicsn44b6sXernFZozzM
E5DwptAA9nJO4Itf6Z7g8cgncQK7Q9crPrLVE+RzuzOWse/Q6P8LbfeEwtOq
8d+p9X4u5RfU6QnnaTtCV7CZODYs3Hs9wSiNm7CKrT167Zj+uCeYZ/dybWC3
e9xu4/7pCTl33e3/Yb+LebPrhZAXhJ0T0P2vHf8/Viq8/PioF4SKtwoyY7su
xlAKRL3gj1jmFtX0+rqfb0t5wZl7nUV7sDU4BwvDznjBUcMbq2zYLQVkNS1T
L2iZ53Y9gP22iStyMsoLhvmKa4Wwk/VjA7ljvaCqvSteGNtmbMPVJMELjvdw
WYhgr//6fL4t2Qui4oVWj2ILSaZzluV6wXUfaV4x7Jhc1pKrr7xgUHJMSxpb
K4Sx59CSFwiw2jMhbA6Gy83my17g0/m7keqpjG8VKT+8wKu2P1AZ+9KLtuxd
m14QbWo0Btgl3647UXZ6Q5BM6ANVbCbzHb/q+bxBtfoMsxb2B9k/h2yMvYE3
/6GVMfYAqtkiXPAGgwbV71RPaV4cdLDwhlOH9KJMsFet15LdCN7gPl5aYorN
Fb1EF+DpDZ8nKr+bYTv0jy7ER3rDocO6DtbYPwPrK1+Ve4P8a4MJJ2ya8JDU
2kpveFz22sEZmyFeidhQ7Q0ydU9nqObJrTj29rU3POJmWHDBhtand7s7vEGt
5P2SG3Y8Z27E7LQ3/BabGfbCPlR1RY+d3Qck9zdaB2AL5LQXm+33gYi8F8NU
H4tk33mH2wdOGPOZB2LL6ZfU8vP7QG+Au2EQts5c/1GJEz5Az/jxzEXs4P3i
O7Q1fWB9mPAvBLs7eKTqaqgPZNoqHInE7rcR3td81QfsXwcnUT2sSvLZFekD
4ptn/1E9s4de6EacDyh+CxmMwt56KJ2SneEDZxWjY65jiwzGeVWU4fgfCR/j
sMMVFfkXv/pA5IzX3iRsM+fZs3zzPrAcesKXaomUNCfjRR/QULrRRfXE4veH
tSs+0FEnEJeMfSav+ETiPx+4dbBxKwU7jPYGbwaTL9zVY+lOxz7l/u+4gpAv
sH16LHkH++HV/lM9wr7As9ITSfW+jCfnPY/6AofBvc9UL76x9MkT9YWIk2dC
7mJnH6x6Ti/tC3uS/BtzsDe7fRUHEXaUyKl87Er5KfVL5r74fYBurQBbJWGi
Y8PCFwIecioWYndMjBkGWfmC1OhsCNUTscM2/ra+cCmiibaIWv+RT4HeTr5w
o9GF+SH1vlxtLbQn+kLQ8Uecxdg72h7v1I7F8VLLfz/BvnGwJKEtzhcsjv6U
f0rtP9Ij1nMJvhDP+c+PanHuQl61m77QOGW7QPUFr1w5lOYLlk4en59hF+9N
dpbO94U08tCDMmx9i6AW7le+oF+ZwfGS2v88tfHV1fh8bZ76VNuN0xiY1/qC
RN+OOKpJjnHD6Q2+cGsobIvqVO+7y3tbfCE8I3+sgrr/2psD9L2+sK9nIKMK
m1DC4rO66Atez6rGa7DnvIxlUsi+kF/lyFqLTZTI/CW57As5msOqVF97yR/p
88MXnKZFHlH9oEE289svX7A5oONTR93fa/lmYicRCsqmvtdT928VcXbyEWGP
SMvHRuz9f9gM9fmJUPZR6TfVr/9cSeg9QgTKvWiBJmzmfxe2DQkRgc36QSDV
xdvoF2ZEicCZuLX/DfW+73Stp1EkwqiqimkzttFeEScZAyIkxYqXt1Drvzc1
t9KQiOdJ7wDV91hphpSMidDXbPSH6mW2AV24QISDAvNqrdgJHDEKutZE0Kly
7aO6mXuO0dWNCOb5g0vvsGWFHj7PDsfxxr3p3mOrt6vpc0YQgWXshCDVpt5f
lpIjicAr0aNKdWAF79G460Q4o14TQXWFelpucCIRGIn8NB3YCi7XEkwyiTC9
3+YH1UoPrZxZyojA1anX3EWdpzqbtPHPidCUTJqg2mI5I39nORHWjl3aovqS
Qu/Inwq8/6SCzAfsmneaRou1RKitIt2j+tS8nHLbOyJwp/y82E29f8f2HoiY
IMJzXwp7D3WenFpb550iwpXETQmqLXQHe6u/4Hwbz2tTHUTKT1yZIYK0CSmc
6tJqyW32S0TYayu7QDW/tuGc8iYRVr7dftWLvcszpeIvGwn+S8lS6aPO/7Cg
lCx2EqQKGVpQLXDL0leOkwSCE8tEqpXLjxzzPkACoth0HtWXtl7cHeUjAS9t
wR+qFxM+RdaKkeBUf8Hzfup8e8JudEmDBGxZ+owD2H/+8BVsniNB5uYrXqqP
6Yr+vKRFghzbPVJUR5BVsi+fJ4FheKQZ1XInfL+EGJHgqVDCA6rvlrb7XbEl
wZ5BEcVBbPcXV1Ijg3B8DTaTIewM2viZHRdJ4DmAnKluNkpXiLpEAuscyyCq
eVcfj0SFkqBjt10m1R9lhgSuR5CgSahghGqFCpmXsTdJEBDJRxjGpns133ej
iARt//QtR7DfrQQNnXxEAjdZdU+qE0R3js8Vk4B/XiSUatY8/jmVpzh/3JU5
VPNet9xcLydBwcjGBNVyJp28tk3Yu4/Yj2K7fi91OTFKgrjEjAtj2MePI8+R
MZwfBntnqsmOnb6xEyQ45sATQLX/wPzFL19IIL9ESKY6vIE/IeMbCTLOH++g
OisxtfTfTxKwqH86NY5t3cr/8vEvEkylPNCimm9b2Svz3yRQ7XIyo7rQv7Pp
xV8S+GrV+FH9wnJnnwudH7wUKX9EdWBa6uC+XX7w5v5/lVQrfeAfa6T3A+ZE
s2aqX6ugWW4mP5icbxqjOiKkc+Hdf35AGzq1QLV6heVyAIsfpNT92KB69/L8
Kv9eP5CtWaeboM7vo8G/PrD6QVDUAivV/wO4VrSs
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999983\"\>", {6.5024*^6, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.4357816847190916`"}], "0.02129419692070298`", 
         RowBox[{"-", "67.4259607002682`"}], "5.397784619692643`*^-99"},
        {"T1", "1.6066916938935607`*^6", "14763.757318872904`", 
         "108.82674777102194`", "3.917695001772127`*^-124"},
        {"A2", 
         RowBox[{"-", "0.3048932798024452`"}], "0.020848436747488472`", 
         RowBox[{"-", "14.624275359118926`"}], "1.1042337629162843`*^-28"},
        {"T2", "467437.3247306401`", "26464.058015704082`", 
         "17.663100815954124`", "1.5484735798277206`*^-35"},
        {"y0", "0.99352068649148`", "0.00041849397317005884`", 
         "2374.0382184375057`", "1.5838099785994364`*^-288"}
       },
       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], {6.5024*^6, -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 = 125 K\"", TextForm]], "InlineText"], 
      Text["T = 125 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 6.5024*^7}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.777898415405072*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "sszero"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The step size in the search has become less than the \
tolerance prescribed by the PrecisionGoal option, but the gradient is larger \
than the tolerance specified by the AccuracyGoal option. There is a \
possibility that the method has stalled at a point that is not a local \
minimum. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\
\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", \
ButtonNote -> \\\"NonlinearModelFit::sszero\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.7776236321036673`*^9, 3.7776238987642837`*^9, 3.777629323733815*^9, 
   3.7776295805564346`*^9, {3.7776296289634004`*^9, 3.7776296349289584`*^9}, {
   3.7776298112483835`*^9, 3.777629829245285*^9}, 3.77762986121815*^9, 
   3.777629999767995*^9, 3.7776301146091003`*^9, 3.7778199397977962`*^9, 
   3.777820375975667*^9, 3.777820447221034*^9, 3.777892794144675*^9, 
   3.7778984159565973`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV0ws0lGkYB/BRyoQtu7pIkqba0gW7FIo1z0aYSDMaRDKSW8Ytd8OYoVSi
dru6VW7bBdlSTReR5NIFhRokWygjSVLRlLT1PrPn2O+c73znd57/eb/3fc77
zN0SyPIcR6FQBN/e71/yBEXQT4hdloxP7blB/PUinVNjwK6RSogFCvV09UaF
Y3xTdPmZdrpD0vv8ku4XxM9Se+hyQrWh+broAa9BulqIufvr+C5i+jUp/Z9G
l4p+lU7M0+TgbZi4hbH8GVp+IsgtnaIelNpOrJWgBBn79RnaOo+JH9SrwMND
hoVyFWJivcVTIUPZPgZ2NRKfa5oBKmqny50baonX35sFxyRM/iS3KuLdVC0I
PEif2bH8CnEkiwZP0u8GPX3yF/rWfBiOk9oUmR0yI3mXhXD8cvFF1eZi4tPq
i8FwHsfJ7debxC2UZWBUXUdVE9cQaynowe19q5oyy+8TW2X/Al/rdBnlM5uI
P67TB01pTsaufDGxnspy0M066+5b1ko88HwFpEfotvUOPSE2qjMC1VWMzw4+
T4mpd1bCTnFMJpPRQcxpMYFpWfWNl4M6iemffwPTBZ+c9CK6iB+m0mGhtxdv
m/A5cW0pQMm8Elqz6AWer+93kGswz3l1oRvXX2AO/LjWG/cCJMQ23haQed92
yr2FPcQbLqwB26wP8jmDaK1JVrCUOaL8Zd9L4nM+1nA8fkWJrmkvsXwjA+pb
N0UmUF4Ra1jYQJRyTqWQi/540xaOWCn52lWiU63s4MiVyuFuiz5iPnc9qI2e
zfF+gz5gzASbmMDNlXNe4/6VWFDHPBF91hLN6WTB1P2BfotvodXL7CGuOjVZ
cxAtOr4BDmuMrHu6pJ/YYAcbzJMk5mpe6EMBDmBZldLPMkCLXR2B5+jM7qhC
f2I6gavuiIvFfTRl7UZwfs8uVpR7Q9xj5QxVITRl/TdYL17rAmVfHl0pZWF9
s/0myOPW2lQw0H1urvBAfvfPP7miNwVvhrzb0XqL/NBFu9zgg8hUk81EBzM5
wJ9eZfQiHB3TwQEDhwJPqT/6Y4g79NPf3n16Ef2CugXY2r5HvWVenbUFHtob
8/jJ6GfGHtC8xqRvRwZaS+wBXL+bRUOyekPoVija+Iyh0Ip+N80Tes9kmppV
oxOveoJoSZuw8zA6yc0Ltn4IdREOoL8qeEP87KYNsyWy/RR7g7a14s6uTrQJ
xweyXsZvsy9Fy6v4QgGrUee+D9q0whdInykDxJLwbbDAQWFqexPWx+n4geW0
a+kzr6L3Sfwgc+j7AKP35nKhW5RWa3QZLXX3h+5Rkwn+sv610ALAxOS85UTZ
eRd1B0BEzyzNvDT0y4JAMNu7JXN7CbHgh5VB0PY2Y77jK6y7nQiCPx81+U+o
kOUnBEPq+Njda05gvsA/GMwkKoKWNvRJcTAwqKVKWrcx/5i+HUKYNX+ML0Cv
KdwOqu9OVtDOYL5XLQREXYbWRWJ0TWIIGEymLquSna/9QwisW+1xyfkIeolX
KMz1kM8VV2L+fHMoMAonL7p2Ch3ECAN3xrR5f2dh3qcsDPjbQzTWHkWn6oeP
7Y+Akh8O1MZPK9quo7PnRkCuoHn4nWy/vPSIsetTUqZGwkYNLjXgFuab90eO
vW8CZ+UokE+w7gxIwfz0pCjgX5vOjnNAK06KhpRE2sy0A5hfsScatF+7ZMdi
fwUZijxg75zBq3uIeeMUHvDaNPfnn0ZP+TEGWNWFR+/Mw/zsIzGQOHJXffAQ
eqtGLFD63m+oP47557mx0GZs5ro3H525lA+nSmKzdaIxnyziQ3NvCnUOD30J
4uCB2sGG1WWYn1EfB9LStStTbmK9ZZkAfPRmTbiO9XIIE4Bo1x5PKxEx3bJU
AIlZGobJof/dF+H/+rHQTjh2/uhyaUJQjx0tv3MS14voEo6dd0GSTjzM0LHl
ukagjaPjIdEpatTxEuZ3VMcDzU46nOeB63FVE8C938vMWoD/G+AkAL9+LuX8
t/n4FxT79No=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV13k4Ve8TAPDTomxttiR7EpLssjVOpEREkTVtdpGyVUoLWUtRCn1RKmUJ
kSxxpRRJ/BSR7Dv3noNsIf2mv+7zeZ773DNnZu6880oc97ZwWkoQhPYSgvj3
GfZhrsFa7AcQTwZ5iNMDjOSYU7l206/1CEnVnkcKA4xnrFKfLdMf9YjFQNe7
rH5GtvAJi1XT3/UIN2t+V89+hmJB4S5ielCPaNJ2Lz7VxxgP7ir5PTWjR+zK
Mim+1MNodJryn55aSRLc4QtHctoZikU31j59xU4Splxf5aCdcYNTOsPSj4Mk
7oReDK7/ydibY9VeMMlJEpEn8yvG2xiM2df6Z3+tIok+o9hbOj8Yzbt12QNn
15FE+JstLSPNjMqWv98mp9aTBI9wbfmTBsa5Ky5nfzoIksSA2BZ73QaGolz9
uvdV6G+BEysy6xkpF5JN4+5uIAnB2v0/Vn9hBInqViupbSQJa/Z2pd5PDI2T
50u9fEVJgp3/m1fZe0ZzwNwB33OSJNFwzCDN4SVD2URB3DUbXfRc9tt8LuOm
+HHarht9K0w3TyOHsbum5oa+0SaSULwn9aTyOaNAKOETzwYpktDLEhBbmcy4
XaZhkFe0mSSI+t3P94WByTI/DWpGhiROn0/yCS6Ec0m3Mk/LyJJE4HZV73uv
4alKltgva/TRV8a8L4pgycnelbPF6GcLKZbfS6DwvXnLkiA5khjTZh/fwACx
6wrn+Al5kii4+tE/9x1MsA+V6LBvx3jfKftfrgWxh8u2M3agXUfZXWZrwURT
LI10Q8sI977z/gzpblZRhp/Qvh8vvrevAwWnnm0yhopYPxeeqe310FN1YFGJ
XYkk3qyI/O7wPzAJ25ayO1qZJGaznyQWfoPJCEvuVY/RQf6Fc0Pf4EH0xXPf
StGxg60iG5tg9HbdwROjaNtrwS8uNUHkg1PsV/apYP1PkUv0m6EmL9vnDbsq
Po/PMbPiOxj+3GagEqpGEo0Z4dO3fwDVYZk39wD97K0lWfYD4rsvilYWoHeJ
1xwe+gH9A3WzB/rQldMpQ7ptEDJ+KttLX50kFCRGUgfa4N2KFwIZSzRIYnL3
j4cK7aCnpDAsfmkHSXTMXghN7IRPvGX7mPfQyVHBnZWdcGjaOOt1Hlo8M3H5
aCe4lrp5m/ajU2/FW4t0wa3dT6YumGiShOzStDqPLui0EV76XUiLJI6UiMws
64ZLVzk33nitTRK8byLlJHuA3SkhyPp/6NYQwkilB2L3yHRsGkU/KWczN+iB
p9yGD0tEdUjCcqeqqHMPfIm/smUoFJ2+zjz3WQ+IZs6q6B/SJYmE9sjPsr1Q
9nXA5PfYTpIotAx+ItwHiveHCW4OIIm6m/Gqcn3wyJ5ZICqBtpETzNfog/D+
cWEDczTf28xLFn1gMbPAvJmHZo/cYxHWB743Igx5NPVI4u3+xAVWH3DmpQyk
/0bPdvD35vSDAe9DvTw2EvtFkzO0tB8u+j1KLFmH7j5TJfixH8Y0n5jWyaK/
yDfzd/RDU2VG4YQN+mKGvivXAKR+e3VdtwQtEitx8cQAqM3WSn89v4skniYd
bOUYhKOfiAsdYWh1vdfP+QaxP9Tqh++gy/uqPcQGoUMvJYDIQafK7KpSHYTw
iDPV23rRvL8T648Mwk+hDe7hxvokwYxeaZE7CNd0nbN1hQ1IIthkIsJoCF6s
SVpiJIt+Ji+YbzEELd31lofU0eLbRRvshkD+uuai+wH0UZpz4NQQNH/hNrsf
gnZavvna7SGQO5o/NsFEl6xZfqt5CP53lVB9VrYb6ykZ6WA9DAanKx/6f0Ib
/1FZcByGIoeQNbu/o7enz95yGYbkHeyj3WPo51Ns//kPgzu15tFGKUOS0My4
q3dnGJbaiq2NiURTdUEVdcOgrLST6Xd4D0lcmC+f0RyBJ6KErcFJdEl8uI/e
CAhyV37k8UHXjoz0GI7A4sDutJxI9LaQJ1kHR+DTg/22w2Xo8HqJds8ROM7u
UG0vtZckVl++VvrfCMR1XnisP46O8Yl49XsE5soCStX+oH9pi7cs4vcfnG3c
wmFEEmvaLk8uGwVFGw+CWwIdWF0mtHoUvjTa2n87gB4qnBGRHAXOD5p8Trno
zhWtbEajcDlr5tp1730k4S5HR8eOwlDkr8TAC+i9iUXT8aNg5kbnuYehpV7K
2yWNgqj0YKdpCpr/gwLf41F4k9Ksvb4e/UnHdM+rUZiJffUrXcGYJITGL71u
HgWvc2dP1LDQRjbkCD8TPnx85Fs2hx5I4FspxAQxgcbQvJUmJGEyGyoqyoSG
l4rPEiTQQe6OutJMUGaymG6W6OrkPG11JkwfcfXnLEPbcLTqWTLhooFDhHH0
fpwff2OSYpjQHBudCAloddDcEMcEhe7STJWn6FORFrHxTOi4KPRlYwXayoTl
/x8T9F5/52H+QpMc7pyZTFguZ/Eg2s4U62eQ5FjFhOg1e3Lq5MxIwiNPZmSa
Ca2muW796uiMrQ9e/GaC9M0NUn92oUPDc70XmFDBzbwvb4d+dvnz4BIW/OK4
fTUqCs3uaZDLzQLb5W2WRky0UE3pEwkW3AnSuNRjdQD7gWvFTiMWaAl72lH2
aN04MtmYBd2lqTvmjqMD3BLm97NAYZ7j1zpvdIVGVrYFCz6e++lChqHlRito
OxbM+V8xT32NTlyXTZ1iwTGfWqkjguYksTltiIphQVbyh5vGomgrZ4K+zYLp
2rezO6TQuV2FzDgWREsXfeZVRPf6cXXfY0Fh22Pfmj3oT2WPslNYwG146b1q
ALrWf77lBQuKhJROcjWjK16rRdWyYNle+S+zbWjjp74GdSww9duyY6AbbdGU
Pv+FBb31ItxvWejdXydPNLJgdShngT+bBcZfdkq4lQUn6d5lParocakphQEW
rH0fn1YUh7ZfdWdkkQUHn2dybklEK7rJhxEUxN+s8Lmbig6aeSmxlAIRmxE4
k42+GHz3ABsFcpTuz60f0Tb683e5KDAQ7OdLmUOHO8W/XU9BoKfK9dBjB7He
ORXZChSUmu9l/XJBp/uJrFKkYFHd4dBxL3RwapG7EgWhS8Ik4QLawjJfXJWC
2Pgf5bN30OcGfgdoUpBVcWXGoxrtb85o0qegm6/B1WL7IZKoSlN2OExB8sSV
xxZq6PovSb7WFNg3qHRZaKM5M4sibShojrp3+OAedG0db74dBZ+XOhoecjz0
L74Lk44UFI2xNlnFoJfv8tB2peDWZ65OGxod9kilL4AC04wyIdspdELikqZA
CrjCva1s59EdZ1++P0fBdf2vdbYrLXGf0qpMvUBBUEniGzsxdPxnhnEwBS7P
ZBMdzNDHre28rlOwM2SP5bEc9GLQMjqOgskNvDd7XqHZ7gg03KEgI6fjw4k3
aC1rzty7FAi0+e1wrkGntCR43qOAUnq80aMX/bDjSksivn8n0eO73ookdL4X
BT3E/GqVeIUHo3l1AogXFBQ0hKZzXEc/TbavQLs7m3dFRqOvPTQNzsH83B4y
v5GAnoxxmMul4MWQgFpsPrp+2Kg/n4Ij8WfnkwbRyiu9YoopKBuXD88xO4zn
xz1h3fcUCPIz9vNYoY3vj7Sjz+ww5/WzR7sNjl+sokA62C9Zyw1dF5Bb+gHz
y11eUHUVzWnBoVBDwfEtZt1tr9AN2mx0HQUrHHy02IWtcd4QjKFmCo5eXkZ4
SKIPdcWe+U5BSdrdqjoZ9B+6bB7tPVJ8IE7tnzlFuFspaAlY6iJqhm5mCmxu
oyAzNi5O9SpatSB/RycFB6pfMY8OobVc5ZkDFEj19V23pNBcWtdtByn4/ZdX
Yt8kuow8UY1+pHHGUoWwIYkbZs8fDWG9niqUswmi7T74mY9QcD80PSZjD1qz
49Z9FgVduxKUJ5+il9XkNfzC/B+p/jyUhQ5WjlScpCDi/Ixz+0u0k/tMDFr5
pWXSh3L0hEns/ikKQiR4lic0o/Xp7++mKZAhopp0V9jifIN1//3G9y0LCgxz
QudO3Gb7S4HO7ao1fzzQ/raLjmhOp9XpZ86gay8sFqMfc6c2OQSj+aTeeBI0
tNi9U1ZNQGv66NQtoUFvjoPV9Rl99VvN+eU0rNW4d0xL1Q77c2VJFAcN7Zxd
szla6Esjaa3ojA6ZW5tJtMK80hZOGgyul5SvNUUnR+i8RQc2tW8cdEFnuwmO
c9HQdVaqOS4J/TXHXG81Dbm5eftYS+2xv7Q6U3homAm6VzjJjuauze9A7zS6
KLmwGh0RbCDCS0Nd9945zo1opUdJCegRnq7nMipo60bZGD4aNvmt5jh5Ar2m
kNtLgIZ4TY+PP96hVQ6t+bMB42czV+mpQe8/uVRViAapRvWU4Xq0sGGpOzrf
fWnAbBva9EHwd3RDUoK0wCR6ar/ti400cC5+DDWXciCJkWt3zEVouFgpZVAd
gv7APu4tTsMbQ6nsA1FoafEtj9ELnzYJtN5Gv86UbEEHfZUcGk5G37HyAAka
zveJR3MVo5OcjbkkMV8rRL6ZstC1l8Lvb6LBdx//ySbLIyRxrG8iUpqGgi98
dQ726Kg25yL0pAWf+sBxdIzB8370WTte9hlvdMTZRNhCwxnPdVmCkehEJ7Vx
9OmbqybtytFbQ0KNZWnwbGQL6ZF2xH2b1unYSsOBvtpzJtvQVU+ATZ4G1enb
3oUqaAZzgzx6YYOoXaQe2uSv5Tl09DF1ZWVbdB5zfN02GrLGnLuu3EBXl/Rr
K9DAWl2tIzH57/eNBHwVaXi9uWou5+hRvM++TAxWpWEgY7oz+wR6rfhYElpA
UaYq0xmtv02+CO2rFRWT7onel2Y9hlY0M5dKCUTfsrruqEbDs8D2/TdvoUHa
TFOdhsTaqVTPCnT16WNtGjRc8pHeIyt+DPeDHp9OLezXxr4Ml03oX7Y7ZtFN
Kmmrn0qj37YNrdWmQX5arFlyG3rClX0XuvX8BidhLfTcN4M0tGoI97U1h9CF
sbXHdLD/4ifKp8LQQbJf6nVpOPymXL2SRqfMbfLTo6EioTakZgJt+KE/DC0T
0NLYMIXmakhIRM8qTXh1zv97fncLA52Yvjl9YeVx3H+/FnCQNHTERq/XEEe/
PTqRiHZ2s53NPID+6/MrfxcN/gLTxXfz0Mnh+94Z0CC6+W9TovcJzHfmQ/u9
NHxXhrsM3ZN43zzR9taYhmYz0SHRRTT9+GacKQ2DHqod/31xIom2+yJ25jRc
0RE+ZZrkTBLFbW3dB2k4JpwWo2nrQhL52tEbrWiwmD9qaSDriv+fazXu1jRE
DJe9iBhBhykHXbalYV80M5V45ob71FHVYHsahBUs1O/5ueP8FNqacgTz12nl
6KrmgfMjKyvuKA0OMbFbbdg8ScKsLT/rOA2fTU9FhXxESyk6JJ+koapyQ0h3
6CnMd2vmNWca6tX+iB055EUSn/dNxbjSIFYUbMbP743zcGljgDvGr6kpyexH
mxy2CfPEftPoMTxvcxrvaw4e0V7Y37YBHzYWo9fNqnudpsFnIX19nbgPni8V
SoFnaFCTfvYy6Qpa5pKGoy/OH7l1Qte60Cne/jr+OA+y+Q+e33MGzxM3/l2B
NLAVDzfdTEcvzP+WOk9D9UTAD+3n6CjCeRs6Wn5F51AGOnxZoxqaJ1VyaNcL
9NflGYZo0TC7uekC9NikjSta3bJO1LESzXujOBPtOp7rsr0dzZUZoHyBhq1b
wfNnB9rsSq8WmjpZdzqiC61nZaaP9m0ZPtfbi1ZZkD6EvsKQjL43go7c0eyH
TrxxJ/fvDPqmr2ox2uGj5Kus3+hg9dS3aPElecU282itGa5P6Ke+dZX5i2h+
v94f6Hy7FU0ubGdJ4vrx2AW0/907rXwr0RNCi8uDaNCql+x4y45Wa3Rbha7Y
BYMbudGGuqQo+lpQ3Wj1KvT68SxptGGh3ZjfmrP/9jfB7WiOseFJyXVn/+1/
IRroz7KBv+t50OVsY4D+PxTf7Zk=
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999609\"\>", {4.064*^6, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.673395705313152`"}], "0.0064898372987009885`", 
         RowBox[{"-", "257.8486375379704`"}], "5.475477785048572`*^-170"},
        {"T1", "1.2839501772915216`*^6", "12702.94701165728`", 
         "101.07498489234524`", "3.1405235998084275`*^-120"},
        {"A2", "201.9855944790297`", "62.1161713525863`", 
         "3.2517392827144955`", "0.0014803433310409922`"},
        {"T2", 
         RowBox[{"-", "3.454548393698273`*^11"}], "7.207202221038313`*^-8", 
         RowBox[{"-", "4.793189212332924`*^18"}], 
         "4.66065173296282824474896231786388059073335132`15.954589770191005*^-\
2171"},
        {"y0", 
         RowBox[{"-", "201.0133712161348`"}], "62.119716806229924`", 
         RowBox[{"-", "3.2359028912375103`"}], "0.0015580605165167452`"}
       },
       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.064*^6, -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 = 150 K\"", TextForm]], "InlineText"], 
      Text["T = 150 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 4.064*^7}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.7778984160513434`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "sszero"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The step size in the search has become less than the \
tolerance prescribed by the PrecisionGoal option, but the gradient is larger \
than the tolerance specified by the AccuracyGoal option. There is a \
possibility that the method has stalled at a point that is not a local \
minimum. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\
\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", \
ButtonNote -> \\\"NonlinearModelFit::sszero\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.7776236321036673`*^9, 3.7776238987642837`*^9, 3.777629323733815*^9, 
   3.7776295805564346`*^9, {3.7776296289634004`*^9, 3.7776296349289584`*^9}, {
   3.7776298112483835`*^9, 3.777629829245285*^9}, 3.77762986121815*^9, 
   3.777629999767995*^9, 3.7776301146091003`*^9, 3.7778199397977962`*^9, 
   3.777820375975667*^9, 3.777820447221034*^9, 3.777892794144675*^9, 
   3.7778984186793375`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1Qs0lGkYB/AhFaqRKZKtVLqrlO1CDc2zkZqlQVIkxsh1jJkGQ5ezpqs2
t0m6WRWlUNqydHVptG5hLamQTEyaMG5TdEodbd7HnlPfOd/5zu+c//u833ne
53zfLA7fyUedQqGIv93DT3IJwhmb8ozVVJFvHxJ7XGM4R/e4/amFFrMeMZi1
ezopHAWxVFXLcM5US+TefIPObGZQaMETzlxpI26Zr2BMPaus1B09YlUPo+BG
nnzcUzmx4Fw/I9rFMNqzthXXhw0ynHLPzTTlthCnHKVAMf/FmtnHZcQzl2mA
20BZ2OOuJmL2ak2osPaq7w5tRCePh9GbGuijJM+JJTcnQlD1wTijjjrimnWT
4OO5z9unptUQ9w3pQYKVVlBLXyW6ywCm19N+NckpwbzWNIg9tfTSiopCrLfV
COL1zSYM5OQQG/jPgkcPWVKTthTiBroxcCZTZwjh0Lphay6cCzJFvYStyiDO
WDwfIsPz2bOS7hHfs10IUrP0hTaDRcTme03A4nSTlbZvGfGC4iUwbhqXm+Be
RdxAWwYSp+2R/K81xAzWcqid2h5y3/MpMfuMGcRwRZaOc55jPeXP8HBcc0C+
WiNxOXMltCUm8i6/fkE88c4qoO97TOua3YxeYg6pZ1ONgoNeYf6mBfyVNHbI
uqIF61mtBaWdumbN3Vbcr4EO571NPKxS5Pg+v1nBqDOuzjWVr4m7pjCAM3R3
BcezjTjxAwOeqGUfzp78htigCeC8TvWXPC0FcUTJL+BywGG0VjM69/Z6yJoh
fZYAb4mrrluD9lid+yla7cTSdBsAZqiPeg5akrkBlNP3fTtiND3bFvoC1+rq
l3cQFxduBF4B9d7VJ+gFTzbB6rr2SI/oTmJ/JRPSZReMdmgoiQ9r20GDfbiv
jhN6v6k9xLFlt2L90Q5um+HIWF+NdAWaEs2CyshYGnN5F3Ep2wFWmKez9A6h
B4ccoEnPztzpI3paiiMUmCUWUWy6iRdbO8GQTXGZUQR6kdIJPFb09suT0Pqn
toCwVEn9HI/uA2co+MP+WejSHpwnlTOY3nhVOE8dHZy2Fd5/6BDIZqNpbi6Q
XNE3SsRFp9G2gf0nh01dF9BzqreB4mZVAPMEOiFmO2QcPBxscg3dY+8KuWsM
Glva0eY0N5jjstHAvAMtaHSDL7c8WqMr0Kcv7wC6PX3N0wH0NYE7xGsUf91J
7SXOYuwE6bvr60/PRydP8gD2kd1TWRbovR0eEBYnbbFchd7wyBPyqFes4qzR
FBYbdsbr8Pt90M6FbPjWjMItp9BGpl5wqODqx8f70V6pXjCGW+doIUQb6nHg
QVSDyv02mnmcA+Iy6838TLSK4g2a8rlfdfaimyO8QWY1vXpHMVr4zhv8Gibs
F7PRv/F2gV+Nw+K6ZLRa5y5IstzIiz+A/uznA0LdhI7sOnTQWx+4e0Jkqy4f
eX9/XwiwvdyYmYbO6fQFaiE/N/Ac+vdgP3gQfwq096Cfv/cDXlZS65J8dNJe
f/DirVlk24N+ph4AEQNne+7fQUfFBECqpO1faQb61pRACJGkKlZeRDukBYK2
Y567RSHaz4wLRfLlaWtT0ANFXDhm2HorpQY96BQEihP3l8Uq0aI3QaCbNVnH
YKR/AXt40DnEO1ZYiq6jBkPY11XWnq/RuVeCf9h/vBUfMpSWBy+eRDfV80HS
FTPR5W9iscRC8MP63igBvKsZ/gCiteoF8Py9ZV49nodYNm83nDfpLqOfQPPD
d8OMpsF5ab2Yzy/fDWPaxozWHKlXbCgE//KTL+c2Yj6KJ4Qq4xAvw3r0mCIh
rPR2VerfwzzohQDfuDtOY2QeVgeGfH9e4vaHIXC9Uf7S7jJ6q34oJLqCf9SF
/+clFHrlobGlI/3ilIR+3y+x2owwyP/AYx39hHYPDwMy95Q+kg+pDYOXG4d/
2LjeZrEI/kkqoapkmH8SJQJm99nbBzrQP7WJ4NKx+eJJbzA/E8LhiqjqhbS/
d91//kP3gQ==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwd0H9Q02UcB/DnKFK6KCSRmbABAokREPLzCD57EMIDZDhc/AoYEDWCMX40
RFJ+5Do0F9MU0EDi0jtGIsxO5UeRuBNZB8SXyQ/DhDHFMX6MjclUkuix5+65
515/PO/n87wdMwTsLDOEUDDZL8+qO2tUAmMSkOrYgCiHgkYJX5Zs6mAi7sms
A/kUSJd+LXjX1M9EFec37IUUXLHLZFuaJpioV7Gno4wCr2s3QpFJw0Sqogbt
aQoM5aru56tPmchhPS+mkwJl1mqxaXUTRg73aTTzEZDf2xh9smpL3Fd+uXEE
ol8R+uue7sKoV3NJuqCE6Kr3fwwXe2PEFbjVOI0C8wMPrUNZAEaq2uu8uDHo
ufs4+rk+hLhuwLpxHHyfDbjeLQ3FiNm9q1U5ASNfIx9pTzjJC3K2c/wLzkx/
dWmvYR/J8/Esyp6EvMNFmX8sRZH3hbyu+vsgfiuifWg3i+Q1JI5r/ob0ggHn
VNoBjJoyctX2U2B1u/Zi5xk2uR8lHNs/DTNbKR7b8yBGpyqah6NUECKK4KS3
c4i3bG+dVUGPwf14OyueOGy9SDwDsYrri9y5BIysCrmeXmoQ9BwpqcpKwijf
EKRWqEEmuxq5ZPYJRvqh2oq8h3BU7hymEKVgJLucuc3iEeQqzUVq1zSMYj26
62SPoMOlb62dy8WImvr2Dc4slBW4Rrg5pGPkRb9VopuF+N9+95MvE6PB76iz
j6F4m6mr5moG6UPWxfDSAN1lY+wHQSaZ7+24DIUGJryh5mbwpyQvRXKKPwfj
LPoc/V9ir176jU1a0OT4TF34M4vMG5nc36aFyg/t+DH1n5G+gy0G2fOQbndR
Epj0OcmbWu9fmAf2P1xOmBuP9MdrbT+9ACe0PW0n5okr9tdXuy9CpHixCUmz
SR9PdNzbi2DnwfarE35B8o2bGdlL4DP9cRrPN4f83z9+1EwHKZLv30s0zyW2
LBa26GAwhn9S1P/SQ3LL8GXok28XzXzDJ/2JBecfLMOw7zoj9WAeRgltR45j
PTA6y1k2NgKMNh9W3qzWQ2VgoNPiLPE53Q6+Wg8d/uqPShPzMXqWaHvWxwCx
SYfu7OgiLsm/4FdpgIIXzbZDDgUY0WrsWaMG8HWV/lJfSdwU6PLQcQVCdm95
55iK+NzRe3r+ClBXbOJKIwoxkr4u/rJ3Bcy7tGPVzcQKi1tFlkZQrByaDGoh
zl+QDLxpBLH7a9NzPxPThlN3WhnBuslpLrSNuKThhdLaCPSq5DXTNeIAVoA3
zQh+nCF6mpy4d6tM72SEBz+9urdlvBDv+X8Z4T/uOcMn
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.780896\"\>", {2.4384*^6, -0.9}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", "1849.7995610405428`", "3.840829998932888`*^6", 
         "0.00048161453684606706`", "0.9996165074518225`"},
        {"T1", 
         RowBox[{"-", "8.198523812472128`*^10"}], "0.03846493037158584`", 
         RowBox[{"-", "2.131428221309976`*^12"}], 
         "9.09434880901840573656438474829017029`15.954589770191005*^-1390"},
        {"A2", "1850.2859113751576`", "3.4408728568936866`*^6", 
         "0.0005377373673276433`", "0.9995718188452899`"},
        {"T2", 
         RowBox[{"-", "7.34487062390865`*^10"}], "0.038960370185105966`", 
         RowBox[{"-", "1.8852158203354282`*^12"}], 
         "3.279871706910898404674864757787855400837933`15.954589770191005*^-\
1383"},
        {"y0", 
         RowBox[{"-", "3699.8289100126826`"}], "399957.329174318`", 
         RowBox[{"-", "0.009250559097518485`"}], "0.9926342140085763`"}
       },
       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.4384*^6, -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 = 175 K\"", TextForm]], "InlineText"], 
      Text["T = 175 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 2.4384*^7}, {-1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7776236254078894`*^9, 3.777623892344445*^9, 3.7776293171683874`*^9, 
   3.7776295774900074`*^9, {3.7776296259556246`*^9, 3.777629631809881*^9}, {
   3.7776298113576984`*^9, 3.777629825959498*^9}, 3.7776298581041183`*^9, 
   3.7776299963047795`*^9, 3.777630111425053*^9, 3.7778199364874268`*^9, 
   3.7778203726823244`*^9, 3.777820443927642*^9, 3.7778927906139793`*^9, 
   3.777898418757107*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{10., -19.265023237512644`}, {15., -18.506990161814237`}, {
      20., -17.906166728940576`}, {25., -17.293402466582016`}, {
      30., -16.811357098680013`}, {40., -16.238512260163546`}, {
      50., -15.799607883029017`}, {60., -15.501858759050814`}, {
      80., -14.699815143980574`}, {100., -15.098064422270902`}, {
      125., -14.289687774349526`}, {150., -14.065451959746738`}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -19.642411475415017`},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox[
      "\"\\!\\(\\*SuperscriptBox[SubscriptBox[\\(T\\), \\(1\\)], \\(-1\\)]\\) \
(\\!\\(\\*SuperscriptBox[\\(ns\\), \\(-1\\)]\\))\"", 
       GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], None}, {
     FormBox[
      StyleBox["\"T (K)\"", 
       GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{-19.11382792451231, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       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.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.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.815510557964274`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.72020037815995, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.633189001170319`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.553146293496782`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.479038321343062`, 
       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->{{0, 150.}, {-19.55388830849964, -14.065451959746738`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{-19.11382792451231, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 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.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.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.815510557964274`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.72020037815995, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.633189001170319`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.553146293496782`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-13.479038321343062`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{
  3.777623635504669*^9, 3.777623900609754*^9, 3.777629324124317*^9, 
   3.777629583045124*^9, {3.777629631450592*^9, 3.7776296375979395`*^9}, {
   3.7776298170319915`*^9, 3.777629831894863*^9}, 3.777629863860634*^9, 
   3.7776300024055696`*^9, 3.777630117335834*^9, 3.7778199426336765`*^9, 
   3.777820378776456*^9, 3.777820450132216*^9, 3.7778927969276*^9, 
   3.7778984188618264`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"errors", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}], " ", "=", " ", 
   RowBox[{"data", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[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_Toluene.tsv\>\""}], ",", "errors"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"FilePrint", "[", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<T1_DFB1_Toluene.tsv\>\""}], "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.7776301204913425`*^9, 3.777630124047617*^9}, {
   3.777820230752136*^9, 3.777820312548331*^9}, 3.777961491254916*^9}],

Cell["\<\
10\t4.2983988781233075e-9\t9.815220201693607e-11
15\t9.173103550954996e-9\t2.5908200755499986e-10
20\t1.6728253362190988e-8\t5.175420909358015e-10
25\t3.0872424373413564e-8\t7.777116307805385e-10
30\t4.9994286968324806e-8\t8.499083057755283e-10
40\t8.865510144566188e-8\t1.1879872306299043e-9
50\t1.3750468014112876e-7\t1.5504117976851847e-9
60\t1.8519458403178114e-7\t2.7950233216244545e-9
80\t4.1300128030396893e-7\t1.0524269059408277e-8
100\t2.7732813685489974e-7\t6.589608441221535e-9
125\t6.223969438571377e-7\t5.719154128971111e-9
150\t7.788464207462386e-7\t7.705629850707238e-9
175\t-1.2197317747357578e-11\t5.722603100310413e-24\
\>", "Print",
 CellChangeTimes->{3.7778202767591286`*^9, 3.777820313238877*^9, 
  3.7778203788545628`*^9, 3.777820450210332*^9, 3.777892797253748*^9, 
  3.777898419214883*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

Cell["Fit", "Section",
 CellChangeTimes->{{3.777885228298355*^9, 3.777885228532834*^9}, {
  3.777891366685523*^9, 3.7778913703990574`*^9}}],

Cell["\<\
Due to the high difference in values between T = 8K and T = 175K we fit using \
weights, so that the fit gives almost same importance to the first value and \
the last value. If we were not to use weights the fitting method would give \
higher importance to the last values an basically only fit the very end. \
Another way to do the fitting could be by Log[data] and fitting the \
logaritmic function. However, the fit does not really work this way so we use \
the weighting. \
\>", "Text",
 CellChangeTimes->{{3.777891373220143*^9, 3.777891439840807*^9}, {
  3.7778914964474645`*^9, 3.7778915256329455`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fittingData", " ", "=", " ", 
   RowBox[{"data", "\[LeftDoubleBracket]", 
    RowBox[{
     RowBox[{"1", ";;", 
      RowBox[{"-", "2"}]}], ",", 
     RowBox[{"1", ";;", "2"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 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[{
   RowBox[{"Abragham", "[", 
    RowBox[{
     RowBox[{"T_", "?", "NumericQ"}], ",", 
     RowBox[{"B_", "?", "NumericQ"}], ",", 
     RowBox[{"\[Theta]D_", "?", "NumericQ"}], ",", 
     RowBox[{"x_", "?", "NumericQ"}], ",", 
     RowBox[{"C_", "?", "NumericQ"}]}], "]"}], " ", ":=", 
   RowBox[{
    RowBox[{"B", "*", 
     SuperscriptBox["T", "x"], "*", 
     RowBox[{
      SubscriptBox["J", "8"], "[", 
      RowBox[{"T", ",", "\[Theta]D"}], "]"}]}], "+", 
    RowBox[{"C", "*", "T"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", " ", 
   RowBox[{"0.5", " ", 
    RowBox[{
     SuperscriptBox["10", 
      RowBox[{"-", "3"}]], "/", 
     SuperscriptBox["300", "9"]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]1", "=", "200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x1", " ", "=", "9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", 
   RowBox[{"1.5", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "10"}]]}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogPlot", "[", 
    RowBox[{"fittingData", ",", " ", 
     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", ",", " ", "8", ",", "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.777885231628535*^9, 3.777885310507392*^9}, 
   3.777885372110857*^9, {3.7778854063486776`*^9, 3.777885443843811*^9}, {
   3.77788549968738*^9, 3.7778855002256117`*^9}, {3.7778855535451174`*^9, 
   3.7778855774874325`*^9}, {3.7778877674300027`*^9, 
   3.7778878473308673`*^9}, {3.7778879344030356`*^9, 
   3.7778879454654765`*^9}, {3.777887984649898*^9, 3.777887988788046*^9}, {
   3.7778886255343637`*^9, 3.777888650981883*^9}, {3.7778898464660206`*^9, 
   3.777889850587445*^9}, {3.777889914172126*^9, 3.7778899778650446`*^9}, {
   3.777890025338922*^9, 3.7778900633024645`*^9}, {3.7778905050997105`*^9, 
   3.7778906054888544`*^9}, {3.7778906615942335`*^9, 
   3.7778907380795603`*^9}, {3.7778927734297733`*^9, 3.7778928169685926`*^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.7778853013477077`*^9, 3.7778853126623917`*^9}, 
   3.7778853728649015`*^9, {3.777885406690309*^9, 3.7778854442248335`*^9}, 
   3.777885500584671*^9, 3.7778856208063383`*^9, 3.777885717576044*^9, {
   3.777887768084282*^9, 3.777887847643339*^9}, {3.7778879805538263`*^9, 
   3.777887989121155*^9}, 3.777888249605749*^9, {3.7778886311702547`*^9, 
   3.777888651248145*^9}, {3.7778898470799656`*^9, 3.7778898509384937`*^9}, {
   3.777889914484579*^9, 3.777889978177207*^9}, {3.777890025482876*^9, 
   3.7778900639380107`*^9}, {3.777890535514262*^9, 3.7778906056450415`*^9}, {
   3.777890694919812*^9, 3.7778907382555294`*^9}, {3.7778927973996983`*^9, 
   3.7778928172964244`*^9}, 3.7778984193295794`*^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.7778853013477077`*^9, 3.7778853126623917`*^9}, 
   3.7778853728649015`*^9, {3.777885406690309*^9, 3.7778854442248335`*^9}, 
   3.777885500584671*^9, 3.7778856208063383`*^9, 3.777885717576044*^9, {
   3.777887768084282*^9, 3.777887847643339*^9}, {3.7778879805538263`*^9, 
   3.777887989121155*^9}, 3.777888249605749*^9, {3.7778886311702547`*^9, 
   3.777888651248145*^9}, {3.7778898470799656`*^9, 3.7778898509384937`*^9}, {
   3.777889914484579*^9, 3.777889978177207*^9}, {3.777890025482876*^9, 
   3.7778900639380107`*^9}, {3.777890535514262*^9, 3.7778906056450415`*^9}, {
   3.777890694919812*^9, 3.7778907382555294`*^9}, {3.7778927973996983`*^9, 
   3.7778928172964244`*^9}, 3.777898419359495*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{10., -19.265023237512644`}, {15., -18.506990161814237`}, {
       20., -17.906166728940576`}, {25., -17.293402466582016`}, {
       30., -16.811357098680013`}, {40., -16.238512260163546`}, {
       50., -15.799607883029017`}, {60., -15.501858759050814`}, {
       80., -14.699815143980574`}, {100., -15.098064422270902`}, {
       125., -14.289687774349526`}, {
       150., -14.065451959746738`}}]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVz3k81Ikfx3FHl1hXJClH851hGDPfMYPcH2nlFhIby5AjQjpUSkVyZ8ZW
yzqzS7NSJOT4ofkkRGlZm+jXErWVyJbcdPz8/ng/Xo/nn2+twEPuwRJiYmI/
r+z/PfiDy+8SYppwcMNy0dF0LqY+Kk3szNeES0XfDb2M52KpxbI/31gLjpjI
+F0/wcW/tco2bT60DRrbQzMoIVx0GhdPZw8TELnGJtLclosHfL1D5mOp8H7j
t7JeSy5e+KNyR4syDdQ6F2WzjbnYUu2zbOesDfuDmyuFdC4yT9+J4DXTgd96
pz9ZjosOk9L2NG9dGGwyK3KQ4mKIfyD1/bQuLCwpf6VJcvGqjdzwCT0GHO/5
6YD6PAflZcJcBXlMEI80y2t6wUHGWZGepxELUut3F84/46DdR+V1an0scEuQ
qDB6wkEID+D9dYGEEGd6d00nB11KLrrU9ZFw6bfXE+9bOej7d715riYb3neN
WGi0cDBc+ZVuXBQbPmQ4xtrVczDWRVbVv5kNRit/Q25z0CI6Zrj5pBlsG5c+
r91pgB+bnWYYj83AW/RYtHjXAEuliPWFWubATltub79jgOtL+gzPPDQHPxF8
dSsxwMF+VqbFFkuwVzF/HHrWAP+zdXbrC38AC5PmwDpDA1RqG9FRSQeY9inP
7GUYYFR4N8e1FmC0bp/1AsUAtepL7EXrrMFjW/zAEUUDTN3tHnP1tjWkC42F
lI9s3Jt4q9tf0gY60LWrtZKNVfT8gRx9G/hsnRs+JmTj+t7klz1eNlDVz0/U
vMrGli1+C1Y3bWCj9Q29TgEbiToZQtNzJxxPe1Y6c5iNn8bCTo8Iv4ez8wEy
VSZszHQhdAMc7KDkVY1JeT+J8oYSS92H7eAlJ1bPqZfES2ojXdtz7eCngaYD
Sw9JzB7LD5Mfs4Nj2K13GkksOr/huijJHtocSm9I3SSxsk5CR/2eA3ixjWxN
k0gkC0fm08YcwJnmFCuIJ7E68e6DWTlHaJF5Wv3vaRLrdp8KfeznCMFtHbUP
j5AoGp8Sxn12BHfVlIOzPBJ71Uepz42dYVout3HJkkT31aJZW39nsBCeE46a
kvhkoqC9OtkZVF4F1fcakTjY4B2c3u8Mso03/9vBJHHEvbfU5KgLtGvbechr
kDiVLKL8UukKJCG6JiFOYtr8H1nlim6w/dG0T85lFtK8qs98obpBHfGDlmEm
C1vrfg7fbeIGxR5hB4eSWbgU47tzzt8NdEwWFZxPsTBi5t28dYUb/L2HFXAt
gIUuU6v8n+1yB5MMF46WAQsVJ0z1153xgDVuz0MuP2NipYP6Zp8sD/Den33V
+QkTHcrF11aWeECZQ46VXA8TE8M6RzweekCHf1toWRsTZ956Xrmqsgfm1unb
kVVMfPpP9LJR9R5I+lP0S3IqE/OHhV3Bbz0hxrRu6bkFEzVtYsR8P3vCYWUn
hrgJE4W/2xi7K+yFobfHmxlcJlZHj5Ramu2FwgRGQ7YuEzslNserCPaC+LaO
kFoVJs7SMo26jLwg7kFtgdS0ProeOlrCSPaGr/6HaC0V+igpBmemCR84n97t
OkjqY8GFlOzE7T5QPXH0dbS+PhpJ9dza4OQDHWvhNxldfQxX9HvJOeoDpzjD
sc4Ufewj4nYdu+cDbkH3xWaU9bHYvkFh9kdfKJwcyOtZZqDlZVI4l/0jzPT8
uKOwi4Hml7Pexq3iwewWL8v8CAZ+HaDnbpTjQTQzqqAgjIGiLfcdqlR5IBWp
FFocwsAdwtmKV0weTNHlDW7xGGjXuO+Yww882Gz1gXy3h4GeLwjxTZU8OBXD
Pv/IgoFReo2ba7wCILfiaT2pwMBf7486vysPhAbpDr3eFj2MPIfuczuDYYsx
KAsZeiiyuC+0qg6FuDEjpYQ6XTTPpW3/5BEO+Yc38Lt36qLlfMWm0c4IoMdK
mge9pmPZSGtONPsQ3LW6rSiXRccizpZy7ttoKBOIstXM6Ki3MMZy1TgCbjb6
t95M6aCLdMieosNHoVUlI5BVpoPEP/TOlpZjALWJCqIgHbS4e27/6ekY6FsT
OnWbroPv3yQVRtqcgO210iNek9o4LK/+7UvcSbCdM59UbdDG4LSQb629sfBJ
R74xPEEbix/Munirn4aCsycfHHfRRvW1Kh0ZnnGQkKVTR9HSRvbPY8+nhWeg
ZkBzH/mJhimEk+rS6FlgmV1fMuukYaf5svsB6Xig6KrTGotpmMMvG5usjoex
mF2rU0/QUGpU/dIO1wSYyhmbS3enYfu+yfTbCwlw4/AZ2wk9GvoY+99Yd/U8
3LctP8ZbS8PLSnkvmKaJoKZWLxn9horKqvr7D71MBHFezNDofSqaqKctnT13
AXiDPZXCUioaJ6c2HldNgvSaJ7Ifk6l4TnnkQSomwXiU4u1roVQMuyY2Huab
DCpDKSccHalY6BvrE7w6BYpfTHdE6FPxqFLTCKskBaLyLnk4K1KRwirOfGmR
CgG2d1qCFgjcengo7dbrVMjL/vOT5BCBjTWvch3Pp0Gz7M5NW9oILN66Y1Gc
kQ4NGyqIh9cJ9B+3iS/uS4dy05zXOVkE3quXVZONyoDjJ6n0klgCo26yV2dv
vAjUUNr47gACm37dKjlZcxG6M2XXazgS+Grxpg7DJRPU/NG6z5DAvbFXCpNm
M0FhdIHO1SAwbHEnrfInPkyYBWWkryewKDohMvQKH25U5pmwVtz3tqVWM4cP
kV1LH/6SItD8qZHN5QI+3NxqELN1xfI1OryTv/NhVcie0aq1BNZFyOTtaOFD
6xstq2erCJQY+eu7gTE+VAk615DfKGjsJe+ZNcGHII2Q+v6vFIz4w6nA/l8+
fO/w7dDpFfc3t+s2T/Mhp0t9seMLBcty63f9+pUPjybGw/0+U9DFIz/hoJIA
ol/FPeIvUjDx4UAnoSKAWxZ6y9wVN1gryQ+rCkB4967B8wUKapGZRbs1BFBU
KmjUXvGMzLkmQ10BpBDV1HtzFKRfaJL4wBBAS3/gldAV+y3P25exBPAle3K9
7IofvIse3GwoAPP2DDmfWQp+5lVoPDEWwMfogkLxFZOD70IyTQWgUZ7AKZuh
YLArrdLWQgDSCqZ/uqw4ryNw9puVALxs247PTlPwf1G6YIk=
       "]]}}, {}}},
  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, 150.}, {-Log[10000000000], -Log[1000000]}}, {{
     0, 150.}, {-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.7778853020919247`*^9, 3.777885313433321*^9}, 
   3.777885373529397*^9, {3.7778854073632536`*^9, 3.777885444903954*^9}, 
   3.7778855012786837`*^9, 3.7778856214611654`*^9, 3.77788571824887*^9, {
   3.7778877687490964`*^9, 3.777887848312338*^9}, {3.7778879812649217`*^9, 
   3.777887989876109*^9}, 3.777888250377676*^9, {3.7778886320309477`*^9, 
   3.7778886519941387`*^9}, {3.7778898479089117`*^9, 
   3.7778898516585455`*^9}, {3.777889915238573*^9, 3.777889978816346*^9}, {
   3.777890026165056*^9, 3.7778900646189365`*^9}, {3.7778905362612634`*^9, 
   3.777890606457294*^9}, {3.7778906956685925`*^9, 3.7778907389828696`*^9}, {
   3.7778927980440807`*^9, 3.7778928180247087`*^9}, 3.7778984200596223`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"With", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"weightFn", "=", 
     RowBox[{
      RowBox[{"1", "/", 
       SuperscriptBox["#", "3"]}], "&"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nlm", " ", "=", " ", 
     RowBox[{"NonlinearModelFit", "[", 
      RowBox[{"fittingData", ",", 
       RowBox[{"{", 
        RowBox[{"Abragham", "[", 
         RowBox[{"T", ",", "B", ",", "\[Theta]D", ",", "x1", ",", "A"}], 
         "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"B", ",", "B1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Theta]D", ",", "\[Theta]1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "x1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"A", ",", "C1"}], "}"}]}], "}"}], ",", "T", ",", 
       RowBox[{"MaxIterations", "\[Rule]", "2000"}], ",", 
       RowBox[{"Weights", "\[Rule]", "weightFn"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "//", "Print"}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "//", "Print"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"ListLogPlot", "[", "fittingData", "]"}], ",", 
       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"}]}], " ", "]"}]}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.777885461549266*^9, 3.777885479015893*^9}, {
   3.7778856264483395`*^9, 3.7778856359658685`*^9}, {3.7778857574969854`*^9, 
   3.7778857597847795`*^9}, 3.7778858544070897`*^9, {3.777888883696252*^9, 
   3.777888902610022*^9}, {3.777888942620531*^9, 3.777888972824588*^9}, {
   3.777889033869882*^9, 3.777889063580248*^9}, {3.777889106765047*^9, 
   3.777889108132389*^9}, {3.7778891874756737`*^9, 3.7778892306970253`*^9}, {
   3.7778896570045705`*^9, 3.7778896740270042`*^9}, {3.777889706970956*^9, 
   3.7778897275667224`*^9}, {3.777889762051796*^9, 3.777889770547933*^9}, {
   3.777889872196313*^9, 3.7778898895169845`*^9}, 3.777890625796218*^9, 
   3.777890774719141*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "4.4226525411427846`*^-26", "1.1589667094876228`*^-26", 
      "3.816030697808422`", "0.0051185311036327915`"},
     {"\[Theta]D", "173.84610773014637`", "1.9503951864995537`*^-53", 
      "8.913378628776991`*^54", 
      "2.81111868093585908305335852174445031558889503`15.954589770191005*^-\
437"},
     {"x", "9.`", "0.`", "\[Infinity]", "0``307.6526555685888"},
     {"A", "9.169816101279261`*^-10", "2.303233450803292`*^-43", 
      "3.9812794912652606`*^33", "1.774339369544471`*^-266"}
    },
    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]], "Print",
 CellChangeTimes->{{3.777889650046462*^9, 3.7778896756855345`*^9}, {
   3.777889709457509*^9, 3.7778897292656636`*^9}, {3.777889763564417*^9, 
   3.7778897720245624`*^9}, {3.7778898643505754`*^9, 3.7778898911006103`*^9}, 
   3.7778899876623917`*^9, {3.777890612187563*^9, 3.777890627438243*^9}, {
   3.7778907472580433`*^9, 3.7778907762460523`*^9}, {3.7778927990864906`*^9, 
   3.7778928227788143`*^9}, 3.7778984212115526`*^9}],

Cell[BoxData["0.8692577140624623`"], "Print",
 CellChangeTimes->{{3.777889650046462*^9, 3.7778896756855345`*^9}, {
   3.777889709457509*^9, 3.7778897292656636`*^9}, {3.777889763564417*^9, 
   3.7778897720245624`*^9}, {3.7778898643505754`*^9, 3.7778898911006103`*^9}, 
   3.7778899876623917`*^9, {3.777890612187563*^9, 3.777890627438243*^9}, {
   3.7778907472580433`*^9, 3.7778907762460523`*^9}, {3.7778927990864906`*^9, 
   3.7778928227788143`*^9}, 3.777898421308283*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  GraphicsBox[{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{1., -38.27903429477102}, {2., -38.3780282989055}, {
       3., -39.987126098305744`}, {4., -37.82346065355712}, {
       5., -35.696845361168336`}, {6., -34.31871493152866}, {
       7., -33.4479877925666}, {8., -33.11046379474}, {
       9., -30.89950500606623}, {10., -33.10255968636556}, {
       11., -32.469357539452126`}, {12., -35.98368157452486}}]}, {}}, {}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0., -40.64671150016185},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{None, None}, {None, None}},
   FrameStyle->Directive[
     Thickness[0.003]],
   FrameTicks->{{{{-39.14394658089878, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
          TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
          TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
          TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-32.23619130191664, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "14"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
          TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-41.44653167389282, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-40.34791938522471, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-39.36709013221299, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-38.45079940033883, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-38.04533429223067, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-37.75765221977888, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-37.35218711167072, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-37.19803643184346, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-37.06450503921894, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
        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]}}, {-35.04960201867667, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-34.89545133884942, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-34.76191994622489, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-34.64413691056851, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-33.84562921435074, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-33.44016410624258, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-33.1524820337908, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-32.92933848247659, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-32.74701692568263, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-32.59286624585537, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-32.45933485323085, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-32.34155181757447, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-31.543044121356694`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-31.13757901324853, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-30.84989694079675, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-30.626753389482538`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-30.444431832688586`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-30.290281152861326`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-30.156749760236803`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-30.03896672458042, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-29.933606208922594`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-29.240459028362647`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-28.834993920254483`, 
        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., 12}, {-40.4919939367635, -30.89950500606623}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, {{-39.14394658089878, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "17"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-36.841361487904734`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-32.23619130191664, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "14"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-41.44653167389282, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-40.753384493332874`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-40.34791938522471, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-40.060237312772934`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-39.837093761458725`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-39.654772204664766`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-39.500621524837506`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-39.36709013221299, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-39.249307096556606`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-38.45079940033883, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-38.04533429223067, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-37.75765221977888, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-37.534508668464674`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-37.35218711167072, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-37.19803643184346, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-37.06450503921894, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-36.946722003562556`, 
       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]}}, {-35.04960201867667, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-34.89545133884942, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-34.76191994622489, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-34.64413691056851, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-33.84562921435074, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-33.44016410624258, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-33.1524820337908, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-32.92933848247659, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-32.74701692568263, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-32.59286624585537, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-32.45933485323085, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-32.34155181757447, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-31.543044121356694`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-31.13757901324853, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-30.84989694079675, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-30.626753389482538`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-30.444431832688586`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-30.290281152861326`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-30.156749760236803`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-30.03896672458042, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-29.933606208922594`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-29.240459028362647`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-28.834993920254483`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}], " ", 
  GraphicsBox[{{{}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[{{10., -19.265023237512644`}, {15., -18.506990161814237`}, {
        20., -17.906166728940576`}, {25., -17.293402466582016`}, {
        30., -16.811357098680013`}, {40., -16.238512260163546`}, {
        50., -15.799607883029017`}, {60., -15.501858759050814`}, {
        80., -14.699815143980574`}, {100., -15.098064422270902`}, {
        125., -14.289687774349526`}, {
        150., -14.065451959746738`}}]}, {}}, {}}, {{{}, {}, 
      {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVyns0lIkfx3GUXFK/LooSlVnxzJgx8zwzheT5qqnGJYcuci23bHRhHqXa
XCp3miEkYYWURSTy2yWNb9sqCcUmu6vrYje0kQpJ6ze/Pz7nc17nvFf7h27f
p6aiopKg3P/fQaNmGnbepr3Ki9kFc9Zh+h9nThrJ79PhlYqyilNr8Z1ZhXpK
eSdtolj+5KX+Wszqz2qfLe+hx0ue/2D9SITWhdHnY6TP6YaRle+XZ4twlHuT
F1X+mi44Q0Yc/laEd+eWZVjn99OmsgSTSVqE2YPfj0/I/qYbyqQrHhiKMPh+
hmddzBA98mvcN8UzQrS5kqhgpP/QEruHkrJ+ISbZ2S7MEYzSTauOL97UJkRp
teXdiPL39FjZxlvTdUL0XEkd3cX6QFODBboxRUIUy7mmwvyPtE+Qk0+CXIh6
B41T38sm6JJq2mH3QSGq9K7Y8HjOZ9oUpkRd3kIcstcbqYqZou3enHPgOwux
0VRnx0HpV/ru1OX96yghXs2eo+449C8dFmb+pn6NEFvOnOrNEqiAKNWG17lc
iDfefycLL1eFq+zWzpTZQlxDHP/rzyA18LOxitObojDX9yi9nTULSK7cdN4o
hXGPQt/z82dDwWbWId3nFO6uDNz1TqYBJY1fdg40UNjW71fl46AJ15Ktrs+u
pRBW7NVon6MFkphUW98KCtmpHvUVMdqghSxXRT6F0/udDYOl86Cr/eSB5tMU
SgsdI37jzocbfxayw09S+FeP5NHWoflw8x4xuPUohfsvF0GmYAEUie25e4Mp
dF2UPyYtXwgcJ682/R0U6lQtv1SmuQikw4qozm0U3rO/6Pg6aBH8s0Er8oqE
QuvT2SUurMVwMFd/RZ4thd+MprtZ5OtC0ZIB92IOhRPt8Q1vZXrguF2yMlyL
wkBa23LhRz3gPe/YuEadwq5qeZ3IUx/GXYzPD6tQWJV5oTp6zTKQR94LLZ8k
MdCj7OqCpuXAnS4yHHpDYld/W4Zw1BAirHa06rSRCG6uCzzcjEB+PF61rIXE
qvvdsqhGIzAJiEt1aSYxufxF0r2klVBz2uwwKkhcZXmcvpa+Ch6uXvzaoIbE
nq/JIlvCGPYMsUrP5pIoX+t0xMXbGPbZVrLwAoni0Pm1/mnGQKj7bv+SRWLN
qwx+4idlXxdskJSm7O/mcR7fYYF39JHx8TgSNydXrvb3NAEpT9VGW0pirW7n
vIRUM0g8y3Jat43ERqlBv+iWGSTnbTATO5L4S8e+hoEhM6g4Amk77Ul8mjQV
tNmBAK25tk0xm0mcnGbhbC02dKTtnPm6gUTbgQgmNoEDgX322TILElvrVvSc
Os2DJo1dekW6JIZxhI9vryfhfGNnQEC/AF+s2zpjuIOEhf7z7v/7pwC3iT15
0SEk/FHixsl7LUC2z6mzthdJEES8ffX0hQAH5G2SpnES8prnh3j8LkDPscA7
eIOCgIrW1IQOAW6qP19z11QEpTb/LPOvF+DSrRNZDxZbQpOTxrJ96QL8cFsv
pDjEFibiFG08awHG7zXSv8DeCLOC+KKmt3y8Jtsbu2nvZrC2Shl2KuCjwQnv
g5NxEgh8l5Nk4c7H0rLe9oQjjjCi7x6pacjHjsTkH09edoacSo8jW+5ZYEr3
Mx2TDhe4Ny5J+S7QAh83d0Uu2LQdLokTPN7pWGC/ziv+9Z4dED6aqfG+joeJ
Ebwia9ddsHh/XK/VAR5OrM3adWLIDXbIakMlq3g492mPxCbSHdZxcltVnnGx
6oL35PCYBzzjO86SFnLRqHpy2DnZC64dVj3QEsBFw+HuvILZPhCf25sr5XFx
KLI1rejSHnA+Hv+kc8IcKyOc/bKW+cK8yyT3P83myIXf3Du6fWGLcRdPLccc
F9cdGntd5Ad6PzOBocHmaHeLNXTA1x98bg9v7KfN8U61RNXSIADIsMtRv+qb
Y6nriYbnAwGQkbd2t+koB7tjWzs/FwfC9b4HHdcecjDEzzR1JHQfzKTTqZeu
cNCV9yHA1CoI5HaC7tLTHIw5+zK3+2MQ5ESWBm3046Budk+4D34Lc1v6Bh1p
Do7yR8u9ovfDF+86/4JVHDS6dUw13zIYzFl2hswsDtaOak/VqYWAMPTz/cZ+
Nqb9qHDZ0hQCzvWn+W9b2NhFRNtXpx4AmXHlo8IKNnpz9xSmOxwE7aOF/Zrn
2Gi5qnJprfohcOC/Mrh8jI0nFRoW1x8fArvB6/Xt3mxUf3fmymr5YZhyVKTt
E7NxvEVLccgrFKL/vrEpj83G/AczU1GLwmB0oXHQ8EI2+k1obzkVFgbisac/
H/pC4O9TBv6hT8Pg5jb3/ot9BH7asqHyokgKuVeSQnrbCWzQXqo5kCEFo88P
vb7+RCBZ8pEynJSCiXjNrSfFBDon9MnT3RhomKNuly0ncKuD3GmtOwOvXRxa
bJSG+VbazzwYsElK2d0nI1CQLY839WHg8IdPMr7SuletIhUBDFiKXTwfphLY
25wW/DaMAWe/x6FqyQTuV7cRS1IZyLs/ExsRS6Dfg79U351lwKmjV8NIaU/Z
uaZMOQOJRHxm8xkCnZb8bf3yHANnxdY/6yptYZIhiMhh4PuxOVG1pwgcF78x
KrnCACd/LGgsisARzcxn9qUMFP0yHZSr9Ju2DbkjPzDgqqU4vFHp33dmLll/
jYFjQb7nMyIJbAy01emqYWDvv19tqZME1pkNPjh2kwFZVm5k73cEVr3NTDT8
LwNdzn13YpUuPDKoFlzPQE5DeMCTEwRetMzC+bcYiK35qSlS6Yxp2+ibjQy4
eZWwTJROwcH1ngoGBB6itPbjBMbGZX2eaWLgnEuIWoTS/wMb0/Ty
        "]]}}, {}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0, -19.642411475415017`},
   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->{{{{-19.11382792451231, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
           TemplateBox[{"10", 
             RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
        0.}, {
         AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
           TemplateBox[{"10", 
             RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
        0.}, {
         AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
           TemplateBox[{"10", 
             RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
        0.}, {
         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
           TemplateBox[{"10", 
             RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
        0.}, {
         AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
        FormBox[
         TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
           TemplateBox[{"10", 
             RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
        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.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.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.815510557964274`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.72020037815995, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.633189001170319`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.553146293496782`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline],
            "CacheGraphics" -> False], 
          Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.479038321343062`, 
        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, 150.}, {-19.55388830849964, -14.065451959746738`}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
      Scaled[0.02]}, {
      Scaled[0.02], 
      Scaled[0.05]}},
   Ticks->{Automatic, {{-19.11382792451231, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-16.811242831518264`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-14.508657738524219`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       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.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.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.815510557964274`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.72020037815995, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.633189001170319`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.553146293496782`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-13.479038321343062`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]}]], "Output",
 CellChangeTimes->{{3.7778854647212687`*^9, 3.7778855103724575`*^9}, 
   3.777885643270817*^9, 3.777885803315783*^9, 3.777885859928158*^9, {
   3.7778889595768814`*^9, 3.7778889841220093`*^9}, {3.7778890392510247`*^9, 
   3.7778890653285723`*^9}, 3.777889112925562*^9, {3.777889650903881*^9, 
   3.777889676734728*^9}, {3.7778897104279027`*^9, 3.7778897303328094`*^9}, {
   3.7778897645288367`*^9, 3.7778897730020123`*^9}, {3.777889865459609*^9, 
   3.7778898921486835`*^9}, 3.7778899887345233`*^9, {3.7778906133967967`*^9, 
   3.777890628416439*^9}, {3.7778907483271823`*^9, 3.7778907772593417`*^9}, {
   3.777892799946856*^9, 3.7778928236251097`*^9}, 3.7778984221270924`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Tempera", "=", 
   RowBox[{"Range", "[", "175", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"evaluation", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"nlm", "[", "#", "]"}], "&"}], "/@", "Tempera"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"exportData", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Tempera", ",", "evaluation"}], "}"}], "//", "Transpose"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
   "exportData", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
     "exportData", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
     "~", "Join", "~", 
     RowBox[{"{", 
      RowBox[{"B", ",", "\[Theta]D", ",", "A"}], "}"}]}], "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PrependTo", "[", 
   RowBox[{"exportData", ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Temperature\>\"", ",", "\"\<Fit\>\"", ",", "\"\<Aram\>\"", ",", 
      "\"\<thetaD\>\"", ",", "\"\<Adir\>\""}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"exportData", "=", 
   RowBox[{"PadRight", "[", 
    RowBox[{"exportData", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Length", "@", "Tempera"}], ",", "5"}], "}"}], ",", 
     "\"\<\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
     "\"\<T1_Fit_DFB1_Toluene.txt\>\""}], ",", 
    RowBox[{"ExportForm", "[", 
     RowBox[{"exportData", ",", "\"\<TSV\>\""}], "]"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7778983941120253`*^9, 3.7778983949278793`*^9}}]
}, 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, 180, 2, 101, "Title"],
Cell[763, 26, 1950, 49, 112, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[2738, 79, 12460, 296, 705, "Input"],
Cell[CellGroupData[{
Cell[15223, 379, 7749, 154, 521, "Print"],
Cell[22975, 535, 7696, 153, 521, "Print"],
Cell[30674, 690, 7680, 154, 521, "Print"],
Cell[38357, 846, 7589, 152, 521, "Print"],
Cell[45949, 1000, 7600, 153, 520, "Print"],
Cell[53552, 1155, 7422, 149, 521, "Print"],
Cell[60977, 1306, 7546, 151, 515, "Print"],
Cell[68526, 1459, 7748, 154, 515, "Print"],
Cell[76277, 1615, 9509, 183, 520, "Print"],
Cell[85789, 1800, 8292, 163, 521, "Print"],
Cell[94084, 1965, 17625, 316, 521, "Print"]
}, Open  ]],
Cell[111724, 2284, 1058, 18, 21, "Message"],
Cell[112785, 2304, 12007, 226, 520, "Print"],
Cell[124795, 2532, 1058, 18, 21, "Message"],
Cell[125856, 2552, 7381, 150, 521, "Print"],
Cell[133240, 2704, 19184, 449, 506, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152461, 3158, 1722, 50, 92, "Input"],
Cell[154186, 3210, 823, 17, 215, "Print"]
}, Open  ]],
Cell[155024, 3230, 92, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[155141, 3235, 139, 2, 70, "Section"],
Cell[155283, 3239, 620, 10, 49, "Text"],
Cell[CellGroupData[{
Cell[155928, 3253, 4626, 124, 205, "Input"],
Cell[160557, 3379, 1238, 20, 47, "Message"],
Cell[161798, 3401, 1236, 20, 47, "Message"],
Cell[163037, 3423, 37441, 865, 495, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200515, 4293, 4083, 95, 187, "Input"],
Cell[CellGroupData[{
Cell[204623, 4392, 1547, 30, 106, "Print"],
Cell[206173, 4424, 471, 6, 23, "Print"]
}, Open  ]],
Cell[206659, 4433, 52473, 1201, 477, "Output"]
}, Open  ]],
Cell[259147, 5637, 1785, 54, 152, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

