(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[    122039,       2357]
NotebookOptionsPosition[    120978,       2318]
NotebookOutlinePosition[    121535,       2338]
CellTagsIndexPosition[    121492,       2335]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   StyleBox[
    RowBox[{
    "GROWTH", " ", "RATE", " ", "vs", " ", "t", " ", "and", " ", "r", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"PHYSISORPTION", " ", "ONLY"}], ",", " ", "ANALYTICAL"}], 
      ")"}]}],
    FontColor->RGBColor[1, 0, 0]], " ", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "code", " ", "was", " ", "tested", " ", "using", " ", 
    "Mathematica", " ", "v", " ", "10.0", ".1", ".0", " ", 
    RowBox[{"(", 
     RowBox[{"Platform", ":", " ", 
      RowBox[{"Mac", " ", "OS", " ", "X", " ", "x86", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"32", "-", " ", "bit"}], ",", " ", 
         RowBox[{"64", "-", " ", 
          RowBox[{"bit", " ", "Kernel"}]}]}], ")"}]}]}], ")"}]}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Documentation", " ", "in", " ", "the", " ", 
    RowBox[{
    "paper", ":", " ", 
     "\"\<Continuum models of focused electron beam induced \
processing\>\""}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"by", " ", "Milos", " ", "Toth"}], ",", 
    RowBox[{"Charlene", " ", "Lobo"}], ",", 
    RowBox[{"Vinzenz", " ", "Friedli"}], ",", 
    RowBox[{
    "Aleksandra", " ", "Szkudlarek", " ", "and", " ", "Ivo", " ", "Utke"}]}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Beilstein", " ", 
     RowBox[{"J", ".", "Nanotechnol", ".", "2015"}]}], ",", "6", ",", 
    RowBox[{"1518", "-", 
     RowBox[{"1540", " ", 
      RowBox[{"(", 
       RowBox[{"open", " ", "access"}], ")"}]}]}]}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"http", ":"}], "//", 
    RowBox[{
     RowBox[{"www", ".", "beilstein"}], "-", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"journals", ".", "org"}], "/", "bjnano"}], "/", "content"}], 
       "/", "pdf"}], "/", "2190"}], "-", "4286", "-", "6", "-", 
     RowBox[{"157.", "pdf"}]}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", 
    "evaluates", " ", "equations"}], " ", "***)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"evaluateEquations", ":=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"sol", "=", 
       RowBox[{"DSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"physisorb", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Np", "[", 
              RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "Np0"}], "}"}]}], 
          "}"}], ",", 
         RowBox[{"Np", "[", 
          RowBox[{"t", ",", "r"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "r"}], "}"}]}], "]"}]}], ";"}], "}"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "set"}], " ", "up", " ", "equations"}], " ", "***)"}],
    " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"A2", "=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Ap", "*", 
        RowBox[{"Np", "[", 
         RowBox[{"t", ",", "r"}], "]"}]}]}], ")"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "limit", " ", "coverage", " ", "of", " ", "physisorbed", " ", "species", 
      " ", "to", " ", "1", " ", "ML"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"physisorb", "=", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "t"], 
       RowBox[{"Np", "[", 
        RowBox[{"t", ",", "r"}], "]"}]}], "==", 
      RowBox[{
       RowBox[{"sp", "*", "F", "*", "A2"}], "-", 
       RowBox[{
        RowBox[{"Np", "[", 
         RowBox[{"t", ",", "r"}], "]"}], "*", "kp"}], "-", 
       RowBox[{
        RowBox[{"Np", "[", 
         RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", "\[Sigma]p"}]}]}]}]}],
    "\[IndentingNewLine]", 
   RowBox[{"evaluateEquations", ";", 
    RowBox[{"FullSimplify", "[", "sol", "]"}]}], 
   "\[IndentingNewLine]"}]}]], "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.631374553337232*^9, 3.631374564067709*^9}, {
   3.631374712837816*^9, 3.6313750434798107`*^9}, 3.631375077133059*^9, {
   3.631376332186512*^9, 3.6313763560548077`*^9}, {3.63137641214821*^9, 
   3.631376420785318*^9}, {3.631376589134753*^9, 3.6313766490860567`*^9}, {
   3.631376693039163*^9, 3.631376849467311*^9}, {3.6313770247274714`*^9, 
   3.631377034537777*^9}, {3.631377323821167*^9, 3.6313773284880543`*^9}, {
   3.631378068408208*^9, 3.631378090548847*^9}, {3.631389994794137*^9, 
   3.631390042046454*^9}, {3.6313909116354733`*^9, 3.6313909435753403`*^9}, {
   3.631390986752735*^9, 3.63139103504847*^9}, {3.631391816563878*^9, 
   3.6313918640406427`*^9}, {3.631391917245418*^9, 3.631391971203987*^9}, {
   3.63139213418818*^9, 3.631392229650906*^9}, {3.631392282007607*^9, 
   3.6313923746705008`*^9}, {3.631392409166944*^9, 3.631392428329978*^9}, {
   3.631392556507985*^9, 3.631392594057681*^9}, {3.6313926628306*^9, 
   3.631392679149358*^9}, {3.631392731153356*^9, 3.6313927338969717`*^9}, {
   3.6313929742194366`*^9, 3.631392975649556*^9}, {3.631393055886606*^9, 
   3.631393058852707*^9}, {3.6325352323226967`*^9, 3.6325352346884212`*^9}, {
   3.6325361603110313`*^9, 3.63253616301862*^9}, 3.632536736915018*^9, {
   3.632537086971085*^9, 3.6325370884515543`*^9}, {3.633106439103116*^9, 
   3.63310645581835*^9}, {3.635441993750347*^9, 3.6354420398216133`*^9}, {
   3.6460025601513577`*^9, 3.6460025610261507`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Np", 
    TagBox[
     RowBox[{"(", 
      RowBox[{"1", ",", "0"}], ")"}],
     Derivative],
    MultilineFunction->None], "[", 
   RowBox[{"t", ",", "r"}], "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "kp"}], " ", 
    RowBox[{"Np", "[", 
     RowBox[{"t", ",", "r"}], "]"}]}], "-", 
   RowBox[{"f", " ", "\[Sigma]p", " ", 
    RowBox[{"Np", "[", 
     RowBox[{"t", ",", "r"}], "]"}]}], "+", 
   RowBox[{"F", " ", "sp", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Ap", " ", 
       RowBox[{"Np", "[", 
        RowBox[{"t", ",", "r"}], "]"}]}]}], ")"}]}]}]}]], "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.631374943930332*^9, {
   3.631374991110135*^9, 3.631375044376614*^9}, 3.631375078596142*^9, 
   3.6313763619494057`*^9, 3.6313764525190907`*^9, 3.631376516564431*^9, {
   3.6313766253189287`*^9, 3.631376649922427*^9}, {3.631376821443623*^9, 
   3.6313768501935387`*^9}, {3.63137732924684*^9, 3.631377345489155*^9}, {
   3.631377379076209*^9, 3.631377388732183*^9}, 3.6313774267930727`*^9, {
   3.631378069791418*^9, 3.631378090824788*^9}, {3.6313900446028147`*^9, 
   3.631390062216588*^9}, 3.6313910366234303`*^9, {3.631391825792379*^9, 
   3.6313918650854673`*^9}, {3.631391938924219*^9, 3.631391974088904*^9}, {
   3.6313921465799932`*^9, 3.631392230738394*^9}, {3.631392284552125*^9, 
   3.631392318168316*^9}, 3.631392376825741*^9, {3.63139241270092*^9, 
   3.631392459455563*^9}, {3.631392562059176*^9, 3.631392595575719*^9}, 
   3.631392681636025*^9, 3.631392735352285*^9, 3.631393020265296*^9, 
   3.631393061491599*^9, 3.632535236750081*^9, 3.6325361774943743`*^9, 
   3.632536745152816*^9, 3.6331066892051573`*^9, 3.633740002592655*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Np", "[", 
     RowBox[{"t", ",", "r"}], "]"}], "\[Rule]", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "t"}], " ", 
        RowBox[{"(", 
         RowBox[{"kp", "+", 
          RowBox[{"Ap", " ", "F", " ", "sp"}], "+", 
          RowBox[{"f", " ", "\[Sigma]p"}]}], ")"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kp", " ", "Np0"}], "+", 
        RowBox[{"F", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"t", " ", 
             RowBox[{"(", 
              RowBox[{"kp", "+", 
               RowBox[{"Ap", " ", "F", " ", "sp"}], "+", 
               RowBox[{"f", " ", "\[Sigma]p"}]}], ")"}]}]], "+", 
           RowBox[{"Ap", " ", "Np0"}]}], ")"}], " ", "sp"}], "+", 
        RowBox[{"f", " ", "Np0", " ", "\[Sigma]p"}]}], ")"}]}], 
     RowBox[{"kp", "+", 
      RowBox[{"Ap", " ", "F", " ", "sp"}], "+", 
      RowBox[{"f", " ", "\[Sigma]p"}]}]]}], "}"}], "}"}]], "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.631374943930332*^9, {
   3.631374991110135*^9, 3.631375044376614*^9}, 3.631375078596142*^9, 
   3.6313763619494057`*^9, 3.6313764525190907`*^9, 3.631376516564431*^9, {
   3.6313766253189287`*^9, 3.631376649922427*^9}, {3.631376821443623*^9, 
   3.6313768501935387`*^9}, {3.63137732924684*^9, 3.631377345489155*^9}, {
   3.631377379076209*^9, 3.631377388732183*^9}, 3.6313774267930727`*^9, {
   3.631378069791418*^9, 3.631378090824788*^9}, {3.6313900446028147`*^9, 
   3.631390062216588*^9}, 3.6313910366234303`*^9, {3.631391825792379*^9, 
   3.6313918650854673`*^9}, {3.631391938924219*^9, 3.631391974088904*^9}, {
   3.6313921465799932`*^9, 3.631392230738394*^9}, {3.631392284552125*^9, 
   3.631392318168316*^9}, 3.631392376825741*^9, {3.63139241270092*^9, 
   3.631392459455563*^9}, {3.631392562059176*^9, 3.631392595575719*^9}, 
   3.631392681636025*^9, 3.631392735352285*^9, 3.631393020265296*^9, 
   3.631393061491599*^9, 3.632535236750081*^9, 3.6325361774943743`*^9, 
   3.632536745152816*^9, 3.6331066892051573`*^9, 3.633740004567424*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"define", " ", "f"}], ",", " ", "F", ",", " ", "kp", ",", " ", 
    RowBox[{
     RowBox[{"Np0", " ", "&"}], " ", "input", " ", "parameters"}]}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "=", 
     RowBox[{"f0", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"r", "^", "2"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"2", "*", 
          RowBox[{"L", "^", "2"}]}], ")"}]}], "]"}]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Gaussian", " ", "electron", " ", "flux", " ", "profile", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[CapitalARing]", 
        RowBox[{"-", "2"}]], 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"f", "=", 
      FractionBox["f0", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"\[Beta]", 
          RowBox[{"(", 
           RowBox[{
            FractionBox["r", "L"], "-", "1"}], ")"}]}], "]"}], "+", "1"}]]}], 
     ";"}], 
    RowBox[{"(*", " ", 
     RowBox[{"top", "-", 
      RowBox[{"hat", " ", "electron", " ", "flux", " ", "profile", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[CapitalARing]", 
          RowBox[{"-", "2"}]], 
         SuperscriptBox["s", 
          RowBox[{"-", "1"}]]}], ")"}]}]}], " ", "*)"}], "*)"}], 
   "\[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[{
    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[{
    RowBox[{"Np0", "=", 
     RowBox[{"sp", "*", 
      RowBox[{"F", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"sp", "*", "F", "*", "Ap"}], " ", "+", " ", "kp", " ", "+", 
         " ", 
         RowBox[{"f", "*", "\[Sigma]p"}]}], ")"}]}]}]}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"initial", " ", "adsorbate", " ", "concentration", " ", 
     RowBox[{"(", 
      SuperscriptBox["\[CapitalARing]", 
       RowBox[{"-", "2"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "INPUT"}], " ", "PARAMETERS"}], " ", "***)"}], " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L0", "=", "50.0"}], ";", " ", 
    RowBox[{"(*", 
     RowBox[{
     "standard", " ", "deviation", " ", "of", " ", "Gaussian", " ", "beam", 
      " ", 
      RowBox[{"(", "\[CapitalARing]", ")"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Beta]0", " ", "=", "30"}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"abruptness", " ", "of", " ", "top"}], "-", 
      RowBox[{"hat", " ", "beam"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"tmin", "=", 
     RowBox[{"10", "^", 
      RowBox[{"-", "7"}]}]}], ";", 
    RowBox[{"tmax", "=", "100"}], ";", " ", 
    RowBox[{"(*", " ", "sec", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"rmin", "=", "0.001"}], ";", 
    RowBox[{"rmax", "=", 
     RowBox[{"L0", "*", "10"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{"(", "\[CapitalARing]", ")"}], "*)"}], "\[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", "=", "5"}], ";", 
    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[{"(*", 
     RowBox[{"sticking", " ", "coefficient"}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Ap0", "=", "100"}], ";", 
    RowBox[{"(*", 
     RowBox[{"adsorbate", " ", "area", " ", 
      RowBox[{"(", 
       SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"\[Sigma]p0", "=", 
     RowBox[{"\[Sigma]c0", "=", "10"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "-", 
        RowBox[{
        "section", " ", "for", " ", "dissociation", " ", "of", " ", 
         "physisorbed"}]}], " ", "&"}], " ", "chemisorbed", " ", "molecules", 
      " ", 
      RowBox[{"(", 
       SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Ed0", "=", 
     RowBox[{"510", "/", "1000"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"desorption", " ", "energy", " ", 
      RowBox[{"(", "eV", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Kappa]p0", "=", 
     RowBox[{"1.0", "*", 
      RowBox[{"10", "^", "15"}]}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"desorption", " ", "attempt", " ", "frequency", " ", 
      RowBox[{"(", 
       SuperscriptBox["s", 
        RowBox[{"-", "1"}]], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", 
      "performs", " ", "parameter", " ", "substitutions"}], " ", "***)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"refreshSubstitutions", ":=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"sub", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"L", "\[Rule]", "L0"}], ",", 
          RowBox[{"\[Beta]", "\[Rule]", "\[Beta]0"}], ",", 
          RowBox[{"k", "\[Rule]", "k0"}], ",", 
          RowBox[{"Ed", "\[Rule]", "Ed0"}], ",", 
          RowBox[{"\[Kappa]p", "\[Rule]", "\[Kappa]p0"}], ",", 
          RowBox[{"sp", "\[Rule]", "sp0"}], ",", 
          RowBox[{"Ap", "\[Rule]", "Ap0"}], ",", " ", 
          RowBox[{"T", "\[Rule]", "T0"}], ",", 
          RowBox[{"Tg", "\[Rule]", "Tg0"}], ",", 
          RowBox[{"P", "\[Rule]", "P0"}], ",", 
          RowBox[{"Z", "\[Rule]", "Z0"}], ",", 
          RowBox[{"\[Sigma]p", "\[Rule]", "\[Sigma]p0"}]}], "}"}]}], ";"}], 
      "}"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"refreshSubstitutions", ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.6325354251815233`*^9, {3.6325354668934927`*^9, 3.632535467703397*^9}, {
   3.632535727737561*^9, 3.632535748614173*^9}, {3.632535799389235*^9, 
   3.632535800409783*^9}, {3.632535872953866*^9, 3.632535931854782*^9}, 
   3.632536152657035*^9, {3.632536756633362*^9, 3.632536760549735*^9}, {
   3.632536806931343*^9, 3.632536817830719*^9}, {3.632537093977961*^9, 
   3.632537103269109*^9}, {3.632597415217536*^9, 3.632597415411488*^9}, {
   3.633106470115562*^9, 3.6331066292140303`*^9}, {3.633106716576939*^9, 
   3.633106717461638*^9}, {3.6354361883730288`*^9, 3.635436193768941*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"PLOT", " ", "growth", " ", "rate", " ", "vs", " ", "T"}], " ", 
     "&"}], " ", "r"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", 
              RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", "\[Sigma]p"}], "/.",
             "sol"}], "/.", 
           RowBox[{"T", "\[Rule]", "300"}]}], "/.", "sub"}], "/.", 
         RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
        RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", 
              RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", "\[Sigma]p"}], "/.",
             "sol"}], "/.", 
           RowBox[{"T", "\[Rule]", "320"}]}], "/.", "sub"}], "/.", 
         RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
        RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", 
              RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", "\[Sigma]p"}], "/.",
             "sol"}], "/.", 
           RowBox[{"T", "\[Rule]", "340"}]}], "/.", "sub"}], "/.", 
         RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
        RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", 
              RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", "\[Sigma]p"}], "/.",
             "sol"}], "/.", 
           RowBox[{"T", "\[Rule]", "360"}]}], "/.", "sub"}], "/.", 
         RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
        RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", 
              RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", "\[Sigma]p"}], "/.",
             "sol"}], "/.", 
           RowBox[{"T", "\[Rule]", "380"}]}], "/.", "sub"}], "/.", 
         RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
        RowBox[{"f0", "\[Rule]", "100"}]}], "]"}]}], "\[IndentingNewLine]", 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"r", ",", "0", ",", "300"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<r (\[CapitalARing])\>\"", ",", "\"\<Normalized growth rate\>\""}], 
      "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQvctz+5MmgdeOK7O/PQfRXbYX34HoJQ0L3oPoUz/v
MjYDaYMSRWEQ/ah3shmIDtFVtQTRtdEz7ED0t+NTXUF02mHBDBDd9CmoAESb
GXRXg8VnBHSA6KULfHpB9AnfyZNAdFea+WIQ/fjI07UgWmxB3hYQPS2yEkwf
Wqq5C0TfutqzB0TvsT9yGETfuPjoCIjWOW1/FkT/WMJyC0Tn+UgxtADpMv8T
WiD6xckGYxCduTrSDET/6XIOBNGveZeD6fVLj7+aKfja0UaX9S2Ilm5eK3de
6LVjikedCYjW430YDaLFNgbGgmgAc52Txw==
  "]],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVl3c8lu8Xx5EVvhSS8ZCRrMpKEe7rkF0kySZ7ezzPQ0SRHZmZkZWyJaLs
LaMUMkLIShlRkpHS7/n9c92v9+tz7uv+nNc5r/s6l4Ctp4EDFQUFxUny8v9n
ldGfX9+ejmPfV6ujsj7hYDtZuftKXA26R7xmk0Hm/SIbN764bvRsza88gcyt
FxJ3o0oGUeWfLyVBZKaq8mqijvuADHhLjFzJfEHwWvAd4hSaND90U5fM7VoP
BQNKZtFgyaqWOJntKGLCzmcuIAO+B/EUZKauvb24HfsFWVSuhg9M4yDf00Pr
xZ1l9N/XgyczyKwhYlVCIn5D68+MtCzJ7O0pQvtA+juKc/4zwUVmtTfHanxK
fqAvgrnGA1M4YBfhdL4m9BMlWP7WCSLzQsghrjOZm+jrLZUXYmQOP09560fs
NtpLr8h0mcSBUequxADtLmrJyJ759xEHJzZ+TJbf+Y10ZmVG48ncVTyHuRP/
IhWujqzMCRyk0Xxc11neRzSqZWe5yFxd4TKQLE0BNPPSjfHjOAhjsg32KqEE
aRHdMy5jOHA/Pz0+50gFH13NbPo+4MDQ2UzGQOgAVEaOqIqR+XinwbxUJjX4
7npU9o/g4NWtC+prsXSgYyy43f8eB+XFLVmWOvTgqWwpQkHm1A+KW320B+EW
rcKo2CAOHGXPFJbeYYC23V0r134c0K4cP+hC/A/eeXoPZb/BwRrnI5uxU8xw
RNFGLPM1Dj5o8NZrLjPDA4kZqqResp/Be3JJ0ocgaT38pUc32c+p0EViyWF4
81dsb7QdB5xqbYnF9KygS3XW+VEbDpjM/2GzjqygWGX6wKEVB5uRt9L0hdjg
5mYJ48cmHHQueGlJZrJD6Qnfeb9aHDhk2pesxh4FZ1cftagycv/wPBY5vHkU
Gr8t0PSV4ID74ewTOTNOMAv8EUhXjIN36VY5gSe4IMjokL1zPg7OppkkH2rh
hre0tEuDWTigT7wUeOY7L9wT0slTj8WB7eHoPRMjPpC7xXKOLRoHjQm9NwMa
+YDjDVXmeCQOiPEaXl2Rx2A1QNFNPwwHHhr8Z8oS+AG7t+zxxR8Hoxe4xTAx
QWjEbX2sd8RBaGidk76FIMgKee6w2+NAqsOkwDZeEPy6Th1wtsHBPdU0obu/
yHoq8t8xxwFSYecbaBOC4Sjq/zr1cVCEMbPZmgnDB17sHa0CDvwUqP6GR4vC
LC/D9iVqcj+tSQzJNYjC9cyyGCpKHLA+uVb8eVkUrv5ZPfX8Lw+UMBdfU9cR
g54ySft/WzwwOX+5nPqgOAgv3Wg2WOIBiMu6HhohAUoCA0em+3iAdl6+PSj4
NCQ+9m9Li+cBgwe2D6QqT0ND81xAYjQP5OjG4GdmTsOj8bXXd+/ygHztJ24A
Sbg/hDHb3OEBl9gIr3/7kkCT+Vp5AM8DizyurKhZCora9VPyLvGATldNR5Oi
DGgq/f0kTs0DYwP1G7xXZYBHqsot9h83OH1sEgh0lYGe0eAny7+5Iex7xx0s
XQYCN2gpU39wQzP3gGLLlgw0HPM7UjHNDTKeX6taK2VB3Omex88abuDm5HrS
ISIHNDT36d46csOKi39YL5s80GfY3b/zkguS45q+HD8lD8oaM5lyFVygVEVx
MUhDHkZfEJIXi7kg5k/E4XN+8qA3QRerkMUFJ+OTsp9My8Nwn0zk41AucK8u
q71TrAA42Sl89GUuWN2fXpVDikD+QYj1zXPCWtKFa3muGDiV/eLi+XcU1mqf
MqaJq0LEypG8nJMcwLHS6H3hujp0tP3no36QHbS4E813wrSgTWByLm38MHg+
Zm6I8L4IIok3fjKks0C3Z1zercd6YCwiWZAPjMDwxoxS+J0+1B1fKLO1p4MX
FlcIhy4YAGUve6nx1AHYjdcWevbhKmDnZQ9u2VCAPCEl8fyVa1CATy7i3fuN
WDbm1P2WjUC35AvRI+wXciOxySvdNoF8AUZc/K/viD/07RZHiAno5Z13o1n8
jkaT7r74cdcE5IM7NCNGvyN4sSdTmGQC7xbMzQprviOOnflTrKUmsPHar93J
/ztqDagW+jpuAhKLh7emKMl61DWW5HOmEHewOohdeg2156QtrmyYQlCr8HuD
nmW0/9KGpL5rCoK2h8/yly2j8+8k9rP/mYIqVqVInbBMPhdajhgwmUEBcw3L
YZNllGv6Va1W2Izcp6l155eWUCCbwuMwEzNwKH/0potlCZ2/O3Gdt9kM+ici
KAI8vqBKPO+4XpQ5FCv60h5zWUC5w2NHleLNYU1u1Hz06gJKOJ9sJJZiDmpt
rZdysAVEoGUcPvDIHLLUlGkd2RfQ6eydd7W15qB8W+LFq9Z5VPZ2qFPwqzlI
HX84/Qo3jwpO3qvY0rCA/Y6Blnuzsyg1UX19/pIFTHlQKzm8m0XhOxSnBw0s
IEEh11i/YRbZd/qWllpZgOyuT71xyiwSsnAosPaxAIFEHxEJnVmUGw2Zr/Mt
oOMCIW3y5Qx6uLx1N5vaEmgKDl+7Iv8JsRq3JzEwWgLP1SljEbZPKLIjNsfn
sCW8i3tpLbA2jbwzj9fo8VlC85KNSPCTaXRJz2Bx/5wlTAqRvL+xTqM/lU/V
rrtZQtYoD9FhaxJZ+NlT8r+3BHvZyf2THybQ+8+S/8WMWYJRoetf45cTSMtg
j3Nn2hI888/PPE6ZQGckEqUGViwhMVKBIsdwAjFNtVwPorGCoNiJSb7hcdQI
PM0z8lZgSHVDTXp8DPHSv/d/lGMF5cMMo39/j6I4ivS09Xwr+MR+4EbB9Cja
37lerVxmBU2DYOzePoqml759G6+1AqZ5I+vL90ZR9puDNqzvreDbaG62J88o
4otX0Qylvg5H+9Y2aC6MIH6OSjYHl+tAf6K4cbNgCCUw35Sq8rwOQm5b3Fxx
Q4iCDulS+lwHd2+9ReMbQ2hmuy8iK+Q6zIj3pR1XG0KPxr/ujjy8DrVHol12
5t4jwSz+GY1310E3YYfHV/g9YmXVMkrmsobX9BW60DSAnsgdx8Jx1tBLxYQo
igfQWVOKEz7HrKFmXI5lJHkAmeXW/jIWtga1uxpLje4DKO+0WAqPtDXMKuo1
hfIOIJmLDMN5WtbArCwU3ELTjwzC+q5U+lqDO2Pa27baPrRQWKSQ528NF3Y1
w+VT+pDPmzCBpABrIMRPtQ8T+1AGq/IP71BrkC190BUg0Yfmcp8myMdbg8cd
FB+X+waRmuL6WwqsYSC2jD3h/muUtKWv+27EGsrlvXJQXA9y5n3xcH/MGkqj
01qT3XsQpsa1fHrSGqJaBlIPX+xBX+/PRsTPkf1Q9UuG0PcgpVOkVv11a6h6
TSGnGN6NFu2SZIfobSBS403mSngXOj84wjWmaAPMLP002o87EcuOgjM9soFz
23ynDCI60QJf9kt5VRsIP/awJtClE8W7O15N17KBUOOLqipSZJ1uO8bsmg10
md51cW7pQLEYJ8UU3gZwviIXBBba0Uyp2eLsIxv4ZqfIZ6DRhlj8zzFPPrGB
xV23QlHJNoRpsZ8dLbSBywaJwdycbShr4W3466c2UP9k1+Tycisy41URrqqz
gazWZ7d/x7eioTgR+7BBG6i7qykR0tqCuoibsycobSFp7e5Kk0gT+oUGDwpQ
28JODoFm+F8jOs5cLs1DZwtFx529uccaUUiJUzDLf7ZgIf2GcDaqEaH5Cf4d
TltgEZqoLvzWgGoN2673StlC/SH/92ot9aj0XNyUm7UtpLxLYjwRVovG3nz9
z9jOFuj7td8n2NYiausLmKqjLeCM3S8eV6lFFpE72ZzutvBzXruic78GMY3b
Wr/ytQV+J8ndxVs1CO9/bp4v3hbGIxTPxQW8RNJNM18Hm2whUkZqQj+rGlld
UeRqarWFEwl9/WFB1eje5xTtog5bWNjpipq0q0Zz/10sCey1hb2rBTFb4tUo
0eqFm8SILUyrDI4M1lehzX9Ra2GrtmAvE5J3YPY5qlGV3TzHYwc+ajPRphqV
6MTEkWhbPjs4wMZMVypRiVKJOwKxAnYgmFYjKXC4EnnnNl2eE7EDZbXau7cm
K5DMvmZpzBk78K48+mzOuwKV11nYzuraweGKisAyk2foiVTEwL0gO0jJb9Sz
cSlD7D3OTi9C7cD8C4imKZWh0OsX9z9F2MEWk78N06EyZBt36KRcrB2cPfL1
VHVNKTq2mnH3U7odLKX8Yl4/WIoyCp9hZ6rsAGuacBqsK0YJfONlU5/tIDZ0
tFdDvRCZWZ7hff/Vjjz/9K0ZCxYiocz42K4VO8AJxeg9+FeAXnJp4J/9sAM5
w2ilgvoC9JG9SjL4rx0o1Id8WZcpQCcYY58fP2IPBUJJRkwn81HjNtS6qdmD
7JGUyi3sMYo4mylqrWkPH77NpUUJPEaXb2w/MNSxhzuiB66qUz9GcxtP/ZT1
7QGvYX/o7Os8RLfGrchiYQ+Bf/hld4zzkMHCZtNzL3tonw3+PuT/CH0ZKOrY
zbMHliNSShp1OWiTNSbjVIE91P28ptYRmoMornkSbYrtATHSokS9HMQ9Lnes
95k9UBb59x//nI0uzbb7P2i0h7endxxZOLJRxY9J6XOj9uDEGMCeFZGJbrIe
zvU+6AC/Zu8LtuSkozDDTZ8iJgco4Sm1qfBKR/dTP+hOsjgAx965kkXNdFTC
nb13gcMBDFPzGAV+PECTghLGbEIOYBa7Vtau8QCBrDrzcyUHaC20znXeT0UH
Df1ur3s6gEyDfvKrzGTEajFhzu7lAN6hEiv6fskIZ6+oqODjAJ8+OYuxGyUj
Ke+/uyG3HSAzMXIQDiUjo+RgX44ocnzy6UHxu0kobziKpJznABvPf5n8C0xE
StcynKOHHSCmddC1IDkBaVjuaVZ8cICuobWRh74J6LKDhcjIhAPIHvf60mKW
gGxv8C3yzTqASvWITJJAAopMybN7/s0BFmVKVZpt49HISInVOK0jFHKHKeY/
j0V4owZDEQVHeNLNnjx9/x56T5PyH4eSI9T6y6aWOdxDci/wXdTIEfg+45Oa
Fe6hP2yC8nNqjqB9QoqqbC4K3RuM5MnSdwSM/3v/43NRqPCS0RyrsyNkPQ3x
qfl2F82o/vDcT3UEwdPXTx2MDEdqG69Fv6U7Agvjf8uP7MJR4aMnsx8zHeEK
990aLxSO8BQmV+vyHMEt7Bq+dTsM/WlqPutd7gj77z50bLmGIU6FmL9Lrxyh
JUqFJ9E8FF2RFIke2XSEhg+POb3tgtHObGTJgR1H8E1UKTp0IRhlJy/3Su85
gsyLd/yfBYPR6u5T+jhKJ1gzCcWfmQ9CEZ1nIjSYnaBwIaXN1jEINZqqBteI
OMEne58q52+BSDTM0jfdzAnMFnhHZ/1uof6zLandlk4g+rrU6b36LeSzxP/y
l7UTtDeX5PGx3kIdegubV5ycYEJC26q71B9ZcbmRGLyd4PFr428X5/1QcvlN
j1uxTiC/kKqeZ3sT/RtLsrNsdYIEZVqVN9k3EIUs3uJahxO8TaEnffYlc6zW
Nd0usn71wGu4cgNRqfzVUO5zguwM4Xt11DcQdbGjOO+YE2ju5I4U4r0Rg5/C
j8l1J9hvu8JyXM8LHeH6FGhxzBnulou7sigQEYdXna+hoDOwLXfdSeMi89sk
wiVhZ7heN6F47TcBcQZr2SpJOJPv7fQmhEYC4l6qVMedcwaeIPxl3AUC4q8L
Y5rUcwZxh+PpdNV4JGEqnmEe6AwWfk7Xp4zdkKhfyEO1YGdY1Ff1Fzzhhk6k
T2SeCnOG/twM48ZNVyQ4fi/nX5QzrLJaT6wkuiJO05Unj1Oc4dL+KovEkAui
NS17tlLmDH41CsyNts5ozuT0q1sfyX65eT/31DugmZsRXfbTzqAYLC1enuiA
ph9Md+vOOsNUkkbnmKsDGh+Le33sizOc+OWl/IfHAQ2YrPd3bDjDOtfDN4Rg
e9RsUjHByOACtZx7z5+b2KF0E5nvD+VdwJp+e75XzgZN3GI16VR0AReLbI9h
VhvEnbPRsoq5wE1B1Czw3Rplfn4er6zuAh5fPH1DSq1RLklW8tMVF7hMiuHR
F7ZGRTFn8IJuLtA0bvyZqG2Flp6xj+rgXSBVTTOVyGiFxIc2lb2ILhC25Nz6
9a0lKuN68V+nrwvMUN7wUzC0RM8K5J46hLlAO/2Bcj1HC/Sy9exqUZYL1HQe
rE/KMUPb8xyGg7ku4JehWljobIbk6bYbdh+7wNRGBP8JGTNUr1sTrVPiAjek
r6xe7zJFTRPnJFZfusDI+43flT9NUOemvKvkgAtY7u2dk7QxRkOiil9fULlC
qFhAS12IIcL/TBIronEFseUfyY/MDBF986prBr0rvBLrvD4kY4iwq9nfApld
4b8DZpWsC1dRSQDlT01uVzhwpUJtQ/sqCn7f/Xdc2hW44zULXgsaIMnbhmz7
1q4gQTrSXk6jj15rPDX8bucK52kZKj68uYzsD9Omzjm6gt2igV1PzGWUUVDD
2e3uCvJlr6YYD11GtIPcfAk3XaHVK5CCCqeHpoRnRQUTXMG253XoX61LKLrf
A9NocQVfmS8COz+0kGuW3qJvuysYzBQa5TVoIS03ybjiV64g47pq0xiuhajp
fkwx9bnCbI+utDKPFrqNeQcMjbmCqdVTPtOLmsj9qX+j9YYrWMTuPNNoUUc6
t8ztE3+R/U58oY+LV0ei2kpMnTuuQKOMc5e3VkcLC3/NRf65QtpLsf4qKnVk
gQve+8boBqpFGUjykhrSjb57/pawG2jmKkalfVdFJ02d58pE3YAuqehGXZcq
YhDRvjct4QbVy0RB2SxV1NXOMKEi4wailOLt4hdVEfY71o8euUH6o5AJzlIV
dNoluTbFxA0U6yXyrf0BsWg+OlsR7QbRlPtrpU+UkFbj75rSODew/bwUVuKs
hIKkDRUK77vBhSBdOf5TSug7D51Sdpob5LLfm/aoUUQD391VYh67wWRYqfit
wfMoIUP+knODGwSu/5ecy62AelgS39o1u8EIJude/lkeUYSv6F1vI+9v2m10
olIeETyzrxh1u0F/y322K9rySF+N2lhtyA3MfZbpAgLPoUNr/Tb8K26wcvqx
xN09OaRlJzbPs+YGYZr/9if65FDQWIj90R9ugNaEx2Oy5dD3djkn5m03ODEj
a0Z/QQ4NpD10/0PlDvGLidwXE86gBBUn3zFudzgQ3NfnrCiLDqXsxyTouIPq
9n3/+H4ppD4wwhGg6w6dygkErjIp5M/4NNdF3x2m7/DVLEdKoYVg82pVI3e4
n0l8aX1BCtXiaz9u2rjDzvqxiqO+kshGiyRu6kfen+V10UfCKZQaql2tftsd
LrZtqJjLnEJ9zfyYzB13KLjZKWe6eRKdleu/whjuDqSPXVJ9ficRg+BJv6YE
d2Bbem5z454Eer73uVugyB0y2HJOMbSLoS9nm64wl7qDdeFoA2W0GMKRkj/+
fuoOiFXY0MVQDEV8VV0fqnIHHrUs3/Cvosh8JIcjosUdAq56Xhs/Ioqon5k6
LI+6w0helZ5i2Al0zfYtVRWNB1SubfTdKxFC73JP/pym94AIBbpTTreFkMan
6HkGJg/QrtF4X6InhM5a6HTasnoAz9DVEPtNQXTUqDuc9ZgHfDOm4binJojG
tdvoSfIeMPAho2Nxix8ZRPLvZil6wI3fvA+H3/Gj1113lnoxD/D9FVWGK+RH
9Rew1wLqHmCiqSxQZ8KPHio3RA9e8YD5Idde7qBjyFL6BbO0mwcID9LU0yjz
olFP9n8WeA8Y9rD0CtzGIb1yr/VIogdwTFfMJz/HIUxCZmDG1wPC/BVCUsVx
6Jjws/sJYR7wdnmetluAB81yFrN/z/IAjRmtsnYJLuRAkcX9bMADWuT1JLry
jyD5Re+FJ0Me4MIlScF64whi6LtUnjHqAasalGldakdQedoflYhJD7BXWpxy
/MyOtk5buFh+9YCgmeIVdwl2FGnJU8tIgYev8bigiV5WZHbhZzDlATwkKtjw
GeSwopNiby5u0+DhPWfnnvANVjS46f9pjhEPAdTlMp8EWBF3zARt/VE8/Fp+
OxNy5zAqq0+/5iyJB9Hc/cgfOodQYC7xmJUMHmhOy9SMCB9C+hHaS1fl8MCS
wVfCQHkI/bqyexsp4uHV10vtvQQWhC2ZPOHQxAMfk0lv/DVm1H+U82enFR5c
elrVbyoyoQ3v1ASBODwQQsRFSQR6RG+11Wp0Hw+qsYcVXWTpEa+m0Y/oZDxs
H1W12tiiQ1pcHAZbGWT9A37oxR06lN2UwvamEA+jlVVTU2m0SJs2JdW7DQ/3
ZZSqH85SI6v1za7iTjxMRU5p8T2lRt5jhtvT3XjoabsSecyPGmWXsJtovyPH
1xpSpbNSo029ZC6+j3hgt5H31r54AOWmJWV2b+JBMaJf6Ol7SvQy6Gffn208
aPrTBqTkU6I3Llf/Su+Rv5/WrrlykxJtKbJZZVJ6wqLxQshHfkp0cSbxGJHZ
E+Kozkc+v0GBtkQT87hFPYGmzXJ40H4f061PKPIw94TTb/QV7s/vYtYu+Nkk
K0/QyfXS8sjbxUicl7jrbTyhkg4tLtrsYqk+dDG0zp6w/kzhW9ncDjYjE+iZ
4+0Jmg9nYyxWtjHvUrezg7Ge4L/xMxHHuYVFmGl7bid4QvXbXZWTM7+w9IMi
RbzJnlDfwfWno+gX1uw0x+Wa4Qkk07qdCMVfGN1x079UhZ5AncDyQN5pE8vI
1Og80+oJuVlZ6xdGN7Cyi8f/mnV4Qi3jCJVmwQbW8pvybHCXJ0Rw9CW1+Gxg
CyZNhW/7PMnz5f1T/3FtYKePnIl2HPeEkHxLtT+2P7C2WAGDBxue8OK0So06
43fMG+2vB7ASQAMYiPm6K1iJq9juLzYC7MkU3/zOuILNpBhS4Y8QQCgkuHPo
9TKmu1rCbsVJgPmOd3OWOsvYiXRjBYyPAKYihd/M9JewDxsVIftiBDhscRs/
4/MFY+abjPaRIAAdQdSPA/uCqWnTpaydJMAoVcbKAM0XrCLHsnBakgCUEWUs
71IXschLDH3NcgSgwqqLXzd/xs4X2B25o0KApenCtyPCCxhhMI5vW5UAuCpM
uW9zHiv4UyfiqUZ+f1YjRq5zHmO7euj8dU1yPlLahy3t57HVf41WSJcAFDln
VBeK57BsU46ifyYE2DS8eXJPaxaj/K/3fBCBAMoeRvd/PZrCxhTkt4+SCPA9
l+PmV4MprMKxsOqZFwGMV5S6CqinMOvW8JOffAgQkJDXHuA6ibV6qfJhAWS/
wncirdBHLHCigfJPFAG8KT+4XmIax4zoJJqToglwKHpbk613DDt9JsNfIpYA
D251KUZGjGFTsTd/miUQ4Ly+i8+NA2OYkorc57pUAvxevHBekuYD9ruwvMf3
MQEOblDR1J0Ywd4P84az5JPrE2dInqSGsRLKWJXCAgJYJYjpcr4YxkzN3epH
iwlw1ES9t1N9GKtlFi2TqyDAFSrvi2MeQ5jvjUfxPxsJoMmTlFT9YRDbVE02
8hwlwE0rjQtxrO8wv46WfysfCBCy4Do59Oottn9hpch5nAA6by93j/q9xejU
VfdsJgmQbxozw7TQh3Frfs8xnCNA2eIeC0PbGwwuXlpSWCMAdtHSa/hhL/bq
jW/iy3UCROeLCwma9WI6lx4ryv4gwD5Tuz8rVy92Vfd37MlNAsRzUJeNPOjB
HC8XyRz7TYCMj8ezG3O6sdir1LepaYlQm357trf3FcY6LCkcTEeEI25Pian3
X2Gphubv/tIT4VXuzvaa6Sss99pz/m1GIkw1BBqi1U6s2tj61dJhInxqINTK
H+3EJswbmft5iSDb6+zuE96OnbD3fpQuR4TU2VzpHzdasOLu6XfM54hwh8jw
OVS4BTspof0nVJ4I+QUl3lMjzZjsBq8xXpEI21sGr6bkmzEI6ma6oEKEfsHa
4Rm6Jsw8k/vm6iUijOv2IKeeemz6X1i+jR4Rkgol9xJD6zFbu/X3o5eJIPyV
/qMLqsecxTtPtRkQgTeUbpS1rg7zqfWYTzEhwuWDfLzC1bVYwnCrHrIn+3Oy
dd/ufomxyUvcrnYgAselSg3e2JdY6sOUYjEnIjR5Ut0YNXiJZdm6UrO7EqG+
9GPCn08vsJLvbPVfPYlg0WGwvkHxAutkchJOvEWEp73zwjYWVdiu2n9/FhKJ
IE6nV1VKqMD4Shom/ZKJINUvlSKgWoGpsrg2MacS4dgVIemj7BVYzHhXoHw6
Ed5p/uTfIT3D+PFBlDE55HqkLA+zsJdjWmk/aWXLiBAVM7R2PKQU8/jz6Ev3
U3I+hJbLo7KlWKKNfo/FMyJQl2qUXl8swSYlnkZFPCfC7zfTHT90SzDPVkem
iVoiaK69uDF8ohhLXRo/HPyKCP5hqpQNfwuwBr3IjSPdRHjpJaa00lCAzVSd
HSrpIde3/s3MoH8BJh6YlDz8hghHP+GGG37nY02sukdF35O57ANHH1U+tqDY
iuufJkLMKf/WizKPsYOP8H/tZohgOlY9yrCXh52m5Z3emSVC3N7MMfvOPOzm
gF+O4GciXKXt4/xkkocxOsgK+qwQ4RSn1H5P5CNMJq5AhHeHCH0+8SVHD+Ri
1JqHf6XuEqE5IOZ86bMcbPTfrfZDe0R46JnaetAsB/MnXrGk3ifCydffdh0q
s7E2wz+JKwdIwCDNcdTKNQvT5zHYr2MhgT91bhrxwENMcLjxjexhEmT5COgc
rc/ANmNE0p+ykiD/UmpaIDEDe7D/R/bRERIIk7hmIufSsU+zhS6RPCRQ6msv
N337AMMX/R02EiEB3xrtv6udqRjYOOcNiJKAztfSTToiFWPlHvLUESeBQVFH
dJVWKvYyuogBO0WCWS/8u+z+FOwv/ioIy5Lgo3SY4ueFZCxGrrj0J0aCl/kP
K4clkjCrNTY/DyCB/LpdG7adiEkVBmp8USGB7p2JojMdidgwp+HshBoJRLSm
oMUiEeP5s8/RrkMCElP4okjqfayk3TAkwYgE+rhlGV6BBOx5mzScNSGBzJkG
WupP8VhdK/P+R1MSKP546bZ1Ox7rae7xE7EkwUrxMWeNxjjsc70SsdmOBOWf
Y3jPa8Vi/FXHrVcJJKi9aPKtIvEeJvqcki+RRAJmXV77ELiHSVZOfzznTYIS
hplVnfUoDHv2wDjUlwS5cmKpLy5HYealTJe5A0kQvO228YQnEkt9vKmsFU2C
5z6dQ1lT4Vh23uDetxiyn9vXTmWnh2P5j8rrkuLI+dYdF3U3Cseqc5zlPt0n
wbtv57Sc3odhgw8nT/o8IMHuZV6+jKFQjCm5k+dJPgkGisaWqHeDMfakR+Pa
hSSgKLzUMNgajPEkBqatF5GAWur4Oe2oYEw8QZ5NsYwELO5cYtK4YEwrpozh
/XMSHHA2ESjXDsL0o6N6fKtJ4BWKdT/kCMKM7zlG8L4kwdG33QSdnjuYYyQ/
lUsdOb/H53jpqe5gHnf/tjA3kMDmV9zhstxAzDtiIqC6kQSbLqSdmxCI3Q6v
UTRrJoHrSPNR99kALDQsefdfCwn2XPkNg0MDsP8B5Ej31w==
     "]]}, 
   {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV1Xc0198fB3BJVpIPkZHZQCSRrfd9ISNpmNl7j88iK9lJVrLKHgkZWRXK
/FqVykhlhYyyUlbI+n1+/9z3eZzXeZ37fN33PecK2hL0HKipqKjEKcv/v9VG
22u/ygaxeH/j8oOKOFhPutCpG1eDFrZoPzBQvFtk48YX14lWX7OdoqG4WS1h
815xL6q5k3bznwIOqKs9G2jivqLYkXtUvyhWEzIMCSJ9QxtJcx3DFP+nlS50
u/g7MtnufNNBsR1VTLhixhSaHjhL+4ximtqAH+uxP9GpEzqKDyh+QvDQehE0
hwZztxeJFGsIWxaTSb/Q24dRaToUexGEaR+d+4PcBFdDTlB8sYu/xrt4CZ0s
IVhvyOPgiDCns+HxFXQ9cKLpDcVToSxc5zNW0c2VfI5kiu8o7ru1FLuOzMhX
/YQoNkrZFOuh3URrJcF3JuVwcGp5aeRZ0D+krZF1L4fijqcTmDtpB+l6/tY6
TPHDA8O/ted2keblUJoWWRw8r3DpSTpHBWGPsnfwFIcz2YZ4Fu8DOuUn/E0y
OHBXHB2ccKSGclJlnw3FBs6mUnrH90OfaIQiFcUn2vQmJTNogE3D8aDUeRy0
31JTX4ylA/hefsxZCgfPnjZlWmjTw8+akO35czhI+ar09z0tA2yaDdi4U+wo
fb6wJIgRbKJaBW0kcUA7f4LBhXQIBDS2vXglcLDImWszcIYZ/oR08YedwcFX
Dd5XmnPM4NetwjwtTsnTGyWTeI4FhKWdJDLFKHnOhP0gFeNA8GmC87gIDjgv
tiQ8pWeF7gNa1cIUM5ntYd8dWaGpX1LdTRgHq5G3Hl4/zgbWHatbP07ioG3K
U+tsxhGIeWHwoFIIBw4Z9sULsUeBoc218gEP5f7wPBbGrR6FzHw8QyQ3DrjT
v+fLmHICrayqmD8XDj6mWmYHnuKCPh4Xat2jOJB9aJzE0sQNSSEjk29ZcUCf
oBN4/g8v3LikfXWOHge2uOgtYyM+6Mptrk+jw0F9/Fvf2/V8sH6a0KRBiwPS
fQ3Pjkh+6OZ9cyhhPw48NATOl8YLQL/yw4erOyzwRY1bFBMVgtbMfqf5JRYI
C6tzum4uBMU73EtGf1hAstW4wPa+EOyZNgg0LrJAlOrD43fXhODdu+7XQfMs
gFSO8PW0HAdqLxatnikWKMKY2WxNTwLD8bLogi8s4KdAvXMnWgTqdZI7JGtY
oGNR7JPMaxG4OVh/UvEFC7DmGz6dnhOBj1ntnFDNAsXMTw3VtUUh9ZXJOpSz
wMjktWc0DKdB88iyDmchC0BcplVYhBh4seDbeVNYgHZS/r/gEAlIUxkIjSOx
gN4j20eSlRIw5Hi2SITAAtlXYvDj4xIwvvXjYJM7C8jXjnEDnIX1UIx/wokF
XGIjPPd2z8KNqIwvexYs8IPHlRU1SoJr6zv/9EssoN1R09qgJAV0U8L+lnws
MNDzaplXXwpigrniM3lYwGm4QTDQVQpGQ1lTBzlZIPxPaxCWKgUcmw3aWmws
0Mjdo9T0Vwp+LnRm76NnASnCTHVzpTRUDfTXvP1+GLg5ufJbhWWAjkQWWw0+
DPMu/uFv2eTBbdLxRsIzZkiKa/h54ow8aIvux+MKmUG5mupysIY8HFLnlo/K
ZoaY7QicnJ88rC64L7nEM4P4/cSs/FF58FK4k/adxAzuz0trg54qwDa79WqN
NDMs7I4uyCAlYGgyfHCi+hAsJqoZ5rlisKI61ILymGCxtuzgw9OqUMz633rq
TUbgmK/3UrNSB4+BTp6bM3SgxZ1gthGuBXIX6+kzdA4A4THz6wivy3A6Yc/3
8BA1dBLi8m49vgoWsnpXrFSpgLHLdN/Jj9fht/vv+8GzW+iFuS6RRU0PdOrS
8laq19Hm/UvHy7/qQ/twY6hezAqSJyYnKOoaguzN2eODnH/Q4eUJdb85I1Ag
Juc3ls4iNzKbvHKAMZTXiCw6K08hgbAPfzlCjcEjhLd4VHQKfUm8+2LprjEw
0ePKrI9OIXixJVWYaAyLSZ5M0cuTiGNj8gxriTHM+0qW3nw6iZpvPz8+M2gM
jxPFQnO5KPV7hoeT5EzgEYsaXn7/BPov++GP+WUT0F9nHGBaG0O7L23I6psm
0O8RUuP0aQwpfhTbzdozAVNS5cNvlWOocruJXY/JFHYXlcu4CWMox2TmYu1J
U/hDCpgZnBtFgWwKj8ONTUHs0bdlm5/fkOLdISveRlN41bh1TGN1GFXieQev
3jODIC9uzVLTAZTTP3BU+b4Z8KYcH9BQGUDxiklGoslmsGxGnfFXeAARaQ/2
7881A40hrZ6kta9IImvjY22tGaTUsU93PfiKSj98ahOaMQOh35snjn38ggrE
oyr+apjDrMK3xQ3DzyglQf33pI45xCpryAigz+jOBpVEr545FNyv1DUT+Yzs
23xKSizN4Zqk9hjTVj86bu5QYO1tDnyJHz+a5PajnGjIePfEHJK8M+mTlz6h
9Lm/d7NoLMBqjHpEJacPsd74L5HxoAX4+H9rYo/qQ5GtsdneOAvIP1IluOfZ
h7wyTtRc5bOAresVwqxafUjnqt6PXTkLEKgK2pNb6kXblWUXrdwsgG74uJiP
Zi8y97PfJ9BnARKvEuKs9/egvumzh2IGLCBZ5vPPxLFupKW3xbkxagHpSm/P
xdV2o/NiCZI98xbwtdFPb9O1GzF9a7IKPmAJz4xFsCe9H1E98DSOy1vC36db
dsoFHxAvfZ9/brYl9Lrlfn7s1oXiqFIf/n5iCZ2Rmbl9l7rQ7obV8wulljB9
WNf4hEgXGp399Wuw1hLO+L84Jjn9DmV1Mdiw9llCifRZtinrd4jvvopmGI0V
NCnOny62fIsEOCrZHFysADkMs22RO1E8s69kNcEK8v7t59Ez7ERUdOjKPm8r
YE/D33oj14nG199HZIZawRPSQDbbTgfKHZzZ/JxuBR2hlzkF73UgoUyBcY2P
VjBXkWpAXdiOWFm1jJK4rOEYo3ef1GYrypc5gd05Zg2NCbevMnxvRbImVKe8
+a2BLobXduNNKzLNqV27cdIaLp4rRYKprShPQjSZ55w1GLceik5VbEVSlxn7
87SsQcLn5s0jof8hvfD3upU+lP7CqaxyoRY0VVikkOdvDYfX+qgCDrUg765w
wcTb1rDssP7TcqMZpbFeWPIKswZF2gO1Th+b0UROWbz8fWvgF3c7GX6rGZEb
4rqbCqyhVaEOPatuQol/r1/5+NkaspPfv/qg04CceV+k7w5YQ61Zv3DuiQaE
XeSakxixhlFWUbf87Xo08+B7xP0Ja+CsNbysUFaPlM+Qm6//tobC694zSSz1
6IddovQnehtQXNqvvDT2Cin2fuYaULKBh5Ed7cw5tejwhoIzPbKByN304KDb
tWiKL+ulvKoN3GJ7rsZtVovuuzvqp2rZgD/HRPYHDkqdbj3G1NAGvPfVSwrH
16BYjJPqG94GJjvkmEKjXqLxEtMf33NtYDt97WpTxnN02F+OeSTfBo4y37Y5
FvIcYVpHZL8U2kCfAturVIfnKHPqw513ZTaQMCbtsCbxHJnyqpysrrOBt0+G
FsRbq9GnOGH78F4bsKHf+hC0VIU6SKvfT+2zBe+/9LHT9pVoDfUyCNLYgotp
WCj7lUp0gvnZOR46W6j51XvFVqYShRY7hRw+ZAvPLcVcdGkrEZocEtjgtIX7
LqGjoU8rUK1Bi9VbSVt4LxCBl50rRyVycd/crG1BgukYexOUoYGumUM37Gyh
IqaUvoyzDNFYq2Gqjrbw8q/s0a4/pcg8ciOL090WDBfUEx7lliKmQVvrdh9b
eNckpUk+UIrw/nKTfPdtYTn4nPva52J0rmF8prfBFs5MLr5bfFSELHWVuBqa
bQGLv0Sf4F2EoqaTLxW12oJg+W1Da4MiNHHocnHgW1u46OunHsBShBIsX7iJ
fbaFyi8vs0ujCtHq3r3F8AVb2L/cPvI2ogDVqEqvyvHYQbQydHdm5KNTQ+zR
tnx2cPn+C7elgHyUQtoQjBW0g5Ns9byaFvnIK6fh2oSwHUTZ6V+/yZePpHY1
S2LO28EP318pA3mP0bM6c9vvV+yAeLSpM6Y6D+VLRvREBdvBX3Gubb2VHHTk
jbPTizA7uOZoZpk2kIPCrC7vjkXYgUPugAddYw6yjWMRl4m1A7nISDu9ezmI
fyHt7liqHZQmNDoWCOagtMJy7Hy1HZwr8anHqrJQPN9g6bdpO0D6Dv/U2tKR
qcV53r4ZO7ASMzuSnJaOjmfcj+2YtwO9nZJmPlI6esmlgS9fsoOFnhTjIb50
NHyk+mzIjh3svKNvng9IQ6cOxladYLeH5ABNlwtqqah+HWrdLlK8tXl08m8K
ipDNELHWtIeuzzu1HZ9S0LWb648MtO1BbIS9ZqgiBU0sl/lduG4P4vqcS4lu
KYhukVvpsLk9+MqdjlebTEZ6U6sNVZ724OlSEe8wnIR+9hS1bubZQ0qOjbrE
rwS0yhqTdqbAHtJ037mqfEhAVIYEks1Te9ApYvO6U5aAuAdl+N+WU/q/4W9m
4xOQzvf//B/V28Pykx8+bCsPUMXSyDm5L/agfvnk21aaB8iXFZfjxeAAzlQt
00KJcSjcYNW7iMkBgo3+tsVbxqEHKV+vjBx2gLHX7Ad0T8ehYu6sLTUOB5Dz
d/3Y+V8sGhESu8F23AHMnbT7A9djEEirM1cpO8BCy9xKNSEaMRj4BfwmOICx
8k6x5qNIxGo+ZHbE0wHakuUjNj0i0TF7JSUFbwewb5F4/kstEkl67WyGBjhA
qDuhNuPPXWSUFOLDcc8B9Ew1gxiv3EV5/ffIF/IcYPRVHOdnXARSNkxzju53
gMEtW7amN2FIw2JLs+KrA7yO4v11tCAMXXMwF/485ADq9eKPisLCkO1Nvh98
3x2gnYpWgIjCUGRynl3VLwcwTNhmiasLRZ8/F1sO0jpC6tzUQGtNCMIbvTYQ
VnAEtc3+LwzPg1DfgeRDHMqOgI5ZFF0JCkIyL/AdNMgR7q33fpnQDkLbbELy
ExcdwXdeJGlnIhBF9UbyZF53BK7j/huzHIGoUMdogtXZERqSuVhRbAAaV10i
7KY4gvKH97F7FX7o4vI7kV+pjpDxlHr5/h0/VJib/304wxFKqkUU7U39EJ7K
WL8uzxH2c6YlfKHxQ9sNjbJezxwhBzf2aNDcF3EqxOzMtjvCoZHjUge4fJDu
WeHoz6uU/KZ+bCFNXmjje2Tx/g1H6LE+vTf8yAtlJc29PbflCDt+F0/6kb3Q
wmYZfdw+J5ixkvDwP+WFItrOR2gwO8GovDFb9ANPVG+iGlIj7ARSPUYhsZ5k
JBJu4ZNq6gRtO8s6RHsi6pZtSum0cIJsSB2yVici71mBl2vWTvDL6Zlf5Cki
ar06tarr5ARJZ/IPrfYRkCWXG5nRywkKPyvr1U/iUdIzX49bsU5QofKPu4XT
A+0NJNpZNDvB/v1ibsLvXRCVNN7csNUJ7pq5VTZkUhyrZXilwwnqYvfN5BJc
ELXKjsaF905wwUyIS/eIC6J56niad4CSt4JeTsXGGTH6KSyN/HYCv5qP9Hv0
ToidayzQnN8ZbrTNxczH2CMOzzofAyFnkNmOOmPlRPGHRKLOSWcwC278x6pq
jzhDtGyVxZxhW8r/p/yGHeKerVQ/JucMhQ+/Dnk62SGBunCmkavOwNd5W0pP
1xaJmZxOMwt0BoNOfMSJ69ZIxC80/WKIM2gK2pv5SVmjU6lDGWfCneHuIb5c
KnZrJDQYlb13zxmc10Tvar+wQpwm8/mPk50hMaO/8naPJaI1KS2fL3WGXQOL
jDFOCzRhLNF+a9gZHH5wB8T+MkHjvhEd9qPOcN7776nqBhM0+mi088p3Z5i1
OxQjFmeCBgfi3vH/dAY15ns3WSVNUI/x7+7WZWcoDeDULPExRo3GFUMHGV1A
qPtG30P2GyjVWOpPurwLbEfPmtLcM0BDt1iN25RcIHnQffWKlQHizl5uWsBc
IPqk9twPGQOUMV11/4K6C4z+4S07MKWPcsjSZ8d0XYDO/mvPtJo+Koo5jxdy
c4H3ztd1XuP00Gz5kS/aeBcQ5mH91LCgi05/Wr3gSXIBW8fDuXRvdFEp14tD
bT4ucNK9+SM+SBeVF8iUOYS7wOuyM763l66jl82yC0WZLrAcFvLIvu0aWp/k
MOjNcQFZkD4wEnoNydOtv9587ALnqYwN+1SuoVdXaqK1i13gtm1cuELLVdQw
JCe28NIFhpW/O39tv4LaVuVdz/a4ANkglD1++jL6JKI084LaFUSvOiVL+2kh
/EqiaNEBV3jygS3Y/JIWom9ccE2jd4WKB7SXvnFpIUw/61cgsyvEiDWkT7/W
RMW3961ocruC51bWr539miikr3Nn8JwrEO5xBHU/VkdnAwzYdq1dQTnWd0CY
Tw290ygz+GNH6YeXWyobqsgeR5sy4egKhz78/pzXp4rSCmo4O91dIZKu/bFc
pCqi7eXmi/d1hdt2zMXZf1XQt5PfRYTiXeFSU17d3hig6G4PTKPJFRrPbbi+
ab2AXDOv/vD5zxUEzJ5ULodeQFpuZ+OetrvCB/Noo8eqFxAN3dI3pveu8OWG
fkB8qzIKwLxufxpwhX+F10+Fdikh9zL/eutlV5i73O00u6yAtG+Z2SesucLL
jOOyG3UKSOSSMlPbhivYM6o9uh2igKamdsyE91yhTHry8k+cAjI/FrL166Ab
hBpxZvHLy6Mr0XcVb510g77HvZpWqbJI3MR5olTEDdRV/BxdnWQRo/ClqFEx
N7hWIe44KiOLOv5jHFKRcgN69UHC9icZhP2L9aNHbsBBq1S0c0QGSbgk1SYb
u8GtOHjg8FQaHdbMla2IdgPG8ne2VRznkFb9v5qSODeYZh5Iml6WRMHnDBQK
H7iBQ4Qzl3W3JPrDQ6ec9dANAprjlEXuSaKeP+4qMY/dYIahWu/P3lkUnyav
4/zaDb5O0mdcXj2D3hxO+GDX6AbeEpNVfC/OIKo781etWtyAxbeAn+h9BhEJ
WbpGnW5w4KPQ2eh/4uj6RZobFz+5QU7+OdxdenHEsthtIzDvBjwvuKg+Kp5G
WnaikzyLbnB8NMSMd/9pFDwQan90yQ1S0o1nRrpE0Z//ZJyY191gsbSMpdhS
FPU8THffpnYHtz+1++zviaB4FSefAW536FG9c+TJ8inEkrwbE6/tDqf5K3IY
Dp9A6j2fOW5fcYfubb2CuqnjyP9gWY7LdXfI49aYb3x1HE2FmD1XNaLUVSNO
tDsdR7X42uFVG3fgnTzBWtUuhGy0yKdN/Nwhg+0zdXi8IEoJu/RcPcAd7g71
/lNwE0TvGwUwqSB3oB4MM1TSEESyMt26B++4w/xfenm+HQHEKCTu1xDvDh34
+AF9vACq2pruFCxyh85atZRD9Xzop2yDLnOJO3DytIrY+fOhY+Sk4X9l7vDU
d8EVU+BDETOqvz9Vu8OTT5n/Qmp5kdnnbI6IJndIs+o+INRwDNGUmzjMfXGH
tsXUnPlv3MjQ9gN19QEPaD/NsIt8jqKPOeIro/QewN9wUEsKjiKNsehJRiYP
8A3bychmOIpkzbXbbFk9oBEzcJnJ5EBHjTrvsPJ7wLzq2Arbe3Y0eKmFnizv
AcGna5v/XTiC9CIFNjOVPMB438bt08xH0LuOoNm3mAeoVx843zHKhl6pYe8E
1T3gpzq33oUQNpR+4XV0r64H2ErJBrJ2sSKLcy+Yz7l5wAMhr+0UEg59IRzZ
M8d7gKBD0TiPFg5dfeb5O5LkAYmzL0d2+XAIE5PqGffxANGpjVsjH1gQ/8ny
B/HhlP4qz62xsyzoO+fTI38yKfOEf+BvoGdGDlSZ3OU9HmB0h/HurX4GJP/D
ayr/kwfcO26tYJnGgBjf6zxL+0JxhWJ4ozUDevZwWyVixAOkMtNDlhbp0V8J
cxeLGQ/4of/2PT2OHkVa8NQepMLD34oJ61NutMhUbSVk3348BE3t3HSUp0Xi
ol2X1w/gYbfwt9oRWlrUu+o/NnEQD8qGJdEv8w4g7pgh2ldH8dDUT6rZGqdB
pa9SDZ3P4uHssL/fe+J+FJhD4reUwkNh2zvWOxf3o+sRl2b1ZfDgw+DIlMW5
H63pbgYgJTzo/Xx27ncLNcJmjfM5NPFQoS/XuMZJjbqPcq60WeJhJ0b29eJX
KrTslRIvGIcHFb59w0qiOxi95d9mowd4mM7PGHEa38Z4NY2WopPwcGLbK031
0TamxcWh9zcND5EJJ15vM2xjWQ3JbF2FeHiumWxisvYPu0SbnOLVQsn/0izM
dW4Ds/y92vG0DQ+n2BfZ35ZsYF4DBuujnXjQnf0m3+ixgWUVHzG+9BEPpKwZ
nMvKOrZ6NYmLbxgPNxbGFR8eWMdyHiZmdK5S8rE0O8pdXMNeBq+8317Hg4wk
D9GFeQ3rctHfObeFB4KVCAvf4Cr2V4nNMmMfAX5d1yhnJK5il8cT+EnMBDja
mrne/XgF+yuSkMctQoAF1kkuFqFl7Mqr+CIPMwLoNKwtMk8tYtYu+O+JlgRg
exurb5iyiJE5dbhf2RBAStbuwo1Li1iKN10MrTMBhuyCL0dW/sLGpQIJ2V4E
qFcZbyNELWBeJW6yvbEESHXXEp81n8MiTC8R1uMJIF6/y3qaew5LZRAu4k0i
wA1fg5BDA7NYo9MEl2saAQ7956r6wnAWozthskNdSADCmma/jfEMlpah0Xa+
mQBBBmem1vx+YKWXT+yYthJgBbfHXg0/sKZ/+2RDOggw+q15d5vuBzZl3FD4
4T0BZot9j0o+msYk2M9HOw4SIPPPlORy4xTWEiuo92iZAPpfbS5+OjGJeaHd
37dZiWByjLx2UHscK3YV3VxjI4KpyS3bAaFxbDzZgBrPTgS5Lw+799bHsCsL
xUcsOYmQbHxRuNZyDDuVekMB4yPCj2xlYafzo9jX5YrQXVEiXNA1kibvDWPM
fCPR3mJEqAC7nPLXw9jFS3TJi+JEaC4RS4/yHcYqsi0KR88S4RtHMx376hAW
qcP4vlGGCEvfolwMlwcxxQI79iAVInQM61haMA5gxN44vnVVivXrJIa6v2IF
23XChItEyHtiB+PJXzE2fRZFK00i6KtrGYUd/4ot7NVboitEqDKlJu9X/4Jl
mXAU7RkTQWE2r2Euux/bd+itYjCRCC3epvzdZb3YgIL8+lEyEWrWWlOfBPZi
FY6F1eWeRLB62BG/dq0Xs26+Iz7mTYSf9ns+2ys9WLOnKh92m3JeDfc97qr0
YIFDr/dt3yNC+hXG11KTHzAjOrHGxGgiFL7nKd1O+IBJnE/zF4slAkfAHE+K
2gfsW6zvimk8EbS0v3VKFr7HlFVkputSiHCcXWvyrU8X9q/w2Rufx0TwyIwJ
nFB+i/X18945/ISS5zODeNPGG6x4X6xKYQERWue90JUXbzATM7dXX54Swe9R
VI+P5BusllmkVKaCCKHB9SKfJDoxn5u591fqieDsV+Uip92OraomGRG+EOFl
UuXU1p8WzK+1aW/+KxFSRXWvybS2YLtq80XOg0QQvHe4dCy5BaNTV92yGSHC
mVyjC6HKLRi35p9sgwkirEgb707GNWNwWWdWYZEIzOs7azfjGrH2Lp+El78p
8+U/38NRXg1tncdK0ktEuPRG5yFxuQHTv/IvVnyVCKSv8WoeJg2Y47UiKf5/
RHicnWkhLVmPxerTBNDQkiBMJqfZa68OY+0/ezKEjgRK7SXmDvV1WIqB2ccd
ehJ8k7az3vGrw3IMqwTWD5IgkDk+7th6Lfb8hnX7LI4EQ02hl39t1GBDZvXM
3bwkuN2p1RXN9RI7Ze+VmypDguHSACvq9irsaefoR2Y5yn6nTr6iTa7CxMUu
bYfJk0Ccqrc2xKEKk17mvYFXIoFGxXeFr3RVGAR3MqmpkKAm4JTqhG4lZpbB
7bugQ4KfUYHCPGvl2Ohe+BObqyTomwqP/JdXjtna/e77co0EH9UH+Ap0yzHn
021nWvRIIGh5vc208hnmXesxmWxMAv/xy4z7/cuw+P7mq8ieBG/y5loaJEow
NnmxgOcOJFgVTT11Z6YYS0lPfirqRAKePM3nW3nFWKatK80RVxK89DpptcRV
jBX/YXs1QyCBeefURPfhp1gbk9PJhFskmPx5XmSbqxDbvHhoeyqBBMvSQWY9
mY8xvuLXI35JJGDTXS3UcnyMqR52bWBOIUHnStAhk7OPsZjBjkD5VBLEYvzi
yq15mAA+eF9MNgkUbCtZJpZyMa2HK7TSpSRIvqG6z9IlB/PYzv3ZWUaCrBMm
/AWKOViCzfU35uUkuCfBJU9gysFGxMruRVSRgLXh3va2bTZGaHZkGqolwY+Y
Oo1h6iwsZXYQF9JOgl9bX9qm8OnY66uRy+ydJHBzkZ62EEjHxqtlPxW/IcHC
z4yyir407HRgYlJ/Fwn6C5DlsEIa1sB65ahIHwkcVBZVaVhTsSml5mPdoyQI
/hOc0/4zBWPIxe/YjZPAOVku/+uTFEyClnd04zsJ/jCFfcq1T8F8e/yyhaYp
96FtOs1oKhk76CAt5D1Pgl3q2xVMC0mYVFyBMO8GCfZmZd6w8CRiNJq4tZRN
EujXTwySfyZgX/Zu/ceyRQLP+ssJ5s8TMH+SrgXNLgkMdApONF9LwFoMthPm
95NhU4AjMT/mAXadR2+37jAZNH0JGx288ZhQf32XNI4MMYqjUXRT97HVGOHU
MlYyJF3ImHGKvY892t2WzmUnQ3xOePOniThs7HuhSyQPGf7D0dzheBSL4Yt2
+o2EycBhX5TseDoaAxvnvB4Ryn5KzU2q41EYK/cngvZpMlgOXCJOpkRhL6OL
GLEzZBhxP1DjQhuF7eD14aQ0GXJu+RKMFiOxGJmnJSsYGeKOcmYzj0dglots
fh5Ahq/hTY3XciMwycJAjZ8qZKg9+umVnF0E1s9p8H3oIhkkaRuz/87cwXi2
dzn+0yZDdpDYL6rtcKz4P4PQeCMyrJ2KnJ3AwrCqlnMga0yGhZKPV6v2h2F1
zcy7wyZkSH8mf1PqbSj2pvGNn7AFGX5oHjC+YBSKTb9SJjXakaFANE9DwzcE
E6g+Yb1AJENicNUZmhdBmEjVPr4EMhlkj7UYr+kFYWcrR4flvMjAl+2WzLQc
iGHlj26E+ZBByzTeKE86EDMrYbrGHUiG/oSnh5jaArCUx6sXtKLJQJe2Lc17
1B/Lyuvd+hVDBoK1mf+/dj/sSe6zusQ4MnzGk2be3/TDnmc7y4w9IINfnQOT
xoAv1ps+Iu79iDKvsvjWhSIfjCmpjSf/CRnmrHgK1kk3sSOJuYOXCin/50xh
6ozETYwnIfDh7yIyyIt6lj9Z8MJOx8uzKZWS4dbC80Q/Vy9MK6aUsa+KDPa3
FvDaBE/sevS9Nz7PyUCf4XfGVMoTuxHlGMH7kgyMXfzFx/+SMcdIAWqXOjIg
Otz14SAy5nF3p4n5NRkiH45FtauTMa+IodvP68mQ6lDNasNExgLu1CiZNpLB
VbdpqOQTCQsLT9rcayJD7wzbyON0EvY/FYcAaQ==
     "]]}, 
   {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV1Xc8le8bB/AjQhIlSWSWUVQ2Gfd9RXaUmR3HXsc5h0gkMlJmZmRTZiVb
ImV9W5IVJUUqIiJZGb/z++d5Xu/X9bqv+/Pcz/O6HiGij7HzNgKBIEm7/P9e
bb7+99f9YXSl/xdjOSbAcopal1F8PW7Z/LdZQvNmiYMnf3wX7jgpPF1Ic6tG
0uqNsneYt8K9K5PmbdW+zQzx7/G+3IF98TRrCJuFXaV8wpyupMErND/XuSN8
pWwMB95HOzxodiTERihnTeBMsskDY5oZGoK/L8f9wHX0TzoUab7r461Te/Un
9tS69YabZi0xuzIq5RdOHxx+sYQI4Ocjxnhb+jd+/6yprofm068E6v3L5nEN
I7pdTDOnGLeb2aE/+ABXosdlmieu7T4gl7WIf/F2PtSlOVKZLmg+bhn7gn3y
JzUCmKetSvQwruIt/Z0yBTSLLsyPPLi6hu3ExE870txZOo68KBuYaybg1AdV
AqRv/zin93MTW64zH0ukuabSvSdFmgDtY22x6jRHsBLDfMvo4NNOokS2CgG8
lEeHx122wT1K7+Rpmk3drGSMD9FDz2Et3illAhxuN/4qlcUA3y0t7URp7gjS
0JyNYwKTvjZPfyUCPCh9mm2rxwy+fZXmdDSnvVdZes24A557v2qIViSAi6xc
cflVFrg43/U1VoEAjNOHd7hTdsF4AcXGQ44As9z5DkPH2GD81fnoIVkCvNfi
e6z9kw3KF48d16DZ9N1N+WTp3WCp0e7BJkPLcyz8O6VsD9QJTIkFniAA9+ln
SaXMHPAt4drxV8cJwGq9hcZcOGBkdkrqAM2L0UHp5w7thWGbt1LlkrRzmPDV
OZHFCb+SXggVHSGAc5ZT2Uzcfsh87946LUz7fngLxfYs7gfN+1ck5oUIwHNn
rEjeihuKvBOyFwQJ0J1hlxsiegCiXzakT/ITQCHdImX3Ux6IWC25WshDAOak
MyFyv/kgMFn5vMkeAhD3xPyzMOcHI/ms3ft3E+BJ4otLV57ww0WRo3aDbASg
JGj5dkYLgHFax2MdVgJ4awnKVSQKwmSxKNcGIwEGNXiOoCPCoESyCDq9vIXD
wxtdz9kIg6XDip/u4haWarO4R0wQBg/my41a81v4pnr6oet/haGKj3hMfHoL
41Oc/D3PDsGU/jdC7OgWLkFse4lWIuDYMB3R17aFA09u24iMEYePIfqhl6O3
cOesRJ98kzjIrde/6ojYwhxFZqXffopDU6hfAUvYFi5jKzXT1DsCHOIB/0ID
t/DI17MPGHYcBaNjpKqDHlsY4rMvhEdJwFSJpdc+vS3M+FXpeWjYcUhVVOPl
276FjW8Tb0s9orlvkjuNsIVzDWJJX74cB4X1yN871jexUsNnHoATMEsNcvi0
sInd46J8tzZPgNGgTKjil038ndeDA7dIgcIdA42njZtYr7O+rVlFBgYcwqOP
uW3ioZ7HC3wmMvDHI7X2H3ETu35sFgrxkIGltzZC7babOOJ321WUIQMv6Q89
1zDZxC08PSpPl2RgWPJP0obaJpbxmaxufSQL83qFO504NjEP94GiNjF5ICjb
vmGt38DT7pcjXuxVgvaDLPOZv9dxSnzzj8PHlKDva0XI9al1rFpN0A/VUoIk
pqRi7/F1HLsetUcxUAkOdpc+EO9fx5IJyTlFo0rQ7V3wy7p+HXvVVDRcLT0J
KguhQ43B63hmc3RGHqvA2xtuAVT6dTybrGFW4IHgxplxNpZt//Bsw/2d6UfV
If0Q08z64grmmn7ip3FBE3J3JGr8jF3COjxJ1isROhBlEKO0xrWIfQrZmqL8
9EFtUXZ9s2sed/nEFwQVGoLQLW2ntfJZzPLKik6k+xzw0S99rjT5iWttjMi7
NYzBrmjqhYn1d7yaoHvo4XsTwJacEtzkcaxETk1SNjKDrt0q+9NsRzH7wrhm
4E9zCLwqmO6hOIQ9qXuVVIMtIKf73s4jXH1YMPzNEtc1C8jukbesYOjDg8nX
a+evW0A4L/d1lT+9GGr/yRQnW0DyZ7kvwT29mGvl6zGOcgsYMJKriY/pxa1X
ag5NDlsA7zp76Dd6Wv2GGXuKoiXofqdePbPRg5/npn+fXrCETMuEOavD3Xiz
zoGquWoJztxrMTkM3Vi5W2IzZ8sSnuwTOLA+8QY/Wn+6z5jVClLeH/1Jf+8N
zrOcPN0gYgUss4WiWkfe4JC9JwsjLKwAM592i5F7jZWvf7jA12IFj33te/+z
fYkfkfiGDW9YQyzp1O3rK504r39ov2qCNaxuJpCTv3TiROUU8yOp1qCYf1W7
+r9OTGbc2U+fbw1/dz7iOJ7RiY/nrHQ3NFiDRUc9ZbdKJ65409cuPGkNR1nU
DoZc68D3JG9WLmnZwM/8O+n1Au04LUlz7usZG0iN+esowdKOI1cIx98Z28DT
XPTt0WIbdmoPKC+3s4Fz9mdz/75ow4dsnO/Z+9tAjc7hY9YX23BeDGS9vGsD
osmy0Ulvn+M7P5eu5zDYglkePbfbrWeY4/zzZJadtvCKrMkfEvwMR7fF5frv
sQU5J93KEtdn2C/rcL0hvy0oThnWKqNn+Iyh8fdNRVuY/Oz+5OxMK15/dP/0
BU9bOGO7rCt7phXbBDrRCfbagsliARuLfAvu/XZiV+yQLSzEpEZy7W7BOsb/
uFdGbeH34RO1OtPNWE4iSapn2haKZBcWeQuaMeunpxdCt9tBQ2nsRvCeZvwE
eFu+KNnBy1ufpvYtN2E+5t7L+bl2MHSsWej7SCOOJ2Skz921g33aTJx0zY14
c+VCjVqFHawumy2qZjfi0alfv4Yb7GC47W/kPrtGnPNqhwNHrx1tflgVG4w1
YP6EU9rhDBfgct28ccuveizI9Wivs/sFWn4v2w2+OpzIdkmq2ucCnO5asaDf
VocJTNiAzv8CXGL1QGLfa/GX5ddR2dcuwF4/Idf/HtTi/OHJ1YE7FyDwdBLy
OlWLhbMFv2h1XwDh6X0pIl41mINDxzzlgD0Ysgj1Px2swkXyh1HkQXvYG/Tm
wt+nVVjBkiDqL2APPPMCm+qlVdgqr+HveRF7MGVvVz0UXIULjh9J5ZW2h2rF
Dx9XhauwjD5Lf4GOPaSm71L/7fcIG0e8NnoUYA+XGIT/hR6pxBPFJScLLtvD
z5O902H7KrH/qwih5Cv2MHU0JSOdrhJncqjN+4Xbwx3zY++21zzE43n3E5US
7OH50HR/6f6HmNoc//bpPXsQXiL23v9+HycvnTPoHrCHi6WLIo8LyrEbX+2d
zSF7YPdMkh0MLsfo9IGfx0fsYffoWjj/+XI8eWssKmHcHg7YcQ3Js5Zj1WPU
1nNz9iCilmcQcKkMf3dMlu1jdgBn2UPbhC1LsfK7gQNDKg7weDAQL50sxuwr
J92YsQPskByRsD1QjCf4c+qU1B3g0n05npmVezjBy8UkQ8cBJHL3FIc23MMT
TMuxVmYOUH3JTSP05D0ch7gJn0gOMPa+Z6Je/S7+Um71fSzfARTZRQ3oKIWY
/bIi20iRAySx6yzOmRdipMOpMFjsALxcg382VAtx9sSbyJf3HcB9RGTKd0ch
tuI7JVLd6ADt1S/DXhYW4L54MaeIdw4QJHC/hXE0H3dSFsdE6YjwO58p7o9r
Hv6L3+0QYiCCi/2PMyFGefgw2wNpXiYiVH2UVT6kkoevlbmGse8iAlPJrrYW
tjyMv34QXOEmQnuuNI8XKRc3mD678EKKtp5bL5+XJweXK8Z/8rQnwsBIYbBV
+h089Gpy13lHIlhpjdXEU+5gBnsNpO5CBHnz2ce/9e9gm+iVHG4vImiNip1F
dHcw6zDRviOACGGsuWeWvDMx6bLiV/4EIuSs1TTUnc3A0s1fJt81E+FCDUem
qmw6tjNSOdDcSgSln/Xf+jjS8c1vqbolbUS4JKlETV5Iw+O79MtCXhBBAR2+
e7MqDSfZ1XpKDBCheV7/k6lcGl7cujEbMUOElsyPBHmciuvVZRcVeR2hZhfb
HDMlGYt+2BdD5HeE7r5AJTqTZJxGWRGKE3IEqx+blYfkk7FfXvPZcTFHeIt7
Xb+uJmGZTe3yWDlH+PvMT+1MZBJ+0GhDHDNwhGAv9C+98BYukorquRnqCM9d
JthLVxMw539urrXhjmAryLkOXQk4/IL+5ucoR3glpxMomJqAifG7JeXjHCGi
3Lq/SjoBC8xkXv+c4Qj2wgnXhEnxOLP4IZKrdoRPZ4JvjvyJxYn8wxWfvjmC
WZrZ/iCpm9jKVo6vd9IRor7WWR7dcRMfykqI65x2hBvXPnSyj9/AdQe0SA/n
HcH64qReQMoN/JGz+kTYhiPk1aR9a/oXjUV3xlUd3ucE/j8ItaN91/GTZWjw
PO0E9aGiN3+XROIohSxxe20n2KOl4t57PRKfvbh821TPCe4+alIdd4nE4wv3
A9XOOYHj9KWxmyKRmGmWR4XdxglerbJ2rRRFYOOJxeYqXyfQqZ3J3V8Rjn/0
lLStFjiBqWJ25J/hMLzIEZt57J4TvCnLmhlsCsMEMx+KQ6kTRIZt1U1mh2Ge
YXmBFw+dYHAt4H0KMQyfGXt++fYTJ9jrZkjHNhuKK+dHpBUHafYs79feFYov
cezJ89vhDP8d37kSPhiMI0wX/UtYnYHumoLpbFEwvpX23mCE3RlyncUG7vkG
4zKenH8aXM7gyKv4ZnNPMB4Rlji/95AzCByq9lE3DsIgq8lWpeoM7elF2xq/
BOIdpoHBcz7O8JvSNZ0jE4A5bD5Yc/o6Q+netZx6lgB80ElF5aS/M5yyNFpk
/+qPpfw2Vq8FO8NLp9dxl1P8sXlKWADXDWeQvra8KrN2ERf036CqFTiDJtWD
8K3HD6uaZbrF9NPyzGHGnaVUrGX7T7vyvTNcH1h5bR1NxWedbcQGPjiDnpbx
yTFXKiZe5P/OP+YM3hwLvdFiVBydWuBY9csZ9mC/U+qlFDwwUGY3zOgCXtHh
sQfryJhk3mQqdtIF6JfMEul+eOPe7am7uFRdQNTYUUqz1hvL15I6GbALrP+e
FO8P98bre4WVxk+7ALv1X/0BIW988100b/Y5F3C+xzNg6eCFi8+Yj3O4uUBi
ZCUn66wH/qI+77OZ5gJZ4onfnVTc8OmFl+K/Mlzges/3OS8ON1ycXzT2McsF
Xtdmq9dMuWISwcKkscAFlnTdDtBnuOL15hYFvwcu8Fz7Ef2tNRfMfTJ2Y6rD
BZ78HX0m9MIZG50QixlYpO1/sWPyv1uOeGUsuox+xQWqVVm6zbwdcU7KzxfS
/1wAKvKOCuk64pnV+8zxdK6Q0zNxy5fOEUe1y0VpsbnCrYT8HWt+RPzEUj2s
XswVniolWqm4OmDxCNuADCtX2EnupfLP2OG3Ck/TumxdIV9Ieuz6IzvsPyVY
99feFYy1056eD7DDbYYTi0aursD1VlHsKIMdtjvgSWXxc4Xl49OZN4RtccqD
S95Bca7A8ZnpSh7FGm8NJTvatrpCvDyxn87MAhNkSTZmba6QVTZfqnyE5jgd
M4NOVyil9NA3b5zH205taKm9doXvsZlXs4rPY4ZSl6N8Q66gnm1/omHTHLME
npwfmXOFQ+J5aQyPzfC+A59DbATc4NPVvEUOognm8m0MMBV2g1bh4akSRPOb
ZPIZETfY2e7/+jKvCeYO0yGqSrhBzgujB70Dxphn6pHmQUU3kDcjjmkZGGPB
xgjWEUM3sOYQiZ/XMsISlkczrUNo/S+IFw10GGLxwGt3Toe5geDRZ1KjcYZY
NOND1rEINzBfG/2qaW6IhYdv5m7dcAMR2+8eUpMGmNtyuqgw1Q20NYe7ibsN
MKNlxcPpCjeIiSKVNVP08bjF8Y6gj27AVESVvuang79ciup0GnUDlzr7NTtt
HTx6e7TLYMwNKnhF42/y6ODhofiXAj/cYObFx+EXz7Rxj8Xc27YFN5jfStQe
2auNWywqP+xkcYdP8ZrHvndo4gwLmd93lNxh/0niWyc7DfwhiMOiXcUdmDWN
HrEqamCe3IWnM8gdPC5ua9pi18BZ36oS1DTdgSPEUrrjuTrOo8qe+GzkDq+P
m6Y1S6jjklg5krCnOyy6HLqwzHIKTz3kHNQjuYPOx4d7OScBH+1bVPOl0Pbb
/iDItwNwxYHaXe0B7hD65F/+Wijgh/fk7ztHuANj16yt7BLGda0KMyXZ7mCs
RD9CWlLDy1+5TN/luYNjQq5WboMaVmJablotdAf/f44D2kFq+LFBfYxemTt0
+3Lt3aBTw80fFCVm6twhIb8vZZxTFbcvKnmc6HGHAbqDd8fPKuM+cZXJ2m0e
UMLaome4TxGT/iQfKdnuAa9Ufv44PqmAmVtmPDKZPYC4eLWV2KSAkUnOrxA2
D9A2rJd7RlTAZVfo/mjzeEBYR8uEfq08Duvt2hiW9oDdb6WRgLscPhFsunfT
3gOC4pVbDjPL4Jda901/O3rAe7k/dc4T0thpD2PauIsHMP4OUPrZKo0z79Vz
d3l5gB7prVLjZWnM+I6HP/GSB0i2Fv92npfCn0TGxIUTPeBtfXCq3MAJHPPW
G2k9pdW7ozjnOSSxR7bh94DnHrCil5v7ckAC63ieiC/t8ADmkS8ZQhkSmIFp
/hPra1r/nzzlWkISOBj5Xekb8gALuoD0s4pHsdf9y0/sFzwgZTv/i4RAcawX
ZO2U9NcDFPg/3f2gIY7FdVVZ21c8wDN/p1UqmziemNiwFtv6f/9dQuZ3xbDN
wbB/v3Z6AofCBOuv96LYIOa6cpCIJ3wtuEh8ck4ES1q6jVeIewKshBVlC4lg
FjHdm6MSnqAoMtU3tnAYdz5n+XBKxhN2L/DMJqQdxmgtLpAZe4Kb74yex/gh
fNw9pSHVwhNUvx/KCowRxuza+QqVMZ5gFiKlI80viHWerNWXx3vC+MnCsg8r
AjhU2vRk8S1P8OF/fXaoVgD/5mVSzUn3BHoXwllHaQHc89vrVGyhJwj53zhx
+zg/TsxUOuPW5Aknf0moVcNB/B970hvHFk8IWrYVPbj9ICZEThteeOYJI43+
NzZe8GKyT46ReZcndMdOVgub8eJzpxnOn+7zBNMeqaRPZB68e/atg+C0JzwQ
36F/oZkb6zge+co76wnF4uSDQ9HcOHTomtP+eU9Y9a8TbjLlxr+fy7uyLdP6
OxtPNP3aj3vS73itb/MCl8RxupTD+3HiKdeAIR4vuD9+sGiuaB/enboZm6jn
BZ9FNA3PT3NgzZ4BrisGXjAkOnXSp40DX955P8/9nBc8uetWPniHA0+EWdeo
m3vBYMjQ9WQDDtxAavi46OAFmUwC1rU1e7CDDvWoZaAXZLf4i+6/tRunhevW
aAZ7gbeP87dp7934dYsgkrlKy9OGlJn0d2MF+bdGOyO9YJZCt28P427MIiwZ
2JzoBQlifYOdm2y46t+3LqESL9i0CybxbrDiHwrNRmzlXnC4SnZG4ikrPkhN
+bh2n9b/bLxzUxgrjppUn+ur9gJL/U87zjKzYuuBXK6op7Q84guiCrw7McND
S+efg16QlbLGrXR+BzYjvtlWvd0blva9+0AnzIi78yT/jDJ7Q+1OlWbO2e1Y
63PMVxZWb3hLlmbIerwdK9jotRM5vMFjvlOJ3mw73m/eFckh4A0FB25QeBIY
8LDuM2aqkjfIG7o55eynx8bRgqvZKt7woDnBJ/LnNvyy8+rUC+QN7k5ORr3N
2/BjDfRSSNMbjtcw5GQ4b8N31Jpi3hl5Q/8ofXpXIx22la5lk/ak5fmw++CM
LwEP+nBu2ZC8Qf/Gi6VXZwjY8IHvXDTFG7i7PvYyiBIwkpDp+RLgDTH3b/Nt
VG0hAZGHtxIjvEHllSndcvQmGuMu5fyd7Q2vD6ps/2eyjpwJ2TwPe2iWqGEc
sVlBSt/9Jor6vMGCSVieVXQFsbw+8yBz0BsOXpO/VDW3jB6kr5+KGvEGdaPw
DeuIZbR03MbddtIbFPUyzrJVL6FoW96GnQQSsLxSPndI5C+y0vgTRkdPgh1j
qS6afxeR5JFX+svbSSAppWvwtmMRvVu8/Hl8JwmSWsV/7XNbRDyxHxgf7yfB
2LGEuzaP/qCKxxlmbidI8NCV4dZ+8wUUkkcRsJMhwfZuDw5TyQV0Lkp3ykSe
BDZw7/n0tgX012g1GKuQwJO5QPLIo3mEpiyKuLRJEP82/+9/e+bR2/3cf9rt
SMD49vuj9Y45tOCXligUT4ID9mdXJcKmEbPdUqv5LRKUSy8EBqlOIz5t8/mY
FBJs7p2eI638RDoHuIyXMkkgr/41XY36E+U0p+59VUwCNdOBcCPvKaTLmJrm
94wEr4PcBrhCfyC7ucXO0nYSEJxWTzBo/kB+Q6bLo10k8NhVrxnK8gPllHFa
6HaTQPGLqD1f+ne0aJhygP8jCSZFGH+/qfuG8tKTs7oWSSB17JvWX7YJVBf6
5/X6MgmSr7K3yI98Ra/cTTak/5Fg+GLsw/nSr2hJZa9dFp0PTKXp1Q9ofUX6
X5IEKGw+sBF5TFE+ahwtiScV8Ij7ALfCJfkLPGPI4HFiibe1D+R0ztG/F/6E
7N1JY8l2PlCZNfbo+vAIonKf4Xns4ANh2cTKqcQRlObPFMvo5gPMuq8sH9ON
oC8yIT65fj6g0awi6Dz9AfmVeyq8i/OBHulvV25+GkJRVro+y4k+IOmHt6fl
DKGMHWIlfCk+sHCodp+y/RBqcR0/4JHpA1JxbSa6394jpsOWG9uKfYDQkS9q
tTSIMrO02uVafUChidGXV3YAVegf3rBq84EHm8xlBzb60dM1OoWwTh9gVZo6
ndXVjyYsmovfvPYBVZaJo0fs+tHxfXIxLsM+0Lxd58WpW33oWZyQ8e0FH2j8
6yrhw9aL/PDm3BUOMjAbauqbPe5GZR5HVv/uJcPEtRE1R3I3+pJquo20jwz7
RCQzeMW6kcFMGacdNxlujy8HRae9QaIZ508ifjIkq0xxHr3yGr1fqLy2eYQM
c7m5xwzcXiI2/pEYfwkyPJJfTXAUf4lO6zKlzkrS1v+4vsRGmwSVubbFoyfI
wLeukCPg9QJFn2F53SJPhsb2sbf0gf8h5XuO+66eIkOLi93J9opORH4Xz7+s
TgbxTYbZ5Iud6N56o5jPaTL03pzf/w11or0mu5UvaJOBsfwqMPV1oJmtJ3bY
gAz2Pz2WjtJ1oBxLrpItCzI4HfcY3fBtQ3S7XiiHkskQ8uepZkNFKxo6qbS8
n0oGwkzLkGpoK6p0Ka5+6EsG3YSSK7Kmrci+NVLysz8ZNjQGYXLtKWr1VedH
V8gQZJKwpFHWgkI+NNGt3yBDqAOFJ0nqCTJnkmhJjiFDFePL6Z8TTei4XOZl
iTgyKJXU0jFlNqFPcZf+WCWSYWhqcjOcsQmpnpL/1phGBu3yyBcWk41orfjB
fwGFZMhlzY75/KYe9fbzRbLfJQPeJeF/J64eldHFnSq+R4bjxtUmmwb1yNLa
8/FgKRm60z/cqumpQw1s4hXylWQQzm1MrvpUiwIu5if8eUKGAhvGHTmcNWhR
PcXcZ5AMe5QNKJwzlSiw7enW9HsyZCRqRf9orUSbGtMlbsNkqOz+ISqSVomY
NNX/OYzQ6n5KUR9PVSIe7d+5puNkGLjpnCKr+hCB/pmpk7NkCORV0+DtrUAd
rwKS6ubIYFtwSV0iugLpnSlUkZ0ng1aI7fMFVIFMDNbiJBfJkPSaHJ/3oBy5
nC2REVgjw4OyFivdtDIUZ8IQzMBIgZMxTCZOkSWIo/+ESBgTBcQ19IUOa5Wg
NFPr7g1mCnDndPeHMZWgPLMqweWdFNBvYFTfHVuMas7bd0ztocAT+T/2Rln3
0AfrJ2xv+SjQs7/UQ2KoCIk6+eVnyFNA/fDKFHtNPirtGu1mU6TA9G+ztjdR
+UhSQnc9XIlCmw/vI/5Z5iPZBb7zJBUKTLYzChbS5SMI7WLVOEWBf3lJvgzm
ecg6i+fSzBkKHDTRC3Y4nINGtyLuOhhSoCzU48j0YDYiOs71Dp6lgMxOTJW/
mY3cjrYfe2ZMAdIOsSKGP1nIv8H7a6oFBVo+Pp+yeXMHJfa3GmInCpyZlzP2
LcxAe5UkgmucKVBS+PKzokMGSruTWnrElQJvlR6hfIEMlE30YOD0oEDRDz8x
+5zbqOz33seTPhSo/mHw3KYwHbWzuookBVFg18jBfJaXqWj19K71iSQKTNUt
CsSFJiH+sqaRwBTaeb97Yyd5Jgmps3s0s6VRIDvm7Jw1dxKKHe4MUcqggOXN
N6qOVbeQICmULjaXAuWhfW9+zSQinfQ/jLIVFNhRtzjn8Tceea/n/+i6TwGW
r+ruetnxKMnh3H82DynwNeixykGteDQicf9GVBUF7OQiqxMy45BPqwvrhwYK
WK9x1pEMY1Ha1PCesA4KHHlf7fX38w3UZBi9sK+LAg4Hfu2fSL2BvlQr9JX9
RwHUMInzz9xAR0OSU/pfUcD+ClN54JNo1MxhsF+8lwIrnk8plLvX0YRK68G3
oxSYu9hG+7FHoh35pA3HLxRomD6y56pNJDrOyDe6MkaBTqXZmxv8kehST2Cu
8DcKMHFuN1i/G4F2OssK+0/T3seoIfF1UziSib8nxrdCAY0xMFXefg0xaO/5
m7ZKgVt6r/Rj+sPQ4FbQ893/KCD50PyXdVEYukwxsmXYpICQo0q6v2YYema6
njRNT4WQBUosOS4UneM13mxkp8JvpkPmfS4hSLj/ySvZPVTI1S2W1eIMQYux
Yhn3Oaggu/3Kf7eeX0G3N9dl8/dRwT70gvQDoSvo81ixezQvFUou5DE2TQUh
UslGv7kYFXR+HSu3zg1E4OBW0CNOhdtG1SneloGIg6fPR+8oFT4F/x1R4gxE
dTElLOgYFdIH+8YXYy6hDZIJiMhSYTLc3f9leACKlS8t/4OokPWaEOyafBHZ
ze4N9AYq7DLLaFSyuIikikO0fpyiwki2mUUJ30XUz2069uE0Fa6GfWS3LPND
vOubXM/1qHAvvnpm6KUvKntuei3RnApHQu/zMYhRUdUzaVCwoEL/ewmQmqOg
xla2zY+WVAi8RT5A30BB/7X8FyhmS4UKsrF3qj4FfXusSmlxpMK1cm8p5ctk
JFh92H6GTAUpTvEdsz+8kXgVHX8SlQprzHwSlBhvdOLR6EdFPyoEme0WYJHy
Rujh7fPhAVR4fteWQA72QtblrGd5Qqjg9Pp6QZOQJ0orXFTTiaHC9W4Zgdo7
biin4N2/X7FU+KIU+O3YWTd0N/9BY3I8FXDHl5J4ejdUk+sm//kWFfI4AxLX
SK7o3Z0RSf/bVNjTLbhf6ZwLYk1p5y26S4UMoQ35g8pOiDM5f1i3mAo3y16Z
jaw5It6kkPS5Etrz6xIrbZ44oqOJSntVKqjAyfRiJPWUI9KJrWDpraKCoMzX
o+WmRHQu5sZ/ATVUEPsjwyXNS0Tnb7pE8dVR4VdOhIzLuANyiRbc5t5IBToI
vTRIdUDe1zeesjVRwXYti2eXqgPyi/pwpeYJFdSbBVd/bndAwZH1KlYtVKju
uFFO6rFH4REpq1tPqWBqfrMl9Y49+h9WGupS
     "]]}, 
   {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwV13c4Fl4bB3AkKiIjGRkpIRkpKznntkcRhey9H56VyEwl2WRmr5KdUZJS
VrQjRSQhyXhCiPys1/vPOdfnuu/re8Z1/jkHnEjnXBno6OiObg3/n+vM1/7+
ruxHCq9KNk20aXg5Ra3TJP4RfnCB3t9oyxsljgSh+E5M/OtYoL3lZs2klaiy
blwvF9yosGWGuotNjPF9eGauMkJky5qiZlevUL7hnq5adcYtt+pliYaUjeDR
bfnTw1o07EwXG34yeww/Dvuq17Blxobg8eW4X3g6+nhq5Jbvknz0Hl6Zwne5
OFLPb1lH3K6MSvmNs5yNw/dt2ZckznT72By2G7AW79WkYa03wo/8yv7gTmPh
xrgtc4vzepgdXMDXd2ynhy2PXdvDdyJ7EXv83ak8rUHDN07SB/2JW8ZZg+mq
Mls2T1uR6mJawauSz992qtPw4fk/g1VX/sM3LzOftdpyR+ko8qas48fkszQC
0HD69q+zBlMbOJY2zzyNafhBtWdXyjE6aJFnHHDZcjir09WLZfSgX7Fgrolo
2PvkUP+oGwPwUW50lKrRsKmHlfy5g9vg7wva711bPtR+7odcNiPsk6DwN6jS
8IsgTe2ZOGbQuDMd91KZhqtKn+fYGuyAwkiDx+tKNJzWp7r0lmknMFxKGZTa
stvxE/fKr+wCQmtjl68CDTNNH9rpSdkN9uKOTE3HaHiGt8DxizQbfFjbzd4i
R8N9OoKNulNs0HY5z+Sp7NZ+uqMVko/tgcXDLnxF0lv7kb4+TinjANbQ2/cP
StIwr1ZLUukOThiurVhbFKdhVutNNOLGCQN0Suwth2l4MTIo3fggF7SOmIRq
HKLh9rGLerLZ3HCzrn5pXYiGXbNdymhx++D+JEQbcm29H4EicY7FfcDMkO+T
yUHD/FkjdxSseKHdw7V4iJ2G32fY5YUe5gO9SwsO51hpWDHdImXPc374dl/H
/icjDe9IOhN6Yk4Q0GSIXvXiNHbiiFm1MBcCRTW+jaj5afw08dXlkKdC4J9F
E7Wem8aUBJ2LHZHCoC1h3zQ1PY19dEROVCSKgFnZzNG60Wncq8kviSRFwR+H
6Cy8n8bXrz92N7YRhW2ZWYHWb6exXJtFsVOCKJC6b6s9eTWNozXSD978KwqB
khbiXu3TGKtzC3W1HISnLydp5MfTuASxcTlZiYEA434m+cJpHKDCsH4jRgJa
la98SCRO444ZqR6FJxJgLZZlbkGYxpx3zEp/TklAEYS58HlM4zK2UjNtA0n4
ZWzyKcpxGg/+OFvFuPMIZCT4LouZTmOIz7G/HiEFoomeonrK05jph3Jr2FUZ
kPx0elV3bQqfu+10W65GBr4UXXey/DeF8wxjicPDMlC7l2XOaXEKKzd85weQ
hdVglbsetCnsGRdxcXNDFsS+td6WHZzC4wJenPiZHBzMMOJraJzCBh2P2ppU
5SGEenyj5eIU/tLVOC94Xh5iW8X2q5GmsPvXpgOhXvJQdJfTtdZrCofPtV1B
GfLQDur+iY5T+Bl/l+rzJXmQ2Hfbjv3sFJYnTdQ11xwHddNfT4UlpzA/L9+d
NnEFiCWev1TaP4mnPQPDX3Epg952q2lm6UmcEt/065C0Mtx6JxE4dHgSn6qj
Ox2mowxPFmY+1YhM4ti1CA6lAGVgd61/qMc9iY8mJOfeGVKGUUv3jpOrE9j7
QUXDlVIVmGkROab0cgLTNoZoClgVTJIusD2ym8AzyZpmhV4IiJkWQS9Df+GZ
hkqW9CMaoPnmvv62+p+YZ/qpr6a9NnydnCvYk/sD6/EnWf8L14MfKSc7WANH
MKmI7UmE72nI1Vr2GJodwp2k+MKgIiMojOE7XF01gHe9saIXe28ML+ULwvf8
6sUPbUzIezTPwUDMTPMYtQevJOgfvN93HvLNY2sO7+rCyuTUpJMmZoDX/Sz9
vV5j9vlR7YApcxhtQzdZOV5gApVL+VSwBbzwWadkZjZjkevvlniuWQD5Q3Sc
S0wz7k2++fDPTQtwkzkcoBzcjOHhqvy9ZAvA2hXNG7bNmOffD2nOcgtQ867q
YRZtxs0hDw5O9FsALXCzlcniOeaJMmNPUbKEk/Upz8USmnBrXvr49LwleK/V
upcrN+KNekeq9ool1OZqzrMJNuKT76U2cjct4VBj4f1o+kZcs/Z87zlWK7g8
UOjX+voxzrec0GoQs4KLRrsksd1jHMqlUhRuYQXPHHz9LKMa8MmbA/aCz6zg
mNZTy4+z9biGKNhvFGUNlBXWnoLVOpz/6cu+UwnWkMi7qP9mvA4nnkwxl0y1
hlaTwze3f6zDZCaWT9sKrOFW0WRFVUkdlsn9976hwRoyfZ8svjevwxXvetpF
J6zhfRc5GdXX4uKj0dVLOjbQ9IorLudqDU5L0p79ccYGkg17BoaINfjGPzqZ
7nM2wHnuyQ9Zmxrs0u5fXm5nA1mOT2S3KdXggzauxQ5+NmBcnUfy+l2N82Mg
+/VdG5Cms8k7ZluNs6aWbuYy2sKZ0i8anxKrMOeF1uRdLLYg6J91hOxdhSPb
4vL8OGzhW6NzwzG9KuybfeiRkZAt2MYOTwjQVeEzRufGN5RsQelZln8qpRKv
1VRq2RNs4c9sfOQ26wpsE+BCL/LRFrRH2m4c1S3DH3/K7o79YgscHYQMJvEy
rHdulfffkC3M6AuJbGMuwyekkuS6pm2Bhblg06qzFLN+e24ftt0OiLoCDTH6
pfgpCDwbVraDYEqP7vD5Eiy442NgQZ4dXLsxLVx7pRjH02Wkz961AykNYe95
52K88c/+gVqFHUQ737I/q1eMhyZ//+5v2PLqso4DRzHOfbPTkfOjHailKO39
eOcuFkpQ173OaA/ozSOT+a47WISnhsvV0x74zBWbrqsV4US2y3J1JHv4aEs1
khYrwnTM2JDezx4Ge8J+zrEW4eHltxE51+yh2bKm+8VgIS7on1j5nGUPaWoh
rIUhhVg0R2RY5709mLe2qPG1F2BOTj3zFD4HCJBQNiQ55+M7CofQjf0OYMzm
2JJ1Nh8rWtId9hN2AI3e24e/qeZjq/yGvxfEHGAdbl7O4s7HhTKSqQLHHOD9
rUCxffF5WP70rk+Feg6gsGLrfNo+F58Lf2tS4+8Ap/K7Ku4IZeOxeyUqhYEO
8IljXnNgNQv7vQk/kBziANTxvXPH+7NwJqfaH9/rDhDc5RRrnpKFR/MrE5UT
tvorfIyMWbMwtSn+w/NiBzDIrOyk25aJk5eMDd9/doCFYwSB4F23sYfgw6yN
Lw5Qtpr+/cZkOkZafFMygw7gXLY5Wv8yHU/cGolIGHUAemnJjNib6fiUNLXZ
eNYBGt+87dzOnI7HnZOP9+xwBJ/Jm5Xsu9Pwye7PfF9UHeGz/e7V6BMpmP2f
iscO7AgprjLb5HhT8JhQbr2yxpY54tKXVpNxgrfb+Qw9RyhpmPpOa0vGY8zL
sVZmjsDxYX8YxSwZxyFeum9ER2CKuPqkNTQJD5dbjY8UOEJvkK193mQiZg9U
Yhu84wiJ+rqp8x8TMdLjVuy95wi+vqUMDk8Tcc7YuxuvKx2Bq0dCMSYhEVsJ
qovVPXYEdZZvTAJKibgnXtwlvNsRotYzThzgScAdlMWRw/ROcG2G6bJBTCz+
i7t3HmB0gj/8XPlKLrH4EFvVMQFmJ3hOH6lwXi0WXytzv8q+2wl2lv6t55mL
wfjHgMg/XieQO/WL/vWFGNxg2mL/Ss4JXoRFBTyTjcblSvHfCA5OQMek0ZtG
F4m/vJnYfcHZCQh62gUPv9/EjA6aSMPNCS659zKsP7uJbSL/5fJ6O4GjzSUa
fehNzNrv5PDC3wl+DEUvjK5HYGKg0g+hBCd4aCTW/I0xAh9rGp7obnICSc+E
shqZcGxnosrX1OwEa3PdHWGc4Tj6Z6p+SZsTLF7l0aEuXceju0+Xhb5ygt5c
qwNNz67jJLuHBKnPTtASrb593vg6XtyMmgmnOUG7dPvBh0HX8CON44tKAs4Q
mrnPvngyDB8e2BvjJOQMd2b7CiI+hOE0yr8DcQecQTXVnCPmYRj2zW86Oyru
DB0Omx/proVh+Q3d8tgTW5aQXE/aH4arHts4jRg6Q7CGB+1SdSi+IxfRFR3m
DDKf1GCqKwhzv/Rwf3jdGVrONJXuuRuEr9uf3vge4QyVe4+YXQoIwk7xe44q
xDnDvXKm+CXRICxMy7z5PcMZLNW3h36+HIgz791HJ+qcQez1ZHC7bABOFOqv
+PbTGeqyv4m6vfTDVrYnBD9OOEOGfUiCfLEfPpidENcx7QxJxkcEZML9cD2f
DvH+ny3TEoMqwQ9/5a6Tvbq+tb7++6kPTy7hwyxxtYf2ugCxP9iW1OiLny5D
A0HLBbY56+RU9VFxhGK2hIOuC4zdahr83kjFZy8t3zY1cIF8+6IryrlUPDpf
GaBm7AIqw2Xhjq5UzDzDr8pu4wJND4YTbv6l4HNji021F10gbJrrL5MgBf/q
KmlbKXQBNUvFl8zsJLzIGZspXewCOH12pWiAiOnMSBTHUhcwcmEfSSwmYv5+
BeFX910gOOM/eUtMxGdGWgNvP3WB7eraa1m+Prj6z+AxpV4XcKcZnYn8TcCX
OTnyfXe6gt3DtrdqPJ443HTRr4TVFcIck0P5pz3wrbQ+w0F2V6jvbH58qtkD
l/HnrmryuMJ1te5YPYIHHhSVusB10BUss1JfBbe7YziuzVZ7yhWmT9yLY7zu
hneaBgTPklzB/nOOsYSMC+a0GbDmvugKBBkJFyqLC97voqqq4ucKJxWn5v9M
OGM53/WVa8GucEpL3ST1jjM2T7nqzxPlCjWiyQ32Qs648FMUVa3QFRxeZos1
CTjhU2aZHjGfXOHfzUfD5aoOWMd2Vbe6zxUOPTrFqCbsgM+62oh/HnCFZhmD
xVUGB+x0SWhcaMQVhB3FnBnT7HFkaqFz7W9XQIK/txk32uHPn8vs+pncQE9e
rEubyxYTzZ+Yiqu4waWDM8N626zwx+2pu3lObdULjUoZv1hihYfEDkbsBglE
pXX6Sku8xiWqPKrlBvk7XbjbLlji6O5IgRxjNyhs0jUyrrbA986Yj3J6uIGA
3IMxQ58LeFjjD2kjzQ2OzErFh3CbYa351xK/M9zgv8KdH/rnTPG9gjsjX7Pd
4MG3MUGfd6aYSGdx/nGhG6RQrG6p3jTFa03PFH2r3IBkGDbrsn4e86rErk++
cIPvKkpL1QvnsImseMznRTc4+M1D7hCTCf43Elm27Z8brKqEtPmMG+PclKlX
x1bdQOgIQWu2wxjTVip3xNO7Q4SMa3BKpDGOaD8RocPmDql1IoUObMb4qaXG
1Ufi7lCdoelJ1jXCEuG2/hlW7mCoeGeaOG6APyg+T+u0dYcLnBtUvzoD7Dcp
Uv/XwR3iIGimL8wAtxmNLZq4u0PxRe+Q4v0G2I6PQN3l6w5vDnsL2Vvo45Sq
yz5Bce5wmdNSp+O7Lt78kuxs2+wOd6p2p7w4oo3pjhNtzNrc4UWpUG8145bj
9MwMO9zB9K2w89chLcygvq6j9tYdxsptpGaStTBjqdsRwS/usE+7x5uBXgvv
ClD5MzjrDuXbooajxjXwXr7voTbCHoBxt1fhIGCei4/9TUU9wCeKUbCnacvv
kslnxDwgrWZhTTkPMO9VPadTUh6w3jQ3mOcEmH+yRnu/kgfMb7s1VNWHscjj
cNZBIw+Q1Crk0mJHWMrySKZ1qAeo9AXOirw4iSUCrmVpXfUAHUE+YUrKSXw4
YyBbOtwDblXP/eJ2OYlF+6PzNqM8YPbuAUNjxpOY13L6TlGqB0QcqbqZqqeC
mSwr7k9XeIBpXuD40HclPGoh8yLoqwdsq929fFRHAQ9fjuhwGfKAQp09FyeF
FPDQ7aFOwxEPiOXUlphcPoH7v8S/Fv611S/PFPyg7ATuspj90DbvAVxaepOu
XCfwM4vqAZZdnuAkx88wMiePMyzk57KUPSHvEaMBsV8ODwRxWrSreoKGP0fP
iUdymD9v/jkNecJyeVeNaqoczv5Zm6Cm7Qmz+cIfWM/J4XzqcdnvJp5wg266
0SxHFpfEniCKEjxBcrJ3z1SxNJ68z91rQPQEhsMljIpe0vhIz6LaRYon2Dd5
zS9JS+MKvoe72/094T7zC79P9Ufx/WKFStfwrXq2VfSvd1K4vlmRVpLjCbh/
Re3hniN4+QePaXe+J1gfEtGbGZDEyszLT1aKPEEuZ8jv1l1J3Gj4KMagzBPe
edUR2E5J4qYBJSlavSd8TJ1Sf+MjgdsXlb1kuzzhUvrg9YYfh3GPhOrEQwYv
yK3zeX2P+xAmLiRLlmz3gm9n795y/30Q73hG88rc4QW2+3hESB0HMTqf+zuU
zQtU9/L+Mg04iMtC6Bd0+b2A5Na6ShwVxVc/dq73H/MC9z7FDf+WA1g22JRr
w8ELzIbPP3K3F8avdSpN55y94GdL5lmFA8LYhYMpbdTNCyjjVYTLP4RwZvEj
3k5vL8hu3clg5SmEmbr5hRIve8FjLyK7T6Ag/iY2IiGa6AVVBwsz5GsEcMwH
H6Tz3AtCZ5A/vzcv9soxGvdv9YK2kGD1CUVerEeQjS994QUPhgWmDjLwYkbm
P99Y33rB3oyXO4cz9uFg5BvS88ULpHu12y6858HelYFPHea94A2hTD/JYC82
CLJ2SfrrBeFmRxP7BfZiCf1TrO3/vODLv7ED135z47GxdWvxTS+Qrd3/c/4W
N7bZf3X1NwsBzKOekDW+c2HDmJsng8QIUJohcHkhmhMftfQYrZAgAI//yOyS
IyfeJa4fPSRFADaHw0ZnVThxR+uuAXV5Arx5HUXdmODA6L+4gB2YAANSyQm6
ZziwjGdKQ6oFAZRDY7ctHNiD2XULFKtjCDC3KVLydxcr1nv636PyeAKgkvwA
xS4WHHbMVOXeLQJ0Gcv4T6ey4DkB5lO56QRQkVYxrhZlwV1z3uqxRQQ4nT+e
l6C+CydmKp/xeEKA8SreQxPJO/BL9qR3zs8IUBwdMsLpsAPT3Zg2sm8hwL+8
9z/uHN2ByaRcE/NOAkzscni02sGMjbUYL2j1EOCXq9h1j63PyZ6ZD44i0wQ4
qhjRlnBjO9ZzlvwhMEOApad9j75d2I7Dvlxz2feHAN7iLx9HHtmO51oV3NmW
CbA48kZ6tosRd6Vnea8xeMMIw2eTuQOMOFHd3f8Lvzc0E4T4T3xiwHtSN2IT
DbzBTpJjxeISHdbu+swTYugNEd2yqgXn6HAgS2W+p7E3bEjqV8rI0eGxq9YP
NMy94fEpFcUTXzZRA7Hh66KjN9xM4MtTfb+BHPWoRywDvIHlmaPbt49rKO26
/gPtYG9YnBiXrUhdQ2+fiSD5K97AnfP01rLFGlJU+GDCcsMbaI1HhFaHV9Eu
0aMBTYnecM49drN06T9Uu/qz80CJN8RPNpt8UFpBvxSbTNjKveEFW5DCDP0K
2k9N+fpfpTfktPgkBr39hyImNGZ76rzhkW5AY7/TP2T9OY8n4rk3mDRc8MtI
WUaM9y1dp3q94bhG/Gk3liVk5vSOoW67D9TmNyfRqy+g9/lHF4Z2+IB2plvs
Z64FpPM95scuVh/oUuvtYPs1jxRtDNqdOH1g9bZjQEX8PNpn3nmDU9gHlIx2
m18d/YP69Vt2UJV9ILMtIncwaw6dixRZyVH1gTPjFPsC3zn0uuPK5CvkAyHV
Px89M5xDjZro9QFtH6AroinT0c+hLLUnMd0mPsC296funr4ZZHvsIdsxgg9c
KXsxKJhPQ70k7k0bog8s3tPRZLGhIaOqi7ORFB9Q/fsjPJmXhpCUfNewvw9w
Xn3vQEqeRsJi928lhvvAEsuSnHTiFBrhLeWey/EB7/7A8qo7E8iVLof/fpcP
vI4P0ss89hMpj/uO3enxgc4XtXen6X+iXW/PVGX2+sBdbrq9RR/HUFX6mnrE
oA9gddWrmpfG0JKMjafthA/0JZDY5J7/QJG2Ag0sdEQoeaN0lMl1FFlpLlyl
30aEZfahFifVUXRU8s3p5e1EUNF+y8XHOYq6FwO/j7IQIeogyN5qHkH8sQNM
jfuI4OB6nZB9YARVNGaYecgSgfkpTWz7r+8oNJ8ibCdPhGTKm2jr3O/IOEJ/
8rwCEZjytmWeNf+O/pqsBGNVIqiVWtxgfzmE0KTFHR5dItzSURDurP2GPuzj
XWi328oneB1bLvqK5n3TEg/Eb+VL5OUY/O5DO+yWms1vEaH8FVEyuqYPCeqa
/4lJIcK0elj6Bb8+pMfHc24pcyvPIMMvi74P5Talcr25R4Se7oPUXKFepM+U
mubbQoTine3ScZRPyG52saO0nQha0twZkugT8v1iujzUSYQbt9lngOUTyi3j
ttB/T4ToCOXp4eIetGiUwif0lQh7dhh9ePbjI8pPT87uXCTCeY3ML8wXu1F9
2MLbtWUiPAxTbxjV6UZvPM+vH1slQq4G/4y4QDdaUuWyy6Ynwen10Cdz7V3o
9HCSMIWNBDyETAY7wS60JJFUyC9BAr/Ndz8etrxDho2JJT7WJJhw9TtZZPEK
OXgSR5LtSPA0jX/3N95XiMp7hr/RkQRN334J1/S/RGl+zLFMHiQo956YFbF9
iYblQ0l5viToc1aqpCN0It9ygmJ3HAl2ZVzijSl4gSKs9EnLiSSgy7FY6fB6
gTJ2ipcIppDAk1SuEHniBXrmPsrnlUkCdPDEROqrdsR8yHKd4R4JLq+xOzSu
tKHMbJ32E80kyDmyp0Ga0ooqTh9at2ojgffNAybyGq3o+X/0ilc7SHAq8vbe
Mq5WNGbRdO/dWxI0xx98//tRC5LZeyLGrZ8EEn3juVXbW1BL3IFzt+dJQOTx
yLH0eo588cZsCCcZxppPJwg/aURlXpIrf7nIwNuRsPk6sBENp5oyEPeSodu3
xYxVtREZ0sq47XjJYPzt+0m9psfocMYFFSREhnFdeuHrLxtQ33z1tQ1JMgyJ
Lxn8/VeP2IQGY/ykyPAmS0beuqUeaekzp84cJYPmMc2LmtH1qDrP9t6QLBmS
wqKZUwXrUeSZXW+fKZDh1rCCLJ/BQ3Sy2HnvFXUycOS8O1L/uA6Ru+OFljXI
EEg5nV0XVYeK1x6Lk7TIUB/NpCtqVYe4zu85aa9LhliW4LrTa7WItvnUDhuS
4dAxZamn2rUo15KnZNOCDANHRiuVadWIfverk2FkMiy+fRY0x1CJvqgoL++j
ksHlqNju2IcVqNrtXt39i2R4IKUt/9ujAjk03zj63Y8MDXLdNZvd5aj5ooYQ
CiFD5Lok/+HKMhQ68IR+LYoMgl26hSM3SpA5s9Sz5BgyOLuuDu7RKkEyJzID
peLIsHNdvnGKoQR9i7u8YJVIBtYB/cfp1+6hU+oKPx+nkaF/U8KxOKoY/Xev
6qV/ERlO6o+2Kj28gz5+ErzBfncrb0Hb2SjkDiqjj1O/V7yVFzxy9J/2HWRp
TWjsLSUDadui639filADm0SFQjUZVLxE5lK2FyH/SwUJC0/J8KJR5MGifwFa
1EgxJ/WSYZ9lyFFpSg4KaHu+Od1HBgPS6+dsh3PQhuZ0iUc/GdaPf2sv+ZqN
mLU1Vh0HyWD7XHGKQT8b8evO5ZmOkmGG0daS72gWgtNnJlVmyKDbNN7lzpmB
XrzxT6qfJUNLj8vXvR9vI4MzRarH/5ChmjOizSnpNjpv+F/c0UUylGffONfL
fRu5nS2RF/6PDCVvDYL/iqSjuPOMwYxMFLjP6Pdj0DQVcX6SFbvKTAHWk2w/
egVTUZqp9fv1HRSIErL6afUrBeWb1Yoss1DAM7ZvaDkoBT244PBikoMCZJWw
UvfyZDRg/ZTtgyAFJp+Ha3CIJqHDLr4FGQoU0Nat7hB4F49KO4fesylRgD6S
nG0bGo+OSumvXVemgNFnqX3OcvHo+LzgBaIqBaz2H5urTItDENbJqqlOgSeZ
stp7vWORdTb/ZdoZCsjqOjFXKkejoc3wu45GFPjTnmSs/zcKOTnPfuw9S4HX
/NErcbVRyONIu3TLOQoUKb0L2iEbhfwafH6kWlDA/8+pi0mykSjxU7MRdqFA
4Ri/a71hBOJSlgp+4EqBhEtFBF7uCJSWlVoq6U6BFz8VenZ+vYFynLwYub0o
0L6ABG973UBlc1yNEyQKfH//alw1MRy1s7qLJQVR4G5cDi1w8Rpa0dq9NpZE
gcq9/rpU3jAkVPZkMCCFAg/aNM+3fb6CNNi9mtjSKKAmUHE8O+gKiu3vCFXO
oACSFh86/joUiRDD6GPzKGD6QJhYTA1BeukLTMcrtpxgMx4+E4h81gp+dVZS
4CE76+xAQSBKcjR+aXOfAu7GKTmM5oFoUKoyKqJ267x5k1dfNgcgUrMb60AD
BcpTkMDXvMsobbKf4+oLClC2qxdYXvNDT4wi5/d2UqApOub+lLofGq5T7Cl7
SQHf1/erZBj80JHQ5JRPbygg4RNL/zL8EmriNNwn8ZEC5v6nz7Ak+aIx1eb9
H4a28kNZuXTfUNHOAuK68zAFrti3CcqmUpEMk+DQvxEK8H0X06iyp6LLXQF5
oj8pEBATpuq5REEsrsdF/aYpcEt8b2H1EQqSjy8WF/xHAd70b+xmViTEqMvx
N22FAiVuJM387STUuxnUumd16z4HixJe1xBRIMXElnGDAqRot877rETUYrqW
NL2NCisNAcRrb72RscC5jcfsVKAq8l0NoHoh0U9P3xznoEKn/gXusiNeaDFW
PKOSkwqf/qxJpv/wRLc31o4X7KVC5kV9Yt4FT/R95J5npAAVSjTT/mA9D0Qs
Wf9kLk6FfaIL28QN3BA4ehR2SVBBhlYbabLbDXHy95AMjlDB8+ueDcFuV1Qf
U7ILSW/leYJskpUrWieeB7HjVPibxTDR7uuCYhVKyxcQFShfBp4utDshuxmu
AB+gQki8eZ3/LSckdy9U55c6FZg6pU+H2zmhT7ymIwNaVFi6NWmg8J8jEljb
4Gk1oILZIsuNTiVHVNZqei3RnAqCJ3oJgqn2qLblGChabJnd48l/x+3R42a2
ja+WVFh4b8iz2mOHXj57GSBuS4XqHtE+s3126GfjKcozZyrosuQK8ZTbIJG6
Qw40MhXKudut9jFaIYlaeqEkKhX06x4TC+oskWzN0FclXyoEPL1DL+RiidD9
2xeu+1Ph0YXgy8OdFsi6nPUsfygVkg7ff6WdeQGlFS2q6cVQ4Wx2+W0dDzOU
W9i9+juWCndrpqvrxMzQ3YKqx8nxW+dd0suY+mGKHuR5KHy/RYXjnio7ypxM
UXfW4FG/21TIf/DF5YTnecSa0i5w5y4Vrh38NHDrtgniTi7o179Hhf1j1gdi
HU2QQFJo+mwJFbbNzh+RkTJBRxKVuVQrqEB/8FeBXbMx0out2PWxlgq3BnaK
xY6dRcYxUS/9H1ChLOF6X3TYWXQh2i1CsJ4Kb5UeXXgieBa5RYoweD6mQvRq
YGWBtRHyubn+nO0JFfpk62uM1gyRb8RAyIOnVFiz7w84kGuIgm88UrV6tvV+
2MU5OdQN0fXwlJXN51R4qMFYIfzzDPofxOUMyA==
     "]]}, 
   {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwd1mk4ld/XB3BKklDGUCQlohIya+9llpB5nsdjOs45/EwhcxmTMRJJmaVS
klBSqUiU4ZCZipIpojL8z/O8ue/rc619re/a+94v7kPOfsZu2+jo6I7THv/3
rjVfX/lZPYCuVuksXecewKuZZ9qMUh9joftn/9+bZU7egqltWHM6yuMKzc/V
0/8kVHTjbt8XQ9E0b6v1b2JI7ceT/91lIdGsLmwWdZE8jAMOmK6a0/xC57pw
eMU4dpR6nS9PswtdcqxS/hQ2VDiwwU4zQ33Y19WUb9j2cZXdLNcAvuPnq/Po
4nccTN53uoFmLVH7Cgr5J/4dP818meYAP1HGa1IL2FdszeIszRrtBx8HVizi
obSSO8w0c4nyEswO/8JnEulrXnEO4KnovXyn85exbbtKQCjNcUr0FxZTVjFL
mJJMN8cANs/+I9HF+Ac7EfgoITQfXVocunvxL9ZqO3iMm+bX5RPIh7yB2drV
OIF9AOfs+Dyv+30TO/14q/Vh7wB+eM+zK1OKDuI+yCtY0hzL4hzlX0EPwRlS
5hZ7BrCP0sjAhPs2EJGQbvvENoBNCdbSxoe3w7WAF7XqNB95aTx5Kp8BylP3
7N3HOoBfXVDXnEvZCYXVn7lDmAfw3fJnN+x0mUA0WObD210DOLtf+XcH4y4w
2nzPxEazu8zp0sqLzBAf2MKUuHMAM/44ssuTzAr+UpIxZxgG8BxvkRP1BBtk
VOk52W4fwP1aAg3a39kgRKKe8b9ttHm6E2UzpPYCn4vl91w62jwnYr6SK9jh
T4m8SO46FfNqtKSXM3GAwFLnleR/VMxis4XG3TmgcNfetpC/VLx8+UKO4WFO
0Gj4PKS9RsUvp/x1JPO5QPihd0vuLyp2y3etmE3ZB3RUiWylGSp+vr9YlH15
H8TZ2MbUf6Ni/uvjt2WteWFnk5PBqa9U3JlrXxhxlA8e3H92duckFcvlWGbu
fcYPPSMb3JQhKmZK14s4vSAAYrxR+Xs7qdiZPemfpbkgJI0ZvDvaQcWNaW+D
wxsFYWbK8ofcOyomX9Hyf335IGymX0DnXlOxr5bQ6ao0IVip9l7lbabiPnX+
Y+iYMAhvj/TNrKLimJgnHoa2wjD2StxWo4KKT7ValjhfEYaaOvPo5VIqTlTL
OXxpRRg+SPR0qxRTMVblEuxqOQzv/16Vjsyl4jLExulsLQKS7W1/RmOpOERx
20Zckhho1m127rag4tdzEp9kn4oBs4VHm5QpFXPcNiv/8l0Msg0Y6I2NqLiC
rdxMU/cYfIkxg6hzVDw0ef4uwy5xGC0JVC7CVAypNxxi4iWg8mXq8MRRKmac
VHgRGXUSTE/lD99Z7MfG15yvnbp/Ek7rGMuJz/XjQv1k4tjYSVBN4eQp/96P
FepH+QEkwfcjS1jaZD/2TIn339qUhPDo6DXJ3n78db8XB24+BQ+KbwgEP+7H
uq8ftzYpS4PzEetPccH9mNrVsCRgIg3PYzNMYgL6scfnpkMRXtKQP85SeoHU
j2MXWi+iXGlI3+H4yZbQj5v5u5Sf/ZaGBzPZ3L8s+rG033Tt8/syMHc408pA
rh/z8/LdbhWVBaakffc65vvwD8/Q2LecCpDxprzqunkfzkxt+nbkhAIUvuyU
ETPqwyq1dOcitRQgZL54puJcH05ej2eXD1GA599vq5ZDHz5+JaPg9ogCPGjN
kiKK92Gfh1X1F8sV4Vh6e73oRi+e3RyZlcXKEM8al5RU2IvnMtTNbnkh4I/5
L3eI2oPn6qt354irwWXVqbup6p8wz4/GAHUHTSC80GZgJHRjHf50m7VYHeh4
U7IjdfsH7FfM9jQ+4Bw0DT09L+Xfjtv8Um9dKDaACb+jJW1VbZi53ZpepNMQ
BIpvn1Uyfokf2RqR9qobw2iS2Eqtagv+c+Xs4Zp+E2j4HXKlLLARK5Cy0pWM
zOCt246nmPQY71ma0Az5bg48vNGfxe8/wN4UTgWVMEtImSO1bgVWY6GY9795
oi3B86LP3JZNNe7LuPRo8ZIlTOnnx7OrVmN49E+6NMMSXkmpyJN2V2OetckT
HJWW0LF+/cCOoir8PPzh4ekBS+iaV/hz40Ml5kkw25MpbwVXOVgGlZUq8IvC
nK8/lqzgencX426NUrxZ50TR/GMFLQdMTqVKlGKlTonNgi0raOjksxHhLMX3
159xG7NYA3+nHDVhogTftJrWqBexBkUpuiLV6BIcwalYHGtpDfv3NxVYvbqD
lS4NOgg0W0PpSseev1a38X2iwIBBgg00TC1eZHxahG/2UPepXLGBD09HzySU
FeE0pUzzY1k2cFSec4Q/uwiTGHf3bC+ygZxts5Ve5CJ8smCts77eBr7LuJS/
ESvCVe8/vRSetoEDyTqqhnk3ccnxxHu/tWyBuVZT59feQpydrjk/qWcLP4y2
11XPF+C4NbqT3ca2cAa5ccR2FmDXl0GVlfa2YAr5DMnJBfiwrVuJY6AtRNgc
/D6/qwDfTIL8d3dsQfCvjTc98w18/fvvSwUMdqBZ/W12UPA65rB4kcG82w6a
2v0n0zbz8OXWlMJAdjsI1nqb4T6ShwPyjzw2ELSDO/ffvSMV5GE9A+Ovm/J2
MPAyWmrzYB5ev1+t4eBtB0LVMo1dYrnYNsSVXuijHbT/Cbb/aZiDP36RZE2m
2kEs+4sCt9M5WMf4H+/aiB28PC647d++HHxaIv1U1w87yP88mxE9mo1Zhp85
RO6wh/Bd9w6O+WXjRtjfPKZgDzaBHrFfsrKwANPH0KJCe/jGcDr+wu8MnEqX
mzN/xx6ypD6Fjw9n4M01h4dnquyh7uO5KZtXGXhk5ufPgXp7mCNzVuRnZuCC
9l1OHB/tQSRuhV7vdAYWvKKqHcPgAE4+Hfl6welYiOc+p5unAzRkM7aYcFzF
aWzBp2r9HMCj0vdx03oaptuJ9ekDHUA/JyNO6VsaHlvtiL8R7QCtfJ9twhvT
cNHA9J/e6w5g17p7nouQhoVvCI1pdTrAvumdDvPxVzAHh455Jp8j0Gk8WuTm
TsG3ZY+guAOOMKxyJGh2MRnLWdEdDTzoCFf6bHhHO5Ox9c36FQsRR3BcoyrJ
JiTjWyePZe2XcoSRNRvdjK0kLH2OueeWjiOUCgcXTy8lYuPYDqP7QY7A+CZx
6cyvy3iqtEzxVqgjnKqjJzr0XMaB7bGHMsIdwVPd9OfNR5dxHseZxYAYR8DO
oQ8Tgi/jiZvVaQpXHCFE+v73vq1LmNKU+uFZiSOsTuaH+XJdwhm/DfU7ex1h
7EJfx2vTOEwQeHR9k0qrX0mrSJKPw0iD7/vJIUdQcojbReSPw9NXx+OvTND6
f7z1Km8sFqucoDw3nKflmwXlpBFj8VeXDJlPTE6Q0BMr1JYWg5W6e/moyk6Q
WzbYG/MzCu9ZUyQwYSfwv4XZbXqi8JRgQZ2CmhO46KQdN3oaha/4uJvk6jiB
U3TipdwEWn3narK1mRPArdLRVNEonIJ46YaJTnBj+sksl2ckHqu0/jpe5AR6
6ezV8tsj8J5Qebah204Q8WSPx+ZgOEY6XHJ9pU7gtqlzavZBOL4x9T7uXbUT
MHE/OWTtEo6tBVRFap84gdGNXk/v12H4U6qoa2y3E/xbdTt4MOsCfk1eHj9K
7wy6z/yqSk1C8Aru3nWIwRk0+O8e+XMqBB9huyu1f6czBB36yR/KFoKjKzyi
9rA6Q9O3O7ULb4MxnhwUWuN1hs3D/cXdasG43rTF4e0pZ2DmOswgpBKEK+VT
h70dnSF13lKTTu8/TG2fZrVwcYYzJNH/+k7+hxkc1ZGauzMw2cTvfsf+H7a9
vFbA6+MMddVX9Q5TAzDLgLPjqyBnEL/4RP0/9wBMDJWfFLziDMlVSW3RCf5Y
qmlsurvJGWyZdWRMpsnY3kiZr+m5M3jn9owbfiDjxC9ZZ8tanWH13a69vnVk
PMF6riLirTN89y6j0MWRcbr9I2+JXmcw+hlsmHmYjJe3EuZiZ53BlJWgb+dO
wo/VZJbl97tAzFroPrXtRHx0kDvJWdAFomPb1mZ6fHE2ee1QyiEX+JpRlf2u
xBcH3Gw6PyHqAj/I4VXG53yx9KZ2ZfJpFzDL+SVimeOD7z6xdR7Xd4Eu6b/e
M0re+Pap+K7ESBdQNORu0b1LwFxvCB6PYlzAdI7Sb3eJgGMczm2OxrtAvg69
8V1HAnZO3XtcNoWWX7F9+CcnAR+czbs0musCqnaJppthHjivtAadrqXVW5YK
6a3ccZrgQNXwFxcom53S3ybviq3tTgt8nHYB8zu/Lcp4XfHh/Cspr3+4wHu1
hJXAvy64jk+LWLPoAtIHLA+nN7vgz1y1klEbLuDrtTF4T8cFH92d8uAItyvc
iYmYMHZ1xo2rUO+t4QpHy6e+/nvsiOPl8sUctV3hXF6tr2+BIz7/3+o1U11X
2Du8+mIj1hFPLFWHnDF0haKLH6ZTjR3xzjl+5T22rqC2w3P61ogDNp5abnrg
7wruMhGSRHt7/K2rrPXPLVc4X2mb2p9qg5c5kvNOlLjCFTU6so2jDaYz8yM7
lbuCob7iwlFpG8w/IHvwbY0r7BgavpTcZ431xl+EXmukzae5z6tc2BrfWxyS
ku9zhQCI2l7TZomDOdhvBuxyA/OttgFbNXMca7ocWMbiBvHLc1+5Dpjjq9n9
+kN73OCQs63ert9muIK/4J86jxsksmTJV1aY4SFhCQvOw25QJfywoZzHDIOM
JtsDFTfQ3dQVJ/0xwbtMQ8Lm/dwAIXb1gW9GmMN20IbLn5YXdGIX21sjfMBV
WVkx0A085g9Y+1cY4VMBG3+iw9wgpVju1DtfI2yeGRXEk+AGPnBjb+1vQ3yr
J4Fy5pYbLC88vyDPbohVzPIIST1uIBsf7BnXqYe17P5p3+t3A0qpxiJ3vh4+
72Yr2jvoBk66L64ueOph5/8EvwqOu0Eur+pEDqMevpx1y+XBTzdQ06n8XKZ+
Dvf2VtgPMLrDv8YfUfodZzHR/KmpqKI7VFtssd3j0sYfd2Sx8qjQHKP/WXdO
C8s+Ir5mwO5gfLig5+AbLbzOKawwoeEOwfzhdWFhWjix+/L+G4buEPT1gcX0
N01cqmc+wUFwB8TaSzR+q4HH1Bb9NrPdoanQfVPuoRrWWHon9jPXHSa5mu7k
ZKrh0qLb45/zaf1SGlpP/KeGiXSWJk9uuYOgzm65CTk1vN7ULBdw1x3q7I3F
cxpVMa9i8sbMK3c45vCIoa8LsJGkaFLvsjtkL0PQB1mE18YvV2xfc4cD4nOX
kjfO4ILM72+l/rlDtIfqXMWrM3j2TzVTKr0HcH7vodtmcQbHvzwdr8XmAUG6
rEVHI1Rwo5Va1GNRD0iP7UYNw0pYLNYuKNfaA+ifqqkqjcjjD3LPstvsPGD8
dmrU9vvyOHBGqG7F0QOukgRLeGLlcavB1LKRhwdoRe7QPSUhj+35vCnMAR6g
o9v3bEe4HM68G+x7IcUDYiTU30yelMVb1AwXu+ceoEufjzbapDGdDNHWrNUD
GjJUTkiX0JyiY6b/2gMKND7NFMdK422qG1pnOjygaayn95iaNGYodxcXoNLm
fW9L//aZFGYOUVwcmvcAo7lEivirU5ibbzTC9iABKIPB70/OnsA8/k+CTIUJ
EHGJYhX5iOb3GSQ9EQJ43PlEOXnxBOaN0nFWkSAAlumyvsN5AvPP3Nc8IE+A
HZote0fhOBZ6EssyZECAnMT4jolKcSxhJZ5nE0EAn54fLXefi2KxkOjrGlEE
0Cg0b7+QJYqP5g7mn4glAOvvfUlXvUSx8EBi4VYCAfguj8hf5xbFvFY/bhdn
EWDb4/112/2OYkarqpofVQRw/LZZunJSBE9Ynnx14TMBdIRKx/XHhPFYcPxr
1xECdCQQjgU2CeORayNt+uMEsNxT0jKSJ4wHqKnvDn4jwHjFyVpbc2HcZTn/
oXWJAPq/D8kLdB3CzZb3Bncze8Ih8pyoeacQzrWUXriu4AlcExPeF78K4MEL
HJYvlT3BuvI8XXO5AOYvXHo2izxB+IgyU7CvAM7/8uDKGU1PKBIdTT/z+wC+
SZGRHDXyhNLMz7t5WA/gsuTTRGFvT1iJGJM4f54fz9Rw9ekSPcF5E3OR+fix
+KflM/5kT+jlmXn/d5IPV/E9Yn0Z5AnXvj48fjaUD9eUyFa7xXpCiVPY2RuV
vLjuudxs2Q1PCCjracoU2odXJ3lMu296QnL6938jCzxYYefq0z/FntDx5NVK
XAsPbtB/nKRbQctPKoz45sKDmwblJWbraPkpezq/VnHjl8sKXpJdnuAksXsL
nefCn8SUpx9t84LDfjI/lbvZMfFXxrGyHV6w8KtxxfUuO2ZqnvXKY/KC6u86
gh+T2DEyKfgZweYFpJd0rz212XFFOP0vbX7a+u0GLJda9uKoj20bA1JesIv3
yX616D1YMsyUc9PRC+j36zMd7tuN32lVmy64eAE2iDb/VbAbu7IzZk+4e8E9
LiFWKcJunFfymLfNxwue7e/M/vCPGTN28wumBXvB/dbpyH5RZjwsMi4mnOYF
ge4sRw6nM+GkD75I6xmt3iv81LlyB/a6YfA16IUXPHTdjJMM24F1vCVTy1/R
1it977DT34EZdi4Os3R4QZv4m8+fFxhwGAoI/0T1grO9WukaKgzYpzq00XHJ
C4b7nRJlp7Zh3Qs2rukrXlDPyfz+WcM2LHZWheXlmhd8ydvFeufqNjw1tWEj
uuUFfJoBOe6wDdseiPr3c7c3kC2T9w0U0WP9pEtKF0S8IWHp1/Mv/nT4uBVh
okrMG6qd701fPk+HmUXPJo5IeIP29QDLAAk6/PoF86CqtDc8nWBjdn2zhdDf
lBAm7A0prwl2Og820UnPzPosS2/I7w2pmry5jvZoF8ndS/IGxS/J+9+MryGd
xr+PK1O9ISxvF0dZ9RqKlDJVLL3qDVc0fA7Mh6yhhf07VQpyvMGWuOO/Gs41
1LXgo5pc7A3r/yVYL5xbRWl5CnqEp95gwyyx9LhzBb3Zk/7epdkbmMzNCx7f
XEF0cT8MHFq8IWPlrQmv/woi+RUYmbd5g1PipbQp3hVkqMFgofHJG3QPtFTc
IyyjvXMfnIR+eIOJU3pgIu8vpONybHL/nDfsWRaVoFtYQpHUaNd9i95gfeEZ
amtbQgsvZD3YVr0hqe2NkHbwEurKue6zvs0HeMzfdtMPL6I0VY8gKr8PlMZ9
r556uID2Zm0mp+n6wKnVmd2jp38iza5ennB9H/j0VEVEfXUWhe6uvulp6APz
mZU7hBtm0VSUzUM1cx/4o8983UR1FtUT6z8vO/mATPmYhYXZD+SkQxG3CvEB
hTb1VvGMGZQdc/ahZpgP+KwdVx61nUEdzUJI+qIPRJ3rrqYTnUFysh+Mdsf5
gNd1PuNLjdOIWfh4SFOaDyjJ1oYVzn5DD/59aTtU5gORH/vqRRy/om9yTUZs
lT6Qepb9nMWpr+gAJfPz32of+KeyHjlD9xXFT6vNf6r1gao3B92li78gm95C
nvhnPrCxWn36+OwUYqixcvve5wN9LFwh+lcmkZnz+221O3zB2GyrmMg9jjpv
Hv81wuQLj0U2Fyx+jiGt0aRJZhZfcBeiGBa+GkNytrovnTl8wcE8xv500Bja
Z94Wx3GQVlec0R5rHEUDZ1uYKAq+EKkYXCYfMoyMLwv9uaHsCzvzdFRyZYbR
u9cXZ94iXzAyC2a8NjeEGtTRu0OavvBtef2fh/sQun7maVK3kS/Ih6ZLnbD7
jOykHrFJefsC29IZByH3AdTnx7VlS/QFiSXBY03HBpDBXf/5y2RfKHx4bs/w
TypCEtJdY0G+cJ5Pp74hiIoOitRcTYv1BRUT8di7V/vROG8518INX1h5f5E1
d7gXudHd4K/p8gUdZ6Y+ls6PSOFrwNTtT77g9SKau7n4I2Lu0Lub1+cLrOHt
X96GfER3c9ZV44d8geTLOL109CP6fdLW027aF4Z3RhxxjetGl+321++mI8KC
dVY/Mu5C1uq/oui3E0FnNfy7/okudPxY+7nVHUTwM83PKmPqQt3LoaMTu4nw
aIwr63bkB8SfPMjYsI8ISz73CenunaiqIdeMIEmEzycVIMigA0XcJB+0lyaC
fZRxzjprBzKMPztjIkuELtWOTq7OdrRi9CcMKxPh2VKJxfD5doRmLG/zaBNh
dtA+/6PVO/RhH++vl/ZE+LLnM6dH/Bu0FJCddiiVludGJI4qvUJM9r+fm18l
gkpke/fAjldIQNt8MSmTCOFRv31Mul8iHT4e4995RNgaMml+5vkSFTRlcbaX
EkFir1qk3c1WdJYxKzughQgskR7nbh9+geznl1+XvySCU9LeBbbfLSiAaro6
0kaEzibOM5NvWlBBBZfl2U4iONpeoHz0a0HLBpl8gp+J8NdC/k/Ni+foZk5G
ftsyEQhD2gF7V5tRXeSvjvVVIkx/qVt9VNaM2j1NNqT+EcHSZ1WU36YZ/Vbm
tM+n94NxJ27Ogy+a0Lmx9INkNj+ojmWMa77WiH6Lpd/iF/ODHGpHOIdHA9Jv
SCvztfGDA+fYM9XD65CjJ3E8w94PEoa+ba/RqEMUXj3+Bic/4BxcOlvMUoey
A3cmMxL8gHr6Hf2BgkdoTDrCrzDADw6LnLyh3fYQBVR6y3Wn+MFIzUiro1Qt
irc+67ea5gfi11/ptdPVotxdomUCmX6wKD5OKO16gJo9Jvi88vxg7OIUWyv5
Adp5xGpjWylt/pLicIsn91FevtbL08/9oPJ5QOVOu3uo6tyRDetWPzh/WOin
ucw99OwvvVzUaz8wRkKuLMz30JRlU+n7Dj8gf2PXNCXXoJPcp5PcB/zgqQJH
9+bpu6gl5ZDxtSU/aJXVHhwcrUQBeHM+nIME9Qa3uDofl6IKr2N/VjhJICkp
1/okohSNZZluI3KTgPcI86aYVinSn63gsuclAbFd0iCjrwQdzbVQRIIk+C3g
PO64cQf1L92L3jxGgqKRpyKczrcRm+BQUqAECRSxbWPzqdtI4+zOrLnjJLg/
7PZoaKsY3Su0Kx2RJIEIs+RrUmExuqzH3NEsS4LYyuM87yZvIaUSF+6LqiTo
Coq1TYgsQqTuVMFVNRL8XR2TXTQrQiXrT0T9NEhgPenl2yhRhDhN9io5aJPA
7oRoXAj1JprdarTH+iTIWUmvCpW7iQqseMq2LElwtEWLtWdnAaJnfasUSaLt
P5cv4ENTLqIqKqzuo9DmqeOUPBKSi+65l9bW+JPAwGir/ZhsLnJ8Hnd8NJAE
KmbMlUo119BzfzVBFE6CuPz/vFwqc1DE4FP69QQS6K4S96i9yELmOyWaM5JI
8PFUa9DYpSx08nReqEQKCWZ+lQ7vNchCwynBv6zTSHBLcmuP9FAmUlGV/fIk
mwTDBhk5xlsZ6G/p3TdBxSTgs1W+ec8hHX3sEYjbc4cErGYHhnhOpqMK+hTV
0hISLA5c2vqzfhVZ2Xg39JWTgC5PnU8j/yqqZxOrkr1HAnZN1ZwHY2ko6L+i
K78aaf2YMg++2UpFy2qZ5n59JLAykESFBxNRSOuzrR/9JGBpcGj9PZSANtV/
lBEGSLCN33dtMS8B7dRU++c0RIKfYc8ef+JNQPzaC4WmEySopL6i7DxwGcE5
vRnFORLsPMzQuITi0av2oPS6eRK8TVI6NLEjHunqFSvLLJJAO2MqwP59HDLR
/5tyfJkErZr2D9fs4pD7+TLpg39J8I1neTEzLhalmDCEMTCSof3DRpLVz2jE
0SMpErWTDJZXc9jiG6NRtqlN5wYTGTYnfk5IJEejm2YPhFZ3k8FP8ULi5PFo
9NDC8dUMOxlw+3B4r38UGrRpZPsgQIYFwei1Xp5IdNQ1oChXlgy9BvyLFqYX
UHnbSCebPBl4ZxSmQtguoOMSZ9djFMiwn4vyQvttKJJZErAgKpMh+sF6xDcI
RRDZxqKuSoaBvl3vfsuHIJt8/uBZPTK8OHK2hkUjCI1sxd5xMiBDVztTrCpT
EHJ2mf/Yd54MT1jjGPa+D0QE8ZcnWozJ4KzjvWRhGYgC630nsyzJEJxT4H7/
v/9QWs9zA+xKhl306pYi7/wRp4JE2EM3MphFsd5lyPFH2dezyo95kKH4BqOa
i6s/uuHsxcDlRQaezkqxAjp/VLHA2TDtR4ZT/QcWRhEFvWTxEEm/QIYSXwa1
xG4S+qPBuj6VToa22zmq9Gk+SLDi6VBIJhkieRhrjmMfpLbHq4ktmwycbfcn
T857o+SB1xEKuWQw0f013mrkjYSIkfTJhWS4IDH/6LuQF9LJ+cUoU0U7T4qG
O+GLB/JdL/rWVk2Gp16ju1yLPFC6k+Eb2xoyfDI1usZt74GGJKoT4h+Q4dw+
olbFgDvye+7OMlhPhjL5AweNB9xQ9swAe9QrMkh9zw+lrrmgpwaXl7jbyFDl
ynW58pkLGquV+1TxhgyF2VPqwpdckHhERmZPOxl8o7Ovf97ngpo49PeJfSSD
9T09FAbOaEr5+YEPI2Qw0lWHv1WOaFcRccNljAxHwvjF/oU5opOMAiNr42Sw
Dbp1KFrfEQV3hRQKfyED26Pc81JjDmi3m4xw4A8y1Jme4qoMtEfSqSWiAmtk
uDVuy1DUbYMYtNlXsv+QQbeu4GRovA3q27rwYu8/2n3V+pq6T8UGhZKN7Bg2
yTDal/bjRrk1ajFdT/+xnQKK1VbO0SlWyHC/8eaTPRTYdEz/ZB5kgYR7Gttl
2CmQaPN08aa8BVpOFs2t5qCAln13cvKaObq2uS5TxE0B8opUsH2YORodL/W8
vJ8Cnw2CP2YnmSFi2UaPuSgFlkIT/629NkHgRLjVJUaBHy/C0rZdNUEc/J/8
dMUpcPV+wsMsGxNUl1TGjE5QoHBVKMt9yRhtEE1ARIYCxGYbctRRY5QsW175
C1GgT9zf0LrUENnPcYb4AgXGv1AnK0MM0anSCK1vqhSQhJOvQvUMUQ+v6fig
BgXi7BX15r6eR/vXN3le6FJA9u2lEz9SDFDFC9PoNHMK6A0+qerYoYcetEiB
nCUFjshO6t2sOYeePGfb/GxF2/+MLfKzPofeNL8JEbWjAMHsMsueWl30pUGF
3OxCOy+p6Jphv7NIqPaI4yyJAqMFAt+dubWR2AN6wXQKBRxK+47SdWohyfsj
n+UDKDARYx0bcEkLoZprFjFBFKht/HT+07omsqlkOc8fQYHGt+EU+UUNlF28
fEYniQJzb1USr2yqoYJb3f9+JlPgxN33t8Nb1dCdortPMlIp4NOwv0swQQ09
LCTIjl6lQGhTrSCFRw11Xx86HniNAtWCxo77FFURS+bL/bfvUOC+MQ/rPUWM
uDKKBs6WUqDTR/nvLtrv6/70iJz5MgosfxUqSwlCSDxNgVO5imYG6WiGhjNI
J7mK+eMDCvSmsPSo66kgw6SEN0EPafdhVD0o5Zcyskh0jxeoowDnDxXC6HVl
5H5ZaJvnEwoIHv3Vd3teCfle2njG9pQC3iPxQhzXlVBA/GD4w0ba9w8lOEdr
K6GwuMfK1s0UGLBsvba0rIhiYjP/bD2jwJDrHQerYkX0P8hDD0A=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Normalized growth rate\"", TraditionalForm], None}, {
     FormBox["\"r (\[CapitalARing])\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.632535325297152*^9, 3.632535360896874*^9}, 
   3.632535441934763*^9, 3.6325355226449327`*^9, {3.6325355875310497`*^9, 
   3.6325357076368504`*^9}, {3.632535992869046*^9, 3.63253601064806*^9}, 
   3.632536111426725*^9, {3.6325363900015287`*^9, 3.632536433400886*^9}, 
   3.6325364666568413`*^9, {3.6325365450067253`*^9, 3.632536568553396*^9}, 
   3.632536602379277*^9, {3.6325366640556173`*^9, 3.632536725774479*^9}, 
   3.632536770346175*^9, 3.632536845110833*^9, {3.632536904667389*^9, 
   3.632536946008161*^9}, 3.632536996933035*^9, {3.632537055172639*^9, 
   3.632537061517296*^9}, {3.632537114046609*^9, 3.6325371276672773`*^9}, {
   3.632537194991254*^9, 3.6325372966500587`*^9}, {3.632537602522512*^9, 
   3.632537698260044*^9}, {3.6325377329247837`*^9, 3.632537761473509*^9}, {
   3.632537793676914*^9, 3.632537800453752*^9}, {3.632537876240305*^9, 
   3.632537943894719*^9}, {3.6325380127506523`*^9, 3.632538035572616*^9}, 
   3.632538257871125*^9, 3.633106652149403*^9, 3.633106754393858*^9, {
   3.633740054037347*^9, 3.633740120189374*^9}, {3.633740152600286*^9, 
   3.633740180506419*^9}, {3.633740513227174*^9, 3.633740523474594*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", " ", "growth", " ", "rate", " ", "vs", " ", "T"}], " ",
      "&"}], " ", "r"}], " ", "*)"}], "\[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", ",", "\"\<dhdt_vs_T_vs_r.dat\>\""}], "]"}], "]"}]}], 
   RowBox[{"(*", " ", 
    RowBox[{"open", " ", "file", " ", "to", " ", "export", " ", "to", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"existing", " ", "file", " ", "over"}], "-", "written"}], 
      ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WriteString", "[", 
     RowBox[{"stmp", ",", "\"\<r\\t300K\\t320K\\t340K\\t360K\\t380K\\n\>\""}],
      "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{"(*", " ", 
      RowBox[{"loop", " ", "through", " ", "all", " ", "rows"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"r0", "=", 
        RowBox[{"rmin", "+", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"rmax", "-", "rmin"}], ")"}], "/", "numberOfPoints"}], 
          "*", "x"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", "r0", ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"Np", "[", 
                    RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", 
                    "\[Sigma]p"}], "/.", "sol"}], "/.", 
                  RowBox[{"r", "\[Rule]", "r0"}]}], "/.", 
                 RowBox[{"T", "\[Rule]", "300"}]}], "/.", "sub"}], "/.", 
               RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
              RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"Np", "[", 
                    RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", 
                    "\[Sigma]p"}], "/.", "sol"}], "/.", 
                  RowBox[{"r", "\[Rule]", "r0"}]}], "/.", 
                 RowBox[{"T", "\[Rule]", "320"}]}], "/.", "sub"}], "/.", 
               RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
              RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"Np", "[", 
                    RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", 
                    "\[Sigma]p"}], "/.", "sol"}], "/.", 
                  RowBox[{"r", "\[Rule]", "r0"}]}], "/.", 
                 RowBox[{"T", "\[Rule]", "340"}]}], "/.", "sub"}], "/.", 
               RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
              RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"Np", "[", 
                    RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", 
                    "\[Sigma]p"}], "/.", "sol"}], "/.", 
                  RowBox[{"r", "\[Rule]", "r0"}]}], "/.", 
                 RowBox[{"T", "\[Rule]", "360"}]}], "/.", "sub"}], "/.", 
               RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
              RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"Np", "[", 
                    RowBox[{"t", ",", "r"}], "]"}], "*", "f", "*", 
                    "\[Sigma]p"}], "/.", "sol"}], "/.", 
                  RowBox[{"r", "\[Rule]", "r0"}]}], "/.", 
                 RowBox[{"T", "\[Rule]", "380"}]}], "/.", "sub"}], "/.", 
               RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", 
              RowBox[{"f0", "\[Rule]", "100"}]}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", "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.633740245806448*^9, 3.633740323938924*^9}, {
   3.6337403912150087`*^9, 3.633740492153934*^9}, {3.633740526635771*^9, 
   3.633740527029114*^9}, 3.633740592043571*^9, {3.6337406387778473`*^9, 
   3.633740688886907*^9}}],

Cell[BoxData["\<\"/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/\"\>"], "Output",
 CellChangeTimes->{3.633740536212291*^9, 3.633740593409869*^9, 
  3.633740656372319*^9, 3.6337406905713*^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["\<\"dhdt_vs_T_vs_r.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["93",
              "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/dhdt_vs_T_vs_r.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["93",
              "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/dhdt_vs_T_vs_r.dat", 93]] =!= {}, 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/dhdt_vs_T_vs_r.dat", 93],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.633740536212291*^9, 3.633740593409869*^9, 
  3.633740656372319*^9, 3.633740690613574*^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, 14260, 253, 351, "Input"],
Cell[14685, 270, 3058, 56, 39, "Output"],
Cell[17746, 328, 3537, 65, 64, "Output"]
}, Open  ]],
Cell[21298, 396, 8212, 215, 592, "Input"],
Cell[CellGroupData[{
Cell[29535, 615, 3545, 93, 236, "Input"],
Cell[33083, 710, 60782, 1009, 395, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93902, 1724, 8766, 219, 596, "Input"],
Cell[102671, 1945, 230, 3, 45, "Output"],
Cell[102904, 1950, 18058, 365, 96, "Output"]
}, Open  ]]
}
]
*)