(*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 0, 0] NotebookDataLength[ 109592, 2351] NotebookOptionsPosition[ 108442, 2310] NotebookOutlinePosition[ 109000, 2330] CellTagsIndexPosition[ 108957, 2327] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", StyleBox[ RowBox[{ RowBox[{"NOTE", ":", " ", RowBox[{"FOR", " ", "SIMPLICITY"}]}], ",", " ", RowBox[{ RowBox[{"INITIAL", " ", "COVERAGE"}], " ", "=", " ", RowBox[{"0", " ", RowBox[{"(", RowBox[{"when", " ", "beam", " ", "is", " ", "turned", " ", "on"}], ")"}]}]}]}], FontColor->RGBColor[1, 0, 0]], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", StyleBox[ RowBox[{"(", RowBox[{ "inital", " ", "coverages", " ", "can", " ", "be", " ", "calculated", " ", "by", " ", "setting", " ", "f0", " ", "to", " ", "zero"}], ")"}], FontColor->RGBColor[1, 0, 0]], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "This", " ", "code", " ", "was", " ", "tested", " ", "using", " ", "Mathematica", " ", "v", " ", "10.0", ".1", ".0", " ", RowBox[{"(", RowBox[{"Platform", ":", " ", RowBox[{"Mac", " ", "OS", " ", "X", " ", "x86", " ", RowBox[{"(", RowBox[{ RowBox[{"32", "-", " ", "bit"}], ",", " ", RowBox[{"64", "-", " ", RowBox[{"bit", " ", "Kernel"}]}]}], ")"}]}]}], ")"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Documentation", " ", "in", " ", "the", " ", RowBox[{ "paper", ":", " ", "\"\\""}]}], " ", "*)"}], "\[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[{"**", " ", "INPUT"}], " ", "PARAMETERS"}], " ", "***)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"L0", "=", "50.0"}], ";", " ", RowBox[{"(*", RowBox[{"defines", " ", "beam", " ", "radius", " ", RowBox[{"(", RowBox[{ RowBox[{ "see", " ", "equations", " ", "for", " ", "Gaussian", " ", "and", " ", "top"}], "-", RowBox[{"hat", " ", "beams", " ", "below"}]}], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Beta]0", " ", "=", "30"}], ";", RowBox[{"(*", RowBox[{ RowBox[{"abruptness", " ", "of", " ", "top"}], "-", RowBox[{"hat", " ", "beam"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"f00", "=", RowBox[{"6", "*", RowBox[{"10", "^", "4"}]}]}], ";", RowBox[{"(*", " ", RowBox[{"electron", " ", "flux", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[CapitalARing]", RowBox[{"-", "2"}]], SuperscriptBox["s", RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tmin", "=", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "7"}], ")"}]}]}], ";", RowBox[{"tmax", "=", "1"}], ";", " ", RowBox[{"(*", " ", "sec", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"rmin", "=", "0.001"}], ";", RowBox[{"rmax", "=", RowBox[{"L0", "*", "30"}]}], ";", RowBox[{"(*", RowBox[{"(", "\[CapitalARing]", ")"}], "*)"}], "\[IndentingNewLine]", RowBox[{"k0", "=", RowBox[{"8617332478", "*", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "14"}], ")"}]}]}]}], ";", RowBox[{"(*", " ", RowBox[{"eV", "/", "K"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"T0", "=", "285"}], ";", " ", RowBox[{"Tg0", "=", "290"}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{"sample", " ", "&"}], " ", "gas", " ", "temperatures", " ", RowBox[{"(", "K", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Pb", "=", "1.0"}], ";", RowBox[{"(*", " ", RowBox[{"EBIE", " ", "precursor", " ", "gas", " ", "pressure", " ", RowBox[{"(", "Torr", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Pc", "=", "0.01"}], ";", RowBox[{"(*", " ", RowBox[{"EBID", " ", "precursor", " ", "gas", " ", "pressure", " ", RowBox[{"(", "Torr", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"mb0", "=", "18.015"}], ";", " ", RowBox[{"(*", " ", RowBox[{ "mass", " ", "of", " ", "EBIE", " ", "precursor", " ", "gas", " ", "molecule", " ", RowBox[{"(", "amu", ")"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"mc0", "=", "128.26"}], ";", " ", RowBox[{"(*", " ", RowBox[{ "mass", " ", "of", " ", "EBID", " ", "precursor", " ", "gas", " ", "molecule", " ", RowBox[{"(", "amu", ")"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"sb0", "=", "1"}], ";", RowBox[{"(*", RowBox[{"EBIE", " ", "precursor", " ", "sticking", " ", "coefficient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"sc0", "=", "0.4"}], ";", RowBox[{"(*", RowBox[{"EBID", " ", "precursor", " ", "sticking", " ", "coefficient"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Ab0", "=", "10.51"}], ";", RowBox[{"(*", RowBox[{ "area", " ", "of", " ", "EBIE", " ", "precursor", " ", "gas", " ", "molecule", " ", RowBox[{"(", SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Ac0", "=", "74"}], ";", RowBox[{"(*", RowBox[{ "area", " ", "of", " ", "EBID", " ", "precursor", " ", "gas", " ", "molecule", " ", RowBox[{"(", SuperscriptBox["\[CapitalARing]", "2"], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]\[Beta]0", "=", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{"x", "-", RowBox[{ "section", " ", "for", " ", "dissociation", " ", "of", " ", "EBIE", " ", "precursor", " ", "molecules", " ", RowBox[{"(", SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]\[Gamma]0", "=", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{"x", "-", RowBox[{ "section", " ", "for", " ", "dissociation", " ", "of", " ", "EBID", " ", "precursor", " ", "molecules", " ", RowBox[{"(", SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]r0", "=", "Ac0"}], ";", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"reaction", " ", "x"}], "-", RowBox[{"section", " ", "1", " ", RowBox[{"(", SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Sigma]rD0", "=", "Ac0"}], ";", " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"reaction", " ", "x"}], "-", RowBox[{"section", " ", "2", " ", RowBox[{"(", SuperscriptBox["\[CapitalARing]", "2"], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Eb0", "=", "0.56"}], ";", RowBox[{"(*", " ", RowBox[{"EBIE", " ", "precursor", " ", "adsorption", " ", "energy", " ", RowBox[{"(", "eV", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Ec0", "=", "1.0157"}], ";", RowBox[{"(*", " ", RowBox[{"EBID", " ", "precursor", " ", "adsorption", " ", "energy", " ", RowBox[{"(", "eV", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Kappa]b0", "=", RowBox[{"1.0", "*", RowBox[{"10", "^", "16"}]}]}], ";", RowBox[{"(*", " ", SuperscriptBox["s", RowBox[{"-", "1"}]], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Kappa]c0", "=", RowBox[{"1.0", "*", RowBox[{"10", "^", "16"}]}]}], ";", RowBox[{"(*", " ", SuperscriptBox["s", RowBox[{"-", "1"}]], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"n\[Beta]0", "=", RowBox[{"n\[Gamma]0", "=", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EDb0", "=", "0.13"}], ";", RowBox[{"(*", RowBox[{"EBIE", " ", "precursor", " ", "diffusion", " ", "barrier", " ", RowBox[{"(", "eV", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"EDc0", "=", "0.27"}], ";", RowBox[{"(*", RowBox[{"EBID", " ", "precursor", " ", "diffusion", " ", "barrier", " ", RowBox[{"(", "eV", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Kappa]Db0", "=", RowBox[{"10", "^", "13"}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{ "EBIE", " ", "precursor", " ", "diffusion", " ", "coefficient", " ", "pre"}], "-", RowBox[{"factor", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[CapitalARing]", "2"], SuperscriptBox["s", RowBox[{"-", "1"}]]}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Kappa]Dc0", "=", RowBox[{"6.5", "*", RowBox[{"10", "^", "12"}]}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{ "EBID", " ", "precursor", " ", "diffusion", " ", "coefficient", " ", "pre"}], "-", RowBox[{"factor", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[CapitalARing]", "2"], SuperscriptBox["s", RowBox[{"-", "1"}]]}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Vc0", "=", "3.2"}], ";", RowBox[{"(*", " ", RowBox[{"volume", " ", "of", " ", "deposited", " ", "atom", " ", RowBox[{"(", SuperscriptBox["\[CapitalARing]", "3"], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{">>>", ">>>", ">>>", ">>>", ">>>", RowBox[{">", " ", RowBox[{"END", " ", "OF", " ", "PARAMETERS", " ", RowBox[{"<<", RowBox[{"<<", RowBox[{"<<", RowBox[{"<<", RowBox[{"<<", RowBox[{"<<", RowBox[{"<<", "<<"}]}]}]}]}]}]}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", "performs", " ", "parameter", " ", "substitutions"}], " ", "***)"}], "\[IndentingNewLine]", RowBox[{"refreshSubstitutions", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"sub", "=", RowBox[{"{", RowBox[{ RowBox[{"k", "\[Rule]", "k0"}], ",", RowBox[{"Eb", "\[Rule]", "Eb0"}], ",", RowBox[{"Ec", "\[Rule]", "Ec0"}], ",", RowBox[{"\[Kappa]b", "\[Rule]", "\[Kappa]b0"}], ",", RowBox[{"\[Kappa]c", "\[Rule]", "\[Kappa]c0"}], ",", RowBox[{"EDb", "\[Rule]", "EDb0"}], ",", RowBox[{"EDc", "\[Rule]", "EDc0"}], ",", RowBox[{"\[Kappa]Db", "\[Rule]", "\[Kappa]Db0"}], ",", RowBox[{"\[Kappa]Dc", "\[Rule]", "\[Kappa]Dc0"}], ",", RowBox[{"sb", "\[Rule]", "sb0"}], ",", RowBox[{"sc", "\[Rule]", "sc0"}], ",", RowBox[{"Ab", "\[Rule]", "Ab0"}], ",", RowBox[{"Ac", "\[Rule]", "Ac0"}], ",", RowBox[{"Vc", "\[Rule]", "Vc0"}], ",", " ", RowBox[{"T", "\[Rule]", "T0"}], ",", RowBox[{"Tg", "\[Rule]", "Tg0"}], ",", RowBox[{"Pb", "\[Rule]", "Pb0"}], ",", RowBox[{"Pc", "\[Rule]", "Pc0"}], ",", RowBox[{"mb", "\[Rule]", "mb0"}], ",", RowBox[{"mc", "\[Rule]", "mc0"}], ",", RowBox[{"\[Sigma]\[Beta]", "\[Rule]", "\[Sigma]\[Beta]0"}], ",", RowBox[{"\[Sigma]\[Gamma]", "\[Rule]", "\[Sigma]\[Gamma]0"}], ",", RowBox[{"\[Sigma]r", "\[Rule]", "\[Sigma]r0"}], ",", RowBox[{"\[Sigma]rD", "\[Rule]", "\[Sigma]rD0"}], ",", RowBox[{"f0", "\[Rule]", "f00"}], ",", RowBox[{"L", "\[Rule]", "L0"}], ",", RowBox[{"\[Beta]", "\[Rule]", "\[Beta]0"}], ",", RowBox[{"n\[Beta]", "\[Rule]", "n\[Beta]0"}], ",", RowBox[{"n\[Gamma]", "\[Rule]", "n\[Gamma]0"}]}], "}"}]}], ";"}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{"refreshSubstitutions", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"**", " ", "define"}], " ", "function", " ", "that", " ", "evaluates", " ", "equations"}], " ", "***)"}], "\[IndentingNewLine]", RowBox[{"evaluateEquations", ":=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"adsorbatesBNumeric", "=", RowBox[{"adsorbatesB", " ", "/.", "sub"}]}], ";", "\[IndentingNewLine]", RowBox[{"adsorbatesCNumeric", "=", RowBox[{"adsorbatesC", " ", "/.", "sub"}]}], ";", "\[IndentingNewLine]", RowBox[{"dissociateBNumeric", "=", RowBox[{"dissociateB", " ", "/.", "sub"}]}], ";", "\[IndentingNewLine]", RowBox[{"dissociateCNumeric", "=", RowBox[{"dissociateC", " ", "/.", "sub"}]}], ";", "\[IndentingNewLine]", RowBox[{"depositNumeric", "=", RowBox[{"deposit", "/.", "sub"}]}], ";", "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ "adsorbatesBNumeric", ",", "adsorbatesCNumeric", ",", "dissociateBNumeric", ",", "dissociateCNumeric", ",", "depositNumeric", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Nb", "[", RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Nc", "[", RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"N\[Beta]", "[", RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"N\[Gamma]", "[", RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"ND", "[", RowBox[{"0", ",", "r"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"(*", " ", StyleBox[ RowBox[{ RowBox[{"INITIAL", " ", "COVERAGE"}], " ", "=", " ", "0"}], FontColor->RGBColor[1, 0, 0]], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}], "\[Equal]", "0"}], "/.", RowBox[{"r", "\[Rule]", "rmin"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}], "\[Equal]", "0"}], "/.", RowBox[{"r", "\[Rule]", "rmax"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}], "\[Equal]", "0"}], "/.", RowBox[{"r", "\[Rule]", "rmin"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}], "\[Equal]", "0"}], "/.", RowBox[{"r", "\[Rule]", "rmax"}]}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"N\[Beta]", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"N\[Gamma]", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"ND", "[", RowBox[{"t", ",", "r"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "tmin", ",", "tmax"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", RowBox[{"MaxStepSize", "\[Rule]", "0.3"}], ",", RowBox[{"MaxSteps", "\[Rule]", "100000"}]}], "]"}]}], ";"}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"**", " ", "set"}], " ", "up", " ", "equations"}], " ", "***)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Fb", "=", RowBox[{"Pb", "*", RowBox[{"13332200", "/", RowBox[{"Sqrt", "[", RowBox[{ "2", "*", "Pi", "*", "mb", "*", "1.66053873", "*", "1.38066", "*", "Tg"}], "]"}]}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "EBIE", " ", "precursor", " ", "gas", " ", "molecule", " ", "flux", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[CapitalARing]", RowBox[{"-", "2"}]], SuperscriptBox["s", RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Fc", "=", RowBox[{"Pc", "*", RowBox[{"13332200", "/", RowBox[{"Sqrt", "[", RowBox[{ "2", "*", "Pi", "*", "mc", "*", "1.66053873", "*", "1.38066", "*", "Tg"}], "]"}]}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{ "EBID", " ", "precursor", " ", "gas", " ", "molecule", " ", "flux", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[CapitalARing]", RowBox[{"-", "2"}]], SuperscriptBox["s", RowBox[{"-", "1"}]]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"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[{"kb", "=", RowBox[{"\[Kappa]b", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "Eb"}], "/", RowBox[{"(", RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", RowBox[{"(*", RowBox[{"EBIE", " ", "precursor", " ", "desorption", " ", "rate", " ", RowBox[{"(", SuperscriptBox["s", RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"kc", "=", RowBox[{"\[Kappa]c", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "Ec"}], "/", RowBox[{"(", RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", RowBox[{"(*", RowBox[{"EBID", " ", "precursor", " ", "desorption", " ", "rate", " ", RowBox[{"(", SuperscriptBox["s", RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Db", "=", RowBox[{"\[Kappa]Db", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "EDb"}], "/", RowBox[{"(", RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", " ", RowBox[{"(*", RowBox[{ "EBIE", " ", "precursor", " ", "diffusion", " ", "coefficient", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[CapitalARing]", "2"], SuperscriptBox["s", RowBox[{"-", "1"}]]}], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Dc", "=", RowBox[{"\[Kappa]Dc", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "EDc"}], "/", RowBox[{"(", RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", RowBox[{"(*", RowBox[{ "EBID", " ", "precursor", " ", "diffusion", " ", "coefficient", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[CapitalARing]", "2"], SuperscriptBox["s", RowBox[{"-", "1"}]]}], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[CapitalLambda]b", "=", RowBox[{"sb", "*", "Fb", "*", RowBox[{"(", RowBox[{"1", "-", "\[CapitalTheta]"}], ")"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"EBIE", " ", "precursor", " ", "adsorption", " ", "flux"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[CapitalLambda]c", "=", RowBox[{"sc", "*", "Fc", "*", RowBox[{"(", RowBox[{"1", "-", "\[CapitalTheta]"}], ")"}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"EBIE", " ", "precursor", " ", "adsorption", " ", "flux"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[CapitalTheta]", "=", RowBox[{ RowBox[{"Ab", "*", RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}], "+", RowBox[{"Ac", "*", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"adsorbate", " ", "coverage"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"adsorbatesB", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}], "==", RowBox[{"\[CapitalLambda]b", "-", RowBox[{ RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}], "*", "kb"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"\[Beta]", "[", RowBox[{"t", ",", "r"}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{"Db", "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "2"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"1", "/", "r"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "1"}], "}"}]}], "]"}]}]}], ")"}]}]}]}]}]}], RowBox[{"(*", RowBox[{"EBIE", " ", "precursor", " ", "adsorbates"}], "*)"}], "\[IndentingNewLine]", RowBox[{"adsorbatesC", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}], "==", RowBox[{"\[CapitalLambda]c", "-", RowBox[{ RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}], "*", "kc"}], "-", RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"N\[Gamma]", "[", RowBox[{"t", ",", "r"}], "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"N\[Beta]", "[", RowBox[{"t", ",", "r"}], "]"}]}], "*", "\[Sigma]r", "*", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}], "+", "\[IndentingNewLine]", RowBox[{"Dc", "*", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "2"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"1", "/", "r"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"{", RowBox[{"r", ",", "1"}], "}"}]}], "]"}]}]}], ")"}]}]}]}]}], " ", RowBox[{"(*", " ", RowBox[{"EBID", " ", "precursor", " ", "adsorbates"}], "*)"}], "\[IndentingNewLine]", RowBox[{"dissociateB", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"N\[Beta]", "[", RowBox[{"t", ",", "r"}], "]"}]}], "\[Equal]", RowBox[{"n\[Beta]", "*", "f", "*", "\[Sigma]\[Beta]", "*", RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{"dissociateC", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"N\[Gamma]", "[", RowBox[{"t", ",", "r"}], "]"}]}], "\[Equal]", RowBox[{"n\[Gamma]", "*", "f", "*", "\[Sigma]\[Gamma]", "*", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{"deposit", "=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"ND", "[", RowBox[{"t", ",", "r"}], "]"}]}], "==", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"N\[Gamma]", "[", RowBox[{"t", ",", "r"}], "]"}]}], "-", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"N\[Beta]", "[", RowBox[{"t", ",", "r"}], "]"}]}], "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Sigma]r", "*", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}]}], ")"}], "*", "\[Sigma]rD", "*", RowBox[{"Min", "[", RowBox[{ RowBox[{"ND", "[", RowBox[{"t", ",", "r"}], "]"}], ",", RowBox[{"1", "/", "Ac"}]}], "]"}]}]}]}]}], " ", RowBox[{"(*", " ", RowBox[{"EBID", " ", "precursor", " ", "adsorbates"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kb", "=", RowBox[{"\[Kappa]b", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "Eb"}], "/", RowBox[{"(", RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", RowBox[{"(*", RowBox[{"EBIE", " ", "precursor", " ", "desorption", " ", "rate", " ", RowBox[{"(", SuperscriptBox["s", RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"kc", "=", RowBox[{"\[Kappa]c", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "Ec"}], "/", RowBox[{"(", RowBox[{"k", "*", "T"}], ")"}]}], "]"}]}]}], ";", RowBox[{"(*", RowBox[{"EBID", " ", "precursor", " ", "desorption", " ", "rate", " ", RowBox[{"(", SuperscriptBox["s", RowBox[{"-", "1"}]], ")"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "evaluateEquations", ";"}]}]}]], "Input", CellChangeTimes->{{3.545593622605394*^9, 3.5455936520679007`*^9}, { 3.545593700138701*^9, 3.545593780877733*^9}, {3.545593818629559*^9, 3.545593845890605*^9}, {3.545593966416913*^9, 3.5455939666898117`*^9}, { 3.545593996844634*^9, 3.545594008906681*^9}, {3.54559414291831*^9, 3.545594149119533*^9}, {3.5455941982730217`*^9, 3.545594301290709*^9}, { 3.545594333115694*^9, 3.5455944080062513`*^9}, {3.5455948283381042`*^9, 3.545594835205947*^9}, {3.545594879111733*^9, 3.545594946739607*^9}, { 3.545595014873361*^9, 3.5455950201507998`*^9}, {3.545595410738702*^9, 3.545595481808715*^9}, {3.5455955465341167`*^9, 3.54559554976226*^9}, { 3.545595969461195*^9, 3.545595977775858*^9}, {3.545596017169383*^9, 3.5455960217810507`*^9}, {3.545596082540064*^9, 3.545596189998969*^9}, { 3.545596305713407*^9, 3.545596362245133*^9}, {3.545596392331855*^9, 3.545596451744137*^9}, {3.545596483417747*^9, 3.5455965494989243`*^9}, { 3.545596635195951*^9, 3.545596684380025*^9}, {3.545596811629291*^9, 3.545596857619356*^9}, {3.545596933158187*^9, 3.545596977707073*^9}, { 3.545597016880925*^9, 3.545597030263378*^9}, {3.545597090534534*^9, 3.5455971077510366`*^9}, {3.545597726047943*^9, 3.5455977377213917`*^9}, { 3.545597807689041*^9, 3.5455978889357977`*^9}, {3.545597942702602*^9, 3.5455980452901907`*^9}, {3.5455981214984617`*^9, 3.54559815783892*^9}, { 3.545598363057526*^9, 3.5455984036390467`*^9}, {3.5455994549813967`*^9, 3.545599524657728*^9}, {3.5455997857375517`*^9, 3.545599886108986*^9}, { 3.5455999543837423`*^9, 3.545600025285009*^9}, {3.5456001149321938`*^9, 3.545600118834983*^9}, {3.545600166827819*^9, 3.545600263618778*^9}, { 3.545600314068585*^9, 3.5456003323402967`*^9}, {3.545600502157552*^9, 3.545600504685534*^9}, {3.545600581373583*^9, 3.545600631339213*^9}, { 3.545600680983746*^9, 3.5456007503544064`*^9}, {3.545601309070656*^9, 3.545601315613141*^9}, {3.545601463321438*^9, 3.545601488835772*^9}, { 3.545601610658228*^9, 3.545601623231358*^9}, {3.5456016830066147`*^9, 3.5456016853766127`*^9}, {3.5456017212504807`*^9, 3.5456017562327347`*^9}, 3.545601992783464*^9, 3.5456020240959473`*^9, 3.545602186821157*^9, { 3.545602269828196*^9, 3.545602518763485*^9}, 3.5456025812799873`*^9, { 3.5456026121250553`*^9, 3.545602706184432*^9}, {3.545602841901168*^9, 3.545602844943697*^9}, {3.545602876210368*^9, 3.5456030697569723`*^9}, { 3.545603165359054*^9, 3.5456031728623343`*^9}, {3.545603293013042*^9, 3.5456033736418743`*^9}, {3.545603528802059*^9, 3.545603719675035*^9}, 3.5456037588351793`*^9, {3.545603827517521*^9, 3.54560397045362*^9}, { 3.5456040028195333`*^9, 3.545604021547737*^9}, {3.5456044528959417`*^9, 3.545604499453834*^9}, {3.545604539388179*^9, 3.545604589167062*^9}, { 3.545604668971417*^9, 3.5456047036136093`*^9}, {3.545604734395595*^9, 3.545604810325037*^9}, {3.545604850980444*^9, 3.545604858225995*^9}, { 3.545604889754655*^9, 3.5456049468707*^9}, {3.545605066124174*^9, 3.5456050752910852`*^9}, {3.545605110184072*^9, 3.545605110425456*^9}, 3.54560514610603*^9, 3.5456051810785437`*^9, 3.545605647769458*^9, { 3.5456056825324593`*^9, 3.545605760087854*^9}, {3.545605864441763*^9, 3.545605931969748*^9}, {3.5456068917009897`*^9, 3.5456069239292*^9}, { 3.545610517272328*^9, 3.545610521840197*^9}, {3.545610552094595*^9, 3.5456106747096987`*^9}, {3.5456107289846973`*^9, 3.5456107324473257`*^9}, {3.545613703341503*^9, 3.545613780002509*^9}, { 3.54561384090661*^9, 3.5456138464215813`*^9}, {3.545613876766473*^9, 3.545613902461652*^9}, {3.5456141814986677`*^9, 3.545614181888014*^9}, { 3.54562090892423*^9, 3.545620997932675*^9}, {3.5456210363165827`*^9, 3.545621039232995*^9}, {3.545621069954479*^9, 3.545621073949615*^9}, { 3.54562117767115*^9, 3.545621182105699*^9}, {3.545621232446577*^9, 3.545621241898546*^9}, {3.545621280690489*^9, 3.545621305225215*^9}, 3.545621422687517*^9, {3.545621463716329*^9, 3.545621464081686*^9}, { 3.5456215227784357`*^9, 3.5456215440517197`*^9}, {3.545621650663321*^9, 3.545621675868897*^9}, {3.545621803217785*^9, 3.545621809006225*^9}, { 3.5456218390718184`*^9, 3.54562183928249*^9}, {3.5456220356704082`*^9, 3.545622036039263*^9}, {3.5456224158320208`*^9, 3.5456224195430813`*^9}, { 3.5456228396397257`*^9, 3.5456228430636387`*^9}, {3.545623856582357*^9, 3.545623857904948*^9}, {3.545624426848063*^9, 3.545624430809279*^9}, { 3.545624502285872*^9, 3.54562452288525*^9}, {3.545624567547442*^9, 3.545624571042581*^9}, {3.545624679336718*^9, 3.54562468199264*^9}, { 3.5456255176858892`*^9, 3.545625546742899*^9}, {3.545625976390609*^9, 3.545626193052737*^9}, {3.545626225443667*^9, 3.5456263303533278`*^9}, 3.545627138819399*^9, {3.545680647156466*^9, 3.545680649771125*^9}, { 3.5456806830729103`*^9, 3.5456807163192453`*^9}, {3.545680815658016*^9, 3.545680847311594*^9}, {3.5456811332612247`*^9, 3.545681137834345*^9}, { 3.5456812047503443`*^9, 3.5456812184880543`*^9}, {3.545681549513342*^9, 3.545681563117752*^9}, {3.5456816047815638`*^9, 3.545681612564296*^9}, 3.545681686441505*^9, 3.5456817271136827`*^9, {3.545940582858685*^9, 3.5459406463166428`*^9}, 3.545940680926219*^9, {3.5459407126853437`*^9, 3.545940719161971*^9}, {3.545942981759048*^9, 3.5459429830024977`*^9}, { 3.545943064179339*^9, 3.5459431060248547`*^9}, {3.545943172704026*^9, 3.5459431817086563`*^9}, {3.5459432735256042`*^9, 3.545943274409772*^9}, { 3.5459433089910507`*^9, 3.545943329550262*^9}, {3.545943642534419*^9, 3.545943653467512*^9}, {3.545943764469323*^9, 3.545943857589327*^9}, { 3.545943992702998*^9, 3.5459440945349407`*^9}, 3.5459441308188477`*^9, { 3.546031953619293*^9, 3.5460320044780416`*^9}, {3.546033722892148*^9, 3.5460337251166983`*^9}, {3.546036647092533*^9, 3.5460366482093277`*^9}, { 3.5460379439214907`*^9, 3.5460379440944233`*^9}, {3.546038093775237*^9, 3.546038428607135*^9}, {3.5460384735379553`*^9, 3.5460385182194347`*^9}, { 3.5460391657033453`*^9, 3.546039165908293*^9}, 3.546039206098564*^9, 3.546039313535611*^9, {3.546039435325387*^9, 3.5460394601600246`*^9}, { 3.546040328471211*^9, 3.546040389812194*^9}, {3.5460404212498302`*^9, 3.546040437850378*^9}, {3.5460404713989983`*^9, 3.546040564439208*^9}, { 3.5460406761987123`*^9, 3.5460406985769253`*^9}, {3.546040737375806*^9, 3.546040793815825*^9}, {3.54604088907795*^9, 3.546040889731887*^9}, { 3.54604094780586*^9, 3.546041058945307*^9}, {3.5460411525958242`*^9, 3.546041272660152*^9}, {3.546041324788903*^9, 3.5460414144857187`*^9}, 3.546041460273478*^9, {3.5460414912760878`*^9, 3.546041496962871*^9}, { 3.546041562318124*^9, 3.546041592432583*^9}, {3.546041683407056*^9, 3.5460416837587223`*^9}, {3.546041746319212*^9, 3.546041770498487*^9}, { 3.546041837175954*^9, 3.546041856706306*^9}, {3.546041898410812*^9, 3.54604202774501*^9}, {3.546042076913718*^9, 3.5460421825857773`*^9}, { 3.5460422226248503`*^9, 3.546042226294868*^9}, {3.546042272145211*^9, 3.546042306277852*^9}, {3.5460423510376177`*^9, 3.5460423789597063`*^9}, { 3.546042461856044*^9, 3.546042467242606*^9}, {3.5460425011392727`*^9, 3.546042519011558*^9}, {3.5460427174761467`*^9, 3.546042740986926*^9}, { 3.5460549580721607`*^9, 3.546054959110705*^9}, 3.5460555288044167`*^9, 3.5460567371222153`*^9, {3.546058240490342*^9, 3.546058265643917*^9}, { 3.5460583021105757`*^9, 3.546058302333075*^9}, {3.54605834248949*^9, 3.546058342649762*^9}, {3.546059604346424*^9, 3.546059633477109*^9}, { 3.546061002035707*^9, 3.546061002551758*^9}, {3.546061055037258*^9, 3.5460610555895348`*^9}, {3.546465018359*^9, 3.546465020194607*^9}, { 3.546465051087666*^9, 3.546465051807393*^9}, {3.546465100791939*^9, 3.546465137219553*^9}, 3.546476554836768*^9, {3.546477254997637*^9, 3.546477279983939*^9}, {3.5464774105188713`*^9, 3.546477411224106*^9}, { 3.546477448208378*^9, 3.546477448525716*^9}, {3.548310466146838*^9, 3.548310468670226*^9}, 3.626907646656703*^9, 3.626907700443508*^9, { 3.626907742382634*^9, 3.626907766526469*^9}, {3.626907803088305*^9, 3.626907900128058*^9}, {3.6269079456305037`*^9, 3.626908096683073*^9}, { 3.626908175901203*^9, 3.626908235818717*^9}, {3.6269155544674463`*^9, 3.626915557463131*^9}, {3.626915589140777*^9, 3.6269156390282927`*^9}, { 3.626915677475625*^9, 3.62691568770885*^9}, {3.6269157590453873`*^9, 3.62691576938783*^9}, {3.626915812772231*^9, 3.6269158554366426`*^9}, { 3.6269158914928007`*^9, 3.626915957657825*^9}, {3.6269160417244987`*^9, 3.626916063790874*^9}, {3.6331057146611767`*^9, 3.633105751022675*^9}, { 3.6331199735885563`*^9, 3.633120038716857*^9}, {3.633123937224744*^9, 3.633123943593251*^9}, {3.633125261578232*^9, 3.633125267206174*^9}, { 3.633125427807816*^9, 3.6331256372805758`*^9}, {3.633125687468279*^9, 3.63312583143279*^9}, {3.63312586152391*^9, 3.633125866717289*^9}, { 3.633126149915378*^9, 3.633126156098707*^9}, {3.633126220935109*^9, 3.633126287623188*^9}, {3.633126324012368*^9, 3.633126328758533*^9}, { 3.633126542621443*^9, 3.633126569526078*^9}, {3.633127084100758*^9, 3.6331271042483788`*^9}, {3.633127146381855*^9, 3.633127149788307*^9}, { 3.633127198111476*^9, 3.633127237435111*^9}, {3.633127316333312*^9, 3.6331273307165203`*^9}, {3.633127409516032*^9, 3.633127465012533*^9}, { 3.633127499606534*^9, 3.63312758583645*^9}, {3.633127819092436*^9, 3.633127894092966*^9}, {3.633127925250648*^9, 3.6331279618182507`*^9}, { 3.6331282101722183`*^9, 3.6331284702185583`*^9}, {3.633128509098537*^9, 3.6331285906936893`*^9}, {3.63312862205919*^9, 3.633128781283963*^9}, { 3.633128892280943*^9, 3.6331288923435097`*^9}, {3.633128995587618*^9, 3.633129108005031*^9}, {3.63312915266009*^9, 3.633129211656974*^9}, { 3.633129247227459*^9, 3.6331293391399727`*^9}, {3.633129531350443*^9, 3.633129561183856*^9}, {3.633129665394348*^9, 3.633129691674384*^9}, { 3.6331297313332977`*^9, 3.6331297894136143`*^9}, {3.633129826437751*^9, 3.6331298519660673`*^9}, {3.6331298900208197`*^9, 3.633130005370592*^9}, { 3.63313006835083*^9, 3.633130193303817*^9}, {3.6331302409227552`*^9, 3.633130332175253*^9}, {3.633130380811446*^9, 3.6331305161025133`*^9}, { 3.633130592165888*^9, 3.633130615077482*^9}, {3.633130658939253*^9, 3.633130911612452*^9}, {3.633130994391114*^9, 3.633131081860141*^9}, { 3.633131140707748*^9, 3.63313115048763*^9}, {3.633131181880932*^9, 3.6331312041885157`*^9}, {3.6331312548695517`*^9, 3.633131276157549*^9}, 3.633131377973514*^9, 3.633132809524662*^9, {3.63313294271049*^9, 3.633132942876237*^9}, {3.633132987590863*^9, 3.633133042318972*^9}, { 3.633133096241048*^9, 3.633133131106991*^9}, {3.633133747957271*^9, 3.633133891902299*^9}, 3.6331354874289837`*^9, {3.633135587319687*^9, 3.633135643746833*^9}, {3.633135869762341*^9, 3.6331359014538803`*^9}, { 3.633136265814941*^9, 3.6331362776663523`*^9}, {3.633136496766622*^9, 3.633136509614151*^9}, {3.633379231650578*^9, 3.633379243883193*^9}, { 3.633743637948246*^9, 3.63374381104813*^9}, {3.6337442839387503`*^9, 3.6337443316302557`*^9}, {3.633744395755188*^9, 3.633744769783799*^9}, { 3.633744925968853*^9, 3.633745404208026*^9}, {3.633745448837236*^9, 3.633745910611897*^9}, {3.6337459552560368`*^9, 3.6337459605765543`*^9}, { 3.633746037539708*^9, 3.63374604190586*^9}, {3.6337460720418987`*^9, 3.633746084798666*^9}, {3.633746209335351*^9, 3.6337462094297953`*^9}, { 3.633746630721572*^9, 3.6337466535698757`*^9}, {3.633746758802929*^9, 3.6337467679603567`*^9}, {3.6337468337846813`*^9, 3.6337468541326313`*^9}, {3.633746895371963*^9, 3.6337469086636887`*^9}, { 3.633746965300713*^9, 3.633747084725782*^9}, {3.633747118674438*^9, 3.633747119064094*^9}, 3.633747244439543*^9, {3.633747420587646*^9, 3.633747502919998*^9}, {3.63374766814318*^9, 3.6337476965622272`*^9}, { 3.63374775270408*^9, 3.6337477885958233`*^9}, {3.633747873744462*^9, 3.633747880232923*^9}, {3.6337480539275293`*^9, 3.633748056183507*^9}, { 3.633748164849729*^9, 3.633748227701638*^9}, {3.633748299669848*^9, 3.633748361494446*^9}, {3.633748397852409*^9, 3.633748473686779*^9}, { 3.633748515426032*^9, 3.633748638389703*^9}, {3.633748672705717*^9, 3.6337487204244537`*^9}, {3.633748767958794*^9, 3.6337488135803022`*^9}, { 3.6337491285418453`*^9, 3.6337491401703453`*^9}, {3.63374923623696*^9, 3.633749249782173*^9}, {3.633749290945712*^9, 3.6337493205445023`*^9}, { 3.633749361783812*^9, 3.633749361961611*^9}, {3.633750564927568*^9, 3.633750565436304*^9}, {3.633803396141857*^9, 3.633803487485796*^9}, { 3.633806606242131*^9, 3.633806610993724*^9}, 3.633928334480177*^9, { 3.633928663751802*^9, 3.6339286818856897`*^9}, {3.633929088960353*^9, 3.63392908901501*^9}, {3.633929243908266*^9, 3.633929244451185*^9}, { 3.6339293869853373`*^9, 3.633929389137167*^9}, {3.63392957331971*^9, 3.633929574299469*^9}, {3.633929655074334*^9, 3.6339296555273952`*^9}, { 3.633929751807343*^9, 3.633929752287547*^9}, {3.63392986096453*^9, 3.633929862961316*^9}, {3.63393008007797*^9, 3.6339300805176764`*^9}, { 3.633930229700172*^9, 3.633930230247897*^9}, {3.633930330821602*^9, 3.633930330895184*^9}, {3.6339313593631153`*^9, 3.633931380446516*^9}, { 3.633931631872136*^9, 3.633931638124943*^9}, {3.633931917486134*^9, 3.6339319232442093`*^9}, 3.633932854440733*^9, {3.633932950827014*^9, 3.633932951150858*^9}, {3.6354396011043377`*^9, 3.6354396262301598`*^9}, { 3.64600259156826*^9, 3.646002592331583*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["Nb", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["Eb", RowBox[{"k", " ", "T"}]]}]]}], " ", "\[Kappa]b", " ", RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}], "+", FractionBox[ RowBox[{"3.5127238523759204`*^6", " ", "sb", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Ab", " ", RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}], "-", RowBox[{"Ac", " ", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}]}], ")"}]}], SqrtBox[ RowBox[{"mb", " ", "Tg"}]]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["EDb", RowBox[{"k", " ", "T"}]]}]], " ", "\[Kappa]Db", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["Nb", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}], "r"], "+", RowBox[{ SuperscriptBox["Nb", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["\[Beta]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}]}]}]], "Output", CellChangeTimes->{3.633749142059461*^9, 3.6337493392941523`*^9, 3.633749377203595*^9, 3.633750580421094*^9, 3.6337560040781393`*^9, 3.633756824842857*^9, 3.633803504406969*^9, 3.633806636957197*^9, 3.6338069429275*^9, 3.633928347672678*^9, 3.6339286937358913`*^9, 3.6339290957977457`*^9, 3.63392925181194*^9, 3.6339293903287773`*^9, 3.633929579069206*^9, 3.6339296605956917`*^9, 3.633929755718515*^9, 3.633929867814611*^9, 3.633930081541544*^9, 3.633930231349625*^9, 3.6339303457138453`*^9, 3.6339313910808563`*^9, 3.63393164693406*^9, 3.63393192519982*^9, 3.633932160835183*^9, 3.63393277109079*^9, 3.633932862067396*^9, 3.63393295239251*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["Nc", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["Ec", RowBox[{"k", " ", "T"}]]}]]}], " ", "\[Kappa]c", " ", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}], "+", FractionBox[ RowBox[{"35127.2385237592`", " ", "sc", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Ab", " ", RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}], "-", RowBox[{"Ac", " ", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}]}], ")"}]}], SqrtBox[ RowBox[{"mc", " ", "Tg"}]]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["EDc", RowBox[{"k", " ", "T"}]]}]], " ", "\[Kappa]Dc", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["Nc", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}], "r"], "+", RowBox[{ SuperscriptBox["Nc", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}]}], ")"}]}], "-", RowBox[{"\[Sigma]r", " ", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}], " ", RowBox[{ SuperscriptBox["N\[Beta]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}]}], "-", RowBox[{ SuperscriptBox["N\[Gamma]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}]}]}]], "Output", CellChangeTimes->{3.633749142059461*^9, 3.6337493392941523`*^9, 3.633749377203595*^9, 3.633750580421094*^9, 3.6337560040781393`*^9, 3.633756824842857*^9, 3.633803504406969*^9, 3.633806636957197*^9, 3.6338069429275*^9, 3.633928347672678*^9, 3.6339286937358913`*^9, 3.6339290957977457`*^9, 3.63392925181194*^9, 3.6339293903287773`*^9, 3.633929579069206*^9, 3.6339296605956917`*^9, 3.633929755718515*^9, 3.633929867814611*^9, 3.633930081541544*^9, 3.633930231349625*^9, 3.6339303457138453`*^9, 3.6339313910808563`*^9, 3.63393164693406*^9, 3.63393192519982*^9, 3.633932160835183*^9, 3.63393277109079*^9, 3.633932862067396*^9, 3.633932952405383*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["N\[Beta]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"2", " ", SuperscriptBox["L", "2"]}]]}]], " ", "f0", " ", "n\[Beta]", " ", "\[Sigma]\[Beta]", " ", RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}]}]}]], "Output", CellChangeTimes->{3.633749142059461*^9, 3.6337493392941523`*^9, 3.633749377203595*^9, 3.633750580421094*^9, 3.6337560040781393`*^9, 3.633756824842857*^9, 3.633803504406969*^9, 3.633806636957197*^9, 3.6338069429275*^9, 3.633928347672678*^9, 3.6339286937358913`*^9, 3.6339290957977457`*^9, 3.63392925181194*^9, 3.6339293903287773`*^9, 3.633929579069206*^9, 3.6339296605956917`*^9, 3.633929755718515*^9, 3.633929867814611*^9, 3.633930081541544*^9, 3.633930231349625*^9, 3.6339303457138453`*^9, 3.6339313910808563`*^9, 3.63393164693406*^9, 3.63393192519982*^9, 3.633932160835183*^9, 3.63393277109079*^9, 3.633932862067396*^9, 3.633932952414016*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["N\[Gamma]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["r", "2"], RowBox[{"2", " ", SuperscriptBox["L", "2"]}]]}]], " ", "f0", " ", "n\[Gamma]", " ", "\[Sigma]\[Gamma]", " ", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}]}]], "Output", CellChangeTimes->{3.633749142059461*^9, 3.6337493392941523`*^9, 3.633749377203595*^9, 3.633750580421094*^9, 3.6337560040781393`*^9, 3.633756824842857*^9, 3.633803504406969*^9, 3.633806636957197*^9, 3.6338069429275*^9, 3.633928347672678*^9, 3.6339286937358913`*^9, 3.6339290957977457`*^9, 3.63392925181194*^9, 3.6339293903287773`*^9, 3.633929579069206*^9, 3.6339296605956917`*^9, 3.633929755718515*^9, 3.633929867814611*^9, 3.633930081541544*^9, 3.633930231349625*^9, 3.6339303457138453`*^9, 3.6339313910808563`*^9, 3.63393164693406*^9, 3.63393192519982*^9, 3.633932160835183*^9, 3.63393277109079*^9, 3.633932862067396*^9, 3.633932952422913*^9}], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["ND", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "\[Sigma]rD"}], " ", RowBox[{"Min", "[", RowBox[{ FractionBox["1", "Ac"], ",", RowBox[{"ND", "[", RowBox[{"t", ",", "r"}], "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Sigma]r", " ", RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}]}]}], ")"}], " ", RowBox[{ SuperscriptBox["N\[Beta]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}]}], "+", RowBox[{ SuperscriptBox["N\[Gamma]", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"t", ",", "r"}], "]"}]}]}]], "Output", CellChangeTimes->{3.633749142059461*^9, 3.6337493392941523`*^9, 3.633749377203595*^9, 3.633750580421094*^9, 3.6337560040781393`*^9, 3.633756824842857*^9, 3.633803504406969*^9, 3.633806636957197*^9, 3.6338069429275*^9, 3.633928347672678*^9, 3.6339286937358913`*^9, 3.6339290957977457`*^9, 3.63392925181194*^9, 3.6339293903287773`*^9, 3.633929579069206*^9, 3.6339296605956917`*^9, 3.633929755718515*^9, 3.633929867814611*^9, 3.633930081541544*^9, 3.633930231349625*^9, 3.6339303457138453`*^9, 3.6339313910808563`*^9, 3.63393164693406*^9, 3.63393192519982*^9, 3.633932160835183*^9, 3.63393277109079*^9, 3.633932862067396*^9, 3.633932952432083*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{"Nb", "[", RowBox[{"t", ",", "r"}], "]"}], "/.", "sol"}], "/.", RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "/.", "sub"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{"Nc", "[", RowBox[{"t", ",", "r"}], "]"}], "/.", "sol"}], "/.", RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "/.", "sub"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{"ND", "[", RowBox[{"t", ",", "r"}], "]"}], "/.", "sol"}], "/.", RowBox[{"t", "\[Rule]", "tmax"}]}], "]"}], "*", "Vc"}], "/.", "sub"}], "}"}], ",", RowBox[{"{", RowBox[{"r", ",", "rmin", ",", "rmax"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"Frame", "\[Rule]", "True"}], ",", " ", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "}"}]], "Input", CellChangeTimes->{{3.633756843860445*^9, 3.633756872424213*^9}, { 3.633806930261457*^9, 3.6338069335344276`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1XlUjV8XB/DbbRaSJlLSjNCokjpnq5TSjESUSiPKlCHVE2lA873PfdJA KCKS0kQDlSZFiPyiQYVQQuPT+N73j732+vy1v2vvs9ZR8Ah09GIyGIzv3Pp/ 7w9TOlHYa4/7fz+YOywQjj//vWRscaET9/2SDPTjWu5Aa9/7s0O4rq6uwpXr 231HJMyWj2PJKwpD1lwbUyN6GUGz2Mr/2qwO1/7Z5eumfZnwuy5hWJxrPWK+ Qk1aAGQbttcM8odj5h4Tu50vhCGTpXu2kusW7cie8BOLIHPiidglrq0F+ks/ JC6BkhNucdZca5+I5BnyWQqXigoGhbhe1qNqxYslYPzjLs1KvnA8Z92QvFxK ClquTDkf5rq/zO+TxpA0fFT09BHnuklVRNm8djkk3/bYV8gbjkmGbdHx43LQ ZlY328kMx8FHhmdjLOXhq7ryfV+uNY9su2WXuAq2ZSzcOsgTjqU6fvzy8lGE nxprNncxwvGlRMMlfx2VgGXRmWrN9Yz5Fd0QpAz/7uq3+cwTuLdwXWiypCq4 2n8p65gh8C7/0BtyPGrQObFckJgmcMOqVy9yBtVA6imBJacInBcXuLiqZg2Y i7gQ0hMEPutTcP3XsfVQPu5y48QfAg/K8dae2r8BpNRXPrjzm8CubTsGeCw1 ILn1QnXLIIFvZgYvW5ioCXUB31f8GSBwzCJZd0UfbSj8bLMwvofA1b5mI98/ a0PNNv/vjl0Enq45HPnAUQdmMob/CX8mcEBwxV0DpAub0xY+sm0n8M7vrv9s JfUgYvUdP50WAsebRF+UuKIH/h2GPpebCFyf8VCqg6EPnACj2nf1BDbcydjs NagPO+kzxcbVBF71/EbEuZpN4LOaMAgsJvCv1H6JnGPGMNdbxWOXTuDy3K7c XX+NofHQpH1ECoFjyz+a8B5DAEljajlsAq/raj7qehSDZ0VcSk0sgUsS93pf LgEING0sNwkh8OQ7k2ooNoH5ESH3w84EPvC5Kk563ASY13upvB3c/fYb7fm9 0RTiJfqkem0JfHVM709akSk4R4spyW3l5pVWXznx2AwqpLtH+zUJfG6vePCD QnMQP2nK28BP4H6PxK0XR8whJuKrswqDwNaHFom56FgA5/nC7pNTYVg2RDBH qNACQnXFyn/+DsPlGdPvPQu2gWV1arBOexie6+nTknlkBet7TCMtssNwuM/j H1F5tsBbqSc2qh+GtdtaChR/2sLOpKRwHa0w/BW+n6tUsYPaW9dafdeGYSsZ mcXj6XZQQ/Y4FMmG4cvf8NWCrfZQN/abbGeE4Z1XsysUdB1AUzhos119KB6Y OyrAENsBp6XzDMJsQrFYk2BKeZMTeKVXaMSZhODS/8wnmpa5AjMp5Vjf5Fns c6P1zX2mJ4jtidso5nQap8jU8pgVeUMm46hOwbeTOBy2Oq8o8Qc+zQB+tvdx LK702tr4dgBIMu7FaikfxarZCXHtq4+BXcPYrvcnD+OVCXPRmqon4KJrZZRL uS/2TbMPfMQTBM8oxb3ut72wkMCd7PZ3p6CwXNNqaNwD81mYDWe0nIGjF3K3 eHsfwI73alVis4PBJCtE82zaPjzTdyVQJjsEMiNyigZvOeOZc7uFbNPCQD/v 3ky66S6stoK3vk0/HHKrP7T/jXTEYX2hrLcbz4Nk9nWq8osdnjPyd+pXvACn xO0T0OPt+D7PlGKdUgQ8UW51D2+0wJFjItSU/EXIi/VOsAw2wzHBCTymIpHQ 3NSbaP5qCy71Lw5yWRAFaUP8K5xTEV46aNsTPRkFigtGJgWSDDGV7vdPoDca yJQPploK+tiyVG2xU3cMnFc7+ZVvQAereO1eVfbyEmxyGF+vb6eFNULXGg2+ vAwza3qz3WrWY89aYv5Y/RWQJhSLBnLX4Ofp5mUiBbFwyA9Y6w6oYpue/JCg /DjYvOQ/mTIrJcwsitUbyYiHSPMw3P96Fe4t/UnVRCXAutj9evx+cnhS/BRP wZZEcG5pfJB/ejmWYGtox5YkgrAMEwfYSOH6xic+tvpJYD9tM7LBRRyLNoSl pOYlQcWKe1cxQwwPdvLKJSolw964/kvtgovxgbt7bx+5mQyLc7bYCLoswH7G P9e+X8YCB5s+BaPjgjixWtTvgwwLdkyWKN7yFsTFFhvvtMuyIEvE3W+piyDm dQxX6ljFgtDEqGJhM0Gc4S0l272aBX+bld/vlRLEbxJMFv0wYMFr16ZdEeUC eFNv6vCMMwuWfnVNfr1YAAtHb3+sfJUFiq7rhgOb+HD8kmeUbBoLCkNEz44+ 48NLU3XPSWSwIOntEE94CR+WfSBnwneDBbfLKOb9LD6s+W74dV8OC5TjRFx3 E3zYSZ7962YpC57qtZ2Z3MiHs0o+Kyp8ZMHO782UdQ4vRgNHkuSk2fDEuoYv OpOJv+58nT6yjA0dAz7l+leZOPa5Zk6jDBt44Vr7UBITd6SOVAatZEP4Jqzh H8HEp23ODraosMH+vprCLW8mzi+4aBGmy4ZfUixeiQ1MrBSaNtvlwIa8ZsOS L894sNDSRr/MWDYsOxyW9WiMgaNeGEtei2fDzju6KWrDDMx7tuBZWiIbDMN9 jG8NMPBcd5o0xWYD/2r55NxPDDz6IOBFXDobklK2r2RUM3CPpYTCuftsqDdo ZRUnMHDpebePu5rZ3P/i7aCFBgPrbWyL2PGKDcGjutaBaxi4cGCbhkMrG5KP lIqmKzFwnp12lHUbGwbDJsr4lzFwlhy/rulnNsi4pLos52HgxLJ7CZqDbHhz MqSEyJlHfn/HzEUWktAhSH0bnZlDQjG7Zb4vIsE4L3aD2cgcyllZNlQtSoJs 1YRH+o85NLA9hB0sTkJpw/MInw9zyPc2s/eHDAkv0ussfPPnkLeLaGjDGhLO fzs6scR7Dh18sbow0oKEvdcFjg60zyK+fZej3C1JULtQNWn7ehZl/fu1x3g7 CUp7rgtW1s2iPvmHjDFbEgSPl+UWFc0ij+CNtgedSKhrX1+2gD2L3DVMfph4 kQAS6vaWjrPI9aqLPCOCBIeqQnW+9zNon+7ClLcXScg18K9Ka5lBe1+XL8mO IiFZb0R9c90M2s2/kml1mYSPRqaRSSUzyP5YTz8riYRjA3V/01Jn0BZLr3tq mSSYd4mdV/GYQcp0wEa7ChLUCz57TI1PI0W2fJ5CFQnd7koWMX+m0SqNVtXR ZyTkP88tlvs5jWS9tJZdrSVh6K37BrfOaST5ZmSq9yUJ/qqzYFQ7jQTunnl2 qoOE+TPP5/axptEP5wvbr02QIKGtcG+N/jSqNDQ/mEKTQOq5MNdrTaNk2QWh ydMkRK2O+GmgPo2MepLyouZJuPbU9oC//DSK97khFijIgSXf7FN1hKaR9qln 7ViaA/ep1ZL7P02hYNac5xc9DvgwnRSno6eQbVB1yCcDDnhMcR6KREwhpd1R 5HtDDjDKcwnlsCnULLO4vhFxQEncuzvg5BRaeVNubYE5B/IWWLt5u0+h6nyj PxecOLDnmuq5LqMpJPIqOET5FAceeTac76dpxGSpV8yc5kDxdRUFo3EaTe7+ PNt2lgN3hA+Wpv6j0bcvxkRkKAfS5p0bDv+iUfUY48K3ixwQbXY3PdhJozNy 0dE5LA40jto5Xa+mUWCvfkM4yYET18oqvapo5H1nQGgPxQE+fkNBnXIa7dSy uiycxgGvmFbt3iIaaWxdFOd/kwNPZ6eak+9y5x1mJa97xIHeqsaPm5Np1Kll 9o6vkAOqzqvTAxNo1DY+Kt75mJs/pXrNvVhunnAnMq6UAy5qp67pRNMog708 5XcVBwiNj41UCHde+fWM/FcciPz3cHGWL422n7fvimnl5rXK6DT1ppGJOY+8 +1sOGF154/HTk5un1SNT7AMH2vCOK9vdaLSgX+XW8U7uvRR4dV2daPRc5H6O 7iAHHNX9+mu20mityY/3pr858Lz23AO2KY2Sz6jy7vjDgeETiyuObKHRwa+Z +4+NcqAs9MVdA2MaCVWRS/NmOBC/n5WotZFGx8be4oo5Dpi+zD1opkOjDvUl R5oZFDiN559w06LR/ZTL9T/5KEi5MWSUt55G9seJELVFFPzrq96Vp0qjspzy u3qiFDwUftbBVKGRYjf9YasYBX6OLxPclGg0uv2k1kFJCn7avb2otYpGKSp+ 3zLlKNAjck7py9CIZ99t8Xx5CpbeEnZuWUYj/+Q+qFKgwCjYxu2QNI2M5ven dapQkOCd3lElQaPuj472MhsoGHdo9mgSpdE20cTQNZoUfCnJcrixmEb5W1vu GWhTAELf9oUvotGFAgv+3XoUjA3L1DqJ0OjXwEVtbwMKLq19I2e7gHsf+Wq3 IEMKsthBCTbCNFKNNXrCQhRoHV5XfFCQRgnVZ7/fBAqOHJb2CxHgvs/JYokC Ewq8n93QSOenUZOXVmCrOQV/UjxHRnhppJMekN69jYKaS5d+q3Od/ja38bcV BUHZ6vQhJo0CsKryIjsKOtW6Dfh4aNQe5Okg68Ddb+XooX0MGsH9zDD1HRQM d8XfK5+fRHd7O3MNd1FQ61s8osz10uUr/rPcTYH631Pm5NwkOmfnLLBnDwWF z7tuLOK6P5LU8XWhoLV9ji9+dhIV/xONj3KjYKVVWdftmUkkv8bmKelOwcuV ETsw1zFulweyPLl5Vx9s7p6eRH/JesnHXhSYdwdvi+F6bzOfaY0PBdl+A3UG XNcwTY6+9aPg5rVW879Tk2jdJiLjyyEKPvLurX/ENTuwvOnPEQqWtDywCOZ6 NpuemA+kIP/TRJ0V1/8DOETKGQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Nb [tmax]\"", 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}], ",", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1nk01U8UAHBSki0hW5YQWmQrKqV7I2u2JLTJ+izZRfb9PbxXWd6mLEmI IlKJkopQsmUtpQVFoV+lpKJ+3/fXnM+ZuTNz78yZM4pugXaeS7i4uBK4ubg4 7XiccuiNUVtYeSGKq3fSE159TTcwTRqBO78Kj/N+9AQ5l56xgcgZsBokH7hE uHTMX3yv9BwonbvaXvbJEwzYs3r5YYswFUF+KDHtCb4lDep/vJfgB78M3ZkZ T9CL/3dPTZIXLbpl16l/8YQlhwxt7FtW4BqeNdS+b57QqUN+mxAqhKcKFtzH fniCJe943WCmCGYaVlce+eUJOqFk7hkvUaTvynXbtegJUm9VLXhAHK2KmbFk bhL8tXycLS0hgVIrJ+b1eEkwXu/zUnNGEq+GGnXZCpCgXVVgnckjadRd+Xiu V4QETC7rWyEhctj3rV5JRI4EUf7/LaaZK6BVvt3qp8ok0PI3u2STuRaHxd13 fN5IAonhj1OeXkpY46Q446dPgvRMfZGvdsro+amW9NiQBAsmtK0xu9fhZVna e9o+EozeUI/NXq2KDx6PNVo4k+Cgb+xFOW41TP2XsGjsTYLHa7tayqbVMHZ1 yoryEBJcOxMofL95A86T9MxL00gQ6VVzYSp4M35oFjoZXU+CaTmeR+HHNPBx 8SqtG60kcO4/MMltronenUWKdv0kKCqMkhLM1MIBrRzTli8kSBOSdVXy0kHb BY2+WA0vaPLeOzvxinBkU/j0bi/40+xHrrTbggvTEhEPbbwgIOpe+fbdW9E4 eI1oQYgX2E84f7NerYehZHaX3D0vOGuYmiJO08NbelT63R4vaMuvkhjm2oa7 eA0zG8e9QN+ea6fn9DZ8pBSdPCvkDWsfXkyObt6Brk7CBuKe3jB1fly8LNgA lXwjV/Co+kDD1ddXD341QOW8d41Chj5wuuG5IU/wbjTrFLCnOfuA+uuOIOcg wJZjEjUjOT5wO/MwiXobcRQVr/eL+sJ8n2ET1hqi2cSrd5VrToDLq/tnJOcM cUXrsFDt7hPweHzXoc+6RlhloCmz0e0EnPuh9yX3lhGmUlXLDlw5AfqSm+R/ 3tyL558WVeeBH0QfFouqvGGCZtWXrWJi/WHcLdM4ZdYER69Rqb9L/cHyhNCq I1tM8T9pjYjhHn+QjVlexnfDFJvNNDwaVAKgIf/PgHuNGV5a4lP3rS8A/r4d 05a5boGTWWsV6tYGQYLXzY+Ua9YoUH9l7drKYNDp76xR+mSNUTd8LLxaguE9 TkQ3qtigzs/ghacjwWAhIyM8l2eDNqoX1k8LhwD1A5yrMbbFxdmND6JCQsD+ XMk9xa37cU+rdJbX7lCY/BvEy7XqAEqFtRdKfTgJq9qX5zS0O+DhCFYb/6EI sG1NefZ9wgETTtcIO56MgLNN3AKblzmiuom2WFFGBAje/RObD464rHrDdZ3W COCt+M897qYj0qza/uhsiYTfZ4Y0scAJuZu1K5wEo2B8/+W25uDDqLCvMfdm XTTUvTD52S7ljIWHeMt3foyDo0bz2rHbnfGSdcD3WzzxwF1Z7qfp5Ixb8FmL tHw8WCQIjtLZzriD/dcy3y4eXqr2dhyVOI7Ne3PiM+7Ew796jf0/V7jghtx/ /VxGCaC0/I5q+nJXjP3u0Ku7LBG+3xXd6ybpijN3RZQ+iyRCa9AJ151qruh5 U+L+OdlE8B2WzZsxccXtZLfn7VsS4UZl/Co7iiuW9jl4MlwTYa+98YLMMjes J89By51E8LrY86xiiTvqdm2ovOmeBJaBmRqnVrnj/dd1mzf7J4GWgS1tz1p3 NL5otiw3PAl+P+/eO2jgjlFFCQMO6UlwVqT79r8Id7R43NRmcy0JbsZ35tv9 546r7VcMWc0lAZdzu8/8Sw9kXl0Yuh2XDO83UVubPnlgX0mw8RQlGdp/mSuf +eWB4++9163OSAY688krRUlPzOb2Om55IRlUOx/b7LPzxGaDtAnz+8lguatN t+CxJ/LqCZpTF5MhR+YR995bJDTTHwj0CU0BLQX54/taSHj1mPA5iegUaFOO aLAbIGHHkS8id5JSYE5d/ZTrDxJq/3NVHM9KgYPAmI7T9ULh+zu2tlalgKiH x1D9LS80e5MX1/kxBU5XLq3UrPXGmibT/XscybCuxpl/W6s3ziwvlH12jAx3 a+u8dg96oyCD67GTBxk+3fdTsprzxuzRjBmbYDKY9/azffV88IfYmduvqWTg /VmcVFLrgzI1TdppDWRIQGOnNbd98V314XcOMhTg95Z8O9Tqi/IKil9GFCjA yPjoxRj0xWgnZpizCgXKX585JTTniwUax1dYalGgN2aQ9W/rCRTUNT4wbEwB lXqvgbGaE3hR4dr2p4EUaNem2lVc80NHd9nGHfcpYH/o6LB3ox8GFFwJ43pE gdcJGm4qXYRt6dUPH1Ngtrs3uGDGDz08L3Vt6aWAbMCarEx1fxwwdosZGqdA wJWK7pNX/DFo5tSC0opUEFPutjQoDcDL6QLr/1ilQrU7n/jUzQB8Jt31/vn+ VLAs3vMypzkAr7NV8moOpgJF5abP97cB+MU7j/fwsVT4rXaOcnVNIE5JmB+L 9EuFUXX3B9JZgeif12z9Nz0VnHL/SP8xCMJFJ7l7e5pSoXRnzuJ+4yC0MThx 93JLKvx4ufVdmWUQ5m0wNOZ/kgrZsgFlDkeCsMZAV7ClOxU68t/q1UQEoUVy 6vCqkVSAwpYDPjeCcGPAAS7Bn6mgWpJxZmh9MLrkRabkr0+DLpfIrx1awTje Vak+sikNwmXdDzZtD8YumtNBac00aKXryVWaBeOLyv4dqbpp4Jk0UpHkHYyz /xm37zBMg+Ljmzo2lwWjdQa5ffFwGijJtPGnqIVgcMYWAXlqGrQPVAdEaobg muF7Yz9Op0FI1vnegG0h+G7rq8b2jDRo4gs4f8g0BNsms2gnmGng+lN8o6ZX CDrPvR5PL0yDwn438+HSEFx98M6tXbVpIJ/xN1VLNRRXujg1Zr9JA5uhXFrB 5lCcqBexnHiXBgkKOzIEdUNxucpE3o7xNBitCmVNGoWieuRs1tBkGlzumSwu dA3Ft4tzwr++poGWaN9DkfxQbPoaHdbPkw5GzMt/voidxFaxRcdFlXTwzrUN vM4dhh6j+hJZHukg+mMD32++MFw/GPfPmZQO96x5LhqKhOHmcjTZ5E30L6nt 7ZMPQ20XydnGE+nQ4L1Gb25nGJ6rPvurNyQdRPQ+LOiHh2HX7VcaVQnpUNcT TX30KQzD93DFGuWmAx/v5ZKhvnC0LQ0s0+xIB8HozsbGl+Eo6TCV/aCTiP8y O1QyFo4SIqVctt3pIDWM/Cdnw/FewkE/3950WH9tOEBE7BSeDmNcP/M8HUwd hLeb251CRb8W+4zxdKCUhrXf6TmFRxlQlP4nHZaa7v0vvzMCXTbI0MtVqJBl Jl+22B+Byg02Nc9UqSBvMe9y7FUEeh6e7JtXo8IOq4pe2akIXHJaSWnvRioE HBCvzeWLxAvTecu6Najw/Ph4zDmjSFQM2tVQu40KVyNS+Jn1kbgvNM2634wK dlceqZwuicILEm78Ed5U2N425UytjEJZG6fn0T5UUBgXzUm7FYUF3Vsa4nyp xH/IlZ/cEoVNyoeeJPpRITVr8XPs+yjUiz4oFhtEhYYIvbpAlWg8fMhexzyC CmqmZRYHSgjf/dJmkEqFhTFaoExJDAoUVUe3FlHhqOh/BrMVMdjZInwj+xIR j3aCHTdjsMFCZqdzMRVi8qXKYx/F4B2tUZgtIeIdSkbfjhHjGeUaq8sJP2k8 eFkpFseFj+rsqCJc9XXn1sJYrFB7sY33LuFoRz7r3Dh0tlGBgR4qvNcLCL9Q FIdcWu12gc+o0PU1ZfxLeRz+TSB95uulwkWvmgf0ujikMzfe1++jgskBocgX A3FodMWqN2eACpkbmz96iMRjXbykNAxTQeWFxtNocjweMZof1xsj8l3D09a/ LQF3H+pcOzlLBTNe3caOnQm44V/mTPB3Kvh+Jd16RLy6dtpVZn8IV7S1X7pp moC+BReuCs5RQedkdgLDMQG3B97W3DhPhV2divr2pxKwVyqHartAnFc8VvbV JmCOsdVeq6U0iBuLpffqJuLfT0KWa8RoMM5IH6bsSMQZ1QWtFMIWJkzFnQaJ aHlUvm2asER5RdWlvYl4Tmo53z1xGlwLePn05IFELOZijx2SoMHrX9uXSgYn YoW/rT5Zmga7Rb6fPFKRiIE8Y/LFCjT4u8vXYVwpCWEiv3vlJhqsiskbmVBN whsxYRsCCK+72+UxtTEJV9WpbO8gbL5jS+g3nSREb5mwVHUaMHQXMriMktBE 9+zJ35tpsFHj7BNZ9yS8u5XV1KtFg4MKNbsOXkpCAYc3B631aFDB/VupVTkZ NRqnfOKQBjHm7d9r1ZLxqmFVeDvhfVnnWy9vSsb6aENziT00+LR2p2/6lmTc szUfKwmrYcx1S6NkdLkSG/vckAZFcX+hzy0Z+WWUD68zpkHOnyXH3l5MRgN6 1kS2OQ3IPwTYvxVSMOtimcDAfhqc56mtu6ycgosNj+6ttCPqtcpl2F4tBcV5 u00sCA9uvilXpZGCG3rUXzcSViUdLXY3SMEbUnEqpQdo0DpYcb3jcAqOfinR 9j9IA946q44CZgqW5q4Rf+1Eg7SoDG4jATJe8Bqw2X+cqJeEizusJKOmW1MH hTB/jVbLTjEyaqk/U2wgTPv4LG3rGjIeYw3aq7rQ4KyTuIjqJjKeURAYnSfM 0Dsnv2IfGcW/Ct1iudGg8FvRzm4qGb1zt0nWetKgzrc27Ag/BefJ7Ug9QYPG Dhc1cWEKPr3t1nyDcLOGwIuOVRTMcs3ZMEK469vxXbulKXj+tdZFTT8ajEWt 4FFcT8Gr392hj7Aw7WjmB2MKKrovs1gdQAPPq0uuBidScP1SO1VyEA1Ep63f ps5TcDnfAz2pMBqw83y+8Y6m4s+9ZzSXxRL51qkJO7xJw9fcArdMUmig4um4 tv5pOlZcuNHzN50GmrEbd00/paKoTg6vQQYN3B/F/wtuoxH166qn02nwMM+k XqDmNDYWD+UvZdPA6m11TFj1GVSQyQnXPk+DJbdO683mn8UQ/bkftXk0GK37 xG6mZGB3rF7WQAEN5sXCuWv2ZCJ8cjXtKKSBOENT5/TtTBSl/TY5WkSDtid3 vKy3ZeEvQ52azks0WPk4Luf8tSy8fbfi07diGkyP8MhlKmdjr75+8WQJDVzK D5f6F2WjouhoW3spDaon/PaaFmejZNfE007CXKrxo2tLszGp+HtnD+HCokvy /eXZ2PpJrWOQ8LvcaZb+9Wx8f0f0+ihht7NxqcsfZOOHX+/lfhP2CC3yvjiS jQ3rmqhql2ngY/Bp44AUHSuNln+MIZzZtNJnUIaO5PbQynjCtaa6l4dk6biu /kVgEmEeuwTl4bV0ZJBYn1MJ55MkZN+sp+Obf9/6sgk/yzAU+ridjorWelBG eMfo+f8WnOgY7VF04RnhFan7bq47R0dtf+tm+TLi/ok8YMvm0nGT/zSPImHR 81ujxfPpyGMxZKhMWLZSznDpRTqStrDvqhHW6vuve6yMjp+6nudoEXZQYEwV 1dExbc8GHkPCxbdfKSk+p+O7RcF8d8K7J/2z5CQZmM/WFi8i/N6+O29WioHN H990XSJ8+qFW2RMZBvbs3JNWQnj4/GxjmDwDjc0UfpYRPmUVOd2pwkCr1kMt VYSra1JM47Yy0JTHat09wsqxuYuv9zOQS2Hnl0HCfKJPfApPM5C32fQNbzkN KC0GqwvOMrDuZZcPH2GeyJoHuZkMPD3x89sKwn/f5EqyGQycctPhFiL8vTKg 5UweAy9lHxYSI/zWXFwxuoKBAj487+UJ1yUef36wg4FL//xk6hLW0+1PPtDF QNuYzz/0CN+YNNPc38PA34bn7bcTvmajQ7HsZ6D1pJjwTsLFcsu2Gr1ioHDA hWAknFl/JUNrmoH2+Yw/FoR9vv4wERBkonRqm/xxwnxpjjITQkzMOd69x4Vw mXz9TNNKJpJ4Wt1dCU/ui2FEiTGx5GBisTth79Ilox9lmDhUuVPamzDpyMrY xxuYeM1SpieIsEfL+htkUya2vjIOTyS89CiV4mrOxLU6n08lcfb3beqQwT4m smayIpIJjylUcf2wZuJ6sc5wMmG3KF1rDwcmGvvJeqUTdtU0/GjoyUSv50GS WYSdzx1R4EpmoqP5ifoLhI9uFczpTWFiecgjViHhw90NIiUUJjLnNodeJOy4 TH6JBZWJ85ZbNlwibBv8dpyexUSDlyuppYT3mHteUStkYvBDe4VKwut+Beja 3GMiPXft+XrCSgyFa4r3mTjDI3P4DuG1mj2q3x8wcVBzs/RdwrKe2lLnHjHR d/oio4Hw6mezv0efMnHJhY6E+4R5yyMehA8T+W1x12gh/NEpaV/BTyZ+e+/9 tptwo76JR84vJp78+ierh3C2LH9s9h8mTjxIN3xGeNfbrGuUf0zs+8Aq7CV8 1uviqsDlLLR8Hm87QFgn/MEQSLKwyqc7fphwFP2v+zs9Fm4e9pUfJ2wd1hTz cjsLlytPVnGs7EhhDuizUNfRB98T7pARbnuym4UeZyOcPxCWL5LbWGPCQqm4 Z2cnCTdV7/qS5MDCtydKH0wTFuiKilkXzsIjEdm+3wkvoW+6t3CKhQ1vvAc4 nnd8tdgfycKRRF/4QfjDO4N4ciwLP6p/EZnjzPeDK+lDCgu9hPiv/CQcIZea WkZn4enzBTd/Ew4c3fY4gcnCK+kGon849+vyJN8hNgsnA/kDObbXtqCuyGXh bJuG6gJhTWOhM75FLMxULqUuctbzo2erX2fh/oIQda4rNBjR3tu39AYLE2Z5 Yjnun/suNnKThc53Wzo4bkpwYJ6pYyHseOnDTTifIZ3z+T4Lb/3ef34JYfuG C/nVXSw8u+ls/1LC+xJtX6f1sPDX/W1SywgbmnAruPay8PUS8SMca/a4Fa4a ZKGrjOdrjvnHVS6FjLCwRcP/JS/hhwIVZVunWRgkrl3FR3ij4ccBo88sHBjy meY4O0KV58AXFu6FkvUrCHu8LzwW/J2FWhfWFXDMd58pem2BhVdFLGL5CQf/ 6IV7f1l4yiOvhuPhTSL+HVxsPJH37QPHFTnUtk9L2Xht/1VLAcK2IfExakJs 9JzaLyhIuL6soVxvJRtvxrTt4Fjpza9B41VsdJExJHH8fd9JbY/VbBxbbtrA cY6Kz4dCOTYeCaEfFSLMfbRUrFqBjT81dZM49s0ew/uKbIziHynleNe/Y7kj KmyMYcMMx2+e29nKaLCxmXwgQJiw2crM2A1abEy8uOE0x9XGnVe267BRqY+3 nOOkGtNljnpsLJoZfMPx1GSKDmk7G91F2n9xbK/QdDxMn42PGh6JriSsenrX HfpuNsorPdvDcUZT5EQRspFXdMyR4/n5WvEaQzYG/Frw47jdUzuwx4SNVVLm DI635AXkvTFjY1ZKdCnHeb1Xn3y2YONy29rbHAeA6johGzY2+RgPcYwVhXGb DrAxbOPPbxyLSq95Ye7Ixne2HfwihMfJzC3eR9j4mdkiz3Htt5VnKcfZ2F8x psHx4Y6lRs1ebJTgyjLieLHk189/gWxUCH5hxvH/alUkJg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.0025}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Nc [tmax]\"", 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}], ",", GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVV3c4198XNyKzJDtKdiKyq8/7fU+27L333nt9jEpWiuwVhZAklZWklOxN domvUTKKskr08/vn3uf1nNc985773HPazlvPkYyEhGTuYPn/Ph/J6189q4MM IjblHn9ORZ/Wb2IqUVPIenCs9OsB5rIZmBsJXUUabFSdedOpqHTOk0mRfQt5 ZBOTu2ZSEZb1SyY/cA+VttWS+86mIreSRpFdFzIY7p47lzyfimSu/nstyEoJ Ty3NeIS+piIyU3ltg1Zq+MWs81NuKRX1SsTMXPOnB0TXUte8moo0KOfrR5MZ gJwt4FbreiqS8I8hXXVmhOO7Y3cub6UithmBK+SICVTvn/wqs5uK9jU6UtlZ WOChskh9CUkamn/p+lFslRXUJHJEkyjTUJcALZ9yCzuQxTwLXKNLQxkkWrV+ flzw1+KGGu+JNET0/LEXr3YKVpquKG7wpCFxT9UH2snccNp66Ac6m4ZYJr8t OzrzQIzhK2tVLA3dTL7IsK7HCznPs59RqKShv8q3pMJxPqgQFunGddPQbLVI RCqzAOyovb3H75yGDN0iCrlIBeGFYwLpsF8a6uDuay1bEQSb3dzr/yLTUGWi 95Gm92eAJQI37M9OQ6HOVfeXfUXheFxdsOVQGlrhIm8JsjwHGvXa4//+S0NW w/qLpGpisG/X9ZjnZxoqKiCy0SWLw7vCV7nLx9NRPD2nLY+zBExN6K5kW6aj ZhfFX18/ScBHtpiTmr7paPe9R8wTPUk4LcD0LyYmHXkRXz+Sw6XA776zSPzT dGTw1eqnFrMMYG+ci6epM1CSfFw00y0ZqPkqk991OgO15z9lmSSRhVTpQlt0 MQNdNCC55LgiC6dl/+Pq9MhA3O8Kb4S9vwCVcfLjvuMZaDl3nqnMF4Nl0gqW 9q5M1Pj482PDdQzY+O5pBH7PRLcbx+XJfXGQfbieMcyYhUQ+9/hY+SAYFueh e2yZhV4kmzklvACQq5Q9PbGbhbhzxs7bbgO88xLzPM+fjeILDfZkZS9D/X2+ VEXtbGRSpZW+UHcZDrffzCsoyUY7H+SboU4eNEImWA3Nc5DNp6ZE1i15cLSh 8XuUkIM65gmm36UVgMPkd8T7hhyUsymzdrdWASb3lZy0uHLRRdazJ7drFAF4 l0MWl3NRmNlx4pNqZRg7VpER9SwPzdslK0X/UoZEd02xLyt5SMOd/pi5pArw F9GcExLOR5zhh8uoqlUA4n/TaD3MR435uyP2Vapgzbg+rlNxD+3PzJ3neH4F eHVUDCx9C5DTN5u9tbUr4K4+KbyUWYD61qc62sXVQfBRuclGYwG6RzZuHfhM HVp8/xCjaQoR4utJHHiqAY6C236VjwvRNeeab7GVWlA9x3uL7PADJDHcW8Wz pAXW9+t9us4/QAvwNewNvzaImyydp7d8gK5wcBzZytOG7rXNHMraB2gvVnIs ZVwbHOIcV9789wCNhwoMsNDoAPX7DN/NI8Uo4QvKqVLSgYmVooAZt2I0l9cT cc1eB8i8XxVn5hQjgr6pndZ1HUhfJ/fo6yhGmdRflDnv60DSfFJJ/E4x+tHk d3apUQeObImJtgmVINWgf0frJ3WgTDRkOs60BBWJ3N6I2TmwR12V05dQgnZn 2Sb0WXRBIXfqwt3GEmSQU/L6tJQu7KpxGPSJPkNPtCWKfujqglRorjeph3IT JWVT7GtvXYiYTFy9LUUFNo3q7rcSdWGVndX4NxsbvPQb1zZ9rAtirhmbpr9O A+MZRynBTl2IPipIaV4nCB7T62ybX3Rh7ds/jROGonBSg3Y2mUcPMJVRe4nj UhBMlt1mBXqQrcQU8rBCBgbq+R6LWOmBVO+lCE2pC3CDHw/oyNGDU1UTOXeP 4LC470NJckwfPqrx9ISGKsDl2r2l3nP6YPq626nsmiLkuif039XQh2w+AqvP VSXQHH+QLRuvDzfaHIZOOKhAaZJ4BEWpPhzZuJgncUUVSJRe2354rw+LOtq8 kkJqUPV8VNj7nz4Uh+aJqvdcAVoX+6MYlwHE03FpJaeqg8PJtV80lwzAeo2v l0NXA1hvUb8uDTKA1zwDHTYvNMHncmZhQLoBLJwWmtG01oKubZ5Y+aoD/obn 1bl/WhDuQND+vGoA9eEDx+uZdWCEo1OygtYQ2ufSeLXMdeDcoCEb8YwhBPjr hnrl68B/mPd/zI6GwBYXWnuTVRcubuy2zkUZggSayMrS1oX08vjy5wWGEHxV t8cxWheUWYv8NT8ZwuCv1x/C5nWhoPecyYk/hlApMyM3c1QPft94RfjGagS6 gQxHcTk90LuoevqFtBH8d8hh8IGlHlSsDVPE6BuBAas0Dfc1PaB4aLuk52sE DUqpOu/u64GV5fc+7jtGEMv9UimzUQ/qj4dVf68wgumqu6lPRvXgWNfh7MYu I+D46rvA/F0PdNqiBze+GkGQQdXPMDJ9SGompRWlMIa4TY8nrkz60PsmUtGR xxg+xj9ZWeHVB7pXuxH56EA+s3Dj+Hl9uPIi5MWIhTF8MV+H5Uv6cLN6c42e aAyUHHxL1xX1oeOpn7ByljGQFjkSFq7oA2XFD/vIGmPg/2T8jUdbHxTLPPLr Bo1BaepmhqruwT0o/jb6/bsxLLK+GLU/wM0FTgyCdCZgM80oEXXAJ8mfU7M+ YwK3zxVwPFfXBzzH5kaWsgkkcGX+2FPSh4iMqcZ+exNgmBv4E4jrQ2OK2dbh 6ybQkqDtLSCtD38Sx8TgnglQCr9x5hTWB7kEA9eQVyaQSkm/4MClD8Gxg0XP xk1AyZ6pl+6oPtRFaX1a3DQBsiXFb9z/9GAjspv59HFTqOB2XHiyqgeSYara puKm4C9lrvV2Ug/8glvjUzRN4U03eYpDmx788G7aJY03hWcMR5+lHfTJOQ+C 9MUSU/A0lW2Uua4HHi4vvfyaTeGqR9G/u856sGRT/d/sX1OIqhX881FcD+Z1 H7a/9zWDh0+fzPnU6QKPFh/p3yQzUOTW63fM0AXbK4UXpSrMIDSyKy7IXxc+ y999UvzFDOiJPSzMorowIXknLcbcHJJXHHhss3SgjznYWkXJAki6bu4vFWhB /YTydhebFWzxqj305VADC4Wd8xFyVtA976J17aUqkD555CFmYnXQDy1pr01U 4co1utm0LCv4qOJkvZ2lAh8FhnosWKxBoiHa7T6HMvx7eU53m9oGygQfp5tc UIAhrzivAXYbeHe6rEVqRh6KeWduPTpjA5NPfMY+xMmDamJKm7maDVT/8Iv0 m7gMyTYbl97G28C+JPnzjlgAnsMNAjcP28J83v3+OQ4CbLxiVLRjtQXnWDpz lZhL0ObjbntJ0BYGSCb+lK1fBLdJzrxVZVsoYm0W9Ru4ANVPrh7Ti7WFq/MK HJalshBrN37ubKYteIj3F69zy4IJ63mNQ6W2wPmF6mVyvgz8vTYbW9d6wKdk Pvo9TxoUDZT+clDYgfeJpeecNZLAQn2PfYPJDuLwvp+/cElYfL0l08tnd/BC yi91d0tAomCZ71VFO8ivsX3lv3weRv/QfJ27YQd+T6I/aMuLg3PhwGAFmT2Y NW42HMsUBg3v5HPBx+yhJ2rRkXPjDIhjOrcuc9tDLePXAlnDM/BnvF9xFLOH KI2beDS3ECQx9L/4F2IPA+wSvn6T/OD/OYmpK84e0khIvJh1+MGkQss3PdMe dIM5z8V08MFp1T7hMzX2UF5ux1T4jhdqrvbm6/2wBzuWlvG3H05DjmbiH859 ezi6GkdZb3UaIk9oGn+lc4Bq5hIdsRVuUHnRwxAu7ADClupxIUe4YfJ7940S RwewfrRWN/mZE5oab814BzgAOh5+aYCDE4oT1LGLNxxg9WjxlLD5CfAU6N7q K3CApd5Nmf5FdiCx6nLd+egA3PqD3v3SrLBwNqGteckBNN7SCZGmsUDXbzXe xN8H+h88/UC1wQxpGZ2fTrM6gsemdajLOyYQ6O3QVtdzBDmGskjxOEagvRtf wWzrCNGJTpRSpIyw5qJKPePtCNzvZCNuRB6Dl4c6mgMSHeFVaUJ2SxQDaBDa pe91OELGkgcJpw09nKeJS3UZcwQipllsEUMHLOPKPyS+OIKoyvM92We0MO3f VtZO7gSchCZzFRYa8HvcemIdd4KeBfW7udyHwTg0JuSVphO4HEUM17wpgaCi NBJj4QQlUrOFJ95TAMVcSxIH0QniT0gG04QcgmyOFlLFWieoO5X9e4OZDMRP nbRWb3WCqs+0SWLhpNDOG9KoN+IELzT771B8JYEtEZFg200nKG7ryJhN+4eS zscOu1A4Q6/W75+5N/aRgMzMeR9mZ2ATdvVKCdtDhih9JVLaGUguOPLa3NhF Kwrf1WKVnKE+8EJBX+ofFK2q+jDR0BmmviY0PXz0G9Xo/rXNC3QGMse4e4Mr 24jRwWHsZa0znI2fPSvSsoHKXd5IvWt1hurtascp6g102ZMttWPEGdZEFc+E G/5CPkE9GmObzqB/S0Ll4946ogoTKP9M4QJ2Cmdsr5ito4Kr1w5/YXYBnwie q4ca11B/vFTzhrQLANksRRTXD+SUmHTqr5ILzMuFW//cX0X7KYvh5EYusOT4 bbD/2wo6dzdPljHIBaKV6R6+mlxCt58ceiJW5wLD0rN5zDxfEV+VFY1smwuk VxxyKVT5gl7V1Tvjoy7A87H2dFbAAlpq8uDR3HKBUlXK5Y9zcyiqpe2qAaUr jE4UWjTyzyGOTu4pcxZXMEpa9T/jNYvUhoaz3GRcwX+W7nLvsf/QzOi5TV9l V9hamssr8ZxBIR/j9UKNXGFeQhNjuDeNyuYJ9PFBrgBd16fkFacQ5XZxVEmd K3S7LuXQ0Eyge7v70xVtriDU+Floh3EcSZOYYjWjrmDCX1NUzTeGHKjpd5q3 XIEn+8F//rYj6C+9s2EXpRvs+A9KiN0eRumM76oGWdyARS3PQ6XpA3p/ItBz RsYNKoWpBLUvDSEz7v6ur8puIBRQ6tt1YxD95Dsj9MPIDUh1L+3+HBpAPOem ZveC3ODZvVmlKap+dA2UTE68cINV3dHIJxZdiMaFdWaszQ2ahHr0enQ7Ufqd b87po27gI5LA2KLTgR59Tgym33KDsIF0p3uebUiK0uZfJ4U72J/YZem+2Yre iErExTK7wyZng7BuZQsaCh/N/CflDm7wvlbv6HtkUVx2slHRHVQFGmTV1JvR 125iaYiBO/TuXn6XmPQO/eU4Vbfu7w5i1748vSn8FvG/dB6Zq3KHjfVAoU3H V+jZzAXLgmZ3IHTO8MupNKCLVHQLFkPuoFHw6VGB5EukZfxsY2TdHXiVcpfu nHuBxiOjwlNJPaDdfP78nYt1yL7U4JD2MQ+4bbm/1K1di0I2d453iHvAIU7D lcrMakTG1X03Gjxg9X1HqXB7FbqtmM97WccD/omVGCX8e44K0y5LNngfYAPb 637xz1DX+QS9ikoPWJjQOWY38xgZmFpMurzxgCL30tN5NeXo87Vzdvx9HjCV Or48kfEI/eof8r236gHixOpoVeJDFLld/NtszwPqpb9cnQwvRVSngq+z0nsC RVCl99LNEsTpdSIlWcQTRgTdTiS8fYBKM1bZNAmeIMI+Lba+WITEXzcVUGt4 wt3c7Ud17EVIic7hWZS7J5BIhtOqpRUgr/KK/oByT2gwbSFJeXMX7QxGGp9v 8AT+xqlfT2NzUdRvnenVTk+IoGf4ef1gPsxS3fzu9M0TCA/4Z33OZCEen/Yg 3t+ewMZea1B5OhNVZOXsT1N5wb+lp2PTfBno7RfsiKmQFyieT4i7fiUNXTnC kMks5wXvzKfChD1S0Yj0LNeQihdoB5aTXchKQUvRsaLqzl5wd6p5mY0qGQVU mNQeDvYCu1Q30cDcJLT/QRhrifUC1jNGeS1Sieg4b78GVuoFhs4txpRZCeiZ PRXTco0XWB7yX7H3u4k0ii9/zH7vBXNHMYtHpvEolr/GdWPGCz697aXmvxKL eJ1WxYt+eAG9233p63ox6G2pwI72vhd8uMmywuAYjf4I5sQ+PuENH87qL2EP o1CWy5CmqbA3rGi2s3ONXkdSj2iZD1/wBhUpuqBq+uvISzjygZ2RNyxav/Y1 PXsVzYrYv2VP8YbieJWBYyREdNUzL679vjfoqE4PRY+FIM7KEa3ASm+oeyLy LOtVMDIUU50a6PYGUet9Yu7DQPTT+3px5KQ33BX4uZ9eGYCSnjW4i3zzhh/H Eab41h/NZ7PsKZD7gHt60U9KMj8kcaF6JpfGBy59C+5TOe+Lrk9ot6wf84HS keKvWa4+6CTHzVv3uX3AjMHuwehXT+TRwO+9JegDHf8GPwYkeKBXZs16mmI+ IPxOHLMhuCOTu7vsu5gPUPN2bWV1u6DSS9l7uko+QBlj9fbZQ2e0+VHqvzIN H0iuoeN7muyEUjm9yozMfUDg7uvf0nEOaKaR5vYTOx/YKLG5V59mj8QsH3of cvOBw1ydU0yP7VBP/oxMVYgPnP1F5IrdsUEceAQH9TUfuNct294oaoNcP7Pv W8cd8PVl6bjHrRDlKf1W+swD/zvO1u8fskAGTT/KHPJ9oD67/PibajNUZH37 9qtiH3h5+4xpi68pQgWt+q7VPpAU+HmJgt0YJYGd7NsGH2hQY0wkIzVCn2b2 OVibfcCJXRPv2DRAIaflZlsGfGDrUOTNYHJ91PZuuPXEuA+Um2LiBif0ELOd 7yO/aR9gSItPmMZ0UVVRuQ/3dx+gEg9zV5XXRiQKKgbBmz4g0dazuvlOE2nP zcn2/fWBo37zvYH6GmiFl+tfGK0vbD/U4ewoU0MXW17ODjH6guTKnXgud1V0 08Go7QyHL3R0ixZcIagggZI7iWNCvvBwrVkgnkoJ9dmErveI+8Lif7hM74oC CuK0N2yW84U60vKV2Gl51JYmw/VE1Rd0LtE2JqwC8tLmvl6k4wusZYU7UYcB sdDSLGSZ+IJPmVVXphmOHKOmKqJcfCG9527OH8lLiA5vZwjx8YUFpS8LBU0X UM3vZwGeIb6QOjO9d9tKDh3yjSaYxPuCuKC5juuQNKoQ8SrQTPaFEbOlj3dK pJDBovEhhWxfEBmZaXeOl0TF1md7RMt8YVPq8H064nmkcYJZnPeZL5DJ5G7Z xomjjdH9NLZ6X3CIEVFflxdDilpD5uQdvuDt+fNy3c+zaIW6sWmn/8CfZcnC L+7CKL21hPf7mC+kyLxo7vwthOYIocvjX33h4sTqQoi2AErYsdPu++ELkTHD m5rM/EiiRqP6/bYv2KQkPfqyzIuiznKHVR72A14vRrTTfhoJf6WefnDUD/re +r0e7eZGQ0W/5HNY/SBm8i1/bMMpxMPRThMt6Acboe2DO+qcqGvkmVeomB8E O0cZbr3gQH4puUNesn7QsBE3MXyBHTVTeeWaqvjBi/N3RJ8QWZBbi/G+lrYf kLYnxsfJMiPGa5ftFI39YLj/egoZJROy3WYSFnP2g9jHCsdEh48hqur9RD5v PyiouRHHO8SAnnktrrMH+0FXQi7pncajiOTLq5eH4vyA+3Vz9QUCHSorLOH6 k+QHKvdPHR4qoEE6lneu/8j0gzWBnrxznNSoYNhObbL0IN7gP0O2epRINVnj SX+lH/BVqA5u0VCgNXWZY611fqAudexC9wg5gvfUE0/b/KD8irS45j1StBj5 i1DS5wdXl+WThHJJUPLFqYLcUT94Kr+teUntHz79/JlLzBc/aGepum/XsovH eub2EL/7gUnnnZxngn/wc2eixX22/IChTvaubtEOHllgvGNG6Q9/vJN1r45v 4gIWly10jviDQizafpqygfexnn2rxOIPbHEsnaGWv/CTd/bjxAX8wd5xlqNL aB3XHrt7656oPzzGEkpPyq7h105duEMn7Q8/O0859hZ/x2ef+mcuKvhDs8Ln Ai2zZfz4DkOukbo/XNknufF29BuuCJX5LXr+4ILvXWB3WcQfDiwWF9j6gxqv Ad/Z1gV8nC227IirPzzI/Ks+lTSP09jyVoT7+ENV7cCQk+sc7rFuWW1y9UA/ d6tGhOZ/eP6F3bq2WH+IZd0IdDScwfuuZzdIJfmDNBNnes3IZ1yc8cM7hnx/ qECcOnzBH3FbM5/WyGJ/QJpVoqTLE3hqEX3nymN/KM5s4HgQMI5vSqgOdDT4 w7LI5bP5LSO4QNjCB5lmf/DTePK2L34YN3kfNVbc6Q81lrdbgqw+4A36rz9f G/cHCqXBaf+Lg/jyXbPZ79P+MOBC8ZwODeCc89sLFl/9QQVS1RUf9OGRARKr clsH+T05R5JwqRt/2ti/VrrnD9qvT/83/rgTnznkucFEEQCNGdFCcRIduELG w9214wHQdZtmUTyyFQ+YUvxndSIAoG7UcwVa8FL+WbJengDQeDTTE8P8Hqeq 46R5dD4Agggh4v5rb/EL+y/pWS8EwErnY4H1b024m7LxsRgIgOY3DPbEo2/w ntEUNlvtAPCkoqMeetSA750U4+w3CgDnfieLhhMv8XPOPacwqwDgpmdp0yt+ gadsUwqyewbA8bCp3pyNGrwZFQvHBQRAH12e4NbLanwj7vK5zbAACKXZUbRI qcKN2MKlBxMCQD9iLPOK3zM8zob9AkoNgODicfjxqxKvL6sjPMk5iPd0serq qSf4tzV9OFEYAMijLuWn02Oc48K6ws2yAFi7+4I6tP0Rrn49SWX7aQAMNBXQ MEAZHt55Vt3xRQBk/9iXNu8vxadNnfQutwVAyxxdzK5IMc5QRG70tDcAFKNy Rn/tFOHySwWmXCMBMPpBpmN+tBD3l8Atb30KgE3aRImO1gK8mPjR5vdcAGjr avzVuHkfH2kOcXBeDoCR8pM1Z0vycUpaFpeRnwGQaLH622/qLu5yV8f7OWkg JPLZd/XlZeOMm2eo/lAFgpVs5ZqAUBb+Wou8UJ4hEDpHypOPdWbgLmWfLtxi DQSHtPbLRpHpOCNZ3dCHk4GwyDs23quchjea33HnFAiE2YhfRNvTqbhzrcsh R9FAOIuNNVLTp+CNLidkti4FglmIsUWMYBLu1LzRhysEggHniWkms9v4Mc4+ 57grgVDEbUzy8GEC3hj4kGRA98Cefv/e0yM3caf+azlspoFw7XL6+YbEOJzh jJmErU0ghFpPTTnwxuKvoiS7HzkHws0Vc2r7vmicQebL34tBgWB+t9w+yjoK b7jTlHEjIhA6/CYP2ytcxx2/ZZ/riQ6EIc6Xkkxy13AGBb92ptuBcOXKLfML oZF4Q566jWVaIFTUcT7iKQjHHbb4fpfkBoLQStRToTkiflRnP+V7YSCUV3/Z LoNQ3IH8+furzwJB6mPjHrlSEH7EMsGi48WB/tSJINpvAfjLOvtNhqZAkFkv JMwX+uMODFiSaVsgfBUfumDk5YcfcWMRLOoNhO6zGdKXNH3x+vc/mpaGA4Gr Aw1HYD64PVenieSnQPDreqN+PtwLrx8IS2hZCoQu+rBplgk33E7YkJf+ZyBU Zw9Vw3lXnD76XKPh70BQrNi6S/vAGa+fOmx4jyQIyA1baX+JOOF2sv+tfjkc BClOBtvxvQ44XUpDrNjRIPiY4pgYcMMef7GUdiqEJQhO/Msi99W0w+nuKetS 8wcBCzN0fmGzweu2Ty3pigRBj8Nnoq24FW6r+zsqVzIIhqN1Wg21LHC6x0Mn 5i4e4PlboZ03zfC6QxU1Z+WDQG9iv2d7xgS3sYrRDFALgq/hjLEyesY4bb3V l0adINhYUQza+GiI27gfY9OyDgJ/gzPfuST1cZrWpWeZTkGwnM7XNrani9ee bFGb9gyC/GiznfKPOrhNSP6sYGAQ0E0KM05nauM0Q0FhPuFBwNrDcORktiZe c1aH6eWNA3tJHkcOv1THrWPOPCG9FQTWNQzWT7bV8Bq5T59Tc4KAWjmGmqFd GbdKrQ3+WBAEZHTEz5EGSjj1ShIDX1kQGAURJ+h+K+A1Si6PPJ4GAe/RtFbt annc6v5l+dq6IPiUZcn76/plnOo3x8e910EQVC8yV2cPeLXehr9yaxDU1OzY f6rEcSrKhyVjH4JAbIJf69XMRZwurPfNm49BMO8s7bBEdgFnWPs1VjIXBElq SVefK8niTI4c67eXg6CYpoZztlQaZ5sEmoBfQUAh8MHcj08K59R25jXfDQLV /ZRSYqMEzt2SSJAnD4bIseQwSc/zuFDlpBfD8WCg+G+/zZTvHC7CSxq/zREM Jm+4BycoRXDxbMHCzzzBsKKi+Pz5EWFcil6roVU4GBhlZs+bXRDC5aICPlRI BAPD+xtMwdECOGE7dyXtYjDMvOpVHl7lw8HjHUWYfDBYXf6kaO/Pi6sYHZFT 0wsGTu9LH252c+NXuqV0xc2CwVC8+7Wh9ClcC8zdWO2CYXLQiIZ9nxPXq71+ Y981GGoy81MDvnPgRsJleQu+wfCrqd/pOTk7bna/r7YnNBjkOgcMVS6x4lZM m33V14NhdDhyfCKVGXfav0walRIM1jyXqtRzGHE3fxcO15xgcB4/piKpeAz3 WkyS1CkMhoHhTmrewwy4n2WthuyjYEjf3jk7+5YeDxr66HjyeTDU6v/3nTuf FieqkF2leHkgF5EIPVlAjUc2CmWvvA2GR4lP9c60H8ZjSwO7GgaCAZXUCt8M PoQnnMibKxwPhuUyYyazv2R4UnLz3/iZYJg9k+gnnEeKp1J8Y/ZZDIYPpY13 WAxJ8EziUTHjtWC4o0jz7cWVfSz3h7QqvhMMLV/IDSpZ/mL3HCxs+UlCgGeD XZGc9g9WqvUo7dfREJDi3BS8Z7uFlb/vr5hkDYEvnYrHO99sYJVyW63vToUA 56ndj8wXf2FVTzinywRD4A6nf6fd4DpWx6Owc0csBBTOPmKoiVrDGrJcjwXL hgCfwrcwu+zv2Bu6ZGErFAJKRUcylUxWsNatTxYi2iFQ7v7dTk5vEetwJw86 bhwCjZiy9O3YL1jPzJk7f6xCwEK82U/t0zw2YKhT9p/Twfl/sjfodOew4a6g dx1eIcBaqtKZN/sfNo7yJ58GhQADPXr8LWkG+1Tz/ldmZAj06PrdO1r2GZu/ xyDgmBQCwj13RtwUJrHF47JIIzMEigfLxfm0xrGVeEsTyXshQHW/ESoiRrG1 vRu+HKUhcBa+8pv1D2MbfuUJpJUhMLf727oWPmA7XwceLNaGAPbNxMuvfxD7 a7Hd2P86BFTvzJV7hw5gh1QUf+T3hsDkcPBm+7keLEX1ZNnecAgw5onxP5Ho wk5e2bGx/BQC3IRK8yHTDqxCfYj99VwIRD7qNOkvbMMuaFYMcS6HQPSeFDhS tWJtWrG3wn+GAPMD589ht95jBjo2ip9+h0DUO2eOU2eaMS99prq7VKEQcaKp qdm0Cds1+O61ezQUNlWTSX1OvcbijToEzVlDIY/qUzsd/SuMxaRopuFkKBwi 6J8dP/USe2AansMhEAoMm4jlsuELTNzcSI8oGgpEfgWmufJa7I2FOO2kVCjY SgcZ3zhZg41bz4fnKIRCF+ugWJrxc8zR9o307yuhcFdvHpTYn2E/D4puohcK nIm7dcuzT7BrDn4P601DQb6xSk/o9WOM3knDhs02FII5o9IN3zzCcp0F2ENc QoHFL2nj1dxDTMiVZGjMOxSMK4yefhAuxeQ9ahSyIkOBn0pu7APTA6zfM+nv Vkwo7JcUZ12tLsQsvF1qjRJDwedd5jdL9wLsm4+8V116KNy2pOXUD7yHBflx CrLkhcIeVezlUJSHkQdsTQc+OMC2sSucErlYcuBA9kh5KFTijy7ZX8nGHodE 02S8DIX73/qinP5Lx+SIVu833obChVjdfkvzNKwtTC7coCMUCGRkZ5zWUzD9 CEbpmv5QkGwx379emIzNRK6sHh8LBTm65PLKD0mY57W2Uv/PoUBje7jKLOU2 9ud6gfWHhVCIn6bjGw5JwJhiDAZTN0Ih8TnTJvFlLFYYey7h5+5BPbIWcB36 GOxcPJWCHjkRlEUbiy9du4E13pzdfU5DhJivXxPIGaIwtVuNNccYiVBx5dy1 zIZr2OjtTE9fdiLIrr/7yvA3EnNI8hEY5CbCzn2qi9zPw7HIFL7sZDEitEo2 r9Rmh2C0afs6azJEWNpRPazWGoRlp49T6+BESO8WnWdjCsQEMquanyoRofip tXdFlD9WnXU77KgmEXoe7xS/OOKHQY6TlLcBEUqLw1zY6nywvlxY7TMngt4k h9DDVS9sMX/DKsmNCAM9IYAT3bDA+32s332JQH1isKgj0gUjKywb0AwlAl31 k++DZU5YclHUzSfXiJDk3JJwb9MB4yq2kKePJ8I1rU3uEjt7rLxEZtfjDhEe D/w8emvVFpN7yFDTk0mES6dfnDidboPplbfw3y4hwnTzRGmfiQUm175slfCE CMOfh8hHqMywU/OM2fG1RPC4kO8fv2iMUZJeHIx9TYSg/A3qUxuG2AqXLU1M KxGyvmFTHEIG2IeL8Qo3eonQZHdPUPG6HtZg/DT8+ggRPmkkTD74q4PFpex9 j1g4yEfeP/WCexqYVyWfUPgqEcqWxPcTFa5gBt3qtsRNInhTuh67zq6KXVr0 yw3ZI0L7U/GqBE5ljIci90MQRRgoZuu9olVTxKh43tEF0ofBO+uEyMq78tgP fFHJn/lAvq102PbYZawxRKbemz8MdNaOP3tXS8AeZFiue4qGQdaPdnMr/YtY QlW0sId0GNA08vvQ88phPv2P7d2wMHC2P9v5llsGM14ZynNRCgOh83lyr1Wl MJz6z4iTZhhQUob/TcuSwPgETh91NAyDKrbrLzhpzmM/rb2v2zqGwcXmx+rv 80Ww8fDMBmvPA3+qsg3/yApjTTmvf1kGhsGrb3HOJBRCWGndvIhFRBj8ejV4 sZJEALv9gdbJLCYMVMcf60kI8mH+axL3TRLDIE2ZU4gmkAczozcbN8oIg0pK o+ndL9yYoErZFf2SMLCcIj/KZcyJHXHov6H7JAyEOfb0ltbZsY1rW43atWFA r5Mg86OJFfuYz7Wl+ToMysTWfq83MmPNDYpiGq1hMCP17jfDwnGsbMzd5Upv GPS3cOa+kmLE7mykFqqOhMG0tfG7x2UMWNCxhknlqTDIYG6tbAo7glmc+++4 0kIYJKSERgrP0WIK6lSaCqthQPfJ43psFDUm7CIWe3nzQP+gfo2I4WGMIcao Ce2FQcoPr7kxIwpsuzBiB6MIh58k/Y15N8ixz2+KzxPow8EjBouZHSPFWj52 u11kDocK5Rt2Fjok2OOdnw/kuMJBtuaiFeXwHiGVmWNKhj8c7mtz5J5S3CWE SFxmkRYNBzm9isnl5R2CtbaLtqR0ONAcLYh507ZFUPa4E38eC4emcTdxrYEN gsjNundiSuEQvHUtquLQL8Lx0qk/oprhwP2Kqgm3WSf8aT4kJWIYDpNcL4Y8 m34QZqbPegpbhoNf37/vHCSrhPa/eqVCjuGwxG16ZDt8iVDJTpwW8AwHjdEx lmXxRUK6TCEbf2A4vDpVPKjB+oUQpt+hyxsRDlevPf0+cnaeYOfzI+F0TDgg EtmWu26zBNVElpZTiQf+MBk3HB6YIYiVY3tcGQf5OB3zqOD5ZwJLu4MMZ344 DOnT5C+QfyL8nbvlzVFyYM+DLtgsZYLQCHp0PTXhwGe1J2VmMUIIz2d7FNES DgPv1zd6RgcJhD+flcSGw+Ht9mLDUEcv4a9RyezM3AHmtmYZmuwgWMRQPX+5 HA6ljIJ/86rbCI3V7ldTf4UDQ/zaQPGrFkI4gwSnInkEUIjGDb9We0f4hGcs cdJGgObXwJw7KU0EgudO/SZjBNS0/lBfGGwk/O18Y/iQJwK+63myXSavJ1js nOa7JhwBhvwUWnZLtYRGgZifJhIH/K+LJxf/VRPCb6jfoZGPAEH+Q39yS58R /hLGOzxtI4D598ya/ZGHBAv3S1nKrhGwf0Yk7w1lCaEx557jKd8IkPye3Gct 8oAQvuVANngtAjYsAsotZ+4T/j5dvyRVEAEuYqIvzUkyCRafDWjoyyLAxHZ0 JZoundBIVz++8DQCzhqacWYqphLCXSMDs5oiDv6bVA6k+kmEvzy0T/98jgDO 9pDHyVPRhL8ZfDzvuCKBMv33m7Ryf8LfMGMqrbuRwBvw0d1GQJewIOMVdL8o EhJK2UcfWGgT+taj59ceRQK9rNNJwwoNQqFz1du0+khw2Trjy7elQlDWpw+d GIkEzpbcT5EvgJAs/P6bA8NVODqqq80gLU7gnzjXHRZzgH1G7XV26QmCJ8jb h2WvwaMsEbIkuo5LkXMRaUPS1+Gr4nIG8/uzl/YJbkbzPFEg9uXTHkdkysUK 0j88bbw3IJhmRXxqdeZCzCZt1p9T0bD9tM+xX+rMhXjiHVIF2hiopPr+76lG kFy9W12gOU0suEhWC3t2PZZlXNGaiduJBY1DixGZ4QsyWXmuPyln42DhFN99 vqkTMmr1gkeMpuPB4mQfZ4O9rDS/ozH3y+6bMPTfW7P7/mZSYhHChJXuBCBP z6eIZ7CTtG+5+s+3/Ra8N2sq2hVwkHiXp/yStuo2TMx/YMsK9TmvOfMsPPBZ ItAPHhFhHrMUJ6u9LfMrPwmaH4cM8lUYiM3WL2W9j71zMJ9NHS+NUDu3czyI tOpyMgg6F955QMItypQuJnH7RTIk29/88rqSRKS9s8FZSzYFlnOtznyJeSt8 tCMyO7cyBbpaz+4GWN8+szJFzpXMmwoHhXRWdjASsnlkVupZlApNvzf9dyb2 BVyxJeERtjS4JLXjb0Baw08dp17Dl5MGuW3DltOnlPjwRc8ULtZ0CElTj5bf /sBDxdjpWnA7HYY8FCiZ9f1Pu65vKtPSZUB+kejX3O/Lp6xyzE+R3MiA5PY5 fYf0wJPfTKLU721nwBuNYraf8iRctH3EcL6gTKCQ37jpMmhz4h1tRZnUSiaQ 7X8yExYbZheW/zai8D0TQtaf3TMa62VPDREg11/LBM4Aowe3j7SxOywUWPpu ZEKjrbh/F2s9O1VTBmPl30zQ/K/xd21tHruO39VwQfosyGcoHapXcWCfHtfT 4TiXBUqzNk31w7/YVI8mR5wRz4Lm4IRNSblVtmdKveVyElmgz7xxUTJ2gS2q SoXCWCYLVlcZQwXNxtgEbhMa0vAssLntbvzC/xWbFxLgo9fOAkqKAGbT6Si2 sUB7XU7dLNBZSLmR3RzGBhUFkWf1s6DX5T0jl1sAGyP7iQk14yzgAzLX14xO bHU/jybFWmcB43V8faFVje3UGc1XGbZZEPm8wsZjTZ4t3jphsdg+C4wzXkd9 G77EZtZzSOG9cxbIst3Ua6Y5x/aeTN5nyDULVrR7WTmPCbCJXLia/597Fkwf ozMhl+ZmS/du7FrzzIKrbiwW072sbHslv7f/eWfBsZ97W/XEY2z/A9R5RMM= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Height [tmax](\[CapitalARing])\"", 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.633751104624031*^9, 3.633756305588024*^9, 3.633756875768718*^9, 3.633803555748674*^9, 3.6338066913898897`*^9, 3.633806994159677*^9, 3.633928432257077*^9, 3.633928962530303*^9, 3.6339292283151283`*^9, 3.6339293187307*^9, 3.633929639194281*^9, 3.63392972557098*^9, 3.633929815950817*^9, 3.633930070347026*^9, 3.633930221781602*^9, 3.633930323167837*^9, 3.6339304288314953`*^9, 3.633930969130602*^9, 3.633931349199822*^9, 3.6339316087359257`*^9, 3.633931863725438*^9, 3.633931908461154*^9, 3.633932033474388*^9, 3.633932218476799*^9, 3.633932828903767*^9, 3.633932935434538*^9, 3.633933075938327*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Export", " ", "height", " ", "vs", " ", "r"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"FORMAT", ":", " ", RowBox[{ "a", " ", "header", " ", "containing", " ", "column", " ", "names"}]}], ",", " ", RowBox[{"followed", " ", "by", " ", "the", " ", "data"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"numberOfPoints", "=", "600"}], ";"}], RowBox[{"(*", " ", RowBox[{ "number", " ", "of", " ", "datapoints", " ", "per", " ", "column"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "path", "=", "\"\\""}], "\[IndentingNewLine]", RowBox[{"stmp", "=", RowBox[{"OpenWrite", "[", RowBox[{"StringJoin", "[", RowBox[{"path", ",", "\"\\""}], "]"}], "]"}]}], RowBox[{"(*", " ", RowBox[{"open", " ", "file", " ", "to", " ", "export", " ", "to", " ", RowBox[{"(", RowBox[{ RowBox[{"existing", " ", "file", " ", "over"}], "-", "written"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"WriteString", "[", RowBox[{"stmp", ",", "\"\\""}], "]"}], ";"}], "\[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[{"b", "=", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"ND", "[", RowBox[{"t", ",", "r"}], "]"}], "*", "Vc"}], "/.", "sub"}], "/.", "sol"}], "/.", RowBox[{"t", "\[Rule]", "tmax"}]}], "/.", RowBox[{"r", "\[Rule]", "r0"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"WriteString", "[", RowBox[{"stmp", ",", RowBox[{"ScientificForm", "[", RowBox[{"b", ",", "10", ",", RowBox[{"NumberFormat", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"#1", ",", "\"\\"", ",", "#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.633932439638679*^9, 3.633932442661831*^9}, { 3.633932777093211*^9, 3.633932777554803*^9}, {3.633932868069976*^9, 3.6339328698910627`*^9}, {3.633932959045719*^9, 3.633932959397133*^9}}], Cell[BoxData["\<\"/Users/milostoth/Documents/Literature/Papers/026 FEBIP \ modeling review/data/outputs/\"\>"], "Output", CellChangeTimes->{3.633932448002141*^9, 3.633932829023828*^9, 3.633932940806694*^9, 3.633933080721286*^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])]}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJydVcuKGkEUrU47s8ljleAyfs1klY+QITCzCAmTwZ3iAwQFH4gKKiq6UFy4 UMGVIIqKgiufiPgAxbffcFP3toqJgXT3oou6Vfec01V1T9VX/evTt+/61+dH ve7Li/7n0/PjL93Djxc+JAqMMR1+OoZ94N1TowOz2czYZygUCoLUZ/cYQCAQ gHq9DolEApLJJGy3Wy0cDgcBarWacJ0vUn6lUgGr1cre0KhI2OPxiB/7hK0g oW+A1WqV4jMwHo+rA9psNtjtdvKB4qnt9XoXxY9KgOVyWR0wm82qA15vjiKg 3+9XB3Q6nRfgO2pFmM1ml7E7JWR4RH+TxWIxKJVK8sk0J7L9fn8he0uthvaH z0Imk8Fa0Mjn08BmsznzIbd4+qMrGSTCmJecNDedTsHj8ZBkOByG5XLJRPma 72G1WhGxz+cDo9EI4/GYYq/XS/FkMiFRl8sFJpMJd/4ivlgsIBgMkjjOj0Yj aU6pOLctGAwG6HQ6JIaEGKMvcPUojPFwOJRWxxny+TzlIbbRaCjQ1cB6vSbd +XwO/X5fWs89hYPB4LLZWGVc8rxctHYqlSJVh8MB3W5XyV6LeIPd1Es6nSZC tAfXl18vH07VG41G6XrkxaPMCna7/cYK7XabDkCxr9xutzp3h0IhdUA8CVXA YrGoDthqtdQBsa4UAc8PCjpb1kuEb981EM3xH6D0yOZyOYhEIlSCFosF7a6V 8rm5/8i/o3zMQXL8U/7AMi16lAs2m026CngOE/7xpAu/AQilFTk=\ \>"]], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ StyleBox[ PaneBox["\<\"gas_mix_h_T_285K.dat\"\>", BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0, ImageSize->{{1, 300}, Automatic}, StripOnInput->True], LineBreakWithin->False], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Unique ID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["86", "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/gas_mix_h_T_285K.dat\"\>", BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0, ImageSize->{{1, 500}, Automatic}, StripOnInput->True], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Unique ID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["86", "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/gas_mix_h_T_285K.dat", 86]] =!= {}, 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/gas_mix_h_T_285K.dat", 86], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.633932448002141*^9, 3.633932829023828*^9, 3.633932940806694*^9, 3.6339330807350197`*^9}] }, Open ]] }, WindowSize->{1193, 832}, WindowMargins->{{-2, 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, 41552, 910, 2076, "Input"], Cell[41977, 927, 2462, 72, 110, "Output"], Cell[44442, 1001, 2781, 83, 111, "Output"], Cell[47226, 1086, 1227, 29, 54, "Output"], Cell[48456, 1117, 1230, 29, 54, "Output"], Cell[49689, 1148, 1727, 48, 56, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51453, 1201, 2278, 62, 177, "Input"], Cell[53734, 1265, 31747, 553, 180, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[85518, 1823, 3750, 97, 330, "Input"], Cell[89271, 1922, 232, 3, 45, "Output"], Cell[89506, 1927, 18920, 380, 97, "Output"] }, Open ]] } ] *)