(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[     69992,       1460]
NotebookOptionsPosition[     69090,       1427]
NotebookOutlinePosition[     69647,       1447]
CellTagsIndexPosition[     69604,       1444]
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[{"(", 
       RowBox[{"-", "7"}], ")"}]}]}], ";", 
    RowBox[{"tmax", "=", "1"}], ";", " ", 
    RowBox[{"(*", " ", "sec", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"k0", "=", 
     RowBox[{"8617332478", "*", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "14"}], ")"}]}]}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"eV", "/", "K"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"T0", "=", "290"}], ";", " ", 
    RowBox[{"Tg0", "=", "290"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"sample", " ", "&"}], " ", "gas", " ", "temperatures", " ", 
      RowBox[{"(", "K", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Pb", "=", "0.751"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"EBIE", " ", "precursor", " ", "gas", " ", "pressure", " ", 
      RowBox[{"(", "Torr", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Pc", "=", "0.00751"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"EBID", " ", "precursor", " ", "gas", " ", "pressure", " ", 
      RowBox[{"(", "Torr", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"mb0", "=", "18.015"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "mass", " ", "of", " ", "EBIE", " ", "precursor", " ", "gas", " ", 
      "molecule", " ", 
      RowBox[{"(", "amu", ")"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
    RowBox[{"mc0", "=", "128.26"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "mass", " ", "of", " ", "EBID", " ", "precursor", " ", "gas", " ", 
      "molecule", " ", 
      RowBox[{"(", "amu", ")"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
    RowBox[{"f0", "=", 
     RowBox[{"10", "^", "2"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"electron", " ", "flux", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[CapitalARing]", 
         RowBox[{"-", "2"}]], 
        SuperscriptBox["s", 
         RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"sb0", "=", "1"}], ";", 
    RowBox[{"(*", 
     RowBox[{"EBIE", " ", "precursor", " ", "sticking", " ", "coefficient"}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"sc0", "=", "1"}], ";", 
    RowBox[{"(*", 
     RowBox[{"EBID", " ", "precursor", " ", "sticking", " ", "coefficient"}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Ab0", "=", "10.51"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "area", " ", "of", " ", "EBIE", " ", "precursor", " ", "gas", " ", 
      "molecule", " ", 
      RowBox[{"(", 
       SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Ac0", "=", "68"}], ";", 
    RowBox[{"(*", 
     RowBox[{
     "area", " ", "of", " ", "EBID", " ", "precursor", " ", "gas", " ", 
      "molecule", " ", 
      RowBox[{"(", 
       SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]\[Beta]0", "=", "1"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"x", "-", 
      RowBox[{
      "section", " ", "for", " ", "dissociation", " ", "of", " ", "EBIE", " ",
        "precursor", " ", "molecules", " ", 
       RowBox[{"(", 
        SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]\[Gamma]0", "=", "1"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"x", "-", 
      RowBox[{
      "section", " ", "for", " ", "dissociation", " ", "of", " ", "EBID", " ",
        "precursor", " ", "molecules", " ", 
       RowBox[{"(", 
        SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]r0", "=", "Ac0"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"reaction", " ", "x"}], "-", 
      RowBox[{"section", " ", "1", " ", 
       RowBox[{"(", 
        SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]rD0", "=", "Ac0"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"reaction", " ", "x"}], "-", 
      RowBox[{"section", " ", "2", " ", 
       RowBox[{"(", 
        SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Eb0", "=", 
     RowBox[{"560", "/", "1000"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"EBIE", " ", "precursor", " ", "adsorption", " ", "energy", " ", 
      RowBox[{"(", "eV", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Ec0", "=", 
     RowBox[{"940", "/", "1000"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"EBID", " ", "precursor", " ", "adsorption", " ", "energy", " ", 
      RowBox[{"(", "eV", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Kappa]b0", "=", 
     RowBox[{"1.0", "*", 
      RowBox[{"10", "^", "16"}]}]}], ";", 
    RowBox[{"(*", " ", 
     SuperscriptBox["s", 
      RowBox[{"-", "1"}]], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Kappa]c0", "=", 
     RowBox[{"2.0", "*", 
      RowBox[{"10", "^", "16"}]}]}], ";", 
    RowBox[{"(*", " ", 
     SuperscriptBox["s", 
      RowBox[{"-", "1"}]], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Vc0", "=", "3.2"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"volume", " ", "of", " ", "deposited", " ", "atom", " ", 
      RowBox[{"(", 
       SuperscriptBox["\[CapitalARing]", "3"], ")"}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"n\[Beta]0", "=", 
     RowBox[{"n\[Gamma]0", "=", "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[{"Eb", "\[Rule]", "Eb0"}], ",", 
         RowBox[{"Ec", "\[Rule]", "Ec0"}], ",", 
         RowBox[{"\[Kappa]b", "\[Rule]", "\[Kappa]b0"}], ",", 
         RowBox[{"\[Kappa]c", "\[Rule]", "\[Kappa]c0"}], ",", 
         RowBox[{"sb", "\[Rule]", "sb0"}], ",", 
         RowBox[{"sc", "\[Rule]", "sc0"}], ",", 
         RowBox[{"Ab", "\[Rule]", "Ab0"}], ",", 
         RowBox[{"Ac", "\[Rule]", "Ac0"}], ",", 
         RowBox[{"Vc", "\[Rule]", "Vc0"}], ",", " ", 
         RowBox[{"T", "\[Rule]", "T0"}], ",", 
         RowBox[{"Tg", "\[Rule]", "Tg0"}], ",", 
         RowBox[{"Pb", "\[Rule]", "Pb0"}], ",", 
         RowBox[{"Pc", "\[Rule]", "Pc0"}], ",", 
         RowBox[{"mb", "\[Rule]", "mb0"}], ",", 
         RowBox[{"mc", "\[Rule]", "mc0"}], ",", 
         RowBox[{"\[Sigma]\[Beta]", "\[Rule]", "\[Sigma]\[Beta]0"}], ",", 
         RowBox[{"\[Sigma]\[Gamma]", "\[Rule]", "\[Sigma]\[Gamma]0"}], ",", 
         RowBox[{"\[Sigma]r", "\[Rule]", "\[Sigma]r0"}], ",", 
         RowBox[{"\[Sigma]rD", "\[Rule]", "\[Sigma]rD0"}], ",", 
         RowBox[{"f", "\[Rule]", "f0"}], ",", 
         RowBox[{"n\[Beta]", "\[Rule]", "n\[Beta]0"}], ",", 
         RowBox[{"n\[Gamma]", "\[Rule]", "n\[Gamma]0"}]}], "}"}]}], ";"}], 
     "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"refreshSubstitutions", ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", 
     "evaluates", " ", "equations"}], " ", "***)"}], "\[IndentingNewLine]", 
   RowBox[{"evaluateEquations", ":=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"adsorbatesBNumeric", "=", 
       RowBox[{"adsorbatesB", " ", "/.", "sub"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"adsorbatesCNumeric", "=", 
       RowBox[{"adsorbatesC", " ", "/.", "sub"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dissociateBNumeric", "=", 
       RowBox[{"dissociateB", " ", "/.", "sub"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"dissociateCNumeric", "=", 
       RowBox[{"dissociateC", " ", "/.", "sub"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"depositNumeric", "=", 
       RowBox[{"deposit", "/.", "sub"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sol", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
          "adsorbatesBNumeric", ",", "adsorbatesCNumeric", ",", 
           "dissociateBNumeric", ",", "dissociateCNumeric", ",", 
           "depositNumeric", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Nb", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"Nc", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"N\[Beta]", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"N\[Gamma]", "[", "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[{"Nb", "[", "t", "]"}], ",", 
           RowBox[{"Nc", "[", "t", "]"}], ",", 
           RowBox[{"N\[Beta]", "[", "t", "]"}], ",", 
           RowBox[{"N\[Gamma]", "[", "t", "]"}], ",", 
           RowBox[{"ND", "[", "t", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", 
         RowBox[{"MaxSteps", "\[Rule]", "100000"}]}], "]"}]}], ";"}], "}"}]}],
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "set"}], " ", "up", " ", "equations"}], " ", "***)"}],
    " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Fb", "=", 
     RowBox[{"Pb", "*", 
      RowBox[{"13332200", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
        "2", "*", "Pi", "*", "mb", "*", "1.66053873", "*", "1.38066", "*", 
         "Tg"}], "]"}]}]}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "EBIE", " ", "precursor", " ", "gas", " ", "molecule", " ", "flux", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[CapitalARing]", 
         RowBox[{"-", "2"}]], 
        SuperscriptBox["s", 
         RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Fc", "=", 
     RowBox[{"Pc", "*", 
      RowBox[{"13332200", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
        "2", "*", "Pi", "*", "mc", "*", "1.66053873", "*", "1.38066", "*", 
         "Tg"}], "]"}]}]}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "EBID", " ", "precursor", " ", "gas", " ", "molecule", " ", "flux", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[CapitalARing]", 
         RowBox[{"-", "2"}]], 
        SuperscriptBox["s", 
         RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"kb", "=", 
     RowBox[{"\[Kappa]b", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "Eb"}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"EBIE", " ", "precursor", " ", "desorption", " ", "rate", " ", 
      RowBox[{"(", 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"kc", "=", 
     RowBox[{"\[Kappa]c", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "Ec"}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"EBID", " ", "precursor", " ", "desorption", " ", "rate", " ", 
      RowBox[{"(", 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[CapitalLambda]b", "=", 
     RowBox[{"sb", "*", "Fb", "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[CapitalTheta]"}], ")"}]}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"EBIE", " ", "precursor", " ", "adsorption", " ", "flux"}], " ", 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[CapitalLambda]c", "=", 
     RowBox[{"sc", "*", "Fc", "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "\[CapitalTheta]"}], ")"}]}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"EBIE", " ", "precursor", " ", "adsorption", " ", "flux"}], " ", 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[CapitalTheta]", "=", 
     RowBox[{
      RowBox[{"Ab", "*", 
       RowBox[{"Nb", "[", "t", "]"}]}], "+", 
      RowBox[{"Ac", "*", 
       RowBox[{"Nc", "[", "t", "]"}]}]}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"adsorbate", " ", "coverage"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"adsorbatesB", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Nb", "'"}], "[", "t", "]"}], "==", 
      RowBox[{"\[CapitalLambda]b", "-", 
       RowBox[{
        RowBox[{"Nb", "[", "t", "]"}], "*", "kb"}], "-", 
       RowBox[{
        RowBox[{"N\[Beta]", "'"}], "[", "t", "]"}]}]}]}]}], 
   RowBox[{"(*", 
    RowBox[{"EBIE", " ", "precursor", " ", "adsorbates"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"adsorbatesC", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Nc", "'"}], "[", "t", "]"}], "==", 
     RowBox[{"\[CapitalLambda]c", "-", 
      RowBox[{
       RowBox[{"Nc", "[", "t", "]"}], "*", "kc"}], "-", 
      RowBox[{
       RowBox[{"N\[Gamma]", "'"}], "[", "t", "]"}], "-", 
      RowBox[{
       RowBox[{
        RowBox[{"N\[Beta]", "'"}], "[", "t", "]"}], "*", "\[Sigma]r", "*", 
       RowBox[{"Nc", "[", "t", "]"}]}]}]}]}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"EBID", " ", "precursor", " ", "adsorbates"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"dissociateB", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"N\[Beta]", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{"n\[Beta]", "*", "f", "*", "\[Sigma]\[Beta]", "*", 
      RowBox[{"Nb", "[", "t", "]"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"dissociateC", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"N\[Gamma]", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{"n\[Gamma]", "*", "f", "*", "\[Sigma]\[Gamma]", "*", 
      RowBox[{"Nc", "[", "t", "]"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"deposit", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"ND", "'"}], "[", "t", "]"}], "==", 
     RowBox[{
      RowBox[{
       RowBox[{"N\[Gamma]", "'"}], "[", "t", "]"}], "-", 
      RowBox[{
       RowBox[{
        RowBox[{"N\[Beta]", "'"}], "[", "t", "]"}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[Sigma]r", "*", 
          RowBox[{"Nc", "[", "t", "]"}]}]}], ")"}], "*", "\[Sigma]rD", "*", 
       RowBox[{"Min", "[", 
        RowBox[{
         RowBox[{"ND", "[", "t", "]"}], ",", 
         RowBox[{"1", "/", "Ac"}]}], "]"}]}]}]}]}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"EBID", " ", "precursor", " ", "adsorbates"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kb", "=", 
     RowBox[{"\[Kappa]b", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "Eb"}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"EBIE", " ", "precursor", " ", "desorption", " ", "rate", " ", 
      RowBox[{"(", 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"kc", "=", 
     RowBox[{"\[Kappa]c", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "Ec"}], "/", 
        RowBox[{"(", 
         RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"EBID", " ", "precursor", " ", "desorption", " ", "rate", " ", 
      RowBox[{"(", 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "evaluateEquations", ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"Nb", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
       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)\>\"", ",", 
        "\"\<Nb (\!\(\*SuperscriptBox[\(\[CapitalARing]\), \(-2\)]\))\>\""}], 
       "}"}]}]}], "]"}]}]}]], "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.633125261578232*^9, 3.633125267206174*^9}, {
   3.633125427807816*^9, 3.6331256372805758`*^9}, {3.633125687468279*^9, 
   3.63312583143279*^9}, {3.63312586152391*^9, 3.633125866717289*^9}, {
   3.633126149915378*^9, 3.633126156098707*^9}, {3.633126220935109*^9, 
   3.633126287623188*^9}, {3.633126324012368*^9, 3.633126328758533*^9}, {
   3.633126542621443*^9, 3.633126569526078*^9}, {3.633127084100758*^9, 
   3.6331271042483788`*^9}, {3.633127146381855*^9, 3.633127149788307*^9}, {
   3.633127198111476*^9, 3.633127237435111*^9}, {3.633127316333312*^9, 
   3.6331273307165203`*^9}, {3.633127409516032*^9, 3.633127465012533*^9}, {
   3.633127499606534*^9, 3.63312758583645*^9}, {3.633127819092436*^9, 
   3.633127894092966*^9}, {3.633127925250648*^9, 3.6331279618182507`*^9}, {
   3.6331282101722183`*^9, 3.6331284702185583`*^9}, {3.633128509098537*^9, 
   3.6331285906936893`*^9}, {3.63312862205919*^9, 3.633128781283963*^9}, {
   3.633128892280943*^9, 3.6331288923435097`*^9}, {3.633128995587618*^9, 
   3.633129108005031*^9}, {3.63312915266009*^9, 3.633129211656974*^9}, {
   3.633129247227459*^9, 3.6331293391399727`*^9}, {3.633129531350443*^9, 
   3.633129561183856*^9}, {3.633129665394348*^9, 3.633129691674384*^9}, {
   3.6331297313332977`*^9, 3.6331297894136143`*^9}, {3.633129826437751*^9, 
   3.6331298519660673`*^9}, {3.6331298900208197`*^9, 3.633130005370592*^9}, {
   3.63313006835083*^9, 3.633130193303817*^9}, {3.6331302409227552`*^9, 
   3.633130332175253*^9}, {3.633130380811446*^9, 3.6331305161025133`*^9}, {
   3.633130592165888*^9, 3.633130615077482*^9}, {3.633130658939253*^9, 
   3.633130911612452*^9}, {3.633130994391114*^9, 3.633131081860141*^9}, {
   3.633131140707748*^9, 3.63313115048763*^9}, {3.633131181880932*^9, 
   3.6331312041885157`*^9}, {3.6331312548695517`*^9, 3.633131276157549*^9}, 
   3.633131377973514*^9, 3.633132809524662*^9, {3.63313294271049*^9, 
   3.633132942876237*^9}, {3.633132987590863*^9, 3.633133042318972*^9}, {
   3.633133096241048*^9, 3.633133131106991*^9}, {3.633133747957271*^9, 
   3.633133891902299*^9}, 3.6331354874289837`*^9, {3.633135587319687*^9, 
   3.633135643746833*^9}, {3.633135869762341*^9, 3.6331359014538803`*^9}, {
   3.633136265814941*^9, 3.6331362776663523`*^9}, {3.633136496766622*^9, 
   3.633136509614151*^9}, {3.633379231650578*^9, 3.633379243883193*^9}, {
   3.633743637948246*^9, 3.63374381104813*^9}, {3.6337442839387503`*^9, 
   3.6337443316302557`*^9}, {3.633744395755188*^9, 3.633744769783799*^9}, {
   3.633744925968853*^9, 3.633745404208026*^9}, {3.633745448837236*^9, 
   3.633745910611897*^9}, {3.6337459552560368`*^9, 3.6337459605765543`*^9}, {
   3.633746037539708*^9, 3.63374604190586*^9}, {3.6337460720418987`*^9, 
   3.633746084798666*^9}, {3.633746209335351*^9, 3.6337462094297953`*^9}, {
   3.633746630721572*^9, 3.6337466535698757`*^9}, {3.633746758802929*^9, 
   3.6337467679603567`*^9}, {3.6337468337846813`*^9, 
   3.6337468541326313`*^9}, {3.633746895371963*^9, 3.6337469086636887`*^9}, {
   3.633746965300713*^9, 3.633747084725782*^9}, {3.633747118674438*^9, 
   3.633747119064094*^9}, 3.633747244439543*^9, {3.633747420587646*^9, 
   3.633747502919998*^9}, {3.63374766814318*^9, 3.6337476965622272`*^9}, {
   3.63374775270408*^9, 3.6337477885958233`*^9}, {3.633747873744462*^9, 
   3.633747880232923*^9}, {3.633803873433172*^9, 3.633803890715253*^9}, {
   3.6338040427490788`*^9, 3.6338040488885*^9}, {3.635441124876144*^9, 
   3.635441125782567*^9}, {3.64600257931548*^9, 3.646002580337657*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Nb", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox["Eb", 
        RowBox[{"k", " ", "T"}]]}]]}], " ", "\[Kappa]b", " ", 
    RowBox[{"Nb", "[", "t", "]"}]}], "+", 
   FractionBox[
    RowBox[{"2.638055613134316`*^6", " ", "sb", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Ab", " ", 
        RowBox[{"Nb", "[", "t", "]"}]}], "-", 
       RowBox[{"Ac", " ", 
        RowBox[{"Nc", "[", "t", "]"}]}]}], ")"}]}], 
    SqrtBox[
     RowBox[{"mb", " ", "Tg"}]]], "-", 
   RowBox[{
    SuperscriptBox["N\[Beta]", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.6337459131986427`*^9, 3.633745961238697*^9, 3.63374609872363*^9, 
   3.633746210583475*^9, 3.6337471474059563`*^9, 3.633747245103385*^9, {
   3.633747424442539*^9, 3.6337474281725197`*^9}, {3.633747476235224*^9, 
   3.633747504313284*^9}, {3.633747674844694*^9, 3.633747699075255*^9}, {
   3.633747755706276*^9, 3.63374778937049*^9}, 3.633747893012885*^9, 
   3.6338040593748198`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Nc", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox["Ec", 
        RowBox[{"k", " ", "T"}]]}]]}], " ", "\[Kappa]c", " ", 
    RowBox[{"Nc", "[", "t", "]"}]}], "+", 
   FractionBox[
    RowBox[{"26380.556131343164`", " ", "sc", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Ab", " ", 
        RowBox[{"Nb", "[", "t", "]"}]}], "-", 
       RowBox[{"Ac", " ", 
        RowBox[{"Nc", "[", "t", "]"}]}]}], ")"}]}], 
    SqrtBox[
     RowBox[{"mc", " ", "Tg"}]]], "-", 
   RowBox[{"\[Sigma]r", " ", 
    RowBox[{"Nc", "[", "t", "]"}], " ", 
    RowBox[{
     SuperscriptBox["N\[Beta]", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], "-", 
   RowBox[{
    SuperscriptBox["N\[Gamma]", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.6337459131986427`*^9, 3.633745961238697*^9, 3.63374609872363*^9, 
   3.633746210583475*^9, 3.6337471474059563`*^9, 3.633747245103385*^9, {
   3.633747424442539*^9, 3.6337474281725197`*^9}, {3.633747476235224*^9, 
   3.633747504313284*^9}, {3.633747674844694*^9, 3.633747699075255*^9}, {
   3.633747755706276*^9, 3.63374778937049*^9}, 3.633747893012885*^9, 
   3.6338040593807907`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["N\[Beta]", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{"f", " ", "n\[Beta]", " ", "\[Sigma]\[Beta]", " ", 
   RowBox[{"Nb", "[", "t", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.6337459131986427`*^9, 3.633745961238697*^9, 3.63374609872363*^9, 
   3.633746210583475*^9, 3.6337471474059563`*^9, 3.633747245103385*^9, {
   3.633747424442539*^9, 3.6337474281725197`*^9}, {3.633747476235224*^9, 
   3.633747504313284*^9}, {3.633747674844694*^9, 3.633747699075255*^9}, {
   3.633747755706276*^9, 3.63374778937049*^9}, 3.633747893012885*^9, 
   3.6338040593842373`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["N\[Gamma]", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{"f", " ", "n\[Gamma]", " ", "\[Sigma]\[Gamma]", " ", 
   RowBox[{"Nc", "[", "t", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.6337459131986427`*^9, 3.633745961238697*^9, 3.63374609872363*^9, 
   3.633746210583475*^9, 3.6337471474059563`*^9, 3.633747245103385*^9, {
   3.633747424442539*^9, 3.6337474281725197`*^9}, {3.633747476235224*^9, 
   3.633747504313284*^9}, {3.633747674844694*^9, 3.633747699075255*^9}, {
   3.633747755706276*^9, 3.63374778937049*^9}, 3.633747893012885*^9, 
   3.633804059389587*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["ND", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[Sigma]rD"}], " ", 
    RowBox[{"Min", "[", 
     RowBox[{
      FractionBox["1", "Ac"], ",", 
      RowBox[{"ND", "[", "t", "]"}]}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"\[Sigma]r", " ", 
       RowBox[{"Nc", "[", "t", "]"}]}]}], ")"}], " ", 
    RowBox[{
     SuperscriptBox["N\[Beta]", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}]}], "+", 
   RowBox[{
    SuperscriptBox["N\[Gamma]", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.6337459131986427`*^9, 3.633745961238697*^9, 3.63374609872363*^9, 
   3.633746210583475*^9, 3.6337471474059563`*^9, 3.633747245103385*^9, {
   3.633747424442539*^9, 3.6337474281725197`*^9}, {3.633747476235224*^9, 
   3.633747504313284*^9}, {3.633747674844694*^9, 3.633747699075255*^9}, {
   3.633747755706276*^9, 3.63374778937049*^9}, 3.633747893012885*^9, 
   3.6338040593948603`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw113c81d//AHApJWRkXHcY2fe69p6HVFZmZVfKnpUViiLJvhclISmyEkWD
rJeyEqVSioZIZRSlIUm/4/fx/efex/Nx3+9zXuf1ep3zft9N+w/Ye7GysLDs
wx/L35YjDbF6ospQ+dn0iWSXP5oUz078RVGGUw8PWweM+6OkfYEZdWRl+Gch
Gd+/OgB1jooWyhOVweWZuNN3owBkNH6imSygDE0yOjeKmwKQ5qTV4p/1yqCj
eTPvWkMgMv50by5ySgniWFzYFnqC0TSPwGR0nhL0zdR7PC89hL6Vx0Y1nVWC
NrXonrTGQ+iX8QT70mklMBJTGXDoP4RYw1pk4xhKkPteckJ64RASfuHrdSpB
CQTuCbVcsw5BJkXNI9nBSpB6Ubkr5k8IylP2GazarARdDQNi/J5hyNzuTvub
SUWID3XLSTt0GHVm9Y9Yf1KEG4eO2WQkH0ZbBj4stowrQlZ37b6LFw8jQ0d+
jQsjijBfonX8z+PDSHV34OW9zxUBeX4RO6YWiUh+ookjbYpgZ9Gm0/I7Ek0f
jzcdzVWEZxsPUkazohHjmkXP+DZFYInbekTnRwwKCXuoJ1WqANU1Tvc+5sYj
N5pT/t1fdDBw4uSTb0pEV37HXdT6QYeuwWvF8Q8S0UL3lbKqb3RwY+Vaej6U
iM75/KvL+UwH8DNkhv9ORM9LSnv9x+jgeUdzOFHzFLIT+/F34yM6SB7Lmnxb
cwptE8hy9yilAxeLnH9xYRI6M9bo/aKYDg1IWtr1ahJ6XzseaHWRDlaPX37n
bEpCJ+x0orQK6DCX5W7r9DIJQcZIJmcWHTRUdh3O5U9GuuuV7tXF0MFkaTwi
PzEZKS09kF6ziw47n99v+eiVgraNX72y2Z4OuzX2J1WFpaA9vQyVOBs6DF15
8MnzRApKy9thsGROh/aHyg9qilLQpObwznlDOpxVc+ysGEpBpQcmT0zL0SHJ
qzONe3sqorxjHx1YlIcO7tEndyXTkHr3pA//gjy8F9N7c1s5DVnW9H62+yUP
D1x0HQoM0lB0DPP3w6/yYLxqTkjNMQ0NEoX57n+QB68l48+nk9NQlr2sUXO/
PPyykFsSmkpD69u3Fl4ukYcYFnJeeFE6qo0cXPX1ojzcTrjM8rsyHbkp+Hnp
X5AHvQnCR7+b6ehaThr96Tl5aI9eLynQk46c/J7eYWHIwy3fHZ5J39JRKfe+
Qdcoeag6VSk6gjKQ7b1vumUR8mDieSNL3TwDLRxOKPwWKg8HzgXUh9tnIOt3
ZV7JwfKg6ixNaPHMQD/qvszd8pCHrcYy/j5JGWiL81HejdbyIBReHyjUm4G+
bOAO220pD7bxoV7qAxko9+6FwXIzeTjxZPdjw1cZaFr+XiEykQexMh8h4nQG
yl5arxCkLQ+mlwRc33Mw0GjxWfNuCXn4w1L/6eUWBkpzol7lF5eHm5ItcW2W
DKS5oZF3r4g8vD0+8viMPQOlRLwZ/EHA6yN871zjzkAq5tLekhvkQaSaNvA3
ioGOf6mNj/1Fg3gJeROfSga6ZDkbMv+dBubnLHe21DDQvXIFj5BvNOhfRzRm
u8lAaz3KTbw/04DjIv3L/lY8/+D5NdZjNJjPprfufcpAuZCUKPKIBqpWsryB
8wx0R6Qz4mwvDWxXh+p1LzLQcPRqH74eGujFJJxLYWEiUY1YU7YOGrQKiczA
GiYqqQhl/3yHBmHC7YEDXEx0LWtPSlMpDZI4S5ULyUz0ZCY/WrMEzz8eZ+Mo
wkRz21/6X7tIg0v3Sw+tF2MizXU7LUsKaPDZ98EvJwkmajpizpWWRQNOmRs+
pXJM9OZF4iIbkwarvv6ek6Mx0T+N9ulj6TTIviv0okSeiTbPGvaFJtHgk+pE
f5IiE3V7qme4xuLxf+oPsKoz0WTbodhnR2jQFLzKz06DiTjFaoJtomhw761E
yzlNJrJ+SbUxCaMB02vvE4IOEw1YifHK+9NAh9XxQo8BE/2sdGO57EODnqpm
00+GTERgz5sV9aJBTDN5DYsRE7ncFXi80Z0GlKs8syKbmWhEkyNrYRcNngo4
aApuY6KeK/9WGe6gwWmn2FVEUyaqE/9xKM6WBh5Do9ZCZkyUyDFix25JA837
TeV/zZlI4c1NPiEjGlz0GxCNs2IioR1X4pwNaLB4iqfR3pqJWLqLvhbo0kDM
gbZf1AbHez31saQGDd7dn1xVYstE0Sf3ZarQaDAz/p3DfwcTeS44rAqXpYEF
lSN2w04msjqw/VC9FA24eOjhV7DFnbXskBgNPuZqosFdTMTxkN4WT6GBT+51
NS8HJvq+WUKlk0gDd4Pv05+xu+gb+KwEaHAkN+vtjCOu90XWOCYfDWgdv9T8
nJgoT2h+9ik3DepFTU68xg5mGet3WU+DL0cK7G87M5FT+AujwrU0iLwq9IPi
wkTGk33X3q2mgcqS62AMtsBAPdN3iQoXeaTLVVyZaMmsmqXqDxWq1h+pS8D+
2Fx8cGaeCnapkbpPsftVz42o/qRCq7aauYgbE90py7CNmKMC951T0/uxSygJ
0DBLhaX3oqol2BmZUcp/P1NhdFWo3DvsfUc8eRM+UeHZoxAv691MZDHrfLxr
nAqPjF37YrHVvWxmOcaosCrypNwVbNGhLe7WI1TIXGpKeorNbqPbn/maCke4
u+Z/YX+7p2T0bIgKBKHf8cJ7mGhYW/qa8AsqmLFcUtXAbr9KEnd7hteX3cZv
jV0twcu88IQKP5e41Dywc8+ysYw9okJXzNz5MOw4rj8HZPpw/ALF++Ox/eNm
3/r1UCHMdwMzDXvnz3Gbq11UuFIxrZGNbRgw3DrbTgVU1O2Zgy070q+kfpcK
bPsC5JfNu6vzwuFWKmzSNcnKwl6438jT2ESFMTbx4lTs94bXjy01UOHU4Sjf
OOy+utIZ49tUkGPz+ByKfUuuYO/JG1SwHWEYLMdbdD7zUfd1KlitdvSywU7Z
eApx1VChYsftQ9rYYaeO1thUUUFxyPWgKPaexUNi2RVUGOItOrAK2/SQD+N5
KRVmOHbFvMP5K89gTzMroYKjdtX6NmyOqoqkOxdxvbSy+Quxez9MxRUWUMFc
/2WLLbbCmvRY3jwq1FMvHJTBztikeCT+LBU+F3bBb1xfO7eDYd5ZVLi87ea+
c9i1UXyHXjCoQO+17fTCFjhbG2SRToVa6u1ZJeznj797KyZRIfjnyLVm3F+u
plHOP2Oo4J3VltOK+7PJk+Tge4QKlMd149HYovGN9kORVPDNGlBTxx5p+mvZ
EkqFnfFnZ4twv3upxhsm+lFBKWC80APvh04bSb15byrwhJVe4cGWC2rX8vek
gsH7sqkGvJ8my9aqWO+lQs1Ugfh67AMiqZJCu3C+rzjIZeP92a9LF0+yp4I+
v0mGCraqUx9lwQbnX/GF40O8n79n8Qi9saAC+/lDsquxo9hPs5caUUGLdgS5
2DPRibmCzxp0KniyK3TdxefJe17DyTIq7j8WzQvm2NsU334gylLhvp2Z5CN8
/rD7bRr5u4kKzzM5tzzfzkTpby4/6SBQwf38cY1nFkx09n717V2rqVASMJOW
i8+7lBv/MgdYqPDx7cUobuzYC7aBO5bkIPMli9WJrUzkHf5N3O63HChMX7ru
twXvr02aKdtn5MD8mGcLFZ+fTyKb3UyG5aDgfNzfw/j85ZbrXaVSJwduO58S
HNSYiJVf5FXNNTk48IrQfUUVn89/g24pVssBgZifwIL9+ilPAL1CDjrzX0mX
KTNR1bEdA7IX5CBXQnbdhAITmQ8OlYqmysGOha8aCD9fEhInLLk85KCe89iI
GoWJjJK/Xd7pLgfn/bY/cMbPr8XUP/8KdsvBdg7T9FgSE4Vmbrih4CQHfhz/
stuFmWh/gQrFxkoOKlDquc2C+DyrjZrO1JKDDm+lWDZufH69Xp9O4JKDHmaC
hv5f/Hwd2fhx73o5cIk/m6Lzh4EixsjG5Wvl4Nzra0bqvxno8yeFH9qr5OCd
oOG9TT8Y6NWc3W6Xn7IgE/Oz49U0AzWuz1M4PyILSm8V+PqHGShSg/ZQ4qYs
MCdnH5++zUBVI29unKuVhY6G4Ex3/Px/m5qdz3tNFu5S+KqodQy0bXTRd6lS
FvYYvftQV81AAoxHq4eKZMH024ho+WUGqvkUppOZJgupT0pnubIZ6EN+a8k/
D1m4GZlnVhvAQCTTsNSIfbIg6fElXNKPgay+yYV83iML7zL48jK9GeiGWRYa
dpaFuccnGzz3MVD8D8+hWzayIC3Y82vcgYFEbTh4g/VkIe9jTYydMQPtYt11
5NVGWShbPGR1g5+BbDva3lF4ZSHgUvWjGF4G2p6kaLZ7gyxwnjmrb7KBgbZw
swu+WScLlUX/7rWtZSBVUmP120UZCCoPWpf+OwNxq24aHf0gAxzJrHpObzJQ
177PZhN3ZCD9nVvx+ZIMdFfKpYZaLwPm++bWDBdloJaPnYL+N2XgYE1sHf/5
DHQrqGh0skYGPOsDxyLOZKCSqB1Hp0tk4N6qhVVrEjPQ8cyGmpkMGQj50mSl
7p2BdNpOCv3cLwNfE+b5OiUyULfdJRcTdxlYN/xP/rBoBnIYbSlk7paBvhoL
oiQpA4WsnpeRd5IBydFKuwC+DFS51V/L3UoGfpJzPZr+pSNSj7VTj5YM7LDT
T3YbTkcLTwh5hVwyIJP06ezBjHSU5KH+Zmq9DDzcULRwMDkdCX23ldBZJwNr
2yWjAxLSkapgSuXTVTJwJvxOvXV0OvJ3XLzD/ksaHtPeZvd5paOh4ZHhkHfS
MCNZ11Cml47uvK8QMb0lDbcdZFQuj6YhEAn5crdOGgp3JY8Zv05DHQ66rYbX
peFwZ9ezF4NpqL+7x12zShrkRZW8f/SmoY9VU8XSl6Qhb7qt6tOtNCQQrkBb
kyEN3+nBMXX4/f8A23XNNi9pQDODB27T0lCYYdQ6Aw9pIFzxysqSwv8fDhu/
qHeXho0/Lzv7iKahxInHUddcpSFTIezuX740VND3remCnTScnb8d8no+FfWc
UTeJNZCGljCd3x4dqUhKpt5GT1AaDNR6TgY4p6JvEdpFxzdKwx5Sue+QXSqC
rvrZDh5pWF37kmJskYpc/RoybTmkYdJR9t0P3VSUVXXnqdc/KfArzFFZJKci
FrVmR+aEFAzG9bVEvEpBr9DdvePNUmB26Er3okMKOuPce4DhLQW5FWYOcirJ
aMh+fvtqTylwXD/Cwi6XjMS3S9EO75OCQnL2obeiyajS8Oj7PW5S4Ol9NTec
KxmBJN1Z0V4KXsl6lhl+TELTn1M39xlIgcj7aEPj/CS0Od5SkFNQCkzic5p+
LZ5CM5U9dxLvScL9HSOPHpUmosXGakI7YPO5EIvyEhFHX1bYqhZJ3G8Rdt4Z
iUhmxkXxaL0kXLW5xxwIT0RualMXD12VhDb3IR/tLYmou5Ez2e2sJHDkn9EU
e3sSFfVud1QNkARTvd1HYjacRLZfHs693igJ+7POf0m0OoGsczpzA70kIFs/
zf7831ik4VbuW3hvE3A8Mdl2bP9hJCnAlFEW2ARsl4eE9jwIRtGuagtFfJug
meMuySE7GD259LyPj2cTaJ9SCQx1DUbHVUTC59Zvgi0m+qNi00HojXXlvVv/
xOFoaaiYFU8Qyk1udzeYEgfTm4PyLrsDEPe/+TyLu+Jg9+SkkjjZF3lvKwhu
bBUHQeWXkTmffFBzOtpMbxaH/rl6Y3TLBwVSEic21ItDzPwlFpq9D7qvw6/9
+Ko43IIciQNp3ighTOGZ4zlxeO7hELeG0wstTOzj8TooDp8NhirPqO5H75du
wGiQOLynOxx/s24/esjPHuIeIA5jJqbF+17vQxcNqgdcvcVBLeb2A0LyPmSW
uXDO3k0cfv26xDQfc0dntbOljMxw/M36hs+37kXqp9p1yOLi0JD7MrahyAWJ
FhCmckXEIfHB4oVMFxfEft2/QIgsDtsqnih9EnBBw0O8//iExOGfX95x3lRn
FK+4u52dSxzCROLc7WKc0KUrU+enZ8Rgwy65soYoB/TKzLr70gUxOPJmXPr3
Y3tkdMmTppInBqrSvtbks/ao5E90WutpMaApZaU9drNHAdVltq+SxeASpfHA
7wk7tMC/6qVgmBh8KXdkVeC0Q8S3dRNJZmIQ9G2N7unH1uiodo8lwUQMvtk1
HmQPtkYjmSNXLxuIQam4zMFcTmtUvmVDyF1VMVDz2aCy1sIKaVd6L/yhiIEG
y+GdrAOWyCGcyHngqyjo7XU/eoJsju48VAr6OyUKott+F6ncN0OictsepX4Q
BUpEyp+Jw2bow1BIdvmwKAxvFD4S+sIUhRv1kkc78O99Dd71l7eh05zH6Lvy
RKGsznZP5YEtaN7zTMbYaVFIW0rj1FPYgtxarsweYoiCp1j4mztTJkjy0Isb
GQmi8OSI1svEABNU+1zFoDtYFE7PDHjLRGxGjy++t9IzEYW5ztuzD24aIant
9vdlDEXBRfk454aTRijyZ+uWjTqiQPAN51m3ywiJWubrTSji9bx/pWXwBSH/
73bUsyRRqArl4th9yhA1F7aWxAuKQsLDeS9+FUPEa64gHswrCtq6XWskXxmg
W+fZCVvX4vmy3SWMNA0Qq2nrmrmvIuB4u6qUc0EP7fpKP/5mWgRSjaf65av1
UHl+3p/7H0Xgyr3aylQPPWQ9G/6t6LUI+GWN6f59rIvyz9FHrO+LQMmbMznG
zTpIffpcY2WRCPwxvSiT2qOFTuWs08rJFwHz0KQNgplaaMgovDYuB98vvEa/
0kkLHT9jW+GUJgKVCRMRU5OaqM9w3dm1kSJgulZ4KJisicQnwjZ+CxGBQLNP
kwsTGigsezT9dZAIFFTLcRxu0ECkT80JNzxEYMbbKknLVQN5Z4aF7LcRgW6f
RqNTFeqoQW/0s5WFCEQ0vSKZHVNHXB9s/HS2isB8p5jryC51VKsr786rJwIS
sTY86Wzq6N/YO6sWGTx+d1FKTrAass+wuV+xSQSCxotePLBQQ6XazVvOUETg
PvfYqruyamh7eq5e4EYRuH2G9HZ0TBXlatpQSUsUuCUUJVjmqYqO8CqU5M5T
gPg3pZ97iyraM8khRpijwOPva37pSaki6cJOAYFPFHjYYjL1+oMKqmUzZOF+
QoFrHCYbuMJVUM5b8pG0XgrEyVpa7XVRQVENv39wdFGg4lKPhruRCjIKujm1
rokCNfwcDebcKqhvgD64qpQCpvVv7OyvK6Nr1Rz2x4sosL/L6UlCvjI6nfSp
dymPAm8tRa46JyojF/2Su38YFDjYxeM6vFsZfSomV/+IogBrvd/jaH5l9CDm
t1xYGAUGuLlENrIqo2rHweJvwRTQPxKfYzCqhMI5s8/NeFBg6lHVe92LSog1
lOPkhBUFOqaLzWk0JTS+/dM/HzMKdIub3j3KrYS6ZTqjP2ymgGZo/vuSOUXE
GIo7OKZFgaupXakBoIhCbuyd2qdKgdGXoS2s5YrIIcPAe4ROgbT8e/jvgSKi
bP7t+noTBb4Qh7g+71dELJTB564UnN/8G+nIShGN/bhhNyREASHtwEykrYgq
Kw6aDnJSgLdv26IZryLS4vuk+vgHGXZevjh3pUsBkaY6rtrMkmHP3IT99C0F
tNReLPdwkgwN2TuHa0sVUHvkXtEHb8ngFhHWdvOUAiq3NzhnPkSGNwWZq/5E
KqBUOlmge4AM/W8yOR76KyD7kefrO+6TwcRf1fynjQLSuHMjwaSdDNsUtDm1
TBSQ8Omsf20tZFBylCoc01RAb02tf7TUkeGuv1ROpJgCCqzpGKk/T4b4gY42
kx90FCa1mmCXSwb+upiA51N0dPSckdVEFhkiFpJCmkfpKP1EYwMxiQyLE2ul
gh/TUc78/Mz1eDI4z02Ua9+no8IgTRmLGDKcOHpSxqmNjut3PSs6hAz3e5JM
Ymvp6Fbvl+6NQWToeItCI6/QUYsx/V+lDxl4rT82VJfQ0SP5soBhNzKU25Tz
DZylo9l/BVv0Tckwy5QobDlOR/NhQ9EDxni9Eh3Pjh2hI5ZJwvVAfTKIzxJ1
EiLoiG8gS+S8Chl2LF7bgoLoiGTev0ODToagIOL9CV86kmjZkNInQ4Zq0slf
TZ50pFqe9PMvmQwvO1TbL7vRka5IJz1HiAw32WfYG5zoaHPWag9FPjJwlAtx
v9tJRxbrjM91cpLh5K+2ORE7OtpxNPbRnrVk4JuPVT9tRUduXxvZfrGQITew
7NE+Czry9P6tx/hDguRjv4jRpji/tmHlrbMkkHezq968Gee34/obxykS5Dba
NV9AdJSgOyMwO06CIfWr7d/06Sithm6ZNEKC3t8Vkxa6dHRGyj9OfJgEwhu5
Jpq1cL7Pld2uf0YCN0/to4EadFTKPf7Ztp8ENTETb7ar4XzP73WJ6yCBy6vY
P15KON9B55lEIMEXqQBivAIddY4OdV6/Q4KHArBQKk9HDx2F/5rfJEGMVsLk
CyodDfbuUhutIYHA9t3monJ0NGKc7RddSQL/l8/sEmTo6NOt/gsbL+P5dK8U
sEvj+hRZcpnkkaDAwTnKUQLXRyh58/BpEvzJ2zfMs4mO2FM7I0MZJBhJbj3S
KUZHvCxrajhTSBDVklwUI0pHxHDj8eIEPH7wVLGWCK7XZCxZ/xgJHGQKTJbI
dETb22Q3EEWCccXxd19JuH4Dv08FhpHgAtlAjQdb11yrZc0BEnTe42ezJuL6
tYR9L/AjwVTAq6RiYVw/tVqahid2gQz7MIGO7Mtn3Pv2kEDCJZt1UoiOXEQU
zno543qUaQ0MC9LR/iz/vr87cPynFotfC9CR/7ry1TnWJNj2RmlNFPaRrxIH
O01IcENZI1ybn45Cbt9ubTQkQURhsGv5Rnx9zHae6zokqMif/UjBdlkfUZ2v
RIKWSEFuYT48/yOOJSaNBDy3xhMu8NKR+ZkLVonSJLB8ESSiiK296f70QTIJ
lHr47J146Ej54259byESPGA9MTjHTUeyV7+luvKRgHTdr/c0tpAORX7bOhLc
/Xfg66cNdPw+eS1aj5UEHR/d6bnYbB1be5T/EkHxpecxC+zvtgf8yHNEOGa5
k9rERUfTQmsaeL8QofftMYUY7LFXuexrJ4iwvs7vxWbsoUsKTn/GiJDLPXOT
C/uJ792y2TdEOJ1OTxripKMeRcdf4y+JoCVO5qnCbvs+tW14gAjnDBPY47Cv
HRf80NFDBJNdtwzVscu3VWo0dhCBUHZ7ig/7Ahc6eQ2IsF8gdeorBx1l5PpK
5d8igoRCY8Vt7MQ9f0OZ14lALBlpL8COkcq6d7KKCDd6rafjsQOvNe4/eIkI
8bGfF22xPSNsa73OE+ETd5eCNrar/vgq11wi+LiLLohi27NG29lmE+G7dOPS
GmyLbu6LWzOIsJopZDq9HvdPRvGsbjIR+sL+Vgxi6+zUNlJOIEKilE9hJ7Yy
qY8hfYwIJ268yKzHlhvZ95YUTYQgToPPVdjipT8VecOJ0CrTK1CMTQhMjWU7
SISYL1998rC5VcUfLvgTYfMZdeMs7LXzN0RmvYhwM570Mxl7qdk8aNydCBGd
PIPHsX+ceNM05EqEk3yWShHY0+ahXP0OOH/qtVv8sN/zsLt12BFhRKTF0Rn7
1bOCK3e2E4Hv5aXXZthP81X+1Jji/H54/kgXu2dfp8XlzUSYv3igWxH7rqxr
Xp4BEUYtv+6Wwr7zeWaCoY1PjD3nJMnY1+sSdE6q4XqzWFVsxC5C1S8OUIkg
e2ybJCt2LpuJnJcUEcJvLkj/ZqcjxoPBwy5iRFB9cYhtBjsxM7DLhoTrx92B
xrBjHVcRtgoSgVV4q80z7AiRHG9dXiI86hF168QOGqPdUuLE8RNuODVge1a0
skmvxf07ZSNeje12YOcu0ioiQHRuRAn2e0/nkkt/hIHTSS4iHzvQZc8c7acw
KOw2r8nG/m7jsbluVhjMO5X60rCPbPXN1JsShkkW3chEbFa9oJF748Lgqz+y
6zh2inKI0vYRYUgpL2aPxt4oczh2YEgY2t3/KoVi55GP9rk9EwYpwXN6gdgS
fHGU8UfCsLfpKr83duXaxICgHmH4uu1kvTu26mLKnR/twrCnwIPqht3wlbE+
tlUY3LLCvZywjT6edlp7B8dr0R+wC7v71bmyjBvCwEg5qLcD2/ZJ4U+hGmFQ
EdJ9aof9oqt464UKYchf+qmy7E+1V8dqCoXh8tTay8v+df52HGQLw2Hf0Vjb
5XxnN/WbZQiDzvogJRvstcltYo+ThOHVLp0YK+yM2M5g5xPCEHx+W4wltlDY
g+Z3McJg4mu+1Ry70K+fyz9SGGZP10xtw5bZ+8z1W4gw3E0uObUFu3rnUGV0
kDDwHRFU2YytYfH2N6svHr/zJosRdhN6b5a6Xxj+eq3mNcTeojFxln+3MPiF
WkbpY/fSvnzIdxSGx/erHfWwd4rPaUjZ4/zWy3TpYr8SnE+o2i4M+n3J75ft
yfn3qbqpMOg2MvuWr59mYZVsNsb5th8uMsAO/bk2ZKu+MFyXFN63PP/CFGdb
n6YwhLX//rAcX/w7Xl4HFWGwdan9uBw/x6Dg3jfywuB5UPDQ8vqyeknV3jLC
EFMSmmmKff2S4uQpXhy/brvccj76IzfLVCwQwNz8mdKynYJNw1V+EOCMSkbU
skc8trc3zBCgTPz1WgtsX2c7/s2TBOjeYTC97Blrh/097wmwcKbPcPty/29x
vW7/lgAyPFN/luuxpOPOMvySAE13M04v1ytRycvGY4AAdUeI35bryS3tXzj1
kAA9P3lI9tg5pAOfQ+8TwHAfdeNyv4jwhukv3iPArXjbkWWXsEWlJrQQgO1z
ScpObPqfmCGuBgKMqRwlLPeb/odTkSLVBDBdEp1btuXjTCHFYgLofd5e6YCt
u8fi43wuAeSq1HwdseWmWOvvZRCANukcuNy/F1T2ilckE+De7q/czsv9E9mY
lJFAAJ/kd1eWvYYtzNk5mgA7w+YfuSzvP8v+NsNwAiRKGDm6Yn/LpNOkDhKg
yi5kcNl+L5Ky1gcQACiXbJf3y4jo+MIXLwL01o/dXfbDK+cfNLgSgDT2LWv3
cn9pOxQk2BFA7ZST2R7sXPsuA5IBvv5jgPde7LBA7bc1cgRoWDostbwfbRMr
jm8VwPXaqZe6bHoRSWL4nxDUpS6ULPv900XPtYNCsA8tSCy7YN3bMpVqIeCr
BIHl8XbqtU26nRSCrDpD/uX5uA4UKyS5CUF/3p6R5XhSLoldDmwShF1kzUfL
v7M/z6fYUQThksOv78tO+yMSfyZYAHp66juWx+PbVPTxJfCD36ULysuO9eSK
bBPlB1sJM+qyp8si2SuObgS2H3talu93fz2ZONvLB3lnPtYue2DjbjZtET4w
IX36f6t6N1RLRPHChvz/LBoqf41UyQOzHv9ZYKxnaI8vN8j3/Hc/xw5/tmKZ
DRCa958rr16QbiRvgMwVW7A/2/qUdwNcXXFKM0pc/YcLRlbMKSe4zvMRFyjk
/2euv63s0pFcELhi7jJBrrL7nNC2cj3fH9h4JZADYnL/cxN+tUHv1sGJFcex
DurvFGOD3BU3H23cvc2fFdpWrPOauTOl61/rrxUr2A3tPmW10Kp67j/73Qhr
Oa/8o3X/ijP1K2MPKMy2bljx6wrRPXHR461fVu63CxEcrip/3hq34msfFBQ4
rJ+3/i8ebtdtx3zmnrUmrLjH5LCkhOGz1qQVbxF8GXD26dPWtBVr1Rcsxi31
t178X7yLpvrV5Z2tAivz/3wfOeI719FKWnFtX0WCpGFHq/iK6Rc4+3Kf3muV
X7HY5ke7TyxBq/GKOXivLl0rv9UavOKEd9ymMoY3W0NX/Lf2ICP/aV3r4RXP
7lIXT1y61hq94iqtwydulZe2HlrxhSFdgYtPi1sDV5wVs1SSulTU6vO/+xM5
09vKc1rdVvy8N6s6Z4nZ6rjiw9LqRYPlia32K07cf7JzdUVEq/WK+cxPFcrx
57RYrvj/AJXAcMM=
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJxF13k4Vd/3OHARUQgJd+IK18W9SJKpu0WUIVOUTJGhZMxQkpQSwkWozESE
JJUUGVamEKWJokFExihDQvzOfX/fn/fvr/O8nrXW3mevvZ7zPEfyiK+lGzsb
G9uPNWxsrKdxf1WYlrgyiHSu5lvJTTDGyMmRv4nKkM45kOFrMsGIdvaKf0BQ
Bre0JwUPfScYLQPi2Qo4ZThy6UNNY+UEQ2foYi1BWBkexdJuThpMMtTG9i0v
8ShDvPfGoELfH4xdI40zweNK4HglHYT9pxlhHic5fo4ogfc5rkNRkdOMmjHq
Jo9hJVDzOjAmlDHNUJtkqhz6qgQNNSPeQU3TDNqvgyc0epTgapWgtqfYT4bI
8viPPw1K8M1/Z7Rq80/GxEbhsZB0JehYU2uH2zbD+FUUdrrmuhL4BIa3jpjM
MH7vGuVeSVECcev3O3rdZxjsgXWy4QlKoNx26rlUxgxD7P0xt6gIJaCFXIk/
wDnL0Mut7U/2UQKCRHaAc/8sI135aE+prhJI95UEmt2fZ+S2vXL/gZSAo18X
/6hrnlFwRHteaacSvDvanGIwNc8oTxHc/GAHVk+ZevWJ9pvRsvDEsoqmBC9d
lpd+Ff9m/AKBF80iSvDs2V6rodsLDEOL6qbPY4pgq+Hm6dy1yGhJ6uo3HVEE
9r/WHm0/Fxm73w4v1w0pwm7Ri5y2m5YYjIObtuf0K8Kb6AM9cweWGCoOXgWH
uxVB4HCgFKl/iYH3EI/sf6oI1e9xa6wXlxkT5y/sGUhVBOJzfe12s1WGR0Oq
i+U1RUhcdVQuPLnKGOa4e64hWRHY2OdJ97JWGf2RfY/y4hVhcNYVrCZWGe/i
VKkuEYrgpdVwdUKfDdWlDnN/81WEd4N5fRxjbCih3Kh9yEARrF9eFjHUZ0fZ
9QJNR3YrwvWjd9y87NhR2Yvu2i+7FCGVz6+z+AQ7ejFx5N4HbUXQfC7qGJDN
jnjlzqR2qihC3FPLF7v/sKPoG7fdH4orQsZseMzSAw50PomX49I8HVbD6A4p
DE6UeOP18ppZOuyJ8X6lZsOJcspT58N+0kGV/PDA7xOcqO6F9FjwBB26BXaR
3hRwouX1O195DdAhYFeO8x9+LnT6oneO1Qs6EPaVxUl850L+gS+0pAvp8PI6
+4VXd7mRUYbJw+P5dNjm/7uZrYsbSTa0K97LpUPboefvbKa5UdfGZ5KMDDrU
V5RuidjKg5Ru16+zSaTDmx/hHJ0PedDE1/I3sSF0yN0QamPdsh4dNUv2nDGl
Q5DyivITbj7EOCk4pGFCB1pYxvfjinxIJCvB8bwhHYYlRHYZWfGhlrFYC77d
dNj4IbMtNZcPSUdG7JDVoIOWm1bdGS1+NFATxGEnRYeCqMba+JCNyF7eJqPh
Nw1+H/4l83ajILr9J/zGjjkatC420D2kBdFi6+1bpb9oUDAbdFJEQxClHV19
cG2SBv066drVRwRR983CjuODNOC94NQo90gQWUjM/RV6SQP9rMjzDa5CyEA4
ycmlkAY91z0X773ZhK4OPnF/n08D8oJp1OXxTejb/SGvfTdoEDbQtP0shzC6
aKFxekcmDczUWs5WbRNGEN9/ZUMSDTKvNJ24fFUYafIoNT44SwNtww7LAsfN
SGnlucxaaxowk5uLn68TRQZDd27rWtJAx4VHsE5GFDl2JGwNN6PBJ3z6aLee
KIpL379zxZAGNVRSVeh5UTSm1me1wKABXXKtT/aSKCr0Hbs4QaVBvoWi5rE/
Yoj4lXvg7bICREQOV6UKE5Bq69jRTYsKcF1S+PfTHQRkfLdj0uK3Agg82JYj
ZkdAIWcT/7z4qQAf8zkpZnkE1IMTE2wbVgDyYOvn7ypElGQpq1PbpQCtDeNr
2BxIiKdJP7vgpgJI7KmVyOqWQPeDe9b8vKEAv+qPvFJelUD2dA837RwFmFqH
ti9vIqPya3G0N2kKkNFRvENoJxnZeLypZktQAA9NXP2ZRDIq5HfusTutANtP
+ti7akui3YdCBYRMFSDY7e6mq8Vb0A8+/kAHYwVwPLZLz+3pFpTakNNTtFcB
nP8+U7L6sAVNKDRmIz0FoBTnjsTzSKHkFR66t7oCRD+VuxzqKYUG8q8btm5R
AHqKUoLjdml0/sf9C2G/5UE3K2RtyIAMyjOe9l+YlQe9lLTtV5dlUGMR3cX/
lzxcVz1L6hKhIC6XIj33SXlQeHCtosCYguJ6staaDsoDSXNtxNtKCkqF6EjS
S3k4dX9Swy1ZFpUnOcbUFMpDQJCUxgV3OfR6KiNE7aY8nJhP+jEcIYdmTD4c
L78hD37d7O/88uWQ2jor45uZ8uDY0jUz2y+Has4Y8sYlyUPmZZ3qRgd51Oqq
Gm8XJg/0/R7TBY4KqF9tfdKitTwsvNkLn8PoqP326hrGfnmISIzu2FtARw/I
cyfCzeXh5kyj2PBzOopc32/BbSwPZyazLz/BKSL654eCIjry8FvvcOKHR4oo
5JLzla3y8nCOfihSckUJCb99nHhsRQ4oFZJ/TtpuRSt7y9hKl+Rg4Oqsv+yJ
reh7bb7f1IIcTDjrG85HbUXVt+LNT87Iwf6rpLtTD7ci5zOuAhEjciBEmBy2
3qSCyrYIJOa8lgOuQcaS8FsVtOfE0YTuQjn4OESuSfBRRUXx3HF7b8qBu/Pk
7NUoVbS+tDi6+oYcUCVS/J7kqqKO4fHw7Ew5UB9MfO76RhVZ2PsFuifJwYO4
WZvtmtuR3Z7Th+bPykH/Iae703xqyJcUKyViLQdT08GHp1/sQF2aNHK0pRwI
nhwNp0/sQCo2ncRFMzl49SVCLIFHHc0mbRT5bCQH+qdLrWC3OjrNncJdqCMH
7RPn577UqKOLM5mT22lysF1z57hWhQa63lb2yJpDDqJOpDy6B1oopmL1yls2
OTg50qGvMKCFwnLMvfavUCEQJV7v5NBG7kG/yBZ/qDCSOWPA3KONVCXVYkym
qJAmXym30qWNXgfX2uv1UUHlFJ/Bq/GdiJ/asWbrAyokntwsbyGpg9g3kT7e
LafC68tnJttVddD8X+9KxTIqpEcvGdnv1UGf3mz0pBVTYZa/TrfFVweVntv/
VjaHCojHU7m6XgcZ9vQWisdSYaP8uXpN110oInLUmNeFCj+Tvzw9DrpI5/Kv
AisnKrjrhYX+fa+LlmOXVjMdqMB2lPNg+U9dFHCFr4JuQwX1DQW8p6T00JHM
rUSzfVRoU10ZjYvWQ7vun564soMKugdSz63Y7EYrn3iYorxUkAriR1LCBqi6
X+j7YR4qaO07v3vDVgN0cpCwq4gLq8efbRMzNUCTI/Q59TVUOJGksL4g2gB9
nLFwsJ2XhUfJr4OjVg3QE550ela/LKTO412yZveg4O3yL7Y8lIX+5Kj0I38N
UWn/54q0+7KQduVhhgDJCH2JTc4QKJeF3zsOZn3TNkIGA8vHVkpk4WOvj/Fq
qBESTnjJ0ZsrC6G2UX85Vo3Q3ZFAjStxskA9bxfjt94EDWfU31x1kQUnW09p
Ph1ThN8TGHvSWRbWfpvx7HI1Rft+Uf0nHWXB1eeeXf1lU1SxNwn1HZIFyhOu
afJbU3RhzrW30kwWvpVfwC0cN0PiZusFfLRkgeR4SDbR3BxZs1uf+SgkC8uK
cT8OpVog8+anX4kCsqChD2f97logk2jFvQ58sjC1RHC/2WKBdvNzb/68ThbE
lJ83u85ZIBX8k7IvyxTYkiTpaGxlifhVJAcGhikg9gMf1ym6Hz1zntw7Wk2B
xnId2VuVVqhB2vau3GMKyB2efFT6ygrVfW/ZfPwhBaoXyPxvJ6xQpXfuwNhd
CrTiv6ZHS1mjm6f3h07cpMBwR6QsM8kanb9SdXcqngIn13Aekz11AGk8vSQy
f4QCYw61+lV2NqjVIs9Wz4kCmwKCJstCbNCBgbrsRAcKrD42aW5Ls0H+HAsU
BRsKfA03euH73gaV6B/f4bSPAheNbu6+ePAQwreb2rTvoIDtAxflEXtbtPha
ND2blwKQ+vBR2SV7FO2i+nmchwIeGxpM04vtkcis+RaNdRSgPOTdXt5pj1Q2
x5S8WUMBzZ/eyXYiDuj4weVq7t8yoP5pVeRhsQPq7evv8/8qA04Otkeuv3dE
1d+KSXsqZeC5YdQe8VInBCT/Hw0PZECqnWYQUu+Emg9o1jPuyYDvq8QfY6+d
UFdru5NaqQy8kFO+uH7RCX0vHc+XyZMB868yt3cbOiPhILr82ngZiDRknK8Y
d0a+nPfUnrrJwLHYMc5VHRcUyDi9bqeLDNx1p1wSOuiCQk7tev/YSQYSyvP7
tL1dUOToq9PldjLQNHbGujvNBWV2/qrJsZCBzVP+PuKzLqj9qqpe2E4ZUP52
tknojiuSpjw209osA1kT989xbXVHv06q554XkgHtLr4XaibuCJ49nm7eKANl
UuwXI466IzuPqivm62XgYO7WU8HZ7iiptPqN26o0BPN3DjbxHUVs22oPJo5K
wwfcaCj7r6PoI2o4PFQrDeZNSjMZrzzQ1UMdvgnu0jB/SWvnkZ/eqNdywYTD
VRpk9LN56UI+iGwiLX/KWRrswjg9N2/zQSWM0G+O9tKgb72THQX5IJCiHVK0
lIYUiwtd84s+aGIyVrdzpzS8N3DnWMPlh3QvGG/esBmL/81gOG85gaZK2qsj
G6Wglj+zS/RyAFp+UibaBFLwTESmZDk7AK3vTApcUycF33wPp89UBCDKlK1i
6GMpWJ3TrhL9GoDst43fOHFHCvLbuOrUNQNR65MNl+2vS0Ewd21971Qgyu0w
OajiKQUXW12DQ46dROY/Xsx8EpICMHl/xoh5Gplea0n1ctsC3F6q4wyV82i7
fdGx7EZJyLAuFu/KvIh90xIpysKS0LRana+/LQqF2G1bzBWUBJfGv4J9KAq9
zuvuFNwoCV8pqRLHTKLQ+a2koBkeSYhsKivB/rzQZ9OSxspVMqh/3ZbCdj0K
pV5ucto5ToZFSfePQQtRiH91Id2ogQwi5hx5XQ+ikbtBps+TejI8LfXWka+P
RrVMpEurJUO2RmJUcHs08iJGjvI9JkPKKaO7v/qjUZvGJvVXd8jQHTg6Zct3
GUUE0t8dTCNDdEgF55jLZbQ46rzRzY8M44V7Iy+si0HfVipgwBvLdxHywAvG
oBebuP2dPMlwuWxgWwE+Bt3YWfbWzp0MzotHDZPpMWjvlcU0S3syHPwkQO6y
jEHX1ZOldfaSoadpNqAxPQapRjVpEMhk4PlgvGhEjkXimaLjqSQyMEJnQIEa
i7jvHc8UIZDBO0HUekUpFvX1CqwKipDhy5kPI8EoFl1QdGji5iUDVW27baND
LMq7PZ41MSUBRzQ/KxRfj0Uf95q25uVIwFTAz+O1bHFIJ89Vfmu6BOgXsd0+
tC4O3VwKiatPkYD7Jh2GQ3xxyLPslvnHyxLw0WddTTs+Di1uWvNhc6AEcJ2N
j3u5LQ7hvjwYjd4rAQaeTWzPj8ShUPV2Y1E9CQg1f9DnfCwO9V/pv1OwUwKM
CB9aR7zjUNFuPv8GFQlQDQXqs+A4pF7ivrhElAD/yHziM2YcOhCE2+D7UxwO
LT18+7UiDlW/UPL+Oy4OpZwSfOFVcUicavAydlgcBqXINoJ1cWi41z+5qE8c
PB4HneZ8FoeCdDoIA83i4H5saxHjfRxK2XCOZp0uDnVVMuvWLcShBder8YMp
4uBgyPPp6VIcsq+7PX0iQRwKL+/S9V2NQ1In3lfER4jDzEvzbze4mOh+99ad
rT7i8KGooPeYMBO9uvFtn5aeOIz7J166SmciaRPLNgpDHB5GvZezVGai4Pn6
3UIa4vCY1Oy5dhsTiRtnaI0qikNV5lcVI3UmOj5rIXcdLw6dbnJODrpMVJtd
f/PCZnHQ6Uq62LabiQQM6WQfAXHYM5s6p7CHiSqzuEX1ucTBzSaU+taYidj3
1K+d+UmCZ5V3CiqsmMj6J+385wkS8L9snH53gImKMtKX2r6TQOvge90fNkxk
Oh30K/cTCT5HxtqudWCijDRav2kbCQr7FFTbXJlIdSLtSUkuCX6++2zd5s9E
UdfW7biWQYI441PG7oFM1KsTdD/8GgnsTFJhKYiJzl81L7aJI4GcTnawwGkm
6mSsu84VTAKFeMfSwTAmIo8GCv3yJ8HSbwZuz3kmCkweYH7yJsG7o2lt+eFM
hB+pjahwIUHlp1lZwwgmcr8S6H/EjATkEC8Zg8tMVKU1MLnPiAT6+vdrg2KY
iHfYzENDnwR7NQb25MRi96Gp4CSgRQLf8TMX+plMtDr4dV8dhQTn9DoukJKY
yDLerK1YkgTbBhraxZOZqFC9dvdVIgmMhVtL8SlMZMJM1fISIgHR6NN19mtM
lKpmJodfIYIqY81oShoTnRGg30xdIMKkMTY56UzkOLZeQnSGCDp5u1NdMphI
JrtFWHiECHkPbQ4Qs7D34WSw8b8mgsITgXrTXCa69oVwJq6DCK9zuNr5bzDR
6ao/c+ufEWHW14+zHbOO98PxdTVEcPAItVTJx/r3ltazppAI3jXfqjsKmKi8
bL3l+VwivCKeSD9WyEQp0SMdK+lEIFS/OcB2i4lstW82LCUQoTm4s0qqiIlG
8gllc6eJsCVvfYZ2CRM9P/uHGhhIhE2btz6qwlx2sCf/lw8RooO7rbbdZqKg
DclpUy5E6F9pPE4sxeYpYP2l0X3Y+cIPrm29w0RDJiOrR/cSoWXvKSOFMiZq
pbSEDOsSYcKjqSQWc0JvuN/gDiJcUro2rXeXifwrDo87qxDB4OziTAbmA/E7
3ftpRBgX3mX9EzNR94/dJ0kieLRreqWUMxEbsafbjkgETYN2rQHMg3MVFr0i
2H5fEm/Q7zFRSbHfnp4NWP/1Sk7VYt4hOKLyao4AP15+ed9wH5uf8eY7ZtME
4Dib/mcF80pTPvXFGAFcJOOkNB4wUVPwYfHnXwhgNjgxegtzkeXONMNeAhRK
f0j+iDmWRhBufUuAxD8u3hsrsHnp7+ZpbiPAy/eaAn6Yt1dXROg1EUB3eHJD
NmaxlKTVp3UEUODdFtCO+cse07m6BwQYGCWniD9kIq+7zf2Ps7D8AuctlZgD
pTlELVIJ8HTEhuM95tA0nX2jSQQ4KE+tWMDMvPikChdNgNwZsY9qldi8LCxM
3btAAI2GSGsrzNneahSjswRIaj9Z6FfJur97SSH+BLjaZC9eiLmy40erkDcB
Rn2/+9RjrttFWy05iu13RWasB/NLhVueffYEsDPMkuZ6xETTq5m7tfcQoKVA
MNwG80Jgb8jbXVh+71/kiZltTPSelzYB1psdVjuLWfBtEilrKwEojx24cjDj
Dbv2b6cRIPVD22oZ5i11fDGdFAKQ85Y96jCrFEXP/yUQwGam16wPsyaphXZN
hACGHoafRzDrJnG4KAoSYKPt5NAc5v2hYS8duQhg2XbvEv9jrF/mgUX103gg
l0asaGAObb73+eA4HqYNzjXqYY7QnBKeHsID56t04j7MV6WPh5P78KD8mnTb
EXN22q1Hj9/hwdnLcsAdcyH/0KR5Fx4mN3XX+GCuXDhsG96Mhy0CHwPPYq7z
zkrEAR7273tuFYG5ZaC35V41Hvx+4YZiMPd0WG8buIvtxyVDv465f1eyR0gJ
HrYy9wxnYh6p7MoRKsADo67UNg/zQq4xr146Hg6uzYkpxcwmclm3LwUPh2/v
M76HmTu2JTggAQ+DN+S7HmLGBe0ayo/A1v9ioVmHectYGEH7HB4cukWoDZjl
D9dYvD2NB8OiwMFmzJqGO+rW+uJBNUvxVQdm3brA2UwPPNxRtuDtwmy07b78
dlc8sM8rir/BbEuiX3c7hOVbJXa8x3wk6Xjn3/14kFid8uvDfHxdEcc1Uzw4
ybj/+IT5zM8tfi16ePCZ3Ok1gNn/0aP6Jww86AWK+n9j5Z812XhPAw+z1vZH
h1nr85wsy1DCQ3r/vMAYZsuX61cS5fHQpvT36Thmw6s5+yJl8HBgrdihSczq
km0TfgQ8FOxbsZnGrPzdQdtdBA+j7bSGn5hl7/yKtRPEQwm1X3QGs4gGUcFg
HXafTZHhc5j5V8tDtNjxEE9uzJ/HzNms3678FwdqAQPVvzHPmvt6EGZwQHnq
UP0H84TI2iqBHzhgit3PXMQ8+DGVm2sUB54mpj5LmHvz6DZLgzgIb3yjvIz5
9bGGW9OfcXBTTHKI5XbFg7+HPuDAPpUY9xfz09lxg763OLDzrKCsYC4/v3m4
uR0HPStpmquYiwxKtj9pxoHr8MRDlnN40aVywEFD2zCVrYqJ4lOPSWdU4mC8
QH2R5UjHvwGJ97D3K+2zXYP5rHRS46VSHHQq1Dxi2av8yRG/PBwUNal4smN2
PWl+3y0LB+ZDh5tYttMeWmOXioOF2QVxDsyW7CEW5sk4UH99JJRlo1b+G/rx
OHB5t+sdy7rx+dOal3GwfNNRYi1mDSt1HeUIHEStKbRnWRnfmSBzDgcbCykJ
LFP7nb/gQ3Bg0rv6mGVy4byiQBAOrj53/siyqFdsGKcfDhy+M5dY5lchv1g8
jgOnHT1inJi5FipI02448K7PU2N5pdbQe8gJBx8/Hj3I8tzFzzW9dlh/bpWf
ZXnCMIC36wAO+qzxpSx/28ht32yBgx051kMsf3yXebvaBAdrn8aRuTC/ydi6
dHcPDk7o8+9nud25xahAF+ufy94wlhtk7dLTd+LgjnRlPsvVk1OjCepYPw98
bmL53oMIjUvbcODWuX+Q5VxU9t5XDgemAXfF12FO5dSjuknj4ELJHwbLCc97
TtlK4KC65pALy5FXvJ6Z4XEw55fHZDns4BpR/c04WJWpqGf5JOmau6YADh7z
HZ1j2XtQvlJpAw5+IBlpbtZ9FtdzynDhYCzZ34Rle18ra/waHNx9KevL8jfX
QzfzlsTAbyg0gWUvW8cZ+XkxUL3ieZvlWTMX3QfTYjDrLt3E8hn9Y1e0xsWg
XG6gl2V2Le/+xiExCOUam2Y5RtlfyaRfDIq7YtfxYBainAp72ysG0mgLmeV0
Qmin/TsxeJRK1GB5i2A4ceilGBgbaJixXMIV6endLgYndp06wrLKckz1XJMY
nFP+4M9y1c8EnrB6MbjDe+Q8y60f027FV4hBAGk+ieX3z/L1c4rFQHmjZTrL
v7MehUMydr7F8UyWRQKf1349KwaMb0OVLG83+vKH/ZgY8HbR3rNsRZ7ZLm0p
Bp8WJ8dYTurAl7lTxKCbylvLclewLqV4URT25qs+Yplf5nj2+AtRWOSSuc6y
8asrIor5omCYVR/JMi0Xv6VvVQQkewb/OQ+vbz492l4E9qNuL5Zj8iQKvGo2
w53lMx4sc3dnEC2Im4FkMXuM5bgl0oWrPsJQQONyZ1lQMvf7B9gEDjOkf+Jh
rrzBT8U3Qe1+9X88cSuYuzhUCLrPP/5nPadPY5HTHYLwqeLrP34r5MCpThIE
tgf/ZxX3qrItpwVA5d7/WTxAoRxfshEW/rXwYHuv4zF+IP9bv37/cc58Ch90
/OuSOzkyTwj/30bc7/TfCPDB838dU4siOZZ4of1fb6BuXuf6khfa/jXv33pu
mWBeaP3X/Lc2895q2/BfvuASCN32Wg+v/3UNHp6jr+vg1b8OZ+/RtpLg/M+1
oU8cDI6z/2eNT4lWMc9W6/9XT7fodYjat1j/v7hHRWBdlvLcf76iXRLmS5/+
L/9TsbhjeMjQf3EL/819pUXd9W/+9Y7HmcvhK13/WWN5j3ZZUct/9esF7qyU
F1X+Vy9oGJVN3XSt7n/+f8DT35k=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-17.729904821325277`, Automatic},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Nb (\\!\\(\\*SuperscriptBox[\\(\[CapitalARing]\\), \\(-2\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Time (s)\"", TraditionalForm], None}},
  FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
      Charting`ScaledTicks[{Log, Exp}], 
      Charting`ScaledFrameTicks[{Log, Exp}]}}, {{
     Automatic, Automatic}, {{{-16.11809565095832, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-11.512925464970229`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-6.907755278982137, 
        FormBox["0.001`", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 3.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.70805020110221, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.995732273553991, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.2188758248682006`, 
        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.01, 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]}}, {-6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-4.605170185988091, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.70805020110221, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {2.995732273553991, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {3.2188758248682006`, 
        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.729904821325277`, 1.6118091703669588`}, {
   0.000013428424722383827`, 0.01598582258353098}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{
    Charting`ScaledTicks[{Log, Exp}], Automatic}]], "Output",
 CellChangeTimes->{
  3.6337459131986427`*^9, 3.633745961238697*^9, 3.63374609872363*^9, 
   3.633746210583475*^9, 3.6337471474059563`*^9, 3.633747245103385*^9, {
   3.633747424442539*^9, 3.6337474281725197`*^9}, {3.633747476235224*^9, 
   3.633747504313284*^9}, {3.633747674844694*^9, 3.633747699075255*^9}, {
   3.633747755706276*^9, 3.63374778937049*^9}, 3.633747893012885*^9, 
   3.6338040596748047`*^9}]
}, Open  ]]
},
WindowSize->{1193, 832},
WindowMargins->{{1, 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, 32557, 685, 1692, "Input"],
Cell[32982, 702, 1211, 32, 74, "Output"],
Cell[34196, 736, 1395, 37, 62, "Output"],
Cell[35594, 775, 656, 13, 35, "Output"],
Cell[36253, 790, 657, 13, 35, "Output"],
Cell[36913, 805, 1091, 28, 56, "Output"],
Cell[38007, 835, 31067, 589, 308, "Output"]
}, Open  ]]
}
]
*)