(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    200672,       4090]
NotebookOptionsPosition[    199220,       4041]
NotebookOutlinePosition[    199777,       4061]
CellTagsIndexPosition[    199734,       4058]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  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[{"**", " ", "define"}], " ", "function", " ", "that", " ", 
    "performs", " ", "parameter", " ", "substitutions"}], " ", "***)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   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[{"nc", "\[Rule]", "nc0"}], ",", 
         RowBox[{"Ap", "\[Rule]", "Ap0"}], ",", 
         RowBox[{"Ac", "\[Rule]", "Ac0"}], ",", " ", 
         RowBox[{"T", "\[Rule]", "T0"}], ",", 
         RowBox[{"Tg", "\[Rule]", "Tg0"}], ",", 
         RowBox[{"P", "\[Rule]", "P0"}], ",", 
         RowBox[{"Z", "\[Rule]", "Z0"}]}], "}"}]}], ";"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"refreshSubstitutions", ";"}], "\[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[{"sol", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
          "chemisorbNumeric", ",", "physisorbNumeric", ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Nc", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"Np", "[", "0", "]"}], "\[Equal]", "0"}]}], 
          "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Nc", "[", "t", "]"}], ",", 
           RowBox[{"Np", "[", "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"}]}], ")"}]}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"chemisorb", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Nc", "'"}], "[", "t", "]"}], "\[Equal]", 
     RowBox[{
      RowBox[{"nc", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"sc", "*", "F"}], "+", 
         RowBox[{
          RowBox[{"Np", "[", "t", "]"}], "*", "kc"}]}], ")"}], "*", "A3"}], 
      "-", 
      RowBox[{
       RowBox[{"Nc", "[", "t", "]"}], "*", 
       RowBox[{"(", "kD", ")"}]}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{">>>", ">>>", ">>>", ">>>", ">>>", 
     RowBox[{">", " ", 
      RowBox[{"INPUT", " ", "PARAMETERS", " ", 
       RowBox[{"<<", 
        RowBox[{"<<", 
         RowBox[{"<<", 
          RowBox[{"<<", 
           RowBox[{"<<", 
            RowBox[{"<<", 
             RowBox[{"<<", "<<"}]}]}]}]}]}]}]}]}]}], " ", "*)"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmin", "=", 
     RowBox[{"10", "^", 
      RowBox[{"-", "9"}]}]}], ";", 
    RowBox[{"tmax", "=", "100"}], ";", " ", 
    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", "=", "1"}], " ", ";", 
    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[{"sp0", "=", "1"}], ";", 
    RowBox[{"Ap0", "=", "100"}], ";", 
    RowBox[{"Ac0", "=", "50"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    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[{"nc0", "=", "2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{">>>", ">>>", ">>>", ">>>", ">>>", 
     RowBox[{">", " ", 
      RowBox[{"END", " ", "OF", " ", "PARAMETERS", " ", 
       RowBox[{"<<", 
        RowBox[{"<<", 
         RowBox[{"<<", 
          RowBox[{"<<", 
           RowBox[{"<<", 
            RowBox[{"<<", 
             RowBox[{"<<", "<<"}]}]}]}]}]}]}]}]}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"evaluateEquations", ";"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Plot of coverage vs time:\>\"", ",", "Bold"}], "]"}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"Np", "[", "t", "]"}], "/.", "sol"}], "]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Time (s)\>\"", ",", 
        "\"\<Physisorbate concentration (\!\(\*SuperscriptBox[\(\
\[CapitalARing]\), \(-2\)]\))\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
   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[{"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\)]\))\>\""}], "}"}]}]}], 
    "]"}]}]}]], "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.632605353408896*^9, 3.632605445730019*^9}, {
   3.632605487798403*^9, 3.632605578481612*^9}, {3.632607194628903*^9, 
   3.632607198639159*^9}, {3.632608185261039*^9, 3.632608185637241*^9}, {
   3.6326141501036882`*^9, 3.632614155971036*^9}, {3.632964367787038*^9, 
   3.632964368776058*^9}, {3.63296440778859*^9, 3.6329644552741423`*^9}, {
   3.6329649201338797`*^9, 3.632964963494658*^9}, {3.632965023559545*^9, 
   3.6329650359234*^9}, {3.632965107843595*^9, 3.632965108446959*^9}, 
   3.632965171477631*^9, 3.63296523499501*^9, {3.632965764224411*^9, 
   3.63296577118885*^9}, {3.6354408760007353`*^9, 3.63544088342942*^9}, {
   3.6460025991727247`*^9, 3.646002599833515*^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[{
        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.63260545060371*^9, {
   3.632605500657023*^9, 3.632605579640006*^9}, 3.6326063366863823`*^9, 
   3.632607203805195*^9, 3.632607755290908*^9, 3.632608195634699*^9, 
   3.6326141569884453`*^9, 3.6329644610109863`*^9, 3.632964929441139*^9, 
   3.6329649709263287`*^9, 3.6329650438586187`*^9, 3.632965109157509*^9, 
   3.632965172263479*^9, 3.632965227261862*^9, 3.63296540026888*^9, 
   3.632965772485042*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Nc", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox["ED", 
        RowBox[{"k", " ", "T"}]]}]]}], " ", "\[Kappa]D", " ", 
    RowBox[{"Nc", "[", "t", "]"}]}], "+", 
   RowBox[{"nc", " ", 
    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.63260545060371*^9, {
   3.632605500657023*^9, 3.632605579640006*^9}, 3.6326063366863823`*^9, 
   3.632607203805195*^9, 3.632607755290908*^9, 3.632608195634699*^9, 
   3.6326141569884453`*^9, 3.6329644610109863`*^9, 3.632964929441139*^9, 
   3.6329649709263287`*^9, 3.6329650438586187`*^9, 3.632965109157509*^9, 
   3.632965172263479*^9, 3.632965227261862*^9, 3.63296540026888*^9, 
   3.632965772497489*^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.632605450720433*^9, {3.632605500669703*^9, 
   3.632605579650169*^9}, 3.632606336700419*^9, 3.632607203826322*^9, 
   3.632607755312628*^9, 3.632608195714342*^9, 3.632614157117043*^9, 
   3.63296446103158*^9, 3.632964929459941*^9, 3.6329649709474163`*^9, 
   3.632965043877907*^9, 3.632965109178751*^9, 3.632965172280159*^9, 
   3.632965227333064*^9, 3.632965400290247*^9, 3.632965772558476*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw91Hk0ld/XAHCJyJA56poJd8CdKMo911hknjKVeXykkVTfikxlSEkqSSWi
ZKgoDbIjKZLKmMwSFREVQt7n+rXev876rL3POnuffdZR8tll78/NxcUVtYyL
i7Nmfz72Vf0hE/Ym7t8sFTTG4l1u/J70gAmkhPO0wpwxVqjCikea5UxIm5xM
L+8eY+m7JJ9k3GHCVG2IL9npO6vt1QUNdJMJVh+r68rMx1kiRXcCnC8y4a/0
xG/+vAlWxKv91q7nmeCYOPVY+8UEq2dova7HOSbYfyJ4XRieYN2Wf8rrc4YJ
W74N2tDIP1hbTtfn7jzJBMbw862ny3+wovYNDsQeZMJQsSz/ofZJ1nDqjfqE
A0zo5HUR+Ds/ybK+HXw3MZwJUmX3k14rT7Fkh8ajT+/B6/WNct26a4pV4Tyv
mBXMhFvElVF9gj9ZE3pSnvdcmdBSMPx43OEXy5tr88d+PSY4E8vLpVVnWFmR
JyYermfC7omHBlouM6yOiVe8aTpM6Eusqy1LnmFZ91tSjWhM+LH1eLrU9AxL
v9o+LkeDCZmbxN+x382yJGJ3aPtKMyE7VuD8mqw5lvX8FZONUkxIl9PMyW2f
YyXu73eVkGDCSGhEeonEPIvL3y+2ZhUTxkv695qnzLNGTUM+qKxgQkjGy32F
8QusWr6ImE8/GdD3M3Fe+ewiiyvqwYUnkwyw3b6wida+yNo0M1OUPsEA/ckT
z0aEudDdkcMdJqMMWNyudTTAgQtlv4rWzBtkwKoHXwhf+rnQgaSUdv/3DNAS
EI+9KMyNiCJ55OESBhTtj+nxzeVBjqWLzYNFDGivdnfubuRBUXZu//UVMmBn
we7cm9M8qO2sSOOHfAbcK3OyN7DkRbEyh8JeX2FApnKEiu8sL+pTsrlzJ5UB
2j8JOiw/PiRUc9O1OAWP/90exjzLh9b78XAXJjFga7mP1YlqPnTqxkP73AQG
tLm96NmqzI82klV/ZhxjAOnDVL3zZ36UwZzV/W8XAxhvQqxUowVQdatDb+RO
Bswrc221vi+AxiKKE8IxBhA/HScMfBNAJg99O8ICGRD5QH+/hYsgmjR4c9Db
kwEZkj4SOrpCyGrz9SdmNgyw/3WnWJtvFeJxszIS02ZAgGE+z+IyMRSamLJC
RpMBg6OPZXaoiKHmR4318mQGdCIi918TMZRDsHagqDNg7GK8MfdJMWTYbe23
WYEBj6tE15MkxdFRL9v4IyIM2KP2LjlovQT6fPq0RawwA964Ep6LbpdAVs/e
rkoSZEDPtZypZTESSFbZ7vwFPgYcEPrs96xJAj0etCu4t0iH4QDvLzWhkmgm
wKH+yzgdXGPmEpzKpZDX+bOnJsboYCjmoPm2VwrV1TXbT3+jQ6V//6csgdUo
Q8PxI88IHbT3WvzS8l6NdL46jir00SHDM7naTFwa7d3pvMr5LR0sBxX638XK
oLF9rvbVpXTYJLQ1cKaEgDS4ZEyyi+lA637mceorAfklt+kcuk2HG/H2Jtnr
ZFFXrsMaegEdPMKUQfuyLKpvteq7doUOYd2Ohcw0OVSw3igs+hRer0yR3Y10
BfSphstrezId6m83m9u3KyBF2yo7vUQ6rD87QDURVkTngzbp/IijQ0/y+itb
7RRR/EXdea8jeL0OCoSSLkXkN0dKZIfSITTCepnZMmV0NeHLYdkQOiRXLEvT
VldGXRIFO2cC6fArbr1hoJUycqCssyv1pcN8aKVPTaYyMtquIKPoTocfhIJq
pKeCFKskbiya0yFtTnh5a5wq+nh8/tlTdTqcKLZUEfJRR/wbWsyq1tEhdVPj
vjup6og5VthQpUIHmfeh7kWV6ih5m3srKNDhweVProVrNdAmyqORamk6SOqr
Ud51aKCs1gMidXx0OPnF46dNAAl5aEx5NA3T4Jy8Jf+tek10oru+v2mIBmTt
vxRPHi1UlpYT8HaQBq/lhrijWFpIaMFu97teGohtX36Dr0wLPXlXGtPcTgOP
7U76xrnaSPZw2K32OhpYJG3QWtlIRV2NX6Z782nAHSKmZjBBR1096FZ5Hg3o
wwN3sqQZqGv8nEfSdRq83xFHt0C4xYye6V6hQZmJrt6ZVAbqdspMTMmgwRZj
qbQeBhP1dFvIbYyjgXDjG5PJJB3U8/1qk2gMDWhr+1fuq8C9+Dv6cxQN/KmU
Qosh3ErXP5/5jwYClsffc7F1UY//XMnIPhosBE+uuDiri3rHCo0yfGgAE8ti
F45sQH1/l/3CvGhQ5WmYTy/FLeKSb7iDBrbiAaSXA7hpPEJjrjR4+vTq89Xm
eqgv3KPV2I4GTm7WZx3W6qO+BaGgH4gGQWs749qbNqIB4bAUSzka1OqseXg0
CSH54pvuFAINTDxyPZpeIeRmPUQUWkMD/i6trVt42Kj5lMeLBkkadNZL5d0z
ZqPnIlsXLYRoYKOVdG5jLRvli2nsMZ+jwtt7a0Kcmw1RqNSAo9kHKjheaDEe
ljNBBeVyKmrtVDC2nsi7Z2KCPjm5/uBtpUJ35AmjaswEbc94m1L7lgpa5zy9
8h+ZIGvpqhcmL6kQI7Yv/aK7KaKtydpg/IAKNl5uIl63zNBvWWdZ9jkqXMr6
Xb7niDlS/nzriMlZKhyMjozouWmObEoWe7acoQKpdzw1uc0cFRjevGaXQoWo
n4fPFVEtkHvAvJpvHBXu+Cdv4x+xQFCSQ4sPp4JTc982S19LlGg0bvbaiQo6
c2ELKik26L6gScFbByp0fCkRFa22QYMtF1a22lGhqcHcwGjaBm0KNHrdbUWF
tmLeS5totmg86ZzduCkV0uQ929Zk2yLH1o0e4rpUGDjgt3vfUTskF3Rij8tq
KoyRqwh3XB2QfIo7F12SCrxjeww0D+O+q5UqKE6FnsfLct5nOSDF+ZbbT4Wp
YN5b8utCnwNSPq00ospLhYA/Ta1iIY7Idnd45cCwNqxXppOvxTqhANHO85LX
teHwlAfJoX0bOmN73TJyjTZ88TyjsH/IAwmb1xudlNGC0eL21okUXxS0POzp
RUkteNSdQ2y/5ouqK8X0b4lqgWG4QUp5uS+KoLvSGvi14Dz3/j8u3b6ojzCi
IDyrCQztqHBtih8q+867cPqDJsjn3bOorfNDbumGDy5kasIrYkqA7E9/VGY9
RL+ZoQm7X/EGWa8IQCIrTxY/TNOE6IunmkNlAtDzI2/zOhM1of3E5eM7NwUg
zUDPdNnDmnBbSpcvPCYAcekf2XPVXRMktT373YQD0Y3eCnKBrCb8PkQ/aLsq
CBXYuXL7ymiCszJrc5V8ECqsme2Qk9QEwzDKF0HtIFSarx9/VlAT0vYFGxrY
BKFHu570Hf1DgQ7L223TKUGoabHqnFMHBZ7V/Jm4zBOM3u/xChVtoYCjD49R
g3gwahnkMm5oosBVpYnY94rBqLPOcIJdR4GXiXFKYZuC0afUGgvKfQqofY7G
2vYEoxmFukXudArki2kHebQGoz9nAtsqUynw96X7T0J/MFpYzl8UmUSBjwrk
6XujwYh7ZIvb9+MUkGFx3965PAQJldaXfdhDAYnlL9gC2iFolTKWlL4Tz7dz
VE3VC0Fi6YI+NsEUmC0NKhw1DkGrIy1Far0ocDj+SBvNJQQpst8El9pQYAK8
I0eOhiDlu2FsbCsFpL26WnVOhKB1qiLSapspkIKwLo8zIYjEb/v8EosCoYkH
ZDZcD0HMt+/kEzTxfro/SqrXhiBzr9bm7YIUUAg35SZwY4iiWvDWm48CfyzO
SF7jx5DoyKFG/+UUsJYhFPCLYKhtl2LdzjkyKGrUXTxCwJDPMezRkW9kKH7y
9utyBoZMjVkPoofJMG986VLWBgxp8ImVxQ2SYSr7T4kMC0PfT90vSvlIhvR1
goFPtmDocPaya5cbyFDJsu565IGhHT4tl6/VkaHwkYr2AW8MGanlZ+bVkKGu
X0hqTQCG+Ist04sek0HD/l3nql0YSq88n1BZSIbUUWrv62MYOhAdEvssnwwN
+o1nqmIw5GZqEF17HY//8QnLTMCQYuPAocZLZJB787VqZSqGiro0w7qTyCBT
sMK5IwtDp69yYf0JZPCPIhRIXcXQfr/mwKEYMqRRr342uI4h/dFI77HDZNCr
VdGwvYmhF3M1jgsYGeQN1ofGlmHoZlWG3bIgMrj7CV1WeoCh5Jhga14/Mgxo
xx27/RBD9oIiW4Q9yDDXf9c2+SmGete6bZSzJEPe25tc/9VhqLqHskFpCxli
7ahnT73C0I2cReY6E9yPhwLONGAolJSnpbmJDOWXE0WCmzBk8/0AmbYB7y9g
wJv1DkP0uxYaOkwy8L7sFudtxtCM3oSSAYUMKEW6PbANQx8XquUNNcgwmeOT
zdOBoafPzhFMVclwsqOakv4BQ7HmG6WsZMnQPxZRn9yFITHXeP7tQmSormnX
+taPoawWJy9Bfvx85dpBNIjP13ZdxcPlZOhY/aw/4ROGWJufB66eIwHROH5w
8jOG6qvPVj3/TQJlSD6yegRDTixf6X2TJCDxzJ7X+oL3o8Nd1/SFBKvnt9UZ
fMPQdOk7+aNDJKiRPVaoM4qh45RrEZR+EsCf7EyVMQxdVGGrnewgQZql3ImB
7xhSvSJydH0LCV5H/eEuG8dQ6dre1qEmEsRl6iX8N4HPR+xonFEdCSweSQ9O
/cCQXYpV90Q1CbhUZPZdn8RQF7+czpWnJPjw+IXN1ikMTS0+/jRXTgKZJM2X
sT8xdPRw0qZbd0jgY1z+cfUvDAlMu6W7FJEgu+EzOQe34vdZ4/JcEhyz9X6Y
9xtDhcGvLvleJUHzQe9w+WkM6Q5dmBLLIsHykJ6QM7itutZfDztLgpU1wx0B
Mxjq2MY3J5tKgsnzG16+wu3X3GbfkIj301jbpz6LoUP14dwax0lgrZZOb8PN
a2bq1naEBOyEqEq1P/h7fSZ5N/YgCSg+1Wv34c6vuOfdvxu/v8FMCtcc/h6Y
MQ9TQ0kQvLPM1BD30xJ7MVYQCX4fcxk6irvlxg/I9CTBtafFtAncXsrPZMzd
SRDQ+1VRdR5D3y6f3j3tjNcTUSHvhDtijdfLPHu8/n3h/jG4uc9pKzpak6Az
aJVECe4U0cUD3BYkeGJNYHfglkl+01RqSoLpAX6+RdzaMTuPCRuQYCa0qdV0
AUOP/m5qf7yBBHq5FxQDcJsdEtIOYZJgduFkQizud78+xstQ8fold8hdw+2x
p7DnBZkEXXcyfz3GPTJ6SDdcnQTvvcnrWnHvC7I4paKCz8dqV/Uo7kTPLwZR
a0nw0uZwsfRfDEl9rDintZoECr9OaJBxX3U+MdYlhvssn48Bbsr7baZJwiSQ
Oq8dbI37gZX6Zb2VJIjK17Pagdvo1e+fwzwkKDDhV9yJ+43JC8sMLhKoi22Y
PYT700b/+clpIhimV38/i3ukdTGpfIoI52rfjGfjHt2VSYgcJ0LGmttaN3FP
rNQp1P9GBP/N8hV3cU9db9Jf+EyEWaPRjMe4fxuE1FcNEMG99lJLDe4/7Txu
x3uI0ClqcbgBN7eQ/kG+NiJs1LPV/oB7xY0W/vp3REgtVXbsxS3A3nUhuZEI
amMBfEO4V3Wu1LB5RYRavcdbv+IW25/7QKyWCGwxCdI4bslVaHMLEOEgz2jh
FG6Zgg9tGU+IMNRg/3Eat2LXqt+EMiJE3A8KWsStGnEzrqeECL7nXj3nXsT/
A1ETqWuFRFA8ZdfFi5tyqyfXN58IxzqDyvhxa5scZKpdJ0JLeIO9IG56j8Tz
kWwiPKUmVwrj1o0sdijMJAIxYGRGBLe+uPngzgwiVK34xS2Om3V7cC81jQjr
xrp6JHAbmR3lnkohwpn46NNSuM36ZNLKTxJhWc4iQRq3xaF7SpFxuC/fiZPB
bSVpfUc/mgiCDbrNa3DbFo+wF/7D67u+j4+A23FLzNuqSCLMrahSksXtMiDn
dXw/EU5/DFSSw+3xX8W4yW58vnEPeeVxe612OMYXSgSt19Q3HPuVjq2qDyTC
74/sGAXcQRYnspN9iWDa5k5UxI19Utay8SSCWzQBOA47Wlkp5k6E0SzpzUq4
98q4WLU4E6G1Y6iS44i7k10Z9kQQj/dQU8Z9yDIl1NWaCNni/fEcH/2sPk+w
IIL8ldJejo9HVSf1mBKhwzuDqoI7fu12wjVD/L7iPA5yfLJs+pavAREe5TIf
cZxsnaavpkcEqYWvvzg+PUKpH2ESQePbNEUVd/rxOtdCKhGe7N/oyfEFWZ8v
OylEQAvpyRxn3Z+PpGoQ4fMxiXKOr9qe559Swd0j18lx7lfahXIFIkymTM5x
nB/7Wj2SQAQoOrx2He7iimWbF8SJENJ4wYrj+6O6AccFiCC9de0Bjp87XstN
ntUAgYq+Oxw3PxEczBjRAFZvZzvH2/VuZgmHaMARfWmyGu7hcjPn2G/qQL0W
LsJxhPrhXWY+6uAXfOA3J5/3YskJ/g9qQOj7scjxDTOtoHEXNfhhL7eUv+Xn
7c1tHetg5mnUKo7HM6rj+a3XQeQpkaV4hl5HrX6NKpj+N7EU31po93dKXxW+
WvQsmUuuQbforgrYJQws+WX9KZ0khgqob1y2tD810p4ZXKYM59ZSl+xBKEpL
IynDupumS9Z4yvfj8VUleG3lvGS+y7elBBSVQC08ZMmfD9vpu1xRhDs/Ypbc
QnRz0VRShPXp15d8vKR2lMdMATbmNSw56BfPiClTHnyfLBfl2GqjyWC8shyE
m1sv2WVWGhNTkYUSStGSfR58m7ykQgCBXpIYxwc8x/QqV62FQ69eLzmZbzyq
Z1YG/FxzxDmutKp4JPxVGuIm7ktw/P1s9M9Nnash6768FMcm9r2PyrukYPng
m9UcZ4oaRGv1SsIbs98yHP+peLmC9VoC2qJnCBy7ezsmWz0UB42aPgWO+6L3
Z9+oEIO9X1NVOQ7ISS9dfCAKrB0xJI5Fq2dCGiNFYK/yAI1jB/Ry/6VoYdBQ
VNnIceHpqfkMT0FQym3czPHyAfm4NIOVoK74ZhvHeSr71JTYfBD91zmE483+
dXUlRryQsHE0iuO/hw4MY2uXw4ffidkcl59W59OY5ILmU33POA7VXBb1vWuh
Kl/u1zDHu/Tu/Uhuna3yETYTV+f8J0aOmN74j6pDjpoYx33dFeatlt+qZJoH
LnC8Zv2rJ+sfD1T91Bqs4vhnzh+NxgOtVVO9MR857tyR5F34qbwqMfbFGMfV
ebcFpCvqUIm1ywzHkUdEBg1p3WjySsI8x2q+6omv1w6j6MCiBY7P8NUpz2SN
o5uRA0sODvcuxF5Moftvh5csEOhp6v50Gn1QH1lydGnewLjgPIrV+p/n53+h
agoXe1j7fw6j7Q6f1eJmm/9zr//XW1QaD3sZ/X+W2dH6ZytxBZvn3347Z7AI
VOJnL/zz3ibLh0fp/Oypf07f8kE9w5ifPf7PbfqTPLX+/OyJf3ZTUK1SvsXP
Xv3vPL+RBEYPfSX79D9HHLKRdTIRYKf/c2Z2z5hRoBD70j+rxzhpz9NE2Zn/
/E1P81Obtdj/u2SC5+IdTPz/8/8PatRyKg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-23.25610881895163, Automatic},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Physisorbate 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}, {{{-18.420680743952367`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "8"}]}, "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]}}, {-4.605170185988091, 
        FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox["10", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-25.328436022934504`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        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]}}, {6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.210340371976184, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-18.420680743952367`, 
        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]}}, {-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]}}, {-25.328436022934504`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        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]}}, {6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.210340371976184, 
        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->{{-23.25610881895163, 7.1380131679933125`}, {
   0.00001402214750940054, 0.0034175664034192814`}},
  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.63260545060371*^9, {
   3.632605500657023*^9, 3.632605579640006*^9}, 3.6326063366863823`*^9, 
   3.632607203805195*^9, 3.632607755290908*^9, 3.632608195634699*^9, 
   3.6326141569884453`*^9, 3.6329644610109863`*^9, 3.632964929441139*^9, 
   3.6329649709263287`*^9, 3.6329650438586187`*^9, 3.632965109157509*^9, 
   3.632965172263479*^9, 3.632965227261862*^9, 3.63296540026888*^9, 
   3.632965772885099*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwt13c41t//OHBEKnuPkL03SbjPQVJmSEKRTdlbaUhGkaybkHeFsiuKksr9
RFlRkl32TLIJKd/b5/f763U9rud4Xc/rnOs65wg5+Vq4UlFQUOzaRUGx870/
eW1G4rUqPNbfjI+tayLQ7DrSIf1KFR6+Orm4e6WJ4HVgd7VcpSqc3JXm9UOs
maBhffuWSrkqPCieq+2PayZ0N2dI4iJVqDhnSx9t00JgelLuZpWpCreN3xGf
7mslhDQHmdrcVYXjBo7coNtKGJw4pHY2TRUUe0LGdMJbCaUCNTROyaqw7+5A
T+avVsLxpJZH3rdUoa3G41RFTxshInBsNOqiKgzrud92qvtMmErMb4kNVYWq
CywHlinaCaal55/HBasCWmtLXxFsJ/BNzF9P8lcF1vCLzlWO7YQqqy3B7POq
cP9Y81PzyXbCwmGOcy9sVCFOWNlVe+sLwZHi2LeRw+R+a8pNS/adhOywmwuv
D5HneUIIFo/vJPQuNNOkHFQF6VZV3epXnQTTEWNFXSVVcDa7E03D2kXQqLOI
zpVUBSeW2/t1P3YR2KLsFZy5VOHwzaPr7OY9BNOtB3qaHKrwiCFLsPxGDyEu
aMSGjU0VVDOkL7x52UOgcHWJqmdUhZq+i+ICAr2E2aMX+kR2q0JR+M0Dh5Z6
CR9oQ26Mr6jAoCI7dVpZP4Ei4lXG2yUVCHLN/npzpp+gtb7+hLigArWZnV2b
ot8Iz6fDe/VmVWB3PaHB7t43wv3m63KPx1RAkMlRCt35TgiNT+hx7VCBRMHw
MveEQYIU02OZqWcqIPnLMnXu8gjBsmz769gTFVB37P3o8XCEEGFue3m4RAWa
1j10Zd6PELpTmdr6ClTA7VyRZjz9KCGK+5JP6wMVGN/yGW58OEoYFjpRXp6o
AjemqHne9owR6OuLbJ4mqMCjCit7KopxwiEXaqqSeBXwNmd5kyU5TriT/9ri
UawKNHP+s39/aZygKSO6kn6NPI8HJx+jyAQhXXVD7bKvChApiwI5oyYJdV0n
h8K8VUDma6Bde/kk4VfI09hgTxVotx9NmxqaJOi9du71cVeBz1eXVhQJU4Ql
wqeLjudUIC27olNva4pgcizvrf4JFaBu4XkjlPCDQG1rosuioAKR/Mweiduz
BK+4hN3ccirwgvFbgf3hX4Sv1W0tAjIqQOt7pj8n8Bchd7/pSVkJFZBeS2qI
/fGLoDNg6nLsgAp03N+9+LN/jnDVwSzmCpMKnL3o3xdyYYEwmZRkGMWgAr2n
T9gcil8gmNS2M8bTqcCRltG8w6ULBD5h87sZtCqQojFQTjO/QHgzZl74YlsZ
JFmy77WELhLW3U62/JhXBg/v+GeR6UsEh7updxZ+KUP/2VXWnDdLhMbGrxa/
fypD9qFqiX0jS4R0Sctv1NPKYKr7sKlGdplwcMZy9sCwMmybGk7UNS4TAryt
GK3alaHNkf5lHf0q4VegjUVdmTLMfDk8bNDzmyBJwa13/6ky7DHrt2aiWye4
3O4+eKlUGVIUOC318Trh+6OTPMqFylCzYd1CX7ROaOkyGc55oAwdA1P/uCI3
CIWHdH2u31EGFc/eLBajP4TxegoHu9vKsFezXN4z5g9B0IxkfjhOGVpnXDWO
1f0h3PXQOrgYrQydubWm8ZpbhJhMtS2HK8ow9+wAl4vqX4LLH+k4bS9lUIzm
ynLT3iY8jP0RzndBGdR2cw6ERG0TvrMVeq+7K4OhYYwif/M24aSsmHmZszJw
Hqgv5pamQLp2B7gFzyjDC3Ovsk9VFEiQxJa/baAMzJSqT+0nKNG3yK3aGgll
uEgdyGocQY32qHfqk8SU4eOSeyZfMTVS/VXykSSiDA6hUe+OdFKj26fPdMEB
ZZB1K4cMKRqkJVs9XcelDOa7BfQDemlQdlcoUyOtMiydMHJOOEaLmuJOEBtp
lEH6JkuXUCgtWsESPE27lOGCxr6DPAW0yLi4W7h5Wwl2VVeyqO7Zg7auHlT7
+FsJ1BfsJpU+70FnJZfPfp5SAmI+wwMW/33o5kDLyOcJJVizH0vWKtiHKlJy
3drHlEBUWeF+78A+RP/X3O/LkBIMs/7ucjemQ2+/lN342qMEplY5FP/k6RFf
uE9xT6MSxOUqPpjZx4i+t/34PVSgBME/dX/ls7Kg74O4uPKxErx4JCHYoE72
fNrZ+DwleO9yN0DrHNksurVqD5QgSyS4QukJCxo4lRWXkK4E45ysnadMWNHg
gCG/ZjQ5P08A9B6wocG5h5+ZbyiBscDBe5ofyd5euz4ZoQSbtNo37/4mWyhv
MvmyEtTZGbhEmrOjQdc/z6YDlWD5hZ0O3seBhn6V6KY7KcH5V3FNakmcaPgf
5aqngxI8iI4bWq0jm8m6QMdeCXpLfR2k18hWoqb/ZaME1rXH2NftuNBw8Nmu
I+ZKcH3fT3Z9FW40/JfeYxErwQImdVWs8qBRBp8EY34l0B7qiG0a5UcCT4vO
yO5Xggnpw0s2YgLI1nRCip5HCdrjPWuiPATQ1ztnGz6yKwHjCXuz0gUB9J7J
aNuQXgkqU6SuqlELogIWSX+DP4pQQM+mGisjhMbLnbHUhiKIjuv5rpkLIUGL
Bwx7fytCh73mj5owIZSRwlnctKQINR2Hdp9rFEJxbDRjx2YUIYMu78yKhzDy
4hi11O8jG9Y7UI0IKqzkFxHvUYSs9qzIJzMiaPyUzSJNlyKYnHupGsUliuzS
2xM+tCtCisq1Qu8AUWTKRWrQa1IEzU+V2SZyYkiJJ1v9yCtFCCn3PqRUJY7W
+Kz4tNMUgVgqpnJfWhoJTxZf0UtVBFuaAiclJ2l04tn24PFkRYgYfb2Es6RR
oU5RjnmCIuxdv1LzlU4GnXHbEneOVoR73bG2aysyCJ7lKsUEK0JZ/3iy8rAc
mg37nRIXqAiU7Udu7BWURzy6xit3/BWh4WuFga+DPAroXH1511sRGF4s5M2O
yiOxjeNaRa6KcOahwYXOOQUUpzuv33pKEZiinko3syihl3R6he0nFSHbXMnp
qpoSGuvM2NtlrghW3s/cY84oIS133dYBE0Vw8stcSc5XQvPxaebzRxWhVMtV
6om2MrLs0jzLqqYIF268ZimJVkH8Hjf9rTkV4Vp5OWnGWg0JJJyhUGZXhNh7
ujmQQPZz+UQ6VkUY2K31jqdeDQludZbWMCjCR9lXf2wVDiHhJKFpURryvN8M
X2FGdWTmF/xudEoBKhl8fnyaPIwsqvd/SxtTgGEXo9VrohroJHXd+vEhBaBz
UT740UkDWWUwqj7rVgC33SNJaiMa6AwUFId/UABZRBuWMKGJ3Jj777LnKcD1
7FbhFwwIedhGVDbeV4CgsQ2KtlMInX8k/vVSlgI0lM8Ssu8j5KUeyDiSrAA/
5n2QkzJG/g700U8iFCBM1jDPQUkbXS5DAfr2CiDGe1RNJ0gHJZvlGYfxKECk
t7qZq5EeCpgNTwriUADD/7RoQy7qIcublp1+LAqgTx1zf7lAD3EDzdnzexXA
cWjvpcO7j6KHCh6ethvysDWnKs3QdBSVMcrFafXJw36f5pAGx2MopZjmk3qX
PIQ8rt4jdvcYCtIfZDn4RR4cS+JWKduOIfWriZlyzfJw5rN2sqbGcQS/FgsF
XsuD1Q+C/GdeA/S59WUjRaY8qHq9TYxbNURlHol0f4nyoPn1iJ+DihFKofY4
sZEkD1qCadea/I2QlRZPz+JNeTg0QetnuWCEBkvCJ0fD5GHYyJPz+ooxmovT
pvlgLQ+XAi9XufOeQAwGLbq3uOUhtitY8MKyOfLY5VOTyS4P5v2HZun4LFDd
OxaNYmZ5cPr3h5buqAUKUbZR+rhHHor6UrxFMyzQ8P7pAwwbclApcprim+5J
VDFH8zepTw7OkvSG2UosEWNRUVhOlxwwDQn1z/VZovPOJivlX+TAIKXmlere
U0igl/izo1kOjNg0S6nPn0KxtSL97NVy4GIykPZJzgrZEnVeZWTJQcLenpa+
1tOownRCuSidbJdGqS9U1ohp762nr1Pk4OBJw4u6h63R+yvtj/vj5EBhMmIq
vcAaybmfI/KFy0GM44K0SJwNotC44v/wjBwUCj3yeep+BuUPVckU8skBaSHu
hcTtc6jQ3IbKmVsOVmbyS6/1nUMl9Ru9/OxyYD2xat7E5oDKCjRiUunkwM3c
b2bRyQFV+74dvropCzEFd+rf0Tiiz9uktFO9siD/KenpTzsn1OHv4MXcKQur
nTb/keKcUOcYxZGPn2XhS8kpvr+vnFB/o86CdqMseEmbHqlic0bjifWGsi9l
4fcvYs6xdme0fqBxm4ooC3oFq/Ep9q5oM9m9+12iLAhIBgtdSHFFf3fteRIW
Lwutw+ZtrxtcEdX0cdu5SFm4NtWj9kHRDdGXtVT0+ctCB4idK9jnjgS1P50v
O0Guf7TGEd7tgQwcur7a0clCAHPzp8YuLyQrWtjuSCsLDwdi2Kk4vRHz9KU2
112yMEwq+VJn5Y26fQUbvf/IwLgmd+a3Pm/kdM2z+spPGSgdIuXETPqg8PuU
Of99lIGBQKsuywQ/ZO/U+V9OowxIxvOvjpb7IV3xgqzH9TIgU+1a8rbbD+15
akx88kYG8C8i+ykhf0R8dzf2XYkMGAuFxUlV+6Mn3+V8BuJl4Ina9pWxzQCU
9JDCcyRWBmijrHf5iQaiIJev7hM3ZOC1ffRNc9NApDEb5vgrXAYYQx0FOPMC
UcOfesu/njLw52Vf6CuzIDTEa6vJbywDb2rmkufeBiMWm5g9dvQycKkv4Tzv
YBjK7jzlQLdHBjTb7+jyc19EkmZiVa93yYB46N+t+xYXETr23p3zjzS4WHcd
F2m+iLwOUjV+/iENy+FMXCZvL6EGlqvRuo3SIPxzoG3/28vIPMFkYKFOGvq/
Rzkn/ruMvu/hP/igRhpe1+16lapzBS1vvxn/UykNQSXCPiebryDBuY0jlY+k
wV/5zpUvQ1fRpZZgKslIaSg4/k1oiRiBaPSP2nZfkQb3+knJv9URKKmW/XnU
RWn4GLXrm+1IBCqoeuE44icNK0aMu1kUrqPO/EXIOicNRk9ydC9/uo4Ubnhf
YyBIw+TRKPol/htoXNN1a+m3FGzUNX9sp45B013b8ZXLUqBV0Pqs5mAMmvXN
2h82LwUHRtTes7vHoOW8zxp/J6VAJvnM6lZLDKKi17hI2y0F5rKvRbvvxiLB
74xr+yukoMbF0DlU/xYSDSmKHnwmBQ9iHmlaXr2FJJn1OHJKpGCweo2y8OUt
pKB3UVU8Twrk3cJMqyTjECodC1BMkYK9tNbcGazx6Ozlqnk9Pyk4NzImT/h3
GzlwnrxG6yUFFH6CBGqUgFzKfjG2uEuBH3sN88mrCchzXFj+xDkpCFIRuXOb
4g66ZJzgZWMqBf5TUZyJdIkog8/ph7esFOht32T1uZ+Evr6lG0uflgR9HyPx
V/tSUVVhb0buuCTcHlQdDFVKRdnEx6ZPhyWhXsckIto6Fbl44eoPveS4cd/k
rYJUtLY/MHmlSRK03D5pHDcgIu7wfmxRJAmPWkmz4tlpaMutYNXusSQIsbNc
pWhKQ8MWQSXncyThFrMtl9JKGiqSZuS6nikJb3J4OLNM0pFGv87cs1uSoFJe
duU+9V1kd7gom+GCJFDVnDNgispAumIhFjxukkD42mHxpDIDibMc2SPmJEk+
b9O7n0xloLnp74FatpKgunrubJ9xJorIYDbyNCT/7+FHoYX9WSj3d+hGk7Qk
WF689PZz2z00ValvFfVTAgS89mfqxzxAQTbM7hpTEhBScsJa5eMDRPG3L3Rh
VAI+F6pp2+55iLj1vDPP9kuAU5pczFvTh8iwI/W7arME6J74aM019BA9nRt2
msiXAI5DAmKvGXORRkpx4L1cCdinQVslqJaLGg8GRZnfl4CIzhaRAbtcNHyZ
Nv9dmgS0tOk4nX6ai1jp5H+kRUkAzV7XXteTeShEItxX30kCVK+6f055+ghR
fdSL2LKTAO7vuvtyvj1CiT6Myc9tJABVmhgw731Mvh/mPBcwlwDiWW8eDtfH
qP9I0+oaJte33jL6LJSPkAPH5QJ+CWi1KcUNTwsQTeazm3v6xOG12liUGH8J
CrhTQqLtEoeH8Pc1n2UJGr5RsLb7izj8+U/HMTK+BFX7PHChaRaH6cY9Edl/
SpCPXqI21WtxqLAOrhQdKUXd8z7rfzLEQbOxJNes7ik6MnFB4Q9RHL5VMK1l
UTxDZf1ubptJ4qB1ijvYCT9DcR/sO9dvioNGftmkV80zhO6Zlq2GiUOY+0bb
UccylK8v7zFvLQ66Lftjf/qXIzYt6QdzluLAfq1C5VBaOYpQEu/+ZSYOxw63
NjVXlSNbPgG92ePikF+aM/WB4jliXGIQ/KEuDmxahl1SxOco9L9fPaPc4mCT
flJKpPkFOr5Seqy7VwwMVGQvKPm9RHY5j/uudYrBp8+ZcidzXqIA0/ueUu1i
IMuTvjTU8RL9V5iYeLlRDAJemUmiQ6/Q0tmAHuGXYpAyzHBUgqYKZX845O6b
KgYFpxYFbrx8jcoDFDe4E8Vgl+ZCe8Pca9RwQCq+Lk4MHsUJsUZLVKPFi7zP
OCLFoN22wT84qxrpy/9de+MnBnqUn7mPxLxB8+l1MXtMxeB7vYhwTMg7RK33
hvu5gRg0OXiarLx8h3gXXxSfOUrOD+Svnfv9DukZPf70VEsMKN4PGySE16CM
7VjOUzJikFHkNZtyi4R0PUzyc/aIwXjhia+zw4DSD/d+0KgXBTVlz7c2VvVI
lCY7cb1GFCIjN7Q7rtWj8vZzNi+rRaE3T+58XlE9anWfmlV6LgrS0YP3LP7V
o13pa2xSOaJw5yl/wUbJe+S3xO7EdU0UVEVv3ePmaUD/3vXKdF0Shae5nZWh
xxvQ7VvZqykhosB+wYhZK6wBFQiK3mL0EYWqo7I/fvc2oEFTlTIaO3L/O4vH
LR80IqMS83/LGqIQdTqzx027GfWGcDSVq4lC3LBryI2QZuSm25fsqywKeuH3
37E9aUaRfQ5iP6VEYcbbUjR1fwuqovUzHuUWhYWzycOS/1qQuMudrPY1EViq
Wb2Z2t+KKPg/qj15LgJmvFXf/4S3Ix+NWvGKpyLQ65pSP53djr6ffsX5plgE
3mqwm3LVtKPXKXlrTbkiYM3ZYqtJ+QUF7Ln8cjxFBIKcByaexH1B48uyanyB
IhBgPf2lorgDWbCIiIv4ipDf/873/3zuQCDPwyntKQLKCe/f3l7tQP+dp1k7
5CwC11ju6iTpfEVWQwOVJ0+KgF9Uxi/Zga+oqeXOwXgVEWjj+vhZT6QLqU1H
iaUoiMBC9mJfmEkXekQTzpEpIwJX7VzpKMO60HVt99V8ERHoKMqKZv7UhTRe
4so6NhEo13WLR1e7UWnOgurmsjAURZ9a85vvQYlhFqrnK4ShaeyPkRHvN5Rv
cvQab5kwKOxi2b1u+Q29FVZv+VgiDJsdaS9Ekr6h6VZ+B/k8YXh0ZVZ9i/Y7
0hX6Eb+cLAy6R2Zy2v9+R2vN18au+ArDFMesMfWuIUT/IEBewVMYMhvi94rr
DyGRINeLw27C8LRXsK731hAyEzBiOmIvDJbPBfeE7x1GRQGcmntMhMGPPjqe
J30Ynd3/JCVFWhiorCo//3w3ggIWHgwcERcGjd33mM3HR9CtDymSq0LC8KU5
9cheulH00jes5jSPMAzmbZ8IthlFTO+PzPDtEYbsgAw6s81RVOfVr1MwIQTs
bp+IlcbjSLKGdvHNQyHomz3E3nB4Ch2YkHV6mS0EA84Sv0s9phAnvcXXsgwh
yLJZv7V0dwpR22ZXPk4SgoPhqXXZv6fQ8KripcQIIWAU/W8+8s00ypCz3eXs
IARGFOLMx6xmUKLltSC7s0JwbPeZpyHxMygm/NHEaWshOJzZ0MhSO4OCmuca
jc3I/e9ofUuQ+4nMXG/cVtMWgvGNrrsVdLOI9r9Sjn2CQhDBb7ZwZeAX+lf/
JYaaTwguqx+53sozh1Zm1n7/4xKCoOb31USrOTSqrtO/zCQEjx6e/Zf2ZQ7V
dHbdH9gWBMsqTo7QtnkUQr8tUT4kCMejkUbL3AKaDDfXsH4gCFTTd95Yqywj
q1qdMbd7gnD2tb6ptc0y+rBb+XbwXUF43tRFmXdtGT1KZh1MSRSE/Ch1Ab62
ZeRU8PV62zVBEAhqfPbEcwUNdJxq1nUQBK2PSKX71Soy5tYPMD8rCP/qG5Y/
j66it3Zq+x2sBSH9w7siAcY1lDXN6X3FTBA4686lv3NdQ9b/epirtAVBckFU
gJ3nN+qUsrWWExKEgKW7j98lrSM9X0NKLX5BUOtaOWZdu45eVGgUG/IIwsuN
/i2LpXWUgvdvubMIQgvr+XTPUxvoxKnvD3Ipyfm1c3lIcBOlUb77pPD+AEwz
Xlnlaf6DIp99mKXWPwCPGMK+unlvo/KiByshhAOgHfRXfqBsGw3nXdyaVj0A
jI0MquMr2whnyNG3iRyA3DrxOEtMgbci0mTSKMkebbDOaKXAwRauF8TeCcBI
f5pI8SolfmSMA+5WCADBUZdPjY8Kd+rzXNpbKgAzhver2I9QYWXNtlu/sgTg
iZ5hTmsyFZ4TOVhUGSYALV0/pzRUdmGPVerpo6oCkB1++veLGGp8d35w/pWM
AFiUn3KE59S44UfVbykRASjsi1CVGaLGooNetIysAhBI6MIHDtPgkYZO8e55
frhZfs/z7iINts145OpWwg8FQdLd14NpsYmm3liMMD+UirWyen/eh1Ff5KF4
Xn5Qu9vDxUFDh+VDa+MTWfmBveeBlaQmHWZ8gVQzqPhh6b/JvtRCOtwufTi6
aJQP9DMUIP0mPbbglZdozeWDgtWTc0z2jFi3yiu8PYsPnteTAr5mMWIVq5LP
nSl8sM4lbsvcy4jZUyTDBiL54Dtu5908yYS79oo0zznxwd/FVrFOSWZsvcHl
ySLCB8XTOCJfmQUfv2tF4tjPB0a13/gYT7Fg9YNpbLxsfHAj3cq7OpQF8/iz
vhXexQeslQMmY+9YcP80PYPq2H7g0vDTizZhxXa9lM+s8vbDOykOl9hLbNjp
1c+leyL7wfaCH10JEyfOfS/yd4V3P6zwch68ijnx2JcztKas+0FLQ7S9ypcT
u8x+3E9BuR90je173L9wYnehUj2XQV6wsjv390MmF/aK90qXzeSFjt0hd05g
Hvwk49HD6CRe2KtS5ro7hAfPPf5ePBjLCzf7KCNVnvBgXzAmJYXwAntwaPQK
Hy8OWJWdXjnJCz6Hh5jkqfbj0HO/Dr9j5AXTs7uFz4/z4SovMT3O3bwgb593
lEKEH69ftDP1/csD3p2l9wSc+PElYpuT0CwPiDm8vbA6wo8vNz+Jj27mAZqr
uXMy0wI4UsVnwCSKB1wX7OrHYgXxbdr5iMENbpjxM3xtMiOMa8zfbZ5b5Ia1
J8FuV1lF8Py9+KCRaW4gMN4Up9YUwRaKkh7jPdxgv5JdwpIggrltHE/MVHID
N2Vc2fGDovhR8Vf+NX9uyBg5XduSLoa7V3Luhp7nhl23OP/Ley+GabEfy4YD
N2RauF8YWBLDF77S02yd4AaTZPo9oWbiWHHr6CylPDd0b2TMWzNL4HcmVdUM
M1zQskVkSMmTxHN3Y1QTR7iAqnd5/XuPJBYctXzK3McFHX+4bdLppXBUyGIO
WxMX3K6L57AOlcKGD6Rv8eRzwcRxKXUlC2ncvZB9WsyJC8zTJRQYBWTxXOr1
Fa1+TuBN1OWt2aeIR65XVJt1cAKX9t33/tKKuNN3KsKlhRMo7OjLnA0V8Wsj
E4bb1ZxAym+Wo45XxFG7eMS/ZXGCx/MK+aNMSpgnsOz0xTOcICIYk35QVBnT
O47xJ5zkhPTrr7/RHlfG/0w5xx8acUJxtqatoJcyHpe+7NekyQlb3pHC4pXK
+OnosVtcfJxANNNYTjVUwXoWQ9WV3zmgk2ssKuiGKj6kzXq9uZMDfgpmi8yW
qGJp+aPHBlo5IOLFjfnnnaqYaV/JV+p3HKDvO+6nKHEQ99eGzJ78jwMGd3Hs
3vp8EPsqMQos2XHAqzHmZAelQziLmXBdfogd2PZ6Fq8e0sAD3uf/pnezg3JI
yJUFXw0s+DHt4nYbOwg3eRIdCzVwfvScf/tbdphoa75TzKuJn28+cArIYodb
TzXnl6i1cMs4ld7LU+wwTfnRgLBIwAy6CiBgwg4+dlp72ZUQNntwRitWjx24
OjYM/f0R7rapULVWYYevl6gK6pcRHv3kKrbJzA77q0n+k/8w3qxq2o1a2aA+
38+DmVsHEzhXI/Pr2SDDpawzQEsHRwQKbTO+YQPndOMcIUcdvFv+0u+hIjag
JFK1uJXoYNY8menrsWyQwBFz/+ERXSydcKf5gy4bDPz6bOFw4wg+42h52+Q1
K7yrJtQ16OljB6cJy+PlrOCuPTjz1U8fuziH8B8pYoVHfB5P1P7Tx16uGU/V
M1mhXd7k6vaaPr58/nu7yEVWUGmc//Ps6TF839+FY1OdFbqHtLT4FQxwbsDq
wIoiK9BoC6+0Oxjg/MCY/HlJVuAfVq8aTzHAT4MLD01ws8KXCnYJhXUDTLo4
a9O+zgItg29knBsN8fD1oPv5VSzAXVtD+BFmjMcjadxzyljAyc7i4nKZMZ6+
ka6QXcgCSTYywed/GOPF6CpIzmABz47R2ntnTDBV3Nbo5TByvxcWkQpHTbFI
SpTESXUWEKSpkR7jNMNuucSy7VfMYMx5RvWonAU+M/xmWriMGQT3Odrzm1lg
M4ExQf1CZrjtSHdCLdACa2QpJd/OYIbmGV192WoLzJjyyZ/nIjPw3lnYUjU6
iV9d36OiosEM1c3vbQ5cssTMdesX2sKYgLh8nqKE8TTeJBz7xnaeCQw587oj
NU7j8ddpRrY2TBBqqfyl2O00ripXlp06zAT9n9VNfpFOY8ccr18UfxgBDqgd
Mgqxxs8jhn1VrzCCCTMeGVmywSdxU9C96wwg1FvzxVnBDg9m7jWP92MAOaZP
gpSedthjxVAu/BwDuOSNsLEW2OGrRW0TtgQG+DcXNJksaI+L2L5a8W7QQ1aW
hcIBnnN4e2pAPdOPHj59bbqQnOSAS5KWt9LP0UEY40qofrMTVvup2hdjSgcb
t3PPc807YTgaUhlCoIOzzSL2ChzOuHtz3dtqPx3c1uRiVnNyxpSu/wY5evYB
ncCjX8Xbzvj04b21RNN94KwewZd+3BXvGhWITiHshf5PV19ncnhg5iipzXy5
vfBi4vmnNR0PLCCu6vuGfy9UGs3p3vfxwOoXDGzG/+6B7yeLm9uaPLDXUqCc
Ws0eYBJ+3f864jzupGru6kN7INL+4AXe7Qv4sUiguJA2LYxGc0hkqfvg5x+u
3DuoSAuD1p/rt3x8MLjfZDYUpIVZwbjcysc+uL/kv80AClpISzSMlWH3xYyq
TZ/ew25g/tk9rLTqi0P0+EM9dHaDQPFm6p8xP3zMtbHxmS4NfDwk22DfF4BX
Jt4XeivRQJCZAzPT3wCc61Z3S0aQBiizVQjrgoH4n/s7o4K/1BDudWo9+Hwg
rrjw4vP9KmrYet9ZJvI3EAv7PehJkKcG2n1D/l4KwfjfpdApT95dEE9b8bsE
QnHpn6Amqb27IO31See6n6HY9nJA0dRvKkjzv9zHwRWGK694ezp3UcHdViQY
5BOGvSKc522TqGDhwClPJsGLuD/6xG+D3VRwjeG3dOOdS7gySYJWcokCYjYP
eIhlXcET1nMR+0Yp4FaeXMr15iuYQ6hyc/YLBQTX3tnPunEFB5frzpWXU4Az
ddnQZ+ur+GCHXZemPwUs9hn1VvNew54SksceDG+TWK2uunFYRmAvOcqIue9/
SZ6MJ/H28nXse/jF4u2uDZI+b27rk6BobKlr6Xl4fpGUcwEexrffxq9vCK4u
tS6SqHPvqYst3MYCH2avlhYvkga878Y/Y0rA08eiUw64LZIM2Orvp5om4HCT
l69pBhZIyycsr8Z8TMB65YrMj9LmSRPxe9hu1N7BwwNVBl3GP0lTv98+SzRO
wsUO5nbH9/wkPR93aq+1TcJBYz/83tTPkL76ZxWNeCRh2h+8GTkaM6Rbvtrq
P6KSsPzK5UlvyR8kqbEwE6a3SfjyPp0bu6mnSAJ2umvB4smY51Dz20NvRkkH
VaxEmn4k49meGBVC+CgpSIjhr8tKMiaF6RXrao6S8iaZ2mf+JWPXatJdkzcj
pO/OLffL2FJwOeFlgPObYVLFDE22oFYKTr2pby4QOkBKv6sYfvFmCtZoqUVS
v7+TTrwInkpLTsHDdARZ1dDvpH6r+OjMrBQsm6hCaxj6jWRvksJhVZqC36cJ
vgsO7SNxQL1w7qcUvJK7KdkW2kU6bJPud40xFWeNB3P2/u4kNe3KNdvLmYq1
xRd3jYV2kmxDujYv8qfi20VTg+uhX0lqPXLpTLKpWLSskyga9oV0nC21gv54
Km5ZPBGpsN5OarjG6NNmmor9VD76aoSRXbtwMPhUKr7ofSPt4cInEqpPFL7k
lIqLL9lRri+0kGQX06jPhqfitb8nvzMsNpO4+7vPnL6einWvG74SWWwindt9
yV0jNhV/iz3kfWKxgTTgu8JTlZKK6dNY+vIX60hHjh99lFaYivvt4x1LxitJ
5/wrN9c+p+LYw51p1NUvSI/MMl4NdKZiVXb+FrvEctKKond1cV8q5ku1cxUM
KibRI/Gj66OpeN+X40ydhBRSp7DTRY+VVHw5tBf8xW+QxjOS6mPXU7HZpxWl
l2wmJDPfW+qJW6lYLEqqNMMrCbduPe48TU3ExbNtLyLji/A8h2ZrDysRnzik
ZdQ+/AQjo6FAbU4i3tQ+tci4vxzLstI8TOUh4ofx9TfP+lXiN23h1zcPEPGs
4MNXv3lrsNzt0bEOGSIWzCvR+SwMuFqcv/CuPBE3H4wtEFavxdktKgYGSkTM
dwYFNjvV4+uYPSZIjYjrHpfu46pqxOFSJbrLmIg91W/6XWhrwpfEuScldImY
/aNz97vRZpwzd2DRSI+I3Rd4c10YWrHbtyw75+NEzHxjjbZKuA0bC226nzYk
4mqODm869U+YS1JOUsuYiGP+e89no9SONxsrJntPEPE3t+efqd62Yxufn4HJ
5kSsqPgwslT/Cx4gGE1oniTivrrw6e0zHdit9FC3uxURy04rV+THdGKrGzSd
ImeJ+Hq5oLsZSxeWOkInEWRHxN2XGHk373XhKyJDtVX2RHyNYeaaSXk3jhIm
bR9wJOLO7h7l35o9eL7ugd4RJyKWfPhh4mFDD27iu7FxxpmIO5RzjFa+9eK9
HwoafVyJWGLrzr//3PpwY/iBS+fdiPjyh8vlxxb7sGDrhypbdyIWs7bmurf7
G76hdKRV6DwRh11hGtNRGsA33mz1GXgRcU1oZrbL6wFc4Zlas0U2TYCIVazO
IDZw+RtQ6E3EKW6HmlvNh3CSf63xTx/yvA61kfN9Q7hv39THSF8iTnoiJrBX
aRjbxdMusvmR5yt41iPzehhP+pL4Rf3J++FRkCrh7zD+MZp0J49s/tzDyaY6
I3jpSJs/fwARu2TXG/o3j+DF2DwbykAijs28WRDJMIr99dWaPckuTjehJpqP
YuWlrxe+kL2Y1PPuZd8oVjUl/bwTRF7vO9m8TfxjuNRGXmqKbPV4x9A+xzG8
THP8mGYwEV+N/qm49WMMV9WeeNZDdm5kWQKD/DgW158wEgwh4g/XgmcEAsbx
76O5Lq5k01/aztPZHMeNm3cvTpCtEPqe4iSawAr32t4KhhKxRdAtO5fICfz0
oi+1DdmZPmxcsfsmcZBbn1At2W89ewMzTCexrmis8CLZwx7/tRelTOKKKxpZ
AmFELO4sEdfKO4VX9mZcDiDb0GF2csB+CndQZLBnku1tV35kPncK2+nU3H5H
dsVpzb8sMtN4W2QqheIiEfdYUtiK+E5jOe+PNgfI3jT/8FL1xTT+1jd4Tots
HeMTfqc1f2C20/aR/mS7GLC3eVz7gbXZT7ffIvumfp/UpfofWKn4QcVDskuO
3I+Jp53Bsh1fNF+S/UnbeSzbaAY7Ol8PayF7iSCp/TRxBlvQXr46QDaH5q9s
0tcZTC+n4zBP9tmDoVajZ37ip/eWRpkukfezstaL5Qc/cfVWV64A2bkKlMw0
4z+xJnthqCzZDbINXpySs5iSwsDjMNk/pOKbJbxmcWRr/LWjZNNLmIkfLpvF
D9KcPpqRrSjKccNwZRb7HsqxPUN2iMADLe/LvzCj9YdLPmRn7XfJvAq/sEeU
MUso2e+4pdYSqedwe5QuwzWyhznmLHKOz+GHjmmXY8imZnvx7PntOayLaH0S
yJZgDqN/306OV8CvVLINGQjnu9jn8alAuZVMspNpG4XXs+fxXpO7FY/ILp10
4wv9Po9Pqg+qFpE95rSL7g/DAk6MOeLzhGw/i6+x1XILON2e1b6c7L86edSX
TBZwfskITSXZcUqB1w97L+Bj/454VpHNJXTk3/rtBby+sZ/4hmwlirHfoa0L
mFhbo1dLds3886BDswv43AmDz/VkGw1FLq7RLWKavO9SDWT3frLweSmziPvS
TK2byHatEf4ZbLSIJU1L7FvIXnqy5H7QcxEX9V5GrTvr81/d+ErcIn7+t3u9
jezMy06DgS2LeJ+p5b4vZIt7KZ9RmVnEgb7WHh1kvzhD1bu0dwlnqaUWfiVb
26jD8rnUEjarPf2xk+w2jdwv/gZLmKZKtLOLbFvpAFOl80vYgKGwoZvsKR7d
jws3l3BAOuT3kB20l/V4WeES3nx2LayXbMqNkfe+TUu4qKgH9ZF9Z7pcR2F6
CavlWy7seH/v9Zo52mV8kMUgoZ/swkZzzacSy/i/hCaeb2QffCVU5X1sGes5
7c/acV3+oqqc+zIe1ADW72SfSK8tn41ZxvWr3jd3/D06Wb40fxkzXhRf3/H5
YMcSz4ZlXJ0jbjtA9pqLkqTM5DJ+1zRftuMoS8rHMzQreLfI4e0ds+h9ESoW
W8F7Yr4fGyT7vkrO/fNHVzDFnZ6EHcuI+O+Xcl3B7wcav+y4ilUnYzpqBT+Z
OsU0RPZRKhaOwkcrOMBjXH/HHYvDye7vV3Bsk/DFHZ8bKWOUGF/BQaTm/B3P
tkfET+5axY6P7rXv+CKY7ckXWcUjFuy/d7y7TDDa9cgq7o3j5x0mO/XBAqWY
8yqOCRg4vGPBRLg6HrmKuTiuWu34ydWkP3m5q1iSUdZvxxo+DmHOdatYc4Ah
dseNdoqrwqOruH+kJGvHliYUAaOUa9iB0a1kxyNa7XM5Qmt4Yntv9Y59ZB96
Ouqs4arLvo07vkmn7TocsYbNFM4P7Th3Zsj+HKzh9CT5yR13Fx6wsMO/cc2K
x8iO97mfO3qm5jdmc7m5uuPDinv6GI6vYx+FlR879tgo84Iv67jncua+EbIp
7KNfZnJuYFrhWbYd362zoQg8s4EPnKUX2LG8hLyh8cMNnD32V3bHDfFURLGJ
DWw2fVZrx6IClm/i1jfxSWkNwx1fL3s8Ok+3hVsbqf8X1+o6rlSt/A/X2B6W
3vHW1iquk6XQlh0v/V++j5Jf8IY8lbZIkorejodcZ4oVlai1TbULHHY8JzJx
9dAzau3ta//8/1c/MmSB5Gi036h/DN7xLp2BtzpeNNqsEwNeO973sF/8aAmN
dmFNn/WOWbZ7ko7P0GgH9pXq7pjbvmvTSGq39tGwg4d2rNrfkmsjRqtt2aZo
sGNzKzB0F9qjvUi3T2fHIZdO8J3S26etnGZ+bMdZ9wd/6brTa2tdv/s/B3Xo
5f/nyqgdtpz8P0vcOKWwpcSszawQ8z//PCw33m3Kos3E9//8bIE6s9yTVdv9
//v/ADKJL00=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-23.25610881895163, 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}, {{{-18.420680743952367`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "8"}]}, "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]}}, {-4.605170185988091, 
        FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox["10", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-25.328436022934504`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        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]}}, {6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.210340371976184, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-18.420680743952367`, 
        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]}}, {-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]}}, {-25.328436022934504`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        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]}}, {6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.210340371976184, 
        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->{{-23.25610881895163, 7.1380131679933125`}, {
   4.503796077158945*^-11, 0.020000002684178435`}},
  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.63260545060371*^9, {
   3.632605500657023*^9, 3.632605579640006*^9}, 3.6326063366863823`*^9, 
   3.632607203805195*^9, 3.632607755290908*^9, 3.632608195634699*^9, 
   3.6326141569884453`*^9, 3.6329644610109863`*^9, 3.632964929441139*^9, 
   3.6329649709263287`*^9, 3.6329650438586187`*^9, 3.632965109157509*^9, 
   3.632965172263479*^9, 3.632965227261862*^9, 3.63296540026888*^9, 
   3.632965773103264*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwt13c41t//OHBEKnuPkL03SbjPQVJmSEKRTdlbaUhGkaybkHeFsiuKksr9
RFlRkl32TLIJKd/b5/f763U9rud4Xc/rnOs65wg5+Vq4UlFQUOzaRUGx870/
eW1G4rUqPNbfjI+tayLQ7DrSIf1KFR6+Orm4e6WJ4HVgd7VcpSqc3JXm9UOs
maBhffuWSrkqPCieq+2PayZ0N2dI4iJVqDhnSx9t00JgelLuZpWpCreN3xGf
7mslhDQHmdrcVYXjBo7coNtKGJw4pHY2TRUUe0LGdMJbCaUCNTROyaqw7+5A
T+avVsLxpJZH3rdUoa3G41RFTxshInBsNOqiKgzrud92qvtMmErMb4kNVYWq
CywHlinaCaal55/HBasCWmtLXxFsJ/BNzF9P8lcF1vCLzlWO7YQqqy3B7POq
cP9Y81PzyXbCwmGOcy9sVCFOWNlVe+sLwZHi2LeRw+R+a8pNS/adhOywmwuv
D5HneUIIFo/vJPQuNNOkHFQF6VZV3epXnQTTEWNFXSVVcDa7E03D2kXQqLOI
zpVUBSeW2/t1P3YR2KLsFZy5VOHwzaPr7OY9BNOtB3qaHKrwiCFLsPxGDyEu
aMSGjU0VVDOkL7x52UOgcHWJqmdUhZq+i+ICAr2E2aMX+kR2q0JR+M0Dh5Z6
CR9oQ26Mr6jAoCI7dVpZP4Ei4lXG2yUVCHLN/npzpp+gtb7+hLigArWZnV2b
ot8Iz6fDe/VmVWB3PaHB7t43wv3m63KPx1RAkMlRCt35TgiNT+hx7VCBRMHw
MveEQYIU02OZqWcqIPnLMnXu8gjBsmz769gTFVB37P3o8XCEEGFue3m4RAWa
1j10Zd6PELpTmdr6ClTA7VyRZjz9KCGK+5JP6wMVGN/yGW58OEoYFjpRXp6o
AjemqHne9owR6OuLbJ4mqMCjCit7KopxwiEXaqqSeBXwNmd5kyU5TriT/9ri
UawKNHP+s39/aZygKSO6kn6NPI8HJx+jyAQhXXVD7bKvChApiwI5oyYJdV0n
h8K8VUDma6Bde/kk4VfI09hgTxVotx9NmxqaJOi9du71cVeBz1eXVhQJU4Ql
wqeLjudUIC27olNva4pgcizvrf4JFaBu4XkjlPCDQG1rosuioAKR/Mweiduz
BK+4hN3ccirwgvFbgf3hX4Sv1W0tAjIqQOt7pj8n8Bchd7/pSVkJFZBeS2qI
/fGLoDNg6nLsgAp03N+9+LN/jnDVwSzmCpMKnL3o3xdyYYEwmZRkGMWgAr2n
T9gcil8gmNS2M8bTqcCRltG8w6ULBD5h87sZtCqQojFQTjO/QHgzZl74YlsZ
JFmy77WELhLW3U62/JhXBg/v+GeR6UsEh7updxZ+KUP/2VXWnDdLhMbGrxa/
fypD9qFqiX0jS4R0Sctv1NPKYKr7sKlGdplwcMZy9sCwMmybGk7UNS4TAryt
GK3alaHNkf5lHf0q4VegjUVdmTLMfDk8bNDzmyBJwa13/6ky7DHrt2aiWye4
3O4+eKlUGVIUOC318Trh+6OTPMqFylCzYd1CX7ROaOkyGc55oAwdA1P/uCI3
CIWHdH2u31EGFc/eLBajP4TxegoHu9vKsFezXN4z5g9B0IxkfjhOGVpnXDWO
1f0h3PXQOrgYrQydubWm8ZpbhJhMtS2HK8ow9+wAl4vqX4LLH+k4bS9lUIzm
ynLT3iY8jP0RzndBGdR2cw6ERG0TvrMVeq+7K4OhYYwif/M24aSsmHmZszJw
Hqgv5pamQLp2B7gFzyjDC3Ovsk9VFEiQxJa/baAMzJSqT+0nKNG3yK3aGgll
uEgdyGocQY32qHfqk8SU4eOSeyZfMTVS/VXykSSiDA6hUe+OdFKj26fPdMEB
ZZB1K4cMKRqkJVs9XcelDOa7BfQDemlQdlcoUyOtMiydMHJOOEaLmuJOEBtp
lEH6JkuXUCgtWsESPE27lOGCxr6DPAW0yLi4W7h5Wwl2VVeyqO7Zg7auHlT7
+FsJ1BfsJpU+70FnJZfPfp5SAmI+wwMW/33o5kDLyOcJJVizH0vWKtiHKlJy
3drHlEBUWeF+78A+RP/X3O/LkBIMs/7ucjemQ2+/lN342qMEplY5FP/k6RFf
uE9xT6MSxOUqPpjZx4i+t/34PVSgBME/dX/ls7Kg74O4uPKxErx4JCHYoE72
fNrZ+DwleO9yN0DrHNksurVqD5QgSyS4QukJCxo4lRWXkK4E45ysnadMWNHg
gCG/ZjQ5P08A9B6wocG5h5+ZbyiBscDBe5ofyd5euz4ZoQSbtNo37/4mWyhv
MvmyEtTZGbhEmrOjQdc/z6YDlWD5hZ0O3seBhn6V6KY7KcH5V3FNakmcaPgf
5aqngxI8iI4bWq0jm8m6QMdeCXpLfR2k18hWoqb/ZaME1rXH2NftuNBw8Nmu
I+ZKcH3fT3Z9FW40/JfeYxErwQImdVWs8qBRBp8EY34l0B7qiG0a5UcCT4vO
yO5Xggnpw0s2YgLI1nRCip5HCdrjPWuiPATQ1ztnGz6yKwHjCXuz0gUB9J7J
aNuQXgkqU6SuqlELogIWSX+DP4pQQM+mGisjhMbLnbHUhiKIjuv5rpkLIUGL
Bwx7fytCh73mj5owIZSRwlnctKQINR2Hdp9rFEJxbDRjx2YUIYMu78yKhzDy
4hi11O8jG9Y7UI0IKqzkFxHvUYSs9qzIJzMiaPyUzSJNlyKYnHupGsUliuzS
2xM+tCtCisq1Qu8AUWTKRWrQa1IEzU+V2SZyYkiJJ1v9yCtFCCn3PqRUJY7W
+Kz4tNMUgVgqpnJfWhoJTxZf0UtVBFuaAiclJ2l04tn24PFkRYgYfb2Es6RR
oU5RjnmCIuxdv1LzlU4GnXHbEneOVoR73bG2aysyCJ7lKsUEK0JZ/3iy8rAc
mg37nRIXqAiU7Udu7BWURzy6xit3/BWh4WuFga+DPAroXH1511sRGF4s5M2O
yiOxjeNaRa6KcOahwYXOOQUUpzuv33pKEZiinko3syihl3R6he0nFSHbXMnp
qpoSGuvM2NtlrghW3s/cY84oIS133dYBE0Vw8stcSc5XQvPxaebzRxWhVMtV
6om2MrLs0jzLqqYIF268ZimJVkH8Hjf9rTkV4Vp5OWnGWg0JJJyhUGZXhNh7
ujmQQPZz+UQ6VkUY2K31jqdeDQludZbWMCjCR9lXf2wVDiHhJKFpURryvN8M
X2FGdWTmF/xudEoBKhl8fnyaPIwsqvd/SxtTgGEXo9VrohroJHXd+vEhBaBz
UT740UkDWWUwqj7rVgC33SNJaiMa6AwUFId/UABZRBuWMKGJ3Jj777LnKcD1
7FbhFwwIedhGVDbeV4CgsQ2KtlMInX8k/vVSlgI0lM8Ssu8j5KUeyDiSrAA/
5n2QkzJG/g700U8iFCBM1jDPQUkbXS5DAfr2CiDGe1RNJ0gHJZvlGYfxKECk
t7qZq5EeCpgNTwriUADD/7RoQy7qIcublp1+LAqgTx1zf7lAD3EDzdnzexXA
cWjvpcO7j6KHCh6ethvysDWnKs3QdBSVMcrFafXJw36f5pAGx2MopZjmk3qX
PIQ8rt4jdvcYCtIfZDn4RR4cS+JWKduOIfWriZlyzfJw5rN2sqbGcQS/FgsF
XsuD1Q+C/GdeA/S59WUjRaY8qHq9TYxbNURlHol0f4nyoPn1iJ+DihFKofY4
sZEkD1qCadea/I2QlRZPz+JNeTg0QetnuWCEBkvCJ0fD5GHYyJPz+ooxmovT
pvlgLQ+XAi9XufOeQAwGLbq3uOUhtitY8MKyOfLY5VOTyS4P5v2HZun4LFDd
OxaNYmZ5cPr3h5buqAUKUbZR+rhHHor6UrxFMyzQ8P7pAwwbclApcprim+5J
VDFH8zepTw7OkvSG2UosEWNRUVhOlxwwDQn1z/VZovPOJivlX+TAIKXmlere
U0igl/izo1kOjNg0S6nPn0KxtSL97NVy4GIykPZJzgrZEnVeZWTJQcLenpa+
1tOownRCuSidbJdGqS9U1ohp762nr1Pk4OBJw4u6h63R+yvtj/vj5EBhMmIq
vcAaybmfI/KFy0GM44K0SJwNotC44v/wjBwUCj3yeep+BuUPVckU8skBaSHu
hcTtc6jQ3IbKmVsOVmbyS6/1nUMl9Ru9/OxyYD2xat7E5oDKCjRiUunkwM3c
b2bRyQFV+74dvropCzEFd+rf0Tiiz9uktFO9siD/KenpTzsn1OHv4MXcKQur
nTb/keKcUOcYxZGPn2XhS8kpvr+vnFB/o86CdqMseEmbHqlic0bjifWGsi9l
4fcvYs6xdme0fqBxm4ooC3oFq/Ep9q5oM9m9+12iLAhIBgtdSHFFf3fteRIW
Lwutw+ZtrxtcEdX0cdu5SFm4NtWj9kHRDdGXtVT0+ctCB4idK9jnjgS1P50v
O0Guf7TGEd7tgQwcur7a0clCAHPzp8YuLyQrWtjuSCsLDwdi2Kk4vRHz9KU2
112yMEwq+VJn5Y26fQUbvf/IwLgmd+a3Pm/kdM2z+spPGSgdIuXETPqg8PuU
Of99lIGBQKsuywQ/ZO/U+V9OowxIxvOvjpb7IV3xgqzH9TIgU+1a8rbbD+15
akx88kYG8C8i+ykhf0R8dzf2XYkMGAuFxUlV+6Mn3+V8BuJl4Ina9pWxzQCU
9JDCcyRWBmijrHf5iQaiIJev7hM3ZOC1ffRNc9NApDEb5vgrXAYYQx0FOPMC
UcOfesu/njLw52Vf6CuzIDTEa6vJbywDb2rmkufeBiMWm5g9dvQycKkv4Tzv
YBjK7jzlQLdHBjTb7+jyc19EkmZiVa93yYB46N+t+xYXETr23p3zjzS4WHcd
F2m+iLwOUjV+/iENy+FMXCZvL6EGlqvRuo3SIPxzoG3/28vIPMFkYKFOGvq/
Rzkn/ruMvu/hP/igRhpe1+16lapzBS1vvxn/UykNQSXCPiebryDBuY0jlY+k
wV/5zpUvQ1fRpZZgKslIaSg4/k1oiRiBaPSP2nZfkQb3+knJv9URKKmW/XnU
RWn4GLXrm+1IBCqoeuE44icNK0aMu1kUrqPO/EXIOicNRk9ydC9/uo4Ubnhf
YyBIw+TRKPol/htoXNN1a+m3FGzUNX9sp45B013b8ZXLUqBV0Pqs5mAMmvXN
2h82LwUHRtTes7vHoOW8zxp/J6VAJvnM6lZLDKKi17hI2y0F5rKvRbvvxiLB
74xr+yukoMbF0DlU/xYSDSmKHnwmBQ9iHmlaXr2FJJn1OHJKpGCweo2y8OUt
pKB3UVU8Twrk3cJMqyTjECodC1BMkYK9tNbcGazx6Ozlqnk9Pyk4NzImT/h3
GzlwnrxG6yUFFH6CBGqUgFzKfjG2uEuBH3sN88mrCchzXFj+xDkpCFIRuXOb
4g66ZJzgZWMqBf5TUZyJdIkog8/ph7esFOht32T1uZ+Evr6lG0uflgR9HyPx
V/tSUVVhb0buuCTcHlQdDFVKRdnEx6ZPhyWhXsckIto6Fbl44eoPveS4cd/k
rYJUtLY/MHmlSRK03D5pHDcgIu7wfmxRJAmPWkmz4tlpaMutYNXusSQIsbNc
pWhKQ8MWQSXncyThFrMtl9JKGiqSZuS6nikJb3J4OLNM0pFGv87cs1uSoFJe
duU+9V1kd7gom+GCJFDVnDNgispAumIhFjxukkD42mHxpDIDibMc2SPmJEk+
b9O7n0xloLnp74FatpKgunrubJ9xJorIYDbyNCT/7+FHoYX9WSj3d+hGk7Qk
WF689PZz2z00ValvFfVTAgS89mfqxzxAQTbM7hpTEhBScsJa5eMDRPG3L3Rh
VAI+F6pp2+55iLj1vDPP9kuAU5pczFvTh8iwI/W7arME6J74aM019BA9nRt2
msiXAI5DAmKvGXORRkpx4L1cCdinQVslqJaLGg8GRZnfl4CIzhaRAbtcNHyZ
Nv9dmgS0tOk4nX6ai1jp5H+kRUkAzV7XXteTeShEItxX30kCVK+6f055+ghR
fdSL2LKTAO7vuvtyvj1CiT6Myc9tJABVmhgw731Mvh/mPBcwlwDiWW8eDtfH
qP9I0+oaJte33jL6LJSPkAPH5QJ+CWi1KcUNTwsQTeazm3v6xOG12liUGH8J
CrhTQqLtEoeH8Pc1n2UJGr5RsLb7izj8+U/HMTK+BFX7PHChaRaH6cY9Edl/
SpCPXqI21WtxqLAOrhQdKUXd8z7rfzLEQbOxJNes7ik6MnFB4Q9RHL5VMK1l
UTxDZf1ubptJ4qB1ijvYCT9DcR/sO9dvioNGftmkV80zhO6Zlq2GiUOY+0bb
UccylK8v7zFvLQ66Lftjf/qXIzYt6QdzluLAfq1C5VBaOYpQEu/+ZSYOxw63
NjVXlSNbPgG92ePikF+aM/WB4jliXGIQ/KEuDmxahl1SxOco9L9fPaPc4mCT
flJKpPkFOr5Seqy7VwwMVGQvKPm9RHY5j/uudYrBp8+ZcidzXqIA0/ueUu1i
IMuTvjTU8RL9V5iYeLlRDAJemUmiQ6/Q0tmAHuGXYpAyzHBUgqYKZX845O6b
KgYFpxYFbrx8jcoDFDe4E8Vgl+ZCe8Pca9RwQCq+Lk4MHsUJsUZLVKPFi7zP
OCLFoN22wT84qxrpy/9de+MnBnqUn7mPxLxB8+l1MXtMxeB7vYhwTMg7RK33
hvu5gRg0OXiarLx8h3gXXxSfOUrOD+Svnfv9DukZPf70VEsMKN4PGySE16CM
7VjOUzJikFHkNZtyi4R0PUzyc/aIwXjhia+zw4DSD/d+0KgXBTVlz7c2VvVI
lCY7cb1GFCIjN7Q7rtWj8vZzNi+rRaE3T+58XlE9anWfmlV6LgrS0YP3LP7V
o13pa2xSOaJw5yl/wUbJe+S3xO7EdU0UVEVv3ePmaUD/3vXKdF0Shae5nZWh
xxvQ7VvZqykhosB+wYhZK6wBFQiK3mL0EYWqo7I/fvc2oEFTlTIaO3L/O4vH
LR80IqMS83/LGqIQdTqzx027GfWGcDSVq4lC3LBryI2QZuSm25fsqywKeuH3
37E9aUaRfQ5iP6VEYcbbUjR1fwuqovUzHuUWhYWzycOS/1qQuMudrPY1EViq
Wb2Z2t+KKPg/qj15LgJmvFXf/4S3Ix+NWvGKpyLQ65pSP53djr6ffsX5plgE
3mqwm3LVtKPXKXlrTbkiYM3ZYqtJ+QUF7Ln8cjxFBIKcByaexH1B48uyanyB
IhBgPf2lorgDWbCIiIv4ipDf/873/3zuQCDPwyntKQLKCe/f3l7tQP+dp1k7
5CwC11ju6iTpfEVWQwOVJ0+KgF9Uxi/Zga+oqeXOwXgVEWjj+vhZT6QLqU1H
iaUoiMBC9mJfmEkXekQTzpEpIwJX7VzpKMO60HVt99V8ERHoKMqKZv7UhTRe
4so6NhEo13WLR1e7UWnOgurmsjAURZ9a85vvQYlhFqrnK4ShaeyPkRHvN5Rv
cvQab5kwKOxi2b1u+Q29FVZv+VgiDJsdaS9Ekr6h6VZ+B/k8YXh0ZVZ9i/Y7
0hX6Eb+cLAy6R2Zy2v9+R2vN18au+ArDFMesMfWuIUT/IEBewVMYMhvi94rr
DyGRINeLw27C8LRXsK731hAyEzBiOmIvDJbPBfeE7x1GRQGcmntMhMGPPjqe
J30Ynd3/JCVFWhiorCo//3w3ggIWHgwcERcGjd33mM3HR9CtDymSq0LC8KU5
9cheulH00jes5jSPMAzmbZ8IthlFTO+PzPDtEYbsgAw6s81RVOfVr1MwIQTs
bp+IlcbjSLKGdvHNQyHomz3E3nB4Ch2YkHV6mS0EA84Sv0s9phAnvcXXsgwh
yLJZv7V0dwpR22ZXPk4SgoPhqXXZv6fQ8KripcQIIWAU/W8+8s00ypCz3eXs
IARGFOLMx6xmUKLltSC7s0JwbPeZpyHxMygm/NHEaWshOJzZ0MhSO4OCmuca
jc3I/e9ofUuQ+4nMXG/cVtMWgvGNrrsVdLOI9r9Sjn2CQhDBb7ZwZeAX+lf/
JYaaTwguqx+53sozh1Zm1n7/4xKCoOb31USrOTSqrtO/zCQEjx6e/Zf2ZQ7V
dHbdH9gWBMsqTo7QtnkUQr8tUT4kCMejkUbL3AKaDDfXsH4gCFTTd95Yqywj
q1qdMbd7gnD2tb6ptc0y+rBb+XbwXUF43tRFmXdtGT1KZh1MSRSE/Ch1Ab62
ZeRU8PV62zVBEAhqfPbEcwUNdJxq1nUQBK2PSKX71Soy5tYPMD8rCP/qG5Y/
j66it3Zq+x2sBSH9w7siAcY1lDXN6X3FTBA4686lv3NdQ9b/epirtAVBckFU
gJ3nN+qUsrWWExKEgKW7j98lrSM9X0NKLX5BUOtaOWZdu45eVGgUG/IIwsuN
/i2LpXWUgvdvubMIQgvr+XTPUxvoxKnvD3Ipyfm1c3lIcBOlUb77pPD+AEwz
Xlnlaf6DIp99mKXWPwCPGMK+unlvo/KiByshhAOgHfRXfqBsGw3nXdyaVj0A
jI0MquMr2whnyNG3iRyA3DrxOEtMgbci0mTSKMkebbDOaKXAwRauF8TeCcBI
f5pI8SolfmSMA+5WCADBUZdPjY8Kd+rzXNpbKgAzhver2I9QYWXNtlu/sgTg
iZ5hTmsyFZ4TOVhUGSYALV0/pzRUdmGPVerpo6oCkB1++veLGGp8d35w/pWM
AFiUn3KE59S44UfVbykRASjsi1CVGaLGooNetIysAhBI6MIHDtPgkYZO8e55
frhZfs/z7iINts145OpWwg8FQdLd14NpsYmm3liMMD+UirWyen/eh1Ff5KF4
Xn5Qu9vDxUFDh+VDa+MTWfmBveeBlaQmHWZ8gVQzqPhh6b/JvtRCOtwufTi6
aJQP9DMUIP0mPbbglZdozeWDgtWTc0z2jFi3yiu8PYsPnteTAr5mMWIVq5LP
nSl8sM4lbsvcy4jZUyTDBiL54Dtu5908yYS79oo0zznxwd/FVrFOSWZsvcHl
ySLCB8XTOCJfmQUfv2tF4tjPB0a13/gYT7Fg9YNpbLxsfHAj3cq7OpQF8/iz
vhXexQeslQMmY+9YcP80PYPq2H7g0vDTizZhxXa9lM+s8vbDOykOl9hLbNjp
1c+leyL7wfaCH10JEyfOfS/yd4V3P6zwch68ijnx2JcztKas+0FLQ7S9ypcT
u8x+3E9BuR90je173L9wYnehUj2XQV6wsjv390MmF/aK90qXzeSFjt0hd05g
Hvwk49HD6CRe2KtS5ro7hAfPPf5ePBjLCzf7KCNVnvBgXzAmJYXwAntwaPQK
Hy8OWJWdXjnJCz6Hh5jkqfbj0HO/Dr9j5AXTs7uFz4/z4SovMT3O3bwgb593
lEKEH69ftDP1/csD3p2l9wSc+PElYpuT0CwPiDm8vbA6wo8vNz+Jj27mAZqr
uXMy0wI4UsVnwCSKB1wX7OrHYgXxbdr5iMENbpjxM3xtMiOMa8zfbZ5b5Ia1
J8FuV1lF8Py9+KCRaW4gMN4Up9YUwRaKkh7jPdxgv5JdwpIggrltHE/MVHID
N2Vc2fGDovhR8Vf+NX9uyBg5XduSLoa7V3Luhp7nhl23OP/Ley+GabEfy4YD
N2RauF8YWBLDF77S02yd4AaTZPo9oWbiWHHr6CylPDd0b2TMWzNL4HcmVdUM
M1zQskVkSMmTxHN3Y1QTR7iAqnd5/XuPJBYctXzK3McFHX+4bdLppXBUyGIO
WxMX3K6L57AOlcKGD6Rv8eRzwcRxKXUlC2ncvZB9WsyJC8zTJRQYBWTxXOr1
Fa1+TuBN1OWt2aeIR65XVJt1cAKX9t33/tKKuNN3KsKlhRMo7OjLnA0V8Wsj
E4bb1ZxAym+Wo45XxFG7eMS/ZXGCx/MK+aNMSpgnsOz0xTOcICIYk35QVBnT
O47xJ5zkhPTrr7/RHlfG/0w5xx8acUJxtqatoJcyHpe+7NekyQlb3pHC4pXK
+OnosVtcfJxANNNYTjVUwXoWQ9WV3zmgk2ssKuiGKj6kzXq9uZMDfgpmi8yW
qGJp+aPHBlo5IOLFjfnnnaqYaV/JV+p3HKDvO+6nKHEQ99eGzJ78jwMGd3Hs
3vp8EPsqMQos2XHAqzHmZAelQziLmXBdfogd2PZ6Fq8e0sAD3uf/pnezg3JI
yJUFXw0s+DHt4nYbOwg3eRIdCzVwfvScf/tbdphoa75TzKuJn28+cArIYodb
TzXnl6i1cMs4ld7LU+wwTfnRgLBIwAy6CiBgwg4+dlp72ZUQNntwRitWjx24
OjYM/f0R7rapULVWYYevl6gK6pcRHv3kKrbJzA77q0n+k/8w3qxq2o1a2aA+
38+DmVsHEzhXI/Pr2SDDpawzQEsHRwQKbTO+YQPndOMcIUcdvFv+0u+hIjag
JFK1uJXoYNY8menrsWyQwBFz/+ERXSydcKf5gy4bDPz6bOFw4wg+42h52+Q1
K7yrJtQ16OljB6cJy+PlrOCuPTjz1U8fuziH8B8pYoVHfB5P1P7Tx16uGU/V
M1mhXd7k6vaaPr58/nu7yEVWUGmc//Ps6TF839+FY1OdFbqHtLT4FQxwbsDq
wIoiK9BoC6+0Oxjg/MCY/HlJVuAfVq8aTzHAT4MLD01ws8KXCnYJhXUDTLo4
a9O+zgItg29knBsN8fD1oPv5VSzAXVtD+BFmjMcjadxzyljAyc7i4nKZMZ6+
ka6QXcgCSTYywed/GOPF6CpIzmABz47R2ntnTDBV3Nbo5TByvxcWkQpHTbFI
SpTESXUWEKSpkR7jNMNuucSy7VfMYMx5RvWonAU+M/xmWriMGQT3Odrzm1lg
M4ExQf1CZrjtSHdCLdACa2QpJd/OYIbmGV192WoLzJjyyZ/nIjPw3lnYUjU6
iV9d36OiosEM1c3vbQ5cssTMdesX2sKYgLh8nqKE8TTeJBz7xnaeCQw587oj
NU7j8ddpRrY2TBBqqfyl2O00ripXlp06zAT9n9VNfpFOY8ccr18UfxgBDqgd
Mgqxxs8jhn1VrzCCCTMeGVmywSdxU9C96wwg1FvzxVnBDg9m7jWP92MAOaZP
gpSedthjxVAu/BwDuOSNsLEW2OGrRW0TtgQG+DcXNJksaI+L2L5a8W7QQ1aW
hcIBnnN4e2pAPdOPHj59bbqQnOSAS5KWt9LP0UEY40qofrMTVvup2hdjSgcb
t3PPc807YTgaUhlCoIOzzSL2ChzOuHtz3dtqPx3c1uRiVnNyxpSu/wY5evYB
ncCjX8Xbzvj04b21RNN94KwewZd+3BXvGhWITiHshf5PV19ncnhg5iipzXy5
vfBi4vmnNR0PLCCu6vuGfy9UGs3p3vfxwOoXDGzG/+6B7yeLm9uaPLDXUqCc
Ws0eYBJ+3f864jzupGru6kN7INL+4AXe7Qv4sUiguJA2LYxGc0hkqfvg5x+u
3DuoSAuD1p/rt3x8MLjfZDYUpIVZwbjcysc+uL/kv80AClpISzSMlWH3xYyq
TZ/ew25g/tk9rLTqi0P0+EM9dHaDQPFm6p8xP3zMtbHxmS4NfDwk22DfF4BX
Jt4XeivRQJCZAzPT3wCc61Z3S0aQBiizVQjrgoH4n/s7o4K/1BDudWo9+Hwg
rrjw4vP9KmrYet9ZJvI3EAv7PehJkKcG2n1D/l4KwfjfpdApT95dEE9b8bsE
QnHpn6Amqb27IO31See6n6HY9nJA0dRvKkjzv9zHwRWGK694ezp3UcHdViQY
5BOGvSKc522TqGDhwClPJsGLuD/6xG+D3VRwjeG3dOOdS7gySYJWcokCYjYP
eIhlXcET1nMR+0Yp4FaeXMr15iuYQ6hyc/YLBQTX3tnPunEFB5frzpWXU4Az
ddnQZ+ur+GCHXZemPwUs9hn1VvNew54SksceDG+TWK2uunFYRmAvOcqIue9/
SZ6MJ/H28nXse/jF4u2uDZI+b27rk6BobKlr6Xl4fpGUcwEexrffxq9vCK4u
tS6SqHPvqYst3MYCH2avlhYvkga878Y/Y0rA08eiUw64LZIM2Orvp5om4HCT
l69pBhZIyycsr8Z8TMB65YrMj9LmSRPxe9hu1N7BwwNVBl3GP0lTv98+SzRO
wsUO5nbH9/wkPR93aq+1TcJBYz/83tTPkL76ZxWNeCRh2h+8GTkaM6Rbvtrq
P6KSsPzK5UlvyR8kqbEwE6a3SfjyPp0bu6mnSAJ2umvB4smY51Dz20NvRkkH
VaxEmn4k49meGBVC+CgpSIjhr8tKMiaF6RXrao6S8iaZ2mf+JWPXatJdkzcj
pO/OLffL2FJwOeFlgPObYVLFDE22oFYKTr2pby4QOkBKv6sYfvFmCtZoqUVS
v7+TTrwInkpLTsHDdARZ1dDvpH6r+OjMrBQsm6hCaxj6jWRvksJhVZqC36cJ
vgsO7SNxQL1w7qcUvJK7KdkW2kU6bJPud40xFWeNB3P2/u4kNe3KNdvLmYq1
xRd3jYV2kmxDujYv8qfi20VTg+uhX0lqPXLpTLKpWLSskyga9oV0nC21gv54
Km5ZPBGpsN5OarjG6NNmmor9VD76aoSRXbtwMPhUKr7ofSPt4cInEqpPFL7k
lIqLL9lRri+0kGQX06jPhqfitb8nvzMsNpO4+7vPnL6einWvG74SWWwindt9
yV0jNhV/iz3kfWKxgTTgu8JTlZKK6dNY+vIX60hHjh99lFaYivvt4x1LxitJ
5/wrN9c+p+LYw51p1NUvSI/MMl4NdKZiVXb+FrvEctKKond1cV8q5ku1cxUM
KibRI/Gj66OpeN+X40ydhBRSp7DTRY+VVHw5tBf8xW+QxjOS6mPXU7HZpxWl
l2wmJDPfW+qJW6lYLEqqNMMrCbduPe48TU3ExbNtLyLji/A8h2ZrDysRnzik
ZdQ+/AQjo6FAbU4i3tQ+tci4vxzLstI8TOUh4ofx9TfP+lXiN23h1zcPEPGs
4MNXv3lrsNzt0bEOGSIWzCvR+SwMuFqcv/CuPBE3H4wtEFavxdktKgYGSkTM
dwYFNjvV4+uYPSZIjYjrHpfu46pqxOFSJbrLmIg91W/6XWhrwpfEuScldImY
/aNz97vRZpwzd2DRSI+I3Rd4c10YWrHbtyw75+NEzHxjjbZKuA0bC226nzYk
4mqODm869U+YS1JOUsuYiGP+e89no9SONxsrJntPEPE3t+efqd62Yxufn4HJ
5kSsqPgwslT/Cx4gGE1oniTivrrw6e0zHdit9FC3uxURy04rV+THdGKrGzSd
ImeJ+Hq5oLsZSxeWOkInEWRHxN2XGHk373XhKyJDtVX2RHyNYeaaSXk3jhIm
bR9wJOLO7h7l35o9eL7ugd4RJyKWfPhh4mFDD27iu7FxxpmIO5RzjFa+9eK9
HwoafVyJWGLrzr//3PpwY/iBS+fdiPjyh8vlxxb7sGDrhypbdyIWs7bmurf7
G76hdKRV6DwRh11hGtNRGsA33mz1GXgRcU1oZrbL6wFc4Zlas0U2TYCIVazO
IDZw+RtQ6E3EKW6HmlvNh3CSf63xTx/yvA61kfN9Q7hv39THSF8iTnoiJrBX
aRjbxdMusvmR5yt41iPzehhP+pL4Rf3J++FRkCrh7zD+MZp0J49s/tzDyaY6
I3jpSJs/fwARu2TXG/o3j+DF2DwbykAijs28WRDJMIr99dWaPckuTjehJpqP
YuWlrxe+kL2Y1PPuZd8oVjUl/bwTRF7vO9m8TfxjuNRGXmqKbPV4x9A+xzG8
THP8mGYwEV+N/qm49WMMV9WeeNZDdm5kWQKD/DgW158wEgwh4g/XgmcEAsbx
76O5Lq5k01/aztPZHMeNm3cvTpCtEPqe4iSawAr32t4KhhKxRdAtO5fICfz0
oi+1DdmZPmxcsfsmcZBbn1At2W89ewMzTCexrmis8CLZwx7/tRelTOKKKxpZ
AmFELO4sEdfKO4VX9mZcDiDb0GF2csB+CndQZLBnku1tV35kPncK2+nU3H5H
dsVpzb8sMtN4W2QqheIiEfdYUtiK+E5jOe+PNgfI3jT/8FL1xTT+1jd4Tots
HeMTfqc1f2C20/aR/mS7GLC3eVz7gbXZT7ffIvumfp/UpfofWKn4QcVDskuO
3I+Jp53Bsh1fNF+S/UnbeSzbaAY7Ol8PayF7iSCp/TRxBlvQXr46QDaH5q9s
0tcZTC+n4zBP9tmDoVajZ37ip/eWRpkukfezstaL5Qc/cfVWV64A2bkKlMw0
4z+xJnthqCzZDbINXpySs5iSwsDjMNk/pOKbJbxmcWRr/LWjZNNLmIkfLpvF
D9KcPpqRrSjKccNwZRb7HsqxPUN2iMADLe/LvzCj9YdLPmRn7XfJvAq/sEeU
MUso2e+4pdYSqedwe5QuwzWyhznmLHKOz+GHjmmXY8imZnvx7PntOayLaH0S
yJZgDqN/306OV8CvVLINGQjnu9jn8alAuZVMspNpG4XXs+fxXpO7FY/ILp10
4wv9Po9Pqg+qFpE95rSL7g/DAk6MOeLzhGw/i6+x1XILON2e1b6c7L86edSX
TBZwfskITSXZcUqB1w97L+Bj/454VpHNJXTk3/rtBby+sZ/4hmwlirHfoa0L
mFhbo1dLds3886BDswv43AmDz/VkGw1FLq7RLWKavO9SDWT3frLweSmziPvS
TK2byHatEf4ZbLSIJU1L7FvIXnqy5H7QcxEX9V5GrTvr81/d+ErcIn7+t3u9
jezMy06DgS2LeJ+p5b4vZIt7KZ9RmVnEgb7WHh1kvzhD1bu0dwlnqaUWfiVb
26jD8rnUEjarPf2xk+w2jdwv/gZLmKZKtLOLbFvpAFOl80vYgKGwoZvsKR7d
jws3l3BAOuT3kB20l/V4WeES3nx2LayXbMqNkfe+TUu4qKgH9ZF9Z7pcR2F6
CavlWy7seH/v9Zo52mV8kMUgoZ/swkZzzacSy/i/hCaeb2QffCVU5X1sGes5
7c/acV3+oqqc+zIe1ADW72SfSK8tn41ZxvWr3jd3/D06Wb40fxkzXhRf3/H5
YMcSz4ZlXJ0jbjtA9pqLkqTM5DJ+1zRftuMoS8rHMzQreLfI4e0ds+h9ESoW
W8F7Yr4fGyT7vkrO/fNHVzDFnZ6EHcuI+O+Xcl3B7wcav+y4ilUnYzpqBT+Z
OsU0RPZRKhaOwkcrOMBjXH/HHYvDye7vV3Bsk/DFHZ8bKWOUGF/BQaTm/B3P
tkfET+5axY6P7rXv+CKY7ckXWcUjFuy/d7y7TDDa9cgq7o3j5x0mO/XBAqWY
8yqOCRg4vGPBRLg6HrmKuTiuWu34ydWkP3m5q1iSUdZvxxo+DmHOdatYc4Ah
dseNdoqrwqOruH+kJGvHliYUAaOUa9iB0a1kxyNa7XM5Qmt4Yntv9Y59ZB96
Ouqs4arLvo07vkmn7TocsYbNFM4P7Th3Zsj+HKzh9CT5yR13Fx6wsMO/cc2K
x8iO97mfO3qm5jdmc7m5uuPDinv6GI6vYx+FlR879tgo84Iv67jncua+EbIp
7KNfZnJuYFrhWbYd362zoQg8s4EPnKUX2LG8hLyh8cMNnD32V3bHDfFURLGJ
DWw2fVZrx6IClm/i1jfxSWkNwx1fL3s8Ok+3hVsbqf8X1+o6rlSt/A/X2B6W
3vHW1iquk6XQlh0v/V++j5Jf8IY8lbZIkorejodcZ4oVlai1TbULHHY8JzJx
9dAzau3ta//8/1c/MmSB5Gi036h/DN7xLp2BtzpeNNqsEwNeO973sF/8aAmN
dmFNn/WOWbZ7ko7P0GgH9pXq7pjbvmvTSGq39tGwg4d2rNrfkmsjRqtt2aZo
sGNzKzB0F9qjvUi3T2fHIZdO8J3S26etnGZ+bMdZ9wd/6brTa2tdv/s/B3Xo
5f/nyqgdtpz8P0vcOKWwpcSszawQ8z//PCw33m3Kos3E9//8bIE6s9yTVdv9
//v/ADKJL00=
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJw91Hk0ld/XAHCJyJA56poJd8CdKMo911hknjKVeXykkVTfikxlSEkqSSWi
ZKgoDbIjKZLKmMwSFREVQt7n+rXev876rL3POnuffdZR8tll78/NxcUVtYyL
i7Nmfz72Vf0hE/Ym7t8sFTTG4l1u/J70gAmkhPO0wpwxVqjCikea5UxIm5xM
L+8eY+m7JJ9k3GHCVG2IL9npO6vt1QUNdJMJVh+r68rMx1kiRXcCnC8y4a/0
xG/+vAlWxKv91q7nmeCYOPVY+8UEq2dova7HOSbYfyJ4XRieYN2Wf8rrc4YJ
W74N2tDIP1hbTtfn7jzJBMbw862ny3+wovYNDsQeZMJQsSz/ofZJ1nDqjfqE
A0zo5HUR+Ds/ybK+HXw3MZwJUmX3k14rT7Fkh8ajT+/B6/WNct26a4pV4Tyv
mBXMhFvElVF9gj9ZE3pSnvdcmdBSMPx43OEXy5tr88d+PSY4E8vLpVVnWFmR
JyYermfC7omHBlouM6yOiVe8aTpM6Eusqy1LnmFZ91tSjWhM+LH1eLrU9AxL
v9o+LkeDCZmbxN+x382yJGJ3aPtKMyE7VuD8mqw5lvX8FZONUkxIl9PMyW2f
YyXu73eVkGDCSGhEeonEPIvL3y+2ZhUTxkv695qnzLNGTUM+qKxgQkjGy32F
8QusWr6ImE8/GdD3M3Fe+ewiiyvqwYUnkwyw3b6wida+yNo0M1OUPsEA/ckT
z0aEudDdkcMdJqMMWNyudTTAgQtlv4rWzBtkwKoHXwhf+rnQgaSUdv/3DNAS
EI+9KMyNiCJ55OESBhTtj+nxzeVBjqWLzYNFDGivdnfubuRBUXZu//UVMmBn
we7cm9M8qO2sSOOHfAbcK3OyN7DkRbEyh8JeX2FApnKEiu8sL+pTsrlzJ5UB
2j8JOiw/PiRUc9O1OAWP/90exjzLh9b78XAXJjFga7mP1YlqPnTqxkP73AQG
tLm96NmqzI82klV/ZhxjAOnDVL3zZ36UwZzV/W8XAxhvQqxUowVQdatDb+RO
Bswrc221vi+AxiKKE8IxBhA/HScMfBNAJg99O8ICGRD5QH+/hYsgmjR4c9Db
kwEZkj4SOrpCyGrz9SdmNgyw/3WnWJtvFeJxszIS02ZAgGE+z+IyMRSamLJC
RpMBg6OPZXaoiKHmR4318mQGdCIi918TMZRDsHagqDNg7GK8MfdJMWTYbe23
WYEBj6tE15MkxdFRL9v4IyIM2KP2LjlovQT6fPq0RawwA964Ep6LbpdAVs/e
rkoSZEDPtZypZTESSFbZ7vwFPgYcEPrs96xJAj0etCu4t0iH4QDvLzWhkmgm
wKH+yzgdXGPmEpzKpZDX+bOnJsboYCjmoPm2VwrV1TXbT3+jQ6V//6csgdUo
Q8PxI88IHbT3WvzS8l6NdL46jir00SHDM7naTFwa7d3pvMr5LR0sBxX638XK
oLF9rvbVpXTYJLQ1cKaEgDS4ZEyyi+lA637mceorAfklt+kcuk2HG/H2Jtnr
ZFFXrsMaegEdPMKUQfuyLKpvteq7doUOYd2Ohcw0OVSw3igs+hRer0yR3Y10
BfSphstrezId6m83m9u3KyBF2yo7vUQ6rD87QDURVkTngzbp/IijQ0/y+itb
7RRR/EXdea8jeL0OCoSSLkXkN0dKZIfSITTCepnZMmV0NeHLYdkQOiRXLEvT
VldGXRIFO2cC6fArbr1hoJUycqCssyv1pcN8aKVPTaYyMtquIKPoTocfhIJq
pKeCFKskbiya0yFtTnh5a5wq+nh8/tlTdTqcKLZUEfJRR/wbWsyq1tEhdVPj
vjup6og5VthQpUIHmfeh7kWV6ih5m3srKNDhweVProVrNdAmyqORamk6SOqr
Ud51aKCs1gMidXx0OPnF46dNAAl5aEx5NA3T4Jy8Jf+tek10oru+v2mIBmTt
vxRPHi1UlpYT8HaQBq/lhrijWFpIaMFu97teGohtX36Dr0wLPXlXGtPcTgOP
7U76xrnaSPZw2K32OhpYJG3QWtlIRV2NX6Z782nAHSKmZjBBR1096FZ5Hg3o
wwN3sqQZqGv8nEfSdRq83xFHt0C4xYye6V6hQZmJrt6ZVAbqdspMTMmgwRZj
qbQeBhP1dFvIbYyjgXDjG5PJJB3U8/1qk2gMDWhr+1fuq8C9+Dv6cxQN/KmU
Qosh3ErXP5/5jwYClsffc7F1UY//XMnIPhosBE+uuDiri3rHCo0yfGgAE8ti
F45sQH1/l/3CvGhQ5WmYTy/FLeKSb7iDBrbiAaSXA7hpPEJjrjR4+vTq89Xm
eqgv3KPV2I4GTm7WZx3W6qO+BaGgH4gGQWs749qbNqIB4bAUSzka1OqseXg0
CSH54pvuFAINTDxyPZpeIeRmPUQUWkMD/i6trVt42Kj5lMeLBkkadNZL5d0z
ZqPnIlsXLYRoYKOVdG5jLRvli2nsMZ+jwtt7a0Kcmw1RqNSAo9kHKjheaDEe
ljNBBeVyKmrtVDC2nsi7Z2KCPjm5/uBtpUJ35AmjaswEbc94m1L7lgpa5zy9
8h+ZIGvpqhcmL6kQI7Yv/aK7KaKtydpg/IAKNl5uIl63zNBvWWdZ9jkqXMr6
Xb7niDlS/nzriMlZKhyMjozouWmObEoWe7acoQKpdzw1uc0cFRjevGaXQoWo
n4fPFVEtkHvAvJpvHBXu+Cdv4x+xQFCSQ4sPp4JTc982S19LlGg0bvbaiQo6
c2ELKik26L6gScFbByp0fCkRFa22QYMtF1a22lGhqcHcwGjaBm0KNHrdbUWF
tmLeS5totmg86ZzduCkV0uQ929Zk2yLH1o0e4rpUGDjgt3vfUTskF3Rij8tq
KoyRqwh3XB2QfIo7F12SCrxjeww0D+O+q5UqKE6FnsfLct5nOSDF+ZbbT4Wp
YN5b8utCnwNSPq00ospLhYA/Ta1iIY7Idnd45cCwNqxXppOvxTqhANHO85LX
teHwlAfJoX0bOmN73TJyjTZ88TyjsH/IAwmb1xudlNGC0eL21okUXxS0POzp
RUkteNSdQ2y/5ouqK8X0b4lqgWG4QUp5uS+KoLvSGvi14Dz3/j8u3b6ojzCi
IDyrCQztqHBtih8q+867cPqDJsjn3bOorfNDbumGDy5kasIrYkqA7E9/VGY9
RL+ZoQm7X/EGWa8IQCIrTxY/TNOE6IunmkNlAtDzI2/zOhM1of3E5eM7NwUg
zUDPdNnDmnBbSpcvPCYAcekf2XPVXRMktT373YQD0Y3eCnKBrCb8PkQ/aLsq
CBXYuXL7ymiCszJrc5V8ECqsme2Qk9QEwzDKF0HtIFSarx9/VlAT0vYFGxrY
BKFHu570Hf1DgQ7L223TKUGoabHqnFMHBZ7V/Jm4zBOM3u/xChVtoYCjD49R
g3gwahnkMm5oosBVpYnY94rBqLPOcIJdR4GXiXFKYZuC0afUGgvKfQqofY7G
2vYEoxmFukXudArki2kHebQGoz9nAtsqUynw96X7T0J/MFpYzl8UmUSBjwrk
6XujwYh7ZIvb9+MUkGFx3965PAQJldaXfdhDAYnlL9gC2iFolTKWlL4Tz7dz
VE3VC0Fi6YI+NsEUmC0NKhw1DkGrIy1Far0ocDj+SBvNJQQpst8El9pQYAK8
I0eOhiDlu2FsbCsFpL26WnVOhKB1qiLSapspkIKwLo8zIYjEb/v8EosCoYkH
ZDZcD0HMt+/kEzTxfro/SqrXhiBzr9bm7YIUUAg35SZwY4iiWvDWm48CfyzO
SF7jx5DoyKFG/+UUsJYhFPCLYKhtl2LdzjkyKGrUXTxCwJDPMezRkW9kKH7y
9utyBoZMjVkPoofJMG986VLWBgxp8ImVxQ2SYSr7T4kMC0PfT90vSvlIhvR1
goFPtmDocPaya5cbyFDJsu565IGhHT4tl6/VkaHwkYr2AW8MGanlZ+bVkKGu
X0hqTQCG+Ist04sek0HD/l3nql0YSq88n1BZSIbUUWrv62MYOhAdEvssnwwN
+o1nqmIw5GZqEF17HY//8QnLTMCQYuPAocZLZJB787VqZSqGiro0w7qTyCBT
sMK5IwtDp69yYf0JZPCPIhRIXcXQfr/mwKEYMqRRr342uI4h/dFI77HDZNCr
VdGwvYmhF3M1jgsYGeQN1ofGlmHoZlWG3bIgMrj7CV1WeoCh5Jhga14/Mgxo
xx27/RBD9oIiW4Q9yDDXf9c2+SmGete6bZSzJEPe25tc/9VhqLqHskFpCxli
7ahnT73C0I2cReY6E9yPhwLONGAolJSnpbmJDOWXE0WCmzBk8/0AmbYB7y9g
wJv1DkP0uxYaOkwy8L7sFudtxtCM3oSSAYUMKEW6PbANQx8XquUNNcgwmeOT
zdOBoafPzhFMVclwsqOakv4BQ7HmG6WsZMnQPxZRn9yFITHXeP7tQmSormnX
+taPoawWJy9Bfvx85dpBNIjP13ZdxcPlZOhY/aw/4ROGWJufB66eIwHROH5w
8jOG6qvPVj3/TQJlSD6yegRDTixf6X2TJCDxzJ7X+oL3o8Nd1/SFBKvnt9UZ
fMPQdOk7+aNDJKiRPVaoM4qh45RrEZR+EsCf7EyVMQxdVGGrnewgQZql3ImB
7xhSvSJydH0LCV5H/eEuG8dQ6dre1qEmEsRl6iX8N4HPR+xonFEdCSweSQ9O
/cCQXYpV90Q1CbhUZPZdn8RQF7+czpWnJPjw+IXN1ikMTS0+/jRXTgKZJM2X
sT8xdPRw0qZbd0jgY1z+cfUvDAlMu6W7FJEgu+EzOQe34vdZ4/JcEhyz9X6Y
9xtDhcGvLvleJUHzQe9w+WkM6Q5dmBLLIsHykJ6QM7itutZfDztLgpU1wx0B
Mxjq2MY3J5tKgsnzG16+wu3X3GbfkIj301jbpz6LoUP14dwax0lgrZZOb8PN
a2bq1naEBOyEqEq1P/h7fSZ5N/YgCSg+1Wv34c6vuOfdvxu/v8FMCtcc/h6Y
MQ9TQ0kQvLPM1BD30xJ7MVYQCX4fcxk6irvlxg/I9CTBtafFtAncXsrPZMzd
SRDQ+1VRdR5D3y6f3j3tjNcTUSHvhDtijdfLPHu8/n3h/jG4uc9pKzpak6Az
aJVECe4U0cUD3BYkeGJNYHfglkl+01RqSoLpAX6+RdzaMTuPCRuQYCa0qdV0
AUOP/m5qf7yBBHq5FxQDcJsdEtIOYZJgduFkQizud78+xstQ8fold8hdw+2x
p7DnBZkEXXcyfz3GPTJ6SDdcnQTvvcnrWnHvC7I4paKCz8dqV/Uo7kTPLwZR
a0nw0uZwsfRfDEl9rDintZoECr9OaJBxX3U+MdYlhvssn48Bbsr7baZJwiSQ
Oq8dbI37gZX6Zb2VJIjK17Pagdvo1e+fwzwkKDDhV9yJ+43JC8sMLhKoi22Y
PYT700b/+clpIhimV38/i3ukdTGpfIoI52rfjGfjHt2VSYgcJ0LGmttaN3FP
rNQp1P9GBP/N8hV3cU9db9Jf+EyEWaPRjMe4fxuE1FcNEMG99lJLDe4/7Txu
x3uI0ClqcbgBN7eQ/kG+NiJs1LPV/oB7xY0W/vp3REgtVXbsxS3A3nUhuZEI
amMBfEO4V3Wu1LB5RYRavcdbv+IW25/7QKyWCGwxCdI4bslVaHMLEOEgz2jh
FG6Zgg9tGU+IMNRg/3Eat2LXqt+EMiJE3A8KWsStGnEzrqeECL7nXj3nXsT/
A1ETqWuFRFA8ZdfFi5tyqyfXN58IxzqDyvhxa5scZKpdJ0JLeIO9IG56j8Tz
kWwiPKUmVwrj1o0sdijMJAIxYGRGBLe+uPngzgwiVK34xS2Om3V7cC81jQjr
xrp6JHAbmR3lnkohwpn46NNSuM36ZNLKTxJhWc4iQRq3xaF7SpFxuC/fiZPB
bSVpfUc/mgiCDbrNa3DbFo+wF/7D67u+j4+A23FLzNuqSCLMrahSksXtMiDn
dXw/EU5/DFSSw+3xX8W4yW58vnEPeeVxe612OMYXSgSt19Q3HPuVjq2qDyTC
74/sGAXcQRYnspN9iWDa5k5UxI19Utay8SSCWzQBOA47Wlkp5k6E0SzpzUq4
98q4WLU4E6G1Y6iS44i7k10Z9kQQj/dQU8Z9yDIl1NWaCNni/fEcH/2sPk+w
IIL8ldJejo9HVSf1mBKhwzuDqoI7fu12wjVD/L7iPA5yfLJs+pavAREe5TIf
cZxsnaavpkcEqYWvvzg+PUKpH2ESQePbNEUVd/rxOtdCKhGe7N/oyfEFWZ8v
OylEQAvpyRxn3Z+PpGoQ4fMxiXKOr9qe559Swd0j18lx7lfahXIFIkymTM5x
nB/7Wj2SQAQoOrx2He7iimWbF8SJENJ4wYrj+6O6AccFiCC9de0Bjp87XstN
ntUAgYq+Oxw3PxEczBjRAFZvZzvH2/VuZgmHaMARfWmyGu7hcjPn2G/qQL0W
LsJxhPrhXWY+6uAXfOA3J5/3YskJ/g9qQOj7scjxDTOtoHEXNfhhL7eUv+Xn
7c1tHetg5mnUKo7HM6rj+a3XQeQpkaV4hl5HrX6NKpj+N7EU31po93dKXxW+
WvQsmUuuQbforgrYJQws+WX9KZ0khgqob1y2tD810p4ZXKYM59ZSl+xBKEpL
IynDupumS9Z4yvfj8VUleG3lvGS+y7elBBSVQC08ZMmfD9vpu1xRhDs/Ypbc
QnRz0VRShPXp15d8vKR2lMdMATbmNSw56BfPiClTHnyfLBfl2GqjyWC8shyE
m1sv2WVWGhNTkYUSStGSfR58m7ykQgCBXpIYxwc8x/QqV62FQ69eLzmZbzyq
Z1YG/FxzxDmutKp4JPxVGuIm7ktw/P1s9M9Nnash6768FMcm9r2PyrukYPng
m9UcZ4oaRGv1SsIbs98yHP+peLmC9VoC2qJnCBy7ezsmWz0UB42aPgWO+6L3
Z9+oEIO9X1NVOQ7ISS9dfCAKrB0xJI5Fq2dCGiNFYK/yAI1jB/Ry/6VoYdBQ
VNnIceHpqfkMT0FQym3czPHyAfm4NIOVoK74ZhvHeSr71JTYfBD91zmE483+
dXUlRryQsHE0iuO/hw4MY2uXw4ffidkcl59W59OY5ILmU33POA7VXBb1vWuh
Kl/u1zDHu/Tu/Uhuna3yETYTV+f8J0aOmN74j6pDjpoYx33dFeatlt+qZJoH
LnC8Zv2rJ+sfD1T91Bqs4vhnzh+NxgOtVVO9MR857tyR5F34qbwqMfbFGMfV
ebcFpCvqUIm1ywzHkUdEBg1p3WjySsI8x2q+6omv1w6j6MCiBY7P8NUpz2SN
o5uRA0sODvcuxF5Moftvh5csEOhp6v50Gn1QH1lydGnewLjgPIrV+p/n53+h
agoXe1j7fw6j7Q6f1eJmm/9zr//XW1QaD3sZ/X+W2dH6ZytxBZvn3347Z7AI
VOJnL/zz3ibLh0fp/Oypf07f8kE9w5ifPf7PbfqTPLX+/OyJf3ZTUK1SvsXP
Xv3vPL+RBEYPfSX79D9HHLKRdTIRYKf/c2Z2z5hRoBD70j+rxzhpz9NE2Zn/
/E1P81Obtdj/u2SC5+IdTPz/8/8PatRyKg==
     "]]}, 
   {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwt1nc8lf/7OHCJeMvITFb2OPYoiVxWimwqpCjbObYiKZkVKQlHg1BpaFDR
7lxRGaVUZlkZGZmZiXxfPr/fX+fxfNzn3Od6Xdd1X9ctdSDYwZuZiYlJfiUT
0/Jn3s/YIYWnOhgaKBQl6jdiyLrS9AvlsQ7Gml4IKi0cMaStX/VMtUwHH1sH
djxvHzHc7Hz6lHapDgYfknqnuXPUsKkmRxFu6aCXhOy+5xZjhjx3S312XdDB
7KGtUZzXxw0P1UTYuNB10CNth5n2u3HDjj7djW5ZOvhaMnHsUv+44R2JV6wH
zumgmTx9REd5wnB7eu21wFM62BX6fFVm2YTh8fCe7sTDOhjG5M90rPm3Yf/Z
otoTkTqYV5fJwbz429Dmjv+DlIM6WN06eb5eetJQrG8sLj1UB0NiRkNtgycN
n+xakLzsr4NuWblPe1dPGY7rCbo/dNFBqYrZzVOO04b7mbZ9/6Gng57fQ+vE
ZOcML0edHH+qq4OMtAQPbec5w5bxGtaMDToYKFo++fT0nKHNDysNE00d3Hl3
ZavI7Jzh5gqHpEJFHTxa2W1q/vmPIX/iPnXPtTp4v8KWuv7yX0ObhStm+oI6
+Nx7XcLt5r+GKRE/XPj5dTB8m1x8Gf+CIZO3V2Iltw6m6flH26YtGA5vDWiV
WaWDVvt2lZQmLxq+ZTuU0DuljX0bSm4qnV8yZDr+OOfFb23Uzbgyq9u8ZGgw
N3c3c1wbp60U5Ye5mODBwJEWs2FtrBK6OOHvyAR5NXGq13u0cXNM6d3hH0wQ
mZrW7P1FG7cwMXbmcjGDEs915f772hi/jrHF7xoLOJUsfe25q4110wdf/ahj
geP2rjFdxdrIdviI4L1ZFmg6z1PXekMbcxOiGo2tWCFRODrowxVtLBe5+d73
Dyt0SdmWlp7VxpB5DmVTLzbgrLzlci9NGzWy9wXpnWcDXS8W5uJUbeTxOrU7
rYINzhQ9dbh2QhuzwyIX7aTZQV9Zdio7lnzf4zG/2092yNb5szEmWBvFqSGj
SnEcUNHo2BkVqI0umyNmHcs5YOTQvRMHqdpYWBPztf8XB5g99WwJ8tXGsqlk
Uzvn1fB7y8fD+921sdIinE9/IydYb7v6wtxWG4W95nk3snEDi6u1Ca+6Nvqp
XbjGzMwLtJS0VcKq2tjxup+xX4YXvj6rq5VQ1ka5I7klK7byQqGojaOKgjYy
Mh4zrTrFC8btNl7b1mtj25YgPjUBPjjmYZd8lIfkry3oBk2XH36mp1smcmmj
tMbgT4G9/GD9up47dbU2NnOUSqxK4AcxaXt6Dps2jkbdyH/7iR+e99jffLik
hR+5nLZV0wRgzsexdnBMCw3UL6u6lgmCB/38mfERLfy3U7+toVMQqqq+Osz+
0sI7YzK5BRxCkK3o9J1lQAt3y0aj9n4h2DDkNLy+SwsHhY8+2sG3FsICd3Hv
qtfCT+l2ss2JwjAS7uJQUaKFlonie//dFwVFJmGzvHta6PcwyT1zSBS8Tjdt
iL5D7i8q63RNTgzarjmu07qphb/zvYc25IpBbaN1V8EVLVRs/7ZaP0Mcbuqa
BMWd0UKe2FDZu5nrobeSyWPvaS08FBWk7NK8HiTtGPZ6KVqYGK18axuXJND9
DDZMJGlh+cxNeVt7SUi+sHHB46gWRjcVv37QJglefykpRjQtvG+xZ9BihTTk
nxg8IhagheqZ6fHaCtLQxn8zcM5XC1ep7NlMtZYGRxU5+xJPLbxLNw2suigN
JnvXC0vu0ULO6u/jpnoyIMngL1qy0ML1N7xjWpNk4Xv8wutXCloo99DdlPeA
ArBvajBnyJF8HXDKKz+rADojxe8ZMlp4+PXR9AcvFeD07j2NuF4Le+osr5WI
KIKByrOBirVaePm9SWFTiyJcbozkqWLTQjcTo3c7fSjgpjjp9qlfE52T06+V
1KrCyfbaH5/6NPGaY12TN4saPMoo9KnvIde37nmWbKgGnIv2IZ87NfGsg/hh
7kdq8OJzScLXZk1MbBcwt7ymDmJHgm43V2miRmfWGGedBrTVDc523tBER7nn
AcbjWtDWAbfLrmuiQbAAU8FabWgby3JLvaqJUUecUmyAmNfk9cYrmvi5NP5a
1lltaN95MSUtWxOtnwTI9WjrQEe7pbh+kiYKLl5RmU3dAB2j+Z/WJGjiP6aS
hcgnxEszcT+Pa+JBPr5btn3EUld/novRRLG+7p+sRhuhw/vv/YFwTXTaHG+R
92cjdI4Um2Qf0MSeQh7Flcc2Qde/FdNUD00sbP63e1MJMY/zDeN9mki7Pd5f
102sycI54qKJ9ZUSl8Us9KDroFujqb0mpneuz3cR2Qxdi5x+E6CJLbbbVnZ8
0odurqA0K3FNfLb7vWZyKoDEvVt7VEQ18UvLfF9TDYCrTZ8S5zpNbAwHYSsW
I/h6xu3dewFN/OmknPDY1Aje8OxYsuTUxNa6nGx4awQ3eBVDLf5qYOPxv49c
vxoDTbDbybxVA/msvbSHxc3gZpm4jHyzBg7du5T/xMwMene6TLA2auDqZP/t
VVQz2Jtdn/a2XgNtluZj7jwzA5u1jHdm1RpYEvWuM2/PVtBcd3mT6WMNpNzz
eel92xxmxHaJGWVpoJdSnlHUUQuQ/nn7qNl5DZT5xsLTd8sCbO8vdWw/p4Et
32M3nm+ygJvGtwrs0zRwfW+I8yMNS9jjsyDvmaSBjgs1TjwDloD3CzWTD2rg
x8iRT46eVpBiMmb+YacGnk53TFZJs4Xy1WY36x01cEJkrFi4whZ6GnL+a7TX
wBtLnL8sZ23BwNfkQ7u1Bi4o32Yx1rSDsdQs+7GtGvjLL8VHIs8OnBr13fg2
aqCdwSf7qGP2IO53MtRZSANbv/8pLXdxBIm0PUxaAhq4S7C7S+sI8QO1s6v5
NFBVudqh5bIjSC403HnFpYG6ecmv87ocQTpdakCWVQP1Btxb1wY4gV3IwZfd
/ep4vq3v2o3EneCz5htd4Ko6qr2ouevavBvO2V21ilqnjqzsZluP9bkBl0Wt
ySlhNVRgnP70J80T/FYGvbogoIZNX2/qdhV4QsVL3s2316gh/Km4/6rMEw5p
uWi+Z1dDD71k8wPtntAlOrCe648qut8fEdJT8YJHo6yL6a2qaJS1Jf9TlRe4
Zho/zrmoiht45q0Up7zhkU2f1q1sVXTaF+TvusoHeP47de9phirKN6mPRwn7
wJuj9de/pagifcGv6bCBD6j6umeKHVFF2eJtH+ISfIBp89HQ/D2q6OOzMcuP
yxeKOp8o3xRTxedO5uDB7Qc37V2YPYVV8dbcovYnCT8orvzTIi6giro4tSCq
7gclNzYnn1+tisz79lyztvWDZ8Evuo7Nq6DvmoA29jN+8GmJkbWzRQUdwn7a
lLD4w5dQD9qaBhW8t1T5oZ3PHxp6mEzff1LBmS0jBn2S/vCtynjcqEoFhT5u
2RBn4A+9ZystVcpV8PmJGv2hUH+YW1+1xJypgrm5r9+FNvrD/DnfppdnVTB8
6G2y5g9/WFzJfjcqVQVVR3pf1gz7A/PAdtfReBUcj6hqS1gZAJwltY9aQ1VQ
70DgDin1AOCWpqZmBqpglOB9nyK9AODNXH3A1l8Fhz/PyLGYBYBQlBXPWw8V
bDgwU2HhHACSRh/9S2xVsL+pzWZFbABIPwgyou5QwfWeCgM2JwNATpZnrfw2
FayL4lY+dC4AKOx2by4ZqiAlwO+H/dUA0Kn/LHFCVQUdn/5tMX4bABYejV/3
rlbBAVOuFl1mKqjI3qzfz6aCce7nKa/YqbBmILrOe6UKzg+2/5PjoUJTsGRV
4F9l3PS6MPySKBUOxFKfHf2ljEH7dn+W1qbCVlPDx3H9yug+Vvzu+SYqKLLx
PkrqUcbHP2UkNxlSYfRM+d2078ronCjo2badCkfyVhTkvlfGgMHZme9uVNh3
oCG3oEoZf14bzMjZTwUT+RsXr1cqY8am5IrNPlRgv2eVefe5MjocOSKuGUyF
zJf0Ey+LlTF2RaLjeCwVIuMCEl/fIPF4Czr1JFDBdeuWuLdXldE+2Sj21Qkq
SNZ1R9ddUsbm1y3BamepcLdNNag9VRmFrtXt+HeZCun5TNQfJ4hP/B3Xz6dC
hNdX374EZcw1Nk3wukqFzcNR+0eOKOPCCrugyFtUePe30mmRqoyfVYq47j6i
wi1Gtv0KP2XMsmOnWz6mwukEfxtWL2WcD6340viUCg6rebZzuSnjyh1ZzuWv
qNAp4qovbqWM8VPJ0TeqqFDRobJJarsyVt/2pD6roUJR4ZKOnJkyipep5b18
TwUa5bqaqgG53mrClv2JCrajkcqam8j5NGefUT9TQeuBpeIGHWV87iHwUesr
Feb0xqW2qCjjweB+5+wmKnxfrJAwVlTGgcU7idotVHj1Okt0q6wyjvU5RFW2
UiHRQl/QWkwZpbTmu1+0UYHXJZl9L6cydmRz/hLrpsLlhp0eq9mV8euNJf6w
HlJfO7knT1cSr1lKftZLBcNtb3yF/lKwoeHDQfl+KtRWnGe8maFg3YO2E5YD
VNhp6Lk2/DcF87OcRT0HyXk2MFd9GqTgBspvCP9FhdmSzxLH+ijIeX17PnWY
CvEqBYdUflAwoKmI03WEChdkjORPtVDQ9HXz7LoxKshe4Tmm20BB+VrVyV/E
JSKdjX2fKCjyaXHu0TipD++xJJMqCq7aZbtH9TcV7NOs28crKMgxtDGknbiN
XXzDlVcU/KE0+iVpkgqTS897/5ZRcK9vgytOUeHYkVSD26UU1K9pnnWYpgLH
rGum810KBuqXfOkglhz9Y1p2jYKXdrAc7pmhQrF/zSXPfApKyRhUus1SYWNf
ziTvZQq+EZXfXk9s3aZ7Neg8BVkmHrYUzVGhZTfbX7GzFMyNkNrD8YcKXl+b
HN6nUJBNaTW7P3F07UFmxXgKPr/rliw8TwVW862uTUcp+J1y8JY/cfprgQeJ
hym4+aNqfjnxjScP9/8IoeDC344Bs7+kH3QSnp6lUdCX1eNKMvGr+w68hn4U
5It93f6GuKFoAi+6U1Cx5gpVd4EKHtKvhS32UPCpx51FKvGv3PSQ2V0UnJkv
vpJLzJylLulkQ0HzqOyuOeK0NUuRzJYU1BpdXS69SAXh0x8/lWyl4P1bn+Qt
idUTAmO5tlDwvyt06wziZ/8Mmp9vomDSzgzzh8Tm0ZzqATokfwbqe78Qf57+
niysQUGV9SrXxojdQos73ilTUGCJV331PyoMDEdvPKhAQbmiT3xyxOF+lmdk
ZCjYHV/lvYU4xX1wy3ERCtamtL/2Jxb8/iRLTYiCOye3zRwlzt91cqSNl4J/
ix//SidW+bJ7ayoXBVNO+5UUEj+2VsjV+4+CNnezHR8Sm9TMTPWzUPAwm2J/
BfFHs3dW2UwUdHj5Iv4zca++98LvWSX0q2RlHl6Or3EptWxSCasTa97NEg8H
XxSNGlPCMMpSLfMSFcb/21C8+ZcSPu4KFOUinrz6afPiTyX0Fe6qECKe2RJQ
y+hWwkXuztr1xPPNLK7xHUpYlJG6RZGYmXPzYbYmJZT8cPOMLvGqogb22s9K
+MzlUqIhMYdRcM7pOiUsHn7BsZWY+9t/irY1Srgm4b7MDmLeiGuPed8qoZBD
QIsdsQA3bGtAJWy8E6S1i1j4ZmtT9gslHBSs099DLNnGPSP6SAnzTc3jvYhl
D91K6rivhNMJIq/8iBXXmAkWFCvh36yJchqxutlhHfmrSlh+/850OLFWB/+b
gTwltEj03RZJvDHqnmPxRSVMSrtFjSY2vNMTppFBbLNF6Tixifkx5sk0JazK
vFoTT2zeJZxRdkoJd1zv3JpEbC1gU7o5TgljY3N6TxHb3RswWoxRwu8FBTyn
iZ22J9QzopRw4uE76TPEbjFPxsxClPCz0b1/54g9hBxj2WhKWILG784Te5WM
cNf6KuGoRFpMFjG1V1rN1l0J+59aV+QQR1ul0VxslPABTbwsjzhH7MBgoIoS
njjHevwW8dcXq3uyBxTxAm+m6iviJzdbcgp7FfG3fQ+VQXw587rNvS5FLDB7
dQeX/48Gz962KKLViuENlcv1Fg0/N1WtiF/DPnlVL+f/yDdwuKWI61Y7KXwl
XvC5Mb33uiJyxN8+0UDc5RBR7F+giI702MFG4lsU7rVxFxSxsB1KW4g3fzMe
vX9KEXmPme3sIN6rd+syV4AiHkk6t2NoOb9yhxzW+SiiS/K/1l/E8rym7HIH
FJHBcYo6Qjw60BZu4KqIO7Ij6OPEx3PW7KBaKiJTzgPuWeLC2cg/1RRFlNN4
c4KFiQb9Zea7En8p4OqA28bSxBEua3w39yugkFudrywx02Jr5Hi3AjamXMyQ
JxY2C7zg9k0Bz6x1m6EQW34536ZTo4Avhi/NahPfG+060FekgHw7dw2ZE2/O
uB1+qVABX+5h97AgrtoQkWifp4Bz0Wu+7yDuimErepmlgAxh+x92xHyr1Qaz
EhWwrOC7+h7iQwpHgs0PKGCb+7XOEGLm92bHF/Yq4I9iu5Jw4rNB3OceuCjg
+RihE4eIb5YVPJCwV0D8K70thvibafX0DCjggPtDvpPEhh6CMTfEFTBl6WZP
PjHrhfsn2Vvl0UbN8kszcdiZYgZbozxeG/Yz+b4cX8KNmVWf5fHigdCnHcTP
gq54sdbIo4T/wRd9xEFmZ42Yn8qjXlz12iniprGgub858vjxwTd1vhU0MO0L
UP+bKY9OeUKCQsQl33x85tPlMdlbglmEOOXtvoa5k/KoqFk3KUVseMmmZDpK
HkW8bXS1iIvM1fzGnOUxYOMZKydifgPKlVEneezMHitzJj6uKd80YkfiE1VX
3EvsKiZhNrxdHg9Pn1XwIeb+zSU5uEkeZ2MbzkcRR+aONHcLy2NS8CutK8Tb
p+5sa2qRw2Ms9wSmiPcWXG+NbZDD30ujm+aJw2zyqEr1cjiUlx7AxEyD3Jtn
z8ZUyWHQgYAZTuLfbmHN0uVyKClc/lCe+PJbXd/g83Kovz+i0424NEzjj/BZ
OXyQNtbvSfxuvVJqRYocfvR/vhRAPHFY5L5gvByaptTuPUxsrrY48zxEDjn2
HmnOJh7Lrkhmt5HD8S9fOxuIWcyeCz+wkENfpZyRNmKRiYe392yVQ6MzfZx9
xGY7rn+8ZyCHNiceHZ8mzlk6IbRTWQ5pt7yM166kgYmfdVEBuxyGf9e23Eec
rdfydnOlLPLR3a//JZZlvXx27pUsso/ErlzFQuKvd3cpfyaLyeo1kWuIP/j2
D2s+kMUNdplX5YhXZs/wKxXIoommE5c9cchvgQNrY2XxhhTnzjvE/162KDdG
yyJd6ovKE+LTpy5PZxySxUcaA+JviG9Iyp7iDpJFiku7VRtxh412CeteWVzp
OdnDxUqDHcX2/yY3y6KRZqbiIeKWQ4LVpRtl0bvg+f0EYh+T1nPBWrK4XavO
8RxxfKuH3C8lWcRDRZN3iJ+whVh1C8uiw4LAhT5iea8zF+tnZPDZBsZDt1Xk
+RZ/v/HuAxnc11PP6cVG+nnza/lH92RwfadZQgRx2+7HQs9vyyC1LEUkifhp
xtWZ6kIZjLPNuFNEHMYeU96bIYNOt755/yLunVTZKBYug+eydvsfYaeBA6+M
vEywDGp8fMV5hhjV1glRqDJozWTbmE+c6886o+spgybH+ZvfEe/qbC9zdJRB
3/nA6wL/0aC69syGVG0ZfCjpX/qYeONAolyGugzZP8HvPxBfYz0ieEFZBl9d
P8XTTRxn5DtdJCODRSkWa7k4yPwph7IKfhnU2+Cg5k18p2BcZ35SGp1enK8S
X03mR5SDjv8jaTwh3KTzkJM8b9ZbY0VKpDE/VSe1nviF9Kba98XS+LCYU2qU
eOCDuIfaVWksHLHnonCRfpIaTJ08J406/Smz14hnamJ7jgZLY/Vp73M3uGnA
eSVMTZ0qjYNbzKRriGUivA93+Ujjy6H8v0PEdhI7eEz3SePtiu0p6jw0uBUm
pM9uLY0fK+oUXxC7id7NyKBI45F9gn971pB8j19pN5WXxsvluzw4eGlw6m2G
4rSUNE5JpwhrEpcHR73avU4a/Q/TE2OJed6YDomxS+PBaSd3ST4aVNC+Gd/o
k8JY5e43Yfw0UHzFNvE8XwqfJgU0ugvRYH2fyoHyy1LYx2Lz4gyxEKfD15Ic
KSzx+bHiFTGL6+Wy6+lS2Ckvekd8LZmP0xrRZ49LocJJy4wfxDmqris9PaSw
bDp4V8w6kl+n2Ii9blIIH7iTS4mTj1zr2+0shf7fFKX6iSNqRqus7KTwVc6W
XEcRkg/vhNMbjaTwbv1CpaYoDdhy7whySEqh2VvXtJXi5Hmq/JzMIiaFVwKH
vwPx1NDM7L+1Uvjhuvy1GOLuTcbfJnmkcPYe9fos8auGxrz2JUn0cUtKnpQg
+4RzSaG0UxLPjA5dXSlFg59H7Dc7X5HEOJ6/eFqO9N9r4x6fS5KYRc7QQvx2
ldbpg3RJ/LD/1E45edJv5/g6Ms5K4sHflduQ+MCNr3F1sZIo8HwoYFGBBu1f
dtaYeEhinuOf51kUGlgJm4fZu0ninMeR+7+IX+zdKOrhLIlgM2BlokyDiwNC
gUftJNE7uzJlgtj5X/OaJ0aSKGTUrOusSoMGJVdnVSlJFHszmrJNg8y3YMsV
BuKS2HVRB28SP3y0+bblOkk0S75SxqFJgwwQXfDllUS+/oaf9cS2O9uuFK6Q
xEdZU6d9tGmQteLlR/U361Heu8D0yUYyL+6/HWYxX4+7ssLamQzJvLt1ZerQ
lvXYrahce4K46+rhhQGd9ZjcuLGFB2hACsxZJ7Meew7N75cxosHC8SzlrBXr
8YKnfqizCQ0OOngHyL2UwAtSEU8WzEm+rCCM/og403kgexs5j/m66P/uSOB8
9fsDWttpoKVfd2rkogQucIWZBFrQYFRmw62yKAk0HT3/9/cOGvhNswxs1ZFA
e5EfnUb2NKCPdYw9VpbAu0KpvBPE7wafzCrJSGDA+9YXhQ5kfnfQ2Lj5JFBB
f3UahxMNfrxrkG8aE8cPtRWBw7vIfsy55u1TLI5afcfWLrjRwFrfrCdZWhw5
oy+88Qwg+7c1XjdVRBzfaJR4babSQC3ydepZPnH81HW3lI9G9ulDQ50cZnG8
rYLu1YE0qKfoJd3qFkOVJU/q9lAy70TUFD4UiuF/m7Tt8qLIfHhCO1J/UQzV
27ftO3eYBtq7ij81ZIihbMSAfXI0DQQyFKPa48XwlvrE3MEYGjT+J1MzekAM
WTuwlHac9MOftVReGTGcUr5v9vwk2df0XQxBUTFcdZoe9/EUDTZtyOIX4RfD
PyMSvT0pNFgXyvdCeqUYyrhRlAXTyPvPACeXTo8oWn8b2Zxxjuz3lhX3d10V
xTNiHFbzF0n/Pv71+5KMKO49kOx/9T4NCt/ILE6JiOKcUguzdCkNej7vYbPh
E0Vu/bLmqw9o4DX8XpRphSju2TdnW1pGA1+pO2ZeHSL4zkXfeOo5DWiptGyV
CyJoavkrTbKGBndzruUnpYugjfxts6ZaUt/rbbc7Tohg0btzd89+oEEwWjHS
D4mgxKPHZVz1ZL5NqwxMOYqge8/6eN1m8r7iPqL3klsE3RbaXC1+kn1GkzMT
WiWCYdlL/IYDNJg7vNcmeHEd+hSUrdIdokF0Zt0BqeF1mPdW7+WGURrE1NxN
TapZh/9mQ0J9Z0i/awe1Wyeuwy1LXjbX2ALhNNvY8Y4/whjOpDtaqxoIr+xf
zrtPCGOYJe8fa41AGLuUGvFjQBgfCYnsbNIKBAcNRb/eZmE06o5WndUNBGGX
/bZDZcLYGz6YG20SCNdufxWfCRXGck49RoZzIDRNFdAj/YXxdt6iVcieQGCD
EN4/HsLI5f190HFfIAR85WRdsBVGdq+qBFWvQNBY2Dq8Qk0Ypw54FSqHBMJL
6yfPuIbWooNRuo77qUAYpSfrnP2xFpc47Xqung4EyW6ne2ta1yKvo9vhsbOB
kHhoooC/ei16FelmXcoOBMsrlFPritai38cUBYtrJJ7xy7vlDqzFd3H2s6te
k/udj5sy+CaEsey+LUeZguBH3KNndl+EkJ790jqCJQgagvuPe9UK4V2LTalh
7EHwdIc11+lnQsjrwn4peU0QJK5cJ//9ohA239z9nFsqCNaFl+w+vEcIy7ye
Vd8xDQLO/T3iaY5CyLY7iFdhexD8sxHqzd8hhDz6VlK3rYKglxITUq0vhG1F
Id9qdwbBve5tp9aKCWE8F2ZG+QWBmUPns7I2Qfy3lXoj82wQ6BrxxdU0COL2
e/aXrmYGAUVt67b2D4J4g7Uj4sWFIODhKP7K8lIQa42V5DivBcG314eGHXMF
cS83T47c0yAI1uSW+L1XEGOmJ5Uc+oLg4potcWqdAjh+w/SjrHkwtAf6L2Y3
CWCz7jNFWetgkHyfdXipTgAXNO7t0HIKhqKk0dD6FwK4KCRHPXIgGB7MXzkQ
dlEAm96mRr6JDYbaXmaz8p0CKJtKr7R+GQxcJuooYS2AifW5l7a/DQa7K3sM
TpgJ4Of3I6ZOdcHQ5PJIx1lbAJ0F8s/mtQdD90dvufk1AliS7TbIvBQM80+q
Vxl+4MfKnRyiWdIhsEVoOr6okh85OPL9pBRC4Hi41BL3c34s8jc2eawcAqvU
omc7b/FjmnZE/5JOCPBdVR6IO8GPrmKG0mzbQ4CSdqbmrQk/svEYrVsKDoE9
+51OWz/lw2HhTQPK1SHgcaDPaXspHyq8d0u7WxcCXp6HxE1v8WFy9as+va8h
QPPOubfpAh962C0uhXWEQIx/W73MYT78sjDD4z8dAnmhXoLzm/hwX8W5J4fk
QqEwbLp9SoMPObQK1O8qh0JReHLRmCIfzo5svDmmGQr3Dt7U7RPmQ52iTTM5
hqHAODzsUj/Hi8FvRSNjnUOhKy4ir+gJL7rVLemVnAmF3nhW34ISXhTxPxFX
mhUKAwnZ6pdv8mJi61pjvBwKE0lP8FwOL17oa01ZVRwKzCkL3TFRvPh2jdFK
vepQkMlIVHDcxIsGpXs7drCGgU9hZsnS4zX4IML5QG9KGOzpej4gXbIGVxhP
0S6eDyPvZz2S5jfXoORuvVsel8Ng80XNc6dz1iDLRwMFiXthwJ3xMXTd4TVY
+HTnTo8vYfA4jl1be/MajIsLHhGRCIc1FXMBdVE8KHFmdeuWynCY37LtO78/
D2ZPPPuo/TEcep9m7XB14cEg4eN1W1rD4Umplkq/Hg8yib+lnRkLh/0FtBGm
v9woLfuxX048Ah4c7wrWOcqNFozg8ztiIsARqiMuxXGhmPkKPtqOg9Bx4T/7
1BAuNFj729vR9SD4TVmqHnHnwtldvYW7/Q/CsVt1fa5buDC0v5f++MRBuMX/
dZfIH04c/9c89O3tQVjqb990IYQTJ3zHG79vOwTF6ZML2e6r0aq1y32jVyRs
/KXTmmyzGmV1JlokIiMBtx4qO7RlNSq6UL9SUiKhaX4ucJfoajTxalW5VxIJ
K7z/dQg2c2B6btplv6VI2K333+tMGw702j+8oeNqFKzslkjK2PIfHo8sYvfg
iIY1iUrzRar/4bO4hPNnJKNBQl4n+Ln4f9h0tde6e2M0bAqwcOldZMfdrbW8
857RQPsdrrrxFTuuYvITHWdEQwNzTWOrITvWnPX1low9AtdlwuWljNhQy6R8
e5foUXjw9uilDRps+MHKm86rexTQ9+QaS0ly3UmQLcjhKHwrzp0PY2JD2T1i
8zdPHQVuneqPb3AVXnTdqKgyfxQOmYlH+hmvwsGw5I9neo7BNu+qqvsmrFhF
sV95mHYcpvre3AzUZEVtsQJF+2PHodCn4pSyJCvOLRgxtqYfh3++L3fcWGRB
5n2Qm/joODwKePgp7wkLGnLvi97z7zhIh1xpTlNjQb6npW2x9Dj4Fx3ZTxVZ
iTGvY66u74qHO38jqpX+W4lMd9Jab0/Hg2tM2K3+WWa8e7An02l1ApQdDaR6
NjJj4PnqJyt1E4B23HPMNZ0Z5Sfd3T+fTYBvSbazFquY8WqZq7HqtkQoS1dg
U/zNhHOSJ73aPiRBn/PocY5uJrwX3XQ4pTcJBKXK5oc/M+F4+8dXDgtJcLDU
ZLS0lAnzBUIKNFWSYcOXvY36oUzo1NwtoZCWDFQFxW1XupYYBiHnRTsdTwBN
dcXx0bZFRuNOuz/VkychWO/hxOnGP4y8XO1zkRGnwcnEiao3NsHo6nz7kjJw
Dp4mSE7//jDBWK/Tc2p29hxIvB0+duf2BOPI8/SHL9gyYGBbUsZ6nwnGmRNJ
L9UUMuCIdflT1vZxBqWJQ+2mdwaYlWqsuZY1xvhHazlc1JUBXe1PLBqtfjEs
HVoLIz6ch9se9nu3s/9iiK2/XVn07TxE9AyGPK8cYqzbyZn7buA8sA2K5BRs
HmLw/F2l8pElE9SmYn4GKg4y0pf6jKf0MyGGwzhhFUs/Q6hp/JdrUSas0615
ofu8myFwwUH0rn8WDDcna2850s34l6k0bRGRBYwos9sm+t0MK2mr6k/HssD7
GYNu/fwH46vbVnrW+Swo3VIe5vm8i3Gd9W8m64ssOH/S3F4isp1RZMF5cB97
NmyufW2oNNvGmB6k/YjmzYau1VtUdCLbGCpVubHHRLJB5aw2m2Xkd8Yx2288
+irZ8CZL8uXByFZGtHO4+AmbbJgqnFesi2xk6DauonmdyYaLvQeFWmYbGOfM
lKxGs7LBSH5iZU9kA6NGPXxmX242nL7V3zEX+ZWxMXf23FRxNsiWNGTKRn1m
9O4vLZmoyobaCdt49bl6Ro62ccCDj9kQov0+eHNUPePYWV0t18ZsOByYkJU/
/pHh37Mo4d6dDbej966YG69lZGyyXWH8NxtmFh3buCZqGOlahc4GK+hgEmf5
WGaimhEhv9trPRsdvp/QDbSdeMcwMpsSyuWjA2cWb2vRRAUjR/5EQbQiHb7t
S91f3FvGGDcOmvtuS4cTeg1ZLM8eMuJH3MsqnOigIyBeu/dsKSPXyvTJWRc6
iJ3f6y0ZcZsxGips2n6ADhyft/M0bMlg7GA9FWkdQYeYyBYMlU9gDIxWvqZF
0cHu45RmOb81I3i8emNEDB3kEpXu5NDSoenfwheDRDrcHq57GJ96C653v6x9
kUEHW12DHfVdd2HBkxYml02HeaOdE9yipTC/4XJe1AU65KdWnnQLKYOYbfLH
O6/QYVgy//GsyCvY+aGk+3ExHSSvFht/kkbIqJwsirlHh5oNJ25Ib3oNril8
29VKSfx7DMNrDlTC50vMSS7ldKi4fodj7ZMqsNcuN25h0IG66WRIQF013G9V
6uOsoIPAe8+ml901ILhu07jGGzr4josUenF9AI/9DLft1XRYkzDD9kS6DlLS
ZH0NaunwTPBL4OpNHyHAaq+C1Ac6JOe+EXPRrAerxrG+l59IPXwefGJ+UQ8m
95TDD32mg4ZGfvwd889QkZTeK/mVDq0VRwaW9nyBnJPJjVZNdFAZ0HpUlNwA
W0u9v7K30SGuVNLXjrcRuv2C5V3a6dAUzS0yf6kR8sS3vc7toEMs11CsdWkT
dO9TW2L5QYeGpmatWf1m4AjmM1PspoNi/tu+/HfN8Ej4z5xRDx2+aBXsmPre
AvwsslWOfXRQWDjzL9enFUbu5x22+Unq+TamdNtEK3xv2fYE+kn9nJ3XXlr1
HR5frn2/apAOUUd5eow12yHuflqr2jAdXkVeuOz1tB2YYuRf/SBmDZPZdcK4
A2SPZISljdAhw0e35oN9J3jtdrWqHyXn9XgdP9baCZuexb33HaND+l05if80
u0By4ur4HHHTjfvNyk+7oHa1u/h/E6QfrkXobFnsgpdLmmdOEosX6p2zMf4B
Q/XBocy/6eB1udIytOYH6L7d7vKT+MSFkzfiubqB8rat2m6S9Fu2NUumfTd0
XD0SUE48kd78sry1G7YY+P8KnyL1PnNZpFq8B/QcWhU/EG9K3R/Zur8H0hcm
zSWn6XAs6ZfGwmAPPE1fvPeCuDC+JI1LrRcOjZ/fwTpDh7exB4ckwnphDu29
LIk5o5euGs/3Qv7c9sO1xOqRb5gcDfuA1Sr2BessHRwiTu31iu+D4w1SLIbE
F4L4157g+AnP/p6WKiJ+QW0Jz7H5CYmW+tJNxF1+ufW3Mn6CherYhZVzdJD3
VEj5INIPveXWMbuJLT2Gf7bv6wdHaRuBY8SBe0tNxwr7YeXniNOFxI926y/y
Kg8A/7G8jD7iZicmV5ngAdggm+DC8ofk1/5tuc7DATg9kO0uRWxsZRuyW38Q
jFetjd9F7GUhUOcXOwgtnGvqg4hPmrcqRVcOwmi/86Mk4mLTvORUtiEYtUvV
v0T80ciz5/KOIYD1+lH3iX9vUTS6d3YI8hc2HKsgFtQfucz4OgS7nP+6NxC7
bYjc1b3nF6gr3e2eIo7VMng4eeUXNJWnF66cJ/lWX7GGtfcXaM8diOQlfqfy
jiakOAxiq1n8JIgHlVJrFGjDILtgHksh5lSwk9crGQbnfvH3G4g1ZAUTLKeG
4d9NN1cj4kMSVwwCY0Zg48q4aEfii6JeF47hCERYsPO6Eb8UVpo5yzIKM/v/
cXoRdwmOOhRsHwWjnfYxVGIW/of3H5wehSHzysAwYoU1UZxv6kdhqT5mJIrY
kmuLf6PAGEwVDE4eIz7HViU9d3kMJC47PjpFfOenj1hk2xhMZ17UOUPcc2Dl
6r9c49A3thSYQRzi8PXEM9VxqPr6cW828aLxVZZo63HoUs5jvUicohkepxc4
Du9OMlFziddKmf6bOz0ObGdazucTazL1zEZ+GId2nyNmRcSvxh5E6A6Pw84F
1k83iXd0xk/MrJ4Aod0XlIqJWz46BJUrT8Axu9XOd4m9X0n/OrhjAoa4/fbd
J/5997fvBuoE8F/RMywljs2t6J1KmQCnmvNzD4gvxBzoCK+dgAlpXo5yYnma
1h7toQmI2S7o95j44R7mlt///YYAfrubT4iNdnxxeqD0G84UCLx/Sly3ufBz
qMVv8Lz04+szYldKmI2m/29ImPR695y4f53J+/GTv8E+9mjRC+KI//i2l9z8
DY6XDKJeEq/48+NNcPVvcKZnGr4iPjNQaqw+8Bv+ZfGOL1u0Je7VKNskNDGv
SmMQ36yy17+nMAn9x5PWIfGGx1JPArdNAu/ulgvLriia0FH1nQRhzaN8r4lt
s1+XDidPgscI5eSy25LOqd0pmoTF0J7ZZfsf3F9MfTdJ9kuPSwXxjJemovLP
SfhWeadk2YlOK64PsU4Bz/qZf8vmNfssdVtuCkbiL2yrJM7TLsjz3zoFT1Iz
05atLBMqquQ9BRZtiZ+X/YTPOGcgcQqGf/LxvCHeyswrePPaFLj4FZgv+8tE
1znfN1OwqqYzatnuP0q4FXqn4CgmFy17uP546s+V0zBw3bl+2YfRjr1IZhra
nD7PLHtViWSSt+k0bEn7tu4t8fkr4yvkPKfB8uBFvWVLnsVjvfHToCWsv2vZ
d4+l/71aOA3neAeDl705yCPKs2IaBrtqk5ddtVdjWrp7Gir7/C4u28maKax7
xQzE8MkUL/uHQf1ogdQMqLJUPV12kEo+db/xDCjGqVQt++RqI++u4zPwn458
57ILhzr3ueMMeGb96lt20831DnthFo7+kfuxbA5f9617Xs0Ct//W6WXrabC3
cm2fg206pYPL9vtTQsPPc8AXv4vjHTHTvqTyC0J/YJ/CLf5l0ytcmML3/IGs
/TXiy1ZTULO0yv8DMPhMZdnvUpkz5fr+gNToOoNly0o4PU+ZmwdbjVmLZceV
XO8eW70Al+te6y/boHG75jOtf+DiMaO07IWFaahQYTJSGvK3XHaQZsjBP2rM
RpzZ46bL7vQeuq2hyWJ0xtzLY9mjMn3HdO+zGEUkPw/93+9/dDoYqrIaGcDJ
g8teadz+wpjGahT56yJt2Rz53+S3FrMa1b/Jdl4271Jz+vYhVqPdnf4myxbe
1zi/Q2mV0apjvzcuW+dbbaGLHJuR1deR7cu234WWvlLsRp95q4yWfSjaVmyn
GYeR7CXubcu+mNcxYuLLaaR+wul/jvhiVpTrzW1E+2PzPysk7FRf0FxjtHKD
6f/8S0+1t8mG14hZ+v/5/jjLhVIqn5Hr//f/AQ7rXfY=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-23.25610881895163, 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}, {{{-18.420680743952367`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "8"}]}, "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]}}, {-4.605170185988091, 
        FormBox["0.01`", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {2.302585092994046, 
        FormBox["10", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-25.328436022934504`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        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]}}, {6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.210340371976184, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-18.420680743952367`, 
        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]}}, {-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]}}, {-25.328436022934504`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        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]}}, {6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.210340371976184, 
        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->{{-23.25610881895163, 7.1380131679933125`}, {
   4.503796077158945*^-11, 0.023417569087597942`}},
  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.63260545060371*^9, {
   3.632605500657023*^9, 3.632605579640006*^9}, 3.6326063366863823`*^9, 
   3.632607203805195*^9, 3.632607755290908*^9, 3.632608195634699*^9, 
   3.6326141569884453`*^9, 3.6329644610109863`*^9, 3.632964929441139*^9, 
   3.6329649709263287`*^9, 3.6329650438586187`*^9, 3.632965109157509*^9, 
   3.632965172263479*^9, 3.632965227261862*^9, 3.63296540026888*^9, 
   3.632965773198537*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Export", " ", "Np"}], " ", "&"}], " ", "Nc", " ", "vs", " ", 
     "t", " ", "for", " ", "a", " ", "log"}], "-", 
    RowBox[{"linear", " ", "plot"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"FORMAT", ":", " ", 
     RowBox[{
     "a", " ", "header", " ", "containing", " ", "column", " ", "names"}]}], 
    ",", " ", 
    RowBox[{"followed", " ", "by", " ", "the", " ", "data"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"numberOfPoints", "=", "100"}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "number", " ", "of", " ", "datapoints", " ", "per", " ", "column"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
   "path", "=", 
    "\"\</Users/milostoth/Documents/Literature/Papers/026 FEBIP modeling \
review/data/outputs/\>\""}], "\[IndentingNewLine]", 
   RowBox[{"stmp", "=", 
    RowBox[{"OpenWrite", "[", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<Np_Nc_vs_t.dat\>\""}], "]"}], "]"}]}], 
   RowBox[{"(*", " ", 
    RowBox[{"open", " ", "file", " ", "to", " ", "export", " ", "to", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"existing", " ", "file", " ", "over"}], "-", "written"}], 
      ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WriteString", "[", 
     RowBox[{"stmp", ",", "\"\<t\\tNp\\n\>\""}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{"(*", " ", 
      RowBox[{"loop", " ", "through", " ", "all", " ", "rows"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{
         RowBox[{"10.0", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", "tmax", "]"}], "-", 
               RowBox[{"Log10", "[", "tmin", "]"}]}], ")"}], "/", 
             "numberOfPoints"}], "*", "x"}], ")"}]}], "*", "tmin"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{"a", ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"b", "=", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", "t", "]"}], "/.", "sol"}], "/.", "sub"}], "/.", 
           RowBox[{"t", "\[Rule]", "a"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{"b", ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"c", "=", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Nc", "[", "t", "]"}], "/.", "sol"}], "/.", "sub"}], "/.", 
           RowBox[{"t", "\[Rule]", "a"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{"c", ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", "\"\<\\n\>\""}], "]"}], ";"}], 
      RowBox[{"(*", " ", 
       RowBox[{"line", " ", "break"}], " ", "*)"}], "\[IndentingNewLine]", 
      ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", 
        RowBox[{"numberOfPoints", "-", "1"}], ",", "1"}], "}"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Close", "[", "stmp", "]"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"close", " ", "output", " ", "stream", " ", 
      RowBox[{"(", "file", ")"}]}], " ", "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6329653147790833`*^9, 3.632965330622961*^9}, {
  3.632965380325787*^9, 3.632965390699184*^9}}],

Cell[BoxData["\<\"/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/\"\>"], "Output",
 CellChangeTimes->{3.6329654076133013`*^9, 3.632965780741934*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{15., {0., 15.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Np_Nc_vs_t.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["89",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"/Users/milostoth/Documents/Literature/Papers/026 \
FEBIP modeling review/data/outputs/Np_Nc_vs_t.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["89",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/Np_Nc_vs_t.dat", 89]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream[
  "/Users/milostoth/Documents/Literature/Papers/026 FEBIP modeling \
review/data/outputs/Np_Nc_vs_t.dat", 89],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.6329654076133013`*^9, 3.6329657807935047`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "find", " ", "steady", " ", "state", " ", "coverage", " ", "vs", " ", 
    "pressure"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dataPoints", "=", "40"}], ";", " ", 
    RowBox[{"Pmin", "=", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "7"}], ")"}]}]}], ";", " ", 
    RowBox[{"Pmax", " ", "=", " ", 
     RowBox[{"10", "^", 
      RowBox[{"(", "4", ")"}]}]}], ";", 
    RowBox[{"TempPar", "=", "P0"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "TempPar", " ", "is", " ", "used", " ", "to", " ", "restore", " ", "the",
       " ", "parameter", " ", "that", " ", "will", " ", "be", " ", "varied"}],
      " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"steadyStateC", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
      "plotted"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"steadyStateP", "=", 
     RowBox[{"ConstantArray", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", 
        RowBox[{"dataPoints", ",", "2"}], "}"}]}], "]"}]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "array", " ", "of", " ", "datapoints", " ", "to", " ", "be", " ", 
     "plotted"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"T0", "=", "300"}], ";"}], "\[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[{"P0", "=", 
        RowBox[{"Pmin", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", "1"}], ")"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Pmax", "-", "Pmin"}], ")"}], "/", "dataPoints"}]}]}]}], 
       ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"P0", "=", 
        RowBox[{
         RowBox[{"10.0", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", "Pmax", "]"}], "-", 
               RowBox[{"Log10", "[", "Pmin", "]"}]}], ")"}], "/", 
             "dataPoints"}], "*", 
            RowBox[{"(", 
             RowBox[{"x", "-", "1"}], ")"}]}], ")"}]}], "*", "Pmin"}]}], ";", 
       "\[IndentingNewLine]", "evaluateEquations", ";", 
       RowBox[{"(*", " ", 
        RowBox[{
        "evaluate", " ", "equations", " ", "using", " ", "current", " ", 
         "set", " ", "of", " ", "input", " ", "parameters"}], " ", "*)"}], 
       "\[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[{"steadyStateC", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"N", "[", "P0", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"steadyStateP", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"steadyStateC", "[", 
         RowBox[{"[", 
          RowBox[{"x", ",", "1"}], "]"}], "]"}]}], ";"}], 
      "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "dataPoints", ",", "1"}], "}"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P0", "=", "TempPar"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<NOTE: Ac = 0.5 Ap, T0 = \>\"", ",", " ", "T0", ",", " ", 
     "\"\< K\>\""}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"steadyStateP", ",", "steadyStateC"}], "}"}], ",", "  ", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Pressure (Torr)\>\"", ",", 
        "\"\<Concentration (\!\(\*SuperscriptBox[\(\[CapitalARing]\), \(-2\)]\
\))\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", "0"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Dashed", ",", 
          RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Thickness", "[", "0.005", "]"}], ",", "Red"}], "}"}]}], 
       "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.632606458512697*^9, 3.632606476245913*^9}, {
  3.632606525268862*^9, 3.632606615808264*^9}, {3.632606646930965*^9, 
  3.6326066672241907`*^9}, {3.6326067172171583`*^9, 3.632606902250457*^9}, {
  3.632606933292482*^9, 3.632606988887082*^9}, {3.63260721962958*^9, 
  3.632607219994505*^9}, {3.632607778407029*^9, 3.632607894575903*^9}, {
  3.632607977753504*^9, 3.632608080128622*^9}, {3.632608130714876*^9, 
  3.632608169298959*^9}, {3.6326082380040894`*^9, 3.632608273374642*^9}, {
  3.632608675315344*^9, 3.632608675422143*^9}, {3.632608750472785*^9, 
  3.6326088225231247`*^9}, {3.632613493409728*^9, 3.632613553626294*^9}, {
  3.6326136065838947`*^9, 3.6326136066977997`*^9}, {3.632613668395644*^9, 
  3.632613691684492*^9}, {3.6326144503109713`*^9, 3.6326144506595087`*^9}, {
  3.632964478375168*^9, 3.632964524313162*^9}, {3.632965215914768*^9, 
  3.632965216000556*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"NOTE: Ac = 0.5 Ap, T0 = \"\>", "\[InvisibleSpace]", "300", 
   "\[InvisibleSpace]", "\<\" K\"\>"}],
  SequenceForm["NOTE: Ac = 0.5 Ap, T0 = ", 300, " K"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.632608276410898*^9, 3.632608676131637*^9, {3.632608753579517*^9, 
   3.632608823019973*^9}, {3.632613496391713*^9, 3.632613554295285*^9}, 
   3.632613607633073*^9, {3.632613669628354*^9, 3.632613692061267*^9}, 
   3.632614162878601*^9, 3.632614451475391*^9, {3.632964479882197*^9, 
   3.6329645252759132`*^9}, {3.632965216845559*^9, 3.6329652458427277`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], Thickness[0.005], 
      Dashing[{Small, Small}], LineBox[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAc6o+hDseMMBp28Az4dYBPgx3YtBC
+C7AskeB/jLNED4zmUeYDrQtwNnYnQLzpR8+WbssYNpvLMCURN8Knc4tPoDd
ESimKyvACUKZZbISPD6m//bvcecpwKHkgIiacEo+zSHctz2jKMD6ZWKI1OZY
PvNDwX8JXyfAxkFxnPVzZz4aZqZH1RomwCfwQ6GnFnY+QIiLD6HWJMAP1N+J
p82EPmeqcNdskiPA3e02oMOXkz6NzFWfOE4iwAuCDF/Zc6I+tO46ZwQKIcCX
j46G0mCxPrUhQF6gix/ALdVNzKBdwD4CZgruNwMdwFm+wkNu0s4+T6rUfc96
GsDdo2hh/QTdPpvung1n8hfA0BGapIdQ6z7qMmmd/mkVwKJOclIqsvk+Nncz
LZbhEsAo+jI1FyYIP4S7/bwtWRDArf31w9emFj+g/4+ZiqELwK8+UV8bLCU/
OYgkubmQBsDh60dh86gzP9YQudjofwHAMIxqZr8JQj/cMpvwL974v+w1liZe
M1A/KoiIXxx57b/k7s4JcBBcPxdVtbuxa9K/CDF5RPH0Zj8mZqZH1RrWP3QI
A0t0VHE/oBCBJa5Q7z/TFIooosJ3PyB3l9P4yfk/IRJCRseWfT/zMjdKzfUB
QFGfqRB8AoE/WqqiKp4GB0Ai3x1AhHqCP8IhDgtvFwxA1OBEG85dgz+VzLz1
H5QQQM4J66aT34M/RIjyZYgcE0ADZTUkRSeEP/hDKNbwpBVAUJyEgShOhD+s
/11GWS0YQOVahuIKY4Q/YLuTtsG1GkAfgU6wMm6EPxR3ySYqPh1Ak/TUwSN0
hD/DMv+WksYfQO1xiKxMd4Q/PHeag30nIUDdMB2D+niEP5QtLD4=
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], Thickness[0.005], 
      LineBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQXbzKrsVazuCAUcDu7Z53HtnxlCddcPqhd+BBg7ps
/aGPdsYz3WfwbdE9cDTxq3/aDgb7yN06CbfydQ5oTZ73QayS377hrqDGMm3t
A/FnKtb6zJK1X/b/2/vC55oHRHeUWc07r21/VvHOdtvFGgfcZ/tt/yNoZf/Z
+WA9Z7z6gYDnuo0FYR72UmnL3K9KqR2Y3GSaNqE7zN6ho5t/4TWVA6tSOY5L
T0uxT19VcD1nkvKBx35uE5v9iux7z4TOt/BTOuC756/8f+56+y3vrNJZuBQP
xP1tKAl27rDfqugQt6Bb/oDlumsLN22eYM+UxvXOnFn2gPuEiItzF0629191
pfZ8ldQB/ZPFTy7lTrGf/W4eb/on8QPeIaqSF6qm2L8yypz7L1P0wI7lL3Ue
Avlm5ca60x4KHaiZYWAG4rfs/rtHN1LggBtfvwmIv+B//8yuhdwHGPf2OoP4
lh0qO3dOYDvA5lLpCuJfE9h540U944GfsXVuIP4do9kf9O/92O+owOkO4mt1
dMTLVL7d38AVDOaLh27dvTH70v4X66vAfDVw+FyzlwieAOYvEGhUXRfw3j6z
cw6Yr1A+/fKPkz/t1+9aDOZ/NjL3OvuV0WGR8AowP2rVIq15bOwOnutXgfmH
FPm488V5HARM1oD5U8/s+So/RcDBj38tmO/S8Sm1Q0bY4Vs7hP/DWePahyWi
DqEnIfw1/2PdInUlHHLfQPgJuydvO7hVykHnP4QvUn5STctO1kGDcx2Yf9jo
/7RJx+QdyvggfJvyWc216ooOnoIQPgDYdC/4
       "]]}}, {
     {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], Thickness[0.005], 
      Dashing[{Small, Small}], GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledCircle]\"\>",
         StripOnInput->False,
         FontSize->0], {0., 0.}], CompressedData["
1:eJwBlQJq/SFib1JlAwAAACgAAAABAAAAAgAAAHOqPoQ7HjDAadvAM+HWAT4M
d2LQQvguwLJHgf4yzRA+M5lHmA60LcDZ2J0C86UfPlm7LGDabyzAlETfCp3O
LT6A3REopisrwAlCmWWyEjw+pv/273HnKcCh5ICImnBKPs0h3Lc9oyjA+mVi
iNTmWD7zQ8F/CV8nwMZBcZz1c2c+GmamR9UaJsAn8EOhpxZ2PkCIiw+h1iTA
D9TfiafNhD5nqnDXbJIjwN3tNqDDl5M+jcxVnzhOIsALggxf2XOiPrTuOmcE
CiHAl4+OhtJgsT61IUBeoIsfwC3VTcygXcA+AmYK7jcDHcBZvsJDbtLOPk+q
1H3PehrA3aNoYf0E3T6b7p4NZ/IXwNARmqSHUOs+6jJpnf5pFcCiTnJSKrL5
PjZ3My2W4RLAKPoyNRcmCD+Eu/28LVkQwK399cPXphY/oP+PmYqhC8CvPlFf
GywlPzmIJLm5kAbA4etHYfOoMz/WELnY6H8BwDCMama/CUI/3DKb8C/e+L/s
NZYmXjNQPyqIiF8cee2/5O7OCXAQXD8XVbW7sWvSvwgxeUTx9GY/JmamR9Ua
1j90CANLdFRxP6AQgSWuUO8/0xSKKKLCdz8gd5fT+Mn5PyESQkbHln0/8zI3
Ss31AUBRn6kQfAKBP1qqoiqeBgdAIt8dQIR6gj/CIQ4LbxcMQNTgRBvOXYM/
lcy89R+UEEDOCeumk9+DP0SI8mWIHBNAA2U1JEUnhD/4QyjW8KQVQFCchIEo
ToQ/rP9dRlktGEDlWobiCmOEP2C7k7bBtRpAH4FOsDJuhD8Ud8kmKj4dQJP0
1MEjdIQ/wzL/lpLGH0DtcYisTHeEPzx3moN9JyFA3TAdg/p4hD+glSxA
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], Thickness[0.005], 
      GeometricTransformationBox[InsetBox[
        StyleBox["\<\"\[FilledSquare]\"\>",
         StripOnInput->False,
         FontSize->0], {0., 0.}], CompressedData["
1:eJxTTMoPSmVmYGDQAGJGIGYC4uJVdi3WcgYHjAJ2b/e888iOpzzpgtMPvQMP
GtRl6w99tDOe6T6Db4vugaOJX/3TdjDYR+7WSbiVr3NAa/K8D2KV/PYNdwU1
lmlrH4g/U7HWZ5as/bL/394XPtc8ILqjzGreeW37s4p3ttsu1jjgPttv+x9B
K/vPzgfrOePVDwQ8120sCPOwl0pb5n5VSu3A5CbTtAndYfYOHd38C6+pHFiV
ynFcelqKffqqgus5k5QPPPZzm9jsV2TfeyZ0voWf0gHfPX/l/3PX2295Z5XO
wqV4IO5vQ0mwc4f9VkWHuAXd8gcs111buGnzBHumNK535syyB9wnRFycu3Cy
vf+qK7Xnq6QO6J8sfnIpd4r97HfzeNM/iR/wDlGVvFA1xf6VUebcf5miB3Ys
f6nzEMg3KzfWnfZQ6EDNDAMzEL9l9989upECB9z4+k1A/AX/+2d2LeQ+wLi3
1xnEt+xQ2blzAtsBNpdKVxD/msDOGy/qGQ/8jK1zA/HvGM3+oH/vx35HBU53
EF+royNepvLt/gauYDBfPHTr7o3Zl/a/WF8F5quBw+eavUTwBDB/gUCj6rqA
9/aZnXPAfIXy6Zd/nPxpv37XYjD/s5G519mvjA6LhFeA+VGrFmnNY2N38Fy/
Csw/pMjHnS/O4yBgsgbMn3pmz1f5KQIOfvxrwXyXjk+pHTLCDt/aIfwfzhrX
PiwRdQg9CeGv+R/rFqkr4ZD7BsJP2D1528GtUg46/yF8kfKTalp2sg4anOvA
/MNG/6dNOibvUMYH4duUz2quVVd08BSE8AHk3C/6
       "]]}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-17.02648121047226, 0},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Concentration (\\!\\(\\*SuperscriptBox[\\(\[CapitalARing]\\), \
\\(-2\\)]\\))\"", TraditionalForm], None}, {
     FormBox["\"Pressure (Torr)\"", 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]}}, {9.210340371976184, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.903487552536127, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {10.308952660644293`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-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]}}, {9.210340371976184, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {9.903487552536127, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {10.308952660644293`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{},
  PlotRange->{{-16.63257950767418, 8.57712947140282}, {
    0, 0.019999999999997162`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{
    Charting`ScaledTicks[{Log, Exp}], Automatic}]], "Output",
 CellChangeTimes->{{3.6326067730293207`*^9, 3.6326068325076427`*^9}, {
   3.6326068626338177`*^9, 3.632606903027719*^9}, {3.632606942327585*^9, 
   3.632606963487803*^9}, {3.6326072211541758`*^9, 3.632607230028862*^9}, {
   3.6326077711579847`*^9, 3.63260789522539*^9}, {3.632608055702752*^9, 
   3.632608080603798*^9}, {3.6326081338546257`*^9, 3.632608169916453*^9}, 
   3.632608205366748*^9, 3.632608276474827*^9, 3.6326086761909657`*^9, {
   3.632608753641087*^9, 3.632608823083501*^9}, {3.6326134965407343`*^9, 
   3.6326135543595133`*^9}, 3.6326136076981363`*^9, {3.632613670082492*^9, 
   3.63261369249692*^9}, 3.6326141633570004`*^9, 3.6326144519388123`*^9, {
   3.63296448024376*^9, 3.6329645254513493`*^9}, {3.6329652170338907`*^9, 
   3.632965246033826*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", " ", "Np"}], " ", "&"}], " ", "Nc", " ", "vs", " ", 
    "P", " ", "for", " ", "a", " ", "log", " ", "plot"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"FORMAT", ":", " ", 
     RowBox[{
     "a", " ", "header", " ", "containing", " ", "column", " ", "names"}]}], 
    ",", " ", 
    RowBox[{"followed", " ", "by", " ", "the", " ", "data"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dataPoints", "=", "100"}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "number", " ", "of", " ", "datapoints", " ", "per", " ", "column"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
   "path", "=", 
    "\"\</Users/milostoth/Documents/Literature/Papers/026 FEBIP modeling \
review/data/outputs/\>\""}], "\[IndentingNewLine]", 
   RowBox[{"stmp", "=", 
    RowBox[{"OpenWrite", "[", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<Np_Nc_vs_P_300K.dat\>\""}], "]"}], "]"}]}], 
   RowBox[{"(*", " ", 
    RowBox[{"open", " ", "file", " ", "to", " ", "export", " ", "to", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"existing", " ", "file", " ", "over"}], "-", "written"}], 
      ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WriteString", "[", 
     RowBox[{"stmp", ",", "\"\<P\\tNp\\tNc\\n\>\""}], "]"}], ";", 
    RowBox[{"Pmin", "=", 
     RowBox[{"10", "^", 
      RowBox[{"(", 
       RowBox[{"-", "7"}], ")"}]}]}], ";", " ", 
    RowBox[{"Pmax", " ", "=", " ", 
     RowBox[{"10", "^", 
      RowBox[{"(", "4", ")"}]}]}], ";", 
    RowBox[{"TempPar", "=", "P0"}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{
    "TempPar", " ", "is", " ", "used", " ", "to", " ", "restore", " ", "the", 
     " ", "parameter", " ", "that", " ", "will", " ", "be", " ", "varied"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"T0", "=", "300"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{"(*", " ", 
      RowBox[{"loop", " ", "through", " ", "all", " ", "rows"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"P0", "=", 
        RowBox[{"Pmin", "+", 
         RowBox[{"x", "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Pmax", "-", "Pmin"}], ")"}], "/", "dataPoints"}]}]}]}], 
       ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"P0", "=", 
        RowBox[{
         RowBox[{"10.0", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", "Pmax", "]"}], "-", 
               RowBox[{"Log10", "[", "Pmin", "]"}]}], ")"}], "/", 
             "dataPoints"}], "*", "x"}], ")"}]}], "*", "Pmin"}]}], ";", 
       "\[IndentingNewLine]", "evaluateEquations", ";", 
       RowBox[{"(*", " ", 
        RowBox[{
        "evaluate", " ", "equations", " ", "using", " ", "current", " ", 
         "set", " ", "of", " ", "input", " ", "parameters"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{"P0", ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", "t", "]"}], "/.", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
            RowBox[{"{", 
             RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}], ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Nc", "[", "t", "]"}], "/.", 
             RowBox[{"sol", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", 
            RowBox[{"{", 
             RowBox[{"t", "\[Rule]", "tmax"}], "}"}]}], ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", "\"\<\\n\>\""}], "]"}], ";"}], 
      RowBox[{"(*", " ", 
       RowBox[{"line", " ", "break"}], " ", "*)"}], "\[IndentingNewLine]", 
      ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "dataPoints", ",", "1"}], "}"}]}], "]"}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P0", "=", "TempPar"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Close", "[", "stmp", "]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"close", " ", "output", " ", "stream", " ", 
     RowBox[{"(", "file", ")"}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.632613739562416*^9, 3.632613773858982*^9}, {
  3.6326138074816008`*^9, 3.632614064038093*^9}, {3.632614116425983*^9, 
  3.6326141348652897`*^9}, {3.632964664253564*^9, 3.632964669886693*^9}, {
  3.632964709053584*^9, 3.632964712356957*^9}, {3.632965277454422*^9, 
  3.632965281163047*^9}}],

Cell[BoxData["\<\"/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/\"\>"], "Output",
 CellChangeTimes->{3.6326140667815742`*^9, 3.632614121444796*^9, 
  3.6326141671136303`*^9, 3.632964560994306*^9, 3.632964670704185*^9, 
  3.632964712904191*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{15., {0., 15.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Np_Nc_vs_P_350K.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["108",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"/Users/milostoth/Documents/Literature/Papers/026 \
FEBIP modeling review/data/outputs/Np_Nc_vs_P_350K.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["108",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/Np_Nc_vs_P_350K.dat", 108]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream[
  "/Users/milostoth/Documents/Literature/Papers/026 FEBIP modeling \
review/data/outputs/Np_Nc_vs_P_350K.dat", 108],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.6326140667815742`*^9, 3.632614121444796*^9, 
  3.6326141671136303`*^9, 3.632964560994306*^9, 3.632964670704185*^9, 
  3.632964712916363*^9}],

Cell[BoxData["\<\"/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/Np_Nc_vs_P_350K.dat\"\>"], "Output",
 CellChangeTimes->{3.6326140667815742`*^9, 3.632614121444796*^9, 
  3.6326141671136303`*^9, 3.632964560994306*^9, 3.632964670704185*^9, 
  3.632964713479548*^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, 23555, 506, 1187, "Input"],
Cell[23980, 523, 3034, 65, 91, "Output"],
Cell[27017, 590, 2853, 59, 86, "Output"],
Cell[29873, 651, 6574, 93, 26, "Print"],
Cell[36450, 746, 17861, 365, 303, "Output"],
Cell[54314, 1113, 26254, 503, 308, "Output"],
Cell[80571, 1618, 50373, 901, 385, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130981, 2524, 4983, 130, 438, "Input"],
Cell[135967, 2656, 187, 2, 45, "Output"],
Cell[136157, 2660, 17999, 364, 97, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154193, 3029, 6757, 169, 583, "Input"],
Cell[160953, 3200, 616, 11, 32, "Print"],
Cell[161572, 3213, 12802, 284, 385, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174411, 3502, 6082, 156, 543, "Input"],
Cell[180496, 3660, 283, 4, 45, "Output"],
Cell[180782, 3666, 18117, 366, 97, "Output"],
Cell[198902, 4034, 302, 4, 45, "Output"]
}, Open  ]]
}
]
*)