(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    154226,       3049]
NotebookOptionsPosition[    153105,       3010]
NotebookOutlinePosition[    153662,       3030]
CellTagsIndexPosition[    153619,       3027]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   StyleBox[
    RowBox[{
     RowBox[{"NOTE", ":", " ", 
      RowBox[{"FOR", " ", "SIMPLICITY"}]}], ",", " ", 
     RowBox[{
      RowBox[{"INITIAL", " ", "COVERAGE"}], " ", "=", " ", 
      RowBox[{"0", " ", 
       RowBox[{"(", 
        RowBox[{"when", " ", "beam", " ", "is", " ", "turned", " ", "on"}], 
        ")"}]}]}]}],
    FontColor->RGBColor[1, 0, 0]], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   StyleBox[
    RowBox[{"(", 
     RowBox[{
     "inital", " ", "coverages", " ", "can", " ", "be", " ", "calculated", 
      " ", "by", " ", "setting", " ", "f0", " ", "to", " ", "zero"}], ")"}],
    FontColor->RGBColor[1, 0, 0]], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "code", " ", "was", " ", "tested", " ", "using", " ", 
    "Mathematica", " ", "v", " ", "10.0", ".1", ".0", " ", 
    RowBox[{"(", 
     RowBox[{"Platform", ":", " ", 
      RowBox[{"Mac", " ", "OS", " ", "X", " ", "x86", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"32", "-", " ", "bit"}], ",", " ", 
         RowBox[{"64", "-", " ", 
          RowBox[{"bit", " ", "Kernel"}]}]}], ")"}]}]}], ")"}]}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Documentation", " ", "in", " ", "the", " ", 
    RowBox[{
    "paper", ":", " ", 
     "\"\<Continuum models of focused electron beam induced \
processing\>\""}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"by", " ", "Milos", " ", "Toth"}], ",", 
    RowBox[{"Charlene", " ", "Lobo"}], ",", 
    RowBox[{"Vinzenz", " ", "Friedli"}], ",", 
    RowBox[{
    "Aleksandra", " ", "Szkudlarek", " ", "and", " ", "Ivo", " ", "Utke"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Beilstein", " ", 
     RowBox[{"J", ".", "Nanotechnol", ".", "2015"}]}], ",", "6", ",", 
    RowBox[{"1518", "-", 
     RowBox[{"1540", " ", 
      RowBox[{"(", 
       RowBox[{"open", " ", "access"}], ")"}]}]}]}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"http", ":"}], "//", 
    RowBox[{
     RowBox[{"www", ".", "beilstein"}], "-", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"journals", ".", "org"}], "/", "bjnano"}], "/", "content"}], 
       "/", "pdf"}], "/", "2190"}], "-", "4286", "-", "6", "-", 
     RowBox[{"157.", "pdf"}]}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{">>>", ">>>", ">>>", ">>>", ">>>", 
    RowBox[{">", " ", 
     RowBox[{"INPUT", " ", "PARAMETERS", " ", 
      RowBox[{"<<", 
       RowBox[{"<<", 
        RowBox[{"<<", 
         RowBox[{"<<", 
          RowBox[{"<<", 
           RowBox[{"<<", 
            RowBox[{"<<", "<<"}]}]}]}]}]}]}]}]}]}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmin", "=", 
     RowBox[{"10", "^", 
      RowBox[{"-", "7"}]}]}], ";", 
    RowBox[{"tmax", "=", "10"}], ";", " ", 
    RowBox[{"(*", " ", "sec", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"k0", "=", 
     RowBox[{"8617332478", "*", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "14"}], ")"}]}]}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"eV", "/", "K"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"T0", "=", "300"}], ";", " ", 
    RowBox[{"Tg0", "=", "300"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"sample", " ", "&"}], " ", "gas", " ", "temperatures", " ", 
      RowBox[{"(", "K", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"P0", "=", "0.05"}], " ", ";", 
    RowBox[{"(*", " ", 
     RowBox[{"gas", " ", "pressure", " ", 
      RowBox[{"(", "Torr", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Z0", "=", "208.33"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"TEOS", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["SiC", "8"], 
         SubscriptBox["H", "20"], 
         SubscriptBox["O", "4"]}], ")"}]}], ";", " ", 
      RowBox[{"mass", " ", "of", " ", "gas", " ", "molecule", " ", 
       RowBox[{"(", "amu", ")"}]}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
    RowBox[{"f0", "=", "80"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"electron", " ", "flux", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[CapitalARing]", 
         RowBox[{"-", "2"}]], 
        SuperscriptBox["s", 
         RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"sp0", "=", "1"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "sticking", " ", "coefficient", " ", "for", " ", "physisorption"}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Ap0", "=", "100"}], ";", 
    RowBox[{"Ac0", "=", "100"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "areas", " ", "of", " ", "physisorbed", " ", "and", " ", "chemisorbed", 
      " ", "molecules", " ", 
      RowBox[{"(", 
       SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]p0", "=", 
     RowBox[{"\[Sigma]c0", "=", "10"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "-", 
        RowBox[{
        "section", " ", "for", " ", "dissociation", " ", "of", " ", 
         "physisorbed"}]}], " ", "&"}], " ", "chemisorbed", " ", "molecules", 
      " ", 
      RowBox[{"(", 
       SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Ed0", "=", 
     RowBox[{"510", "/", "1000"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"(", "eV", ")"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Ec0", "=", 
     RowBox[{"855", "/", "1000"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"(", "eV", ")"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"ED0", "=", 
     RowBox[{"1415", "/", "1000"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"(", "eV", ")"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Kappa]p0", "=", 
     RowBox[{"\[Kappa]c0", "=", 
      RowBox[{"\[Kappa]D0", "=", 
       RowBox[{"1.0", "*", 
        RowBox[{"10", "^", "15"}]}]}]}]}], ";", 
    RowBox[{"(*", " ", 
     SuperscriptBox["s", 
      RowBox[{"-", "1"}]], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"sc0", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{">>>", ">>>", ">>>", ">>>", ">>>", 
     RowBox[{">", " ", 
      RowBox[{"END", " ", "OF", " ", "PARAMETERS", " ", 
       RowBox[{"<<", 
        RowBox[{"<<", 
         RowBox[{"<<", 
          RowBox[{"<<", 
           RowBox[{"<<", 
            RowBox[{"<<", 
             RowBox[{"<<", "<<"}]}]}]}]}]}]}]}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", 
     "performs", " ", "parameter", " ", "substitutions"}], " ", "***)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"refreshSubstitutions", ":=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sub", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"k", "\[Rule]", "k0"}], ",", 
         RowBox[{"Ed", "\[Rule]", "Ed0"}], ",", 
         RowBox[{"Ec", "\[Rule]", "Ec0"}], ",", 
         RowBox[{"ED", "\[Rule]", "ED0"}], ",", 
         RowBox[{"\[Kappa]p", "\[Rule]", "\[Kappa]p0"}], ",", 
         RowBox[{"\[Kappa]c", "\[Rule]", "\[Kappa]c0"}], ",", 
         RowBox[{"\[Kappa]D", "\[Rule]", "\[Kappa]D0"}], ",", 
         RowBox[{"sp", "\[Rule]", "sp0"}], ",", 
         RowBox[{"s0", "\[Rule]", "sc0"}], ",", 
         RowBox[{"Ap", "\[Rule]", "Ap0"}], ",", 
         RowBox[{"Ac", "\[Rule]", "Ac0"}], ",", " ", 
         RowBox[{"T", "\[Rule]", "T0"}], ",", 
         RowBox[{"Tg", "\[Rule]", "Tg0"}], ",", 
         RowBox[{"P", "\[Rule]", "P0"}], ",", 
         RowBox[{"Z", "\[Rule]", "Z0"}], ",", 
         RowBox[{"\[Sigma]p", "\[Rule]", "\[Sigma]p0"}], ",", 
         RowBox[{"\[Sigma]c", "\[Rule]", "\[Sigma]c0"}], ",", 
         RowBox[{"f", "\[Rule]", "f0"}]}], "}"}]}], ";"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"refreshSubstitutions", ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", 
     "evaluates", " ", "equations"}], " ", "***)"}], "\[IndentingNewLine]", 
   RowBox[{"evaluateEquations", ":=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"physisorbNumeric", "=", 
       RowBox[{"physisorb", " ", "/.", "sub"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"chemisorbNumeric", "=", 
       RowBox[{"chemisorb", " ", "/.", "sub"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"dissociateNumeric", "=", 
       RowBox[{"dissociate", " ", "/.", "sub"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sol", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
          "chemisorbNumeric", ",", "physisorbNumeric", ",", 
           "dissociateNumeric", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Nc", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"Np", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"Nd", "[", "0", "]"}], "\[Equal]", "0"}]}], " ", 
          RowBox[{"(*", " ", 
           StyleBox[
            RowBox[{
             RowBox[{"INITIAL", " ", "COVERAGE"}], " ", "=", " ", "0"}],
            FontColor->RGBColor[1, 0, 0]], " ", "*)"}], "\[IndentingNewLine]",
           "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Nc", "[", "t", "]"}], ",", 
           RowBox[{"Np", "[", "t", "]"}], ",", 
           RowBox[{"Nd", "[", "t", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}]}], "]"}]}], ";"}], "}"}]}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "set"}], " ", "up", " ", "equations"}], " ", "***)"}],
    " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"F", "=", 
     RowBox[{"P", "*", 
      RowBox[{"13332200", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
        "2", "*", "Pi", "*", "Z", "*", "1.66053873", "*", "1.38066", "*", 
         "Tg"}], "]"}]}]}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"gas", " ", "molecule", " ", "flux", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[CapitalARing]", 
         RowBox[{"-", "2"}]], 
        SuperscriptBox["s", 
         RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"sc", "=", 
     RowBox[{"s0", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"Ec", "-", "Ed"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "Tg"}], ")"}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kp", "=", 
     RowBox[{"\[Kappa]p", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "Ed"}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "physisorbed", " ", "molecule", " ", "desorption", " ", "rate", " ", 
      RowBox[{"(", 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"kD", "=", 
     RowBox[{"\[Kappa]D", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "ED"}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "chemisorbed", " ", "molecule", " ", "desorption", " ", "rate", " ", 
      RowBox[{"(", 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"kc", "=", 
     RowBox[{"\[Kappa]c", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "Ec"}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"physisorbed", "-", "to", "-", 
      RowBox[{"chemisorbed", " ", "transition", " ", "rate", " ", 
       RowBox[{"(", 
        SuperscriptBox["s", 
         RowBox[{"-", "1"}]], ")"}]}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"A2", "=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Ap", "*", 
        RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "limit", " ", "coverage", " ", "of", " ", "physisorbed", " ", "species", 
      " ", "to", " ", "1", " ", "ML"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"A3", "=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Ac", "*", 
        RowBox[{"Nc", "[", "t", "]"}]}]}], ")"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{
     "limit", " ", "coverage", " ", "of", " ", "chemisorbed", " ", "species", 
      " ", "to", " ", "1", " ", "ML"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"physisorb", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Np", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{"sp", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", "sc"}], ")"}], "*", "F", "*", "A2"}], "-", 
       RowBox[{
        RowBox[{"Np", "[", "t", "]"}], 
        RowBox[{"(", 
         RowBox[{"kp", "+", 
          RowBox[{"kc", "*", "A3"}], "+", 
          RowBox[{"\[Sigma]p", "*", "f"}]}], ")"}]}]}]}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"chemisorb", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Nc", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"sc", "*", "F"}], "+", 
         RowBox[{
          RowBox[{"Np", "[", "t", "]"}], "*", "kc"}]}], ")"}], "*", "A3"}], 
      "-", 
      RowBox[{
       RowBox[{"Nc", "[", "t", "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"kD", "+", 
         RowBox[{"\[Sigma]c", "*", "f"}]}], ")"}]}]}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"dissociate", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Nd", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{"f", "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Sigma]c", "*", 
         RowBox[{"Nc", "[", "t", "]"}]}], "+", 
        RowBox[{"\[Sigma]p", "*", 
         RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}]}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"evaluateEquations", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Plot of coverage vs time:\>\"", ",", "Bold"}], "]"}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Quiet", "[", 
    RowBox[{"LogLinearPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"Nc", "[", "t", "]"}], "/.", "sol"}], "]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Time (s)\>\"", ",", 
         "\"\<Chemisorbate concentration (\!\(\*SuperscriptBox[\(\
\[CapitalARing]\), \(-2\)]\))\>\""}], "}"}]}]}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Quiet", "[", 
    RowBox[{"LogLinearPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"Nc", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"Np", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Nc", "[", "t", "]"}], "/.", "sol"}], "}"}], "+", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Np", "[", "t", "]"}], "/.", "sol"}], "}"}]}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Time (s)\>\"", ",", 
         "\"\<Adsorbate concentration (\!\(\*SuperscriptBox[\(\[CapitalARing]\
\), \(-2\)]\))\>\""}], "}"}]}]}], "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Plot of dissociation rate vs time:\>\"", ",", "Bold"}], 
     "]"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Quiet", "[", 
    RowBox[{"LogLinearPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"f0", "*", "\[Sigma]c0", "*", 
            RowBox[{"Nc", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"f0", "*", "\[Sigma]p0", "*", 
            RowBox[{"Np", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"f0", "*", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Sigma]c0", "*", 
               RowBox[{"Nc", "[", "t", "]"}]}], "+", 
              RowBox[{"\[Sigma]p0", "*", 
               RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}], "}"}], "/.", 
          "sol"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Time (s)\>\"", ",", 
         "\"\<Dissociation rate (\!\(\*SuperscriptBox[\(\[CapitalARing]\), \
\(-2\)]\)\!\(\*SuperscriptBox[\(s\), \(-1\)]\))\>\""}], "}"}]}]}], "]"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.545593622605394*^9, 3.5455936520679007`*^9}, {
   3.545593700138701*^9, 3.545593780877733*^9}, {3.545593818629559*^9, 
   3.545593845890605*^9}, {3.545593966416913*^9, 3.5455939666898117`*^9}, {
   3.545593996844634*^9, 3.545594008906681*^9}, {3.54559414291831*^9, 
   3.545594149119533*^9}, {3.5455941982730217`*^9, 3.545594301290709*^9}, {
   3.545594333115694*^9, 3.5455944080062513`*^9}, {3.5455948283381042`*^9, 
   3.545594835205947*^9}, {3.545594879111733*^9, 3.545594946739607*^9}, {
   3.545595014873361*^9, 3.5455950201507998`*^9}, {3.545595410738702*^9, 
   3.545595481808715*^9}, {3.5455955465341167`*^9, 3.54559554976226*^9}, {
   3.545595969461195*^9, 3.545595977775858*^9}, {3.545596017169383*^9, 
   3.5455960217810507`*^9}, {3.545596082540064*^9, 3.545596189998969*^9}, {
   3.545596305713407*^9, 3.545596362245133*^9}, {3.545596392331855*^9, 
   3.545596451744137*^9}, {3.545596483417747*^9, 3.5455965494989243`*^9}, {
   3.545596635195951*^9, 3.545596684380025*^9}, {3.545596811629291*^9, 
   3.545596857619356*^9}, {3.545596933158187*^9, 3.545596977707073*^9}, {
   3.545597016880925*^9, 3.545597030263378*^9}, {3.545597090534534*^9, 
   3.5455971077510366`*^9}, {3.545597726047943*^9, 3.5455977377213917`*^9}, {
   3.545597807689041*^9, 3.5455978889357977`*^9}, {3.545597942702602*^9, 
   3.5455980452901907`*^9}, {3.5455981214984617`*^9, 3.54559815783892*^9}, {
   3.545598363057526*^9, 3.5455984036390467`*^9}, {3.5455994549813967`*^9, 
   3.545599524657728*^9}, {3.5455997857375517`*^9, 3.545599886108986*^9}, {
   3.5455999543837423`*^9, 3.545600025285009*^9}, {3.5456001149321938`*^9, 
   3.545600118834983*^9}, {3.545600166827819*^9, 3.545600263618778*^9}, {
   3.545600314068585*^9, 3.5456003323402967`*^9}, {3.545600502157552*^9, 
   3.545600504685534*^9}, {3.545600581373583*^9, 3.545600631339213*^9}, {
   3.545600680983746*^9, 3.5456007503544064`*^9}, {3.545601309070656*^9, 
   3.545601315613141*^9}, {3.545601463321438*^9, 3.545601488835772*^9}, {
   3.545601610658228*^9, 3.545601623231358*^9}, {3.5456016830066147`*^9, 
   3.5456016853766127`*^9}, {3.5456017212504807`*^9, 3.5456017562327347`*^9}, 
   3.545601992783464*^9, 3.5456020240959473`*^9, 3.545602186821157*^9, {
   3.545602269828196*^9, 3.545602518763485*^9}, 3.5456025812799873`*^9, {
   3.5456026121250553`*^9, 3.545602706184432*^9}, {3.545602841901168*^9, 
   3.545602844943697*^9}, {3.545602876210368*^9, 3.5456030697569723`*^9}, {
   3.545603165359054*^9, 3.5456031728623343`*^9}, {3.545603293013042*^9, 
   3.5456033736418743`*^9}, {3.545603528802059*^9, 3.545603719675035*^9}, 
   3.5456037588351793`*^9, {3.545603827517521*^9, 3.54560397045362*^9}, {
   3.5456040028195333`*^9, 3.545604021547737*^9}, {3.5456044528959417`*^9, 
   3.545604499453834*^9}, {3.545604539388179*^9, 3.545604589167062*^9}, {
   3.545604668971417*^9, 3.5456047036136093`*^9}, {3.545604734395595*^9, 
   3.545604810325037*^9}, {3.545604850980444*^9, 3.545604858225995*^9}, {
   3.545604889754655*^9, 3.5456049468707*^9}, {3.545605066124174*^9, 
   3.5456050752910852`*^9}, {3.545605110184072*^9, 3.545605110425456*^9}, 
   3.54560514610603*^9, 3.5456051810785437`*^9, 3.545605647769458*^9, {
   3.5456056825324593`*^9, 3.545605760087854*^9}, {3.545605864441763*^9, 
   3.545605931969748*^9}, {3.5456068917009897`*^9, 3.5456069239292*^9}, {
   3.545610517272328*^9, 3.545610521840197*^9}, {3.545610552094595*^9, 
   3.5456106747096987`*^9}, {3.5456107289846973`*^9, 
   3.5456107324473257`*^9}, {3.545613703341503*^9, 3.545613780002509*^9}, {
   3.54561384090661*^9, 3.5456138464215813`*^9}, {3.545613876766473*^9, 
   3.545613902461652*^9}, {3.5456141814986677`*^9, 3.545614181888014*^9}, {
   3.54562090892423*^9, 3.545620997932675*^9}, {3.5456210363165827`*^9, 
   3.545621039232995*^9}, {3.545621069954479*^9, 3.545621073949615*^9}, {
   3.54562117767115*^9, 3.545621182105699*^9}, {3.545621232446577*^9, 
   3.545621241898546*^9}, {3.545621280690489*^9, 3.545621305225215*^9}, 
   3.545621422687517*^9, {3.545621463716329*^9, 3.545621464081686*^9}, {
   3.5456215227784357`*^9, 3.5456215440517197`*^9}, {3.545621650663321*^9, 
   3.545621675868897*^9}, {3.545621803217785*^9, 3.545621809006225*^9}, {
   3.5456218390718184`*^9, 3.54562183928249*^9}, {3.5456220356704082`*^9, 
   3.545622036039263*^9}, {3.5456224158320208`*^9, 3.5456224195430813`*^9}, {
   3.5456228396397257`*^9, 3.5456228430636387`*^9}, {3.545623856582357*^9, 
   3.545623857904948*^9}, {3.545624426848063*^9, 3.545624430809279*^9}, {
   3.545624502285872*^9, 3.54562452288525*^9}, {3.545624567547442*^9, 
   3.545624571042581*^9}, {3.545624679336718*^9, 3.54562468199264*^9}, {
   3.5456255176858892`*^9, 3.545625546742899*^9}, {3.545625976390609*^9, 
   3.545626193052737*^9}, {3.545626225443667*^9, 3.5456263303533278`*^9}, 
   3.545627138819399*^9, {3.545680647156466*^9, 3.545680649771125*^9}, {
   3.5456806830729103`*^9, 3.5456807163192453`*^9}, {3.545680815658016*^9, 
   3.545680847311594*^9}, {3.5456811332612247`*^9, 3.545681137834345*^9}, {
   3.5456812047503443`*^9, 3.5456812184880543`*^9}, {3.545681549513342*^9, 
   3.545681563117752*^9}, {3.5456816047815638`*^9, 3.545681612564296*^9}, 
   3.545681686441505*^9, 3.5456817271136827`*^9, {3.545940582858685*^9, 
   3.5459406463166428`*^9}, 3.545940680926219*^9, {3.5459407126853437`*^9, 
   3.545940719161971*^9}, {3.545942981759048*^9, 3.5459429830024977`*^9}, {
   3.545943064179339*^9, 3.5459431060248547`*^9}, {3.545943172704026*^9, 
   3.5459431817086563`*^9}, {3.5459432735256042`*^9, 3.545943274409772*^9}, {
   3.5459433089910507`*^9, 3.545943329550262*^9}, {3.545943642534419*^9, 
   3.545943653467512*^9}, {3.545943764469323*^9, 3.545943857589327*^9}, {
   3.545943992702998*^9, 3.5459440945349407`*^9}, 3.5459441308188477`*^9, {
   3.546031953619293*^9, 3.5460320044780416`*^9}, {3.546033722892148*^9, 
   3.5460337251166983`*^9}, {3.546036647092533*^9, 3.5460366482093277`*^9}, {
   3.5460379439214907`*^9, 3.5460379440944233`*^9}, {3.546038093775237*^9, 
   3.546038428607135*^9}, {3.5460384735379553`*^9, 3.5460385182194347`*^9}, {
   3.5460391657033453`*^9, 3.546039165908293*^9}, 3.546039206098564*^9, 
   3.546039313535611*^9, {3.546039435325387*^9, 3.5460394601600246`*^9}, {
   3.546040328471211*^9, 3.546040389812194*^9}, {3.5460404212498302`*^9, 
   3.546040437850378*^9}, {3.5460404713989983`*^9, 3.546040564439208*^9}, {
   3.5460406761987123`*^9, 3.5460406985769253`*^9}, {3.546040737375806*^9, 
   3.546040793815825*^9}, {3.54604088907795*^9, 3.546040889731887*^9}, {
   3.54604094780586*^9, 3.546041058945307*^9}, {3.5460411525958242`*^9, 
   3.546041272660152*^9}, {3.546041324788903*^9, 3.5460414144857187`*^9}, 
   3.546041460273478*^9, {3.5460414912760878`*^9, 3.546041496962871*^9}, {
   3.546041562318124*^9, 3.546041592432583*^9}, {3.546041683407056*^9, 
   3.5460416837587223`*^9}, {3.546041746319212*^9, 3.546041770498487*^9}, {
   3.546041837175954*^9, 3.546041856706306*^9}, {3.546041898410812*^9, 
   3.54604202774501*^9}, {3.546042076913718*^9, 3.5460421825857773`*^9}, {
   3.5460422226248503`*^9, 3.546042226294868*^9}, {3.546042272145211*^9, 
   3.546042306277852*^9}, {3.5460423510376177`*^9, 3.5460423789597063`*^9}, {
   3.546042461856044*^9, 3.546042467242606*^9}, {3.5460425011392727`*^9, 
   3.546042519011558*^9}, {3.5460427174761467`*^9, 3.546042740986926*^9}, {
   3.5460549580721607`*^9, 3.546054959110705*^9}, 3.5460555288044167`*^9, 
   3.5460567371222153`*^9, {3.546058240490342*^9, 3.546058265643917*^9}, {
   3.5460583021105757`*^9, 3.546058302333075*^9}, {3.54605834248949*^9, 
   3.546058342649762*^9}, {3.546059604346424*^9, 3.546059633477109*^9}, {
   3.546061002035707*^9, 3.546061002551758*^9}, {3.546061055037258*^9, 
   3.5460610555895348`*^9}, {3.546465018359*^9, 3.546465020194607*^9}, {
   3.546465051087666*^9, 3.546465051807393*^9}, {3.546465100791939*^9, 
   3.546465137219553*^9}, 3.546476554836768*^9, {3.546477254997637*^9, 
   3.546477279983939*^9}, {3.5464774105188713`*^9, 3.546477411224106*^9}, {
   3.546477448208378*^9, 3.546477448525716*^9}, {3.548310466146838*^9, 
   3.548310468670226*^9}, 3.626907646656703*^9, 3.626907700443508*^9, {
   3.626907742382634*^9, 3.626907766526469*^9}, {3.626907803088305*^9, 
   3.626907900128058*^9}, {3.6269079456305037`*^9, 3.626908096683073*^9}, {
   3.626908175901203*^9, 3.626908235818717*^9}, {3.6269155544674463`*^9, 
   3.626915557463131*^9}, {3.626915589140777*^9, 3.6269156390282927`*^9}, {
   3.626915677475625*^9, 3.62691568770885*^9}, {3.6269157590453873`*^9, 
   3.62691576938783*^9}, {3.626915812772231*^9, 3.6269158554366426`*^9}, {
   3.6269158914928007`*^9, 3.626915957657825*^9}, {3.6269160417244987`*^9, 
   3.626916063790874*^9}, {3.6331057146611767`*^9, 3.633105751022675*^9}, {
   3.6331199735885563`*^9, 3.633120038716857*^9}, {3.633123937224744*^9, 
   3.633123943593251*^9}, {3.635440648994628*^9, 3.635440649831456*^9}, {
   3.6460026177457647`*^9, 3.646002618420759*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Np", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["Ed", 
           RowBox[{"k", " ", "T"}]]}]], " ", "\[Kappa]p"}], "+", 
       RowBox[{"f", " ", "\[Sigma]p"}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["Ec", 
           RowBox[{"k", " ", "T"}]]}]], " ", "\[Kappa]c", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"Ac", " ", 
           RowBox[{"Nc", "[", "t", "]"}]}]}], ")"}]}]}], ")"}]}], " ", 
    RowBox[{"Np", "[", "t", "]"}]}], "+", 
   FractionBox[
    RowBox[{"3.5127238523759204`*^6", " ", "P", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "Ec"}], "+", "Ed"}], 
          RowBox[{"k", " ", "Tg"}]]], " ", "s0"}]}], ")"}], " ", "sp", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Ap", " ", 
        RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}], 
    SqrtBox[
     RowBox[{"Tg", " ", "Z"}]]]}]}]], "Output",
 CellChangeTimes->{{3.546041160958767*^9, 3.5460411732740393`*^9}, {
   3.546041216861188*^9, 3.5460412732127037`*^9}, {3.546041327265106*^9, 
   3.546041415085876*^9}, 3.546041462673644*^9, 3.5460414974686737`*^9, 
   3.546041593678466*^9, 3.546041685484968*^9, {3.5460417554197702`*^9, 
   3.546041771406828*^9}, {3.546041847425962*^9, 3.5460418599824047`*^9}, 
   3.546041906659306*^9, 3.546042033971017*^9, 3.54604212612502*^9, 
   3.5460422269955063`*^9, 3.5460423104497833`*^9, 3.5460423815216417`*^9, 
   3.546042478255501*^9, 3.546042520755836*^9, {3.546042718404578*^9, 
   3.546042742043247*^9}, 3.546043053447414*^9, 3.546054970626151*^9, 
   3.546055531699061*^9, {3.546056616331687*^9, 3.546056626779685*^9}, 
   3.546056738760666*^9, {3.546058242405678*^9, 3.5460582668955717`*^9}, 
   3.5460583075386744`*^9, 3.546058345250922*^9, {3.5460596068863497`*^9, 
   3.5460596340682163`*^9}, 3.5460610129970713`*^9, 3.546061062229313*^9, 
   3.546062488427413*^9, 3.546063446271009*^9, 3.546068130192952*^9, 
   3.546068270801525*^9, {3.5464650214546757`*^9, 3.5464650525822287`*^9}, {
   3.546465102418089*^9, 3.546465138165887*^9}, 3.546476555867*^9, {
   3.546477256226651*^9, 3.546477280519018*^9}, 3.546477411663375*^9, 
   3.546477449617937*^9, 3.546542438559313*^9, 3.548310549047262*^9, 
   3.626908268343809*^9, 3.626916068751648*^9, {3.633108308658132*^9, 
   3.633108321673544*^9}, 3.63312004761709*^9, 3.633120137285718*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Nc", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", 
          FractionBox["ED", 
           RowBox[{"k", " ", "T"}]]}]], " ", "\[Kappa]D"}], "+", 
       RowBox[{"f", " ", "\[Sigma]c"}]}], ")"}]}], " ", 
    RowBox[{"Nc", "[", "t", "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Ac", " ", 
       RowBox[{"Nc", "[", "t", "]"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"3.5127238523759204`*^6", " ", 
        SuperscriptBox["\[ExponentialE]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "Ec"}], "+", "Ed"}], 
          RowBox[{"k", " ", "Tg"}]]], " ", "P", " ", "s0"}], 
       SqrtBox[
        RowBox[{"Tg", " ", "Z"}]]], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", 
         FractionBox["Ec", 
          RowBox[{"k", " ", "T"}]]}]], " ", "\[Kappa]c", " ", 
       RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.546041160958767*^9, 3.5460411732740393`*^9}, {
   3.546041216861188*^9, 3.5460412732127037`*^9}, {3.546041327265106*^9, 
   3.546041415085876*^9}, 3.546041462673644*^9, 3.5460414974686737`*^9, 
   3.546041593678466*^9, 3.546041685484968*^9, {3.5460417554197702`*^9, 
   3.546041771406828*^9}, {3.546041847425962*^9, 3.5460418599824047`*^9}, 
   3.546041906659306*^9, 3.546042033971017*^9, 3.54604212612502*^9, 
   3.5460422269955063`*^9, 3.5460423104497833`*^9, 3.5460423815216417`*^9, 
   3.546042478255501*^9, 3.546042520755836*^9, {3.546042718404578*^9, 
   3.546042742043247*^9}, 3.546043053447414*^9, 3.546054970626151*^9, 
   3.546055531699061*^9, {3.546056616331687*^9, 3.546056626779685*^9}, 
   3.546056738760666*^9, {3.546058242405678*^9, 3.5460582668955717`*^9}, 
   3.5460583075386744`*^9, 3.546058345250922*^9, {3.5460596068863497`*^9, 
   3.5460596340682163`*^9}, 3.5460610129970713`*^9, 3.546061062229313*^9, 
   3.546062488427413*^9, 3.546063446271009*^9, 3.546068130192952*^9, 
   3.546068270801525*^9, {3.5464650214546757`*^9, 3.5464650525822287`*^9}, {
   3.546465102418089*^9, 3.546465138165887*^9}, 3.546476555867*^9, {
   3.546477256226651*^9, 3.546477280519018*^9}, 3.546477411663375*^9, 
   3.546477449617937*^9, 3.546542438559313*^9, 3.548310549047262*^9, 
   3.626908268343809*^9, 3.626916068751648*^9, {3.633108308658132*^9, 
   3.633108321673544*^9}, 3.63312004761709*^9, 3.633120137298451*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Nd", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{"f", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[Sigma]c", " ", 
      RowBox[{"Nc", "[", "t", "]"}]}], "+", 
     RowBox[{"\[Sigma]p", " ", 
      RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.546041160958767*^9, 3.5460411732740393`*^9}, {
   3.546041216861188*^9, 3.5460412732127037`*^9}, {3.546041327265106*^9, 
   3.546041415085876*^9}, 3.546041462673644*^9, 3.5460414974686737`*^9, 
   3.546041593678466*^9, 3.546041685484968*^9, {3.5460417554197702`*^9, 
   3.546041771406828*^9}, {3.546041847425962*^9, 3.5460418599824047`*^9}, 
   3.546041906659306*^9, 3.546042033971017*^9, 3.54604212612502*^9, 
   3.5460422269955063`*^9, 3.5460423104497833`*^9, 3.5460423815216417`*^9, 
   3.546042478255501*^9, 3.546042520755836*^9, {3.546042718404578*^9, 
   3.546042742043247*^9}, 3.546043053447414*^9, 3.546054970626151*^9, 
   3.546055531699061*^9, {3.546056616331687*^9, 3.546056626779685*^9}, 
   3.546056738760666*^9, {3.546058242405678*^9, 3.5460582668955717`*^9}, 
   3.5460583075386744`*^9, 3.546058345250922*^9, {3.5460596068863497`*^9, 
   3.5460596340682163`*^9}, 3.5460610129970713`*^9, 3.546061062229313*^9, 
   3.546062488427413*^9, 3.546063446271009*^9, 3.546068130192952*^9, 
   3.546068270801525*^9, {3.5464650214546757`*^9, 3.5464650525822287`*^9}, {
   3.546465102418089*^9, 3.546465138165887*^9}, 3.546476555867*^9, {
   3.546477256226651*^9, 3.546477280519018*^9}, 3.546477411663375*^9, 
   3.546477449617937*^9, 3.546542438559313*^9, 3.548310549047262*^9, 
   3.626908268343809*^9, 3.626916068751648*^9, {3.633108308658132*^9, 
   3.633108321673544*^9}, 3.63312004761709*^9, 3.633120137307572*^9}],

Cell[BoxData[
 StyleBox["\<\"Plot of coverage vs time:\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{
  3.545594275417033*^9, {3.5455943258543987`*^9, 3.545594352070866*^9}, {
   3.5455943903255796`*^9, 3.545594409753593*^9}, 3.5455948364539557`*^9, 
   3.545594921296228*^9, 3.545595021590596*^9, {3.5455953652951403`*^9, 
   3.545595382680352*^9}, 3.545595420276464*^9, {3.545595455909422*^9, 
   3.5455954853616447`*^9}, {3.5455955510773582`*^9, 3.5455955647608*^9}, 
   3.545595680461438*^9, 3.545595979686843*^9, {3.545596022514072*^9, 
   3.545596045197377*^9}, {3.54559608636241*^9, 3.5455961906490183`*^9}, {
   3.5455963066973753`*^9, 3.545596367032168*^9}, {3.545596529897324*^9, 
   3.545596557399078*^9}, 3.5455966930506067`*^9, 3.545596815785028*^9, 
   3.545596858866251*^9, {3.545596996639995*^9, 3.54559703061936*^9}, 
   3.545597109735401*^9, 3.545597756687407*^9, 3.54559780857572*^9, 
   3.5455978624749527`*^9, 3.5455978937510557`*^9, {3.5455980073239613`*^9, 
   3.5455980457895317`*^9}, {3.545598122001401*^9, 3.545598166477599*^9}, 
   3.545598254939474*^9, {3.5455999820976477`*^9, 3.545600007973382*^9}, 
   3.5456000565206957`*^9, 3.545600121078031*^9, 3.5456002815490913`*^9, 
   3.545600359189083*^9, 3.545600512407583*^9, {3.545600557064808*^9, 
   3.545600601770113*^9}, 3.545600631783763*^9, {3.545600673436633*^9, 
   3.5456007511052647`*^9}, 3.5456013261078444`*^9, {3.545601471829322*^9, 
   3.545601489691885*^9}, {3.545601611895859*^9, 3.545601623659931*^9}, 
   3.545601686446495*^9, {3.545601721673792*^9, 3.545601756778764*^9}, 
   3.545601999828418*^9, 3.545602069112853*^9, 3.5456021903287497`*^9, {
   3.545602270530787*^9, 3.545602453225287*^9}, {3.5456024906793823`*^9, 
   3.5456025193627443`*^9}, 3.545602581783917*^9, {3.5456026157650347`*^9, 
   3.545602706884818*^9}, 3.5456033991477613`*^9, {3.545603530802047*^9, 
   3.5456036122339067`*^9}, 3.545604046144763*^9, 3.5456044185900497`*^9, 
   3.545604523812154*^9, 3.545604614372967*^9, {3.545604678843533*^9, 
   3.5456047042964783`*^9}, {3.545604771479611*^9, 3.5456048116356087`*^9}, {
   3.5456048614110413`*^9, 3.54560495523389*^9}, 3.545605076481801*^9, 
   3.545605113283265*^9, 3.545605146670886*^9, 3.545605181786087*^9, 
   3.5456056521340313`*^9, 3.545605763472995*^9, {3.545605881519014*^9, 
   3.5456059328703747`*^9}, 3.545606283974638*^9, 3.5456065783613157`*^9, 
   3.5456066920407963`*^9, 3.545606956240116*^9, 3.545607282973433*^9, 
   3.545607562027563*^9, 3.545609254722746*^9, 3.545609962921344*^9, 
   3.545610529963806*^9, {3.5456105858986464`*^9, 3.545610614568466*^9}, 
   3.545610645194811*^9, 3.54561067646564*^9, 3.545610732970492*^9, 
   3.54561076399277*^9, 3.545612561371162*^9, 3.5456127373592052`*^9, 
   3.54561295611504*^9, {3.545613703833064*^9, 3.545613780857421*^9}, {
   3.5456138481192427`*^9, 3.545613903391157*^9}, {3.5456141710400476`*^9, 
   3.5456141844193583`*^9}, 3.545619902579913*^9, 3.545620266160265*^9, 
   3.545621479593595*^9, {3.545621526216792*^9, 3.545621544895959*^9}, {
   3.545621654711646*^9, 3.545621676838524*^9}, 3.545621810200521*^9, 
   3.545621843916976*^9, {3.545622026486619*^9, 3.545622036867564*^9}, 
   3.545622215392498*^9, 3.545622420234446*^9, 3.545622844116006*^9, 
   3.545623859849106*^9, 3.5456244390974073`*^9, 3.5456245715001698`*^9, 
   3.545624683377153*^9, 3.545624728650568*^9, 3.545625154981246*^9, 
   3.545625473160935*^9, {3.54562553649678*^9, 3.545625547780102*^9}, 
   3.545626336564645*^9, 3.545627143442979*^9, 3.545627334965473*^9, 
   3.545627471146102*^9, 3.545627556199271*^9, 3.545627697044819*^9, 
   3.545681568741829*^9, 3.5456816052891417`*^9, 3.545681686996174*^9, 
   3.545681727711495*^9, 3.545940084647626*^9, 3.5459406857813787`*^9, {
   3.5459407206212463`*^9, 3.545940738554839*^9}, 3.545942990569405*^9, 
   3.545943214878791*^9, 3.5459432764077*^9, {3.5459433096714067`*^9, 
   3.545943330341778*^9}, 3.545943361379889*^9, 3.545943447762514*^9, 
   3.54594366273831*^9, 3.545943707224111*^9, 3.545943882669894*^9, {
   3.545944102372942*^9, 3.545944132281493*^9}, 3.5459442139632273`*^9, 
   3.545944618387574*^9, {3.5460320119289017`*^9, 3.546032023626416*^9}, 
   3.546033734018186*^9, 3.5460379017686234`*^9, 3.546037944801403*^9, {
   3.546038094618629*^9, 3.5460381159861526`*^9}, {3.546038146741969*^9, 
   3.546038194656616*^9}, {3.546038265233307*^9, 3.546038429059252*^9}, {
   3.546038476023872*^9, 3.5460385187966967`*^9}, 3.546039172924136*^9, 
   3.546039218946762*^9, 3.546039314078814*^9, {3.546039442081624*^9, 
   3.546039460618824*^9}, {3.546040330366028*^9, 3.5460403906419783`*^9}, 
   3.54604044121133*^9, {3.5460404725955276`*^9, 3.546040564750074*^9}, {
   3.546040677099669*^9, 3.546040699702656*^9}, {3.54604076339892*^9, 
   3.546040794190919*^9}, 3.546040890451099*^9, 3.5460410599459743`*^9, {
   3.54604116095043*^9, 3.54604117326715*^9}, {3.546041216854574*^9, 
   3.546041273206106*^9}, {3.546041327258485*^9, 3.546041415078535*^9}, 
   3.546041462666276*^9, 3.546041497461711*^9, 3.5460415936708107`*^9, 
   3.546041685477566*^9, {3.54604175541306*^9, 3.546041771400073*^9}, {
   3.546041847419306*^9, 3.5460418599757433`*^9}, 3.546041906652371*^9, 
   3.546042033963545*^9, 3.5460421261184797`*^9, 3.546042226988845*^9, 
   3.546042310443198*^9, 3.546042381515066*^9, 3.5460424782422*^9, 
   3.54604252074832*^9, {3.54604271839716*^9, 3.5460427420342407`*^9}, 
   3.546043053437543*^9, 3.5460549705396852`*^9, 3.54605553168974*^9, {
   3.54605661632442*^9, 3.546056626757677*^9}, 3.546056738750499*^9, {
   3.546058242396693*^9, 3.5460582668864527`*^9}, 3.546058307531291*^9, 
   3.546058345241702*^9, {3.546059606878522*^9, 3.5460596340614*^9}, 
   3.546061012989561*^9, 3.546061062221697*^9, 3.546062488417886*^9, 
   3.546063446189247*^9, 3.54606813018298*^9, 3.5460682707834044`*^9, {
   3.54646502144599*^9, 3.546465052573064*^9}, {3.546465102409072*^9, 
   3.546465138159264*^9}, 3.5464765558578873`*^9, {3.546477256217404*^9, 
   3.546477280510079*^9}, 3.546477411656775*^9, 3.546477449611148*^9, 
   3.546542438550598*^9, 3.548310549038352*^9, 3.626908268327836*^9, 
   3.626916068789907*^9, {3.633108308678187*^9, 3.6331083217261333`*^9}, 
   3.6331200476545*^9, 3.6331201373166723`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw913k41N/7P3BZI5SZsZTsYxmMrc02NyKkIlvWUpSEQgsSIoREKSp72Uup
RCRvbtuMiBaUqIgsUZJky/Kb6vv7/PW6Htc5537e51znel2vl5Srj9UhVhYW
lq4VLCx/npd4J0J0xNUwmiB+nG/vJ5pkQz3t2Xo1vOa2WZce+In24Mz1xT2i
api30XXiXtIn2utRCDkuooZzAt89V7V+ogk+iw++TVBDTY454ZX6/bS0KKUz
wlxqSH7gPGyrOkCzWGydGOpVxVcXO+LaNw3SfL1P+bJ+UEW30zYN6+wHaVd6
1k+IdatiHt3hZXrQIO3NE6/vNh2q6O1hJ2CNgzRnf+7xuiZVvJXHoZBkPkTz
+G40lvlQFad+UDqa/YdpYZ+eDu6JUMXje+JPm8x9oble/iq6MUwV+1TpKS7y
ozRDPTErgRBVvK0vktBmO0rjzAitbvFXxXc/RYoePRqlxdsbXNf3VEXxa2d4
i0+M0VJf0E0VLVURsxg1rBzfaMGhM6Fc5qq4M5Yl473mN9o+qkLZZzNVnFYy
aRc5+o0mFRcrlWWkivPtj1yevvlGKzTeOU/UVMWrlJW91cXjtLL/XhUtiqti
9Ke0L1paE7Rr3qz93aKqqHj75MkjeyZogaIbRCpEVFHfwPfByxMTNN3TSZHH
CapoGuM0Z3J/gla30W7vMIcqhmtxUYcUftBeFr3nf/VVBX/09fcYy0/SRlOG
/XIrVbCyeEf1L+spWmaabM/jchXcubb740X/KZplhpvRs1IVPPhlt6RryhSt
4mav0HixCu4SPt3W1DtFO1/w9umWHBX0BJ3gqz6/aNJlDI6WOBWcmSffi0qb
pjm9LEj54ayCzacmn21TmKPxvx5kZXdUwfz2Wf946zlaXbuMt5CdCsYUiqjI
nJ2jKb7NAh1LFSSXLM5ov52jzX64PhC5TQUlnaK7leLmaUlj0VQRFRWMWNB7
l8S6QHvO6VELy1QU8y15V79hmbbzzvuPLgtUtCvHsn6PZVrLLsuFsDkqPuej
+LtkLtOak7S31P+kIufWzde1OVigSZrvnskIFS+0fHySeIIFGqDkxu5XVKRw
d3cnOKyAKv8FH9ccKnrd/TiivIsNdNf5xUfcpKKax7F+g2Ns8PS/wTu5GVS0
/2rEmXiJDSrZXwwOXafiewrBsfc1G1RcueXkdZGKDUbDFBNndigtNjY5eYqK
YY+0H6QHcUDR0GXx8yZUVDUup+uPcMHos4RJDyMqpoQXfB0grQTFexfpOwyo
aBS/XqvHYCXcORFzTECHilc+phU2pa+EQpaw6nQVKv5o9S+6v4cbctf57Hsk
SMU4N8mXm3t4INN8V2bfgDL6hKerXFLih4/qO47X9ymj4UY5w1E3fhAT3G6c
/0EZM48YltxL54f0HqNxr7fKeGz5xDHf1ashzUMXZpqVcffhbN+5udVw45zS
R74SZXwxOOP74ccauPKYW1wnTBnLUnX7L3MRIfcrSdY6RBkjGFafUxSIUCYt
qewVpIy5KQUPu7cToSths3baSWWULslk5Ygngvhhtz2/PZRRcftCF4cQCe4I
/5fw1JKZf0m1gW2DINQF+i7ryCjjW6/3hbZpwtBRfIbTRlIZnyUfXbuiQRgG
P5/n8xZTxvex8RHfvwrDSssM0XRhZdwmtId+TU8EzCnNWxZWKaNqe3bK2hER
6H4n41s1pYT5q8P2bDNeBz+03/bp0pXQ9hCsmtASg7oHXplC9UrI33e96YuP
GCTJsThP1Cih3Uj0FoN8MdAkUN7mPFHCqIVSq1UkcQj9EtTKc08JYzVPpIlO
iQPPDfHKrqtKmHo2bcHaTRLIvw5dPXlACc1PTs4znKVh2nN+t/k+Jextyw6k
hkoDoy+BX8FJCbXyInRasqTB83l5bI+NEr4N5+59MCAND3O4w7aaKqGDzTCD
ekwGwOqe9xpVJZzc2ti6JYEMdventt1dUETyQOTI9IIcTNFrypPmFPEMKefj
Tll5uPLxAiVkWhGTX+36MLBLHtr4pPjMJxRxxJri8yZLHoy8d3V8H1DEz872
5l3GCqBGyXfd0KKIA4e4SDm3KMCdY3e2MkUR2+7t8Fkbrwz5ldI/sq8potgV
5Yzd1cpg9Pqba9xVRXxSqZHb+V0ZwlZEGjvHK6K1HAd/izUVpl0e8C2FKaJ3
7y4xXwkV6F/PnW7goYjjBN5ZHroqPL1WWdG0WRGN5gq3Td5WB8UVV/cObVDE
Ph/ezveN6pDq5cXKrq6IDkupQhOf1CFQf/1OPSVFzCp8djVxnQZsHg3pLZNQ
ROWSLf/R4zWghGbAmbNSEWu7JYaUgzfA7c8M65BuCs4cTXO6HrQJRCxuzqa+
peAK8xYGb/omiHkSmFHRQcHKj5fvlfy3CdwTKMM/2yhoocQ2c3nFZiBrxgV5
1lNQybljfVbcZrgZZ37L7i4F7VwvLurd3gLXNTrH1UMp+Hlz0btUXm2gv99s
JnCGgquO5Xqv0dSG6fM38iYCKFjj3Sfc7KYNe3qcnO/7UfDM1Ku9q6q0gRTZ
/0z5EAX53d/Yv/LRgcud33Pld1Jw+nFfQfNnXYgJ5HESW0dBibblpBY2faiQ
9n68IERBxhixaqO4Pgw/bxV4T6TgsVfjGxia+mAsldiUykfB7WZqIkeO6QN7
s/BmkRUU7Nc+3FXQow/horICxBEFbCrZlryj2gCCqvUYKx8rIOcX5bWC+YYQ
/LTYVuyRAna8VInibjCEkAqxz+oPFHB7uVsepd8Qwkp+szjdUcBQe3eWcXEj
OJ9frn0vUwGvvjummJBqBIkJqsWW0Qp4zq+89VDqNijcJ5Gcaq+Av4vyFK2q
TeCOU4LMfVsFrPLqctfrN4Ei+8WH9VYKGPB7mO0ApykUW/W0fd2pgEmWWolb
LUzhkfH1lXoGCkizXjgYPWAK1SqrgwcoChh+8Wi9s5AZdC4tuSr/lse+57bF
Jwt2QnZGbp7FrDyOrl91+MGrneCrazZy/Jc8ukbZH1NY2Ak8QclHn3yXR+fL
32vaLHeB/i+lQOPP8mgv+HtscXkXFI3Zx+9vlcecVwcGNnhYQHhXSXlSljwK
GS/Kb91kCeYB9vPl6fK4W1frXrC5JawXWtLtSZHHPN8Pqj2HLeGx9fY6qSR5
jBmvmWNPs4Svbb3Pi2PkMaNyh7EAmxXYNfL2N/nJ48UrIoPa3VZALXHnXTSU
x4Jv7s9l8m2g8nIyR7++POZuCmdro9uAqU/DEp0mzzyfxrrbwzbgpiz94/IW
edzorbdyhmILKfkfOslK8rg+6MTqHw9sgSPNJmsnQR4jDMafFDTtgQ8RWzXS
++QQErY27ZdyAE9XP6XwD3K4t696d5epA8zq3yS7d8thikpeV5yvAxCXFoXU
OuSw8/yYcyE6wPbAJ7/rGXKoTH5zvdbNEcq81RrHiuXQqyZasLnMCeJtxe11
Qpj1wh03sl3cB1/PO0baBsnhxoBtrrEV+2BnxbUHPgFyaPuhTsFicB/wiK7m
zvWTQ4Nb+5dT9Vwgpm/5Ca+7HPYYzJ+GGReI8Pok+tFcDg9dTpU4/2Q/nA7P
7Q2TlEOVyWb/DgtX6CrpW5UmJod8qd5apzxdQfPzes2ydXIoLfzzvG6UK0wb
J1/+QpLDV9kaFXpPXeEk73kDK245rHIoN5aguIHP9cM5MpOyyHULvc/wHoRD
9xQP0+tlsejD1fGYn4cgUnxiezbKoo98pzdVyB1yL5Uph/4ni1lWdnHcWu4w
4Kc/ualcFiNyZ008z7rDgc17QvLuyOJRHVmbd/yHYW9N+NXIRFmcdy9Zfqzp
Abavumq2ushiXFSd4kC5J5zcmpkt7iyL5EbRsTefPCHpkVvUvL0sukYIhnLz
ekF78rhZiZUsrgob71I+4AWWjuxvpIxl0dHSrCOQ3xt2Dah+ZaHKYn6CVHf8
qaOw7dd5kZp5Mh5xPncmQ9cX1FZG3L89Q8bTY9F3z9v6wnrRs8ZJU2Skbrqq
ee2YL0zqB5w8Mk7GmZPfUyi3fOHmxcMvif1kpLyNMVZc6QcLMqYxHs/IOGmj
K/Hhgx+UWnHPCtwg46iOeOmv2yfg5iGOSwtJZFQ+u/6NVNMJiAtcITecSMYq
29XsgUMnwDVzzroqjoyv7zbtzZE5CWtGv9x3P0tGe5ODfAtZJ8ErvPnwU3cy
lu787T108xRIP4h7e3ATGY24Xbm3NAZAr2DyrUgNMkq/sjtYMBQA6WcyvXJV
yTiSGfd468pAEDZ5uDxAIeNUvJ/A7x2BwPvxjbybOBk941a7B3YGwswq6cAD
XGSs9r53q2PiNDw/XCGy750Mvjfl1Eo3C4YLrbX9IW9kcOTJbq03fsFgsqHl
bka7DL6JW965NSUY6pY+6H9olcHLYv63H44EQ3ky2xHnOhncbDpLmYoNgex6
8yeORTL4svicicGbUAiQGHSwC5FBmY/e5PGWMJhqCOjWDJJBi+bKxr7PYXDc
k8dpXYAMfrvmsmJ6MQy8y1SdP/gyx528BGLVwsF1R9A+t4MymPNaVcPuejjz
/bLazWeHDLKf+DhT63UOZF9oeUevlcHoZ6M/D6hHQvbJ5189hGSQ+CNmO9Ei
EiTXuRw1I8pgq2LopXHvSFh3KPIYH58MWsu4sJFvR8Ka322+V1lkcEdsjsMV
mShYkDt4KmtYGutsDQWrJc9De2hCaHmZNI7cy7lwGWJAOkBFo61EGpVKxcSf
uMTAcZ+2wc/3pfHNsMTJ1eExsGY//y7CHWkMbvaoNm6IAXODBNGjmdIYJBnl
/WVnLDSxJVRIR0tjN2/Yjt2HL0B1TPxkvL00ds6EjPrXXwS+cGp+rq00mklc
YxceuwjOp1sdnlpJYzjbPpNJQjz8PsJXO7JTGq9l3T/s7BYPmjviLxkaSGPm
801+/FwJ8IgvXnmOIo0vWMlS3o6XoPDKRfeDv6UwpmX9Yse6RKhoLnupOyuF
vJ2GUbMbE4HB2qst+EsKi1oTK3dYJMLQcfXV9HEp/BZ+4lREZCKQrd+Uy/dL
oUjw+QbTH4mQRZTkHmuSwk6r30757VfgWtKjIr9rzHqxOq8XipMg//l7QbOr
Uhh4JPjGo9YkKGPnDJO+LIVxowcsLnxNgo6T9jbtsVJIf/HgzQ3FZCDYLi5s
DJFCBJVWw8JkiBc0MZ91k8JKlYOecneuQeS17olQdSmcakqd8mu5Aft9tVe7
q0ihrF9zpP34DdAxS6XuUpLCz5WdVUcFUmBy0cFTVFYKu9+OKcjbp4DLoXcD
5SJS2DB/SPfrcApob+x6M7EsiWW+kaWRAmkw8aqzyrVNEi9lcnYEJ2XA86JN
PdtbJLFvi92cbE0GFEQlz6k1SaK9Y8hb6dEM2Kdlu3m5VhIvL94oFDfIhJab
HffTyiTRYtpxreXPTMj3ac/uSJfEequxjT4aN2Ev36sYYy9JzHQXOvOj8hbw
aEO3q4ckWkWneD5/fQsq3IuUzh6SRA3BIWr96C0gYFRbuYskEjY1nGYXzYam
49okio0kMn+vpbqCs0GjKydrFU0SA8zCel9vywHOHP/HL/kl8be2pnDEt1x4
9GKA69sqSTQrGZScXZkH+xd2O3BzS+Jaj6F3F8h58NRWacGATRIT4z+FcTvn
Qd8ajHD/LoE1noUZ3s/zoLTnSqpSrQRa3RCPflmSD85+mk1lByXwWuyxUMq1
QthiJtvlt08Cn43zfGapKASCDGGEai+B6YTLMb/fFQKjY4wrf4cEKheqH3YU
vw0amlkm1zQk0B7HVf4rvA0rlzkY/iwSOGJ/+svKhjtQerG9cUu6OMrN2vPs
I90DvsJj9U/axdA7+cILgvBDuCjnr9XXKobtVlQHC6WHwJMXcp+zSQwn9QKK
0vQewsrsi2nWVWIY9+0Li5vHQ2BNv3PiW64YHmCzOFtQ+RCmLw3JSPmL4ZYN
bw17DpTAx4B9kTEiYjj36v511SePoNjEfJvd3vU4r7Flek3yY9jeGtpvPr4O
zye0LeolVsFPDYsGqf1rMS/LvLgkvBZU1v04Ze24FqsFHVZ/uFgLHiuuykfZ
rMWzKWHcbDdq4f2LNxdGTNeifEDOUcPiWqB777O8r74WS9jVo7O7ayE1/+hH
Xba1GFNJ5969oQ70112ctcsXwVWrVwie66uDoBUqd2JviuDc56nDVaN1UDby
wulpqgjqX759cnCqDhTLiTXil0RQRSPjPw7ueiDZpEUNBoigoNK5jAS1ehiO
v0M4sV0Etyucit8TUg8JK54pJ3wVxp/LctebiA1g6hGyw3BIGDcFxSU2iDUA
2wt1z9leYZy85VueI98AgempBa7twtg7IMXJr9MAblu8pbdUCuMyq6h3/v4G
0Dy6WqQvWhjZFnpHCwsa4Gd7/ebkcGGcWEBLrQcNUKwdaGt2RhgrxC6sqapo
AJmVn66UHhPGqtBQtcxnDcCfU8IXayuMN3cp31sebYCBLls2DRlhPMqhJstJ
bYRMPR7p4fXCmCcz0P1rYyPY51frpwsJIy/mhTXrNkLbCflQTh5h/Lr1Uojs
zkao4J+b7Z4QQm/jr1UVRxohwSh9PKJaCDXyDz9XudUIpkW7+bQqhDBAV62k
p6AR2AgcyuMPhVBCeSwwtLgRAnuPHrHPE0KbrxXNRU8bwS1I77PyRSFUq3Ca
qu9sBM0H/e86HYSQlav72RpOOlxwZD9QaC2EZyzXzqatosMHdrmRoF1CeMFM
V5ckQIdzDkemJQyEsFc1PuKFKB2es04QPBWE8GEioStOjQ4HbBd3LE0L4kiZ
vuyAHR1Kl8XbX04I4u+2RJUYZzpw3tF3zBkVxMR8XxORA3S4uxThYfpREJ2/
80ssHKHDdAFP1JVGQWRZmowYDGL2My9cLZckiNszNkdPp9Dhfa7Wtrl4QWwn
X7S7nUEHVQun5y3Rghj6pqnc5hYdOnIyu33PCOK8Ldchv0I6iO+Snal0FUTY
7utbXEYH3xnj0HhnQVR78sv9eQUd6m95cOzfI4iTw5wDb5/SwWO6iMhhJojF
s3kKlbV0eJSloWahLoiGfrKL+JzZv5lNuZSSIPrQab9dXtDBfuoUTJEFMalL
eGDyFR2WTJ/sTBERRO5BF8fZN3QwndQ7MrBMwppdF+5m9dEhNf3ARNkcCbfx
Hwr83U+Hb8YRATE/SSiM5mSbQTpcSaNHUYdJ6HApIGjFKHO/RruyA9pIyJ6w
+dLUJB1eJ8VeKm0i4YsQf3w/RYemz43BP+pIuPK7jk3pNB3KIsHOq5yEcs1y
3zfO0yGhQZXX5SYJbVh95pNYGBBJ8p5LSyXhndw+PgFWBpw5WDjUlUTCg1fZ
V0WyMcCDXarWKpaEwQ/n9K05GWBgRPA3Pk7C1z1RxytWMUAzydwtwpuE8aI/
3Pj4GKDy+cJudCdhwNPxfW78DFgXyaak7UTCxF8CB0UEGLCmQ08kwJaErBNt
0UEEBnCRgzlKLUhI3vh16hORAVP1U71UIxKuSLH5GSPEgFGieqsnkNCxVzq8
UZgBfW5HKws0SfjVSKjvpwgDWtmGkqSoJPxpYZtOEWVAvuHb7YJCzP2nsPYS
JRiQfpW4xWoNCWfneOPmmL4yYEG+xEPCy8EM0jtJBpyNaFpauUzEVEvumAvS
DLCvf/JoYZiI6nmDbd2yDDAnTt/U6ieiqDrHikdyDNjmppHg/56ID25KPrsk
zwANtiKPiZdEbA5/3eNIYYCC9bAttYWIxkuNL7QUGSCeI2Po2UhE7VcPYviU
GLDKMF3s8xMicl+hzyUrM4D1ahePVCkRi9VOiu6kMmC2nzS7t5iZH+ffOcf0
53Pxr99mE/HRnqhNeqoMqK4LjW6JI+KrL/t2xaozwHfrgR8le4mofH1CZ3wT
A4YEHuw4YUdE63aT1ujNDNj7aSlvgyUR2eOj7otuYYBZWLpjqRERJcrnxjQ0
GYAWY6UngYi8avHxj5neIqG9epMmc/3r9/ybtBhArn5bX6ZERFOqu62MNgNS
4+XE/WWJ+O2O4fGrTAvsPRW4WYKItWsNxZeZXvpNoJYTiGg1EjT2TIcB77TM
r1XMEdDV96XdBhoDdnNnTAT+JKBImVNPFNP0rjEzrW8EtH/CWt3JdGlA7PKT
PgK6jMg9PQYMSChr8HjKIOAnBdupeD0GsEcR68/UElAYVKramT5j4yqm+5SA
Zet1xNbqM+/rz+VXVcUEPLZXgzub6a3qOjrVyQT8wteSWWjAgAqWC8mhlwjI
lZvOO8y06suu7xBLQO5Sx16ZrQxY7+OfWxNMwOp7ZzluMH0FGpfO+hOQ9MNi
qY1pbn6Sg74vAd8WtOazGTJg+u5Dvlo3ApY42hkcYto7mMUjfC8Bg67VPU9k
emCHRZ2BHQFV/M9rP2XaUTRzPaslAVcJGlp/Yvrl6Ff/OjNmXvbQBzYjBhhX
6rw6Z0RAtsXsLGmm/4u9oGTI/EqSXTPgRGN6o8O7KDZNAuos6nVYM31HQaGv
Xp2Aa8NsTnswLTnrrx2pRMCx4VNXQ5m+zmhMMpIlYIUby7dkpiPd3bY3ihDw
8v3X3gym5zeV5EQRCPhM+jTpE9N+HCuWtvESsCpObmme6X25mSX0ZQFM2CNy
VmUbAzpOfOONnhNAs2MpESZM7zDUPWzyUwBpNwNzXZiuI8TVcn0TwAa5c4n+
TGv2vxNtGhLAQ9cLZuKYvv9QwT+mTwAzXb+FZTEtFx7w0rSbOT5m1/GA6fTd
dEXuDgHU39iVXMM0UVIw6lmrAN6X0HRvYVolOXTbFINZX/LXsXamTXlGOCTq
BDBNfAm6mHY9a0nfXiWAtnHF8e+YDp6qPH/ysQBymqy68McPP8ZzNd8RwNuR
uhF/PNS0P0YiSwB3L/KE/LFFBueF5mgBlHvkd/yPK/zuxp3yZealiXv+8YV1
swktBgII69Nd/ti53vCKFFEAj+uh0x+vEOy50Vq2BnfoiO7943z341mn7deg
nVKv1R93z105ubh1NT6MdNn1xx5yBne4OvnQ5cANoz/m2HCJ/M2EF7esVKP9
cbbeh8zXlTy4yVVW+49VyzqyLE25MURbRfePqxSf33zZyYWKlvu3/rF9mNuQ
ohEnvmsfN/3jqc55pagSdnS5cu+vw5J0ZgN12LDuv8a/5rUObvBuWIH7Lfm3
//HVGb67lTYsWMvF/tcbNfXkBZoXa+65zf+dv98g+6zb3fma+qc//vqiGUdX
WcJMTcXRr399cE6D7XjATI2X3T/TCverqOyfqdHZ+s/jHFWR+eozNSD6zxa1
x9Wvd0zXSPaM/TVBs+9C4LrpmoKkf74h+5Smkz9Vs5rl3/xcFr8c/O9HjZTI
v/yMLa3kOeq3mpRHC389ebSC1a9vqKaWyvO3/4OfBTgmiodqXof98xtHLy6f
kKGa+Zf/XGkiznt03VBN7+FVf31OKlLwiM1gTbsn718LdFooHGgaqLl0ne+v
1XSHd1k+6KvRzfjnjyRlDTeWzhr6lX/WXStQurb0pt7cnX/WdtSwLZPo0Rv8
P8uvyI8s0Puix1b0z/dfC9ZZOk7qsf+f48kO910TZ//notfT4Xz7lv7nvGEx
WedWFv3/71+H9GMferH+z/8PwggkkA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-17.960163274234844`, Automatic},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Chemisorbate concentration \
(\\!\\(\\*SuperscriptBox[\\(\[CapitalARing]\\), \\(-2\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Time (s)\"", TraditionalForm], None}},
  FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
      Charting`ScaledTicks[{Log, Exp}], 
      Charting`ScaledFrameTicks[{Log, Exp}]}}, {{
     Automatic, Automatic}, {{{-11.512925464970229`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox["10", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.605170185988092, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-11.512925464970229`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.605170185988092, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-17.960163274234844`, 4.144652716270571}, {
   1.2633599119864147`*^-10, 2.774340015902606*^-6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{
    Charting`ScaledTicks[{Log, Exp}], Automatic}]], "Output",
 CellChangeTimes->{{3.546041160958767*^9, 3.5460411732740393`*^9}, {
   3.546041216861188*^9, 3.5460412732127037`*^9}, {3.546041327265106*^9, 
   3.546041415085876*^9}, 3.546041462673644*^9, 3.5460414974686737`*^9, 
   3.546041593678466*^9, 3.546041685484968*^9, {3.5460417554197702`*^9, 
   3.546041771406828*^9}, {3.546041847425962*^9, 3.5460418599824047`*^9}, 
   3.546041906659306*^9, 3.546042033971017*^9, 3.54604212612502*^9, 
   3.5460422269955063`*^9, 3.5460423104497833`*^9, 3.5460423815216417`*^9, 
   3.546042478255501*^9, 3.546042520755836*^9, {3.546042718404578*^9, 
   3.546042742043247*^9}, 3.546043053447414*^9, 3.546054970626151*^9, 
   3.546055531699061*^9, {3.546056616331687*^9, 3.546056626779685*^9}, 
   3.546056738760666*^9, {3.546058242405678*^9, 3.5460582668955717`*^9}, 
   3.5460583075386744`*^9, 3.546058345250922*^9, {3.5460596068863497`*^9, 
   3.5460596340682163`*^9}, 3.5460610129970713`*^9, 3.546061062229313*^9, 
   3.546062488427413*^9, 3.546063446271009*^9, 3.546068130192952*^9, 
   3.546068270801525*^9, {3.5464650214546757`*^9, 3.5464650525822287`*^9}, {
   3.546465102418089*^9, 3.546465138165887*^9}, 3.546476555867*^9, {
   3.546477256226651*^9, 3.546477280519018*^9}, 3.546477411663375*^9, 
   3.546477449617937*^9, 3.546542438559313*^9, 3.548310549047262*^9, 
   3.626908268343809*^9, 3.626916068751648*^9, {3.633108308658132*^9, 
   3.633108321673544*^9}, 3.63312004761709*^9, 3.6331201376081553`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw913k41N/7P3BZI5SZsZTsYxmMrc02NyKkIlvWUpSEQgsSIoREKSp72Uup
RCRvbtuMiBaUqIgsUZJky/Kb6vv7/PW6Htc5537e51znel2vl5Srj9UhVhYW
lq4VLCx/npd4J0J0xNUwmiB+nG/vJ5pkQz3t2Xo1vOa2WZce+In24Mz1xT2i
api30XXiXtIn2utRCDkuooZzAt89V7V+ogk+iw++TVBDTY454ZX6/bS0KKUz
wlxqSH7gPGyrOkCzWGydGOpVxVcXO+LaNw3SfL1P+bJ+UEW30zYN6+wHaVd6
1k+IdatiHt3hZXrQIO3NE6/vNh2q6O1hJ2CNgzRnf+7xuiZVvJXHoZBkPkTz
+G40lvlQFad+UDqa/YdpYZ+eDu6JUMXje+JPm8x9oble/iq6MUwV+1TpKS7y
ozRDPTErgRBVvK0vktBmO0rjzAitbvFXxXc/RYoePRqlxdsbXNf3VEXxa2d4
i0+M0VJf0E0VLVURsxg1rBzfaMGhM6Fc5qq4M5Yl473mN9o+qkLZZzNVnFYy
aRc5+o0mFRcrlWWkivPtj1yevvlGKzTeOU/UVMWrlJW91cXjtLL/XhUtiqti
9Ke0L1paE7Rr3qz93aKqqHj75MkjeyZogaIbRCpEVFHfwPfByxMTNN3TSZHH
CapoGuM0Z3J/gla30W7vMIcqhmtxUYcUftBeFr3nf/VVBX/09fcYy0/SRlOG
/XIrVbCyeEf1L+spWmaabM/jchXcubb740X/KZplhpvRs1IVPPhlt6RryhSt
4mav0HixCu4SPt3W1DtFO1/w9umWHBX0BJ3gqz6/aNJlDI6WOBWcmSffi0qb
pjm9LEj54ayCzacmn21TmKPxvx5kZXdUwfz2Wf946zlaXbuMt5CdCsYUiqjI
nJ2jKb7NAh1LFSSXLM5ov52jzX64PhC5TQUlnaK7leLmaUlj0VQRFRWMWNB7
l8S6QHvO6VELy1QU8y15V79hmbbzzvuPLgtUtCvHsn6PZVrLLsuFsDkqPuej
+LtkLtOak7S31P+kIufWzde1OVigSZrvnskIFS+0fHySeIIFGqDkxu5XVKRw
d3cnOKyAKv8FH9ccKnrd/TiivIsNdNf5xUfcpKKax7F+g2Ns8PS/wTu5GVS0
/2rEmXiJDSrZXwwOXafiewrBsfc1G1RcueXkdZGKDUbDFBNndigtNjY5eYqK
YY+0H6QHcUDR0GXx8yZUVDUup+uPcMHos4RJDyMqpoQXfB0grQTFexfpOwyo
aBS/XqvHYCXcORFzTECHilc+phU2pa+EQpaw6nQVKv5o9S+6v4cbctf57Hsk
SMU4N8mXm3t4INN8V2bfgDL6hKerXFLih4/qO47X9ymj4UY5w1E3fhAT3G6c
/0EZM48YltxL54f0HqNxr7fKeGz5xDHf1ashzUMXZpqVcffhbN+5udVw45zS
R74SZXwxOOP74ccauPKYW1wnTBnLUnX7L3MRIfcrSdY6RBkjGFafUxSIUCYt
qewVpIy5KQUPu7cToSths3baSWWULslk5Ygngvhhtz2/PZRRcftCF4cQCe4I
/5fw1JKZf0m1gW2DINQF+i7ryCjjW6/3hbZpwtBRfIbTRlIZnyUfXbuiQRgG
P5/n8xZTxvex8RHfvwrDSssM0XRhZdwmtId+TU8EzCnNWxZWKaNqe3bK2hER
6H4n41s1pYT5q8P2bDNeBz+03/bp0pXQ9hCsmtASg7oHXplC9UrI33e96YuP
GCTJsThP1Cih3Uj0FoN8MdAkUN7mPFHCqIVSq1UkcQj9EtTKc08JYzVPpIlO
iQPPDfHKrqtKmHo2bcHaTRLIvw5dPXlACc1PTs4znKVh2nN+t/k+Jextyw6k
hkoDoy+BX8FJCbXyInRasqTB83l5bI+NEr4N5+59MCAND3O4w7aaKqGDzTCD
ekwGwOqe9xpVJZzc2ti6JYEMdventt1dUETyQOTI9IIcTNFrypPmFPEMKefj
Tll5uPLxAiVkWhGTX+36MLBLHtr4pPjMJxRxxJri8yZLHoy8d3V8H1DEz872
5l3GCqBGyXfd0KKIA4e4SDm3KMCdY3e2MkUR2+7t8Fkbrwz5ldI/sq8potgV
5Yzd1cpg9Pqba9xVRXxSqZHb+V0ZwlZEGjvHK6K1HAd/izUVpl0e8C2FKaJ3
7y4xXwkV6F/PnW7goYjjBN5ZHroqPL1WWdG0WRGN5gq3Td5WB8UVV/cObVDE
Ph/ezveN6pDq5cXKrq6IDkupQhOf1CFQf/1OPSVFzCp8djVxnQZsHg3pLZNQ
ROWSLf/R4zWghGbAmbNSEWu7JYaUgzfA7c8M65BuCs4cTXO6HrQJRCxuzqa+
peAK8xYGb/omiHkSmFHRQcHKj5fvlfy3CdwTKMM/2yhoocQ2c3nFZiBrxgV5
1lNQybljfVbcZrgZZ37L7i4F7VwvLurd3gLXNTrH1UMp+Hlz0btUXm2gv99s
JnCGgquO5Xqv0dSG6fM38iYCKFjj3Sfc7KYNe3qcnO/7UfDM1Ku9q6q0gRTZ
/0z5EAX53d/Yv/LRgcud33Pld1Jw+nFfQfNnXYgJ5HESW0dBibblpBY2faiQ
9n68IERBxhixaqO4Pgw/bxV4T6TgsVfjGxia+mAsldiUykfB7WZqIkeO6QN7
s/BmkRUU7Nc+3FXQow/horICxBEFbCrZlryj2gCCqvUYKx8rIOcX5bWC+YYQ
/LTYVuyRAna8VInibjCEkAqxz+oPFHB7uVsepd8Qwkp+szjdUcBQe3eWcXEj
OJ9frn0vUwGvvjummJBqBIkJqsWW0Qp4zq+89VDqNijcJ5Gcaq+Av4vyFK2q
TeCOU4LMfVsFrPLqctfrN4Ei+8WH9VYKGPB7mO0ApykUW/W0fd2pgEmWWolb
LUzhkfH1lXoGCkizXjgYPWAK1SqrgwcoChh+8Wi9s5AZdC4tuSr/lse+57bF
Jwt2QnZGbp7FrDyOrl91+MGrneCrazZy/Jc8ukbZH1NY2Ak8QclHn3yXR+fL
32vaLHeB/i+lQOPP8mgv+HtscXkXFI3Zx+9vlcecVwcGNnhYQHhXSXlSljwK
GS/Kb91kCeYB9vPl6fK4W1frXrC5JawXWtLtSZHHPN8Pqj2HLeGx9fY6qSR5
jBmvmWNPs4Svbb3Pi2PkMaNyh7EAmxXYNfL2N/nJ48UrIoPa3VZALXHnXTSU
x4Jv7s9l8m2g8nIyR7++POZuCmdro9uAqU/DEp0mzzyfxrrbwzbgpiz94/IW
edzorbdyhmILKfkfOslK8rg+6MTqHw9sgSPNJmsnQR4jDMafFDTtgQ8RWzXS
++QQErY27ZdyAE9XP6XwD3K4t696d5epA8zq3yS7d8thikpeV5yvAxCXFoXU
OuSw8/yYcyE6wPbAJ7/rGXKoTH5zvdbNEcq81RrHiuXQqyZasLnMCeJtxe11
Qpj1wh03sl3cB1/PO0baBsnhxoBtrrEV+2BnxbUHPgFyaPuhTsFicB/wiK7m
zvWTQ4Nb+5dT9Vwgpm/5Ca+7HPYYzJ+GGReI8Pok+tFcDg9dTpU4/2Q/nA7P
7Q2TlEOVyWb/DgtX6CrpW5UmJod8qd5apzxdQfPzes2ydXIoLfzzvG6UK0wb
J1/+QpLDV9kaFXpPXeEk73kDK245rHIoN5aguIHP9cM5MpOyyHULvc/wHoRD
9xQP0+tlsejD1fGYn4cgUnxiezbKoo98pzdVyB1yL5Uph/4ni1lWdnHcWu4w
4Kc/ualcFiNyZ008z7rDgc17QvLuyOJRHVmbd/yHYW9N+NXIRFmcdy9Zfqzp
Abavumq2ushiXFSd4kC5J5zcmpkt7iyL5EbRsTefPCHpkVvUvL0sukYIhnLz
ekF78rhZiZUsrgob71I+4AWWjuxvpIxl0dHSrCOQ3xt2Dah+ZaHKYn6CVHf8
qaOw7dd5kZp5Mh5xPncmQ9cX1FZG3L89Q8bTY9F3z9v6wnrRs8ZJU2Skbrqq
ee2YL0zqB5w8Mk7GmZPfUyi3fOHmxcMvif1kpLyNMVZc6QcLMqYxHs/IOGmj
K/Hhgx+UWnHPCtwg46iOeOmv2yfg5iGOSwtJZFQ+u/6NVNMJiAtcITecSMYq
29XsgUMnwDVzzroqjoyv7zbtzZE5CWtGv9x3P0tGe5ODfAtZJ8ErvPnwU3cy
lu787T108xRIP4h7e3ATGY24Xbm3NAZAr2DyrUgNMkq/sjtYMBQA6WcyvXJV
yTiSGfd468pAEDZ5uDxAIeNUvJ/A7x2BwPvxjbybOBk941a7B3YGwswq6cAD
XGSs9r53q2PiNDw/XCGy750Mvjfl1Eo3C4YLrbX9IW9kcOTJbq03fsFgsqHl
bka7DL6JW965NSUY6pY+6H9olcHLYv63H44EQ3ky2xHnOhncbDpLmYoNgex6
8yeORTL4svicicGbUAiQGHSwC5FBmY/e5PGWMJhqCOjWDJJBi+bKxr7PYXDc
k8dpXYAMfrvmsmJ6MQy8y1SdP/gyx528BGLVwsF1R9A+t4MymPNaVcPuejjz
/bLazWeHDLKf+DhT63UOZF9oeUevlcHoZ6M/D6hHQvbJ5189hGSQ+CNmO9Ei
EiTXuRw1I8pgq2LopXHvSFh3KPIYH58MWsu4sJFvR8Ka322+V1lkcEdsjsMV
mShYkDt4KmtYGutsDQWrJc9De2hCaHmZNI7cy7lwGWJAOkBFo61EGpVKxcSf
uMTAcZ+2wc/3pfHNsMTJ1eExsGY//y7CHWkMbvaoNm6IAXODBNGjmdIYJBnl
/WVnLDSxJVRIR0tjN2/Yjt2HL0B1TPxkvL00ds6EjPrXXwS+cGp+rq00mklc
YxceuwjOp1sdnlpJYzjbPpNJQjz8PsJXO7JTGq9l3T/s7BYPmjviLxkaSGPm
801+/FwJ8IgvXnmOIo0vWMlS3o6XoPDKRfeDv6UwpmX9Yse6RKhoLnupOyuF
vJ2GUbMbE4HB2qst+EsKi1oTK3dYJMLQcfXV9HEp/BZ+4lREZCKQrd+Uy/dL
oUjw+QbTH4mQRZTkHmuSwk6r30757VfgWtKjIr9rzHqxOq8XipMg//l7QbOr
Uhh4JPjGo9YkKGPnDJO+LIVxowcsLnxNgo6T9jbtsVJIf/HgzQ3FZCDYLi5s
DJFCBJVWw8JkiBc0MZ91k8JKlYOecneuQeS17olQdSmcakqd8mu5Aft9tVe7
q0ihrF9zpP34DdAxS6XuUpLCz5WdVUcFUmBy0cFTVFYKu9+OKcjbp4DLoXcD
5SJS2DB/SPfrcApob+x6M7EsiWW+kaWRAmkw8aqzyrVNEi9lcnYEJ2XA86JN
PdtbJLFvi92cbE0GFEQlz6k1SaK9Y8hb6dEM2Kdlu3m5VhIvL94oFDfIhJab
HffTyiTRYtpxreXPTMj3ac/uSJfEequxjT4aN2Ev36sYYy9JzHQXOvOj8hbw
aEO3q4ckWkWneD5/fQsq3IuUzh6SRA3BIWr96C0gYFRbuYskEjY1nGYXzYam
49okio0kMn+vpbqCs0GjKydrFU0SA8zCel9vywHOHP/HL/kl8be2pnDEt1x4
9GKA69sqSTQrGZScXZkH+xd2O3BzS+Jaj6F3F8h58NRWacGATRIT4z+FcTvn
Qd8ajHD/LoE1noUZ3s/zoLTnSqpSrQRa3RCPflmSD85+mk1lByXwWuyxUMq1
QthiJtvlt08Cn43zfGapKASCDGGEai+B6YTLMb/fFQKjY4wrf4cEKheqH3YU
vw0amlkm1zQk0B7HVf4rvA0rlzkY/iwSOGJ/+svKhjtQerG9cUu6OMrN2vPs
I90DvsJj9U/axdA7+cILgvBDuCjnr9XXKobtVlQHC6WHwJMXcp+zSQwn9QKK
0vQewsrsi2nWVWIY9+0Li5vHQ2BNv3PiW64YHmCzOFtQ+RCmLw3JSPmL4ZYN
bw17DpTAx4B9kTEiYjj36v511SePoNjEfJvd3vU4r7Flek3yY9jeGtpvPr4O
zye0LeolVsFPDYsGqf1rMS/LvLgkvBZU1v04Ze24FqsFHVZ/uFgLHiuuykfZ
rMWzKWHcbDdq4f2LNxdGTNeifEDOUcPiWqB777O8r74WS9jVo7O7ayE1/+hH
Xba1GFNJ5969oQ70112ctcsXwVWrVwie66uDoBUqd2JviuDc56nDVaN1UDby
wulpqgjqX759cnCqDhTLiTXil0RQRSPjPw7ueiDZpEUNBoigoNK5jAS1ehiO
v0M4sV0Etyucit8TUg8JK54pJ3wVxp/LctebiA1g6hGyw3BIGDcFxSU2iDUA
2wt1z9leYZy85VueI98AgempBa7twtg7IMXJr9MAblu8pbdUCuMyq6h3/v4G
0Dy6WqQvWhjZFnpHCwsa4Gd7/ebkcGGcWEBLrQcNUKwdaGt2RhgrxC6sqapo
AJmVn66UHhPGqtBQtcxnDcCfU8IXayuMN3cp31sebYCBLls2DRlhPMqhJstJ
bYRMPR7p4fXCmCcz0P1rYyPY51frpwsJIy/mhTXrNkLbCflQTh5h/Lr1Uojs
zkao4J+b7Z4QQm/jr1UVRxohwSh9PKJaCDXyDz9XudUIpkW7+bQqhDBAV62k
p6AR2AgcyuMPhVBCeSwwtLgRAnuPHrHPE0KbrxXNRU8bwS1I77PyRSFUq3Ca
qu9sBM0H/e86HYSQlav72RpOOlxwZD9QaC2EZyzXzqatosMHdrmRoF1CeMFM
V5ckQIdzDkemJQyEsFc1PuKFKB2es04QPBWE8GEioStOjQ4HbBd3LE0L4kiZ
vuyAHR1Kl8XbX04I4u+2RJUYZzpw3tF3zBkVxMR8XxORA3S4uxThYfpREJ2/
80ssHKHDdAFP1JVGQWRZmowYDGL2My9cLZckiNszNkdPp9Dhfa7Wtrl4QWwn
X7S7nUEHVQun5y3Rghj6pqnc5hYdOnIyu33PCOK8Ldchv0I6iO+Snal0FUTY
7utbXEYH3xnj0HhnQVR78sv9eQUd6m95cOzfI4iTw5wDb5/SwWO6iMhhJojF
s3kKlbV0eJSloWahLoiGfrKL+JzZv5lNuZSSIPrQab9dXtDBfuoUTJEFMalL
eGDyFR2WTJ/sTBERRO5BF8fZN3QwndQ7MrBMwppdF+5m9dEhNf3ARNkcCbfx
Hwr83U+Hb8YRATE/SSiM5mSbQTpcSaNHUYdJ6HApIGjFKHO/RruyA9pIyJ6w
+dLUJB1eJ8VeKm0i4YsQf3w/RYemz43BP+pIuPK7jk3pNB3KIsHOq5yEcs1y
3zfO0yGhQZXX5SYJbVh95pNYGBBJ8p5LSyXhndw+PgFWBpw5WDjUlUTCg1fZ
V0WyMcCDXarWKpaEwQ/n9K05GWBgRPA3Pk7C1z1RxytWMUAzydwtwpuE8aI/
3Pj4GKDy+cJudCdhwNPxfW78DFgXyaak7UTCxF8CB0UEGLCmQ08kwJaErBNt
0UEEBnCRgzlKLUhI3vh16hORAVP1U71UIxKuSLH5GSPEgFGieqsnkNCxVzq8
UZgBfW5HKws0SfjVSKjvpwgDWtmGkqSoJPxpYZtOEWVAvuHb7YJCzP2nsPYS
JRiQfpW4xWoNCWfneOPmmL4yYEG+xEPCy8EM0jtJBpyNaFpauUzEVEvumAvS
DLCvf/JoYZiI6nmDbd2yDDAnTt/U6ieiqDrHikdyDNjmppHg/56ID25KPrsk
zwANtiKPiZdEbA5/3eNIYYCC9bAttYWIxkuNL7QUGSCeI2Po2UhE7VcPYviU
GLDKMF3s8xMicl+hzyUrM4D1ahePVCkRi9VOiu6kMmC2nzS7t5iZH+ffOcf0
53Pxr99mE/HRnqhNeqoMqK4LjW6JI+KrL/t2xaozwHfrgR8le4mofH1CZ3wT
A4YEHuw4YUdE63aT1ujNDNj7aSlvgyUR2eOj7otuYYBZWLpjqRERJcrnxjQ0
GYAWY6UngYi8avHxj5neIqG9epMmc/3r9/ybtBhArn5bX6ZERFOqu62MNgNS
4+XE/WWJ+O2O4fGrTAvsPRW4WYKItWsNxZeZXvpNoJYTiGg1EjT2TIcB77TM
r1XMEdDV96XdBhoDdnNnTAT+JKBImVNPFNP0rjEzrW8EtH/CWt3JdGlA7PKT
PgK6jMg9PQYMSChr8HjKIOAnBdupeD0GsEcR68/UElAYVKramT5j4yqm+5SA
Zet1xNbqM+/rz+VXVcUEPLZXgzub6a3qOjrVyQT8wteSWWjAgAqWC8mhlwjI
lZvOO8y06suu7xBLQO5Sx16ZrQxY7+OfWxNMwOp7ZzluMH0FGpfO+hOQ9MNi
qY1pbn6Sg74vAd8WtOazGTJg+u5Dvlo3ApY42hkcYto7mMUjfC8Bg67VPU9k
emCHRZ2BHQFV/M9rP2XaUTRzPaslAVcJGlp/Yvrl6Ff/OjNmXvbQBzYjBhhX
6rw6Z0RAtsXsLGmm/4u9oGTI/EqSXTPgRGN6o8O7KDZNAuos6nVYM31HQaGv
Xp2Aa8NsTnswLTnrrx2pRMCx4VNXQ5m+zmhMMpIlYIUby7dkpiPd3bY3ihDw
8v3X3gym5zeV5EQRCPhM+jTpE9N+HCuWtvESsCpObmme6X25mSX0ZQFM2CNy
VmUbAzpOfOONnhNAs2MpESZM7zDUPWzyUwBpNwNzXZiuI8TVcn0TwAa5c4n+
TGv2vxNtGhLAQ9cLZuKYvv9QwT+mTwAzXb+FZTEtFx7w0rSbOT5m1/GA6fTd
dEXuDgHU39iVXMM0UVIw6lmrAN6X0HRvYVolOXTbFINZX/LXsXamTXlGOCTq
BDBNfAm6mHY9a0nfXiWAtnHF8e+YDp6qPH/ysQBymqy68McPP8ZzNd8RwNuR
uhF/PNS0P0YiSwB3L/KE/LFFBueF5mgBlHvkd/yPK/zuxp3yZealiXv+8YV1
swktBgII69Nd/ti53vCKFFEAj+uh0x+vEOy50Vq2BnfoiO7943z341mn7deg
nVKv1R93z105ubh1NT6MdNn1xx5yBne4OvnQ5cANoz/m2HCJ/M2EF7esVKP9
cbbeh8zXlTy4yVVW+49VyzqyLE25MURbRfePqxSf33zZyYWKlvu3/rF9mNuQ
ohEnvmsfN/3jqc55pagSdnS5cu+vw5J0ZgN12LDuv8a/5rUObvBuWIH7Lfm3
//HVGb67lTYsWMvF/tcbNfXkBZoXa+65zf+dv98g+6zb3fma+qc//vqiGUdX
WcJMTcXRr399cE6D7XjATI2X3T/TCverqOyfqdHZ+s/jHFWR+eozNSD6zxa1
x9Wvd0zXSPaM/TVBs+9C4LrpmoKkf74h+5Smkz9Vs5rl3/xcFr8c/O9HjZTI
v/yMLa3kOeq3mpRHC389ebSC1a9vqKaWyvO3/4OfBTgmiodqXof98xtHLy6f
kKGa+Zf/XGkiznt03VBN7+FVf31OKlLwiM1gTbsn718LdFooHGgaqLl0ne+v
1XSHd1k+6KvRzfjnjyRlDTeWzhr6lX/WXStQurb0pt7cnX/WdtSwLZPo0Rv8
P8uvyI8s0Puix1b0z/dfC9ZZOk7qsf+f48kO910TZ//notfT4Xz7lv7nvGEx
WedWFv3/71+H9GMferH+z/8PwggkkA==
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJxF03k4VdsbB3BUktu5GRLKTOy9z+FsUklqSSENXDJGkkr90KBEyFRCZciQ
hCKkIpESId7IPEVmkpBKbiGpq0u/dXSv+9d+Ps/a6/us77vXlrU/ZnKQh4uL
awk3FxfnGb541Hu9FA1dE3+vz14qgGSel22olqAhk5Dhe08IoGyvq9PmK2hQ
jdEcV98ggJqHN3qfEKNByPXc1t8dBJBIdeiZu0I02A72LIF8ARR/nuklupCG
L2OVaoS9IDKarh8des2GzRtdLm0pF0J+bwrfmp9jw4GSzf8brhdB9pdHVqj7
scH+UH5rzQcRtBlJmgh6syFtW154+YJliPe6T3GtGxvWv8vpXrRxGQq13HRV
25EN2YzorfVZy1BcY8VWypgNNjNLYF2sKMp92pQxLcWGwC83zx44I46Gr71z
SS1QgYIpYY8/wiRRHe/hZxt/KgNvS2SCxE85lDF0WSpQXxmO/xXkvcpKCQ1X
h40f3qIMtrceCNY4KSEqM6Ri+yZlOOLP3rHbRwmlnww+KrheGU6U1BQ5pCih
O1x+xQkqyjBxk5eH/FMJpS4/ZvtQRBns7gomS/sS6Ibhzht9AywYqVl32iSe
RL2q20+U9bFAvG1yY/Y9EkmKGOilvWJBFBf/Uu5iEiV0b/nk1M6CgiVi3zz7
SBR/WGvjtxoWbD3P7ValQKHYs8xeRg4Lak2qeK6mUyjy8SKp9X4s8HTly025
y0SpI0tX7vJmwU2mh/zXPCbKlZNhOXmyIEmlt2d1BRN1hK3RjHdlgUJiTEBA
PxNJHdpv/uMwC3ZZn1c3Wc5C6aJPwwqNWWBb+b02PJCFSk8f/7lengX+q0iF
vj+UUct9L15TGRbYp5heemWjjN4OBjKcJVkQc/bPcxWHlRGf8fUVCaIsKLXO
r9rtp4wMyZq1f//Ggq/GmY4X7yujrk7540UTTNhaEnrzB68KGtNs79OqYIKh
kIXDzG0VVJrtdGNZGRMUk6IkpHJUULQil81oCRMWfw7UUihSQRpCZHvKEybM
U/rQMdCognw+eNbzZzLhlaPfFrVJFcQfK1XQEcWEWPfHu1dsZKMexkP3nMtM
GDDs331bj40yz+mvDgllQovYFHO5ERv9cex4NgpiwkHHQbtHe9noql5pWpon
E3h+6Lwo8mUjha8Ho1z3MYFh1XpVo5CNJh2n/jC0ZYJtgpedVikbVfaF/U5Y
M0H54loropqNHOvyLnSbMkHqLrn0SRsbPUhZ5KezlQnV0vxiMMpGZ8VvbJDQ
ZYJ5hvqDhd/YyDRc7cfXTUwIS+8x1Zhmo++e1m531+O8Be1P0+fTaKNJprMA
mwnO8xQKdQRoJFC1iRpmMuF2esBphjCN3mxoe1dGMEHIrty6XoRGAeRPe3c5
JmzwcSphraBRDZexVa8IE2JmVK44raSRRdaE7r2/KZD+4s49vZZGExUledF/
UZCamiEtrkmjyN6LpPckBb551+axtGjUwJBlGI5SUKDca7VGm0ZbnHe2fB6g
IJ1QNnytT6P+c2J6HX0UDMpsu/7QgEa+8QN58IoCbtEga9/tNCqo8YiPaKfg
y3b9xGlDGtFkmv2qWgoYXwKDYs1wvrZLy4oqCkSzy8yYFjRystTSm19OASlz
cdtjSxqlBTWTrcUUCLvEjT2yppHE0MyoWw4Ft7q2x1rso9GiFAvfgmsUWPDE
btjuhN8vkBtLjsH5VdvcnJ3xeZv/tL8URYFzRbRL0BEa+XEH6NmEUrA2fMmb
9GM0mtybzZjxoyBChlf77kkaRbt7+Q55U9BZLCQX50oj1XC9sQZP3GfwvcH5
UzRyLu5pSXSl4H1uQsU2d9xfYlHCpsMUHBGHvCueOF+9hUEdpCDgaMywtReN
JHck+grZ43VVFS3JMzSy9Fq9f8CagnlP15yI8Mb9O/dR540o2LNd/u0mP5w/
xko4soOCceRX2o+9aNF3hrkBBc/8thr4+uM+GmFjipspyG18m5VxlkaFMQX5
VWsoaJMWjGsNoBHFHbVnaBUFZc6X1xiep1GckxPPfFUKNJ56ZJVhn9aW2IGY
FIhdb3e+FUijNcPer3OlKRhKNy7WDcbzMzUPeClBwcKMmDdp2CIlKuSYOAWf
hXoOLLiA70vU6xOspRSYVTp+LsDO2bCJN4WPgirtHv5Fl2gkd0c8AxZQ4PVV
rtAcO0Jo3KiXh4KiOkUyGfv4u+Rr4tMkiIVIOqqF0KjP2Gvj2ikSfAqdTN2x
jYp2DZh+I6G5ZDWzAFslYr7y5TES9Mb5Xq0LpdGNHz1NmZ9IaKjb2+qGzXDI
dav9SELS3yWfHmCPaDoA7xAJh+ex0uXCaHR3sHKXdxcJntOnDn3GFjNK+h7X
ToJQ8YVgqXAaBT85fT2/hQTSI0p+B7ZDGPnuSwMJF4jGmWTstu/cIYJ1JPSc
VLOpw9bd30Wzq0nIfH3UbgJbQeOSp2MZCW+msrdpX8b3J3m/dDCQsNuXT/8A
9jyG1vNbT0l4sKWFJwi7/80I400eCTxqkx+rsJMuGd60uEdCkMhJfu0I/H9P
KuqduktC2vvGAGtsX7ufw5FpJHQHqKq7YduuzlZvSCJh577vq+5iNyQGd368
TkKn+H3zZ9gb+Pf5LIonQc6+LLoDW+K1YNWWKySUe874zo+kUYjBsLN9JAmf
mCe1xLF/PCwV9Asn4WXEBzVl7K7gk9aFF0gQDDMfNcG+qtb6SdWHhOxJrzsx
2BU9a7YJepFwJ+zb9tvYk4Gxt0bdSdA9F6mSh23ebW2T5UKCkuHp2hbswPNP
88KOkvAbb0lUP3YuW1r4qBMJB8Jl8z5jLw3or2YdJMHdYwGbLwrfb5UtKxfb
k1BRahEtjH2y45bfR1sSZpqc3aSwm1n/W5tuiechoP9JDZunvSbyghkJdeuM
wrSwVf1Znw6bkLB3a2KZLvbl1s+pSjtIsFd0fWuODb7GXAsN8PyYUfW22J/J
h9ZDuiQ4GajoOGBLtSzNK9ch4VnttPYRbEMfN6FbCPdxf1B5EtuH6DgSoEWC
+NFV7R7Ymc3rqvevI6GSb368L/ZipWlfuVUkqAloOVzE1mqy7eam8XyDxZ3C
sZ28YM0bFglHHhcrR2PHrZSLBJKE1Ve67sVi1zSe+zNRkQSpVaLvErCnPN5u
9ZUnQSRRvDsJm1TQT7WVIYHR4R+Uih18mt9acjkJLwo+MDOw8+WcH/+9jIR6
Gx2D+9jv6uoFe4RJeK2jqfsAW082oiqOQcJTA5O2x9hutePynvwkBGoLOj7B
vnXK1NdqIQlTIpmdhdjza0TXiHGT4LUuwQCw1V09Ir5NE9DYHWJcir1fqnuk
bYqAHI2vW55jl564kXJlggAjU7+RSuxxCa6frmMESNytSqzGlqvct9v0EwFa
gy+1arH9V6wUFH6Pbe+s1oCdXR7oPD5IwPaZlRcbsfuOva9sekOA2avOxhfY
2s8zfC53E9D0kI/9Evv4UUbXsQ4C2oY/6rdgJ4odW23USoCyoa5xK/aMs9oI
o5EAh3wp9XZsFdFo/T9rCegfnl7cgb3n2dfkuioCvOvH2jgOcbKYySgnwI8Y
junELhJ5YnWplICYeJ6dXdgjJctzHUsIiBzg+4vjFY5nBLYVEcDNXRPXje1Z
jCr5HhMgzZNZ3IN9pvC+meRDAk6JS2m8wvbOlxxUzSYgPLjyDsd+OT+4rNMJ
WLwky6MX+2yWY/ix2wQUnl7SxfG5e52SAakEdD/6qP4aOzAtTzPzBgFy+Vmd
HAenKFY/i8f5afbyfdgXkq5YtMUSkHXt2CGOQ+JOuv6MJEDVbGqQ47Bo4wgi
lACLeJbZG+yIMPZ94yAC0LugPI6jgxm1nv4EFDR5Lu7Hjjn78V2KFwG7Pt60
4zjB7bbs5DECmqXWCQxg37GVvhJnSYC4gtLJQewMy+kHZSYECKfFVXB836S7
YWQHAeyAKJG3nO+748lHEX0CNJ+V2HL8UO8qH9pEgPuLvCSO8zV36USsxvPY
/oNvCLtYZcmZARLP+8O2TRw/l6vNXS1FQFn4V02Oa5YFfQ4SIsDD6Pxbzv4X
/JvJLl4Cdk87H+C4dWbGnvVDCa6Xt0ly7N+RkxedqASHgrmTOedTznFYPL1Z
CTb6Z8tx/OqcjlpCnyLcs4wN4PQLNZOyXO+tCHvvLNvLsYd/6ms/GUXQK9+Z
wfHBTOpQRdlKmJELluXsN2vqKNHZuxKuCkcpc6z7NVCsZEoBVEa/q3D8yGTR
d8FYBdDrTFbjWC77UvuB1QpA6o+oclx3KF/MtlMemC/tZu0u/dbKwlsebHbx
zXpl4zrnIHF5uFHwg+b4pU+YT16uHKzitppdLw4OHQ+1lIMjF+fN5t+JDHE4
8EMWnijfm3VM9MMMlxhZOLe8dNYBMV2jPqqy8Ff+L482tRbZN8jAbxXPZ72H
0RSs5yQDRcHls+ZNcXv84ncZeHjxl21cNKpyD0iDO1fFrB+FvCxfmyAFolo1
s2bcOVr25KUk6AjUz7rX3TYgWEwSFi7+5fv6hroWeyRgYqxh1mcuDgm/vLUC
mgZfzNqg3qff8NNymBxunvUXNaPnsnbiMI9sn7X28pDvFmlicGOqY9Zh3NWs
sBFReBLZNeuBDrN5avKisGJhz6w1svs7W62Wga/iq1lfnBItVowWAZPhX+7Z
sjPZvWEpEHa9s07b3G4gsmwpRMX98nGdfWM5e4ShLf+XdVTXry++IgR7qn5Z
WEbkfHW9ILTX/7LKFR/diUpB6P/HW/nfL5AuFYT3//jMREGg62NBGP7HQ1V2
wdKJ/znf5d6lU8f/s03Z5khZ4f+c5nAi0cNSYM6HFTelL2xlzDkZvbrRXMA/
5yKqLulF68I5T7ROMc/nzJ/z4l1nnjs/556zugZSEqyZLvnXIdsWdOSGfZtz
KpdLCjwdm/P4kXwel76hOfcuZant52qds5a44CPxR0noX2vuVjPLle6esxJ3
WsBt9GHOWc0ipca7x+ccqmCVZR/xfc4ZzZP+DNuZOd96J7nSpp5L+19/Pah9
4YETz5z/D2Ok/6M=
     "]]}, 
   {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw92Hk8VN/7AHChhVLMWLMzZubOWIYSSS4p7WTLEgola7QhZSmUCpUt2epj
q2iRJWs8tlIiREkLIUoqWkSF3zOfPr/vPzOv9+ve+9znOfecc8+5ii6+Fnt4
eXh4luIP9//corHgVXIckMvK2FsoKkwqNNSvfijDgeVjujojTGGy4OjF6e3S
HFht1UbTWS1MdowYBB+Q5IDfW9oJYTdhUuxhzLHrFA44Dr+2qSsTJlMj2Ucl
5nOg91ZhMstFhDSbbhkb6tWA6ttsrfWNFDLsbeW77eEakHTL+9qnFjHS5fyo
9PIwDUi1z17a+kGMNCZlLUSCNcBDZn9P01xxcl56SHWzvwZkOBBaQgbiZIyt
0UVDTw0gnwiUtt0WJ1Oe3N/AMtcA6+0Fu1YnS5Al99rzp+U04JPP2Hn3Y1Lk
yKXh/dkV6rDVUyTWOlaWfDzPvdZgVg30zRaGK8wqkflD5+VOrlcDOXZywEo7
BjnyMPar+1o1iLoyIt7mxSBZN6PvbzZSg2KzXIddIQwy72DUPpFVanDpw58B
7ywGeY0nrDpNXQ06ogttND4xyOylvk5FYmrg7thrSw9lkhmmWzP6BlQhPkmW
zz6VIN9obj5Q36cKA27jz0tvEKSs2EaT3NeqQPPRrlxQTZBpL9d+9nquCjbs
7xUn+ggy1V3f4OcjVdj/NvRQG41FJp9gvxEqVIX1C0uPXs5jkXF3BeRWhalC
8rs23ZvX2WT2qKiKZbAqPJK9XzpTyiZLlBRUvYJU4dCp5uPkfTbZHbtCL/WQ
KhxUkNoc288m5fa6bv/trgrt66NIh6WqZJ7EvdhKc1Xwvx60J+WkKlkX6De7
SlkVvszvHP+4TY3svHV0npWCKkhxrH0+OKiR7wZPCnnLqoLj2j1BHe5q5ALz
dOk0CVX4VB3+3i1MjTQlHun8WagK9+Uq3iTdUiN7Xij7VX1nQ5RnQcOC+erk
uN7zPv37bPgkYcYndE2drCvwyhCvZ8OBiKhO1UJ1MoHO4zBWw4a2M1eXLKtS
J3UpxPOscjY4tn3u//pEnQz5ENQieJMNF3Vjq40m1EnBZLmK7ng2LDskWM02
0CBfCRUFFJ5nQ+4jo1elJhrkzfD12tExbGAeTG5mmWmQ23z9CshTbJBvT13d
uFODvGhSl5sbxIavlEyiNVSDpP3YE3/ImQ2zlunfN1VqkBOev7aZOrFhjtj1
N6Z1GuSDvtjFzB1suNPIO6X3UIP0fFx6+qUVxo/q+dn8TIO8kyUQtmYDGwqG
dU4+HdMgT0hlrJZZxwbK2vg10j81SKtzWr9/GLHh6WSuwJZpDXIyaIf/9VVs
uPqWp6qYn0MaWNz0FtZgg9kIybtVmEMKNxmxRthsSF9GdEhQOeTb1c+G65ls
cLUTaXouxiEjiFmXACU2aAe5mutIc8hHPOZ2b8TYcDN28qC/Coe0uf193Y0/
LHDe+y10gS6H/H6/pjRhigUTVItCmh6HjHtzhgieYAE992yejj6HbBVSFDId
Y4HZnofEGkMOudZ7a+eXARY8M7u0/+N6DtkfLmnS3ccCqUsjXTUbOWRo6kAp
vGaBQ3/w9bObOWTFoyOpF56zoCXCXFLQjENyiFyXZc0sEAm2tc2xxviG+zul
m1gQOfVGX9eGQ3rZ6pvwN7JAvZKyod6WQ+ae6iC6qllQqO0hU7eDQ8oMzYz5
F7JAo8Fefo8zhxTIsgmtuMSC6XJahJ0Xnl+hNJ6ZxIIs8YNdQd6Yb8cnl7Px
GD859EOiD4cMmxNh4hDDAj3xH2fKfTnkxM4CoZkwFuhqVJuVHeSQCQFHQ4eC
WXBZLXvz9UMcUvOcyXhrENZ7+FhMwmEO6V39qvPyIRYQ928b2Adg/TICaUbu
LDiY2JiSE4Txl3cKsfaw4PpY7XuvoxxSdsvlUIoLCxa45FmrHeOQtke1XQd2
sEDCuKvun2Cs/4UzK9KMBfJeIrkWYRh/XDXNZwsLxIrGLn9DCwhMCm3fiPX9
2Gt8/jjWoxs7TjdmQYPjyEDVCQ5ZmVRR1rSCBaF7+NYOR3BI1px4x6FlLHhi
5PNnZySHTPHy4uXXZMHTpx4XutCBhjJbSDYL+jkep0pPcsgVI8G9JfIskHOX
3GIbhe1ntT3iqQzm2xofXY4Wq1EnxqVYsFZaT03yNPaX+N4DqqIsCONd+K0F
XbjaaF7WAha8pwuckjnLIZWuSeXDXMynrc/aE32B8tXsDS8LGHyZ/SVov+HM
S1LTBNhcveRsEs0h+8yPGuj8IoD2hu11Fm1WZTlg9ROPb9nr3IpWv8Cvdn6c
ADIw18I0hkNm/H7VfvMzAZkuk55n0UJuJf7NHwn4NvdE9n30qJ4bzBsiwEul
5YpOLIe8PvjAMriHADE7oX7+cxxS0uzKZMpzAl5HJtGWo6PKA9PLOgmooJu8
dUa7xRLD31oJiJbfxVOOfjY5J1rkMQFjNn9C+9HrXHs4Gg8JSDDIyhU8zyFp
umeDPOsJKJHY9mw7OiHTVT4KCIj1vvYjCM0npN+Qc4+A9BtXO9PR/W9Hhd6W
EnD3xkP+PvSVs6b/2NwggEotKrK5gON7gm5y+DoBDz7ftDiIDt01OxKXi+eH
99Nj0U7aBctbrxBQavHFrxbdejnqxcd0AtZmSZa/QK8WdA4RSCXA6vpzmXG0
TK9I09pEAq4OCFjJxnHI6I0j3i5xBMgnPF6hhf5dVCcSdo6AD9ZNlibonqiD
OypPE/DbftjJG31Rq+uzZggBO9rESwrQ91+t2CRylIAtv+dH1KInTibnjAUQ
oJLqENeO3v5yh8Pt/QRM5Yef+oI+GXmvNHYfAQefWhybRpdoyFP3eRGwNzb8
sWA8hxSN6H+ouoeArR3PMpTRa9XXqixyISBftllTA32wOyfsoxMB2dkPjfTQ
HaoeOnm2BJiNmoqboXmfP4o7bU0A56TUO1u05nHVz+4WBDToHd7ogj7f9SWb
sYUA41aDRwfREGrOM38jPt+H6/uPor8QRTuG1hHQ3ydxKhxtGuJPySEJkOsd
9rmADmF2+0ToExB/6cSti+ibHSsfuq4koLi1LCsdvYgxHaq0jIBJr+yOa2j9
dqeXczgESHe0CdxCex2FFW9VCXifS50tRKeoKMUBQUCQs8ydUvSjJ+GfLtMJ
8DybKFeF/nXk3YZQZQIWFtBMAE3Q1mc7KRDgv9mT3oCOChTcIbuUgLbBsGXN
6DIl77t/xAn40Zkf2Yoeftwi8opKwL28prvtaBPFC00pQlhPEK3oOdq/+aty
kCABfVv5gnvQOYetQu3mE6CTR1V+jeZ/JLFCcg4BG0c+8vSjlx86cuHnNBM+
sC0MB9Guci9Hn/1igva7k15D6LoDGVmJ35nwfPGd8BH0Vxme2UPjTFhFb/Ed
RSs9cLa3+swEQb65Jp/Rx6VVRKjvmfAgmu/2OLqg8aT310EmnM37afgN3ef7
/kH7WyaISxnVfkcbNuSHnH/JhEDfW0k/0X77hHp8u5lgXbLq4yT6sqSvtlkX
E3r2p3F+oWe8tUaFnjBhrCgj+g9aXSJh/admjH/mSuY02rH2R+bjJiZY5Irn
zaCrxMrtztYx4dfkljSeBJw/apaWeNYw4V3Zz5Nz0NKex4Q3VTHhy6qavbzo
oGrywYK7TDiy/LkgP/pY5S1r2SImPFXWBK6Dy2QHNQuYsP3pUp+56LDC3zw7
8pjwYsnZ0nnoE7c9z/leZYLHl+XW89HhN17IRmQzgSpY/Inrk7mlejczmMAj
9HixADoqi/6wNpUJF5Q0L3J9+kqizbNkJny9s3mpIDo65eCh2TgmrJGcJ7EQ
fSFW45b5KSbcOmE5uggddzZD3y0C451vsBNCJ0QJNQcdZ0KnfG8D10knPg5n
HWXCnVfyGYvRaf5XFSd8mVBbEeIgjL7mJJ+YYsuE3Ueav1DReTtilW9bM0Gj
rMdZFJ1vO32n3oIJAzcdnnJ9y+Jl6+gWJmTmShaLoYtMLi4gjZjgl3J/rwS6
2HjeRUsDJiz/8LCN67uGh1XcVzEh9/orHUl0mZ7lmgvaTOBNcp3lulp9ybEB
ggk+fvz7lqKBHSI4SWeC51BKLde1zE/Ji2hM2Dd4TEQaXafiwFBUZMJbHU9H
rhuUmku05Zhg8Ewhh+sHMtc7nCSZYGXRTZdBPxI/9eUUhQl5sd4JXLcI71l0
ZxETSpPCv3LdJmhM9MxjwqhI5E5ZdPv8wtLPfExQeVyUxnUHv6IJ3xwm7K+X
fMN118yMi+pvBmxUAm85dGZ6do7ZJAPkJJaUce2nv+n9gR8MmL6dNU8eLRiU
6FP+hQFn+utvcG34gx1oMsiA3Q8PiCty2/ejbcyuFga0FkbQaOjAMzNPwh8x
wKzoUyTXJkQ25eoDBhQ6KQ9x3ef25eKnWgaofQn8RwUt3h+ZGXSXAVnfKifp
6MEw9rv0IgZoJcSsY6DvyLczagsYwC9wOpbrLY4yN+fnM+CHbxydiT7eXVia
cJkBDkzBAAJtGmD7qzSNAe8+WLRzLSM+o//yEgM6O16qsbjP03JjnWICA6IN
VnzierS19/GtKAZ4Dpw4roq2aVzU37SfAV4ivb0aaLVCt0XTxgzoKSQrV6Ar
zifO7TdkwKPt+3R00Bt8G2bur2aA7dUjxVy7qiqNn9dhwC5t1Tu66Eu5r7to
bAYElLFK9NBzU60ub6EwwP1U33sD9OvwNVppfXS4e0RacAPa02U/+/hrOlTu
7snmetLwCs2thw52mtcMN6KpM9PinE46zF0UcHQTemNg+e/6B3R4aSA8swVd
4s1p/HiLDheTcnUt0DHWcrargunw8IjyOUduvSftI6yD6Djepdc4cduzLKnA
N4AO6WOqE1wLSi8RyN5Ph7p32c67uOO7b7Z8kRsd3DMFTVy584HXW+k3pnQ4
cKltnQf6yPHs3jAFOmQcHSf80d2FfQtTZelwZlU2bwBad1BGt2QpHeI7L77i
esIk8fwHUaz3+LqEI+hDi04aWQjQwUG3ixKM9r24N0v5qwp8nTy5NQK95yZr
7/16FUi/+ORePDpCbmxjJqiAbG9zVwI6+1yJasg9FVCK3/4lET2w3/CrdqkK
bP8pzkhGO6/YHpyTpwLf61ZfT0M71hyPj7igAjeK4ydz0Nbt3TVrdqpAvseN
0XJuPmsyMuUcVGCdh4x+JXc+KnKN/GWrAjw7T8VUoZ8mft5UaKECdh93rKhB
m9vzP1M0UYHJOucrDeitAxqjPGoqUG9GefEEve7HScmaXzSwutY2OYzmLAi/
ff0nDQRUkk994PZP6VCThO800Ja7L/kR/dUw4JDHZxpsXum+5jP6SvTeNmo/
DRQNNxd9R/9R3hDl/pAG7Llfl/Am4nxlITApkkwDlvRMuxz6yp655/4k0CBL
p6JYAX02cA59+AINZsUlUpTQLhlTllVnaWBWDd50tPDIh9tuoTR4w7NcSx3t
dfzR3ko3GtgeyDc0QCsVnH2+W5sGm147RO5C94ol/hOhRYO2TMc0F3Ta0Qyv
bA30gNDd3WiJ9XdmBwgayL47Pe6OXvTmGcNVjgYVK7ac3o/+uVAp0Hk+DbLz
PhqEox/vLZN0eqEM511pL6+hz7TU9gc/U4ZvAKb56PXLmm+kP1WGY84hjTfR
dTOvDV+3KIOvtE9VIbo0kc/DoU4ZxvNOtVWhM+tNy+3zlSHf2CixHR0g/87O
JlgZJvse35pGf28I6NENUgbD5fItPEkc8oCn4I6lAcpg9L7hCx/au0TD4bWf
MkznKa8RRLtsDnJy3a0Mb6z7pSWSuPPLElffzcqgk778uiZa5clK71NSyvBT
R8/RE5156PGou7gyVKu7UfehFZbu9NlEVYaUzW2t+9FL90TsExJShoXPjlsf
QQv/bvWL58Hj/FZZUeg/9N2HLw8rwXa/3g3X0E9DYkNKS5TgurUn3yhaKUBd
q7VQCV5QjzPHuPn7tr4bvK0EyrrbLL9z4+1avJWSpwROp9ZU/OHmaxQr7ZOh
BP4m+a1CFzlkE19smdIpJSg4USCtia6OivkaY6sEqj19V46hhY6r5WZbK8FB
+ZGE42iHIy12lRZKIHvM9vxJ9G8Podr3W5QgN+Za+nm07uaYc8ZGSlB7Y45o
DrpIKEZ1ilAC14F3oU/Q1+Ki3Xb/VoTRQx+HWcn4/nxU0qY/qQgzi9v9NNEP
eHv1xH4oQvWdf+bqoocOaC65/1kR4nSSLNehaZbPShn9iqDzcTxiF/oyVUHg
Y5MihNXZyVxCJyUU5e9PUoQ91yfGl1zC/eHjV2Kb4hWhcvm1yxLoEv55YUrn
FWHog7W1PLrzkK3V09MYr/RntzqaYj39Z3mwItSZlxibomPE1ptOuirCWLFD
VSw6IqlnLERTEfJ7ySUSKRxyl5/eEjd1RfCdGmiSR6/alKK2la0I4YJasUz0
12k7T2kVRbitFqOvh96558VAqaQiRG3uUHNC6y3vfjY2qwC9r8bir6HH2ruq
XFoVoOjBlPnGVBwP+dovNzYrwA7C+I8l+mpk4hSnSQGqa4IqndBOK61XzNYq
gKqcb9AhdPOVztupJQpgdXDh/H/Qub5PMzvTFOBPw07PabSjUHuUiZcCfKGG
59em4fyuZ9Dj4q4Ay57/Sm5Bl7nls0P3KAB/qEPCCzQFIltLdyrAbT/eknF0
0wE9UcJKAcTtnmUopXNIre6sywtXK4CxpbbMKfS8LP+7bYsVoI1u/t0+A5//
k4H5nxYqgPZ01y139K4/2+wEBBTAPFgr0B9dac3+Y8SnABW/InXi0H3CEO72
RR6idop6PEIXv4xLYdfKQwtDIHX1Zex/+3WbSnbLQ5VO5HqNKxxSZ5NK934n
eUin6C4zRFOUKe/VbOWh2eUMxxz9oPPj/NzN8nCvfWrnQbSW7uX1SVrycHHK
8UIZesHs3Af+PPIQL6yvY/IP3i/6aaNOmhzEuz9x3peJ/f/avvryp7LwPCVt
3e9sXL/S/Vf2tchC5Gr6iSU52H45wbfnNclCzsnAVmX0gszoVMsqWaj60ZK4
Bc2blnfwU7YsOGzd0pOBnjg3pKzoLwvz7wgvNsnlkG8CnCKiJGXhReVul/Sr
uB5db7rOxlEGGESj8ZE8fJ+3hPSbfl4KkeVtBw4XcMhvWmYNirukYM39ZcnD
d3G/sHT8sKW9FKwY+TE6jXafE8+ItJICww0juqKlHPLVk2dn3m+Qgi/5heWG
6PveTua3NaXgJu9QwCV0Sq7PG30+KdiV/bFjUxmu55ZGT9rkSkLVH16dnHLc
P8xRzzt9RRJGx6/ll6NL3j/ZUZkiCYXuddMtaFYptUbunCSkeVoZTKBFrVIj
3wVIAq+H6LZ1Fbi/i8mjHNwoCUol33vfoGPnPFSNHZWA8r4FDQurcL3kHrzZ
eEgC3t2drpRH8z3R9JzslYD1sRuDlqED01KuujyVgDDBYVN7tKuOt5JOhQSc
VC8KzUHr+iyR7DslASHidyKW3cP2eVq/IvG4BDwbCMlZi76lF2i96agEOBz/
k2eNVl7wNq54nwQcCdP3DUAvzioUOm0tAZsWrNCqQA90W/NpKUsAfS+dNKjm
kBmkoNKwjAQMPr8gZ4q2za02TBOXgGN7Xz9wRLceZITME8T7mT4PPoYuWzw1
2TMmDvM527NL0bFr0z6HV4uDtt/h8/QarDd/m9DKMnFYKWg0sgzNR5mr+vmO
OLyNatUwQgf2+njY5ohDl/aBMzvQrkHkoGq0OPxKb6w4h9Yt6H/RZScOMT1+
VmPoM/b8ztcsxeHIrhbP3+jX/PT3QVvF4fpN6x3zAPdvdh4T8kZox8F2afRj
3jGKJxPvFx6zaR3a2Xp688yEGBiKMqfi0cWzck/bxsTgUpWecTp6Xp6hfdaI
GFiEebvmom/MhLtveCMGeU3S7DL0xFXByLhGMWBffTf9An3ml0Q1PUEMYmxG
5SVrsf9lr1w3FSMGJ+bHRMqjNcx2PG4+JQa1kVtf0dGdWRk9fkfFgLXompg2
Wm6rys8KFzFI/lJ9zgzt99MkJMYBPZPfbI2u/8d97q7tYjBLy+7fgXafyKfO
3SQGI54aV/eiiy5rccw0xcA/sLs4GD1vk1WpIhuvv9H59QTa9vthg+80MVDZ
nS0ZhZ7ZUL7lkqQYDP6KU45Db/hKegzMikKwg86BHHRKmvNYyZQoyIk9IfLQ
n0zCA6K+iUL6R/rLW+i41PuRasOi4GP8VLuMW+/arZkBraKwtuWP9CN0R8Lp
c8VNopBntnO0Bd002HhsvE4Upl+dTG1Hl0QY2HiVisL20qq0bnRsg8ainVdE
QXfbU4d36AhR76nUFFE4qP3L6j366O5rQ90JorA69LveR279/Iq1FqdFQdNn
14sxtNFair/JAVHIj67P+o3WTTB1DfcWhU+7c7fOoNUHz2wDN1H46pw2xVOH
648IPrbeDlH4nZ/rOg8t3ElKBliLQiPjM0MAPZ92bG6xmSgQu5smFqK/13/v
VVsrCv66jWtF0CNUzRZPA1HIfdZ3j4ruc/WpuKorCnNqMpaKo1v4hhIU1USB
31Di5FJ0rvHzjWLiGP9ymr0SOi2eqmMhLAqlJd9VaOi4ATPaOUFRGGQveKeC
Dg1vmlkwS4XHdz6vJ9C29eVFf4ap8GzfsfcaaFPqxJWV/VRYdLsvWbOO+71T
K9b/FRWEh/0slqG1+PLdx9qooLU16f0KNNNy2FqtmQqW2iG5umi5LGVjz0Y8
f9HYVj30QuM02cFyKqSs7HBajeaN7xZULKZCU6JYswF6sl900vEWFVxTT9MN
0YMnYjqeZ1LhesXGO2vQ1XUhp5rPUqHb78i69Wi/Nc7jhY5U4E/ZvmQbekik
YPNBGyps3HhkjTna8e1MzjJzKoQ2rva0QG8KS7MvXkuFdbfvJluhwexj8SED
Kgw9m7psjdaR11uirUuFDv8/advRtOrn9SVsKjScOX3EFp0SQ5fzV8H6TOrt
7NAijocDV8hTAdZJa9qjZ35T1EopVPC4W3J/B/rFStOksikK2LjGXnJCbxNI
Hwv8RoGtQYkGO9H3uz9uWvmJAtBk/4br4oDTs+V9FPggYi3sjI4taXCvfECB
Id8Hpq5o/khq/dFaCngr2fRwfdTKRVa/ElcR+lJ7dqPdv822V92iQBV73H8P
eo3mqlXViRQ44iQTsRddxnMmMeQcBX7OmeRxR2u0dX8xOE0B95D0IK5lfP2z
a45R4EfTBxcPbn8xaJwJ9adAo8fLNq4FFovaGfpRIHCPqp4neuLGHaFaVwrs
POI8zbX3MR73444UoGwL3O6FHthsVmdkQ4EF3ZbXubaXzpDhNcfrzSN/cN02
Mupft4kCtckpet7oe6fPsI0NKPD+QtJNrvOYzL56TQrwHm7n80FffNCYsFaF
AnNbypy4jnBz3dgoSYE3+8tqud4/d87MukUUeCn1krkP7ZSdUXh/VgRKpl+d
43qzsf7e9d9E4HQ14yvXuv0vpJuGRKBQpnWTL5p+PKBtQ48InA0+lcA1VUEs
8mGLCIgb5D/k2qHeOE6RKgIepknvuM51O3D5iK0wGEVH/OueqbhD02uWwLfo
I//anW6UN79LCG7O7P3Xc5edo31avwh+qdn960zydUZHhSDckrT81xolnZfN
NwjATpbNv65iPb7S1jUfomNd/7VtmOsQa+08iMv3+9ffu36xIwv5YQnx12EJ
qyYDV/GBm91fL7I81uDdMAdiRv46/qfQjQorHvjV9dfLdUmGyKPpmjt1f73L
KDPU9cavGpc7fx29aW53SezPmsbcv949pcV3IOBnzaX/vPraLnX1XT9r9v3n
z3OrInI1f9Yo/Gez2gOaFzsnaq7k/DVFt+9M4NKJGup/TlapXL0q93vNyH/O
5tmfBffGa5YW/HW6TgttSu1TjfmDv/7qU8a7v2+oxqT/v3wGReaO3RqqGf3P
z+y95vsGD9VED/x1xXq5RT5Lh2oqBv/6hGKEmIfVuxoY+muRLjOmc9NAjdSH
v+boD281L+irof3nN6KqWq48XTXC/1lfSqRYqvgKafif9ey1rEvkX/7PjDm5
EVfJD//z7Q6xOnP7r/9zDM3utsuFyf85v2PiuJDTzP+cMyyr4tDCY/j//rHH
8PQdL97/+f8AxRuiYg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-17.960163274234844`, Automatic},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Adsorbate concentration \
(\\!\\(\\*SuperscriptBox[\\(\[CapitalARing]\\), \\(-2\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Time (s)\"", TraditionalForm], None}},
  FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
      Charting`ScaledTicks[{Log, Exp}], 
      Charting`ScaledFrameTicks[{Log, Exp}]}}, {{
     Automatic, Automatic}, {{{-11.512925464970229`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox["10", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.605170185988092, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-11.512925464970229`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.605170185988092, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-17.960163274234844`, 4.144652716270571}, {
   1.2633599119864147`*^-10, 0.0002557299790961533}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{
    Charting`ScaledTicks[{Log, Exp}], Automatic}]], "Output",
 CellChangeTimes->{{3.546041160958767*^9, 3.5460411732740393`*^9}, {
   3.546041216861188*^9, 3.5460412732127037`*^9}, {3.546041327265106*^9, 
   3.546041415085876*^9}, 3.546041462673644*^9, 3.5460414974686737`*^9, 
   3.546041593678466*^9, 3.546041685484968*^9, {3.5460417554197702`*^9, 
   3.546041771406828*^9}, {3.546041847425962*^9, 3.5460418599824047`*^9}, 
   3.546041906659306*^9, 3.546042033971017*^9, 3.54604212612502*^9, 
   3.5460422269955063`*^9, 3.5460423104497833`*^9, 3.5460423815216417`*^9, 
   3.546042478255501*^9, 3.546042520755836*^9, {3.546042718404578*^9, 
   3.546042742043247*^9}, 3.546043053447414*^9, 3.546054970626151*^9, 
   3.546055531699061*^9, {3.546056616331687*^9, 3.546056626779685*^9}, 
   3.546056738760666*^9, {3.546058242405678*^9, 3.5460582668955717`*^9}, 
   3.5460583075386744`*^9, 3.546058345250922*^9, {3.5460596068863497`*^9, 
   3.5460596340682163`*^9}, 3.5460610129970713`*^9, 3.546061062229313*^9, 
   3.546062488427413*^9, 3.546063446271009*^9, 3.546068130192952*^9, 
   3.546068270801525*^9, {3.5464650214546757`*^9, 3.5464650525822287`*^9}, {
   3.546465102418089*^9, 3.546465138165887*^9}, 3.546476555867*^9, {
   3.546477256226651*^9, 3.546477280519018*^9}, 3.546477411663375*^9, 
   3.546477449617937*^9, 3.546542438559313*^9, 3.548310549047262*^9, 
   3.626908268343809*^9, 3.626916068751648*^9, {3.633108308658132*^9, 
   3.633108321673544*^9}, 3.63312004761709*^9, 3.633120137823361*^9}],

Cell[BoxData[
 StyleBox["\<\"Plot of dissociation rate vs time:\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{
  3.545594275417033*^9, {3.5455943258543987`*^9, 3.545594352070866*^9}, {
   3.5455943903255796`*^9, 3.545594409753593*^9}, 3.5455948364539557`*^9, 
   3.545594921296228*^9, 3.545595021590596*^9, {3.5455953652951403`*^9, 
   3.545595382680352*^9}, 3.545595420276464*^9, {3.545595455909422*^9, 
   3.5455954853616447`*^9}, {3.5455955510773582`*^9, 3.5455955647608*^9}, 
   3.545595680461438*^9, 3.545595979686843*^9, {3.545596022514072*^9, 
   3.545596045197377*^9}, {3.54559608636241*^9, 3.5455961906490183`*^9}, {
   3.5455963066973753`*^9, 3.545596367032168*^9}, {3.545596529897324*^9, 
   3.545596557399078*^9}, 3.5455966930506067`*^9, 3.545596815785028*^9, 
   3.545596858866251*^9, {3.545596996639995*^9, 3.54559703061936*^9}, 
   3.545597109735401*^9, 3.545597756687407*^9, 3.54559780857572*^9, 
   3.5455978624749527`*^9, 3.5455978937510557`*^9, {3.5455980073239613`*^9, 
   3.5455980457895317`*^9}, {3.545598122001401*^9, 3.545598166477599*^9}, 
   3.545598254939474*^9, {3.5455999820976477`*^9, 3.545600007973382*^9}, 
   3.5456000565206957`*^9, 3.545600121078031*^9, 3.5456002815490913`*^9, 
   3.545600359189083*^9, 3.545600512407583*^9, {3.545600557064808*^9, 
   3.545600601770113*^9}, 3.545600631783763*^9, {3.545600673436633*^9, 
   3.5456007511052647`*^9}, 3.5456013261078444`*^9, {3.545601471829322*^9, 
   3.545601489691885*^9}, {3.545601611895859*^9, 3.545601623659931*^9}, 
   3.545601686446495*^9, {3.545601721673792*^9, 3.545601756778764*^9}, 
   3.545601999828418*^9, 3.545602069112853*^9, 3.5456021903287497`*^9, {
   3.545602270530787*^9, 3.545602453225287*^9}, {3.5456024906793823`*^9, 
   3.5456025193627443`*^9}, 3.545602581783917*^9, {3.5456026157650347`*^9, 
   3.545602706884818*^9}, 3.5456033991477613`*^9, {3.545603530802047*^9, 
   3.5456036122339067`*^9}, 3.545604046144763*^9, 3.5456044185900497`*^9, 
   3.545604523812154*^9, 3.545604614372967*^9, {3.545604678843533*^9, 
   3.5456047042964783`*^9}, {3.545604771479611*^9, 3.5456048116356087`*^9}, {
   3.5456048614110413`*^9, 3.54560495523389*^9}, 3.545605076481801*^9, 
   3.545605113283265*^9, 3.545605146670886*^9, 3.545605181786087*^9, 
   3.5456056521340313`*^9, 3.545605763472995*^9, {3.545605881519014*^9, 
   3.5456059328703747`*^9}, 3.545606283974638*^9, 3.5456065783613157`*^9, 
   3.5456066920407963`*^9, 3.545606956240116*^9, 3.545607282973433*^9, 
   3.545607562027563*^9, 3.545609254722746*^9, 3.545609962921344*^9, 
   3.545610529963806*^9, {3.5456105858986464`*^9, 3.545610614568466*^9}, 
   3.545610645194811*^9, 3.54561067646564*^9, 3.545610732970492*^9, 
   3.54561076399277*^9, 3.545612561371162*^9, 3.5456127373592052`*^9, 
   3.54561295611504*^9, {3.545613703833064*^9, 3.545613780857421*^9}, {
   3.5456138481192427`*^9, 3.545613903391157*^9}, {3.5456141710400476`*^9, 
   3.5456141844193583`*^9}, 3.545619902579913*^9, 3.545620266160265*^9, 
   3.545621479593595*^9, {3.545621526216792*^9, 3.545621544895959*^9}, {
   3.545621654711646*^9, 3.545621676838524*^9}, 3.545621810200521*^9, 
   3.545621843916976*^9, {3.545622026486619*^9, 3.545622036867564*^9}, 
   3.545622215392498*^9, 3.545622420234446*^9, 3.545622844116006*^9, 
   3.545623859849106*^9, 3.5456244390974073`*^9, 3.5456245715001698`*^9, 
   3.545624683377153*^9, 3.545624728650568*^9, 3.545625154981246*^9, 
   3.545625473160935*^9, {3.54562553649678*^9, 3.545625547780102*^9}, 
   3.545626336564645*^9, 3.545627143442979*^9, 3.545627334965473*^9, 
   3.545627471146102*^9, 3.545627556199271*^9, 3.545627697044819*^9, 
   3.545681568741829*^9, 3.5456816052891417`*^9, 3.545681686996174*^9, 
   3.545681727711495*^9, 3.545940084647626*^9, 3.5459406857813787`*^9, {
   3.5459407206212463`*^9, 3.545940738554839*^9}, 3.545942990569405*^9, 
   3.545943214878791*^9, 3.5459432764077*^9, {3.5459433096714067`*^9, 
   3.545943330341778*^9}, 3.545943361379889*^9, 3.545943447762514*^9, 
   3.54594366273831*^9, 3.545943707224111*^9, 3.545943882669894*^9, {
   3.545944102372942*^9, 3.545944132281493*^9}, 3.5459442139632273`*^9, 
   3.545944618387574*^9, {3.5460320119289017`*^9, 3.546032023626416*^9}, 
   3.546033734018186*^9, 3.5460379017686234`*^9, 3.546037944801403*^9, {
   3.546038094618629*^9, 3.5460381159861526`*^9}, {3.546038146741969*^9, 
   3.546038194656616*^9}, {3.546038265233307*^9, 3.546038429059252*^9}, {
   3.546038476023872*^9, 3.5460385187966967`*^9}, 3.546039172924136*^9, 
   3.546039218946762*^9, 3.546039314078814*^9, {3.546039442081624*^9, 
   3.546039460618824*^9}, {3.546040330366028*^9, 3.5460403906419783`*^9}, 
   3.54604044121133*^9, {3.5460404725955276`*^9, 3.546040564750074*^9}, {
   3.546040677099669*^9, 3.546040699702656*^9}, {3.54604076339892*^9, 
   3.546040794190919*^9}, 3.546040890451099*^9, 3.5460410599459743`*^9, {
   3.54604116095043*^9, 3.54604117326715*^9}, {3.546041216854574*^9, 
   3.546041273206106*^9}, {3.546041327258485*^9, 3.546041415078535*^9}, 
   3.546041462666276*^9, 3.546041497461711*^9, 3.5460415936708107`*^9, 
   3.546041685477566*^9, {3.54604175541306*^9, 3.546041771400073*^9}, {
   3.546041847419306*^9, 3.5460418599757433`*^9}, 3.546041906652371*^9, 
   3.546042033963545*^9, 3.5460421261184797`*^9, 3.546042226988845*^9, 
   3.546042310443198*^9, 3.546042381515066*^9, 3.5460424782422*^9, 
   3.54604252074832*^9, {3.54604271839716*^9, 3.5460427420342407`*^9}, 
   3.546043053437543*^9, 3.5460549705396852`*^9, 3.54605553168974*^9, {
   3.54605661632442*^9, 3.546056626757677*^9}, 3.546056738750499*^9, {
   3.546058242396693*^9, 3.5460582668864527`*^9}, 3.546058307531291*^9, 
   3.546058345241702*^9, {3.546059606878522*^9, 3.5460596340614*^9}, 
   3.546061012989561*^9, 3.546061062221697*^9, 3.546062488417886*^9, 
   3.546063446189247*^9, 3.54606813018298*^9, 3.5460682707834044`*^9, {
   3.54646502144599*^9, 3.546465052573064*^9}, {3.546465102409072*^9, 
   3.546465138159264*^9}, 3.5464765558578873`*^9, {3.546477256217404*^9, 
   3.546477280510079*^9}, 3.546477411656775*^9, 3.546477449611148*^9, 
   3.546542438550598*^9, 3.548310549038352*^9, 3.626908268327836*^9, 
   3.626916068789907*^9, {3.633108308678187*^9, 3.6331083217261333`*^9}, 
   3.6331200476545*^9, 3.633120137957924*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw91nk0Fcz/B3C7yHqvLbJc137tqRTNUEIqEiJL3CuStAmpkLJEWcpS2T2I
Iksia3wiS7aEShRCZKmIRJZ+t57n9/1rzuvMfOa8P3PmnBkS7fRBFyYGBobX
jAwMf8Zorhl/HQl1mFsxZXIhXUJSz+t3vNioDonLAjWl+y6hokt3Vg+JqcNO
z4QmM99LqGsS+XuKqINghOBbauclJPgi0u8BQR0URLzvcQX7oaQQyiVhdnXQ
7g7ctrDkj8xW22fGBtWAmQft5o4JRGc8vM8wfVCD12vUiZ6HgSimf+OMeJ8a
aJAbr7Y0BaI3FSe+WfaoQdyeiE96a4HI3ofja12zGrgeN6h1PnkFuX0zmEp9
pAbsDeDdYXkVBX6s+nQoSA3CTyy8qTUJRrSb02JagWpw7LV0Ud2pYLQLix/k
91eD4O9MjhyxwYgtJaCm1UcNrgbkORx9H4wibfTv6LmrgVEkLDl6hqDEl43G
SuZq0DHfLTuZF4r8An4GsJuqwa4T9209ekLRERWF0lETNbBJ5HXRWQ1FpBvh
pDQDNUjyf06rM7uG7hvu+0XUVoNLTkgiZPEaKn36Km9VQg2cbzL7ux8OR7c9
mIb7xNTgoPFCA8u1cOQrtkmkXEQN5l0KiQsl4Uj3QlywJ0ENZljSvIf4r6M6
LWuHcVY16Ntjlz3+8jrqzHvP82paFS5cjik74hCBJhPGz2ZVqgKz/qEltfpo
lJok2/+kTBWuNWlt1F2KRuYpzgYvSlTh0Bb8oEf4JipPHxT6WqAKWommH3tM
b6LQnLdVWzNVod6YZxul9iaSLm1ibb2hCvyjBqcDH9xCdp05CbP2qsDm0RDi
kxOLeLo+MbHYqoKty/dgwxexqK6b7CFkrQq5u5j9LKZikdLbNKRjrgrKm2r4
5dTj0OKHOyPBu1VBo7ZiZ2V1HIqbuqYioqoKhqsVe1iG41Ebm9sz9FsF7hwj
Mp11uov25b4fcFxRAd3oNfHZ8Luodb/5SuCSCjQRDsRVPr6LWuK2b62fUwHF
JoMIyroE1CzNnW/0WQXWSXgUx5YkoOeo+O6BVypwoGB+8zexJFTts3KalqkC
x770U24rpCJd0bORQekq0Hq1bdbQPhVVPf2Um5WiAiaPWhMO3kxFlSwvP43d
UQE3avWK31IqKo/5x+5EhAp42l3QUOtMQyUFhkZe3vR87/OPtzSlo7yxmxKh
RirwWhUneeZnoMkXUd/dDFRA78Mw38HODKSUH9G4V18FHExTDc7NZaDcc2Gn
+HVUYLihot5veya6zxBYk6yqAqOd8zsqWjNRlujpI48FVaBhf0LXzuUslGq6
P3VoRBkkd7u/Z4/JQQMaez3rh5Shp9ebhbcmB4kL7jHM/qAMQbkGj49N5qDk
foOvJ94qQ1SayRteg/soyU0X/WxRhidDa4Mmy/fR3auUAe5iZSBaBzFMXshF
MU84JHQClaHqUQC1qyofZU0LyFr4K8NT62deZ77lo1JpKeUTF5WBbyi+1IVc
gHqjtmxP8lIGqwXhHuuIAiRxzPnQspsyHNTkJB+nFaJc4adRVebKwKOwe7Yv
ugjV+Z75rUNWBj2t6Snbs8Wop+ASm6WUMrCmfOiXulWMPo2GcnuIK0NJbKOE
2KNitM48RSxZWBlc9eda8meLkaliy9aV9cqwqsXOYOn9GPW9I5+pnqfAdq44
ylhoCZrd/nZIt5ECSrXNYbteP0F1RSdSheopsD7nSdap309QnByD/UwtBYJV
aHPDimVIm6D4NrOCAsYuKb33L5ehgImL7Zz5FKCweN4qVS1HnHclKntjKUD9
Wbx9U1IFkvnhEutFpUDla1HfxaJqtOD+64DpEQroOgdwyX+qRk1DUTwKdhRQ
LF6NyN/wFLm3lYX3W1JgqC/A/nnQU/QokyNwpzEFWs8dDpO3r0HoYL4HnxoF
9m+suyvGC8i6cH73wxUl8HqV8yn9xzM031hbFrekBAxu37hlBOtQzMB1Rf8F
JahuHWXp06pDHdwkbtMZJYjc0xs66FWHDDz293wbUYKYdZtXbX7WIXXFbNqm
ViVIaLp3zIjtOeLItL5cmaAELyTnBnRMG1F2pfRsxm0lkO9q+VXg1YgMur7Q
bsQqwcd/jD4fSWpEgYzBhvaRSjDLOp/hM9GIFhyLuNcClSDizejt6LAmNLyR
I1nfTQlaTr24Vd7VjKpuV5Y3b1GCi6y9EdcTWpESY6zD2CYl6Dg1wqXY0IoS
T5xgYtFQghMqB8nss63IV2/jPkxRAl/hKZ+gPW1oy6T/YKmkEriw5VwLXW1D
xTv02TLX0esbbsmzeXagB6NNFv59ijBx8hZubOpEImbpi4lvFWG2R2hl4mMn
CqvwTSnvUQRG1YQ7m1Y6kWuU4vhchyK8ufBLb5vGKySjfeOie70iMH0OMRVI
eYXSb5j+Y/1QEXoeCq5t8+tCdzRff9UIUIThOu5fvYd7UOP7LSb8lxRhyXuo
p+1SD1oIvXtv5rwi/LDMGf6R0oMO9dvZF55VBAb2fR8/D/cggeDhF8ouilB1
+Vik3enX6Obrb1ny+xRhJkreoibmDQrz5bQTF1UEvuKXIl9Z36FyaY8nK0KK
cExq0EVT7R0ab2vnf09UBF15Wf0ym3fIkHSrOZFbEQherZuDH75DLC3CW0QY
6f3tI+3cYt2HrojJ8hM/K4DNuO6GQxX96GINblr3RAE2KB/6Gfh4APlVFViJ
P1aAvXIbhkyHB5B/ufioRpEC0DpOEKj8gyiweJnBLlcBdk+mDVmcGUSh2WXb
81MVYDlBjr9WZAjdilIrML+mAAUHysLShobQ/SOS8Yk2CmB/ylyjKGIY5dpF
kQutFIAicDjs2f1hlGez+qj+oAJ463K3Lj8fRgUH+zum9ylAdZMX4/TqMHps
eGcd1leAdaRPjc/OjqAaVV6/EUUFaIjP9/WljqLXa2s05WV54F23SaGbNoYy
UrLumS3Kw52CwM5XQWPojK7JZ88f8rBZYfPt31ljiPNi/MmKb/LQrDAXMjE+
hvR+UHwNR+UhX8Heae30OMqbsol0apeHphNZ4W7hn9GV3uKyuDR5uPr00pGt
I5PI9LzNr7Jkedhx6kFHBucU2ii0ptufIA9MDC0XDTWn0BOLPXWkOHkoGdVp
3Hp1Ck13DLYVhMlDvMWb1RaZaWTdwDXcfFYelo8usK54fUEqxa5cq7vkIfd4
0c9W0gyqvBnPOqwnD59nq78f0JlBxqefrzXukAfvh0rpK5YzyFlZevbmVnkI
jzi71hw2gxKyP7yWociD61aCpe73GcSaZJm2jyAPquSdHPVts+hD0E7N5CE5
kPp9LpmYMYfcaWcpVz7IwR5Jwd+fYQ4t6qXLuPbJgRuXvv6XwTlEXFsVUu+R
g0OMd8OCJObRHt+K5fomOdi5Lw19S5lHpR7qDVMFchDB3TXEmv0DRVpJ2Oj4
ywF/6Vgg7cNPNB1qG2x1UQ5IuxstKQyLaF/57aLT5+VgUrf3rSx5EXGK8XJk
nZWDZf8g4UfHF1HY0O8KLlc5OBe096XC0iIKOvFRbMBUDlKvUG99JP1CF65k
DQZK0fOJpixVJa+g3uKh9UniclBSVKFo3biCtEc3apeKyoFsT3+M6swKWjCM
vzkhIAfHJF5GxxqsIi+uUP2DHHKwxS9gQG9mFZ2+cyyT/F0Wkpan3wVa/EYu
+UrHGutlQTXE+ddOOUYcLDGzJwNk4WUom7+FPiPOii5VDngqCxHa772i7Rnx
yFm975vLZCFUb/u6G7GMmLrlkP+9XFk4KfT0RQIzE3aovRIbfEsWzjnV/zSd
ZsJWr3prdzrKgtXisQsPBlmw187UDAl7WWApzh8/zcCK4x47h/yykYV7HYHu
x0isuDv+q0nxQVngsLzIMeXMis1tWd6QDGUhirfPxXSKFe8fUZtmUJEFz63u
XW+Y2fHuH6Eitb9k4GjRMt+TIxxYfV1Q4YOfMvDFMe5kRggH3ih22TBuXgaE
mF3LWx5y4O96572Of5WBOrlQhlfLHDg94lgncVgG1Ds389Qlc+IVsnGY2wsZ
qDToCHwwuR6XHORY5L8rA6k7Tk9EV/DgdBfW6JU4GSgNjRgo+cyDb/gyyo3f
koGFH9ahYiK8mJa6ZFF9QwbWRYXvLDzPi/kmJwpdL8vQ/wM+kysb+fCJKy3H
qlzp+SxkWEs+8WHpohtvj26WgR13LH8TYgh4UDD+n2BNGXBOOtqo+ZCAky+l
nshSkwFZgRQJr0YCFjZ69HtEUQbGn6TL2i8TMNfAG3lnCRmYkqnmbXQl4p/r
pX2p7DIw72cmIWcggNuOlYsceUeG6c8RXCaiQvh6+7Nh/zdk2MHfZP9NWwgb
bWp9mNJNBnxPvq3KWgjXrX3Q+9BOBhGjo20t8UK4LJ75uH0dGdwXX0AjURhn
1JtW2OaRIUZk4DdNWASfl/x02NqfDMJikyJZSBTPPz/fp32RDGLv57TSXESx
pzunneh5MnTZydI6I0SxR6ma/YczZMir2Up50y+KaXsvHnE+SgbJCnfk6yeG
Tc/zOp/eS4YnsXuJjs0bsezLbR7XNpBhpE+CWzFSEmd4tU27CZGhYPGTdFSV
JJYSdTxpQiTDkPRm0JqUxKIuwae4ucmQYJEhLSMjhfmWO87EMpBhVz37oZYg
Kbwid9Q7bVwaGJKSA+P2kHB3QFRAWak0fBg0mx6akcbS51U1O4qloU7rWloz
Jxl7nu74NFooDZJfygk9MmTM58Szn5ArDRoDzwysD5OxqX6U2MlUaXBkbLYX
ek7GzcxR5dLXpIGTc6XySboMrgmL/B5pIw2pxzXHS3zlMPcVlewsK2nwNI5f
fnBHDttfaD9cdVAanno+M2p/IoeXj3M/+7xPGvK1GDXSf8hh7b2R0bv0paGf
3dM4yFseP+aOVF5SlAZN6dELWQEK+H5MhOvRZRKwrPm1Tlco4fKW0k7dRRKM
rGw78HxYCTcxDW4X/EECu1dBFmPrKXjMU4O38SsJmC4FH+N2pGAZizdl8sMk
GCMRHjNyKOM0ohTHVDMJTj4q//bYXQXfjnucd/Y2CfiDUHCpgjrObnsvaBJL
AldNklmJnjouZWELlL5Jgh2XWXjabNRxj5eNZXc4CSykK48ZhatjgtXqipY/
CdhI+xa9ptRxpKCR6aIzCa4YSDB/LdHAwbf7ZgI0SPB7WoR99sgm7HRmO6+r
KglcFGrkN1/chHVMElX2U+h5f4VWpcRvwt9XD7uLyZIgQ2/xzkDbJuzo8m6k
TIQEE3lq0eo7tPB2rd43M7+lgNuXPb9QdjOeefW6mtYhBUOUeyGMG7fitrzN
/XtapSCH3JZrtWMrzgmJX1JvloL4r4e1p45sxUe2WW35/UwKRELL5gYztuLW
9J7CpFIpOMX30k5YVRtnn+7O6EmWAvNHhXXtptuwA/erMMMTUmDNYHFgQ4kO
5tyO+mhuUnBmJNrV8Z0OLnfNo1x2kQKJK2U/O9d0MAFCOsocpWA6ZufaFhNd
3Oy5XUDRUgpGWU+V8I/oYs3ezLT1O6TA1kvbf4M4wmyZPk86eaRA4CvZPeqw
Hn78coT9y3opMDn3+B3jaT3stHLgMAeHFFgy6l6MCNbDVVaUFX1mKUjYUuQx
XqiHh/ggyPWbJLjEUvpL2PVxSX9MIuWZJDCMR08UV+lj+7PazaVHJcHfrtH9
wOZdeKuJbO/ZI5IQeV2hGMx2YQKZ8FnFRhKuRxVd3ee+Czf1TLFn75UEWmtq
+pO0XVhTO83otqYk7A7Nbeteb4DX/WZt8mGQBO921wW5CQNcEtHdsDVZAgau
CPpOlBli7vun6iu6xeFCuPFR7hITHCHns22oXRzcXx1azus2wZz3/AvZmsVh
0mJSx3nOBK/LiEiyqBYHxaCTj0Q37cVMybnnvmSJg7H31JN7j/fihegxMslH
HNj0GBLHyvfhgfNHgsNExEGwnMnB9pUpLjAy3W3tsBG6Je30vLPM8Z72gGHT
r6Jw2HHP2gXzQ3hO0+w5yWkDeL6zVc+xtcOqorPeFrYbYElj+dgGDzvsxhgr
H2K5Ad58660J9rfD71++uf7ZeAOouJvZ7Um3w40eR8wLNTbAoTu6cymf7HBi
9skBXeYN4BVkyKtyxh7riUYsWmeLwJWcV3qtAQ74IqNqbni6CDTcO0VrjHLA
pZ9f2lUlisDRWePQ7FQHrFRGrJWIFgG31N2LIjUOWMAyKeTTeREwdxZ7M7Ds
gMcjcwnn9ojAdx72HW/PHcFRjC+Uo6aFYfqbssfEEUds7Oa/d9eYMMx9PU4O
OuWImV9quC8OCgPnalrHN39H7JucmEPrFgau+biJ3cmO2Hmrh/TWSmEo0Jpc
x/LWEWuf5BUZuiYMwysBP5elnfBcd/2W+CvCkNww0PRQ0QkXbPe1MrkkDNrj
U9MH1Z0wed3HmJJTwsDcPRwftMMJ82QWc4dbCcO9ZJPaO9ZOeKTXilmTLAw7
grnblW844VTMKT2+URjenWMkOt1ywjbZNXrJQsLAEXBFK+COE+44Jx/AxikM
xtPCJv6ZTricZ2mxb0YIWO7ctbhb6YSjDJK/BtUIwduloujpT07YOO8A97Zy
IdhRuDmTPOWEmQmsyl8fCYFv5fmOgzNO2Hfw5HGbe0KQ4eu0JfWXE3a+iEeV
I4RgLGdciJGXirWLht+9PiwEF62KxZ9qUfF1WxbqfQshuN/U/Y5/GxV/YJH7
fHG/EOiK8r603kHFVw8fX5DUFwLX/Y0SlbupuI1phuCuIARdVzr0vlhRMdVq
de/agiCIR4l6P/Ci4pLfEt2dM4JQMkE9auJLxWy5eraZk4JAYur82XeJih+u
BbkZDwgCQ96uxbarVLyQwxkS0yAIZ94ImjHfpOf5JVwjFycIH3MzEozvU/H7
rG27lyIFocHPZZ9yHhWrmdm1tV4ThJjxODXOAiruyUztO3NJEChVX27ffUzF
Evtlf1bSBEG74q3RzFMqPvPTMCDSXpD+fp4ucgQqrv/HjdXpkCBsdnF4AHVU
7LaQR2Q1EQTj3GenDzdR8eM0TXUzDUHw02toWHhJz29iWUaiCAL7LuMVpi4q
tpn3RvMygqD1j/sz1h4qXjOu2JcgIgjfJhPZvr+lYuPv+PjIbwF4ytVW4zdI
xYnJ1JnSJQGQm+PxsfxIxV8Mg86HzQkAIdShWnGEimOSGkNUxgVg7Vi+/Ksx
er8G+zPOdwjAXOow78svVNwVFx5d0iwAJjH2Pvu+UXHzaIPfbJ0A1HR1fKye
oeLSYGR9okwAvu5/Y3thjoqjnqtxOaYLQFdFtrPXIhUHC3gsJSUKwL3AtwdT
lqj40tH7Y71x9DyxSQq1v+j9s5CeHQwXgAeEes7ZFSrWNyD4GHoKQHWs7wYF
RhrWjjN1DvIQgFAHAR9NJhpWHb1+AFwFwPuqUsYOZhoWDWambLcTgHfsqjx2
rDTM14NFzlsJwNW8DZWn2WiYXcaPtcSMvl+YzbUwdhqer58fVDEQgHBh0bVE
DhqeJGq0uyMBCEAj+2I4aXjI+WRljrYA9LrwXwtYT8PtzGNxJBUB8MmWvqrN
TcPZu97uERQSgCj27aFGfDScHEvcepCPfj7kjPlfdMeMmMlEcwrAgXc6dx/w
0/DloOa1db+JAEZG21cINGxTX/F4ZZwIPMczZ2MEadiUuJC+bZgIDjxtvTpC
NLzbWTPK5z0RrvuTrD7Trcmc5zbTSQRX7+plUxEaVrAYt1JpJUJOwUGlVbol
Msm73BuI4E1uicnYQMPrdyWLj1YQQViaTHktSsNMsb2cpBIirGv09HYWo+HF
YYFFhwIi1CQ/V52ie/RqZNfbDCJUUzqpExtpuKYu4FrrDSLkyXkaPJag4TM7
qbPFDkQQXeiWkJam4TH+or3nrImwQdxJJJFuh49r9zaZE4FySOofbjINmwQm
25YYEIFP2K55nG4wmyrxQkQI33871VSGhrdKbufdrE0E8+Dkc4/olql5W19K
IYJTd1niCVkaToyUk/CRpa//YKBRTze/g7fvFkkiSHpkmQnL0fDaMkGljECE
QNbF2lK6320zvV2+RID2t4kbO+Vp+ABHyozvHAEu3XOM5VOg4cbeKZNtX+jz
Up4rpnSXnA//XTFEgOsuW6420h1V+tytqokAM9eGx7IVaZglhFh/6RkBrkqx
nPhA9yVLmrhuFQFOqr5JJSrRsNvc71fVBQRYs1G7E0D3Tg0dnZp4Agxk8FTv
pdBwOcP1+IBoAsg69V3xo1uts/cbCidAzvsAtod0bzztk1XrR4Dq2r3P2ZTp
9wU1rF32IYCNV8ETDbo5eAQO650hgFTegT5buhcePuJ+5kyAfsQllkO3hx+D
2xUHAkSzLo6/oHtkr1mdvjUBLLkqdk/SbSuWupHJnABn3bg41qnQcOfktE+d
CQFk1OxZyXQbVuq8umpAgFyrMi4dup+GX6fsQgRIOfrimxndWoffhTBrE+DN
6it/Kt25CgpD9RoEEGBpST1Lt9Siz/ZgCgHUxbVGrtJ9p6khzkCWAJ/3K5Di
6Q52dd7TIEIAhQSW9iq6f20uzgwhEEAlc+3tS7rPsjKu7eYiAEU8SmiU7iNZ
qcWNv/khjXmvBZcqDfec+8J1bYkflAZeDkjSvXeX7jGjOX5Q3xFQrkl3HeHG
M/Yv/LCnIP8fA7q1h9+JNY/xg9HXi4et6C58pOATNsQP670rko/SLXflfKdx
Hz+MF47KetKdfKBRiaOHH7o+8+X7002UEgx50c4Pz3r7x0PpVo0P2D3fxA8J
VwpVI+k25vzMKlnHDxPXtszepJt22bxxTzU/9NkXLdyi22++MtTrCT/4v+yd
++NHA5HsLbn8kGV07esfjzU7hUmm8cNYfNHEH5ulsF1vucYPC91uH/+4/OzD
G95n+OHRxHjfH18XXYxq1ecHvoVHXX9sX78rhkTkh1saBS//mFGw/257KR9Y
GD7t/ONsV8+0CzZ88P5wTfMf9y3FeK3u5IXcNM/nf+wmp5/L/pobCFx3nv4x
66ZomS9GXHAitL3sjzPwh9SuSk6o0DpZ+sdqpT1p5sYcUCzO8ne+WqktvfM1
OxzH/VV/bBPoPKZkwAZX43/BH8+//kUJKWYB28Smvw6M01n01WEGPb++v+ay
8Hvu8ZwRYtWIz/449if3w0pLBuCVW//XWtpYnr9ltXYwhfmvnfQzLjs//FVb
1Lfytz7ChLW3NOpnbXnp4l/fla3aoZM9X8vl9K+zGM5mwtPZ2j7bf9enbG2X
WVL5UnvAg/Xvft9PljOdHRqrrZ3j/Wt13fH95kVDtW8zCH89IKCs6czwujYv
8V8/mX2wPDhRVyuR/a91N/CXbChJx7H5/1pCavwnfp2JY/4zg/xTHdeFbHzr
PzdoHa8v1s7H0f9Z/r7TxL2BEnzjP/dS7f3SHgEO/s80/5Ib2lvasf9/3m6r
aVUq2Y+D/r+eMTs4B0/gxP9c2CVYZ277HSf950iZw4W0W4v/c17XwhXuI2v/
871xcVn7dga9//cPF73wRyeY/uf/A/++2Ek=
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw91Hk8VN//B3C0WKKyU3Zm7r0zk6XSJl0iIaVQqEhEshTZiiyVrbKntIjK
0mqJUCre2SdSRIlCKm1UVJLC75z5/L7+msfz8TjzPu/XOe97VJ33WbkK8PHx
JfHz8eHfRNHvoXpK2nBq1T0Ha5VrtEpNtT5XQRsS6KK4z/Q1ujAkbXzLfG3I
Ox5SfnnHNbr186rQ/XLasN11/abAzGu0NDf+0DUJbXimwZW7qXKdPh/FDpEV
1AZRD7snjtQN2nL88ff+Hi0wG+qV17PJoyPe3Hu/5agWRA+uVOsRukU7Jw3M
XxyhBbVzRwNzlW7RRrSilXioFlgtXGt3ZPEteuaFsIrGQC3IrckqDnK6Rcfb
GaYZeGhB0fViJ7u7t+hzT+pMWZu04E6YqNLg3iK65EHLjXElLTCMnh2t+amY
/nz2g292uSa8OZ/WrSlbRjfNdH+4anIBmHnm3E7Pf0Df6E9Sil67AHpXSKwo
1K+iP3MTht2NF4AOt/W1rkUVzcqLq1tnuAAUFaNOlG6toq/7xe4V11sAya5h
RleDquirfBEV6ZoLIEbzlLDprSo6e94+x2LpBWDddKF0o3o1nbFhfUbvWw7E
Mge97fhr6G6ddfurezlg/EL71qfZNbSitJlJ7msO+D298sJHoYZO7zL+6vmC
A2ZNIuJOS2vo8+4rV/1+xAEVbZ30+1419Jkj7G6xIg4URHDG1rTX0Cmlwkp6
ERyYPLf3fUx6LZ09IMWwDuWAzPXSo2VXaukSNRWOZzAHvFPjpTqLaumOhCUr
zvtzwObmqZjfDbW00m6XLX/dOWCvJbQ86WctfV32QcK9TRx4uG2rrYpZHV11
wGdST50D+toGClof6ui2/JCZNiocyFHulIr/Xke/fxct5qXIgRkJ4rJdf+po
oU0X5qfLcqBQ8OmAiWg9vYF6tPTfLA4Iutuqb9eupztfqvvc/8kGnwdLTvsH
1NNDK170rqxjw/qZPytX/ainqwo9M2Sq2aC02Tqa+FtPpzL5tn+vZMNDDzPL
fwIN9DIJ6kXWXTYEMwP5PSQa6LBPwY9F8tgQah25xla7gRY5o1TecZIN++K7
HaPcG+hXYsVBRUlsuPSYr3LhvgY67+ha3bh4Nri5bNvfFNBAb9znU0jHsEHZ
r+hLzZEGOs2kKjc3mA3zbG4faTzfQGv8cj3pv5MNKXkZS4wfNdAjHmMbNziy
gUpxYlc+aaDrexNmk9vY8MOlOIpob6A9msqOddmgenGQBj0N9K0s4YjVpmxo
/1gvIfOzgT4in6GvsIYNXQxfgYnRBtomceHfX4ZsoF0tBNrGG+jR4G2B1/TY
IDOa2WAuyKVXWeV5zdVig/0ad2N3eS49t8GQ9ZnNhhxzS9FaRS79Rv/5h2qS
DQpuu3rmqnHpSGrSOUgN1fsl+yWAxaUf8W2y75ZmwyNvefkDK7i0bcHPNTf/
saDXc51ViC2X/llXWZb6hwUGOocM67dy6ZTu41ToCAtKNS/WTnfk0s1iqmIb
vrPAj/AcsNnFpY291rd9e8uC44nMzxY+XLrvqJxJRy8Ldj2rziH9uHT4+bdl
8JoFw5LTJkcCuHT5o4Pnk1+w4KZbj6lXCJfWpnKdFzWyoKaryroiCtU38G2b
38ACjWr+0kWxXNrTbqXJ9FrUT2tQW/pxLp0b00q1V7Agf+Phu+aJXFqhf+J7
YBELLkeNvJY7w6WFs2zDy8+y4OpR/aScK2h9udrQ5dMsSO1oO7DnGuq3ddD5
xEkWCAceuKR+g0tH8EeabI9nQZ3l1cngfC49sqNQbCKCBW9ThP3v3ObSqUEh
4f2hLFhkrt+uXcqldRJNhpqDWbD6XYjRxTIu7VXxqi3TnwUrXtk831WO8isI
pxu6s6CcUPh2rBLVX9wmxnJF/YqeyKgELq1okRku4YzWLxDKH3zIpe1CdF3e
bmPB5piA1YtqUP6XO1lRlix4yBAccWtA9Yc46d4WLPjs8tHSmYvyCY+KbTFj
gabZ4b4tj1CeZQlDTCMWnJB6sZrTxKXvnS6/07CEBRUPyyH+CZdm8Z906F/E
gqFrhrrmT7n0OU9Pgek66HyWalbxt3DpAwYKFjSbBYHv5wY7t3LpJZ9De0qU
WSB4fsefgTZ0fjZbIp8psEDPMwQi27m0dKUmNSTPglOv07zlnqN5OdmznyPF
goAXMjKLX3DpIn3DmVlCLFjGGFVZ9ZJLq12VvwEzWJCU6RZZhpwsMWzZLcCC
/kwLpwWdXNrnw+Wz8uMU9LOaa2d3ceneTSGrlo5R8Mvmo18wsuV967c2vym4
8/fo2z5kzeTpC5KGKIgfc9hz/RWXzvj7qiXvKwUCha55wq+5tJhbSWDjFwrK
x2bNcEMeWOEGM/spsKp9R8l0c+lr7+qtQzspmLP9qviWHi4tZ3lx9NwLCv4t
sy3JRI69e+DCnTYKNnqf/t2P7JZAffjRTMGWAvX8vb1c+vkof5x4EwVC7bM3
FiCvcenU1uJSEKaf93wQWWPZiWCPagr4Ym/773qD5ueyi3IsUDBuMp6fjjxN
bGVNzgMKNt/w/NmK3PdmQOxNGQXq+YXfl/dx6YsnNlyyvUlBVov13J/Ic0eY
JgHXKDjaFTmp9BZ9T06Tn1NyKTi9I/6WKbKjbuHi5ouoH7nFO88gN2fGvvxy
gQIXIR/ZCmR9kZ1hwufRfma+7n3ICj3iDcanKGjLHBck3nHpOLPPXs4pFGT/
9Nu7FvlvcZV4RCIFnT/iMt2QO2P9tt07RsFf/Zi0S8hpC9u/6oRR4HfLcPes
91y67tUSc/EQdH/NRW4M5JHoMznfgyhQGKxZtgp5S9e27QW+FCiOfQn1Qo6O
elCWsJcC34OdM48gl2gpS+71pEDURyPhNLJUZB+X40rBo/gD3PvIxprGDFFn
1L8KN60Z2a8jJ+KLI6onJHK2B7mVs2fpdTt0PyKWqZPIAi8epRzbTIHlo20Z
s/vR93qY89XdigKpN1f5FZGT2r9lExYU/AmJqluKDOGb+ATNKLj6Q1fVGPkb
Vbytfw0FZVbu9ZbISm1SZbWrKXBMiCvZirwhLFAih6ZggfmMj7uQw8gO78iV
FAhuN3Dai5zXupzrshz9f/0S5yBkUWI8XG0RBRtePqBjkVe2OHbxa6N8721l
k5DRZ7XkDYcCkfGDMWnI5xhqKUCheTgmnZCB/OjJ0cFMJgU9tBSVgzx28L1p
uDoFyUJ2W24gUxprsx1VKEh9Uy55Czn2gMg2xXkUvF90wf8e8h01r9J/Mmge
bwVZAfKHpsfiryQpOCTE/leDbKKa3HBOjIKlJ3vzHyMHNg6rB4tQ0PKzvKQF
OSfAJtxekALb/UqR7cjTH8kukeOn4Kn8dL9XyIv9Dyb/HifBT9YrswfZRalr
4PkYCafJyht9yFX7M7JO/STh3tHYnR+RhxX4Jv2HSFgZe034C7Ja/c6tNl9J
yJCalTiIfHg+Q1zyIwlh9lzNYeTC2miv4XckbHboWvsTuXffx/qWNyS076kx
HkE2qLkRltRFwu8zoX/+IPvsFevc10HC1wynwr/ImXL7dC3bSWCa/9swjjzh
tXBA7AkJynw+hnwf0Hsim7p2sJEE/kqLVH5kh4e/Ljc1kCDZ8vKJAHKcp+3E
jVoSTHse/52GfF/6rv2JKhLmSdrIzUAeqJxX4lFJQupbRcZM5Pkeh+aa3ych
5VKXqiBycAVdL1RKwkbrr5+EkA/dy9+sWExCvWDBFWHk0DuK73QKSdhRW2Yr
ghxR9Jdv23USjsaoZsxCPlLgkbjvCgnZnDuLRZGP3nypGJmNzte8sAo7Ords
RV4GCSWJajViyLFZTO7D8yTIapgvnY187OIp2+dnSFB1yriEHXfOz38yhQRF
Rr3rHOT4tD4BqSQS7gxKA3ZC6qZkMh65SFp6LnJyglb+phgSrOxr8rFTTmSs
dIsk4bu/wQ/s1FixxuDDJBR/CF8kjnz6yJcPWSEkFE3+K8VOD7yiOrKPBNLA
niuBfNVR+dQ5OxJ2k4M/pJCvb0tQL9hMgmtGj6408g278VvVVuj+szYFYudb
dTUPWJBwLKx0CLvA0tyB35yEHGsGRwa50OLuF+m1JHy5MGsXdrFJmhBtSEK5
rnIj9m2jmWnWq0h4vKbsD3apQQDDXY+E57rpGrLIZfrvig8tI0EjPXQd9p0V
1quTdUkwyhHai12+tOppzkISXs/4eAL73mKdHeVaJNgNVGdj39e5ONjMIUFr
2PAOdoXmnENvKRJ+is6owwZ2mMgokwSJ8LzH2A/JwTOiGmh9Q0czdhVjO6Gq
iubjlCoXu0atsURXiYRLhcr3seuUVxibzydh4PvuK9j1CtdaHeVQPjLuOHaD
vNxOP2kSlKTnu2I/kon5FiNBwgKLi0uwmyRHQtPnkNCyuXEC538811X0liia
jwVp9djNYm3naoVJOBIvlob9VMSI6pyJ8q777IXdIlhU9nUaCVGG/abYrdNV
Tabxo3zLyljYbfxJbbITBHS8nCOB3T4x4cz5S0BtauYEvq/LF7JzLEcJULDa
+B3bZ6X5x/2/CCA8dvZj63d9Y50eJiDkSGgvtkjwKe+73whgj63rxu6Q0yt8
NUDAtnafHuycst7hyU8E7L0a9xZ7/5ZoXfUPBLQeWfkZ2+AX+4DJOwJWvpT/
gT07taV8zxsCzuwrH8fuWhg0HtdNwP7VhcK430CfqiPPOgjgU3mqjm00x712
pJ2AWd4iOthz88WE5j1DeczL9bG7LYrN9Z8ScMzbwQz7xhe7eKfHBDzV9rbG
NqGyJa7UE1Cad8kJu9ftW9rgQwK+PKznOX/Gqc65lSjPZb+t2CHZKxQX3yeg
iJhmiW1q1LvD9i4BXabNvP1k+qIuB5cSEFtDMLHfRbDfXygmoFjAQRD7lnIL
8bCQgCVu99/gfGEVgR7v8ggQqKh7gG3hoJAneIOAxCveF7Dl/z38xrpKQHfp
iQjs/nO7F27IIeD8hz9u2LeXiwX4XibgZ0riRuzDHUVlqZkEqLqq6WNvCLIb
K0tHea2iOdgKMhMru84SYJQQr4T96XZW+MRpAgwPCUlil1qbVammEtB4tVYY
O3L46/Q1yQTE3UsWwN6UnLrWPYEAWa+l4/g9UNJecfzECQJ6A8L/YA809zTl
xxLw74T2b2w188AXeqEE9Put49m2VrSvwZcAR79XvPXDAna753gR8PzM9hHs
OIOsgc1uKP+hTQPYW3tMtQ66oPPeP/kWmwj76pvuRIDH8+yX2FX3lv/u24rq
n+ivwU7a2rN8ph0BypyCcmyHP5GHqM0EFDamFGKPLnnK72NJwKpDN9OxFxS5
iY4bETDEXRSIXZ50akafAQG3W6S8sE331UzU6ROgISXvjO3CURtKWkrAS+X4
Ddhnc1+3a7AJuKqsTWEzo0SfCJMEUI1LVbBvu+g1fNUg4JmNmyz2E5Wz5XeU
CLB9tHwm9ozzNpkWEgQcPlb3XhK/1wePntGZg+YxQLwbW8WuKFlGlICeu9HP
sfWk50b2ziCg/cdQPbZvYqO7/x8mrDv+/Cb2hPfYTvsRJkSdDc/FjrOgtq36
wQQD7S0Xsa8Ix6wXGmRCtHd8Kvbro6sXpvcyIV5EMxzbw9mXffg1E8qN1wdj
jxpc1HDrZIJEdXoAtuTEuIx2GxOEKh57YV98xZkr3cKEe00F7tia97YJjz1m
wgmj6l3YZgfu/q2uZ4Ked7gD9i5d2a/xD5lgrzbdFjt82L/X9h7aT9J6E/a5
gtZW1RLUX5m3BXaJl3btl3wm3DfebIqtuvNKguRpJsQtnGaAHb9ZyU4vlAlS
u08aY1vcOV24L4gJiw8GrcUWmT9HONuXCX2fhdZhc0NjdnZ4MiHPZY0ldmzv
5F1RNya4qbNssNcaHZAwdGKC4b9ie+yZud89ArYyocCiZwd2jdCe6ms2TJj+
54ob9lHPN/O7NzChZJfwXuy+dEXT0XVMONA05Iu9utneX8KMCfs9J3jnx6fT
2mRixIQm+8Nh2GEjVaEFS5ngwZRNxu4mJq9xFzPh0G2R09j69nrP3+owwTtu
/nnsf/eKNeU4TLjdkZSDffBwdk+EChP0I6/dw+4o6p11XpEJKyx3P8Re9k5h
Wck8JqzNWcablxGTU0mfpND5KMx9hu0vGm1oJcwEhcVuX7D3pe3OUh9mQIq0
giKez+aGrCf63xiQ+tpIHVtzrOev7QADRgqcePM+sN3OJq6fAR+d9ulie6iZ
zfjVyYCsV6cssB9ZR+nM6WBAp/t8K2wq6qED1c6AiBvhttgfPywvdXjCgMQD
L3Zir5UP7AtqYsB+2xo37FzzotkpXAacST3iie2ax9pdV82AvNJd/tiRSt/N
LgMDdO8/P4CdnVjCCXvAANXRyUPYNXwhc7aWMyB8bVcE9ltfg2HdMgY8c3SJ
5L1PNo1lg4UMmOx3OY69c8mW0JzrDGh69ywBu2fMU0g6gwF8R/RTeO9J5eGT
kckMkN0QlIhtb5p3zeUAA8I0fHn/39zSUbl6BwPSm3VjsNe/1RrgW8CAiYDK
KOw1v6LlKsc0wPT3rmO898FKeFT8jAaE+inx6qkVnnixS1cDtLX4efs37b4j
5/hSHX6YEfHYQcrv7W1D1cFA4EIcNuPJcq8YeXVIsz7G87OwhLCyEjXoFZ/P
W18RGz8cb6cG5rEMXr2rKXFuu/6qgq/gAt5+p1OLb/ieVgVvM0ueI093fg/T
UYUZhht5/t7Sft+5WQV8A6x5dhBriTXxVIHcHBueZ2YFlj6drQJ3rv7n7b7L
Gkp2KUO502aeb8c9q12argTvxrfxLHZ1b/XdZ4qwe48Tz91BjpGxcorQ6Pyf
89duWGProABiW114PnS8X/JZznyIcXXj2exxWN+Gr/NAJXEPzz8WWtaoOsmD
tLYPzwbz4kZtc+UgTdCP5wR+LidhQBYMowJ4ftuxedpCdVmY1/jf/S0r7HvZ
bi8DzLiDPB8fk61gpkqDSkUwz6+M118OapaCVYEhPOcavTCTlpGC6Jb/7LN6
51CRgyQ08x3iebWOnl7FKQkQl//PkirSUdzH4nBR9T9vrzZKUZUUh4r/d67b
/syDdnOn3PknxX989ZwpuzMNrwu2i035Mv06o7VcZMr3WU0Xn7YLTvln+xg7
qmj6lEWtD9V41fBPefEymhB/NF75P8eZz+goSfg95Ww+3yx4MDTlYe87Ar69
/VPuluIsdOFrn/JKefHb8rcv0v/ziq0LN5cod02Z4M+NvEJ/mnJBq3TVpq3D
U47XsC9wTh6d8o3WkcNijhNTzvmgyNj+mM/gf/7lanDslqfAlP8P0HpxVA==

     "]]}, 
   {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw913k8lN/3AHBSRBQz9n03i72UpB5SQpYICamIJIUSIkuRpFCizVaSQiUi
oTiWMNaSrSiSaLFVsobfmfr+Pv/MvN6vuXPuc+499z73yjh7WbkuYWFhUcIP
5ncc93jwBkl1+PBhqMJWOouQrq7ayBBXhx1TRpMjRBbxOOjavK2YOqSFn6Vm
7s0iWr9tCj4mrA6bbu1uOJmWRQgwYk5lkdThTLFJVq50NpF0lh4kxKEOuhrX
Yp2pOYTFfNP4YK8aXN98YBNh/ZAI+1j62TZcDVy/JOR8XJ5HOF8aFlsTpgYM
t1dLsyTzCANCwoovWA00ne5/i1iTR7CnhJQ1+KmB4w51i8B9eUSMnf41PQ81
+Jq1uNKhOI+42VJjRLNUg2NV53+NHc0nCl+8zpmXVIP+9g15Gl+fEN9uDPlk
lKgCd9J8h6ZQEdHI7l6xaVEFWnIqGtMfvSByBi9JRm5TgdyPRz8XbKwkvjFi
f7pvUQEPs6HLOqaVBO3hxZrt+iqwdXS/Ual9JZF9POoo3wYVCL0qQXroX0nc
ZwkrS1ZVgaUh4X9M8yqJDFEvpycCKjATdvS3jVwVkWpultr3SRnuSHhZObFW
Ex80th+r6lMG5+sFt8ZWVhMSAsaGme+VYesL/VY/8WoiuXvL6OFOZeipWCnr
tq6aSHLX3TRVrwzSX9i6Kz2rietn6B948pWhheXeddP2aiL+KafkhjBl2Lva
xTou+SWRMcyvsDNYGbbVxi+W3XtJFMpKKx8OVIZW1oMpH/NfEl2xa3WSfJXB
/nYObbHuJSF50MV2zl0ZxAPS+a5PvCSyhV7Elloqw4G2bWkU4xqiMsB7cYOc
MqzJHLHWHqoh2h4FsVtLK8OVGI89V8driM8DkTyeEsrgLpHmNTBTQyy3TBFL
FlIG6kim6w7uWsKcWr/uzwplWOHO+sFVvZZ491bO+/kEHXTeZL0NOVFL/NDp
7NOtoUNefSLN5FctUfn4cKpgFR1O3uNiXz1XSyQosjiOl9Ph2IDOAAdbHaFN
onbeKaZDfbxJxQlSHRHyNbCJ6yEd1or3Orqo1xFc1yVLuq7QoY4WoBzvXkf0
8Dzxz79EBys3cgbhVUc8DN+mdTGGDlMiq7zenqgjdnh5PybO0WFfqYxw65k6
4pphZWZmIB2aUiN53ybVEfK/Xa/47qfDra+icVb1dcSkx+wOcyc6HBKeSGlq
qSNq+2JXUhzw+WjRpLXtdYRHY9H5bms67C1J393SW0fk3eEM22xEB7aH3XoK
E3XEGZHUjeJb6aDKw2bKM1NHWMdpzv3Wp4PrseiDn+briOlAB7+sDXRI2Ffh
as/BIDZZPfTkVaOD6IfwnQEiDIK3Tp/2jU6Hu/v2abdLMIiPGzuGqih0yBFL
osjIMogI6qKzvywdJo7SvSJpDKKexXL3BwE6jDmtETivwyB25U5sffCHBlGW
w9tidjGIiZryooQZGqgTt2zf2jOI+A/R1OBJGiSvDpwVdGIQzTwyPObjNDB5
ZLL/4AEGscXTrG3sEw3KLoZ+3OvNIPrDhQ27+migHbepbMNxBhGa9KkI3tPg
UV6bNpcfgyipP5l0uZMGYXsXX4YGMQh1aqbz6gYaeBhw2beexfh6Pm1idTTo
cxXv3RbFIA7b6RoufUkD/y0p0nnRDCLzXCu1vYwGQy4HTPfGMQjxwYVxv3x8
/tZ5FtXrDILzzq7Qkhs0SHI++aH0HrYvkf2RfpUGe9+Ej4Rm4fO2jjhfuEID
S6dOXZ0cBhHGGmHoGEODkp+SXy8/YhCTex/zLITRoI56409LAYNI8A8KHQym
gfE59UijpwxCI87wR3MgDaQCSBLPihiEZ1lPW5ovDW7f/ckaXIL5i3Mm67vT
IKK4rSK9HOOvaeOhudKAc3luUhcwCAnTtFCSMw2U179rZ69kEHZBWi6fHGjQ
pn0ETKsx/7f7aWctaLBvXZDc6TqM/0M5+YgpDV4Jfck6xcD8OKd5bI1p4OBt
dcinHvPRjv2haECD05qS8tsaGUTp1ZJndWtpcM18q31WC4OgsV7ZM7iaBu1P
PWZdXzGIm4cPL1mqQYNZe60nEq8ZRICeuClBx/4cE6pCWhnE2m/BvYVSNHgs
OzjJ2Y7jZ20b8UacBqM/Mr/fRguUq1J/iGA91GfXaHVgvVzpPabMT4Mvqysa
LDsZRP5GffY7y2lQb7oQ7/iWQcjeF8mBZTSo3aqm2IG+TPpp8WEJDUbkJTRN
3zEI76H0GyLzVAgQCJtW6WYQfZZBm9bNUkH4gm/nDbTF852frKeoYHRQI2BJ
D4NQvbxU5dIPKgyIye+vR6fO9bx+OEoFSVH5Tup7BsHjVujX8J0KptQV+yPR
wzpuwD6I8aP1vq/9wCCyBmp3Br+jgnr3mtv+vQxC2OLW9M1OKlA16Ccr0FHF
ASnP2qhwJnl+bHkfg3CLpQ79aqbCdo2rvJfRHdOsF/kaqeBuPDv0Gr3V5Z26
GoMKtXx7M3g/Mgh57QuBHlVU4FJ4/+gcOiHdRSoKqJBC7ZQCNBuPbvXdF1Qo
nN+aPInu/zjM87GICj0SQRxO/Qzi1gXz27seUKG5qXa5yCdc35OKhieycDxe
qmlsQYfuW/wWn0mFppEK8aNoJ63Ha5pvUWHjjxN6ZejmtKi331OoIBK6VmMA
vZFrfwhnEhWuTPO+WD6A66WXr25LIhUKjlu8MUNfNP7m6RxPBZ97aSeOouee
VPKFxWE89q/9Meh3UccdSs9TgRJibM1AX9NsH9UIoULs3V+iaz4ziJqetSZ8
QVS4H2DqZI6ejLx+d9yfCofzH/seRNt2Ozjm+mC+z18YXEVHnn1RFHuUCgc8
9EkP0IVqUuSjh6lwOjamF9D8Ef0MZVcq3Livdn8IvUV1iwK3MxUcnZpezKCP
d90N++5EBT2+BvYVgwyiVfnQumw7KuhadsfT0Us66+PP21Ah5+PUZx20xmnl
UXcrKrTSa+ON0ZfaxzKUTLGeZJcMH0BDqCULhzEVvtMuXfZBj1GfOAxupcI+
C4HwYLR5iB/pLkGFW6YlG66gQyhdRyJ0qfB71QOWFPTD1vUMl/VUmKl8ZZGJ
5laaD5VdTYX8L9KMIrTua6duVnUqmBjZjpWjDwfB2o/KVGAUxD6qRd9UkI0H
KhXM7Z4vbUHXt4SPpClSoSOLMdaOnj352ShUjgq8O28c6UFT5bdlOElT4YsA
+6l+dFQAl4OEKBXOup4MG0E/k/V8+keQCmWneh7/RA81NvH1kLE+o288nEIb
ylyuu8mD9bXwhYN1iEH4NfyUC+SiQi7VxmUZ+u4J69DdHJhfcXMkJ3ppvdBa
YVYqkFO9ZfjQa3xPXp6ap0DKgbAMfrSLZPdwxywFZGuWLBdGVx5LvZM4QQG1
e9VHJNE/xVkWfX9Q4PmFx0dl0LK1++2tRylQ3nbQTB59WkyBj/yFAlMXTtym
oh+/jPT8OUCBwNkzAsroPq8vta8/UmB10e8jqmi96pyQS90UUI717tZEex/l
eefVRQHb7TFja9Bpwl5aFu0U+Owz8X0tesFTc5inhQJKM0VJOmhVoYRtIw0U
COgSNddF76n4nd5YR4E+l6qvG9HPBYp3X6ikAMdW7Qk99HC5aKFHOQUGeD85
b0aLeZziNXlOgYwm0UoDdGAZUbv8KQXm9cd3GKJPlT6ykXhCgZlaU89t6OBn
EgMajymw7tvJQCN0WP4ci0M2BaqMGCEm6DO5HnFe9ygg8FT2xHZ0+IO3EhEZ
FCizOORiio7MLNJ5mEoBizZJJXN01B1FRkUSBZbU6P5h+vytxF0d1ymwwlCQ
YYG+ePO472I8BQbPzuy0RF+OVXtkeY4C6qc2a1ij4y+k6rpFUIBFxqCH6YQo
nobA0xQouZ0cboO+eub70J0gCnTU8XXaopP97slMelGgiS3y0m70fSepxJt2
FHgw8lBxLzrbIVYu14YC9eWfu5jOsZvPq7KiwJMWveh96EdW3c3DphRwjHD7
uh/9xPDackIf87FUjD+ALjBgv7ZzEwWcT21Y64p+qndCwX0DBfgZRp1MP9PZ
ufmyFv5+c8Wqg+gy1VWnPlEpkD02uP0QGughXNOKFFi2/Ewz0xWUkevc8hT4
Lr9zuwezHhUclWRkKHh/+V3BdLVsQ6GWJAUqzdk0D6NrpHS2mIhR4MtyviSm
a8WzWp2EKXCHJf8P0/WC58bOkSjwLfXrPU90I3kyOHkVBeKDXowz3cTryp3H
TYGQpBGdI0PM81HbzZecFLjGiLjI9CsuA+o7dgqwDhOfmX7NkV80ykaB2dGu
LUfRrUtlDNlYMb889hym2xcWnJXnlCBea/i8Fzo9JeOuxbQSSCdcW2TaW9fk
y7HfSjBXuTfQG80VmHikeEwJpvl+Bvsw18dveoDhgBI8sic/Oc6cj+92Mfua
lGD/rlUnA9AB0Qst4fVKoOxuwHcSbUjNIN2rVYJJg2v3mO5zG7s2UqEET3+b
NgaiBfvPpgc+VYLcB3cHTqEHwuifU54oQdy6h47B6Dyp10oVj5VAUPJpM9Om
e8QfcuQowWjzluchzPXdlV+UkKYEvL2LjDC0ub/dbFGyEvjF8O06jRYXXNDt
vqEEh0/eG2L66U7jSpkEJSityCCFM9dfc2/joyglsA13jD6L3vWSu7/ORwm0
LzQ2RaNV8t245w2U4MS5KxGJ6JJLicv69ZQg6WCy4VW0kVf1Qs1GJQgUWOC8
xtyvlGV/XFqnBK7k9oTr6BuZ79vl6UqwHkilSehlSdZppiQc/zcftqej34dv
1kzuUwSV0fq4x2gPZx/66feK4LIx8XQeelrvlrzbO0UQa2I/kY8mL8wLqrcp
AmPJt30FaOOA4rmqWkXQcp4xfYYu9FR/+f2RIphujwgAdIyNpN2GYEXYfvSe
Wisz30j7CJtARdwfTLa9YY7ns6uPvfwV4fe6zH1tzPkWW8WZ4aMIC5mXr3cw
94O+xWJuN0WoTPGW6GbuH4c/in0wR48JBA+gT57O6A2TVgRFy/O3p9Fd+X0r
kiQUgSNFemIGrT0grl0oqggKug+N5tCThomXvvIrwoObD6bm0b7ckfpWnIrA
SzlyhO0Lg/C6dvCO3E8FmB2QLV6Jdn1IO1hTpQCDjgldiugIyXHjdFCA1Isr
YynojLhC5ZAXCjCwdWorDf3JR++nVpEC+PWTX6ig96+1Db6brQDJYd51a9B7
yk9fibisAGb1btYGaJvXXeWb9yqAuGvTaWe07+bUdElHBQg+MBxzAJ3wxOXs
rJ0CeEfIpbih3ySOmuRbKUBp2li1B9rSfmmHjKECpMN1neNos09qwywq6GTl
qgj01t+RwuWz8sDGUeObjVZfHp6bNSUPPcXvPz1Ai4uFGiZMyINmXKFtLvqn
nr/voVF5iHxbua0AfeviwVfkfnlYk6BgV4b+I2cU5c6QBwHKN+036AIrzmm+
6/JwjEuCwvIV27sui/uTIA9jk86ibOgLAayKQ5fR5GpedrRz6szO5xfkwZE6
wsmN5v32NdctFK3voyqMPny6/mCpmzxk96/YqoGWfXyh84CWPFSJ7H/lhu4V
SLwdoSkPruZW/B7o5KDUwxlq8vD7yQnHI2ihbXmLn6jyMH/i4MxxNPeHDiUX
SXk4I3DO7TR6aoVswH4OeUjT2UFKQTcefCbs9FYOLne7d3Sio5sq+oM75OCU
Ck9ON3rb6oYHKW/kwCogMaIXXbnwXu99kxz0BHoYDqGLEtkOOVbKgfDcm2VT
6PQq82L7HDl4PqN1Uugbg/CX+rx7V7AcREhJ73dET1T7v9MOlIO7FWF6+9HH
PLgcRP3lYDD7jqIb2rNQzfG9txzQS3dxeKOdtwc6uRyQA+XMy2IR35j7yyoX
r+1ykKnlfP0hWqFlvec5ETk4NpWtwf4d+/dtHHYXlAOuLIuFFWhp0b1HTMhy
IOOn8IYPLeoacZSHRw6Of7iZKIHmnWv2vsIiB+rbVodqof8oHjiRNiQLkVLv
f7ih34TEhhQVykKXgu3LV2hZf1XN5nxZWJJrTHSij3k1fx7IlYWiXSqV75nx
9q00I2XLQsQvjk/f0Ob6sWJHUmVBOPV7/LJhBlHHFvtM9pwsrG40KNVFl0XF
/Iyxk4XP1ntL89E8p1UyM2xkQf71w4AStOPJpt2lVrIwqh+tX4meO8RT8cVU
Fnbu2TX5Gq29PSbOQF8WRlI2j/1AP+GJUZ6hysL21Z3r1ozg+zz+otuBORnI
G9zLVYV+Vl/4SndaBo7eM9RrQtcu6dUR+C0DJXcbozrRg8c0VtWMyuB98qbV
MFp+Z0eRUr8MRC4WtwiO4vmLLM35vU4GvhCmul7oqwlPcnyuykCuO983yhje
Jxt7BEyuyMCBVr+va9CFS9nDZC/JgP9G29966DZfO+s352XAcCXb6t1oks38
nzXBMngeajCORscIbDOfdpGBonc72MfQEVffjYdoyMCppjcc1eMMYp+3zio3
VWyvNZD1Gr3B5KaKGV0GPNVVnXrRP+d3e4gpyMC+a8kLs+i9rm8/FQnLANvV
60qrfzAInTVdHeOL0iCxm3LwHnr8dftz52ZpWG4keCn9J66HHK1u4wZpSBmn
6DxB3zubOKNeJw3XG8aWVqOd1tusXayQBoU0s8XP6IZbbblJhdKweoA1if4L
8/d6k96WLA0Nd7QmS9F7eF5HGR6WBsWWP0mjE7i/62x65+wuDXrjHATrb5wP
txx6qKs0nIh8NUVGk+Bsc9FeaeB99SZ7PbrumA4/1VoaNL+rCkeiNbvupK3Y
KA2iVmRxuUkGwX7H7+mrldKQ2VgmcXQK57/lE8fICmlId1C9HI7e92fHbk5O
aWj+1Cx2A11qQ/+jzyYNlbsq/KrRfbwQ7jYmBYbtalvEp3E/646/Sa+QAnXz
TZtfoR19tOsKD0iBoBL0Gs8yiHUmCl0+TugUjh0H0CQ50hcVOylw0unqDkHX
tn3nyNwuhethcmsBWlM7bdtVTSn40y7rIj3HIJYvLqv1Y5GCobdmT+fRBRff
vFyXLAlu5LaAxnms//tHq4rfSMB4XnVyHWs9cVHRb31fkwRIg8OGL2iuu8G5
7HUS4GyV/JNjST2xPP1i0s7nEjDZwpe9Db0kOfv4SIYE9GkLadWhJ+MG5WT8
JCCJf/ZEE1s98cHfKSJKWALCXV98/bysnni0zXzrrj3iYMY7cHIPVz1h3BTS
bz4qCn0ybuFF5Hril6ZFtcw+Eaj7/Oo9Q6KeUBX9cWKnvQj83qhXOYx2Z72i
dNZaBO8Po9dXSdYTPS0d0V+MRCBTWUnWBl3j6WSZqyECagd2NfSib2Ye+aDL
JgId6pe+TkjVE3qiF6d3ZQrDUPaEAkm2nghkVc0+f0sYWGbXiWuiC7+0OJTe
FIZrVaE9lmhaEblcMk4YEgZdKi6h+a2Tzn72Fwb+ASkzbrl6Yigmm3TcWBiW
Ooxu/IOOZWUoxw4LgUyvmXOrQj1h5B683WBQCGqPPE/8gWZr0fCY7hUCi1GS
F69iPRGQfPOe8xshcGcxFjNDu6zzlF1XIgR50+euVaK1j6wS7jsnBIpPrENv
KeH4vKlam3haCBYMrm4uRT/SCbAxCRIC6WhadztabvnH+IKjQlAW1ZzCRakn
Vt7J5zlvIwQTnr6jx9CfumzYNOWEQJn1wWZ9aj2RSnDJDokLgfXHqlX2aLvM
Mr1kQSHI/2EcdQzdfFwphJ1LCFQP34pIRz9bOTP9blwQuHJqxhfQsVuSR8PL
BMEqtEj/AQ3zzdnBs/6ZIMykLZOsQLORlimP5glCb2H+u3Z0QO+RQ3Z3BUHc
12r5ItolkBhQvigIHTVtV3bQMd/H/W/bdwtCsM14+BA62n7p/vs7BaFssK9j
Gv1+qeKXQDNBsOstHOVUrifO7D40KaWPbp3wp6Mbl4yTPCiCwCsZvMUTvd9m
fvvCpABkpJlrDaELFiXfvBoXgNyaFcW/0ezZevZ3vglAWNTuOTaVeuLBQri7
0QcBOH/IoUoKPXmP62z8SwFY0/402RodPStUppggAA1GH/MK0T0Z67fOxAhA
icMDvQq0moVDY8M5AZiXXv+sEd12J/Wdd5AALLnS8aMfLWmmMFXiLAB7bW/u
4FatJ7ynDENiHAWg5YXuSkF01W33Zfts0Sel46XQ7pM55GUmArBSSOe3BvpJ
mqa6hYYAaOvGe1ij2U2si2ToAvDIzDPJEW03cWLThLwABPaEZR5ALxgVm94Q
FoCl9xN3+aKNfhKHPi3yQ3iY35l49M3k/eOFM/ywcGnnxxvoEcNw/6hf/KDw
ynPtbXR8Us1ZlSF+sBcRbctF92wxS/dv5ocSltKGBnRrwvm4gjp+CBy2rniN
rht4eepHJT+YFi8J70QXRmzadbiIH/w+DPr2o2Or1bj33uIHOxWu/ZPoCH7P
maSb/Pj+rlk6hw46cH+wK4EfWtglLy4y818qU2F1nh9SszN3LlerJ/S3kPwM
j/FD44WPaiJo7QRzl3BPfngyv3O3BFp1IHoHuPHDit1LI2XQohFsdB0Hfnjm
WTBHRfO2EcL+NvwgL3nAXBXNIX9qWYEFP4SJ38jTRE9UTfSqbOGH9RTfOR30
N7JGk8cmfnCxyO3ahO5zOVJyT5sffLiun9+MbmIbTJBR4Qd26wgfY3SmQaex
gCA/3C1OeGiDTr5CXmfFyw+jDuZBduj4TxbycVz8kFDdo+WADg2vW1i+SIaW
3wfC9qHtqoqf/Bkig9qRzd0eaHPy5K31/WQI5+sNOYLe6qIZ69dDBq5Dr9S9
0ZpsOe7jr8iQ2uXRcAJN2Tlko9JABqvVChEBaMk7cgYeL8nwjlQrEoReYZAs
MVBMBtZAykAoesmVLi6ZAoxXYilxBj3dzz+95xEZGpas041AD5yJae1MJ0PW
ajatKHRZZci5hgsYH2Ic49Dem/f/yN9Dhvs7poRS0IN8j7cf30WGsDPvp1LR
ez4u3F1tSYZrESw1t9AmYcn2BVvI8N4nRTUDDRbfC3w3kaFu7yTjLnqdlM4q
LW2Md9LE5h5avqyzqpBOhtdfBjdmo2/GKEr6KZDho4R+cg6ab8+JgLVSZJhL
Lhl+gF6YI6kUkciwdCTILRf9dr351WczJNAOGm15gt7BmTIe8IsEInGM1wXo
mq7vJutHSJDz9khDIbrA//xicR8J/nyPyCpCxxZWu5fWkqAzVYheil56llwV
VEEChgJl2XN0kLWzhG4pCS4fnXrPtPuvxdfPH5HAtq3rfBl6s8aGDWWJJEjZ
6VlWgX7GEp0YEkcCUnj46Uq02quusU3nSXhfuEpUocW9/DLKT5FgwTgmu5pZ
L5teLoT6kWBru63tSzTnSv7det4kuOj0eZbpyQd5PBUuJLhr9oVei/Y8xeJ+
eg8JxOfFipj+tN2iUn8Xtme9ol2HthdLFV9iSQIzi1u5TL/6NuxXaUKCR7GX
xRhow5INr89sIcH5uUdBTL84H0032ESCWYMNLUyv2f32LJs2CeLcjgvUo7Mp
lL4qDRK0Gk7ZMC097acTQSeB29jyJKav1b5M2KJAgt3AMsB0hJuL8UthEgxr
PA5pQM9q5d85SyKBkWhPM9M+y1gXtnLj/+06pBrRThmp+TWLfOBhygCm246P
cJ+b4QPOfVMrm9DbDXQPbvvFB0UiTvZMV5IuVHCM8EF255J0prX734rVDfJB
B3f/ANO5eRS/qD4+EOUYk2lGK572f2X0jg8oBWQ7ppN31NA42/hA2VU9kmmy
tMBZRhMfsF0Wy2FaNTFk60Qt9te7tpppI64vy6Qq+aB7Tu8N086hljXGz/lA
/ZNtJ9OnJkoifZ/ywZ+I7X+d9yGGoz6bD3o2rf3rwbp9UVJpfHiekP1rixT2
6PpzfMDzkvWvn/k8uHDCmw9cKoY6mI4WnY5t0OeDq19r/tqxyiBehswHEe9K
/ppVoPt6UyEvdAiW/3Wm27G0k3a8IC+W9tfvZuJ95zevAt3hmL92V9TP5mjn
gZHgY3+9bHWc/Mg2bujc5fDX6cT71NYSLrjUYfnXaoVtaZZGnLBG0+6vn9Ma
b71q54DS2MN/bRfmMkjbwg783GF/PdE+Sz+bvxQU9UL/Oixhw3TABjZ4dOGf
uXeeqvasZoWgo//aX5nieVBizQI25v+8RptQ4qufL1+j/s/79NNDXR7MlisJ
/PNFk2VdhbFT5QlL//m6QunGDZkT5RvZ/jmDxecOvPhRTiH/c8q6JvkZlZHy
o+v++eeRZ0t8+gbLL+7/Z3XdITPLx33lRp7//IFfWdOFpb2c8j8//ZE11/u1
stz2f9YV4SsQKbhFHP+fnYMLLmivbfrPOvaaNoVS3f9ZiTUz4h7xlfD9n3Nb
BSot7X/+5xj53bnOl6f/c07r5Gkep4X/fHdIQsGxiUXv//3bVe983uEl//n/
AMRkT3c=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-17.960163274234844`, Automatic},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Dissociation rate (\\!\\(\\*SuperscriptBox[\\(\[CapitalARing]\\), \
\\(-2\\)]\\)\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Time (s)\"", TraditionalForm], None}},
  FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
      Charting`ScaledTicks[{Log, Exp}], 
      Charting`ScaledFrameTicks[{Log, Exp}]}}, {{
     Automatic, Automatic}, {{{-11.512925464970229`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox["10", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.605170185988092, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-11.512925464970229`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-18.420680743952367`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-16.11809565095832, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {4.605170185988092, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-17.960163274234844`, 4.144652716270571}, {
   1.0106879295891318`*^-7, 0.20458398356074659`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{
    Charting`ScaledTicks[{Log, Exp}], Automatic}]], "Output",
 CellChangeTimes->{{3.546041160958767*^9, 3.5460411732740393`*^9}, {
   3.546041216861188*^9, 3.5460412732127037`*^9}, {3.546041327265106*^9, 
   3.546041415085876*^9}, 3.546041462673644*^9, 3.5460414974686737`*^9, 
   3.546041593678466*^9, 3.546041685484968*^9, {3.5460417554197702`*^9, 
   3.546041771406828*^9}, {3.546041847425962*^9, 3.5460418599824047`*^9}, 
   3.546041906659306*^9, 3.546042033971017*^9, 3.54604212612502*^9, 
   3.5460422269955063`*^9, 3.5460423104497833`*^9, 3.5460423815216417`*^9, 
   3.546042478255501*^9, 3.546042520755836*^9, {3.546042718404578*^9, 
   3.546042742043247*^9}, 3.546043053447414*^9, 3.546054970626151*^9, 
   3.546055531699061*^9, {3.546056616331687*^9, 3.546056626779685*^9}, 
   3.546056738760666*^9, {3.546058242405678*^9, 3.5460582668955717`*^9}, 
   3.5460583075386744`*^9, 3.546058345250922*^9, {3.5460596068863497`*^9, 
   3.5460596340682163`*^9}, 3.5460610129970713`*^9, 3.546061062229313*^9, 
   3.546062488427413*^9, 3.546063446271009*^9, 3.546068130192952*^9, 
   3.546068270801525*^9, {3.5464650214546757`*^9, 3.5464650525822287`*^9}, {
   3.546465102418089*^9, 3.546465138165887*^9}, 3.546476555867*^9, {
   3.546477256226651*^9, 3.546477280519018*^9}, 3.546477411663375*^9, 
   3.546477449617937*^9, 3.546542438559313*^9, 3.548310549047262*^9, 
   3.626908268343809*^9, 3.626916068751648*^9, {3.633108308658132*^9, 
   3.633108321673544*^9}, 3.63312004761709*^9, 3.633120138138833*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dataPoints", "=", "100"}], ";", " ", 
   RowBox[{"Pmin", "=", "290"}], ";", " ", 
   RowBox[{"Pmax", " ", "=", " ", "850"}], ";", 
   RowBox[{"TempPar", "=", "T0"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "TempPar", " ", "is", " ", "used", " ", "to", " ", "restore", " ", "the", 
    " ", "parameter", " ", "that", " ", "will", " ", "be", " ", "varied"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"steadyStateC", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
    "plotted"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"steadyStateP", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
    "plotted"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"steadyState", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
    "plotted"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"steadyStateDissC", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
    "plotted"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"steadyStateDissP", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
    "plotted"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"steadyStateDiss", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
    "plotted"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"loop", " ", "thru", " ", "parameter", " ", "range", " ", 
       RowBox[{"(", 
        RowBox[{"Pmin", " ", "to", " ", "Pmax"}], ")"}]}], " ", "&"}], " ", 
     "solve", " ", "rate", " ", "equations", " ", "for", " ", "each", " ", 
     "value", " ", "of", " ", "the", " ", "parameter", " ", "of", " ", 
     "interest"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"T0", "=", 
      RowBox[{"Pmin", "+", 
       RowBox[{"x", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Pmax", "-", "Pmin"}], ")"}], "/", "dataPoints"}]}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "evaluate", " ", "equations", " ", "using", " ", "current", " ", "set", 
       " ", "of", " ", "input", " ", "parameters"}], " ", "*)"}], 
     "\[IndentingNewLine]", "evaluateEquations", ";", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"store", " ", "calculated", " ", "values", " ", 
       RowBox[{"(", 
        RowBox[{
        "which", " ", "wuill", " ", "be", " ", "plotted", " ", "below"}], 
        " "}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Nc", "[", "t", "]"}], "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
       RowBox[{"{", 
        RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateP", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Np", "[", "t", "]"}], "/.", 
        RowBox[{"sol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
       RowBox[{"{", 
        RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyState", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"steadyStateC", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "2"}], "]"}], "]"}], "+", 
       RowBox[{"steadyStateP", "[", 
        RowBox[{"[", 
         RowBox[{"x", ",", "2"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"N", "[", 
       RowBox[{"Pmin", "+", 
        RowBox[{"x", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Pmax", "-", "Pmin"}], ")"}], "/", "dataPoints"}]}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateP", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"steadyStateC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyState", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"steadyStateC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateDissC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{"f0", "*", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]c0", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Nc", "[", "t", "]"}], "/.", 
            RowBox[{"sol", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
           RowBox[{"{", 
            RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}], ")"}]}], ")"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateDissP", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{"f0", "*", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]p0", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"Np", "[", "t", "]"}], "/.", 
            RowBox[{"sol", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
           RowBox[{"{", 
            RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}], ")"}]}], ")"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateDiss", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{"f0", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Sigma]c0", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Nc", "[", "t", "]"}], "/.", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
            RowBox[{"{", 
             RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}], ")"}]}], "+", 
         RowBox[{"\[Sigma]p0", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", "t", "]"}], "/.", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
            RowBox[{"{", 
             RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}], ")"}]}]}], ")"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateDissC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"steadyStateC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateDissP", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"steadyStateC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"steadyStateDiss", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
      RowBox[{"steadyStateC", "[", 
       RowBox[{"[", 
        RowBox[{"x", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
     ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "1", ",", "dataPoints", ",", "1"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"T0", "=", "TempPar"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "steadyStateDissC", ",", "steadyStateDissP", ",", "steadyStateDiss"}], 
    "}"}], ",", "  ", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Sample temperature (K)\>\"", ",", 
      "\"\<Dissociation rate (\!\(\*SuperscriptBox[\(\[CapitalARing]\), \
\(-2\)]\)\!\(\*SuperscriptBox[\(s\), \(-1\)]\))\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "0"}], "}"}]}], ",", 
   RowBox[{"Joined", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Red"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Blue"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", "Black"}], "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.633108378768938*^9, 3.633108429636621*^9}, {
  3.633108482772346*^9, 3.633108524028941*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], Thickness[0.005], 
      LineBox[CompressedData["
1:eJwt0n9cDHYcx/Gjx0M8aFjzY5Sl8FB+1DRRsnunsVI2Jj1CHkvqouKqu67u
urrfP8lq0ZJGOTxWulb5WSH0QykpSb88UmlslNmy7cHItM/383jc4/65e97d
+15zQ/nfhI/lcDhh7x+jz9lH3p84DsUTombp5SFc19FrjUPz+fSlBcWh3NuN
72+xAPWTl41ftDOcyxs9rQAvFp908svfzeWMXq8Az3Xh/Y6maO7/nrsQD56k
vRw+H0NehhDmOe4JA+kC8gaFUFsYP3P8R0TeungE3qrwd30lIS83HvYR30mX
mGXkvYpHiFfAzrGHleRtFkH9p43timoNeYUizCr8Y0QYayBvXAJGrg+K+gpS
yQtJwKlnxU03uOnklSXANGOAd+pdBnnWidh75vcaie0P5EUnIvCNY8DkE9nk
1Sais1rufzjzGHl2YgT/7H3la2UeeWIxjjl4yKz+NbH9xBgZc3XMyfLTbD8J
6qa8MQXV5rP9JAguKbNLdzCz/SSYh0/7HkcVs/2SMPMd332TsJTtl4RPLils
2s3n2H5J8OT1ePrMvsj2k2LVAduUvZVlbD8peFsFR97lXGb7SeHRtH5D9oVK
tl8yilL9vbforrP9kvG5sfJ0weYqtl8KXir6lzl51bD9UvCLaDlCN95k+6Xg
/oKBm3xFPdtPBo9rtc5NrQ1sPxncq4XZ09Y1sf1kEMkss1sim8mbIkeYpPW4
dWULvd5TjvFBX7nut2klf48cM3qmfSBPuUfvz5Qjuko1P7KnjT6vSo7BsYFe
Wa7t5L2Q45Ew0vgiroM8GwXcLM9GDh3sJM9XAR7nbqBFYhd5IgXOtccX5th2
k2dSYGWhN6eG301eswJmY+ZA9M5u8t4o0Ptwuv+Tp13kOSqxbWLGvrcTmReo
RFRf2cz+xg7yVEqUhxR17V/Nvl+xEsvyn3FVgjbyHihx78Z6p0ot+70TVBja
4CSPPdhCnpsKt4x1auvVd8jbpcLw+h0deQcayEtToTNXXOpsV0feZRXmf9xl
v92ihrzfVGjwez1T7nGDvOlqXB18nRRuYP+/txqDta+Oz1lVQV6MGvlZG/xC
ky+Sl6PGii8O7DvodY68ejX6Z2da5iWWkPe3Gn1nt5X6Liwiz0GDgDZPG75V
AXkbNTgzT/X0ez3rX6qB5aFC0bdqE3n5GlwdWr3c7Xkuefc1CNpy3eVt1I/k
WWgh9DBPun30CHkuWgSb0ho8AzLJC9ZiaaX+yyWKDPIMWlwZflynmppO3gUt
pMO/RsYPpZL3SIu8aVWPR3yMrD8dPFAUUW6nY/3pcMzbae+TUDXrT4fWk745
sRwl60+HcX3mYKtOGetPB+GFn8TilVLWnw5WtXELUieJWX96uFQ0dkesFbH+
9OiKKc1NaBOw/vQoqRhTPqcklvWnx4ne0o13cvisPz1yD03dZPSNZv3psebK
xdRLW/ew/gyY27W93nyNx/ozwCvC+rREEMb6M2DzyKLLZ3aHsv4MOD/pWf6H
WSGsPwPC7h61dP5rB+vPiDXOFrn2H21n/Rnh0nvooY8yiPVnhFuGZoq/WyDr
z4hdEeK1lgsDuP8BgCnFTA==
       "]]}, 
     {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.005], 
      LineBox[CompressedData["
1:eJwt0n9QzHkcx/GlE5oQ0Tgaomzq4rLiIrZX8iP3w3V+lOioozONH+e2th92
7e/215Gd02US5/zcViulSG6RiqzKrxy6kn4oMbmoU+fa3Kn35z2z8/3nu4/v
zHNeU777YWXMYA6Hs/nDr/95MOPDJQvQ+qp1a7b/vcDZ/VctgNFmyf69rzyw
qvLD+cThV1GuYH9jceD3/aeOw4Tn8elrB18M5PRfQxzyG67nZgXlBQ548+Lh
uyFk5J7RJvL2xyNIv6xFHHOMvPZ4HHsZcH7Ukkzylgohedg87emWNPJ+E0Lc
5WYYcz+VvHdCCOwqVvBEGvJWJSBFkNYnclCQZ07A/VypaXWniDz7RERX/Ozo
fVdIXlQibHxfYTP3R/KKEuHy9M1GrvdW8pyTYLk2aS8/K4a8bUngHea5t0VF
k3cjCVxfj4Bop0jy3JJxz9M+V1ERRl5yMvJ4r2V2R1ayfskYP3nftHEHVrB+
uxBa/8Tzs0XLWb9dqOtNvx3UvZj124WOdX+7OYuCWD8R7rzvnZP3+ULWT4R0
swuv6ZQ/6ydC2zKuwf+hH+snRksSr1l6dhbrJ0a15/RB2z1msn5ilFgXNfhY
vVi/3XDY6ts3w4PL+u1GU85XjYax7qyfBPXhwTWtUjfWTwJbkcU756gr6yfB
N5bSN1Pbx7N+Uvyz89CWdyXjWD8pzp2ef8Z9lDPrJ8W+rzc8O3/ZiTwnGRok
tbGzJSPo/QUyZEfmjXrs6EB+rAyJhTOEPaOH0v/TZSi7Yd1YJvqIvlcqQ5NX
szQqYDB5r2WI9fHXhy3mkOcqR1WGY9X68X38AW+5HGuXZymmjf2XP+AlyCGo
P/zYdXsPf8A7LkekdnJ2hstb/oB3V44kq865ZkgXf8CzyXF3enBCzqw35Hkp
EDsx46rKo4O8MAU6s9z9i4LayVMqUHIzun3H2Rfk5SpQZ1b8VbDpOXl1CvAX
jcjsXtNC3nAlZnXY9pZLmsmbq4R20LPewkeN5G1SItMgfP/p+gbyDEpwBRe+
ODqsnjyLEnURY8z5h2vJe6FESGvd0uk7ashzUWFCJUaI4x6RF6xCZ8RPF3uM
f5C3UwXBxnW70+wfkHdIhb2fhBY8098nz6rCnuLUP//zvUdetwrzK7sqm17e
Ic89BeqAI0NWn64iLzQFjw1PjS0HK8gTp2CN+VZXWaGVPFMKQgy9E422cvIe
pmB77wPrxZgb5NmpoRhzu2pfRxl5vmr4HegxTzpQSl6kGuHB1TdNESXk6dTY
sSqj7bLfNfIuqBEhiu/y5BaT16xGlsi8uTb8CnlOGswrHt6eqrWQt0CDzaKZ
9nNqL5EXq4Gx+uqqti+LyEvXQL6k4blDbSF5pRq0Tnll5CsvkPdag1eh5akb
gs+T56rFqaWcwqSPC9j+tFiYOcXZapfP9qdFB++XKwWcc2x/WjS16B9cH5nH
9qdF+BKTxeiTy/anRdi3jVeWncth+9NhZuzIbQu5Z9j+dOBf2rLGOz+b7U8H
+/aVcr/w02x/Opjm1rw1OZnY/nTo9Arptj0xsv3pEeU47ETx5VNsf3rcMhl6
TuacZPvT45Hk0tDksyfY/vQYlladPunqcf7/SBnO6g==
       "]]}}, {
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], Thickness[0.005], 
      GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->0], {0., 0.}], CompressedData["
1:eJwt0n801Xccx/Er56ROWZr1Y0XTzxP9YCxF7L5kNUpbjRxFZ5IfhRL3utzr
5v7+WYyRlazoqjNyDYX8SvkVkX5IhU4hq61obdp2aqVp78/nnM9/9z6+976+
z/khMd+EmXI4nNDxazJ+J4zf7GPjRxiHkslRc7TSYK7T+9MVhxvl6SsLS0K4
1zrGz3Ie2qY5Tlq2K4wb/v6oeXixPN9uU8EeLuf96efhuSZs0NYQzf3fc+Hj
/pO0l6PlB8jL4MM4zyVhKJ1H3jAfSlP9Z7b/CMjbEA//qzU+Tq9E5OXGY0HE
d+IVRgl5r+IR7OG3a8IROXm+Aij/tLJe3aQir0iAOUV/jPFjdeRNTMDY5WHB
QGEKecEJOP2spLOBm05eVQIMs4bCT7/LIM8yEfvO/t4ssv6BvOhE+L+x9Zt2
Kpu8lkT0NEl9jmSdIM9GiKCfPeu+lueRJxTixEJXifm/BrafEGMmF03yq8+w
/URotXhjCGgpYPuJEFRaZZO+0Mj2E2ERPh14HFXC9kvC7HcxLlv5ZWy/JHxy
QWZ113ie7ZcEt/AHbl5zK9l+Yqw9bJ28r76K7SdG+HbesXc5tWw/MVw7N27O
rqhn+x1EcYqP5zbNZbbfQXyurz9T6NvI9kvGS9mgo51HM9svGb8IViFkyxW2
XzLuLBm6EiNrY/tJ4Hqpxb6zq53tJ4FLEz97xoZOtp8EAolZ9s3IG+RZSBEq
6jppWX+TPu8mxaSAr5wOWXWRv1eKWQ9mfCBNvk3fz5IiulGxOPJBNz2vUYrh
Cf4eR53ukvdCikf8SP2LuHvkWcngbHYuciS1hzxvGcI5t/xNE3vJE8hw/m58
UY51H3kGGdYUeXKaY/rIuyGDUZ81FL2rj7w3MvQ/nOnz5GkvebZy7JiSsf/t
FOb5yxE1UDV7sOMeeQo5qoOLew+5s99XIodjwTOugtdN3n05bjdstKtXs/87
WYGRzXbS2NSb5DkrcFXfqrR0v07ebgVGN+68l3e4nbw0BXpyhWX2Nq3k1Sqw
+OPeBYGmzeT9pkD7ptezpa4N5M1U4uLw66QwHXv/nkoMt7w6OW9tDXkHlCg4
unlTyMFK8nKUWP3F4f2pHufJa1NicG6WWV5iKXl/KzFwbkeZ99Ji8haq4Nft
ZhVjXkjeFhXOLlI8/V7L+herYJZZJPhWaSCvQIWLI+6rnJ/nkndHhYBtlx3e
Rv1InqkafFfj1GvHj5HnoEaQIa3dzS+LvCA1VtZrv1whyyBPp0bd6ONWxfR0
8irUEI/+Ghk/kkLeIzXyZjQ+HvPSs/40cEVxRLWNhvWnwQlPu31PQpSsPw26
8r1zYjly1p8GEweMQeY9EtafBvyKn4TCNWLWnwbmLXFLUqYKWX9aONR09EWs
F7D+tOg9UJab0M1j/WlRWmNSPa80lvWnxan+si3Xc2JYf1rkZk7fqveOZv1p
sa6uMuXC9r2sPx3m9wa2GS+Fs/508IiwPCPihbL+dPAdW1Z7dk8I60+H8qnP
Cj48Gsz60yH01nEz+792sv70WGdvmrvgo0DWnx4O/ZkPveQBrD89nDNUFj7O
/qw/PXZHCNebLfXj/geVAcVO
       "]]}, 
     {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[0.005], 
      GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->0], {0., 0.}], CompressedData["
1:eJwt0n9QzHkcx/GlE5oQ0Tgaomzq4rLiIrZX8iP3w3V+lOioozONH+e2th92
7e/215Gd02US5/zcViulSG6RiqzKrxy6kn4oMbmoU+fa3KX35z3z+W+/j515
zmvKdz+sjLHjcDib+9+g/je4/x3M6L9kAVpftW7N9r8XOPvDVQtgtFmyf+8r
D6yq7D+fOPwqyhXsbywO/P7DqeMw4Xl8+trBFwM5H64hDvkN13OzgvICB7x5
8fDdEDJyz2gTefvjEaRf1iKOOUZeezyOvQw4P2pJJnlLhZA8bJ72dEsaeb8J
Ie5yM4y5n0reOyEEdhUreCINeasSkCJI6xM5KMgzJ+B+rtS0ulNEnn0ioit+
dvS+KyQvKhE2vq+wmfsjeUWJcHn6ZiPXeyt5zkmwXJu0l58VQ962JPAO89zb
oqLJu5EErq9HQLRTJHluybjnaZ+rqAgjLzkZebzXMrsjK1m/ZIyfvG/auAMr
WL9dCK1/4vnZouWs3y7U9abfDupezPrtQse6v92cRUGsnwh33vfOyft8Iesn
QrrZhdd0yp/1E6FtGdfg/9CP9ROjJYnXLD07i/UTo9pz+qDtHjNZPzFKrIsa
fKxerN9uOGz17ZvhwWX9dqMp56tGw1h31k+C+vDgmlapG+snga3I4p1z1JX1
k+AbS+mbqe3jWT8p/tl5aMu7knGsnxTnTs8/4z7KmfWTYt/XG56dv+xEnpMM
DZLa2NmSEfT7BTJkR+aNeuzoQH6sDImFM4Q9o4fS9+kylN2wbiwTfUT/VypD
k1ezNCpgMHmvZYj18deHLeaQ5ypHVYZj1frxffwBb7kca5dnKaaN/Zc/4CXI
Iag//Nh1ew9/wDsuR6R2cnaGy1v+gHdXjiSrzrlmSBd/wLPJcXd6cELOrDfk
eSkQOzHjqsqjg7wwBTqz3P2LgtrJUypQcjO6fcfZF+TlKlBnVvxVsOk5eXUK
8BeNyOxe00LecCVmddj2lkuayZurhHbQs97CR43kbVIi0yB8/+n6BvIMSnAF
F744OqyePIsSdRFjzPmHa8l7oURIa93S6TtqyHNRYUIlRojjHpEXrEJnxE8X
e4x/kLdTBcHGdbvT7B+Qd0iFvZ+EFjzT3yfPqsKe4tQ///O9R163CvMruyqb
Xt4hzz0F6oAjQ1afriIvNAWPDU+NLQcryBOnYI35VldZoZU8UwpCDL0TjbZy
8h6mYHvvA+vFmBvk2amhGHO7al9HGXm+avgd6DFPOlBKXqQa4cHVN00RJeTp
1NixKqPtst818i6oESGK7/LkFpPXrEaWyLy5NvwKeU4azCse3p6qtZC3QIPN
opn2c2ovkRergbH66qq2L4vIS9dAvqThuUNtIXmlGrROeWXkKy+Q91qDV6Hl
qRuCz5PnqsWppZzCpI8L2P60WJg5xdlql8/2p0UH75crBZxzbH9aNLXoH1wf
mcf2p0X4EpPF6JPL9qdF2LeNV5ady2H702Fm7MhtC7ln2P504F/assY7P5vt
Twf79pVyv/DTbH86mObWvDU5mdj+dOj0Cum2PTGy/ekR5TjsRPHlU2x/etwy
GXpO5pxk+9PjkeTS0OSzJ9j+9BiWVp0+6epx/v9c8c7s
       "]]}, 
     {GrayLevel[0], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], 
      Dashing[{Small, Small}], GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledDiamond]\"\>",
         StripOnInput->False,
         FontSize->0], {0., 0.}], CompressedData["
1:eJwt039UzXccx/GSn4dsqw2ZTNsZ6rYxNCXcV0VTjFnpXBWKOJLft9vt1u3+
/Pa9P3aF3ZHcWKck/XLa1ShrqKuUFDfKLWtjneZgyxxmxKll78/nnM9/9z7u
va/7/Hpt3PX1ZhcnJ6eEoes8dIcN3aM5Q0e2F/229+Vla+3CuW/Ozb1Qhkgj
FcsahS3Xho6vGN0h9qmT5tcKt7w5vBia0Vcf51+pEjq9OXfFeDquc7B2ulX4
vxeQDEF6lyl8Zil55mRMPP1pcvXtE+T9mYw6v1nOO9R55IVK4N7k9lIw3UJe
ngR8xLyiyMhs8l5KkJj/lmjy6EPkRaSAs4r2rb1vJq8sBcF1juJVP5rJGymF
w92yOD3sO/LipEh49bo03XCIvGrpkP/7nIcJ2eS5p6JQa87WtOWQtz0Vr1cd
EPm25pLXkIo+rUdFiyCPvGkyWO7a2kr988mTyTC3MMgy4sAJtp8MaYsjo5z8
ith+aQjWW1TxghK2XxqWuz6bsU1azvZLQ9dM8ajurAq2Xzomvip8aDloZful
o7n1zEBGQyXbLx2caadk6uxzbD85Ki84DUyxV7P95JD99fT6O2U1bD858h6f
71HYLrL9MtDY2bzyV1Mt2y8DJd3/Xt0lsrH9FLjadsQ3fGk9208BeWu/5HnE
FbafAis3BK/YxzWx/ZRoPPM0i+9oZvspkZX0UCFd1sr2UyK2frOkO+kGeW+r
gKadBwcv2un1C1Uwt48/GuN5k/xEFTid/Zi/8ha9/7AK52tPuoz/rZ0+z6bC
yGHRU3zm3SbvbxUKG6aW7xU7yJuixtbAD6/F7+8kL0yN0WO3FiWldpGXooZg
wYO4fs875BWocVZUEu2x+w55N9S45eh/VRV/h7zXavRV3XDzfdRFnrcGJmPu
ucBxzIvSwLraN3dyi4M8rQaKAFPAxUXs+1VoMJ9fM8oqbifvFw0ev5jf8YBn
v3eMFvcTqzOOZNnJ+1yL6LRTPdGLrpO3SYumJZ5Le0zN5B3QYql/jS1pGns+
a7QI2xO0/luXevIeaMF1hv9jXVBH3gQOl7wehdkM7P8P4eBR7BBKAn8ibzcH
t6zvN1szzpGXy0H63gdHHUGV5DVx8OQPNfem/kDecw4V93vXNc08Td5HmbA/
MtX3upaQ91UmfC57RDkbTpInz8Rnmy6taeAKyCvORPm6rhmH+9jz35GJwQLd
+ortx8hz4dF7SmBIzs0hbzaPSWN5rjPyMHmxPBpH3H73ktpMnoGH3r9jp6vb
QfLO8rjss7VF2rePvB4ewwOPFz4JM7L+dNDnfVx23EvH+tPBTdIWemETx/rT
oS3Y5LLQWcP602HshljXb7qUrD8dvvAzl98LkLP+dNBYY2LvucpYf3r4CUTi
4tAU1p8ez/JDuos6xKw/PYYXflm/2LqH9afHwJ4d3k+O72L96dHoPeaP/cu3
s/70EJXOtRbEJLL+DBhlmfOJqm4L68+Amp+rHH6SBNafAWr35Fmrt21k/RkQ
ts1YWZATx/ozINGy4IrPi3WsPyOWVEwU9U+IYf0ZEdoWUTnAiVh/RvDGk4P3
/KNYf0a0B63wVvpECv8DaC/MJQ==
       "]]}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{286.93750000000006`, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Dissociation rate (\\!\\(\\*SuperscriptBox[\\(\[CapitalARing]\\), \
\\(-2\\)]\\)\\!\\(\\*SuperscriptBox[\\(s\\), \\(-1\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Sample temperature (K)\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{295.6, 850.}, {0, 0.4287169824032263}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6331083876760817`*^9, 3.633108431527236*^9, {3.633108486807907*^9, 
   3.633108525259439*^9}, 3.633120148470626*^9}]
}, Open  ]]
},
WindowSize->{1285, 804},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September 9, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[422, 15, 27153, 607, 1457, "Input"],
Cell[27578, 624, 2765, 61, 91, "Output"],
Cell[30346, 687, 2646, 58, 86, "Output"],
Cell[32995, 747, 1798, 31, 36, "Output"],
Cell[34796, 780, 6273, 89, 26, "Print"],
Cell[41072, 871, 17169, 333, 292, "Output"],
Cell[58244, 1206, 32702, 591, 299, "Output"],
Cell[90949, 1799, 6280, 89, 32, "Print"],
Cell[97232, 1890, 35277, 633, 390, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132546, 2528, 10299, 289, 880, "Input"],
Cell[142848, 2819, 10241, 188, 387, "Output"]
}, Open  ]]
}
]
*)