(* 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[    194852,       4334]
NotebookOptionsPosition[    193622,       4291]
NotebookOutlinePosition[    193966,       4306]
CellTagsIndexPosition[    193923,       4303]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["DFB1 - liquid DTOL - T1 fit 12/10/2018", "Title",
 CellChangeTimes->{{3.777365491334436*^9, 3.777365495812441*^9}, 
   3.777620196717688*^9, {3.7776320632102532`*^9, 3.777632068794711*^9}, {
   3.777883054404063*^9, 3.7778830604725075`*^9}}],

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

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV0glMk2cYB/BytUxrLSI6N0Bg4MJolqnjzNTn1a0mbgzGmDhSXOUwBAMi
co4NGxhDMAyIEsYC2ClolCGdbOjIXFs1XMMCcp8tlUILk6tQLjfmeJ8stEnz
5Zf+v+d43zqGng2IMGUwGOEvv/896ecMZMd5nn331Jh0nXAOPPVd5Xx7tCwZ
eBzXorUwDTUjHXwPaW/2PhilFmVD+KS96WzZM+rYAqjttBV9846amlsEMp2J
Ieu6ilpcCkGvZ/kl7Rymzr8GHe7COPb5furGG/BexCNXx8+6qZMr4drd6eHy
0KfU/hJoqP4iVWbTQu1QAwLDR4qUi4+oebVQpvKsPxbwC3X8b5D1B8fU5VQW
9dLvcIWlL/SOqTq0boEMTut0vDkiow5+CIkVo49dUxupEx/DvlKnzC7fNmpJ
PejS8+ec8jqpLZugnc2fHvmklzrtT/ByWYzcaj5IvU0BPRE3nIfClNShbZD6
lVJi9/YIdXM7dG3ODo7pU1OTDvjhW+uedrdR6oZOuKd5rdU/QYPzdsP+qeFj
VyvHqBm9wKzM3cG/P05d0wfsI1pLuUJLnTAA7iX3vzv5o46aPwQ5erfSuqQJ
6j1KKMn0swvcObluUY4KbgbsL/SWo7NHYHeGpmVX+F80n68Gr4cXpBY6dNkz
WDbvFMeffk7zNaMwZFlmwxSj2zQQFctvE1tP0fzCGHwcz/1gny/aUQus202C
xuvUokAdjGo/baoYR+dNQGvxFUk2c5rmn05C7EwPr24X2vY5zJvmCILcqUXR
U1BurdxeE4iun4aLa0q9+mv05RlIrZjjHKxBH52FPo+xF5V51LA2C67H34i1
LqCW1c0Be6Ux1z4b+32ph+2s8KDFavSBefCTvmo7IsW82QKcTHnrBLsF6ykW
oCCwO03Vhf1KDBBxMEook6NjFoGTc4EbOYn595eA3usMrW+/DGKDvcvtdvx9
dRky7ub27uhHD66Azt82P2QI55GvQnSYQrqyhPVvvYAM9W7z/hWcr/BvuBPZ
dVXyEzrzH7BZXwDzKWtGeZEXgzALqwZnOqkdahmEVZUYF6ChFrubkBkbwfdW
Hdj/ngnx6xn5+XAbzudjSpbmwj3e7KMWSk2Jz0Wn4j3TaL4Z2XLY2e9IHeZb
zYgdr7F27zjWCzYn6kuDWbfQ4jFzsvF8HRIsyMbzE1kwSfxSasnkE9yviEla
5uVVkXj+KjcWUZ+3njvag5azyMCdDt1l3F/2uaXR/CK9JXGeZUk1g9gv7xXC
0HpEleH8Yt4mYuNpSK/DPKNlE3FTcENW1bhP9GbywEdy7kAT7stlG70v/JVN
vE/kv7wyzAu2kOK9SlvDANaz4Bidn7iaQzKaj8ckT+A8gq1k4/2BBddoXmEI
l2z8/8XWcklO0hNVcyuaa0U62ps/TMN+wjNWRnlosDKaj+u87f/+/wKbD0kP

       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwd1nc4Vl8cAPD3tTdR0ZIyMspPkSQ650SyyioaVippKCGjSJTQkJCMZJaR
yMhKZiErIzPZe7wX2fN3rr/u83m+597vuOfc5+6yuK1/hY5CoUxRKRTy+vGm
gkUbnzNwW9qhGnl+sMBR2L99iWIEKzPKN3sMDxQwmf3N+Em5Cg/9qXN+7DxQ
ULNMF/WZ4gibv6ygP2/7C9IqN/HHUrzg2uY9/ZYTvQUisjvrwylvYNbDFyHt
ZV0FNXmTmnE2wfB1dYot39WuAke17yWfu0Jgd3S6syxzV0HFuWtfSgrfQunS
DdZqgR0FCoXnquxhFJSW8LDqyfhT8HcgJiWUEgfPSxoztqo2FaRJcd6MyI6D
monOYs3hjQVPbBzEY23i4b0DznYG878LZBbVoz51JUDff2+uZaQ2FHhw0vwL
C5Ogf4Z27tuDdQUbt24/YgdTIcM5WlfNcnlBDrQUDKFkQb/xQfc3tSkFAhpf
Cs9ezoI2Op7mGzw/FjjoMVwSKCfji+anVeIKDlhEx715mQ3N9VPTfXLCCxIf
dcgECeZCipNIwsjiVRBaaqgSoPQNUhYOjx5T+wzma97360d+g96sN76NC6cB
w+ZpL16GfBjpcj34wUo64Bvyr3pVmQ+dtt3IexCbBUofD0qq7yuELZuq94mV
5IOjH4Qz1PKKYPujj5IUsVJgLanlKUYrgk4CNXkOs6XgbbKtIZNQMRy6+M1G
5kcZWMwsmv/xqBjuhfITD0x+gswyM+XjWiVQabdbH+VeFZAeDitVafsOLZH1
dX7ZOrBz78ZWOF8GNZ129Mf4N4G9gwp+9WLl0JfLN/Dl3yagEG1y4vKZcqgd
x3t8bE8z0BeI++KVVg4rbPnvr+Q2g8cMiv41N3/Co1VdypFtLWCk3UzLuLsC
coG65j7KH5Dx4uM3x4pqmCjbZlU40QEK1WvtWReq4S2B2fQhqU5QTT8jFban
BrL0WlFiLDvBgPPR0PzHNXDH18ub6to6wRbLOgdG8AsOvZh5uMmsC4CIpTc/
z9VCbdVTQ6UK3SDWcZeeUU0dHBO34Jcv7wH/brMBqf46GKTK8eRwZw84ZvVv
79pSHeQusUjjm+0B3Wd/sMRJ1MNg700uJ4V7gaDitcLZx/VwJTVevvN+L3iz
/Pm/oCMN8IjDY8080T7w1B1yNcb/htOyOdnHTftBq7PEcnzBb3jnmNSFJJt+
IG7LO+LS9Bs+vS9iNOXRD0ot+n6IMDRC06c6Wjvi+gG9qrervVkjZIgMfzMz
3g9cmGrH+DY3Qb6lE63ddwfA7WdmlfqPmqHm2+z9wjaDQGmHDtvmt81QeiL4
ws6Hg4Al5ahGa0YzNA0ynV1+OQgi63eUmQ00w80mW61NUgZB7Zb24psaLZA2
Wf8zZ2wQyMSfzX3C3Qp/NAux81oMgeXD6gsa4q0w/+t9JWgzBMorDylwolbY
uVZgYfBgCJgTmzMDbFshdPUykwgdAq/kG1MjG1vhltkr30Jqh8DUd72E3LA2
eLFerj5LYRjkG6Ih14w2OJD2H8vJ48Pg6ZDMHlTdBnMUX2tW6A2D3Rw878tW
2yDDKcFPrteHgYFBTeTvi3+g5LJDV1XoMMjo1gym7WmHLd3DgbJzw8BhVcVr
d8ZfeP60tc3xyBGQKnUg52jlXyh3YNrkScIIGDsrNHq+5y+cEhnuy0wbARbp
y6cCeDqgr5yQ3OD3EXDK6stmBusOOFH435rX0AgQrRf70C/aCVN3x7T07B0F
I/WPLX5rdUHlANpUVuIo8B6+f9/CqAvCZ6+WhdJGgSjFLnDCogta/ekecskZ
Beb7LpZy3MOeTy7lLB8FTV7Kksfju+BVn4YtQX2joEhpdvILQzd8Xj6bfHrb
GAj+cNX9zbduSP93lV/w4RiYZu05tqOiG75QDzV//mQM6FobM8Q0dcP7Mi5G
tOdjgEVOzyuZ6IYdx4OSX4SMAacixRc/dvXAN9SCF0ppY8ConTPkn2cPrCjp
brvVPQbSgPd5Z/8euPorMn/34BjgiqHbvvauB2a3xWZWjo2B0mtz79iye6De
0r5DK3NjQH6uK3bXSA9k7j/ztYtzHGzmzfisc6oXamjlG309NA5s70rbNp7v
hYTzyPJPpXFQ0xIve+FqL6ypuP2vBo2DJxHhmZYPe+Hu+ETBPK1xMLPXK881
rRfGKG63FjUbB79PnC//uLkPUu9O3lF5PA4CXCldzJ19sINHwH93+Tg4Lf1B
0mC0D2YKcmuzVY2DjZ1ad9/N9UFHttspI7/GQSB8w3aQpx8uTz9JeN08DoLo
pQ9aoH4ox6c8+HpgHAT7XHiaF9MPidaN/Fr0NPDudabcHasB2NARXd55iAZM
1Yzd8uwHoMGNoZczijSwc45awew+AJ+OWj5jPEoDkWdPmr0LGYCi3S81N6rS
QNS2Pp/KigFoZB67iaZDA7FRGzpF9w3CrUnCq2GWNJDw6aZP2+Qg7Mlp2Cvm
RwNCSa9O6q8Mwt2Xtpy+6U8DwYmZGypYhqCzLZtbciANeMdRQnN2DkHg0bQk
FkIDllGBicEnh2CoQbHecBQNiLzOqzRMGIJmMXtP5qThelw4uBrMh+GXXRnb
0+toQOD+/nrNm8NQy17v4pMGGvBzNgwqdhyGmRP0doaNNODmECmY5jsMTxZw
bBxvwf3ayP33Km8Ypq6oD0530sD2y8a6OgIjcKR82MtuHNenleRf+WsEVkqX
uOgyEaAm6PSaYvsI9N/7bMMgMwEYepZvJA6NQGHG4ah7rAS443TyuA91FF4d
1KgK5iCA5nvanJrsKDTndelP5SXA0qqMSXHQKCyTapq5IEiAA5qtP/fHjMKP
cQnt33cSwOq1u3xUyihE7/9uktpFgN9S9dwPy0ch3fbsAEKYAEln7YqVF0eh
h+BpjXMSBDBN+7Inx2QMPlTV6UiXJUDgikmg+PUxKHht9+FpOQJUqDNRgx3G
4KS+mewBeQIc6jRsc3g5Bqs7BQXiFAjAwzH/XK5oDK7E8u68q0yA4iuKUyki
4zDE9tbIezUCiG4pyPswOg7zsn/yOhoRgDdtIPrY3Djkt40utThLAIoWl08H
HQ1O1pq0aJ8jQLuLyZnNW2mwQItr1/YLBPDvWhr3VKdBtyG5N3GmeH28ws4r
72mwf1LK0/4KAdrk09yFzQgoo/pf9/wdApT/ar1acJ2An40+v/xiS4AvVtRT
FxwIGLrsStjYEcAvVHdrwAsCsjeiql57ApxYpaXR5RHwde95xVxH/LyeTVM2
HBMwzFD6j5QrjifqC+tem4CAJr0g40UAmx3LbZTbE1A2N5XzB3ao33v/VPsJ
KBn/SeisNwHGHOapfA8nYLspp8Z9H5xP5V1XY9AEnJZIbPjyjAAt7cPhF75P
wInMQPWVl/h9cbsLXN05CU0txTu63hDglYdkLb/oJEyZtho3CiZA7kyDV7nk
JOzYGLavBpujXWxOQn4SRi7eUcsOIcDn+KrGMe1JeLUlnfIojADzSCDA9t4k
VA5mKv33jgDe9imcDxon4ZKFlJ/We/y+fENDEv9Mwhs7wq6kYwfHeYo2d0/C
4C17Hbd+IEBC2wVlGdokvMx79/QAdgVkse5hmoLLGhY778bj/JwXq9QUpuCa
z6KUzUfc33veZ9xhU5BLQFGt/zMBBApWNitFTcEWo/jDh1IJENkyFG0VNwV3
WLv5e2OnshfkFqVPwZvXp50k0ghQf+fGiF3VFJR2OatwOZ0AG49+12hZmYKU
kxJ387/g+pruskSZ/4PpN2/s5MwlwHKQUN0ly3+wRV7bVQPb3KgyROzmP3hz
V7+NJ7Z4i5BUkuM/uPmJ5PZl7OzWypNZvv9g/lHJN31fCdDcviugOu8fLCsR
yIv+RoDNvdU7FgWmYW56zI2WQgLci3EayBOchnZrZxpYigjQcUk4xU1kGqYm
/OpXwP7Q5wQZZabh0GEbzmBs+QHhSzwnpiF/ma+jfjEBDIed48XuTsMj144c
zC4hwGtCVNagbhoSUSl8WqUEOGvIW/uqeRqO8okJ38Xe/m31Zu3faaj/1aTn
HXb00+YPJ0emocmwne0kdrKoz1Z1+hnYy50+7F+G9/eFMarywRn4mCsoo6yc
AM+KW97dPzID92faMY5jn5L4cSQXzUDuPzu5eX8SoHE2/O6hUzOQd4iqcwG7
55XO8P6rM1Dor/fLEeylsrRasZAZuPxE3XO5ggD50hHWVyJm4NLfl5E7Kgng
8foZW+z7Gfg28JPLUWyWS5dVd6XNQH140tkNe+PqpuxtlTNQ7hHfq1VsaTnn
CJ6VGVgq6BcxWUWAi5Hg1qL5LBTYoy6bXEOApk9Fv7ZdnYXLEVXlZdjaX1X2
K1vPQje5K9Ld2PJNJ6bdnGeh+MbDN/h+4f3GoXuP0X8WFvbzfbmLne1o/oSn
ZBb2+RX+3l9LAC4d93dionPQ8dcZ16d1BHhsTE9Rl5qDD3pls95hL1zzvHht
/xyM0vmvMg2777GPSJLyHHT2DPFow87JfZW433AOtnT8lRevJ8BlsehMJa85
WM0dMJGHnbtSXKM/PAfPcdRdr24gAHsagzUbMQdXys3OtGMbW6qxF0/PwXcX
OkRHsVdrfp7YT5mHpu3mziy/CaASWVvIzT8PE6YtCIRddawjrUp1HuZxhSl/
xv7rtRCkFjkPmWCM5/1GPD+lIwdX38/DZxZJD72wH064NHz5OA8vuJZaBmDv
PkfhEc2ahxofC6YTsS0lmX3oa+ah153Mba3YtKqN9wuX5mHJnlsZ+5vw95JX
xkzRaAH2CQUu/sb+fDO9ztpkAd7Sib3WiW1eJq8adWkBHpgivg9jF7koS7DY
LMDRbb/gKrbHoOa/Ru8F6KidoSfWTADGb1e87uQuwLk62zlbbDarsJT4HYvQ
sJcdrmHnFgvubhdehN0f6O4xtxDgxo7oQG7JRcjidimWG7uqPt7ZQX4RCum3
VuzEfqGcqaKqswjtI4svAmwevrrmzoeLMKr+WO197E35TBT+vkX4k2fDjRHs
6AKNlK7hRRjz/KjzBLZ00XPTRGIRUvgzXWax1b7zflNeWoSuKzWX6FoJ4FAh
eO8y7xI8cyYtYwt2U5P8dCpcgsVuYnfUsIMIyyHt8CWY+TqkOhh792TCm80x
S3Dyo0FcOHby1JhaV/wSDLJ0dorGLp2xfW+XsQT7LqpSk7Bnlx5YhFYuwS0/
7yXnYxuyvGkfXFiCUS/FHvdg8+8qq/UwXIbu3SquIm0EoPupdbrceBk6rOam
iWPTbGqbOS8tw57wXV17sb8XtnYE316GGpuWdh/EtjUfG0v2XoYNut6ax7Gr
Ijaw/sldhraSC/suY2edCHouVLQM99teHb6KHU1s5bEsW4bl3CnhN7CdgQj/
ZMMyHKRQJ22xxTrlRZnHl6H/rLiqO/ZDQWMku3MFyvuvxb3FvlHa9d1JdAX+
ND80F4FteOuKer7UCmxv54cx2Pvyb+loKKzAMjP6ggTsNhN3EzO9FfiSt8E2
E1su/IPzs0crsFTOLa8Ge2jbZGrv4AqUzSNElrCfXGdfZKetwFuXmdJXsIVz
RI/JTa/AFx6nlCh/8P+I4fn6x5RV+OLIG8iI/duvZEp0yypUSaLfwI1dyBgk
a6W5CjN/tLXswg4mFL+MJa3ClG0tyqrY8kfPrGxMX4Wl/NePqWE3PL99XDln
FdpDGRV1bC7J2MYXP1ahWdjdw9rYjy9zzkp3rMJmsYQFA2yb1k75O9xr8LNu
co0F9omSx9kzd9bgaWnneVcyf7apcobjGqxOEb/rhq2YrFBs67oG5fuPEA+x
94aMVRLeazAsO+LPI2ye26c7hyPWYMCFP699sNu2ijB1VK9Bya9LAYHYh3K6
JXo3UtD9UqHf8djT6aduFvNT0NLtAMZE7M/JX5OjtlIQfc+43EdsydjXsuZC
FPS8xurFJ+ztLzWU/0pRUKRku2gaNuVKqm7zMQqyu/RrLhe7gsfdsdKGgpjb
zA5VYmd2cMUO2VFQUw89qsKOTnpby+hIQQ8cktWrse+rZ0tAVwoyPCqm/4vs
5yHxJ8OHgh4WM59qwH5BmMB30RRkapc11oZ979voza/vKWg817HlD7blM+eQ
lngKWr3pWNyOfXTP6yneFFyv+bFXHdg006pYr68URDOw2NqDrVujyHrnNwWJ
pwf+HcJWelt+0LcZz2N/TfIwtvh1Q4uPbRT0NcD5wQg2lcn2a38XBd35vX/L
GHaacoL1+XEK+lXorERgb/zEX6/CREUL+7qVZrCbn02HblagIsfJykOUdvy/
vK+nf1WRiu7apNaRfl7zS2ZQmYroHTyvU7Hhho+lWSpUdDKBEkKHHR90ceqs
DhWZMzgNM2A7RdVohFlSUdZ1uvOs2Fuy4ud3vqYirR2Rnhuw7c8GqbAEU5F3
5Q8KL3bNwiPfiVAq8ovluU/aQ8lMpCiSin4ObrPmwx4p2qRrkURF2/0PnNiE
nVvlERdbQkXLjR9+C2Bf6DE2lJiiotuHz5vuxOYyek1PP0NFJYfm8kkXV1Z/
bp+jopjeUUEhbPEvR9n9VqiIr7mrnfS0l1DhLAsdaiwW0NuN7buvT+L7Tjq0
Ss3aJopd6HRjxfQkHdq6fRVKYtuNxyQq6NKhMdFYX9JiFu1GvAZ0KHuw+A/p
51on036cpUPX4C17Kexzgv9d3XuZDnEmvI7Yiz1VMlW7cI8OCeqN/5XGFuW+
FxsYT4f260VRZLFZjBqOJH2kQ6UrOqqkR97tbShJpkO3yx54kf4s3Un9l0GH
yhzMOeSwlU6pmukV0aERlVM8B7H1X3Bt5WqjQ3c7wqmHsB+wx7z0YqdHKs9Y
/BSxLxosi0Vw0SMZdOsHadWwM/mZG+gRN+/tRdKsUizj/fz0qGZF9dIR7EBN
a01VEbzezVBGCTvR5xAjVRnH81OylbGbmavu3btFj0Ss/z2B5HyFPWVM7tAj
dg61ZNJOR48OAHt6dEzXoJH01ruf9Rjv0SOO1IjdCNu4J1Dcz5MenaFw5pLu
zjNpev+WHrV6RbYfwx69Q+yvq6BHmqFZ/1TJfl/ED6ZX0yNXIyW+4+S84y+G
B9XSo3RXnwOkpTsbWIyb6NGH5w9sSNtoZ3cOdNOjOJWOYdIzYu4vlufp0X3L
0no17LU/vMN79jAg69VEN3XshxVj3uqSDKjqMlsYaUpOqfi1fQxok8vBzHUH
3bNKlGVAntoTo6Spuj2DeyED4jtIf0YDm/576sD+cwxIs2xyhyb247RnT/SN
GVCf22F50gxRV8TszBjQyXr9U+t+sMUy4woDCviw5EqaUcG9X96WAckE/feH
NHOSbt+RZwzocNH1F1rY3qGSj419cVx5Opo0iw+DiOsrBkT4nc5et2X2pfw3
DKhsIbSHNKuQUC+MZUDmaicOamOzBxLdx7/hekPMGkhzu/h26hAMyITDffok
9pByevfFKQbUIyvCeIo8P2vNvXYzDEhJJH4TaftHu4beLOH+NAzkSbc9zZjo
ZGZENZNKDqRjQ9qoNkKMiKnMd4K0YpaYiJ8eI0r+F1Grg73RWUss+jQjolT+
+Et6XNFGPMOIESnM1Y+QjszP2dtiwojEmGMZdMl5lGofFLrOiFLWRA+Rrv1t
q/bZgxHVbqx9Q9pyKt+qNp0RlZ7tUdfD/uSl4vMpkxF19Afok57eXp7wNIcR
Sd6XMyb96ETdiGoBI1qUU7lNOvJt782cCkZ0WSA0kHSrGsud6G5GNPNSrZ20
dpiesz03E9rcZWSujx0g0xSix8uEzkMhK9JtP87nSm9iQvzUP7dJX5u4tDS0
lQkdohd3I/3kuIOriRgT8gnbHU66kAh1V1NmQjrCyU2kZVX7fARuMCG/qkxo
QJ6vJJ9A2VtMiJnR9QRpoU3/RZy6w4RsLORPkeYacM547MiEXMc9LpAe8eLu
nHiEn9fneZd0ZKWi3M+3TKih4EQcaX65rqN9EUyI77TWJ9K+bz011qKZUOwD
lXTSLta1pgcTmJDs+IYC0kbclj5RX5iQ5WOJpvV8Bq86nGuYkOPXM3SnsT2/
yg8H1jEh6uMkZtLLwu3/Un4zoTLJBQ7Sw9NirANtTKjKzJ6f9PegPFn9QSYk
5TwtRfp+26C3JIUZFT6UMiA9dPGo7J/9zCgolRZKujpcxbhIjhk9dW1/Rzqt
Vd0z7hAz0jYoiV6/X8+g2U6ZGTmedEkkzYWs7nNoMCOX2rc5pGWF/EuUzZkR
9WZ0E+kHHf0Gkb7MaCKai+MMtsXWUZcnr5jR5JIsN+kThhPvbwYyI1qRAS9p
nprFOYVQZqSR5yFAOuYb99u698yo/l6ECOnyt4f76L4xow/X2o+Q5rvwwv7K
KDOaYouxJK17/e+aEo0ZZR/Zdo20r/O+ZxsnmdGJ3S9vkGYLro4qmWVGXtLX
bUjTNXL+2kXHgpg30JxJT5zylegQYEHpUPY56apjLzsM1VhQ/EDPJ9LqF/+b
YdRmQQqaLamkS9x+sX/RY0FD8wVfSOfmcR/mM2FB7dOW30jHy/sF/LJjQTO3
BapIe0q+UlePYkFxef8NkjYnbGXt4ljQ3VcxI6QVM04LvvvEgpxus9HW61EW
mP6Xw4KEWNOmSRvrRURE1LOg0FZrqiH2AadPs7P0rMhoIl+ANKfyy+5dbKwo
KslpG+kh6p0qbR5WNLpXXJB0+DO56OjtrOgD7zVh0iwRX0+eOsiKch457CPd
8eNn7HtLVkRf1gFIa4VzTO+xZUViW9pVSGfb66gkurKiG7HfTpD2F27sTg5k
RYmWMjqk1dy7BLOLWdEr1yFj0ulnhW8p1rAitpht5qSFZCy/5bWyIlV3hUuk
FztGLxRNsCL52v3XSCcrzQVXCLKhgo8H7Em3mX/zU5ViQ9c2LDqQZvR85J1/
iA11PUpyJm1cze2UpsuGDOgaH5D2nmy8vdeEDZkpabuv59/09uqHa2wosvPz
I9JspuJGoR5sSNpX1Zu0vAft1MaXbMjjvf1T0hc/ZKj5hrGh00cDn6/3S4Py
Hhl4fU+MH+krbuc2XR9gQ/kfNwSTlrzUN5e5woa8Eo6GkZ5Qu91Gv4kd6T4C
70i7cHlGhKuwo0+gNIb0sSluj5Hz7GjfM90P6/NvCr18yJYdsXlnxZMOCP8s
URfJjuTEhD+R/hxqx+dew4747BhSSVe/kV+RWWZHbiUPMkiPBC4MdElwoOnv
b7NIM/vn1foZcaAnrFa5pAWLnxvv9OFASZrbv5E+OGU89CmXAy2wPyogrb17
n73SGAd6thhbRPqS/spaxQ5O1FThU7IeFwru1brHiVTRk9L1+2kHyqqaONGT
opFy0ry7h2hsR7iQafNCBWniTPhmjQguFH45uGp9HtNJXulUbrRdqrV63QF5
8zsucyM3v6Ya0kmRpQfHCrhRZpb/L9IZhlaH/3LyoKxsiVrSHH6LC9GABy3P
fFz35Z/Pc63u8KBsP9460qGHt1/siuBBgWGm6/6V8JH5bA0PSnQKW3eQzlB9
/xIPgqcr120yI/LOTmID0queXLdgzS32rvMbkBY3Xz3pzg/ZTtrPN6B/J/et
+0HmWuX13A1IuAyue3up2k6foQ1o6JLuuosHHz5n2M6LqPtN132V9euCmw4v
yl6wWvf/bbrhug==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999994\"\>", {29722., 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.5940679893258445`"}], "0.013854958940110837`", 
         RowBox[{"-", "115.05396704647993`"}], "8.35906516225736`*^-104"},
        {"T1", "13356.543470354898`", "67.97822685913168`", 
         "196.4826693410683`", "8.66611203496652`*^-126"},
        {"A2", 
         RowBox[{"-", "0.13139255201798877`"}], "0.013489191939038359`", 
         RowBox[{"-", "9.740579911071805`"}], "5.921635679076178`*^-16"},
        {"T2", "4173.457785711401`", "336.19673554654787`", 
         "12.413736792912934`", "1.3413736747824855`*^-21"},
        {"y0", "0.9956468689453378`", "0.0002862954880963458`", 
         "3477.6896959349815`", "2.6978485676636985`*^-244"}
       },
       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], {29722., 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 = 200 K\"", TextForm]], "InlineText"], 
      Text["T = 200 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 297220.}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.777615346763361*^9, {3.7776153924761825`*^9, 3.7776154441963754`*^9}, {
   3.777615569149969*^9, 3.777615588622642*^9}, 3.7776192736968985`*^9, 
   3.777619358448348*^9, 3.7776195775254946`*^9, 3.777619685576914*^9, 
   3.7776197264782596`*^9, {3.7776198013350644`*^9, 3.7776198202609453`*^9}, 
   3.777619908536155*^9, {3.7776307176437283`*^9, 3.777630744795802*^9}, {
   3.7776308176074057`*^9, 3.7776308561979027`*^9}, {3.777630888085287*^9, 
   3.7776309222079144`*^9}, 3.777630973049016*^9, 3.7776316098182793`*^9, 
   3.7776317261739883`*^9, 3.7776319703619165`*^9, 3.7776321048462477`*^9, 
   3.7776324321703253`*^9, 3.7778208370144267`*^9, 3.7778211742650213`*^9, {
   3.777883105571717*^9, 3.777883113704856*^9}, {3.7778834047782288`*^9, 
   3.7778834516281176`*^9}, {3.777883586953233*^9, 3.777883598100652*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV0gtMU2cUB/DyKA9FcYDAlIUCbmgQIbhhg1DPRR1OmDwChrG5gBtmwFQQ
GoYTg8wBG0skDqbiAlWQBXAQtokgUMtbBq4FOtpRwLbQ0tKW9xthU76zBG5y
c/PL+ec7J+d+DmcvhkTr02i0z1+9r7/kiYNmXkLLqvnoU+J4KM7ruxvfoUSz
4eoZ36FQJ3TaFQjRCJ5c+lVBDN/AcaEjhxUwgvXvoP7oFL971zA6B6a5Bxwu
lsmIpbkg5SaOprpI0Xfg8F7b8CqXAcwXwi3QXpOkiLF+Hyy9dcH5NCFxUAlY
JNb0s/z5xDvKgG1506dxaxsxowLC/px3aJ6sxfmqIFFrrZO8U0B8+3dgFnfd
zDMrOrJu22rY4VOc3GBeT8yrgU9SSgfbGe3EOXWQ71HiLkzjE2dxQcvc5RnH
FBILecCtb4ywU4mIv2qCec8o+2WhhNi9BfoNnU6p33hB/LIV9N3N/RqiZMQD
7fBRRuzhxGE5saADPtiWW24WMkIs7oSgwFPyzBsK4tnnEGmgcSsUK4ktBLBT
EOlsKh4lfrcbbmcXWDYoVMSRPWB9SbW7hq8m/qkX2Ptd7rmWjhH3CeHrQwHX
OpM0xIw+0Ilc1DFL6CQRgCqj5Hy2lrhHDAdFg7+sGuiIvfpBU3KrIigK/VAC
Prvjf4z5G713EPq4jjaHHMeJK4agoi5wxTgCbS+F9KuFKRZNaK0UjOh2Lf9M
obkyWJk7eTliDZ0nB1MfB3al6wRxwjAcYNkN6KLQISNwfBFOiM6hmQpIsxny
tUpHOylBEPpWd+B1tOUoHFsQ6oZ+RpuogIpQPln5A62vhpo7P2y58AitNwZm
6xcGTdfAaGl4ncsgersWuqqbjib1oO100HJMul/chnYbh7sPvmdypWi/Cbix
7Gkdykd7TAKrYSHT9jm6eRKma/bRywXEaaenwP8L/7L0IbR2CopszgdGaDH/
7TSc+1jm4KVGM2ZA1rt45fIE5htmNs2TdmYW1nO0SZKnzUFsboirCeZpD+ZA
YRabdWIO8wHzm+eZn4e1z1Kdd8oxX7QAwaxy1cGu///HIgzkZyY8xHl4BkvA
LnJKzsQ87/ESeDNMw95TEMOFZdDIO9qWsA7OK3A62W5WD/fJk68A3Wswug33
xeO8BAuFe5a7DPNRq/AsNZhZgv1hzxrsKwybfVOJefUaKLf1yeEpuupfcGM/
8ujsJWawaNTG/XOKadTr7pVC4kgzPSprj0h0H/tFsvWoD9cHwvwLPSpmkf/q
huF5/vqUbV1Om+wvYuljfSq7sXVLRgf6bQNq4z4ZeQbUxvvFoRtSCbG/xdUO
YL9kQ+qsY7z1l8PoMcNN53M+pVNj7/uNb2/F84T0zf1PGlHhVludFbXoJiPq
uia6SyjBvLcxZZVuX2eJ83GqjakC35S4e8+wn4cJVelcNtNdOnHkP4G+Snc=

       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwt13c4V28UAPDv18omSRqkzNCQkUTvuSkjiigrVEgqKjtNKUllRCGVlURU
yCxlU8je2Xt+r73H7976/XWfz3PO877nPe+593nuNoureufpKBTKAJVCIZ/x
tooWzevcUDis2ewUMJDtKhzQskgxBJX2KH1FWn8205nWlF+UC7D79J3FGa3+
7PIlushEiiv4VTEpaXL0ZSeXrt8QTfGCxUvdm3xjurNFZLdWv6EEA52jgmKg
aVt2edb40ffXQiAvj5Xn1bHWbFe1gvzEjpcQFfrgVBPWkl1ifDE1P+c1VNep
S1fINmcr5hiXOUEkDDF4Fnoo12e39r39HEp5D2Xy/BTxpN/ZyVIctuEZ70H6
kPfWwrHS7IfXXCSir8UCb4rk0wj5kuw9CxqRHzviwKnCTb2svCjbg4MWkJOT
ANoL31t2qeRk827acsARkqDj8IEdoT3h2XeydF86vyZs7Z65cvh59oC556zr
XBLAnGanjd+97O9vaV9uJSZDTqz6hMKrJ8h6Z670Q6EUOLvTY6tuegLKBGvB
l5R0eKrqJrzHNBfxa6bmGFmlA6X9UppOfB5yOcFgyf8zHfiHPeq1ZvLRXouo
98F+GUDJE2dd616EPtxv2xMk+BVCtDIc1a1KUWiRgWqg8ndwirtw/ohKNZor
f9erF/EdEkodbhYWVSODhikvHoYfkLDBoCr4eA1aNxBQ9qz0B0yU82poGtei
ogf9kho7c6CoctTJ+XQ9OhgjnKKWlQsdop/arTc0IztJLU8xWi4IMYtFuj1q
Rq8/ORgwCeWB0U6Xh7vmmtFCWu5c4f08EFk9eMG/5g9KKz6jckQrH7a7KjQl
3GhFuwZfFak2F8AXX63mUbUOZGaXHyzMXggMHv7SHs4d6On4kA39wUIIGvod
7fW2Aw3N72fLjyyEmwd7hUeXO1AMa6POoYtFUDtbUaeX0Im2SvM2wVwxpFIR
+8JYF5LuV/SvFvsJ5ta18Z283Ugxykzd6tRPWJrO2W+p2I30+N+neiX/hPR7
w5WKd7rRAwalgHLbX3DQ9+nkMcYeNNRyRsu0swQYYg8189L1opngB3Q0rlIw
6bDOExLqRfT6cZl3D5ZCeVPrrwaVXrTl14T421el8EPVmUfrei/SSfVkGDpV
BgcEEvvPDvaiFJ/4764lv2GhLur4uu99KEej0oll/jeU9fUxovo+9Jt+WuqV
eDn0yVYwieB9qM/tYOiPB+UgWf6DV0CoH220rnJhRBUgR0kV7bzTj1D4YvAv
40rIK+vINNwzgIqWfBx57CvhmtneYocjA0jbREjn9KNKuHUvv1rPZAAZrT/C
NJpWCcpSml5W9weQwxNfJ27eKgjYK3S5o3oARbtuO2FYXgX8hc1CBRcG0eRV
ViTVWwVn11T/2OY2iA7ZTEqvLlaBdarptM7jQdRpVMj8fkc1UG/mHhBKGESC
ShdzZh5Ug3IDh0bY6CAKXkrcHXSgBgJqzT1v2QyhvqmXApf0auAr+5OHgq5D
SGHUg+3gxRqwrfjwNcRzCNW2nuzvDaqBSK4pxw1RQ4g7ey5MfqIGNjEH45pN
Q+jxPeCsi62FD5eSDVphGDW57ViKza4FhgG/97LHhpGEA8/QrfpaSFl8+8DG
eBgVWfQUijDUgdG4mf5V+2FEf/jRbaczdeB3fXHjYvgwusVUObKOrx7Sajwr
DWaH0dUnZ0r17jeA1RcBK61nI0hZQIeV73UDLFWeE68KHUHMnw9qNqU0AJN1
B9eB6BEUUS1QfKavAVLdo19mpY2gyo0tebaajXDsSZ/x3eYRtCfW6OtDribY
sJ6zQk1gFC3t15jXlGiC7f4aD2VFR9HP0n2KHFgTdJ9Q3cKycxSdxfnSAh2a
oLM/buqq8ih6plCXFFHXBPeeSL+WNRlFEwUn4r6+agbZvQftSp6Noh8G2MDt
lGZ4L7/f3DJkFD0e2COO/W6G20l9fINho2g7O/e74pVmkFzKyfkWP4r09csj
as/9gQtBeYv3C0ZRSufREJp4C4gLS0qWT4wid0elhiRogcaI4ETtuVGkzSjJ
52zcAtzLTMrflkdRjwTL88XHLdDf83PLRWYaWn+t2I+Z1gISE8X0HAI05LKi
6rU9pRXiZYWiX6nSUJLU3syDpa2wpX2XZ6c6DY0YCQ2bdLXC9cHGis3aNGTx
Zel4IHcb3FaVF7pykoaO26TyMdi1gevNNxw+VjQkWi0W0yvaDk6UEI5yDxo6
u8rbSFVph6fJWtE2D2koVJqeVfBkO9hPNbnOe9MQt1e7nYFHO4Suj0Yr/jS0
dCBEvritHXbm9EoEh9HQUPUDi1qtDpjNU5TbkkFDjwZv3rQw7AD3O1POYt+I
/SiOz8csOuBpvfttiR/EfjvPFbHf6IDt9Sf28RbQUL2XiuSR2A7Q/u6S+bSC
hnKVZ8ZTGTqhQAud5O2loZCYC/eCv3eCHJOhJyMbjqZYug4JlHSCZvuTj2Yc
ONK1M2V4W98JW2QY5z9x4YhZ7oTXJ7wTsPbdR1V4cXQ9V8mncFsXSPZcXGQV
wJFhC8fLSc8uqIxT4Lq5E0fJ6JGJW0AXdKjcP3dlN44439JtWQ3rguTpXaun
ZXBUdHE2jDWjC6Q7Lp8Rk8eRwmxH9LahLjjIfviWmzKO+HhSEnWOd8PokkqN
2FEcOTjvcqgz6QYZ9efaRVo4Km+MlT19oRuGPyqtOXcMRw/D36RZu3dD5YcJ
10e6OJqW9sq6ndwNjpG+eREGOKpVN/kZz9cD/NImRnQWONoTX+stI9wD0rle
600tcfSUU0crfXcPZOw805FkhaPDdarleRo94JMh9vvEBRylWOysbbrRAxaW
tw5a2eIo8DalY017D1zh3DDe4oyjk7tiJPWHeyBJ5aXTrAuOeNu1nMNme8Cx
pPo353UcPYdgVnnuXthMTRGVu4GjIPpd8hZYL2Sb3bA0uYOjEO/Tj7Pe9kLa
iKnXloc4MlKi1q1J7AUe5/sOzF442jgcs1U/qxeWPhzMHCccqj2RMljbCxa9
6a5Z3jh6xeXdzsfUBzdcW7xkfXAU9iJNzt6mD0peZu34FIgjczXTu1lOfaBw
InGX43McbZ2llqy51wcFeoMr8i9wFGF07EzYyz4o22C3KTUIR5Gbe7xLS/pA
Ky946OVLHEVHrm0X3dkPW2/rCdCH48hKL32H/f5+UFrHGPuesAi9mVPWkX5I
eCFz+mgEjt5ZxbLom/fD5o/suo8jcRQjjuTc/fqBs4iLYfotjuI+2no3j/fD
Ot32frdYHAklPDumt9wPY10gskA45EPa2hLmAaBpl7C4xeHo0XtKaObWAXhx
JLLN4QOOrCOffwg5NgBvn1iuNUwg9n+RVWoQNwBqwZI+PZ9x9Dqw0688ZQCG
46umdROJ+whgOqmWMwCK7Z+UswjT++m2yDcQ8Sohe78kHHU96hnhZRyEyaup
xRJfiH7cYuesOTsI0JAZuyMNR/w3ZaqP2hJxfI2OJ2F/N4OgPNdBYLl/jtJB
+K5LhGCy7yC8YrPzDUgn+n1NbvezrEGotux+M5KBoy1Wpro6/ENQ7JAS7fKN
OJ9WQkBpxRBQ16Cu8WxinoNOriq1DAG+8LtLMQdHDF1Llz8MDIHO+4z1dwnb
Xz92xJs6DILbhzaz5OLo6DvarJrsMDh4qg2uy8PR4soes7ygYfgWyHaVqQBH
e482/ZJ5OwyUjqthGGGbF/cUIj8PQ1OF3fZbhGulqrncfw7DJtvJ3TjhBCPH
PJWFYUhr2BD0u5CoPzlVPNNsBA5mfhexKybmd9nsucSlERg6GnsjjHCJBhM1
xGUEJONSsQrC+9oNml38RqDlefyO3T9xxM0+91QudwSUJUR8BgjnnVea+Cwy
Cg0SYVOHSnA0l9hlvlVmFMKkanhtCe9aelzqqzIKk9smvz8n/CrgT7SdwSh8
zdBP7CHslH3LUOrRKOxeNVO6W4oj0Y3ZWTHDoyBnG7AcXoYjnuS+qEOzo+DK
10zNIUzR4vRuo6PB7Wrfz+2EW26ZneLbRIPuxF5Wwd84CuhYHPXUoME5Wa3m
IMKUWMWt59/RoPk19tqtHEc0OMtITaJBzquu8OeE/zR5Db/OooGz83WTz4TT
2BrSa2towNIYNNtN2O6qs+5hOhzW3U7v06zAUbNC8j3hMzh4BOQrsVTi6GdF
04XsSzhImHYxChFOtaEeP+2CAyieDVQg7B+quynQB4dELp45C8LqK7Rkuiwc
7s1vWsgg3Ny1fuIa+xhcMoq4aFJFxD/oCeteHANFiadDLtU4uiaw1Ey5Ogb1
7R41DwmH+r8LSHIagwWzYwFBhEdc5qjr3MeA+mNzYCphf9WwjrqgMXhxzP/j
OOHGlsE3pwvGQHdfcaRFDY6ouoGn2EvG4FkKvvEaYcl8ZY7vFWNw74zVlduE
b8X53RL8Mwb7muM/BhMWcpE/3Tk+Bi06lX4lhG247vFf2DoO/LsO7ZGsxdEz
D8nKDaLjoLH/erA84a/TNV4/JcehKtapAwizt4jN7lAYhwZzykZDwomxZXUj
2uOQ8ntC2oPwHMYf6HBjHO7cF91eQ/iR02eOO3WESz/usKgj5s039OWHP+Pg
Hd3IdJlwyHtP0YbOcahMeVTiSDiu+bTKHto4pMW8ZvIkXALMdl1MEyDkaGkc
Q5id41yZmuIEWPkZvOsh/FxM28jx4ATwnrzCNkJ4C+zrCT88AUy+mOkk4Z2O
HEtzuhMQhDizqfU4Ot6UKRV/cQKWowv9BAj7v+N5wvVqAhQjPvmdIMyfvcyn
HDkBPW5fsgwJRzQORNm8n4AHBbMNZoST2LK/5n6ZgKj9rM0XCVfbXx5yLJsA
2bzitfcI8x4s0GxcnoBqZku3BMKvDT/XMTBMgtT29ZFJhEXsQ8/JsE5CW/t0
Zhph+ehrbo/5JoG6ezQ7h7ABq0Cc8u5JEKapbKslHFLvzBx5dhKe7kWmc4SX
goSqLK0ngTHm9tklwmcNS1+K2U7CVWzamNKAI4lGIakE10m4rk2/k5lwRlPp
sXTfSeC8kmSwgXBDy7bA31mTYMzNXylLWOlN2Wn/vElwq6uW20c4zMxVRP/n
JATmO/grEbZuK0ttrCHqeZYvjRGeaXdt7B4i6l8+vHSMMF/3b4EF/inQjmti
tSZ84+31vizBKRAdrhiwIdxmKfz5rsgU3MV5sy8Tjum5Dox7pkA8uPWkPWGF
PmFLbvUpOPrrjfgtwgaDbrFizlPAzVZxw5/wC1xUVr9qCvjXXj2VQtjIgKfy
WcMU5LWs80kjvOX7im1l6xRc9VT7kUE46nFDzLGhKXghFcHxnfAnUe9NGvTT
wCwrYlFI+OfpEaqK/DRcoOSM1xJ+ktcYdvPANHAbhZTUEz6+o/DAV2waXLbz
hDUSrpt547zv+DSEnZCQbyHc9UxnUObCNNA2eIt2E14sTq4UezkN5ofaNo8R
/rEr3O58+DRMimS/Gyfs8eIJa/S7aVBnEZeaJMxsaXV4W/I0OHzJlpghzLuy
PmNz6TRwXXAdWyS8S84tnHt5GhRrI7KYGnE0HnpeWYd+BtxNvjIwE06h6jX5
sMzA702bNFkIH6iQXMfGNwPOtxqK2AhrXGp5yLh7Bv4Y2wdzEz4Xga4snJ0B
Svzii42E6z/mVmy+MAMOjSeiNhHW/qYqo2I3AyKSH+I3E1aoV5+66zYDJpr3
UwUIs7Pr3mAMmAE8NCdmG+EM17MPufNnINjEimkH4V2eXf0yv2bAeDmuj/Tb
ACtN/YoZcHp0tUCSsO9HG/agPzMwVh50XZqwZfe1gM1TMxAzy1+wmzCnzr0w
MdFZOFyUNypP+IEpPUVDahaaj8vFKRCev+h57qLMLHxu8bXYR7jngbdIgsos
vKnmq1AknPn12QcZg1kIplvvf4CwlVhUmrLXLFxfjk8Dws2yIvzmPrMgGHtK
HyOsg8W43Q2chRUZoJFWMv2gnBc+C78KhwVVCXMFJOepZ8zCPlZR2yOEvy7n
lesNzkKVudxXTcJsyQx2rPgsqFHN5I4SNrVWY8ubmoV6U/hIeqX8l7oMZQ4q
fhx+pUVYNaIyh2vDHDxKj7A5RrjsUFty2eE5aL1hV6pLWGB264kHR+fAKKJg
7wnCV+LP4Qd05+BrKPNL0ty8vVLxp+fA0s3CQo/wyd7haG+HOTgpljCgT7jV
az5ILWIOXviOFxqQ96F8QH7l3RyMG5oJGBJ2H7tVkxo/B23GHY6ktxtTuEXT
5+BYorygEWFryTXe9OVzcKrjjI0xYVoZ782cxTni//Vz7WnCFJ49Z5QM50H3
xMLms4QTbb9U2ZnNQ7Lt7zOkzxYrHI60nIdz31uiSOfeUtnBfG0e1v7OEDtH
2KP/6GTdo3moH4wStSDM+P28l/3XeYhT56CzIpy2YXA+OmcexBXClUhbO9ja
NhbNg0SDjwPpInHHE6hmHti9H3WQfhTgvpljZB6MxkRTzxNmtXn1OVZgAcSP
ehy6QN5XnuD2FuEFyBNOsid9WSDqOZfkAkz9NIwgXVYd6+aisABXgniWSPuo
pKke1lkAZ0mbjzZkv9dVNbS7L4B+Vu3cRcI5diePrvNagGDV3UKXCF/72ZCl
5rMA5/fwq5Ouut0W+fHlAqQbhAaSDhgYvnwzeQHw3x7ilwmv/8FE2dCzAPQB
YwdsCUdla37uGFyAV3eCTEjvyn1q/gFfAJGKweuk1Qp4vqssLoAp7+sU0i4l
gjeseBbh56yahB35/tYrTCXBIhiy2FGvELZodHt7U20ROCO0N5OmNWXpHdFe
BFu3PjnSTK2HkhoNF4GjS+sCaYXu41dWryzCt7Dxn6SDcOsB7TeLMLhT1f0q
OR/jccF8bxeBvXVTEOlPEyNqHbGLgCWkx5MumnZ455iyCMvCqvWkZxbvWISW
LkLV5WSJa4QNmINb+ucXoSnNKZ/0hm3FlR4GS2B0VrvWnjDdL62TP02XQO2t
RC9p2rXKBg5LIv6xZpp0QU5TW8jVJeA6GcLnQNjh7MjIp0dLIKIyfIp0Wfha
lj9fl+DjgHQZ6XT1oKdCuUvA7ynfTDoK38RtXUysv2P9AGk3JLJhvGYJ5s+f
pnckLNauILpmdAnir3ErknYXNMVkty6D7cM7oaQvF3UUXBddhocV0jGkDa6c
1/ghtQwVKxlJpHf+uKKjqbgMjG9sf5JuNrtndubEMiQ6aU2RlnsT4/bk/jL4
DSqqORHeekRqudJ7GdCfcR3SrKOf3fn8l+HbJV9j0p3KmV6Rr5ch9KOjLWnf
ltIX6anLsDNk1p/0wObxpO7+ZahPlagj/fAS2wIbbRm6/mxqJS2cKXpIbmoZ
5pRmekibG5hUP6CsQErsxSnStf75E6IbV2BW8SiPMznPjEGyNkdXAAsWP0ra
/GTiTX/dFWAzL9ElvRhVkp9hsALKW00MSSvAqj6L5Qocu4RZkU64YeP04eYK
tEzK3SYdgiuljiSsQOa1lvi/+QdPLfN+WQEd4QtJpGueXj2ikrkCopOdaaQ5
JaPrfApXYF9EbC7pB1YcM7vaVkCG7W496WtN7Qr2XKsQd955+W++xMKdl+tX
QU+Gj86FcLwLb3Hu5lXIzIhjIt23TtOQR2IVHAPiuEibHk92/QKrUHeXextp
9fwHGdP2qyB4JhQjnZNhrpLiugppv+SPkFb6pJjncHsV5n2KNUhLvxwpxR+t
wp3H5Tqkua+ebB8MJ7zezox08yYRprbfRD0fqK6k9blXHr+uWQXjfZw3SJcx
NnKdbloF5dc8t0lnjz3Z2NizCu8P098nHV00KV29uAr1Vg99Se/L7NzRzUvB
jleJRpOe+nLcNm8DBZN7lRlDOvHTt0+RmygYs7taHGnJ6BeyZ4UoGFeP1ifS
W/w0VVqlKBgj55oM0pTzSboNhygYD8/xEtIl3PdcS69RsFAWvyHSUQmvKxld
KdhlNi8a6ZsaGTvgNgU7I2Uz8ff87vifFG8K5lDdP0/aBzeDsCgKVuI4tMaV
/D4/cXvZGEvBpvbuZyN9UPzFBM9nCibc4cRJmmZeFu31jYL1ZabwktYtV2Kx
r6VgKY3nhEhLXDKwiG+mYDVewsKkqUwO33o7KJi6Xp0o6WSVODuTUQoW/Y5V
ijTvxw3VqkxU7G5ZoRzpEQ1ZqTvsVCx8eO0+0oU9xx9k8FCx7lLd/aRdtjxU
2LmVioWuvlch3fBkKpRPkYq1CRccIQ1r44vSValYiuNxTdKxQecmjHSomBXj
F23S1yPLNV9ZUzFu8bX6pDvEPJ2VHajY/g8cBqQ1Eg5Ett6mYlMGQ0akN6bH
zm19QcU+2Gqak/ZQPiOSG0HFEvTKz5Ieyl2va5FAxRzMFC1Jfy3zeB+dT8Xe
Hs+5QPp0l6nBjgkiviXrKukpL6GcGWY6bFPzTkfSvjt7dhRspcNcWYxdSIvX
vA98pkCHteioupHOuX552fwYHTbVNn6TtLHg7gvSVnQYw52Ld0hP5E9Uzt+g
w+wDPrmTFuW6Ef08lg5rmk58QFrPh3MTZzMdljNk9Ij0Hba3fl5s9Bh14vwT
0h+89zFSVeix4sRxn7/9XFN248YVeuyBz1p/0sP2uExVCT1We044kPTqH55B
cXEGzHdB/wXpNQm6PQeeMGDrPq0Gkea65duugzNgx9QlQkgrpYuJ+J9gxIwa
Jv7aeuKHTeUXRmwb5v6StParE25OXEwYh1XrX8se7vHmv8yEvaUIhZLm1H/W
5lbOhL1Y1PvrgXMHZf/IrMGk7Fz++k5br36E7xrMIMnnr9ed9nE6P7wGi1MN
++uyQ35tBmrMmEh73F97Sj7T0Ihkxkplkv967/WPMzP0LFjwi4y/biv8Ff3O
mgUrYvn+12r3OgQz8liw/Nnsv/6kPBtSIsiK6XDl/TWruYRhqAcrZhWb/9fn
7xqvv9THip0uKPjrW5ye4W9U2TDPO4V/HfgmcUdVBBs2QFf017+DFZb3LLFh
7mf+eU1AVqW/ITv2K/Kf5SdMBz5+Zcee1/6zpd7yaokABzY6+8/aQiHdWjc4
MDGu4n/5tL3FZfUcWMrWf+bZPkBjPcCJ6Uv/M37qDZ9mOCe2Tv6fx6YSvL5Q
uTC2A/87MGtOwIoLU0D/nBBRJD+SzYVNYf+cYmCzv5WDGxtS/Wd2/4X5KMSN
XTzyz1a/nn61sefGnNT+OXT/lnMd4dyYsPo/V8TFrzEq58bC/3eQzkB17yI3
Nvu/zaZFwhx3rMXkNf5ZsPwKW4fJWuz8/26Pybiu/XQt9vB/30lbLb30dS32
+n9vKVLb6j2wFkv433n97k8ZtvBgGf/7Asu3+bs6PFju//4Po2/dIw==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999994\"\>", {19822., 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.591294884716965`"}], "0.0801218592981042`", 
         RowBox[{"-", "19.860933066921692`"}], "1.3745662682615018`*^-35"},
        {"T1", "8748.908098603219`", "138.35162477520475`", 
         "63.236757160015586`", "1.915770520074435`*^-79"},
        {"A2", 
         RowBox[{"-", "0.1717583059172554`"}], "0.07969941315480762`", 
         RowBox[{"-", "2.155076168297917`"}], "0.03368366632812164`"},
        {"T2", "4601.00742966923`", "777.9609517378279`", 
         "5.914188134239114`", "5.231971098820478`*^-8"},
        {"y0", "0.9951742194191645`", "0.00031390508587568564`", 
         "3170.3029488769694`", "1.7743571256398266`*^-240"}
       },
       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], {19822., 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 = 225 K\"", TextForm]], "InlineText"], 
      Text["T = 225 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 198220.}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.777615346763361*^9, {3.7776153924761825`*^9, 3.7776154441963754`*^9}, {
   3.777615569149969*^9, 3.777615588622642*^9}, 3.7776192736968985`*^9, 
   3.777619358448348*^9, 3.7776195775254946`*^9, 3.777619685576914*^9, 
   3.7776197264782596`*^9, {3.7776198013350644`*^9, 3.7776198202609453`*^9}, 
   3.777619908536155*^9, {3.7776307176437283`*^9, 3.777630744795802*^9}, {
   3.7776308176074057`*^9, 3.7776308561979027`*^9}, {3.777630888085287*^9, 
   3.7776309222079144`*^9}, 3.777630973049016*^9, 3.7776316098182793`*^9, 
   3.7776317261739883`*^9, 3.7776319703619165`*^9, 3.7776321048462477`*^9, 
   3.7776324321703253`*^9, 3.7778208370144267`*^9, 3.7778211742650213`*^9, {
   3.777883105571717*^9, 3.777883113704856*^9}, {3.7778834047782288`*^9, 
   3.7778834516281176`*^9}, {3.777883586953233*^9, 3.777883598320822*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV0g1M1GUcB/D/IpaBXZovGEQCsiZrSKJjVJZfENqp4Ii0VSsaZgjBgCCB
AvQSMF6UI4GwMYk4EOEGSYatIDhwIILgHS+CB+jdcRwvx8txvArCRTw/tu6/
3W6f/b/P7/k9v+dvezLM98tnOI47tfr77589wSjovszf56upXaMgFP7lJpuX
rMmSCCRv6RFtCBpk5mIglaWv/JWtJp+Dm2ZFvyVygFmRgJijizzFJhWzTQrK
5uxDK9IVzBDCccqu9Yfj/fQ+EwvFQTsFYQ+ZN+Wg1uTWd2a+XczhuUCeNvrn
Vinl83E2r7m07asm6q8A5xeE8+9NVDNfKYIowClaZRAxX7+O3bWbPoo1ER1c
s06MXPHR4JzoKubw38CrsAv3m2pkzqrAS/stW8TuUuaLN+Gy1nAnc34l4q14
rt9k9DBL/8T25JM7W0R9zK/8DedXbf20lgrmxGoMeBt8raRK5g214N66yf/+
1ABzpwRtLdteNlWqmZ3rUWn43c7RR8Ocdxs7CgsvCT8dYt7RgHrtQWHnj8PU
TyNm2mIW+ZkjzC5NsDjS6xgZPMosv4v7afYdde9q6Twt8OdGXaJ1ZK9WZOjf
yfW5OMZseR93lIGyPfPkWCkeLP+kqEkbp3nJEJ8/a7JLRw5px26B8sO+YxPM
YR3w9bid2JBK/rYTJnl3XRwekVO74HFkm7JqjFzwAMk39vIPW00y13Uj0vTE
0ow7eagH/NnmwvcjyFvlsCtK1X0WReb34peE5zQ9eeSEPkg9JIONJeSGfkg+
dnzb7hqZ9xjJuVeDnO6RnRRw9La4sNDMLJArcC8x6pBFFzlFifO2CWZJ3ZQ/
oILcOa4m4BFZr4JnSLaX+wDlxQMwn9lfc3yEHKiGa41Qpn9IeYdBrHg6HTJV
kMcHcaOoXG49TPk/NCh9PSs2cpp8bghKpw8ygssof2wYlzdur3ToJduMIMJF
97mig/KzI/DOFwQOzZPbRhHgXvVr2ijlxVrwS+zicvrJaWPg7a0fL1nvP3Qc
o9YvBpmryCcmjM7DYRJfmO5Z3ZJsocPV+HTOnupLhDrEFQeK5bQeZlOY7rw1
byajehemjOs/q4csttPp9CTlE/Vw9jgTwR+keqbTRv1xKdMo1/Zb72pav88Z
o/lLsmbg0//ClQN6qmc9a1RPUDyL0Khr/7xhIO+bg1o087z/OOXr5ozmK/GZ
R0h1F+fymPZTzcOPJ03S0PeBMwswrD303uyJ8Xzzn6As0FbcRPUFrotYaNmq
/kRL69sXjdYLQpegea0iruoOrd/41Hi+pU+N7pfzWja+74lldM9OpG9WkzNX
kNWo+dp+ida/aYDFcFBcSTvtrzRAFXBabk7fW74n55Z9WKQ+u36+XM7t//Oz
0XNudRluSfWr/f8LNBZj7Q==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJxF13c8V98bAHArSURClJGMQoNCJZzn0xBJRFYyEypCGVHSMELJygrZKyKj
kGyZ2ZvsPT7XJql+99b31e+v+3q/7nnd53nOc8+59/AZW6ldp6KgoCinpKAg
rm8tjht373BERYGKlc1pE0UO/P69Pyi04LD/eMr51PEiWoNv2dUUZhCrUxLj
nj5WVL9BFZ1B4QDvvY2zpstGijJr2XbGUXjAbrUBgRm+wSKa/ny6jwOe0N/3
qJrqzECR1oLBenXxcyDTnXbVau0resjQRnYAP/j1waSkyrWnSOAob3MERTCk
ZDrJpkBbUX3B/PlE6xAYulmJiktaihzky8syBkIhhXGTbb1ic1GNzo2csuJw
SPVLoQzurS86XqxTZwvREKeg+sWSvrzo21hsehhFIjyyqti8jcO2KFOU0eJN
biKAX4RqWJYncre23x9nnQQUewOV3cwikdi6QnTaQDIYJnRJZAlkoCeMZP/i
4lR4wLJOlhUpRlpqWioV99Kg93y/szJnKToQXLy1RuwdhLPFVXn+LkNtewJc
W6LS4ThXT+zhzErEuovr5F14Dxd+XQkPzK5HDwtUQ+3C38PIK2fufLFGNKHv
tuqw9h7kXeN36lE3oc+x5KwHGZlw1fBHz9OIZmR6sOSA+55soNsUmymR2Iby
wJQnlOIj9M5Zpe3k6UEcijnF2iYfwauEqb6rrgfZX6K5xlH1Ee48tqI/f68X
HTGOSQx+mQsZ467SDhXfUMrTPrEgnnxIjTlx2Ih7ANE9P9ii8SQfrl4qHbpi
PoBMAx/YsY3lQ5NXcPnk+wG0N35XfmDaJ2BNvHl0GAZR2BfN0wEyn8FdNCuf
UmUIrdXHj6pFfYa9xXemjF8OIc2OJQ8WmkJolPq0/KJ+CO2Y8K/zqy2EXfHP
HuooDqMvruMiCgeLIcz8Zaup+AiSS+DPli8ogbBYAWfKxlFkKaLkJkQuARr9
Osz39ygKf3dHk3ZPKVB8Oc8ge2gMrX8oWat4WgqsG87eG8/G0IdKA9mzSmXg
zhc98VxiHI0qeWwTdC4DHtIOX3u9ccTa+K6fJr0MzHb7qkS4jaM7nT8fl7OU
A0hmt2S0jKNDk6+/nO4uh+uwnVfdbALpWZYF8zNUgDHlWxlPrwn0fH7KnFqu
AraH2HJzpE2gqe8ntpZFV4Bvzu7CC3MTKIG+U+XUjS9QXwbiplaTiPcAaxes
VYJSgS59o9oUOjB+3LdZqArK/YeOS92aQsdj9M6ZaFRByCbe92JPp5AaR2KO
R2YV6DQ/pZx6P4VcaaT96y2qwah4uTOKfhr5FekrGr6uBrU4SqVe3mkU6fSU
YqG6GvqySo7mS0yjj3N1t9n21QB3qdbkNb1pNNVroHR1sAZmXFxqwlKm0Uqw
KxWZqRY8vMYZ2T9PI2r15DwXuVowpHZlhIZpxFW9sC/2dS28rXIcil+YRio5
bjRTGnVw4W7hZJ/kDMp+8fazQ81XOLXHloM/fQYVKzTabvn+Feh0+h8KfZ5B
X6mXRV/vq4ffurecZmpm0JijXFihaz3skeC2KB+dQZymTfabUAPsqtjRVMwx
i4T4Vg4GWzaALpdR2LLALDrSu2t0f3gD5LM+WF0Sm0UX1EzUL3xvgN3NOzm1
FGYRevMjuFqnEWQ8RGtKbGfRl40Xd1lsGiFuWmCPiQs+/soeFd1njcBhf3W9
w3MWabOdpZ390AgH3ZNvHYucRXe8fWyZWZuAc6Pw61T5LIpz4LukVd8Eblce
b6mgJ6NFK3okOtoEfnM3d2awkNEp88UDv380wU9Z8jnHXWQ0qF1BlyjcDMnP
0jSShMmIR/pG8YprM2Sotzk/kycjyyNq72peN4Mh63kGW2UyKhA5GR6Z2Qzn
OTfoTl0moyu7Ge/JDzQDp6bnOQ8jMgreyDgcdLIF+Luenyx3IqOxpVDum2ot
sLa9Pq3xERlJzT7ZKnejBVpkOJTL3Mmo9dvl8dGgFuBbvFN31Z+MmIvWIiUX
WqD9k4+TRRIZeT2GbW1JrSCnOySt2UhGXY7CG0lFrVDGXhS43EpG+++wTD1o
bwVmJ58Tj7vI6IvxSIUATRv8kIJs/SEyoj7zzNnWoA2a+4QvnVwkIzUZm1sK
9m3wlGbv3NlVMoqRuKLD9aINehlaNNEPMgLBA5Ll+W0QFtAT9ZsKQw9oG2d2
sLfDak745OftGKr9lds9fqAdvrjc9JNnw9Cu1eiqT6fbwepg44FiDgzljd+N
u2bTDic+RMp58GJopWrn1ay6drC5axh46wCGrLwNatWedsCcttl00WkMyXCr
0LOHd4DEyQNNafIYokuXU+zK7gCFzTESPooYimrmrjQY64CTdg6W+1Qw1MjZ
W2qh2Am1lrJSpToYCn9bSylm3Am7fhyLPn8VQ+ayn2DRqRNuthw2qNTHEIVR
WKFjaicIAcXbyGsYEkvSzndn6gIBjuQDNRYY2jih8F1xfxf4dYoOrt/GUFXt
seOMpC4QUqZ6yGeDIUOM/UPAHdyHL4pcssOQn1Tb+6i2LgjiNDuCnDG0UH4p
Of91Nxxy1At28sZQoSZpwjm7G6b1DWa5X2DIa0JsH+lrN3Cxmebm+WBoLwNz
fOWvbli/u/N4jx+G1NXro1qNeoCL8qlbdTCG9ox+7g926gGhzdmHJUIxNGOf
xqMb0APwQutySBiGXMOehw+W98AJzzxX5QgMZQ+eDyHv64UT4Xopt2Mw9Oiu
dMd76IUjuz0uJ8Vi6MImEXY7nV54ncCi2xuHoZH9WwJ/ePXC/qLmkaOJGGKz
rnxJR+6Fhlf58bFvMWT/67TH3uxvIMfZfzYsC0PvRY/kydV+g4+hD03tsvF8
tPdMXxn6Bs9DPnVdyMGQcdbGxQDmPvAKZlqd+4Chi+Y57DSWfZB52eUjUz6G
PF/FKuxx7QNpJy3OBtzlpX5OMq/7oEhx71nvTxiS5r7dZ1vdB/fSfcXXCzAk
2CyUMCrYDxfytjRnFeHz/5u1k1K2H4as9b9fKcZQ2AFqep7L/aBu0aL2Gzez
R7+l5pN+OKzAX4dK8X6eDJGs7OuHr4fUuaPLMTTV7GrcqjQA+wR+lZKrMPRs
8v59Y60BMFS3OHe7Go9HcTdwzngAvEu0k6ZxGx40+sLgNABMDecEBmow1O4h
K3I2aQB+f5fZyKjDkG2kxOmWrAE4dtFRb89XDG3PEb1qVDQAh395DbzAfWGI
08e5fQA22wpaXKvHUInMynwOzSCM5HrZfG/AkL76LP0Z5kGotS/Kv9KI53tj
hL959yBYd2gY5+OWCm7WIB8ZhDecfhO2TRhKnX+XJ2Q0CM5I2KejGUMhCWaP
gz8PAkfsapV2G4aWtgyd4q4ZBAFvJtFk3KqWV2li2wfBXvrZzjXcdBKXPN5h
g9DgH5Pi146heyXSLyr4hiD32IBVdgeGWgVyLiodGgJ1LYXe77jFnh1mbpIe
gnOedLRynRiauCgQ0Ks+BBri40mluLV6GUMX3YbAkCm8+nMXhjLRsyuO/kPw
dICu6DvubbFUXL8jh4B+pCFCohtDX26sRtLnDsHc7gDRRNxSqwNxfFNDwBo/
y/SoB0PsLNkZKheH4YCG9hLNNwzdsTt0p+3KMJAkOd+J467vTDqqazYMjP6b
QvRwu7+J+GD6aBi2uZttzcK9fMCjwDlzGGzu5bdd7sPr96V8SF00DJHPi+3v
405dvI88a4dhtVjBJBq3Sb51aeDIMHi5dIlP4249d6XqLfsIUIf7ku378frf
tnqK849AelWyUgju59tUlD4eHoGmLYWMebjPtJ2uL1UYAfpQhro13NnGB1u7
nEZAcHH4gc0AhgKcKQY2948Am2PpiOIghi4fShBRnx6BQ227NYxxs/Yr2UWu
jsCS26qGE+5ACKaXZB4F/kre7cm4g6gPSRqTRoGbHB9DOYQhzewWlzTlUXCq
qKhjx81+3bFmTWcUZD5oB4niDv5SbvDyziiIHsncdhl3iKeuV0HsKIRE3y+N
wq0tTdm2OWMU9h7JYc/CzTmdwKteMAp3Zi7trMAddmEhe7J1FKRo4/gncL9m
8uxnpx0DwdJCX5FhDEW++iBhYz4GunO5E9G49eWvuhTYjgF/2VRiOm7eVcqa
zY/HQDrIbP9n3FHaygaRoWNAeS/HpgN39O4Rz9oafLxsxuktI/h+UefZyt4x
Bu4slqJsuPc6H+Y1Hh6DppKe3j24Y/qcstd+jMFLmeSoY7jjorf3Cx4cB/Hw
rfinDe+f2kdhmxPjsHj0IZslbgFqPduCs+OgcmpS0gF3vEnSFnX9ccji+j3j
hTthH5J49HIczg1lnc/AnZxm4dk9Pw6UK7MWi7j3pPopq/0ch85fMXHruENS
PmyvoZsA6W8RnylH8f0ikSIsj3cCJqVvv2LCbRodmBKiPAEij0lTwrj73uTd
ZtaZgJqVjRNiuDUj+448M5kAk6mu21K4z77e/8nh/gQsrhd5nsIt8KqgVjN5
AsqLFX11cIcHDL6sz56AraOibAa4Wf1pL8sXT4Cb8MsnJripX6r2SnZMwICn
GYcV7qFnIzOsmyah/cyk9FPcUQ8YtrUYTgKtqGlKIm6O++LN5y0mQbyzZugt
bl9HzaBSh0loFD++JQO3i30UT6bPJOiF6PHl4ta3ljjsVzAJT4cH3Stxt9/W
WaSrmoST7bHHanFftHz48VHLJFCNp3fW45a9WYWspyZhd0PGTBtuLpOrqioc
U7DLwujaMO5A48eslfxTcH3rs4gx3AxGCZ1yh6dAKW++ehL3D705w0PyUxBz
wmEdw92t5WrDaDsFDJtti3/gDlFK9a9tmALTdNdt28fw9R90+bd07xSoPNn+
aQdumqGNWykTU2AbqaDLjtvmnvJZT8ppkJMPcdiN+3w8eVX+6DS0r30QFMT9
aC7I5AOaBvr9wXb7cH84iZoEL0wDy96v+cK49za/TKG5Pg3cer8ED+H+8UtM
rzRoGiYco1ylcB8531UtHjsN91cMXI/jNn/1WCo6fRrmv405SeNuFW1melQ1
DWwXly7I4U7Vvlsquz4N5YfcPM/i1s/M2ZenNwNObaNuargDf+oF7r85A7/3
OdBcxl2jQEsZYj8DcTX8DzRwH+vX7LZ/OQMJkcpa2riZGdaeS5TMgLCadLEe
bnmtqO+xX2eghYtyqwHuBzEKpju6ZwA/VqsY4p48HooWFmZg7QxFlTHu0uvS
C+kCs3BdxNrODPdaxpA+r/gsSBpYBZjjPrThVesjOwtiuudSb+B+7d8TZ6k5
C4qqA/W3cNsWPdASfTYL5yUlu61wC3IWFSRMz8JuVzYuB9wsmWMxp1ZnIVLy
6zBhCqVtnn1UZIi8uj/pHu7eB3oa7LvI4FRAtc8Jt//Aj1k3BTK8Eav/9YDo
jyN/K99lMggUCqc5477NopT/2YAMLbRB2g9xK54Jc1+2J0PovpYEF+L5Scd5
r8eTodNFYu8T3GQw3ET5ngyBihb5hHu6PKbDC8iwcJRV9SnR760dH1tbyCBx
beCuK25LKzvVM1QYZBQERLrj7pbKfMxvgIH5XT5PL9xVDV1mRTcxGDcV/Ek4
x5zyoq49Brb3JK28cfuGqe4KeIEBo+Nr5ee4z/0iZ1IVYED6ZLT0ArdEMHto
ZCUGstYpOj7E+yUm5yLdgkFTgdxnwr+MXijdmcIgWd/M5SURf4htwZphDnLL
Hs754r6ULjwqxzIH9RzTCn5EPvdlOxk45iDaqvsN4RzW64VJ/HOgk6ar6E/k
I5/tNSA9B5anX3kHEPmkqPGr3pgDiSOrTa9wW3NvdFNYzUGe0lbWINxhvvH+
723nQFCGToPwjP0a5Y5Hc5Dzo76FsO/pyIG2oDmoPslQEYw778O5EPfwORDp
H/5FeEh4XuVYzBywCFYeCyHqZT5TFJI2B5NJxQmEO3snI3TL5+CSzoxjKG5K
1QANhpo5iLzsk0pYpEyG8XPDHNSYXekj/CD55QOenjkIG32IwnDvsZfUHZyf
gxf3tNcImzM95jDjnYfrPLvOheP2eyLSuFNwHnJJY5aE85dbPKpE5mGH87ZA
wgy9QqvCUvMgQ/Wwj3BGUl3bzIV5CJPdaxGBu2u3/YsItXkYusnhQ5jqJe/Z
i9rzIMbjkk74st2d7PRr82DpljhHeI3EEXDHaR6MJOMsInHz5ZSc5380Dwz5
+l6Ez++/RdXqNg9dCa8TCYdvK7SR9JsHu/W4AcLQc011LXEeXt85qPwG9zPb
dMaHbfOwmTd/exSxvn3CQlN65iFu0UKEcEiim2DHIJ5/wrtThJO7dWXFyPMw
nz1mQ7gG6CyHaBfAfNyglrDalcW1bYwL8FuveIBw990+15M7FiB/snCZ8HRC
dngg7wLESkfwRBPzw2hUJ398Abj6GS0IBwpd0L4rtwAlGj4PCXPBsZE3Zxag
hSHfl/DBu4wba6oLsEOeM5vwxa480bc3FqD4Le8qYd94Fm+m1wtwVsPZKgY3
R9FPdpnoBdhjo+NMOKpzIsY8Ec+HecWL8PutRfklWQuwz8gunnCzza2pu3UL
8Lo5pYPwFW9N+6jmBWj4nDxMeCiORPW1cwFefLDBCC927NwlNLoAw/mGtLG4
WeXKFTt/LsAmlzZxwuFa6W00NIsgZHZMhrCATZiROP0ixBbfkCcsGWft6MW+
CHtFT18hrEnPnSxzeBGoi/tdCIe029FFGy7CsV23yghvBO1puma6CIX072oI
G2rVhgpZLIL6bFMT4f2de0RTHRYhKbSwn3BuV63yR59FmPI+sU6YK8ye3Slw
Eeo5/SniiP3uCl+/TNgi8Lo20BJW6LG3Lo1fBO2CdRbCHb18AV8LFsFviUeE
sHREna5v6SIopqUcJhyp5yCgXrUIt97xSBI27avL6WxZhGXuEkR4pd+hc3hq
EeYM19UJsw9/5V7nWAKJQp97hJ1i740V8CxB6qbaB4T7rvGnuwgsAZfY8iPC
CSP3YJPYEtgbs3oSlhrjv8Z8bgk+XncPIRyWUC/acmEJVlZOhBP+Zeq49Ept
CTqyvr0h/GW83m23/hIIFa4kENacdEwSslsCZSn7bML5yQI2k05LwHEx8yNh
npsNJ1If4fF8B/IJj00J1Io/X4LgR6wlhO1nGmZlYpfAT3GgjvArTPCoetMS
lFySGiKsrcnS6NexBKsGwyOEuT7/smj8tgS5dK7jhGO8OhKUp5bg8bboGcLv
BD13KVAvw9sFlRXCNs/tPrpvWQaJkTdrhCUWjS5XMC1DBO/oOuFPxdI+p7iW
8f8V1d+Eq3RnKGUll0FU7N3meGI9CFeczCctw6GJ2K2E21Yi7I5dXAa5s3ZM
hIf8VCbFzZYhgTODnfCPysxGodBl6G9O5Cf85JU3fVz8MkxlhQsRprtmcoYv
cxkYre2FCbP+YsvdXbsMTzV6DxEOqyXPh3QsQ7nmTXHCfKGVouwjyxA2PHCU
8CEJxzfMP/F4y17HCWdTqnW92LICCSzF0oRPNojs2Mq+AlrTAzKEFW72um86
vAIW7yeAsFEUur1uuAIs6vwKhKXazy25OK6Ai80lJcIMDKpOm/zx+9LnLv6p
j6RN4Z2yAmX+dJcI5zoYujOXrcA9rlB1wj5p5gxBPSvQcmxDg/C1YWv/3Usr
8GaLpDbhbSqPI4UEV4Hv0tGrhPPy/VLENVeBjTrZgLCJUMwHGY9VEDBIMibM
5J9Zei53Fb5KkK4Tzv9ZWq82uQoVUo/NCNed6susO7MGjJOzNwl/8/geJB+1
Bu/bnlsSJtex3i/+sQbNCj5WhClYxAyktb6D9/GdNoTpzV+nJ3Gvw9hppbuE
2QppKXaOrIPvhrst4SDMdOJCxA940n3IjvBOvsrGJ5obIOTm+8ePeK6SjvL+
BN+Ouj+e2D3/fnj8Jzw0Jv9xCCadM5P6C3ZVU9gTPlfmmrts8xui9mz942N5
g8LDrBSkq/HMf1zD/Nih1pqClNy3449V66W32LRSkCr62P64w3spjP04JSlr
g/2POT8mrfG+oiSZBO78Y92hq5rCC5Qki5m/Lr5366e+MhWpmIfjjwWZnOIC
k6hI8jJ//XBr7EuPrdSktIt/3bG5zsnpNjXpt/ZfT9tg4k011CRn/b/+3cMy
uW8fDem90V9vTlUdOelNQ0q99tdMD3z6VTAa0heTv5b+KCTge2kTyej6X5su
FJo3Zm0i5f3nC68vOdoy0ZLG//PRMyOeHLdoSVSmf71N3a/PsZ6WtOM/TxjJ
He0R30zi/s8P+0bVo3w2k/b+5x26L2yvT28mCf7nulMv+zTl6Uj7/rObiJ+C
QjQdaf9/PnIvbWWFess/91VUx8WbbiEJ/+d3MqshNTz0/3zdRYft5tj/HRCR
IdwUtfWfN/sXNPpqMfzzNbWfv2u4Gf9Zknyksq79/8Y0ItgV32z757mAgjVu
E6Z/ztY0P/GNkfmfTaqf55vb/N8NyW83a9f/33rLApF3hbf/c39C7r0Lz/9v
ri/yvJ4T/3fp+KPnNFws/2y25dN3F5X/+3+sctt6
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999996\"\>", {13882., 0.1}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.6156472609401984`"}], "0.08899763252654026`", 
         RowBox[{"-", "18.153822917237616`"}], "1.2032581153841318`*^-32"},
        {"T1", "5471.3818591610625`", "84.27405311791578`", 
         "64.92368239967686`", "1.6613862165504248`*^-80"},
        {"A2", 
         RowBox[{"-", "0.15247859158613222`"}], "0.0885668727458905`", 
         RowBox[{"-", "1.7216210402236116`"}], "0.08839295493138095`"},
        {"T2", "3075.079351852308`", "578.2546295475036`", 
         "5.317863783051114`", "6.953925011888194`*^-7"},
        {"y0", "0.9969050699757577`", "0.00023871992101971064`", 
         "4176.044737772199`", "7.603383355795067`*^-252"}
       },
       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], {13882., 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 = 250 K\"", TextForm]], "InlineText"], 
      Text["T = 250 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 138820.}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.777615346763361*^9, {3.7776153924761825`*^9, 3.7776154441963754`*^9}, {
   3.777615569149969*^9, 3.777615588622642*^9}, 3.7776192736968985`*^9, 
   3.777619358448348*^9, 3.7776195775254946`*^9, 3.777619685576914*^9, 
   3.7776197264782596`*^9, {3.7776198013350644`*^9, 3.7776198202609453`*^9}, 
   3.777619908536155*^9, {3.7776307176437283`*^9, 3.777630744795802*^9}, {
   3.7776308176074057`*^9, 3.7776308561979027`*^9}, {3.777630888085287*^9, 
   3.7776309222079144`*^9}, 3.777630973049016*^9, 3.7776316098182793`*^9, 
   3.7776317261739883`*^9, 3.7776319703619165`*^9, 3.7776321048462477`*^9, 
   3.7776324321703253`*^9, 3.7778208370144267`*^9, 3.7778211742650213`*^9, {
   3.777883105571717*^9, 3.777883113704856*^9}, {3.7778834047782288`*^9, 
   3.7778834516281176`*^9}, {3.777883586953233*^9, 3.7778835986159153`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV0ntQVGUYBnA0A/EyigkhYYKRMyDKGBaXCp4QEZhCgbSgFAIpCU28oEgE
qMhoQYoQrKBoDGOIBIRADNcFJeS2LTe5rMsuyy67uLrswnLJWxHfyx98M2fO
/Gae87zf+c4xDzrsE7JQR0dn/8z1/52tMKS/8PTK2jhcO8u4Q4jP1gwVj8uY
cQTPRD4/XHUm60RgwcWhGmWtlBwF04GnitacIWazOJyy3bk6P0bCLD6L225F
oQKvQeo7j0B5h+RWpYicBN6lX1KCcwXM4ck4sPJEnmd8L/OlVGw+Z6i19O2i
eRxkZcjhnM5n5mZCyN17UNVxn5l/HTkLrC1H3bjMxtmozmt4bOVTQP05qLO4
8XwyPdJ51uqbsLhgNOQRW8zMuYXsSFcbRVI984F8OJid2fjSvpk5sBCrvFRC
wYV2ZvyBmk6DsXPO3czSYjxvDArVt+hjvloC2Y3qiYu5D6mvDO9HiULLq0TM
7uVISA5P94wdZP6gAilvfHmmTC1hdq3Cdo+AdZFOUppfgwdVx1tD78joeS54
7+1WGt4dZv62DpUVydshkzOn1cNXaLf1dL+CufUuBNEJ/ua5I8zLGrBrNvCI
ec9fcN+XHzFtq2TOa4TJdisd1wry4ibUZ31tVBL4mDm8GTe9Ho4kCsiSFixd
GSW84fGEeV8bdjlGmX/RQJbyIOb9o28nJjvyITKpzMvdo2LWa4c437RVN4Pc
1442bpfLK7Xkog4Yftqww0xFTuyEzWxglPlQFxIH/OPrdpF9u1Hi/nH5Bk+y
0wPw6nbMHCl5cw8mFo/Y2x8lv9WLY13hvQkc8to+WE9uedcphWzaD5k22zv2
N7KZAD4mZxVltWTLhzhUxivdWUm2E+LXFsOVS1vJngO451j6VSGPHCTCj3qt
0ioxc5yzGMFcK01bG5kvhrTdx0C/jvL7BxH+M/+zjBby00FYJn10XCCi/GUJ
9maf56WpyZuGUHyk2nh9P+VbhlBwpfJETxM5TDpvf3HLZViXfq3Qb4xcLIPm
+vTJ7hrK+w8jLCUmoq+LvEiOVU1T7klayhfJkWDT7HKUTw5QQFKwsP3y3HyD
EYz6fT6l0JAbRubP+/4RMn8/9qRTRd6qRJKoLUFvLq9W4u7rIeYOCnLBY1iH
bDPaMPe+3z2Bi+6HC17O7WeLCj9Zmb5t20j5KRVWrHaTlzeTa0fnnT/XVQ3v
qXdy0ceM22qoo3PtAnop/5oGayXKT87dJ0dr8O/sovywBpMZnv5ppdTnPQZj
+ZWwe+20n5ox/HlwxTPJ3PlYj2PJGu2i6U7KZ47P+x5YpsXEyadrzP6meTFa
1DoHx6p6yBotKlwNrm0apHzIBHTfzF5vJ6S+/gmkvjh8y4n+tzjvSXzDsU4x
HiA3TeJO6nI/DpfyLlPgy5acf3WY+qqnoDy9Z3cW9es4TGP1Ck7TqZn/8T9U
O2CV
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJxF1nk01c8bB/BriZItSoqS7CpJVD9hHiUR2UORrRKVskW0L5Ioyr5Glqjs
W4Rry57se3bXfj9chKJ+n091+v4153XOnJln3jPPOSNodU3vAj2JRAqjI5GI
8d2VQ1Zd3G4osGqna0fNGNlV6GXPD5IRnMO2PFuJHiUzmX/NqiZdhMj7acNO
tynk+hX6mDSSK6gvb5v7rDZMzqjdtDmO5Amu3hT2GyL9ZMa+/LW5/V4QJGN6
bNagl2xEM/9eXewDO92/whPbHvId1laqK7yAmrWqpt7pHWTh/QJNkaRgyPfg
V87PaSTXF8yeeGMfAjKu/LtkORrIrqrlZWn9oRBQw1O2ZaCOXHPaNrusOAKy
wi3cd4dVkA8Vn65zhhhY2sdhHB6TTf5KiU0NI72BGx2OIZRvmShjF9uVVx/e
AInVr7U+7QN6bO8iHmefCP2SGanpuoVI+rtaTHJ/EiytfHFVESlDD9ioL4uL
34PF1pVFC/9aZKRnpP3pRjLcoOMaveL/Ge0OLl5fI50Cas99vs0++YJad/g/
ao5OBVkdq7T4t41o41b+w06QDs+PqKSEKLSiOwU6odcj0qGt4Hblg01taMzM
Y9F1KR0qzHmTVsfbUGEsNfNWWgb0i7HyrXncgaz3lOx+vCMLPtSUHe306UZ5
YL09lJQL7q9rs1ac+hGvenax8flc+EjztvCu6kcuuozneKty4bnF7mTEN4Bk
rF6/Cfb9ADKaY7lHPw6gtw97pYO250Pkdb3aVsogWuuzp/nUg3ygJJO9U/cM
IeuAW9c3UfLhmnhqz6rjENoZvzU/IPkjDGtetONbHkJhFYZH/RUKgfHq47xj
88NoqT5+RC+6ELjbGqhpe0eQYfu8JxdjEWiE3uZrsh1B3GMv617UFkGLv0+A
ftcIqng0Kqm2pxg8Jg8Y8yRT0MJajhUx82Jg9tbtWOilIOFnBz4zvygGe5tt
gSUco+hBoMe1yvliKFDzYzlwdRQpJQhlqRaUAOegyB45gTFkJ6nhIUotgTEx
xf4t6mMoIsXRkGlHKUjr3Rzf7DiGvueULH16WAoFzx9JOZeMoZxKc8VjGmVA
MrrgKWs4jkY0PNlFbpeBONvXystu42hjQ0ofY2oZ1L7dTBkIH0eOHav3y7nK
If3tvHd47ziSGg+vONpVDs1a5KUskwl01q4sWIj1E1zinjMwcJtAPrMTNgxK
n2Byu2WLbtAEmlj+3/qymE+wnWHtkev1EyiBpUP7iG0FrOgGvft4cBIJ7N7Y
CUuVUBdmum95ZhLtHj3k1yRaBQ124UwhjFPo0Ouzx8+fqoLIF/mGzZunkB7v
m2zPjCowak45J6Y4hR4xyr+sv1INmqvXvrg/nEIvyGbqFuHVEKCzcnF/wBSK
cn9IolVXQ40455XguCmUO1N3dZNYDUyu03WzKZ9CEz3mGqYDNfAILXOYkqbR
t+BH9FSOWpjSCUyOZJ9GDPpJeXeVaiFL+9PZYP5pxF9NE4sNrwU7e+m0Dwen
kXa2B+PEqToIMTEN6bw0jbKevSt0rfkMZQ6CKemfplGxWoPzuuXPcC9BqXxD
wzT6zLCwK1ysHoS3KJIVu6YRxU0prOhRPWQWCz9cnZ5GW6wbXdagL/C68/u3
g9xUJCr4bU+w3RcYvBDIwc1PRTI9W0fEI77AkSLOihJhKtLUO6+vufwFdK0H
fCLlqAi9+hFcfboBXh1SZbE+RUUVK8+cuBwaYHeizscFU3z+mR3aJk8aIDgm
LdT8PBUZbzrGNJ3TAF2HN3WUO1KRo/dzZ86NjfDTZdVk/BkVxbkK6hrVN0L+
0vVZqSIqmrvGgnaNNELZg8/dwWVUdMRmbvevH41glHHcgFJFRQPGn9a+kWiC
IWP1RblmKtoub1v87VETCJxtT0mmUJGdjF5KTXgTpJpJVOhMUlGB5OGIqIwm
kF+ncfgrRkVn+NhuqPY3QdvFiu+ZS1QUvJK2N+hwM1ReK3U7vw5DlPnQbZf0
mqHG5qG8GRuGDkw/WK9k2wyGTjfDVDZgqOWrwehIUDMc6kCZHbwY4iQvRcnR
mmGzThaIi2Ho6X1gb01sgbzBg0spgKFON4mVRHILMLaPe4QfxZC4I9fErbYW
kBua73ZTxVCF1fAnYcZWMHx8/BurJoYYVJ7cdjZvhUPcx6QCDDGkp+BwWc2l
FZpkqXo8pzH0WvbMaf5nreCuUKLmY4IhENktV57fCoXX1gUaWGDoFlPDFDdP
G/S3MEyb2mKo9ueHrtHdbVDy7kD/w8sY2roYU/XxaBuk98paRdthKG/UKe6c
Qxt8V/f8mu+AoW9Vm00z69pAJVt97U03DF3zNq/Ve9gOJ1aqp7Q9MaSwTZuF
J6IdZN/55jJ7YWhtqpJ6Z1Y7RCwm3s55iqHopm2V5pR2eMgkn7f8DEMNW3pK
r6h3AMVUf4QvAEMR72rppK064DDvRS+/QAzZKH6EOfcOaB0lea8GYYhkGVbk
9r4DSreNqpaEYkg60Tj/MUcn8GaHt8xFYWjlf2rL6uKdUOm/IWpvNIaqag8e
YlPuBJNLvjPnYzBkgfHk+Dt2Qu4tzg8FsRh6caA1Pbq1E47ZPDATTsQQrVw3
KT+8C042VJ6ipmKoyFB57HZWF/BUx8g0puH3NyYtpvy5C7bH7L+Smo6hnayc
8ZU/uyBng5OhWSaG9PXro1ssuyEmze3lkxwM7Rgp7At274ZXti1DarkYmnJJ
3m7i3w2/vLWOr/mAoUdhPhED5d2QFJMe5JiHoayBEyFUsR7YedDojmABhu45
ybenQw/MmYw/LcetuUaS5/rpHjhpI3n0fCGGhsXXBfx42gNFL/evhBZhaJN9
pe9aag88tmQ811+MIZefRz13Zn0FmdX5h5RyDKXvkslTqv0K6UoZP/U/4fUY
75g8M/gV9BLunCPjtspc0fLn7AUrvj5uvwoMadlk8zDa9ULnpoOCW6sw5BUY
q7bjUS+oB+r+csVdXvrCXSG8F66cqeduwS2/7Wqvc3Uv2CVn03tWY0ikSTRh
RKQPzPncBztq8Px/beygU+yDN1785hK1GArbzcCy3aAP+jgf6N/AzenZZ2f4
oA8qxC1LNtTh93k4RK6ytw+q8/jc93/G0ETTI6sWjX4QW/oqd+gLhp6M37xp
ZdQP6k+1LjjhFiE5BcxY9cPe4vvOybgt9lhWsLr3gysfh9r2Bgy1eSpKHkvs
B/vILUZzuJ2jZI82Z/aDgUcOr2gjhjZk7zK1JPfDTrwDjXBrDm55frutH/i1
guI/4C5R+DabzTgAXdniZteaMGSmP82iwjkAN6FwJAz3iu2wUBPfAHAaOYR+
wn0guOkUVWYAeM+qBfI2Y+j9bEqeqOUAXK4ePZGNOyTh4v3gwgH4YTvSXNeC
ofl1g0e21QzA5NSRexhuHTtTxti2AVhqWbi+oRXvJ1ldzxRsAO75Gmrq475R
Iv/sk+AgNBwIX/cFd4twtpaG1CBsOlJ3YQq39JO9nI3yg9CheFpsXRuGxrSE
/Xv0ByFWW3YUcBv1sIXOeQzCZU/O1CTcGejJGbeXg1BxtNC7FDd7LD3/r6hB
UO27PdKFu8J2MYrlwyAkWixsZWnHz7fYHyc4MQhLUrWtVrh5uLLStLWGgH/8
TfQv3I7XpRxbzwzBHdlvzhs6MFTfkbjf5OIQtEfbTu7E/fhVZI71vSE41XCt
QgX3wm7PgtsZQ3B3TZjNI9w6fnR3GMhDIMWwct8f9/u5m8irdgjYb49ovMZ9
Pt++NGB4CIw7GhaLcLccP1P1jmcYjkQWds/jln7X4rVPaBgcMrXi6Tox5MOu
rZG7dxiYwwN2seNWaT1aX6o2DEZKJU6iuLOs9rR0ug/DynLkZgPc/rdJ/cx9
w8Dx/Co5DreBVIKk/uQwHMjhLUnGvbFP43rU4jDEqh4OyMEdAMEscpwjMD+T
kFGJO4hBSs5KeQR+VsiPj+I2zGq+m3xyBEzGp30x3DwX3GqWTo8A41o+jkXc
wRXl5r6OI3D9KGfYmi78fXiZPC2IHQEhC/LiDtzG8nStzGkjcIY3z1UM95bJ
BAH9ghHI5tnRtgd3mCYta7xlBNTsxqTlcYdzePXxMFHgXeNDe13cUYE5sg42
FDhINotyx22manq3wJkCV9J1te/iFlikq2G+T4GYQJaxh7ijjU+aR4VSgNWs
uMkHdwzfsFdtDQUkjXTCInFb1Xm18LRTYCQ2NCgG987bewWshijw7ZjWnXjc
r3vds5Z+UOBHSvSGZNxxMRv6RPaMQsARJv2PuM/r5Uo4/G8URhnbsotwCzOc
dS44Ngr6NAnmUtzx5xPX6ZuNQl/BJ5cq3AliSPae7yikMij6t+BOSr7i1TU7
Ci5FkswTuHe8f3FSb3UUjIqktKeI/N7mbKhZOwblh2V9qLifvCGF5QmMwds0
HgoNt3VMwNuQk2Nw8H3l9h+4e1/lXeU8PQb2JLuNq7gNo3plnpwfA15KNOkX
7mPh4h9db45BYZRtIX03Xm9gQa1h0hj4y6p8Xoc7wn/Atz5rDLCPErfW4974
kslAtXgMrL/SdrLhZvDV6ZFrHwOJgFpjTtyDT4anNq4ZB7G+VFse3NG3WNmb
LcbBrbZBSRA37819TSeujEOJDPnWTtx+boZBpa7joJWSniWE+65L9PaM5+NQ
n7mJWxS3mb3s3hcF48Da1ecjibvt6um5tVXj0Ja9FLkLt5bdndx7zePAnzed
tBu34qUqZD8xDldb6jOkcPOfN9XR5p2ACA4mbxncAVb3N1YKTQDz4Yjr+3Gz
WiZ0KO2dgA/CVSayuH+cnbGQUp0A01E5vgO4u4weObA5T8DTjXE2/8MdovH+
Ze2XCVhnf1kL4a4PMvgl3zMBl2UW1wFuxsGVy2/HJuD1fGoJYYcbJ4950U2C
x/SiyBHcJ+Kpi6r7JyHi6WKZCu57M0Hnc9AkJPExnjuGO+cwahTRnIRXTk0/
Ce9s8n3LeGESTnYu7j5O1PdT+mxp0CS07JW8oI5b5kRn9b7YSbDeyzpF2Cbw
/oGY1EnIEJCyP4G7ZVcTx72qSShcuGSvgfu9sVOp4vdJmDFV0ztJ5JuRLZZ3
dgoyHVITdIh8Vs8GiF+agg2f0pl1cdeoMdGFuEwBf3GeNeGDfYZdLr5TIFrO
IKCHm5N1yUe2ZAqSeQLc9HGrGkUvx36egv1HOmsJ33qtZs3dNQVpaxz4DXCP
HwpFNNoUUHZ//EC49II8LVV4Gk5ujes9hXspbdBMYN80CNvbChvillp5Wvtc
cRqWI0ptCIe/7I6zM5wG47Va04SdybeMdj2ZhvVpvhQj3CJbyAUJk9MQ1nD7
1WncXBmU10cWp8GgwqyeMEmD3auXngoXJU1WCPfcOnuKZysV7rzMPXUG98v+
H9MealTQSnD6Sfiem1CLoAEVsq/Ei5rgvsqlkV9oTgXL/3FrEVZXCXu84EKF
tyXpYYRJiYcELsRTgfLWbJcpbipYrKFLp4KtSutJwt2dnpMRBVSQaIu9Rjhn
fXtuSzMV1kSfSidsd+26jgo9BsKxlnvOEu/vQMZ9IXMMtjWEsZjhrvrSeZF8
CYPdPTNChLNt6LRMXDBQtaxVIOwXprPV/xkGerKb7Qgf/0nNoC/A4Opm9SrC
ssE8oVGVGBQa0/cS3imtdFe+GYO9abpzhH9aPtNwnMDgeFI+vzmx/+Ammj3r
DDj0Tl4irJsqMaLENQNnZXxuE666qdjByjsDj3MafQlnb7xQlCg0A9Iy+pmE
/VSznvbLzwDXGbNvhI+/1RPSsZ0BzWWqnQVu+20rXaRrMxC/z/Qm4TC/+Jfp
zjNQI+/1hPCUyxId970Z2OQh9pqw39Go/tagGeAVDWwinJdzPORxxAyUyAv2
Eh6UmNU++HoG9PhdxgnLcqqQQ5Lx9Szu/CLc0TMeaVI+A5fChCUscdPp+J9i
rZkBpxGu/YQlyxTYCr/MwIPcRgXCt5J8b23vnoHDN8q1Ce9wkTMZmJ2BvoNB
ToRtOO7zXhSYBUuZiEzCLx5INmwWmQVD//l8wvkLzZ5VkrPg3y5RSpi1R3RR
4sAsiCTsaSCclljXOqU5CycW3k0Q7uRzeRapNwu1O1ZnCNP7ChzTMp6Fpi3S
i4QNrjtmpZ6bBbFMRQYrol+Uef0d3WehLZ5pK2HB7JITQvdmAXO6LkD4hPhl
+haPWUhSrxEmHMFe5CD3YhZUv4vtJQzd53SW3szCS+fiI4SfOKey3WmdhQdj
FRcIcz4PC33bjdcnsfMS4ZA3HiLtA/h526yvEk7qMlGUps6C8PEUF8I1sNZu
kIkG/gXKjwnrnZlbYmejQezbeS/CXU69jw5z08DYLuAZ4cmErIgAARpwroQH
EGZls6xTPUSD6VetMYQDRDWNnZRosPp6OY4wPxwcfqVCA1NztkTCe5zYVpZ0
aEDWX5NCWKszb9c7WxrI/kB5hP3iubw5wmngEC34mTAveZVHIYYGx45c+EI4
umPstc0bGiiJRzYSTl9Pzi/JpEFCxkQr4SaHyxNOdTQo42PoJTwYp0z/uQNf
37FxgPBc++atoiM0kC64MUJ4o1K5escqDY6fNZ4iLOwQZrmPZQ4EEvwxwnJx
9m5PeeZAuTKZRtiQZVuSwt45sGt9uPQ737bra2Ms5kB4Syf9OdwWRrWholfm
IM6EaQ1h8Y4du967zoFo8XZmwh86a0/mPp+DLuaN6wmrdbvYl8bP4f/HInbC
7T2C/p8L5iDwrTAXYeveuuyO5jkI8DuxifC3PteOoYk5mFGQ4yXMM/R523fe
eaj5ZbuNcMLwDVgjPQ9buz8KED5AETrHeXwemLgGBQlXjNZ78JnNQ1hnnxBh
w3G3RNHr8+An+UGEsMvUl2mF2HngPsQgQTgQE9mv3zgP7BNtuwiniHhtVWNY
gGQBZynCVSZTdIpyC+B37J004cEX2uP7Li7AzSlvGcI/KjMaREMXwP2YkCxh
KVm3V5yrC6C0IeYAYctodPW7xTfQEr98iDC79v0oUZFFeCYWKk84f7W0Xm98
EVQeFhwm/NVzOUg1egmOy55UIEzikjaXN1oGVqGI32axCU9N3PYd4iqrf3tT
ERNp8/B30Lg28NtBmPWYZuQP8N06/dubBSsbHhiuAMuVud++t91Ueb/AKniu
X/ztMb7Z9KHRVYgeW/rtEEw+e+r9T+jvWv7t42WPPiw4/AL6099/+2DegMTQ
RpLyreA/ruG871prT1J2y/tjnXr5dQ4tJGXOz3/c7j0fxnOITnlv+x9vyU1c
EgikU97V88cmg6aGEjQ65e7ePy6+cXnV7CS9snr/H4twuMcFJNIrcw388Z31
sb6e6xmUH/91O3Odu/tVBuXSv550wPY11jAo9//1r26ucTExRuWZv2Z+rzN8
2JtRefmvOW4979PGGJV//rV8rqiwn+4aZdLgH1vTimwaMtco0/+1ZriumzMH
0z/vVxn24r3MpMzw12OWSvu79zH/M7fJM+cLk//ZQ/KFmlrM2n/u/VQdF2+9
7p9TFBZDaraz/POFu6c3XaL8Z//INInG6PX/zPyyoMHPiPWfz+mt/qrZxvbP
clSZyrq2/4ydiuRRf8X+zzP+BUvbznP8c5ahzf++snH+8/lqn3wbh//8Jekd
s3H9fz67IBzlJLHhn/sSPtzQ9PnP/BWqAl5j/7l09J4PIz/XP19c93H5rvZ/
/j9+wW7M
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.999993\"\>", NCache[{Rational[49608, 5], 0.1}, {9921.6, 0.1}], {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"A1", 
         RowBox[{"-", "1.4812732407483167`"}], "0.25530404171216814`", 
         RowBox[{"-", "5.801996830188518`"}], "8.590884189545884`*^-8"},
        {"T1", "4830.366886600824`", "177.86158824099718`", 
         "27.158010531514087`", "1.4449866140530068`*^-46"},
        {"A2", 
         RowBox[{"-", "0.2890213455254397`"}], "0.25477346098976095`", 
         RowBox[{"-", "1.1344248510132502`"}], "0.25947074946473747`"},
        {"T2", "3115.26738826229`", "651.1850990405804`", 
         "4.783996735877633`", "6.283910479539764`*^-6"},
        {"y0", "0.9955307189002841`", "0.000341706590269578`", 
         "2913.408015089476`", "5.438180660922007`*^-237"}
       },
       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], NCache[{Rational[49608, 5], 0.4}, {9921.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 = 275 K\"", TextForm]], "InlineText"], 
      Text["T = 275 K"]], 
     GrayLevel[0], 28, StripOnInput -> False], TraditionalForm],
  PlotRange->{{0, 99216.}, {0, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.777615346763361*^9, {3.7776153924761825`*^9, 3.7776154441963754`*^9}, {
   3.777615569149969*^9, 3.777615588622642*^9}, 3.7776192736968985`*^9, 
   3.777619358448348*^9, 3.7776195775254946`*^9, 3.777619685576914*^9, 
   3.7776197264782596`*^9, {3.7776198013350644`*^9, 3.7776198202609453`*^9}, 
   3.777619908536155*^9, {3.7776307176437283`*^9, 3.777630744795802*^9}, {
   3.7776308176074057`*^9, 3.7776308561979027`*^9}, {3.777630888085287*^9, 
   3.7776309222079144`*^9}, 3.777630973049016*^9, 3.7776316098182793`*^9, 
   3.7776317261739883`*^9, 3.7776319703619165`*^9, 3.7776321048462477`*^9, 
   3.7776324321703253`*^9, 3.7778208370144267`*^9, 3.7778211742650213`*^9, {
   3.777883105571717*^9, 3.777883113704856*^9}, {3.7778834047782288`*^9, 
   3.7778834516281176`*^9}, {3.777883586953233*^9, 3.777883598959586*^9}}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{200., -9.49976169133743}, {225., -9.076684182833837}, {
      250., -8.607286488586833}, {275., -8.482677703720569}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{198.828125, -9.57358230334188},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      StyleBox["\"\\!\\(\\*SubscriptBox[\\(T\\), \\(m\\)]\\) (ns)\"", 
       GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], None}, {
     FormBox[
      StyleBox["\"T (K)\"", 
       GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], None}},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{-9.433483923290392, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"8.0\"", 8., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], 
          TemplateBox[{"10", 
            RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], 
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.028018815182229, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox[
           "\"1.2\"", 1.2000000000000002`, AutoDelete -> True], NumberForm[#, {
             DirectedInfinity[1], 1}]& ], 
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.87386813535497, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.4\"", 1.4, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], 
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.740336742730447, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.6\"", 1.6, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], 
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.622553707074063, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox[
           "\"1.8\"", 1.8000000000000003`, AutoDelete -> True], NumberForm[#, {
             DirectedInfinity[1], 1}]& ], 
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-8.517193191416238, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 1}]& ], 
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-9.721165995742174, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.641123288068638, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.567015315914915, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.498022444427964, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.372859301473957, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.315700887634009, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.261633666363734, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.161550207806751, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.115030192171858, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-9.070578429601024, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.987196820661973, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.947976107508692, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.910235779525845, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.8387768155437, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.804875263868018, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.772085441045027, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.709565084063694, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.679712120914012, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.650724584040761, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.59515473288595, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.568486485803788, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.542510999400527, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.492500578825865, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.468403027246806, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.444872529836612, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-8.421883011611913, 
       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->{{200., 275.}, {-9.556266357316144, -8.482677703720569}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{-9.433483923290392, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"8.0\"", 8., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], 
         TemplateBox[{"10", 
           RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], 
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.028018815182229, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox[
          "\"1.2\"", 1.2000000000000002`, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], 
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.87386813535497, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.4\"", 1.4, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}]& ], 
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.740336742730447, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.6\"", 1.6, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1}]& ], 
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.622553707074063, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox[
          "\"1.8\"", 1.8000000000000003`, AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], 
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.517193191416238, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1}]& ], 
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]},
         "RowWithSeparators"], TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.721165995742174, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.641123288068638, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.567015315914915, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.498022444427964, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.372859301473957, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.315700887634009, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.261633666363734, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.161550207806751, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.115030192171858, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-9.070578429601024, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.987196820661973, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.947976107508692, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.910235779525845, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.8387768155437, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.804875263868018, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.772085441045027, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.709565084063694, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.679712120914012, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.650724584040761, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.59515473288595, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.568486485803788, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.542510999400527, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.492500578825865, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.468403027246806, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.444872529836612, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-8.421883011611913, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{
  3.777615348716035*^9, {3.777615394402049*^9, 3.777615446109084*^9}, {
   3.77761557105577*^9, 3.777615590642848*^9}, 3.777619275821128*^9, 
   3.7776193607731223`*^9, 3.7776195787014236`*^9, 3.7776196892148433`*^9, 
   3.777619727487322*^9, {3.777619802378772*^9, 3.7776198212919493`*^9}, 
   3.7776199095515413`*^9, {3.7776307197629147`*^9, 3.7776307469495606`*^9}, {
   3.7776308205296335`*^9, 3.777630859234705*^9}, {3.777630890984586*^9, 
   3.7776309250611906`*^9}, 3.777630976139266*^9, 3.777631616140382*^9, 
   3.7776317332043657`*^9, 3.777631977321285*^9, 3.7776321108293867`*^9, 
   3.7776324380537505`*^9, 3.7778208432123814`*^9, 3.7778211802460423`*^9, {
   3.7778831099660234`*^9, 3.7778831151234837`*^9}, {3.7778834098718815`*^9, 
   3.7778834527607603`*^9}, {3.7778835875994577`*^9, 3.777883599037691*^9}}],

Cell["\<\
200\t0.0000748696698527968\t3.8104973891021815e-7
225\t0.00011429997763488361\t1.8074927110138903e-6
250\t0.0001827691844109985\t2.8151389085704132e-6
275\t0.00020702361196909202\t7.622929953903006e-6\
\>", "Print",
 CellChangeTimes->{
  3.777615346763361*^9, {3.7776153924761825`*^9, 3.7776154441963754`*^9}, {
   3.777615569149969*^9, 3.777615588622642*^9}, 3.7776192736968985`*^9, 
   3.777619358448348*^9, 3.7776195775254946`*^9, 3.777619685576914*^9, 
   3.7776197264782596`*^9, {3.7776198013350644`*^9, 3.7776198202609453`*^9}, 
   3.777619908536155*^9, {3.7776307176437283`*^9, 3.777630744795802*^9}, {
   3.7776308176074057`*^9, 3.7776308561979027`*^9}, {3.777630888085287*^9, 
   3.7776309222079144`*^9}, 3.777630973049016*^9, 3.7776316098182793`*^9, 
   3.7776317261739883`*^9, 3.7776319703619165`*^9, 3.7776321048462477`*^9, 
   3.7776324321703253`*^9, 3.7778208370144267`*^9, 3.7778211742650213`*^9, {
   3.777883105571717*^9, 3.777883113704856*^9}, {3.7778834047782288`*^9, 
   3.7778834516281176`*^9}, {3.777883586953233*^9, 3.77788359910483*^9}}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

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

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

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

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

Cell[CellGroupData[{

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

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "2.8511394141291676`*^-18", "1.4464521032700298`*^-18", 
      "1.9711260453654336`", "0.06626015948305121`"},
     {"\[Theta]D", "6.421045835803382`", "7.046381231597366`*^-24", 
      "9.112543906949206`*^23", 
      "3.7309921498479702453697504483409686153829084581889`15.954589770191005*^\
-375"},
     {"x", "9.`", "0.`", "\[Infinity]", "0``307.6526555685888"},
     {"C", "1.3228484098964628`*^-9", "2.9658018587779866`*^-10", 
      "4.460339809893849`", "0.0003946375556106245`"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{3.7776330688711934`*^9}],

Cell[BoxData["0.9354590549422541`"], "Output",
 CellChangeTimes->{3.777633069027399*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBmIQDQEKDh/Edic0bTU5AOGrOGxZm7QuPRvG13PY7rT+
0cYvxlC+iYPSjazCxHwY387h6lzPaqWTRlC+i8O8jVIvVjPC+J4OUtvnfvWM
MYTyLR2ebtBLVPwPkw9xeJaapGUdagDhN4Q5iLM9d7Yr0ofKRzq8ctw7g22n
HlQ+2mHf8fsTupbB+IEOde9WndOOhOpniHN4uWC6cd4aqLxDgkPJGRXl5uO6
UPWJDp3K77Qe/YDyDyQ5fK3m9X3yAspnSHGwV5u3d2MHVP+DVIdbzV0X7q/R
PQAAe2Ffgw==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0Hk0lXsXwHGEhFR06VYoMh5neJ5jOBHP7popi6QyhwgR50lKRFfGcHLR
oOTSZAgpNEhsV/ONZJG8SojKSRkqQ694z/vHb+31Weu7//jt9f4R2wIlxMTE
zore/6etwPSGktJtyrP8on6htAmmP/LpdhHcpkI62TmOncaY/Z/EWDXBY2pQ
zL+0V8MYv+pekzpR/pIyOXG/Y9k9I8wbymuVFHRTVR0xJaF8IzQtij+VwH9L
+T3PHnPgGeE4s5Z1tHyAev1+4kDhEiNskSvLMS0YorwyrdfrDhri6ZELU9NZ
H6lmm9tKs02GGPI4x6MuQUhxLI4odRQb4qYrqY00/wv1y4nS70kxxLTNFivO
EuPU4WdyA/R+Q+RX81qiyyeojKKycINdhuihzj3opvmNurD5/aUqS0O0EjB1
DAu+U3e5cs11HENUCdPImMiapmxzxcxTFAxRrHetebv0LBX2nf1ebIGLQnuV
saqEn1Tz/qIyn3EuNujIu4bxf1GZ5asUA7u4ePW0tJSjcJ7SqY3X//iEi08S
j/XmEWJwTG2f+HwDF29MHMk6UC4O/+1zun7rKhe19Q5/GAySgLefE3v/KODi
ud0HqW2aiyBfn5gwyeFi0ouICU6BJJRHVklZJHBxZ+Uet69Zi6FN4bOxvDcX
nw/5VXk7yEBRXkCHvhsXYa3v4lbpJSBQ3liQvJWL+hnud68lyEJsgnDZoAUX
54KdVEP4S+FRsGThsCYX+UWO0a+ZCqBeOReSo8rFD912L2yFCtA3O80KUuFi
8KViyCWWg6L0bFisHBddFAsm+eUrYOHvzFrODxLlq1b/XSajCKGLMuHTGImP
7PMdB4IUwUHDUemekETTP09fdtZUgpygUfuqfhI3jGfvYBeshJFB933VrSRO
tybXj2apQGCp78DBayTuoWR5K76rgEA2bbdOCYkd1YI6I49V4FShJPP5IolV
uWeq47V/B/NsxyNXz4l697Kry5tWw02NLwrvToj6oec5huOq4GuyKW0ynETY
4bLcfYcaRG0teJAZKtp/3JV1tEEN9KvknMm9JKaX96U9SlMH92vxjMLdJK7j
HaYqstfBj6TeyAlXErt/pRtZ6GnAQVZqvcsmEgXGW6KcvTSAL2Cyjm8k0SpC
ocb/pAbEaRze2WBM4s3+HE7qDw3QfPBBw5oQ9S3nGe3NmmDb072lQptE6/TK
9f4eWhBwznL9TUUSa1a+XJqSoQtp0ZvDO78S2MBfM2R0Txf+XRZXOzBK4IO2
wPphoS5IspwrJ4UEvkr7GWTtoAdqo76x6h8JnJnTRMkl+hC4OWrZpXcEWgxH
08dTGKC3Yb2h7UsCn9Wt7T72Jwv8vqlW3blFYIfi3krODRZsGJ+p1aojsDfi
xvH+fhZUX7isfqqGwFE9Gw4AGxwluiRiqwlcVhiRvjDPBrmYOp5/OYH6lgOq
VCMHas+3p50tJDCSYdh+34yE/Xfa6dg0AvtMbBdUXUnoCaX92KkEbrXyYMWH
kqAm0SwcShbtex/LtMgnIXR+tmH7cQKHBc/tmqZIuJ9oM24TT6DH5J5mvMGF
Z9YtVnQUgZZ3T91s0TGCp98fvX7uR6Cy7XTeUyUezMOsyg+KwMknjjMbmDzg
Rbt5D1gQ2OpQ5HnMhgf0zKG6NnMCk5zsNUxieOBdNZpXYSbq3c5fv9zHgwFt
3Y4oE1G/h3qWULYRBoLDg43Yoj4xdcGIMoN17uI7Q9QJ/HZfJfRiqAXEzHHC
KQnRvV04+VsSLWBdcm9jpDiBc8N2T6byLWCu5s7li2IESioc0XZ8agGqAzv1
ZBY4qOzzZvCbDgW/XOvnev7LQd58kaf1MAWkucPisz84SKmf0v5+HWBM03Dk
0AgHk33VVp3R/wMcDzWYFXZwsCLL97ilrzUs0Xi4yukqB9fEeIXNJNmBwyH7
w78d42BJWW9rSpQjRKp6HZ305WBbavrt2EtO8LA3r2UpcPBE1xt5rTZnSFHO
GDiygYPtDzvilltug6gKqyVqchwcku/nXO92Bf3gqTSbQTamRrOKTV3coPio
mJ1RLRunjfPcYoQ7oDRnb+nRJDbKveq22xS3C9ZNSHee3MnGqjNeM58n3WF1
/ryeJpuNatUzn53SPcFjqbFWjSQbVT93nS+U9IYS9fezm/tYKIx7drL4bx+A
3nabhjoWVkY7+eX9vhuErpk/fwpYyITXu9q6doOctcqd0n0sVKoLnxwo9oOx
m+0PCRsWbr6nKdy32x+mt/8bNqbJwuZqO3HemgAwdZ38MivBwhKXmPq3wwHw
/MPwP/3vmNh1/NnL2Yt74G2mbGJtExND/XQyxiICIdJcSz7iAhNdWN8CdDYG
QZynQr9XHBMTMt+d6/oeBHntjYXiPkxcebr7gDfuBUt+yqJ8cyaOc8bLPeOD
wVlLOblNnYlq9w6JF/BCIEfBRU9qERNrxmV/1kmEQpTf9uRNQwZ48najs01T
KJRv82d+eWyAHXrx9tUZ+6AHzpAVZQboxfQpynYIAy+PIPmOLAPkratUrpEK
h/N/5dX30wYY27iYfb09HL7yV76Q32GAUl8Tr6wX7AedK9fIRDMDnHqypDHc
MwK+Cs+aaqgbYMHThZ9HFSNB/Y15WekiA/SblrU5FhkJi/4ZVfUWMrDn5xr/
iFeREPbCVs7xBQN/2JhX5hvxIdDhKcv9FgPrZZVlhnP4UPtAejFZyEDy8neu
6gwfAvxaXbYlMdAp5b0gewcNKa1v42LDGGjrINhivIuG+em1NStEBoWNsm/c
aZh1WT1Wso+BxGlBso43DYcubD3cGcrAlVc3xjUG0DDSmfaCGcLA3ocnQ0Yj
aTggN5Q9EMjAYKlNVnYZNLwa/8dzqy8D/Z5+EP+aScMfGV12Qz4M9Mj6qylX
QENO/WmzWJG3/PbR9N1fNBz9pEGWeTOQrZVDRJ+lYevs9gApLwZOWX1Su3yF
hrq+mq7GXQwck8l9Y18ics9B1R0if3pufm6slIapm32hX3aK7rM99zezChoy
V15SXitywx4L+Y6bNAxrjdyIcWNgne7I00O1NJhc7tReIXLVaG6q6i3Rf/UD
iku3M7AoakQi5C4NysF7S7pdGZjPy0OFezSU6L0hI0TOmbOIr22gQVd2skVa
5BM4YubRSMPOk6UehdsYeDwpb3ahiQYZamHKSOT/AQ+de5s=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, -21.13516888635969},
  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]}}, {-21.416413017506358`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.234091460712403`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-21.079940780885142`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.94640938826062, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.82862635260424, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.72326583694641, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-19.33697147582652, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-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.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.815510557964274`, 
       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]}}}, 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, 175.}, {-21.035208190861738`, -14.837645069988799`}},
  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]}}, {-21.416413017506358`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.234091460712403`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-21.079940780885142`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.94640938826062, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.82862635260424, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.72326583694641, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-20.030118656386467`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.624653548278303`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-19.33697147582652, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {-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.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.815510557964274`, 
      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]}}}}]], "Output",
 CellChangeTimes->{3.777633069670578*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQAWIQDQEf7A/6v344p8zpAFTAYedtmauK9jA+h8Pkm95H
Am44QvkCDlm5V8yvTIXxRRyiY9mfSJvB+BIO31usZ4Vww/gyDucOtk6sY4bx
FRyMt7nGiaXC+EoOc5P717txwfgqDq2z78hJT4bZr+bwcfbdVrUjDlC+hoMW
x/9z0yRh6rUcimvf7GSdDuPrOCTZuXr6JcH06zkIKaWsUeKF6TdwWNhTohr9
EMY3dDCeZL4irw6m38iha09mo5IuTN7YYdfc0pIdLTB5E4djb0rPvHN1OAAA
vv9X+A==
      "]]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., -37.51555386771329},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{-36.841361487904734`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-35.23192357547063, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-32.92933848247659, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {-32.23619130191664, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
          TemplateBox[{"10", 
            RowBox[{"-", "14"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       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.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.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.531443209678216`, 
       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.364389125015048`, 
       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., 20}, {-37.42963429280167, -32.102620648282155`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{-36.841361487904734`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {-35.23192357547063, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "16"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {-34.538776394910684`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {-32.92933848247659, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "15"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {-32.23619130191664, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", 
         TemplateBox[{"10", 
           RowBox[{"-", "14"}]}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      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.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.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.531443209678216`, 
      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.364389125015048`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{3.7776330697955475`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, 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, 247, 3, 101, "Title"],
Cell[830, 27, 1834, 45, 112, "Input"],
Cell[CellGroupData[{
Cell[2689, 76, 13453, 330, 766, "Input"],
Cell[CellGroupData[{
Cell[16167, 410, 15470, 280, 522, "Print"],
Cell[31640, 692, 15134, 274, 522, "Print"],
Cell[46777, 968, 14292, 260, 522, "Print"],
Cell[61072, 1230, 13575, 249, 522, "Print"]
}, Open  ]],
Cell[74662, 1482, 24237, 569, 502, "Output"],
Cell[98902, 2053, 1071, 17, 71, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100010, 2075, 88, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[100123, 2080, 3838, 101, 183, "Input"],
Cell[103964, 2183, 712, 13, 47, "Message"],
Cell[104679, 2198, 712, 13, 47, "Message"],
Cell[105394, 2213, 36746, 857, 495, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142177, 3075, 3054, 77, 132, "Input"],
Cell[145234, 3154, 1160, 25, 113, "Output"],
Cell[146397, 3181, 88, 1, 31, "Output"],
Cell[146488, 3184, 27095, 622, 470, "Output"],
Cell[173586, 3808, 19996, 478, 455, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

