(* 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[    882157,      18456]
NotebookOptionsPosition[    867962,      18008]
NotebookOutlinePosition[    868306,      18023]
CellTagsIndexPosition[    868263,      18020]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["DFB1 - DTOL - Tm LogFit", "Title",
 CellChangeTimes->{{3.7772123842089915`*^9, 3.7772123918062162`*^9}, {
  3.777358951755865*^9, 3.7773589571709323`*^9}}],

Cell["\<\
In a traditional linear fit the initial part of the decays is more important \
with respect to the tail of the exponential. This is because the residues \
generated by displacement in the initial decay are intrinsically larger than \
in the tail. However, if we produce the log of the experimental data, the \
weight of the tail is the same as the weight of the initial part of the \
decay. This is particularly important when fitting a biexponential decay \
where the second expoential is low in intensity but longly lived. While there \
might some discrepancy, the values are of the same order of magnitude and the \
logaritmic-fit-obtained values are well within the errors of the linear fit. \
\>", "Text",
 CellChangeTimes->{{3.7773589594070215`*^9, 3.7773591417695136`*^9}}],

Cell[CellGroupData[{

Cell["Define save arrays", "Section",
 CellChangeTimes->{{3.777212399448229*^9, 3.7772124022076163`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Temperature", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "15", ",", "20", ",", "25", ",", "30", ",", "40", ",", "50", ",", "70", 
     ",", " ", "80", ",", "90", ",", " ", "100", ",", "110", ",", "120", ",", 
     " ", "130", ",", "140", ",", "150", ",", "160", ",", "175", ",", "200", 
     ",", "225", ",", "250", ",", "275", ",", "293"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"taus", "=", "Temperature"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Array", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", 
       RowBox[{"Length", "[", "Temperature", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", "Temperature"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", "taus"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "taus"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "taus"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "taus"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Transpose", "[", "data", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772670537397146`*^9, 3.7772670692453327`*^9}, {
  3.7772712094559937`*^9, 3.777271217515012*^9}, {3.777271258247573*^9, 
  3.7772712699489355`*^9}, {3.777271381677781*^9, 3.777271392233057*^9}, {
  3.7772715739164963`*^9, 3.7772715756525106`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define model 15-70", "Section",
 CellChangeTimes->{{3.7778077653061256`*^9, 3.777807776747914*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exponential", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", 
     RowBox[{"C_", "?", "NumericQ"}], ",", 
     RowBox[{"Tm_", "?", "NumericQ"}]}], "]"}], " ", "=", 
   RowBox[{"C", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"t", "/", "Tm"}], ")"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.777807780214381*^9, 3.777807819320746*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 15K", "Section",
 CellChangeTimes->{{3.7778078326561804`*^9, 3.7778078368416896`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_15K.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "8000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "6000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "10000"}], "}"}]}], "}"}]}]}], "]"}],
    ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "C1", ",", "Tm1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1000000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777807846428356*^9, 3.777807978114668*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1E9Ik3Ecx/EH8SBR4WGEdLLwIJ0kPHZ4iB1GhCwbZRa2bJpYpNkqMbMn
s7ISWmYWZrFk1RIhs0Wm/TGzMvu3bP3PnOZBOkXsENKhP5/3c5iCvHjz+/2e
72/PxEXFFfklKYZhWH9//6mfYvM/v29LY5/svyWtRlnTL82Tcv8NulXO66HP
yZ6IzAzKWJcMdsiJ66xfkkV08Ir0X2W9Uy7oZp3nlGLmNTnJuSj7ZlhP5151
Yenm3gWXZYB71rMevSk7QpznPaRzT3evzKMDvLeCi5zv4z58zvQ7spV1911Z
fYHz9+R8+/x9mcF7axyQCd5r9gPZdF4O0zntsmxQprE/7aHsbZNhuv2sdA1x
7oycppfRjY+kk+85+zGeZj7tP8VznsjaZuYPyy7Ww3Ql7XoqN/B3NU3PpRtH
eB6d/YznnmD+rC57LjPotBcycIz5tLuJ+S+ll56m48eZ/0panHdEmXNU+mjv
ERmhK+nU1+w/LD30MB2iuw/KBB08JJ2j3LdettAG+6doF537Rv46IBvoqCVj
dJjOiiW3nzbq5BCdQzvecl/+T/jogb0yQpusp76T3mrpoQdqZYgO7pEJ2l0j
ne/Z75ctdGCXnLJ7t8z9ICvpBjrK+RhtVcmsj/IH7afNnXx+2qiUjk88f4f0
0ZnbZYQ2tsnUz3S59NDBChmivXSCtsqk84uMb5Et9ADrU3Zvlblj3If1Btpk
fmwseX/WV+6zSfppb6kcoo1C6Rjn+cXSN568P2L3ZpkSZ95GuYQOsp5Px5lf
Q2fSHfb5IjlCe5n/015fIxdOcN8SuZy21slye90tmyeS5/fN2j9Jm6vknEnm
eeRS2lgrC2krT9bbvV522vtXylH7edx/hja53+JvnDflCtr+Pqrsdsk2u/Pl
oH2eed/tXm3+AUIIXG0=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVV3c41t8bfl8SyQqRkihklKhIffmc57UyyqqMUJGMyJYV2SOKZFd2IiMr
m4zM7L333nuPX7+/znVf59z3fe7nnOdc12HTMVV+QYTD4c4R43D/H5ONhXV6
6QxRTrDL+iH6DTaXAvv3cHfh6ZVzTONEv+H404HsWpwqkB0y5kNVCTTuE8Wk
4/Shf9OpSlO+BDL/nmaMx9nA1VDSneO6xcB+40LrV5wXBHj12D6LL4TGohXZ
72be8NAKF/XApBBspP5UpA/7QBHLZet04UKoUzf8VVHqB56M+ttxjQUgXKpe
bwUfoVma9pLmUT4MTMb9jMCFwmP6q4q6lnmQyUtpHJUXCkzqIxtB4nngafaa
K94sDMR2Jhkv0ecB/650TOpwODDmn916mJMLrpSLgaWlX2BXktdh7zAH6M8y
/2cJMdB1e6+lIPoX5IMeSzjuO3y+EnXDmS0Lzsj8KlXT/Q5xk5Q/NrYz4bXS
sednar7DLVlu8rLmTLiuE/s91D8RxhQT01VcMuGH2yB/CMsP+K9F9uTLyQyI
qFIR/ySSCqWzG9rhv9Nhu/HbhHJ0KqSfslQ69yUdVLrWvWiPpUGQarLNtG06
0E0H1n/8mwakujTz2jfSocp9ikf6ajoc3v+U7qz6E7CES9lSRRnw3DaZ7v6D
VHjFI+fBuZgBa0FP9y6fToUvaRYqx1kzQSGtPcizKwV2c8q2K90ywU7myLVO
KwVyqp+KSsplQa5SoIqCWTLwzXyuEu/NBhuDPifdlCS4cIW+B7Zz4Z0wm9SM
XQJcmRIOaOXMA1K3+9XG9xNAOFbrru6jPKj1lHkkzZYAyme+//LKzANp4pWh
Y3XfwP3YncBG43z4qh617nzhG8z2P5XTHCmAs0r83ms9cbAZ6k60SF0IKRM6
JEmZcUD8ICn/LVYIKgxEd1N844C5dvVy3OdCOE5GmhGOxYHCL49js4+KgNGg
Jejoeyxkv08utqkrhh8LCmQ23jFQKt1sdWKnGFSvJl+reBEDDcQbvJ8vl8Ax
KofjD8VjYNIOiyhxL4GFoqI4wlE0MOm1vCb5d695uClwmH00oKi90Fr1UvD/
rK39aTsS4m3YlFQby+BUnEVjwuPPsGZKjngnyoAjfiLwI8dnEDNYu3K0VwYU
d3Ufjy1HwIhaJdl37nIosDNqz/OOAJY7hqWb7uVwrIRn83RxOITup18L+a8C
GikLG1ZuhcHkevj5l8oV4GIULLtKFgZCC64nMcMKmNIK27vfGwrtAw+nJkIq
YOW2wy16p1Cg+b0dKbhaAT+X96hqa0PgnQtQdST+gfHHzWJgHgw9dtz7ib//
gERw/nTc3WDgsqCdfdP5B+TIjeTVWIKhSme8kv1YJUwb+0yl1wcBsYS3o9XT
StglNbahuRoEb443z9MxVMHpWlry4/uBYOr79K+yWzXwLbxzm28MAJHzCuQM
X6pBx9vQ5X1yAJD9xGR6sqtBStll0dY7AKJbz1c/nayGom3Gb1fEA6CZqb/c
WKYGJKMpXizY+AN/olqBJ3Ut9IRMp3NYv4f929I7Mly1kN/UIcR16z3U/L0l
TEmohcDTwJ+64wfPlhhyPlnUAj4qX/COsx98FOrIiO6ohemgrlPin3xh9Y9S
UsHnOqBIyHvJ2+wDJSqEacfsOpBkLJbuCfeBd9P8lwkNdTDf+eX1znMfuEhB
8636sA5C69Pw73e84cGDxuh27b8wV3sTP8XtDdkjsmGLl+uhL05ULjLSE14f
intdzG6AJ3Om74Va3SCD93o+9rcB3K+9VpJKdoN5Nda5x6MN0Iu2P8W6u4FO
1r78J5pGqMh2FsGE3UDe4BfDsVeN4JfLt74S6wocrZwJExxNcC7qvnGDhws8
O6Lvxos2Qa61wXnt5y4QcYWYnOVhE6w8EjARJrgAjdfQKxXXJtitMu3/eeAM
+/+FCVYPNkGDUl5clp0zzLa667TLNcNgSlcO2nMC7xkHBx3VZpA68hvQKXEC
Dpxl0LJOM/SfSgo6cHGCZ1e1qyjsm6HWSoM8hNwJOr1EeSQTm2FJvrjtNpsj
lIlsrvw61gInM9jCvZ87QFiCvktocQswL6hw2QrZwvqJUbHzdS1gd5b3/DKR
LSi+0jwW19kCCtdkSjqabIDsppJX2lIL7MQna0++tAHbsjvvK9laISyyjuVY
wmtQ7acMX/NoBd5zwZym16whE3k/tgtsBZ7nwmFqRNZAFUfEfBTZCpWpwUcx
HVZQZbgVSZ7XCpc9pJyVHK1AaGs4nm22FRxwUlqULZbAQJudriDfBlGEqx7y
PhZgYc1n0fG4DWRehN7s07aAxu7EGxr6bdBgz9JbeMcCPKO+5ug5t0Gm/B3s
9YI5bFzxKnLMbAN+KW6RIhVzaL/7uCaZoR1e+B0qbN8yg0+OuGHSoXb4DaP9
8drG8JAvgefBXDuE7v0yUeE0BvohOevIrXYYaT2x6DZnBEEQSi5I0wECjK+T
5W2MIISYT1CH0AGRv78rewW9hDAfjXdFcR3AoW0UkDpuAGp38B2k6R2gq/aH
MSndAJjmEi48KOqAYFdbpVOOBhBxbzV7pr0DxBnFldgZDeAztc8Qw/FO4K8K
YBFR1IfI4Jyb5gadYP3WLNO64wU8kdJ8W2TVCWvZfr0d31/AhS18HalLJwxx
MagH27+AaLX7TyPDOyHHgx+7xvYCYs6N+/yt64SUY/QS+Ra6EB9zaojjahck
UFOLO3M+h6RUY5/elS548/1u/PbfZ8Ca8vG+8kEXsGvozQsnP4OwHzmn6si6
IcRamyr/3TPw/o6LyL/QDdVu04uvZZ+BXkzQj7D73SBXEP42N/wpsAcX/VVJ
6gab5Wq2inwt+PJpxL8xuxtILlWIN77VAvrA4w+lSrthr1n/hayUFhD7K/YL
dnXDW90zwoHtmjDqPT5PT9IDRjfEjKQ3NSD6DQVV27MecDC8MRRy/zGccRBo
lTXuAUfWMln5s48hwE4lpNymB8Jn5LIMp9Th7etolswPPTDx+oR5ras6PDG7
ee1jUQ/sxTsmMZaoAbOupqLCmV4wpSVmuielCmFyKYF/m3rhZZKtomTYQ2gM
eXh0p78X7lThlEqMH8Kx0X2jH9O9UNv0VPET4SGY296X9MH3gXqXi7j8/AOQ
/ba4JXWjD2JEQ8+tST6AvUN+rfKQPhAW9EpWOaEM12V7agXi+oB7o2L41pgS
GAS7CMX87IM4VoXvhsVK0M7bSu1c0wfzpuFQZKEEKWqW5aK7ffCCmFrz5Igi
PMn8dTlfqx/MNJ90eYYqQNCBVhDXy35oizCpLHuoAHXSx/Fhr/vhnttQiw+t
AtwaUul97f8Ptz6IKvKXBxqKbb+bZf1Qza9J+j7gPpS/uLP6k30AaN97pQ//
kAMOpt9FCXMD8FigVZj0P2mgzZyMFdsagOidrsabJ6UBJ0flM0g0CGqr+VWl
fXeh/43WI4azg1AzZLC+7HgXAof3FjykB0H3xFdCZJUU4BKFL7z4NggXsz4d
+2ggCYvwjASfMQjymm02ipgk9PV4zX0pGoRo/Vb55/SSkHOyK7e9bRCuXSMK
dS6TgFem1ooSREOQrv5gyOuCBPQKZbpcejoEcWipGc2KQU1Tj/7vl0Mw3ZlK
PfdHDH4Z4OU1Xg+B6Ezz3lCUGAREKJ799H4ImFNLQuNVxODu4WImUdEQhBb2
ifhUE6B39PSqGcUwUH0aLZXKAbj7Q/mSouEwtBquq+56iYLZ+f1enOkwtJvn
i3TKi0JEwLfADKth4JvGZ7IyiML86208nfMw5E/sbx18E4EA8cjhjpBhGFIL
Wy6v+w+6+2e+avwZhhwhnvSKy3cAr/jpEUXdMPhV+NRc3rgNPBUilMVN//yc
mxsWym/DmyT/Nyx9w3C9N+THl6e3gfW1oMbIyjBkrwndN/8qDAbULmf0L4xA
fGZWpSrPLfjoytPMyDECppc/z7gfCEHBRptXDc8IeC2n1pC1CAFFP+cWt9AI
vN5XPktrJwTpifUd8/dGgKSTDMfUIAjbhDOfLOxHoJ6txtnI/SZ4W/2kdOoY
gQy6sbuHvNeB5kNE+I++EVCjqFjsJbkOYd89OLpGRuCZw8to0mEBSOrVEOVf
HAGdL2885IMFoA7IXo0eH4V+Q877zsQCQEGpXS8lPArXX9LXNPVdgyDOe2qW
2CgESDQ3rYZdA2a4NR4lMQq1gtm8sSrX4Kol5f624ii8GVGQjmnjA/mefN5k
w1H4GmBhjW+/CgHfaH2pP4/CLe4OuYcLvHDm9wGDSMwoRARypuZm8kJ093Ss
wfdRuK2meirElhcyTv4uKMsahax31X2/SXih1dxo1rJ+FCaeeZQmc/AAPfZH
pvtgFKz4ZYooHbggrNOaLObZGEwGVrInWnPAfghry3O9MVg/6p+NlOOAZ6p/
wzmNx8DklQ/ZNBsHcHWz8qbYjEFWfFqVSRM75PX8vZ/74d96F5YtET526Opn
+9RQNAZMyxyaj3Yvwp2v9RoB5WNQ1KoZy9VxESK1bNgf1Pzjjz0tkEi/CHqD
9b+628ZARkOR85H+Rdgcsukemx0DIQbesOpuNmAYazi/e2YcBOgupTnUsIJ9
nO1kEcs4nNNS9f78nRUGn1/6+ZZ9HOT37Wv2PFkhYdwWSPjHwSd3xdVBihWE
Ji89p7k7DleNumLaAy6AyoxdIqf1OIyf16m99fM8BC9x3HjQMg6M3LfSdeEs
qKnQNn/sGgdKbLEkmewsMBcfGjcPjINZ0Qy9YQsTxL7rSrg/Ow513m4pYrpM
kMbhc1aaeAJWT+eEqPifgRqNebyo4ASkTzs/4N9lAN/y7kiH/yag9iZJyMta
BpDnrvyvgDABX/CCTynCGaBj86v1LfkJ+BFodMbtNgOMflSYEdCfAEMiQX+O
t6dhrzqzmTN8At7Pv/jixUwPJXxRr15ETUBTpxh31woduAb7ksd/mwAKRpEH
LtV0QPZcV4ItcwKeDPx2GrWkA/rD03nn/k5A2TuJDxXNtMB30y6K5uCf/u9G
k2cRp0A7GpnsPpuESaJr1LHNVNCZWtZ0Tn8SruutK7wMoIJ7heICoq8m4e58
s26eIhUIdd5df2s3CbyP3maMtFICBYWiPUngJOwpfh2THaCAPJtnnjQVk/Bu
S0zS/8RJ4PMYnRKonQSWGL1RoRZyiAvUlXnQNAn955PmHoSTw4dUA4qQvkmY
HfhlPstDDs/HzALPrU/C2mTFMdMHJ4BKwSWSk2MKnv2wekKeTwrumsQ4ad4p
eCNgcjfCixR2DD20DQWmgLbf5NZHFVIYd/dhTxGdApNj5m3pG8chv+DjDwGV
KdCUOpyPEj4OupyxOSJeU7AsKV78rvkYFByUNyrPTIHO8tkRBXEiOJl57BX5
0hQ8EOkuarxABJp6UifL16fg5pBnZOA+Hg4ba+8K4Kbhi+OhxlQOHsSjm0up
GaeB03pCKYcPD/Vig5n1EtPw2Jhtz44HB+e3Lii5y07D7wOzNxQncWCSrL30
n+I0vEp8dzWv6wjR0E/wJmtMg7aWn6225hF6ODEX72MxDWYnI8mljA7RgNdO
iFT0NFDVX/cIiNxHfCL/CR5+m4b2xSeXF/T2kfPym7ZfydPQfzF57de1fXRR
HUfDkTsN5wRYKrzL95AeD6kPceM0tAR4xTAv7KLFenqH0r1p0CC3Crj/aAfh
aPmf3lGdAY5CvYdxxpso3Tir5ZXWDLzM7mt8IrqJnlULScQ8nwGSmW9zjlSb
qOyNKDeZ2Qyou41XjmVsINcp2bUO7xkgnP1tdutgHZEUv/AyL5gBVdM/eQrf
1lAO48xOfOkMLA5EBk86rCE9C2Pj7qoZOGV9r6hdeQ1VXbZUQm0zUOmRQpaN
X0Pegc7nKOdnAIVZ9b98vorIDT7/TDw/CyJ4FkFWoRVUUM5ysf/SLJyuuPqj
+9QKMjofG0TNMwvZPlfDBhaWUX1rot1roVmIVn6nUZewjN6L5ohLKMyCrNM9
ARbmZURD19I15DwLPGUcv5S4FtHpkuM4xvFZGA+cVUs3mkWxv2V+Ds/MQgLx
548Zt2YRX5nfkx9Ls+BGFHqe6dgskvpDWyy6Nws9Z96ePBM5g17Xsdjr0s4B
j51V+O/OadTZKbSeAXPgr8otQvl4Cul028U5SM0BKKoFnrkyhRZ7ipQl782B
ANU5dafDSXR8QCyjW3UOBEX+mqvETyKhMXmTI5M5qGqcTeVYn0AhS3rT977O
gQNZRERy3Di6uJIUyhA3B559ZjaUDuMobXVeajhx7t///6P4b+VxVLVh8c0y
ew4CzyUI0hCPo809J52Iv3MwY3wxTEV/DKmQhfZP7czBJOPixIroKGJkq252
VZmHu8SaZS4XhhFRrdzDGs15mCpAjZK7Q2jRrLmL8vk8DF3qizubM4T+lPYM
hpnOgxSZBpXNtSFk8Wx+Ps17HogaVNV6uAZRfdSpE30F83CwTlOMBPtR7t0Q
P9ayeaDWdqk8v9OHYpfO0uhVz0NKMN+hQ3EfskPsjCtt8+AdYFWcfbcPcQ4J
cZAuzMP5Y24su9q9yJlFk3DjwgLQ653eWk7pRkZVw39sORZAdaa2QsW2G6mY
vJAu4V2ASsHrWVckutHVEhMFGeEFYAmfRxwDXahXy0XrqdICVI/dNrhG34Vu
fk2w83VbAJ2eF/vDwR1o+txKxtjUAsh/vao8MtKKPF+e3D25uAApSa+cNQpa
0aV8DrGb6//8fVUMuD61oicqj1vdcYtwtL6ckSvZitoDKlY5mBbBn/lDUHha
CyolCblhILsInSSpKr0fmtGTh+kOAYqL4CqtuCNg3Iz2Yusq8lQWIfReCWer
TDMSgqMHJ54vgv3iQMUMSTNKsTew+uGwCPyXf1r8JWpCYUt3fs2nLEJXlwk7
O3kDEsIeHdBnLcL0I4psjYZ61OZnKimavwhasvccaT/WIyqe+I73lYvQLJcZ
vMNUj9x1KTf5BheBluRA8qPAX2TWMyRkTr0Ev2TW68hsatHdCve8DfMleOx5
MirwYRUqzXsimm2zBMshFEfrXFXoTppwuYXjEpTQ1/inHFSiK+Hzf5e8l+Dy
6IXkM4mViMb04dBM1BLYSxZOtOIqUe9Z9uODDUsgvPpTRaKsAj2gOXz3pW0J
znJl2KZFVKB6km5qjZ4l0JS9sv3cqgL9XvZl6h5fgp2PQxVpXBUovmrtSuve
EvS4NhVkBZWjW/kj3GP0y7BBcvU8zr4MrWfJG5czLkP06+NvBlTLUHpaYVrM
2WWwVuP3OhAsQzzxwTeesS6DoYxfBPFaKWL2lxEd4F2GqCiRX0xmpQj3IkOx
S2wZPgnTV+DnS1AdjYvNX7NlOJThxJ/QKEQ5g1Tx05bLsMvH+OUCWyGKTfnS
TGKzDMdrHjSn/2sKB+k8bnBchlC95G3sdQG64rzUl+2zDCECU0aLYfno/ZIW
RMYuA4+yW3nZWi6yL54zLvy2/K+/nfooynKRnq9deHfiP/xl/17Fh1yEXQ5e
pf25DEPKumkmvLlo8Ul9vFfhMoSX6pB8N8xBio13Tpi3L0Pb8Ez98HY2EvlS
I/ihaxlAJWvavj4bcb1U0UnuXQb/b6REltHZCH/conBi+F/eR5R09jLZKFM0
6dXjhX/7ecWo3BiVhehTGVvFj69AGoVj6IxmJuryXY9gEF6BhKxRdkr6dHT9
6ujE4Z0VGCJp8PWc/on8Gpv4p0RXgHY2y9ks6SeCU8lVueIrkJq4GZt/5SdK
DNFeVVNYAb/FHtrjt9OQbUyjzGe9FZCnFSTJ009BrWJFQW6GK+Dzi4fa/1oK
ujKeNGRkvAImzNNsHVvJaJjTw1rEYgUC9xU3fvgkI+mU/2IGHFfAgkSg8EXm
D8SUm7h9IXgFDJ0/PnvGmISs1ELEycJW4Dd9f+qfiUTUuOP2YTliBY53N1D7
ZiciV5Gn7GXRK3Db4M3J/x4kotmy04o6KSswMkFPThf8HRXUu36Pr1iBCzO+
nHieBKQxqqnCvboCwk8OXamC4hCVajAx8cYKNDP0HZ01iUPlfxvS+7dW4EH4
O0pz6TjE9Qs7GXCwAtfPUsVuHcSidS/W0k2yVeitf/L4qXEs+nB1nPvPhVX4
T86rnk0lBhFimbu+XlwFbwv9es+bMWid4ZG7Dccq0F0LWr5CF4Me46oGeXhX
QXs5PfVOSzS63Pb900ehVaCk4dGXV4xGpbZGB0/ur4JGp4FHb1YkslyI+yGs
uAqFF+6Wq9hGIk6dflXaB6tQvf1JU0o0EvnJ3c+sVFv9169JV97UfEXqLNf0
r+iuQvsp3ms841/QasVq8479KhDdKypvv/YZcVDbxwclrkLGSxfHQdowRKba
9l9K8iowU8bnig2HotnIK20VaaswMlD/6FRaKErnG8KvZa/CpdAXhFnZUCQi
L/FUqWwVFE5wtlr4hCDl91RnqXpXoUxjy5+dKRgJduhncAysQr065/m6+SB0
5nyZtOjwv3pQ4qfrS4PQQIqljfHkKsy8uss1ZRiEDOq72+tWV0Fv9+ld9dJP
yOlknL/XyTV4bCdZFOAYiLQf7HNGUa1BnuqD9AyVQCTx+VFJzqk1CE+o0mDn
D0QneMkWJhjXYJSVjXd/7CMKkn0lK8G+BnHu3befK3xEP3xukeBF14AnoADv
fDMAdZHW29ubrEFuDfnlt/p+iOuSB7+W+Rpc/GZCWX7ND9li2CSyWoN4vfcP
LbZ90VnrdCUS+zV4kX86hdHXF2mOBnEFeKwBGn796smvd2ikSKvz25c1uJMw
0c913gdd72bw845aA6vnDr+G57yR61oTwSh2DfSsecR3CrwRO49YKn/iGlhI
XPeWeeyN9EI53Quz1uCNmIKy8lcvNGe+JNBStwaX7fiU9G56IpH3iVNZDWtg
2fkspo3ME/klan8NaV6Dk39qLUIGPBDfUBuZZucaFHY922Py9kBm9/KGJkfW
gPM2WcTxEXe0wenyfn97Ddy7vDpnYtzQUR/tzOXL61DC9GI9W8MFOdfNe0vz
rMNnShWmBiEXhMuv4jK8ug6WCh9+3aD9h0PsDX7cWAd/36n8mVpnhFccnboC
65AhkXViSsQZEf/JmBRQX4fjXtl1t7SdkHumr6ey5j/9SFfHaFYndCzmBafl
03Vg09BwDxx2RMecmPSyX6xDcHQGjkrHEZEIu0wIWfzTs0Ga4kZvEGmK4vh/
vuugm2EekB1sj7wjeNw1P6zDeZKyZj4te0Tmc4zd8eM6aPY5irJx/MN6ec9L
QtchvkYj+mWOHTrByjoG8eugTiHBYjVoi04GLY1IFq8DpwqpzHtxG0T95sOQ
wtI6VLLdORauYYWmRbNGtFfXoYyH/oBJwAqVH3WNWW6sg7KcR/LacStk5cY2
Hbq3Do/sdyTTsixR77vs5SHSDXh9J+bDlVOWKD68F2/GugGF/hrsWX3myEnj
iNj10gZsU6wMG+WYI9Xz7MeDODeAEl9mYvHRHJHHvCLPu7IBFvNR1nrS5sg0
EUeHu70BS1s9Jd35ZuhOLid7gNIGlFwcqy9+aIro7eQ4Yx9ugFy+a40KnSla
uGPGla26AX1ZYbK2rSYouiT/SrfWBqxJuJkpKpsgkqp7gqwvN2Dr0VSikNor
1NxuIZXuugGeYzMqCw5GSG+1xKA5awPC3tSeJ2M2QKle4j6pORswL1GRS7eg
j9aZa5Le5W9ARvPVP/Yl+sjtbsusxO8NqOSSe6Wmo4+iv4wZ59dtgIduai+W
pod6pMjMY0f+8eO+wiWVF4i13+/j2/ENOOhhfxl85QUyMD+VqTm1AQP3nVzU
iF+gzc9n1xgWNuAWh96xpgxdRLtyxdp3ewPIUoYNjGl10b3PSnZW1JvQQFo7
Oz6igz7xd4Yr0W5C+s5qJEuxDuqtfFzAd3oTMlOIV6PCdJDh8vO96bOb8Lt0
666Nog7ylHztqMW5Cf1EO1mGFdqodCnCRUp0E7yvXl2d/vUM3ZAY9zljtAl6
rh90f3/SQj9SfIJumGzCrExf0b1HWoj19LUoefNNCHmWuqjFqIWoJu2y3W3+
zZsneJF+1USzXtRDy26b8I7QlqyepoGi/965WftlE+oSpOZOTasjxpvD2HjU
JtgfUYg9zVBHH754yBzFbsLVzFenWR3U0ZtXzU8EkzZh9XGy7ja1OlKl1vOJ
+bUJzXc9bGYwNUT14OOgXeMm5F8Y0ybKUEEehUIzQS2b4J7T7cTkooL2L/Wv
/WzfhOj76hXBSipoZp3zxGTvv3yBliYFa4/Qn5CiG8pTm/AlifvpV5FHyKF3
ypsHtwVbZNXNjMMP0LQ2dqNPYAvujMdSfDNQQg1fxTXLbm7B6YuFS8pSSiiz
R9rj+60tIB548EaCXQk5KD3oshTdAvYFe8flYUVERTBwoJDZAhrV0RotLUV0
gzWwQvTZFvB6Ey6J/JFHZzRD5y8934ISB41XQV7yaD/0y2lyvS0IfFklpysn
j6qov+t3Gm3BYu7zM/rt95HaUeFJU5stmCswCR+au4ecBiceRH/YgsmDHomu
a3JI5+zcG8+PW3C7iP06tiuL7qosfzMO2gLNi2R1VJWyiKZxd0s4YgvIPBfz
ZzRkUVwx9ZeWb1vgIZ4raPZBBtV8uT1OVLwF7WU9H08dl0Z0Gu+tXsxtwajm
Wwm3O5JI8eXAkcjiFnQsgafDKUn0we6qL/3KFsCQw+mKaQlEHtYQU7G5Bbb+
xnmiYRKIqIOyiY1oG96/XAlq3hVHy/IfuAfPbMObR8ffzDeIIb4ng9m/zm3D
wED9zaAkMWT8ig/es/zDlCVXXD3E0JRvo4oI+zYIWtEU8WFiaLCGyj3i2jbo
xx6WFGYSUL2Y/6CK1DYIM72pv5EIiFx5yJBPZhvWJlyJibwBSWtf2yC5tw03
5S5aURkAqnjbdPKX0jbk6eMvDnMBKiiivk2ntQ1Z+7xuWY8RShQK+NRkuQ1L
d57tubqKIg+ej9LSMdugcLGrs/3SHbRKQVSiFb8N3xjeNR5fuI2eLVncsPy+
DbhOu9TknNvoTvZDlsjUbdiZM3wqK3cbLYueWV/L34YrqeG/yuyEkaZSVFRU
6zYgm+k3TbNCqO4GzelfHdvAPdF0raJACN1icHlX170NYTdeRp3zFUK0fTrW
G4PbcKsv2nDrihCq1uWUk5vbhj/Svvvi1oLoum3q5ibxDuRqdvO6MN5E0Y9Z
jClId+BtSqma9sINRCnqP8JGvgOO7xc6wytuoGm8ef09mh0QylgaozG/gb76
3oyNZd4BL5q/T4ibryOyqML78oI7YJOjHPb0qwAarKyN/6a3AzFHb127R/lQ
vkOEsKfhDnT+3hAzTOBDQQJG9XrGOxD5vF/c7CUfkvtKsX7ZYgc8Z24bDaxd
RXlWCuI/HHcgzfeq2TmKqyjwUsdIWtAOEB+qr+gq8aJXPd+s/UN3oGYDO7Fy
jhdJ+78+YRaxA5O58nkTkzzoaJdRQCD6H19w/AeJEw8ybn3snJX8D7P7jZzI
4EZSLsMseeX//M1fvrPl5kJstzIywyp3oI3V1FFg9zLan3eRsqvZAbqKp6tS
fy+jLLVLJncad0BO4Ym/u8llxMqvV1zUswPLThyst/I50e7gnEbZ8g5I1248
HH3CgdJEtsLqWHZhKdV0smfyIsqvnGaYYduFjw9kBCtLLqI/8r1BpBy7EHOj
2IUk9CLqfVYcIMG7C6SvqSVcpS8iEg8375Jbu+C05n1a/Scb0mygts1U3IUT
ftjwhC8r0lfBbzY/2AWlT8xFTQasyGJo1XJJZRcM7podEkuxIu+VDtMrWv/0
o/JABs+Ksk5/0U8w3IX4ERRmtMmCyJ9wqUa47sJWA7Ps5W1mdHqKqSPPYxem
gs/Y5xcwI1azkw+6vHdBu05rvsGRGQm5LsrT++9CpbOgjB0JM9JOyJb68HkX
umjFRIvOnkN5iyDkmr0LT+sFz1BqMqEXb9VPv5zchXXXJlamGwxosO9HxoOZ
XfiP6YUwGykDUhHevy86vwtppRovnPtOI+mVSE+a1V3gfNojT/A4jXiej2/l
HOzCKz7hzoJ+erQsZdpLfHoPBvKT4vcj6JBhXOnrBcY9cHg4dorLig6NHp2i
6zq7B8nq6vrR9+lQW1623A/WPcj/PfjSGk+Hcnh2ixSv7IEkNZl1tDEtekPl
EfVVfA8WJ8fUHRRPoY2Xnf95Se3BQu6cPj/fKWRSfbnbTGYPttTttLkpTqGn
znU0Egp7UEx29nC8hgaJrVK7zj7eg18sq/pWkjSIrDNC95bFHnwujgHSYCr0
6Ws6d0v0HtjOu0tzEp1Eug33uFLi9uAud1VwVgM5EjqY5vRK2IPOLr+ihHBy
1KvJxi6asgeTBDKXwuvk6CJzIEtS7h5E30iK8TE8gdIjLOlcGvfgutb4BO0M
KXKto6bVbNkD3nZZmfgCUvRwN5nmVvseSBQ5dfn7kaIt9XHKhZ49SDNF+RYC
pAhjekSmPrEH2X98Sh6+PY4aQoUO+Pf3YFOLy3iLhwRFVrfunTzagw1jH6wf
T4LMtkx2J/H7EOR+cpym5xiiV/2+9YV0H7QjAkX1vY8hTYYzq2R0+3CxZfxt
7iwxmg3amRzm3gd7G7ZE3WIiRBpY1Bygug8fOPr+ng/FIbJgu/ykx/vQdmIx
kM8K9++9F4ot19oHiejxGW8lHKKITLdcf74PCuFcA4yUOET7I55BzWwfpHeI
TZmpjzCWcj/NCz77oN5+xyKX9gBjrZSRFPbbh7U7hOtvO/YxtprjfEr++3Au
ObSvOmwfY290PnIN3ofDuNi0LtZ9jKfXKnYyZh+GeIQE2oX2MMFVzenUgn2w
va4T9MRuBxPaYGqpKt6Hp7IzxgXiO5jwdmf+UOk+kA9Y3/ai2sHuHCr6nqre
hxZv/h3Tb9sYkEvyWbftQ0RjvY9u9xZ27+JVK5H5fWCJhG465U3sufLBUd35
A1jJKyjN+7CGtXKdJf3JegBdNQamUgZrmNiRENWnSweQaa6ceUFsDWNNMWPW
4D4AmcOfcZmbq9ggybjw3M0D8NoY/E/2+Sqmll9nfvLeATR/UmP+I7OCVftP
2S7JH8BFe5Ke6ssrmJDeMec2pQOwbOnVpTq+gp2mwz58Vj2AftIfA9oVy1ir
ccYP3ucHoPc+SJCesIzdYw0bk7M/gHbccxfzgEWscDN79prjAYSmS1JqPlzE
eBpaVuicDyCtRSWn6MwidsL+JK7f4wAWHp4o649dwKranJiNPx5A9d2pcqei
eQy8XjzySzyAkExbK+9jc5jg4vXq+s4DWP30Znh7ZAprDzXLW+w5gEr8nifz
zynMgpCWRDNwAKM3fjqmvJnC0oO4/R6OHcBj171ySqYp7Mp/rEr9SweQUOM5
W6QyibF7U/bNkR3Cl79EqZQT41iFgFw9JcUhhNPz3f+QN47p9HkXX6M+hJfL
Dumv/MaxaL5j0ZanD8E+aC1CUnAcO9exq7vHdgiG4YWPJHzHMNqL04vk/x3C
lF+xfsfdUSzjL8fwFewQ2q553pxiHcUUrZ+3yBMOQR7pzMjtjmAfagazAu8e
wtJBgOzJtBHshGmH7dmHh6C2h9uSZxrBcEXlRDyvDqFlOZ4obX8IW3r0lUEm
6hCcC/grBfb7sOlWjpeasYcwTPy3LrWsDxtWSCs2/XYIFqR/eeK9+rBmmd+6
IcmHoN5YtL9H34eli45kjuUewjhrkamIYC9mxsGh4NR8CIGrU8a8vt2YQWxq
7Me2Q6hlsI7uUe3Gnl0Q2ozvPASR7rcX19i7MUWmu1//9h+CU+CLQN3SLoyf
0nDuzMwh8KpEn+De78SW11O8svBH4KJVp+fo2YFNmwv2VR07gsVNvKiDegc2
vFjM10t6BA/Vna91XenAmqcbO3BURzAx2KCa0N6OpfcvX5I/ewTL82pBflzt
mNmfm6XT148g+PjVv+3Drdjyp6Lt87pHkJfEzOX6oRlTGY9/ua93BB6yb6Nv
mjRjRTff9/caHgHH1oULnPLNmHeHVmmo6RHQZfBL/KFqxi4wHnmdcjiCLlmL
2d8cTZh8BIGRJPAIEupuPtK814Blz3L7jAUdgUyEX9V1ugbs7H+0e2WhR2C3
n1Bi21uPTfaNDjp9PQIGR+NBhZf1mON594TtxCN4TfLchs7/L5YSXSU4//sI
VoT0rt6Zr8VoV9K+15UfQerfuuCE/FrMlhDKlFR5BGbIL9naqxaTGNU/ePH3
CK6vuQ8Ks9difZdOVA51HoEEmeVPTKcGI/8u97Bt4V/+G2w035eqsGwVg9sD
lDgCSyVFII/cH+zttLG+ETWOwNaIj0SsfzBZe/PgHRocgelEzKufGxXY0Ff7
ldP0OILZiW/qX2IqMPIJvyT5szhC5JZkbchBOfbMMoOplBNH2HONFDCpLMN4
SXLuynPhCFsxoYPdUWXYZkiBdT83jrAqyE76yb4M8y2oaNm+giOkxu7xrvGX
YTn4Th+BGzhCg+9gnmJMKUYRsLsTi3CEoci9ppkLv7EutqPLAgQcQfmrzDLD
YAkWm0Ws8lsMR1g4cpds+lKC3eqiyOyTxBGyS8K2+s+VYDosF17S38MRnIiZ
hu6xFmN5KeK9Hmo4QqHecqgPoRDTrfUrMDDHEY4NttSKDeZikxJlNv0WOMLA
T3/lCz9zMYPSjZuKVjhC+MD6mppzLmaU++TnLRscYZvlZ+zwpVzM4ht//HFH
HCFE4N38VdMc7K1L+/t4bxyBLikwjJPhF4Y7IJM78w5H+L0g5uYyn4252oqS
+fniCKWcp1L5KrIxT9MEV8sPOMJ/m36CjubZmJ+WrY1YEI4Qd14uvqclC4u4
zaw9HIUjMMT9J0UWk4kx/1JkeRiDIzRHKSaLvsnEvvJ79FXH4giDt9PyC1Uz
sejLi49+fsMR0q9pBvtTZ2LfT5fKOiXjCHzvc/o8XTOw7JXnN5lzcYTQsfvl
/1mnY01JyaRqjf/8SurPGdGnYocfSF7/acIRfLu0fzL3p2BXrJ6O87fgCF69
t2T+i0/BvDG6shPtOILcQpdEkWAKBm329oU9//TnDhNztJKxzH2ZBZYJHOH8
9mR0f2kSNjwSp+E7iSMYndihOPqQhFFVH9RuTeEIb7+nHXfVSsKMPmYkNM/i
CPt8kXkJe4kYOyfTM9dlHAFXrbavIpKIhShMt07s4Qi/eoXTcxoTsD83xQjK
BzjCyeddau9jE7BVpi8/Sw5xBPrdNLf81wmYwriCXygeT2i8fOwvNWsCRmaX
KylDiicY/i1Ujn39DbOP9cxLocUT8PP0He3X4zGtDfZIS248waw/dlxtLAZj
l/DHH/HgCTzmgzPVxTHYbOCO7rsreAJdmFObR1gM9pq/kTfmGp4glhxQMicf
g30wsslvFMQTuMs3uOV/R2MlI7Xt3GJ4Qu/+9aQqjSjMnf+m8C9xPOHz/qfc
OaYoTPZt5GeQxBNe6JLSfe6OxDqZLXVUpfEE6qUy7iDVSGxRlXnZXR5PuF53
6XuzxleMpdHk5PBjPEGt49q685vP2Dhzj4mRJp5QgbbKqsU+Yz+MxFs3tfCE
jrL9Gq8TnzGhE2fCKbXxBJM1r3emYRGYvEQZ53/6eMKwAqlneWE45lRAJxZi
iSfsLjcoxjKGYUMJebb3/PCEHDpzB0qWYExzSNmo+D2e8KZbLjFxPQjrZlzQ
4vPHE9iWm7aD/gZhrd5s4jSBeEIo6vN5Yh+EVb18R9keiidcWBlQju/7hKXx
acZqxOEJ0es8IdYpgRiv/mZQfTyeoAq3T/R5BWKJUQFeogl4gn/qbRHv54FY
LE2l8YUkPMG0OzA991wgFrJ69dZYGp5wZEyRreH/EXPKOfr7suBfvU5JfhVz
C8D2FsNL+grxBCndLJNxnQDM9vLNjHvFeMLv7x6ZlWIBmEWYQQhfKZ4gM9YS
LUEcgOnZtzxbrcQT3IjTLe5T+WP3sbgNuxY8wTNPtfPyzfcYc5XUBZ9pPIHK
7YiGqM0H4w5N32WfxRPK877HeUb4YEIGZztL5/6db3j4b08dH0yJfNFvexFP
GMdGNDfWvDFP+eBd/Q084XRv/zVTZm9sqXOsQ4qIiHAQcuPruqsntv/9fsYo
MRHBtDroeJ6SJ0Zul+vnREJEeBuoyzrF6omxn/MVzyEjIoSKXct3L/XA1J5e
z+CgJiJU6ty9E3/MAyufcvY7xkxE2LIlSk+PcsOa8mb1o88TEaROq+Eqrdyw
fp+H4iIXiAjfxpL4b8m6YZu8XLuWF4kI4uEFBwKbrhivWZP+GBcR4TSDmJiR
sisWtH1evFyQiND/5FQN4ZwLFlPrxfLkFhHh+Mbd4K4NZywtYmVnR5iI4E7/
89bvZmesVqQyXUCEiHBJOlHAxcsZO3Q2ZokRIyLMnf7tZ7fyFjup3LkjIkFE
iFaO3f+c/BY7cwk6uiWJCB5xWv+p6r3FrlfS+dHIEBFGAtWWAgecMBTiqJ8i
S0R49DqrmSbCCbunPyUmfY+I8MeLRv2iqhP2WFiJZfw+ESG4zEmyit4J0z9R
uPNWgYjAb9n0aK/VEfsfNA86tQ==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40784.}, {-10, 10000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7778079099686785`*^9, 3.777807978426996*^9}, 
   3.7778083612091794`*^9, 3.7778084908330555`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10000"}], "}"}]}], "}"}]}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 
   3.7773605967737846`*^9}, {3.7778079905782056`*^9, 3.777808079986645*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "6177.7567058977365`", "94.67046829104791`", "65.25537284663362`", 
      "5.507813018389194`*^-99"},
     {"Tm", "7480.607580333874`", "162.54353890037402`", 
      "46.022177386693166`", "1.1793609252430146`*^-80"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778083613029003`*^9, 3.7778084910574512`*^9}],

Cell[BoxData["0.9853848889789286`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778083613029003`*^9, 3.777808491073073*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1E9Ik3Ecx/EH8SBR4WGEdLLwIJ0kPHZ4iB1GhCwbZRa2bJpYpNkqMbMn
s7ISWmYWZrFk1RIhs0Wm/TGzMvu3bP3PnOZBOkXsENKhP5/3c5iCvHjz+/2e
72/PxEXFFfklKYZhWH9//6mfYvM/v29LY5/svyWtRlnTL82Tcv8NulXO66HP
yZ6IzAzKWJcMdsiJ66xfkkV08Ir0X2W9Uy7oZp3nlGLmNTnJuSj7ZlhP5151
Yenm3gWXZYB71rMevSk7QpznPaRzT3evzKMDvLeCi5zv4z58zvQ7spV1911Z
fYHz9+R8+/x9mcF7axyQCd5r9gPZdF4O0zntsmxQprE/7aHsbZNhuv2sdA1x
7oycppfRjY+kk+85+zGeZj7tP8VznsjaZuYPyy7Ww3Ql7XoqN/B3NU3PpRtH
eB6d/YznnmD+rC57LjPotBcycIz5tLuJ+S+ll56m48eZ/0panHdEmXNU+mjv
ERmhK+nU1+w/LD30MB2iuw/KBB08JJ2j3LdettAG+6doF537Rv46IBvoqCVj
dJjOiiW3nzbq5BCdQzvecl/+T/jogb0yQpusp76T3mrpoQdqZYgO7pEJ2l0j
ne/Z75ctdGCXnLJ7t8z9ICvpBjrK+RhtVcmsj/IH7afNnXx+2qiUjk88f4f0
0ZnbZYQ2tsnUz3S59NDBChmivXSCtsqk84uMb5Et9ADrU3Zvlblj3If1Btpk
fmwseX/WV+6zSfppb6kcoo1C6Rjn+cXSN568P2L3ZpkSZ95GuYQOsp5Px5lf
Q2fSHfb5IjlCe5n/015fIxdOcN8SuZy21slye90tmyeS5/fN2j9Jm6vknEnm
eeRS2lgrC2krT9bbvV522vtXylH7edx/hja53+JvnDflCtr+Pqrsdsk2u/Pl
oH2eed/tXm3+AUIIXG0=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVVHc0Fv4Xfl8he8tIRvZIRFLxfu6LjLITKiN7lhVCgyIUypaRnZHKygrh
K8reO3vvvcev3z/3nufc89z7PPfcc7lMHbQtCDAYjN6/8P/82V7adIDeBtnf
bqKt5ioBd+6woQOMEijd6Z8cPSgGYuO/hX8wevAyUV9IpqcYWg4JknMxVoCk
SGNS3xZDfiMjUxrGHd7L+S8J7xUBjwRHRwLGH6L6Flo7h7/D3+nUb7GYaOht
jWLm7yiAfGFK+8SSaFj/FklFXlAArx3dBNIcY6A+yrSPI6IAxPaVk7+MfoCr
jre/D+gWwEvK5bCqqnjI+HlJM3g4HxhY2a67QDL8XIyxSt/Og1KwZP+AyQBN
TS2xAqVcYFb5XqVvngE3GCTcsSK54KZFaMb8OwN8Tj8feE6TC5dMUzKi32XC
SV2IPXnhN8h+NSwWxZ4Negrs4Db8FWLrdOXDZb5Aq5nZdwKFL4D7xF2oWJ4H
HFJdS5tq2fBQ6JYf33IeUFHaFl/myob4r866xJz5oOcek1izmQX7RdW7v17l
Q0RDRl1lfBYU1RvL3rhVAJOWjV6XVjNBdC6uTn6gEG4ujKbEpmUAhwhDP+wW
Q9+4FYM4pIPIjPT7Dr4ScOmmpXvEng7SKYZK5ndKgC9JsGD0MA20mTO+++eX
wJ2hW28tytLAl/BaWIt9KZx6a2M6eSUN5oeMbxmMlcGPIvXuRzKpUBj8ucK9
oQKSWJM5w2ySoUq57THpXgUs3HosO6uWDM2ntoTj+Cv/6fFWs72UDNMeuNhK
30p4kW4ttnaQBCyW7W5E6CfMXnrhQRCaBCjxIPrP3SoI0s52X/VLhDR3Li29
lmqw6Zob+hsQDxsOZEh4qhqc2Pb07AziQc56Q+TkoBo6lpaocGLxMKb/iyRD
sAZqy9t88vrigP2aTdW2bw38OjzsqxWJg+jD3ItR1/+DqFs3teXGPsAbH6Dq
zqwFe8sbG6NPoqHfQ/Aw82ctWH7M5tHSiQYBZ7r5pz21oKb4VGX/YjTUmU7+
4iH8BQR1TOTbM1FwSiHg2WPjX+DQyT4UeC8KnhK3LdKfqQPC8JHhXpVIcHhr
3Kj9qh52KgPU2tXDQeacBtmZ+HqoI+D/JCEaDiTfcCr9hfXgS2bP1EwZDkkd
5+qNp+vB4gWuLbU5DNpYhmrsVX7Dc4Gn4T0aYSCWqV/2mvoP+KYMsZwyCoX1
Wq2ssrgGyFAbYVPGvYNKXfzss8IGGOFQJPQhfQdvZsX48c0N0D92k56+OwTO
U9Ck1x83wEOXanV4GAK3b7ckdZk0AmdhPuZbcjAUjt2MWeZvApYttgwj1iBw
O5b3P1/YDEtTf23llAIhT/hSKa6xGXQ1O9gsOQJhUZ9z4d54M2zrRmf93gkA
04JD9XCaFpjS/FGvnBUA6tbfzxA+bIExsucWQtQBwNvB92mKtxXCh/HhHNOv
Yb7D17TrVhvMTeYL3670hYA5Ly9TvTbIWu/3TkjwBV6MS8SqaRt0mvLZnn3m
Cw8umNRReLaBOPH9wlwZX+jxlxW6kdkGP98omkhXvoJqme2174TtcCTW5e/e
8BJiPln5RFe0Q31tJmkWkQ9sko7LnWtoh/72nqsRs96g+dCAMLWnHaaEKVny
Gr2BRFLL/+tKOwQMxIc+D/OGJ9XXgn9xdYCCP62i8Xlv0Bui/LDh1wFeuMia
0cjncIauMFdDvROQtmCYuacXOLuKOnff6wR95cvFzre8oKUvU+K+VSe8TKKl
aWfzgteJCUWW3p2gOEx97WmVJ2yJ+Jc/y++EQdPWz8/IPaFL6d7vz2e6oH8w
vaf02xMIf4YZPT3SBQUPRWKyL7iBjugnodsLXVDGWbruRuIGDCO3XD/udAET
LXuhz4QrREA02WWabqC86vhHM9YVok6JXjbFd0NQ2L3tP2SuEBN4/015ajcY
k8zebNt2gY+RRZJO1j0Q8JCJJmTXCYwUDV6UP+4BqmB9PpsBJ+DYwTac9umB
IteBJrdyJ0jSVzP++KEH3jYsugv4OEHy2cnAxoYekPK7dX6IwgnSkmlHeC/0
wtv8M49kLzhC1hf7wIG1XliO6M5+z/EQOHNC1bSPesEvOLL0cM0eYrKLaBtI
+kCPN5Utt9YeAjIwsaUcfaAT2sa1YGsPlskR2TFqfZASFnruU5kd8ESWN+pm
9cENMtX8dktbSHpKQdX5oB+uzM1/ubhiBcxe4h037fuhguJDetkfK3jvoRtV
494PcaFMMt5pVvDCLYk9P6QfXjaz95beswIjR8mLoeX9EBlVPjL0xxLYzA00
NZgHgCMvvD8i3wJibuWENbYOwNNXAkTPPptBS5TOybWhAXANZJo998YMCMcP
7bJnB8Bu/azNjrUZOD1RuxGIHYTuuy2/tPnN4Gb68o6ixCCM6vK+T/pkCgfH
YoY1UYOwHUeWqvTNBIzyv/OXGg6BPodRaGmTMUQcGUYI2A4BBdwWrosyhgZl
YmyM2xC8F3dUEzUxhisjugNu74ZAu+m4gmrHCGgodoMkq4eAW6M84oTPCGos
rq1/4/kLPEWzr9ijDYCX5Wf5p4W/UHq1QsKh8C7Q5U+nyO38BRnWUc+it3cB
c4sqcJhgGJ7aDyjgzO7C0FPDO2dYh4GOXuQPJf1dCBs9WPJTHgafap3gZFd9
wGRKc1ikD8PVrMn+G4p6MCCV78NtPAIX5av0V+juwO/WfquftiPQx4HPC1rT
ge/WWPX7biPw2NJwyahNB97HarKGB4/AF8H66qQQHVA6Xs4nKB+B5OTO9veU
OjAwzrjuSDEK5nst84MMt0EpW5tb02YUNl+nWhEoaYHjucMBjMMokA0dTImI
aEHs+/SwvMejcDD3jtaHVgsW3Xax9N6jQLMw+TB9SBPey38c7Y4aBUFLZ9T7
WBP6huYS7teOgsdVA22tuxpgTe3DbMUxBmQog6nGURVCXwq1MfGOwdWgOq4o
BVUo2+r0/y00BmGESXVfmVWBYohvR1BqDCjE16Vyqm9BbmZT96LqGLAMcUs0
nbkFu3jmcGfPMdB1/FCg2KwCAY+/UT7vHoPXu5s+btZKQBMS+yF7cAxYJewm
ifFKEJPhx9s7NgaCvvzF/SxKkDVwX1ZseQwk9d2WFZoUoQFIHo4Tj8Me4asI
XklFoKA0aVKUHgc6laWYPOob8D6d7i113DgwcoW68W/IAfPPozMyyePgeqU3
+VqnHCT1zaZYZ4xDvhdp1KsCOcgj/1lWXTAOBfz6Dt8fy0GHk928S9M4sK+3
c73bwwMDrlal72gcUvmZNFoo8BDT40qS/GACOHg0Ex99xcFhFGe7meUE/CLm
7hN7joMHeo0f+OwnQDxjfh6njgOBPk7hHPcJuFpGVCOzIgsl/Y1qxSETcEpx
RT9fUhZ6h7jCm8snAH/xTiRn83U4M9F8bp95EsJOjf8gEb8KnqlPpsvZJ+GB
pf13e9KrMGzG/e0FzyS8wj/ephqXhk+TT4BIbBI+ek3WU0RIg9Q0txmN0iRY
XmBhnti/ArpzHpl8rpPwZKeiL6NTCiJXeCVut08C39/KDtZvkqCvS9cW2jsJ
n0y9Hw29lQS2imP7tr+TMLiVwDRgLQkpb3o/qc1PQu9VzT1/bkn4yhvIqnxq
Ci5VC2ymxEnA7/uLWNnLU/DWrKTqRdQlOKjPb+P7MAVsxEVDNwrFoFI08aFF
4hRw8ps+aY0Wg5eRb8nS0qdAtcU+PNBLDEjMzBW48qdg43viUbC8GDAcM5ac
bZwCrZgbbgmfL4KopEcizdEUmNterekiEgWTJPRo/8E0HJ0hxWzsC0HPl+rW
s1bTUKtYmt3WLASqP+TFZR9Og3M4X89ekhBI9ShtvvCYhtKTjiIRZSGgoND0
JAqbBqbqaILTsYJQ4v7gNc1/02Ax8vwF9y0BoNLw+cjHOwNWeYK2HSO84Gtw
CqMsPAPinN+Kr/3ghT0bPxMb8Rm4w0soMxrFC5O+gTw5sjPAeElEc0ydF0rL
QrPFdWegOZUlIbeaB8z5Uopk/GeAsNs1+UI+N5Qd1bRoz83AG+KmWZpyLiDP
J3xItjID6p/OqponcYGBpSJ5zeYMJLkWDo/7csFxyx8lccwsmCkk+D5Q5wL5
pLYqaqZZ+I9CKER3ghOa5IbzmxRmgczE/ecmAyf89d+LUkyahdu7F/lDhM6B
qMz1y8fps5DqXz5IdsQG3qtPO79/ngX9iuLIllY2OH8XQ8NbPAtEXHeNBd3Y
wFLodOCpllmYL/bU4aw7C8tNDF5VB7OQHraiXOTMChg6MeNrenPgLGrzo/iA
CXLtC9ofGs4BQeZnIu5OJnhQL6WQbDYHmF7e/Y5sJqh+KitI4jj37x7+0J7c
Y4KXMzc3ugPmYAtb6uZVeQaIKiz8ncrm4BIbq2lqKCOQWcd9yzw3D2G7O2X1
FvRQVsN+foh7HlZeZZlsKdCD3bmUCGqhebhJHBx6j4cemjoyPdyk5mGHLZOx
YYIOgmWL5BU05kHo8kqIhAUd0NC39454/+N/uYLGnGiBsZIYwzQ5D2Ium1lx
D6gh5afKt9G5ecAtFLWTXaQG0eogo+yVeQg+m3jj9xEVKNbSVcgezANx6Qy3
SDwVuDWwe5rTLYC3OZHZmyFK6OmR2syDBbCNf5EsbUcBUSuWs6oJC1DJomeB
Kkjh/FpW9JnUBZhtso+IiiCFr+uLiqOZC2BSsHt0wZ4U6rac010KF8BuSWbh
LBspbB88N41tXID+8U6ZueckoEsSPTSztwBXwsMvbmqcBiau+raXuosQ61ta
I3uOCAj+3NL5bbAIL2bIGNn2CGHZsa2X0mwR9hOar0t3E0JtVf9wjMMi4IbP
PxAIIQTnB4uLXwMWYdWoPmGIgBCaEmlJB8sWIbXF7fD6DgF4sxvgJTiWYI3w
kbU4KRbs6kZrn/AuQZmrxV2yRQzoPrJQrhRegiBV9wuMrRi4UPlIQ0V6CTyd
CIR+RmJgwNDH0FhrCdQG2eXu82JAMuGTx9tXS7BkE6LXF3uMZs+u5U3MLIGe
C8Y/4dkBem1Lvk++vATHj7GnHmocIO5SXjnJzSUQy7dlfcN1gIx073X4YpZB
nKqC7nPdPup6/986L8sy7EqtnvVk2EdVRFES1jeX4ecPo9Hhil0Us3Lt+2LO
MtT+oc96obCNpHB3jhgKluFp8ssqRo5t1BnkcEO2dBk+jCUVzu9tISqhtO7g
X8vQx3U+WCN3C/maU26LDi/DGr9iwh7HFnLsH5Fyol4BbReMiRvZJlL6z7dk
y2kF9oTufHlIuo6qSoxkC91XgIms3YNvaQ1d+ypd4/xsBVh05uPI29eQyIfF
xpWAFRBzvdd498MaonHQGZlLXAFulQy9Y+E1NMDKQzzcvALt93leX7i7iq6U
jglOMKxCOpOj7e+UJbRZoG5fw7QKWN7OIa3HSyj364+vyayrIHDoxc+juISE
0iIlHnCugiDji2fJ84uI7Z2K7F/hVZAkuTuwLrWIMBZ5mr1yq9CtZEn4fmge
NdD4uDc6rgL/3bmdTv1ZVDRMlTbr8q9++wvh44uzKCUnvo3IfRU+9UmY3COe
RV7KJYLwbBUe/DQR2S2cQSLeK4OFgasg/lBL2I5xBgWvGMLHlFXID9253TA+
hTRbrpE6da0ClcIVF8ecCSQT//tySO8qiJm3fsS+nUACtrqmnwdW4aEwe1yj
zQTCEjv/mBpdBfliDV8SgQmUL5v18N7SKuCeleWdzRhHDF+YOuSJ14A9GXNT
99sY6n27GXtGeg26GivrzRtH0KUL41PH19Yg6n5h8ErMCApqaRWbkV2DIGYt
qwbLEQS0n+uK5dcAJrfuPjo1gjKjTNb1NdZAJfDI3wSG0ZPkFpU4yzWgYVGb
DPw9hFiKM3c5ItcgTmlHM5dqAD3Wj5IniVkDOzqSpTtT/ahl71XIauwaXOv5
Lihb3o9eyhjzVCetwRXJjckW2340X82oaZqzBhmJYvybDX2orOllRtp/a4Aj
P6BYjupF98cNdAXX16BBjb8Uc78bUelFnjq1tQaWGWpOdVe7UU1jc+7Qzho4
C6QN/WTuRgLfceTvj9bg7sfYt6q9XWjTn7Nqm2QdbPvX42t1u1DIhUnBWo51
GJHt/LZg1ImqntgdGamtQ0zQ8n9UYe3IZSk1W1pzHZgKa5lL3NoRn+mQHt3t
dXAwodx5e78dBd1Sy/+lvw5T95KU8nnb0V32i1Yi5utgg+llWP/Rhtb/W2/b
81wHYl83OsrRVsRL7ZkWkbkOM8TcO9/mmhCJXuf1nM/r0MIw5DFV0oTmP4p0
/vd1Hb4O+mk/DGhCuaIj2I3CdRC60zbgJNCEZNQVjLWq18EFL6WO7BuRdjAV
K9XAOozS3px0I2hAz8lT3/mTb8Cda3vdwxb1yOT2IV8i1QZEvQpoM8XVI4W4
O5VFtBtwLjbMXpCpHpEKkyxNMW3AdDLt76d/6lDEzYc3FXg2oFGqbfmieB3K
DrxChJXdgN/YCBsbil+o93STp+ejDaCWaP6rv1KDBLj9xAydNmBBXzbdr70G
PcHhptHjDaAzFLEaK6hBrK65WkSeG9AjdpzP41GDDMYjBN77bUC3C5lDB1EN
Gis37EmP34ClJjm6IP5qtOC0It7esAGP1Xa9pBh/IpngzJmC5g1ourDSApOV
KCjTJCGqbQN0Fs5BTEElEh3pJDHo2YDJXyfRIrcrkaNqycj02AYYWbmfGo6s
QFt8PsGHuxvwi5Dp3pFAOToZpJvj59+E01zMhhyvSpF3w2KAstAmeMs9/xih
V4owpXUCNhc2Id5DRExH5B+O8rTOltiEt1VTKrk9JQirOT4jApuwbeya0yJa
gk7V5k2L392E7zcIQq4uFqHTOZqT199uAsnW8sX4mEIUECvkaxDyrz+HkYGr
ayEiCSTkeRa6CQo1kv5vtP9hyxKzyuhNiPx+GVlRFiJSTs4JSNsEI3NVsRG/
AkQesTJ2o2IT/iaHEbj45CPqpyEjGiub0KxjdyUuKRfNyhaMmaxvwlAqaVyl
by6qOemdcNnahOlwt680Nrno8Suu2eiDTeBd0s5Bl3LRwJvC1ZHTW1CibSLs
E/wNpX0YwDpyboH75fR45tUv6FoxH897rS1IrfAa/byRjRg8bvGl6GwBS62r
xcu6bLR0zVGgUG8LglVfRqd9yEZJlaUifYZb8GHanqQBshFRneplTtstkBte
cH4bloXaupwVc19uQdvq8Y9n8pnIcr3Suq1gC34w3zTZ6E1HX/zlA78UbUGZ
LH9O8/d0tMn2O+tN6RbcOJOi/zc8Hb1Sap9X+LkFDvf4A+M001FS/IR9acMW
2Jk1KL1pSkP9iiROKWP//Jzy6p1vTkWqcVoej6m3IewqyH7cTEbhYj0ftOi2
YcPOxDuoLxkN/LpXJsq4DWsSP9I+lScjm1Wzg1nWbWDL43ph6JeMXt9we2bI
tw332G4xtDAno6qVWB9F2W3YexU44a2UhCQUJgOZ7bahTeLZ5ynfBJSdExgh
8Wgbom7D0F/tBMTJeDFR3WkbbB/c6RPiSkBU0x6Fvu7bECsesllVGY/m/alH
Vl9tg/29Xmg5ikNJjdck/8Rvw+TNI/XNN7GI6nbosEfLNnjNGp/p+RuN/H5I
zUW0b4Nsn26X6fdodMg9tPGtaxv4X85zSgZHo7lNPtLpgW24qT4dmSIbjWqj
yiW0Z7bBRmzFJiU5CnkNzAQIYXaAZ7SEsMk1Es2a4CQGxXfgXXQW5citcNSc
IG9QLbkDmhL0f+9cCEf5/cp+GVd2wFl77fiQKhx5ad3udZHdAaGCNJLBjjBE
hbf2olDZgbxRm81mgzAkwRn2n+yDHcD9NS5U9whFz4enbieF7ECW33TGx/R3
yJR14enr0B0QeP6I5Y3LO6Sku5puH7EDZppnGmvx7xBNy/6OdOwOvCqa3uMd
CUGpFdTx7ek78FMy5jjwXAj6HX91kqBiB9pvic48ygxC9PeDH1ss7EDn9fIn
vhuBSNP274nM8g5YuDz7gW8MRCEeF94yrO1AnQLLY9nUQEQW05z83/YOxAUM
/bd8OxARdFO2chHsgvEZHhvRkgC0qh4iOMy8Cw89L5C0vfVHTXLvhnUVd2Hx
xMFd2NAPkWmP2Iiq7EIyS0IcsYwfUja5uEWkugsssaLCjGf90H8vWsm/a+3C
k+UJtcZ+X1RWTn2V3nAX6HUUiMPv+qJMqffhrS7/cCnnpqrpK+QnFKqsnLwL
UZ8nua2jfNA6BUGlYdouQHJIWssTH/RgxVnCJWMXEvHU25b3fdC1Qh32j192
gexsXbkwlw9alWXe3CjdBUop6rbDr97IQCsxMbFjF2hWxGmXPr1Al5582d4+
tQcNZKPXjLyeoqR77PYUp/eA9GHU2qNbTxGl7LsxLrI9cG0v02k7+xTNYp2a
VGn24NkGK8GrCi+U8FYyJYVtDz7JPNf7QOiFSBJ/qKlf3gNr6/slTMkeaPjX
n7R0yz14rhL3eIvaHZV6xUq/ttkDqqZreeULbihC3K7J0n4PZBqy2svr3dCt
BIpNfuc9cO9gvWvp7YZKHmvIZz/bg/KdxmGdTVcUxt099jViD/p8b9jqTD9G
ij6j7CU1e+D7pTErYdUZcV3Jy4/5tQdJSNJ+uMMZHS76KHr83oN7Xedm1L47
owJ97kfXWvagKMR0rNjTGXGKWVaU9+9BTYji0bfTzmh/eOF+9eo/P3QZK+uC
TuirzE5MA/s+eFBmfe4+64BKf82emePaBzGazvqx6UeoVn0g4jTvPiwfhhIr
5z9CAw8q3isI74OUHIc/581HiMjvVUDllX1wum5PsfbsITJopn6Sr7kPtJxN
Au+27BCZkYBe7Mt9cGv++2WO0wYxzrB0l/jtQ0seQz73tjXidCS/3RuwD7fG
+Pw+NVojqZfL6gzv9oFGdivT190amXwqVAyJ24e3I6VBkR1WqGQZpF4W7sNR
KnFYcqQlsnhxl9F2eh94o6mMVFTN0fBgdt7tuX14/kpTlVDEHOlKH6rJLu6D
qiFZwDq5OVJe+/iaZn0fWk8Lplg1mSEhs8mdoqN9WOthjvysYYZWFR0GTjEe
gOl9r8I7xqboKZVfYoL8AfCTTlTwJj9AW7Y91/0VD2DOe6j4++sH6FE9f5+j
ygF4k2eWOtg/QMbeDTQKGgfAnNj754H0AyS3Tv1y/t4BPH2DbzVOM0YkPbHm
V5wPQBRnExjOaoTCE3IF25MOwI2pI9kL3UfmzaoCOakH0OLjWUzAeB9JHc3y
+X86gOLKs9im+XtowICLRzbnAGzO8ERwR99D59nC2LOKD6BvXSF6cP0uyo11
ofdpOYCtz4SEzEX6qDla6kjs8AAcHl7CCtrooo/1HQfkJwdA6lCvdk1RFznu
PNqfxh6C7UAa5UtuXcSgl7ETf/oQ7v7ERRQM30EGZ5jXSegPwZpwMCJS7w6a
j9ibHhU8BIfn1xoob+ug02Hlbe/1DoHVkD//8yNtRBLpUZp17xCqxiJSXmlo
//s3Uik1hofwNYlF9r2YNqL4mOuyaXYIvOcWKBQ3tBBddtoZfcdD6JJYe8Hq
pYXYa4IMOAIPQUFlpPtshCa6vG4w+6XsEGz261WCOtSQ1BZLe13FIeCfRrtx
J6kh6d2e0pGqQ1hs+tJH/UgNXTvWfEtbfwg0ub5HU2RqCMhuiLp2HoI0bbzC
E2VVpHr+wmOZxUMwe/0440fHTWSmfXTScO4I7IRs9Lg5lVGHAOvpb5xH0BR/
t5F2XwnJnUhRhXMfgb3QeS2ZLiXEmePIdl/wCNCFHCaFQCU0TDQpvSB5BJGC
MnoM24pIv7TBiVz1COh+KRdYDdxAqpwxE7c8j8A7e0HGvVEe/dgunL/47Ajk
ezNZr+fII6Hm9jV67yOQpvyNFwuWR6Se5JghvyNoSAm9/EVDHtV1PmezDz2C
/tYajbkeOQT+FneCMo/g6vPAMoFlPLq8fKm+qecIahrLzFtlAXVFO5Ys9x+B
c8b1UPLzgJzxX7No/h7BDddPku7EgHIjBIN0Jo6gVshaujgRIZHrnFpDK//0
5Nx5kPQHh3gCKAcXSI6hw2jSTllUFtGdn10mu34My8SDomNS11BeI++oCO4Y
po6SB2jIriFNV7N2dfwxlBk/Px/89yoK+T1cEKZ0DGxznl42flcRqUP3E1ad
Y2idx0ul9kkjTHkNgdDDY4gJ0SjOCbqCVu4knFFJPIZ3vZrYDv7LaLaD19Yg
5RhU1Nx/axBeRqMaXysc0v/xDwQFScckUZvKT/Ooz8fQdr+Y/0KcJMqVHcuf
KD6GyL+vtS7SSSJHXl6N523HUJjzQew3mQRa3czxL8CegDKTOGUjtziadbo8
WEd4Aj0jl3WIT4uj0eUK0YHTJ+AS+2HSaV4Mtc22dGOoTkCztTuhL08M5Q6t
cquzngBREXPRoJwYcqyVrJq9dAIGNr6JswOiaDW8fPec+QnUOIe8a/0ljHQn
02wPLU/go4XhOa1YYVQuGTw0YHMCEYlPfp9xEEYB3YZV0Q4nEHzypsmeRRhx
MJ3403qdACmrBJm0kxBSj8UzEYWdQBbTI9M1EUGUk1R3efHnCQRK50yiDj5E
t/Y1o6HmBE7pFAW8/MqHnuCjWbJ+ncCTIQXeozd8SGHc6sii8QQ8qgfmYhT4
0CA36a+RnhPQo5cQMSnjRWQZt3Q6l07gJe/op/lvPKhQ1/rqX0oMvgYvaZtT
dR69mLW3sqPG4K3D3gX1JJ1HNz2dIvdoMHjjiDdlUj7n0UiC5xojAwbveeWg
IVruPCKbCspSZ8XgeXJHBzrqudADlzyWKj4MvvZz9PuRQU5E8X5/LwVh8BkW
RHPUmuyol+uEXxyPwXs72JHGsrGjlIJTuj/lMHgZH5fXXnPn0JVeivzBGxj8
hJiAopzvOWTKzmHLoIrBh+pTj7VUsKGSHPkBP30MXu44o9UKziLzP0Fl1k4Y
/A28P+vEC2Y0rVDtPuSMwY8dv3pCcZcZWVdtSWo+xuA5COWsXS4xI7tio29X
3DF4RuZL7rtTTMg5XSyN+BkGr8jY29ilwYRe+HQFpwVg8I3Kr4l9Rc+g2Kts
JqOJGLzZj83LyowMiO27JrtOMgb/+VBr0mmLHiWI+Q3Wp2DwqY7c5C3d9CiJ
f/nOt3QMXkkg5iVbND3KYKy6+fwzBv/9/nt3UjZ6VLhmJslWjMHXSTwhGhWl
Q61Zn0/rt2DwSeTfXZ660aDjECK32lYMvpfUV3XagAaJPDaeFGvH4ONPQufc
5WlQAI6+mrQLgz+5E+ZBS0uDoNPT80c/Bu+6fCVI1IAa5R+qLLFPYfCc0wl9
zsOUKEpjtmPqAINv1kgPCGMmR7WScnjtIwy+qp2i2HWZDK2zxH+rPMbgaWdP
9GNryZDGpEZQNBaL16fBm3xyIkMkHsU3VE5j8ePUHwIrW0iRZ8rrkhw6LD7i
QarlhwgSZLjF89FFEItnurssbKNKjHgU3mFPhLD4Bd73J+18xGg+bM/8jQgW
H+PZJe6JJUZuYi3CyRex+PPMWaf9i4lQiJ17actlLP7WM7Ot13xEqHLsT5eg
HBbv4LB1/IuaELG3PCIfvYfFmwnOukdQEKBJtv5HdgZY/KNL/bz8y1iUbSff
sW2Ixb8ZXGFfasUiKVLmD5QmWLyHJ+4DbQQWqStU8123wuKzncYMCtix6HkZ
vVyUCxZ/xfS1Ba0sBo18KnmiGoTFv1v6xHNW+ghnMKJtVxGMxXvqHy1ykR3h
+piWDEXfYfGkVOTkTkOHuI4ALnmaMCzegLvKZ9rnEFdn+4ayKxqL76TNpjvf
doD7KmqQcj/1n1/m8Xovj33c86KTRtsyLF5xrIBj6HAHd7D8oXLwBxYv8NWc
gb13B/eEXzJPtQKL/3TDyC4ubwfnHGMdJVqFxZPHYBsVrXZwlp7tD9Z/YfHV
ir0yut3bODVc6pZH+795H1U4SMu3cGx1ihyBs1i8Wxhxs3neBk4wOnefZx6L
VzLaUGsP2cBJWbP2VC1g8bdZTvl62m/gtMiWg3aXsfiLsGjhI7CBe60euW+1
9W/faxKv76Su41Z6JroVCQjwPwxziytS13A1M95BhGwE+PMRFsKNH1ZwrSXz
VknnCPCUVyWtNExXcEOBOvIyHAT4kPNPKC8Lr+C2hQX2Xc4T4D/MmC1zVS7j
hB1brSYECPAMOnxRDrNLuIjdc/I1lwnwVATRf2+qL+KS//izG10hwF889D8T
w7aI+xq7trcnTYD3IswOlVlYwP2R+ZUrLkOAP5z8MR8QuIA79rZnT5YjwAuf
Pp/J3jCPI9fu2ZNRIMCfE7xkxxg3j2Pmhu6+GwT4KYKu/4zs53GXftEH0agQ
4GfJm9enqedxKOqZVc5NArwVCUc2z/gcTtVqRk5ZlQDPO7RZkl84h7snrcU+
qfbPTxcu7L3/HM6K9MfeCw0C/MD8ZFbFvTnc/wBamwA4
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40784.}, {-10, 10000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778083613029003`*^9, 3.7778084911991262`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 20K", "Section",
 CellChangeTimes->{{3.7778078326561804`*^9, 3.7778078368416896`*^9}, {
  3.7778080743105536`*^9, 3.7778080744042487`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_20K.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "8000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "6000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "10000"}], "}"}]}], "}"}]}]}], "]"}],
    ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "C1", ",", "Tm1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1000000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777807846428356*^9, 3.777807978114668*^9}, {
  3.777808087811978*^9, 3.7778080878275976`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVk01Ik3Ecxx/Eg3TysIN0egoP4VF2kDB4MA9jSD3JyJIis1liVCZWYG9L
rBZJLbPojbK1yiTSalFJL8tWLXtbtrL3lnmQThI7RKfK7+d/cDA+fJ7f//f2
37NZ9RuqG/Isywr9+/6nPvXOFFbdEK3toh8PhcWaW6JzSFx/FT8q9g/gJ8X2
a6LdI0YviT1Rsaif+Hlx6Arxi2LsAvE+sf4ycehSz6bOZExMM4efeCFzRIm7
18XOc2IkLmaYI83eXWfJvymWMLfLPRSZ/Nui5wz5g2IpexfeYR/i7l3m5Z4i
9zh3mvz7YvkpMZzg+TFxzgPmPy6m8AF+h8Yh0YcXPBRzeC+e7OZckrkOixN4
+RH6PxIzXfR/zLx4Cm/GG58wX4T+KeY7SH/cy3vke0r+AfrjYTw8LP7upP8z
6u2jP+7up/9z0cYLXvCc97gXH8B9L/E99MfTe+n/ijodoicthnaLQXyiXYzj
ZbvE/NfUxwO4g8dMfKeYw4tCYuWImNghduOTW8Vx3MG9b5iP/3EHbm8TM7hF
v+IM+24WW423iUnjW0TPWzHbKgZxu0WM45PUy39HfKMYwJvJj+GRTWIOL2wW
K0fFunVi9+j0+Dju4t739GsUO/DQajFjnHrFH0SH8614Isj+eF0T+3+k/lr2
xx3icTzbwP6f6IcHcGcN+xsnnsPtlez/mfwA++NZ8sdxu479v3B+BfvjTi37
G6d+8VfOL2N/3MKTuLNU9Hzj/BIxaHy5GMetKjEvizN/ifF5YrXxuWKb8QVi
FHcWicMmXiP+MvFqceZ3McF8FbjF/E3GfWIXHpovDhqn/5ip54ozxogvFEtx
a7FYa7xMbDfn/WKfcfYZMV4h/jH5XnH2j+lxP25Rr8U493vCeHliCkPGud+f
pl6V8xeBe1Rg
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVV3c41t8bfl8SyQqRkihklKhIffmc57UyyqqMUJGMyJYV2SOKZFd2IiMr
m4zM7L333nuPX7+/znVf59z3fe7nnOdc12HTMVV+QYTD4c4R43D/H5ONhXV6
6QxRTrDL+iH6DTaXAvv3cHfh6ZVzTONEv+H404HsWpwqkB0y5kNVCTTuE8Wk
4/Shf9OpSlO+BDL/nmaMx9nA1VDSneO6xcB+40LrV5wXBHj12D6LL4TGohXZ
72be8NAKF/XApBBspP5UpA/7QBHLZet04UKoUzf8VVHqB56M+ttxjQUgXKpe
bwUfoVma9pLmUT4MTMb9jMCFwmP6q4q6lnmQyUtpHJUXCkzqIxtB4nngafaa
K94sDMR2Jhkv0ecB/650TOpwODDmn916mJMLrpSLgaWlX2BXktdh7zAH6M8y
/2cJMdB1e6+lIPoX5IMeSzjuO3y+EnXDmS0Lzsj8KlXT/Q5xk5Q/NrYz4bXS
sednar7DLVlu8rLmTLiuE/s91D8RxhQT01VcMuGH2yB/CMsP+K9F9uTLyQyI
qFIR/ySSCqWzG9rhv9Nhu/HbhHJ0KqSfslQ69yUdVLrWvWiPpUGQarLNtG06
0E0H1n/8mwakujTz2jfSocp9ikf6ajoc3v+U7qz6E7CES9lSRRnw3DaZ7v6D
VHjFI+fBuZgBa0FP9y6fToUvaRYqx1kzQSGtPcizKwV2c8q2K90ywU7myLVO
KwVyqp+KSsplQa5SoIqCWTLwzXyuEu/NBhuDPifdlCS4cIW+B7Zz4Z0wm9SM
XQJcmRIOaOXMA1K3+9XG9xNAOFbrru6jPKj1lHkkzZYAyme+//LKzANp4pWh
Y3XfwP3YncBG43z4qh617nzhG8z2P5XTHCmAs0r83ms9cbAZ6k60SF0IKRM6
JEmZcUD8ICn/LVYIKgxEd1N844C5dvVy3OdCOE5GmhGOxYHCL49js4+KgNGg
Jejoeyxkv08utqkrhh8LCmQ23jFQKt1sdWKnGFSvJl+reBEDDcQbvJ8vl8Ax
KofjD8VjYNIOiyhxL4GFoqI4wlE0MOm1vCb5d695uClwmH00oKi90Fr1UvD/
rK39aTsS4m3YlFQby+BUnEVjwuPPsGZKjngnyoAjfiLwI8dnEDNYu3K0VwYU
d3Ufjy1HwIhaJdl37nIosDNqz/OOAJY7hqWb7uVwrIRn83RxOITup18L+a8C
GikLG1ZuhcHkevj5l8oV4GIULLtKFgZCC64nMcMKmNIK27vfGwrtAw+nJkIq
YOW2wy16p1Cg+b0dKbhaAT+X96hqa0PgnQtQdST+gfHHzWJgHgw9dtz7ib//
gERw/nTc3WDgsqCdfdP5B+TIjeTVWIKhSme8kv1YJUwb+0yl1wcBsYS3o9XT
StglNbahuRoEb443z9MxVMHpWlry4/uBYOr79K+yWzXwLbxzm28MAJHzCuQM
X6pBx9vQ5X1yAJD9xGR6sqtBStll0dY7AKJbz1c/nayGom3Gb1fEA6CZqb/c
WKYGJKMpXizY+AN/olqBJ3Ut9IRMp3NYv4f929I7Mly1kN/UIcR16z3U/L0l
TEmohcDTwJ+64wfPlhhyPlnUAj4qX/COsx98FOrIiO6ohemgrlPin3xh9Y9S
UsHnOqBIyHvJ2+wDJSqEacfsOpBkLJbuCfeBd9P8lwkNdTDf+eX1znMfuEhB
8636sA5C69Pw73e84cGDxuh27b8wV3sTP8XtDdkjsmGLl+uhL05ULjLSE14f
intdzG6AJ3Om74Va3SCD93o+9rcB3K+9VpJKdoN5Nda5x6MN0Iu2P8W6u4FO
1r78J5pGqMh2FsGE3UDe4BfDsVeN4JfLt74S6wocrZwJExxNcC7qvnGDhws8
O6Lvxos2Qa61wXnt5y4QcYWYnOVhE6w8EjARJrgAjdfQKxXXJtitMu3/eeAM
+/+FCVYPNkGDUl5clp0zzLa667TLNcNgSlcO2nMC7xkHBx3VZpA68hvQKXEC
Dpxl0LJOM/SfSgo6cHGCZ1e1qyjsm6HWSoM8hNwJOr1EeSQTm2FJvrjtNpsj
lIlsrvw61gInM9jCvZ87QFiCvktocQswL6hw2QrZwvqJUbHzdS1gd5b3/DKR
LSi+0jwW19kCCtdkSjqabIDsppJX2lIL7MQna0++tAHbsjvvK9laISyyjuVY
wmtQ7acMX/NoBd5zwZym16whE3k/tgtsBZ7nwmFqRNZAFUfEfBTZCpWpwUcx
HVZQZbgVSZ7XCpc9pJyVHK1AaGs4nm22FRxwUlqULZbAQJudriDfBlGEqx7y
PhZgYc1n0fG4DWRehN7s07aAxu7EGxr6bdBgz9JbeMcCPKO+5ug5t0Gm/B3s
9YI5bFzxKnLMbAN+KW6RIhVzaL/7uCaZoR1e+B0qbN8yg0+OuGHSoXb4DaP9
8drG8JAvgefBXDuE7v0yUeE0BvohOevIrXYYaT2x6DZnBEEQSi5I0wECjK+T
5W2MIISYT1CH0AGRv78rewW9hDAfjXdFcR3AoW0UkDpuAGp38B2k6R2gq/aH
MSndAJjmEi48KOqAYFdbpVOOBhBxbzV7pr0DxBnFldgZDeAztc8Qw/FO4K8K
YBFR1IfI4Jyb5gadYP3WLNO64wU8kdJ8W2TVCWvZfr0d31/AhS18HalLJwxx
MagH27+AaLX7TyPDOyHHgx+7xvYCYs6N+/yt64SUY/QS+Ra6EB9zaojjahck
UFOLO3M+h6RUY5/elS548/1u/PbfZ8Ca8vG+8kEXsGvozQsnP4OwHzmn6si6
IcRamyr/3TPw/o6LyL/QDdVu04uvZZ+BXkzQj7D73SBXEP42N/wpsAcX/VVJ
6gab5Wq2inwt+PJpxL8xuxtILlWIN77VAvrA4w+lSrthr1n/hayUFhD7K/YL
dnXDW90zwoHtmjDqPT5PT9IDRjfEjKQ3NSD6DQVV27MecDC8MRRy/zGccRBo
lTXuAUfWMln5s48hwE4lpNymB8Jn5LIMp9Th7etolswPPTDx+oR5ras6PDG7
ee1jUQ/sxTsmMZaoAbOupqLCmV4wpSVmuielCmFyKYF/m3rhZZKtomTYQ2gM
eXh0p78X7lThlEqMH8Kx0X2jH9O9UNv0VPET4SGY296X9MH3gXqXi7j8/AOQ
/ba4JXWjD2JEQ8+tST6AvUN+rfKQPhAW9EpWOaEM12V7agXi+oB7o2L41pgS
GAS7CMX87IM4VoXvhsVK0M7bSu1c0wfzpuFQZKEEKWqW5aK7ffCCmFrz5Igi
PMn8dTlfqx/MNJ90eYYqQNCBVhDXy35oizCpLHuoAHXSx/Fhr/vhnttQiw+t
AtwaUul97f8Ptz6IKvKXBxqKbb+bZf1Qza9J+j7gPpS/uLP6k30AaN97pQ//
kAMOpt9FCXMD8FigVZj0P2mgzZyMFdsagOidrsabJ6UBJ0flM0g0CGqr+VWl
fXeh/43WI4azg1AzZLC+7HgXAof3FjykB0H3xFdCZJUU4BKFL7z4NggXsz4d
+2ggCYvwjASfMQjymm02ipgk9PV4zX0pGoRo/Vb55/SSkHOyK7e9bRCuXSMK
dS6TgFem1ooSREOQrv5gyOuCBPQKZbpcejoEcWipGc2KQU1Tj/7vl0Mw3ZlK
PfdHDH4Z4OU1Xg+B6Ezz3lCUGAREKJ799H4ImFNLQuNVxODu4WImUdEQhBb2
ifhUE6B39PSqGcUwUH0aLZXKAbj7Q/mSouEwtBquq+56iYLZ+f1enOkwtJvn
i3TKi0JEwLfADKth4JvGZ7IyiML86208nfMw5E/sbx18E4EA8cjhjpBhGFIL
Wy6v+w+6+2e+avwZhhwhnvSKy3cAr/jpEUXdMPhV+NRc3rgNPBUilMVN//yc
mxsWym/DmyT/Nyx9w3C9N+THl6e3gfW1oMbIyjBkrwndN/8qDAbULmf0L4xA
fGZWpSrPLfjoytPMyDECppc/z7gfCEHBRptXDc8IeC2n1pC1CAFFP+cWt9AI
vN5XPktrJwTpifUd8/dGgKSTDMfUIAjbhDOfLOxHoJ6txtnI/SZ4W/2kdOoY
gQy6sbuHvNeB5kNE+I++EVCjqFjsJbkOYd89OLpGRuCZw8to0mEBSOrVEOVf
HAGdL2885IMFoA7IXo0eH4V+Q877zsQCQEGpXS8lPArXX9LXNPVdgyDOe2qW
2CgESDQ3rYZdA2a4NR4lMQq1gtm8sSrX4Kol5f624ii8GVGQjmnjA/mefN5k
w1H4GmBhjW+/CgHfaH2pP4/CLe4OuYcLvHDm9wGDSMwoRARypuZm8kJ093Ss
wfdRuK2meirElhcyTv4uKMsahax31X2/SXih1dxo1rJ+FCaeeZQmc/AAPfZH
pvtgFKz4ZYooHbggrNOaLObZGEwGVrInWnPAfghry3O9MVg/6p+NlOOAZ6p/
wzmNx8DklQ/ZNBsHcHWz8qbYjEFWfFqVSRM75PX8vZ/74d96F5YtET526Opn
+9RQNAZMyxyaj3Yvwp2v9RoB5WNQ1KoZy9VxESK1bNgf1Pzjjz0tkEi/CHqD
9b+628ZARkOR85H+Rdgcsukemx0DIQbesOpuNmAYazi/e2YcBOgupTnUsIJ9
nO1kEcs4nNNS9f78nRUGn1/6+ZZ9HOT37Wv2PFkhYdwWSPjHwSd3xdVBihWE
Ji89p7k7DleNumLaAy6AyoxdIqf1OIyf16m99fM8BC9x3HjQMg6M3LfSdeEs
qKnQNn/sGgdKbLEkmewsMBcfGjcPjINZ0Qy9YQsTxL7rSrg/Ow513m4pYrpM
kMbhc1aaeAJWT+eEqPifgRqNebyo4ASkTzs/4N9lAN/y7kiH/yag9iZJyMta
BpDnrvyvgDABX/CCTynCGaBj86v1LfkJ+BFodMbtNgOMflSYEdCfAEMiQX+O
t6dhrzqzmTN8At7Pv/jixUwPJXxRr15ETUBTpxh31woduAb7ksd/mwAKRpEH
LtV0QPZcV4ItcwKeDPx2GrWkA/rD03nn/k5A2TuJDxXNtMB30y6K5uCf/u9G
k2cRp0A7GpnsPpuESaJr1LHNVNCZWtZ0Tn8SruutK7wMoIJ7heICoq8m4e58
s26eIhUIdd5df2s3CbyP3maMtFICBYWiPUngJOwpfh2THaCAPJtnnjQVk/Bu
S0zS/8RJ4PMYnRKonQSWGL1RoRZyiAvUlXnQNAn955PmHoSTw4dUA4qQvkmY
HfhlPstDDs/HzALPrU/C2mTFMdMHJ4BKwSWSk2MKnv2wekKeTwrumsQ4ad4p
eCNgcjfCixR2DD20DQWmgLbf5NZHFVIYd/dhTxGdApNj5m3pG8chv+DjDwGV
KdCUOpyPEj4OupyxOSJeU7AsKV78rvkYFByUNyrPTIHO8tkRBXEiOJl57BX5
0hQ8EOkuarxABJp6UifL16fg5pBnZOA+Hg4ba+8K4Kbhi+OhxlQOHsSjm0up
GaeB03pCKYcPD/Vig5n1EtPw2Jhtz44HB+e3Lii5y07D7wOzNxQncWCSrL30
n+I0vEp8dzWv6wjR0E/wJmtMg7aWn6225hF6ODEX72MxDWYnI8mljA7RgNdO
iFT0NFDVX/cIiNxHfCL/CR5+m4b2xSeXF/T2kfPym7ZfydPQfzF57de1fXRR
HUfDkTsN5wRYKrzL95AeD6kPceM0tAR4xTAv7KLFenqH0r1p0CC3Crj/aAfh
aPmf3lGdAY5CvYdxxpso3Tir5ZXWDLzM7mt8IrqJnlULScQ8nwGSmW9zjlSb
qOyNKDeZ2Qyou41XjmVsINcp2bUO7xkgnP1tdutgHZEUv/AyL5gBVdM/eQrf
1lAO48xOfOkMLA5EBk86rCE9C2Pj7qoZOGV9r6hdeQ1VXbZUQm0zUOmRQpaN
X0Pegc7nKOdnAIVZ9b98vorIDT7/TDw/CyJ4FkFWoRVUUM5ysf/SLJyuuPqj
+9QKMjofG0TNMwvZPlfDBhaWUX1rot1roVmIVn6nUZewjN6L5ohLKMyCrNM9
ARbmZURD19I15DwLPGUcv5S4FtHpkuM4xvFZGA+cVUs3mkWxv2V+Ds/MQgLx
548Zt2YRX5nfkx9Ls+BGFHqe6dgskvpDWyy6Nws9Z96ePBM5g17Xsdjr0s4B
j51V+O/OadTZKbSeAXPgr8otQvl4Cul028U5SM0BKKoFnrkyhRZ7ipQl782B
ANU5dafDSXR8QCyjW3UOBEX+mqvETyKhMXmTI5M5qGqcTeVYn0AhS3rT977O
gQNZRERy3Di6uJIUyhA3B559ZjaUDuMobXVeajhx7t///6P4b+VxVLVh8c0y
ew4CzyUI0hCPo809J52Iv3MwY3wxTEV/DKmQhfZP7czBJOPixIroKGJkq252
VZmHu8SaZS4XhhFRrdzDGs15mCpAjZK7Q2jRrLmL8vk8DF3qizubM4T+lPYM
hpnOgxSZBpXNtSFk8Wx+Ps17HogaVNV6uAZRfdSpE30F83CwTlOMBPtR7t0Q
P9ayeaDWdqk8v9OHYpfO0uhVz0NKMN+hQ3EfskPsjCtt8+AdYFWcfbcPcQ4J
cZAuzMP5Y24su9q9yJlFk3DjwgLQ653eWk7pRkZVw39sORZAdaa2QsW2G6mY
vJAu4V2ASsHrWVckutHVEhMFGeEFYAmfRxwDXahXy0XrqdICVI/dNrhG34Vu
fk2w83VbAJ2eF/vDwR1o+txKxtjUAsh/vao8MtKKPF+e3D25uAApSa+cNQpa
0aV8DrGb6//8fVUMuD61oicqj1vdcYtwtL6ckSvZitoDKlY5mBbBn/lDUHha
CyolCblhILsInSSpKr0fmtGTh+kOAYqL4CqtuCNg3Iz2Yusq8lQWIfReCWer
TDMSgqMHJ54vgv3iQMUMSTNKsTew+uGwCPyXf1r8JWpCYUt3fs2nLEJXlwk7
O3kDEsIeHdBnLcL0I4psjYZ61OZnKimavwhasvccaT/WIyqe+I73lYvQLJcZ
vMNUj9x1KTf5BheBluRA8qPAX2TWMyRkTr0Ev2TW68hsatHdCve8DfMleOx5
MirwYRUqzXsimm2zBMshFEfrXFXoTppwuYXjEpTQ1/inHFSiK+Hzf5e8l+Dy
6IXkM4mViMb04dBM1BLYSxZOtOIqUe9Z9uODDUsgvPpTRaKsAj2gOXz3pW0J
znJl2KZFVKB6km5qjZ4l0JS9sv3cqgL9XvZl6h5fgp2PQxVpXBUovmrtSuve
EvS4NhVkBZWjW/kj3GP0y7BBcvU8zr4MrWfJG5czLkP06+NvBlTLUHpaYVrM
2WWwVuP3OhAsQzzxwTeesS6DoYxfBPFaKWL2lxEd4F2GqCiRX0xmpQj3IkOx
S2wZPgnTV+DnS1AdjYvNX7NlOJThxJ/QKEQ5g1Tx05bLsMvH+OUCWyGKTfnS
TGKzDMdrHjSn/2sKB+k8bnBchlC95G3sdQG64rzUl+2zDCECU0aLYfno/ZIW
RMYuA4+yW3nZWi6yL54zLvy2/K+/nfooynKRnq9deHfiP/xl/17Fh1yEXQ5e
pf25DEPKumkmvLlo8Ul9vFfhMoSX6pB8N8xBio13Tpi3L0Pb8Ez98HY2EvlS
I/ihaxlAJWvavj4bcb1U0UnuXQb/b6REltHZCH/conBi+F/eR5R09jLZKFM0
6dXjhX/7ecWo3BiVhehTGVvFj69AGoVj6IxmJuryXY9gEF6BhKxRdkr6dHT9
6ujE4Z0VGCJp8PWc/on8Gpv4p0RXgHY2y9ks6SeCU8lVueIrkJq4GZt/5SdK
DNFeVVNYAb/FHtrjt9OQbUyjzGe9FZCnFSTJ009BrWJFQW6GK+Dzi4fa/1oK
ujKeNGRkvAImzNNsHVvJaJjTw1rEYgUC9xU3fvgkI+mU/2IGHFfAgkSg8EXm
D8SUm7h9IXgFDJ0/PnvGmISs1ELEycJW4Dd9f+qfiUTUuOP2YTliBY53N1D7
ZiciV5Gn7GXRK3Db4M3J/x4kotmy04o6KSswMkFPThf8HRXUu36Pr1iBCzO+
nHieBKQxqqnCvboCwk8OXamC4hCVajAx8cYKNDP0HZ01iUPlfxvS+7dW4EH4
O0pz6TjE9Qs7GXCwAtfPUsVuHcSidS/W0k2yVeitf/L4qXEs+nB1nPvPhVX4
T86rnk0lBhFimbu+XlwFbwv9es+bMWid4ZG7Dccq0F0LWr5CF4Me46oGeXhX
QXs5PfVOSzS63Pb900ehVaCk4dGXV4xGpbZGB0/ur4JGp4FHb1YkslyI+yGs
uAqFF+6Wq9hGIk6dflXaB6tQvf1JU0o0EvnJ3c+sVFv9169JV97UfEXqLNf0
r+iuQvsp3ms841/QasVq8479KhDdKypvv/YZcVDbxwclrkLGSxfHQdowRKba
9l9K8iowU8bnig2HotnIK20VaaswMlD/6FRaKErnG8KvZa/CpdAXhFnZUCQi
L/FUqWwVFE5wtlr4hCDl91RnqXpXoUxjy5+dKRgJduhncAysQr065/m6+SB0
5nyZtOjwv3pQ4qfrS4PQQIqljfHkKsy8uss1ZRiEDOq72+tWV0Fv9+ld9dJP
yOlknL/XyTV4bCdZFOAYiLQf7HNGUa1BnuqD9AyVQCTx+VFJzqk1CE+o0mDn
D0QneMkWJhjXYJSVjXd/7CMKkn0lK8G+BnHu3befK3xEP3xukeBF14AnoADv
fDMAdZHW29ubrEFuDfnlt/p+iOuSB7+W+Rpc/GZCWX7ND9li2CSyWoN4vfcP
LbZ90VnrdCUS+zV4kX86hdHXF2mOBnEFeKwBGn796smvd2ikSKvz25c1uJMw
0c913gdd72bw845aA6vnDr+G57yR61oTwSh2DfSsecR3CrwRO49YKn/iGlhI
XPeWeeyN9EI53Quz1uCNmIKy8lcvNGe+JNBStwaX7fiU9G56IpH3iVNZDWtg
2fkspo3ME/klan8NaV6Dk39qLUIGPBDfUBuZZucaFHY922Py9kBm9/KGJkfW
gPM2WcTxEXe0wenyfn97Ddy7vDpnYtzQUR/tzOXL61DC9GI9W8MFOdfNe0vz
rMNnShWmBiEXhMuv4jK8ug6WCh9+3aD9h0PsDX7cWAd/36n8mVpnhFccnboC
65AhkXViSsQZEf/JmBRQX4fjXtl1t7SdkHumr6ey5j/9SFfHaFYndCzmBafl
03Vg09BwDxx2RMecmPSyX6xDcHQGjkrHEZEIu0wIWfzTs0Ga4kZvEGmK4vh/
vuugm2EekB1sj7wjeNw1P6zDeZKyZj4te0Tmc4zd8eM6aPY5irJx/MN6ec9L
QtchvkYj+mWOHTrByjoG8eugTiHBYjVoi04GLY1IFq8DpwqpzHtxG0T95sOQ
wtI6VLLdORauYYWmRbNGtFfXoYyH/oBJwAqVH3WNWW6sg7KcR/LacStk5cY2
Hbq3Do/sdyTTsixR77vs5SHSDXh9J+bDlVOWKD68F2/GugGF/hrsWX3myEnj
iNj10gZsU6wMG+WYI9Xz7MeDODeAEl9mYvHRHJHHvCLPu7IBFvNR1nrS5sg0
EUeHu70BS1s9Jd35ZuhOLid7gNIGlFwcqy9+aIro7eQ4Yx9ugFy+a40KnSla
uGPGla26AX1ZYbK2rSYouiT/SrfWBqxJuJkpKpsgkqp7gqwvN2Dr0VSikNor
1NxuIZXuugGeYzMqCw5GSG+1xKA5awPC3tSeJ2M2QKle4j6pORswL1GRS7eg
j9aZa5Le5W9ARvPVP/Yl+sjtbsusxO8NqOSSe6Wmo4+iv4wZ59dtgIduai+W
pod6pMjMY0f+8eO+wiWVF4i13+/j2/ENOOhhfxl85QUyMD+VqTm1AQP3nVzU
iF+gzc9n1xgWNuAWh96xpgxdRLtyxdp3ewPIUoYNjGl10b3PSnZW1JvQQFo7
Oz6igz7xd4Yr0W5C+s5qJEuxDuqtfFzAd3oTMlOIV6PCdJDh8vO96bOb8Lt0
666Nog7ylHztqMW5Cf1EO1mGFdqodCnCRUp0E7yvXl2d/vUM3ZAY9zljtAl6
rh90f3/SQj9SfIJumGzCrExf0b1HWoj19LUoefNNCHmWuqjFqIWoJu2y3W3+
zZsneJF+1USzXtRDy26b8I7QlqyepoGi/965WftlE+oSpOZOTasjxpvD2HjU
JtgfUYg9zVBHH754yBzFbsLVzFenWR3U0ZtXzU8EkzZh9XGy7ja1OlKl1vOJ
+bUJzXc9bGYwNUT14OOgXeMm5F8Y0ybKUEEehUIzQS2b4J7T7cTkooL2L/Wv
/WzfhOj76hXBSipoZp3zxGTvv3yBliYFa4/Qn5CiG8pTm/AlifvpV5FHyKF3
ypsHtwVbZNXNjMMP0LQ2dqNPYAvujMdSfDNQQg1fxTXLbm7B6YuFS8pSSiiz
R9rj+60tIB548EaCXQk5KD3oshTdAvYFe8flYUVERTBwoJDZAhrV0RotLUV0
gzWwQvTZFvB6Ey6J/JFHZzRD5y8934ISB41XQV7yaD/0y2lyvS0IfFklpysn
j6qov+t3Gm3BYu7zM/rt95HaUeFJU5stmCswCR+au4ecBiceRH/YgsmDHomu
a3JI5+zcG8+PW3C7iP06tiuL7qosfzMO2gLNi2R1VJWyiKZxd0s4YgvIPBfz
ZzRkUVwx9ZeWb1vgIZ4raPZBBtV8uT1OVLwF7WU9H08dl0Z0Gu+tXsxtwajm
Wwm3O5JI8eXAkcjiFnQsgafDKUn0we6qL/3KFsCQw+mKaQlEHtYQU7G5Bbb+
xnmiYRKIqIOyiY1oG96/XAlq3hVHy/IfuAfPbMObR8ffzDeIIb4ng9m/zm3D
wED9zaAkMWT8ig/es/zDlCVXXD3E0JRvo4oI+zYIWtEU8WFiaLCGyj3i2jbo
xx6WFGYSUL2Y/6CK1DYIM72pv5EIiFx5yJBPZhvWJlyJibwBSWtf2yC5tw03
5S5aURkAqnjbdPKX0jbk6eMvDnMBKiiivk2ntQ1Z+7xuWY8RShQK+NRkuQ1L
d57tubqKIg+ej9LSMdugcLGrs/3SHbRKQVSiFb8N3xjeNR5fuI2eLVncsPy+
DbhOu9TknNvoTvZDlsjUbdiZM3wqK3cbLYueWV/L34YrqeG/yuyEkaZSVFRU
6zYgm+k3TbNCqO4GzelfHdvAPdF0raJACN1icHlX170NYTdeRp3zFUK0fTrW
G4PbcKsv2nDrihCq1uWUk5vbhj/Svvvi1oLoum3q5ibxDuRqdvO6MN5E0Y9Z
jClId+BtSqma9sINRCnqP8JGvgOO7xc6wytuoGm8ef09mh0QylgaozG/gb76
3oyNZd4BL5q/T4ibryOyqML78oI7YJOjHPb0qwAarKyN/6a3AzFHb127R/lQ
vkOEsKfhDnT+3hAzTOBDQQJG9XrGOxD5vF/c7CUfkvtKsX7ZYgc8Z24bDaxd
RXlWCuI/HHcgzfeq2TmKqyjwUsdIWtAOEB+qr+gq8aJXPd+s/UN3oGYDO7Fy
jhdJ+78+YRaxA5O58nkTkzzoaJdRQCD6H19w/AeJEw8ybn3snJX8D7P7jZzI
4EZSLsMseeX//M1fvrPl5kJstzIywyp3oI3V1FFg9zLan3eRsqvZAbqKp6tS
fy+jLLVLJncad0BO4Ym/u8llxMqvV1zUswPLThyst/I50e7gnEbZ8g5I1248
HH3CgdJEtsLqWHZhKdV0smfyIsqvnGaYYduFjw9kBCtLLqI/8r1BpBy7EHOj
2IUk9CLqfVYcIMG7C6SvqSVcpS8iEg8375Jbu+C05n1a/Scb0mygts1U3IUT
ftjwhC8r0lfBbzY/2AWlT8xFTQasyGJo1XJJZRcM7podEkuxIu+VDtMrWv/0
o/JABs+Ksk5/0U8w3IX4ERRmtMmCyJ9wqUa47sJWA7Ps5W1mdHqKqSPPYxem
gs/Y5xcwI1azkw+6vHdBu05rvsGRGQm5LsrT++9CpbOgjB0JM9JOyJb68HkX
umjFRIvOnkN5iyDkmr0LT+sFz1BqMqEXb9VPv5zchXXXJlamGwxosO9HxoOZ
XfiP6YUwGykDUhHevy86vwtppRovnPtOI+mVSE+a1V3gfNojT/A4jXiej2/l
HOzCKz7hzoJ+erQsZdpLfHoPBvKT4vcj6JBhXOnrBcY9cHg4dorLig6NHp2i
6zq7B8nq6vrR9+lQW1623A/WPcj/PfjSGk+Hcnh2ixSv7IEkNZl1tDEtekPl
EfVVfA8WJ8fUHRRPoY2Xnf95Se3BQu6cPj/fKWRSfbnbTGYPttTttLkpTqGn
znU0Egp7UEx29nC8hgaJrVK7zj7eg18sq/pWkjSIrDNC95bFHnwujgHSYCr0
6Ws6d0v0HtjOu0tzEp1Eug33uFLi9uAud1VwVgM5EjqY5vRK2IPOLr+ihHBy
1KvJxi6asgeTBDKXwuvk6CJzIEtS7h5E30iK8TE8gdIjLOlcGvfgutb4BO0M
KXKto6bVbNkD3nZZmfgCUvRwN5nmVvseSBQ5dfn7kaIt9XHKhZ49SDNF+RYC
pAhjekSmPrEH2X98Sh6+PY4aQoUO+Pf3YFOLy3iLhwRFVrfunTzagw1jH6wf
T4LMtkx2J/H7EOR+cpym5xiiV/2+9YV0H7QjAkX1vY8hTYYzq2R0+3CxZfxt
7iwxmg3amRzm3gd7G7ZE3WIiRBpY1Bygug8fOPr+ng/FIbJgu/ykx/vQdmIx
kM8K9++9F4ot19oHiejxGW8lHKKITLdcf74PCuFcA4yUOET7I55BzWwfpHeI
TZmpjzCWcj/NCz77oN5+xyKX9gBjrZSRFPbbh7U7hOtvO/YxtprjfEr++3Au
ObSvOmwfY290PnIN3ofDuNi0LtZ9jKfXKnYyZh+GeIQE2oX2MMFVzenUgn2w
va4T9MRuBxPaYGqpKt6Hp7IzxgXiO5jwdmf+UOk+kA9Y3/ai2sHuHCr6nqre
hxZv/h3Tb9sYkEvyWbftQ0RjvY9u9xZ27+JVK5H5fWCJhG465U3sufLBUd35
A1jJKyjN+7CGtXKdJf3JegBdNQamUgZrmNiRENWnSweQaa6ceUFsDWNNMWPW
4D4AmcOfcZmbq9ggybjw3M0D8NoY/E/2+Sqmll9nfvLeATR/UmP+I7OCVftP
2S7JH8BFe5Ke6ssrmJDeMec2pQOwbOnVpTq+gp2mwz58Vj2AftIfA9oVy1ir
ccYP3ucHoPc+SJCesIzdYw0bk7M/gHbccxfzgEWscDN79prjAYSmS1JqPlzE
eBpaVuicDyCtRSWn6MwidsL+JK7f4wAWHp4o649dwKranJiNPx5A9d2pcqei
eQy8XjzySzyAkExbK+9jc5jg4vXq+s4DWP30Znh7ZAprDzXLW+w5gEr8nifz
zynMgpCWRDNwAKM3fjqmvJnC0oO4/R6OHcBj171ySqYp7Mp/rEr9SweQUOM5
W6QyibF7U/bNkR3Cl79EqZQT41iFgFw9JcUhhNPz3f+QN47p9HkXX6M+hJfL
Dumv/MaxaL5j0ZanD8E+aC1CUnAcO9exq7vHdgiG4YWPJHzHMNqL04vk/x3C
lF+xfsfdUSzjL8fwFewQ2q553pxiHcUUrZ+3yBMOQR7pzMjtjmAfagazAu8e
wtJBgOzJtBHshGmH7dmHh6C2h9uSZxrBcEXlRDyvDqFlOZ4obX8IW3r0lUEm
6hCcC/grBfb7sOlWjpeasYcwTPy3LrWsDxtWSCs2/XYIFqR/eeK9+rBmmd+6
IcmHoN5YtL9H34eli45kjuUewjhrkamIYC9mxsGh4NR8CIGrU8a8vt2YQWxq
7Me2Q6hlsI7uUe3Gnl0Q2ozvPASR7rcX19i7MUWmu1//9h+CU+CLQN3SLoyf
0nDuzMwh8KpEn+De78SW11O8svBH4KJVp+fo2YFNmwv2VR07gsVNvKiDegc2
vFjM10t6BA/Vna91XenAmqcbO3BURzAx2KCa0N6OpfcvX5I/ewTL82pBflzt
mNmfm6XT148g+PjVv+3Drdjyp6Lt87pHkJfEzOX6oRlTGY9/ua93BB6yb6Nv
mjRjRTff9/caHgHH1oULnPLNmHeHVmmo6RHQZfBL/KFqxi4wHnmdcjiCLlmL
2d8cTZh8BIGRJPAIEupuPtK814Blz3L7jAUdgUyEX9V1ugbs7H+0e2WhR2C3
n1Bi21uPTfaNDjp9PQIGR+NBhZf1mON594TtxCN4TfLchs7/L5YSXSU4//sI
VoT0rt6Zr8VoV9K+15UfQerfuuCE/FrMlhDKlFR5BGbIL9naqxaTGNU/ePH3
CK6vuQ8Ks9difZdOVA51HoEEmeVPTKcGI/8u97Bt4V/+G2w035eqsGwVg9sD
lDgCSyVFII/cH+zttLG+ETWOwNaIj0SsfzBZe/PgHRocgelEzKufGxXY0Ff7
ldP0OILZiW/qX2IqMPIJvyT5szhC5JZkbchBOfbMMoOplBNH2HONFDCpLMN4
SXLuynPhCFsxoYPdUWXYZkiBdT83jrAqyE76yb4M8y2oaNm+giOkxu7xrvGX
YTn4Th+BGzhCg+9gnmJMKUYRsLsTi3CEoci9ppkLv7EutqPLAgQcQfmrzDLD
YAkWm0Ws8lsMR1g4cpds+lKC3eqiyOyTxBGyS8K2+s+VYDosF17S38MRnIiZ
hu6xFmN5KeK9Hmo4QqHecqgPoRDTrfUrMDDHEY4NttSKDeZikxJlNv0WOMLA
T3/lCz9zMYPSjZuKVjhC+MD6mppzLmaU++TnLRscYZvlZ+zwpVzM4ht//HFH
HCFE4N38VdMc7K1L+/t4bxyBLikwjJPhF4Y7IJM78w5H+L0g5uYyn4252oqS
+fniCKWcp1L5KrIxT9MEV8sPOMJ/m36CjubZmJ+WrY1YEI4Qd14uvqclC4u4
zaw9HIUjMMT9J0UWk4kx/1JkeRiDIzRHKSaLvsnEvvJ79FXH4giDt9PyC1Uz
sejLi49+fsMR0q9pBvtTZ2LfT5fKOiXjCHzvc/o8XTOw7JXnN5lzcYTQsfvl
/1mnY01JyaRqjf/8SurPGdGnYocfSF7/acIRfLu0fzL3p2BXrJ6O87fgCF69
t2T+i0/BvDG6shPtOILcQpdEkWAKBm329oU9//TnDhNztJKxzH2ZBZYJHOH8
9mR0f2kSNjwSp+E7iSMYndihOPqQhFFVH9RuTeEIb7+nHXfVSsKMPmYkNM/i
CPt8kXkJe4kYOyfTM9dlHAFXrbavIpKIhShMt07s4Qi/eoXTcxoTsD83xQjK
BzjCyeddau9jE7BVpi8/Sw5xBPrdNLf81wmYwriCXygeT2i8fOwvNWsCRmaX
KylDiicY/i1Ujn39DbOP9cxLocUT8PP0He3X4zGtDfZIS248waw/dlxtLAZj
l/DHH/HgCTzmgzPVxTHYbOCO7rsreAJdmFObR1gM9pq/kTfmGp4glhxQMicf
g30wsslvFMQTuMs3uOV/R2MlI7Xt3GJ4Qu/+9aQqjSjMnf+m8C9xPOHz/qfc
OaYoTPZt5GeQxBNe6JLSfe6OxDqZLXVUpfEE6qUy7iDVSGxRlXnZXR5PuF53
6XuzxleMpdHk5PBjPEGt49q685vP2Dhzj4mRJp5QgbbKqsU+Yz+MxFs3tfCE
jrL9Gq8TnzGhE2fCKbXxBJM1r3emYRGYvEQZ53/6eMKwAqlneWE45lRAJxZi
iSfsLjcoxjKGYUMJebb3/PCEHDpzB0qWYExzSNmo+D2e8KZbLjFxPQjrZlzQ
4vPHE9iWm7aD/gZhrd5s4jSBeEIo6vN5Yh+EVb18R9keiidcWBlQju/7hKXx
acZqxOEJ0es8IdYpgRiv/mZQfTyeoAq3T/R5BWKJUQFeogl4gn/qbRHv54FY
LE2l8YUkPMG0OzA991wgFrJ69dZYGp5wZEyRreH/EXPKOfr7suBfvU5JfhVz
C8D2FsNL+grxBCndLJNxnQDM9vLNjHvFeMLv7x6ZlWIBmEWYQQhfKZ4gM9YS
LUEcgOnZtzxbrcQT3IjTLe5T+WP3sbgNuxY8wTNPtfPyzfcYc5XUBZ9pPIHK
7YiGqM0H4w5N32WfxRPK877HeUb4YEIGZztL5/6db3j4b08dH0yJfNFvexFP
GMdGNDfWvDFP+eBd/Q084XRv/zVTZm9sqXOsQ4qIiHAQcuPruqsntv/9fsYo
MRHBtDroeJ6SJ0Zul+vnREJEeBuoyzrF6omxn/MVzyEjIoSKXct3L/XA1J5e
z+CgJiJU6ty9E3/MAyufcvY7xkxE2LIlSk+PcsOa8mb1o88TEaROq+Eqrdyw
fp+H4iIXiAjfxpL4b8m6YZu8XLuWF4kI4uEFBwKbrhivWZP+GBcR4TSDmJiR
sisWtH1evFyQiND/5FQN4ZwLFlPrxfLkFhHh+Mbd4K4NZywtYmVnR5iI4E7/
89bvZmesVqQyXUCEiHBJOlHAxcsZO3Q2ZokRIyLMnf7tZ7fyFjup3LkjIkFE
iFaO3f+c/BY7cwk6uiWJCB5xWv+p6r3FrlfS+dHIEBFGAtWWAgecMBTiqJ8i
S0R49DqrmSbCCbunPyUmfY+I8MeLRv2iqhP2WFiJZfw+ESG4zEmyit4J0z9R
uPNWgYjAb9n0aK/VEfsfNA86tQ==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40784.}, {-10, 10000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7778079099686785`*^9, 3.777807978426996*^9}, {
   3.7778080884824357`*^9, 3.777808091199507*^9}, 3.777808361505978*^9, 
   3.7778084912928534`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10000"}], "}"}]}], "}"}]}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 
   3.7773605967737846`*^9}, {3.7778079905782056`*^9, 3.7778080851094646`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "5501.891400118127`", "78.93870781352493`", "69.69827037345377`", 
      "1.710501023230971`*^-102"},
     {"Tm", "7244.460771075952`", "147.36327308318405`", 
      "49.160558255153425`", "4.475618175118107`*^-84"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.777808092906505*^9}, 3.7778083615528417`*^9, 3.7778084913752556`*^9}],

Cell[BoxData["0.9871619156111227`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.777808092906505*^9}, 3.7778083615528417`*^9, 3.7778084914064984`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVk01Ik3Ecxx/Eg3TysIN0egoP4VF2kDB4MA9jSD3JyJIis1liVCZWYG9L
rBZJLbPojbK1yiTSalFJL8tWLXtbtrL3lnmQThI7RKfK7+d/cDA+fJ7f//f2
37NZ9RuqG/Isywr9+/6nPvXOFFbdEK3toh8PhcWaW6JzSFx/FT8q9g/gJ8X2
a6LdI0YviT1Rsaif+Hlx6Arxi2LsAvE+sf4ycehSz6bOZExMM4efeCFzRIm7
18XOc2IkLmaYI83eXWfJvymWMLfLPRSZ/Nui5wz5g2IpexfeYR/i7l3m5Z4i
9zh3mvz7YvkpMZzg+TFxzgPmPy6m8AF+h8Yh0YcXPBRzeC+e7OZckrkOixN4
+RH6PxIzXfR/zLx4Cm/GG58wX4T+KeY7SH/cy3vke0r+AfrjYTw8LP7upP8z
6u2jP+7up/9z0cYLXvCc97gXH8B9L/E99MfTe+n/ijodoicthnaLQXyiXYzj
ZbvE/NfUxwO4g8dMfKeYw4tCYuWImNghduOTW8Vx3MG9b5iP/3EHbm8TM7hF
v+IM+24WW423iUnjW0TPWzHbKgZxu0WM45PUy39HfKMYwJvJj+GRTWIOL2wW
K0fFunVi9+j0+Dju4t739GsUO/DQajFjnHrFH0SH8614Isj+eF0T+3+k/lr2
xx3icTzbwP6f6IcHcGcN+xsnnsPtlez/mfwA++NZ8sdxu479v3B+BfvjTi37
G6d+8VfOL2N/3MKTuLNU9Hzj/BIxaHy5GMetKjEvizN/ifF5YrXxuWKb8QVi
FHcWicMmXiP+MvFqceZ3McF8FbjF/E3GfWIXHpovDhqn/5ip54ozxogvFEtx
a7FYa7xMbDfn/WKfcfYZMV4h/jH5XnH2j+lxP25Rr8U493vCeHliCkPGud+f
pl6V8xeBe1Rg
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVVnc4Fv4XfV8SIZuQjIxQiUgS7+e+Zvao5Ct7ZESIrCKyG7JCIrMismch
hMree++993p//f659znPOffc89d9LpepvbYFEQaDufev/L9n2EqY9tNbIzo5
+9gJz0Jw5Q4fPMAoAmUaIYH6fiGcNBoq+Iu5B3pMl5mcJQqh+ZAoKQdjCScS
WGYmNwogr4HxTCrGFaSoX+H07QqAR5SjPR4TCDum68V3bPJhaDolOxYTDQ/L
Jxc5X+ZC3sXTtgkl0VCYzRFcYJcLAQ4u/KkOMZAwsy3mopULwvu3kr6Nvocp
V+OwFyy58OL0cnhlZRyomhZrFmfkAAMr200nSAKfH3q0qTnZUAoP2N9jvoDS
j3mevsRMYFYqrNQ1/wLnMPNboY8ywUXrhBnzny/wfQPOJEllwlXT5C/Rb9Mg
Mj9i5HdfBnz1HRaOYv8KZy+rtbMzZ0BsnY5shNQ3YIxNwDikpgPuM3eBQlku
sDrPvKna+Qx2gir+fMu5UBW772vT8hnish7rnOTMg2t9l+7offkM+0VVu7W+
eZBHeiKcUvczFP02kpZXyQca/rdsWWWfQGjuQ51sfwEctrouPwtPBY5LDH2w
Wwz+ZuYaV+yS4dKMRGg7XwlIpvM92VJPBolkA0XzuyUQvlt6ZUk4GbSZvxQG
5pUAkg9gd9hKAr8TkuHNtqVAMcbE/sM7CeYHjVT0x74DXldekCsxEQreZJS7
1peD3gS9swLmI1TeanU+tVcO/51/wUjTEg9NxFsXP1yogDqRUgfBj/Ew7Y6L
rfCrgK8Xs2Q1pOOB5UGbCwn6Cb8KOBlVnscBSjiI/vtfJRD7mMx8oP0Aqa5c
Wveaq0D8ySespm0MbNiTo4tTVeBN1vSaTD4GZKw2LhEOqkA+bVEWwx4DY7q1
ZF8EqkHF4HZiRms0sEtaV277VUNG5THbjEQ0RB/mXIm6+QsMFAjBHxii4KUP
UHWl1QBZj1Op7XYE9LkLHKb9rIH85rxyre4I4H9MN/+suwa+5euZ2xRFQJ3p
ZC3PiVqw1UJq11wjgFguyNPZqBZaHvfH8B+Ew7OTrYv0THVARcHBjijDwf6V
UYO272+gS3WuZNQKBalzGuRMcb9BoirQLFEsFMiycUp9Bb+Bzexquj5zKCS2
n/ttNP0bpkVv+rdVvoVWlsFqW6U/4MXyqvDVVAgIp+l+D6D+C9XVuI538AbW
a7TSv3+oh+W4bJVsiZdQoYOf9Syoh2Pq0YAN8pfwclb4Ar6pHtgbJ/wDh4Lh
PCXNp9/H9eD6azAlzjcYbt9uTuw0aYDmuTAz244gKBhTjlm+0AjGTzLOXPYJ
BJdj2cDzBU3AIh029J3WH3IvXi3FNTQB5ySltt2KHyzqci7ojTdBRPvfhHtN
fmCaf6geQdMMIvtT99uD/UDdqpDphF0zKMjNB+mQ+AFvO9/nKd4WYHa8zKV2
0hfm2/1MO1Va4WP1LFXGZR8Imnv61PReK4ypConl0/oAL8YpctW0FTp77MZn
t7zB+LJJHaVHK7Ql/skdqPCG7kBpQfm0VkiTSD/Xo+0NVVLba4Un2mA1RtCp
ieQ5xHy29Ikub4Pe9O93WIifweapcZlz9W1wTkR+LbvtKWja6Z9I6W6DuqPw
ovjEp0AmphWYtdIGKcwhd5+hp+BWJfmmlqsdPtT76Vzz8YB7g6ffb/i3g/lD
Yi1GBndgoivI0VDvgMX+8jslTi7w+InQ4y69DnCD8Lxzqi7Q3Jsmet+yA6rS
7y3+4XGBgIT4ogfeHcDE/Jl0pfsJbF0KLPPM64Dom+wxtrgn0Kmo9yeDqRO4
iX5n1LI4Q4QnZpR0pBOqlgTdh44d4Y7QZ8HbC53QG7q8kjfiCAwjKk8+7nTC
pvdb44pKR4iEaPJrNF2wkc7x/YmvI0QRC10zxXfB5b5kKX0KR4gJvv+yLKUL
Bjv6N0t5HODjuyIxR6tuMMg7/FS7bQuGCvrPy5y74SZN3YW4Glvg2MHWk/p0
QwX30+C/4baQqKtm9PF9N7QE9EXwCdtC0tnJ4Ib6bphJ03/b9+ghpCbRjvBe
7oFR2uslqQfWkP7NNrh/rQeSKfR1qTQsgTMzTE37qAd8lxLdzQUsIeZrEW09
WS9YZxe77BBbQtAXTGwpRy/YnEl42l76AB4kRX6NUeuFu7/KGbX5HwDPu7IG
nfReICji8nhoLCDxGSVVh3Ef/H5IrZxAZgbMT0XalW37IP6s5uDQnCmEuutE
Vbv2gb1CH6d6gyk8d0lkzwvpg4+RtN7VIaZg6CB2JaysDwIsHiyvnTEFNnN9
TQ3mftDpS5m4IGoCMSqZ4Q0t/dD0gbm+h9EImqPuECQH++FtxB0G8xFDODF+
+PDrbD9Ql3yr1Eg3BEc3Nflg7AA0TQWmyuAMQfnT8o6C6ADkh/PE+tkawMGx
sEF11ACQvHy4uNh3HwzzCi+UGgyCFHNRGM+mLkQeGUTy2wzCNXt/r0d/dKH+
1klsjMsgmKcuHp6I14XrIzr9Lm8HISF6KYpRURdoKHdfi1UNwlPL3Kaij/eg
2kJyPZtnCAiODClB93WAl+Vn2eeFITA0qSikJbsDdHnTyTI7Q6Az2zugNnMb
MCpUwcNEw9BhXfH+Z91tGHxmcJeJdRiWlLu8ZAJuQ/jowZL/rWHgfPjXo4z0
nz5NgsPi0zCwzwVZXWfQhn7xPB9uoxFg3dBlYtLShD8tfZY/bUZgpZGkzEJc
EwqtsOr3XUbAplT01NhZTQiN1WSNeDMCHEode3nNGqB4vJxHVDYCgkxYoUiM
BvSPM647UI6CzNrp+QEnNVD8qs2taT0KgqQNbguRyuBw7rAfYz8KTpWU7Co2
yhAb+ik813kUhELusq8gZVh02cXSe4+CW7i4B9GiEoTKfhztihoF5iDiJmVF
JegdnIu/XzMKhLuY5yTkt8CK2ofZkmMMDA7PDpuUy0PYC8HWM7xjIHQcfdM/
Vh6+b3UE/hEcg87/Yr1HXeWBcpBvR0B8DA75Be9Li8pDTlpj16LqGGTne30J
yJSDXTxzxGOPMdDTLqahTJeFIOfs015dY5AlPm2W9BsPNCGx778OjEGcohpN
QRoeYr748/aMjUGs1bOgw2A8pPfflxZeHgNdq6AHl9XwUA9kduMnx+FePEXt
iW4AytMmjQoS4/CsYGLUZRxB6Ce6V9QfxuG0QK3fVJQUMP88YpJKGgep/OFM
QQspSOydTbb6Mg760fF360SlIJfi5/eq/HF4qSDaetx2E9odH847NY7DnV95
YuZ0N4EBV6PUezQOJ/9Tufsi+QbEdD8hSzKeAMVE3iblQ3E4jOJsM3swAfaH
n8/ud4uD8b2G93y2E7Bod/14Klcc+Hs5L2a6TkBmVs22o5U4lPQ1qBWHTIBd
zDGrZu816BnkimgqmwCJUPf/2qvFgGmi6dw+8ySkvBZMcam8Ch4pbtNl7JNw
I7XemST5KgybcWc/55kE85sUebW+V+HzpBuQCE+CguWJK32KV0F8mtuMRnES
aFdkX8u2i4DOnHsa35NJUBwNQOMrwvBuhVf0dtskmIantgbGCIGuDl1rWM8/
vu7wboGpELCVH9u2Dk3CgBHVG3RZCJJf9nxWm5+EvhgeV/tflyGLN5j1FvEU
iO1LKHNvXoI/9xex0temoJNchELjwUU4+J3Xyvd+Cs7YyM+/DeaHCqEEO4uE
KRiSECGYG/LDi3evyFM/TcGdU+9IAkT5gczMXI4rbwqCOeTb0ocvAMMxY8nZ
hikIDenH2EhcACEx9wSaoykIuFYTrr/HCyaJ6NG+8TRs/CTbLPzGDd3fqlrO
Wk6D+GWblpJX3KD6Q1ZE2m4aiPtsjbatuUG8W3Hzufs0GPHZk3Fe4AZKSk0P
kvBpqE7gDT+feh5KXI0DaH5NQ4vdpObbNC6g0vD5yMc7A0U9qt+PczjAT58Y
c+viDBB3/FjHe3DAnrW/ibXIDKhm0xRNyHLApF8wT6b0DEwu6WpBLzuUfg/7
KqIzAzKDvLKqJOxgzpdcJBU4AwKOhkO8Dmzw/ai6WXtuBpoXDPkb/ViAIu+E
HfnKDFzzFizMus8C+g8UKKo3Z4Ad8N4dV1nguPmvoghmFsCG9sL4GDPIJrZW
Up/5h/9OiZHJMkOjzHBeo9ws9NkIm5+jPQNDgXtRComzsCaOyy3vYwAhqZvX
jj/NwlFhTBZvCQN4rz7rKMyYBTdE1vgrigHO/4eh4S2ehYjZUfKkOwzwQJA0
mLh5Fk5FsYl0t9PDciPD08qDWTALGPo01ksHGDphI8l7c6DJW2+keooWcmzz
2+wM5uCqYyxb8AINGP8Wl0sym4PdJYvevSYaqHomLUDmMAfsXKLjTyJo4MWM
8kZX0BzYPce6NHPSAEm5RaDj9zkoY434bBNMBeRWH7LTzs2DsKvDj4uGFPC9
mv38IPc8MJuzdd0XooCH55IjqQXnoceL2WXkmBwa29PcXcTnoYpTlXQkkRze
SBfJymnMQ/drmuzs2VNAQ9/WM+I9D1vmNn5sgWTAWHESc2ZyHjbbsc+9D0gg
+adS9ujcPOjfI6b73EMCQlWvDb+uzMPc6wP2kwUkoFBDVy59MA/8owsCznYk
4FLP7mFOtwBsNYY/jsZPQHe3+GYuLICECIOHSy8xRK08mFWNX4AP6k7Z7+ex
cH4tPZopZQHG/i5vGzdhIWt9UWE0bQGCtB/N3MvBQt3W409OBQtgJ3DqTYcL
FrYPvExjGxZA/VggeI8ECzpk0YMzewtwwYvQVHEJA2e4fre+0FmEX2cfa7iI
HSGivyp3/ugvgil939dBzBFadmjtOW22CB8OnUQ+Nh2imsq+4Rj7RVB6SyMt
bHWIHhsvLmYFLYICv/yWV9IBakygPTXwfRF4DBuzEc8+8mbXx4tyLIHd9LNO
5Qc76GHdaI0b7xLMZpgS1qV2kM4ji1sVF5fgWzCH+CT9Drpc8UhDSWIJ5Opq
fiVUb6N+Ax8DI60luBHU7m7HvY3E4j+7v/JdgsJdz93ttU00e3Ytd2JmCV58
GTrx6uc6CrCh2KdYXvr3376cO5GwjrhLeWXENpdAs4VFsthrHRnq6LX7YZbB
eZI05hduHXWG/lrnZVmGIQJtmUPVGqokiRK1Ul6G8Xcr1vWtqyhmRbJwMXMZ
Ulwit+gFl5E47u4RQ/4yGA1lLf7cWkIdr+3lpUuXYbi262td1RKiEkztelO7
DA1xDqTjekvIz/z0ttDwMmTwKKugsEXk0Dci7ki9AvJcqjnUVAtI8ZdfyZbj
Crx5+r2CRW4WVZYYShe4rsDR+eKNNrZZJJklUf3YcwXuDTlW/N2aQZfeLzas
BK0AQZrOwyVtBtHY3xmZS1iBBI4Gh1KaGdTPynNyuGkFZg3GPocsTqHrpWMC
EwyrkNle9Gq0eQJt5qvbVp9ZBbXrUSytWRMoJ+tHVhLrKjy0ag/ZCJlAgqnv
RI05V+H8TNdIp8YEYnurJD10cRXq4uspdzvGEcYiV7NHZhV0mMka3KfGUD2N
j2uDwyr8PVtdpn5xFBUNU6XOOq0C8iTdXaEaRcmZca0krquwdX5q039qBD29
VSIAnqtgFr+8svdkBF3yXhkoCF4FVnHrgUcfhtGbFQP4mPxPj0p793YGkWaz
5CnHzlWolQ3wvLHRh6Ti/lwL6VkFPZWfprm1fYjfRsc0o38VhsveX3SP6UPY
k49/TI2ugsMtN4ltXB/Kk06301tahYmfwnzRb3sRw7cz7bIn1yDtonbcMa4H
9bzajGWSWIPnbOWyU+2d6Orl8aljyTWgKh6XqsvpRK+bW4RnpNfgpMEm+0hI
JwLajLpi2TV4c41wpVilE6VFmazraqxBWLrKp+3fHcgtqVnpw4M1eHZEVGpR
345YitN2Od6tQbFnzbWSzVbkrBslSxazBjoUpF9WeltR855vyGrsGoxHZ3+8
U96KXkgZ8VQlrsGnMeWdTwGtaL6KUdM0cw1eD0zKGJ5tRd8bX3xJ/bUG/QGd
M43vm9H9cX0dgfU1GKCOsFqMa0BU994RE2+tQU2EIYQ6NKDqhqacwZ01oPMq
uf9UrgHxF+IoQo/WwJlqJIJ3qR5tBnJWbpOtg+vQg9xyfD0KuTwpUMOxDsr2
6fxxO39QpdvDI0O1deCfCXovElGHnJZSvkporsON+iCTpUd1iM908B7d7XWI
fPfSdkK5Dr1WUcur1V2HPEJd1zPiOvQf+xXLS+brEOIhMaTnWovWf6237nms
g8GW2JizdQ3ipfZIjUxbB/XHsxl1ztWI7F7HzcyMdTATJX3x8U41mv94qeNX
1jokMhoZZYlVoxyhEexGwTooKcylO29VISl1OSOtqnX4MZa6H+pehbTfULFS
9a9DwTDJq6JXlciLIuVtIMUGcFYud736Wo5Mbh/yJVBtwJPitZABl3Ik9+Fu
RRHtBtgf0d3zly1Hpy6SLU2d2YD9Z6zJk0NlKFLZTlmOZwNm+oOlqpjK0Nfg
6yRY6Q04S8Ne+CjmO+ohbfTweLQB/FEnAnJ6ihE/t7+wgeMGXBL1xsznFCM3
HG4aOW8AaCa/NH1ZjFif5GiReGzAsrCCGDWuGOmPR/KH+m/AerFMs0paERor
M+j+FLcBDsGJPw4CC9GC44pIW/0GyEx/cklxzEdSb9Jm8ps2gDLRGn9COx+9
TjOJj2rdAL/FIPeYq/lIaKSDTL97A8audE/8t5mHHFRLRqbHNsB/jCPuukce
2uLzeXO4uwGPZT4JML/NRYQBurkLFzahSC/7bVpRNvKuXwy6JbgJiYei0nVe
2QhTWsdvfXkT9ujTzBUU/+EoD6uvopvgqe1o+7AvC2E1x2cuwSbMuLlnXyPK
QsQ1udMi/21CbEe+1g2LTESaqTl589UmeOsaD6XbpqOgWEE//ZBNWBGuez+I
0hFZ8Akez7BNyHhVd8uQ/h9+UGJWEb0JvVfob6v+SEOnODknIHUTTp71P1dD
lYYoIlfG5Ms34ZL067Jvvz4j6mchIxorm+Dl2xW0ZpKKZqXzx0zWN2FQYwWb
hUtF1YSeCaetTTBZ9PL8cjYVOftyzUYfbMLTL97dGt0pqP9lweoI6RY8F5HN
tVFPQanv+7EOnFtw13j4PwelZCRZzMcTqrUFkiLfxpmtEhGDuwpf8p0tMM+r
uF2kkoiWJB34C+5tQZVe8qjflUSUWFF6qddgCzSnr25ZriQgkjrVa5w2WwAG
oTTJDAmotfOxQs6LLfgtSaXh5RCPHqxXWLXmb4HHyZ/LMdax6FugbPC3oi1g
bONS3sHFok22P+kvS7dgoKPdOZYhFvkqts3L/dwC7+WwZ98q36PEuAnb0vot
SKWPv79/9j3qUyBzTB7bgk/svrVtw9FI9YOWuzP1NpAHkfB+C3+HIoS732vR
bYOSVs7VAft3qL9W77sQ4zb0xJx0xqu9Q9arZgezrNtwPtXuQiHZOxQg7+Jp
wLcNib7Y4CsvIlHlSqyPgvQ24JUw9dzPI5Co3GQw88NtqIn6ulf9MQx9zQyO
FH20DVGMrSFLz8MQJ+OVBHXHbTjrWsSsbhKGqKbdC/xctyF3oSIsmycMzQdS
j6z6bsOHO05Lc99CUWKDpNjfuG34866U0BfxFlHdDht2b96Gc2ULwSkqr5H/
D/G5yLZtGGXx6+ZgfY0OuQc3sju3gTr04Z/12VdobpPv1HT/NnSwFuBiA1+h
mqgyUe2Zf/PbnzlH/rxET/tnggQxOyBnPWVWpReMZk1wogMiO3B7pnyaoyQA
NcXL6leJ7cAP/30ibEQAyuu75f/l+g6Qlw7Wsj8KQE+1bvc4Se/Au9TWfCre
AESFt3pKqbQDD+yMfArf+SNRzvBf0sY7oGUea9/g44e8hqduJ4bsAMu5UJq4
Fy+QKevCs4CwHRgety0yMH+BFHVWP9lG7oCHmk2dpsILRNO8vyMRuwNf3e+N
/yV/gVLKqePaPu3A1f9i7xLe+aA/cTcmicp34D9L7kuihd6I/v4bZ4uFf/mX
vh7aC3ghTZshgtTyDiix9xZy7HmiEPfLrxjWduBO3ed2tr+eiDymKenX9g7I
CDLeOrL2RERdp1u4iHaBR73vl1L2M7SqHiIwzLwLfJjygDTFp6hR5u2wjsIu
/Aj0TjLKdEPk2iPWQkq7UHljjdDn54ZumVzZIlHdBZJTs5kRBm7o1/MWikKt
XYi6+9DgF7Ub+l5GfYPeYBcUXa8InHJ1RWnioREtTv/8/U5v92q6IH/BsFu3
knZBMHBn5VDIGa1TElUYpO4CrWrVk3kKZ2S88ljU6csuPH7DssQw54QkC+6w
f/y2CwxJkac4Up3QqjTz5kbpLricehl2yOaE9LUSEhLadyFDfm3al+Uxuur2
bXubeA/a7A45OG46oEQ9dltK0j3Qvj28NM/ugE5Lvx3jIt+DvziiihkiBzSL
dWxUpdkDltMErukoexT/Siw5mW0PBOJOZISUP0JkCT/U1K/twWl2jThpNjs0
XPs39dODPUhb/DnVzmqDSp/GSgRY70HZu28NnqvWKFLkYeMD2z14/vjRPbs6
a6QST7l54fEeXNrrTGF2skYlzhqyXz33oP+0CXVkixUK5+4ay4rcA1HdhIeV
kZZIwWeUvaR6D1I1+gq41SwQ1/XcvJjaPRhYFy2IEbRAh4s+Cu5/9kBdLKtY
nswC5etyP5Js3oN7jDeNFWrMEafwg/Kyvj34vqxm24szR/vDC/erVveghbpi
YV3aDGVJ7cTUs+/DLm1dZqmJCSqtnWWa49qHVPVgs8uyJqhGvT+SlHcfxOdl
67t5TFC/cXmo3MV9eKvSL/R31hiR+PsGVVzfB9vfVy6edzJG+k3Ubnma+6CY
9so247wRIjfkvxf7Yh8O22hH28bvI8YZlq4S/30oNe0Oa8m9jzgdKG73BO1D
iaCDBbfPfST+Ylmd4e0+RIt8Y2zgvI9MPhcohHzYh2vkw6rk5nqoZBnEXxTs
Qy/U7v/Z00UWz/9jtJneB8vBu0o+hjpoeOBr7u25ffA2FXX9e0MH6Ugcqkkv
7gNj6NN5NUYddGvtYwDN+j6sKooykTfdRYJmkztFR/vQPjXSI4fuolUF+35i
xgNoZRgpdhC6g55R+SfEyx5AU+rFXL5r2mjLpvtmoMIBbK0RfZA9o40e/b7Q
66B0AHm3GyLC9rSQkXc9jZzGAQi+i3b4WaGFZNapX8zrHUBdUR6/nooWIuuO
Nb/++ABErBtrFe00UUR8jkBb4gFUeI2pH6WoIfMmVf7MlAM4T8JyR8lZDYkf
zfIFfj6A9+40HONyaqhfn4tHOvMAnj1oZN6dVkXn2cLZ04sP4NWXkFtpQqoo
J9aJ3qf5AFYLrT1zG5RRU7T4kfDhAcgG+oSr3riFPv5uP6AgHACz4YK6Jt0t
5LDzaH8aewgkgxZ/wxcUEcO9LztxpIeQKKdo0f5REekzMa+T0R/CTAT/XREy
RTQfuTc9KnAIX7q4MSzT8og0vKw19N4h8BsL0Z1slEVk79xL0/UOYcinRtQ9
XfbfvRFPrjY4BDuinCT+QFlE+THHadPsH7+hXiEpK4vovqYy6Tocwnk98k+c
FTKIvfq1PkfwIVi0nqiNrcCja+v6s9++H0IH6USUZgtC4lssbXXlh1CCOZPU
GI2QxG536UjlISSM24ekGyMkeaz5ivb3IZRl6dn7buAQkMsLPek4hO2tUvpP
53BI9fxlZ6nFQwjtqBul9ZVCZtpHhPpzR7DwvrPyv5AbqJ2flTSb8whEmGJm
i8xvIBmCOFUE9xGcPWifunfzBuLMdGC7L3AEeoq3v5jNSaBhkkmJBbEj2Ohl
14+6JYF0S+sdKVSPYDCLy52C/jpS5YyZUPE4AnqxdqdHXWLox3bB/BXPIygy
wwp75oshwaa2NXrvI9j2aJL4FSaGTnlQYAb9jyBp5dGfDXUxVNfhxWYbdgRC
XpwCQw2iCAIt7r5OOwJdJTdq/5ar6Nry1d+N3UfQRZsSPX0gjDqjHUqW+46g
5PBQb3FIGD3GZ6XTDB0B5UwB6YVKYZQTKfD6zsQR5I5pp93wF0aXbnJqDa78
y382decvrTDiCTo9sEB2DG/vzDSFWgkhuvOzy+Q3j0GVlD6oTeIiym3gHb2E
OwaHVU2ZWrKLSPOJWZs6/hhqGRkbTvcJopA/w/nhisdwhc9tPdZDEJ2y73Jj
vXMMzzNIPd5VCSBMWTWRoN0x0Lc/qnpjyI9W7sYzKSUcQ5ryDdXWVl40285r
o598DOs7FTPYDF40qpFVbv/pGEKNakif+POiVqWf5lEZx3AXN0fNfpMX5UiP
5U0UH0NAXzSJfToPcuDl1fBqPQaC+C7XtzButLqZGZiPJcA3Ad6YmjdcaNbx
2kDdCQIoDNvv6NpzodHlcqF+UgLk0YdSndfiQq2zzV0YKgIU0D3f0WTkQjmD
q9zqrAQ4kKocPJPIiRxqxCpnrxKg0YTmwb4nB1qNKNs9Z06A2S62l2WIDelM
ptocPiDAfo80LzUdGyoTezPYb02A0mSauIzJsyioy6Ay2p4Agcx9qPLlWcRx
hhBI+5QAj4nVn6v0syL1WPwZknACUF2JxvsHsKDMxLpriz8J8O7m3VMBNGcQ
3VrWl/pqAmCssrIlF5iQGz6aJb2WAMZdX1Mu1jEhuXHLI4sGAqhIc69UPmNC
A9ynake6CSDu5hCatciIyL+o3OlYIoCU8s0e2R4GVKBjdWPoNAYvKncucqKT
Dj2ftbV8SI3Bz36vDxzLp0PKHo7v9mgw+AjSAh2WCDo0Eu+xxsiAwQs4Kq6J
adMh8qnX6eqsGLzZkO1l2g5aZOyUy1LJh8Fz5srHkI3QIMrQ/b1khMFz0D6r
7pGkQj1chAsieAzeW+wq5wAJFUrOJ9b5KYPBO509MLjZdhpd76HMG5DH4NkH
i1eorU8jU3YOGwZVDF6uxXNiJ44SlWTK9vvrYvAp9AQdSUYKZP739XcrRwxe
Qyhf3kOWDE3LVbkOPsbg6yULnH+dJUNWlVtims4YfIvsy1S1TVL0sNgw+7rr
v30HTQbcn0nR40/CqSc9MXjmYcmKP5Sk6LlP55vUIAz+0YRAQtIUCYq9wWYy
moDB3/3oGjZaTYzYCjXZ7yT98+/oVAtKJkbxwv4Dv5Mx+IFg/gPzF8Qo8cLy
3exPGDy5R2rzDxli9IWxUtkrA4OXfPIftruWCBWsmYmxFWPw/hYcH526sKgl
PYNUtxmDTy6sF77AjEHHISQuNS0Y/M+Wfu4vhwTcJWejSeE2DH5/2euv9l8C
LghHX3Wq859fzreMRDMCDjo8PH70YfAxyRFOZHHHuLxDpSX2KQx+8QbHQfTZ
I1yUxmz71AEGH5/yRtJIex9XIyaD1z7C4CWCxXnP8+/j1lnisiuOMfj/sGk9
/Md7OI1JjdfRWCx+39RnjPB1D0fmXiyvRIrFL/Dcav5DuofzSA4oyaTD4nFM
jWY2TTs4gy2ej04CWHzsoHWdcMAWjkfuLZYgiMWHsj4llBpv4ebD98xfXsLi
S8832fnd3MK5CDdfTLqCxRNfPOAZWNvEhTx0LW2+hsXbnxv95WuyiasY+9sp
IIPFZ6w22pqqbuDYmx9RjOph8b6GL5y91dZwk2x9jx7qY/E1N59lml5Zw319
KNu+bYDF+x2Xa7jTruHETzG/P22CxR/w1jyU6V7FqctV8d20xOJdzcj4JE1X
cV7f6WWinLD4CL9Xx1MnV3Ajn0vcVF9j8XqMs3sBbQs4/RHth+VvsPhuHs7B
u6kLuN4zSwZCb7H4r/s5/I9cF3DtQVyyNOFY/KXjEB539gVcnc3L053RWLzs
/PWGBft5XJaQfvL9FCzeQoPTaIRjDudVRGiw+Y7Ft3bdv4TNncYdLL+vGPiB
xdPKSijxvJ7GuV0Qy1Utx+LnOEJv+VpO4x7HWEUJVWLxveSXbTbYp3EPPNqM
12ux+FrB9h9hoVM4NVzKlnsbFi/SbvfF2WsSx1anwBE8i8WXQImd6YtxnEB0
zj7PPBbvmN1V3Gk8jhO3Yu2uXMDiE0W1unzROE6LfPn17jIWH1dwtj3qaAwX
oP5u33ILi6/+477p+2wMt9I90aVARIQnGhkyZ/cfxVXPeL8+wUaEP93Pn3DJ
cwjXUjJvmXiOCE+fvhRYrDiEGwy+IyvFQYS3lFnRTaEbwm1f5N93Ok+Et38q
vh2bPoi76NBiOcFPhC9xGBXbGRjARe6ek62+RoTPDtV2bNXqxyX9DWQ3vE6E
f8JzSoj1fD8uK3Ztb0+CCE9yIsvq+3of7q9UbY6IFBHeail/6iCyD3fsbcue
JEOEHyeQsD8e6sVRaHfvSckR4S24UsYMc3pxzNzQ1Sv/T2/1/H68by/uai39
axolIjw7u/f50xd7cSjK0zJTmQgvpxmoLE3owalazsjcUiXCt5q/HS7r6MHp
SWixT6oR4RNSP6q/SuvBWZ76sfdcgwgfoFtJkebZg/sfG6Y0dw==
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40784.}, {-10, 10000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.777808092906505*^9}, 3.7778083615528417`*^9, 3.777808491501521*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 25K", "Section",
 CellChangeTimes->{{3.7778078326561804`*^9, 3.7778078368416896`*^9}, 
   3.777808121434925*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_25K.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "8000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "6000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "10000"}], "}"}]}], "}"}]}]}], "]"}],
    ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "C1", ",", "Tm1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1000000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777807846428356*^9, 3.777807978114668*^9}, {
  3.777808107370796*^9, 3.7778081074803734`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV011MjXEAx/Fn1UVzYc2axVwcm5mltdCFzMUjrcWYxFpZsyNlSVvHyyov
m8NIjDpLaKFVWkIoLzmSHKlEyZGjkuLYzJp10cZFF82o3/e5qO302ff8n//L
85xzFqfnJmUGGIbh/P+aVn+Hzen/zt+dMxrmaVn9UhrFsq5F2i/q+k6P2nOF
99uk7ZqMfMJ6VXKqVTpqZDvrVdXKpkfSWycXuNn/llxOR92RgQ/Y967czXzX
fdlF+xvlME42yRjmhzyUg/Qy5mXf4/yPZTid0ix7WM/BfcZxjiLO6bvN/T2V
0cx3c9853Jf3mSylx3hOk7TBc42vl2Ev5AjPKYzPIfmmrKXnMB7F52jekK10
JZ3QLtNoHx1fI+2vZES1HKeTGS/okP5KGcT3KJzrXXQcvahLdlfIejqa7030
a1l+VXpo33W5qVsWMX+IXntZZrzhPPqeGhN0wyV57C3nKpPBPbKX+WV0MG3r
lZP8DhroWtZb/U56S2QHvaRUJvZxHT1Ce1kv6z2elX9oxxlpeqX7giy0+iTn
pif53c77IOsLZQqdeEpW0uXM/0EncH14P/uynoOeOCGb+2fvP0VnMT/2o6w6
Lotok+6z2ilDfdKeJ3fQtqOsQ3uPyJ+0J19GfOJ8jB+gXYy76RD6L924X8YN
0Ox3jvZnsi9tHpDzB2d3Gu13yBrauVeOWZ0hI4ekkS0PWc15WmjnVt7/zH77
ZDxdxfM6b/Ue2U8ba2TYsPRwPztpM0vW0ka6/EXbOU/UF85jyjyr2b+VNqI9
MwSMqG3sl2A16xfTnjTpo0MOyoWjrLeNc1jN/nWjs+93nLbvkiu/cn2KLKBN
9muzxjfLoG90qs6/kXauly5rfJ3GB2hPkpzrZ5zPZ4XVq+R2q1NlPm1yvgra
nyufW9fHaD+/1Vtk4Hf2t8ultJmo6zfQRqjMscbZv4R2xpr/AA6cYAQ=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVV3c41t8bfl8SyQqRkihklKhIffmc57UyyqqMUJGMyJYV2SOKZFd2IiMr
m4zM7L333nuPX7+/znVf59z3fe7nnOdc12HTMVV+QYTD4c4R43D/H5ONhXV6
6QxRTrDL+iH6DTaXAvv3cHfh6ZVzTONEv+H404HsWpwqkB0y5kNVCTTuE8Wk
4/Shf9OpSlO+BDL/nmaMx9nA1VDSneO6xcB+40LrV5wXBHj12D6LL4TGohXZ
72be8NAKF/XApBBspP5UpA/7QBHLZet04UKoUzf8VVHqB56M+ttxjQUgXKpe
bwUfoVma9pLmUT4MTMb9jMCFwmP6q4q6lnmQyUtpHJUXCkzqIxtB4nngafaa
K94sDMR2Jhkv0ecB/650TOpwODDmn916mJMLrpSLgaWlX2BXktdh7zAH6M8y
/2cJMdB1e6+lIPoX5IMeSzjuO3y+EnXDmS0Lzsj8KlXT/Q5xk5Q/NrYz4bXS
sednar7DLVlu8rLmTLiuE/s91D8RxhQT01VcMuGH2yB/CMsP+K9F9uTLyQyI
qFIR/ySSCqWzG9rhv9Nhu/HbhHJ0KqSfslQ69yUdVLrWvWiPpUGQarLNtG06
0E0H1n/8mwakujTz2jfSocp9ikf6ajoc3v+U7qz6E7CES9lSRRnw3DaZ7v6D
VHjFI+fBuZgBa0FP9y6fToUvaRYqx1kzQSGtPcizKwV2c8q2K90ywU7myLVO
KwVyqp+KSsplQa5SoIqCWTLwzXyuEu/NBhuDPifdlCS4cIW+B7Zz4Z0wm9SM
XQJcmRIOaOXMA1K3+9XG9xNAOFbrru6jPKj1lHkkzZYAyme+//LKzANp4pWh
Y3XfwP3YncBG43z4qh617nzhG8z2P5XTHCmAs0r83ms9cbAZ6k60SF0IKRM6
JEmZcUD8ICn/LVYIKgxEd1N844C5dvVy3OdCOE5GmhGOxYHCL49js4+KgNGg
Jejoeyxkv08utqkrhh8LCmQ23jFQKt1sdWKnGFSvJl+reBEDDcQbvJ8vl8Ax
KofjD8VjYNIOiyhxL4GFoqI4wlE0MOm1vCb5d695uClwmH00oKi90Fr1UvD/
rK39aTsS4m3YlFQby+BUnEVjwuPPsGZKjngnyoAjfiLwI8dnEDNYu3K0VwYU
d3Ufjy1HwIhaJdl37nIosDNqz/OOAJY7hqWb7uVwrIRn83RxOITup18L+a8C
GikLG1ZuhcHkevj5l8oV4GIULLtKFgZCC64nMcMKmNIK27vfGwrtAw+nJkIq
YOW2wy16p1Cg+b0dKbhaAT+X96hqa0PgnQtQdST+gfHHzWJgHgw9dtz7ib//
gERw/nTc3WDgsqCdfdP5B+TIjeTVWIKhSme8kv1YJUwb+0yl1wcBsYS3o9XT
StglNbahuRoEb443z9MxVMHpWlry4/uBYOr79K+yWzXwLbxzm28MAJHzCuQM
X6pBx9vQ5X1yAJD9xGR6sqtBStll0dY7AKJbz1c/nayGom3Gb1fEA6CZqb/c
WKYGJKMpXizY+AN/olqBJ3Ut9IRMp3NYv4f929I7Mly1kN/UIcR16z3U/L0l
TEmohcDTwJ+64wfPlhhyPlnUAj4qX/COsx98FOrIiO6ohemgrlPin3xh9Y9S
UsHnOqBIyHvJ2+wDJSqEacfsOpBkLJbuCfeBd9P8lwkNdTDf+eX1znMfuEhB
8636sA5C69Pw73e84cGDxuh27b8wV3sTP8XtDdkjsmGLl+uhL05ULjLSE14f
intdzG6AJ3Om74Va3SCD93o+9rcB3K+9VpJKdoN5Nda5x6MN0Iu2P8W6u4FO
1r78J5pGqMh2FsGE3UDe4BfDsVeN4JfLt74S6wocrZwJExxNcC7qvnGDhws8
O6Lvxos2Qa61wXnt5y4QcYWYnOVhE6w8EjARJrgAjdfQKxXXJtitMu3/eeAM
+/+FCVYPNkGDUl5clp0zzLa667TLNcNgSlcO2nMC7xkHBx3VZpA68hvQKXEC
Dpxl0LJOM/SfSgo6cHGCZ1e1qyjsm6HWSoM8hNwJOr1EeSQTm2FJvrjtNpsj
lIlsrvw61gInM9jCvZ87QFiCvktocQswL6hw2QrZwvqJUbHzdS1gd5b3/DKR
LSi+0jwW19kCCtdkSjqabIDsppJX2lIL7MQna0++tAHbsjvvK9laISyyjuVY
wmtQ7acMX/NoBd5zwZym16whE3k/tgtsBZ7nwmFqRNZAFUfEfBTZCpWpwUcx
HVZQZbgVSZ7XCpc9pJyVHK1AaGs4nm22FRxwUlqULZbAQJudriDfBlGEqx7y
PhZgYc1n0fG4DWRehN7s07aAxu7EGxr6bdBgz9JbeMcCPKO+5ug5t0Gm/B3s
9YI5bFzxKnLMbAN+KW6RIhVzaL/7uCaZoR1e+B0qbN8yg0+OuGHSoXb4DaP9
8drG8JAvgefBXDuE7v0yUeE0BvohOevIrXYYaT2x6DZnBEEQSi5I0wECjK+T
5W2MIISYT1CH0AGRv78rewW9hDAfjXdFcR3AoW0UkDpuAGp38B2k6R2gq/aH
MSndAJjmEi48KOqAYFdbpVOOBhBxbzV7pr0DxBnFldgZDeAztc8Qw/FO4K8K
YBFR1IfI4Jyb5gadYP3WLNO64wU8kdJ8W2TVCWvZfr0d31/AhS18HalLJwxx
MagH27+AaLX7TyPDOyHHgx+7xvYCYs6N+/yt64SUY/QS+Ra6EB9zaojjahck
UFOLO3M+h6RUY5/elS548/1u/PbfZ8Ca8vG+8kEXsGvozQsnP4OwHzmn6si6
IcRamyr/3TPw/o6LyL/QDdVu04uvZZ+BXkzQj7D73SBXEP42N/wpsAcX/VVJ
6gab5Wq2inwt+PJpxL8xuxtILlWIN77VAvrA4w+lSrthr1n/hayUFhD7K/YL
dnXDW90zwoHtmjDqPT5PT9IDRjfEjKQ3NSD6DQVV27MecDC8MRRy/zGccRBo
lTXuAUfWMln5s48hwE4lpNymB8Jn5LIMp9Th7etolswPPTDx+oR5ras6PDG7
ee1jUQ/sxTsmMZaoAbOupqLCmV4wpSVmuielCmFyKYF/m3rhZZKtomTYQ2gM
eXh0p78X7lThlEqMH8Kx0X2jH9O9UNv0VPET4SGY296X9MH3gXqXi7j8/AOQ
/ba4JXWjD2JEQ8+tST6AvUN+rfKQPhAW9EpWOaEM12V7agXi+oB7o2L41pgS
GAS7CMX87IM4VoXvhsVK0M7bSu1c0wfzpuFQZKEEKWqW5aK7ffCCmFrz5Igi
PMn8dTlfqx/MNJ90eYYqQNCBVhDXy35oizCpLHuoAHXSx/Fhr/vhnttQiw+t
AtwaUul97f8Ptz6IKvKXBxqKbb+bZf1Qza9J+j7gPpS/uLP6k30AaN97pQ//
kAMOpt9FCXMD8FigVZj0P2mgzZyMFdsagOidrsabJ6UBJ0flM0g0CGqr+VWl
fXeh/43WI4azg1AzZLC+7HgXAof3FjykB0H3xFdCZJUU4BKFL7z4NggXsz4d
+2ggCYvwjASfMQjymm02ipgk9PV4zX0pGoRo/Vb55/SSkHOyK7e9bRCuXSMK
dS6TgFem1ooSREOQrv5gyOuCBPQKZbpcejoEcWipGc2KQU1Tj/7vl0Mw3ZlK
PfdHDH4Z4OU1Xg+B6Ezz3lCUGAREKJ799H4ImFNLQuNVxODu4WImUdEQhBb2
ifhUE6B39PSqGcUwUH0aLZXKAbj7Q/mSouEwtBquq+56iYLZ+f1enOkwtJvn
i3TKi0JEwLfADKth4JvGZ7IyiML86208nfMw5E/sbx18E4EA8cjhjpBhGFIL
Wy6v+w+6+2e+avwZhhwhnvSKy3cAr/jpEUXdMPhV+NRc3rgNPBUilMVN//yc
mxsWym/DmyT/Nyx9w3C9N+THl6e3gfW1oMbIyjBkrwndN/8qDAbULmf0L4xA
fGZWpSrPLfjoytPMyDECppc/z7gfCEHBRptXDc8IeC2n1pC1CAFFP+cWt9AI
vN5XPktrJwTpifUd8/dGgKSTDMfUIAjbhDOfLOxHoJ6txtnI/SZ4W/2kdOoY
gQy6sbuHvNeB5kNE+I++EVCjqFjsJbkOYd89OLpGRuCZw8to0mEBSOrVEOVf
HAGdL2885IMFoA7IXo0eH4V+Q877zsQCQEGpXS8lPArXX9LXNPVdgyDOe2qW
2CgESDQ3rYZdA2a4NR4lMQq1gtm8sSrX4Kol5f624ii8GVGQjmnjA/mefN5k
w1H4GmBhjW+/CgHfaH2pP4/CLe4OuYcLvHDm9wGDSMwoRARypuZm8kJ093Ss
wfdRuK2meirElhcyTv4uKMsahax31X2/SXih1dxo1rJ+FCaeeZQmc/AAPfZH
pvtgFKz4ZYooHbggrNOaLObZGEwGVrInWnPAfghry3O9MVg/6p+NlOOAZ6p/
wzmNx8DklQ/ZNBsHcHWz8qbYjEFWfFqVSRM75PX8vZ/74d96F5YtET526Opn
+9RQNAZMyxyaj3Yvwp2v9RoB5WNQ1KoZy9VxESK1bNgf1Pzjjz0tkEi/CHqD
9b+628ZARkOR85H+Rdgcsukemx0DIQbesOpuNmAYazi/e2YcBOgupTnUsIJ9
nO1kEcs4nNNS9f78nRUGn1/6+ZZ9HOT37Wv2PFkhYdwWSPjHwSd3xdVBihWE
Ji89p7k7DleNumLaAy6AyoxdIqf1OIyf16m99fM8BC9x3HjQMg6M3LfSdeEs
qKnQNn/sGgdKbLEkmewsMBcfGjcPjINZ0Qy9YQsTxL7rSrg/Ow513m4pYrpM
kMbhc1aaeAJWT+eEqPifgRqNebyo4ASkTzs/4N9lAN/y7kiH/yag9iZJyMta
BpDnrvyvgDABX/CCTynCGaBj86v1LfkJ+BFodMbtNgOMflSYEdCfAEMiQX+O
t6dhrzqzmTN8At7Pv/jixUwPJXxRr15ETUBTpxh31woduAb7ksd/mwAKRpEH
LtV0QPZcV4ItcwKeDPx2GrWkA/rD03nn/k5A2TuJDxXNtMB30y6K5uCf/u9G
k2cRp0A7GpnsPpuESaJr1LHNVNCZWtZ0Tn8SruutK7wMoIJ7heICoq8m4e58
s26eIhUIdd5df2s3CbyP3maMtFICBYWiPUngJOwpfh2THaCAPJtnnjQVk/Bu
S0zS/8RJ4PMYnRKonQSWGL1RoRZyiAvUlXnQNAn955PmHoSTw4dUA4qQvkmY
HfhlPstDDs/HzALPrU/C2mTFMdMHJ4BKwSWSk2MKnv2wekKeTwrumsQ4ad4p
eCNgcjfCixR2DD20DQWmgLbf5NZHFVIYd/dhTxGdApNj5m3pG8chv+DjDwGV
KdCUOpyPEj4OupyxOSJeU7AsKV78rvkYFByUNyrPTIHO8tkRBXEiOJl57BX5
0hQ8EOkuarxABJp6UifL16fg5pBnZOA+Hg4ba+8K4Kbhi+OhxlQOHsSjm0up
GaeB03pCKYcPD/Vig5n1EtPw2Jhtz44HB+e3Lii5y07D7wOzNxQncWCSrL30
n+I0vEp8dzWv6wjR0E/wJmtMg7aWn6225hF6ODEX72MxDWYnI8mljA7RgNdO
iFT0NFDVX/cIiNxHfCL/CR5+m4b2xSeXF/T2kfPym7ZfydPQfzF57de1fXRR
HUfDkTsN5wRYKrzL95AeD6kPceM0tAR4xTAv7KLFenqH0r1p0CC3Crj/aAfh
aPmf3lGdAY5CvYdxxpso3Tir5ZXWDLzM7mt8IrqJnlULScQ8nwGSmW9zjlSb
qOyNKDeZ2Qyou41XjmVsINcp2bUO7xkgnP1tdutgHZEUv/AyL5gBVdM/eQrf
1lAO48xOfOkMLA5EBk86rCE9C2Pj7qoZOGV9r6hdeQ1VXbZUQm0zUOmRQpaN
X0Pegc7nKOdnAIVZ9b98vorIDT7/TDw/CyJ4FkFWoRVUUM5ysf/SLJyuuPqj
+9QKMjofG0TNMwvZPlfDBhaWUX1rot1roVmIVn6nUZewjN6L5ohLKMyCrNM9
ARbmZURD19I15DwLPGUcv5S4FtHpkuM4xvFZGA+cVUs3mkWxv2V+Ds/MQgLx
548Zt2YRX5nfkx9Ls+BGFHqe6dgskvpDWyy6Nws9Z96ePBM5g17Xsdjr0s4B
j51V+O/OadTZKbSeAXPgr8otQvl4Cul028U5SM0BKKoFnrkyhRZ7ipQl782B
ANU5dafDSXR8QCyjW3UOBEX+mqvETyKhMXmTI5M5qGqcTeVYn0AhS3rT977O
gQNZRERy3Di6uJIUyhA3B559ZjaUDuMobXVeajhx7t///6P4b+VxVLVh8c0y
ew4CzyUI0hCPo809J52Iv3MwY3wxTEV/DKmQhfZP7czBJOPixIroKGJkq252
VZmHu8SaZS4XhhFRrdzDGs15mCpAjZK7Q2jRrLmL8vk8DF3qizubM4T+lPYM
hpnOgxSZBpXNtSFk8Wx+Ps17HogaVNV6uAZRfdSpE30F83CwTlOMBPtR7t0Q
P9ayeaDWdqk8v9OHYpfO0uhVz0NKMN+hQ3EfskPsjCtt8+AdYFWcfbcPcQ4J
cZAuzMP5Y24su9q9yJlFk3DjwgLQ653eWk7pRkZVw39sORZAdaa2QsW2G6mY
vJAu4V2ASsHrWVckutHVEhMFGeEFYAmfRxwDXahXy0XrqdICVI/dNrhG34Vu
fk2w83VbAJ2eF/vDwR1o+txKxtjUAsh/vao8MtKKPF+e3D25uAApSa+cNQpa
0aV8DrGb6//8fVUMuD61oicqj1vdcYtwtL6ckSvZitoDKlY5mBbBn/lDUHha
CyolCblhILsInSSpKr0fmtGTh+kOAYqL4CqtuCNg3Iz2Yusq8lQWIfReCWer
TDMSgqMHJ54vgv3iQMUMSTNKsTew+uGwCPyXf1r8JWpCYUt3fs2nLEJXlwk7
O3kDEsIeHdBnLcL0I4psjYZ61OZnKimavwhasvccaT/WIyqe+I73lYvQLJcZ
vMNUj9x1KTf5BheBluRA8qPAX2TWMyRkTr0Ev2TW68hsatHdCve8DfMleOx5
MirwYRUqzXsimm2zBMshFEfrXFXoTppwuYXjEpTQ1/inHFSiK+Hzf5e8l+Dy
6IXkM4mViMb04dBM1BLYSxZOtOIqUe9Z9uODDUsgvPpTRaKsAj2gOXz3pW0J
znJl2KZFVKB6km5qjZ4l0JS9sv3cqgL9XvZl6h5fgp2PQxVpXBUovmrtSuve
EvS4NhVkBZWjW/kj3GP0y7BBcvU8zr4MrWfJG5czLkP06+NvBlTLUHpaYVrM
2WWwVuP3OhAsQzzxwTeesS6DoYxfBPFaKWL2lxEd4F2GqCiRX0xmpQj3IkOx
S2wZPgnTV+DnS1AdjYvNX7NlOJThxJ/QKEQ5g1Tx05bLsMvH+OUCWyGKTfnS
TGKzDMdrHjSn/2sKB+k8bnBchlC95G3sdQG64rzUl+2zDCECU0aLYfno/ZIW
RMYuA4+yW3nZWi6yL54zLvy2/K+/nfooynKRnq9deHfiP/xl/17Fh1yEXQ5e
pf25DEPKumkmvLlo8Ul9vFfhMoSX6pB8N8xBio13Tpi3L0Pb8Ez98HY2EvlS
I/ihaxlAJWvavj4bcb1U0UnuXQb/b6REltHZCH/conBi+F/eR5R09jLZKFM0
6dXjhX/7ecWo3BiVhehTGVvFj69AGoVj6IxmJuryXY9gEF6BhKxRdkr6dHT9
6ujE4Z0VGCJp8PWc/on8Gpv4p0RXgHY2y9ks6SeCU8lVueIrkJq4GZt/5SdK
DNFeVVNYAb/FHtrjt9OQbUyjzGe9FZCnFSTJ009BrWJFQW6GK+Dzi4fa/1oK
ujKeNGRkvAImzNNsHVvJaJjTw1rEYgUC9xU3fvgkI+mU/2IGHFfAgkSg8EXm
D8SUm7h9IXgFDJ0/PnvGmISs1ELEycJW4Dd9f+qfiUTUuOP2YTliBY53N1D7
ZiciV5Gn7GXRK3Db4M3J/x4kotmy04o6KSswMkFPThf8HRXUu36Pr1iBCzO+
nHieBKQxqqnCvboCwk8OXamC4hCVajAx8cYKNDP0HZ01iUPlfxvS+7dW4EH4
O0pz6TjE9Qs7GXCwAtfPUsVuHcSidS/W0k2yVeitf/L4qXEs+nB1nPvPhVX4
T86rnk0lBhFimbu+XlwFbwv9es+bMWid4ZG7Dccq0F0LWr5CF4Me46oGeXhX
QXs5PfVOSzS63Pb900ehVaCk4dGXV4xGpbZGB0/ur4JGp4FHb1YkslyI+yGs
uAqFF+6Wq9hGIk6dflXaB6tQvf1JU0o0EvnJ3c+sVFv9169JV97UfEXqLNf0
r+iuQvsp3ms841/QasVq8479KhDdKypvv/YZcVDbxwclrkLGSxfHQdowRKba
9l9K8iowU8bnig2HotnIK20VaaswMlD/6FRaKErnG8KvZa/CpdAXhFnZUCQi
L/FUqWwVFE5wtlr4hCDl91RnqXpXoUxjy5+dKRgJduhncAysQr065/m6+SB0
5nyZtOjwv3pQ4qfrS4PQQIqljfHkKsy8uss1ZRiEDOq72+tWV0Fv9+ld9dJP
yOlknL/XyTV4bCdZFOAYiLQf7HNGUa1BnuqD9AyVQCTx+VFJzqk1CE+o0mDn
D0QneMkWJhjXYJSVjXd/7CMKkn0lK8G+BnHu3befK3xEP3xukeBF14AnoADv
fDMAdZHW29ubrEFuDfnlt/p+iOuSB7+W+Rpc/GZCWX7ND9li2CSyWoN4vfcP
LbZ90VnrdCUS+zV4kX86hdHXF2mOBnEFeKwBGn796smvd2ikSKvz25c1uJMw
0c913gdd72bw845aA6vnDr+G57yR61oTwSh2DfSsecR3CrwRO49YKn/iGlhI
XPeWeeyN9EI53Quz1uCNmIKy8lcvNGe+JNBStwaX7fiU9G56IpH3iVNZDWtg
2fkspo3ME/klan8NaV6Dk39qLUIGPBDfUBuZZucaFHY922Py9kBm9/KGJkfW
gPM2WcTxEXe0wenyfn97Ddy7vDpnYtzQUR/tzOXL61DC9GI9W8MFOdfNe0vz
rMNnShWmBiEXhMuv4jK8ug6WCh9+3aD9h0PsDX7cWAd/36n8mVpnhFccnboC
65AhkXViSsQZEf/JmBRQX4fjXtl1t7SdkHumr6ey5j/9SFfHaFYndCzmBafl
03Vg09BwDxx2RMecmPSyX6xDcHQGjkrHEZEIu0wIWfzTs0Ga4kZvEGmK4vh/
vuugm2EekB1sj7wjeNw1P6zDeZKyZj4te0Tmc4zd8eM6aPY5irJx/MN6ec9L
QtchvkYj+mWOHTrByjoG8eugTiHBYjVoi04GLY1IFq8DpwqpzHtxG0T95sOQ
wtI6VLLdORauYYWmRbNGtFfXoYyH/oBJwAqVH3WNWW6sg7KcR/LacStk5cY2
Hbq3Do/sdyTTsixR77vs5SHSDXh9J+bDlVOWKD68F2/GugGF/hrsWX3myEnj
iNj10gZsU6wMG+WYI9Xz7MeDODeAEl9mYvHRHJHHvCLPu7IBFvNR1nrS5sg0
EUeHu70BS1s9Jd35ZuhOLid7gNIGlFwcqy9+aIro7eQ4Yx9ugFy+a40KnSla
uGPGla26AX1ZYbK2rSYouiT/SrfWBqxJuJkpKpsgkqp7gqwvN2Dr0VSikNor
1NxuIZXuugGeYzMqCw5GSG+1xKA5awPC3tSeJ2M2QKle4j6pORswL1GRS7eg
j9aZa5Le5W9ARvPVP/Yl+sjtbsusxO8NqOSSe6Wmo4+iv4wZ59dtgIduai+W
pod6pMjMY0f+8eO+wiWVF4i13+/j2/ENOOhhfxl85QUyMD+VqTm1AQP3nVzU
iF+gzc9n1xgWNuAWh96xpgxdRLtyxdp3ewPIUoYNjGl10b3PSnZW1JvQQFo7
Oz6igz7xd4Yr0W5C+s5qJEuxDuqtfFzAd3oTMlOIV6PCdJDh8vO96bOb8Lt0
666Nog7ylHztqMW5Cf1EO1mGFdqodCnCRUp0E7yvXl2d/vUM3ZAY9zljtAl6
rh90f3/SQj9SfIJumGzCrExf0b1HWoj19LUoefNNCHmWuqjFqIWoJu2y3W3+
zZsneJF+1USzXtRDy26b8I7QlqyepoGi/965WftlE+oSpOZOTasjxpvD2HjU
JtgfUYg9zVBHH754yBzFbsLVzFenWR3U0ZtXzU8EkzZh9XGy7ja1OlKl1vOJ
+bUJzXc9bGYwNUT14OOgXeMm5F8Y0ybKUEEehUIzQS2b4J7T7cTkooL2L/Wv
/WzfhOj76hXBSipoZp3zxGTvv3yBliYFa4/Qn5CiG8pTm/AlifvpV5FHyKF3
ypsHtwVbZNXNjMMP0LQ2dqNPYAvujMdSfDNQQg1fxTXLbm7B6YuFS8pSSiiz
R9rj+60tIB548EaCXQk5KD3oshTdAvYFe8flYUVERTBwoJDZAhrV0RotLUV0
gzWwQvTZFvB6Ey6J/JFHZzRD5y8934ISB41XQV7yaD/0y2lyvS0IfFklpysn
j6qov+t3Gm3BYu7zM/rt95HaUeFJU5stmCswCR+au4ecBiceRH/YgsmDHomu
a3JI5+zcG8+PW3C7iP06tiuL7qosfzMO2gLNi2R1VJWyiKZxd0s4YgvIPBfz
ZzRkUVwx9ZeWb1vgIZ4raPZBBtV8uT1OVLwF7WU9H08dl0Z0Gu+tXsxtwajm
Wwm3O5JI8eXAkcjiFnQsgafDKUn0we6qL/3KFsCQw+mKaQlEHtYQU7G5Bbb+
xnmiYRKIqIOyiY1oG96/XAlq3hVHy/IfuAfPbMObR8ffzDeIIb4ng9m/zm3D
wED9zaAkMWT8ig/es/zDlCVXXD3E0JRvo4oI+zYIWtEU8WFiaLCGyj3i2jbo
xx6WFGYSUL2Y/6CK1DYIM72pv5EIiFx5yJBPZhvWJlyJibwBSWtf2yC5tw03
5S5aURkAqnjbdPKX0jbk6eMvDnMBKiiivk2ntQ1Z+7xuWY8RShQK+NRkuQ1L
d57tubqKIg+ej9LSMdugcLGrs/3SHbRKQVSiFb8N3xjeNR5fuI2eLVncsPy+
DbhOu9TknNvoTvZDlsjUbdiZM3wqK3cbLYueWV/L34YrqeG/yuyEkaZSVFRU
6zYgm+k3TbNCqO4GzelfHdvAPdF0raJACN1icHlX170NYTdeRp3zFUK0fTrW
G4PbcKsv2nDrihCq1uWUk5vbhj/Svvvi1oLoum3q5ibxDuRqdvO6MN5E0Y9Z
jClId+BtSqma9sINRCnqP8JGvgOO7xc6wytuoGm8ef09mh0QylgaozG/gb76
3oyNZd4BL5q/T4ibryOyqML78oI7YJOjHPb0qwAarKyN/6a3AzFHb127R/lQ
vkOEsKfhDnT+3hAzTOBDQQJG9XrGOxD5vF/c7CUfkvtKsX7ZYgc8Z24bDaxd
RXlWCuI/HHcgzfeq2TmKqyjwUsdIWtAOEB+qr+gq8aJXPd+s/UN3oGYDO7Fy
jhdJ+78+YRaxA5O58nkTkzzoaJdRQCD6H19w/AeJEw8ybn3snJX8D7P7jZzI
4EZSLsMseeX//M1fvrPl5kJstzIywyp3oI3V1FFg9zLan3eRsqvZAbqKp6tS
fy+jLLVLJncad0BO4Ym/u8llxMqvV1zUswPLThyst/I50e7gnEbZ8g5I1248
HH3CgdJEtsLqWHZhKdV0smfyIsqvnGaYYduFjw9kBCtLLqI/8r1BpBy7EHOj
2IUk9CLqfVYcIMG7C6SvqSVcpS8iEg8375Jbu+C05n1a/Scb0mygts1U3IUT
ftjwhC8r0lfBbzY/2AWlT8xFTQasyGJo1XJJZRcM7podEkuxIu+VDtMrWv/0
o/JABs+Ksk5/0U8w3IX4ERRmtMmCyJ9wqUa47sJWA7Ps5W1mdHqKqSPPYxem
gs/Y5xcwI1azkw+6vHdBu05rvsGRGQm5LsrT++9CpbOgjB0JM9JOyJb68HkX
umjFRIvOnkN5iyDkmr0LT+sFz1BqMqEXb9VPv5zchXXXJlamGwxosO9HxoOZ
XfiP6YUwGykDUhHevy86vwtppRovnPtOI+mVSE+a1V3gfNojT/A4jXiej2/l
HOzCKz7hzoJ+erQsZdpLfHoPBvKT4vcj6JBhXOnrBcY9cHg4dorLig6NHp2i
6zq7B8nq6vrR9+lQW1623A/WPcj/PfjSGk+Hcnh2ixSv7IEkNZl1tDEtekPl
EfVVfA8WJ8fUHRRPoY2Xnf95Se3BQu6cPj/fKWRSfbnbTGYPttTttLkpTqGn
znU0Egp7UEx29nC8hgaJrVK7zj7eg18sq/pWkjSIrDNC95bFHnwujgHSYCr0
6Ws6d0v0HtjOu0tzEp1Eug33uFLi9uAud1VwVgM5EjqY5vRK2IPOLr+ihHBy
1KvJxi6asgeTBDKXwuvk6CJzIEtS7h5E30iK8TE8gdIjLOlcGvfgutb4BO0M
KXKto6bVbNkD3nZZmfgCUvRwN5nmVvseSBQ5dfn7kaIt9XHKhZ49SDNF+RYC
pAhjekSmPrEH2X98Sh6+PY4aQoUO+Pf3YFOLy3iLhwRFVrfunTzagw1jH6wf
T4LMtkx2J/H7EOR+cpym5xiiV/2+9YV0H7QjAkX1vY8hTYYzq2R0+3CxZfxt
7iwxmg3amRzm3gd7G7ZE3WIiRBpY1Bygug8fOPr+ng/FIbJgu/ykx/vQdmIx
kM8K9++9F4ot19oHiejxGW8lHKKITLdcf74PCuFcA4yUOET7I55BzWwfpHeI
TZmpjzCWcj/NCz77oN5+xyKX9gBjrZSRFPbbh7U7hOtvO/YxtprjfEr++3Au
ObSvOmwfY290PnIN3ofDuNi0LtZ9jKfXKnYyZh+GeIQE2oX2MMFVzenUgn2w
va4T9MRuBxPaYGqpKt6Hp7IzxgXiO5jwdmf+UOk+kA9Y3/ai2sHuHCr6nqre
hxZv/h3Tb9sYkEvyWbftQ0RjvY9u9xZ27+JVK5H5fWCJhG465U3sufLBUd35
A1jJKyjN+7CGtXKdJf3JegBdNQamUgZrmNiRENWnSweQaa6ceUFsDWNNMWPW
4D4AmcOfcZmbq9ggybjw3M0D8NoY/E/2+Sqmll9nfvLeATR/UmP+I7OCVftP
2S7JH8BFe5Ke6ssrmJDeMec2pQOwbOnVpTq+gp2mwz58Vj2AftIfA9oVy1ir
ccYP3ucHoPc+SJCesIzdYw0bk7M/gHbccxfzgEWscDN79prjAYSmS1JqPlzE
eBpaVuicDyCtRSWn6MwidsL+JK7f4wAWHp4o649dwKranJiNPx5A9d2pcqei
eQy8XjzySzyAkExbK+9jc5jg4vXq+s4DWP30Znh7ZAprDzXLW+w5gEr8nifz
zynMgpCWRDNwAKM3fjqmvJnC0oO4/R6OHcBj171ySqYp7Mp/rEr9SweQUOM5
W6QyibF7U/bNkR3Cl79EqZQT41iFgFw9JcUhhNPz3f+QN47p9HkXX6M+hJfL
Dumv/MaxaL5j0ZanD8E+aC1CUnAcO9exq7vHdgiG4YWPJHzHMNqL04vk/x3C
lF+xfsfdUSzjL8fwFewQ2q553pxiHcUUrZ+3yBMOQR7pzMjtjmAfagazAu8e
wtJBgOzJtBHshGmH7dmHh6C2h9uSZxrBcEXlRDyvDqFlOZ4obX8IW3r0lUEm
6hCcC/grBfb7sOlWjpeasYcwTPy3LrWsDxtWSCs2/XYIFqR/eeK9+rBmmd+6
IcmHoN5YtL9H34eli45kjuUewjhrkamIYC9mxsGh4NR8CIGrU8a8vt2YQWxq
7Me2Q6hlsI7uUe3Gnl0Q2ozvPASR7rcX19i7MUWmu1//9h+CU+CLQN3SLoyf
0nDuzMwh8KpEn+De78SW11O8svBH4KJVp+fo2YFNmwv2VR07gsVNvKiDegc2
vFjM10t6BA/Vna91XenAmqcbO3BURzAx2KCa0N6OpfcvX5I/ewTL82pBflzt
mNmfm6XT148g+PjVv+3Drdjyp6Lt87pHkJfEzOX6oRlTGY9/ua93BB6yb6Nv
mjRjRTff9/caHgHH1oULnPLNmHeHVmmo6RHQZfBL/KFqxi4wHnmdcjiCLlmL
2d8cTZh8BIGRJPAIEupuPtK814Blz3L7jAUdgUyEX9V1ugbs7H+0e2WhR2C3
n1Bi21uPTfaNDjp9PQIGR+NBhZf1mON594TtxCN4TfLchs7/L5YSXSU4//sI
VoT0rt6Zr8VoV9K+15UfQerfuuCE/FrMlhDKlFR5BGbIL9naqxaTGNU/ePH3
CK6vuQ8Ks9difZdOVA51HoEEmeVPTKcGI/8u97Bt4V/+G2w035eqsGwVg9sD
lDgCSyVFII/cH+zttLG+ETWOwNaIj0SsfzBZe/PgHRocgelEzKufGxXY0Ff7
ldP0OILZiW/qX2IqMPIJvyT5szhC5JZkbchBOfbMMoOplBNH2HONFDCpLMN4
SXLuynPhCFsxoYPdUWXYZkiBdT83jrAqyE76yb4M8y2oaNm+giOkxu7xrvGX
YTn4Th+BGzhCg+9gnmJMKUYRsLsTi3CEoci9ppkLv7EutqPLAgQcQfmrzDLD
YAkWm0Ws8lsMR1g4cpds+lKC3eqiyOyTxBGyS8K2+s+VYDosF17S38MRnIiZ
hu6xFmN5KeK9Hmo4QqHecqgPoRDTrfUrMDDHEY4NttSKDeZikxJlNv0WOMLA
T3/lCz9zMYPSjZuKVjhC+MD6mppzLmaU++TnLRscYZvlZ+zwpVzM4ht//HFH
HCFE4N38VdMc7K1L+/t4bxyBLikwjJPhF4Y7IJM78w5H+L0g5uYyn4252oqS
+fniCKWcp1L5KrIxT9MEV8sPOMJ/m36CjubZmJ+WrY1YEI4Qd14uvqclC4u4
zaw9HIUjMMT9J0UWk4kx/1JkeRiDIzRHKSaLvsnEvvJ79FXH4giDt9PyC1Uz
sejLi49+fsMR0q9pBvtTZ2LfT5fKOiXjCHzvc/o8XTOw7JXnN5lzcYTQsfvl
/1mnY01JyaRqjf/8SurPGdGnYocfSF7/acIRfLu0fzL3p2BXrJ6O87fgCF69
t2T+i0/BvDG6shPtOILcQpdEkWAKBm329oU9//TnDhNztJKxzH2ZBZYJHOH8
9mR0f2kSNjwSp+E7iSMYndihOPqQhFFVH9RuTeEIb7+nHXfVSsKMPmYkNM/i
CPt8kXkJe4kYOyfTM9dlHAFXrbavIpKIhShMt07s4Qi/eoXTcxoTsD83xQjK
BzjCyeddau9jE7BVpi8/Sw5xBPrdNLf81wmYwriCXygeT2i8fOwvNWsCRmaX
KylDiicY/i1Ujn39DbOP9cxLocUT8PP0He3X4zGtDfZIS248waw/dlxtLAZj
l/DHH/HgCTzmgzPVxTHYbOCO7rsreAJdmFObR1gM9pq/kTfmGp4glhxQMicf
g30wsslvFMQTuMs3uOV/R2MlI7Xt3GJ4Qu/+9aQqjSjMnf+m8C9xPOHz/qfc
OaYoTPZt5GeQxBNe6JLSfe6OxDqZLXVUpfEE6qUy7iDVSGxRlXnZXR5PuF53
6XuzxleMpdHk5PBjPEGt49q685vP2Dhzj4mRJp5QgbbKqsU+Yz+MxFs3tfCE
jrL9Gq8TnzGhE2fCKbXxBJM1r3emYRGYvEQZ53/6eMKwAqlneWE45lRAJxZi
iSfsLjcoxjKGYUMJebb3/PCEHDpzB0qWYExzSNmo+D2e8KZbLjFxPQjrZlzQ
4vPHE9iWm7aD/gZhrd5s4jSBeEIo6vN5Yh+EVb18R9keiidcWBlQju/7hKXx
acZqxOEJ0es8IdYpgRiv/mZQfTyeoAq3T/R5BWKJUQFeogl4gn/qbRHv54FY
LE2l8YUkPMG0OzA991wgFrJ69dZYGp5wZEyRreH/EXPKOfr7suBfvU5JfhVz
C8D2FsNL+grxBCndLJNxnQDM9vLNjHvFeMLv7x6ZlWIBmEWYQQhfKZ4gM9YS
LUEcgOnZtzxbrcQT3IjTLe5T+WP3sbgNuxY8wTNPtfPyzfcYc5XUBZ9pPIHK
7YiGqM0H4w5N32WfxRPK877HeUb4YEIGZztL5/6db3j4b08dH0yJfNFvexFP
GMdGNDfWvDFP+eBd/Q084XRv/zVTZm9sqXOsQ4qIiHAQcuPruqsntv/9fsYo
MRHBtDroeJ6SJ0Zul+vnREJEeBuoyzrF6omxn/MVzyEjIoSKXct3L/XA1J5e
z+CgJiJU6ty9E3/MAyufcvY7xkxE2LIlSk+PcsOa8mb1o88TEaROq+Eqrdyw
fp+H4iIXiAjfxpL4b8m6YZu8XLuWF4kI4uEFBwKbrhivWZP+GBcR4TSDmJiR
sisWtH1evFyQiND/5FQN4ZwLFlPrxfLkFhHh+Mbd4K4NZywtYmVnR5iI4E7/
89bvZmesVqQyXUCEiHBJOlHAxcsZO3Q2ZokRIyLMnf7tZ7fyFjup3LkjIkFE
iFaO3f+c/BY7cwk6uiWJCB5xWv+p6r3FrlfS+dHIEBFGAtWWAgecMBTiqJ8i
S0R49DqrmSbCCbunPyUmfY+I8MeLRv2iqhP2WFiJZfw+ESG4zEmyit4J0z9R
uPNWgYjAb9n0aK/VEfsfNA86tQ==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 35960.}, {-10, 10000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7778079099686785`*^9, 3.777807978426996*^9}, 
   3.777808108019075*^9, 3.7778083617450285`*^9, 3.777808491920676*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "10000"}], "}"}]}], "}"}]}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 
   3.7773605967737846`*^9}, {3.7778079905782056`*^9, 3.777808062886483*^9}, {
   3.7778081009387136`*^9, 3.7778081027520685`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "9532.668008174267`", "153.49940166773578`", "62.10231378496604`", 
      "2.3438894753333734`*^-96"},
     {"Tm", "6695.376540233717`", "146.7492438333871`", "45.62460674642634`", 
      "3.309411694658872`*^-80"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.777808110015441*^9, 3.777808361791895*^9, 
   3.777808492014373*^9}],

Cell[BoxData["0.9851393091920005`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.777808110015441*^9, 3.777808361791895*^9, 
   3.7778084920456157`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV011MjXEAx/Fn1UVzYc2axVwcm5mltdCFzMUjrcWYxFpZsyNlSVvHyyov
m8NIjDpLaKFVWkIoLzmSHKlEyZGjkuLYzJp10cZFF82o3/e5qO302ff8n//L
85xzFqfnJmUGGIbh/P+aVn+Hzen/zt+dMxrmaVn9UhrFsq5F2i/q+k6P2nOF
99uk7ZqMfMJ6VXKqVTpqZDvrVdXKpkfSWycXuNn/llxOR92RgQ/Y967czXzX
fdlF+xvlME42yRjmhzyUg/Qy5mXf4/yPZTid0ix7WM/BfcZxjiLO6bvN/T2V
0cx3c9853Jf3mSylx3hOk7TBc42vl2Ev5AjPKYzPIfmmrKXnMB7F52jekK10
JZ3QLtNoHx1fI+2vZES1HKeTGS/okP5KGcT3KJzrXXQcvahLdlfIejqa7030
a1l+VXpo33W5qVsWMX+IXntZZrzhPPqeGhN0wyV57C3nKpPBPbKX+WV0MG3r
lZP8DhroWtZb/U56S2QHvaRUJvZxHT1Ce1kv6z2elX9oxxlpeqX7giy0+iTn
pif53c77IOsLZQqdeEpW0uXM/0EncH14P/uynoOeOCGb+2fvP0VnMT/2o6w6
Lotok+6z2ilDfdKeJ3fQtqOsQ3uPyJ+0J19GfOJ8jB+gXYy76RD6L924X8YN
0Ox3jvZnsi9tHpDzB2d3Gu13yBrauVeOWZ0hI4ekkS0PWc15WmjnVt7/zH77
ZDxdxfM6b/Ue2U8ba2TYsPRwPztpM0vW0ka6/EXbOU/UF85jyjyr2b+VNqI9
MwSMqG3sl2A16xfTnjTpo0MOyoWjrLeNc1jN/nWjs+93nLbvkiu/cn2KLKBN
9muzxjfLoG90qs6/kXauly5rfJ3GB2hPkpzrZ5zPZ4XVq+R2q1NlPm1yvgra
nyufW9fHaD+/1Vtk4Hf2t8ultJmo6zfQRqjMscbZv4R2xpr/AA6cYAQ=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVV3c01v8Xfx6VvUKFsjKikArJ+LzvE5FsSsqm7Moqo2REKCRkVbZISMje
IVnZsvfej71/398/957Xed11zr3n3nO5TJ5oPiTB4XDP/xP/199sJEx6GS1R
kJAL8XZMFThxh/Tv4hRg5Max7B9uVUBqOJD7B3cXfMJZUhX0q6B5jyQ+C2cO
HL8NUtjYqiC74cSpJJwTXJrh5zWPrQSeKxxtn3G+QLr1ffx0ZgUMTCZ+j8ZF
gFankCfzWClkX6CxiS2IABXXNu3czFJ4bfuMP8k2EjoS44+ku5aCyM7N+Izh
KAjZGDJMZywFL5rFkIqKT9DGRN84pFgCTKxnpBwgHlozEuBNbREUghl7FC4F
EsMSFmf28oFZ8WeFzoMUiMzl29D+mw/PNI6aMtelQOihYyhrQj5cNklIiXiX
Cl3fUg4SbuZD2qtBkXD2NNj5UzvxJSoPomu1ZUOlM2CJHKe8cusnbDUnT2jG
ZYB/icdFt7M/Qbt7zZfhaCbkOmkt3tnJBcbpkMb3DZmQ8nclby4tF2q9p87f
FMoCjWMm5ZF0uYB94c6VL/kBpFYzLi8ns+HReSUfvsUfQOhsX/5QlQ2fMu21
STmzYYzLKm4lJht28iq3al5lg2E7W5KDTjbk/TaUuaGUA1JxP5TDmn+A8MzH
WtneXLgxDml9tVnAIcjUA1v5cOd2jvDHugwQnJIIbuMrgDqe1YPK0AyQSNBX
eHCnADb2/D/IG2aAJnPKT9/sArgcoOZmtpkO3kclQ5ptCuFKmLHy0oV0mO03
VNIbKYKFsSEsKjkNcgO/lTrVl0LKDxZPge4UqLjZ4kixXQp++pf2+tJToOnI
+oWP58qg55yqb49XCky6YNFl3mVwn1hWmHMxBVjMWp8dQ+Ww2jx3tSvgC6DY
3Yg/9ypgUYe72fR2MiQ5cWncba6EJwJdZ9VPJMLqE0p0YaISzNyTqNjWEuC6
xarg4W4lqGR55XG3J8CITg15ikAV9PQIV/a/TwB2ScuKDe8qeIl71U08ngAR
e1kXw6V+wScp59j7Z+LhjSfQdqZWgzP5I0+h7zHQ4yKwl1peDeY3rNMbXGKA
355h9kVXNXAfF8yrlYuBWpPxGp6jNbBvVzfc0vcZjsj5uTka1kApJneBh/Yz
vCBtmWc8WQsxog/6sVcf4clbwwbNV7+Bs30vTvpbJEizqVGe/PQbhhnrmbNf
RAL5d0yxJ/c34LOXDNxVIyGuje234eRv0KLsq2BfjYAWlv4qG8U6WC4VoTCE
CBBJ1Sl6TfcHLvbRHdyf/QDEao2vRR/r4ZFfhDWfcyiUaROm3XLrIZ50nd9a
KxTeTIucIzTVQ+Je6+V14VA4S02f/PugHtR+UZztngwBLa3muA7jBnjjuqdf
fS8EckduRS6ea4RG9sN/XUrv4dmBrO/Z3CZI7LS8jhUHwY8LlwuxhibIZDlZ
w+4TBPM6nHP3R5tAQc4nykAtCExy9lRD6Zth5Kx21PZ4IKha/Dx59FEzXOyI
H37DFAi8bXxfJnj/gsG87sdA77cw2+Zt0qHUAk19kDCe6Ad+M8+fm9xtgUK5
d5buzn7Ai3MIWzZpgXVWfIyZih8YCRnXUru2gHNUlyjzli90+cqcv5HaAtMv
3D5uq/tCpfTGys+jrTB1h+aWHP1riPxi7hlR2go3+rh0YypfwRrF6HW2+lYo
dfFln//4CtQf6R1N7GoF1Ry+v57PXgG5qIZv5lIrJBVwdXgJvgLnSsnAGq42
OCjVSmv86AV3+2miVn3aoEmjMJva1xOykd99l5A28Npk4Pn48L9hSiQ5cxjT
BgV3TB5aynlCreVmDGVBG9jEVdn9IvEE8c3hJK7ZNtgLZIsy8vKAkwy5WWqq
7RD21uBVNos72D8Vtu+83w7xx3k5dAdfQvO/1Cu65u1wze5wzTHxJbyO/Zxn
5tEOvrcNl7eEX8K6oG+JW3Y7mC7fmzmv5AYdCvfrvp3sABbyzxxeEc8h1A03
TDbUAZnk1IXJrs5wW/jLea25DnDq0+z9o+wMTENKT2M2O+DzE+K4LIczhEEE
pRh9J5zajrtytcYJwo8Ii5kQOkGAfPshxQkniPTXfVOS2AnpejN3O389hZgP
eaJ2Fl3wSsY+gPa+AxjI67mXOHbBzdWlb01iDsCxia8n8+wCkTyOvJbjDhCn
o2IYE9UFGoGhQXH19hB/ety/ob4LqF29Yu8he0iKPz7EK9QNBJX4n7WidvA1
w8a/d6Ub+p7cVWiIfAyc6e9VNPe74Xa5BqZu+hgi0/KO15P/A7quY1mXhR+D
XwouupDjH8wV8TrR1DwCs/iwtEiVf2D1k2WXfNMGeD6UNGh//Qe4bI7YIGtr
iHtBTdtu1AM//7IzVoZYAPPzS223bHrArDDftMncAoJdtMOrnHogRr75N4+M
Bbg/i2PPDuqBhHK7suxpczCwFb34vqQHvtffkZWRNYczD/TU1Zh7YeM01dOY
Y2YQqZQe0vC3F9wV5sOVSkyhOfz2oWR/L9QrzFtOhpvC0dE967TpXhi7dpe5
zs4U7JxVbvjj+6C5w2hJn98UbiUvbspf6QPTxzwnaiJNYPdARL8qvA9S730f
on9tDAbZP88V6vdDqPW8XwS7IYTt64fxW/WDu1uJctyYAdTfJMVHPusHCcfr
DcxfDeDqkHbvs3f9sBom9O2OmAHQU28FiFb2A0vlH5FpTX2oeihJ/M4zALNZ
Blzl8brAy1Je8mVuADxN6iU3/XSAIXsy4frmAKT/mj4M1NcBnBKt/yDJIFCc
lwyzu6wD/S/075xkHYR1tnoqtoG7EDK8u+BzcxB0ZPnDNsTuAi5VguNh8iC0
O39cI6zfgV7xbE9uwyHoE394qfuLFtT97TEvtxoCIwv9oePeWvDTAq+q+2wI
uObHGN4Ya0FwtDpraOAQXA8l3r3EpgUKB4vZJCVDoKCiHK8WoQm9oyeIttTD
4B3k0/IkXAMU0jS51S2HYXmv4xf9czWwZdvrxT0ZBqGwkiNP5dQgOjg55Ifj
MNwOrN2/SqsG88+28IwewyAZcSq4O0EVgmVjhjvDh+H0kWeu1i0q8K9/5rNu
9TBYZtre05NWBgs6T2ZzjhF4pjx/96aWIrz3Ot9yincEBKoPKO+fU4Si9Xbf
uvMjkGUZQczfvQnU/XybAuIj0NXspqadfBOyUhs755VH4PSdMRK6PQXYIjCH
2ruOAEu6JwGfLw9+jt9pXnaOwCtFgvsnQzmgD4qOSusbAdFx4pL8NTmITPHh
7R4ZgUyrD57XGOXga6+ujMjiCHSu/51Z+y0L9UD+aJR0FPAenqJ5orJATWPc
KC8xCvzeLgwrrNchOJnhLd3HUeB+E+84dxKAuXz/pHT8KNBPHW2+tYIg7t90
gkXKKLx6YRQr8hPBD6ryosqcUVBoo8xSxRC02VnPOjSOwuy9epfSOxgwYdWK
//ZHoZhw+mp2pDREdj0ljzcaA7Ztd/TV8hrshXO2mpqNQXj23S/kMtfA6G5D
FJ/NGCTyLFnn0V8D/n+cF9KdxsCBtHlhp0ACCnoaVPKDxsDDaGybmUYCuvu5
QptKxiCdNiNB7Jc4nBxrYtthHgcec5peL1NRcE10nixhH//Pf7Q/F4nCoCn3
d3eecbAqY6vgPSMKX8ad4ZjIODiVDD+u6rwC4pPcpvQK4yB9TcO/T+kKaM+4
pPI9/Q9TLG5flL0MH5Z4r2i1joMudQ5jvK4I6GgztLzvHof3reiIh7QInCk9
sGkZGAfvgOWL0WwikPCm+4vK7DiceK+6v1dxETJ5/VlvHpmAGtuKhPVWYajT
ncfLiE3Az9O7c7/JheBt1b+Y51IToGd/87ZvqyCoCtRIFREmILz018j3aEHo
3Pj89KrqBDxEpirXhAVh9L3azCXzCSivbBw5df8C7P7ObuGLmoC1L6+D9KoF
oEw49tHD2AmYfDL+TStUALw+vKVMSp6AkAorllQTASA3fSDHlT0BvqwbHGYk
AsB0cKLgdMMEnFN4W8ktzw/Coi6x9PsTEGr6tpR+kA+M49DjHaNJqNFh2lZW
4oGujMq/p80n4VsLzRMTXh5QLpa9JPNoEiQf05SUHXKDeJfCmrvLJOh5ZNQr
/uQGamp112MhkyCaRu72kZsbCpyMXtP/mgT2pSb9MuqzQKvmGcPHOwXKZH/U
i2g4wVvvCO7mhSlgUvHfchrigG1LH2PLS1NAv99qMpfIAePe/jzpMlPQbqsk
xCHMAYVF79MuaU+BVIUbQ5ICOzzgS8iT9p0C50/15Q5BZ6Bov6pZc2YK1MZi
T+08ZAGq7KOPKJem4NpuMVveNRbQM5OnqlqbAq6+P4rlNCxw0PxH4RJuGs49
bdnJy2MG2biWCrpT03AznuKGEDUzNF4fzG6Um4aFVXv/6uqTMOC7HS4fNw1k
Vl+YZC2ZQFhaSuwgeRrWtK0ks24wgcfyi/af36aB69hxI92zTHD2Ho6eN38a
Jr/471r2M4LZeTL/I83TwJiX8ldPixEWG5meV+xOwyPNMwKYMgPgGEQMJe/O
gNbGdS8Zc3rIsslpfaQ/A2oNVOsyN+nB6Le4XLzpDCyyntlzFqCHyhcyAuS2
M6AyLcQq2UMHXlO3Vjv9ZoBqYzvx7BwtHCt96GtXNANCs56uH7lpgNLi4/dU
tlngHUKUP0YooKiK/Ww/9yxkh35iqsuiAGu2hDC687OQ9+J9gJQHBTS2pbo8
E5+Fj+fHqMQ4KSBQJk9WTm0WEIvQS8MH5EDP2No95DELtCWRu4d7pHCijBR3
anwW2oRFjc5YH/3vbip+H56ZBV+LXumTCkdBuDLAIG1pFmxySVPVuI+CfDVD
qczuLFR+u2jl3n8EntWzuz5gmAOFXts3tRpHoKtLfO0HzAGPWfnJDwokEL5k
Nq38eQ4mEkiPWejj4OzK14iTiXNAF2b+ww9wkEmclx9OnQOphGuq/dw4qF23
T3bInYPLOl/GxboO0cbuS5PohjmY73Z59G/zAGmTR/RPbc+BCV+1C5/KPjrF
9bvFS3sezhiMtVhL7SCSP0q36/TmwZ4uz0yRYgct2rZ005jOw9cJ16bX3duo
uqJnMPLJPHj7FV9mf7qN7I3m5zP95oHgdy3tW+4Waow9TtFXNA+HixynUuU2
Ub5CeABn5TwY+eW3XGTeRAlLrPRmv+fh/WS1L/X8BnJBPKdW2uchSKL0YVXY
BuIbEuclW5iHEu0VC9rZdeTBrke4wrEAY/L4L7GJa8i6drjamXcBnndSpAm9
WEPajx/eLLuwAO1Ml46T3VlDQmWP1RQlFmD4WsyfKLI11KvvqW+osQAP8mgf
XLRdRaKfv7i8fbUAvLYNOQmqRDR9euXH2NQCKFRnfWGRWUavrah2qBYXgGMy
9E8c+zLiLuS9Lrq2AGedp1mNccvIQPt+mzduEf5arEmc8l9CHcG/iLwsi7Cy
Qsu5HbOIKo6FX7G4tQjvBAzLpwfnUeSS5M/59EVYrx+R4kubQeLYnX2mnEXQ
jh/G9l1mUHvAkxsyhYtQm2kZL3xrBtGeT+oMrFmEXz2HQ5/nppH3A5oN4cFF
2BT/fPTT5Wlk2zMkbke3BNbTF+f8WiaRwi/vgnW7JZA4vvNlRWEcVRQYyOQ6
LQF9f829xzzjSDJTosrebQlksSYpAfw4Eoyab1jyW4LhyIreu8VjiP7J7aGZ
2CUoGCapD7g8hnpZeUgHm5bgtLLA3vaFUXS1cERgjGkZBgSkA8/fHEZrOao2
VaeWwfkt2ULKhWGUlVmcGc+6DJdfkFy7SzeMzid9uGLEuQxfb83ZhmUOoTPv
FGUGLiwDIeRS13LbIMI9/KHefX0ZTm2IWusIDaB6ek+nBttlOP/6Zexrnl6U
N0ibNO2wDLu4xPBpYg9KSP/UcsxpGUoVfApTK3vQ85sFAuC2DM+XZwrAqAcJ
eiz15fovw5fatAcl8f9Q4JI+xCQsw6xWQa+yWDdyLZ2zKU5ehmBXt2ig6EZm
b12i/qUuQ8fiyqrvQBfCzn0gMnxfBkt+yx1a3y60aNCY5Fu8DKPSTnILA51I
vVmSwq5jGWwt2EjMojuQ9Kc6saDuZcjfrXRXcuhA/FbaJt96lyHM/7foc+UO
hCe1L54YXoZe4nuG/MN2lC3z9dH9hWXQZ3R69t6yHTFlnGqTJV0Bgw9P9u7f
akPdb9eiT0qsQOVaYka1dAu6LDQ6cSC5Aj103yb2OFpQQPNfkSmZFWizWuC0
ONKC4Pi32nzZFbiXKmyb/uEvSg03JuqorUA4O1GHtqAZOcc3K340W4EN+xPB
w7RNiCU/dYvjwwqIHb9nI4OrR4464bLkkSvQUElvcq7tD2refhW0HL0CJKqB
ZKZJf5CXtCFPZdwKzOxlcjQp/kGzlSfUTdJXwI9FaUEvsg4VNXqlJP1agaG+
gKcrsr+R7qietgBxBb5aaKxqtlYj2rsfjhxZXwHq4wu5vBnVqKqhKat/cwXC
nONuX/WvRvw/Marg/RWY+0PleuJ6NVrz5azYICfCxHXjyB95v1CQ0LhANQcR
WL+N6tJ8q0IVztb7BipEyKHcp40qrUAOC4lpEupEOEalG+EZV4H4TPrvMmgR
QS6iN+PTqwoUoKSSXaNDBJfLNnyWtyrQPfaL5oIPiND8MyAmMbccEX8RW7Zd
ieDeIvNAhLQM8dK5JoWlEoH8ifLOu/kiRH63XSr9GxGO1ra+ay0sQrMxgu2/
MonApGBSZ+9bhLKEh/CruUSw/Lar2cpdhKRV5Qw1Kon/3UlRqzmjQqQZSMtK
20sETCCxaG8uH72kSnznS7UKH/kXMTbCT2SstccXS7sK3ao4I1qWn0ju452y
vOOrUJH9GKe0kosoLpAvTJxahVQpWd+khFwUduvRLTmeVWjmljb4Q56L0vyv
HsPLrMKJo+wMpqPZqJus0dX18SoQS3+9Vf+dhfi5fUT07VYhj7GItfFrFnLG
sEnkuAqnya5EPA/IQqxPszSOua5CgND4nKNmFtIbDeMP9lkF03ET3aDK72ik
RL8r+dMqiGq7lkrSZKI5u6VLrfWrQGb7gSp0Jg1JB6ZO5TStgnDufq5kURoK
SDX+HN6yChHL/1LF3qYh4aF2cr2uVVBua+LjFk5DtsoFQ5Mjq5CjsZXT6PQV
rfN5Bu5trYKvuirVEEsqOuxjmDl3bg1eTpml3vuQjDzq5/1unl8DBsm+BDGb
ZIQrrOW3FFoDj7Tv5Eay/+FwV4u0K2uQPJde+ZmYhPDqo1OCsAYbDtc7028n
oSPVPyYv3VuDi4wKTz7xJSLv7LevNfXWwIow+fg0SSI6Gv+Qz8FwDW4Qbx4Z
HkhAR1+ymOU+XIMTTC3/roYnoGMSnhPi9muwCNSrjJQJiCxdfVzq7Rq0vXGc
oT2IQ37R5731gtbA/a0377eBOETuf5TH7f0apIyVsvuU/ofNCkzLItZgQq3N
ftktDlFwco5B0hqkJmPbEfg4RBW2NHKjdA2caHupg8/FILoXQUNqS2vgK/d8
3KcyGk3L5IwYE/+LpzGv4vAuGlUddo85rK+B4vUmmzL9aOT4ims6YncNsq6k
0VrvRqHeN7nLQ2TrsOCefJRKKgolRfXibTnXgbPzS39bfQSSzOfjCdZYh5Lg
jUIB/g+IyUWJL+H2OigxnP/0HvcBLUja8ufeXYcQ8vQI2Z4wFFdWKPhPfx3o
hheyXr0NQ8dqlcU4rdZhVZ/U8+FqKGrpsJfP8lqHWmfZZ1ItIciMWGbRkrMO
zipn8JVFwSjDV9Y/I28dMp7SWrz9HIzWztR9fVO4DrBe1OznEYxeKbTOypWv
g49O9tXTCsEo7tOYTWH9Ovx1760UyHiHeuTJ7RJG1oFUsjqQaz8QKX/UcHGk
24Dvx/fejQ+/QaEiXVEaDBtwnxG+bfx4g3pr7hcJn9iASAGfvPuv3iDLZdPd
adYNGMpvMj557g16feOZmz7fBvyjLk5QtvdHFUvRnvIyGyAy/T5Z+pQfuiI3
7s9svQEsMiW8URE+KC3dP+zK4w1IuEJKWfTYB3GeuBirarcBvhq1SvzyPoh2
0iXX22kDXuhtxcyue6NZX7qh5VcbEL3r/mtDxxvFNUiK/vm0AV5eVXbZgq8Q
rdb7QZfmDUjMf/zkFJkn8ikWnwlr3YBri+RC/ZMeaI+7f/V7xwbw5WouDNR6
oJk1PorJ3g2oODaYGu7rgarDS65oTm0A83habAuVB3reO+V3Hrf5349nVk2F
vUTTxtiVvkubwMXTPXqlzxU1fZbVqxTdBHOh+34l31xRds9Nn5Srm6C5acQQ
9cIVPdfQ6naQ2YTG/alXShyuiJZg8ZxacRPORatM+Fi4oCucIb9kjP6zP36X
v4PCGb0cnNCKC9oEdU2ORR7vp8iEde7F6/ebEGV/v5TN4ClS0F5OtgnbBI2V
oqp7Ek8RffPOpkT0JkhIhH2IWnBEiaV0n1qTN6EzeSD4gq4jqvt0bZykdBPe
hubwiF13QIy6gY4P5zbB41o+zYy0HVK3GjiUXtyEyOblDEoOOxTkIvSWaWUT
DEaBzghvhygjm+J/bWzCxUSq70m1toikk+YvF8kW+PIaFb3VskXLqkECg8xb
kBXnpE618Bg1Xn83qC2/BQM5VpndpdaIUnPIUlhxCzqkH7DXBlqjm8YX148p
b4FJ9rt/ZAbW6Jf7X6qfGluACYvMeR1aoaISumuM+luwwNW9ryBvhVLFg0P/
OmxBGrlcZNioBfI5//7mzfgteJ1uafNZ0wwRqUnK9JO2QExG7CCF3wwZLdlf
cUjZAu9z1I/xhw+RZO5t9piMLbBx3ImISX+IlmWY11YLt0Ap++JZe6qHSE8j
Nja2bQso/WVW8N2m6LJzxsbGkW1wJPV0Zk4wRnH32W2oybZBb1M6fNXDGNHI
vBvhotyGUnlvHI2RMZrG2zUq029Dx9j5qS12Y/T5rWhCwplt8KYdME2NNULk
scUqqmL/8XdD2Ml1DNFgzZ+kZLNtOO18ROVdny4qfB4t8dpyG1R8t3R+pOmi
sEvWjWY22zAd8YJNwFUXKX2mXjtnvw1z5eVOp1h1UYGjmmya2zbQxZqgIf37
KIS7cyQzbBuGjUM7P63pIHnPYfaCqm34OpipRa+rjbiu/siOrNkGbaWsMz1X
tNHevKe8S902iH8RyJqk1kY5OtyPJZu3oXs19XZz+R3EKWJWWtKzDSIe/8Kq
+O+gncE53crlbZAZaPrUQ3obZUpvRtaz70Cewsvg8mUNVFgzfXKGawe0Qx48
TmrWQNWqvWFkvDtgpll3tj5dA/UalQbLXdiBC7ips12WGuiYzyu/sqs78GvX
BRubVEd6TXTO2eo7kGND69z5Tw2Za+M3WrR2YOdIvv6tT2rIfojosKS9A5T3
ML3LRmrIb6XziaD+DgSdU5XUmVFFOSc+mX+x3IG11NcrYzhVRGnAfzfaaweM
gvYvyskpoxNTLJ0FPjtAU4F/60urjDhtqbS6/XZAelSX9lKPEhL3WlRlercD
mYEZr3OeKCHjL7nyQR934DXt5fvG8bdQwSKIe+XuwBUPQ9Kyk4roofu9E1aT
OxD7955uhpw8GuxL+6E1swNheI8r3GzySFtiT0Vmfgfo4z7C0PoNdHMl5jU9
cQd05ubJ+FNvoPOm45t5+zswsBY/uEh3Ay3LP+k9cmIXvO+wUs3MyaIXtD6x
n2V3gUO4OMyxjYDWrbqkfOV3YTvB9OnfbAJ6/PvcP1vFXeALtn9tEkpAhh71
9HJqu3B/2OjbxTsEdJ1I5zV7fxcUYuSv6/YBIu+KfnDVfhfu3WJoVhhDKPRz
lkBr3C6cjbkwvv9aGj1oUuZPT9yFHd2lXa070kh8f5rP98subEQF++N4pFGv
HhePTPoupH/Xy7hfJYXOnglh/5q/C4wr8cMkR6RQVrQDo2fzLvSR5fskhV5D
TRHi+yJ7/+XvuKdvvSiOYn637VId7oKfwXd791pxZLv5eGcSvwdnzGnIe2LE
EdPdlM1PZHuQXVz89766ONI7yUwkZ9yDF30h9W/zxNBs2PbksMAecLZYN8i8
E0VkISUtwXf34GiLO+/A48uI/INL4df7e3A1tricXvnyf/tKPKFKfw/atV2p
XgtcRtQxWQ5rpntA8Vin7srEJcSQlnRSx3YPGgzueAQZXkLsVQF6HP57EEhB
z9xjKILEiHrTGUV7UJ+Qk2l8SgiJr7O01pbuQR7ZvPqzYUEksdVVOFSxBzG6
9XHEr4JI8kD97fHfexAgSCLNgQkioLwh/LR9D4p7dDWvWF9AymeFHKXn94CY
dZIvsVsAmWruH9az7UNwd1R33RofauNnJfvOuQ9jVOS9Wo186PqhOG0o9z6Y
GAkK8CXxIc502zO6AvvgmteZH3ObDw0eG5eYE92HcPnntG0FvEinsN6OSnkf
yN55cv0L5EHKnJFjSq77YOfGfgHMz6LijdzZi277sJeeLtsqfxadb2pdYfTY
B+qgae+PfGcRhSsVrt/nP37h/FLPJBeqbX95xub9Phjo5vmvWnIh8H14JyB1
H/SF8mRvuHIiscXLvxu79sHxGKlIhScb6oiwLVjs2QdaygoBK0U2ZE/I/Eo/
sA9vGmuz3Y+zoawwgYDbY/vQItCOzSacQYJSnBr9S/ugQv+TP6X+NOLxo+mb
Iz+AJsZpWyYhVvTrklIjDfUBdByPM2bdZUEmfX6lF+kO4JOcfan7HxYUJ3w0
zuHEAbzcpxx6aM6CTnfuPNjlOgCJU6cvB6QwI4az04uUUgdQPCmTlipxCv1o
4B0WxA7gFhu+WZP6FFJ/atqqSjiAh62vIzSGT6KgusGcEIUDOMRFh9/yP4ko
nnQ6s94+AJYszjHmoRMIV1JFcv7RAXRJ7byIjWJCS3c+n1SMPQAb3FOPO/IM
aLqN10ov4QC0QnChjDwMaFgts/RJ8gE8FvcaOE7CgFoUyx+EfzuANdrKa01l
x1GWzEj2WP4BRKTHnr4sdRzZ8vKqvWw5AONz3nlqiB4tr6X75uAPYcafyql0
jBpN24n11R49hC4mG78PGdRoeLFUuJfsECxzJtjbnahRy3RzJ472ENR3Vcae
01CjrP5lblXWQ1jweqf+RIYK2VaLVkxfPgR94pAR9p0CLYeWbLE9OIQMQxbF
2k5SpD2eZLVndgjmWcVmnRmkqEQ0sL/X8hB+S9YZnX9Nivw69SsinhwC7qcw
SdJVUsRx6tD3+PNDKCwma637fAypRhNOHQs5BM7Fk4d2z46i9LhasfnyQzha
89JBXJsEMaxkptRXHYIPpX8NtzgJciZEsHytOYQ6w0URxZMkSG7UfP9hwyE0
f9tskOzGoz5uipqhrkP4lRDgmamLR5QpSrfbFw7hsuM1L5/HOJSrbXFtgAZH
IFBKlx/Y72Pu0zbm1nQ4QmUHKuKX2sduudp92KbHEXwqR0NKjuxjQ59dV04w
4Qhnv8YUs4fvYZQTAV9VWXGE3/RlWvnlu5iRww+WCj4c4bnrx9j3vDsYdfDO
dgLCEfy5bqwTxTexbq7Dc5cIOMIdRy26JcpNLCHniHb5dRzBLcTuMza0gV3t
ps7uu4EjfBPhiOn028BM2DmsmJRxhE2ey4JtQ+tYQbpsr48OjnAmkYzG89Ma
9uBPQJGFHY5ADOSyalAmYpNylU799jhCQvi52geCRMyiYl1U3RFHmGwR97hK
TcSs8w2+X3XCEWJ9+5x9G1cw+2SRJFI3HGH4vGRArdoK5u7ZEZjkhyNMiBlv
WRstY9HXzhgPx+IIJfE88pFqC9iZn+rst+NxhMSlvdbs0wvYZxGfvt8JOIKD
/G0QmJ7H4s4t3vmejCM4vh6RPOc1j6WcqLj18huOcGUg56x20RyWu2IqeiYf
R+j/KCW0KTmL/f36jUynGUd401L+VcJlCjsIOvas+i+OUOyc7e2iPoUJOhqO
i7TiCNbHPrPi+acwP4yxkqIDR7j6hiFwtHsSg3ZX1+IeHIGlrldzRHISy95T
XGCf+K9eMhtpc5oJLFxtum1iF0f4k6nI4j0yilWLXido7uMIjWXY39KKUYzI
8ul72QGO4LnkbykSN4qpjasFRODxhMyy3xVlhqMYuUv+DUUyPGHfKlH76cgI
5prwuiCdAU8IupfAv7k4jOmv88Q4COAJxUIJI+mGgxiP3Dv84Xk8wUNw/4Qb
3yA2G7L94I0gnqAolLVesDCAPRNpvhB/EU9YUSkLtHUbwIKsnQqbxfCEI4El
Gn/i+7GykT8dAtfxhIX193ZO+70Ye/NjquH7eMKFhsaeit1ubPxMz2NrPTwh
1Y2BPaq5G0uzlm3b0McTjMiSzWrjuzFxCuYoGmM8gdQxyodNsRtTlavkkzLH
E8adg6rSP3ZhL4sYr4c74Ak7LPNif9Q6saEvBc7KAXgCd86GyJHlNkxvSNO6
NBBP8A5NbSxubsP+nVrQF36HJ3D8tRvLzGjD2vy4ZOlD8ITjD+enrtu0YbVW
b2g6IvCE9y8FpU7Nt2KZwnoJuol4goH0TDnrRgv2Mu+wwaoIT5jw1mjdMW7G
dhejyvqK8YRJe/WP4YLNmPM50R/KpXjCKTCTCN5swuwjLcKFK/AEx/in96KD
mjAz11YjYg2eMHTw5OlWRSOmgiWuu7TiCS+kZxI0xBuwM7XyHP7TeEKJWHe0
rmEdJhCRtcMziyc0+fnNBV+sw8QtWLsq5v7rFyXTKjeuDtOgXAzYWsQTuh8y
KRol/MZeq37YMV/HE2pOPFFjn6vFlrrGOuVJSAjzdNyiJwNrsL0UlR+jR0gI
/um9f9tNajBKl/yAl8dICL84pRTHJWowntNvZfPISQhePzHl3YlqTMfw8g9e
OhJCr5vj6WXZaqxqyiPg6BkSQlEdF9Mj2l/Y34JZ8zg2EoJBqQsZ3UwV1u9/
W1aag4RQ9agWdn5VYRsX+HcczpIQtPNiFNJcq7ALtn/Nx/hJCDI7zKLGc5VY
2BabbJUYCcHzSe/T7J4KLP6PL7vBVRKC6DJNXUpBBZYZvbK9LUFCINLXjQ9E
VGB/pGuyLkmTEOqPRHpR3q3ADjxs2OOvkxBeXXig+j2rHKPS7NqWliMh7IU6
Sb+1L8eYuaHz3w0SQtuTl0dHRMuxyzWMAfSKJITIqOcWG0VlGAp3M0+/RUK4
d5FaMPdlGaZsPnX9pjIJwS6+lHn6ehl2X0KDfVyFhLBQ3S//nqwMM6co3nZX
IyHs1rxoyWwsxf4Ho1dFGA==
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 35960.}, {-10, 10000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.777808110015441*^9, 3.777808361791895*^9, 
   3.777808492170586*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 30K", "Section",
 CellChangeTimes->{{3.7778078326561804`*^9, 3.7778078368416896`*^9}, {
  3.777808128649705*^9, 3.7778081287277746`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_30K.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "6000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "6000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "5000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "C1", ",", "Tm1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1000000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777807846428356*^9, 3.777807978114668*^9}, {
  3.777808130846898*^9, 3.777808144530905*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1k11ojXEcx08utIslF5KLpZEkndZc0FqHHYtZGWZeYziGWTrZvGWYeRpG
zPI6k1nHS7MyGjKLwx7vwzHzNsMxQ8nFLs6VlpZwvp/fqdOnz/P9vfz/neeM
KijOWzPI4/E4/77/qc8mfxztl0VnNzQ/JBY1i+4x0XsRrxV/N+BnxCB54Kw4
NiT2nhcrYIC++nPkjWLrafJLYiNzejmXv15M5VyRU2LJVTGZvPmaOIw8dp05
J+m/If60/hbmn6D/pphNfaxVDNXQf4vnR+m/LRYdpz9MP3nsDvc6Qn+bWIan
ueKFw2I33s7vUHpPHFEN7zOvSmzF+w+Iix/AgzzHc/eJtQ/ZWwkfUbef/Xjy
XvY/5vke9j8RO3lvWnGngr3tYoLDXDyVvPYp83ex/xn9O9ljXs7+5+LQHeyP
iCXb2I+HtrP/Bfcl78djW9nfITaXsv8l+7awHw/xP/F1Ur9BrMI7N4tRfOhG
0fuK+wXFMry5RIzgzjox6bXoFotB3I+H8dBaMfGN2Fso5uMhvMny1eIAHmBf
zlv2c7463L9S7DNfxv3fUR/g/nigQIzi/kWitwunvsx8iRjBPZPFpPfkK8Qg
7swTw5YvFRO7RXeVmI8HOH8T7pkmDuDOTDHnA/loN4463J0v9pnnib6P1M8W
q8z9YtR8juj9xD68zDxLjJjPFZOi+CwxiLsLxLDlzEv8zL5sMd98nO7TZM68
AfNYRhw5PXimWGfuEfvMx2ue7wueJlbhLueP4s4McXgv9Snqn4I7uWKh5eli
teXZqm8xnyrvsfoJ8sFf8QQxxXy6uNDcp/pyc/obzGNtcXSYj1H+y9wvH/kN
nyjPMqd/Pe7mKq+xPFN+1zxD/GHO+znku+jgk3BPsvqXm3O/SnPe1yvm9HfZ
PH6PP5an+/8CkKVY0A==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3c8198Xxz8fUmZ8ZYWMrIyKFBLvez5IdlaUrJCRkRGiJSNEFLKyR1Sy
khVlE7I32XvvPX79/rqP5+Oec8/rdc7953CaPNS8T4TD4ViIcbj/n19sJEz6
TlkhReF74kcPC8CVK2RgD3cDFO510ArKFMBxo795v3G68Oqw9XU2XQE07RMl
ZuMsgOfqUFh1cT7kNtAzpuBcwSSnWpKEIh+4RdnbYnG+kMGTrKfwIw+aSlaU
0uz9AOlCwc+QPHCVr6rMHvYHKt2/ut4P8qD+jtX3yrJASNVQ3d1lzgOJsjuN
j+AdxOSrMvu8+AZ/J5OzonERINfMKRWgkwu5glQ28YUR0E5kVZh1KRde2buc
S7GPhBXJBQ1m6lwQ3lVI/DocBW3k2kW/6nLAk2oxpKwsBp4+Mo6RQjlAx8x6
zQkS4Z710zOBEtlQBOZsUbg0mKmwU4XcDGBS/F522ywN1nvpXtg7Z4CLxjFT
pro00FySDua8mgGXTJLSIoLTQdttn5So4gt89hoUDmf7DL1Xl2niez9DdI2O
bKjUV+AYXqY1Z/8E202pE5oJX8EvWmj33Gw66HSv+9IeywQj4pff9L+nw6np
kMZ3DZlAEc40SquaDjXeUwIK57Phubudd8LLNMA+cuXJl+SAUnRZk9thKtgK
KPvwLuZAfpbv/t/mVIjJdNQ5zpELPzzjl1ISU2E3v3y72isXWFzRqK58KuTX
GklfV/4GiqULHtfCUuDCzIca2b480AviNlImJAO7EF0vbBeA5Wzkul1/AghN
Sbxt4y2E62fd3/9XnAASSQY3zG4VAiPPFtqMTABNprTvvrmF4FKxnualmwDe
xyRDmmyKwPr4kh0hKx5mB4yU9UeKId1NQWWhJhY2I7yJFql/wMvbdH4HAbFA
rPWp6AX2jzm9HnhqxALr71W+5A8/gDzwtf/k3xi4+d3n2OytEjjLKml0tPcB
8t58KXWtL4UX466BuSrRUKbQ8ohspxSIqzxqU5ii4Q/xhuAHvp9w/H0h2eF4
FEy6YdE/vX+CGcsH59HnUXDavNWFBP2CX9K0OIOCSEDxexG/75TBl8tk/naS
EZDiyqmh21QOqrudzAdeYbD2kBwJTpQDyzWhC+f1w0DGck3oaK8cFK80eH2+
HAYjt6tJ0/grQOWDevzryVBgk7Qq2/SuAK+TCY9bVEMhYj/7Yvi1StBTUtHb
4A+ByfWoMw80KyGRZrng+/EQEFvwpMCsKsFOPvdp8dg76PirPTURXgnO1jH8
wXHvgObXdtyV1UrwWpdq0GF8B69fwsnO9CoQlGO9tEz3Fnrd+PfTf1XBhBHD
X+e5YDjnSDv7tKsKHIITnL2/BkONyXg197FquMuldpdMNBiI5fyePTKqhi2K
s98iZYPg6fGW+VMMNRB/npWazD0QHgYYNWh61UKNqXq1iZg/SJ25Sc4QUwuh
Kmwy2nh/IM3CFHvzasFqr/z+90Y/SGg7U2s0WQvMG8lbFWZ+0HJ6oMJGsQ4u
P/5NsRrlC8Lpt4tfUf8GLodMuQHGV7B/VWFH8dxvaLjLwW844wN1DeISVITf
cIFGeJzwwweMlxjyQx1/A0FcOV3Q2AfeiXXmJHT+hsyse6qOmd6wWqXxqfhD
Pfg/JX/Loe8FP3UI08/y6uFR65tNE1EveD0tzEf4Uw8iiRtMe+RecJaSJrX2
sB4cTsuW8//wBC2tpoSOew1gHzEFtuyekDeiFLnI1wgTknaFm5se4HIo63s2
7w9QjfB1aPx4BjmCl4qwhj8gf0PEfcbjGczf5pjTG/0DtUbrf9fkn4HJt321
UJom4KEu1zPoeApqlt8Zjtk2geYp+cUH60+Ap4334wRPM3yye3Q2T8EdjI/o
evDSzRCazZrxH707RAsRk7NpN8MsTim1Y8QNaHyHbHU8m8H1c1q971M32L8W
eaV2sBny3MOc3+Q/htk2b5MO5RZIK+f8/VDKFfxmnjwx0W2BR7/4eetPugIP
zils2aQF7v95fvH5iAsYn79XQ+neAhERVb7Lvi7Q5SstcD29BUT3/hjO9ThD
udTmyvdjrVAn1+v48fUjiPxo8TKitBU6RQhsfeccYZ1sVOZMfSv0aw3TXyZy
BHVb/WPJXa3wZCxfbbjfAUgva/hmLrVC8Q/4LfTWAR6XS76p5myD1U1GRq99
e9AdoIpa82mDsvShIt7ah5CL/PTcQv5xmPa4t9dDOJlMxHoU1wbp3sZHjvAQ
aqy24sgL26C41gp2f9iB2NZwCudsGxTiZijCimyBgTYv+6ZaOzwcrazd+GMN
js4XHDv12mGBcaypLsQamnrSRe9atMPlwvO1p29bw6v42Hxzj3agcNE1EBl/
ABtCviXPcttBcUZaj5noAXTc0Kv7wtABkW0HrutalhD6DDd8YqgDgrM/pV5T
vA/aFz4KaM11QM5T0vYy1vtAN6TsHLfVAfyGvqtJy2YQBhHkV2g6wexdJO5J
lBmEE1+4YkLohPzmg2f3l0wh0v/u65LkThjwUxfy/GICtyXxnSeyO0FZpr31
ubcJnJ77yK5V0gnL95gPGg1MIFplNW+moxMcNVal7v5nAh+o/YcYjndBStg8
w/mn9yDuff5lB8suiDTquM5kbAyG8vovSh51Qb7vjOmwtDGwb+HrT7zsgrS4
FqJlFmNIuK1qFBfVBSF1Cn9rcowgkWXcv6G+C4hOsE3SZxhCSuJ/Qzznu8E9
ItysrEgfPn218e9b6QbJJ9ab6yJ3gCPjnarmQTfk+0WZdOLuQOTn/P/qSXvg
nnDIe/qW2+CXhosuYu+Bz9X65rkPb4N5YtjnSNUeKFT+Fq/4TRe435c06Hzq
gTvrt+5oKutATOhIcFNeD8jpteX2sesAXchxbfmyHigdoGosWL8FxMHqA1e6
e8BImfazbfwtGPUbn6cj6YW3Hx3U87e1IeEp5cl2415gDTbnEynWAqYnIm1K
Nr1g2ENTWByqBW/ddMIrXHtBdOmxfLCtFrxwSWDLDeoFodO1dIxntcDQ/vLF
dyW9UHqN7de7IE1gNdNXv8nUB+2qFbRFjzQgUjkjpKG5D9gP87YtxtWgKVz7
SHKgD3T5X7qdSVaDY6P71p+n++BrQfC2vokaODxWve6P7weSSpn7zqOqoJS6
uCUv2g+OAyaf5qdVYO9Q2KAivB86mpXwRCeV4ZJS72+R5H74ucTT2t6hBJbv
X4olZvXDevamO1uMEnQItlF71PXDKN+kMbOQEmTcdqqQ3u0HRh8G8ncaimCY
+52vyGAAtKtfcabm3ICwA4Owcw8GgG2dVvvdixtQr3AcH+kyAG5JFgZTqjdA
fEinzyV4AIr+Pnf9MycPNJTbgZfLByCc26faSkgeKu5LrmZx/4U/n+57nyuT
A57Tv0o+zv0F4tTYB9eFZIA2dzJJZusvSOxxfrAglQGc8kn/QaJBqHCmeN8y
ToCBpwa3GJgHoStNreBRHAFChvcWfBQGgaL2Ss4mHQFw6RLs91MHQa/GrtLm
JMAiGJPgcwbBmbz02+O/CPp7fediSgbB/sO1zbA4BPkU3QUd7YNQI+81CmcR
2D50VpcjGgK/4wdNyhcx6BPLfcllNATOQ+ZFRkZSUNfca/HrwRDoV3hHGPNJ
wXdLvNpdlyEYMCjaaV66Bm+j1ZlD3wzBF+K4sc2X1+DG4WIuUckQmEYp9qt+
kYS+UfpVe8pheD+gxfngv6tw47Mml7rVMBje3Crf4xED+zP7fbiHw2BEH/CV
Y+8KRL9NDcl5NAxcdi99IluuwLzLNv6UxzAoZxy4PX96Bd7Kxg13hg9Dmozj
Zdqey9AzMBN7t2oYyD6xV7XFigJePfQWZf0wfNK06PrrKgoClVJUpc3DEGus
r3dJUxSefgp+ytY/DB+5Vl58PyEKHC5X7o6sDEOt2MwOncslsKR+yWTBPgJ7
1fId5UYi8M5ToIWRZwRCDS5ncWEiULzR7lsnMAL3H3mG17CKAOUA7xa/2Ajc
lv4Z+qdPGLLTGzvnVUbAO+F4WdsdYdgmMIU6uo9AziUhQmLNBfB7lEX1vHME
Xsd2WB8QBIEmKDrqc/+/+BBu8zpSQYhM8+HpHhkBmqJ4e4oWAfjUd1daePFf
/VnJug0jAagHUtvR46NQH1fkBD78QEl1r1FeYhQ+3qTu6h/ngzBeldtO2CjY
iA6w5OfyASuIj8fLjYLOudqEHQ8+OO9Etb+tPgpnZq5tFrLxgVpvkeAXq1Fw
nqdnwhvxwttU2gDqD6MwMzgkcbTCDUy/DhikEkdhfWGgnKyGGxJ6ppMs00ZB
0BP/xj6aG3IofhWXfxuF4+md4zfluKHNwXrWqXEUMkjNWiCGC+iwKsWeg1HQ
HRdTVdI/C5FdzqSJxmMgdCGMBWPigP1wjlZT8zFYeqFsbLfCDsa6DVG8NmPA
y91EOZDLDud6OAQzXMeAcotEgFecHQp7G1QLgv7FV3x1vHudDboHOEP/lIwB
z7QEuYcrK0jGNt59WzEGLFIBayWIFeIMXLm16sbgTWcwowUpK5gPNn7vaR+D
Bb/HRUfRLLA55NozNjsGGolgJljNDAxjf87sMo1DfcxlnyKh0+Ce/HiyhG0c
0im8VKz2mGDQlCvrBfc4OLsXZrjVM8HH8cdAIjwOqqEP5IqsmEBsksuU5sY4
mLy95xafwQg6M27pvM7jYB1O1m0lywDvl3hEtVrHodWQ31s5+xTc1qFtedc9
Dq8zLzV7vDoFrKWHNi1/x0FbNav5pMEpSHrd/VF1dhwiPprgL1Gcgkwef2YF
4glweUu64mFNC3V35/HSVybAOzMBS7n2HwRU9MQ9uTYBEVNey9SM/4Eaf/W1
YsIEXCm3uPF7lQY6N2OdxdUmAJeprnn2Cw2Mvrs5I2IxAc3lFoL67DSwV5vb
whs1AR2jkQ8aBE7CzwvxtvfjJ0BMZry0YpYKPN8HkKekTsC7s337hC9UQGpq
JseZOwFUjew/289TAd0hfSFLwwScbTG/xXOVEi5cdounOZgANnaxj28tyOFe
ArLbNZ4EIRnTADfWE9D1tbyZxWISUlW2ftycPw4qP2RFpG0n4UpOjPLrkuMg
1nVj/YXbJIy8YL/Ob3gcKCnV3UlCJqFk/7vAdioJFLoav6KpnIS0q6tOgjeO
wQWf0SmR35PQvd3IP8N6DJJDzBS1mifhftfP5cNVYgj6akkZ3j8J9uYKnRcT
iMF0zD6EZX3y354QIht6SAQnb76M4+WZgroX3TW19Xjw1ifGKQhOwZnUkO/f
UvGwY+Vzz0pkCqh4QmfmPfAw7u3PnSE9BZqVYXFyEngoKn73WURnCqrzfq64
fsaBGW9SvpTvFExNj7O0SByh4oOKJs2ZKQi1TG/dMttDFLnHbMmXpuCpnhxL
/sU9pG8uT1GxPgVNavUL/bu76LDp9w0R3DQ8KDkguxuyi2QTWsqoGaeh6GKP
+381O6hRZjC3UW4afM/mbuejbXRmi13DW2ka4p9+Kg6h2UZ2X+4tXVOfBs1D
vrP1I1uIhm5C8MvdaSCTt2JW9NlC2hNzKf6O0xDmt+n7qGUT/fXdCZdPmAaK
05Om8y4b6ILUtSuHqdPALur7V0R1A3ksP23//mUaePTKXOq4NtDZOzganoJp
6EjRCZlsXUfmAif8iZumITaDx61TZB0tNtI9KdubhqoTukK7R6sIRytsJKk7
A/qUqi/cW5dRts23VluDGVCv5WY5kbmMjGvF5BJNZ6DKrsR+8PUyKn8qzU9q
PwNeJtYdD64vI88ppbVOvxm4l8bG3/5kCZGU3vd1KJ4B4jTe91uuCyifcWYn
pWwGJlTshnuvLiBzRxubnpoZiM5yZEb786iGz0kDtc9AWh0RVZDnPPIL8WCh
mp8Bw/FMJY73c4jc8kNW+plZ6MN/vSncOoOKK9jODnDNQnyK3FFV9AyyPpMU
Ri0wC0FqcmaNZjOosS3dzUVsFpaf3PS/uDuN3kjny8rdnIWHpauK5wWmEc2p
1u4hj1kYVh+4IR03ieh/Hscxjs+C4GKWTFXLGEr6pZg1PDMLJTKXz1d/GkMX
ygMNPy/NwihBpIvWawzJV9GWSu/NQrJmPGmI2BhyqWdzN6OdgyE9xm/UiaOo
q0tsPQfm4AuefcHfawSZ9LglP5GfA2GpClvaeyNosbdE87rKHKQqdVQMYiPo
+F+ZnB7dOThne7sT9oaR2Jia3ZHdHNCx2Muwug6j8CXzaZXYOSiinLJ4uTGI
zq58imBIngMFRX7RsMJBlLk6Lz+cPgcn3t+ZYHs6iGo2HFOd8ubgLr+beuSx
QbS599wkumEODJNFx/Esf5EOacTA1M4c9HJN9Mzq9yNGztoWT515mDtGniRz
sQcR/VbWrtOfh/ONWXp5e91o0b6lm8p0Hqb0xndD67pRVVnvYOTDebgiX6UU
ZdqNHI3n5zP95qGil0CUHNeFGuP/I+svnoefBY1/lvg6UcGN8ECO8nloJOXU
7trtQElLzDTmtfNAWE46ZG3qQG6Im3GlfR7MbRiDap07EO+QGM+JhXlgkB0N
f/K7HXmw6RNE2RcgmFK9KO9lG7KuGa56zLMA+IfdtAS9NqRjd1/hp+ACaKXf
f8Up2obO/7S7qSixAF2OK0v9E62oz+ClgZHGAnQ+EAziutmKLsd+dAvwWgAy
U5VSS+EWNM2ykjM2tQCb1nJ7rZqN6NUDil2KxQXwfJ4C/oyNiKuIR+by+gLE
tbyMKRloQIY6em3euEV48XDmdahlA+p4W7nKc3oRugU6DSd96lEZSbiopdIi
lPsRe97oqkOG2tlP3qovQqXN9oZSUh3aS6qvLNRZhFHHM5I/7OqQGBxpkZku
QsFEY+ogaR3KcLd89PnJIpgZEIczydSiyCXJ7/MZizDCqcXyobYaiWG3Dui+
LYIdkNUei65G7YEPr0sXLUKN+M7fPzbV6KRASueb6kUYKLwu/ORUNfI2o9q8
MLgIfyqfrQvdr0L2vUNiDtRLoCAuHil/uhLdqPQu3HBYgsoUhS3bX2WorNBQ
Os91CS47KP4qiCtDkpkSFY7PliCYusua8LwMCUXNNyz5LUHsjK4HLVaGaB5q
D83EL4H4dORtqZe/UB8z9/HBP0ugPXfCczKxFGnRHL6OaV8CvhKy7ySWpaiR
pIf6bu8SvH4os/7+Qin6tRxwumd8CTb1mnmOl5aglJo1oba9JbguJx5JNfQD
iReN8I/RLcOyX6UgTrwYrX9Ts6lg/Mc5ZJKNxMUoO/NHZiLzMmR71ynttxQh
gZT3osYcy3DGrs3Cx6YIsQYrSv8VXAa7pb5g3vRChLufo94t848FbmriRQpQ
Pc1L1wb7ZXheMFAm752H8gdPpkw7LcM10/++d9/OQ0kZMS0krstA0oXFVJ3P
Q08UCvnh2TKsBHpIZvV8Q0IeS/15/ssgfH+hJffSN/RmyQDikpYh4dmoRutm
DnIvnbP5kboM577GpfxuyUHmAW5RPenLwOdc6kb7JQdhfO9XabP+MdZAFGqc
gxYNG1N8fyyDEw25nHRzNlJvkiRz6FgGqVZDUQ3nLCQVU3clqHsZjPFUBoWX
stC5BzomX/qWQecxhVfGcibCH3f8MTG8DA9xYazidpkoV/qTrd7CMvzk4nry
/eFXRPeVsU32+AqQhF4zNQz4groD1qMZJFbgMZV2wSm2dHTp/OjEoeQKWFb1
TpstpqHApmbhKekVCFp6ZUz3Kw3Bf19qCmRX4OWhhGTAvTSUHn5v9fbNFZhx
5Aqq+vwRPU5sUvxgvgLFf6aI61VTUZtMSZiX1Qrwkhorf+FKRULjn4asbVZA
i96ud2gnBQ3z+jhLOa6Abem+OKSlIIWMa4l/n60AfZWZSiNJCjpdkL7N/n4F
bnLYKvi1JqFHt8NlSSNX4C31fU+tjCTUtOMVtBz9z49Jn7KlbxLylDLiLk9Y
AUG1WAUbLAnNltOrm2SsgFVG8I2mrERU3OiZllK5At2L0wMe8Qno7qi+Dv/q
Cmi/eVZFbxiLTuq+JybeWAGJpLoX53hiUUXDn+yBrRXYn7gZ9mk+Bp37jlG8
PVgBZT56p7WnMWjdl6Nsk3QVbogGnQhO+oCCzo/zV7GvQs9yfe4lfDQiJLF2
x55dhUbBD5fqm6LQOsMtb1eeVYiRH7SsjIlCeriaQQHBVXhn6X+s52oU4mtP
C30ntgp0TL+inR9HorLH1geGqqtQlXByfOx4BHJaSP4sof7vPd3v/xH6whGv
yYAurdYqvN+1q17/Go4ClVVzq2+vQnDzc04DnXB0h+2ihZDZKhipGiezf3mP
VitXW3bcV4HoKlXIkGkY4qF2TwlLXwUSGs5B3pMhiFS3/VrGl1XoJPtBdmn6
HZqNE2qvzFwFq493cG8q3qHsC0P4tbxV0BOhzLn4+B2SUpMz0ihfhb1XMWcY
pt4izTcnmU/2rUIi2Vp3fmowutJpkcPzdxVyXxUJXjQNRkxnyhWkh1dBNQyv
L8oZjP5mOLnaTK7CX27rkr64IGTZ2NNRv7oKUVvUcz4Jb9BziuRgX4o1OCFm
yXynJADd09rnjT+5BqHEz/zIPQOQ3IdbP/P/W4OJnU/+YgoBiEyQdGGCcQ20
cnJgt/M1ClOyVZLjXoP1mqouui1/9NlfnAQvvQaoJ4KoTM0PdZ9odHe3WwN/
BgWDeFUfdI7LR9jAYQ1692hft3L5oMcYNokercEe5YNft3a9EbNztgaJ+xpQ
KtOUa6R7I/3RsHNvfdbg4rnTbcdJvdFIiUFXaswaZEhlpA52eqJLPQyBfvFr
EPGa1W862xN5rjUTrJPWgKrHaFUy0BNxC8h8FU5fg1vfeHgLZD2ReQSv949v
a/DX4UfpwfeXaM5hSaS1/h/3jZaopHkgqTfpU9/+rEFXAmlR3CsPFJh+Lza8
ZQ1ItRi7hM090IWhdlL9rjVoTPR7eorXA9mrFA5NjqxB0S3KKX+NF2iD9+Wb
/e01kK9sKB90fIaO+mln+PjWIeZjhF0wmTvyqJ/3UxBYB0s6/EfRNjeEK6o5
Z3V+HYRcb71V/fCPw90tP4uug65Gf/jgBTeEVx+dEoJ1IJ8KDNK7+xgRV+VM
itxZh+v3T/TM1Lkg79yAV5r660C9xWn4ONIFHUu8z+tktA63veXGbC3/8fPT
5nn318FewsfjNZkLIpF4OSHmuA7VURd9HNWd0YkM9fFrAetAcf2WzY1lJ+QX
LeCtH7QOXZVvWceqnRCp/zHuZ+/WwceMbbHnwz82LzT9GbEOT7rktpsVnBAZ
B8cYpKyDLNk3hu6PjogibGnkeuk/vx7Vm58cHRD106Chm0vrkH5J99V9fzs0
Lf1t5N7qOpyFuL2Pinao4qh7zGljHfaWb7y0JbdDj7w4pyP21uGF+Kalzxtb
1Pc6b3noxAbkdK90VkTZoJSoPrw9xwZE6vrnB/5+gJ7fPSL25NoAp1Cr1sR3
D5DuGe7jYbwbEPqS86Og3gNEnmhLXii0AV9GH2ZHzVuhh+m4U7irGzC1Js9W
zWCFJAt4ud9qbMBJvc93gl5YIDo3Zd4k7Q3YJjdheKlmgRYk7c/l6W7A+KtV
8b4zFijhZ5FQj8EG5DuZaJeUmiOSGpUrHA82wM3j6+E5InPU0uEon+25AakP
LuJXY8yQ+epPy5ZvG+B4RpfhOL0J+uor6/81/58fp7bfTSv30Dpr3afXRRvg
o3/21EDTPeR1o3VW7tcGhBlua1T430MJMWM2RfUbYEZBxJ1FdA/1ypM6JI1s
wIqki300zhhxDAS+ezG+Afvy4uzDFUbI0uG/XP2pDWh8JF1xzMcIbX5gXmNY
2IA28ahX+eRGiHZFyDlgewMoiTRik1gMkcoHDbdH1JvwLeC8cbemPgoV7orS
oN0EPxebxa8s+qivWq/4Av0mUHiRzC2N30VWy6Z708ybwJa4Npf7+C56dd3l
mQHvJih5b7xhS9VDZUvRL+WlN0GlStb6L80dJCo37s9kvQmNIw8Cmi/ooM8Z
/mGidpvw0DXlzc7RLcRBfzFezWET7EmJnF613kInJ93yvF3/cWdJarXzLTTr
Sz207LUJfA6DUFmhjRIaJC//jtkEpoNH9lR2Wojx8jA2Hr8JH375O5y4roWC
YnwUj5I2IfE6Lc1tVi301LbF8MqnTRDz9lDebdBEutTm/onfN2FgI/n0xYua
6KTWu0G3pk1o0H3wu/yYBvL5ITYT1roJY35n2duH1dE+18BaVscmSOx6agqX
qqOZdV6yyb5NmPza1dbgoo6qwktENac2wer5z5PzfTfRk74pPwHcFji9ESji
alFF0/cw0X6RLdDVWQ/ZYlVCf2Jl9csvbwHHt0iLpzOKKLdXwSdNfAt8Gp4V
m+croicaWt1O0luQbypRYqmhiE4SLJ9QKm5BlKfWV8pABSTKEVIpbfwvn9eB
+fypG4hJP2Key3QLmmOOaWZNyKP9iBh6cvMtWGjukAgolEc11GkWXdZbsPZb
SVPVSB7dPvpB8dB1C4QpT32byr6Ong9OaCUEbYHt82SnEVM5ZMI89/TVuy0Q
fPMhNfOaHLqhs5xqE7YF1adfMTackkM0TbtbEtFb8GrcUXmpShYll1LHtKZu
QYqj4rkOAVlUF3N1nKh0C4w0TM+/OSaDTt198+j+3BZoUvyarOpGSP3B3yOp
xS34ZXFP8Wo0QkFu5wPoVrZguOlqArcBQuSRfxIrN7fgcndSmP44hog6qZo5
ibahg/3BkMS2NFpWC+IfZNoGSQ+y4tHLUuiC4WDed5ZtaFARvWl4eA3Z2F6A
N2z/mO6MrGzdNTQV0KQjxb0NNzOZmOUNrqHBupPe0Re3IXrtWdzpQEnUKBM8
qCO/DZ08xbmq+xKIXHPI6oLiNizcliMhbpRACvcubpCobEOTvWgmfYwEqnzR
TPFdYxvesxCJqktLoOIS6qunDLbh1YFx0nFvcZQu9ja02WkbRIX8pEY5xZCP
wDsFhcRt+HGHM3EoWhStUhL9NEjZhr23U8zVDqLIeMlR1CltGzyMWSpwiqJI
Mk+bLe7rv3v74FrX7UtoWZppfa1oG0YIogoady8hfY34+Pi2bXh4JzOWRVgE
1YvS0H/v3IahuX5TWkoRJM7w8nV9zzbkfgwu0J4WRrT9Js4bg9tglSIRXJQo
jGrNeJWV57Yh1MXyYJVRGF16/HVzk3gHTgVUlRO4LqAEPTYbyhM78JOIk4R2
/Dyikg4e4STfgWvaZhXmqefRNN6hUYVmB1r8p25F8Z9HsQGXk5JYd6AhUvgk
iYQQIo3/oap2ZQdy/3tqRm0jgAarf6ekmu9A0dHQvbMCfKjoSbTEK6sdGL4p
sdq0z4vCRKwbzW12oEBp4lJHMy9SjqVc53PcAZ6H1jSTLryo8NFN2c/PdqDy
3Nkwut88KISrcyQzbOff/kj8neIZN7LtTXUOjtgBHYmlmnVtbqQQ7EJmH70D
C2TXlITOc6OjXUYRkYQdkD0nCN6DXMimTc/j25cd8GLht6qV40LyL4fZCit2
QLyz2YKZ/SziFM/Jjazegbjbp9hS9zjR/vxLebe6HVBrq73i3MOJvt3mspNs
2oHHP15Zj4VwIg5h89KS3h24zM56e4acE+0Ozt0tX96BTZ3CX/wnOFCm1FZk
PdsuTHqn9crrsaKi6mmGGc5d0DtYaOZjY0VVan1hJ3h2weHPBxm/URbUZ1z6
Vk5wF8hFGM0rbVgQiY+X30/xXcBsVRNIfJmR/h/qx7nqu3CyzaClp5UJWejg
N1u0dmFnQCBaPJYJOQ6tOi3p7AKrdfoBiRUT8lvpfChksAuOS3QjC3gm9I0+
xuKj1S5cm7mY2yLBiMgNz+lGe+6CW/R71zPF9Ih+6nRnoc8u2NqHsFAE0iMO
ewqtbr9dqNOVd9AzpEdinotqdMG7EMYxvcl8jB7d+5gnH/RhFziDVs5TadOh
wkUQ88zbhRt3zrWRkZxC91/coX8wuQviSR96ND/SoMH+zzlaM7sw36Y8e9uH
BulI7KtKz++CV8sxlQQzGqSwEveKZnUXDE5w7S1z0SAB0/Gt/INdSL6uTWBS
pkbL8g/7iOn3oDH8cNPdkgpZJZe5LDDuQdFhB7PUBSo0evTfqW7mPXh5/PgH
+3VK1F6Yp/yZYw/es6txCHtSonyB3RJ1oT2YZgjMWk6iQE9P+sTHyu7B/b7O
40XbZGjjQdc1X/k9GAsd+aBQTYbsavl67BX3YO24GC0WQoaMPOpp5G7uAQsV
3zPd82RIZpXac1ZvD2guzH24YEmKSLuizcQd9+Cympt99dJxFBqbzd+asAd6
Oab5MYRjyOyPyrmM5D3YiNPOlmc+hsQOpnl9P+7BSKIVlfQaMerT5+SWztgD
W5GaBMqPxOgsawjbp4I9KJzErvJRE6PsaKdTL5v2YOK6tVDTIh551lPT6rfu
AQf7ttheAx5p736hEe/YA1Gq+BHrT3i0dWecaqF3DypCl8gZ7uMRdvoW6Z2J
PfDVmgp6MYRDfyLEDoT39/7t21JnncqOsLjatj2Koz14yNVkUO95hNlv2e1O
4vdhUP4/najrRxidbtpWzIl9eDd1dyC68RDTZ2BaJT21D7lXu9Gp4QNsNmxn
cph/H8RFL+0zsO5jJ0JKWt7q7oN2YV1Oxug2RvrereiT3j6Unrw/cD1zGyOP
FEuqMNgH8+UuQ1X3bYwyLttp3XQftiZKGpJPbWO0n1MYbtvvw+aujNYt5S2M
rSJQn91/H2TZM96TNW1gHNWK1yUC/9Wbz77PnrCBcdYdv6AR/K9eWc74e8cN
jLvJ48jz/T4c7e5UJDJtYAJ9j5ImE/eBL2Gam91qHbuyqj/9tXgf+lIVl46z
rGFiG6dba0r3oXYrs7VhdRWT2O4qGir7x/eZrCfqVzHJQ/WA/2r3IdZ8fPfU
01UMyK9fcG7fh7XoOxbKoyuYytnzj6Tm9yHcRXg0qHQZM9U8OKo/cwBW9Eyc
9DoLWNs55hNZHAcge/5MmhXrAiZzJHYylOsAAj4/Cbg4No9xZNiz3uU/ALsD
3w0Kx3lskGRcYu7yASjZN91ZCpvDbhfVO1CoHEDhX2+Bj4szWG3w1OMltQMQ
Ffer/vJjBhMzP+bRrnEAQpIKEfT+Mxj9KSzog+4BNFC8aKTlmcHabHI+C5oe
wOkOQ/W4e9OYCkfkmLL7AcQDOeet+Unsx2be7MVnB+Agt052/dckJvCndeWU
xz+9Z8r93oRMYmTuFLgBnwPIPap5yyM5idW0P2e1eXcAXc7naY3eTGDge/9W
YPoBrPjo6ZrLjmNXFi/VNnYdwKadQbr7zAjWEWFfuNh7ANoEqfu3KkcwR0Lm
J5q/BzBjLmv4MnYEyw7jD9QeO4DKRCnNes0RTOgah8bA0gE8ZZjIoiofxrj9
qPrnSA/hgYi3V5juEFYpotxIRXkIk2zVTp10Q5hJv1/pRepDiJ8u8ktpG8QS
LhxLcKI/hEJDW8vpm4MYS+eu2R7nIbCZR3lMqv/FaM9OL5JfO4S7WjEsZdb9
WE4Dz7AQdgilN3436Yn0Y+rOpq1qhEPYMDw16LDVhwXVDX4LuXEIU097l2h8
+jCyh52PmbUP4ZjbS8fN1F4MV1JBJGB7CLF5ey89D7qxpVuxDIrxhzAcMK7F
c9CBTbfxPNBPOoRpGabbMq0d2PDNzNKHqYfw/joTx4/UDqxF8ZdZ+JdDqIx+
c1ByswPLlh7JHSs4hC9Mf7QW0toxex6em89bDmFx4+s7Y8s2zDLpa9K79kNg
bNWVGCO0YcbsYpspXYdwfnToTj5LG6Z++kZsw8AhDJ5vtFVuacWEqazmmGYO
IQEkatmkW7Hl9Qzfb/gj4KxhpBrkbsGmHa701xw7gktu5basxC3Y8GLphb4T
R3DkA7Uylc1Yy3RTJ+7kEeg25XntYM1Y9sAylxrzEViY+gy2STVh9lWXy6Yv
HcGwf6Uw0mjElkNLts+YHUHYoYBUZWcdpjOe8mDf/Ajqln4uq6XWYSWX3wz0
WR1BwWrWhavOdZhfp0FZxMMjiCVTNOdlqMPYGY98/3vyT19h59JN/VpMLZrA
SBJyBPsRU+j6TjWWN8vvPxb2L99phs68qRpjvka7Vx5xBHelD4L6kquxyf7R
weexR9Bq0Dr542Y19uyM98ft9CNgknsdpfalCstIqLky/+sIrnyiTBJ0qMRo
VzLT6iuOoILp9rKUciX2mBBx+lP1P/0XP0EkTyUmN2pxcL/hCMzzxz4K9Fdg
/Vxk1UNdRyAqH06cpViBkacpa7cvHEH2JJNKqWg5lqdjefUvFY6QwXeq/5f9
T+zFtI2FNTWOcOk7ka2R8E9Myd3h/Q4NjpD6xoHbd7kUG4p1X6GnwxHOBbm+
euBYipFPBH5SY8YRbNemz5s8LcGMnXJOl/HiCI+rbJV40osxQZL8G2rncIQ1
xzHV6ofF2GZ4sfMAP44wp57/ekC8GAsormzdFsIRiB/tlNv8LsLy8V3+IqI4
wrdWVfqdlUKM8u3uThLCEfgK9u8u6RZg3ZxHfCIEHOHwivjld7wFWNI3Yp1f
MjjCyi+uRx828jHxbsrc/us4wong3KKJsHzMhI39AZ0KjhBfoZl2tec7Vpgh
2+dzG0egVF0X4XPIw8x+BxZbOuAIXuYGjLmTOdikXLnrgCOOMFk590y3Mgez
LNu4rP4IRxD9uJUvk5CDWRcYZom74giSusTu03o5mGOqcMrxZziCSKqFg0l7
NvbiZcebFD8cIeagf/xqYhaGOyBVZnqNI8SZjctVmGRhno+lSQMDcASO4iji
Gu4s7NXDj55OQTjCHQetlmufM7FAg8euMmE4wqMMe5ea4q9Y9FXWe8PxOELS
oztWgStfMNbv6mzaiThC0dK2h37xFyxW2Ke/NglH+KPjEx7l9QVL4Fu8lZWK
I/jfIDfWZfyCpdGXKT3/giPUtL9TrJf9jOWtmF5mLcARTDsfJfdmpWPNn76c
uN2EI+wG9WqrN6dih0EkLlXNOEL6PX8v+tRUTOiR0bhwK44wMTbjIvQkFfPD
TpWTdeAIOyuJoqrnUjFod3f/0YsjmAj/OlR4lYLl7isusE3gCAySXx+nqidj
wyPJdwMmcQSa2mJFJJiMnaw9+L019W8eB0Q+nMeTMet3OR9bZnEE6WQX8tKS
JIyb97Sx5zKOAO9lpAnnk7Dwm9NtE3v/5pkicIyMJRGruixD0DzAERRfJxLN
7iRgq6djsn4e4gjB1yrPUvQmYDfHbwZG4PGEvjOyPRSRCRipW8F1xRN4QnAP
5c8dpgTMPelVYQYtnkBkEo+QShxmsMEd58SPJ6QrreuQdEZj3HLB+CMBPOHX
pz+DX2KisdmQHbPXQngC67h0aZ1ZNOYi3CSYeBFPGMX1xt7bjMKCrF2Lmq7g
/+lfxjbYorCfI787+GXwhGTpycMO7wjMW/iyxHdZPOHRQeZve60ITOlF3Ae4
jieoBFxXe3Q2AutidTLRVcATlJ002LPKw7FFXdZlbzU8IbVb79nAsXCMrcmO
Yljvn95hrgLj2DBsnLXXzlofT2h/6NZK7xiGfbaWbds0wBOM35V28dwIw8TI
mKKo7uEJIZsTaVqroZiaXDnvNQs8YfqJz3irSij2vPiUTLgTnvDjUXRJ0X8h
2NDHwscqgXjCu1j+q3RfgzH9IU3r0jd4QlGVw/6+XTDWw7hgcCEYT7g0Le5s
JBKMtflxytKE4AmmQ3VNbwqCsJoHr6k6IvCEzBmVpy6/32CZF/ST7ibjCct2
cC+bKBATtNgMa0zBE7yGO9/UNQRg6fFvfaU/4gm63jp6Ku8DsCSaahv2T3hC
mtyAXyh/ABa+el58LBNPeJFMG0Sm+xp7nn/U8KAYT2CKnpobq/LD9hajfvb/
wBOsGKg+6oT5YY/5LueolOIJ8U/qAs6Z+WGOkZbhF8rwhIUOyZXJY36YuXur
8Wo1npBEdIyhWMkXU8WSN9xa8QSz+vLhM1M+GGuNPLv/9L/+J/0KJBh6YfwR
2bvcs//6UV+6Oy7qhYlZMneVzeEJQ5e+UU+QeWEa5IuB24t4guBSOsl2vif2
Su39rsXGv/+VPGGqRe+JLXWNdcoTERGkcyadxUc9sP001ZxRYiJC6PulY0ql
Hhi5W0HgcxIiwpCt8u2vkR4YN0uAbD4pEWHFYey1qboHdtvoUg4PNRGBj85a
d/PVC6xiyiPwGCsRwek7Man/w2dYc+GsRcIZIsIMu7cH38Vn2IC/tqwUOxHh
cedhnebSU2xT8Nyu01kiwsRExL6Sw1NM0L7ZYuwcEYGD03Qs4ckTLGz7jGzF
FSKC8knmjNF0Nyzxty+boTgRwX9pzqjS3g3LjF7Z2ZEgItTEvWpnu+qG/Zaq
zhaRIiJcsXlaT2h4jB162LAlyhAR7NWD+Vk2XDEKza4dKTkiwnap20FemSvG
xAWdPdeJCCmSr2zKA12xS9WnAmkUiQj8dp6iF3hdMRT+zCJDiYhQFvkqJnDN
BVOxmJJRUCEitN9vrLhT7oLpSWiwjasSEYT/Y88LC3bBLMh+7Ly4SUQwC7/r
IWXogv0PQBopZw==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40944.}, {-10, 5000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7778079099686785`*^9, 3.777807978426996*^9}, {
   3.7778081381134267`*^9, 3.77780814481205*^9}, 3.777808361980421*^9, 
   3.7778084922643156`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "5000"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 
   3.7773605967737846`*^9}, {3.7778079905782056`*^9, 3.777808062886483*^9}, {
   3.7778081334636655`*^9, 3.777808148986739*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "3890.4709852591927`", "61.552715198954964`", "63.20551372403544`",
       "2.729777895868516`*^-97"},
     {"Tm", "6142.289712690229`", "134.2283082540253`", "45.76001733603039`", 
      "2.3267028257956717`*^-80"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.777808149314637*^9, 3.7778083620272875`*^9, 
   3.777808492358042*^9}],

Cell[BoxData["0.9851972058593313`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.777808149314637*^9, 3.7778083620272875`*^9, 
   3.777808492389284*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1k11ojXEcx08utIslF5KLpZEkndZc0FqHHYtZGWZeYziGWTrZvGWYeRpG
zPI6k1nHS7MyGjKLwx7vwzHzNsMxQ8nFLs6VlpZwvp/fqdOnz/P9vfz/neeM
KijOWzPI4/E4/77/qc8mfxztl0VnNzQ/JBY1i+4x0XsRrxV/N+BnxCB54Kw4
NiT2nhcrYIC++nPkjWLrafJLYiNzejmXv15M5VyRU2LJVTGZvPmaOIw8dp05
J+m/If60/hbmn6D/pphNfaxVDNXQf4vnR+m/LRYdpz9MP3nsDvc6Qn+bWIan
ueKFw2I33s7vUHpPHFEN7zOvSmzF+w+Iix/AgzzHc/eJtQ/ZWwkfUbef/Xjy
XvY/5vke9j8RO3lvWnGngr3tYoLDXDyVvPYp83ex/xn9O9ljXs7+5+LQHeyP
iCXb2I+HtrP/Bfcl78djW9nfITaXsv8l+7awHw/xP/F1Ur9BrMI7N4tRfOhG
0fuK+wXFMry5RIzgzjox6bXoFotB3I+H8dBaMfGN2Fso5uMhvMny1eIAHmBf
zlv2c7463L9S7DNfxv3fUR/g/nigQIzi/kWitwunvsx8iRjBPZPFpPfkK8Qg
7swTw5YvFRO7RXeVmI8HOH8T7pkmDuDOTDHnA/loN4463J0v9pnnib6P1M8W
q8z9YtR8juj9xD68zDxLjJjPFZOi+CwxiLsLxLDlzEv8zL5sMd98nO7TZM68
AfNYRhw5PXimWGfuEfvMx2ue7wueJlbhLueP4s4McXgv9Snqn4I7uWKh5eli
teXZqm8xnyrvsfoJ8sFf8QQxxXy6uNDcp/pyc/obzGNtcXSYj1H+y9wvH/kN
nyjPMqd/Pe7mKq+xPFN+1zxD/GHO+znku+jgk3BPsvqXm3O/SnPe1yvm9HfZ
PH6PP5an+/8CkKVY0A==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3c8198Xxz8fRRKRyMgqo0hS5pe87/kgKTIiESJZRWWEKBmZERkh2ZEt
s+yM7L333nvv9ev3132cxznn9Xqe+8+954Leq/sGRDgc7sQxHO7/Z7KpqF7v
2Wfo8atOrmX9NLBh9+/fw90GnTGWv8M8aUCiM5Bdg3sIJV8n7sBKKjTuE0Wn
44zAJ+VMqaxDKmTW0dLF4mygTrU40DgqBTgEWFvDce7Qnnnd98ZmEjQWrtyN
N/MAZPiwIqMsCWxk/panD3uChpmtdoBvEtRqPMspL/GGCB3tCjueJBAt0ah/
DX5QOiMpUamfCAOT33+G4oIBxOg+Z87GQ+YVCtPI3GD476tPPVFRPLiZWV+O
NQuB5tkohSTfeODflY1OHf4KKnqHnvtC8eBMsehfUhIGI5pfl765/QAaRiZx
S4iGqrapXTGROMgDQ5avuHgQbcYn9rbEAP2dnBJ1/XhoqEHW40kxYK18/Cl9
dTyYCvyYx1xi4IZeTHywbwIIlimLjYnEQNKHQf4gliTw81h41hUTDaGValIB
N1PhnNexmVG3KNhujJu4H5UKZ1knR5P1o0Cta92d+ngarHeLZBZIRsHZaf96
v7o0IE/wpNQ8ioRKlyke2avpkK6oEh64EwHYD/ZsmcIMMMtSZ+0nCYcXPHKu
XIsZ0KZorPq3NgzC0izUSNgyAThGVi77hsHur9Ltig+Z8O7E7JOnDGHwq0pH
4pZcFgT3kr9wEvgGfDPfKqV6s6F539DRy/4rsPLS9MD2b9A/NpHuphcEvFOi
n1u5ckGbiO0mJhIEojHat/Uf5EKA1qM3d8iD4D59fI57Zi7UDObZq//+Ai7H
xfwbTfPgS5/Xg9tnvsBsv46c1kg+jKToTQ23BcBmsAvRImUB8HyJkPqYGgDH
VBLzHLACaC+8U2rvHgBMNauXvn8rgOrTieNwMwAUc1yPzz4oBBGvzieXE/0h
+1NykU1tETiqyWkc/+wHJbLNr0/uFIHQ4re50y/9oOHYxpVvl4phesjwkqa8
H0zaYqHFLsXw54J71K+TfsBg2GJNjP5Alvv+ion7Z0CRe8E1GiXA77dcX8fk
C7E2F5QfNpYC18Ks/7SPF6y9IkNXJkohXu3idOIjL5A0XuM92iuF8vAD2UYu
LxhRryCN5y6DDMklJFHyEVjEnpVsupSBRq1wc+SWJwTvp18LEi+HkgXt+702
HvDRCU53JPyFnNQRUYc8V+ix5d5P+PMXTJiFyxQ/u8JlC+rZd51/QfdEvc5L
I1eo1Buv4DheAUx3iz0CzrnCMWkP+9c6FaBxLy/uxRsXeEfSPH/2XCW8a3S/
PHHnA7zy0qm7/6EKso3UnUTYnOAmsyLZubAqCJhpu0t04AikP7E7PdlVQEW/
aUXb6whRrcxVOpP/8jjuSOovjtDM0F9meqcabJZdCOqnHYE/QT3fjbIGvqos
6nOffw/7/8nu3LlcA0OL/eXSA/ZQXSciSkGogbQv6bpDkfagu3TuV4BFDSQd
VCIfLnvwE+7IiOqogavNMXa//nsHq3+VE/O/1cKpN2V/1aztoFiNMG2fXQve
P0sHlpAdfJzmv0RoqAVUx9q4fdIOLpJTxVUd1sKaGFOkWqQtqKg0RrU/qYPO
qmhF7qY3kD1yN2TxUj1sVnXeMJG0AetDKfeL2Q3wNJ37daH5a8i4ciMPq2uA
+xJmrI53X8O8Otvco9EGIC69R+fL/hr0svYVAqga4Q10J3t3WoKCcc654y8a
4QR1ysAmsgTOVq4fE5xN0LR0yfk0mwXoHtF04yWagCBb7nnrwBxCeY+Rsag2
AWX4I5U/veZA5T70Qs25CVxO7/LaBpnDvniIUNVgEzDzVt/YpjKH2VYXvXa5
ZhB0qdfKPWMGHjNv3+o9bAahyzPE5ROvgBNnGbis1wxD7uQZXgmvQPfqk0py
u2Yw528NeXftFXS6S/DcSmiGy16c8FfyJZTe3FzJOd4C3z+7T/K+N4WQH0ZO
wUUtcCXuGVWl5DNYPzkqyVzbAsJTFW5w+hkovdA6/r2zBbx88vgv9xoDqaCy
e9pSC/zkoPgibmkMb0rFPlVcaIUy7ccSj5KM4GE/xdc111bY43bqyLtiCJnI
45Gtfyt0fjIgjj4wgNPfiZiOIlrBtFSYYrrJACqfbUWQ5baCAsbh6W9lAMJb
w7EXZltBozSzTqpCH85RZ6crKrRBqFLVM3Orp2BhxWfR8agNDtvVLu7LP4XG
7gQBTaM2SD3zZqeX4ym4RYb/MnRsA4bjUnf8O/Rgg9e90D6zDTR1En+0i+lB
++1H1cnn2oGRQy/4HM0TCLDHDZ8Yaoc2Gc4Er11tUOX7waMy9y9e7K5TL9IG
miE5q4itduC13hqIcdSGQAgmE6LqgN7nGm2JpNoQdIxPSI/QAb/jZ8OMWLQg
xFPzY+H3DiD2YF9p0HkE6mL4jhPpHeDiyFexyf0IGOZ+sKoUdsByr7Tzp3UN
CJVfzZ5p7wB6yRERvJcGfKP0HDpH0glXO7StZwrVIeLLL0Fz404Qf33IQCT4
EB7LaDkUvu4E3cDoi7HHHwLrFr72hFMnZFbJDvzoUIMo9Xs6EV87oel5jGrd
GzWIPj/uWVfbCamPF8+9LX8AsdFnhjivdoF08qZUyzNVSEw19exd6YKkojhO
hw1lYEvxu3f/oAsqzxiJ3G1ThpCkX2dqSbsBuxFjppahDB7xuNA81m6YeXfq
Of9LZTCMDkwKudcNGomxrAOzSsDxpbBOLbEb7huSv306pAhhASO+jdndENQt
eyktRhFo/ElUZUq6YV/hkZWpoSIc81XqF+rqhp/3v7vDkgKMeozP0xD3QJW0
VTsfiQJEvSM/3abbA9kbTmUmsvJA//Z6613THpi+qt7oTS0Pn23VgspseqCO
nNyaZkAOHKyjWDJ9eiAlqMhb1VIOHpsJXvMr7IHx8pUW59i7wKSvpaRI3wsW
vZ386/R3IEQuxb+uqReYKyWDVW/JQGOQ6pFYfy8on3epVqeTgeOj+yZJ070w
WBs4VzBzC8zf3Lvlie+DHu+A7W++t+Bu3OKWjEAfrP6aZE0bkoa9Q37tsqA+
MK1uErb5LAU37vbUXP/eB0r35I/OGEuB8Rcn4eifffCUp+YaDqSg/UorpWN1
Hwx53mNoX5aEFHXLMondPnhvbep7W00SHmfmXMrT7gdRJGXTcI0AgQfagZef
94MVnmJfiZwAtbIk+BDrfghNPqpgngEQGVLrtfbtB9mx1w2fvwNQkW97C5b2
g+bK7vP68wBlBmKrPzkGYKhX0UXkBgacDH8Kf8wNANWCQU6NmxhQZ07GSG4N
wFi2xZdYFTHAyZ32HCQahKzvu2dG2cSg/532g3OMgxAzajDjVPgf+A/vLbjK
DsLPo7hI2BYFXIIoq0HcIOjh6S6ddxKBRdAlxmcMgn79TFGNigj09bjPhRUO
wvSlczlNXCLw61TX7/a2QRiUHmEfahCGF6+slKSJhuDrI5+JHVZh6BXOdGLX
GYJ3f5Ro/NsEobqpx+jP8yHgkCd/+TxZEHKM8Qqa1kNAxJAm8PmDIHwOVWIM
+DQEW27JaaWCgnD7cDGTqHAIXArF1VJCBaB3lHbVjHwYZmRYAtlf34DbSffZ
lZ4Ng+hQZNyMBj+YMe/34l4NQ6QJHx1enB9CP8f5Z7wehqi9rI37TPwwb72N
P+s4DH1/9Jxk/1yDz1IRwx1Bw/BO8N6j0RY+6O6fCdf8OwxhEljfz1NXwZjS
id6IdQRi8lqlxeq5wc+Zp5mOcwQsI7meW3/jhvyNNvdqnhHAvN4VnTbhBvJ+
ri1u4RHwR++ElU9xQ3pCfce8/AgwDJtlkSldhm0CfYCF3QjQa184LJrhAo/X
Pyned4yAUTHl5w4NDqDyCf2a1DcC53hP5J/n54CQeFfOrpER8Gq5bv6bhAMS
ezUl+BdH4FBvsnY+mx1qgfTFKMkoPFNHqjdp2YGc4km9jOgoSPg9sOkfvwCB
XPLqltgofDzFKcZbcgGYQGQ8UnoUWI+dEa76dgGuWlLsbyuNgpL3J/N+lQug
0JN3JfnZKCgSRg0sq9jgcxy1F+W30X/vx0W5OBtWoP9zcO5m9CgkR05GsYmw
QlT3dIxx/CjwR3Agti0WyDj1J780axRWBNQYE96wQKu5yaxl/SjwqghwFzkx
Aw329073wShc8pSzY0w+DyGdVqTRumOA9jhNdlToYT+IreWp4RjoBn1TNeGk
B92HdV+5TMfA5cyOqvAWHVzuZruSYjMGdpKlK+3f6CC3p+7eb58xYPfIunVx
5hx09V8IaCgcg0TrtZyXAbQgFl6v+blsDJymHvRzPKeFCG0bDpXqMbh0MYiY
h0ALhoP1Od1tY7CRSUzMukwDm0M23WOzY3C9pe71d2UaODfWwLxLPw7+iepf
gy+eBbvvbyYLWcbhrIavzc4BNQw+Zf/pwDEOTTM2xtE91PBj/A0Q848Da+Th
81I/ahCeZH9KdXsc2Ne33QSIqUFtxjaBy2ocuoWU515tU8GXJU4BlZZx8B7c
u7nCcBrU1aib/brGoebMp1+ufRTAVHRo2jwwDn7PpKK+hVNAzMeuH/dmxyHo
cXzgbXYKSOP0ZJQ9NgFj5DVXPwiSQ7XmPF5CaALUCd+eJ74gA6+y7oi34hNA
IiP/u0+YDBS4K8TzCRPgeLYvwQFHBh2b4VYiChNQ7NXVQP/lJIz6Kc5cN5qA
zd/izdblpLBXldnM9XUCHrSckmcWPAHFfJEvDCIn4Gl5n+PRsRPg/MWLLDZu
Ak79jnh3q50ESJ/qS1/InIAz3eS+O1YkQHNIm3u+bgKqdCim5oqIgU/QNpLq
YAIkWm2X5XWOw5Mo9HJXdxK+zIv9XhjFQ2dqadN5o0mQJDJw+FCMB/kCqesS
LybBZTr8+dNQPAh33l53sJ2EJxsZikf38UBOrmRH7D8Jwm5yzMFVOMi10XWj
Kp8EVTnTPL+3R4jPdXTqes0kiDC/u2MrfoS+++vfUWn6V3/D6OHY3iHySTUm
D+qbBNpiqBZ7f4iejpn5n1+fBF9de8tejwN0WtEpgotzCpbtzJWOsveQi9Yx
nOyVKTAKvPM76N0e2nnm+uTZ9SngjUnZiJLeQ+MunhwpElOgRv1LhaxzF+Xl
+yVdV5sClpRAa7rDHaTPFfPrpvsUJFufllfX20b5B2WN92emoEDA4U+O1QY6
lXn8BdnSFCzdIzu7Lr+BtAxlTpWt/9M/RWh04NhAh401t6/jpuFsYgm/ffs6
kopqLqGkm4ZLn6g7j0TWUb3kYGa99DSUxDwMTSRfQ8xbrMoud6eh9mi97e30
KnqZ/GRJXGkanuj7lfv/XUVUNBNXkjWn4dGV8gJv+1WkOjEX62kxDdR6xSTf
V1fQgPtOkEzUNPxd326em15GfDfFhQ7jpsEhT0GpsXoZOS6/a8tJngZlzrWG
hYRldFEDR8X5exr81xM2Rp4tI0OeE57HGqdhlIKbiPPfj3+xnuZtyd6/vCoN
rxHxIsJR8+uIPZyBTrdjI9d+zKJ006yWF9ozcENXWVfx1SzSrRKWjn46828/
bRseEp1Fpe8kuEnNZsDT2lFaqWEGOU/dXevwmIFku6ngB3vTiLjIwN08fwYe
L7I/5zeZQr/oZnZiS2Zg8XXYxKbYFDK0MDXtrpwBeopXP9lOTaHKS5bKqG0G
pmfrD0JTJpGHv+N5ivkZ+OJi5UOzPoHIjL/9TGCeBSWyhCOzwHGUX8ZysZ99
Fu7NzZNQPR9HJswxgZQ8s9DztuE+CYyj+tYEW2vhWTCTws9tzI+hTxK/pKQV
Z0Eza6Cp4e4Yojrb0jXkOAtueolBtbSjiLaYBEc3Pgu3qzg8WWqGUMyfOz+H
Z2bB92WqBZH3EOIr9X6ctDQLMp9HuzUVh5DMX+oiib1ZWOj/8MWkaxBZ17LY
6VPPwZ6ujOvk/ADq7BRez4A58JgOUfrE24/0um2/v5WZg41AXLneZh9a7Cm8
f0t+DjISk9SjSvoQyYBkRvfDOSggftWopNaHhMcUXh69nANR8xlNc7deFLRk
OC0fPgfX+PbcT+50o4sricHnvs+BCQuFF0lNN0pbnZcZTpiD86VS/Tpfu1Hl
hkWcZfYchG2FxnKId6PNvfd6oXVz0KZq9HvMuQupkQb3T+3MQZPWrNX3i52I
7kJVs7PaPNweSwusjGhDRDVyqtVa89B2O1dy1qoNLZo1d1E8nYdVzWsnn95r
Q39LegZDXs1DXPD2eeWDVmShOz+f5jEPPesnlcmftKL6yDMn+/LnoVL5nLyJ
SAv6fTvIm610HmaOIafPZ1tQzBIjlWHVPMS3rT3BLTcjW8RBt9I2D+JCKK8o
sRlxDQlznliYh/JyRfIItmbkyKJFEGBdgBMptdpTwo3IpHL47xvOBTgUvdm+
u9WA1F4ayBZfWYCD6xsP/PIa0NXil4p3RBfA40Prf1JYA+rVdtLWUV6AqmdR
guH36pFg+A9brw8L4Oh5zFvmQy2aPr+SMTa1ALxjS77FUlXI7fmp3VOLCyAs
8ZCfl6YKsedxSgquL4C7uijd3ngleqz2qNUFtwiijJoRee6VqP1z+SonwyJw
+lIIxrZUoBLiIAHju4vAlkgV7Gn9Fz1WTX/7WWkR+H8c/M2Q/4v2YmrLc9UW
QczJz/ka+18kDEcqJ58uAoU4rF5uKUcpdsavk94ugqGxdjfuejkKWRLLmU9Z
hI7DgbbMo1IkjD04oMlahK8F59fHe0tRm/erWxJ5izDfcU9N71cpOs0T2/Gp
YhG8um7a3XxZilz0KTb5BhfB8alirvZICTLrGRI2p1yCUm0q4/jEP+h2uUvu
hvkSfAy95OvdU4BKch9LZNssAcdqrr1xbAESSxMts7BfAi0u79bEVwWI9+t8
3ZLHEljt2CVpnChAVK9Uh2Yil6CNR0RaQzwf9TJykAw2LEGOCqe4cE4uUqE6
/BjWtgTWlbeXqdxyUT1xN6VmzxJcJ7nw7dbDXPRn2Yuhe3wJzAWjOfJ3f6PY
yjXe1r0lCLsR/Lno1m8kkjfCPUazDM0+y1ci5nLQepaCaRndMiyl6TvVluag
9LSCtGjGZfj+yfiHTEgO4on9IqDLtgwViPHoikwOYvK9IzFwZRl83eg/hsZl
I5xBhlKX5DJUqQqFultkoVoqJ5s6s2XoEsM9H4AM9GvwdOy05TL4/wlO5GPO
QDEpYc3ENsuAF0I5NTvp6K1sLjfYLwPTtF1Tb1Y64nVc6sv2XIYkOYVk9Svp
6NOSNkTELMO4+K9P7gppyK5ozrQgbhlkdELyeyjTkKGX7dfuhGX4KZDpkdqS
irBLX1apfy6D0YFab4daKlp8XB/rXrAMOjriHuRGKUipUeykefsycJytDrgR
kYRuhlUL+XQtw4tZ+0pOoyR0+bmaXnLvMhzy3Gr7yJ+E8CQWBRPDy9BbQ9P0
428iypRIfPFoYRlKy4qIKVYTEE0qXasUyQr0XNy51Kgbj7q81kPPia4A8+rq
oJZHLLpxdXTiUGwFBvzNlbN1Y5F3YxP/lMQK+GToaqv/F4vgTHLlb6kVOKU0
svph7jtKCHqyqq64ArqNKVc0VL6jN9GNd74ZrsBB5iCjI38MapUsDPzwbAV+
vTXjfUwRg3jHE4dMTP/5O4cwOM5Go2EuV6ubFitgS27w9lNcNJJNEY8esF+B
ueu70iUs0Yjhd8I265cV0FPjekDPHIVeqwdJkYasgHSd7NeVvUjUuPPBZzl0
BWILnct4iiOR800djtKoFaDx8ucgko5Es6W0Snop/3hfZPHxPohA+fXO8bHl
K+DH+og72TsMaY5qqXGv/pvf/YZ4yN2v6PTDL8eObfzz37mlmcX4FZXVNaT3
b60Afjn2KvdcCLqcg536fPCv/run+MVPIWjdna1kk3QV3l8zcRbpCEY+V8e5
/7KuQuYh6d5jqyBU8sbk4PG9VRBaun//yUoAslz4niSqtArh392VwusCEJde
/0NqlVUwfLPSyvYjAHnL3cusUF+FnKyU2/uaAUiD5ZoRr/4qMDQ/19ms9Uer
5avNO3arwHSLYcE1xw9xUtrFBiasQu15+xIzS19E+rBNPCV5FVq+MN/tueGL
ZiN428rT/vGoU7+tXPVB6XxD+LXsVVB5aRLA89oH3VSQ1lEuXYW4euNH++8+
ofufTjOe7v3HI3SKdizOCwl1GGVwDqxCoO0L0vMvvBA9c6msxPAqHGDjIVWC
XmggxdLGdHIVilqJOuwqPiLj+u722tV//AbGOP55T/T+1Hdf91NrkDZh9IpC
wQM9Udnnijy9Bp2GuifZmTyQ9LcHxb/OrIGDcAZX5Kw7OnmFdGGCbg2+WczE
VHm4o8C7L+5Kc6xByZbR8fIaN5TkKUKMl1iDVwF7/VnarqjrRL2d3cs1cLbX
IVWpdkaX2V35tc3XgI6kkqAc64zeYNgker0GihZnnAMdnRGjVboysd0aCB4n
PjH9nzPSGg28/Nl1DXashKayfzqhkULtzriwNYhSpVCwiXdEN7rPeXtEroGB
OC35R3dH5LzWRDCJWQMK34jDHiNHxMEjmcqfsAbIrjTlGrcjMgzmcinIWgNi
1glmOW0HNGe+dL2ldg1yb9O6Z3rYo5ufEqayGtag4sK2Co2SPfJOeBIe1LwG
senjSaN09ohvqI1Uq3MNbrxizi1NeIfM5HOHJkfWYJvJbsmi6S3a4HL6tL+9
BtJG4aVr1+zQUR/1zKVL6+A8sHvxrqgNcqyd95DlWQfM6oM5JakNwuVVXn52
dR3mU7fmRbutES7IzjhJYB1uiZLx5thaI7zS6BQvrENVoJnFzVIrdOxvxuR1
jXUw8Y7+3f3kNXLJ9HK7r7UOHV9uTziLvEbHow24LHXWoWW6Be9K8S9+z2CY
bbAOhKvv+HzyLRGxqNOEsMU6KDN15EbRW6ITKUrj4l7r0GjA9ohv3Bx5hPK4
aPmsw/EHBDzxH3NE6nmcw95vHQpcofty6L/YMPdpcfA6SCr3f3mgbI5OsrGN
Qew6OFgP0N0oN0OnApdGbhX98/MzFRgzfoUo3/kMKS6tw6WxkQlRfxM0LZE1
8mR1Hbo6blEeaZigsqOuMcuNdbCxPzEqctEEvf5wYTp4bx2WDK4NHmQ9R70f
s5eHTmzAXpA2dVn/MxT7tRdvxrYBFzMqtI0ljdF7zaNjzuwbcHqAzm6Jyhg9
ZOYgCeTaAJfZRdu+ISNEFv2CLJd3A/JmOhcH3xuhVwm4s7j/NoCz/G6Afakh
EvvNxfFZeQMUUs9efqlugGhs5bhiVDfgQxDDx0leA7QgZnY5++EGGFgoZvzG
G6Co4jzebu0NaBCKePckRR8RV8oLsT3fgPSjK4F/iPVRc7uFTLrzBghQJ1ec
rtZDhqvFxs1ZG/Ayg2TAzU0XpbpLeab+2oBK8YFmWiNdtM5UnfgxbwOiZ6eD
hm/rog+3W2al/2yAo6pg2yUyXRQVNmaaV7sBQteehI9c1EE9MqTmMSP/eMQl
Oc8/0EZs/d5+DuMbcPZEwE15Zm1kbH4mU2tqAwrf33eemtBCm98Y184tbICZ
ibuFxhstRL3Ca+W1vQHiKhxXaGM0kfw3ZdvXlJvwTshuUZL0EQrg7/yqTL0J
9XPLLws6NVBvxaN8PtpN8JPwveIfp4GeLT/dm2bchKLbpp8eSmsgt1vW9tpc
mxDo2p/E56aOSpZCnWQkNqFE7JLUG8aHSEB63JPeZBMShY/0TjqpoqQUz0CB
l5tAR/nLoVhNFbHRXotUMN8EPp8X3bW8quj0pG22i80mXOz/8mqyRwXNulMO
LX/YhJhr6iO0oiooqk5MsCbsn77u/eY/x+4jOsFhbDxyE04d0pgGDyojnzDX
O0cx/3i5nVMK8pTRuxfNj4USN8Hho2zslJkyekhp6BmdswnzU0WvC0eV0GkV
v0Hbxk14JdwemhyviFwLhGcCWzbBxjI4StdQEe2z96/9bN8Eue0nKmGcimhm
nevkZO8mmMVdNPkep4D+BhUK3J/ahDBD+NSafA+97Z3y4MFtQajazPGGJjk0
/QQT6Lu+BY3MGhf0XsmihnAprVLBLeCImre9D7Ios0fWNV5kC2wCBq3Cz8ii
t8oqXZYSW0DzajYCcm6j0wTjt+R3tsBgbXspAXcbCbD5l0vobkHd8MdPr+Jv
IXqt4Hn2p1tw5+YEbYH9LbQfHEZLZrgFpVJly2qqt1AlZbxRp8kWaLo8FbQn
uoXUjwpOvbLZgrIWbyVLPWn0fnBCJcpnC549I7Zz4ZdCeoxz79z8tmCic/ii
7ykpdFttOc40cAvs19Z2hiclEVXj7pZo6BacrjOhVI+QRN+LKMNa4rYgYTWC
wZVKElWH/TdOVLQFD0mMiIzxBHRW89Nrg7kteDTTMtfHjiGl5wNHNxe3wCSQ
nXhtVgL52F71olnZAqMzTAFWmRKILKQhunxzC/ZG50bzJCUQUQdF0wWibaCP
jHzPbXwTLSv4cA/Sb0Pxu86G3Qqxf/u876CazDZEUDY16VSLILL7Q8/47mzD
XMj7MZtvIkj2ybUNYvltcDnjXDr+UgSVOzSdylHehoKoe9r550RQfiHlf2e1
t+EEGUOf1HNhlCD8OaDJchtOb4vO3mETQq48frKy0dvANh8VeuXvDbRKTlSs
HbsNhmJHEQXhN5DukoWAZfw2WC1Ua4fa3EBi2aosEanbsCE36UbgvYGWJejX
1/K2Yeb3nCDn1+tISzkyMrJ1GzbDuVwLHPlRrQAVbU7HNhgPHWosPuZHIuec
PtZ2bwMtnfFzQwl+RN2nZ7UxuA2vT2VSym5eQ1X6XHJyc9uA73+05rXGh268
Sd3cPLYDCyaD81okV1HUIxZT8hM7ID/PuDhTy4soJHxHLpDtQDstZ9ayLy+a
xpvXy1PtQH0pSZzReV4U7iUYE8O0A07PQ7SHRa4g0siCewpCO5DK6cp+1Y0b
DVbUxMYZ7oAm89O3NBZcKO9tqKjbsx0QFTdL4r3NhQKvm9Qbmu7AAxrjgSAm
LiQXTr5+yWIHKnl5Bh5Xc6Lc14pSSfY7kB7vYZTCzon82TtG0gJ3IMaezz5/
mh296Imz8g3egWjDroXkMnYk62t90ix0B557/maeDGNHR7t0169H7cBew5zv
jfvsyLT1kWNW8g58NXCoYSq5iGSchllyy3aAbtvyv7KEC+iCSEZmSMUObK/f
+IFzv4D2551kbKt3wHUw+KuDwQWUpc7+UqxxB/Y9hy5JsF9AbPyGRYU9O8C9
ahKRGM2GdgfnNEuXd6CDqtW5VIUVpd3cCqll2QWTsw+ZrWvOo7yK6XMzF3bh
+ec3PJO+59Ffhd7AE5y7sNu7Y9Wgdh716hZ9lr6yC70LJIsHE4yI2PWDR7HI
LrxoKO2tO8mItBoo32Qq7UJDj2npPUN6ZKSG32xW2YW5J9G8ZQL0yGJo1XJJ
bReoLizKR+LpkcdKxyte7V24pLV893MEHcqiDTP68WwX/C22l4UGziGyx5cf
hjrvwp1axNBnSotopxg6cl13obLj++QboEVsZqdUujx2Qa3tbZwFDS0Sdl5U
oPHdhSgDoSPrIhr05Ee2jM+3f/0OvGlpZ2lQ7iIIO2fvgkSxg6h4MzUycNCg
fT65C6wDXhrMrlRosC8pQ2VmF/78mnnPZUCF1ET370nM70LaAY/9i1tUSHYl
wo1qdRc+kgVyZZFQIZ6n41u/Dnahoq49nI2eEi3LvOo9RrsHK5qHNZpSFOjZ
9xLrBbo9IMv0HSgko0CjR2fOdjHuQXoxl4NXKzlqy82WS2Lbg5x8epaXT8nR
L57dQiXePWDp3z26/vEUenfaNTJcag9klVaoj82dRBvPO8XdZfbA0UWBdiD3
JHpZdanb7M4esEX/ZqV3P4l0HGuppBX3gPk/Fp00jpNIcpXSefbRHmhQX1O/
rU+KSDtD9UUs9uBQM0XIZ50EBYSnc7dE7UHmhz/+9arHkX6D/OWU73twSb7Q
V4zvOBI+mOZy/7EHXxp+5q6cOI56tS5wSKTswfwQ6P9XeAxdZPJnSfy9Bx/7
YgRYLx9D6aGWZ50a96DzQrlrMzkRcq6lpNZq2YPRgUU9/1k8Ut1NphJp3wOs
RFn4SzUebWmMUyz07AGDQGabpiseYQwPSDUm9mBNXS1+CI9HDcHCB/z7e6Dv
FvjpEQkORVS17p062gOmKwU7U01HmNnWy91J/D6sBwzx+wQcYTQP47fCTuxD
0FlBdJ3pCNM6R79KenYf8hcc7+ffOMRmA3cmh7n3IfVh4bULr/exE/6FzZ8f
7oPD3trbLskdjPSLbV7io304Hc38YPj0DkYWIhxTpr0Pfq5RNKp92xh5RLrl
+tN9oAns6H5jtY1RJ8WeUzfbB/FF1q7ItC2Mpcxbi9VzH0bdXyqmCGxibBV3
bol678OaqLcEjmQTu1BNwqfsuw8MYQ2smd0bGEej45Hzl32ounutiNdhA+Pp
fR0zGb0PSiTDIcbN65jQqtZ0av4+FDp2pWh8WMOENxhaKov2IaIpIkBIcw0T
3e7MGyrZhzG3TAp9gTVM7FDJ60zVPiQSvtP+Gl/FgOwWn1Xbv/vwzhdiklvF
5C9efX1zfh9WPbvOPuVawZ7ePziqZT6AooJw0OVcxFovM574yXYA0p8SDN7O
LWCSR8KnA9gPICzeMo84cwFjSzFj0uQ+gFGFphB9WMAGicdF5wQPQO28NAjq
zWPqebXmp+QP4MN37mDjvFmsynfqzZLCAUSV/HdA6zaLCRsed2xTPgB8vsYa
p8osRnsW8/n28ACSu6nCni/OYK2mGUlXnh6A4XsJFwvuGUyeLWRMzu4A2tuf
PRpMn8IKNrNnr9kfwKa6IaXOhymMp6Fl5azjAfyhsOYQUZvCTtqdwvW7HkD6
9kDz7P4kVtn2nsnU7wAuRV27pKAwiYG7wQPvhANgy7R88QY3gQkt3qiq7zyA
u63l0UIRo1h7sFnuYs8BnBSVSbS1GcUsCGmJVAMHkBGbIXNaeRRLD+T2Vh07
APe3uB9cxKMYrzibcv/SAVi+eLiBNx/BODwo+uZID+GtWDtrl9owVn5drp6C
/BAE/I07u//95fT6PIquUR6CtW//rQtnh7EovuNRlrSHUOtDS0oaPYSd79jV
37twCN/8D3SJwgcx6ovTi2TihyDLsKD+J7Ufy6jjHObFDgH/gYKM1qIfU7J6
2qJAOAQns63+SeF+zKd6MMv/9iG01UuM7Jb2YSdfdbxhVD2EraWy+OqBXgxX
WEbE8+IQxrp3Ntiv9GBLD8LP3Yn8x6tRwuN6rhObbuV8rhVzCGcpVGMNZzqw
YcW0oldxh/B64qZsbGEH1nznj35Q8iH8NLJnva7fgaVLjGSO/T6EVD2x1ne/
2zEzTk7F982HYMq5A+hlG2Yckxrj13YIk7o5Kj4ybZguq/BmbOchtHDdtONj
bcOUGG6H1/Ufgnjyhxc6La0YP8WzOfqZQ5hJ1r5o8V8rtrye4p6FPwIBhs7o
ZroWbNpcqK/y+BHUHT1lm1xvxoYXi/h6TxzBR4n0FcnWZqx5urEDd/oIWh5M
yzR/asbS+5fZFRiPIP87Ly0PaTNm9lewZPrGEZBXMbwppW7ElgMKt5n1j6C/
SdHG+3UtpjYe+3zf8Ai2//vWzypZixUKfurvfXYE5awr2mepajGPDu2S4FdH
kGz3qIcutQZjpTtyP/P2CB5s3DpynqvGFEIJdMT+//rXD4plbauw7Fluz7HA
IzArubr8Ub4KYxSn3isNPoIiZ0/ji2xV2GTf6OD78CMwx5rjFKorMXtmlx/b
CUfAq8bX9ZGpEkuJqhSa/3ME0wJUZ8na/2LUK2nxtWVH0NQQdv5hyl/sDSGY
IbHiCEJkthqXXP5i0qNGBwZ1R9AoJb2JF/mL9bGfrBjqPAJFUYG/XyPKMbJ4
OdW2hSMIkpP5yfK2DMtWM/5vgAJH+NN+2WneoARzmDY1MqHEEbyL/tM/JV2C
3bUz/7JDhSPUWmvJmF0swYbC7VZoaXCEiL1zn86W/MHIJrwTFRhxhGGjWK3u
wmJM1zKDoYQLRyB+8o1xvrEQu0L867bCZRwBmLIvGwUUYptB+Vb93DjCdQaq
a9rqhZhXfnnLNi+O4FWjw/drrAD7he/0vC6AI6jNTaTicAUY+efdnRiEI5jT
lU2wK+RhXReOLl0n4AhMHNp/+hjysJisY2p/JHGEjiLp8KOJXEykizyz79Y/
vSLGOXeHXEyPhfU5jTyOQBfT2en8+zeWmyLV66qOIyDJ7HEjsV+Yfo13vrE5
jnDf1fqDlVsWNildatNvgSPwWV2PrNHNwoxLNgSVXuMIT+8HPTMUz8JMfj/+
KWKDIxiGO/TarGRiFnH8sST2OEKjuR39nG4m5uDU/inWA0d4+dihOFw+A8Md
kMrRf8QRfENz7kpcycCc30iQenvhCBMSmjeZyTIwt1c/nC19cIS74rM6YdXp
mLf2GxvJQByhtaxb7qNsOhb6H9OT4UgcgX6YJ8I2Pg1jylFiUY3GEaaZ9WdU
TdOwcH7XvqoYHKHh2E+lmOtpWNSlxQc/43CEtdj3xz8XpWLxtCV33yfjCEqj
OqqRvSlY9spTQabfOIJdmrZ1x+VkrCkx+YR6I47g4GSnfY0qATv0Ibb+24Qj
FOdV9yWNxmO8r3XG+VtwhAcO1ZbvcuIxD+xs6cl2HCFr/qshq1Y8Bm12dgU9
OMJp2qDW+6k/sMz9OwssEziCeLeD2dTjOCxIcbp1Yu+fnkFl6p/dGOyvoCTh
/sG/ebOyVrs7Y7BVhrCfxYc4gnBxEptwVgymOK7oHYzHE9Lx7cL5pjEYqe3v
W3dO4AlvrybY9Y1GY3Yxbrkp1HgCS+Jqz7m+KEx7gyPCkhtPcFd73O26HI5x
SPvij3jwhLJ+GXaGrHBs1n9H/yMvnsB/TcOSxzocs+ZvvBJ9DU9wKB5kLD8I
w3xMbPIahfCEd4mlpenUYVjxSE07tySecHLAvD3ufijmwi8omiOFJxicu5Qc
yxSK3XWI+Aa38IRU1aF71FNfsU4mS72Hsv/8CLMmwvZfscWHTMsuCniC2oPg
SM+0EIyl8eWp4Ud4gquOuloERzA2ztTz0kQLT9CIzyOwbwRhSSZSrZva/3gm
ioJOVgZhwifpv1I8wRM+tA/qbBkHYQrSpVziRnhCtnvNJiHrC/Y+/6xkkCWe
QL2u6TOvHogN/ch9I++NJ3wUmHb4OeaHaQ3dNyn6hCcMsrSnvij1w7rpFrT5
fPEER6IXVi8i/bBWjwtSVP54gnA5Y/81LT+s8vlHivZgPAEet7tkdn/G0vi0
YjS/4wlnFMTUvfN9sStGm4H1sXhCsBX55Vp7Xywh8rO7xA88YaflhvI7gi8W
Q1VhypqIJ4warQqJ1fpgQatXRcbS8AQ+lvMqx0c+Ye9/HdU9z8cTTCpSbejY
vbG9xa/FfQV4Allv9J7Qghf25pJghnwRniB3Ria14LcXZhFiHMRXgicYNVa6
7NzzwgztWnRXK/AExsrJv9wOH7F72PcN2xY8Ybk4Bvu95oExVcqwek7jCUTl
6Z++s7lh3MHpuxyzeMIDF98mzRVXTNiYsbNkDk+oWM6nsy1zxZTJFr23F/GE
DXYV7SEDV8xN4cuu0QaeoNR1zl8qwwVb6hzrkCEiIthXJ+390viA7cffyxg9
RkRga2W885j/A0Zm+9v7PTERYSH6zJL2iQ8Yx3kvqV+kRAQ3KWqVp7+cMXWd
GxmclESEVjY1UQt6Z6xsytH7OBMRwUXUXfvYvCPWlDtrFMVMROAraz/TV+WI
9XuqSt1kJSLcYJUgxcU6YptXLu9aXiQiVJO8vHxN2xG7YtZkNHaZiFBD7bbP
9sMBC9xmlioTIiKEcab+lxJij0XXuLM8FiEiDArW4V5p2GNpoSs7O6JEhGtZ
BVO5jPZYzc2K9Os3iQjrAyGBAxHvsENHU5ZoSSLCkX6+qVzqW+zU/c6dm9JE
hCbqIvbLFm8xenbo6L5FRKiw4xL5IPIWu1Fx1pvqDhFB+YuZRHq5HYaC7I1S
7hIRROSozjt+tMPkjaYkZeWJCI08Xjy1ynbYI1FllvF7RAQssdrwE4MdZnSy
YMdBkYhAzjpYXz1ii/0P5c+XaA==
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40944.}, {-10, 5000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.777808149314637*^9, 3.7778083620272875`*^9, 
   3.7778084925142555`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 40K", "Section",
 CellChangeTimes->{{3.7778078326561804`*^9, 3.7778078368416896`*^9}, {
  3.7778081604990797`*^9, 3.7778081605771637`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_40K.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "4000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "6000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "5000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "C1", ",", "Tm1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1000000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777807846428356*^9, 3.777807978114668*^9}, {
  3.7778081624016523`*^9, 3.777808177750555*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd0m9IU1EcxvFDiARFrPCFxKAVERIUEhYLQ2+2wsKgppSJ1JgYVqZGK8ys
Lia6KGKVmfRHlkqFGE0xMou8WZr9WytXWZlNXSERNHq1N0W15/m90IF8+PI7
95xzL853ltoLpyml9H9//8XPqcWYuAX1Y7CGrU7CfLblHKxrgkYD9F+HjkbY
xLmi3TTQwm6GXj5Xdom2wvirULsJPVfgdB/susz17TCR86EOGHeBz3fyvS7C
G7dhAuemO9DMLu+C7noYusvzzsLMe7CO38F3H05wnviAz53huT3QwXYZMMUD
kx7CLPYwO/E037uX6zi3PeI9TsEoW3PDtsdQsR19fM8TfO9+6K2FA+yiGlj5
BJYfh8kDPI8dZlvYDU95jyq+x7PJ69VzuOko7GRHdZ77gvtVQvNLrj8CA+zQ
YVjt5/0roPUV78n+wTbKuU8A+vbDVrbnAIx7DU0uuJ0dYHexvSVwzhuu3weL
2UYp7GeXcW4Z5Hw3rGBre2GQrYrh0iDfl+e5g5PXj7F1B1z1lvMCWM+27IIR
tpEHN7xjO2EL28v9/rAt7Nz3XL8DdrA17jdziM/z/J1sjesN6Xw49wN7C3Sx
DbafrWfApI9QpcEqtr4ZDst8I1zxiZ0JPWx9G/wucz5vG2bnwEbp1TAqbTJi
2D/zvtmwja1nwfgRrl8LHWx9DeyWOX8JX+Q87F8inYIekDajZ4e4nwbTpvQe
tloHG6QjPTH62Fou/CXzlXDeKPfj98xiKws8JHM7vDZl/aCsT8Z91RjP4/de
wpbvkcdWOVhfKx1Jj9E5pUeleZ9Z42wbnk+V5v9LkXQCPD8u52N9r8yXoX9K
p0JzWM7H91sfnnz/gzJPxfPN0lYYkPX8f/wt83SsX/yVvRC9VZrfs1qa+7VL
L4Aj0svhjG/sDOxnlV6ELmTr2cZf5SRMjw==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3c4198bxj8fIspKJCVRyEpUxrd4n+eDRMqqUKiMjMjMTiEzsndlZ2Rk
JWTLlr333ntvv35/net1nfPc97mfcz1/HFYtE6WXRDgc7jwxDvf/NcVIRKv3
tAHKDXZaP0Q/wPpyQP8e7i485z3POE70A0ifD+TU4lSA7JAhH6rSoXGfKCYD
pwf9m++q1OXSIaueniEeZw1XQ4/vkOqkAduNi61fce7g595j8yI+BRoLV+4l
mnrAoze4qIfGKWAt9aciY9gTCpmvWGaIpEDdE4OfFaXe4Magtx3X+B1ESp80
vAF/aJamvax+lAwDk3E/InCh8JTuqoKORRJk8VAaReWFAuOTkY0giSRwM7Xi
jDcNA/GdSYbLdEnAvysdkzYcDgz557Ye5SaCM+ViQGnpF9i9w2O/d5gAdOeY
bltADHT9t9dSEP0N8kGXORyXCJ95o244ssbBWZmfpao6iRA3Sfl9YzsWrBSP
aZ+tSQThe1wnyppj4bpWbGKobxKMKSRlKDvFwvcPg/whzN/hdsu9k68mYyCi
SlkiUDQNSmc3NMNLomG78duEUnQaZJyyUDz/JRqUu9bdaY+lQ5BKivW0TTSc
ng5o8K9Ph+M6NPOaN6KhymWKW/pqBhw+CMxwVIkCLOFyjlRhJmjbpJx+8PAr
vOaWdeVYzIS1oOd7V+i/wpd0c2VSliyQT28Pcuv6lzO3bLvyQxbYyhw512l8
gdzq52J3ZLPhl2KAsrzpZ+Cb+Vwl0ZsD1vp973RSw+EiL10PbP+CjyKsUjO2
IcA7JeLXypEHxz88qDZ6EAIisRp3dR7nQa2bzGNp1hBQOpv40z0rD6SJV4aO
1QWDy7FbAY1G+fD1SdS648VgmO1/Lqs+UgDnFPk91noCYTPUhWiR+jekTmiR
JGcFAvHD5Pz32G9QPkN0N9UrEJhqV6/Eff4NpGTHM8OxQJD/6Xps9nEhMOi3
BB0lBkDOp5Qi67oi+L4gT2bt4Q+l0s1vyHeKQOVqyrWKl/7wl3iD5/OVYjhG
ZU/6SMIfJm2xiGKXYlgoLIwjHPkBo26LFQkqAW4uChxm5wcoai+09kkp+H7W
1Azc9oF4a1ZFlcYyOBVn3pjw1AvWTE4gnokyYI+fCPBn9wJx/TXeo70yoLir
83Rs+SOMqFaSJXKVQ4GtYXuex0dgvmVQuulSDseKuTfpizwhdD/jWsjtCmik
/P13RdgDJtfDL7xSqgAnw+B7q2QeILTgfBIzqIApjbC9B73u0D7waGoipAJW
/rMXpnvnDjQl25GCqxXwY3mPqrbWDT46AVVH0h8Yf9osDmau0GPLtZ9U8gck
g/On4+66Aqc57ezbzj8ge8JQTpXZFaq0xivZjlXCtJHnVEaDCxBLeji8eV4J
u8eNrGmuusBb0ub502eqgL6W9gTpvjOYeD2vV/pQDXwLHz/MNzqC6AX5E2e+
VIOWh4HTpxRHIPuByfTkVIOUktOijYcjRLdeqH4+WQ2F2wzfeCUcoZmxv9xI
pgbuRFO8XLB+D/xJqgVu1LXQEzKdwW7pAPv/Se/IcNZCflOHEKewA9TUC4tQ
EmohgB7403bewoulM7mB5rWAj8oXvOX4FvyFOjKjO2phOqjrlESgPaz+UUwu
+FwHFAl5r3iabaFYmTDtkFMHdxiKpHvCbeHjNP8Vwt86mO/8YrWjbQuXKGi+
VR/WQWhDOv7Tjg08fNgY3a5ZD3O1N/FTXDaQM3IvbPFKA/TFiclGRlqB1aGE
+6Wcv/BszuSTUKsFZPJcz8fq/4LLNStFqRQLmFdlmXs6+hd60XZgrIsFaGXv
ywXSNEJFjqMoJmIBcvo/zxx73Qjev/jWV2LNgb2VI2GCvQnORz0w+utqBi+O
6LrxYk3wy1L/gqa2GUTwEp9gftQEK48FjEUIZkDjPvRa2bkJdqtM+n8cmML+
7TDB6sEm+KuYF5dtawqzrS5a7bLNMJjalYv2jMFjxt5eS6UZpI68B7SKjYEd
ZxG0rNUM/aeSgw6cjOHFVc0qCrtmqH2jdiLkhDF0uotx30lqhiW5orb/WF9D
mejmys9jLXAykzXcQ9sQwhL0nEKLWoBpQZnTRkgf1slHxS/UtYDtOZ4Ly0T6
oPBa/VhcZwvIX5Mp7mjSA7Kbiu7pSy2wE5+iOflKD2zKbn2qZG2FsMg65mMJ
uqDSTxm+5toKPOeDOUyuvYQs5PHUNqAVuLVFwlSJXgJVHBHTUWQrVKYFH8V0
6ECVwVbkibxWuOIq5ajooANCW8PxrLOtYI+T0qBs0YYztDkZ8nJtEEW46irn
qQXmlnzmHU/bQOZl6M0+TS1o7E66oabXBn/tmHt/39ICt6ivubqObZAldwuz
WtCEDV73QoesNuCX4hItVNaE9rtPa1LOtMNL70P5beEXEOiAGz4+1A4lMNof
r6kOj/gSuB/OtUPo3k9jZQ51oBuStYzcaoeRVvLFD3NqEAShJwRpOkCAwSpF
zloNQoj5BLUIHRBZkqjkHvQUwjzVPhbGdQC7pqFf2rgqqN7CdxzP6AAd1T8M
yRmqwDiXcPFhYQcEO9sonnJQhYj7qzkz7R0gwSChyMagCp+pPYfOkHYCf5Uf
s6iCCkQG59400+8Ey/emWZYdj+GZlPr7wjedsJbj3duR+BgubuHrjjt1whDn
mSfBdo8hWvXB88jwTsh15ceusT6GmPPjnvV1nZB6jE4y3/wRxMecGmK/2gUJ
1NQSjhwPITnNyLN3pQveJt6N365XAJZU/wdKB13ApqY7L5KiAGHfc0/VkXVD
iKUmVf5HBfBIxEXkX+yG6g/Ti1b3FEA3Juh72INukC0If/8rXB7YggvrlZO7
wXq5mrUi/wF8CRzxbczpBpLLFRKN7x8AXQDpI6nSbthr1nt5T+oBEPsq9At2
dcN7nbMiAe33YdRjfJ6OpAcMb4gbSm/KQvRbCqq2Fz1gb3BjKOTBPThrL9B6
z6gHHFjK7smduwd+tsoh5dY9ED4jm20wJQPvraKZs3x6YMKK3KzWWQaemd68
5l/YA3vxDskMxdLApKOuIH+2F0xoiRnvS92FMNnUgPqmXniVbKNwJ0wSGkMe
Hd3q74VbVTjFYiNJODa6b/h9uhdqm54rBBIkwczmwR1PfB886XKSkJuXgHvf
FrekbvRBjFjo+bU7ErB3yK9RHtIHIoLuKcrk4nD9Xk+tQFwfcG1UDAuPEUA/
2Eko5kcfxLHIJxoUEaCdp5XasaYP5k3CodCcAKmqFuViu33wkpha/eQIwLOs
n1fyNfrBVP1Zl1sogqADjSDOV/3QFmFcWfYIQZ00KT7Mqh/ufxhq8aRFIDyk
3Gvl+49bH0YV+mJAQ7HtfbOsH6r51Y9/8hOD8pe3Vn+wDQDtJ/eM4e+3gZ2x
pDBhbgCeCrSKHL8tArRZk7HiWwMQvdPVePOkCOBkqTwHiQZBdTW/qrRPGPrf
ajw+c24Qaob015cdhCFgeG/BVXoQdMi/EiKrhACXJHLx5bdBuJQdeMxfXxAW
4QUJPnMQ5NTbrBUwQejrcZ/7UjgI0Xqtctp0gpB7sutXe9sgXLtGFOpYdhNe
m1gqSBINQcaTh0PuF29Cr1CW0+XnQxCHlprR7HWoaerRK3k1BNOdadRzf67D
T328nJrVEIjNNO8NRV0HvwiFc4GfhoAprTg0Xvk63D1czCIqHILQ332intUC
0DtKv2pKMQxUgaOlUrn8cPe70mUFg2FoNVhX2XW/CqYX9ntxJsPQbpYv2il3
FSL8vgVkvhkGvml8FsuZqzBvtY0/7TgM+RP7WwffeMFPInK4I2QYhlTDlsvr
eKC7f+ar2p9hyBXizqi4wg14hcDHFHXD4F3hWXNlgwu4K0Qpi5r++Tk2/10o
54K3yb5vmfuG4XpvyPcvz7mAxUpQbWRlGHLWhB6YfeUEfWqns3oXRyA+K7tS
hfsK+DtzNzOwj4DJlc8zLgccULDR5l7DPQLuy2k1ZC0cQNHPscUlNAJW+0rn
aG05ICOpoWP+/giQdJLhGP+ywzbhbKC53Qg0sNY4GrqwgcebH5TvOkYg8/TY
3UOeS0DjExH+vW8EVCkqFntJLkFYoit718gIvLB/FX18mBWSe9XE+BdHQOvL
W1e5YFaoA7LXo6Sj0G/A8cCRmBUoKDUbpERG4forupqmvosQxHFf1QIbBT/J
5qbVsIvABMLjUZKjUCuYwxOrfBGuWlDubyuMwtsReemYNmaQ68nnSTEYha9+
5pb49gvg943Wi/rzKAhzdcg+WjgPZ0sOzojGjEJEAEfar6zzEN09HaufOAr/
qaqcCrE5D5knSwrKskch+2N1XwnJeWg1M5y1aBiFiReupSns54AO+yPTfTAK
b/hlCintz0JYpyVZzIsxmAyoZEuypIf9EJYWbd0xWD/qn42UpYcXKvXhHEZj
YPzak2yalR44u1l4Uq3HIDs+vcq4iQ7yeuof/PL5d96JeUuUjw66+lkD/xaO
AeMyu/rjXVq49bVBza98DApb1WM5O2ghUsOa7WHNv/qx5wWSGbSgO9jws7tt
DGTUFDge69HC5pB199jsGAid4Qmr7j4FZ8b+Xtg9Ow4Cpy+n29fQgF2czWQh
8zic11Dx+JxIA4Pal3+8ZxsHuX27mj03GkgYtwES/nHw/LXibC9FA0KTl7Vp
7o7DVcOumHY/alCesU3isByH8QtatcI/KCF4if3Gw5ZxYOASztCBE6CqTNvs
3zUOlNhicQrZCWAqOjRqHhgH08IZOoMWcoj92JXwYHYc6jw+pIrrkEM6u+c5
aeIJWKXPDVH2JYMatXm8mOAEZEw7PuTfJQWv8u5I+9sTUHuTJORVLSnIcVXe
LiBMwBe84HOKcFLo2PxqKSw3Ad8DDM9++I8URv3lZwT0JsCASNCX/T0J7FVn
NXOET8Cn+Zdf3JmOQTFf1OuXURPQ1CnO1bVCDM7BXifiv00ABYPoQ6dqYiDT
1pFkzZqAZwMl70YtiIHukD7vfP0ElH2U9KloJgK+m7ZRNAf/9EsajV9E4EEz
GhnvvpiESaJr1LHNh6gzrazpvN4kXNddl3/ld4ju/5YQEHs9CXfnm3XyFA6R
UOfd9fe2k8Dz+H3mSOsBoqBQsCMJmIQ9ha9j9wb2UZ71Czeaikn4uCV+x5d8
D/G5jk4J1E4Cc4zuqFDLLooL0JF52DQJ/ReS5x6G7yKfNH2KkL5JmB34aTbL
vYu0x0wDzq9PwtpkxTGThzuISt4pkoN9Cl58f/PsRP4WclEnxknzTMFbAeO7
Ee5baMfAVdNAYApo+42F/ZW30LiLJ1uq2BQYHzNry9jYRPkF/t8FlKdAXepw
PkpkE+lwxOaKuk/B8h2Joo/N66jgoLxRaWYKtJbPjchLrKKTWcden1iagoei
3YWNF1eRuq7UyfL1Kbg55BYZsL+CDhtr7wrgpuGLw6HaVO4KkohuLqVmmAYO
ywnFXL4V1CA+mNUgOQ1PjVj3bLmX0YWti4ou96ah5MD0LcXJZWScorl0W2Ea
Xid9vJrXtYRo6CZ4UtSmQVPD20ZTfQk9mpiL9zSfBtOTkSekDBfRgPtOiFT0
NFA1XHf1i5xHfKK3BQ+/TUP74rMrC7rzyHH5bdvPlGnov5Sy9vPaPLr0BEfD
/msazgswV3iUzyFd7uOexI3T0OLnHsO0MIsWG+jsS/emQe3EG78Hj2cQjpb/
+S2VGWD/rfsozmgSZRhlt7zWmIFXOX2Nz8Qm0YtqIckY7Rkgmfk250A1icre
inGRmc7Akw/jlWOZE8h56t5ah8cMEM6VmAofjCOSopfuZgUzoGLyJ0/+2xjK
ZZjZiS+dgcWByOBJ+zGka25k1F01A6cs7xe2K42hqisWiqhtBipdU8ly8GPI
I8DxPOX8DKCwN/2vtEfRCf3PP5IuzIIonlmQRWgEFZQzX+q/PAv0FVe/d58a
QYYXYoOouWchx/Nq2MDCMGpoTbK1EpqFaKWPanUJw+iTWK6EpPws3Ht3X4CZ
aRjRnG7pGnKcBe4y9p+KnIOIvpgUxzA+C+MBs6oZhr0otkTmx/DMLCQQf/bP
FO5FfGXez74vzcIHotALjMd6kdQf2iKxvVnoOfv+5NnIHmRVx2ynQzsH3LZv
wks6u1Fnp9B6JsyBrwqXKOXTLqTVbRtnLzUHoKAacJa3Cy32FCrduT8HAlTn
n7w77ESkA+KZ3SpzIChab6Yc34mExuSMj4znoKpxNo19vQOFLOlO3/86B/Zk
EREpce3o0kpy6Jm4OXDrM7WmtG9H6avzUsNJc//+//4SJUrtqGrD/JtFzhwE
nE8QpCFuR5t777Qi6udgxuhSmLJeG1ImC+2f2pmDSYbFiRWxVsTAWt3srDwP
d4nVy5wuNiOiWtlHNerzMFWAGu/sNqFF0+YuSu15GLrcF3cutwn9Ke0ZDDOZ
BykyNSrra03I/MX8fLrHPBD9VVHt4WxEDVGnyPsK5uFgnaYICTagX3dDvFnK
5oFa06nywk49il06R6NbPQ+pwXyH9kX1yBaxMay0zYOH35uinLv1iGNIiP34
wjxcOPaBeVezDjkyqxNuXFwAOl36reXUGmRYNfzHhn0BVGZqK5RtapCy8Uvp
Yp4FqBS8ns0rWYOuFhvLy4gsAHP4PGIfqEa9Gk4azxUXoHrsP/1rdNXo5tcE
W68PC6DV83J/OLgSTZ9fyRybWgC5r1eVRkbKkdurk7snFxcgNfm1o1pBObqc
zy5+c/2fv5eyPmdgOXqm/LTVBbcIR+vLmb/ulKN2v4pVdsZF8GXyCQpPL0Ol
JCE39O8tQidJmnKvTyl69ijD3k9hEZylFXYEjErRXmxdRZ7yIoTeL+ZolSlF
QnD0kFx7EewWBypmSEpRqp3+m+/2i8B/5Yd5PVEJClu69XM+dRG6uozZ2E4U
ISHs8QFd9iJMP6bIUftbiNq8Te6I5S+Cxr37DrT+hYiKO77jU+UiNMtmBe8w
FiIXHcpNvsFFoCU5uOMv8BuZ9gwJmVEvwU+Z9Toy63x0t8Ilb8NsCZ66nYwK
eJSLSvOeieVYL8FyCMXROmcuupUuUm7usATFdDW+qQc/EW/4fP2SxxJcGb2Y
cjbpJ6IxeTQ0E7UEdnd+T7TifqLec2ykg3+XQGT1h7JkWTZ6SHP48UvbEpzj
zLRJj8hGDSTd1Go9S6B+j3db+002Kln2YuweX4Id/6GKdM5sFF+1xtu6twQ9
zk0F2UFZSDh/hGuMbhk2SK5ewNllovVsOaNyhmWItiJ9O6CSiTLSf6fHnFsG
S1V+9wPBTMQdH3zjBcsyGMh4RxCvZSAmXxmxAZ5liIoS/clomoFwLzMVusSX
IVCErgI/n47qaJys602X4VCGA0+uloJyB6nipy2WYZeP4ctF1hQUm/qlmcR6
GUhrHjZnTH1H9tJ5XOCwDKG6KduY1XfE67jUl+O5DCECU4aLYcno05IGRMYu
A7fSh/KytURkVzRn9Pvb8r/5ftdHUZaIdL1sw7uT/vGX/fsVPokIuxK8Svtj
GYaUdNKNeRLR4rOGePffyxBeqkWSaJCAFBpvkZu1L0Pb8EzD8HY8Ev1SI+jT
tQygnD1t1xCPOF8pa6X0LoPvt+NEFtHxCE9q/nti+F/ex5Sn7WTiUZZY8uun
C//u85pBqTEqDtGlMbRKkK5AOoVD6Ix6LOryWo84I7ICCdmjbJR00ej61dGJ
w1srMETy18ttOgp5NzbxT4mtAO1stqNpchSCUylVvyRWIC1pMzafNwolhWiu
qsqvgPdiDy3pf5HIJqZR5rPuCsjRCpLk6X1BreKFQR8MVsDzJze177UviHc8
ecjQaAWMmaZZO7Y+o2EOV0tR8xUI2FfY+O75GUmn3o4ZcFgBcxKB3y+zIhDj
r6Tti8ErYODo/+IFQzh6oxoiQRa2AiV0/Wl/JsJQ484Hn+WIFSDt/kvtlROG
nEWfs5VFr8B/+m9P3n4YhmbL6BW0UldgZILuxOngUFTQ4JwYX7ECF2e8OPDc
IUhtVF2Za3UFRJ4dOlMFBSIqlWBi4o0VaD7Td3TOOBCV1//N6N9agYfhHynN
pAMR50/spN/BClw/RxW7dRCA1t1ZSjfJVqG34dnT50YByOfqONefi6twW9a9
gVXZHxFimbq+XloFD3O9Breb/mj9zGMXa/ZVOH0taJn3tD96iqsa5OZZBc3l
jLRbLX7oSltioL/QKlDScOvJKfihUhvDg2cPVkGtU9+1N9sHWSzEfRdRWIXf
F++WK9v4IA6tfhXah6tQvR2oLiXmg7xlH2RVqq7+m9dk3rc1n9AT5mt6vDqr
0H6K5xr3uDdarVht3rFbBaL7heXt17wQO7VdfFDSKmS+cnIYpPVAZCptt1NT
VoGJMv6X+LA7mo3kbatIX4WRgYbHp9LdUQbfEH4tZxUuh74kzN5zR6Jyks8V
y1ZBnpyj1dzTDSl9ojpH1bsKZWpbvmyMrkiwQy+TfWAVGp5wXKibd0FnL5RJ
iw3/6wclfrqh1AUNpFpYG02uwszru5xTBi5Iv6G7vW51FXR3n999UvoBvTsZ
5+t+cg2e2t4p9HNwRpoP9zmiqNYgT+VhRqayM5L8/Lg499QahCdUqbHxOyNy
HrKFCYY1GGVh5dkfc0JB917fk2RbgziX7v+05Z3Qd09hErzYGnD7FeAdbzqi
ruMNdnbGa/Cr5sSV93pvEedlV34NszW49M2YsvzaW2SDYZPozRrE6356ZL5t
j85ZZiiS2K3By3z6VAYve6Q+GsTp57oGaNjq9bOfdmikUKPz25c1uJUw0c95
wRZd7z7j7RG1Bm+07X8Oz9kg57UmgmHsGuhackvsFNggNm7xNP6kNTCXvO4h
89QG6YZyuPzOXoO34vJKSl+t0ZzZkkBL3RpcseVT1L1phUQ/JU1l/10Di84X
MW1kVsg7SfNrSPManPxTax4yYIn4htrI1DvX4HfXiz1GD0tkej9vaHJkDTj+
I4sgHXmDNjicPu1vr4FLl3vnTIwFOuqjnblyZR2KGV+u56iZIce6eQ9p7nX4
TKnM+FfIDOHyqzgNrq6DhbzPzxu0/zjETv/7jXXw9ZrKn6k1RXiF0SleWIdM
yWzyKVFTRPwnc1LgyTqQuufUCWsaI5csLzcl9X/6kc4O0SzG6FjMSw6L5+vA
qqbmEjD8Gh17x6ib83IdgqMzcVRarxGJiNOEkPk/PWukLmFohI6nKozf9loH
nUwzv5zgV8gjgttF3WcdLpCUNfNpvEJknsfYHPzXQb3PQYyV/R/r5mkXh65D
fI1a9KtcA0TOwjIG8evwhEKS+c2gPjoZtDRyp2gdOJSPy3yS0EPUb32G5JfW
oZL11rFwNR00LZY9orm6DmXcdAeMAjqo/KhrzGJjHZRkXVPWSHXQmw+s06F7
6/DYbudOerY26v2Yszx0fAOsbsX48J7SRvHhvXhTlg347avGlt2nid6pHRE7
X96AbYqVYcNcTaRygY00iGMDKPFlxub+muhEzOsTebwbYD4fZakrrYlMknCn
cf9twNJWT3F3/gt06xcHm5/iBhRfGmsoevQc0dnKcsQ+2gDZfOca5dPP0cIt
U84clQ3oyw67Z9P6DEUX5/N2a2zAmuQHUwWlZ4ik6r4gy6sN2Ho8lSSkqoGa
282lMpw3wG1sRnnBXg3prhbrN2dvQNjb2gtkTKoozV3CMy13A+YlK36dXlBB
60w1yR/zNyCz+eofu2IV9OFuy6xkyQZUcsq+VtVSQdFfxozy6zbAVSetF0tX
Rj1SZGaxI//q477CZeXHiKXf2//9+AYc9LC9CuZ9jPTNTmWpT23AwIN3TqrE
j9Hm53NrZxY2QJhd91hT5iNEu8Jr6bW9AWSpw/pGtI/Q/c+Ktm+oN+Hv8drZ
8RElFMjfGa5IuwkZO6uRzEVKqLfyaQEf/SZkpRKvRoUpIYNl7b3pc5tQUrp1
11pBCbndsXLQ4NiEfqKdbIMKRVS6FOEkJbYJHlevrk7/VEA3JMc9zxpugq6z
j05J4AP0PdUz6IbxJszK9BXef/wAsdBfi5Iz24SQF2mLGgwPENWkbY6L9b99
swT341/vo1l36qHlD5vwkdCW8iRdFkXX37pZ+2UT6hKk5k5NyyCGm8PYeNQm
2B1RiD/PlEE+X1xljmI34WrWa3oWexn09nXzM8HkTVh9mqKzTS2DVKh1PWN+
bkLzXVfrGUwaUT30H7Rt3IT8i2OaRJlSyPW30ExQyya45Ha/Y3SSQvuX+9d+
tG9C9IMnFcGKUmhmnYN8svdfvgAL44K1O+hPSOENpalN+JLM9fyr6B1k3zvl
wY3bgi2y6maGYQk0rYnd6BPYglvjsRTf9Ano71cJ9bKbW0B/6feSkhQBZfVI
uyYKbwHxwMO3kmwEZK/4sMtCbAvYFuwclocBURH07SlktoBGZbRGQwPQDZaA
CrEXW8DjQbgs+gdDZ9VD5y9rb0GxvdrrIHcM7Yd+oT+huwUBr6pkdWQxVEWd
qNdpuAWLv7TP6rWLIdWj3ydNrLdgrsA4fGhOFL0bnHgY7bMFkwc9kl3XbiOt
c3Nv3fy34L9CtuvY7i10V3n5m1HQFqhfIqujqryFaBp3t0QitoDMbTF/Ru0W
iiui/tLybQtcJX4Jmvr8h2q+/DdOVLQF7WU9/qdIRdBptU9vXs5twaj6e8kP
twSRwquBI9HFLehYAjf7U4LIx/aqF93KFsCQPX3F9E10IuxvTMXmFtj4GuWJ
hd1ERB2UTaxE2/Dp1UpQ8+4NtCznwzV4dhvePiZ9O//3OuJ7Npjz8/w2DAw0
3AxKvo6MXvPBJ+Z/TFnM6+x6HU15NSqLsm2D4BuaQj7sOhqsoXKJuLYNerGH
xb+zBFCDuO+gstQ2iDC+bbiRxI9OKA0Z8Mlsw9qEMzGRBz+S1ry2QXJ/G27K
XnpDpc+PKt43nfypuA15evhLw5z8qKCQ+r/TGtuQvc/zIfvpNZQk5BfYZLEN
S7de7Dk7X0Wu3P7S0jHbIH+pq7P9MjdapSAq1ojfhm9nPjaSLnChF0vmNywS
twHXaZuWksuFbuU8Yo5M24adOYPn92S50LLY2fW1/G3gTQv/WWbLidQVo6Ki
WrcBWU+/bZrlQHU3aOh/dmwD10TTtYoCDiR8xuljXfc2hN14FXXeiwPR9mlZ
bgxug3BftMEWLweq1uGQlZ3bhj/SXvsSluzouk3a5ibxDvxS7+ZxYmBD0U+Z
jSiO78D71FJVzYXLiFLMd4T1xA44fFroDK+4jKbxZg33aXZAKHNpjMbsMvrq
dTM2lmkH3GnqnxE3X0JkUb8fyAnugHWuUtjzr6xosLI2/pvuDsQcvXfuHmVG
+fYRIm4GO9BZsiFukMCMggQMG3SNdiBSu1/C9BUzkv1KsX7FfAfcZv4zHFi7
gPLeyEt8d9iBdK+rpucpLqCAyx0j6UE7QHz4ZEVH8Tx63fPN0jd0B2o2MPKV
8+eRtK8VuWnEDkz+ksubmDyHjnYZBASi/9ULjn8neXcOGbU+dcxO+cds3iPk
mYxIymmYOa/8n7/Zq482XGcRq3BmVljlDrSxmDgI7DKg/XknKduaHThd8XxV
qp4BZateNr7VuAOy8s98XYwZEAu/blFhzw4sv2NnEc4/g3YH59TKlndAunbj
0egzepQuuhVWx7wLS2kmkz2TtCi/cvrMDOsu+D+UEawspkV/5HqDjrPvQsyN
IieSUFrU+6LIT5JnF45bUUs6S9MiEtcPHsXCu/BuzYP+yY9TSP0vtU2Wwi6Q
e2PDE140SE8Zv9n8cBcUA5kKm/RpkPnQqsWS8i7o3zU9JJaiQR4rHSa8Gv/0
o/JABk+Dsum/6CUY7EL8CAoz3KRCJ55xqkQ478LWX6Z7V7YpEP0UY0ee6y5M
BZ+1yy+gQCymJx92eeyCZp3G/F8HCiTkvChH57sLlY6CMrYkFEgzIUfK5/Mu
dNGKixWeO4nyFkHIOWcXnjcInqVUJ0cv3z+hfzW5C+vOTSyMN0jRYN/3zIcz
u3Cb8aUI63FSpCyy/0BsfhfSS9VeOvaRIOmVSDea1V3geN4jR3AlQdza41u5
B7vwmk+ks6D/GFqWMuklpt+Dgfzk+P0IYmQQV2q1wLAH9o/GTnG+IUajR6dO
d53bg5QnT/SiHxCjtrwc2e8se5BfMvjKEk+Mcrl3CxV49+AONZlltBERekvl
GvVVYg8WJ8ee2Cvg0carztvuUnuw8GtOj58Pj4yrr3SbyuzB1hNbTS4KPHru
WEcjKb8HRWTnDsdrcEh8ldp59uke/GRe1XtzB4fIOiN0hM334HNRDBwPPsQC
v2ZwtUTvgc28izQH0R6m8/c+Z2rcHtzlqgrO/ruLCR1Mc7gn7EFnl3dhQvgu
1qvOyiaWugeTBDKn39d3sUtMAczJv/Yg+kZyjKfBDpYRYXHaqXEPrmuMT9DO
bGHOddS06i17wNN+Tya+YAt7tJtCI9y+B5KF77p8vbewrSfjlAs9e5BugvLN
BbYwjPEx2ZOJPcj541n86P0m9jdU6IB/fw82NTiNtrg3sMjq1r2TR3uwYeSJ
9eM3MNMt491J/D4EuZwcp+lZx+hUEre+HN8HzYgAMT2PdUz9zNlVstP7cKll
/P2v2TVsNmhncphrH+ysWZN0ilax4wGFzX4q++DD3ld/IXQZIwu2zU9+ug9t
5IsBfG+WsRNhQrHlGvsgGT0+46G4jFFEZlisa++DfDjnAAPlMkb7Pf6Mquk+
SO8QmzBRL2HM5d7qFz334Un7LfNftAsYS6XMHRHvfVi7Rbj+vmMeY60h5VP0
3YfzKaF91WHzGFuj45Fz8D4cxsWmd7HMY9y9b2InY/ZhiFtIoF1oDhNcVZ9O
K9gHm+taQc9sZzChDcaWqqJ9eH5vxqhAYgYT2e7MHyrdhxMDlv+5U81gtw4V
vE5V70OLB/+OybdpDE7c4bNs24eIxgZPne4p7P6lq29E5/eBORK6TytNYtpK
B0d1Fw5gJa+gNM9nDGvlPHf8B8sBdNXom0jpj2HiR0JUgZcPIMtMKeui+BjG
kmrKpMZ1ADKHP+KyNkexQZJxkbmbB+C+MXj7nvYopppfZ3by/gE0B6oy/ZEZ
wap9p2yW5A7gkh1JT/WVEUxI95hjm+IBWLT06lCRjmD0pzGfzyoH0H/8+4Bm
xTDWapT5nUf7AHQ/BQnSEYax+yxhY7J2B9CO03Yy8xvEfm/mzF5zOIDQjDuU
6o8GMe6/LSunHQ8gvUU5t/DsIEZudxLX73oAC4/Iy/pjB7CqtndMRv4HUH13
qvxdYT8G7i8feycdQEiWzRuPY32Y4OL16obOA1gNfDu8PdKFtYea5i32HEAl
fs+N6UcXZk5IT6YZOIDRGz8cUt92YRlBXN6Pxg7gqfNeOSVjF8Z7m0Wxf+kA
EmrcZguVOzE2D8q+ObJD+FJPlEY50Y5VCMg2UFIcQjgd3wOfvHZMq8+j6Br1
Ibxats947d2ORfMdi7agPwS7oLWIO4Lt2PmOXZ091kMwCP/9WNKrDaO9NL14
4vYhTHkX6XXcbcUy69mHebFDaLvmdnOKpRVTsNRukSMcghzSmpHdbcF8agaz
A+4ewtKB372T6S0YuUmHzblHh6C6h9uSY2zBcIXlRNyvD6FlOZ4ofb8JW3r8
9YxM1CE4FvBXCuzXY9Ot7K/UYw9hmLi+Lq2sHhuWTy8y+XYI5sfruePd67Fm
mRKdkJRDeNJYuL9HV49liI1kjf06hHGWQhNRwTrMlJ1d/l3zIQSsThnxeNVg
+rFpsf5th1B7xjK6R6UGe3FRaDO+8xBEu99fWmOrwRQY736t7z+EdwEvA3RK
qzF+SoO5szOHwKMcTc61X4Utr6e6Z+OPwEmjTtfBrRKbNhPsqzp2BIubeDH7
J5XY8GIRX+/xI3j0xPFaF28l1jzd2IGjOoKJwb8qCe1/sIz+5cty545geV41
yJvzD2b652bp9PUjCCa9Wt8+XI4tBxZuX9A5grxkJk5nn1JMeTz+1b7uEbje
ex9907gUK7z5qb/X4AjYty5e5JArxTw6NEpDTY7gdCa/5B+qUuwiw5H7Kfsj
6LpnPlvCXoLJRRAYSAKOIKHu5mP1+0VYziyX51jQEchEeFddP12EnbtNu1cW
egS2+wnFNr2F2GTf6OC7r0dwxsFoUP5VIeZwwSVhO+kIrEi0rU/7/sZSo6sE
50uOYEVI9+qt+XyMdiU9sa78CNLq64IT8vMxG0IoY3LlEZgi7xRL93xMclTv
4GX9EVxfcxkUYcvH+i6TVw51HoEkmcUPTCsPO5Eo+6ht4V/+G6w0iUu5WI6y
/n8DlDgCcyVFALdsDvZ+2kjPkBpHYG3ERyKWHOyenVnwDg2OwEge8/rHRjY2
9NVuhZ4ORzAl//bkS0w2dmLCO1nuHI4QuXWnNuQgC3thkclYyoEj7DlHChhX
ZmI8JLl35ThxhK2Y0MHuqExsM6TAsp8LR1gVZDseaJeJeRVUtGzz4ghpsXs8
a/yZWC6+01PgBo7w12swTyEmA6Pw292JRTjCUORe08zFH1gX69EVAQKOoPRV
ZvnMYDoWm02sXCKOIywcudxp+pKOCXdRZPXdwRFyisO2+s+nY1rMF1/R3ccR
3hEzDt1nScPyUiV6XVVxhN+6y6GehBRMp9a7QN8MRzg22FIrPpiITUqWWfeb
4wgDP3yVLv5IxPRLN24qvMERwgfW11QdEzHDX89+CFvjCNvMP2KHLydi5t/4
40kdcIQQgY/zV00SsPdO7Z/iPXCE08kBYRxnvmG4AzLZsx9xhJIF8Q9O8/GY
s40YmbcXjlDKcSqNryIeczNJcLbwwRFub3oLOpjFY94aNtbiQThC3AXZ+J6W
OCziPybN4Sgc4UzcbSmymFiM6acC86MYHKE5SiFF7G0s9pXfta86FkcY/C89
/7dKLBZ9ZfHxj284QsY19WBf6lgskb703rsUHIHvU26fm3MMlrOifZPpF44Q
Ovag/LZlNNaUnHJctfGfX3HDeUO6r9ihD4nVnyYcwatL8wdT/xeM983zcf4W
HMG9V1jmdvwXzAM7XUbejiPILnRJFgp+waDNzu53zz/9ucOkXI3PWNa+zALz
BI5wYXsyur80HBseiVPzmsQRDMl3KI58wjGq6oParSkc4X1iOqmzRjhm6J+Z
0DyLI+zzReYl7IVhbByML5yXcQRcteq+smgYFiI/3TqxhyP87BXJyG0Mwf7c
FCcoHeAIJ7W7VD/FhmCrjF9+FB/iCHS76R/yrUIw+XF571A8ntB45Vg9NUsI
Rmb7647McTzBoP63UqxVMGYX65aXSosn4OfpOtqvB2EaG2yRFlx4gml/7Ljq
mD/GJumLP+LGE7jNBmeqi/yx2YAdnY+8eMLpsHdtrmH+mBV/I0/MNTxBPMWv
eE7OH/MxtM5vFMQTuMo3uORK/LDikdp2LnE8oXf/enKVmi/mwn9T5KcEnvB5
P/DXHKMvdu995Ge4gye81Dl++nO3D9bJZKGlIo0nUC+VcQWp+GCLKkzLLnJ4
wvW6y4nNap8w5kbjk8NP8QTVjmvrjm+9sHGmHmNDdTyhAm2VVYt7Yd8NJVo3
NfCEjrL9GndyL0yI/Gw4pSaeYLzm/tEk7CMmJ1nGcVsPTxiWP+5W/tsTe1dw
WjzEAk/YXf6rEMvggQ0l5Nnc98YTck+b2VMyu2LqQ0qGRZ/whLfdsklJ6y5Y
N8OCBp8vnsC63LQdVO+CtXqwStAE4AmhqM/zmZ0LVvXqI2V7KJ5wcWVAKb7v
A5bOpx6rFocnRK9zh1imOmM8eptBDfF4ggr8R97n7owlRfm5iyXgCb5p/4l6
aDtjsTSVRheT8QST7oCMX+edsZDVq8Jj6XjCkRFFjpqvE/Yu96j+VcG/fp26
81X8gyO2txhe3PcbT5DSyTYe13LEbK7czLxfhCeUJLpmVYo7YuZh+iF8pXiC
zFhLtCSxI6Zr1/JitRJP+ECcYf6A6j32AIvbsG3BE9zyVDqv3HTAmKqkLnpO
4wlUH45oiNpsMa7QjF22WTyhPC8xzi3CFhPSP9dZOvfvfcPDS9y0bDHFE4ve
24t4wjg2or6xZoO5yQXv6m3gCfS9/ddMmGywpc6xDikiIsJByI2v685W2H7i
g8xRYiKCSXUQaZ6iFXbC9pf3OxIiwvsAHZYpFiuM7byXRC4ZESFU/Fq+S6kl
pvr8eiY7NRGhUuvurfhjllj5lKP3MSYiwpYNUUZGlAXWlDerF32BiCBFr4qr
fGOB9Xs+khC9SET4NpbML3zPAtvk4dy1uEREkAgvOBDYNMd4TJv0xjiJCPRn
xMUNlcyxoO0LEuWCRIT+Z6dqCOfNsJhad+ZnwkQE0o27wV0bplh6xMrOjggR
wYXuh3BJsylWK1qZISBKRLgsnSTg5G6KHToaMceIExHm6Eu8bVdMsJNKnTui
kkSEaKXY/c8pJtjZy9DRfYeI4BqncVtF1wS7Xnnam0aGiDASoLoUMGCMoRAH
vdR7RITHVtnNNBHG2H29KXHp+0SEP+40Ty6pGGNPRRSZxx8QEYLL3t2pojPG
9Mh/77yXJyLwWzQ93mt9jf0PE7402Q==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 45864.}, {-10, 5000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7778079099686785`*^9, 3.777807978426996*^9}, {
   3.7778081709365454`*^9, 3.7778081781252317`*^9}, 3.7778083622786193`*^9, 
   3.7778084926079865`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "5000"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"5", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"5", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 
   3.7773605967737846`*^9}, {3.7778079905782056`*^9, 3.777808062886483*^9}, {
   3.7778081682340183`*^9, 3.7778081831236725`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "3756.526439753671`", "67.89478925258409`", "55.32864128613076`", 
      "2.9347222296539316`*^-90"},
     {"Tm", "6497.766590082599`", "166.97162180100318`", 
      "38.915394843721636`", "4.460078229917162`*^-72"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778081833747644`*^9, 3.777808362325488*^9, 
   3.7778084927329535`*^9}],

Cell[BoxData["0.9796468169286293`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778081833747644`*^9, 3.777808362325488*^9, 
   3.7778084927641964`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd0m9IU1EcxvFDiARFrPCFxKAVERIUEhYLQ2+2wsKgppSJ1JgYVqZGK8ys
Lia6KGKVmfRHlkqFGE0xMou8WZr9WytXWZlNXSERNHq1N0W15/m90IF8+PI7
95xzL853ltoLpyml9H9//8XPqcWYuAX1Y7CGrU7CfLblHKxrgkYD9F+HjkbY
xLmi3TTQwm6GXj5Xdom2wvirULsJPVfgdB/susz17TCR86EOGHeBz3fyvS7C
G7dhAuemO9DMLu+C7noYusvzzsLMe7CO38F3H05wnviAz53huT3QwXYZMMUD
kx7CLPYwO/E037uX6zi3PeI9TsEoW3PDtsdQsR19fM8TfO9+6K2FA+yiGlj5
BJYfh8kDPI8dZlvYDU95jyq+x7PJ69VzuOko7GRHdZ77gvtVQvNLrj8CA+zQ
YVjt5/0roPUV78n+wTbKuU8A+vbDVrbnAIx7DU0uuJ0dYHexvSVwzhuu3weL
2UYp7GeXcW4Z5Hw3rGBre2GQrYrh0iDfl+e5g5PXj7F1B1z1lvMCWM+27IIR
tpEHN7xjO2EL28v9/rAt7Nz3XL8DdrA17jdziM/z/J1sjesN6Xw49wN7C3Sx
DbafrWfApI9QpcEqtr4ZDst8I1zxiZ0JPWx9G/wucz5vG2bnwEbp1TAqbTJi
2D/zvtmwja1nwfgRrl8LHWx9DeyWOX8JX+Q87F8inYIekDajZ4e4nwbTpvQe
tloHG6QjPTH62Fou/CXzlXDeKPfj98xiKws8JHM7vDZl/aCsT8Z91RjP4/de
wpbvkcdWOVhfKx1Jj9E5pUeleZ9Z42wbnk+V5v9LkXQCPD8u52N9r8yXoX9K
p0JzWM7H91sfnnz/gzJPxfPN0lYYkPX8f/wt83SsX/yVvRC9VZrfs1qa+7VL
L4Aj0svhjG/sDOxnlV6ELmTr2cZf5SRMjw==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3c0198fxz8fIzuSnWTvRGbD+74+kVkiJdkjM2WVIooiRIVKiIyIZCfr
a2fvvbP33nv8+v1z73mex733PF/3nvO658llZn/TggiHw+X+G/4//7STM+s7
aYMcpANiqe+mwhOekIE9nDJ8cIu+Q8WbCseM/2bX4u4AOwtvrc1SCjTtE8Vm
4Kyg9NkpUQXfFMiqZ2SOxz2BhzfGbt3+7yfwSp5pi8L5AjH+y1lLqWT4O/kt
PQL3GVynZowXLBIhS4TGLjrvM6jpRx8kX0qE1w4ugvEOYSAqbryYfSIRxHdV
YlOHw2H3fnDcz+Lv8JJmMaS0NBK27AeeM7J/BwY29kvOEAsqpSQ2VuPxkA+W
HOG4REi8fNUvNDEOWFR/l+reSwTLK1nf6F/FgYsWiTlLTSIwJR/KdRnFwXmz
uMTP75Ng/nh8nARzHCS/GhQP5UiGV9XhVsIBsRBRpaPw4XIqJH45V5f2Iga2
mxImbsakwrj1iIy5cQzodK/70pOkgfyzhj4dFAMnp0MaguvTYCP7Y/baUTRU
eU8Jq5zNgFWJgo4r5NGAfefJVirMBD/ldzUc56LggbC6D/9iJmyMSAUfbkRC
ZJqTzjHOLNjUqhbRKIqE3Zyy7cpXWTDyt8vuwvVIyKk2lr+q/gt0x7NDBZ2+
gNjMlyqFvmxwl3X9ktUcDmdEGXphOxe6u8d4aTtCQXRKLqiNPw+E6pt5tZND
QS7OUPne7TxQFj3mOOYZCjdZEn/7ZuUB34pR2aRYKHiTXAxpssuHrLvumM27
TzA7YKxuMFIAYz3qhdN6HyH77c+iJ3VF0PWtZ0KPPwRKVVoeUewUAfuHD96i
pCHQSLwh8kWgGFiOQhoujgfDpCsWUexdDERVQVFU34KB1bLVhRSVgKjynLYT
TzCg6L3PtXdL4dR6C9uWWBDEP+HSutNUBqSNx6YuDATCmj0lEpkoAx6V7Onn
SYFwxXpN9GivDAJ5Cr5xPg6EEd1K8kShckhWE0p7QhsIHBdtSje9y6GDquKc
mUoAfN7POBd66Q/8tf/wKKrOH954wfHOpApQU51Re0PtC72uQvtJJRVwQUV6
4sLYaxB0op9176qAB3xn3koWvIYqs/FKXpJKeGVbs0Zk8xqIFf08HhlXgqcZ
cRtxnQ+4H2uZP8lUBS6+xY84wr3BPsC4/uarakhmTa2xsX4Jl0/foGSKrIbq
pt2uWMWXQJ6OqfZmV4NQvrrTGa6XENN2utp4shrYT12QmunzghbWgXI71RqI
vcxukKTlBeJJugWvaWuh4xyVzD11T9i/oLKjKlgLeWz3JnNFPKGmXlaOhlAL
vSVhAqrUnmCyxJTzwakW5OSiDhQjX0CwTGdmTGctHPfbV1T+8RxWK7R+FHyp
A7LdcIutHnco1iFMe2TXgeqd/ODxGHd4My0uQGj8x7uiCzEbd+CmpkuoPqyD
OduZUpm9Z6Ct3RTTYVoPzeXT/3HwPoPsEbWwRYEG4KFQNTjt7wouhwq+3NmN
8DBRzCAiwgUyRc7nY/WNIP2G1izU0QXmdTnn9EYbAcfj3jGg4gJmv/Y1PtA1
gWRayZjS9mPQsP7NRPKgCW6ejeT20nsMfG383yf4muFz/asxdtFHMNvmbdah
3gK2l1jOh+KcwG/m2TOzOy2gJ6tfMTfkCHw454/LZi3A//hVpHuJI5icNa2i
dmsBuVo6R40XjtDlKy98NakF4nBGzIl4Ryi7vLnym6QV0uVvCrbROUDYdyuv
z0Wt8Pz6Om1Vih2sU4xeOV3XCrojyaxWj+xA84EBybeuVhAUy1h3uWwH5FJa
vmlLrVBsN5s31HgfnpZdfFvJ1QZMJgvHizds4c4ATfiaTxu849Od3tK1gSzk
p+ca0gZSCx/ceARs4Pg3Ivajr21g8FeGKHPDGqpstr5S5rWBQPHI8uIHa5DZ
Go7nmm0DMjalsJEOK2Ciz864odEOg/qTfHhrS3B6LObUqdcOAtejV9YvWUJT
T5KkvlU7KA2230J0lvA6OirH0vMf92S82JlvARuivoUeWe1Q0G8puUZnAR3K
ejU/mTqg4nfvN5smc/jggRsmG+oAazeDFZqXpnBL7Luw9lwH/MrNnr1iYgoM
Q+qPv251gIl90+l8zBQ+wmdKabpOOKiKv2i1bwKhxGLSZoROIGxJVha6mUCY
v/6bwm+dMLxzJrma1Bh0L+I7yTI6YYg2p3+y1ghY576f0S7sBGNzgRjXd0YQ
cW01e6ajE17qHlpushjBF1r/IaZjXVAhlLwkJWkIXz/lSDlad0EeFZ8xlbs+
GCkZvCh81AWOWfkVh0r6cGYLX0fm1QXV1kPvdOn1IUb3uvHX8C7YxrVfupys
B7Gnxv3r67rglNBQbtrgXYiPPTHEd7Yb5JnvrkTc1YUfqXb+fSvdwKVv4Z8W
chs4U4Kv3zzoBt3zrl0d929DWHLOiTryHjBi+MRGuHob/BJxEflnesCQUBs0
s30LLGM/Jodd7wF1qp/xdua3gPdTYb3Ojx5IHnXKb1XUhhh36uPtJr0A+/U3
N6S1gOWZRJuaXS8Y/5XP2WTSgiBXndDyJ73gF7I/e25bE164xHBkveuFOxw4
WZX/NMHIQepccGEvZCU1vyZV1AT2ewaaN1j6IH7dz6qoWAPC1FNC6pv7YKqW
3IHJRR2aQm8dXRzoA8sxVT43UAeS0f37ydN94Oti/UqJSh0cn16/6o/vB8KD
15RMcWqglrC4pSTZD9cyuq+5dajC3qG4YXloPyzeX+1NUVeB82q9tRLf+iGr
kykZY1cB609eMrHp/fBkwZX+7IIydIi00XrW9AMervexBylDiq5zufxuPygy
7HdJ9SmBUdZvgXzDAWC2eWOX/vwqfDww/ChoOwBf+ec28m5dhTqVY/gwlwGo
ubNtyyByFWSHdPpc3g9AXndEeHGPItBRbwdKlQ0AR5led5OsIpRbXFxN5/0L
2R6VAndJFICPtaTw+9xfiEnI+MvdDkCfNRl3ZesvcOsrsjzJBsCpH/cfJBqE
H3jjy8ShAAPuhreZ2AZBy18suewuQMjw3oKPyiAk+Norh1UjwCXJnbFIGASy
Azspb2IM+mSyvHiMh+BOlEm6duVFqGnutSqxHQIWe2m11x8vwm9rvIa+yxCs
abEOnLh3EYIiNNk+vB0CNW4PQwmSi6B8uJhFVDgEx/5bM/VUuQB9o4yrDtTD
8PsEm2vXsCwoJ9/k0bQZBkErkQf616TB4fR+H85+GG5dcmtU45eGiKCEkMxH
w/CuNU36OU4a5l228Sc9h6EoSlUu/bcUBCl8He4MHYZzL/cXRXmkoGdgJkq/
YhjuPnRnl6CUBGtaLxarMyMQ8WC48DapBAS/FG5h5huBoxwa0dlJcSjYaPet
ER4Bxvc2O9k14kA9wL8lJDMCOP804flAcchIauicvzYCIXfPO3Yxi8M2geWD
k9sIxBioUYU8FAO/R+k0zztHwF9jRMtFSgTo3kWEJ/ePwIotr2D+kTCEJfrw
dY+MQMHZZ5fM6oXhR5++vPjiCAj7sBKNmwtDHZA/GD02Csmp7iVB4UJATWPa
oCQ3CjQS8gozTILwkf+arjM2CsbT52RlpgWAHWTHoxVHIdF7JetvvgCcdabZ
39YchVQ6aZ8LRgKg0Zsv8tNmFF4kjv0+8ZMfghLoA2i/jMJq7LM3mbf4gKXk
gOly7Ci4fXjz9o4IH8T0TMdZJ46CdLtJwXUiPsikKiko+zUKcuzrvIKZvNDm
eH/WuWEUzmMn/bzpeYEBq1DtORiF12S/Qu+OcUNY12PyWJMxMHCOfPI1nxP2
QzlbzS3H4C4UJ+p/4QSTO/Xh/HZjoMWgHXbDgxMEezhFUp6MAd9ZlXN9BE7I
662/nvtuDFqeDTIMRZyB7gGuD42FY/D479ny9wOngWms8fQuyziksXAKOiax
gdu3p5OFHOOgofEiWPopGwya86S/4B2HOx6hSEuFDb6PPwVS8XEID3m0FjDD
CjKTPOZ0yuPQ1vGr4OAcK+jMuCbxPx6Hak9jfY0GZvi0xCep3ToO/rkCOzkY
I+jq0LcEd49DpynbG1pGRmAvOrRr+TsO5OO6VflzDBD3pvv79dlx+PnWuQwX
wQBpfP5sKsQTYKtqGKC8exJq9Ofx8tITMBXsEXW+lh4Cynu+Prs0AT1PzzoZ
xtODhlDlpQLCBCifP/+85QU9dG5GPZbVmADjwtVjb2XpYTT4xoyE1T/NGROn
mXwC9qqzWvjDJ0A7jJAeEEkHxWLRDyyiJ4DMpXp25xkdvPwUQBmfMAHHZirx
Sfp0QG5+T5ErawIC+bSbyk7RAcMhY96p+glYn6fpKZSnBTEp12i6gwkYq+eU
+G5CA6Yx6OGuyST0rknpCuxSQFdqWfMpq0ngtde4wF9DAdf+U5CQfzAJDpnF
+j6hFCDTpbz+wnUSPM+Pe5pKUQA1taYbacgknBV7YuzxiBzynpi8pvszCa4X
1R8nkZKBmM/olETtJBB9PhFwp/cYfAu5p6rdPAnBBgxL+qnH4F2qNXVo/yS4
3ZOhN9M5BuZjDiGn1ifBINqY/WYKKRy/4fWVn28K/GNbpmWtSMDbgBinIjIF
iFIpcAWRwI6Nj6mNxBRoyhfWbrKQwLi3P2+K/BQ8VvzeOFJPDPkFwckSOlOg
EMilLSxNDPf443Iu+07BF8feSCpGIig4KG+6OTMFgjuRQS7HcECVRfKAcmkK
FjQlmozbj5CBpRJV+foUyP7Rar8QcYQOm2qVJXDTMHz2BJ5L6AgpxLSU0jJP
Q6cZ8XKi+iFquDKY1aA4DS/vCj/Yj9tHf313QpVipkHNx2qPK3QHiV2+JH2Y
MA0DSWc4xK13kOeye/vvn9Pw3RiVBV3cQdx3cXR8udPQFi58QXl4G1kKk/kT
N03DZnnK/tNz22ixgeFZ6d40qNO0+DsPbCIcvbjxxTszcOmux3nGB+sow+5X
6wPDGTh77OFpzavryKRaRjHWfAb0Oqif9JxeR2Xu8kLkDjOg4/yQvbl5Db2c
Ulvr9JsBVlexXQXZNURaZOHrWDADybVzO40nV1EO88xOfOkMRPgMhn5ZXkGW
TnZ2PVUz8IKC97/UxhVUJeCshdpnYIZoyzvKbwX5hXieopmfAdyLG5WR+BVE
af0lPen0LJSpHf29dbSECso5uAd4ZmFUcBvIy5bQ/dNxH2mFZ+Fy9IllqVdL
qKEtydVFZhZWGqtebZIvobfyOQqKN2Zhx2CZHc+2iOhOtnYPec5CsLzmj4da
84ix+BiOeXwWntCrzXTRzqC4EtX04ZlZ6P2V66EyOo3EygKNkpdmYfHL+xHq
39NIqYK+SH5vFhzeORUH6E8jlzoOt3v0cxDykytcK2UKdXXJrGfCHMh5vIh4
YTCJQpcsp69FzYEsW5VE4toY4l758Znp2xwMVdwtNGseQ2mr80rDSXMgtlQn
afJzDFVtOCU4Z89BUmQ15Zl7Y2hz77lZRP0cFH4hc47uGUU65J8Hpnbm4EG/
ZqZS4whi5qpueakzD3pSVEw2FUOIqFb9Vo3BPHC766X3+wyhRYeWbhrzefAn
s3xUqzyEKkp7B8Ps50F9xi6fvnEQOZnMz6f5zYNjM/70lb9/UUP0CYr+gnkI
Di1PUD05gHKVQwM5y+bBhrHjKn6gH8UtsdFZVs8D3DhdxpfQj1wRL/NK+zyw
PghfyZTrR/xDMnxkC/MweyvpXOm9PuTJYUCQPLMAVDW+5PiWHnS/arjiKd8C
XBI8ZsUX3YN0HlqoFIsswNo3lt0fD3vQ2eKHN1Tl/vGt9NqW4z2oz9DL0Fhr
AaqFvmR6ancjqajvrgGvFuDMDxrD+oVONH1qJXNsagGMAozfmJi2o9e2VLtU
iwugVClsPH2pHfHk812RWl8Axl8CCXlM7chIR6/NG7cIjzLf3BZvbEMdQX9W
+VgXYYU3QO6BfBsqJQ2VtFZbhLbvc9OJwq3I6FbGsyDNRXisfHj/CUUr2our
+5OnswhmY1OsvtMtSAaOtCnMF+GU2doxi8QWlOJm/Sj52SLYukw00Qi2oLCl
i7/nUxahr201Q8emCclgtw8Yfi0CW2vXnzdiTag90P6qfP4iEEklvBJfb0TH
heM731Yuwq35d5GNno3I+x7NptjgIqhb5wTLRDcgh94hGUfaJYh/TVtGtVyH
lP945204LoGo7C+f2wPVqDTPSD77yRKwkO45qWZWo4tpcuVOHktgvBpNEfC6
GomGz9cv+S0B+++3xBsS1YjO/tbQTPQSmLvlMdwOrEJ9bLzHBhv/nWf7UqBF
oxLJ5o8IjTEsw98lThYZsj9o/ZeGXTnzMriuP58bGS9HGWn/pcWyLYPOekJq
fXk5Eo7/JGnCuQxJuUJw50U5Yn+vKv9XZBn4BBtDr+yVIZxFpmb3lWVY+dl8
k/qwFNXReT2pd1iG4pY4W9W7xShn8Hj8tPMyFPAMkq6cLkZxKZEtpE+WoTdh
LYV6rAg9U8kTAo9/6zfyPkY+LEKinkv92f7L8HLupsWxgEL0dulf5olbBkkR
vJliTwFyK5qz+y9hGfragbbqWwGyDHAN70laht9tRmZp9gUIE/i0Sp++DFdH
+nrSyQvQolFDvO9/y5DyIMDJBOUjzaaLFI4dy+AX2/SppTgXXY6skX7XvQzl
FZvNpkG5SNBWx+xn3zIYvSbtum6Wi/DHnP6bGF4GFIv3kiTLRVnyPx7oLSxD
/a+DS9y3cxBDKnObwrEVILnzfmQb9xt1B6xHMMmtQLv38fdCH7PQ+bOjE4cX
V4BQSTZ1ySkLBTY1i0/Jr4B07Q+pQM0sBCd+VuUqrMDomdML4zRZKCnUdFX3
xgo8NWRMsA3IRE9jm1S/WK5A1f2V29bBGYg1N2n7zKcVuHSx3qUgMBU90g1V
IA9bASPnk51/dFJR086rd8sRK0Cj6llyjisVvbxszFsWswJNU+dtRXNT0GwZ
o6ZZygo891TPS5j6iQoaXibG/1mBSYG7uni9ZKQ/aqAjtLoCkdmhKuMvEtHx
O5+IiTdWYMte/lTr7URUXt+YMbC1Aj85xRUoRBOR4G+MKuhgBW7xWDy92/sd
rftylm6Sr0JA0ONVW9nv6N3ZcaGKM6sgOzq7M4xLQKVP7x8YXV8FtoRyquLK
OOS88C1ZTnMVkOj4J674OMRvNnCHXnsVzD/PXC97GYcC1a9nVequwvdBs/Bf
EIfucpyzEr23CjHZaiS6JbFo9c9qy47bKhD7e5RfrY5BfLRu8R+TVsHCCkao
D6MQ+Z32Syk/V8FaTiS++U8Umv0q2v4nbRXUC3o8iN9EoQyxIfxa9ioUDf4h
/485Cl3WUDTWKlsF7lSLYS25SHTz7XG2432rMKP1/NDybQSS7rTK5Pv7bz83
aui+G4FYTpepyA+vgrSkZF4KfwT6m+L8xG5yFVYzA0ZflIUj64aejrrVVfDp
aAnP2QtDz6m+vfelWoMW8tMUf7w+I1Ptff7o42uQw1BdfPrWZ6T45XZxzok1
KPReZmrl/4woRMgXJpjXQIn76xHWGIo+qj1QU+RdA8W7u+J8HKEo2V+WFC+/
BqJH38QCmj+ibrIGN7eHayA+L1fjYReCBHl8xA0d1+AwnnuNRT0EPcWwSfRo
DTTCBBKWhUIQ2+MMLVK3f34OnKe1p4ORwehHwSCfNSD7/Jd90CoYjRQadiVE
roEf2ZvLCY5BaM5xSaK1bg34tyMc/fTeostvk6Z+Na5BXzkt9S2+tygwyTQq
tGUN6m0omTyXA5HYUDu5QdcapLyPLd70DUQO1/KGJkfWwLM7PFj9vwC0we/1
dn97Df7+nPiBk3yDjvrpZwQE1uFpvI4hmPkiz7p5PxXhdZDMfHfmlpQvwuVX
CdqcXQfzp4Enyo/906Fu1smS63BctKTsR8prhNccnRKFdViLbFD5tO+DiCsy
JyXursPkK4oVlRRv5J0V8PqmwTrcij8elP7KG5HEWvA7G69D8RmDWQv9f/o5
q2W2xTr4r6QZl1B5I1I5rwkZp3Ugvk/9lMHhFSJL0Ry/FLD+L184+VYovUR+
EcLeBu/WoZv7Kukw90tE7k/C6xG8DiphQrgrR16I3DLPvPjzOswNPFfszvNC
FJycYxC/DrwUJXxy57wQ1celkatF6/D+i3uUsaAnonV/N3RjaR3KXqQv5AS7
o2n5XyOmq+sgleCyHKPnjsqPusecN9bhVSWT8AaPO3r0imv689462G9douvN
fYb63mQvD5FtAO6LetzTcTcUH96Hd+DcgMKh+6H3NV3Rc/0j4pc8G/Dtz4mb
kWdc0Z3TvMc+8m9Ap8tbYZGlp4gy9gFlnugGnOLwNzR5/xTZJ+FO4i5sgBgz
uwpjxxN0MZefN0hrA+wrDO1OPHRBDK7q/HG3NqC7LqOl9YoLWrjoIJh95x/f
aQ6bYHZBMcX5oj2GG8B5wauN5M9jRFp1TZrTdgNEbpvH0p1+jFo6nJQyXm7A
LrOZVPeQM7JcLbZu+bUBG8UssgKRjijVV8E/NWcDeE95vXF1d0Tr7DU/3uRv
QAblrT4SQ0f0Srl1VrFkA0LFJzsrOBxRTOSYXX7dBlQseEkOxTugXiVyx7iR
DeARDma44WKPrn3Rcn1EuwlXB53y19js0AfxrnAt+k1ILqOovzd9H/VV6hWI
MW7CrEFAs3jOfWSzbL43zbYJOoZkvN0376PXV108DPk34dH+gKF6kC0qXYrw
UpLfBM7SR10qp2yQpOK4P8v9TRhzSyF5/cASJaf4f5R8uAnd/Um5NQRLxMl4
LlrDcROq23dyTZgs0fFJ12zvJ5ug+P4h+btSCzTrSzu0/GoTZqgnSBtYLFBM
/UWp2shNEHvAfU+txxwxSw1j49Gb8JGxKSE00xy9i/RRPYrbBJL2QVOxAHPk
/qDFSPrHJqRQvjyQR+boDq2lf+zvTXDaNVtqTDZDx7WDB12b/tUX7pYl/d4U
+fwnM/OxdRP4es4fbdqZon2egbX0jk3AyokZ99RM0cw6P8Vk3ybk3l/+UEtm
iipCCyVvTm3Ch4Azg47eJuhZ35SfMG4LWG0a/UhPGqNpU0yyX2ILUrxe4Aaf
66PGKAWDMqkt0K5rNW+4po+yelV8EmW3QOp8zhrjKX30TEu721l+Cw5FVYny
8vTQcYL1M2rVLYjtb9jj276LJDlD/sibbMHYXLUoh68uej44oR3zbgsoym+8
NB65jczY5txfB28B93XCG9/820hZZznB7uMW/NBi49wOvo3omna35CK2QLxu
eyJD4Tb6VkQb2ZqwBcnzo7FOybdQTeSFcaKiLUjQc2Oo8dZGJ/XfPrKY24Ly
rEN/JxstpGn79+jy4hYsKqotGKhpoXeuZwMYVrbgSXhH03MRLUQZ1hj7Z3ML
ls7ReVktaiKiTppmLqJtcCF23Spz0UTLGu+EBlm2QXE+mSGI+8a/PPh+UEdp
G5I66paudKkjyptDNmKq26D7lqovKF4dqZie2yC9tg1C04russ7q6M+LZqrf
WtvwH4mkQ+AJdVRQSHvhpOE2UPiYkyveVENJMkEfmp23QTBeg95iTAX5CAer
qMT+y1Lb4sgDlNAqNVGxYfw2cFDwe1gwKiGTJSdJ58RtkKdjOhc7exVdzL7F
8TV1G44Okm3oQq+iZXmW9bX8bRBl3OopXFZEBlrR0dFt25CBv+9Rla2A6iTp
GH93boNSo0tn5DsFJMvk9aauZxt6TbQYi6wVEH2/2eONwW0Idyc/0XtaAVXf
41dXn9sGvXflH+0DrqDzT1M3N4l34GVqMGe0MwHF6HHYUZPtgKm3oli7FgHR
yL8f4aLcAebhi+kq4gQ0jXdsuEa3A7kmU3SbC4CiAqTi4th3YMENy7pmB4g8
+r/rGtI7cINUbvRwGkODlbXxCZY7kKBlwfLL+BLKfxYh99pmBx6Wyo5fELuE
Pkrcb7C02wHLPUk2toOLSD2Kel3AaQf+Dlmg8S8XUd6jGwrJHjtgf1uR4t3f
CyiEp3Mk7eMOgPPiiQwHOaTkNcyRV74DBwaqekJt0ohLNjMrrHIH/tM7fzs/
WRrtz3spudbsgIfsbGjQK2n0S5fn4cWmHRAMtZqnl5FGnOKWRYW9O5B+JwR/
96sU2h2c0y9b3gFSZ4a6588kUdrlrbA6jl3wkns5tH9PAuVXTjPNcO2CH9G7
7dkrEqhCo+8jGd8uaFIONpzikkB9JkVBiiK78NXMNUphUByR+rzyK5b9p2Vd
WqP0xZFBI+3TLM1d2Hr8PpijQgxZ6eA3W7R3Qft21VS/rxhyGlp1XtLZhZfW
0Vdpr4khv5VOe1HDXQjHKXp0dJ5Fvxgjrb7b7IJW/Aa+dFEUURoJ3ol4uQtO
XwtF9aRFEOMUa2eezy6oWRRZ0OJEEKcDlXa33y78NNfFna0XRjIvFzUY3u+C
CCmP8FczYWT6PVvp3ZddGK80u30lVAjlLYLMy+xdSDXJPTtFK4gsXtxltJ3c
hcxar/7PynxosD85U3tmFxoCRzd/cPIhHbn96/Lzu7B+4kCVeJcXqax8fU23
ugs/jAXf+6fyImHz8a2cg10oNv7yvouZFy0r2ff962QQdkB8nnSHG7kf94mO
UtiDfQnGH09nOdGGbdclX6U9OL0W6vi6nhM9rBbocVDdA7v3LN0NKZzI2LOO
TvHGHpzgC+n/95GiK6u0L2f19kBN/o0q8eoZRN4VcU/WaQ9muE0aiYQ50Ieo
DKHWmD3o9lYzHxxnQ/carwmmfNsD5nxBodhsNiRzMM3v+30PrD8FPC7wZkN9
Bly88il7YHZeWGaRjw1xs4dw/MjdA9KfN2JV7VhRRoTzSa+mPah2vTl7nZwF
NX6WORDf34O7hLicdFdG9LW6bY/qaA8mlbzjhbUZkcPWw91J/D4cWm3/mBVl
RAx3ErciyfbBU7CYWm6EARkwsaySn9yHZupTfbvXGNDsx53JYaF9uLp3/kue
+ElEFlLYEnRnH1LYKG4d8Z1A5J9c83/o7YOupkZmPMmJf/1OJq7ccB/w4paL
b8boEPXXDOd1831g4lClY4mjQ/TJ8Uy6DvsgOF5mKsBNhzjKAw3O+P/j5XYe
pvrHEWel6lW5wH24ZKl3eJvzOOKqOSam9X4fTHGX7xRN0CDeJs+jl5/2Idud
lnHEkQYJ9z2Km4zdBwvVvMJ776mR9KrBdGrBPvxhnT+MHaREMhusrVVF+1B4
LGXGKJkSyW135Q+V7oNDNfEzLxdKdPFQM+BE9T6wW3C5r9NSIqC8Kva4fR/e
fjqT465Mga5xn310eX4fIkQySxxqyJD5zYOjutMHYEQSXUZKQ4raBNnI0jkP
4H5JVnDDJAm6ciRz/APPAUzv6NX2lJIgzhQHdn2hAyCeknla8pgEDZKOy81J
HcC+qJNC3igx0s2vc6S6dgApbx3HFmqI0DXOsDF1twO4YM/8QvkPDv23mT17
zuMAktK2ArvjcUi4sXXlpOcBNDmJDH19jUMUblS4AZ8D4C3oL2lVw6Gq9ufs
dsEHcBx/Vu3ZzyMMfC1uByYdgFcsXdav2QNMevF8dUPXAdxaJBpSy9rFOj47
5C32HkAY865otccu5kRI+0H39wDYDNerk1V3sYyPQoG3xg5A5kdWfvzoDiZ6
iVNrYOkAMjmMsq+z7mC8fjT9c+SHMPk7+nJd2Bb2R0K9gYb6EIiy7O2Nbbcw
s36/onO0h/B8r3P5xuUtLEaMJMaZ8RAW/9Ohh5FN7FTn7r09rkOwSnf2Uj23
idFzTy9SXjqEE1xL+7b961hmPd+wKHYImwHzveZZ65jmY/NWDcIhNHKF3E/1
X8fe1Qz+ClE+hGBlcknxC+sYhX3nU7Zbh6ByrIEw9mUNwxWWEwk/OIRtP9k8
N/tVbOl2FJNq9CFgiSXb3urL2HQbn61B3CEkRklKUIsuY8M30orsEw7hcobO
+RbqZaxFteRe6M9DyNdZcGb9uoRlyI9kjeUewuvyQY/QlEXMgY/vxvOWQ6Dw
Ep/cGpzHrONS44LbD+F44ACfdOI8ZnJGZjO+6xDIJZ4yD9rPY5qsylH1A//u
5yxdmz3RPCZOYzPHMnMIciVbSu6ic9jyeorvL/wR2LYZYAEfZrBpR+n+KpIj
MP4U78JnNoMNLxaJ9ZEdAaXpL6YzEjNYy3RTJ+74Eew2PEs72zKNZQws82iw
HUFogbZdPP005lAhVTp9/ghOK2tTGCVNYssfCrdP3zuCjeUAv0f045jOeLzt
vuURRP0deaSyOIYVSr0d6LM5ghLh+SDDujHMr9Ow9LP9EbAz0rxSfTWGnWE+
8j3x7AhOeBxLPrU9imlEEJhJQ47glbSzq9LCCJYSUyU9X3IEIUak5+qIhjH6
lbTEuvIjsO/ltBqqH8KeEj6z/qg8AmayiochIUOY4qjVgUX9EeSsGL89yzWE
9fNQVA51/fMzcryfR2EQo0xUv9W+cAR58xd8nMMHsGwd6wt/aXAE1iCFoY03
vdiLaTur+7Q4QlaUtTbd3V5Mzc3x0w4djrAQQQeBAr3YUJTbCiMDjuArXvIm
obIHo5wI/KHBhiOU4MQeqB7rwUycM1lL+XEE3XliQm5YFyZCmqOsIYgj5BHF
Mn2w68I2QwseDwjhCMxXP/BXQhcWUPCndVsUR/hRuHdLaLYTy8F3+UtI4ggT
fTPNQ9CJUQft7sQhHKFhVfnR04N2rJvrSECCgCM8iniYd7+rHYv7RaxTcgVH
6DPOV/yZ3o7JdlNn9V/FEc5Jto5Sm7djZhxnbBmu4Qj6XzrOqTW2YXkpCn0+
ujjC1F0fT/H0VuxebWCBtSOOMEjS8fxAtRmbVCx7MuCEIxyQvk2boWvGrEs3
pDQf4Qikk2cO5HuasPu5RumyT3CEhxUPcezWTZhTgnj8MQ8cobHgvFh4YCP2
wqvjbbwfjnCNvGJme6oei7jAbjocjSMsMjnufRqrwdh/a3LcisURbrd8WBHL
qcGixH36q+NwBOpWxwI2/xosRmDxdnoCjsCuespm+lwNlshYqvb8J45wk517
S92rGsteMZdiz8URLnfHiPw+X4U1//hJptv0773EA7lvNPzBDt+RulQ04wir
NHmJk0l/MNFHxuPirTjC4ykjzyKfP5gfdrKMogNHWI4ZsRKAPxi0u7n914sj
+JUwDw7llmNZ+6oLHBM4AiPRZ2PvrDIs9MZ028QejhD/aVHu47cSrELqCuHm
AY6wTXXl4aFtCbbKGplefIgjdOsNdzWeL8FujN8I/IzHE6h1VezD/xRj5K65
V1XJ8ATuWG5omSnC3OJe56XQ4wme4TrevCqFmOEG71dnITwhJPSc9aRyPsar
+B5/JIwnPHKTERhgysdmQ3buvRHFE07TsJFJTOZhLuJNIrHn8AQj/yKVDZ88
7N39J/lN0niC/gmW/fbaXKx4pLZD6Aqe8Pz4cu8NsxzMW1xK7rcCnlBRxs0z
LpODqb34+gWu4glZo7++N1DlYF3szmZ3VPAEraa4ls85v7HFO+zL3hp4AvFL
fQ5Sut8YR9NDqmE9PIGVfJD0V+svbJy99+F9AzzhdQUfMeHnLyz5vkLbpuE/
/0s0H1l9fmEyFCzhNKZ4Avp97lzShV+YhmIZ/yUrPEFMIKdQ5HsW9rzg5JVQ
ZzxBgSMVtAMzsaHveU+vBeIJbMTzB9wn0zGDoZv3i97iCaYed9uH+tKwHuYF
Q7H3eEIL0/3XRN/SsDY/LgW6EDyhTpgmwUUqDauyfUPT8RlPEH7WNUNqkIql
iRnE6X/DEyKuPZjgK/qJPc85qrctwBMotfKnOsuTsL3F8OL+//CE6eFULnxo
EvZUQCrzWhGeQNE68drDJglzCrMOFSvFE36b3fSzOpGEWbq1mqxW4gky6eqf
lu8lYtexbxuurXjCyM3MMH227xh7ldIZ/2k84UKEHtFiwTdM6HPGLu8snvB4
3TbtxIdvmIw1W1fpHJ7QJCYw6nP/G6ZFuRi4vYgnfE3iu2N4+hv2WuPTrtXG
P36Vaz/HOw5b6hrrVCIiIgRUfbN7axqL7SdezxwlJiIMZZymccBiMUrX3MDn
pEQEvebsr+GnYjHeUwEKOeREhJL3J+6WdMVgusbnM/loiQgFy5crrmrGYOVT
noEk7ESEjmtPs95Gf8Wa82atYk4TEcy73APTTb9iA/63FC6fISIEPme/p8H7
FdsUEdx15iYi6Cywsh8lR2EiDs1WY4JEhJoW7O2J4kjs4/ZphXJpIkKYFE++
wG4EFlvry2EkS0RgpczUSPwTgaVFrOzsyBERDC25cJ/eRmC1lyszJC4TEU7H
R2K53BHYoacdR+wVIsIVJRGFI61wjOpm185lRSKCZLhnRTdHOMbCA509V4kI
mu7PvzLPh2HnK08G0qkSERhDV9jqfMMwFOphlaJGRFBuL+W8pBOGXbOauqJy
jYjQQDV5lY4vDNOT0+IYv05EGPzMVqqy/hmzovhv58UNIoLTk4yqsT+fsf8B
S6zl2Q==
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 45864.}, {-10, 5000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778081833747644`*^9, 3.777808362325488*^9, 
   3.7778084928735447`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 50K", "Section",
 CellChangeTimes->{{3.7778078326561804`*^9, 3.7778078368416896`*^9}, {
  3.777808289342264*^9, 3.777808289810954*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_50K.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "15000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "6000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "15000"}], "}"}]}], "}"}]}]}], "]"}],
    ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "C1", ",", "Tm1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1000000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777807846428356*^9, 3.777807978114668*^9}, {
  3.7778082868451376`*^9, 3.777808303496683*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1F1MjXEAx/FnzWjTWqyL1tocWxfNYm5YG9q5qHlZtuRCbDiyktUIjUrL
g7ZCSJTG1Fm1SmLVMkcZj1QS6lAoKr3pApuXqy7IS7/v40JbffY9/5fn+Z/n
nBYn7I9L9DEMw/zz+1f9JDhncXZL85gcpI0zs5o1tOOiLHgorVKN+zxWu8rk
ijbWV2i8iPZWqT/R7hoZ3SrT6jQ+bHFfN2Un474NsruF+Y2yivGBJll+m/XN
csYja3m9BAPuyFbmZTDvG+Ojd+UE11nHdfyY33BPzuO6QfflL+7TfCB7WZ/O
uYJvyTDex1DmD9H+nLuwTZbWy6hHsv2GnKZHamV9u8y6Ll0dMpfxwE72q5Zd
dBudzXM8p+dkLO+SHnqSzqlknyeytkLG8DnJZtx4KiPdspkOppOfyQI65LnM
KJdeOuIa5+jh3Fd4vVeGX5Wf6Ww61iur9Dk16uiBy3LOC+67RO6g3bSHniyW
C18y/5JMpX/wveikwy9IRx/nLJJZdHqh7Ke/Fshl/bKU8XzacV6O0/Fn5epX
Moj1JbT7NPvSLn2PjQ2v2feUrKK78uUMXch4/BuZliebaE+u9BuQTv5vJNGj
tEUHHZfBg+x3UqbTsXQPbTE/7C3zc+QJ2mD/IbqBXvlOejM4Bx1wVH6kHZky
aki6mF9G+5pymo5Nl3HDnDdb1tPWHjl3RJpH2Je2DskW2r1XBr5n/KDcZzfj
XbQzRS4Y5XzMj6Qd3F8Kbe6SpbSVJjto53b5nTa43qIxOlXG0Bb7ZdKOA7Ka
NpNlH+1ivTHO/CS5lHa65DbaXCvzaDfzm2ljjRyzO9SaxX+C9RvlKtraJJNp
B8+n2B7nPG32+nj5xe7NMmSS8+yW62lrpzxMG1Gy8r9xr70+Qf60x9l/yQfW
b5Vb7OZ+cu2OlY20GSdH7I6W86eYz/sbYbdhzf5NnPq3/jcxJ2ku
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3c4lu8bxt+XQrIySpS9Ul8lEsVzX28opczSsCkUsspqITOyQ/YeJXuv
jJC9t+y99x4/v7+e4zyu+3w+530dx73YdUyUXhDhcDhmYhzu/9+fRqI6vXQv
kep7seOHsg1gxenbv4u7A99t3LqyaRuARPNfVg3uMfB+dP7V31MPjXtEUWk4
fTAhPbNj+bIeMuoYzsTirKDgvJVb1dc64BJibQ3DucCZRVkzppkaaCxavpdg
6gpUxjQvXufWgNXtPxVpQ27QnNxuzO1UA7VPX2ZXlHoAVfxQXj57DYiWPq1/
Az4gyTWspaf5F/5NxKQG4wKBQZL/pMBcFWRcpDSKyAsEF8nP8aq/q8DZ1JIv
1jQIUtwMJoZ8q+DKjkzUr6Hv4EyZlLB4owocKBd8S0tDIcTHuuKkVyXQM527
aQFRIObcx5V6+w/kgx7Ld1wCtIi9uGKwWAaMd7NLnzxPADEyY3m9mjKwVDym
y/g3AfyynbezYsrgqk50QqBXInTUhUkTnpbBj88DVwJYfgAfV8Ar4r+lEFyl
Iukn/gv4GH8FIv3fsNUYN64U+Qv4y3JFM7l+g0rXmgvtsRQQkdIeyhwpAbop
33qfuhTwLAwPfqxVAlWOk/wy/6UBy9kvcWQ6xYDFc2bdLkqHf6Wmtxg/FoIx
v6wTz0I6xIYkveuQLITQFHMVErYMeKXrcpGKvBB2csq2Kj9nwMjDpt75wALI
qdaUkJbNhJBLF7Tv5eeDwHRIlWRvFiylz4uEn8oD1kv0PbCVC3ju3+n3aLPh
0qSodytPHnT96N75NpUFotHqd54/ygO1hbUmod9ZoMSYkO2SkQf0q8s+z42z
wPHYDd9Go3wgfv5o3LUhE2b6NWXVhgvgxP1f8g9DM2Aj0JFogboQFHMp3n60
ygBi5aT8T1ghLK/5OCwrZcC5mhXemJBCcA7cYEgjzwD5bKdjM4+K4JuiY8in
D+mQ9fVnsVVtMTQv1AYumqRBqUzzmxPbxeBgm7anJ58GDcTrF0N4S4BLna6K
5XIaTNhgwSWOJSA+gqcLGUiFs3otlsfRb7jccBqEx1MARewG1jwthU572Yvk
J35BrBW74uPGMhiydtfei02CVRNydHG8DEbu5tqIWiTBLYPVS4e7ZRBCVMLV
QUiC4SeVZAkXyoG1nOvOf0OJwHLjZemGYzlw0f4NkGJPhMC9tMsBNytgWW0w
zTwrHibWvp9/pVQBNfRz3Lqu8SAy73ASe1kBJ7oHmJPU4qH938PJ8YAKUHIm
XrtKEg80v7fCr61UQKwgxcdL6nHwxR6oOhL/gMijGOwSUyz02FzYS/z9BxZ3
//txYTUG+MxpZ953/oGEp4415vUxUKUzVsl1rBLOdtL0jH+KAWIp1w9vNCvh
3Z11EzQTDe9JmufoTleBY6hZknR9FJi4a9Ypfa6G3PexlrufI0D8vDz56dBq
yBuMU0oiRABZKna3J6saJG2v/h45DIfI1vPVmhPVoL3ikb36IRyaz/aXG939
C4TOQs/XdmFwJfFJgTN1DRhS9j5qCwuBPTGZ7bt8NVBsbpCZrRsCf+uui1IS
akCMXlydlj8EtBZP5/iZ18Cp4xq+InnB4CPSkR7ZUQPBzAVDVL3fYeWPYlJB
SC0kM1Nm8QkFQYkKYepDVi20SAtm3cQFwZepK7yEhlr4cEJoML8hEDgoaOKq
D2qhYdBPcO1lICgrN0a2a9fB/Q/sPjIJAZA1fC9ogbcewmvc9LKEv4HlgaQL
R1YDJM4FcdF984X0i1fzsboG8KjXmPMx9YW5J2yzz0YaoL8w79WT+76gk7kn
50fTCFZJeU8KjvmCnEH26WPGjUBXP9tebu0D3K088ePcTXCh0vWbqbE3aB3S
d+Mlmo7Wj8/Jiw+8IfgSMTnLwyY4ck5y/ecNNC6DxioOTcDwTbE4qc8L9m4G
XaseaALt79utV8Y8YabVUaddthlorr4qdD/5FVyn373TedwMSpezUt+3egA3
zsJ/SacZSuw0Cv999wCt/7SrKGyb4X1xdtLcBQ/odJHgl05sBpytvQiPvDuU
iW8sZx9rgZ1vXtQKv9wgKF7fPrC4Be59bImjyXSGtRMjt87XtkCLwRPmMgdn
UDBWOxbT2QLPQp/rdCs5A5mwokvKYgskzXjvXl9zAuuyG18r2Vshde1ff8xN
J3jcT/l91akVrGsuClv3f4YM5PrMxrcVtvqzqIQyPgNVDNG5w/BWmFYKHbzj
+hmqXm6Gk+e1Qvu5Wwbvr30Gkc2hWPaZVrCINHPZ83OA07RZafJybeBs3Bua
r2UP5m8FzDuetcHawgP74pv20NidKKSq3wbsfu/P0ZyxB+eIsBw9uzaoTlLp
DW+0g/VLLkUfMtqgIV3PWoFgB+13nv39ebodsDv735YNPoLfB9wQ6WA7ZJ6j
9/oSYgsPBeL5lWfbYSCklnRZ1xboB2Xfhm8e1a9dSK27ZAv+EEh+jaYDSrJL
Snt+20AAscA1HUIHxEp++IfNWkOQm+qXopgOoPv5PFdHxQqe3MB3kKZ1wACt
jHM4txWcnY1nVS7qAKMdLXFYt4Tg+ytZ0+0d0DQuQJHxzRJCqN0GT5N0QkN+
gppo31sI/5YjbGbQCR+s7j5msX4DGrfVPhW96YTY6dH3Tx68AdZNfC2pfSco
VjkSz3G8gcgnDzTDv3eC6ocH9841HZ10zGNudbWdoP2nNfXrRQuIjTo1yP1f
FySzDGCMa2aQ9MvIrXe5C048IxE2/2gCbMk+D5T2u2BsBhWSE0wg6EfOqVqy
brAp2thhOmYCrgm44HzWbmDYXD0Md38NelH+P4IedEMCSyTpuUhj4PpWVKeS
1A2mZj8XeQYMIdRv2Ksxqxval5w1WxIMgd6X5OHt0m6YUz71e9zMEIi9FPqv
dXXD9YEA+rukhjDiOjZHf7wHrtF4jo2KvILI9xRUbVo9MHoVzIoTDYDxnWDr
PaMesKRi0EuyNgBvG5WAcqsewF08w7gqYwCfLCNZMjx7wGpwqyd0Rh80TIUv
+xT1QHLtuIDIVX0491xNQZ6xF2SGzR9PtryAINlk37qmXmhjMdstldOFxoCH
hzf6e6Erf8lwhVsXjo3sGf6Y6oX61qfMtvs6YGb9QNoN3wej+Xc13X7pwL24
hc3bQn1QXfNv2u+UDuweXFEvD+iDsbJGKJvSgqv3emoEY/qgMztX51ilFhh8
sxeJSu2D7wK9FH5RWtB+sZXa7m8fzHd7vfdW1YLkJxblEjt9oM4Ten89ThM0
MrJ589X7Icly6iVVuDr476v7873qB570M0lvNdWhVoYEH2TZD2fcy4S12dXh
+qBKr6VXP/B+0+gojVcDGootD+Gyfig0nhBxzFWF8hc3VlK5/gGB/lPc1aWn
wH32d1H87D+QopKuVMlVAdqMiehbm/+AxHbG3v6LCuBkqdwGiAZASFmu4JiG
CvS/V390mmkA6hU5xk+RqIDv0O68k8wANIp+Vhd+9ghwiaKsL+IGYMnq3hop
7UNYAK3j+PQBcONRMTWcUYa+HpfZ0KIB4CGMnz1foQw5J7ty29sGQJzC96vB
W2UwNnmrIEU0CAxcGtpe/5SgVyTDnlNzEJJkh9pCChXhb1OP/u9Xg2C7naER
GqQI2QZ4OVXLo3ov3d7wW0XwDlZg8vs6CLLlt+RuCCrCnYOFDKKiQRg4pEyi
+akAvSMMK6YUQ1DYlpj055E83PmhxKnwcgiucb7NsE2VBdPze704kyHI7Z3v
nrKRhWDvON/0N0Pws2Y4vkRKFuYst/B0dkOgceYDY3jfPfCWDB/qCBgCxTbP
stNU96C7fzpM9c8QyPrxvr3jJAN4Bb9HFLVDoMyLv9/xSAb4K8Qpi5uGoNJ6
damERwbeJ3m9Z+kbAi+j+cHomjvAZnlNdXh5CGwcdUWD6e6AAbU9oz7rMNha
PbmbkSsNPg78zWe4h2HrDT4k+as0FKy3ufzlH4ZPpzjFt3SlgaKfZ/OCyDCk
1P/asjslDWmJ9R1z94chTobM9I6pFGwRGP3MbYchNaLwL5e4JLi+SaX82DEM
liPPdbETBKDxDP7+o28YfPs60YdxgKAEJ+6u4WH40abLQ1oOR31WlbiyMAyh
rVxh2+8AaoHMeIRk5OhekejtPYGAglK7/rboCHhx+tXRDkiAP8/9JxbYCNyB
tmjdCAk4B9fHIqRGwGhli0xUWwL+s6Dc21IYgRejtUL6E+Ig15N/8efLEfDT
Z9Yo27gJ3nG07tQhIxDbeYb0k8ANYPy9f1o8agTMLjy86rEpBpHdU9EGCSOQ
M0JIoygTg/STvwvKMkeAlPbkgO4jMWg1M5yxqB+BLvIPxxQ/iwI99udu9/4R
P8xxSG1VBII635JFaY1CrphN9AMWYdgLYGvR1RuF9cuX98Y2hEDrcd13HqPR
o3E415omIeDrZruYbDUKBgWSvVYOQpDXU/cg13MUOr4n8z6dvQpd/ex+DUWj
cMZHlyStVhBuhNWrepePgs/x64ydCYIQrm7Fpfx3FKzH81+DkyDoDdRnd7eN
gv+j2bZBEISNQavu0ZlRaHueyHKz8AqcHm04v8M4BnsV9hOTVpfBNsZ6oohl
DHwbYyIkb1yGAV3O1E9cY0D7feIM474AxI9Zw/ErY8Au6vSN11EARCY4dWnu
jIHtWv7j6sD/QGXaJpHn7RiQ7NXdl2q/CN8WuYWUW8bAOUfohUYoHzxRoW32
6RqDS88OidgN+OBc8YFR878xSGIL+awkzAfRX7riH8yMgYRCof1BAy+kcLsx
yRCPg1/Wvf+0SXjhr+ocXuLaOHD3ysh9/cIN7uXd4e9ujsP74di5NjVukLtQ
ebOAMA4O6YTv7y5zQ8dG2NvrcuNg1zM2MdPBBSM+8tOC+uMgmUEQEeLlgt3q
jGae7+Pw52sEx+9eDigRiDB+ETEOOkkpOfkZHODwzZ08Nm4cQh6RYSfcOYBM
97kUe8Y4uA62qcSKcwD9AUMec904MNzSepQbww4CwjYRNPvjYN42rF9gxwba
kej1jtYE5NGKLwSOnoPOX2VNzPoT0Mi6/kM34RzcL5QUlDCeAId/nweSDc+B
SOedtU82E9CjqR+Quc4MFBQKtsd9J2D2ne41S2pmyLPScqapmIBTfxcUNp6c
BQGnkUnBmgmguA5vOLnOQozv87vKTRNw4L6QXLLICJ6/DCgC+o7qdsG1N10Z
QXfU1Jd5bQIcE63oRUvOAJW8fTgP9yQUaH7Ns5E4DY5qxDiZi5PwXG4zmo36
NGy/dNJ+KTgJigubnHzDDDDm6MaVLDEJvGtiVY+cGSC/wOeHoMokbGgLLDB0
0MNznugccZdJ8DllcsrhMx0U7Jc3Kk1PghrhxCgT6yk4mXHMmHxxEjzzyFta
9mlATe/2yfK1SQCz8Dc1/TRw0FhzRxA3BeXfsAnrEBqQjGwupT4zBe3nq+dq
mWmg/tZARr3UFFz4OZATK08F5zdZFR3vTUF1n/LLXHoqeP1Te/GmwhRM7Kf/
EO+lBBr68Ys/VafAPZBYO0SPEh6Oz8a6mU9BPv9ako8jBfxz2Q64HTkFDyIG
3ye0k4OA+M1rB3FTMHk49fBjJDnYLb1vy/45Bammpv4FRuTA8RRHw507BeRy
cyJaJOSgx0/qRtw4BX/OmHTdw07AQj39u9LdKciuMcrd+k0KONormjceT4OF
PBtrz/HjkGaU2WKsPg1c2/PDrj3HQKtaRCpKdxrefpmlCPh1DMreS1wgMz2q
33R2q1Q5Bg6T91Y7XKchjC9zW/cXMRwvfuFiVjANOnyixTuviCDnzPR2bOk0
UC9JXeKTIgI9cyOj7qppKP3lYppwngiqeC0UUds0GBSz/w1qwYOrrx0z5dw0
FMr9EhCWwAO5QUhq4vkZ4GOvFyzhwEFBOQtHP+cMjE58YS3E4cDwfLQ/Nf8M
XNV59OGw+BDVtybaWIrMwNyzGMNC0UP0VSJHUkp+BuqMTELzhA8QDV1L16Dd
DDC+aPteL72HGEpIcGfGZiB7WlV5/c8Wiv59N3VoegaMlO2tRfy3kECZh8aP
xRlQ9S1279LdQrf/0BZL7M6ALG/1F5FjW8iylsX2Oe0sBAr+i1C+u4k6O0XW
0mEWTpfrGRiNrSOdbpuYd7dnQbzu6onH+etooadISfr+LMipu1kEeK4jkn+3
0rsfz4K5awr5qRvrSGRU7vXh61noYadQHvVfQwGLelP3w2ZhVX9pyPTpKuJY
Tgo8HTMLDQ3bEWpCqyhlZe72UOIscO0/lvejXEVV6+ZxFllH/nzZq4PlK2hj
96NOcN0sMN+OFBi+soJUyAL7J7dnwUDEq5qWaRmdYa9udlCZA25nj3t0NxcQ
UY3sw79qcyD2W9UsamceLZg2d1HqzkGUWdh2XsE8+lPaMxBkMgflj9+GfRKf
R+Zac3MprnNwVaG1XPb2HKqPOHWir2AOfo2jslmzGZR7J8CDrWwODu9dmHYX
m0HRi0w0etVzoJgsi8XiZ5AN4jqz3DYHn+6EmYn5TSOeQRFu0vk56GsLft9b
OIXsWNQIQqzzkEkdO8nOMYkMq4b+WHPPQ/m9r49bliaQyusXMiUX58GA9nBy
+vcE+q/ktfxd0XnwaJqfVdKcQL3q9uqaivPwRTrHbC56HAmHxdu4f56H+ncR
cw7iY2iKeTl9dHIebCrIJSoyh5Hzq5M7Jxfm4VST3t9sz2HEmc99S3htHnQ5
WobXXw4jDZVnrY64BUgdbxFRYx9G7d4VK9xnF6D6hvRuqt8QKj0eIGRwbwGW
Xznq9JwcRBoP0955KyzAmotl5r/aAbQbXVuRp7IAIU2xZK++DCAROFQ+obsA
XKwgf/rkAEq2NXjz490CFAs7FobT/kNBizey55IX4OkM74i9WB8SwR7t02cu
gJt33ZYTrg+1eZhIS+QvQK6T1SP8315ExR/b8bVyAeh4H+89fdKLHJ9TbggM
LECZcJig9cceZNozKGJGvQhMx6WxoMEudKfCMW/dbBHWGpje3l1sR6V5GhJZ
Votg38Cc+qKqHd1IES03/7AI5n51VS1h7ejS97m6RddFOD5mzBb4oB3RmDwc
nI5YBA4fzdzKtDbUy8RFMtCwCAyrUqeuOLUiZZqDL6Fti/CdgceHWLsV1R/v
plbtWYQcp6S88xKt6PeS+9nusUXoDYrq4txoQbFVq5dadxfh5xeOTwaGLeh6
/vCFUfolCLj2jFlLpxmtZcoZlZ9ZAhHq27Gat5pRWkphShTTEiwoFaeEcTQj
/thvQlpsSxB3orosvroJnfO6K/Hv4hLc+9kidKW1EeFepCt03VqCE+sj8YT9
elRLY29VZ7oEGuN0Zk/ialDOAFXslMUSkBc9iqY0qUHRyaHNx62WwNldruKa
WA16J5N3AT4swX9pbCf6Gv+iS3aLfVluS/ChhM9J87AafV1Uh/DoJSA7rxrv
9KYK2RbPGhXGLYH5kyrKPakqpOdu8707cQnMWi8xdjFUIYz32wpt6hKkU36s
yM2rRAsa9bEuhUvg5U/xjYK4Eik03jhh1r4EVbeYS5WSKpB46N9rnl1L0M/G
dyPzUwXie6Wi87P3qB8XJ1sMVSoQnsS8cHxoCaTt+s1GjlWgDIkk42fzS/B4
Y92o5UU5ov91plWSZBlGbx4/YLpehrrc14JPiy5DF82FuCDuEnT1v5HxgxvL
YH+NhvNguhh5NDZdmZRYBrOfidY9KcUITv2sypVcBg6smmxBrBglBmivPJFf
hhj55PS3j4qQdVTj3RC9ZbhQNuwoHlWAWm8V+X9+uQxXyEVZAowK0KWxpEFD
o2VIDK5peixagIZ4nN6Kmy9DzdyuNE1LPpJJvhn178MyMK9/0ESk+ehsbuIW
67dl0DVwfTbjlIvePAmQJAtahjfKBzoGj3NR4/Znz6XgZXDeada4dSEXOYhr
cpVFLkN21J9npI05aKaMQUEneRk+B1r0lDHnoIJ6h4TYimX4ys9Jr12dhVRH
1FQurCzDQ+vG4IZnGYjq8Tdi4vUj3ot/8mLXM1B5XUNa/+YyFC+m703TZSC+
bOyk9/4yeInO8zI2pqM1F7bSDbIVoBjKe/5dOh15/jd24Q/rCrh0lqT+hjRE
iD7XFcaxApq7kZoYexpaO/3I0Yp7BTjmvrDv4NPQM1zVAP/FFcgp/3lczjUV
8bYl+PmIrMDZgdd4v4AUVGptuK/xYAXWZWj/hf5NRhbzMT9EFVbg9y8OlRbv
ZMSj0/+YVnkFbuTXbpg9TUYesg8yKp+sgPnngZdrsz/RU5bL+peer0CulqjH
JMNPtFKx0rxtuwK3XLwtu94nIW5q21j/xBUgeZj0Lc0nHpE9bruZ/HMFZOsv
eGA68Wgm/FJbRcoKENOYwhWheJQmMIhfzVqBNAn5sJudcUhcTkpTsWwFChKJ
4/rY4pDSVyomqt4VOD6xedu3OgZd69BP5/63ApfXlN/th8UgxvNlMhJDR/49
u7Olb2LQv2QLK6OJFSDfLM+W4YxBBvXd7bUrK1C6M52h7BiNPp6M8XI5uQp/
2O3Tch9FIW3lPZ4IqlUQ55D7dlswCkmFPCrJObUKl8XJT3NQRqETF8nmx8+s
QjuViUFRZSTyv2d8T4prFZ7u3SAxvhGJfrhdP46XWAW5RgliU51w1EVab2v7
ehUungsWJo0KRnycTlfUzVahuSBwrtIoGFlj2AR6swo3vKUuz4oGI6a3aYrH
bVehSf2hoF7rd6Q24s/n7bQKN80jnMnIv6PhIvXOuNBV6JI9I6/iHoiudp/2
cI04yvuL8weHeiByWG0iGEavAk3jZsrdy4GIi//WryuJR3y21MXY9gCkF8jj
WJi5Cg/l+P/7wBmAZs0WBVtqV8Hfh3mOtcUfiX9NnMxsWIWTNff0byf6I49E
7bCA5lWo5Q07WfzJHwkMtpGpda4ePUx/qAZd9kem9/MGJ4ZXwS9b/8qGrx9a
57H/ure1ChTPWMXq9H3RYR/tNC/vGnD8ZYnblvZGdrVzrjL8a1CWXHpHi9Mb
4fKr+F7+twbvX12zpcEf6QBbgx9Ca/CL21c8wNYL4RVGJi/BGtSzXbkqaO6J
iP+kTwg+XYMA7IQc1zsP5Jjh7qyktgZtb368DcA80LGoFzwWmmtgEseg5kZ0
pD+e1ct6sQYezvFs8+7u6Lio/biI+RqI2L3j8Yr9gkiTFcZuuq+BXMCrO0/n
XJFrML+jmucRby1rVDXXFZG5HeP64LMG8ftxF5ocjrRenm5J4BowUahsEDO7
ohNsbKMQuwb+dZr9Hgou6KT/4rB08RpUDFm+edjkhKjfew7KL65B0qcNi0GG
z2hKInNYe2UNGKZuqZMtOKDyw65Ri/U1CNuoN3WsckBvPrNPBe6uQerId20L
awfU+yVraZB0HZp4civPDtmj2O+9eFO2dfjdybCyWWyHPqoeEjtwrgPf3jDH
8RA79Pg8F4k/zzrsLbXfUbW2Q+RRxuR5l9bh57w01ZCQHTJJxNHhxNZhOK37
haXaJ3Qjl4fLW3EdfJfol8w0PyB6G1me6IfrkPN1R5Wd4wOav2HKl/V4/ej+
vVipMP4eRZbkX+pWX4dYmncvLxq/R8er7l9je7UOQUNPsEyHd6i53fx2msM6
yEm/sxf4Y4P0VkoMmjOP8o/NhdwJtkS/XCTdfuWsQzjNnfe3XluitXN/k77k
r0P86swZv1uW6POdlhmp3+sgZmk5cXXuLYoMHTXKr10HCU+i+WeSb1HPbTKz
6OF1SKnxoyjDvUFs/R4+n8bWQcPDga6+xwIZmJ3KUJtcB9xLvW2OTAu0EcK0
enp+HUbLWekz9CwQ7fKlt+5b6yATpRQt3WKO7oco2ryh3gAFq3OhVZlmyO9K
53dF2g1gqCXOvu9jhnornxUIMGzApNnoCoOJGXq5pLs7xbQBmVLWbSYXzZCz
tOUHdZ4NSDHPZxRKMEWli8H2tyU2QDObvor+kQkSkhpzYzTcABQs/fpzgSH6
kezmL/R6A2S/US5vfjJEbAyXI+TMNsDjSzn1lLQhopqwyXK02oB68kvU19te
oRkX6sGlzxtgRnn61JvVlyiy7oZwTegGaIj71nvfNUBnhIewsYgNcLg89+Du
aQPkGep09zB6A8i7TtO/HtVH742bNa4lbYBknNbA1kd99Jhazy0qewOUVymG
dgr0EJWyz4BN4waUzP+5uSL9AjkVikz7t2zAuYuzE6RnX6A9zv7V1PYNqMrj
1H8/9xxNr/GcmOjdAK2nHtUf/Z+jPwFFQkqTG0BEfd2tbUoXveuddOXHbYJB
UIHy6WgdNKWNCfUJbsJGdnchk5IWagiTVCsT3oQ1k9+l84JaKKNHxinh+iYI
RXgK42i10DtF5S4LiU2IeX97tjxOE1ERDN5R3N0EpJvYTZ2qgYTYfCsktDYh
0YRSe6tLDTGqBc5x6m4C0R8nHuYINbQXGMpArrcJ08TkpCl6aqiKOkG/03AT
TN7/i2fbVEVPDgtPmlhtgnhTVwT7eVX0cWBcOdJzE8g0PJp73j9FOkyz7519
NsHSlEg++N5TdEdlKc7IfxNEIvX/FTM+RTSNO5uiwUf8MHmWizlPUEwxdWhL
3CY8aFK96rb+GP0NFRsjKt6EHO4i6zQnFUSn+vXNi9lNoNe/TtM3oYwUXv07
FF/YhK6h/gbdUmXkafOfO/3yJtxn5xoTCVZG5EENURUbm2BfNd6fL6eMiDoo
m9iJtmBMOdqds1AJLcl5Xhhg3AKuJeksyihFJKAxkJXNvAWH1HbLOx8VkZGx
AHxlOdKXVk7wqyuiSfdGFXGuLVg2km+WZVJEA3+pHIMvbwHkURF7Byqg+lte
Ayq3t+BeqgGr9k15RK40+FLg7hbwmXyrIj6UQzLal9eP398C/IPSs8wVcqji
U9PJbMUtsI0uR7H35VBBEbUYnfoWTIlv3yN78QAlinj7NVkc/f/6j7pnP2SR
E7+PjEzUFvCnvXQLtJdBKxREJeqxW3DjbZS2iJwM0lo0F7JI2IJI0egVYJZB
N7IesoT/2gKxBxb533LuoCUJxrXV/C14SgvB3Cu3kZpiRERE6xbULZ514ngv
jWqFaBiyO7agc6J177S8NLp+2v5LbfcWaHpbjL/kkEa0fTpv1we2wLGBZJW3
VgpVP+eRlZ3dAlH/8qLF81LoqvWvjQ3ibZjrZDp7ovMWinzGYkRBug25UcKS
7im3EKWE1zA7+TbEZX0U03K5habwZvX3abaBIyet41DsFgpzF46OPrcNnzQH
+IhjCIgsovCB3LVtoHZvCHf7DGigsiY2Tm8bEg4f7/xYE0f574JFnV9uQ7du
VQpRkTjyFzSs1zPahhdh4ajmsziSDaNY4zXfhoV7zv4R9OIo74285I8P27CW
wZ//9OZN5MvZMZzivw2cGlLRcqFiyLgn7q1X4DYYkvzcEnwlhmS8LE+YBm+D
QX2NmpWoGDrcOSMoGLkND1euKXB3iiKj1md2mT+3QVfHQnKbQRTdth9iySvf
BsfaCvxwvAhiv56eEVS5DVUCQS88bUXQ3pz9bZu/2zBSJfbZV04EZT7hfH2j
cRtUXhncDt28htiu6BUX9WwDnpczJebBNbQzMKtatrQNWUbxl9fIhFGK+GZQ
LcsO0GSSyRjlCaL8yqnT0+w78KRkbbjbVxD9kev1J+XeAX2tqAvfjAVRr1ax
t9TFHYj/2Mi6wymIjjt9di25vgN3nl9x1PW/gtQaqK0zFHbA9/bbY/Ikl5G+
Cn6jWXkHrvtn2zn9EUDmgysWiyo7MOpE++HOZwHkutxhckl9B+QvPnv6kkgA
ZTKE6se/3IEvo4UDx0j/Q+QafI+DHXaAEf+uI5bvImKYPNuR57QDrhRWI5SL
/IjN9KRyl+sOFM4HUi5n8yMRhwU5eq8dyOeLzmKX5kfa8Vm3PUN24MeysQ3N
ywsobwFEHLJ24LtJxu37VbzoxaenDK8mdqDyS7nnZBMXGuj7ka48vQOJ1QNc
qfFcSEV074HE3A7EHCPR/PuBC8kshzvTrOyAcM2s2PwlLsSvO7aZs78Dzj/b
+RY9OdHSbZNeYoZdABbN3vvaHOhlTKnl/JldEGKt9B4X50Ajh6fouph24dSf
Ua0qRg7Ulpcl+4NtF4rbrtBrtLCjHP6dIoVLu6DomWvcKc2O3lM5RYRJ7sKn
ROlYi5tsaP1V502X27vwes9I+wEzG3pdzdttencX0lwrAho2WJGmXS2NlPwu
6DSbqv2yZkW3VqgdZp7tgv/2+K0bDiyIrDP4+XXzXSiLCqzP+XkO+YWlXWiJ
PPKH7Y0SK51Fzxvu8yXH7EJm1Uu1brazSGR/isclfheekv9RoFhiRL1q7FwS
ybvwt3jzr5cXI+I458uSlLsLepGepMutZ1BasAWdfeMuaJ5xzrV/dRo51FLT
qrXswhRPzrEd7DR6uPOT5nr70XyaSXqr6E6jzadjlPM9Rzzrn19VSxgQdvYR
2dPxXXjJF2WueYYBNQSK7F/Z24XT3S/W73TTofDq1t2Th7vA3RlpW5JOh0w3
X+9M4PeO3iu1HZ/c6RD944TNUNI9KDTNrxlCdEjtNOMKGd0eUDtOkFIk06IZ
/+2JoQt7QKQVoe7pcwqR+hY1ez/eg5cTNwYeM1Mjsm82+UnP9sBI6aNyVw/V
0X4vEl2uvgefkj1yhoKoEEV4msWa7h68ZU0u8WCkQrQ/Yk8/Md2DrHy6RH4W
SsRS7qHG6rYH9Lxndt0JJxFb5V1pUY89kOI9j3jJTiL2vyQCil5HvCsD6jeb
yBFXo92hw7c9KLHJE6rVIEf8vW+iJ6L2QPAvx4Le5xPo2ora1K+CPVCkPvfz
7zApElk/21JVvAf52UxVH1NJkehWZ/5g6R6IfRqoDP9Aim4cKLifqj7i2YVt
MzKTIiCXFnjbtgdp+CuEgWck6D7Hf2/E5/ZA3L8oeGXuGNJV2j+sPb8POpSp
wg2PiFArHxNpKts+3BM3JysXJEK3DkWo/Dj3IfDef7n7lESILdn0nOqFfXhx
8MbmTjUeDRwfE50V3ofLJOxBDBJ49CS/1uzk/X3wI/fr5b2GQ9Vek9aLcvtg
x/FWVZYBh0T0jtm1Ke5DrgzT/rPZQ4yBDvMMebwPxY3hnx6/PsRajdJ/XNTd
B1Y3y7HjtgfYfbagUVnbfahqvv/yVcIeVriRNXP5wz58fWR2/7TJHsbf0LJM
Z3fEe748c+X6HnbC9iSu32kfIn5vraX83cWq2j6eM/LZB9m2vM6cpR0MXF48
8kjcB2NewXn0cBu7tnC1ur5zHzJr3yj16G5g7YGmeQs9+5Ck6F7CL7yBmRNS
kmj+7UMstGcPH9vA0vwveDwc3Qfh2rqJ9wnr2KWbbIr9i/vArDbArLi8hnG5
UvbNkh3AaPjV1qKAVaxCULaekuIAFIRUDY4br2I6fa7Fl6kPQFfwTUe85CoW
KXAs0oLhAIRUpQjLyysYc8fO8132A2gb1KTxVlrBaDmmFshvHsDZLMKpJ5zL
WHod99Al7AA66yXKug+WMIW3ui1yhAN4ylzPn9C7hHn+Hcj0vXMANAuT3/j9
lrATJh3WTA8PIHrWm7SAdAnDFZUT8RsfwJ8oW47RvXls8VHY6bsRB9Cd8i/x
tfgMNtXK/Uot+mi8MsuC7/EZbEg+pdgk7gB2VVimLjRNY813fz8P+HkAFvhl
8WTdaSxNYjhjNPcoj0Zp4pTPFGbKzS3/sfkAXlqczbEmmsQMon9F+7QdgFql
MYla6wSmxSqyEdt5AHm9j5dioicwhbN3wur6D0BFDN3VkJrArlC+nGWcPoC/
CiQ2eh7j2NJasksm/hCSctW9GQTGsCmza31Vxw7hU5eg2yjxGDa0UCzQS3oI
v5Vdi070jmLNU40dOKpD2MQprqi6jGJp/UucckyHwK5BV0c8MYKZ/hEunbp6
CJdEbD9WZwxjS35FW+efH4JoybWTwicHMZWx2Fd7eoeQ/3MhObpxACsS/trf
+/IQXiyq2rr4DmCuHeqlgSaHcOx+32Eq8wDGeubQ5dS7Q7jAUzerK/QPkwsm
nDnuewi7H4a9Aqz6sKyZC26j/ocQ28wZfEjow5hu0u6WBR5ChkfR1RaKPmyi
b2TgY9ghSGc7Df2I6cU+nHeM30o8BJaOOcTR2YMlR1Zdm/t9CA5tXl8sH3Rj
tMspCbXlh7DK8voSBUs3Zk0IPJtUeQg279oUDha6MKkR/f0XdYdwGBOqsO7T
hfVxnqgc7DyE0q53f5j6OzHyBNmHbfOHoMrGGpFs14FlqRiI/aPEEeq3Zqes
SNqwT1NG+obUOAJKZ4+9OdCK3bM1+7ZNgyO4bFVZPsxpxQbDbJcZ6HGEnjxy
fwf9Vox83CNJjglH4ApKVytuaMG0LNLPlvLgCHXBjnJnkpqxi8dz7sjx4Qjd
vCkKfU7N2EZAwdv+CziC30p657ROM+ZeUNGydQlHcJi6uT16vhnLwXe6CQrh
CGy3o55ZCTRhFN4729EIR1ge2706+18D1sV+yCtIwBE+EEvbX1uqx6IziVV+
38IRFlIvKRJl1mPXuygy+qRxhJqrrHysN+oxHRbWV/T3cYQ7FrynZOTqsLxk
yV6nJziCvJbZgenXGux5jUeBgdlR/lLhMA2tKmxCqsyq3xxHGMzSU/9PuAoz
KF0XVniDI/z2yn6uTFaFGeZqpF63whFO/OcYFJ1eiZnHXYkl+XCUx7OM8iZZ
JfbJvv1rrOvRfD6euPznTwWG2yeTZfyCI4yWUBnmh1VgDtYSZB7uOMJDeijf
tazAnE3iHSw8cYQuHmGdF/wVmIe6tdUt/6P8hiTkRf7lWLDYOe2hCBxhfKqr
bNOyDDuXrcDyMApHaPsW0mzzsAwLu+LUVx2NI4AK3QG6WoZF8i48So3DEbKN
SEIDFkqxBIbSex9/4giqXLvGGq9KsaxlXeFzuThCEbkSRXNfCdaU9JP0SSOO
kL9C/YpLshA78Dxu+acJR6AtMBx7RlWIXXqjOXal5agfarH+mz0FmCtGV3ai
HUewev3FTsu8AIM2W9vCHhzh3d5rrC8hH8vYuzvPMo4jhLh2dzZy5WFDwzGq
7hM4Qrv1hXPUG7kYVfV+zeYkjkBaLDmRVJ2LGfqkxzfP4AgU9+kfzBnmYlw8
Z7UclnAE7xt+Hj55OViA/FTr+O5Rvx9ck67Tzsb+CN8iKO3jCH1zdz8/F83G
Vs6GppYc4AgW5G9mH1BnY/Jj8h6BeDxBcVy5kaokCyOzyZW+S4onZFJ5/yfK
moXZRjvnJdPiCYSwCpeExQxMfZ0r3OICnpCU8kSFszIN45Lywh/y4wlnvoDh
bFQaNuO7/fzLJTzBJ+W25f7HNMzySuPFqMt4gmdkAtG+WBrmaWiV33gNT6Co
T/bM0EvFSoZr2i/cOtINERi53i/M8YqwaLYkntBaxLR3n+8Xdu9TeAhI4wms
C53ap2aTsc5zFjqPZfAElmbuSSbzZGzh8bklRzk8wetreiid80+MpfH1yaFn
eAJR99xY3p8kbOxcz2tDNTyhuq5LOsQzCfthKNm6oY4n5K0b3V98koSJnGD8
TqmNJ1x/M+gztZCIyUmV8dzUxxNGeuPVSdgSsY8FdLcCLPCEmVNlF/kC4rHB
+Dzr+x54wjuigphL9TGY2qCSYfFXPGGNqfq8RlwM1n1mXl3A6yjv8q2kvo8x
WKsruySNL54Q7i4RlXc1Bqt69YWyPRBPoKRNo5wJi8ZSBNSiVWPwBBXpv+Ip
9lHYRf0N//pYPEEpOe6JumYUlhjh7SIRjyfk0FrmyUtEYdE0lUasSXjC1A+3
a3vbkVjAyn/XR1PwhCvxdVsvLCOxjzmHda8Kjnh2wxPnNsKx3YXvJX2FeMIx
NW95o/xwzJpXOP1+MZ7gHFyQcvVDOGYeZBAgUIon8H1x+8VGEo7p2bZorVTi
CfeInUIMzodhD7CYdZsWPGFffOXJuFYIdq7qNqvbFJ7w78viYsu1IOxCYNoO
1wyeICJhLDaAC8JEDJg6S2fxhIDDCGWN+kBMkXzBY2sBT9jgpyPNeR6IOct9
29FfxxMsKAbFE4MDsMXO0Y7bRESEr+paypVM37C9hAfpI8REhC3bi86hc/4Y
uU2ux8fjRITHdzVSukv8MS5md8kcMiLCa7lQ4/fP/bEnmlfTuamJCN/nojee
Zvlh5ZN2HsfOEREMFInisl/4Yk15M/qR54kIK35KadYSvli/20NJcVYigqF0
RLEfgy+2cZFvx4KDiJC6OPCvscoHu2japD/KR0TIWjvvKfWfD+a/dV6y/BoR
YVHG++fXE95YVI0Li8b1I//sxPW1ei8sJXh5e1uUiGB928BVz8ULqxGvTBMU
JyLccmGWoD3wxA7sjFiibhERPLhWV7VXvmInlTq3xaWICJb/dYuPpH3FGDmh
o1uaiPCgJqF62eQrdrWSzoPmLhEh84Ruaf6iB4YCPugn3yMiLGGJFSZpHth9
/clbMveJCDKfPgmlmXlgz0QVWcYeEBHedfAM2wh5YPonCrc/yRMR9t+ZR9at
u2P/A7SINrQ=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 45864.}, {-10, 15000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7778079099686785`*^9, 3.777807978426996*^9}, {
   3.7778082916189933`*^9, 3.777808303793483*^9}, 3.7778083625296135`*^9, 
   3.777808492982895*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "15000"}], "}"}]}], "}"}]}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 
   3.7773605967737846`*^9}, {3.7778079905782056`*^9, 3.777808062886483*^9}, {
   3.7778082817566967`*^9, 3.777808307504813*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "13089.092965880714`", "188.70544556900006`", "69.36256092882437`",
       "3.09507866290807`*^-102"},
     {"Tm", "7400.562338827537`", "151.62097602296475`", "48.80962075924532`",
       "1.0555519965419172`*^-83"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778083077857747`*^9, 3.777808362576478*^9, 
   3.7778084930622635`*^9}],

Cell[BoxData["0.9869684198672108`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778083077857747`*^9, 3.777808362576478*^9, 
   3.777808493077899*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1F1MjXEAx/FnzWjTWqyL1tocWxfNYm5YG9q5qHlZtuRCbDiyktUIjUrL
g7ZCSJTG1Fm1SmLVMkcZj1QS6lAoKr3pApuXqy7IS7/v40JbffY9/5fn+Z/n
nBYn7I9L9DEMw/zz+1f9JDhncXZL85gcpI0zs5o1tOOiLHgorVKN+zxWu8rk
ijbWV2i8iPZWqT/R7hoZ3SrT6jQ+bHFfN2Un474NsruF+Y2yivGBJll+m/XN
csYja3m9BAPuyFbmZTDvG+Ojd+UE11nHdfyY33BPzuO6QfflL+7TfCB7WZ/O
uYJvyTDex1DmD9H+nLuwTZbWy6hHsv2GnKZHamV9u8y6Ll0dMpfxwE72q5Zd
dBudzXM8p+dkLO+SHnqSzqlknyeytkLG8DnJZtx4KiPdspkOppOfyQI65LnM
KJdeOuIa5+jh3Fd4vVeGX5Wf6Ww61iur9Dk16uiBy3LOC+67RO6g3bSHniyW
C18y/5JMpX/wveikwy9IRx/nLJJZdHqh7Ke/Fshl/bKU8XzacV6O0/Fn5epX
Moj1JbT7NPvSLn2PjQ2v2feUrKK78uUMXch4/BuZliebaE+u9BuQTv5vJNGj
tEUHHZfBg+x3UqbTsXQPbTE/7C3zc+QJ2mD/IbqBXvlOejM4Bx1wVH6kHZky
aki6mF9G+5pymo5Nl3HDnDdb1tPWHjl3RJpH2Je2DskW2r1XBr5n/KDcZzfj
XbQzRS4Y5XzMj6Qd3F8Kbe6SpbSVJjto53b5nTa43qIxOlXG0Bb7ZdKOA7Ka
NpNlH+1ivTHO/CS5lHa65DbaXCvzaDfzm2ljjRyzO9SaxX+C9RvlKtraJJNp
B8+n2B7nPG32+nj5xe7NMmSS8+yW62lrpzxMG1Gy8r9xr70+Qf60x9l/yQfW
b5Vb7OZ+cu2OlY20GSdH7I6W86eYz/sbYbdhzf5NnPq3/jcxJ2ku
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVV3c0F94b/nyM7FEJFSIjJJGRhPt+bGUmo1Bkl83XTCGzJMpO2TPZe5NR
VvbOyN57r1+/f+49z3mf89znPeeee9+H5Zn1A2M8DAaj9W/5//7NQuTZ0Hlz
RMM2Jfgu+Bc4sX4cOcTIgfaIePiR6S848/RPwS+MFtSPsKlkoV/QfoQXn4Mx
hXW+1Zudqz8hr+UCXRLGCfyI9zNI1H8Cm8CVri8YP0jfK3JeZWuCPzOJ2dGY
CFBoI+I43qyHvOsUFrElEWAfM2pR3VUPvjaOnEk2kXBj68S6KLce+A7k47+P
RwHEHOjibOrBi2LlY01NDMTeaGupXf0BNJcY7tpDPBRd/+7AsVcHpWDCFIVJ
hTNsrCJGPLVAr1BYo22UCq1wOjBCWQuOagSG9D9TYX3mN/Jfr4FbzxJSIz6k
wWJcNp5jcQ1kvBnlC2fKALNXmduJMjUQ3agp9UnsO4RVcBli+qpAIoW1QLYi
F7jwLr6myy4HS+77PhwrueDZIRrt/rocYrLsNM8w54EzjWGQkGo5HBTV7jW8
yQMX9ebfkRtlUNT0VFzmfj4QG8W+Z7xbBrzznxulhgqA2CY7K32oBK7w0AzC
XjEwTPJGy6sWAc+sSHAXRwlQGFA72vMUgUiCnpyRRgl4MVeP9BMXwQP61EK/
vBLwE3EdvF9XCN4Eoh/bLUqh+j+DqL7bhbAw8vS+7kQZ5LoSa3DdKICC998q
nZor4ZYKvaqtRB7UyHc4kOxXQjlFxB12ljxow9++/vlaFbjG8t8kJsiDGReJ
6CrvKiDtP6F+3JwLF006HQlRNUi/vRPA/igXUOxhxK9HNVBXthp/+XUOJDmx
qGm118LQfcdpsd7vsGlNiq5P18LoXW0D6ZTvIGm2yXN6WAtM+w87w5y+w4R2
A3EqVx2Uz4VX0Fz+Dkyi5jU73nWQJDrO52icCRFHOTfD7/4AgqmBp8ZE3+Ct
J1D2ptXDn+n0iDPuaTDownWUVl0PT00vyjhrpgGn3bmFl331wKO9mcLBlwaN
z6Ya2Aga4DUJL6nIVCrgS/u7OzxtgLtBz0+vqqTCyzMdS+dpG+Hx2nuyXzdT
wPrd05YHb5rAiwi/e/liEogxqpDSxjRBXs0znc+7iUCcLaEwWNAESW2Kr970
JkJcF2PT05km4GvlIsD7mAgdF0fqLBR+At0Bufx3ikTgS9Mu86X6Bav6TSFm
VAmwUa+WXva5GSz5tubX78RBlSZuzr2gGUY2+UXEmeLg7RzfNVxbMyhZLPcU
48XBVXLq5KaTZuA2/GJlHxkL6urtcT0GLaB1J7y/ve4rFEzci1y51gokH5y1
lTi/gOOJlN/VgjY43q4ze3orGnKv3yqVaGmDnfFEza/E0bCkzbz4+G8bSFW6
dV4Zi4Jn+UfKn6jb4Wa2VeNcYBQomxXSEli2w8+bxWJ+i5HA3sWRMs3+G+Ti
V9djCiJgocv7Wc/9Drhs11XiYR8G/vNubs+0OsDLWPhERS0M2DH2oWvPOmDI
5X6dxs0w0L9h0Eju2gGP7ia/wF8KhT4/cW6ZtA4wvbw99cc0FGrFdtYLCTpB
pefVXVnzTxCZYuoZUdkJYB1iUBgcAlskfyUZmzshu9hZQN8uBFQtdQkS+zqB
4GGVCXoYAsSCan5Zq53ga8znH0UfAs61ou8bWLogyEBgLy8xGLRGKKI2fbog
PfQsrZ7vB6A9V5CjotwNS8Pc0eT3AsHuP1673sfdwHNR4/Oti4HQPpAmoGPa
DSseYXuZc+/AN/ZLkYlHN/R0fvWM8X8H2zx+Fe553dBvasKg1foWeuQe//xG
2wNesw1kNc8C4JM7ZpxorAeunrxLqmzyhYe8Kdzqiz1wZnT0IlO8L9CM3f/v
624PtIbcIatx9YVQiCAVou6FOYrUlEZeXwjH5xV6husFlcCsX11RPhAZoPO2
IrEXctYCDQPcvOFrWJGgrVkfXOITJ01/7gVPZHVfVzj0ActEgIv1fS+4sott
JvLsg4O7OYPPebwgTlvp6deoPhBRpT9zuuIJ8ZenAlqa+8AqR9Hwk6MnJMWf
HWO/0Q8vYpILmD94QPp3i4Ch9X7479ECHlOTOzBnhig9OO6Hs1uSwviR7hCZ
UXS2mXgA1kTolm+Zu4N/Kia69MoAYBRsKW3I3cEkPjQjUmkArN24zR9qvgS2
sIoWzfQBEHnVxvBs1xXiXpJTdusPQtgu3v3oF85A78bfdc9iEOQ8Tin2pZ0h
2EUzvM5pEMQSXi+FMjnDa8c4prygQbC3PHTx6nKCJzaCN0MqBiHxVYE5t7gT
MBjpqqrQD0F6YcZlXUZHiLyf+bHl9xCchBPfHDjjAO3hD09FR4YgLPW2qseU
PRD8PXqRMTcEGvKqmoZ19mDrrCQTgB2Gg7RV94FX9nAveWVXVmAY5mkMHzkc
2MHhCZ9eXfgw/Jjw1WM8soUneYXXSvVG4CJtQlwWhw2EHuuFcj4fgQ2n7zeP
SG2gWf4MNtJxBPDMf7ttjFrD7THNIccPI9DqrcSOtbMGavK9QMHaEVC+UPTd
McYK6oxFN7LZ/sDEd560O3iWwH6xuiJl8Q8kLMppUFA8h3N5MwmSu39AraZe
WXPSHDD3KQNG8UahhFyf5m+pOYy81NOgvTQKeZv12jWm5vBx/HDZR34UKKfk
xAMbzQCTJnLFOHkUVJ/HqhIFm8KQcJ4n69MxeDx4yXRIxRh+/h40rX4+Bpek
csjLbhhDoRlWWcdxDHzD47Q6yIwhOFr10qf3YxAceMkj9qcRyJ2s5OFVjMHF
J8nfqqSNYOjvhQ0b8nHIanfLKpI1BLmMB6yq5uOwYW6l+9jaAGwYj4Yw1uOQ
Iutsd6huANHByR9zHcaBpu+1R5OIASw57mHPe4zDuuUVpzE8AwiW+jreGz4O
XMzNfkRR+jAwMv9Fp34chNLdk0+inoIZlSe96ZUJcKDXiC1M1IUQL+4OOvYJ
qE6hrKp21IWy7W6/n9wT8H5+zJb6ni6Qj3DscglPgJeXxOibdR3ISWvtXVKc
AJztWm+KlA7s4eg/2blOgNLbD22vtx6Bv0M2xaveCQj/nViW76MF1EHRURnD
E/BgY9Q9WU8LIlN92PsnJuAuUb/jsJAWpA/piPOtTMCHHg7Rc7Oa0AzEln/P
/IWGXD2vr4qaQE5h0Cor8heEDs/adrBqQHDyuXdUn//CV8ODZ3mnD4C++phW
LP4vEBau0GmPPYC4gbkEs9S/QD+UOCVY/QByyarLavP/QsWTTOWPrx9Al+2L
BfvWv0CUb63QhfcAaCTqFQaO/0Kgqso+3Xk1iOz7jzhefxJoSIxTfuQow1E4
c6ehySQUnHJij18rg75WSxSHxSSM1zeOv1FRBs4B5uuZTpPwactX0nlVCUoG
W5SKgyYBmVvKrtxSgv4Rlk9tFZMwn/LEIbXpPtBOtjEe0E9BEEGygBC7Argm
Os9UME0B2ThfosSxPIwasma/ZpuCo3iicL9eeUiZcgZCvimw+2xv1+crD8Iz
rIbUclNw3CDEqrckB5rzLmkc/00B23KlYmmdLIStsguod05BuF728NVoadDW
PNcR0j8FyauvH6Q6SgND5YlFx58paLTInzZTl4aEt/0pSgtTYGa+VxFPIQ1Z
7AGX5PGnIQD3YGDUWwp+6ixhxYWmYe1UXIX3lSQcNuV1cERNAxHPFTXPf2Nl
FW+spXHsNHx21nFbeAngFfaONCl5GkjGvv311gcgNjSSZsmbBn+u6QuKnAA0
JxdKLrdMw3v9nX4hBwS8gi6x1MfTwMV3j32mVRwM4pDVgf4MuGix8Y9Wi0Lf
99rfl01ngJqMSiDxoygolkvxi1vOgFteU3aBsSgI98ltvXaZAWf62xfKyUWB
nFzVlfDjDAjaxsXJPbkDJU76vtQ/ZmCvjHxvg1IEKFU8v3Kwz8IjmeSXmolC
4K2Lj5G/PgvTb4XP17wSgn1zHwNz/ll4l/7Yz/SxEEx5B7Blis9C8eoXE6tz
QlBaFpLBrzkLj9kflKv6CIIRR0KRmN8sfKTC1lM5CkDZcV37g/lZGDpjYTLo
wQ9keQSWpKuz4Eri0SpuzA+6JrJkdVuzgO6KV7Up8MNJ+y85fswcnL1seMv6
PD9IxXXUUNHNgW1r6VZOGh+0So7mtUrPgZ9AzfJi4U3447cfLhs3By91pqbD
S3mAV+yu0EnyHNAdhnDIB/KAx9rL7sJvc6Aw2/8HnvLA1UcYavbiOeAZPVk+
c4YHTLiJAvDb5yB+/IrFoOZ1WGmlcas5nIM3FrrdIoTcgDnH91RUax5WKlSv
kH28BjkW+Z2WevNw/xoXZ7n5NdBvEpaON5yHNh021hzcNah9Kc5FbDMPz43i
6U03OP794/c2e/3nIUhEV+lIkwMIK439bMvmQSPEsUqfhx1IzT5npzEugI2W
vc4VQlYoq2O6OsK6AH08SVURU1fhBWNCKBX3AhzqOdXL1V+F1q40F0fhBRgx
JxNT8r4K78WLpKRVFkB9xSF68sxVoD7f2T/msQDVq0N0KxdY4ELVGQzd1ALQ
FQRk3MpjgoRqhezx+YV/9zT35U1PJuCtDXySsboALy8uBruqMoFs/blK8cMF
oBUKDNxfZQTHZiZXo3OLsPk5RvP9LUbo6xPeyoVFCIxym0pouAzhqyZzil8W
oVfuR6EB80W4up4eQZu4CJ9W/mOR2qOHrI0l2fG0Rai3uhlj1EEPjdt2yfYF
izBAcofDxJMedg5fPYtuWQTFtkJv7Rk60CSOGJndXwTTXz1CSeW0QMfS1OGl
uQS8C4EsMiE0gPfr/sOfukvw+ZHEUK4lDazYdPRTGC4BZ0nuZd17NFBfMzga
ab0E/JMDH0wJaMBOf2kpy38JGl3xG5XdzkNr7FmS4bIlaJdqPSRwOAceTLo4
gSvL4DPjrmoWRA0vGsfrndmXgVBQmq/Blho0rYzlq64vA+a/z5HqGtRwo8pK
RUFkGVrlhjPxGalhSM9T76naMojtd6ip6FGB4JcUl3dv/ukV35+yLKSAucvr
uZOzy/BdotHiayop+D4nOyBbWQY13rjRR66kwFrKLim4tQx7r9X5nymRwhPN
x13emBXII5my1toigZ7gHxvsF1fA+vg6NMqQQA1huIDZvRW4wDZjJLdDBJGr
ooVLmSugAV9XPr0lBGEJjWOa/BVoZgr1OTEmhO5Aaxnx0hVYXegUT8URAiV3
Uu/7hhXAFf60yN0nAG8jih3e0RUI+kpm8sWCAGwGx4RtqVbheSWWwk0PH+R+
eJds266CzepifroZFmpKnogXOK2Cakuv0HklLIhmidTZua9C3HChdRo/Fnii
llpW/VdhOCJl5+EhBqitH47Nx65Cf/W9gaxgDAxdYjsz2rYKk/GS+Fq+p+h2
6QTXJM0aFE5qeNO8O0Jb+coWdXRrECnVtDWgd4Ryssqz4i+tQZalyflpviPE
nRQmoM+8BluFb8K6+g8RwwcF8T/X10D+fb7FDuchwhjnqvZLrgEZiVACdmAf
NVN7OrXYrAG5x17CPZNdVDRKmTRnvwZ5ZHMMFyV2UUJmTAeh0xr8ZuOM56Hd
RW7yJVzgvgaihCSrzE07iMdjdbggYA2SK6IG+Xl20PtVPfiasAZpt3klQvC2
kWq7KIltzxowHDiPqvzZQGIxP4WC+tfgc5rmh7mKDcT5XPPZt6E1oA+gnC+J
2UDYM3bl0+NrEHZB+uKp7gbKE0+3fLy8Bm96dq/Qja8jmu90XVJn1uHk1voL
9rU11P9uK5pWZB3GY39cy36+gm7d+Dt9IroO3ZRaNlN3VlBg+2++WfF1sG6z
PDYlWUFw9ltjsdT6vxxcvqqVvozSwg02tFXWwUymNKNtaQk5x7crfDZZB59Q
7PcUz0V0sTht70rYOthe7uSZHZtDDtrhUsSR6zDD9VsLUzKH2vffBK1Fr8NF
hbfej4LnkJfYU7bauHUw4uJWaMbNoYXaC6rPMtehhOW1RXTqLCpr9UpN+rEO
c6VaYV9fzSCdv7qaXBvrUDAuPx2vNYUotcLw8bfXAU4L2hNvT6G6lrackd11
MH9cQzxAN4U4CyXIgo/XgfLJt1t9A5Noy4+5Zod4AyruxPYw602ioBtTXPVX
NmBqWjMs0+ovqnF+cfxEaQNuv6W6Epc/juyXEzNEVDegeXi7XSdqHHE8G9E6
p74BOYkS7fB6HAXeV8pr0N4A/wb3Yp/74+gR001THqMNYFrjNJ5rGUMbPzY6
9l03YCJ1DPtYehSxU7kmhaZtAK9v47c+i2FErNV9N/PbBoiubXBQSQyjha88
3T+yNsBPf8oigmoY5fCOYTcLNsBlIOxOWP4QElOWfqpWuwEhcyw8t08H0YP3
lJcohzbgTDYVaULSAHpFlvjBj2wTZunISzPZ+pCB+hFHLOUm5ApnR8+e9CLp
zxpVRWc34ViAdP7ZYC8iuU68PE23CaT4NBcufuhFofcs70mzbcKMvWm303EP
ygi4TYgV34Qni4m+CdPdqJ+o1dXVahPM61s/LY93Ik5WHz49281/ub0hxLG+
EzlLSMwgh01Io/Ke4EnrRJf+y1EjdN2EFSEuTWabTqT7N5Qz2GcTdKbHWy7h
daKJCr2+5JhN6MnKp2Xh7UCLtqv8nc2bEMmjrCOj0IbE3qfN5rdtgmBaeWfS
pTYUmGbwJbxjE8a0/b2Vl1oR71g3sW7fJiRXCje9Cm5FNoolYzMTm/Cn7xNW
dqQFbXN4vj/a2wT3JdF0Ms9mdDp8bv7atS1IMc2bdz1qQh7NS/7y3FsgzPpy
/mJ3E8KUNnKa39iC7fO69zEZ/3C4q1mGwBaQdMQqxGs3Iazq31ke2IJ7I9eW
OEobEX597gz/oy3g4dVXHvRtQESZqlN3322BaE+napPaD+Qfze2tG7QF7pqq
yvZ8PxBxAAGbe8gWaHz9r1mb6h82KTGsitgCK4eEvPa2OkTCzDwJSVtgbC/4
SUepDpGFrk7IVG4BZ6uLWIpmLaJ6GTSmsroFdlue0qRXqtGceP6EwcYWcEQX
qT9cqEJ1p/2T9ttbkPPlb/puYRVyeMMyF3G4BcqsCr/llKvQ0NuCtTGibUgy
O5d/7FWJkqKGsDbM26BreFwIR+VItJiDLVhtG3BBYVY63KWIxuU+R8LDbahp
HxsvPy1By6I2nAVa2zDyU8HbqLcExVWV8gzobUPTB0HHQM8SRNioKMT8fBvw
R14Mcv0pRh09drI5XtuQvva6WSC+CJlsVJl15G+DQHKb6X+PCtB3P6mA70Xb
oGHS0qV0pwBtMfxMf1u6DUg9l/zRxQL0Rq5zQbr6nx+/j5lnhvJRXMykRWnz
Ngy8+blZqJePBmWJbRMmtsFEMGiF2SoPKX5Wc3Gg2gESmWEb1twc9ImvL0rt
3A4sGOzo/AjPQUMNj8t4L+xA7gHvVuDLHGS+Zng4d2kHKlJ22GLkc5CvjKO7
HscOOHb/HZJtyEY1q9GesuI7QHYjjUNMLAsJSE8F0L/YgXn7PeztZ99QRmZA
qIDVDhiV38hQEviGmC/cjFW23YGOb33ZBQTfEOWMS4G30w78vV7x3TYtAy34
UY2tvdmB8pn4r5Gb6SiuRVTwV8wO0PplfeaITEOU6iGjLu07sOdZ/KiLNgX5
lAvPh3buQHXx5+2DtWR0xDqymd2zA1ji68ZGLclofouDZGbon17+b/w9j2RU
H14h8GB2B2asuORpV5OQ29CsPzdmF4KKBz519iWiOQMJgWH+XXg1FNv9sjMe
tX2R0q0V3IWrGczhRwXxKG9Q3if19i4MCvKvpkfGIzc19X578V24YPkTF6gf
jyhxZm7kCrsgQfD5nelGHBJg/vhDXH8XeomPxO4yxaFXo9PqcUG7oFjrVoTP
9QU9u7T40jdkF5rjzvM/PYhBcppryRahu8CyOCNL2BqDqNsPdkWid2HjWarp
TZsYlFhJFdOZvAtPSKa+rpR/Rj9j7kzhVe5CnBaJWoF+NDqv897BeHEXNCTU
h3RHIpDq8z+nYiu7kFHcx71RFIGCXG68o1nfhRsm69fqQiIQaWRb/I+dXThZ
tC+hlo9AeL0Uv1nw9uBzdY3Mk+JwtKYcxDVKvweO1i5OlnFhqFXyw6im7B48
ejdynSz6EyJ9MGbOq7AHz2vcJJTdPiF5g5vbhIp70McZ6l2r+wn9eP2brFBt
DwizVdxvM39CZRVUd87r7YG6cvC+dvpHlCYc/Om3/R7ItYro3aoPQT7cIfLy
8XtQ7Pg7TutSMNogx6vSS9qDwInJ3enjD0h/1U7APnUPbOrxJlyaPiDRgodM
X7/vwc5idleRzge0Jk6/tVm69y8fBTE5+AchXbXY2NiuPfDk4SZz2ghEt5y/
7+zg74PRzoJVKsFbFPeYyYKcaB8Im6d+GQ0EIArxDxMspPvwI7LJ2jIzAM1h
bVsVqfehwKEt5olGAPryTjAhgWEfEogGsvIy/BFxbLmSstA+kHhdxit65odG
G34lJZvsww24G7pN4INK3aJFfM33IYn3L0PEpDcK5X/RamKxD+Eb2FjLOm90
/wv51jW7fUjkb0UlHt6oxEFFKsN9H7wM7SfKTt+gj6y9E1mh//SMGKt5id4g
Wc9xppK6fdDaIzHIv+OJWG7n5kU27IP2IGPXYyZPdLTkKevy8x8f25t5A98T
5WuzWom2/8O6y+8etnkgZj6TyorBfVhf7PCMNfRAB6OLOrVr+9C4gzEev/ka
ZYntRjYzHUCGjVGD592XqLRhjnae5QBCPgXErZC+RPXKQ6FE7AfwmrOUMnvI
DQ3pVwZLXz8A1IZvwunmhgh93vhX3T4AjcAvXsvVrki3jco5T/UAYpl/fpbX
dkGkTzi1or0OoA7dHsuocUQXZi/2lvgcgMwwiY5PlCNitiFT7/c/gPxGXv5E
O0ck7LWiTPPhADr5shlT2R2RQUqBbNDnA7ggGe32I+g/VLICwl4FB9BY9nl2
ycIBGb9+dOH5zAHQvWH1Y9S0Q6PDGbnq8wcwOEn/KEXEDmmKHCmJLx2AeJGP
95PLdkh+/asv9cYBjExOF+tM2CJuw6ndouMDwCcR1vW0tkVrstZD+BcOYeq6
j/udUBv0ktIn9ovUIfxW/2U+e2CJtp/33fWTPYRH9ccyZc2WyKrp2oCNwiHY
EY0EDkVboqcezdTSKoeQh19jjhWzRJIbVF4Ljw8htLhme8jTAhH3RRvdtjuE
SkYDr4eXX6BPX3K4OuMOIcHilxDOywwZtSlyZiYewptSNJqoY4aEj+c4/FIO
Abyd9KSEzNCQLgubeOYhVO1qGdyeN0VXGT4ypRcfwpjV3LV5dVOUE21/3rP9
H78haPiqoAlqixA+5js6hE55bxkfRiP0tanrkOz0EEZoDE+6jw2Rza7VwQz2
CCh3KVIejhoiGq3U3RiiI8DLCfVbiDVEurT0G8Tnj8DIdJ1Wn90QLYTuz4xz
HcEQVxQV351niOhjRUew1j/+UwY/My99RBzmUpr++Aj6RUQCBEz0/703wgl1
ekeAVc6p4L2nj8i/5thvGR7BiNKMVcE5fXQuI4lW2+YIaCNSJOfuP0VMdYG6
VwKO4POFXPLTdD0ktKE7973sCIxpFI6sUh4j4e2LnY2VR9CnRBI64/wYiez1
lY7VHMH8e7Hdb/cfI9ET1Xdnm45gsEmIgmnjEQJSGd7/uo8g/dZT9hDJR0jx
6g0HsaUjeH7n5T2pdS1k+OD4tJnxGLL+e37k7aWBujgvEWUzH4NkyqSesL4G
kjwVpvzEegzaE/xOTBIaiDnThkGH6xhO/WsdQg4eolHCKZFFwWOo+8Jwa/+/
h0i7tNmWTPEYaomvc/g6qiNF5sjJ+67HYNb3/I5RjBoq3ylYuOl+DN0P34Uo
eagh7rbO9fMexzCANS0yNFJDJK5kmBGfY4jNWZe/cEMNNXa/YrAIOYavOL8R
nxpVBH7GGoFpx8B6jouodlQFCa3camrt++d3+6jzaZ8i6omwKVkZPIYetz6f
d0mKyA6XlU795xgSO1rVKewVUU4oV+DDyeN/8+fmIvVZRcRzl1ltZPUYWv/c
OUOsdh+x+VMMLxKfAJUJjImMK6BzV+dWSO+egJ0jN9/KbTmU28I+ziNxAva5
Wta/qeSQ6n+Gncq4EzgzXofdmZVFQT9H8z/KnUCZ5T7ubJQsIrHudb708AQY
z1rK25/IIExFHR635b+6Z2eDR680WtX4QqsQewImLfhDP3Il0VwX+3PdhBNY
Ri+CyD9KonGVrErr5BPAfxV79p2dJOpQqDYK/3YC5NF/6TgFJVGO+ETeZPEJ
SHanKQ2U4pANO7vKq44TyG9m/FzfDmhtK9MvH3sKc4txEcR3JNCcrdBwI8Ep
fMNPUasjlEDjK5W8Q0SncJmWmqS7Sxx1zLX3YihPoWmi5OqupTjKGVljVb50
CsZdSpdE08SQTb1gzdytU1C7RI29yXMXrX2q2GM0OoUvtSqdrFYiSHMq6fmR
ySmEnZ5vc5ITQRWC70eGzE8hZYQRQ8Iigvx79WoirE8h5A4mYKLnNrpCd+p3
1u0Uksbl8/TRbaQcjaMj/HgKVr6x2TJXhFFmXKPQUvUp8BkP3BUlFkTn1rNS
m+tOoTuM46X3nAByxkVcTG84Bf9p1xXMLwEk/df02LjlFDDfxq5/eCuAhllJ
Gsb6/vWnH+60RyWASFPvP+xePoWl4cqH5ay3UIGm2Z0/FBjcWWshUzxLPvR6
zsL0BRUGlwL6HV2qfOieq23YPjUGt5fEGtEtyIfGvriuX6DB4BJsz0/9OriJ
SKcD05UvYXD2JcUDbiw3kb597sUaDgyup9zA8IzHDUQefLCfgDC4wqIDo2B3
btTPcnqNH4fBvTC2D76syo0S8vE1qyUxuNe2HBVbV7nR7X7yvGEZDO6cWvVx
0C8u9IzpynMaRQyuqFS86uElLlSSKTXko43BJbXxFBb8uoaMfgWWmdn+8792
bGOly45mpGudRuwwOPROhVhQlB2Z1WwLqjpgcDssN5356NnRi+In2bedMDil
oRiv1h42ZJfMl3TGHYMLebTa5KfKhl579rxP8sfg2vItCGrVWFH0HQaD8VgM
romCtJfYhQUxFKoyPYzH4KLKlsxI9FjQFz6f4aYEDE5b5uugMI4FxV1b0chO
xuBuDWjcoiNlQakXau69+obBmbxwxsx8YUYF64aCDMUYXGiy+/ZJ9BX0O/0b
kXY7Bqd5S/VnShgDOgkidKz/jcHF2tpQVpsxIB6Hp1N8nRhcg+HYGKMYA/KX
OF9L0oPBqTVTPP8+eRlBt6tr+SAGF3xf5hqx8GWUd6SwzDSNwa12fGlXnr2I
wlXmuqYPMTirA50vmi50qF5QEvfgGINbJCngd3xIhzYuxmRXnWBwPMxBBb9v
0iGVKZXACCwWtzSrfOnmLC0idimWUSDC4gSXG0LDtGmRa4JvSeY5LC5KpMu7
QOYC0ttm+2rPhcVZZJS2r8qeR2zSH7Cn3FjcKH3xH1qO82jh477RWx4sTv7Z
7en/CM8jR7726/E3sbgJxhn9ofpzKOiFU2m7EBan8VG9/pbsOVQ18auHSxKL
46zIJ+98cBYxtVuRjT/+d57McnDdVSo0xTBo9UIXi0scP8orWKZEGS+kunb0
sDg5kzNi2FJKJExCH0VhgMV9LPt7OVWVEilL13LcNcXizIqbXS54U6BXZecl
w+2xuJxIfp7DAzI0llLirBiIxQVhnkRQs5Mg3bEHLyrfY3EdxlX3zh8TowG6
ZT3eD1jciDtfhEYvMeryZ5Gi/ojFRdJqmUb4EqPG528peiKwuAgl/COCJSKU
xauboJOIxf28V55/q+4MelV02vK8DIvz7a3iV4oiQIcrUVXD5f/qO30Fb50J
kPM1wVzFSizO4JG/2pEWAbKLNAvnrcHinBZbAl3pCJCJa6f+RgMWJyVEdXko
Eh8pSSRuu3T+6389qHIsCQ8xNMpeCZjD4piD+dNXxzCIKyLngG0Bi7ujssB0
XItBwmaX+moWsThuFp0ylIRBaqQrgXsrWNz5yvr5Z+YY5KscdmC6jcXFsZgQ
8i6dSqz2TfbK4uHhfrUlT7Xxn0jUzXoEEjDg4Ur2nVoi8Q8lfpcsmMYx4uHU
2y/Vp3YfSIwEPJQSu4KHI3n/tpMs6UBi5zrngf1VPFzInanfHTIHEtdtfptO
cuLheqol6CXe70uE7jFK1Qnh4Qi/vr987fqeRPwvP6Ynt/FwZZqU/ZKYPYms
6PX9fRE8HJ8dQ25G767EL7GGHH6xf3oPHZN1PXclTjwsmOIl8XAOJIr4d0d2
JMge9O2LSePhrPYrmdPzdyToWaF3QAYPVy43Lf703Y7ErYbzgdQKeLifnxlc
4u/uSKBwd9PMe3g4CRnZaB6aHQlF01lJeUU83B9bjdrjpW2JxyJqTFNKeLgC
ILSjadyWMCUp33+tgodbfrzMZxO7LfE/efYX6A==
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 45864.}, {-10, 15000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, 3.7778083077857747`*^9, 3.777808362576478*^9, 
   3.7778084932028646`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 70K", "Section",
 CellChangeTimes->{{3.7778078326561804`*^9, 3.7778078368416896`*^9}, {
  3.7778083172237186`*^9, 3.7778083172862897`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_70K.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "200000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "10000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "200000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "C1", ",", "Tm1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1000000"}], "}"}]}], "}"}]}]}], 
    "]"}], ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777807846428356*^9, 3.777807978114668*^9}, {
  3.7778083197737355`*^9, 3.7778083417958994`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV13lQVWUYx/FX3LOMITUsM5waQlMGtVLLsaOZWVGKNo3jOHQlHGnGEcYF
NVuOpXaHGEUUNTO7EgluueRCiHjFrRT1hoiIS4hIaCigEIiIOef35Y/455kP
z3Pe7Zz7nvf0ioodN8XPPPxrZYwTnb95lhPS2w93orXIse/rtrJZ4ni7XyvZ
tdyx5wJ57yrVN7SWg9Y6DspuVruWx4lxM8jHpTp29cOeNMclO+6r3rdBvkZ/
ZqPjsfNx2GbH3k73VO/aqvqPHshJ29T+i0b1Jds13o6NyjfscKI9pkn2/1X1
1fQfskvjL77L+Hcr3x9P2KP27tN/3F7N369BdmfK7nrZ85vae53rM7Oc6H/2
X+a7z4nWgzq5IltxKNebHM1/DvWBB5xY/UIt9ioe4vo02T+efNhBzbfgtpwt
+weTH53rxKTwO3KBXD2IetchzScGV8phX+G5h5243V0ttzniRE8+TpKDQmrk
HkeVr6+SM+TqrtS/dEz1deS9smvOLTn8d82n+KZcJLtCyUf/obiTfLXsnXVD
/uy46qtwhxNOtC7hFbKrPQ7KU3+1eItsxV6XB5/UeFdWyIflkq547CnV38UX
ZVcfHHNa+YF/y7U4Fls+9f8pXiyX3Lom58nWvjI54E+1fxdPkL3BV+V1ctBM
XIbzcZ98xcJSxTjck/we2RVBvkn29rsijzij/PkS2S2XpJI/JQd9gbsU6Pp6
6ifi3n/JHtl1gny57HkC9z3rRLvmkjxD9iSTz5Sta7TXTP3ey/LIQjniopwg
W+2wD4cWy93OqX41+Umy95XzcqpsanAFHn5BMbRI13fn/7Nkq5D6LNl0x4bY
rHmbUbK9hesTZSuf6/LJXyYfqHHbb2oeJlK2pus+mDTyUVoXc4N57iAfpnFb
j5OPl73rGU82zqHej3UJwKNxAc/REtny4QLZPo6f4j7+hF2y1VrPqdkg20tx
JV5I/QDdV2uqfhdmLve5TL8rk4Nv63do2ui5sAdS/w6ejJN4brL0uzeFuDPX
d+Y5W4r742DtM+YDPE77lJmD92tfNGtku2V++8l30L5nSnBv2mvN72Y28wnG
Q2jvbfwW/U2T7aKjjJN8E/mdOFL7ujlLfXGu3IB92ufN06Xyk/Q3rJTxcP1k
XE9/C3EP8un4Cj5Oe5vo7yZ2k/dn38mh/4GyvVfvMfMh+Y/3K87DUeTXUn+d
8R5o2ff0XjWl+FHcln1zvN7LJgSX0v67sp3CeKeT36T3slmGI8jvwm/onGDO
4XLab2zpj/6fYV+v0bnj4caleDqLeeIQ6hfjM7S3EadzjsjDg+m/Cj9PPqBc
ca7OTeZl/L7OMWYCbiQ/X7ZfZX3XkV9E+wfL/z/+MtxT5yrTnvdYCv33wVU6
p5n38HSd00wcDtM5zSzHjTonmj04X+cycx7X7VRswnE6R5pnee/O1rnMjMBX
qZ+Ci3SuNO6W97bOnWYzXsv4TuFc2q/Bz3K/unBO8GP8g/BJ1mMino0/x21+
UfRgt87l5hCOZr7l2E5V7Mg5JWy9Yl8czXjHYN/PijNwZ9Y/BY/bopiJ86i/
gGfyfDTjZvrv9Q/t095IHPOD4lScQD4Bu3hetuIo1t+Hc9MV7+BEfXeYbpXM
T98ZZgheyfgn4aGsx5e49jvFVOyNVzyC+3K/K3A72u/EuTJwhWIobmZ9InBG
suIsXEF+FXbjLDztR8VLeAb333Cuvc18nsMBjGdUy7mY9fkEZyQqJmLXOsVt
+BGuz8fuTYp1uJrvwkDO4Yms12s4n/sXiT0rFRfgogTFNNzwreIxPCBD8Qb2
6fm227V8B/C8BGK31sfujZtSGA8OT1I+HA9jvSLxWI3fjm1pn+dnAY4mn4xz
WY80PFTrZe/GIazvMZym9bWLcMwa5oc9Wk/7Hu7Bej7Gd9EK+u+JPexvYdj0
9zr54bhymeJ43ET/0TiZ/Si+pf575b/BHVZb/wFMrlOQ
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVV3c4128X/n5VRkYSUgklO1KEQp/7g0Q2/TSQQkjIKEKLEtKUkIaIQspI
hZC9szfZe+893t5/znPd13Nf55z7j+c8595jdlX/Eg2FQjn9L/z//GwrZ9a8
7TJxOuON1/pletKVP6B1mXICsXcefdHRoidpTf8mF1NOY8o+6HG2JD1ZvkIT
nkCxQhtPWjnDAh2ZVMqxPZLiisqNcYzCvnTkPine6rcUH1yYN0l1+0pL/u37
EB9KCQa7drKqHdsmMkmM2TYsJRg2L+yyYhc3kg8cXIQjHUJwa56iv6lzIym5
pBb+peMVOBb4pLcmbCS9mMcCsrLewGt+And1NpLsO7nlnREO/7dO5u9ebCBT
YcnzivIJhVbpLYsHaEgu9e9ZZyw+wXdWbq2Ci4Z00dtozlX0CdtGKOG5VBry
kFnEp+Cn0TC1O1NFU0slY++1SQbxxCIstq6s1Y1KhhYYKr9Q+ILLP7VU20so
5LGP/Mmq6Ymw97Z5p0uzDjtRDW/BsURIvNQyqm5ew5uvToa0fEnIfvPR4sG3
NSz9yF7Iv5eEcZFy4/uX1vCj0FTxuMY36Acfm60sXYXE4OsC5eZkCF3bb+oS
vgLe/exNWPiJeBOt39pXl7C/X+5ZtWAK1Jh0fvzVWYJchMkJi/9SQKtZzxYg
uQR9rk/ffZJS4GDz+6TN1CLubzwaUG6bionrD3prXBcx1GqqYdyZBgs219FL
fgtIfvw5w7UkA8m/tlRfKJhDllrlNYbFDEjK6Yid/DyHPxtmxV4LZWIsJDzd
4Nkc+tyOhWbezwTtC/OxgnNz2GFZ5bKJ+A2DJl9rkclZEGHLwcVnsyAuZLUr
k38Wka579E6XZ+P0PdH7omHTmL66mRDrzYZUnVePmu80lKyn968vZ4OW4+m0
p+M0Os/k038SycGeUcdwZZVp8By9nDV3PwfiT5jbqMNTCF5JOBAknwtpxnJj
HcUpPPQES110Hl7QjIdenJlAk5vISvTvPLAP7zr4pmMCwk5sQzfr87DptFfd
aNkECsx68vdtzMfuI8/+1kVNYIOK761rpvmwMH1B/XFmAjdpK0e2cRZAScXD
hvAex1V/01L9e4XgvB4SWqE5CoXdOps53xTC9NQr2WyhUdDHH1NvSi7EHk7x
pE6aUbyv3l1o2leIDHElg6+pI6jc0Zpjq14EHZ2+lqsiI5CMPpP2YEsxnpvz
fL24dRhTeXoxaa9LIH/aSOQmdRCZhuTAreQSuD6v3NXaOYCHA5JC5J8SPLh5
g9kiZwB7mVijCtdKYP1dfd/wvQEYGJS/r71YirkG4lMl/QCSO0+GjAmVwbHT
Z3P5jn64rCn77E3+gxMr+auqp3uRKHYo9VjpH6x9cvLnONaLkTN8w+e6/mDT
zqx6qkAvzL6taL9gLQfX1NwOqekeaFt/59xoVw5JyTHvmWc9EKgW/NgrUAF2
G2m2uqpuDFXfN6vVqMTlojE6Qesu+A56eJidroSmv5XmFf0uCFCcAyfMKmG1
8ZdsiUIXLohfLGByr8TVsRm/2q1dqPdRFD0e/Y8v/Lxue0YnshXmJr9vrMKs
gLEywdWJkI9WnsEZVYhTj/cPzGrHDEOX0u6SKjhcNdKZD26Hrp3xxg/1VeBa
3E775Go76KX1fL6OV0GKU1PZkLcdN7KPPs7fU40Kt96yk55tON3K/Grauxrb
H+1O8Nf+C0625AQd7RqU+Zv8TWVqgdN1Cae6czXQLbV34xtqRnljtJSRVQ00
j84YfitsxoOwtz8s79agVUZmxvheM2b3+6TfSqpBwj6DkNSVJtSeOFf0mbMW
TNs8rlvPN+LFLUoHXXstLHTZt4oyNuCUxEdRg+Fa7BLOzzgyVg/2do3r7+Zr
4VVOl2NXVY9ABG8+zFoHIfHRnUoh9QjaIHHYjKxDQYwxT7BQPUL8jB6mf6iD
nLt4VKlmHd69/CHtaF0PVxfFGKmEGpxXNb6Tfq0eYaI7GN2Da8A7Ty2h86zH
V60Wt/bbNXh/Rsv03at65HCd7KL9pzt8V49faUk9EvevfswdrUZk+NZ2AfEG
5FvebKs5VI2YL7Z+zZMNWKpS9tGprgRf3HMt/dUGcF88KhGaWYmQ2B9bS+gb
MXzWemQ5thK+nyihqbyNOHPHQGnj/UpYhgfGhmg1ol4+zlJAthL7XqaXGsY0
wt7g8DYB5Qq8v8nEUnOhCeTrrLNlTH/A5XGw+qRtEziKaY7nDpXhmZthUI5r
E8T1Y1m7ispwx+U9T9KTJtxuu/0kyLsM5x2kDzxPb0Imyx2OekoZuC2MdXW4
msFKz+nv8++dhGjEBZRWNEN2Y1voXY5ilAedWj/a2oyIxMnZD7NF2Ni1ciV2
oBkFTNHF43VFcLyhddyP2gJvx7fMlOAinIwam1eVakEpveqN1Z1FWF6TNMkJ
akHOkuIBiBbifNJ3oVSTVlxINHweaJGPwFWTQGGbVig+LBOzVs9HiRotNcSl
Fa/DT508L5EP2XbDZpenrXD8cM0icSEPrEwLj6SzW3Eok0Zn7Ekeci4dnYrf
9xeKjblZb7NzIbDjd/rH4b/QEZJgTD6WA7akvgil+b/4eeVcAOu/OUnRYPFr
o2mDnYNx7oNtOWi9afIf5842iNirxvweyEZAx/Kot1obwjV0jlwIzAYlWo73
UlQbuN1O3FOayEKzTJInv2k7yC1SYj7Ov1FU0WT126YdjJxBtEe1f+O7NVXb
yKUdI2wavDtEfuNZqO7OF4/bIfuZQdaoPRMn1saSaNLb4cKzqjeolYnmLo4p
B6YOqDrvekqRysCJWH1+3csdqFBP35mz6xccdq80U652QJ/3IJviShpCn0UF
JF7rQMfMz/jW1jSMuCxQt93tQD1H2iG/d2l4pvyuoy6oA5fsn/4K4E9DY+vg
W6O8DtRqLT5Vlk6F9RZPLiveTjCUMCRuuPoTz71EK7cLdEJ2mv9mnsFPpM3W
+BSJdiJX4PZspNxPMLUKzovIdOKFZ75pHs1PJESX1Y1odmIo9ieHW8gPLJBc
L5zcO/GXsygmtPg7fK/FM9+u68Tv9sCBUjIZrE9CX8W2dOKoKOPcMeFkhHzy
Fmjo7IS91i/FapZkxDQbKUqOdSIqybzpTOs3lIDerou2Cyx75Fo7b3wDE/PF
MlW5Lgwy1fhk/UzCsyg2/y2vu6Cr5CX1USMRXL9XORXCu7C/eYd33eFEvG8c
iLD+1IX2Dbnn+PgSkcj4Oy37WxeGfCPo6GcTUO14Zci5rAvK+/w+7nqfAPZj
eeqNq//ymXos2c7FI6T+On34hW6YkY4OX32/YCWIr8rcshtZW97FDl36ggun
S18J2nZjx9OaSh3lLxBu5BOLc+2GglM3X+BaHFKaSrV+PumG2JFfIesucWho
3fPiT3o35J6M9Mld/QzO7j+7l7h64D/jzrrgEQP3Dzf60nl64NFo9W7BJAZt
5vzxd/b14NWWfg9uxOBjzw1skuyB1Sb/O382xkCmj9+c9UQPaskgkcp/e5fh
oFu04PUecPS//iQd9wkvxwWkDKp6cLHlYo31ahTOGLJVPm/ogXGl/0Wjzihw
Z6zZVv7tQeQ9zlTH/ChEPGz4qDXUA/qYYWaGJ1H4KuC3U21DL6i/n53/yxeF
IqMRquLhXsz3FdXPakZiuTCpUvBVL4i8e/q/MiKQKRFmdymsFwW1IU3VURHw
eum/OTKqF8V/Ajron0SA3txCZU9SL+qm8qorzkeAfY0jZVdpL0R4W9nyqRGQ
kHYLY13txdU9AvNiWuG4+J6wX7rQh/tDKiebJsNQ/yW7YpdVHxaGDu5oKA6D
5i/lg4p2fVBzydlAFxEGmfoTM3fc+rClkePgin4YmJh03TcF9IHTI3jv4Z/v
kOJ64QFrbh+WhBVY4nzfgkXH852gQD+kz3Xksmm/xn3jDRQ1sX48LhWV6BB7
jcXL3hcvH+wHd96CbSPDa/Tc99sXp9gPevWq52oFoUhNex570LAfvM5TsXvI
UFgIRvxQ8OmHSX7TA79jr5C2mlOuP9gPDsZW40rDYDAmbbTbPN4PjeCK64/k
g2FsqcqYM9OPO89qra35grFWXnziIGUAcoSV2p2hICi/r8zasn0Auxeu9+27
G4QypbakMpUB3LxzduJA4kv89VkMUn0/gHNiVZq6IoGQUJA/vBY1AJnG5syc
rYG4O3Gz5vvnARg/ykzWXXqBvWcprAI/B3Ds9sfPmaUvYClK57ehfACHFgQ1
2q++wFgZu0fW8gAeNCtOb88IAIVN0vTo6UEU73ml/8LmORJsv1XZmQzi0RrH
vnunnuNCoYxKuPkgDobkDjw59hzZNxVF6B0GcfK7QuYi23N49Z+crvMdBM2k
fD5XxjNsyrjk45g2iEoCkuc5n2Gz9ev46N1DEPj3wymmPEZaDs/eVv4hSIzq
bwwOeIwruyMCt4gOIV0t/Daf3WOUVUe7ucgMQf2cXnD23sd4rPhDWUVnCI0H
VyoOP3sE1m1VDe13h9Bw1pzpm7M/ODJpKdt7hnCAGGO4buSHiN/q8R2DQxjx
Zjl4Q9EPEtmPzseOD8H6dWf5O14/qOaxZSguD0E1ckvhfz2+cCnhcbdgG0bq
ojmv5VVf1NfLzCRiGBp8+pkj/j4IGrcc0Hw7jJOHrZpv/fXG3smYYM4Pw2D9
z142ItcbX6dGVDuih7HrdI9wb4w3CmadopyTh8E+FCZX4OKNueXbZqGlwzB4
dWTP5FZvGNIHt/YvDmNdI12nVOs+tu8prPQyHIGzz1mVD81eoCnWOFVkPIIv
kjTWHjleGHOobGA2H0HGrMVtp1gv5GU1tYVcHYGNzWRPursXnC6MjHz1HQF7
2gWdTG4vlIVtZWhJGwH/009jepaeuMtjTErxjoKjRb87heUurhR05N0QGMUX
S34vzZk7MLS/pJYpNgq79yUzRqV3IJ5pr6MuNwrX+3mT293voNnE08RUbxQM
ZvdWVppuQ/rtRzf/e6PQXtu9Qn64hYFdk4nd/aPIlDySvHrWAw9sGJcYx0ax
u+xQ2ktZD/CnCihJz/zjh03SneXwwHnDc9X3KWMwPKsYfqHKHbXPcqcEdoyh
wM2m307DHVmbgqSsT47B9LGQp/4JN4SMH/0+EjcGo3wt+XZjV8gc+2+V/dsY
cg8MZHoQrqh5dPW4YuoYLk7dPKq41xUsopF1j/PHULO7zFRiwAX3LZjnJNrG
kCwjb5R33QUOTe0yjlvGsbNI+kVw8HWcyL2fMus4jv6mKuPYGWdkpZxXTHYd
h4AYv+Kxv844+lUux+nWOLLnpV6P5jtj/6uR0nHfcbi9jtZ5F+wM1qun2gfD
xjF17ssuFQVnNO/cR9v2ZxwSEt5F3g+dIJvaKdLNPgHOzf/xMR91xMw3bduc
7ROoMpFZqhVwRMLXX1/Dd07gpYzt0+StjhCNfCl1gW8CYVr+N9MGHcD9VF3x
r9g/X2b61aQt1AGUS4m6DUoTOMx+y9ue6oASVk/XUocJTKfQE1MZdvjRxhI5
4DyB7O3OiztD7BAR96Zyk+sEBnI3Nzk72cFDLUUEtybw9+zmbd+F7LD/7nhL
st8ELIPlq+0DbfF43ATvIib+zZuLrv4uV6BbfpTBsXYCLDOe5xqNLkPhTdHh
Jw0T0BWYTg+UvwxhG0Ozz80T8N8htN9912VQaZ1+9f7zlTUnJS/8brFGkmKM
3bnRCeQ++3JD/Lw12L9sr1amncR/HZtZbW2s0OA/E8opN4kqe81x7rBLOCTe
1bt2dBKRUu0fbb0v4VF5hWS/4iROJmV2N1+5BGz9XPBTeRIHxr2M2Y5cQnTQ
xakzOpMQNDEyGay1wI3wcvXXlpPYlVaQxcVmgR0/oxd4X07iYUbd2yfhZrh2
JkiZPmQSzKp+PVf8zVC+eO/JROgkDh3pdjW/bgYvBdN92e8nwSH+jS5c3QxD
2Ry6ZnGTYFWcu6w/fRFpZV6fInMncaeGM8JZ4yKMuowNRaYmsaD20KaL+QJY
Tr/csGF2Et8SHY+dnzNFTumfhNb5f/0secvxV5lC+Psxxmerk6jT2sZ+wMcU
Mz58WXP0U3jNZzSkNnseT8R7RPJ4p8B3IrXtbJMJsm5cWT2vNYVyzrCKiN9G
cB79ECunO4XlNH193TAjCJq1nmYzmMLXy+c8+O8Y4ZGGVlL+mSl84xffepQw
wlmeA1b7LaYgb+P0iD/7HKZypyoX3aeg7e9pk1N6FgJb3CMDo6dgo8fIuGX5
NOhP18jHfZ7CA/N7jTmtpzH0bn9N7tepf75Ta/RN5mkkSLRTp5On4FP9XizX
6zQUtFVM9bKn4A+erGqm09B/zLKTpXkKdtK+UnVChrjN+OGpD+M0wOV0X/TG
KVw0WBEMY5lGxLjqutb5U1B5/V/mj63TkCsJFgxQOQUGMfrR3u3TUDiVU+ex
9RQCT9qdVNk3DYcAQaIyzgCxfrKbqIrTqGsSET83qI8GujJ3d/tpWKi7bu+5
oQdhfm9JE8dpnLG5+lrdQg83jh3rI65Ng4Of/0qhjh52Xk/Q2+Q+Dbqw4x6M
Qnow7goUfuY9jd9V/ipJ9broTDepj3ozDdqWu1xmR3Ux7Dh+sKpkGvGrHCHc
AtpQeBzd/+3PNETqU28+o2rjUfTFt0GV04jboqcp0aYFifYaeuP6aRCJLX19
wVpw0Exp7+uchq1QeLwqsxZmBT0fryxMI2vw7q2gdQ2st7ANCgnNIGirR+tB
6kncLRnxVROdQecpea35dnVQUguEL4vPYLElWqo/8x8OcreOlZoBFkp9j99S
B1W3q38/ZkAjw+gyt6yGDXmJfQfPzqB/fU59maIGujjdHnn/GZjlZOSKC6vC
N1T0vvGTGTRcf9/yl1EV9H4b9916PoPR3V18SePHQW+ZYp4ZPIOm2Fr3gp/H
wcDH143IGVxPDbB9pX4cjIHjncczZpD9lZc221kFW24+adcZn8HfYg+fgQ4l
DCh+67w4NYOhzLG7R4qVkLPe0O08O4Pkve8loxOVcO3enoHg5X96pmp2t3kp
oflh8kQ73Sx4U48LRQsqIfJVM9WBbxYfx6pOvnQmcfSn4L5nerN4p1L9sn0P
wO6mIRhxahZHbn/wi2AGRo86CCefnkUMrWvO6hSB95mp+xtNZlHruXaD9gOB
TQWah/lsZuG23cfMfhOBylon1QSvWRgFKdOZ1SjCcirTuvLbLG4nq4jIBsjj
i4+y35cfs6B/aV8y5SiPGe6imIeps9A/0i5RqyePeyeqhlR+z+KAJvU5HZs8
3r/ptk0tmQW/2r1JscCjaFKld4zonAVJVt47HnYEmq/13K5tmcNem1jmVxWy
eCFZ/0qPbQ46ZD9+fZNFc/65NAmOOewWXmBdC5bF5Qnz5YGdc4h/vX2854Is
Hhx3uWUiOIfhc889pWZkkDUe6qmqOIe4irOe3/hkIKXS48d1ZQ4/vMZ+Kj+T
RmycX6CU/RyOKdnWiblIg4/jQJi24xxeOXBtOWwsDZY+t+T7rnMI1Oc/ECss
jSGfLe0T9+aQdyUhaGeuFN6XHpUufjOHF5aXTk2sHgKLwfM2t/I5PKmNdzJ+
eBDev2QGA6vmYMA592LntYNY4W+djq+dw8Yag+kZk4MYnBFk6GueA7VO5O/q
wYPIC0qX0u+fg9ybqZvGLZLwaO73FaXM41pH/E0JKUkMXDwm1XJwHnt/RMVd
HxHHn7fKxtnS8/BNnVClKRZHUpOa9yfZecR/GupIiRKHh55Bg7PiPFibebU+
mIqDhbT2YFKfR5tT3Qeruv2Q4gvIVbwwj1Av7al7RWK43dZr8P7JPAwCWRtz
S0VgtnP45oPn8/ip2aUn/UUEJwwnomwD56GWokYpfiIC1vKlebnQeYScuKZz
Xl8EHzK2vKmKmscK3y826RZhFL050kOTMQ+2jTJxVtNC2Gb0+Nql4XlIV2/c
VqcgCF2bv+sKY/O4mUEqUfkF8cRN3J99ch5REZEOGgyC2BzyJzx3bh4V32KI
I/UCoKljrthDswBPJp5OF0cBTGg/EWnjWgDfnJGP8Zd9//zA0zZD1QWcEBVa
HD7Cj8367Zcl1Beg61h7L5ifH2oXD8xu0lxAGGfuqjEzP3LvVDB+11tA1CXG
E4c79yItfcuRbSYLiPjqMrL94V5Eyzx7UeG8gKcWZa3+HXvgLfpcTS18AQyj
xIpVGB+mmGgyTSIXcNrSY5vLQz5cGHeScv60gNashifvrvPhaPIpnndfFhB9
e4f4MU0+TChyzUynLmDWs+mv9SwvjPXCwsKqF5Ch8vNpdgoPDt34Mje3YRGP
KClTGebceH+Ox5aJbhFc2kp2CwQ3mBWfdu7ZvIj+8zeXTLm5MUB1LNNkXYS8
7i6b73W78NZfOiKCexFRVWfcnE/uAn3YLy3tw4t45u/CxaSwE235xZFRloug
PyurK3+MC6keoXIPLi9iTMR2LHUPFwIPXimztF2Elzdl67lNXNB4yzQj5LQI
ftfq42tl25FyTUc59tYiPj1fEak22Y4A/rrOr4GLYNn5SveBNydUPTt4UnIW
scY4X8g9wo49solJIfmLsH3stuxVw46VEU9Vt6JFXD1Dz037ix3fzvDbHy1f
xKFByzdmD9nBJ2mZkd60iBr6iGEHUXYstQ0bZU8sonUguDL/6jZ8VZgPKeFZ
Qtqbx0MOLGxIzR/gHNyzhF1hN1js57ciT7s5kE7gH5ZI8/bt2IrmCxnPVMSW
sJF+upH921Zs8r7nmym7hDcHbtD5nN0K4z9bbiTpLoFVKqsw8TMrNp8XPh3q
tQThxS+WZ4pYwNG/oy7FewksXnqfdoezgM+B0aDBdwm3qt372N1ZIOM1ps3+
dAk+1PqLIftZcPFjsuqT10u47vXWeuQFM1LG/lGSl/COuzo04AoTLt05y2HT
twS1oQ3eMoqb0dYSm2gwuISH5/2/Lu/eDEO5FS3FkSUEtj7c0LfGALXJdw9Y
p5ZAo3Pwjkg2A0TNe+Z/rC5B86r2tOUJBkyoXm3ewLEMgckSkaBz9LjJ4h32
VnkZA+ozkxGhtJi1qZf3UV0Gz/FTX3/doYV9oVCjg/oyhHvHr85Y0ML0bgmr
is4yVtZe2uQfoIXS1BavoXPLYDMP391ZsAn09aEWsk7L0AopYmpf2ogXbxNE
qt4vw+uU0K2lGxtg8UdTOO7DMj6znbUkzTZAZnVA0OfjMli3RNZEaGxAs/Ge
fYpxy+jn6s1M5tmAvdwBPDE/l2ET6n97awENEkKdt3mWL+PCW8uTgTto8CdY
ZlVyZRn7JxQtpqspeFdYvcy4vgylel0vvd8UOMzbL/VRV/Bh4LBfwWcK2E9/
mn9DtwK9Fx/7Zu5TYMzJNUW/bQV3tygum8pRMBS42NchsoJgCu3zRNV1gi4g
vfLZ6RVUJJqPq7OtEvQv3VJjzq3ghMFsyJ3RFWJziExEjskKKqWCqrqLVgim
dwnOM+YraJQO3yh7d4Vgi43kPOOwgtnm02w0k8sET84jY16/FTBwFv9eaF4i
Dk8ZD3xJW0HDoyTvvvIFQmZ2R1VBxgrqXb+f84xfIOQW6lPbs1ZQvL17SPnZ
AnF0Tdd/a+EKzq+0ORP6CwQ2H5e4XvMvfwZnyubGeUJzr/g1hZEVxNJOGhQO
zRHm+qvrJbtX0Vl2OOCp2CxRLbyTLp5vFWpefOaP2WYJpXUZlhf8q1j/RfM7
enGG4Itz4DYSWYXX7mOPZItmiLZNPXLD0qsIMLj1PdFyhjiTWuLIqLmK11YH
ny5FTxOafCHdGu6rMKRFxQI5RfyaSx46cGsVir6ll6z2TxGif6omt91dxW23
BpdxzimCwZ2R0uq9CtPqA880RiaJgprb3LbPV/HXrNlEMmSSgM+l/x5Fr+LB
aZXCgJkJ4vDYocKy+lXQC174OnhrnKgNdkgZa1rFwxeHlF7/N044kV9jWP+u
Io/X3/au+DiRECjy6FT3Km5y0d3q+TtG7Jfn02sdX8UR2l2XmcgxYp8vc8sw
/RoG2jKNP7COEmx7B8Y2y6/ByyP5nWLNEJFYKtCx/9gaGI8bkQMJQ4TudfMq
bXINHwJu12U+GSKeFLV9CzixBvFpv8mxk0MEw9W6GztPrUHezq/7VP4gQUnP
oRG1W8OmHP5RupwBYvy/t5zqYWsg3OIfhjb1EQPVAjbGEWsoznXN607vIzp0
vmZcjVpD6cDVbXrv+4hK9d8WQZ/XoD9ULB9s1UckKHYmdf9cQyf7vfKy+V7C
QUBA53blGpw49rr84OklJmbifL5R1yFuGJl6zrubGHA83FKwcR25nocHq227
iY6xDIlmunWUHBIduXyqm6gcKK+jsKzD+fPNqmn+biKhdYJfe+c6lI+wDzrl
dREOedJZA4fWcT1qzmx1cxcx8SJ9YbfFOm4XOX0//qWDMOyJtFmxXAdXqvR/
Ka86iHTpx63Nl9ex6mXcST7oIHzrTLKCr67jldJNg1emHQTv9nWfrR7r6NQ6
8MNwWwehHUpu3xSwjgquP8KDq21E3PuCwyO/10Em6H/eXtZKsE1+/VSSs47u
hJGbp2JbiRtk8I6Y/HWoZ850p/i2EipdVquXStcx29+VMn+8lWjhZ8hvr1/H
QseuG2o5LcTmTxqnakbX8e+yhCWnmUg2tD7yl5lCWkwGG6y2NhJ3Bmytrmyh
kMcWZEzMMxqJk+6OLxdZKeT8OfL55NtGov2t+yQHO4WM7IiM8zZtJDb3PorR
3kkhL5zgFfPpaSAuOCfuyBKkkK0GwsO5s/UE07OlxQiCQu6ek1Wsl6ojGvas
Cx0kKaReII91N1cdEfFtg+FvJQpZ4Xu3hm2tlpBtYEpqOU4h526VZDQU1RJm
PLw27JoU8vw+FrFZ01oiJU652fvMv/rqnfZnA2sIi+JHadaOFHKHknRwLHs1
0aeS7drqRCGd1LyVD69XEdZZs9K61yik/dazVk2DVcSVn+fjZV0ppMKRwjd2
v6sIpyjJSNpbFFLFiXTLuVJF3PGsfRzpSyGvy8thY3ElEXqE+2JHGIVkVHB/
qCRaQXB/1+U5FU4h3wQ39R7fVEG8lfRuKYygkN+3xwhe7ygn3guN/RcfRSHf
/XL2NQwuJz5xZJ28/ZlCttvtF+GlKyeSJ82luX9SSOXiIr/XY2VERcxnujPl
FJK5lePQUEsJsfZkk0teBYUUk07ojEkvIfZfM+2RrKKQTXXto4/flhC+x7Zl
M9RSyE7aWacc0xICNe7uv5oopFXO5deNvcVE0or6KE8vhczjfGj6cqGICNIZ
qO5dppD/pRkLHpUtJPKklUj9VQq5WM3BKMtdSEzteBOfuUYhE9lTTQyohYRO
j86jYCqV9NwSkTZYWkDQu/08rk5HJS1Tb5n4mRUQ7hEPUuLYqOQ7mlP7rr/M
J0xm971zFqGSfy34Jpm35hH7VJ5S10Wp5MBnNaO0+VxiKGDR4uF+Krlv1Sv9
QVsu4SJZLhZ+gEp+ekzJvR2XSzy54ppafphK5t9f8OpXzyUyO4trRZSopI6U
pp/bwxyCp9yeseMclfywOGofvCeb6OFusr9iTCVvi9KrLzBmE7FXlKvnTKik
g4OI3bW5LEKGgesV80UquaupnyGzNIvQVskWlLeikhElIS0BrlnE7bRtSkHO
VFJjUlteI/o30f4x5Ybmo396ae3puJFBGLfrX8l4TCWLOwK/fNqdQTRuHzWR
eEoly9LPDhotpxPVvnuUWQOo5M8bGWaKP9OJApuHzLXB/+p3HJBsl0wnvkoY
Rxh9oJISbWze18V+Ebd/rJfapFHJkcTKF0kKqcTy2KvMll9U8sb9RbsFnlTi
hpB0omYGlWQ1UdC8SE0lnEKsgySyqCTDhIrD64IUwtK96sJUPpV8ec+qPU4/
hdA69mHWrYpK2mncObbH8SfBXaDK6zdAJa0UuSJR8J0QCU5Y2jf0T/+Q2eL7
mO+EjPXO+qxhKql7QXtc8PF3Qm/z2KOFMSrJLGY/H3HqO/FA++WS1SyVtDfP
5zXsTSbG67vrVGloyINXyKbbzMlETv/dRxu5acj8NaeGINckoiJlyOr9bhrS
a1JORNc0iWj1O6WswEtDCnk+tBA5kUTMiQkvOe+lIffpHp04uj2JEHOosOoW
piE/rSRW16UkEoELu5VzDtOQClVK+wupiUR4sQ/PeVkaMtnpTPeV4QTia+jk
4qIcDXmAk2ZNvC6BKFbITzioQEMy3P+VyxCTQKzdteUJV6IhDfQ8zHfpJxCM
+vWLCio0ZLv8bfpPCgkEFz/qGo/TkHn/3evUFkogDuVve8SqTkOKVE3I9C7G
E0TQLau4kzTkR6XoS60V8YSmVb+SmiYN6c3GVr/5YzxxTk6Pp0eLhrw2+ZBw
uBlPWDH8WryjQ0O2MlWcZTKIJ/4HR6o7vQ==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 200000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7778079099686785`*^9, 3.777807978426996*^9}, {
   3.7778083255444784`*^9, 3.7778083627795544`*^9}, 3.777808493313306*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "200000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "200000"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 
   3.7773605967737846`*^9}, {3.7778079905782056`*^9, 3.777808062886483*^9}, {
   3.777808322612585*^9, 3.77780835423769*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "171658.7269670623`", "1471.4965677426394`", "116.65587995926943`",
       "1.2668010114536599`*^-222"},
     {"Tm", "12587.87561221118`", "149.53933689202864`", "84.17768778324836`",
       "1.5067570129921269`*^-187"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, {3.77780835198737*^9, 3.777808362842043*^9}, 
   3.777808493407031*^9}],

Cell[BoxData["0.9911324946088835`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, {3.77780835198737*^9, 3.777808362842043*^9}, 
   3.7778084934226484`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV13lQVWUYx/FX3LOMITUsM5waQlMGtVLLsaOZWVGKNo3jOHQlHGnGEcYF
NVuOpXaHGEUUNTO7EgluueRCiHjFrRT1hoiIS4hIaCigEIiIOef35Y/455kP
z3Pe7Zz7nvf0ioodN8XPPPxrZYwTnb95lhPS2w93orXIse/rtrJZ4ni7XyvZ
tdyx5wJ57yrVN7SWg9Y6DspuVruWx4lxM8jHpTp29cOeNMclO+6r3rdBvkZ/
ZqPjsfNx2GbH3k73VO/aqvqPHshJ29T+i0b1Jds13o6NyjfscKI9pkn2/1X1
1fQfskvjL77L+Hcr3x9P2KP27tN/3F7N369BdmfK7nrZ85vae53rM7Oc6H/2
X+a7z4nWgzq5IltxKNebHM1/DvWBB5xY/UIt9ioe4vo02T+efNhBzbfgtpwt
+weTH53rxKTwO3KBXD2IetchzScGV8phX+G5h5243V0ttzniRE8+TpKDQmrk
HkeVr6+SM+TqrtS/dEz1deS9smvOLTn8d82n+KZcJLtCyUf/obiTfLXsnXVD
/uy46qtwhxNOtC7hFbKrPQ7KU3+1eItsxV6XB5/UeFdWyIflkq547CnV38UX
ZVcfHHNa+YF/y7U4Fls+9f8pXiyX3Lom58nWvjI54E+1fxdPkL3BV+V1ctBM
XIbzcZ98xcJSxTjck/we2RVBvkn29rsijzij/PkS2S2XpJI/JQd9gbsU6Pp6
6ifi3n/JHtl1gny57HkC9z3rRLvmkjxD9iSTz5Sta7TXTP3ey/LIQjniopwg
W+2wD4cWy93OqX41+Umy95XzcqpsanAFHn5BMbRI13fn/7Nkq5D6LNl0x4bY
rHmbUbK9hesTZSuf6/LJXyYfqHHbb2oeJlK2pus+mDTyUVoXc4N57iAfpnFb
j5OPl73rGU82zqHej3UJwKNxAc/REtny4QLZPo6f4j7+hF2y1VrPqdkg20tx
JV5I/QDdV2uqfhdmLve5TL8rk4Nv63do2ui5sAdS/w6ejJN4brL0uzeFuDPX
d+Y5W4r742DtM+YDPE77lJmD92tfNGtku2V++8l30L5nSnBv2mvN72Y28wnG
Q2jvbfwW/U2T7aKjjJN8E/mdOFL7ujlLfXGu3IB92ufN06Xyk/Q3rJTxcP1k
XE9/C3EP8un4Cj5Oe5vo7yZ2k/dn38mh/4GyvVfvMfMh+Y/3K87DUeTXUn+d
8R5o2ff0XjWl+FHcln1zvN7LJgSX0v67sp3CeKeT36T3slmGI8jvwm/onGDO
4XLab2zpj/6fYV+v0bnj4caleDqLeeIQ6hfjM7S3EadzjsjDg+m/Cj9PPqBc
ca7OTeZl/L7OMWYCbiQ/X7ZfZX3XkV9E+wfL/z/+MtxT5yrTnvdYCv33wVU6
p5n38HSd00wcDtM5zSzHjTonmj04X+cycx7X7VRswnE6R5pnee/O1rnMjMBX
qZ+Ci3SuNO6W97bOnWYzXsv4TuFc2q/Bz3K/unBO8GP8g/BJ1mMino0/x21+
UfRgt87l5hCOZr7l2E5V7Mg5JWy9Yl8czXjHYN/PijNwZ9Y/BY/bopiJ86i/
gGfyfDTjZvrv9Q/t095IHPOD4lScQD4Bu3hetuIo1t+Hc9MV7+BEfXeYbpXM
T98ZZgheyfgn4aGsx5e49jvFVOyNVzyC+3K/K3A72u/EuTJwhWIobmZ9InBG
suIsXEF+FXbjLDztR8VLeAb333Cuvc18nsMBjGdUy7mY9fkEZyQqJmLXOsVt
+BGuz8fuTYp1uJrvwkDO4Yms12s4n/sXiT0rFRfgogTFNNzwreIxPCBD8Qb2
6fm227V8B/C8BGK31sfujZtSGA8OT1I+HA9jvSLxWI3fjm1pn+dnAY4mn4xz
WY80PFTrZe/GIazvMZym9bWLcMwa5oc9Wk/7Hu7Bej7Gd9EK+u+JPexvYdj0
9zr54bhymeJ43ET/0TiZ/Si+pf575b/BHVZb/wFMrlOQ
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVWXc4198X/3yMCCHKyt4kKSP5xuf1RkpJpGylMhqUUVkNKqFQZJRSZiTZ
FZI9ygoZkWyy954/v3/ufV7Pc87rdc597r3n3OcKXbh+ypqKRCId3Bz+P3+w
U77Qxn6ZcvneGY8zszSEi0hw+wrpCHTaBr6XdNEQW879zfpBMoK435K5Zg0N
UbtKFZ1GskXomv2O2+9oiIyqnZxxJBcY6kcMlJjQEKLyAg2RJB9s0c71eFdC
TfwdiE2NIIWDri8k+XAcFZGxe5vd2+xwHLP90d8eTEU8crglGefwAq+MhM4/
9KIi5JaPRn/segmBkoBu6nNUxP1t48GFha/BU516sYSHitjBw/ufM6JxvCDG
/kAomciBDf9LUgLas40vB4aSCC7tT4XGVgkoI26klj4kEbf0aS5yfU+A0RHu
WcYbJGL/hZiE8KeJyFYkFGpOkYikBx1yYfxJuLYUmcG1nURElBtqPD/0Efsd
Gwb9hDag9k4kSysvHaH9l4pIymuwlz7uLT6ejiunrZvteNbwOsXJcItgBmz3
GLfPr65i+XPRYtmDDOjtp1a3Kl7F54pzqoePZ2LIXWd3tO4qZIdelWu0ZaGm
4u1TP7sVCMjsaMXiF1yyHXA9/m0JMv+UnzWIZyOOufPKfNwSlGMsjlidyYY9
h6lFtv8STnElfPLJyIbN/alRT/MlPKRRCa61ywHHkd+mwmuLGG4/d9y8Oxep
zvebnqsvIivgwzeXym+wWC29EfV3HnEuQvpGtUVg53Np4tSbxcx1Bsru/iKk
fyS0NVVnoX5pRmZjpQgqjAN770vPotu4jD5Bqhguurt27qedBb/K5cL5h8Wg
7OW4a/l1BuGraXvD/ivBqHHq1JD0DB57gbkpsRQWL02eaXBMo9VNajWxoBSd
Q7xinrTTkHRiG77dXIoEIYpG9ewUyi/0lYnSlOG+7Y6e4F9ToNb0vXPjXBlC
2jh5fgdN4faWulF2jnLk7tUTUNo+hetPzlWdelAB66ySe108kzjEd5KB43UF
LEL+cKcxTII+VU27NasCPMwLMwJzE4hq4Ks4N1AB1ZmhUNKnCdRxtxfbaX+H
w4mXv9SVJiCXaJz7iOUHrtjvQaraOKZL9d/nvqrEVv8jibo2o8g3JAbvZFXC
itCxKdYexeNBOQmiphIJK9nNp/aMQpiJNb5ivRIs7g/NfsyOwMCgNqrxfBUs
Fo81bvUeQVb3sRfjEtWYk770pyBpGLfWNXyEs2rA2rfxFQxDSN+9P0etqgal
uiSieHpwcx0FR0x7NrG1WL3Jn0FcyFzVfc5aixNsSoWVyYPQvfSJg8a+Fus3
OV+l6w1CrEH8Xb/YT0Ql5T/1ev0Pww0PLzQer8MBZa/EKI0B+A55eFwwqsPH
t9/G8mQHIEZyDpm8UAdKq2/1KPcALPecL2dyrwPD+IltPpP9aPZRlT6cWAf9
B32vY9/0o+jQ/NQnmnrk1gYr2a/34cU7W6/wb/X4/PhWbUVVL2a39qjzVdaj
c9klMuFLL/TszWlim+tB8vXoeRXbC3oFfZ+UiXrc5bnsUeTRC9cilYAyoQY4
x0ckrMv0wqh928sZ7wYo/ucusvd5DzjYstJO6v7Ci9cZsR323XC6KevUZPoL
sW/uOoubd6P2d6K8me0vRB3besTzWDcevY38bOP5C7/Ju9MuS3RjTsYn707G
L8hKnw/c3tOFxiOm3z9wNEJYMbsx3rQLz++Quug6G3H6pAp9bVoHTsu+kzYY
aYTgHFPh7uAO7Og8fvPNQiM+VScyJjp3IAThDIqsTSjRONy3otSBMGpZxQtE
E5i3zx3fVvAXL/zMHufFNmE0Oq4jr7Edb0I/KzheasbB743mD3f+wVkt83t5
N5oxSG/33mO5DQIL5Eo6r2ZU145MBXS2Icr4xLk3L5vRp0rNSJ3UhuhdfX5V
lc0QiSQ7yaANcdHbO8X2tECB/+E2a8dWvP9o59c21QIboRMvcgdaIJgcdOLU
WgvYF70GXOta8CLp8/ZK+t+oCDAeP57bAt8EUkSOwG/45lf+3Ru46RcdkvTi
xG/M2FaLjCm1QDQ0r8rw/W9AK7pcxr8ZUbeZmH9ZtmJP33w55XATuDz2NRyz
a4XKhKay474mPHMzDCt2aYXmuvKuT3xNuHcrij8jsBWEpMOU83wjzjoo7A3K
a0XSFmGq6sRG8FqZ653kaoPJf3dILayNeHE8ObjqZxusszsW+8caUBt2ekOl
vQ0q2dyvf7Q1gKZn9WrSYBuOGUY8LqxogKPricN+5D8QCgpd+RfdgGPx4wta
8n/QN9nOusuoASvrchbFYX9Q8v3aRXJZPc5mfJLIsWiHi0OsxYmUOoSsWYRI
XmlHMIsR/63IOlQe3UJ+casdf69Edab6b56TTsO2W0/bMXzRXMDwah1YmRb9
FYrakXiJ68tVqToUW6tMp4r+RQs780ET/Z8Q4y7IezfyFyeFHr0Vt6kBW8ZA
jPrCX9xZ0yQcjtWAdJzZr4OqA8t656gaZWvQftviDAdPBzQq1TyHFqoR3LUy
5n20Ax10vfnaT6pBSlQWsI7vwJ/xQIXKz1VoU8rwEjnXiQMs5avigpU4knRK
RO9yF0qSTYduHqiAA99qG+l6FzS+RjuRhSsQ8Sw+OP1GF1L2v/wZxVSB0VuL
ZHbPLigIW37l6SnHM403XU1hXShSuGaxFFCO3+1DkWalXRD9cHjXqaEyXGLx
4rIV6Iah+pTBwsdSBN2XruMU68az+HW2PxGlyJ375fNduhsvuNk86nxKwdQu
viCl1I22a2y0k+dLkZZY3TSq043kaYX/SJylWCS4nju5d+N9ZJSS0cMS+N5I
3Xa3qRvhpz+/dLpaDNbAiJdJf7oxa7muuWJcjBcJ3mIt3d3gHn/oHKZVjPdt
Zqpy491YtRZhpREuRiXo7Xu29CDwvb9mbmsRmLadr9ZS7sFc1Jlv93WKNuNk
e8Lyqgf+nPUZ9JRCcBWscRyK7oF947xsgWwhon4PxlxK6AGdofCGN38h0hkL
cosye3DwI5Hlu1qABserw87VPYhdb7xEc6cAO9RKtX+vbWKJQ0uDD/Lxovkm
fbRlLyIYLU4HJOZhNUyw/qJNL3hHnwR8C8iDpVHVS3G7Xsg77m/f4pwHyd+C
u5NdelGQzWfep5qH7NaqE18CeyFrl2P6vfErWtqFntfk9QKnjQ8J0n0FR28N
3zJXHzLfee9zvpMD91jXgTz+PkQmSiDCOgcdF0VS74n24dmRU29aTuTgXZ8r
aOX6wLvaPBfCnwOlAZGLrEf6QN67UMNZlA3DIbdE8Zt9eFTvrCnDkI3QCTF5
g/o+3Ct1UKBN/gxjQ7a6oJY+kI4wyNKHfgbvt3W7ur992KipviV89zNiHre8
OzHcB0Zes/DXep+RIubHc5S6H4drsh/GzX/Cd7NRsqpiP6wPpXaMa33CSkVG
nfjLfiRMpGbXLWQiX/atvfXbfvA7zjwN6s3E/dAnDHHx/bgc8Xnc5mcm6C9a
aQpl9OPlq4AJ3YRM7Fjfmb2rqh/sMb/ythtnQlbB7S3rWj92Tj7K0/uWgfNR
lGvLlgM4yKooKx2WjuaPRT932Q6gyU/rbuLDdOh81dinaj8Ajcfx/yk7p0Op
+cjsPbcBMJgsZT/RSwcTk547bfAAbjK5tpOY0pHtYvmItWQA3188nd7xKA3M
J73eiIv9Q8iWd5QeplQ8NKcmHd39D8r0sw+XxlKwdNn7/OV9m/jIRuDenyno
e+gnmqz6D9UGg7cWglKQkxuUtM/wHw4e69eY4UqBlXjM50M+//B5ZiXWU+Yj
cteKa08N/cNXTc+tEpc/gDGDxp5h4h8cpAfSMk9+gLmNFmPx7D/sKs5eMlL6
gPXaH0f2kQZBwzfH+Y/6AzSi6gpZOAdB/91JjC8qCdXqHRnVmoMIyn/5tan9
Pf76LIVpRQ3ibrHe8wGbRMge+k9xPX4QzWyqNmp6ifCcvP3r04dB1PM9Vf9w
MBHCJiRWsS+b/rZnfpQwJcJGms6PunYQ2T/nJscyEzBevcOjcGUQFrluEzu3
JIDEJndOxWgIlDvct/bnxCPNLrPe3mIIL/jSZk/FxsOyQkkz+uIQihJN3fwC
4lF0W1WK3mEIpVK6h5QvxOP+v2MzTb5DWJlXIyKY4kH7zdrHMXcInw62GlhY
x4Hh0qvURL5h5HLUWeuIxyK3mF+4XWQY37ZfOk3DHourfDEhLNLDYKNh+/hz
IwbVDYlut5SG8UHjrm5UawwCVD9raJ4chspReXmJwBiwste3dHoOg73r2s/c
5WjszN9C4uwbhreRRKBLdxRiCrRTu4aGYel6PfVlfRRki/zPJk0MQy8uNLey
KApapWzfVFeGESTvYmgSE4VblfzuVmwjMBo5LiBhFYXmZqXZdIxg20vbkanG
twibsBnUiRwBQS3zTo76DYSn3odzxI6gYsf8xvJAJFKmR7W6EkewHhP6t7My
EuVzTvHOWSMo0M8rXAyOxPzK3QsRVSOb9TnEyUo0Eob04e3/lkawSOO7l1nn
NTiFKuruG47Cnnd5C21KBKh+HD/93XwU9W2ira3BERh3qGvZdnEUX85Pnal0
iUBpYWvHi+ujYKtq61gjIuBkOTqa4jsKM1NeweSWl6h+u33rn9xRxHOa6G6j
fwlPfnNCXmAMk1Fz1yRuh+NqeVepq9gYtiu47lK1CofhNeuj+bvHoCR1T/iq
Tjj25F87qa08hmN2pL8sfOFos/CyOKc/hjCT1wZuBWFQiHzn9uTBGFqluDi/
0IdhcNdUeu+/MVwsOHrtYHIIHl1hXGYcH4OW1S3JwPAQiOSIqSvMjuHXsXn/
hfshOGto2vCQNA4DBnMqetMQND4rmRbjHof5gPZ5vq0hKKQNk790bByZDBla
9Fef48WEyqfR5HFQ06i6nVENhpLambUdmeMo8M5c5todjF/+1w+r5oxD7EP9
l3GuYDBLxzUFlI0jp2X367rZIDy02jYv2zEOcZnz7HYfg+DQ2qnkyDIB6dBJ
8WmhIBwpeZg95zgB3sBHDUWcz1CYfVY1y2UCaoaKyfn0z6CSolzsdGcChh+o
mJ/PPIXMy9GqCd8JaPC4cLJlPwXr9dOdQ28n8Ca3qcZM/SnaeES3dNRMQJ3r
xBU680AcyOmW6t0xiXkDU2J7rD9mM3Xtijkn8YjO/ZKprz/SUr6mRG++cxLi
tDzy7P0hHRcqbyk4iea59S1Vyv7gfaqt+nf3JFZu6O1jqXsCknW6Xov6JIIW
U4YFqJ+gktXLpcphEl/MzlF9d/fD5w7muEHnSdi6EDXU5/0Qk/y6jtZlEqet
X74zOeIHj6PZUrgzCfXd53YZ7PCDjOfEnyy/Tb3fG/vcU30RMGGBNzGTeHbM
8+n9YR/o1apsdWychGL0E6kap0c49Pq7YmDLJLgkXT5wmz+C5BXDCx/aJrFl
l47wncOPQN7i9LW/axKFbmNBvlyPkKH63t50bHKz76qcTSnwxo6PnA0aW6bQ
0hIwLcbmjZYnsxEcylOQSDHKFa54gP17evrXVaZgd+nGm5tZD+Bf+1Pun+oU
ztWYibVFPwC2fyj/ojGF2h1rv1tuP0Bi2Plp45ObfI5cW+PkH8A1ulb7lc0U
9nYtHHeMuw/uL4mLAqFTECnc5egQ7AWzHnNDqekpBO6pSnA6eA/MRqHU1HNT
YLq1eOUx7z0UV9WktS9MQezL/qm8jbuQ/KTG+GxtCvIvKnsdy+9i1kewcJ5+
GvLd19K5ztzd5OmTKhWYxrGKni+aLndQ6Hp17eyJaVDkdmg61nrAeSw2SVlv
GmmsDNyZWR4Qv9BuxGYwjf2s3CVMrzzgf/xERpnxNIoCz6jRXfKACf9eWxmr
aawfvG/HQe2B6ZLpuiX3aWw941HyWNUdYizucSGJ0/D6oK+hXOIKeqNf/yV/
mAZ9/r07pkmuGH4j86skZRoSSXxpoUGuSJPtJM9kTePwxZsRhpauOKSreU6/
aBp8BxKqNtZdcCqAmYe5bTMf5ql9bXDBXcbYpz6MM6hIUAymb76J8war4m+Z
Z8Btd11gV+FNaL46k/95+wy0tN6mayTdxNbd9GP9nDNgEff2b757EyHH7I9p
is6gwO/rZ5LUTST5HaAlq87g+PVtCwZeN9BCV+3ufm0G+9JPGF8knCEp4i1n
4TiD1MNuF4z2OsNVTW2AcmMG35++NDTncwbPzTR9WvcZpHme/fZiyQnmPSGS
z7xncP9acXVrhhO68yya41/P4G+D8vnrkk4YcZzYV185g5aSpaK7Ao44FJD4
L7NmBj8f2ts5sTjCP/F8ZFjdDPxMDIRubjhAtvMXvXnzDChuAk4JnQ5w0Mnu
HOiewQ0jdcn8KAfMiXsFrC7O4Myp900JYg7Y+MM2JCExC5vOnme8N67Bs3LU
96j0LJQVH8bKnrkGUk655OU9sxBZrRSwVNrEYe6XkuRnEcZW3SS4ZA+yXs8/
GcxCZrd68U5Pe1CXpg/sM5mFpUmeacZzO9Al6/X992QWDh/0f/fUXYFvhPRD
88BZcF2MTH/36Qro/WhE7wTNouArSeFRxCa2yb6YHz6LpIGqknCrK9gqKNiL
uFkc/dRGTbV8GYwhE92Hv82ixU6I9o/UZbDcDuw8OTGLVwq0cX2vbTGomtl9
fnoWfJ25EibetijeaOl1npuFz8kgsX57W9x4IDQYvjIL16Ad+zUotmh7nDXZ
STeHMs4vNDt7bRD3so3sIDiHQtPWgBVZG6h8ERd9pj+HibrOTOUWK+xwOy4e
c3oOOq7Gvx2KrTCm4iCZZTQHzlrTT98+WiEqP0fmt8UcDNjstEIfWoG2XEdR
8MocKrYf9zkob4W6RiettPtz0FapbtMMuQib6fxLdZlz8HzKH/jX6gI++mj4
ffw8h3UJo6AigwuY5f3+/nHOHEYWY+9+Ur+AB0fqhzUL5vBfn357teAFRL3u
tcupnMOcdx999t/zaNWid4zpnsPp+WfuzqbnofNK3+0GyzxqLe7v5D1niedy
zS/12eZxxnUkrfukJdrKTHNld86Dz9D51idY4vLkxZVBnnncllQ+7iNsiUeH
b92xEJ9HAt85s/iacyiciPDSUp0H4/BNvuXes5DX7PPjujqPjT6armeiFkhK
9guRvzaPa68HXWToLCC4c+9bXcd57H0UntU/ZA7mAbeshy7zsJfuiEtLNcew
D0vn5IN5uB8yEIk/ZI6oKhWFH6/ncfWPPuOEmRmYDYI63GrnoerUz4ZUE3h/
VRoKqZ9Hr/pSoHGoCVZF2mdSGzfz4dHb/cTDBEOz4lsH2ubB4OJhpnbUBKVh
efKn/s2jzvlBfmuPMTza/vlKkxYwljDFUMtrjMHzavJ/9i1gx7Jh01qMIWoi
NcyLFBbw5mHs0Y8BhshoPeqdcGABvqk/axxcDeGhb9DirLoAvZtEsbyuIZiJ
Sx5M2gt45FKmlbB8BvKCwSWqlgvIn4oJUjA6g7sd/QZRgQvIWrmrc4X/NNjN
Am5YjyzgBMPQsm+3PvSu/N04NL6A48FsD+nq9RHotufJjqkFVM5maYcW6oPh
RU10yfwCfCz2nup4qw+qpm0/hagWMZdpXi96Th+TuoFSHVyLCP/w5o5Ll95m
v/20w1BrEVIJ//w//DkJhlOdl2W1F1E7/11CI/8kjp7fO0ers4gHNXSDc1En
UXLvJ+Mn/UVc+ex2I9nmJHLzWA6yWyzCLEmF1mxGF4lKz57/dF6EeezpoMTt
uvCWDjp6NHoRI2HFamfP62CaiSrfIm4RrN+vskxr6sBywkneOWERrj7cRjGS
OlDJOs3/5uMijpWHtxpNHsekKtfsTM4iDlwYec7udRzm+m/fvm1YxB92F89P
Ccew3/Xj/Dz1EnLMQkb76bURZcpvx0S3hLKD6x6/Jo5im+rTbiGGJfgu20i0
NR/FINmxWod1CY0s2fb7448i8olCTAzvEt5UXV5n1DgK+rdfT+gqLkEssjP9
xIMj6Cj7ERdvswSjeFhb7dRCjkeE8qPLSzB21BcrImkhZN/Vahu7JRQl5cju
Gz2M45FMsxJOS5Ad8W06VnIY2TdOaiTdWYIGR8TdC06HESzS1J0SsgRlmbQ6
9kZNaHl18WcXL2HbFjOTLfEaEDqQnvGibAlmd53DkoI1sDrqpeX2fQkxChEr
5zw1kGksck2ldgmBphtra2YaEJSz+ZbXuoTygH9itDs0sNwxYlY0uQQ3BB/d
76OOlEMLLyr5lzEVU0aOdCOQUzbIMSS0jI/zS0FDtgRKddtC6MSWwa0ox3rU
kECb5bdnmruXQevJEqgiT4DW+4Fv/oFlXPkZFj4zBpjXsLhm6C2DHMBm8c4G
YDgraRRxfxlrYmtnZH6oYec/7qZs72X4HAg4vvZeDYIOjAYtvssg9Ru2jD1W
g9L9cd0dT5fR8CBv354Tajj/Lksr8NUmf9iAm9AvVWSPb5pkLaNtbJlU1ncI
1vdMdl4ZWEaK0OFQEf7/0PEnKd1gaBnaLC7+t2n+g6Hy6gnV0WXsj/5TMTas
gqNTbx6xTi+DSsszlStbBdIX+xY+ry1DVqa6NMBABZNa19uod65g/pfKhe7A
g7jN7P02UmMF24g5n1AOZTyPTJOqj1rBTQEqUrK1IqxqdCSTY1fw3a85/Ze+
IpTWBsV93q3g/I9rVdvUFNFmLiSqmryClPKMqWwORQjzBvO//7ICT+YbckPf
FZAW4czuVbsCYzvL1hg5BdSEK63Jra5g5oTXtq3b5PGmomGFcWMFrpPtPy1W
9sNh4dryAHkVEQJn5oqH9mOHUcLCa7pVtHF2yOSX74c5B9c0PfsqRt4cTLzl
tR/DIUsDXVKrEFHtqO5Z2ge64Ly6Z0ar+KlSc1t9Xg70oW45701XMfNavWp/
v9zm/aAUU2yxyZ+7rq7QKAemN2nOsxdXcfC23uUrGXJgS4rjMHZYRW7fkYzo
63LgL/Y3F/BbxZ7otSHTtr1QnDYf/Ji7isKs9qOBg3ugNMddX/5t0z6zvdu1
cg+UF5tzOgtXkZ947ptX8h6orOs92V6xCorvieIxhz2bG+aw7M1fm/GcY/6y
e0UGOsJ7bhwaXcWHl/zaYjtlcPHU2kYl3xrcdpusa56VRoMkD12q4BrK7UL3
PjgsDfUNJebnImvo4zr79reMNASTHXjNpNZw0tKi9/uKFDpo+5RHFNbA8IXu
bV6EFIxzKh0ZddZAae9S6miXhI7gi97j7mu4y9Nx39VRAl/ns4b33tnEiS8K
bppJQLqmfordc5PP/sc7n8MS2OrOSGr3XoMzHbXEELcEyn/d5bULWsPYAE1j
VIk44GN9xj9xDfVOzzUbeMShOL6/orp5DXkxjP/ltYiiMdwhe7x1DafPP1T2
LRaFE5HynvXvGopcOioufxRFWoiU/+neNQTc89G0fyAKmf8E9dsn1pD1p+C0
s5woRH23/RmhX8euI5e3Xw4UAZvw4DjDf+sglUtZXzYRRnqVWJeM2joas50K
8rWEN+vMxXpdYh1NJrScEgrCCPzekRl8ZB1MnU0OcizC2Hq9yZXn9DpsE1m+
iJQLgZRXTCVtvw4t2RSm2weEMHEmkkP77Tp2yP1Nc5YQxGCD2BXzmHVIz+tR
9DkF0XUy5dv1+HVcTlccUaMTRJ12gVXYh3WMxZM+h9QKIE21O6P3yzrapPK/
UPQE4CAmdvJu3TpeCrwirpvwY3I22SeTvAEtCe+4s/d5Meio+KecZgPExTje
fmtedI1/k22j20CemwutrzYv6gZrm0jMGzjA+PmL8HZepLVPiujybMBIds/j
xOhdcChVKBzcvwGON2Zv/1bwYPJ53iKf1Qauk1t75SS5YdgXd2XVZgNCQrYF
BazcyFMIaG+7vAHPlBUnqyUu+DZZFIZf30BWSyfrRCUXBDg3fLZ7bKCD88T0
lutc0I0gOGmDN9DqX9Wx9ysnkqPKFUcLNmB8Nu1TxwUOsE2lJFQWb4A5fZcv
lS4HXIlw7vdlG9g+F1958CAHNHts16yrNlD8Psuoh4UDf0S2lnU2b2B68lME
d/5OMCQcP/1rbAPqZR/Ut/PvRJbhpYN/t5EIjY1vF5JH2HFv0M72KguJMBsL
e+bfwo5j7o6hS6wk4p72JJtXCTs6I92ndu4gEfWSbCXvXrGDod//vS4PiQjs
4Arv0WGHpXM6d6E4iUjoNvViyGQD07PlpRgKiUi2u7/tecB2tAhtSOwjSIQ7
n75Pi8d2xGRSGxaok4jXdttH9lzZjgMtTBl/DpOIwl87JVmPbMcFfoErO3RI
RDnDtFcieTuykzXavI1JxMxvHjVud1ZY/fDPveRIIsJtOW/STjBjQLPIpd2J
RAwj/VNLPTMuFc4p6N0gEQbhxO2yLGZc/XI29YALiagy9JafcWeGU7xc3JY7
JOJQRrJbCD0z7nk1BsT5kohtx5RkfktuQ8RB3vNdb0lE76Kr6pfbjPj5/gOd
cS2JkA7e8/yzHT3WA2lvlf4kEcxHUg0FDekhc+Ncn1w9iXDtN1l7Q6GHrxp7
0dZGElHgvPiujY0e+OXu/rWVRLC86D+lnUuHjFXtMf5+EtHv/ezBDBMdwk4O
NvSv/P/ffPTeciEtShXUiVNrJELqn0RAezItprlfp+avkwj70CaF+he0ONl3
0j+cTCbiub8zTzvQgt7ty2FtOjIRMaTKwipMC/eYR9nJbGSizMzVJ8WHBhZz
om+cpcgEfygphsqSGqKaT8kb0mSC5rTcfLAONYaDl6wey5AJjtyiH0oHqXFL
rnZ39F4y0eLXFZXNRo3Aqy45tYpkgneH0mRMORXyu380SqmTCbvjjWbk/VTg
r73G2GVKJmSqPH0vcpDRx9t67ao5mTCoEDtDoSUj6apGw7zFpt6uVgOZWRKU
tnK93HaeTDRo3o452ECCrmaR+H+2ZCJMczZe4CkJd3PZ1cOcyYT81fs+DEwk
dL7LdtXxJxPvoqWMG0TWKeadp65+CyATj8tb6yPo1im/OccsZJ+SCTbVPZ/v
jKxRGnyFNFiDyYRt3KBZcOYapfzK422N4WQiuWPAblZzjZIiax5jFksmTujf
cXtkt0q5+3mj6koumTByUHBWrV2mrIy/zP/zlUyst0Yxin1aprhKKKTrfCMT
R5wChUVfL1OcXlwKky0kE175W25curJMsXGvt5wuIxPjUa/U6eiXKSfUYufc
6smE28DZ3MdHlii85VoCfoNk4luDkTdHywJFKjxtWXSYTAiW1yfvyV+gKF3i
aS4cIRNZDXv+nI1foOgzjPsvjm/GH9XdyXxjgfJIN3TZdo5MuMbmh8WwLVAm
mnubtKioiHYNqftep+cpxf88/Wl4qYgH886il4dnKT+zh22j+KiILhabwMDG
WUq732mNQwJUhDZbd01l/ixlfrfksrMwFXG4ctc1n+ezlN0OP217JamIMf7s
SGa1WUrIIp9GsSIV8Uo91BThM5ToHz78Zw9QEd+/9Yt8vz9DSYmYWlpSpiLu
3HHXs742Q/lxqCxt3yEqgiZN1L3z8Axl3dOOP1qdipC/dCe2bm6awniqeemQ
JhXR+F2Hh9wzTeESQdPvw1SEOklYU6t2mrK/jN2fVZuKSEh3NGVOmKZQwu7Y
Jh+jIgodx3cFPZ+m6Nj+Uz+qs6lvfVNF0nOaYqqsz993gooY/VgQ9ctummK7
9evSvZNURGn864PPTaYp/wPUxSy2
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 200000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, {3.777808042111231*^9, 
   3.7778080636546736`*^9}, {3.77780835198737*^9, 3.777808362842043*^9}, 
   3.777808493547618*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define model 80-150", "Section",
 CellChangeTimes->{{3.7772133184464684`*^9, 3.7772133214639335`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"logaritmic", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", 
     RowBox[{"A_", "?", "NumericQ"}], ",", 
     RowBox[{"T1_", "?", "NumericQ"}], ",", 
     RowBox[{"T2_", "?", "NumericQ"}]}], "]"}], " ", "=", 
   RowBox[{"Log", "[", " ", 
    RowBox[{"A", "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"E1", "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"t", "/", "T1"}], ")"}], "0.9"]}], "]"}]}], "+", 
       RowBox[{"E2", "*", 
        RowBox[{"Exp", "[", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{"t", "/", "T2"}], ")"}]}], "]"}]}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"linear", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", 
     RowBox[{"A_", "?", "NumericQ"}], ",", 
     RowBox[{"T1_", "?", "NumericQ"}], ",", 
     RowBox[{"T2_", "?", "NumericQ"}]}], "]"}], " ", "=", " ", 
   RowBox[{"A", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"E1", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"t", "/", "T1"}], ")"}], "0.9"]}], "]"}]}], "+", 
      RowBox[{"E2", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"t", "/", "T2"}], ")"}]}], "]"}]}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.777213348794073*^9, 3.7772133842611074`*^9}, {
   3.7772680634719734`*^9, 3.777268074960758*^9}, {3.777268246770526*^9, 
   3.777268249147849*^9}, 3.7772688198779135`*^9, {3.7772688683734846`*^9, 
   3.7772688687490053`*^9}, {3.7772689538685784`*^9, 3.7772689751430836`*^9}, 
   3.7772720912705703`*^9, {3.7772727365132065`*^9, 3.7772727368412533`*^9}, {
   3.7772727979035544`*^9, 3.7772727981081314`*^9}, 3.7772728521366854`*^9, {
   3.77727315262266*^9, 3.7772732278623543`*^9}, {3.777274298770241*^9, 
   3.777274313510066*^9}, 3.77727502883102*^9, 3.7772753570512705`*^9, {
   3.7773558099553585`*^9, 3.777355834160509*^9}, {3.7773599845309362`*^9, 
   3.7773599878253264`*^9}, {3.7773602413893805`*^9, 3.7773602533229*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 80K", "Section",
 CellChangeTimes->{{3.777213391092831*^9, 3.7772133927042065`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_80K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "4000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "15000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", "0.9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772134325121107`*^9, 3.777213467136049*^9}, 
   3.777213538269313*^9, {3.7772680834035587`*^9, 3.77726815250846*^9}, {
   3.777268184598908*^9, 3.7772682108185987`*^9}, {3.7772682529796114`*^9, 
   3.7772682931858163`*^9}, {3.777271499870923*^9, 3.777271503331113*^9}, {
   3.7772720962447224`*^9, 3.777272100201891*^9}, {3.777273175557577*^9, 
   3.7772732049104605`*^9}, {3.7772745485132356`*^9, 
   3.7772746429730415`*^9}, {3.777275030350869*^9, 3.7772751103853607`*^9}, {
   3.7772753595229244`*^9, 3.7772754601344447`*^9}, {3.777355793475567*^9, 
   3.777355804395238*^9}, {3.777355852120185*^9, 3.777356079565097*^9}, {
   3.7773574036138487`*^9, 3.777357403913742*^9}, {3.777808412161185*^9, 
   3.7778084128183327`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVlHs41fkWxiWkoRBJaMpUCJVrKDUvyVRSacZwDKJSzUSIROoMTaNIkxhD
RCqjmmoal0S5bBnEIPf7bbvbrjtMcuvMOd/1x7GfZz/7+ey1vu/7rvXdv610
xO2Qs6CAgMDQP+//frKXLwT+/4UfMXMw5VBSZFoO++InlOWq/KrsU83YMRym
/k1x+5NSGHMi8UTy+LOaJXmM19xGYOmJTcH6dYwRjy2F3e8WDL5m7H4PUmd6
/Vo0ixnHJyBG3cP7k/wWxuWJiBKSHlMOLCf/R7BT2VxsoFfBWPMxMloKGpHA
pTxP4WvmZK+0lfxCn2GRX13IlfNVjNv/QFi3Z+2B822MJ5MQzP3NxyKH/CRT
MOSl5NHtUM9YNRX/tol+1BRL+niOWo2UmwP7OxjbpOGD6gdP1cOtNM8LxNXG
pzjLdjG+mo73TSoxEyPE8RlwqViVar6P9NJfQsLj5g1haaqXv4KDhpOMe3sv
475M/JK/b7/W206aPxvnDt5TjDCjulwO1hVc92+X4hFz0GkxIvjYn/QSOPhm
jdpM65UB2lcuJlqu9+h69DPOzIWiyxu/iSzS2/0auQrJH1N/IL3q1/jxtkhk
zOwQ7TcPDpPqvPACqg/m4a6PUrS20SBjnz/haxwi3rdjmLFQPk73Whm+chul
+8iHV8tZxa/yqF+xAI7l4QEbL/EZPyxAtsWp3+3fU79uIboFquM9LxBzClHk
JOXhcZL6973BozvyuadFievfgOP61LAlnfhYEXo3B1+2rX7HeLQIL8rsveM2
E18oxr2bRutMW4hF/4L28hTV6LAxxj//BcNVx453viReUwLn7uzbKeoTjJ+U
YDl3Y0v+7N+MDUqRzrE3GtAYZ/xnKfbpuQU/OUL9B8vg3VWQWhHxnnFzGbj7
ZXOOriE++RZrjdVqOJtIb/wtYo+alofZEqMcHjdXPix8Mck4sBxqQ8J3Riw/
MC4px1cRNxfoBFF9WQViShM/WS5JdZsKHNKb2u5pP8U4rgJNdhltl2aov6sC
382kGogaU12tElb6cr4G7sTulfB+8tuFz44Qp1Ui32RE5ITLNOOZSiyQz7ru
/mSGsUkVrk1kSOkqz9LzUAUBn0PGRVFzjMuqkHQ/YM2ptVSXqYYSx97vlB+x
bTUEohuVKhyI46tRH1dvk1VE3FONsm1BDYoBxBo1uHjwiseiPMpzpgb7VVPz
RXZTPb0GVyNLrM5Kkv9cDZZrNiRxQgU4/2PTWly8v81Xt5PqwbUwMfadOFBP
9fJazEm7hiSuJ5atw8IIOeu7ny5gbFeHs2ln7kKK6vfqsMh88s2R3I/0PNfh
cutY1sp20t9Uj9rwckF7dWKveszq1P5w1pr0Xtbj5xt8iYDFxAINOPk41O1r
HUHGZg2w2KFdfLWe6iENEGkNu8jPWci4sgFPb3XFG5+iPHKNsBKW3+ogSHWH
Rhi+2eRqU03nExphHWCc4ZlIzGtE5d9N3EF98tNswq3gteLPWui8dxOcVSXy
F1RSPbMJPaK8scpUOi/YjMQtMWXZ64UY725GuqPM95Z+dP6nZkiF6mb+LiXM
uLoZTR4P+61jqS7fguRpR/ftT4kdWyD5+Q7++VnyS2xBupSh+RyH9AdbYBn1
xQfZYerXbkWP2OwXViqijH1aoTX9S13CNPVnt8JoXKmkeZr6hdoQGKcdVJNE
9b1taHhx/w/JS8Shbdh52LPEKlGEcW0bfinb6xShRfmXtsMydfTVAT7l02rH
ztlbpzJ8SP+rdmhofep8WpDynGtHs+aRkdxIOh/dji2HHeqm5ak/qx0BjebT
jRsXMW5vR5K0Q8RSO8qzkIuNwas1ywwWM1bm4mmUavHxNNLbw0Von/0e2Qry
c+GidNV0qZ2yOOMbXOw53BA100b9yVxoXexxC31JfjVcXHVtnLhwjc5PcvEx
KFbt3zrkp9ABrqjZuMoI5dnRAbE1QQXFfksYO3Xg5MAePZXvqf9yB/QNBtuG
AsnvQQemkiJqX+tRnuIOXFo0aPZDLu13qAMS2h46c+rkL9mJopjrAzLeYox1
OpHuvGtBbALl/boTDlKiCtxTSxn7dkK+TThwbob0bnfCo5WbfC2L/HI6oajs
37pCjfQ6/tGrt5XQkiQ/4S5U+d8eV42keVS7MLaw+WSsLemZd8E8LSNN9zKd
P92FAuPydJU0ynOzC+fU47ZtXk79qV1wuFQR42dN9boufLa/fouNHvlNdeH2
NxJfvp4jv1XdeK51IihY+hPG6Maw0xsdVw1Jxke7kR0JTmAK1QO78a1N+vnj
uyjPo25kuib2i0XQPkq6sUJhInGpMPmPdEM8ysP5ygD5LevBYH/nBvVx0tfr
wa9O0n5LQWzTg2UPLN4Vhkgx9uuBo/FLo8ALtM+4HrgM5u1+Gkx+uT1YV+p1
wiue7r+rBystvbml52QYL+qFuZFLllMoza/Wi3/FuibvilnG2KIXXLFEbbVp
ms+9F91rp1yUa6k/vBc7z/uPKi+hedJ6MTyrLFGhTvPM9KKsfXMt/xHlWd2H
n/TEk23kVjA26UOOvZpj8pgEY+c+hA2bas9OSTO+2gebEMvPP9hQ/sd9EJ84
HrQhn+Yv64OfnB1vaQ7p8/uwtbnqs6wNlEe/H0tNDJZofUn3YduPxUbwVPZd
zji+H1MHY0UCttP+8vpxv+y6aZsF5enpx5Xp6L3v19P+F/MQLHzPqVqA9qPB
Q8XknHpYGNUP8FBcZbXvWDXlOcODjOo78MRo3xE8rAr/mHNtNfWn8xB+8lyN
PYf228SDFmf9HoU75D/Hg4js0Ycf/6T8SgO4pZT9veJjym86gFL5fDm3G5Tn
xAA0nim0VhXR/oIH5ucvH4DhE5WAZmu6n7GB+f8vsoPz93NvEPLfLDyh3kR5
8gfn+/UNIsNOKEboLemJDcF2lWd8mgfdj+UQvLYbC60Wo36vIURdenbmu3ia
N3IIYxl20znxNF/L0PznRWB4Pq8dhs2DtcEBXnQ+ZBj2Gu+vSouT37NhdMjb
Gh1csZJx5TCGqqQjt2ZSPrkRbO/4LtNsF933thGc9xC+MZBA7DACM9dfJ7fr
07wBIxgPKlwRbU3+CSPzf3+F89lfZBSm0lHLQl4Ru41C8/JR23XmNH/AfPYP
G8VlEy/d8Qa6r4RRGFdK6u5+yO7L//koaqczfO0FKF/hKBwXHuXoW7J+//pR
bJDI/1qiifbHG0X1/bue0jN030v4eDDZuVroBel9ysdeI7N+fjD9HjX52MgR
765vZfr+xnx8a3gje06B7v/Lf84/P3DnrhrlPcZHhpoeb8VOyuvNh7XJhg8/
7mT78b/ChxnnkZ87ZDj/ASMwNyE=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAq2w4YtoTaT+0PRoC/8vHvncjktz7
AEdAKiNeX9jekL8GX920yQBXQL34jADDgZ+/zvwCobAAZ0Cfy6V1d2mtv7LL
FRekAHdAk2LWrFlwu78kMx/SnQCHQCFL8SW0kMm/3eajr5oAl0DQFN1F/8HX
v7lAZh6ZAKdAMxsyI//05b8YSbXAWGSnQPzFCNinSOa/dlEEYxjIp0Bs3ipW
G5zmvzJioqeXj6hAPzYDM2VC57+qg94wlh6qQESTZtiUjOi/msZWQ5M8rUCX
ODtr1xfrvz6mI7RGvLFAdt5R/mIG8L8fLBTZQPi3QJcv5c7Gv/S/pHchUVfO
wUCzl3jFk9n8v2+LX8tSg8dAcsF098f8AcB2/kOHIrTNQESRi8CKbwXAmKZn
gZe90UDLz2fVmU0IwJN9AOAH39RAWhu7wAMVC8CprWyJ2vHXQJbUjFGmiQ3A
mEusksvP2kC6VOfpBKMPwCUZv7ym691A+PCVQozgEMBHqlIjUGngQAwUmi1g
zxHAiHSvDX7V4UCCT1+sxa8SwJjWdQihYONAgU+pylqbE8CV7yUzU9HkQIgg
owPacRTAYaA/bvpg5kDQVpYbQFYVwLr9ws5S6edAzNhy+oczFsAAEjBfOlfp
QCTIlfUKABfAFb4GABfk6kDn3xHWa9wXwBchx9CCVuxArBQjVSepGMDoG/Gx
4+ftQNncT4hAhhnAR8OEuPVx70CXj8MRyl4awMoQgXfLcPBA8Ws17nQoG8DX
i/SaFjjxQBT08wfXAhzAW+JcViny8UAP/OBSjs4cwCUPeqSUqPJA1bxSISaW
HcDXB8x6em7zQGJIkvuTbh7A/9sS6Scn9EDb93UHezgfwA98jt9P7/RAq+zq
M6AJIMBm8r5o0LP1QH+olpz+dCDAM0TkiRhr9kCNJ+R8INkgwOhhPjPbMfdA
lSOAl7RFIcATW410Zev3QKDeAA4OqyHAhSqRSEih+ECmkQRMZw4iwN7FyaSl
ZvlAGVeP4zN6IsCuPPeYyh76QLwaHDjH3iLAZX9ZFWrm+kB1lBM3zksjwJOd
sCnRoPtA1ebHW5yxI8D8i1bgWDD8QAAAAAAAACTA+TKfCQ==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAAq2w4YtoTaT+0PRoC/8vHvncjktz7
AEdAKiNeX9jekL8GX920yQBXQL34jADDgZ+/zvwCobAAZ0Cfy6V1d2mtv7LL
FRekAHdAk2LWrFlwu78kMx/SnQCHQCFL8SW0kMm/3eajr5oAl0DQFN1F/8HX
v7lAZh6ZAKdAMxsyI//05b8YSbXAWGSnQPzFCNinSOa/dlEEYxjIp0Bs3ipW
G5zmvzJioqeXj6hAPzYDM2VC57+qg94wlh6qQESTZtiUjOi/msZWQ5M8rUCX
ODtr1xfrvz6mI7RGvLFAdt5R/mIG8L8fLBTZQPi3QJcv5c7Gv/S/pHchUVfO
wUCzl3jFk9n8v2+LX8tSg8dAcsF098f8AcB2/kOHIrTNQESRi8CKbwXAmKZn
gZe90UDLz2fVmU0IwJN9AOAH39RAWhu7wAMVC8CprWyJ2vHXQJbUjFGmiQ3A
mEusksvP2kC6VOfpBKMPwCUZv7ym691A+PCVQozgEMBHqlIjUGngQAwUmi1g
zxHAiHSvDX7V4UCCT1+sxa8SwJjWdQihYONAgU+pylqbE8CV7yUzU9HkQIgg
owPacRTAYaA/bvpg5kDQVpYbQFYVwLr9ws5S6edAzNhy+oczFsAAEjBfOlfp
QCTIlfUKABfAFb4GABfk6kDn3xHWa9wXwBchx9CCVuxArBQjVSepGMDoG/Gx
4+ftQNncT4hAhhnAR8OEuPVx70CXj8MRyl4awMoQgXfLcPBA8Ws17nQoG8DX
i/SaFjjxQBT08wfXAhzAW+JcViny8UAP/OBSjs4cwCUPeqSUqPJA1bxSISaW
HcDXB8x6em7zQGJIkvuTbh7A/9sS6Scn9EDb93UHezgfwA98jt9P7/RAq+zq
M6AJIMBm8r5o0LP1QH+olpz+dCDAM0TkiRhr9kCNJ+R8INkgwOhhPjPbMfdA
lSOAl7RFIcATW410Zev3QKDeAA4OqyHAhSqRSEih+ECmkQRMZw4iwN7FyaSl
ZvlAGVeP4zN6IsCuPPeYyh76QLwaHDjH3iLAZX9ZFWrm+kB1lBM3zksjwJOd
sCnRoPtA1ebHW5yxI8D8i1bgWDD8QAAAAAAAACTA+TKfCQ==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777213541487018*^9, {3.7772681179182663`*^9, 3.7772682111778555`*^9}, {
   3.7772682809468813`*^9, 3.7772682935294833`*^9}, 3.777268825203727*^9, 
   3.7772688706913743`*^9, {3.7772689563374805`*^9, 3.777268977757983*^9}, 
   3.777271150819675*^9, 3.7772712955582905`*^9, 3.7772715006207304`*^9, 
   3.777271596547375*^9, {3.777271638748845*^9, 3.777271654590958*^9}, 
   3.7772718857888613`*^9, {3.7772720965415*^9, 3.777272100609243*^9}, 
   3.7772726841219187`*^9, 3.777272742095403*^9, 3.777272802782074*^9, 
   3.7772728573867126`*^9, 3.7772730753713193`*^9, {3.7772731153255835`*^9, 
   3.7772732408678637`*^9}, {3.777274589070473*^9, 3.777274643347761*^9}, 
   3.7772747855899096`*^9, {3.777275031434433*^9, 3.7772751106977596`*^9}, {
   3.7772753698832445`*^9, 3.7772754609286256`*^9}, {3.777355923125128*^9, 
   3.777355944124995*^9}, {3.7773559786949315`*^9, 3.777356081474761*^9}, 
   3.777356235312498*^9, 3.7773596772158537`*^9, 3.777359990763325*^9, 
   3.7773602563765063`*^9, 3.777360598625922*^9, 3.7773608690258446`*^9, 
   3.777808363624504*^9, 3.777808493715164*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133940191507`*^9, 3.777213394300336*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"logaritmic", "[", 
        RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], ",", 
       RowBox[{"T1", ">", "0"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Data\>\"", ",", "\"\<Log\>\"", ",", "\"\<Linear\>\""}], 
     "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "5"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.77721346986978*^9, 3.777213515131463*^9}, 
   3.7772135510596743`*^9, 3.777266907897145*^9, {3.7772682336537647`*^9, 
   3.7772682388730745`*^9}, {3.7772683078702726`*^9, 3.777268318493739*^9}, {
   3.777271505332076*^9, 3.777271510138446*^9}, {3.7772746550716467`*^9, 
   3.777274664601136*^9}, {3.7773560971463304`*^9, 3.777356179924718*^9}, {
   3.777356212896411*^9, 3.777356239095602*^9}, {3.7773569506538124`*^9, 
   3.7773570292840233`*^9}, {3.7773605964906445`*^9, 3.7773605967737846`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterTable\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7773602586681085`*^9, 3.7773606007159657`*^9, 
  3.777360870290926*^9, 3.7778083638131084`*^9, 3.7778084949782963`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.1480969566374004`", "0.1191623235214347`", "9.634731202861136`",
       "1.019908832795845`*^-18"},
     {"T1", "7948.675714957932`", "654.1937192326002`", "12.150339389198201`",
       "1.1646998494393999`*^-26"},
     {"T2", "27635.96580886418`", "1135.4250633239533`", 
      "24.339753191602078`", "4.720288030877626`*^-66"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, 3.777808363953681*^9, 
   3.77780849500954*^9}],

Cell[BoxData["0.9774539617668377`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, 3.777808363953681*^9, 
   3.7778084950251637`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "0.9838566130213329`", "0.010634338436247247`", 
      "92.51695523135206`", "2.848761005615908`*^-186"},
     {"T1", "11353.593353348779`", "552.8451337293657`", 
      "20.536661463871553`", "2.8263255809128644`*^-54"},
     {"T2", "9692.10595610598`", "4906.449203737921`", "1.9753808821096448`", 
      "0.049400177399376605`"}
    },
    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.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, 3.777808363953681*^9, 
   3.777808495198075*^9}],

Cell[BoxData["0.9909101366401067`"], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, 3.777808363953681*^9, 
   3.7778084952136974`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVlHs41fkWxiWkoRBJaMpUCJVrKDUvyVRSacZwDKJSzUSIROoMTaNIkxhD
RCqjmmoal0S5bBnEIPf7bbvbrjtMcuvMOd/1x7GfZz/7+ey1vu/7rvXdv610
xO2Qs6CAgMDQP+//frKXLwT+/4UfMXMw5VBSZFoO++InlOWq/KrsU83YMRym
/k1x+5NSGHMi8UTy+LOaJXmM19xGYOmJTcH6dYwRjy2F3e8WDL5m7H4PUmd6
/Vo0ixnHJyBG3cP7k/wWxuWJiBKSHlMOLCf/R7BT2VxsoFfBWPMxMloKGpHA
pTxP4WvmZK+0lfxCn2GRX13IlfNVjNv/QFi3Z+2B822MJ5MQzP3NxyKH/CRT
MOSl5NHtUM9YNRX/tol+1BRL+niOWo2UmwP7OxjbpOGD6gdP1cOtNM8LxNXG
pzjLdjG+mo73TSoxEyPE8RlwqViVar6P9NJfQsLj5g1haaqXv4KDhpOMe3sv
475M/JK/b7/W206aPxvnDt5TjDCjulwO1hVc92+X4hFz0GkxIvjYn/QSOPhm
jdpM65UB2lcuJlqu9+h69DPOzIWiyxu/iSzS2/0auQrJH1N/IL3q1/jxtkhk
zOwQ7TcPDpPqvPACqg/m4a6PUrS20SBjnz/haxwi3rdjmLFQPk73Whm+chul
+8iHV8tZxa/yqF+xAI7l4QEbL/EZPyxAtsWp3+3fU79uIboFquM9LxBzClHk
JOXhcZL6973BozvyuadFievfgOP61LAlnfhYEXo3B1+2rX7HeLQIL8rsveM2
E18oxr2bRutMW4hF/4L28hTV6LAxxj//BcNVx453viReUwLn7uzbKeoTjJ+U
YDl3Y0v+7N+MDUqRzrE3GtAYZ/xnKfbpuQU/OUL9B8vg3VWQWhHxnnFzGbj7
ZXOOriE++RZrjdVqOJtIb/wtYo+alofZEqMcHjdXPix8Mck4sBxqQ8J3Riw/
MC4px1cRNxfoBFF9WQViShM/WS5JdZsKHNKb2u5pP8U4rgJNdhltl2aov6sC
382kGogaU12tElb6cr4G7sTulfB+8tuFz44Qp1Ui32RE5ITLNOOZSiyQz7ru
/mSGsUkVrk1kSOkqz9LzUAUBn0PGRVFzjMuqkHQ/YM2ptVSXqYYSx97vlB+x
bTUEohuVKhyI46tRH1dvk1VE3FONsm1BDYoBxBo1uHjwiseiPMpzpgb7VVPz
RXZTPb0GVyNLrM5Kkv9cDZZrNiRxQgU4/2PTWly8v81Xt5PqwbUwMfadOFBP
9fJazEm7hiSuJ5atw8IIOeu7ny5gbFeHs2ln7kKK6vfqsMh88s2R3I/0PNfh
cutY1sp20t9Uj9rwckF7dWKveszq1P5w1pr0Xtbj5xt8iYDFxAINOPk41O1r
HUHGZg2w2KFdfLWe6iENEGkNu8jPWci4sgFPb3XFG5+iPHKNsBKW3+ogSHWH
Rhi+2eRqU03nExphHWCc4ZlIzGtE5d9N3EF98tNswq3gteLPWui8dxOcVSXy
F1RSPbMJPaK8scpUOi/YjMQtMWXZ64UY725GuqPM95Z+dP6nZkiF6mb+LiXM
uLoZTR4P+61jqS7fguRpR/ftT4kdWyD5+Q7++VnyS2xBupSh+RyH9AdbYBn1
xQfZYerXbkWP2OwXViqijH1aoTX9S13CNPVnt8JoXKmkeZr6hdoQGKcdVJNE
9b1taHhx/w/JS8Shbdh52LPEKlGEcW0bfinb6xShRfmXtsMydfTVAT7l02rH
ztlbpzJ8SP+rdmhofep8WpDynGtHs+aRkdxIOh/dji2HHeqm5ak/qx0BjebT
jRsXMW5vR5K0Q8RSO8qzkIuNwas1ywwWM1bm4mmUavHxNNLbw0Von/0e2Qry
c+GidNV0qZ2yOOMbXOw53BA100b9yVxoXexxC31JfjVcXHVtnLhwjc5PcvEx
KFbt3zrkp9ABrqjZuMoI5dnRAbE1QQXFfksYO3Xg5MAePZXvqf9yB/QNBtuG
AsnvQQemkiJqX+tRnuIOXFo0aPZDLu13qAMS2h46c+rkL9mJopjrAzLeYox1
OpHuvGtBbALl/boTDlKiCtxTSxn7dkK+TThwbob0bnfCo5WbfC2L/HI6oajs
37pCjfQ6/tGrt5XQkiQ/4S5U+d8eV42keVS7MLaw+WSsLemZd8E8LSNN9zKd
P92FAuPydJU0ynOzC+fU47ZtXk79qV1wuFQR42dN9boufLa/fouNHvlNdeH2
NxJfvp4jv1XdeK51IihY+hPG6Maw0xsdVw1Jxke7kR0JTmAK1QO78a1N+vnj
uyjPo25kuib2i0XQPkq6sUJhInGpMPmPdEM8ysP5ygD5LevBYH/nBvVx0tfr
wa9O0n5LQWzTg2UPLN4Vhkgx9uuBo/FLo8ALtM+4HrgM5u1+Gkx+uT1YV+p1
wiue7r+rBystvbml52QYL+qFuZFLllMoza/Wi3/FuibvilnG2KIXXLFEbbVp
ms+9F91rp1yUa6k/vBc7z/uPKi+hedJ6MTyrLFGhTvPM9KKsfXMt/xHlWd2H
n/TEk23kVjA26UOOvZpj8pgEY+c+hA2bas9OSTO+2gebEMvPP9hQ/sd9EJ84
HrQhn+Yv64OfnB1vaQ7p8/uwtbnqs6wNlEe/H0tNDJZofUn3YduPxUbwVPZd
zji+H1MHY0UCttP+8vpxv+y6aZsF5enpx5Xp6L3v19P+F/MQLHzPqVqA9qPB
Q8XknHpYGNUP8FBcZbXvWDXlOcODjOo78MRo3xE8rAr/mHNtNfWn8xB+8lyN
PYf228SDFmf9HoU75D/Hg4js0Ycf/6T8SgO4pZT9veJjym86gFL5fDm3G5Tn
xAA0nim0VhXR/oIH5ucvH4DhE5WAZmu6n7GB+f8vsoPz93NvEPLfLDyh3kR5
8gfn+/UNIsNOKEboLemJDcF2lWd8mgfdj+UQvLYbC60Wo36vIURdenbmu3ia
N3IIYxl20znxNF/L0PznRWB4Pq8dhs2DtcEBXnQ+ZBj2Gu+vSouT37NhdMjb
Gh1csZJx5TCGqqQjt2ZSPrkRbO/4LtNsF933thGc9xC+MZBA7DACM9dfJ7fr
07wBIxgPKlwRbU3+CSPzf3+F89lfZBSm0lHLQl4Ru41C8/JR23XmNH/AfPYP
G8VlEy/d8Qa6r4RRGFdK6u5+yO7L//koaqczfO0FKF/hKBwXHuXoW7J+//pR
bJDI/1qiifbHG0X1/bue0jN030v4eDDZuVroBel9ysdeI7N+fjD9HjX52MgR
765vZfr+xnx8a3gje06B7v/Lf84/P3DnrhrlPcZHhpoeb8VOyuvNh7XJhg8/
7mT78b/ChxnnkZ87ZDj/ASMwNyE=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAq2w4YtoTaT+cF+4uZq3BP3cjktz7
AEdA9XTa1FiKwD8GX920yQBXQK1FWrJTG78/zvwCobAAZ0AacjWcgGu7P7LL
FRekAHdAzzTMe6mJtD8kMx/SnQCHQJ1Y1IoB0J4/3eajr5oAl0BfEg4Mxi+w
v7lAZh6ZAKdAisRFkd09zr8fLBTZQPi3QI+wYHbsj+K/pHchUVfOwUBR8SoK
EhPsv2+LX8tSg8dAskCBhZRv8r92/kOHIrTNQFey7VJH9Pa/mKZngZe90UDl
6ZJdZPT6v5N9AOAH39RAG1tOZ6QR/7+prWyJ2vHXQMn2A6mccgHAmEusksvP
2kBskVx+SCQDwCUZv7ym691AsG+wyXfiBMBHqlIjUGngQIkE+RKibQbAiHSv
DX7V4UDJlxgpP94HwJjWdQihYONAxmI/66xaCcCV7yUzU9HkQCWqKYvPrArA
YaA/bvpg5kAAe/GqrwoMwLr9ws5S6edA0tuP6wdTDcAAEjBfOlfpQIHSW+g4
eQ7AFb4GABfk6kDi4AQCuKwPwBchx9CCVuxAkZmX2BVhEMDoG/Gx4+ftQNug
pzjg8hDAR8OEuPVx70CJtVsvDH4RwMoQgXfLcPBA79Y7ANX8EcDXi/SaFjjx
QGE401JwgxLAW+JcViny8UC2gAYQ0f4SwCUPeqSUqPJACKcZL+11E8DXB8x6
em7zQGwncn9g9RPA/9sS6Scn9EAvqbPO5WoUwA98jt9P7/RAs86iefXoFMBm
8r5o0LP1QAuAc0SYYxXAM0TkiRhr9kCtFw4IIdUVwOhhPjPbMfdATqy14HZP
FsATW410Zev3QFcAKbYIwRbAhSqRSEih+EDntmum3S8XwN7FyaSlZvlA8j2z
yKanF8CuPPeYyh76QI1HXQAIFxjAZX9ZFWrm+kDOjgCBa48YwJOdsCnRoPtA
YNxFpo3/GMAHkrzQkFf8QC3Lpl9DbRnAY1L9/8od/UByJjDfDOQZwDXuMsfM
1v1AqSqELL5SGsDvVZ0WSZ/+QBy+hX2JyhrA8JO8+B1k/0Aa4si8AkAbwLRW
aDndDQBBLzPyY32tG8BkyYy6aHEAQbeHz+gZJBzAz6mrB1jOAEF1g4UuwpIc
wF31JJ5zKQFBrfy0kC3/HMDfprh4TIwBQX1gpli/dB3AHMZGH4noAUF4fAkQ
aOIdwCmXsPok6gFBMTc5nlHkHcA2aBrWwOsBQfYanis75h3AUQrujPjuAUEM
ewlEDuodwIZOlfpn9QFB7FZ1a7TxHcDv1uPVRgICQTUdFpUAAR7AwueAjAQc
AkErZg5XmB8ewM+46megHQJBRcvizIEhHsDciVRDPB8CQa6Y/EFrIx7A9iso
+nMiAkFjXQIqPicewCtwz2fjKAJBrRJk8eMuHsCU+B1DwjUCQf07610vPh7A
ocmHHl43AkEotU/IGEAewK6a8fn5OAJBkDQBMgJCHsDJPMWwMTwCQVEiTQPV
RR7A/oBsHqFCAkEfrZWdek0ewAtS1vk8RAJBFk5vAmRPHsAYI0DV2EUCQXml
mWZNUR7AMsUTjBBJAkGhSeIsIFUewD+WfWesSgJBsn4BjwlXHsBMZ+dCSEwC
QcU6c/DyWB7AWjhRHuRNAkE48TdR3FoewGcJu/l/TwJBHBVQscVcHsD5QEib

       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAq2w4YtoTaT9SaBs+uKqQv3cjktz7
AEdAVzyW90ahl78GX920yQBXQDYbqkDfuZ2/zvwCobAAZ0BKoltVWJWkv7LL
FRekAHdAwPJCT7ZSr78kMx/SnQCHQKMVYrRav7m/3eajr5oAl0C0190Nj1nG
v7lAZh6ZAKdADUj9iNMU1L8fLBTZQPi3QCpcbdVkGOO/pHchUVfOwUAqfgkV
TCbrv2+LX8tSg8dAFw45ZTtn8b92/kOHIrTNQOJKmmfCdPW/mKZngZe90UCZ
p1aarCn5v5N9AOAH39RAKXgNCVYc/b+prWyJ2vHXQEGy5aiKdgDAmEusksvP
2kDt992A/TcCwCUZv7ym691AgCRYxmMZBMBHqlIjUGngQE+H0Xi41QXAiHSv
DX7V4UCi4epT9IQHwJjWdQihYONAYmwtAVtUCcCV7yUzU9HkQMN3soTZAAvA
YaA/bvpg5kDPm39PYs0MwLr9ws5S6edAkErfocqNDsAAEjBfOlfpQLnej35y
FhDAFb4GABfk6kA5LjP0+/UQwBchx9CCVuxAGai4qD3FEcDoG/Gx4+ftQFjD
pj9mpBLAR8OEuPVx70CcQwzjJH4TwMoQgXfLcPBAKiujSSRIFMDXi/SaFjjx
QL9lZWf6IRXAW+JcViny8UCLtaKmUuwVwCUPeqSUqPJAOn26r8SxFsDXB8x6
em7zQEe645b7hhfA/9sS6Scn9EBRSy0AE00YwA98jt9P7/RAQcD+OtsiGcBm
8r5o0LP1QJSruybb8xnAM0TkiRhr9kA31Qt3C7YawOhhPjPbMfdA8TUA8tmH
G8ATW410Zev3QKLfK9r/ShzAhSqRSEih+ECi+i34qwkdwN7FyaSlZvlAWDJQ
zePXHcCuPPeYyh76QPdO+xiulx7AZX9ZFWrm+kDK/FNt8mYfwJOdsCnRoPtA
tzRUrfMTIMAHkrzQkFf8QMlttWVGciDAY1L9/8od/UBS00o5TdggwDXuMsfM
1v1ANr0Bu0M3IcDvVZ0WSZ/+QFIGVTDmnSHA8JO8+B1k/0ABBgAxZQIiwLRW
aDndDQBBQYHW1uhfIsBkyYy6aHEAQSXkH8cPxSLAz6mrB1jOAEFY+pDWRSMj
wF31JJ5zKQFBVHMBeW1/I8Dfprh4TIwBQTXvUCUw4yPAcQPV0OioAUEAAAAA
AAAkwBNgtjg=
       "]]}}, {}}},
  PlotLegends -> {"Data", "Log", "Linear"},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777273168861991*^9, 3.777273241103443*^9}, 
   3.7772746476330256`*^9, 3.777274787809721*^9, 3.777275050333645*^9, {
   3.7772750873203535`*^9, 3.7772751150421495`*^9}, 3.777275389337082*^9, 
   3.7772754498041816`*^9, {3.7773561875824795`*^9, 3.777356241301865*^9}, 
   3.7773596775854435`*^9, 3.7773599939238873`*^9, 3.777360258706132*^9, 
   3.7773606007461915`*^9, 3.7773608703351946`*^9, 3.777808363953681*^9, 
   3.777808495323047*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7773602586681085`*^9, 3.7773606007159657`*^9, 
  3.777360870290926*^9, 3.7778083638131084`*^9, 3.777808495389966*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7773602586681085`*^9, 3.7773606007159657`*^9, 
  3.777360870290926*^9, 3.7778083638131084`*^9, 3.777808495468073*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 90K", "Section",
 CellChangeTimes->{{3.777213397085782*^9, 3.777213398057104*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_90K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "4000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "15000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", "0.81"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", "0.19"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777213613191477*^9, 3.7772136366566715`*^9}, {
   3.777268985857731*^9, 3.777268995053745*^9}, 3.7772746758939753`*^9, {
   3.7772747465919824`*^9, 3.7772747487613506`*^9}, 3.7772748658069887`*^9, 
   3.7772750246361036`*^9, 3.7773562743095055`*^9, {3.7773565492178917`*^9, 
   3.7773565676999965`*^9}, {3.777357399083596*^9, 3.7773573995435853`*^9}, {
   3.777808417499494*^9, 3.7778084180930867`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1Hs81PkaB/CxLitbkrXVoqWtLbfUoFa7p3zUbpHaVGwqXUk2XZSKZLep
LbJHtcXWSi5ZtWl0WZZkcxmlsHLLbYzLzBiDYTCVQtJ2zvf548zxenl5vT3P
97l8f7+Zqdv2rt7+HofDEb37/c9f9nMYnP/9wUnM2i5cNT3wXj77xxkcfqvz
Q0lALfOWaCQfc1RZ6d9hLriIg75Hrw1VFTCbX8YMr3OibU+FzEhCaGqWnp+w
kDkwGa4XDcxWcEqYk1KQ5GylMTG3ibnyGqIi42L9pE+ofyoCGk1WL4iuYJ7D
R+/Jzz5NXiOmeW4iUu/viqgfRMw/34aN2+u5WjNqmMV34L/iaw+ZqYR58A+o
JsU9XNVA/QwyMGtZ8NkVCXTe4k8kddUpVErKRyYaAhP9V39H9sqC5YXxBgve
b6V97uL85W6LcGUb86lseApdw39Vymi/e9hcyXN27Kbz2TkQOcn95+6X075/
YUFQ09xdSR3MnfcRtGPSha3j22n/PFgN52glDnUyT85HSGBw7JyXCnIBRrKH
bkwIpXhKATQ8I0o4Zt10XwI4qq6stFrbw3xfgEje49nn9SjuUgjZtDNmaW7k
mkK4OeR9WmPSR/f7ANyCc8uCJyqZex5gibf25c4McshDOF5LHCnYqWLWKsKx
ibH9vuf66XkUIexcwvQ9HWTTR/D+qEwILuVffwQn6+22x0OeMTs8hpmht67m
YYoXPIafwPhWSyPFlxdjT+KO9N2xz5kbivE4+zS3exrZtwRnA1wFGTEvmPtL
oPez2VDXdXJYKXy2OrjG3CLr/o20D04e/NelAeaYv+HWeli6wfwlvc9l8Ba8
mrrJgpxWhpBRC5sEIeU7PkHc9MCcmj8p/vAJQncHyuKOvGJ2L4er+8Xq9dbk
pnJoxMNVQzHI7F+BaGGirnIH+UUFXntlJpc/o3xU4lyR7fzqK+TwSmQJllkG
jX3NXFaJlb2l1s/th5kNq1BSHOt+QUL2qoLCpzJxXTzlJ1RhfeOUHTkRI8yy
KuwbeFN4tIJsVQ2ngHH1B/jkwGok5+V6e6vIWdWI0jIcUx/zhnmkGglTUtPH
hlF80VNEbBHxTtwln3qqXq/8KaIGwo+VOr5lNqrBN3knxml/NMq8vgbZwTNH
5YMUT6pBLzff09TnvYL/Wl6DhrM/ZW78lOI2tTC3k3omvibvr4XON0f4+1ZR
fnYtAqKPvvVcrME8WgvH1s85y4Xkr+qQv/Rl9j4lh/mnOuQmxqQ0+5Mr6zCp
1L9BYkv5E+vRq1c1fexusnc9BLf3uPR8Sf2S62H02bDfjEmazJ312JPisVBQ
T7ZtwNx5zRbHP6T8Aw34UdejcJuM6uU0YMHStJu5iynOEUJQrarQkpOXCHE4
yHmFPFSLOUqI+N9vFqQWU7xaiM5JuGe+UYd5ciN2z3ev0t+uzbypEWG/fNe7
dx7FUxpxq+RGWEkM1VM0wjouxjZCn+adI8LC5ROm1XAo/5AILhft+n28dJnv
i1CSfsK1hEv132uCOGh8gpM95bs04UbqXR1u/PvMZ5oQ3bTxyHV9Ol/ThEyl
n2hDN9m4GTmNFVLfqA+YtzSDv//ZX5c+Hsd8rRnx4jXFZ9P0mHuasbX9+oCp
KdW3a0HShbQrdZ9QvZAWZNh3GUlbaL68FgztfKHTH0fzabUi2G3kE9sRqres
FdpF2165LxrD/HMrdoq2Lixqovy6VnAPRM4sMqB8fTH0v8hekFhM5ophsrzZ
1PdL6u8hhsLuw9FVPlQvWIyZaVlSfgP5khiNbW88wo9Tfq4YdpdmaxcYk8Vi
9X01Jer9Z0jwSqG5a98JfWZXCab6r+uZYEj3tUuCeY/4F69FU72zEgQMSUKG
msnpEvCdd6+PHp7AXCvBKbvMjbl3qf6gBIP94hf33GheEynufZ5VURYwlnmh
FJYmhuc1vqfzW6UIaBDxTocZMJ+Qwm7d94+O7qf5fpfidu/pqqnW9HxLpfBY
Y9Ixw3g8s1KKeUOrbQQ6ZIM2NPhUhbcoaB77NsQFdr0w86Tz37ZB52CqQEOT
9j3chtgFy455qqj/5Ta4/ztD9dx+InN+G3ja581TIw2ZpW0wCPU9MNeN+mnL
sCqy0s26js5byGAUFqTpu5v2c5Phx0HJ3je5HzKfkyHG1yH66S3K/1OGcuMP
bELbab56GXTcAzseRVD9YRlGEku1NiRQ/yntSCqK8wef7hPt2Lk8fb/NG7qv
8HakxF1L9hHR+dR2WCs8u/jGtE9ZO1YhwiV5FsX72mF/5rdThxxpXkO5enyu
HHP27rh5S5fm9ZJj3G8FC8UetM8ROe5Y69lYH6TzCXIsllSOFvNpH4Eclkfr
2l9eNWKWydWf7/sdsO7TXfyFJtW36kDCrJKPK/qp/4oOGGUscbn8kPIDO1B2
S8tJz4LuI7pDff+sDhziptkVP57MLOxAIn9L7ZXlVN+sEy71sYJoI5pnUSe0
rh5p5m+n+bd34mbRQVuHq2R+J5xvHFya3kbnyzsR8wX38s50un/Vu3q1oWEZ
mZT/eRfWdzmdt9Kn/KQurLQ0D/LxIj/oAjf/RD+35WPmMQr1fisVSCh3eHF6
gPbb/y5e+NW8XUF0H78oICra/Cz4EeVnK2Bfb/kyz2YKs0iBOr2ZkeZJVH9U
gXWjmps8DtH7/lU32rS/jqhX0v4/dav3q+yG6XCrXog/vS/PuzG49lfd5ijq
N78HwZx46b0I2j+5B2vXtZq2bTRhLurB/DVXnZ3u0PvR2YPXViH7hv2MmW2V
6u/zASXGtTzomZ1HvqjER1qjGjN/peeXo4R86Zw/nmhRfU4vAnnx0VO5NM+S
Xkjzf0mwGke+3YuWdA7/djL1r+5FZM00t5JttO9AL7qjn34tuk79vuxDyvpC
vyvaFD/Whw1bUn8/9oze35Q++AxEWBzXpPzHfUi1WTlZ/pLqK/rUvg94Ov2Y
4+KpJzrJvn94lv1q7y/vfL/6+ZR+tc8HL/P//IlK7fPHc1ZhsHQwc823bF+e
r0rt+fAiVKjf7KDt4mtQ8A/ADdxN
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAAq2w4YtoTaT/5pAY+n5bFvncjktz7
AEdAngzYLHn6jr8GX920yQBXQJFChGnI9Jy/zvwCobAAZ0CSpa7mIg2rv7LL
FRekAHdAQH/HAR8+ub8kMx/SnQCHQFebn4MwgMe/3eajr5oAl0CFHbOCdcfV
v7IrDWyfuJdAahKzzFlh1r+GcHYopHCYQCS2nraa+ta/MPpIoa3gmUClISMO
QivYv4IN7pLAwJxA5zmaGYiF2r8UGhw7c0ChQAX88pduIN+/uUBmHpkAp0BN
Id9N4v7jvxhJtcBYZKdAE+lMUNtJ5L92UQRjGMinQM2PqmKalOS/MmKip5eP
qEDxk+sqbSnlv6qD3jCWHqpAUcNeV3VQ5r+axlZDkzytQFlFZ0WClOi/PqYj
tEa8sUBr//I5cffsvx8sFNlA+LdAQOKRVnSc8r+kdyFRV87BQAPihIIWiPm/
b4tfy1KDx0D2tQ1gTHr/v3b+Q4citM1AtGgefKOUAsCYpmeBl73RQE3FDGcz
8gTAk30A4Aff1ED5pNEWXUUHwKmtbIna8ddA0d9h2t1fCcCYS6ySy8/aQGn8
/GCXOAvAJRm/vKbr3UAGAjzdNCINwEeqUiNQaeBA1/iNG/jbDsCIdK8NftXh
QCZlzqN0QRDAmNZ1CKFg40ARMlQE5yIRwJXvJTNT0eRAIELvgJ3yEcBhoD9u
+mDmQLfwFa3A0RLAuv3CzlLp50AdU2txYasTwAASMF86V+lAeLxPYXJ1FMAV
vgYAF+TqQOGBcmzrTxXAFyHH0IJW7EAZfQZJYBsWwOgb8bHj5+1AVR9yMXv3
FsBHw4S49XHvQN6oXehSzxfAyhCBd8tw8ECjPNmrhZgYwNeL9JoWOPFA3Kib
V4lyGcBb4lxWKfLxQDp5+8AAPhrAJQ96pJSo8kDomsVragUbwNcHzHp6bvNA
pW7apbPdG8D/2xLpJyf0QFCwrLWBpxzAD3yO30/v9EBR+zFDM4IdwGbyvmjQ
s/VAK19s8+FYHsAzROSJGGv2QFY0OP0bIR/A6GE+M9sx90BoNixsPPofwBNb
jXRl6/dAEvHU/3RiIMCFKpFISKH4QNRqWEfMxSDA3sXJpKVm+UA564lJlzEh
wK4895jKHvpABghNhSmWIcBlf1kVaub6QCC/EKIvAyLAk52wKdGg+0BTMwMq
/WgiwAeSvNCQV/xAiazkrsvMIsBjUv3/yh39QDyfQDIOOSPANe4yx8zW/UBa
HrJFGJ4jwC5ycIcRiv5AAAAAAAAAJMDlk9ix
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAAq2w4YtoTaT/5pAY+n5bFvncjktz7
AEdAngzYLHn6jr8GX920yQBXQJFChGnI9Jy/zvwCobAAZ0CSpa7mIg2rv7LL
FRekAHdAQH/HAR8+ub8kMx/SnQCHQFebn4MwgMe/3eajr5oAl0CFHbOCdcfV
v7IrDWyfuJdAahKzzFlh1r+GcHYopHCYQCS2nraa+ta/MPpIoa3gmUClISMO
QivYv4IN7pLAwJxA5zmaGYiF2r8UGhw7c0ChQAX88pduIN+/uUBmHpkAp0BN
Id9N4v7jvxhJtcBYZKdAE+lMUNtJ5L92UQRjGMinQM2PqmKalOS/MmKip5eP
qEDxk+sqbSnlv6qD3jCWHqpAUcNeV3VQ5r+axlZDkzytQFlFZ0WClOi/PqYj
tEa8sUBr//I5cffsvx8sFNlA+LdAQOKRVnSc8r+kdyFRV87BQAPihIIWiPm/
b4tfy1KDx0D2tQ1gTHr/v3b+Q4citM1AtGgefKOUAsCYpmeBl73RQE3FDGcz
8gTAk30A4Aff1ED5pNEWXUUHwKmtbIna8ddA0d9h2t1fCcCYS6ySy8/aQGn8
/GCXOAvAJRm/vKbr3UAGAjzdNCINwEeqUiNQaeBA1/iNG/jbDsCIdK8NftXh
QCZlzqN0QRDAmNZ1CKFg40ARMlQE5yIRwJXvJTNT0eRAIELvgJ3yEcBhoD9u
+mDmQLfwFa3A0RLAuv3CzlLp50AdU2txYasTwAASMF86V+lAeLxPYXJ1FMAV
vgYAF+TqQOGBcmzrTxXAFyHH0IJW7EAZfQZJYBsWwOgb8bHj5+1AVR9yMXv3
FsBHw4S49XHvQN6oXehSzxfAyhCBd8tw8ECjPNmrhZgYwNeL9JoWOPFA3Kib
V4lyGcBb4lxWKfLxQDp5+8AAPhrAJQ96pJSo8kDomsVragUbwNcHzHp6bvNA
pW7apbPdG8D/2xLpJyf0QFCwrLWBpxzAD3yO30/v9EBR+zFDM4IdwGbyvmjQ
s/VAK19s8+FYHsAzROSJGGv2QFY0OP0bIR/A6GE+M9sx90BoNixsPPofwBNb
jXRl6/dAEvHU/3RiIMCFKpFISKH4QNRqWEfMxSDA3sXJpKVm+UA564lJlzEh
wK4895jKHvpABghNhSmWIcBlf1kVaub6QCC/EKIvAyLAk52wKdGg+0BTMwMq
/WgiwAeSvNCQV/xAiazkrsvMIsBjUv3/yh39QDyfQDIOOSPANe4yx8zW/UBa
HrJFGJ4jwC5ycIcRiv5AAAAAAAAAJMDlk9ix
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772136141988583`*^9, 3.7772136370315495`*^9}, {
   3.777268832135801*^9, 3.7772688396927757`*^9}, 3.7772688777966003`*^9, {
   3.7772689617318597`*^9, 3.7772689953971605`*^9}, 3.777271151317542*^9, 
   3.777271296029277*^9, 3.777271597031636*^9, {3.777271639624716*^9, 
   3.7772716550523157`*^9}, 3.7772718863071213`*^9, 3.777272108379834*^9, 
   3.777272684481208*^9, 3.7772727424859357`*^9, 3.77727280320385*^9, 
   3.7772728578241096`*^9, 3.7772730757930946`*^9, 3.7772731157372904`*^9, 
   3.7772732413544636`*^9, {3.7772748590045896`*^9, 3.7772748665547533`*^9}, 
   3.777274925626027*^9, {3.7773565528711433`*^9, 3.7773565681166906`*^9}, 
   3.7773596779589453`*^9, 3.7773600099910345`*^9, 3.7773602720897303`*^9, 
   3.7773606201458864`*^9, 3.777360871229579*^9, 3.7778083662976823`*^9, 
   3.777808495767547*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772133997724857`*^9, 3.77721340002233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"logaritmic", "[", 
        RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], ",", 
       RowBox[{"T1", ">", "0"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"9", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
     RowBox[{"T1", "/.", 
      RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"9", ",", "3"}], "]"}], "]"}], " ", "=", 
     StyleBox[
      RowBox[{" ", 
       StyleBox[" ",
        FontWeight->"Plain"]}]], 
     RowBox[{
      StyleBox[
       RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
       FontWeight->"Plain"], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"9", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
     RowBox[{"T2", "/.", 
      RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"9", ",", "5"}], "]"}], "]"}], " ", "=", 
     StyleBox[
      RowBox[{" ", 
       StyleBox[" ",
        FontWeight->"Plain"]}]], 
     RowBox[{
      StyleBox[
       RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
       FontWeight->"Plain"], "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.7772668597245007`*^9, 3.7772668619641333`*^9}, 
   3.777266905394416*^9, 3.777274815265127*^9, 3.7773562827120304`*^9, {
   3.7773565987744923`*^9, 3.7773566015453033`*^9}, 3.7773602997589483`*^9, {
   3.7773605924660873`*^9, 3.777360592809775*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterTable\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.777360273822198*^9, 3.7773606241396885`*^9, 
  3.7773608717217655`*^9, 3.777808366375757*^9, 3.7778084962558656`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.1913798040772317`", "0.20216715814961292`", 
      "5.893043237000722`", "1.4419850048639639`*^-8"},
     {"T1", "6059.427665386721`", "999.9051173324054`", "6.06000265460422`", 
      "5.988130204772421`*^-9"},
     {"T2", "17269.962270131804`", "717.0754085248268`", "24.0838858296085`", 
      "4.193990501379701`*^-63"}
    },
    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.7772136167593613`*^9, 3.777213640864068*^9}, {
   3.777268833579146*^9, 3.777268841469958*^9}, 3.77726887935989*^9, 
   3.7772689632651076`*^9, 3.7772689978026505`*^9, 3.777271151504998*^9, 
   3.777271296232353*^9, 3.7772715972190914`*^9, {3.7772716397902975`*^9, 
   3.7772716552241488`*^9}, 3.7772718865101986`*^9, 3.7772726846374197`*^9, 
   3.7772727426265273`*^9, 3.7772728033600616`*^9, 3.777272858000201*^9, 
   3.777273075949312*^9, 3.777273115893503*^9, 3.777273241573165*^9, 
   3.7772749279597473`*^9, 3.7773565713171897`*^9, 3.77735967818023*^9, 
   3.7773600125343027`*^9, 3.7773602739244175`*^9, 3.777360624169838*^9, 
   3.777360871759961*^9, 3.7778083665007267`*^9, 3.7778084962871075`*^9}],

Cell[BoxData["0.9676446207900778`"], "Output",
 CellChangeTimes->{{3.7772136167593613`*^9, 3.777213640864068*^9}, {
   3.777268833579146*^9, 3.777268841469958*^9}, 3.77726887935989*^9, 
   3.7772689632651076`*^9, 3.7772689978026505`*^9, 3.777271151504998*^9, 
   3.777271296232353*^9, 3.7772715972190914`*^9, {3.7772716397902975`*^9, 
   3.7772716552241488`*^9}, 3.7772718865101986`*^9, 3.7772726846374197`*^9, 
   3.7772727426265273`*^9, 3.7772728033600616`*^9, 3.777272858000201*^9, 
   3.777273075949312*^9, 3.777273115893503*^9, 3.777273241573165*^9, 
   3.7772749279597473`*^9, 3.7773565713171897`*^9, 3.77735967818023*^9, 
   3.7773600125343027`*^9, 3.7773602739244175`*^9, 3.777360624169838*^9, 
   3.777360871759961*^9, 3.7778083665007267`*^9, 3.777808496302734*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.009185014656651`", "0.014270008150707472`", 
      "70.72070345009705`", "2.3938865110841898`*^-151"},
     {"T1", "9772.645013704916`", "3043.953003735294`", "3.2105111352615214`",
       "0.0015269446116786354`"},
     {"T2", "10914.697798898882`", "12606.310575132096`", 
      "0.8658122242704235`", "0.38755379262227063`"}
    },
    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.7772136167593613`*^9, 3.777213640864068*^9}, {
   3.777268833579146*^9, 3.777268841469958*^9}, 3.77726887935989*^9, 
   3.7772689632651076`*^9, 3.7772689978026505`*^9, 3.777271151504998*^9, 
   3.777271296232353*^9, 3.7772715972190914`*^9, {3.7772716397902975`*^9, 
   3.7772716552241488`*^9}, 3.7772718865101986`*^9, 3.7772726846374197`*^9, 
   3.7772727426265273`*^9, 3.7772728033600616`*^9, 3.777272858000201*^9, 
   3.777273075949312*^9, 3.777273115893503*^9, 3.777273241573165*^9, 
   3.7772749279597473`*^9, 3.7773565713171897`*^9, 3.77735967818023*^9, 
   3.7773600125343027`*^9, 3.7773602739244175`*^9, 3.777360624169838*^9, 
   3.777360871759961*^9, 3.7778083665007267`*^9, 3.7778084964445486`*^9}],

Cell[BoxData["0.9909464570379569`"], "Output",
 CellChangeTimes->{{3.7772136167593613`*^9, 3.777213640864068*^9}, {
   3.777268833579146*^9, 3.777268841469958*^9}, 3.77726887935989*^9, 
   3.7772689632651076`*^9, 3.7772689978026505`*^9, 3.777271151504998*^9, 
   3.777271296232353*^9, 3.7772715972190914`*^9, {3.7772716397902975`*^9, 
   3.7772716552241488`*^9}, 3.7772718865101986`*^9, 3.7772726846374197`*^9, 
   3.7772727426265273`*^9, 3.7772728033600616`*^9, 3.777272858000201*^9, 
   3.777273075949312*^9, 3.777273115893503*^9, 3.777273241573165*^9, 
   3.7772749279597473`*^9, 3.7773565713171897`*^9, 3.77735967818023*^9, 
   3.7773600125343027`*^9, 3.7773602739244175`*^9, 3.777360624169838*^9, 
   3.777360871759961*^9, 3.7778083665007267`*^9, 3.7778084964601727`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1Hs81PkaB/CxLitbkrXVoqWtLbfUoFa7p3zUbpHaVGwqXUk2XZSKZLep
LbJHtcXWSi5ZtWl0WZZkcxmlsHLLbYzLzBiDYTCVQtJ2zvf548zxenl5vT3P
97l8f7+Zqdv2rt7+HofDEb37/c9f9nMYnP/9wUnM2i5cNT3wXj77xxkcfqvz
Q0lALfOWaCQfc1RZ6d9hLriIg75Hrw1VFTCbX8YMr3OibU+FzEhCaGqWnp+w
kDkwGa4XDcxWcEqYk1KQ5GylMTG3ibnyGqIi42L9pE+ofyoCGk1WL4iuYJ7D
R+/Jzz5NXiOmeW4iUu/viqgfRMw/34aN2+u5WjNqmMV34L/iaw+ZqYR58A+o
JsU9XNVA/QwyMGtZ8NkVCXTe4k8kddUpVErKRyYaAhP9V39H9sqC5YXxBgve
b6V97uL85W6LcGUb86lseApdw39Vymi/e9hcyXN27Kbz2TkQOcn95+6X075/
YUFQ09xdSR3MnfcRtGPSha3j22n/PFgN52glDnUyT85HSGBw7JyXCnIBRrKH
bkwIpXhKATQ8I0o4Zt10XwI4qq6stFrbw3xfgEje49nn9SjuUgjZtDNmaW7k
mkK4OeR9WmPSR/f7ANyCc8uCJyqZex5gibf25c4McshDOF5LHCnYqWLWKsKx
ibH9vuf66XkUIexcwvQ9HWTTR/D+qEwILuVffwQn6+22x0OeMTs8hpmht67m
YYoXPIafwPhWSyPFlxdjT+KO9N2xz5kbivE4+zS3exrZtwRnA1wFGTEvmPtL
oPez2VDXdXJYKXy2OrjG3CLr/o20D04e/NelAeaYv+HWeli6wfwlvc9l8Ba8
mrrJgpxWhpBRC5sEIeU7PkHc9MCcmj8p/vAJQncHyuKOvGJ2L4er+8Xq9dbk
pnJoxMNVQzHI7F+BaGGirnIH+UUFXntlJpc/o3xU4lyR7fzqK+TwSmQJllkG
jX3NXFaJlb2l1s/th5kNq1BSHOt+QUL2qoLCpzJxXTzlJ1RhfeOUHTkRI8yy
KuwbeFN4tIJsVQ2ngHH1B/jkwGok5+V6e6vIWdWI0jIcUx/zhnmkGglTUtPH
hlF80VNEbBHxTtwln3qqXq/8KaIGwo+VOr5lNqrBN3knxml/NMq8vgbZwTNH
5YMUT6pBLzff09TnvYL/Wl6DhrM/ZW78lOI2tTC3k3omvibvr4XON0f4+1ZR
fnYtAqKPvvVcrME8WgvH1s85y4Xkr+qQv/Rl9j4lh/mnOuQmxqQ0+5Mr6zCp
1L9BYkv5E+vRq1c1fexusnc9BLf3uPR8Sf2S62H02bDfjEmazJ312JPisVBQ
T7ZtwNx5zRbHP6T8Aw34UdejcJuM6uU0YMHStJu5iynOEUJQrarQkpOXCHE4
yHmFPFSLOUqI+N9vFqQWU7xaiM5JuGe+UYd5ciN2z3ev0t+uzbypEWG/fNe7
dx7FUxpxq+RGWEkM1VM0wjouxjZCn+adI8LC5ROm1XAo/5AILhft+n28dJnv
i1CSfsK1hEv132uCOGh8gpM95bs04UbqXR1u/PvMZ5oQ3bTxyHV9Ol/ThEyl
n2hDN9m4GTmNFVLfqA+YtzSDv//ZX5c+Hsd8rRnx4jXFZ9P0mHuasbX9+oCp
KdW3a0HShbQrdZ9QvZAWZNh3GUlbaL68FgztfKHTH0fzabUi2G3kE9sRqres
FdpF2165LxrD/HMrdoq2Lixqovy6VnAPRM4sMqB8fTH0v8hekFhM5ophsrzZ
1PdL6u8hhsLuw9FVPlQvWIyZaVlSfgP5khiNbW88wo9Tfq4YdpdmaxcYk8Vi
9X01Jer9Z0jwSqG5a98JfWZXCab6r+uZYEj3tUuCeY/4F69FU72zEgQMSUKG
msnpEvCdd6+PHp7AXCvBKbvMjbl3qf6gBIP94hf33GheEynufZ5VURYwlnmh
FJYmhuc1vqfzW6UIaBDxTocZMJ+Qwm7d94+O7qf5fpfidu/pqqnW9HxLpfBY
Y9Ixw3g8s1KKeUOrbQQ6ZIM2NPhUhbcoaB77NsQFdr0w86Tz37ZB52CqQEOT
9j3chtgFy455qqj/5Ta4/ztD9dx+InN+G3ja581TIw2ZpW0wCPU9MNeN+mnL
sCqy0s26js5byGAUFqTpu5v2c5Phx0HJ3je5HzKfkyHG1yH66S3K/1OGcuMP
bELbab56GXTcAzseRVD9YRlGEku1NiRQ/yntSCqK8wef7hPt2Lk8fb/NG7qv
8HakxF1L9hHR+dR2WCs8u/jGtE9ZO1YhwiV5FsX72mF/5rdThxxpXkO5enyu
HHP27rh5S5fm9ZJj3G8FC8UetM8ROe5Y69lYH6TzCXIsllSOFvNpH4Eclkfr
2l9eNWKWydWf7/sdsO7TXfyFJtW36kDCrJKPK/qp/4oOGGUscbn8kPIDO1B2
S8tJz4LuI7pDff+sDhziptkVP57MLOxAIn9L7ZXlVN+sEy71sYJoI5pnUSe0
rh5p5m+n+bd34mbRQVuHq2R+J5xvHFya3kbnyzsR8wX38s50un/Vu3q1oWEZ
mZT/eRfWdzmdt9Kn/KQurLQ0D/LxIj/oAjf/RD+35WPmMQr1fisVSCh3eHF6
gPbb/y5e+NW8XUF0H78oICra/Cz4EeVnK2Bfb/kyz2YKs0iBOr2ZkeZJVH9U
gXWjmps8DtH7/lU32rS/jqhX0v4/dav3q+yG6XCrXog/vS/PuzG49lfd5ijq
N78HwZx46b0I2j+5B2vXtZq2bTRhLurB/DVXnZ3u0PvR2YPXViH7hv2MmW2V
6u/zASXGtTzomZ1HvqjER1qjGjN/peeXo4R86Zw/nmhRfU4vAnnx0VO5NM+S
Xkjzf0mwGke+3YuWdA7/djL1r+5FZM00t5JttO9AL7qjn34tuk79vuxDyvpC
vyvaFD/Whw1bUn8/9oze35Q++AxEWBzXpPzHfUi1WTlZ/pLqK/rUvg94Ov2Y
4+KpJzrJvn94lv1q7y/vfL/6+ZR+tc8HL/P//IlK7fPHc1ZhsHQwc823bF+e
r0rt+fAiVKjf7KDt4mtQ8A/ADdxN
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBIQTe+yFib1JlAgAAAEEAAAACAAAAq2w4YtoTaT+W1LQjBGrGP3cjktz7
AEdAXZ7TtWgRxT8GX920yQBXQFfGuMEO5cM/zvwCobAAZ0Ao0nhSL7PBP7LL
FRekAHdAcvyKX/4xuz8kMx/SnQCHQJW6l2E9xqc/3eajr5oAl0AzJSWRnZOw
v7lAZh6ZAKdAahoqNVRJ0b8YSbXAWGSnQF1OnJHettG/dlEEYxjIp0BNy8Qi
KyTSvzJioqeXj6hATgKARw7+0r+qg94wlh6qQFB/29ESr9S/msZWQ5M8rUBr
iMvusgbYvz6mI7RGvLFABQL8IE2Q3r8fLBTZQPi3QISSmbKYkeW/pHchUVfO
wUA9xQkQX0vwv2+LX8tSg8dAOrIamVxT9b92/kOHIrTNQORUmY9Ab/q/mKZn
gZe90UCjOhWOyer+v5N9AOAH39RAclK/RTHAAcCprWyJ2vHXQJsjZjwk4QPA
mEusksvP2kBWV79vIsUFwCUZv7ym691A4oozP+u6B8BHqlIjUGngQPBc5/Gv
fAnAiHSvDX7V4UBbVfTJnCYLwJjWdQihYONA48CIJ3PmDMCV7yUzU9HkQNUb
Cv/2fA7AYaA/bvpg5kAVxKwWnxUQwLr9ws5S6edAttXiz3LkEMAAEjBfOlfp
QFHxTAIWohHAFb4GABfk6kCos6qM0mwSwBchx9CCVuxAqrLGYMAnE8DoG/Gx
4+ftQN1WzEQ78BPAR8OEuPVx70C9rKZ5VLMUwMoQgXfLcPBAv4D4gg9oFcDX
i/SaFjjxQEFGgb7bKhbAW+JcViny8UB4KHsW1t8WwCUPeqSUqPJAXSzGq4+Q
F8DXB8x6em7zQMClWmihTxjA/9sS6Scn9EAhZVowbQEZwA98jt9P7/RALT4d
EqrBGcBm8r5o0LP1QMgQrZIBfhrAM0TkiRhr9kBZdmHBYy0bwOhhPjPbMfdA
0wg2+VLrG8ATW410Zev3QDnDKqRrnBzAhSqRSEih+EAYkAdK3kkdwN7FyaSl
ZvlAcrPA8OwFHsCuPPeYyh76QJzMd0NEtR7AZX9ZFWrm+kCcovfTPHMfwJOd
sCnRoPtAoe3aUEUSIMAHkrzQkFf8QItJCagmaSDAY1L9/8od/UCOK1igW8cg
wDXuMsfM1v1AIPaErEEfIcDvVZ0WSZ/+QAQrhmh8fiHA8JO8+B1k/0AZF9y/
9dshwLRWaDndDQBBxZFRCiQzIsBkyYy6aHEAQe5WrEWokSLAz6mrB1jOAEEZ
DvX64ukiwF31JJ5zKQFBFoyObV9AI8Dfprh4TIwBQVu6KYQyniPAHMZGH4no
AUGR12SwvfUjwCmXsPok6gFBBsyhk0T3I8A2aBrWwOsBQesdw3bL+CPAUQru
jPjuAUE8J7M82fsjwOHjJ1VY8wFBAAAAAAAAJMBxxgO/
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAAq2w4YtoTaT/tlvE1/biCP3cjktz7
AEdAOflHrdXtXT8GX920yQBXQAWsYn6L53K/zvwCobAAZ0C2YZdbxSSRv7LL
FRekAHdALbm55M9DpL8kMx/SnQCHQHKy6Fo2JrW/3eajr5oAl0BpZj3L9/XE
v7lAZh6ZAKdA5JQVrp5H1L8fLBTZQPi3QLj8rWo0J+S/pHchUVfOwUAmNSuR
exvtv2+LX8tSg8dAl3GO9TDU8r92/kOHIrTNQAbZsTTCX/e/mKZngZe90UDW
aCifR4z7v5N9AOAH39RAtZVoRlsBAMCprWyJ2vHXQF4VSYF1KwLAmEusksvP
2kDP/2sxFysEwCUZv7ym691AwbrsmslQBsBHqlIjUGngQNRuoRqcTQjAiHSv
DX7V4UC3my2aqzwKwJjWdQihYONAn3RAKuhRDMCV7yUzU9HkQFljMC4GQA7A
YaA/bvpg5kDxybCfDCoQwLr9ws5S6edA453wYoctEcAAEjBfOlfpQPgLdRoV
HhLAFb4GABfk6kDLTuKWfCETwBchx9CCVuxAVURAWEESFMDoG/Gx4+ftQHp9
/WW6FRXAR8OEuPVx70DX+ThBGBMWwMoQgXfLcPBAdPXTDkX+FsDXi/SaFjjx
QPHRCuf9+xfAW+JcViny8UAM+LBsvecYwCUPeqSUqPJAZRvt19HNGcDXB8x6
em7zQGUlzyBLxhrA/9sS6Scn9EAH0n+rI60bwA98jt9P7/RAAdrWoT6mHMBm
8r5o0LP1QOSG8oO7mR3AM0TkiRhr9kDlbhoj6XsewOhhPjPbMfdALdjN0zRw
H8ATW410Zev3QL6seGGtKSDAhSqRSEih+ECm1QnrmpggwN7FyaSlZvlAzrzg
5IYQIcCuPPeYyh76QJCDlSkCgCHAZX9ZFWrm+kDiXpfObfghwJOdsCnRoPtA
YD/E2HpoIsAHkrzQkFf8QOYnQ3n51SLAY1L9/8od/UBCeZP2WUwjwDXuMsfM
1v1AOBibvXm6I8BzcXTr+Ev+QAAAAAAAACTAYuWI8g==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772136167593613`*^9, 3.777213640864068*^9}, {
   3.777268833579146*^9, 3.777268841469958*^9}, 3.77726887935989*^9, 
   3.7772689632651076`*^9, 3.7772689978026505`*^9, 3.777271151504998*^9, 
   3.777271296232353*^9, 3.7772715972190914`*^9, {3.7772716397902975`*^9, 
   3.7772716552241488`*^9}, 3.7772718865101986`*^9, 3.7772726846374197`*^9, 
   3.7772727426265273`*^9, 3.7772728033600616`*^9, 3.777272858000201*^9, 
   3.777273075949312*^9, 3.777273115893503*^9, 3.777273241573165*^9, 
   3.7772749279597473`*^9, 3.7773565713171897`*^9, 3.77735967818023*^9, 
   3.7773600125343027`*^9, 3.7773602739244175`*^9, 3.777360624169838*^9, 
   3.777360871759961*^9, 3.7778083665007267`*^9, 3.7778084965539007`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 100K", "Section",
 CellChangeTimes->{{3.7772134021682563`*^9, 3.777213403868554*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_100K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "0.9"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "5200"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "11000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", "0.7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", "0.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777266959732926*^9, 3.777266978391609*^9}, {
   3.7772690064851537`*^9, 3.777269011783367*^9}, {3.7772715132781878`*^9, 
   3.7772715173617725`*^9}, {3.7772746845297384`*^9, 
   3.7772746891688204`*^9}, {3.7772749326529713`*^9, 3.777274958806837*^9}, 
   3.777275020177003*^9, 3.7773564578488755`*^9, {3.777356584684804*^9, 
   3.777356590164606*^9}, {3.7773573942036905`*^9, 3.777357394543844*^9}, {
   3.777360309721768*^9, 3.7773603633056197`*^9}, {3.777808423297039*^9, 
   3.7778084238609343`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN1Xs41PkeB3AbK9qSRphFLpVCN6G1h619b6ubLopEpZuU7EZSq3Rbba2U
Taabii3JUbS2CCn3UqIIM+MuM4wxLsMUGxGOc76fP848zzzzvHyu3+/v9zxM
PPc57xqjpKRUO/r97y/7BEHp/z/4HTldYVHuRY9z2R/CcelweW79UT7z9ksQ
mMRrTNROZs6LRFid4oDryXxm42ic4Fjdy/SsZkYMxAYbtCNPPGf2j0VsVEll
cfwr5pg4JAkSzJ0P1DOXxWOh3z+TWjPLaH4CONP1jm0xLWe2vI9jY9y+NwwQ
0T5JWLutW65pXcUc8QBeznNSJZlCZtFDtDkEPdj4QMzcnwy3Cxs3B85rZNZ8
BH7ODs75TTTfLBWO/cfm8dOaaf80ZKUlG2Umk93TsbnSKCmBT/P9H0Pp1JRV
61e0MIdm4Ic6w/nhXVI63xP0nf1pMe+OhDnjKXxHdp+/u1pG582Etv3qe17Z
bcyyLCwbE7l4iRfFlXKgfOeT/5/e7czcXESplVgvWCQn5+EhZ8uPjmc6mOPy
oMpbw00KoLhlPvg/hid/7aNgzsqH5+2dmwMfdTEvfwbD8s+z0ydQXPAM4pUF
xpez39P9PocsfEQQkkruHLXg1mxDfGA+XICjXmkBFoE9zCovYK/ef3WtETni
BSJyohym7iQbvMSEVh2Pb917me+9xLSgM4r3ErJNIfi6LmYRInJeIRZsHqd5
8qePzKtewePvYN6jHeTqVwjSVj7imkD2KoKwYkJmWU0fs6IIZ55a6sxX72c+
VowLx0v3J8wkq73GwI1BE+svPjFffg1tiVKi0RDZ+A1ceImr5+0eYP7rDaSh
+c771g0yf1uCXNdFSy51kgtKsN6K+3xOzmfmtaVIUygGYEeuL0WHQDrYFj3E
vOctGlKv3swyI/e+RVBJ9oiuzjC9f2XoEVryA91GmEPKwLluJHHjkt+UQTRx
3dTqV2ROOfKO2X9XvFEp7392L0etVKyz+gj5ZjkGdpSe+G3aF8ySckyS+3wb
mkS2qECwc0wO32kMs38FskeW3o/5kpxeAYmdtoroEPlzBb42N5y4Koi8mA/X
IR6vuJMcyke3zYuvIrYpM5fycXJ7kNPiGeTJArxOmTBs8A15kwCHhtXX2CaR
YwQYdMnSNZ2uwiwVoNRq+LG8jDxbiFNeR/tOTv6SOUAIgz021ww9yRlCuB25
Ji17SR4WQiN5KcdSSZXZoRJmW68+fqtMPleJv7V/CdRtIJdVQifdf3tSAtXr
VMGmX+9u5B6Ke1TBe2/DpLKEscyxVVBz7Dd5W0CWjcbLj3y8PYc8txrJBVEy
zi3ywWpMnq7Va9FDflqNVctdt+R/UGNWqsHSTvEqYy55aQ1SU4wNB/zIf9Rg
WNk7JDVJnbmiBjKLOWpf/5vMrUWhqlZrzFby1lqsXVJT4raPHFeL8Ifb3+08
PY65vXb0fcj9W1NAccs6tCc0rbs+keKBddjdki7rTRzPnFWHpR81nsUvpPwx
9Zjfqf5uWpoG8/J6zCpwMo3t+4o5vB6lruEPt+lRvaAe2upastUpFNdrwGDx
KU1XA/L2BgQ/Mz8dcJny4xvwq6nW8cBA6t/ZALPsOHejUrLVO9zYwN0b5kj5
h99h3uOFhxsiJjLnvMN1vXHm+y0pX6URa50dXMc/Ijs2QvV3z5pwEeVHNMLJ
YPhsUQzFKxvR63P/9dTvNJk1RBBdmz2p/QfKny/C9BcjzmabKL5ehP74yq1V
Qqo/JELPSJpJ2ifKvyHCUBa/dtoMys8WIedx6bIX1pOYRSI8tdrFlUZymJXF
2MVZs8HblvJniEf/Xy+z4/hS/gox4h7mtLg/12LeK8aEuvAYmQfFL4hhPqvX
hVNI/VLEqLh66lLdYuonFKP8k1PS206q7xejUr/vyjQTqtdvws+/r+6OWE71
i5pw2yY+fPwZ8o4mJHQkmx+woPzTTZgTaTj4uYB8twk+B3J6K3dSfnET5M1O
Wi362szyJoQtPBj6jS7FNZtx33ZGblcJ7WfdjLwax5lFIdRvQzOm+2yKedIz
mTmoGRY9sV/cVaP9o5tx0GHoD5cfqX9uM6wCPFTe6FO8qRm5lx58F+Whw/yl
BG0tvIOpSyjfTIKZ3lljOipo3koJ5Lndu/cPUL6fBFNWTPHpOUnzeRJ8XMAz
bbeleKoEmb8d3XValeJVo/lFwXOt+uh8AxKs9Ns4+fZN2mdKC2abzs2IDtRj
RgsUs85/3jCky7yzBdq+F7cIP1L/kBa8LjKrCuih/RJasCP1ylV9O8rvbsGr
CyEpqRqUz5FCdNmvPrmB5i2QQrV5airPh/LdpVgnvqaSUk3xo1JEDL38ac1T
2v+mFOZGe7rtlKlfvhQmgrEpFq+p3qIVg/yOBcX6xsz+raht2afha03nudQK
u2Uref+E6TOnt+JsYrjg2QG675pW/NqUqZQxnuYbyRBXGs+LqqP72iXDvsnZ
O+1v0XlDZThRb7O+WIX2K5Uh3yi6yvF76v9ehqbCJYvWa1B/2zYUhHV2L75C
/Y+3Ye6pAt+GLHJMG+7M9A1I+I3ON7sd/CURieNOUH+ndnhEflim4FG/gHb8
2XdMN3Qzxa+0wzQ7089hE5c5ox3pU/mmB6dTvK4d+57Ye10WU/3waP8rUvdt
Erof7w7E/5yisibYkPlcB6waGleutzNh/lcnolJnJU1ppXpZJ86dXSM8eZn8
lRzN9bZddhk0b64cDvOtz0dX0H2sk0M32nXWSAblH5TDz1bZ0t6e5kXKcSgj
4obTeQPmp3KsuD6V2xFL+zXIsenZNOFeb6pf2gX5S89vYqvp+ft0IaMr+YVJ
AN3ngy7UjDted25gCnNFFyYKvD+OPUH5/3TBzmZvePFDMrcbT0LcHzyPpudt
342/Fi70/6xJ59najchoNx0tdcqPGzVnln/jHXJhNzxVokrHG9N527vxS5DQ
zCyRnidXAdt3QXV5lczB5gr4amnuHbxP57NXYMsfhs5dvszBqxQ4+n3Y6Xk1
dB9bFTikGvNhYAabF3xRgbP7c7a0atO8OAWiVh541KNG8woVqOxc4XJRhdUH
//AeEXoa841v0fvh8h7nDnM/1a1g9cFe79GWKJ/Uoaub9x85iMWN
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAAq2w4YtoTaT+B5CGNBvm6v3cjktz7
AEdA8BYa0qjVvb8GX920yQBXQHxEaSQiLcC/zvwCobAAZ0BqYDEG/YrCv7LL
FRekAHdA6M1ccxD9xr8kMx/SnQCHQBV/dm+mU8+/3eajr5oAl0DbIKOEynXX
v7lAZh6ZAKdAa7mbCUj74r8fLBTZQPi3QL5e2XSgtfC/pHchUVfOwUC51r9b
Wfj2v2+LX8tSg8dAOCcQMbzL/L92/kOHIrTNQD5WOxUMbAHAmKZngZe90UDh
hVjHFiQEwJN9AOAH39RApEv6RJL+BsCprWyJ2vHXQCMn0LWOtwnAmEusksvP
2kBPZvfYhzIMwCUZv7ym691A11Wa8hTVDsBHqlIjUGngQN6I+2/TnxDAiHSv
DX7V4UDSh4/Dk8oRwJjWdQihYONAyYd1jXoKE8CV7yUzU9HkQBmAmV2TMRTA
YaA/bvpg5kDrbMK3TW4VwLr9ws5S6edAm1PURIiiFsAAEjBfOlfpQKsxe2ru
vxfAFb4GABfk6kCt34Lsj/MYwBchx9CCVuxASHcFlygRGsDoG/Gx4+ftQMTv
oTQxRRvAR8OEuPVx70Bq10I9YXIcwMoQgXfLcPBAuxF0m2mKHcDXi/SaFjjx
QClCWwokuR7AW+JcViny8UAyLI0jEtMfwCUPeqSUqPJAXM5dRnFzIMDXB8x6
em7zQPsRZUfFCCHA/9sS6Scn9EBxGbIU5ZMhwA98jt9P7/RAKBtK+3YqIsBm
8r5o0LP1QDa+YQEZviLAM0TkiRhr9kDXcbX/pkcjwOhhPjPbMfdANSTbjK/c
I8BLGiju/WD3QAAAAAAAACTAmyw3kA==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAAq2w4YtoTaT+B5CGNBvm6v3cjktz7
AEdA8BYa0qjVvb8GX920yQBXQHxEaSQiLcC/zvwCobAAZ0BqYDEG/YrCv7LL
FRekAHdA6M1ccxD9xr8kMx/SnQCHQBV/dm+mU8+/3eajr5oAl0DbIKOEynXX
v7lAZh6ZAKdAa7mbCUj74r8fLBTZQPi3QL5e2XSgtfC/pHchUVfOwUC51r9b
Wfj2v2+LX8tSg8dAOCcQMbzL/L92/kOHIrTNQD5WOxUMbAHAmKZngZe90UDh
hVjHFiQEwJN9AOAH39RApEv6RJL+BsCprWyJ2vHXQCMn0LWOtwnAmEusksvP
2kBPZvfYhzIMwCUZv7ym691A11Wa8hTVDsBHqlIjUGngQN6I+2/TnxDAiHSv
DX7V4UDSh4/Dk8oRwJjWdQihYONAyYd1jXoKE8CV7yUzU9HkQBmAmV2TMRTA
YaA/bvpg5kDrbMK3TW4VwLr9ws5S6edAm1PURIiiFsAAEjBfOlfpQKsxe2ru
vxfAFb4GABfk6kCt34Lsj/MYwBchx9CCVuxASHcFlygRGsDoG/Gx4+ftQMTv
oTQxRRvAR8OEuPVx70Bq10I9YXIcwMoQgXfLcPBAuxF0m2mKHcDXi/SaFjjx
QClCWwokuR7AW+JcViny8UAyLI0jEtMfwCUPeqSUqPJAXM5dRnFzIMDXB8x6
em7zQPsRZUfFCCHA/9sS6Scn9EBxGbIU5ZMhwA98jt9P7/RAKBtK+3YqIsBm
8r5o0LP1QDa+YQEZviLAM0TkiRhr9kDXcbX/pkcjwOhhPjPbMfdANSTbjK/c
I8BLGiju/WD3QAAAAAAAACTAmyw3kA==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71240.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772669613284545`*^9, 3.77726697881441*^9}, 
   3.777268850494174*^9, 3.777268883400615*^9, {3.777269001541109*^9, 
   3.7772690121426215`*^9}, 3.777271151786183*^9, 3.7772712964910493`*^9, 
   3.7772715139069324`*^9, 3.777271597500276*^9, {3.777271640040244*^9, 
   3.7772716554584703`*^9}, 3.7772718868453107`*^9, 3.777272684906455*^9, 
   3.7772727428777647`*^9, 3.777272803625625*^9, 3.777272858234521*^9, 
   3.777273076200529*^9, 3.777273116237172*^9, 3.7772732418699665`*^9, {
   3.7772749347636347`*^9, 3.7772749591192417`*^9}, 3.77735659049433*^9, 
   3.7773596789435663`*^9, 3.7773600262209244`*^9, {3.777360303172915*^9, 
   3.777360363631813*^9}, 3.7773606434899635`*^9, 3.77736087213417*^9, 
   3.7778083679473977`*^9, 3.7778084966842527`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772134054150653`*^9, 3.777213405664807*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"logaritmic", "[", 
        RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], ",", 
       RowBox[{"T1", ">", "0"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777266875491102*^9, 3.777266902317012*^9}, {
   3.777271520551442*^9, 3.7772715282286377`*^9}, 3.777274818310891*^9, 
   3.7772749647565403`*^9, 3.7773565019369445`*^9, {3.7773566055697117`*^9, 
   3.777356614225255*^9}, {3.7773605867146854`*^9, 3.777360586921874*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterTable\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.777360305132079*^9, 3.7773603159238834`*^9}, {
   3.777360352903482*^9, 3.7773603657793574`*^9}, 3.7773606457993355`*^9, 
   3.7773608726544485`*^9, 3.777808368009856*^9, 3.7778084971851788`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.1424431761873912`", "0.23338631762252413`", 
      "4.895073489420075`", "1.927720535347985`*^-6"},
     {"T1", "4742.949434731891`", "1163.7892923037582`", "4.075436564073442`",
       "0.00006462878937220798`"},
     {"T2", "11504.329931470133`", "387.54165722707137`", 
      "29.685402115957377`", "5.37196119483594`*^-78"}
    },
    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.777266983708839*^9, 3.7772688521554985`*^9, 3.7772688855172434`*^9, 
   3.7772690144208536`*^9, 3.7772711519892597`*^9, 3.7772712966785107`*^9, 
   3.777271521597836*^9, 3.777271597699795*^9, {3.777271640196452*^9, 
   3.777271655630303*^9}, 3.777271887049445*^9, 3.777272685047047*^9, 
   3.7772727430339775`*^9, 3.777272803809864*^9, 3.777272858421977*^9, 
   3.7772730763734274`*^9, 3.7772731164558787`*^9, 3.7772732421199083`*^9, {
   3.7772749474806705`*^9, 3.777274965200989*^9}, {3.777356593814373*^9, 
   3.7773566163285036`*^9}, 3.777359679134614*^9, 3.777360028558133*^9, {
   3.7773603052211976`*^9, 3.7773603159707623`*^9}, {3.777360352941201*^9, 
   3.7773603658796263`*^9}, 3.7773606458294992`*^9, 3.7773608726865606`*^9, 
   3.7778083681661024`*^9, 3.7778084972632847`*^9}],

Cell[BoxData["0.9783177405874983`"], "Output",
 CellChangeTimes->{
  3.777266983708839*^9, 3.7772688521554985`*^9, 3.7772688855172434`*^9, 
   3.7772690144208536`*^9, 3.7772711519892597`*^9, 3.7772712966785107`*^9, 
   3.777271521597836*^9, 3.777271597699795*^9, {3.777271640196452*^9, 
   3.777271655630303*^9}, 3.777271887049445*^9, 3.777272685047047*^9, 
   3.7772727430339775`*^9, 3.777272803809864*^9, 3.777272858421977*^9, 
   3.7772730763734274`*^9, 3.7772731164558787`*^9, 3.7772732421199083`*^9, {
   3.7772749474806705`*^9, 3.777274965200989*^9}, {3.777356593814373*^9, 
   3.7773566163285036`*^9}, 3.777359679134614*^9, 3.777360028558133*^9, {
   3.7773603052211976`*^9, 3.7773603159707623`*^9}, {3.777360352941201*^9, 
   3.7773603658796263`*^9}, 3.7773606458294992`*^9, 3.7773608726865606`*^9, 
   3.7778083681661024`*^9, 3.7778084972632847`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.054779061867965`", "0.015769613283337584`", 
      "66.88680584085476`", "6.96413121689333`*^-146"},
     {"T1", "7914.400194315676`", "2872.703121382793`", "2.7550358877690195`",
       "0.006371770395025473`"},
     {"T2", "8914.840208867723`", "6513.141114830405`", "1.3687466694938724`",
       "0.17250686924839198`"}
    },
    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.777266983708839*^9, 3.7772688521554985`*^9, 3.7772688855172434`*^9, 
   3.7772690144208536`*^9, 3.7772711519892597`*^9, 3.7772712966785107`*^9, 
   3.777271521597836*^9, 3.777271597699795*^9, {3.777271640196452*^9, 
   3.777271655630303*^9}, 3.777271887049445*^9, 3.777272685047047*^9, 
   3.7772727430339775`*^9, 3.777272803809864*^9, 3.777272858421977*^9, 
   3.7772730763734274`*^9, 3.7772731164558787`*^9, 3.7772732421199083`*^9, {
   3.7772749474806705`*^9, 3.777274965200989*^9}, {3.777356593814373*^9, 
   3.7773566163285036`*^9}, 3.777359679134614*^9, 3.777360028558133*^9, {
   3.7773603052211976`*^9, 3.7773603159707623`*^9}, {3.777360352941201*^9, 
   3.7773603658796263`*^9}, 3.7773606458294992`*^9, 3.7773608726865606`*^9, 
   3.7778083681661024`*^9, 3.7778084973608675`*^9}],

Cell[BoxData["0.9910879787203332`"], "Output",
 CellChangeTimes->{
  3.777266983708839*^9, 3.7772688521554985`*^9, 3.7772688855172434`*^9, 
   3.7772690144208536`*^9, 3.7772711519892597`*^9, 3.7772712966785107`*^9, 
   3.777271521597836*^9, 3.777271597699795*^9, {3.777271640196452*^9, 
   3.777271655630303*^9}, 3.777271887049445*^9, 3.777272685047047*^9, 
   3.7772727430339775`*^9, 3.777272803809864*^9, 3.777272858421977*^9, 
   3.7772730763734274`*^9, 3.7772731164558787`*^9, 3.7772732421199083`*^9, {
   3.7772749474806705`*^9, 3.777274965200989*^9}, {3.777356593814373*^9, 
   3.7773566163285036`*^9}, 3.777359679134614*^9, 3.777360028558133*^9, {
   3.7773603052211976`*^9, 3.7773603159707623`*^9}, {3.777360352941201*^9, 
   3.7773603658796263`*^9}, 3.7773606458294992`*^9, 3.7773608726865606`*^9, 
   3.7778083681661024`*^9, 3.7778084973764887`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN1Xs41PkeB3AbK9qSRphFLpVCN6G1h619b6ubLopEpZuU7EZSq3Rbba2U
Taabii3JUbS2CCn3UqIIM+MuM4wxLsMUGxGOc76fP848zzzzvHyu3+/v9zxM
PPc57xqjpKRUO/r97y/7BEHp/z/4HTldYVHuRY9z2R/CcelweW79UT7z9ksQ
mMRrTNROZs6LRFid4oDryXxm42ic4Fjdy/SsZkYMxAYbtCNPPGf2j0VsVEll
cfwr5pg4JAkSzJ0P1DOXxWOh3z+TWjPLaH4CONP1jm0xLWe2vI9jY9y+NwwQ
0T5JWLutW65pXcUc8QBeznNSJZlCZtFDtDkEPdj4QMzcnwy3Cxs3B85rZNZ8
BH7ODs75TTTfLBWO/cfm8dOaaf80ZKUlG2Umk93TsbnSKCmBT/P9H0Pp1JRV
61e0MIdm4Ic6w/nhXVI63xP0nf1pMe+OhDnjKXxHdp+/u1pG582Etv3qe17Z
bcyyLCwbE7l4iRfFlXKgfOeT/5/e7czcXESplVgvWCQn5+EhZ8uPjmc6mOPy
oMpbw00KoLhlPvg/hid/7aNgzsqH5+2dmwMfdTEvfwbD8s+z0ydQXPAM4pUF
xpez39P9PocsfEQQkkruHLXg1mxDfGA+XICjXmkBFoE9zCovYK/ef3WtETni
BSJyohym7iQbvMSEVh2Pb917me+9xLSgM4r3ErJNIfi6LmYRInJeIRZsHqd5
8qePzKtewePvYN6jHeTqVwjSVj7imkD2KoKwYkJmWU0fs6IIZ55a6sxX72c+
VowLx0v3J8wkq73GwI1BE+svPjFffg1tiVKi0RDZ+A1ceImr5+0eYP7rDaSh
+c771g0yf1uCXNdFSy51kgtKsN6K+3xOzmfmtaVIUygGYEeuL0WHQDrYFj3E
vOctGlKv3swyI/e+RVBJ9oiuzjC9f2XoEVryA91GmEPKwLluJHHjkt+UQTRx
3dTqV2ROOfKO2X9XvFEp7392L0etVKyz+gj5ZjkGdpSe+G3aF8ySckyS+3wb
mkS2qECwc0wO32kMs38FskeW3o/5kpxeAYmdtoroEPlzBb42N5y4Koi8mA/X
IR6vuJMcyke3zYuvIrYpM5fycXJ7kNPiGeTJArxOmTBs8A15kwCHhtXX2CaR
YwQYdMnSNZ2uwiwVoNRq+LG8jDxbiFNeR/tOTv6SOUAIgz021ww9yRlCuB25
Ji17SR4WQiN5KcdSSZXZoRJmW68+fqtMPleJv7V/CdRtIJdVQifdf3tSAtXr
VMGmX+9u5B6Ke1TBe2/DpLKEscyxVVBz7Dd5W0CWjcbLj3y8PYc8txrJBVEy
zi3ywWpMnq7Va9FDflqNVctdt+R/UGNWqsHSTvEqYy55aQ1SU4wNB/zIf9Rg
WNk7JDVJnbmiBjKLOWpf/5vMrUWhqlZrzFby1lqsXVJT4raPHFeL8Ifb3+08
PY65vXb0fcj9W1NAccs6tCc0rbs+keKBddjdki7rTRzPnFWHpR81nsUvpPwx
9Zjfqf5uWpoG8/J6zCpwMo3t+4o5vB6lruEPt+lRvaAe2upastUpFNdrwGDx
KU1XA/L2BgQ/Mz8dcJny4xvwq6nW8cBA6t/ZALPsOHejUrLVO9zYwN0b5kj5
h99h3uOFhxsiJjLnvMN1vXHm+y0pX6URa50dXMc/Ijs2QvV3z5pwEeVHNMLJ
YPhsUQzFKxvR63P/9dTvNJk1RBBdmz2p/QfKny/C9BcjzmabKL5ehP74yq1V
Qqo/JELPSJpJ2ifKvyHCUBa/dtoMys8WIedx6bIX1pOYRSI8tdrFlUZymJXF
2MVZs8HblvJniEf/Xy+z4/hS/gox4h7mtLg/12LeK8aEuvAYmQfFL4hhPqvX
hVNI/VLEqLh66lLdYuonFKP8k1PS206q7xejUr/vyjQTqtdvws+/r+6OWE71
i5pw2yY+fPwZ8o4mJHQkmx+woPzTTZgTaTj4uYB8twk+B3J6K3dSfnET5M1O
Wi362szyJoQtPBj6jS7FNZtx33ZGblcJ7WfdjLwax5lFIdRvQzOm+2yKedIz
mTmoGRY9sV/cVaP9o5tx0GHoD5cfqX9uM6wCPFTe6FO8qRm5lx58F+Whw/yl
BG0tvIOpSyjfTIKZ3lljOipo3koJ5Lndu/cPUL6fBFNWTPHpOUnzeRJ8XMAz
bbeleKoEmb8d3XValeJVo/lFwXOt+uh8AxKs9Ns4+fZN2mdKC2abzs2IDtRj
RgsUs85/3jCky7yzBdq+F7cIP1L/kBa8LjKrCuih/RJasCP1ylV9O8rvbsGr
CyEpqRqUz5FCdNmvPrmB5i2QQrV5airPh/LdpVgnvqaSUk3xo1JEDL38ac1T
2v+mFOZGe7rtlKlfvhQmgrEpFq+p3qIVg/yOBcX6xsz+raht2afha03nudQK
u2Uref+E6TOnt+JsYrjg2QG675pW/NqUqZQxnuYbyRBXGs+LqqP72iXDvsnZ
O+1v0XlDZThRb7O+WIX2K5Uh3yi6yvF76v9ehqbCJYvWa1B/2zYUhHV2L75C
/Y+3Ye6pAt+GLHJMG+7M9A1I+I3ON7sd/CURieNOUH+ndnhEflim4FG/gHb8
2XdMN3Qzxa+0wzQ7089hE5c5ox3pU/mmB6dTvK4d+57Ye10WU/3waP8rUvdt
Erof7w7E/5yisibYkPlcB6waGleutzNh/lcnolJnJU1ppXpZJ86dXSM8eZn8
lRzN9bZddhk0b64cDvOtz0dX0H2sk0M32nXWSAblH5TDz1bZ0t6e5kXKcSgj
4obTeQPmp3KsuD6V2xFL+zXIsenZNOFeb6pf2gX5S89vYqvp+ft0IaMr+YVJ
AN3ngy7UjDted25gCnNFFyYKvD+OPUH5/3TBzmZvePFDMrcbT0LcHzyPpudt
342/Fi70/6xJ59najchoNx0tdcqPGzVnln/jHXJhNzxVokrHG9N527vxS5DQ
zCyRnidXAdt3QXV5lczB5gr4amnuHbxP57NXYMsfhs5dvszBqxQ4+n3Y6Xk1
dB9bFTikGvNhYAabF3xRgbP7c7a0atO8OAWiVh541KNG8woVqOxc4XJRhdUH
//AeEXoa841v0fvh8h7nDnM/1a1g9cFe79GWKJ/Uoaub9x85iMWN
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBAQP+/CFib1JlAgAAAC8AAAACAAAAq2w4YtoTaT+ftw//ngvBP3cjktz7
AEdA3SJQPDcGvz8GX920yQBXQEwdAfUIVbw/zvwCobAAZ0DNjzotake3P7LL
FRekAHdAT8fN+h6cqz8kMx/SnQCHQAYjTB81U4+/3eajr5oAl0BxVeU8tXTC
v7lAZh6ZAKdAaZvspZl12L8YSbXAWGSnQOsf3jx39Ni/dlEEYxjIp0CNycSY
C3PZvzJioqeXj6hAuDDkkVxv2r+qg94wlh6qQJp25Ha5ZNy/msZWQ5M8rUAf
ZBk8jCHgvz6mI7RGvLFADqyV4JPp478fLBTZQPi3QMlvg/HMLeu/pHchUVfO
wUD/ev0N5/Tzv2+LX8tSg8dArndOUY3J+b92/kOHIrTNQEmdO2A8wP+/mKZn
gZe90UCAcu+Yf4UCwJN9AOAH39RAEr6iobJEBcCprWyJ2vHXQPhk/SW13QfA
mEusksvP2kDROq03qTcKwCUZv7ym691AQTRBoC20DMBHqlIjUGngQINE/V8L
+g7AiHSvDX7V4UAy2i2wiZUQwJjWdQihYONAIWzV4KLBEcCV7yUzU9HkQNsf
ooto1hLAYaA/bvpg5kADT5k8kf8TwLr9ws5S6edAbWalV/YgFcAAEjBfOlfp
QKmYAzssLRbAFb4GABfk6kAXljSllk4XwBchx9CCVuxATtc0pJVbGMDoG/Gx
4+ftQI1TfEgOfhnAR8OEuPVx70DqvAcfaZoawMoQgXfLcPBAPEybahWjG8DX
i/SaFjjxQMu8nseBwRzAW+JcViny8UC4v4zjg8wdwCUPeqSUqPJAfHXNp/XR
HsDXB8x6em7zQOGspaNK7R/A/9sS6Scn9EDYstaOu3ogwA98jt9P7/RAb13A
X8kJIcBm8r5o0LP1QJMfWmkkliHAM0TkiRhr9kCA7POf/RgiwOhhPjPbMfdA
gVg93dSmIsATW410Zev3QGSHyTUxKyPAhSqRSEih+ED/mmsS6awjwMokELjQ
FflAAAAAAAAAJMAAMXp0
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAq2w4YtoTaT9PZaMWE06rP3cjktz7
AEdAkj871ygHpz8GX920yQBXQAjgLvbvN6M/zvwCobAAZ0CSMoYE6QKYP7LL
FRekAHdAINC0lUeUar8kMx/SnQCHQMLmuRsIlKu/3eajr5oAl0CJmgv3bTHD
v7lAZh6ZAKdAqGWxGV5I1b8fLBTZQPi3QNunsu1drea/pHchUVfOwUCnbskR
+cDwv2+LX8tSg8dAuHjQof7x9b92/kOHIrTNQGaDCpwze/u/mKZngZe90UAk
bIFC1UkAwJN9AOAH39RAyDgnCnEEA8CprWyJ2vHXQGboWE8ZqwXAmEusksvP
2kD9BC+2Zx4IwCUZv7ym691AN9+3x+zACsBHqlIjUGngQFPshKKnMQ3AiHSv
DX7V4UBi1ybUt5EPwJjWdQihYONAHf6k/GgQEcCV7yUzU9HkQEC85Qn1PxLA
YaA/bvpg5kAKV4nAzoYTwLr9ws5S6edA9y2HpYzFFMAAEjBfOlfpQMJOvcP3
7BXAFb4GABfk6kDQ/kGabSsXwBchx9CCVuxAx3biTeNSGMDoG/Gx4+ftQH+0
POUlkRnAR8OEuPVx70BxPxJ6v8cawMoQgXfLcPBA39+RGOLnG8DXi/SaFjjx
QHBVDtWNHh3AW+JcViny8UAePnyXCD8ewCUPeqSUqPJAjIXqs2ZYH8DXB8x6
em7zQM0dajEIRCDA/9sS6Scn9EDBKAGA/9AgwA98jt9P7/RA7HSvOANpIcBm
8r5o0LP1QEKPRmB//SHAM0TkiRhr9kCXvHx6VociwOhhPjPbMfdAZP37+x8c
I8ATW410Zev3QOFw/ethpiPAa6KX5ixk+EAAAAAAAAAkwJkGQUg=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71240.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777266983708839*^9, 3.7772688521554985`*^9, 3.7772688855172434`*^9, 
   3.7772690144208536`*^9, 3.7772711519892597`*^9, 3.7772712966785107`*^9, 
   3.777271521597836*^9, 3.777271597699795*^9, {3.777271640196452*^9, 
   3.777271655630303*^9}, 3.777271887049445*^9, 3.777272685047047*^9, 
   3.7772727430339775`*^9, 3.777272803809864*^9, 3.777272858421977*^9, 
   3.7772730763734274`*^9, 3.7772731164558787`*^9, 3.7772732421199083`*^9, {
   3.7772749474806705`*^9, 3.777274965200989*^9}, {3.777356593814373*^9, 
   3.7773566163285036`*^9}, 3.777359679134614*^9, 3.777360028558133*^9, {
   3.7773603052211976`*^9, 3.7773603159707623`*^9}, {3.777360352941201*^9, 
   3.7773603658796263`*^9}, 3.7773606458294992`*^9, 3.7773608726865606`*^9, 
   3.7778083681661024`*^9, 3.777808497470217*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.777360305132079*^9, 3.7773603159238834`*^9}, {
   3.777360352903482*^9, 3.7773603657793574`*^9}, 3.7773606457993355`*^9, 
   3.7773608726544485`*^9, 3.777808368009856*^9, 3.777808497532704*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.777360305132079*^9, 3.7773603159238834`*^9}, {
   3.777360352903482*^9, 3.7773603657793574`*^9}, 3.7773606457993355`*^9, 
   3.7773608726544485`*^9, 3.777808368009856*^9, 3.777808497626431*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 110K", "Section",
 CellChangeTimes->{{3.7772134079329257`*^9, 3.777213409501233*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_110K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "0.95"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "4500"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "9500"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", 
   RowBox[{"0.02", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "110"}], "]"}], "+", "0.02"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "550"}], "/", "110"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"0.02", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "110"}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772670278135834`*^9, 3.777267036439166*^9}, {
   3.77726889689174*^9, 3.7772689145117426`*^9}, {3.777274693486431*^9, 
   3.777274697143837*^9}, {3.77727497699096*^9, 3.777275016702183*^9}, 
   3.7773564618302145`*^9, {3.7773566365248632`*^9, 3.7773566850842657`*^9}, {
   3.7773573892386293`*^9, 3.777357390173812*^9}, {3.777360051256811*^9, 
   3.7773601186887665`*^9}, {3.777360562343728*^9, 3.7773605628447666`*^9}, {
   3.777808427961038*^9, 3.777808428554614*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1As01HkbB3DGLYouSoqi2lqptiJd2NV3S5aU2jZtpSQlQlFJ6CaVUFmr
VItosZJSiSS5VRRyHXdyHcwYlxkqhNW77/t7OufdOWfOnI/n8nue33/GLBvn
LbYcCQkJ4T/v/36ylwck/v+FizCyWjxun/6zTPaHAHxZyHlYdILLbH0NgxN9
/URBT5mzbuJQ7kZOWmwOs2YYTOsG4xJOVjPjDtaZ6Fo6tb9jdonEAj+X7OrL
pcx3ouFtt3D9pq2NzCUxePRANlZlXwWdfw82n6q6jz2pYl5yH3eHMyqtZXg0
TzyODYTcTh2oZw58hAncarVb2Q3MTY/hlHrvlYR2O/NgAmSQet1NrZV5QiLM
h3rNubrUTysJiYMr15+1FND8TzFwetecU+7k7cngpbUWmTvxaZ9nKP4yUZcT
2Mnsm4IBUYTc4LUu2u85FD8kcJJqhMwpqQhzqlAW9PTQvi8wRXbxd98YiZkF
aZgnqDv5+GeKS2RgWujW2j2avcyqmXg6o9RYYXMfOQsHs+yVjztRPDoLzR9j
js1qo/iSl+g9FpL/y7mPzGkvEXd469yzQx+YTV7B9+nLBK0TFC9/hQSHD0Px
xZ/ofl/jyjXlxP7n5K7X2KdTf0PKrp/ZPRvcbbXb65MHmKVzILsxxJPjSQ7M
QeEOfdlnSoPM6m/gMdN1wcz9n5lj38DyQND1mdOHmJe9RbaetJ/LXHLWW0R3
3HLVkBtm3pCL9CM7RMqOI8zVuZiSJHVWVUzx/Xkw1Y+ZH3X0b2ZxHrxmlEvw
fySfykdH+Hxll3GjzGPewbHktYukPfn6O3j/1rjnrPwX+j4XYJ3iX/fPzCA/
KIBwZmTtdS7lryzEVssvqn8vkcz6n7MLobjsneaFBRLMm4vgnmx2LnQcxd8X
YfcBPwO3r/n2xZCL1S5cacVh/lgMiTuem502kVECzwrlR/MkyT4liCq8JKlp
SC4owa0Anb1+Y6WYJ5Vi7qPcz+PUyNtL8Vghrb//M+WHl8J7eWScjSPFW0sx
EDzPxPeMNLM2F6tCdOptvyW7cFE/Z+/LVSrkZC5OlwbMjnEnj3BxxMFmrOET
8poy9K+34WXOlmH2LYNXoOtAgBS5qAxv70nbnYuQY55cjkAFt63SyrLMO8sR
ufTs8vM+5DvlmGyx3bjMnPLby/E4kq82di3FF1Zgt+5a6WlfyEcrMHf4xIXX
ayk/pQKc2F0J3TFjmEcroNT3JClkPcWNKvHwe5UdP12jev9KhLeEtVjsoPyS
SjhvUK7uuU9WqYKFaPqQ+Kk8864qRKtd3rTeWIE5sgrxuRH6twPIgioUbnux
0aCI8r+rRqLn7PvOZmTXavinSroEg5xaDXVtw7VBrWSJGsjiWYqe6lhm4xpo
6w0qHo2i/ldq8HFt/+jEW4rM3BoEO2brF41Svmot2toyFxwaQ/lWtTiY6vni
Udk45uhaDGXo3sieRPXCWtheFeVlx1P+kjpYGHk5m2uQ3epQsaFWxXoW9U+r
w49tmzPcNKme8x7GK1ufeIxQf5P3GLcxS+G5z3jmgPeIdp7TIEij+vL3iD+o
9dOKTVQ/vR6npxpF/ampxGxdj52c5gK1zdQvph6Gj1PLK3vJXfUosTQSyFwl
6zTAptbmYsZmOs+9AZ+MUvjKf1C/jAbEc0z4FmEUl27E6WSZi5qN5PWNGC83
p3F1+ATmwEbESs+98qJmInNlI1xF35c4yFBcqQnBPvM6xqiTlzahtrs3w/Qg
eWsT+Ae+6Exqp/4nmrDHLfhYgg7FQ5qQo57bZydNTm/Cy/Fle+510HlN/zg/
Tze2g+aXagbf1sKt0kyZeV4zXoRLndJzJJs2I7Rrh17u13mcmlF4XmNvYiqd
/1sz0s1SDa0VJjE/aUbc3oZLJxooXtGMZwpbX9TaU/1gM06eWXFg9DeyWgvy
AtSXXfKiesMWyM8v9teYRPPubcEav1vq2bsp/0ILxrcGHtExoPy7LaiO0fnj
1UOK57fgd+/ujtVydH53C0R5/NWphRSfwEPoYt76LF2yLg99k6NCfconM2/j
YYzq7Zd9Itrfg4cJzTs/Kx+jecJ4EPI95m/5k+ozeehZuH+mveUU5hYeTm10
tyucTvPJtMKo6uq01EKq12rFu/ShX35cosls1grBZVmd2e+o3+FWbHn+Q0Sw
Lc3/e+s//78r00Y/UP2MNtR9Ex7nuoGMNjhLLdXd1EXz72vDorOZrpou1M+n
DZ6PUxXMhJR/rw0iLcmcJ6M0X0EbWtZacAY9aV9RG7r3zQrpv0r7TGpHj5bE
yPKv96/XjmUBa7bhNJ23vR1Kb70P2E2l+pPtqFCW9h5Nov7h7VjTq3vFcpI6
c2s7BrT81vn70DxyfDTHDSyytZrKrM3H/ah10WHd1H8jH3rLQ133O1F/Fz4q
++LO5I+n/tf4sOgbdeetpngyH28cuIGWW2j+Gj5mi7Qv7+ZMYx7hI7730EpV
c4prCLDScTT6QTzNs0aAnnrz7eWPaR5bAYqO1FSfWUX5vgLsXMKT/KhIvi9A
MTdePv8+zVskgMPkh+oZ1eReARIl70ofmK7BPLkDT2/r+gXl03l3OnBj+JsE
rU7q97oD/sJhq5G7tE97B7JNrXda36R55IVwCE6xrYmi/IVC+A/sCJc9T/02
CeF8yIMzrZjOPyqEbp2Sm1E9fd9ShHjzw3O/Cw+oX50QeRwzU1ce9RsVwjeu
65RDLp1v1Ino+MzTE8umM9t1Qkup5Nm6Zor7d6IroaPWIILq4ztxeEvDDynx
M5hLOlFwfE1ImQnNp9KFtIIQ2Z8TqX5VF2Kn/RlkIU/z7OpCn9u3qy5cped7
tguHpocVuFaoMOd0IWDKRP8OKVVmQRdmFK6ep19Oz/e7bni4Pet1TKd6127Y
p0RknfSm8252Y2no+chWX7qf1G64RzYsS6+j8+u7kWOYFN7/E+0j0QOOhdHq
Ui7d35wejGiV3Fp0h/oZ94DbcnnXTSH5Sg8ioxZ90tGk+3rUg+7FciUvFGke
bg92qCcl/+o8k/lTD2KU929IT6Z5DERQMT680Ow27Wcl+vfv8ZwIMdKHt6tb
UX60CE6VIU3vj89ifivCk5j69tZRum+hCK4GZTtNTVi+l6wY3iv02w78SvWq
YgRNfaBxR0zx+WJEXpx/1aSZ7ttADLtQxbobfLaf1wYxtsWErZ1sSPVWYnxa
cSnZfgvbzytIjMoiy3OrXlF9tBh6Y4f/8pFn+3g9Ff/r9+BVLUbIgggd3Xy6
H6EYBe9nt9/dy/b1Ghbj0qvyZecvUj/FXhSvOeUVpEXz7u+FvXxyeufX5+3W
i57g/V2Sx+m8S73Y/VHhW9usqVn/AQk4Ff4=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAAq2w4YtoTaT+CXc65ZkOqv3cjktz7
AEdAT1EDrlCJsL8GX920yQBXQC5ZcavbhbO/zvwCobAAZ0CDd1YkwiC5v7LL
FRekAHdAU8g5pOPRwb8kMx/SnQCHQIWq1H5Qqcu/3eajr5oAl0DXWCiWYgTX
v7lAZh6ZAKdA+H3eI1MJ5L8fLBTZQPi3QK0R7eRkfPK/pHchUVfOwUCG0DJs
/s75v2+LX8tSg8dAb7xfdVhNAMB2/kOHIrTNQK/3msv80QPAmKZngZe90UB7
YY/pqfkGwJN9AOAH39RA9zgNfF1HCsCprWyJ2vHXQNWmSRGrbA3AmEusksvP
2kBf7D0ylyQQwCUZv7ym691Ag7DO8jWpEcBHqlIjUGngQEwApzJFDRPAiHSv
DX7V4UA6J2kHBGUUwJjWdQihYONAl9rME/vUFcCV7yUzU9HkQM14lBZgKBfA
YaA/bvpg5kAJw35dqpQYwLr9ws5S6edAZv1oBj73GcAAEjBfOlfpQCBPKtSj
PxvAFb4GABfk6kAaBA/juqEcwBchx9CCVuxAN2DmuZLqHcDoG/Gx4+ftQGnT
9gViTR/AR8OEuPVx70BQhASHOFQgwMoQgXfLcPBA7rWE8571IMDXi/SaFjjx
QPikSgYqpCHAW+JcViny8UCCA+GJxUYiwCUPeqSUqPJAuZhTpeblIsDXB8x6
em7zQANQ7bdCkiPA3sGQHqbs80AAAAAAAAAkwJsnEHI=
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAAq2w4YtoTaT+CXc65ZkOqv3cjktz7
AEdAT1EDrlCJsL8GX920yQBXQC5ZcavbhbO/zvwCobAAZ0CDd1YkwiC5v7LL
FRekAHdAU8g5pOPRwb8kMx/SnQCHQIWq1H5Qqcu/3eajr5oAl0DXWCiWYgTX
v7lAZh6ZAKdA+H3eI1MJ5L8fLBTZQPi3QK0R7eRkfPK/pHchUVfOwUCG0DJs
/s75v2+LX8tSg8dAb7xfdVhNAMB2/kOHIrTNQK/3msv80QPAmKZngZe90UB7
YY/pqfkGwJN9AOAH39RA9zgNfF1HCsCprWyJ2vHXQNWmSRGrbA3AmEusksvP
2kBf7D0ylyQQwCUZv7ym691Ag7DO8jWpEcBHqlIjUGngQEwApzJFDRPAiHSv
DX7V4UA6J2kHBGUUwJjWdQihYONAl9rME/vUFcCV7yUzU9HkQM14lBZgKBfA
YaA/bvpg5kAJw35dqpQYwLr9ws5S6edAZv1oBj73GcAAEjBfOlfpQCBPKtSj
PxvAFb4GABfk6kAaBA/juqEcwBchx9CCVuxAN2DmuZLqHcDoG/Gx4+ftQGnT
9gViTR/AR8OEuPVx70BQhASHOFQgwMoQgXfLcPBA7rWE8571IMDXi/SaFjjx
QPikSgYqpCHAW+JcViny8UCCA+GJxUYiwCUPeqSUqPJAuZhTpeblIsDXB8x6
em7zQANQ7bdCkiPA3sGQHqbs80AAAAAAAAAkwJsnEHI=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772670386830163`*^9, 3.7772688552091694`*^9, {3.777268888962968*^9, 
   3.777268915230098*^9}, 3.7772690179580083`*^9, 3.7772711522411118`*^9, 
   3.7772712969284463`*^9, 3.7772715979976788`*^9, {3.777271640446393*^9, 
   3.777271655887847*^9}, 3.7772718873647947`*^9, 3.7772726852969885`*^9, 
   3.7772727432995396`*^9, 3.777272804092248*^9, 3.777272858656297*^9, 
   3.7772730766233764`*^9, 3.777273116710209*^9, 3.7772732423542337`*^9, {
   3.777274977803274*^9, 3.7772750118229322`*^9}, {3.7773566760345335`*^9, 
   3.777356685398573*^9}, 3.777359679826436*^9, {3.7773600424211063`*^9, 
   3.7773601190256157`*^9}, 3.777360372262004*^9, 3.777360563177079*^9, 
   3.777360659988633*^9, 3.7773608732195454`*^9, 3.77780837042502*^9, 
   3.777808497802156*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772134112950954`*^9, 3.7772134122662387`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"logaritmic", "[", 
        RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], ",", 
       RowBox[{"T1", ">", "0"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772668819033213`*^9, 3.7772669000447907`*^9}, 
   3.7772748217617836`*^9, 3.7773565054971466`*^9, {3.777356738664405*^9, 
   3.7773567423244143`*^9}, {3.7773605718303356`*^9, 3.777360573683031*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterTable\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359679926998*^9, {3.777360053763821*^9, 3.7773601212259383`*^9}, 
   3.7773603743290405`*^9, {3.7773605662408*^9, 3.7773605756177998`*^9}, 
   3.777360665321405*^9, 3.7773608738570395`*^9, 3.7778083705187798`*^9, 
   3.77780849844919*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "0.8514300597250499`", "0.211525119764078`", "4.025195970458176`", 
      "0.00007720329692297869`"},
     {"T1", "4683.834035699008`", "1447.3636206259541`", "3.236114248659469`",
       "0.0013893137391626001`"},
     {"T2", "14260.46632229215`", "813.0068010993197`", "17.540402248799936`",
       "2.342591791244238`*^-44"}
    },
    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.777267041148425*^9, 3.7772688580459185`*^9, {3.777268890385418*^9, 
   3.7772689168776803`*^9}, 3.7772690201329193`*^9, 3.7772711524452524`*^9, 
   3.777271297115901*^9, 3.777271598201964*^9, {3.7772716407588243`*^9, 
   3.777271656045249*^9}, 3.777271887552249*^9, 3.7772726854063377`*^9, 
   3.7772727434245095`*^9, 3.7772728042651663`*^9, 3.7772728588137274`*^9, 
   3.777273076802678*^9, 3.7772731168820424`*^9, 3.777273242575122*^9, 
   3.777275001891673*^9, 3.777356689434249*^9, 3.7773596800278444`*^9, {
   3.777360053865122*^9, 3.777360121326179*^9}, 3.777360374366789*^9, {
   3.7773605662863836`*^9, 3.777360575648018*^9}, 3.777360665352648*^9, 
   3.777360873888282*^9, 3.777808370660474*^9, 3.7778084984960546`*^9}],

Cell[BoxData["0.9708944188325351`"], "Output",
 CellChangeTimes->{
  3.777267041148425*^9, 3.7772688580459185`*^9, {3.777268890385418*^9, 
   3.7772689168776803`*^9}, 3.7772690201329193`*^9, 3.7772711524452524`*^9, 
   3.777271297115901*^9, 3.777271598201964*^9, {3.7772716407588243`*^9, 
   3.777271656045249*^9}, 3.777271887552249*^9, 3.7772726854063377`*^9, 
   3.7772727434245095`*^9, 3.7772728042651663`*^9, 3.7772728588137274`*^9, 
   3.777273076802678*^9, 3.7772731168820424`*^9, 3.777273242575122*^9, 
   3.777275001891673*^9, 3.777356689434249*^9, 3.7773596800278444`*^9, {
   3.777360053865122*^9, 3.777360121326179*^9}, 3.777360374366789*^9, {
   3.7773605662863836`*^9, 3.777360575648018*^9}, 3.777360665352648*^9, 
   3.777360873888282*^9, 3.777808370660474*^9, 3.777808498513709*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0431799015270182`", "0.008628226900846367`", 
      "120.90316046564442`", "7.773810307053412`*^-211"},
     {"T1", "6940.371690382559`", "520.8624639580995`", "13.324768380585153`",
       "1.9799894955969267`*^-30"},
     {"T2", "6646.815047568992`", "1519.946508183151`", "4.373058533167841`", 
      "0.00001853950141016492`"}
    },
    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.777267041148425*^9, 3.7772688580459185`*^9, {3.777268890385418*^9, 
   3.7772689168776803`*^9}, 3.7772690201329193`*^9, 3.7772711524452524`*^9, 
   3.777271297115901*^9, 3.777271598201964*^9, {3.7772716407588243`*^9, 
   3.777271656045249*^9}, 3.777271887552249*^9, 3.7772726854063377`*^9, 
   3.7772727434245095`*^9, 3.7772728042651663`*^9, 3.7772728588137274`*^9, 
   3.777273076802678*^9, 3.7772731168820424`*^9, 3.777273242575122*^9, 
   3.777275001891673*^9, 3.777356689434249*^9, 3.7773596800278444`*^9, {
   3.777360053865122*^9, 3.777360121326179*^9}, 3.777360374366789*^9, {
   3.7773605662863836`*^9, 3.777360575648018*^9}, 3.777360665352648*^9, 
   3.777360873888282*^9, 3.777808370660474*^9, 3.777808498638683*^9}],

Cell[BoxData["0.9937926568136963`"], "Output",
 CellChangeTimes->{
  3.777267041148425*^9, 3.7772688580459185`*^9, {3.777268890385418*^9, 
   3.7772689168776803`*^9}, 3.7772690201329193`*^9, 3.7772711524452524`*^9, 
   3.777271297115901*^9, 3.777271598201964*^9, {3.7772716407588243`*^9, 
   3.777271656045249*^9}, 3.777271887552249*^9, 3.7772726854063377`*^9, 
   3.7772727434245095`*^9, 3.7772728042651663`*^9, 3.7772728588137274`*^9, 
   3.777273076802678*^9, 3.7772731168820424`*^9, 3.777273242575122*^9, 
   3.777275001891673*^9, 3.777356689434249*^9, 3.7773596800278444`*^9, {
   3.777360053865122*^9, 3.777360121326179*^9}, 3.777360374366789*^9, {
   3.7773605662863836`*^9, 3.777360575648018*^9}, 3.777360665352648*^9, 
   3.777360873888282*^9, 3.777808370660474*^9, 3.777808498638683*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV1As01HkbB3DGLYouSoqi2lqptiJd2NV3S5aU2jZtpSQlQlFJ6CaVUFmr
VItosZJSiSS5VRRyHXdyHcwYlxkqhNW77/t7OufdOWfOnI/n8nue33/GLBvn
LbYcCQkJ4T/v/36ylwck/v+FizCyWjxun/6zTPaHAHxZyHlYdILLbH0NgxN9
/URBT5mzbuJQ7kZOWmwOs2YYTOsG4xJOVjPjDtaZ6Fo6tb9jdonEAj+X7OrL
pcx3ouFtt3D9pq2NzCUxePRANlZlXwWdfw82n6q6jz2pYl5yH3eHMyqtZXg0
TzyODYTcTh2oZw58hAncarVb2Q3MTY/hlHrvlYR2O/NgAmSQet1NrZV5QiLM
h3rNubrUTysJiYMr15+1FND8TzFwetecU+7k7cngpbUWmTvxaZ9nKP4yUZcT
2Mnsm4IBUYTc4LUu2u85FD8kcJJqhMwpqQhzqlAW9PTQvi8wRXbxd98YiZkF
aZgnqDv5+GeKS2RgWujW2j2avcyqmXg6o9RYYXMfOQsHs+yVjztRPDoLzR9j
js1qo/iSl+g9FpL/y7mPzGkvEXd469yzQx+YTV7B9+nLBK0TFC9/hQSHD0Px
xZ/ofl/jyjXlxP7n5K7X2KdTf0PKrp/ZPRvcbbXb65MHmKVzILsxxJPjSQ7M
QeEOfdlnSoPM6m/gMdN1wcz9n5lj38DyQND1mdOHmJe9RbaetJ/LXHLWW0R3
3HLVkBtm3pCL9CM7RMqOI8zVuZiSJHVWVUzx/Xkw1Y+ZH3X0b2ZxHrxmlEvw
fySfykdH+Hxll3GjzGPewbHktYukPfn6O3j/1rjnrPwX+j4XYJ3iX/fPzCA/
KIBwZmTtdS7lryzEVssvqn8vkcz6n7MLobjsneaFBRLMm4vgnmx2LnQcxd8X
YfcBPwO3r/n2xZCL1S5cacVh/lgMiTuem502kVECzwrlR/MkyT4liCq8JKlp
SC4owa0Anb1+Y6WYJ5Vi7qPcz+PUyNtL8Vghrb//M+WHl8J7eWScjSPFW0sx
EDzPxPeMNLM2F6tCdOptvyW7cFE/Z+/LVSrkZC5OlwbMjnEnj3BxxMFmrOET
8poy9K+34WXOlmH2LYNXoOtAgBS5qAxv70nbnYuQY55cjkAFt63SyrLMO8sR
ufTs8vM+5DvlmGyx3bjMnPLby/E4kq82di3FF1Zgt+5a6WlfyEcrMHf4xIXX
ayk/pQKc2F0J3TFjmEcroNT3JClkPcWNKvHwe5UdP12jev9KhLeEtVjsoPyS
SjhvUK7uuU9WqYKFaPqQ+Kk8864qRKtd3rTeWIE5sgrxuRH6twPIgioUbnux
0aCI8r+rRqLn7PvOZmTXavinSroEg5xaDXVtw7VBrWSJGsjiWYqe6lhm4xpo
6w0qHo2i/ldq8HFt/+jEW4rM3BoEO2brF41Svmot2toyFxwaQ/lWtTiY6vni
Udk45uhaDGXo3sieRPXCWtheFeVlx1P+kjpYGHk5m2uQ3epQsaFWxXoW9U+r
w49tmzPcNKme8x7GK1ufeIxQf5P3GLcxS+G5z3jmgPeIdp7TIEij+vL3iD+o
9dOKTVQ/vR6npxpF/ampxGxdj52c5gK1zdQvph6Gj1PLK3vJXfUosTQSyFwl
6zTAptbmYsZmOs+9AZ+MUvjKf1C/jAbEc0z4FmEUl27E6WSZi5qN5PWNGC83
p3F1+ATmwEbESs+98qJmInNlI1xF35c4yFBcqQnBPvM6xqiTlzahtrs3w/Qg
eWsT+Ae+6Exqp/4nmrDHLfhYgg7FQ5qQo57bZydNTm/Cy/Fle+510HlN/zg/
Tze2g+aXagbf1sKt0kyZeV4zXoRLndJzJJs2I7Rrh17u13mcmlF4XmNvYiqd
/1sz0s1SDa0VJjE/aUbc3oZLJxooXtGMZwpbX9TaU/1gM06eWXFg9DeyWgvy
AtSXXfKiesMWyM8v9teYRPPubcEav1vq2bsp/0ILxrcGHtExoPy7LaiO0fnj
1UOK57fgd+/ujtVydH53C0R5/NWphRSfwEPoYt76LF2yLg99k6NCfconM2/j
YYzq7Zd9Itrfg4cJzTs/Kx+jecJ4EPI95m/5k+ozeehZuH+mveUU5hYeTm10
tyucTvPJtMKo6uq01EKq12rFu/ShX35cosls1grBZVmd2e+o3+FWbHn+Q0Sw
Lc3/e+s//78r00Y/UP2MNtR9Ex7nuoGMNjhLLdXd1EXz72vDorOZrpou1M+n
DZ6PUxXMhJR/rw0iLcmcJ6M0X0EbWtZacAY9aV9RG7r3zQrpv0r7TGpHj5bE
yPKv96/XjmUBa7bhNJ23vR1Kb70P2E2l+pPtqFCW9h5Nov7h7VjTq3vFcpI6
c2s7BrT81vn70DxyfDTHDSyytZrKrM3H/ah10WHd1H8jH3rLQ133O1F/Fz4q
++LO5I+n/tf4sOgbdeetpngyH28cuIGWW2j+Gj5mi7Qv7+ZMYx7hI7730EpV
c4prCLDScTT6QTzNs0aAnnrz7eWPaR5bAYqO1FSfWUX5vgLsXMKT/KhIvi9A
MTdePv8+zVskgMPkh+oZ1eReARIl70ofmK7BPLkDT2/r+gXl03l3OnBj+JsE
rU7q97oD/sJhq5G7tE97B7JNrXda36R55IVwCE6xrYmi/IVC+A/sCJc9T/02
CeF8yIMzrZjOPyqEbp2Sm1E9fd9ShHjzw3O/Cw+oX50QeRwzU1ce9RsVwjeu
65RDLp1v1Ino+MzTE8umM9t1Qkup5Nm6Zor7d6IroaPWIILq4ztxeEvDDynx
M5hLOlFwfE1ImQnNp9KFtIIQ2Z8TqX5VF2Kn/RlkIU/z7OpCn9u3qy5cped7
tguHpocVuFaoMOd0IWDKRP8OKVVmQRdmFK6ep19Oz/e7bni4Pet1TKd6127Y
p0RknfSm8252Y2no+chWX7qf1G64RzYsS6+j8+u7kWOYFN7/E+0j0QOOhdHq
Ui7d35wejGiV3Fp0h/oZ94DbcnnXTSH5Sg8ioxZ90tGk+3rUg+7FciUvFGke
bg92qCcl/+o8k/lTD2KU929IT6Z5DERQMT680Ow27Wcl+vfv8ZwIMdKHt6tb
UX60CE6VIU3vj89ifivCk5j69tZRum+hCK4GZTtNTVi+l6wY3iv02w78SvWq
YgRNfaBxR0zx+WJEXpx/1aSZ7ttADLtQxbobfLaf1wYxtsWErZ1sSPVWYnxa
cSnZfgvbzytIjMoiy3OrXlF9tBh6Y4f/8pFn+3g9Ff/r9+BVLUbIgggd3Xy6
H6EYBe9nt9/dy/b1Ghbj0qvyZecvUj/FXhSvOeUVpEXz7u+FvXxyeufX5+3W
i57g/V2Sx+m8S73Y/VHhW9usqVn/AQk4Ff4=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAq2w4YtoTaT/dnmfAZ5bEv3cjktz7
AEdAB6JDasMuxr8GX920yQBXQNlM5GlTk8e/zvwCobAAZ0Cykljdmy7Kv7LL
FRekAHdAtLWtXGkNz78kMx/SnQCHQAI4qb/kD9S/3eajr5oAl0A8pT4gynXc
v7lAZh6ZAKdAAqcilLHp5b8YSbXAWGSnQBFaP/BLKea/dlEEYxjIp0B2nko2
u2jmvzJioqeXj6hAe0BOlRrn5r+qg94wlh6qQFy1cErq4ee/msZWQ5M8rUDS
rPMyL9Dpvz6mI7RGvLFAo6RxC8yR7b8fLBTZQPi3QNmqUWvBW/K/pHchUVfO
wUCA9h+ZU3/4v2+LX8tSg8dAvuUiVrD3/b92/kOHIrTNQNWCFDL6swHAmKZn
gZe90UD2FJcOPg0EwJN9AOAH39RApbcG+IVuBsCprWyJ2vHXQJVNiGe7ogjA
mEusksvP2kD83GIqP5kKwCUZv7ym691AzddJKQCmDMBHqlIjUGngQKuWP3A2
gQ7AiHSvDX7V4UAh+in6OiQQwJjWdQihYONAjLC3jZ8WEcCV7yUzU9HkQKrq
WaV89RHAYaA/bvpg5kDs1Ro6T+QSwLr9ws5S6edAkgfMtKLME8AAEjBfOlfp
QCNRUcnZoxTAFb4GABfk6kANvxioDowVwBchx9CCVuxAuKT3K+ljFsDoG/Gx
4+ftQPLrPNUQTRfAR8OEuPVx70CQO357ZjEYwMoQgXfLcPBAEvhzmAQGGcDX
i/SaFjjxQCwnIms07BnAW+JcViny8UC5Sohq4MIawCUPeqSUqPJAxmYXNieV
G8DXB8x6em7zQBaYhUIdeRzA/9sS6Scn9EBZT5ryuk0dwA98jt9P7/RAEwg6
NhE0HsBm8r5o0LP1QEiYNtQeFh/AM0TkiRhr9kAXxh3s6OgfwOhhPjPbMfdA
YapmDLpmIMATW410Zev3QOTZ/VVh0SDAhSqRSEih+ED1SQaL6zkhwN7FyaSl
ZvlA62TiOVirIcCuPPeYyh76QNhgPqcpFSLAZX9ZFWrm+kCgRUEw3ociwJOd
sCnRoPtABsanjPjyIsAHkrzQkFf8QL9cTlb4WyPAY1L9/8od/UBrrlfV280j
wC7Bu2oRdf1AAAAAAAAAJMBfQass
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAq2w4YtoTaT/jdt5ysKSlP3cjktz7
AEdADCUXVy6PoD8GX920yQBXQKYuHoncEpg/zvwCobAAZ0AqNuGYbdR7P7LL
FRekAHdAv2AJ35V1mb8kMx/SnQCHQPjtFQ9EurW/3eajr5oAl0AE5Mp/mXDJ
v7lAZh6ZAKdALwxsNjOQ2r8fLBTZQPi3QM6Ug8ewg+u/pHchUVfOwUBPrX8I
hiP0v2+LX8tSg8dAwHUPADM7+r92/kOHIrTNQO7ZkLomWQDAmKZngZe90UA2
z9hF5k4DwJN9AOAH39RAF6nIOCN2BsCprWyJ2vHXQBUQ8BPugQnAmEusksvP
2kAqG6Xl6U4MwCUZv7ym691AytrkIedND8BHqlIjUGngQI03reljCBHAiHSv
DX7V4UD4ee7/4F4SwJjWdQihYONAii0rB03OE8CV7yUzU9HkQMX1DXd4IRXA
YaA/bvpg5kDU0G0RZI0WwLr9ws5S6edA97kvrCPvF8AAEjBfOlfpQP5Dfb8e
NhnAFb4GABfk6kCFToE6yZUawBchx9CCVuxAiEBfMWnbG8DoG/Gx4+ftQFS+
ubyYOR3AR8OEuPVx70Cmdj1G544ewMoQgXfLcPBAeR9eGznLH8DXi/SaFjjx
QKJ/zskGkCDAW+JcViny8UCQWyOnMy4hwCUPeqSUqPJA2ven43LIIcDXB8x6
em7zQCaJJlnrbiLA/9sS6Scn9EB5tklVgQkjwA98jt9P7/RAJm7Gn0OwI8DE
QsCmdE/1QAAAAAAAACTAfP0bWQ==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 71800.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777267041148425*^9, 3.7772688580459185`*^9, {3.777268890385418*^9, 
   3.7772689168776803`*^9}, 3.7772690201329193`*^9, 3.7772711524452524`*^9, 
   3.777271297115901*^9, 3.777271598201964*^9, {3.7772716407588243`*^9, 
   3.777271656045249*^9}, 3.777271887552249*^9, 3.7772726854063377`*^9, 
   3.7772727434245095`*^9, 3.7772728042651663`*^9, 3.7772728588137274`*^9, 
   3.777273076802678*^9, 3.7772731168820424`*^9, 3.777273242575122*^9, 
   3.777275001891673*^9, 3.777356689434249*^9, 3.7773596800278444`*^9, {
   3.777360053865122*^9, 3.777360121326179*^9}, 3.777360374366789*^9, {
   3.7773605662863836`*^9, 3.777360575648018*^9}, 3.777360665352648*^9, 
   3.777360873888282*^9, 3.777808370660474*^9, 3.7778084987334757`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359679926998*^9, {3.777360053763821*^9, 3.7773601212259383`*^9}, 
   3.7773603743290405`*^9, {3.7773605662408*^9, 3.7773605756177998`*^9}, 
   3.777360665321405*^9, 3.7773608738570395`*^9, 3.7778083705187798`*^9, 
   3.7778084987959614`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359679926998*^9, {3.777360053763821*^9, 3.7773601212259383`*^9}, 
   3.7773603743290405`*^9, {3.7773605662408*^9, 3.7773605756177998`*^9}, 
   3.777360665321405*^9, 3.7773608738570395`*^9, 3.7778083705187798`*^9, 
   3.7778084988896894`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 120K", "Section",
 CellChangeTimes->{{3.777213415015423*^9, 3.777213416864627*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_120K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "3000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "8000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", "0.6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", "0.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772670916014366`*^9, 3.777267103741165*^9}, 
   3.777271191075128*^9, {3.777271531537573*^9, 3.7772715401043425`*^9}, {
   3.7772747010829997`*^9, 3.777274704594528*^9}, 3.7773564678190813`*^9, {
   3.7773567040044622`*^9, 3.7773567081544394`*^9}, {3.7773573828436303`*^9, 
   3.7773573831837783`*^9}, {3.7773601487406015`*^9, 3.777360150789173*^9}, {
   3.77780843249693*^9, 3.777808432999731*^9}, {3.7797171834916353`*^9, 
   3.7797171877001038`*^9}, {3.7797172578564577`*^9, 3.779717285995956*^9}, {
   3.77971736047128*^9, 3.7797173931425653`*^9}, {3.7797174469536676`*^9, 
   3.7797174499711037`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVlHs01Hkfx6VC1qaSkhBF0bZyy5btqXdbWRWFsLSUtSm7Cbm0LrXJpbIU
2UrtqqwkSUJIDKZcIiPXMGIMM8wwhlJauqxnn/199o/HOY7zOu/35/25fGfo
ePjae8rKyMhI/v7931/mJwQy//cThbOWmwRVObnl/2B4LJwWez9jJbcSn4ds
63xR7EAFw7iIB4LQ6j/GHzEscwV2q08aaLm3MMxOhq1XVp1kpJP8Kbij7ujh
a9LEsHYqyucZLAtzp3yZNCwbX+gUMsFnmH8T0VOznYe8idm3ELuBc5gf1MVw
ym14HtMss9vbS/PdgYvhRI5+vohh97tQuOJ6N8BYSP3voWbk/VTRYeKEHMzp
nWBb6Q5SfS7G94ffjHglYdgvD735a0zeV4gp7z5uFWuO6j8cYtg2H/V6/qe3
Or6k/AKMjgf43uwbZdioECoW0ns2nBHa9wEOzL1b0cYj/5wiHO31+ClLMkb7
P0TYmXO8Nm3ilw+h5pgWHfoLMb8YaWsO7XK89IbhxhKYsQzc/ELH6T4s7P9l
V9j0d6TnlEJffSz4bD7pKWXYEd0SuWPuBO1fjiUVzrkmnD9pfjYGx0QjnleI
i9iQKN/zNasmv9EjmC78VTY0+x3DGY8QYZIWMPRhkvZ7jIKnP2gvdSb98mO4
TS0SHx16T/tW4IuTKulG5h8ZPlMBF92czWd++0D7V+LJHuO84ErSgyuxsrAk
RKowRfeoBJsX1ca+TOxVheYePeU1LsT8KuiZake7q8qw/2Hnaqh0t/uYpRI3
VkOn5dmJ9RJiqydYEbF9/C6mMcx+ggJH+XMZbOK1NXhTWiD9KCbOqUGMotOu
jEBi/VpYrXFZbnRdluGUWpjHsuQsionVnqIw4oZx3CRxwlNk6DesDGghVqiD
fxmnP1V1OsPhdcgu916zWW8GwxN1aEvbnqqRTrofByMeXMVYL9LFHBTpfVVa
VTiTYfd6JLGDyj7VIe6ox2qljdVHrhPbPsPSurXJvqPENc8QU+npeeg9MRqg
Mezkc41DXNSAkmx3oayyHO3TiJBFyoXfm8gz7NCIb3T/k1R0lzihESdvJu3U
vU/MacR1qf2tUkdihSY4FCdeUFNRYHhLE2q+OWR2JJj08CaMCRdHLusnndUE
Hs+o3j6R9IkmeAR21zWunsWwWTOyjbsr/TSI/ZpxMCM0tcFHkeGsZtiUdT61
2EMsbkbcusAbQVfIr9uCWEVO48V5n9D9WuCjriGK+Iv8yS1/v/8n/M5c4o4W
nHiUKR6zJf/8VrAiwmbZrCO2bcXOkXxJ9Hvyx7VCV6bWJ/I46TWt2JraFOph
RvqM57BbYf9Cqk+M50i2CDd/doL8x57jiD2rKuBrJXqP5/hVeDHzfAPpb55D
s9rbptCGdKM2lNmb+jTafsqwdxsMCtZscXCezXBGG5p/ePX2FJf6CduQyZo2
eeI0+bXboaR74HCeqTLDru0YDurtyNei/MvtWLeqtip/9xyGW9tR9M54l//2
uQzP6YD88ZH7r5Oon3UHvhBvdm8Np7wzHcjifmWhs5v8lR2I4CVPcDeTLsNF
zPrbS710SV/PxbdXnY7unUl6MBdx90ZOL9xAej4XJ5Z5TRoepHlecmE9vPb8
giDSV3XCzogTev4K1Xt1Qq6+4JYCl+ZL64SDxiW14Qzy8zuh0pkvM3CX8jRe
4BNjQ4uoVmLnF/DwyBG1epP/wgvAb5nyw9/nMdz4AlKdQtuziqQrdaGQaxu9
xIrqrbpw0LiyRsGf9Kgu+AVMOEcWE7O78PUp607FQOIPXVDQynLaOpN4bTfs
NFfnRkpUGA7sxi3L5uS8jQsYzulGzZ1tLLOr1G+4G64rxnyKVqoyrM+D16jJ
1cqXpO/n4fT4DHluCOWn8BD2/ob+0Qjyd/HQnl16+BJrPsNqPch1zDPcd4H6
O/Qg30dr9jR5qk/ogWKKW7fJNLoHpwdpdj+3a0WQfwYfFad/kyuVW8zwUj6y
fHPy/IuoHny4tXMO2atQv7181Cc9Fh53p7xjfNQm/PUqr4ryfuPDbzTbpjBp
IcNFfBzPj3OtCSFu4+PP+Y7W28yo/g0fjyMColKOE8/rRX9GLM99A+1r1Ivk
TWNyiTk0z85eTB28ZiNYTOzdi3jVn7clDhL/0ou4hQ0OhZE0b0Yvoiyje5zk
aL7qXlgv3vqgoEidYWEv2LnpOpUOVC/bh8n4la5iFvm1+2CVOi/uJIg39EGs
eVvl3RJi1z4stc+LV42lfqF9+M85vca+RNrnch/a6gfZNsvIX9gHTw23qD+O
0z1a++D/+sKKRHPSx/pQuei8fvxZypsjwB5ob7j1gT5PhgK0J0bnbjulxrC1
AHO1WWUK6dTvRwE2D5cfsxggPiPAjpU9H7VsyZ8uwK6QM7FV/H+/7wLwj1ka
vmsgf58A5sEX3iYm03wyQszaBz2OGs2nJcQmm4vx6h/Jv0cI+c9LeV++pXsG
C/Hc0mEq0I3e75IQLQEa8UmKSxjOF6Iy88H2zlTKaxbCg8NNNDCl/V4KkXjA
wk3RgfTZ/diXKtofcpXmWdWPEc9t2Z6nqP/2fgSZaqtM+5TqvfpRkpT2Unsu
zXOqH/I/rcoy/JPumdaPvIqJnD98KP9xPxYk60g7FCif348HHQtqI34n3WIA
rdMX1no5Ub3zAHL2lfgu+ff/wdEBzNsiO6n3Hd33wgA0LtsExWhRfeMAfk/3
Tzc6uIjhkQGMstQGAzJpXiUR6lSnTeZ1E68U4cujv3bG76d+ViLwuLNcTrPp
ngdEWLg7/8fBYzoMR4lgNTxzuvI12jdVBGeDlzPaosjPFkHUpHbpXDXl8USY
TBNszNOkeT+IYKGc+LH8iAbD6mJ4a4U7RV2j+zqJUb2hXHA4k/ZJFEO1YXXh
t6B75YixrXZTblkr9XsmRtPiooemtrTPsBh2mdwdHAG9v+IgPnsgfSsZpDzL
QQzV3YsJK6L6/YPoH/X7crSb8lMGwYuOeeM0SvfrGkSbw6lNET7kVxvC7uAF
MfHFlO8whKsVJUdrWdTffwjnp0e27Pn3+5swhOVhn7WqJ1F99hBa5Ju3acto
M6wggeB6wu0vAqn/cgkeuBjvvHOf9C0SPF4f89C1QothDwluCDteWb4lf7gE
Ey/MV+xNJ2ZJMLVc8FR3PvXrlCD+++WX+Oo0n9kw9s+0fTQ6m/Y7NwzeoTqt
2xvovbKGkcO2C/3sHr3H02F0D6wzCJxJfjkpNIQh1u6v6T2/kmKuklra66uU
7y6F23iEUl8+fT5+lsJ/o0vAne+Jk6X4/P5fJTt6aL4OKSyWyYZkf0fzv5XC
3HtFpMYEzTN/BE+KPR9mhWiy/wuypxni
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAq2w4YtoTaT8bpCXTYrDFvncjktz7
AEdA4fltRkigkL8GX920yQBXQNxMWHzpSJ+/zvwCobAAZ0BTMeoq/Wmtv7LL
FRekAHdAdgSKnlacu78kMx/SnQCHQJdd6k+L1cm/3eajr5oAl0COJJCxcQbY
v7IrDWyfuJdAV7j9Duuw2L+GcHYopHCYQJSXQK6uWtm/MPpIoa3gmUCfQqjN
Jazav4IN7pLAwJxAVjwZ5z5H3b8UGhw7c0ChQJRGA0VzMOG/uUBmHpkAp0Al
oOprMxnmvxhJtcBYZKdAsYYH7ENs5r92UQRjGMinQCrTR6IVv+a/MmKip5eP
qEBXU7XV/2Pnv6qD3jCWHqpAfWvTJwSr6L+axlZDkzytQB6g9ZBjLuu/PqYj
tEa8sUAExLHCOwfwvx8sFNlA+LdABtXJTAWm9L+kdyFRV87BQOcwdfq5lfy/
b4tfy1KDx0AhNiaplt8BwHb+Q4citM1AUFE3CMCGBcCYpmeBl73RQC26uQUV
ygjAk30A4Aff1EDazmK6MzgMwKmtbIna8ddA6kRvFvGDD8CYS6ySy8/aQCY7
4z/8RRHAJRm/vKbr3UBZl5yCrOYSwEeqUiNQaeBAUoOP4g9pFMCIdK8NftXh
QGW32sEo4hXAmNZ1CKFg40DV3thv/nkXwJXvJTNT0eRAPD1Tw6v1GMBhoD9u
+mDmQEw/LUSRkBrAuv3CzlLp50BuFegTeyMcwAASMF86V+lAvVfR4vGaHcAV
vgYAF+TqQM09BdzxMR/AFyHH0IJW7ECZT8sd1lYgwOgb8bHj5+1Ae1Vj0oEk
IcBHw4S49XHvQEFTSYVj7iHAyhCBd8tw8EDtmtk4sqoiwNeL9JoWOPFAZ51Q
eNZ2I8CTgx4RAb7xQAAAAAAAACTAYo9QUQ==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAq2w4YtoTaT8bpCXTYrDFvncjktz7
AEdA4fltRkigkL8GX920yQBXQNxMWHzpSJ+/zvwCobAAZ0BTMeoq/Wmtv7LL
FRekAHdAdgSKnlacu78kMx/SnQCHQJdd6k+L1cm/3eajr5oAl0COJJCxcQbY
v7IrDWyfuJdAV7j9Duuw2L+GcHYopHCYQJSXQK6uWtm/MPpIoa3gmUCfQqjN
Jazav4IN7pLAwJxAVjwZ5z5H3b8UGhw7c0ChQJRGA0VzMOG/uUBmHpkAp0Al
oOprMxnmvxhJtcBYZKdAsYYH7ENs5r92UQRjGMinQCrTR6IVv+a/MmKip5eP
qEBXU7XV/2Pnv6qD3jCWHqpAfWvTJwSr6L+axlZDkzytQB6g9ZBjLuu/PqYj
tEa8sUAExLHCOwfwvx8sFNlA+LdABtXJTAWm9L+kdyFRV87BQOcwdfq5lfy/
b4tfy1KDx0AhNiaplt8BwHb+Q4citM1AUFE3CMCGBcCYpmeBl73RQC26uQUV
ygjAk30A4Aff1EDazmK6MzgMwKmtbIna8ddA6kRvFvGDD8CYS6ySy8/aQCY7
4z/8RRHAJRm/vKbr3UBZl5yCrOYSwEeqUiNQaeBAUoOP4g9pFMCIdK8NftXh
QGW32sEo4hXAmNZ1CKFg40DV3thv/nkXwJXvJTNT0eRAPD1Tw6v1GMBhoD9u
+mDmQEw/LUSRkBrAuv3CzlLp50BuFegTeyMcwAASMF86V+lAvVfR4vGaHcAV
vgYAF+TqQM09BdzxMR/AFyHH0IJW7ECZT8sd1lYgwOgb8bHj5+1Ae1Vj0oEk
IcBHw4S49XHvQEFTSYVj7iHAyhCBd8tw8EDtmtk4sqoiwNeL9JoWOPFAZ51Q
eNZ2I8CTgx4RAb7xQAAAAAAAACTAYo9QUQ==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 61600.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777267092139022*^9, 3.777267104115874*^9}, 
   3.777268919247609*^9, 3.7772690228034935`*^9, 3.7772711526951942`*^9, 
   3.7772711916175823`*^9, 3.7772712973658423`*^9, 3.7772715323029847`*^9, 
   3.777271598484225*^9, {3.777271641008761*^9, 3.7772716563275146`*^9}, 
   3.7772718878034787`*^9, 3.77727268571161*^9, 3.777272743690073*^9, 
   3.7772728045932064`*^9, 3.777272859080356*^9, 3.777273077068241*^9, 
   3.777273117256965*^9, 3.7772732428365755`*^9, 3.7773567085252776`*^9, 
   3.777359680693577*^9, {3.777360132619438*^9, 3.777360167272926*^9}, 
   3.777360684890893*^9, 3.7773608744549627`*^9, 3.777808372907374*^9, 
   3.777808499053837*^9, 3.779717222436157*^9, {3.7797172610092983`*^9, 
   3.779717287297295*^9}, {3.779717366993991*^9, 3.779717395557931*^9}, 
   3.779717455892395*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772134190518064`*^9, 3.7772134192861075`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"logaritmic", "[", 
        RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], ",", 
       RowBox[{"T1", ">", "0"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772668879277925`*^9, 3.7772668981065674`*^9}, {
   3.7772713541744595`*^9, 3.7772713610099344`*^9}, {3.7772715350239077`*^9, 
   3.7772715426396337`*^9}, 3.777274824680185*^9, 3.7773565109044027`*^9, {
   3.777356748944396*^9, 3.7773567528844504`*^9}, {3.777360692756173*^9, 
   3.7773607045687404`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterTable\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359680814412*^9, {3.7773601343577023`*^9, 3.7773601530499053`*^9}, {
   3.7773606874898877`*^9, 3.7773607010509357`*^9}, 3.7773608750430155`*^9, 
   3.777808372985437*^9, 3.7778084996016407`*^9, 3.779717228380459*^9, {
   3.7797172659056463`*^9, 3.779717291636117*^9}, 3.7797173714277725`*^9, 
   3.7797174037764874`*^9, 3.7797174599976606`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "0.625813695029041`", "0.1718100705991931`", "3.6424738832042607`",
       "0.00033309595641575215`"},
     {"T1", "3779.2657455945587`", "1971.4770051368616`", 
      "1.916971760638009`", "0.05646991953670844`"},
     {"T2", "10807.322455288588`", "617.8925209647216`", 
      "17.490618657133137`", "2.9721931713480207`*^-44"}
    },
    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.777267094285203*^9, 3.7772671061150455`*^9}, 
   3.7772689211296673`*^9, 3.7772690247408123`*^9, 3.7772711529607573`*^9, 
   3.7772711946568623`*^9, 3.7772712976626472`*^9, 3.7772713556145964`*^9, 
   3.777271536023441*^9, 3.7772715987810245`*^9, {3.77727164119832*^9, 
   3.7772716565274525`*^9}, 3.7772718881002836`*^9, 3.7772726858209596`*^9, 
   3.777272743846286*^9, 3.7772728047650514`*^9, 3.7772728592521906`*^9, 
   3.7772730771932106`*^9, 3.777273117397546*^9, 3.7772732430552735`*^9, 
   3.777356710669411*^9, 3.7773596808626394`*^9, {3.7773601344499087`*^9, 
   3.777360153153653*^9}, {3.777360687579934*^9, 3.7773606959798083`*^9}, 
   3.7773608125525*^9, 3.7773608750807686`*^9, 3.7778083731261005`*^9, 
   3.777808499664134*^9, 3.779717228465325*^9, {3.7797172659525113`*^9, 
   3.7797172916986046`*^9}, 3.779717371460075*^9, 3.779717403823351*^9, 
   3.77971746005507*^9}],

Cell[BoxData["0.9747765407302366`"], "Output",
 CellChangeTimes->{{3.777267094285203*^9, 3.7772671061150455`*^9}, 
   3.7772689211296673`*^9, 3.7772690247408123`*^9, 3.7772711529607573`*^9, 
   3.7772711946568623`*^9, 3.7772712976626472`*^9, 3.7772713556145964`*^9, 
   3.777271536023441*^9, 3.7772715987810245`*^9, {3.77727164119832*^9, 
   3.7772716565274525`*^9}, 3.7772718881002836`*^9, 3.7772726858209596`*^9, 
   3.777272743846286*^9, 3.7772728047650514`*^9, 3.7772728592521906`*^9, 
   3.7772730771932106`*^9, 3.777273117397546*^9, 3.7772732430552735`*^9, 
   3.777356710669411*^9, 3.7773596808626394`*^9, {3.7773601344499087`*^9, 
   3.777360153153653*^9}, {3.777360687579934*^9, 3.7773606959798083`*^9}, 
   3.7773608125525*^9, 3.7773608750807686`*^9, 3.7778083731261005`*^9, 
   3.777808499664134*^9, 3.779717228465325*^9, {3.7797172659525113`*^9, 
   3.7797172916986046`*^9}, 3.779717371460075*^9, 3.779717403823351*^9, 
   3.7797174600707035`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0609285459639095`", "0.009958245232368343`", 
      "106.53770028834606`", "5.242909108952727`*^-199"},
     {"T1", "5697.207114337287`", "262.2949074592025`", "21.720616574393212`",
       "7.91079878378941`*^-58"},
     {"T2", "4573.960545220276`", "396.4923334072497`", "11.536063020220414`",
       "1.242158249319496`*^-24"}
    },
    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.777267094285203*^9, 3.7772671061150455`*^9}, 
   3.7772689211296673`*^9, 3.7772690247408123`*^9, 3.7772711529607573`*^9, 
   3.7772711946568623`*^9, 3.7772712976626472`*^9, 3.7772713556145964`*^9, 
   3.777271536023441*^9, 3.7772715987810245`*^9, {3.77727164119832*^9, 
   3.7772716565274525`*^9}, 3.7772718881002836`*^9, 3.7772726858209596`*^9, 
   3.777272743846286*^9, 3.7772728047650514`*^9, 3.7772728592521906`*^9, 
   3.7772730771932106`*^9, 3.777273117397546*^9, 3.7772732430552735`*^9, 
   3.777356710669411*^9, 3.7773596808626394`*^9, {3.7773601344499087`*^9, 
   3.777360153153653*^9}, {3.777360687579934*^9, 3.7773606959798083`*^9}, 
   3.7773608125525*^9, 3.7773608750807686`*^9, 3.7778083731261005`*^9, 
   3.777808499664134*^9, 3.779717228465325*^9, {3.7797172659525113`*^9, 
   3.7797172916986046`*^9}, 3.779717371460075*^9, 3.779717403823351*^9, 
   3.7797174603217325`*^9}],

Cell[BoxData["0.9937256487458609`"], "Output",
 CellChangeTimes->{{3.777267094285203*^9, 3.7772671061150455`*^9}, 
   3.7772689211296673`*^9, 3.7772690247408123`*^9, 3.7772711529607573`*^9, 
   3.7772711946568623`*^9, 3.7772712976626472`*^9, 3.7772713556145964`*^9, 
   3.777271536023441*^9, 3.7772715987810245`*^9, {3.77727164119832*^9, 
   3.7772716565274525`*^9}, 3.7772718881002836`*^9, 3.7772726858209596`*^9, 
   3.777272743846286*^9, 3.7772728047650514`*^9, 3.7772728592521906`*^9, 
   3.7772730771932106`*^9, 3.777273117397546*^9, 3.7772732430552735`*^9, 
   3.777356710669411*^9, 3.7773596808626394`*^9, {3.7773601344499087`*^9, 
   3.777360153153653*^9}, {3.777360687579934*^9, 3.7773606959798083`*^9}, 
   3.7773608125525*^9, 3.7773608750807686`*^9, 3.7778083731261005`*^9, 
   3.777808499664134*^9, 3.779717228465325*^9, {3.7797172659525113`*^9, 
   3.7797172916986046`*^9}, 3.779717371460075*^9, 3.779717403823351*^9, 
   3.7797174603373556`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVlHs01Hkfx6VC1qaSkhBF0bZyy5btqXdbWRWFsLSUtSm7Cbm0LrXJpbIU
2UrtqqwkSUJIDKZcIiPXMGIMM8wwhlJauqxnn/199o/HOY7zOu/35/25fGfo
ePjae8rKyMhI/v7931/mJwQy//cThbOWmwRVObnl/2B4LJwWez9jJbcSn4ds
63xR7EAFw7iIB4LQ6j/GHzEscwV2q08aaLm3MMxOhq1XVp1kpJP8Kbij7ujh
a9LEsHYqyucZLAtzp3yZNCwbX+gUMsFnmH8T0VOznYe8idm3ELuBc5gf1MVw
ym14HtMss9vbS/PdgYvhRI5+vohh97tQuOJ6N8BYSP3voWbk/VTRYeKEHMzp
nWBb6Q5SfS7G94ffjHglYdgvD735a0zeV4gp7z5uFWuO6j8cYtg2H/V6/qe3
Or6k/AKMjgf43uwbZdioECoW0ns2nBHa9wEOzL1b0cYj/5wiHO31+ClLMkb7
P0TYmXO8Nm3ilw+h5pgWHfoLMb8YaWsO7XK89IbhxhKYsQzc/ELH6T4s7P9l
V9j0d6TnlEJffSz4bD7pKWXYEd0SuWPuBO1fjiUVzrkmnD9pfjYGx0QjnleI
i9iQKN/zNasmv9EjmC78VTY0+x3DGY8QYZIWMPRhkvZ7jIKnP2gvdSb98mO4
TS0SHx16T/tW4IuTKulG5h8ZPlMBF92czWd++0D7V+LJHuO84ErSgyuxsrAk
RKowRfeoBJsX1ca+TOxVheYePeU1LsT8KuiZake7q8qw/2Hnaqh0t/uYpRI3
VkOn5dmJ9RJiqydYEbF9/C6mMcx+ggJH+XMZbOK1NXhTWiD9KCbOqUGMotOu
jEBi/VpYrXFZbnRdluGUWpjHsuQsionVnqIw4oZx3CRxwlNk6DesDGghVqiD
fxmnP1V1OsPhdcgu916zWW8GwxN1aEvbnqqRTrofByMeXMVYL9LFHBTpfVVa
VTiTYfd6JLGDyj7VIe6ox2qljdVHrhPbPsPSurXJvqPENc8QU+npeeg9MRqg
Mezkc41DXNSAkmx3oayyHO3TiJBFyoXfm8gz7NCIb3T/k1R0lzihESdvJu3U
vU/MacR1qf2tUkdihSY4FCdeUFNRYHhLE2q+OWR2JJj08CaMCRdHLusnndUE
Hs+o3j6R9IkmeAR21zWunsWwWTOyjbsr/TSI/ZpxMCM0tcFHkeGsZtiUdT61
2EMsbkbcusAbQVfIr9uCWEVO48V5n9D9WuCjriGK+Iv8yS1/v/8n/M5c4o4W
nHiUKR6zJf/8VrAiwmbZrCO2bcXOkXxJ9Hvyx7VCV6bWJ/I46TWt2JraFOph
RvqM57BbYf9Cqk+M50i2CDd/doL8x57jiD2rKuBrJXqP5/hVeDHzfAPpb55D
s9rbptCGdKM2lNmb+jTafsqwdxsMCtZscXCezXBGG5p/ePX2FJf6CduQyZo2
eeI0+bXboaR74HCeqTLDru0YDurtyNei/MvtWLeqtip/9xyGW9tR9M54l//2
uQzP6YD88ZH7r5Oon3UHvhBvdm8Np7wzHcjifmWhs5v8lR2I4CVPcDeTLsNF
zPrbS710SV/PxbdXnY7unUl6MBdx90ZOL9xAej4XJ5Z5TRoepHlecmE9vPb8
giDSV3XCzogTev4K1Xt1Qq6+4JYCl+ZL64SDxiW14Qzy8zuh0pkvM3CX8jRe
4BNjQ4uoVmLnF/DwyBG1epP/wgvAb5nyw9/nMdz4AlKdQtuziqQrdaGQaxu9
xIrqrbpw0LiyRsGf9Kgu+AVMOEcWE7O78PUp607FQOIPXVDQynLaOpN4bTfs
NFfnRkpUGA7sxi3L5uS8jQsYzulGzZ1tLLOr1G+4G64rxnyKVqoyrM+D16jJ
1cqXpO/n4fT4DHluCOWn8BD2/ob+0Qjyd/HQnl16+BJrPsNqPch1zDPcd4H6
O/Qg30dr9jR5qk/ogWKKW7fJNLoHpwdpdj+3a0WQfwYfFad/kyuVW8zwUj6y
fHPy/IuoHny4tXMO2atQv7181Cc9Fh53p7xjfNQm/PUqr4ryfuPDbzTbpjBp
IcNFfBzPj3OtCSFu4+PP+Y7W28yo/g0fjyMColKOE8/rRX9GLM99A+1r1Ivk
TWNyiTk0z85eTB28ZiNYTOzdi3jVn7clDhL/0ou4hQ0OhZE0b0Yvoiyje5zk
aL7qXlgv3vqgoEidYWEv2LnpOpUOVC/bh8n4la5iFvm1+2CVOi/uJIg39EGs
eVvl3RJi1z4stc+LV42lfqF9+M85vca+RNrnch/a6gfZNsvIX9gHTw23qD+O
0z1a++D/+sKKRHPSx/pQuei8fvxZypsjwB5ob7j1gT5PhgK0J0bnbjulxrC1
AHO1WWUK6dTvRwE2D5cfsxggPiPAjpU9H7VsyZ8uwK6QM7FV/H+/7wLwj1ka
vmsgf58A5sEX3iYm03wyQszaBz2OGs2nJcQmm4vx6h/Jv0cI+c9LeV++pXsG
C/Hc0mEq0I3e75IQLQEa8UmKSxjOF6Iy88H2zlTKaxbCg8NNNDCl/V4KkXjA
wk3RgfTZ/diXKtofcpXmWdWPEc9t2Z6nqP/2fgSZaqtM+5TqvfpRkpT2Unsu
zXOqH/I/rcoy/JPumdaPvIqJnD98KP9xPxYk60g7FCif348HHQtqI34n3WIA
rdMX1no5Ub3zAHL2lfgu+ff/wdEBzNsiO6n3Hd33wgA0LtsExWhRfeMAfk/3
Tzc6uIjhkQGMstQGAzJpXiUR6lSnTeZ1E68U4cujv3bG76d+ViLwuLNcTrPp
ngdEWLg7/8fBYzoMR4lgNTxzuvI12jdVBGeDlzPaosjPFkHUpHbpXDXl8USY
TBNszNOkeT+IYKGc+LH8iAbD6mJ4a4U7RV2j+zqJUb2hXHA4k/ZJFEO1YXXh
t6B75YixrXZTblkr9XsmRtPiooemtrTPsBh2mdwdHAG9v+IgPnsgfSsZpDzL
QQzV3YsJK6L6/YPoH/X7crSb8lMGwYuOeeM0SvfrGkSbw6lNET7kVxvC7uAF
MfHFlO8whKsVJUdrWdTffwjnp0e27Pn3+5swhOVhn7WqJ1F99hBa5Ju3acto
M6wggeB6wu0vAqn/cgkeuBjvvHOf9C0SPF4f89C1QothDwluCDteWb4lf7gE
Ey/MV+xNJ2ZJMLVc8FR3PvXrlCD+++WX+Oo0n9kw9s+0fTQ6m/Y7NwzeoTqt
2xvovbKGkcO2C/3sHr3H02F0D6wzCJxJfjkpNIQh1u6v6T2/kmKuklra66uU
7y6F23iEUl8+fT5+lsJ/o0vAne+Jk6X4/P5fJTt6aL4OKSyWyYZkf0fzv5XC
3HtFpMYEzTN/BE+KPR9mhWiy/wuypxni
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwB0QIu/SFib1JlAgAAACwAAAACAAAAq2w4YtoTaT8QHlHNQf/dv3cjktz7
AEdA5MV1QKzU3r8GX920yQBXQJvAQZqikN+/zvwCobAAZ0Dm8cG91njgv7LL
FRekAHdASpF645fD4b8kMx/SnQCHQOxp6ahxLOS/3eajr5oAl0BUDTjC06Do
v7lAZh6ZAKdAAaCY/L5d8L8YSbXAWGSnQNcVkCcnf/C/dlEEYxjIp0BcIgWJ
dqDwvzJioqeXj6hAY0PBJMzi8L+qg94wlh6qQHt4zbtaZvG/msZWQ5M8rUAT
OeMpP2nyvz6mI7RGvLFArT22Vqdf9L8fLBTZQPi3QF4QSqT6F/i/pHchUVfO
wUDUgVivQXj+v2+LX8tSg8dA0Vt+Ht4XAsB2/kOHIrTNQLg70uEk+wTAmKZn
gZe90UCQxAWoY4gHwJN9AOAH39RA+akvbOsvCsCprWyJ2vHXQFILUy+htgzA
mEusksvP2kAhJhIC6QQPwCUZv7ym691ARGc4QHO9EMBHqlIjUGngQNNezC8b
4BHAiHSvDX7V4UB0Kxx+vPoSwJjWdQihYONAwcY9WoMrFMCV7yUzU9HkQIhX
FsGbRhXAYaA/bvpg5kDqERladHgWwLr9ws5S6edAiCtCbvSjF8AAEjBfOlfp
QP4KI0fHuhjAFb4GABfk6kAx/NSXy+gZwBchx9CCVuxAZSF4x2kCG8DoG/Gx
4+ftQEWhrs9XMxzAR8OEuPVx70ClZKRkjV4dwMoQgXfLcPBA6ecHx5J1HsDX
i/SaFjjxQLcDO4X/ox/AW+JcViny8UAtAvLeJV8gwCUPeqSUqPJAMGSFcYDp
IMDXB8x6em7zQO4Xj0WTfyHA/9sS6Scn9EBkxsjsmwsiwA98jt9P7/RApy1d
MF6jIsBm8r5o0LP1QP2w6d9YOCPAM0TkiRhr9kBp9L4OTMMjwEA2IjEru/ZA
AAAAAAAAJMCdhmFf
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAAq2w4YtoTaT/UIKGt+UeuP3cjktz7
AEdAUzCbRLA0qD8GX920yQBXQPfN0yUBq6I/zvwCobAAZ0C5Drrlhh2QP7LL
FRekAHdASx6x1CyXmL8kMx/SnQCHQMRCSzh6sLm/3eajr5oAl0AOWIIYbJ7P
v7lAZh6ZAKdAzL041BXq4L8fLBTZQPi3QJQ5jNtww/G/pHchUVfOwUClSeVB
jxD6v2+LX8tSg8dAyHKReDH0AMB2/kOHIrTNQG9cqDDSDwXAmKZngZe90UB9
saUcvcUIwJN9AOAH39RArDmWqHisDMCprWyJ2vHXQOa3ZYy5MhDAmEusksvP
2kD/EZAqZeQRwCUZv7ym691Am9iY7mWwE8BHqlIjUGngQItgZ517VRXAiHSv
DX7V4UDt1awmg+sWwJjWdQihYONAEzVI9H+dGMCV7yUzU9HkQBYzitsdLRrA
YaA/bvpg5kAe7iPeQdkbwLr9ws5S6edADBqOPSN5HcAAEjBfOlfpQBSYsaGF
+R7AFb4GABfk6kBJ73sxiksgwBchx9CCVuxAWRKOLyMLIcDoG/Gx4+ftQLPN
JiJf2SHAR8OEuPVx70BSJ4ePlqIiwMoQgXfLcPBAoBq5o0VdI8BSzJ742BHx
QAAAAAAAACTAG8Hrgw==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 61600.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777267094285203*^9, 3.7772671061150455`*^9}, 
   3.7772689211296673`*^9, 3.7772690247408123`*^9, 3.7772711529607573`*^9, 
   3.7772711946568623`*^9, 3.7772712976626472`*^9, 3.7772713556145964`*^9, 
   3.777271536023441*^9, 3.7772715987810245`*^9, {3.77727164119832*^9, 
   3.7772716565274525`*^9}, 3.7772718881002836`*^9, 3.7772726858209596`*^9, 
   3.777272743846286*^9, 3.7772728047650514`*^9, 3.7772728592521906`*^9, 
   3.7772730771932106`*^9, 3.777273117397546*^9, 3.7772732430552735`*^9, 
   3.777356710669411*^9, 3.7773596808626394`*^9, {3.7773601344499087`*^9, 
   3.777360153153653*^9}, {3.777360687579934*^9, 3.7773606959798083`*^9}, 
   3.7773608125525*^9, 3.7773608750807686`*^9, 3.7778083731261005`*^9, 
   3.777808499664134*^9, 3.779717228465325*^9, {3.7797172659525113`*^9, 
   3.7797172916986046`*^9}, 3.779717371460075*^9, 3.779717403823351*^9, 
   3.77971746044772*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Set", "::", "noval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\\*RowBox[{\\\"data\\\"}]\\)\
\[NoBreak] in part assignment does not have an immediate value. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/noval\\\", \
ButtonNote -> \\\"Set::noval\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359680814412*^9, {3.7773601343577023`*^9, 3.7773601530499053`*^9}, {
   3.7773606874898877`*^9, 3.7773607010509357`*^9}, 3.7773608750430155`*^9, 
   3.777808372985437*^9, 3.7778084996016407`*^9, 3.779717228380459*^9, {
   3.7797172659056463`*^9, 3.779717291636117*^9}, 3.7797173714277725`*^9, 
   3.7797174037764874`*^9, 3.7797174605186996`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359680814412*^9, {3.7773601343577023`*^9, 3.7773601530499053`*^9}, {
   3.7773606874898877`*^9, 3.7773607010509357`*^9}, 3.7773608750430155`*^9, 
   3.777808372985437*^9, 3.7778084996016407`*^9, 3.779717228380459*^9, {
   3.7797172659056463`*^9, 3.779717291636117*^9}, 3.7797173714277725`*^9, 
   3.7797174037764874`*^9, 3.7797174606324844`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Set", "::", "noval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\\*RowBox[{\\\"data\\\"}]\\)\
\[NoBreak] in part assignment does not have an immediate value. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/noval\\\", \
ButtonNote -> \\\"Set::noval\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359680814412*^9, {3.7773601343577023`*^9, 3.7773601530499053`*^9}, {
   3.7773606874898877`*^9, 3.7773607010509357`*^9}, 3.7773608750430155`*^9, 
   3.777808372985437*^9, 3.7778084996016407`*^9, 3.779717228380459*^9, {
   3.7797172659056463`*^9, 3.779717291636117*^9}, 3.7797173714277725`*^9, 
   3.7797174037764874`*^9, 3.779717460749999*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Set", "::", "noval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\\*RowBox[{\\\"data\\\"}]\\)\
\[NoBreak] in part assignment does not have an immediate value. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/noval\\\", \
ButtonNote -> \\\"Set::noval\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359680814412*^9, {3.7773601343577023`*^9, 3.7773601530499053`*^9}, {
   3.7773606874898877`*^9, 3.7773607010509357`*^9}, 3.7773608750430155`*^9, 
   3.777808372985437*^9, 3.7778084996016407`*^9, 3.779717228380459*^9, {
   3.7797172659056463`*^9, 3.779717291636117*^9}, 3.7797173714277725`*^9, 
   3.7797174037764874`*^9, 3.7797174608124847`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FittedModel", "::", "constr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The property values \[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", \
\\\"\\\\\\\"ParameterErrors\\\\\\\"\\\", \\\"}\\\"}]\\)\[NoBreak] assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359680814412*^9, {3.7773601343577023`*^9, 3.7773601530499053`*^9}, {
   3.7773606874898877`*^9, 3.7773607010509357`*^9}, 3.7773608750430155`*^9, 
   3.777808372985437*^9, 3.7778084996016407`*^9, 3.779717228380459*^9, {
   3.7797172659056463`*^9, 3.779717291636117*^9}, 3.7797173714277725`*^9, 
   3.7797174037764874`*^9, 3.7797174609218335`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Set", "::", "noval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \[NoBreak]\\!\\(\\*RowBox[{\\\"data\\\"}]\\)\
\[NoBreak] in part assignment does not have an immediate value. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/noval\\\", \
ButtonNote -> \\\"Set::noval\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.777359680814412*^9, {3.7773601343577023`*^9, 3.7773601530499053`*^9}, {
   3.7773606874898877`*^9, 3.7773607010509357`*^9}, 3.7773608750430155`*^9, 
   3.777808372985437*^9, 3.7778084996016407`*^9, 3.779717228380459*^9, {
   3.7797172659056463`*^9, 3.779717291636117*^9}, 3.7797173714277725`*^9, 
   3.7797174037764874`*^9, 3.779717461031194*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 130K", "Section",
 CellChangeTimes->{{3.777267465137635*^9, 3.7772674697390738`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_130K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "3000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "7000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", 
   RowBox[{"0.02", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "130"}], "]"}], "+", "0.02"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "550"}], "/", "130"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"0.02", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "130"}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772684106198664`*^9, 3.777268519837841*^9}, {
   3.7772693326793747`*^9, 3.777269335949153*^9}, 3.7772716488066893`*^9, {
   3.7772728127636404`*^9, 3.7772728149525113`*^9}, 3.777274712853247*^9, 
   3.77727475826799*^9, 3.7773564718752203`*^9, {3.77735672878767*^9, 
   3.7773567288415246`*^9}, {3.777356770564468*^9, 3.7773567761795006`*^9}, {
   3.7773573782036223`*^9, 3.7773573785385284`*^9}, {3.7773601760586524`*^9, 
   3.7773601801186686`*^9}, {3.777808436718906*^9, 3.7778084371262407`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN1QtUzHkbB/DRXVKRQkJLKLX0UiHhK61sEqILtUkliU3o1SDCEoqVLqsl
jKQ3Cl3pRkU3NdXUzHS/zCVqJZUSEl7v+T+d8845czqf832e3/O7zDn95LHf
fpcMi8X69uP7v7/M5whY//85eQoRsfJujS+u5zMOwUrekoiR3cXkMKSvrbq0
0EzAGOE40f9gcac9j3FBBCpE5+7NNiyiPBpjfNIEjgEllF/FSeNbSloN1ZRf
w6n8o7LKpU2Ux6I7Jhou3q2U34JKh5aPmUkdYxEHDit2y+nn0HzdOGza0duj
vriesfsdmI9xijqxWMSYE48bF0qm8zuk1H8Xc+58//anioT6/4Pda12KogXt
1J+IvPHRGyIujPbfA3eqm9uBG6P99xFmGOzw+lsn9SdjNkemn93TRf0P8LS/
INv6wyvqf4hFwesLN/aQRY9g9rlR+m4K9YenwKrjquB28RvGxqmYOlYY9HHi
O8a8VBjy3WbHp71l7J+G+YHqj8ewuxmrp6P3Jx3zA6XklHTE7UzSDFzRy3hT
BqJU78h07uln3JeBQu1A9pA/OTwTLjk1kSsi+2j+Y2THhCkdCiHzHsPK94my
riPV+z/BcZdtNt3c9zQ/Cx8ib/WF2A/S/CzsD5lhmHt+gOZnw9BpnKZ1D9X3
ZSNc/7R74i+Uh+cgWemsY6XaB5qfi8DvaXZm78i8XATIx3R9lR+i+Xl4kSa2
ORtPufpTVCzwu7chjpzyFK9UM4uGv1H9pmdofiJrk//3J5r/DO+VK/R/fk8O
z0d71BqjeznkKQVY5WMem9b7kbFPAUocol/weJRnFWBuqcPUwgnDjJUKwfl1
IyfW5Qtj50L8/kd8UJkbObEQ5eaPao32kT8VItPX7mWHKnndc9RkLjRu+kKO
eY71p+oD53NGGHc9R6pnnseEDPLSF+j6xdjUOukr4/MvIDIOvP58xTfGDS+Q
vf+ckzeLrF+E89fMb0es/86YXYT0Vc9eLXQnlxXB0U9/tb0rq4A5fzHW9tj7
nJ1DuU8xLE0yhG/cKc8qhkKBmkStlKxUgnL75YrPeWTnEri+n782vIycWIJl
NxoiFW6NYfypBDEmScbR18jrSnFFeyBxjRk5phR302/zghrJXaXYFT0sdbCU
Yby0DKeTQxUzZ5LPl0H+obNnnjO5oQwi61BWJ5+s/xL8mgk5nqmyjNkvsdRX
3sX3NuVlLxHdneS5QpXyKeXIzPLoXzWH7FOOg5OzdC5qkrPK8fX3cI/bzmSl
Chw2WtjnpSFP56+AZ37C+/ASOTp/BQrvdT2rHEv+VIHLX8/1xW2k+nVcaAVr
FORGUR7Dxd8J1qG1YxTo/FyYTLZW+KhH9UsrkdV6tbvrMtWfr8S7gCvOPZup
vqESE3Vc/zUioXr9Klxo9BraspFydhXs679u/5xDLquCp+8Rx8lt5CnVCMs+
9qbwCNmnGod2qHoJdpGzquETs2KpApssx4N3iEnQ/cNkIx5YpjOTW1yVGG/l
wfj0z9N+XU0O4sGuTbP+TIAi43ge9opb9RvzKefycOkcn6XdRvkgDwq1Bn5C
I8p1arBgTIedWgTZqgYPjh9jazuOZbyvBjmH5XeZjqc8qgZ7zBrPDY/meTWo
0L+rU5xB7qjBpKaUWWm2yoxVavGQvdrfahnZpBb95joLIhTIrrXYOUtrXqY/
+UwtBpMMVRapkJNrMY/dEHVXRBbUwjZPNaOfM47xSC08NxpsvTqOrMdHr5VP
eBeH9mPLh7ep63hFbcoD+GheXfi9uZkcy8cTnobTk0IVxkV8XJdT/u2fwzTv
LR8rNWM0KhKpfpIAg7IRkYPHxjO2EMCqtLIxwIn6vQT43KtZ5LSSfFGAkH2J
b9+eJGcIcOXY0N40DvW3CGBSrL1TJEO5nBAD2a5f8kfPZySEV+HT3817Ven9
hbg6zA3+awk5SIg2W/Ws3jjqjxei9y/FM37JZK4QBj3eTsffUv2gEH3jx84q
r6D5OnWY2zm8QWfUVnX4vqj6vIaROr1/HdRCVLlzdSmPqsMp5+GpRh60Xl4d
kvtubjTsoryjDt5KdfPkLNXo/euRdnDynowlE+j96+GleSX/XRL1u9Zj/yPb
9f4C2u+ZeiQk2MUnHaA8uR4KfD/WMmVaT1CPikMfdiyOo3ykHn7sxS8vB5H1
GnD5ue5Agg7V2zbAw3ju8u8pND+gASqZuQlaXDpfbAMMor0Fj+TIRQ1YrBha
vc2K/LYBasWWF/P20HqTGlE5Mjg9cznZohHJl75PPvuE5ns1wtR5u69TFc27
2Iidl4QfZ3E06P0bwdkms6BMm/KWRqy3OH3dKJL65ZrAcY/8KX8O5UZN+HPZ
bvbtONrP1iZon1Q4ums75UFNaLE5seT+hIn0/k1I/Dle4LCG6rlNGN4wVmBb
QPWDTQhcLONqcYpynWZEH7uwI2wm9Vs1w9F6JKVcMPr+zeiN/WXu0VY6b1Qz
3jkUbZsQQnleM9a9DlmpNER5RzMU/qmqdD9NuUoLMh4YGy7qHn3/FnSJ134W
FlLu2oLtK6dvqPhIPtOCZWG15do25OQWaJy0rvazJwtaUHqW437tJu13pAXF
uptlp62l+9VrxS2X8Q6yqyi3bYXB6z4uO4LygFZcbnPSSz1AeWwrUsP5ipyr
mvT+rbDL9Tx17SHVv23F6umBDdWd5EltyFI3M1k0et8WbXgWKSzklU2m92/D
pjBfbVNbqr/Yhj9qiufET5tE79+Ga7b1H/5Ipv6WH3lHluWlWLofuXYEslco
P+qk3KgdW6ckiNnatN7WdiRH2WkIhikPaodp3MPK+KV0P/HtaOrb4v/Kntbj
tsM66dsJOQmdb/BHP29dZfjo/auK4BYaHFhVR/WzRJiud8W7NIXWNxMhdkxi
Roc67d9GBPumfJ6GG9lNhH3zEhwumlL9QRF0graovhgih4hwpbXZtv7f5Gsi
bNnsaFUzg87zUARnju4xxTDycxFYCgvzOJvJdSIIe7aN80vSYvxGBI9sxTun
T0xl/E2EmwsPZS6Xp/1MFGPVG70jdi+pfq4Y80cGDm08RPPNxT/+f3mKdn6h
9e3EqNdZu27WabKHGAWJrPDIbrqvw2L0KgaZzHpN80LFGGfQb+ZZSfNuinHD
7X768vPkNDGWzzwwVHeO+kvE4K9WS/20nPbTJMZMKTd23mOa906Mxvz//OPy
lXIZCWRT5IZM8+j3pCVBfqTxg7wWeq+VErzMiw0Y5E9hbC/BVilrw+0q2p+3
BJY73zyuC6HzHpXAxuKi+d4dtN6fEjz6OnvPyhM0P06CUP4EJ48jlJdLoGLw
8IaBuy7jNgmOJ16pmJwyjfF7CQJfN7iqbKdcQQqr9KpX5eHajLWl6PFcItQP
pvtYIEXy/pS0g1n0+7KUIris1qV2Ot2PoxTsqX1r7F/RfnylkNzwszEvpvs4
IcVno73B801ofxFSyLLsZke30/oJUmid4Xp2n6Xz50jhd+HZDFkPOn+VFIuE
TZkWWbR/iRTS/thQ9RlUPySFxuUZXusiZzBW7sDAbwPc31i0nxkdmNKRO1dZ
MKngv8W5eeM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAAq2w4YtoTaT88HcZXYTzFvncjktz7
AEdASDvl5j2bkL8GX920yQBXQCIVT0hFUZ+/zvwCobAAZ0BwvLQguoStv7LL
FRekAHdAvmeuZ2XKu78kMx/SnQCHQDQL8KemGcq/3eajr5oAl0BAesYEl2bY
v7lAZh6ZAKdACUHZrieh5r8YSbXAWGSnQDHJhsW49+a/dlEEYxjIp0AKKiRF
E07nvzJioqeXj6hAFpITcSf657+qg94wlh6qQJwyq/HfT+m/msZWQ5M8rUDV
8UNNHvLrvz6mI7RGvLFAZtELP76K8L8fLBTZQPi3QH4KDyHLdvW/pHchUVfO
wUDo15X/ZhP+v2+LX8tSg8dAENJnJOv/AsB2/kOHIrTNQB4V0H9mGQfAmKZn
gZe90UBc4egZxssKwJN9AOAH39RAL2sael20DsCprWyJ2vHXQFEv1T5+PBHA
mEusksvP2kAQB5MK0PgSwCUZv7ym691A4A7ls0rWFMBHqlIjUGngQLQuN9Ie
kRbAiHSvDX7V4UAQdiwMQEEYwJjWdQihYONAYwh6SXwUGsCV7yUzU9HkQNur
0ZJUxxvAYaA/bvpg5kDYSeA6yZ0dwLr9ws5S6edAF77QEvdqH8AAEjBfOlfp
QHf16gVPjCDAFb4GABfk6kArV3adIHUhwBchx9CCVuxAs3fADU5OIsDoG/Gx
4+ftQHTs9KOGOSPAVXRN7q4670AAAAAAAAAkwFSlCPE=
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAAq2w4YtoTaT88HcZXYTzFvncjktz7
AEdASDvl5j2bkL8GX920yQBXQCIVT0hFUZ+/zvwCobAAZ0BwvLQguoStv7LL
FRekAHdAvmeuZ2XKu78kMx/SnQCHQDQL8KemGcq/3eajr5oAl0BAesYEl2bY
v7lAZh6ZAKdACUHZrieh5r8YSbXAWGSnQDHJhsW49+a/dlEEYxjIp0AKKiRF
E07nvzJioqeXj6hAFpITcSf657+qg94wlh6qQJwyq/HfT+m/msZWQ5M8rUDV
8UNNHvLrvz6mI7RGvLFAZtELP76K8L8fLBTZQPi3QH4KDyHLdvW/pHchUVfO
wUDo15X/ZhP+v2+LX8tSg8dAENJnJOv/AsB2/kOHIrTNQB4V0H9mGQfAmKZn
gZe90UBc4egZxssKwJN9AOAH39RAL2sael20DsCprWyJ2vHXQFEv1T5+PBHA
mEusksvP2kAQB5MK0PgSwCUZv7ym691A4A7ls0rWFMBHqlIjUGngQLQuN9Ie
kRbAiHSvDX7V4UAQdiwMQEEYwJjWdQihYONAYwh6SXwUGsCV7yUzU9HkQNur
0ZJUxxvAYaA/bvpg5kDYSeA6yZ0dwLr9ws5S6edAF77QEvdqH8AAEjBfOlfp
QHf16gVPjCDAFb4GABfk6kArV3adIHUhwBchx9CCVuxAs3fADU5OIsDoG/Gx
4+ftQHTs9KOGOSPAVXRN7q4670AAAAAAAAAkwFSlCPE=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 41200.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777268425110114*^9, {3.777268520478354*^9, 3.7772685272960367`*^9}, 
   3.777268923996356*^9, 3.777269027621803*^9, {3.777269336577193*^9, 
   3.7772693392949924`*^9}, 3.7772711535247536`*^9, 3.7772712979282107`*^9, 
   3.777271599079014*^9, {3.777271641449318*^9, 3.7772716567870703`*^9}, 
   3.777271888397088*^9, 3.777272686133393*^9, 3.7772727440962276`*^9, {
   3.7772728050618463`*^9, 3.7772728153740873`*^9}, 3.777272859517753*^9, 
   3.7772730774606733`*^9, 3.7772731176318665`*^9, 3.777273243342684*^9, 
   3.777356776984138*^9, 3.7773596815393877`*^9, {3.77736017113433*^9, 
   3.777360180703499*^9}, 3.7773608756082153`*^9, 3.7778083753447084`*^9, 
   3.777808500187191*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772674731964817`*^9, 3.777267473462095*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"13", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"13", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"13", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"13", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772683893365045`*^9, 3.7772683922322636`*^9}, {
   3.777269341109046*^9, 3.777269342242135*^9}, {3.777271333247877*^9, 
   3.7772713506367626`*^9}, {3.7772728174939375`*^9, 3.777272818554437*^9}, 
   3.777274828292446*^9, 3.777356514734786*^9, {3.777356757104475*^9, 
   3.777356760934475*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0768051065023385`", "0.18772003570591858`", 
      "5.736228966998796`", "2.775619186840737`*^-8"},
     {"T1", "2745.3985419970845`", "946.7666621203138`", "2.899762583368407`",
       "0.004065264609175966`"},
     {"T2", "7783.0509789280995`", "286.2215090343222`", 
      "27.192404250774867`", "8.869388778613926`*^-77"}
    },
    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.777268427352397*^9, {3.7772685235599823`*^9, 3.7772685288618402`*^9}, 
   3.777268926181422*^9, 3.777269029493891*^9, 3.7772693428198843`*^9, 
   3.777271153760168*^9, 3.7772712981964235`*^9, 3.777271336877412*^9, 
   3.777271599347023*^9, {3.777271641636776*^9, 3.7772716569745255`*^9}, 
   3.777271888585797*^9, 3.777272686242737*^9, 3.7772727443617907`*^9, {
   3.777272805264923*^9, 3.77727281930859*^9}, 3.777272859705209*^9, 
   3.7772730775700216`*^9, 3.777273117772458*^9, 3.7772732435226455`*^9, 
   3.777356778768939*^9, 3.777359681690217*^9, 3.777360182591155*^9, 
   3.7773608758892775`*^9, 3.777808375579073*^9, 3.7778085004537907`*^9}],

Cell[BoxData["0.9870758545232216`"], "Output",
 CellChangeTimes->{
  3.777268427352397*^9, {3.7772685235599823`*^9, 3.7772685288618402`*^9}, 
   3.777268926181422*^9, 3.777269029493891*^9, 3.7772693428198843`*^9, 
   3.777271153760168*^9, 3.7772712981964235`*^9, 3.777271336877412*^9, 
   3.777271599347023*^9, {3.777271641636776*^9, 3.7772716569745255`*^9}, 
   3.777271888585797*^9, 3.777272686242737*^9, 3.7772727443617907`*^9, {
   3.777272805264923*^9, 3.77727281930859*^9}, 3.777272859705209*^9, 
   3.7772730775700216`*^9, 3.777273117772458*^9, 3.7772732435226455`*^9, 
   3.777356778768939*^9, 3.777359681690217*^9, 3.777360182591155*^9, 
   3.7773608758892775`*^9, 3.777808375579073*^9, 3.777808500469413*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0611402920919635`", "0.01147037827465035`", "92.5113598421679`",
       "5.977005839118624`*^-196"},
     {"T1", "3662.731055442886`", "192.21681203989036`", 
      "19.055206548128407`", "1.1208923359146025`*^-50"},
     {"T2", "6925.813212029612`", "239.0420459610194`", "28.973200861738796`",
       "4.985120204090982`*^-82"}
    },
    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.777268427352397*^9, {3.7772685235599823`*^9, 3.7772685288618402`*^9}, 
   3.777268926181422*^9, 3.777269029493891*^9, 3.7772693428198843`*^9, 
   3.777271153760168*^9, 3.7772712981964235`*^9, 3.777271336877412*^9, 
   3.777271599347023*^9, {3.777271641636776*^9, 3.7772716569745255`*^9}, 
   3.777271888585797*^9, 3.777272686242737*^9, 3.7772727443617907`*^9, {
   3.777272805264923*^9, 3.77727281930859*^9}, 3.777272859705209*^9, 
   3.7772730775700216`*^9, 3.777273117772458*^9, 3.7772732435226455`*^9, 
   3.777356778768939*^9, 3.777359681690217*^9, 3.777360182591155*^9, 
   3.7773608758892775`*^9, 3.777808375579073*^9, 3.777808500563141*^9}],

Cell[BoxData["0.9946112033119606`"], "Output",
 CellChangeTimes->{
  3.777268427352397*^9, {3.7772685235599823`*^9, 3.7772685288618402`*^9}, 
   3.777268926181422*^9, 3.777269029493891*^9, 3.7772693428198843`*^9, 
   3.777271153760168*^9, 3.7772712981964235`*^9, 3.777271336877412*^9, 
   3.777271599347023*^9, {3.777271641636776*^9, 3.7772716569745255`*^9}, 
   3.777271888585797*^9, 3.777272686242737*^9, 3.7772727443617907`*^9, {
   3.777272805264923*^9, 3.77727281930859*^9}, 3.777272859705209*^9, 
   3.7772730775700216`*^9, 3.777273117772458*^9, 3.7772732435226455`*^9, 
   3.777356778768939*^9, 3.777359681690217*^9, 3.777360182591155*^9, 
   3.7773608758892775`*^9, 3.777808375579073*^9, 3.777808500563141*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN1QtUzHkbB/DRXVKRQkJLKLX0UiHhK61sEqILtUkliU3o1SDCEoqVLqsl
jKQ3Cl3pRkU3NdXUzHS/zCVqJZUSEl7v+T+d8845czqf832e3/O7zDn95LHf
fpcMi8X69uP7v7/M5whY//85eQoRsfJujS+u5zMOwUrekoiR3cXkMKSvrbq0
0EzAGOE40f9gcac9j3FBBCpE5+7NNiyiPBpjfNIEjgEllF/FSeNbSloN1ZRf
w6n8o7LKpU2Ux6I7Jhou3q2U34JKh5aPmUkdYxEHDit2y+nn0HzdOGza0duj
vriesfsdmI9xijqxWMSYE48bF0qm8zuk1H8Xc+58//anioT6/4Pda12KogXt
1J+IvPHRGyIujPbfA3eqm9uBG6P99xFmGOzw+lsn9SdjNkemn93TRf0P8LS/
INv6wyvqf4hFwesLN/aQRY9g9rlR+m4K9YenwKrjquB28RvGxqmYOlYY9HHi
O8a8VBjy3WbHp71l7J+G+YHqj8ewuxmrp6P3Jx3zA6XklHTE7UzSDFzRy3hT
BqJU78h07uln3JeBQu1A9pA/OTwTLjk1kSsi+2j+Y2THhCkdCiHzHsPK94my
riPV+z/BcZdtNt3c9zQ/Cx8ib/WF2A/S/CzsD5lhmHt+gOZnw9BpnKZ1D9X3
ZSNc/7R74i+Uh+cgWemsY6XaB5qfi8DvaXZm78i8XATIx3R9lR+i+Xl4kSa2
ORtPufpTVCzwu7chjpzyFK9UM4uGv1H9pmdofiJrk//3J5r/DO+VK/R/fk8O
z0d71BqjeznkKQVY5WMem9b7kbFPAUocol/weJRnFWBuqcPUwgnDjJUKwfl1
IyfW5Qtj50L8/kd8UJkbObEQ5eaPao32kT8VItPX7mWHKnndc9RkLjRu+kKO
eY71p+oD53NGGHc9R6pnnseEDPLSF+j6xdjUOukr4/MvIDIOvP58xTfGDS+Q
vf+ckzeLrF+E89fMb0es/86YXYT0Vc9eLXQnlxXB0U9/tb0rq4A5fzHW9tj7
nJ1DuU8xLE0yhG/cKc8qhkKBmkStlKxUgnL75YrPeWTnEri+n782vIycWIJl
NxoiFW6NYfypBDEmScbR18jrSnFFeyBxjRk5phR302/zghrJXaXYFT0sdbCU
Yby0DKeTQxUzZ5LPl0H+obNnnjO5oQwi61BWJ5+s/xL8mgk5nqmyjNkvsdRX
3sX3NuVlLxHdneS5QpXyKeXIzPLoXzWH7FOOg5OzdC5qkrPK8fX3cI/bzmSl
Chw2WtjnpSFP56+AZ37C+/ASOTp/BQrvdT2rHEv+VIHLX8/1xW2k+nVcaAVr
FORGUR7Dxd8J1qG1YxTo/FyYTLZW+KhH9UsrkdV6tbvrMtWfr8S7gCvOPZup
vqESE3Vc/zUioXr9Klxo9BraspFydhXs679u/5xDLquCp+8Rx8lt5CnVCMs+
9qbwCNmnGod2qHoJdpGzquETs2KpApssx4N3iEnQ/cNkIx5YpjOTW1yVGG/l
wfj0z9N+XU0O4sGuTbP+TIAi43ge9opb9RvzKefycOkcn6XdRvkgDwq1Bn5C
I8p1arBgTIedWgTZqgYPjh9jazuOZbyvBjmH5XeZjqc8qgZ7zBrPDY/meTWo
0L+rU5xB7qjBpKaUWWm2yoxVavGQvdrfahnZpBb95joLIhTIrrXYOUtrXqY/
+UwtBpMMVRapkJNrMY/dEHVXRBbUwjZPNaOfM47xSC08NxpsvTqOrMdHr5VP
eBeH9mPLh7ep63hFbcoD+GheXfi9uZkcy8cTnobTk0IVxkV8XJdT/u2fwzTv
LR8rNWM0KhKpfpIAg7IRkYPHxjO2EMCqtLIxwIn6vQT43KtZ5LSSfFGAkH2J
b9+eJGcIcOXY0N40DvW3CGBSrL1TJEO5nBAD2a5f8kfPZySEV+HT3817Ven9
hbg6zA3+awk5SIg2W/Ws3jjqjxei9y/FM37JZK4QBj3eTsffUv2gEH3jx84q
r6D5OnWY2zm8QWfUVnX4vqj6vIaROr1/HdRCVLlzdSmPqsMp5+GpRh60Xl4d
kvtubjTsoryjDt5KdfPkLNXo/euRdnDynowlE+j96+GleSX/XRL1u9Zj/yPb
9f4C2u+ZeiQk2MUnHaA8uR4KfD/WMmVaT1CPikMfdiyOo3ykHn7sxS8vB5H1
GnD5ue5Agg7V2zbAw3ju8u8pND+gASqZuQlaXDpfbAMMor0Fj+TIRQ1YrBha
vc2K/LYBasWWF/P20HqTGlE5Mjg9cznZohHJl75PPvuE5ns1wtR5u69TFc27
2Iidl4QfZ3E06P0bwdkms6BMm/KWRqy3OH3dKJL65ZrAcY/8KX8O5UZN+HPZ
bvbtONrP1iZon1Q4ums75UFNaLE5seT+hIn0/k1I/Dle4LCG6rlNGN4wVmBb
QPWDTQhcLONqcYpynWZEH7uwI2wm9Vs1w9F6JKVcMPr+zeiN/WXu0VY6b1Qz
3jkUbZsQQnleM9a9DlmpNER5RzMU/qmqdD9NuUoLMh4YGy7qHn3/FnSJ134W
FlLu2oLtK6dvqPhIPtOCZWG15do25OQWaJy0rvazJwtaUHqW437tJu13pAXF
uptlp62l+9VrxS2X8Q6yqyi3bYXB6z4uO4LygFZcbnPSSz1AeWwrUsP5ipyr
mvT+rbDL9Tx17SHVv23F6umBDdWd5EltyFI3M1k0et8WbXgWKSzklU2m92/D
pjBfbVNbqr/Yhj9qiufET5tE79+Ga7b1H/5Ipv6WH3lHluWlWLofuXYEslco
P+qk3KgdW6ckiNnatN7WdiRH2WkIhikPaodp3MPK+KV0P/HtaOrb4v/Kntbj
tsM66dsJOQmdb/BHP29dZfjo/auK4BYaHFhVR/WzRJiud8W7NIXWNxMhdkxi
Roc67d9GBPumfJ6GG9lNhH3zEhwumlL9QRF0graovhgih4hwpbXZtv7f5Gsi
bNnsaFUzg87zUARnju4xxTDycxFYCgvzOJvJdSIIe7aN80vSYvxGBI9sxTun
T0xl/E2EmwsPZS6Xp/1MFGPVG70jdi+pfq4Y80cGDm08RPPNxT/+f3mKdn6h
9e3EqNdZu27WabKHGAWJrPDIbrqvw2L0KgaZzHpN80LFGGfQb+ZZSfNuinHD
7X768vPkNDGWzzwwVHeO+kvE4K9WS/20nPbTJMZMKTd23mOa906Mxvz//OPy
lXIZCWRT5IZM8+j3pCVBfqTxg7wWeq+VErzMiw0Y5E9hbC/BVilrw+0q2p+3
BJY73zyuC6HzHpXAxuKi+d4dtN6fEjz6OnvPyhM0P06CUP4EJ48jlJdLoGLw
8IaBuy7jNgmOJ16pmJwyjfF7CQJfN7iqbKdcQQqr9KpX5eHajLWl6PFcItQP
pvtYIEXy/pS0g1n0+7KUIris1qV2Ot2PoxTsqX1r7F/RfnylkNzwszEvpvs4
IcVno73B801ofxFSyLLsZke30/oJUmid4Xp2n6Xz50jhd+HZDFkPOn+VFIuE
TZkWWbR/iRTS/thQ9RlUPySFxuUZXusiZzBW7sDAbwPc31i0nxkdmNKRO1dZ
MKngv8W5eeM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAq2w4YtoTaT8RzFkUYvGyP3cjktz7
AEdAbMTUVKEorT8GX920yQBXQHwGmFmbdqU/zvwCobAAZ0Aw5Nv/lwuMP7LL
FRekAHdAABxWLxQKpL8kMx/SnQCHQDbKW2GdlsG/3eajr5oAl0BRgjLVdFvU
v7IrDWyfuJdA6/6Ow1oM1b+GcHYopHCYQLcniA50vNW/MPpIoa3gmUBSj/NO
UxrXv4IN7pLAwJxAexgOXTnN2b8UGhw7c0ChQL40UgGxEt+/uUBmHpkAp0DG
F67zMJfkvxhJtcBYZKdABtEnCHrs5L92UQRjGMinQPrAzXp7QeW/MmKip5eP
qEDJWmQOq+rlv6qD3jCWHqpApQiNstQ557+axlZDkzytQGDCnHv/y+m/PqYj
tEa8sUBCpKhQUcTuvx8sFNlA+LdAyE03+7IQ9L+kdyFRV87BQHM68ClJC/y/
b4tfy1KDx0CgHEdQIZsBwHb+Q4citM1AXp/sDH5DBcCYpmeBl73RQGmTRcuE
igjAk30A4Aff1ECvEm/QHQAMwKmtbIna8ddAe+3aTYRWD8CYS6ySy8/aQLVQ
hFmANRHAJRm/vKbr3UBp//ruCt4SwEeqUiNQaeBAKUMcbZFoFMCIdK8NftXh
QM1EMuo46hXAmNZ1CKFg40BlYkjj1YsXwJXvJTNT0eRASU8QwPwQGcBhoD9u
+mDmQKSBBYVwthrAuv3CzlLp50AxJn1Z7lMcwAASMF86V+lARm2/Y2fVHcAV
vgYAF+TqQPfYLUVgdx/AFyHH0IJW7EAeumW/tn4gwOgb8bHj5+1Ar7X54AJS
IcBHw4S49XHvQEqDRkBxISLAyhCBd8tw8EB+LS+h8eIiwNeL9JoWOPFAF6Mh
ELu0I8Av6ShImH/xQAAAAAAAACTARi1Ieg==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwB0QEu/iFib1JlAgAAABwAAAACAAAAq2w4YtoTaT9873C+EGKuP3cjktz7
AEdA9xxkZZwxpz8GX920yQBXQI6bxGEByqA/zvwCobAAZ0ByaXIPNLSCP7LL
FRekAHdAK97+dJY3or8kMx/SnQCHQGwV7qsitb6/3eajr5oAl0CpI0llCtbR
v7lAZh6ZAKdAaVlBXNJt4r8fLBTZQPi3QIDwz7DPxfK/pHchUVfOwUAu96N0
gCn7v2+LX8tSg8dAwL8FhS6IAcB2/kOHIrTNQMPq31AgsAXAmKZngZe90UBp
BSA6oXkJwJN9AOAH39RANLu2v72ADcCprWyJ2vHXQNYzS9bNshDAmEusksvP
2kAyvyYtS34SwCUZv7ym691AZHesAc5rFMBHqlIjUGngQPl7eXztNBbAiHSv
DX7V4UCYBZEGUfIXwJjWdQihYONAIlUmMw3TGcCV7yUzU9HkQLu5AKaskRvA
YaA/bvpg5kC0wkXFDXQdwLr9ws5S6edAEdgTBSdMH8AAEjBfOlfpQOPushSt
gSDAFb4GABfk6kDI0QqFXG8hwBchx9CCVuxAUKs6JtJMIsDoG/Gx4+ftQByu
JVtuPCPAZaBGKesv70AAAAAAAAAkwAm617E=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 41200.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777268427352397*^9, {3.7772685235599823`*^9, 3.7772685288618402`*^9}, 
   3.777268926181422*^9, 3.777269029493891*^9, 3.7772693428198843`*^9, 
   3.777271153760168*^9, 3.7772712981964235`*^9, 3.777271336877412*^9, 
   3.777271599347023*^9, {3.777271641636776*^9, 3.7772716569745255`*^9}, 
   3.777271888585797*^9, 3.777272686242737*^9, 3.7772727443617907`*^9, {
   3.777272805264923*^9, 3.77727281930859*^9}, 3.777272859705209*^9, 
   3.7772730775700216`*^9, 3.777273117772458*^9, 3.7772732435226455`*^9, 
   3.777356778768939*^9, 3.777359681690217*^9, 3.777360182591155*^9, 
   3.7773608758892775`*^9, 3.777808375579073*^9, 3.7778085006568713`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 140K", "Section",
 CellChangeTimes->{{3.7772674749773216`*^9, 3.7772674763553524`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_140K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "3000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "6500"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", 
   RowBox[{"0.02", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "140"}], "]"}], "+", "0.02"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "550"}], "/", "140"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"0.02", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "140"}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772684162456408`*^9, 3.7772684317476273`*^9}, {
   3.777268538540193*^9, 3.7772685425720263`*^9}, {3.777269292808004*^9, 
   3.777269320965435*^9}, {3.7772713096571074`*^9, 3.7772713140091443`*^9}, {
   3.777271547014535*^9, 3.7772715517685604`*^9}, {3.7772717061234484`*^9, 
   3.7772717136316137`*^9}, 3.777274716527512*^9, 3.777274761254389*^9, 
   3.7773564751753206`*^9, {3.7773567996941595`*^9, 3.777356810874173*^9}, {
   3.7773573737237687`*^9, 3.7773573741039457`*^9}, {3.7773601911944532`*^9, 
   3.777360196221635*^9}, {3.7778084404434595`*^9, 3.7778084408271847`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0wk41PkfB3BNiQ4tIdJOupPuIpqtvNXaouPfQXTxT0mL2bY2JeckVzaK
Vf9ikwpJKokONXJXEznGMGYMc0QtReVIRP/97+/T8/w9T4/n9bw/x/f7+2ay
64HNbiw1NbWev//97/c/P7x90O3sfz8wtfTJP4Y3dAaKh1RnF5GD4FO9JPSO
Ip5xUgjU/v8n6STYXu4RC369Tnk09KLbvX+0FzCujEHIjYlpWsdqGG+MQ8jK
0g1+li8oP4eyRyyDC2OLKb+A5ncxvaMzn1OegMNn1DjoqqY8EZfLZIFHZA2M
9yehuNfu4osP5LTLSNZt43j71zJ+cwUeGa7HhrqKGZskYx57/uxfF0ipPwV+
v9ffcExQUn8q1Df3toYENVP/NSSsm3HyzDHKTa5jR9oWvYAWBfWn44+n2p2D
/G/9NyB9HHfh0c0W6s/A1DEF5fPSWqn/FvqW9U/AXvL+2+jg77iQov+GsX0m
9K1zbI/sJndlwv3hiid7yqk+7g50lC3fF9t3MDbLguTSGidl8HvGNVnonuvH
ZnEpP3wXK1oPWkwMaGesl40RF3Z/7YumPDsbv9mvNTp5+gPtz0GRxqKkXfs7
aX8OZkytH39gNTnuHj5o977qOvmR9t/HLoFvvpqUXHMfK+tEb8ond9H+BziU
4r6A3dhN+x9CzE9wmO3ZQ/sf4t3b0LXHEym3z0XLoAuGnyd35cKfM+8u7zrV
xz1CVHI/V6v9E+1/jO0p0p7c/l7a/xiObSbv337zYT7iZBv2SnrIenmICfHP
ctj8mfbnwWu2cEvFtD7a/wT9Xwa+ZPL7af8TmHAiXTb3ku3ysWBJnJdRKjk+
HzaKq0aB5eTWfKjN978a7vWFMacAG1ITbMNKBhhHFsDL4sHCEp2vjCUFeJTm
0/EmaJCxaSF4ZvNCHf9N9i3E7Ty4SE5QvaAQbYFvX/ktUsv/x0ZFuDVurX0q
l+xRhJhs2wMB9eTcIjRGlcdbZpBHFmNhxzF/1zDy9mLE3+1dofmZnF6M3WuC
cuMODGHcVwxneZPrvW6yXQnGiHfNZ41nMY4vQdNsEz2zLMpbS+DzH0vrox6U
c0qR4nSp4G4xObIUEmmsgdB5KGNJKTpWr2L55JFNn2Kk4bIdp0zJvk+RsH7V
QVc3suAprK/L2G95w+j+zxBf51+xhUv2eIZAcH/dm0nOfYbPzq7dJ+Tkkc+R
JLJkxZio0/2fwzHbOrf8KeXpz6HB9vd2b6O87zlOm/w1Kuwy2U6A/tN3Xjmw
htP9BZg9Sscm25ncKoDmtaSVa2eSOS8wKU7z9eoEcuQLbHuiWVY1VYPu/wKd
99jPCkPIpmXIWFExaoaI6n3LkJQaXJ/Ep1xQBqu9vGEJ9mSjcuQeUXcz19Kk
+5ejMH3toX8JyLnlMDx9JnHMY/LIl0h9+Z3xi9Xk7S/RdrBFM4Izgu7/EpvC
DfjHmynve4nT5U9HPvei3K4CH4aMH+rSRY6vwLlWn9HZQnJrBewHL71dLCKz
K9EkCX31ACMZ21RiaHK0MGHpKMbcSvj0RkXe9SafrcTDQ9Jqm3FkfiUOLnvV
wztBbq6EVnP/ZI25ZK0qHNoZZ2s1QDavwp4RqvIOQ/KuKpxK4QZ5RpFDq7Bv
1qqY4lFjGN+sgnCO5+NrL0YzFlXh6s8Paov55IEq3Amt1Du9kzy9GgVDPnya
f1yL8fpqDDSc2r2wkeZ7V8MjXD3++2Sqv1iNZMWqRsdaqi+pRoD1EWG9BeXv
qnFz1u6/WO/pPPpC1KVkix9wyMuFGB7qWh8t/46xmxD97rcvSd/QvCghRlgc
squzpPocISTWK9qnD9dmLBPizphF3N3a1K9egxyfTOWqnyifW4NRO8ME23qp
36EGrIeNk059c0ANmoOigme/of6UGlhJw6PP9lB/eQ223k5duLWJ6rtr0Obb
OW/8LKpni9D4gLVvcB3V24jQkemftXwH5VwR7A95DucZ6tD7i7DXQnyubjnl
fBGSOjzN8xTU3yxCjNMtgYUHWasWbt8v/aWmmvrNa2FgYdxe9KcuvX8t7Dnc
rc6rKA+thblguUZGJ/XfrMV3u6qj3h8gi2oRYbw/tmM+eaAW3qW2p8KWUv/0
OqSrqzYtG09eX4dC92VjOw+Opfevw6ZuYYvhJ8ov1uHKiKd6BlvoPCV1yF3c
vvB+JNW/q8Oz/tKvFx3J+mLs1zzhsfct7V8uRrAqbNbhbprnJobW64ntHe+p
PkqMswWTzx49Rs4R4482rZBtP1C9TAxrTrbjuA6yej1mXMmNU57Qo/evxw2z
cX5nWdTvUA8nh23rtYvpvAH1qP+4mW8ZRE6ph83+qEDHn6m+vB5LLQUfCzmU
d9dDVfiDT1M8zWdL8DFUprttN9lGguNn7hl0bBxH7y9B0FBfoWoy5Wcl0M0x
X3LehcyXoPZhem/ZXXKzBDuP5rCmG5O1pOD9rrcwYxzZXIogq/6+OeP06f2l
2OrEmr/Lczy9vxQanj94pITReW9KEaie4GX/iiySoqo9qWh0C80bkGLTuuni
36Np3vQGTMkXTy0ro/uvb4CJfp+t7QTq926As3PIHr37RvT+DfiNLRc0nZ9A
798A44DEI1YlNP9dAypjvjyu+PZ99WXQbtWosOPSvuUymPp1bzYNodxNBu6g
CLcNvr2/DGaXujoL/zSg95dhStnJ41Nf0/eVyTDivNqGn/NonnojHAad6tQv
UD63Ec80nk1zFBvT+zdi5hnRzRupNC+gER910tusEw3p/RuRWZT8o8Z7cnkj
1jf/MW/NQbpPdyPU3i3eci2R5rOboDc24q+BKPr+Nk1ozEiLzVpL9+E2ITFt
Uuk5A9p3tgkty1Yv3TiBmccbLochP/T1AyFzX56RHIL7x2dZrWPqefPk6Dks
iDV3Z+7HWylH7NEdKyu0mO/P2yrH0bfOxV6Pmf08DzkSI4f4hu+k+bFyaHDu
frh+izkvL/fvedMOOHisI7+UYxg/vy0ggep75LjiGbtzm4g8UgE3k8vBmzSY
78GbqMDV5knsm5Np3yIFhihMDdy303l+UmB77tbJVtXUv12B8GZfmVMonf+X
v/OYjNV+M2l/sAIdET1bvxjTfdMVSPBVfoneQ/vyFBi64L7ZdWvKqxUY3Djh
c9UF2t+igHe+Y7YBj+b3KfDonKHZGTM24zFK9GZGz47SpPopSmiaJ96+5ELn
XaLEEI8u3S+WNN9OCf9hgRYuRjTvkBI6+XMCW0D9YUoc+VrSrfCm/JYSlVHg
L+6nvFYJXsaIYOlYun+rEhc3dL6J8pzGeFCJVf1x+4y1qH+sCmz7ZWOM5WSO
CkKf9RMn+tH32aBC1ynrayYRNN9VBZXGAkPuJ+b/F++ICqOPaV8Jz6f6SBXk
UwxPXMsmJ6owqmB6+GVvqs9SIcJ9gg/bh75vqQqtuptGcwIol6hw6aC+zL2U
+Xvmtavg5jCzcs0cmsd6hcC4ZFOHq4b5/wUkq2wi
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAq2w4YtoTaT8WR00omBrDvncjktz7
AEdAgClCB1Eqj78GX920yQBXQCGDkZf2gp2/zvwCobAAZ0CQWTs8wPCrv7LL
FRekAHdAOqnO1A1uur8kMx/SnQCHQJeIxHKb88i/3eajr5oAl0D5h+EK+3fX
v7lAZh6ZAKdAkXhN7sXv5b8fLBTZQPi3QEEz7Q5gEfW/pHchUVfOwUCNUF2G
/s79v2+LX8tSg8dAQZ41fxv9AsB2/kOHIrTNQOzQTr3WRAfAmKZngZe90UCC
enERZSoLwJN9AOAH39RAfIDf9WJQD8CprWyJ2vHXQBbI9dWmqhHAmEusksvP
2kDu6tv4I4YTwCUZv7ym691A7ABNgEKGFcBHqlIjUGngQDA/DpXwYRfAiHSv
DX7V4UDzfvjmlDIZwJjWdQihYONArfbz1k4pG8CV7yUzU9HkQBWIUStk/RzA
YaA/bvpg5kBPHf+G8/cewLr9ws5S6edAqaPob050IMAAEjBfOlfpQCjg7Eav
WyHAFb4GABfk6kCqAP/CdFYiwBchx9CCVuxA2lEp9mJAI8B7h5dOD4btQAAA
AAAAACTAlQPYng==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAq2w4YtoTaT8WR00omBrDvncjktz7
AEdAgClCB1Eqj78GX920yQBXQCGDkZf2gp2/zvwCobAAZ0CQWTs8wPCrv7LL
FRekAHdAOqnO1A1uur8kMx/SnQCHQJeIxHKb88i/3eajr5oAl0D5h+EK+3fX
v7lAZh6ZAKdAkXhN7sXv5b8fLBTZQPi3QEEz7Q5gEfW/pHchUVfOwUCNUF2G
/s79v2+LX8tSg8dAQZ41fxv9AsB2/kOHIrTNQOzQTr3WRAfAmKZngZe90UCC
enERZSoLwJN9AOAH39RAfIDf9WJQD8CprWyJ2vHXQBbI9dWmqhHAmEusksvP
2kDu6tv4I4YTwCUZv7ym691A7ABNgEKGFcBHqlIjUGngQDA/DpXwYRfAiHSv
DX7V4UDzfvjmlDIZwJjWdQihYONArfbz1k4pG8CV7yUzU9HkQBWIUStk/RzA
YaA/bvpg5kBPHf+G8/cewLr9ws5S6edAqaPob050IMAAEjBfOlfpQCjg7Eav
WyHAFb4GABfk6kCqAP/CdFYiwBchx9CCVuxA2lEp9mJAI8B7h5dOD4btQAAA
AAAAACTAlQPYng==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40980.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772684322323947`*^9, 3.7772685431499767`*^9, 3.7772689290893936`*^9, 
   3.777269032949837*^9, {3.7772692931201906`*^9, 3.777269346402334*^9}, 
   3.7772711539788675`*^9, {3.777271298416402*^9, 3.77727131429012*^9}, 
   3.7772715488890057`*^9, 3.7772715995824165`*^9, {3.777271642152277*^9, 
   3.777271657193225*^9}, 3.7772717096459723`*^9, 3.7772718888075256`*^9, 
   3.777272686445812*^9, 3.777272744894998*^9, 3.777272805796093*^9, 
   3.7772728600176353`*^9, 3.7772730778579607`*^9, 3.7772731180692635`*^9, 
   3.777273243756966*^9, 3.777356811274416*^9, 3.7773596822536554`*^9, {
   3.7773601936154532`*^9, 3.7773601966216774`*^9}, 3.777360876232711*^9, 
   3.7778083777581787`*^9, 3.7778085008032026`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772674777848577`*^9, 3.7772674780659733`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777268395092518*^9, 3.777268397500634*^9}, {
   3.777271556566431*^9, 3.777271556785145*^9}, {3.7772716116155653`*^9, 
   3.7772716118500752`*^9}, {3.777271718102667*^9, 3.7772717243907957`*^9}, 
   3.7772748327198544`*^9, 3.7773565185852613`*^9, {3.7773574176136274`*^9, 
   3.7773574205736504`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "0.9012440753470836`", "0.18572459059527674`", 
      "4.852583454126638`", "2.1799565146579543`*^-6"},
     {"T1", "2700.6032072581197`", "1262.1276873827817`", 
      "2.1397226558417723`", "0.03337366969036089`"},
     {"T2", "6822.498168209027`", "250.17381777657278`", 
      "27.271031912308743`", "6.709404871713236`*^-76"}
    },
    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.7772685454619226`*^9, 3.777268930747245*^9, 3.777269035077256*^9, 
   3.777269348590742*^9, 3.777271154181952*^9, {3.7772712986518335`*^9, 
   3.7772713164458275`*^9}, 3.7772715574253817`*^9, 3.7772715998011065`*^9, {
   3.7772716423553543`*^9, 3.777271657460188*^9}, 3.777271719039759*^9, 
   3.777271889027378*^9, 3.7772726866658144`*^9, 3.777272745130392*^9, 
   3.777272806030368*^9, 3.77727286031444*^9, 3.7772730781246877`*^9, 
   3.777273118301192*^9, 3.7772732440393925`*^9, 3.7773568132587423`*^9, 
   3.7773596824045563`*^9, 3.777360198626209*^9, 3.7773608765015917`*^9, 
   3.7778083780080743`*^9, 3.777808501055357*^9}],

Cell[BoxData["0.9827800983251188`"], "Output",
 CellChangeTimes->{
  3.7772685454619226`*^9, 3.777268930747245*^9, 3.777269035077256*^9, 
   3.777269348590742*^9, 3.777271154181952*^9, {3.7772712986518335`*^9, 
   3.7772713164458275`*^9}, 3.7772715574253817`*^9, 3.7772715998011065`*^9, {
   3.7772716423553543`*^9, 3.777271657460188*^9}, 3.777271719039759*^9, 
   3.777271889027378*^9, 3.7772726866658144`*^9, 3.777272745130392*^9, 
   3.777272806030368*^9, 3.77727286031444*^9, 3.7772730781246877`*^9, 
   3.777273118301192*^9, 3.7772732440393925`*^9, 3.7773568132587423`*^9, 
   3.7773596824045563`*^9, 3.777360198626209*^9, 3.7773608765015917`*^9, 
   3.7778083780080743`*^9, 3.777808501055357*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0613891647980154`", "0.00907255112958938`", 
      "116.98905298382742`", "1.1904434356711655`*^-215"},
     {"T1", "4617.741012762091`", "751.9331144478309`", "6.14115926541292`", 
      "3.318342636325489`*^-9"},
     {"T2", "4626.427147324536`", "747.8374429695905`", "6.186407475070303`", 
      "2.591580519890546`*^-9"}
    },
    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.7772685454619226`*^9, 3.777268930747245*^9, 3.777269035077256*^9, 
   3.777269348590742*^9, 3.777271154181952*^9, {3.7772712986518335`*^9, 
   3.7772713164458275`*^9}, 3.7772715574253817`*^9, 3.7772715998011065`*^9, {
   3.7772716423553543`*^9, 3.777271657460188*^9}, 3.777271719039759*^9, 
   3.777271889027378*^9, 3.7772726866658144`*^9, 3.777272745130392*^9, 
   3.777272806030368*^9, 3.77727286031444*^9, 3.7772730781246877`*^9, 
   3.777273118301192*^9, 3.7772732440393925`*^9, 3.7773568132587423`*^9, 
   3.7773596824045563`*^9, 3.777360198626209*^9, 3.7773608765015917`*^9, 
   3.7778083780080743`*^9, 3.7778085011803274`*^9}],

Cell[BoxData["0.9920045479296319`"], "Output",
 CellChangeTimes->{
  3.7772685454619226`*^9, 3.777268930747245*^9, 3.777269035077256*^9, 
   3.777269348590742*^9, 3.777271154181952*^9, {3.7772712986518335`*^9, 
   3.7772713164458275`*^9}, 3.7772715574253817`*^9, 3.7772715998011065`*^9, {
   3.7772716423553543`*^9, 3.777271657460188*^9}, 3.777271719039759*^9, 
   3.777271889027378*^9, 3.7772726866658144`*^9, 3.777272745130392*^9, 
   3.777272806030368*^9, 3.77727286031444*^9, 3.7772730781246877`*^9, 
   3.777273118301192*^9, 3.7772732440393925`*^9, 3.7773568132587423`*^9, 
   3.7773596824045563`*^9, 3.777360198626209*^9, 3.7773608765015917`*^9, 
   3.7778083780080743`*^9, 3.7778085011959486`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0wk41PkfB3BNiQ4tIdJOupPuIpqtvNXaouPfQXTxT0mL2bY2JeckVzaK
Vf9ikwpJKokONXJXEznGMGYMc0QtReVIRP/97+/T8/w9T4/n9bw/x/f7+2ay
64HNbiw1NbWev//97/c/P7x90O3sfz8wtfTJP4Y3dAaKh1RnF5GD4FO9JPSO
Ip5xUgjU/v8n6STYXu4RC369Tnk09KLbvX+0FzCujEHIjYlpWsdqGG+MQ8jK
0g1+li8oP4eyRyyDC2OLKb+A5ncxvaMzn1OegMNn1DjoqqY8EZfLZIFHZA2M
9yehuNfu4osP5LTLSNZt43j71zJ+cwUeGa7HhrqKGZskYx57/uxfF0ipPwV+
v9ffcExQUn8q1Df3toYENVP/NSSsm3HyzDHKTa5jR9oWvYAWBfWn44+n2p2D
/G/9NyB9HHfh0c0W6s/A1DEF5fPSWqn/FvqW9U/AXvL+2+jg77iQov+GsX0m
9K1zbI/sJndlwv3hiid7yqk+7g50lC3fF9t3MDbLguTSGidl8HvGNVnonuvH
ZnEpP3wXK1oPWkwMaGesl40RF3Z/7YumPDsbv9mvNTp5+gPtz0GRxqKkXfs7
aX8OZkytH39gNTnuHj5o977qOvmR9t/HLoFvvpqUXHMfK+tEb8ond9H+BziU
4r6A3dhN+x9CzE9wmO3ZQ/sf4t3b0LXHEym3z0XLoAuGnyd35cKfM+8u7zrV
xz1CVHI/V6v9E+1/jO0p0p7c/l7a/xiObSbv337zYT7iZBv2SnrIenmICfHP
ctj8mfbnwWu2cEvFtD7a/wT9Xwa+ZPL7af8TmHAiXTb3ku3ysWBJnJdRKjk+
HzaKq0aB5eTWfKjN978a7vWFMacAG1ITbMNKBhhHFsDL4sHCEp2vjCUFeJTm
0/EmaJCxaSF4ZvNCHf9N9i3E7Ty4SE5QvaAQbYFvX/ktUsv/x0ZFuDVurX0q
l+xRhJhs2wMB9eTcIjRGlcdbZpBHFmNhxzF/1zDy9mLE3+1dofmZnF6M3WuC
cuMODGHcVwxneZPrvW6yXQnGiHfNZ41nMY4vQdNsEz2zLMpbS+DzH0vrox6U
c0qR4nSp4G4xObIUEmmsgdB5KGNJKTpWr2L55JFNn2Kk4bIdp0zJvk+RsH7V
QVc3suAprK/L2G95w+j+zxBf51+xhUv2eIZAcH/dm0nOfYbPzq7dJ+Tkkc+R
JLJkxZio0/2fwzHbOrf8KeXpz6HB9vd2b6O87zlOm/w1Kuwy2U6A/tN3Xjmw
htP9BZg9Sscm25ncKoDmtaSVa2eSOS8wKU7z9eoEcuQLbHuiWVY1VYPu/wKd
99jPCkPIpmXIWFExaoaI6n3LkJQaXJ/Ep1xQBqu9vGEJ9mSjcuQeUXcz19Kk
+5ejMH3toX8JyLnlMDx9JnHMY/LIl0h9+Z3xi9Xk7S/RdrBFM4Izgu7/EpvC
DfjHmynve4nT5U9HPvei3K4CH4aMH+rSRY6vwLlWn9HZQnJrBewHL71dLCKz
K9EkCX31ACMZ21RiaHK0MGHpKMbcSvj0RkXe9SafrcTDQ9Jqm3FkfiUOLnvV
wztBbq6EVnP/ZI25ZK0qHNoZZ2s1QDavwp4RqvIOQ/KuKpxK4QZ5RpFDq7Bv
1qqY4lFjGN+sgnCO5+NrL0YzFlXh6s8Paov55IEq3Amt1Du9kzy9GgVDPnya
f1yL8fpqDDSc2r2wkeZ7V8MjXD3++2Sqv1iNZMWqRsdaqi+pRoD1EWG9BeXv
qnFz1u6/WO/pPPpC1KVkix9wyMuFGB7qWh8t/46xmxD97rcvSd/QvCghRlgc
squzpPocISTWK9qnD9dmLBPizphF3N3a1K9egxyfTOWqnyifW4NRO8ME23qp
36EGrIeNk059c0ANmoOigme/of6UGlhJw6PP9lB/eQ223k5duLWJ6rtr0Obb
OW/8LKpni9D4gLVvcB3V24jQkemftXwH5VwR7A95DucZ6tD7i7DXQnyubjnl
fBGSOjzN8xTU3yxCjNMtgYUHWasWbt8v/aWmmvrNa2FgYdxe9KcuvX8t7Dnc
rc6rKA+thblguUZGJ/XfrMV3u6qj3h8gi2oRYbw/tmM+eaAW3qW2p8KWUv/0
OqSrqzYtG09eX4dC92VjOw+Opfevw6ZuYYvhJ8ov1uHKiKd6BlvoPCV1yF3c
vvB+JNW/q8Oz/tKvFx3J+mLs1zzhsfct7V8uRrAqbNbhbprnJobW64ntHe+p
PkqMswWTzx49Rs4R4482rZBtP1C9TAxrTrbjuA6yej1mXMmNU57Qo/evxw2z
cX5nWdTvUA8nh23rtYvpvAH1qP+4mW8ZRE6ph83+qEDHn6m+vB5LLQUfCzmU
d9dDVfiDT1M8zWdL8DFUprttN9lGguNn7hl0bBxH7y9B0FBfoWoy5Wcl0M0x
X3LehcyXoPZhem/ZXXKzBDuP5rCmG5O1pOD9rrcwYxzZXIogq/6+OeP06f2l
2OrEmr/Lczy9vxQanj94pITReW9KEaie4GX/iiySoqo9qWh0C80bkGLTuuni
36Np3vQGTMkXTy0ro/uvb4CJfp+t7QTq926As3PIHr37RvT+DfiNLRc0nZ9A
798A44DEI1YlNP9dAypjvjyu+PZ99WXQbtWosOPSvuUymPp1bzYNodxNBu6g
CLcNvr2/DGaXujoL/zSg95dhStnJ41Nf0/eVyTDivNqGn/NonnojHAad6tQv
UD63Ec80nk1zFBvT+zdi5hnRzRupNC+gER910tusEw3p/RuRWZT8o8Z7cnkj
1jf/MW/NQbpPdyPU3i3eci2R5rOboDc24q+BKPr+Nk1ozEiLzVpL9+E2ITFt
Uuk5A9p3tgkty1Yv3TiBmccbLochP/T1AyFzX56RHIL7x2dZrWPqefPk6Dks
iDV3Z+7HWylH7NEdKyu0mO/P2yrH0bfOxV6Pmf08DzkSI4f4hu+k+bFyaHDu
frh+izkvL/fvedMOOHisI7+UYxg/vy0ggep75LjiGbtzm4g8UgE3k8vBmzSY
78GbqMDV5knsm5Np3yIFhihMDdy303l+UmB77tbJVtXUv12B8GZfmVMonf+X
v/OYjNV+M2l/sAIdET1bvxjTfdMVSPBVfoneQ/vyFBi64L7ZdWvKqxUY3Djh
c9UF2t+igHe+Y7YBj+b3KfDonKHZGTM24zFK9GZGz47SpPopSmiaJ96+5ELn
XaLEEI8u3S+WNN9OCf9hgRYuRjTvkBI6+XMCW0D9YUoc+VrSrfCm/JYSlVHg
L+6nvFYJXsaIYOlYun+rEhc3dL6J8pzGeFCJVf1x+4y1qH+sCmz7ZWOM5WSO
CkKf9RMn+tH32aBC1ynrayYRNN9VBZXGAkPuJ+b/F++ICqOPaV8Jz6f6SBXk
UwxPXMsmJ6owqmB6+GVvqs9SIcJ9gg/bh75vqQqtuptGcwIol6hw6aC+zL2U
+Xvmtavg5jCzcs0cmsd6hcC4ZFOHq4b5/wUkq2wi
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAAq2w4YtoTaT/phsNSip66v3cjktz7
AEdAh7qPkGXEvr8GX920yQBXQNQiuKuiOsG/zvwCobAAZ0BoS9svKbbEv7LL
FRekAHdALqhFF9BDy78kMx/SnQCHQDMPcp0IxNO/3eajr5oAl0Bc9siWjiPf
v7lAZh6ZAKdA/b8cjJzz6b8YSbXAWGSnQApaR6VuSeq/dlEEYxjIp0BA/JVY
BZ/qvzJioqeXj6hAxByRz4NJ67+qg94wlh6qQEdfIZzam+y/msZWQ5M8rUCM
TLYYjTbvvz6mI7RGvLFAWV3/bRck8r8fLBTZQPi3QLfZBvDT+va/pHchUVfO
wUClWke6vGv/v2+LX8tSg8dA/IDP0yKZA8B2/kOHIrTNQIvQtlv4owfAmKZn
gZe90UBhIEsr7k4LwJN9AOAH39RAXEkwuN41D8CprWyJ2vHXQCg66DgzfxHA
mEusksvP2kA1w46VXD8TwCUZv7ym691ATPDtusIiFcBHqlIjUGngQFhmM8dp
5BbAiHSvDX7V4UDRHCfGLpwYwJjWdQihYONAVV7zFol4GsCV7yUzU9HkQGrn
fPV9NBzAYaA/bvpg5kAsGrsFVRUewLr9ws5S6edA6z13JhrtH8AAEjBfOlfp
QOkzqddz0iDAFb4GABfk6kCIx0w45MAhwBchx9CCVuxACGkFP2afIsDoG/Gx
4+ftQHGpBMZ3kCPAOUc4N5yh7kAAAAAAAAAkwOcUDmc=
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAq2w4YtoTaT8ig8L724CuP3cjktz7
AEdARwag54Hnpz8GX920yQBXQHHFc5c32qE/zvwCobAAZ0Di0ukma+SIP7LL
FRekAHdAmtAqGNomoL8kMx/SnQCHQJ/wF7ZGob2/3eajr5oAl0BtG8wXCc7R
v7lAZh6ZAKdAzqGqCJjy4r8fLBTZQPi3QLDnqnhO/PO/pHchUVfOwUDH9Cc1
2Ib9v2+LX8tSg8dA5IIFnGNYA8B2/kOHIrTNQDGe+W/rOAjAmKZngZe90UDw
5ukpLrEMwJN9AOAH39RAXuxtlaS5EMCprWyJ2vHXQGHW1F3MBBPAmEusksvP
2kCAJI0ZIR8VwCUZv7ym691A4EQ7ZgBdF8BHqlIjUGngQEfb6a/XaxnAiHSv
DX7V4UBObMlyYGgbwJjWdQihYONA40j5IL6HHcCV7yUzU9HkQOHRo3Jeex/A
YaA/bvpg5kCGYuwEvsggwLr9ws5S6edAaWrIjHDLIcAAEjBfOlfpQOyY3ALc
uSLAFb4GABfk6kDRE1DXnrkjwH2Op3ZqUutAAAAAAAAAJMBb0tJq
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 40980.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772685454619226`*^9, 3.777268930747245*^9, 3.777269035077256*^9, 
   3.777269348590742*^9, 3.777271154181952*^9, {3.7772712986518335`*^9, 
   3.7772713164458275`*^9}, 3.7772715574253817`*^9, 3.7772715998011065`*^9, {
   3.7772716423553543`*^9, 3.777271657460188*^9}, 3.777271719039759*^9, 
   3.777271889027378*^9, 3.7772726866658144`*^9, 3.777272745130392*^9, 
   3.777272806030368*^9, 3.77727286031444*^9, 3.7772730781246877`*^9, 
   3.777273118301192*^9, 3.7772732440393925`*^9, 3.7773568132587423`*^9, 
   3.7773596824045563`*^9, 3.777360198626209*^9, 3.7773608765015917`*^9, 
   3.7778083780080743`*^9, 3.7778085012606883`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 150K", "Section",
 CellChangeTimes->{{3.777267480839238*^9, 3.7772674824618254`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_150K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1.2"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "3000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "5000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", 
   RowBox[{"0.02", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "150"}], "]"}], "+", "0.02"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "550"}], "/", "150"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"0.02", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "150"}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.77726842245885*^9, {3.7772685599477453`*^9, 3.777268564042954*^9}, 
   3.7772692860123405`*^9, {3.7772693573404245`*^9, 3.7772693600373983`*^9}, {
   3.77727161571175*^9, 3.777271619670019*^9}, 3.7772747203547125`*^9, 
   3.7772747648149185`*^9, 3.777356478461877*^9, {3.777356831284567*^9, 
   3.7773568672344975`*^9}, {3.777357367893755*^9, 3.7773573686635246`*^9}, {
   3.777359778158181*^9, 3.7773598398405046`*^9}, {3.777808444468252*^9, 
   3.7778084448275423`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0Xk41GsbB3CyRKHVVihpOWm1VNq/vVRKnEpll4rq5JxUSpsQjaRS0SIk
haQFZcgeImSbMcwYTL1KliOnyNIp9L7vee4/3rmuueb6XN/vfT/P7ze6uz22
uo2QkpL6+7/f//3+8/Hbi9h9bz6/yix6+Y/zj0C0WH1R0soSZpxC89X0lsaE
FOZ/+4HrFX020jGcOeYcpP7/4xKE7Oo2f+MR11k+9RJmKY8R2e7OovkrODD9
u9N362pm3jWYOGROSq0QMKeEYc1oc5MjxlXMV2+As0lgl/m2mPnQLThu4yUk
upE338bEzMqE1TvLmBdGYq6tn2GgF5957B1EtdZ5ei4SM3+JxtcU//U+Hm+Z
98eg1KPn+T1VCbPtPRiJL2iZ8OqZze9DSdPu6OVhEbNJLBwit31N7qR9v8Sh
KixAeV5IE7NGPObHj5b6IveeWeEBFtxPN9Oy+sj87QGKopNUv+8jtydgVucw
d9DyA3P9QzyoPqn8roLmSxNh9Xm3sGsX5RmP4D9wW8curoX54WOY7tVLX76w
jTn8CTi7y/VPlP7JHPQUv3KuLNR72sl8IgmGWisjzAso358MmWuKF8JyO5jn
pqDZvD/SKZMcl4LbHYvye+RpXusZHO3sD+oldjFffwaLwCU54VpfmJWegzPS
cYO/Tzfzuef4kpzi0q5AHnwOWx+VK/IzqX80FZb+jzsvqpE/pSLQxOncrFqy
Kxd1scafXBNpvomLOX23s0/IfmXeloZcsxY//rJe5oo0GCg1dUpbkc3S4X5I
QeIRT/2cdEhP8Si6kUo2fgE5tzj1gkfkJy9wOviohfkHmp+egUXL24JjK/qY
ozIgWBwS/C1ggHliJh5bj+vIjCRfykTsRMMzKgP9zLJZSJbbaCLfT/bOwuix
9aq73pF7syCMKE7+xYbmf8/Gepm9Df6h35hbsuEi8Bhq1/zO7JgDmV+W9FWs
J9fm4PncDUu1a/5m3pSLiCcHDv/IIRflgnPd5P2RUdRfkYd6Xblu1WwyNw+u
7qHtNRk/6P9/idsTjtfObRik//8l+kf5t6odHmJWyYfytI3WAz6Ub8xH6a7p
ZZIBcmA+unsGXe+4UL8wH1u2ZbfqV5KH8zEQkR62fv8w87ICGIUNyYa4/2T2
KsCZpJjgGefIzwsQ3TbSV7uN/Nd/+8mbZ7YJyfqF0FN1UpcYSOX/472FsP4x
MP/mafL9QlhBW/eAH/ltIaJLPHQc5kszT3qFKcsbQ1NnkXe8wiHBodSEaHLo
K7hM0btfdZ5c9QpGfbG/97uTRxVBntN+LWGIvK4Io8BRqewi+xfhD0uNstnZ
I5jzirAiKU9zNJf8vQjWF7ZMftFGXlyMlaHrVkxVk2E+UoyAD/KKV+3JScUo
b7X6eGsR+c9iDMmfjkjTIM98DeGT0aN8u8i7X+O3mwneJx1lmaNfgxP591g7
L3LDa6w68WCxfjxZrQTt3j6Tz2uTt5bAp+uUhccrckgJNmWbjXkbR35TguPd
nsVKVnLM8qXgDXK6pO6R/1WK21P3LnA2k2f2KcW2xIBJH/IozyrFTycxvzeX
3F+K9wpzYjyjyIZlWM3pkztwg+YPlmGsevLLBmnyozLY++a3vHxKbi1D3wvL
nO6TI5mnvUFK86XrKsfIzm9ga5rf7+dMjngDI/ugk1KlNC98A0/lHX2ZTZSP
L4fF1Oz6g28VmK3K0XVMvr3FjhxcjuO/T8511yG/LsewZtrHTGdF5hEVCF+n
pdhcMYp5VQWMOmRjDKyof6oCzfZ7bIyyyekVWDP1jla6MbmnAjGpX/QSz5Pn
V8LRcP79TR/IByohHHjy7PNvdN6DSkQf2GJiqUrnva9EoVbLTt+blOtUITE2
zoo7hWxfhTMmq324mdS/WYVl208o/4wYzVxTBd85dn8dTCarVCPL66zMs37q
b6yGV8uf8d3N5MBqNC/j3q22UGIurEawYZrH1pE0P1yNeScvdD2pJWvzYFsy
u3CymPrLeVgT/71d6yvldjy4p9gFjrhO+XEeVurYmHvnUX6Dhyh1XpFyFeWp
PKyL653gu1OZmc/DjEOPg/aep/5nHsbtd+94HUV9ZT5+WtvpG9eT5/BROLnA
paGdvIGPysFe7bTlY5j38ZHmq9x/tZT2c/jYGXTbcM88ciwfcWNWrS3IpPkC
PnitQyPUpo1lfsfHNM9VEpXTtG+IjydjFKdbc2l+cg0Wxu3b6DKH+ktrELo2
9o9LIurb1CDdZe2g89hxzMdqEBVl0SJTTXlYDaqlq5bY2NP8sxqM42t2erio
MFfXwOLob+o5+pR31WBjq5rzgnLaN1oAJ9PV3xyv077ZAlycBi89U8rXC+DW
19fM+0a5mwALQ8422b4jBwiw9Fqts1IT+Z4A+aquHXlcOu+lABoyM5/a1JEl
AmhztPb6tVP/hwCpXKVqCy86T7MWEzdNnveOS/mSWgR+jf88fIPmt9fi3oOO
YuU71PeshUjj48hzjuRrtZh9Jexn+Axyci26nrVKjm8nV9bCdHrljleKE5g7
a8F7alEsnUi5Yh1E444dNrChfFYd4nTmKqx0GM+8tg5d6UUuvT7U31OHTL+L
U2RTKT9bByOjBS3eGXTfu3UYeHFX1+Ai7cutg6uLJEc8jdxYh9VKOsuvh1D/
7zqcXjgrLn8W7VMXQnqZguGWGsoXCTHgudRSfiWdby1EluuC6M0J5MNCHBnc
mjLzBPmKENz7JpzXLyYyPxXih1LKzZAYNeZyIWxWmXGHzVSZO4ToErbY22rQ
+SNFEE/6mDf4iM6fIcKQrFaAgzftNxVhqVf2Zc0s6u8SYYybiln8ZzrPV4Q7
lZy/9HfT894RwfvrjmKtJHK2CA+astPOX6W+WITavKlJs6XJAyIkZYkyLPzI
qvXgKvVVHw2l+xrV45xGbu/LHtq3pR5uuiHlgY8p96iHV7goLalXnflyPdzX
5qpkrKL7Pq5HV87uSXMsqV9WD0U/LZ9ps8lt9Yg7cvhqZQs9r5wY5pcELrIS
yvXECFEdF9who8G8RoynfIN1IQW0f6cYBkFO304Zk8+I4WkduXW8A73/SDE2
rw+5q3eL7p8pRouJykc7N7JIDCvu5sU7RpH7xJgfYN6VNYH2TWjAl6DL4/bI
U27QgLyHcqfGi+i+vzZAM1zcrSBF+R8N+NSjWTTkTvMXG1AaabqtLJbeb2ID
zsQc7G1zoucraUCd200D87U0L9OII7qquuE6NK/biIOuF6WjQslOjeD0BHzy
s6H3fboRK+afacwqpfxFI/LsF+eeD9ZirmvE4LMr8hka9D6+NuLkPHm7FR/o
vAVNsFFcrePgQX3LJvRcDHnon092b8KIDXeaWt/Q/S80wW22YVhCLp2X0ART
x8MibiLlxU2wH+xWitCexCwtgX9vZ+yhLeQpEqzdrq9lt4me30GCzbvkFuxs
JJ+UwLk8WrfqsCbzLQlyP8XXtKhRniaBx6OQ+l+D6HyBBKr3jb3fZdD+bgnG
yH63m1Cllv8f/CBhWQ==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAq2w4YtoTaT/4Z4tCPlbHP3cjktz7
AEdAsAt3x/hexT8GX920yQBXQK81dKp0lcM/zvwCobAAZ0CGykhyLyvAP7LL
FRekAHdAE/imVpdJsz8kMx/SnQCHQKImdSD1g5a/3eajr5oAl0Cz7nzkMpLK
v7lAZh6ZAKdAdd+2rDPz4b8fLBTZQPi3QGnxUoI0nPS/pHchUVfOwUBYVPTe
lxH/v2+LX8tSg8dAr6GBlLaMBMB2/kOHIrTNQNoFChgm6AnAmKZngZe90UAk
w1gX29kOwJN9AOAH39RAfSArlBgVEsCprWyJ2vHXQKbl5GaHrBTAmEusksvP
2kBXmTepYxQXwCUZv7ym691A6ibK26StGcBHqlIjUGngQLzm4ynFGBzAiHSv
DX7V4UCp9xT6QHYewJjWdQihYONAGtfDgu6CIMCV7yUzU9HkQHQ85H5HtCHA
YaA/bvpg5kAmkgfvyv4iwEDS+OJfmOdAAAAAAAAAJMDDw7hk
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAq2w4YtoTaT/4Z4tCPlbHP3cjktz7
AEdAsAt3x/hexT8GX920yQBXQK81dKp0lcM/zvwCobAAZ0CGykhyLyvAP7LL
FRekAHdAE/imVpdJsz8kMx/SnQCHQKImdSD1g5a/3eajr5oAl0Cz7nzkMpLK
v7lAZh6ZAKdAdd+2rDPz4b8fLBTZQPi3QGnxUoI0nPS/pHchUVfOwUBYVPTe
lxH/v2+LX8tSg8dAr6GBlLaMBMB2/kOHIrTNQNoFChgm6AnAmKZngZe90UAk
w1gX29kOwJN9AOAH39RAfSArlBgVEsCprWyJ2vHXQKbl5GaHrBTAmEusksvP
2kBXmTepYxQXwCUZv7ym691A6ibK26StGcBHqlIjUGngQLzm4ynFGBzAiHSv
DX7V4UCp9xT6QHYewJjWdQihYONAGtfDgu6CIMCV7yUzU9HkQHQ85H5HtCHA
YaA/bvpg5kAmkgfvyv4iwEDS+OJfmOdAAAAAAAAAJMDDw7hk
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 30660.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777268564784639*^9, 3.7772689341740093`*^9, 3.777269037901859*^9, 
   3.7772692863585763`*^9, 3.777269361021545*^9, 3.777271154525614*^9, 
   3.7772712989330177`*^9, {3.77727160019164*^9, 3.777271657741371*^9}, 
   3.777271889292941*^9, 3.7772726869648743`*^9, 3.777272745395955*^9, 
   3.777272806300448*^9, 3.777272860611245*^9, 3.7772730783935924`*^9, 
   3.777273118551132*^9, 3.777273244389081*^9, {3.7773568424942617`*^9, 
   3.7773568682440886`*^9}, 3.777359682988202*^9, {3.777359778469412*^9, 
   3.777359840142626*^9}, 3.777360219645516*^9, 3.7773608770271945`*^9, 
   3.777808380154283*^9, 3.7778085014481435`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772674837905097`*^9, 3.777267486524317*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777268399298819*^9, 3.7772684019100666`*^9}, 
   3.7772748379946184`*^9, 3.777356522215475*^9, {3.7773574262934985`*^9, 
   3.7773574304236784`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.1142442058878255`", "0.1441121600035208`", "7.731784783883631`",
       "2.711064569428862`*^-13"},
     {"T1", "2274.0053369183047`", "782.7850605573734`", "2.905018825089897`",
       "0.004006630656034892`"},
     {"T2", "5522.194953641146`", "125.55147229006703`", "43.9835141150952`", 
      "1.49007386307827`*^-118"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.7772685667097487`*^9, 3.7772689361937375`*^9, 3.777269039855894*^9, 
   3.7772693629777675`*^9, 3.7772711546505847`*^9, 3.7772712990736094`*^9, {
   3.7772716004572015`*^9, 3.777271657913207*^9}, 3.777271889480397*^9, 
   3.777272687122135*^9, 3.777272745552168*^9, 3.777272806462186*^9, 
   3.7772728607779083`*^9, 3.7772730785810485`*^9, 3.777273118722968*^9, 
   3.7772732447004113`*^9, {3.7773568490792065`*^9, 3.7773568703388944`*^9}, 
   3.7773596831365547`*^9, {3.777359783121933*^9, 3.777359842428892*^9}, 
   3.77736022161998*^9, 3.7773608772537813`*^9, 3.777808380374093*^9, 
   3.777808501653439*^9}],

Cell[BoxData["0.9906786939821337`"], "Output",
 CellChangeTimes->{
  3.7772685667097487`*^9, 3.7772689361937375`*^9, 3.777269039855894*^9, 
   3.7772693629777675`*^9, 3.7772711546505847`*^9, 3.7772712990736094`*^9, {
   3.7772716004572015`*^9, 3.777271657913207*^9}, 3.777271889480397*^9, 
   3.777272687122135*^9, 3.777272745552168*^9, 3.777272806462186*^9, 
   3.7772728607779083`*^9, 3.7772730785810485`*^9, 3.777273118722968*^9, 
   3.7772732447004113`*^9, {3.7773568490792065`*^9, 3.7773568703388944`*^9}, 
   3.7773596831365547`*^9, {3.777359783121933*^9, 3.777359842428892*^9}, 
   3.77736022161998*^9, 3.7773608772537813`*^9, 3.777808380374093*^9, 
   3.777808501653439*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0754754116909333`", "0.008881802778607763`", 
      "121.08751325589733`", "2.906583181730543`*^-221"},
     {"T1", "4308.97072240353`", "925.2843394398673`", "4.656915219176865`", 
      "5.255797014256321`*^-6"},
     {"T2", "4411.444714417689`", "707.4747287097526`", "6.235480272861479`", 
      "1.9471918492617785`*^-9"}
    },
    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.7772685667097487`*^9, 3.7772689361937375`*^9, 3.777269039855894*^9, 
   3.7772693629777675`*^9, 3.7772711546505847`*^9, 3.7772712990736094`*^9, {
   3.7772716004572015`*^9, 3.777271657913207*^9}, 3.777271889480397*^9, 
   3.777272687122135*^9, 3.777272745552168*^9, 3.777272806462186*^9, 
   3.7772728607779083`*^9, 3.7772730785810485`*^9, 3.777273118722968*^9, 
   3.7772732447004113`*^9, {3.7773568490792065`*^9, 3.7773568703388944`*^9}, 
   3.7773596831365547`*^9, {3.777359783121933*^9, 3.777359842428892*^9}, 
   3.77736022161998*^9, 3.7773608772537813`*^9, 3.777808380374093*^9, 
   3.777808501794031*^9}],

Cell[BoxData["0.9923467068443462`"], "Output",
 CellChangeTimes->{
  3.7772685667097487`*^9, 3.7772689361937375`*^9, 3.777269039855894*^9, 
   3.7772693629777675`*^9, 3.7772711546505847`*^9, 3.7772712990736094`*^9, {
   3.7772716004572015`*^9, 3.777271657913207*^9}, 3.777271889480397*^9, 
   3.777272687122135*^9, 3.777272745552168*^9, 3.777272806462186*^9, 
   3.7772728607779083`*^9, 3.7772730785810485`*^9, 3.777273118722968*^9, 
   3.7772732447004113`*^9, {3.7773568490792065`*^9, 3.7773568703388944`*^9}, 
   3.7773596831365547`*^9, {3.777359783121933*^9, 3.777359842428892*^9}, 
   3.77736022161998*^9, 3.7773608772537813`*^9, 3.777808380374093*^9, 
   3.777808501794031*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0Xk41GsbB3CyRKHVVihpOWm1VNq/vVRKnEpll4rq5JxUSpsQjaRS0SIk
haQFZcgeImSbMcwYTL1KliOnyNIp9L7vee4/3rmuueb6XN/vfT/P7ze6uz22
uo2QkpL6+7/f//3+8/Hbi9h9bz6/yix6+Y/zj0C0WH1R0soSZpxC89X0lsaE
FOZ/+4HrFX020jGcOeYcpP7/4xKE7Oo2f+MR11k+9RJmKY8R2e7OovkrODD9
u9N362pm3jWYOGROSq0QMKeEYc1oc5MjxlXMV2+As0lgl/m2mPnQLThu4yUk
upE338bEzMqE1TvLmBdGYq6tn2GgF5957B1EtdZ5ei4SM3+JxtcU//U+Hm+Z
98eg1KPn+T1VCbPtPRiJL2iZ8OqZze9DSdPu6OVhEbNJLBwit31N7qR9v8Sh
KixAeV5IE7NGPObHj5b6IveeWeEBFtxPN9Oy+sj87QGKopNUv+8jtydgVucw
d9DyA3P9QzyoPqn8roLmSxNh9Xm3sGsX5RmP4D9wW8curoX54WOY7tVLX76w
jTn8CTi7y/VPlP7JHPQUv3KuLNR72sl8IgmGWisjzAso358MmWuKF8JyO5jn
pqDZvD/SKZMcl4LbHYvye+RpXusZHO3sD+oldjFffwaLwCU54VpfmJWegzPS
cYO/Tzfzuef4kpzi0q5AHnwOWx+VK/IzqX80FZb+jzsvqpE/pSLQxOncrFqy
Kxd1scafXBNpvomLOX23s0/IfmXeloZcsxY//rJe5oo0GCg1dUpbkc3S4X5I
QeIRT/2cdEhP8Si6kUo2fgE5tzj1gkfkJy9wOviohfkHmp+egUXL24JjK/qY
ozIgWBwS/C1ggHliJh5bj+vIjCRfykTsRMMzKgP9zLJZSJbbaCLfT/bOwuix
9aq73pF7syCMKE7+xYbmf8/Gepm9Df6h35hbsuEi8Bhq1/zO7JgDmV+W9FWs
J9fm4PncDUu1a/5m3pSLiCcHDv/IIRflgnPd5P2RUdRfkYd6Xblu1WwyNw+u
7qHtNRk/6P9/idsTjtfObRik//8l+kf5t6odHmJWyYfytI3WAz6Ub8xH6a7p
ZZIBcmA+unsGXe+4UL8wH1u2ZbfqV5KH8zEQkR62fv8w87ICGIUNyYa4/2T2
KsCZpJjgGefIzwsQ3TbSV7uN/Nd/+8mbZ7YJyfqF0FN1UpcYSOX/472FsP4x
MP/mafL9QlhBW/eAH/ltIaJLPHQc5kszT3qFKcsbQ1NnkXe8wiHBodSEaHLo
K7hM0btfdZ5c9QpGfbG/97uTRxVBntN+LWGIvK4Io8BRqewi+xfhD0uNstnZ
I5jzirAiKU9zNJf8vQjWF7ZMftFGXlyMlaHrVkxVk2E+UoyAD/KKV+3JScUo
b7X6eGsR+c9iDMmfjkjTIM98DeGT0aN8u8i7X+O3mwneJx1lmaNfgxP591g7
L3LDa6w68WCxfjxZrQTt3j6Tz2uTt5bAp+uUhccrckgJNmWbjXkbR35TguPd
nsVKVnLM8qXgDXK6pO6R/1WK21P3LnA2k2f2KcW2xIBJH/IozyrFTycxvzeX
3F+K9wpzYjyjyIZlWM3pkztwg+YPlmGsevLLBmnyozLY++a3vHxKbi1D3wvL
nO6TI5mnvUFK86XrKsfIzm9ga5rf7+dMjngDI/ugk1KlNC98A0/lHX2ZTZSP
L4fF1Oz6g28VmK3K0XVMvr3FjhxcjuO/T8511yG/LsewZtrHTGdF5hEVCF+n
pdhcMYp5VQWMOmRjDKyof6oCzfZ7bIyyyekVWDP1jla6MbmnAjGpX/QSz5Pn
V8LRcP79TR/IByohHHjy7PNvdN6DSkQf2GJiqUrnva9EoVbLTt+blOtUITE2
zoo7hWxfhTMmq324mdS/WYVl208o/4wYzVxTBd85dn8dTCarVCPL66zMs37q
b6yGV8uf8d3N5MBqNC/j3q22UGIurEawYZrH1pE0P1yNeScvdD2pJWvzYFsy
u3CymPrLeVgT/71d6yvldjy4p9gFjrhO+XEeVurYmHvnUX6Dhyh1XpFyFeWp
PKyL653gu1OZmc/DjEOPg/aep/5nHsbtd+94HUV9ZT5+WtvpG9eT5/BROLnA
paGdvIGPysFe7bTlY5j38ZHmq9x/tZT2c/jYGXTbcM88ciwfcWNWrS3IpPkC
PnitQyPUpo1lfsfHNM9VEpXTtG+IjydjFKdbc2l+cg0Wxu3b6DKH+ktrELo2
9o9LIurb1CDdZe2g89hxzMdqEBVl0SJTTXlYDaqlq5bY2NP8sxqM42t2erio
MFfXwOLob+o5+pR31WBjq5rzgnLaN1oAJ9PV3xyv077ZAlycBi89U8rXC+DW
19fM+0a5mwALQ8422b4jBwiw9Fqts1IT+Z4A+aquHXlcOu+lABoyM5/a1JEl
AmhztPb6tVP/hwCpXKVqCy86T7MWEzdNnveOS/mSWgR+jf88fIPmt9fi3oOO
YuU71PeshUjj48hzjuRrtZh9Jexn+Axyci26nrVKjm8nV9bCdHrljleKE5g7
a8F7alEsnUi5Yh1E444dNrChfFYd4nTmKqx0GM+8tg5d6UUuvT7U31OHTL+L
U2RTKT9bByOjBS3eGXTfu3UYeHFX1+Ai7cutg6uLJEc8jdxYh9VKOsuvh1D/
7zqcXjgrLn8W7VMXQnqZguGWGsoXCTHgudRSfiWdby1EluuC6M0J5MNCHBnc
mjLzBPmKENz7JpzXLyYyPxXih1LKzZAYNeZyIWxWmXGHzVSZO4ToErbY22rQ
+SNFEE/6mDf4iM6fIcKQrFaAgzftNxVhqVf2Zc0s6u8SYYybiln8ZzrPV4Q7
lZy/9HfT894RwfvrjmKtJHK2CA+astPOX6W+WITavKlJs6XJAyIkZYkyLPzI
qvXgKvVVHw2l+xrV45xGbu/LHtq3pR5uuiHlgY8p96iHV7goLalXnflyPdzX
5qpkrKL7Pq5HV87uSXMsqV9WD0U/LZ9ps8lt9Yg7cvhqZQs9r5wY5pcELrIS
yvXECFEdF9who8G8RoynfIN1IQW0f6cYBkFO304Zk8+I4WkduXW8A73/SDE2
rw+5q3eL7p8pRouJykc7N7JIDCvu5sU7RpH7xJgfYN6VNYH2TWjAl6DL4/bI
U27QgLyHcqfGi+i+vzZAM1zcrSBF+R8N+NSjWTTkTvMXG1AaabqtLJbeb2ID
zsQc7G1zoucraUCd200D87U0L9OII7qquuE6NK/biIOuF6WjQslOjeD0BHzy
s6H3fboRK+afacwqpfxFI/LsF+eeD9ZirmvE4LMr8hka9D6+NuLkPHm7FR/o
vAVNsFFcrePgQX3LJvRcDHnon092b8KIDXeaWt/Q/S80wW22YVhCLp2X0ART
x8MibiLlxU2wH+xWitCexCwtgX9vZ+yhLeQpEqzdrq9lt4me30GCzbvkFuxs
JJ+UwLk8WrfqsCbzLQlyP8XXtKhRniaBx6OQ+l+D6HyBBKr3jb3fZdD+bgnG
yH63m1Cllv8f/CBhWQ==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBAQL+/SFib1JlAgAAAB8AAAACAAAAq2w4YtoTaT/PEc4rRrG7P3cjktz7
AEdAjrPJXSkntz8GX920yQBXQKAO5vfqFLM/zvwCobAAZ0AqlmgP3L2mP7LL
FRekAHdAChU/E+SEib8kMx/SnQCHQKiVVYPWiL6/3eajr5oAl0A4UweeYlrU
v7lAZh6ZAKdA4G2iHSHY5b8YSbXAWGSnQBBXz3DoOOa/dlEEYxjIp0CNhbKJ
cpnmvzJioqeXj6hAjFEIu9JZ57+qg94wlh6qQMjezY7b1+i/msZWQ5M8rUAF
K8VEwcnrvz6mI7RGvLFA1NBtSsrE8L8fLBTZQPi3QBjIQMTxSva/pHchUVfO
wUAig8Fm/AYAwG+LX8tSg8dAnztHXGmYBMB2/kOHIrTNQJaW87X6aAnAmKZn
gZe90UDiejgzKdMNwJN9AOAH39RAr/28cmVHEcCprWyJ2vHXQNbTLqkSlhPA
mEusksvP2kCkYte8xboVwCUZv7ym691AsqjUNi4MGMBHqlIjUGngQDB9QQ4y
NRrAiHSvDX7V4UBOThvZvFIcwJjWdQihYONAggz02d6dHsCV7yUzU9HkQM5y
0qS3YCDAYaA/bvpg5kCuvwd4YokhwLr9ws5S6edAKDASeI6sIsAAEjBfOlfp
QLxYChYQvCPA16G5v8uy6UAAAAAAAAAkwMiA9pM=
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAq2w4YtoTaT9dWa0/eaCyP3cjktz7
AEdASROyVqB7rj8GX920yQBXQEPXoB02OKg/zvwCobAAZ0CPEtQlNESYP7LL
FRekAHdA8p5ahU1wlr8kMx/SnQCHQOkCq7SCM7y/3eajr5oAl0D9vSeEqf7R
v7lAZh6ZAKdAcVowHRqe478fLBTZQPi3QH+ZuDjY+fS/pHchUVfOwUBmDEIc
BCf/v2+LX8tSg8dA6/2wQwR6BMB2/kOHIrTNQHhMEFJdtAnAmKZngZe90UCD
pbcGNIEOwJN9AOAH39RA6TyoxZ7PEcCprWyJ2vHXQHf/D77GRxTAmEusksvP
2kDk6z7Nv4sWwCUZv7ym691AVWeiEjL2GMBHqlIjUGngQPS0q1/vLRvAiHSv
DX7V4UAB4VEZxVEdwJjWdQihYONAIek8qsqaH8CV7yUzU9HkQC0A7HQn2iDA
YaA/bvpg5kC6TLp+NPkhwLr9ws5S6edAg4tLLP0OI8ApW+zEIULpQAAAAAAA
ACTAdj+7uw==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 30660.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772685667097487`*^9, 3.7772689361937375`*^9, 3.777269039855894*^9, 
   3.7772693629777675`*^9, 3.7772711546505847`*^9, 3.7772712990736094`*^9, {
   3.7772716004572015`*^9, 3.777271657913207*^9}, 3.777271889480397*^9, 
   3.777272687122135*^9, 3.777272745552168*^9, 3.777272806462186*^9, 
   3.7772728607779083`*^9, 3.7772730785810485`*^9, 3.777273118722968*^9, 
   3.7772732447004113`*^9, {3.7773568490792065`*^9, 3.7773568703388944`*^9}, 
   3.7773596831365547`*^9, {3.777359783121933*^9, 3.777359842428892*^9}, 
   3.77736022161998*^9, 3.7773608772537813`*^9, 3.777808380374093*^9, 
   3.777808501872138*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 160K", "Section",
 CellChangeTimes->{{3.7772690483968477`*^9, 3.777269052871066*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_160K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", "2350"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "4500"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", 
   RowBox[{"0.02", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "160"}], "]"}], "+", "0.02"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "550"}], "/", "160"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"0.02", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "160"}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772692286803694`*^9, 3.777269277704521*^9}, {
   3.777269368958429*^9, 3.7772693712745447`*^9}, {3.77727173135246*^9, 
   3.7772717452291946`*^9}, 3.777274724342102*^9, 3.777274768390833*^9, 
   3.7773564820621433`*^9, {3.7773568913144445`*^9, 3.777356921244019*^9}, {
   3.777357362713604*^9, 3.7773573631237698`*^9}, {3.7773597553970404`*^9, 
   3.777359758057062*^9}, {3.777359951497115*^9, 3.7773599594495234`*^9}, {
   3.7778084483941*^9, 3.777808448771649*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0ws0FGgbB3CFlHTZXCrdqNVKiTZKuv0TFemitCFqs9XKiQqJCYtYIpUi
H5kuci+SSKzLYNyGYcxVYquNkigVKdevb+dxzjfnzHF+5/887/M+8x6ajif3
HB0vIyMz+v37v7//fvyPIfHDkL69kF3yr3EaXkYHC1ss68hnsTkwcN5vloVk
XzBsHzkaWqVIfTsAMv//uR2EN1N3v9Pb70d5CIyL5pT8qJ9ADsP9tg+Hjbyz
yRFQNvr4pdq/QurdV+Dt8uD1uLxGqXmRmLB/2U4fWSHl19BwynwkRm0sj8Lc
ipzWMkcO5dfxrXt2QNm5SspjMMvrpiLDsobyWMz6uVA+JJBLeRz2PrFqlrxr
oDwec5lfbT23iilnIuyW+rD3h2eU30LF/k6z6fbPpXa6jfAZkufqMn9LrX0H
aw6M+7xxTbPUHXfw8vFy7rRxT6VOTUBM+rSclvNkp7sYvLc+z+Qm1Wsn4qb6
hvbnOa3Un4hDZW72JQUvqT8JJTdijp8tbqP+ZAgUH1yu2vGa+lOQ3LOwyYnV
Tv0pCNcRBnXNofrUVPhO8ntwcPor6k/D5uqDJUuLydrpcJlQcQkmVN+Rjg1D
5x5mnafzUu8hs6Ap5t7jDuq/D5uU6PNanzupPwOro3kpJzK7qD8DckNDpouE
76g/E+GyQ70u88lOD/A1serV76uoXyULy78pX5VMI3tkIUFdz+GwItULs9Bn
Ojr59tj5Bg9xpGBRfvHa91JHPcTTTRrmCWd7pO59iHflbQs4gR+lts6GQpG3
+9sx52TDSXnmVl1dssojDCUHXdpRSP0ej8A36DnyJIUsfITjjR+WDQ6SDXJQ
KTnb1nKM+qNyUJOjx7517RPNz4GhYYi/kUUvzc/FjAVW9RFa5JxcPO3ZppZ7
jKzyGCZp9Z9afiJ7PEZQtUbwP88/0/zHmHTSZ1LaB7JBHs63hVjH76L6qDxo
yrxJ8TPuo/l5SC0qCZ/4jWz9BFd/uPGy7/MXmv8EQTjn5SHop/n5uOr6s4FG
FdkjH6EnTiZd9ycL83HlbNaDBE+yQQGGI5vnTnEmRxWgXGF8j7EZubcAfYwA
h58sv9L8v5DqcOCule03mv8XDrbytyRrDdD8QqiF382fYThI8wtx0YKrWRBF
ubAQLL9gr8Q/yAZFCHdPNW72JkcVYUFkj2l9NLm3CDaLekfaVeg862KYKiol
KWqQc4rhO9tpyeVeskoJJi4Lf6Z1YZjml8C3z2d5ewZZWILBL/2rYkfJ6ixc
Ds3WWPCKbMFC3BZb6/gbZAYLLkFL6lcXkNNZWKd8S+FI4IjUzSx4XZpudSib
rFgK355ko5yXo1Ibl2Ikb+/OYh0Z1r92LgXjOtOzhkmOK0VQ6yOtweNkTiku
Lgs++MPscVIPlKKPKfJZNZNynTLYeNZzRn3JdmUofiqWdXUgh5XBvdK6u4tH
LiiDiw37fc5yOq+zDJuG/nYqaCerl+N993bnVQ/IFuVQ8HSvdlQfLzWjHCqb
Pa4w/yCnl6O3KLd7uIPqm8thl8lfJKtNuSIbq29ZW4Z5kI3ZmM223CB0Ijuz
kfhl2cotseQ4NhxMZ8Xt7iZz2FB4mtWxOk2W9mfjzus180fmknUqkDxwRDfI
n2xXgYC1eU8OuJHDKrBUxvKQoqoc7V+Blq9tcgoFlHdWwHVjvqNZAlm9Eoz2
ltvm78kWlShmvgpzlVA/oxJOWi/aPlqT0ythY+o/vJgnT/tXYuBu4caA+2TF
KozwX/Rm25ONq7D5un5W+k6ycxUuN1zQrHUlx1XhpPlk2aAtZE4VGD92etUy
yQNVSPhx7QlPLlmnGioZqipKaRNo/2rs5s18s9FBgfavRqm+h7vKK6ovqAbH
P/aNz12q76xGGXNSqkwcWb0GmzTdve95kS1q8I+lb/yvmWRGDe7U6jNiDOn8
9Br0fTFiv/UhN9cgfttFJZMrZEUODgdGJhfqTaT9OTiqYT888U+yMwfXC2P0
fSzJcRyMrsfogfnUz+HgdMqiTVlV5AEOtun947byLNXr1MJAvvat7lqyXS0s
UnedKXUa278Wc5aGss7fp7ygFppdLqGGDyfR/rXYr97mN9mOrF4H5ZUr3Zu/
Ub1FHX4Ts07N3Es5ow6CiI0cI1Vyeh06QmwM+3nk5jocNuSnmHMVaX8uDpn0
j0yLo9yYi8TbXmt1myh35sJHje2tYk6O++6LZ145BlA9hwvlGuGTpszJtD8X
svEtsR1DZJ16JLxC07rp1G9Xj3l1rs51vZSH1SPOMny98wnKC+phcvtq//kq
cmc9tnGFM6yvUb16A17PuWrGiKbcogFy0a1q61wpZzTg/Qvt7iAbytMbMGC4
5veA+0q0fwOqbJ/2l/GoXp6HSHu5wGO15Hk8qOkNDBbrTZHakAc/28+OvYvJ
O3h4NkPQfKWf6o/ywIkKeC4Lyn15eDyr2y3CgeZF8/Dwdfau3RHkDB4+/LIz
KGUcuYKHRUr1FxaGk1t52Ns5RasmaarUfTwk7p9dcnzyNKmnNIJ1atNX7l2y
ViPW72cm5WbS/PWNkIvp+G3mUTpvXyPC32RFnD5HdmnEHHvHayJX6g9uRNl9
s0kXY2kesxEv+o2iL0ykPLcR2/UWXGbfo37u9/6A+mvFXdOlbm/E6M74vgl3
qH64EWyNn8wVx3JVPkKyfN3v+pF1+VBzCdt3yJHqzfj4xTWkb7Ez2YGPpZ8u
LYwQ0X3O8GFqdkmUtYIcwUc/sypngZjqk/h4Ht9eqzD2exXxcUPsI5ofRfNE
fNRFLFwp+pPczYdboP6ZmTJkeQG21LywcxnzPAGYiTpNr81+oPcXoPLIzasf
1SnfIUDL8e3MNH/KjwqQucVg9rZOyn0FSHoRvMTqHd0nWgD5/K2S1xZ03wwB
5FL0fZarKdP7CzBV5v1E52OUtwqA0PbtNyLJfQJwWlbMjzgyg95fiFBe/9DA
ybH3F8LoAmt1YhndZ70QnSNrvgQ0kvcJsWLrHI8N7jTPRQjtFYs+zI8kBwth
MvXchsv5dH+mEAu77DvfnSPnCjEwFHQqjUH1XCEKdWvY/V10n3YhzPfIHFg2
hTwsxLPL5wp3DarQ+4tQ537opoIV3UdXhNh1tk6CZKo3EyHva/ma+ZNU6f1F
WJxxVTdjkOrPiOAZasldlkn1ESKkXdFk72in+yWJEOL3jGc8TPcrEmFd7FbH
WadpvkgE7TX6iXsSqb9bBIdCORPlCjpfXoxHU5Z07Ryl/nliGKydbWLaM/b+
YrixJEnGG6h/hxhv2l+4pUSQj4qR7RX+aM80sq8YN6213ZSC6X7RYiRe6TTY
PErnZYjR9y7sMK7T/SrEuOioMV7zPM1v/T5fuO3m+rH/pz4xUjVigmeUUj5F
giV2giEtP/q9tCTYNOifslGO5u+ToOnXBcYPu+h8FwlmBv+hVO479t4SfPyP
pbxtGuVMCVRcipaG9lCeK4G3Z5D8hQw1em8J3k77ZXW8O9W3SxB8XMnQWnXs
vSVQtWmNHNg59t5NCPxkxSrOV2X9F/iYmLM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAq2w4YtoTaT+ciUOSi8TDvncjktz7
AEdArhzPZk/Okb8GX920yQBXQNOiLtM1BKG/zvwCobAAZ0CO6KqmjEOwv7LL
FRekAHdArExG9TMTv78kMx/SnQCHQEHQbShJps2/3eajr5oAl0CSZP61Ujnc
v7lAZh6ZAKdAK9KC+bHG6r8fLBTZQPi3QKDkvtowSfq/pHchUVfOwUDBUPZC
7OQCwG+LX8tSg8dAgwj6fwVkCMB2/kOHIrTNQJrwwPL7QA7AmKZngZe90UC3
aTkLDdURwJN9AOAH39RA/ZUYadi9FMCprWyJ2vHXQLTTmSIIlRfAmEusksvP
2kDTNwgWzjgawCUZv7ym691AfRkMypYTHcBHqlIjUGngQFuiPlpvvB/AiHSv
DX7V4UA7gXIHdishwJjWdQihYONAjcnZrZ+UIsCV7yUzU9HkQL6aP4RT5SPA
s3PyiI3u5EAAAAAAAAAkwJnMsOY=
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAq2w4YtoTaT+ciUOSi8TDvncjktz7
AEdArhzPZk/Okb8GX920yQBXQNOiLtM1BKG/zvwCobAAZ0CO6KqmjEOwv7LL
FRekAHdArExG9TMTv78kMx/SnQCHQEHQbShJps2/3eajr5oAl0CSZP61Ujnc
v7lAZh6ZAKdAK9KC+bHG6r8fLBTZQPi3QKDkvtowSfq/pHchUVfOwUDBUPZC
7OQCwG+LX8tSg8dAgwj6fwVkCMB2/kOHIrTNQJrwwPL7QA7AmKZngZe90UC3
aTkLDdURwJN9AOAH39RA/ZUYadi9FMCprWyJ2vHXQLTTmSIIlRfAmEusksvP
2kDTNwgWzjgawCUZv7ym691AfRkMypYTHcBHqlIjUGngQFuiPlpvvB/AiHSv
DX7V4UA7gXIHdishwJjWdQihYONAjcnZrZ+UIsCV7yUzU9HkQL6aP4RT5SPA
s3PyiI3u5EAAAAAAAAAkwJnMsOY=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 24660.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777269246100759*^9, 3.7772692780336947`*^9}, 
   3.777269372853511*^9, 3.7772711549017677`*^9, 3.777271299339172*^9, 
   3.777271600738385*^9, {3.7772716430480576`*^9, 3.777271658147526*^9}, 
   3.7772717321608696`*^9, 3.7772718896990957`*^9, 3.7772726873564577`*^9, 
   3.7772727458021097`*^9, 3.7772728067043123`*^9, 3.777272860980982*^9, 
   3.777273078817918*^9, 3.777273118974089*^9, 3.777273244950345*^9, {
   3.777356902594381*^9, 3.7773569230840387`*^9}, 3.777359683621297*^9, {
   3.777359755697914*^9, 3.7773597583885813`*^9}, 3.7773599598343353`*^9, 
   3.7773608776798515`*^9, 3.777808382563526*^9, 3.77780850202433*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777269054296075*^9, 3.777269055870139*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}], " ", ",", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", "3"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", "5"}], "]"}], "]"}], " ", "=", " ", 
   StyleBox[" ",
    FontWeight->"Plain"], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777269191657827*^9, 3.7772691942176075`*^9}, {
   3.777271735101921*^9, 3.777271741803897*^9}, 3.7772748419651375`*^9, 
   3.777356526426021*^9, {3.777357044793986*^9, 3.7773570695959387`*^9}, {
   3.777357435863435*^9, 3.7773574395337276`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"NonlinearModelFit", "::", "sszero"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The step size in the search has become less than the \
tolerance prescribed by the PrecisionGoal option, but the gradient is larger \
than the tolerance specified by the AccuracyGoal option. There is a \
possibility that the method has stalled at a point that is not a local \
minimum. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\
\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/NonlinearModelFit\\\", \
ButtonNote -> \\\"NonlinearModelFit::sszero\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.7773608779280396`*^9, 3.7778083826416583`*^9, 
  3.777808502259709*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.1419341658081774`", "0.07180199809626535`", 
      "15.903932983552629`", "6.576942455582568`*^-40"},
     {"T1", "2219.122597619037`", "432.4437844516129`", "5.131586294928792`", 
      "5.741978986820138`*^-7"},
     {"T2", "5115.192084374892`", "55.193425560187094`", "92.67756136637867`",
       "1.0556599323288522`*^-196"}
    },
    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.7772692557719955`*^9, 3.7772693753396077`*^9, 3.77727115515278*^9, 
   3.777271299573492*^9, 3.7772716009883265`*^9, {3.777271643297996*^9, 
   3.7772716584142003`*^9}, 3.7772717356440964`*^9, 3.777271889917794*^9, 
   3.777272687559535*^9, 3.777272746020807*^9, 3.777272806969875*^9, 
   3.777272861246545*^9, 3.7772730790533085`*^9, 3.777273119225272*^9, 
   3.7772732452471495`*^9, {3.7773569099242487`*^9, 3.7773569249588037`*^9}, {
   3.777357046738924*^9, 3.7773570713467293`*^9}, 3.7773596837826796`*^9, 
   3.777359760663413*^9, 3.7773599624068127`*^9, 3.777360877957795*^9, 
   3.7778083827822275`*^9, 3.7778085022909513`*^9}],

Cell[BoxData["0.9964113830720668`"], "Output",
 CellChangeTimes->{
  3.7772692557719955`*^9, 3.7772693753396077`*^9, 3.77727115515278*^9, 
   3.777271299573492*^9, 3.7772716009883265`*^9, {3.777271643297996*^9, 
   3.7772716584142003`*^9}, 3.7772717356440964`*^9, 3.777271889917794*^9, 
   3.777272687559535*^9, 3.777272746020807*^9, 3.777272806969875*^9, 
   3.777272861246545*^9, 3.7772730790533085`*^9, 3.777273119225272*^9, 
   3.7772732452471495`*^9, {3.7773569099242487`*^9, 3.7773569249588037`*^9}, {
   3.777357046738924*^9, 3.7773570713467293`*^9}, 3.7773596837826796`*^9, 
   3.777359760663413*^9, 3.7773599624068127`*^9, 3.777360877957795*^9, 
   3.7778083827822275`*^9, 3.7778085022909513`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.069034912082374`", "0.008666560931904663`", 
      "123.35168707426725`", "2.5905338272779436`*^-227"},
     {"T1", "4216.726465632347`", "1117.7627306658121`", "3.772470086849819`",
       "0.00020151828398710448`"},
     {"T2", "4341.8048046591975`", "678.2370366460975`", "6.401603820000088`",
       "7.460641955744051`*^-10"}
    },
    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.7772692557719955`*^9, 3.7772693753396077`*^9, 3.77727115515278*^9, 
   3.777271299573492*^9, 3.7772716009883265`*^9, {3.777271643297996*^9, 
   3.7772716584142003`*^9}, 3.7772717356440964`*^9, 3.777271889917794*^9, 
   3.777272687559535*^9, 3.777272746020807*^9, 3.777272806969875*^9, 
   3.777272861246545*^9, 3.7772730790533085`*^9, 3.777273119225272*^9, 
   3.7772732452471495`*^9, {3.7773569099242487`*^9, 3.7773569249588037`*^9}, {
   3.777357046738924*^9, 3.7773570713467293`*^9}, 3.7773596837826796`*^9, 
   3.777359760663413*^9, 3.7773599624068127`*^9, 3.777360877957795*^9, 
   3.7778083827822275`*^9, 3.777808502431543*^9}],

Cell[BoxData["0.9924623058472484`"], "Output",
 CellChangeTimes->{
  3.7772692557719955`*^9, 3.7772693753396077`*^9, 3.77727115515278*^9, 
   3.777271299573492*^9, 3.7772716009883265`*^9, {3.777271643297996*^9, 
   3.7772716584142003`*^9}, 3.7772717356440964`*^9, 3.777271889917794*^9, 
   3.777272687559535*^9, 3.777272746020807*^9, 3.777272806969875*^9, 
   3.777272861246545*^9, 3.7772730790533085`*^9, 3.777273119225272*^9, 
   3.7772732452471495`*^9, {3.7773569099242487`*^9, 3.7773569249588037`*^9}, {
   3.777357046738924*^9, 3.7773570713467293`*^9}, 3.7773596837826796`*^9, 
   3.777359760663413*^9, 3.7773599624068127`*^9, 3.777360877957795*^9, 
   3.7778083827822275`*^9, 3.777808502431543*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0ws0FGgbB3CFlHTZXCrdqNVKiTZKuv0TFemitCFqs9XKiQqJCYtYIpUi
H5kuci+SSKzLYNyGYcxVYquNkigVKdevb+dxzjfnzHF+5/887/M+8x6ajif3
HB0vIyMz+v37v7//fvyPIfHDkL69kF3yr3EaXkYHC1ss68hnsTkwcN5vloVk
XzBsHzkaWqVIfTsAMv//uR2EN1N3v9Pb70d5CIyL5pT8qJ9ADsP9tg+Hjbyz
yRFQNvr4pdq/QurdV+Dt8uD1uLxGqXmRmLB/2U4fWSHl19BwynwkRm0sj8Lc
ipzWMkcO5dfxrXt2QNm5SspjMMvrpiLDsobyWMz6uVA+JJBLeRz2PrFqlrxr
oDwec5lfbT23iilnIuyW+rD3h2eU30LF/k6z6fbPpXa6jfAZkufqMn9LrX0H
aw6M+7xxTbPUHXfw8vFy7rRxT6VOTUBM+rSclvNkp7sYvLc+z+Qm1Wsn4qb6
hvbnOa3Un4hDZW72JQUvqT8JJTdijp8tbqP+ZAgUH1yu2vGa+lOQ3LOwyYnV
Tv0pCNcRBnXNofrUVPhO8ntwcPor6k/D5uqDJUuLydrpcJlQcQkmVN+Rjg1D
5x5mnafzUu8hs6Ap5t7jDuq/D5uU6PNanzupPwOro3kpJzK7qD8DckNDpouE
76g/E+GyQ70u88lOD/A1serV76uoXyULy78pX5VMI3tkIUFdz+GwItULs9Bn
Ojr59tj5Bg9xpGBRfvHa91JHPcTTTRrmCWd7pO59iHflbQs4gR+lts6GQpG3
+9sx52TDSXnmVl1dssojDCUHXdpRSP0ej8A36DnyJIUsfITjjR+WDQ6SDXJQ
KTnb1nKM+qNyUJOjx7517RPNz4GhYYi/kUUvzc/FjAVW9RFa5JxcPO3ZppZ7
jKzyGCZp9Z9afiJ7PEZQtUbwP88/0/zHmHTSZ1LaB7JBHs63hVjH76L6qDxo
yrxJ8TPuo/l5SC0qCZ/4jWz9BFd/uPGy7/MXmv8EQTjn5SHop/n5uOr6s4FG
FdkjH6EnTiZd9ycL83HlbNaDBE+yQQGGI5vnTnEmRxWgXGF8j7EZubcAfYwA
h58sv9L8v5DqcOCule03mv8XDrbytyRrDdD8QqiF382fYThI8wtx0YKrWRBF
ubAQLL9gr8Q/yAZFCHdPNW72JkcVYUFkj2l9NLm3CDaLekfaVeg862KYKiol
KWqQc4rhO9tpyeVeskoJJi4Lf6Z1YZjml8C3z2d5ewZZWILBL/2rYkfJ6ixc
Ds3WWPCKbMFC3BZb6/gbZAYLLkFL6lcXkNNZWKd8S+FI4IjUzSx4XZpudSib
rFgK355ko5yXo1Ibl2Ikb+/OYh0Z1r92LgXjOtOzhkmOK0VQ6yOtweNkTiku
Lgs++MPscVIPlKKPKfJZNZNynTLYeNZzRn3JdmUofiqWdXUgh5XBvdK6u4tH
LiiDiw37fc5yOq+zDJuG/nYqaCerl+N993bnVQ/IFuVQ8HSvdlQfLzWjHCqb
Pa4w/yCnl6O3KLd7uIPqm8thl8lfJKtNuSIbq29ZW4Z5kI3ZmM223CB0Ijuz
kfhl2cotseQ4NhxMZ8Xt7iZz2FB4mtWxOk2W9mfjzus180fmknUqkDxwRDfI
n2xXgYC1eU8OuJHDKrBUxvKQoqoc7V+Blq9tcgoFlHdWwHVjvqNZAlm9Eoz2
ltvm78kWlShmvgpzlVA/oxJOWi/aPlqT0ythY+o/vJgnT/tXYuBu4caA+2TF
KozwX/Rm25ONq7D5un5W+k6ycxUuN1zQrHUlx1XhpPlk2aAtZE4VGD92etUy
yQNVSPhx7QlPLlmnGioZqipKaRNo/2rs5s18s9FBgfavRqm+h7vKK6ovqAbH
P/aNz12q76xGGXNSqkwcWb0GmzTdve95kS1q8I+lb/yvmWRGDe7U6jNiDOn8
9Br0fTFiv/UhN9cgfttFJZMrZEUODgdGJhfqTaT9OTiqYT888U+yMwfXC2P0
fSzJcRyMrsfogfnUz+HgdMqiTVlV5AEOtun947byLNXr1MJAvvat7lqyXS0s
UnedKXUa278Wc5aGss7fp7ygFppdLqGGDyfR/rXYr97mN9mOrF4H5ZUr3Zu/
Ub1FHX4Ts07N3Es5ow6CiI0cI1Vyeh06QmwM+3nk5jocNuSnmHMVaX8uDpn0
j0yLo9yYi8TbXmt1myh35sJHje2tYk6O++6LZ145BlA9hwvlGuGTpszJtD8X
svEtsR1DZJ16JLxC07rp1G9Xj3l1rs51vZSH1SPOMny98wnKC+phcvtq//kq
cmc9tnGFM6yvUb16A17PuWrGiKbcogFy0a1q61wpZzTg/Qvt7iAbytMbMGC4
5veA+0q0fwOqbJ/2l/GoXp6HSHu5wGO15Hk8qOkNDBbrTZHakAc/28+OvYvJ
O3h4NkPQfKWf6o/ywIkKeC4Lyn15eDyr2y3CgeZF8/Dwdfau3RHkDB4+/LIz
KGUcuYKHRUr1FxaGk1t52Ns5RasmaarUfTwk7p9dcnzyNKmnNIJ1atNX7l2y
ViPW72cm5WbS/PWNkIvp+G3mUTpvXyPC32RFnD5HdmnEHHvHayJX6g9uRNl9
s0kXY2kesxEv+o2iL0ykPLcR2/UWXGbfo37u9/6A+mvFXdOlbm/E6M74vgl3
qH64EWyNn8wVx3JVPkKyfN3v+pF1+VBzCdt3yJHqzfj4xTWkb7Ez2YGPpZ8u
LYwQ0X3O8GFqdkmUtYIcwUc/sypngZjqk/h4Ht9eqzD2exXxcUPsI5ofRfNE
fNRFLFwp+pPczYdboP6ZmTJkeQG21LywcxnzPAGYiTpNr81+oPcXoPLIzasf
1SnfIUDL8e3MNH/KjwqQucVg9rZOyn0FSHoRvMTqHd0nWgD5/K2S1xZ03wwB
5FL0fZarKdP7CzBV5v1E52OUtwqA0PbtNyLJfQJwWlbMjzgyg95fiFBe/9DA
ybH3F8LoAmt1YhndZ70QnSNrvgQ0kvcJsWLrHI8N7jTPRQjtFYs+zI8kBwth
MvXchsv5dH+mEAu77DvfnSPnCjEwFHQqjUH1XCEKdWvY/V10n3YhzPfIHFg2
hTwsxLPL5wp3DarQ+4tQ537opoIV3UdXhNh1tk6CZKo3EyHva/ma+ZNU6f1F
WJxxVTdjkOrPiOAZasldlkn1ESKkXdFk72in+yWJEOL3jGc8TPcrEmFd7FbH
WadpvkgE7TX6iXsSqb9bBIdCORPlCjpfXoxHU5Z07Ryl/nliGKydbWLaM/b+
YrixJEnGG6h/hxhv2l+4pUSQj4qR7RX+aM80sq8YN6213ZSC6X7RYiRe6TTY
PErnZYjR9y7sMK7T/SrEuOioMV7zPM1v/T5fuO3m+rH/pz4xUjVigmeUUj5F
giV2giEtP/q9tCTYNOifslGO5u+ToOnXBcYPu+h8FwlmBv+hVO479t4SfPyP
pbxtGuVMCVRcipaG9lCeK4G3Z5D8hQw1em8J3k77ZXW8O9W3SxB8XMnQWnXs
vSVQtWmNHNg59t5NCPxkxSrOV2X9F/iYmLM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAq2w4YtoTaT+QcbHiAP3AP3cjktz7
AEdAUqzbRoeSvT8GX920yQBXQFfkn0Zflrk/zvwCobAAZ0BZr+ESNgGyP7LL
FRekAHdACg4CNcDmjD8kMx/SnQCHQEgk+S3vk7e/3eajr5oAl0DMRs4K+qPS
v7lAZh6ZAKdAVD00Fc0k5b8fLBTZQPi3QI13MlvYTPa/pHchUVfOwUA0vVEr
mkUAwG+LX8tSg8dAi4QeWPodBcB2/kOHIrTNQHoTdntwQgrAmKZngZe90UCQ
8+EFu/4OwJN9AOAH39RAcWiHkN4KEsCprWyJ2vHXQDfT/JYZhxTAmEusksvP
2kDC2lnHptYWwCUZv7ym691A6uZ5ycBWGcBHqlIjUGngQPPIs4R7qxvAiHSv
DX7V4UD4cOsO8vMdwJjWdQihYONAuLxTTtg2IMCV7yUzU9HkQNBHH1diXiHA
YaA/bvpg5kAsOIkupJ4iwLr9ws5S6edAdNxuePnYI8BtuiGdChroQAAAAAAA
ACTA6UO+RQ==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAq2w4YtoTaT/IRU801haxP3cjktz7
AEdAkIEuZ5J4qz8GX920yQBXQCjm7nVEN6U/zvwCobAAZ0DSz/hRUjKSP7LL
FRekAHdAlrQmF73PnL8kMx/SnQCHQCqGypFjB76/3eajr5oAl0DEEm2ajpvS
v7lAZh6ZAKdAUCUX6scd5L8fLBTZQPi3QNd7mm0KefW/pHchUVfOwUD0y4CW
OOj/v2+LX8tSg8dArvWz3hD9BMB2/kOHIrTNQNubz+x5XgrAmKZngZe90UDJ
ud726lAPwJN9AOAH39RAaoKzi0FMEsCprWyJ2vHXQD7E4ucA2RTAmEusksvP
2kAR8a3JKjAXwCUZv7ym691AsUhgtTWvGcBHqlIjUGngQJ5cBQnQ+RvAiHSv
DX7V4UCDirmAqi8ewJjWdQihYONACtpBg8tFIMCV7yUzU9HkQI3LhUQHWyHA
YaA/bvpg5kBjJZqD3YIiwLr9ws5S6edAJVIjKdygI8BEmTASqm3oQAAAAAAA
ACTAXEi/Vw==
       "]]}}, {}}},
  PlotLegends -> "Expressions",
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 24660.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772692557719955`*^9, 3.7772693753396077`*^9, 3.77727115515278*^9, 
   3.777271299573492*^9, 3.7772716009883265`*^9, {3.777271643297996*^9, 
   3.7772716584142003`*^9}, 3.7772717356440964`*^9, 3.777271889917794*^9, 
   3.777272687559535*^9, 3.777272746020807*^9, 3.777272806969875*^9, 
   3.777272861246545*^9, 3.7772730790533085`*^9, 3.777273119225272*^9, 
   3.7772732452471495`*^9, {3.7773569099242487`*^9, 3.7773569249588037`*^9}, {
   3.777357046738924*^9, 3.7773570713467293`*^9}, 3.7773596837826796`*^9, 
   3.777359760663413*^9, 3.7773599624068127`*^9, 3.777360877957795*^9, 
   3.7778083827822275`*^9, 3.77780850250965*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 175K", "Section",
 CellChangeTimes->{{3.777269058590526*^9, 3.7772690614021177`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_175K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A1", " ", "=", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "4000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", " ", "=", "5000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", " ", 
   RowBox[{"0.02", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "175"}], "]"}], "+", "0.02"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", " ", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "550"}], "/", "175"}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"0.02", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "550"}], "/", "175"}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A1", ",", "T11", ",", "T21"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "100"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.7772692427244625`*^9, {3.7772693808977337`*^9, 3.7772693900822515`*^9}, {
   3.77727123185362*^9, 3.7772712464591684`*^9}, 3.777274727730364*^9, 
   3.7772747725836587`*^9, 3.7773564866985064`*^9, {3.7773572950739555`*^9, 
   3.7773573548435507`*^9}, {3.7778084525887136`*^9, 3.7778084529638224`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV0gk01XkbB3CEopiaaNFiKI0YMp0yUvStJlPKFIMpI1SjpNGoKElpk9JQ
vQkpkzW6XJJddu7FdS93Fw2FGjstlCU1vXOfznlf53Scz/k+y//pR2fP73bu
CnJych8+/fvv739/zuxD4c7xp/qlVaX/Goeh8itr3eyeOvJxLA3IbhAPFZNP
wc+4hKWVkCJz7FnI/e9P7AVoFsofGKy6QHkwULN4w9TxKHII+r1Fm98bZ5JD
sfvjuOGCcZbM26+hfWmgtoqNQGb+ddjNXD1rYIWI8hswTYg1ujv5cx6OExPR
o5c0OZRHoC1Jo0PXmU15JPykcom9GjWU30L+eHKg+c88yqMhyjuzyWAjn/I7
8DsQMIX9Xkp5DNa2d/7nIfMJ5XdR8kOsaXBhq8wesRibH5NnMvCXzPpxqLVz
PzX0V5PMXXGomcNy7sh9LHNKPHySBl+G6FDukYCzSnqvRrY1U38i3Dexpxpa
tFB/IsTbkmsO2rRRfxL6jPyWDCg8p/57aFqgO3sk/QX1J6Pf8N1CnUhyVzLa
/uj4cOv3DupPwULeoElYTzv134eR8ojGolayPgNWbhY7xP1U38XAsq2ZAfND
aF5KKo5rTXkuGuyk/jSMRgzmyuf0UD8TCpZKpifieqmfidTntZY19n3Un47S
Ay9f25+neo8MHK04bKx6u1tmjQfoLQop5A6QfR7AakliT9o9qhc/QEdpZPUh
OZq3IhPzfn22edbCAZnDM+FU5dSqN+2lzEOZOLz8o2uK9iuZ7R8iP9R2zHIL
OfshIpLiOe6RVK+RBYUjvPee3mSfLCy8OvDiu9lkcRbupKqn+d0gr8jGvEeO
H0Jv0rzwbOg/qA2dEfua9mdj4nJwnlLgG9qfgy8yrR4umT1E+3Og6G0ykuFL
1siFTp5joCGf6n1yESEsMliTRxbnYtmcfXd/LiCvyMOZtETd0S5yeB5ORzMm
rpfTvKE8pAym94tPD9P+fBRVLqwoUX5H+/MRdzj9bnoUWaMAmt8Ea2CC7FOA
q2HdUZFeZHEBpDpde9OXk1cUwtT+mHHz8FvaX4ivrNwGgo5TPlSItNW5UbZM
sv0jRBoIdxVkjND+R8hw6hS2nhul/UU4lsYI0N0zRvuL0Lg9tttqO1lcBCM3
kz+vzCCvKIb7wLqZX8RTf3gxLphr36xvo3yoGEN2esWPcsn2JcjvTkrR9Bqn
/SW4wZ46M6GXrFGK/hR1Wx/Je9pfCu004fCOLRO0vxRPFxVNKr/2QWatMkRb
7bS/c5ty6zKMKJbyjLeR/cvgNMwrOLSBzCiDrs+lcA9F6m8uw4qoDO5pE7Jq
OYruzN809oBsXo7iHXa+hxw+yuxZjvbj3gblbHJ0OZiVHOc/PeXK/jWnHGEF
8ZuDTMlj5cgviSkIWk82qMDV2kVN4jrqd6rAsbGoixd3UB7yyZUnOK9zyYUV
eGmaM1K7Sl7mngrcfcwrTNlE1qrE7Yonap7nydaVYBg57Ff1VpDZvxKba0SW
DipkRiWsS9uf1C0lN1dC++DsCc+vyapVSBjKOi7RI5tXITJ/1vh0CdmzCly0
VBzoJkdXYdRlftPCVjKnCnWvpZN6YibR/VW4Or7nQFEU2YCFihaX6YYaZCcW
Oi2/c+1cTw5hYeK1zVHDQ4p0PwvNgoJ8Ww7lPSyMVwZHuRhSrsVG6g/lyU7x
ZGs2ZriarI41IfuzobxcbdUvZmQGG2CerKrZqET3s7HrRdLeW52Uq1bjeAm3
cfl9snk1DHXnb9TPJ3tW44npdZV3tdQfXY0tRXF345eQOdWICPvbO8SJPFaN
Dr/Ge7ZiskENvGzHmZf8lOn+GoiXersl5ZBDarBhbJ536x5yYQ3Y3s/W3Q4l
99TAZO1ABHvmZLq/FpW8LgvrAsqta+HPmHHDyoVy/1qM31scetufckYt2BsD
Y9ZXk5trUT40OdFv5RS6n4N77OSJVynUb86B3LYpFj/eI3tyMJrokd32mhzN
QbdlcUrvRzKHg5WM1o7InTRvjIM72y96OMwjG9Qh9Pe8yMv1ZKc6VPvK7XxT
TQ6pw7DcsIObuwrdXwd+dvs56wzKe+pwbdRy7/ZwshYXE2+P/i1/i+qtuThp
ZqtXnEL254KVkNW3+4gq3c9FyE359jYdcjMXdh3dcw4+pXpVHuYMepR900S5
OQ9r8jzWtqtMo/t5ULe6fW56+lS6n4f07Y4Wkh/JHB5i/7hoHfQ5H+PhRymn
k1NJ8wzq0fo9vzVoJdmpHl/ta1ae1kfzQ+pxPzKm43szcmE9qvQDtrx0pnk9
9bB2WqS734as1YDRn35SqdlKtm6AYdikN/6Lyf4NcFvAeXP9DJnRgDNZ9nuc
VWl+cwMyNzA65zaryazEx9FKr8lFsZQv4OOtos7JfAPySj5eWXNd7FNpng0f
rau8LBLnU787H3tVf9PyCySf4iM47R3XVkK+yQfjsbr2yGl1mZl82CUZbsu6
+oXMLD4c1fQui4upvoUPNRvHb9uTad8wHwsCLHML9lG9mgD760VNDn5kPQEi
V1nzdB9Tv4UArlmvj6gnUO4gwODaa2e3xNN+LwGsEodmBrpSfZAA2eu1Iu2+
ofoYAZqXX2PpfUl5jgBTrkvjq3Wny8wT4HF1uPqNxeQXAuh8dA/RYpInBFB2
jjfjv6N5mkLMXZo1/FRM+42EYCx7GBdRTPUbheAui397rJr27RLir/iJvhOz
KPcV4rmbxynNJpoXKkToSQO3GLMZMicJIfKWzHeMofpiIUp7N/opZFO9RIgd
u8elPZ5U3y/Ew59dVNh/U72SCAm/BrvmtJAXiPBTmPz53K4v6f1FiKzs/BD0
A+U2Ihg4Hdyt4Ud2F4Frv2ydnAHNPyVCUt/7woaV5JsirL4e6naRQfVMER7E
/BHmX0T/HywRQoZWaqamUH2LCHM8Fg8OrNGg9//kgKUtClfoe9TEiM8aTOxV
ono9MeJ2tY1NW0W5hRhb+8yuz/Kl3EGM9n7VhDWXaL+XGFnDa7qO7CYHiREW
U9+qeHYmvb8YvD+Zq+JeUn+OGM+zit/Xh9F8nhi5Fw7l6dlo0vuLYdW+74PX
IaqfECOgTCg+6UK5pgS7uL6cfY8pN5Igd9JTt3Nf0ryNEijdZ5Y+O0reJcGR
rY9s5cLpfl8JmjZ9Wz5Nnb4vVAL5Ywe9L0fT9ydJoLul/HxE4Of3l0D/jsKM
DA3aJ5HgnLCxYSyC5vdLEDqivbjvHn2fkvT//z4WSKHwrIJjV0ReKcWlGS93
N2+bQ+8txQYrPDNNou85JYUed3Xq1iuf31sKxWOOzKpxMlOKX6Zan7FVpntY
UkxlnTzoGET9LVK03d/By8ohD0txKgA+HWa0T60R6s1OG7ynUr9eI6bIfb0m
s5HmWzTittawWeqLufTejaia67JkpzHlXo0weypwnKL3+X0/zcuocE9aTs5p
xHaN9V1JR8i8RrT8ZsIM66X+F5+cMf1AlRbtn2iE5wm/cddns+l9H2O/8SPu
Fed5Zf8AZLGrCA==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAq2w4YtoTaT8WH3Yk6qS3vncjktz7
AEdAqh0tdKOEiL8GX920yQBXQJ2qK1l2upe/zvwCobAAZ0BnpiaN/fymv7LL
FRekAHdAGMDC/TVLtr8kMx/SnQCHQLGaRE1vpMW/3eajr5oAl0BOS9p2hAjV
v7lAZh6ZAKdA5bWOOSR45L8fLBTZQPi3QJc1VjonxPS/pHchUVfOwUBF4xgK
YXH+v2+LX8tSg8dAaSlALRLsA8B2/kOHIrTNQOyBKoPW/AjAmKZngZe90UDh
vGEKu7ANwJN9AOAH39RAlDY8PM1hEcCprWyJ2vHXQNZYw7/D3BPAmEusksvP
2kB8hZ5Z2yoWwCUZv7ym691AJ/xARGmoGMBHqlIjUGngQCPGd4Vx+RrAiHSv
DX7V4UAgA1XjwzwdwJjWdQihYONAKlzuc/2uH8CV7yUzU9HkQMX6EjyF+iDA
YaA/bvpg5kDIjpXJsTQiwLr9ws5S6edAO1HFgMNnI8DXowootKzoQAAAAAAA
ACTAetPAKw==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAq2w4YtoTaT8WH3Yk6qS3vncjktz7
AEdAqh0tdKOEiL8GX920yQBXQJ2qK1l2upe/zvwCobAAZ0BnpiaN/fymv7LL
FRekAHdAGMDC/TVLtr8kMx/SnQCHQLGaRE1vpMW/3eajr5oAl0BOS9p2hAjV
v7lAZh6ZAKdA5bWOOSR45L8fLBTZQPi3QJc1VjonxPS/pHchUVfOwUBF4xgK
YXH+v2+LX8tSg8dAaSlALRLsA8B2/kOHIrTNQOyBKoPW/AjAmKZngZe90UDh
vGEKu7ANwJN9AOAH39RAlDY8PM1hEcCprWyJ2vHXQNZYw7/D3BPAmEusksvP
2kB8hZ5Z2yoWwCUZv7ym691AJ/xARGmoGMBHqlIjUGngQCPGd4Vx+RrAiHSv
DX7V4UAgA1XjwzwdwJjWdQihYONAKlzuc/2uH8CV7yUzU9HkQMX6EjyF+iDA
YaA/bvpg5kDIjpXJsTQiwLr9ws5S6edAO1HFgMNnI8DXowootKzoQAAAAAAA
ACTAetPAKw==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 24660.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777269390833821*^9, 3.7772711554183416`*^9, {3.777271228793735*^9, 
   3.7772712467558093`*^9}, 3.7772712998078113`*^9, 3.777271601238268*^9, {
   3.77727164353232*^9, 3.777271658682393*^9}, 3.7772718901364927`*^9, 
   3.7772726878013*^9, 3.777272746256427*^9, 3.7772728072041955`*^9, 
   3.7772728615433493`*^9, 3.777273079276942*^9, 3.777273119459593*^9, 
   3.7772732454970913`*^9, {3.7773573165938683`*^9, 3.777357355743513*^9}, 
   3.777359684282409*^9, 3.7773608784438868`*^9, 3.777808385033323*^9, 
   3.777808502683033*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772690626972246`*^9, 3.777269063009878*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", "  ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "100"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"17", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"17", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"17", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T2", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"17", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777269195784686*^9, 3.7772692016524105`*^9}, 
   3.7772748475945563`*^9, 3.7773565306469584`*^9, {3.777357444128603*^9, 
   3.7773574510139823`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.130038553920703`", "0.08902053136276925`", "12.69413400056737`",
       "7.477437940209459`*^-29"},
     {"T1", "2410.067880209853`", "699.6596568450335`", "3.4446289086861768`",
       "0.0006700404237302273`"},
     {"T2", "4871.254153119743`", "54.822005335771244`", "88.85581844889683`",
       "1.1004136734547102`*^-191"}
    },
    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.7772693946457095`*^9, 3.7772711556417065`*^9, 3.7772712495113573`*^9, 
   3.77727130002651*^9, 3.777271601519451*^9, {3.777271643776002*^9, 
   3.777271658916712*^9}, 3.7772718903551903`*^9, 3.7772726880248528`*^9, 
   3.7772727464761963`*^9, 3.7772728074385147`*^9, 3.7772728617666774`*^9, 
   3.7772730795592194`*^9, 3.7772731196939135`*^9, 3.777273245780683*^9, {
   3.7773573187686977`*^9, 3.7773573327138004`*^9}, 3.777359684476517*^9, 
   3.7773608787758884`*^9, 3.777808385271965*^9, 3.77780850296526*^9}],

Cell[BoxData["0.9933422266097447`"], "Output",
 CellChangeTimes->{
  3.7772693946457095`*^9, 3.7772711556417065`*^9, 3.7772712495113573`*^9, 
   3.77727130002651*^9, 3.777271601519451*^9, {3.777271643776002*^9, 
   3.777271658916712*^9}, 3.7772718903551903`*^9, 3.7772726880248528`*^9, 
   3.7772727464761963`*^9, 3.7772728074385147`*^9, 3.7772728617666774`*^9, 
   3.7772730795592194`*^9, 3.7772731196939135`*^9, 3.777273245780683*^9, {
   3.7773573187686977`*^9, 3.7773573327138004`*^9}, 3.777359684476517*^9, 
   3.7773608787758884`*^9, 3.777808385271965*^9, 3.7778085029822316`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0670672725600028`", "0.008633049191185677`", 
      "123.60259381464847`", "7.535721185386176`*^-227"},
     {"T1", "4206.904199819868`", "1601.2619544539673`", 
      "2.6272429617891153`", "0.009137852383469562`"},
     {"T2", "4423.610088481695`", "722.918293108737`", "6.119101052843772`", 
      "3.594391470738641`*^-9"}
    },
    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.7772693946457095`*^9, 3.7772711556417065`*^9, 3.7772712495113573`*^9, 
   3.77727130002651*^9, 3.777271601519451*^9, {3.777271643776002*^9, 
   3.777271658916712*^9}, 3.7772718903551903`*^9, 3.7772726880248528`*^9, 
   3.7772727464761963`*^9, 3.7772728074385147`*^9, 3.7772728617666774`*^9, 
   3.7772730795592194`*^9, 3.7772731196939135`*^9, 3.777273245780683*^9, {
   3.7773573187686977`*^9, 3.7773573327138004`*^9}, 3.777359684476517*^9, 
   3.7773608787758884`*^9, 3.777808385271965*^9, 3.7778085031238403`*^9}],

Cell[BoxData["0.9926912487742122`"], "Output",
 CellChangeTimes->{
  3.7772693946457095`*^9, 3.7772711556417065`*^9, 3.7772712495113573`*^9, 
   3.77727130002651*^9, 3.777271601519451*^9, {3.777271643776002*^9, 
   3.777271658916712*^9}, 3.7772718903551903`*^9, 3.7772726880248528`*^9, 
   3.7772727464761963`*^9, 3.7772728074385147`*^9, 3.7772728617666774`*^9, 
   3.7772730795592194`*^9, 3.7772731196939135`*^9, 3.777273245780683*^9, {
   3.7773573187686977`*^9, 3.7773573327138004`*^9}, 3.777359684476517*^9, 
   3.7773608787758884`*^9, 3.777808385271965*^9, 3.7778085031238403`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV0gk01XkbB3CEopiaaNFiKI0YMp0yUvStJlPKFIMpI1SjpNGoKElpk9JQ
vQkpkzW6XJJddu7FdS93Fw2FGjstlCU1vXOfznlf53Scz/k+y//pR2fP73bu
CnJych8+/fvv739/zuxD4c7xp/qlVaX/Goeh8itr3eyeOvJxLA3IbhAPFZNP
wc+4hKWVkCJz7FnI/e9P7AVoFsofGKy6QHkwULN4w9TxKHII+r1Fm98bZ5JD
sfvjuOGCcZbM26+hfWmgtoqNQGb+ddjNXD1rYIWI8hswTYg1ujv5cx6OExPR
o5c0OZRHoC1Jo0PXmU15JPykcom9GjWU30L+eHKg+c88yqMhyjuzyWAjn/I7
8DsQMIX9Xkp5DNa2d/7nIfMJ5XdR8kOsaXBhq8wesRibH5NnMvCXzPpxqLVz
PzX0V5PMXXGomcNy7sh9LHNKPHySBl+G6FDukYCzSnqvRrY1U38i3Dexpxpa
tFB/IsTbkmsO2rRRfxL6jPyWDCg8p/57aFqgO3sk/QX1J6Pf8N1CnUhyVzLa
/uj4cOv3DupPwULeoElYTzv134eR8ojGolayPgNWbhY7xP1U38XAsq2ZAfND
aF5KKo5rTXkuGuyk/jSMRgzmyuf0UD8TCpZKpifieqmfidTntZY19n3Un47S
Ay9f25+neo8MHK04bKx6u1tmjQfoLQop5A6QfR7AakliT9o9qhc/QEdpZPUh
OZq3IhPzfn22edbCAZnDM+FU5dSqN+2lzEOZOLz8o2uK9iuZ7R8iP9R2zHIL
OfshIpLiOe6RVK+RBYUjvPee3mSfLCy8OvDiu9lkcRbupKqn+d0gr8jGvEeO
H0Jv0rzwbOg/qA2dEfua9mdj4nJwnlLgG9qfgy8yrR4umT1E+3Og6G0ykuFL
1siFTp5joCGf6n1yESEsMliTRxbnYtmcfXd/LiCvyMOZtETd0S5yeB5ORzMm
rpfTvKE8pAym94tPD9P+fBRVLqwoUX5H+/MRdzj9bnoUWaMAmt8Ea2CC7FOA
q2HdUZFeZHEBpDpde9OXk1cUwtT+mHHz8FvaX4ivrNwGgo5TPlSItNW5UbZM
sv0jRBoIdxVkjND+R8hw6hS2nhul/UU4lsYI0N0zRvuL0Lg9tttqO1lcBCM3
kz+vzCCvKIb7wLqZX8RTf3gxLphr36xvo3yoGEN2esWPcsn2JcjvTkrR9Bqn
/SW4wZ46M6GXrFGK/hR1Wx/Je9pfCu004fCOLRO0vxRPFxVNKr/2QWatMkRb
7bS/c5ty6zKMKJbyjLeR/cvgNMwrOLSBzCiDrs+lcA9F6m8uw4qoDO5pE7Jq
OYruzN809oBsXo7iHXa+hxw+yuxZjvbj3gblbHJ0OZiVHOc/PeXK/jWnHGEF
8ZuDTMlj5cgviSkIWk82qMDV2kVN4jrqd6rAsbGoixd3UB7yyZUnOK9zyYUV
eGmaM1K7Sl7mngrcfcwrTNlE1qrE7Yonap7nydaVYBg57Ff1VpDZvxKba0SW
DipkRiWsS9uf1C0lN1dC++DsCc+vyapVSBjKOi7RI5tXITJ/1vh0CdmzCly0
VBzoJkdXYdRlftPCVjKnCnWvpZN6YibR/VW4Or7nQFEU2YCFihaX6YYaZCcW
Oi2/c+1cTw5hYeK1zVHDQ4p0PwvNgoJ8Ww7lPSyMVwZHuRhSrsVG6g/lyU7x
ZGs2ZriarI41IfuzobxcbdUvZmQGG2CerKrZqET3s7HrRdLeW52Uq1bjeAm3
cfl9snk1DHXnb9TPJ3tW44npdZV3tdQfXY0tRXF345eQOdWICPvbO8SJPFaN
Dr/Ge7ZiskENvGzHmZf8lOn+GoiXersl5ZBDarBhbJ536x5yYQ3Y3s/W3Q4l
99TAZO1ABHvmZLq/FpW8LgvrAsqta+HPmHHDyoVy/1qM31scetufckYt2BsD
Y9ZXk5trUT40OdFv5RS6n4N77OSJVynUb86B3LYpFj/eI3tyMJrokd32mhzN
QbdlcUrvRzKHg5WM1o7InTRvjIM72y96OMwjG9Qh9Pe8yMv1ZKc6VPvK7XxT
TQ6pw7DcsIObuwrdXwd+dvs56wzKe+pwbdRy7/ZwshYXE2+P/i1/i+qtuThp
ZqtXnEL254KVkNW3+4gq3c9FyE359jYdcjMXdh3dcw4+pXpVHuYMepR900S5
OQ9r8jzWtqtMo/t5ULe6fW56+lS6n4f07Y4Wkh/JHB5i/7hoHfQ5H+PhRymn
k1NJ8wzq0fo9vzVoJdmpHl/ta1ae1kfzQ+pxPzKm43szcmE9qvQDtrx0pnk9
9bB2WqS734as1YDRn35SqdlKtm6AYdikN/6Lyf4NcFvAeXP9DJnRgDNZ9nuc
VWl+cwMyNzA65zaryazEx9FKr8lFsZQv4OOtos7JfAPySj5eWXNd7FNpng0f
rau8LBLnU787H3tVf9PyCySf4iM47R3XVkK+yQfjsbr2yGl1mZl82CUZbsu6
+oXMLD4c1fQui4upvoUPNRvHb9uTad8wHwsCLHML9lG9mgD760VNDn5kPQEi
V1nzdB9Tv4UArlmvj6gnUO4gwODaa2e3xNN+LwGsEodmBrpSfZAA2eu1Iu2+
ofoYAZqXX2PpfUl5jgBTrkvjq3Wny8wT4HF1uPqNxeQXAuh8dA/RYpInBFB2
jjfjv6N5mkLMXZo1/FRM+42EYCx7GBdRTPUbheAui397rJr27RLir/iJvhOz
KPcV4rmbxynNJpoXKkToSQO3GLMZMicJIfKWzHeMofpiIUp7N/opZFO9RIgd
u8elPZ5U3y/Ew59dVNh/U72SCAm/BrvmtJAXiPBTmPz53K4v6f1FiKzs/BD0
A+U2Ihg4Hdyt4Ud2F4Frv2ydnAHNPyVCUt/7woaV5JsirL4e6naRQfVMER7E
/BHmX0T/HywRQoZWaqamUH2LCHM8Fg8OrNGg9//kgKUtClfoe9TEiM8aTOxV
ono9MeJ2tY1NW0W5hRhb+8yuz/Kl3EGM9n7VhDWXaL+XGFnDa7qO7CYHiREW
U9+qeHYmvb8YvD+Zq+JeUn+OGM+zit/Xh9F8nhi5Fw7l6dlo0vuLYdW+74PX
IaqfECOgTCg+6UK5pgS7uL6cfY8pN5Igd9JTt3Nf0ryNEijdZ5Y+O0reJcGR
rY9s5cLpfl8JmjZ9Wz5Nnb4vVAL5Ywe9L0fT9ydJoLul/HxE4Of3l0D/jsKM
DA3aJ5HgnLCxYSyC5vdLEDqivbjvHn2fkvT//z4WSKHwrIJjV0ReKcWlGS93
N2+bQ+8txQYrPDNNou85JYUed3Xq1iuf31sKxWOOzKpxMlOKX6Zan7FVpntY
UkxlnTzoGET9LVK03d/By8ohD0txKgA+HWa0T60R6s1OG7ynUr9eI6bIfb0m
s5HmWzTittawWeqLufTejaia67JkpzHlXo0weypwnKL3+X0/zcuocE9aTs5p
xHaN9V1JR8i8RrT8ZsIM66X+F5+cMf1AlRbtn2iE5wm/cddns+l9H2O/8SPu
Fed5Zf8AZLGrCA==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAAq2w4YtoTaT87isqXwku/P3cjktz7
AEdAsquyGuRauz8GX920yQBXQHzim4/lu7c/zvwCobAAZ0AxXu+X3ciwP7LL
FRekAHdA0dLLqOK1iz8kMx/SnQCHQGvZqkx4Ara/3eajr5oAl0CCitSWdaLR
v7lAZh6ZAKdA+Mg0AEpR5L8fLBTZQPi3QLsrzuA96PW/pHchUVfOwUAve7a+
9zQAwG+LX8tSg8dADHt77+w8BcB2/kOHIrTNQN38sDU5nQrAmKZngZe90UA0
ExMPIJUPwJN9AOAH39RA4L0KAkV3EsCprWyJ2vHXQKMtrTtsFBXAmEusksvP
2kASZYf7toIXwCUZv7ym691AZ3T2uA0kGsBHqlIjUGngQMuioGWslxzAiHSv
DX7V4UBZrZ9PR/4ewJjWdQihYONA36LRwknMIMCV7yUzU9HkQFORSmfzAiLA
YaA/bvpg5kA1SJVgilMjwIYHRQLTLedAAAAAAAAAJMBpx7W8
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBkQFu/iFib1JlAgAAABgAAAACAAAAq2w4YtoTaT/ZTPywHJ6wP3cjktz7
AEdA8QnlcIjQqj8GX920yQBXQAqqyzu+xKQ/zvwCobAAZ0C+buL/8gCSP7LL
FRekAHdAr8L0bKfZm78kMx/SnQCHQP+IevPGU72/3eajr5oAl0CJJA/1YkHS
v7lAZh6ZAKdAU+PhHXrQ478fLBTZQPi3QBHx8A9hPvW/pHchUVfOwUAMX3+f
xab/v2+LX8tSg8dAOjD12obdBMB2/kOHIrTNQLcWFnvcRArAmKZngZe90UAf
3gc390APwJN9AOAH39RAsSKcFKZLEsCprWyJ2vHXQD2oemGh4RTAmEusksvP
2kBQLJI9AUMXwCUZv7ym691AKYYPxZnOGcBHqlIjUGngQGglACMHJhzAiHSv
DX7V4UBO3GeUMWkewJjWdQihYONAjY0p3AVqIMCV7yUzU9HkQNXrUxJKhiHA
YaA/bvpg5kDktAqvqLUiwLr9ws5S6edAuH6KzM/aI8Bo+ivr1BvoQAAAAAAA
ACTAING/zA==
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 24660.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772693946457095`*^9, 3.7772711556417065`*^9, 3.7772712495113573`*^9, 
   3.77727130002651*^9, 3.777271601519451*^9, {3.777271643776002*^9, 
   3.777271658916712*^9}, 3.7772718903551903`*^9, 3.7772726880248528`*^9, 
   3.7772727464761963`*^9, 3.7772728074385147`*^9, 3.7772728617666774`*^9, 
   3.7772730795592194`*^9, 3.7772731196939135`*^9, 3.777273245780683*^9, {
   3.7773573187686977`*^9, 3.7773573327138004`*^9}, 3.777359684476517*^9, 
   3.7773608787758884`*^9, 3.777808385271965*^9, 3.7778085032030106`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define model 200K-RT", "Section",
 CellChangeTimes->{{3.777269435591363*^9, 3.7772694659635878`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"exponential", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", 
     RowBox[{"B_", "?", "NumericQ"}], ",", 
     RowBox[{"Tm_", "?", "NumericQ"}]}], "]"}], " ", "=", " ", 
   RowBox[{"B", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"t", "/", "Tm"}], ")"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"logaritmic", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", 
     RowBox[{"B_", "?", "NumericQ"}], ",", 
     RowBox[{"Tm_", "?", "NumericQ"}]}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"B", "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"t", "/", "Tm"}], ")"}]}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772694893571453`*^9, 3.777269499244875*^9}, {
   3.7772698667111526`*^9, 3.7772698698857274`*^9}, 3.777269905346709*^9, {
   3.777269960439427*^9, 3.7772700000981984`*^9}, {3.777273070058138*^9, 
   3.777273070511358*^9}, {3.7773574761436357`*^9, 3.7773574939535627`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 200K", "Section",
 CellChangeTimes->{{3.7772695027556353`*^9, 3.777269505090808*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_200K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1.1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "900"}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "B1", ",", "Tm1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B1", ",", " ", "Tm1"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.777269855341116*^9, 3.7772699079740195`*^9}, {
   3.7772717541536217`*^9, 3.7772717543252325`*^9}, {3.77735745739886*^9, 
   3.7773574577236333`*^9}, {3.7773574984438405`*^9, 3.777357499153739*^9}, {
   3.7773589086767545`*^9, 3.7773589441249075`*^9}, {3.777359167176737*^9, 
   3.777359303920817*^9}, 3.7773594819595513`*^9, {3.7778084578268757`*^9, 
   3.777808458154934*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0Qs0lGkYB3BJpQ3JpbWRS9mNpe1GW67/XepoR6sjm6mjZUs1baU6qsUZ
UtjaRIySy2BchnHLGDOMKLTVJhbFYgul2tKamlFt7mt3+57O2e+cOXN+53mf
93n/72ux46D3LnU1NbUf/v399//ui/wOav//IjlYb6w9Fe8gqWN8EJe+3zbO
dr7GGMEY+LJov11rE+P6Y7Bv5S7ZsuIu1cNQldjT25TaRfVwGKxtFhaM3WMs
iMS153MMZUMPGAecRAQ7rfB+Rj9j82iob3Vr5U0+ZvwwBidaVBPhFk+p/xSc
n3GQv3CA+n9Co0WOwdcpz6k/Fg39D1k7bRTUfxahj0Il8WUvqD8eRo6F60a8
lIyXJ+C4nuisxysVY91EuNf1BbsJhhirEnHMwFyo2PeKcRsP3LePw+M6XjMW
J6FyYHpJRi854Tw+bP/IRtH/hvGhC8hAUPpN378Yb0qGec7CiAUdb2n+RQwN
NnBipMM0PwXhjSwvkyayKgUJKw/c3yYZpfmpcEsUJnMbyOI0rA1N2KoXOUbz
06G8MlPAE4zTfD6ES+a6nXOZoPkZ8OH11ezUJS/PRGWKyPpBwCTNz0JGTFff
hmVTND8LrqnJUfw/yBwBuuvsD3ax1erfuVsAR99hfnoy2SMbcX0X9t7ZOI2x
PBv220va+4PVGVvlQCPXajwkjJySg96rq7IDosmauTAJsTSKOk4OycWi0ETv
1T3TGQ/kYv3Sj0u6l81gzM5DUpZb32VXDca38qD5Ov8ifzF5jRDBnk9r7frI
IiE8+Wx93Zdko3zYTAucOdlJPp2PH32H9bWyaP+RfKwxPez38vpMxpwCPFrj
ECvQnkX5CxAkMsqzPkV1DxFiTmysa/xEk/KLkDcunS85Q7YqhE53QLbzp7Mp
fyEczEYzJWofUP4iqB4Ox0Y9p/UhRbD+c6pTqE/1gSKsm7a51XcF9bOL0f5Z
8d/KRPKtYoRd3eKkaTqH8pfAyi/eryGI+kUlcDRpbhFEa1P+Uoy5sCw399C8
06Uo5cxT162n/pFSOPPsdnordCn/JVSOGUdZNGlR/kuYmIjrsLmrQ/nL0K/s
Fns60Hp5GfSTv8VtHbKBGJyILyoyM2m+pxidukmshsC5jKPFCGL7xGvs1mdc
K4bPvK+4C8Oo/kaMUe0DO+6eprptOW61aS9ZnUj7BZZDJdu2aXCI1vPLcUg6
EV0+XY9xRzn8vNMGJwzJWhLwpsIbJpPofO4SbOBc81NkkLkSmPnbeDzuofVS
Cdw1FnTwXhgwVkhwpbjKNuF9PssK+LT4WffuIftVoH9vyMD2xQsYn69At46k
LUxE9eYKLGVHpK9aRNaQYrio3d9YMo+xkxQnHc8VvTWneUekuH290+vkuDHj
EinC1qo/4fZQ3idSKA97Gda/ov1MZHCLs/pckkb9PjIEt9RWDZ6h+zsrg7pT
4R0X+/mMr8vQlsbb41JP9QkZ9KtXcm/oGTK2qwR3zpG4GgWdb38lWOY+m7oU
tL6nEjL3lNnPmskGVXhg9uiedyr1e1bBRW58LlbNlN67Cj/PYmm3H6Xz1VbB
IhdeXrZ0fls5xMrzGqyjdP+BcniOyMU3dpH5cviq7oz429F5OuQYVe5umPE7
Wasa89sL3Ldcof3dq7G1U9n4Wxjl5VZDo6tVT+VKdWk1ynqKIp+Fvn/Py/A3
NTv2C5/yNF+GsOnNN68303s61aDmpofccgOtf1KDCvG+0RVO7++/Fjd0fnWd
e9Gw/h+Lmou/
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530677844378066}, {
       46.007686206204134`, 0.044190528464098024`}, {
       92.01231118791847, -0.0069257215155844746`}, {
       184.02156115134716`, -0.10915822147494975`}, {
       368.04006107820453`, -0.31362322139368}, {
       736.0770609319193, -0.7225532212311409}, {
       1472.1510606393488`, -1.5404132209060626`}, {
       2944.2990600542075`, -3.1761332202559056`}, {
       6136.253312359592, -6.722749056150778}, {
       9085.779161823893, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530677844378066}, {
       46.007686206204134`, 0.044190528464098024`}, {
       92.01231118791847, -0.0069257215155844746`}, {
       184.02156115134716`, -0.10915822147494975`}, {
       368.04006107820453`, -0.31362322139368}, {
       736.0770609319193, -0.7225532212311409}, {
       1472.1510606393488`, -1.5404132209060626`}, {
       2944.2990600542075`, -3.1761332202559056`}, {
       6136.253312359592, -6.722749056150778}, {
       9085.779161823893, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 7196.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777269896431366*^9, 3.7772699083347874`*^9}, {
   3.7772699653170977`*^9, 3.7772700020428343`*^9}, 3.7772711561941996`*^9, 
   3.7772713003233147`*^9, 3.7772716018318815`*^9, {3.7772716440894995`*^9, 
   3.7772716592916145`*^9}, 3.7772717549654965`*^9, 3.7772718906207533`*^9, 
   3.777272688313444*^9, 3.7772727467417583`*^9, 3.777272807706701*^9, 
   3.7772728620226693`*^9, 3.777273079811626*^9, 3.777273119975096*^9, 
   3.7772732460462456`*^9, {3.777359240101075*^9, 3.7773593044532404`*^9}, {
   3.7773594552344704`*^9, 3.7773594822914457`*^9}, 3.7773596849890475`*^9, 
   3.7773608791566877`*^9, 3.777808387610872*^9, 3.777808503395727*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772695063406973`*^9, 3.77726950655938*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm2", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm2", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772696194804573`*^9, 3.7772696477807226`*^9}, {
  3.777269920317926*^9, 3.7772699383148413`*^9}, {3.7772717589272513`*^9, 
  3.777271759130324*^9}, {3.777359312473584*^9, 3.777359397035816*^9}, {
  3.777359461283146*^9, 3.7773594931569796`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "0.7008608435735699`", "0.07937404665941127`", 
      "8.829848962859572`", "1.221453106494053`*^-14"},
     {"Tm", "1249.2613393731776`", "44.35615166793665`", "28.16433104308777`",
       "5.953908859597798`*^-54"}
    },
    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.777269912617853*^9, {3.777269955095578*^9, 3.7772699934683113`*^9}, 
   3.7772711562723055`*^9, 3.7772713004014215`*^9, 3.777271601894362*^9, {
   3.777271644167607*^9, 3.777271659354103*^9}, 3.7772717596299753`*^9, 
   3.7772718907301025`*^9, 3.7772726884141974`*^9, 3.777272746897972*^9, 
   3.7772728078160677`*^9, 3.7772728621632605`*^9, 3.7772730799053545`*^9, 
   3.777273120115696*^9, 3.777273246171217*^9, {3.7773594568231554`*^9, 
   3.777359494293249*^9}, 3.777359685059445*^9, 3.777360879197912*^9, 
   3.777808387876444*^9, 3.777808503458212*^9}],

Cell[BoxData["0.9711999645300993`"], "Output",
 CellChangeTimes->{
  3.777269912617853*^9, {3.777269955095578*^9, 3.7772699934683113`*^9}, 
   3.7772711562723055`*^9, 3.7772713004014215`*^9, 3.777271601894362*^9, {
   3.777271644167607*^9, 3.777271659354103*^9}, 3.7772717596299753`*^9, 
   3.7772718907301025`*^9, 3.7772726884141974`*^9, 3.777272746897972*^9, 
   3.7772728078160677`*^9, 3.7772728621632605`*^9, 3.7772730799053545`*^9, 
   3.777273120115696*^9, 3.777273246171217*^9, {3.7773594568231554`*^9, 
   3.777359494293249*^9}, 3.777359685059445*^9, 3.777360879197912*^9, 
   3.777808387876444*^9, 3.777808503458212*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.1051333579201816`", "0.007789571876540227`", "141.8734399574`", 
      "8.656606485362905`*^-133"},
     {"Tm", "942.5512917989807`", "8.348325899983093`", "112.90303027112172`",
       "2.8777868486236524`*^-121"}
    },
    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.777269912617853*^9, {3.777269955095578*^9, 3.7772699934683113`*^9}, 
   3.7772711562723055`*^9, 3.7772713004014215`*^9, 3.777271601894362*^9, {
   3.777271644167607*^9, 3.777271659354103*^9}, 3.7772717596299753`*^9, 
   3.7772718907301025`*^9, 3.7772726884141974`*^9, 3.777272746897972*^9, 
   3.7772728078160677`*^9, 3.7772728621632605`*^9, 3.7772730799053545`*^9, 
   3.777273120115696*^9, 3.777273246171217*^9, {3.7773594568231554`*^9, 
   3.777359494293249*^9}, 3.777359685059445*^9, 3.777360879197912*^9, 
   3.777808387876444*^9, 3.777808503505076*^9}],

Cell[BoxData["0.9977139177365456`"], "Output",
 CellChangeTimes->{
  3.777269912617853*^9, {3.777269955095578*^9, 3.7772699934683113`*^9}, 
   3.7772711562723055`*^9, 3.7772713004014215`*^9, 3.777271601894362*^9, {
   3.777271644167607*^9, 3.777271659354103*^9}, 3.7772717596299753`*^9, 
   3.7772718907301025`*^9, 3.7772726884141974`*^9, 3.777272746897972*^9, 
   3.7772728078160677`*^9, 3.7772728621632605`*^9, 3.7772730799053545`*^9, 
   3.777273120115696*^9, 3.777273246171217*^9, {3.7773594568231554`*^9, 
   3.777359494293249*^9}, 3.777359685059445*^9, 3.777360879197912*^9, 
   3.777808387876444*^9, 3.777808503505076*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0Qs0lGkYB3BJpQ3JpbWRS9mNpe1GW67/XepoR6sjm6mjZUs1baU6qsUZ
UtjaRIySy2BchnHLGDOMKLTVJhbFYgul2tKamlFt7mt3+57O2e+cOXN+53mf
93n/72ux46D3LnU1NbUf/v399//ui/wOav//IjlYb6w9Fe8gqWN8EJe+3zbO
dr7GGMEY+LJov11rE+P6Y7Bv5S7ZsuIu1cNQldjT25TaRfVwGKxtFhaM3WMs
iMS153MMZUMPGAecRAQ7rfB+Rj9j82iob3Vr5U0+ZvwwBidaVBPhFk+p/xSc
n3GQv3CA+n9Co0WOwdcpz6k/Fg39D1k7bRTUfxahj0Il8WUvqD8eRo6F60a8
lIyXJ+C4nuisxysVY91EuNf1BbsJhhirEnHMwFyo2PeKcRsP3LePw+M6XjMW
J6FyYHpJRi854Tw+bP/IRtH/hvGhC8hAUPpN378Yb0qGec7CiAUdb2n+RQwN
NnBipMM0PwXhjSwvkyayKgUJKw/c3yYZpfmpcEsUJnMbyOI0rA1N2KoXOUbz
06G8MlPAE4zTfD6ES+a6nXOZoPkZ8OH11ezUJS/PRGWKyPpBwCTNz0JGTFff
hmVTND8LrqnJUfw/yBwBuuvsD3ax1erfuVsAR99hfnoy2SMbcX0X9t7ZOI2x
PBv220va+4PVGVvlQCPXajwkjJySg96rq7IDosmauTAJsTSKOk4OycWi0ETv
1T3TGQ/kYv3Sj0u6l81gzM5DUpZb32VXDca38qD5Ov8ifzF5jRDBnk9r7frI
IiE8+Wx93Zdko3zYTAucOdlJPp2PH32H9bWyaP+RfKwxPez38vpMxpwCPFrj
ECvQnkX5CxAkMsqzPkV1DxFiTmysa/xEk/KLkDcunS85Q7YqhE53QLbzp7Mp
fyEczEYzJWofUP4iqB4Ox0Y9p/UhRbD+c6pTqE/1gSKsm7a51XcF9bOL0f5Z
8d/KRPKtYoRd3eKkaTqH8pfAyi/eryGI+kUlcDRpbhFEa1P+Uoy5sCw399C8
06Uo5cxT162n/pFSOPPsdnordCn/JVSOGUdZNGlR/kuYmIjrsLmrQ/nL0K/s
Fns60Hp5GfSTv8VtHbKBGJyILyoyM2m+pxidukmshsC5jKPFCGL7xGvs1mdc
K4bPvK+4C8Oo/kaMUe0DO+6eprptOW61aS9ZnUj7BZZDJdu2aXCI1vPLcUg6
EV0+XY9xRzn8vNMGJwzJWhLwpsIbJpPofO4SbOBc81NkkLkSmPnbeDzuofVS
Cdw1FnTwXhgwVkhwpbjKNuF9PssK+LT4WffuIftVoH9vyMD2xQsYn69At46k
LUxE9eYKLGVHpK9aRNaQYrio3d9YMo+xkxQnHc8VvTWneUekuH290+vkuDHj
EinC1qo/4fZQ3idSKA97Gda/ov1MZHCLs/pckkb9PjIEt9RWDZ6h+zsrg7pT
4R0X+/mMr8vQlsbb41JP9QkZ9KtXcm/oGTK2qwR3zpG4GgWdb38lWOY+m7oU
tL6nEjL3lNnPmskGVXhg9uiedyr1e1bBRW58LlbNlN67Cj/PYmm3H6Xz1VbB
IhdeXrZ0fls5xMrzGqyjdP+BcniOyMU3dpH5cviq7oz429F5OuQYVe5umPE7
Wasa89sL3Ldcof3dq7G1U9n4Wxjl5VZDo6tVT+VKdWk1ynqKIp+Fvn/Py/A3
NTv2C5/yNF+GsOnNN68303s61aDmpofccgOtf1KDCvG+0RVO7++/Fjd0fnWd
e9Gw/h+Lmou/
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, -0.355448373388462}, {
       46.007686206204134`, -0.39227383458843584`}, {
       92.01231118791847, -0.4290992957884097}, {
       184.02156115134716`, -0.5027502181883575}, {
       368.04006107820453`, -0.650052062988253}, {
       736.0770609319193, -0.9446557525880439}, {
       1472.1510606393488`, -1.533863131787626}, {
       2944.2990600542075`, -2.7122778901867894`}, {
       6136.253312359592, -5.267351157648153}, {
       9116.682163413447, -7.653104047871505}, {
       12038.64683145817, -9.992057936823862}, {
       12048.56854393898, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09996276578158099}, {
       46.007686206204134`, 0.0511541488055132}, {92.01231118791847, 
       0.002345531829445511}, {184.02156115134716`, -0.09527170212269015}, {
       368.04006107820453`, -0.29050617002696116`}, {
       736.0770609319193, -0.6809751058355035}, {
       1472.1510606393488`, -1.461912977452588}, {
       2944.2990600542075`, -3.0237887206867566`}, {
       6136.253312359592, -6.410293285561023}, {
       9116.682163413447, -9.572379929530628}, {
       9519.736013233523, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 7196.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777269912617853*^9, {3.777269955095578*^9, 3.7772699934683113`*^9}, 
   3.7772711562723055`*^9, 3.7772713004014215`*^9, 3.777271601894362*^9, {
   3.777271644167607*^9, 3.777271659354103*^9}, 3.7772717596299753`*^9, 
   3.7772718907301025`*^9, 3.7772726884141974`*^9, 3.777272746897972*^9, 
   3.7772728078160677`*^9, 3.7772728621632605`*^9, 3.7772730799053545`*^9, 
   3.777273120115696*^9, 3.777273246171217*^9, {3.7773594568231554`*^9, 
   3.777359494293249*^9}, 3.777359685059445*^9, 3.777360879197912*^9, 
   3.777808387876444*^9, 3.7778085035842495`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 225K", "Section",
 CellChangeTimes->{{3.777269550619585*^9, 3.777269552372235*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_225K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1.1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "1200"}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "B1", ",", "Tm1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B1", ",", " ", "Tm1"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.777270631055091*^9, 3.7772707876497235`*^9, 3.777359406095804*^9, {
   3.7773595091495457`*^9, 3.77735951497992*^9}, {3.777808461637141*^9, 
   3.7778084646066217`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0Qk01WkfB/BIjUr2Sos1qUG0eNU0qu8kJJro1aSFIqmJQnuRUjKoJGmQ
pWu7CclyuVyXu6lISUVRGlKixbVWtvLO+/5/c857z3Gcz/n+luf5P7ruPht2
yY4ZM+b733///f+/32k3jPn/32lPtPRc/RoacUbA2AsK8e+a93ffYAxftM74
Kjj1YyFj4QF0pC45WRdeRvlhKBpEBc73lFB+FEq/JzS7rL9H+Qn8/pPWkgUq
1ZQHwDnLZ5q5wyPKT2GZ573pPIvHjFtOI8dfL3Ew/CljnTNYxEqt6hfWM95x
Fjml2rIx758zZgX/fR+TIWltI/Wfg6BLpdql/SX1/wF5+/on/+5/Rf2h8HzA
DvZraab+MPRZHA7ZNf019YcjaVOzemkNWecC3N7azv9Q0Ur9F8EfvLKZVf6G
+iMQl7nv1oKbb6n/EoasZzeqvWljHBkJ4aH3h6s3v2O84DJmNLXxJy1rZ1x7
Gec1v7OmKHcw9o3Ca1MjI+1ysvIVdFaGjkP7e8a5V6Bh7bfc/vcPjB2iYTO9
bvhsyEfG3dFIjls3dsHyT7T/KhYatXAPmHfS/j9hq9miGdNCrv0T7ultSgbp
Utofg/BIk4kXU7pofyyixNufWW/ppv2xsI175/Y6g+wQB/8NubtfLOyh/XH4
9MseXaWj5MhriLSLcPCS6aX98Sh5lN1h6kaujYf00LyLjRyybwIue06uDZLv
o/2J2F35cDL3FDk3EYVxsl/12sgOSfDiPGXPOd1P+5OwfrQ+nF9LjrwO8Vp2
YJTvZ8YaLLCbNY9p88h7WBgxcQlzt/3CuJgF+UfmAyMqXxnLJ8Mt7JBkvy7Z
ORk+XVVxVu7kjGTonBsyy9QcYDyQjAMu/UF5XuQ1KdisybaY1EqOTYHuo+2N
Z3cMMu5IQbn8/IJgD/LSVBQvMzKUfiWHpkLa7uO3KmeIcUMqhgt26jTNHWY8
Lw1NfQGlE33Jx9Kg+0pWPyWEXJmGVUpTVessR+j+6VhdYF1wspa8Jx1u7pdv
VKV/o/un41jHtBXGL8nybNTnNOhpKX2n+7NRaTompHo7OYON+DPHtfRzyQNs
rHvk4NPWR15zA+eCpl2Uqo4RMve/AZUG/vmD3aN0/xu4t+LahxIfypdm4MST
btWeNeTQDJSVKC3+LZ7ckAGp5vibkn7yvJu4tr/fs8tUhvGxm8i/5x0j40mu
vInAzSHvBrLJGpn4V/MnPc9y8p5McEJCjI/mkIszoSDzxDFxgCyfhSl9cy4+
GSfL2DkLJUKjVKP55Iws/DhlAVvjBXkgC1mvWVtHn5DXZGPONT1BgupYun82
Bq9Gt2zaRO7IRmya451JW8lLb0HB76PzkURy6C1opXm8HrdUju5/C4OOsTvG
G5Dn5cDtiJJ0oInqj+XgN8fA4+njKK/MgcMi8bCmN1njNiS14t5ZN8h7bkPt
fKekNpZcfBvOGk6NirLjGMvlYq1Jf/3AWbJxLoa1VrQq+5OdchGl8C7VbRM5
IBdlh9U7LZTHM07LxV4b/blVCuQHufhjUlzE7F6q78+F9auuA0sMKJ+Vh7sP
hy2TvH9gvDoPajcTYLKGcu88dH1jRex4RY7Ow9Ud+xMmz6B6fh4+9724MOZn
8ts8rM1VPW00RFbIh3+dh7fVRHnGZvmYXHrPb3EH5dvyUcvV+PbrWsqD83En
5bGKqw05Ox/iTLsD6++T6/JhZbbRwjSOPJKP5sVuQaLrZP0C3A8ZdVnMItsX
YPqbz9fsx09gfKgAO1PNTGUyyQkFEJx3NlorR64owCGFTsyOIn8qgPZIvo/f
abI6B4vX5+vp7iNbcJAU3cWd2j2RsQcHBi4V7es/UH6Bg35porVtDuUcDpoz
nOy9RshNHDj+7LH6mg1ZrhBBc7P7FYsnMTYuBMf085mrBZQ7FUInLPKHdTMp
DyjEkHTv7ku2CozTCsFT579/e5L8oBChy0s7qrlU318IizONhnJB5FlFePi+
YL/hWapfXYSxn5+P1w2fzNi7CKaWk8zegBxdBO1udmyqO5lfhNiwCU4bCxTp
/Yugfv1Mj90FmqfARU2rv8QzlurNuNgZvPbl7HXkbVz8uKvZbaUr9QdzYVXf
m6kTQc7mwmNJzKatWlRfx8Ws5wdTd6ZQPsJF/9HHqxfwyPrFWMg7OVLyjvbb
F8PW+eWLD6uU6f2LMddQNu+urRK9fzG+v0v075WlvKIYA1FhV/TjKP9UDIV1
woklIWT1EswZNbl+uoX2WZSgQdmMJbpDuUcJchaV79N4RPMulGBwZs5QlCWZ
UwJ9zrdVS/5xUwmkbpWL9xmT5Xh4NfSX5dIdZGMe1sitvGo/SnbiwePLtD47
E3IADzurrgjYHuQ0HhoamvM0tpAf8KBdH2TpG6BC78/Dz8V6Be3ZlM8qRaHc
BrtxR1Xp/UvR3HPHVukl3ce7FLf9M68/rKX+6FKslh0WehVTP78Ud+NfDxZx
qf9tKVS/PF2W7EP1CnzIqY3OZ6WTzfg4X7NjvWkZ9W/jY4WZzTpEkoP5UJ9n
cNBfneZl86G8xMZKmEz9dXywzhedULpN+QgfV7qd3ausyfpl2NiOJxc0yfZl
+POvTqnpXTV6/zIkOPzFO7Gd8oQyRNnaDOicofkVZbDV+yBOKqf8UxlS3Qqv
tkZTrl6OVPfj+z520XktytGn/f2XqR6Ue5SDK0ndbRdCvlCOsw912xs5NI9T
DsWlOt3P/kVuKsfow+Uzx/5zXzkBEl0NHUOT6LzGArjcOuXHKaN5TgKceh57
Q6RFeYAATVnpZaYHqD9NAMMjr3ZpyanT+wuwt+WHjAf6VN8vgC+rsYu3gqwo
xLPsxK8PeqhfT4iP7uw0bjX1mwvRcNEu/bIe1a8VgpV86KurzlTGrkK0DmkY
KqZNYXxAiL6IkobyNuoPEWLuoGL6W23KrwnhZyXtVYmneTlCWJ1Vdk3xIYuF
OHr5pn53O53nmRAzfrKqqXpD8z4I4WJ0q+29I837LoSi2cyFxizKVUWQyY+Y
0xpHNhAhdKUMW3cfeZkIaa6b2MfkaN+vIkzTXWFeH0jz3EWY7zKh1W4O3e+I
CLZqLrtFxuRwER5zhFtsMqg/SQRNV62Vec+oP1+EGr/GhsCfyHdFiKn9I94k
RpvxCxF+aS0cu9NXg7FUhEs7s5LzTtB8WTECvFpCVTOmMZ4qhnzY8YtzpbTP
UIyU25tVFz4krxCjlzM1YeYeqt8gho5CypUtQvp+nmKkGhz/ZCqg85wQY6Az
XGajkxbjCDGmWgc8Simn75MihoHIeNug83TGRWL0qGmYs49Q/30xwrcHX3Jr
I/eKUX3dvOZULJ1/vAT6QyZ7zJzpPDMk2JoUvjkmTIexiQSOfcpbLX+l/lUS
LHdOLM0UUv1eCcTHkO8VRA6UQLrGYYlgCjlKAtYdm9u3LGkfWwLfyrpA82H6
njwJ2gJ0Dp6To/k1Eizb1tC0rZPu1yrBtNr70p5R8hcJnmYWTuBOpnkTK+Cm
uZpXo0jWqsDTlSvVrLxnMl5UgVetSirznGYK/wN40Gsf
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530762878391681}, {
       46.007686206204134`, 0.05697044129915475}, {92.01231118791847, 
       0.018633253814393007`}, {
       184.02156115134716`, -0.058041121155131006`}, {
       368.04006107820453`, -0.21138987109417876`}, {
       736.0770609319193, -0.5180873709722745}, {
       1472.1510606393488`, -1.1314823707284658`}, {
       2944.2990600542075`, -2.358272370240848}, {
       6136.253312359592, -5.0182342471620025`}, {
       9116.682163413447, -7.501924956373548}, {
       12038.64683145817, -9.936895513077484}, {
       12114.37221576519, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530762878391681}, {
       46.007686206204134`, 0.05697044129915475}, {92.01231118791847, 
       0.018633253814393007`}, {
       184.02156115134716`, -0.058041121155131006`}, {
       368.04006107820453`, -0.21138987109417876`}, {
       736.0770609319193, -0.5180873709722745}, {
       1472.1510606393488`, -1.1314823707284658`}, {
       2944.2990600542075`, -2.358272370240848}, {
       6136.253312359592, -5.0182342471620025`}, {
       9116.682163413447, -7.501924956373548}, {
       12038.64683145817, -9.936895513077484}, {
       12114.37221576519, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10340.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777270784653678*^9, 3.7772707879775505`*^9}, 
   3.7772711566640406`*^9, 3.7772713006044984`*^9, 3.777271602113061*^9, {
   3.777271644433169*^9, 3.7772716596040516`*^9}, 3.7772718909488*^9, 
   3.777272688775834*^9, 3.7772727472103987`*^9, 3.777272808189698*^9, 
   3.777272862445503*^9, 3.77727308014095*^9, 3.7772731203968725`*^9, 
   3.7772732463899145`*^9, 3.7773595454453*^9, 3.777359685329023*^9, 
   3.7773608794673743`*^9, 3.7778083897602644`*^9, 3.7778085037358074`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777269553594076*^9, 3.777269553812641*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm2", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm2", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772696220595455`*^9, 3.777269650475507*^9}, 
   3.7772699451541553`*^9, 3.7773595239533634`*^9, {3.7773595679764338`*^9, 
   3.77735957006608*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "0.8598314683521879`", "0.03655291152651578`", 
      "23.522926969263693`", "1.6047887069231478`*^-65"},
     {"Tm", "1698.9766971939737`", "20.529721181032123`", "82.7569299267297`",
       "1.0496418754170829`*^-184"}
    },
    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.777270790170189*^9, 3.7772711567290096`*^9, 3.777271300682605*^9, 
   3.7772716021755476`*^9, {3.777271644495654*^9, 3.7772716597133975`*^9}, 
   3.7772718910269084`*^9, 3.777272688869562*^9, 3.7772727472728834`*^9, 
   3.777272808252183*^9, 3.7772728625079875`*^9, 3.777273080203435*^9, 
   3.7772731204749784`*^9, 3.7772732464680223`*^9, 3.777359547293723*^9, 
   3.777359685401463*^9, 3.7773608795397625`*^9, 3.777808390010168*^9, 
   3.7778085038139133`*^9}],

Cell[BoxData["0.9917996164805384`"], "Output",
 CellChangeTimes->{
  3.777270790170189*^9, 3.7772711567290096`*^9, 3.777271300682605*^9, 
   3.7772716021755476`*^9, {3.777271644495654*^9, 3.7772716597133975`*^9}, 
   3.7772718910269084`*^9, 3.777272688869562*^9, 3.7772727472728834`*^9, 
   3.777272808252183*^9, 3.7772728625079875`*^9, 3.777273080203435*^9, 
   3.7772731204749784`*^9, 3.7772732464680223`*^9, 3.777359547293723*^9, 
   3.777359685401463*^9, 3.7773608795397625`*^9, 3.777808390010168*^9, 
   3.7778085038139133`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.0758846277330725`", "0.003272915880475551`", 
      "328.72358075293636`", 
      "8.108459822091461687670488223730625323999731187915167`15.\
954589770191005*^-334"},
     {"Tm", "1435.4088103553322`", "5.681813082551195`", 
      "252.63217735258868`", "4.3186301565596365`*^-305"}
    },
    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.777270790170189*^9, 3.7772711567290096`*^9, 3.777271300682605*^9, 
   3.7772716021755476`*^9, {3.777271644495654*^9, 3.7772716597133975`*^9}, 
   3.7772718910269084`*^9, 3.777272688869562*^9, 3.7772727472728834`*^9, 
   3.777272808252183*^9, 3.7772728625079875`*^9, 3.777273080203435*^9, 
   3.7772731204749784`*^9, 3.7772732464680223`*^9, 3.777359547293723*^9, 
   3.777359685401463*^9, 3.7773608795397625`*^9, 3.777808390010168*^9, 
   3.7778085038607783`*^9}],

Cell[BoxData["0.9990142756700933`"], "Output",
 CellChangeTimes->{
  3.777270790170189*^9, 3.7772711567290096`*^9, 3.777271300682605*^9, 
   3.7772716021755476`*^9, {3.777271644495654*^9, 3.7772716597133975`*^9}, 
   3.7772718910269084`*^9, 3.777272688869562*^9, 3.7772727472728834`*^9, 
   3.777272808252183*^9, 3.7772728625079875`*^9, 3.777273080203435*^9, 
   3.7772731204749784`*^9, 3.7772732464680223`*^9, 3.777359547293723*^9, 
   3.777359685401463*^9, 3.7773608795397625`*^9, 3.777808390010168*^9, 
   3.7778085038774614`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.007333333333333334],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0Qk01WkfB/BIjUr2Sos1qUG0eNU0qu8kJJro1aSFIqmJQnuRUjKoJGmQ
pWu7CclyuVyXu6lISUVRGlKixbVWtvLO+/5/c857z3Gcz/n+luf5P7ruPht2
yY4ZM+b733///f+/32k3jPn/32lPtPRc/RoacUbA2AsK8e+a93ffYAxftM74
Kjj1YyFj4QF0pC45WRdeRvlhKBpEBc73lFB+FEq/JzS7rL9H+Qn8/pPWkgUq
1ZQHwDnLZ5q5wyPKT2GZ573pPIvHjFtOI8dfL3Ew/CljnTNYxEqt6hfWM95x
Fjml2rIx758zZgX/fR+TIWltI/Wfg6BLpdql/SX1/wF5+/on/+5/Rf2h8HzA
DvZraab+MPRZHA7ZNf019YcjaVOzemkNWecC3N7azv9Q0Ur9F8EfvLKZVf6G
+iMQl7nv1oKbb6n/EoasZzeqvWljHBkJ4aH3h6s3v2O84DJmNLXxJy1rZ1x7
Gec1v7OmKHcw9o3Ca1MjI+1ysvIVdFaGjkP7e8a5V6Bh7bfc/vcPjB2iYTO9
bvhsyEfG3dFIjls3dsHyT7T/KhYatXAPmHfS/j9hq9miGdNCrv0T7ultSgbp
Utofg/BIk4kXU7pofyyixNufWW/ppv2xsI175/Y6g+wQB/8NubtfLOyh/XH4
9MseXaWj5MhriLSLcPCS6aX98Sh5lN1h6kaujYf00LyLjRyybwIue06uDZLv
o/2J2F35cDL3FDk3EYVxsl/12sgOSfDiPGXPOd1P+5OwfrQ+nF9LjrwO8Vp2
YJTvZ8YaLLCbNY9p88h7WBgxcQlzt/3CuJgF+UfmAyMqXxnLJ8Mt7JBkvy7Z
ORk+XVVxVu7kjGTonBsyy9QcYDyQjAMu/UF5XuQ1KdisybaY1EqOTYHuo+2N
Z3cMMu5IQbn8/IJgD/LSVBQvMzKUfiWHpkLa7uO3KmeIcUMqhgt26jTNHWY8
Lw1NfQGlE33Jx9Kg+0pWPyWEXJmGVUpTVessR+j+6VhdYF1wspa8Jx1u7pdv
VKV/o/un41jHtBXGL8nybNTnNOhpKX2n+7NRaTompHo7OYON+DPHtfRzyQNs
rHvk4NPWR15zA+eCpl2Uqo4RMve/AZUG/vmD3aN0/xu4t+LahxIfypdm4MST
btWeNeTQDJSVKC3+LZ7ckAGp5vibkn7yvJu4tr/fs8tUhvGxm8i/5x0j40mu
vInAzSHvBrLJGpn4V/MnPc9y8p5McEJCjI/mkIszoSDzxDFxgCyfhSl9cy4+
GSfL2DkLJUKjVKP55Iws/DhlAVvjBXkgC1mvWVtHn5DXZGPONT1BgupYun82
Bq9Gt2zaRO7IRmya451JW8lLb0HB76PzkURy6C1opXm8HrdUju5/C4OOsTvG
G5Dn5cDtiJJ0oInqj+XgN8fA4+njKK/MgcMi8bCmN1njNiS14t5ZN8h7bkPt
fKekNpZcfBvOGk6NirLjGMvlYq1Jf/3AWbJxLoa1VrQq+5OdchGl8C7VbRM5
IBdlh9U7LZTHM07LxV4b/blVCuQHufhjUlzE7F6q78+F9auuA0sMKJ+Vh7sP
hy2TvH9gvDoPajcTYLKGcu88dH1jRex4RY7Ow9Ud+xMmz6B6fh4+9724MOZn
8ts8rM1VPW00RFbIh3+dh7fVRHnGZvmYXHrPb3EH5dvyUcvV+PbrWsqD83En
5bGKqw05Ox/iTLsD6++T6/JhZbbRwjSOPJKP5sVuQaLrZP0C3A8ZdVnMItsX
YPqbz9fsx09gfKgAO1PNTGUyyQkFEJx3NlorR64owCGFTsyOIn8qgPZIvo/f
abI6B4vX5+vp7iNbcJAU3cWd2j2RsQcHBi4V7es/UH6Bg35porVtDuUcDpoz
nOy9RshNHDj+7LH6mg1ZrhBBc7P7FYsnMTYuBMf085mrBZQ7FUInLPKHdTMp
DyjEkHTv7ku2CozTCsFT579/e5L8oBChy0s7qrlU318IizONhnJB5FlFePi+
YL/hWapfXYSxn5+P1w2fzNi7CKaWk8zegBxdBO1udmyqO5lfhNiwCU4bCxTp
/Yugfv1Mj90FmqfARU2rv8QzlurNuNgZvPbl7HXkbVz8uKvZbaUr9QdzYVXf
m6kTQc7mwmNJzKatWlRfx8Ws5wdTd6ZQPsJF/9HHqxfwyPrFWMg7OVLyjvbb
F8PW+eWLD6uU6f2LMddQNu+urRK9fzG+v0v075WlvKIYA1FhV/TjKP9UDIV1
woklIWT1EswZNbl+uoX2WZSgQdmMJbpDuUcJchaV79N4RPMulGBwZs5QlCWZ
UwJ9zrdVS/5xUwmkbpWL9xmT5Xh4NfSX5dIdZGMe1sitvGo/SnbiwePLtD47
E3IADzurrgjYHuQ0HhoamvM0tpAf8KBdH2TpG6BC78/Dz8V6Be3ZlM8qRaHc
BrtxR1Xp/UvR3HPHVukl3ce7FLf9M68/rKX+6FKslh0WehVTP78Ud+NfDxZx
qf9tKVS/PF2W7EP1CnzIqY3OZ6WTzfg4X7NjvWkZ9W/jY4WZzTpEkoP5UJ9n
cNBfneZl86G8xMZKmEz9dXywzhedULpN+QgfV7qd3ausyfpl2NiOJxc0yfZl
+POvTqnpXTV6/zIkOPzFO7Gd8oQyRNnaDOicofkVZbDV+yBOKqf8UxlS3Qqv
tkZTrl6OVPfj+z520XktytGn/f2XqR6Ue5SDK0ndbRdCvlCOsw912xs5NI9T
DsWlOt3P/kVuKsfow+Uzx/5zXzkBEl0NHUOT6LzGArjcOuXHKaN5TgKceh57
Q6RFeYAATVnpZaYHqD9NAMMjr3ZpyanT+wuwt+WHjAf6VN8vgC+rsYu3gqwo
xLPsxK8PeqhfT4iP7uw0bjX1mwvRcNEu/bIe1a8VgpV86KurzlTGrkK0DmkY
KqZNYXxAiL6IkobyNuoPEWLuoGL6W23KrwnhZyXtVYmneTlCWJ1Vdk3xIYuF
OHr5pn53O53nmRAzfrKqqXpD8z4I4WJ0q+29I837LoSi2cyFxizKVUWQyY+Y
0xpHNhAhdKUMW3cfeZkIaa6b2MfkaN+vIkzTXWFeH0jz3EWY7zKh1W4O3e+I
CLZqLrtFxuRwER5zhFtsMqg/SQRNV62Vec+oP1+EGr/GhsCfyHdFiKn9I94k
RpvxCxF+aS0cu9NXg7FUhEs7s5LzTtB8WTECvFpCVTOmMZ4qhnzY8YtzpbTP
UIyU25tVFz4krxCjlzM1YeYeqt8gho5CypUtQvp+nmKkGhz/ZCqg85wQY6Az
XGajkxbjCDGmWgc8Simn75MihoHIeNug83TGRWL0qGmYs49Q/30xwrcHX3Jr
I/eKUX3dvOZULJ1/vAT6QyZ7zJzpPDMk2JoUvjkmTIexiQSOfcpbLX+l/lUS
LHdOLM0UUv1eCcTHkO8VRA6UQLrGYYlgCjlKAtYdm9u3LGkfWwLfyrpA82H6
njwJ2gJ0Dp6To/k1Eizb1tC0rZPu1yrBtNr70p5R8hcJnmYWTuBOpnkTK+Cm
uZpXo0jWqsDTlSvVrLxnMl5UgVetSirznGYK/wN40Gsf
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, -0.15102067777584266`}, {
       46.007686206204134`, -0.17809852119635317`}, {
       92.01231118791847, -0.20517636461686356`}, {
       184.02156115134716`, -0.2593320514578844}, {
       368.04006107820453`, -0.36764342513992604`}, {
       736.0770609319193, -0.5842661725040094}, {
       1472.1510606393488`, -1.0175116672321758`}, {
       2944.2990600542075`, -1.8840026566885086`}, {
       6136.253312359592, -3.762753705821325}, {
       9116.682163413447, -5.517003105460723}, {
       12038.64683145817, -7.236841095511225}, {
       15208.269752978562`, -9.102448155781877}, {
       16733.18942082863, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.07314110004443929}, {
       46.007686206204134`, 0.041091258459360826`}, {92.01231118791847, 
       0.00904141687428233}, {184.02156115134716`, -0.055058266295874465`}, {
       368.04006107820453`, -0.18325763263618833`}, {
       736.0770609319193, -0.4396563653168161}, {
       1472.1510606393488`, -0.9524538306780717}, {
       2944.2990600542075`, -1.9780487614005826`}, {
       6136.253312359592, -4.201773618931047}, {
       9116.682163413447, -6.278135997058053}, {
       12038.64683145817, -8.313768387611235}, {
       14459.078544180682`, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10340.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777270790170189*^9, 3.7772711567290096`*^9, 3.777271300682605*^9, 
   3.7772716021755476`*^9, {3.777271644495654*^9, 3.7772716597133975`*^9}, 
   3.7772718910269084`*^9, 3.777272688869562*^9, 3.7772727472728834`*^9, 
   3.777272808252183*^9, 3.7772728625079875`*^9, 3.777273080203435*^9, 
   3.7772731204749784`*^9, 3.7772732464680223`*^9, 3.777359547293723*^9, 
   3.777359685401463*^9, 3.7773608795397625`*^9, 3.777808390010168*^9, 
   3.777808503939952*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 250K", "Section",
 CellChangeTimes->{{3.777269555043821*^9, 3.7772695579719195`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_250K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1.3"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "1800"}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "B1", ",", "Tm1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B1", ",", " ", "Tm1"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772708117208014`*^9, 3.77727081506726*^9}, 
   3.777359411041271*^9, {3.777359562225442*^9, 3.7773596084778748`*^9}, {
   3.7778084679610186`*^9, 3.77780846912774*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxdlGlUU+cahRkcaxS0FKI4gApcNNpUxHnYarGKFJVrNTigoBQHagVLK1Cl
WpkUERAxigwiokBE5lEgCSSBEOaCKUVwQFAMotbihNLey/v9uJe1WKxnPWe/
+3u/cxamLt87uOpoaWlp/vn9z9/Bn93Q+p+fAxAn3K3f5nit9L/4iwdOrTJ7
vyk7l9gLs+IrRReDJcTeUD3nQ7dGRnwUzyZ7qw86VA2y+BeUarlynD3qiE9g
6m8pKWnjGolP4kKF3x6vJU3EAfA/diZ8Vesd4iDsGjXhvGRBC/Ep+NyfLdRu
byUOgZVF1VLxV+3EofAWSOUm+fcGeVcY1v6h+N2r6D5xOE6ZN7ddznlAHIGh
vI6yqE86iM/BN9Lx6oDuI+JIBIbsja7c10l8Hiu/Np6beLaLOAq7S014c9c9
Jr6A+2v6oncUPCEWIrLURN57o5v4It5mvQgJkz4lvgTrCZ2OVYka4mgMzV3x
wbSlh/gyfN3HbCx49Yw4BjPrZYsUOs+JY6EM63RVRDCOg4l9x+KUJS8GmR+P
JoP+D0seEKfHw0GDHZGrXpK/AkHQEaPZI/8kfwWt9jP8jVcS8xNwOKjAx2nE
K/IJ8HsxLd45kJh/FZ83pznYdzJ/FRl1QbYNsX+RT0RE4pYd2bZ95BPRa58c
m5FLzL+GdXOn3nNa9Jr8NWzTM6/9bICYnwSHZpHdca835JOwNM5KcnbdW/LX
4TdkdnFUDHH6dWTmhfYYtTN/AxYWRrNTG96Rv4GicwO/1k95Tz4Zdidap23S
6iefjHzfMJnJNGJ+CkrTRXMs05hPgcumWdeiN38gn4rx4wr/+GXKR/KpWD/8
za9d1sR8EU5zTQNef2RehBfLLhjvtx0gfxO2ffFPa8doiQf9TZQkHXBrWUDM
T8NJz6K8sanMp2GVreN+3h/M38KTSfNN0uZqk7+F7vi4M78vJeamo7vafc2H
MGJBOhZrJ+gdziYWpmPF2RTtIugMsjod0uadPkvNiLkZsPl3ycrpBcSCDDg1
DLc0qSYWZuDAF76RvCaWz4CZJPHm/ZO6lM/ElTqPBkUSsSATmx556K7+kViY
if3yfpOPY4dQPhMBsXOCmzKIuVmI9/ctLw0iFmSh16ck4KDlUMpn4cq9WF7S
WmJ1Fsaru2zObSPmZkN7eIZwRhqxIBuNveENi9JZPhv6oqXN/tHDKP9/zM1B
xqFQG84aYkEOlu/df3VLK7EwB7cyd6S0l7B8DmQLvZY5+QynfC7eVng8bski
FuQiivO0TbJ8BOVz8f05y8/b8ojVuZhTeP2CdBgxNw9x3dKAnBxiQR68tS96
faxg+TysMF/+cvU3Iymfh9ujNQVNK4i5+Vind1O85hXL5+NQ+HSfkiefUD4f
6sW2cW5Cls/HzqSWa35F5LkFMFj/3jW4dBTlCzB9Y4DJIwtiYQF4plHqvXJ6
Xl2AUEO9NtkB8txC9OpHbEwexvKFMLMTrlv5iuULEdq+Zezdt8TqQmww95yZ
5MChfBF+3+bT1DJkNOWLMHz+vtXlP5IXFsEy2PMHy4fE6iIYLWh87l3O8rdR
nL7Yy/gay9+GYV+LKNuVWHgbeuHfpzxuHEP52whP2H1CdoKYW4xPU98H7vmO
5Ytxa4retKYK8sJivFn+4KeYp+TVxei9bGPuc1eP8iWo/Sro3LxefcqXYMvL
L4ddbCUvLEHos705unfJq0vgJW99l2bO8qVI1XSsvV5HLCjFfvux4fYG9Lyw
FAtXHL7j9IDlS9FoqRKmRNDzHDE2vOR/p/8DeZ4YnTH3Iq22jx1kOzHy353V
md41bpDdxTDcwlHqBpEPEeOrxlS+aiaxSPzP/xvlXacimqcSo6ggRntYCnmN
GCGC2HbxQmKOBKYcN4lBGDFPgpNux7vbkj6lfgl23PTzyC4m7y5BvejNrf44
1i9BbaX25VthdD6RBJ8UHk+I3EmskqA78OiL7WdpnkaCZff25r0FeY4UB91y
7vhbk+dJ4Xx6rZPVfPJ2UpjoPF/3bj/bXwpJj9tW9X3WL0VWRMf4lu2sXwqz
3+SfR/t9Rv1S6HWEecxZTF4jxelzS4028ll/GbJv8mfOecr2L0PoT2dWrExm
/WVwru1pftBvQP1luFGxVTvoIfmQMsxbop8Qs4HOLyrDPrPa1ncGrL8MNc/F
Ye6VbP8yuHxh3KrOY/3l2GPT0zVVSPN55dj+hWdHvxuxXTlsVC4RP1dR3r0c
8l7PfS93kQ8ph33lROtgdj5ROfStFkTrzCRWlSO225U70c+Q+stRGDbLefIh
Oh9HhpG7TDdP+Zbdvwyz+M2KnkDydjL01A7Iwi6y/WV4HR67WeTDpX4ZnB63
+/A/pfkiGbZFnY6+8NqY+mXolE78zMmM8hoZggN7lEEC1ieHo+kPlUYjKG8n
x6Uz3fHFAcTuctiH28oOH2N9crgUKboe2bD3LYf1wdfKLw3ZvnIcOBGo4Yw2
oT45VllFX9KeN4n2VeBry2bXcXrsvhXoGu3joFvF7luBQ8dUQycZ0f7uCvj/
a4NFcDKdJ0SB0DrL5p6F5EUKrN9U8zhKTvuoFBj9ZGvIN21G1FeB/qNX95yc
TPfBq0CmU/so0Th2vxW4uyfk1GYbet69Ajqy0ORRORNofgW8n5TEODvR/qoK
RM3zrZe5sPdXCUdu3nSLJZTnVWJWeuOzDy7EdpXwshB4rlGy+6yEpaK9r2IX
u89KjL+zdSJXQs+LKtH2QTs97SB5jhKetefD6+upj6fEz+0DMx6VsflKnGj4
duR5XTZfiQlHtBxNvcbTfCXS78wy+NKHfQ9K6FxM2T3VhX2PSux2rlvfPJaY
V4VtCR1P9CexeVUoid7bOHsf+76r0NS3586M1RNpXhVEsTcWB3VSn6YKyivC
+VZr2ftWodis49KkXeR5Ksgkbr1jAtn5Vci6Fz5Z0GBKfSrsEPV5Ga2nfpUK
mxRHn9qtpHkaFRrEE44e8aXvi1ONKf5/Dei40H3xqnFw/O6P3YZ0PrtqDHOp
M/xzCOXdq7G+61Dq6x/ZPtUwM+cbJ16g962qRtp8zznCh3QeTTU6j/3qZq1D
nlODnWXjqsfY0LyQGnToHHnjVDGZ5tVgY13UGIdG2k9Vg1GySF1vCzqPpgbL
HtvN8A2j98GpheDr3M3mcna+WnhbP7I89A3lQ2qh2bJg7erwqTS/FlP/cjj1
8DibV4s4+9SmpBHEhnVYdIafzH04Qfw3LwcG+g==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.26236256378721895`}, {
       46.007686206204134`, 0.2368044387973776}, {92.01231118791847, 
       0.2112463138075364}, {184.02156115134716`, 0.16013006382785377`}, {
       368.04006107820453`, 0.05789756386848871}, {
       736.0770609319193, -0.14656743605024183`}, {
       1472.1510606393488`, -0.5554974358877026}, {
       2944.2990600542075`, -1.3733574355626241`}, {
       6136.253312359592, -3.1466653535100604`}, {
       9116.682163413447, -4.80245915965109}, {
       12038.64683145817, -6.425772864120382}, {
       15208.269752978562`, -8.186674487187265}, {
       18166.367273247422`, -9.830061998447743}, {
       18472.255676041485`, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.26236256378721895`}, {
       46.007686206204134`, 0.2368044387973776}, {92.01231118791847, 
       0.2112463138075364}, {184.02156115134716`, 0.16013006382785377`}, {
       368.04006107820453`, 0.05789756386848871}, {
       736.0770609319193, -0.14656743605024183`}, {
       1472.1510606393488`, -0.5554974358877026}, {
       2944.2990600542075`, -1.3733574355626241`}, {
       6136.253312359592, -3.1466653535100604`}, {
       9116.682163413447, -4.80245915965109}, {
       12038.64683145817, -6.425772864120382}, {
       15208.269752978562`, -8.186674487187265}, {
       18166.367273247422`, -9.830061998447743}, {
       18472.255676041485`, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 16472.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772708127360196`*^9, 3.7772708153482046`*^9}, 
   3.7772711570726833`*^9, 3.777271300932557*^9, 3.777271602472351*^9, {
   3.777271644729974*^9, 3.77727165996441*^9}, 3.7772718913705764`*^9, 
   3.777272689168476*^9, 3.777272747507203*^9, 3.7772728084708867`*^9, 
   3.777272862851658*^9, 3.777273080423195*^9, 3.7772731207405405`*^9, 
   3.7772732467179623`*^9, {3.777359578626776*^9, 3.777359608778368*^9}, 
   3.7773596856730785`*^9, 3.7773608797811737`*^9, 3.777808391916419*^9, 
   3.7778085040664682`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772695591748247`*^9, 3.7772695594091225`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm2", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm2", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777269624351861*^9, 3.7772696542914124`*^9}, 
   3.777269947229204*^9, 3.777359528439781*^9, {3.777359591791359*^9, 
   3.777359598822785*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "0.7285712413005228`", "0.047831906765846754`", 
      "15.2319087940007`", "7.284065262548403`*^-37"},
     {"Tm", "2234.9886086718716`", "36.29535179617385`", "61.57781914397859`",
       "1.4452912501101271`*^-146"}
    },
    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.7772708179902325`*^9, 3.7772711571507835`*^9, 3.7772713010106535`*^9, 
   3.7772716025504656`*^9, {3.7772716447924595`*^9, 3.777271660026903*^9}, 
   3.777271891466827*^9, 3.777272689262204*^9, 3.7772727475853095`*^9, 
   3.7772728085489883`*^9, 3.777272862929764*^9, 3.777273080516924*^9, 
   3.7772731208186474`*^9, 3.777273246796069*^9, {3.7773595836996675`*^9, 
   3.777359610615455*^9}, 3.777359685743557*^9, 3.7773608798515234`*^9, 
   3.777808392151805*^9, 3.777808504144574*^9}],

Cell[BoxData["0.9864353621310296`"], "Output",
 CellChangeTimes->{
  3.7772708179902325`*^9, 3.7772711571507835`*^9, 3.7772713010106535`*^9, 
   3.7772716025504656`*^9, {3.7772716447924595`*^9, 3.777271660026903*^9}, 
   3.777271891466827*^9, 3.777272689262204*^9, 3.7772727475853095`*^9, 
   3.7772728085489883`*^9, 3.777272862929764*^9, 3.777273080516924*^9, 
   3.7772731208186474`*^9, 3.777273246796069*^9, {3.7773595836996675`*^9, 
   3.777359610615455*^9}, 3.777359685743557*^9, 3.7773608798515234`*^9, 
   3.777808392151805*^9, 3.777808504144574*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.0466039820250843`", "0.0025862396578845565`", 
      "404.6817466565205`", 
      "6.00195728099150444359853918383210009371827525529862`15.\
954589770191005*^-335"},
     {"Tm", "1806.6681191414077`", "5.908443668321474`", "305.7773282713996`",
       "1.5988851567116365`*^-306"}
    },
    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.7772708179902325`*^9, 3.7772711571507835`*^9, 3.7772713010106535`*^9, 
   3.7772716025504656`*^9, {3.7772716447924595`*^9, 3.777271660026903*^9}, 
   3.777271891466827*^9, 3.777272689262204*^9, 3.7772727475853095`*^9, 
   3.7772728085489883`*^9, 3.777272862929764*^9, 3.777273080516924*^9, 
   3.7772731208186474`*^9, 3.777273246796069*^9, {3.7773595836996675`*^9, 
   3.777359610615455*^9}, 3.777359685743557*^9, 3.7773608798515234`*^9, 
   3.777808392151805*^9, 3.777808504191452*^9}],

Cell[BoxData["0.9993750548839174`"], "Output",
 CellChangeTimes->{
  3.7772708179902325`*^9, 3.7772711571507835`*^9, 3.7772713010106535`*^9, 
   3.7772716025504656`*^9, {3.7772716447924595`*^9, 3.777271660026903*^9}, 
   3.777271891466827*^9, 3.777272689262204*^9, 3.7772727475853095`*^9, 
   3.7772728085489883`*^9, 3.777272862929764*^9, 3.777273080516924*^9, 
   3.7772731208186474`*^9, 3.777273246796069*^9, {3.7773595836996675`*^9, 
   3.777359610615455*^9}, 3.777359685743557*^9, 3.7773608798515234`*^9, 
   3.777808392151805*^9, 3.777808504191452*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxdlGlUU+cahRkcaxS0FKI4gApcNNpUxHnYarGKFJVrNTigoBQHagVLK1Cl
WpkUERAxigwiokBE5lEgCSSBEOaCKUVwQFAMotbihNLey/v9uJe1WKxnPWe/
+3u/cxamLt87uOpoaWlp/vn9z9/Bn93Q+p+fAxAn3K3f5nit9L/4iwdOrTJ7
vyk7l9gLs+IrRReDJcTeUD3nQ7dGRnwUzyZ7qw86VA2y+BeUarlynD3qiE9g
6m8pKWnjGolP4kKF3x6vJU3EAfA/diZ8Vesd4iDsGjXhvGRBC/Ep+NyfLdRu
byUOgZVF1VLxV+3EofAWSOUm+fcGeVcY1v6h+N2r6D5xOE6ZN7ddznlAHIGh
vI6yqE86iM/BN9Lx6oDuI+JIBIbsja7c10l8Hiu/Np6beLaLOAq7S014c9c9
Jr6A+2v6oncUPCEWIrLURN57o5v4It5mvQgJkz4lvgTrCZ2OVYka4mgMzV3x
wbSlh/gyfN3HbCx49Yw4BjPrZYsUOs+JY6EM63RVRDCOg4l9x+KUJS8GmR+P
JoP+D0seEKfHw0GDHZGrXpK/AkHQEaPZI/8kfwWt9jP8jVcS8xNwOKjAx2nE
K/IJ8HsxLd45kJh/FZ83pznYdzJ/FRl1QbYNsX+RT0RE4pYd2bZ95BPRa58c
m5FLzL+GdXOn3nNa9Jr8NWzTM6/9bICYnwSHZpHdca835JOwNM5KcnbdW/LX
4TdkdnFUDHH6dWTmhfYYtTN/AxYWRrNTG96Rv4GicwO/1k95Tz4Zdidap23S
6iefjHzfMJnJNGJ+CkrTRXMs05hPgcumWdeiN38gn4rx4wr/+GXKR/KpWD/8
za9d1sR8EU5zTQNef2RehBfLLhjvtx0gfxO2ffFPa8doiQf9TZQkHXBrWUDM
T8NJz6K8sanMp2GVreN+3h/M38KTSfNN0uZqk7+F7vi4M78vJeamo7vafc2H
MGJBOhZrJ+gdziYWpmPF2RTtIugMsjod0uadPkvNiLkZsPl3ycrpBcSCDDg1
DLc0qSYWZuDAF76RvCaWz4CZJPHm/ZO6lM/ElTqPBkUSsSATmx556K7+kViY
if3yfpOPY4dQPhMBsXOCmzKIuVmI9/ctLw0iFmSh16ck4KDlUMpn4cq9WF7S
WmJ1Fsaru2zObSPmZkN7eIZwRhqxIBuNveENi9JZPhv6oqXN/tHDKP9/zM1B
xqFQG84aYkEOlu/df3VLK7EwB7cyd6S0l7B8DmQLvZY5+QynfC7eVng8bski
FuQiivO0TbJ8BOVz8f05y8/b8ojVuZhTeP2CdBgxNw9x3dKAnBxiQR68tS96
faxg+TysMF/+cvU3Iymfh9ujNQVNK4i5+Vind1O85hXL5+NQ+HSfkiefUD4f
6sW2cW5Cls/HzqSWa35F5LkFMFj/3jW4dBTlCzB9Y4DJIwtiYQF4plHqvXJ6
Xl2AUEO9NtkB8txC9OpHbEwexvKFMLMTrlv5iuULEdq+Zezdt8TqQmww95yZ
5MChfBF+3+bT1DJkNOWLMHz+vtXlP5IXFsEy2PMHy4fE6iIYLWh87l3O8rdR
nL7Yy/gay9+GYV+LKNuVWHgbeuHfpzxuHEP52whP2H1CdoKYW4xPU98H7vmO
5Ytxa4retKYK8sJivFn+4KeYp+TVxei9bGPuc1eP8iWo/Sro3LxefcqXYMvL
L4ddbCUvLEHos705unfJq0vgJW99l2bO8qVI1XSsvV5HLCjFfvux4fYG9Lyw
FAtXHL7j9IDlS9FoqRKmRNDzHDE2vOR/p/8DeZ4YnTH3Iq22jx1kOzHy353V
md41bpDdxTDcwlHqBpEPEeOrxlS+aiaxSPzP/xvlXacimqcSo6ggRntYCnmN
GCGC2HbxQmKOBKYcN4lBGDFPgpNux7vbkj6lfgl23PTzyC4m7y5BvejNrf44
1i9BbaX25VthdD6RBJ8UHk+I3EmskqA78OiL7WdpnkaCZff25r0FeY4UB91y
7vhbk+dJ4Xx6rZPVfPJ2UpjoPF/3bj/bXwpJj9tW9X3WL0VWRMf4lu2sXwqz
3+SfR/t9Rv1S6HWEecxZTF4jxelzS4028ll/GbJv8mfOecr2L0PoT2dWrExm
/WVwru1pftBvQP1luFGxVTvoIfmQMsxbop8Qs4HOLyrDPrPa1ncGrL8MNc/F
Ye6VbP8yuHxh3KrOY/3l2GPT0zVVSPN55dj+hWdHvxuxXTlsVC4RP1dR3r0c
8l7PfS93kQ8ph33lROtgdj5ROfStFkTrzCRWlSO225U70c+Q+stRGDbLefIh
Oh9HhpG7TDdP+Zbdvwyz+M2KnkDydjL01A7Iwi6y/WV4HR67WeTDpX4ZnB63
+/A/pfkiGbZFnY6+8NqY+mXolE78zMmM8hoZggN7lEEC1ieHo+kPlUYjKG8n
x6Uz3fHFAcTuctiH28oOH2N9crgUKboe2bD3LYf1wdfKLw3ZvnIcOBGo4Yw2
oT45VllFX9KeN4n2VeBry2bXcXrsvhXoGu3joFvF7luBQ8dUQycZ0f7uCvj/
a4NFcDKdJ0SB0DrL5p6F5EUKrN9U8zhKTvuoFBj9ZGvIN21G1FeB/qNX95yc
TPfBq0CmU/so0Th2vxW4uyfk1GYbet69Ajqy0ORRORNofgW8n5TEODvR/qoK
RM3zrZe5sPdXCUdu3nSLJZTnVWJWeuOzDy7EdpXwshB4rlGy+6yEpaK9r2IX
u89KjL+zdSJXQs+LKtH2QTs97SB5jhKetefD6+upj6fEz+0DMx6VsflKnGj4
duR5XTZfiQlHtBxNvcbTfCXS78wy+NKHfQ9K6FxM2T3VhX2PSux2rlvfPJaY
V4VtCR1P9CexeVUoid7bOHsf+76r0NS3586M1RNpXhVEsTcWB3VSn6YKyivC
+VZr2ftWodis49KkXeR5Ksgkbr1jAtn5Vci6Fz5Z0GBKfSrsEPV5Ga2nfpUK
mxRHn9qtpHkaFRrEE44e8aXvi1ONKf5/Dei40H3xqnFw/O6P3YZ0PrtqDHOp
M/xzCOXdq7G+61Dq6x/ZPtUwM+cbJ16g962qRtp8zznCh3QeTTU6j/3qZq1D
nlODnWXjqsfY0LyQGnToHHnjVDGZ5tVgY13UGIdG2k9Vg1GySF1vCzqPpgbL
HtvN8A2j98GpheDr3M3mcna+WnhbP7I89A3lQ2qh2bJg7erwqTS/FlP/cjj1
8DibV4s4+9SmpBHEhnVYdIafzH04Qfw3LwcG+g==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, -0.31667123604593234`}, {
       46.007686206204134`, -0.33725506578144604`}, {
       92.01231118791847, -0.35783889551695963`}, {
       184.02156115134716`, -0.39900655498798693`}, {
       368.04006107820453`, -0.4813418739300416}, {
       736.0770609319193, -0.6460125118141509}, {
       1472.1510606393488`, -0.9753537875823691}, {
       2944.2990600542075`, -1.6340363391188057`}, {
       6136.253312359592, -3.062211068922992}, {
       9116.682163413447, -4.39574307865657}, {
       12038.64683145817, -5.703116483920181}, {
       15208.269752978562`, -7.121299515915104}, {
       18166.367273247422`, -8.44483982783942}, {
       21372.12304699195, -9.879189766495049}, {
       21642.132542686504`, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.045548925270299204`}, {
       46.007686206204134`, 0.020085131176463614`}, {
       92.01231118791847, -0.0053786629173721455`}, {
       184.02156115134716`, -0.056306251105043684`}, {
       368.04006107820453`, -0.15816142748038675`}, {
       736.0770609319193, -0.3618717802310728}, {
       1472.1510606393488`, -0.769292485732445}, {
       2944.2990600542075`, -1.5841338967351895`}, {
       6136.253312359592, -3.350896822635666}, {
       9116.682163413447, -5.000579362265722}, {
       12038.64683145817, -6.617901679013828}, {
       15208.269752978562`, -8.372304099656922}, {
       18148.97604378557, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 16472.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772708179902325`*^9, 3.7772711571507835`*^9, 3.7772713010106535`*^9, 
   3.7772716025504656`*^9, {3.7772716447924595`*^9, 3.777271660026903*^9}, 
   3.777271891466827*^9, 3.777272689262204*^9, 3.7772727475853095`*^9, 
   3.7772728085489883`*^9, 3.777272862929764*^9, 3.777273080516924*^9, 
   3.7772731208186474`*^9, 3.777273246796069*^9, {3.7773595836996675`*^9, 
   3.777359610615455*^9}, 3.777359685743557*^9, 3.7773608798515234`*^9, 
   3.777808392151805*^9, 
   3.77780850427063*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQeAlNW18LizOzNbKFIEFQEREXtDhTUiBKNGCfp88iwJim0lGhOwYkTZ
RUWwhEUj2JYmKpYnKjCggtixr0EQdDWgCGsHJbBI+/7v3F7Ovd9dRJO8PzE7
7M58c++5555z7un3N+dcPuiCS865/PfnndPxuEvPGTzo9+dd1vHYP10av5Xe
IZUq+DaV2mFZxxT8HqVS/CWK/09f1sALvB3/cxf5PR2/1qXq6urIX7uy9/jf
5Adej1C+OF75YnV5PEFFnn2xUL5XXp2qYyNg362jD6Wq66JUOz5eXXWKfrXO
nnSc8RBM2p69l69IicHIw4cjX6QPwfci8UV1MOuLd/Il8YfoktqbK6UTk68c
pnz9Mj4Hnzj+X468pul8DL1p8loUv+ZTFeX8SbqYMg1bFDOFJlipilQ+isTb
MIwcIi1Wmk9Vx8PDNwo4FPFfFdV5WBSZ35zJvSQxh39JysrFkkot9JEtadyq
Csz9i/9XJFZFvqkAYm0h+bCbsrDL2XN89ew5B6xNEmDF3i4xl8CQJQeGOfN8
aYV0w/hHFXkbEWRwx0qKyMgC/XQ1BAbfcvjz9HHvcorx5eiPukg1jcNhreUK
ZS0SS3ToEoRemxjvAUkWNYquik06UJ+WIkQwhwrtlRrmBbgEOcWmLIgh+/HQ
cp4lM1ZXx9KjnNA/zo4J4A+1lk7myOEQmYKp8cBzoOry1ULsFTLgyysowUaC
hhKAv1ohYUYPQFFZfOofD3yBuZ8pRaqWS6maDQH+zyb/0TnM78K5FQY5+Xq4
2KlIVefrHLLBAvYaXFJmEMDKQuUKwYuQK/oyGLz6GhwCpNB6W57M2BqMYTM4
vKXW0wpllGnLoF/KC9rVZDj9WgHbFrHXFcrjhI8RyWORpbWkYQihiaNfIVJ5
SErs5hBCs+aNqSTm0gx5IEPpWEAtBH+Gja5+bEHBVS1bsXAKOHRVig7C5wXI
+bxZY16pOmUMdQCQTsSG5GDCEpr44foT/I8/V648Z4JKQHEvU9KtIP1CbUnx
93fCCa89/rY1GddpVLFSka8r4ODatJlqY3CxpioreLRU5SvE6iUrcGHOZDF5
oo0JO2WxdhZe5JLUaa5kO0vPDI3ryJkRq0+pXQx4Yep2yHuWgXGXsoZy0MUi
ZbAIkAWTMOLtrnzRMqz+j7zRi3NLfW2qpirm/wr2U1WTqq2P8uLjvPZxVVUe
Pi70f/vHfTxF7Ev8MbxdU8s40PmVzE8Jz31eeFD8/KTwsKPhaBOs+CctXuMn
maycwZ+rrREj0ecy8WtVKl+viHo6VqH4WA7T2I91ICYhOCwMXEDa+dz2hPAe
H4QW6tIa6n4eCA9R9z2Xqq1hJJevTdWTR+rj96rYe/V024vJ23lCRFWpmtp6
Nkn8aJ4+CussCBty+z422YnwxK8GPrZ94b0XgTfdCCT/U4A+lNJMT/JPoYQz
FlP1kXRH6G8/xVcaC7cqOg6DPsvm40SpfU2Qkfk+OmvgYxZwmCRJN2p53rd/
YugxKZN2ojutofufCfchKh1J8F2gPs1OsHpC/1xQiu/wA04npsZ9rE/opopk
YAucz21PCLGd534uFU0/DzTmfiKkpwL1tDYD20/5HQ6Att2N/Fif0LufCcAW
OJ/bnhD69lNF088DTSP38ymTy+H9WnaoZFP1XN/hMuInhf3fc6+tM0dFYaGJ
wn9JKuCWAdch4IcqnkWxFsP00f9svQVhoRNvWYm36OfAn+NYtoGkUn8G528y
RE1MrzVkdG5cYuePHAs/YOLPgz7WIalhX4HH8jVcdRVfsQwqx4J+HmDH+4Et
DMCqZev+JIBq5BCq9+r+AUpXGd8IP7GqqZIGNabBpsrrpPHvoOuP9y+kEMF7
7p8IruFeqM9zI1IxLMV79TMN6QtyLxv21YLt+thE8lhRSjV8TZM7YYjAx7Yv
3Hcnwq0jt/ifAeShKk00wtUodCKpUMABKA9GOs5P52fk6/rX9TPiEJp4S2t4
s467nwRCJghcEYIqNUKgK0EcFn2vIz5EAV8SHUFBunMWlyucfXy/CkSMSC7Y
PF9xuebDJkz4uMYJD4YofXN/HCYSPlbDyeSFhYEOMikqOdYix3jKPUYoz8nB
nkgaLNHXKcd60j1W49QHC7yO6pBVVTF6q4De49d0qkbZTEzfC/VHsecguzOK
lwY/qQLyG3kLXqbASyG8twP8toMJXLyImppUTfyTIa9pME3DgEuwushzRTBz
Z5iZwNVF/LbXdn6P/JZG3gsYZVcUR26aCFw7hQZ+K9B/22s7v9flR8zWnv72
//2y9+ei7MeZmRIDr4m5sN+O883/o20ZBkVKFeMPmTMeQP758epw0jycoLZZ
0Uqa4GB1H8KO9qKQcfv856F/xkOxJFbOM/IjvvGAYKAdttPX/hUxYDx0C2XU
5usaNg6d8dJH82+a/NpNj8xb2nbN2g00kyppgJspg+Q2btqy5Ko7X4jOqpoV
H3zwml49aPQzZCB4onUjBjv5rSWfwxB0GPpa+fjzH6bYY6lWjRgMlmUONvHe
J/8mBmvJVtAQNdABgobt/tGK1eawg+a9+YkYtgUlnIETo4nLOkYd+dCJe5EZ
88DT7/OR4Wf2rQ+8Aei1BoxS8G8SGm6l8B70Sf13AB/AzWDLnDw9mr6ka9QV
hqpvG7UdNJ56i5KGnCi/XntQdBD/+uAx0RjAYkHIGMy/dvzsaDY2RmHIGDQX
ItNrfjR/fq+oF4yxunnUvHJ4NLz56mh1JmSMu/1j5ELGYC62g2qj2tnHR8fD
GA25KDdmcDQYxigJGeNCDyPuLceffnJ0sjp+2/qovqzRou6CQKbdk07ccVm0
jE8M//GJm2ybxDzOs9SdAyVAJwnZxIHRQA4Z/A7vNQsWyscFoqJNoDTp6Aes
RQgtHBeIhJ0CRRHNr83AlsHWAe0ATLClXZdES4Kk6XGB62/jF2IeUIC8d2oE
KInLbotIPjY/sCWwOJ8fWB/mbxsy//H+JfbQpwBpwqcAKbNLyBS/RkBn44J0
xMZtFzLu9XIMkLQgcWEMkMAgzS3LBRujyj9Gx5AxKqkIgLOMfx/OMvg+Ze2k
Aa6TA6iHIfyd6hwyAK1mKIIZ+QAACRmgS8gAtKTGeQjuFTLGUP8Ye4eMQRPW
0QMMxtg3ZIzL3WMAGe8fMsaldAzgIj4GcBcf40B0DN8x8Sc5IHbqHeQW8b5R
L6GjgtzDRj1k20a92C/1u7lHNbB4kX+gI0J2YpAuY/kYsFwYo0fIGBV+OX1k
yBjnS0GIjXFUyBjn+oXp0SFj9KesjuobGf/4vUPGP5UK60QVosAtOEEN7tOI
uRDVIMdVA5dg/lUjxkeO+Qwc82Ah8HHBcoBxLXeTZ1ztzKY4KoqOfGLI1203
tNNk+K/DNzYrDuJ4oKhsdRsYaHmHrXSgE8MHInJ46T4b94cBvm69eScuh/ua
Y9DSnEyqvjZvxSbyuAfov/2ivp85BS0bSmtJ/zxMpmb3FOhzLfbQunJScBCA
3ofeFN0EIJxsgkDLosASk25DI7eMJJigfsFFgUxxqf/oOQUHKthdbICTqFKz
Q6f7gmgBdoqdaoKzDwfHisRktEgMkkEVFmyBDxY6mVLXvdnZ5joxCQlaoQi5
AjNck9XCNUaGoYgCCzKQrlf/MhL19ov9y+iPLkPwi+KUFV5fkYFi0QXlF6cu
r5zrD50ena4exwDKmU6uVfzeIsrK3McIFO/TNzV1P0Gl+J1rau4Kr1H3SLrV
U5hfneo35LRX54Ilw1xnueYiJKyVXSBRDGOu3nIuTCsYiM8lw65YYYsjXHC0
f6pznbvHmFWPHBiFVsZcR9G5MMMSZBvVYwoHRhMnLoi6d490byA/T8w6vgp3
ROFIfT5TcTmHngMdo2XLboqGDq2P2raFieDfVNJpqBiacDbwoeHMgKG7e44Y
YnqlssdHs2c/FJ1+OswAP7BkWHouamhInP4IOT2mxvQIPFg6UFCaR6tXD47G
jFkWdewIMzZEudzEaODAg6JaFntMgucwHB6u/hwZeLLQAuEszAvzAxwwI8A1
KBo/HuCkOQ9J8NAkCtz0PSrwpGBuNtgPTpIxEmGeNOwb7B8F1wRIcrmsI29K
XvWuOPsjgB/iAfzowLOBupeyGF3D322j+vqU5W/9MUDTCKPlJwBKSP3Sf3gw
Vxggc3Z0/PEqM5wePfRQExzMwpRRdZ/G3y7E3z4AWQONxjp1z2OQ02cnyT1D
o5tu4tyzOmrefHw0aFDXaMmSVLOfbQH72QtQNdcBFNju0YIFKmstibp2Fay1
488GLFWonBrt73TWq40OOkhlPVgEeaLlzwZw1xCACcuNiQYPBhLgLAekQVjO
8ttuP2B9bhcWn8ACL0JTdJxUzBg/OZo+XWVO+B2YkzmCDSXz51nVHnJVmP77
PynXAZj97sph025sqLreZFfYu9QuP/GSDKpiERrV0Qb/jR8UDYJVnM7kqnJs
RlUX3Ba9ePAxnB2ANYTWsNvPxg4JEZwzKTsMmzVvcXTvyUOiVa3aEeLZWJgB
4Gc+efP9KcsH/pMB2x4Hlmvu7Twc0MTzWevE7xXDEQC0tXZL02YEAV81bxM9
cszA6JIrpsJukmO78YioS1UT5Vfv4+RFxFIPsLQIBfWFAn/t5uQlXZksCXyu
ReBzNI0+A5LGlD7Tn7vxHqb5cEWCPNzBRKVIG6uD3ppUgynF8WggbEkglOU6
8kz7iWrYyZpvceBzOwY+RzODs3DwwAFk6oBE2DGVT9NpkgJLSwLnZwaK6deG
sxP8RrvTYRJ18OLA59Ie8m7cGERDctplSdGmJYFzHSbRg1mm9HRL1vSLA58r
CCTmrHO8EnU8UBZBaQTlMTLsxf1MDImei3WswVc5NSl4jz7o5QSseTCKycSl
HYpjkhviXejHLvOjzP9xYSC1U7w1cQ3DjwGuFmr27AEmwngfONkBMhVPQBGm
dnRDJbxzKQxPLo/B3ogsaIa8lwkkcLqIIvW7IMjnx/SNGtEHmVjIcjGmdM0j
vcXy0HsO+iIXperyshkcOfjyUepAHSsfIGtIQMWxgZSXkyLWaWYfai5Llmtq
red4h0yjnSOmzdBdKVKjTHpEyE0DFOIM5nmCzdnNI0St/Be5EE3tsFt9OtUy
pluhro6+yLbRobOm8NHM7faBgs5KMfrxyym1lyOcIPt6MEslVBbAdxrmHRuj
HTSC3IwWm9iymBbm8ovsG4jwth4MsCom4fdlZMkt/Raer5YFiiMLMZh44f2Z
0/wzaMheXaF2RzXFC3nJ2iiCY4ijaP/AzdvJicoSFZWYW4/7GFoG7kaJU8QV
DZn96t8tNFteLF79LNHjsNVAaOcP0pH2nGdDWeTDjL9qGTIB+72TE+eZqa/c
fN/06OSTOZlxb4b7K/o2leAy9ulbpr6x9Mq/vpBG0G15MYVOBBQWH2iS6qgD
tpp1NDV0onmB23uURCLmrDo48ICjGClRkR0NuvqR6IHjK4ghazhP2gbuDbO/
VNkOSC9CcN2orN25gRvILDYzfM0zkbv5z1C6yhxBHvPFELcGUNOqVu0mvz/8
VrAUdgnEcdPGIK1ROVdzA0dmcTWXJ+0I5CRmO41ERgoJPmK8cHSxiI6OzcpZ
31x087O3THt2iZQuAbjCcSADF3VEIczHP03Ja5ooi7yrsxG4mBc46eE2elQX
3e4eWUY98sWmUxi0fxDYfT7724cCpcxPcPjHn62uv+S2uU7WbuqnzqYmw2xj
WOc5/zQMKVjIH97rFCinmFMd8y/De50DGbopQqLNvYgAs5M06YfXwpTWwhh0
A/6hEz/zkSkVpGA+0dDVsPAw99yobmqgIuK56RLI27ubWJD6rNKaPV/XXV/d
eroSM9WB+7RCZ6dkIEJOfHs1h0rXQDZ0rETvkd1DX8ZqKjUw3nS564Lhofya
hTVgnhASodrPz0R7mEuylXVCf8aqvqWnsspc5Kf/bVM3HPDmKRsMT9u+fiDY
OjAPBVAfsT4ORIh9TzfwmqWEAp8TTHD66EeiA58/M0pvyhD7b7/VR4DWcgAy
I4UUdQeDQXuiRxBbwW7MLIoJCAU2WzltwTsEyExDKWGE1iu6RsdOHkVovcAz
7XGSkyuj4cNRH2zfQFFp1VhxA0azXypAbcxDUlrS8fc1xSbPX1nbdEszsrYW
9Z2i3g8PoyAUcpLn4GHKLdVBsr1iXdPpNu0XKPusVApxe4ByKVNx8vH1pVyd
6eF5akjtHXTqQjV04NJAj6Zw+TyejDJxGtg/UFZaK8+JldfRPvvx3uZEnlW1
a18/x1fOHSuYyz8dCOJRuqhAk3M6BpLzvoFi1kKL4W+naW64D8lt5OpzsCwx
zP0AgmWPQNpNELTFCStZaa9ElJs28Q9NDRpnvg+RM3sGbvJ+CIGUmqCr5ivm
0ufX7hjm6wq6DCxNCOgVczczW82VKxd6Wpc7uSsv3TsZIVfknSyGu+cTuQLM
GXaiFBZmOp3wUFIyKcH2sk3MHaYA6e6S+9p9N8xdIP3i1dYVdsZKljHEKqXF
qouArcSbLZTxiD3KNJr7n8uEFHaIHI4vs9C8O01csqTenFSRNxb3MV2cy/9x
AhNSQYl9AcIsVLM/zFykrYYoN04Vmrfl+XJiPrRXrPo0TtAlhJqeBJqJzAgM
WMUegZIEr+faBj+7Y8ks3uXKazqBsaphW0IASiQWBqwiNBIbulp8g9GowhK5
QKywnOpdTVD2iz/B7Ec9KzFgVZ39B49VaYfds2YaanDxlMGvrMDALKHnlvMx
Tj7Mrh198dhpP/x2AN9eTUC1aJyo3QM5f6w6QDQsyY47NW6Qr/aGJd+TK8Z8
BTQEKRO/zrt2Os+jQvMgWzdS3A7Az8NC7eKoFDhNwBNSZDpISMzecOr/DV8R
r5+n9eDZ2+ZPfTqad9gJ0bpcKdmzNWU7QkLUtKmT5vFLbxMlkFXWwfWROuU0
16+9olFzA2RaauJM3WEl7KbBGS3sfGg07tSrChB+2TlQqlgrKBWnunRiEuut
jmU4SKjfxqHm1fmK0akm/nD2r3liyrMcJC11KtRhbYFu6LFvUvBcNR4MPNNa
BL6VxQ8II7b3SyKr+saA6nUdKjPfhoX8VSuP85nw5sATXRDIrGIcY2r6Tasl
gZ5tgFpVInP41oQp6J0PuCaWldNjyQ4+/8XRkgFUw4i7Z8ckQDXHKbZ1YZTG
IeS9DtKBw3T1rISyVwn/bMG426YvWHJGxRdb25AoVsPGsqYr3jju9HGzHpgH
z/f2DHVC2KoRIVasCbH4B7VaiwKFYJdAtOTkc5/WXHxLtGD/npy0N6/YZY8v
Hv7dUDhe0O/2DJzjeBMnslaLVnz6a3/nOKVmlktNFFXZQGnbJRClLGeSm29f
/LDrboTmWdYyhLVSGeR7RwWObxWBY7V0AfXLc5yiOjN+RN09mG2dC5Tuoa59
litpFmp9u65tO5LfPOjqRzilQLgvwK+UPKeFPll77bzXw117TWVmsXag9H54
2He7fNvFRB4TH87Dx+2FyKjIVe1NxoHceU0OkhJkP44K3DcHbtJaX/KAEvBn
6Eovmvzt/67ovG4f1XIGTGCRtp09wpJaWc68SMweFR6rtBvpd9w/ezGmwxzt
36ddPZBaib1YvLApEhhsJZ5LKG6Xdwc498FZFc7u+HQ5NEKTsGi2lGYmcPuY
nwma256arzl4HtKCxk2auYgjrc/ij7/iY/gcQd0RimkXCC6xPq0i9tCIttwY
f82+aIvKWp1b4oO2H/Bv0Ex7g9SWCKEpYFTQWLFfLdpQHIi9osDn+gfCtkfC
bvizLzoaNF9VBTcNVOB986U8Ynh1OXlC08Eozix3JuAXTnriLSgNxENoTngn
D1eERoWsJltUrOcUaQIF/uolNuRWS0PBekpiEUvxCc0HY7nf/BxTrSTNbxrq
WysMfG73QEoODSo5sCr7yMBhWaKjkDaVR11UgMKEpDGKOeJ/VaPs2nlX7KGX
gsCVFQY+t3sgDSfEtEo8IO+MI1nplEPVsmIdz49LPDt7e6ElCZlzN0yZ+sGX
R/SMmJn61ubDDgcyZX5tAHLYEy/UrTt/5Bye66pRT/wD60SdIxk/HkJd4s7g
WmhvTTt4oEveEkTy7s4koLiSQTRXj2gvDbkXpjb4GL4ZvEkaVbeK+Wn1OXM1
EXsJfHxXXXK3WAJ2atF4e9Y0izX0lCAo2zOQyssDqdwqzJaolSpGCaJi7C6e
k13UA+y3RyhaXX5HilbLRfZZQ6fO0aS+FxPbyl2EpCy3kqNYp8Ij/MT8i0Bi
9mMNNGaGLzSfrhPnq3po9696CLADbJofY8xPgbnv+MEEy0GxgTkRihBiwhTZ
noGEaKHKDndhaXgP0lWDAnnT0Gio6Uqls1upW1r9UejBwQBSn4vOGjGLJcp8
cOUdz78wctICLtz/7Kcgq0GsGRZCcvWmyrViDlqK/Zwr2MVdlGzTeZCPHk8h
Z5j18eKhd774yZDq57DoydUIKVgda8OS+abQ2THnMCyb9vEptXL9Lh0yoWFO
r9O5/1KL7RUj0FGNLCjl/k73QnyJfZPkQjA3s89E3MXzGS13LhQy7ZYBI8CD
yfb5q+/bdxLRvvaBcitggVgy4AT/AkNzBdoEPtdUirTpCy8bAfUWXKQBAsAX
SVbVMZDB23iQfDXOr9ucW0jb1luNi4nPNrTOPbQah1nMpiOSxxWh0UIKi9R1
CBBhAdvkcymd5hKDjUxmvFei03KBlzbmsA4u20VTY3idlFNJ3t0lFgO2cedA
fPc3cbqNaZLsSke0Y1WTRp2Z+N4zsPhnb193z8uoVqEYhmrqntaTJo3g1ddf
DjOrKS6LQSes/+Ntc/mz7lLfgD2z+nwakTB244MrWa6ZnwNzgRRBj/ci64iM
tReUSlmQx2w4pgWgjw6cG9Ou2C6viZ+ru+KO553fbRHIkRaWNcVCti8xjqs7
beSrNaktEJoKTQDzOMBm3vbgm2Qs+ZzVHk0rkeiJ0/HAF2tXpDDthGFcJRoe
N8HapCTysAe7trbjSES7naLa5ZwPbXUS6g2jKEB9mSJhwEPADefdONs7viJu
plc/9Jb6XGIor4Wfp5n0NlzIovBVUTfK+LEIma0sF9eXDFjt34PQLD63/6xI
lEIgPel4RgT5dm+EPXKBc2HPtURY9TQUkd7ISLnzLKz0nCXMOnLd2tPB89UC
Py3Q07MM+3ivTR99rBZMwr/cTXqMk0syi68e/6J7pkYFEv8UKBbCEjmHBx4n
GYlszE2/K5OnCLKNZL+s6dhE5LwwBq/9/M4aIGAsALi/Z39bOXmFlA2pU2JO
PCzJ69LGot3blWN44HnGAs2uJnwJ0Uo4quiqkaFpwNUfzzswkDpa+vnpJhN3
wtpQWp8JbbmOphcKsWphzXW5gVha/MP9wgWArvgkYD568vFubuTPHTXlNe8p
UqKfcFxF06J1vn4ioQosJllHm2jsg6LHRfVJaPH5QVq5FYCZf3nwzQBbJK2W
o6KhOZoonDHn7/DV6vWu+j4fyKEZWBNNrNoVROUhFUT0qCrFeKDDp5tWohW9
VNA4XYe+0sYyt8SFTwjBKFYdB4uzLxJCcnpriaXncQ794/yRT4do5aFpAYmq
kLVlUnZUN6ZkqoqinzPZiQtWfYBtU0CWJ/AzahS4G08WqkuH7WGSTN0Zlf2Z
qmCmfPMzEfNmhGa5haYNJLirJ+NivklKb7lTncrXKWdjXV1ITVgVEw5IvAG2
KCEzlQsBfhAiIh3tx6Ou3lYarER2rZiObQhn0I8vGzsfTaMLta0yyIlwvwvj
eeksZgNo2gh7T6tTMzE+XGIci3okiFfOwxzj2pJLApfMHKhYQr5wre+KMBhN
hM3MGzXldYxOM4Fi5jETu/SLxSmjJg7FsGiUixTKSSRfS5HsuhMwoIem4vIs
1oR6/OPpaBYcdoMxKufMfueDOWdf+fX37TthJzdrzqf1gj5L83MVcdA08i32
y5PH3fjHqNmBf68efo3EPxY5SWjB6alYTzzrCv1DswaOB25atHj1a0edpNYk
Ncw8ZsAB3330CY+vYGz06oiaV4WzC8uMpV4Y3yUg+GfWJWfbf0+u9u8JVoqN
iXCK9FI4/JbFstflVlaTRZkeYVWVGGVV2pnYPpCdTgqki9CEst7JwokGs70b
4e2xSG+3tGJlpz8UPYRGNEPdy0r/ZzOw8Nryk8+E3Bz0oE6Ii/2XXwcQw3QM
fK6X63CVzkBQXxyHa52i8ti9Ga+UqLXiZljYtJS8Zkc9PHeJyZK8/wDvcsZP
R7C3YAwstOOrrNoZ4a//DjywPRJJe85CLWW8Mq3GUxZ2crRKlDKCNbB6OTuH
sDthmZtVEk+l0E0Q/bhozYWjnyHvQVPBSX0v3vL1jiLIrZXdeUoBgChDj4My
z474dqt/oPgJjcVbO0PP6BKtfhXblXIa6jHKWNntgK44256S1kZPe2Yp1WIo
qYMU0BoYftW8zdxFFZeRGEIWodHQ4rQAi8xnd5/q3+89/B//0kSvaPgvimtJ
6kI3HY2D/Wjc3UMglACNQnPa5PCt4fe+TP5mJdwNn3Tch7dKZCcefAyc2zyQ
sRPidPx91CFZ5FnFCciGYwWvx5j49XWhZNctum5eDu0USNmzVG2PSH4uHTLh
h9m9Tvt+Q4vWAAm5Z2NOj5PgfZT1mgayaIL15LV1Qz0xsyke0ZYRyWm9+3uQ
PtCzy8wPpVWqlG5quqzPu+ePmfjCG0r3Fu8FuvxHy8x6q2sPRtv1azrvzaMI
0u+ie8Sa+9m4zL9VXuM31NmST9gCf/qvEUcb2ChatmJqX3d/+7fQD8+jsCLk
WKqSHhjrc5ZceDnvzqtWrpLnsFSSVsh7VP/PubYGPnXtalGgFJttSpFGpQ/j
qPcRLBZVG/h03ULMoeg+yHMERUboXdzqE+sxWK5ZzsOOvguGypCdKUTeCy3u
tVAeloY80LmjuUdHPTsbC1XCN+B5LOGaxtOsEASsGGiK+1Pj83Lh7Auve33r
ESIDDbp2gybuzEALzRkKvaloN7+EehrHpzfPmSIzoydaxz+njJ0Q7fHuMVjM
yJ3DjTdrd+fSFfPVnbDyjffmfXrGefxeKqTwFq1S2W7XGO2GzPEsLhGSUqjP
oUORTWJYTDE0Tjlry9kCjQ7Huq9vextkNazxUDT2jGF1nx8uqo20sHnLQBkY
ejNRnRszvpxsRmu8auKH7Fbiz3/hV+tPBKzQ2YOSwmn6aLEAFK4vA4HHzpnN
mzNZEIjEJ79ToDQKvbsoYPFYvvZJHsFaoiPGjEWF9mSnJ2chn2LpPUOJNcXT
tAE5sVU75IXn3mM8ua3XEH2MC5ptTtDuFyj/WEKK2csHtBbAU/PAHWTs0Hzj
2nWrHhkwVOliVURy2UF1VLULny2Oxewxb+Uyl2xuZPJ1aOfatI4qM8iQkLxB
0xXL+Ipfv2fUw+989JvT121q0jRiHuloxlH9+bWBPM0y1PFBQMyYGNnG1Ol+
Tu4oMRNEzNuxOTZ8daOY20G5MXDlg+deB4Yz1wm2fLxbV25Ee9IlkzeQvCbd
Ld3PSfE5kR+IuNShy2ZonaevDNgIia7e2GonQh4QuGAFl7xBDeKKTBZoQTig
ghXNwWj+/aZ1WDiBp9QjB2mhGTtwF9JkAE9d6r9ea+KFNaMxQ5hfru2wh1Ew
6cwRDC2cxjGU4wpGHTVduGsV+s5Z8Zhy4tA2fHgnk6dyKtWrfmt+j3ozZCOL
pGqHIYcT0nt/Hvciezb31UW3PKtiAb7b7YuPP4NKo3Vf79yB8dYX73f/1eR5
dzx84rsffsm+aqX2eZIrSSjSQ81/c4poJcOEJgVlkSgLM1fsNAYao8D9/lhe
eAZHihpiASLNMcUPfKYxs21dX1wmZLNRaQT4vGfCzPdUJtcMFSwh8uBAAVGL
o03PR6iry8u8AyX1NyEfgSlNQGpAchrqmJ9Ac+7vKHmYvAeC+KN2XbkGpDg4
Of2AzFWXjWVLY+L5HXPV3jwB2TWYvBeWJ/AbuXjTAcwtAc2JjiXFF/C1yvfo
zwhpOcSE8t3cPmcQwlGl96WDJ6DZRIqgVGt3fhko1D2Y80WTaUgtLJpMu0Vr
zaRV1zkr8DRlxIIRNa+ySEQx6ICffHjkcVx2kxujoeMpuM35syUIN/QKFNyN
xILOJT4sOFywrHmo6fcGbQhQ4tOAfD56ek5pHZzgHTNBBfLaeVSNG2kbt2Sz
oo2dQlP31Ty1kI8hyG+EJD/MHuzll/pMRBluVaw5cAHbBXnXqRre1bjVW/9x
LI5uXv9R6EGp+27cLHam8lRZnvUL9TSvXD/hVT4epasSdYf41Y4/bM0Sf+Gq
Te3ag/524zNPLmAnssqx6ld5FQ7mSOuNHCJ/82C+iX7ZIce0ctjCjqgnBxJU
/xVFtOpNVRHtbjqlpWJKP0OReexComssJG1O52EVuzS1SKu/iezEXIGyRql5
VscVlrliXnpI3s1XKB2H5duGoOxjY091mzpuscaq4Ug/i2LktKDaTKkZp8Eq
TIXHLyHnNEHHI+Nb7X6YhCM3EmjaR2x8FzBMlStWpkFnlLi1G8ZUTHlibL4C
N+pCR7BWhLzHGJx/FzzP4IHG6mRyCCtiOh5Z2q4mqgwD62i5dLXrDq9HySAa
U1aqHR9c+dfnVX86JxI1UZOhIAtHxPSPLr4KrUshsFj3MhiwspsmzZvCuP86
59ZRVEuMwSNEBOBs/MQZ79Ed3VE9jjTjgqF22rj/rSWfsfsYt2wqIukMWsEI
FQzmclgsLiWjrZxayd+lyb40epN7matGwPQxAjEDZhIup+EYQNleIWAoDCEj
8VOMSceFGw49DC0AITBb16FINJjKEPm7FJFsBhq6ORky891Zf5026YKGizdl
tmQBgA8O+/KYPi+te92n51BJ6A1AIvElRe4Xi2oc4/ZFLdQhadiJDdL6U8FG
eXlpcjySYqNMS9blV53xW8R2W9Ij6nv3HfAZp/tQf547J7bECiyBRDu7atac
Wx54wy6EIFZp/82PPY61AJX0cnSCFKDLzRI2N5fZdtn+0a9rbmNEW4TlD6Aq
JhMdWqU3C3mruAAcXPnSnLfGfT10OHrfDhnNSgkKK6KnF8VnQWEfc83qkdqa
jp08SumwVWS6Pp39pljYY8jsBX/HDF4eW+aboeXhkxGs9JuwYBB1L1gZv6s6
rzkQ1sLIDOwsA6wiXTPSuAwPQGYVclBJkaVArVndbndVNoHfTtLasebyGlUe
LtdLPU+lqDsyMipiI0/rP0fuoS9sSAVbsWBF5jHi+eXf/dCytbh1h8D6a1wC
JVdy7ymeYw3oampTRus0ajVp3jCBB0xtYTkBIVFB1uABMrmXrer2i4jb7gs7
H/ruzD/cQFEIz5wYSLKOcuouyavcz16lSKOmPj9nFZ/CqWUmF2O3aDy69qxz
Kxc8+hzZXnjoN41dnf52wOr2oatTPVPCLeewGZR4gfc8UZhZFLByR7oigoSm
K73V21JrzBsmip7LFbILMO+ELQ44uf6u9vrF3XhuSyAhXpBGPOOCvlVxMPeO
e+ddsvnOcc5bQQiMp7hwUieKl2QXZLtZeKHWLDzGT9aFlpSrBzW7rAl8IAu6
R91NL5w7d7cUiweY9bFcmWCYKn1g/OO1HLET7nvyb7c8/8Azj3834By0H4nE
kNVAOiNEJo+PyOrfUoWEqivoHXc7ChSabb0zWltv3vi+Kl9foGJd5TAnKjtJ
VHJ3kopKrC4vpxMQ0Wvoe4UiY1V3j+teC3g91YMh/TDgFjS/+a9OMJwlX2iq
TVZtQM+Q5JQ3bPlwfTDmTcMyNzxlsJxSSHUmozjTpFt028hHSYRbdYrP6XFS
9Zxp8ylMZ5r8JeULKyFPyUsoyxla5GlsHSrsQiHaFpe1v1VQYmCEMm4J5vbq
sGrDl1Y/Djoz6vFmkkZNY+Y2y/yZ19z5zNp+p4iTNCYW1QtOjycUG6VObORY
OXCdYA0I9su6j3wHhgmVINyYoHjLmS4sKBgG2tDT+puZjUhch7BHHWvyzrV3
v6ybNIx2mIN7/Xetd+Zq/8zv+59JHNxYVjB5Pd3EXFMTc+Wyrh3uOeO6VgdO
TeJGDSf/sBRH1YOjOq+wlAQlcMSj4YanGfOGamoa4JXFAKJhv7/D7QnxaLsE
/DNMFDUTRxmVwxqrEeKiKOrEQFOPd5uCdrGxA/8Zrj2s6i2xCQLTvIhk4nfm
SYH77pe9jhOOECyRlgxiXXBWpq2+3ClouCLHG20jhEG7lojEM9NdhhVNuz2T
ul1JxVyO+3n/0bBjq4iHp2PB+vw91U8KZ+0F5hKLPUtUj5i9XSepXOJO+hK5
34svkc2kRZFz3AeouyroDuXMTn3gnrju6+pxoggAHrvQXJFaRpH3rMgoAqJB
bpLGZWYGQn8gdiGKT4pBeLgIcbkyzuRMjHXF030WF+NLUp10mrZ0hL6SFnIl
akIaz3F0p9kUmREtIiyUgCGUNd0y7dkl101//kPuSI5Fbu0nx5+C3hNMwLnE
u0FM3yvXl9AcXwJPP8RyjYt0RzKvF0rLlameiOiTtp3cXlKrCZjh9aIHh+VR
4UluVMqXYLRivnfjo/OWKvqjqOBi3bygmolUNamXZk7vdSb4vSgoVuMsA9Qy
P6huv2NGz4KhDLv5nBGz3fpeRi2QEmrvws6H8pRPJStEnj0hq2CXZKq10sKV
wZzJdnuESh4Sw6LapaQlzbJ3PlCzmXlCBhj59vFweQKQxRJIy9/CjA6tXYkn
GgVpnjy2wTP4FzxQNWHKlrPOFioiJEpAlD8maR2bVyUAynKIwUWiukwIoBmE
ILLOHRfOz8M/Xf7Fg0uH3rh8Y+c9eWyWW8o2Jq220waAfEsxr4cR0H/pxomv
zh85acGSq/4q1CW63ZWGeaKQAJNdsM1qRybbcL0uAVD6rnAwvTfgudGfd1y7
twaw5zYmDaNUDBQtVVvZxszy1bIDe5iNmKWkqkQBtFMltlJAAYhPznhiLPFj
wwjFa3dcXz5vUIfP165xJV+TGDRNwCnDer502Lhi5V1rLhsKzs2Iecog7AL6
CIFxBIXRsG0dgFJltBRk03uHrivnQEaHzamIfnsjsYW43mfecyzDv5UiLzkp
gHjRykdmKA4vLbRLgL8BBZ6613IkxA1xwmqu8sYqMWTi52noW/Yw20y+UKZV
/pVuahodMncgXxZXghZec9eLvOmVmmh2thbmL3lw3GO13GZSr7/gKgXnPrKK
USaZCBcV6Q1VzsxFriRJP4x0rW/QFaA3/zhjCoTzVHv4mHdWLs/IvVg+pPo5
hd0UFhSNa0RPHdcluFKNuNlcAr9LTzSSU/W8FL22j/h2uDuNxPNS4gnThNlX
LLWBnt+k/uL8B+8n8ToAIr0p09Dt5QHdPvjmM84gb1Te90pTui0gswe88u5n
XNQZN1PwEjbJu9bdvizgYDXsYlY8u8qMqurVar8AuV/7iEWsp/sFmve836w5
jS8g2vu1k6L+t5FiAnD+MQrbcO71MnVC269K9T2SrWQmlKhxVbIw63pgnkUn
+k9QNZwal0VkQTJ5moZW9xYL+QfFimo0kngyW0gJIkqzjFFuGTDizc+P7afa
D8DdBMjbTSAZQfG4YAxfS05hBD4ab5JwfU/hwiw6aHXn7n6hJ0CwNDAiWY28
Pc7GwBwE5r+6j6M1OjSm8cVku8ctpeV3g+7BVNBXpoycCmoHT2GDE15X8Me5
ofpW6vGmUQVQsXOez3rMoo+/AsZaMbj6OdRHwdwnoGxMfn/4re81HNLNrcTf
ZYJVrGxndTUNpRVwEgTHmMJykL8vE/W/ptLbNEdm/mZzv7Fj35kBgiDG7GJQ
5lVl351fmF5//o1zSHK9XFYWuxNVjxbeay5J5qUhSZT5iiIm5mQKvZqv8CVT
XhA78fA3N79NjtaMblXBN2RMsJCfxNxQxy7hIbPW4OdPUy20K11udVoeIjlk
ZWqynr/9ORVz3L4x6404wFlpxHInG+wWN2IvuWLqW2+c9Sdukmu36pAFTHId
oGrBL09pNfzNFA3Ge3IFq+hp0+abhu9nnP/xNT80Wd8SVvDKLzb37Dvnh2f5
SQME9txNkxZgqiPdjpK1FTcJJxnPiOINXtS+RQSiKeaKHDW3IoQiV5qcG76S
ktblt275y6bSdS0IFbSo7xT1eWAENytTTdlCYvPloyfOvUa1yFct6XFsz00v
vyIJaKobWg2EIGhNGlpBhcBFd2+879udGtoJaHs/PIxp5Rldj+S/V87imf1g
pyuB/pWbdmsP6XVgYNIFPNTIBXCOlqnSclF6ci71chOzc3mHrcSai5p91S7q
PW0Yz67TixIqZxXyRdE0MlHboJnrpIjjvkU33iF34eFkmiGcwBrvasxB5Y+2
VrmGZXQNavXJF7ts3C068okhqWZUUwSXh+o243EiQL1u/j6C82qZUjNbTmpm
Kyq4EsX/LhdKVUV1nZT/H1Mxa9qjQDBzbrn/dc3sNEs3dLrht7HE3AlEzjUT
uFIANBM42XRT2eqSqVWzMmCd1ay2fUU95lm1YOOLNlvbguR5acT9L34dq4Tc
a/LuNeNfMtaTA5LJ3z75lRu+GT2mfl3HPVBr4wkKs2EzmVE70PiySvtnTTLa
gC+le2AGZkHELL3srmcLMT6l9l7Ppcu/4f40lpCznpXX2mbGUyjsLRXY7YN0
CcWpq+KDBITd5T1ZLZszoiEawopLOu7PJeLTW487TldvZrm1rsX0HFKNTYBn
1J83XVs5bcE76mnC5BupYTU7BoJBP3n1xdKQn4Ozf2DHIgIajVoUq1bkR92+
6AMgbincnHmp/9//sP9Ha+qJ7pHFt/TNx64c+8iW005zmuzPuMEM7erzLgUT
swClAVU5a/PAEbO5P9EE8/Vb//rMw+9fRTxiKpfIDOt5PnQSj0J5UB+cWsoZ
Lksv7TsDYo74w90rFvXsi16MTWaaj0sg2t6SV+nERrTsHfM25QczzAf9OTjm
mEMpw+N0XBByNZ7M/GLycUOq/GS+I+UhYgWN+8OmP/KZF/dcefJjNz09m665
CVajR/6FU1xNRYj//fj1fmfDrSQUFy8HnuISotclRKoFRCjqlLETHMcE3xzW
WotjB3K7wfCRx8OrjUYRTVzKQO7CyyetPAe4DgBaecBnvSApOcP9ZrQ8DFSD
F8bcNVf1kkNo+Z4tFRcKs/R1tyh6mWoCpM1xLHqW93n3/K3ZDWUCBSQNmqtR
mLGcnfnkzferLZfg1Bn95ci/SAJ905w+9GZ6yUIvUaS0+XLTN18d+cZAM903
J1VVTrBuu/NtNzhISicqfuZLrIGUfOH6qS/OPfvDq9eVbW4qwZo0qgDj7BFS
J71Uix1t+EfzljdsufY6aU6+60Mcd2mmxd3Gan/Kcvp2RjGaU0yHMpTr56gw
AFEK5zRx5IJDNwZhKzMJhJI99oxhJEbEyP2Dbw/tDnfUEGDfc4ohvYWVlfRT
buiaFKCimku/GMEBEdp+IeI1vuRKrePNxg0lTTTqX+zS0FTtV2htil0iQZpL
QQIV/pMOWztIFT4GKY2fggsnXnPvayv7nsrI0OaKJYGiKvFGnWckcDxatLHZ
922Jbq5oMJpABUaZ1Pfitd/s0lFlFD1v8oPtBeEsnV0gJPTe754bvb71GoLK
T9tv6XD78FVjRctqHZNYkrYeBfooWciSXeaA1knvheAFW6GdIXUM4h2KN5vQ
oRLxaBg4+knwoouqrVgrXL9k78M5g9j51qxfEFoFqgBGPVycVeoUJ0y8jAN9
8Gaqbv/0QRNOCGEwBzFpVDO915n8DAVNG/Kmr3nlqVdEzsYyD5RpDauiXpA5
89XbYsrF7QuqO+UpCqaqjBNxziItHJMjzxlFOhBFMpgKTeegUxHF5Apz09Wm
OTzewB1s3GUIT0iz8X9TmrILevejw96ctHzfbw8nXuzcD2VfHPXmOVA4w3vJ
RIOGUhcwBHcj2cfxvZpr7hXoW2mCxsLjxJGez8sfSEA+VIBDTMlUK0FwcPbu
Wneo0BehdgdqeFSN6Ko/Ut5Q2gTzlhfwOZgNBKRVbhWA3uBuZUNcV7N0DqZX
c3lnKIaLvu7R66XZV/3FmbpmIUVCQB2RLbR85pPuvNue/dapXDu2VMFYOCx+
r9/vwBbCarAICJ8ngUAzVvRWdRmpFjN5pN10Xahmggp0f2vOtKMqI2XhmmSL
BygAsAuja958/vt93z+eAVBCAACgYPJBf34keuD4CqyPKNbOhEDzjRcaTGLf
L6EZNXHBq5v2e+O/GDRNqWZcTaFhyYyc/DasbrUzlHsdteKDTwEXariNQLLG
DYlW7SUhoTdWN1Wpk7vyF1z98KyGA986hdCHqrCed52ZX0iU9HjfaNIpDLne
TQv3GXzI9x14D8jQnI6TIjuftnzXpAX5G94/yyjG9kxLL5MuhZVOuevxd8WU
ZskelLcxRYyd3RlOg5fMf0Vr4UKm3OCekoRgUi2FHjty0mvgYIpOH2VPe8pd
12ipOJzw4HQ+y8wX2oSfyLrKn1FVfua46cyew8tQalK17DyRZSjjEeEBEXs4
9jj8cBwOqL7AbKjOW1DBdxZdPe7FnkuXf0OG3+IGX5oIIhxPwrsU/E78OZaJ
nAz+OHkGkV3noHPNt2X97tFFo/opnfkyame+V26Y8Oolz7y+XOx25AW9nIbd
M+S1SDMOuCbMOkyzXFlalFAswKXO5h0tilFBbvpNq2jE5YdqOXEzftH/rhn3
z7NlMnlJm0A3ZwcmzRHlOhENCfJUZpHpGgNZU1ufEzDSW39zGkXEynBUtroN
RemXzaLrr+zIk96Ad9CkN/Ji9eYTEksPGLUWaDbrh9Ja/ZAMdtSn8lWUQqry
9Uy3UnU6WvRyq45wLv8evf2Rt7VFtf68LBp3YalgTdZ0TqUPZVVEs7TKWRzH
glyaWdeT1up60mLT6mPqYfzL6jecRT23kA+aWcIWtG0wsciGfZWJxgxORQ05
mVRH2LZyFoRFlHXlPOtSupfFiuleXNCQ2hszX3q0fuqoSWwCularaCxnpy/S
AjrgzFhzdSpB5KUEp3YrstfVkIU1tSw3noA4in6KBK9zUZ+pI6KdPtuN2qlr
doiGV6aiz1s1j6b3PhM0Q6YoOGijSYjsLiKv0NC0WtQd8DwX7sLZS6WbKopi
Cf9IqWKIUj9ursIR12VRewJ/8xg2gP+VQw4CNlV7e9HN13DbLERyY75lUf8n
i9MYQSu8Sok5LdZwI3mgiVmIR87K/d9pTQDLNaSiP99QFD35y1/xs1JJsHLR
iGcd0vVTgrQEpesoVuRLlcKkMWPyg1XbDJJFR20AoXsMueaiqPvLLcQiLrir
LBo74BzQc1k6Ok9xc0j1FuYajuBr4Dwn3Fd6MaVE8HU6H6raHxw931w2Yno0
4o+nRSfMzAo4T7t/1+iKyyoByX4ctzbhIx7yGNP1tTENVFUIGCuq4pO7PpLi
4Von76WJSjz1v3pE/Z4oYCpzLur1dOfo7JFjuHADvFmqMXlpG8J7/gjOMPJ3
VttK7hd9vvse0cCJKd6EO+o+P9brbp+gwu/A1S7bylcSMHqxWc5SHS4dTNXn
hfs0A+A4bJ0XHsKNHjU4h/B8Oy9s4fcV0Au/sho3g5oFHs/6eGcGj+GYK4w6
vH8EbxGSTGgWgInd/UmGOLUFpk24/yWheAMYfxybjjI/EECIe4CAIQWKQ6p3
wGFwdcSnd0kJtaN28rX3bVjQ7ViiWqyOz6sLx5VERT+kNaOEST/YIYdE6ITv
lKeP/BDygOjh89LN9764dsppV0AyClF1AJbf375zVLwup8Li34/ObjAcUSJ6
A1EpjPXRqBEPq+7IaFWbkuiMCftE2fUlwtgAp7n/lN0rGQajd/qfqIw+d8OU
qSs/PfjIiHvGFu+xV3RazdGasRPrJ36e2Rsnh23pW/4HukVd1i//FG44aVjT
amehhc494pfRsY+eIkwD0FZBd0pkGQd8jWkSfhHds2MaXnhp4Wd9+gp8AR+B
B6X3oxdpcB355JAEHtrPBKpRfbptj20F/TrPDl+6dS8etsoKG0/V8QmUwqvv
gvIACmVYOv/55O3mPL17zdZmJLVx0/dNmQ8jFs6wYRwEI9WfU5ec/WD37GRX
ziNvNDHvmJTNwitnYZ726LcjpyeoTAebuyMnpdctNOUJFF9sbUMSKDY1lDRp
eLFHX6GXxWwrJiY+6XnEJ+3Hdzf3vGfRefkdhXyxP3zZpr3qe4BYoaj4gHkP
fOFM5b4h7pow1utpAPdbnbAgZ4ARVsm7K/v0/fu9g8cKQ8ua+3l1brWKQZnb
6taW6N8klcupZpBdoUaLYSueWVxx+frLrn5IqM9wolm+379MTdj/Hl6YpFSX
MP0PRRPStzL9wZdH9Hz/id9fT/KtWMGdC660d5uOdIPlcHnSO/asdGP4FwKb
cACJqCM4YsE9bKRw+Cm2p5tySCcQu7J31Xd77r1k5vnX3jFtxjvgeijwTC+y
JlzE08s9Pe1yLdroqyW4kOO+/M7Lx2vNncEtH++CUBo7LuoZqND2dgNBu03n
zLukAJjKjdffAL1hwVrlW8Bg0N3C99zhpwrrIuGk6oZyo7rhBJ12lQ44TWDj
/nvDkzOGPfFC3brzR84RfMU9yvu91F9Cu5Q4sRPOFKv1l10xQgJsvGIkYtXq
9KNqo2KEdmAuBgJXy/vUOhWjdizjal7n13KON8Fm9xHofTZS9PpOvVlLVus6
wZ5Cynhoe+OWcJ6ZpfA86011cYi9gAMU8+wnuwasRf10hVZUadjZ7LWlp8rR
1iEWsZmO7NYrunIrIcFvYPUk04vhKOD+YjjC3alS894JYGFeG2PaobxiVgOa
5534ZUk/E+ASTmas/JCk0zJRn2flh4cIYHvqp7XCyhk9e0mWVIqkk0rdta3r
/g7ZY/UIk6LvFxRws9qPcyZJuWDhVcRxZ8PDNFb/eWD153LoquSAt68n59Us
lLdLUWLkPluu3Bn6vmNfGWBhmvTh+qmt9qUTpSpMapqkxynP1Hu7z7o45T9G
TnVDSPaTtsDNmgqo1gRC2U+ON9kLKsYdMC0wL6L+O04Lq5GPBOgQndYVzVRP
QHL3PSgRQCk10ipQnMokPL91w3OQJHgtiTHePZFjROVrGSrG4V9QC93au4O2
PDDRfKQMV0n5pvHi8iIJDkrnqpYabEwMcIOzbwBhF/oIu4T48VTFeb+X+/NM
FjyAOdANzt6SpKFk1yRpkmae9oNDXPRjpeZqlN1qoWDycp4bnC6SoCEtWyVo
rRMh1gxRhQfmdsBjE7TVJUjCQwPoWdPO0lonZCQFCRexSkGmRqtr9Q6C9sC0
O1s7YmdpHROMttPCQwz56PyE8cPmoG6rB5GErYOfukkv6gwiIXkmKtGnX+6v
af+Qu+Qk7YvcsOzmJm1RQeHuDkTpyNHLGofFav0jYdlF0jW3xFC6ZoWiTuGI
6e0sqVx3HA12w0J7c2Uxg0zQNLtIw6YdBRYzLaTtcqJzJ2h3nmZDrf2ELVpI
Zj0EZOrJoAAwPRnfNE8vnpY6MaueA97xg1dZOwkIg4e4bDHBeIUblh0lMauG
Ea+kI8Rs3KinEo+IZavqJMu5xoWip6sO7QeVxTp7CWJW7v0xj1XRAtDjjHUQ
Dw6UrT2WBpA4dk8h7yrY87GrTMg8Chrr7xOm2PKrm21Pg07kpQmSAPXq3jjd
JqphbujIbrIm5txIQa8PoMA084oDB0DSShEQDXeTFrugBc4wMEQ4mXP7v4ln
z4DLVW8ziEmmwyKJSHgnIQID608ARAL9CFANrancHevMV5VpxQWMs/wINxxu
Q4NwexPXnrD9UMHgKhADA9mTGzz4iIRBITrYN0FEMLeizURrpnv5Odszfyot
6xOiiLcxRSVu37uksg7/KWofLv1vck/bjEk5jAFZOjVzlBZpKcV2GpXVy8cU
pRk75UW7JZ2OH+SIHe2eq4kUyYJm9eTsLPFfMn3LI/CsVj5yEnbjtEWVkGwe
7wZPAmd+Uj6PzRdWUx05BT3mijWcmXosi+Sn/K6SavckVCoWa7tvKqfMyZjg
9hhrTsLzYqJ6yG305MUUSRjEGepIYU7I47rDhEHkDomsTzV3SGbWytwhanGV
CKybio2WtpAUj3bAkxMtZavytaxRtUx+rMrXyxSrAn1/Fl1591xcz0pM5bD6
+VDXk5WnZqWamulr1NWNVf5xaAq91Gh18Dnc2CRIouPeaYooulHMu6NqGjQb
NGY0K1UgZHsISqy8TwGOktPHwaFJlTTnDAMnIr/By8Nk2G0YkZ0F0AXh+tHf
3kkW4Eeo1YZnW+aDlgZEIHk7SZOXCUkbKLIEsQ0k8zHcOVz5k7cXqcohrUYt
nBN5mqzGiXmEExPHaoyU8QzmEptVptj0jNHnPw/9Mx5y3GVKXh6g3wgznoK+
9q+Igf889H/8oX9fEo/Hf03MhP123E/wxS7iIfnbXtv5vS4/Yrb2HtAjYhNr
v+21nd8jv23jbB1NqCNCB/DyWNhHqR3+H4k1Vts=\
\>"]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 275K", "Section",
 CellChangeTimes->{{3.7772708364913917`*^9, 3.777270838319088*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_275K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1.1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "1200"}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "B1", ",", "Tm1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B1", ",", " ", "Tm1"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772708704804816`*^9, 3.7772708744331656`*^9}, {
  3.7773594173015985`*^9, 3.7773594266744366`*^9}, {3.777808472587404*^9, 
  3.7778084733410206`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV03s4lHkbB3DtSgw21ioWOVRrKzJh1Yb6rg7soihlamuVbKuyFUlvJRHl
0GwhSSJJdDBpnAYxZoxhHGZQazWddBCtTa/atqRk3t7X/fzxui5X1+f6Pt/7
fn4/T5aBO1b8/ImamtrAx9///jv2swlq//ezDQ9Dc3jPjxeI/sfoUASaSooX
OwrIuzHY6R7p7Ssm78XyxfuCYwul5APQjDV49rt3y5jF0Rg6tCbr/pR28iHU
CYse7hDdIMehBErWssRO8hEY/xS03vN5FzkByaWe0vyg2+QkbOjfdVa4+y6Z
i/22bqYOn3STj2HIZ2htl83DMW9Ihq6KNSxe+YicguVOFp6rTz4mpyLWJK3B
IKCHfAJHom3tb+Y8IafhtfL1oDipl3wScSN9jlUVfeR0PP7atklx9Sn5FPb6
X/G/MLGfnAHTRUMFGkWMT8P8g4GfhfAvciZedv1eIKx+Rj6DuTXDU/W7BshZ
2Hk34K/1r56TsyFyDB2RWA2SzyIhe8pGffsX5BxoCIZ5S86T2efQ4pP+MvWb
l2Pmn4PCMqJL2ENm5+Lifp3S6dv+pjwX5bN0Z+n/SWafR/GHnNbc1a8oP49V
kQkPHO+S2Xk4lb7xlmbqP5Tnge288IHWWzL7ApQvNm2OrHpN+QUYxn7aoj5I
Zuejw1B/tFH6hvJ8zFpYpeP9zRDlBXi+mrf28EEyvwATbzeEhx14S/lFzJ2c
M9nqLJl/Ea45DnXHPYcpv4TRGNWyk51k/iWcSO00k/z8jvLLsPtxur/HRjL/
Ml5bRf5L3es95VewuuDOtf2dZP4VcMc7h5osH6G8EFEuV00SBGR+IY7odHOe
bv1AOQ9OPdZehhNGKefBw8HT1/0cmX0VJxKDpvdsVlF+FeqX5yxIjSKzi+Bn
lbvwa2018VhehJQZhveC55PZ13BI/sdNRRSTX8PU2XYrwl6TjfiIfzlpxMVs
3Jg5fCQfLsj8JZCcwYfrq03fHeaTlXysa2T5To8jGxVDnzui+cjyE+oXI/mH
RbOt9pAzivF579tv5WlkZTGm3l4dE/PZp9QvQc05lZ26JZlTgtnKCCPtJeSM
EmScXWS9+DJZWYKDJjf1um8w/VJEh95wybjD9Esx6JjYcdFEnfql+PelHLVH
K8nKUnAsdAU7mshGZZgSkufjKiJzyhAePM4u3m489ctwb6jWnVVJVpYhPv14
kP9pslE5eO/a1g/xyJxysO6y9n15SoP65RD+njV1QiVZWQ6RcvJM4WaykQDe
1WeK6vvJHAHuzIlfXrx0AvU/Ompz8yJ7TeoLEKm347ShLtmoAq4LbDUPyOh5
TgU8Ogo9JXMoz6jAl7aObqFeTL8C+izRn/E/aVG/EhecI+bcvkQ5pxJ3cqeZ
THCiPKMSAn1FQLEhWVmJgU2scS4mLOpXgfXtOdveFjKnCjU/dR5NNCNnVOGf
qsVPl/qRlVWIaBt6VPMn07+O7x2CJK6faVP/OuLfhT9b+gU54zqMs5vSw7KZ
/nUEd/oc+i6T6VfDuZ8tN3nG9KsRdSDPIiBYh/rVcLrltysrnXJlNbzNXq1x
UpGNahBVeLRAvoWe59Qgpbk45lm5LvVrIHALmi8bpVxZg4fKsrTqn8lGQvxx
NNr3zMrPqC+EL1u+L+X0ROoLoVjhUCBwo1wp/Pj3cxPO1yIb1WLvrxdePOAw
/VqMagqEdonkjFosLn8TwC5j+rXYoHvqSlEAzTcSYXjxsFbhQzJHBIfSuz0F
0KO+CI+StH50SyQrRTggWCtqVZB1xDA/aKXwTSfbiJF0RH38PE/9MXuJkRMR
ttOKT/NDxIh9tz35msXnY+aK8dxS4PMbi57nifF+r2qo/ChZLkaearrs4FGa
PyDGzapj5e2rqK9Th9JlZx5eSqbnbeqw1+2bRakcet6rDvVO+SqDVZSH1CFY
Kyl1kojMrYNw4gS9PuZ8vDqUhE3eUjaX2V8H5xTkfupD+wY+9h0G/OI+MPsl
2LCbuz9uCbNfghhBjvHqBub8Epjuz+2LizWg/RK8WbZv1m8KZr8EVYGZt1Mq
KOdJ0MaSrzeoZ/ZLsMkoWO9ILrNfgh/mlTV1ipj99cj0Cy1e5fYF7a+HOHFr
68VRmudVj7XHAo/2y5j99eiNnSnNvk7Pc+vx4vme3JkDNI9XD/vBVu/zO8jy
epyq32f+JJP6A/Uo8V+nWBZP1pFi3oI2075oZr8UqoAVEeEZ1PeSYmngib+3
cg1pvxTq4pXRzebMfimMtNKXb9lD5knBdZ/WW7me5suleKp33DNvJ7NfCk3n
b/UCQPN0GhB4pWSFTzTZpgEPSoNtx90gezUgqyLOs8aM5oc0wKLD4wtfB+b7
a8ASf40R6eFJtL8BoVGO1drZZHkDYp7sv5owg9nfgD/qvTPv3zem/Y1Y6v7+
g2oBc/5G/LhKvm3eSeb+G5HixPObacecvxE7Fc5JswYo5zYiYogbb9nL7G9E
jNrbwiIzmi9vhOpekXVXMvUHGhEfPjV5vDtzfhl0U+3v5ZRR30aGze6h51/Z
k71k0H7y/i/pfeb8Mii33zqS0sHcvwxpG156xcmY+5dhSlpxT/xXzP3LMC8/
rc+ui9kvw6zStQcDtZn9Tbg/Ou+Yrglz/03wd5tW2/h2Mu1vwrTQG7eHDel9
Qppgr1Hn1XiTzG1CmEFk9IK5prS/Cc6mB9q3+DHnb0Jud3ChxS5mfxM8d+ep
/LXMaX8zNs0M2P6rB3P+ZoSviQ7yUH1J+5uREa/K3iGheSHN0LjW7Dp4i3Ju
M6y/T/2+oo7el9eM0fT6qsI+ep+BZvhse/yD4y/0vE4Ltv4SIzQLZr6vFkx+
3DPlTZIRzW8Bt9uCw7tCubwFgy75Q/ZLab5OK1Q7S/eyzZn7acXrmo1mRdom
1G/FV1sEjmGhlHNbIV8340m0Nb0/rxVbNAOEF/9h7l+OQwuNN2MFvZ+NHLXZ
xuYF1sz8j07Ymt7dy3x/ciiHIgJ3LWfO/zE/l3QhZA3lPDm+mp80YmhD55HL
4eXCOpzqSPMG5GCtSfk10pH5/hU4w6o6Pfsuc/8KtN/P6n6sxexTwPW0WnHm
HprHU+BYw9p7GnxmngK/VYm42R7MvDZUGj4+uDuY+f/UhnWyrT7bp9LfI6QN
4XMO2Tr5WVK/Dfku1pGtZvQ92LRjfkLcXEm6Fb1/O1Ky6vq/06XzDrQjvXbc
31V+dN8aHfDu122aFEvvP6kD6WbtM87CWPwf8YT3AQ==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530762878391681}, {
       46.007686206204134`, 0.05697044129915475}, {92.01231118791847, 
       0.018633253814393007`}, {
       184.02156115134716`, -0.058041121155131006`}, {
       368.04006107820453`, -0.21138987109417876`}, {
       736.0770609319193, -0.5180873709722745}, {
       1472.1510606393488`, -1.1314823707284658`}, {
       2944.2990600542075`, -2.358272370240848}, {
       6136.253312359592, -5.0182342471620025`}, {
       9116.682163413447, -7.501924956373548}, {
       12038.64683145817, -9.936895513077484}, {
       12114.37221576519, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530762878391681}, {
       46.007686206204134`, 0.05697044129915475}, {92.01231118791847, 
       0.018633253814393007`}, {
       184.02156115134716`, -0.058041121155131006`}, {
       368.04006107820453`, -0.21138987109417876`}, {
       736.0770609319193, -0.5180873709722745}, {
       1472.1510606393488`, -1.1314823707284658`}, {
       2944.2990600542075`, -2.358272370240848}, {
       6136.253312359592, -5.0182342471620025`}, {
       9116.682163413447, -7.501924956373548}, {
       12038.64683145817, -9.936895513077484}, {
       12114.37221576519, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 16472.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772708716252685`*^9, 3.7772708747143445`*^9}, 
   3.777271157463211*^9, 3.777271301244972*^9, 3.7772716027847776`*^9, {
   3.7772716450267787`*^9, 3.777271660276837*^9}, 3.777271891838938*^9, 
   3.7772726894652805`*^9, 3.777272747804008*^9, 3.7772728087579308`*^9, 
   3.7772728632662444`*^9, 3.777273080712737*^9, 3.777273121068592*^9, 
   3.7772732470303893`*^9, 3.7773596150994444`*^9, 3.7773596860435553`*^9, 
   3.7773608801109314`*^9, 3.777808394128498*^9, 
   3.7778085044019585`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQmYXUWV8KPf1lsSQiI7SYCwDxAWSWgW8QcBcXAAwbgMsiQ0QUAgYEQH
wZeEHUwPyCa0CCKgDi5gXiAIBCEQRGx2hDeIgNIiIigi6ijvf1Wn9jp16ryk
E9RPPvp25966VafOXqdOnbv/EafMOur4I045ZsYRk/aZfcSJs46ZcfKkvU+Y
3bpVXK1Q6PhtobDac5MK4u9moaAvzdb/cHldXMTt1q/L5d/F1rVRaDQa8l/r
qXv63/JHXKc6L17mvDjQ1xqgv65eLNl7fQOFhuoBe7cBjQoDjWZhfd1fY6AA
rzbiQS8NGolBJ6h79f6C6Uw23gl5ERqJ95rmRbez6MVL9JR0I5jShHCmMLB8
5d3O6yfrMfTArf865bUI4yn0FuW13LrWC/19uiVMptfDFmCmFIJV6C/Um01z
W3RjuyiamdYLA63uxRsdGorWv/oH6mJScvxwpPSUzBj0lJyZmyn1ROiTJGlv
Vh0h/Vr/lc2s5JsOIBEJ5cMdnYmdotrp2at2CVhHZWDFbneHU1DIsh2LMet6
aiUgmH7UX48RITtPzKQsezboh9lIGKjp6PbQnJxOFz4dv2mKVYs4HNFcPu3M
xWIJuu5G+HVUcE+wZLktvuoK+cBtbVWIEQ4X2jke5g24EjldoS5oQbbi0GqZ
lSMODLS0R5/kf1wcM+CfGk1djtGJQxQqpvaB10A16gNG7ZUU8H39wLBNw0MZ
4D/rsLDiB8FRVXzoFQe+I6RnwdGqfVarVjnAfy6UPxgjfFfYLR7k8nW+2ukv
DNQbCd0QAftfuKasIID1cvWKxIvRK/40FLz+HBIKpBTdtpYZm0PQbQWHtydq
7XBGrzcNeKlueNfT4fBahyKLoXW/01zKMaJ5IraMpnQawmjG9DtMao2kxW4n
wmjRuC0uaUlpRTaoAB8bqI3ir6je3ccRFNrVih2LpIJDZ+X4IHpcAbketxqM
a12nSuAOCKRLtWElWIqEp360/yT+0+36nHYhqBKU9DQt3xrWL3lTar2/Js54
E/Db0WDap3HVSn+90aHBjXmzsFYgxZ6r7OAxcpU/bWZvRUErc6WLZYu1QthB
xNaP8GKn5A4zR1EWbIYnddJmtNynwroBvGLo9ZF70QLjcmcOfcIXazqdNQWy
xCCKeac5L0YLq3+SG3toaRkeKgzWWvLfr35qg4Wh4WbdPK57j2u1unhcot9e
scfXGrq0Hovbg0NKApOvVFYmPFeR8KD4WanwKNPwnhCs1k/RXFstla68Rbcb
GjQ9QbtK61or1IcdVQ99lcxj2027j30gvorgsMScQDHZbiQh/DIFYYS6ooe6
VQPh9i7dOwtDg4rl6kOFYdlkuHWvpu4NA9m75O26ZKJaYXBoWA3SalqHpmKe
HbwuR7bZNUmEZ19lNhtZeK9E4C22geR3BOgdgGd2l79KFs6Wmhpu2nCEf/tm
PdOWcqtBPwr6qhpPM6X3mmGj8D46KrNZBBymSYptTY+8vZKhx7RMMYnuoofu
dxLu7V0+suCnQL1NWbBhyf9aUZp3tIHzmam9x/6Aaa7IA9uRbDeSEGKU13Eu
F02rBpqQngjruUDd5o2g6Gnf0QB45G7zsT8gSc8MsB3JdiMJIUVPF02rBpo2
6XlzKOXi/pAyKtXCsPZ3tI5YqbD/Y9I6sjkuCkshCv8uuUCvDLQPIX7A8Sy3
vBjlj/6L9BGEpSTeqhZvzVWBv4RZjoEErX+Llm/ZxWCLXwdl73pxidkf2xdu
YFrPWY99SAbVK6JZfVC7ruaVaEGVmNCqAfYyGtgSA6vRWnelAOqxA9fv9eMD
wFcVqoeV7Gq6rAGLabGmqvus8Y/g619GT6SE4L3zHQQ3CC8M1/Ui0llYmnvD
3w+0r9B7Vd6rHSPa7GrZrFxwF77hkjvTBbPZyMJ9RRZuH7ld7wSQO7g80Uao
0fhE1qEQBtAaRuhn5cUZ9bz+fuOMOIQh3ooe3iJzt1IgVIogtUNQc3cIfCdI
w+LTuqm76NBTgh4cpCdHSYXC1eOvuUC0EKkVG/FKKjTPGzDzeDAJD4Yon7gr
honMY3c7WV7UNtCUkKPyey22j5vTfXBlznb23Vxn2Vin7et76b7acx8i8Ca5
XdZqLfTWBL+3rsXCoENMzN/jxqNUO5Hd2WxNTfwUOuRf8pa4XCsuJXFvNfHX
aiFwrUkMDhYGWz8VeS2KpSkPuMyqS7Yri5Eni5ElXJuavzYb4XvyryJyj9HL
eiiO0jzBnDtAI/7q8P/abITvbYqMVigtOeOu9wix+dvaL3fMvP+xKzdi9jsB
/vqnQURRIOG1PYZW32b45UcKGy8vFrbWum7F1qEWIcvMWPavD4LUTR/66Y3/
N+nFkoD8Jycu2W6OabAPBdYKr4EUcAWl/l+AVtdfdvdHm51vFd5e/fXVzv7O
slOXhDBsI3+tuGNtR/459Lj6W2+99sSsu7cUePjjlJ927ffUswsLd6f4c7k9
OTvuczDurs+9eI8YT4z7/EeWThBwFH4YjrudS16eS1H2h/sZvCOQKpArkCyQ
fW840p7+a8/Ca1rABacIAV+aeU1lKE187fWfC3EQr76y74Pjxb8L92XefQaG
FMMIfSLeFcMvy7z2NLz2nQVLDtAcdNqiB+c9kHntKUt+gX4x2hvTHusVZCn8
KPPuk/CuYJU/b/5sRbwrWEiS8MHMu08AuBfdsPR4TQ/x90OZ1x6z4AppFUOK
oYUUF36SefdReFfoJjFF8e5LByxbRxJlKPPuIwDuiXcNLdBEEZh+BH2tZeAc
N0H+iNuKbW89+659XGPxiNE4qzE7eshyl5iApplUuo+me7OzecjqPk04gc0n
Mkj4Mbx21dX3zHCV1JOZ135EaJinMu8+QGiJhfBs30cav37qM5fc3fxEbeHw
8Rf+YNYdDz5fiGxK0O8ymIqQEFcdqPXTtP998TXRnfhpGTV5PfyHQy/Kp+Jn
vUz39+NqYxF0f8OlNw2F3YsZsLtfSqiXW2GM+2uDS8Mx3ppx5iL2GPfiamgx
dL/g67c9GXZ/19nXLGN3fw907xo8QYzbofu1X3/jT8/N/u87ZccdFnpBGNli
/Uz3dxNq7Q717M23/vKFby95RoAtprP5S6+8keWbJYTKez7z7l0wZdcECZX3
Yua1O+G1UN39IvPaDwht98vMu7fj2m448xrwBpggR8H9KvParYQ6e7kdBVvH
1dqv21awC3FF9wpHt36f0HavZjBxi9V2mmZG2/028+7NuEZ7PfPa93BN9bvM
a9+xNBOax9NAv8+8+22rWbTnLYb/Q+a1m3CN8WbmtW8RmuCPmXe/aaVdWx8j
7aAfceuzTabfb+CaANR63vpslen+Rlxj3AfdZ61PrvvrrWbR1sdoFjB8eeuT
G+PrlkdcDQTuQN765Lq/DtdU4Knkrc+/Zbq/ltBoP1b8iFmfHN9AdmbJtT6K
yGqdydWUV8MzwXSugnM7akNdDhIqTzYott3lVYQmlA1KHF0MvUg75upE+aya
wfWVuGKUzzoz715BaEfZoCvTAZyM8IITChB1Oop49zJcT8pnvZl3L7GUbBx+
z2RPWcoGozIdfInQmLLB6EwHF+OqUT5bPfPuRfDu/afeNc3Ve/LZ2My7A4RS
kw3WyHSwANdY8tn4zLtfxNWRfPau8F04CFMpDA/Vo52AehT3uMCyomv+pCqS
DdYM+4cTOkUvv17vSLmJNB3+QOcTumntcAw4YiRk2IbSgjwtmayBxsrOI5TX
OvhI7OipHuMcKwjajPoqbd1woC31QNEmRMXbhECSh3j7DOLBmZZLcbUoMR3F
1y1s4R5E1duDCNLmzNamoYcN9yUAnE9o3HVR2Ay7OWE8Ez40uRIRgc4k1HO0
iJvqzF9HTc1unwonImPMs7KjzbivxiemBtLx0UEXiTYEWwhisHMLaXW/YWoM
yTVekj8SErdj1Apps7ARPobd3MOOT8Sh5DOs0ETW48/wDHWXJyfppWTFDykH
R3zs+KfDGG6wyBif04nx4ZBj3u+OSKFVcXjgrB8NQX8eKBCatjOYo6tSIFn3
PYIyMDZwcDmykl9gdq/AyHr4OTA+Z4UrMrg15hgKluxyIAeLKmYQ2u55zO4V
GNllQyRmARiqIIQO4Ws3YD6ze1W8A11ZRCJmNYY9AT1aXv16Llv7IM6xVIvc
ibOI8b86QuPDHHEvI1o92a0379x2Eb9dwm9v4wOgznjrfQvP+dh2VQAw2ypZ
3DOZsiqgOAmgSDsi260KKE6EVqi3scPKAyCxZv0UPNP7O55LoqAJfJ+VDtJx
VlxxD2bHlQyXpRWAgvs4U1cFsxwLrdygrnGApq0KAI6xkqvDJP7ieue2oWgU
BqTL4Zd5IaGYBVCgTpJs0BdCYfItGqJqHajlHhyEYKyjoRW6mN81HCYwhv3w
rnbwvcX8bpl3Z1q2j3wLCI7ijuBA2G+XM3VZsqQP7JOuOiSqUwiUbOePPwNg
D/0JCPvmPb0LQzB0vRhbKarQWrkBGG7llwD9RwIYoT8BUe28pxeBAankZa+8
jSwCUhdFYkQBw3KhUbdVWyQL1puFbX2wDrdyEPkQEK3Pe34RbPZwhFfoRdej
CoonBYg6DFqFXgXsOOT9PwIYTxLj4liYgH4CWoUeBuya5L3AL44oMP9paeVu
J0hv43JCksap9zBfMJKyDO2C6lABhB+HkVBP5HKmwB1PzCTyIzAp0PX+ivqZ
KPA50O9W2wql4GMwO7PHqnyXLzOF8zjm1CJvUJ9mseAlLJuQ7foUH+iPQqvQ
xbmSKbXHMScXAW30sMBrS9tYXMMKYkDVhQr08HRrB7T7I+yBtANXMYX7OObc
Ipip7Y1D4FnoDH2FKePHM2FXC5I29l0Ohmehk/RVQpxPYAI9BQXGrgMb0nbU
Wz+j5bUo7Yqu1BasAz9k9RLuS61FQJxYGrS9GD0Ixki7UgeQAwn/QdaPFNdS
wauuJdSMfpgc/0AglrvlLwknbu9OqLQxuEpzFXCfEKdp/nAHQCvUI9udqY6i
DShdNM4tgLazP+4HrRRH3txzxDQ/xtQ2EUyxPZIkCMDaH1qFTh6VlbYpE0vT
mTqHgNwz6gHk/w6tdChYQC/M0MIkdBUBHTajSUwUT2cqLAYpJIsEE9rPaoPI
o6ynQfz57IG7SDpswKTDdKYKjHZPtS/huRL9wpbVxdZMTgu+H7AT+q1ECuBf
D59XJym1AZNSHyH0a0K/aLUH0+zK69d9YXqhJ3xbGsTfHX3ObSSlNmBS6vhw
Cp1mCg0ohtiiUqfZkhhIUWgfmELoOy+mwbhRMWvLSMeY7yAUDGX1TginFCya
3wfvoo40JBNWsX71HFx0GzR2MBXeZGJOReLZ9Myc9gL0h072vQSaSkyVtnF+
ahINZWS6B4dgu/4tFmfQ1Y0D/1Z5cmFG+U+Yamvj/FTFMz0Fb/rRFIyA1O2y
p2Jk3Na+DZZB7y0Y4x656ENMXbRxfr7imZ6HhwPKT4pyRszSz61ArJYeNgAy
EH1UIJjzHkA2N09VOFVnEKDsz9Rbk/MoE880Kjw07sYU1iiFR7uPQfV7Uybb
rX3dXw+Q8R5oFa44zmACQ9GvkxDzTZMILbsIJbXb7kxVESEs9mqc+uOl8NsJ
VIB/VzXFIPVOroO4O7pcum9HoLNIPNuDqY6UdxQsEJcjfJXA1S4AI7pc4+44
78bE6elM1cWdM84faMgOphmtCrmb2bsxMXE6UyMlnUG3xHi4ChQlywM90QfT
Clef3M3x7Qk9UWWi5gyCydO2wg2WKzPuhgnrA2SwfJq1j9Hil9pw34Ep1CUm
/j5K4G8L4ll3iBcdf3QLlxdEZESEO8phFETusARBSMgO8s4PCA+ICkczPB1D
khRGtyT6X4t4NoZJiU2Y7aLEZe08NhzPyy8FDztEARpVDmYYBeDGzCcx9QSX
Eccx2/UySbkJs12Ezh7NCQ0bkZRr8IaajEXhjtb6RnGHK5jjT2Iqnx2Y/Y1j
tutl0m8TZrtcPj3AH8UquFsHk5h6akdmf+OY7XqZ5NmE2S6HJrBTZstc/Ij4
B3e3YkNCge3E7GMcs10vkyRpV9tvlztVAf5nFEsZZHZ/KLPdeGa70QSqtyCe
RRYxmOa28C4ah7ma6Hdvwga9i3iPihmViT73zMxDueJh7OUVpp6fymy3RwYM
qNoRna34DVNNTmW2i8CwucFwHoA+prEVIBoNg7zKVFWUG9bF7COaBpaKzTgN
As5SFOJ4jalaNmcSv8LsL5qWPYCSLBScPoACiI6OBy8l8M/VgVsw2a3C7O+9
+MSLXhVDxnmYzZSSwOIM3GOrkwlFsxWTP6tEH5FCwnZbRyPbquNNu8zRHVsU
NImy5MkYNXv3RKOJPnBP5o4nOGwXpijIzb/oFA53B9yiij5JZAoEqaqCkWDB
cScaZbBqiyIZy5i8wl1RTGPK0mgC+30ZrNLJDZMCbqrVRHHOfrzUpBVKYCnv
DJRQuNxD0tyVws6EzHEXt1FSKeihTkemxMkit0az/GhLYCY3smYyioZwD2+P
Z7LPRILcXDWdmLY9XCnUb7c/R3Dho/DGQwQV1mRSfAKTWpsyUZSYnnOuE+xn
lz9DYPco8vAyk4DjCMJUR0CTjmJiM5q9/iSnK+7diLgDhbts6UxT464JR8ks
5kI7PKFg7HAUcXiF4JDxScqXL2y1iXDQweSATgKPFSa3dTPpvksa39ZodSNG
a0PTzlaoY/iwkCvgnWUXa0+b3lVBmK3Tn2Bys63KRE6RydA9BPGjdHkPcX3w
iXK53YwlnYHOhYVM3S05iGpo9WHJMH7xXYJPDkJ4rUNPdO7CYNolPW3NL9jO
XCcTa0Umm+8fYhD9znGUMbcetAojFt9l0p6yQFshSgp4r9OFHOOHbuaki0k9
WBHdYWDth+PJ/0hrkLy1DswSjXd8j0nHfE5MHtubp9XQ/yFZU540j2GajCKt
6mbe/dCLwOQIfFE9Ul6a4trQyqQptgyuiIVcS2AsHRouewzSJFJcxjMpB55U
JeTTXZ9+/tWUcK/OtBdlvGshAgIsLKuFwDGVUKk+shvGmCBruujiGMVVV5J7
yh73NIl8HK5Xuw1hJ6hDG9ztgp1yfEVjF8vuVMFLNDYGKC65wi1sBoahLibb
cF2f8UyZ5+a+vpupp6LaQSuYRArziEJ11yICXEHQ0E0wTYk5dW7IvUIwFzdD
aiemYkqgue0kVhCqqFrN1+C2y2UO4yLr9C53ZvLn0NrCtw+bW/ewQAX6uS7n
B4g+pjGFI8LecubPjlWwYHHH6xDuKiMUB5wU9XweOv3L96JqeAzBXd1MrjmH
yfG5AmBg4/Bo4deTnF4SjoqYn6bXOkywRzNZo9qelUFReQhTUKN9Ms/fsWeO
A2sBVIzqYF5DQNRBMPz6zBlTO2XclGJuHtLWTGpRML2fmHNbx0oSyXYQRIli
k9cwQedmRZSS/ZW9/ppECnCVyZDbMMmYhsmf44cBzUHM2BxrdMx5rzYzIte4
4YoYjnwVDHDrD5owKWbXibwUppeN9Vf2+msSwRAqUZdKreI6vVwBxClC7o30
JU2XKpEQxnEvIuYDr6ALBm8+6xB9UJm4afVdCRd2VHRlMpPBx7YnxLxjVu0c
bSfzZMGkewXRRBT6orZMYWrl4c1vbWaX3Fwjyl5RLjI4QlX0WZNYW45tTxXw
VkQjVqJAKw8sJH4xU/CxbQPMlVSC57bTrrjGiItRLdC8g4F8iUq10xKk40ee
9KyRVwwInFIxnHjr/c+FHHNISESzPnLKxBivvwE5lMZwWfKp1SsaZf8SUzGU
03rzb4fPrZtprkEIB6aEKggJqPXuGCa7jaXbaQFCj/9NxMefvuyxl9BVzUEh
nYKVhpK9MGB/aVu6m6UG08wb+WrSU0jvAfjYZKzbshw0lm5HHgOazKR6RIn4
1F8f59SfOlcV7ipc1p6Wzuq6NZLTqoSOnR6zimC2Ny2b2NIyy3Bpp6Kq21EH
vlZoIbdvSEGr3wbaOfSofDS32LQwXdI/vyKvprE5eHqO6xcrz1aP9eKJA3cq
2nS6OMdwUSHlHjOuWcZcg9kO2/pqb23oc977cEsmbLJbC2egUG84fkijwTnq
qfKewt2XG5hT4MaY06d4Si7qxG+43S1cFt3lH2aedaugK+YQdiJsQy3XqADk
1iugoTCFmiRc3W4mqMaeA6nueadSQ8JBj9GWznmEdliHOb13MdtVCFR2ICjq
tLY0DCujq+5Dlk/TeKwQkQCA7ioER1tRMpjyhsh5V0mJtwFCdOfnPKZ0U+nt
axPPxoQYmEtlJfh+WwWh5pFMUSYwijFxAqOpFdPfoIF7CkcUgr6AKXGUcaRW
njsgk3c0S+BeRWHsmUyJ2Xul4u6v0CDcybmQKSpcc8StmTElRArJoLRzNIsQ
hFEEXXfKiz/kfJAIT9X3+4uCCtv8gY2WZCwjGWrkhgIxBYu1o8KTzsbTBTcs
flJyA6YaTmdSPFGKcJQTKxaOScLeNRxnxitHqErzo3tN59CgkeuiclIwvDQS
jTp0d7lKoLebiTZwojpd5r70moWPf+na+uMuo3PLJURUAHeo1zvRbI8xawpY
7Cs+twT4E3BmWMZafefECza1vDaQ8arQkQINlPmmjI0kE2HQPKnhpnJy02+v
YurMCNewZO72zjpjeO6DvUF75PktQGa4H3U+AgiRopNzsMXEnUWwEQUuXtJu
V1XjBRWFy5nORYRPU8fZHHaWeSI7Gry9CQKIbiVdEI461wi4u7wIBJZ0aLNL
W+5BtowEaE5GM+0uYbobO4bYTFTWfANuhztB8wndVkZA6ERAHc0kfDrFDE1L
pqae3Ca4lCDvuwFVaJ2TfML81jhefw+3wx2c+Uxl5eyUtdjpPqNjnfUSO8mU
G+Pg5roDvUzBtUf+6/J7Xj3mvNv1mD87+aI70Z3BhzN4phPl7Q7m7xRugk/5
yE2VGo6HB8+4cimKNyw4UYn9AGOUKBVCFegYRTzrRXiCa/yij3y3lT5vcfo6
wIfudNQQ+LDQi9ILSMQOTxXFdAbwaqdLv9/OOndxGAFaM2mzKn85Yr7JhxY/
mnUfCzGVTZMHbo++EDAPGZtLLq4oquVHIgMPO23rUQfbG0oXlSj/qTV0xJWP
4/hKpcv/FiAOA//zk6NW3naQ5RKq3aRNzDVXEWB/LxTHXy+hOTuYlolaaC3G
JZRIjYfj/3gE/swkROV7zrz6vsTZqpKfn4lvgVUQUmG47UmasJJmOCpBg3vk
YVEab4l0dzhjFsWzv5AnMPNYXxfWh+bTpfO+cp8o8YouN5WuccmWIkNPUrV1
unyLiQc3o5KB2iDX/dfQIIw4fyFJy06Xlhis6UN/2Vex9Q62Scg9FjCB2S5C
2/Int/8K3gyDx44Lk6ciFfvirukgkJwNP3A9+QnMdglMtpO/DgfPo2DxPCYt
la+b3fnlpn9twlQkE5ntbg0x1H6O+kswgTAkPJ9JI5Ay1iYq9ygFFaFfn7D6
GxHPIvNqU0h+oV7DQrRnMumA5dZjRrGE2FkTDyv+5pPnLTZ5V9xYezM9M2jk
RUXFSkh66ycTSAaV4QWm3zjq7NuenvOlJcFqhHX4w3H4rxq8+VHwAZCZcOPV
0Yw79TANWMzo8KWoGhhtifTJ+LKNqr0ADcLI5SlM9Hcx2/UgzI9ZI65K5h7x
ovLFfpXUr04uCGTzVJEtELUW8jIGFO+GMcpjCSi4W+VdzHbphMVoU44bieM6
+JncRtPulzji/V3/RqNud/edHO30rv9zgGU00HksEzQuX3FR10so5faShdnZ
N1kOidBP7vjbkuDyXnbH/2fQwA2VCnE4vj3BHrFwKPdzESWCUNxkLAKx1OY1
7OZlN6+fhQZhrPRT7QlxFhFFQlel+xjn9pHa0sXuEwV3cWJMZBK+TWL4SoUi
RhzFfkaBi4VaT2CCSx36SPtC3blVoLgv3lO2dt7/3Pm06QKLLEYpCQkuUdgN
otRYYfAOhXb75Ut3R9tTIqkTUU8Dbtywq9nePjEJcDLvncHh3Op9WLvfHX3O
YnOPmwFNVeYfJnA9yv+Iocat48AIGri21M8cANRG0duTcXCwFHWsfkTyoB4W
PdN7hIc5KMIC5/I6MZTqTtVv8DFEebfe71TRtretSv0pzD4Mx56aZwJ3C+2F
ExbcCYyUSNMjalyK8D+HWfytARQTKiIsP2LiOUv9fS22BjT0OWtgywRPwpth
/RbpOJ1ICAtj2S85oZcjjzLK0Pj0xUvCbj7w8DO/djNU/jRj/qKXPgU7Hahu
ktObFKLHrgufsB6K+9m3k5JaFj/cEFBa3iulKfjmUWfdSsoQvDu6eVht4W3n
Xfcjrb0xlYDdk4BtlJ714zDrMDg5O8nr3uFPTRwFJfmFFU+SA37Atp6T29Hy
+m/hlDqMTHkJD/rfPWRI8VFgZzSkeHKenR1CFT1CJcz3NV/+7iMho2DKMakw
cygIXRn57x5E6VkUPAKM4FYLETHBk3BBv+Ocax8IZ5AkWLqmrZdjIzCDSQ+m
OxkIkHVhHQT09fWQu7gPAwLCkF9a/jtf+eT5xqSLH3cygnTpM+lkqswKfbpI
jrJ1Wt5/osYP4nryu88g9Im8tLIIE3z/wusfxEDO+rGU6075uPLtbcPpZAtG
qJqaaIzvJGtXTPS6ivi8aWokTVY3YRVlp4nKksS+3I+hQVj1AkhVCQPM+jcm
hQk0J88XclMD5XVqOLG2qh3ImT4IMw2DZLMtubQLXehKChZmsbpDi5U6I500
NtHsuJUDNjHtVIHKwaGCrav4gLU6OjIlfksHazaCfcKNwBIlshbLoTp5wBjH
QXtn9DclMQGwR9GhU0KaGk9aiiCmexkBoNBOkadyl2/u/m167vfDS2EA52RE
TVXs3Pd6/NlXEvUfc3Y2ME15czItnD73RPiG6p4pGt5vy1/r4upG1UpkLLXm
yT3zL7edACPRpprjd4llU7ZYApVpljZn9DELXLmbj5+ZY1K2Inhckr7klaRv
oayawlQBqav+Q5gVGgyZQWAD++oStgNTZloDbjE+2Vp+5DAqrl4xA+rNKXti
usfhsoF++EDnWIPSsHR9xStdr7+MUKsPd7hUcCUSQy0YgygYMpOJkSoiyFgN
A+4eF5XiJVvsTmDVN1l6/a8/ddowchzpsA30XOynEhREmE4DbowiKEcxp0if
QW7X1ll+OyCUUKu01EH9gv08b59CiuX+yKhNUNDKet+qrreDEIuPJdCLG0ox
e1D9zBlgsUVMUjvzFpDASE8SI53qqHTD9CBSKexxmPpEA6ZlCRQbdxWMtXcj
LbOYgDtFQf4446xFrun2BIqbki17PTBExOgQEX22AoD4dqF28SZqmMx3VzCB
uBOmHIZZjmGCiMSmA4cIy4MjdMSHwumOMbYKFKsnCZLu0PNGShJck+4RF74o
jodSgMKj3Gm8fNwFt4tVZZgI724O/Xz2wF1oFLSUoubMcHq93vT6koKuXTVd
wd+n4u0weTdGIlTcMYglUHnwbq67oVjVeixiUW2p0h+C3UWA7SrtLVL2TIIN
H6WPIhufRBQKEWv27rUVkz4qnJZ7PKROTMueVrpVMTQWtgCrkjwxKoNoVeYc
MIWKk6ZitJ17ANB4KlMN6KDB8VjEUbQPYVYmGAmweyAQUUaHnMEskgrKv+oz
YEOBhSjwcDRtwsMD325UXkBatXr6xlYXlvWPDaGzIauFAIkbGBC6E5SJn2tl
olU9IkE+dYoykXWMo+34NGC3WFUXrd+PQYwZFmWhViOyxYnp8W+2dtRdNR8b
GpXEsSd5/Vy6e6jR7y1MBTccGduisEZhqOBfm3XuYvL0Tw6U71jxj5aFR9Iy
JJ568XlXXrCzHvL6mTQs3wZY0JXWkdY1McEqNS62HWiP21AkImC5CUgULk1m
ICgZBd3r4yqS75NbC/iQ8Rb8t+C26+cL4zgzVBLh+dG5vkFsK+o/B2ALljcJ
AL8BxEIdb6V8Pccb9iTbDLd/BoUI3M9OufEq9p4GtLfU8qZEknsdNmRtDbBv
WHF23WL4vGn2VBcWutAW7rC5Ea5fO+bcxfwIfCSaJrQhKyX1qQWCtuB2vW7D
uzfC7EIP+OCsNilqF1ACDgYkdVjG22NMeofzwtnoj/6Zem2uP1KA7wvKcICO
yMi9pYJpETrJW5lZX29NhPaGTQ7QwUnFVXYVl6Fch56VIz3G4HX+9bC5dc0T
2ql29xuxMJmE9swQG0Xl2YRVsNTyT51gBZ90wD2tb8m+pUEA1DSPXOYPp90I
T1GOIckdkzaajE7ZMjUcwL1U+1FyEjY5GrYFtzDAQyH66Hug03HPo6JNiq/d
9O+0y5w9myQfnB1OTbGt3gRrzWqc5mM5K9hksbO51hrRyIf+sBU1g/sSwm+t
v8ekjMYFaTt1DQzt+sDmU0AfRsQAw1WndR1vuvibDz182hX3tLcMIeBTXxsJ
nd2PIFxaTg5Z8XSqw61YaRgJ0YUhRF0OAQcGYB+pQ7OqiLY44ijy+G3C/tUw
g9BJPoBQr1ieDndNBDoie/ZJznJBOEubnIXk/tX7y0qj2tx6d5t+0GpUfcDT
lA47IK1R3Y/hCfP5h6PO1v5PZ7iXhK4DrsJN4Ghvh9MGhhpeZp30AWxar58a
fZW1+64bfxDCfE7KFLYBJAG9OmWr3bPHOv0yCGgCvoN7FtIrAdJwRfAhoKd/
6gV0YkrxGc+ktlBEfaw1ui6EPnHi10Tw7azyudK6BCe2jDgY8Z96Uqrua2ko
vaFZUIb8ADVfyu7pPLPAeH/WXeo2zw4FThZt/mq+c8axR4jubHfCWrRtqq9F
gp9qCtVtvSWMsLf7wUT9LYBaVJD73BsX/9RdyemAsOMrInqXwWRSTADyTk9y
AC3epO1koFJKtB76QNLbcZbDsY+u46GOxFSExPzyhAV3oJr2elz0e51Dtn3y
kG1/v/bb9L/7jB/XP9CwZgUKdePrp39H3KAW9L16oTl/UT7s/o2UsnLDasnD
rPF6D4r8y3Nr7hrqg4hwa4Qm3DWVZyBwnHTJvgnQBwu/cFNJ+JdVpwa0p1fj
Kfw33HYXSmI68Bmsiiv5rlT3pDD8bRTGcQ6MsY0dsDY2WrUA1f1FmVpbNOZc
vETEFRweLr8+65zbRBGeB2pXLfXXlN8LSW/dsQWAgnDRAMovCvRqHeAMK78l
6pbnSy4Yvo+rAmbpIgntFwHacJWwj0WU2ffFYlCOE6JJkWS4ehpabgGgC6wN
1KsAvT0LX0mM9107QlWV2X2S19spxMpYSB+ruA4UcsOXDvsiehXzz5ORgB/g
6gdKV+ojKK1Vva1ro2r3hSsFMFeVUBfq38mw9515SyQP2NmEwHOhQejo7wWm
ij5LNXdhtwXEl8YlTANvATnbKonIEd+LsN56HXdY5tOrObAS+DkLGoTe9N4I
qxDfItZp+dTnSiWAd6e1GByTj7xlgKTsbl8baaq2oQvuCUe2SS1Wc40mNdc8
qwu0P2wO+f8/hrLlJiTK67I0vEgSJaq75gK8qGcM8PoZsY5vhYGaVAsPUKjV
cdyi+dy4W6+yD25XnKV6QblYgZsPpUoix3cvhFGdDeO3A+aNVcqDSZ3m1+qK
clr6AmcWCtREzuyeln+jXIS0ROEVliTAD+EA+wtW4xc6KykLKhTaxd3U9yJ2
GIMzuVp4mKkas181+jw0cJ1TUS5y9xihIkLxm0+edzsKKLFw8yNQot9HRwr4
06BB6JbuZrFr3EFsZ7o7hd2otFxiLaYBbNi4ipGn2In+rDVOkQerQEZi61w8
E8ysKr+hpzId4CF+p0Ww4YSQWlPdFp8TnD+MvOI+UHz4/tBcFZVmZjk8RUBf
9Chijg6qrRH3Ezd95usMbvBIge+6yWKvcmeEgSpaPftLM3UbDc89E7KRW/NH
7+noyKIOn4oWdq07x1rDyDPeOckzEZRdKcX8bAiiytKSmxD1uv0R+cI7GLA+
Da1QBzj8KLcJ+cw1sUIdL0cDBs+lvRfIvY8c3akhImrJjQJsp1GO+ov0qCrH
W3u3epcw+vj4XNrmJHV5dPzfDn2SVRmRP7sTMutuBn6Hw+HGumrWnlCzUgIH
ayP3dcfYRpjSrBECEru8EqLfkBBhih9KFXhurPBZtifMqrNQdM/q+KR4NQ2J
d6rLQnK8FdDIXQVwkocDEB2ejky8lmaS4wAE1APdFrfjb80861Zi4Y9g5vfp
8SG3J3IapyD8iS2EsbxzOeQf0kNCmqBxA/W5LChNUAmrhOYRjywNotGxIEzF
XcqosJX6QlvigMlgYUiNYg+YqA9ioJ7iFISlFfsKrfrnI+cvctk8Jtyb6XnY
JY5Jk5D75TCPjXQ7lUScnwfk4UW+5BTLg9qaMnycTjcrILngfIucXR+kSVTk
tewtf7QPv7FqD8m1cIagy8wI8uCNg6nPQSFfHDczSjqVfw1BVZ9dB2/A34gz
Kc0mebYF2uDQcKeBbKa1DJEzuSUu9EnnvWytRnLD9O2kZvR35t5l8B+eJSp6
Z4nsjtNwoV4D7qrVh5Vb57qZcODlCJhT6GhKJbclomnaXKTE8i8nHJ1YSVgm
O+vwuE/RO+5TNCQfbnGc0g/qkEbyrM/hMKabKi3+3spS2a3jkgyCJCMLTWKm
ToW5lgO9mVZt8sBNmNJ9uDWFka+6FUIiwv7Ejqq8lHERijZiNw9U8OCQqpol
4TwM4AydV6luI9HJOHVUcrO8VDlmpCyvosLsgDnooFOXdJRsM/OeEpgW7u2c
PgGIcD1jobS2QKxHL4nibo65wKL55hChPdGm2N0RcmD1ogEb8ggj1xrATsT8
MZmmtyDlpZcihI6fdSMFWGFiXY6mqjky3ZJjbec9gnzc6medh22OnDhUwY6P
I9I5JgR+qgZeS6IJ/vlnMy2qPwY4dZ14UUtjc4RDCD8pdt7lZWwIn9ycaKF4
eKjFDbV+A2N/reU4DDet0vgogBV68sDtVcxnMPKYXFDJyxocwaM30aZbhRb5
9psQLkBXTimMX14hs7BBhpqX8W1OcGyCiw9GVifnxc/AlJe1SDj5H6OAjz96
KwRB8I0DHLqRgrYWJziw2e9BQHpNtIrYEBEJ7KxOVvevg0OU+uICJFd5nwkw
RzcApmRtDSJFLqHn18dJS3zF4ECrQLR3L/T2Rogy68lhZkJ69MTOHqTRRZ74
JI76omIP8rJhHpygfv4HrXqP3O8JCExYPIRW+VF9rOUvTr+/1RVRgGACrisA
toqg4MOnXX5PGJOwYE5O8Ti/8rvK2dH+rT4wMhFhrPZV2BYhfG3VXY8D3u+3
NiFycjdg2lJaj20OEPPOkkC2gefLmtDB+mwbSkjqlmloJPEAAFuUWyU3KVR4
semsWdwmpJUdRmWBhI7ium1aEJpXtkuP/z4r75E7t2441+UiOzE4bL9K26Rd
N2Gzwsmv8Fol+mBfNjKsuDL03tZGBIFedkTfds2GgN9rBVFXsjUnB5zP9+Qj
TlnrEJWayQaF97AKVztnZnsk+lyO2RZJccbOac54D0ASOlZrhfgn8yKIqLO8
7JIeH7aJS2IhoT0oIZZr2vHJDVhaInZPj7srIBh1lcaHYpEJN2bFYo8Qjtwh
l77gkMsugKXQcxrH8ROs75mQnD1D6OLTRXJjUZ8uaqpj+/BoIDhdBBu3npsl
YgrjcC+h/YVi9MFxCBFU/bodBfimql/+peqVvVCtkNNd06yqjhLqHZSTPgUd
K4u+/L3yzupNtZokct3GtuduJPhn33Ay/jFKAJI+Rgk7kZ4DJzaAxo6E/7Ff
CF63Zhh1hFVmMyslXFdHWLc3oO1orUSYM6TrPy7fEn7/tHLawSqnyCcbwxck
2leJiuQkHETYEov8szFMC0Fr6P8AIHiuKmwDlcSOkHbhBFSjEVuRFkmCIgem
gZFk2dbqhWjJhnwzkLQZtEgdkuYNlRoUunKjcLbIcuH09Ehq/eK6ZkJARyEa
kKjkkVDjH0uPu5WVuGiB1MPUWLT6/Xh6cBW+F7o+cry62eooRddD0wOriHXo
iHWtiIo5LD0cRG2j5RBW1o27EUarmyPTsGxq5SrKUany1R2taYjxVbQz9K46
2zL1BBmiuk126MmxjAlvqTIihvno9Lj6+2lYYLo8Elb3mPTYGxIeCVUSLMvu
x6XHnGQdDDfDpDRSxvSE9NAQhYpixMWQxMtlP4lxNyCciI6RMpknpcdXwaMw
l0Pc1ZNOJRvSSvSU9JjryRuVMJ1X3BXIS6+NiCnOQYeLvRMIWXSi3oGas1Aj
7a94TgUAeD4SLNwrYZbDwQ8+8b8C422dI5KXz6ZHlyhXkZIwAVb2hEVKaNqe
lqYtZEhUQ7fg8/V7rzcClFURp6f7H28tv5aXlw+6e/0XZi+4Bc06oxVCLT0Q
LCEr7k77kvmLPqAx1FYBt9xY6pOArpkfPuXiOTxkRRVlbL+rW5Oto5l/m7qs
t3lE7erlcAbPSg+kllgLvnXHgrcnPF+U0z74us0zsZgUpqJqI3YgWEWUbjt/
0cFyCTqmRZmZFx6SzHuWl3PT/emP4bXYVbCRhGLLxyvNmfPOa++sg7ycnx5I
VWQS+uWFORedKwcRb+5/04Tm4bVvarZKluuQF6KKCHigsHHYQohEjEDQERft
ndfVX0z3C56dzfA/8MaNJUSTnyk1jzrzM1RavLwMhF3rjIHmsEgcIzIGyhZj
0vrNmHtJc8pD0tdv7vGDNQQTu14ALuAXh8ObhAqTcOcmVNhsR5tQUXIwK6h0
1Nmfaq71K2kpm4desTOdnZAYv9MU+azVh1TpXpspVqsP2wQTcAKqXvT/0Mt3
loMIMFrg6IPHaSpcEoKhQjmFIGMnytYLE3kgRmdwIWggaCGA2en+HkGjEikh
l+OAWHqIdCIdZgMcAU2UI+YaUsiaK0g+lPyotA6thmWZhCgLzoDhZDVpMCC7
DHJtMDCa8i9Z8U12uxw9Am5LeoMDVND8Gq1tBpO45A8pVfXPPnH3xs/PHrhZ
a7cE5r6So53JjMJoB+NVxRpK/DNd701evjpSDGu7vCElijp70BPFOiKK2b7a
UStEZykVWQtVJNHHnv9q9E40il19+8bX4Q3eCoH12t8jBv7V6J+80T8ui7f6
X2ZGwv7aZyW8uKlpZP/abITvbboCo0Upeg7o4m6H/9dmI3xP/rWco00KoW5K
PhCX/+E9Kqz2/wGYheUZ\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777270847243656*^9, 3.7772708475250688`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"21", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm2", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"21", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    RowBox[{"nlm2", 
     StyleBox["[",
      FontWeight->"Plain"], 
     StyleBox["\"\<ParameterErrors\>\"",
      FontWeight->"Plain"], 
     StyleBox["]",
      FontWeight->"Plain"]}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772708532951236`*^9, 3.777270856517977*^9}, {
   3.7772720336793847`*^9, 3.777272035150481*^9}, 3.777359532764236*^9, {
   3.7773597150969477`*^9, 3.7773597178478365`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "0.7141402794277057`", "0.04360206213518787`", 
      "16.378589554171064`", "1.0996561581589474`*^-40"},
     {"Tm", "2321.9963730147515`", "36.74766886507328`", "63.18758290601901`",
       "4.8480778538837576`*^-149"}
    },
    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.777270876825431*^9, 3.777271157542658*^9, 3.777271301307459*^9, 
   3.7772716028628855`*^9, {3.7772716451048846`*^9, 3.7772716603408184`*^9}, 
   3.77727189194003*^9, 3.777272689543388*^9, 3.777272747913357*^9, 
   3.777272808821475*^9, 3.777272863362076*^9, 3.777273080790843*^9, 
   3.777273121131074*^9, 3.7772732470928745`*^9, 3.77735961985962*^9, 
   3.7773596861183577`*^9, 3.7773608801730986`*^9, 3.777808394347232*^9, 
   3.777808504464444*^9}],

Cell[BoxData["0.9874528887048953`"], "Output",
 CellChangeTimes->{
  3.777270876825431*^9, 3.777271157542658*^9, 3.777271301307459*^9, 
   3.7772716028628855`*^9, {3.7772716451048846`*^9, 3.7772716603408184`*^9}, 
   3.77727189194003*^9, 3.777272689543388*^9, 3.777272747913357*^9, 
   3.777272808821475*^9, 3.777272863362076*^9, 3.777273080790843*^9, 
   3.777273121131074*^9, 3.7772732470928745`*^9, 3.77735961985962*^9, 
   3.7773596861183577`*^9, 3.7773608801730986`*^9, 3.777808394347232*^9, 
   3.777808504464444*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.0460904115832865`", "0.0024692242810915427`", 
      "423.65143563259187`", 
      "1.3463812921320183863838635022028138999787909356`15.954589770191005*^-\
339"},
     {"Tm", "1864.3015647759987`", "5.835773592814742`", 
      "319.46091381464964`", 
      "5.827665078942066792373468238078661402`15.954589770191005*^-311"}
    },
    AutoDelete->False,
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
    GridBoxDividers->{
     "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
      "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
    GridBoxSpacings->{
     "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
   "Grid"], "DialogStyle",
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.777270876825431*^9, 3.777271157542658*^9, 3.777271301307459*^9, 
   3.7772716028628855`*^9, {3.7772716451048846`*^9, 3.7772716603408184`*^9}, 
   3.77727189194003*^9, 3.777272689543388*^9, 3.777272747913357*^9, 
   3.777272808821475*^9, 3.777272863362076*^9, 3.777273080790843*^9, 
   3.777273121131074*^9, 3.7772732470928745`*^9, 3.77735961985962*^9, 
   3.7773596861183577`*^9, 3.7773608801730986`*^9, 3.777808394347232*^9, 
   3.7778085045113087`*^9}],

Cell[BoxData["0.9994273724643538`"], "Output",
 CellChangeTimes->{
  3.777270876825431*^9, 3.777271157542658*^9, 3.777271301307459*^9, 
   3.7772716028628855`*^9, {3.7772716451048846`*^9, 3.7772716603408184`*^9}, 
   3.77727189194003*^9, 3.777272689543388*^9, 3.777272747913357*^9, 
   3.777272808821475*^9, 3.777272863362076*^9, 3.777273080790843*^9, 
   3.777273121131074*^9, 3.7772732470928745`*^9, 3.77735961985962*^9, 
   3.7773596861183577`*^9, 3.7773608801730986`*^9, 3.777808394347232*^9, 
   3.77780850452693*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxV03s4lHkbB3DtSgw21ioWOVRrKzJh1Yb6rg7soihlamuVbKuyFUlvJRHl
0GwhSSJJdDBpnAYxZoxhHGZQazWddBCtTa/atqRk3t7X/fzxui5X1+f6Pt/7
fn4/T5aBO1b8/ImamtrAx9///jv2swlq//ezDQ9Dc3jPjxeI/sfoUASaSooX
OwrIuzHY6R7p7Ssm78XyxfuCYwul5APQjDV49rt3y5jF0Rg6tCbr/pR28iHU
CYse7hDdIMehBErWssRO8hEY/xS03vN5FzkByaWe0vyg2+QkbOjfdVa4+y6Z
i/22bqYOn3STj2HIZ2htl83DMW9Ihq6KNSxe+YicguVOFp6rTz4mpyLWJK3B
IKCHfAJHom3tb+Y8IafhtfL1oDipl3wScSN9jlUVfeR0PP7atklx9Sn5FPb6
X/G/MLGfnAHTRUMFGkWMT8P8g4GfhfAvciZedv1eIKx+Rj6DuTXDU/W7BshZ
2Hk34K/1r56TsyFyDB2RWA2SzyIhe8pGffsX5BxoCIZ5S86T2efQ4pP+MvWb
l2Pmn4PCMqJL2ENm5+Lifp3S6dv+pjwX5bN0Z+n/SWafR/GHnNbc1a8oP49V
kQkPHO+S2Xk4lb7xlmbqP5Tnge288IHWWzL7ApQvNm2OrHpN+QUYxn7aoj5I
Zuejw1B/tFH6hvJ8zFpYpeP9zRDlBXi+mrf28EEyvwATbzeEhx14S/lFzJ2c
M9nqLJl/Ea45DnXHPYcpv4TRGNWyk51k/iWcSO00k/z8jvLLsPtxur/HRjL/
Ml5bRf5L3es95VewuuDOtf2dZP4VcMc7h5osH6G8EFEuV00SBGR+IY7odHOe
bv1AOQ9OPdZehhNGKefBw8HT1/0cmX0VJxKDpvdsVlF+FeqX5yxIjSKzi+Bn
lbvwa2018VhehJQZhveC55PZ13BI/sdNRRSTX8PU2XYrwl6TjfiIfzlpxMVs
3Jg5fCQfLsj8JZCcwYfrq03fHeaTlXysa2T5To8jGxVDnzui+cjyE+oXI/mH
RbOt9pAzivF579tv5WlkZTGm3l4dE/PZp9QvQc05lZ26JZlTgtnKCCPtJeSM
EmScXWS9+DJZWYKDJjf1um8w/VJEh95wybjD9Esx6JjYcdFEnfql+PelHLVH
K8nKUnAsdAU7mshGZZgSkufjKiJzyhAePM4u3m489ctwb6jWnVVJVpYhPv14
kP9pslE5eO/a1g/xyJxysO6y9n15SoP65RD+njV1QiVZWQ6RcvJM4WaykQDe
1WeK6vvJHAHuzIlfXrx0AvU/Ompz8yJ7TeoLEKm347ShLtmoAq4LbDUPyOh5
TgU8Ogo9JXMoz6jAl7aObqFeTL8C+izRn/E/aVG/EhecI+bcvkQ5pxJ3cqeZ
THCiPKMSAn1FQLEhWVmJgU2scS4mLOpXgfXtOdveFjKnCjU/dR5NNCNnVOGf
qsVPl/qRlVWIaBt6VPMn07+O7x2CJK6faVP/OuLfhT9b+gU54zqMs5vSw7KZ
/nUEd/oc+i6T6VfDuZ8tN3nG9KsRdSDPIiBYh/rVcLrltysrnXJlNbzNXq1x
UpGNahBVeLRAvoWe59Qgpbk45lm5LvVrIHALmi8bpVxZg4fKsrTqn8lGQvxx
NNr3zMrPqC+EL1u+L+X0ROoLoVjhUCBwo1wp/Pj3cxPO1yIb1WLvrxdePOAw
/VqMagqEdonkjFosLn8TwC5j+rXYoHvqSlEAzTcSYXjxsFbhQzJHBIfSuz0F
0KO+CI+StH50SyQrRTggWCtqVZB1xDA/aKXwTSfbiJF0RH38PE/9MXuJkRMR
ttOKT/NDxIh9tz35msXnY+aK8dxS4PMbi57nifF+r2qo/ChZLkaearrs4FGa
PyDGzapj5e2rqK9Th9JlZx5eSqbnbeqw1+2bRakcet6rDvVO+SqDVZSH1CFY
Kyl1kojMrYNw4gS9PuZ8vDqUhE3eUjaX2V8H5xTkfupD+wY+9h0G/OI+MPsl
2LCbuz9uCbNfghhBjvHqBub8Epjuz+2LizWg/RK8WbZv1m8KZr8EVYGZt1Mq
KOdJ0MaSrzeoZ/ZLsMkoWO9ILrNfgh/mlTV1ipj99cj0Cy1e5fYF7a+HOHFr
68VRmudVj7XHAo/2y5j99eiNnSnNvk7Pc+vx4vme3JkDNI9XD/vBVu/zO8jy
epyq32f+JJP6A/Uo8V+nWBZP1pFi3oI2075oZr8UqoAVEeEZ1PeSYmngib+3
cg1pvxTq4pXRzebMfimMtNKXb9lD5knBdZ/WW7me5suleKp33DNvJ7NfCk3n
b/UCQPN0GhB4pWSFTzTZpgEPSoNtx90gezUgqyLOs8aM5oc0wKLD4wtfB+b7
a8ASf40R6eFJtL8BoVGO1drZZHkDYp7sv5owg9nfgD/qvTPv3zem/Y1Y6v7+
g2oBc/5G/LhKvm3eSeb+G5HixPObacecvxE7Fc5JswYo5zYiYogbb9nL7G9E
jNrbwiIzmi9vhOpekXVXMvUHGhEfPjV5vDtzfhl0U+3v5ZRR30aGze6h51/Z
k71k0H7y/i/pfeb8Mii33zqS0sHcvwxpG156xcmY+5dhSlpxT/xXzP3LMC8/
rc+ui9kvw6zStQcDtZn9Tbg/Ou+Yrglz/03wd5tW2/h2Mu1vwrTQG7eHDel9
Qppgr1Hn1XiTzG1CmEFk9IK5prS/Cc6mB9q3+DHnb0Jud3ChxS5mfxM8d+ep
/LXMaX8zNs0M2P6rB3P+ZoSviQ7yUH1J+5uREa/K3iGheSHN0LjW7Dp4i3Ju
M6y/T/2+oo7el9eM0fT6qsI+ep+BZvhse/yD4y/0vE4Ltv4SIzQLZr6vFkx+
3DPlTZIRzW8Bt9uCw7tCubwFgy75Q/ZLab5OK1Q7S/eyzZn7acXrmo1mRdom
1G/FV1sEjmGhlHNbIV8340m0Nb0/rxVbNAOEF/9h7l+OQwuNN2MFvZ+NHLXZ
xuYF1sz8j07Ymt7dy3x/ciiHIgJ3LWfO/zE/l3QhZA3lPDm+mp80YmhD55HL
4eXCOpzqSPMG5GCtSfk10pH5/hU4w6o6Pfsuc/8KtN/P6n6sxexTwPW0WnHm
HprHU+BYw9p7GnxmngK/VYm42R7MvDZUGj4+uDuY+f/UhnWyrT7bp9LfI6QN
4XMO2Tr5WVK/Dfku1pGtZvQ92LRjfkLcXEm6Fb1/O1Ky6vq/06XzDrQjvXbc
31V+dN8aHfDu122aFEvvP6kD6WbtM87CWPwf8YT3AQ==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, -0.3366771845123703}, {
       46.007686206204134`, -0.35648971545184993`}, {
       92.01231118791847, -0.3763022463913297}, {
       184.02156115134716`, -0.41592730827028895`}, {
       368.04006107820453`, -0.49517743202820763`}, {
       736.0770609319193, -0.6536776795440451}, {
       1472.1510606393488`, -0.9706781745757198}, {
       2944.2990600542075`, -1.6046791646390692`}, {
       6136.253312359592, -2.9793386126041526`}, {
       9116.682163413447, -4.262901707573259}, {
       12038.64683145817, -5.52128638982451}, {
       15208.269752978562`, -6.886328539914145}, {
       18166.367273247422`, -8.160274337007802}, {
       21372.12304699195, -9.540877601939846}, {
       22438.203590057463`, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.045058155433305484`}, {
       46.007686206204134`, 0.020381554903153635`}, {
       92.01231118791847, -0.004295045626998254}, {
       184.02156115134716`, -0.05364824668730199}, {
       368.04006107820453`, -0.15235464880790944`}, {
       736.0770609319193, -0.3497674530491242}, {
       1472.1510606393488`, -0.7445930615315538}, {
       2944.2990600542075`, -1.534244278496413}, {
       6136.253312359592, -3.246389090587963}, {
       9116.682163413447, -4.845072966290208}, {
       12038.64683145817, -6.412397010453529}, {
       15208.269752978562`, -8.11256343277868}, {
       18166.367273247422`, -9.699268918714527}, {
       18727.02069866471, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 16472.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777270876825431*^9, 3.777271157542658*^9, 3.777271301307459*^9, 
   3.7772716028628855`*^9, {3.7772716451048846`*^9, 3.7772716603408184`*^9}, 
   3.77727189194003*^9, 3.777272689543388*^9, 3.777272747913357*^9, 
   3.777272808821475*^9, 3.777272863362076*^9, 3.777273080790843*^9, 
   3.777273121131074*^9, 3.7772732470928745`*^9, 3.77735961985962*^9, 
   3.7773596861183577`*^9, 3.7773608801730986`*^9, 3.777808394347232*^9, 
   3.777808504590583*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfQeAVEXS8LiTNhIEBBUBQQmigmKAVTHgoXcYUA/R8/TAsGJAERNmFhHF
uAaiLhgwcZwYYDCjSFAMiygHuHjoqSxGUNAlv/9Vh9epul8voN59/4k7LDNv
uit1VXV1VfXx/a8YcN7A/ldccE7/VscM7j9owAXnXN6q56WDw7eSOyQSeT8k
Ejssb5WA34NEgr8E4f/0ZTW8wNvhX2PJ78nwtTpRXV1N/rUre4//m/zA68HS
F8dIX6woDScoy7EvpsR7pRWJajYC9t1q+lCiojpINOfjVVck6FerzUlHaw/B
pC3Ye7myRDQYefgg5Iv0IfheEH1RHsz44iiOEn+IotRCx5ROTL5yoPT1y/kc
fOLwv3zymqTzMfImyWs6fM0lykr5kxSZYoValDIpHaxEWSIXBNHbMIwYIhlh
mktUhMPDN/I4FOG/yipygBSZX5/JjlI0hxslCfMIpSKDfIQldcMqT+df+F86
wop8UwLEYCH58AAJsSvYcxx79pwF1pIYWLG3C3UUGLHEwDBnjqOWogzjH5Xl
TEKQwS2YpMnIEfkpNgQGFzr8efq4E50CHB31UZuoJnE4DFyulHARVKJDFyLy
WqK9ByKZrpNcFehyID8tVEi0OGRor1IoH4FLiFOg64IQsm2Hlq9ZMmNFRag9
Son848sxBvwhBupkjnwcIl0x1R14DlR1riJSeykGfGkZFdggkqEY4K+RRJjJ
A0hUFp9624HP0/mZkLRqqdCqWR/gr9XXH51D/y7YLT/Iydf91U5ZoiJXbdEN
BrDX4ZoygwBW7KtXCF0ivaKiweBVcbAokJTxtrDMGA7asBkc3iLjaUkyihU0
6JdykewqOpx+LY+xJeJ1mfQ4WceI5jHE0kDpekTQItMvCakwkoK6+YigGfOG
UhKu0gx5IEPlOII6UvwZNrr8sQEFd7VMx8Kq4FCsJB+EzwuQ83mz2rzCdcpo
7gAQnagNsYLJklDUD/ef4D/+XKn0nA4qAcWOppDbSPRTCkrh93fCBa8F/rYx
GfdpZLVSlqvO4+Casploqq1ixVWW6Gi4yldG2IulwJU508XkiaY67HSJNTfo
IlCSp7mKcZbaDGXVEZsRuk+JXTR4YermyHvGBmOshEMp+GKBNFgAxIJJmPB2
lb5obKz+j7xxBF8tNVWJyvJw/Zexn/LKRFVNkIs+zikfl5fn4OOU+9vb9vGj
EV/Cj+Htyiq2Aq1fyfya8DzkhAelz68KDzMNh+tghT/J6DV8kunKF/hzVZXR
SPS5TPhansjVSKqejpWKPhbD1PVjFYiHERqmPBFIWp/bnhCOd0FokC6pkO63
gXB/me/5iapKJnK5qkQNeaQmfK+cvVdD2V5A3s4RISpPVFbVsEnCR3P0UcAz
z2/I7fvYI1aCx37V87HtC++DCLzJOhD5dwG6C5WZ7uSvlIAzVFM1gQhHqG8/
zzENlVs5HYdBn2XzcaFUvhaJkf4+OqvnYwZwmCZJ1gk959u/MvSYlklayZ1U
yP17wr2/LEcCfBuoLzELVkPknyvK6DvcwKnCVLeP1QntUhEPbJ71ue0JIcZ5
HueSyfTbQKPzExE9GaiXlBkYP8V3OAAKu+v4sTqhk58xwOZZn9ueELr4KZPp
t4Gmjvx8Xl/l8H4VMyrZRA33d7iO+FVh/+/ktWFzZBKmdBL+R0oB3xlwHwJ+
qOOZDr0Y5o/+j/UGhCkr3bKCbsFvQT+LWTaBpFr/Bb6+yRCVobxWktH55hKz
P2Is3MCEn3t9rEJSyb4Cj+UquesafcXYUFkQ+m2AHeMGNuVBVWOv+6sAqoiD
r9+rxgeoXGVcI/zKrqYsGnQzDXuqnCoa/w2+/hg3IimE7vm/I7haeKEmxzeR
0sYyeq9mmqZ9Qe9l/b6at10fm0geSyfkja++5Y4ZwvOx7Qv3uFi4VeIW/B5A
dpFlog6hxsgnEg4FGEBhGOk4v16ckeP1nxtnxCHU6ZZU6GaYu18FQqYIbCcE
5fIJgeoEcVhUXgd8iDyOEh1BIrp1FlsonH38mAxESEiu2BxfsYXm/SaM+bjS
Cg9GKJW520aJmI/l42Tywo6BOusSFX/WIsZ43j6G75oTgz0bN1hsrFOM9Zx9
rLq5DwZ4reQhy8tD8paDvIevyUSlxEzM3/ONR7HnILszCFGDn0Qe+Y28BS+P
wksK3tsBfttBBy5EorIyURn+ZMhrEramfsDF7LrIc2mYeQ+YmcDVNvqt3XZ+
j/yWRN7zGGVXlEZ2mfDEnUIDv+Wpv7Xbzu+13YbZWtDf/r9Hex+uyrZtmyko
8HY0F/bbMa75t3kvw6BIyGr8SX3Gfclf2+4Ox83DBWqrHa24CfaT+eBn2tM+
4/b430O/x0OhJpbsGfmJvvF4tIB22E5f+30pMJyuwQY/124Y8sJby2be+sjb
t05+bUmz1WvWJQwVhQ1wM5X9/A0bNy++etSbwVnl00ObBq/JVQNGvkwGgiea
12Gw3u8tXglD0GHo69Bn3vgkwR6jRR6egwFa+mATH3zuw60arOuyL1bpgw14
7d3P6zYYJXrmnsdf+icfDH5m3Pn4fKDjbj5j3EIB6vx5zY8AAACWaPmfsHr+
Ex/6XVf0JMapqqBqau+gN2wkEnFo0LyytPwd+DOxX9Av9rs0rpDFvttqebCc
fBo3xgQqobYxkj6seMg9RtpnjPHuMbI+Y4w1x6jND/LvGRQMgjEKfMYYbR+j
WU1QU+QzBquIQVXtru7xS3zGZ0VRsZq4qXuu+nWYK1ZRN3bP1bAOc8Xq8R3p
XEfMDGbOODY4Vp+rUR3milXzDcRcM48IjtDnauIvD1YrEDNFU58pWDq0YiRi
xt3ZZ9wR7jFwI+jSpje7B2y+dTq63D1qi60b9Sb3qK28DcON5kCrGgQNbh0S
DIGB2vhw4np8jKE3BTc1WBWs2tNnjGvdY7TzGWOIe4wOPmNc5R6jYx0WVe+p
wVRsjH18xhgsxqjqHHTWx+jkM8Yg9xj7+YxxiXuMLj5jXOwe40CfMS50j3Gw
zxgD3GN008egdQ2ZRE1Vzgjs5vDtc5l7ikP0KWjNRVLJmOZnDHJqRB4y17nm
XDXNgmZDbg1uhbkO0+eixSMQExDBFS0DhxzD26MnZ+MzDronuCe/Nqg9HJ/R
O2KmzNXPPdeR+lx78bmMSHNGiTQjGSJ+weQIsr+6ISPnQEYcVYCnx5qzSqxZ
S4+KjrAi7oi4kQvGv7hhPAqFMRJGKVwUxaOis3GcXWzCfhODidiERqTvYIke
PO4WnfKw8JVtrtPEXMtbBa30uf5om4vH3ipluoo4XgIL5J3qnquXbS4iU0qe
NxI21eb6s3uu4/G5xDkPlklviU+e7J6KBIst24Q9rKxkK0sNY2pVHxoceY6J
/uiGsR0dNHar0dqm1vVapDJ7VHQHz7n+4Aa5Ax0mdseyuw4yZs128BzsKDdM
HekwsTubusAUO9gRbpjoMUD8DqguMMUO1t2ECf7mMNEAvnWn5OUo57nHoBCk
dQjg3wl6IK3uogzHWigaUTtbj7yqnUD2QWBLIhO4ADpre05+lGOifvhEqYRW
85vE307hb++LQHE4ZQ9wG7iuQ3L2bwbIYSogsDRkQM5h2iioraXf+w1AOsQL
pPbB4sVjggEDVgUNGiR+E1J1c8N1tiBVv2DixHlB164hXDBEckZw7LG/Hvlc
m/eDfGDOyrQE2GqCZs1uDYYMaRUsX54w9va/DeQHuCHv76b2acGTJDROgf0V
UdBkpIsP1G56Z36ztb+fG9h+niTO/80A7uQDsJu6Rug6FtjqRAXx2tQmKvHA
7uMG9m+e1DVi4VFmRDW0j6OGrgiHFgOrow9Ybho20EHCHJAO+DywY4Ot4lme
6O/oMxcNheOufQMfONz4GuHtAokFpIdJKfU8eBsiaFcBrNkPgbUhQzzOv6dd
fDIQXoGQDoR2ZLjP9KSfETfnXWdEv6lEIstgl/vHYLLDYI/dBxT4wO6m+S46
3DSDPa101SG9R3LQmwb6JqYT1TnRLIaszVyQ6GTHI3bvkHXj8VdPHhi5AKKG
Q+lHw9tmaT2eHJyI3WmkfTBwc6KlHXpFB5pNv6yqkR1d2TYnMUCf4Ul2Y8u2
TYCvd+gYeuynbmi8kHBT3gh/xMiN1kBLQ2Cdp+Jp5ga8t4MOaTtnngxOO+3Y
YMYM8kRbn8XNuycmI0EO7V1Fmdy7TF/c6zz1UxM3iidZKVWkUCr80fm3PGjV
akhw663NgpqahHEKxGuIBBoWxwhUW64zilys0mrkRu4UO42GP/fyR06+GUdS
kSEE3oSKWPCLbs4rWKeu/VBUYrVXQzcqfcjHRTJFyM/VA8cFrx34p/Xri0oM
nuyro+A6/1zn1lMx4PWlIxMsz7lhavBg78uCZc3bM8K+u7LnCRFh2RlbHY5m
1yMqJwYeGsvO5yK7bn0xIU/wbYOmweSj+70+ZtQMwGo/FJY8hdO50OzmEvXI
a5KYYN5LDwu50I6bGTjkleGCA8tjZwQz+lq1Rgqk78Kvn/gHR/EAnXvbEgkq
EmDBYTYcanOw4Ey2L66hFWnq6oQHPEHSGhReUwmlcRroPP6hG8wCN5in1kXn
WvS2kQMjTKLU0TFX3RUBL+sDnpuK7T0tk7EV4r0G5b553RAY024Y2ztI096T
vHt5mp7ieJtOxAFDg2rWAh2Ntw7bfPj4EQsfV+Bu60nTPTz4s4+n5XHgpnhW
GG70G1mMRT1f2fQ64MDmzHL4UX618uRDK0++dvI0VR58JfKp4b6F6mSbZMKn
gEqaGegpry91crOFJ6foc9nOQVWVletd3MavHr4Y1ebjpWVg/3Nw8BxnKTa5
12jSjtlrIf+dvN7Nk4esCX+DYNWqAcGYMYuD9u1RmTgIsb1GTCTqgyq1ly+I
t0wb3GRI21GZWvHkex5MtzKUYp/tGsybNzHo1682yM83ZOI4Hcv8CMtq2h00
ZHh+dCBbYWP2OjeW+XZIuy/57Ps0wjvX6W4zhF+7ePL6BB1jLf70ixuTImTq
mKO5pKfm3tOBMR2jSP+s15rXZ1l5e1IMpmvdmDZCME17KuM2VpTzZZSjzwdc
Mzl4+LiLghWNm2M8O0XHRN6mYPE63jZc26b8RDGGrOkxA4IBOsa7eSrbNlYq
FHAqXLX4qenBrP2ODjakMoHkk9+Ze2ZO4lTrosuJ3XAmUi2iwbS2O14t0IGE
ckAF/kCictd5wbyWnlqyDYI2k09gzNzZF1wvraZ0MG+f7sEdZw7jzxLSHOGQ
XSNJOgoOyB2/2cZSRP4qjEs8NPTfcszZ1k4ayOVu7V6xdCUWypQLys+7S2Yo
rLTR3w25KRh45aQUQtTDPBe91VPX7pyImtPLHefLchpJZnnO2tpNnqYOyhYg
aqGd0L2vzb/kJljGXFpWLO7W84SN06I7FIDkXAo5ucln3T1Vi+GmmH6Z1PU/
pd9Y4jqmfNMThJZu6jXzZEIn3D5/tXG3FlOXXXR1r+UfLOUKV6H2kZ5qiu2u
tH3/VsRM3eSKhWM3N7l28aR6R08D38tT7fmSB5cmNKQ8y3PqXd0Uae5J2A64
AClOwIluTWf1cuWbAvRdOdw8gOriGFfUirDruC/rSdO2nuJxMrKijDNJ9GyK
+RRy+DpX4Tybmo3MFUOKRp7KI+MmeFsP0djHQfUOjs8KcfclpVxakIDQGcTD
0nqYjBymaqHwjxzT5bsJ1sRTfWQQXuxplZkMyMwp6557QQfHZRrre/LON5Rj
5GFwt7da8hPV2yHoca9G3YWe86V8vIJ4tbQ3eS1wyR4HhX9fAaOxJ7glnpzf
0/M5oxiziK/0ahEiJwGP0BftgpIYmSOjzBH+cPLmAW3DXT6jLvm4maey6+Cp
7PI8UW/k+Vyxpwjs6flcXP3rQus4KT6Oi5y7upWkj/1Me2LSyPO5Yk8O7+n5
nCcFkXEyw8ctmiGvc/i9/eJgcUtEU7b3FDhfa93I87kSNwfbuz+OK41mZkf5
+nHj7l+59xeHJ5g8KVXnf/QQmCI3SDu5P26A0L4j8l5cwfbHdJq+M76bveCQ
VcfILAZsjqb2BbNiMosxDtdDoNkZeS/jMJQ9vITWWjVPKyWKZAPBt+jr5x7Q
cx3GlgM9jYpRG6aBtsAN2jHUkBJFOvDKScHjx5ZJQa2PvjiqV0TIgz117hE6
RKIGhVaruUsLP3ADfCyVBIBqwVc9joPxAyleBUiA/uro4GaBp+ozEMGKfzwK
GN/zYUESuA7cByngqkoOXXHuK+rG9+DSV80ZKIs6Smsnc3sd5Xw34q0dPGol
2AyrmbNZXiKgkrDAjG/hUdat2Y7CSZFUGq96FHi+7SaCPfKscnBXu5Qo6g4r
bdnbU+Dzke8erZMBSzCoh2QSNI6ei6lRFS2OrdS01n/OdhPX15NmXTN0STx9
7TPPA3EZnTH9HLuiyIGVUX3qmzUiiOiupI06rbHuqcb6pBW/bmLOMokp91lo
5ylF1FVKRxINZgU0c6ihUYnt6l6H9R1aojSGuO5MoVaauJWXQy/iMryzrh40
s5Kpg6dgUDJlyz8Z/wRR85ohIwcvhyILsoGnwjDK7w/iazxacFA5K7ejJ/dT
aeb4DTe2e7uZt6NVa+HHMrs7mO2r10utipv1HQDFXahi+TpFAw7VMCw7IXyg
qGUxC8XPWRLYQUsLT/75LjcLulLrA2qbC1SMXxUYY01VetgZpyzewHFC0sjB
zGydNDM+RonnSjMoxO8slhVEIaIgqDQWiN7CUZfQgBZUC+rqVv9lH/KiwqPv
5BWha2IVngwIT9ua79boZMqrk/HHKZ3xlNlitzY41M4IYQYLETO4u+xL+Dve
L7qZcJRVxlUD1dIqq/nfXnjHKzKmMjWAYViiSNaTmCnPJVKMyEl3J6XBa2M0
RpNA2Wkr2bDl5D6xqIXIuansWsEdPJZBa0R+88lrSiaDbTeQ70lFR3qXskyM
xhToVfNGpuo0N5Hs61qVCeqyZHVi7vvjss+dIrwHoip5ysRZQ6drGGcVjMMf
M5TjQamkVT1nYCxMIP6EE1e9XFtLYHzeTdmmnvx3pW+xMxQlfgOeS+jBJLC9
AUvn1dXgvGGVcxOYRqjvacioRshi6jWEe6P1gOJYXBvEpfw+a1JW7u/kMhj2
uHtGly1OVQxwtiz6ffjWQn0LAcSfNOd22vOSRXsUMXV5Jg3ddiqLDwcyxPmn
yI7R8Mcv7fgZN32ZYuH0fXPEw29/F5objE6FVgFKKwLkQoL6swW6LpYDa5Gb
vh9icpog75V4qoqD4kTJTVwsr3mKj/CqCjeDUKXQLSm+VoOtcMzVeHnNCSdH
MT5s1ff11A6+EWPjOHwb86YnuylNKZiSFTCYnDRCJSxX1ZFvjBy8GOKr6GWX
SnCF/09wC4FvYNw43dnKDO2n3ATHdG8GoRh1zPJ1rJZedf8boa6Zx7EvtIuu
4mKkEOZhqwwTyeOR73bzXFoGVbcyI/wJN1XpMVJaSbEkP8Omo/K0k0Bp4Mvv
fPbZ4HtfR20zlTu3C5x0yGahp/Dd5rmO4o4gaXPtDJTNYWSiltVwUeYMnzAX
yCBnvnu6ZN6S55ee4iFR+zrIfapbFRjHnIqnJfpiaMaKdh+3dtIsdgCExfvt
eeFpGVGoU58a9O7NU4iAwEM33Dz8lpefmyfP4bsR9T1k2seTXy6V/CcEbaM6
z+WGWXJEJ7o5UeIJ+u5WUhRcN+f5OVBgD4X2ACQcynNxdqYZ1S2QYxXRTp7c
9F1VfSnVtRh8VIMtORXF3LRB6ny1vNZwXlSavIDmKZwX9T0RYTFlhR6j/3z1
t8s7dePqBHIHIIcAcgkcOUhpPTWKeig2LaqJZzOHODf25K3vUjwVZYrz1KnU
ahnpHqsQ66/a9Pvan3RkmBfH8fz08ntnJjBvb+dYrZaFJhQTfhx42Y/rGzXh
awUSWSChxTvTKabaaU9POd/RU7ulPMHq66mt/DK56b0N+bYeuK5NtmMrpCBm
LxNI8fHAokAHFGxZ+VoHzKBlHaJC951GSIyjF7PftYpFxhPcOrPR2eNlLK7y
OBt90yMZvdQ9l8NZpUuxyHh+8GUTghcO7bPpp3o7Amrr5OUXkzdWr27LyvUc
sBXVIFjFH9W8hRhYTdlYsoj00dkX7cmk5mbRjqKa5tNGhkswbrSbcb5KIW3X
nXOHVc7lkaiEqwCBdYiL5gptXbBwjy6soQVkd0Hp4urLhj4Dj5cgNGzgKWYx
3bj42kGPQWkkW4mxOb0fo6RS25c84GaA73LGvB5MGdqbqBkdesCIPbLqokHB
6uKGADipyIPKvPLz7kLJ6sp4KPQUJI8GY9ZQyB6e7D9ZZ4lZ5VrqU+V6n5t1
BT6K2l/X7ejGjpsw7hp+/+NurUmp74Ahk1ElRDdnXmHafE8htPdWy8jPyWvH
N1sg7ZAt45hA6L2KupT5Vrj5iZ1XOrbmit6jfnI9o+ESMVSH9fnll4aNA91P
ZJQa+dTLSyj/8mUiYpTAjrux4HDMTqux++O9t0ElYZa0J27KShJqV6+KRK5a
ckGqq31Kl+92s3RnT1QoRVLRc4ppStb83KpN5C5SQS2wEQ8+jewFpUYBhJU3
9r95xriJ0z665e+vLUFdQfupJxJW1KS0KfJeJx/tFK9L/2BjXk4ccbCHFf+R
vafUWOvMu5MKq8y8r5tuafbCuZ9e9+bNk2ZxEu3ixoT62flgzSB8sbaWLjVu
zeY9Xj4BHsNySJMIEbKIj5ePiMypddMWCg8NomYi1iql1yhho7a8SD22oO3t
lGinPRk8yWkLjWwHPrB59JLLx6JWACs+YMTlxidgUWDYQA3/fuQ9l735+kfw
XAME8XzE4crjKmvYdIyV53guVwf9MCG00M+54aFh6SzaDD9w7N5cdswVN6Sb
2CyXYjkIFxmMxjp5hrqSJVB/Sol3l7kXluX0eHtSmV4fh1854HuE6WuGfLvH
UCpnMZGPjABTuDLlmOKwOkIXIqurnkMgDorXETTtxEl9Z99TevtskU79C8dt
eAiLWFiDir7BP98oAdUmxa61gJGMnmyRndtrtz36TqzDfaOnQBitFSP/RdjA
0F+xmMBqyccx+7IOs6sZbdeZkmGyJZXZQ49Keou8jce2Dq6wFmVioXN5BO7s
GVa6Jy8F+fdyTzExrr2j5rdYKZ8XNfOcJ4IfbFVoLBnq0EkU+WJzTxdq37+V
T39r+MR5HEslgGC1aym+kDi9ssj6sme5Zn+8bshj960bfCVqL3zX5UOemtYg
OItpKWX0GLFL6eGiVk1/o4PQWFwqhYgSDfYZuQLyogD0k26/g2WMKWxlWwD0
JCZjJViUoYiunbFWOVAZbhA6usUgKqAnWS8HqAS93kFQLM6U4q9Dpy8PNYF2
ToJ5yrH7YCoR2ZGv/f0N2PfqoaVpz93+GN/B2KjgjLaNcbss+C2WlmO8a6js
yOT6vOWWln8f9MlIZNNNpxyqpK2YDah8C80TBboC5fFP0sIt/Bb5Do2qoYmV
gK7VCx2DsJA5FGibnviSg30chLyaMkWXu/Me2jzBZgKYoTpzzoIvI2JhkQxX
9mtMlIMlsNi8iKdeqngSdQsKhXW6bMbcf41+eNrHfFrYvGP2ckEMad1FBNqp
5lWmS7Ci9doOi05782aAod+sqi8cOw/JJw13B2nT9pvGOVV7zi0z5tw8Ya4m
8UgVuuEVVwWdO+sH1FimJeZkrSm79SXnSvlQX811KhbQyHqFqRw/7LSl85cn
54bzyYEOTgMoEQaidpISxdNZs4jkU6kt4BI9b/RdU+cv6nvu2todaYRwQ3G9
R9afcx60HU7YW/Jk5pVXzsWk/iOdZn5lAIPNJRxdaxDOXohwJ2b5YRYDW+GS
c/PVE2ffKNncNPSEJ73hz7lhakTDJlZLRDqZyMK3CKeFM2v/UgoUBA8xYthz
XTKLrhkzCyOEPXk0JdsKW+5pSlVjqzY03oksvp/zi6CVP7T0554RUn3j8uHj
TZWrR9PL+OKMy90fKOiLXTqUskJGPGWZiDvp+q58Oro7pcgaIazPf+jYmQtX
TN4vorzS+mGa9dCqqV0BKmO8aKenK1f/ImqzMHqe8dSGKTrbku5F21hVTnoE
gJP/qdH/qGLIFsnI6rYWumdDF21QZjRAivCnyKrksnpaE9anOHZ3MyOesFie
/gVUbGyC6trfYnbQt5AqT3gfcomHlsACTdmhOTs0aWe+eUrl6bDpmDD6tp3y
7ZZu0HYbU/bPd2sH3wBSiUNv+Rb45ql6FxNp3qnDFsjw3RG08HzOQu065+mf
56WDY5nPCih8DpjtcSkj8Vc+41bEvKVbde3u/vglnXZbmY1/jpt2vukcBYg6
wLwjuz0s0fN1FckMLBGI3RDVtAfy3is6ubSslv5uMsSkRrBwhk/pDTtP0ZNk
NyxqdyAqJXmeepaMvkMMln81zeEdj8/88IZb193BMZ7XNegKGEc3+0nPTnjo
uQ+vmjb7U6AoVnGG5e9QfMlp5sOrLhq0+ceSHWV376ehV1TWJfU9wMU+TePS
PDhaSjteGmc2pSSurYXtzmCGkVP4jFumBge+WBYUrGkI8805dFN3qFUp9GQE
81O961eYP2yET6S9Ap8HO3yI1WquDLaVVgUsJaLQxKIscjbDNl9mFsNJjjmp
QGT7zF3yuUzmoNnyfYKej9xGcLS7UNiewF0Eo+03dO1y18xJL6HpRr57Ct9b
PlfgtFYTD6qrcyLBQEoUj0k86G2FoVD36yGhHzTcTw3XN5HpnoeQwLd/G5ba
yNJKdLFWdFvgOIOLcex9+5J+pVPdmZkgWuuT9/wyE3pbQSH+vn5H2/sHrzsU
CI4ma8aEkrVF7Xbm0m4KYkExeyxCZbiDqq6TdHpi6HeS3hsBhV0UEpw2cnLV
8UsGyLfL8SuUbAeJrso++tkurjMX2wYS7ZNpeda15cGSeVp5ykIdmaEqEhcz
LNFx2ji+QDFwIUeCTm/8JcjUFikcwWpV+dWhfjtH7EId63dbfrvqF+mopWh1
+F71lfe/EcE5+LIJtS8ecdrXW5o2NdZLTIIZ099aTBzrip/H6C/uXZaPzxVV
4izLokugcPSDr70jE/f7Niu7nDTtl5fxUIgzQObbCx177qkHplRF71HdleWH
ily7f/H9Xp0jmd4f4d9KBxFL1DthOdEkTwSIK1tIJP+ACme+rnSXdvqp64WP
f/OCGuVQgl6u9ASgJ+Yj2M9Ni9+7cfxsxf9jJR7RCaIU74QxyYC760uZxaT1
a2TJu7kyqcW7eFvTo7Ti27gplK9QD8GQD+Vue/rVxYDt+yF2qNm27xdT/IRB
S0bFHF318AFeW+qUoe54mlwKpHhJZaWhtFOylErbXk1Oegmy3HbtxhtqizbW
g5k+7/jDQSeHa8sjZCAVy6RWnz/yZdnRZxF0Wy0MO0rgK/WLQRW8ZD3/jfEV
z92x+aqro6xPEJdQTGZNuGPy/Y/NWITZNoJQK51A2taPdqgu4HKwmskBd/9g
2Eji7Q2FIs6Q1UxPUVLT7nriXbmsJH5x5a8f1/ea937qfhRXHGAXr/52zASu
KDDdT9BoE4PmMbi4f9Tl51JAk+otpfO+zAUGuUpdNRYOXRtsIiGtlCJ59Yj1
LzII1tTu2CS6/pvMsreOWl60opQkCf7vovjwI+2HnbUtflmEOQ5aHPiXc295
sdeCT76J3ITwVeYK0nsNG/XJ94dWyGsebEaoBujH8IBxWbNAXndiyL+LEM2n
IU9TJcgdqrcOCYZw5Kcdv+mE0XcumBLdlAfYaShY8xCopXKm5wBFuHkMef7i
Z/0u5O454T3IQPi+XdU55IA3ApZIUVpaFH9WfCQFXr/QDzpwHvTupvf17JTx
E6Z9JLlWKRk9mynEPFgmLxG1VMUPax58YutJExl4n5gFfzidHUON3/agJEyJ
xLYeiz79loPqofHID01wjfZd323aifiR321qslO0mLG6WvLtzjoqfj0r6IVx
hS4M5fxHLJWHMsK7VpNljJy97tFJS785OOqY+/rGP/QEhhGoutmRcR3vHUKH
tiGD+ff5yDqkCPkXNbJoBOfbSmRBiudR9OrUZ0Hg282Nr+QJPDr2mQXyfobm
9g1VUgWRpNbYc0YuG4ueveDmT2sOPIxHmT/48bCjyIq07QXI68G4MopvbbBn
9BzrJFpZldD6WR7spo2RBz90egLL22B0QHy1Qk6vdhuXffrdzJ5nRM53+Dfs
Aw/8adFSm0LD0a9b74C28UQ40E0EbEPGkqDUnHDtbhO8qPGhj2+5XwkyMzss
xZedtcRbRxP1bQ+adPGiiVK7HVWm4QmxijKmUWNR8cY8s3VrGzQCdMBaz6z+
6wBipbWF57ZVXXXK+Na4sy42ort8mWiQzvvzwxNa29393HTC+t+muTgMnQ77
sQT3LNzRepJsMqf2yKNlfx3eSwRy+11rrYhQ/Rh1qqPCMNEq3rzMIKVcZhBS
KmsjUMLWd592r4wut5lz7eTp83v9+2/rNLrRBeRf6GwPaCnRdz1YC39zp4Fd
sGbzK4UfYPTgz0Qg8DMuUf5dJIlaRRm9RrdhRGD9ooOMctEBv3yjPFeTJ/NE
XrFWQu9FFTOAvmzAo08Hbd/7U5DcmAEib9j9k9Ieb/38Dg91x3ZgsJu5zJT5
N94jqzMulZgvKpxFCwlVk8ZDCPz24epo5RoKbTcOprhfg1HRquCYIMLNGa8d
v7ovUR/wZ7fF3eCaKcAOdLFvwxhKokKlWPvqgePk7aYsbCJQhtegs54CCXFz
dimjgpB2w9SxK+dpC3fWql2igEYA2o/auFAwaLPgaCCAPVfVf1UyfLp/umwl
CS8tax5dTAZmD0yh0NzGjehFVmrks9Lu6ggyyLYQVTm5lhG4gv92SrTDKQG/
n/RGzYdYjE3qXfLiHY+9I1trZeWwzFwIbkOQG4Ld3PnhTq+gGDxr9Jmop1Oh
VPQlgMs6ubPXksMV3dhjFf097fjCezE9pNiOUk/RsSceJCEUDSFpOG7hebhc
T5gK4s86BepHNoqqUGVVEDmgs7Vmq0K24Caz6R1ETWzIw6e6FYZdqp62L58+
Xf/sm9U/nzviRSYB1pIgduyuC4OsFyiMp+skKFZIUGpVDNyx45c4IMzf3Yf5
6OmOfJLD34P0dmj1DRLAVYBSNyzVEk+7+4l3IzWPi0VSdmqk1BD0nlWEFrKp
6GAzmYIWLd20wBJiChEcqegXyqLv4jF54CwdLbloJudAS6vPopavxIaC7SCU
BAhTCC4YD5M8BmCKdYMNa37mPLSysB+OqxxYVJymg1UU6W1gBa4Vaws80IZq
VpRKdJR41krfz2fOdy/Rc5z8Y85fqYrIzm5xwzpHaEEBfe8DxxGS7TFY9PE1
o2cdvXTpilgWnaejo4X4aMY5uRkJA51qtmKjVQ0L9S28buwsrIZVO2KQUsAL
/DkxIAb0JgJ07No0rFUfVhWq9ckHnyZeeV0YA1sjN2ws300pR8DqMjK+hmVg
DDx0Z1Jsgwczjo5j7wcrQ99RKgitueSuV7XzNz8bcGkM2PVNMsJGPN6muQ7I
1Foy6gQW8OfjST04BuYSHGZ+lQcWlWSs5wfAH107ehbfrsmlW5EOhyqU0O2G
jAA7ba+IgbPIDScWIWQwiRPZ6L0iXk41teLJ96I9EhzBw1F8OCc0tVLpeDUK
nyVdI98NLBbJw4wgNeikOggE9Oav7x4Fexft5Izae2JNKYzantYFaMYNKNvm
qvqUn2mnZVi1/VchHFKP31x2PhdMcojNdhpGOAOHm2qdfHKsD8ebFdyXDn1t
qLnI0eN+rbEdNQH1bBjJuiHUZ4v0nlVYqifWhyYlZPvt1y8q/6h2/wN4S29Z
to3I13W6GEWRL9IQrJTtK7m/JQI42mEC/XYRR+fdS154dOmB3xyNoRttCzKm
rtGMebF8pB0ZcbY2NqwrLEF9yHIdJ36naNSTUPYhE/T6UhIl4mE7cpKZiJ7Q
d1QdVdwThSA5n5/+7L3BrtVdiP5Ibsys2/fdk/dduhbpOJHP7T/sEGSG82O/
PHpESZBlykpaZ6auullHmGWoGl3dWHiAdQ6gW4UKuZ+E4O9eEY5bqPGDU3mS
q8DwCzq8fWLQ5y5yIYyserlqw6SU4q+EHsFifPhJr75c00EI4NN3TvgbnIsQ
5EboyPG8wKj1CN0FsI6ZBCmRbU/PnTtEyGwSyPCrCzZmNmdlZDh31p3NS5SH
Tq8nltez7w25TTbLEHuGiI3Yqd+mQ8wEkJ+lhsA24hJJgKVHdALIDZR9MpAQ
CJ594lf9Fw6e9HwhV3fDpqtrI+pRVaiowusvuF+2JcZ6ucNu6taZkMByvv+S
zZdWXzxxah4GCbNsSc5x0/XuvuSz76EdQaTJoA8D9GNY0bi5PRB2lx3MX6hA
2+7/IjkTdoOWfGL0lKooNMVSJKFnAenQCu00nKGpu3W4CiTmVlTQc8c8Lp0Q
kJNWJNSCiKKPNRQP0JLjRyx8fFXrmv058zkuaHFFhnMdD7AQ/zRYtQq6B0Bz
FRZr+vi7bkfcsHJUpRlrqtBREsl+SN5orizNlKSow5DzPH6itqHnK5te/7nF
l6Q/HkkY7fTGX34864Gn5AsrwQQ+PH7qh8wvqq8fJCrlE+Go0HsHOkxApwnc
3xyFG7h6ymm5CBhWKxmcxNSLBHE1w361uTY4WpB0zGRbvh2SybuxvUaPAjWe
2T3VMTYTLpfe88RfLTROR9HeEyj+YKIIuUqvnv75JYAiFhSRTvEeqnx+YWR5
Q7GOZ9Z4HRVLoXt07CNQjM/d/85UEvK1HsLm0l2ZrMwoUlH9pB9fHrIjo0Do
hYwufCuoFOtbS0gQlZGDBNKhT8374K1bJs6dOeLhedB6ZP7Qh+YUU+U88t0J
z7o5MrGOSHAFIZLNBWJqTvRXwnWKLlQ88unrgyZftCdWOX998Vt9/nXxPstW
18DnjAU/hZvP3B2T5is+vm6GmDlZ+/0urezseSRe1sjSYT0NlNVEdZxCAB2x
ArKbAoR2rGmt6waQqU39hs3gMThYKZqSIE7iY6/c+/Rza/uesWFzJoua7kn4
2i+WisJLSVF4WRl38/i/SyO3r6yiWpigL+mShzpLaIWjQ24sebXzTRSSkVhg
5cATNsUlxz+tNdbmDpJGmbNyj9s19TbXl4meoIJPuj+DOnIS9ykKn7YN1A8j
wdfMSm3OFS1qArncBHJ1/S1Epb5105OvwOIUrpO5n9VknrhOH79y9pAlW9o5
VNFkFJNGEiam1f6XEAQZ0NdP+2zgL2fdPYUJAqxHqLslMUrqhuSDO1W+8NHn
5644rs/6LVlCXH6XWUTcZ+ze3DI6M/TU4CIISfD3XFl73SeDHprOohA80sd7
UDoIot5WDq/P4ovfszcXgXIp1V8kEnXdP8es2fn7tvpiWXvuiJdUE1Kkt4c6
c+W0VzE60bsK4YkX7KD69rqiuTTZPlM2PVO707d7EDChthVqXKGkmGmdodOz
IsBj+osIGae7yEjiI6VeXaP+acqaAHD4VApWke42QbvpRzef9TduvUzaGY1e
osQv3kWxlOzqRYemj01IoPwc+mQDqbLc3ZYgCQVuxbOnX/75+jZ7Wgnl0cGH
1HWKlFQqJfm6eH3ddEvTa0ZuvPP6f8xZBJUukT6WMjK5+ig/765vFhzSyy5a
r3kadwHVArsk1fYb+dwvENax5LstvH7MW7JpkDd7JsFm1plgH1DOyZ2kZCGn
nCvgBSGg/Bd92vOkaHv3bYOmS2f1vajlhi++ohDMsiuo98ypoJn64hPevQym
cp33hsjPnX3B9bLn+OLPvU+5f8F9j4jt12x9apHmJLRTPad2mk9BhP7CP+xU
2xxAXNtgfePy4b/cLvUkR0AkYiNvfE2xmWcHD0m8RTXS21SOgIKftdzSSl/w
xDfi8OjBBSI/xyvys2Jxt54nbJyWE/LzjouEPHKbJK8p4gyJ/0rp2xlpn55g
PpPmhM815WBVo407cZHDImARkc+9a838g4+VxW/liyee33vZu4spAu9ZVZfa
XM7IeSrV3NHZuLCCRvvXpQ+8lLGHYEzB/MDmscnOceTFSfsZAc4sExyo91/W
a/6g78+/h4Xy1fiVJpDyUiVQWXoX1v36rZlUKkHnQmfS2oZrduYLZ33XV84H
nood4jBFk0k3ks+cdt0oQTKjSeDWAvcaJRwA949LlozcUrK6KZH14lVNg0Oe
vYwFzOMIx6/xVs47Po5XtoS1HMZqESOJFoTp6ZK+Nok0tCbdUP+nZjKw4nKC
odq6lqmZBmqCAJoBKtZuEC3WleCjATa+RKqliE+ITScc7JwwvHxn/dL5H92y
ukntrjIKedtA7yUO6JMK0aNyUXZCId+mVBrdBiKHbKYL8PlBC4BLwJbAT1mX
PaE6XEauxtpg2GpdTuTGTvxghccCeXQTnhDby2l0iQEpwA5hoLElVuAiJ48i
U7j+pcNFD2fpWUAuJ34gnbtLBAvZBFAPHjgNMZI3hz325tc93ro4av3CYJIP
NEz7k1794QE9rvjikcmmoH5m9yKmUk7ZmvuoC9swy0CNBfPOuKTX8g+W0qmM
Zgtiqn+oMv3xVeNexaaKMLxWF4oUFwpFjo2+MWLGKRqfkdkiR1HDbMMPjZqN
++bqG3p8+eEnKjGNnkANZaUpyg/FaqDXpJfoXaWeGPjlTSaLcd/0s+pDjhm0
4rEpwrf4zgkGprsfJw800nNDbSx3KZPXx4yaIc4efrCDotTtCVDo3d3FStjN
BoahkVNAjDsWjZqknCGvtovBwyriPMT/9/smv2/MWv/b5mRWL8TX2OckIcvE
jgqGGJYQlzvmsSs5hmQumJNJOs9XJtP9HDddvSh5Apvm9FH9FZSk/uPWWtu1
uFFWNwEZeRPAwjisx5ylYqcyUcVmERU79JLlKJgMbqGCQuMVrYJLhv9RoVKI
zsKJ1z0IHLUWHRlUw0IXUXIBOXymKLTmz7Gk7XgUHhQoELPX//bn1RZe/941
uGVwJ5MDQyZDsZG1qH+dE4VSmjuQIa9pZcPAveE27HmaekxLMAoisMeq+gkU
w/fn3KcKUItPGwcTzmokU55cG5lnI/smHeYGzBzSHFruGtGDSZ4dHqUDhzBW
VtFMGwIiPYFtrC/hkU+/spg4F1p/nWDPJSXBlFNSMpXn337/y3rDTgJpYFVf
6pFUk4joeulVUim9EscmNYlcOZWb8lwN86xkT49WBNFbCrEMuIIIryzDq+NH
6WBqb5QF5uIlORNGNY/FTgjs9LqnpFL3lIzYWBOKE1vcrJ7FWvR0j5AwnjBH
fjh6+T8XEJg7LdiBoBctjGsn26sJAwd6Uoe+0EFtx5URqUDSs80rdGM0lAJ2
wKt9gsK1WTJb56oEkSdGc6ndrnACFbjSuPgbh4jtNT1ZWcWKtwlo9LbDKKGJ
ZLYAaEc83zMo/ikVgQYrU6OX6TiTl3wfhZ4mr9C+tyIq6uBpOTzS006Wl3JK
UwH4HZSmhq/Rv3xi0PuJA4N6q/MihoNG9KJpoY8mx4LQUdGkqNljciytUirD
yQgFeqFeA8WCX3Pp8KD/2NZBA0JSuhzBJrErPHjVKK5iSlyk59GgQqQjLQW/
QFIo5dKSDJcht7EKC0bSbwELnprw2FvB6L7nBpffXi+Cfb93GxKXwFYfJgCv
rwN+MAecr6cojKVWmwpijhDAgDxUPXLDQ+teOfKo4IZhyQig9gt3DU548Cae
I6PkwwhgGurAkLB5SMuaqpC55WURQGXloYmuCcQ6Hy4W0/Dp099f/9iJA4Ml
bXYJbhqaiGBotaQN7/bjQZgdfRaT+wCnXF3hhDDzDugZfNM4QwDjC2WXTztS
wARQlhXeZGtXiQBqKOVW0w3ffl/zzGmDiTqGKx+BW1ztsL5IckZTVDAtgGnq
BMb/Ro/rVTItePj6B2s+PLTXlo3pTFDTLBFcXFES6WoOWczdkwLIZjqQsVdo
0JuEIl91zt2jX1n75MmXRr7pv5ungz6TWgSpDQqxuFi5GbgLDo7tFosh1LYC
Sp+NumKM4uIv2GvnoOeznYLkxjQGR8Ktb5vjzHPc+HAVU/vBqlWXrb/vgdWr
dt098hif7dE96PZKd17nLGCJo0dLOxiWAyJ69UvRKeuee2HBVz2O2wxSwj3B
e8/sH+w7u5cORozW2T0eBu1OgcuoiLT95bN/v7j4/CtqVzfeWXGer7x8KMn3
NMihiIhF8bTGRWRr2vDT+0+K4eBr8ua+fQmM8t7krBHjgw7zJDg/k9rhpjnL
IJFS3bOQlz1touzfwP5iKt5w8AMHQHAQBANt2pTORt5YnzsnYbSUc9QR3dRB
B65OHeLNmC29QKIeUBKOEjklf/5u55ZEOYS7PJLdK0MKBe3qIrBwvD0F1q+K
gd7zWk+n2cbNmezGOfv/gXpboZxh0Bw3/n73cuxoh4Qw7DycDJAKQYwJ95XI
5JJg7baE1PbnOSfvpPNMzHs2eaM+hvTK0FS8/8gNDy6++gHqx+kCw/oKxAjM
fvbJSRVlIutCOjp1s0zu4W84ADiTvJGvYw9ZCY9vPPOs0bPHToHdA7eJJ987
gfQSSLA/Xpw37kWNjXyeIZSLTJZPNrdrN3Xh5cPAbn4XpaaG2y4CVtXRxOUJ
acGgks+uLabKuDw3Nhp6mptg494c83eILCRdBIsaMVishtHvJjYwSi8Zz9cJ
xi+jBI9MNB/MBidXaFAt8RUlo3+XEKVTcO2B3cYrl1pwElHm5cu9OuAHSCRb
CQHKoXZQTsJ1iXw3p3LGhIKCypGFLN3tsJxA3ijyIQvf7iasy81H1x2pwxJX
wVGqVXAcRz4lN/dODXr31qnX8peV35j3uGQMoYLfTxw1zr0Ae+jAmgUy5CSO
F8gErEEA/ahCK5ChzVgLnZejB6KiKeWAPCR9nnORGnfLs0RxtW1Jgl5qq7a6
ySqNP9hTSPESbbrqvmGcXT9khMgkcU5weSZ43TfBQ5576sj9elVoR1MEnDxj
acxGWIifX2vrFsHTIn7H6niqFYQUfncF4VHeTEoqBYR82YRLxCF8ljXeS4e7
kAsfq+8kyb3MUuRYfef+EcyHe9PccmtTYXDc2PuJftTAhk9lmAXIJ9hV5GEe
JOS15UgPEyIGYDJCeJisp2V4hFsWAWP0JbJ4xN08CJUSzI0quO2Q1WUVsl5S
fs77wR5ETIl1ZNg++JuBSiHNqjTU65ciKE+2Q0m4eyBOQ35HgERDi7BlOFyW
NWJZ233sAtcFp5VydYTjOgWErZn4BXCaHZ7ObhJJd8jhit4h/MJ6RYAY3XcE
IPt6EIaGMMwYvSZEhBW81FYwyyLqDpg6ehMHV7AYPOEm0i08Z9rhYUcvWJcL
hE5eClSrSMblx+i4I0CiLaKMXiEKiWLAkcQIA4nrUAGO0SxHgNPGk0JYI025
fAQiHAY8d0+K2aKcbQdsdw86FQjxNtYZ/A1AQaAIFyeLjnS04mnhSSx2IRu2
7KL9ghs2i6ifb4etuTe91KWXYkJlgccu447eOjvXiU5OObeAhYPkaK/T1IM8
9uvtCuNEylxzg+ywNPYkT6HVW8n3FHHLsnP08/G5VatIiLfumkT0qrM4Ofr1
NPCwdJaLS3mKpwMcNcWTvFxph6UEpw/8fU8waBChT7FVjopQvkFGy96z++hy
LQHk24SHda3XKcUL9Wgvy3pWfQlVpDJQrLyM+yUCnmsoPH7ebtZOsqgGWLvd
F9GYBfYaV7kBQQTitXYQCSPtvTHVusZ6VsPnhAiRqhvsUpX00E71rdqAaicL
MPhqu8kOCwXGqZjqCzlC9yaOamRVSQ5zgJFGdY/9qsmMOe2bcoMEiy4sd1FC
wZpOXR8NjDokwbKkh8fpYJy8jonMZXqrfY76uL7cJlI6psNWUTTXU665LJ7Q
yDgVXWhoOWMepX+GJXTo6FlDlW0RurlC2XR7XKbbnfbJqOumdjGwLrXbJ7tP
/Y1OMmKerCCeIuRugbDI+L36PDyRJ6iB/EpHIk9agKEsAZmHvI5PgGE51Ltf
ByNKbopyUeXkJpH2K5KbUgj5ZZIoVc5xB70WePKjtsHluSrWPFwkYJbnakTi
F+uyonAJUtoNcEZMjUklGq3DchBVDAktac7IeNVz6aiERgSS620k4iTcp2lj
cWgEpyCtj8e3KbUot1jIUXY9aFpqqF8QMOJ5ROhiZJ5G4EhZhhwcmt5JM+Mw
cALyG7w8TYbdihGZVYJC8XuuWzVCqhO0EbTSStA6zAc3wsM/3Td/kJcJcQyM
EhgxBkq+EJIiT14e2V7yKoZ80rYcecKushxzyHKMHasuqsYxmE19luvq0zFG
j/899Hs8ZOlDSl4ep9+oQ/vSuK/9J1Lgfw/9H3/ov1fEw/HfjmbCfjvmV/hi
2+gh8Vu77fxe222YrYUDdHg3T/2t3XZ+j/y2lbO10qEOiBzAyxS/jxI7/D+v
geXT\
\>"]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 293K", "Section",
 CellChangeTimes->{{3.7772695609575667`*^9, 3.7772695633054285`*^9}, {
  3.7772708254351206`*^9, 3.7772708341435194`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_DTOL_Tm_293K_pos.tsv\>\""}], ",", "\"\<Data\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment1", " ", "=", " ", "experiment"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"experiment1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1.1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Tm1", " ", "=", " ", "1200"}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"PointSize", "[", "0.010", "]"}], "}"}]}], ",", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "Automatic"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", "B1", ",", "Tm1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B1", ",", " ", "Tm1"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"ImageSize", " ", "->", " ", "750"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", 
    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", "]"}], "]"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7772708944847326`*^9, 3.7772708991173*^9}, {
  3.7772717702718005`*^9, 3.777271770459351*^9}, {3.777271873994251*^9, 
  3.777271874244211*^9}, {3.777359432435213*^9, 3.777359441674102*^9}, {
  3.777808477438057*^9, 3.7778084781905775`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0gk01XkbB3Ak2ygtN1JGi5KGklEdI5PvSJaSIpVyw6C3qzDqragoDCXd
SnYisoVkvbj2u5i0yFCm1FApJFqELIV5e9//0znvPce553O+v+d5fo/fXeTy
m+0+KQkJiZGvf//9/t8nwA0S//8JcEfsFs9cq/64WsZe2GW8QWuXVj5jwSHY
9bGfJCWUMcYR6BnK5PR111B+DKlWa7b+Hiqm/DjqJRZHyK+pp/wkWL3XZ3d3
3aX8FP41tl23SdjI2DkAieUfQ7fdaWKcEoh5C69qasx8yPhFEKbpaLWbHPmL
8cJg3Fe9zlKSeEz1IUhVWMkez2yl+jNQt9sVPOn2lOrPYp35FAXfnW1Ufw4O
ve83BU15RvVhuDdf1ddM9Jzqz2NfTpLnYMcLqueCz3Na3uLVQfUX8e8Lh9lb
Al9S/SWYxupvuW/2ivG2cEgEcuM6dnUy7g9HmK3YpcG+i3H4ZSQ+DJfQ2dnN
eFUEKo5yTF6xXjNuikDwnmaTTYNk70isS5g8KOnXw3hGFJ45uwqK3N4wLohC
xO1ZbRObe2l+NHb0TNesGyD3R0PI+adM/XUfzY/BkPZhjYtH39H8WAwaPDjS
1UhuioWNe4u1qc17mh+HxJsdWyoWfKD58RAovp8M/UIuiIc9Kz0pwLif5icg
7JTPR2kRuT8BX5ZpplcbfqT5V8DrmRHueoC8KhElrJCrPP0Bmp+INe6qBZwo
sncSGnPH23rE5BlXIZmwStHj5CDNv4oCsa58Vhl5WzI+TXXZpqA9RPOTcbr0
zF/iLLJFCjpvWb61e0OOS0FTvPONlbafGPekIKVDPSe6hmxwDWEOToGDOsOM
Q69B20rZ6ckVcus1sE5ZJ3tOkLVS4XRNLVLJc4Sxbyqcw3/1qHxBvp2K07HS
F6pekuemIVnvs5ZD6yhjThoW3OOsipozxpifhqYFhW//yCLLpYPtF28Z8zfZ
Ph3NviEcG85nxlnp6Ipoa5r0JY+mw+1gRM8D/hfaPwOLAoVB5kfJcRl42RYk
ZM8Zp/0zsN7+zk1LD7JBJjqmrLDxlJug/TPxdnK29kcFcmsmTM0XXfyURta6
DnWNRrX4QbLvdeB18D4t9Una/zpGEkojzTnkuVk4l1Ki7vjTP7R/FpK51tuc
Ssn8LHz5rCSRvIYsl433O9LaL7tJCJj9s9Gia3d7mgc5KxtOzqcHMkLJo9m4
L8NvunSLbJGDE3lTfpZRkmQclwNucX1fwB5yTw7OfN9SMRhINriBN0EneB8O
kUNvIHpXwA7vR+TWG7BXSMwuD5FirJUL6SCVM32zyL65mP6za/BHPfLtXJzs
m2+4K5U89yaWj5fJ/5JP5tyEzg0113caUxjzb4Kb7zm4sIdyuTxMrXQ0tXWn
3D4P4VXSNsOLpGn/PHwQRYucxigfzcPH0cLqqXsot8jHhocv0hQOkePyobh0
ZWGoJbknHyKWZfxG2amM1QqQ/aeRdJ0K2bQAfHa5WMwiexTgj2OG7y5kk6MK
0FU55P5cX4ZxVQF4G1X2l32mvLMA9qYBE5pNZMVCPJfta41Vp/OrC1HbaFOv
sJ/MLkRM7pz8K5bk4ELIyMhv5AaRcwvhuz7V4t0jckshkuZdrT6ZI8t4vBAp
7ba/DH1PXlKE9qd5NXX1ZKsi7DI6X7LmDvlIEZ78sewHaSVyYhECS+NVtXfL
M64rQuvSmDW2SnKM3xYhvx5eK/zIrGIYKi5JDC8iGxXjxZMhXtlbqncrxrSk
9XMaX1HOLYbG2rWZzQ/IvGJIjiW7jjrS+bZi7JAczgh9pMBYmgeV89aHd4dS
rsNDoPra8sjtZDsepvf0b3X0J/vx4Hvf+Z7871SfzkPzsOr5Gd/6NfCgU50Z
s7mDPMTDmlOLh+9uIauV4PXmzSO/TnzH2LQEHg/U4+v8yR4lEJgvdKyIofNR
JVCKDvGoiaK8qgSWvbk/2tspMu4sgf/J42aantMYK5ZiQX9mXJoLeXUpGnSe
JPc50Hl2Kbwe3+XluJKDS2H+XuOsfjKdzy3F/CXsnAsa0+n9S/HrhYTld5Mo
Hy8FBO6bH7PJS8ogmi90ftpD/azKUCrr/V4vh/IjZTj+p+xdM1/KE8vwIaul
z8OI+teVwR86n35crkTvX4Yb+mMa3r2Us/hw+62iSlKS+hnxURvnutQhdga9
Px8hJs4b1y4lc/kYvMTVyvWneh4f7p3dxUox1L+ND+Mf7J72XCFLl8M6pnm2
wUWyTjn26oyEzlacSe9fjkv7XsgW2VLuVw6nA9e6u1QpTy9HvuPZuC0WNL+h
HMmnz8VqZJOHyiGXlJXsk05Wq4DO4q3dbc/JphUwVtzJnvChfh4V0DatM5u5
dTa9fwUMgjPl7p2nvKoC8saG2d7m5M4KhEteVjT7i/opViJ1b4x67zDlqyuh
uee4V4o/5exKBCfFXFd9RA6uhFyTZzbXleblVuKx3MphY1MWvX8lwuzchiSe
Ub/xSlxw6A22lppF71+FEbM3zZnf+llVof3zsw0GzuQjVQhM1ebiBNUnVmHd
Izc93WSqr6vC0/7t3l22lL+twkCeREhjH+Wsavj6sn5adplsVI2oyKj2kJ/p
vm7VWHfUXcplOeXcry58Hs9lk3nV+Ft5WWrZt/u3VSOyYLH21f20n3QNGjZu
OlxTQdapwdGGY1Xc3769fw2yZDjmjhbUz68GZ1XqVdRNaX56DbzOVEuvrKP6
hhpsl3dxXh9IHqpBxpdcx+ecOfT+tRh5F3ZudST1M60FV1fZ+LEq9fOoxQHj
7IHput/evxYBOndi0jZQfVUt3nCi74z6kztrwZfylnkVROdlBMhy+lKQPUn9
5wmwV605MWU3eaUAE/49qrcVVRibCKA0csunT24e450CZJyMrDYJpH4HBHiY
lmnubkP7nBLgU3OXsvUoOUKAZQv2N7d9+/1kCsDaJDtkwFZmXCHAbil9P5+j
dN9GARbMyHt5wovylwI8Tv5O7aAW3WdYgENeCXMHsui8uhB2SUp7P0WRzYTw
a97m1jlM872EuGr/p9vy/XMZBwkxbXzFfNYlymOEMJpouxsQRM4RonWParzo
Ad23RoiijY3OLD75gRBe7EeGHxTJ3UKIm78c552k+30WgqM7TyvBhbxYhIaH
Muy/V9H5tSLUchyVhhNpnqMIHXsXeUXVqzI+LEK7dpGxHZf2TxDBavj5pTSf
hYzzRLB5aqb/RHs+Y5EI6dYzy0w0aP9HIrzY7bTd3pbqe0XwtnipJyumfFIE
nwzdMFcO1c8SQ8s7sNtoB+WaYmSKv0sqNqd6QzGm620aO3ua7mctRseqg91j
fbSfixg4u2JgoRL9f4+JsTxxcdxNaeoX9jX/faxWs4XOF4mR4X9ewmAznb8l
Rprr3PCbt8hPv/ZXdqh72U7zpeoQddrV9o0aWbkOOaPvzA+0U78f6jAq9+7K
qcNzBP8B5LZB6Q==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530762878391681}, {
       46.007686206204134`, 0.05697044129915475}, {92.01231118791847, 
       0.018633253814393007`}, {
       184.02156115134716`, -0.058041121155131006`}, {
       368.04006107820453`, -0.21138987109417876`}, {
       736.0770609319193, -0.5180873709722745}, {
       1472.1510606393488`, -1.1314823707284658`}, {
       2944.2990600542075`, -2.358272370240848}, {
       6136.253312359592, -5.0182342471620025`}, {
       9116.682163413447, -7.501924956373548}, {
       12038.64683145817, -9.936895513077484}, {
       12114.37221576519, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.09530762878391681}, {
       46.007686206204134`, 0.05697044129915475}, {92.01231118791847, 
       0.018633253814393007`}, {
       184.02156115134716`, -0.058041121155131006`}, {
       368.04006107820453`, -0.21138987109417876`}, {
       736.0770609319193, -0.5180873709722745}, {
       1472.1510606393488`, -1.1314823707284658`}, {
       2944.2990600542075`, -2.358272370240848}, {
       6136.253312359592, -5.0182342471620025`}, {
       9116.682163413447, -7.501924956373548}, {
       12038.64683145817, -9.936895513077484}, {
       12114.37221576519, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10324.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777270895046869*^9, 3.777270899446675*^9}, 
   3.77727115793427*^9, 3.777271301666748*^9, 3.7772716030985126`*^9, {
   3.7772716453407335`*^9, 3.777271660591845*^9}, 3.777271770880887*^9, 
   3.7772718921910305`*^9, 3.777272689792395*^9, 3.7772727481320558`*^9, 
   3.7772728090414104`*^9, 3.7772728635974507`*^9, 3.7772730809939203`*^9, 
   3.777273121396636*^9, 3.777273247420925*^9, 3.777359626412679*^9, 
   3.777359686377721*^9, 3.7773608805053096`*^9, 3.7778083962730036`*^9, 
   3.7778085047503242`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztPQmAXUWRL/PPOXJzBMiJIgFDCAFC+HKDEOQwihgEIQkhQxLkkFtA4SfI
nc2IHOGYVXARPNFd8wPhCpfAIowIivpFQFxGFpW4LHIo+fu6q++u6td/Mpmg
i7v5JO/orqquu6vrHTL39AXzT5x7+sJ5c8cfcOrcUxYsnHfa+P1PPjW9lBuU
JC1/TpJBz49P2N8bSSJ/Gun/w88a9sMup/9Zzv+eS3/rSb1e5//aQlyT/+Z/
2O8uxovXGi92VdIJOmvixby+VulK6mIE7N06PJR01RvJaDlevSuBV+v+pNc4
D7FJx4prtc5EDcYfnoa8CA+x9xrqRXMw78WrJUryIUBprIspTMxf2dl4/TQ5
h5w4/V+Z/+ZgPkHeHP8tpL+1pLMinwRkOixqAWXyLlhJZ1JrNNRlNoweIqcw
rSVd6fDsjRYJRfqvzq4aQ4rP785Eo6TmCKNkYK5QavfIx5ekOaxa3PVL/1dQ
WPE3DUC8JeQ3dzIQO108J7EXzxGwDs6AFbvc5qIgiKUHZnPWJGp5WDB5q7Pm
E4IPTmBS4CMr8gM2HIYQOvJ5eDyITiuOjv0oxao5HA4PlzMMXDSVYOg2hF8H
O9cYSxaa4qtWlw/Mp7UKUcJhQnumRXkFLidOq6sLUsjWHVops3zGrq5Ue1Q4
/+PimAH+2R7qfI4yDpGrmJoHXgJVr3UptZcXwFc6gWEbiocygP+CwcKCHxhH
lfCp1x34Fnc9E0OrVrRWLcUAf44rfzCH+y6zW3GQ89fj1U5n0lWrE7rBA/Zc
XFMWEcA6YvUKp4vSKzYaAl4bB0KB5L3L2jJjODjDFnF4272nDc7osNCAl2qK
dy0dDq+1iGVRa91pPM7lGNE8Hlt6KJ2HMJoy/QaTaiOpqVtGGM2bN+WSVEqL
/IEi8LGCWin+ohjdvO1BIV0t37EgFRyKleGDyHkZ5HLekjOvdp2KjjvAiM7V
hpZgLhKW+pH+E/uffK5iPOeCykGh0dR8q1g/b6GUvr8Jznhj8cveZNKnMdVK
Z63eIsH1eTPZ1JFiy1U26Oi5ymco7LUoSGUudDF/YlMXdhCx0R5dNErmNGeK
lQWbYUkdtxmp+5Rs7sDLph6NXPMCjOUGDhXmizWMwRqMWGwSwbzTjRe9wOqf
5MLeUlp6e5Luair/neJPtTvp6W0sErTprVXVrQL/Laa/6SOmfoAhWvjtnBzB
0A/kLPnw7TlqjPQ2u9zdk2S8sm63j7ZuV63btXUdPHLu3p6ad3t9z30EQuhC
+JXS+oQHvOdkLxcs4C/xq5lwgXyut5ZULWYtOMwK4+QpRob7UbdtCI5BCJgj
oe/PmY9EcM8L3Lt7vCHWA+4Kgp5utY4DC8GnST2RzTv0c/0JYbvJ0OWkpxsm
qtZ6kl7+SG96rSqu9UrlC49VmfgLjyfz1ZZ+fWw2ydYDDMiRaq16k1pVUKVH
vD041ZndwPzVmni7kTVisr4AlGz0HgNwFikjma8WNsSKQ3yZ7OkuPBCwBb+8
EFmF7p7eQmiQsnt5nR7zJvlMEnKkQLY3JFzSbjBNDfxQErCisCUbBDgmDu8Z
4DBrk8MfJUYIPr2eoW835UojoSkszQ4Yr0We4uXPulZTv160XjfuR922J6dl
p2CwwEBAAL4NzCiHsRmxuVn6BoQnDes2S1NA0FyfzUT0c/0JocvZHrVy1pKd
wK8VLLtj6xGc4tay6/tRt20IsHVtQcg8kNDktbBBKNYi1a70YORiDAgwqL9n
AJNSp7HegQmyfgaX0c/1J4RNsv6J8pqM2AaMyY4UC2jqUyN0GnB219eqVW1b
2Izrn6105K5zICryNOKEZmf5/83bJ0kVIdSYykCsVyCPMs2VWjtF0oFk6bIh
XKllq0m1zQDj0dBASnrOMq+Su6tSbb/P3YQ7bmawTB9Hcreyi4qSfoYcc53S
+1G37Vkld5uzYNy9XoGwXXEQ7NKAzHyktW5sZumnaTWjTMZ6heQwYyFq3T2u
mvEyzgQX0c/1J7AWa8eGxm4qn9FVZhz7My7ua/j8WX65YKRNXMdlQ6aZjMwX
XC5uQJCk2Jg2UY9oapINs5SmMOlkYc0Wpn+glI7cXNAqyUisajUFOdJWPQiE
VmoZ5KOaozOH7N/HjhFYmlkftR4DDAtYvhE6Wa2ULlh2Q9T4tQ0AnM6kdyOr
2O+TRj52uNSTZnbFMjWZQxQ2BNwdpixl7x4ulM8Ze59699CMb5W5XH+bz5IP
NsDmszHLBtp8Nra/B3wBZJihNNZ7df+ZKvqpQq7vc+I2K0GpxhdtVPvjdjO1
Pv0yoVnrUzM1FETJAzS3X+uzvgkt4yiuLYT7lfEKVevTL/CIWh/Op/xHFKjt
gDBERk2SHuOH9BixgqkHuz1rsMzNbD3WD+ixmnM4PfAmmENWWUKzylIt6W8u
6VbRKaJwmtjIEZE+O3fWSFFjf5IW/jd+if3czH7y7Nog9rdBLnApEt3dSXf6
p8h/c4bzmQFcRsKGA1dgM49mM3O4xiJ/Gxe829RzuX4ZhXxuDEpLmnciaQRQ
s7+1UH8bF7zb1HMDNlvL+zRqikaTpTJdt2SSJtf5aprYv42Hv+EwrXNMLiBL
TONyqzvj9vw/6xSo5GLmkRzZFx8xCpGp5trE2fV8zLj7vv/Qhngo1fuGleV/
1Bu3KAEa1E+vvRcp8P5D/+QPvc/i/68eugUWb9ibb752+7LVM+Fm8I1v2G+8
O+qVFhaXZU10E79VHPfamhdWn3/fnvK1tyc+V7zxaw/Oy3r9a/bra4etGcRe
/+uUX7ZefPujZ7fE4NoNY0zufeWpJ09ZvUOj/Ca7mby2V88wNkY+Zowb6DFO
ua9nWbFpmYIzcMXdnn/pwfqcBz/YSOD/Xp756GZswFLfRO4aetRZPb+8rbVv
o14Fo7IR2EhyVDYDu9YeLedfhYGOe+TpG9yBGMhDYlbiKzAGIxKjPh8hXQ22
KmyMYTFjLIMxzlv5+BJ3DLbCI2LGWApjMA5i3MjGYNzJuJSNsVHMGJfDGEwQ
3DEYx28SM8Z8fqsw46n6fz971tX3N46prug9cendC+55/MVknB7/b+NfyrPx
mQAy+WVyPCpm/OP4rdz037z0Ghub/UlDbf4754GelxLxWLIZ/y2xcb957f2f
weaDQ56RE956zfd63AkZgmpCOOFadBUSm5ghPKaJuR6pdj/szvXmvC+vVHNt
rNXQHRffd4A717gm5lp2y52/cOe67+KbHlVzjQyrvAlNzDVqzetvPX/qV+7l
s7RovNhi8idG2GpNzvX69Kc72FwfaIIBh73x5jsXfH/1rxkuDMeJL7/6uju+
qza3csffFZ4Pnrt0pj/HUXliildnPL4Rm2Jrdwo4T5xDTsjlnW0Sd6azw8p1
G3cmOPJslAGYdbN59xgSFleeqRXvi0c8PNZVvB/GZ4zOqlhznU4reYbxdu5c
H5ZzeSnOopXiRGqu4rKYCrJTcI3/8wX3b8sgm8Rue4k5DZ6b5CxZSU53513W
T5lVzblsGE/CYZQWZTIKo2JFr+g0Z21kY8t1Em5+Hjn7vulswh1JtvdKAHNW
CSA2l9iKuvLWh0/EzNTO1Fx+jVbOqtHCcjVwxgU1WWyuXai5/MIWJOHozHU8
f46bLMpEgkbyJ8zc6Mfmm6/nwywWn+8j5MJ5m6o5a1MVW7h52pRgE+5Bqd/Q
VpgzxVw9hWutGL/sFWNBZmsrwfjXtXj7xIxxdNjS7BczxlFawTPl4o6xf8wY
nwkbiRnuGDqzqzuSDOG/dn+1Schcs3DzwP7Orn2sP+c6PGweDsbnyidO7xTi
ch6/vB0CyGFa0zIbLzWtBOTQAQPkE2GVP3PAAPk4AMJEhTluUj1LQD45YIAc
ogHB7MSn1h8goej1YwCVq+GZH8+gOhygckzzwIA2AwdNGp9Z6xk0Z/m4fsPN
E4vouHk6csCYaT+gDWUsjx4wQPYBQDALxwCZ3TQg9aSL21W7R1s2IHvRgDCR
m+sCona06qzrLKj2dhwKbLo9YDoqbTbPnQ6zhrvRYzC9OT9mjAqMQWXKjnfH
aDPQ5u3GKmDfZMdA1lmKkWMKMtd0ei5m+Ra6c8luk7qVY5LGFzCX2ZoNoy+0
2yKzaie4c0HzuILVZI634qqxVm2sjXAhqdd07zTOS7UGbOM6c+9Ez81wP9Gd
W7d3tNqpyctOi0IMW9gRJYO4k+kZLbkgLmMzTsFnlGbx8/0/o9gwp2Ky05qk
qtMdEZtxEj6jtLhnxPCQ7Fmbk/dYk+quTrNjJMpD28LclF09C5eVvDE2oaAZ
W9e2R2aciM8ozeUXSE3AMEqlRGMJPnCX6CqIaQKemsqI1c5F1VfI4G8JGFCj
fhEGbDY/P542DCwGOx8dNWcRp5aqkVoaDLDfHFcpslUmFgyMoydkrLjYpcu6
BB5jaBPC8vfg/OLp7ylBOJgp4G182W8+sZocMtmUN8PgbaEtBmbhZsKMmdlz
L72mugGbHVZr9V0QEDbTILhGi+20zAhQSPTSzMy1E+DZ/SunI7CJJP3Hnn1u
BWZQD4wkj8joZObpPTh9FcuXEwNV5Pgxm8jAPyiSVALUzDR/AFTL0GCgii0C
ah/tkEhqCVAzdwkmZ1OVcwAG6nAAldqu+3gktYRxQjcZPDGXVs4ycp1M19dY
9jdKxQ0FuKktwk9Eks5LH5YVOvobBK2RqhCqs8ktx08FaOSlFVWfdK7+u3ia
r6zSil1B2kAQQeaDr3Hnwrx6mJ/M8y6PGQMOVIbzt9e7A5lOARYeyIbimFOQ
1xOSTsGNJKVr2qcqqhXXzaExHwsklEzgDg2o9sspqbDaaAsPSMcPXd6XMTC4
aGdjWKRGvwQHL+9+SkG3i6ubH2lwgHoXgGJSgDkkIyJ19x4Ben40WwkazeTz
7ocwQrmgdzT0mIuzUaQ63z2S9HsDJo4/2Ifwh0DnLUCHcok2iVT5u0cuWiw6
+Oqg0dybGgPMoxoVqfz3iFy4jQJs5+0quz3kWXgmWy+Y3wRwJOQNQIlyxLYI
2I69IhdsZCT/fYjUTGZmQ6hhMyqtdQUzG68DipQDd2zkqm0UyXceGjLANVuz
J6yHPYskCm6AwfNQTpT7F8CA8utClRabRPKaB7X6vIthnuyG8pDGckAFWpF+
3eJInvHA6VBWSoel3FdLLdFUG4Q/AQiUi3Zh5Hp7FSKOq/EqTEN5XRcHFsUT
XmfoV2BoypG6IaAXNs0YGjalyVzJjZGymlXG9nt+NeyC/WukQGXN9TtAifK+
Dg9Q64BmNHEAhBcABMof+3QkVSGjk2Og/mnhZXfxJ/KIdHjg6A36HrInvob2
txpazCs6InJd9kGwyiOCtLELLVa6kFlq9RsAmnLljoxcyV0D3JBHEBeaoTG7
uoItCRdfT8Z0RRfSCTGrouvXGjHMLfpspMacTvJYweKx9A8jUlJAiOMVlrqF
Y7oBcbBw7JeAElUwcUykBt5FiwOs1eIVAuzC705edq+5fvdccvNjEiWLLIXA
ene46GJ5wCFIwm8j9VxGjZvuoEhSjawfe0YTEfPM5gbsC8YL7fy3+Oqiy1fJ
a+yPJHgxUkXx57yKtdhEriZcuPrO6W+aeJIEVYJhAv4MAGbEwgj4dRjTlHbG
YXmJ+uIVrhz9+syrVnu0LkVqyyzChbPt4x320Z0w80ZbM0dlGgTA3MabEZUp
ROjd2R72tqZojVS3rbhGyex/6FisnwImTHlgmJwVEPKJtP58beGlq9j1m67/
wVOo8miN1L0EljmrD16rjdKTGiXMSxUfAzTlsXF0dYVQk2uOv+ROjh17aCtS
nRZMdSrvm+ukVG1bpEpuo02f1dOsbCP7E0CWGWoM2XMQGSogyueDAZ0XygQP
DtzzjIDuV6hFsg0RyQli6WPaTjn28T81OTD//qgAO492BU/ZRFvdfJxGS6vo
NkRFTzBtW6xzBqJAHljZP4DQ8EjDsxkii5gPE0a8At/f5YldbCtvS6mrAw1n
NNo/1mhjEc4BkagNiTQhm7lCqtfeUkfTAuT2Qge9oWgkxLwNxQf5U+FTPAdG
ojEk0naIT78xqb3i1lW/4Pcw3TUtkszDcdTtLwY6e1UANRlbHhyJypBIQzI6
oKimR5LXQzNur/M+wJQ6ynRoJAZDIg3JdgEenRhJ1QCmoa3SezSmWCQ5MxKD
YYG1mhzJkltFUjUCU2yn9S7AlCqgPyyAATgEbdj6YNd2iGRO2ldBDqD1497t
nZoSWJA9D1mvMrJekyM5Mx/g7mLg3ojAihCau+ktY4CSDM7nIyspkyB+TGSv
7uRIds5FikdL5HMTXdL0cRd7hSYNFjEej6x+GVn9yZFMjuWbAqUjcYlSgrOG
uiRyMpj/AahTwfJCZGUDXGGt9vYBpi5GClRsoU/sXhPh9XsF0I5C/aGmEhaH
nkAv/FvzLlz58klL7yaZ4SORshNbRzQykmkClPCNKLGz+30gCxWew5nENowB
sGuwwdtqUpH/ScPftbMX1yy2ji1Vit0rx3sWqIp5w/p0SE3LSiVEqUZo9/u7
mkZYCHxuQHaF5ydp9cSXrn9I+P1lk6kxWsZuquN4B9N6FVKNfgdQpaL9IwKo
jiPlt7A0xcF7fudILt8ikk8GR0pDXL3AtzQhsLD4kAAhSpGKbOPAGJjdwLya
qZHCMZqWY2x+L1e0TpX0twItzRQDi1EkLQ+NpJdgaQbvX46/hKfC5aYVYkuD
4/FtFDpdbI83lRTEwlPnLn/QW7uxkfiUXCIrr9A43aOvwaa50lWavLdo8mLB
/cxIOcM8NixLE1FMwUiVtCHvTqVl+e1jL1wZJNcWkXh4ZHXcJcide/kQ9l+V
D/lkpFh5YkqkdWgblpfjSZqIaf42Z0ktqPbBU0WjPFfKVyz95uNYonGLSCw9
ivoFl5WYgkvYtsnY7Y92oyywsc3rIdn6FZmr1ZzLpeRuv3rxT0YivsjmO+WO
R553x/8wbQujd3RD25/DI0nlrZyKroyK0YjKVaj38DJMsuXXrEgTnUPANnbp
Xzql614eWgwlyZeX5HPExZpGhOnu4s169OmX0b2JiaRmKVjyIjUbJuH5SKUf
m2Qr48ZhcGIfqupKanXD9NbrMfW+N+rVxLJoBwUYrxCvddhKFiKxHUquQNlc
AWyKjkizQGcmi5bYZfBW7PGaoTgP6gQdtrY1nQ8UA1lulbhmVU27a3s9rK2b
N5Ttnw6OV0wcZUxcygHUhkealNjnAlvAiE3AYSpFzjXWXRZ4sTVxysHRpVE9
kpEacb06y/XqYLnMQ+MVEXsG3T0cG0kx2oSUzecwSR8RUBAdzUl8JpiBRcFk
g1iUYHjidlh02o3NJNmn4CoObsvFPZbzkM+7oUFkEzfsubz5HPtviz+dKjGg
7agt0W3ZEp0J8rj1v1BXOQvlJDrFQmE1ZxZLSTOOxdOwT1s2WfuVz11x149S
D9qkysYBgmGhO6ZGYw3XhMBcE7JVFuyNBokePJR+JRCd6kg0OaALsEC4gLCO
AMTOGi5egWm3UZEcHVtr0RFpGw5wCa3cMW2zU/eLMNl1w2Xzj953aQpjKdjt
I1EOxMdvzL/oDsUzwoOR/PSXVFmg8ceoSP4cjWhybLyOSI3vkbpVvG4ewtAn
LySZNYkFHztU/hegMtVkKnYXtKmYOQLbUZHjjXbVMJFpiLW/XtcysWtsHRrB
KFyB3RXn7MgVmrpY3njHSCy3iKRaKRJLrPIIG2+MlolgvcqQgC72erN1SP2q
zr3wPe4dbcpdBpSjWn3tHIlBbJa8NYBB7BhQ0Vo2x7i961tPPHfalfeZ+v+z
LkFCXS8u1mTA8u27RII2JoDepMA9KE+Mqtk8AtBCDydmlx5OCtDgy0ADllFh
mRWZyJU0qATg/wKivjCn49MZwIcLDJ3Nogs1vFjiGQ6M4a5BOXDvQ5G2e5bL
X02VCzq4VEGvyNwkmhXeLQA0dqIGs9J0nsjaEMTmwCI7zNB6dImrEzwfVpPK
zoaqvjoikQ9VOQwL3BseaZwjqjLIrIan/AgDS1A3WIr4RSAt1W8utuSsNZIM
TVVSxG5UhRPpkWVVwefIlMboSOscKs86BFcWWaWV59Irx0zVlMgViT1z0VTl
R8RzwtdnFHnh1C5uneVWiVzhrIx2yPMg9y5AVWV6CLFJc8+1iqsWBaNItjuM
3TuPPUpCtO747WlX3hsKiGJFR1NJaaa8XGyptYxkkFdvk3cVHJ5TYmhi7DCe
XCsvc0wKcsQ6YrWwZ9HryAKOnSLXp5UkAJqatDCNLZiLDXIxSwUUs3YjzLoh
zGiF0t6x9VUTSF3iJZ1JefcWdh1rfs+AFacahE6LRK09QB7apyi+M/dCtffO
/sgxY/fuCq5gE65EbHFoKD37AVKJeNlpUtMTq9d0efJpsGpUQ5JdA2iMy9Sd
hbdSdLz3QpX8WAoGqxPIRephug6o6OaXQzuIB7nU7mPF8+eB2lRvlGNILZY3
tZgR5bIKHBXlgs+VNxfk73OW1ARC785ZXLstZVszoZip8wLFP8h64GvquXFO
cc/JQBSq3cocWuJMoXd9JP5nM9IA5p49++r7XbbLRHOnAJpekOGgeSKgSbVq
OZbmaCZFT59z7QMGmtYWO+Y8h4L12DPUMEZJYssK52SfDDVWFy4ZBUigy5Rv
BRrYeFtGFZ6Ad/KSUNZNNpTJ+ICTJKCpNtgbZBAZ69BGREOJ4bJkjreU1OBG
nQ9UaJWQ/SCREvArReDsANkopzOb1V2jI6s3Uf8w9lRFRGhiki9zPIJ8dkFG
vV7ThRdGBXVGQQacPCHP14aa3bYF7kGsW0a1B26Ajrv/iZfAWiGMFsuQdBCB
HkrPHM+jfLDmQjcS5Nfiai7m6wUIlMdmilhEKG1gji6MWSYaqhKIZe9CwILE
BiKBBQht28NGZty2/bFC9YcOIH+yOclHYmGs/Ao771V0o9WQr7ZpJLv/S3NU
tBVGiIrETsFs4OmMStpYacZ2DaznsGIdVbeZUT0fClE3D9xbBiR1diqwVokt
gtb6iw3m1rulGoLHfMT3pqhj1DMD2jj2ZJenZonIcCjNd5n9XVYECDfY/kyA
JJThJDCCmpYOqVf4rKYTlhMljsZcetuqX8q0VUwRLxZVgL5ttZ5r4D4rFfsb
DWMy69x+6Eq16HDsfu+AX611Gj0W9WVHF0KvM/LrnNhRGDr1lFkbGwhFrAiO
PqyLH92iW8545WmYl/x9l65irXjHYsut6qyksAFRK0Yk7DDkETZRiYb9lpYr
BsxvqOUMpjGxOrJQjWxs2scjkxMEQmtCsm4RO8OC8VIRAX9k5Lt05XO28clC
71MOek42CYoJorscBOpxGFRBZ2Ik8i52eDy2ptXDPCf0ii4ekHLA/92enTCF
xSar9PZDBBxj24w9gv2eee5VWTOG+QkjaX2TeZ4pYPIsfX87TTzX1eL/bkeU
skO8mZp4WNJof0ReY4UBZD2znlS4gCbnUIm5loAbAlqnPeZ0hnOSyabx8ID2
8oyiRX/eedGgf6XSnl17AVaP/JDUDEShAPN6KW4yMYNthjjPrXNSJ+TpPpah
7A7GSSDzVB8JLHobonVo9rSOrP55waWr3jzuojtQrSfS4gwdJ2GoniM3+mIT
OT91yRLXy0F8/5H6KtdukQsWcI+wng/WCVVM/2ckUdjq/XXeRSvRECs2AROg
WGgrfAZOMZmF2iNyvUDBRLWDYIdOPTYkwp1AwoPtfEa8W7BUp1CfcuGUqLAn
e1wCNtUhQlMUrAL5rbS9ItdTfFxD8obLW244RJnHVZd94zFTqWW+i3l9T+Cq
PbuJxFbqOf11bqffHrhr4a7i+9BsgLkKVhII03jY0VLg4CLGwWyt8voV5rEY
r6iC+VdSbkKVnke+5hpQfCibiHtrIpIfqwFXL64FC3bssoQw0ODIhYktc2qa
UvblCErtCctMdXWfYS+p0ZYFrZBD4qCiZJGrbq49Y3JRrB+LmW2Mph6tYrtE
iLoO3ZC5U/cdNr8yb9Ftd0037FNAB0faidjsc6hpWuxJhicpAtXVUU3dhNlv
+5232n6nxCopSlk0YhMkeZUsFG37qZ72h5KS0Pb23CU10wFj0sikU0ZIUjpj
z05vFaAhZx6vc3VJWQW5dapbNrQbnNTVCZ+SGq6I57b+Llqtv2Wr+WpN9M9H
RDShWn7vogmKfTFpJsJRg/lvO5PY2APpydsBitiGTiae5Ae16krOPIUEpw5K
ZtN4QRRSQQl0qVZ+0JA1+K0DhDGKfzeibNPrErpNblyRHvFaV5Z0vwjR6SPR
n1arCMJoF8OzaVAHWoRGy6KhskEUhyY7a5pgGR/w+qPOaBCh2E/Pu+4B2Zfm
70hCwtJhHi06SFqURScG/XVoVsejj6jVxgk6mAxB0wFOS5EN/TAlTMetRdsz
9niC5XKCxtqjw1CXDhXdQ4R/iVu8OE5yhvoCBSkNO2iMsQyMp02JRJ3RIap+
xldXu870bYJi6IdZPDSHKTMCmtBifb7c8OKWgtimnfXXFE5xkn32DtWQq7PL
JWQxsEw9CEAbc0juufjmR5lD8uCXv/bjlFo/fqx648NS9YU2Wxou8oMt5Cuk
3EtXTHZSR9Z2O405ltrYO6DpsPKX2Erc2Cx7aBMdyOLSpi1AG9NYbEPZQE0b
6BNEHv6LPVRUJHEtrjW2C9kfueyx+Qb+G2y0XwuQwDnruI1GF8tC7IMIAdLe
gDlKnD1yOOtkFo3GFiyGcDfzzZYHNc1GeWt4Onymr6RQQPxAVOaJ/Su+yRro
a9enQ7T8aaK7ouwBBlp/Vxv3rTTuWLz/EQQvx47xBCOWRSqROJLV26Eqag5u
Vp9dUPThI4LeFy59S8WL6EvSDtmVuKUA1xLcDj4Pu5f1/TiIgciiESxj5WQq
eTEfxl6FSJaLTaXz36wvtwnnkjpV52WT9LEZCZNtEotm0tfkNkPYqFM1mWYm
CqPRNEZMZwJGXk02LMgQBZ6hQ7C9JikADy/51x8z509kAt+dU3X94fhedVHY
QbUPeRxrX5o32NebmDvz83OueUCKPtYalKHGnjOdPJauc/GK7uoWhdcoGi/m
9IRODdPcUzD3WIJOb0ZJ5tNfuPZ+gx5NNTvjD3jfAHTQhz7F5Fkd+hPGUexl
aEusPSKayKWOsIU26AIalCgXg81u8rTLnvCq9Y0yFa0WlA/TgNIjVgvvNitC
NJeNT+yXn7S29MrCQghC2oc8YLI3bS+WfPfeX6lrwHf496yw3YqOrFUaj2IC
iasyryFi5RJdMhRLQzV26qwGtUVOS1II8sjzIvuSNiQnWxCbVLc+NZkT7oLA
AwvJAIadXK5TCUzeyrEiUgzSu9a5OmdHCo6nkYdCdgjoIZix1bynUpPiuTN/
9NBzfM2kvciqQ+S/u7u4FZS+9hNKrK6bFQvwxKA8AMUrChL1hBt9b2vTAJiH
PO8xNdL/wPwUgfeiu//zBWVj5LorN5yQVJwWIkHjtewUySSIfksQZ3aZXXk0
C2xjow8agTyvsRNpbtBW0EggRla8KJFupRTQHi76OUFq1dcJAkdxjJqjrQ/9
QPHIRBtdsZlHna2Yhmgo4mwkBxVSRWUzqFqbomvmkpk3IRbYaqrFB9nLxVBn
wesqmT5SXuPowfayg1ZRo4XFTdtnOxRYr3L3jKIRW9lxSPp3x8cK+30e2o6D
IBVhqP5/CimYTdXrY90oArGJ1a+clNss/AYJT4SIq3ZsSuis2gqsZ4L0FgS4
7EOY19y04pk/6F1pqqW4L5J7u5ipxt5c5cAGf4uUR5bSNrQUO4SnT9utBSJQ
xfOTsnkWEdOyyWxYQbmnf5WeJnoaWDXfmIvBb+zr0kUXfiNHDGqdBWGY9Mk6
s8bt75o0WFS3Hcn6noOM8SnHEYvJMyoilJ8S2yeAQ3Ag7qsMsapn9CZA3TpH
wF0zfX7IPqv1DlCJqozfnpSishvNWaUPeoPoj4suW8X4jeu9IkIc7FxcZsjg
nebG2gHJEyrO7hjM4lzTFHnLpogbV+5Aik1JouCWnT6UhvxS91gyE8s/ZJb0
ky4ZiPY6yiJq8mSfIvsrEIIqdN+RtHk5VuyoTuvlaISwa1AWvtjjDVsgDqMR
t7CJQtyVif91EHdCzJ1pydW1ikSy1DAVrKpb9lUC3PMsPGVFMZZWPLxJVKWy
1Ge0NPr2saL/ATyp6vXpthDqs+OLV4QEmR1xcQ5dBAT5iGwO5sIsKrot+QZR
sIigkVujkcNCTAhJmt8BCIgndqDBF9nZuObqMHq2VHjPls5OGXvIf1dULNLZ
Vdc+wJ8BU6qOm/Bb+Z6F43DieX87mSAPI8g8JlrJzjGdQ+locwuH7G/iZ0de
xfGUQSbmywYqYZF9Aft0VqgfBodzLuDnJETc0g0WS5WMT7VYBsdH8hVAkqqx
norYY+eLP6a3Ir/XroE+AQV6IwNo35P6Aw6TjPcgvC2bFtGMzOV/RVzh7p3J
BAfJRie6bKTjgJcBMKoYWMTdVjw9FDiZpRPwVT0ZV0iRLUY5WL/HwZJR144u
WIQnICjy1/kXrWSZjz+ecPldaCaa/36eBju2uSjU8ITLXKf4yoRlrFIn7y5U
cTj1+uGINoCDOJZQieos+jzQn6pC3QZXiMbett1uAHNWInbewtGth6uqcZON
oCs826a7hT6nscJqRLcFrKwyLSGJMt0g1b6UyFCo4iPWqu2bvcPLJlZ5KFKM
T8029Ly9hD5BAaqIrPXcFpFuuSxmYhBzVYyeb9KemZogU/WfHumTaWR+pZHB
6izpL1dhhthLHBUD/mO1acI/C7Ay5wGLgITlsrZYUhgI0FoR08rhupDW6z/X
AGAO+Da078aUEatEQAUUrHyRgfK9r377CbeEnEN1kQuVPoyh1f+QoPp/OlGe
Jwb9tshSB9T/XxZccicUC2r+9s365TTYyBkSVP0/pcHGHOZJrudBJKedfafM
7rEcjCtCVJdbSjlVRW82yq/A5aKRJEuEv+yEdT2J8h8xBKFkqByKCJj5Evxs
HVXJ1BdeoxKiN7RXz1txoponNA6YDzyRVCMFzCVrLtlwNY6EnXNRJtsIuDX4
jyfKk5Tgm4V3H6IE2wB5KMVD10Tq5MyPpz6mgcTc3a0RGtN1UWXpvrENSJYx
RrXO8v6C/ZFEuZ5Y3ds2MUK8GD9myX+7s40J5wN5ua4TkUoY/aDnIQ015jBv
41p65o00w7k3AtRobxYDRsiuSxmsG6nVFKPJOOjghoer04Ct8QicjlDza1LN
zzjnyS9d9yCzAKT27A6gl7NWRnX1ENu95hdEK+rrd2Y2dDUsDRUUgMIpYl6n
Nv5e5xhaUX7d5S+zS6fcuJZ5f7kdwp7Q6ZB7ASTpJ0uIZX3aRJeZFssIusAc
A7xW4DYXLFEtwXdLazX9hx1+mqpAudsGxfVgx+N8QQYinpcQyjN9m3avVgFY
VEXYBNqImIf2g0YEO87IwfoODdYdNFjM3kHL3Vbb7TRSDYaxQPUxdiyVg/Q9
GiSQCLLI6gPNKSbtylUDez0eOCNMpa87PWgZ/RENJfPmsI+sYNFf0KErmQ4d
LrteixALcMxa/TsAjrmc7NqWvnyo1glDqbBiBQ2F1dtAQ/EDGgpG0i0RSRSL
LMtSw775Spq/vp+g7pxM3U7wCRA02wIElppVOxNY62UO1h00WN/FwZJumgGW
ebSNg9Bua/zsMqxVNBjfph0xBgaiPhUYRDBqnDO3dcADuF9jh31FM+wTmdIP
iufw477dSY/UyQKn2wAnlrHBnEs40ph3PWAsFdCU2g3gp+NDVezGK50Avy3l
c+I0WRZ+30xIV47hh32bMDYNVYgI3x8K4lmBQrci/y1YEaOMX4RKFyer4Exp
WWH3De3tke0UxJlnrIAYS+WgORuvb41oDQRukL2Xr07CqQNPKdjdPb0lBfVN
GmoysTsW90X4oZ7A0QNf//6E1L/2jvvGamHco+E562i43q3tTWpVYMBqrVec
vTLdcTjV3K19LgzZsYjJ9g47eSde8FXi0ax3qJmwehpf9zR3zjrNnVMr3Zsy
oVAq4gwveZT7Bo00lhseh3sA7QHcngzgZvS3TmOGraUG5Kew3fN2N2inDnOB
xzhsZzpxdFKsYAbVtjl5BpccryJioqO3u3sE6TnU12mosWzt5riWLtNy4kfS
v4ixOAX+y77c0aUOw8o6VJl83DoxGKsK9NeYXJso3xBzqreI0ccZfV6iQvAA
uuH9KdVCQnc5UCWsCmWQjxaF9dUaa9cjZjXn8E2BcJ6pAzBh12VVB+2zPxta
TJm/bEM+LgHYtRrarWpog1QDSLfCWtSvAnrUGYhRiI7zwhJllcqmx0rW5v3K
xXC6xFCKvcrQ5qxmDHpRvgJQU372pqRmzmDFxSvo6ufnXbBFA5FUW6XsVO1U
oHdWU1+mt6EV1zJ4kMoWE9/Uw3M6VclORcZOPz1v+YOu8uLAvhijEsJbz0s1
1JjnDkaITNd4bor+lLdMRvka9+W+SraG+nIAy0wLm1Bv6npUVdyjIr3fV4Ig
xn+y8lINJ+a8b+zzhNqPok/ThnniVRf0zK9Kik+6UtX5GyFihlnakOOzBgeK
+hij8YFVzGM2RMkLJ2PtDpnceR1f+sAHCOH7qeG6+ZH+SiuQ2zQoax3wfM4M
gEdsJF8AxKSc+RAxiaBYSDgL0fHEzhvZQDrfj/tSovxRrCx9Y9frILw9rCMf
h+gtnAH78uGz8zSomIPqrnSWgyqyZVJssB0fQOEdSobiv/51TqK8VFYf5oI+
ApF0uhgCCeX4zyAXzqa+m+VvmGR8VXB4X72AjIia/4ieInGHMY2P4ZmtomT5
8/CAoHUEKVqgoeDLerqeGPPukC/20nmGUF6S/5Td5dVwnKr9Naw8eFiAALRB
QYSZ/7TScJyi4cA8MeT7n0E4ChFWl/+00yCdpN0sxg/SYUFAiiJNJuMOc0HJ
3BP4nIYQc6mG9IloFEePDIKnrZgGb5H2pLAOPINjtABxLZOY3sn6zB2CBRpa
zKVCPhgVLIqkk5sUgUfRrNipnStsx7/dNbXhwL05Sm5Og3WcBgvzoFpxkvGt
nf4h2RgaNl64nbFnX0Y4ENvaK2TRaJwLR/bp1IpzOnU20JJy+YD91nF/L4DB
li4G/glivg8vTxA3RIMuuNXlnCA2PveDbc+3a7rLo/7JkOBCb+WCB1nSkt0M
kPuDXU5HyZLVTE88hRzyPsqG2XW02hBeCW5A8S62/3XysnvQPQz+s7WL1fo7
wf8Z2iPT2JUwY+bGPIRt39bFxe60ADCGOy3MomFkJk4EJK6XTm+RRTjo/GeS
C3q7ZC7R74If8RA2oyb6XeygwD6cduUY2EWScdYh4uU/U2ntdxgNE3OxCghM
mCoJeAkEG+Aw+Y534Lsg7BryJY6gtW12743/7AiwxkUK4kMaVDeTXF9NsC5k
IVTfNBpKvtSH0E4gAyyvKWm2Vcnw4ANU25XmuoMAFKpDSA7hukDhfrbzvhsN
yoG0N8dA8bpw9GcE6h3912AdAGBRlQEG2zcZb+5Hz/lRfqGV2q1ndyUdor1G
o1F72MTtT8MFLdfagjk4ARsjRpMeI6GfvEP2Gh5o0tdKeWCZdKKBCfCKd8Zd
wwMfDmml8msmbfovbjqUhgearZUpB0nSpn88+0/QcIi+nlhG7FvXrTyJr09s
LU0mPbwz6BqO6RoO111Z/s27ljS1LmFifJoGYppj6AUQa/Z7bOQrp111Yr9F
gd4Rbg3CTrSvce4dD3f3DwmOoueH47JlN4X1zow7N23M//JZMuSkfZkA2kfT
007BPZjGgT/cvHHckssww5ZJZe80tZ4OStNLbjZKTkfumoadi3n0hJO0X/H6
7k8MVRN+4rYPNOYtubojC5f5kZ6g0bj47cnPlvk8Q1OR/tS/TWTzNFvkx3+O
b8azE22Eme5498PPlBQAs76+XWNu9WuYuJB7Flmzc8rCUYHiHUtXHLV27Is5
/uqmf2hpHNm9IzVh9I4D/1lEryqUvvFA77VF1x/UGGPMf/TyXRtzqt/ug3Se
Qk8IdaQ8D7P6wpUH8YnYm2zi2VfvSU6YKSveWVM95zggMLNUD1+w4kBrzrlX
7t88fmfQc43Rc/3s9FqFcw57c9tnio1jlx3aJ9TOoqeDWp7ywvsfX/3G0bdM
saY7bunhUjzCUn8OPT5UzRTZ+G8f/p2tpD1pTHukvXHc5UeXs0A/jx56E816
L5x15VVckVjDX9oZ8j+JvY3z6Qkh4aYTBkxNpuqS80K64HvdPaIx/+KTLCeb
7EXDfy6g5xqu5+Kee2p49Fx5mCu9FLU8i+lpsJQ+GzcdP5FzKYsAc4WODfOf
wBldSNHrrGO6RGwqmCln2Z4wShe7c8gSnUYvqwwNlOh0aK55a9EVCzinOKYo
O2a91J1eFTapclqzsElXPOvCJkhm65OjTNgQWDKp7Z2CBVDK6jMP1VqP+JaL
rg2t1np1YVhJQ8JZjUHCxN+xW8XggixzwYCP5uDldqEqPEhvlTiLpLq18cFf
55VBEZBku1lfwaHR68MKAuXHBIFQsEYijjdNOhTLisaILFBaO/Z3no2z0h+4
D8Fh8opjFWBGpaIEDMpMoSoOA6zB/8Z+vsWH7cOIfMCkRBU+83YUmSzoHaLt
Awh5GXbJqQOt7ggWvC5r0Y0PW/mLDmDkzGhYfq+SPr3Ef27oL9bXQ95KCbWs
PLaEuoYIdeZYzeiqwGCU3q26ejcwxr7vP7QhHiJaifOfW+CNJjqQZ732XqTA
+w/9kz/0j8vi6fjnq5li/zZ+gAbT3yfA/jYueLep5wZsNgJPdrWF+tu44N2m
nhuw2Tw8G5wd2c93424lg/4PaHinsA==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772695650406675`*^9, 3.7772695660122733`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{"logaritmic", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "Tm"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "Tm1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm2", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   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", "]"}], "]"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm2", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm2", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777269626682313*^9, 3.7772696582771673`*^9}, 
   3.7772699496219883`*^9, {3.777270858002036*^9, 3.7772708591579742`*^9}, 
   3.777271774246312*^9, {3.7772718692435813`*^9, 3.7772718711807384`*^9}, 
   3.7773595365001364`*^9, {3.777359709653777*^9, 3.7773597111728716`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "0.9444943948539549`", "0.037489266702498934`", 
      "25.19372817689703`", "5.855023143319563`*^-70"},
     {"Tm", "1639.901858231327`", "18.17215898574693`", "90.24254407621903`", 
      "5.413027104916701`*^-190"}
    },
    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.777270901695118*^9, 3.7772711579967546`*^9, 3.7772713017472916`*^9, 
   3.7772716031766205`*^9, {3.7772716454500833`*^9, 3.7772716606763697`*^9}, 
   3.7772717761050034`*^9, 3.7772718922691374`*^9, 3.7772726898548813`*^9, 
   3.777272748210162*^9, 3.777272809120572*^9, 3.777272863675557*^9, 
   3.777273081072029*^9, 3.7772731214591217`*^9, 3.7772732474834075`*^9, 
   3.777359628463931*^9, 3.7773596864683084`*^9, 3.777360880575781*^9, 
   3.7778083965349154`*^9, 3.777808504812806*^9}],

Cell[BoxData["0.9929426780646881`"], "Output",
 CellChangeTimes->{
  3.777270901695118*^9, 3.7772711579967546`*^9, 3.7772713017472916`*^9, 
   3.7772716031766205`*^9, {3.7772716454500833`*^9, 3.7772716606763697`*^9}, 
   3.7772717761050034`*^9, 3.7772718922691374`*^9, 3.7772726898548813`*^9, 
   3.777272748210162*^9, 3.777272809120572*^9, 3.777272863675557*^9, 
   3.777273081072029*^9, 3.7772731214591217`*^9, 3.7772732474834075`*^9, 
   3.777359628463931*^9, 3.7773596864683084`*^9, 3.777360880575781*^9, 
   3.7778083965349154`*^9, 3.777808504812806*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.0869117680973026`", "0.0022293352819489944`", 
      "487.5497090536651`", 
      "5.761619634548399580766689540315139873`15.954589770191005*^-368"},
     {"Tm", "1495.3804439487305`", "3.941626173508694`", 
      "379.38159990895247`", 
      "2.60590403698252923270244443347737930842518787`15.954589770191005*^-\
341"}
    },
    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.777270901695118*^9, 3.7772711579967546`*^9, 3.7772713017472916`*^9, 
   3.7772716031766205`*^9, {3.7772716454500833`*^9, 3.7772716606763697`*^9}, 
   3.7772717761050034`*^9, 3.7772718922691374`*^9, 3.7772726898548813`*^9, 
   3.777272748210162*^9, 3.777272809120572*^9, 3.777272863675557*^9, 
   3.777273081072029*^9, 3.7772731214591217`*^9, 3.7772732474834075`*^9, 
   3.777359628463931*^9, 3.7773596864683084`*^9, 3.777360880575781*^9, 
   3.7778083965349154`*^9, 3.7778085048752947`*^9}],

Cell[BoxData["0.9995749440700068`"], "Output",
 CellChangeTimes->{
  3.777270901695118*^9, 3.7772711579967546`*^9, 3.7772713017472916`*^9, 
   3.7772716031766205`*^9, {3.7772716454500833`*^9, 3.7772716606763697`*^9}, 
   3.7772717761050034`*^9, 3.7772718922691374`*^9, 3.7772726898548813`*^9, 
   3.777272748210162*^9, 3.777272809120572*^9, 3.777272863675557*^9, 
   3.777273081072029*^9, 3.7772731214591217`*^9, 3.7772732474834075`*^9, 
   3.777359628463931*^9, 3.7773596864683084`*^9, 3.777360880575781*^9, 
   3.7778083965349154`*^9, 3.7778085048752947`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0gk01XkbB3Ak2ygtN1JGi5KGklEdI5PvSJaSIpVyw6C3qzDqragoDCXd
SnYisoVkvbj2u5i0yFCm1FApJFqELIV5e9//0znvPce553O+v+d5fo/fXeTy
m+0+KQkJiZGvf//9/t8nwA0S//8JcEfsFs9cq/64WsZe2GW8QWuXVj5jwSHY
9bGfJCWUMcYR6BnK5PR111B+DKlWa7b+Hiqm/DjqJRZHyK+pp/wkWL3XZ3d3
3aX8FP41tl23SdjI2DkAieUfQ7fdaWKcEoh5C69qasx8yPhFEKbpaLWbHPmL
8cJg3Fe9zlKSeEz1IUhVWMkez2yl+jNQt9sVPOn2lOrPYp35FAXfnW1Ufw4O
ve83BU15RvVhuDdf1ddM9Jzqz2NfTpLnYMcLqueCz3Na3uLVQfUX8e8Lh9lb
Al9S/SWYxupvuW/2ivG2cEgEcuM6dnUy7g9HmK3YpcG+i3H4ZSQ+DJfQ2dnN
eFUEKo5yTF6xXjNuikDwnmaTTYNk70isS5g8KOnXw3hGFJ45uwqK3N4wLohC
xO1ZbRObe2l+NHb0TNesGyD3R0PI+adM/XUfzY/BkPZhjYtH39H8WAwaPDjS
1UhuioWNe4u1qc17mh+HxJsdWyoWfKD58RAovp8M/UIuiIc9Kz0pwLif5icg
7JTPR2kRuT8BX5ZpplcbfqT5V8DrmRHueoC8KhElrJCrPP0Bmp+INe6qBZwo
sncSGnPH23rE5BlXIZmwStHj5CDNv4oCsa58Vhl5WzI+TXXZpqA9RPOTcbr0
zF/iLLJFCjpvWb61e0OOS0FTvPONlbafGPekIKVDPSe6hmxwDWEOToGDOsOM
Q69B20rZ6ckVcus1sE5ZJ3tOkLVS4XRNLVLJc4Sxbyqcw3/1qHxBvp2K07HS
F6pekuemIVnvs5ZD6yhjThoW3OOsipozxpifhqYFhW//yCLLpYPtF28Z8zfZ
Ph3NviEcG85nxlnp6Ipoa5r0JY+mw+1gRM8D/hfaPwOLAoVB5kfJcRl42RYk
ZM8Zp/0zsN7+zk1LD7JBJjqmrLDxlJug/TPxdnK29kcFcmsmTM0XXfyURta6
DnWNRrX4QbLvdeB18D4t9Una/zpGEkojzTnkuVk4l1Ki7vjTP7R/FpK51tuc
Ssn8LHz5rCSRvIYsl433O9LaL7tJCJj9s9Gia3d7mgc5KxtOzqcHMkLJo9m4
L8NvunSLbJGDE3lTfpZRkmQclwNucX1fwB5yTw7OfN9SMRhINriBN0EneB8O
kUNvIHpXwA7vR+TWG7BXSMwuD5FirJUL6SCVM32zyL65mP6za/BHPfLtXJzs
m2+4K5U89yaWj5fJ/5JP5tyEzg0113caUxjzb4Kb7zm4sIdyuTxMrXQ0tXWn
3D4P4VXSNsOLpGn/PHwQRYucxigfzcPH0cLqqXsot8jHhocv0hQOkePyobh0
ZWGoJbknHyKWZfxG2amM1QqQ/aeRdJ0K2bQAfHa5WMwiexTgj2OG7y5kk6MK
0FU55P5cX4ZxVQF4G1X2l32mvLMA9qYBE5pNZMVCPJfta41Vp/OrC1HbaFOv
sJ/MLkRM7pz8K5bk4ELIyMhv5AaRcwvhuz7V4t0jckshkuZdrT6ZI8t4vBAp
7ba/DH1PXlKE9qd5NXX1ZKsi7DI6X7LmDvlIEZ78sewHaSVyYhECS+NVtXfL
M64rQuvSmDW2SnKM3xYhvx5eK/zIrGIYKi5JDC8iGxXjxZMhXtlbqncrxrSk
9XMaX1HOLYbG2rWZzQ/IvGJIjiW7jjrS+bZi7JAczgh9pMBYmgeV89aHd4dS
rsNDoPra8sjtZDsepvf0b3X0J/vx4Hvf+Z7871SfzkPzsOr5Gd/6NfCgU50Z
s7mDPMTDmlOLh+9uIauV4PXmzSO/TnzH2LQEHg/U4+v8yR4lEJgvdKyIofNR
JVCKDvGoiaK8qgSWvbk/2tspMu4sgf/J42aantMYK5ZiQX9mXJoLeXUpGnSe
JPc50Hl2Kbwe3+XluJKDS2H+XuOsfjKdzy3F/CXsnAsa0+n9S/HrhYTld5Mo
Hy8FBO6bH7PJS8ogmi90ftpD/azKUCrr/V4vh/IjZTj+p+xdM1/KE8vwIaul
z8OI+teVwR86n35crkTvX4Yb+mMa3r2Us/hw+62iSlKS+hnxURvnutQhdga9
Px8hJs4b1y4lc/kYvMTVyvWneh4f7p3dxUox1L+ND+Mf7J72XCFLl8M6pnm2
wUWyTjn26oyEzlacSe9fjkv7XsgW2VLuVw6nA9e6u1QpTy9HvuPZuC0WNL+h
HMmnz8VqZJOHyiGXlJXsk05Wq4DO4q3dbc/JphUwVtzJnvChfh4V0DatM5u5
dTa9fwUMgjPl7p2nvKoC8saG2d7m5M4KhEteVjT7i/opViJ1b4x67zDlqyuh
uee4V4o/5exKBCfFXFd9RA6uhFyTZzbXleblVuKx3MphY1MWvX8lwuzchiSe
Ub/xSlxw6A22lppF71+FEbM3zZnf+llVof3zsw0GzuQjVQhM1ebiBNUnVmHd
Izc93WSqr6vC0/7t3l22lL+twkCeREhjH+Wsavj6sn5adplsVI2oyKj2kJ/p
vm7VWHfUXcplOeXcry58Hs9lk3nV+Ft5WWrZt/u3VSOyYLH21f20n3QNGjZu
OlxTQdapwdGGY1Xc3769fw2yZDjmjhbUz68GZ1XqVdRNaX56DbzOVEuvrKP6
hhpsl3dxXh9IHqpBxpdcx+ecOfT+tRh5F3ZudST1M60FV1fZ+LEq9fOoxQHj
7IHput/evxYBOndi0jZQfVUt3nCi74z6kztrwZfylnkVROdlBMhy+lKQPUn9
5wmwV605MWU3eaUAE/49qrcVVRibCKA0csunT24e450CZJyMrDYJpH4HBHiY
lmnubkP7nBLgU3OXsvUoOUKAZQv2N7d9+/1kCsDaJDtkwFZmXCHAbil9P5+j
dN9GARbMyHt5wovylwI8Tv5O7aAW3WdYgENeCXMHsui8uhB2SUp7P0WRzYTw
a97m1jlM872EuGr/p9vy/XMZBwkxbXzFfNYlymOEMJpouxsQRM4RonWParzo
Ad23RoiijY3OLD75gRBe7EeGHxTJ3UKIm78c552k+30WgqM7TyvBhbxYhIaH
Muy/V9H5tSLUchyVhhNpnqMIHXsXeUXVqzI+LEK7dpGxHZf2TxDBavj5pTSf
hYzzRLB5aqb/RHs+Y5EI6dYzy0w0aP9HIrzY7bTd3pbqe0XwtnipJyumfFIE
nwzdMFcO1c8SQ8s7sNtoB+WaYmSKv0sqNqd6QzGm620aO3ua7mctRseqg91j
fbSfixg4u2JgoRL9f4+JsTxxcdxNaeoX9jX/faxWs4XOF4mR4X9ewmAznb8l
Rprr3PCbt8hPv/ZXdqh72U7zpeoQddrV9o0aWbkOOaPvzA+0U78f6jAq9+7K
qcNzBP8B5LZB6Q==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, -0.05710739328161891}, {
       46.007686206204134`, -0.08516067265977119}, {
       92.01231118791847, -0.1132139520379233}, {
       184.02156115134716`, -0.16932051079422764`}, {
       368.04006107820453`, -0.2815336283068365}, {
       736.0770609319193, -0.505959863332054}, {
       1472.1510606393488`, -0.954812333382489}, {
       2944.2990600542075`, -1.852517273483359}, {
       6136.253312359592, -3.798947321283892}, {
       9116.682163413447, -5.61639074699494}, {
       12038.64683145817, -7.39818314717926}, {
       15208.269752978562`, -9.330995714962373}, {
       16305.371123176486`, -10.}}]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[{{0.003061224489795918, 0.0833383876200709}, {
       46.007686206204134`, 0.052573892091271945`}, {92.01231118791847, 
       0.021809396562472647`}, {184.02156115134716`, -0.03971959449512553}, {
       368.04006107820453`, -0.16277757661032202`}, {
       736.0770609319193, -0.4088935408407148}, {
       1472.1510606393488`, -0.9011254693015006}, {
       2944.2990600542075`, -1.8855893262230718`}, {
       6136.253312359592, -4.020132589258296}, {
       9116.682163413447, -6.013223286087041}, {
       12038.64683145817, -7.967217455175495}, {
       15078.430095789068`, -10.}}]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 10324.}, {-10, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777270901695118*^9, 3.7772711579967546`*^9, 3.7772713017472916`*^9, 
   3.7772716031766205`*^9, {3.7772716454500833`*^9, 3.7772716606763697`*^9}, 
   3.7772717761050034`*^9, 3.7772718922691374`*^9, 3.7772726898548813`*^9, 
   3.777272748210162*^9, 3.777272809120572*^9, 3.777272863675557*^9, 
   3.777273081072029*^9, 3.7772731214591217`*^9, 3.7772732474834075`*^9, 
   3.777359628463931*^9, 3.7773596864683084`*^9, 3.777360880575781*^9, 
   3.7778083965349154`*^9, 3.777808504954474*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Section",
 CellChangeTimes->{{3.777270912668076*^9, 3.777270913059886*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", "data", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Monoradical", " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", "17"}], ",", 
      RowBox[{"1", ";;", "2"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Biradical", " ", "=", " ", 
   RowBox[{"Array", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", 
       RowBox[{"Length", "[", 
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"8", ";;", 
            RowBox[{"-", "1"}]}], ",", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Biradical", "[", 
    RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"8", ";;", 
       RowBox[{"-", "1"}]}], ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Biradical", "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"8", ";;", 
       RowBox[{"-", "1"}]}], ",", "4"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Biradical", " ", "=", " ", 
   RowBox[{"Transpose", "[", "Biradical", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogPlot", "[", "Monoradical", "]"}], ",", 
   RowBox[{"ListLogPlot", "[", 
    RowBox[{"Biradical", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "300"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "10"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<T (K)\>\"", ",", "Black", ",", " ", "24"}], "]"}], ",", 
      " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Tm (ns)\>\"", ",", "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.777270914802744*^9, 3.777271131589403*^9}, {
   3.777271682304283*^9, 3.777271686465787*^9}, {3.7772717898100543`*^9, 
   3.7772718611614795`*^9}, {3.7772718999220405`*^9, 
   3.7772719153707647`*^9}, {3.777271947788039*^9, 3.7772720149878073`*^9}, 
   3.7772726988195744`*^9, {3.7772727663232*^9, 3.777272769169031*^9}, {
   3.7772730305413084`*^9, 3.7772730364605026`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"15", "7480.607580333874`", "162.54353890037402`", "15", "15"},
     {"20", "7244.460771075952`", "147.36327308318405`", "20", "20"},
     {"25", "6695.376540233717`", "146.7492438333871`", "25", "25"},
     {"30", "6142.289712690229`", "134.2283082540253`", "30", "30"},
     {"40", "6497.766590082599`", "166.97162180100318`", "40", "40"},
     {"50", "7400.562338827537`", "151.62097602296475`", "50", "50"},
     {"70", "12587.87561221118`", "149.53933689202864`", "70", "70"},
     {"80", "7948.675714957932`", "654.1937192326002`", "27635.96580886418`", 
      "1135.4250633239533`"},
     {"90", "90", "90", "90", "90"},
     {"100", "4742.949434731891`", "1163.7892923037582`", 
      "11504.329931470133`", "387.54165722707137`"},
     {"110", "4683.834035699008`", "1447.3636206259541`", 
      "14260.46632229215`", "813.0068010993197`"},
     {"120", "3799.388593267801`", "2796.081360091348`", 
      "10523.217700382615`", "619.6345001386914`"},
     {"130", "2745.3985419970845`", "946.7666621203138`", 
      "7783.0509789280995`", "286.2215090343222`"},
     {"140", "2700.6032072581197`", "1262.1276873827817`", 
      "6822.498168209027`", "250.17381777657278`"},
     {"150", "2274.0053369183047`", "782.7850605573734`", 
      "5522.194953641146`", "125.55147229006703`"},
     {"160", "2219.122597619037`", "432.4437844516129`", "5115.192084374892`",
       "55.193425560187094`"},
     {"175", "2410.067880209853`", "699.6596568450335`", "4871.254153119743`",
       "54.822005335771244`"},
     {"200", "200", "200", "942.5512917989807`", "8.348325899983093`"},
     {"225", "225", "225", "1435.4088103553322`", "5.681813082551195`"},
     {"250", "250", "250", "1806.6681191414077`", "5.908443668321474`"},
     {"275", "275", "275", "1864.3015647759987`", "5.835773592814742`"},
     {"293", "293", "293", "1495.3804439487305`", "3.941626173508694`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.777271160259856*^9, 3.7772713037778254`*^9, 3.7772716052084837`*^9, {
   3.7772716473936872`*^9, 3.7772716872562847`*^9}, {3.777271779044386*^9, 
   3.7772718045303125`*^9}, {3.777271892440971*^9, 3.777271915714213*^9}, 
   3.777271963190827*^9, {3.777271996175024*^9, 3.7772720157532816`*^9}, {
   3.7772726901048203`*^9, 3.777272699164746*^9}, {3.777272748444481*^9, 
   3.777272770423257*^9}, {3.7772728092924094`*^9, 3.777272831436451*^9}, 
   3.777272863864293*^9, 3.77727303102557*^9, 3.77727308122824*^9, 
   3.7772731216309566`*^9, 3.7772732476552415`*^9, 3.777359637404113*^9, 
   3.777359686649163*^9, 3.777360880764935*^9, 3.7778083984381495`*^9, 
   3.7778085050325804`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{15., 8.920069294987126}, {20., 8.887992424252113}, {25., 
       8.80917249855028}, {30., 8.722952869001045}, {40., 
       8.779213795313444}, {50., 8.909311268038486}, {70., 
       9.440489376677832}, {80., 8.980760617038081}, {90., 
       4.499809670330265}, {100., 8.464414464790158}, {110., 
       8.451872291916306}, {120., 8.242595436260771}, {130., 
       7.917681531746203}, {140., 7.901230437135701}, {150., 
       7.729298021237501}, {160., 7.7048671704460965`}, {175., 
       7.787410192150224}}]}, {}}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[{{80., 10.226873312412385`}, {90., 4.499809670330265}, {
       100., 9.350478759267073}, {110., 9.565246394856619}, {120., 
       9.261339304579902}, {130., 8.95970369697367}, {140., 
       8.827980984089827}, {150., 8.616530696763881}, {160., 
       8.539970230833097}, {175., 8.491106709230383}, {200., 
       6.848590338848273}, {225., 7.2692049728866595`}, {250., 
       7.499239609718067}, {275., 7.530641765838079}, {293., 
       7.310135931008545}}]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 4.141211949708265},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"T (K)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Tm (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{{{4.605170185988092, 
       FormBox["100", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {6.214608098422191, 
       FormBox["500", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {6.907755278982137, 
       FormBox["1000", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {8.517193191416238, 
       FormBox["5000", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
         TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {3.912023005428146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.0943445622221, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.248495242049359, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.382026634673881, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {4.499809670330265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.298317366548036, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.703782474656201, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {5.991464547107982, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {6.396929655216146, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {6.551080335043404, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {6.684611727667927, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {6.802394763324311, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {7.600902459542082, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {8.006367567650246, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {8.294049640102028, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {8.699514748210191, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {8.85366542803745, 
       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]}}, {9.104979856318357, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.903487552536127, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.308952660644293`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.596634733096073`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.819778284410283`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.915088464214607`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {11.002099841204238`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {11.082142548877775`, 
       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, 300}, {6, 10}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{4.605170185988092, 
      FormBox["100", TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {6.214608098422191, 
      FormBox["500", TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {6.907755278982137, 
      FormBox["1000", TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {8.517193191416238, 
      FormBox["5000", TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {3.912023005428146, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {4.0943445622221, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {4.248495242049359, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {4.382026634673881, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {4.499809670330265, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {5.298317366548036, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {5.703782474656201, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {5.991464547107982, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {6.396929655216146, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {6.551080335043404, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {6.684611727667927, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {6.802394763324311, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {7.600902459542082, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {8.006367567650246, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {8.294049640102028, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {8.699514748210191, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {8.85366542803745, 
      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]}}, {9.104979856318357, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.903487552536127, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.308952660644293`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.596634733096073`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.819778284410283`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.915088464214607`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {11.002099841204238`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {11.082142548877775`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{
  3.777271160259856*^9, 3.7772713037778254`*^9, 3.7772716052084837`*^9, {
   3.7772716473936872`*^9, 3.7772716872562847`*^9}, {3.777271779044386*^9, 
   3.7772718045303125`*^9}, {3.777271892440971*^9, 3.777271915714213*^9}, 
   3.777271963190827*^9, {3.777271996175024*^9, 3.7772720157532816`*^9}, {
   3.7772726901048203`*^9, 3.777272699164746*^9}, {3.777272748444481*^9, 
   3.777272770423257*^9}, {3.7772728092924094`*^9, 3.777272831436451*^9}, 
   3.777272863864293*^9, 3.77727303102557*^9, 3.77727308122824*^9, 
   3.7772731216309566`*^9, 3.7772732476552415`*^9, 3.777359637404113*^9, 
   3.777359686649163*^9, 3.777360880764935*^9, 3.7778083984381495`*^9, 
   3.77780850515755*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
     "\"\<Tm_DFB1_DTOL.tsv\>\""}], ",", "data"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FilePrint", "[", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
    "\"\<Tm_DFB1_DTOL.tsv\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.7778085435556307`*^9, 3.777808556546013*^9}}],

Cell["\<\
15\t7480.607580333874\t162.54353890037402\t15\t15
20\t7244.460771075952\t147.36327308318405\t20\t20
25\t6695.376540233717\t146.7492438333871\t25\t25
30\t6142.289712690229\t134.2283082540253\t30\t30
40\t6497.766590082599\t166.97162180100318\t40\t40
50\t7400.562338827537\t151.62097602296475\t50\t50
70\t12587.87561221118\t149.53933689202864\t70\t70
80\t7948.675714957932\t654.1937192326002\t27635.96580886418\t1135.4250633239533
90\t90\t90\t90\t90
100\t4742.949434731891\t1163.7892923037582\t11504.329931470133\t\
387.54165722707137
110\t4683.834035699008\t1447.3636206259541\t14260.46632229215\t\
813.0068010993197
120\t3799.388593267801\t2796.081360091348\t10523.217700382615\t\
619.6345001386914
130\t2745.3985419970845\t946.7666621203138\t7783.0509789280995\t\
286.2215090343222
140\t2700.6032072581197\t1262.1276873827817\t6822.498168209027\t\
250.17381777657278
150\t2274.0053369183047\t782.7850605573734\t5522.194953641146\t\
125.55147229006703
160\t2219.122597619037\t432.4437844516129\t5115.192084374892\t\
55.193425560187094
175\t2410.067880209853\t699.6596568450335\t4871.254153119743\t\
54.822005335771244
200\t200\t200\t942.5512917989807\t8.348325899983093
225\t225\t225\t1435.4088103553322\t5.681813082551195
250\t250\t250\t1806.6681191414077\t5.908443668321474
275\t275\t275\t1864.3015647759987\t5.835773592814742
293\t293\t293\t1495.3804439487305\t3.941626173508694\
\>", "Print",
 CellChangeTimes->{3.7778085585385804`*^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, 161, 2, 101, "Title"],
Cell[744, 26, 790, 11, 68, "Text"],
Cell[CellGroupData[{
Cell[1559, 41, 105, 1, 70, "Section"],
Cell[1667, 44, 1812, 50, 192, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3516, 99, 105, 1, 70, "Section"],
Cell[3624, 102, 448, 13, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4109, 120, 96, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[4230, 125, 2556, 68, 172, "Input"],
Cell[6789, 195, 19397, 335, 491, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26223, 535, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[26341, 540, 3591, 93, 192, "Input"],
Cell[29935, 635, 1361, 26, 73, "Output"],
Cell[31299, 663, 560, 7, 31, "Output"],
Cell[31862, 672, 15721, 273, 491, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[47644, 952, 149, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[47818, 958, 2607, 69, 172, "Input"],
Cell[50428, 1029, 19439, 336, 491, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69904, 1370, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[70022, 1375, 3593, 93, 192, "Input"],
Cell[73618, 1470, 1358, 26, 73, "Output"],
Cell[74979, 1498, 560, 7, 31, "Output"],
Cell[75542, 1507, 15717, 273, 491, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[91320, 1787, 122, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[91467, 1793, 2607, 69, 172, "Input"],
Cell[94077, 1864, 19453, 335, 491, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113567, 2204, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[113685, 2209, 3645, 94, 192, "Input"],
Cell[117333, 2305, 1381, 27, 73, "Output"],
Cell[118717, 2334, 586, 8, 31, "Output"],
Cell[119306, 2344, 16552, 287, 491, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[135919, 2638, 147, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[136091, 2644, 2604, 69, 172, "Input"],
Cell[138698, 2715, 19433, 336, 499, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[158168, 3056, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[158286, 3061, 3642, 94, 192, "Input"],
Cell[161931, 3157, 1384, 27, 73, "Output"],
Cell[163318, 3186, 586, 8, 31, "Output"],
Cell[163907, 3196, 19451, 335, 499, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[183419, 3538, 149, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[183593, 3544, 2606, 69, 172, "Input"],
Cell[186202, 3615, 19470, 336, 499, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205709, 3956, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[205827, 3961, 3644, 94, 192, "Input"],
Cell[209474, 4057, 1386, 27, 73, "Output"],
Cell[210863, 4086, 588, 8, 31, "Output"],
Cell[211454, 4096, 17800, 308, 499, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[229315, 4411, 145, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[229485, 4417, 2608, 69, 172, "Input"],
Cell[232096, 4488, 19463, 336, 481, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[251596, 4829, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[251714, 4834, 3643, 94, 192, "Input"],
Cell[255360, 4930, 1387, 27, 73, "Output"],
Cell[256750, 4959, 586, 8, 31, "Output"],
Cell[257339, 4969, 15775, 274, 481, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[273175, 5250, 149, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[273349, 5256, 2614, 69, 172, "Input"],
Cell[275966, 5327, 16282, 283, 485, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292285, 5615, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[292403, 5620, 3641, 94, 192, "Input"],
Cell[296047, 5716, 1387, 27, 73, "Output"],
Cell[297437, 5745, 587, 8, 31, "Output"],
Cell[298027, 5755, 16058, 279, 485, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[314146, 6041, 108, 1, 70, "Section"],
Cell[314257, 6044, 2214, 57, 114, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316508, 6106, 94, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[316627, 6111, 4560, 118, 292, "Input"],
Cell[321190, 6231, 8570, 156, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[329797, 6392, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[329915, 6397, 5520, 149, 292, "Input"],
Cell[335438, 6548, 762, 13, 23, "Message"],
Cell[336203, 6563, 1423, 28, 93, "Output"],
Cell[337629, 6593, 512, 7, 31, "Output"],
Cell[338144, 6602, 1424, 28, 90, "Output"],
Cell[339571, 6632, 512, 7, 31, "Output"],
Cell[340086, 6641, 8631, 160, 494, "Output"],
Cell[348720, 6803, 761, 13, 23, "Message"],
Cell[349484, 6818, 761, 13, 23, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[350306, 6838, 92, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[350423, 6843, 4235, 113, 292, "Input"],
Cell[354661, 6958, 8341, 153, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[363039, 7116, 92, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[363156, 7121, 5277, 146, 272, "Input"],
Cell[368436, 7269, 760, 13, 23, "Message"],
Cell[369199, 7284, 1685, 31, 93, "Output"],
Cell[370887, 7317, 774, 10, 31, "Output"],
Cell[371664, 7329, 1689, 31, 87, "Output"],
Cell[373356, 7362, 776, 10, 31, "Output"],
Cell[374135, 7374, 8136, 149, 494, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[382332, 7530, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[382452, 7535, 4338, 115, 292, "Input"],
Cell[386793, 7652, 7498, 139, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[394328, 7796, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[394446, 7801, 5218, 147, 272, "Input"],
Cell[399667, 7950, 839, 14, 23, "Message"],
Cell[400509, 7966, 1772, 33, 90, "Output"],
Cell[402284, 8001, 859, 12, 31, "Output"],
Cell[403146, 8015, 1767, 33, 87, "Output"],
Cell[404916, 8050, 859, 12, 31, "Output"],
Cell[405778, 8064, 7737, 143, 494, "Output"],
Cell[413518, 8209, 838, 14, 23, "Message"],
Cell[414359, 8225, 838, 14, 23, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[415258, 8246, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[415378, 8251, 4731, 131, 292, "Input"],
Cell[420112, 8384, 7513, 140, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[427662, 8529, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[427782, 8534, 5148, 146, 272, "Input"],
Cell[432933, 8682, 887, 16, 23, "Message"],
Cell[433823, 8700, 1709, 32, 87, "Output"],
Cell[435535, 8734, 797, 11, 31, "Output"],
Cell[436335, 8747, 1713, 32, 90, "Output"],
Cell[438051, 8781, 797, 11, 31, "Output"],
Cell[438851, 8794, 7952, 147, 494, "Output"],
Cell[446806, 8943, 891, 16, 23, "Message"],
Cell[447700, 8961, 891, 16, 23, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[448652, 8984, 93, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[448770, 8989, 4439, 116, 292, "Input"],
Cell[453212, 9107, 7896, 146, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[461145, 9258, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[461265, 9263, 5254, 148, 272, "Input"],
Cell[466522, 9413, 994, 17, 23, "Message"],
Cell[467519, 9432, 1868, 34, 87, "Output"],
Cell[469390, 9468, 959, 13, 31, "Output"],
Cell[470352, 9483, 1874, 34, 93, "Output"],
Cell[472229, 9519, 959, 13, 31, "Output"],
Cell[473191, 9534, 7780, 144, 494, "Output"],
Cell[480974, 9680, 822, 15, 21, "Message"],
Cell[481799, 9697, 995, 17, 23, "Message"],
Cell[482797, 9716, 820, 15, 21, "Message"],
Cell[483620, 9733, 822, 15, 21, "Message"],
Cell[484445, 9750, 995, 17, 23, "Message"],
Cell[485443, 9769, 820, 15, 21, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[486324, 9791, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[486444, 9796, 4758, 131, 292, "Input"],
Cell[491205, 9929, 7657, 143, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[498899, 10077, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[499017, 10082, 5186, 146, 272, "Input"],
Cell[504206, 10230, 1631, 31, 90, "Output"],
Cell[505840, 10263, 718, 10, 31, "Output"],
Cell[506561, 10275, 1633, 31, 93, "Output"],
Cell[508197, 10308, 718, 10, 31, "Output"],
Cell[508918, 10320, 7682, 143, 494, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[516661, 10470, 97, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[516783, 10475, 4838, 132, 252, "Input"],
Cell[521624, 10609, 7291, 137, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[528952, 10751, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[529072, 10756, 5192, 146, 272, "Input"],
Cell[534267, 10904, 1615, 31, 90, "Output"],
Cell[535885, 10937, 702, 10, 31, "Output"],
Cell[536590, 10949, 1615, 31, 93, "Output"],
Cell[538208, 10982, 704, 10, 31, "Output"],
Cell[538915, 10994, 7352, 137, 494, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[546328, 11138, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[546448, 11143, 4733, 132, 252, "Input"],
Cell[551184, 11277, 7064, 133, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[558285, 11415, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[558403, 11420, 5040, 144, 272, "Input"],
Cell[563446, 11566, 1591, 31, 90, "Output"],
Cell[565040, 11599, 682, 10, 31, "Output"],
Cell[565725, 11611, 1594, 31, 93, "Output"],
Cell[567322, 11644, 682, 10, 31, "Output"],
Cell[568007, 11656, 7266, 137, 494, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[575334, 11800, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[575454, 11805, 4720, 131, 252, "Input"],
Cell[580177, 11938, 7045, 132, 481, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[587259, 12075, 91, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[587375, 12080, 5138, 142, 272, "Input"],
Cell[592516, 12224, 735, 13, 21, "Message"],
Cell[593254, 12239, 1620, 31, 93, "Output"],
Cell[594877, 12272, 706, 10, 31, "Output"],
Cell[595586, 12284, 1620, 31, 90, "Output"],
Cell[597209, 12317, 704, 10, 31, "Output"],
Cell[597916, 12329, 7185, 136, 481, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[605162, 12472, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[605282, 12477, 4560, 129, 252, "Input"],
Cell[609845, 12608, 7016, 134, 481, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[616898, 12747, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[617016, 12752, 5040, 144, 272, "Input"],
Cell[622059, 12898, 1496, 29, 90, "Output"],
Cell[623558, 12929, 586, 8, 31, "Output"],
Cell[624147, 12939, 1498, 29, 90, "Output"],
Cell[625648, 12970, 586, 8, 31, "Output"],
Cell[626237, 12980, 6991, 132, 481, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[633289, 13119, 107, 1, 70, "Section"],
Cell[633399, 13122, 1111, 30, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[634547, 13157, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[634667, 13162, 3965, 107, 192, "Input"],
Cell[638635, 13271, 5172, 101, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[643844, 13377, 92, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[643961, 13382, 4320, 118, 232, "Input"],
Cell[648284, 13502, 1428, 28, 73, "Output"],
Cell[649715, 13532, 629, 9, 31, "Output"],
Cell[650347, 13543, 1429, 28, 73, "Output"],
Cell[651779, 13573, 629, 9, 31, "Output"],
Cell[652411, 13584, 5229, 103, 494, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[657701, 13694, 93, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[657819, 13699, 3759, 105, 192, "Input"],
Cell[661581, 13806, 7005, 132, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[668623, 13943, 91, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[668739, 13948, 4222, 117, 232, "Input"],
Cell[672964, 14067, 1336, 27, 73, "Output"],
Cell[674303, 14096, 533, 8, 31, "Output"],
Cell[674839, 14106, 1401, 29, 73, "Output"],
Cell[676243, 14137, 533, 8, 31, "Output"],
Cell[676779, 14147, 7048, 133, 494, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[683888, 14287, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[684008, 14292, 3757, 104, 192, "Input"],
Cell[687768, 14398, 6910, 130, 494, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[694715, 14533, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[694835, 14538, 4217, 117, 232, "Input"],
Cell[699055, 14657, 1358, 27, 73, "Output"],
Cell[700416, 14686, 557, 8, 31, "Output"],
Cell[700976, 14696, 1423, 29, 73, "Output"],
Cell[702402, 14727, 557, 8, 31, "Output"],
Cell[702962, 14737, 29718, 507, 494, 6415, 124, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[732741, 15251, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[732861, 15256, 3739, 104, 192, "Input"],
Cell[736603, 15362, 24114, 414, 494, 6197, 120, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[760754, 15781, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[760872, 15786, 4334, 121, 232, "Input"],
Cell[765209, 15909, 1326, 27, 73, "Output"],
Cell[766538, 15938, 523, 8, 31, "Output"],
Cell[767064, 15948, 1434, 30, 73, "Output"],
Cell[768501, 15980, 522, 8, 31, "Output"],
Cell[769026, 15990, 27621, 473, 494, 6465, 125, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[796708, 16470, 150, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[796883, 16476, 3828, 105, 192, "Input"],
Cell[800714, 16583, 23993, 412, 494, 6413, 124, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[824744, 17000, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[824864, 17005, 4347, 118, 232, "Input"],
Cell[829214, 17125, 1359, 27, 73, "Output"],
Cell[830576, 17154, 559, 8, 31, "Output"],
Cell[831138, 17164, 1467, 30, 73, "Output"],
Cell[832608, 17196, 561, 8, 31, "Output"],
Cell[833172, 17206, 6977, 132, 494, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[840210, 17345, 89, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[840324, 17350, 2875, 81, 172, "Input"],
Cell[843202, 17433, 3146, 57, 377, "Output"],
Cell[846351, 17492, 19633, 459, 489, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[866021, 17956, 449, 13, 52, "Input"],
Cell[866473, 17971, 1449, 32, 359, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

