(* 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[    508743,      10905]
NotebookOptionsPosition[    500284,      10629]
NotebookOutlinePosition[    500630,      10644]
CellTagsIndexPosition[    500587,      10641]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["DFB1 -  CS2 - Tm Fit", "Title",
 CellChangeTimes->{{3.7772062297038555`*^9, 3.777206244088114*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[{
 RowBox[{
  RowBox[{"Temperature", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "10", ",", "30", ",", "50", ",", " ", "80", ",", "90", ",", " ", "100", 
     ",", "110", ",", "120", ",", "150", ",", "200", ",", "225", ",", "250", 
     ",", "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.7772063017748795`*^9, 3.7772063300274487`*^9}, {
   3.7772066304633446`*^9, 3.777206666390977*^9}, {3.7772085543548207`*^9, 
   3.7772085549953012`*^9}, {3.7772110995815597`*^9, 3.77721110349012*^9}, 
   3.7772113321172476`*^9, 3.7772658256153417`*^9, 3.7776382747025204`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define problem constants", "Section",
 CellChangeTimes->{{3.7772063658266706`*^9, 3.77720636950778*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"J", " ", "=", " ", "550"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"conc", " ", "=", " ", "0.02"}], ";"}]}], "Input",
 CellChangeTimes->{{3.777206374821129*^9, 3.777206383847828*^9}, {
   3.777206969212756*^9, 3.777206969259553*^9}, 3.7772071089613256`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define model 10-50K", "Section",
 CellChangeTimes->{{3.777206336803186*^9, 3.7772063386427794`*^9}, {
  3.7772111448058367`*^9, 3.777211148965395*^9}, {3.7772113288647895`*^9, 
  3.777211329052244*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exponential", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", 
     RowBox[{"C_", "?", "NumericQ"}], ",", 
     RowBox[{"Tm_", "?", "NumericQ"}], ",", 
     RowBox[{"x_", "?", "NumericQ"}]}], "]"}], " ", "=", " ", 
   RowBox[{"C", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"t", "/", "Tm"}], ")"}], "x"]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7772063399928217`*^9, 3.7772063575613165`*^9}, {
  3.777206394903557*^9, 3.777206407463608*^9}, {3.777206442943714*^9, 
  3.777206479362054*^9}, {3.7772065246281643`*^9, 3.777206525131459*^9}, {
  3.777211183565612*^9, 3.777211210532025*^9}, {3.777211363263377*^9, 
  3.777211382505412*^9}, {3.777211416991109*^9, 3.7772114185405807`*^9}, {
  3.7772114701017113`*^9, 3.7772114742739525`*^9}, {3.777211530936349*^9, 
  3.777211536444395*^9}, {3.7776367203417234`*^9, 3.7776367206876884`*^9}, {
  3.777636758857141*^9, 3.77763678759374*^9}, {3.777790104940054*^9, 
  3.777790109988022*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 10K", "Section",
 CellChangeTimes->{{3.777211127867793*^9, 3.7772111307918253`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_10K_Tm.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "  ", "1.1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "20000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x1", "=", " ", "0.8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  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[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}],
     ",", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", " ", "C1", ",", " ", "T11", ",", "x1"}], "]"}], ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
      RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
      RowBox[{"PlotRange", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", " ", "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.77721132325421*^9, {3.777211481979355*^9, 3.777211539684179*^9}, {
   3.77721171443915*^9, 3.7772117477329006`*^9}, 3.7772655430750875`*^9, {
   3.77763571707818*^9, 3.777635737792817*^9}, {3.7776365833454685`*^9, 
   3.777636584378235*^9}, {3.7776368086097794`*^9, 3.7776368162393694`*^9}, 
   3.7776378677661066`*^9, 3.77779006964542*^9, {3.7777901207011642`*^9, 
   3.77779013727369*^9}}],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "Tm", ",", "x1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"Tm", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "x1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"\"\<\!\(\*SuperscriptBox[\(R\), \(2\)]\) = \>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Max", "[", "experiment", "]"}], "/", "5"}], ",", "0.75"}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "18"}], "]"}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics", "@", 
    RowBox[{"Inset", "[", 
     RowBox[{
      RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", "experiment", "]"}], "/", "5"}], ",", "1"}], 
       "}"}], ",", "Left"}], "]"}]}], ",", "\[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[{"1", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"Tm", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772112892721395`*^9, 3.777211290229543*^9}, {
   3.7772113900580764`*^9, 3.777211424144888*^9}, {3.777211484827077*^9, 
   3.777211487207817*^9}, {3.7772115260405865`*^9, 3.7772115597376375`*^9}, 
   3.7772116436990385`*^9, {3.77726555565444*^9, 3.7772655593421645`*^9}, 
   3.77726605422694*^9, {3.7776356833172626`*^9, 3.7776357016370473`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwt1QlYzHkYB3Cl2iU8WkeKiBWibI6Uo+b7IEeOis1ao9isFCpSEmVJ2XRR
jpbWypFVqxyjNIPMiFAj3TWSppqZ7mOODjyy+L3zPPP85/N83/f3vv95npn/
RA+/ddu1BwwYcOTL++v120voD/ahi/PtYhWPca6hK6qM25lvXwS6zIQ+w1uY
x6Rg/oj18jL/JuaN/+FPCwP3NE4js/g2XCZp500IlzO38VCakb8t4ICMech9
tE0p+ashr4HZQoCtkZPP5yeQVz/CB/3Ks+qseuZ5QtwMMQku7ahjzhPBNujH
LEGRlHlDLoJPchWf1O+YFU9xIcNg6XcS8v48GOhekrxaV8Os9wKDGiOMFVHk
cy+R49Hx02gFeUoBTNLEsvi11cxZYnDskrWkT94wLyvEuAW7OjcmVjFXvMZE
5SDOpDgyrwiGL+3QXkU+VIz4RK0pc6MrmZeUYH3TRMdRKWT9Ulh/EKXOiKpg
Li2Fy2C7palXypiTyhCScbwo25S8rRz8NGn7Sj55RgXm/yBTFS8qZVZXQM/A
6Ea8LeUPKsHV/oOjPFPCfKwK/vlrYqttyKskeCgzmRXuXcg84g0cYiemCvjk
6jcYaix4qC8iX61GclC1p7VPEfOut/Dz6pcUBJDn1MDRcqf3cN3XzB9rMG/B
+aSgw+Tcd7hfKBE3TBIzR9ci/+zbrUk57Pwj5lL4/33ZVyPNZ46Vgu+5Zraq
jXKlFNn19eFrLV4wu9bh5fH+3zm5ZH4dpsbpTvOzecZsUo+DhmFu6TF03tF6
+CaV3xNJKJfXI9ptx9j8QZSvbEC2nfi10TXK0xuwRGPvksqn3ECGCXu53KiU
POZAGU4HKmYkxz5hlsgQGL3Y9Ykj5XZyVIiPcy38njJflmOHtc+e/T65zLoK
FC5wrvlsSPO8FTBPXBnI76D8lQKPP2XstlxH/bMacW/Yz72fHUTMZxtxiHcn
5vlMmv++EW63djr5/EN2a4L7IPm/1tIcZlETKur6dS9kUL9ZM7ICCz3HG5JP
NCO4YmGwu4eQub0Zy+8EOYVrKHdpQfKNss1mnrRfZgv45yqta29RvVErRtY0
W00zoPrQVryboej3+I3m17UiqiNgzJlIqndog+NMCXfEQnJqG7R3Pl82dR+d
P7Qds2+9iDjp/5B5bzuenV+4LejZY+bydhw9XWzv7fuAeX4HRGGRQ8pWUP3F
DhxRyx2WaGi+VifMd7dYVs/PZt7eif243ueqQ/NfdqLXUF89msP/ZuHoLhjH
dRTX5pJXdCHaanqnvInNEx7sQlF7eVLsdjZPeLMLEkG2U+8VNk/4rgtbrCLN
vn+UyTxciUvOts0ep+i8xUo4c1QDU/ZRf4ASsppfE0wc2X7C60qYTwmODdUi
VylhmeSh151I9YNVKC8xHWzPo30WqTCkSkfB38pj9lXBRuRsOrmO5iWroM2L
yIldc5+5RIU8p2Hvh2YKmHXUqD0W5m9mQ/PmqSEzPcz1l95j9lJDrK08XFBK
93NBjbtLD6T2r6Z+sRrX9LyWmbtQf78aSSGp3JFpd5mtNNi3cHygoVkWs4cG
TRcSTvWF32I+o8G2R/NMe+bS/eRp4LvIKrnlBN1P3xf35HyOcSFP74b2i09e
H2Nov83deNQtMVAU0flx3WiuSM+2vUz1wm5saY0IShdQrurGZHn5l19EGvPk
HlwKDRy1/A59Pxt6EHPRfujofto/sgcH9PJCVpmRBT1ICdy0ckvJHea2Hoxd
Ktqxn0f7jO/FVf3T2rZbMpide9ER9+CDTiHlYb2Q61VruhOo/14vCkwGVjn+
QvsoesHzef/liUj7j+mDe2pRMndTErNjH57MsVJwp1N/SB9ORu/RqpuVzpzR
B79Eo9ZMLcqlfTj39e/W/S7nf5iUCjg=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVi2s8lIkegGfeLiipSCFmCi3StsnWIvn/35RL7GlzCkXaaAxRlGoOp5S8
SDt7qpFGuo7bVEqjRi7RDkJomdqlXSWGyTCjkZEaCtv58Pye3/PhWRoa48ci
aDTaga/834XRTqEdRpFw6Kqrt2vaIHCseK8/0zyxelb/Zfa2QZi5u1PcSAvA
BNHNy5qVg2DbXlZ1Bvcg96edTNacQWj5QghENDbuWt5h5aBWQZzVj1S7JBqP
nLcKE0pVoJ/f7JiIB7H+JvchS6yC+83Gi/JoHHx4bZvXn4kqmN5VoVvaHY/r
jZ4wXVgqCNDsHm+UHMPPisgwT18VJOq3qTmYhMcfzrWcb64Ca0fmi6u0NJwX
tERuUK2ElsrhzcLY01jcydBfX6gEjseTWlF3Onp85zP3caYSmnZEltRKuHin
yXJLfpQSnCQ7nh3G8/jqGtfyipkSOvty72XT+Ph06F5I/akBuG8/J/p6GR8X
jJTws2MHIDX2qG1ebBZqEl9K+CEDsGrcS3C3+xIOvsoY1Vk3AKfmqHkSyRWc
Vpi0QTDaDwvMzNfFoQCtJ5QN6th+KMdwxiWaEMs3Feud/K8CTLxLJIF7hRh0
SdolilLA0a3Tw0yeCpFjZ1o7FqSA1aE5Qv7Zm5h0eSbzhasCbie/WXWRcRtN
T1e/4U31QXa9v3uG6110YIXQZ6f3gVuBldijshgJrVD66dZbYK5Y8DdqSzE/
PMd+rakcViiczr34pgzj3Ks2bjaQg1POLs+928uw34ZxImKaHPxMhCVp98uQ
6t6uV/uuF6jpLryW6HJsyRWEqGt6Qfl6t0+wrAKP6aGbQUwviH8trOI0VeEW
U2IbraUH8jhLtwa0VKPzD8YRxbkyGImZBfZvv3bIHwbEZRlsiBhZMfX5a8/O
dNjBk4EssE5XaFeDM5gBT82SZMBwiZR8pGpw9c6nPsoQGfC/iL67uK4WtYGl
hx4slsGZJDRou/kE9aRO68oudUPML7ub/ZIb0FQtjTH37YKjk+5pluLfUTc0
biz91ivIKmAn8aueY/MFy0Bt7V+QcZzWrdP1Jwb2na3xNGiHW3ej0zuGX6Is
MEauI/kDsnzu8JpbO3CNk9HEs9fPYZnpb5UFqk4Mfbk4VmwgBc/bflY/RXbj
gdPMzQNLf4fTh+/NSWyToZeYtTIjpQmy2o/oCn7uRYk+jPlMNkDm0DLHfz+X
I5UYqbukpw723IAD4z/3oVShjQ1qq4WKiZoWvwEFmkbZrrDRrQGa4ardLgED
6F0+GZZIScD48UzaIrkSL320TNU3fAyLljZIT/kP4vfhPqVLeI+gf/Fwca/i
HZqVC7fPZJaDZy1VNnpwCHtiom4wRx5C07wkTnPse4Rq2QUX8xJ4+cuH7IVO
wxjj3Nnk4fsAgnqC/e00w6jqKaAfqimGZXMT8i7c1GCcWcHk+T0ieKnzLCHh
wAhKeuSqAt0imHplOGBj8wEVhqlRrSWFMPfY/7q2DH1Ax8Zws5WRtyBc8zhC
+mAU6/dquJk7heC4UZ5uEvURz2y/8647Kx/697g5vnL4hHdKnEMdO3LBKOjX
wyzVJ9SckEndgnMgZfl5Ly+BFo/sec+/N00Ab+oa8/LDx9Bl8/yzlwOvQ5Hr
p6wmxjjurwjft0j/KrBO7DDe1zeOO8O0hyarsyHjqsju+Y3PuNDW4MPa5izQ
4VVKzwV8wfXlA7B/Oh/C/CammiwmUPjeN2ClWyasUa9ueNY+gR/P23//vDQD
hrZfXeh9fRJPptEukqt58D6jUmuxdwrldy0+1b04B2L/COfOOTQyyMzSiON1
FvY2cisiDtJInot6xkwVF1pvFeoEttDI28vMk+JlZ2DXqPW1ODs6mRevYb3Q
SYeugrL/+HLpJFOqk/5wRRqY13sw0/vp5GKXt269vBSw44vGrZV0cmqXRyXB
TYG1EWbtEhWdVMvZZ6xTUmDrLDVXq6aT3hnZxjGcFEj9V+Y4e5ROjvAypczg
FBhq723zIAgytSJ/ydCyFKhRnORONydIMb2JA48oaC1Tsm9YEKSNoYgjFFPw
On2buyuTIPflhBXNL6Lgo73teJwlQU7x9aoGb1BgH9vK7rUlyD5rN++qVAou
aC3ca9YQZND64v0NfhQIGtMYIT8QpLPjt8f8fCkoyh4eG3MiyKp+jbhrEwWN
rnUiB9evv9GmHJozBZMnoxmCDQTJiOf4BzMpmO3XPua6kSCXs+8LtCYUmFhh
21+bCPL4b/Pn8w0pWF1nxJ3nTZDUxVU7OmZQABePs+9sJsgr7vtWnZhKBl+2
YoOXL0HGl1bafjOWDDudtjLkPxJkYC2LbNUkA1vv0diJLQRZeCo3PmEwGf4B
Bn9PBg==
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.989467\"\>", {20380., 0.75}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"C", "0.8915110761154978`", "0.012476455303683492`", 
         "71.45547789140817`", "3.189412934960347`*^-103"},
        {"Tm", "22773.20526867556`", "489.10911072205516`", 
         "46.56058284225426`", "7.898456474282162`*^-81"},
        {"x", "0.8`", "0.`", "\[Infinity]", "0``307.6526555685888"}
       },
       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], {20380., 1}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 101900.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772113706995564`*^9, 3.777211397710868*^9}, {
   3.777211430092402*^9, 3.7772114497757177`*^9}, 3.777211493643998*^9, {
   3.7772115263998423`*^9, 3.7772115602077427`*^9}, {3.7772116514592953`*^9, 
   3.777211664918756*^9}, {3.777211720642726*^9, 3.7772117507769165`*^9}, 
   3.777265947215704*^9, 3.7772660584646597`*^9, 3.7772661999040346`*^9, {
   3.7776357057616615`*^9, 3.777635725428995*^9}, 3.777636586716485*^9, 
   3.7776367280356474`*^9, {3.77763676646885*^9, 3.7776368180340986`*^9}, {
   3.777637871464487*^9, 3.7776378840866556`*^9}, 3.7776382873611608`*^9, 
   3.777638693623993*^9, 3.777638801981468*^9, 3.777639036154905*^9, 
   3.7776392537698116`*^9, 3.7776392926411037`*^9, 3.777639325885167*^9, {
   3.7777900778439074`*^9, 3.7777901393839703`*^9}, 3.7778086750139914`*^9, 
   3.777808842241685*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 30K", "Section",
 CellChangeTimes->{{3.7772111381789255`*^9, 3.777211140725235*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_30K_Tm.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "  ", "1.1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "20000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x1", "=", " ", "0.8"}], ";"}], "\[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[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", " ", "C1", ",", " ", "T11", ",", "x1"}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "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.777211571389136*^9, {3.777635741483319*^9, 3.7776357459000297`*^9}, {
   3.777635789358344*^9, 3.777635805456689*^9}, 3.777636594153443*^9, {
   3.7776368213205996`*^9, 3.7776368219594283`*^9}, {3.7776388184802513`*^9, 
   3.7776388244208193`*^9}, 3.777790146979604*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtlAk01GsYhyVttIxUWi8VrhTVOaVbtl91JUK3RDpKB5U2KZI6WqZutKob
iaRkLUuiqxJjCdeSIhKTdeyRLIMxGNO9t/ebc+b85znP+X7f+77fN/+Fjq7b
98vKyMhw//v+//z54Z4A/egxouddTK27FqnEbSP+GAbn1jd6lirNxI9jIM1L
WH5Qr5E4JRE1+THahR31zCcDN7NSDKNria+mYN2nD+kqxtXEx3kwajoStCvk
C/GyLCTYZK7urOQTq2ZDgz+yO7n0M/GMXCxSTLo0pYTxxDyklD09VGTPWJKP
9D9MuhLOlxH3FMKpdE52TkspcXMRbhfuLj/LYZ7/AeFxy+e2ZjP/vgSzRKeO
dsh+IBZ8xNg7YlleRDFxVSl6Cs5wby1hXF4GeyV1zR3hRcTFn8Afa29eYvGe
uKAc7SJB5sOAd8TZn3Gy3jhsQm0BMa8CByteK1jdziF+VQndC8sqN+wtJE7k
Y8v6Ed7L3nzi2C9osDLRl/sljziyClO2NoYE6zP/qBp5sjWWMcJc4qAauAea
mCb8YPl+tWjXE/xiNoXxzTooDf3KEV/OJvapR511xBq+JmMIkK646eLuMsbp
AoRnrNh4KyWDeF0Dzs65mqssSCd+3YBvZ6p+k9XIIl7ViGyX27Hj3RgnNaLJ
oCv3/KoUYp0mdBTVFEvyecRxTaj0mlTfbs7yNZux0qcpL7CK5Uc1QyIrP2TA
SSVe1IIJRcYae7a9JQ5tQep38QUO9w3x/FZ0D3k5XctOJr7fCs83HUM+Tmz9
rDboOXr8E3Q1jdi/DXs1Pc2NxK+IOV9RoHEpSv3TC2Lfr0i9Lj6guP81sXw7
3qYZhM5dw/hKO/zztlcbyrD+5DrgMdbYInkLy7/YgQwVY4XkFsbSDpSk5ou0
s1h9Xt+gjfWHp098SSz+hvpdg/yMcSzPoxM6YzCaace8sBOlMcqFBVqsXtfv
kJsbPrt6HuPO7zjBs9g8MIbN41AX5JREmspbnhO3dkFPS3Wz/DPWn1M3pqpe
l1fy+5vd/25YmIeLlysm/mSuTg/6egtUl9rHkXfpgePJ4z2Was/Ix/Vg2owa
L2kdq7ejBxzLalOZGOqPq9kL7ZROybIJbF7Ovbji6hod7cXyo3rhNi/scG1S
Ivu/9mKy9dpmtXts/SIhFAUXzTS2J5F3EEL20cha+WKqnxsqxDvPc1+9G+LJ
1wmx0r3xYXczy5/fB7Vom7OC2gTydn0o33hgMs+XmHu/D2dX12sP3o1k74c+
RNjo3DBMe0p+Vj/cZpottrKNIG/dD92TyzYFJdF+XP9+nHf/YvL8GauvrB+H
PV8YyueEk+cMwMk81+KGGetv6wAOCNJM+61onlzfASQqcNZ5n2b1vR/ABIf7
C4L3s/3lRXDNj9b5aBBM3lQEl2vxM2arPyR/RQTOixUKa/VYfp4IyloqfQ7u
LF9uEPsOKcuf/MrOb+Mgur3P5XvrsPO7OIhj3j8WjEll9yFrEK6REq09m6gf
rnQQ3/240k+2rD8DMZRfe/wItGHrvcSYrl/h7hASQj5VDJHnWz/9HcyLxTh2
LNbKrY3dvzVDcPJ3GY1NZPV5DEFXv7JgUgWbb/IQAi5tLXlwgs6DKxyCMPjU
PYj8ya8cxsyu4iULTMPIuw5j5+o6vqUd7SeTMAznm9OcfHJYfucwjq5P4GWY
0Dxllo7gznD8ZGXfUPKHRsAzMj0SO46tfzqCmTmLb8VPYvNvHcGK8X/1Pl/4
mLy6BIpp2iKjo1HknSRIuuU4cW4gyw+XYHOJ7Xyfg+x+CCQIDHhk0WTGvMoo
7Jy19gmz2P57RnHqwYaAfZYB5ENGcd7tcqiHLtu/ahR+v1u/bLJ9Qn6OFJm+
nXu1VaPJ75TCP//Jn6c9aR4y96QwNHDN2+bDfLkUrfw7iXFTY8kr/cDaVWo+
cSeCjf4FiSXVrA==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVxXk8lAkfAPDxfLyukl6Vxi7aEhErtGmqqd/voYxzRbnaJDqwqVjVxG7j
yhkVylVIZolKCE2DbcjNIkWbck/GoGEc5bbv+8f3893sftHuDEGhUPz/5/8/
9qa5d63zgmHdxfC7KWJgqsd/WqAw0P+w4a6WK2KQcu0ubqA44pCBySsDFzFo
dXIqotENI+XudpuYiqFlkcgsoHigay+rbEpfDH7q1tc7ed4oy1Ta0qAihtV/
Nu1koS8Ku5ZLg2TFUNS0YSObwsR3sWfMZvkTINnLlXnR549Za19uC3s7AY6T
rvMNvD+w0YrfFVY1AazVHSImBuOJCnZ3YeYEbN25qT2NEoFnz+oZN52agJZy
sUWOTySKvna4fzs6AUzT6tcFfVFITs+ruphOQKOzV8lrXgy+LK+Wq9eeABrP
ufkSxmHb+cWYzM/j0D2U9SyVkoQig3Ln1dRxKNKR987gJKGy/nRLwIoIwn2u
aLF9kvEpnRG6RSAC/XmzzKd9KThcvbdd6YUIQuRF8TzefSxdDgnwdBbB+u9U
9vlhJjY7hSqmZH+Bl3hWLYWSg/k/DCXMHR8DqnkJz+l0Du4wyOprZIzBFVvJ
U9T6HPTXtpiuMBwDQ/eHOUm3HuEC22W/tOwY5IX26Ceq5SHvyI7hjS9GIbXW
wSSB/hTD4itTG6mjcCBbvdi0vBBtHnF3d44L4fx2yzBNUSEGmJuzFXqEcD//
NwepH4owN+KgkmuzEOZLK2drQouw9IYOFXKFUFrnuv+Q5XPkxPrRlk4JQU94
r9akqxjvyvO4xt3DsEl3/QecfYEZs/6Wed0C0BXQbrdrctC0V9Oa0SoA2kMX
xml7DvKM6MGTPAHYUXNKIoo4WOyU/l8/tgCuS+6Nb/F+ibePy/Upewtg5JOr
5fF+Lm5bSm4SLA1BcezjCmZjBfa6ZvgNbB8CNnOzrWNLJR5rO2yyIZsPUxfl
QOdzJfosHFn5O5UPxp5TuisLlbhZ1bTq1i0+9DvVyORoV+HvWhd09Pz5oLbX
i/f1ehWaN1426rDiQ9JiwY7Efa9RWT14uHJmEKKDcU3Ho2p8Vfu+qd56EC7e
cG2yC63DINMvMufXDwBd1UZO6X4dxjJ8ey3kBkDm2QHzD8V1uFlSJUSfMgAP
2lXrXIfq0Oyel9S6sX5oU/5U5W1ej9GpgTI/VfeD/iMnbrhCA3pv26Hcc7kf
Jqttc7n3GvHe256VxJ4+uLJsErGl+G+sWBwP6Y3oheRsj+Ckijco2F9CSR/8
CAnXKH3Sve/Q2uS8o3n4P5D71DuqS/wea6aY6d5FHZBs+SS+qbULnat23U/3
fAsayq/Ks0e7kUfbQq848AYYeXbqh7360I0KRcHTLRB56Zk8q6MfX+0IqErk
N0Fy52WZzJOD6F4jd8V9ph7ujmvsPPKGj/lGhxXWRNWC2wO4MH9yCAf91Edy
fqoG7lJVi51QgEfTzx2V0qsCiqK+615HIV59SBn2ZfFgw19SlI38EQywKVux
5VTAxs11bSEOY/j8Tlb95yUuDH8vLhwUfEG9HD9rbScOMF5f58z4jqNhXvJN
t/+UQuPaYGaTzwTazxpo2CsWw/sb06lKNDGS9dvtGDpF8MvAcQftSTH+OOor
Xx5XABoKAew7jyaxdeu0rJpVPryXbg4IuDCFvLIUm/aQx7DyUVG4bds05n+e
3DOqlQsKf9zstRmfRhPNSw6crmw4O/mXZ9vzGaz+cW84u5UNOw/yo6jnvqKz
hn20YH0WDLsd2PnR4Bu6ZowpyrplwrpfYi+dGf2GZbIJ4dCbAWHb48zMMmfR
IC3uk4tFGvTUNLD/PDuH537eM/JrRSrk078lN6rN481hy+mS+GQ4E+i84deh
eRxsN1RbdTEREtIKtN88WECPyjZZi7Q7IB1f3nbbcRFT5pi3/Rbi4ZTd0kqj
6hIqbRyoyXCJg10iw7rmziW0c25XX567BeP2aUrmGctI6H59ooaxMJFQPqt6
egX1IhUPClujodjBc0+3PIVkJPQbrSmLhNMNMVxPXwr55be5FEZeOLTmPpZ2
aqGQEXPxk9FD18FlZmu6n7YE+Y7a4RBmEwq92ZyrVjESZEnGudYb3GBQqTXd
FDUsQQbQbFZWnwwC7aSC+a0jEmRqgHqk8bEgMPL8rpM3KkF+WNO0O+BoENjK
iWJmRRKkfbWhzIRZEIT/fHfeY0aC9LdssZ8xCILxzsEOU4IgB7c/GT4jGQRV
gqAYSRWCvO8ycqjIPhBaOSMeD1QJMp5Jf5tlEQifoo6a0DcR5OslX/8UCISv
OlrzflsIMvShilycdiDo+LR6DGoRJJfyWKFwiQV3ZlVNqnYRpCTnGeN5Ngsy
GyLUTuwmSKdZKvvzPRbkp4rn5mgE2SySpqjEsaCBXlNgQCfIUwlGBXd+Z8Fy
kLdapjFBahjSaksOs2CVXecc/SBBLknrTkmbsoCqjh3/HCLIVam71p3YxwLD
mnUxa80J8gnthKaSJgsg8ZrHEwuCzCW8lK5+zwIrD4GxmRVBLhNuU91rWXCM
ZqvGtybIpMKKMoYUCzxky+YCbQiSqf3tfMnCNfgXrb22Rw==
       "]]}}, {}}},
  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, 127280.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777211572661422*^9, {3.777211655685482*^9, 3.777211667516379*^9}, 
   3.7772117532488117`*^9, 3.7772659473719163`*^9, 3.7772662001383486`*^9, 
   3.7776357496983314`*^9, {3.777635789670557*^9, 3.777635805796893*^9}, 
   3.777636594624913*^9, 3.777636736618965*^9, 3.7776367699712887`*^9, 
   3.7776368224866323`*^9, 3.777637888618965*^9, 3.7776382874876165`*^9, 
   3.777638695885782*^9, {3.777638803633871*^9, 3.7776388246551633`*^9}, 
   3.7776390362486205`*^9, 3.7776392538635397`*^9, 3.777639292750454*^9, 
   3.7776393259788957`*^9, {3.77779012917768*^9, 3.7777901473855534`*^9}, 
   3.7778086751193733`*^9, 3.777808842335413*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777211142558728*^9, 3.777211142824258*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "T1", ",", "x1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "x1"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"\"\<\!\(\*SuperscriptBox[\(R\), \(2\)]\) = \>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Max", "[", "experiment", "]"}], "/", "5"}], ",", "0.75"}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "18"}], "]"}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Graphics", "@", 
    RowBox[{"Inset", "[", 
     RowBox[{
      RowBox[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Max", "[", "experiment", "]"}], "/", "5"}], ",", "1"}], 
       "}"}], ",", "Left"}], "]"}]}], ",", "\[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[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772112934074087`*^9, 3.777211294697509*^9}, {
   3.7772115776098804`*^9, 3.777211583428085*^9}, 3.7772116483141932`*^9, {
   3.777265562302862*^9, 3.7772655635496416`*^9}, {3.7776357577160683`*^9, 
   3.7776357723508773`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtlAk01GsYhyVttIxUWi8VrhTVOaVbtl91JUK3RDpKB5U2KZI6WqZutKob
iaRkLUuiqxJjCdeSIhKTdeyRLIMxGNO9t/ebc+b85znP+X7f+77fN/+Fjq7b
98vKyMhw//v+//z54Z4A/egxouddTK27FqnEbSP+GAbn1jd6lirNxI9jIM1L
WH5Qr5E4JRE1+THahR31zCcDN7NSDKNria+mYN2nD+kqxtXEx3kwajoStCvk
C/GyLCTYZK7urOQTq2ZDgz+yO7n0M/GMXCxSTLo0pYTxxDyklD09VGTPWJKP
9D9MuhLOlxH3FMKpdE52TkspcXMRbhfuLj/LYZ7/AeFxy+e2ZjP/vgSzRKeO
dsh+IBZ8xNg7YlleRDFxVSl6Cs5wby1hXF4GeyV1zR3hRcTFn8Afa29eYvGe
uKAc7SJB5sOAd8TZn3Gy3jhsQm0BMa8CByteK1jdziF+VQndC8sqN+wtJE7k
Y8v6Ed7L3nzi2C9osDLRl/sljziyClO2NoYE6zP/qBp5sjWWMcJc4qAauAea
mCb8YPl+tWjXE/xiNoXxzTooDf3KEV/OJvapR511xBq+JmMIkK646eLuMsbp
AoRnrNh4KyWDeF0Dzs65mqssSCd+3YBvZ6p+k9XIIl7ViGyX27Hj3RgnNaLJ
oCv3/KoUYp0mdBTVFEvyecRxTaj0mlTfbs7yNZux0qcpL7CK5Uc1QyIrP2TA
SSVe1IIJRcYae7a9JQ5tQep38QUO9w3x/FZ0D3k5XctOJr7fCs83HUM+Tmz9
rDboOXr8E3Q1jdi/DXs1Pc2NxK+IOV9RoHEpSv3TC2Lfr0i9Lj6guP81sXw7
3qYZhM5dw/hKO/zztlcbyrD+5DrgMdbYInkLy7/YgQwVY4XkFsbSDpSk5ou0
s1h9Xt+gjfWHp098SSz+hvpdg/yMcSzPoxM6YzCaace8sBOlMcqFBVqsXtfv
kJsbPrt6HuPO7zjBs9g8MIbN41AX5JREmspbnhO3dkFPS3Wz/DPWn1M3pqpe
l1fy+5vd/25YmIeLlysm/mSuTg/6egtUl9rHkXfpgePJ4z2Was/Ix/Vg2owa
L2kdq7ejBxzLalOZGOqPq9kL7ZROybIJbF7Ovbji6hod7cXyo3rhNi/scG1S
Ivu/9mKy9dpmtXts/SIhFAUXzTS2J5F3EEL20cha+WKqnxsqxDvPc1+9G+LJ
1wmx0r3xYXczy5/fB7Vom7OC2gTydn0o33hgMs+XmHu/D2dX12sP3o1k74c+
RNjo3DBMe0p+Vj/cZpottrKNIG/dD92TyzYFJdF+XP9+nHf/YvL8GauvrB+H
PV8YyueEk+cMwMk81+KGGetv6wAOCNJM+61onlzfASQqcNZ5n2b1vR/ABIf7
C4L3s/3lRXDNj9b5aBBM3lQEl2vxM2arPyR/RQTOixUKa/VYfp4IyloqfQ7u
LF9uEPsOKcuf/MrOb+Mgur3P5XvrsPO7OIhj3j8WjEll9yFrEK6REq09m6gf
rnQQ3/240k+2rD8DMZRfe/wItGHrvcSYrl/h7hASQj5VDJHnWz/9HcyLxTh2
LNbKrY3dvzVDcPJ3GY1NZPV5DEFXv7JgUgWbb/IQAi5tLXlwgs6DKxyCMPjU
PYj8ya8cxsyu4iULTMPIuw5j5+o6vqUd7SeTMAznm9OcfHJYfucwjq5P4GWY
0Dxllo7gznD8ZGXfUPKHRsAzMj0SO46tfzqCmTmLb8VPYvNvHcGK8X/1Pl/4
mLy6BIpp2iKjo1HknSRIuuU4cW4gyw+XYHOJ7Xyfg+x+CCQIDHhk0WTGvMoo
7Jy19gmz2P57RnHqwYaAfZYB5ENGcd7tcqiHLtu/ahR+v1u/bLJ9Qn6OFJm+
nXu1VaPJ75TCP//Jn6c9aR4y96QwNHDN2+bDfLkUrfw7iXFTY8kr/cDaVWo+
cSeCjf4FiSXVrA==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVzXk81IkbwPExWSRSybWbo5UilaJ+WU2e50uRbiokUmJmREVsk6KcOdJF
IauiMNQqx9A4kiOmQUNjTZFjXDMZciZH1O7vj8/r/ednpds5Ow8yiUS6+l//
95m3qVubsiekpgxnuPwQA0M3rv07yRqdj8wbenDFIOPaweKSHFA1ZaeK12Mx
6AvYr2LwJF5aY//w+lUx8ObIabkkGt41s9+/2lUMfrr7wgUV3uiqSAkPQzEo
ZNSbXEFf9GIt3E/RFUN+vYpaOomBDzOelvMGRSDdVSL3UhiA890ua53ei8Bh
3HWWWxGISiLOnqSXIrii0DLMwBBkF3txuiNEsMpEm/+AFIm+gS5Ld+iLgFc2
tpvpE4VywtHQjqUiYFi9qc4VRqO5TIBt0/d+qDvqWVhdEYtJssaBOU39YFpx
tMEf76DIjZ/ID+qHDtGTF8mkRGzynnhu1tsH+YaK3o/YiZhb07Sc29QH13wu
6Kf7JGG5Xvvq8PI+2Di7Ky1HeB9VFbMWXE7ug1DF4biKihQ8JpHP3H24D5b/
umKbH6ZhmcDS6D6vF4qRqnWfxMSkDXOK2q09oG5TWOHozsTFEVPTp7g9cMFW
+pT6Wybus15/tLq4B4zdHjMTb2Xh5m2SisbkHnga1rkxQespPgs06VE+3gPJ
tfaW8ZQcPEOSLZr+3A3mmbosq7I8lIg8m/UWd8OZtXsiVg/nIeeXiUoVqW5I
eX7eXkYnHweFtYOqX4UwW1Q5XROWj/1e+433tgmhiOO6feeeArwb0BAZxBTC
hoG/ai3bWBjm5Kwh2CEE7XXLW3H6Jc4+NCguWt4F68Smt/mr2Zh1ZbNr7c9O
MH3sYu1+hI2NMWMGQ5JOsFNnFkbms3FLZ3ZQQGUnhEubxfG8i3GzbLBvwrlO
kLS77nHuLsGAI+tkixo7gHXj2StG3SscZx09EPOwHdIZK20deJVIP/z+UP25
Npg4Jw+G/ZWYb/5EOcu1DSzoE+t+fq/EK+kkTtyBNuh2rJFjGlThkdC7xXeM
2kDLzLPiW3gVHmrh5pqMtkLiXK5RwrZqbPGJujnl1woxIbi4JesNhv64lSYd
8RHOXXettwvj4Jb+vUHNXAFQNA/Iq6ZwMMZ93PxGqQDkXpjbtLI4aKYwP2SX
I4BUvibHVcTBTyXZfKk7AmjSaK/ytnmLZlH3DYYcBbAxy7HkmhIX6cF910WS
Fhh/Y5td8lcdnhAYFyqrtcCFH5aRv7PeYQqnq5F5oxnyDI2Lzevf4UOd5qjy
0GYYctQZdOp5h+wiK7kORjO4Fcztj1/CQ5n7yds2uTXDfnqhqvQZHtof/JKy
ZWsz6PFXZ/brNaLNjbIiZg8fJPxwt3/2NOGtBZdbf5jzISmTFpL46j0uLZVW
/kXhPcQHkYSyXf+g8y4dlbrId5Cd4x3dNvYBj/Dk5T0ruJC05++4+sY2REqj
2KKsFvQ0XpdlDnbgb0yDR98Hq8H6qZ3uQU8hxmUOM5yZlRDl/0LxSks3ks5L
xxw88xqSBH/KpZ3oxezpnU72laVwb0TP5ND7PsyL2xbBr2LDyVQ4O3tChKS5
ZTAjKYSS+Sqe3YAYM7/EHJ0PKADSso2uZg4DWJX2SVX9Yh6olMuQ1PokaGHj
sK5B7QWoreQ0hdoPYeBMpVrq4DP4/NtYXq/4C/LHXJcUCLPAujqcPek7gk8+
PmJbbM+EuiUhjHqfUVyv4fHHuEI6fLj+NVnVdAxfl+YMmI+mwbEeZ3uD8THc
G6LcULAhFfSULqXfzRrHz/lNhuHWD+CDbMOlS2cn0Pepz2U7m2T4+WnZwJo1
X3HhhoWTfG4iKAXe7Dow8hVVNx0KvuVyD6jj5fSmgkmk8BLsxrfHg8mOvmh1
r29IeV2wM+/CHfh80tzk06YpvKc0Gu934RYoH7vh7zE4heO7U6xyb8ZCxNo7
u3alTaPmxCtLpblo6KzhpmdQZ/BBwskW6YuR8JwylVSnNYv6uXdOhjlFgMfV
oyqnRbN4u0FOdNwmDOIf5Bq8T/2OCkC3kooNAdm4sqbbDnMYtD0u4TgpGE7Z
zf+s05zHdwf0uEPTgbBl2JjTIJjH/oxoo6unL8HIkQeqNo9+oEzkNdKZAQaM
xpdNa7r/RN9Vz16M5v0JLHv6Hx2KJMI8X87Iiu8H7tzYErovieg8z343OesL
jdnPZB15JCIumA823j7gMrnqoZ+BFHGZyijpW3IWujLZF/fGShFBHglrHhzy
ghW1VtrRn6WIU0uZi2hSnmCQmDu7SiJFNJ52nwqfosP/6L8KKgalCMcMv+nM
L3SwlR+OnR6WIliaviZTrXS4tv/eLG1Siijeyjj2Np8OI4LeFisymbBY1igx
9KBDlTg4VnoFmYjWiRoYbKBBI1tCS9UkEyPHWdrR1TRojz5sSdEmE2vlFmxe
W0KDb4b6s36/kwmZ5fajDCYNDH0aab36ZKLIUDeaCKXB3WlNy6otZGLWxPHt
dVMapHEjtY5vJRMO/j4aVCMaPE8em5kxJRM50ts37FhNAy6lJncT5b//B9+U
Rctp8CPYWyvNgkxYaQy6cEaosMhOMEPZQSaq/IlHr0VUUNfFlo87yYSO0Dmx
tIMKxjXKsUtsyMRii4CM8noqQEIQ7e/dZGK9mTW7pooKe2lii117yUTuDv/L
TcVUcDK11erbRyaiWPQvnblUoC0snbl6gExkJ9xQGGNS4V8NyOYw
       "]]}}, {}}, 
   StyleBox[
    InsetBox["\<\"\\!\\(\\*SuperscriptBox[\\(R\\), \\(2\\)]\\) = \
0.953927\"\>", {25456., 0.75}, {-1, -1}],
    StripOnInput->False,
    FontSize->18], InsetBox[
    StyleBox[
     TagBox[GridBox[{
        {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
        {"C", "0.7498034735077531`", "0.021829777953443145`", 
         "34.347737073041955`", "1.6225120721723972`*^-65"},
        {"T1", "17402.422224717095`", "766.5242822608353`", 
         "22.70302797634706`", "3.5599641284547325`*^-46"},
        {"x", "0.8`", "0.`", "\[Infinity]", "0``307.6526555685888"}
       },
       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], {25456., 1}, Left]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->True,
  FrameLabel->{
    FormBox[
     StyleBox["\"2\[Tau] (ns)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm], 
    FormBox[
     StyleBox["\"Echo Intensity (arb.un.)\"", 
      GrayLevel[0], 24, StripOnInput -> False], TraditionalForm]},
  FrameStyle->Directive[
    Thickness[0.003]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  LabelStyle->Directive[18],
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 127280.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772115747341347`*^9, 3.777211583912345*^9}, {
   3.777211657693183*^9, 3.777211670877267*^9}, 3.77721175574685*^9, 
   3.777265947450018*^9, 3.7772662004976435`*^9, {3.777635773997219*^9, 
   3.77763580798495*^9}, 3.777636597097555*^9, 3.777636739545066*^9, 
   3.7776367719326887`*^9, 3.7776368251064672`*^9, 3.7776378904477243`*^9, 
   3.777638287598014*^9, 3.7776386977216015`*^9, {3.777638805184673*^9, 
   3.7776388263734803`*^9}, 3.7776390363613214`*^9, 3.777639254019752*^9, 
   3.7776392928598022`*^9, 3.777639326135109*^9, 3.7777901490765295`*^9, 
   3.7778086752443447`*^9, 3.7778088424495716`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 50K", "Section",
 CellChangeTimes->{{3.7772111563616304`*^9, 3.7772111583964744`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_50K_Tm.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C1", " ", "=", "  ", "1.1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "20000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x1", "=", " ", "0.8"}], ";"}], "\[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[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", " ", "C1", ",", " ", "T11", ",", "x1"}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "150000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "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.777211593518944*^9, {3.7776358138629503`*^9, 3.7776358189854565`*^9}, 
   3.777636601170268*^9, {3.7776368277701483`*^9, 3.7776368282858486`*^9}, 
   3.7776379046088185`*^9, 3.777638831031776*^9, 3.7777901595427446`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtlQs4lPkawL9RnYqzLdtaid0UhT1ro+UgyjtPkQ5CoohOW80uWnJdWlum
2FbJJZJLGUqlHOt+KVIzUlK0cotDJzNDxn0MM5hhZk/e/zzPPN/3e37f//3e
//u+/+fbeOzUfoYSRVG5//9/vC79mMGAN0KbpQs7BYIzi0q0tYaRk3PheWWG
x48Lg8TnQ5O+dfa/0/nIwiIQDH2TdW6Ui6xaDoyAGS17Vj/yvSqIq5znR371
HhlqQG7v/1Rk+A65uw4Mw02U/Rx6kR+w4eoEY71I9S1ybD20VSQcLXxO2KUB
Cu+u5q3I6ELWfg6yWaNHdqxOZEEjpFyOLQusbEeuaILsagbvn6/eIDNfATiU
8vIKCTu2wGT0WTOv+lbkdX+CRfmA+8/+r5FDWmHthS1uUwziD72BzUl6p8tn
mpF3toHUWqfscM9LZL128Gt+KEw1IazcAdzlnIKiqRekXh3QsyEnOjf6FXJX
J+w8+WJHaSrxj7pgx9G281Hqz5BvvQXzqyaaB+QNyHHdEJGpcbNrVSNyYA84
x1RzdJyJP/Bf+NSjb3fQIgd5ey+4RPgIFO5PkXX6oJYXXaDVSfzf3oE8409W
nm498tg7OLTdPD5okY3c9j/48oeQHf7jT0h/3sO2YdnR67k1yM79kKasWBi/
+Bi5vh8UKr3h9/mPkM24IHLO1kjdQ+Ld48KHsjWxvwbUIWvxoNjJY47bUIuc
yIMR88RlqlbVyDQ+xDPtjV0sHiCH8UEtLcNJ/wx5fogPi/oKtdgg8rzXAJyk
ZFv9WRXILQMQ9tlhloNnJZm/QThn3V1sMEO4fBA+a8t1q/Ak8bd8AM2Cz52B
qkLO/AAxklX8gXzCfx8CHuv7l5oGhKOHYHhTlKjkTgGyaAi0rzWvDZcXIjME
EBV3ovQCg+TTLYDfDn4SZikqRnYYhnv1Fc9uJBL/eBj89vK+fLqqCNlkBAKs
Gk5PPC1Fvj0C4g017JrZfGSNUdj/4rpBXVUZ8qVRSFIJ5R/7g+SzOArj1ez6
Xm8SL2gMIszEuyw3kvz4Y6B0QrvMz7cc2WMc4o2P2M3cJ/GbxsFxnhG6nk6e
t56A0zlWCZl2hIsnwKWnsdVFeBN50yRciftCaWjyFnLaJLg+W/WFm9Ft5OVC
OHhwm5udNubD3CGEm161jXXTWegjhMDRUHtt7P8f9CVCyB+ISZPUk3xGhKAU
b9rqy7qPXncK9A4f+ce26bvofaZAUNtYW7Oa+GtTsMdDNTF1XR761imwz3Vo
c3In8VeLoOH4GZuoS2Q/u0TQtKZ89jsBxmP+KoJK7ct/xG4n+6kSQbhNJver
WxnoJ0XA9Xt8x0+dvN9wGgx/kzVveo/7ZR6bhq8zTVa6HU9Hf2MaBI+9Xuul
4n6YndPwJC1nv/cVUp9PZ6A5yyZZZ1kOevsZWAFrtqw8k4v+/AyoZ0/mxIee
Q187A8et7SZ7a8h68Qwsv5O8NcAsE/23YjD5qf27n5quofcVgzY7qoryxX4x
b4ph7cfjkUb61ysG+2++H11ZzEL/uQRGbTWVORpX0O+TQEVHfHmJMs4X83cJ
aO5pSWIfyEbPkYD0ljTGdg3WiymVQMd4bqA4lORvOgu8ZNfKuipkZsAsGKSq
8M66kP7nz4Itr0hfqxTfx+yfhc0sNcbOiMvo189B7CZ/54vvSX3c5iD9YZnR
A3fsB5UwBz3jiQFeErL/53PQ2/jyzqMU0j9qHhwf2jpG2qWht5yH34c+8eW6
kvxC5yHc6b7kl7Vn0RfOw22jU+Lgt0HoP8zDaAfHbFAagn6DFAJC7nrlJ5D6
eUpBvi9lY7daCvoUKaTUPdySrpSKvlkK27SH96paXUC/QgYPDn3rrd6I+VI2
Mvihd6vPmOgq+kgZ2Jaw1Dv1SX5lMnDSDI5kG5L5GpVBqEXWwZ0G5P2bF0Cp
oXnMux/7wTyyAPsmOZ2m7CT0GQvQx9GitOhYb+abBTj58WvMIfOpsgie1T7R
iQqsN3P3Ivn+b0Z/dhGisgaKo4LPo69eBFfL6YWMdpLf1CJ4eR5ndilw3phf
y8HagVNg5J6M/oQcfNpHVHR/IfXPlkNM5/W5E5oX0b+Vg3RZXNqP6aQ+qgrQ
0S0NG0wj9fuXAlyNS3cnzHk+WfIxClD1M+eet8V8qDoFDO8S9BmbkvMpUUB7
ce0Vywukvuso+t6+n2mFOkeWmG1K0fm+3uykU2QeXSm6gDLL0ytRWooPgRS9
oTjEJHWYzFc8RfdYcBt6NoDnj51P0VsLSxU3rMh+Gyh6eCZLkBJyaYmBS9Hf
rdaWTgThPFByio7zgfmy19PoScFOlY48ch7NafQMj5OBFgXRuP4Ajb4rTzi4
35uJ64Np9OVFbUORqsjsBBpdtz6LJ27B+jALaHSLdTwXk8R4XN9Io7dodd8V
hCFTAzS6KaP+nvBNhs1fMGSKiQ==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVxXk8lAkfAPDxfLyukl6Vxi7aEhErtGmqqd/voYxzRbnaJDqwqVjVxG7j
yhkVylVIZolKCE2DbcjNIkWbck/GoGEc5bbv+8f3893sftHuDEGhUPz/5/8/
9qa5d63zgmHdxfC7KWJgqsd/WqAw0P+w4a6WK2KQcu0ubqA44pCBySsDFzFo
dXIqotENI+XudpuYiqFlkcgsoHigay+rbEpfDH7q1tc7ed4oy1Ta0qAihtV/
Nu1koS8Ku5ZLg2TFUNS0YSObwsR3sWfMZvkTINnLlXnR549Za19uC3s7AY6T
rvMNvD+w0YrfFVY1AazVHSImBuOJCnZ3YeYEbN25qT2NEoFnz+oZN52agJZy
sUWOTySKvna4fzs6AUzT6tcFfVFITs+ruphOQKOzV8lrXgy+LK+Wq9eeABrP
ufkSxmHb+cWYzM/j0D2U9SyVkoQig3Ln1dRxKNKR987gJKGy/nRLwIoIwn2u
aLF9kvEpnRG6RSAC/XmzzKd9KThcvbdd6YUIQuRF8TzefSxdDgnwdBbB+u9U
9vlhJjY7hSqmZH+Bl3hWLYWSg/k/DCXMHR8DqnkJz+l0Du4wyOprZIzBFVvJ
U9T6HPTXtpiuMBwDQ/eHOUm3HuEC22W/tOwY5IX26Ceq5SHvyI7hjS9GIbXW
wSSB/hTD4itTG6mjcCBbvdi0vBBtHnF3d44L4fx2yzBNUSEGmJuzFXqEcD//
NwepH4owN+KgkmuzEOZLK2drQouw9IYOFXKFUFrnuv+Q5XPkxPrRlk4JQU94
r9akqxjvyvO4xt3DsEl3/QecfYEZs/6Wed0C0BXQbrdrctC0V9Oa0SoA2kMX
xml7DvKM6MGTPAHYUXNKIoo4WOyU/l8/tgCuS+6Nb/F+ibePy/Upewtg5JOr
5fF+Lm5bSm4SLA1BcezjCmZjBfa6ZvgNbB8CNnOzrWNLJR5rO2yyIZsPUxfl
QOdzJfosHFn5O5UPxp5TuisLlbhZ1bTq1i0+9DvVyORoV+HvWhd09Pz5oLbX
i/f1ehWaN1426rDiQ9JiwY7Efa9RWT14uHJmEKKDcU3Ho2p8Vfu+qd56EC7e
cG2yC63DINMvMufXDwBd1UZO6X4dxjJ8ey3kBkDm2QHzD8V1uFlSJUSfMgAP
2lXrXIfq0Oyel9S6sX5oU/5U5W1ej9GpgTI/VfeD/iMnbrhCA3pv26Hcc7kf
Jqttc7n3GvHe256VxJ4+uLJsErGl+G+sWBwP6Y3oheRsj+Ckijco2F9CSR/8
CAnXKH3Sve/Q2uS8o3n4P5D71DuqS/wea6aY6d5FHZBs+SS+qbULnat23U/3
fAsayq/Ks0e7kUfbQq848AYYeXbqh7360I0KRcHTLRB56Zk8q6MfX+0IqErk
N0Fy52WZzJOD6F4jd8V9ph7ujmvsPPKGj/lGhxXWRNWC2wO4MH9yCAf91Edy
fqoG7lJVi51QgEfTzx2V0qsCiqK+615HIV59SBn2ZfFgw19SlI38EQywKVux
5VTAxs11bSEOY/j8Tlb95yUuDH8vLhwUfEG9HD9rbScOMF5f58z4jqNhXvJN
t/+UQuPaYGaTzwTazxpo2CsWw/sb06lKNDGS9dvtGDpF8MvAcQftSTH+OOor
Xx5XABoKAew7jyaxdeu0rJpVPryXbg4IuDCFvLIUm/aQx7DyUVG4bds05n+e
3DOqlQsKf9zstRmfRhPNSw6crmw4O/mXZ9vzGaz+cW84u5UNOw/yo6jnvqKz
hn20YH0WDLsd2PnR4Bu6ZowpyrplwrpfYi+dGf2GZbIJ4dCbAWHb48zMMmfR
IC3uk4tFGvTUNLD/PDuH537eM/JrRSrk078lN6rN481hy+mS+GQ4E+i84deh
eRxsN1RbdTEREtIKtN88WECPyjZZi7Q7IB1f3nbbcRFT5pi3/Rbi4ZTd0kqj
6hIqbRyoyXCJg10iw7rmziW0c25XX567BeP2aUrmGctI6H59ooaxMJFQPqt6
egX1IhUPClujodjBc0+3PIVkJPQbrSmLhNMNMVxPXwr55be5FEZeOLTmPpZ2
aqGQEXPxk9FD18FlZmu6n7YE+Y7a4RBmEwq92ZyrVjESZEnGudYb3GBQqTXd
FDUsQQbQbFZWnwwC7aSC+a0jEmRqgHqk8bEgMPL8rpM3KkF+WNO0O+BoENjK
iWJmRRKkfbWhzIRZEIT/fHfeY0aC9LdssZ8xCILxzsEOU4IgB7c/GT4jGQRV
gqAYSRWCvO8ycqjIPhBaOSMeD1QJMp5Jf5tlEQifoo6a0DcR5OslX/8UCISv
OlrzflsIMvShilycdiDo+LR6DGoRJJfyWKFwiQV3ZlVNqnYRpCTnGeN5Ngsy
GyLUTuwmSKdZKvvzPRbkp4rn5mgE2SySpqjEsaCBXlNgQCfIUwlGBXd+Z8Fy
kLdapjFBahjSaksOs2CVXecc/SBBLknrTkmbsoCqjh3/HCLIVam71p3YxwLD
mnUxa80J8gnthKaSJgsg8ZrHEwuCzCW8lK5+zwIrD4GxmRVBLhNuU91rWXCM
ZqvGtybIpMKKMoYUCzxky+YCbQiSqf3tfMnCNfgXrb22Rw==
       "]]}}, {}}},
  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, 146560.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772116037746253`*^9, 3.777211679178667*^9, 3.777211758496773*^9, 
   3.777265947617327*^9, 3.777266200731959*^9, {3.777635811590294*^9, 
   3.777635819882241*^9}, 3.777636601876087*^9, {3.777636748500458*^9, 
   3.777636774618939*^9}, 3.7776368286415753`*^9, {3.7776378926487846`*^9, 
   3.777637904924084*^9}, 3.7776382877073665`*^9, 3.7776387000444574`*^9, {
   3.7776388066242456`*^9, 3.777638831312989*^9}, 3.777639036486292*^9, 
   3.77763925411348*^9, 3.7776392929535313`*^9, 3.777639326228836*^9, 
   3.777790159849206*^9, 3.777808675352439*^9, 3.7778088425589237`*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "C", ",", "T1", ",", "x1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"C", ",", "C1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "x1"}], "}"}]}], "}"}], ",", "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[{"-", "0.1"}], ",", "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[{"-", "0.1"}], ",", "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[{"3", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777211299890411*^9, 3.7772113011643515`*^9}, {
   3.777211598556703*^9, 3.7772116023270283`*^9}, 3.7772116851220474`*^9, {
   3.777265567305173*^9, 3.7772655682750626`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"C", "0.8604641752591241`", "0.014639498332444784`", 
      "58.7768894615822`", "8.135183096125934`*^-109"},
     {"T1", "13471.864877845652`", "346.214251487634`", "38.91193045912738`", 
      "1.5706831309599116`*^-82"},
     {"x", "0.8`", "0.`", "\[Infinity]", "0``307.6526555685888"}
    },
    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.7772116057792845`*^9, {3.7772116810584393`*^9, 3.777211685557845*^9}, 
   3.7772117604052906`*^9, 3.777265947679813*^9, 3.777266200794443*^9, 
   3.7776358226609*^9, 3.777636603546616*^9, {3.7776367505120115`*^9, 
   3.7776367765820117`*^9}, 3.777636830769614*^9, 3.7776378948762083`*^9, 
   3.777638288066657*^9, 3.7776387017065487`*^9, 3.777638832685326*^9, 
   3.777639036564399*^9, 3.7776392541915874`*^9, 3.7776392930316377`*^9, 
   3.7776393262913218`*^9, 3.777790161193736*^9, 3.7778086754305468`*^9, 
   3.7778088426214085`*^9}],

Cell[BoxData["0.979640230899866`"], "Output",
 CellChangeTimes->{
  3.7772116057792845`*^9, {3.7772116810584393`*^9, 3.777211685557845*^9}, 
   3.7772117604052906`*^9, 3.777265947679813*^9, 3.777266200794443*^9, 
   3.7776358226609*^9, 3.777636603546616*^9, {3.7776367505120115`*^9, 
   3.7776367765820117`*^9}, 3.777636830769614*^9, 3.7776378948762083`*^9, 
   3.777638288066657*^9, 3.7776387017065487`*^9, 3.777638832685326*^9, 
   3.777639036564399*^9, 3.7776392541915874`*^9, 3.7776392930316377`*^9, 
   3.7776393262913218`*^9, 3.777790161193736*^9, 3.7778086754305468`*^9, 
   3.7778088426214085`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtlQs4lPkawL9RnYqzLdtaid0UhT1ro+UgyjtPkQ5CoohOW80uWnJdWlum
2FbJJZJLGUqlHOt+KVIzUlK0cotDJzNDxn0MM5hhZk/e/zzPPN/3e37f//3e
//u+/+fbeOzUfoYSRVG5//9/vC79mMGAN0KbpQs7BYIzi0q0tYaRk3PheWWG
x48Lg8TnQ5O+dfa/0/nIwiIQDH2TdW6Ui6xaDoyAGS17Vj/yvSqIq5znR371
HhlqQG7v/1Rk+A65uw4Mw02U/Rx6kR+w4eoEY71I9S1ybD20VSQcLXxO2KUB
Cu+u5q3I6ELWfg6yWaNHdqxOZEEjpFyOLQusbEeuaILsagbvn6/eIDNfATiU
8vIKCTu2wGT0WTOv+lbkdX+CRfmA+8/+r5FDWmHthS1uUwziD72BzUl6p8tn
mpF3toHUWqfscM9LZL128Gt+KEw1IazcAdzlnIKiqRekXh3QsyEnOjf6FXJX
J+w8+WJHaSrxj7pgx9G281Hqz5BvvQXzqyaaB+QNyHHdEJGpcbNrVSNyYA84
x1RzdJyJP/Bf+NSjb3fQIgd5ey+4RPgIFO5PkXX6oJYXXaDVSfzf3oE8409W
nm498tg7OLTdPD5okY3c9j/48oeQHf7jT0h/3sO2YdnR67k1yM79kKasWBi/
+Bi5vh8UKr3h9/mPkM24IHLO1kjdQ+Ld48KHsjWxvwbUIWvxoNjJY47bUIuc
yIMR88RlqlbVyDQ+xDPtjV0sHiCH8UEtLcNJ/wx5fogPi/oKtdgg8rzXAJyk
ZFv9WRXILQMQ9tlhloNnJZm/QThn3V1sMEO4fBA+a8t1q/Ak8bd8AM2Cz52B
qkLO/AAxklX8gXzCfx8CHuv7l5oGhKOHYHhTlKjkTgGyaAi0rzWvDZcXIjME
EBV3ovQCg+TTLYDfDn4SZikqRnYYhnv1Fc9uJBL/eBj89vK+fLqqCNlkBAKs
Gk5PPC1Fvj0C4g017JrZfGSNUdj/4rpBXVUZ8qVRSFIJ5R/7g+SzOArj1ez6
Xm8SL2gMIszEuyw3kvz4Y6B0QrvMz7cc2WMc4o2P2M3cJ/GbxsFxnhG6nk6e
t56A0zlWCZl2hIsnwKWnsdVFeBN50yRciftCaWjyFnLaJLg+W/WFm9Ft5OVC
OHhwm5udNubD3CGEm161jXXTWegjhMDRUHtt7P8f9CVCyB+ISZPUk3xGhKAU
b9rqy7qPXncK9A4f+ce26bvofaZAUNtYW7Oa+GtTsMdDNTF1XR761imwz3Vo
c3In8VeLoOH4GZuoS2Q/u0TQtKZ89jsBxmP+KoJK7ct/xG4n+6kSQbhNJver
WxnoJ0XA9Xt8x0+dvN9wGgx/kzVveo/7ZR6bhq8zTVa6HU9Hf2MaBI+9Xuul
4n6YndPwJC1nv/cVUp9PZ6A5yyZZZ1kOevsZWAFrtqw8k4v+/AyoZ0/mxIee
Q187A8et7SZ7a8h68Qwsv5O8NcAsE/23YjD5qf27n5quofcVgzY7qoryxX4x
b4ph7cfjkUb61ysG+2++H11ZzEL/uQRGbTWVORpX0O+TQEVHfHmJMs4X83cJ
aO5pSWIfyEbPkYD0ljTGdg3WiymVQMd4bqA4lORvOgu8ZNfKuipkZsAsGKSq
8M66kP7nz4Itr0hfqxTfx+yfhc0sNcbOiMvo189B7CZ/54vvSX3c5iD9YZnR
A3fsB5UwBz3jiQFeErL/53PQ2/jyzqMU0j9qHhwf2jpG2qWht5yH34c+8eW6
kvxC5yHc6b7kl7Vn0RfOw22jU+Lgt0HoP8zDaAfHbFAagn6DFAJC7nrlJ5D6
eUpBvi9lY7daCvoUKaTUPdySrpSKvlkK27SH96paXUC/QgYPDn3rrd6I+VI2
Mvihd6vPmOgq+kgZ2Jaw1Dv1SX5lMnDSDI5kG5L5GpVBqEXWwZ0G5P2bF0Cp
oXnMux/7wTyyAPsmOZ2m7CT0GQvQx9GitOhYb+abBTj58WvMIfOpsgie1T7R
iQqsN3P3Ivn+b0Z/dhGisgaKo4LPo69eBFfL6YWMdpLf1CJ4eR5ndilw3phf
y8HagVNg5J6M/oQcfNpHVHR/IfXPlkNM5/W5E5oX0b+Vg3RZXNqP6aQ+qgrQ
0S0NG0wj9fuXAlyNS3cnzHk+WfIxClD1M+eet8V8qDoFDO8S9BmbkvMpUUB7
ce0Vywukvuso+t6+n2mFOkeWmG1K0fm+3uykU2QeXSm6gDLL0ytRWooPgRS9
oTjEJHWYzFc8RfdYcBt6NoDnj51P0VsLSxU3rMh+Gyh6eCZLkBJyaYmBS9Hf
rdaWTgThPFByio7zgfmy19PoScFOlY48ch7NafQMj5OBFgXRuP4Ajb4rTzi4
35uJ64Np9OVFbUORqsjsBBpdtz6LJ27B+jALaHSLdTwXk8R4XN9Io7dodd8V
hCFTAzS6KaP+nvBNhs1fMGSKiQ==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVink41IkfgMdkESnJFaGSJFai1mzh8/kiRxpXEatWRKOiKKXaqOQMHe5U
ouSq3HJrjNBQ45zBOIbI2RKSK/Xb3x/v8z7v87xbXM7buJFJJNKz//i/X3pQ
XLgbTkMqZdZjMHQCfJWiepZJJmgwo37aUX8CBJx6C5mko7jHeevyI8EJ2MEp
qbyDzphj81dGHmccWD/IKbkkGuoWn3ximTkOF5WogRy6B1LlBru8/cdhzYtG
bX/0xoqbiaeDbcchv1FSOpXkiyLhMZK7hMaBn1cmVNx/FT+afp49PDgGR2ec
lpj062iItvL/vB0D/zXsSV+8hU4vAnzdro3BNm3F1iekELyncUz35cIosCqm
D6Z7hWL5JflVBV2j4Gv8ria3PwwVydmWeuWj0OBwuqiGHoF7bz+bLr8xChS6
wwcffICiGcZC5aKj0Dv8PCeRFI+/icncENs3Avlqoh5PS+KxQfKQ9cjmEQj2
urwj1SsB+ymL4iShEdBcMk153f8Qw1dzXk5xhiFAdDKKTn+Mkivaa+J9h0FC
dtP+i5iC2T4F1UzGZyjFUwoPSem4pJ35OPXqEMiYFdHtXdNx+Hf3mNeuQ3DZ
mv+kzPt01Jxdz+i1HAItl2fp8fcy8MHJz7vytg9B1u0+zTiFLGy3TQjYwBmE
xDo7w2jd1zgu82cUdf8g6KcpFRpX5KH85/mEgE2fwHOnedD2yTw0qpFt8RP5
BI+zL9gJbM7H7A3856OWBmDpTfVC7e18DHNYWyHQNQBv6p30DpgXoICzp7BE
/ABojD2qM+QW4uo2GZ0w6QFQVJfowoViVPq5jt92Rz+oj1Dut24vQQ0zB8kl
2X6gPDtu4mpbghn5xZY5ov1gI5NeFJL/Xxdr+EQP8yCQf18Uy6MUL4YM5Fzy
58F4j5P5sYEyfC+b7Dlc0AeFkS8rfRsq0V7y/tRX7V6gmzb7rF6sRKKsyrBt
Uy98XDWn9kilCg8Hn1zd9FsvDF/VT6wKrMKWSTEd8c4e2Hiq5fJv8BZp6X0O
DL8egKfL8UwHOkpu30V58bEbUn23WB9lVWMk1eYuzZ8Ls+eFQe1zNRZRU2vu
neGCgfus+q/lauxa3s9rtOPCgH2tULoqA8/9VLO+sYsLCvtO078HMvCkpfpI
00AXxP/I3RW3vwbzU+dnf5p1wZ1buJad8Q6f+RWqc1U64Xy4U6PN7Xrs1pKa
cZbggK68pbDU43o8JWzYcXoVB4Ry9M26Cusx9Q7XOmCGDcmt8vVOw/WYfF/o
9VAzG5o39jA8zN7jlprLkR532aCZYV8WvI6JUd6LkpfXsGHmnXVm2aMGDNzb
GzOwoR0u/zQM2Vr4EUc5bM7GQ62Qp6ZVqt/4EWW0VAqjoBW+2G+e+OvTR/ys
Vykhpd0KLgU/LKLFWKhnqr9bV7YVLNyLpPg9Wah9TS2Of6wFlFu3p31WbkKe
/xm966EtMN4a6NJu3ozdCZkt5axmSEij3YqvbEGbs7qH0r+w4NvqTwbyDS04
Z8o4FcBhgZXnMf7nnBasu6Di60VngdAe65DsqRZ04NNQCYphwZXqfZG1W1rx
YJHAnbt6LDjaI/pwNqgVb6VQxtZFfwQp8cJcS4s2zIjn0zIx/wDRfqR+QV47
6rycN371hQlHNNJ2Hp5ox7w/hw4JdjNBgmd+KWm+HU3YDW5eTCbEYLzwXjE2
Dj/Rf+iRxoS4VRp7XQg29v37JETEmQkJYY53Kp6zUWmXRXVH53tIin2zx9ud
g2OKViTL1nrIfO0Rxp3uQFmB9KOS47Ww+dUDqs1KByq5laSG99RCQtab9Q1C
naggzU0QaaqF0HRSYqliJzZ2q9vuKKyFUykxWQnUTrSIl6a0+9fCttiKRrvM
Tnxnuhg9KVkLydfXrG070YUOeobvvx98Bwnmr6Iam7g44nLOsoTFAFbckV/7
erioKmjiQmMwgP/Tj7NZo1y0U4nLUHzDAO8r1ANhfN04qro+5+UTBhx8MTlv
rN2NwZKl1ZqeDFj+qXmcEdeN/5zTWTMqyoC/84tUSo/3YFGbtzPbthqUN76t
SJvoxcehlz3Vf7wF8fzhZwbzveisGvJUeOwtkMzXhvWR+zD4gX3lHPst9Fw/
bisl24dvaPejZ3LeQlT/8r9Bpn1Iy8+/F+T6359BUXR70YcT6TwxoeYq4P6R
f0vJiYcMepDH/txKMMmyUbI63Y+aTTSeQ3Q5hPrkiPqzB7DNS/6860gxJHAu
CaWcGETpSJ7vbFAhxE4pax9uGUJG8sZb8h154JwM55ZODCO9rOadXUk2lK0w
WDZjI5gYKEc3jc4Ckrim076jY/iL7msnTqSDZJUASXpoHEkmra9tVFJBekt9
c4DdFyy1/CN2OiMFRuWm8wZH/sW0gqsrK+lJYFITWDLnPYWX6AfuqBQnQoPY
Ld9Gr68YIKP3/H5wPHSEf0uUokzjo8BlbnhQDDh+OmanOjONso89+2Mlo0B5
3bXUmIwZ7L6wzal7+R50CH64du3cLB58pOb4hT8CfnWLj6mofMO27FhWIjMU
1l2/y7Oc+obFNUm/t5UGwamZKvfmgjkkxbwbNJK7DdpGQ2EyZ7+jwD3bGxe+
34RRZ33t7t3z+IDCL8Xp8IMNjpE+bhPzuMi4GnP4xjUI2vnA1DRlAenrJDLV
H/pCXy0z9cWpRZT/lFTs3eYD2brzCQ0KSzianxEwGH4B3G44SJ4ZXsJZzlCE
zt9eEP0kV7UleRmTlAxunt3uCYJRFc33j/7ASxoP5USEzsBJm5VfDfIrGG2w
7CUnTIO9k1r1HzgreDWhve77A1eYsn0iZfb0J+pG8vut3+MCX6MrFuRdf+FO
+6yqeJUTUGjn/mevKIngXNH5YTZxDFyZEWXu3iRipU9P3S/DAZoyXwras0iE
49dFPeqcHRyf25Z0UZWP8HUUymIlHAFeWsmVQxF8xO2GMTUfaxvYVGesGDbK
RxhaR38/62kFqvG5S9vG+YjWi+FuPm5W8Ie7LIc+wUdIU7U5N49bgbXwZMTC
JB9B36hZ+IJqBcEWsUu0OT5CYuT8DkUNK5jiDLKNyWTiW0GKURLPEhgjNyP4
N5GJijGH3Tu/WEBTyTgtWZ5MLGtxg7V7LaAn7IihriKZSHXkHTdiWcB3tR1L
F7eSiWfPm25ez7UANa8m2uAOMpFRtfV340sWELMgb8jYSyZ0RRwq95MsIIUZ
ovC3DpnY7FbnUD5NhezE6cVFCpkYWBDeZzBIBaZube5uXTKhfG7+jVsdFX7e
9FBIMSATNUL9lFWRVBCx4SzqGpGJUo1/7lT4U0FGCdmdB8iEmFwfn58XFbRq
N0SImZEJIyPZwxuOUAHi/GivDpKJSNFQ5bEDVDhEGzEwPUQmmAXDa+t0qPAX
xVphiEomCoKCRLJUqUBbXb54w5JMRLQVScfKUeF/73fqCA==
       "]]}}, {}}},
  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, 146560.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772116057792845`*^9, {3.7772116810584393`*^9, 3.777211685557845*^9}, 
   3.7772117604052906`*^9, 3.777265947679813*^9, 3.777266200794443*^9, 
   3.7776358226609*^9, 3.777636603546616*^9, {3.7776367505120115`*^9, 
   3.7776367765820117`*^9}, 3.777636830769614*^9, 3.7776378948762083`*^9, 
   3.777638288066657*^9, 3.7776387017065487`*^9, 3.777638832685326*^9, 
   3.777639036564399*^9, 3.7776392541915874`*^9, 3.7776392930316377`*^9, 
   3.7776393262913218`*^9, 3.777790161193736*^9, 3.7778086754305468`*^9, 
   3.777808842684953*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define model 80-150K", "Section",
 CellChangeTimes->{{3.7772111618128347`*^9, 3.7772111683183928`*^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.8"]}], "]"}]}], " ", "+", " ", 
       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.8"]}], "]"}]}], " ", "+", " ", 
      RowBox[{"E2", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"t", "/", "T2"}], ")"}]}], " ", "]"}]}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7772117644764953`*^9, 3.777211771362078*^9}, {
  3.7772119410510178`*^9, 3.7772119470049667`*^9}, {3.777211998987328*^9, 
  3.7772119994249077`*^9}, {3.7772120553832693`*^9, 3.7772120565391655`*^9}, {
  3.7776358851566143`*^9, 3.7776359091321297`*^9}, {3.777636458888257*^9, 
  3.7776364629383335`*^9}, {3.777636535609296*^9, 3.7776365432745967`*^9}, {
  3.7776366092841873`*^9, 3.7776366320035534`*^9}, {3.7776368531613865`*^9, 
  3.7776368636821604`*^9}, {3.7776379170470734`*^9, 3.7776379216579995`*^9}, {
  3.777638839269478*^9, 3.7776388417698736`*^9}, {3.777790186150742*^9, 
  3.7777901892309074`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 80K", "Section",
 CellChangeTimes->{{3.777206482358142*^9, 3.7772064844488993`*^9}, 
   3.7772111102280087`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_80K_Tm_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[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", " ", "=", " ", "80"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "8000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", "=", "100000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"E1", " ", "=", "0.9"}], "\[IndentingNewLine]", 
 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"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", "\[IndentingNewLine]", 
   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[{"-", "5"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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[{"-", "5"}], ",", " ", "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.7772065007579107`*^9, 3.777206588677057*^9}, {
   3.7772067370525503`*^9, 3.7772068759789143`*^9}, {3.7772069378498306`*^9, 
   3.777206959622529*^9}, {3.777207139567524*^9, 3.7772071425824404`*^9}, {
   3.7772082348705387`*^9, 3.7772082406617727`*^9}, {3.7772119573507347`*^9, 
   3.7772120145217056`*^9}, {3.7776359124591527`*^9, 
   3.7776360300972805`*^9}, {3.777636494934334*^9, 3.7776365240296755`*^9}, {
   3.777638393317049*^9, 3.7776383965023537`*^9}, 3.777808757570869*^9, {
   3.777808790473571*^9, 3.7778088002223253`*^9}}],

Cell[BoxData["0.9`"], "Output",
 CellChangeTimes->{
  3.7772067849273853`*^9, {3.7772068361472487`*^9, 3.7772068763080673`*^9}, {
   3.777206939286452*^9, 3.7772069709808645`*^9}, 3.7772071448193784`*^9, 
   3.7772082439194365`*^9, 3.7772117736420794`*^9, {3.7772119490823646`*^9, 
   3.777212014802865*^9}, {3.777212045963996*^9, 3.7772120581347666`*^9}, 
   3.77726594786474*^9, 3.777266200997533*^9, 3.7776359174993815`*^9, 
   3.777635960140216*^9, {3.7776359927838783`*^9, 3.7776360303705573`*^9}, {
   3.777636465369814*^9, 3.7776365451590433`*^9}, {3.777636614873166*^9, 
   3.777636633894603*^9}, {3.7776368461611032`*^9, 3.7776368652853804`*^9}, 
   3.777637909262663*^9, 3.7776382882541122`*^9, 3.7776383969568396`*^9, 
   3.7776387062016125`*^9, 3.777638843918113*^9, 3.777639037003147*^9, 
   3.7776392546133976`*^9, 3.777639293203472*^9, 3.7776393267287464`*^9, {
   3.777790171552392*^9, 3.7777901910337286`*^9}, 3.7778086756064873`*^9, {
   3.7778087858921175`*^9, 3.777808842809923*^9}}],

Cell[BoxData["0.1`"], "Output",
 CellChangeTimes->{
  3.7772067849273853`*^9, {3.7772068361472487`*^9, 3.7772068763080673`*^9}, {
   3.777206939286452*^9, 3.7772069709808645`*^9}, 3.7772071448193784`*^9, 
   3.7772082439194365`*^9, 3.7772117736420794`*^9, {3.7772119490823646`*^9, 
   3.777212014802865*^9}, {3.777212045963996*^9, 3.7772120581347666`*^9}, 
   3.77726594786474*^9, 3.777266200997533*^9, 3.7776359174993815`*^9, 
   3.777635960140216*^9, {3.7776359927838783`*^9, 3.7776360303705573`*^9}, {
   3.777636465369814*^9, 3.7776365451590433`*^9}, {3.777636614873166*^9, 
   3.777636633894603*^9}, {3.7776368461611032`*^9, 3.7776368652853804`*^9}, 
   3.777637909262663*^9, 3.7776382882541122`*^9, 3.7776383969568396`*^9, 
   3.7776387062016125`*^9, 3.777638843918113*^9, 3.777639037003147*^9, 
   3.7776392546133976`*^9, 3.777639293203472*^9, 3.7776393267287464`*^9, {
   3.777790171552392*^9, 3.7777901910337286`*^9}, 3.7778086756064873`*^9, {
   3.7778087858921175`*^9, 3.777808842809923*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxNkws0lHkfx59xeyVUG7n2iqVNwupQbNLviWi9bqXkXkvsHm/CUnl3pSmR
tqh4iaxWrRa75VJRizTKZa1cppRLlPt9mBlmBmN42/6/Ped9zpkz53M+v8v3
/39mdAPC9gdJURSV8+Hz1/fHhxkB1P8/rBSoroiTTTZ5/vQjX82B/nvF/w5a
aCTMyoMi/qo7/ftaCHMLwfhViM7N9A7Cqx+AgabiOzG8JZxfBgG5z64Nn3pP
GMqhhp2w+cCJPsIdT4Bj4fH1pHQ/4ccsuNOwrS1DfpDw+WewdfDSZObGEcJu
NXAsrWDWzxlZuw5c9mnTuU5jhEfrwbHU55zdkQnCDxtA5aSWrqE2hzCzEaTy
qJLEnknCTk1wqcS3x9ByirB6C1gN2vtwa7iEv20FXdOgzsqr04Q92VDpe9OB
bckjbPMSTp2NrwytRtZ/BdphijqXZWcIK7TBKoN0QxuvWbyvNlir5McXh6B/
8xqaO86aumUgV74BF6WdRRlOAsK320Fh7MazDhXkxA6o3tHUFuwjJHy8E2bt
8x84NooIH+gCh9rUWql36L94C58ZP5gyisL+Dd0w5K+adHvtAmG5Hmguiv1u
aHiO8GQPqGU0B3KMkF++g5/51tZ7NbD+8XvwKQmMXrcoJuzaC83yLl0Teuif
9ULI4kNLeRrZog/Kubamzv7I+X1wMca9av3lRcJa/bAnta7RrRt9cj/Ij+j+
08FdQpgxAJcOn8hIq8V9UQNQFjJqfEYZ+0cGoNAt3qT8KNZ7D4LmbifXSsYS
4aZBmOjfIidvgwxDsMflglew+zLhB0PQw/f683oug/WRNw5Dqo4BT0GLIpw5
DBfuOZozsrBfcQS2JW2LZWgjnxkB5y41s+EGrOePwNCVgLIGIc4PGoWafGFv
lwbWd4zC+WS5BPZ75H+NgW3Tneign3B/1RgI0sfScqLQm43D54LdWZlHcH7u
OCjrjYc3WCGrTcCKnJfFJ0qRf5iAUP+V5ZFlyJIJ+HZd4nXfX3F++CSYHS8N
W1uFfmASXglctluNovfgwPke12BuvDThBg7Ie1uzMqvRW0+B1eX7k//9O2/R
FKQeiSnQTpQirDcNm+JrVcc8kNOm4WDr9a7fbZBluPCf162nG7TIfOZOLigW
XJUdCEV/iguHAy8WHTxKmFnMhbbEonPabMwzzgXHH06+lvmD7Gd+yoPpjqe2
fDvs9+PBCwv2pHINzk/ngejkeEryYRniW3lwo33S6Xgs+hV8uJKns0ZFFftt
+SCjaa3l2ov7Y/hwyJNn7+CG+8v4MKBiblGnhP3TfPhJ2lTudC16wxmIHpRN
qogk+5gBM9C5f15dwQf3/zgDy/ExKRFm6F/PQJbmlr26j9GvmoUanyu//HZT
jvi9s+Aiv3VD33Z54s/NgrNSi9H5cVniK2bBR02ovqkIvWAWOh4mne2+9Q/i
TQRgf/exy5o4Uk99I4Cq+sT2LVI4/5YApIurP9l4Hf1bATyf2PWZoj2Zx1QR
wlT3rcw3zehdhOB1co0JIwL7LwhB7dHlO5H1uL9aCDPlClu3iDDfghCeJ3S6
f7Ge1FPmIvhN4Ba2WQnPHyqCesfq7L6rJC+VJwITH76lZwnO7xWB6k6ruPRg
vF/NOUgQVwnl5NC7z8EZnfAEfQ7OT5qD0XSLzVXrFYmvm4Ob911ddxVgfmoe
wkQa/nIC3G81D+23vcMXJOgj50FwABKXDfH+7s4DY9uYVmU3zh+eh1tCG8d2
IwXidRZA+8vdUSP3Mb/XAjAu8uxKW7A/ZQH2ZJVZfmlL6qkXC2B37WlMuf4K
4mXF8Ke4c4efHfbvEkPhDb22F5iXGS0G9w3erp37ST11XwyRCsbupwX4fibE
oOPizPYU4XyDRfhcatbO1wfn+y9CYEEx03gYz5exCFmfaPhW+GM+9iKIpNfT
5dH4/lZKIOJrZvs6Cd6fnQQ8ymJX76jG/bESaClhclT/Pv8jCQR7mEV52mE/
TwJj6/w7Aw5ivs1LYCCv7dq9ZiXxR5fgVF6smuox3J+99OH/KUmNj8Pzt3/w
Rd/rZ+coEb96GTT6pRIKFtA7LoPfiGTnCkXcH7cMFVJdQzP4e6SeLEPEk0cb
w1Pw/MJlUDatboKV2K9O0dmcre2nc4lnmVP07Xa/OqUoko+5j6L1772VSWsk
+eE4RQf6/mJ+xgvzX6LoPTN3Iy16yf2w8ii6LEXXKJ+N91VD0Sc4G0pVjpF8
0EfRPNVNn+bh+6CWPuwPtTh0Q5nMY2ky6EI39eJvtiuT/u0M+qtCg/m2JHJ+
OMCgD/VGzbzfgf0RDDpZ/5yD8Y+knpXEoK/ptQreheD+Xxn0qpgM1Rp77K9n
0F0ptHdiI+YfZNDC7AyOoFCJ9T9O3owA
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVxXk81HkfAPCZX8P4id1WS2oda2mNZXtEtVMpnx+5ytVsyKMo0ThmHRFP
VqKUSHKFvJ5C7hzrGDVr8f0+PJKbysi1jrE5H5aHGiPs8/zxfr013P05ngSN
RvP6n/9fwmO7D+70Nh7ew7v39ea7hlDN5OF1mgWgS5bHXabjkLTbCL+V5gS5
K3QfVV46YgkF9XFwEapidR7e3p+Nuj4RORU0LrxR21dPXchDQZo20ULMgy0/
3vDG2SIkl99uGAGBkB9mLOvLKkVV7Yq78mih4Prbmno0vxIxRmtlXoxdA5eI
zhJRYDVyWnaTtOJwuLnuIV7UqkERcn0LoRAFu53DZdMDBEjLUP31Y1oM1Of7
H8iqbkBddUsnCwPuwjio3Nrcg1Go+b+bKsZiQe8Qx6hqAKM2Z++aJhwPCUM+
cqb2jYiNnTuCIQlcS6cHfPc2o5H3ub9k0tJBoM0Zar3Zhqp05XlZgnTQKGbk
+rHa0Z2AEFZeQAYgVnCPqKMd6Ussc8rGHkFt13s/T4VOdFN+IRnjf4JcXsnV
ysRu9OUelaNBkANZP7ZsGOq/Rr/CZbVHtEKYWDw3M/9ciJStavBZj0KwJcLi
Aol+FHKacUn5VSFUByX7P7HpRwbuTwvTHxRBeHNo1YeJfvTs1u/6aWrP4Hb/
K72X5ADKfOlommJUBqOtZe5TlkPoeIEm37yuEthjE6yXKaNIXe/LARC/gKjS
pdzdWIT0ptiJr78VwHTSuvuRYRFiPz1v4eEggOWijGwLsQhxlAtrYqoEELLr
mRJLfxJFM44kd/F+hYjuP6wZWZNodtjt1LnxWsgX33A1vfYH4t8vqQ9tq4ei
p4V+KV9PobxQjdNOXf+CC4X6noeMZ5H/Pbd2zq0WEFg9IYT1iyhk0zTmG34n
PJKN2xcesowyCrhR6fW9YHFso0w9dQWlXKeNMUffgua87Uhm+gdUXMaLHVzq
B+Kh/ZDqGTHKOFWa3N49CCY1Pc9Xm9bQ3t2ormBuBOJN3BujtNeRxTOOpr33
GKgebaqft/+E7gb/Ih/RNw5Rfq9Eus4bKEN4VSbnggiaCvCSiusmeri41/DH
3kmwMfZRsDy2hS5mG/tJLryHIiWrMNfPaLh2o7GLMzMFrinSQ1bBNExT0Hc7
4jQDDio/a6Z20rBigzRt1+QsRPXhBEMdOt6l0dJz03Ee8tx9tZ+G0fH0V0uV
oqn/wM78/Lnvu+nYoilasBq4CGFXyg4oqRO4bUdUaHvAn0Bz/1uYA5fA/fdW
MpXYS6Ddc/1KajWBXSbOOeosL4He4UWhxhqB934elpdatAwPzm8cII224X5m
R1iY33+BP15U4X1rG94aUpjR1l4B6W2fchSat+HPwxNG7RZXYHBZdrvbdga+
vNzg1VO9CglKbmaFdgxseGIyVtn3A0hW+8fbEhh4+uJxw6H9H+GA8YPcxtcM
vNPlfrDn3EeIPHG3r+sLKXz7uyRLyxwxSH0Rp2ZtJ4V/b27Ny7+8Bo5FOjsE
SVK43OhjRpuaBJI7ZmqCuqWw5w1nRZ/3ErC5PH5MW0Eapzyu0OnNXgej5t1v
TOylMTO5rifR6RP08e82E/el8SXOxlab6gaciT9T0NwljQ8uGLR0CDdAXXHL
XFaOiRcdHitZZW0CM0qq0sGWif9MqROremxBgKxUv8MDJuY7eh0ekadRVXWu
2VPtTOzRGl/rFUij+MTcVrS8DO4uLmGe7aJR7iliXu1JGXx+VetJkA6dygmb
eFF5RwaPFgj+YR1Pp7IvZjq9aJHBKi/N1WOn6VT+QJfEhUFinfQKidYsnaL7
M/k+UiQ+5LVHiOfolEJUA++aNIlPyy7EixfolJtv8XCaDInv2D6UcFfpVFr4
z8975Ui8KBT1mRMEJRKf5VgokrhxKjKeoUJQV8z2f2/wLYm7BbPcbFWC4qu8
E4I2iYdjz5gaqRPU2xhmpB2LxB90WZKgbwgqzpbey/uOxLoB3VwRi6DuM7x/
KtxH4lSxqmnjQYKC7FOJKj+QOKc1Rs31B4LqDM8y0GWTuDxzaW2NTVCBxZFv
Dx8mcatRc8V+I4LS+2peyekoiTcjeWo5JgSV6OeflmRM4u0c4ZrRCYLyHzp4
MBtIrKwJfe/MCKpcdO9NOUVig+ad8TusCMpseuqzDlMSG6dd55aeJCitqwsl
gydIbM2dMrG0JqifGm5bzpiR+O/s02qTNgQ1v7188qM5ibnkb2s37AiKnc+N
lLYk8V86DjS4
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVxXk81HkfAPCZX8P4id1WS2oda2mNZXtEtVMpnx+5ytVsyKMo0ThmHRFP
VqKUSHKFvJ5C7hzrGDVr8f0+PJKbysi1jrE5H5aHGiPs8/zxfr013P05ngSN
RvP6n/9fwmO7D+70Nh7ew7v39ea7hlDN5OF1mgWgS5bHXabjkLTbCL+V5gS5
K3QfVV46YgkF9XFwEapidR7e3p+Nuj4RORU0LrxR21dPXchDQZo20ULMgy0/
3vDG2SIkl99uGAGBkB9mLOvLKkVV7Yq78mih4Prbmno0vxIxRmtlXoxdA5eI
zhJRYDVyWnaTtOJwuLnuIV7UqkERcn0LoRAFu53DZdMDBEjLUP31Y1oM1Of7
H8iqbkBddUsnCwPuwjio3Nrcg1Go+b+bKsZiQe8Qx6hqAKM2Z++aJhwPCUM+
cqb2jYiNnTuCIQlcS6cHfPc2o5H3ub9k0tJBoM0Zar3Zhqp05XlZgnTQKGbk
+rHa0Z2AEFZeQAYgVnCPqKMd6Ussc8rGHkFt13s/T4VOdFN+IRnjf4JcXsnV
ysRu9OUelaNBkANZP7ZsGOq/Rr/CZbVHtEKYWDw3M/9ciJStavBZj0KwJcLi
Aol+FHKacUn5VSFUByX7P7HpRwbuTwvTHxRBeHNo1YeJfvTs1u/6aWrP4Hb/
K72X5ADKfOlommJUBqOtZe5TlkPoeIEm37yuEthjE6yXKaNIXe/LARC/gKjS
pdzdWIT0ptiJr78VwHTSuvuRYRFiPz1v4eEggOWijGwLsQhxlAtrYqoEELLr
mRJLfxJFM44kd/F+hYjuP6wZWZNodtjt1LnxWsgX33A1vfYH4t8vqQ9tq4ei
p4V+KV9PobxQjdNOXf+CC4X6noeMZ5H/Pbd2zq0WEFg9IYT1iyhk0zTmG34n
PJKN2xcesowyCrhR6fW9YHFso0w9dQWlXKeNMUffgua87Uhm+gdUXMaLHVzq
B+Kh/ZDqGTHKOFWa3N49CCY1Pc9Xm9bQ3t2ormBuBOJN3BujtNeRxTOOpr33
GKgebaqft/+E7gb/Ih/RNw5Rfq9Eus4bKEN4VSbnggiaCvCSiusmeri41/DH
3kmwMfZRsDy2hS5mG/tJLryHIiWrMNfPaLh2o7GLMzMFrinSQ1bBNExT0Hc7
4jQDDio/a6Z20rBigzRt1+QsRPXhBEMdOt6l0dJz03Ee8tx9tZ+G0fH0V0uV
oqn/wM78/Lnvu+nYoilasBq4CGFXyg4oqRO4bUdUaHvAn0Bz/1uYA5fA/fdW
MpXYS6Ddc/1KajWBXSbOOeosL4He4UWhxhqB934elpdatAwPzm8cII224X5m
R1iY33+BP15U4X1rG94aUpjR1l4B6W2fchSat+HPwxNG7RZXYHBZdrvbdga+
vNzg1VO9CglKbmaFdgxseGIyVtn3A0hW+8fbEhh4+uJxw6H9H+GA8YPcxtcM
vNPlfrDn3EeIPHG3r+sLKXz7uyRLyxwxSH0Rp2ZtJ4V/b27Ny7+8Bo5FOjsE
SVK43OhjRpuaBJI7ZmqCuqWw5w1nRZ/3ErC5PH5MW0Eapzyu0OnNXgej5t1v
TOylMTO5rifR6RP08e82E/el8SXOxlab6gaciT9T0NwljQ8uGLR0CDdAXXHL
XFaOiRcdHitZZW0CM0qq0sGWif9MqROremxBgKxUv8MDJuY7eh0ekadRVXWu
2VPtTOzRGl/rFUij+MTcVrS8DO4uLmGe7aJR7iliXu1JGXx+VetJkA6dygmb
eFF5RwaPFgj+YR1Pp7IvZjq9aJHBKi/N1WOn6VT+QJfEhUFinfQKidYsnaL7
M/k+UiQ+5LVHiOfolEJUA++aNIlPyy7EixfolJtv8XCaDInv2D6UcFfpVFr4
z8975Ui8KBT1mRMEJRKf5VgokrhxKjKeoUJQV8z2f2/wLYm7BbPcbFWC4qu8
E4I2iYdjz5gaqRPU2xhmpB2LxB90WZKgbwgqzpbey/uOxLoB3VwRi6DuM7x/
KtxH4lSxqmnjQYKC7FOJKj+QOKc1Rs31B4LqDM8y0GWTuDxzaW2NTVCBxZFv
Dx8mcatRc8V+I4LS+2peyekoiTcjeWo5JgSV6OeflmRM4u0c4ZrRCYLyHzp4
MBtIrKwJfe/MCKpcdO9NOUVig+ad8TusCMpseuqzDlMSG6dd55aeJCitqwsl
gydIbM2dMrG0JqifGm5bzpiR+O/s02qTNgQ1v7188qM5ibnkb2s37AiKnc+N
lLYk8V86DjS4
       "]]}}, {}}},
  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, 146560.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772067849273853`*^9, {3.7772068361472487`*^9, 3.7772068763080673`*^9}, {
   3.777206939286452*^9, 3.7772069709808645`*^9}, 3.7772071448193784`*^9, 
   3.7772082439194365`*^9, 3.7772117736420794`*^9, {3.7772119490823646`*^9, 
   3.777212014802865*^9}, {3.777212045963996*^9, 3.7772120581347666`*^9}, 
   3.77726594786474*^9, 3.777266200997533*^9, 3.7776359174993815`*^9, 
   3.777635960140216*^9, {3.7776359927838783`*^9, 3.7776360303705573`*^9}, {
   3.777636465369814*^9, 3.7776365451590433`*^9}, {3.777636614873166*^9, 
   3.777636633894603*^9}, {3.7776368461611032`*^9, 3.7776368652853804`*^9}, 
   3.777637909262663*^9, 3.7776382882541122`*^9, 3.7776383969568396`*^9, 
   3.7776387062016125`*^9, 3.777638843918113*^9, 3.777639037003147*^9, 
   3.7776392546133976`*^9, 3.777639293203472*^9, 3.7776393267287464`*^9, {
   3.777790171552392*^9, 3.7777901910337286`*^9}, 3.7778086756064873`*^9, {
   3.7778087858921175`*^9, 3.777808842872409*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Section",
 CellChangeTimes->{{3.7772066150721135`*^9, 3.777206615306275*^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[{
  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[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[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[{"-", "6"}], ",", "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"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"4", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "3"}], "]"}], "]"}], " ", "=", "  ", 
   RowBox[{
    RowBox[{"nlm", "[", 
     StyleBox["\"\<ParameterErrors\>\"",
      FontWeight->"Plain"], 
     StyleBox["]",
      FontWeight->"Plain"]}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"4", ",", "4"}], "]"}], "]"}], " ", "=", 
    StyleBox[
     RowBox[{" ", 
      StyleBox[" ",
       FontWeight->"Plain"]}]], 
    RowBox[{"T2", "/.", 
     RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777206675809183*^9, 3.7772066997131667`*^9}, {
   3.7772068859036894`*^9, 3.7772069303421154`*^9}, 3.777209000606311*^9, {
   3.777265572328856*^9, 3.7772655758601093`*^9}, {3.777636145109355*^9, 
   3.7776362297410445`*^9}, {3.7776391632920933`*^9, 3.777639188692464*^9}, {
   3.7776392783249936`*^9, 3.7776392811867695`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0126661054811186`", "0.0771458637278948`", 
      "13.126641618181191`", "4.872604953643671`*^-27"},
     {"T1", "10830.866269140566`", "1223.2282252162795`", 
      "8.854329916418955`", "1.6911160999856187`*^-15"},
     {"T2", "78316.11747393286`", "3470.975745530972`", "22.563141668381917`",
       "3.902505511393137`*^-51"}
    },
    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.7772068816020813`*^9, 3.7772069414290395`*^9}, 
   3.7772069740272217`*^9, 3.7772071466822567`*^9, 3.7772082462708297`*^9, 
   3.777211776042199*^9, {3.7772119513810854`*^9, 3.777212017637537*^9}, {
   3.7772120481929293`*^9, 3.7772120605592113`*^9}, 3.777265947989712*^9, 
   3.777266201114758*^9, {3.7776362171380014`*^9, 3.777636230360393*^9}, 
   3.7776364676981726`*^9, 3.777636547531139*^9, {3.777636617168416*^9, 
   3.7776366360851707`*^9}, 3.77763686792463*^9, {3.777637911517831*^9, 
   3.777637924565806*^9}, 3.7776382884571886`*^9, 3.77763870850823*^9, 
   3.7776388464463234`*^9, 3.7776390371916156`*^9, 3.7776392548164387`*^9, 
   3.7776392935158978`*^9, 3.7776393269317956`*^9, {3.777790175521858*^9, 
   3.7777901930150304`*^9}, 3.777808675889263*^9, {3.7778088031871357`*^9, 
   3.7778088429973783`*^9}}],

Cell[BoxData["0.9952026323138677`"], "Output",
 CellChangeTimes->{{3.7772068816020813`*^9, 3.7772069414290395`*^9}, 
   3.7772069740272217`*^9, 3.7772071466822567`*^9, 3.7772082462708297`*^9, 
   3.777211776042199*^9, {3.7772119513810854`*^9, 3.777212017637537*^9}, {
   3.7772120481929293`*^9, 3.7772120605592113`*^9}, 3.777265947989712*^9, 
   3.777266201114758*^9, {3.7776362171380014`*^9, 3.777636230360393*^9}, 
   3.7776364676981726`*^9, 3.777636547531139*^9, {3.777636617168416*^9, 
   3.7776366360851707`*^9}, 3.77763686792463*^9, {3.777637911517831*^9, 
   3.777637924565806*^9}, 3.7776382884571886`*^9, 3.77763870850823*^9, 
   3.7776388464463234`*^9, 3.7776390371916156`*^9, 3.7776392548164387`*^9, 
   3.7776392935158978`*^9, 3.7776393269317956`*^9, {3.777790175521858*^9, 
   3.7777901930150304`*^9}, 3.777808675889263*^9, {3.7778088031871357`*^9, 
   3.7778088429973783`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0191275296618276`", "0.008418540538448581`", 
      "121.0575069404653`", "6.176103234087404`*^-157"},
     {"T1", "10468.001965987136`", "202.55533495248605`", 
      "51.67971492058032`", "1.7989855986735746`*^-100"},
     {"T2", "80684.57000886746`", "1495.98916007649`", "53.933926904084025`", 
      "3.149470596929678`*^-103"}
    },
    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.7772068816020813`*^9, 3.7772069414290395`*^9}, 
   3.7772069740272217`*^9, 3.7772071466822567`*^9, 3.7772082462708297`*^9, 
   3.777211776042199*^9, {3.7772119513810854`*^9, 3.777212017637537*^9}, {
   3.7772120481929293`*^9, 3.7772120605592113`*^9}, 3.777265947989712*^9, 
   3.777266201114758*^9, {3.7776362171380014`*^9, 3.777636230360393*^9}, 
   3.7776364676981726`*^9, 3.777636547531139*^9, {3.777636617168416*^9, 
   3.7776366360851707`*^9}, 3.77763686792463*^9, {3.777637911517831*^9, 
   3.777637924565806*^9}, 3.7776382884571886`*^9, 3.77763870850823*^9, 
   3.7776388464463234`*^9, 3.7776390371916156`*^9, 3.7776392548164387`*^9, 
   3.7776392935158978`*^9, 3.7776393269317956`*^9, {3.777790175521858*^9, 
   3.7777901930150304`*^9}, 3.777808675889263*^9, {3.7778088031871357`*^9, 
   3.7778088430442514`*^9}}],

Cell[BoxData["0.9972537275002454`"], "Output",
 CellChangeTimes->{{3.7772068816020813`*^9, 3.7772069414290395`*^9}, 
   3.7772069740272217`*^9, 3.7772071466822567`*^9, 3.7772082462708297`*^9, 
   3.777211776042199*^9, {3.7772119513810854`*^9, 3.777212017637537*^9}, {
   3.7772120481929293`*^9, 3.7772120605592113`*^9}, 3.777265947989712*^9, 
   3.777266201114758*^9, {3.7776362171380014`*^9, 3.777636230360393*^9}, 
   3.7776364676981726`*^9, 3.777636547531139*^9, {3.777636617168416*^9, 
   3.7776366360851707`*^9}, 3.77763686792463*^9, {3.777637911517831*^9, 
   3.777637924565806*^9}, 3.7776382884571886`*^9, 3.77763870850823*^9, 
   3.7776388464463234`*^9, 3.7776390371916156`*^9, 3.7776392548164387`*^9, 
   3.7776392935158978`*^9, 3.7776393269317956`*^9, {3.777790175521858*^9, 
   3.7777901930150304`*^9}, 3.777808675889263*^9, {3.7778088031871357`*^9, 
   3.7778088430442514`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxNkws0lHkfx59xeyVUG7n2iqVNwupQbNLviWi9bqXkXkvsHm/CUnl3pSmR
tqh4iaxWrRa75VJRizTKZa1cppRLlPt9mBlmBmN42/6/Ped9zpkz53M+v8v3
/39mdAPC9gdJURSV8+Hz1/fHhxkB1P8/rBSoroiTTTZ5/vQjX82B/nvF/w5a
aCTMyoMi/qo7/ftaCHMLwfhViM7N9A7Cqx+AgabiOzG8JZxfBgG5z64Nn3pP
GMqhhp2w+cCJPsIdT4Bj4fH1pHQ/4ccsuNOwrS1DfpDw+WewdfDSZObGEcJu
NXAsrWDWzxlZuw5c9mnTuU5jhEfrwbHU55zdkQnCDxtA5aSWrqE2hzCzEaTy
qJLEnknCTk1wqcS3x9ByirB6C1gN2vtwa7iEv20FXdOgzsqr04Q92VDpe9OB
bckjbPMSTp2NrwytRtZ/BdphijqXZWcIK7TBKoN0QxuvWbyvNlir5McXh6B/
8xqaO86aumUgV74BF6WdRRlOAsK320Fh7MazDhXkxA6o3tHUFuwjJHy8E2bt
8x84NooIH+gCh9rUWql36L94C58ZP5gyisL+Dd0w5K+adHvtAmG5Hmguiv1u
aHiO8GQPqGU0B3KMkF++g5/51tZ7NbD+8XvwKQmMXrcoJuzaC83yLl0Teuif
9ULI4kNLeRrZog/Kubamzv7I+X1wMca9av3lRcJa/bAnta7RrRt9cj/Ij+j+
08FdQpgxAJcOn8hIq8V9UQNQFjJqfEYZ+0cGoNAt3qT8KNZ7D4LmbifXSsYS
4aZBmOjfIidvgwxDsMflglew+zLhB0PQw/f683oug/WRNw5Dqo4BT0GLIpw5
DBfuOZozsrBfcQS2JW2LZWgjnxkB5y41s+EGrOePwNCVgLIGIc4PGoWafGFv
lwbWd4zC+WS5BPZ75H+NgW3Tneign3B/1RgI0sfScqLQm43D54LdWZlHcH7u
OCjrjYc3WCGrTcCKnJfFJ0qRf5iAUP+V5ZFlyJIJ+HZd4nXfX3F++CSYHS8N
W1uFfmASXglctluNovfgwPke12BuvDThBg7Ie1uzMqvRW0+B1eX7k//9O2/R
FKQeiSnQTpQirDcNm+JrVcc8kNOm4WDr9a7fbZBluPCf162nG7TIfOZOLigW
XJUdCEV/iguHAy8WHTxKmFnMhbbEonPabMwzzgXHH06+lvmD7Gd+yoPpjqe2
fDvs9+PBCwv2pHINzk/ngejkeEryYRniW3lwo33S6Xgs+hV8uJKns0ZFFftt
+SCjaa3l2ov7Y/hwyJNn7+CG+8v4MKBiblGnhP3TfPhJ2lTudC16wxmIHpRN
qogk+5gBM9C5f15dwQf3/zgDy/ExKRFm6F/PQJbmlr26j9GvmoUanyu//HZT
jvi9s+Aiv3VD33Z54s/NgrNSi9H5cVniK2bBR02ovqkIvWAWOh4mne2+9Q/i
TQRgf/exy5o4Uk99I4Cq+sT2LVI4/5YApIurP9l4Hf1bATyf2PWZoj2Zx1QR
wlT3rcw3zehdhOB1co0JIwL7LwhB7dHlO5H1uL9aCDPlClu3iDDfghCeJ3S6
f7Ge1FPmIvhN4Ba2WQnPHyqCesfq7L6rJC+VJwITH76lZwnO7xWB6k6ruPRg
vF/NOUgQVwnl5NC7z8EZnfAEfQ7OT5qD0XSLzVXrFYmvm4Ob911ddxVgfmoe
wkQa/nIC3G81D+23vcMXJOgj50FwABKXDfH+7s4DY9uYVmU3zh+eh1tCG8d2
IwXidRZA+8vdUSP3Mb/XAjAu8uxKW7A/ZQH2ZJVZfmlL6qkXC2B37WlMuf4K
4mXF8Ke4c4efHfbvEkPhDb22F5iXGS0G9w3erp37ST11XwyRCsbupwX4fibE
oOPizPYU4XyDRfhcatbO1wfn+y9CYEEx03gYz5exCFmfaPhW+GM+9iKIpNfT
5dH4/lZKIOJrZvs6Cd6fnQQ8ymJX76jG/bESaClhclT/Pv8jCQR7mEV52mE/
TwJj6/w7Aw5ivs1LYCCv7dq9ZiXxR5fgVF6smuox3J+99OH/KUmNj8Pzt3/w
Rd/rZ+coEb96GTT6pRIKFtA7LoPfiGTnCkXcH7cMFVJdQzP4e6SeLEPEk0cb
w1Pw/MJlUDatboKV2K9O0dmcre2nc4lnmVP07Xa/OqUoko+5j6L1772VSWsk
+eE4RQf6/mJ+xgvzX6LoPTN3Iy16yf2w8ii6LEXXKJ+N91VD0Sc4G0pVjpF8
0EfRPNVNn+bh+6CWPuwPtTh0Q5nMY2ky6EI39eJvtiuT/u0M+qtCg/m2JHJ+
OMCgD/VGzbzfgf0RDDpZ/5yD8Y+knpXEoK/ptQreheD+Xxn0qpgM1Rp77K9n
0F0ptHdiI+YfZNDC7AyOoFCJ9T9O3owA
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVxXs8lOkeAPCZN5kxXqvjnhhb9Mmsal3KURx+L0KFYneJLi6VYZtKuRVR
Smlq2lySSYVZd8VSNLLqedZlxYhoqUhjN9fanUHUmMI554/v57sy9KjvQYJG
o4X+z/+/w7ML7deOcOJ/U1Wc2sx3ijPNeP2Z5g53WbrJTJdQJ9WgwZo2mj8E
pzpabtgXi8z76h5dghAwnq8c0tnLR51fCFEVjQuG9w9fRF6ZKMrUK6UP84D/
eYNOm/AGIoskNklwDMKv/1yfWpCH7kl09QtpcSB/8sdz78wipCKtZ4qHToKU
Sjaa9StF/tNByjZ8CnZrif+Tz7qDksheWRwkQ2/Hef4VsypkZmPSc5uWCmk9
7L3sVbWos2FqW0nkRVCNGgmK8XuA4tyam6qG+JB2NPDQ4gUxag+IqG3CAjis
ww7OHXyI7HBARzSkw+EgGzvvsMdocLTglxxaNqxyTslITG5C9yw0eHl12cBx
FYsbVJvRhchY88JIIWTw0vr1LzcjS6WHqGLoBgT/bV/vlN6CzmrIMjC+BVoC
/e0a11qRjqGRfRSIYCsrqcTthAQ9hDD2DVoJ1Lpc+kf0Yzcy2FqLdx0oAalx
Uc6O0m4U66Oy3+BJCZCn77c8GulG1qE/l2RfLYXx/FtfpEE9qPzcG8vr7HK4
wrlascvnOcr53c8l06ECKINl6aOcXuRYbFrj1lANQmexj+DBS2SyVucVKMTA
TbN/siRQigrjVvr4d/4GP5jGO3q5jqCjl4MkvudaYXjeMcRw/TsUu+CSuqrm
KeRWxi/MqMiRsJibnP2oG8q5rzxlmVMoM5E2xJD+AQk/bbK6UPgBlVXw+P1T
L+CgpvaB3HOzSLj9boakqx+M7fb+S8/0E1q9HDUUvx8E55as8ytaFci93Nd0
Z8QQ2D74jbixUYkuRv+ikdT7J4T2NqoFpn5Gwr4Ypij4LdScULG0GvqCsuSr
bb7rHgbuoKcEay6gkHynI8rgUSiwqPbVdl9E9fONnb4TY/D10W9tAzbQME3L
Mmiz/wR4xNdHMWppWPexKk1/+B2sddgcy91Mx/orW5+d9fsbmm8WkbXVdDy+
Yqr67dg/IAy+ZfNxHYHdm1LqZo/J4V5Z/frjBQRuX5YcJ4mchOger6yTGkvw
i8szOXp2UyCXshvnTi3Bu//a48eZnoL3VzdWWv21BK/WjC+8VjoNcvsB86Uu
KvgFoyM+/sgHePBnynR5mQpeHNCaWLNmBsayTkTEMJZizVM/SXfIZ0ByrzZ3
3aGlOGz6cfiz+7PAZdW0+kuWYhvXYb7BoY8wMxrXUWaqisdDHG0GrD6BqKsw
xOisKtbefSX64PtPIPvKq4LzShWf/ybdw0OkgJz1svn0dQz8pqWtsChsDvpk
Pr72Fxm40uGTsJ2thOKbT6tYrxn44OkA3R9HlcA8PrnczJaJM29XcbrzP0M+
JXhawGdiRkbDszT/L5DE8bmj6Gfi/b7zi+3G85Dw5rhembUa3iizbu3om4dg
21Ljr1LUsPyH23pb8xbguN/L758PqOHJzAaF8YFFEIQzL+dYsXCNX/imQQ0a
RSY2Z3sns/CBNkF9+DEapbtnYh/vBQt3ld1h7OqkURZN7mvT1qjjvbNmuVEc
OhVvP8KciFHH0uK6E54COqX5Rq+kul0dG/3uZsIfp1NiXsKZvOUk5mRXKc3e
0amdBa5XFw1JbBtu2Iff0ylrvdc5QUYk9mHJBAoZnapPSSg1MSHxBe8sJXeW
TvWYF93OMyOxvO9trxtBUPT9o5O535K4ceyMQMWIoB5+rb3l5hYSd9W94+Yb
E1TnoYhJpRuJX/O/d3EwIahx6ldhoAeJP1qYK6NWEVS7uv/Q8u0ktojs4r41
J6i7AVnbhTtJfE1h7NK4kaDWPt+TeW03iUVtqex9/yaoZA1NzZk9JK7MmZqb
syOomJM9qd/tI3GbQ0uVlQNBuWzKiNQKIfHCGR5b5ExQ4pOGJmlhJFb37Ztz
cCWogbCEc3IuiQ1MofflFoLSXaEY9o4gsXWLtmDZVoKK09+Wp8EjsdP1RO7d
bQQVNr9SwTtMYk/umLOHJ0EpRgy9O46QONDOhz3sRVCJbFuRRSSJuWq/zp3e
QVAlH6KnLh0j8X8BO+z41g==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVxXs4lGkfAOB33obBS3WlwVeMLH1Ju18Om6Zy5fdGpdL6EFOpdRpmtDas
om3VRgemJhVyWlqzBkWiWURLz7NJjjltJh1EmlJOExEmzO7+cV+3WUCYRxBJ
EETAP/69KJQb8Ew/xPFe2ELLxKBkx2jzpBefie0Qp3tn8iUz1lHTt6eskeDB
gJ7t+TarTY6W8sqa8+APh2lVqtGhn1DrLCkpJQRQOKJ2Nt59AUWa7z4jx6HA
T+NwWMYpSDev2e4kRIB8t6PY1y0TyZrZhlIiGuw5sfp3F+UiZu9drTt9P8JG
uQav4U0e4o37qhpxDDTGGW/lF11HJ3W7RqMhFswfC/USdW8hCzvTzmwiHmpd
DQMyLcpQa/XYzoLwBPh6PNzpkV85it72oLa0TwQy762YnVGBmvaFlNdiMST8
V7myb74ScfG+liNwBZbbX/Sql9agnre5JZlEGiTMnL1h4lCLZGv0Qn+tTINY
ixVm0ge16Fx4lKU0PB3ir1H2jq4PkLXKRVLclwGmnTdvd+ytQ3F6o0kYZ0Ei
0znDQliPli4z3hQJEigLXbdlF78ZVUEwJ4MogLmXVlUVUR3IaEc53ssvgKVe
V/3byjtQlDsz0KihAIScDm7+RAeyDfitIO3SdVhY5f05KaITFZ5+aZ3KKYSK
/TNB54R/ocyH3k7JDsUQJYa1+bu60OZ887Jt1bdhxcahGNZwNzL9culTmL4D
jCxsskrWi6TRZu681j/B5+Pm0YeiNyjsgm+zx+l6qIg8sMPl7CCKmneK/6Ls
ESii1ToXhUqUni+ITavpANs9zg24YQwlnyD6WL2PoTErUaZ++hHdKA4VPRt7
Am88DbsP35lE6btuJjW3PQPm3MR0mucUWvkfVJ0/1AOtt/y4h8an0fZCD/P/
h/QBt8Qpq3m/CiUcKdE72fUKHnez437J+4zS5Ue1JH6vQWag2K//aRZdVa60
8+xQgGlub+AGk3nkn+N4WOX3FkoCR60nd6rR3bn7rR7vByDwqKg41IbAxBJr
342893BwEYsfU0xg9j1NwlAxCKt+Sopr/4qBDc3q2+O8h6HBTVMaksPA75aP
3X49MAIKG96KLEMSb689UzkZoYRTHPZp2wQSNy2OjW4O/wDxqb8VVI+Q+MmF
iUwD7hgU/vCYf2zvAuzTf8B79fgYjKydXMirWoBXLjouTbk+Dle+j/xIGDDx
E1bL8eOHP0J/qnorHGNi9fMl71etmoD1sn4PqpOJF8Uk9ropJyCi4j0tttHA
weP3hO2/T8LpwgMHSy9qYDtnhcjou0+QklFj4NOvgd/5b7Z7bjMFTVt0iHEH
Tazvc/FI0NAU3GMnmp24rInPWl1xcZFMw3Siyuz8K038sq5Rmhc8A32jeoI8
LgvfcphKb+KoIF8iDF8vYuGgn/exD71VQeTzqtlXvSycnF26uiPnM4imw/Bm
ay3MSqpuv8ybhT/XNgxdOqmFAz3m1E0mc1BnNRZO/aWF143a1rfI52DI/d33
p8y0sdIr22DHr/NQvuGh0iJKG39Irp424athRecv/gMN2rjMW7ihR4+gA0NL
07rYOpjfKL4rjCBo9bkFrbNCHdx2o4i1t5WgJUHJi4MrdPDBSYtrkasZtMx+
4vgyksK9+ZXHXMUMuvWaT7feHgobP9xmKnrHoI9qnPnh2xwKr04rVVkMMuiF
Ny4pZBIK2wuXyfEQg/769qgnK5fC7jqj4ulRBn1e+6ZVaR6Fz31zVSWYZNDs
sO2VjCIKK+Wvu7aRJL0ha7mXtJzC9wdOiZnGJP3VwHD2QBOF2yoHBTkmJO02
0lG9qYXCL0R7nBxMSbpmyubppUcU/rTGUhX5BUl/qRDocNspvCa8TfDakqQv
n2n5JqGLwinTJk7315G0LjfOz7KPwpLGeM6360l6RjOfF/OKwrcyx2ZmuCT9
BPFc2/sp3OhQV2rjQNLrUkL+d+wNhedPhXIkW0iabynoqh+kMOUhn3FwJmll
0bKq5cMUNjKHru6tJD3sGZQZNkJh2zp98eIdJB2f+8DL8AOFHVNPCG7uJOkX
Sc/XfjdGYVfBwBYXV5Jeap/IQuMU3s915yh2k3R2Sc+LJRMUFmj/MfOzG0l7
mjWXBE9S+G8XBgpF
       "]]}}, {}}},
  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, 146560.}, {-6, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772068816020813`*^9, 3.7772069414290395`*^9}, 
   3.7772069740272217`*^9, 3.7772071466822567`*^9, 3.7772082462708297`*^9, 
   3.777211776042199*^9, {3.7772119513810854`*^9, 3.777212017637537*^9}, {
   3.7772120481929293`*^9, 3.7772120605592113`*^9}, 3.777265947989712*^9, 
   3.777266201114758*^9, {3.7776362171380014`*^9, 3.777636230360393*^9}, 
   3.7776364676981726`*^9, 3.777636547531139*^9, {3.777636617168416*^9, 
   3.7776366360851707`*^9}, 3.77763686792463*^9, {3.777637911517831*^9, 
   3.777637924565806*^9}, 3.7776382884571886`*^9, 3.77763870850823*^9, 
   3.7776388464463234`*^9, 3.7776390371916156`*^9, 3.7776392548164387`*^9, 
   3.7776392935158978`*^9, 3.7776393269317956`*^9, {3.777790175521858*^9, 
   3.7777901930150304`*^9}, 3.777808675889263*^9, {3.7778088031871357`*^9, 
   3.7778088431223497`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_90K_Tm.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[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", " ", "=", " ", "90"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A1", " ", "=", "  ", "1000000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "12000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", "=", " ", "120000"}], ";"}], "\[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[{"6", ",", " ", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", " ", 
   "\[IndentingNewLine]", 
   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[{"0", ",", " ", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     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[{"0", ",", " ", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", "\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.777207229042231*^9, 3.777207235226198*^9}, {
   3.7772073334920635`*^9, 3.7772073400331497`*^9}, 3.777207704826188*^9, {
   3.777208270078411*^9, 3.7772082936371307`*^9}, 3.7772120299074016`*^9, {
   3.7772660856954207`*^9, 3.7772661045301743`*^9}, 3.777636260609302*^9, {
   3.777636313226644*^9, 3.777636328389258*^9}, {3.7776363673169827`*^9, 
   3.777636422427981*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10g881Hccx/Hf/WmUocwQm7V1EU6TQmH1+Vb+/2tttKaUWhpjltoe0tj1
MGJKCeXPZkW0MapDqzM6xohEyt/CzvmfP3e5Ow7n9uc+eTw8PJ6P1+99n3O8
ezh8z1E6RVFX//3+7+f/X5zjYPxrsqfuW2z435AOk7bVHIHAQuWVeVDe3sJl
laE5RaDt8+zM7Hn03G0Ydp9nyYLRVnfAJ9pbP2UP+nMe7D8RWqvGRl+tgthr
2dGdWujQavATX9hSu2CucsKfUG4c5ry2DX29Duzr7A6Z3Ubz6+H+yHAMIx39
/AFEqUX6+nLQc03g6V771fLTaN1HwLtc2qH0RRu0QmZQv2v2erTJY4j8eJM3
Xx+9uQ2kGukVthroHU8gsUjL9QIDvfsp6IsLbbc/NFM5oB00Np4WjHShQzug
Wunv11ODjuqEoUSe0qUKndAFsYG7zI9dQ1/uht5T3o2tmejrPZB1l1lmEYHm
PgMqJTHA9iSa/xzi396s/60V+lEvZK+MEx+xQT/vg5t6Ie9wHdHj/RAn+EtW
qov+9m/IWH7gIymFZghg1FlRm8dE/yAAi5/nghzF61VeNQDUvspHiwJ0xgDs
aetU15Gj3xECORVus0mILhBC0jr2/qkf0ZaDcJ59YNqNhy4bhEaR55aMMrTD
ECSYjHX8+wdRuWYIooYYRRdS0W7DcOOmm5GXL7p1GMKWJ2Qd34PeOwL7gunc
TH903wis2hDPz/RCHx2FQ/TsYyYH0BOjYMUNjg1zR58Yg+P1zG8iHNHzY3Bp
U325Fgt9ZhycozTdr7x6Xv0FvPHWYMSaClOVL7wATljq7jWjaL0JeO3iit4m
TXz+pwmwbrjTJhFiZ00CpedlFf/KRZOwMss8gaOOz1tPgU9sTItcDX1vCixp
pjNmT/F5mIaQhvfTZl65fhqmjA4V389Dm4rAkUvyeiQqc0JEcOv9nWzTdOwl
Irh86Wh6wVfYxSKolOqmqfOx24ghZcxJcdMHe6QY7gRqx704if0PMQSWN+cY
fIddKQZebH9VfhD2nS8hrKLlT5dvsMe/hJLGHL/uUOyNL2FrY9Bl96+xa87A
Giepwksd+4czwLa0cWw3w542A3WtP0Y2fYK9awbMUo/1CJdMVN1IAuExK+4H
2GE/KIFkj7gNXxDc50rAto99r8QI+7AE3jzreaqDhd1MCrA4LD8H2MOkUP/0
5pUdAdhvSSEnrtfhyKDqHiWRQtIOw7ZdTXjfTgbXH49NBWri/rQMfM4FOdze
ivsqGaQ1aXza3IZ7+iyYb5xoCF6G3WkWxktLPG7EYE+cBdNnCS4Zpfj6D2ch
3S3iiUsr9pVz8OXBqyHaOrj/aA7WihoNvH7CfmUOdm6MsudNrlP1njmwSq3R
2F2N3VgO6x3yLQNW4z5QDu/JjTumUrHny6H47Cf3Lirx/qgcKvdXu0mbsbPn
oSstMFqRgz18Hgze5Dzu9MdeOg/f/847lJqMXTYPnDO0GvUy7PYLsFouvLd7
Bt9f9AJYT8c2GOZhr14Al9DVa5c74p65CPvktYre37C7LsLHD6etByqxJy1C
3k7WsuZC7C2LUJC0y/nxSew6CrDsd/9t26zqHuWngEaHw4kd57BnKsBet1M9
Ogv3vQrQ/ruw9uER7GuWQLaNc8zVA/tnS2CnMCjm9WG/sQSzy4YGcs9jf7EE
AwZbG/Ie4O+3QQl+q7bYOZXh/QglOOvlbGH74b5cCcYZz5PTn2CXK0FN7UFO
v5qqgzFF+u6GZ92twA4UcdsWtPdanKrzAymifUKm2VSH92IpwmIIvLl4D/Ip
4vl7d5GsEvf1FFnQ9mbxvVTmj1Jk8dyoXX4k7lfQiK67PHWsEfdsGrHLJQbC
Qdx70wi/wEG3RoT7cBqJPzjJb8nGfQqN+HXne2QqcF9KI1knGF/7vmSp9u00
4hJ4htmuhe9fRiOC+eLXv1+PewM6kdw3KYjpwb09nQTnluwIssD7++kki9vu
NX4b70fTyfk68vaUPn6eP9OJ+S/1wbfccV9NJ2m/0JxCl3AvpBPDueYvtSzw
PpNBJCdFyXvpeN+EQXQ+OGw0ycTP35VBXC55mPLw/5UKYZBC827SZY33kxiE
e9jfy20c98UMElln2Jz7Id5vYRCzke0ptqdwL2YQUcalKlkI7nWYZCZNL3NS
qPp8OJuZxH9xhX7bD7j3Y5LXDG3HCy/iPpJJoLCtRTMD95lMUk5zZJqexfsV
TPLHo/LWdTTc9zJJ/sRGm2Q0pWQSzc8vSs7Or4N/ADpoJAM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwV0n00lIkeB/DxXJvSlqKJ5CUxz8x4nL1hbSNz830oUboyFcm2pDK0DlOs
KVvKy67IbreR9RI1s+slhdhKksrNShM7UZkdyktNS7ERaTGk+9w/fud3Pud8
z/l9//jZhMWI9hEsFiuMmf/vS1GCsC6TSPeM8pm5GQoKUlvZs2nWBtxX7lVe
KqAwJ6T7qpIVCItzATML8yjw1LW3MrAbmy7cqlFlU1DNEIoqlhhrTA7mNsko
xNpuTlU3ROGJhYub9hSFT4tbnBNxAGfbNVKrHyj82sI2LWJJURdWs0OTRkG/
t27u9b7D4E09W7blOwqBYyE6ZcMRiBztZOpkComfdgxLkYTna9Q28xIp2Dlb
PypkpeF8dIzqzzjmfv3oxlLJCSyvDd1WfZDp7/VbY1VfOlqk0V0pEgoPgiKv
NTZkImS+ki+MoiBoCGqNw2lU0Put3+6h0N3/y+V8Vg42H1po9M9tTD9qQdT5
2hz0Jc+v3CCi8L0knlckycXMQHb2ni0UVum8FRV9eRiXeLUX+VJIXjAsa2go
QK7fkh0b11NYYm7hFgsFlBY3UxetpnAD4VZ5rFJciTaR8C0omPlca9ixtxTr
44cGws0pxPvr7zG7XwqDaT2XEjMKTmE/l+acuoDHwozP7NkULqb0rPrJ6iKO
5OW1eC2kkH8vwDNLWIHyYnlHK4vC2hLbq1711ahMiL7e328Pa4clnZi8jkJu
UmdKjT2KpDb+gar/YmWASafjPnvEnAxpEaU0w3jxqqAJS3vEz3qmrbz6O9yi
jhmaavjILREn5dxqR7BP2GfFBXxkHWX1GfQ+gflWhzny3XyUVUSld43+gdM+
Zo++dWDym8plLQ+7sGxxdU/dLA+cZXfqS4a6YXLv2oimjYcNF0W2WyL7YGTv
Xk+V8XAi7vKCxI7nuClOXDiWykOu+pu5ilAtMnhc/8BQHrJHOM5b218ixcPH
mPkK7Ja7R+tC+7HW7Y2QWsFD3Ye7KtHrAfQoZIKjBA8s41UhawJfI3h5akXM
Ky7Yt+ewTF8OIi/5Tsxvv3NhatPclhzwF+x5n/S71HDxavlotXbgDdhL30mm
C7nY0Jha+/7ACIzUpXa70rh4sChJ2iJ5ixfsxU6OsVz8cXI8f6lgFF/ellu6
fsVF8IsvA/hjo8Cmk7zwTVxwjBKKzlwYg8p9zYzMlckbtCYkRL9DcH/T9m6S
i49PjV9zuePY/7rGcJjNhdGRH3v9RsZxesu5SLY+F+FjtyParrzHhGBoVv8d
Ced1L9PNvv4bcv95FlItiVe71zo/dZzAjYKkurFHJEyCf4jbNzQB14Tj1Y8a
SXxnf9rbWzGJwW+yiv51jURPk7KoOHwKKxzFsrJiEpXCidwHVjp4H6q02Z5D
Yt+xIPb+fh2KC8Y9PqaRyCqs4rfLp7GiWLBIc5iEgay+7T+BM7CKPXx2eRSJ
PaIPHx9YfkD9TkvDoF0kXIadmlvVH9B6qvNQlR+Jke2FS33Oz0Lz+ZtUFk3i
bVb9pOXej4gtvxN12YnE1YAI1+4FLLr4xMzxSA6JvcrMuogDLJptfqNwmSmJ
h2WXDHaoWPRQh/861TwSu97bnYvl69GDOy+Lnsxw0FtSe8g3U492fG7YpBrm
wOKel3X6Kz26p6jvx6bnHPBzqnR2g3p0vij34EnGX0SYqxuG9GhrB7tAf8b+
hsOZk8N69MbOmpXdfRx8/+9snfi9Hm0cfqtxvJeDEbW2w4sg6COf6xzseji4
O3A8U9+CoF/kZ+WldHHwsHZQLLck6JQmdo4P42fp2zyF1gSdR4VmGzH+m+Lp
YlcS9AqB75mznRxQkodiLY+gPdZKz17RcHBm0tLzrgtB+w3fV2nVHCiUaVZf
rSboT9p+0ZQxrswfnZoSELSnK62NYawUNlU5Cgk63O2ubrqDg9njUVYKD4L+
x+rHTksYzxepp4TrCDors9aj6wkHZrbo0KwnaK5811Y5Y6cmk8xFPgTdfP7P
eAfG7j8dFZdvJOj4p83pY4858BUPeHj7EnR0XERhLeOdAn+rl5sJesi4uTqR
sXjezaljfgQtCtHeW8f4f7KXwhs=
       "]]}}, {}}, {
    GraphicsComplexBox[{{0.003061224489795918, 15.}, {149999.9969387755, 
     15.}}, {}], {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 6.045},
  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, 172000.}, {6, 15}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772660867730703`*^9, 3.777266104817606*^9}, 
   3.777266201365746*^9, {3.777636349563794*^9, 3.777636422827611*^9}, 
   3.7776364746555552`*^9, 3.7776368761282253`*^9, 3.7776379270192986`*^9, 
   3.777638288707131*^9, 3.7776387145754957`*^9, 3.77763885178036*^9, 
   3.777639037434391*^9, 3.7776392550663805`*^9, 3.777639293893157*^9, 
   3.7776393271817365`*^9, 3.7777902146130905`*^9, 3.7778086764571924`*^9, {
   3.7778088273617673`*^9, 3.7778088432941895`*^9}}]
}, Open  ]],

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

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777207352499578*^9, 3.777207352749525*^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[{
  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[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[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[{"7", ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   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"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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"}], ",", "20"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"5", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"5", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"5", ",", "4"}], "]"}], "]"}], " ", "=", 
    StyleBox[
     RowBox[{" ", 
      StyleBox[" ",
       FontWeight->"Plain"]}]], 
    RowBox[{"T2", "/.", 
     RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"5", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772073616732945`*^9, 3.777207374386674*^9}, 
   3.7772089983094807`*^9, {3.777265578854542*^9, 3.7772655838578672`*^9}, 
   3.7776362914740467`*^9, {3.777636427939225*^9, 3.777636435737691*^9}, {
   3.7776391964685483`*^9, 3.7776392195219903`*^9}, {3.7776392848977404`*^9, 
   3.777639286855863*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.276916271632921`*^6", "73092.4981824873`", 
      "17.469867679784212`", "1.205799731357901`*^-38"},
     {"T1", "11997.444010853707`", "1050.235952574686`", 
      "11.423570085790342`", "2.222703128355164`*^-22"},
     {"T2", "94868.91002034476`", "3403.6121996847514`", 
      "27.873007985202218`", "1.1274365468443382`*^-62"}
    },
    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.777207367243533*^9, 3.777207374761361*^9}, 
   3.777208296353672*^9, 3.7772117903722067`*^9, 3.777212023683614*^9, 
   3.777212064874357*^9, 3.7772659483875647`*^9, {3.777266097213975*^9, 
   3.777266106582649*^9}, 3.777266201459473*^9, 3.7776364362685623`*^9, 
   3.777636477079583*^9, 3.777636877856349*^9, 3.7776379291519885`*^9, 
   3.7776382888958464`*^9, 3.7776387163407183`*^9, 3.777638853967327*^9, 
   3.777639037824927*^9, 3.7776392554881563`*^9, 3.7776392941118555`*^9, 
   3.7776393275746546`*^9, 3.777790216884918*^9, 3.7778086767082024`*^9, {
   3.777808828950691*^9, 3.777808843466018*^9}}],

Cell[BoxData["0.9998845777720238`"], "Output",
 CellChangeTimes->{{3.777207367243533*^9, 3.777207374761361*^9}, 
   3.777208296353672*^9, 3.7772117903722067`*^9, 3.777212023683614*^9, 
   3.777212064874357*^9, 3.7772659483875647`*^9, {3.777266097213975*^9, 
   3.777266106582649*^9}, 3.777266201459473*^9, 3.7776364362685623`*^9, 
   3.777636477079583*^9, 3.777636877856349*^9, 3.7776379291519885`*^9, 
   3.7776382888958464`*^9, 3.7776387163407183`*^9, 3.777638853967327*^9, 
   3.777639037824927*^9, 3.7776392554881563`*^9, 3.7776392941118555`*^9, 
   3.7776393275746546`*^9, 3.777790216884918*^9, 3.7778086767082024`*^9, {
   3.777808828950691*^9, 3.777808843466018*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.3160381091053463`*^6", "7057.81763649999`", 
      "186.46530370795708`", "3.506715963772526`*^-186"},
     {"T1", "11749.270471345348`", "147.6967143696024`", "79.54997862676542`",
       "8.92678603153104`*^-129"},
     {"T2", "92262.58613008888`", "1096.5009413217526`", "84.14273317346449`",
       "1.6247169058229804`*^-132"}
    },
    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.777207367243533*^9, 3.777207374761361*^9}, 
   3.777208296353672*^9, 3.7772117903722067`*^9, 3.777212023683614*^9, 
   3.777212064874357*^9, 3.7772659483875647`*^9, {3.777266097213975*^9, 
   3.777266106582649*^9}, 3.777266201459473*^9, 3.7776364362685623`*^9, 
   3.777636477079583*^9, 3.777636877856349*^9, 3.7776379291519885`*^9, 
   3.7776382888958464`*^9, 3.7776387163407183`*^9, 3.777638853967327*^9, 
   3.777639037824927*^9, 3.7776392554881563`*^9, 3.7776392941118555`*^9, 
   3.7776393275746546`*^9, 3.777790216884918*^9, 3.7778086767082024`*^9, {
   3.777808828950691*^9, 3.7778088434972615`*^9}}],

Cell[BoxData["0.9988233268823203`"], "Output",
 CellChangeTimes->{{3.777207367243533*^9, 3.777207374761361*^9}, 
   3.777208296353672*^9, 3.7772117903722067`*^9, 3.777212023683614*^9, 
   3.777212064874357*^9, 3.7772659483875647`*^9, {3.777266097213975*^9, 
   3.777266106582649*^9}, 3.777266201459473*^9, 3.7776364362685623`*^9, 
   3.777636477079583*^9, 3.777636877856349*^9, 3.7776379291519885`*^9, 
   3.7776382888958464`*^9, 3.7776387163407183`*^9, 3.777638853967327*^9, 
   3.777639037824927*^9, 3.7776392554881563`*^9, 3.7776392941118555`*^9, 
   3.7776393275746546`*^9, 3.777790216884918*^9, 3.7778086767082024`*^9, {
   3.777808828950691*^9, 3.7778088434972615`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw10g881Hccx/Hf/WmUocwQm7V1EU6TQmH1+Vb+/2tttKaUWhpjltoe0tj1
MGJKCeXPZkW0MapDqzM6xohEyt/CzvmfP3e5Ow7n9uc+eTw8PJ6P1+99n3O8
ezh8z1E6RVFX//3+7+f/X5zjYPxrsqfuW2z435AOk7bVHIHAQuWVeVDe3sJl
laE5RaDt8+zM7Hn03G0Ydp9nyYLRVnfAJ9pbP2UP+nMe7D8RWqvGRl+tgthr
2dGdWujQavATX9hSu2CucsKfUG4c5ry2DX29Duzr7A6Z3Ubz6+H+yHAMIx39
/AFEqUX6+nLQc03g6V771fLTaN1HwLtc2qH0RRu0QmZQv2v2erTJY4j8eJM3
Xx+9uQ2kGukVthroHU8gsUjL9QIDvfsp6IsLbbc/NFM5oB00Np4WjHShQzug
Wunv11ODjuqEoUSe0qUKndAFsYG7zI9dQ1/uht5T3o2tmejrPZB1l1lmEYHm
PgMqJTHA9iSa/xzi396s/60V+lEvZK+MEx+xQT/vg5t6Ie9wHdHj/RAn+EtW
qov+9m/IWH7gIymFZghg1FlRm8dE/yAAi5/nghzF61VeNQDUvspHiwJ0xgDs
aetU15Gj3xECORVus0mILhBC0jr2/qkf0ZaDcJ59YNqNhy4bhEaR55aMMrTD
ECSYjHX8+wdRuWYIooYYRRdS0W7DcOOmm5GXL7p1GMKWJ2Qd34PeOwL7gunc
TH903wis2hDPz/RCHx2FQ/TsYyYH0BOjYMUNjg1zR58Yg+P1zG8iHNHzY3Bp
U325Fgt9ZhycozTdr7x6Xv0FvPHWYMSaClOVL7wATljq7jWjaL0JeO3iit4m
TXz+pwmwbrjTJhFiZ00CpedlFf/KRZOwMss8gaOOz1tPgU9sTItcDX1vCixp
pjNmT/F5mIaQhvfTZl65fhqmjA4V389Dm4rAkUvyeiQqc0JEcOv9nWzTdOwl
Irh86Wh6wVfYxSKolOqmqfOx24ghZcxJcdMHe6QY7gRqx704if0PMQSWN+cY
fIddKQZebH9VfhD2nS8hrKLlT5dvsMe/hJLGHL/uUOyNL2FrY9Bl96+xa87A
Giepwksd+4czwLa0cWw3w542A3WtP0Y2fYK9awbMUo/1CJdMVN1IAuExK+4H
2GE/KIFkj7gNXxDc50rAto99r8QI+7AE3jzreaqDhd1MCrA4LD8H2MOkUP/0
5pUdAdhvSSEnrtfhyKDqHiWRQtIOw7ZdTXjfTgbXH49NBWri/rQMfM4FOdze
ivsqGaQ1aXza3IZ7+iyYb5xoCF6G3WkWxktLPG7EYE+cBdNnCS4Zpfj6D2ch
3S3iiUsr9pVz8OXBqyHaOrj/aA7WihoNvH7CfmUOdm6MsudNrlP1njmwSq3R
2F2N3VgO6x3yLQNW4z5QDu/JjTumUrHny6H47Cf3Lirx/qgcKvdXu0mbsbPn
oSstMFqRgz18Hgze5Dzu9MdeOg/f/847lJqMXTYPnDO0GvUy7PYLsFouvLd7
Bt9f9AJYT8c2GOZhr14Al9DVa5c74p65CPvktYre37C7LsLHD6etByqxJy1C
3k7WsuZC7C2LUJC0y/nxSew6CrDsd/9t26zqHuWngEaHw4kd57BnKsBet1M9
Ogv3vQrQ/ruw9uER7GuWQLaNc8zVA/tnS2CnMCjm9WG/sQSzy4YGcs9jf7EE
AwZbG/Ie4O+3QQl+q7bYOZXh/QglOOvlbGH74b5cCcYZz5PTn2CXK0FN7UFO
v5qqgzFF+u6GZ92twA4UcdsWtPdanKrzAymifUKm2VSH92IpwmIIvLl4D/Ip
4vl7d5GsEvf1FFnQ9mbxvVTmj1Jk8dyoXX4k7lfQiK67PHWsEfdsGrHLJQbC
Qdx70wi/wEG3RoT7cBqJPzjJb8nGfQqN+HXne2QqcF9KI1knGF/7vmSp9u00
4hJ4htmuhe9fRiOC+eLXv1+PewM6kdw3KYjpwb09nQTnluwIssD7++kki9vu
NX4b70fTyfk68vaUPn6eP9OJ+S/1wbfccV9NJ2m/0JxCl3AvpBPDueYvtSzw
PpNBJCdFyXvpeN+EQXQ+OGw0ycTP35VBXC55mPLw/5UKYZBC827SZY33kxiE
e9jfy20c98UMElln2Jz7Id5vYRCzke0ptqdwL2YQUcalKlkI7nWYZCZNL3NS
qPp8OJuZxH9xhX7bD7j3Y5LXDG3HCy/iPpJJoLCtRTMD95lMUk5zZJqexfsV
TPLHo/LWdTTc9zJJ/sRGm2Q0pWQSzc8vSs7Or4N/ADpoJAM=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVzn00lAkbBvDxrBe7EStKuyH0zNczuxtaTUtcTzaxW2qmkD5WpoTWW1rW
SG0lRZhtpUSFjJWvSkibrDQp1Rj5WFGraGIiKiKfI7zz/nGf6/zOue/r3Fai
PcIAgsFgiDTz/7wUwhe1zQl2aSZmhKUWPIhtkp9PMlYhX2q9rmk+Dzp+7WVy
hg9uuyypsZ3LA7u1/FYC/HFWuruq35iH+o+EtJgRiGZxRlunIQ9hNmuOtspC
sDWHc21Knwf9iwr7g9iLI1Z3Fzp8xkOpwnReDkOMtti+DX3aPGi/qNC7odyH
SXYA34/gwWfITy2XHUCLlKzvnKFwUL+lX4xo5HqsTzCcpLDI3vKfDEYcmCq5
t3KQQn3l4A95ocdxWjL8NH+Agtjt3t1iZTxUr1K8I99RqPUNvn5XJgERsTyO
20uBL/OtC8dJ9D/K1vtHSaG9+8+r5xipaEldxx9rpFBKGYRcKE+Fa6YoUb+B
QmxoBDsnNA0PZzKtyUcUFqvdpVeUZ7FyW0qxn5zCEYP+ZJksHU38yryxOxRM
vljgGAYpBEs43dJrFG5ip8VZRh5UxRn3DqVRMPO4Ltu4Iw/yacr05hkKEQLt
7WYP86A00XcYPk3BTpSdl/pHPo75Bjzcc5JCYUzH4jMWhfjAYW/Zn0Dh3H1v
11NOV+D1VVJQxwEKzrk2ZW6VJTBctyGvSETBkmfyL8ZvICbq3niBLYUcsZXA
p/4OHPVyFo52cLEn0U8hjHmARq2iWsszXERMu8ZZlz1C+pFY62WeXKTlBkan
3mpCVrLAIduIi1O/MZS6Lx7jYZraRKeZg4IrIfFtg0/we/pYwtzzHKT9eDlZ
0dAGhed2wbFdHJDzb1fmvmmHODFOX7SMg1WFQpt1wUo8t/iTd2g2B8fDrxoc
bHmJ7Gx/6mM3G2mtv+pJt3XB4AKHW1TFRsoAab++SYU9ZQ7PcJ4N/yyX3ept
3XDOPuE4E8FGxVR1vbC3B8fHJLu2eLHBMF7s951PL/LsvnyXtJQN0yodxjxV
H3b96NWvMGNjntWDxiPeb3G0UHFSNMXC6y8HS7p63qHZuIU5qmRh1d2j5SN7
BzA/OMl56X0Wao2ixYrQ97B7cyzStoiFJ4nD5+byB7H/WYzR7BQWNndu8eYM
DaLHfO8S34MskIZROafzh+D5Km+yIkizr1sXFbX7A2YxE7e+FbAw88y4l8Ua
xjcmC1RfL2fB8MCJF2sHhkG/rRpxZLGwc6gqqPHaCDq95DTXmAX771XxZj+P
YvHg5h2vppl47e9s/8x2DNrPD5/w62NizubfwwPejKG0LvZ63BMmjnFPurtL
x6Eol6UKa5joqJHnXNw5AWe/e/2PS5gochpLq7VQQ9ZXN9RxgYmAQ76mu7rV
yLD7KTVTwsSpjGJOU9Yk/E3+Hm2OYkI3ubIxyecjnCLfRycEM7FdODVTaz6F
tln2oiFvJr7tt3tQ1zqFhbrDhTdXMjHglTHX48I0tlQ/8rS1Z+L9qcpx8x0z
CNX/b7q5FRNl3kHL2g0Y9M/e5ZMbjZjYIZdUBO1l0Lrn76xaMU2ioeCS7sZ6
Bv3y8R9OYe9IbB1ZlBnG0aJdZsL//bSdxIvc8sjVEi16rdnhltUKEgvuu1nG
v9ai920CWV9BgpNarF7Up0ULtD5PP6qxQ9AXrbI3mnuuco6jxoLP+iXj/Vr0
L26ROvk3ScR6pqgDR7Ro/aSYsehyEgOtXS1uBEF/siZXz+EvEtU9hyXaCwh6
oo1UZZZo/ivvC8wyJ+hJ8Yd9Xho/j9/g6mRJ0NvmlRrpazxKsdVh1gS9pIJB
7ysmQYU2BHaxCbp60dPL66+SOD1u7lr9LUG/bDAp0btCQiqPs/hpKUEXPL3j
dfsyiaJzgxMTfE1/iO/krxrLnWqKbZ0IWp3l5tF1icT04RAL6QqCrjKf/f5W
IYlZwtYJp+8JujdIOz1cYzMbtDxdSdCNpp3ulMZ2NXMkRh4EvekT4cW0AhIu
Z34LvPwDQV/f37VhrcarA3tWuK8maH7Npv/oaLyJL7BQrSFouwM3/qrMJxH4
6d8Th9YStOXyiaAwjf8HEfHMdQ==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVz3881IcfB/DPfb7GWrGWQjkn9LkfPlcsj0pc9fpMX2T9om+UWqJyLKtr
5KxV0lq65lsLOWnijEPCyVkyW5cflR/zo8ecpsQ6CylcZbii3f54P96P5+Px
ejxe77dD2MGAfSRBEGHG+XcXRbmHdVlGrokOenqHWiKE1Cn50RvCB/lf+6e5
CIQwDelWNxBBcJAd3XiCEoKvrfzlLEIx57dKOxdHIVrekgoVIUan52PCyl6I
aKcNp7SaKMjZrn6L2ELMymtyO45DKDC5cnXzfCGuN82zziWk6A/+/sULSyFM
eqrev9H7FVLjzVqDPhIi6GWIoUFzFGPbzXPbLIQ4PqtjWIoEhO5yPj0wQ4hF
bvb3M4lEqK1fqS8Qxv5qvV++5Az4GoeizdM0pN51tapeGYLDg6ut3tJo3B5Z
UatJQsEDv/0/jdNw12xvjsEFfNb2ga3HCI3upz+WZhByhLVkx9v20LhOm0dl
Vcrx3qo0Jb+bxmlJLD9Xkg7rKP3ClQ9puBp8FcW9l5BYP5a9p5PGSfPhZI3m
B/y1ot3+USuNuQvYntFQwPaFp2rdbRo3Ec65ROTjYrUopSKPhs26Cs22vfkY
Uu6K6/+RRqy/yR6be/nIGv15uW0OjaVhOfny8wXwqPDknLlC4+o3j13TOFfh
G+t3O1ZOI+NOoFeKqBjPs23DFTIaq5VOau/qMphb6+aaHqRhL5z7ByZuoGTs
0xzPVTRypQ7+QS234V0vne896IyD34U0BXxzF48jZV1hWc6InfZKdFT/hmvW
fVMJgc5IV4oT5L+0YyGbEjjaOCPlGNFr1vM7akpdYhr/EKCwOErWpe+EnVt4
vUghQPqn15KbWrvgwnp0i5YIQM2/Va0c6kYrKgznVwvgczXAaXNkL3xfDdzw
sxTgTEyp+fGOPzFgIbX4coiPdO3h9xW7dSg4m1PbVsPHxRHKbUt7H5Q3u+vY
WXyEZq85YNj9FI7OuiWpR/iomqppCRjsx4rRvNLSbXwQc1xDPIIG4VrjvLjQ
g495v5oS1n3PkBjlI86z5cPa4W7bycDnOBcnKWMRfAzY6st0/S9QdJh9bKuO
B5/aU5Vjh0aQotxfFXiPh8bZCdImySiyyXsdlioeOr97nWHlrgd1oGfBtTQe
djzZGSh4qYdtUqNPRTwP1IdHclMLXmLjGg+33yONebPmI0cOvMLarV3xVQE8
vHs4Z5DHe43O3TO/Va/i4cOj53o2jbzGpd7ibRIeD+Evf41oKx+D0OOEx6w5
PLit7ZPZ7P8bITrF4rhpLgZCV7s9/HgcY7c6TDMGubDc8f+YfUPjqBWxz3yh
5eJb5wu+vooJbNopO6yr5eJxfUNuXvgk1pdMJ5ipuCgRjac3cgyws2IX38jk
Yl/89nmfPzVg10TTtOVZLlIyVYL27De4EkQ+fyblwiy5uu37oLf4yIm32yuc
iz0BU+8a7aYw6nA/y2sLF8uGl95t1k7h89jJtgKGi5GtmVbrsqaxxTSvRr2E
i9GU6gm7ve+QyCZNlrO5UAdGrOw2Jxhvx1DJrJlc7G1Iqoo4RDCX7zoKEyco
tBYWmW1rIZiRDef1m/opfDa26Eq0gMVcWtiVGq+l0KOsjFufxGLavrCY9K+j
wL7jbS8bYDGZp2JiI8spCOQqw6JnLGYlb7Elx+jlEQu0miEW09esVd2/TsH/
g+GkiWEWEyd9M+xp9OmNFw3iMRbTU3I81qKMwohW1+FNkkzSl7Ovl5dQqOk/
kWTCJpllhbIH04XG+yqfibPtSOacQZ5cbvQj2f+8RPYkE7jz7IYIo/+m+YZo
R5LZcWv+nfYCCrSkVazjk0zG7Ae3c/MppE7YedUsI5mRJ1/r/PIoKBoSObtW
kIzvqR+K3uVSKMnQT066k0z5fy7HqI1uENWrPhaRzCEr1xkco6dPRHEUn5CM
y2CpSJ9DYWaAdlK0lmROd6pnKo22cULHg/+SzJ+XUx8GG7203jJp9jqSGaV0
x+oUFNakHRNf8yOZm7T/5q+MXi/u/8R3vbEvMd1pidHB7v6cvg3Gf7oqx59k
UxDP+HkyfhPJ+NWVNcuN/geCNsOm
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 7.04},
  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, 172000.}, {7, 15}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777207367243533*^9, 3.777207374761361*^9}, 
   3.777208296353672*^9, 3.7772117903722067`*^9, 3.777212023683614*^9, 
   3.777212064874357*^9, 3.7772659483875647`*^9, {3.777266097213975*^9, 
   3.777266106582649*^9}, 3.777266201459473*^9, 3.7776364362685623`*^9, 
   3.777636477079583*^9, 3.777636877856349*^9, 3.7776379291519885`*^9, 
   3.7776382888958464`*^9, 3.7776387163407183`*^9, 3.777638853967327*^9, 
   3.777639037824927*^9, 3.7776392554881563`*^9, 3.7776392941118555`*^9, 
   3.7776393275746546`*^9, 3.777790216884918*^9, 3.7778086767082024`*^9, {
   3.777808828950691*^9, 3.7778088435753756`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_100K_Tm_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[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", " ", "=", " ", "100"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "13000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", "=", " ", "75000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", "0.71"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", "0.29"}], ";"}], "\[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"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", " ", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "152"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", " ", "A1", ",", " ", "T11", ",", "T21"}], "]"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "15"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\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.777207419428011*^9, 3.7772074345184546`*^9}, 
   3.7772077026123877`*^9, {3.777208322752318*^9, 3.777208330701445*^9}, 
   3.7776362642955637`*^9, 3.7776363317682457`*^9, {3.7776368872367516`*^9, 
   3.777636914973551*^9}, {3.7776387356067348`*^9, 3.777638780481924*^9}, {
   3.7776388699849467`*^9, 3.777638870203649*^9}, {3.7776389262337875`*^9, 
   3.7776389452053537`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0gs01GkfB/C5jyLXVrW1YROblbQJm+T3rFi2IZR93bI72djq7cK2pVKM
Itk27bJLrNhist03G5HJFO3YLoqVKJFLg0gzzWA0hn3fnt97zvs/Z86cz/n+
nt/veZ7/32r9tqANLAaDceY/v//+v32SYoHx/49lNtj7JUflGNZUv7WiCByz
SiLrbe5TB1wAlWtQvJ99E3VLKYybt+XmXm+hTrsK1ytucOJSHlO7SmB1q7Bf
7fmMWi2FbJ/7EsdFXdSCGribkRD4g3EPddEtuHlqX2J4v5x6XAZHHfJEl017
qdfehuiPA2vaeP3U5+7C4VjvPVEnB6k598HrXIz1N2EvqS88gJTOr6aPdqAf
N0D9vs5caxcFNe9v+FdsQ593ySvqj5ogL8z7WyOxkjryIQSynR87xaLTm2He
inXut2ToskegsXO76Vijou5qgeMnfnxveyLa8DFYfiN5GlWgpl72BJSNd3bO
DBymjm6DyIsvdafICPWPT2GDlb1T8z709XYIslqbMvwE/aIDJJHV4g7nUerv
nkHZ3d/k+TwNtVUn3PDJyW2VYV7eCWl7hKNiuzFqvy7oJ+5dif5a6u4uEB6L
1/L3Y767Gz4UGl6JPoE26oHJKYbB9UPo4h5IP53VczUa17s9h4hPJoI6H2De
8ByWrztKnAjmMXJIro16PeExTq2Tw3pxgk9yzgR1Zi/k5uTHLV+K+YI+EEjc
I+Yo0dV90L6obnDXBawP7gelc9mQyllHPdAPPrvaC8PmTlKLXoB5/TKBkSF6
xgDUCx9sYOzE9ecH4KtYk5JxZ4b0rT0HQTW711suxH6tg3Ar4ldu3hGs3/YS
xk0lUY+0aO4QtPxbj+F/EZ03BJt9jxhzlNhv8Ss46OrgaqdAy16B/5jF+iJj
6iQHBbi5iC+4LWJS71ZAo/l7cUMr0bUKyIrltow1sqiNlHBM9vdoyzLMw5Rg
Wu31bm0Y5sVKMGA2BuZrMFcoQb3NQ/itAeZuryFP1rM7ZASd+hq2ShSd++VY
3/AaNvaZxVS4Yj5HBUudn36QbIaOUUGTXdxwYT6b+rIKTC8/kwn5mOtUMPf4
Jvu6KrSPGmyqirVlrlifqYaM6d//YfIE83Y1COfr/D+7ifmCYdjbt8g3wh29
Yxha5j2teKXC+uphMMhUnjFjYD51BDYa2bIrtnKog0fgy/cLZ4vMMS8cga+T
ckOK56IHRqDXjXgJbqCdR8Fj6p61tc64XjQKmS0WwtTv0HdHYWBWVdeKbvQM
DZzi6SRlFej1GtDVzrWL8OFSn9dAzcU0x1FzHrVGA6+cEiazbqM9x4BrkCWC
mVh/dAyW+85auHo19msdA57/3rOxgXhe6zeQoK1SNCpx/bY3cDijyM8iAl35
BgoHfH7vC55CzdWCvqi3x1aD5wvQQo1wyS/nOVifpwVz32Bf1wq0XAtM42ZB
4gncz+JxuLSlbVVFOu4nYRxsbEMH6+5gvWwcJAGHZnmfRJvqoK3bRv51KHqd
Du41e9xyJOgSHVwKypnbXYhW6WBnfWXkiyV86hUT0Ng1P3+8E/PDE5BhNsMk
10SPumkCwj7lhxUUoC0moaEjq92WgfWbJuGT+AWLR05ivyuTcDrugJD1K70P
YDCIN7DDt4zTXDqfQVLOCeSV82g/WMUge4+oSw9m0X7S7QxSf3XvtS+9aD38
zCAhBUWtdc2YX2MQy6NT25buxLyTQbpvbX3kVa5Pcx6TBA+fm/VoJub2TPLc
6Y8HSwxwfiCTfJ69hNWWhPN3MUlygaAjYBG19Bcmsd9oFPAk1YDmN5lkaYnC
VeNPzyPtZRIb/vdnl4dj/2kskl2+9KfbLvT9ST9ikRKmiUsFfm8QwiITXxRv
bh/C/vtYJD3Je9u1Upx/ikXKBeGqyC2Y17FI/5oDfw1JMR9iEfXIw/M11zE3
Y5PozJzQpHSc/zGbyHK2J3qtmEbzSDapF4t3HCrC+QfZJEYbEqRXPZXmv7HJ
WQfPSvEg9r/PJm+sthvpl+H51Gyyt6DHWh1K6+FdDvl51crCa+U434NDyu1e
mqVK8X42cIioONvfuhTvN51DzmzvrdvqgvklDhla8tef682w/0MOqbrtpGQ1
4f61HJIx/Uxt7//u35JLwKGg1CwM13tziUPx+xbHBNh/M5esFNkUDLCn0/wH
Ltm/Xy5IGKP10jIu2TVv6PBdd/o9QBuXTMw5/mefvhHNmTwidmGtPRiN/W15
JDVxmlBWjesFPGLZWvyiyg/PH8cj73joh4laMM/mkfjfvSVfrKH3DRIe2XHS
Y/Nn13D/XTxie2hhTngtfv96fPLhVoc9U4rw/Av5JLf9zk/1zZiv4ZP5+Vea
pgXi+4vnkxTnvpOTIe/Q/ASf3HNpdiQBmNfwifvpnDeVSYY07+cThfukQXwB
tdRQj2QGr559Mc2Y5k56pH042+NTC5wfqkfiatbcOSDC/SfqkbRNOwSm/bi+
SI88X73uiGcn3t9tPZJ1r0N8xXWK9B9fwslW
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVj3k41GkAgMc5P0yNX/aRI1Gxyw4REZ3fF6VMK9RqM8USSXfurR3ritJB
paIpjWRVk9QqYxTf59iMVcTMktQwIQ0mR4Zxb/vH+7zP++e7JOiYT4gqhUIJ
+sb/rr1lMfCJf3yDVSSHtY/1bwU3+cipSZ4nqFtgkWtunoq0xU0cPs8ftF71
yIthZKKP4WPTpZRQQA20fOrYx0FoSs36Gu8ooA0frt92JRd5Vp0pdGFEgNHE
oRtP1PLRixT6pnuUGHCxasOgofc9lE03iTzNiwMPfI8/XX/zEVLva9I4CRJA
f2XFUXrTY7Rm21XvFYwkUI3eG/zE/Avd110ku01JBd4bn4adt3qGUrKtDNi8
i+Cn5bWpwbfLkIQ9tsKImQEqs4vjREPP0eTyt61R4BIIzv49x3R9ObK/xFlm
w7gCZswXXPJ9jRD356XPOZTrwHuhjXg2sAqxJbZ9sbwcoNcvpDMMa1FWOpkh
5t4Ggyjtw2JeLfLjThgZMLnANP3OU6O1QhTt3Y4jQC6okVTUeLDqUGFxDo3B
yAPukUtX7UyvR8axFnezKQXAWS262UTUiJQUB1E07xHQU2UJJkZEyIzm7htt
VwTK+fF5XCcx2rKQ1Rb1rAgQr83uqJ4Uo1fXKo+VBTwGgdYx96fnxGhRoSxK
EPYEbFvo7PKZaEHlbS6JfHYxSK92W32K/hbN2r+7UZzPB62MDLqpoh3F9xi9
4ikQYJ8bronlStH70YTKuvJaoC4M5rQLe1G/QCyo3t0IXNMjS085yZHXThu/
w69F4MpIbdtyj2EU45D2MLKgFfzK8utVXv+KjhdQ4rXF7WA8Zobs7FWgrrWf
ApfJO0CWT5D4rpoSkR/CaR86pCCHc/hL47sJZLz/D8tjI13gz7Ycr5yyKaTT
ZWCLpT3gRGIv78avM6h0SPbCp7YXFMyjXi74PIsahO461i0yoGC2ubusp+D6
THu3msp+INY/s+PqMAWvYDxYl9ciB3vi6m3deCp4p8/uimrpIGijbEp7tlsV
F5X8k9nUPQTaz1VSbcdU8QGrogfB8mGgbbFn5mO2Gv5O/53jru4RcKvO6DHP
Rh0rQplL5INfQZhVvfqEUB2vTPzlTd7YKIi7+lbXdK8GDtV/OCroV4CqjTMs
WZcGbqBv/i1CMQa27ZiQ4HBNbJX0fcR5+ThAJ72WByg08ceKO3YvO5XA9LZ2
xbIIKn4TEOKZ93kCWLxPuOA5QcVPTh6VdkgmAbNmqvRWJIFfTpaLkWwK1HRy
tx9VEni16/1zeHAaPDzo8No+VgvnarTzzbpnAPv3EyoLvmjhdTY73Mzls6Cx
fM2uvMPa+FUDuTm1ew5sHTA0eiHVxnsWlZw+fYgCt0NJZP4OHTyQlGJgOEiB
SQ8YmQENOjjacjLkfZgKLHR0KDIHNHxjLmPf8BcVyGbayKrKaLhUr97Y6ZAq
DMqXFd+znoc1aCJHnR5VKNAddWjmzMNyp9m5FWFqkFgqovXozccNOa+Sz3Sr
wQ1E166zSfPxVpcKgd1BdXhAarfEeHo+HuWzvcLk6rD5peixUTgdZ0V05jaF
asAjTf5NnR103Bq4P+/cgAas1+dnejJ0Mf1CekDUAU24enHDCCdIF0ffTGEP
SjXhqNlmv9IsXRwr4TKfh1Chr/uHLB+RLo7Y6y8u6aTCuITOtj4tEttF9ivb
P1Kht8AjXKJN4oG0WBOVHiqUaDK0mnVIHFx6eT9TRoUhd73sBfNI7KtXq+wY
psJEU9fwVJLEznW2JlpqBGSV7L2/zJDEsytV9rMsCNhzymTCz5LEZcyLafE/
fOvu7EBPKxLHBBkX5VsR8Ps3uUL4I4mH0h2VgzYEbPzb97KlNYmlfWFpyU4E
9HAP/W7MlsQ13OZHhe4EbD7ylyhjFYnj+QGi5q0EXLtypUWyM4nXNQyMjzMJ
SHnOjIpxIXHJlCbc6EXAMxfXk/5rSFzgu0bU8gsBd3W4OTM2fPs5Ihyf8iNg
7NqUuMWAxGbJPy9aspeA8/cEVZOQxFlPjoUcCiSgjr98i3IjiXcKp89m7CPg
Qfats/2uJCY7zj56FkJA+7Y+ocSNxA0KfdG7UAKa01s0mzeROI12d3wujIAl
LwJc/95M4v8APxAMag==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVj3k41GkAgMc5P0yNX/aRI1Gxyw4REZ3fF6VMK9RqM8USSXfurR3ritJB
paIpjWRVk9QqYxTf59iMVcTMktQwIQ0mR4Zxb/vH+7zP++e7JOiYT4gqhUIJ
+sb/rr1lMfCJf3yDVSSHtY/1bwU3+cipSZ4nqFtgkWtunoq0xU0cPs8ftF71
yIthZKKP4WPTpZRQQA20fOrYx0FoSs36Gu8ooA0frt92JRd5Vp0pdGFEgNHE
oRtP1PLRixT6pnuUGHCxasOgofc9lE03iTzNiwMPfI8/XX/zEVLva9I4CRJA
f2XFUXrTY7Rm21XvFYwkUI3eG/zE/Avd110ku01JBd4bn4adt3qGUrKtDNi8
i+Cn5bWpwbfLkIQ9tsKImQEqs4vjREPP0eTyt61R4BIIzv49x3R9ObK/xFlm
w7gCZswXXPJ9jRD356XPOZTrwHuhjXg2sAqxJbZ9sbwcoNcvpDMMa1FWOpkh
5t4Ggyjtw2JeLfLjThgZMLnANP3OU6O1QhTt3Y4jQC6okVTUeLDqUGFxDo3B
yAPukUtX7UyvR8axFnezKQXAWS262UTUiJQUB1E07xHQU2UJJkZEyIzm7htt
VwTK+fF5XCcx2rKQ1Rb1rAgQr83uqJ4Uo1fXKo+VBTwGgdYx96fnxGhRoSxK
EPYEbFvo7PKZaEHlbS6JfHYxSK92W32K/hbN2r+7UZzPB62MDLqpoh3F9xi9
4ikQYJ8bronlStH70YTKuvJaoC4M5rQLe1G/QCyo3t0IXNMjS085yZHXThu/
w69F4MpIbdtyj2EU45D2MLKgFfzK8utVXv+KjhdQ4rXF7WA8Zobs7FWgrrWf
ApfJO0CWT5D4rpoSkR/CaR86pCCHc/hL47sJZLz/D8tjI13gz7Ycr5yyKaTT
ZWCLpT3gRGIv78avM6h0SPbCp7YXFMyjXi74PIsahO461i0yoGC2ubusp+D6
THu3msp+INY/s+PqMAWvYDxYl9ciB3vi6m3deCp4p8/uimrpIGijbEp7tlsV
F5X8k9nUPQTaz1VSbcdU8QGrogfB8mGgbbFn5mO2Gv5O/53jru4RcKvO6DHP
Rh0rQplL5INfQZhVvfqEUB2vTPzlTd7YKIi7+lbXdK8GDtV/OCroV4CqjTMs
WZcGbqBv/i1CMQa27ZiQ4HBNbJX0fcR5+ThAJ72WByg08ceKO3YvO5XA9LZ2
xbIIKn4TEOKZ93kCWLxPuOA5QcVPTh6VdkgmAbNmqvRWJIFfTpaLkWwK1HRy
tx9VEni16/1zeHAaPDzo8No+VgvnarTzzbpnAPv3EyoLvmjhdTY73Mzls6Cx
fM2uvMPa+FUDuTm1ew5sHTA0eiHVxnsWlZw+fYgCt0NJZP4OHTyQlGJgOEiB
SQ8YmQENOjjacjLkfZgKLHR0KDIHNHxjLmPf8BcVyGbayKrKaLhUr97Y6ZAq
DMqXFd+znoc1aCJHnR5VKNAddWjmzMNyp9m5FWFqkFgqovXozccNOa+Sz3Sr
wQ1E166zSfPxVpcKgd1BdXhAarfEeHo+HuWzvcLk6rD5peixUTgdZ0V05jaF
asAjTf5NnR103Bq4P+/cgAas1+dnejJ0Mf1CekDUAU24enHDCCdIF0ffTGEP
SjXhqNlmv9IsXRwr4TKfh1Chr/uHLB+RLo7Y6y8u6aTCuITOtj4tEttF9ivb
P1Kht8AjXKJN4oG0WBOVHiqUaDK0mnVIHFx6eT9TRoUhd73sBfNI7KtXq+wY
psJEU9fwVJLEznW2JlpqBGSV7L2/zJDEsytV9rMsCNhzymTCz5LEZcyLafE/
fOvu7EBPKxLHBBkX5VsR8Ps3uUL4I4mH0h2VgzYEbPzb97KlNYmlfWFpyU4E
9HAP/W7MlsQ13OZHhe4EbD7ylyhjFYnj+QGi5q0EXLtypUWyM4nXNQyMjzMJ
SHnOjIpxIXHJlCbc6EXAMxfXk/5rSFzgu0bU8gsBd3W4OTM2fPs5Ihyf8iNg
7NqUuMWAxGbJPy9aspeA8/cEVZOQxFlPjoUcCiSgjr98i3IjiXcKp89m7CPg
Qfats/2uJCY7zj56FkJA+7Y+ocSNxA0KfdG7UAKa01s0mzeROI12d3wujIAl
LwJc/95M4v8APxAMag==
       "]]}}, {}}},
  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, 203080.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7776368848372393`*^9, 3.777636915320178*^9}, 
   3.7776379349030914`*^9, 3.777638289240678*^9, {3.777638728595972*^9, 
   3.7776387626264105`*^9}, 3.777638857986533*^9, {3.777638923221901*^9, 
   3.777638945503823*^9}, 3.7776390381061077`*^9, 3.7776392557849665`*^9, 
   3.7776392945547953`*^9, 3.7776393278714585`*^9, 3.777790222406924*^9, 
   3.7778086770666013`*^9, 3.777808843716669*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777207440997553*^9, 3.777207441216158*^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[{
  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[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[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", ",", "300000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "300000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"6", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"6", ",", "4"}], "]"}], "]"}], " ", "=", 
    StyleBox[
     RowBox[{" ", 
      StyleBox[" ",
       FontWeight->"Plain"]}]], 
    RowBox[{"T2", "/.", 
     RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777207449660054*^9, 3.777207452465561*^9}, 
   3.777208995181447*^9, {3.7772655873804493`*^9, 3.7772655903835793`*^9}, 
   3.77763629490492*^9, {3.7776369207344255`*^9, 3.777636929656947*^9}, {
   3.777638769357814*^9, 3.7776387707514076`*^9}, 3.777638865731409*^9, {
   3.777638959417349*^9, 3.7776389616734514`*^9}, {3.777639223139756*^9, 
   3.7776392255282955`*^9}, {3.777790234473543*^9, 3.7777902407966948`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.034040098919537`", "0.11450887752445965`", "9.030217754939228`",
       "4.0490341177007096`*^-16"},
     {"T1", "12368.393721207116`", "2149.880067552038`", "5.753062186064358`",
       "4.089149545727745`*^-8"},
     {"T2", "97418.70484593943`", "6216.756956577622`", "15.670341550487322`",
       "1.2721890708529317`*^-34"}
    },
    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.777638947645053*^9, 3.7776389621730995`*^9}, 
   3.7776390384029117`*^9, 3.777639256066145*^9, 3.77763929472663*^9, 
   3.777639328173378*^9, {3.777790224107293*^9, 3.7777902412509375`*^9}, 
   3.777808677270752*^9, 3.7778088438416367`*^9}],

Cell[BoxData["0.9907888111714946`"], "Output",
 CellChangeTimes->{{3.777638947645053*^9, 3.7776389621730995`*^9}, 
   3.7776390384029117`*^9, 3.777639256066145*^9, 3.77763929472663*^9, 
   3.777639328173378*^9, {3.777790224107293*^9, 3.7777902412509375`*^9}, 
   3.777808677270752*^9, 3.7778088438416367`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.015313438110423`", "0.007260666820154867`", 
      "139.83749196313718`", "5.768354700205587`*^-175"},
     {"T1", "12371.44660945873`", "206.5533603563347`", "59.89467606877069`", 
      "8.368566033865238`*^-115"},
     {"T2", "101942.70141618348`", "1534.2781024635105`", "66.4434311175395`",
       "4.997623695136934`*^-122"}
    },
    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.777638947645053*^9, 3.7776389621730995`*^9}, 
   3.7776390384029117`*^9, 3.777639256066145*^9, 3.77763929472663*^9, 
   3.777639328173378*^9, {3.777790224107293*^9, 3.7777902412509375`*^9}, 
   3.777808677270752*^9, 3.777808843888502*^9}],

Cell[BoxData["0.9977741468860091`"], "Output",
 CellChangeTimes->{{3.777638947645053*^9, 3.7776389621730995`*^9}, 
   3.7776390384029117`*^9, 3.777639256066145*^9, 3.77763929472663*^9, 
   3.777639328173378*^9, {3.777790224107293*^9, 3.7777902412509375`*^9}, 
   3.777808677270752*^9, 3.777808843888502*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxN0gs01GkfB/C5jyLXVrW1YROblbQJm+T3rFi2IZR93bI72djq7cK2pVKM
Itk27bJLrNhist03G5HJFO3YLoqVKJFLg0gzzWA0hn3fnt97zvs/Z86cz/n+
nt/veZ7/32r9tqANLAaDceY/v//+v32SYoHx/49lNtj7JUflGNZUv7WiCByz
SiLrbe5TB1wAlWtQvJ99E3VLKYybt+XmXm+hTrsK1ytucOJSHlO7SmB1q7Bf
7fmMWi2FbJ/7EsdFXdSCGribkRD4g3EPddEtuHlqX2J4v5x6XAZHHfJEl017
qdfehuiPA2vaeP3U5+7C4VjvPVEnB6k598HrXIz1N2EvqS88gJTOr6aPdqAf
N0D9vs5caxcFNe9v+FdsQ593ySvqj5ogL8z7WyOxkjryIQSynR87xaLTm2He
inXut2ToskegsXO76Vijou5qgeMnfnxveyLa8DFYfiN5GlWgpl72BJSNd3bO
DBymjm6DyIsvdafICPWPT2GDlb1T8z709XYIslqbMvwE/aIDJJHV4g7nUerv
nkHZ3d/k+TwNtVUn3PDJyW2VYV7eCWl7hKNiuzFqvy7oJ+5dif5a6u4uEB6L
1/L3Y767Gz4UGl6JPoE26oHJKYbB9UPo4h5IP53VczUa17s9h4hPJoI6H2De
8ByWrztKnAjmMXJIro16PeExTq2Tw3pxgk9yzgR1Zi/k5uTHLV+K+YI+EEjc
I+Yo0dV90L6obnDXBawP7gelc9mQyllHPdAPPrvaC8PmTlKLXoB5/TKBkSF6
xgDUCx9sYOzE9ecH4KtYk5JxZ4b0rT0HQTW711suxH6tg3Ar4ldu3hGs3/YS
xk0lUY+0aO4QtPxbj+F/EZ03BJt9jxhzlNhv8Ss46OrgaqdAy16B/5jF+iJj
6iQHBbi5iC+4LWJS71ZAo/l7cUMr0bUKyIrltow1sqiNlHBM9vdoyzLMw5Rg
Wu31bm0Y5sVKMGA2BuZrMFcoQb3NQ/itAeZuryFP1rM7ZASd+hq2ShSd++VY
3/AaNvaZxVS4Yj5HBUudn36QbIaOUUGTXdxwYT6b+rIKTC8/kwn5mOtUMPf4
Jvu6KrSPGmyqirVlrlifqYaM6d//YfIE83Y1COfr/D+7ifmCYdjbt8g3wh29
Yxha5j2teKXC+uphMMhUnjFjYD51BDYa2bIrtnKog0fgy/cLZ4vMMS8cga+T
ckOK56IHRqDXjXgJbqCdR8Fj6p61tc64XjQKmS0WwtTv0HdHYWBWVdeKbvQM
DZzi6SRlFej1GtDVzrWL8OFSn9dAzcU0x1FzHrVGA6+cEiazbqM9x4BrkCWC
mVh/dAyW+85auHo19msdA57/3rOxgXhe6zeQoK1SNCpx/bY3cDijyM8iAl35
BgoHfH7vC55CzdWCvqi3x1aD5wvQQo1wyS/nOVifpwVz32Bf1wq0XAtM42ZB
4gncz+JxuLSlbVVFOu4nYRxsbEMH6+5gvWwcJAGHZnmfRJvqoK3bRv51KHqd
Du41e9xyJOgSHVwKypnbXYhW6WBnfWXkiyV86hUT0Ng1P3+8E/PDE5BhNsMk
10SPumkCwj7lhxUUoC0moaEjq92WgfWbJuGT+AWLR05ivyuTcDrugJD1K70P
YDCIN7DDt4zTXDqfQVLOCeSV82g/WMUge4+oSw9m0X7S7QxSf3XvtS+9aD38
zCAhBUWtdc2YX2MQy6NT25buxLyTQbpvbX3kVa5Pcx6TBA+fm/VoJub2TPLc
6Y8HSwxwfiCTfJ69hNWWhPN3MUlygaAjYBG19Bcmsd9oFPAk1YDmN5lkaYnC
VeNPzyPtZRIb/vdnl4dj/2kskl2+9KfbLvT9ST9ikRKmiUsFfm8QwiITXxRv
bh/C/vtYJD3Je9u1Upx/ikXKBeGqyC2Y17FI/5oDfw1JMR9iEfXIw/M11zE3
Y5PozJzQpHSc/zGbyHK2J3qtmEbzSDapF4t3HCrC+QfZJEYbEqRXPZXmv7HJ
WQfPSvEg9r/PJm+sthvpl+H51Gyyt6DHWh1K6+FdDvl51crCa+U434NDyu1e
mqVK8X42cIioONvfuhTvN51DzmzvrdvqgvklDhla8tef682w/0MOqbrtpGQ1
4f61HJIx/Uxt7//u35JLwKGg1CwM13tziUPx+xbHBNh/M5esFNkUDLCn0/wH
Ltm/Xy5IGKP10jIu2TVv6PBdd/o9QBuXTMw5/mefvhHNmTwidmGtPRiN/W15
JDVxmlBWjesFPGLZWvyiyg/PH8cj73joh4laMM/mkfjfvSVfrKH3DRIe2XHS
Y/Nn13D/XTxie2hhTngtfv96fPLhVoc9U4rw/Av5JLf9zk/1zZiv4ZP5+Vea
pgXi+4vnkxTnvpOTIe/Q/ASf3HNpdiQBmNfwifvpnDeVSYY07+cThfukQXwB
tdRQj2QGr559Mc2Y5k56pH042+NTC5wfqkfiatbcOSDC/SfqkbRNOwSm/bi+
SI88X73uiGcn3t9tPZJ1r0N8xXWK9B9fwslW
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVzXk81OkDwPGvc1zDzCM1ybGOFmm3Q3Yl5XkSSiK2qNUSqVHNr4iMJKWU
HVSOnGUzVqwrx44lyz7PsmSMBrWm3MLPiCJKOaLd/ePzev/5MfA7635clqKo
gH/7zyKOlV+35gXbe1nAPcKQb8s1SupdpDyh+Ho0B5Uk2ir69AmEFBua9vQx
CoLP25pKqutiYRBcKBmXneoJxeJPsvwyigtLHyj0iugJONhoX7SEREDGG9aN
4IEMrPZAZBEJo+Cpy9ntaQ/4uEKktSqXioGDec5FS/cKsfxAjVLVIA9+rGMm
O40/xJ4zPgtCEg9f6B69qHS7HEeqdU5yYSL0yg4K0c6pxMYW+k+zqDRYp1Xx
dMKnDotrp53yA9PhZX9Nu7jtGHMd/mooG8yAnN8CaqJiCW45fLKygdyDE86l
JpGH67EVOdwaAvnQfjyCIehqxH2jP5dmUvlwEXkKg8NbcYU5nXO/Oh966l7r
VXF8gm8EhprmBv4Cq+6eyzABYrxxYTe/ZLAAHvlJU88gtw1fpU8mEVIMM1es
7ltzpAOv0NbZFgzLYYi7feT6A3/jR/CEXgZVBa2nuf0fx7owa08lOeRfBWNf
rutUdOjGoW7yx1jNVXDbu6/K83O68Wa/nPy029XwIeuQcd73PbjwWv/GVL0a
eLH+1HJDYy/ObPKwS7apgzL132YIeQN4R56RwKH2T/hai1eYEjCE9dev6IJz
j6FAqOPkaC/F66VWCU+/bIbLena1mC3FVjk/OPofbIYb+j+l6MdKsTsrvzKm
ohkKn+01SBVLcbS8dZKYI4QrQ2b6/DzG8Hivz94jL1ugtWnMgbu+r7DgZlEd
t+UJ5D+y1TvHnsC5XAM3T3EHNHzWlNj6zRQ+G+cjcr/2HNaFnROZvp/Boct2
MYaCPujbl117fM0HnJ7Hjkqrewkbt3QZNpbO4eRL1CBtYAQ+3+Yjl266iAtK
OLzuaSlc/e7TLnO3JZy+tzhJ1DYO9eMsJRzDz3jtalybN/EGdqt/96MJlyKO
he5G+0++hZ5nE9pqbWTIjyGl9MjOacgvfNNyelqGpEvOK/GPvoNG2sQlp0CW
pEyttfiu4z1sbszfEO0sR3yzbc8sHP0AWbGb5sxn5UjNUr3Y/dVH2C3zvyHn
O/KEAht9rD3nYUZxOJdprEC0/lCkVo0sQF9JydSr3xXIKoPH7Vc9PkGemYAV
46BIxtZMlw9Ll2Dha4uwxS5F4tgQXT0b9Bne9PIuuxJAIy2MKK4okEIVRaKd
f0/QyPO495krrWRQb/DSckOYEvEaOuJhNiODRoduKW9fVCJrNcJz7/wii3IU
7qc7hSuT57TW8PAzcijh5mTiQTkV8rkHvDIxkUdB2Ruoe1dViEbErQHXKXn0
9ZMDAkpNlZyY+SOg/VcF5FOcT51JUiUWu0Z4rNOKyKiyLPKChhoZ891h0bOJ
hlyrpTuaUtWIptfNkOMTNHRyH0tOsoJOrq9L3L2br4Qwb8HPOoFO+huFuQ9O
KKO22pMGM1rq5KHNx/QWPRVkreWUlZikTo5fPqx1alQFORpnlceu1iDJWWVm
HdmqiKaF9MPTNAgtqbY9wVMN5SbPPjmjzCDH3Jc+t+jS0faYoK79zgxiObn5
cauEjl48komujGWQqYNZK/fcV0fqI6MVe8UM8ja5dk7XXwNpb/UWZDOYROAR
sLWPzkD/71NqinBhEn9hfE1AEAO9pg0I4xKZpK2giHZIzEDH9p/OMmpnkh9m
jX8KNmMi3dta3ZfogAzkVYc5xzNRgOzFZ6r7AdFpctDnjTGRXaQoxPgWIGZp
ZQvG40y0T1r+29bbgHwToC0hE0yUohs255IAiJvKZPzcJBNtccq9eCEJkBsu
KQvsWSZqVIm8Ik4FZEoy3OkgC5DF107RYfcBqZdeiZfXAcib6g5pLQOkrXqc
na0LUEL1cMXLckB6eQfsbPQBihtue/uhApAP5qYLwYYAFQ+5cgwqATEPbGMP
mwK0VPXWN/QRIHfmdO3qLQHiGD12/KIeEL4wRs/7W4Ci/GSiLRsAeZg5PT9v
BZCumz5x+gsQoU1j2SYbgNbFKlqdbwJk+QpHj78ToEvXo79saQFE1V0yb7ML
IHmvft8BESAsI9j5wh4gyws6We9bAdncqBnP2APQVz32mvptgNimXmIXOwF0
d9cmly3tgDizpTt3OwMkt1OGt6cDkO+t3PRG9gG0arSywfspIGzl3+cvu/77
s3NdDn4GyD/cACkG
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVjHk8FGgDgAez7mPmdU1CW5RB+61lbeMo75tbqTWVkWptyGgXuce2LR2O
j6aNQcmXNhIJJRErvC81Ydih+rA5olgjykTrmpJt/3h+z+/551kfeIx9RJ5C
oYR+4l+Xh7ECB7R/cmoV+qfPrz3vxDMRDL2ncKBK5iGfK2HfYsWA4ZoOChc+
67Xl1NzIwMy++qYMGAXXb7jsnXQkD4s/yBdWUXgw1rTlh7aDhTjGxDu5j5yA
TOvbb+1cSrD69U6bRHgK7tzdrlq7dBNXd+rqF1PSYGLOGf/ShTuYOtKgXDea
DnWXEt7nGdZgzlyArIPw4cG6Cp1HtvdwonrvDA9mwa/7o0e57g3Y1GbdkwLK
RVh0ztfIVK4FixtnvUoj8+Ay2Pc6W9qCeW4PH1SNXoKC/JRA6UArFu0/WvuA
XIZpa3X8mWUPMYvs74qFhTArV3RKbNaOhyeu3c6nlMISlt4HL6EYV1tqhP1W
XwrnQ964x2d149TIeGZx5A34msRt0/5PD7aSeRRWjpbBZFoWp2ihB5/WmBEQ
UgGb/WSdfyQ9wToGhg4x8A40rrP4VT2+F/8OQ4wvUergtTXDJtOKg5jhWUv8
gutghJzbieqgQRzvQw1itNdBQepTNzUyiK0Di0ovnq+Hq33BWxN4Q/jmmedW
F4wb4Gu76HvhL4Zx/iNf52zHJlg+qxyb6jOKt5WY1Lg1tsDf//JNvj73Eq/b
rPMMLrVBzxD2VEqHBG+WsDKfbGqHTTMGUd3TEswqOuQevK8dUv0Of0HRnMRs
RmltWnU7dNUtkuizJ3Ey1V4gDuuAp2Pcb5o+m8RTQwE7Dr4Qwe3M0qdPX77C
NefKm3iiP2An6+xA9F/TuJi33ocjfgzpVtYFnZVSfOxsQCf7TD8sGCyLbzR7
h+M/OqdtqBmG9gci2YsuCzivhHvqYtMLmHbBEI6Ll3D2L5RRpZFxqPMowzPO
4T0uqwxLH5iVQH73XboPZwXn7agQdHZPwa+3WhTvMlzFG9fgxpLpNzBiuEPP
J5xC3G+yTb49+hZW19uqJG+WI/+Nva2R2DsLPQrDRTMDciSvL0658Pt3UPHy
Q4MAvjzJlW602fP4byioSKDLmArk8FWnCNn3C9BSMapiTKRAGlZaxexXi1By
VDuMF0QlFGAVYM9ZhqA24eGXb6hEt1mRoj8ug5Xhl6fTEz8j+uvbek77foBF
n9/P2KSgSCbXzt4Zk6xAL+ViQ/NMReL+ILl+PmoV5u9tSQ1lKBER7RSvM5KC
ZHt0XN7kKpH+s3/n67HkkOXAlYn/GSqTAy8P+prPyaEMpvyX7peUyUat48U5
N+SRnJTTWA5USL9S1/HjEQroVswVh/xcFbI6CF6ZmVHRavjTUWstVaJ14teR
3VIq2rhJty9OoEpC5ppDe+5+hlLaGE5jQI3YuIynM35URML/Bzj4Z6iRycPb
bAa/UkLNOTO3CtTUifaBc7FHppVQZWiXnmayOkmxyPLwKFRGzY+rleaW1clz
YUfx9RAVdF3fVK7mJw1yy3ExT2Ssikaj1FeEbzXIkaT9uj9MqKJoM5ZqY5Qm
yS6oMn98VQ1FDE4sak1pEiVBY08mRx1Zn3zFnQ/QIkHslVWRkQbaN3S+SDii
RWxnrNu6+jRQkPO18ZOWNCLdV6Dn+ZsmWpwaT9MNo5G32Y1LRsFa6Lu5bbG8
chqp8Q21G9agIZ6rZlL2BI0Ed/AbQqNo6PQWelzpJjrpLitX8hPTkN8LhgUv
kE4OzZteiTGnI1n0/ST9AjoZKalP2MmnI6fh2qSqIToxfOS2Ln2Sjsjtve8U
GYCYX6ySmU7REbzrN661BpBvQg36yDQdXYtx6mUYAOKjOsNfmvnUJ2rvWRgC
krorV8adpyMPiWvCrs8BkfaN9brJA6RaqbKQywSkVXKSTzUEqDq+ZMjUDpDu
+inuVSOA3qUyRV/YAzKUvtfZcR1ANsLzdd84ALJgyZTFbADISk9T4LEVEMvI
bu4YE6ALtC7XMARIzpKRc6stQFuOHbpx1xOQwo404++2APTzR/ucRi9AbuXP
Li+zAKoc+Zgk3AFIh6Ow6itHgDRH7Dj93oB8PBlmXLgdIO+WROp7H0DU2H3L
ji4ATXVnShX2AMIwgb1/ugLEb0ofUN8LiLVQm0/z/PT/2arK2BcQpwu/cCu8
AIqNeJ5vxgFkJ1ey3WMnQOKUmBQrP0D8WT7G494AtTyRHrPbDwhX5f5y0m6A
eCF7/Lf7A/IP084jSA==
       "]]}}, {}}},
  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, 203080.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777638947645053*^9, 3.7776389621730995`*^9}, 
   3.7776390384029117`*^9, 3.777639256066145*^9, 3.77763929472663*^9, 
   3.777639328173378*^9, {3.777790224107293*^9, 3.7777902412509375`*^9}, 
   3.777808677270752*^9, 3.7778088439666076`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_110K_Tm_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[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", " ", "=", " ", "110"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", "9000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", "=", "50000"}], ";"}], "\[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"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", " ", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", " ", "A1", ",", " ", "T11", ",", "T21"}], "]"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "15"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\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.777207515522807*^9, 3.7772075357306023`*^9}, 
   3.7772076160517693`*^9, 3.7772076986994915`*^9, 3.777208353289879*^9, {
   3.7772118191485963`*^9, 3.7772118345025845`*^9}, 3.777636267859984*^9, 
   3.7776363349016724`*^9, {3.777636949261421*^9, 3.77763697142606*^9}, {
   3.7776383197967567`*^9, 3.777638367334893*^9}, {3.7776384036098557`*^9, 
   3.777638435873423*^9}, {3.777808711388731*^9, 3.7778087217117743`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxNkXdU1FcWx6fPqEgR0QRZEVAQg0RKNGpc7sM1RoQoi4SiYIQIQSQUMaJA
BNZFSmIBAyLFQlFCB0ElAUdERAQJoTiUKAx1BCkDQxEGkvXdP/Z3zpw5n/P5
3vvue1fLxfvfR1kMBuOXv3//+3//hfgC4/+/NfGwy+YPxZbtFQ/f82gaXDtX
4TExUkt5fy5wVja5BbU3URYVgeJLfbMCVxHliPtQ1XgtQ/3DDsqflsGXkRfV
G2w7KU8I4SeXupCVHmLKlo9hdUyfkeEcctoT6IjfI+JJeynPPYWq5ueC20n9
lA/UwH8Nr/Yr90soZ9eCVc3rnuQjg5Q59cBtSvvHu64hyrm/Q73BYX8LjxHK
bQ3wYVpTrz9vlDKvEXK81fofaSEbN8FnbS1fbj6E7NwM0zEvAuoKxihHtcDz
Fosdc3rjlEtewuFXj25p5yCLRXDbQTbKSJigrNgGGZV37PRkyNvaIW2x1XyM
FNmtA5LjMjofyGWUY/6EhJQfTzroT1IufwW9WlulUb3Ib16DzMFyX7PVFOXo
TiDtdtcfKsxQ1uoC39s+vk90pinf64Js41UZZ/3fUbYSw4mssNI1ecjdYrD2
0gzaajlH+XQ3KB0OijK6O0tZqQfWe5g8qfNEn94Duj5X9sq+xfrtvXBQ5+wp
ndXoG3rBoKTcVmAgp+zeB0HsG4nrtqCX90FASqFdvmCecmw/PAr7mpSXYl5/
ADZES75rXYP+4QAk7OldZixHbyuBouC2G7NxC5QHJdCpZK0tqkYOfQMWmgvH
v8tHXjkIOjVp1ofNsV/OIPQvj7YY28oQvuedQ6DblakwPo/51iFYX5gynCrG
vPdbsHnpFFugyqR57jC8MjKJDIrA+sRh0E46aCpyRW80AqvzSkeiQtE/HYGl
vT5HllZSH2I4Cp4vA3T8eNSHnB6FQ07lO95y2JQrRyHvZw2Z8hTmlcZAW1Fc
5KuC7DgGO7vzIoWxyOlj0LZD8NjbAnl0DJ7N5FX8cBr7bZfCE43kwKIsFuVw
KTxVbMxp0kTfIIVMxYC2lAhkjXFoNj9iVn0M2X0cyp3ho7CzyIXjMOicuVDQ
xKUsH4dFVnOhl9U5lL+YgE0tbX4XajEfOwFOtfkrL5xE/2oCwu+FDJ84gV5f
BnXrLtUlZ+L8/jLYWLZ7bsVVzD+UgaGKyV2Nm8iLJ4FBONl/3sR620mQJiyW
Wl1Hf2MSzO1qLK1L0A9OwnBnlpKfP/rNU6BfvFd2UYQ+dAoOcqoEZ4p4lGun
oNL+gVrHHfQrp8HAdknC/QZkl2lQUbh0LcoV8znT4Opn77J2aBHl6WmoenMy
otEP32fnDHzxm75E6IvnX5iBgcqKh1u6kVtngGEyEWewh0957TvwNzQcVHuA
3vsdlDUm6fDv43ml70B/iZ+n4Rbsz50Fcc2pY25fod8/CwYzP677yBB94ixU
ncs9P+OGvm8W9pnUeh29gGw0B4lwuNhYYzHloDlo14o+pB2A8zydg08GV2Ws
b8T8Mjncu59WOFCP3kkOfsNT24eLcN47cpCqtJZkewkoj8thcWTfvqABzP9z
Hm53O+quz8F+kfPgcpQz+lwN803zMLu5bdcvtpjXXACv7dOO0U2YP7YA10eK
PjjRib54AW56SFRTT9F6YDCIWfEfzcdk1AvXMYj9At+ptZIy7GWQ2N2RmW1l
tJ/Qh0E2xe+8EhxN9wdxDCJYyI1S2rSU+l8Z5OlA48ieFOzfxSDMQt7xxP8o
Us9jko3y3zQNg7C/AZPkv9Du8+/B/tZMwnpumuqaiP4UkzRbtq34WmsJ9UlM
MjvAHLbNxv4VTCJdrdNt3k73J+xnEu+eUiWnHrofWMoiL5oTO9buw3pjFlG2
Vwm3ccT+9iyi88SHFcfA+wezyIbM3RW+1tg/lUVW14garObQV7NI2E8nBpXe
Yv9hFnlmZN5ilk7fQ6jKJorl6ZN9eQrUb2WT2UMnb3FzKAud2cS2rEFXPIX1
59jE79O+3P07sD6TTb7/oVTvQCedF+rZ5IzdLaPi5fi+E2wilfgvWhjF+dQ5
ZKSq0FPZn7LQ7G/++bhJtRr2P8ohgaaXRI1sPD+KQ9gu8mfzL1ZQn88hvy/l
e8iclahv5hD35SL3gNe431kOOZNcfr7zAO5vDZdczUy3/XgRzvc5l8j+5aP7
QITze3KJy8cb3Moj0F/mkivVO7YmJaAv4ZKLen5ZClKcr4NLxHHjga9Mlaln
8siQwuS3u+9SBj0eUQ0OY6YV4HyWPLKrvGZwSKxKvR+PFH9W7h1QS/sJ43mE
HXNuWUIXnl/GI9aPdb+y2IbvI+aRbd+cqb/sTu8DAj6RSPIf29mpUL+RT4ID
g8ezzHB/NnwyVuJLavPw/QP4xOBkojA0HN8nhU/ejt/d5paN9Y/5JDYrydom
nuZBwifC84GpFd/j/RQFJE5d43PTD9CbCohWhVKwozvO7yAgCv5ezpPf0PvC
WQGRrFpxxygcfZqAnOpZiJvWx/vVCIgDO8HSPFxZ+BdSltRz
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQbO+SFib1JlAgAAAGIAAAACAAAAx50l7Oa3cD8R1xkLIKvcvqCEbXv6
q05AIUwwMEYYj78K1NGbt6teQJFkPdQDGpu/4nL2/LgAZ0AWmqXlvcCiv7/7
AyyWq25AV8M975qcp79OwoitOStzQEYt48+lOqy/vIYPRagAd0BgCtRGtVSw
v5kPHXSFq35Ay195X5SNtL8E6tEFekCBQNClY6aLlLa/O0yVUTErg0ApPi3s
to+4v6kQHOmfAIdAVy4hk9tnvL+GmSkYfauOQEYZ//QB3MG/3n32MRpLkEAg
Av4k1L3Cv/ou2Nd1QJFAlo07XNOcw78ykZsjLSuTQENii4oKU8W/oFUiu5sA
l0B3WKTBPKTIv33eL+p4q55ApEzTDWnvzr+YjxGQ1KCfQPMVWO/9sc+/WqD5
GhhLoEAf1tcXnjnQv3ZR28BzQKFAvykzP/D40L+ts54MKyujQKiDinNrcNK/
G3glpJkAp0Ae7wR7LEbVv/gAM9N2q65AMszbxByg2r8gDEdWdjCvQOuOjVeb
+dq/SBdb2XW1r0A3IYu5uFLbv8yWwW+6X7BA++Y0c9YD3L8crel1uWmxQCqq
NmjIYd2/vdk5grd9s0BxRPpF2gbgv/4y2pqzpbdAD9UC56CW4r+A5RrMq/W/
QHI0SO+DWue/3PSBwcm9x0BKmxx280vvv+u51LnDWc9ANtyNwIsX879QVC1a
bM3TQNLAmsm+cPa/dzOKrHSn10DpN3cZRUX5v3CnAIAK1NtAMoywXmAS/L/j
POZhI+3fQHBynYapmP6/Ed1yDN3f4UAmrxdXCGQAwBtmfyhv8uNAhCc7UFN/
AcAL4xgvwOHlQLoK073jdwLAuPDpvFLH50AzxzpS814DwM7IRwss1ulAFamo
YrRNBMDLlDJExMHrQINxLmkAIwXAMSuqPaPW7UBxYecjhQEGwFRSWb7D4e9A
+2pGSJTUBsCvtsqU0eTwQP5uWv/dkwfAaCmvqmTt8UCMV/2vPl4IwBQW2jVX
5PJAruvrGxkXCcD1Z0sh7e/zQPbkftOx2wnANIJY0KP29EBLqEtejZkKwGcW
rPS56/VADDk7I0pIC8DOD0Z5c/X2QFjqnJKLAwzAKYMmc4zt90CQOj2MoLAM
wOK+ojDG4PhAV6l4selYDcDQX2VOo+j5QBO9v84kDg7AsXpu4d/e+kDjgb2d
MrYOwMb6vdS/6ftApoI191drD8A6Q6mLwO/8QNx7sI8pDhDAoQXbtyDk/UCn
J4s3X2AQwD0tU0Qk7f5AoLwR4ze5EMDMzhFGh+T/QG6PSWfoCxHAXBy2hYVr
AEEETJjexFwRwOyDhhgZ7wBB+ywLdVG0EcB2KPpl3GkBQW8Z2orYBRLAmv+Q
Y/HuAUEztXQoFF4SwLgTyxs2awJBRYe8FVmwEsAFDNM1C+UCQcRjwxvoABPA
7Tb+/zFpA0G4mtZ/MVgTwM6ezISI5ANBaK4jrZSpE8BJOb65MGoEQbIDoym0
ARTA9Ld9UGntBEEtxEPgJ1gUwJhz4KHRZwVBnSL5LMCoFMDXYWaji+wFQWpq
ZoEXABXAD42PX3VoBkEQDcD5l1EVwHachn3v4QZBQdYD9XWhFcB43qBLu2UH
QZgLT5UU+BXAc11e1LbgB0GnGcmU4UgWwDB06/jb4gdBL4EPUkpKFsDsingd
AeUHQY314w6zSxbAZLiSZkvpB0FSATiHhE4WwFYTx/jf8QdBnISTcidUFsA4
yS8dCQMIQdK9TjRtXxbA/jQBZlslCEECp4Jl+HUWwLpLjoqAJwhBOUgCFWF3
FsB3YhuvpSkIQUeVF8TJeBbA8I81+O8tCEF+HQQhm3sWwOHqaYqENghBLknr
1T2BFsDEoNKurUcIQQ+0JCyDjBbAgLdf09JJCEFfShrV640WwD3O7Pf3SwhB
jiepfVSPFsC2+wZBQlAIQbmYk80lkhbAp1Y709ZYCEEtfqFoyJcWwGRtyPf7
WghBWnRnDjGZFsAghFUcIV0IQWRyyLOZmhbAmLFvZWthCEEjZFz9ap0WwFTI
/ImQYwhBkMaPodOeFsAR34mutWUIQUoOX0U8oBbAzvUW09pnCEFdcsropKEW
wIoMpPf/aQhBsynSiw2jFsCB2QBv
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQbO+SFib1JlAgAAAGIAAAACAAAAx50l7Oa3cD8R1xkLIKvcvqCEbXv6
q05AIUwwMEYYj78K1NGbt6teQJFkPdQDGpu/4nL2/LgAZ0AWmqXlvcCiv7/7
AyyWq25AV8M975qcp79OwoitOStzQEYt48+lOqy/vIYPRagAd0BgCtRGtVSw
v5kPHXSFq35Ay195X5SNtL8E6tEFekCBQNClY6aLlLa/O0yVUTErg0ApPi3s
to+4v6kQHOmfAIdAVy4hk9tnvL+GmSkYfauOQEYZ//QB3MG/3n32MRpLkEAg
Av4k1L3Cv/ou2Nd1QJFAlo07XNOcw78ykZsjLSuTQENii4oKU8W/oFUiu5sA
l0B3WKTBPKTIv33eL+p4q55ApEzTDWnvzr+YjxGQ1KCfQPMVWO/9sc+/WqD5
GhhLoEAf1tcXnjnQv3ZR28BzQKFAvykzP/D40L+ts54MKyujQKiDinNrcNK/
G3glpJkAp0Ae7wR7LEbVv/gAM9N2q65AMszbxByg2r8gDEdWdjCvQOuOjVeb
+dq/SBdb2XW1r0A3IYu5uFLbv8yWwW+6X7BA++Y0c9YD3L8crel1uWmxQCqq
NmjIYd2/vdk5grd9s0BxRPpF2gbgv/4y2pqzpbdAD9UC56CW4r+A5RrMq/W/
QHI0SO+DWue/3PSBwcm9x0BKmxx280vvv+u51LnDWc9ANtyNwIsX879QVC1a
bM3TQNLAmsm+cPa/dzOKrHSn10DpN3cZRUX5v3CnAIAK1NtAMoywXmAS/L/j
POZhI+3fQHBynYapmP6/Ed1yDN3f4UAmrxdXCGQAwBtmfyhv8uNAhCc7UFN/
AcAL4xgvwOHlQLoK073jdwLAuPDpvFLH50AzxzpS814DwM7IRwss1ulAFamo
YrRNBMDLlDJExMHrQINxLmkAIwXAMSuqPaPW7UBxYecjhQEGwFRSWb7D4e9A
+2pGSJTUBsCvtsqU0eTwQP5uWv/dkwfAaCmvqmTt8UCMV/2vPl4IwBQW2jVX
5PJAruvrGxkXCcD1Z0sh7e/zQPbkftOx2wnANIJY0KP29EBLqEtejZkKwGcW
rPS56/VADDk7I0pIC8DOD0Z5c/X2QFjqnJKLAwzAKYMmc4zt90CQOj2MoLAM
wOK+ojDG4PhAV6l4selYDcDQX2VOo+j5QBO9v84kDg7AsXpu4d/e+kDjgb2d
MrYOwMb6vdS/6ftApoI191drD8A6Q6mLwO/8QNx7sI8pDhDAoQXbtyDk/UCn
J4s3X2AQwD0tU0Qk7f5AoLwR4ze5EMDMzhFGh+T/QG6PSWfoCxHAXBy2hYVr
AEEETJjexFwRwOyDhhgZ7wBB+ywLdVG0EcB2KPpl3GkBQW8Z2orYBRLAmv+Q
Y/HuAUEztXQoFF4SwLgTyxs2awJBRYe8FVmwEsAFDNM1C+UCQcRjwxvoABPA
7Tb+/zFpA0G4mtZ/MVgTwM6ezISI5ANBaK4jrZSpE8BJOb65MGoEQbIDoym0
ARTA9Ld9UGntBEEtxEPgJ1gUwJhz4KHRZwVBnSL5LMCoFMDXYWaji+wFQWpq
ZoEXABXAD42PX3VoBkEQDcD5l1EVwHachn3v4QZBQdYD9XWhFcB43qBLu2UH
QZgLT5UU+BXAc11e1LbgB0GnGcmU4UgWwDB06/jb4gdBL4EPUkpKFsDsingd
AeUHQY314w6zSxbAZLiSZkvpB0FSATiHhE4WwFYTx/jf8QdBnISTcidUFsA4
yS8dCQMIQdK9TjRtXxbA/jQBZlslCEECp4Jl+HUWwLpLjoqAJwhBOUgCFWF3
FsB3YhuvpSkIQUeVF8TJeBbA8I81+O8tCEF+HQQhm3sWwOHqaYqENghBLknr
1T2BFsDEoNKurUcIQQ+0JCyDjBbAgLdf09JJCEFfShrV640WwD3O7Pf3SwhB
jiepfVSPFsC2+wZBQlAIQbmYk80lkhbAp1Y709ZYCEEtfqFoyJcWwGRtyPf7
WghBWnRnDjGZFsAghFUcIV0IQWRyyLOZmhbAmLFvZWthCEEjZFz9ap0WwFTI
/ImQYwhBkMaPodOeFsAR34mutWUIQUoOX0U8oBbAzvUW09pnCEFdcsropKEW
wIoMpPf/aQhBsynSiw2jFsCB2QBv
       "]]}}, {}}},
  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, 203080.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772075302985153`*^9, 3.7772075366852455`*^9}, 
   3.7772083536491394`*^9, {3.777211801410802*^9, 3.777211834752356*^9}, 
   3.7772120731318016`*^9, 3.777265948921054*^9, 3.777266201971988*^9, {
   3.7776369457137995`*^9, 3.7776369717384787`*^9}, 3.777637940158179*^9, {
   3.777638289681609*^9, 3.777638367596055*^9}, {3.7776384076139336`*^9, 
   3.777638436717003*^9}, 3.7776389655824986`*^9, 3.7776390386372333`*^9, 
   3.777639256300465*^9, 3.7776392951830163`*^9, 3.777639328464074*^9, 
   3.777790258244668*^9, 3.777808677729933*^9, {3.7778087078291078`*^9, 
   3.777808722024198*^9}, 3.7778088441071997`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777207517386672*^9, 3.7772075176520643`*^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[{
  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[{"nlm", "[", "\"\<ParameterTable\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"nlm", "[", "\"\<RSquared\>\"", "]"}], "\[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", ",", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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"}], ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"7", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"7", ",", "4"}], "]"}], "]"}], " ", "=", 
    StyleBox[
     RowBox[{" ", 
      StyleBox[" ",
       FontWeight->"Plain"]}]], 
    RowBox[{"T2", "/.", 
     RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772075257411156`*^9, 3.7772075283946176`*^9}, 
   3.777208991706128*^9, {3.7772655940238748`*^9, 3.777265599617345*^9}, 
   3.77763629785905*^9, {3.777636977208183*^9, 3.7776369837877665`*^9}, {
   3.777638982222251*^9, 3.777638991084478*^9}, {3.7776392303527718`*^9, 
   3.777639232486126*^9}, {3.777808727940278*^9, 3.77780873001233*^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.77780867782366*^9, {3.7778087238227897`*^9, 3.7778087307953577`*^9}, 
   3.7778088446851883`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0483578397880755`", "0.13453177974233932`", 
      "7.792640830262802`", "6.654875712912529`*^-13"},
     {"T1", "11864.98410542614`", "2384.456546900342`", "4.975969942018841`", 
      "1.6033357769325042`*^-6"},
     {"T2", "89469.82523199738`", "6133.827200980072`", "14.586296988885138`",
       "1.322959813289151`*^-31"}
    },
    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.777207538550088*^9, 3.7772083555769143`*^9, {3.7772118037422924`*^9, 
   3.7772118367906456`*^9}, 3.7772120750064564`*^9, 3.777265949156417*^9, 
   3.7772662022063074`*^9, {3.777636973849594*^9, 3.777636984162444*^9}, 
   3.7776379420170813`*^9, {3.777638290198662*^9, 3.777638313090564*^9}, {
   3.777638409722951*^9, 3.777638439109397*^9}, {3.777638967540121*^9, 
   3.777638991968816*^9}, 3.777639039012143*^9, 3.7776392566840963`*^9, 
   3.777639295386097*^9, 3.7776393289038095`*^9, 3.77779026082078*^9, 
   3.7778086779965696`*^9, 3.7778087239321117`*^9, 3.7778087610667233`*^9, 
   3.777808844711796*^9}],

Cell[BoxData["0.9884983939345803`"], "Output",
 CellChangeTimes->{
  3.777207538550088*^9, 3.7772083555769143`*^9, {3.7772118037422924`*^9, 
   3.7772118367906456`*^9}, 3.7772120750064564`*^9, 3.777265949156417*^9, 
   3.7772662022063074`*^9, {3.777636973849594*^9, 3.777636984162444*^9}, 
   3.7776379420170813`*^9, {3.777638290198662*^9, 3.777638313090564*^9}, {
   3.777638409722951*^9, 3.777638439109397*^9}, {3.777638967540121*^9, 
   3.777638991968816*^9}, 3.777639039012143*^9, 3.7776392566840963`*^9, 
   3.777639295386097*^9, 3.7776393289038095`*^9, 3.77779026082078*^9, 
   3.7778086779965696`*^9, 3.7778087239321117`*^9, 3.7778087610667233`*^9, 
   3.7778088447148275`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0227196740541982`", "0.007471365067608986`", 
      "136.88524985722492`", "1.973920631188569`*^-173"},
     {"T1", "12162.191177493383`", "208.03784567687754`", 
      "58.46143588885066`", "3.9790674558411376`*^-113"},
     {"T2", "93394.92108148255`", "1448.7857993631633`", "64.46427147652591`",
       "6.458667794199672`*^-120"}
    },
    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.777207538550088*^9, 3.7772083555769143`*^9, {3.7772118037422924`*^9, 
   3.7772118367906456`*^9}, 3.7772120750064564`*^9, 3.777265949156417*^9, 
   3.7772662022063074`*^9, {3.777636973849594*^9, 3.777636984162444*^9}, 
   3.7776379420170813`*^9, {3.777638290198662*^9, 3.777638313090564*^9}, {
   3.777638409722951*^9, 3.777638439109397*^9}, {3.777638967540121*^9, 
   3.777638991968816*^9}, 3.777639039012143*^9, 3.7776392566840963`*^9, 
   3.777639295386097*^9, 3.7776393289038095`*^9, 3.77779026082078*^9, 
   3.7778086779965696`*^9, 3.7778087239321117`*^9, 3.7778087610667233`*^9, 
   3.7778088447375336`*^9}],

Cell[BoxData["0.9976324025453586`"], "Output",
 CellChangeTimes->{
  3.777207538550088*^9, 3.7772083555769143`*^9, {3.7772118037422924`*^9, 
   3.7772118367906456`*^9}, 3.7772120750064564`*^9, 3.777265949156417*^9, 
   3.7772662022063074`*^9, {3.777636973849594*^9, 3.777636984162444*^9}, 
   3.7776379420170813`*^9, {3.777638290198662*^9, 3.777638313090564*^9}, {
   3.777638409722951*^9, 3.777638439109397*^9}, {3.777638967540121*^9, 
   3.777638991968816*^9}, 3.777639039012143*^9, 3.7776392566840963`*^9, 
   3.777639295386097*^9, 3.7776393289038095`*^9, 3.77779026082078*^9, 
   3.7778086779965696`*^9, 3.7778087239321117`*^9, 3.7778087610667233`*^9, 
   3.7778088447375336`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxNkXdU1FcWx6fPqEgR0QRZEVAQg0RKNGpc7sM1RoQoi4SiYIQIQSQUMaJA
BNZFSmIBAyLFQlFCB0ElAUdERAQJoTiUKAx1BCkDQxEGkvXdP/Z3zpw5n/P5
3vvue1fLxfvfR1kMBuOXv3//+3//hfgC4/+/NfGwy+YPxZbtFQ/f82gaXDtX
4TExUkt5fy5wVja5BbU3URYVgeJLfbMCVxHliPtQ1XgtQ/3DDsqflsGXkRfV
G2w7KU8I4SeXupCVHmLKlo9hdUyfkeEcctoT6IjfI+JJeynPPYWq5ueC20n9
lA/UwH8Nr/Yr90soZ9eCVc3rnuQjg5Q59cBtSvvHu64hyrm/Q73BYX8LjxHK
bQ3wYVpTrz9vlDKvEXK81fofaSEbN8FnbS1fbj6E7NwM0zEvAuoKxihHtcDz
Fosdc3rjlEtewuFXj25p5yCLRXDbQTbKSJigrNgGGZV37PRkyNvaIW2x1XyM
FNmtA5LjMjofyGWUY/6EhJQfTzroT1IufwW9WlulUb3Ib16DzMFyX7PVFOXo
TiDtdtcfKsxQ1uoC39s+vk90pinf64Js41UZZ/3fUbYSw4mssNI1ecjdYrD2
0gzaajlH+XQ3KB0OijK6O0tZqQfWe5g8qfNEn94Duj5X9sq+xfrtvXBQ5+wp
ndXoG3rBoKTcVmAgp+zeB0HsG4nrtqCX90FASqFdvmCecmw/PAr7mpSXYl5/
ADZES75rXYP+4QAk7OldZixHbyuBouC2G7NxC5QHJdCpZK0tqkYOfQMWmgvH
v8tHXjkIOjVp1ofNsV/OIPQvj7YY28oQvuedQ6DblakwPo/51iFYX5gynCrG
vPdbsHnpFFugyqR57jC8MjKJDIrA+sRh0E46aCpyRW80AqvzSkeiQtE/HYGl
vT5HllZSH2I4Cp4vA3T8eNSHnB6FQ07lO95y2JQrRyHvZw2Z8hTmlcZAW1Fc
5KuC7DgGO7vzIoWxyOlj0LZD8NjbAnl0DJ7N5FX8cBr7bZfCE43kwKIsFuVw
KTxVbMxp0kTfIIVMxYC2lAhkjXFoNj9iVn0M2X0cyp3ho7CzyIXjMOicuVDQ
xKUsH4dFVnOhl9U5lL+YgE0tbX4XajEfOwFOtfkrL5xE/2oCwu+FDJ84gV5f
BnXrLtUlZ+L8/jLYWLZ7bsVVzD+UgaGKyV2Nm8iLJ4FBONl/3sR620mQJiyW
Wl1Hf2MSzO1qLK1L0A9OwnBnlpKfP/rNU6BfvFd2UYQ+dAoOcqoEZ4p4lGun
oNL+gVrHHfQrp8HAdknC/QZkl2lQUbh0LcoV8znT4Opn77J2aBHl6WmoenMy
otEP32fnDHzxm75E6IvnX5iBgcqKh1u6kVtngGEyEWewh0957TvwNzQcVHuA
3vsdlDUm6fDv43ml70B/iZ+n4Rbsz50Fcc2pY25fod8/CwYzP677yBB94ixU
ncs9P+OGvm8W9pnUeh29gGw0B4lwuNhYYzHloDlo14o+pB2A8zydg08GV2Ws
b8T8Mjncu59WOFCP3kkOfsNT24eLcN47cpCqtJZkewkoj8thcWTfvqABzP9z
Hm53O+quz8F+kfPgcpQz+lwN803zMLu5bdcvtpjXXACv7dOO0U2YP7YA10eK
PjjRib54AW56SFRTT9F6YDCIWfEfzcdk1AvXMYj9At+ptZIy7GWQ2N2RmW1l
tJ/Qh0E2xe+8EhxN9wdxDCJYyI1S2rSU+l8Z5OlA48ieFOzfxSDMQt7xxP8o
Us9jko3y3zQNg7C/AZPkv9Du8+/B/tZMwnpumuqaiP4UkzRbtq34WmsJ9UlM
MjvAHLbNxv4VTCJdrdNt3k73J+xnEu+eUiWnHrofWMoiL5oTO9buw3pjFlG2
Vwm3ccT+9iyi88SHFcfA+wezyIbM3RW+1tg/lUVW14garObQV7NI2E8nBpXe
Yv9hFnlmZN5ilk7fQ6jKJorl6ZN9eQrUb2WT2UMnb3FzKAud2cS2rEFXPIX1
59jE79O+3P07sD6TTb7/oVTvQCedF+rZ5IzdLaPi5fi+E2wilfgvWhjF+dQ5
ZKSq0FPZn7LQ7G/++bhJtRr2P8ohgaaXRI1sPD+KQ9gu8mfzL1ZQn88hvy/l
e8iclahv5hD35SL3gNe431kOOZNcfr7zAO5vDZdczUy3/XgRzvc5l8j+5aP7
QITze3KJy8cb3Moj0F/mkivVO7YmJaAv4ZKLen5ZClKcr4NLxHHjga9Mlaln
8siQwuS3u+9SBj0eUQ0OY6YV4HyWPLKrvGZwSKxKvR+PFH9W7h1QS/sJ43mE
HXNuWUIXnl/GI9aPdb+y2IbvI+aRbd+cqb/sTu8DAj6RSPIf29mpUL+RT4ID
g8ezzHB/NnwyVuJLavPw/QP4xOBkojA0HN8nhU/ejt/d5paN9Y/5JDYrydom
nuZBwifC84GpFd/j/RQFJE5d43PTD9CbCohWhVKwozvO7yAgCv5ezpPf0PvC
WQGRrFpxxygcfZqAnOpZiJvWx/vVCIgDO8HSPFxZ+BdSltRz
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwBMQbO+SFib1JlAgAAAGIAAAACAAAAx50l7Oa3cD8tE/GTJy2oP6CEbXv6
q05A85bYgpL5oT8K1NGbt6teQJtoUx9VvZo/4nL2/LgAZ0BHZhHZFHOSP7/7
AyyWq25AfitkrrRqhT9OwoitOStzQMZDMVF402o/vIYPRagAd0DjqCSWtadt
v5kPHXSFq35A1Cmd+KYnkb8E6tEFekCBQK/jVbN5nJe/O0yVUTErg0A8/j8H
q+udv6kQHOmfAIdAkuZ51+MUpb+GmSkYfauOQNZ4Ip/uXLC/3n32MRpLkEDX
c2CegMSxv/ou2Nd1QJFAoc8TZJQns78ykZsjLSuTQBmhfwld4bW/oFUiu5sA
l0CguTQxpCm7v33eL+p4q55An2P1wtqXwr+YjxGQ1KCfQJC5pBXUMsO/WqD5
GhhLoEDNa3nYvczDv3ZR28BzQKFAZRvEgoX9xL+ts54MKyujQFQ4CAy9U8e/
G3glpJkAp0BV4yp7RdjLv/gAM9N2q65A8Gh5uTMw0r8gDEdWdjCvQM/BzNKR
d9K/SBdb2XW1r0BGrrpBo77Sv8yWwW+6X7BAss3+T+VL078crel1uWmxQLSw
uA0IY9S/vdk5grd9s0DAxT3Vt4TWv/4y2pqzpbdAsxGmIcKb2r+A5RrMq/W/
QJIPt1fKHOG/3PSBwcm9x0Csp0PNw3jnv+u51LnDWc9A3u/XVGr+7L9QVC1a
bM3TQPJQL893LvG/dzOKrHSn10A2LxLFKHLzv3CnAIAK1NtA6zyZtlGt9b/j
POZhI+3fQPWRhfRBrPe/Ed1yDN3f4UA0/qecMmL5vxtmfyhv8uNA84xFDU8Y
+78L4xgvwOHlQPjDtmsbk/y/uPDpvFLH50AbF+aKtu39v87IRwss1ulALZH3
updN/7/LlDJExMHrQICgwt0QQQDAMSuqPaPW7UAgcLj+794AwFRSWb7D4e9A
005XgrtxAcCvtsqU0eTwQGAlhlFQ9AHAaCmvqmTt8UD14WwF/HsCwBQW2jVX
5PJAHGKH5MX1AsD1Z0sh7e/zQKXqkk4xdQPANIJY0KP29EDwH3vqU+4DwGcW
rPS56/VAegWHnEhcBMDOD0Z5c/X2QCNBpvCg0ATAKYMmc4zt90DAXNOa7DoF
wOK+ojDG4PhA+nLNiz2hBcDQX2VOo+j5QEVC8f5mDgbAsXpu4d/e+kBnJp7P
xnIGwMb6vdS/6ftAiqkAnCfeBsA6Q6mLwO/8QBebXKxWRgfAoQXbtyDk/UAc
jGXujqYHwD0tU0Qk7f5ANwpKGAAOCMDMzhFGh+T/QGF5TbTSbQjAXBy2hYVr
AEGQz1qdJ8sIwOyDhhgZ7wBBAV7jodYvCcB2KPpl3GkBQbG+mg5LjQnAmv+Q
Y/HuAUHH1MeWJPIJwLgTyxs2awJBwrbCcu9PCsAFDNM1C+UCQQgLRBqUqwrA
7Tb+/zFpA0HknAzHrQ4LwM6ezISI5ANBj89GHetqC8BJOb65MGoEQVnVkqai
zgvA9Ld9UGntBEHQpqtzUjAMwJhz4KHRZwVBbLAs40eLDMDXYWaji+wFQWpF
9mK/7QzAD42PX3VoBkFnvpkfi0kNwHachn3v4QZB0o2212yjDcB43qBLu2UH
QWpAAmvVBA7Ac11e1LbgB0Hfl3pfo18OwDB06/jb4gdB1oUOpzhhDsDsingd
AeUHQSEyG+3NYg7AZLiSZkvpB0HGAqJ0+GUOwFYTx/jf8QdBOxZ8cU1sDsA4
yS8dCQMIQRcdFSP3eA7A/jQBZlslCEEfMVxrSZIOwLpLjoqAJwhBoRKRg96T
DsB3YhuvpSkIQfrCV5pzlQ7A8I81+O8tCEFSlZ3DnZgOwOHqaYqENghBNg0g
BfKeDsDEoNKurUcIQXBQp0Saqw7AgLdf09JJCEG53FJGL60OwD3O7Pf3SwhB
NhycRsSuDsC2+wZBQlAIQXqfCkPusQ7Ap1Y709ZYCEGJC2wrQrgOwGRtyPf7
WghBkYgZIte5DsAghFUcIV0IQbuDahdsuw7AmLFvZWthCEFM0vn9lb4OwFTI
/ImQYwhBoZM57yrADsAR34mutWUIQfWuH9+/wQ7AzvUW09pnCEFB2qzNVMMO
wIoMpPf/aQhBGcvhuunEDsAa0BmQ
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVyns81fcfwPHv+Tq37zD9QqSwkmFWKr+KzTrvbwpJF7a5tGJUDuOHpqU8
lpIoty7HtfNjOWWUlRFxEn0+U8lBbuVoTqJRxyWOQ+Icjrb98Xo8/3mtCIr0
OkQSBBH0T//6W7hDUI9+KE9bkKKnR+TwYiwEL+YIV7jdHOOqKEvhsQN6KyWE
D/h/knPMvuIYz1oqrkuBQDCV1Z/PmVmHWudJURnBhzWJQccVXx1H0RY7z0hx
ONzMVG1TG5xDOr8228fBYfCyKjmvSbmEbjcbGhUSMXB//y63dnYeYvbVcKv7
j0PQlID76mwB8pkMUEvwz4Bb8uI7NVdRnE7XeAzEw2rZ6/eCh8Volb15Zz5x
FlSh3xQsiihDrbVK9+Koc7D5px9dVEnlKMbl4YOy/mQQV+28F5F3GzX5hd55
gNOA21u09EVdJXLAfi1H4BJ0DL/OS+8To943134XEjnQVnLq48x9GN221Q2/
Is4B18Tq63pSjJKijloXRuVCtc6K57W7/kBr1W6iW/2XIcikaajhq3p0Wndc
gHEe9OrE5YH+Q2RgsvzLaBDBE5c4e1bBY3QXgs0uE8WQKgu+n+jbioy338G+
B4vBstP5go2kFR31ZB4wbiyGsPSG0b2ObWh90NXinAvXYTCz2GKTTjsqSXi5
NtusBP5nNfPq0VA7EjZ4O2c43QIn29o7ybmdaHORRaVLbTkI57wb3bu7kPnn
Bn/CbDVo85Y/MB+VocKYFZ4+rX/AfvaqC7uMBlBkakCzV8Jj6P8rmTuQL0dH
F5zPrqx8An5d/7m81egtyi3ix+fUdUBKSeqkckyBMk4Q/Zy+ZxC7xrdvx4AS
3bgVntyj7AbVPd6g/rUplLvjpqC5rQcSiiwy062nkeVSVFs02gv+K53rPSre
I9cSL4s9of1wQPzEJFJnFp078rtuXNcrkH1WN6FwV6Fc6U9c0fcDIMyN3OR/
UY2yFJb2X3cMgonIxOZl6RwKLOBFqL9/AzcnplwTns2jGk19q9ewHJYqxj/+
+rUGEYvXBnzhMwxBvPLrbt0LyPA+mzAaHAHeWt+qqI4PyGjF4/bT3m+hr7xF
ssWXwEPLlOUD8jFQRBbGsVoI7PrgjHj6sAKKHw7ncR0ZuGlRfExz1ASYpgy/
YfyfgbtT3wmXOCjh09SquCwGib/7a5+3zaQSftkR+KOLP4kt9WILM69PQoTW
0aK0KhJ3c1piYyOmoGTvhHaFvhb+IFs8bGX1DqAm+IewEC2s9/P5vt2Kd8BG
23IN67Vw8OT9kPaKafC8PMa1NmZi+62DycZh70Gzj23VF8zEQ4Gb7WXrZsCa
s7q9ooaJ9b9LP3JodAYWaccO3uCwcOJnl9zcRLOg47ixg+nFwi8fSQp/DVZB
D99ls1DEwqVOM7lNZmow2nPMcmyEhQ+d9DP84Y0akoTOrHhHNs7IL7PpKJiD
1yzTZ8tOszFHUNt+0WcevHev1itsZOMDXpoPTaYakHuMyU8YcPCG8fWPW6Qa
2JOwsbRmLwcrvs1fsv3KAlS/M0jxKOLgiYzaWdODH+DT0qmRBQUHV3qHOPbq
EvSs3Jfp+18uPihJqwk5TNB2V3zEenFc3HbjN45vK0GXNtGs9Hou3j+96pdo
GwbtM3/aL5RF4b4i8TGPNAadf/ejgJKdFF7e4GKePMSgF+5amz2/SGGbnDL1
qhEGXWenzNISUHhjiIkUjzLou44nKLsMCnt+NJ42O86gaXf5QGIWhZN2Zan5
0wxaNb4h2F5IYYV0oMuFJOkMq91X069RuF5+Ko25nKSZdlImr4rCbeIRfoEp
SfNkZ2ZDqyn8IvkbZyfzf36B3VCmmMLvba3V0StJOnf+5L2RGgrbRrXxB6xJ
+kiy0/psROHMWVPn+g0kPbe/IPBtI4VFkrNm/ptIOrpCZmjUROFSoVKlciBp
gcWaBrqZwhKnR2XrnEjaUmO2LOcJhRdOhZuJtpA0Xzcgm+6ksLaXVOW0laTN
78Tbhj+lsLEFdD3fRtI9VY212c8ovP6Rftqi7SQt92t6OiqlMC/7BP+mO0nb
bDnnt+Q5hT348i1uHiTtufiwDP6k8F4HT7PBnSS9EJbkF9ZDYT51T3VyN0kb
TUieZsko/DepcQ5L
       "]]}}, {}}},
  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, 203080.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777207538550088*^9, 3.7772083555769143`*^9, {3.7772118037422924`*^9, 
   3.7772118367906456`*^9}, 3.7772120750064564`*^9, 3.777265949156417*^9, 
   3.7772662022063074`*^9, {3.777636973849594*^9, 3.777636984162444*^9}, 
   3.7776379420170813`*^9, {3.777638290198662*^9, 3.777638313090564*^9}, {
   3.777638409722951*^9, 3.777638439109397*^9}, {3.777638967540121*^9, 
   3.777638991968816*^9}, 3.777639039012143*^9, 3.7776392566840963`*^9, 
   3.777639295386097*^9, 3.7776393289038095`*^9, 3.77779026082078*^9, 
   3.7778086779965696`*^9, 3.7778087239321117`*^9, 3.7778087610667233`*^9, 
   3.777808844815631*^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.77780867782366*^9, {3.7778087238227897`*^9, 3.7778087307953577`*^9}, 
   3.7778088448781157`*^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.77780867782366*^9, {3.7778087238227897`*^9, 3.7778087307953577`*^9}, 
   3.777808844971843*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 120K", "Section",
 CellChangeTimes->{{3.777207545929578*^9, 3.7772075523322783`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_120K_Tm_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[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", " ", "=", " ", "120"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "12000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", "=", " ", "99000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E1", " ", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E2", " ", "=", "0.5"}], ";"}], "\[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"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"logaritmic", "[", 
      RowBox[{"t", ",", " ", "A1", ",", " ", "T11", ",", "T21"}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", " ", "15"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"linear", "[", 
       RowBox[{"t", ",", " ", "A1", ",", " ", "T11", ",", "T21"}], "]"}], 
      "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Green"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\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.7772075736640267`*^9, 3.7772076123815365`*^9}, {
   3.777208375349749*^9, 3.7772083936207914`*^9}, {3.7772118514477215`*^9, 
   3.7772118543396363`*^9}, 3.777636271610766*^9, 3.7776363380476103`*^9, {
   3.7776370366839237`*^9, 3.777637047964199*^9}, {3.7776379541200953`*^9, 
   3.777638019621071*^9}, {3.7776384514052505`*^9, 3.7776384840863314`*^9}, {
   3.7777902717919083`*^9, 3.777790285042472*^9}, {3.7777905065161324`*^9, 
   3.7777905366912713`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVlAs01Hkbx8eYGZM3lwhb6KUl7GKXbFRre35S76IoaW2FpIbSBa/N5d1o
pkOxG6Vy2XWJRWld0qat47L+pd6xrV7ZlMsm0ZLcGWaGwby7/Z49533nnDlz
Puf7XL+/54xpUJi3gM1isb774/vn79uPMAJY//sxyYRIE3Md2dfi+rc8XgSy
fVyfYd9WytsqoGw4NvNIcxvl9puQl3jeZXx5N+WkOzA4MqDnpdtF2akOMtxv
T/iP9FKeYkBZaqm9Or2P8pYG6M4vUUReRy56ABnGcK/GYZDynBgylxYkxDgj
+zyEND+Nzfo/j1Iua4LMvW423xgOU+Y0Q/jsgMBWhFzxGL7/cOfD/tfjlDtb
oM/WQMuuG5n3BEKsnbqrUiWU7VthKOr9nns3kAOewvrdhcxxxTTlr56Bwa1+
sY3hFOUf20CvzKOwxxj13nawtLBJnt0mpazZCQGa7rKzFqiv+w3S5HlrKs0w
P/g5xHuUrT0UI6N8oQscjybb3R2SU/7pBZzM5KTU9qI+2A2BSYx6fhDy1y+h
MWtCfuIKsmkPbLAzlI5IMP92D/Sk7HHnNKG+tRcCDC8nHu9WUH7VC/GJi1NH
6+Yox74Ck4RlH/s6LVDW+h22Km0SVoYhF/8Oh/fpB5t7Yvz6PohYFv790UkV
5i239MHlhYYKHRMl1UP6wW/E7OkvwSyqz/dDk0ygXXgQ9YuvofpU90217VjP
agA2FWkMbLHF+PoB8KxJmdfLVqW88w2s3T9TXUzmafzQG1gZ551UbMamumgQ
zu59tJA7jfkGQ6AlKOgYP4dcPgQx6u+OeQpx3o3DIIhwL++qwfyOYbhwdfG/
Ik/ifGEjUJZR4rpXG3XuKHACQP3aCczPHgU4nXSTq8T6dmPw5Jr9zPXP1CiL
x+Dnj/Lu78ml8ULbcZCn+3izkmi8MHYcDoReanVOo/sL74/DZi+3XcVt1G+h
1gSM3hGEOIkwfvcE3LNtfU8aRv0QFk+AZwaLSfHmUB6fAA0zfVniWS7l9ZPw
ZXil9vFBjD89CS452SY3biG3TMLyqpzDnm7IRhJIhfjkzGrsFyIBg2/vHk3N
Q/0HCbj6D5rucKJ+COclUL5yqjxRE/t/OgUV+mv0pnsw/uIUtF4xPhK3n/oh
fDEFedr1ZemlGG81DU3WUSukdRj/xTS8utBXxsvF+vXTwK3xWO14EFldCl1Z
MY8SF2H8Tinc8LWM21OJnC+FFQc0nyT8m0d5SArBQVKvuzXoxxoZvDP9aVbU
N8giGTSsWqrfeQjrN8nA8GqQ0ZgP6gZyUGbEym8/4lMOksPM1ugfI37F9yyX
w+xRldxnCbifXA5GZ1aFOs+pU944Aw4rxIPHpFg/dQa87nCuuJ/B+h0zf/x/
fCALXbaIstksuJ+7nvlEEzlsFnwUWUrfduxXPQv9qy5dndTDfbkK4F+c3d++
F/fdpgC9U/mGRgGoZytgWVHRbJsT+t2vAO/IPNG6nVjfbg7EDLvlo2aMPzEH
1QestPQlWE88B+/Jljc8F+G8OvPwi3NT+jtHNCj7z4OdlcP2jzfjviXzENER
HXfVA1kyD3NZbkkvwrHfJwtQqpHVWN+GfiYvwCa/3Y4xysWUWxcgsM3Db4zB
ef6uBOMb8QmCv+4rVAmpnQ3RFqXo9y0lNH2umvqwXfstA4tFcuz9PsxfRf1m
zFnESzRTcqiUzgMeLCI4din7vBbNZ8JZ5IFBcKjo9N+onsEidYEuH8wKKDM1
LLJjY6S9vJHGQw+L1PNdOmMm6XwMT4VU3XQSnLHAfGsVUmLJe/9lPO3HbFch
8mAJcfoH9o9WIV+a+Nrn8+k+TI4Kkd1/fkHUTOdnXquQR88Wra6VUb9Ag02+
2K0veq2J89iziWu6v/WLNNofPmeTAo3CxvFC6icTxyb+Cac2NIXhvIXs/9+n
kU10aiWfRByifjO6quTOvnXbvHJxngBVYuKo35dshv0TVIm/tSxJd/ESql9T
JSWFrZPOUbQfNKuSCWu1pQ0K3HdKlazb9SrtoD/NZzZwSO2M5HF57VIaL+AQ
ryMvbV3v0vtivuIQx5xsvmkavSeo5BDJFffh3t8w/ymHeDsUZx0wx3kUHDJS
rcGueorvZ8Il56O6//PdYdz/MJc0rRD2yVdgvzQuSVsrVg/IpfcLz7lkziCw
cEkL1lfhEYfURruwHF2qW/CITTcZ/iEW/drCI2arxSnurtj/nzyyvXCJ4f2/
+mXyyCbZhJWtA/UP6nik3uf049vD6Gcvj1R57Co6d5n6DXw1UlPjEiKPpv0Y
GzVS0dthajJqQPUdauTkQlx5tQLfL0+NaIUHzkl18T4a1Eilmde5ejO89zdq
5FeJsc6xAE2qa/JJz7flrUYF1E9mF58sL7n+k1Eixp/kE+VYurnLG/SviE/c
uk74FiTgez7kk00P/CyDxerMfwG2J5o0
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVz3s41OkCwPEZzMyPmd86YrHiPNRxaIeNNo7a8L4t62RKWEpEi0VTZA+5
nDrKXaZTibKGJdftMjR5lDEy3teO47KhixmOhFzX/dIyro2z54/v8/n7axIU
6RmiQqFQgv7o/7YWms5OiH5wvOLRxE9p6mksTo24vCFwA35V6w+Ut68hDdnr
ApEgAACjTu/s0LtoJEqxVUcJA4yTdi+f5BcitKlqkSu4AFTRbX5zSSly++Va
1QF2NDD8V9KonfPPqCFd0/kBJQ6Q+Q52jtKHiK9pdDFNcAW8KAxQKPc/QWrT
r2mXQBJY/vSubk1nNfrq6F0Pa3YKkMckhmv716CHfzKcukfJAMKUT2oUwbUo
nb9HP0FwE6iQfuVdpg1oMEFhbcDJAjcI3+eemRK08cV/e2PAbTDiKJEHTjai
fbcLdluyc0C6maGZUSdGxd67nhdQfgT6Fs5Nl7lSlDC4dzpeUATUAz4Nvurf
hvJuaWXJiu+BX1h9GqWKNuRbvG6gzykGHgwJXXSzHcV69ONoUAJGvcauvH3+
K6qqKWKx2WUgh2+8a0CjE+2MNy3nU+6DzHeJWUX4FVqjfNkdK3gM5hM8giYU
MmTMcjkRayUE+Xp9ch97Ofq7nl9fzDMhKLSv37ySIkcduU2R9WeegD9P0JJn
PulBhlVTMWJuNbC1M1YP29WLJH0HkkUJNaDtSG6u/FAfUu57m19TIQInc/6m
k+o8gBLHDToEKwgEkfLwmOAR9G45qald0goMJ32mX5ZPohmxTCw99RL4TsRo
CTXnkbuXpW94Zzeo/c7Gn/pgCcV9yau8eL8XPGUPXFa++x39cJ+SqCHrB97x
OR6ZDAUaPTQRuHtuCCwez3e9urKKtAaiWANDw8A7ptNVs2Ad7Qy9ah75YRSU
MZm1Yw6biDmqvxcPjwNdV9mq7YMtVLc41eDZ+htgytPYAUsfUVebC9OiZwro
fy0opTtsoxd39jk1N80Ag4MEx9aKgq3Zj+zLeubAYoWwlN1MwV6epxqlwwtg
a/fVZMtjVCys/fXO67FFQDnYJue3UPHZPcJH388tgWSH42JPJxWso/vW5uTY
B9Ae4aF481QFr4RxTOYWfgclWruPWn2uivcn+7wqUywDsYG3XjxfFYfpVi6L
Z1ZAdIZGBlCq4i7Nb/4ZvaIAP2r336s6q4b3pPw1+t9zqyAtovUfknY1PNJY
atXyfg1sUV1bGGY0/OpMiFvZ5DrYjGC6XeDRcPWlC8NDgxtgfNgkUDxOwy0b
Ehma2gTbNpYeri50fPDrh9fxwhbwqgiYH6yg4xJav8h47CM43WKdZ/6Rju0t
v3X6y5wS+DuNNCz6MnBHl9Y3GWPboOrDvKS5moFPG9ampZ2nwN7KIz8doxN4
NiVd/7MFCmQuSkNjAwkca74R8o5Lhd5pcU9ZtQTO384KXpqnwrtZKyZuWuq4
TvvFTtvzKpDW7N5kFqqOaaxuG+a4CrSkbFYzxep4zla5bc1VhTd6ncse7dDA
XUUdqdfGVCHH59CpHaEa+MiBRrHVOTWYfTzm2EGsgZdFCe7cOTX4n22hOU+f
ifOi35e8DqPBmvkbntJzTNwbGFp2fZYGK6/7JTVLmVjzxq0zMWfpcFCaM9mg
y8KxP6UnLAzT4cnEJN56GAvHDxZznocwIGWgYUoFs3C0f4Cs9j0D6t2JqNPe
QWKrizNr/SMMGLVEVSZpk3iWF29EHWfAxEj24UUdEn9flx3KmWLA8UHQ0qFH
4hParWtDSwx4eZonSTMisV37XiN1VQICF2fuqjmJlfupoX6mBOS5Ztb3OZK4
nnOTl2hGwLgPNjIXSOK4oJ3Cij0EdLx4a/bZYRIv3rJZW7AkYNF7zmfZziQe
nubyUm0JOOukDHLlkLi5+M3jKhcCzlv8Jqo/QeJE0ZnuN0cIWHC8tsHch8T2
XbOrqxwCYp49zj1F4tpNOjzsTkAHVpw06jSJ75/4qrvHh4CDUQ/rPw/64yei
bXXTl4B92Uef5QWT2DjV29DEn4Avnaoe00NInFcdGXI+kIA6Oo8KR8JI7NW2
lZkVTEDT6y457lwSaw1lPn4WQsAal4qMxnMk7lrR7X4bRsDKFekli3AS81jl
q9tcAvJBeXh+BIn/B5/IDBg=
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVz3s41OkCwPEZzMyPmd86YrHiPNRxaIeNNo7a8L4t62RKWEpEi0VTZA+5
nDrKXaZTibKGJdftMjR5lDEy3teO47KhixmOhFzX/dIyro2z54/v8/n7axIU
6RmiQqFQgv7o/7YWms5OiH5wvOLRxE9p6mksTo24vCFwA35V6w+Ut68hDdnr
ApEgAACjTu/s0LtoJEqxVUcJA4yTdi+f5BcitKlqkSu4AFTRbX5zSSly++Va
1QF2NDD8V9KonfPPqCFd0/kBJQ6Q+Q52jtKHiK9pdDFNcAW8KAxQKPc/QWrT
r2mXQBJY/vSubk1nNfrq6F0Pa3YKkMckhmv716CHfzKcukfJAMKUT2oUwbUo
nb9HP0FwE6iQfuVdpg1oMEFhbcDJAjcI3+eemRK08cV/e2PAbTDiKJEHTjai
fbcLdluyc0C6maGZUSdGxd67nhdQfgT6Fs5Nl7lSlDC4dzpeUATUAz4Nvurf
hvJuaWXJiu+BX1h9GqWKNuRbvG6gzykGHgwJXXSzHcV69ONoUAJGvcauvH3+
K6qqKWKx2WUgh2+8a0CjE+2MNy3nU+6DzHeJWUX4FVqjfNkdK3gM5hM8giYU
MmTMcjkRayUE+Xp9ch97Ofq7nl9fzDMhKLSv37ySIkcduU2R9WeegD9P0JJn
PulBhlVTMWJuNbC1M1YP29WLJH0HkkUJNaDtSG6u/FAfUu57m19TIQInc/6m
k+o8gBLHDToEKwgEkfLwmOAR9G45qald0goMJ32mX5ZPohmxTCw99RL4TsRo
CTXnkbuXpW94Zzeo/c7Gn/pgCcV9yau8eL8XPGUPXFa++x39cJ+SqCHrB97x
OR6ZDAUaPTQRuHtuCCwez3e9urKKtAaiWANDw8A7ptNVs2Ad7Qy9ah75YRSU
MZm1Yw6biDmqvxcPjwNdV9mq7YMtVLc41eDZ+htgytPYAUsfUVebC9OiZwro
fy0opTtsoxd39jk1N80Ag4MEx9aKgq3Zj+zLeubAYoWwlN1MwV6epxqlwwtg
a/fVZMtjVCys/fXO67FFQDnYJue3UPHZPcJH388tgWSH42JPJxWso/vW5uTY
B9Ae4aF481QFr4RxTOYWfgclWruPWn2uivcn+7wqUywDsYG3XjxfFYfpVi6L
Z1ZAdIZGBlCq4i7Nb/4ZvaIAP2r336s6q4b3pPw1+t9zqyAtovUfknY1PNJY
atXyfg1sUV1bGGY0/OpMiFvZ5DrYjGC6XeDRcPWlC8NDgxtgfNgkUDxOwy0b
Ehma2gTbNpYeri50fPDrh9fxwhbwqgiYH6yg4xJav8h47CM43WKdZ/6Rju0t
v3X6y5wS+DuNNCz6MnBHl9Y3GWPboOrDvKS5moFPG9ampZ2nwN7KIz8doxN4
NiVd/7MFCmQuSkNjAwkca74R8o5Lhd5pcU9ZtQTO384KXpqnwrtZKyZuWuq4
TvvFTtvzKpDW7N5kFqqOaaxuG+a4CrSkbFYzxep4zla5bc1VhTd6ncse7dDA
XUUdqdfGVCHH59CpHaEa+MiBRrHVOTWYfTzm2EGsgZdFCe7cOTX4n22hOU+f
ifOi35e8DqPBmvkbntJzTNwbGFp2fZYGK6/7JTVLmVjzxq0zMWfpcFCaM9mg
y8KxP6UnLAzT4cnEJN56GAvHDxZznocwIGWgYUoFs3C0f4Cs9j0D6t2JqNPe
QWKrizNr/SMMGLVEVSZpk3iWF29EHWfAxEj24UUdEn9flx3KmWLA8UHQ0qFH
4hParWtDSwx4eZonSTMisV37XiN1VQICF2fuqjmJlfupoX6mBOS5Ztb3OZK4
nnOTl2hGwLgPNjIXSOK4oJ3Cij0EdLx4a/bZYRIv3rJZW7AkYNF7zmfZziQe
nubyUm0JOOukDHLlkLi5+M3jKhcCzlv8Jqo/QeJE0ZnuN0cIWHC8tsHch8T2
XbOrqxwCYp49zj1F4tpNOjzsTkAHVpw06jSJ75/4qrvHh4CDUQ/rPw/64yei
bXXTl4B92Uef5QWT2DjV29DEn4Avnaoe00NInFcdGXI+kIA6Oo8KR8JI7NW2
lZkVTEDT6y457lwSaw1lPn4WQsAal4qMxnMk7lrR7X4bRsDKFekli3AS81jl
q9tcAvJBeXh+BIn/B5/IDBg=
       "]]}}, {}}},
  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, 203080.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772075813086033`*^9, 3.7772076189049416`*^9, {3.7772083777104545`*^9, 
   3.7772083939433637`*^9}, {3.777211842902855*^9, 3.777211854636406*^9}, 
   3.7772120773459735`*^9, 3.777265949354392*^9, 3.7772662023937635`*^9, 
   3.777637049391919*^9, {3.777637946834248*^9, 3.7776380199959836`*^9}, 
   3.777638290846594*^9, {3.777638443968314*^9, 3.7776384843673306`*^9}, 
   3.7776386043529215`*^9, 3.777639001046424*^9, 3.777639039215222*^9, 
   3.777639256902796*^9, 3.77763929574662*^9, 3.777639329106888*^9, {
   3.7777902673804474`*^9, 3.777790275825391*^9}, 3.77779046498144*^9, {
   3.7777905069106236`*^9, 3.777790537395571*^9}, 3.7778086785100327`*^9, 
   3.7778088451449213`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.7772076392185106`*^9, 3.7772076395356417`*^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[{
  RowBox[{"nlm2", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"linear", "[", 
        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[{"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[{"-", "6"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "300000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"nlm2", "[", "t", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "300000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"8", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"8", ",", "4"}], "]"}], "]"}], " ", "=", 
    StyleBox[
     RowBox[{" ", 
      StyleBox[" ",
       FontWeight->"Plain"]}]], 
    RowBox[{"T2", "/.", 
     RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772076437253933`*^9, 3.777207647329576*^9}, 
   3.7772089867637196`*^9, {3.7772656045687203`*^9, 3.7772656079677696`*^9}, 
   3.777636301391331*^9, {3.777638607415526*^9, 3.777638615394531*^9}, {
   3.7776392367316685`*^9, 3.7776392388413677`*^9}, {3.777790549706989*^9, 
   3.777790552869358*^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.7776382910028057`*^9, {3.777638447471387*^9, 3.777638487064331*^9}, {
   3.7776386098212433`*^9, 3.7776386181994796`*^9}, 3.777639006360296*^9, 
   3.7776390402496443`*^9, 3.7776392579338107`*^9, 3.7776392965756736`*^9, 
   3.7776393301515455`*^9, 3.777790278718478*^9, {3.7777905417710547`*^9, 
   3.7777905540403666`*^9}, 3.7778086796826644`*^9, 3.7778088458990583`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "0.9592216223239038`", "0.19053286761560098`", 
      "5.034415501786958`", "1.285877795585709`*^-6"},
     {"T1", "11213.963094712633`", "3658.667156597801`", "3.065040522882795`",
       "0.0025576496143009646`"},
     {"T2", "96546.26844686185`", "11614.136574777338`", "8.312823585744066`",
       "3.922161121126671`*^-14"}
    },
    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.7772076500618176`*^9, 3.7772083977619343`*^9, {3.7772118449830523`*^9, 
   3.7772118566046915`*^9}, 3.777212080694931*^9, 3.7772659495574684`*^9, 
   3.777266202600521*^9, {3.7776379759056845`*^9, 3.7776380288936267`*^9}, 
   3.7776382910965333`*^9, {3.777638447580736*^9, 3.777638487173646*^9}, {
   3.7776386099149723`*^9, 3.7776386182307224`*^9}, 3.777639006391551*^9, 
   3.7776390402652583`*^9, 3.7776392579650483`*^9, 3.7776392966069174`*^9, 
   3.777639330167171*^9, 3.77779036895424*^9, {3.7777905418023033`*^9, 
   3.7777905540716124`*^9}, 3.7778086796982965`*^9, 3.7778088459146795`*^9}],

Cell[BoxData["0.9709392130606823`"], "Output",
 CellChangeTimes->{
  3.7772076500618176`*^9, 3.7772083977619343`*^9, {3.7772118449830523`*^9, 
   3.7772118566046915`*^9}, 3.777212080694931*^9, 3.7772659495574684`*^9, 
   3.777266202600521*^9, {3.7776379759056845`*^9, 3.7776380288936267`*^9}, 
   3.7776382910965333`*^9, {3.777638447580736*^9, 3.777638487173646*^9}, {
   3.7776386099149723`*^9, 3.7776386182307224`*^9}, 3.777639006391551*^9, 
   3.7776390402652583`*^9, 3.7776392579650483`*^9, 3.7776392966069174`*^9, 
   3.777639330167171*^9, 3.77779036895424*^9, {3.7777905418023033`*^9, 
   3.7777905540716124`*^9}, 3.7778086796982965`*^9, 3.77780884592832*^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.7776382910028057`*^9, {3.777638447471387*^9, 3.777638487064331*^9}, {
   3.7776386098212433`*^9, 3.7776386181994796`*^9}, 3.777639006360296*^9, 
   3.7776390402496443`*^9, 3.7776392579338107`*^9, 3.7776392965756736`*^9, 
   3.7776393301515455`*^9, 3.777790278718478*^9, {3.7777905417710547`*^9, 
   3.7777905540403666`*^9}, 3.7778086796826644`*^9, 3.7778088459842663`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0002792449394824`", "0.01723378706209097`", 
      "58.04175491641004`", "6.230301593345142`*^-109"},
     {"T1", "10608.870962949053`", "425.6160784140141`", 
      "24.925916808597094`", "8.4249218418395`*^-57"},
     {"T2", "100431.9666479072`", "3470.9044767834157`", "28.93538768343758`",
       "3.008584063587047`*^-65"}
    },
    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.7772076500618176`*^9, 3.7772083977619343`*^9, {3.7772118449830523`*^9, 
   3.7772118566046915`*^9}, 3.777212080694931*^9, 3.7772659495574684`*^9, 
   3.777266202600521*^9, {3.7776379759056845`*^9, 3.7776380288936267`*^9}, 
   3.7776382910965333`*^9, {3.777638447580736*^9, 3.777638487173646*^9}, {
   3.7776386099149723`*^9, 3.7776386182307224`*^9}, 3.777639006391551*^9, 
   3.7776390402652583`*^9, 3.7776392579650483`*^9, 3.7776392966069174`*^9, 
   3.777639330167171*^9, 3.77779036895424*^9, {3.7777905418023033`*^9, 
   3.7777905540716124`*^9}, 3.7778086796982965`*^9, 3.7778088460155106`*^9}],

Cell[BoxData["0.9881234408936123`"], "Output",
 CellChangeTimes->{
  3.7772076500618176`*^9, 3.7772083977619343`*^9, {3.7772118449830523`*^9, 
   3.7772118566046915`*^9}, 3.777212080694931*^9, 3.7772659495574684`*^9, 
   3.777266202600521*^9, {3.7776379759056845`*^9, 3.7776380288936267`*^9}, 
   3.7776382910965333`*^9, {3.777638447580736*^9, 3.777638487173646*^9}, {
   3.7776386099149723`*^9, 3.7776386182307224`*^9}, 3.777639006391551*^9, 
   3.7776390402652583`*^9, 3.7776392579650483`*^9, 3.7776392966069174`*^9, 
   3.777639330167171*^9, 3.77779036895424*^9, {3.7777905418023033`*^9, 
   3.7777905540716124`*^9}, 3.7778086796982965`*^9, 3.7778088460155106`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVlAs01Hkbx8eYGZM3lwhb6KUl7GKXbFRre35S76IoaW2FpIbSBa/N5d1o
pkOxG6Vy2XWJRWld0qat47L+pd6xrV7ZlMsm0ZLcGWaGwby7/Z49533nnDlz
Puf7XL+/54xpUJi3gM1isb774/vn79uPMAJY//sxyYRIE3Md2dfi+rc8XgSy
fVyfYd9WytsqoGw4NvNIcxvl9puQl3jeZXx5N+WkOzA4MqDnpdtF2akOMtxv
T/iP9FKeYkBZaqm9Or2P8pYG6M4vUUReRy56ABnGcK/GYZDynBgylxYkxDgj
+zyEND+Nzfo/j1Iua4LMvW423xgOU+Y0Q/jsgMBWhFzxGL7/cOfD/tfjlDtb
oM/WQMuuG5n3BEKsnbqrUiWU7VthKOr9nns3kAOewvrdhcxxxTTlr56Bwa1+
sY3hFOUf20CvzKOwxxj13nawtLBJnt0mpazZCQGa7rKzFqiv+w3S5HlrKs0w
P/g5xHuUrT0UI6N8oQscjybb3R2SU/7pBZzM5KTU9qI+2A2BSYx6fhDy1y+h
MWtCfuIKsmkPbLAzlI5IMP92D/Sk7HHnNKG+tRcCDC8nHu9WUH7VC/GJi1NH
6+Yox74Ck4RlH/s6LVDW+h22Km0SVoYhF/8Oh/fpB5t7Yvz6PohYFv790UkV
5i239MHlhYYKHRMl1UP6wW/E7OkvwSyqz/dDk0ygXXgQ9YuvofpU90217VjP
agA2FWkMbLHF+PoB8KxJmdfLVqW88w2s3T9TXUzmafzQG1gZ551UbMamumgQ
zu59tJA7jfkGQ6AlKOgYP4dcPgQx6u+OeQpx3o3DIIhwL++qwfyOYbhwdfG/
Ik/ifGEjUJZR4rpXG3XuKHACQP3aCczPHgU4nXSTq8T6dmPw5Jr9zPXP1CiL
x+Dnj/Lu78ml8ULbcZCn+3izkmi8MHYcDoReanVOo/sL74/DZi+3XcVt1G+h
1gSM3hGEOIkwfvcE3LNtfU8aRv0QFk+AZwaLSfHmUB6fAA0zfVniWS7l9ZPw
ZXil9vFBjD89CS452SY3biG3TMLyqpzDnm7IRhJIhfjkzGrsFyIBg2/vHk3N
Q/0HCbj6D5rucKJ+COclUL5yqjxRE/t/OgUV+mv0pnsw/uIUtF4xPhK3n/oh
fDEFedr1ZemlGG81DU3WUSukdRj/xTS8utBXxsvF+vXTwK3xWO14EFldCl1Z
MY8SF2H8Tinc8LWM21OJnC+FFQc0nyT8m0d5SArBQVKvuzXoxxoZvDP9aVbU
N8giGTSsWqrfeQjrN8nA8GqQ0ZgP6gZyUGbEym8/4lMOksPM1ugfI37F9yyX
w+xRldxnCbifXA5GZ1aFOs+pU944Aw4rxIPHpFg/dQa87nCuuJ/B+h0zf/x/
fCALXbaIstksuJ+7nvlEEzlsFnwUWUrfduxXPQv9qy5dndTDfbkK4F+c3d++
F/fdpgC9U/mGRgGoZytgWVHRbJsT+t2vAO/IPNG6nVjfbg7EDLvlo2aMPzEH
1QestPQlWE88B+/Jljc8F+G8OvPwi3NT+jtHNCj7z4OdlcP2jzfjviXzENER
HXfVA1kyD3NZbkkvwrHfJwtQqpHVWN+GfiYvwCa/3Y4xysWUWxcgsM3Db4zB
ef6uBOMb8QmCv+4rVAmpnQ3RFqXo9y0lNH2umvqwXfstA4tFcuz9PsxfRf1m
zFnESzRTcqiUzgMeLCI4din7vBbNZ8JZ5IFBcKjo9N+onsEidYEuH8wKKDM1
LLJjY6S9vJHGQw+L1PNdOmMm6XwMT4VU3XQSnLHAfGsVUmLJe/9lPO3HbFch
8mAJcfoH9o9WIV+a+Nrn8+k+TI4Kkd1/fkHUTOdnXquQR88Wra6VUb9Ag02+
2K0veq2J89iziWu6v/WLNNofPmeTAo3CxvFC6icTxyb+Cac2NIXhvIXs/9+n
kU10aiWfRByifjO6quTOvnXbvHJxngBVYuKo35dshv0TVIm/tSxJd/ESql9T
JSWFrZPOUbQfNKuSCWu1pQ0K3HdKlazb9SrtoD/NZzZwSO2M5HF57VIaL+AQ
ryMvbV3v0vtivuIQx5xsvmkavSeo5BDJFffh3t8w/ymHeDsUZx0wx3kUHDJS
rcGueorvZ8Il56O6//PdYdz/MJc0rRD2yVdgvzQuSVsrVg/IpfcLz7lkziCw
cEkL1lfhEYfURruwHF2qW/CITTcZ/iEW/drCI2arxSnurtj/nzyyvXCJ4f2/
+mXyyCbZhJWtA/UP6nik3uf049vD6Gcvj1R57Co6d5n6DXw1UlPjEiKPpv0Y
GzVS0dthajJqQPUdauTkQlx5tQLfL0+NaIUHzkl18T4a1Eilmde5ejO89zdq
5FeJsc6xAE2qa/JJz7flrUYF1E9mF58sL7n+k1Eixp/kE+VYurnLG/SviE/c
uk74FiTgez7kk00P/CyDxerMfwG2J5o0
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVynk81OkDwPFh3dfMfL85xvkr1bJ0uRrM6nlSEjqQq4uEocbRivmtNil+
/GS6hlwdTK7SZcWaJjxPpMzQxJYhEZZNUcSmzLTW7v7xeb3/+SwNj/eLVKZQ
KNH/9K83OczwfvLHDRmbnizIfSsQ15I/8JUSBN6tKev97HkHqYUO1okpbKAs
7ZNf5dYiK5mw6TQ4AmYtD5rQk+qR9E9lQQ2FC4ItZPoeG4Qo0XJbhgz/BHCH
1WLo7yKkU9FhnwpOgqs9cWrP45tQbYe+YTklCzTbmrIfL3uIVIZEGg3D2cAz
78qxIu8WFDQbqhBjHpjqzGw9FtuKUnV6prjgArhubGJwtKQNLbe3+PUKpQCw
SmI3npWIkbRxxqsqoRDsYfTUFXdIENfjUWvNcBGIb3yr8BJ3IElITH0rvgzC
S29aRT14ipg4pPMoEIAKH3lGJupCg2/K7hZTqoBZWrpItP0FqrXR5ZQIq4CI
X0Y51fgCZSYkW5UnXAf1NqsZP1r3oLUKT8Ht4RsgxsXXk6YkQ6d0p/gY3wJu
HKooraoXLTE2dU0EPwO9RtOLsT396D6IMi+iNIDTDQO7KVHDyGhrPQ6OaABJ
qLleUDCMkn1VDhq1N4CtmXmVquJhZBd+rargnBAkVASYM2xGUHX667X55iLg
wXnJyXo/goofB7rnspqA9FXo73aRo8it0rLOo/EhkFwe7Xe2e4MsbJe8BPNP
wInVDSbN/pPIdpx5/teV7WCbq2r9PHcSMa/t2xIR0A4Iba8dhpcnkZ9RVX1W
bTto2fcLU2lsEmWouPClHDHYFAmLeD+8RxMDod57RySgJNEuoeL0B1R35mYT
V/IUPJSb7Bqtmkbl3KW+QdJu4HyBmnpXOoPic0I7/NJ7gU74O5tDbnMo+S/3
rGV1gyDkfYFBWuw8KqxknyxoGgERO60DixYUKPc4ZVh9aAzkZFL7DsQsoBu3
Odn9M+OAUbVK1zhtERV63+J3PJsAKPjcts0lFLyCgRorJz8A7rUYt+YUJbyl
2s9yZ8xH4G3PyRtwUsb/P3pXN7VnBlTSuSdHflPGhbIkDUHYH+DFd905ufxv
8MXpFfb+3Z/ALPql8dBqFXygdEOcIuwzeHBp86u4LhUsWmiR+r37AnZGkiyl
Q6qYQqwNdQmSAx2DhJjwOVWs36xGMRxTgA8KHxJmq2HDpU+6TgX+CQxKqeFd
NHX81mTm59HxBfDmwpLb+QJ1vKU1Qzh3ZBE4CYwSNVZrYAntJLcjgQL1qaXu
/Xc1cG/Op2IDphKsdZ7cfs5VE+/5bW+g9awSPFzTwXZq0sQrqCnledeVYQlP
0HnfVQv3qnempMR9A6VpKYvxj7Tw4ivi3bffqkCeulh6yV0bU386O7RjWgXy
V05kLnmqjaNmm6O77qlC9/iwe8hfB9tvGss2OqwG3QR8xopuHfz2gJv9q3Xq
0ElrMGQmWBeTe84cjZxUhwYehR7ne3Xx/7674Okp0IBfPywNz/PXw6/bxOUV
UZqwL73dUKdfD99hfSmUmGtB4v69utggKo48EaJ/6I0WfBA1wdoyRMW5V2qs
u0u14dp7bm2aa2hYnd/YdT5IB9KcvHbZxtLwQb+FRYmZLoyb7TM7U0PDjlN2
TzplulDqX118eJqGpwOuGGwt0YMh7mcZ2fZ0/DG3cd4sggoDlHq7IpPpuC4w
2nlQlwYtnpvdbqmj4wgxTxR9hAa19ztEhc7T8bMbN9WDpTR4zdRy3fH1BN43
t/xqojUdBly9ZLo3icBDlcL/+vDo0JbTFnxMSGDTxx4W2W/pcELl+UXTLwS2
LqhRLJ+gQ9WJLleHeQI7RRvL8CQdkuvxiLecwL5aU7z5KTpc6Zi46thXAmdu
v6hgz/3zf7J59HKRwNOy0R4PZQJ2f5mZytcgcct4Gk/FlIDnmcYudGMSPxNO
sEvNCMjoD3ltZULigexd7iwLAqY68E4BUxJ/trFSJC4j4AtXsSTenMQ2Cc/Y
o1YEnK2u2C1dRuK8eTP3FkcCJpd95ObYkFggzjLfv56A+38IMymzJfGd4hm5
nEnAovzWZtEqEotZbTXrWAT8j2qE6sQaEv+VxjEXbCRgaLoe39OBxNp+Mjlr
EwG11YwdwxxJbGQJevo2EzDJmtHHdSKxXRvJo20lYDV31qyKSeIN+cfZt7wI
KK/rxM3OJPZhj2/09CGglrD4oMyFxLuZvuZj2whIO71XbcqVxGzNB/ITOwi4
xoG4ofo9if8GoFobUw==
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVxXk8FPgCAPBx5B5mfiXqhXVtjnZTOqRp/X5q0YpyEz0pmik+5SiTDkUi
IVcim6cp9xGJTKLfT85Bcl9lHblio3Etk+O998f381U9c8naQ5hCoVz8n/+f
62Vwpm9jgJH8j5l0l8pdRmz1uM8/KA7wBSNnuNI3Dou59hfzKEyofyn3Lkvn
Kdbq4lbchz7w/Zs2vjwrAzevCHMKKWwYcOdbwVXDPOynbhHSRW7AljFJ3SeD
hVgmvVE/EAbB56qSGsJhr3BRo7xCGiUMpgdLOcfFcrHoQJlE6WA4NKq2Ostc
KcMOs64CHomE1jTN5zmOFThQpnOaDWPhoZSY1fEFgjX0VdpSKIlQpPBo+AmL
Gtxczv8j0zsJZu2O+HXGsRazTaqrCgcfwwYcDEXd6nCD0/mSKvIE5hS7hl1g
8rABcWq6DDlwgmYsMmL1AfePPS9IpmTCShm2j5RLGy7SpXqlcjPhvfbIYHpz
Gw719tdK886CVV8FmgyjdqwnMOPkD2ZDRghvcLNKBw6mTscRkgdPJt+tDuvs
xJu2bjvoB1/CL6dX+iNUe/EbeE75MaUUdh5sWiyzGMCKR0uIo3spbOO5azkU
D2B/K9GzivWlsGOPpWA/dRDvPvMsMzGaC58fjSyK9h3EOXf+0nukXAbdHTI2
2hkO4eRa+8PxjAq4af/8a/67YfxbhnqxSXklfGIxwfiJM4pVdmzqhUt18EJA
kpvNl0m8Y9wgpu3netiz5yGyk5jCBs9Ombrb1cPoam65wS9T2FoxsySsqB52
VD1D6f5TOETUMK7Ziwe3vu2L3CLxN5787GruMtQAbfdOnkzQ/IaLo3Ir2A0f
4FqWmuWM+QxOY6taOTS3wsYfu1jvMvh47pKUke5oK3SxUwrllvCxMWtux/qP
Vmg7WieeVc3HQ441EpnabfBUsNxZ5jAfKxueJ4shbVD0QUo+S2kWJ64U7nx0
sB22V3V9D4ydxfeDoGxnVgc0e3nQHPnO4UsRro3Wd7phjV53r5riAvZfOxym
VtwP29HDAcNDSzgpgxmUWDEEU/MdZV3KBTj+JmVQfGAErr524WbQVnF2vld4
H38c/vlIbDyXuo6TzPPiGj9OwkWd4zdeOVGI5hZcnjH1DVJT16rmtgsR0xxr
9RPnv8OA6yKCvT1C5N7lAmpgJx9Wjaqf3BcgTJK6rkhwTs/BJHdb1islEZIw
o6lv0zoP+31uNNUXiBC3p0YXBacXYZNOGodvKkrKVt83W3/9B8ZI9Xnc7hEl
FKDnauiwDNM1742sO28g8u/EKAojAki942/aNr6BKKjWtQTbr0CRIz2lJiwx
MvEv/ssv46uwys5e4y1fjJhWhXAXfNahs8OBuBNscdJAC2I3elPQKcPGKcGs
OOmOmE/ebCCEbDxTew5dlSDOwy722rNCKF9+33HZeQmiKXct7WGWMOp6vL91
xUuSdIs3Xbt2UQQ53wg0rpuRJOufwNft20WRj5hFfdh5KSJ348HA8RlR9IZa
2XLgmxQ5N/uO1fJqAwrMTbhgeVGa6B8ZCVf0FEOGNUMnosakyYTbb/qfdomj
vZMqBm0sGbLROeqyx5Q4EttJ97QZliF3dWLNzDgSyCfk9zwXJyr5q4aXln5O
Er3w28m50kclLxj/JDUoS6GxcSmPT9ayxOOWk/yFMSkUrfxWwbZTlsSnFGq3
PpVGH8BPr1WOyxHxuPKWGAcZNFSrpBdUK0fOWq+uNyhRkY3OqOeKOo3snd5d
19RFRZZLlxLcT9PIjF3K5qOpsmjP2Wdnejg08j2+fEnJXQ4NeZtQtgzTSLE9
60A/lYYWbbkh4sp04s6LLGP50NC+japQ2JVOPmbnijs209BYbOmV3D/p5NSC
xn/8tOlowvJqnlo3nQxkcK8ei6Sjl9ueeGQoALKt1kQlfIKOmgUtWr02gGgn
Fgo0Jukov2Tr/KgtIPtYW7vIFB1lO7jgWTtArKSmI5em6UjHs85OxhGQUMsE
AXOBjq6HHgo2cgFkputLp4kwQNRfC3rT3QF5P347UnQbQIZaHcG+VwD5yJ1k
PlUCaJ6+3eKWPyCfw20PM1QAMs7xVYhkA7KoqyXwUwNIb20uNz0AEF3vj8wv
WgB5dKd29NwE5OGS0uH3ewESuHI0jEIB4fDClP+9H6C0v4OmzcMAeZHMX142
AIgW4sx1vAcIj1FTuIsBUOzXZXPf+4Cs3fZS5hgDtKgz4pv+ABBp665lxhGA
IrKjGEXRgCiqw86e3wHSd9UTwzGA7K7ZGEk7ClDUXbfHPXGAGD26ycz7AyBl
oe9nRuMBOcYcNzY7BtB1HnvH7ENAThpYKY9YACQ9srSwlgAIU/Lt8q3jAOna
+2HpRED+C7dbYxc=
       "]]}}, {}}},
  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, 203080.}, {-6, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772076500618176`*^9, 3.7772083977619343`*^9, {3.7772118449830523`*^9, 
   3.7772118566046915`*^9}, 3.777212080694931*^9, 3.7772659495574684`*^9, 
   3.777266202600521*^9, {3.7776379759056845`*^9, 3.7776380288936267`*^9}, 
   3.7776382910965333`*^9, {3.777638447580736*^9, 3.777638487173646*^9}, {
   3.7776386099149723`*^9, 3.7776386182307224`*^9}, 3.777639006391551*^9, 
   3.7776390402652583`*^9, 3.7776392579650483`*^9, 3.7776392966069174`*^9, 
   3.777639330167171*^9, 3.77779036895424*^9, {3.7777905418023033`*^9, 
   3.7777905540716124`*^9}, 3.7778086796982965`*^9, 3.7778088460936155`*^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.7776382910028057`*^9, {3.777638447471387*^9, 3.777638487064331*^9}, {
   3.7776386098212433`*^9, 3.7776386181994796`*^9}, 3.777639006360296*^9, 
   3.7776390402496443`*^9, 3.7776392579338107`*^9, 3.7776392965756736`*^9, 
   3.7776393301515455`*^9, 3.777790278718478*^9, {3.7777905417710547`*^9, 
   3.7777905540403666`*^9}, 3.7778086796826644`*^9, 3.777808846156102*^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.7776382910028057`*^9, {3.777638447471387*^9, 3.777638487064331*^9}, {
   3.7776386098212433`*^9, 3.7776386181994796`*^9}, 3.777639006360296*^9, 
   3.7776390402496443`*^9, 3.7776392579338107`*^9, 3.7776392965756736`*^9, 
   3.7776393301515455`*^9, 3.777790278718478*^9, {3.7777905417710547`*^9, 
   3.7777905540403666`*^9}, 3.7778086796826644`*^9, 3.7778088462498293`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 150K", "Section",
 CellChangeTimes->{{3.777208424674096*^9, 3.777208429020121*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_150K_Tm2_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[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", " ", "=", " ", "150"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "12000"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T21", "=", "70000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"E1", " ", "=", 
  RowBox[{"conc", "/", 
   RowBox[{"(", 
    RowBox[{"conc", "+", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "J"}], "/", "T"}], "]"}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"E2", " ", "=", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "J"}], "/", "T"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"conc", "+", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", "J"}], "/", "T"}], "]"}]}], 
    ")"}]}]}], "\[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"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", "\[IndentingNewLine]", 
   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[{"-", "5"}], ",", " ", "15"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   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[{"-", "5"}], ",", "15"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\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.777208442435836*^9, 3.7772085050096073`*^9}, {
   3.777211862427043*^9, 3.777211909486514*^9}, {3.7772659932826214`*^9, 
   3.777265996465455*^9}, 3.7776362753078656`*^9, 3.777636341735924*^9, {
   3.77763805167513*^9, 3.777638110459193*^9}, {3.777638152550552*^9, 
   3.7776381655972233`*^9}, {3.777638514360962*^9, 3.7776385600205626`*^9}, {
   3.777790562465168*^9, 3.7777905723910947`*^9}}],

Cell[BoxData["0.43896679045786513`"], "Output",
 CellChangeTimes->{{3.777208485373765*^9, 3.7772085054238358`*^9}, 
   3.777208961441846*^9, {3.7772118626782885`*^9, 3.7772119098216023`*^9}, 
   3.777212095418528*^9, 3.777265949728792*^9, {3.777265993626281*^9, 
   3.7772659967701178`*^9}, 3.7772661481584406`*^9, 3.7772662027735023`*^9, {
   3.7776380595001497`*^9, 3.7776381109351115`*^9}, {3.777638154471208*^9, 
   3.7776381660344934`*^9}, 3.777638291525857*^9, 3.777638489993601*^9, {
   3.7776385226427755`*^9, 3.777638548658206*^9}, 3.77763863141687*^9, {
   3.7776390113164005`*^9, 3.777639040812005*^9}, 3.7776392584540176`*^9, 
   3.777639297076849*^9, 3.7776393307325277`*^9, {3.7777905661010914`*^9, 
   3.7777905726994243`*^9}, 3.777808680153135*^9, 3.7778088463591776`*^9}],

Cell[BoxData["0.5610332095421348`"], "Output",
 CellChangeTimes->{{3.777208485373765*^9, 3.7772085054238358`*^9}, 
   3.777208961441846*^9, {3.7772118626782885`*^9, 3.7772119098216023`*^9}, 
   3.777212095418528*^9, 3.777265949728792*^9, {3.777265993626281*^9, 
   3.7772659967701178`*^9}, 3.7772661481584406`*^9, 3.7772662027735023`*^9, {
   3.7776380595001497`*^9, 3.7776381109351115`*^9}, {3.777638154471208*^9, 
   3.7776381660344934`*^9}, 3.777638291525857*^9, 3.777638489993601*^9, {
   3.7776385226427755`*^9, 3.777638548658206*^9}, 3.77763863141687*^9, {
   3.7776390113164005`*^9, 3.777639040812005*^9}, 3.7776392584540176`*^9, 
   3.777639297076849*^9, 3.7776393307325277`*^9, {3.7777905661010914`*^9, 
   3.7777905726994243`*^9}, 3.777808680153135*^9, 3.777808846374802*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxNlAlQE2YahkGOKiJBUTxKi1e1IoK06BQ5fBWFCIiIRz2QLhQRRWW3yFXQ
BrWKaBFkVVAGoos3hxeB6iIsh1VA5RYEIRAgQiAk4UjAoOv2/zqzmclknnm/
//3f7/v+yRzfIM/d4zQ0NPifvv/7/fPD+wc0/v/DO40i99TSuJHSgj959kWc
8frB+mVZJWPwkcxP1zxm3cBYlo60n/0mnZzXzJh/C06FW7xPmrcy9siCR5P4
YtjMDsa8exAU/7q8SUrc8AD7n2XXRU7tZrxUgOUdUumLdWLGMXmImnDktCqm
l7HwEWJrukq1PSWMv8vHsQZuje/dPsbxBbgdfvaO8SMZ48FChNqYWs2SE88u
wtulP954/pfuVgwTp6uGzmlyxuElGHCcs6IICsbppTgwlrlkJo/0yqcoLm5r
apOSrv4DS2s4x+tChxh//RwByoszTCOUjDeXoSnh28WzuKTzynF46rEvL3FV
jDMqYJa/VS51JG54AS/VvQPc4yOMtV/hsU1UxC7fYcYzKrF79O5QWB1xViU+
JsnKcp0+MF5TBcnRwdPdVz4yflMFrr64wF5Pzfjv1ZBPGfW/waF63Rrs0ps4
V3PDKOOUGgQLLWfk3ab6b2qRPS9V9duSMcbPauEcYjfKkdN57zqY/TD6oEZL
s5DNuw66ZsfnKbeRHlsPfo7Xyqk7KM/s17DUkX63a5j8Ba+x6b3S4kKkBjvv
1gBz1ReVe18StzdgfSLnyklP4vBG2H9IemFRTXkM3uBfwV5PJ0XRfelvYPHw
mP9a9ThWv6IJZz/Pud1bSfkqm6B4NTkpx4fq/ZtRanPvAe+hNtPVzdgZbWE5
N1SL8bm32NMQZ2Zzleq/boFYS7S9wInyPGnBjKrYoPRqOr+5FUht2FQ4lep7
WhE+dD+hKZHyQIjtPVbGxUGU57QQO3SDdbPkuozrhWgd97eYsXvkP6cN2ae3
dlTUkv/+NnCfd4TPNCbObcMyt8SqzDjice0w54z8ZGU2gfH6dtzpsDsXdpP0
pHZY+WR7VXoRi9rR+ZnfVUE93W8hgkD41QpzF+IIEeSqe/k6O6i+RATT+fs0
/FJ0GHM6sGxORprpeLpvRwfMRWVhfCHVX+vAuD5Z4LMm6l/WgYBM3W81t5G/
bSe0T7xff9WU+EQnBA7RYXnedL6qE3bNKV9cODORsUkX2kP7z0cH0P17uiBQ
xrpN2Due8f0u5PId4j0KaH9jXUif5hrPfaTHmCuGOM49Y6uC6hPFOPO9UUiX
J3GLGD7zPzzR7CX/Re/QeE5wbUo86Yfe4YXekzuu9aQXvMPgrXjT0lbKr9eN
Fme7FOUFQ8ZbunHWpEK/eCvV87uxUOVos8GBWNKNaIHFvxXTqN/lPRAHmAuk
XOo3ugdRUnGd+WTyq+jBj1naofEONG9fCXyqDiZm1dH9mRKUBh+qcYkhVknw
sCvpP7vbyM+xF5vPx9WHbfuMcVwv4v8pyasuoTyNvRgR+l03nETzm9+HkDVz
F+UXkR7UB/8cl536HaQ/6gNnryQ18ij560hhneuqdu0m9pBC/NjZRHhpCuPL
UvitHglduEafcZcU1x9mBQoNaT9W/RDlS4wMuilfVD+2BXqvrFoxjfEf/Qhd
FbBQPdWA8QQZdta76gUeZPU8CxnKs5Lc0osmMX2zDPbZ6hX8ETYPXoQM80Ql
H8x+pn2myVDBiXorqmV5eCUynCmJ6az4SP31yOCX9mvf5RDWP48jh63tRI/t
TZR3mRyJzu/y9q5ifrwdcnyuOCDV8Kb+eXLoLzh+/akW2xfvmhyLjZ3sLcM4
TC+Xo/dwRkiAPvPjyeRwFPrlHr5J+YwV0O7cH2gyn+2fZ/uJrc+Kda7T/HwU
GPhlXY7RZObHO6FAhr/B+khLuq9KAUvvBbHGaymvUoF+9wy9rzpJNxkAf18/
72UmvafVAzA3ufFWJGP5eXsGYH9R48ipBNJ/G0CmvmRknTebL+/+AKrWuhok
Tyf/hgGsfFXoENk1neljAwhHRkbRX/OaN4iVCcKec/Y0b+4grvykPlrUSHkS
B5GQpGWfnE7v/fdBGG2wPpKaQfNpGcTsX9oPhC6i/WoPQVq9rqfeluazaAjj
q1df2WdM72fDEB5fX2wXZETnDw3BM9t93aJ28r/06fzlngVJayczvWAIp84M
ON0wpP11DmFjZIb4lZTmqzeMnV0bI96H0vyXDuPwLYlTeiw7r/F0GPGbFLNe
R1H9ciWWqJXOLimUx0sJo60PRW776D3fUIJT/o1Pciu93wolSlzuik6paV4K
JfrcI6zqq6i/6SpYeOZsKfMkP3sVmn3uNlauYv8fPF8V4r4Mvnlwoi7TY1TY
mGxSW66ieWeqYP5Gcn4wQqfwv5oLnec=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVyn881HccwPHvfcn5dd9SopUfCevUepSuH5Tq/aWkraW7yY8yEkUlP3Zy
m7Wm0riihYVs5EZMP8Sm6DKfD+LGGa6HTlx+VOacyiEuDtn2x+vx/OdlcySS
d5QkCOLIf/3v7XCnI12Lju/Y7xBstMLsSbXANu35NLEbRGXsPEnGBaQX2F3e
SPjAstZLV9QLUxFbXvnnJQiCxMuMknRRJmqZIUWlRChE9DnuZ9XmIL7t5wly
HA70Qc/Y9CYRMr4p5ZyFaDjZ/sX9jIwC9Lt0sXkBIYCBDVlRIa+LkW6vWL+i
7xtQjIjWmHx7B/mMBWob8Rk4MDcetnimBJ01fjosgHOgMRLWe70pQ3Yc6yc5
RCL8eK9d73TKA9RSNfppUVQSWIivRufdrkAC98d1pX1CICJ2BvAaKlGT3/H7
dTgZUuNIij0mRk7YrzkGUqFtJvxUDBuh7oH8e9lEJihKZOYHr9Wh31ezwm9U
ZgJTVcE/ZPIY/RAVyy6IyoKaQdPilOTHaJ3WQ3S37zr0eu56diO+Hp1nDadh
/AsMHHpRa3tYgkyXWmzlgwh6kgQZakKKHsIxq+tEETyeWsutG2lDS/bcx74h
RWB3k2/81SoZiuXqBi/5qwjI5S/qlMEytP7Ir0WZP/4G+bJNjp/IZejWhZ51
GVa3QJy94Rin8gnKbvB2S3e5C+aXTnVPfNWOthfalrtXlQEKEv6jkXQg609M
O2GyAjbEhOhkGfSgAoEN16elBs5j/W3LvfpR5OVAKe+CBF7y8zdHGKlQ7Ae3
xBXlf0ParVmPb6rfoqzC0HOZf8pg4Qo/a4lyBKV/R/Qxe9sBNXc/dNKMoeK7
4cKu0Q5wzpjsHuocR1mf3UmTtnZBW1Fx5Mh5DbL/CFUVvu4G7R9WSz03TaLd
t3i2+4/3gfO4jS+7YgolxdxjnX36Ak65jydYWE2jLPlpfdHhV1D75pFq9OoM
uqa253wh6weWxvccpZhFQXk7IrSHB6A5jLvW3nEOiWdrW3gqJUSXP9N1dSYw
sXBd4BYfFVj6dkZCI4EXV+sR5v1DoGK5l+cGMrC5jaTtvPcbiPL5uYtUMvDg
stGyV8q34PzQWSKLIfHuuoTKiWg1JDYUfXxlmsRNC84JpFEj8M7b3zD3tA7u
uDyebeY0CurysycCNDr40Et/b4exUahpX5B08aQutp8fV/DTb2PwdTbHpEGh
izuYzXFxEe+gy8usZZA3D88pFqpWrhyH1M09jnI0D88/c6XXUz0Oso/8O+9w
9PCxseqwtj8m4JqDq01Avh7m7OwXLjmpAZeLQeFKAyYeDNrOUTi+h5rDO8Li
BEy86FBKzNHX76HEXz4U9JyJL65K9fAQTcL63X7N1tv1cU99Y8HNY1OwrGdi
bKZQH5e4vM9qstJCVJjm7xamAT76vd/iEwNa2CIUGdRGGuD0nFIHWd40xPok
iTWtBpiZVtV21WcGvI+f0UlZY4iDebNzTZazsF2hiOemGeKNw+slzfJZ6Mo1
3SdWG2L1gRyzPTc+QCcvZyPPywiPpFdNWobMQXZazqb4B0a43DvMuZtF0Fce
lEXkmBjjkMZkcVg0QW/RSaFH+ca4tfg207eFoI/u8tP1aTXGX07Y5fIdGDRT
ObHgOpuFewsrv96bzKALJkdOmAlZ2KLB3Vo4yKAjf517++QlCztklmrthhg0
X7CXCO5n4U1hS+X4NYPeJ+Sy3v3DwlzD4eTJYQZdkptsvkjFwj/su6YNnWDQ
/h/m3vDULKyWv3rqTpJ059aCHNk0C9cq45N1LUhaZ2baVmpK4dbKodA8S5IW
2W9LPWhG4edCLzcXa5KWSWOnVOYU1qxma/krSPpugEKsv4zCq6NaQ1+xSTrh
4zyGuw2Ff5q0dKvdSNK2PY15aA2FRY2JVgGbSdok99vqfWspXJI9OjXlRNJF
eGdH9zoKN7rUlzq6kPQFqZ12mkPhD/HhViJXkiYtuPOctlDYiCefctlJ0jVL
3003bKXwElt4+mwXSTvnP3p7YBuF19cvSl6w579fLqnlA4V3ZHwXeudTkq6G
+YWkK4X3hipdPfaStMGDhIRUNwofdOJa9X9O0itNVwUs30XhUINHU997kvR1
JwbnnjuF/wUfmgvw
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVyn881HccwPHvfcn5dd9SopUfCevUepSuH5Tq/aWkraW7yY8yEkUlP3Zy
m7Wm0riihYVs5EZMP8Sm6DKfD+LGGa6HTlx+VOacyiEuDtn2x+vx/OdlcySS
d5QkCOLIf/3v7XCnI12Lju/Y7xBstMLsSbXANu35NLEbRGXsPEnGBaQX2F3e
SPjAstZLV9QLUxFbXvnnJQiCxMuMknRRJmqZIUWlRChE9DnuZ9XmIL7t5wly
HA70Qc/Y9CYRMr4p5ZyFaDjZ/sX9jIwC9Lt0sXkBIYCBDVlRIa+LkW6vWL+i
7xtQjIjWmHx7B/mMBWob8Rk4MDcetnimBJ01fjosgHOgMRLWe70pQ3Yc6yc5
RCL8eK9d73TKA9RSNfppUVQSWIivRufdrkAC98d1pX1CICJ2BvAaKlGT3/H7
dTgZUuNIij0mRk7YrzkGUqFtJvxUDBuh7oH8e9lEJihKZOYHr9Wh31ezwm9U
ZgJTVcE/ZPIY/RAVyy6IyoKaQdPilOTHaJ3WQ3S37zr0eu56diO+Hp1nDadh
/AsMHHpRa3tYgkyXWmzlgwh6kgQZakKKHsIxq+tEETyeWsutG2lDS/bcx74h
RWB3k2/81SoZiuXqBi/5qwjI5S/qlMEytP7Ir0WZP/4G+bJNjp/IZejWhZ51
GVa3QJy94Rin8gnKbvB2S3e5C+aXTnVPfNWOthfalrtXlQEKEv6jkXQg609M
O2GyAjbEhOhkGfSgAoEN16elBs5j/W3LvfpR5OVAKe+CBF7y8zdHGKlQ7Ae3
xBXlf0ParVmPb6rfoqzC0HOZf8pg4Qo/a4lyBKV/R/Qxe9sBNXc/dNKMoeK7
4cKu0Q5wzpjsHuocR1mf3UmTtnZBW1Fx5Mh5DbL/CFUVvu4G7R9WSz03TaLd
t3i2+4/3gfO4jS+7YgolxdxjnX36Ak65jydYWE2jLPlpfdHhV1D75pFq9OoM
uqa253wh6weWxvccpZhFQXk7IrSHB6A5jLvW3nEOiWdrW3gqJUSXP9N1dSYw
sXBd4BYfFVj6dkZCI4EXV+sR5v1DoGK5l+cGMrC5jaTtvPcbiPL5uYtUMvDg
stGyV8q34PzQWSKLIfHuuoTKiWg1JDYUfXxlmsRNC84JpFEj8M7b3zD3tA7u
uDyebeY0CurysycCNDr40Et/b4exUahpX5B08aQutp8fV/DTb2PwdTbHpEGh
izuYzXFxEe+gy8usZZA3D88pFqpWrhyH1M09jnI0D88/c6XXUz0Oso/8O+9w
9PCxseqwtj8m4JqDq01Avh7m7OwXLjmpAZeLQeFKAyYeDNrOUTi+h5rDO8Li
BEy86FBKzNHX76HEXz4U9JyJL65K9fAQTcL63X7N1tv1cU99Y8HNY1OwrGdi
bKZQH5e4vM9qstJCVJjm7xamAT76vd/iEwNa2CIUGdRGGuD0nFIHWd40xPok
iTWtBpiZVtV21WcGvI+f0UlZY4iDebNzTZazsF2hiOemGeKNw+slzfJZ6Mo1
3SdWG2L1gRyzPTc+QCcvZyPPywiPpFdNWobMQXZazqb4B0a43DvMuZtF0Fce
lEXkmBjjkMZkcVg0QW/RSaFH+ca4tfg207eFoI/u8tP1aTXGX07Y5fIdGDRT
ObHgOpuFewsrv96bzKALJkdOmAlZ2KLB3Vo4yKAjf517++QlCztklmrthhg0
X7CXCO5n4U1hS+X4NYPeJ+Sy3v3DwlzD4eTJYQZdkptsvkjFwj/su6YNnWDQ
/h/m3vDULKyWv3rqTpJ059aCHNk0C9cq45N1LUhaZ2baVmpK4dbKodA8S5IW
2W9LPWhG4edCLzcXa5KWSWOnVOYU1qxma/krSPpugEKsv4zCq6NaQ1+xSTrh
4zyGuw2Ff5q0dKvdSNK2PY15aA2FRY2JVgGbSdok99vqfWspXJI9OjXlRNJF
eGdH9zoKN7rUlzq6kPQFqZ12mkPhD/HhViJXkiYtuPOctlDYiCefctlJ0jVL
3003bKXwElt4+mwXSTvnP3p7YBuF19cvSl6w579fLqnlA4V3ZHwXeudTkq6G
+YWkK4X3hipdPfaStMGDhIRUNwofdOJa9X9O0itNVwUs30XhUINHU997kvR1
JwbnnjuF/wUfmgvw
       "]]}}, {}}},
  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, 101080.}, {-10, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.777208485373765*^9, 3.7772085054238358`*^9}, 
   3.777208961441846*^9, {3.7772118626782885`*^9, 3.7772119098216023`*^9}, 
   3.777212095418528*^9, 3.777265949728792*^9, {3.777265993626281*^9, 
   3.7772659967701178`*^9}, 3.7772661481584406`*^9, 3.7772662027735023`*^9, {
   3.7776380595001497`*^9, 3.7776381109351115`*^9}, {3.777638154471208*^9, 
   3.7776381660344934`*^9}, 3.777638291525857*^9, 3.777638489993601*^9, {
   3.7776385226427755`*^9, 3.777638548658206*^9}, 3.77763863141687*^9, {
   3.7776390113164005`*^9, 3.777639040812005*^9}, 3.7776392584540176`*^9, 
   3.777639297076849*^9, 3.7776393307325277`*^9, {3.7777905661010914`*^9, 
   3.7777905726994243`*^9}, 3.777808680153135*^9, 3.7778088464372845`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777208518665845*^9, 3.777208520181232*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment1", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"logaritmic", "[", 
        RowBox[{"t", ",", "A", ",", "T1", ",", "T2"}], "]"}], ",", 
       RowBox[{"A", ">", "0.8"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"A", ",", "A1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"T2", ",", "T21"}], "}"}]}], "}"}], ",", "t", ",", 
     RowBox[{"MaxIterations", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nlm2", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"linear", "[", 
        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[{"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[{"-", "6"}], ",", "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"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   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"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[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[{"9", ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"9", ",", "3"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{"9", ",", "4"}], "]"}], "]"}], " ", "=", 
    StyleBox[
     RowBox[{" ", 
      StyleBox[" ",
       FontWeight->"Plain"]}]], 
    RowBox[{"T2", "/.", 
     RowBox[{"nlm", "[", "\"\<BestFitParameters\>\"", "]"}]}]}], ";"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"9", ",", "5"}], "]"}], "]"}], " ", "=", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ",
      FontWeight->"Plain"]}]], 
   RowBox[{
    StyleBox[
     RowBox[{"nlm", "[", "\"\<ParameterErrors\>\"", "]"}],
     FontWeight->"Plain"], "[", 
    RowBox[{"[", "3", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.777208523308052*^9, 3.777208525633341*^9}, {
   3.7772089518026443`*^9, 3.777208968010911*^9}, {3.777265611612506*^9, 
   3.7772656151911616`*^9}, 3.7772661865475445`*^9, 3.777636306017887*^9, {
   3.777638576017762*^9, 3.777638589010997*^9}, {3.7776386410221195`*^9, 
   3.7776386505338182`*^9}, {3.777639242248507*^9, 3.777639244250911*^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.777638291698781*^9, 3.7776384925543127`*^9, 3.7776385296816883`*^9, {
   3.7776385710015793`*^9, 3.7776385905135245`*^9}, {3.777638636388573*^9, 
   3.777638645418149*^9}, {3.7776390137514796`*^9, 3.777639041720316*^9}, 
   3.777639259286463*^9, 3.7776392979383535`*^9, 3.7776393316258564`*^9, 
   3.7777905778754697`*^9, 3.7778086820111847`*^9, 3.7778088477442985`*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "0.8000003999085648`", "0.1804217274456014`", "4.434057977577957`",
       "0.000017300804273280523`"},
     {"T1", "6547.326583330663`", "2237.5824047497313`", 
      "2.9260717144685304`", "0.0039423003378546905`"},
     {"T2", "48512.57950673481`", "6165.711562890308`", "7.868123413154524`", 
      "5.477308984120627`*^-13"}
    },
    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.7776390137827277`*^9, 3.7776390417515564`*^9}, 
   3.777639259317707*^9, 3.777639297969602*^9, 3.7776393316570983`*^9, 
   3.7777905778910913`*^9, 3.777808682042433*^9, 3.7778088477911673`*^9}],

Cell[BoxData["0.969612003871013`"], "Output",
 CellChangeTimes->{{3.7776390137827277`*^9, 3.7776390417515564`*^9}, 
   3.777639259317707*^9, 3.777639297969602*^9, 3.7776393316570983`*^9, 
   3.7777905778910913`*^9, 3.777808682042433*^9, 3.7778088477911673`*^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.777638291698781*^9, 3.7776384925543127`*^9, 3.7776385296816883`*^9, {
   3.7776385710015793`*^9, 3.7776385905135245`*^9}, {3.777638636388573*^9, 
   3.777638645418149*^9}, {3.7776390137514796`*^9, 3.777639041720316*^9}, 
   3.777639259286463*^9, 3.7776392979383535`*^9, 3.7776393316258564`*^9, 
   3.7777905778754697`*^9, 3.7778086820111847`*^9, 3.777808847853649*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"A", "1.0386474159585626`", "0.017988654931408502`", 
      "57.739026064982006`", "1.1795686218908019`*^-107"},
     {"T1", "5213.398527565154`", "206.8007882592529`", "25.209761391380436`",
       "4.5275846544807537`*^-57"},
     {"T2", "41030.978236476796`", "1370.7560417703728`", 
      "29.93310041040129`", "9.02994360352016`*^-67"}
    },
    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.7776390137827277`*^9, 3.7776390417515564`*^9}, 
   3.777639259317707*^9, 3.777639297969602*^9, 3.7776393316570983`*^9, 
   3.7777905778910913`*^9, 3.777808682042433*^9, 3.7778088478692694`*^9}],

Cell[BoxData["0.9888242239302315`"], "Output",
 CellChangeTimes->{{3.7776390137827277`*^9, 3.7776390417515564`*^9}, 
   3.777639259317707*^9, 3.777639297969602*^9, 3.7776393316570983`*^9, 
   3.7777905778910913`*^9, 3.777808682042433*^9, 3.7778088478692694`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxNlAlQE2YahkGOKiJBUTxKi1e1IoK06BQ5fBWFCIiIRz2QLhQRRWW3yFXQ
BrWKaBFkVVAGoos3hxeB6iIsh1VA5RYEIRAgQiAk4UjAoOv2/zqzmclknnm/
//3f7/v+yRzfIM/d4zQ0NPifvv/7/fPD+wc0/v/DO40i99TSuJHSgj959kWc
8frB+mVZJWPwkcxP1zxm3cBYlo60n/0mnZzXzJh/C06FW7xPmrcy9siCR5P4
YtjMDsa8exAU/7q8SUrc8AD7n2XXRU7tZrxUgOUdUumLdWLGMXmImnDktCqm
l7HwEWJrukq1PSWMv8vHsQZuje/dPsbxBbgdfvaO8SMZ48FChNqYWs2SE88u
wtulP954/pfuVgwTp6uGzmlyxuElGHCcs6IICsbppTgwlrlkJo/0yqcoLm5r
apOSrv4DS2s4x+tChxh//RwByoszTCOUjDeXoSnh28WzuKTzynF46rEvL3FV
jDMqYJa/VS51JG54AS/VvQPc4yOMtV/hsU1UxC7fYcYzKrF79O5QWB1xViU+
JsnKcp0+MF5TBcnRwdPdVz4yflMFrr64wF5Pzfjv1ZBPGfW/waF63Rrs0ps4
V3PDKOOUGgQLLWfk3ab6b2qRPS9V9duSMcbPauEcYjfKkdN57zqY/TD6oEZL
s5DNuw66ZsfnKbeRHlsPfo7Xyqk7KM/s17DUkX63a5j8Ba+x6b3S4kKkBjvv
1gBz1ReVe18StzdgfSLnyklP4vBG2H9IemFRTXkM3uBfwV5PJ0XRfelvYPHw
mP9a9ThWv6IJZz/Pud1bSfkqm6B4NTkpx4fq/ZtRanPvAe+hNtPVzdgZbWE5
N1SL8bm32NMQZ2Zzleq/boFYS7S9wInyPGnBjKrYoPRqOr+5FUht2FQ4lep7
WhE+dD+hKZHyQIjtPVbGxUGU57QQO3SDdbPkuozrhWgd97eYsXvkP6cN2ae3
dlTUkv/+NnCfd4TPNCbObcMyt8SqzDjice0w54z8ZGU2gfH6dtzpsDsXdpP0
pHZY+WR7VXoRi9rR+ZnfVUE93W8hgkD41QpzF+IIEeSqe/k6O6i+RATT+fs0
/FJ0GHM6sGxORprpeLpvRwfMRWVhfCHVX+vAuD5Z4LMm6l/WgYBM3W81t5G/
bSe0T7xff9WU+EQnBA7RYXnedL6qE3bNKV9cODORsUkX2kP7z0cH0P17uiBQ
xrpN2Due8f0u5PId4j0KaH9jXUif5hrPfaTHmCuGOM49Y6uC6hPFOPO9UUiX
J3GLGD7zPzzR7CX/Re/QeE5wbUo86Yfe4YXekzuu9aQXvMPgrXjT0lbKr9eN
Fme7FOUFQ8ZbunHWpEK/eCvV87uxUOVos8GBWNKNaIHFvxXTqN/lPRAHmAuk
XOo3ugdRUnGd+WTyq+jBj1naofEONG9fCXyqDiZm1dH9mRKUBh+qcYkhVknw
sCvpP7vbyM+xF5vPx9WHbfuMcVwv4v8pyasuoTyNvRgR+l03nETzm9+HkDVz
F+UXkR7UB/8cl536HaQ/6gNnryQ18ij560hhneuqdu0m9pBC/NjZRHhpCuPL
UvitHglduEafcZcU1x9mBQoNaT9W/RDlS4wMuilfVD+2BXqvrFoxjfEf/Qhd
FbBQPdWA8QQZdta76gUeZPU8CxnKs5Lc0osmMX2zDPbZ6hX8ETYPXoQM80Ql
H8x+pn2myVDBiXorqmV5eCUynCmJ6az4SP31yOCX9mvf5RDWP48jh63tRI/t
TZR3mRyJzu/y9q5ifrwdcnyuOCDV8Kb+eXLoLzh+/akW2xfvmhyLjZ3sLcM4
TC+Xo/dwRkiAPvPjyeRwFPrlHr5J+YwV0O7cH2gyn+2fZ/uJrc+Kda7T/HwU
GPhlXY7RZObHO6FAhr/B+khLuq9KAUvvBbHGaymvUoF+9wy9rzpJNxkAf18/
72UmvafVAzA3ufFWJGP5eXsGYH9R48ipBNJ/G0CmvmRknTebL+/+AKrWuhok
Tyf/hgGsfFXoENk1neljAwhHRkbRX/OaN4iVCcKec/Y0b+4grvykPlrUSHkS
B5GQpGWfnE7v/fdBGG2wPpKaQfNpGcTsX9oPhC6i/WoPQVq9rqfeluazaAjj
q1df2WdM72fDEB5fX2wXZETnDw3BM9t93aJ28r/06fzlngVJayczvWAIp84M
ON0wpP11DmFjZIb4lZTmqzeMnV0bI96H0vyXDuPwLYlTeiw7r/F0GPGbFLNe
R1H9ciWWqJXOLimUx0sJo60PRW776D3fUIJT/o1Pciu93wolSlzuik6paV4K
JfrcI6zqq6i/6SpYeOZsKfMkP3sVmn3uNlauYv8fPF8V4r4Mvnlwoi7TY1TY
mGxSW66ieWeqYP5Gcn4wQqfwv5oLnec=
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVyWk8lXkfgPHbnWwh3CMqy5xkLSa0qDz53TT2iEdoHEvCoTHRKGfyKRGT
RCWayJJki5OSFCP6/0vKlgjHvsSxNs/REXIMmnleXJ/vi4vhG+LsTxIEEfhv
/5cTbOLbSwWZORzxcDBIakZsjeT+vwkrmNqpoV+f0ILEvAfKGwg3iDVpfOdA
tiIdbmXNFTgGKMzrWjenFbUskzmlBAs297AvbbZtQ2Eah2K5OBgmv1378eRw
G5LObzKOhFMQENMn+zD0AyprUlTKI9ggmVhr7RTTjkSHqiQqhs9C2SEvBxXx
DuQ2673UgM+BfgkjdCCuA0VKd/LZEA1lV/S+T43uRFuN1T9kEXEQc6DwyT5m
F2qpFtgWhl6GOpZpXkFLF2Jbvq4tHY6HJNm1QZlm3ajxaNDTWpwI1/QgPUq1
B5ngo82n4QbMRd7U0G3qRQPjuY/SiVQ40FM4+L1wAJVtkwnOrkyFNbVfTjh7
DKJLoeE6eaFpIMEIWdNWPYh2LFnnlAzfht6+w/VN54fQRRl+MsaZYLcfWTPO
DaPvNqnsD4MccL6Tuug59RH9CQFqt4lCsOsmu9rTeEjZ5il29yuEYy+Bn1fH
Q+FOoseV6wsB2ev9ZD7LQ0a+9wpTr98H0eXJK2O2Y6g4ZnDHLbVi0M8xMB0V
jqH0N64WKaYlcFnGQsvNcQIdKNAot6x+DFlShrRY/xRS3/5dDyxWwKaq2S7x
ZD7aPmGS9EGrEobl69Win/CRyT1PK78jlcA5IZs+2sFHzsqFT+PKKkHOwPWN
n9IMihXdl9wS/CdsU3pLMDNm0HS/tx3zYxWk7mTa33H8jMqvcmrYjTVwfYdL
ZJudAOWxGU5uLS9BTOuuh5fOFxSS4N3kHPMW2C8W5pXDFlD4qkXclvJ3UMRU
Mcq8KURpBazo1Jo20BQLDgrRW0Yp54lh8aEOsPKRMdMtXkVFJcHxvYIuUH++
5+X1kwROs3uQ3PS+F2r9lV0ITxGsuRFVF3waAK+EH569siGxVbGzxuGgYQiU
ZwraFdfgy6cfyUR2foR3ZvKqL1rX4DTuGYkcn1FIORJ1hnVdFP8xo2n83zYe
uPid1pvesxYfu2t2cslnHOayPNMMx9fiqpVXLc5TE6C3IOXhfkUMEwo7vPe5
TUFn77MbTDVxrPhCjFDiTUPpl0YXzypxrMR423rR9S8Q5VgGsK0l8ORmwePR
if9BwsxwtuOQBLaqja2cPzUD1WayO1tCJXGjXDS7KfQzeMW+68tekMRdCXPp
G0wEMGX727OV36WwxwjTVXdWAJsyzNujpdZhzfUReTfvzwIQKwk+Cetwl3hz
RMTJL1Cx8tpj1wZp/K1PYUpbew7khRdTiFRpvP7ctSHHmTlwnZDWGmfI4IDZ
F4GtT+YhwzxFt6RIBhsf5MUr/7wAvy4n6Y9oy+LJYweM+wy/AuVeLjhaKosp
j6un/T99hY1n9S/+8sN6/LveDWvrnEVImvdvwJz1eLCuIS8/QAia3E6D3Rvl
8EPTr2mNaktQI8L0EbjJYf8LRxVPjC9BRHVhSH+GHE7JKtVtu/s3dCt7n93d
J4fFk6tbk9yWYe+GpJyDG+XxceeVb42qK/Dc+rx4HFMe7+IbvW3mrsC5TKNQ
8wx5PHMka4NN9irocKrTjYfk8eeU6kVVv29w44G/1RBDAZe7Bu4dkCFony0e
DCkfBezXkFgVeIqgDzF3ZQTnKuD3RRxx9xaC7nCOqjk8ooA957feCdMVoas2
F4fPqVN4qKDyN/tEEZo7KBxs9aWwyhtL9fhJEdpI+362YQ6FdVNLl7ZOi9Ax
kmyG9T0K7w7cxMWfRGhWK5XrlUthJyl+4iJfhPa4WpGfkE/hSw5/LLHmRWht
G879sSIKz3BHOy1JkmZwvPNvl1H41URUoqgKSZ9p40aIvKbw+8pp1l1Vktbx
zV5QqqNwf7yLhak6SR+s2vurwRsKL2zTWQrbQtIFe3iBHvUU3hb6njWqQ9J2
uZTL02YK31xUtXi1i6SrBucZQZ0UzmmIU/PaQ9KyJZPpF7gUfpguEApNSDpN
8RF1q4vCDaZ1pYamJH1Yu0K0tofCq1HBajnmJH2cVcFTGaTwOmeu0PQgSfMZ
tkzjIQora0Bn948k3eL+uN1mmMJGdVSinA1J7+WsvAwfobDZrfOsB7YkHbQ6
YnJ1lML2rAlza/t//3+yHuXyKPyTiZMa7xBJO8Zs16oaozBL8rnwgiNJ7/8r
KbN1nML/ANhYM4I=
       "]]}}, {}}, {{{}, {}, 
     {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVx3s81fcfwPFzvsklTsT5CnVYoQibnLEzTry/aWGYOb8ho4no0KwUP0d+
URKS0yZWlHU55dJyrViH8P2EyCW3QiN3cznkOEaOk8v2++P1eD5eOwJOcoIw
CoUS/G//Nz+UFdCrEWJXrL9btDnkvh1PP+3dR4oDdJwpNhhsTreT9+svbaR4
wedR9f0aFZF2Rt3CqsvgD78MOK5IVc6SrSuYoITChc1lFikpfWlkuL7rxW4U
CuL1rLJ0ndukSk4zMxZOAbM6t1z7dDb5uBnfmk3hQd2qS1F6WREpN1ih+HTo
DPRqRvoOtz8iveb9ZI3oLHBe85StWaVkrErXLA/iILFv+2XtYSFpwNTrvEVJ
gtEe3v4N/YhsrZR8nRd2CfiZMu/G989J3sG62pKhZDDw/un2iqyGbPIOKatF
fHD87MnlROUXJAt5t0TAVfBv+ER7UamR7B+/X3yTkgGLz0yK05zbyccmtNA7
wgxwD/gqn4raycSwSKPssExI9uR2pjE7SHOZo6Bw6AZI8zyrrbQ6yQu02TSE
foPQM+qrpm9fk3Sd7TbhIICsuLE3ml/0kOVwTPcGJQ/ul+ccfX2pn9RyKkOH
AvNgyvXEE5mkn4x0lzuq9TIP3OIsG25/P0BaBNzLy/jlAViL/zoStGeQfBg/
YH5d9yHkGdI61AKGyJv1nvbp7EKwr/KRn5wbJm1z9UsPVj4CW1Pe1ecTY6Se
Kf1PkD4FkcQ178J3ItJ0gpXauUsIWb2n3zRGi0jWvcMOgR5CYNwx2/L3XRHJ
0corS3oshNOhLVEzMyLyopx1WmtoOdzQvqF5Pn6aFL3zc/YdrgAxe6epe/4M
WXolv4rXVAVjBbFKT8ZnyWzeDnev1ufgV/QjLkqWkCdT/Jo58Q2QKvuNsWa0
SEau2SftLH0FJT8JPVC8lMzM5cZlVHXAnoirY3qsj2R6DGVIYfANXBkKXrn3
cpX8vTA0uVfSA8E5JcFfUiko07kgrbmtF3aVP+X0z1GQoTZZmTvdD0mWiR/i
B6jI4SFH/9uQITArq1vXKcDQpYhiWmzXMDBG4mbqQzagzO7/KgqOjIKvU2qq
lZkcuiY2ZP6nYwz+yN/IXuuTQ/537U7IjoyDTfgrJVr6RlSxWtPKmZqAuVHx
0UpCHlHUzf2svaag3vkWz2hYHuHV8pStYyI4+bjLVCtFAW3d0dB+wXMGPJmT
5vG7FdHkNsmj0Yn3sMGjovmTNkXkUHtRuHhKDKp/xnowTyuhJrU4XnPYHKB3
rZMOSptQT8rCTU2WBAIK63aZFWxCPiO+nsbzEljCjD69bq+MDFWjs399MA+q
WjH343uUUY9CS3T0ib9hT4zIOJmngtb71Kd2716AeUXl4AQVGlI9+/Ogm3gB
XN0e9JcU0tCx+erg9ieLMLeRjxU4b0bMA2PJWj9+gKm3trVvBzajSX9bZt/e
JfhGrtHVOVYVafhciQiaXoJHm9vxC0pqKGHPVUdHgRQS4qpHfDhqaOBFY3bO
sWV47b226QeBGipiL2U26cqg7OQ2nDathoLOeePHx2UgUWj7dtx6C0q/VWLc
cfcjSL3YOmEJW5BCWmV7qtcKWOnvCjvXugUd5ayuNzFWwe6I4UAFQx1Zzlo0
tHSvAr8zPuAhVx2JPW5pOt1ZgyhFdk79U3U0l14pZQSuQ4GNYe1xeQ1U6hn8
ZT+NQogrJyV1bhoosJFfEXyKQlgupKe53NFAbb/nKxxqpRBOnxpjKVMa6PCi
we1wYyrhuG9DF8eCjgZzhVEufCoh2znKc4yjo+31B/WSJ6lE1NaavMUmOjLO
KJEZiKiEoOGiwLaFjqyCdbrRNJVQ1WZnJb2iI/dNs3zpLJUoqrn0s3Y7HSV+
c03GXaQSigZZEfu66EjcPdp1EMMIc0G+bcIgHdVMnOfLbccIU+YfTfQFOmoT
irh3GRhhFsWoPbxIR++Sv7Nn62EEIyT6We4HOvpgYiQL34kRx0/gBaxlOjIJ
a+OOGmGEcKSd77tGR79KGfY1lhhRui/QJVsRR4LGJN0fvsCI/00ZH3ivhKOi
m5LlZRZGjFT+ZWOljKNG9ouSvWyMyJbambyk4WjtfKiuYD9GuFw7pzSjjiNl
Tvcy+wBGXHZboljScaSlD11vv8IIWWiQNAbHkcULDb6aE0a0zBpMqGrhyO56
DLfg63/fP3LgkDaOXLgT+x1dMMLGo7pLoIOj71nuumOuGOHTvtIi2oYjrtKz
5XNuGHGsd28dk4GjfwAt3Tqc
       "]]}}, {}}},
  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, 101080.}, {-6, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7776390137827277`*^9, 3.7776390417515564`*^9}, 
   3.777639259317707*^9, 3.777639297969602*^9, 3.7776393316570983`*^9, 
   3.7777905778910913`*^9, 3.777808682042433*^9, 3.7778088479508433`*^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.777638291698781*^9, 3.7776384925543127`*^9, 3.7776385296816883`*^9, {
   3.7776385710015793`*^9, 3.7776385905135245`*^9}, {3.777638636388573*^9, 
   3.777638645418149*^9}, {3.7776390137514796`*^9, 3.777639041720316*^9}, 
   3.777639259286463*^9, 3.7776392979383535`*^9, 3.7776393316258564`*^9, 
   3.7777905778754697`*^9, 3.7778086820111847`*^9, 3.777808848014417*^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.777638291698781*^9, 3.7776384925543127`*^9, 3.7776385296816883`*^9, {
   3.7776385710015793`*^9, 3.7776385905135245`*^9}, {3.777638636388573*^9, 
   3.777638645418149*^9}, {3.7776390137514796`*^9, 3.777639041720316*^9}, 
   3.777639259286463*^9, 3.7776392979383535`*^9, 3.7776393316258564`*^9, 
   3.7777905778754697`*^9, 3.7778086820111847`*^9, 3.777808848092532*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define model for liquid solution", "Section",
 CellChangeTimes->{{3.7772085427309527`*^9, 3.7772085443795967`*^9}, {
  3.7772085856621614`*^9, 3.7772085953370028`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"exponential", "[", 
    RowBox[{
     RowBox[{"t_", "?", "NumericQ"}], ",", 
     RowBox[{"B_", "?", "NumericQ"}], ",", 
     RowBox[{"T1_", "?", "NumericQ"}]}], "]"}], " ", "=", " ", 
   RowBox[{"B", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"t", "/", "T1"}], ")"}], "0.9"]}], "]"}]}]}], " ", 
  ";"}]], "Input",
 CellChangeTimes->{{3.777208610902131*^9, 3.7772086352026567`*^9}, {
  3.777208778872261*^9, 3.7772088204699154`*^9}, {3.7772656543658075`*^9, 
  3.77726568425861*^9}}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_200K_Tm.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "1000"}], ";"}], "\n", 
 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[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "B1", ",", " ", "T11"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "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.7772086715515757`*^9, 3.777208699809186*^9}, {
  3.7776381846865644`*^9, 3.7776381892320642`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtlAs0lfkaxlUUUc0RZlNrphNnhnanUel2VJ5OoqKGjWHlGiJRUu5UNLWS
OpE0R3K/tUNyt2Njb/a2L0eGXGpCS6eUaWq6oSm305n/u9eytt963vd7vuf/
fN/+q3cw78BsFRWV4s9////+8xMXAvbPGwvG4QiL4X+MuvuSOAYOesmddwte
MEYcSo5Ojv/rzghj0Wl0rW7+3jD5GelnEez23VjqF8Okn4NG8I27Vy2fkJ4I
vmTP28Mpj0m/iK9f8SaWDw6RnoT3MYfO7g55xHgoGc+nnf6p4TDAeFkKFFrq
nOWih4y9ruCT2eHXGwx/YZyTCodAo5/V+vto/yreDxqP9RoSL/s38ngZc87Z
9NB+GnZOPp+3Nqmb9q9h1F5LLUr9Hu2nI8u95NgrtS7az8DsrL7zFY6dtJ+J
xWbfZDUs7aD9LJi4JbWMGbfTfjZ2Lzd07i1SMk7OgXZ+1Fl3SwVj01wcHRfs
y1STM+7MRe/G3rieeW2Mj+ahxZl3b/CwlPEX+YhdddjUJqiVcXk+bi2ZepuS
KGFsV4DOquHHHyzEjN8U4ILWt/c2/U6cXIiAgPSo1REi8i8C52N0jP8z4s4i
lLd6dGvwmsj/BnL+scnUYa6Q/Pm4ty3hoaoecTkfXpq91q7zaN7uJqwXKPPf
+ZD+5iZWzHjFBK6tIf9iyB6tifv7rwLyL0HUnpS9m7WqyL8ES8rmdqxeUUv+
pTCfFmg56FSS/y2UddobmEsqyP8WDGt57SlziO3KYF4VqKpnc5v8y3B94Pfz
AUWkJ9/GxoimN5W5ZYw55bho2lLc70DXP1iOI9u/+tIqjOYF5XDTmkh6bE+s
XoGKg52z4xbSvksFPP18OMO7ifkVmFVRG3jxAfn/UYHN+nLTRo8CxjsrEdjx
YbbN2mLGaZWIn+FHv3MsYjxSCauTyo1bNhFvrMJcQ6M/+PqFjBOq0JFi/W56
KI/xgyqUHxzcZDyf5o2r8X6Np9F7N9Ijq+Fms59rOJnPWF6NnCWDzy3c6H44
NXg2sG/IP5vmD9Zg83RJbzGH7k9Qg23hi830/WlfvRZhdrUDg2qZlL8Wumsa
7QdDsyl/LVxN/BTxO9Mpfy0uX9/+UcTNofx10NxnsFV7Me2n1eHm6MDhKm3y
H6nD/OK/DOYk0/xGAfWfQvkF0OjSKSwbo+s/EMB3R8SjT2o0b3wHP1zmPZ8Z
v0r576CxTFNoYkW6/A6C3K9lDXsRc+rxvfKQciI8lfLXo/Q+32PdN7mUvx6L
dgW3h+7MoPwNsF9ffdk2g67v0oDC4KSZhj2Uh98AYaptd7PjZcrfANy/lG0r
pPPZKQQ3bdeCWR3klybE3IRLgkNdP1F+IX4M2JGa3h5J+Rvh8ilLekOX/BIa
Yb7hcWhkSTLlb0SZ994j18aiKH8TvB+Yl0jOXKD8TbALHvgYspb85E342nPU
Z0gri/I3wzPnxMvXW45S/mbYrLNOjzaNpvzNsK7/L8+n/xJjVRFCtrgG6x2j
+1kpQl3UYmH/BOmOIrScsp7btepHxrEi6C6sOxapd45xgQhxBtJe1et0/+0i
ND35RT4VT+c1KsI8r1Unq7+MZ7xUDD89rt+CJ9S/pRiJ3GT7sSukB4nh5GqW
zfUmThVj4ucCT9cj5CcUY0Z3lc/4hfOMn4rRp9thOaVCrNUCld2lZsoj/ozN
PvOpc5FWRXGM3Vow01/T3Hmd9DMtaFo6e7WhPumlLeBoqBSe9PNg3NOCD0Ge
ibdczjCebMEht+oAvspZxkat4OnsNRl5Tedj2wpbE4fxPt1jjENbcZmb0/dV
CZ1HRiuiI/q8Gk8kMZa0In0rR0VgT3lftqJumUVn3n7qQ0eC8cr/dIX7UB+b
JdDoFvOc8wMY+0pwvyZPR6lq2vwnX5QgYUqTd7zJn3G1BDH2hj23Q+j5G5Cg
6amJ6vRDX+pfilMpiyJz+8h/pRQTYcdnRZ86Tf1Lka6xRWhukED9SyHsEnte
stlB/Uvxq+OyhW9fBDK/dim6Q2uPPsgOp/6l4C7asGWsOpH6b8NL7dEqY8tg
Nm/ZBm593tbGk0cYB7VhVoD6iUFOMPXfhtgDIy9kTnS+wjaEHjo9+fqdD5t/
2oYgJ/e/lWUdoP5lOO4gmlylTs+LmQyfuqfrSxW+bN5NBruQ8zcMHtPzd0aG
2PXzojK5HkwvlcFq/0L/FducGPfIYG31TpMzQe/PpAzPfhvyeytzZLqRHCnc
K9nht+l9tZXDyujaQ9fd+6l/OaakdmsEanQeGXKcvBf/itMTQf3L8Vx1+2Cl
rwv1L0f9d3v0xVdJ11HAwOxcg/M6P+pfgZ4r2nd+20XPg68CYecfWc7JpN+H
iwrcLYpY9LDxAPWvgPPmphGZiN6PAQUy+NX6Xgo6P1Ul5rtGlNf7U78rlbCo
Hl6TXOlN/Svh1CPesWzCnfpXwkD0U6iWE+kFSkzUDIe/jY2k/pVY+u36Qs02
Ot/Rz/smP1i6rE60+B/5GH2p
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3c4lo8XxiUZpazIykpWyd7v8zznRUpKVmZRZghFJFtmotJAlFnICtl7
77037+u1KYqs4vf9/XPOH/f53Nd1/3Nf1+E1d9KxIicjI7v33/j/bv50fnW+
+CH2sW7Bknj4E0sMdPDcy9SEzE9nr8/5r2HHB3rjijNNIZCBTTTGfwUjOv/5
W0JmA81d15OTy5ew6v2jF6MyHeFH4M1jeTyLmGZdaLbCBRfIvTQ+9D19HqsI
prucTvYENrqeWztozmEf6M4+Dsr0gfOpNgp5JCJGsdx7zAP8IZzL7eVaNwFT
uv5eW+JCAPxUHvTo6pzBnHMMPy0yB4Gt6yvKm6XT2Fd6zqUEshAor+LdpP0z
ic04T0sbrIRCHGJO1Lw5gbEOJvudGgoD7Q2UY6RuDAv+IMzqnfkSYiWWNvfW
h7Ep7z8S7BqvwZygc1Y0fQjbuzQy7AqRIPhupqHVeRCTjIw7J3rhLRgznm4+
jvRjmsreraE878CV4uChkWIfZvvb1InE/B6o+3hW76r1Yom3+MrjyKKBo8Sa
ou1kN1ZBSXFveysa2HgOFWxcOrHh4jlK3ZUYEDEKguKf7dgp9q86x4di4dNp
o959gVZMpD1sx6o9Ds4VnKBzmW7G1LwexNfWfASC0tL9+K9NmPeU2LJ7Zjy8
yhAZ3HZswGJeMbweSEyAXAZTJtX79Zhx4i47q0YinJ3kOuvjVIe5aY/XuEAS
hBVYfP/wuQajEOl4y1ueBH8R4nWm5GrsDXmldbdMMtByHDZTMFRh2d/jaS9c
SIHJdpoo1YvlmGL4q+mRLylQXMCWdGuoFGux9MsP5vkMoSrHBfcjSzASs7kh
kfkLlLyR4MApFmHOP3QuvH79BYo1PzOdOV+IkTWrHCAnUkH4XnTjUa4CjMP9
/OcPZGmgpFqazyaXj6VrsTy54pkGLbedUwm38jBZYaprW1tpoEN0ttv2zcV0
xhZ/aq2kw8b6dWerhWxsJn+07sDqK1CY3s3zc8/CHF+0vc+a+QqZztWTgxyZ
WBguS4l6KAO60Abco/fpGCvzp1NFWpnQ/f1N5q5tGpa6FkGwaM+EqPL8P+iN
VKw23imkuiYLNNYf01EgnzHNJ3eNHZSyYZw61oH7ago2cVNblKMoG5xqi+JE
zZKxHTKpfrfMHLDsV5uuzEnEeGiv6LuJfwM/j2/udpkJ2NUzJqOuhd/g13k7
FSb6eKwjqtapzCwX8n7uqBayxmF3P2pIKCbnQuQ9Siv7sg/YZtLgr1JSLogX
nNfWdYzBOLOXXEtt88DdOwg/SR2F5ea7yClk5UEpi9f097V3mGrJv52SH3ng
+Z6KeI7wFntQz+BV4pIPxEQeqer1SIysNQ6RL8oHjroz214nIrF3XecPi3fy
wdF2smNb4jVWOarwrNj7O8w+kN+0wiIwnel6Fbma77D+UMo4of0FNk+6cayY
vAB4YnCWdXZh2Kn1e6FFIQXgindTm5wMwZK3VtRl2woAPTCJJ88NxmT3XU8U
0RbCK2ENVvvIIMyUMuxlYWQh/Jnz1CP5BGC/TpzWkhkohGsEVmHf58+wYIZ4
hkKWIrATR1geJvpjOZz57wriiqC5961hMsEXU+bD6UtPFcHJu3cOhHV8sCHB
pjMFPMVgHPwgKWPICzuQHIv9/qUYdL9thYSf8cDeyFvellosBs0ubafjfe6Y
APrj7HeREtCvpOYv/fgE01QnT8r/VgLCURHxNmauGFEz3FzyVwn88pyrJdx6
jLnpsfDnS5dCjv0ZVT8jFyzeTCQtr7QUDpYlZp8HPcIkrQruS/wthV3Xnftl
WQ+xJjtUJA8tA+/4NSvJSifsh6tOdm59GYzE6J0MrHmAPfOccBSnLIcpz57b
HKb2GIu/tXju1XJ4WO0gffqkHYaFe3z/1lkO+HbBt2VxNthAJIWrGH0F2LNe
5el4ao3dj34p+02nApbL2Jkpra2w18nJpTnDFYBWKx8XsbbA+NMvel5ir4Si
Kw6Hje7mWEl2ES7ndiVobyXcWou6h82UtFVnEyoh1s2vXnbBDHtcpecvyl8F
0o7CnefNTTHqhinlbOsqEHygorv28zYm3v2rMWulCromyfSMwBhrGPAKuXip
GuwnojZVjxhhhmOU6lkPq4F2QkIoqtcA85tj78jcqobTSu/RB59uYS2qnoUE
thqYrxJI803Xw3pZlgLX5GtA/OKBW1SVLkYsazh37EkNxN2ZEeqh0cGWwyV/
00fVwNJsXTU5qo39Nk2s4yysgev6g9EGnloYxVGve9K/a+CXxD2uIG5NjHZw
SRwYa4FOLkOMv+M6xpxmQHZdohYsmFy9V0M0MAENqQQLp1qofVVWjomoY5fO
Jjk6vawFW45jgs/ormKyP0+hntm1QDqTdvT2kSvYlbfLE29WaoGxtFbkPfVl
TMvKMCv+eB3wJn/zJ3GqYoZyTZ4ZwnWQ31zakKGkgt0fT2Kvs6mDTMkppCoK
jz3MplvuDK4DB/9GQZE+wJ76epeOfqmDyMVns+osgIWdMzLcmK2D+PX+YAlH
BHuz1ST4j7wevLBgHLsADotrlt6m5qsHevkzcT6riliWPX0Uz916YE9Q1RBO
lscKEB+ri771cC2yP0vhtRxWSbcqLR9fD/OvbAWNwmSxru/N/Tcn6kHYeZf6
c6I0NhQkk2KyXw/WtMJcXeVS2LRBirMNewPgcqhYKQiS2Pq+D4OvYQPw1qlX
dF2RwHY6V2fCnjRASs7fhIhQcexIonFuVFQDiJGUmw1TxDBGVdmbOQMNEJh1
8TTf9kWMneUzV9nvBljha7C/VnwBO7fI8KORsRGaCy8S7YJEMOnwtfBJrUag
Khdc4VUXwnCmJreXnBqBgb5o8DUiiKmKt17YetkI7xZuraYhAtitgc9ttJ2N
IC7R+KTRlB8zTWWMZV1tBIr0sOFBn3OYtbufLf+JJrhK05GflM6HuXHepsap
NwEF0WWl9Awv5vOjdfjK/SYo7fcwVLjNg4XUyKXphjTBsax1wndtbizGkknN
vrEJXjzIVxTJ58QSZf2Zn5CaYEuMZYTGnQP7Sv2T9OxoM5CY7h36arBjZVlt
AbH4ZhhMpZUYZGXF6nzkdVPvNkPiNRrPaIYzWLtWKl++bzNkFXjLFDGzYBOb
/rWtlc2A5yS/xoiextYxi68KE83w9M5sdLwVE0bxQjXy614znCIo3rgZxYiJ
8lLdey7XAj8WM2nfMDBgyg8Wr+7eaoGvQnzt903oMf3iVnHbxy1A1zm8OWpE
h/ncCCdTz2uB5RrzXYt2WuxNjMNiSXcLCFVIlmfGnMBSZzV7hH60wG3GR9uj
zsex7qcMidQXWoHwENdXqUGN8aRGYS2fW0GFS9zkuz8FJr3xRFC+vhW0wnlc
GNKPYldxRnTphFaIJwwZRQyTY4/6OKZDuNqgQmnWyEDrCBZ89l/TNq4NOq0/
wWoMGRZ7fyrHxqQNdsSu2hr2HaJ1B4k+V2LaIIyaoq0V/YcOqT+zLi5qA0pR
A71Amr/o8jsLTcHBNhjzdHkmQNhDmS4IcFExtsM3vzjtvYId1NIgs7LpRTuc
dYxwPE7YRN2Tw7/IZrTDMq/8xCHFJhq+5hCR2tIO/5qsD9glf6OFAeJ3go91
wJ0QJTokdQNt62K4/OdcBzTt2sa+WF1Hp9h+X7RW7gBkjbv0peI6Splb+Pey
bwfYjGU0DY2soez7UaTCTx1wA5tr001YRS+puXecr+gArYcrCp3OK6jBhOLH
Y7sd8Opwov0luoSmU9coNTp3wi8NgwwPkzm0QjfpnExkJ+S9LHk24UlCe+Kf
nfjyrRNOvDLTfvplFt2VvjweuNoJ/ElntyYZiegpP4H6zeNdsD9ScWrtFgHl
a6fKtBTuAnVGtpuNiTPotXttHqrWXeBUr0TD+GEKNc3KNC8I7IJr4Z+G84wm
Ueft8Gv8KV3AitAIugpOoLERN9kpZrqgmHLPEFkcRVdKB0rrjbrBwmSYe319
EE3trTrZ4tENhCWCUN7uAHp3Kf1eR1w33GpQCXtwcgAdYvWmGZzshqlRkcsz
un1opLjNndGDbhi+EvU2O6gXFficPvKDrgeOSpclxdf0oITyNxd/i/dAlE70
hY+JXWhVc4i+K74HYkYDVd9c7UQ/9nv5bWv3gB4imlB72I7qr1gP7Dv3gHFO
0xLHh1ZUetvkwDugB7goYsjJPVpQhqPaQmTveuCA89LfKJtmtINdyYuisAcE
RhuQSOtGNENAPDW4sQdcIvf0F90a0BDJ8z3UQz1AVmJg1htZjypfo+M/ud0D
Id8Pz3jP1aI8+hSar6h6IbO6ZM/0bC36797uEwbWXhDvbiuiN61BS57OtjMr
9IKnbcVKznolGhU0shWt3gsXVatLzJMrUJfITm52416g+0m/32Jejl76WuzC
5dkLXTrZp9hOlqInCrM+Jb7ohcmKUfX2rWJ0sSapme9jLwR33T9fs1yEpoy8
4BCs7AXeglml69sFqB/J7/LXzl7oj+HfmD5ZgJquuzpdmOoFaymvbzmXvqOs
1HfrxQ574Vu1m5dURB76h+nWWh5dH6jOGmgxtOWi/dzXzkjz9MFZqwSVp3S5
6Es5aXt5fB/4ii8fH7DMRh+oCL8v0+6DCcNX8t5cWaj6Ta5qnHkf0HbxHbOd
z0ApbKiZ8AF9QD/52zI8Ph0lOv/D1b/tAwb220+iI9LQap9f1pc/94GlbF3w
i9BU1CNqoky9sQ+q3guJciZ+Rg2Te0ntg30w1JQiUFWegsrkNJ3SnO8D9XTi
bV1CMrremGuuQ9UP7M0+VJ+uJqGdvV/CB870Q97X2ft+zxPRjMnYIn2hflhf
aiTd/5KAWm0FHjdR74dbSPEbxd2PqPIRD+lJo36oNJDFXSmNQ3lOOpma2fUD
673xWMWQWHSM3yjf4kU/2LUe53e4FoOWiGtOzMX1wxonSvUcjUbf41Qo72f1
Q+DfwieqaBSqpSdq/KCzHxa6GB9Em75DO5rdPAcm+uGB7NbuXPhbVF2p5iNu
tR92GKT98uvfoMp8utO0Jwag4KTbTWv1SLT6/UcyV/YB2PjL8i81+jWKo5nn
nRQegOt72yA+9gqVWXe3zL46AE9OVLU3Gkag+RZ1QcyGA6Dn8Ezb7EI4emn4
RJq3zQD0rYc0nT/+AhWqil+6ETwAvxaNTVSWQ1H28AbHH/UDMDZbln9WKAiN
Ojz5Wr9/AE4OBlHr3QxEmVwM8qqIA+D9rLhPzTcApTVe/v3yyCAM6rNY7237
o887pZi36QfBki46kR78UUq8t6wZzyDYVzjNRbzyQw8F6Z+KYYPQs144wR7i
g3rFGcVGaw7COTOV/ANNb3TnVEr54Z1BOOwZLnQ854X+2pI56PYahPNuq7br
P5+ipHqTgIdlg/CKqzsg4Lgbelfuy+eR1kGYT9Ea/Srsik5m/GiE0UEIn7z2
Y0D7MToU6U/NsDMIxMCFSy3lzqjusXbhp1RD4PiLiZ3w9xHa435ag8AyBCID
41sJlx+hrWZpEXkyQ+CTwxafPeqEqvWv57BdHgIF0rHcx+8d0To1xR5/vSGQ
XMu8IWPqgFaIdjLquAyBKBm3QeRpezRn/1f0r9whkDPSyTShskFFnHClxjVD
cJ34S83hrDWaRgwaq+seAl3/mbNDOCs0sZX17NsfQ3BrxmhDPMoC5UTM0f1/
Q2DMHSzv2G2OfsjNNLM4OQylPeVkH+jN0TfRaLLUxWFornN68vjrXfTUidD6
OKVheOS/uf6C7C76wqeXdFRjGNKoUrwqKkzRQCtLwQHbYWj8lBehYnwbfSIV
lvU4bRi4UuI1fXkMUbWTI0cFS4bhIz9OyY7VAGVZOG8y2jIMN92/M+dx6KNF
sbU06PJ//E7z+7vKemjwY7p763vDkF3+tmDSUhfV17xTknxiBKh/cihNv9ZB
/xzZtaYSHQHyjwdVXUe10aZxtapSZATocSbx2+paaFThO+YHmiOgk9fzXFr8
JiprK97Q4zQCCRXx3DPvr6OUKj4cAX4jENiaa/H3jgY6xNnhLBM5Ao7xvwOf
SF1D3XpseGPzR8De4yGiTHEVVcsodL9ePwJ2pEJ/7wM1lCXwaM9B/wiQpRx7
9OOoGlokl+BjsTUCt8wGzodeUkWDGdYGmSlH4dSol1+rjsp//a8o2sIyCq5l
t5Ue+SmjW/FD4xflRyHmnSyL8R9AG9z5paavjgIaqnt7FAH0nY5zWKTRKLwx
OzPmyo6h0pSnFP54jIL0erl2XCAOfexwOaq6chTe/rmZKrYnh6peebv2qGsU
rA3Miua3ZNHTvARV/ulR0D/TxFD8VwYtGPD6HUo2BnSjHU9rhaXRwJy2a0oM
Y/CIidLozE0pVC+UNXmNdwzate2LKr0l0d9KBVo6KmPQqnIt12ZLHK1jJk+n
0BuDPzcUybIQcfTNz5uHRZZjcNlTPjOAQwyVTFnJ5ggeg+P9mjiu0Iuo8/Fz
J+ZaxuArTjHS/IgQqkx6aB49OgYOSweMXf8EUMaqqlL15TGw9Y5MxY4JoPmP
jO/nnBiHqXYBTkMpfvSZRnr1Xc5xyBtrUj5rdA7VOf+HhUl0HH5F3n7HH8qH
boxENj7RHIcqKd4PtmS8aE3+NKeI2ThYS7ydW7rKg74OF3084TQO5mBqYS7J
jYpDKx8+chzIBYlUYQmc6MM0Mr/jA+OAUcwHXGRjRZuQ0FlH0jhsKlLTS7Kf
QTkH6K70b46D0VJMaPd5FrSZjPvUR+YJGLYdm2YwOY1yRqc+IhOYAA9/fjwx
gAl1Fr00aCk7Aank18SSChlRLmPko6jBBBQOiB97JMmAPl5vOIy0mQBC1dZa
lxc92hZ83eLPk//8Dnp57T7RoW7fTUSqYybgpENiVjHdSbST1qNEa2wCvlfa
0Ii8okb5Uo5wFi5PwP7j2d8K4VSou8JzX7b9CbBQdy4/8o4S5beOUSNyTIJP
l/H2Zi0F6vGXO0Pt4iQcfBKRvrZwFO15k3YyEzcJiyKYRwbzUdSrumjA5c4k
DETMSdGFH0H7bqHyIw6T0GlqxmTWT4YKrTbG4XwmgTVRwleLjwztZx00P5Yw
Cc/tpTOyM/8hIs6/16NmJkGTbD+jimUX8aP21Ntfn4RdeecebrodZCievMTs
yBSsB0f73mXcRvzbGXyF+KaA4CFZUiy3hQzd+0AMl5yCpCm7/C3DTeTiDo/a
hvIUeCQM5d8L+I2M8IufLLOYAiX/l77KvzaQS+XFD7keT0FC8Id4MtkNJFAb
G3gWOAW1tpqnff3XETEfzTiNL1PAyvrkz8/bP5Dg4QfCk/NT8IGDZcgkdwmZ
cNgMx29PAf+4mK1OyiIiSeG1/oVqGpYmLX8bJC0gk+Ivih2FpqHrRgB1bcUc
ItnMyNEvPw28fA706qMkJPROrI+c+jR4lU+nCB3OItJhXy+T2U0D+4RZqY0V
EQnjkfhq6TENxz7PbZz8QkBmikpoW8OmQa9cuzNmdQYJn23uj8ycBienDanz
/NPILG7+3rm1aRjQ0PWNuj2GjCjWVTj8nQaDLOX0IJNRxJqz+8TEsRkw1DUT
07AcQUzYM60FmGcgT0G6ejRyCNFnY3vXzjkDTDfOSqwWDiJarCG1D/lnwEk2
PsyGOIBcZrHgLJeagS4NuKqt248Ac6/6XaUZWDz/Nv9cdB+ieBp7ckxlBh7K
p/cJEHsRMUaOvps6M1Dd+lslLbwHYTvVH0J6OAOF94857hh2IKdP4gufu89A
/fmYm/qX25FTtN+Il/xmQOrPpIE8rg05evwF8vTVDFAu5tKvX2lBDqh37bii
ZyDuTf65o7ebkR0qm5j6+BnwtWUcPP20CVk7pvL7ZM4M2C8H5A11NCCLFHk8
3wtn4BpfePAMeQNCPMqtaVg5A4Ny2yc+Qj0yfGQ/PbljBlbUnQP/9dYitf/y
TeVWZkDpTFxj8fMqpOIvT/jErxnY4/awib9XiRTtvyz135sBfY8bX1pUK5DM
XbvTHTQEWAkMsJG6UIak7ozgHzEQ4K0dju6zaCmSuK3mxMJGgCjxpCslCiXI
+y2+trtCBLgvu8Ot71CEvN58vX1MnACCIu/JLr0rRMJ+H/BnyhGgUVYp+3J9
AeK7Mea7pUaA83lsl7bkvyO2a29kwqwI0DxzKxY8chHLVTILMQcCHG7O7w0V
fkNMVxxfDzwmgCjR8JZKQA6iu3RthSuQAL0nRNLCIQvRXCxhbXhBgJrVDJEX
YpnI1QUBNdu3BLBx9D06K5SBIHPkSd+TCcCz7XiaTiEdkSc97DLM+E8vsNvn
v5mGSM5O7f/LIwAv+XGNM46piCChTP9qLQH2WgzklBo/IwyTzrST0wTYJR8K
H+lOQmTpZvUEFwnwPSkqYoY5CTHG6356tE4AqeX36sEWiUjyF6lLlEeIkHNO
4e+YUDzSNJzipkVDhPEnBnXiPz4iyzSnq2MZiCDkLc1tUxOHSDpu3hTjIwLn
Z0uVO88/IPqJljFPRYiwsbn2ics3BvHoG5iplyTCJScTfL1vNFIvW/jIUIUI
fwoHcRsJ7xG9Q9e3/pZEoOi+/vWp1hvEXWJ+vP0BETIdH9xuj4xEPlro87O4
EsE29qXN/NhrhNQsW5gRRITS8a1xW8pXCPVe6r/NCCIYyN9q+VQfgVy8eEYN
iyKCw5vMhn8R4Yjr6+2h/lQieNOnLHNdDUNi62y4ub4Rwe7idsSE7HOkanPY
5n4xEXB3eqqqxEMRSqOSnb/NRPBqCTTnUw1GonifsgssEWEi99Re/eQzpEx3
yfzhBhH+Pd/jn2Z7hkwFGWWW7RKh7Gu5xeYdf0RgWQF38/gsSGpe4Q3a9UWu
cWYEfmCchd2vYjcqs30QR032zln2WfhkLZXv6uSNFOfv3XG/8J/+9w6bPJsn
MkGyS62TmoXCbzf75ck8ELIz4z9ocbPgRoZWpf5yR656lvsmXZ8F4WsJuhvb
bsiIildSm8MscGXWjhi7uyB/XVeXTrvNwtwDUnRpjjPCk35b0sxnFnLMFNyu
rj1CbGmR+t8vZ8GrJkj+s/9D5CWafQKNngXq/U/MSdlOSP7Ds3qhCbOQUvKR
d9jKEdkb+EfizJ2Fg2Nhi/H/7BEuKkdRm5JZ0FmoXuGZsEOUFaZc82pmwZeR
yeFuky0S9qmKUq13FjSsKlykKmwQDmtfIadfs+B02kJim8cSOdXx4cHFvVnI
fE++8sHUAiGXLMhdOkICWYfwsJgUc2T536K8JQPpv//Noi1C+R4yZXHUm5eN
BPxPNa7/i7uL9LWerZ3iIYEVjXvQ420zpPS9jrqROAkOsdWnurF3kKz9BxEs
8iSoFZWX6vW6jSTeC+ntx0hg3sg3zW5ngoSKVhhp3iTBzpXV284WRohB43k7
FUcSFC2MxWY23UKuXYAcMjcSkHGIxZI29RA00vhXpTcJ5h+hWzQX9BCBO688
5CNIMOy5eGopWwdhr/9atfWOBJ+SnTMY9rSRU8IN5N8/koBFyvYcxQ1tZGtz
J0w0iwSU3JmteEotZNGYqXv5+3/39cJmvCOayESNKFN6OQko+hTv3/t2A2kI
N4/jayeB++KyKY2vBvKWvyPzzDIJVMe8xdOjryDBYfM/BzZIUEXby7JQoIZ4
rJNJv9klwS/OVc28scuIeYVMBS3NHORPr/1MQFURfT4tsjb6OYhWZpQU8lJB
roXaqYawzoEMjTHuaK0yIqGX0HFEaA58HTnmYszwCH9ZKX212BzYRzPVdJYA
wsozoOclNwchFyvS1VkBIVulnvyjNgdKmyFy1/sQpDvAeW3Fag4ipe9OfI9R
QOqWwiW+OsxBovzzElyKPFJ0M83V2nUOTt9tWD4skkPiOSb+zQTOgfsTS+GB
HRnkjf8ffHz4HFAqmG3gBGSQ4AX6YJN3c5Dqwaf2ykQacfh++dRQyhwYCV7a
rJ2QRO6y3dV5mzkH365ksjMKSSJ6vh5RWt/ngE1eTOKChwSC0/jG1V43B0FH
FnsLJMSRE7OsYjWEOQiulCoU7L6AKAtqPdVfmoOWl9xHJNpEEHf7kPrV9Tnw
nlCv7u8SRuZ/bxmwkc2DlGDOSZ/fgginvGjyN6p5MEiZ4BtjFER0vSxXL9PN
w0LtPVd3RQGkhqLfz5lrHs61DH9TS+JHtq8eb6cWmIdn7KXnZqfPIZci8MwJ
ovMg+XOqKPb8OSSOOfdrO24e1FJ7LbUbeRE3gYg+fpN52LWr21CK50Ky7Ro4
y83nITZTZSzA9yxCytm31rabB+c3KiRte05EW85u3/vpPLQ1XzizfZcdCfVM
unzafx54OZRSGe3YkKrqkVcZofPA+iF/CufFily8eoV/OHoePNNjKezLWBCL
cB9Hh4R5uOXa+aZzjhmJ7SksOZo2D+2UIr37rMwIlRH/DfGiecCeaprGvGdC
iLZH3J4PzENVL57GaYYeYcuRr+GemAd7BQruEmV6ROuX0/Gi2f/4/hyq17fo
kEqPqXjir3mQSJhIb2U5iWxWMS+57/3HC7HtMVPRIiJHb0jRkS/A16Ibb/SO
nEBiXpQ3KzEswPFgmkUZRhqkq/sXQx/rAhQatbYLClEjx06L3L7PswCn6UbJ
M9SoEOePMevvxBYgrGHLgefjMeRGtivbjxsLEK5vpV+RSI6UyZCy2e8sAC2L
ckuixhFEqEpH+cqDBagXE9c4PEWGvFerHXLxXIBHPdQRwn3/cOTdYvaJYQug
o5Lu4J27j3toEH/Y8WEB2CfbkzcKd3GT07TvdtMXQGpWJq1wehtXsr5UodO8
AGyBMVdW3m/ink7fDmkdXoDP+yXc+we/cIpd3dqwuACPg5jgdcgGbq9CmbN4
ZwEGhGm/yImu48ozC+dFaRbBpCLK0HR8DecVK5T3mW0RkJL9gPqIFRzueZwn
h8giSLi2FzY7LOGqrP3paTQWQdx/u6A1fQ6Hqdp8+WO/CGOi9imoCxFXw3tD
kRS+CDxaXeUhTtM45UPJ7t7sRVjYJHzSaRnD1U+wWlZ3LcLzXBfjtd4hnGrZ
wU7Wz0WYmSkyp3TuxzVFkyJi6ZcgR+f0b4U3Pbgrrm18oRJLcPnpo+0/aAeu
RSe32FVnCZj2PW5cYGrBtZ/0Imi9W4LSnl8tD3xqcV0tV05cHFoCOxcZ8mDH
UtyBy4UHY5NLYLlUVznlV4K7xE3XGTq3BC6df7eW44pxL12HXs5tLgH71adp
o8uFOE0+K8YEpmXYrxnDD87m4zo9n7Exai9DKy+zfRdDFu6vgLVHjeEy+K2S
/dk9kYm72Kc+7nh3GdzqX50opsvAhQsxfGp3WgZs48e+v2Q67vpgAk/Qy2Ww
KhoU0Jn4jOu4VCm4074M4ujnF2VHE3B/RxNDU/uXIcLTvGud+Al3MShwSW/8
P39/zflvHR9x4eMamXnLy7BweSYEXxWLux46dsmeZgWuqUWnNNBF4zoI2zJT
aiuwpIoF0AhG4trfSao21K6AwK6+y+a/Zzh+F9aaM20rcCah30Mee4bz0T5Q
su9bgVGD0vv/QvxxkqfapBhnV2Ao9l/f5CU/XEzIvXN3KVYhNObTi7Z3njhL
j9fkf9VWgfHqZHAE9WPcgdmPGqmOVWjm/Ex2TsgKJ3EhA0kZWoNhPYX4e9lX
cHo6RlX1hJ/wlaVZs+QJHe5bUdu7XtI6iIZG0q4yjyrdF/6WYbm2AWJdbsdF
8xOVTrOMyRiQfkGSiV3FbKSd0paNBu/az9/g+/MfYpwhoST9zLAn5c8mzPVq
LRuTdhRtWLI2S1e2QG7ifIfjZINiF53aU5etP2D9aLPsDxahKBwg4BK+tg1W
lEqCXPqGisSqZPGmmR0oinrNFGxyXrHHzEozZXEXLik+bi40+6mQ5+FImJ7a
A/KDZtwplXKFpr3KgeqlfeBUSLxKPRKgoKjy9UXNz7+gdNXcrumRpkLSsfFi
HtI/SPN59ioqnEMBEdVV5V87gC6LrZ6JeZJ8RxeDWgjpEIJDkm9iOfnytzmL
goLsyfDnuDNjbF/4y68GBLOy/STDJ5bv+rSnaci7Ce1ZTdgewXOTFxg5xrPJ
xx6+ttj4cQSvY3p2xPvHrFwJUzuHrD05Xln4g8576Xy5Y7T9MifmyPEN3ce7
Pjv7y63JHhxK2B7F1w5FnHHivC7XFd8RGEo6im88012R+5xdTl2hqlTcjgLP
YFkZ0M84J7tZ7K1lu0aB9/k7LbcekScb4zKT1GtzDA8OKfcjOfxlh+9Zp7xY
PYaXy7d+z8l4XZYu4pWZ631KvK5G2We/FXZZt4/B3j8JlPjvWzn07DQrMu5T
iRrlVlT4LwuH3OPTRTIud0wHimao8MXeEcPO0cEy4o9XdsaJVPidT4Sihy1B
Mqth7mePzFHhC2YCREfJgmQsS95YayxR4TlsNv+OBwfI6DM170xvUOHjCvp/
ts/4yci3ip2lOUqNX1COd02WfypzIH3E2uQ8Nf4PsfZ2sMgDmTKNl2F+gtR4
1yldpRIhe5kn5hzfvghT46dCnm2fE7eTWX8ls/NTlBovQN+dbmR0X4awbBsW
KEuNr59YEyuitZJpSOzLyb5Cjd8Q5mo48cRMxq/YrL9PnRov1CTeLGVgKoN0
rW5va1Djwx8z3E/D35Ep2qfEK2tR4zmPFrvvS5nIpOkr9Q8ZUuNdmh7K9Qca
yFg6tGzvG1PjG3qLNMqz9WV4Am9x8t6hxk/nBujoTd2SiclzsrK/R423t7Kb
9L+lJ6PX8vf5awtqPG/g2OrrOF0ZhunnOYVW1PhB173hy4s6Ml1bLP1jNv/l
19wstlDSkQmj/bx9aEuNn+k1H/j2Tlvmf/z0bt0=
       "]]}}, {}}},
  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, 13800.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.7772086724409895`*^9, 3.777208704264681*^9, {3.777208780939128*^9, 
   3.7772088222351255`*^9}, 3.777211925420684*^9, 3.777212103125327*^9, {
   3.777265658877942*^9, 3.7772656858545575`*^9}, 3.7772659506003056`*^9, 
   3.7772662033671155`*^9, 3.777638193768612*^9, 3.777638292528472*^9, 
   3.7776390422380877`*^9, 3.7776392597750263`*^9, 3.7776392984338493`*^9, 
   3.777639332113282*^9, 3.7778086825616026`*^9, 3.7778088482799788`*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "T1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}]}], "}"}], ",", "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[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "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[{"10", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    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[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7772087182119846`*^9, 3.777208735590296*^9}, {
  3.777208943229644*^9, 3.7772089444450693`*^9}, {3.777265619714051*^9, 
  3.7772656234092627`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.2729324462646712`", "0.012916522762208817`", 
      "98.5507066955372`", "1.4382108675404597`*^-150"},
     {"T1", "1083.495522314948`", "12.930407975985876`", "83.79438021810267`",
       "5.714939931371251`*^-139"}
    },
    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.777208742696658*^9, {3.7772087832495375`*^9, 3.7772088245657463`*^9}, 
   3.7772121046749496`*^9, {3.777265662999048*^9, 3.7772656875915384`*^9}, 
   3.7772659506784115`*^9, 3.777266203538947*^9, 3.77763819579119*^9, 
   3.777638292606578*^9, 3.777639042341457*^9, 3.777639259853132*^9, 
   3.7776392985275774`*^9, 3.777639332191389*^9, 3.7778086826397095`*^9, 
   3.7778088483580885`*^9}],

Cell[BoxData["0.9947901262131108`"], "Output",
 CellChangeTimes->{
  3.777208742696658*^9, {3.7772087832495375`*^9, 3.7772088245657463`*^9}, 
   3.7772121046749496`*^9, {3.777265662999048*^9, 3.7772656875915384`*^9}, 
   3.7772659506784115`*^9, 3.777266203538947*^9, 3.77763819579119*^9, 
   3.777638292606578*^9, 3.777639042341457*^9, 3.777639259853132*^9, 
   3.7776392985275774`*^9, 3.777639332191389*^9, 3.7778086826397095`*^9, 
   3.777808848373707*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtlAs0lfkaxlUUUc0RZlNrphNnhnanUel2VJ5OoqKGjWHlGiJRUu5UNLWS
OpE0R3K/tUNyt2Njb/a2L0eGXGpCS6eUaWq6oSm305n/u9eytt963vd7vuf/
fN/+q3cw78BsFRWV4s9////+8xMXAvbPGwvG4QiL4X+MuvuSOAYOesmddwte
MEYcSo5Ojv/rzghj0Wl0rW7+3jD5GelnEez23VjqF8Okn4NG8I27Vy2fkJ4I
vmTP28Mpj0m/iK9f8SaWDw6RnoT3MYfO7g55xHgoGc+nnf6p4TDAeFkKFFrq
nOWih4y9ruCT2eHXGwx/YZyTCodAo5/V+vto/yreDxqP9RoSL/s38ngZc87Z
9NB+GnZOPp+3Nqmb9q9h1F5LLUr9Hu2nI8u95NgrtS7az8DsrL7zFY6dtJ+J
xWbfZDUs7aD9LJi4JbWMGbfTfjZ2Lzd07i1SMk7OgXZ+1Fl3SwVj01wcHRfs
y1STM+7MRe/G3rieeW2Mj+ahxZl3b/CwlPEX+YhdddjUJqiVcXk+bi2ZepuS
KGFsV4DOquHHHyzEjN8U4ILWt/c2/U6cXIiAgPSo1REi8i8C52N0jP8z4s4i
lLd6dGvwmsj/BnL+scnUYa6Q/Pm4ty3hoaoecTkfXpq91q7zaN7uJqwXKPPf
+ZD+5iZWzHjFBK6tIf9iyB6tifv7rwLyL0HUnpS9m7WqyL8ES8rmdqxeUUv+
pTCfFmg56FSS/y2UddobmEsqyP8WDGt57SlziO3KYF4VqKpnc5v8y3B94Pfz
AUWkJ9/GxoimN5W5ZYw55bho2lLc70DXP1iOI9u/+tIqjOYF5XDTmkh6bE+s
XoGKg52z4xbSvksFPP18OMO7ifkVmFVRG3jxAfn/UYHN+nLTRo8CxjsrEdjx
YbbN2mLGaZWIn+FHv3MsYjxSCauTyo1bNhFvrMJcQ6M/+PqFjBOq0JFi/W56
KI/xgyqUHxzcZDyf5o2r8X6Np9F7N9Ijq+Fms59rOJnPWF6NnCWDzy3c6H44
NXg2sG/IP5vmD9Zg83RJbzGH7k9Qg23hi830/WlfvRZhdrUDg2qZlL8Wumsa
7QdDsyl/LVxN/BTxO9Mpfy0uX9/+UcTNofx10NxnsFV7Me2n1eHm6MDhKm3y
H6nD/OK/DOYk0/xGAfWfQvkF0OjSKSwbo+s/EMB3R8SjT2o0b3wHP1zmPZ8Z
v0r576CxTFNoYkW6/A6C3K9lDXsRc+rxvfKQciI8lfLXo/Q+32PdN7mUvx6L
dgW3h+7MoPwNsF9ffdk2g67v0oDC4KSZhj2Uh98AYaptd7PjZcrfANy/lG0r
pPPZKQQ3bdeCWR3klybE3IRLgkNdP1F+IX4M2JGa3h5J+Rvh8ilLekOX/BIa
Yb7hcWhkSTLlb0SZ994j18aiKH8TvB+Yl0jOXKD8TbALHvgYspb85E342nPU
Z0gri/I3wzPnxMvXW45S/mbYrLNOjzaNpvzNsK7/L8+n/xJjVRFCtrgG6x2j
+1kpQl3UYmH/BOmOIrScsp7btepHxrEi6C6sOxapd45xgQhxBtJe1et0/+0i
ND35RT4VT+c1KsI8r1Unq7+MZ7xUDD89rt+CJ9S/pRiJ3GT7sSukB4nh5GqW
zfUmThVj4ucCT9cj5CcUY0Z3lc/4hfOMn4rRp9thOaVCrNUCld2lZsoj/ozN
PvOpc5FWRXGM3Vow01/T3Hmd9DMtaFo6e7WhPumlLeBoqBSe9PNg3NOCD0Ge
ibdczjCebMEht+oAvspZxkat4OnsNRl5Tedj2wpbE4fxPt1jjENbcZmb0/dV
CZ1HRiuiI/q8Gk8kMZa0In0rR0VgT3lftqJumUVn3n7qQ0eC8cr/dIX7UB+b
JdDoFvOc8wMY+0pwvyZPR6lq2vwnX5QgYUqTd7zJn3G1BDH2hj23Q+j5G5Cg
6amJ6vRDX+pfilMpiyJz+8h/pRQTYcdnRZ86Tf1Lka6xRWhukED9SyHsEnte
stlB/Uvxq+OyhW9fBDK/dim6Q2uPPsgOp/6l4C7asGWsOpH6b8NL7dEqY8tg
Nm/ZBm593tbGk0cYB7VhVoD6iUFOMPXfhtgDIy9kTnS+wjaEHjo9+fqdD5t/
2oYgJ/e/lWUdoP5lOO4gmlylTs+LmQyfuqfrSxW+bN5NBruQ8zcMHtPzd0aG
2PXzojK5HkwvlcFq/0L/FducGPfIYG31TpMzQe/PpAzPfhvyeytzZLqRHCnc
K9nht+l9tZXDyujaQ9fd+6l/OaakdmsEanQeGXKcvBf/itMTQf3L8Vx1+2Cl
rwv1L0f9d3v0xVdJ11HAwOxcg/M6P+pfgZ4r2nd+20XPg68CYecfWc7JpN+H
iwrcLYpY9LDxAPWvgPPmphGZiN6PAQUy+NX6Xgo6P1Ul5rtGlNf7U78rlbCo
Hl6TXOlN/Svh1CPesWzCnfpXwkD0U6iWE+kFSkzUDIe/jY2k/pVY+u36Qs02
Ot/Rz/smP1i6rE60+B/5GH2p
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdV3c41u/3R1bIyMgqe49kPNbzfr/Po5CUkERaJBIisjWUELKThKzIjrJn
9t57j8cmM4T0/fx+9x/nvu7r3NfrdZ9zXeec+8VnZqf/gIyEhMTlP/N/+01L
GpyB9EWQ+/+1hcV723rsZ+jARKfHWcqZTYymt+tTYcYdSFIfilTI3cCmHXYO
i0gsweYQL7Aav45VHhyTjMx4DHHqotMJ+muYTrVflrKEIyjnSjH6BKxiZT4M
6l9JXGD3KwNVyNwy9pHh9NM3Gc9BvlavfXxzASNf6qJwBy9g+trtKBo3j6le
fq93TuI1UP/sbmW/O4c5ZBvFLrC+gcJOCZ52uVksjZF78TOJL+xWFcl85SRi
kw4T8jeW/SCc3zJY5eQMxt6X+JK+3x/kBMTK1DimMZ+PYuzPMoKA67ydjr7e
JDb+bOccp3YIcJ1QPTdMMoHtSw8OOEEouLEEOSo7j2GyoZ8EpCTC4TCBWsYn
fhjTUXvW5McbAVK3+hmb9Ycwq607dkTW9+CZ4fp0jG0Qi7/OX/qJ5AMQUjYc
ZDr7sDJKctPd3x8g9M5dr5c1vdhA4SzlteUoUIvPUimv7cHoOdP0afqj4QP1
9z9dq12YeIv/3oOWT0BlIf0Gx9KFaXjaxP2sigFh808+ceqd2LPxs0uuGXEQ
nxZEzRvUhkUFM4X0xn+GXQPGp/sSrdjN+D+c7NrxsDEh12A50ow5641UOUIC
7HcodYF1I0Yu3hrOV5oA/G8FNja1GrAwsnKLDoVEcMoXbq/G1WNZ3+PoJCSS
YKNIMKRTsRZTCQyeGPySBELn52K/X6rBGs1f5vnwJsO1In/9vw+rMSKrmdE0
6xcwSVsVdK6rwhx+6UuEhHwB6tcl9mFkVRhJw/kjhDYFBm63OY6FVmBcrkLJ
H0lSAa3pOeCbKMW+6rK5aHqkwtsGNqPd2BIMJ0Z16ffvVCjqDt0dsy7G9IcX
1nSXv0KZwNrN1XOF2GTeUPXRgzRYJzKzFIgWYI8Dmt9nTqZBidjdvnaJfMwf
n6lK3Z8OO4WvrUMNvmPsrLH0BboZEFJkfonHLQ9LWX03db8lA0oXys1rU3Ox
n3F2vpVVmZDlbYGz4vuG6bjcu2mrmgXrhe97KQaysdGrelJcBVlgoFCv1e6R
he2RyPU4Z2RDwee1MpLtdIyXTtPQWSYHBFpYLaWz0rCLp0yGnPJzYFzf+LGR
81esNfKnXcndb7BfZfHOWiEFuxejfU4l8Ru8oPw92iv2BdtO6NssJn6Dy96p
5coSyRh31qJTsVUucIidDDbVT8S+5TkqKmfmArnWyeo15wTsQtHfvaJfuUCZ
68/KkBKP2dQweRY55kGy2RuOofNxGEnTJ0SpIA+uAb/Y/ZEYLKJd6F/hXh7k
8in4i3l/wsqHlF8VPvsO5jbeGD3lR0x/oua8YtV3GH3P8Obj2AdsjniFopDs
B+iMtHYq10Ri9OumfgW+P6AnlrbmX34Elvh7WQvX/AMqm9qCxn+GY7gDJ9oC
unz4YBhVdn4oDLtD6R+UH5oP5G9dwh+JhmKbtCy6Cr354JgQ8pH/bgjmwxTH
lM9WABTXnhx+RIOxbO68iB+fCsDj4aHNjaeBmBo/3lB+vADKtQccGEQDsH6R
+lM/eAvBSHK7Vmv5LXYkOxz9/UshBDduY9djfbEwJfNbcguFoEU64VTn74MJ
o79OfxcvgqRzzry/vd9gOlpkCXk5RTC3YxwsGfsam9YJNJPdLILw83yzzCWv
MGcDNsE8+WKoPJXN6DblhcXdFU/NLS4GVGr7Xv2Vl5jsgx8Pzx0WAxP8m/YW
eIHVP0LFc9ESGFTbFW4oe4b9ctLP+lZTAvZlc7GbPB7YK4/RxzKUpZBcVdds
tOCGsXlZyHy7WAry+PyTZJWuGBbo/j2nrRSI2vtX3SOcsd5QcqezjGVg/+N2
FG2YE/bwQxAuR78MCpg8++9/eoqFJCYWZw+UgYr8DT60wwET/CrpIc1ZDjYt
F06V7j3BirIK8Nm3yuGSm4vMtsQTbLKouTJrqhxEO3IeJ5vYYU8rDLykBCtA
XHkgGnZtMeracbUsiwpge+qctJdog8l0bNZlLldA/kiuRqvII6y219NXUroS
DJT75978e4gZDVNqZdpXwlZIS0Qk0RJ7OcvZmvG7EsJeLZzR632ANV7wyJ/i
qIJL3ey2PavmWBfboveqUhW8SI/gJ2Uyx6ZLagUoXKqgbWFhrdTBDFsKlN1i
jKyC5xK5+6++mWJbd+KrufOrQL92dOnhzj2M/JinqfxWFVzQspO1kL2L0fUt
ysDJn/AhHK88s3QbY029QXL53E9Y1651pMy9hQlry32+b/cTfkzRNW7fv4lp
hi+Nhi3/BEXSCxvl1w0x3QdGmXE01UDz/u6Rn811zEix3iNdrBqEDDKLDwMN
sIcjCZzVltVgQxa6RVjUx+yzGJbafKqB48bYZV1BfcztxbPioS/VgF03TX1p
qYf5CxgbbcxUg3vBR4tVcl0s7He9yF+yGvArlDiiLdfBPjXI71Lz18Bh796t
jWdXsExrxkjeezXQV/kjNFxYG2v/3tBzdbQG9M/2rieQa2L9bxSSTA5qQOpq
z61cNg1s4kaSgyVnLbyoFuV9IauOrR88Z3phVAtnpFVPlb45j+21rUz6u9SC
D9mHJosyNYw0/ua3yMhaSH6S+kT7gICdvIC7mt1bC0eH+5IWIYBxsiWfKdmq
hX+xYXwbLRgmsMD0q+5kHaiIarvueaOYfOBq4JhuHSQqfBO0OoPHrvcmN9O1
1cE/rQER3KQidiflZDT7Sh2wvdh6mryMwyxcX1oJ0taDsRyn/yEJDnPmvkWN
16qH3AAS+jZNeez5r6YBzYf1IN3D9t3LVQ7zrVJMveZbD9DNJROVK4tFmTNr
WNfVw+Tnaasg1XNYPM6L1YVYDyrExGNNATJYGvUa8dWxBjAP4K9RqD+LlWQ2
v44mNMDgjghnubYUNrrt9bOpvAHKXlVwkS+KYuvY/TTl0QZoHrW52LcugpEH
XAhN22+AkVPpmzZkIpgUH5XpW8VGUJeL1TMnCGFqNgsX/1xvBMswW6B+LIgZ
FjbJWD1tBMGiz237iQLY8yuBJFq5jeDNzPHGU5AfC4uyXSjqaATGGAtXG3s+
LGVGp1P0VyOkCwxet6nhxTrcmOKpJZrAOaf619H+GYw3JRJrTG4ClW2u5hAn
Tkx+w0VEqaYJOvf3llbtOLCLeGOGr1NN/9Wrgc7rp+zYk26uCd8zzWB4alKp
PJoN8zn9t34X3wyChas8n0tZseiH49mWJs2gYp33Q26WBas+in+uGdUM2xXW
5Bx6zFi/1iuLwoJmWC3otq8NO4ktRdzXEelrBoXQxykDI0wYs4TwGaqTLTBZ
ZjV24jUjZn4jo7w+oAUKX2CKb/F0mGti4Bdcegt8M+bh0xChxQJXbd+lNLaA
wANbvWpuGiz/tcxtH4pWuKAmZHRFmBprbmdS3xFohSsuVLyhylTYOMeWpIVa
K2jBTMnf65QY5bf8Q/UXraAkm8Q095Uc4zyIJObHtsL19Tym/PFjmLSGa6tQ
WStkLv4SuMZ9DLsxqhJD8acVWtOCrjdkkWJfqatU6xzagDJi1f/1+SO07FqC
gEJoG/gjhCNN7r9oZ9wr2i85bQDXDmWtSA7RP/LqI94rbcBYv1tGuvgHpX8p
XLNN0w7S7MHbSSt7KH8LVYa5WDukLSob7/3ZRS+ZNrtfsGiHCZ7gLWWZHfRO
ZobZD+92cCmsiX1i9Bt12A28JJjUDqpCSSfX/bbR6HdXOckn2yHDWpjHk3QL
XS7uLa4x7oBwvPXljxfX0ZSuihON7h1Ar3MiT1V1Db23+NW09VMHzMa+l7Hd
WkX72Z8d7xvrgKh37V4bActoqIzl7aGjDvCgPxQUtV5ChZO/Dv5i6AQ3n3Pq
OoaL6FRpmOSWTCdwNS4q2+vMoxUNvoZOhE74cT9g1vPmHBrT4/lyV68TItPt
taLtZ1HDZYveA4dOaLgTc/1O8QzayqnqSZ7fCQLMoW138ybRdGGZFJ+6ThiO
VnwsSD6J+soKdVL3d8KVMdFw4ZJxVO0Sg+CJ3U6YficV460xivIakusEU3UB
no8WnecZQf+a/nFhYu+C1eYeGzOKYbTIbaaFVbkL/EYf+qRsDqCRbwZ/f9Dq
gih6rpznf/pRx9A2Hs6bXZAbnfb4HU0/Kp1W6HjGowuceI1DErV60aTBAC6R
8i74VGFHtSjThb4kvlRPa+uCHwPZHqHPO9E76052EuNdkDgloUqV2oGyU9+r
OfuvCwzE6UdEBdvQHebrq7kM3VA81emivtOC9vBcOiXP2w3zylcefe9tRoMU
5a2VCN2gYk/5yutHI2pzXux9iV43kP0ZJf31owHVunqmEm/WDR5Eaa7aynqU
3JKamfC6G7yIlU4Hm7Woe+RoiVZd93/zX1M3p/YnapTYRWzp64bTNh2Td078
RBWy6+l15rrhAyGk8eXtKnS97puZPlUP9J1uXmgVqkDbur4E9p7qgS2/PeGz
a2Vo+lh0gaFoD8y+CtsTrytFH/z2pjHR6gHc5+8UsxHFqBqpu/yYcQ8oWg16
ZLwrQnlP2N25++i/+6W//LhCC9FhQeO8+wE9EGT5mgkryEd1DaRu2rT1gM+E
B+b2OA9tbXD26B3tgVtVFly55bmolmpVDH6lB9TT9d3eM+eiavzXJuhoeyHd
+p1mbXIOWvk+hsSJsxey2BzCPjtlo/jjc3xjYr1ge7A2s6CXhSqsu5pnXewF
ZXo+mhMSGWje/eo3rEa9oNJ8jYVNJB2VHqBNfWbZC5cv3kIWJdNQ0Yq4xSs+
vfAvP4DFySAV5QysffyrpheEOKq5Ph5PRiP/nQgx7OkFIwkVZp1LSSiz443c
iuleeJdamygblojS3VzaCiLtg/ZzTUnOuAT0bZsc6y5jHzzIOszUD4tHKQnP
cHd5+8DoMD0ie+Ez+k+E0e0s1gchK5wKo+GxqOcn4+gPOn3gaCyWxOMeg+7R
J5X+u90HUYr2mxuPPqGbvxWOOjz7gMxXdST70UeUWGPy2r6kD8q+mZVdHnyP
3lP8kjzY1AdK/1wOMqnfo2Ppv+pgqA8idi85dkIE2h/qRc201wcc3rgXSg1h
6DWKFjE3qn6gz9poXmMJQztdWbSn2PpBq4PZ76pVKNp0N/VdrkI/mEfZX6IR
CkE1etazOdT7oWRCMGDwVDBaraHS6WXQD69SX49Tb7xDy6TaTuo79oM0dxLh
oCYAzT7Y/LD5rR8S99FynilfVNwOX3yzqh9EvrrL8v7zQVOn3wxXd/RDtpHJ
v7dCPmh8E/vp8F/9YCZxp93Y3xvlRszQg7/98Nt25aFI42v047eMu/dPDIDe
VK6e1InXaNgHNFFOcgBMKIxGOjK8UHpav5pPqgP/6YXTnYvkXmjA8y7iMe0B
sH5w4i3O/CXq/cBcpNdqAK5MZV3ef/gcdZHzz3yaOgAcb0JuhUu4oxonBo+J
FA2A6jGR5gxeN5RtXshkqHEAklMzj1x4XdGC6J/H0aUBoFZ0aXVCnVGfpwym
6/sD//2n9j0HTJxQQ53bRYm0g4BDX9dffvUU3SH9Y0ElNQh+ODLJfwsOaP2I
RkUxMgiBNr+EA0Ud0Mj8CFYbnUFwjioTb7V7guKsZGo77QbhQ/DGoTiLPerc
ackXnTcIX6oCTTeMrFGN9HzXyzWD4JNYpaRw/hHK5n2s86hnEL4ef34lWMkK
LVD8/Pz+70GQZb6cUK1mifowrfaxUg6B4KeDJ3WGFv/1VxWpRrYh4M4TUT/3
9AH6O65/RFJpCAiu2mfqmu6jta6CchMXh8DFL+66Iul9NELfwT/UeAiOc1km
poAZKk9Jr7zjPgTi3xOGFfvvoU9t1SMry4fAdJXafyX1FnpBM3z1Sft/eEGs
3sw+JigL39QFwYkhUFSknKq0u4n+6PXc8iMZhr+lX+P67huh3tnNl1SZhsFG
OoPL1PYGauDHnrjKNwzIbHRP/ktDdEv1h67++WHw/PwnUrrGAK1mJftKbjAM
t+adbkZuXEPD1q7+KzAfhvk0nIuO6DVUNmk5i8tnGB5FV9y6m6WHOtAI0M42
DkNo/dYzJi4dVI1ob/ZhaBiMdtCT5cuX0ZMVFcVaS8OQk17z8VGjNpr35ObD
bNqR//SyYuFckhb6Svtr5T3uEdgpVv7TnnAR1RfaYWOWGoHNBG2BlTRNdGMw
tM5FZwSmwvT8xAbU0aq8CW7xuyMQxKYl6XNwAQ0JlHo6ajcCt3kUcCGiF1AZ
aOInhI7A9zaJCZ1Paqh9KslLmt4RoNCouXopH0PrEb+Zx8QRgH38dp4ninL3
Mmj2bI+APll1EE4XQRtIeOhjWEfhjNXkm28cqij3h5QnJMKjsNAb7FxDr4I6
SEn3meP+86OdIuL0yuiZm0iM1I1R4BdcuGIirog+Xa/9F2o5CqZUKyv3NXBo
s8/l+zsuo5AVL6+Ht1ZAnb+biFdGjUJjKAcDabsc2kbnXqQ7PApP5reDmddk
UP4kUu78pVGIsSBvLL4og7oqv33BcTAKnJkIW6TeWVTQIkpjmmsMeLptTcx3
JFH3Q550DckxOOuZ1sszLIF2hqWeyMCPAYOBuXNnozjqWVnQ63h7DHqoNz3M
6kTR7uuo0qDtGOBZ6becu0VQ0ZW6T/jnY4B4VD6YWxBGe9j7zCg+jwG9iMOQ
hYwQKu6wtR45OQZ0eayNybz86EtqD4OD9THAjY83S9rxof1xZEV3ScdBX+Li
fd9aXtSrhemFKP84dL3ebtGj4EH7TT9OB8qOw4J7CvdU32lUco9XY0NtHNhX
W8XY87jRQUGZEyX3xyHuMJMyP4ATlS4ttD/zdBxWWILjCX4cqLce1vvKexys
BB3kaoLY0bPPdT5pfxmHLwxDWTxFbKjPgI3Y2Nw4eNkz3zN3YEZHbbcDCbvj
4HdT4G3ij5OoLLnn+heqCbDefVYndMSEjskEFD4WnQDx3hSfiS+MqGzDSa4e
pQnYeFQ9H3SMEfW7Hf1cUWsCNJ/tlC2206Py/mnqJI8m4PZtOSmiFx3qz3su
zdx9ArBDxmkJG1p0sqCIrsl/Au7U1jedNKVBA2caekIzJuDNZ8MTvFbU6Ax+
zlRgdQKIXUOnKufJ0UGV6jLbwwm4dmqSvVeMHLXg7qAdpZgERvlD2hyHY6gJ
Z4aFMOskiFPdNKs6RYYacnBEtHBPQthS9CkvR1JUl933p73gJOQWnFHh7iNB
1dnuc5fKTUJ3RwQVp/4/BFi7tO6pTsJdZwqOfYUjRIUFc6E4Pwk6XeMX9gT+
ImdPcnVf1Z8EGs0c+wnuA4SDvseXaD8JC38vEUncdhGWE4T8t66TcB5lT7uX
vIPQ0+VMS7+cBK+juP6rA7+RYzQBiFvwJGxukRCa9beRI+o/j858mATiaKhv
d/QWskdlGVUTNwm7JBKnzRc3kVWK81snsifhmZnITdzHDWSBPJf3e/4kNLmk
jVLsryPTx3h0jMon4dKsH+J5bx0ZID34mtg6CfOXFxb4PH4hP//m3VFc/i8/
LCJm2hZLSNkhb+Do5n/8FyOielwWkYKDoGKv/Um4fiOetTN0Acn484il9fgU
eNTPqGyPzSEpe4OEJ0xTIBZpOPqWYQ6J39WwY+OYgt6SeW+7i7PI+9/8zfdE
p4CJSrGUv2MGCdkO2aWQmYLozn1GB+4ZxH/rSDBDcQocD5q6WeynkRcbwy9+
a0zBgEm6qr3YFGK1Gqbg/2AKrjXHx9wpH0PMV0jun7WdggeCQ7HOuaPIneXH
Ib1Pp6Bb4YsIVc4Icm3x0vIZ7ynQ5QiywdcNIToLRey1Af+dl0so0bFB5OK8
sIZV+BRwcAl/e/J3AEFmyRK+J06BUHrLrub1fkSJaN9ulD4FIleV3twO7ENk
Z8YP/uZOwQ1hi07/5l5EZKrE8OLPKch3qLsqZdKDMI050I1NTMEJxpb6kw2d
CI5hxkBkYQr8sq75jwl0IjcJ12KfrE/B6bUTQvUnOpDEL3LSlKTT4HmQb2JU
3orUDyQ56x6fhoeFdwf3vrQgS8dZKqOZpsFqLPgs4WMzIvt4++pZ/mnYfK57
UyKuETGMN49yE58G/vOHtNQ5DYh7d+9kjew0HLxSoiRrqkdqcPlPjM5Pw8iw
ztIyWx1i8M8p3Mt8GjZICQpJTNWI67m5kRabaeAdSBK9ZfYTiblvKMjmNA23
qIT6qoqrEGIDLj/9zTTExOdbse5WINT7KX+3303D/qnm14vN5Yik5CkNLHIa
jpqBTTS9DHEK2e3vSZkGpqe3jMTfliDR1ZY8Z3KmQaXmzGMuv2KkYnvA8mHh
NLwwf+PUFVKEUBoX7R02TMMz1xyekxUFSCSfG6fw4jR8+NkYde35d6Tk2qKZ
/cY0hH3ne17xMw8Zf2OcUfJnGhxVsgL16PIQ4SVl/FWaGbjimuI8kv8NucSd
7v3x5AzMBm8H67B8Qx7rcLbNcM7AVh+7Qu1GNlKYt3/bVWIG4viOpR6kZCKj
xEcp1XIzMKz0M0I8LAMhOTXyiw4/AxXVg9IDvunIRY/SFwmXZyBxp/ohS+hX
ZPC8Z0Kz7QzYtb34NM74BTl0WllkcZ4Bm6Y99Vj1ZIT36y3Zu89ngNXKRuXE
qyTEig6p2QqagUG6h08HGRORIDSLFv0wAxd2rD1TzBKQPPvTBn6fZyDVzIib
tjQe2e/9S+T+9h++5ZtM+b9xyBmqx1KWRTMgM4dyRXXHImrK4065VTPwo1y2
68L3GMQ/toJSo2sG/ryWiGyIiEa4LF6I2m3OwNU/1k8c2iIR+taPNpL7/+Fl
DrTok0QiZLI/vi2SEkEzK27OTuU9svR3QcmciQi5PYQzt2rCkfH7x57xcRDB
jVt3LJspHOluOv1znJcI5x34XNQtwpDi9/paxjJEUKeOZrvNF4pkHti8Y1Mi
woYch7eDbwgSb+rb1YMR4ZKw/9rCbDDiJ1VmrHOVCNXh5ld28t4hN+qEHp1/
TAT+qbQZfOVb5JIEZJM4E2HAxzFLYtAPQUNvbpY/I8KIUrIL/o8vInw72F3p
HRE45WkM4/V9EM6atIrfEUQg98IfWfq/QejFasm+xxAhM/PfZ5Umb+T39p6/
VCYRvGy0jclNXiMLN5k7lr4TQSDRqP5V1itktEqK+WspERRH3uZwUr5CagPN
PvG3EIH51S2HssaXSLhga8apJSKcqFp9YMf9DPHxn1vr3fiPn7u8uf6UJ+K+
TiIf9ocIOdIqeHVuD8SsTKGM7vgs/LH51mCHuSGG/LokzYyzEBfefePFbVfk
kt+jC77ss7AkmZnp+doFOWfwuZVUdBYoMC1uoTknRLCkmLHy7CzQjSvnXOR3
Qth5ew08FWdhwICq+dKDpwjJCvXYjsYscGaQsP8+ckA6XjusLj+YhY/Zs78S
3O2R6sXAc2m2s2CGqPh2t9shBVdTnSycZsFijaoxN+8xEsc1+nfSexaGj3WM
bnywQcK8dghxgbOwyPkkMzHKGvGZZ/QxiZgFAXvNzvOJjxDb7+r0/UmzULl4
dJa94yFyj+OefnjGLNxwD9jL27BEDF64R+p+nwVFebpDOm5LBK+dc6alehby
gk89W/J5gNDOsJ+tmpqFTlGFIrVsM0RNRNfNcHEWMm9522zTmCGu1r41K+uz
sGPxgAuzNUXmtn7f4CCZg5LdtKkRwj2EW0kqMYdqDjxcj3fFW95Frnmar6gz
zEHTDW1D9et3kCrynpcOZ+bg7Iz2MdvLt5DdizQt1MJz8GjiKPzKdRNE+h2B
9bPUHIz4BKkkW9xEPrF+S2vBz8G22mRQYIIR4iz8rlvQZA5idnF5P+2vI1mP
arlLzeaA51OzeFG+AULMPrDQezQH3sFPtFhIDRA9xUcHz9zmoH6ExPtMuj7i
55GgzuI1BxteziumVPpIReVgcLrfHLzQvO2g8EgPkbyoKTjwYQ4mE7gZWjBd
5H7g88e2n+egYlyz6575VSS6M7/oWOocCB6/Fzyor4NQGQtekSmYg4XdXZ3n
2peRaStS57e9c/8pk2ES2qSLCEe2UhXP6BzExk1ZhLRqIrqbdjQFM3PAbz1S
bPlXAyl3H4+b3pyDjHDO9yeeqiPbFayLrvtzMFg1rW5WfAERP3ZFjoFsHgyP
a9OzUlxAogJKG1SZ5mFUvzSsMFsNae/YZOpmn4fXZa13ETo1hIJF/NZD3nlw
/3pB/YodAXGIiVqPODsPBxJnFy+pA3Ily4nj15V5sHxSYpZ2A494b2Te974+
DxeZD2etTVWREgViFufteYCLPiahjiqIaIW+mqbNPBAQHZbpHCXkDpl/4Jjj
PPTK6lO/GlJE3mv87Hf0mIf4EF/BxzSKCFnHWet4/3lYeqFdLOWlgCgzW+bj
wubhqbjScb96ecT+Rty/1o/z4P9EjAZ/Uh4Zm6CL+PN1HurCcPu9pbJI0fpi
mX7DPDQ2rXhJ6ssg7A8F+IM65oGm5WHN9ydnEbeJW75NA/Og8TxU2fiSNKLS
3qEHC/PAPv96fZRLEolWP17osT4P32BKY4NZAtkvU+Mu3JuHYPZJ+TJWcaQ0
I39O6vgC/JTLnTquIIpwC6xpWzEtwKz7b6oJPRHEM1o0N5ljAVjpOK4zuAgj
+LefPLjEFyAqXdrp4pAgUmHhxXhcewFMX0qfkfzNh5wZL3G6cG0BvmhtLfRc
5kOeX98efmGyAMRIcXxGOi+CXbD8smO9AIX4a5Jk62eQ+NJ4GtmnC5Dq3uTK
334aIZEbtrP1XADD99rHFgq4kSq+KyrEwAVgGXrV3pvCifB+9PnM834BghIU
5dAsDsSLsYrcJHYBfijmDHaWsSNq/2Q7urIWQJIyJYRrhw2pGWU3r2xfAP7l
gYzIRmZE0EC/ab9/ASTERMVfMTAj3i0B0riJBQgrGljF3T6JXCg52stcW4Dj
DOvbR7RMSPI5pTsLuwvAWyB976MNI0KR9qRGgGQRKBxOWLGlMCD1H4jvohkX
gXqGzABnegIRZjjz32heBM3QspREHTrEx+eGERPfIhx60iSc1qBFNJ2a+f3O
LYLhXqxfo95xpFH/W6GT/iKkub28a9tNgbwlCLxaMVsEYkednKUaOXJJJvLy
fcdFSIpNlzjdQYbQ8Bw/Nfx6Eb6bPRF+5kyKtJzwnNKNWIQiTQWjTzgSJPDw
V0ZD8n98givH7nId4S8vmzqj+YvAJLpdIrh9gG9v1KSV7F+EDqNmLw+OPbw0
D0Ob3+wijI8JJZ54toMPcuoPmt1ehBshzzc0D7fxv1piddXIl8Dz6hCvzvst
vA7/g5OfmZeADSSozDU28dmukr0H/EvQF0PydPnEBp6+Y+u9kewScGtR6db2
ruHbPF5xnNRbAqF6tEWseBkfKMoU22K3BOlbxtVfhRbwl/s+874JWoImWb+K
SOpZPN0r6WQ0awlE421ORupP41uly0X2WpbgdsHAcujKBD5wRDsjd2kJJu/Z
Wp3uHMFf9huWtj6+DKj/JeVw1UE8nYJVnqDoMig/vkprfLoP3zq1qzCusQwk
WO78aYtufGCQT/GHB8tgu9u4/I66E39ZlRXR816GW5PfD3k2W/Cec3ux/wKW
IapjKNaYpAWfGTp6lBW+DHn7DKZ1bM14uoWkKpqkZeBJjjVmN2nEt0TIXqj9
uQxOsX2nHVXq8FG+pgL3yFdA8d7EWxqfSry5ewjZocYKXDW4fTHcqhBfYeT8
/OrVFdjX9r++FFSAP6V4az/xxgosC40kEcry8c1bIptaD1fgou4Wc4PUD/w5
28qpD29X4D1X0MlY81z80d1fVXKtK/DOh5HdZSgNb4T24n17V2BxvqnZbeEr
Ppe7pGh4dAUGZ8drtUi+4s2H3nzzWl2BD5xgRaOVgm/RPx3fQb8KgjME3ipc
Ej5K/fILa71V8IJv6QJhMfhzEulIUv8qVMNHLD0mGN8+n1nZMb4KPsJKiuAZ
hH+UnEM4nFsF49vXKIUs3uGTT+erX99dBRq2BiXzGwF4NsaqK1TsvyCRxP7v
2RRf/P52321r41/gtiYkdiXPC19dQfpcbvQXWE6t5XH1OeIN9I0raqbWoMeN
Vf/XvhE+p6A5oou4DiwDczVbpiL4h2I56earG2ASEbN3xmtTlYVtWOEGcRPW
itebnlz6qfrbUptvdW0LyESX2IVvBKjKvzLqTNrZhgqVoZ+CnYaqlmyZ28XL
v4HOgH9o566wajuDhpvj7x0QPkr/nR2xqSL2WtgxcHUXOv4mKJ/jqFaZrkiU
qZ/cgxcb99fdfcJUOu8+0Ela+ANCQlN0T5nuqeS6P56aGN+HobjtN93aMir1
++W9lYsHIAM4z2fUh8oq59MCqtYO4cNhVpG+XpNyAsVIIS/xL1hpdukcT49W
RqSuXRBcPQJJTWSGod9SubWdScOX+A+e4sNjmzuVlG9xF7x5Y01CaGS2OC5P
T6u88tqHnWONhEAlHop10w8pOYvuPxi1IiVk7o84/NpLV4r+F3J/4xcpgZ3l
etXrbFelIuYWLpw1GSE6ml4zTemSEgVdjwLtLBmhwTm1NJPvtNIq7ujfOatj
BMajc/TH3y4rtse1evsRjxEaeUaSFcUrFLWUK4plHpETOsx1HmD8gYrbhc90
rVbJCRK38Bk0diaKUY6TCV2WFARqs+mt4W1pxQFTi6SAFQqCvXxG1Fz1XxzD
u+C7Tg8pCQOpicP1/p045xifZ2tTlAS1FtY7XLJJONfxeO3SB1SEr0vWms1/
HXCOt+/0FkxSEbLJ22oj8tRxMk+X90amqQgzlW47d/9cwK34u54mnaUiPHLk
+2yscQFnXhRmob1IRVCIYf5MuamGM2Ru2JvYoCLs+HjyLPsDTqnp7Onjx6gJ
wsPNovQqyrgjeVILEyFqQuFt2+qfhlK4Eu0g/5ci1ASnZbnqj7ckcS5mXDlf
xKgJFo1hHY2PJHDrwQp7a1LUBAELOgemz2K4qSUrf28cNYHbbusG8z1hXG18
d3aWJjUhWysmbICRD/ey8G5PtxY1wT0mTdrqBS8OaV/Z3dWmJoRwn8tLmeXB
FRz8F7suNUH6JLU9Z8dpXKqhak+/ETWhIO4yUzM1J87ctnH34CY1AddE4/pX
nAPH632dm+/2f++/V3cjwoAdF5Vr98DalJrQsnvbYLOMDWfQePg25D41YVDj
SwDhgBXHNPE2O/8BNcHQVP8KObDi2n+z9QxbUhOSKC6+PRbAgvOnS979Z0VN
uMM0REEzyoz7H0jw9fM=
       "]]}}, {}}},
  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, 13800.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.777208742696658*^9, {3.7772087832495375`*^9, 3.7772088245657463`*^9}, 
   3.7772121046749496`*^9, {3.777265662999048*^9, 3.7772656875915384`*^9}, 
   3.7772659506784115`*^9, 3.777266203538947*^9, 3.77763819579119*^9, 
   3.777638292606578*^9, 3.777639042341457*^9, 3.777639259853132*^9, 
   3.7776392985275774`*^9, 3.777639332191389*^9, 3.7778086826397095`*^9, 
   3.777808848483056*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/Dfb1_CS2_225K_Tm.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "2000"}], ";"}], "\n", 
 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[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "B1", ",", " ", "T11"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "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.7772088595516877`*^9, 3.7772088678576517`*^9}, {
  3.777638202138451*^9, 3.7776382043858004`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVkns4FPgax6U5BxuVkignarVFTmWVtGp9TzcqxOERpbY2uVSMVjsSG7mF
3DZUpFwrtzDI/TpmzCVRomW7okXtFEnncKpt95zfu3+ceZ55Zj7P+3t/3/f7
fn+Lv+X+87CigoJCwR/f//7+7xNyHOzPmAVjHq6sW8Bd5P6KOBDcgIPRl/Ar
Y4QgcL9PWsrqF4ybQ+HtztEaLBqmegRs7Xir557+hepnYXfNfOxF0HOqx0DN
eFDfaXKA6rGYeJmacfV1P9UTEKnyy8bqxmeMnyWiTlcnaYPbU8Z656Hjmmjj
FPiY8YEkDO8SN6j4PWKcmYwChYK6L7g/U38KfJ5q/fDuci/1X0S7cEWSpd5P
1H8JKBjWtF34gPpTETtia5W7q5v607BrX4f1mqn71J+O43Gq3tsWER+4grUa
l32T1Luo/yr2h/L0Mg/do/4MbGsqEX051ME4MRP9ebs3KJUSr86C+dHb3qmW
xHezUPj5Kcu86nbGvtnwd52+z33qNuPZOVC3WbUpOlTCuDQHq5I0Axq62hjb
5SKfM9dI9pZ4LBdWsxqzvTVFpH8NGoq8KXcPIelfh6pd4PA7beK71xHCs7dc
aiog/RvgPpg0qLRqJf08fAoZ2uoy2UL6eZhpW7x3s0Ez6efjoH/0P4p1icfy
wXf7ssdGr4H0C3DAIqFaaN9I+oWIfygKb/GvJf1CqATavg+WEvsW4WBOgB63
vor0b2LGxkU8RFaT/k2cqvFyEuQS2xVDFtz3asNPlaRfjB7NE38dM6T+xBLE
NAV4xL+qYKxVCsnUsWMq3lT3LIU8xXTlzvxbjKtLMbD/b2oZ5mWMlfnINPp7
otES6nfmw7x69O3L1BLGeXz4CnQyts0sZTzJh/F6r1XReeWMrcpwZr+q9Rx/
uu9SGexzfNzWxdL5kTJ4x45mzTKmulk52hK3/sYbL2IcVY46XvETkUMB495y
YLv+xJD3TcbLK+A8OmCg9rCY8ckKtJ6J/7VRkM9YUgHjjxLLbB6x1i1EXxyf
9O0h9ryF99l29/jj18n/LfDD7OrWhxErV4K3u83p9AvSd67EOkdTE8XYLPJf
CWMPbufri4XkvxI3rNelxc3LIf9VsJ0afB4dn03+q6DeHvEy2ot4pAqzXyjJ
w83ovFk1Et9XKYwfziP/1ZAvWbboThfp9VZDPVif92TdNfJfg03+ftKvm6h+
sgaDfzGbM38B3SepgeUbjxkr6zPIfy2K7n/VWrjiMvmvxc9yPo8zlEn+a5Em
MUyzL0sl/3VI0w7MlufTeec6/BC8/PB3y4jz6rDb32Wpzbyr5L8OnbyZ86M8
ia3qsdlGt9On8k//9fD87Nn2YQnVR+rBsfY8vbH9CvlvwGRSauOUgOaPasC8
F7qnbm1MJv8N8BtXckl4m07+GzHNbZkTZ0cK+W9EXriP+j0B+ZE0glvxwSQg
hupaTWgMFXZGKhF7NuHOjh7FHq808t+E8YG1jn6L6X5OM+4v1v/32QTSN2rG
ZzPjvo/yjmLs2Iyo1bn7DDqSGAc1Y2eCD+eT9Bzj3GZI7+Z0nYtLZNzeDK29
pb4B3sQTzaiOnFc2FRnCWKcFTYrXe/vmX2S8pQXb+5bMXvgxgfGxFnDfKuz6
6BzLOLkFOSbS2MKhHxnXt6ArP21cLA1j/LwFb6+ecnIIJz+qAlQ6RD+oWUrz
rRHAy+rpssMlEYxdBRg+UrO4aDXtJ1yAqN2PXWzTzzMuEiBywMdhvTpxtwB3
nj5TTvztKOMPAoj6uyaOSmMY67dC/LBviGsSydi6FfZ+CW8iDcIZn2iFvF91
Uy7/FOP0ViRq3Ptxe6krY2ErvjZs6FXOP8tY3or0Yx4JJ9deYKwhhOv8D4qz
qkIZbxCCExe6x/3VCcZuQsgXdGp/FUX7jhVizznxgqy5NF+FEKr2UpfXh3wZ
PxKiTi2p6vZeO8pfBHO4jxp2x1P+InzT862a0Sjl7SjCjUBJ2taVtO8gEcyO
HK9QDqQ8ckV4vldx1oQCzdcuQu7nj1JWfOdH+Yug3eYR5DZF+9Rpg2K3s5Ox
iN7bljb0li1UMQznUf5teKy9/mPJyuOUfxvkfv5feMocmlj+bbB7o87ZHOFF
+bdBT60w9GUt+VEV48KcC76BYWcofzHeaWVacJ78mb8Y15Y7xXgfpH2Ei2Gw
Zdr5MaUDlL8YG+fdlf5nuhvT6xaj0Eiv0cSG9vlBDJOCwnLH+M2UvwSjDlfM
PPtN2XlrCfhXJooG/0X7OCHB1qApjrYxve90CTJ1L0XwxTSf8I9+fVWzUgm9
H7kERzOVF/btoLqGFHxxh+wT9rD7N0hhVdDxsb6V3qObFL03szRGkqMpfym2
ZTq+kecEUP5SzFg+cbJ3Gu3rkRSh021PWwz4UP4yiKNKZ8RIgil/GcL6psK4
fcSOsv/3FySDacLO2gvJlG+uDN8c8Zk7HEb7bZfhudEavQFlynNChsxDmin+
Ed9b/A6LLn9C
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVlnc4lo8XxsksspKsJLtkr+J9nue8SIlsmYmQ3SAz2StJVghJGdmVFUIy
kuwte+/ttcXv+/vnnOu+Ptd1zrnPX/fF+4+0LE8QEREt/lf+3xve8S7NfHuM
+as5ca0dr2IpAQ7P9nPUwPAmoSc5dQU71d2R+C3HBAbbLh3N+y5jE47bh6VE
VuBo0GAz77aE/TgguRKb8xAqHWLlk3wXMbWakLxrgk4gU8euGxG/gFUE0V7P
JHIFKd2g2xnf57G3tOefBuZ4gcHmrnER5xxGutBB5gG+0EhGL1JiOovJqb7R
FBP0h2XawrmSzBksi459/j1RMOQ0cOAeq01jQW8vMT/PCYeUqYjswqkJbOT5
thirSgRcyUa+jOpNYPvC/X3OEAmZTRvdq23jmHhkIreQYDQIx8UmtLeMYWry
zxtDOGOAdD/GVFp7DLPZNHk0dfYNyAWYHGuVjWIpulzfE4niwEL/Qi7d9jBW
QU5qtrMVBwPhTVZKF4axvm/T5NqL8eBW9N1ES30Io2HN0jrVmwD+51+ZDtYM
YM9HRBbccpLBfOt0/7+1Piz+NX1Ed8p7KE5WXGW41YcZpuyxMqukQB9HbLdI
Zi/mojlY7QQfIODJbe1mxx4srzCZWlAwFTb5l6hOI12YbNjr0f70VCi/T6PW
UtaJ/bbwKQjiTAPCQXqMkWwnNnX2vv7E2XRwOFm1dl+pA2Nz4017S/QJIhlP
vms53YZlajC53nj2CcYNvP3zkVZM+hLFra2tT9DqHPbe1qkF0xqYW9VYzAQD
h4su5atNWCguV46yNxsovN99PuJrxJjPvqMp0cgBlTz52xs+v7GM5Vfj5k05
4O0ZWO882oD9TH4U/KM6F5wzN/ZSsn5hu0QSXS45+XB0pu7i/sM6jJP6xh0X
0c8QI1Rh2TxSi908Z/TXufgz3Kx9Ot2pVYs1x/58VH7vC3Djh6m3lWow9rx5
5zKbr/D+G9cjfuNq7EuBk8y13K8gYvuV5lb3D0yx9N9u6cpXcH1mHtS8XYXZ
19J7ljoVQOW2NX2SWiVW+fea37fnheB15/EZScVyTGu0VkGmuhC+aMxSCb4u
w2ambpN9O1EEfDQKcrjRUoxmzSykJLgIbtXSUDKEf8NMyEPDiyOL4Ti8JSqS
qxjboGLUkOouhh3s5/6dqCIsiD6ZvpipBHay7jdxkBdh+ewFMUWJJXBbX5MW
3SvAjsQHEgrTv4HeRo1L1qmvWNRVC2OJuW+QW8x13ybuC8aHrpwvvFwKkTEn
fLX5v2Bqyic+FHwuhSeJIUzRKflY8r3Ln76WlYHG8QWTopAcTNyyyFrssAz0
YOUJRXs29ssWvfwVLYdL+SyRJuzZ2IqzVt6X2nIICZc7HVKbiWFhHoWfW77D
vwz3+6dvZmDdkaTOInQVsNfPQV1VmI5Zx4VLf9aqAOIgtUw77nQs4uPHsvy+
CuAJN6VSpUnDxkr//MgbrwRtC9YSCdqP2NMqHV8hnirYb9aY6Yv7gFHWjcjn
PagC4aLzitncHzDRto363MUqUMA92vZWTMF8plmbc7Z+QKb8TBGm+Q77rfis
eJylGmICtXWN3iVhHUzzActXq+G8qr7M3HIiNlFex03mWg0C749IJxITMFIS
TzPJzWoYZaAVuCMQj1H3zIsCw0+QnWh+uh0Th539pEekKvYT+O4af5Igi8P4
VCTemz/6CU36pt78a2+wG9ELQ1GLP4HJm5MldDka07DUz00+VQPPg5c5Pj6N
xvRlfj3LvlQDeT4GdTlHUZj14AfWGqsacIiySrzJFoWFchvor0/WQBi/M1r0
NAKL2vrF/+9ELbDsa5uY0UdgiQ2SO5RctWDAqK+waPoay7Wji+U0rQWBtv3L
QouvsNbChi71oVp4fv/UkLLkS6w3UCrV6KAWNOt+bUxHhGKjeqmOVqx1EF00
OPho/QW2duBF761fB2pGRpcXKkMwBkVp9fzuOjg9ivs64xuEsTKlcZRv1sGz
3dIUw4NAjHuOfqWeoR7oL+2xkbsFYpJhy2HDGvVAQ6yKK/QIwHS70/5Qt9SD
bOH7SbVUP8wkgyGBeakeqpqvCFhI+mEP3HxseKh+wb/p4Gz2376YC7sxJU75
139+LYakdnyweIszSnb1v2CguDg+a8oLS5H2Pes69Qu+sSlHvRXywrIoV6f8
SBogt9FfacTjOVae+8c/Ad8AB62P5/cvemJDBN+fjZUNsDHGy1723h1bw8yz
rg01gMbDh36Pqdwx0peKkVn7DUDJma4c4+GGCV2kMHsh8xuOGWbCWu+7Yl63
w4iUv/4GCUlwmdN3xqLiHeZK235D2Pq7H3+Hn2IZk2rtAiu/Ia89/V+y5VOs
zZ0+hVKwEVxO6703e+6EcWbEYr/TGkFT2GmFpPkJJrnuyn+1thG4Zvlvt1o+
wW7iDGgzxxshSfn7nVXiJ9iTTrbRYI4/QLfFVvwPHmM1RyleN+L/wAcbC7Yv
Xx2wXmW/B99K/kC01znnWgoHbCHGXI2/5w8kkkjOF5vZY2cE+TgoGJpAfIbT
eIjTDrPQy6n89bIJ5IwyBJsarTG3j2Hp0tlNsHDW7/QjnDUWtuzwKuN3E1TX
WrDcLLDCiv1F7waRNcONL4Ykap8eYORfig+vezcDy0e5C1+KLDDWg9ip4nfN
cN+fhpgYs8CEldyaeSuaYZaqbHC/yRzTG5JNIttrhp+VFKQ5y/exTMpquXrH
Fjh9bofLWM0Mq9D+wC0V2QLOiXZMmkumWHuyH1X65xZ4PLIg9yzMFNuTvD4Y
sNQCrJnuhy4Z97BbZn88FB+0QrU0lw3fhjFmkptzvyigFRhU1D/mqRljjjth
t3hSW6G2sbJrNN8IS3ilzko61gqXaq3KVt0NscWy7rJagzagXfC86n9VH8vo
qDr926MNVBuIDcvS9DDT+Uyz5sT/eOumWACjHtbL/Pxkz3AbSH9rY/Q60sXG
v0dd2RRtB+4QDqncPW2sqiH4jjO+HYR4XlsL+WhjSV2ePjua7dD4ndHj3Ult
7M7ig+4Dx3bABSYMEvFqYc2scp6kxe0QRfTWcOmZBpbNJ5oRVN8OhZ61A7vn
NLBgcd52yt52eNX4temvvTomf4uW5/ROO+wq2j96T7iNlbpPNp291gHMptiF
yasqWGxg/1accgeslL7p0oy5hTlFtlxgNeyAbann4QWbyphw1jcnjmcdkPr+
qvhc5U0stf8lG39lB1wf3dOKf66E+Uz5XM9q6YCYkb5R8u3rmMma8yPBkQ7Y
nE8tK3hyHWOmNK0VOe6AJ2ZfMEdHRSxcRtLuKr4TMJpw9FmcPGavcOlNuWYn
hDn/lvjOL48pq3P8wN3vhDtnSWPSyvEYqRXlGbx/J9y//JNMfA4wj9ihcuX6
zv/yR9M42U8U0//YMdXU0wmW9UlUeZQoJpX/i0ZtphMIHKc6i3QQbK3+y30t
ii6Q1xmp9diTwyy3Ak4ZKXfByByfCaPTNUye2ENy2KAL/NG0gtWBqxjn6Ucm
92y74H1+J4ul0lVsgMegwPxlF3z1PCD9xS+DaegIGdq3dMHRYQbfWQYprLnB
5Vn3UBew9fj5VSRJYspy1Um4pS4gP2kpvn9JEpPn0h6lpuqGj3OxSf9UJDCp
NTeLvJvdUKep/SQhVwwrMK8JPKvfDVQ111qsbolhwn1Un55bdcODx+trdxdE
MYGq5PnbQd2g9vqBf7SoKMYaVvdwpbYbSLydor9lCWGxx6cj7nR1wzDjStIt
MiHsjJPe16qJbrDW5x9ws7iCURsubIYT94DJtT68rpAgdsxP5y6C9UB50Yr1
4owA5plokBCn1gOGJlfUxe8KYLs0qd+P7/bA7izRC89efmxjS+qozbMHLrva
L/R28GFTtUb+j8t7QMtJlXNongczlUlP62/sgdjNsHAnFx5sOHulHv7+x8nk
ql+T8WC9kb6U9Ls9QN4tW3hekBtrvPfp1VepXngTZ6rIGHURU+pay2e53guY
e9uktthFrEZJtt1XpxeEInar8js5sQqhFgYtp16wK+HvC2LjxPIPNuI2vvTC
S8K3TooX57HLj3BlhtW9gNQJJ1fOsGOfJgIHatp6gfrtUNPeDXYspZH5fPRK
LxRftNYuYWTDouLQjxJX+iDYNt5TpIcZo6EKqU2U64PE1Y9BpLeZsZdeHVMk
Kn2Q9Tt+p7nhHBZgacHfbdMH0ZwLbNv1TJirRGju0099MOU8SbQ2wYgpne4n
4S/tAzvCc10RK0aMaZbX6O/v/3TMVXWdlTNYScLPk+hCH4SQGN4+SXYG2ybe
e0Ah1A+E7dSbt7XosV+DSlVlSD9wu0X5TS3SYbHFMWft1frBm6BLOhZMh0nb
iNa1P+oH0QTrtJhXtJhLu9XFhIJ+COY9b9JfSY0pZRe7qdb2Q1yPt60SIzXG
FEDSftTVD1F82aufHlJhJTLvvcy3+kHsnNvrGeFT2FZy7+CVq3+BfUTN9e8A
BVbnxiMxevMvvBYXe/xAjQKL0XIMjTT4CyOXbW7K1JNjkuQ017Y9/kLRLUfb
OxVk2FOH67E/Kv+C50ehfp9WEkzxRvTyk9a/YENy4ecFQxKM8eK4Is/oX9AW
/lj9ZO4EVtTtuRlCNACcax4vVqhPYJtyRRpaCgOwJ5txmOREhNWcPZFJqjMA
MVK6ftxniLCoVfXjEosBuJQ7btRkc4yKpy7msQUNQM4pzoC2f/9Qx1PcVNO/
B+BvV7ff8Z0DVH7q8f24vwMwqvqJ9rBkH2WoqipTXhgA6uU/ldms+2jBE0Pr
fKpBmL/z4OOvpV10vT+y3lVtEMoH8pjzy7bR6oJR9sv3BiFr9I7NsuQ2GhEm
9HTo0SCMsUydxBVuoaLQyIWPHATT5LJPVaUE9PEnIp9T3YOAT3Dpfzq9gf5C
QiYfTg1C9/aF1wruGyh7N+2NLsIg0NvfnvCn3UAbiC7QJJ0dgjbF+khOhXWU
wxBJEtIbAiI5DYZ3oavo07W640irIQj5zXpXv3cF/ROkar7tOgS9xDTH3Hwr
qEuh0eUf8UPwvkKXMrxjCW2h9ijVGBgCgl+LmozuAsqVSsxevDAEmTdVnQ6q
5lG3ay+8WQ6GQNArb5XzyjzK8yBeaYJtGNyonYrwdHOo54+Sbqe7w8DVXPKi
7d802qmLXu13GIZbQ+WyET7TqMBSfSLOaxg+GHgfcJJPo13MPffJ3g9DFBd7
8ROWKfSy4+Za7NgwxKgs1p+/N4H6UD7TOVgbhoL9y1tZ2+Nob/KJ0nvEI6Di
px76KmIc9W2i9xbgGgFit/plnqYxtJ9H9HS5+Qhk8BbH6RWNoMLfvz3meDoC
rApqInTkI2iAJtbtFzACdzP1aT4bDaMiXmqJKukjUKqyu3SdYQgN6rO/NDwz
Am8kL5n7ZP9FhxwIYfidESB3t8+iZfmLipN6rqVTjELylQuhI6H96LDoy28P
BUaBOlcnYM21D5UMzbpOZDsKXjc5Pmw496ChnGJZFh6j4DQUNhZy2I2OlZRS
N4aOwmX6KM7uwG40bLKhKzJnFJgfm8erpHShk7gZM+7lUWhLdwu9sNmB9svW
VDgcjkK0maa/R0wH+oC9jWqIbAwkPtbNNct0oEasOQ/4zo7BXOrpHaGAdvQ6
kzn7d4kxCH8Wkx5u2YrC2Q5lU7kx0JzP9w2ob0FlGTFXMoUx+G7Mrtws0IKK
MLB1qmuNQYa9ffOpvSaUhaYreOrxGKx/ssmwrmpEGU/ji1+4jcGBagMnnUwj
SkP9eULYZwzmA7IUAgt+oySnXiLur8eAZbGsK+lrA7pMprB5On8MjA3RvLXW
evTnvwITmcUx8CVV3U3wqEErDjnDhjbGIBM/+rqcpQYtOQgv890fA/XTZ68P
lP9Ec/ZsGZtPjsOY2FDM6omf6Jstrj+mAuNgfk9sKEvrBxpBiNghEx0HwT3W
+bz8KjR084gnR2YcUlgIIWdoqlDv9QHvLaVx2KAPGfneW4HaLEdJhVqOAxVH
OW/Kq3LUYonIXMRhHPIU/txuOVGOmiw+jOh+Og5dyyN8vR5lqPb8rUWOgHGo
82JyQZ1KUWT6xIfCj+Mw2ZpW1+VfgtIPO1IPj45D+jWuJj3mQlSadlKHf24c
RE/IS7vnFqCGeO13T9bGoTNRvpNIoQD9mC4hTE48AT8NfDqpXL+i4g8J6iJc
E5B5u2hbcfMzeifFIt798gSMJ3cZncQ+ox6d3WO14hOw7ZBg3Rqej9ZKFz/R
V5iAqLxx6eNreajOsXO0r8UEkJ+vlnpbkY26ic0MNtlPwIlL+ORD3mw0yfwO
D5PzBMCR2HFJVBY61SBdnB04AYSwi2lTzpmoc8ROb1fGBHR11czwmWWgCTVW
Fzg+T8CBiZqB/GQ6WkXos7L+NgEPRc5Z8Funo+QGpbuHDRMwd2d+lsYjDY29
6M7KNz8BRRfd23MqPqLl2vP3H69PwMXv98NttD+iI4EGOeV7E1Ci10X3bOkD
yrdwDad+ahIM+qqjLXg/oN8K9u+6CU5CzTUplzGz9+jQlG1GjcQkBFxVFOv4
mowSnRtcocZNguoR9XEaWTJ689l37w+qk0Cm5VD9rjQJ7Vfw/PDHYRKGr0+G
BSknoIfOS/OMLpNQ4GK/ipa8RTkzjcXveU1C65dz4dJ8b1EbaqR2M3wSQJb0
VAJtPLrf/W+K/csklCtctFUij0U5KB4KWZVOAo8anunUyzeo/LUR56/Vk2D7
S08rgOENGvquilypYxIYDlZF7l2KQdkeeAs82piEb8cEXUbnKJSm+a39lf1J
2O3H85YyRqEnxIu+zBNPQeQEa9qdkkh04d/cVQv6KdDkVdk2OI5Ay95oKRuI
ToELg21WrdprNPfA/hXT1SmoShIZ98sJR1PMgju6sClo8rz1KJEqHA0RqjBQ
U58Ct0pm6qieMFSvntdW4eEU6KPGW9/DQ9FbgpBP5DIF4UGLQzakoSgaabhR
+XwK/FXr5Zc9X6B8d197XH01BTNG9JtXXULQLcJuqFDuFBRya45qhwSh0TzN
OecWpsCj94s2xQV/NCh0ZrV7fQq4RC3Ucr77oR5rRJJRe1NQexDKq2foh96v
kKqgPjkNoq+IuxLf+aJiOu+biQWm/8vvArjvsj4oT3kZ3Q+RaWj64Mv+r9kb
Zebs1vGUmQaPrMTLBH5vlGiJcnhbaRq2XmZ5Ls4+R9v8HZcXLaeBrb9Tky38
GVozHyaW5TAN+Tfop9BjD7RE/ZPzA+dpcKKi51Z18kCT2Yb+jQVMg7qpaNmM
uTvqUHidpjd1GoiZA7n8LV1RqklmkerxaThMO/nOf8QJlefXcL8zPw21ogK7
5e5OqJtdcO3S2jQ4uJgtEZic0JnNLT0Wohngzdf2uqHniFaTdvk4csxAQ0Vx
t9bKY3Tn5qkmSr4Z0EpuPA6Jf4wKv8KffS80A0Tsr4qeKj5GE89+yWrCzUBw
w8e30fKPUBe+V508RjOg0pw5cjxoj+bZ1rF/vz8DOP57WUvK9uhU/sEDTdsZ
eGbA8/FnuR2qKWN78Nx9BvDNxr/m0mzRKzdv8PTFzUDzIeVu0ltrdMKG2OVF
9wwwdz85TbNngbLkX62+MDQDEfhgPY7XFqjGxqNTJZMzMPdlgluZ3wKt9BhJ
ntiYgZTNcbvau+Zo/MvvDXL0s1CZ5VV6ecIMbW3boO9knoXfd9t8loPNUDLG
y8bWnLPgGCTv6yFihjomxa/FiMyCn/Vwdau/KXo7z5ll5fYslEVljfT6mKAB
67nmAbqzwOVwP+/M7F20XGoqj/XuLJyKkH9orHEXFajSkr9hPwv6OWnDXYLG
6Ik2EbuU0FnoVOm7Vk5qiJauzVdoNcwC1q0prCN+B2W25uYKb5sF9gKt1Otl
uqj7qHFwY98sGBBw99rkdVHZ1jZNmJuFaW8sy/GuDvo9p3hG6OQcvMU98vX4
rIWyc6+q2NDPgTkb21SeshbqmSDwNY1lDl7OSOBpZzRR3IvEZ2yX5yDdlpTp
Cq8mWvXAl+6kyhx4B+8osbmqoxwj5c6K2nMQ6s3YP9SkhnrpEga8jeZAJfLy
4Q0eNRRTtErftpsDPlnXkj+jqmj1xduyU2FzYOrbv2PlfQutHWK2+NE6B+wv
DBZ8NJVQHh2txv3eObh+6XLsrf7raEDTS2Hp0Tkw+UDknG12HVUsP9rNXZ0D
mgp+WcIzRfRX3NSrBLp5SH3SUSnZIo/y0XJs9jDPg8TXzPfiVvJoUJCePv3F
eUCCHMTuksijN5z/cIWIzQN3/O0pSnk8+lvryzdnrXmYs7e4sZuPoQJ/5tm/
Gs4Dh6uZD0qCoS/w3H5L9+fBmOXcxBUjFL0lGqtq7jQPgdcLdArOImjTac9x
jZh5SNCbZVMulEVbf9+gutI7D9/qdg9lfaXRIydB+4HhefiOnnZ6TSuNCl+g
bQmZnofHt9W1eVOk0HDn3vBpwjzEqQo5zTZIompclgzvzyzAPw7XPxGiEqhX
y02n22wLEGpy6Xl5mzia73al+4BrAa7a8L5veyyO0rRtvtEXX4DdyGeib0rF
0JZnfiwMmgtA4IpRD74rih7yPfCo1l8AyeCgHlIqUfRKp/LgQ9MFkO/cvav8
VAQNE6B/1/RoAYbDX5rryAqjqj3vOQPDF8Ds8OXywIIg2ixcyb/btAANpF5d
39v50cO/KSEZXQvQ61KeM6bPj14JDJjXGVyA632W1BaTfGjYoErO14UFuM0c
Zn3nmBdVDRkQtju5CFck/boyNHlQT4mq1yz0i9BdWuz8bJEbzR35sNbAvAiW
VyfSdIK5UWopmwIegUXILX7VvVjHhTaP70iNKC3CtV6riYQ7F9HDsMHYMLVF
2JKk7/c+5kSvXP2xI3tnERLoTP+wZ3OiYeFBZXGWi7B6R3PaiJQTVZU7i2gG
LIL7ierXp+LPo00x4op1Pxdh2DGk65k8C8rjxFx97s8i+N5+Jn2jjBn10jyS
s+tcBOq7HAPH4syoOM0fCYbJRTDdJN7cFT6HxgebcZuSLkF3pWT/3Rtn0Q3L
G+8LqZfgzp4T31QXI6qiKMRGcXYJxBfuPRq7z4geEe0x5PMuwWP+uziykDOo
hUfEiUOlJbBJuFwTt0yPVum7eKmrL8Fre9pf5mH06DkZ4/2PekvA+UQ7Gi9E
j/7Z5N9Qtl4COS8lOzJnOlTM4cd43IslWFwKkD6WpkGP7q1USzQvAQnpngiV
60lUH+3GBXf/x/NNy64tU6Jf2ctLB4aWoJCwfKT7gBK1+Bv4xXd5CX6LeJIy
m1GgTVrnU9poloFh/OEPJlcylEeMhJ373DIo/RhwICMhQ71o5+NcLiwDnavY
qm0kKSreXPT6vOgyvO21+mtRTILGX1f1ttNcBr2LGZfymE+gG9ziB1UGy2A9
NiA2X0KMqpxgdmW4vww9H8eZruoRo0dVkw/LHJdBVFrp4fg7ItTi6jMTiphl
sBm+88M64AgRE8xGUnuXge/76IxKxR7SOpv7o21kGd54l/qTSO4htmmf8Ycz
y8CqE+QQkb+LpJ0vvq67swymf//2L+fsIEx01bcpmFdAnSBvyPVrCylormmT
4FyBjOgR/WWtLUT9Rb2mqcAKRHb0rLJPEJCQE026ZVf/44U/TrhSEJB9Qs9d
O4MVAHXRqz/tN5DYr/2jcWYrkJPZ5GNAtYFIPBw0q7NZAesko+s7OeuI/eyY
5XmPFVCjPVBj3lxDRv4uOrQlrMDfXydVU0RWkZoqYi+JoRWQbyHsB1ouICbP
SIlMp1bArN3eTnJgHjmQofALW1oBDuKZynrNeUTyK3XQ9OEKGHw279BWnkMy
Us+Fx51fhb5s/14//RlE3pSVro53FRLzs7hyJqaRUfbzUWtCq1AaEzWh8Gga
YY7lilVGV4ElfZM6+vUU8jJEKPnAZBXmjqTZby9OIALXRTkFrFaBmU6dPSl4
Aqkjlvio82gVyKZoVvd5J5Ajj6sZed6r8OuPgmWF9Tjy2EEh/17KKkwLS0df
IhtDdLQMqmrHV8E+zMPWlmsQqZYnx5nPr8KDk/Plou8GkCsShWUn1lfhpNUH
LIR1ADkRGjTASbQG1eXlSCn7X2TAdqznHu0aOHbwnW5A+hC6yZIYkTNrcFy6
IlHd1IsoGb3SPmZagz8hlnaLRr1IgYpsRzLHGrCw69bk+vUgL6/ENA8LrYGG
J+Onb3NdSE2a7cs8sTXIt9w0ZQ/uQnbZ8beeS63BI4+rw2b8XYjF6ZUGdmQN
Yii9zts6dCK4lRu1RqprMLaZm+NC04EsfT4o+2u7ButE6U+CZFsQLoFOt6yH
a9A3n+H9KKcZ0U/JlHF3XAMOf6IbzBeakboI3WJmjzVQIFNddaRpQt49+fxF
78UaPPy18G6MqhHpng98xP9qDTBOmwCDyN/IqfvGwjsRayAuaRl5heU34qJ1
Mjc2fg3c819MFog0IGoS5p96Pq3BErcF30nXeiQg59qD9Jw1kAu9YsxKU4+U
c9PxOn9eg7DWvyPCn+oQPsbKj4zf1qB8zUJedrQWOSIwJWv/WoPtSRq9dssa
5HPJn5iOqTVgInEO8gj9gXjc5BrfnPvvfi8Om3eTVYjigLsQ0/J/fp+OkslA
FTLwT+CX4dYanNyZ7A8gqUTIrwfvTJKtA5HwiTPvvpQjHb0jCuSn1oHBlZwr
kLscSbKWjhCgWYfPhb33Dd+WIeJh0wIOTOvg8DzJKPxVKWLSpWC4zbcO7kvi
8s9iS5BLlokZzILroG5WEnvpQglC2N7YkBVZh0YdMiLN7GIklPXjS2+ZdRCn
FEvubShCis2IKilvroOUQy7JXY5ChHqt4gKbzToUpNsYXxb5gvT5MtojDuuw
wx59423hZ+TjGfvSe0/W4ed7C40H1J+RqzJsmmnu6+DGuX2s9jsPMfdy9xMK
XQe9cZ48C6scRJiuo1U9fB0M1DvICb3ZyO4HATbHqHXoful26K2cjYTX9xWW
JKxD1vvBF2oyWUg5tfQ0lrMO+9KGh+clPyGBya/E7n9eh9jlgMTZsgxEQ3T6
eUDhOkiUlH2Wkc9AZrRjmBq/r0MOx06XlGE6Qp+4cUOreR00uP/lKGSkItaX
PmdbLK9DM2bdpZyWgrD1DD6F9XUYsjaLfaGVgrT6UGLsW+uwNW2SYXwiBZHo
N+vqOlyHYa8fUnItychREOOhPPUG+LGz6Dj5JiFfxPG/OOg2YCyHgcN/KxEx
H3GI2D+zAdJFTxsV7ROR31INPAVsG1BJi3zKNEtAoqfcb18U3AB+JZ7VMNt4
RCki49w/4Q3YDUzXqtuIQ3blusb7xTfgSGm6S/l5HGISfcUlQnYDSo43ftO/
jUUE5EeTj5X/05plfeYLMUjVe8W1YesNiBMe+CG8GIk8UXlSXma/AWae6p3m
0ZEIz867gDePN0CSmaTzJhKJvFDbYb7ttgFkRkS2xLERiM6/LHxF8Aa0dBHx
JhaFI+RZvVTxLzdAtFt+XZ4jHCnTIel1er0BWx8rFlpCXyEcuca2gnEbEOCs
mK5jH4bMG9JGJ2RsgLOAAPcn9VAkiRx31yV7A76PyMnPtb5A1Aqs+bXyN0DK
yHH9g8YLpOhkzfeTJRvQgBd2UzMKQbxKn0651W9A689gi+thQQgj04CU3tQG
RE/5mghq+yPGg8GvAuc2gNswEl1c8kNSU6SmC5c2wJJtTOdPiB8iLhgZQ7e1
Adf+4VjKfvkiGnBzs5FsE54e/Px62dAHiSfbvrV7chMEK9dki0h8kNE/qR/5
aDahzOrZa3oTb+Sh7rGmP9MmTIpKN/w964WE2ZZ8wfFvgjvNzwqFvGdIt4gF
pZ3gJmQ1lUSTsT1D2LboTd+KbMJcynWs7aUHku3tQLstswn/aiT6rrm4I79j
eB5+vrkJJjlPRivsXRHSH1GCXLab4NWY6UHa7YSoBoC/xsNNMPyXRmRu54RE
K68MeDluglVCZvciqRPC1a0cOuixCfn6ElFqqCMC80TzMS83Qcjh2k+exsdI
SH4+1L7ehCfURropjx8jbU7G8evRm9CWlRm8xvIYMTn6dkMtaRNc7NvOt08+
RDzPPMqgyNuE8vOX/e7Z2yN1/exHUl83wSaXtelNrx1ClfxH16J4EwbuHQVN
KdghCQJ8ZD8rN2FtiHHhBb8tUooMm3u0bgKNo4EAQm+NbFmpXFxe3YSom2ZO
0WYWiEkSxSEFYROMc7rOo7vmyK/22l6u3U2o1/ytQBVpjsRfw4XpExHgTp5J
zdjv+wiOSminlo4AiWd68OoaZkg6Nt8xwkiAjoPO/oltU4TmaXruHjMBFl2C
GJTemyJjQ+fvi1wkwPObpN05C/eQgHyalgQxwn/+5a6idneR5Yk/n4qlCLBw
4ka2RZcxcudcsF/7NQL03Lsz/Q41RgR8jmXI5QlQ6eN67iSHEdKsufbxiRYB
/poF7TAd6yOMWx1uN50IkHWh1+ELoos8vxSube5KgKQLR4yi7TrIzN1bwl7P
CHCpOefujIUOUvqrZrLQnwAZjP70jTHaiHF8odqFGAJ0yXaHS5zWQuqbH12S
jSdA4/d4Fokvmogw8RVS3SQC8BkQ3pzR1USIbNPKQtMIMP5JN1ojTQNJk3vD
s11EgEfocZbdZzXk9GPNY7oyAlTvz9x1oFdDXNJODwhWEoDU1zT2vctt5Obp
oNdm9f/xuovftW+pIksjLvvNPf/NZ1LQg7O3EEk//fbUbQLcOxAKMryihAS2
zwu47RPAo+rfi9mf15Fejme+qkcEiOCMfuZscB1x/f5OfItsC+Lb0GiHcEWk
nDARo3R2C9rZApL+0CggVApPl1lZtkBGcqXaoFAeMY4kU1pl34Kzs2TwwUAe
ORIS2Inj2YIt70OJqzl4BG/lYDAvsQV3fG5PZZgBElV89LVSZgt0td9lM58B
ZIIk4lSU3H/6hjP1yTAMCUgp+C6rsAUWN+IFjU1R5PffnfNhWlvApMR9l+Ey
DlFT9ZsQfrIFNt6CFW+lryLvE87IkThvwVzgX+LkGhlkbS4tus9tC6Zu0gy1
acggkYENij4+W6CjuegS5SSNdFdRf+p4vQWBK9Wa7h2SCO/p5OP06C14Rx/R
0+ogibgYieh7xG2Bz5KxNAm1JHJuV/Mk9/stWFDVT5+6LYEYisXZPc3fgguc
fFLxM2JIjrdA3c2CLegbMTBdjxBDDlvK2M+XbEF9tnXfNE4MeWc71FJfuQUG
mSo9vm9FkbHUi6LnWrYgl5Mtxb5RGLFiyiWULW7BT8uj0JMelxFVr6qBsdUt
GE60JV9fu4SIz7RXUxC24Eb41kyK7SXkqHgrTPdwC8gfUzFxPhBAYnQx3nXq
bWg/8/Mysycf4lGpScVMvw1xRQtpFRR8yD1ei3X07DYMqWSZV77hRS5vhVSG
nd+GkWmbso+lPEh1TKeugPA2zKgkDhQycyMvLXYuukhvg/arJYkrulzIHUn2
lVp0G6LYEdfnby8iy12WQffUt+H5l467tlc5EdYzeyWxj7ch89vKYnE4GzI9
cd5/ym0bjh5+ej/ylBX5UiCvLu67DfmErGTtByzIDa2w2ZbIbbDeXWrRtTmH
MHB9LWRL2AamI1kJSg8mZGS9x9vm4zb06bquaMScRZ5GXmAmK9yGg/3GQo6p
Mwhmpjil9X0bGLqXhBeYzyCnxGy+pNRuwx09uch+XQbkQ3vBTVz3NqgesOd0
ztAhrbRK7k5b2xCY9+JsXRk1YnPmLF7y3zZ0SvkxlnyiQkjPTVFuke4ATG4/
mH1/CpHl8It3YdyBzokNMr88SqTnoqapDPsOqOXhHcVqKJDHvJwCu9w70Eqi
KJg7So6kX6n65i6xAwGLd4iKJciQAQnjGwfyO3DDsSKM4xMJQie33+uptQMY
u+T6W5kTiKey9Lb3kx2Yu7J4pVbtGFeg0R1I7LsDLLG9y+Vk/3Czeo5n/SN2
AC1cMngxu49jv0eXTpqyA/7bFp2U67s4rQf5kkGfd6CnjJdF/cIOLsRBtY7i
xw4YKL9dyny0hat6uqD9onUHUpPWtt+MbuIu+fM5hS3vAI0wPoPu7DpuSumI
pvpwBxbfr06Tlq3iUk71Zm9S7ULpXUgue7qMM27NU+Jn24XIRfZb5IaLOOao
wAnDy7vgnVRwc9lyHveaRYq15uYu2G9ZTqTOTOPIP0xpXrLahfDFm7QHExO4
5wIxLyICd4F4MWmgS3kMR/is8HMndRd6w3Slx5iHcHYym7smNbtA11UtL4fr
x01UfRT9NbYLFJ3qPgOz3TiiM0bdP4n3oPBQpNGmrQPHYXXGrZJrDxyY7Yjl
DVpxuO9NbGUKeyAv80djZ7ARZ0Ab8KPIYg/ih/KKeE/+wsV8I5DnZuwBl+eW
oTJxNa79nqVa6twe0P71U2nFf8PhAr6C59Ie3FsN9druKsF9yvwnrru2B//+
sdDzW5fgvNbfnKPY3YODbbpRj9hi3BX/X2O2FPtw5jigcf5kES4kg99JnG8f
xPmYFnQVv+JgeT7up/k+SAWfOHRKz8Ll0kuHJljtw7RMf9vLK1m4c9J+nk52
+1C2Imo0WpyJW/FiNeN12odk4mU72rZPuCQ6lcsv/PahvdCazpU1A7crkVuh
8WEf5uooBVlPp+K+ejwcHx3Zh1Bjt51G9SRcQamcGdXkPly3TKXy+ZGIK9im
HJee3YfsUyGfzon/px1Tx16t7oP1ZdO8LxcScEW2/aNyRAeQY+NVfsQajysx
lB+Ju3gA1fImIrFBMbgKWaZBdYsDODkT9cK2/hXu135l94/5A3h7pY2cTd8b
J6uQ9bJ69RA6Z0Wy7frNcB/IBr9xTv0DD3IWpucSSjhESFuRZ/kI1sm/Mb27
eAnX3EqvFDx1DNQuJ58M0dDijNlLAgPtiPCkUZLC6sWbckv+Qcwsq0R43vx7
rXN1vXIuAvuWQzbE+Odase23PlfIJRxHmK+vEON9ZeSfhz9NkSs908QmbXcC
r87E4kAfHSBHRt0lRTV9Au+Il+V4amkrtyx9dCxmQ4I/7TstfWJQTa41uTkg
ZIoEL2X3yFPho4Sc8rWqMlFbUjydzD0GvV9McoRvzzVslknxZjtSuM+sB7Lx
TmMfOqzI8O3sralsL8dl+8wepL5cIsNP7B1fsCquk6V99fqeszU5Xv6fnnZ/
dLasS1LQ89Vxcjz3WDSZ8bNIWbeRFJXvlhT4Pi7RlPr9p7JOd026S8Yo8Fmv
R/msDI1kRZ8u7g5OUODXLQ+YCJ2GskuhbueJpynwL8uwNU41Q1mL0qgHKvMU
+NHD0058qgayd8407I6uU+AX+/yv+VvqyV5tFDl/koQSj34uumBMoiN7JEn8
wIiXEp9Wc0rX8tZt2XKV8FAffko8A45Z0r9MVdb1Ptvn9EuUeLvezb2Hgqqy
a6+ldleFKPHWQWiH2zkV2fEFm9AAaUq8U9lQ1hiNsmxdSmd+3g1KvKgBhcTl
x9dlfb7d6+pUpsQbUNrdEya/Lou0Lu3sqFDi3W1prLFkRdmSg/9+oUGJF3fS
ibzXrSD76Y5cV68+JV5l7m9BsJ68rIXD750DQ0q8vSX3z7FDvCxngC77xbuU
eFeW0uT9VLxs/NdHlnZmlHiKWQ1BtR2Q1fl9+CLC/L99e4o7LqkgSz/6Ir/Y
khKfqV/+B9UE2dYtpq4BK0p81OXExHdEIBtKnbZzbEOJH2H0pz1njsn+D33q
sNQ=
       "]]}}, {}}},
  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, 13800.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7772088699845943`*^9, 3.7772121087610598`*^9, 
  3.7772659508934946`*^9, 3.77726620380451*^9, 3.7776382054048014`*^9, 
  3.7776382928107414`*^9, 3.7776390425498557`*^9, 3.7776392600718307`*^9, 
  3.7776392987319164`*^9, 3.777639332410088*^9, 3.7778086828343782`*^9, 
  3.7778088485767837`*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "T1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}]}], "}"}], ",", "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[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "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[{"11", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    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[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772088888997927`*^9, 3.777208889821307*^9}, {
  3.7772089361748934`*^9, 3.7772089392990503`*^9}, {3.777265634335972*^9, 
  3.7772656358257217`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.217638902000844`", "0.011711248154401`", "103.97174459523893`", 
      "2.0585710218051263`*^-154"},
     {"T1", "1270.9357449043325`", "14.800004547703674`", 
      "85.87401043072836`", "1.0207321434743732`*^-140"}
    },
    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.777208890564168*^9, 3.777212110688179*^9, 
  3.777265950940359*^9, 3.777266203866997*^9, 3.7776382070208545`*^9, 
  3.777638292874705*^9, 3.7776390426435833`*^9, 3.7776392601343184`*^9, 
  3.777639298810023*^9, 3.777639332472573*^9, 3.7778086828968644`*^9, 
  3.777808848639269*^9}],

Cell[BoxData["0.9950234830027113`"], "Output",
 CellChangeTimes->{3.777208890564168*^9, 3.777212110688179*^9, 
  3.777265950940359*^9, 3.777266203866997*^9, 3.7776382070208545`*^9, 
  3.777638292874705*^9, 3.7776390426435833`*^9, 3.7776392601343184`*^9, 
  3.777639298810023*^9, 3.777639332472573*^9, 3.7778086828968644`*^9, 
  3.777808848639269*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxVkns4FPgax6U5BxuVkignarVFTmWVtGp9TzcqxOERpbY2uVSMVjsSG7mF
3DZUpFwrtzDI/TpmzCVRomW7okXtFEnncKpt95zfu3+ceZ55Zj7P+3t/3/f7
fn+Lv+X+87CigoJCwR/f//7+7xNyHOzPmAVjHq6sW8Bd5P6KOBDcgIPRl/Ar
Y4QgcL9PWsrqF4ybQ+HtztEaLBqmegRs7Xir557+hepnYXfNfOxF0HOqx0DN
eFDfaXKA6rGYeJmacfV1P9UTEKnyy8bqxmeMnyWiTlcnaYPbU8Z656Hjmmjj
FPiY8YEkDO8SN6j4PWKcmYwChYK6L7g/U38KfJ5q/fDuci/1X0S7cEWSpd5P
1H8JKBjWtF34gPpTETtia5W7q5v607BrX4f1mqn71J+O43Gq3tsWER+4grUa
l32T1Luo/yr2h/L0Mg/do/4MbGsqEX051ME4MRP9ebs3KJUSr86C+dHb3qmW
xHezUPj5Kcu86nbGvtnwd52+z33qNuPZOVC3WbUpOlTCuDQHq5I0Axq62hjb
5SKfM9dI9pZ4LBdWsxqzvTVFpH8NGoq8KXcPIelfh6pd4PA7beK71xHCs7dc
aiog/RvgPpg0qLRqJf08fAoZ2uoy2UL6eZhpW7x3s0Ez6efjoH/0P4p1icfy
wXf7ssdGr4H0C3DAIqFaaN9I+oWIfygKb/GvJf1CqATavg+WEvsW4WBOgB63
vor0b2LGxkU8RFaT/k2cqvFyEuQS2xVDFtz3asNPlaRfjB7NE38dM6T+xBLE
NAV4xL+qYKxVCsnUsWMq3lT3LIU8xXTlzvxbjKtLMbD/b2oZ5mWMlfnINPp7
otES6nfmw7x69O3L1BLGeXz4CnQyts0sZTzJh/F6r1XReeWMrcpwZr+q9Rx/
uu9SGexzfNzWxdL5kTJ4x45mzTKmulk52hK3/sYbL2IcVY46XvETkUMB495y
YLv+xJD3TcbLK+A8OmCg9rCY8ckKtJ6J/7VRkM9YUgHjjxLLbB6x1i1EXxyf
9O0h9ryF99l29/jj18n/LfDD7OrWhxErV4K3u83p9AvSd67EOkdTE8XYLPJf
CWMPbufri4XkvxI3rNelxc3LIf9VsJ0afB4dn03+q6DeHvEy2ot4pAqzXyjJ
w83ovFk1Et9XKYwfziP/1ZAvWbboThfp9VZDPVif92TdNfJfg03+ftKvm6h+
sgaDfzGbM38B3SepgeUbjxkr6zPIfy2K7n/VWrjiMvmvxc9yPo8zlEn+a5Em
MUyzL0sl/3VI0w7MlufTeec6/BC8/PB3y4jz6rDb32Wpzbyr5L8OnbyZ86M8
ia3qsdlGt9On8k//9fD87Nn2YQnVR+rBsfY8vbH9CvlvwGRSauOUgOaPasC8
F7qnbm1MJv8N8BtXckl4m07+GzHNbZkTZ0cK+W9EXriP+j0B+ZE0glvxwSQg
hupaTWgMFXZGKhF7NuHOjh7FHq808t+E8YG1jn6L6X5OM+4v1v/32QTSN2rG
ZzPjvo/yjmLs2Iyo1bn7DDqSGAc1Y2eCD+eT9Bzj3GZI7+Z0nYtLZNzeDK29
pb4B3sQTzaiOnFc2FRnCWKcFTYrXe/vmX2S8pQXb+5bMXvgxgfGxFnDfKuz6
6BzLOLkFOSbS2MKhHxnXt6ArP21cLA1j/LwFb6+ecnIIJz+qAlQ6RD+oWUrz
rRHAy+rpssMlEYxdBRg+UrO4aDXtJ1yAqN2PXWzTzzMuEiBywMdhvTpxtwB3
nj5TTvztKOMPAoj6uyaOSmMY67dC/LBviGsSydi6FfZ+CW8iDcIZn2iFvF91
Uy7/FOP0ViRq3Ptxe6krY2ErvjZs6FXOP8tY3or0Yx4JJ9deYKwhhOv8D4qz
qkIZbxCCExe6x/3VCcZuQsgXdGp/FUX7jhVizznxgqy5NF+FEKr2UpfXh3wZ
PxKiTi2p6vZeO8pfBHO4jxp2x1P+InzT862a0Sjl7SjCjUBJ2taVtO8gEcyO
HK9QDqQ8ckV4vldx1oQCzdcuQu7nj1JWfOdH+Yug3eYR5DZF+9Rpg2K3s5Ox
iN7bljb0li1UMQznUf5teKy9/mPJyuOUfxvkfv5feMocmlj+bbB7o87ZHOFF
+bdBT60w9GUt+VEV48KcC76BYWcofzHeaWVacJ78mb8Y15Y7xXgfpH2Ei2Gw
Zdr5MaUDlL8YG+fdlf5nuhvT6xaj0Eiv0cSG9vlBDJOCwnLH+M2UvwSjDlfM
PPtN2XlrCfhXJooG/0X7OCHB1qApjrYxve90CTJ1L0XwxTSf8I9+fVWzUgm9
H7kERzOVF/btoLqGFHxxh+wT9rD7N0hhVdDxsb6V3qObFL03szRGkqMpfym2
ZTq+kecEUP5SzFg+cbJ3Gu3rkRSh021PWwz4UP4yiKNKZ8RIgil/GcL6psK4
fcSOsv/3FySDacLO2gvJlG+uDN8c8Zk7HEb7bZfhudEavQFlynNChsxDmin+
Ed9b/A6LLn9C
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdUXc8lo/XtsrISGUkMpNZVkae+77PoyiUkKwke5XyzSZCNhWVESXZ2SMz
2XvvvT32zA7x633PH+d8zuec67rO4DR6rm5KQkREVPzP/V9kJXXQGT4nBOL/
b5tYrLe1636aCtSJd9ssYhsYVU9ndGGaPuzE64n1ob+xqRc7h0VE5pDirx9/
qLWOlR+QCoWnPQNmsR97aRRrmEqVf4aMoC2wd0zcCfFYwUp96eRTiByBc7x2
kvbsMvaJjs3OJ80dXn9gT/B2XcDIFjtPuIAniAuHOu7dmcdk74SpiQq+hvVz
EaIfrs5h30+zLnwl8gMREiLTVq4ZbOLFuITWkj8sfnsdcEmUgDH3xnnQ9gWC
jdfpWtI705jvJ35mt7S3cD3tUyZlwiQ25rYjyqIcAm5su0j5+AS2f2Wg3x5C
4Vwb1eDpSxOYWGg0t7DgByi5Qhsb+nEUU5Fza/Tn+AgeHaxBWuojmOWm/nMC
QxhU96oNybEPY7EPuH5GE0WA+GCgvNz0AFZ6ksxwdzsCGr3iK/oG+rH+wpmT
95cigTTIM+3tUB9Gy/JdnaovCoJvrOwuH/dgAs2Be6bN0ZAy7if6jKsHU3j5
NKay4jO0SYyu1al0Y25jVxed0mIggcYG6Ks7sch39CE9sV/h+1ZWJxtVJ6Yb
+4eFWTkWJn85jkjqdGAOasMVtvANhk61hJ9mbcPIBFo+cP78Bg6/360yzLZg
70l+mbVfi4PogxurD381Yxl5MdSCgvHAlXUnUia0Ebse/G58IDEe3nY12WUE
N2ANJh65vhwJ8FSPSu/8h3qMwGCkPcWQCEVZwrUTZbXYBadLCZ+IkoGhkrqi
yKcKS1FldLzlmgyGDy6nybdUYpL85Erb28nQwCjp/YylElMfml9TXUqBb1cT
DX0jy7GJ3MGqI9PvMJ0UzPVNvwx7FtQUlj7xHfi1m887i/7CAnHpshR9qdAd
/zP62kEJxszwhbZANQ1qBgwSzv0uxpJW3kwaN6fBWtlHycTfRVhlzHO/8op0
UI4ID6ajL8T2iMS7HdIyYYot6uWHX3kYB/UtTQeRLLhkIbzybiUXu830cNA+
Pwu+Hj/1fM6bi7WEVz4veZwN1edvysnnZGMGn5VFr8dlw67r53k3kmxs61vv
RjEhGzKWNtVxBZkYa8aCfbFlDhy2JeA/yKVj2bm2UjLpOfC0/teF/1jTsJtF
f/eKVnOgZ9YJSydJxZ5W078sss2FcL/ZbYaNZOzXoIxXoVse+Blu5dHcS8DU
x6tvSFXkwahHbNSBWzw2S7h7opDkB3i6nd/4kB+H0a4b+hf4/YDndn5BSsg3
LG57SVGy6QeQCeglFATHYpIH9qcKqPNBoCt2saPuK6Z/MvBtfmg+HE1clqxT
+oJtnDqneq0nH/yDPzNd5fiM+dLH0OczFoAb1Ip1Ekdjmay5H39EF4DQGOe5
/LlI7EhsKCovsRD+o2vsGBcJw95Lm+iJzxeChUGAU5PuR4wXXWXLEygC9u7K
zcdvPmAqiiTfcrOKIMU3dJP11HtsSiXYSGyjCCT9EeaIB6GYgwYjT65EMbyM
yts2SA7BYh4LJOcUF0O1V6ChYflbTMz0h4XoYTH8MriqrhT0BquzQgVy0BKg
OVMfEGwcjK3aq2dkV5dAzHQA63mpQAwLdsnLav0J3C5hwUaPfLGeUDL7q6dL
gfavptWBuw9mEfFWMku9FNxxpSGW372xkLi44sz+UlgufTinzfQa40kRcr3C
8gsiFVvEhXW9sKKMAlym3i+I2q9Jf5ngiU0UNZVnTP6C+uaECh0VD8yuTMNT
mKcMoh+PyqXpvsIoasbkMszKIMo+bl7tkjsm0r5Rm75UBiLtVncSx1wxjxmW
lrTtcsi5e8iu2+OINdx0zZ88XwGCQhZkTX8csE7GBe8V6QroWA6ykbzsgE2V
1HCfcKyAwlspF/si7bDFYLHN0+EVoPhMS8p5xBbb1I+tYs2vgNDmdaU9XluM
jPSlocRmBZToclv6tf+HUfcuiMCZSuBO0rvAKvwfxpCsRXRHtBL4pl1nw0Js
MF5l8a/GzyuBwPmUv6DjGXbrw+LI+6VKmHsys8yaZoWpmmqnx1BVwZjiOxQp
tsS0pepcU/mr4PF0Yw5jhwVmMfyNpcq8CgpC3LWyGM0xmwy6xVbfKijuWnjQ
LW+GOb9yKx5MrILV+NRO55emWCC3jvbv6Sp44EZHkDw2xt5v113+S1IN9G/C
VBqUjLHoeoldCq5qSOdlTev8bISlPzkdzmFQDd4V3y317htibXn13fdGqqHU
E6fgQqGP9flci394UA2fFZvjO/b1sHGt+BfmLDVwhzR2p3rnIbZ+4E7/SrsG
+AVdTdipdLG91uWJQMcaiBrWix7j0MGIY3Wzw8NrgCaUpWIe08bO3JS8l9lT
A7fYfFQzwjQxFsaEiyWbNfCJLs+xr/kBxj1Pv1p7phYepUy3XqZ8gEkErwSP
qtZCwMY5UiTyPvagJ6GJurUWhFiMMgKJ1TD9pDNRzMu1QHrPRhRnpYqZOXlY
8pyqA/NXHo7+2fcwB1Y9CpxiHViFUQkL+t3F3Fcb+29Z1AFPwaQGmecdzK9C
Kvm+Xx2U747dZ/JWxiJNzio8qa2DXMLrzegERSxW0pPBkVAH3WHKhdaVt7Hv
FGsEL9J64NPf1JeZvYWVpDe9jsLXQ8yqV/QXBQVsZMuzsvFXPUxQZunfeHgD
W8eMv8uM1IOzimF7TZ4cRhZ0M/T7fj14iGtPk56Rw4Q5yQ0DpBqgY5+bb30M
MLmn87f/PGiAL6Gklri7gGkWNopY2jXAic2KSApPDHO/G0ykmNMAgklU1ZlW
CPY+0nq+qL0Bjoe95NiscVjStEoH32oDmC9fOynuJIu1O9PHUgg2gnRlPTdP
sgzGkRSONSQ0wtObOWKPDCQxid+Ol6WrG8GQY41LLPYadhunQ5cy2Qhvvi3+
eTsrgf3XdWHc72ITFCu5dR/4iGO+bH/rdnFN8MHhcVDMmBgWZTGWaf6wCX6k
mtus4sSwqqNY91uRTdC/tBTSTimK9Sl6mRUWNIEbUTQxiZMItvjRWOVybxPs
T9zovdV3FTsryHuR/EwzFIz/sDxXLoyZaKX9qgtqhmMfRa+/e/yYU1xwomRq
M4hw1we+usCPBa9Yv0lqaIb0MvZIZ3k+LP+1yCPfEy1wg68xpSuTF2tqo5ff
4W4BsYfh+fkrl7Cx85tCZnIt8OAPTS6z+CXsZHb+ofyrFuCUkXdw6+DGWA7C
CflfWkBP8e/7s3zc2BUFp5ZLpS0gNxLNq+7DhWmNXP984k8L7JFaSJ1Q5cRS
KCpka1+0gtBe5603chex0vvfuK+FtkJ4gsrAFTk2rCPG61RiVivw0XR6miqx
Yn8k5Ie9l1uh4PqjWitbFozWg7d6i6oNqKpMiNM/nMe4msnTTPjbwPeSt7X5
T2ZMybDJ5aZZGzy9/4foDgcTpp+eZvTDuw0Eh/Wl9vUYsRe7wUo88W2wfflC
mFAsAxb15h4L2UQb2Dp6PEZlzmFLxT3F1TrtsPDWJd4omx5L6iyjaXBph0Pf
11Kn6Ogxg4UUw5bodphk77B8bXsa62N2o+wdbQc1g6SvTFG0WKiI+aPBo3b4
211N8eQ1DcabkDKwStcBzzoDzKodqLHJn++FNkU6oJXAeZPehQorq/fTtMd3
gLa5pp5mACX2ufulx65aB/wIeK2DfaPANJfMeg5edMBn3eWasoWTWAuL7Euy
/A6YR8yX9HtJsVRekSTf2g7gU22NjeQkxfzELnVQ9HVA/5OZaLAjweSU6Hho
djtAI1TWZE2QGOPQJFN5R94JcV8UQnxCiLC/hn8c6Zk7//GRXlHbPkaLnKeb
GWQ6obTnW+2HX3/RcJ+B7QjFTihpMJRpyz5EbUNb2Vl0OyH9HfH6l4wD9Mr3
QtuLrp2gYRKUH1P1B40fCLpw+Vcn8D2NDUbVdlAPgof899ZOsF1InOH230b1
1+2fC451wqisEsPVui2UmcKg+upxJ7SXdDvnam6iO2cfrOTQdYEjQ5VqZsoG
2s2uxCTB0QVmDgqM/UQb6FspiSfS+C6I0bD61Va1jj69wR9WotYFkUyYlpjQ
Oqp472I5zqgLQooeaQxcW0PJzCnO4l93Qc+lKjyebgV1CR8pUaztAuR+czMq
toBqx3USmnu7gC1c9oad6jx6LbOOVmW2C6YIH0fjHebQ9dpsI3XyboBtj8SO
wRm0tTMxuIepG5IL3kzeYJxBU0ejCjT5umHtrZLwFx0CarrtTfVQsRsOta+8
pdiaQuWIXSRGdbrh2JTMJ15pCuWgea7/2KobmqftL0kmT6JDPDq5xkHdQLDs
OLT6bwJV1RDWfdraDS5FLPqiASNoS72Da89IN6TpDFd7Rg+jirIVn3HL3TAZ
3OL8NX8IleO6P059qgfU5rfVcESDaHnYZyJ7lh4Qd01PQUQGUBzlLOcofw/8
eNb3/rR5P3pt3ckk43YPfLkOZArzvWiucZUPg3YP3OkrKL8u1ote6T+V7Gbe
A8PJspqXvHpQvrKYhbu+PZDTF3D2nHg3yhJc82y1ugeql+wI13s60PBjmhDN
7h7oJihR5N/uQM/aauWUTfXAK8k7tq6v21Fq3cXNt8S9YP9QNqDGsxUNaBVn
2D3dCz8PYk5ZvWlBT+LdJB9z9ILCLiMrxbdm9PjyaeerWC9McNx05x5vRF9G
60RFqPQCbW4gKydlI7pHG//z+FEvTIbcL2W63oBubF87an/ZC5TsWnjy7DqU
UP3wtU1JL6w6iIYfzFSjBlKJCQONvZD86tF+Gb4aHU1drYXBXmi7onk8EFeF
9oV6UtDv9UJcJrXwY7tK9P6JZn5n8j74apt30YFQgXY4nVOeZOwDrSNyARmd
CrTxcfKbnGt9oDnwWk81tgxV6F7PPC/fB/KZlmpnE36hVQrXOzw1+mCMwUyD
LLsULRVuPaNu2wcLlQG9BuMlaObBRsRGdh8EvvMxOx1WiAo8xxXrVvQBe1b7
V6y7AE2e8hmqau+DjxI0+B9MBWhsIzPbh9U+mCkV3PiS+wNlRYzQg799wEDG
q59F8QP9lJ322JimH9QJz1tRkzz0fQQaJy7UD8lzRhucgrko7Sn/6mjZftgZ
snS7GJ6DBrl3EkiV+8H90f0viydyUG9Tk8s9lv2QQMLKnzibhTqKB6bbJffD
QG7hVgxJOqpAM0B6uagfJjeOityp0lDGuUsPBxv6ofHYnubEhVS0IKqSEl3s
h2Fd5ZEOjRTU147OcH2/H74d3x31cktGNVUeFcWdGoAOHTGlHxlJ6A7xHzNy
4QHw4Be4F8idiNYNK5QVIwPg76Igm2WRgIbnf2R4qjIA/Dm+pzV+xKOSliI1
Hc8H4G2qh7ikfhzq0GHOGZU7AOTDKoTfy19RhdR8pzvVA6C+G/dDozsGZfQm
7TjqHoBs/ZE4t+ovaIHUV3fj7QEYZgyYryuPRn3pV3oZTg7CloOEEb45CtVc
ui7cwDgIdflU5JLjn9DtmL5hIelBqKrCyRmyR6I1Tjzi47cHoSKtiodCOQL9
qP4iMFRnELo+s0ZTuoejEidpZXZcBuFAL6yH6c9H1M5aPrz81yAwa/ncK8e9
R2/e+rDyX9u/fptCC7/Poeg5zsmbPOODQF04ShggDkV/9Lzc9CcaArVVibqU
oneod2aTkiz9EBAmCVn4uLeohj9z3ArnEHDJryw7hL1BN2V/qKrfGALv0CQB
44ggtIqBJIVMYwicd7M2HRMD0fdr944LTIagXs7jCeFnACoWv5RxwXcICrsR
hRgif/QFFfepmYYhoH3VysI05Y3KEWyMIgaHYJHa6ZmWoDd6pqysWHFxCDqO
FOonXV6juf/pWmSeGobD5lqFXUEv1Es5pdyAdRii1AWjmN94ouqXdhjPCg9D
hGo8f/amB/p7ILTWUWUYPtR4nSP79gqtyB1nFXg8DMKjjEyVwe5oSLCw3cjz
YTA3Tmc88HRDRaCRCx86DAZfiLci/VxRm2QiD6qeYUgqVy082nFE6xD/6WeE
Ybg5DxLt/I4oaw/dre6tYWDaIl/3M3ZA64nYaT8zjMCnb5p2NYt2KGtE0n9E
vCMgq29r0ydlh74QvtJrIjkClOWX15YDbdGLushnYa0RkFDVCNeWe4Hardcc
h5qPAN3hp1ylpP/QJt87xjuOI3AyU43Fle4/1CHvoUB55AiceZ1rWzv5HG2l
dilSHRoB6rW+fou+JyhXPDFr/uIINPRpcS3MW6FOMgGvzh+MAK6X29GA1Arl
MYtUmLowChP9vQj3PQvU5ZA9VUFoFJI9jzaXXpmjHe+TadJwo4DjTDyXVGiG
viwv6LF9NAr6Kim9RLKmaNcDVHrAehTmScWjr/qaoHzLtdE491HQy3mz8aTf
GO1m7jU68XUU2vS+3ECDjFCBF5vr4ROjcJ6/rfZYzAD1oHDVOFgfhTthZB7+
6o/RvhiSosfEY5Cm/WBe/rY+6tlM/4qPawx0WUxruVX00D7DT1PBYmNQEXwj
O+PRQ1Roj0Pht9wYNJBBK2qviw7wiNCUGI/B9StEZSY/tdErPwttLtqNgVeC
sYnDghbqrYb1eHmPgbsma4n/RS30qrtKtHLiGKSMuNVXfH6A+vY/5R+dHYMs
R7pa02l1dMR6Kxi/OwZr5btsD26oo2JkL9cTycfh0UbxdmSKGjoqElT4jG8c
ns5ONVt4qaJi9WcudEuPw6Uxp0HZlXuo/6ModynFcTjxdc96c0wFlQj8Lk9k
NQ4akyQGtKN30EAO0e8mLuPwwjlAfmheGZ0oKKJuDByHrPr9xzWHSmjwdH13
aNo4XDAk9hqXVUSncbOG3Cv/9JQFbvOeVkAHrleVWh+Ow+9yqfALRvKoGWv7
qZETE1BgylFqX3wTfciSZsbLMAE6dylyMxxvoJrnz39sZp2AMYcNC5kxOVSV
2a/ShmcC6jppsn0U5VB5RmPWn+ITEKJl5N0ojEeBoVPRQHYCygSuNzslAXr9
HOZ44sYEbM5Fk2hzA3r1zIWue+oTcOe0b+q/86Dnabv9CDYTcE3C0etP1XX0
HA0+P8BpAoiJjMhd12VQWuqsqSseE7BnRevtxiODklIFIc7vJqD1fu5J6a9S
6BHFH6uLERPgVwZ6b2Yk0T1y88jqmAkgxzNcjRGVRFdO3NikyZwA+0H7Z8iQ
BDpPlsORlz8BpRUta3aSEugUKbuK9q8JmPR7TlwSIY72Ex+kxLVMAGdSi2+r
hRha+TdXX2ppAsJCGjdJ8CJo6SFH8MjGBLBrVNHSvL6KFhy8Lfbcn4CHxIPk
a0FX0LQ/VudaKCfh6GGB0J0fQmjS3gD+P/pJsPO75KXaLYjG7io8Zzw/CVvv
WMfwfwTQsG2uJgO+SWAytmmj1+FHQ7ZCdk+ITIJbQ2iG33s+NHDziCdNahJc
H9fSnO+6jL76PfRqW2ESKN8V6LQZ8aKWK++vBZpOAsnTTKqwWm7UZJnI+Kr1
JIQQf8pfEeBG9ZeehfTYTcId3+bAk2Fc6P0FpaWL3pMQaBoVNe3AiarMFzHX
BP3D6/EKGKxyoLfneBUsP/yrxzi40lhxoMgMybe8uEmQ2uRZWxm6iEoTbNq0
UyfBnl5peW6BDRWbHjv4mzMJ7LcKoxWI2NDLkyWatysn4e375UdKchdQ+tEX
1KPjkzB293O3IwMzKkk3rXF5fhIeBtGtESkxobr4+1/+W5+Eq15LM4o+jGhc
oviVk8RTcH2RvlOSjgGt6493UKWcgss2Opj1o3PoIuW58ij6KdgfEdHzzzmL
ij3buneVawpmZVbFEq3OoJqxJpHOAlPwI8/i0a12etSlq2eiWmwKqPbIDmhl
6NFqyfz/tG9MwcFOUKDBhdOoxrH9B0+TKTB4HlknIUyNOonODjc/nYK763v4
XuwU+tlYk4fRfgrkS3gS7ulSoYR6yfxUnynAO3wlb0ykQCn2k/5uvZkCJxpK
YsU+clRIiEkBC5+CRMe4tAQactQ+ZLevO2kK/vp45JKHnECjqszZL2ZNgWOg
rFDsEBlattVvblE4BbbVF/+TFCRDT+oU7R3WT8HZZ/qP34+SoOGcziy8C1Og
X5K3OupJhJbcXzCy+T0FXOHcrnqrx8iYj05ayZ8pePiB8ohr6gjhXZTB3aOa
Br+nsWUr04eIEmuq96cz0zC9WmWs//sAeabC0jrNMg021cqhrScPkMLc/UdO
gtNwtWPyU9TtP8gIwSqpSnwazgr/CHG020OImIZXqXHTIE9rwamWvIvcdv35
6tudaTiXXytBx7mDDNx4+a3JehoePNjpzdffRA7tlxfOOUyDa9huknnpBsKR
oif22H0a+jMFqGzYNxBLaqR68+00hAi7aXVurSNv0YxTaMQ0GF4PftRjto7k
2rBp+H+dhrW+ET6yn2vIfs9fAmv2NLidjWPwyl5BLpI/EzYvmoZrbZ6etEXL
iJzMmH1OxTRQCZQeVtcvIYFfyk4qdE7DUJllZOTRAnLB7BXf841pqMUYQxeq
ZhHalk9Phfb/1YdtNTnoZxESsR/ZC8QEKN5x1m4ymUEW/85Lm9AT4M3CV+fW
CwRkzJjUjfM8AV6edgzrcZ9GuhrZKsc4CCD2yLsrdXYKKQ5TV9QRIUBc7Bxc
qZlE0g+evmGUJoCfexv7B5lJJNbQr7MbI4BsYKqFZN4E4i9cqqNyjwDhP3ZZ
zE3HEa3aS1Y3nhFAQjjhMlY2jCgJQiaRwz+95IlzdLNDCBqqu/HL7V+emWHr
em4I4X30zkX6DQG+L+ezPvQeQFiqv5dtfySA/rom/5PafoSWv4Yk7zMBKuQk
zqpR9yPbW3uBwukEyKcOs5pP7UXmdc+2L+YR4Ad+6I4cSS8yUiF8NuXnP33c
r/Eq/R6kJtgomquZADq6pQ4RvN3IB56WNKZFAlykNK+3XulAfANn13p+E0Av
Lelut2UH4rJOJPH+DwHY+2Pxzj3tiFHptVJqyhlI2aG8JbvSimhyqRI1nZ6B
957aZrlkrYiSv9VNP+YZMOhJ9ATuFkRU42sLMd8MUH6YOa6xa0J4SopPl1+d
gbQiDQW15EaEmaNH46XUDNyUpbnGMdGAEC1TjO4ozMBHcjqVauN6pP31i5Ul
0xnwWDMSY8usQaoWgkW/W89ArHuyWi5NDVJwL9nezH4GBuRx2vwvqpGYCyN/
J7xn4KlKpeUlxSrkvecOPiZ4BlR7qbwMf1YivnOnfR9+nAGSePrAFdFKxDpP
nrYvfgYaChVePxesQAzOG6h/SJsBagoxDiW9ckTjlUu4at4M3JVJNb9vWYbg
lLMuNlfNgLGv2XmNT6XIqWnmqxWTM9BO1WS7r1SMyF1WddZcmIEIreNNoqAi
xOmJX/Xy+gwEDLLOl3UUIrOb21rniWah+WjXKO9pAcIqLRyXRT4L8YNrN8Or
8pH7L02W5elmYUMXhwSw5SMVZN0eLy7OQno/V8yJqTxk9zZVMwXvLBCkr/69
qZyHXHmDZ/gqPAv838rvEhXnItEM2d+bcf/4p/0/GX3LQRx433TxPJwFyqkL
Kt9vZiEZVjWsP41moYJj/1WvViZCyDwwU7OaBRfOctZTLzIQNSmrAzfnWfip
HXD5V0ka4u/6Tf6c5yxUuuwOdM2nImXlA+9S/Weh71OcMQ9bKiJ0+xZPf8Qs
2CpZnSqLSEGMg92fWX+dBR2xPNG00WQkqiO/iDR5Fh6fXRK+yJ+MkOvw3BUp
mIXIVnmN1fZEZMqS2CGgZxZ+n7kTP68dj5zPlK5gH5mF6mmCdXpdHKK68Zyq
YHoWltr5Beuk45BfLmMxUxuzcGqaIO/E/w3ZKmNYcNqfhQt9b5w6k2MRAdK7
4nQkc1Cie1eGRCAWiQz6WS9LPwd37mk+Wn4Rg7S1b9B3Mc8B127LFMmbL8iJ
cwJ6FhxzwJFrHDef8Rl58Tly/ePVOWjgL9m8TxqN3M2wP796dw7ubt2ierQb
gXj/Tjf2fjAHsuNHjGFyEUjJNUIGy6M5IGPrseL9EI7wlanL3Xo6B5kUwoZ5
N8IQfZLA4FHbOXhxjQ0M4z8iYQqVfbauc+Bv+72lhfwjQtJ+9Uls4By8sbPo
uzv2HpE5a54v+X4OtF8pPb+o+h6x0Yo5bvk0BxIT8yNcdaHI6Dj1xz8pcxCi
c8LmdlkIUrS+UKpePweqHI8DfQrfIMwW3Fxv2+cAHKiWmGuDEedxPb/G/jkI
FdVdsR4KQq63tavB/By4WBYXPr4QiETJUxa6rs/Bg01fstcKAch+qRxr4d4c
HI4NDdk5+SM/0/JnhSnn4efja1yza74IK/easiX9PDwxZjt5IOGLvIziy0k4
Pw+f/47JUnr4ILiAaNcLAvNAfEt1UuWyN1Jm5nmaUnkebG5y/PDM90QujpXY
37w/D0JQTKF9yRNxf7A19OrhPKzeIopo+OSBYDfNE3eezMPXnSOKWvZXSOzP
WCoxu3ngWbRb8uNyR4jEh55bv5yHL4tFho+F3ZAKzrvXCcHzIPmW/Zy8rivC
8cn3K3vYPDwXtGbudXVBPE9XkD38Mg/vlQQvuiU4I3LHYu2dGfMgyqhpd4XK
CakeYTYpb5sHyNONFOK0R3g01Bv3++bB6frvsz72doh3c9AVyfF5GBijd33Q
bovcLDnaS1+bhx4GLsP09y+QBFFp/fndeUA+CUSMHvyHnPj+XzU30QIkjYXS
jVj+h9RFEN5EnV6A0YXdoYT7Nggv3cXNXuYFcG+69P12zHPE11dLm55zAU6m
f3hf8OUZcsu+ictfdAG4jrY/tP54ijSoZxfaqy8A0WycEQFnifA1LbDm6C7A
xVz3dAUbCyQAz+21bLQADeJFUgKp5oiSSPgdY9sFMKprvhInYoakJrfnxLgu
AM/Hab3Ol6YIFTsl09DrBajjlblW2GaCNNO8nFT9uAA+POJVK17GiJBPvkLw
5wV4MZUdNkMwQoIPV9PqExagIHVBekrZCLmzZOiA5i/A1ZNHJrf4DJG2hlun
hPr+9afQagkL6yNHtoJPh0YXoCP18v3zio+QK+x0rf4zC/A7evRb/RM95K19
39uZrQVgUjwciKnRRco4StY+HC5AwDcffdN9HWS1+YuqHNkieKDpOvySOogK
l+mZr2cXofKGx/etMi3EvfW27d0Li1B4Wq4/4ZQWkukk1HPAtQjdNyWZEx5p
IrTtm2HaYotwRuOBw9rpB0irq9f5M2qLEK7OFB6ZrY4c8pq5VGgvQsiL12YR
3OqIUJfi8DODRQiKqtmojFJDgvnovzQ/XwSDgQoD1jBVpLR766+z4yIMjFN9
p2NWRZbdB/T5Xi2CeDfFgBVyD7nT+5XD5+0i2EWFFKtZ30Veerz2FA9fhE4B
5VzPd3eQdEHzqckv/+Z7Y1OJFSkj1F5XEtCMRfiUV+AZy6qEtFz5dXmveRHk
TNlyRwVvIYeDsf5J3Yuw8eBGiJ6bwr9/eC9oDC8C0Z/PFiQ98kjwsHJazuIi
OLYu9F0OuYmU+l6lNthYhGby/Dy97RvIsuhZa9r9RRjuHz/J/fgGcsd/6MoT
yiXQolDyG8LkkJfiZe/O0y+BoqWxa0ABHkkf+7Zez7wE/ynQmsiL4hHqa5a5
PHxLgJdeFbYSA6RlcvfamMISbHNc+u1XgUMOg4fDg1WW4KJu712DeVlESLp8
97rmElRpLHtGMMoiwW99iyNMl2BUwW3eyEcGKZWxYlGwXoInVoMTUbXSyDLh
ruuW3RK8OjPA63xKGrkjy4CoeS9BYxxpj3uyJPJydu/LcdASmD2dcNb4ew1J
Dx05yviwBI7xGf1C2tcQ6vn4Cqr4JSDJnZe+xyqBNH8Uu1lT+W+fO3FcLkOi
CI8tcwVT0xIMqB1TPlEURdzVjmSfdC0Brv5X1n6pCCJG2yR+ZvrfPJy1ZhVG
V5Hg5aws06UlsHonwDpifAWZaQoTLN5cgrMP+VkYrIWRSD9DbgOyZeCuCIzs
DxdENkxvfc2jXgbcmYqMqQIBRPmm8AVyhmUQIcs9QzvGjxwR/TmTeWkZgrzG
4saADzFxCSE5VFiG2NqII2f1S0iZtoP7vXvLMDEhMRCcyIMwSentx2ktwx6Z
HRH7ETfStHl5Q9FiGazzXRjpyrkQni6aZ19sliFOQtGN6TIX4p69ubDutAyZ
bp40Wx84EVHr8smIgGV4KnUF/8aVAwlUTny0FLoMwQVI1N8ldoTAHzSIRi1D
/E86d72Fi0jkrGbnTOoynC3RPnY5ZEWOHq9WiLcsA2lUkoaI23lEG+3B+fX8
w1/PaezLZEZyWEuKhkaW4U9Uuh3lHBNiMuiT7bmyDMblDnGYFSNSVvhEqHd7
GfyPRuxHfzAgzOFqKXxHyxC40U2GO8GANKuzxbbTroBhg4aWZ8FZhEeUlJWb
aQXyabNbaZnOIu50CxEO7CsgKkt/N/XlGUSs5cc7NpEVEP77icZCkx6JlL/z
6onaCmhkJPd9fkWLKJMwO54xWoFawYxYlyhq5Khs+lnxixVwYDK8F95NheS4
ZpkZvF4B6S+WGaf4KRETaVd98o8rkNIaO3/uEznCtK2gmZmwAkSdgikUXCeR
ppwzKg/yV+DsuD9eu4oMERVMReL7VuBW2VKd8g0SxCohC384uwKOJqfNnvIS
Iwls+fIPdlfg1OkvVTssRMhoeIliJvkqPE8r/JOLHeEYT1fcJWdehQihcFo+
i0PcvYBaNQO+VZBld5J5krGP8ydpflAsvQo0Xb1vimj+4Pa3eh890VmFC18/
yi4x7+DEnw0b1liuQpLgznJLxRbu6dyEKZvLP3xTm06m2yYu0WDW0iFwFeR5
VS0VVDZwY4NL1u1RqxAUpiljIPobp9qyY+/5cxXk0A1XhQeruKoyYnfxkVV4
s4NTe1a1iJPIofadOVyF5N4jyszoOVxSPNPbCLY1uFanpC3ZQ8Axh3OFK6Jr
MHD5dukvgylckL9wzIH+GkQxAqW61ATuyEU6KePVGghXM2zpx4zgbKxvZD6O
XYPA47MaMvhB3NRjlQL6yjUwYRoqClPsw2mo65RVT66BkbjQBbu0btyQ1UTv
Y7p1GDyh3PVEoB0XJPSxZVR4HVL5Hog25zTgcKu3qh/eWQc2jTckxO+rcctZ
B8WDVusg8f2Bq/DJchwXX5fT92frQCNmxzrOVYbTjk2Rcn6xDu+ec0owKfzC
1YQ8yGd2WQfuttbKh19/4r78l5WtFbAOeePNDbcji3Aq4sbJvcnrEMTkW33P
Iw/nnSZjlpi2Do0styTifufiSrhPX7LPWoezkVVJp8xzcbznfsWdK1yHgSwg
S3+UgzvaYoy5X7cON2l8TrGsZuKyCpo+dhLW4YfBpa/q/ik4l9tck5vz60B8
e9Oery4Zd3PIWZhxZR0qaBLekVIl44b+8tXpbq/D9hfdu6fiE3En5f12p0/8
BjjMMndniMfpd9/Q3eH9DfuBIfPauV9w1Oul7Bcsf0NTa7t6+2EozoI/K9Vk
5TfIpgoEFdm54M4xDl3TImyA+hdOLkFnVdy2uTLnytom3Jxf/vG3nBMn4aXd
Eb+zBY6kIYVyVFuy5ozpW8VL2+BeVDySdbJJto1Owdl2ewdiHP/uwI0vsvyv
eW2DV3ZhLrBM79n0C9mpsjiRuok9EFvhu+lkpyjb8dhUJX7+D+ze+pp7u4hN
Nsfl2eT42D60N7WZDo1uXq/b/9VTvnAAFhaitDsn669fv/E9qGLtEBSbXkX0
90df/3ZiuJCD8BfIk8ef/L1uex0Rvn+TZ+UIaIl7WOmpb11vaaNX8CMcwzDc
vjLszX5dj7XAx+cJEf4tqU+F47MdmeXXvszn14jwbAEBrp+KmmUc+PZNRyyJ
8TQlGdtjXvEyUcchxr9XifEvp/kkP484yhSdbb4g+YQEz7HXQbUcpSpzgrr7
2qkZEnzl7P5b9pN8MiuSR8eilqR4pQbOA3+pI+m2mBZvfwIp/rPpWNjlyF5p
RZmyYhErMnz0t6mT+MFU6a1CN1XLFTJ85UycVKO2p3Sk7cS3TvMT+MC/YxZH
z3Wk+w3N4oOWT+DLxYQ7yHEi0nRv3j22tziJb+SYO7/5ilza4bOv29rkSfzx
kn8TU/KklNNYrPJPU3K8l5MJldr5QinbR/o9BRPk+BdcNPWvL4ZKidgt7Q1P
keMF5Emskr6GSC0HOrERz5Djf9eSKDvwhEiZFL03U14gx/9K8ksx+u+tlObZ
+r3x3+R4A/LntKH0QVLSjVfZKEkp8NJ876a6zHykjiSIzR5eosA3kDQoCVe7
SJUovw30uEyBj9iaU6P/6yzlaHQhK5GfAs+dcRSQg3OWWn93bW9NmAJ/xjrk
g1uLo9TkomWgtyQFniiS3GSe316qJrYrM+MWBd6XCFmpLLWR8ih83N2lSIEn
FrggswI2Ukjb8u6uMgXe1HfP9mHoc6mCg5N4OVUKPLXUSB5lrbVUsqZsd582
BV5hung50dlKysS6YfdAlwLvdiNEtjvfUorD+wEr5yMK/Fkt6YjUXQupyJzn
pk8MKfBD9rr52UHmUhoNhwEhxhT4/aiLLO9GzaToxwMy800p8FMSdmUOEmZS
bduM3UPm//L233flQkylAqkTdo8t/+FXxANa102k/geGux8o
       "]]}}, {}}},
  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, 13800.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.777208890564168*^9, 3.777212110688179*^9, 
  3.777265950940359*^9, 3.777266203866997*^9, 3.7776382070208545`*^9, 
  3.777638292874705*^9, 3.7776390426435833`*^9, 3.7776392601343184`*^9, 
  3.777639298810023*^9, 3.777639332472573*^9, 3.7778086828968644`*^9, 
  3.777808848752353*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 250K", "Section",
 CellChangeTimes->{{3.777208898541063*^9, 3.777208900680191*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<tm/DFB1_CS2_250K_Tm.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "2000"}], ";"}], "\n", 
 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[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "B1", ",", " ", "T11"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "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.7772090086139207`*^9, 3.7772090123341465`*^9}, {
  3.7776382107012053`*^9, 3.7776382129225664`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtkgs0FXgexx1pWscrIVOrGrtCkTEzViXpm0KkhDZmZ2JoaMcjrVY0NKUS
DZc8FlfIo/K+3tzyuve67gMVZ8qwGb1NVI4okpu2nf/vnuNcn/P9vb7/7zX0
D/MIUFZSUir/+Pf/7z8+p4PB/pnc9seXIBz1c+ILt5UniCOx5XTxnvgPz4lj
8Lv94bKk8HHGD05jRSPPXWPsGePvzkJrsfVEm8rvpMdB9/tAef/KUdIT4OF1
diG45wnpP0PVvDFz5ofHpHNwfLdXJS48Ij0FvXXPftOye8jYMhWnRl7MrdAg
PpqGZdVDDvz9DxjXpOP4AQz6fhhhPJmBf+q9uaRxYZj6M1H/xi0+t+Ye9WfB
yu+9yKbqv9SfDa6mf/H++UHq52LRHutXrWbElpcQ1/7wx5s9A9Sfi4kNj8bL
Z+9Qfx6SdGxz4m2JJ/Mhf+3ztFuZ+NMC8Hud0o3e9TPmF0B1u7ZOy11i70JM
znaPJ6wjfluIb07aOE2m9jHOLsLL2366pcqkbyrG3MCokSa/l/FgMZYbTB27
UtfDOOoKEo21etS9btL+q3gW9NVzQ+du2n8VS2yU/n7WT0r7r0EtalB/Qiyj
/ddwU/i4oOoAcXYJMrbc535Y1EX7SxHW/3l4uQ7xYCnmvdttjn0hof1lEBVy
tPc97qT95bid3CPd+Q8x7S/HD/NV23NdhLS/AtljGQlRMwLaX4Gawqsh09+R
nl0J897o9lDTDtpfBQvj+LStPVQ/WAXJ4rLupb2kR/GQMsxrf/6yjfZXg2tt
8XSsn+r51TDUjRGGuPEZm9dgm/WO7YGZrYxjamCs36jdJiS9twYLQ2sifNbT
PINaBE2K9U7eofqQWsyEPuAUKFoYt9Zia7pdSFxOI2P1OnRO9tiLb9cw/rYO
uhury1L+dZ1xZR1uKHKOBHc1MVbU4bq1R/dLPep3rYfnmMXqPE4z49x6nCoY
NjJdT/Ne1MPxbXRAhLiBsW0D3qVFZL6JJU5qQHtrYN+CXy3j4QY4nvlaVaWo
jvw3wnHZ3+ZV/krzYhrh7ZaEyl9LyX8j/Da7iH1fkG7QhIFmsziTtGry3wSL
NOt81bektzah8d6fNpiFE6s3o36Z0O/1JI/8N4NjJsr8sryI/Ddjh9GbFnEI
6Ypm2Ppx8s15FeSfj4TCTckTalfIPx+T49qpm8NLyD8f3Aum87FKdK/tdXRs
HHXYEkmcdB2yikpJOfca+b+OrJl718o45eT/BpS5LkUuy/PI/w2s6utTbYsi
f70fOXpP6dO3VG/QAuNg1R/Vaun+kBbsPOcgmC2ie1pbUL8iJrRfhUv+W2Gs
A62fw2j/t60w0TDetF+d6itbUcwf5n9hW0z+W7HHdSI0K+My+W+D4PJnbnfc
qT+3Dbempjf7pmWR/zaEK/ZxPA3oftt2zI3YB6TFFJL/dsRtTBUNXab3GG7H
uP3xEzOPcsh/B9yn22YX76B7Yzog8lvj4nqf5vV24JF7Is8pJ5uxpgB35+wM
LUrSGFsLsD68uTc54j+MfQTY5QGv/ZH5jM8LsFT97tFfvWk+TwDN2b/Y85Oo
f0CAzYZyo1vOVxkvCBCebz91xInqjYU4/CTvs+CDNH+vECv5VVGSG3TPcSHu
ixIWRTiTni+EW6k8LCvqPGOJEMPOtiar1l5iPCHEgN+J9dLYAsbLRdgVsXWn
0pZUxnYiWH7Ji3ezT2AcKILJ1LlEcw26J1mEGzZTa/dmUz5NIuSWlfQqzlB+
IyLoB/6SuKeS+JNOiJOPLQwN0u/FohM1/55wrW3OYHygE9ygZa4m1ZTnT52Y
2m8gU04OYnytE/vS71u8Mqd7b3ViG/+k6FQHh/FMJwzk41fqrIhXixHep+Wc
OH2GsaMYSU9Cg4z8Ke8jYujovbezXLjIOFOMJU9jpiseUh7tYtxZOpeiYvUT
41Exbv4W8n3oDL2HZhc+PzPpvSbFi/LvgnW2WrlP0gXKvwvfmL2fEP2STvl3
wX9FpFfOesqD1wWl+aJRK41oyr8Lr/nqppmOyZR/F/QOVrS9/iSE8pdgQFF9
djGX/OyVwM9/wYBzaHcHy1+CYyaHBtMaYih/CXx5BWmKDReZLpGgbHWA1ZEm
0ickkEVq2ftUxjN9uRQLh5qsFfp0r50U/a9WTlv603sGShFQmJ7nvzGe8pfi
oLZpX1gjvUeTFFIz/ZUZsfR+I1IoltyzUnyVRPnL8PW+DRGeCTTfQobzywfs
YraS/wMymCu367cZJ1L+MvBXHZiSmZyj/GXQ8j242/3wacpfBkOvsep1a30o
fxlKn29NvOR8lPKX4+iuaeXOUXfmz1GOkgh/7T/rH6f85WgYX3MiySWM8pdj
HToMHLiHKH85hk57SXM8Yyl/OThqavWWpeRfsxvKa2tTP3WIovy7Ed5vZ697
jt7Lpxs2XY1LnUb3sv3nP9YH7vW4OkT1vG4M5c/mRBudYvpANy7Wjwy/a/Lc
9j8sspEV
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVlnc4lo8XxsksspKsJLtkr+J9nue8SIlsmYmQ3SAz2StJVghJGdmVFUIy
kuwte+/ttcXv+/vnnOu+Ptd1zrnPX/fF+4+0LE8QEREt/lf+3xve8S7NfHuM
+as5ca0dr2IpAQ7P9nPUwPAmoSc5dQU71d2R+C3HBAbbLh3N+y5jE47bh6VE
VuBo0GAz77aE/TgguRKb8xAqHWLlk3wXMbWakLxrgk4gU8euGxG/gFUE0V7P
JHIFKd2g2xnf57G3tOefBuZ4gcHmrnER5xxGutBB5gG+0EhGL1JiOovJqb7R
FBP0h2XawrmSzBksi459/j1RMOQ0cOAeq01jQW8vMT/PCYeUqYjswqkJbOT5
thirSgRcyUa+jOpNYPvC/X3OEAmZTRvdq23jmHhkIreQYDQIx8UmtLeMYWry
zxtDOGOAdD/GVFp7DLPZNHk0dfYNyAWYHGuVjWIpulzfE4niwEL/Qi7d9jBW
QU5qtrMVBwPhTVZKF4axvm/T5NqL8eBW9N1ES30Io2HN0jrVmwD+51+ZDtYM
YM9HRBbccpLBfOt0/7+1Piz+NX1Ed8p7KE5WXGW41YcZpuyxMqukQB9HbLdI
Zi/mojlY7QQfIODJbe1mxx4srzCZWlAwFTb5l6hOI12YbNjr0f70VCi/T6PW
UtaJ/bbwKQjiTAPCQXqMkWwnNnX2vv7E2XRwOFm1dl+pA2Nz4017S/QJIhlP
vms53YZlajC53nj2CcYNvP3zkVZM+hLFra2tT9DqHPbe1qkF0xqYW9VYzAQD
h4su5atNWCguV46yNxsovN99PuJrxJjPvqMp0cgBlTz52xs+v7GM5Vfj5k05
4O0ZWO882oD9TH4U/KM6F5wzN/ZSsn5hu0QSXS45+XB0pu7i/sM6jJP6xh0X
0c8QI1Rh2TxSi908Z/TXufgz3Kx9Ot2pVYs1x/58VH7vC3Djh6m3lWow9rx5
5zKbr/D+G9cjfuNq7EuBk8y13K8gYvuV5lb3D0yx9N9u6cpXcH1mHtS8XYXZ
19J7ljoVQOW2NX2SWiVW+fea37fnheB15/EZScVyTGu0VkGmuhC+aMxSCb4u
w2ambpN9O1EEfDQKcrjRUoxmzSykJLgIbtXSUDKEf8NMyEPDiyOL4Ti8JSqS
qxjboGLUkOouhh3s5/6dqCIsiD6ZvpipBHay7jdxkBdh+ewFMUWJJXBbX5MW
3SvAjsQHEgrTv4HeRo1L1qmvWNRVC2OJuW+QW8x13ybuC8aHrpwvvFwKkTEn
fLX5v2Bqyic+FHwuhSeJIUzRKflY8r3Ln76WlYHG8QWTopAcTNyyyFrssAz0
YOUJRXs29ssWvfwVLYdL+SyRJuzZ2IqzVt6X2nIICZc7HVKbiWFhHoWfW77D
vwz3+6dvZmDdkaTOInQVsNfPQV1VmI5Zx4VLf9aqAOIgtUw77nQs4uPHsvy+
CuAJN6VSpUnDxkr//MgbrwRtC9YSCdqP2NMqHV8hnirYb9aY6Yv7gFHWjcjn
PagC4aLzitncHzDRto363MUqUMA92vZWTMF8plmbc7Z+QKb8TBGm+Q77rfis
eJylGmICtXWN3iVhHUzzActXq+G8qr7M3HIiNlFex03mWg0C749IJxITMFIS
TzPJzWoYZaAVuCMQj1H3zIsCw0+QnWh+uh0Th539pEekKvYT+O4af5Igi8P4
VCTemz/6CU36pt78a2+wG9ELQ1GLP4HJm5MldDka07DUz00+VQPPg5c5Pj6N
xvRlfj3LvlQDeT4GdTlHUZj14AfWGqsacIiySrzJFoWFchvor0/WQBi/M1r0
NAKL2vrF/+9ELbDsa5uY0UdgiQ2SO5RctWDAqK+waPoay7Wji+U0rQWBtv3L
QouvsNbChi71oVp4fv/UkLLkS6w3UCrV6KAWNOt+bUxHhGKjeqmOVqx1EF00
OPho/QW2duBF761fB2pGRpcXKkMwBkVp9fzuOjg9ivs64xuEsTKlcZRv1sGz
3dIUw4NAjHuOfqWeoR7oL+2xkbsFYpJhy2HDGvVAQ6yKK/QIwHS70/5Qt9SD
bOH7SbVUP8wkgyGBeakeqpqvCFhI+mEP3HxseKh+wb/p4Gz2376YC7sxJU75
139+LYakdnyweIszSnb1v2CguDg+a8oLS5H2Pes69Qu+sSlHvRXywrIoV6f8
SBogt9FfacTjOVae+8c/Ad8AB62P5/cvemJDBN+fjZUNsDHGy1723h1bw8yz
rg01gMbDh36Pqdwx0peKkVn7DUDJma4c4+GGCV2kMHsh8xuOGWbCWu+7Yl63
w4iUv/4GCUlwmdN3xqLiHeZK235D2Pq7H3+Hn2IZk2rtAiu/Ia89/V+y5VOs
zZ0+hVKwEVxO6703e+6EcWbEYr/TGkFT2GmFpPkJJrnuyn+1thG4Zvlvt1o+
wW7iDGgzxxshSfn7nVXiJ9iTTrbRYI4/QLfFVvwPHmM1RyleN+L/wAcbC7Yv
Xx2wXmW/B99K/kC01znnWgoHbCHGXI2/5w8kkkjOF5vZY2cE+TgoGJpAfIbT
eIjTDrPQy6n89bIJ5IwyBJsarTG3j2Hp0tlNsHDW7/QjnDUWtuzwKuN3E1TX
WrDcLLDCiv1F7waRNcONL4Ykap8eYORfig+vezcDy0e5C1+KLDDWg9ip4nfN
cN+fhpgYs8CEldyaeSuaYZaqbHC/yRzTG5JNIttrhp+VFKQ5y/exTMpquXrH
Fjh9bofLWM0Mq9D+wC0V2QLOiXZMmkumWHuyH1X65xZ4PLIg9yzMFNuTvD4Y
sNQCrJnuhy4Z97BbZn88FB+0QrU0lw3fhjFmkptzvyigFRhU1D/mqRljjjth
t3hSW6G2sbJrNN8IS3ilzko61gqXaq3KVt0NscWy7rJagzagXfC86n9VH8vo
qDr926MNVBuIDcvS9DDT+Uyz5sT/eOumWACjHtbL/Pxkz3AbSH9rY/Q60sXG
v0dd2RRtB+4QDqncPW2sqiH4jjO+HYR4XlsL+WhjSV2ePjua7dD4ndHj3Ult
7M7ig+4Dx3bABSYMEvFqYc2scp6kxe0QRfTWcOmZBpbNJ5oRVN8OhZ61A7vn
NLBgcd52yt52eNX4temvvTomf4uW5/ROO+wq2j96T7iNlbpPNp291gHMptiF
yasqWGxg/1accgeslL7p0oy5hTlFtlxgNeyAbann4QWbyphw1jcnjmcdkPr+
qvhc5U0stf8lG39lB1wf3dOKf66E+Uz5XM9q6YCYkb5R8u3rmMma8yPBkQ7Y
nE8tK3hyHWOmNK0VOe6AJ2ZfMEdHRSxcRtLuKr4TMJpw9FmcPGavcOlNuWYn
hDn/lvjOL48pq3P8wN3vhDtnSWPSyvEYqRXlGbx/J9y//JNMfA4wj9ihcuX6
zv/yR9M42U8U0//YMdXU0wmW9UlUeZQoJpX/i0ZtphMIHKc6i3QQbK3+y30t
ii6Q1xmp9diTwyy3Ak4ZKXfByByfCaPTNUye2ENy2KAL/NG0gtWBqxjn6Ucm
92y74H1+J4ul0lVsgMegwPxlF3z1PCD9xS+DaegIGdq3dMHRYQbfWQYprLnB
5Vn3UBew9fj5VSRJYspy1Um4pS4gP2kpvn9JEpPn0h6lpuqGj3OxSf9UJDCp
NTeLvJvdUKep/SQhVwwrMK8JPKvfDVQ111qsbolhwn1Un55bdcODx+trdxdE
MYGq5PnbQd2g9vqBf7SoKMYaVvdwpbYbSLydor9lCWGxx6cj7nR1wzDjStIt
MiHsjJPe16qJbrDW5x9ws7iCURsubIYT94DJtT68rpAgdsxP5y6C9UB50Yr1
4owA5plokBCn1gOGJlfUxe8KYLs0qd+P7/bA7izRC89efmxjS+qozbMHLrva
L/R28GFTtUb+j8t7QMtJlXNongczlUlP62/sgdjNsHAnFx5sOHulHv7+x8nk
ql+T8WC9kb6U9Ls9QN4tW3hekBtrvPfp1VepXngTZ6rIGHURU+pay2e53guY
e9uktthFrEZJtt1XpxeEInar8js5sQqhFgYtp16wK+HvC2LjxPIPNuI2vvTC
S8K3TooX57HLj3BlhtW9gNQJJ1fOsGOfJgIHatp6gfrtUNPeDXYspZH5fPRK
LxRftNYuYWTDouLQjxJX+iDYNt5TpIcZo6EKqU2U64PE1Y9BpLeZsZdeHVMk
Kn2Q9Tt+p7nhHBZgacHfbdMH0ZwLbNv1TJirRGju0099MOU8SbQ2wYgpne4n
4S/tAzvCc10RK0aMaZbX6O/v/3TMVXWdlTNYScLPk+hCH4SQGN4+SXYG2ybe
e0Ah1A+E7dSbt7XosV+DSlVlSD9wu0X5TS3SYbHFMWft1frBm6BLOhZMh0nb
iNa1P+oH0QTrtJhXtJhLu9XFhIJ+COY9b9JfSY0pZRe7qdb2Q1yPt60SIzXG
FEDSftTVD1F82aufHlJhJTLvvcy3+kHsnNvrGeFT2FZy7+CVq3+BfUTN9e8A
BVbnxiMxevMvvBYXe/xAjQKL0XIMjTT4CyOXbW7K1JNjkuQ017Y9/kLRLUfb
OxVk2FOH67E/Kv+C50ehfp9WEkzxRvTyk9a/YENy4ecFQxKM8eK4Is/oX9AW
/lj9ZO4EVtTtuRlCNACcax4vVqhPYJtyRRpaCgOwJ5txmOREhNWcPZFJqjMA
MVK6ftxniLCoVfXjEosBuJQ7btRkc4yKpy7msQUNQM4pzoC2f/9Qx1PcVNO/
B+BvV7ff8Z0DVH7q8f24vwMwqvqJ9rBkH2WoqipTXhgA6uU/ldms+2jBE0Pr
fKpBmL/z4OOvpV10vT+y3lVtEMoH8pjzy7bR6oJR9sv3BiFr9I7NsuQ2GhEm
9HTo0SCMsUydxBVuoaLQyIWPHATT5LJPVaUE9PEnIp9T3YOAT3Dpfzq9gf5C
QiYfTg1C9/aF1wruGyh7N+2NLsIg0NvfnvCn3UAbiC7QJJ0dgjbF+khOhXWU
wxBJEtIbAiI5DYZ3oavo07W640irIQj5zXpXv3cF/ROkar7tOgS9xDTH3Hwr
qEuh0eUf8UPwvkKXMrxjCW2h9ijVGBgCgl+LmozuAsqVSsxevDAEmTdVnQ6q
5lG3ay+8WQ6GQNArb5XzyjzK8yBeaYJtGNyonYrwdHOo54+Sbqe7w8DVXPKi
7d802qmLXu13GIZbQ+WyET7TqMBSfSLOaxg+GHgfcJJPo13MPffJ3g9DFBd7
8ROWKfSy4+Za7NgwxKgs1p+/N4H6UD7TOVgbhoL9y1tZ2+Nob/KJ0nvEI6Di
px76KmIc9W2i9xbgGgFit/plnqYxtJ9H9HS5+Qhk8BbH6RWNoMLfvz3meDoC
rApqInTkI2iAJtbtFzACdzP1aT4bDaMiXmqJKukjUKqyu3SdYQgN6rO/NDwz
Am8kL5n7ZP9FhxwIYfidESB3t8+iZfmLipN6rqVTjELylQuhI6H96LDoy28P
BUaBOlcnYM21D5UMzbpOZDsKXjc5Pmw496ChnGJZFh6j4DQUNhZy2I2OlZRS
N4aOwmX6KM7uwG40bLKhKzJnFJgfm8erpHShk7gZM+7lUWhLdwu9sNmB9svW
VDgcjkK0maa/R0wH+oC9jWqIbAwkPtbNNct0oEasOQ/4zo7BXOrpHaGAdvQ6
kzn7d4kxCH8Wkx5u2YrC2Q5lU7kx0JzP9w2ob0FlGTFXMoUx+G7Mrtws0IKK
MLB1qmuNQYa9ffOpvSaUhaYreOrxGKx/ssmwrmpEGU/ji1+4jcGBagMnnUwj
SkP9eULYZwzmA7IUAgt+oySnXiLur8eAZbGsK+lrA7pMprB5On8MjA3RvLXW
evTnvwITmcUx8CVV3U3wqEErDjnDhjbGIBM/+rqcpQYtOQgv890fA/XTZ68P
lP9Ec/ZsGZtPjsOY2FDM6omf6Jstrj+mAuNgfk9sKEvrBxpBiNghEx0HwT3W
+bz8KjR084gnR2YcUlgIIWdoqlDv9QHvLaVx2KAPGfneW4HaLEdJhVqOAxVH
OW/Kq3LUYonIXMRhHPIU/txuOVGOmiw+jOh+Og5dyyN8vR5lqPb8rUWOgHGo
82JyQZ1KUWT6xIfCj+Mw2ZpW1+VfgtIPO1IPj45D+jWuJj3mQlSadlKHf24c
RE/IS7vnFqCGeO13T9bGoTNRvpNIoQD9mC4hTE48AT8NfDqpXL+i4g8J6iJc
E5B5u2hbcfMzeifFIt798gSMJ3cZncQ+ox6d3WO14hOw7ZBg3Rqej9ZKFz/R
V5iAqLxx6eNreajOsXO0r8UEkJ+vlnpbkY26ic0MNtlPwIlL+ORD3mw0yfwO
D5PzBMCR2HFJVBY61SBdnB04AYSwi2lTzpmoc8ROb1fGBHR11czwmWWgCTVW
Fzg+T8CBiZqB/GQ6WkXos7L+NgEPRc5Z8Funo+QGpbuHDRMwd2d+lsYjDY29
6M7KNz8BRRfd23MqPqLl2vP3H69PwMXv98NttD+iI4EGOeV7E1Ci10X3bOkD
yrdwDad+ahIM+qqjLXg/oN8K9u+6CU5CzTUplzGz9+jQlG1GjcQkBFxVFOv4
mowSnRtcocZNguoR9XEaWTJ689l37w+qk0Cm5VD9rjQJ7Vfw/PDHYRKGr0+G
BSknoIfOS/OMLpNQ4GK/ipa8RTkzjcXveU1C65dz4dJ8b1EbaqR2M3wSQJb0
VAJtPLrf/W+K/csklCtctFUij0U5KB4KWZVOAo8anunUyzeo/LUR56/Vk2D7
S08rgOENGvquilypYxIYDlZF7l2KQdkeeAs82piEb8cEXUbnKJSm+a39lf1J
2O3H85YyRqEnxIu+zBNPQeQEa9qdkkh04d/cVQv6KdDkVdk2OI5Ay95oKRuI
ToELg21WrdprNPfA/hXT1SmoShIZ98sJR1PMgju6sClo8rz1KJEqHA0RqjBQ
U58Ct0pm6qieMFSvntdW4eEU6KPGW9/DQ9FbgpBP5DIF4UGLQzakoSgaabhR
+XwK/FXr5Zc9X6B8d197XH01BTNG9JtXXULQLcJuqFDuFBRya45qhwSh0TzN
OecWpsCj94s2xQV/NCh0ZrV7fQq4RC3Ucr77oR5rRJJRe1NQexDKq2foh96v
kKqgPjkNoq+IuxLf+aJiOu+biQWm/8vvArjvsj4oT3kZ3Q+RaWj64Mv+r9kb
Zebs1vGUmQaPrMTLBH5vlGiJcnhbaRq2XmZ5Ls4+R9v8HZcXLaeBrb9Tky38
GVozHyaW5TAN+Tfop9BjD7RE/ZPzA+dpcKKi51Z18kCT2Yb+jQVMg7qpaNmM
uTvqUHidpjd1GoiZA7n8LV1RqklmkerxaThMO/nOf8QJlefXcL8zPw21ogK7
5e5OqJtdcO3S2jQ4uJgtEZic0JnNLT0Wohngzdf2uqHniFaTdvk4csxAQ0Vx
t9bKY3Tn5qkmSr4Z0EpuPA6Jf4wKv8KffS80A0Tsr4qeKj5GE89+yWrCzUBw
w8e30fKPUBe+V508RjOg0pw5cjxoj+bZ1rF/vz8DOP57WUvK9uhU/sEDTdsZ
eGbA8/FnuR2qKWN78Nx9BvDNxr/m0mzRKzdv8PTFzUDzIeVu0ltrdMKG2OVF
9wwwdz85TbNngbLkX62+MDQDEfhgPY7XFqjGxqNTJZMzMPdlgluZ3wKt9BhJ
ntiYgZTNcbvau+Zo/MvvDXL0s1CZ5VV6ecIMbW3boO9knoXfd9t8loPNUDLG
y8bWnLPgGCTv6yFihjomxa/FiMyCn/Vwdau/KXo7z5ll5fYslEVljfT6mKAB
67nmAbqzwOVwP+/M7F20XGoqj/XuLJyKkH9orHEXFajSkr9hPwv6OWnDXYLG
6Ik2EbuU0FnoVOm7Vk5qiJauzVdoNcwC1q0prCN+B2W25uYKb5sF9gKt1Otl
uqj7qHFwY98sGBBw99rkdVHZ1jZNmJuFaW8sy/GuDvo9p3hG6OQcvMU98vX4
rIWyc6+q2NDPgTkb21SeshbqmSDwNY1lDl7OSOBpZzRR3IvEZ2yX5yDdlpTp
Cq8mWvXAl+6kyhx4B+8osbmqoxwj5c6K2nMQ6s3YP9SkhnrpEga8jeZAJfLy
4Q0eNRRTtErftpsDPlnXkj+jqmj1xduyU2FzYOrbv2PlfQutHWK2+NE6B+wv
DBZ8NJVQHh2txv3eObh+6XLsrf7raEDTS2Hp0Tkw+UDknG12HVUsP9rNXZ0D
mgp+WcIzRfRX3NSrBLp5SH3SUSnZIo/y0XJs9jDPg8TXzPfiVvJoUJCePv3F
eUCCHMTuksijN5z/cIWIzQN3/O0pSnk8+lvryzdnrXmYs7e4sZuPoQJ/5tm/
Gs4Dh6uZD0qCoS/w3H5L9+fBmOXcxBUjFL0lGqtq7jQPgdcLdArOImjTac9x
jZh5SNCbZVMulEVbf9+gutI7D9/qdg9lfaXRIydB+4HhefiOnnZ6TSuNCl+g
bQmZnofHt9W1eVOk0HDn3vBpwjzEqQo5zTZIompclgzvzyzAPw7XPxGiEqhX
y02n22wLEGpy6Xl5mzia73al+4BrAa7a8L5veyyO0rRtvtEXX4DdyGeib0rF
0JZnfiwMmgtA4IpRD74rih7yPfCo1l8AyeCgHlIqUfRKp/LgQ9MFkO/cvav8
VAQNE6B/1/RoAYbDX5rryAqjqj3vOQPDF8Ds8OXywIIg2ixcyb/btAANpF5d
39v50cO/KSEZXQvQ61KeM6bPj14JDJjXGVyA632W1BaTfGjYoErO14UFuM0c
Zn3nmBdVDRkQtju5CFck/boyNHlQT4mq1yz0i9BdWuz8bJEbzR35sNbAvAiW
VyfSdIK5UWopmwIegUXILX7VvVjHhTaP70iNKC3CtV6riYQ7F9HDsMHYMLVF
2JKk7/c+5kSvXP2xI3tnERLoTP+wZ3OiYeFBZXGWi7B6R3PaiJQTVZU7i2gG
LIL7ierXp+LPo00x4op1Pxdh2DGk65k8C8rjxFx97s8i+N5+Jn2jjBn10jyS
s+tcBOq7HAPH4syoOM0fCYbJRTDdJN7cFT6HxgebcZuSLkF3pWT/3Rtn0Q3L
G+8LqZfgzp4T31QXI6qiKMRGcXYJxBfuPRq7z4geEe0x5PMuwWP+uziykDOo
hUfEiUOlJbBJuFwTt0yPVum7eKmrL8Fre9pf5mH06DkZ4/2PekvA+UQ7Gi9E
j/7Z5N9Qtl4COS8lOzJnOlTM4cd43IslWFwKkD6WpkGP7q1USzQvAQnpngiV
60lUH+3GBXf/x/NNy64tU6Jf2ctLB4aWoJCwfKT7gBK1+Bv4xXd5CX6LeJIy
m1GgTVrnU9poloFh/OEPJlcylEeMhJ373DIo/RhwICMhQ71o5+NcLiwDnavY
qm0kKSreXPT6vOgyvO21+mtRTILGX1f1ttNcBr2LGZfymE+gG9ziB1UGy2A9
NiA2X0KMqpxgdmW4vww9H8eZruoRo0dVkw/LHJdBVFrp4fg7ItTi6jMTiphl
sBm+88M64AgRE8xGUnuXge/76IxKxR7SOpv7o21kGd54l/qTSO4htmmf8Ycz
y8CqE+QQkb+LpJ0vvq67swymf//2L+fsIEx01bcpmFdAnSBvyPVrCylormmT
4FyBjOgR/WWtLUT9Rb2mqcAKRHb0rLJPEJCQE026ZVf/44U/TrhSEJB9Qs9d
O4MVAHXRqz/tN5DYr/2jcWYrkJPZ5GNAtYFIPBw0q7NZAesko+s7OeuI/eyY
5XmPFVCjPVBj3lxDRv4uOrQlrMDfXydVU0RWkZoqYi+JoRWQbyHsB1ouICbP
SIlMp1bArN3eTnJgHjmQofALW1oBDuKZynrNeUTyK3XQ9OEKGHw279BWnkMy
Us+Fx51fhb5s/14//RlE3pSVro53FRLzs7hyJqaRUfbzUWtCq1AaEzWh8Gga
YY7lilVGV4ElfZM6+vUU8jJEKPnAZBXmjqTZby9OIALXRTkFrFaBmU6dPSl4
Aqkjlvio82gVyKZoVvd5J5Ajj6sZed6r8OuPgmWF9Tjy2EEh/17KKkwLS0df
IhtDdLQMqmrHV8E+zMPWlmsQqZYnx5nPr8KDk/Plou8GkCsShWUn1lfhpNUH
LIR1ADkRGjTASbQG1eXlSCn7X2TAdqznHu0aOHbwnW5A+hC6yZIYkTNrcFy6
IlHd1IsoGb3SPmZagz8hlnaLRr1IgYpsRzLHGrCw69bk+vUgL6/ENA8LrYGG
J+Onb3NdSE2a7cs8sTXIt9w0ZQ/uQnbZ8beeS63BI4+rw2b8XYjF6ZUGdmQN
Yii9zts6dCK4lRu1RqprMLaZm+NC04EsfT4o+2u7ButE6U+CZFsQLoFOt6yH
a9A3n+H9KKcZ0U/JlHF3XAMOf6IbzBeakboI3WJmjzVQIFNddaRpQt49+fxF
78UaPPy18G6MqhHpng98xP9qDTBOmwCDyN/IqfvGwjsRayAuaRl5heU34qJ1
Mjc2fg3c819MFog0IGoS5p96Pq3BErcF30nXeiQg59qD9Jw1kAu9YsxKU4+U
c9PxOn9eg7DWvyPCn+oQPsbKj4zf1qB8zUJedrQWOSIwJWv/WoPtSRq9dssa
5HPJn5iOqTVgInEO8gj9gXjc5BrfnPvvfi8Om3eTVYjigLsQ0/J/fp+OkslA
FTLwT+CX4dYanNyZ7A8gqUTIrwfvTJKtA5HwiTPvvpQjHb0jCuSn1oHBlZwr
kLscSbKWjhCgWYfPhb33Dd+WIeJh0wIOTOvg8DzJKPxVKWLSpWC4zbcO7kvi
8s9iS5BLlokZzILroG5WEnvpQglC2N7YkBVZh0YdMiLN7GIklPXjS2+ZdRCn
FEvubShCis2IKilvroOUQy7JXY5ChHqt4gKbzToUpNsYXxb5gvT5MtojDuuw
wx59423hZ+TjGfvSe0/W4ed7C40H1J+RqzJsmmnu6+DGuX2s9jsPMfdy9xMK
XQe9cZ48C6scRJiuo1U9fB0M1DvICb3ZyO4HATbHqHXoful26K2cjYTX9xWW
JKxD1vvBF2oyWUg5tfQ0lrMO+9KGh+clPyGBya/E7n9eh9jlgMTZsgxEQ3T6
eUDhOkiUlH2Wkc9AZrRjmBq/r0MOx06XlGE6Qp+4cUOreR00uP/lKGSkItaX
PmdbLK9DM2bdpZyWgrD1DD6F9XUYsjaLfaGVgrT6UGLsW+uwNW2SYXwiBZHo
N+vqOlyHYa8fUnItychREOOhPPUG+LGz6Dj5JiFfxPG/OOg2YCyHgcN/KxEx
H3GI2D+zAdJFTxsV7ROR31INPAVsG1BJi3zKNEtAoqfcb18U3AB+JZ7VMNt4
RCki49w/4Q3YDUzXqtuIQ3blusb7xTfgSGm6S/l5HGISfcUlQnYDSo43ftO/
jUUE5EeTj5X/05plfeYLMUjVe8W1YesNiBMe+CG8GIk8UXlSXma/AWae6p3m
0ZEIz867gDePN0CSmaTzJhKJvFDbYb7ttgFkRkS2xLERiM6/LHxF8Aa0dBHx
JhaFI+RZvVTxLzdAtFt+XZ4jHCnTIel1er0BWx8rFlpCXyEcuca2gnEbEOCs
mK5jH4bMG9JGJ2RsgLOAAPcn9VAkiRx31yV7A76PyMnPtb5A1Aqs+bXyN0DK
yHH9g8YLpOhkzfeTJRvQgBd2UzMKQbxKn0651W9A689gi+thQQgj04CU3tQG
RE/5mghq+yPGg8GvAuc2gNswEl1c8kNSU6SmC5c2wJJtTOdPiB8iLhgZQ7e1
Adf+4VjKfvkiGnBzs5FsE54e/Px62dAHiSfbvrV7chMEK9dki0h8kNE/qR/5
aDahzOrZa3oTb+Sh7rGmP9MmTIpKN/w964WE2ZZ8wfFvgjvNzwqFvGdIt4gF
pZ3gJmQ1lUSTsT1D2LboTd+KbMJcynWs7aUHku3tQLstswn/aiT6rrm4I79j
eB5+vrkJJjlPRivsXRHSH1GCXLab4NWY6UHa7YSoBoC/xsNNMPyXRmRu54RE
K68MeDluglVCZvciqRPC1a0cOuixCfn6ElFqqCMC80TzMS83Qcjh2k+exsdI
SH4+1L7ehCfURropjx8jbU7G8evRm9CWlRm8xvIYMTn6dkMtaRNc7NvOt08+
RDzPPMqgyNuE8vOX/e7Z2yN1/exHUl83wSaXtelNrx1ClfxH16J4EwbuHQVN
KdghCQJ8ZD8rN2FtiHHhBb8tUooMm3u0bgKNo4EAQm+NbFmpXFxe3YSom2ZO
0WYWiEkSxSEFYROMc7rOo7vmyK/22l6u3U2o1/ytQBVpjsRfw4XpExHgTp5J
zdjv+wiOSminlo4AiWd68OoaZkg6Nt8xwkiAjoPO/oltU4TmaXruHjMBFl2C
GJTemyJjQ+fvi1wkwPObpN05C/eQgHyalgQxwn/+5a6idneR5Yk/n4qlCLBw
4ka2RZcxcudcsF/7NQL03Lsz/Q41RgR8jmXI5QlQ6eN67iSHEdKsufbxiRYB
/poF7TAd6yOMWx1uN50IkHWh1+ELoos8vxSube5KgKQLR4yi7TrIzN1bwl7P
CHCpOefujIUOUvqrZrLQnwAZjP70jTHaiHF8odqFGAJ0yXaHS5zWQuqbH12S
jSdA4/d4Fokvmogw8RVS3SQC8BkQ3pzR1USIbNPKQtMIMP5JN1ojTQNJk3vD
s11EgEfocZbdZzXk9GPNY7oyAlTvz9x1oFdDXNJODwhWEoDU1zT2vctt5Obp
oNdm9f/xuovftW+pIksjLvvNPf/NZ1LQg7O3EEk//fbUbQLcOxAKMryihAS2
zwu47RPAo+rfi9mf15Fejme+qkcEiOCMfuZscB1x/f5OfItsC+Lb0GiHcEWk
nDARo3R2C9rZApL+0CggVApPl1lZtkBGcqXaoFAeMY4kU1pl34Kzs2TwwUAe
ORIS2Inj2YIt70OJqzl4BG/lYDAvsQV3fG5PZZgBElV89LVSZgt0td9lM58B
ZIIk4lSU3H/6hjP1yTAMCUgp+C6rsAUWN+IFjU1R5PffnfNhWlvApMR9l+Ey
DlFT9ZsQfrIFNt6CFW+lryLvE87IkThvwVzgX+LkGhlkbS4tus9tC6Zu0gy1
acggkYENij4+W6CjuegS5SSNdFdRf+p4vQWBK9Wa7h2SCO/p5OP06C14Rx/R
0+ogibgYieh7xG2Bz5KxNAm1JHJuV/Mk9/stWFDVT5+6LYEYisXZPc3fgguc
fFLxM2JIjrdA3c2CLegbMTBdjxBDDlvK2M+XbEF9tnXfNE4MeWc71FJfuQUG
mSo9vm9FkbHUi6LnWrYgl5Mtxb5RGLFiyiWULW7BT8uj0JMelxFVr6qBsdUt
GE60JV9fu4SIz7RXUxC24Eb41kyK7SXkqHgrTPdwC8gfUzFxPhBAYnQx3nXq
bWg/8/Mysycf4lGpScVMvw1xRQtpFRR8yD1ei3X07DYMqWSZV77hRS5vhVSG
nd+GkWmbso+lPEh1TKeugPA2zKgkDhQycyMvLXYuukhvg/arJYkrulzIHUn2
lVp0G6LYEdfnby8iy12WQffUt+H5l467tlc5EdYzeyWxj7ch89vKYnE4GzI9
cd5/ym0bjh5+ej/ylBX5UiCvLu67DfmErGTtByzIDa2w2ZbIbbDeXWrRtTmH
MHB9LWRL2AamI1kJSg8mZGS9x9vm4zb06bquaMScRZ5GXmAmK9yGg/3GQo6p
Mwhmpjil9X0bGLqXhBeYzyCnxGy+pNRuwx09uch+XQbkQ3vBTVz3NqgesOd0
ztAhrbRK7k5b2xCY9+JsXRk1YnPmLF7y3zZ0SvkxlnyiQkjPTVFuke4ATG4/
mH1/CpHl8It3YdyBzokNMr88SqTnoqapDPsOqOXhHcVqKJDHvJwCu9w70Eqi
KJg7So6kX6n65i6xAwGLd4iKJciQAQnjGwfyO3DDsSKM4xMJQie33+uptQMY
u+T6W5kTiKey9Lb3kx2Yu7J4pVbtGFeg0R1I7LsDLLG9y+Vk/3Czeo5n/SN2
AC1cMngxu49jv0eXTpqyA/7bFp2U67s4rQf5kkGfd6CnjJdF/cIOLsRBtY7i
xw4YKL9dyny0hat6uqD9onUHUpPWtt+MbuIu+fM5hS3vAI0wPoPu7DpuSumI
pvpwBxbfr06Tlq3iUk71Zm9S7ULpXUgue7qMM27NU+Jn24XIRfZb5IaLOOao
wAnDy7vgnVRwc9lyHveaRYq15uYu2G9ZTqTOTOPIP0xpXrLahfDFm7QHExO4
5wIxLyICd4F4MWmgS3kMR/is8HMndRd6w3Slx5iHcHYym7smNbtA11UtL4fr
x01UfRT9NbYLFJ3qPgOz3TiiM0bdP4n3oPBQpNGmrQPHYXXGrZJrDxyY7Yjl
DVpxuO9NbGUKeyAv80djZ7ARZ0Ab8KPIYg/ih/KKeE/+wsV8I5DnZuwBl+eW
oTJxNa79nqVa6twe0P71U2nFf8PhAr6C59Ie3FsN9druKsF9yvwnrru2B//+
sdDzW5fgvNbfnKPY3YODbbpRj9hi3BX/X2O2FPtw5jigcf5kES4kg99JnG8f
xPmYFnQVv+JgeT7up/k+SAWfOHRKz8Ll0kuHJljtw7RMf9vLK1m4c9J+nk52
+1C2Imo0WpyJW/FiNeN12odk4mU72rZPuCQ6lcsv/PahvdCazpU1A7crkVuh
8WEf5uooBVlPp+K+ejwcHx3Zh1Bjt51G9SRcQamcGdXkPly3TKXy+ZGIK9im
HJee3YfsUyGfzon/px1Tx16t7oP1ZdO8LxcScEW2/aNyRAeQY+NVfsQajysx
lB+Ju3gA1fImIrFBMbgKWaZBdYsDODkT9cK2/hXu135l94/5A3h7pY2cTd8b
J6uQ9bJ69RA6Z0Wy7frNcB/IBr9xTv0DD3IWpucSSjhESFuRZ/kI1sm/Mb27
eAnX3EqvFDx1DNQuJ58M0dDijNlLAgPtiPCkUZLC6sWbckv+Qcwsq0R43vx7
rXN1vXIuAvuWQzbE+Odase23PlfIJRxHmK+vEON9ZeSfhz9NkSs908QmbXcC
r87E4kAfHSBHRt0lRTV9Au+Il+V4amkrtyx9dCxmQ4I/7TstfWJQTa41uTkg
ZIoEL2X3yFPho4Sc8rWqMlFbUjydzD0GvV9McoRvzzVslknxZjtSuM+sB7Lx
TmMfOqzI8O3sralsL8dl+8wepL5cIsNP7B1fsCquk6V99fqeszU5Xv6fnnZ/
dLasS1LQ89Vxcjz3WDSZ8bNIWbeRFJXvlhT4Pi7RlPr9p7JOd026S8Yo8Fmv
R/msDI1kRZ8u7g5OUODXLQ+YCJ2GskuhbueJpynwL8uwNU41Q1mL0qgHKvMU
+NHD0058qgayd8407I6uU+AX+/yv+VvqyV5tFDl/koQSj34uumBMoiN7JEn8
wIiXEp9Wc0rX8tZt2XKV8FAffko8A45Z0r9MVdb1Ptvn9EuUeLvezb2Hgqqy
a6+ldleFKPHWQWiH2zkV2fEFm9AAaUq8U9lQ1hiNsmxdSmd+3g1KvKgBhcTl
x9dlfb7d6+pUpsQbUNrdEya/Lou0Lu3sqFDi3W1prLFkRdmSg/9+oUGJF3fS
ibzXrSD76Y5cV68+JV5l7m9BsJ68rIXD750DQ0q8vSX3z7FDvCxngC77xbuU
eFeW0uT9VLxs/NdHlnZmlHiKWQ1BtR2Q1fl9+CLC/L99e4o7LqkgSz/6Ir/Y
khKfqV/+B9UE2dYtpq4BK0p81OXExHdEIBtKnbZzbEOJH2H0pz1njsn+D33q
sNQ=
       "]]}}, {}}},
  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, 13740.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7772090132518597`*^9, 3.7772121127681847`*^9, 
  3.7772659511653132`*^9, 3.777266204070072*^9, 3.7776382137054405`*^9, 
  3.777638293078845*^9, 3.7776390428663797`*^9, 3.7776392603530145`*^9, 
  3.7776392990297813`*^9, 3.7776393326912713`*^9, 3.777808683099742*^9, 
  3.7778088488616953`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit", "Subsection",
 CellChangeTimes->{{3.777208911490785*^9, 3.777208911787586*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "T1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}]}], "}"}], ",", "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[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "200000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "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[{"12", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    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[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772089219936657`*^9, 3.7772089306853557`*^9}, {
  3.7772656292637844`*^9, 3.7772656405354*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "1.1330986605928055`", "0.009806579340541197`", 
      "115.54474004085027`", "5.236885168012972`*^-162"},
     {"T1", "1538.5218561521835`", "17.22287811329587`", "89.33012508312777`",
       "1.5537457148272675`*^-143"}
    },
    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.7772090161134863`*^9, 3.7772121162565947`*^9, 
  3.7772659512121773`*^9, 3.777266204132559*^9, 3.77763821564214*^9, 
  3.777638293156952*^9, 3.7776390429601088`*^9, 3.7776392604154987`*^9, 
  3.7776392990951777`*^9, 3.7776393327537565`*^9, 3.7778086831622267`*^9, 
  3.77780884892418*^9}],

Cell[BoxData["0.9953683162727798`"], "Output",
 CellChangeTimes->{3.7772090161134863`*^9, 3.7772121162565947`*^9, 
  3.7772659512121773`*^9, 3.777266204132559*^9, 3.77763821564214*^9, 
  3.777638293156952*^9, 3.7776390429601088`*^9, 3.7776392604154987`*^9, 
  3.7776392990951777`*^9, 3.7776393327537565`*^9, 3.7778086831622267`*^9, 
  3.77780884892418*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJwtkgs0FXgexx1pWscrIVOrGrtCkTEzViXpm0KkhDZmZ2JoaMcjrVY0NKUS
DZc8FlfIo/K+3tzyuve67gMVZ8qwGb1NVI4okpu2nf/vnuNcn/P9vb7/7zX0
D/MIUFZSUir/+Pf/7z8+p4PB/pnc9seXIBz1c+ILt5UniCOx5XTxnvgPz4lj
8Lv94bKk8HHGD05jRSPPXWPsGePvzkJrsfVEm8rvpMdB9/tAef/KUdIT4OF1
diG45wnpP0PVvDFz5ofHpHNwfLdXJS48Ij0FvXXPftOye8jYMhWnRl7MrdAg
PpqGZdVDDvz9DxjXpOP4AQz6fhhhPJmBf+q9uaRxYZj6M1H/xi0+t+Ye9WfB
yu+9yKbqv9SfDa6mf/H++UHq52LRHutXrWbElpcQ1/7wx5s9A9Sfi4kNj8bL
Z+9Qfx6SdGxz4m2JJ/Mhf+3ztFuZ+NMC8Hud0o3e9TPmF0B1u7ZOy11i70JM
znaPJ6wjfluIb07aOE2m9jHOLsLL2366pcqkbyrG3MCokSa/l/FgMZYbTB27
UtfDOOoKEo21etS9btL+q3gW9NVzQ+du2n8VS2yU/n7WT0r7r0EtalB/Qiyj
/ddwU/i4oOoAcXYJMrbc535Y1EX7SxHW/3l4uQ7xYCnmvdttjn0hof1lEBVy
tPc97qT95bid3CPd+Q8x7S/HD/NV23NdhLS/AtljGQlRMwLaX4Gawqsh09+R
nl0J897o9lDTDtpfBQvj+LStPVQ/WAXJ4rLupb2kR/GQMsxrf/6yjfZXg2tt
8XSsn+r51TDUjRGGuPEZm9dgm/WO7YGZrYxjamCs36jdJiS9twYLQ2sifNbT
PINaBE2K9U7eofqQWsyEPuAUKFoYt9Zia7pdSFxOI2P1OnRO9tiLb9cw/rYO
uhury1L+dZ1xZR1uKHKOBHc1MVbU4bq1R/dLPep3rYfnmMXqPE4z49x6nCoY
NjJdT/Ne1MPxbXRAhLiBsW0D3qVFZL6JJU5qQHtrYN+CXy3j4QY4nvlaVaWo
jvw3wnHZ3+ZV/krzYhrh7ZaEyl9LyX8j/Da7iH1fkG7QhIFmsziTtGry3wSL
NOt81bektzah8d6fNpiFE6s3o36Z0O/1JI/8N4NjJsr8sryI/Ddjh9GbFnEI
6Ypm2Ppx8s15FeSfj4TCTckTalfIPx+T49qpm8NLyD8f3Aum87FKdK/tdXRs
HHXYEkmcdB2yikpJOfca+b+OrJl718o45eT/BpS5LkUuy/PI/w2s6utTbYsi
f70fOXpP6dO3VG/QAuNg1R/Vaun+kBbsPOcgmC2ie1pbUL8iJrRfhUv+W2Gs
A62fw2j/t60w0TDetF+d6itbUcwf5n9hW0z+W7HHdSI0K+My+W+D4PJnbnfc
qT+3Dbempjf7pmWR/zaEK/ZxPA3oftt2zI3YB6TFFJL/dsRtTBUNXab3GG7H
uP3xEzOPcsh/B9yn22YX76B7Yzog8lvj4nqf5vV24JF7Is8pJ5uxpgB35+wM
LUrSGFsLsD68uTc54j+MfQTY5QGv/ZH5jM8LsFT97tFfvWk+TwDN2b/Y85Oo
f0CAzYZyo1vOVxkvCBCebz91xInqjYU4/CTvs+CDNH+vECv5VVGSG3TPcSHu
ixIWRTiTni+EW6k8LCvqPGOJEMPOtiar1l5iPCHEgN+J9dLYAsbLRdgVsXWn
0pZUxnYiWH7Ji3ezT2AcKILJ1LlEcw26J1mEGzZTa/dmUz5NIuSWlfQqzlB+
IyLoB/6SuKeS+JNOiJOPLQwN0u/FohM1/55wrW3OYHygE9ygZa4m1ZTnT52Y
2m8gU04OYnytE/vS71u8Mqd7b3ViG/+k6FQHh/FMJwzk41fqrIhXixHep+Wc
OH2GsaMYSU9Cg4z8Ke8jYujovbezXLjIOFOMJU9jpiseUh7tYtxZOpeiYvUT
41Exbv4W8n3oDL2HZhc+PzPpvSbFi/LvgnW2WrlP0gXKvwvfmL2fEP2STvl3
wX9FpFfOesqD1wWl+aJRK41oyr8Lr/nqppmOyZR/F/QOVrS9/iSE8pdgQFF9
djGX/OyVwM9/wYBzaHcHy1+CYyaHBtMaYih/CXx5BWmKDReZLpGgbHWA1ZEm
0ickkEVq2ftUxjN9uRQLh5qsFfp0r50U/a9WTlv603sGShFQmJ7nvzGe8pfi
oLZpX1gjvUeTFFIz/ZUZsfR+I1IoltyzUnyVRPnL8PW+DRGeCTTfQobzywfs
YraS/wMymCu367cZJ1L+MvBXHZiSmZyj/GXQ8j242/3wacpfBkOvsep1a30o
fxlKn29NvOR8lPKX4+iuaeXOUXfmz1GOkgh/7T/rH6f85WgYX3MiySWM8pdj
HToMHLiHKH85hk57SXM8Yyl/OThqavWWpeRfsxvKa2tTP3WIovy7Ed5vZ697
jt7Lpxs2XY1LnUb3sv3nP9YH7vW4OkT1vG4M5c/mRBudYvpANy7Wjwy/a/Lc
9j8sspEV
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVl3c0l48XxyUiSTZZUYqyRzI+z/PcD0JIZkYpQkJGZEQZWRmVTSqJiGyy
995b9t57j4z4fX//3Hte57zPve9z/7nnzfHEWt2EkICAoPa/8v9e//Xq8my+
DeaI60lj59jEYr0sXQ5SVOBLmsbtFO4NjKyn83N+yiN4ahRrhDxcxyZtd48K
CEzhtBj3lUtya1j54WneiBQrKK6RZS9YW8FUqt6lSfDYgZTHAu/fjGWsxOfC
7SQCR9Af2ecN8FzCPl1gfemd4gpCH8aVBh4sYESLncTO4AHyDSLcxvrzmJRy
uJoQjydwcajWfLSYw5IpWRa+EfhCR5xDIsGvGWzcdkxUe+kdLJ5uVMnqn8YY
/8S5U/T6A8eIE9pCOY35fLrO+CblA7TEtjYeRE9io292hZiUgkD4t8zw+eUJ
7IC/v88egmHPrpvER3YCEw7+fIWPJxQ+J3DU0ZKNYyrSbxrfsYfBwdekk6Xl
Ucxs65H1NF04dHr4l37rHMFitS4XfyaIBMkLSrP+JUNYyRkiw72dSPhKLfA4
u3IQ68ufOaOxFAWUXPKWyR0DGAVTsjpZbzRsed/QRcn6sTejAotOKTFwxHib
e3W8B4v6SBXUE/sNxGKr8+Su92B6sftMjEqxMNI1W27v1I05qA1V2MF3CBEy
DBe90YUR3WgJ5Sj+DsowyoAL7MRCCEuftt+MA+MvV86d3e7A0nJiyHl44qEK
m3M8l9SOSQZ+HOtPiAd+jRSzgMg2rMHYPduH/Qfwyj172xvUik3TPdGZpEuA
Tv/6wdvfmjFmp6s/PhH8hFa1rtdlHA1Ykiq9o7zLT6BV3VL7pVWPiV0nUdzZ
+Qlq1qzKhUF1mPrg/JrqUhJMwaVJfuZabDx7oOrYJBnMlxzraMxrMKuApvDU
8WTALZQyMpZXY/64VCnS3l/wsfgbPsq5CmOk+0qRp5oCH5sIPyWOV2KJK+8n
jJpTgMMT49pXqsQqY6x9yytSwVu/z/2nUAX2l0Ck2yElHcoGhwYcnpVg7OTy
9x0EM+DuP6vJUItiTIHhwYB9bga0DpnLTToWYS0RldZFjzPh5mN21tRfBZjB
FyUhybhMkKH00HrTkY9tf/+zWTidCa4d4qw8x3kYS9qCfaFZFnzM+nllxToX
y8y2uyWRmgWX1T2cXuT8xmQL/v0tWM0CFdGX0tn/crDn1VSvC+yygXno9/1n
CdlY6YDE2/w3OWB8yKLGK5WJqY9Vy9yqyIGAWMVG8ocZ2Oz0XeJ8wt/Q0WlF
mK2UjlGsG77L8/0NY0nv6B7Kp2JxO0t3xJp+Q5KnGXemegomdmh/Lo88Fy5m
NLwIffoLe3TG/0NucC6Y1/KENiUmYZvnaFVv9uTCh7a4V75dPzEfqhiqXPo8
QG8Y2CUQ/8TSWbLDfn/Ogy6KWJ8d9wTsWHgwOichH84T1Q2R1sZhIeLGD0Xm
8+GHjqnpCGccdg1dZc25UQD/dJSoRPy/Yyp3CL9nZxTAiN6Kf7RxLDapEvhE
eLMArE8qyqOzv2EOmvSc2aKFcGhxz8YnIQaLeXzjZ1ZhIegSvA3/lPgFEzb5
/UzoqBBK6AorWX9/xurM0RtZaBHI3lvlnGiMxlbt1dMyq4vAveHo3An5JwwL
dM7JaC0GhdNyVSyL4VhPMJG9AGUJlE61hJ8TDseeRX4Qy1Avgd6bukt87mFY
UFxcYXpfCRScD5UT5g/FOJN4XfiZSoGHiL055X0IVpCWh0t/WAq/CFySfTeD
sfGCpvK0iVIwZlNzTW4Owl6WaXrwcZZBcHiQYDgWhJHWjEqnPS0Dl3MdXPo2
HzHB9s3a1KUyMF14J/zB8j3mPsPUkrJTDsUoB0Nbkx/WIOuSO3GxAiQeBJCd
O+2HddIveK2IV8BvI9yKI/4dNllUc4XYsQJSbHfML3b4YIuBwluUERWw7kdL
s3rJB9t6FFvFklsBxxJUScL23hjR6deGolsV0K0u5vNQwAsj/7MgCNSV0H7j
fO9KqCdG91ObQFmoEi66PCOR//cWu6Yk8s3IuhKo+wyr8kc8MPnQxeGQpUrw
y38joxTvhqma6KTGkFVBcgKNxkmmK6Zzq87l1/UqiJxN7GKqe4M9G/rOVGVa
BXKN7qFfiF9jNmkXFlt9qqCy9FldsIAL9srtTeFAQhUkfbTgJTdwxvyv6Ops
TFUBn8232cpuJyxkp47rH2E1/MWvEEXTO2Gf60X3SC9Xg4R3QpvgY0cs1YIy
gt2gGqK0rXamCRywtpz67nvD1WAW5JxV4WGH9XrfjH9wWA3y8z02wyu22Jh2
vK0pUw24bNYZWT+yxdYPXancdGrg8VBwl5XyC+xv6/K4v2MNHF6bJYlqtMFO
xeplRkTUQN6JSWeWog1GLSt2L72nBmRqCBYdM60wJvofbEVbNZDztkl+ssES
uzJPtVpLXQucf8+cws8/x0QDVwJHVGuhOaCqkVDKAtPq+dFE3loLWa0XEkl4
nmGPEqmjGZdroTDbidrJ3hR76uRuxnmuDkh2d85q1T7FHFgekuLu1MFoK0dk
6ksTzHW1sU/+WR3cgj3L3m5jzLfi1k8N3zrwUhjENd8yxqKMaeQsautg4tSt
Yo/zRlismAed43Qd1DhWyRy5PsGSSdem356uhz9p/UY524ZYUWqTZzS+HqoT
769pLhtgw9selY2l9fCx59pNeupH2DpmlCwxXA8LqWfnTcT0MaIA2eDkg3r4
KkXwnM7wIcbHQWLod6sBjN8qmPQ06GGudwMJ7mQ1ALnzmeTpYW0sJMpyvqC9
AXYN2BMlBbSxxCmVDu7VBkhhmpsK87mPtb+iiiXlaQRa2nC+ChktjD0xAmv4
0fjf/+4ap9tWx0Q3HLnEqxvhSWOlSbK5OqaA072QNNEICtf2RwRn1LAXXcxj
vmxN4G4pTZ04o4pVHce6ykc1QQPOYV72sgrWe+ft0/y8JriURj/zUeEuthhm
pML1pwm+2TS5MdgrYzQ819hIqJvBjshk5sq4ImasnVJaF9AMzhUhrdb78phT
XGCC2K9mmPg9PNatLI8Frli+T2xoBg1H63HOBDks11NQ34e4BU4O2F2OjG5j
ZzJzj267tYDLYrpFDb0MxnQYMZ37tQXOHxorNL2XxvjlnFqulrTA5cehp3NJ
pTHtYckvxPstEGLf31B3Fo8lkVZI1dq2AhMx60SXBYqVaHy/cjO4FTSoP1ZJ
hSBYR8zbcwkZrfCA5691WxkO2xe9PeS13ArRQzGnS69LYYqGTc6yT9ug9gHX
aSZpcexRasqT315tQJzdbHY5/BZmuxeoyBnfBlPyuATyFTEs+v09JqLxNjiS
FLP9++smtlTYU1it2w51nYPbbx+IYImdZecbnNshh/A01fM6YcxgIcmw5XM7
nEmdMxy/KYz1Mr45+2ekHRJ/S68McQhhwYKm+gPH7aDCMx3BFiOIXfuR1L96
oQMm88zxRmyC2ERxCO+WYAcIPf66taDJj5XV+963x3eASPs9rXPP+bAv3a/d
99Q6QEt2khPz58XuLz3tObTtgE69zU6CoRtYC5PUa6LcDlii7FVCG7iwX9cE
E31qOyBKOY5BnJoL8xW+2kHa2wFFSqb8vw2vYdKKFzjP73WA/ZUrH3wpr2Ls
94lUPpJ0wvGLT+qB1pzYP8N9RyrGTugTDZax6r6CFbyaaqaT6ITM3X594eTL
WIR3/07knU7Ig+GWZqbLmF1w6yUmvU4A1q3xzCAOjD85347NpRNus4hH9b9j
x+L7A5i5SjvB7NyW2hMVVsx92v12cmsnjLvQDJlYs2CP1u2teUY7QcV+poM1
khljJDWoFjjphJifVR+H9i9iuzRaK1kXukDYT+DzG9GLWPclRQZR9i6gwIe5
ktszYh9uiVqI47vgeotNkwQJA/Zc5np4kVoXODy2EnHXocfu3GMrxz3pgk/v
yR6fzqDDiExJafCe/+k3hN3ZLGgx54jhoju1XdD4K8/Yg5ka04nrnG7+0wUX
dZ8zuIZQYTfT6yhUZrsgL9v2JOQ8FbZem/lEnaQbKJPZPvleoMRaOxMCexi6
oUzhWoAW7wXs10h03n3ubqiLe8M8CBSYyY4X2YM73dBPoZZQ7kqOSZ9yFh3R
7YZJ/6ii3J/nMPbz1o8em3dDoTA7J20fGTbIqZttFNANGXG+ybcVzmKqmnx6
z1u74Ygg1tLa+gzWUu/g0jPcDcpV6g5pncTYHamKL7jlbmjfHPVVFifGpC9r
jJGf64EOh60aQWoi7Oa6k3GaQg9EmXKoae+cwrKNqrzpdHrgoFA986HjKYy/
79zPN6Y9MJo0uzN6RIBxl8Us3PXpAYbSiqVdKgKMKbDGarW6B9aVla82VB+h
ESfng+5394Dn0xe79geHKI2ddlbZZA/MWpbS5YgdouR6i1sfTv0BX2lHC6R8
Hz3honwlgP0B5FVItSv5Hvr6s250pMofkNTrOB9gsYv+pYgvPtH/A+QOqN2Z
9h10c+fmcfvrP3BxzYekNW4bna5+4GlT9AeG9dgpHzhvoga3En70N/4BWR9m
/c/7G+jIr9VaGPgDCnusLiavN9DeYA9Sqr9/oClKAUQC19HGxz/fZ93sBTed
g0Psxwoq172efvF2LwjqU+pc711Gq+QkOzw0e2HlxUes8PwyWsLXSq1u1wta
kiV+fO8X0fTDzcjNzF7wCAy7oNQ4h96wxhXqVfTCJUVBbxnOOfTnpPdgVXsv
3P3wKK3ccxaNbWRkDV3tBSGqZbTm3gwaEonGifD2wZM37fT5jFMoxbl31Z+l
+iA83BtxC5tEA1w7p08r9QFDvyEyRTOJepkYc/WY9cHyvda4i6wTqKOIf+rL
n31w4SLrzdtpo6jc+f7TXAV90Kty+2FX/QhKP3f1wUBDH5SWCnFcWRhG86Ir
z6KLfdDuxjsvjQ2hPi8vGK4f9AFB3lmbDLtB9L6KfkHcuX74bOHjx5Q+gO6e
2n9KwtcPbAJ/tW+J9qN1Q3JlhUg/JO1rTQa79aERuWF0z1X6wSOKNwzX0YuK
mQnWdFj3g8ECDeuk+x/UocOUIzq7H34YL92/y9yNyv3KdVKu7of527JFJ4Fd
KL3X6Y7j7n44nzbGOUbYhebd+uZqtNMPdHNe+j8POtCdmN4hXvEBUC1rGcPz
t6E1TpwiYwoDwGXuiK7fbUXD1G39g3UHIL9Oh0zwZQsqeoZCYtd5AKTWSdNj
upvQl5a3I8pLB6DDZ4WMc6AelZUPXXnRNgBTmYVVKHc9SssxIcs5NgC7RFxB
Xq/r0N89r7feEQzCpYUz4bsiteiW1G9VdZlBmON/5Og4WIVW0REmEWkOAg2b
k+OMShUasnbvJM94ENRbFG6Y1FeiwvFLacw+gyA2dOkMe00Fakt25dxMwyD8
nvS6Xt1VikpP2zyJHBgEr6smo892S1DqsrLCO4uDUKr0tdGRvQTNfqH3LP3c
0H951/88tW8RutEfXOuoMgS+gQb3lT7loxXZYyw3Hg/BXGQZIrOUhwYF8r0c
th6CLSPbfAXpPFQQGi/jg4dA+bYzwezxb9TmJ4E7Wc8QxJy4UPqnZ6N1yLsp
q+khIKvwueXGlY2y9FyQ794eghNcJ4fyjyy0nuASxRe6YVC4T33jX1ImyqaH
fOHTHgbJPf3ijPw09OV6zUmw6TAQa5P8wU+kok0+yka7jsPAVJxLtESZijrk
PLhRHjUM+i/YDDo9fqGt5M4FqoPDYFjzFvcg4Sd6Of4US+7iMKRUeeWdPUxE
nST83C4eDsOpCrx4oFYiyvk0Sm6SeQQmbN5QejAmoK/L83rs9EfAi+lqbEBX
HNqlhYr3W44AofxtA1GlOJR7ufYzznUEEpry3bPqv6PdjH+eEH8bAav58sHC
5lj0hu3WesT4CFzzGthQPPiKupO6aB6ujwDdgXI885WvaG8MYcHjU6PgOdeL
Eah/QT2aqdy4L48CsW6inlZlNNrPKXi+yGgU6P0/siZMRKL8xfk2bC9Hocz9
eYuHWCTqpYb1vPUaBaKA17lCQRGogKvKZ6WEUZh8cGbQTS0c9el7fn1kdhRe
qzGE4UhD0WHL7UD83iigtDsd1O4hqDDR6/UEkjG4xiR0qewwGB0RDMi34h4D
kZTul1ePg1BR/+TbBOZjYJ0k/qdQ5wPqzy6UbOw8BpVCF1/uub1Hx/MKyBv9
x4A7R4VbOS0QDZyq7w5OGYMaTe6ggIsB6BRu1vDKyhgYmNEzDIu8Q/slq0os
j8bgqxW7aG6IL/qUpf3cMPE4iDMkldXt+KAPmFKeXqP7j8trhzkavNHb9EYs
xSLj0OGf3N4Q7YkCXecdA6lxSPSz17Fh9EQlaTFHYplxcJ9XMXP/9BYVoGbu
uqc+DivUpT2uCR7oRYpu32mbcZj/OdbPV+uG0p7H5/o5jQOfPMFP2HRFKcgz
Jvndx8HCxhX3h9MVPU0WgLz6OA5b2hV2659eoyvEMlvn08dhO8AgirXiFTpP
lMWekzsOLxQmVkzoXqGTpy+p6JSOw1lNsVAOaye079RhUlzLONSmTu64CDii
lf+yH91aGger4xvaSeMv0ZIj9sDhzXGQs9CJsLn/Es07/FDocTAOs+xmk53t
dmjKvjlty9kJ2OQM/H3SYouG71xuMuCegPG6iXcBqzZo0HbQHrHgf0wbWh/t
aoP6bx1zptyaAM/VjPEQKhvUbWPQbUduAqgV4x+Mu1mhZishN/1NJsCW7Q11
kZMFarxMYCRgOQE1+tUaetXm6KMlq6CelxPQ30Cam0FtjmosKC6xeU0AtxPk
H5U9Q5EZwu85cRPAiT9NOqH4FBWftmnT+TUBRpxObjP5Jqjw1Ojhv6wJeMxb
LFjIbYJyTRTdV6icgBiTwatmdMYo1Ygt+cjYBEyYiNIoMz5BxS5MaXLNTwDZ
BZ0XSKQhqofX+PpifQJej6cTtF40ROMSRPjPnJoEBYqWuUfXDVBhq+17Apcn
IVWP2Agbe4jejzWOenVjEoTvSm98pXqIOnf1jFcLT0K4pw5x2Z0HaLVY7gsd
mUnwvMs+/rVJF9U8sQ/1MJ4ESqoHD6LJtFEnodmh5ueTcDn3xKjo6X30i9F9
Tnr7SQj14yCwrtdCp+vFcn95T8LbTpJt6ghN1D5or7c7cRLmri4lThmro9FV
ppfYMiZB5s1DWWxSDS3b7jN9lv/f/mzre2Ckhp7RLfh7VD8JT/XKPzZZq6IR
HK+Yri1MgkiCjk2MwV20SGPhic3GJDgz9IZBkDI66q2bUrQ/CdQ3fB5k1Sqh
1xYlcPfIpsD7ioSULl4Rzc8+0HfimYI2E2JpF0d5dHjaPLFKZApmmt82SHfK
oQQMQ6vkuClIZpgK/iUghyq4FLt9V56C1AZL8b59WbRf5vX3Jssp6Kh6UoFU
SKNH9ssLtA5TYGJkafJJShplT3oo/Nh1Chjrvlb8KMKjZuRI9daHKVgdUG8x
rAb0oOffNEvmFHTNvaVw30dQNhIrPtOCKUjfwBuXXkVQaYlR+6yKKbAOmZMb
0sah/l/Lzsh1TsFsycggVaskyvzUjdt6cwq0Cd+GMu3dQilaPj3nPZgCo7uD
YUy6t1BC4d+ZC6emoZ7t81XhcjF08d+8uDHVNCg6fn0rFXkTLQxXv6MrOA2g
eIV8zk4ETT18/p5efBq+JPFzt20Jo7GGvp3d2DRw0y97EDsKo+/4SnRV7k3D
VL2H1HlfIVS79qq5jNU09FK5Nr6MEEAVeSCdwGEaNAM5o7Pq+FE0WG+z9M00
HERouSof8aHX9D86i7+fhsyHgd8oHHnRne2//nyp01Dm43OK/ud1dF6Ppn0x
ZxoiZJpVPhxzo8MVfDRJxdOgy5s49FiPG60JfPL5cvM0TF7Un/3MxoWGcrak
MCxOQ+QvSpk3vZyoj//sWs/GNOwfuXiX3+VEndcJREP2p6HRem3bt+EK+qTk
Zgn52RnwIjW2Vmm4jAppfms5xT0Do37JcQqr7ChnUSFlucAMjEuXxam4saOM
7D2ar2/NwJGF2bYADTtKsEw6sis3A+mMmfG2Pmxou6ftypLJDNyXsHWZ9WJG
qxYChZItZ6AFzswXdDChefd+2j+1n4EOTQ4FPg4mNIZ5+N+41wxkRXCQvW1n
RC1zblP0xs9An6LatexH9KjBRQP10JQZoDgfOG3cQodqujlHqOb857f46M0A
QofilDLYmqtmgEHI5kMCDy16bopRoGJiBt5bh5pJCFKj0lyqr+4vzIBq7lm9
3GIq1MnCt3p5/b99QyzhlxSp0NmtHe2LBLMQiiDudtaUaAVRt7st2yw4svHw
yv8+j+4pkDWTXpsFbD7WSWiXHOV/j6f7xjcLrIT3bCZx5OhnuszkZtws0K05
fWPtJ0Mdrr3v4nwwC0porGeDNCmaZl7DUvxkFvQyNVazfpKg0+mHT9XMZ+HN
AG+HGyUJqnbL/PDNq1lYCOokM1khRnkV5Dn7ImfB1Ws0qaTzNGoU6Gpl+W0W
uLQlLHg1TqPRHbkFp3/OAnrB16WhjxAl0eW8K5g3C1t+TFyii6fQSbNTDn49
syC4K2BcIkSAXkwXr7g0PAulHWSnh8JOENVNa7K8qVmgCiBYMGs+RkqdR2Mm
N2ehOK/+hp/8PyQqoLheimoOhCPP1D1wOkDa2jepuhjngIH/k1lK+z5CTHvj
4TP2OWAX5H4mwrOP2H6JWg8TmAPfbxQu7qt7yN00+4urd+fg9KPBKIjfQbw2
Uo28tOaAgHb3l9vFHaTo5nQak/4czIRnkgmGbiPcZerS8s/nIIYsKzcwaAsh
bBewiPWfA0LaIrXlzA1EgsY0VyxkDrRnw1SewQZiox1z0vJpDopyqJ/kdK0j
I2PkYftJc6BsLcUzeryGFKwvlKjXz4Gq0RQptraMMD67cvlD+xxgZTcU/3Et
I6/GHvo29s2BYNE/TbanS4hkW7sazM9BZwZ6uLWxgBSn5M7ynZ2Hd+elMmhk
5xCWK2tKZlTzQHNle+DMj1nkdTR31o+L8+D1N0dBmXQWwfl9dmG+MQ92OurZ
90emkbKnHpRnlebh5e3HwRp5kwjbaJG9rMY8KGw5Z5bcnERctbYH3R7MwxFT
W8LXggkEkzVN2LWYB0KWSGfThnGkguOu5HTgPMyktmRKM48i7J98vl0Knwcq
4bGqcOURxIOygujB13n4WjEi4+w5jEifCLd3ps0DKa5c5tGpIaR6mNG4vG0e
wlDsTrREP8Kpqd540DsPY283rr4K7UO8mgP4xcbm4c7nDyEdG72IbNHx39S1
ecjfW+C0Kv6D1EVOv4+mXIB6qYzbN926kWsX2Lb+MC7A5+FD3/j9LsTHR1uH
imMBKr/cP5/s2IXI2zddfie0AFcPsiQZXDuRBvXMfHv1BSgTv/x52qgd4W5a
YMnSWwAZYqHyC+/bED/8lbfLTxbAszl99KS4FVEUjFA2slsANUHr4qAbLUjz
+dcTqmELQIOJuT2Qa0R4vXPlAr8sQOmzH6zvPzUggUerKfU//tMrdn8w3KhH
lJcMHdDc/+YZxXfZpdchbQ3y53h7F+D1gZnjll4NcmzH83xwZAEW6ok8mAaq
Ef5LF1rfzSyA4QDJRw+9auSDfe+Hme0FMODy/ljytApRuWxC/Y1mEXLDP02U
xFUgrq0KdneZF0FZPWM5T7wCSXfi7Tm8vAiHCxn6GXHlCEX7VriO8CI0k5ld
C6UtQ1pd3l6kVluETy1Uq9rCxcjRtafOFTr/6T199Hi8ixDerjtDVgaL4Egr
pK4+XIgEclN9bbZeBCLbMVPeyAJE+c83du8PiyBOTkgtjMtDXrt7eohELEKb
K8On0vRcJJXHdHLi6yK8IhbY6+DMRcjf8v9A0xaBa0bl6k3m30gLfynX3+ZF
eLyfs/qZPxs5Goh9l9i9CFfNLsaTFWf9d0+vBc2hRYjIZWd4oJiFBA4ppWQt
/ucnXaNJ+0UmovxukN/i7BJ0smjwZ5SmIa9Fyj5epFqCPAwV7iBIQ1JHv6/X
My5BaBhPW4JCKkJ+0yybk3sJbM9qHe3O/EJaJvZujsotwbbVQS+NZhJyFDgU
EaiyBN7iw5l5hT8RXvHyPcn7S2DJ53Bd6MpPJPCDT2GkyRJc7Ta9pXQqEVGW
okPUvJZA/mWPjN9cPPJ69u/Xk4AlOEkUOatnFo+kBg8fp4UuQVlHG6fKahxC
Ph9fQRa/BEFDqV9UT8UhzWHCsjWVS6AV+KEs5U4swmnHWMHQtASZA03PF3O+
Ia5qx1IWXUsQkCwr4j4YgwhTNIlQTy0BbcQh9QWJr0iUr+EVA6JleJ17Xdru
VjSyaSL/LYd8GT7Qcpa1en5ClGT5mEnolsE1h/rBUU8UckywT51+dRn+cQQ8
VfOORIydgwiP5JbBdGCT8TlTOFKm4+B6794yePsVKmz6hSEMtx4exGn/x4/N
fur+C0Watrg27zxbBs2t2neGayGIkGX5RKTfMtixmvmG/QtC/JUS9JeCl6E+
3cZT3y8Imb4eMIBGLwNvA12SLGMQEjV7v3Pm1zLEkOrvC7h+QI4fr1aItCxD
wf6TMxL6AYgO2oPz7VmG31It2uJx/kgWS1HB4PB/bP+rWXLZDzEe8M70WFmG
VxXT0+Uf3iHN6qyx7RQrQOf+8DZC5oNwCp1mucKwAoqp3iKVdt6I64WFSIdL
K8D+YrtMecILEW75/ZFVcAWqJkcdyRs8kajbym4WaisgNOHaqlHpgWxeET4s
012B2bs0rqIKHogSIaMj9ZMVOKW5UKHe5Y4cl01ZFdqugPku+8zomBtiLO7y
iCRsBUL8vY9LvrxGyugNB/W+rECilvrXggEXhGFH7n76jxVQu/Q9d5HZBWnK
olbRyl2BCFv2M8YZrxAhnl9IfO8KUI1GphxSOCJtc6nl7aMroFGvMdT40gEx
/5GBP5pdgb14BbH4UXvkB2vuba29FXD4G3vpXNlLhJ6y4i4J4yr0/jJfGE+y
RbJbqtpF2FfBr6rnniivLXLPr1bNgHsV7tK/+tuc/QJ5R9isVSi+CoeLywk2
jTbIwfYffQvdVahKXXoRIWqFRGT1j0UargKuvN5k3dwSEbEaMqwxWwXBDueK
4MTnyPO5cRNW51WI3v3iw8pngYwOLFm2R6/CL88g50y7Z4hzxOraYdwqcF1P
mgnvMEUYNDZecKeswp/CfodyIVNEtWXX3qN4Ffq4N2gtCZ4iVWWnXEWGV4HI
o6wcaTFCHrkQERhMr8I9EzFlRQUj5PAWydvA5VXolMUnNNY/QUSzyH1mjlaB
99uznJoOQyQxnuFDJOsaOOobyNwhNUCkDZgoa66uQebGNcezUo+RMRbWkHW+
NZBc/dNDY/EIYYy4HHEHXQPjisdcKkMPkYB3fDGHj9bg/LdpMte/ugj3bUF2
btM1CNI7T5aupIvUnBKJ07Reg2ZSTN4gXgc5dhZPTHNbA0tCXb3ux9qIjaVM
+uPYNdhQ19TqPauFkN+QEwxMWoOT1JbR7TeaSPKsQnZB5hp0XUpaKtjRQCYf
q+RRVa4BU73m6441dURTXbesemINilzLtwvOqf0XQc7gjBb+8/u34xJRnCrC
K5JTSLixBjRd5eiEpCpC6O8zyE6wDs6zFwivzKsgg+bjfx5fWAdGqUIzPLEy
QjmVFyZAsw5RKokvY7SVELkH7zVO6NehgfuFnUi6IpKtJNkZw7YOMcyXo76Y
3kECeMNaRvjWgWiKvymLVB6p+mEekCa0DoaVuWconeWQvyx4xTc310HvS1ru
9OptxPj8aj0Lsg6jLHf9P0/KIrhV+eoHyuvgIN3cSLgujdg+ZXvLo7oOUh/Z
HHqcpZGk0W041FiHnkbn4Tek0ght+/ey6AfrQO+/akzFi0eWMw4LB8zXIbhf
cbSZE0Muc3c5JVutg07wk1AJYxTRiU269cp2HWj1HNXUkxCkJkgrl9F5HcYy
KFSpUBzy9UVGprbfOryn/bFf9UUC6VnwtuZ6vw5Wj1RMPI7FEbInD/n3gtbh
GkUGH52xOOKgfjY1Iur/fiP29SVvISoiRj///FyHiqRy9SPKm4hXisTThJR1
qFuuEF34IIoUXaG8ap+xDs9Zh5mOLogi12hL42jz1yHrBxeTHLMIcrxNH6NR
tw4a376TG2sKIaKWKw+vNK1D98Pn+Q4Lgoj5TDXzVut/9+5McbnkIYj0/rH5
FPJnHe4kjHbPWgsgGXlNYZ3T66BrM7S848mLOCtcntiaXweBDWEX+1oeRHbw
FR/9yjr0eRwKbJ7jQQb/cdfp7azD4sPdX/o/ryNnbvvuTRFvwNZHPi9fWi6k
s3dU5gzZBmyecBm+dL6GfHkmFsRNsQGYl6uh2fRVRDhwhtuSfgMinRfoCWo4
kUfdMnq71zbASCjkPl3GZeS6yedERp4NuLdUdMFO+DKyvbu5KSmwARMa0xQ0
hRyIP1NcgNutDaD+oT9R1c6O5BoSlJIqbEBbBGkm4NkQ9y3tszzKG5A4FEkW
7siKKHpnaN1V3YCuaHEV/hwWZDzp0WqwzgbQ+5kRx0swI+TrJZeYzTbA0oia
e92NEenzoH2OWG4A6YH8fPkwAxJH87zg8YsNyJWm1e1CGBDxW8xqP15tQPym
ePldcnrEyPXVWz7/DRhrsilJ7aNB/n7nZrYN2YC0Ak2vgy5q5ENtX05e9AZo
XD0s+j1EhRSRi81gKRug19PqlEVNiagKzrzxytkAtRdRdDpuFMisRhh9Y/EG
lFAWGxOtkSNUnzfl1Vs24KlK7mO6c2RIYtn38YieDQhopx8zzSVFcJOqr4aG
N6ClHZeh9IIEeXY945fxygZwibLhRJiIkTZ3UoxlZwPyrR0rvBmIEJF+w+7u
ow34SiLne5vjNHLsQ3skTb4JuOg7K+napxCjUcugA5pNeOsnUy3lSYA03Kzn
zGbehEjtoRt7L05wodOv7nLwbMLZ0Ufmcm+PcI9CeR2CJDfhkd9m1b/+fRy3
9FjMyZ1NKDL4m+5mvYfbWg+ut9LdBJ4HnEpt2A6u7Jvs+sizTfgb9w15LbuF
81PZY7zrtAnnSpfPfXPawGn+S8aX+G5C3AH2yjtjDceW+tCcJ3ITqmVTFUuL
l3ELehdCoxM3QbMkPSiCYhH3+2xV8dm8TdAhvaRq+30O51rwctqpdhPKifc2
VK1mcHdMuc7P92zCdFSbRLX1FI6WfvCm9vQmcIrlJw3HTuCEeYLDKHc2oeJi
5W5r/hhO9b/k0Ui8BTc9JJVp/YZxVlonap70WxBFQSOonTqACzTPy8RxbcHn
bhMJ1Yt9uIYwTqsMhS3IFLJNNsnpwhGVh/BcNt+C3mPulW6FNhwsECyEBWyB
wF8CKzufBtxrGutEkrQt2Nc2us83Uo2r6Wc5vpm1BW/a5+4e6VTjzsU0aRnn
/jef6Vc60l+Fi+a+RlxZugX3eTK3iscrcQXIiJFz2xYI38kPuM1QgdsxVeJY
WduCGYIu2k/URbhHX0iOSLa3IIArucLyWSGurqO69/LfLVBXmrD5UlWAi5LA
BeoQbMMvHz3lCM98HO4c31415TYQnNWmPnszF+eVTtEaLbQNlwPVZV0hC0e7
0+mkYLcNvx9y6JX0JeLeXP+gYeS4DWHMoarEMom4WX1FfleXbdhNmr5/MTsB
V1BXNZXjuQ2v6tx7sc8/cA+jclQuhW3DxjOi27sRcbgfUuGcu7+34YB22K5V
OgYn+lanI353GywII94sng/DeXcscDsdbMPJ1ZlUlbBQXC+bi4fy8TbQMgtb
RbCG4hyLvwrvEO9Aecf1CH/xEFzR9mSYHN0OrLSVnRf+EITDm1rqLojswBiP
K7/s/QCcivLbSf4XOzC+7pI5Gf8WZ0qful24tAMFa99d/uq9wLVdkHtlt7ML
tXEvt8g/K+Kue16zC1zZAylSOXzV/DXcZFmcYN34X/ho/VCG/CURruOxiUr8
/D7Ibr6j+sM/LpXlbDUxNnoA9WnTnd05JVJ1B6U95QuHQBUlTycREiElKZMc
ULF2BGcz/MuCjW2lvhMP5bNP/wOxMa1mthpVKYRPQ5Zz5Rgm62pwly/xSLW0
Ucn5Tp+A2Zaf5KYnqdRDljxvbwsC/M6wcRX10qzksqcP48U1Arxc3JDBZ+Jq
SQfuA5Nhs1P47yz4OJqY75LRJ0FGG6un8BujC79Y/r2WLKBpZhazIMT7x37C
6iL1JInJu2+emyHEX+UQNJEVlZBcETs+ETI7jVe8zMz6RIpOsi2mxevd9Gm8
ue2gFdXSlsQdibJCQXMi/KLZNZP2rx0S2/lvVM1WiPAf7p355hefKhFlN/69
05QYP+5/J+jILkCiz/BpfMDyf7wfkX/N3FTiwvuPj+2fncGr+p6u/iwiJ+Hw
xefN2sQZvE/p9YTwgqsSTqOxSsUmJHgNl/KrXYuEEnb6j3ryxknw0g3mb72U
J8UFXy79HZokwb8mecdJPTghvuzvxHpqhgR/vmok8Ln5hLhxQchTpQUSvMHS
+Dg+dFz8Pk3937ENEvyFeyGLkiSj4uKNAqxnT5PiLWwn7FLi+8WPRU89fXCV
FN8VrjHxPrJDvEjpg787Fyl+7fa5rBmBDnHHJ8wZCddJ8XTW8tsB4e3i6x9v
/l3jI8U/efmypvJCm/jEopm/lxgpfvWWxMN8qWbxmtiu9DR5UvzShD9Nl26d
uHv+4+6uO6T4tqtXGGTaasWRtuW9PSVSPClBVhaLXK143uEZvLQqKd6ycrP7
N1Yj/vO+VHevDik+7WOkg4xOlbixZcPeoR4pfr+LmKRiplKc3UuLhUOfFJ/A
kmFE6lApHpVlbWJhSIr/5xK3khdTIa7ZcOQXZESKr7hob3AoViFONeaXnmtC
im+h9FUMii8Xb9uh7x40JcU/i6CvZRotE/cn/7F3YkaKZ2dAZR1Zy8T/Bysp
k40=
       "]]}}, {}}},
  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, 13740.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7772090161134863`*^9, 3.7772121162565947`*^9, 
  3.7772659512121773`*^9, 3.777266204132559*^9, 3.77763821564214*^9, 
  3.777638293156952*^9, 3.7776390429601088`*^9, 3.7776392604154987`*^9, 
  3.7776392990951777`*^9, 3.7776393327537565`*^9, 3.7778086831622267`*^9, 
  3.7778088490502253`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["T = 293K", "Section",
 CellChangeTimes->{{3.77720903252833*^9, 3.777209035682248*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
      "\"\<Tm/DFB1_CS2_293K_Tm_MS3.tsv\>\""}], ",", "\"\<Data\>\""}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"experiment", " ", "=", " ", 
   RowBox[{"experiment", "\[LeftDoubleBracket]", 
    RowBox[{"4", ";;", 
     RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"experiment", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", 
       RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{
    RowBox[{"experiment", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "/", 
    RowBox[{"Max", "[", 
     RowBox[{"experiment", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", "2"}], "]"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B1", " ", "=", "  ", "1.8"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"T11", " ", "=", " ", "250"}], ";"}], "\n", 
 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[{"-", "0.1"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"exponential", "[", 
      RowBox[{"t", ",", "B1", ",", " ", "T11"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "20000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Red"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "260000"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "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.777209063933202*^9, 3.7772090782717857`*^9}, {
  3.777638221417797*^9, 3.7776382346178637`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.01], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1kgs0lGkch9Flj1RCbZGWzlHtllrtKknxs6GyknTZLmIoqURGGGZc5sIY
g7nkUqrDbGVLceiiXLZMhVRCJLWpKLFKpc5SBrW7fX/fOXO+ec7zPu//fO/3
zfTb7+mvo6Wlxf/v9//968VngfnT68CwL/K97wdr57wl9oOZrWXGlpU9xDvg
fyWtDNJXxDtR/6Ezk8vrJvaHnmrNzEvHu4h3wUG+sDSF1UkcAK3YxpTFIS+J
d+P49fafn07vIN6DZYblwfNePifeC8fxp0e9fdxOHAhNXkPGqrg24n0QJRVn
x99/RhwEteMBx/dGT4mD0Rp7RzG6sZV4P7K6b5c3V/7FMEKwxGzApk3+iGF1
COQVNWLdoYfk2Sj08xYEBTwgz4bdimGLhaOayYfCmb0VitdN5EORP5gREGxK
jAP4+viX7pE/gNLIGj9rO2KEYUqD2ji0up58GAJslqZeEd0lH46mZzbjHoTX
kg9HG9+h2sjnDvkILEhbsffH5zXkI+AhTc+yc7xJnoMv2S3Nt0qqyHPglWs0
ZMqrJh+JgiXdDZZZleQjcdA3R0v57Br5KJwTHex/tJlYHQW7ox1GaUFq8lz4
Vr1ecJFTQZ4LTtznqZUTiMHDw9uhqvvWV8nzIPbXH9d5vpR8NBYk+r5Ya/kn
+Wi01EpiFoZcJh+DuYahtnYrS8jHYNL2Lrcy02LysdjPTbb/uJFYHYvLR19I
LCrOk4/DsTp/Pz3+BfJxqH+/7fvaJxcZNufDq34LP15VwDCLDz2N65uwVfkM
q/jQ9RxVNKxLvo0Pd5l6fd/lPOoF4Jb32Rdk/EG9AJ+/NDTN/o3WqwTIc91r
rDQk3yZAQPKewO+uHKdeiKwfKkJyTM5QL4SJ1oNS3mFilRD1xi4WF16dpF6I
Vmu9n0q0R3oR5i7v1H7xiZglQsFAnNSgPYt6EVSOA6IcNxX1IryrYfEkmlzq
41G76+qajTXkWfF4qOTOyGsRUB+PhK7+e8n+mdTHY6sm23R9Xgb1Cfhl3lLn
Sy1y6hNwrCyk41BUGvUJaO+NMI5+R9yWAF5/j9nrAQX1YrTuSF9U30eeJQY7
h1O5M1JMvRhDEZE6nbPCqRejJ3aes8NJKfWJuJuuI2sfFFGfiDLb3JvLWCnU
J+L6x/aJsT0J1Ceipsry0OZcGfUShLOVrdJMCfUSVN9wKlE0JlMvwe9utjPE
ViO9BPW90okav5H5SeAKVUqjOXRerCS0uXe6Tuv2qGD6JFQbGRd59wRSn4TZ
E8JsAqfEUS+FM080WcDhUy/F4U3yazc7eDRfit1nsoWRp6ZSL8WJ1XanxrvQ
+ZgnY9KvZwWLMIaZx0qGi9P8qgH9kfefjKZpVqnaTauoT8b4soEJy9tpf/MU
jM3wHFO4zYv6FMi69Au8TbjUp8A/ysmsY3Iw9SmwVw2kFzSlU5+Kv9ep2P0R
XOpTsS7XQJWuWUN9Kk5Hx3TvPitkfFsqVm+LNcjyDGLYXIYjpn0eJ4oD6Pll
GKx201xwoPetkuFGWnlwXZkXzZdhU6aJxftZdB7mcqTOyHhu9A2HejkiCot9
psuc6PzlEB5+7KLtmUS9HEem6g/5fqL9JylgH6mfVV3txLCVAh/UZmIfx30M
eygw/ZFPwad/6LxCFLAqtGb1jGYz+ysUsN4QO+fVZgHDRQrUPnEfvuW3nVnf
oED46fktix4HMdyrgCZ/2OaooZDmK7HWvE73hh6tt1LCe7GtcZ1ZGLOfhxIG
b+w8slzo+wxRQjOo9e2hcxyar8RdU6cjls30/RcpMdZxTyP7ywaar0Sxjrsr
u0TCrO9VwmW7/3XTlzsq/gWaHJgs
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdl3c8l9/7xymz8DEzQkh2yMh63/d9mdGQbNlEkiIhI3tFNilC9t57j7e3
LTujkCQkCSFJ+vr97n/O4368rnNdz9c553Ee5+K2ctS2OUFERKR7kojo/0bf
5xnBmv/0QfL/v5/YmyvcC+JhhjBsYF5IXreNvTo8H9hJdxu+qu26v1bZxmIq
+Pj0k41hI+1RTsy7LSzgrIiDV5EZuMxThlMQb2FVT84eLtpaweCQnPy13Q1M
fCzlhoiwNTw4cZlaFdvAikU437j+sAbkvfkYV9R3LOcTlxKFuw3U/Fi6Miy3
jr28xvfsYpgdvB/59rKJ8BVjzM2bcbtxD1IuGz+zufQViyESFG6ns4dOb1lc
b8Yq9qxGeEg7+T7cpAoLVopcwTzPXWJ0L3oI93i/XGSJ+IL98qi06XB0hNGh
mcnnDF8w+bUkY1I2J9D0ZMhbS13CalXOlmjOO0F60hArU9NnrOw3h9YnW2d4
Y5q8tMe4iG3kzu+T9jlDxErq7ZcVnzAR3TcZQsKP4fUTL74IrU9YfinXz8c/
HkN+zFkByRcLWIb1+UQyd1co6Qq1LHacxxZol1Dh966w+rjI7Gv/HMbZmr1y
E+cGNlwMC18F57BkFj65JKInwO2cc318+wMW/1ZgVjjMHazrdGI7SmawZdyb
+dif7vBjMCRMgHUGky9m+vTL1AOSlPdfCjybxhbCTyx3SnjCzKl2tjinKUxU
ffaH8awXrGoH/Ayxe4f512lvd6g9BUKvK+fFjQlsgq9vh7/iKWzqR51ocpvA
vEhrf/8M9gYf0eD7ijHjWC8++mSEmC98S3id8W9xFDsrQUa2neQLptl/ccve
o1idFkoicsIPNHkaRATPjmKn2qvJ4hz8QErvlmuoyQhWkZZx2kzRH5wlGyYE
t99itydnqWLd/KHKg+FhwtW3GAkNCw2hyB/MGqRl3+cOYobeUbRCZwLgTJdU
UqL9AHZk7MW0txYA1QJx7LfY+7D8+NozglyBELrP95kmthe7NbDFbKIXCHeC
Pj/Yo+jFsuXt2PBtgXCyb3Nrh7gHu8aqdy4qIQjuu9m0F57pwna0Yrg6+oJA
a01ssSSTgKU9G+DeOQoC6jOORdcuEbDtX4q8t+8FA+GvnTCLfif2alJUkA8N
gUKVgKlbzR2YEo29kNHjENAW/iYQZNyBravmCEfkh4CVOtnpucN2DKs5K7pN
HwpD12ZkhlXbseV4CsnWlVDwfCTU0TbfgsUMKEttsT+DtOxQonlcCyZ30lea
V/sZsFkSX4hIa8YinHdlwpufgUph0zUVhyZM8tYiTj82DO6V11bsijZgNA/3
m050hsGjyFAr1fJ6bDWcRqFsJwxOaFqzCUnVYykEeTkKw3BocmXz9VSuw8hk
46UbOZ8Dm/CV2jafGmxBt6DaVus5pPOYfUIYarDGR22SDAHPwehLeN1qQTXm
WPTtksOX58A58DL1xVwVNs2pIspZHAEH48OyDKaVWKXC7ZL+uQhQUMyqbyKu
xCIMnUSe/BcJTFGvR+XyKzDFuBShEedI4N8SrI8+KMcKSXf5AuSiAA3b5ZG7
W4Y9Xc85t9wdDTejOA2tPhZi+pTNaXH70bAcWqdKZ1yIsTB8jTrHFAO/TaKK
zGcKsG2xf9SDajHgP5a7njWXj+XdE6a6UBgDeJmQZaOTeRije+21P/gYuGRU
dzouLhcLCFF8PvohBtSm7nGd5M3FTLIMTvlQx4Lmxuklyxs5GO1cIMWUUyy4
JlPsfqjPwry/0aiXhMUCMa36apZhFrb2Oyk0MDMW7lX9CtI8yMS6zpSTiU/E
ggPN9DCvcibmqTVLEiYTB7w7SjEjX9Oxz51SxApHcdB+mfhAkjwVi0gKCE04
Ew+KeglZvt4p2GXHEeoN0Xgw4Hn25t7eayyczYEtwzweGCkt0aUfyZjEoyxJ
8o54YNXijmMkSsJm1bYaLGbi4ZzrV72tsFdYCDsGjVvx8IzG5tGpM6+wmZ73
1x/wJACrqYF6l9RLzI+T3nY8MAFC/G8RST5/gQntmK+LpCSAin/G3e4LL7CJ
vhLnkOoEWK2z3FbCJ2D8rhq+cl8SYFGZtXaUKAEbGvB79UbtBVQN12Dq8XEY
u8eP/vuUiRDDV3oCJYvBujWRW13cidBgSiApcovGnHifT3HKJ0KJ+RWr3M9R
WOcw39KofSJkT6iGDnRFYvZ8Zn9lBhMhzzYmzrzgOcZ4WBQYu5QIkyM5Gb4C
z7HW0d+U3w4T4X2MvTNpYThG5/3iTNrFl/CZ17eeoToMqx8fFCOJfgk3r0Wz
EH8OxawK2GpN817Cs8/VfQwuoRiVrx2uru0lRKZ/rJMiD8XMhUg07Ddfgv92
op+HZAhG5q9gNXLrFTwZmP55IisI0xMtTEhhTALrm297b0z6Y0EuNo/IxJLg
7DkBMgZvf6y6kUvTSSMJenqOat9c8Mfor7wkV/FJgg9jak/WvPywIfMgz28r
SXDX6IZXsrsP9jcHM9A7kQxOjMzf8xe8MZH1A8k29mRwYDE52XzNGwt3f/Q9
7lYyTMSE51UIPcXUYs0s5JuSgbP5dKjMKU/MdYoVyX6XDCYV/s5dzzywbI53
rDSbyaB8M1bmM6UHdqLw2vgn3tfAt7sZmMTgjrXiZdXCol6DhoxYZZSyG3Z5
h15k2jIFrBLKRI1PP8Zs5IcolJ6mwLLRXgla4owl+IV9KUpMAbdEofo/Ws7Y
NhXRG9+BFDC10UubTX2ElV74TscvnQotOZrNCtedsLn7+RsxN1PhOYWV9fQv
R4yq0nrg4F4qNH5CPpjddsTs0fdBQ2mp0P5WwCJF4CHGb9Dzy5UiDTboEE3h
1fuYfmrAxEeeNFBAHg+Qm9/HQj4jFRpIGkSIRy7ETttjS47V9hzOaVAn4O7j
Pn4PS3+WMUf4kAZ7LUVePCt3MZZGr06Gsjfgfrl+T9/rDrbgzGve2PMGto7e
KExx3MHyhN8eWCwc64/8LCnx1thrzf9YpyjSIViZ7L71f9aYULuFFq98Olx4
4uvN3GKJRbFLpz1RSwdJv/YGTQdLbMudcr1fOx1qv9qP/mG3xOovVYY+up8O
iX/vX0wJsMCuZJ1sa01Jh27NvEmPZjOs8N8UFX1BOixGFw2MiZthNCbFt21q
0mF4oE23PM8Um2TU2zs9lA5M11+c7k8xwe6E5F40+pcO0VMvYuWzbmMB9zRS
flpmAMNn5fFhZgNsuYtjTe1hBqRdDFY1LtPHrvJsyyR7ZsDAkJNVt7o+Rvch
eRziMwDYjLpY/PWw9Ovrp6IIGRBz1QvrJNPFSAraDT+NHOueK6vmxTrYXdIX
uVJzGcB/521aso4OJtqKKH3YzQAq9jaJwVxtrEUs2kOAPxNC8jca9MxvYVwR
1j1ekpkg1JASwEx3CwtalWEaxjLhMu3tGZSghV3PWCh3NcyEOnEt02xRLew9
vcQqPiwTUC+1M3J8mtj+7oS+6XomMLHc6DASvoqlnVoYrv+dCU7rMdJIsQam
cu6bOiN5FnwRvNsVJ6aBxaoTKwxwZwHZN8tga0QdE3p98ZycQRZYLgr803FR
w0bKZF8l3MmCe2drT/qSq2FPCMp0m4+yYJ5L/W17iipG+H58q0dkgSTNoJT5
WxXMFEJWGPFZ0ID319pUVcZI9GItnIazwPjK8q/6VSWs8F7KzMBsFki1uMdf
jVTC9uIqBwJ+HdfL77uR80ERi/kyX7Ypkg2kixL/rkYAhg+XcR98mQ1Mb/9k
LDjgMLs3Slv8Odkg8cRUY/ezAkZTfcM+sDIbHKdUaHNNFTDjOWsT+bfZcFuW
OzbfUB7bEYuB/BM58LPpicnUfVksWeV1w0naHPAxkb/waE8GUzTKlTDnyIFb
F7KfqQXKYFEBzbxnZHPA74wt4p51GeN/t0oR9CAHDBh0To8cSmFDX3/6f/TM
gc7rlwgcr6Qwl6OjA/lnx/mDVqt1paWwdn6m71uZOWBkgXUbukpitz0VR82n
c6Co76ZXyykJLOJccpKCci58TLLuvEYuho28JKs11MqFC5Qu+oWuohgT7eMx
V9Nc+FGZ0tq8fBFLI7p+uvxJLkxv7yr3jYhgFZ/+PuUtzoWxc/oIb6cQtmdk
n6TYkAtFC9e78apCmPzYZI1Zdy6EXexor+oXxAj4so1XC7kg9Mcny+KDADaZ
ZWlBzZQH48ZjB41n+DE29qGnQjx5QO1RbN5eyIeZJ8gnXRHLA+IExWoC8GGr
QQxj/hp50BX6kznb+QL2x6ZLec87D/r9OiVa1s9jXAKC/B+X88AlAV+zIMGN
3Ul/oXz4Mw/4pf0n6xe5sAKWExasxPngjtIPnUrgwiQoP7zSOZsPMJjygGjv
HKa6FnGq92Y+3PCQ/LJSyYGFW/3m+2KSDxnpZCUNAhzY0Hsb5RP2+cC44vea
KYMdMxxAn+KC8mGcZJmgkHQWsy/e/F5enw/87ezNhzmsWBmv6amhrnygRHmC
ZkRZsZ2UPr5vY/mwQ/1i4ksDC+YdmWl+4Xs+8NKVVVpPMmMxD3VHk7gLoO7h
1Os5/jNYjXh9dUB4AdQuxN4v4mXA1Kxei7cmFoDSCvOPzVF6bDLep/h3ZgHw
0qiOvvGjx/b3VLKdmgqgTz1lhmuRDsO1jMabrReA9OpjeooaWuztRvV/yfsF
MFJydeaHAy1mxvXq+TuSQiDzzqKk56PFfAPNAq9zFEJAvgTfgsx/GF7jm7O8
ZiH80/FZIhamxnS8hjZcbxfCtr/ikXYJFbZUXGFfYVsIVN3hBj2XqDBSWncr
Ad9CIKU/fW0HTmPqkyTaZ8oLgdtac8DyCSU2ZMV5aZuuCAQmjFrPIWTH+0tc
cpGzCFyh+XvsHCm22bUkcE+oCBh1Xyxm+pJidIJFXAtKRdA/TT4Q1EuC6f6Q
oR16XAR7hfwXwhxOYl+4zkZQ+hVBy+WvgpdYT2Ju2kfkqhFF4CPy/K5Szwns
VQ3hX1N2EZBVSW6E8p/APnjd+lHwrgg2ZqIq938RYQ4lUve/fCqCV+yPFZXL
iLDDeeYVro0iwNqIPHrvEmGcSvPzL8mKoQqXuvm+/h9qRXF/KFimGK5MrC5w
5/1FVxOCSiyTiiFGJ0qMaO032uyTppuTWwy1kzlTRM6/0Wi7+j+rVcXwA2OK
kTjcRy/j1jWchoohm09t/9+ZfTTos86yz8kSKPRpKhex2UMN3z6IxNOWQJyO
s2/a311UuC5UioyzBKa9dVp/vtxFx8KbAiJlS6CK9saZC2M76DmJ8+dSHpTA
/lA0XbXxT3T7LNL90bMErhOW/7t14ifaTWrw4PyzkuP3pn9tVOE26jAT3lSY
WQKpF2U93v7bQhv9tg0apkpgfTOK/nnzJqo/3BEzqVgKBE3jqzTb66hQwwcZ
tpulcFvjpyrBYR39m7k7b2pSCh/9w6u/fP2GZrsJXvziVgr58ieqkG9r6DZH
bN/PolJY9aUFOsqvaDd5kZNMQymI/lg02HyxiiZtEZi9ukuB1a+3+gvvKgpd
+zYnPpVCb/eLG+vqK2ikg8UJujNlwOB21tgq/wtqoe9ZoHu+DJILIou+qXxB
pSBB65V4GRhLmnxR/LyEvmfoTTt3rQymyhfCJS8soQJNYgqifmWgforNWqNl
ESVQ/nt8ba0M9FW51HNlFtCl4mjPkr0yyPueExi09BE9IRDTHkpcDnPKq8EM
Jh9R7gGunq/U5RB3hsBGoz2PWtApTZTwlUNmM/myleEsumkVPjUvUg58emP3
sY8fUL/qsff/SZbDdQVWET67D2i6gfWnR1g52J3pJP7h+x79mBq0IW1YDs/F
adZ9uqfRhz8Gt2zNykH18ekzLSbT6BEw7b68Uw5fkg4T8TtTKOdSzp/fTsfz
+azekQhNoWZCPRStYeXgYeXGmJj/Dp2tpTyv1lQONv5rSaM/xlAHCm2+Jx3l
4EkktyH8Zgw9NEoWzO8ph8YS5M3CzTH07F8h8VMT5VAoItSiWDOK3la+jgyt
l4NB79SOSvQIupaQAP+2y2HYJNp/XH0E9VyeVRb/XQ54KRm5mJMjaFLYg6tx
pBXA8zYw49/+EDo9HGWgz1kBxkVaJ0x+DaJ23FO3Q3krYJ+rXP3K00F03/mc
Wb1QBUzEE31SPDmIMp8pv8MmUwFFVZmxiswDqL7J6KP5mxVg2KTB6KXfh75b
ZYiw9a+AXOJbyJBQNyq1TmXpHloBdmNNLPlDXWjcD9LL4ZEV8IVFgZvEpQvV
2vv1sSSpArwchHUEOwno4MlZyd2KCghRL1B/6tyJCpO/oyCvr4BPRNvvGrk7
0fBTQ3MsrRXwIGnhwbUxPKpO1x6K66+ASPLpZ9dl8CiBM/tD4OKxH2NhJlna
DvQ8T2r5i9UKUKL7tevY144GXEgMztuogJYfxgPDge0oiDwTGziogFv6/aMr
v9rQZjmHQHqGSnj67vWPhO0WtFpXSjhDuRKyvqxKFqg3ogyGF4mqNCqhJ/9B
3IcPDaizMd87ws1KGK3ymx13akDFrVh8V40rIezogvf+m3q02PFwTMylEhwa
HQjq9HXo6ce7eYqelRDXkf1wobIWtXfbeKrjVwmc9OSVpHq1qID3At+TiEq4
KFJK+jG1Bs0OJ3i2ZleCboPLHLtiNXoyquXmSGElVKjShjh9r0KtYmt5F8sr
gX7C2o/rdRXK9Sp/iLSlEu4scBT5HFSiKTkRPDfeVUKhWfBYUm8FGt+u2/+B
tApcBA50whXKUEaur9WPqKqAfHVWab2sFE3w9X5DzlAFnQfspJ18x/9orosk
VxUEmWa/zjxbgiY2/+J8Ll8Fj7h0xI+4itAz7BGU3IpVoCw8encmrxBN9OLa
qb1SBalWz9+8Ey9EX8pr9C3qVsF33EHaKY0C9FV98mN5xyoQ1cFUrGPzUBYW
MbMR1ypQVLyXrSiQh7560qlu+7QKOgJsHu+356JJl9c54sKqgJQ4g2noVw6a
XI30fs2qAqXG+WxZz2w0pXyBPWm6Ct7IWs26D2Sg7LSu5GIfq6DNneyU0tMM
NMWRcpvwpQrytIlsH4pmoKmiEj2b21UgxXm/cioxHU0rDnykTl0NZ27iTz7b
SEM5qVhM5hmqIW7d0OngThqadr9YzYWtGvzVWXcm5lLRN0LvzqbzV8Pi6SOi
l5MpaHo+X/cvxWp4+92KWvhzMspF0VQeqV4NKzoBhfX3k9H0uzdfn79ZDS7s
zZUme0loBp+7002TaiDxuvAcT5eEZmb3seW5VUOh2BV5CouXaE66g6N+UTU4
19oWMeokoIMmzWFeFdXwxICf7udRPLrNQpWdXlcNN3Ne84sXx6NobNH0Wmc1
NBeHPy07FY9O+68p+s5WQ0N5UQr/VCx6hMibZC9Wg8Dw9VLzyFiU9yDMrW+1
GizeCfzrV4lFHzkLFjHsVoPsVS8t/roY9JS1HWM+dQ1YxJ7vntOORsXP1Yu+
ZaiBYKdXVI9Go1CDD+Qa26w1YKPwl8CpHYVm6+R54/hq4OK+lWOuUSSKqCwv
j6A10G5CteLu9xx1unCn4bdjDRiONAqK8j1DEz9VjXO61YC6MDAm4EPRltST
G8pPa4CGCJ/w0iIUPXUmiyfqWQ2QdpU9MMkIQbPIFp/zZBzXd1mU5ZcORvvx
l3Kv5NVAUpBmG34uCN308W93KKkBibYvo72hQSjuF9dubUMNYIEDlH8/BqKT
K+Zm18ZqoPFy2nnb9AD0MKvM3Wm6Blwbs2prdALQ8xb/4l7M10A0Hcd5ZYoA
1Gk6refjWg2s9Td8PuHqj1L2zYm7nKyF5a8rEuEmfiiu0PhkqlQtvJROcJBt
e4oG4dUk1RRqgb2+hAeHPUUH31+y/qFYC6Y9nHe8O7xQ49MUnYo3a+HaBu+V
mEFP1NOhOmD5Xi2Ek229WfnjjuKD3lRGO9UCOCJu3RHuKGVq+KLsk1oICqwZ
TTznjr56a6H0PKgWVGxjpb9efYLWiVKfEH9TCxva0afu1bmiR2r7l2ZyaoHF
c0x5Rd8VVTP/bBlQXAskIZJcTPsu6GR0Q8dEQy28VlUMscRc0J1NG3+PiVo4
Vy7Zt7ngjEpUtRJ1UtbBDw+f05v3nFDPgQJxB9o6sJLtDebidkI7PidYMDHX
wfdNHK1IlSOqxXi//S5vHVRPBE47pzxEHV2Z/aiwOtjh2reOee6A1kaeKK9R
rYN4xTdW1NQO6FHO949m1+sga34puTXmPho12YlVGNXBymmmW4lp9mixjNM/
PZc64GjlT6Mdt0N3bhqL/fOsg08apzbP29ihODs183z/OuB970HF/fsuOvCK
ve0gqg703Tk9avnuomu/e33eFNRBUwWp0t2XNih/M/fR6nwduF00SjrXa4Wi
IS3/nL/UwTC5mNprNytUV8uI+O+3OjCWaV335LNCA5ZiSOh+18Fq48HwjXBL
dJ6K6LQcQz1YCrSbplpaoLuTr6k6Wesh77/IwHg2C5QqQ4bmBlc94PDBUr4F
5qictCOd5cV6qAnymFVPMkMTTOeZw67Uw4zHN9rzCSZoEb8nK4NmPfwg5+3R
ZDFB8VtMZ1N164H5V/6VxDRjdDP4BmeFZT100meP6FTcRq+VNvPOeNXDX6eO
r9EbhuiJf8mXBMvroXq+77/2dj2Ute+yZFVtPUiD0U6ulR4qHj8mhbTUQwbP
0S1+Mj3UlP+U7K3+emBICI6fvqWL1t/0QD2W6mGS2jYa/mijw6xMcPLbsR9F
kRbpAm10+XO5YuRWPZCfU30TbaiNMrqvqmQc1YOM7w05o6ZbqGO6wbU+lgaI
fEX76k2MFhpi//O6zrkGSIlK8mDS0EJTpKI15y40QJ9nPDf+hBba39t9a0ui
AXYXClT1fmqifFvShqw3GuCMwaUTOmvX0VlFRpt7/g1QoDsgbYpooEl29xMD
QhugksE5enhKHdWPxve8jmyAPconi7OP1dGRWSehoaQGKH1qY19afgUlPHn7
Q6KyAbyZmXye4tRQ/zRe7uv1DRC9m2bK9FkVRbu8tG1aG8DvRB2e+bkqWk8v
VPOyvwH+8l2RV/qoghaVhHgeLjbAw1ezdXEvlVG7ibkipq/HfNOnfn5QV0Z5
/0jNif5ogCqZLwrWf5TQNPXPmOWfBmi58G+K+Y4SGvcZI+1maASKvZp3McqK
qCfr7+holUaIK6JWfvoARWVAqyP/aiPYyd1D7H8i6I5t3naHViPYlJ2tUfFC
0IfVeno7Jo0gZtBNnB6DQy1vVrIZuTZCsc3gJY5ReZTTjfK6s1cjeOlYar+2
kUffp1h4P/dvBI+kxA/9f+RQ3TWahZbIRlCzWn3Lc1EOVQ++n8OTexxvsNJ5
mCmDkhbjJxWKG8GojWnrmooMih9jpdCrbATjhtA4lpXLKI6r1z60tRE2j+x5
6S9dRsWbeMXXJxshNPPQ8fM7KZR5a66xhrwJVIKfhlwyk0D3Ho8Q69A0gfFU
WUsEjQQ6sYdX32RsgqzvPeLK7ZfQmMO8SSGeJpiOT2Ur5L+EUlA4b7/BNYHO
q8iRNlJxdDn8jhyi3AQTrAm/8/zEUAK1gd97jSaodWESubgvivoz4GiYDJrA
j+rbEu/GRfSAk0wo/FETFJgszVbuCKPTGftO/O5N4JKcvF3gJYzW8n6rI/g0
wUWXvKUyEmH0sdCI6r/nTTBDtOVFYBdC16WTLV1ym0Bw7dcoxx0BdP66aJLZ
hyZwzx7956J+AW0e5lr486kJ9pnZp5zXedFkbQb+pNUmENlvjCWK40UNDPer
x3ebgIRc1q/803l0xBo/ok7bDP9l9loUxvGgpcvVzMtnmgH5J//qoRIPGnEv
zyyQoxngl4Vi9E9uVMMxYr1FqBnKeM1xQ0bcKN5Tn0JStRm4XOWaMqW50PS/
6jdHrjXDp880Ojofz6E+fgqJD7Sbgb0lwbtd7xyqEMLFm2/eDF6idAHRGpxo
dewaxuHZDBYqTK5fr7Gjufk+T8jLmsF5yZbKsooFFXomsiFZ0wzSa2FyWzdZ
0NK77+9YNB3Xe7/ax7DBjNbxXdZu6GmG+LGxpD1RZrQ3+7vI/YVmkFxIR0Pw
TOj1oNdZL5ebYeIFNd2hPRM6aq3BRlhvhpnbXxfHGZnQ9zw55By/m0FAcJsz
3oER/ZZusjhE1wKGUWzc9cIMqJPfKaM/zC1wT+Xro5x5enTHvH6Yn7MFTl6N
kumPo0cPORlb/IRaQE/2jFPuER1KkzrwUkK5BXLO0J/hXaJFxZPkbyS6tEA8
Z5xmBIEarXZf7cR7tsDEzTwR8hvUqKxhovwPvxZwanxqdmeKClVk3uZXj2yB
yJQwjbyt06j2i4ITBzktEET0qNdP4RQ66WLgwVfcAjW1nRvoGCVqrEu6qV3Z
AoKxZjE59pToHQbLuaLWFsAFG3vfSqdAXWNZ6k2njnkCGRwecpKjB07douFz
LbCWH8LY2EGG+mi55NR+boE5xMPQy5YMDflvJO6/zRY48G/gvVJNir6KDH3Q
QdEKyd+W2e5YkKCNYXs8F+RbIXWpsvPfLjFq0YWVvYNWoDiq2jmbT4ySEocp
hFxphS6f3eTnxsSolvtZ3RXdVnBSjeHV7CZCV2whuMCxFboPFR6H6v1DIjLD
6G67tULKZ4ax5rdHiMT8WOop71YIfZYSp6h+hPjo2dTeD28FoWH9bVqVvwij
SvjKxZxWCCDsjNTq/UEafccfzxe1gvK1jTd6Hw8Q8yZ2oujKVtiuLEz7ZX+A
FEqUsWy2tUKUPjU7z7PfiCL3hEbl+1ao++X99/zML+ThEUfxZdo24LzLU7s6
tIMwyt+VXTnTBoXiruprLjtIg2s54SVHGwQYy+w6s+8gJN+V5vaF2iC+WffU
P8efyOsPd2maVNtg+E+OjabANgLMFcn3r7fBOLOC/MTMFrKsfcDHrtMGRmNf
PpZGbCES/RGYt0Ub3JGe8bi2t4n01lc4YV5tQO/3r+tUxQ/k4c7B4Q//NkhZ
u0oqKPADYRBXCUt/1gavS2pvJWVsIGZ5kxnEiW3wVSQKf+X1d2T3xZ+xzvI2
6JJbshrI/4bwPFaVVl9ug4bXMyROvKtIogUWP7N+7OcFVffF1hXktKbclv3P
NjCYLKxNM1pBPBMSJ9WI2iHy+qK494tl5I5jeNw96nagsSWJtOP6gnDahipW
0rbDk1DXbwfdS8iMSdDmAUM7+J02SqN0XEI0r/poRrC1H/dHrHUBnZ8R2QvO
p8r424E2KSNM1nsR2T7r2PBLqB3WSfJfE4stIiX0DnYg2g4YgyIr8+InhIfI
tntUqh2c2RGgu/4JOf3BKGBHsR0cveOaikUXkPkYxQM5k3aQ0dVB5XVnkVeh
aEGAeTvY0kyEhc1+QHR8FAwHrNpBMGZ+bsL2A9J7X7rW5F479BB/XUX83yMV
aoLOvm7t8Eb3o5Hr4DTigPBx93q0w7224Mo262mET+r8CK33sX+q81Ldh1NI
MjeHaGZgOxg86ETWJKeQoEPaNUJMO4j240731LxD0J/USdQJ7fDtvdZdodvv
kN9fT6nrv2yHeqc8Dnqid8jDKZLcldR20D98NKurNYEYVO5bnipqh2aJRoff
xOOIkN3CzM2udpgJJmrKyB5BZKmbuCx626FPS1ZKwHoEUa18cddpoB1ai4gf
VPCMIBaHV3djRtshN2ACc9cYRhJjamjH5tph/LQxV4TdWyRbOsZgceGYp4JH
7NvOIFLx3j5t+3M7fGBJXacPHEQGeblEGNbawYH0LpaePYAQN4Rf0d1rB3sJ
j7XtP30IjZlN1J3f7ZBP90hj6kUfwn4S3rkctsPd/QvVmpf6kMs3dq1enOiA
MnKrwTmHXsThk7nPJE0HyHJtwsRuNzJNKV1jyN8Bp6nnnQWuEpDl0v8O7YQ6
wODKb5agg07kp86aksfFDvjmuNrGWtyJ0KS9GUmS7ABSh47qj/SdiLLEqfX3
WAco47s/a290IFpTSxLflDrgAoNn6UFeB2L2tM3jj2oHPGVkK6iz6kDcu13I
2a93wPHTn83iQztSevsjj6nhMR/Bh3Wjog1p/tdw74FxB2Roc/7Ok25D+rIT
yr3NOsD6UFHpWlMrsrShgabd6YC3f7w3xAZbELbAaqOPTh1w6RL55ZyTzUhw
UViMZdgxX8YCp2xnPZJ9dGmxKqID6he/XOe5XY/gb72XJIvpAEphMvPB7Trk
6JfQVGFiBzwM9TNSEqxD3FQGOXayOuDr9b7GbwU1SMJLF0e1vA7QWBOVOqVZ
g1SusXe8KuyAnFVz6vKf1chGzIM7SEUHxE7SjD5RrkZs52iKQlo7oL9K5cqV
nUokSLzucLqjA3zNHVJ/ZFUimYHmmsJdHRDjhe5/161E5gXLt4YHOqCX4/XB
u8YKxMDtlizrzDF/dKh4w4tyRP2/hK6inx1AxY2vjCIrQWytcMxHex2QZmqY
Wvi8GAmqWbLTOugAI3E76lH6YqTdWJpqlwgPktUmXWz8RYhs/qQ2SoMHvu2c
+FrbAkT/j092DB0e4s4MJMv/yUdcNPn3FhnxIG93ZB4am4+U7zxJCj2Lh47n
VcMmnXmIoCLrwogAHrS6afYFFXIR9YSOS+dF8IAbsKm7MJeD2K7cC3QVw0Ma
obul3C8HyYxs5GO7jIfAgblztwezEbb3xg+slfEQxeA9q+aahZx6nHawa4qH
678K3FUoMhAvF96l/yzxkLs7gKfuSkfWXQvfCt7BQ0hdrO2ngHRkyL023dQe
D60FbgovidOReJ8htS43PKT62JkkM6UhJH664h898JDApdC5lZaKuPm/Z/39
FA86ltfOnRNKRQyDltdFAvHAlMTyZl41BWEPP4pLiMZD97KxqXBcMhL5POhp
aRwepupyFRwEk5GjiFO2vS+O12/Js/kaPglZiD4jd/gaDwfY+aPB/VdIzgvR
j9b5eKBSiHAVcn+JiGaYCUt24OHQwmVcrCkBeZO5xHiDcJz/22bJ83sJCG22
/ZFtDx7OMFmaCLEmINu5bqPJb/FQTaujyP40Hqkrjnpy4j0e7pBRD13VikME
Shkt2efwcH+w8LY0RRySXJZ89fICHmgpu/pwHbHI08pcDvtlPNzWdamNuRyL
QH1r5+g2Hvo+udq8uxiDVDSolHzbxcMVwYeqZrPRCE9TfyLpbzw02UklUphH
IyStk/fk/uFhVc2ojMc+Cunr3Pgv43QnmHRMcCUnRiDaw5wmTryd0MV7185C
KQwpEvQu9eTvhEJvU+FTn54hJEEfiIKFOmFHKTFUxP8ZUiP7KidJvBP2yVNV
CV2hCEsm3Q88rhO0URf5HPMQxOnQUfEt1gmme5fD3ClDkD79ofgppU74zfGZ
Kak6GPE8/Vx2Xb0TpGirCCU0wcicC0kAk14nBMfeaUgZDUQuD1tNnDPshE6y
+EKt4EAkSrCDT8i4E27v0vgLywciMO89gFp2Qq2WFbVKXgCSeeUXo92DTvDd
ji8PjfJH7NjW8hqDO+EAt3kr6qwv0uGifkB4dswTPuO1luWDsA3nXh9+3glP
A+4kM4r6IAOB1lufYzvh2UL+RO0Vb0T0+6w8dVonGF7j/OUa7YWEXlGIZM7o
BA3W/cbAC17IQkbSR+7sTnDDjMyFWjyRWH39oMuFnVBDiqQLbnkgO23Db81r
O+ErV1SM+n135AabKJd9QydQODPKuVK7I7kuEc4uzZ1QMSby9nTFE8RAUIM5
DN8JMheeL1scuiGNcXiLyqFOeJBc1XAmyxXxtan5SbLSCWoHURq3RB4jqw8+
ad1a6wSxXmbTkFlnRNuNujT1eyc8/qH/liLKGeENtbG7vHO8frP1xAs7j5D+
fKa5u8QEYJ8PM1UZdUIkKxTlq0kIcDeKQVfruROS0vDgJREFAaaVz9/xU3NC
HPu7biXREIDL3DH4sZ8jwrju2t1/lgDpS+zTXP4PEJ+djPPM5wggs2p87gnZ
A2Tl8K2fNQ8Bgir7dN5GOiCN1HwKhwIEkDZ/cd4w8z5iLjZZdvEyAfYczLVI
F+8hhc6Xk2K0CGDJVmnAWmOLMHpZ7c3qEGDk7x2ufn1bxDswSkfQgABrvw6Y
SQ5sEK2EZWq86XE8XmH/t4oNsluTGPDTngA2FxipYN0aMWvFf8QeEoCyvIM5
Iska6e3ewEU8IsCDe2c7xNWtkeQptV+87gSgnmHyeVBghcDvvfv6wQQIjxwp
Z/eyRAqJz/dlPjvm+1NJ80LCEmE4dZPvx3MCPFEy8FH4ZoEss+UthMYR4P65
yW9H5hbIc5yBXsMbAkwRU3fXlJghk751KHsjAeqtU6L+fLuNxF3ukBRvIQBa
EH2lP/A2cvN7v4BKOwGYFWjwFzluI7235+kduglwRM9ln6xrhDRIk640jRFA
4MuvVut3BojbOs3s8DsCtHzKornkYYBIZLGMfp4mwHlfcpM7nAZIIa1I0+mP
BIjLH5FZcdBHUr5pRxt/I0B7blFAP6seYphpEuS4QYAhlxc1kr26CJORrUfg
FgF+1QdEzTzRRaK6PayLfhFgNYRw1PNeB/HLSJf5c7ILHCje+ZSUaiPWBhsf
k9m7YGQ+SRAfroVw0exPlJ7rgvfhoQ3vr2ohswTifjxPF3z35qX7dloL0ZVg
ql4T6AJZNnnBXu6biBo17pm8dBcYu8pTZl27gZwgqHprynbBUjQxUdD760ib
501nK4Uu2CMPMz97/zoiu2plEq54rN+bGtSOvYYIdYaJv7/RBWrayvziWxrI
skf8hQ2tLmDO13P8L1IDyRJPZTuh2wUhD+sTnYU0EPa0chKh211AeFJJWXJP
HaH2mJr2sO0CF+dwLp3fasim6AV/Vt8ueBHp+K7MUAVpiT/0cwzoAm9ZY4vq
kypI+P64X1dwFwiEzfFzlCsjvPgAv0cRXdD66DMrCbUyYqi34NuX1AVlfE2v
wiYVkQuNdb7nUrvgzjuvO3QRisg2Z7Sva3oXLHC+lRxVUkQiVhFf7rwu0CHg
nJeqAOnweu3jUd0FHjYlOmlXMCRqwdlnuK4Lfi/kWrF0oYiJ6lWfC01dEDZ2
4nSNCors0fz2Hu3oglH2d3clriKIUKa+t+BwF5RyS8pce6CAxPXSPZ352gVt
tLswTSWLmF/86iX2vQsoben8X+TLICJx7V7Bm8e8NWyX91RlkG5jR69Lv7pg
inUgMST4MnKwMegZRtINZ+p6EgWZpZEenWzPj+TdcGlmj1a9TQpJqPfylD7d
DePf7cgn7aQQ0QAhz0903XC7SvOeQLskYs30zEPuXDcoOGe4k/hKIOKe5h7R
PN3wip3xxZ9LEsjR/GWPLxe6wWOauUhq+RLyKv+Le6xIN1hiL9oMtC8hgwrK
7l/luoEmWVtqXFYckbI6ckvS7YYLoneRTy4iSOqcqTqfcTdE1BlEXo4SRsiM
WlirLI95dPnoF0qFkJmbT5sHH3ZDB7ulkRKpIKI08CHSyLUb/GcHeMPkBZBi
NQXzZa9uMG1nZgE3fsQHOSAmCusGLnFaSlEiPmSl3mg8IrobiFOidok0LyBa
Ug3ZrIndEP3HZtArgxc5L+x+RTKrG7SvRktVGp5Heln2ImxbugFZt+t2OsmN
XErQM/vZ2Q02r06sd3twIcn/1Yj59XeDWJuF1+7qOeQBmctY0lQ3GDeV+M+u
cyCT/uNZfPPH/kMKjScOjpumvxKuVUvdsGUsbeBOy47Q72wxv93qhgF+n57B
W2zIU8dbX432uyFyMF2CzJsV+bJW3rh8dBwf+PX531IWpP6ToykRVQ/QJxqo
X+djRkyHv2dK8vWAta7y6wkTRsQhjyL7pkjP8XlwzlPsZECe+p7PuS/RA5dv
6I3JijIgyWJGeVloD9SsGBXi6OiRho9RBR+u9gDToGrgNAkdMh1NKGIw6IHS
tn+XGClokV/YQck16x7wNj4nRiVFg5zZFCsPdDzWhdkish9TITpar6t/hvaA
bHHxlziMEnEmGq0VTugBbJX0v51eciSmnKzBOr0Hes1FzTnsyJAyC1zT6+Ie
OMy1j+o7S4oM0Tq3jNcf57v31ax78STyvT2v7XRXDxAv+/v8bDqBUD2a61Ae
7QGH3FseirnEiMaoenfV1x7Qqk+6nqH7D1coV/Pz514PkEgzXokw+4ujyuTm
liLphZpYd7ej0D+4B6eiNF3oeoH99YzNn6HfuCHnA69qzl54gkl35l7ax4l/
sC3YEe4FsaYGPaXSPVys8viklFwvzJqhTCLKuzhdxuJLNTq9wDhjor1Uto2r
fcpivmvRC2F/Iy6uB23hmL8ERUg/7AUKw0urFQ6bOPcbWw2uXr0w5HDyxX+D
G7j3NaYrNc96geqz27Xcj+u4lJDLSpezemGTL/e8o+VXnLnBf6m1Lb0QhESe
qLm5jGtMflf7eLIXbl0N5ffo/Yxjmn89Iv6jFwpR84H+8E84J26rte/kffB9
cLQ0mv0jbuCOAEkRVx94oHxM5C8/4PjyNzjs5PqAYMFfNvFkGuf/rVrmgnYf
MD0j+ner6h1uVtTr1qJ9H9DNutBfxMZxMs6K998E9kHt0PUARfpRnG2ojghX
dR983CeTJfztxyWm2HxPX+qDtyHY+QcGXbivLW6/81f6gMRConWavAuH+xhK
WrHWB3XnbhE9bCDgFrkLOTo2j+cLyTGTcBFwonkbNz4d9sFLpmUbuwM8rqvi
SSk3Uz+4/MPm4xbacTvdYY6Zqv2wSJ/0uLmyEWeYaBeyrt4PFvUO4xtqjbgm
myupl6/3gymZ9/C72QZcAAnpQL92P2h6OxHnUjfg6JT8+H6a98N73SbehIA6
nGiL25yyZz8s4+1HeKurcXZV1te+lPZDRp4o+zpNOW4wQMlKrLIftgO7O0xS
ynBi2tweHjX98NbNfmGdvQy3tzmfS93cDyfzno7Q8JbigkVvn7jc1w/pEk02
HhrFuMwCrYaQz/0w9E9KQ2stHzf7BuEXYBmAJZs+jrN6Wbg4joN3cmcHoOmk
7UlXqiycxuvaoGucA6DiiKtfIGTiahPFFh/yDsBfrQTnOdlMXGwkd2qN+AA8
ChkuPhLJwKl5kTIoawzA5EjbhSvBabgK/bdHpp4DYHrz3OAzlle4EGrTyfjZ
AVBvKuf3pY7C3f63IhtQMQgIWbOKbZYrbit4Pk7f/S24JLzYo6yzwD1Q+8aj
qjAEhInR5XrzqziG59a2tTTDcJvDW5hFXRL39M6VDOqJYdh2nJfjlOPEkVsO
9PzUHQGGuoVDkl1SXKfI0cz3lhHg9dMjlb+6qbCAX155f24UNkunDB8vzSjQ
nw2+SRk+CrSWXePLjJ3HHeNMpdD3UXA/8P30gaNUQcRb9pKR5hhQ/XgZmAiv
FHp8blD21Y2B0iPWH9UcAQqdV1nmhNnG4UP10r/6PQeFdsGwi5/PjoPQfryb
mL+DQivFgXcyx7F+d2QjkNpBob77Aycl9zgo/SSLyxe+r1Cs9MZimX8cWBZv
MDN431NIkOdbSpcehyOXRU6Lh7YKtkJS35huHcf7qL2bMbdUsKbMUXirPQ7l
XU8ZHVgtFSxWmSKCdMdBTk76AfuEhcLt3F8iPw3GIY+/92rXdQsFTZ6mhyNm
46BF9yrH44WZggyb0na4wzjIy1TNa3y7rSD1u1JJ6eE4DHMwEuR9bitITJ+P
/+04Dp83Ep2W6W8riCSSStk9HgfRJBcmbUUjBS76PldVz3FI+IzzaK4wUODY
kus+9BqH4L/KVYRbBgpsI4Vnqr3HQUr4irP2T30FxqiIOh7/cTDpGZv8Iq+v
QPfgL/n7gHGIIRmx/bigp0Bz/aFhbNA4/Hi4fFPtmZ7CaeGP+eohx/wOkgTG
S3oKFKe0fv8LHYf9wafUqh90Ff4HCnpcog==
       "]]}}, {}}},
  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, 1148.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7772090649361525`*^9, 3.777209078805694*^9}, 
   3.777212119255473*^9, 3.7772659514384537`*^9, 3.777266204320014*^9, {
   3.7776382291295123`*^9, 3.7776382351331673`*^9}, 3.7776382933756495`*^9, 
   3.77763904319549*^9, 3.777639260618578*^9, 3.7776392993307066`*^9, 
   3.7776393329724555`*^9, 3.777808683397988*^9, 3.7778088491439533`*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nlm", " ", "=", " ", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"experiment", ",", 
     RowBox[{"{", 
      RowBox[{"exponential", "[", 
       RowBox[{"t", ",", "B", ",", "T1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"B", ",", "B1"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"T1", ",", "T11"}], "}"}]}], "}"}], ",", "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[{"-", "0.1"}], ",", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"nlm", "[", "t", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "20000"}], "}"}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "60000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "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[{"13", ",", "4"}], "]"}], "]"}], " ", "=", " ", 
   RowBox[{"T1", "/.", 
    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[{"[", "2", "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.7772090538556566`*^9, 3.777209082415778*^9}, {
  3.7772656987640057`*^9, 3.7772657004144506`*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
     {"B", "3.1136224980885867`", "0.023142251684542953`", 
      "134.54276362261763`", "5.617320629174253`*^-138"},
     {"T1", "115.61400908849586`", "0.5647488852973817`", 
      "204.71755163822345`", "7.712643234256167`*^-161"}
    },
    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.777209083155672*^9, 3.7772121211046124`*^9, 
  3.777265951500939*^9, 3.777266204368096*^9, 3.777638237030752*^9, 
  3.777638293422513*^9, 3.777639043289219*^9, 3.7776392606810617`*^9, 
  3.7776392994244337`*^9, 3.7776393330193195`*^9, 3.777808683459073*^9, 
  3.77780884922206*^9}],

Cell[BoxData["0.9993630407470091`"], "Output",
 CellChangeTimes->{3.777209083155672*^9, 3.7772121211046124`*^9, 
  3.777265951500939*^9, 3.777266204368096*^9, 3.777638237030752*^9, 
  3.777638293422513*^9, 3.777639043289219*^9, 3.7776392606810617`*^9, 
  3.7776392994244337`*^9, 3.7776393330193195`*^9, 3.777808683459073*^9, 
  3.77780884922206*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668],
       AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw1kgs0lGkch9Flj1RCbZGWzlHtllrtKknxs6GyknTZLmIoqURGGGZc5sIY
g7nkUqrDbGVLceiiXLZMhVRCJLWpKLFKpc5SBrW7fX/fOXO+ec7zPu//fO/3
zfTb7+mvo6Wlxf/v9//968VngfnT68CwL/K97wdr57wl9oOZrWXGlpU9xDvg
fyWtDNJXxDtR/6Ezk8vrJvaHnmrNzEvHu4h3wUG+sDSF1UkcAK3YxpTFIS+J
d+P49fafn07vIN6DZYblwfNePifeC8fxp0e9fdxOHAhNXkPGqrg24n0QJRVn
x99/RhwEteMBx/dGT4mD0Rp7RzG6sZV4P7K6b5c3V/7FMEKwxGzApk3+iGF1
COQVNWLdoYfk2Sj08xYEBTwgz4bdimGLhaOayYfCmb0VitdN5EORP5gREGxK
jAP4+viX7pE/gNLIGj9rO2KEYUqD2ji0up58GAJslqZeEd0lH46mZzbjHoTX
kg9HG9+h2sjnDvkILEhbsffH5zXkI+AhTc+yc7xJnoMv2S3Nt0qqyHPglWs0
ZMqrJh+JgiXdDZZZleQjcdA3R0v57Br5KJwTHex/tJlYHQW7ox1GaUFq8lz4
Vr1ecJFTQZ4LTtznqZUTiMHDw9uhqvvWV8nzIPbXH9d5vpR8NBYk+r5Ya/kn
+Wi01EpiFoZcJh+DuYahtnYrS8jHYNL2Lrcy02LysdjPTbb/uJFYHYvLR19I
LCrOk4/DsTp/Pz3+BfJxqH+/7fvaJxcZNufDq34LP15VwDCLDz2N65uwVfkM
q/jQ9RxVNKxLvo0Pd5l6fd/lPOoF4Jb32Rdk/EG9AJ+/NDTN/o3WqwTIc91r
rDQk3yZAQPKewO+uHKdeiKwfKkJyTM5QL4SJ1oNS3mFilRD1xi4WF16dpF6I
Vmu9n0q0R3oR5i7v1H7xiZglQsFAnNSgPYt6EVSOA6IcNxX1IryrYfEkmlzq
41G76+qajTXkWfF4qOTOyGsRUB+PhK7+e8n+mdTHY6sm23R9Xgb1Cfhl3lLn
Sy1y6hNwrCyk41BUGvUJaO+NMI5+R9yWAF5/j9nrAQX1YrTuSF9U30eeJQY7
h1O5M1JMvRhDEZE6nbPCqRejJ3aes8NJKfWJuJuuI2sfFFGfiDLb3JvLWCnU
J+L6x/aJsT0J1Ceipsry0OZcGfUShLOVrdJMCfUSVN9wKlE0JlMvwe9utjPE
ViO9BPW90okav5H5SeAKVUqjOXRerCS0uXe6Tuv2qGD6JFQbGRd59wRSn4TZ
E8JsAqfEUS+FM080WcDhUy/F4U3yazc7eDRfit1nsoWRp6ZSL8WJ1XanxrvQ
+ZgnY9KvZwWLMIaZx0qGi9P8qgH9kfefjKZpVqnaTauoT8b4soEJy9tpf/MU
jM3wHFO4zYv6FMi69Au8TbjUp8A/ysmsY3Iw9SmwVw2kFzSlU5+Kv9ep2P0R
XOpTsS7XQJWuWUN9Kk5Hx3TvPitkfFsqVm+LNcjyDGLYXIYjpn0eJ4oD6Pll
GKx201xwoPetkuFGWnlwXZkXzZdhU6aJxftZdB7mcqTOyHhu9A2HejkiCot9
psuc6PzlEB5+7KLtmUS9HEem6g/5fqL9JylgH6mfVV3txLCVAh/UZmIfx30M
eygw/ZFPwad/6LxCFLAqtGb1jGYz+ysUsN4QO+fVZgHDRQrUPnEfvuW3nVnf
oED46fktix4HMdyrgCZ/2OaooZDmK7HWvE73hh6tt1LCe7GtcZ1ZGLOfhxIG
b+w8slzo+wxRQjOo9e2hcxyar8RdU6cjls30/RcpMdZxTyP7ywaar0Sxjrsr
u0TCrO9VwmW7/3XTlzsq/gWaHJgs
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwdlnc014/3xyV7JCOE7E3IHu/X63XNlAolZO9kZGVkbxnZ2Xvv/baVEElk
VESJzEpkJSW+n9/v/nHvuefccx/3+cfznMtl5XLTlpCAgCD9v/R/dR29VjPr
YAxS/x+7WGIjP79+ljGM/LmpTs+4i4Wyijr5VZvBY69PxyZ3tjHUPp2UlMUC
LBEe5V+xP7HOPuY7OvMWwIXISvxM2sKavVmPvthZwXTXBdKSZxuYxGTOdVER
ayhnuH3A7/YdqxFlz/fcsoaOpvlYNqlvWOkipwqZjy08eV0y/mp5DePGFaXo
4uxgW0pXY35yFctL41nJIrgLWp9PHjKNrWDpWvyPLkbbg7Zg+A2lr0sYQ1n5
B6/r90Dm8vXmBdIlLJFASKSX1gG4kaxhjktfsEd4kbGbWY7wYnmiQr1wASM6
W8uRY+YEMncm/xqNfcZCHMTcVridoYNnkNbCcR7z5bjE4FN9HxRJr14oezeH
HTxssn3u4gKBBTGDNwtnMcVvmcbELK4g/8+4i8LvA9aqxlp7Y94VBBaSc9Zu
T2N723O3PcAN5qnusw7ffo9J5uccpxe5AZH1yMZFy3dY/eEFnUU7d1C9r2qt
lzGFbZbN/yYedodMBxY32v5JTFQvv1BYxAOM9i1GLx9MYBV1nLseWx5Q0Pyk
2tR3HFs1XszO0H0AZaa2u1OJbzBe8iK1nuYHkDrVxJyEG8MKrXnSSHw8gcGD
vI+1dwRbOLuMisx6wu4ep2JS2iuM/WnJmjbOC/jeGAj9eTiMZTHzK2QSeIOd
f6mztu0QNvNidbHHyhuY6kPvcDsNYowe5TFfBryh7RGfAD7gBZYyKvhRJNoH
Cu1pJcWf9WOruPz5pF0f+AVCr4k+9WGKNecWD0wfguAxfctN4j5sIYZwtV/S
F8QLGGgMPXox6T8+60K5vmByh3Afc32GRd3b+pZA6gcceV2LBJRPMTHNj1vG
H/1ABRPRn3btwkLabu481/CHQsVk27uKndhb/uE9gUZ/6N6vCGaj68D8iFsP
dyMCIP+Qm1/3ays29kD06M7PALjD5cmRsobHuJeLjp8ZBUL7EANv4HYL9rIv
4XSceBDkM05E8PM3Y6ySJCQ7mUEwY3tNbUG7CWvTQYlECYPhJacFp1JYI0bR
20KS7BQM2p9vRNIQN2AtB1ukLwqDoXzFpsC+tA4zExch//0+GCJPvt4u0KnF
GvMKKc2UQ4ClfJNnd6oKM3r/kSrJKwS6h2+NNlRVYkRnmM8MVIfAleOUmYL4
CswwIP6sMGMohFcW0OD9yjBC/DCtqVYoHAUmN3eElWLVG0T0icGhoN5Dv9eQ
VoIdG/ud+/UtFKiHpb4EzRVhFSmtjEKcYeBn7xHjQFWE6Y5sM5ncDgOTyOVL
zhqFWImiPUvfszD4qXaFTrYiH7vhXsy6vxcGK4K+JMQ38rDflfNsgsLhYPWr
WnqPMBfTOn+bIz41HEro3B3C07OwPZ1EzufD4ZD6J+7ZomcmlvdohGvvOBya
n/QJTltkYDsHyrxG9yJgtOBdma5RGpYjHsD3OC8CuIjJKl7dfYKp323n752K
gKszH373BaViGe/FhPjRSBDoEVE0Gk3GVM44CN/xiISViKlZFsJkbEO9VCSu
IhIUjDmrc7EkDMOziu3QRUHutxu3XpQlYOsb+uJ8mlHweK81eEY3HkvmTZYw
DIiCrzs2n+IoH2OrKWRST9eiYC5K5/BGRQyWOKIqvc32CKg83MaFYqIxhdNB
Mrw3HwGWF2WE+TzC4tz35WK6H8FyhkjeP69ITEr3C04/KRrUMnXE1bZDsTP3
f3cR9kcDL7mpo6V0KLYec0apfi8a5E7qXI8CQ7CcAUUFMsMYsKflDvIRCsa8
FnXaW6JjIHxhMzqBNgjTPbaTs+yKgSOVAtovHwMwEvkUmU72WKAgzTrITvfD
FvQqW+x0YuEM6wYddaQv1un2TIo+NBYu6SZcUg96iLlUf7/ktBIL+O+5bbcS
vbEZdjUx9po4SBE9OZnneoA1KRnVvvoUB90e/46MjD2wOENXUW+ax0DUR16a
k+OOKSfnCI+7P4Ys1cxJWRk3jK2+qdK/5DEcaTrK/Yl1xX6NvBQUev8YZqzf
hDdOumBVxPv8oQrxoKD51KbT2RkL56YsE3OMh071CX/y606YGcbFN5cTDxwC
jFRP5Bwx+ofXeaQJEiBiONczT/Qe5r9RyrE6mAApP6yI2WJtMX3y7rzk3wnw
45nDs9F2G4yZ/ms8x7lE2NYe1izetMZ2xE+oX2skQuEte2pPNyvMHI25XmSe
CO1IGMF0jyX2+tq5xz4+iTBQIrQlQGuJld8ToeKrSgSf+Gs7xOnmGINPq9bf
vkT4lGRLx2BjhoVGKsdOzCWCBl15zC7OFDMpNqAIpE4CzG9mVvesMXb2UxjZ
tGsSFDdGPm2/ZIAFfD+jWRudBNOtrttGuvrYt8PMqLCiJOA6ehv85OFt7AVj
A4nE2yR4kMzYH/zlFibJp6RB8iMJnvcO6iRy38IKpAYjPhInw1EJb83+vZuY
r85Homi5ZFAK/6pbSK2LrZndVTPXSYaBU+dcze7pYHrOO2Ey95Khy1gypSdN
GxOLITv9JSsZPuf8or2rch1b6pc+pXScDFE2gYPbrFewuMzQqFTGFPBhzxbD
i2tisi7j1JtiKaC5cL5W9dplLIbFiaXQPAU+PPbQcstTx6R/dhT88U6Bxet4
dtcpNWz+BamAXmIKPMbbiB/SqGGSbsVSpM9TICLdhT4mTwX7qLHdYfEhBdAP
L/rIfipjkWwYdG6nwNR9jUsnl5WxD0Oz15y5U0G0LOyTCQVgwex0dlNhqcDP
V2iLK1XChPfMN0RzUiH7kV4RU7Ei9na41j2yJRVsTUaEfKsUMAHPK0EKK6lQ
waHT6PhWDhu/mk6c8i8VqL69C7nxSxbz5VyJ3Tj3BAb9Of+ac8piYyPBGfka
T6Dy8ln0Q6w05lM4xn5o9gRssrR8a19LYdzebKU3vZ9AYLUjZTSDFObJ3d5I
XPEE9lI9e661X8LYHm69ciRPg2nhJ8qZyWLY4A1E9wVXGjzvmMm/4H0Rc+WN
nWZXTAMmKm86IjtRrP8N//KEQxp8evS73dVSGHMqfeAgEpYGf/NuvcY5C2GM
fn0/w7PTwCyOzelXiCDmwG/2T+51GpD4FOOWBvgxhqPqsKTlNKjhPGnw2uHD
nk4ckn8/SgMy/6CjNgE+jDbgCWPexXQ4QzPsyVvBg7VPvRYnSkiH4CH3uTuH
nJhVJUuraXk6JMsG5ByZcGJUQfa4tmfpoH7hEkVeHAdmLkx0xeFnOvA3c6ia
3ryAkRHcfNNPlgGnxo50atXYsKZ3+bcvcGXAZn5d3RCwYiQhSlbjuhlwRtKg
Y1PvPNagH70u5JABkQ/SQq47MWNGotP3w0IzwHEvIYEljgmrm3b3k23OAHp1
TbrBpXPYbbGq1ByGTLDwMP97/zsdFv7A1o1EPBMCvxZfmhSnw1o6OW+4XsmE
0OZCkzg/WozucjqpWmAmtOEXDD8LnMWUH99crs3IBNOMg84ZGhrMdYr6OVNz
JqwhlwndPlJjY+bhvt/XMoG77qGLYCYl9q8UM7hNmAVDlFxURo8oMNGNP1LP
2LJg1+3qfbFQcizGx+1Hsm4WvCby62VMJcU0kswsFLuyIG2kmE2MnwjznD6P
lLzLArkxDbU889NYyYV358/8zIIX5KcyXhQQYoRVWlOLvNmgtkzZQ6JwCrv0
k6RBC8uG6XuMOfEJBJiFbF8c/k42vCTyJL/14QR92ievER2fDf3U+FR+j3/o
D7I97t2KbCDihJMR3SOUTbv+xKQ/G1iaJDzLlP6ivnN8HRK/s8EyWoMRFT9E
ZffoRGcscyD7ufuHZzH7qK3iGJmKfw6sG4XtN7ftoanB0SvVaTmAKJXwjG3s
ojtUBPlBIzmg3+xdLnl/B+W61eX3dSUHehWy3y91bKM6mV6GtwhyQdywM+YR
1TZax/eDVkAmF+ICiR9Ix26hnxwrNhO1cyFbwi2K3GATpWqyHvlzLxdwI37u
XWI/UAd0NnwsLxfszBUDvpx8QwUMhg48yfJAVUNR3+XCGqqfG/r2M3cerBRy
6SjiVtHIJaTxCpIHkjO+DFXWK+iyS4vDBfc8cMmiieUdWULpW10uR8Xlwesy
x/7HFEuoypEw73ZZHmSLUSQa6n5BCx4VfhqYy4NlL/Db3l1A34yZdIr9ygOD
bMmvMtoL6DEDc3rG2XyoaNUtTrT8jJoUxus4qeeD7bsR317KTyhzp18/fX0+
SJ3PXECXZtAFd17zzqF8EG0wuzJ9agYtFxn9Y7GQD+1WbO0PBafR7Bs056fJ
CkDz3gvptrh36HHVkp3wuQJw/aopODj8FrUibW8J4CoAcyLXrkHqt6hwr4UO
r2IBkM9SF+ZXTqLxbDJ53hoFcGs9h+mEYBLd9iHfeHWzABYnHbTMzCbQ9ktN
UW6OBdBrcSdKWXgcvVx8+tnTnAI4368ax0b4Gq06maaiqyyAjZ73d/OJR9Az
JjVGtvgCuOIndJ6Z7hX6nuH2L8qxApgdNCsrVXuJKroJqZnP/jf/QYuHw2EI
zR39l9S0WgDFNWMhBumDqE1k2cU7JwXgffPl6Q3SF+jLL75+NZSFYKTOQ9h3
dQAVxbSHT5gKQblT6N7V1H509+DApkyiEKgcG9aCFPvQ0HtXcnYtC2FssKq0
NOsZuvriwjeN+4WgO/88+1TQU/Qq945clm8hJNwSl7Jy7kFp57KmIKUQwnXb
jIfsutAHci5cqfmFQGL+hoLDrROdSVF1WasuhAKveGOu8A604NoGRfxAIXj8
lb34o68NJarsNVwcL4RSDx8trs1W9C7xkzLpT4XwJqWc7h1nKyr2FFGZ2y+E
/GZOs9rsFrRHPOGhoEARTCwo0ygvNKKccdZDflJFkHvZzjwYGtHwdblzb7Ai
4KH7nGVa1oBeK1xo8DQsgmcLqgPaRPVow7+W45c2RfDqotii/VYtSm8UfY3N
rQjO4h/nKi3XoLN0kut90UXQ0I5ra/hahaIuJLKMaUXAZ/ZWquawEi0amQ27
V1QEz68V3qanq0TvhYdxnO0qgk5VxsBfRuXo7/23+qYbRcC4ttFqoV6C5lEs
vGk/LIJunpv1vKHFqBrHd00G0mIwsZU+vD5YhCZpnlIa4SoGdWNK7SbrQlTe
lKqFX7wY0HcUzLbdBei8G9PFUFwxHBEmeDmxFqDC2Rc5FAyK4R2hZzzZdC46
Xi+fkWpTDO+l892hPQf1HlCl/elWDC/9Tfi0S7LRgR93TpfH/cdTMYq4kZ2J
mkLkGkNfMazub9xG/zxBiW4nWbi+KQbemgce3gJP0Kp7OR9GPhaDs03sg2KT
VPRXctNI6EExnBte/Fv4KRnNKe9RmycqgWcyIq1fBJNR1e6XPQp0JaC5Mx+6
45uEJq7M1/8ULYHDfxpWDyUTUdk/XwWvKZbAqR0f+zWxBPTjmf3C8sslUGub
/DqSKB4VkqdMNbMqAR4XxhDiiVi0L0bO53V6CWwobZ6uXIpC7fNVtgVKS0D2
y1bDw5NI9EzLdYewphLo4XJYmOOJRI0/WZsojpYAr70WUEWEo4Q79989mS2B
4K03O8jzMLSCxPfG9loJfP2K2xoiCkP3xBOhgrAUzm03e48UhKBZatkdp8+W
QqcCO+Gz38Go8p0ySfMLpSBioZp/rB+Mxod28zLKl4LHRaEbX64GogLv1snC
nUtBQMP5kI7MFx37uhvy2bcUhIpTO23OPkQfHB//UXxUCiuixfmHXD5or8C5
H9tFpfCda0op1twLtcNx2l1vKAU6zfCHn2M8UWpdkc8VPf/x9R3L+Z4+QI18
lSfMZ0ohxG/xraGSB0qQcO1q10opnCpQ88SHu6NlxQb9jLulMH+P7ezSWzd0
97UzfpS6DA7TxKJqH7micRxZmUqqZXAvhC3v/X0ndDydpNVQpwzsevYp+ewc
0XNnPSY9Tcvgc7PlLe67DmgewTXKBu8yqF4Wm3wWbo8u+bQLjIaXQZ8ePr65
4C4quM2r9i2pDKbiO7eOBuzQxsV//rw1ZfBqjqX2Dp8t+uuOQ6ZyRxksX7nd
NmNhgypOvsebDZbBxKn7seHF1uhAX/1mxsJ/+8NU+AwQK/R9saUF9blySKUs
SEZ8zFEWtjF/Ye5y4Dd3UNbRM0PNUxUzL4uXwxfZ7mISJVN0PZx+MuRKOXwt
Uu6c5DdGL/4L2szTL4fSXcdcEREj1N1zg6LbuhxaWjWu18nfQf/avlD9FVAO
qKpI1EdnAxTmL1nQx5aD6mWdjJVUfTRcP89fIuM/Hq3Olan+2+iZy954h6Zy
EKQr8ZWT10M5BYUEPq+Wwxx7S2aThy5qU/BE9Wi3HD4bdwwbT+qglcyEFudP
VcCJB+nCgqwOKkk+l3GLtQL8v2YpaHHdQL1DLuNdBSvgyPnvjb8U19Huw+aJ
xzIV8Ijyt9fAsRaq/i2O4qV2Bdh2krGKnr6Kxlgd8q+YVAB7ouxFZvor6Nis
rSqhQwXkDq4g7SKaqOEI6o8LrwCjOqW7k54aqEPNzx8N7RVAZVlAoGKritbz
mlKMvaiA7KzC5ZgmFXQvZ5j/+2QFbEVmeGmRqKABj4vM+X5UwPW/vybUegHt
I6bxV/lTAZaB4oWU/ICSBPplmJNWwuj8LcLX3BiaeF9vIpOrEijZ95xpfuLQ
t6u9P1rFKmEkIK/tw4oSet78IsVbpUq4eT2ZWWVFES3SJlE9o18JUV/GsmNO
5FG8RHtLaEwl5A2Sex1myKAaVtkST9MqIejCVTz+szT6PiWw5rCoEm7QRaXU
i0qjv3+plbh2VQIBwYvEiBlJNFpQkLNmqBI0ZG78+CMribIYUeasTVVCZAyL
2kLWJRTXM5FitlEJ20xaFOAugY5uttBk/a6EsrjHxH2vxFEzzozYd0RVQLQo
MBPQKYYGhZmFXbtQBTNXOocu4EXRvivf3RVvVMHhj8s3G84Iobf8xjY9jarg
yWIapZm8ILpc0+jQaFcFZQa3TNB7AijxWR8rwaAqsM8RIy34zIemKRvPW8dW
Af4UKl/Ny4fye6BG+elV8DFIO+bIhRfVfE90k7GhCpqvCVdmMfOgH0jXR3W7
q0A7VTEm2JMbdVAYufL4ZRWQ5V59Mj/NhcbmJCkTLVbBO+OTvcs1nOiYFful
Hdpq8GlhJT/LfuE/P5yqvcheDV4fqr+38rGhP18sC94TroZj/OeKOhlWlFao
mnNBpRqUfUeDHjifR4uM4nNYtauhIrbHtzOVGZWMc2M2MK6G+FTpr9DPhOpt
yZ0d86iG8W+evkwyjOgKJ2sceXA1VPUznvz0Pod63TwmVY+rhkKm4bQLzxnQ
DPzASVdJNfz60y6aYUuPzvnpblW+q4ZRqxetCdtnUadaaceVxWp4u0a/7mp5
Fj2aZ1rj3KwGNerefdUaGpRdZX4+naQGuO6SZOVnUaP1Hs+NpuhqIOvOy1NH
eVQolJa8P8NRA/Sb1G96qilRKzLHsQi5GigjcW279Ykc3VW4cfW5ag3oF8t9
zjtFjoY7Xho80q6BT89tTZCLZGjp2EGPh30NEJyIMPplkqDrqeG1lpk1sCv/
yij72Wm0OzBPr7SsBnLWalApitNogn373/XmGuDFn/G6bUyIyuI2rriO1QBT
1QsnzbOnUAp+ku3muRq49pzepsyDAP1Ew5lxsF4Dx5cMNnQ7TpDwpVurgadr
YWzIApcZ8A8xHHV+3He2FhwlWP3PuRwhIm1R0iTstUCZJzZ1w+EvMhnTFfpY
vhZqnR21UvwPEQ5JHo4c51p4dG2f+gbpL2SHFRn87FsL5xpfiEUg+8ggsYEz
z6NamAqJ0fznu4c4fYjpqiqqhctoTVQZxS4C/SVWm/W1UKbM2GNosoPQ1z4l
l+ypBZmalfnrLdtIZ/COQcd0Lcg7p6ewev1E4h2oTo6Wa+G984k29bMtxFKP
vwx2aiEteJCiOWcTIRM02huiqoM+4Y64Ra8NRP/N88T3ynWQ63vg352zjgh3
zMmxaNfBhZpfKytda8i/ov15U5M6CPQVSGZfWkVKvIQurnjVgdqUlFC65gri
Y6H6VjC8DpJWqu9fjVxGtK6a+jkl1cHGrrXf7qslZOdC0vBudR3MaAT0CNp/
QQZJq13lOuqAje1DslLvIpK5PcDkN1gHLozU6rrsiwi8+G1LuFgHU2owcGv6
M/LYyYKQlrEebPrKPvyOmUMs9H0r9Xjq4UH486ukibOINKTqZEjUg4NMlMyZ
vA/ILP3LPA6teojI+Jv4dGoaqfu3qG5tWA9XSza+jPx5j4Ss/d0os62Hjo5x
xUyh94hgl7iSWHA9hHFy993JfYsclVz54va4HiZWowUGF6eQN/HW0fiserBz
YR5fFp1CvKzSp3H4elAY11VSfz+BDJCfeGh9qweNILbc3vkxZLkmwbf213+8
qbnC2JlRhFAwsTfqVAMcMMd70s+9RrhGOIe+UjfAmZapJInDV0gD271XLAwN
QMdPnCrH8AqB+42jWiwNEEadWjsvO4xY0Kq8reVvgKib63wUyUPIT6uY6XnR
BtDYaXKmezWIBLdMztJINcBNyayHfWSDSIGB9aIb1gBUdXR7cpkDyOfc8E0Z
wwZQMRrPbyLoQ+5vvd62M2uAiNnN37z2z5FjOLefbtMAb/UEoyrf9iLsy6V/
D10boPjBYq2vzzOkTmbzWNi7AX6c1LvuOT9F0ChZQpOABnCiG/yu6dSDmAkP
kT2NbgBx9/eU+qFdyKYfDdVWQgM8il3aDszsRAJHDWg40xrAUNtuzaq9A8l1
XT8XWtQA30htEX2qduRjKzmPRlcDhFK7byqQ4BEnspv83s8b4G8on5yvXgty
dCdLqGKoAUgND0PzK5oR1n/CEhRv/+Pbfn01YdmEVN3wkFKa/W//CgEEDTYi
igVdsk4LDUDd/fTxTYlGxEj1GjK20QAXrWhau+kakG+pqXCy0wAGNb/MCRjr
Ed/Vj6oShw3QZ/JdJ4KmDsmMdr6aTNwILK8snO+w1SAzb+IN9NkbASeAbNs9
qUDsuaaNongbwZSmhp90sBz57c5h1i7cCCR3y4bC/pUhTIwNNixyjXBRxG5S
OLgUKbv7+64W0gi1ei+vrb4qQWQ7wNFftRHyghikClhLEH2TCbd57Ua4Erkq
pD5WhKzWnvek0W+EOHyQ2RvxIsTrxNIHTBohSTNMOC2tEEkr2gkssm8EzqtG
tEIeBci7dfo4u5BGUA3LVu0bykGkN6gsfaIaYcnQh0d6NhtJ3iKWjXncCPzG
eyX6e1mIzq+Dz7WZjRBxlryuHs1E6g9/tjzLbwRN2iRnp/sZyJl/X6MnShuB
V5SFbbUkHXl9+qPUfmMj7GYv7l3iS0NESN+RkbY3QmA818PM+0+QGIqxT8xP
G0G9Wyl0vScV0aTtjcK9agQPNnDxdU5BBthL5sK+NAKHk1ioG2USwsOd2/Bk
vRHa2KeYqIMSkVC+tIjyzUbouDkqYL2ZgIDoI/GRP41w1zyh92T9MZIvHkL0
iaAJ+nsOzwzsxCHHkr4fNkma4Mykv6kfURzSreAURkffBFfdazR70BiEFbE1
5D3fBFeuahu+sotGfMHsoixHE5wLLxB+8+QRIn9ZZ/qOSBN8+Rn5dpY0CmnR
kxYpVG0C/gNWLVbZcITe8CJB85UmOCX3OOowIQxxN+Z/N6DdBGrpIimSW6GI
hBVz0LpxE9hJ5pwn7glBEmxp9f5YNkHzVjnPVZEQZNOeQojKvgnEx0pOK+cF
IzUuR5PiD5rg35Aqmx5PEELpsV+u7NsEvJlRD0p4AhEHr03/W8FNAGef3ZYQ
DUAEAxb4veOaoIM78N6Gnh9SEjPg+7SkCe4Mb1eTH3sjp+N7tMermkCPrxGv
oOCNWCW18n5paAKczYTuU18vhDOjYoy4pwkcLwqX7NN4IkHZhcVM/U0gMeDU
pWb9AJnPy/IRGm6CIG89Sq5uDySnNI77+rsmWA1qNhoJcEf+VkQcmM01AesO
nlRl1Q0xqgl87brYBH3H5yXSb7khzM2uXqk/mmCW5sAZwbkiKb16r+aIm2H9
lumFoVAnhIHza4sbVTMYUGxkzEc4IqlBAfmk9M0QkTc58TzJAUlFyx5IcTbD
sYjFSHOfPcKQp2g+zN8MfeHmgRfX7iJP/o1dMb/YDG0sJUWa9HeRtO4D9ljF
ZuBGtk/0QmwRRrY4ci7lZmB4uv53oM8GSfPj3Gu93AwhlS8HpihskHTFK8Nf
9Jqhsbrn7lKtFZLRnuWh6NIMkkHUPpMKFggzs7jZuGcz+OfIrVjqmSMZ3v2a
dv7/3ffAcp0RM0MyZTcuJEc3w8ekynyySyYIS1owmWBiM2x65/TmyBkjWfsM
uz1pzWB53Tp5WsMIyWpBXn4tboall+bJNIGGCAvDZFNQVTO49b2O9i01QLI8
7HLPNTZD+cFW6t23+ki2ZIK78tNmYOIp7Hh6+TaS07DAljnTDNe6dXTyA24i
bGc9ScU/N0NM+NLjy7O6SI4L+c7ASjN0fKX+lI7TRXLFJId+7jTD8+e/Oe7R
6iDs8YONkYfNcDX3KnaOVBvJ+2GUw0bQAvl0ZbeE968jeTVhbprULf+ZMc3N
9YcWwk7FbDJP3wJXTD5N//11FclzrNF4wNICS6Y/3lOTX0Xyhd+xFgi0AKqg
JpCprokUVPAPHii3wMGpU6klzOoIJ1lXw2PNFiBWF0mpMFNDCu5qZ/Not8CZ
ro6t89WqSCG/j6u2SQvUEeT7WemrINyRVMYrVi1gkvvaebRFGSlaKVD3u9cC
fktcnKPM//UlwyzlXi1A5OL+Mm4RQ7iJzIiRgBa4HpRNPvASRYqtd7Ymw1qA
4/Lb4ZoOBCnhZn1xnNgC4Q53FpE2JaS0wMlFv7oF7C57vK5llkdem3RH+zW2
wH3jR+N5N+WQHWaqkoK2FnBa9jXeTpZF0KTqmW/9LWDPNe/7lU8Gsbn+d4fm
VQs0mV8OF/aRRmLJtahlxlsgN8Pqy+lxKWQm5Jty0McWWNNXPBhKkESOEUWT
ki//6ZsLSjA6uITw/on2Gl5vgYj0Df531pcQN3ehavr9FrjVrGu6eFUCobC2
Z6igxsM/Uu9tpyxRRIKjXWyUHg9Y3KeaZ/UiiMEc6ZWd83iQXHpkkPdaGCm5
VR6A48dDSIocFxmbEPKK5iDdUhQPbNVj8Ww3BJGfIxpNkZJ44JB6cfdNpACC
qK2ujqN4oKe0jJCj5EdsCGRP/VLDQySZcne4Ph8S0x3ByqqFh2sERPwF5bzI
e2k+HVsDPGyfo/MJM+JBXPlsOg5d8EARTGp/4ZgTSVtsnmL3wsND5mOiHXdO
pCf39KaqPx6+Pwx395/hQCgYi7njH+FBtiI2Un/6AiIxuYNrjseDl3v9D8ol
NkQ/XsVgJhUP2o8mptJ/sSLFJF9iuQvx8OGm2ISkNAvyqu9S2eVyPMRYtq0P
mp5HfgaG9DrV4oE2cshUKZ4ZwR1w7rd24CE3ITx/mZAJeb9mbqY1iQfp3UEb
LxkG5Ki43sd1Bg8NRQJtSCI9wmNxkvxkHg9tv3NUdX7SIa4zeUOfv+HhRJ5d
tOoZLZKWurlItI0Hooj2xDwxWqRbBz0SOsDDT+JMIfmiswj58CeJB6dboVdU
rDHyIg2irxxg+5SmFcS037HrylMjRR1sWWRsrSCMN1Gos6JEcFXGp3OlW8E3
q6hc/QwZ8nr2kvWWciskdfecTnIiQYwpyfqVtVuhIKlw6/IaEfJNaZ471aQV
WCmvTz30P434OrWErt5rhehsYWZDYUKEPDfmi7x3K4hc256U2iJAMkYtVGLD
W+F3RPjFg+QTXJsYNaFEfivYm5fsc7n9xWmYL1mG1rRChwSbmd+TQ9z7hI7n
bztaQZXP24J79gBn25vAJTDUCtW5bLlLuF+4vZ+2IQ/ftgKn7lWZpq49XDgX
bnFksRWYVWUESvV2cfQ36ZTZt1phvL1qZo94ByfZ/JSgn7wNyKnukmjpb+Ge
L6VanGNqA23rpl0G+R84HQbH3ru8bWASL1FdgH7HLagpc3ZeagOme9907t/9
inPxZAqmwtpAvD6+TqhhDRf/vh9rvNMGJK0cyGLGMq5GzvXk9oM2uG+CMHN/
XcSNZLA9+xPfBlLS0sU1/J9x3w5fBuZXtkFgb+Eta6Y5HJmxJ6o20AaReV+0
vyVM4wS6uY7X59sA1ai38Ax8iwtdTiSiPWyDMeUTHZnPE7h5KgJKBfp2sNCS
1eUTfYPbf59N1X++HWaIKAqmOMZwVIVyZ65ztkORyrBTPNsoTkHGhdbyYjuE
6Iu27YiP4FJN55miL7eDjSp/YGTrEE6rrpv3g187rJnkzG5S9OEIT7IuCTW0
Q7gPl1WQVxfu/LCsVHNrO4Slc1xsjOnESaRMSiM97RCxSZg1UdaBMxWgkNd9
1Q6PLaLyxvbbcO3aD9GHy+2QtlfU/nKtBedSYKA1zNwB17rKTIvf1eMiHXav
3eLogOknV4u7B+pwOdIJNz7xdcBdfCALQU8t7tXLQd1tyY7/vvYl8ddD1Tj+
bRnD89c74O+jMwHeaAXuozKD7b2QDvBWfOZU4V2Ey7R3TAuN6oDTfzLzGJYL
cfoJfUPZjzvglDx9MMftQtz4R1fhscwOeCDn8ytArQA34D26Jdn0H6+AUV2k
MgdXXRvpe/SlA843x/ako2k43/OHCQlqnXBtLeL2vfEYHNP2p048aRe8O+Im
uxDpgSurCPQmre8GF/5eUtY8ZVxn9C9uPsWnYKuT1KaZQYfj9lCX0Vx9Bueu
cakm9y8oCdsvfNB+0QuTXS7BQ6P1ShHV0YmW0c8h8U7fXHJSiBKFR96ffdM+
aAsk32RP11G6+YbdxJW3H16mGBmOyHArBdnid4nW+kHGRpWAd2dP8X1QG8rW
OQBjgo5hjdkDij/F+ELOB70A83NqFk1B6YrSVsdemXqDcL3tthblTztF0zc/
iqT4h8Cw1Wxz1k1O8cqE5mDz1yEIyB/Xq2ymVDQ3oMlt7XkJPwJnI8cpPirI
uSs75ocNw6uacwNS1g0Ke4PRLkXqr8An2RHsToUrfMxHBASZRyAnSWbC86ee
QiS16fuUjyOgSnMIzspCCkYna/Khja/hW7GzfDf3H/ntiPlkfZ9R2BbLLsZz
v5F31vjOra40BgYT9q33DIvl6WOt7VrPvIHVgbvh5CUP5P1tLhdSv30DLkwf
02e1r8iTWo4M7eqNA/+6/S/pahb5ftHjDz96xuFWJQdPwfUfcgt9q2uzHBMw
Ts77bf5hnxwda4Q2ecwEmAsI/6MnS5UrQz40Cf+YgLkw3/TT6/ZyogHyl+7c
mATrFrdLJRwgNxR4nXy4bRKqJry+ju/TyvVfZf4kwjIFOwxnnit8W5XtFYq+
uMQ6BREvmYzjLq3KPiX7E5B1YQp+tuuuNgSuyLYPzrGTc00BZX6aBl5oWbZG
Jd9iVWAKxgMTfi32LMqmKvIvF8hMQak3PW3swzlZO2Hp7+d0pyC+7c6XwYfj
stbkpUqjN6dgGvsmqPntjazF+rm4cL0piByoNzD5OiZrVHYgumswBR5kkl2R
J69lb3B33R83mwLVc7zepBHDsnIsKjsxTlPQ7cDrv9vfLyt92KSicn8KNFjC
Sb7z9stKzvCkHLpMgavtG/+lmD5Z0TRiaXuPKWhcmqGTs30uy0k37Knu+5/e
IlLrrLynshe2FQaP/KbAnFNm93pFjyzLeBVjS8AUZPKIDvR2dMsyxMe1cYdM
wYZQg/7GTqcsrfM/0tnQKZhYkqIUY+mUPXPtvmFS+BSsKXEPgWaHLKXI5wrN
yCmg6FXO+uHfLktGoXN4EjUF1+gztU/a2mT/BzZ2cXA=
       "]]}}, {}}},
  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, 1148.}, {-0.1, 1.2}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.777209083155672*^9, 3.7772121211046124`*^9, 
  3.777265951500939*^9, 3.777266204368096*^9, 3.777638237030752*^9, 
  3.777638293422513*^9, 3.777639043289219*^9, 3.7776392606810617`*^9, 
  3.7776392994244337`*^9, 3.7776393330193195`*^9, 3.777808683459073*^9, 
  3.7778088493386765`*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot", "Section",
 CellChangeTimes->{{3.7772657036486955`*^9, 3.7772657043534055`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"MatrixForm", "[", "data", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Monoradical", " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"1", ";;", "9"}], ",", 
      RowBox[{"1", ";;", "3"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Biradical", " ", "=", " ", 
   RowBox[{"Array", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Biradical", "[", 
    RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"4", ";;", 
       RowBox[{"-", "1"}]}], ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Biradical", "[", 
    RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"4", ";;", 
       RowBox[{"-", "1"}]}], ",", "4"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Biradical", "[", 
    RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"4", ";;", 
       RowBox[{"-", "1"}]}], ",", "5"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Biradical", " ", "=", " ", 
   RowBox[{"Transpose", "[", "Biradical", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListLogPlot", "[", 
    RowBox[{"Monoradical", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"1", ";;", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", 
   RowBox[{"ListLogPlot", "[", 
    RowBox[{
     RowBox[{"Biradical", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"1", ";;", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "293"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "12"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<T (K)\>\"", ",", "Black", ",", " ", "24"}], "]"}], ",", 
      " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Tm (ns)\>\"", ",", "Black", ",", "24"}], "]"}]}], "}"}]}],
    ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "750"}]}], " ", "]"}]}], "Input",
 CellChangeTimes->{{3.7772657153871803`*^9, 3.77726574273337*^9}, {
  3.7772657793232594`*^9, 3.7772658386244125`*^9}, {3.777265869135248*^9, 
  3.777265933409831*^9}, {3.7772660347489905`*^9, 3.777266038076713*^9}, {
  3.777266226606057*^9, 3.777266674182833*^9}, {3.777639115013832*^9, 
  3.777639121111992*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"10", "22773.20526867556`", "489.10911072205516`", "10", "10"},
     {"30", "17402.422224717095`", "766.5242822608353`", "30", "30"},
     {"50", "13471.864877845652`", "346.214251487634`", "50", "50"},
     {"80", "10830.866269140566`", "1223.2282252162795`", 
      "78316.11747393286`", "3470.975745530972`"},
     {"90", "11997.444010853707`", "1050.235952574686`", "94868.91002034476`",
       "3403.6121996847514`"},
     {"100", "12368.393721207116`", "2149.880067552038`", 
      "97418.70484593943`", "6216.756956577622`"},
     {"110", "11864.98410542614`", "2384.456546900342`", "89469.82523199738`",
       "6133.827200980072`"},
     {"120", "11213.963094712633`", "3658.667156597801`", 
      "96546.26844686185`", "11614.136574777338`"},
     {"150", "6547.326583330663`", "2237.5824047497313`", 
      "48512.57950673481`", "6165.711562890308`"},
     {"200", "200", "200", "1083.495522314948`", "12.930407975985876`"},
     {"225", "225", "225", "1270.9357449043325`", "14.800004547703674`"},
     {"250", "250", "250", "1538.5218561521835`", "17.22287811329587`"},
     {"293", "293", "293", "115.61400908849586`", "0.5647488852973817`"}
    },
    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.777266520136736*^9, {3.7772665635214396`*^9, 3.7772666299567566`*^9}, {
   3.7772666628564386`*^9, 3.7772666751044903`*^9}, 3.777638293703698*^9, 
   3.7776390435631227`*^9, 3.7776391215595765`*^9, 3.777639260852897*^9, 
   3.7776392995494046`*^9, 3.77763933319245*^9, 3.777808683603931*^9, 
   3.7778088493603945`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], 
      PointBox[{{10., 10.033339916330442`}, {30., 9.764364683831117}, {50., 
       9.508358706580685}, {80., 9.290155324713123}, {90., 
       9.392448906987084}, {100., 9.42289960418267}, {110., 
       9.381346829250436}, {120., 9.32491498567701}, {150., 
       8.786812090094593}}]}, {}}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[{{80., 11.268508703375181`}, {90., 
       11.460251323128814`}, {100., 11.48677351273243}, {110., 
       11.40165669916986}, {120., 11.477777638190682`}, {150., 
       10.789578414567544`}, {200., 6.987947688355921}, {225., 
       7.147508715154896}, {250., 7.338577400804956}, {293., 
       4.750257134782503}}]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 8.696338296254895},
  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]},
  FrameTicks->{{{{8.922658299524402, 
       FormBox["7500", TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {9.210340371976184, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 2}]& ], 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.433483923290392, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.25\"", 1.25, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 2}]& ], 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.615805480084347, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 2}]& ], 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.769956159911606, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"1.75\"", 1.75, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 2}]& ], 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {9.903487552536127, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"2.00\"", 2., AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 2}]& ], 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {10.021270588192511`, 
       FormBox[
        TemplateBox[{"\[Times]", "\"\[Times]\"", 
          TagBox[
           InterpretationBox["\"2.25\"", 2.25, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 2}]& ], 
          
          TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
           SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
       0.}, {
        AbsoluteThickness[0.1]}}, {8.517193191416238, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {8.612503371220562, 
       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.779557455883728, 
       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.047821442478408, 
       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.159047077588632, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.259130536145614, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.305650551780507, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.350102314351341, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.392661928770137, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.472704636443673, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.51044496442652, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.546812608597396, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.581903928408666, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.648595302907339, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.680344001221918, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.711115659888671, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.740968623038354, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.798127036878302, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.825526011066415, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.852194258148577, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.878169744551839, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.9281801651265, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.95227771670556, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.975808214115753, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {9.998797732340453, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.043249494911286`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.06475570013225, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.085809109330082`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.106428396532818`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {10.126631103850338`, 
       FormBox[
        InterpretationBox[
         StyleBox[
          GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
          "CacheGraphics" -> False], 
         Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->750,
  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, 293}, {4, 12}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, {{8.922658299524402, 
      FormBox["7500", TraditionalForm], {0.01, 0.}, {
       AbsoluteThickness[0.1]}}, {9.210340371976184, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 2}]& ], 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {9.433483923290392, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.25\"", 1.25, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 2}]& ], 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {9.615805480084347, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 2}]& ], 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {9.769956159911606, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"1.75\"", 1.75, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 2}]& ], 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {9.903487552536127, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"2.00\"", 2., AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 2}]& ], 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {10.021270588192511`, 
      FormBox[
       TemplateBox[{"\[Times]", "\"\[Times]\"", 
         TagBox[
          InterpretationBox["\"2.25\"", 2.25, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 2}]& ], 
         TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> 
          SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 
      0.}, {
       AbsoluteThickness[0.1]}}, {8.517193191416238, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {8.612503371220562, 
      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.779557455883728, 
      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.047821442478408, 
      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.159047077588632, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.259130536145614, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.305650551780507, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.350102314351341, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.392661928770137, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.472704636443673, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.51044496442652, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.546812608597396, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.581903928408666, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.648595302907339, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.680344001221918, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.711115659888671, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.740968623038354, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.798127036878302, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.825526011066415, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.852194258148577, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.878169744551839, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.9281801651265, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.95227771670556, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.975808214115753, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {9.998797732340453, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.043249494911286`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.06475570013225, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.085809109330082`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.106428396532818`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}, {10.126631103850338`, 
      FormBox[
       InterpretationBox[
        StyleBox[
         GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], 
         "CacheGraphics" -> False], 
        Spacer[{0, 0}]], TraditionalForm], {0.005, 0.}, {
       AbsoluteThickness[0.1]}}}}]], "Output",
 CellChangeTimes->{
  3.777266520136736*^9, {3.7772665635214396`*^9, 3.7772666299567566`*^9}, {
   3.7772666628564386`*^9, 3.7772666751044903`*^9}, 3.777638293703698*^9, 
   3.7776390435631227`*^9, 3.7776391215595765`*^9, 3.777639260852897*^9, 
   3.7776392995494046`*^9, 3.77763933319245*^9, 3.777808683603931*^9, 
   3.7778088495030537`*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell["\<\
10\t22773.20526867556\t489.10911072205516\t10\t10
30\t17402.422224717095\t766.5242822608353\t30\t30
50\t13471.864877845652\t346.214251487634\t50\t50
80\t10830.866269140566\t1223.2282252162795\t78316.11747393286\t\
3470.975745530972
90\t11997.444010853707\t1050.235952574686\t94868.91002034476\t\
3403.6121996847514
100\t12368.393721207116\t2149.880067552038\t97418.70484593943\t\
6216.756956577622
110\t11864.98410542614\t2384.456546900342\t89469.82523199738\t6133.827200980072
120\t11213.963094712633\t3658.667156597801\t96546.26844686185\t\
11614.136574777338
150\t6547.326583330663\t2237.5824047497313\t48512.57950673481\t\
6165.711562890308
200\t200\t200\t1083.495522314948\t12.930407975985876
225\t225\t225\t1270.9357449043325\t14.800004547703674
250\t250\t250\t1538.5218561521835\t17.22287811329587
293\t293\t293\t115.61400908849586\t0.5647488852973817\
\>", "Print",
 CellChangeTimes->{3.7778086838702393`*^9, 3.77780884958116*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1920, 997},
WindowMargins->{{1912, Automatic}, {Automatic, -8}},
FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (April 11, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 105, 1, 101, "Title"],
Cell[CellGroupData[{
Cell[710, 27, 107, 1, 70, "Section"],
Cell[820, 30, 1725, 49, 192, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2582, 84, 110, 1, 70, "Section"],
Cell[2695, 87, 305, 6, 52, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3037, 98, 208, 3, 70, "Section"],
Cell[3248, 103, 1072, 23, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4357, 131, 94, 1, 70, "Section"],
Cell[4454, 134, 3582, 98, 172, "Input"],
Cell[CellGroupData[{
Cell[8061, 236, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[8179, 241, 4174, 116, 184, "Input"],
Cell[12356, 359, 7973, 152, 505, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20390, 518, 94, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[20509, 523, 3392, 94, 172, "Input"],
Cell[23904, 619, 6899, 129, 508, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30840, 753, 91, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[30956, 758, 4054, 115, 184, "Input"],
Cell[35013, 875, 8158, 155, 508, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43232, 1037, 96, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[43353, 1042, 3342, 93, 172, "Input"],
Cell[46698, 1137, 7341, 136, 508, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54076, 1278, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[54196, 1283, 3126, 87, 152, "Input"],
Cell[57325, 1372, 1473, 29, 93, "Output"],
Cell[58801, 1403, 606, 9, 31, "Output"],
Cell[59410, 1414, 8168, 150, 508, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[67639, 1571, 109, 1, 70, "Section"],
Cell[67751, 1574, 2119, 56, 57, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69907, 1635, 122, 2, 70, "Section"],
Cell[CellGroupData[{
Cell[70054, 1641, 4468, 117, 292, "Input"],
Cell[74525, 1760, 1003, 14, 31, "Output"],
Cell[75531, 1776, 1003, 14, 31, "Output"],
Cell[76537, 1792, 9706, 176, 494, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[86292, 1974, 90, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[86407, 1979, 5312, 150, 272, "Input"],
Cell[91722, 2131, 1805, 33, 93, "Output"],
Cell[93530, 2166, 890, 12, 31, "Output"],
Cell[94423, 2180, 1808, 33, 93, "Output"],
Cell[96234, 2215, 890, 12, 31, "Output"],
Cell[97127, 2229, 9365, 170, 510, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[106541, 2405, 92, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[106658, 2410, 4236, 113, 292, "Input"],
Cell[110897, 2525, 6655, 125, 502, "Output"]
}, Open  ]],
Cell[117567, 2653, 91, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[117683, 2658, 91, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[117799, 2663, 5291, 151, 272, "Input"],
Cell[123093, 2816, 1590, 30, 93, "Output"],
Cell[124686, 2848, 674, 9, 31, "Output"],
Cell[125363, 2859, 1593, 30, 93, "Output"],
Cell[126959, 2891, 676, 9, 31, "Output"],
Cell[127638, 2902, 8942, 163, 502, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[136641, 3072, 97, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[136763, 3077, 4351, 117, 292, "Input"],
Cell[141117, 3196, 9046, 166, 490, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150200, 3367, 91, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[150316, 3372, 5434, 153, 272, "Input"],
Cell[155753, 3527, 1222, 25, 93, "Output"],
Cell[156978, 3554, 309, 4, 31, "Output"],
Cell[157290, 3560, 1223, 25, 93, "Output"],
Cell[158516, 3587, 307, 4, 31, "Output"],
Cell[158826, 3593, 9151, 168, 490, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[168038, 3768, 94, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[168157, 3773, 4375, 117, 292, "Input"],
Cell[172535, 3892, 9298, 169, 490, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181870, 4066, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[181988, 4071, 5415, 154, 272, "Input"],
Cell[187406, 4227, 743, 14, 23, "Message"],
Cell[188152, 4243, 1594, 31, 93, "Output"],
Cell[189749, 4276, 684, 10, 31, "Output"],
Cell[190436, 4288, 1604, 31, 93, "Output"],
Cell[192043, 4321, 684, 10, 31, "Output"],
Cell[192730, 4333, 9300, 170, 490, "Output"],
Cell[202033, 4505, 744, 14, 23, "Message"],
Cell[202780, 4521, 742, 14, 23, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[203583, 4542, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[203703, 4547, 4430, 118, 292, "Input"],
Cell[208136, 4667, 9286, 170, 490, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[217459, 4842, 95, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[217579, 4847, 5432, 156, 272, "Input"],
Cell[223014, 5005, 1018, 17, 23, "Message"],
Cell[224035, 5024, 1579, 30, 90, "Output"],
Cell[225617, 5056, 665, 9, 31, "Output"],
Cell[226285, 5067, 1018, 17, 23, "Message"],
Cell[227306, 5086, 1581, 30, 93, "Output"],
Cell[228890, 5118, 668, 9, 31, "Output"],
Cell[229561, 5129, 9566, 174, 506, "Output"],
Cell[239130, 5305, 1017, 17, 23, "Message"],
Cell[240150, 5324, 1019, 17, 23, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[241230, 5348, 93, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[241348, 5353, 4727, 132, 292, "Input"],
Cell[246078, 5487, 788, 10, 31, "Output"],
Cell[246869, 5499, 785, 10, 31, "Output"],
Cell[247657, 5511, 9239, 168, 488, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[256933, 5684, 91, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[257049, 5689, 5477, 156, 272, "Input"],
Cell[262529, 5847, 1016, 17, 23, "Message"],
Cell[263548, 5866, 1174, 24, 87, "Output"],
Cell[264725, 5892, 261, 3, 31, "Output"],
Cell[264989, 5897, 1014, 17, 23, "Message"],
Cell[266006, 5916, 1180, 24, 93, "Output"],
Cell[267189, 5942, 262, 3, 31, "Output"],
Cell[267454, 5947, 8981, 165, 504, "Output"],
Cell[276438, 6114, 1015, 17, 23, "Message"],
Cell[277456, 6133, 1015, 17, 23, "Message"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[278532, 6157, 174, 2, 70, "Section"],
Cell[278709, 6161, 596, 17, 34, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[279342, 6183, 95, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[279462, 6188, 3118, 88, 152, "Input"],
Cell[282583, 6278, 17559, 304, 495, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[300179, 6587, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[300297, 6592, 3046, 85, 172, "Input"],
Cell[303346, 6679, 1262, 26, 73, "Output"],
Cell[304611, 6707, 458, 7, 31, "Output"],
Cell[305072, 6716, 17992, 312, 495, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[323125, 7035, 93, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[323243, 7040, 3118, 88, 152, "Input"],
Cell[326364, 7130, 20291, 350, 495, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[346692, 7485, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[346810, 7490, 3025, 85, 152, "Input"],
Cell[349838, 7577, 1152, 24, 73, "Output"],
Cell[350993, 7603, 350, 5, 31, "Output"],
Cell[351346, 7610, 19242, 332, 495, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[370649, 7949, 93, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[370767, 7954, 3120, 88, 152, "Input"],
Cell[373890, 8044, 20286, 350, 493, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[394213, 8399, 91, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[394329, 8404, 2972, 84, 152, "Input"],
Cell[397304, 8490, 1160, 24, 73, "Output"],
Cell[398467, 8516, 356, 5, 31, "Output"],
Cell[398826, 8523, 19508, 337, 493, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[418395, 8867, 92, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[418512, 8872, 3120, 88, 152, "Input"],
Cell[421635, 8962, 21850, 374, 508, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[443522, 9341, 93, 1, 49, "Subsection"],
Cell[CellGroupData[{
Cell[443640, 9346, 2973, 84, 152, "Input"],
Cell[446616, 9432, 1154, 24, 73, "Output"],
Cell[447773, 9458, 349, 5, 31, "Output"],
Cell[448125, 9465, 17852, 309, 508, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[466038, 9781, 93, 1, 70, "Section"],
Cell[CellGroupData[{
Cell[466156, 9786, 2988, 91, 192, "Input"],
Cell[469147, 9879, 2058, 40, 234, "Output"],
Cell[471208, 9921, 27601, 663, 476, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[498846, 10589, 447, 13, 52, "Input"],
Cell[499296, 10604, 948, 20, 215, "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

