(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[         0,          0]
NotebookDataLength[     67026,       1399]
NotebookOptionsPosition[     65973,       1360]
NotebookOutlinePosition[     66530,       1380]
CellTagsIndexPosition[     66487,       1377]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{" ", 
    StyleBox[
     RowBox[{"PHYSISORPTION", ",", " ", 
      RowBox[{"INITIAL", " ", "COVERAGE", " ", "CCALCULATOR"}], ",", " ", 
      "ANALYTICAL"}],
     FontColor->RGBColor[1, 0, 0]], 
    StyleBox[")",
     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", "[", "0", "]"}], "\[Equal]", "0"}], "}"}]}], "}"}],
          ",", 
         RowBox[{"{", 
          RowBox[{"Np", "[", "t", "]"}], "}"}], ",", "t"}], "]"}]}], ";"}], 
     "}"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"**", " ", "set"}], " ", "up", " ", "equations"}], " ", "***)"}],
    " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"A2", "=", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Ap", "*", 
        RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
     "limit", " ", "coverage", " ", "of", " ", "physisorbed", " ", "species", 
      " ", "to", " ", "1", " ", "ML"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"physisorb", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Np", "'"}], "[", "t", "]"}], "==", 
      RowBox[{
       RowBox[{"sp", "*", "F", "*", "A2"}], "-", 
       RowBox[{
        RowBox[{"Np", "[", "t", "]"}], "*", "kp"}]}]}]}]}], 
   "\[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.6354426624839973`*^9, 
   3.635442696850754*^9}, {3.64489841251987*^9, 3.644898440026081*^9}, {
   3.644898653692278*^9, 3.644898760104479*^9}, {3.6448991264337053`*^9, 
   3.644899171501934*^9}, {3.646002515150419*^9, 3.646002538030545*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["Np", "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "kp"}], " ", 
    RowBox[{"Np", "[", "t", "]"}]}], "+", 
   RowBox[{"F", " ", "sp", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Ap", " ", 
       RowBox[{"Np", "[", "t", "]"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.546041160958767*^9, 3.5460411732740393`*^9}, {
   3.546041216861188*^9, 3.5460412732127037`*^9}, {3.546041327265106*^9, 
   3.546041415085876*^9}, 3.546041462673644*^9, 3.5460414974686737`*^9, 
   3.546041593678466*^9, 3.546041685484968*^9, {3.5460417554197702`*^9, 
   3.546041771406828*^9}, {3.546041847425962*^9, 3.5460418599824047`*^9}, 
   3.546041906659306*^9, 3.546042033971017*^9, 3.54604212612502*^9, 
   3.5460422269955063`*^9, 3.5460423104497833`*^9, 3.5460423815216417`*^9, 
   3.546042478255501*^9, 3.546042520755836*^9, {3.546042718404578*^9, 
   3.546042742043247*^9}, 3.546043053447414*^9, 3.546054970626151*^9, 
   3.546055531699061*^9, {3.546056616331687*^9, 3.546056626779685*^9}, 
   3.546056738760666*^9, {3.546058242405678*^9, 3.5460582668955717`*^9}, 
   3.5460583075386744`*^9, 3.546058345250922*^9, {3.5460596068863497`*^9, 
   3.5460596340682163`*^9}, 3.5460610129970713`*^9, 3.546061062229313*^9, 
   3.546062488427413*^9, 3.546063446271009*^9, 3.546068130192952*^9, 
   3.546068270801525*^9, {3.5464650214546757`*^9, 3.5464650525822287`*^9}, {
   3.546465102418089*^9, 3.546465138165887*^9}, 3.546476555867*^9, {
   3.546477256226651*^9, 3.546477280519018*^9}, 3.546477411663375*^9, 
   3.546477449617937*^9, 3.546542438559313*^9, 3.548310549047262*^9, 
   3.626908268343809*^9, 3.626916068751648*^9, 3.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.632511805775423*^9, 
   3.632512928542788*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Np", "[", "t", "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{"kp", "+", 
              RowBox[{"Ap", " ", "F", " ", "sp"}]}], ")"}]}], " ", "t"}]]}], 
        ")"}], " ", "F", " ", "sp"}], 
      RowBox[{"kp", "+", 
       RowBox[{"Ap", " ", "F", " ", "sp"}]}]]}]}], "}"}], "}"}]], "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.632511805775423*^9, 
   3.632512930254773*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "plot", " ", "the", " ", "above", " ", "solution", " ", "vs", " ", 
    "time"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{">>>", ">>>", ">>>", ">>>", ">>>", 
    RowBox[{">", " ", 
     RowBox[{"INPUT", " ", "PARAMETERS", " ", 
      RowBox[{"<<", 
       RowBox[{"<<", 
        RowBox[{"<<", 
         RowBox[{"<<", 
          RowBox[{"<<", 
           RowBox[{"<<", 
            RowBox[{"<<", "<<"}]}]}]}]}]}]}]}]}]}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tmin", "=", 
     RowBox[{"10", "^", 
      RowBox[{"-", "9"}]}]}], ";", 
    RowBox[{"tmax", "=", "0.1"}], ";", " ", 
    RowBox[{"(*", " ", "sec", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"k0", "=", 
     RowBox[{"8617332478", "*", 
      RowBox[{"10", "^", 
       RowBox[{"(", 
        RowBox[{"-", "14"}], ")"}]}]}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"Boltzmann", "'"}], "s", " ", "constant", " ", 
      RowBox[{"(", 
       RowBox[{"eV", "/", "K"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"T0", "=", "300"}], ";", " ", 
    RowBox[{"Tg0", "=", "300"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"sample", " ", "&"}], " ", "gas", " ", "temperatures", " ", 
      RowBox[{"(", "K", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"P0", "=", "0.05"}], " ", ";", 
    RowBox[{"(*", " ", 
     RowBox[{"gas", " ", "pressure", " ", 
      RowBox[{"(", "Torr", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Z0", "=", "208.33"}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{"TEOS", " ", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["SiC", "8"], 
         SubscriptBox["H", "20"], 
         SubscriptBox["O", "4"]}], ")"}]}], ";", " ", 
      RowBox[{"mass", " ", "of", " ", "gas", " ", "molecule", " ", 
       RowBox[{"(", "amu", ")"}]}]}], " ", "*)"}], " ", "\[IndentingNewLine]", 
    RowBox[{"sp0", "=", "1"}], ";", 
    RowBox[{"Ap0", "=", "100"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ed0", "=", 
     RowBox[{"510", "/", "1000"}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"(", "eV", ")"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"\[Kappa]p0", "=", 
     RowBox[{"1.0", "*", 
      RowBox[{"10", "^", "13"}]}]}], ";", 
    RowBox[{"(*", " ", 
     SuperscriptBox["s", 
      RowBox[{"-", "1"}]], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{">>>", ">>>", ">>>", ">>>", ">>>", 
      RowBox[{">", " ", 
       RowBox[{"END", " ", "OF", " ", "PARAMETERS", " ", 
        RowBox[{"<<", 
         RowBox[{"<<", 
          RowBox[{"<<", 
           RowBox[{"<<", 
            RowBox[{"<<", 
             RowBox[{"<<", 
              RowBox[{"<<", "<<"}]}]}]}]}]}]}]}]}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    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[{"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[{
      RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", 
      "performs", " ", "parameter", " ", "substitutions"}], " ", "***)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"refreshSubstitutions", ":=", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"sub", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"k", "\[Rule]", "k0"}], ",", 
          RowBox[{"Ed", "\[Rule]", "Ed0"}], ",", 
          RowBox[{"\[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"}]}], "}"}]}], ";"}], "}"}]}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"refreshSubstitutions", ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Plot of coverage vs time:\>\"", ",", "Bold"}], "]"}], "]"}],
    "\[IndentingNewLine]", 
   RowBox[{"Quiet", "[", 
    RowBox[{"LogLinearPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Np", "[", "t", "]"}], "/.", "sol"}], "/.", "sub"}], "]"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Time (s)\>\"", ",", 
         "\"\<Adsorbate concentration (\!\(\*SuperscriptBox[\(\[CapitalARing]\
\), \(-2\)]\))\>\""}], "}"}]}]}], "]"}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.631376858259161*^9, 3.6313768585908813`*^9}, {
  3.631376898600402*^9, 3.631376909266138*^9}, {3.631376944652849*^9, 
  3.63137698383566*^9}, {3.631377040575201*^9, 3.6313771253429203`*^9}, {
  3.631377273498187*^9, 3.631377274787641*^9}, {3.631403569611477*^9, 
  3.631403570111471*^9}, {3.632511921572846*^9, 3.6325119218275213`*^9}, {
  3.632513948273065*^9, 3.6325139495401983`*^9}}],

Cell[BoxData[
 StyleBox["\<\"Plot of coverage vs time:\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{3.631377118418826*^9, 3.6313772787888536`*^9, 
  3.632511819113532*^9, 3.632511922632882*^9, 3.632512933958197*^9, 
  3.632513949972137*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJxF13c4Vv8bOHAyshKyMuIZNo9npRLnrZSsMkNDKVJGpTKS5/FBKkUyGyKr
REZ2lLiNzIYyKqnISFZllO13/H7fq99f53pd533d577f93tch3D0tPWxVRwc
HBOcHBwrz/Yjn0dVypnAd+uMcEzMQ+zY+oKckidMYHyaWldT/BD70xrqaVjK
hNYfPHmk9w8xKQPN0UNFTCgPfVPFksvE9m8IGInPZQJJu9cyMisT6+mSHuZK
Y0K9mgnm9SoLG7Wx/f71GhP+vopL2oPlYGxB1YcnrzLhYNGNpzuO52DCtfOu
81eYcEr/IeYblYNp09MHJS8xISyI2RHRl4OdFZkY2P0fEzaoBNZHR+RiMy9v
9D87xwReX7Ei4+E8jMeopffWQSbIuu5rvzCSj/km9bF4DzBB+2zFE0neAmxw
al7KZx8TQllrz3UrFmCN6Zp7rO2YcK5a0n/QrgCL4Ix8KmSJ52N/XHihrgAT
e24ZG2zIhODVGtJuWYWYIrNzh4c6EzScpCVQfDEWHT7+9aMqEyQ1m+8llRRj
q/p4A4xVmPAh+I+wdmcx1he9qUCJzITdjvZ9I1IlWMbP2/I98kxQsJXQ60wq
wbSyD/yxFWWC/tUPNqVFpZgusfchNsMASaOE19wC5Zg4Kai74Q8DULYD1kAp
x8ZJCqJW0wy4aP47vcqmHEtVcrzgPMGAb34j123ulWN8ah/Nw0YZENOmli6i
8xTr1H77+20PA5qeBV5T8XqGndWv3nqsiQFSnCG2CqKVmDnm5DXewICOD19k
DPUrMWW0fN+vngGrNV5nP3SrxD4a6Atfq8XjlW9/xKytxAx2lPfkPWfA+2u7
0k74V2HCZgWXZgoY4MPxxnyXP2DZDqlvwhMYYKClOmq5pgZzf3TgkNwdPL7S
cKqZSg2mviAxlnOLARu0Qss9ttVgj5KvCbyOw+OLZAzI+dZgWYPndorcYMCb
ITdlk94a7KG30bO4iwwImRqbnK2sxdKjRjKSPBnQo/7ks/WdF9jRbw82UjwY
YBE/Knmi7AVGZDrVVboxgGdpB/+j9y+wtPftvV9dGfCqn0+2RLIeS91QKUc8
woC33z6J/bxZjyXnRMVk7GVARMLWa5opDdjdxo2BjzEGLEzpuha9b8J0nzKH
FPUZEL7lo/AajmasK5thHbOVAQMHbhQ/UG3GZG7QlH02M0CinSM4/kIzlrBX
67UunQFVst+4LhBasNvfyBvqlRhAYBT0Pw54icUtrKvsFmLAlWUu5acubzDm
uJjqHkE83rvg5efxb7D2r6IxVfx4frzz+4Ub3mDrate6pvEygGLCvdVMohWL
uSoofIKDAeUaFhWZF1qxaEmuQ5OTdLjkSAr+af4Wi6ROLPJ/okP6Fdn8M6Jt
2K0WP86bH+mg9CAsf7NWG5biushN/EAHQmQEWdWkDStI5BPS7aADmaFuExzc
hrXzKci4v6HD29smlqSpNkym10ynuZYO3Cd5JQ/0tmMZ0Q9OXcuhw87N+1/a
fe7EHmtqnJXMpsOpyaq1D5Y6sbKGfJ+0LDqYOGq9Iym+x5oWn7GeZtBBf652
vMj5PTbq9u7acAodpM6O2yuPvcfo25czTOPpkFGyviWW/yP2fMLhq0AgHbYv
bA/LcP+EZWiRKv1YdLg2/HHxZ/wnLPLEWGL/BTrsDvOvZVd/wpy+BO+v9KOD
f4jl+PH13Rh386OOM2foIBkrWxzyshszTV1o+eBCh9+U+kaGwRes0yKlLMOM
DhY5ccUH8nuwqmvut9aZ0iGnv5NV3NyDZb5g+gYZ00FCW+W9zkAP5r+1ibF/
Jx3e33I3LpfpxeRUJvLWIDqkLfgcqbjSizkvGT7wptMh+da2oT9u37BfOd+j
t6+nQ3VxRJq2VT9WtflVc6kUHWa3KNzM9urHIusKuTQk6ZCwQDdziOrHNLrZ
PuvW0cHOdURlZ2s/5ioovq9fCO/nWMxqH+sBrNvNQPEyBx2U392tP+M0iDUp
38lr+k4DPXJOt+yDIex2YeB3/UEaFGbcNjZrGcJcMRfFwn4aUNJp70p+D2Hc
dtoxCb00+KRxKkcf/cAMLr3w8fhEg8vilHvEzz+w0r7femve0OC149Z9ceQR
LC3FtMWylAb+qRMzL/vHsK6O0qSvxTTY9F+63uLacUxMkOR1qogGd7NKOjy2
jmPBPvPiEfk0UHmaepondhxzMs051PCIBj7uJ5jMnT+xDVNrJvSTaRDo55wy
tP8XdmfXW2mNMBoIsnbm2g/8xlpZ+iPll2mQaGfIoC3/xvgKs54bX6JBwJUA
bur6Cey8XMhR1xAaNDcnHL63ewKz+03PSWXRQApYw4ZlE5j43TgkfYYG0Uy9
/m9xk1jUuL0rz34acBXVZPCcnMYya/nEfRxoEMKW7YmLnMbgdnl1vx0N/K7f
uemQP4393C4rX2dDg/vNEzWBU9PYnltf2kJ202AsI1TT4r8/mJDBsW0c22gQ
JBx61TT5L3Y1+qzcvAoNThvZWa0XnMP3E6nZXZkGogVz+DE7h5VtbffrItPA
rNVXZOjgHDY0sLGtnECDfbP5tk8ez2HGurNXz8vi8/FTdMHZYR7j7fvv77Qw
Dd6yN3dZlC5gIczr735NUyHocOdv54fLGFdR3fqAKSpcfFf5X1rHMhZKW3Di
maTCvICyntgqDnSJ4vFz/S8qVBRlSc9ROVCYqomQ4TAVXIM4X7lGcaBIOR6j
+C9USFkt59GzlxPd4WaXb2mgQlznYf76hVVI5mIxR90LKoj9CbMNkuZCCZyj
u/bUUWFogY/LmcmFEpf2dx6tpkKoCss7zZML3ZvZPBn+jArrebPIIl+50P3R
Kc0vj6kgKVT4+FMLN8pv90wJuU0Fx72Be8fqeZHU/apt4reoQOi8rxr6nRcF
nhPrexBPhQAP/vMmfKuRmViZUlMMFYqTAmOdTFejQQuu7LXXqTC7uMjX2Loa
ybbcKUkMpoL7np8hTwb50OXq+uZSdyqkPXTcy79FEI1Frfc0dqPCJb3b9/4c
FkS2Tp5ruo5TYa7K3FH2iiAiLItaLrpQoU54h49QpyCq0HPsMDxMBX5Xm8p4
XyH0+8nk11YbKuSnRiaE16xBB/MUp4f1qEB755CptkMEpcuXnXHcSgWnbBN9
Z0cRNBxhMf5mCxW+5trW1fqKID+PwO/FOlRYOHX21lyWCIpR7f4YSKVCS0bk
6E4xUdSYdqtSjEwF7I/k3qvDooh5SzhMV5AKV7y/5Fx+tg4F8GZw5/JTIbai
TGB91zpU46MfrMBHBZUUdKlrZh2ysPW8wM1DhZLMxZ8jOuKonRj3MXFRG768
9Iy2LBFHBlKC6XX92vBzdkH86DMJJM0xu1G8SBuseIf6XoxLofO0jUcp+dow
VK6qZSMqjd4fPRNpnKsNj4ojecSY0ujmix+DrIfakPXoOUvpgjRaF951a+Cu
NvhxXzHO5luPhCUrZktDtUHzuGnZGW0ZxK353/N9dtpQscXux+wDOeTi+OzH
ORtt2ONfFWP8Rg7VRv6ViLTUBvuyLNt3M3Io5PfpUzWm2mB5X/f0bXN5tFzq
pKCBtOGXbg1z5o88mtu2PXhBRRsSZCiqVvYK6Jc9z87kWQqUif1WO0kmIJGm
ZpWAPxT4FmND0kYEpK0bJWA/SYFgwiuWzH4COiUn2yo8RoGIyINmp6IIaLSH
eiCwhwKUK4dNRZcJaMjt4BnHBgq0CV9OYvcTUU9AUZJsPAUmbDlrmt6SEcfY
+aC/0RRwvdwRsHmCjBQOYc5tkRTIJbSofBRTQocMmlTDwyhQZzkcUmCrhLq5
vxbNBVDA9MXGW/VdSujDdYHmj0cp4LXzs2r9L2XUmnzkzy0qBT5YVsRbGamh
ikLH6yFaFNhlIijR46mGHr7YRz6pTgG/vIbYzFg1FDhiZb2dTAHzG2+/DfWq
Ic1N2/NGpSggWpioQg1WR1deE123LWuBq7pQm1KLBsIW+zqGX2kB01zgpfoN
ClIX6fHsaNYCwbVSxzOeU5AEqZsLGrTg+5upkOOjFDRq3E6Lr9aCSu9rr5+Z
aqOEuLrrqEQLFDTFBw/wUNEfjQc74xK1AJHrhjVeUlHuftcSfQ8t2B8RKRvn
S0fucPo/xxNasJ5ZRciJoiNVZX8T9jEtaJVO2jn0iI7Sfod/rjisBT3pzQ9e
faWj22EFPHq2Wvh9YSVibcZAIaULe3X1taDaJSnSU42JHMRi/+is1YLF/ERj
cy4dJHE+EeyEtEBmqIbfhKiD3n1+cM2XXwviS0RtvbbpoN1ZZRtKubRAWf3i
ERSkg7YbfDHaOKMJNzSnLgws6yCtU2q3GL2asFb5mvXF1ZvRquaqTdQiTTA5
1qScskUXBZ22LhPN14SIpIMirCO6aFF8YPNkjiZ0jpQ8j7mqi2YOC+iWZmiC
91mxzDNdumh82lZPL0ETgpVO5S0FbkUfCcMGxsGasDPdxPJemx7K9xc3dbLQ
hOPDvZx7chGiKDxs3mauCRzx3y8pf0You26LGclEE8Qk3W3SeA1QxtrD5oPb
NUHw6sIdtU0GKPFB1h5PHU18fUf39N4xQFfeYjbn5TXh8iwmRHLdhg6puR2M
GtEAflpmI5I1RLkEfpGHQxoQdiVlZnajIVpYn1X7fEADylNyut9bGqK7Aj/U
R75qwIawC57Llw3Rh5ETszvbNcDC44jzqmlDZJN34uZ8hQbMaC8ML77fgYwZ
J1pdIzXgqbprJfczI3Rbgy+UHa4BO4U6GOFdRug7KXNTXJgGbNp5aUl3zghd
Fh+6Vx2iAXeU11pJ6e5CtdPHT8r5acCn+t8Kjc92IazsuMC7wxrA578tgNlg
jBj6x3fo0zRgR2CKx41lU7TdJypPgqIB0o/ListVzJB1brn0uLoGtJ7VeSFr
aYa85IXG7pHx/EumDMJSzVDeYn48h7QGPMja38K/yxypV84N1i6pQ/Z08qeh
xN34CRB51fSlOkgUpztN61oiqt+TSWKTOoTYyZs2WFsig8c9jvMv1GGnAPeu
cndLdEiBQc+pUodaiU3cSwmWKHH5fdeaInUYzni8W3jREkkDQfPtHXWoTJvT
O9FghdZuK3ltf1wdKGaaOpM+NmhYRmIMc1GHVXxca65E26D6KW9B5SPqkC6V
Nq2fa4NYmUzjqf3qMOgpFygxgI9fW1wdtUcdbmpu/3vKzhbVfyksbtqoDsnf
beE72otYrPyErdzqcM/bf8cbij1ysBMpJ3Kqg1yn/U4uC3vEoHq9519SA19H
G9NDp+3RcJ+2+Ie/aqAu9OvD1Xx7ZG/2+Lr3iBrcjn1u9pTpgOgyeUG579RA
sGpQPWHHPjT0JNtVIVUNGgofHpe5eADF90uXbb2nBvuKpI70PziAtote5ne4
qwZtIzV72hoPoCR3p5yoeDUITPbcq7j2ILKWl5jgvKYGTmtuavgnHUQVIYHs
/rNqsKypq6FT7YiidlvFZe1QA3oj+UqWmBPa0venmjGkCoqH7kacLjiKMizG
mkQHVCHgaubPiKajSLyi7+3PXlUYfrK/qLr3KBqPa+3N/qQKevduHjgj5ozu
Gz3iJL9RBaYXl+QPb2ck8shxm3ipKkisk7LZjLmgQa86mLqoCoVPvvgxvx1D
MUvRVSUKqrAk9XvU+KQbcn4dHBTqogKrbfllHrt7IZqojAVHrjIIKJ88QTXz
RgsFn6f6spTByLWPNnTAGzVapyY0ZCgDZfWmzLue3uhQnOpgZIoyeDgMf5u6
7o0ipDax5eOUAevUZHu0eqNBedts3QBlIFlwmxjY+qBE9cjVPibKsCSvp69n
54tOtFjlOhgpg45/0SlhV1/E8JSw0TNUBt9qi6OdPr6oOTfxHpe+MjBPy74z
ivdFf6nZG2OoypB79trD+22+yHpTo/NjKWWw28ipqLHHD63esQp+DCjBjb/Z
5qQt59H9TW23V/UpgW+Hs+JRo/Nou8b9M7I9SgBHjpNibc4jlpgRaXeXElyP
NqC3nDyPfvVcvZz/Wglcx1q/3Eg9j7rYorv9nihBLE9ajQWvP8p7otjFfVUJ
Erx+OHyu9Udm2b8L5S8rQUHroI/KG380dK8mXOeiEpjoG2526vJHpMsu+ifY
SqAg8Hlv0i9/dNs2M6XljBKoCJzKNpS7gN/v2sdj9isB/6tdq6heF9BeDTSl
oKkE6zoy4mQFAlDhoTsX51SVQG2Wa8/HdQFIJGZSrENJCe4HOEYEyQeg5pmH
tGsKShB9/hA7nBqADOpFTk+JKUHyr8rUmL0BSP3Itx+Ns2TIoNwTdbkbgMLi
9PzT/5Ahcwv33bL0ADTQcJMvcJIMFu/n7vzJDkApFDMVxhgZ1q5xEtGuCEAS
C0UuST1kkBD2Loj5FIA4bl36eqaBDE+yuga0JFnIsfnrKfM6Mizea6BskGeh
p4tblpSryTBw1S5jhsRCPi7jct1PyTB6dIO7J42Fhmn2+43yyOCab+5uZcZC
HS9VO2TiyZA6feclOYCF6BwXXaajyfAw5MxSdRALRTE+T76JJANho1Sb6WUW
Mk2IFrsURobvjd8/KESzEByfs/gZQIZXFWP3ux6w0KNVL5trj+L53gy9/riF
hdreHxTOPUyGnb5T1pytLLSQM2Z18yAZEgQO+mxrZyEL+7UfT9iRYUKo89D1
bhaayrb+vsaUDEtHip/aj7LQhuA+9b9GZBDXUD6g+IuFdtl5n+oxJAPvoSH2
h0kWSuC4OV2oT4bAhKQ+qXkWQns/cjnQyDCeteHMez42OqHuvmsbhQymm8Sc
FYXYKGZ57pq6Bhn8kbro/rVs1J8lJ7ZIJkOEi4dhigQbXVs6rJgmTYZJpzxf
FoGN2h8O6o0uk8B7i5nFbR02WmT5BXUskICXkGjOsYWNlK356ipnSRA68S7p
wFY28l9QM4ueJMGkbln/KGKjDVYn9+l8J0GUZmxqoDEb7VJeSlToJ8EuouCn
S6Zs5DUf2cPXSwIPv8DyYHM2qn2Qf/xTFwlexf0UcrDE85+b9Al6TYJ454yk
i/ZsFP0mtNythQQnX0ndYO5jo6f3JRatG0nwVObdmU/72WiNxaZQpRoSMPMS
8wQPsVFh+oWY5hL8/Zmb5+ac2aj7vGBnUSEJ8jy9Dh0+xkY8exLXJz0mwVbp
c6xnrmzkMPM85XQW/r0tOeP73PB6zTkfiyeRYO76+UHGKTaa8U5WYiSQ4Ltw
nK3haTaaStRPtLpFAna1Dsnci42GR/2vRkaT4LqCwH7Ts2zUGTHhzHeZBKtj
FU4s+LDR2+KoLuWLJMj02yHZ5ctGL7spVjuDSOB1+7RwoR9ev6YHFnKBBNsE
Ms2t/Nko/2Wf9MIpEpS2vVm2YLFR9lTwDRlPEoxU05ZXsdkoQ06Rd4sbCZbW
jykW4E70PDjp40yCTYUy9OVANroq1PHqpz0Jptlkk2PBbBTKPLdDeC8JYuoY
slO4gw6KPtO0JoGxx9qOwBA28s3ZnelmToJhXn7HsItsdNS8PqTPgASFxmd1
Tl1iI0dvl1lOjAS3NgRVf8HtkLjKS3ErCbpIXwfMLrORxSjm6LiRBLdpprvl
rrCRqfjntgA6CRw/Dpb9h9tIL8A0QZsEe/C/5h7cehFPNr1XI8FYsGDjrTA2
2lS8N29amQTPz0ha/cRN754ki5Px91pJIjuuspGqJlXMagMJtO9nBwzglniZ
OdosRoLsjxKj/OFsJDJl5PxjLQlyB4MlduMWkhv4uHoNCVChy9J13Ks8CQ07
VpMg7QllN38E3t/YKn1nbhLMON9/a4h75pljcTAnCcor8qxZuMcFE1Ir54mw
oWJv6HfcPxibpT/PEGHmmKKVzHV8/xzojJyfJsL+xW5rM9yfssVYm38RIa5i
n3om7kazcLvCfiL0yLdf3xPJRheLCi/G9BJhyNXrmh9uTLYr/+wXIuyZ+Nhz
D3fJsKog4wMRZPZcbBvC7WVtuXldBxFO5ImHC95gI82nfscm3xKB+Vu6TRN3
2tX6qqIWIoh83bnLA7fj77HR2EYiJIXMh4fhlt4nIeP9ggibkw1i7uO+oeri
zawigmT0tMhH3KZR4aniFUR4JOaQ/Bs370zh66kyIngr0WX5o9iI1cCpVlKI
1/+2lWsj7k3aanbxj4lwr3h9qAnuiZuWF31yiCB9fUDaEbeba/LnjRlE4Hw6
nB6Mm/y6XkAyHa+nzTU7BnfPxvFNf5KJ0KY//iMNtx2PfkzpHSKwiis1qnGL
nXSpunmTCPdVdbA3uF+1h4/6xhLh5nXpjG7cO+53GW26TgSXyXfR07iXBVd5
S10jwt2e30TOaPw8OKeW+vcyEXodhMhCuGmG5+efBBFhKtIuUhH36KNk1dts
IrS8FOVSx50p1rD3/AUiFG//tkTHveGbRP5mb3x8Y1aKIe4uE/3P0meIUF50
19IMd3yBi8DsSSKYyd+9a41bKLjIpfw4EUwWQdwJd8NQV/QdFyKUVF0wc8Ud
Yrmqyv8IETwEPCieuGcVrNbrHiDCr6+2fH64i6+cN5JxIMKcbiovC7fXz+Rz
c7Z4PoIvq4JwD1aOv3q6hwgBn9pPX8Wdqiw5n2BGhL+zPzyv4z4Yqa8aYEwE
NLGbFo27zTEiZOt2IlDuisnexh35ouixLMLXm2DBzru4TbU+dc9vJYLUO9nt
93DDgtqmio1EWJpLLk/HHeBi5ZJIJ4K2j/yWDNw6L89Hs7SJcG4HLTYT9wQj
pfKgJhHmm1qbHuHOvdswoqdGBIXCri85uE9w/ZSWVybCmyap9jzcZA9Jo0Ui
ESpfb83Ox52geyzluRwRdHjTeYpxq0zf4WhbT4TZ3rKzJSvz8fi105AkEdw2
v2guxb3Nnat6cR0R2q98FS7D/Zq8mbBOlAhqyWIG5bgPfPUMVhUmgry04+Gn
uIfupPbqC+L781XByWe4udYKpp3gIcKI3ZoDz3FHNaFVgavw/aRSu7Vypd+h
3kdjlwmwh/ebcBXubCyrJnOBAPwJqh0r3jz7mVg5SwB1C/MbgPtFkdjFtj8E
6Cqb1a/GbX1qV9/QJAHMx9t7V+zZl5++bpwAMU0swdqVficNcKmNEOCXlXvM
ii87yLhgQwRoEW0UqcMtvs6izmaAAP81il9Zceqri2S3bwRoym2cXjElrCw0
8CsBUp7tdXyBu2L7WH9sNwFOT6tUrrjzid2Dyk4C1NRqn6zH7Xw2nKe9jQBR
o4SKFf/ShGM/Wgmg+/0dTwNu9vepF0uvCJBREWe6YoE0NWXxFjzfv8XXVnzr
4KHLao0EsPrEql8xWSp2EHtBAM/btKUVo4iFDLcqfD6ozkcbcb80oq3+r4IA
n5vtb6x4P6fr8bhyAuyWUStf8fdnCQ1ZpQT4USXQs2Jv3zcqVUV4fge1uJtw
c9K4w9rzCdD/pFJpxZEjm4d+5BLg58CPHSvOdErLFM8kwINDuawVb5R9z6f+
gABh4TfiV1zTIeiG0ggweCM5Z8WWUQZNtskEEJ5fqF7xZ1MfNfdEAsi7v+hY
8UzVlx9xNwkgkc89u2KxjcaPqqIIYL1bRaoZt5GCrIbEJQKUjdQZrTiAfzzb
3Z8AhbOabivOnwRNOEmApebO4BX3f47NlThKgKHqw7Er5nNb1r3NS4CsYKXy
FWtMuTfKZCvCtoUnT1ds7bek3L5LEfiG4P96cookKNukAP5//5+b36mstqpV
gID/OSVfg+vKcwVg/c/mnoz5iQIFYP/P9/u2jzQnKEDQ/2z37kjLBU8FCPmf
nz5ODu9a+/8d5C4rlGC34Z/loNBqqk7unzMDJ+WHdsv+szbpEo/Ol/X//OJh
Ke2whfQ/m8VH9xM+Sf5zz1Gh7qpdEv98WvLD+JNn6/55nL47zMRU7J/Z2kdd
S8tF/vmv2rab/leE/3kYDt/UfST4z/NSlQqFkXz/PGZwuvRgJs8/x9SYW68W
4P5nnR3q4wUeq/75/wCAPf4F
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-22.565333460222934`, Automatic},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& ), "CopiedValueFunction" -> ({
      Exp[
       Part[#, 1]], 
      Part[#, 2]}& )},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"Adsorbate concentration \
(\\!\\(\\*SuperscriptBox[\\(\[CapitalARing]\\), \\(-2\\)]\\))\"", 
      TraditionalForm], None}, {
     FormBox["\"Time (s)\"", TraditionalForm], None}},
  FrameTicks->FrontEndValueCache[{{Automatic, Automatic}, {
      Charting`ScaledTicks[{Log, Exp}], 
      Charting`ScaledFrameTicks[{Log, Exp}]}}, {{
     Automatic, Automatic}, {{{-16.11809565095832, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         TemplateBox[{"10", 
           RowBox[{"-", "1"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
         TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-20.72326583694641, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}, {{-16.11809565095832, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-9.210340371976182, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-2.3025850929940455`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {-23.025850929940457`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-20.72326583694641, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-13.815510557964274`, 
        FormBox[
         InterpretationBox[
          StyleBox[
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {-6.907755278982137, 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}, {0., 
        FormBox[
         InterpretationBox[
          StyleBox[
           
           GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
            Baseline], "CacheGraphics" -> False], 
          Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, {
         AbsoluteThickness[0.1]}}}}}],
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{-22.565333460222934`, -0.46051746971752094`}, {
   7.025164706741386*^-7, 0.007219116127144322}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{
    Charting`ScaledTicks[{Log, Exp}], Automatic}]], "Output",
 CellChangeTimes->{3.631377118628532*^9, 3.631377278852591*^9, 
  3.6325118191875763`*^9, 3.632511922882368*^9, 3.632512934308351*^9, 
  3.632513950138582*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Export", " ", "Np", " ", "vs", " ", "t", " ", "for", " ", "a", " ", 
     "log"}], "-", 
    RowBox[{"linear", " ", "plot"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"FORMAT", ":", " ", 
     RowBox[{
     "a", " ", "header", " ", "containing", " ", "column", " ", "names"}]}], 
    ",", " ", 
    RowBox[{"followed", " ", "by", " ", "the", " ", "data"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"numberOfPoints", "=", "100"}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{
     "number", " ", "of", " ", "datapoints", " ", "per", " ", "column"}], " ",
      "*)"}], "\[IndentingNewLine]", 
    RowBox[{
    "path", "=", 
     "\"\</Users/milostoth/Documents/Literature/Papers/026 FEBIP modeling \
review/data/outputs/\>\""}]}], "\[IndentingNewLine]", 
   RowBox[{"stmp", "=", 
    RowBox[{"OpenWrite", "[", 
     RowBox[{"StringJoin", "[", 
      RowBox[{"path", ",", "\"\<Np_vs_t.dat\>\""}], "]"}], "]"}]}], 
   RowBox[{"(*", " ", 
    RowBox[{"open", " ", "file", " ", "to", " ", "export", " ", "to", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"existing", " ", "file", " ", "over"}], "-", "written"}], 
      ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"WriteString", "[", 
     RowBox[{"stmp", ",", "\"\<t\\tNp\\n\>\""}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{"(*", " ", 
      RowBox[{"loop", " ", "through", " ", "all", " ", "rows"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{
         RowBox[{"10.0", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Log10", "[", "tmax", "]"}], "-", 
               RowBox[{"Log10", "[", "tmin", "]"}]}], ")"}], "/", 
             "numberOfPoints"}], "*", "x"}], ")"}]}], "*", "tmin"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{"a", ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"b", "=", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Np", "[", "t", "]"}], "/.", "sol"}], "/.", "sub"}], "/.", 
           RowBox[{"t", "\[Rule]", "a"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"WriteString", "[", 
        RowBox[{"stmp", ",", 
         RowBox[{"ScientificForm", "[", 
          RowBox[{"b", ",", "10", ",", 
           RowBox[{"NumberFormat", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{"#1", ",", "\"\<e\>\"", ",", "#3"}], "}"}], "]"}], 
              "&"}], ")"}]}]}], "]"}], ",", "\"\<\\t\>\""}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"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.632511851654104*^9, 3.632511901490556*^9}, {
   3.6325119368328953`*^9, 3.6325119586873617`*^9}, 3.632512031148129*^9, {
   3.632512109353896*^9, 3.63251217986307*^9}, {3.632512217929778*^9, 
   3.63251225377297*^9}, {3.632512349711542*^9, 3.632512366031115*^9}, {
   3.6325124645817213`*^9, 3.6325124751686707`*^9}, {3.632512686070828*^9, 
   3.6325126862506037`*^9}, {3.63251278511128*^9, 3.63251278983045*^9}, {
   3.6325128244517117`*^9, 3.6325128601797457`*^9}, {3.6325129659833517`*^9, 
   3.6325129923899193`*^9}, {3.6325130287072573`*^9, 3.632513059583434*^9}, {
   3.632513122191264*^9, 3.632513155923986*^9}, {3.632513192070652*^9, 
   3.632513194622179*^9}, {3.632513225550433*^9, 3.632513303810164*^9}, 
   3.632513344640183*^9, {3.632513377330187*^9, 3.6325133899641037`*^9}, {
   3.6325134526016703`*^9, 3.632513468504504*^9}, {3.6325135124804487`*^9, 
   3.6325135307045794`*^9}, 3.632513585540854*^9, 3.632513619970242*^9, {
   3.632513753714279*^9, 3.632513757455965*^9}, {3.632513804015312*^9, 
   3.632513912385374*^9}, {3.632513961167954*^9, 3.632513961272711*^9}}],

Cell[BoxData["\<\"/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/\"\>"], "Output",
 CellChangeTimes->{
  3.632511969718539*^9, 3.632512033907566*^9, 3.6325121210671787`*^9, {
   3.632512157562673*^9, 3.632512180766201*^9}, 3.6325122237315807`*^9, 
   3.632512265794677*^9, {3.632512355786499*^9, 3.6325123671185083`*^9}, {
   3.6325124761023703`*^9, 3.63251249951388*^9}, 3.632512860867301*^9, 
   3.632512937791651*^9, 3.632512993393718*^9, {3.632513032177946*^9, 
   3.6325130411112823`*^9}, 3.632513071244501*^9, 3.632513123343162*^9, 
   3.6325131566622477`*^9, 3.632513196179655*^9, {3.63251322690899*^9, 
   3.632513268111217*^9}, 3.632513304726791*^9, 3.6325133454131413`*^9, 
   3.632513390875269*^9, {3.632513455311839*^9, 3.632513469710896*^9}, 
   3.632513533628642*^9, 3.632513623844998*^9, {3.6325138930294313`*^9, 
   3.63251391280205*^9}, 3.6325139622136374`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["OutputStream",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False}, 
    PanelBox[
     PaneSelectorBox[{False->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquarePlusIconMedium"],
            ImageSizeCache->{15., {0., 15.}}],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = True),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              StyleBox[
               PaneBox["\<\"Np_vs_t.dat\"\>",
                BaselinePosition->Baseline,
                ContentPadding->False,
                FrameMargins->0,
                ImageSize->{{1, 300}, Automatic},
                StripOnInput->True],
               LineBreakWithin->False],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["184",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True->GridBox[{
        {
         PaneBox[
          ButtonBox[
           
           DynamicBox[FEPrivate`FrontEndResource[
            "FEBitmaps", "SquareMinusIconMedium"]],
           Appearance->None,
           ButtonFunction:>(Typeset`open$$ = False),
           Evaluator->Automatic,
           Method->"Preemptive"],
          Alignment->{Center, Center},
          
          ImageSize->
           Dynamic[{
            Automatic, 3.5 CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
             Magnification]}]], 
         GraphicsBox[
          {Thickness[0.0016806722689075631`], 
           {FaceForm[{GrayLevel[0.93], Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {RGBColor[0.699951, 0.699951, 0.699951], Opacity[1.], 
            JoinForm[{ElisionsDump`Miter, 10.}], 
            JoinedCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 
             3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{25.499999999999996`,
              2.5}, {25.499999999999996`, 1.3953100000000003`}, {
             24.604699999999998`, 0.49999999999999994`}, {23.5, 
             0.49999999999999994`}, {2.5, 0.49999999999999994`}, {
             1.3953100000000003`, 0.49999999999999994`}, {
             0.49999999999999994`, 1.3953100000000003`}, {
             0.49999999999999994`, 2.5}, {0.49999999999999994`, 23.5}, {
             0.49999999999999994`, 24.604699999999998`}, {1.3953100000000003`,
              25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
             25.499999999999996`}, {24.604699999999998`, 
             25.499999999999996`}, {25.499999999999996`, 
             24.604699999999998`}, {25.499999999999996`, 23.5}, {
             25.499999999999996`, 2.5}}}]}, 
           {FaceForm[{RGBColor[0.5, 0.5, 0.5], Opacity[1.]}], 
            FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 
             1, 0}, {1, 3, 3}, {1, 3, 3}}}, {{{3.52539, 
             1.0035199999999997`}, {2.5250000000000004`, 
             1.0035199999999997`}, {1.6828099999999997`, 
             1.0035199999999997`}, {0.9999999999999999, 
             1.6863299999999997`}, {0.9999999999999999, 
             2.5285199999999994`}, {0.9999999999999999, 
             23.474999999999998`}, {0.9999999999999999, 
             24.317199999999996`}, {1.6828099999999997`, 
             24.999999999999996`}, {2.5250000000000004`, 
             24.999999999999996`}, {3.52539, 24.999999999999996`}, {3.52539, 
             24.999999999999993`}, {5.523440000000001, 22.421099999999996`}, {
             5.523440000000001, 13.0039}, {5.523440000000001, 
             3.5867199999999992`}, {3.52539, 1.0035199999999997`}, {3.52539, 
             1.0035199999999997`}}}], 
            FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 
             1, 0}, {0, 1, 0}}}, {{{22.4977, 12.9016}, {17.740599999999997`, 
             16.8398}, {17.740599999999997`, 14.856599999999998`}, {
             19.980900000000002`, 12.947299999999997`}, {17.740599999999997`, 
             10.946100000000001`}, {17.740599999999997`, 8.96289}, {22.4977, 
             12.9016}}}]}, 
           {FaceForm[{RGBColor[
            0.46093800000000007`, 0.46093800000000007`, 0.46093800000000007`],
             Opacity[1.]}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             9.202339999999998, 12.8969}, {9.202339999999998, 
             12.335499999999998`}, {8.747660000000002, 11.880899999999999`}, {
             8.186329999999998, 11.880899999999999`}, {7.624999999999999, 
             11.880899999999999`}, {7.169920000000001, 12.335499999999998`}, {
             7.169920000000001, 12.8969}, {7.169920000000001, 
             13.458200000000003`}, {7.624999999999999, 13.9133}, {
             8.186329999999998, 13.9133}, {8.747660000000002, 13.9133}, {
             9.202339999999998, 13.458200000000003`}, {9.202339999999998, 
             12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             12.6227, 12.8969}, {12.6227, 12.335499999999998`}, {
             12.167599999999998`, 11.880899999999999`}, {11.606200000000001`, 
             11.880899999999999`}, {11.0449, 11.880899999999999`}, {
             10.589799999999999`, 12.335499999999998`}, {10.589799999999999`, 
             12.8969}, {10.589799999999999`, 13.458200000000003`}, {11.0449, 
             13.9133}, {11.606200000000001`, 13.9133}, {12.167599999999998`, 
             13.9133}, {12.6227, 13.458200000000003`}, {12.6227, 12.8969}}}], 
            FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{
             16.042600000000004`, 12.8969}, {16.042600000000004`, 
             12.335499999999998`}, {15.587499999999999`, 
             11.880899999999999`}, {15.026199999999998`, 
             11.880899999999999`}, {14.464799999999997`, 
             11.880899999999999`}, {14.010199999999998`, 
             12.335499999999998`}, {14.010199999999998`, 12.8969}, {
             14.010199999999998`, 13.458200000000003`}, {14.464799999999997`, 
             13.9133}, {15.026199999999998`, 13.9133}, {15.587499999999999`, 
             13.9133}, {16.042600000000004`, 13.458200000000003`}, {
             16.042600000000004`, 12.8969}}}]}},
          AspectRatio->1,
          Axes->False,
          Background->GrayLevel[0.5],
          Frame->True,
          FrameStyle->Directive[
            Thickness[Tiny], 
            GrayLevel[0.7]],
          FrameTicks->None,
          ImageSize->{Automatic, 
            Dynamic[
            3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
              Magnification])]}], GridBox[{
           {
            RowBox[{
             TagBox["\<\"Name: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              
              PaneBox["\<\"/Users/milostoth/Documents/Literature/Papers/026 \
FEBIP modeling review/data/outputs/Np_vs_t.dat\"\>",
               BaselinePosition->Baseline,
               ContentPadding->False,
               FrameMargins->0,
               ImageSize->{{1, 500}, Automatic},
               StripOnInput->True],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Unique ID: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["184",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Binary: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["False",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Open: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox[
              DynamicBox[ToBoxes[Options[
                  OutputStream[
                  "/Users/milostoth/Documents/Literature/Papers/026 FEBIP \
modeling review/data/outputs/Np_vs_t.dat", 184]] =!= {}, StandardForm],
               UpdateInterval->1],
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Encoding: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Format: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["InputForm",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Page width: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["78",
              "SummaryItem"]}]},
           {
            RowBox[{
             TagBox["\<\"Number marks: \"\>",
              "SummaryItemAnnotation"], "\[InvisibleSpace]", 
             TagBox["Automatic",
              "SummaryItem"]}]}
          },
          AutoDelete->False,
          
          BaseStyle->{
           ShowStringCharacters -> False, NumberMarks -> False, 
            PrintPrecision -> 3, ShowSyntaxStyles -> False},
          GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
          
          GridBoxItemSize->{
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
          GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]}
       },
       AutoDelete->False,
       BaselinePosition->{1, 1},
       GridBoxAlignment->{"Rows" -> {{Top}}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[
      Typeset`open$$],
      ImageSize->Automatic],
     BaselinePosition->Baseline],
    DynamicModuleValues:>{}], "]"}],
  OutputStream[
  "/Users/milostoth/Documents/Literature/Papers/026 FEBIP modeling \
review/data/outputs/Np_vs_t.dat", 184],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{
  3.632511969718539*^9, 3.632512033907566*^9, 3.6325121210671787`*^9, {
   3.632512157562673*^9, 3.632512180766201*^9}, 3.6325122237315807`*^9, 
   3.632512265794677*^9, {3.632512355786499*^9, 3.6325123671185083`*^9}, {
   3.6325124761023703`*^9, 3.63251249951388*^9}, 3.632512860867301*^9, 
   3.632512937791651*^9, 3.632512993393718*^9, {3.632513032177946*^9, 
   3.6325130411112823`*^9}, 3.632513071244501*^9, 3.632513123343162*^9, 
   3.6325131566622477`*^9, 3.632513196179655*^9, {3.63251322690899*^9, 
   3.632513268111217*^9}, 3.632513304726791*^9, 3.6325133454131413`*^9, 
   3.632513390875269*^9, {3.632513455311839*^9, 3.632513469710896*^9}, 
   3.632513533628642*^9, 3.632513623844998*^9, {3.6325138930294313`*^9, 
   3.63251391280205*^9}, 3.632513962226356*^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, 13190, 233, 351, "Input"],
Cell[13615, 250, 2235, 39, 36, "Output"],
Cell[15853, 291, 2434, 45, 64, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18324, 341, 6164, 161, 502, "Input"],
Cell[24491, 504, 274, 6, 26, "Print"],
Cell[24768, 512, 16418, 327, 308, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41223, 844, 5094, 121, 386, "Input"],
Cell[46320, 967, 917, 13, 45, "Output"],
Cell[47240, 982, 18717, 375, 97, "Output"]
}, Open  ]]
}
]
*)