(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[   1209426,      23079]
NotebookOptionsPosition[   1191237,      22570]
NotebookOutlinePosition[   1191655,      22586]
CellTagsIndexPosition[   1191612,      22583]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{"Olfactory", " ", "Epithelium", " ", "grammar"}], "Title"]], "Input",\

 Evaluatable->False,
 InitializationCell->True,
 CellChangeTimes->{{3.4521125582422733`*^9, 3.45211257012901*^9}, {
  3.4521194496110506`*^9, 3.452119472082691*^9}, {3.452267721126402*^9, 
  3.4522677365581303`*^9}, {3.452268081123283*^9, 3.452268090346269*^9}, {
  3.4522686242179685`*^9, 3.45226863042671*^9}, {3.452269026244027*^9, 
  3.452269032833305*^9}, {3.452270491106575*^9, 3.452270498086403*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Copyright]", " ", "Copyright", " ", "2005"}], "-", 
  RowBox[{"2009", "  ", "Plenum", " ", 
   RowBox[{"software", ".", " ", "Guy"}], " ", "Yosiphon", " ", "and", " ", 
   "Eric", " ", 
   RowBox[{"Mjolsness", ".", "  ", "All"}], " ", "rights", " ", 
   RowBox[{"reserved", "."}]}]}]], "Input",
 Evaluatable->False,
 InitializationCell->True,
 CellChangeTimes->{{3.4521125582422733`*^9, 3.45211257012901*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "The", " ", "following", " ", "definitions", " ", "are", " ", "described", 
   " ", "in", " ", "detail", " ", 
   RowBox[{"in", " ", ":", "\[IndentingNewLine]", 
    RowBox[{"Guy", " ", "Yosiphon"}]}]}], " ", ",", " ", 
  StyleBox[
   RowBox[{"Stochastic", " ", "Parameterized", " ", 
    RowBox[{"Grammars", ":", "Formalization"}]}],
   FontSlant->"Italic"], 
  StyleBox[",",
   FontSlant->"Italic"], 
  StyleBox[
   RowBox[{"Inference", " ", "and", " ", "Modeling", " ", "Applications"}],
   FontSlant->"Italic"], ",", 
  RowBox[{"PhD", " ", "Thesis"}], ",", "  ", 
  RowBox[{"UC", " ", "Irvine"}], ",", " ", "2009"}], "\[IndentingNewLine]", 
 RowBox[{"and", " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Guy", " ", "Yosiphon"}], ",", 
  RowBox[{"Kimberly", " ", 
   RowBox[{"K", ".", "Gokoffski"}]}], ",", 
  RowBox[{"Arthur", " ", 
   RowBox[{"D", ".", "Lander"}]}], ",", 
  RowBox[{"Anne", " ", 
   RowBox[{"L", ".", "Calof"}], "  ", "and", " ", "Eric", " ", "Mjolsness"}], 
  ",", " ", 
  RowBox[{
   StyleBox["Dynamical",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["Grammar",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["Modeling",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["of",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["Growth",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["and",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["Lamination",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["of",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["the",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   StyleBox["Olfactory",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontSlant->"Italic"], 
   RowBox[{
    StyleBox["Epithelium",
     FontSlant->"Italic"], 
    StyleBox[".",
     FontSlant->"Italic"], 
    StyleBox["  ",
     FontSlant->"Italic"], "In"}], " ", "preperation"}], ",", " ", 
  "2009"}]}], "Input",
 CellChangeTimes->{{3.452271352809866*^9, 3.452271357616634*^9}, {
  3.452271393106604*^9, 3.4522714651280117`*^9}}],

Cell[CellGroupData[{

Cell["Prerequisite: load the package:", "Section",
 CellChangeTimes->{3.4521193824665103`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"<<", "Plenum.m"}], ";"}]], "Input"],

Cell[BoxData["\<\"Plenum: version 23\"\>"], "Print",
 CellChangeTimes->{3.4521137977975855`*^9, 3.452119392941259*^9, 
  3.4521196643634253`*^9, 3.452268105888152*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"obspkg\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\\"Statistics`ContinuousDistributions`\\\"\\) is \
now obsolete. The legacy version being loaded may conflict with current \
Mathematica functionality. See the Compatibility Guide for updating \
information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/Statistics/\
ContinuousDistributions\\\", ButtonNote -> \
\\\"General::obspkg\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4521137981881356`*^9, 3.452119393111499*^9, 
  3.4521196645136366`*^9, 3.4522681099138203`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"obspkg\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\\"Statistics`DiscreteDistributions`\\\"\\) is now \
obsolete. The legacy version being loaded may conflict with current \
Mathematica functionality. See the Compatibility Guide for updating \
information. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/Statistics/\
DiscreteDistributions\\\", ButtonNote -> \\\"General::obspkg\\\"]\\)\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{3.4521137981881356`*^9, 3.452119393111499*^9, 
  3.4521196645136366`*^9, 3.452268110995343*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"obspkg\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\\"Graphics`Graphics3D`\\\"\\) is now obsolete. The \
legacy version being loaded may conflict with current Mathematica \
functionality. See the Compatibility Guide for updating information. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/Graphics/Graphics3D\\\", \
ButtonNote -> \\\"General::obspkg\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4521137981881356`*^9, 3.452119393111499*^9, 
  3.4521196645136366`*^9, 3.4522681112957664`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"stop\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Further output of \\!\\(General :: \\\"obspkg\\\"\\) will \
be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4521137981881356`*^9, 3.452119393111499*^9, 
  3.4521196645136366`*^9, 3.4522681115260906`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ListSurfacePlot3D", "::", "\<\"shdw\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"Symbol \\!\\(\\\"ListSurfacePlot3D\\\"\\) appears in \
multiple contexts \\!\\({\\\"Graphics`Graphics3D`\\\", \\\"System`\\\"}\\); \
definitions in context \\!\\(\\\"Graphics`Graphics3D`\\\"\\) may shadow or be \
shadowed by other definitions. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/shdw\\\", ButtonNote -> \
\\\"Graphics`Graphics3D`ListSurfacePlot3D::shdw\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{3.4521137981881356`*^9, 3.452119393111499*^9, 
  3.4521196645136366`*^9, 3.4522681119566965`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"newpkg\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\\"Statistics`MultinormalDistribution`\\\"\\) is \
now available as the \\!\\(\\\"Multivariate Statistics Package\\\"\\). See \
the Compatibility Guide for updating information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/Statistics/\
MultinormalDistribution\\\", ButtonNote -> \
\\\"General::newpkg\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4521137981881356`*^9, 3.452119393111499*^9, 
  3.4521196645136366`*^9, 3.452268112487444*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"newpkg\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\\"Statistics`MultinormalDistribution`\\\"\\) is \
now available as the \\!\\(\\\"Multivariate Statistics Package\\\"\\). See \
the Compatibility Guide for updating information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/Statistics/\
MultinormalDistribution\\\", ButtonNote -> \
\\\"General::newpkg\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.4521137981881356`*^9, 3.452119393111499*^9, 
  3.4521196645136366`*^9, 3.4522681152112794`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "PDESolver.m"}]], "Input"],

Cell[BoxData["\<\"Global`\"\>"], "Output",
 CellChangeTimes->{
  3.419960166670721*^9, 3.4199605624740715`*^9, 3.4199612959394875`*^9, 
   3.419961692543957*^9, 3.419967356652623*^9, 3.419967692191721*^9, 
   3.419969070238289*^9, 3.419984728956168*^9, 3.4199856394991465`*^9, 
   3.4199994005076246`*^9, 3.4199997200243225`*^9, 3.4199999116321983`*^9, 
   3.420036132092255*^9, 3.420036763995683*^9, 3.4200369944178233`*^9, 
   3.4200395269183674`*^9, 3.4200398040157614`*^9, 3.4200404401050415`*^9, 
   3.420041363065379*^9, 3.420041765057381*^9, 3.420043768818725*^9, 
   3.420043916685449*^9, 3.4200440385958853`*^9, 3.420044854786955*^9, 
   3.4200450337972193`*^9, 3.420060189266493*^9, 3.420062721236295*^9, 
   3.4200634363460493`*^9, 3.420064314133233*^9, 3.4200652022849073`*^9, 
   3.420066648036129*^9, 3.420067303402359*^9, 3.4200678233592815`*^9, 
   3.420068111802537*^9, 3.420069037957341*^9, 3.420069200214183*^9, 
   3.420070363941123*^9, 3.420129893253248*^9, 3.4201325670112762`*^9, 
   3.420133183423046*^9, {3.420133427293988*^9, 3.4201334530900526`*^9}, 
   3.420133870804034*^9, 3.4204905757950573`*^9, 3.4204906148796997`*^9, 
   3.420491403001528*^9, 3.4204917617931337`*^9, 3.420493298171056*^9, 
   3.4204944580726476`*^9, 3.4204945330374517`*^9, 3.4204975189719152`*^9, 
   3.4205140996724434`*^9, {3.4205208550667734`*^9, 3.4205208707286696`*^9}, 
   3.4205496007845154`*^9, 3.4205537614312773`*^9, 3.4205634645466475`*^9, 
   3.4205637926353292`*^9, 3.4205706631405897`*^9, 3.4205762452986107`*^9, 
   3.420605034941092*^9, 3.420643345901792*^9, 3.4206450793652477`*^9, 
   3.420645531617516*^9, 3.420648870515438*^9, 3.420652121880986*^9, 
   3.420654093487376*^9, 3.420654243567194*^9, 3.4206545022688704`*^9, 
   3.420656403536924*^9, 3.42065805062963*^9, 3.420658745270768*^9, 
   3.42066189099863*^9, 3.42066813733127*^9, 3.42073085340666*^9, 
   3.420755841244998*^9, 3.4207730772099023`*^9, 3.4208154818834486`*^9, 
   3.4208196460751667`*^9, 3.42082285071539*^9, 3.4208256477357445`*^9, 
   3.4208280560927305`*^9, 3.4208331854738245`*^9, 3.4208342125497203`*^9, 
   3.4208358373112063`*^9, 3.420901378788253*^9, 3.420902864525377*^9, 
   3.4209147024653225`*^9, 3.420985102428074*^9, 3.420991168438616*^9, {
   3.420994050798278*^9, 3.4209940689436455`*^9}, 3.4209953181000195`*^9, 
   3.4209957626615353`*^9, 3.421003440582861*^9, 3.4210043025178833`*^9, 
   3.421004999512311*^9, 3.4210103804050293`*^9, 3.421010521942905*^9, 
   3.421019532069447*^9, 3.4210259870838327`*^9, 3.421035176252048*^9, 
   3.4210383339866962`*^9, 3.42103864463099*^9, 3.421076642530941*^9, 
   3.421076903746131*^9, 3.4210845707749653`*^9, 3.4210915367236595`*^9, 
   3.421097246846655*^9, 3.421101226169919*^9, 3.421101735021315*^9, 
   3.4211028414381332`*^9, 3.421103109462843*^9, 3.421104054323799*^9, 
   3.421104860801289*^9, 3.4211064439445915`*^9, 3.4211097492255154`*^9, 
   3.421117500492117*^9, 3.421121778372777*^9, 3.421122938845167*^9, 
   3.421162367299706*^9, 3.421163432869418*^9, 3.421166395901864*^9, 
   3.421172216248958*^9, 3.421173877861964*^9, 3.421174572382934*^9, 
   3.42117485236436*^9, 3.421178257544948*^9, 3.42117935340701*^9, 
   3.421180635018758*^9, 3.4211808770371103`*^9, 3.421184541990872*^9, 
   3.42118536210743*^9, 3.421205015194736*^9, 3.421210364663522*^9, 
   3.42125212182806*^9, 3.4212543035982685`*^9, 3.4212609129829173`*^9, 
   3.4212635554171534`*^9, 3.421266486304659*^9, 3.421273370723496*^9, 
   3.4212749233167152`*^9, 3.421275123304257*^9, 3.42127520809107*^9, 
   3.421275611528764*^9, 3.421275797679533*^9, 3.421275848781204*^9, 
   3.421281960093418*^9, 3.421282289113275*^9, 3.4212823824922256`*^9, 
   3.4212949889074373`*^9, 3.421296107042843*^9, 3.421296183715736*^9, 
   3.421297670651752*^9, 3.4212978843183727`*^9, 3.4212979246291227`*^9, 
   3.421299019877236*^9, 3.421299121468315*^9, 3.4212991745018883`*^9, 
   3.42129925019499*^9, 3.421328446182086*^9, 3.4213291771610518`*^9, 
   3.4213292581930103`*^9, 3.421333734196875*^9, 3.421334342703409*^9, 
   3.4213344338592997`*^9, 3.421337571775878*^9, 3.4213378447646227`*^9, 
   3.421337925555724*^9, 3.42134403543145*^9, 3.421344179171186*^9, 
   3.421361913552073*^9, 3.421362034434669*^9, 3.4213620885721283`*^9, 
   3.421362139965087*^9, 3.4214468506953278`*^9, 3.421449280704315*^9, 
   3.421449483993329*^9, 3.4214508092743344`*^9, 3.4214511168944006`*^9, 
   3.4214528532318745`*^9, 3.4214540766923246`*^9, 3.4214583870627627`*^9, 
   3.4214585078616447`*^9, 3.4215379742034492`*^9, 3.4215380730717983`*^9, 
   3.4215381187868233`*^9, 3.421538160766057*^9, 3.4215383449154453`*^9, 
   3.421550038857253*^9, 3.421556050818117*^9, 3.421556163531249*^9, 
   3.421556277305065*^9, 3.421589303676956*^9, 3.4215946802736683`*^9, 
   3.421594753095476*^9, 3.42162694017187*^9, 3.4221320320964622`*^9, 
   3.4227586728301153`*^9, 3.422812265024568*^9, 3.4228125897252755`*^9, 
   3.422819586096733*^9, 3.422819626743153*^9, 3.42282004557452*^9, 
   3.422838220691936*^9, 3.4228449228657093`*^9, 3.4228474600775385`*^9, 
   3.422978328426459*^9, 3.423368453792868*^9, 3.42342616364011*^9, 
   3.42342624585505*^9, 3.423429168302039*^9, 3.4234292429564095`*^9, 
   3.423430704910283*^9, 3.4234520058599215`*^9, 3.4234534287091255`*^9, 
   3.423489315312351*^9, 3.4234914401329412`*^9, 3.423506946612005*^9, 
   3.423507078496385*^9, 3.4235073767633753`*^9, 3.4235104141497707`*^9, 
   3.4235121553640633`*^9, 3.423513505010927*^9, 3.423516597734687*^9, 
   3.423518262972761*^9, 3.423538896316567*^9, 3.4235396941394053`*^9, 
   3.42353976994875*^9, 3.423539837053496*^9, 3.423574502896205*^9, 
   3.423576646106764*^9, 3.423576978678945*^9, 3.42357872649796*^9, 
   3.4235828134883327`*^9, 3.423589466709938*^9, 3.4235909197168922`*^9, 
   3.4235912034409637`*^9, 3.4235915336460323`*^9, 3.4235924725997972`*^9, 
   3.4235926402465887`*^9, 3.423594838490129*^9, 3.423598438173875*^9, 
   3.4235993634017353`*^9, 3.423604810490543*^9, 3.4236052086911077`*^9, 
   3.423606759681036*^9, 3.4236068324808903`*^9, 3.423606906004366*^9, 
   3.423607127328196*^9, 3.423621385115798*^9, 3.423621547633005*^9, 
   3.423621800831874*^9, 3.423621884664255*^9, 3.423624421600502*^9, 
   3.4238867497114935`*^9, 3.4239253622967844`*^9, 3.423945552303276*^9, 
   3.4239693224149084`*^9, 3.423969915694338*^9, 3.423970310095728*^9, 
   3.4239705019639683`*^9, 3.423971807317548*^9, 3.423972048522025*^9, 
   3.4239721128370647`*^9, 3.423972157466675*^9, 3.4239722188217382`*^9, 
   3.4240108239817343`*^9, 3.4240108970625763`*^9, 3.424010969829368*^9, 
   3.424011037230606*^9, 3.424011094339425*^9, 3.424011153960475*^9, 
   3.424023465438327*^9, 3.424056527722929*^9, 3.4241290020016456`*^9, 
   3.42446662101445*^9, {3.424468216835476*^9, 3.424468243642954*^9}, 
   3.4244712269444313`*^9, 3.424472525576717*^9, 3.424472602264805*^9, 
   3.4244727102302027`*^9, {3.424472761061612*^9, 3.4244728284434147`*^9}, 
   3.424473441603706*^9, 3.424473509186064*^9, 3.424473996096238*^9, 
   3.4244740418109083`*^9, {3.4244740911180677`*^9, 3.424474108920745*^9}, {
   3.4244741413042107`*^9, 3.424474165135124*^9}, 3.4246289627144775`*^9, 
   3.424632269257165*^9, 3.4272153571746855`*^9, 3.4272174700485735`*^9, 
   3.427340097022736*^9, 3.42734015100843*^9, 3.427340199593161*^9, 
   3.4273402446873693`*^9, 3.427340282319642*^9, 3.427340332534417*^9, 
   3.4276856630121436`*^9, 3.4276857025874715`*^9, 3.427724046469584*^9, 
   3.4277241899401617`*^9, 3.4277242258804083`*^9, 3.427726514690262*^9, 
   3.427741119448338*^9, 3.427742025264708*^9, 3.427748202240384*^9, 
   3.4277580776939535`*^9, 3.4277681096089993`*^9, 3.4277708112159615`*^9, 
   3.427773616668103*^9, 3.427814436927851*^9, 3.4278146136749516`*^9, 
   3.427897736538192*^9, 3.427898084264328*^9, 3.427898259769692*^9, 
   3.427898684152998*^9, 3.427899993383358*^9, 3.427900133399106*^9, 
   3.4279002727939863`*^9, 3.427901500690638*^9, 3.427901591727912*^9, 
   3.427901797305318*^9, 3.4279031928864*^9, 3.42790386202188*^9, 
   3.427903947831846*^9, 3.427904061590886*^9, 3.427904266497354*^9, 
   3.427908598984356*^9, 3.4279086752309523`*^9, 3.4279089400611963`*^9, 
   3.427909039089642*^9, 3.427909355532042*^9, 3.4279136294371443`*^9, 
   3.4279898209229293`*^9, 3.427989923906905*^9, 3.4279902775513153`*^9, 
   3.427990950241765*^9, 3.427996173784814*^9, {3.427996214022327*^9, 
   3.427996316054297*^9}, 3.427999863737728*^9, 3.4280006249643784`*^9, {
   3.42800068664112*^9, 3.428000792004733*^9}, 3.4280322111626186`*^9, 
   3.4280720975377817`*^9, 3.4280738051350756`*^9, 3.4280756807773037`*^9, 
   3.4280762744039392`*^9, 3.4280763937707987`*^9, {3.428076424048252*^9, 
   3.428076471690572*^9}, 3.4280765089918737`*^9, 3.428084142927116*^9, 
   3.428085565544895*^9, 3.428087016298388*^9, 3.42808784835078*^9, 
   3.4280920696198606`*^9, 3.428097410756998*^9, 3.428154478715054*^9, 
   3.4281551284333878`*^9, 3.428293403410965*^9, 3.428293589997467*^9, {
   3.4282936856778517`*^9, 3.4282937910937033`*^9}, 3.428418688284645*^9, 
   3.428450582613594*^9, 3.4284996676738696`*^9, 3.4285494273606324`*^9, 
   3.428599091420377*^9, 3.4286250925849524`*^9, 3.42862518080205*^9, {
   3.428625260620903*^9, 3.42862539443152*^9}, 3.428703003269923*^9, 
   3.429451301778817*^9, 3.429451367116611*^9, {3.4294514074702473`*^9, 
   3.429451430285771*^9}, 3.4294567162621193`*^9, 3.429796521666134*^9, 
   3.429796585725692*^9, 3.4298964326628942`*^9, 3.4298967788068185`*^9, 
   3.4299694212706647`*^9, 3.4300737557816057`*^9, 3.4306010132440653`*^9, 
   3.43066461320217*^9, {3.430665230084598*^9, 3.4306652444046183`*^9}, 
   3.430665779442624*^9, 3.4306661294819937`*^9, 3.4306671500187483`*^9, 
   3.430670326058988*^9, 3.430670739737328*^9, 3.4306804945272503`*^9, 
   3.4306914595968866`*^9, 3.4307053440179005`*^9, 3.4307054020189886`*^9, 
   3.4307068272919207`*^9, 3.43070857984206*^9, 3.430711849550065*^9, 
   3.430712104631812*^9, 3.430712180375889*^9, 3.430712217972733*^9, {
   3.430712268471035*^9, 3.430712322492528*^9}, 3.43112872255237*^9, {
   3.431128850187751*^9, 3.4311288739128513`*^9}, {3.4311290659646473`*^9, 
   3.4311290893362494`*^9}, 3.431129149445568*^9, 3.431129320584687*^9, 
   3.431132578246047*^9, 3.431132659325624*^9, 3.431133778358803*^9, 
   3.431133916945044*^9, 3.431134242832036*^9, 3.431134281239356*^9, 
   3.431134319719352*^9, 3.4311351691705637`*^9, 3.431135235405533*^9, 
   3.43113532094481*^9, 3.431136492556766*^9, 3.4311365309951067`*^9, 
   3.431146262253193*^9, 3.431146552196987*^9, 3.431147249511545*^9, 
   3.4311472991363993`*^9, 3.4312860866351376`*^9, 3.4312877149816356`*^9, 
   3.4312925768887897`*^9, 3.4312932271378655`*^9, 3.431294201590192*^9, 
   3.4320415604785833`*^9, 3.432756655089408*^9, 3.43275677398563*^9, 
   3.432756923935266*^9, 3.432757370759946*^9, 3.4327711492110987`*^9, 
   3.43281957739577*^9, 3.4328196588196044`*^9, 3.4328277610468645`*^9, 
   3.432829122009548*^9, 3.4328293705570283`*^9, 3.4328428038673706`*^9, 
   3.4328429013136044`*^9, 3.4328533866926126`*^9, 3.432856656163472*^9, 
   3.432918684135408*^9, 3.433016406458377*^9, 3.433018014035839*^9, 
   3.433018179397021*^9, 3.433021185219289*^9, 3.433021954775161*^9, 
   3.433042805211284*^9, 3.4330471239690924`*^9, 3.433047739609784*^9, 
   3.433080944907507*^9, 3.4330817720438786`*^9, 3.4330947558758307`*^9, 
   3.433095224430891*^9, 3.4330966903703365`*^9, 3.434503728241623*^9, 
   3.434504293451811*^9, 3.4345048355196447`*^9, 3.4347577350801706`*^9, 
   3.4347794507417803`*^9, 3.434780339535488*^9, 3.4347804895437107`*^9, 
   3.434780689491252*^9, 3.4348068865470133`*^9, 3.4348073529243784`*^9, 
   3.43480742546507*^9, 3.434807479690338*^9, 3.434809151202588*^9, 
   3.434809441384647*^9, {3.434809509015152*^9, 3.434809610992782*^9}, 
   3.434811006783155*^9, 3.4348376049847*^9, 3.434837635990342*^9, 
   3.4352879292298403`*^9, 3.4352882376179047`*^9, 3.4352882911822557`*^9, {
   3.435289261398985*^9, 3.4352892851119003`*^9}, 3.4357245733597107`*^9, 
   3.4357247939058447`*^9, 3.445373262577736*^9, 3.4453771348385496`*^9, 
   3.4453773043589272`*^9, 3.445377497012107*^9, 3.4453775405037775`*^9, 
   3.445378637859813*^9, 3.445378889706929*^9, 3.4453799527743444`*^9, 
   3.445453018013283*^9, 3.445453466779628*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "DiscreteMath`ComputationalGeometry`"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"newpkg\"\>"}], ":", 
  " ", "\<\"\\!\\(\\\"DiscreteMath`ComputationalGeometry`\\\"\\) is now \
available as the \\!\\(\\\"Computational Geometry Package\\\"\\). See the \
Compatibility Guide for updating information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/DiscreteMath/\
ComputationalGeometry\\\", ButtonNote -> \\\"General::newpkg\\\"]\\)\"\>"}]], \
"Message", "MSG",
 CellChangeTimes->{
  3.415732003418872*^9, 3.415732065489435*^9, 3.415980212050543*^9, 
   3.416106853570281*^9, 3.4172073478549695`*^9, 3.4172074731789284`*^9, 
   3.417210642342401*^9, 3.4172276112764792`*^9, 3.4172326236339855`*^9, 
   3.417232922568928*^9, 3.417295440467078*^9, 3.417296134680696*^9, 
   3.4173579327103105`*^9, 3.4204905760854635`*^9, 3.4204906151100216`*^9, 
   3.4204914032118216`*^9, 3.4204917618331895`*^9, 3.4204932982311397`*^9, 
   3.4204944582929554`*^9, 3.4204945332277174`*^9, 3.4204975190620413`*^9, 
   3.42051409991278*^9, {3.4205208551268578`*^9, 3.4205208707987676`*^9}, 
   3.420549601024852*^9, 3.4205537617417116`*^9, 3.420563464616746*^9, 
   3.4205637927054276`*^9, 3.4205706632106876`*^9, 3.4205762454788623`*^9, 
   3.4206050351513863`*^9, 3.4206433461120863`*^9, 3.420645079585556*^9, 
   3.420645531837824*^9, 3.420648870635606*^9, 3.4206521219610977`*^9, 
   3.420654093557474*^9, 3.420654243647306*^9, 3.420654502499192*^9, 
   3.4206564035970078`*^9, 3.4206580508299103`*^9, 3.4206587455311317`*^9, 
   3.420661891188896*^9, 3.420668137551578*^9, 3.4207308537371225`*^9, 
   3.420755841415236*^9, 3.4207730773801403`*^9, 3.420815483395562*^9, 
   3.4208196462754464`*^9, 3.4208228508856287`*^9, 3.4208256478959684`*^9, 
   3.4208280562529545`*^9, 3.4208331857241745`*^9, 3.4208342127199583`*^9, 
   3.4208358374914584`*^9, 3.420901378968505*^9, 3.420902864695615*^9, 
   3.4209147027357006`*^9, 3.420985102658396*^9, 3.4209911687690773`*^9, {
   3.4209940512789497`*^9, 3.4209940692140236`*^9}, 3.4209953185306215`*^9, 
   3.420995762851802*^9, 3.421003440843225*^9, 3.421004302818303*^9, 
   3.421004999762661*^9, 3.4210103806453648`*^9, 3.421010522293395*^9, 
   3.4210195322797413`*^9, 3.421025987264085*^9, 3.421035176542454*^9, 
   3.421038334176962*^9, 3.421038644841284*^9, 3.421076642761263*^9, 
   3.421076903816229*^9, 3.4210845709452033`*^9, 3.421091536913925*^9, 
   3.4210972470869913`*^9, 3.421101229654791*^9, 3.421101735261651*^9, 
   3.421102841828679*^9, 3.4211031096931653`*^9, 3.421104054584163*^9, 
   3.4211048610516396`*^9, 3.4211064441749134`*^9, 3.421109749435809*^9, 
   3.421117500782523*^9, 3.4211217786331415`*^9, 3.421122939085503*^9, 
   3.421162367540042*^9, 3.42116343314981*^9, 3.421166396162228*^9, 
   3.4211722165894337`*^9, 3.4211738780422163`*^9, 3.421174572783494*^9, 
   3.421174852554626*^9, 3.421178257805312*^9, 3.421179353647346*^9, 
   3.421180635259094*^9, 3.42118087723739*^9, 3.421184542271264*^9, 
   3.421185362367794*^9, 3.421205015435072*^9, 3.421210364873816*^9, 
   3.4212521220583825`*^9, 3.4212543038686466`*^9, 3.421260913213239*^9, 
   3.4212635556474752`*^9, 3.421266486524967*^9, 3.421273370837502*^9, 
   3.421274923421858*^9, 3.421275123427065*^9, 3.421275208224544*^9, 
   3.421275611628181*^9, 3.421275797808807*^9, 3.4212758489311037`*^9, 
   3.4212819602042913`*^9, 3.421282289206511*^9, 3.421282382611368*^9, 
   3.42129498899856*^9, 3.421296107137061*^9, 3.421296183828145*^9, 
   3.4212976707428217`*^9, 3.4212978844113293`*^9, 3.421297924726863*^9, 
   3.421299019985571*^9, 3.421299121572136*^9, 3.4212991746082478`*^9, 
   3.421299250330347*^9, 3.421328446273403*^9, 3.421329177253203*^9, 
   3.4213292582878237`*^9, 3.421333734287259*^9, 3.421334342810049*^9, 
   3.4213344338874598`*^9, 3.4213375718707733`*^9, 3.42133784486453*^9, 
   3.421337925656086*^9, 3.42134403552592*^9, 3.421344179266754*^9, 
   3.421361913641884*^9, 3.421362034523963*^9, 3.421362088665498*^9, 
   3.421362140057846*^9, 3.421446850788475*^9, 3.4214492807931137`*^9, 
   3.4214494840830507`*^9, 3.4214508095346985`*^9, 3.4214511171247225`*^9, 
   3.4214528541231203`*^9, 3.4214540769026184`*^9, 3.4214583871929445`*^9, 
   3.4214585081019807`*^9, 3.421537974297862*^9, 3.42153807316444*^9, 
   3.421538118885913*^9, 3.4215381608732147`*^9, 3.421538345007186*^9, 
   3.421550038964547*^9, 3.4215560509103727`*^9, 3.421556163640422*^9, 
   3.421556277412916*^9, 3.421589303927306*^9, 3.421594680483962*^9, 
   3.4215947533057704`*^9, 3.421626940532421*^9, 3.422132032356826*^9, 
   3.4227586731305323`*^9, 3.422812265064624*^9, 3.4228125897653313`*^9, 
   3.4228195864772615`*^9, 3.422819627033556*^9, 3.4228200457948265`*^9, 
   3.4228382210624504`*^9, 3.4228449231561127`*^9, 3.422847460448053*^9, 
   3.4229783286267385`*^9, 3.42336845412333*^9, 3.423426163820362*^9, 
   3.423426246075358*^9, 3.423429168512333*^9, 3.423429243166703*^9, 
   3.423430705100549*^9, 3.423452006030159*^9, 3.423453428889377*^9, 
   3.423489315702897*^9, 3.423491440333221*^9, 3.423506946892397*^9, 
   3.423507078756749*^9, 3.423507376963655*^9, 3.423510414420149*^9, 
   3.423512155664483*^9, 3.423513505231235*^9, 3.423516597954995*^9, 
   3.4235182632431393`*^9, 3.423538896410314*^9, 3.423539694232315*^9, 
   3.423539770041226*^9, 3.423539837156301*^9, 3.4235745029894323`*^9, 
   3.423576646201762*^9, 3.423576978772708*^9, 3.423578726592688*^9, 
   3.423582813583625*^9, 3.423589466802576*^9, 3.423590919808426*^9, 
   3.42359120354056*^9, 3.423591533759691*^9, 3.423592472695319*^9, 
   3.42359264034484*^9, 3.42359483858162*^9, 3.42359843827072*^9, 
   3.423599363508314*^9, 3.423604810534235*^9, 3.4236052087884417`*^9, 
   3.423606759776607*^9, 3.423606832583742*^9, 3.423606906109679*^9, 
   3.423607127500622*^9, 3.423621385207099*^9, 3.423621547728272*^9, 
   3.4236218009229918`*^9, 3.423621884755138*^9, 3.423624421930735*^9, 
   3.4238867498817315`*^9, 3.423925362507078*^9, 3.4239455525035563`*^9, 
   3.423969322615188*^9, 3.4239699158846045`*^9, 3.4239703102859945`*^9, 
   3.423970502154234*^9, 3.423971807407503*^9, 3.423972048617008*^9, 
   3.423972112938753*^9, 3.423972157565415*^9, 3.42397221892225*^9, 
   3.42401082407452*^9, 3.424010897159212*^9, 3.4240109699233522`*^9, 
   3.424011037339322*^9, 3.424011094458144*^9, 3.4240111541270723`*^9, 
   3.424023465657045*^9, 3.424056527993307*^9, 3.4241290023421216`*^9, 
   3.424466623237558*^9, {3.424468216875532*^9, 3.42446824383322*^9}, 
   3.424471227036409*^9, 3.424472525668899*^9, 3.42447260235876*^9, 
   3.4244727103307447`*^9, {3.424472761174221*^9, 3.424472828574795*^9}, 
   3.424473441694786*^9, 3.424473509279129*^9, 3.424473996189047*^9, 
   3.424474041901812*^9, {3.424474091213188*^9, 3.4244741090240927`*^9}, {
   3.424474141412801*^9, 3.424474165273658*^9}, 3.4246289629447994`*^9, 
   3.424632269447431*^9, 3.427215357415021*^9, 3.427217470248853*^9, 
   3.4273400971164837`*^9, 3.4273401511032476`*^9, 3.427340199687759*^9, 
   3.4273402447900667`*^9, 3.42734028242312*^9, 3.427340332669895*^9, 
   3.427685663813264*^9, 3.4276857028077793`*^9, 3.4277240467700043`*^9, 
   3.4277241901003857`*^9, 3.427724226080688*^9, 3.4277265148605003`*^9, 
   3.42774111972873*^9, 3.427742025424932*^9, 3.4277482024306498`*^9, 
   3.427758078414961*^9, 3.427768109769223*^9, 3.427770811406227*^9, 
   3.427773623247301*^9, 3.4278144370680475`*^9, 3.427814613825161*^9, 
   3.4278977366082897`*^9, 3.42789808449465*^9, 3.427898260020042*^9, 
   3.427898684313222*^9, 3.427899993653736*^9, 3.4279001335893717`*^9, 
   3.427900272984252*^9, 3.427901500860876*^9, 3.427901591888136*^9, 
   3.427901797555668*^9, 3.427903193056638*^9, 3.4279038622922583`*^9, 
   3.42790394799207*^9, 3.42790406175111*^9, 3.4279042667076483`*^9, 
   3.427908599214678*^9, 3.427908675421218*^9, 3.4279089404617558`*^9, 
   3.427909039319964*^9, 3.42790935575235*^9, 3.427913629657452*^9, 
   3.427989821163265*^9, 3.4279899241272135`*^9, 3.427990277741581*^9, 
   3.427990950582241*^9, 3.4279961738830748`*^9, {3.427996214121787*^9, 
   3.427996316193935*^9}, 3.4279998640260067`*^9, 3.428000625065254*^9, {
   3.4280006867420473`*^9, 3.428000792181178*^9}, 3.4280322113028145`*^9, 
   3.4280720977881317`*^9, 3.4280738053153276`*^9, 3.4280756809875975`*^9, 
   3.428076274562262*^9, 3.428076393881035*^9, {3.428076424166079*^9, 
   3.428076471852845*^9}, 3.4280765091614227`*^9, 3.428084143050763*^9, 
   3.428085565668573*^9, 3.428087016430718*^9, 3.428087848476286*^9, 
   3.4280920698201404`*^9, 3.4280974124794064`*^9, 3.428154478775138*^9, 
   3.428155128643682*^9, 3.428293403565*^9, 3.428293590095764*^9, {
   3.4282936857766*^9, 3.428293791216967*^9}, 3.4284186885249815`*^9, 
   3.428450582843916*^9, 3.4284996679041915`*^9, 3.4285494275208564`*^9, 
   3.428599091680741*^9, 3.428625092683839*^9, 3.4286251809049397`*^9, {
   3.428625260729846*^9, 3.428625394627911*^9}, 3.428703003414049*^9, 
   3.429451301888782*^9, 3.429451367225857*^9, {3.4294514075812902`*^9, 
   3.429451430399012*^9}, 3.429456716376503*^9, 3.429796521886442*^9, 
   3.429796585946*^9, 3.4298964331135244`*^9, 3.4298967789670424`*^9, 
   3.4299694215210147`*^9, 3.4300737560319557`*^9, 3.430601013464373*^9, 
   3.43066461345252*^9, {3.4306652301346684`*^9, 3.4306652445848703`*^9}, 
   3.430665779652918*^9, 3.4306661296622458`*^9, 3.430667150118888*^9, 
   3.43067032628931*^9, 3.4306707400077057`*^9, 3.4306804947475586`*^9, 
   3.430691459767124*^9, 3.4307053443583765`*^9, 3.4307054037013407`*^9, 
   3.4307068275022144`*^9, 3.4307085800523543`*^9, 3.430711849703823*^9, 
   3.430712104738325*^9, 3.430712180486842*^9, 3.4307122181736298`*^9, {
   3.430712268608749*^9, 3.430712322635998*^9}, 3.431128722685712*^9, {
   3.431128850343384*^9, 3.4311288739472227`*^9}, {3.431129066010398*^9, 
   3.431129089473418*^9}, 3.4311291495803757`*^9, 3.431129320727976*^9, 
   3.431132578378683*^9, 3.431132659466744*^9, 3.4311337784950047`*^9, 
   3.4311339171005373`*^9, 3.431134242961203*^9, 3.431134281366094*^9, 
   3.431134319854538*^9, 3.431135169303458*^9, 3.431135235501012*^9, 
   3.431135321081756*^9, 3.431136492690321*^9, 3.431136531130415*^9, 
   3.431146262399613*^9, 3.431146552325526*^9, 3.4311472496015253`*^9, 
   3.431147299342334*^9, 3.4312860868854876`*^9, 3.4312877152219715`*^9, 
   3.4312925770690413`*^9, 3.4312932275384254`*^9, 3.43129420186057*^9, 
   3.432041560632856*^9, 3.432756655349772*^9, 3.432756774256008*^9, 
   3.4327569241355457`*^9, 3.432757370930184*^9, 3.432771149451434*^9, 
   3.4328195775960503`*^9, 3.4328196589998565`*^9, 3.43282776123713*^9, 
   3.4328291224501643`*^9, 3.432829370777336*^9, 3.4328428040476227`*^9, 
   3.4328429018543606`*^9, 3.4328533870431023`*^9, 3.4328566564739065`*^9, 
   3.432918684345702*^9, 3.433016406638629*^9, 3.4330180157983027`*^9, 
   3.433018179607315*^9, 3.433021185399541*^9, 3.4330219549353848`*^9, 
   3.4330428054816623`*^9, 3.433047131459564*^9, 3.4330477397599945`*^9, 
   3.433080945087759*^9, 3.4330817722041025`*^9, 3.433094756026041*^9, 
   3.433095224611143*^9, 3.433096690540575*^9, 3.434503728471945*^9, 
   3.434504293612035*^9, 3.4345048356798687`*^9, 3.434757735300474*^9, 
   3.434779450932044*^9, 3.434780341628393*^9, 3.4347804897139463`*^9, 
   3.434780689661488*^9, 3.4348068867372775`*^9, 3.434807353254837*^9, 
   3.4348074257254314`*^9, 3.4348074798705883`*^9, 3.434809151381195*^9, 
   3.434809441496599*^9, {3.434809509127995*^9, 3.4348096111135263`*^9}, 
   3.434811007727054*^9, 3.434837605125866*^9, 3.4348376361113977`*^9, 
   3.4352879295002155`*^9, 3.435288237788141*^9, 3.435288291362506*^9, {
   3.43528926148911*^9, 3.4352892853121777`*^9}, 3.4357245735900307`*^9, 
   3.435724794096109*^9, 3.445373262878162*^9, 3.4453771350788903`*^9, 
   3.4453773045491967`*^9, 3.4453774972424335`*^9, 3.4453775407641463`*^9, 
   3.4453786380701113`*^9, 3.4453788899272413`*^9, 3.4453799529946566`*^9, 
   3.4454530180833826`*^9, 3.4454534669398546`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "Graphics`Arrow`"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"obspkg\"\>"}], ":", 
  " ", "\<\"\\!\\(\\\"Graphics`Arrow`\\\"\\) is now obsolete. The legacy \
version being loaded may conflict with current Mathematica functionality. See \
the Compatibility Guide for updating information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/Graphics/Arrow\\\", ButtonNote \
-> \\\"General::obspkg\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.41573200352494*^9, 3.4157320655949593`*^9, 3.415980212156108*^9, 
   3.41610685367887*^9, 3.4172073480752754`*^9, 3.417207473399234*^9, 
   3.4172106425727205`*^9, 3.417227611386632*^9, 3.417232623714096*^9, 
   3.4172329227892337`*^9, 3.41729544067737*^9, 3.417296134880974*^9, 
   3.417357932950644*^9, 3.4204905761755896`*^9, 3.4204906152001476`*^9, 
   3.4204914032919335`*^9, 3.4204917619233155`*^9, 3.4204932983212657`*^9, 
   3.420494458373068*^9, 3.4204945332978153`*^9, 3.4204975191521673`*^9, 
   3.4205140999828777`*^9, {3.420520855216984*^9, 3.4205208708788795`*^9}, 
   3.420549601114978*^9, 3.4205537618218236`*^9, 3.4205634647068715`*^9, 
   3.4205637927955537`*^9, 3.4205706633008137`*^9, 3.420576245538946*^9, 
   3.420605035221484*^9, 3.420643346182184*^9, 3.420645079655654*^9, 
   3.42064553192795*^9, 3.420648870725732*^9, 3.4206521220512238`*^9, 
   3.4206540936576138`*^9, 3.420654243747446*^9, 3.42065450256929*^9, 
   3.42065640367712*^9, 3.420658050900008*^9, 3.420658745571188*^9, 
   3.42066189124898*^9, 3.42066813763169*^9, 3.4207308538072205`*^9, 
   3.420755841485334*^9, 3.4207730784115825`*^9, 3.4208154835057163`*^9, 
   3.4208196463455443`*^9, 3.4208228509356985`*^9, 3.4208256479460382`*^9, 
   3.4208280563030243`*^9, 3.4208331857942724`*^9, 3.4208342128501406`*^9, 
   3.4208358375515423`*^9, 3.420901379028589*^9, 3.420902864795755*^9, 
   3.4209147028758965`*^9, 3.4209851028887177`*^9, 3.420991169029442*^9, {
   3.4209940515192857`*^9, 3.4209940694844017`*^9}, 3.42099531875093*^9, 
   3.4209957630420675`*^9, 3.421003441153659*^9, 3.4210043030185833`*^9, 
   3.4210050002333193`*^9, 3.421010381947185*^9, 3.421010522613843*^9, 
   3.421019532510063*^9, 3.421025987454351*^9, 3.421035176842874*^9, 
   3.421038334357214*^9, 3.4210386451016483`*^9, 3.421076643011613*^9, 
   3.421076903906355*^9, 3.4210845711554976`*^9, 3.4210915370941772`*^9, 
   3.421097247307299*^9, 3.4211012298951273`*^9, 3.421101735532029*^9, 
   3.421102842179169*^9, 3.4211031099735575`*^9, 3.4211040548645554`*^9, 
   3.421104861382101*^9, 3.421106444435277*^9, 3.421109749646103*^9, 
   3.421117501042887*^9, 3.421121778903519*^9, 3.421122939355881*^9, 
   3.421162367830448*^9, 3.421163433420188*^9, 3.421166396402564*^9, 
   3.421172216809742*^9, 3.4211738782024403`*^9, 3.421174572993788*^9, 
   3.42117485271485*^9, 3.421178257895438*^9, 3.42117935370743*^9, 
   3.421180635309164*^9, 3.421180877307488*^9, 3.421184542451516*^9, 
   3.421185362437892*^9, 3.42120501550517*^9, 3.4212103649339*^9, 
   3.4212521221184664`*^9, 3.4212543039187164`*^9, 3.421260913273323*^9, 
   3.421263555707559*^9, 3.4212664865650234`*^9, 3.4212733709754953`*^9, 
   3.421274923468698*^9, 3.421275123478716*^9, 3.421275208289461*^9, 
   3.42127561167731*^9, 3.4212757978620863`*^9, 3.421275849002651*^9, 
   3.421281960315043*^9, 3.4212822895915527`*^9, 3.421282383073125*^9, 
   3.42129498904412*^9, 3.4212961071829767`*^9, 3.421296183873776*^9, 
   3.421297670786244*^9, 3.421297884457178*^9, 3.421297924778874*^9, 
   3.4212990200352163`*^9, 3.421299121604392*^9, 3.4212991746610928`*^9, 
   3.421299250387919*^9, 3.421328446333035*^9, 3.421329177310089*^9, 
   3.421329258323484*^9, 3.421333734327757*^9, 3.42133434286432*^9, 
   3.421334433916477*^9, 3.4213375719025908`*^9, 3.421337844916892*^9, 
   3.421337925693963*^9, 3.421344035569955*^9, 3.421344179296941*^9, 
   3.4213619136762753`*^9, 3.42136203454877*^9, 3.421362088715507*^9, 
   3.421362140094276*^9, 3.42144685083539*^9, 3.4214492808268757`*^9, 
   3.421449484113388*^9, 3.4214508096047964`*^9, 3.4214511171948204`*^9, 
   3.4214528544335546`*^9, 3.4214540771329403`*^9, 3.4214583872830706`*^9, 
   3.4214585083222885`*^9, 3.421537974328616*^9, 3.42153807319235*^9, 
   3.421538118959545*^9, 3.421538160917811*^9, 3.421538345043654*^9, 
   3.421550039013768*^9, 3.4215560509651203`*^9, 3.421556163686494*^9, 
   3.421556277447998*^9, 3.4215893042076983`*^9, 3.4215946807142844`*^9, 
   3.421594753526078*^9, 3.4216269406926656`*^9, 3.422132032627204*^9, 
   3.4227586735210743`*^9, 3.422812265144735*^9, 3.4228125898554564`*^9, 
   3.4228195867977057`*^9, 3.4228196273640146`*^9, 3.4228200460451736`*^9, 
   3.422838221593187*^9, 3.422844924728295*^9, 3.4228474607785115`*^9, 
   3.422978328847047*^9, 3.4233684543135962`*^9, 3.423426164050684*^9, 
   3.423426246265624*^9, 3.4234291688327813`*^9, 3.423429243407039*^9, 
   3.4234307052808013`*^9, 3.423452006210411*^9, 3.4234534290796432`*^9, 
   3.423489316073415*^9, 3.423491440553529*^9, 3.4235069471928167`*^9, 
   3.423507079007099*^9, 3.423507377183963*^9, 3.423510414670499*^9, 
   3.423512155934861*^9, 3.423513505421501*^9, 3.423516598185317*^9, 
   3.423518263593629*^9, 3.423538896485674*^9, 3.423539694262507*^9, 
   3.4235397700907*^9, 3.423539837330762*^9, 3.423574503038118*^9, 
   3.4235766462858562`*^9, 3.423576978819498*^9, 3.423578726695088*^9, 
   3.4235828136291924`*^9, 3.4235894668545218`*^9, 3.42359091993536*^9, 
   3.423591203584446*^9, 3.4235915338163633`*^9, 3.4235924727715597`*^9, 
   3.423592640416688*^9, 3.423594838819466*^9, 3.423598438313471*^9, 
   3.423599363606962*^9, 3.423604810746009*^9, 3.4236052089174347`*^9, 
   3.423606759839745*^9, 3.4236068326509647`*^9, 3.423606906156719*^9, 
   3.423607127607135*^9, 3.423621385245967*^9, 3.423621547776945*^9, 
   3.423621800969963*^9, 3.4236218848001747`*^9, 3.423624422013928*^9, 
   3.4238867500820117`*^9, 3.4239253627073584`*^9, 3.4239455527038364`*^9, 
   3.4239693228254824`*^9, 3.423969916164996*^9, 3.4239703104862742`*^9, 
   3.42397050294534*^9, 3.423971807446723*^9, 3.423972048757045*^9, 
   3.423972112987131*^9, 3.42397215762012*^9, 3.4239722189852257`*^9, 
   3.42401082412457*^9, 3.424010897218224*^9, 3.424010969975572*^9, 
   3.424011037411523*^9, 3.424011094567775*^9, 3.424011154196075*^9, 
   3.424023465753134*^9, 3.4240565282837133`*^9, 3.4241290025924716`*^9, 
   3.424466623477894*^9, {3.42446821694563*^9, 3.424468244013472*^9}, 
   3.4244712270789537`*^9, 3.424472525728806*^9, 3.4244726023844*^9, 
   3.424472710364148*^9, {3.4244727612025957`*^9, 3.4244728286119013`*^9}, 
   3.4244734417378902`*^9, 3.4244735093245287`*^9, 3.4244739962142553`*^9, 
   3.424474041927165*^9, {3.424474091240342*^9, 3.424474109046554*^9}, {
   3.4244741414412613`*^9, 3.424474165312145*^9}, 3.424628963235205*^9, 
   3.424632269637697*^9, 3.427215357785539*^9, 3.427217470449133*^9, 
   3.427340097144553*^9, 3.427340151129612*^9, 3.4273401997142982`*^9, 
   3.427340244820142*^9, 3.427340282461864*^9, 3.427340332709161*^9, 
   3.4276856641036696`*^9, 3.427685703068144*^9, 3.427724049824274*^9, 
   3.42772419026061*^9, 3.427724226250926*^9, 3.42772651506078*^9, 
   3.42774111992901*^9, 3.427742025605184*^9, 3.4277482026008883`*^9, 
   3.4277580787654514`*^9, 3.427768109939461*^9, 3.427770811676605*^9, 
   3.427773623437567*^9, 3.427814437218257*^9, 3.4278146139753714`*^9, 
   3.427897736648346*^9, 3.42789808469493*^9, 3.427898260210308*^9, 
   3.427898684473446*^9, 3.42789999386403*^9, 3.427900133789652*^9, 
   3.4279002732045603`*^9, 3.427901501031114*^9, 3.427901592158514*^9, 
   3.4279017977659616`*^9, 3.4279031932268763`*^9, 3.427903862502552*^9, 
   3.4279039482624483`*^9, 3.427904061931362*^9, 3.427904266927956*^9, 
   3.427908599404944*^9, 3.427908675611484*^9, 3.427908940662036*^9, 
   3.4279090395202436`*^9, 3.427909355972658*^9, 3.427913629887774*^9, 
   3.4279898215938673`*^9, 3.427989924387577*^9, 3.427990277921833*^9, 
   3.427990950772507*^9, 3.427996173977077*^9, {3.4279962142181797`*^9, 
   3.42799631635837*^9}, 3.427999864282502*^9, 3.428000625154457*^9, {
   3.428000686836337*^9, 3.428000792366379*^9}, 3.4280322114329967`*^9, 
   3.4280720980484953`*^9, 3.4280738055055933`*^9, 3.4280756812379475`*^9, 
   3.428076274701393*^9, 3.428076393976616*^9, {3.428076424271267*^9, 
   3.428076471997666*^9}, 3.4280765092983847`*^9, 3.4280841431618*^9, 
   3.428085565777775*^9, 3.428087016541759*^9, 3.428087848587698*^9, 
   3.4280920700304346`*^9, 3.4280974127397704`*^9, 3.428154478845236*^9, 
   3.428155128884018*^9, 3.428293403701305*^9, 3.4282935901874*^9, {
   3.4282936858651047`*^9, 3.4282937913290462`*^9}, 3.428418688785345*^9, 
   3.428450583094266*^9, 3.42849966822464*^9, 3.4285494277111225`*^9, 
   3.428599091921077*^9, 3.428625092788908*^9, 3.4286251809963493`*^9, {
   3.4286252608235397`*^9, 3.428625394799444*^9}, 3.4287030035424*^9, 
   3.4294513019820623`*^9, 3.429451367317895*^9, {3.429451407674086*^9, 
   3.429451430488758*^9}, 3.429456716468884*^9, 3.4297965222469463`*^9, 
   3.4297965862063637`*^9, 3.4298964334940567`*^9, 3.4298967791272664`*^9, 
   3.4299694217813787`*^9, 3.4300737562923203`*^9, 3.430601013684681*^9, 
   3.430664613782982*^9, {3.4306652305452423`*^9, 3.430665244775136*^9}, 
   3.430665782406768*^9, 3.430666129842498*^9, 3.430667150188986*^9, 
   3.430670326529646*^9, 3.4306707401979723`*^9, 3.430680495098048*^9, 
   3.4306914599573903`*^9, 3.4307053446287546`*^9, 3.4307054039216485`*^9, 
   3.4307068277325363`*^9, 3.4307085816345663`*^9, 3.430711849834484*^9, 
   3.430712104829431*^9, 3.430712180589528*^9, 3.430712218359805*^9, {
   3.430712268714342*^9, 3.430712322783711*^9}, 3.4311287227948427`*^9, {
   3.431128850474545*^9, 3.431128873983013*^9}, {3.4311290660587482`*^9, 
   3.431129089598242*^9}, 3.431129149705872*^9, 3.4311293208518133`*^9, 
   3.4311325785003843`*^9, 3.431132659592108*^9, 3.4311337786195707`*^9, 
   3.431133917243281*^9, 3.431134243078702*^9, 3.431134285210343*^9, 
   3.431134319973352*^9, 3.431135169417182*^9, 3.431135235627983*^9, 
   3.431135321200367*^9, 3.4311364928082047`*^9, 3.431136531246935*^9, 
   3.431146262523246*^9, 3.431146552440824*^9, 3.4311472497216*^9, 
   3.431147299467786*^9, 3.4312860871458516`*^9, 3.4312877155023637`*^9, 
   3.431292577259308*^9, 3.431293228119238*^9, 3.4312942021209335`*^9, 
   3.432041560765378*^9, 3.432756655590108*^9, 3.432756774606498*^9, 
   3.4327569243858957`*^9, 3.432757371110436*^9, 3.4327711496417007`*^9, 
   3.4328195777662888`*^9, 3.4328196591901226`*^9, 3.4328277614273963`*^9, 
   3.432829122760598*^9, 3.4328293710377007`*^9, 3.432842804127734*^9, 
   3.4328429021647944`*^9, 3.4328533872533965`*^9, 3.4328566566942143`*^9, 
   3.432918684596052*^9, 3.433016406878965*^9, 3.433018016088709*^9, 
   3.433018184434063*^9, 3.433021192018795*^9, 3.433021955105623*^9, 
   3.433042805661914*^9, 3.433047131669858*^9, 3.433047739930232*^9, 
   3.4330809452880387`*^9, 3.433081772354313*^9, 3.433094756186265*^9, 
   3.433095224811423*^9, 3.433096690750869*^9, 3.4345037287923927`*^9, 
   3.4345042937622447`*^9, 3.4345048358200645`*^9, 3.43475773558086*^9, 
   3.4347794511523495`*^9, 3.434780341838685*^9, 3.4347804898941965`*^9, 
   3.434780689831724*^9, 3.4348068869375553`*^9, 3.4348073534951706`*^9, 
   3.4348074259257092`*^9, 3.4348074800608525`*^9, 3.434809151566114*^9, 
   3.434809441591386*^9, {3.434809509237011*^9, 3.434809611229156*^9}, 
   3.434811008013489*^9, 3.434837605261654*^9, 3.434837636229003*^9, 
   3.4352879298406878`*^9, 3.4352882379683905`*^9, 3.435288291542756*^9, {
   3.435289261579235*^9, 3.4352892854924283`*^9}, 3.435724573810336*^9, 
   3.4357247943164144`*^9, 3.4453732632086306`*^9, 3.4453771353392596`*^9, 
   3.4453773048496227`*^9, 3.445377497522831*^9, 3.4453775410645723`*^9, 
   3.445378638350509*^9, 3.4453788902176533`*^9, 3.4453799532850685`*^9, 
   3.4454530181534815`*^9, 3.4454534670099545`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "Graphics`Colors`"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"General", "::", "\<\"obspkg\"\>"}], ":", 
  " ", "\<\"\\!\\(\\\"Graphics`Colors`\\\"\\) is now obsolete. The legacy \
version being loaded may conflict with current Mathematica functionality. See \
the Compatibility Guide for updating information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:Compatibility/Tutorials/Graphics/Colors\\\", \
ButtonNote -> \\\"General::obspkg\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.415732003633128*^9, 3.415732065697721*^9, 3.415980212272757*^9, 
   3.416106853786375*^9, 3.4172073485659566`*^9, 3.417207474040124*^9, 
   3.417210642772999*^9, 3.417227611476757*^9, 3.417232623764166*^9, 
   3.4172329230295677`*^9, 3.4172954408676343`*^9, 3.4172961350311823`*^9, 
   3.4173579335815196`*^9, 3.4204905764159255`*^9, 3.420490615400428*^9, 
   3.4204914034922132`*^9, 3.4204917619633713`*^9, 3.4204932983813496`*^9, 
   3.4204944585733476`*^9, 3.4204945334780674`*^9, 3.4204975192623215`*^9, 
   3.420514100183158*^9, {3.4205208552770677`*^9, 3.420520870938964*^9}, 
   3.42054960129523*^9, 3.4205537619019356`*^9, 3.42056346477697*^9, 
   3.4205637928556376`*^9, 3.4205706633709116`*^9, 3.4205762457292123`*^9, 
   3.42060503541175*^9, 3.420643346342408*^9, 3.42064507984592*^9, 
   3.420645532268426*^9, 3.420648870815858*^9, 3.420652122131336*^9, 
   3.4206540937277117`*^9, 3.420654243827558*^9, 3.420654502749542*^9, 
   3.42065640372719*^9, 3.4206580510702457`*^9, 3.4206587457914963`*^9, 
   3.420661891419218*^9, 3.420668137811942*^9, 3.4207308539674444`*^9, 
   3.4207558416455584`*^9, 3.4207730785617924`*^9, 3.4208154836659403`*^9, 
   3.4208196465257964`*^9, 3.4208228511560063`*^9, 3.4208256480962486`*^9, 
   3.42082805644322*^9, 3.4208331859745245`*^9, 3.4208342129903364`*^9, 
   3.4208358377017527`*^9, 3.420901379218855*^9, 3.4209028649760065`*^9, 
   3.4209147030761766`*^9, 3.420985103088998*^9, 3.4209911692397356`*^9, {
   3.42099405172958*^9, 3.4209940697848215`*^9}, 3.420995318911154*^9, 
   3.4209957632022915`*^9, 3.421003441424037*^9, 3.421004303198835*^9, 
   3.421005000613851*^9, 3.421010382297675*^9, 3.421010522774067*^9, 
   3.421019532860553*^9, 3.421025987614575*^9, 3.421035177223406*^9, 
   3.421038334527452*^9, 3.42103864553225*^9, 3.4210766435824113`*^9, 
   3.4210769039864674`*^9, 3.4210845713157215`*^9, 3.421091537244387*^9, 
   3.4210972491098194`*^9, 3.4211012300653653`*^9, 3.421101736062771*^9, 
   3.421102842349407*^9, 3.4211031104041595`*^9, 3.4211040553652554`*^9, 
   3.421104861812703*^9, 3.421106444725683*^9, 3.421109749826355*^9, 
   3.4211175014734893`*^9, 3.421121779063743*^9, 3.4211229398665953`*^9, 
   3.421162368431288*^9, 3.421163433940916*^9, 3.4211663966228724`*^9, 
   3.421172217350498*^9, 3.421173878372678*^9, 3.4211745731540117`*^9, 
   3.421174852895102*^9, 3.421178258085704*^9, 3.421179353887682*^9, 
   3.421180635479402*^9, 3.421180877457698*^9, 3.421184542822034*^9, 
   3.421185362788382*^9, 3.4212050157455063`*^9, 3.421210365124166*^9, 
   3.4212521223187466`*^9, 3.4212543040989685`*^9, 3.421260913463589*^9, 
   3.421263555927867*^9, 3.4212664867252474`*^9, 3.421273371074524*^9, 
   3.421274923561667*^9, 3.42127512358461*^9, 3.4212752085117903`*^9, 
   3.4212756117835617`*^9, 3.421275798002071*^9, 3.421275849134514*^9, 
   3.421281960415244*^9, 3.4212822897193527`*^9, 3.421282383211133*^9, 
   3.4212949891227283`*^9, 3.421296107308505*^9, 3.42129618395339*^9, 
   3.421297670867475*^9, 3.4212978845372543`*^9, 3.421297924862648*^9, 
   3.421299020185431*^9, 3.421299121703375*^9, 3.421299174774453*^9, 
   3.42129925050107*^9, 3.4213284464547987`*^9, 3.421329177398683*^9, 
   3.42132925843091*^9, 3.421333734406629*^9, 3.4213343429460983`*^9, 
   3.421334433942522*^9, 3.421337571982602*^9, 3.421337845010483*^9, 
   3.4213379257771177`*^9, 3.4213440356512833`*^9, 3.421344179379764*^9, 
   3.421361913754035*^9, 3.42136203462751*^9, 3.421362088799322*^9, 
   3.421362140178671*^9, 3.4214468509365396`*^9, 3.421449280915371*^9, 
   3.4214494841906652`*^9, 3.4214508098351183`*^9, 3.421451117385086*^9, 
   3.4214528546338344`*^9, 3.4214540773131924`*^9, 3.4214583873531685`*^9, 
   3.4214585085025406`*^9, 3.4215379744090557`*^9, 3.421538073274048*^9, 
   3.4215381190372*^9, 3.421538161066463*^9, 3.421538345120059*^9, 
   3.4215500392247257`*^9, 3.421556051052453*^9, 3.421556163768285*^9, 
   3.421556277538768*^9, 3.4215893044380207`*^9, 3.421594680914564*^9, 
   3.4215947537163444`*^9, 3.4216269408228645`*^9, 3.42213203281747*^9, 
   3.4227586739817142`*^9, 3.422812265174776*^9, 3.422812589885498*^9, 
   3.422819587438596*^9, 3.4228196278847375`*^9, 3.4228200462554655`*^9, 
   3.4228382218235064`*^9, 3.4228449249586143`*^9, 3.4228474613392897`*^9, 
   3.422978329087383*^9, 3.4233684544838343`*^9, 3.423426164311048*^9, 
   3.423426246435862*^9, 3.423429169043075*^9, 3.4234292435973053`*^9, 
   3.423430705431011*^9, 3.423452006370635*^9, 3.423453429229853*^9, 
   3.4234893162436533`*^9, 3.423491440743795*^9, 3.423506947423139*^9, 
   3.423507079257449*^9, 3.423507377364215*^9, 3.423510414920849*^9, 
   3.4235121562052393`*^9, 3.423513505611767*^9, 3.4235165983755827`*^9, 
   3.423518263773881*^9, 3.423538896566732*^9, 3.4235396943441563`*^9, 
   3.423539770194213*^9, 3.423539837424099*^9, 3.423574503118969*^9, 
   3.423576646369999*^9, 3.423576978901095*^9, 3.423578726776582*^9, 
   3.42358281371233*^9, 3.423589466937642*^9, 3.423590920022728*^9, 
   3.423591203667782*^9, 3.423591533905904*^9, 3.423592472854332*^9, 
   3.423592640499892*^9, 3.423594838899658*^9, 3.423598438398592*^9, 
   3.423599363692676*^9, 3.423604810816502*^9, 3.4236052090006866`*^9, 
   3.423606759989787*^9, 3.423606832740403*^9, 3.4236069062453403`*^9, 
   3.42360712773734*^9, 3.423621385327454*^9, 3.423621547854084*^9, 
   3.423621801049666*^9, 3.423621884879678*^9, 3.423624422093858*^9, 
   3.4238867502422357`*^9, 3.4239253628876104`*^9, 3.4239455529241443`*^9, 
   3.423969323015748*^9, 3.42396991637529*^9, 3.4239703106565123`*^9, 
   3.4239705032357464`*^9, 3.4239718075344133`*^9, 3.42397204884613*^9, 
   3.42397211307032*^9, 3.4239721577063093`*^9, 3.423972219070863*^9, 
   3.424010824215267*^9, 3.424010897298511*^9, 3.424010970060639*^9, 
   3.4240110375436897`*^9, 3.424011094687254*^9, 3.424011154324225*^9, 
   3.42402346590523*^9, 3.4240565284839935`*^9, 3.4241290027727237`*^9, 
   3.424466623638118*^9, {3.4244682169957*^9, 3.424468244173696*^9}, 
   3.424471227165639*^9, 3.42447252583735*^9, 3.4244726024652863`*^9, 
   3.4244727104479094`*^9, {3.424472761305134*^9, 3.42447282872896*^9}, 
   3.424473441850769*^9, 3.4244735094051943`*^9, 3.424473996305695*^9, 
   3.424474042006654*^9, {3.424474091321371*^9, 3.4244741091392937`*^9}, {
   3.424474141542673*^9, 3.424474165427703*^9}, 3.424628963395429*^9, 
   3.424632269777893*^9, 3.4272153582261553`*^9, 3.4272174706193714`*^9, 
   3.427340097241493*^9, 3.427340151213516*^9, 3.42734019979828*^9, 
   3.427340244901938*^9, 3.427340282553738*^9, 3.42734033281567*^9, 
   3.4276856646043696`*^9, 3.4276857032383814`*^9, 3.4277240499544563`*^9, 
   3.427724190400806*^9, 3.427724226491262*^9, 3.427726515301116*^9, 
   3.427741120109262*^9, 3.427742025775422*^9, 3.427748202761112*^9, 
   3.427758079506487*^9, 3.427768110099685*^9, 3.4277708118468432`*^9, 
   3.4277736235777636`*^9, 3.427814437338425*^9, 3.4278146142056932`*^9, 
   3.427897736668374*^9, 3.427898085055434*^9, 3.4278982604105883`*^9, 
   3.4278986846136417`*^9, 3.427899994044282*^9, 3.4279001340199738`*^9, 
   3.427900273434882*^9, 3.427901501181324*^9, 3.4279015941012297`*^9, 
   3.4279017979362*^9, 3.427903193367072*^9, 3.427903862682804*^9, 
   3.42790394854284*^9, 3.427904062081572*^9, 3.427904267178306*^9, 
   3.427908599615238*^9, 3.427908675781722*^9, 3.427908940842288*^9, 
   3.427909039680468*^9, 3.42790935625305*^9, 3.42791363012811*^9, 
   3.427989821764105*^9, 3.427989924748081*^9, 3.4279902780720434`*^9, 
   3.4279909509527593`*^9, 3.427996174057169*^9, {3.4279962142971153`*^9, 
   3.4279963165094557`*^9}, 3.427999864490893*^9, 3.428000625229662*^9, {
   3.428000686914132*^9, 3.4280007925214767`*^9}, 3.4280322115531645`*^9, 
   3.4280720982688036`*^9, 3.4280738056858454`*^9, 3.4280756815083256`*^9, 
   3.428076274839609*^9, 3.428076394065839*^9, {3.428076424362131*^9, 
   3.4280764721424007`*^9}, 3.4280765094202023`*^9, 3.428084143258359*^9, 
   3.4280855658569517`*^9, 3.428087016622637*^9, 3.428087848665202*^9, 
   3.4280920702407284`*^9, 3.4280974128999944`*^9, 3.4281544790755577`*^9, 
   3.428155129144382*^9, 3.4282934038371553`*^9, 3.428293590267762*^9, {
   3.4282936859447308`*^9, 3.428293791432317*^9}, 3.4284186890757513`*^9, 
   3.428450583384672*^9, 3.4284996684349337`*^9, 3.4285494278413043`*^9, 
   3.428599092271567*^9, 3.428625092887158*^9, 3.4286251810725822`*^9, {
   3.42862526090202*^9, 3.428625394977562*^9}, 3.428703003631044*^9, 
   3.4294513020607643`*^9, 3.42945136740923*^9, {3.4294514077643557`*^9, 
   3.429451430579465*^9}, 3.4294567165617933`*^9, 3.429796522397156*^9, 
   3.429796587037526*^9, 3.4298964336843224`*^9, 3.4298967792674627`*^9, 
   3.4299694220317287`*^9, 3.430073756562698*^9, 3.430601013884961*^9, 
   3.430664613983262*^9, {3.4306652306053257`*^9, 3.430665244925346*^9}, 
   3.4306657827071877`*^9, 3.430666129992708*^9, 3.430667150209014*^9, 
   3.430670328061788*^9, 3.430670740338168*^9, 3.430680495258272*^9, 
   3.4306914601076*^9, 3.430705344778964*^9, 3.4307054040718584`*^9, 
   3.4307068280830264`*^9, 3.4307085818849163`*^9, 3.430711849970172*^9, 
   3.430712104917767*^9, 3.430712180690878*^9, 3.4307122184867268`*^9, {
   3.430712268819255*^9, 3.4307123229389963`*^9}, 3.431128722876696*^9, {
   3.431128850557541*^9, 3.431128874023657*^9}, {3.431129066105279*^9, 
   3.431129089686571*^9}, 3.431129149800712*^9, 3.4311293209345913`*^9, 
   3.4311325785851307`*^9, 3.431132659671555*^9, 3.431133778701737*^9, 
   3.431133917328045*^9, 3.4311342431612587`*^9, 3.431134285525641*^9, 
   3.4311343200613003`*^9, 3.431135169499464*^9, 3.431135235708701*^9, 
   3.4311353212837753`*^9, 3.4311364928904333`*^9, 3.431136531326811*^9, 
   3.431146262650152*^9, 3.431146552521542*^9, 3.431147249801203*^9, 
   3.4311472995470667`*^9, 3.4312860873461313`*^9, 3.4312877158127975`*^9, 
   3.431292577419532*^9, 3.4312932285698676`*^9, 3.4312942024113398`*^9, 
   3.432041560916779*^9, 3.4327566557403183`*^9, 3.432756775007058*^9, 
   3.432756924656274*^9, 3.43275737127066*^9, 3.43277114979191*^9, 
   3.4328195779265127`*^9, 3.4328196593503466`*^9, 3.4328277615976343`*^9, 
   3.4328291229308367`*^9, 3.4328293713180923`*^9, 3.4328428041878185`*^9, 
   3.4328429079328585`*^9, 3.432853387433648*^9, 3.4328566568544383`*^9, 
   3.4329186847662897`*^9, 3.433016407640029*^9, 3.433018016248933*^9, 
   3.433018184824609*^9, 3.4330211922991867`*^9, 3.433021955245819*^9, 
   3.4330428058321524`*^9, 3.4330471318000402`*^9, 3.433047740180582*^9, 
   3.433080945518361*^9, 3.4330817724844947`*^9, 3.433094756316447*^9, 
   3.433095224951619*^9, 3.4330966909010787`*^9, 3.4345037290227146`*^9, 
   3.4345042938924265`*^9, 3.434504836060401*^9, 3.434757735751095*^9, 
   3.434779451402697*^9, 3.4347803419888935`*^9, 3.4347804900343914`*^9, 
   3.434780689971919*^9, 3.4348068871578617`*^9, 3.43480735372549*^9, 
   3.4348074261059594`*^9, 3.4348074803712835`*^9, 3.434809151738076*^9, 
   3.4348094416724463`*^9, {3.434809509320997*^9, 3.434809611328796*^9}, 
   3.434811012564807*^9, 3.4348376053913507`*^9, 3.434837636360771*^9, 
   3.435287930040966*^9, 3.4352882381286135`*^9, 3.4352882916829505`*^9, {
   3.435289261649332*^9, 3.435289285642637*^9}, 3.4357245739905868`*^9, 
   3.4357247970802507`*^9, 3.4453732636592693`*^9, 3.4453771356597137`*^9, 
   3.445377305019864*^9, 3.4453774978633137`*^9, 3.4453775413950415`*^9, 
   3.445378638660949*^9, 3.44537889037788*^9, 3.4453799535053806`*^9, 
   3.4454530181935387`*^9, 3.445453467090068*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<HypothesisTesting`\>\"", "]"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Definitions of spring functions, adhesion constants, division, replication \
and differentiation functions.\
\>", "Section",
 CellChangeTimes->{
  3.4521193824665103`*^9, {3.4522707426106963`*^9, 3.452270788705599*^9}, {
   3.4522711531787825`*^9, 3.4522711768821573`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gcellsIDs", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "stemID", ",", "prgID", ",", "nrnID", ",", "susID", ",", "srfcID", ",", 
      "stromaID"}], "}"}], " ", "=", " ", 
    RowBox[{"N", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "2", ",", "6", ",", 
       RowBox[{"-", "10"}], ",", 
       RowBox[{"-", "11"}]}], "}"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gBoundYIndex", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"-", "6"}], "]"}]}], ";", 
  RowBox[{"gBoundXIndex", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"-", "5"}], "]"}]}], ";", 
  RowBox[{"gBasalLaminaIndex", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"-", "4"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.4172097775520105`*^9, 3.4172097778223863`*^9}, {
   3.420653821196702*^9, 3.420653836718402*^9}, {3.424459907949298*^9, 
   3.424459914778846*^9}, 3.43275279957924*^9, {3.432752871950418*^9, 
   3.4327528787499237`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gdf11ID", ",", "activinID"}], "}"}], " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.427726256429202*^9, 3.42772628423808*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "the", " ", "experiment", " ", "is", " ", "after", " ", "7", " ", 
     "days"}], " ", "=", " ", 
    RowBox[{"168", " ", "hours"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"gCellCycleTime", " ", "=", " ", "15"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{"ver1", "-", 
     RowBox[{"17", " ", "ver2"}], "-", 
     RowBox[{"15", " ", "in", " ", "hours"}]}], "*)"}], "\[IndentingNewLine]",
    
   RowBox[{
    RowBox[{"gObsreveTime", " ", "=", " ", "168"}], ";"}]}]}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gProtDecay", "[", "gdf11ID", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"gProtDecay", "[", "activinID", "]"}], " ", "=", "  ", "1.8"}]}],
    ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{"5", "*", 
          RowBox[{"10", "^", 
           RowBox[{"(", 
            RowBox[{"-", "4"}], ")"}]}], "*", "60", "*", "60"}], "]"}], " ", 
        "=", " ", 
        RowBox[{"1.8", " ", "-", " ", 
         RowBox[{"reference", " ", "Mizutani"}], "-", "Lander", "-", 
         RowBox[{
         "2005", " ", "for", " ", "Dpp", " ", "degradation", 
          "\[IndentingNewLine]", " ", "\[IndentingNewLine]", "6"}], "  ", "-",
          " ", 
         RowBox[{
         "used", " ", "for", " ", "MBP", " ", "in", " ", "reference", " ", 
          "\"\<Robust,Bistable,BMP Dependent Patterning of the\nDrosophila \
Blastoderm Embryo:Supporting Online Material(SOM)\>\"", " ", "by", " ", 
          "David", " ", "Umulis"}]}]}], ",", 
       RowBox[{"Mihaela", " ", "Serpe"}], ",", 
       RowBox[{"Michael", " ", 
        RowBox[{"B", ".", "O"}]}]}], "\[CloseCurlyQuote]"}], "Connor"}], ",", 
    
    RowBox[{"Hans", " ", 
     RowBox[{"G", ".", "Othmer"}]}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gProtDiff", "[", "gdf11ID", "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"gProtDiff", "[", "activinID", "]"}], " ", "=", "  ", 
     RowBox[{"1", "*", "3600"}]}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "85", "*", "3600", " ", "Lander", " ", "2007", " ", "for", " ", "BMP"}], 
   "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", "gdf11", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gProtMult", "[", 
    RowBox[{"stemID", ",", "gdf11ID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gProtMult", "[", 
    RowBox[{"prgID", ",", "gdf11ID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gProtMult", "[", 
     RowBox[{"nrnID", ",", "gdf11ID"}], "]"}], " ", "=", " ", "1"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "activin", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gProtMult", "[", 
    RowBox[{"stemID", ",", "activinID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gProtMult", "[", 
    RowBox[{"prgID", ",", "activinID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gProtMult", "[", 
    RowBox[{"nrnID", ",", "activinID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.429145324067028*^9, 3.42914532499833*^9}, {
  3.429378355168645*^9, 3.429378356606762*^9}, {3.429385185026327*^9, 
  3.429385190449006*^9}, {3.429394798333221*^9, 3.4293948001529427`*^9}, {
  3.4325771907681484`*^9, 3.432577270089042*^9}, {3.43257733605126*^9, 
  3.43257740700045*^9}, {3.435724541966134*^9, 3.4357245449302487`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"gProtMult", "[", 
    RowBox[{"stromaID", ",", "gdf11ID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gProtMult", "[", 
    RowBox[{"stromaID", ",", "activinID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.4327711525357466`*^9, 3.4327711815563183`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"cellSrcMultFunc", "[", 
   RowBox[{"celltype_", ",", "ptype_"}], "]"}], ":=", " ", 
  RowBox[{"Switch", "[", 
   RowBox[{"celltype", ",", "\[IndentingNewLine]", "stemID", ",", 
    RowBox[{"gProtMult", "[", 
     RowBox[{"celltype", ",", "ptype"}], "]"}], ",", "\[IndentingNewLine]", 
    "prgID", ",", 
    RowBox[{"gProtMult", "[", 
     RowBox[{"celltype", ",", "ptype"}], "]"}], ",", "\[IndentingNewLine]", 
    "nrnID", ",", 
    RowBox[{"gProtMult", "[", 
     RowBox[{"celltype", ",", "ptype"}], "]"}], ",", "susID", ",", "0", ",", 
    "srfcID", ",", "0", ",", "stromaID", ",", "0"}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.398132142134256*^9, 3.398132166801546*^9}, {
   3.4199590084614954`*^9, 3.419959012066535*^9}, 3.4202090911414337`*^9, {
   3.4202091720845957`*^9, 3.420209266807022*^9}, {3.420213572626742*^9, 
   3.4202135742890663`*^9}, {3.420409559595396*^9, 3.420409689827466*^9}, {
   3.420409723093974*^9, 3.4204098029155684`*^9}, {3.42041143262397*^9, 
   3.420411433104642*^9}, {3.420411501950892*^9, 3.420411510803268*^9}, {
   3.420413225520516*^9, 3.42041322803403*^9}, {3.420413664924822*^9, 
   3.4204136689103937`*^9}, 3.420413926069914*^9, {3.420414306702054*^9, 
   3.4204143076734123`*^9}, 3.42041932650996*^9, {3.4204194658547697`*^9, 
   3.42041946740694*^9}, 3.420419616245022*^9, 3.420419717366394*^9, 
   3.420423544977558*^9, {3.42042408621423*^9, 3.420424087245672*^9}, 
   3.42043267587294*^9, 3.420471015488659*^9, 3.4204711278857946`*^9, 
   3.4204712100706925`*^9, 3.4204712802788467`*^9, {3.4204786967176*^9, 
   3.4204786972583556`*^9}, {3.420482447801776*^9, 3.4204824656367097`*^9}, {
   3.4204825256205697`*^9, 3.4204825794057636`*^9}, {3.4204826262712836`*^9, 
   3.4204826304971914`*^9}, {3.4205634610517616`*^9, 
   3.4205634614923773`*^9}, {3.4205637460301733`*^9, 3.420563746631014*^9}, {
   3.421275566180587*^9, 3.4212755663682213`*^9}, {3.422762864798864*^9, 
   3.4227628655599203`*^9}, {3.4227975429893436`*^9, 
   3.4227975439606924`*^9}, {3.422806880830927*^9, 3.4228068812114553`*^9}, {
   3.422812310687952*^9, 3.422812333219227*^9}, {3.424467830575468*^9, 
   3.42446793304873*^9}, {3.4276887221189055`*^9, 3.4276887268955836`*^9}, {
   3.4276896832246466`*^9, 3.4276897049047403`*^9}, {3.42768980404235*^9, 
   3.4276899009468603`*^9}, {3.42768996485557*^9, 3.427689976962375*^9}, {
   3.4276900311976576`*^9, 3.427690051255499*^9}, {3.4277242850230923`*^9, 
   3.427724303829384*^9}, {3.42772629845796*^9, 3.42772631988792*^9}, {
   3.4280751389698334`*^9, 3.428075149814996*^9}, {3.432752887842636*^9, 
   3.432752890716654*^9}, 3.432754505944812*^9, {3.434504715251505*^9, 
   3.434504721920829*^9}, 3.4345047728520327`*^9}],

Cell[CellGroupData[{

Cell[BoxData["stemID"], "Input"],

Cell[BoxData["0.`"], "Output",
 CellChangeTimes->{{3.427724182960404*^9, 3.427724228023404*^9}, 
   3.427724270953422*^9, 3.4277265202780743`*^9, 3.427741121761572*^9, 
   3.42774202724748*^9, 3.427748204473506*^9, 3.427758082530715*^9, 
   3.427768111661869*^9, 3.427770813338929*^9, 3.427773624839527*^9, 
   3.4278144386102033`*^9, 3.4278146185918255`*^9, 3.427897736738472*^9, 
   3.427898086437366*^9, 3.42789826214301*^9, 3.427898687167212*^9, 
   3.4278999956965923`*^9, 3.427900135572144*^9, 3.4279002749469957`*^9, 
   3.4279015030639563`*^9, 3.427901594371608*^9, 3.427901799568482*^9, 
   3.4279031974728117`*^9, 3.4279038642950583`*^9, 3.427903950215178*^9, 
   3.427904065326108*^9, 3.427904269621722*^9, 3.42790860139773*^9, 
   3.427908678445446*^9, 3.427908942444528*^9, 3.4279090417133102`*^9, 
   3.4279093593273478`*^9, 3.427913633993514*^9, 3.4279898236867933`*^9, 
   3.427989926841007*^9, 3.427990279874563*^9, 3.427990955539171*^9, 
   3.4279961750612297`*^9, {3.427996219231154*^9, 3.427996318159458*^9}, 
   3.427999867632999*^9, 3.4280006261862288`*^9, {3.4280006878493843`*^9, 
   3.428000794025807*^9}, 3.428032211833557*^9, 3.4280721000913515`*^9, 
   3.428073807608534*^9, 3.4280756837013917`*^9, 3.428076275945614*^9, 
   3.428076395056758*^9, {3.428076425350545*^9, 3.4280764735257072`*^9}, 
   3.42807651083146*^9, 3.428084144306592*^9, 3.4280855668769913`*^9, 
   3.428087017670265*^9, 3.428087849725082*^9, 3.4280920758986387`*^9, 
   3.428097417967078*^9, 3.428154479185712*^9, 3.428155131207266*^9, 
   3.4282934049554768`*^9, 3.428293591235484*^9, {3.4282936868734283`*^9, 
   3.428293792682281*^9}, 3.428418691429041*^9, 3.4284505854075003`*^9, 
   3.4284996706179857`*^9, 3.4285494316265965`*^9, 3.4285990942543387`*^9, 
   3.428625182120634*^9, {3.428625261913416*^9, 3.428625397084806*^9}, 
   3.428703005104278*^9, 3.429451303074534*^9, 3.4294513683746777`*^9, {
   3.429451408726039*^9, 3.429451431536477*^9}, 3.429456717551165*^9, 
   3.42979652446004*^9, 3.429796589280662*^9, 3.4298964354267583`*^9, 
   3.4298967811901503`*^9, 3.429969424074585*^9, 3.430073758715708*^9, 
   3.430601016138111*^9, 3.4306646160261183`*^9, {3.430665230725494*^9, 
   3.430665247028286*^9}, 3.430665784820142*^9, 3.430666132185774*^9, 
   3.430667150309154*^9, 3.430670330154714*^9, 3.430670742280884*^9, 
   3.430680497351198*^9, 3.4306914695608163`*^9, 3.4307053467617364`*^9, 
   3.4307054064151344`*^9, 3.4307068310972404`*^9, 3.4307085842482204`*^9, 
   3.430711851106164*^9, 3.430712106041211*^9, 3.430712181746472*^9, 
   3.4307122197103367`*^9, {3.430712270108811*^9, 3.430712324656745*^9}, 
   3.4311287239188213`*^9, {3.431128851844056*^9, 3.431128874130733*^9}, {
   3.4311290662173967`*^9, 3.431129090807048*^9}, 3.431129150980291*^9, 
   3.431129322069112*^9, 3.4311325799871902`*^9, 3.431132661091158*^9, 
   3.431133780060734*^9, 3.43113391879395*^9, 3.431134244310768*^9, 
   3.43113428667673*^9, 3.4311343211761713`*^9, 3.4311351708541327`*^9, 
   3.431135237130352*^9, 3.4311353224536943`*^9, 3.431136494027026*^9, 
   3.4311365324034243`*^9, 3.43114626372589*^9, 3.4311465535503607`*^9, 
   3.431147250898432*^9, 3.431147300971829*^9, 3.4312860896894073`*^9, 
   3.431287720809784*^9, 3.4312925804137173`*^9, 3.431293233466714*^9, 
   3.431294206256716*^9, 3.4320415621634893`*^9, 3.432756657843258*^9, 
   3.43275677734032*^9, 3.432756929933652*^9, 3.43275737327346*^9, 
   3.4327711518347664`*^9, 3.432819583674548*^9, 3.4328196640969825`*^9, 
   3.4328277649623384`*^9, 3.4328291252140284`*^9, 3.4328293762249527`*^9, 
   3.4328428042979727`*^9, 3.432842910125924*^9, 3.4328533911288147`*^9, 
   3.4328566618714523`*^9, 3.43291868706951*^9, 3.433016413898779*^9, 
   3.4330180208253307`*^9, 3.4330181868774786`*^9, 3.433021193991553*^9, 
   3.4330219571885347`*^9, 3.4330428129320784`*^9, 3.4330471335625043`*^9, 
   3.433047742163354*^9, 3.433080947561217*^9, 3.4330817742469587`*^9, 
   3.4330947614536285`*^9, 3.433095227204769*^9, 3.4330966998335667`*^9, 
   3.434503730604927*^9, 3.4345042968265285`*^9, 3.434504840216211*^9, 
   3.434757737653717*^9, 3.4347794674449654`*^9, 3.4347803438815207`*^9, 
   3.4347804937295203`*^9, 3.434780691794449*^9, 3.43480688908053*^9, 
   3.4348073554979506`*^9, 3.4348074280086*^9, 3.4348074819835215`*^9, 
   3.434809152978343*^9, 3.434809442848061*^9, {3.434809510354752*^9, 
   3.434809612542501*^9}, 3.434811016230625*^9, 3.4348376381290007`*^9, 
   3.435287932524413*^9, 3.435288239981185*^9, 3.4352882935555496`*^9, {
   3.435289261999819*^9, 3.435289287445139*^9}, 3.4357245763238254`*^9, 
   3.4357247976210012`*^9, 3.4453732659425073`*^9, 3.445377137812767*^9, 
   3.4453773071428747`*^9, 3.445377501238099*^9, 3.4453775436282077`*^9, 
   3.445378640894116*^9, 3.445378892340664*^9, 3.445379955438122*^9, 
   3.445453018273652*^9, 3.445453467200224*^9, 3.4462463827515593`*^9, 
   3.446246532932533*^9, 3.4470117447804785`*^9, 3.4472577820067816`*^9, 
   3.447471521295517*^9, 3.4474719233956895`*^9, 3.447472680329011*^9, 
   3.4474740315850735`*^9, 3.4474745623276596`*^9, 3.4474762421095676`*^9, 
   3.4475564305260925`*^9, 3.4475598380819397`*^9, 3.4476447382324023`*^9, 
   3.4477290206951895`*^9, 3.4477290923074493`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"the", " ", "real", " ", 
      RowBox[{"gSrcMult", "[", 
       RowBox[{"[", 
        RowBox[{"5", ",", "2"}], "]"}], "]"}]}], " ", "=", " ", 
     RowBox[{
      RowBox[{"gSrcMult", "[", 
       RowBox[{"[", 
        RowBox[{"4", ",", "1"}], "]"}], "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"gSrcMult", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "1"}], "]"}], "]"}], " ", "=", " ", "1"}]}]}], 
    ";"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"cellSourceFunc", "[", 
     RowBox[{"celltype_", ",", "ptype_", ",", "cx_", ",", "cy_", ",", "cr_"}],
      "]"}], ":=", " ", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"cellSrcMultFunc", "[", 
           RowBox[{"celltype", ",", "ptype"}], "]"}], ">", "0"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"cx", ",", "cy"}], "}"}], ",", "cr", ",", 
           RowBox[{
            RowBox[{"grammarHillFunc", "[", 
             RowBox[{"cr", ",", 
              RowBox[{"1.3", 
               RowBox[{
                RowBox[{"gRadLimit", "[", "stemID", "]"}], "/", 
                SqrtBox["2"]}]}], ",", "6"}], "]"}], "*", 
            RowBox[{"cellSrcMultFunc", "[", 
             RowBox[{"celltype", ",", "ptype"}], "]"}]}]}], "}"}], ",", "0"}],
         "]"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"cellSrcMultFunc", "[", 
          RowBox[{"celltype", ",", "ptype"}], "]"}], ">", "0"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"cx", ",", "cy"}], "}"}], ",", "cr", ",", 
          RowBox[{"cellSrcMultFunc", "[", 
           RowBox[{"celltype", ",", "ptype"}], "]"}]}], "}"}], ",", "0"}], 
       "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.398132142134256*^9, 3.39813218144564*^9}, {
   3.398132214396028*^9, 3.3981322280534697`*^9}, {3.419876320127796*^9, 
   3.419876332124568*^9}, {3.420209059176746*^9, 3.420209086565036*^9}, {
   3.4205204686565557`*^9, 3.4205204727522817`*^9}, {3.4205205189268355`*^9, 
   3.4205206134690094`*^9}, 3.4205208458538933`*^9, 3.4226555738820615`*^9, {
   3.4226556146690836`*^9, 3.4226556150596294`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"calcRepRates", "[", "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "sol1", ",", "sol2", ",", "sol", ",", "stm", ",", "nrn", ",", "sus", 
       ",", "repStm", ",", "probDiffNrn"}], "}"}], ",", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sol", " ", "=", " ", 
       RowBox[{"DSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"stm", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"repStm", " ", 
                RowBox[{"stm", "[", "t", "]"}]}], "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", "repStm"}], ")"}], 
                RowBox[{"stm", "[", "t", "]"}]}]}], ")"}], "/", 
             "gCellCycleTime"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"nrn", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "repStm"}], ")"}], "probDiffNrn", " ", 
               RowBox[{"stm", "[", "t", "]"}]}], " ", ")"}], "/", 
             "gCellCycleTime"}]}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"sus", "'"}], "[", "t", "]"}], " ", "\[Equal]", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "-", "repStm"}], ")"}], 
               RowBox[{"(", 
                RowBox[{"1", "-", "probDiffNrn"}], ")"}], " ", 
               RowBox[{"stm", "[", "t", "]"}]}], " ", ")"}], "/", 
             "gCellCycleTime"}]}], ",", 
           RowBox[{
            RowBox[{"stm", "[", "0", "]"}], " ", "\[Equal]", " ", "3"}], ",", 
           
           RowBox[{
            RowBox[{"nrn", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
           RowBox[{
            RowBox[{"sus", "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"stm", ",", "nrn", ",", "sus"}], "}"}], ",", "t"}], "]"}]}],
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"sol1", " ", "=", " ", 
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"stm", "/.", 
               RowBox[{"sol", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "[", "gObsreveTime", 
             "]"}], "\[Equal]", "10"}], ",", "repStm"}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"sol2", " ", "=", " ", 
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{"Solve", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"nrn", "/.", 
                 RowBox[{"sol", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/.", "sol1"}], 
              ")"}], "[", "gObsreveTime", "]"}], "\[Equal]", "20"}], ",", 
           "probDiffNrn"}], "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"repStm", ",", "probDiffNrn"}], "}"}], "/.", 
       RowBox[{"Join", "[", 
        RowBox[{"sol1", ",", "sol2"}], "]"}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4172950618114777`*^9, 3.4172950845430307`*^9}, {
  3.4172951278531485`*^9, 3.4172952486107683`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"gProbRep0", " ", "=", " ", "0.6"}], ";", 
   RowBox[{"(*", "0.8", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"gDiffToNrn", " ", "=", " ", "0.7"}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{
  3.417210052253316*^9, 3.4172102650687184`*^9, {3.417295307152028*^9, 
   3.417295310216281*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"gProbRep0", ",", "gDiffToNrn"}], "}"}], " ", "=", " ", 
   RowBox[{"calcRepRates", "[", "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.417295286793769*^9, 3.417295294244111*^9}, {
  3.420488765784586*^9, 3.4204887667959995`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"gGrowthRate", "[", "#", "]"}], " ", "=", " ", "1"}], ";"}], 
     "&"}], ",", "gcellsIDs"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gGrowthRate", "[", "srfcID", "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gGrowthRate", "[", "stromaID", "]"}], " ", "=", " ", "0"}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"gRadLimit", "[", "#", "]"}], " ", "=", " ", "5"}], ";"}], 
     "&"}], ",", "gcellsIDs"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gRadLimit", "[", "srfcID", "]"}], " ", "=", " ", "5"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"an", " ", "average", " ", "cell", " ", "is", " ", "10", "um"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.420482521054186*^9, 3.4204825333714056`*^9}, {
  3.43275290202246*^9, 3.432752908271196*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"initial", " ", "cell", " ", "rad", " ", 
     RowBox[{
      RowBox[{"gRadLimit", "[", "cType", "]"}], "/", 
      SqrtBox["2"]}]}], " ", "-", " ", 
    RowBox[{"max", " ", "rad", " ", 
     RowBox[{"gRadLimit", "[", "cType", "]"}], "  ", "in", " ", 
     "gCellCycleTime", " ", 
     RowBox[{"hours", ".", "\[IndentingNewLine]", "therefore"}], " ", "k"}]}],
    " ", "=", " ", 
   RowBox[{"0.292", "*", 
    RowBox[{
     RowBox[{"gRadLimit", "[", "cType", "]"}], "/", "gCellCycleTime"}]}]}], 
  "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.4453715912678413`*^9, 3.445371717476804*^9}, {
   3.4454528177693396`*^9, 3.4454528299666357`*^9}, 3.445452941014099*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"1", "-", 
   RowBox[{"1", "/", 
    SqrtBox["2"]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.445441596728055*^9, 3.4454416035577393`*^9}, {
  3.4454529315006094`*^9, 3.4454529316307936`*^9}}],

Cell[BoxData["0.29289321881345254`"], "Output",
 CellChangeTimes->{3.445441603928265*^9, 3.4454529324319296`*^9, 
  3.445453018343752*^9, 3.445453467300366*^9, 3.4462463828416805`*^9, 
  3.4462465330426803`*^9, 3.447011744840564*^9, 3.4472577820468388`*^9, 
  3.447471521335574*^9, 3.447471923435746*^9, 3.447472680439167*^9, 
  3.447474031665187*^9, 3.4474745624678583`*^9, 3.447476242199695*^9, 
  3.4475564305761642`*^9, 3.447559838121997*^9, 3.4476447383525743`*^9, 
  3.4477290208253756`*^9, 3.447729092687992*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"radFunction", "[", 
   RowBox[{"cType_", ",", "cRad_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "radTemp", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"radTemp", " ", "=", " ", "0.1"}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"gGrowthRate", "[", "cType", "]"}], "*", 
      RowBox[{"(", 
       RowBox[{"0.292", "*", 
        RowBox[{
         RowBox[{"gRadLimit", "[", "cType", "]"}], "/", "gCellCycleTime"}]}], 
       ")"}], "*", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"cType", " ", "\[Equal]", " ", "nrnID"}], ",", 
        RowBox[{"grammarSigmoid", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"gRadLimit", "[", "cType", "]"}], "-", "cRad"}], ",", 
          "radTemp"}], "]"}], ",", "1"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4204823964700117`*^9, 3.4204823966102076`*^9}, {
  3.445371724867284*^9, 3.445371731206272*^9}, {3.4453718468502536`*^9, 
  3.445371911401787*^9}, {3.4453728515649257`*^9, 3.4453728526264305`*^9}, {
  3.44545296748163*^9, 3.44545297067616*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"radFunction", "[", 
    RowBox[{"stemID", ",", "r"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"r", ",", "0", ",", 
     RowBox[{"2", 
      RowBox[{"gRadLimit", "[", "stemID", "]"}]}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], 
    LineBox[{{2.0408163265306121`*^-7, 0.09733333333333333}, {
     0.09814340804846831, 0.09733333333333333}, {0.19628661201530398`, 
     0.09733333333333333}, {0.40908357085458646`, 0.09733333333333333}, {
     0.6077788357015209, 0.09733333333333333}, {0.8025764881887605, 
     0.09733333333333333}, {1.013884691581611, 0.09733333333333333}, {
     1.2110912009821138`, 0.09733333333333333}, {1.4248082612882276`, 
     0.09733333333333333}, {1.6346277092346464`, 0.09733333333333333}, {
     1.8303454631887173`, 0.09733333333333333}, {2.0425737680483995`, 
     0.09733333333333333}, {2.240700378915734, 0.09733333333333333}, {
     2.434929377423373, 0.09733333333333333}, {2.645668926836623, 
     0.09733333333333333}, {2.842306782257525, 0.09733333333333333}, {
     3.0554551885840384`, 0.09733333333333333}, {3.264705982550857, 
     0.09733333333333333}, {3.459855082525327, 0.09733333333333333}, {
     3.6715147334054086`, 0.09733333333333333}, {3.869072690293142, 
     0.09733333333333333}, {4.083141198086486, 0.09733333333333333}, {
     4.293312093520136, 0.09733333333333333}, {4.489381294961437, 
     0.09733333333333333}, {4.70196104730835, 0.09733333333333333}, {
     4.900439105662914, 0.09733333333333333}, {5.095019551657784, 
     0.09733333333333333}, {5.306110548558265, 0.09733333333333333}, {
     5.503099851466398, 0.09733333333333333}, {5.716599705280141, 
     0.09733333333333333}, {5.92620194673419, 0.09733333333333333}, {
     6.121702494195891, 0.09733333333333333}, {6.333713592563203, 
     0.09733333333333333}, {6.531622996938168, 0.09733333333333333}, {
     6.725634788953437, 0.09733333333333333}, {6.936157131874317, 
     0.09733333333333333}, {7.13257778080285, 0.09733333333333333}, {
     7.345508980636994, 0.09733333333333333}, {7.54433848647879, 
     0.09733333333333333}, {7.7392703799608915`, 0.09733333333333333}, {
     7.950712824348604, 0.09733333333333333}, {8.148053574743969, 
     0.09733333333333333}, {8.361904876044944, 0.09733333333333333}, {
     8.571858564986224, 0.09733333333333333}, {8.767710559935155, 
     0.09733333333333333}, {8.980073105789698, 0.09733333333333333}, {
     9.178333957651894, 0.09733333333333333}, {9.372697197154395, 
     0.09733333333333333}, {9.583570987562506, 0.09733333333333333}, {
     9.78034308397827, 0.09733333333333333}, {9.993625731299645, 
     0.09733333333333333}, {9.996812763609006, 0.09733333333333333}, {
     9.999999795918367, 0.09733333333333333}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 10}, {0.09733333333333333, 0.09733333333333333}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.415732004784417*^9, 3.415732066819235*^9, 3.415980213377222*^9, 
   3.416106855116789*^9, 3.417207350959279*^9, 3.4172074758326116`*^9, 
   3.417210649151853*^9, 3.4172276118572855`*^9, 3.417232623964444*^9, 
   3.4172329251525145`*^9, 3.4172954431808453`*^9, 3.417296137364421*^9, 
   3.4173579365055785`*^9, 3.420490578649048*^9, 3.420490617743704*^9, 
   3.4204914067868195`*^9, 3.4204917622137213`*^9, 3.4204932986817694`*^9, 
   3.4204944607664137`*^9, 3.420494535490882*^9, 3.4204975196128116`*^9, 
   3.4205141019756637`*^9, {3.4205208554973755`*^9, 3.4205208711492577`*^9}, 
   3.4205496043795414`*^9, 3.4205537622223835`*^9, 3.4205634650473475`*^9, 
   3.420563793075946*^9, 3.42057066359122*^9, 3.4205762477520404`*^9, 
   3.420605038045432*^9, 3.4206433483652363`*^9, 3.420645081838706*^9, 
   3.420645536714642*^9, 3.4206488711162777`*^9, 3.4206521223917*^9, 
   3.4206540939780617`*^9, 3.420654244067894*^9, 3.420654504712286*^9, 
   3.420656403957512*^9, 3.420658053093074*^9, 3.4206587477942963`*^9, 
   3.420661893412004*^9, 3.4206681396945744`*^9, 3.4207308558300486`*^9, 
   3.420755843998848*^9, 3.4207730805145226`*^9, 3.4208154854484324`*^9, 
   3.4208196496000943`*^9, 3.4208228527282047`*^9, 3.4208256499888945`*^9, 
   3.4208280582156982`*^9, 3.420833188097492*^9, 3.420834214862954*^9, 
   3.420835842218066*^9, 3.4209013811916127`*^9, 3.420902866918723*^9, 
   3.420914706160489*^9, 3.4209851051418676`*^9, 3.4209911713526897`*^9, 
   3.4209940734299173`*^9, 3.4209953208738976`*^9, 3.4209957652451477`*^9, 
   3.4210034436471453`*^9, 3.421004305341831*^9, 3.421005002616651*^9, 
   3.421010384530797*^9, 3.421010525207469*^9, 3.421019535083661*^9, 
   3.4210259894972067`*^9, 3.421035178945814*^9, 3.42103833660035*^9, 
   3.4210386472646723`*^9, 3.4210766455451555`*^9, 3.4210769042368174`*^9, 
   3.4210845731983533`*^9, 3.4210915391170053`*^9, 3.421097249600505*^9, 
   3.4211012320781794`*^9, 3.421101738125655*^9, 3.421102844332179*^9, 
   3.421103112346875*^9, 3.421104057338013*^9, 3.421104863895615*^9, 
   3.421106446728483*^9, 3.421109752329855*^9, 3.4211175033461075`*^9, 
   3.421121781376977*^9, 3.4211229417992973`*^9, 3.421162370474144*^9, 
   3.421163435963744*^9, 3.4211663986957703`*^9, 3.4211722193432837`*^9, 
   3.421173880345436*^9, 3.421174575106742*^9, 3.421174854968*^9, 
   3.42117826243178*^9, 3.421179355930538*^9, 3.421180637682482*^9, 
   3.4211808797008343`*^9, 3.4211845459664297`*^9, 3.421185365301896*^9, 
   3.4212050182389917`*^9, 3.421210367447414*^9, 3.4212521247721767`*^9, 
   3.42125430613181*^9, 3.4212609158168793`*^9, 3.421263558231087*^9, 
   3.421266488667963*^9, 3.421273375330984*^9, 3.421274925165885*^9, 
   3.42127512529327*^9, 3.4212752128234243`*^9, 3.42127561338721*^9, 
   3.421275799663186*^9, 3.42127585106315*^9, 3.4212819621983433`*^9, 
   3.421282291518778*^9, 3.42128238612749*^9, 3.421294990266617*^9, 
   3.421296108646957*^9, 3.4212961851879396`*^9, 3.421297672126791*^9, 
   3.421297885870887*^9, 3.421297925974478*^9, 3.421299021362397*^9, 
   3.421299122915782*^9, 3.4212991762487307`*^9, 3.421299252069726*^9, 
   3.421328448975934*^9, 3.421329179158978*^9, 3.421329260685471*^9, 
   3.421333736029188*^9, 3.421334344571313*^9, 3.421334434086959*^9, 
   3.421337573307431*^9, 3.421337846283959*^9, 3.4213379271809597`*^9, 
   3.421344037191512*^9, 3.421344180620007*^9, 3.4213619149184217`*^9, 
   3.4213620358121367`*^9, 3.421362090175243*^9, 3.421362141415579*^9, 
   3.42144685202105*^9, 3.421449281941558*^9, 3.4214494852177563`*^9, 
   3.421450812659066*^9, 3.4214511194679985`*^9, 3.4214528569070125`*^9, 
   3.4214540830111585`*^9, 3.421458387613533*^9, 3.421458510975999*^9, 
   3.4215379784910297`*^9, 3.4215380774573603`*^9, 3.421538120381662*^9, 
   3.42153816211847*^9, 3.4215383462636433`*^9, 3.421550040950527*^9, 
   3.421556052326714*^9, 3.421556165033148*^9, 3.4215562787485237`*^9, 
   3.4215893072319264`*^9, 3.4215946833679943`*^9, 3.4215947562498865`*^9, 
   3.421626942845955*^9, 3.4221320396970882`*^9, 3.4227586768056335`*^9, 
   3.422812265455166*^9, 3.4228125901558733`*^9, 3.422819589691723*^9, 
   3.4228196300076847`*^9, 3.422820048588704*^9, 3.42283823495173*^9, 
   3.42284492841341*^9, 3.4228474637025704`*^9, 3.422978331350547*^9, 
   3.423368456316396*^9, 3.423420950612074*^9, 3.423426166373932*^9, 
   3.423426248338522*^9, 3.4234291721674433`*^9, 3.423429245990651*^9, 
   3.4234307106382914`*^9, 3.4234520081130714`*^9, 3.423453431182583*^9, 
   3.423489318376635*^9, 3.423491442836721*^9, 3.423506949906611*^9, 
   3.423507083012699*^9, 3.423507379427099*^9, 3.423510418856351*^9, 
   3.423512158718753*^9, 3.423513507514427*^9, 3.4235166005586348`*^9, 
   3.423518265816737*^9, 3.4235388976957893`*^9, 3.423539695658531*^9, 
   3.423539771384204*^9, 3.423539842838311*^9, 3.423574505835689*^9, 
   3.423576648141962*^9, 3.423576980231594*^9, 3.423578728122553*^9, 
   3.4235828149962587`*^9, 3.423589468340122*^9, 3.4235909235694237`*^9, 
   3.423591205268091*^9, 3.423591537603846*^9, 3.42359247438337*^9, 
   3.4235926421090813`*^9, 3.423594840411528*^9, 3.423598439552578*^9, 
   3.4235993652309303`*^9, 3.42360481102641*^9, 3.4236052113053617`*^9, 
   3.423606761438816*^9, 3.423606834372553*^9, 3.423606909395999*^9, 
   3.423607129384982*^9, 3.4236213864465113`*^9, 3.4236215489876738`*^9, 
   3.4236218042761*^9, 3.423621887830592*^9, 3.4236244236320963`*^9, 
   3.423886752184952*^9, 3.423925365260928*^9, 3.423945555077154*^9, 
   3.4239693249384365`*^9, 3.423969927951474*^9, 3.4239703125892143`*^9, 
   3.4239705061898766`*^9, 3.4239718088874273`*^9, 3.42397205939104*^9, 
   3.423972114482727*^9, 3.4239721590090427`*^9, 3.42397222018069*^9, 
   3.4240108287981777`*^9, 3.424010898863599*^9, 3.4240109714576406`*^9, 
   3.424011038993548*^9, 3.4240110963074207`*^9, 3.4240111564409237`*^9, 
   3.4240234696681747`*^9, 3.424056532048977*^9, 3.4241290067783237`*^9, 
   3.4244666258011417`*^9, {3.424468217216008*^9, 3.424468245846034*^9}, 
   3.424471228457464*^9, 3.42447252701068*^9, 3.424472603462068*^9, 
   3.424472711501287*^9, {3.4244727623896713`*^9, 3.424472830196335*^9}, 
   3.4244734431803303`*^9, 3.4244735105279284`*^9, 3.42447399736152*^9, 
   3.424474042933511*^9, {3.424474092361547*^9, 3.424474110247634*^9}, {
   3.4244741427162724`*^9, 3.424474166993986*^9}, 3.424628965498369*^9, 
   3.4246322723214493`*^9, 3.427215362261797*^9, 3.4272174724419193`*^9, 
   3.427340098280224*^9, 3.427340152197342*^9, 3.427340200830002*^9, 
   3.427340245917201*^9, 3.427340283671232*^9, 3.427340334199498*^9, 
   3.4276856678489056`*^9, 3.4276857048306074`*^9, 3.427724051586738*^9, 
   3.4277241920431023`*^9, 3.427724228203656*^9, 3.4277265204583263`*^9, 
   3.4277411219718657`*^9, 3.4277420274077044`*^9, 3.427748204723856*^9, 
   3.427758082801093*^9, 3.4277681118721633`*^9, 3.4277708135592375`*^9, 
   3.427773624979723*^9, 3.427814438760413*^9, 3.427814618742035*^9, 
   3.4278977368686543`*^9, 3.427898087568948*^9, 3.427898262303234*^9, 
   3.42789868738752*^9, 3.427899995997012*^9, 3.427900135752396*^9, 
   3.427900275217374*^9, 3.4279015032442083`*^9, 3.427901594571888*^9, 
   3.42790179973872*^9, 3.4279031976630783`*^9, 3.427903864465296*^9, 
   3.4279039504154577`*^9, 3.427904065496346*^9, 3.427904269922142*^9, 
   3.42790860164808*^9, 3.427908678765894*^9, 3.427908943956642*^9, 
   3.427909041923604*^9, 3.4279093595076*^9, 3.4279136341937943`*^9, 
   3.4279898242075214`*^9, 3.4279899270613155`*^9, 3.427990280084857*^9, 
   3.427990955679367*^9, 3.427996175180066*^9, {3.427996219335908*^9, 
   3.427996318368186*^9}, 3.4279998693658943`*^9, 3.428000626325453*^9, {
   3.4280006879521017`*^9, 3.428000794213983*^9}, 3.4280322123042145`*^9, 
   3.4280721008223734`*^9, 3.4280738132864714`*^9, 3.4280756838415875`*^9, 
   3.428076276170162*^9, 3.4280763951763077`*^9, {3.428076425458405*^9, 
   3.4280764736989813`*^9}, 3.42807651101937*^9, 3.428084144473178*^9, 
   3.42808556702424*^9, 3.428087017831871*^9, 3.428087849883191*^9, 
   3.4280920760788903`*^9, 3.4280974181773725`*^9, 3.428154479385992*^9, 
   3.428155131387518*^9, 3.428293405158298*^9, 3.428293591338749*^9, {
   3.4282936869766197`*^9, 3.428293792853114*^9}, 3.428418692049909*^9, 
   3.428450586028368*^9, 3.4284996711787696`*^9, 3.4285494318569183`*^9, 
   3.428599094875207*^9, 3.4286251822823153`*^9, {3.428625262056327*^9, 
   3.428625397371093*^9}, 3.428703005774556*^9, 3.429451303226252*^9, 
   3.429451368498206*^9, {3.4294514088466797`*^9, 3.4294514316552687`*^9}, 
   3.429456717709216*^9, 3.42979652496074*^9, 3.429796589531012*^9, 
   3.4298964360175843`*^9, 3.429896781350374*^9, 3.429969424595313*^9, 
   3.43007375929652*^9, 3.4306010164185033`*^9, 3.4306646162664537`*^9, {
   3.4306652309558163`*^9, 3.430665247208538*^9}, 3.430665785030436*^9, 
   3.430666132345998*^9, 3.430667150459364*^9, 3.430670330375022*^9, 
   3.4306707424411077`*^9, 3.4306804975214367`*^9, 3.4306914697310543`*^9, 
   3.4307053469219604`*^9, 3.4307054065853724`*^9, 3.4307068312674785`*^9, 
   3.4307085844084444`*^9, 3.430711851350198*^9, 3.430712106170759*^9, 
   3.430712181870528*^9, 3.430712220042836*^9, {3.430712270252928*^9, 
   3.430712324885654*^9}, 3.431128724169073*^9, {3.431128852175499*^9, 
   3.431128874295184*^9}, {3.431129066384925*^9, 3.431129091005569*^9}, 
   3.431129151201309*^9, 3.43112932225992*^9, 3.43113258035748*^9, 
   3.431132661661579*^9, 3.431133780405396*^9, 3.431133919132165*^9, 
   3.431134244483506*^9, 3.431134286900297*^9, 3.431134321349564*^9, 
   3.431135171267577*^9, 3.43113523769512*^9, 3.4311353226406927`*^9, 
   3.431136494251863*^9, 3.431136532610772*^9, 3.431146263917697*^9, 
   3.431146553738783*^9, 3.43114725107323*^9, 3.431147301513421*^9, 
   3.4312860905906677`*^9, 3.4312877210200777`*^9, 3.4312925805939693`*^9, 
   3.431293233697036*^9, 3.4312942064469814`*^9, 3.4320415623721533`*^9, 
   3.4327566583940277`*^9, 3.432756777600684*^9, 3.432756930093876*^9, 
   3.432757373443698*^9, 3.4327711520050044`*^9, 3.4328195838548*^9, 
   3.4328196660997825`*^9, 3.4328277651325765`*^9, 3.4328291254443502`*^9, 
   3.4328293764052043`*^9, 3.4328428045082664`*^9, 3.4328429103262043`*^9, 
   3.4328533913190804`*^9, 3.4328566620617185`*^9, 3.4329186876803637`*^9, 
   3.4330164142692966`*^9, 3.433018021015597*^9, 3.4330181871278286`*^9, 
   3.433021194131749*^9, 3.433021957388815*^9, 3.433042813122344*^9, 
   3.433047133742756*^9, 3.4330477439959164`*^9, 3.433080947731455*^9, 
   3.4330817743871546`*^9, 3.433094761593825*^9, 3.4330952273850207`*^9, 
   3.433096700023833*^9, 3.4345037313459625`*^9, 3.434504296966725*^9, 
   3.4345048403463926`*^9, 3.434757737843979*^9, 3.434779467685299*^9, 
   3.434780344051757*^9, 3.4347804956121335`*^9, 3.4347806919446573`*^9, 
   3.4348068892407527`*^9, 3.4348073556581726`*^9, 3.434807428168823*^9, 
   3.434807482113702*^9, 3.4348091532544403`*^9, 3.4348094430696487`*^9, {
   3.4348095104821787`*^9, 3.434809612724943*^9}, 3.434811018143152*^9, 
   3.434837638608779*^9, 3.4352879327847743`*^9, 3.435288240141407*^9, 
   3.435288293725786*^9, {3.435289262280208*^9, 3.435289287655431*^9}, 
   3.4357245764940615`*^9, 3.4357247977712097`*^9, 3.4453732667536573`*^9, 
   3.445377137932937*^9, 3.445377307303102*^9, 3.4453775014283686`*^9, 
   3.4453775437784204`*^9, 3.445378641034315*^9, 3.445378892470848*^9, 
   3.4453799556283913`*^9, 3.4454530183938227`*^9, 3.44545346738048*^9, 
   3.4462463829418144`*^9, 3.4462465331227875`*^9, 3.447011745391345*^9, 
   3.4472577822871795`*^9, 3.4474715215759144`*^9, 3.4474719234858174`*^9, 
   3.447472680549323*^9, 3.447474031745301*^9, 3.4474745625579863`*^9, 
   3.447476242299837*^9, 3.4475564306362505`*^9, 3.4475598381820827`*^9, 
   3.4476447387631607`*^9, 3.4477290213160763`*^9, 3.4477290927881355`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{
    RowBox[{"tempsol", " ", "=", " ", 
     RowBox[{"r", "/.", 
      RowBox[{
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             SuperscriptBox["r", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], " ", "==", " ", "\n",
             " ", 
            RowBox[{"radFunction", "[", 
             RowBox[{"nrnID", ",", " ", 
              RowBox[{"r", "[", "t", "]"}]}], "]"}]}], ",", 
           RowBox[{
            RowBox[{"r", "[", "0", "]"}], " ", "\[Equal]", " ", 
            RowBox[{
             RowBox[{"gRadLimit", "[", "stemID", "]"}], "/", 
             SqrtBox["2"]}]}]}], "}"}], ",", "r", ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"tempsol", "[", "gCellCycleTime", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.44537315920115*^9, 3.445373241808285*^9}, {
  3.44537329532417*^9, 3.445373310515712*^9}, {3.44537334057834*^9, 
  3.445373404769362*^9}, {3.4454530365395527`*^9, 3.4454530706278896`*^9}, {
  3.4454531042255306`*^9, 3.445453125926302*^9}}],

Cell[BoxData["4.940420495798052`"], "Output",
 CellChangeTimes->{
  3.4453732669238987`*^9, {3.4453732992797794`*^9, 3.4453733109563365`*^9}, {
   3.445373341329405*^9, 3.4453734052099867`*^9}, 3.4453771379930224`*^9, 
   3.445377307383216*^9, 3.4453775014684258`*^9, 3.4453775438184776`*^9, 
   3.445378641104414*^9, 3.445378892540948*^9, 3.445379955698491*^9, {
   3.4454530184238653`*^9, 3.4454530379014845`*^9}, 3.445453071108571*^9, {
   3.4454531056475472`*^9, 3.445453126677367*^9}, 3.445453467440565*^9, 
   3.4462463830319347`*^9, 3.446246533182868*^9, 3.447011745631686*^9, 
   3.4472577826076336`*^9, 3.4474715216660423`*^9, 3.447471923505846*^9, 
   3.4474726806294365`*^9, 3.4474740318254147`*^9, 3.4474745626180716`*^9, 
   3.447476242369937*^9, 3.447556430666293*^9, 3.4475598382021112`*^9, 
   3.4476447389834747`*^9, 3.447729021436248*^9, 3.4477290928982925`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"tempsol", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "1", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4453733151322575`*^9, 3.44537333375867*^9}, {
  3.4453734134116163`*^9, 3.4453734217133884`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Xs4lFsbBnB7bEoHNO96ZVM7h20cYhzGYDJxN522IiHnukKKJFQiUYly
TlGElJJUIlIpSUSZ7GgiSV9FKUmSUhupvvY7f6xrXb8/nnXd6340/UKd17Nk
ZGQymCO9VVuPbNBq0oHW0JeeI2vZKL/6tt6I4sDernpkWwgbJzRLdFu0OLhV
UDYasoWNtAOb04PMOOAk9CVtDGcjcP1X77NOHPi0Cpev2cmGFs0a0zjEgXKp
3JBNAhvZ4bONyHRdPLbgh/cfZyOGtyp3Ql4P54XlM8tb2AgqmCmTq6KH/EgD
6oiEDc+pzzZYcvSg1R2qsKOdDYvXvubhi/Vw0DGgVdjFxnBmqGQoXg9+9+ey
ql+z4TeSIvdKRh9jT6M/bp9gw+7S7S3iCX1Ml63l3+dQSE+/kXtlqgGqFTxF
NfoUOjZdvn1qlgGeaKweOWdIwYdzZkaMjQG0w6Yr7jKjEHEs6ZJJnAHYh3MH
5W0oFO53/JyrMBcVkxsUjq6i8MPzRViwqiF8qobtvfdQEFl25njqGyI0/pLS
+70UEomkfsk8Q3iKKc72fRTYknplzdWGyHgZZhSbTEF/UVHF4wJDdJWPfAg8
TMGNu+mTja4RflVWbo8tplDB+hY6w4KL1NO1CyubKZT8OJxRvoSLkoygy9X3
KRSNci87uHMhd6RzRW0rhaPv/UeTd3BRblLCrm6jsLv9YQyrhgvW+t//iH9K
wb7wXPIXW2Po35x21P8dhSX5Cy9krDSG00Y3X5P3FJDd3WLsa4wb89fkjA9S
4KUQ5eA4Y3TO/W3d7mEKaltjs9/cMYZDGnuyzyiFrxqlbe//MsHG675fYmUJ
Ph+P6hUYmeAdFeWqIkfwUW3plyS+Ceb8Vpd4Tp7gHekluktMwNkrv6NRgeDZ
ZFWPdQEmeDrUtbhDiaDhU3z3s/MmGHbRyg9QJ8io9x5s4ZpiuGHW230mBPUR
9KQDFqb4x+r50lJT5n1DiZaDjSmMw6qOt5kRLMsVebU6mKIv97lAhU/A2qrf
3Bpsit7NV+oTBQTh2mPFD0pMYamTxVcWEXgkZPo95JjhgU2yeqcTQYLQfvch
rhm+WoVM3HEmuDIil7fSwgyVYjWvSheCGWuj2h4uNkNObFtJkivBP5Y+aPM3
Q9zkXxPangTCAaM/2wvN0Hu6ZY2qD4GGffPTR3/y4FYXlKO4mWDixmw3a10e
AuSSy94w7tDf2l5ozMPdZo/I6hCCpEnq97eAh0BxKX9tGGH+HXxTyY8H9+CE
q8e2EdwSKBcsP8ND3cnu6GdRBN667v6Nc81hd/WLOHk/gXn2hZcG5uYI6V43
R5hAoCgnsyZTaI7EnJL4IcYNvedcfR3MwXplFe2QRGBwYmLJrxBzqJbd8WWl
EoyTE/rWlebIdZ/9ZsEhgmxW38dKKz62Pk5R1MkjOFWiE5EKPpwLi5sqGZc6
b/i57m8+Xtys7LY9RtBY2D+V9uAjRK6R55FP8En0Xi8ykg/OGXHW3hMEdvHD
ftZVfMT1VNhcLyT4ITvR2cizgIrshYqbJQR+ckp1HVxLFLXYnnKrJhDXaDTu
t7AE/fbnggbGhlvNxBY2lqgq7txrdINgrNtVkuNgid9rYl6xagjSruf3rA62
xPfCJ6bnbxJUbTKQ6TtvCVFGRtabOoKp7YsX/PuXFbwiZFeqNTH7PRHTSKsL
EHhS7mN+G8Hd6fp6IdoCDGzS7/vOuDPmcVrTXAHqRzLTvdqZfry4bpFCAXpy
xr6pPCKwnvnyXdcaAZ5Sy2zTOph+Dy5UzD8pQJahwdvAJwQPY6d4anHm4fgu
7+yh5wQf/HI+ck2t8XJag6qgnyB6W0NHivZ8rDEXbRKOM31dzHt1y9YWixQd
3+hMphEB7xkK5wFJmPxRCU2jwDFMadXJBTCeWqFqpEnDOvy5RmqpCMtGJTbL
DGmw6iQHXxcvxB8s8eB1Po35c9TYelWLMLAlXkvFlkbNsgRuTP1iOCREl6Uu
peGfH3Xu8/UlIEdOPO5ZQSNW9g7fpWkpuhLuXrRzoyE+lKXReftvaEfddrq7
mobTQNKZwOt2eMpNRaMfjRXuj+b3Ny7DFoOs8LeBTN7BIl5i7XJc0T29zzmE
BjurVUi12OPn8H7Xt9tofFZQfXnxsQNuXJuloBZF43vRwMtNrStgzLvmVrOL
xg5X9r/kf46oFW+0Soqjoaziezk0aCVaDDxL2xNoyPXbVa/uW4mCPf47XqTQ
uCLqvlcX5IQooVoXOcjMm1ok8vqdsOHQ55ndmTRGSwSOs0OcEVRKZbZn00i+
JtM084MzRA5JB/zyaNw636WQF+CCVXPK1jUep1HKWe2eOeSC+ZHO7StO0aiw
OO1yLGgVzPJCb8UV0Qhpy/JUG1kF+aOGZT1nabQ65RpqRrpCJ6i/lH2Bhmi9
z0WrL67Aq6bc8TIaYbKPBE1RbkiMFXnLX2LymiuE+4+5Qf1Z86SWyzRyl6+M
TtnqjqBp4o4tVTSshkRpnHF3nG3snWtTTeOD5rflj8I9UD5ypqC5hobXKy96
9LsHLs5X19l5i4bNoddC+R8eUP/kFSG1lm2wvwrjAb88sdSD+bsuWzC+kKwa
FM04xuOkUyTjR89mlMcwLpD0HRhnPOXwuNUexm9qw+S///TAR8ds+32M7wV/
M5r6fw+4KD04LnWZepyrOmOdg3LDUkdEHS6yZqz6cFvGfsaT+FWiGMZCd4fO
BMYGpd93/2T8YufXtcmMFb33FU//5QHPBXqXpB5RmP5gNuPl97xZKYxrAv6c
bcM4fWZDkdT22gtqdjM+VZM6kMrYpL25N51x2/7aeWmM6b3OUwoY71AeTpW6
u3udZx1j0wAn7gHGDQc+xEoYL+LF7ZG6WLj9XI90vq7yodQpgz8lw4yfTHut
mc44NC9h7Jc0nxq1Ter/ABS/5wc=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 4.6000000000000005`},
  PlotRange->{{1, 100}, {4.593341349852638, 5.436090276757192}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.445373317455552*^9, 3.4453733422106543`*^9}, {
   3.445373413732071*^9, 3.4453734220438566`*^9}, 3.4453771380531073`*^9, 
   3.4453773074633293`*^9, 3.4453775015986104`*^9, 3.445377543878563*^9, 
   3.4453786411845274`*^9, 3.445378892631076*^9, 3.4453799557786045`*^9, 
   3.445453018463922*^9, {3.445453119977867*^9, 3.445453128259611*^9}, 
   3.445453467510664*^9, 3.4462463832021627`*^9, 3.446246533232935*^9, 
   3.4470117456617284`*^9, 3.447257782627662*^9, 3.447471521686071*^9, 
   3.447471923525874*^9, 3.4474726806694937`*^9, 3.447474031915542*^9, 
   3.4474745626781564`*^9, 3.447476242430022*^9, 3.4475564306863213`*^9, 
   3.44755983822214*^9, 3.447644739053575*^9, 3.4477290214863195`*^9, 
   3.447729092958379*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gMaxRadGrowth", "[", "cType_", "]"}], ":=", "5.5", " ", 
  RowBox[{"(*", 
   RowBox[{"r", "/.", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"radFunction", "[", 
         RowBox[{"cType", ",", "r"}], "]"}], " ", "\[Equal]", " ", "0.01"}], 
       ",", "r"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.423425626819612*^9, 3.423425648049292*^9}, {
  3.4453720409554925`*^9, 3.445372046473316*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gMaxRadGrowth", "[", "nrnID", "]"}]], "Input",
 CellChangeTimes->{{3.423421002835084*^9, 3.4234210033057423`*^9}}],

Cell[BoxData["5.5`"], "Output",
 CellChangeTimes->{
  3.423421003686274*^9, {3.423421035761116*^9, 3.423421045374556*^9}, 
   3.42342616654417*^9, 3.423426248498746*^9, 3.4234291723677235`*^9, 
   3.4234292461809173`*^9, 3.4234307107985153`*^9, 3.4234520082532673`*^9, 
   3.423453431332793*^9, 3.423489318546873*^9, 3.423491443047015*^9, 
   3.423506950076849*^9, 3.423507083243021*^9, 3.423507379597337*^9, 
   3.423510419016575*^9, 3.4235121590191727`*^9, 3.423513507674651*^9, 
   3.423516600758915*^9, 3.423518266017017*^9, 3.423538897775951*^9, 
   3.423539695773259*^9, 3.423539771498653*^9, 3.4235398429606133`*^9, 
   3.423574505945668*^9, 3.4235766485982943`*^9, 3.423576980347547*^9, 
   3.4235787282361517`*^9, 3.423582815104642*^9, 3.423589468447698*^9, 
   3.423590923681693*^9, 3.423591205379363*^9, 3.423591537768756*^9, 
   3.423592474498234*^9, 3.423592642213553*^9, 3.4235948405490913`*^9, 
   3.423598439663259*^9, 3.42359936534418*^9, 3.423604811088417*^9, 
   3.423605211438552*^9, 3.4236067615477877`*^9, 3.423606834483732*^9, 
   3.423606909534628*^9, 3.4236071300556707`*^9, 3.423621386550468*^9, 
   3.4236215490980787`*^9, 3.423621804382146*^9, 3.4236218879399776`*^9, 
   3.423624423750852*^9, 3.4238867523451757`*^9, 3.423925365431166*^9, 
   3.423945555247392*^9, 3.423969325108674*^9, 3.423969928682496*^9, 
   3.4239703127494383`*^9, 3.423970506360114*^9, 3.423971809029087*^9, 
   3.4239720595264473`*^9, 3.423972114604513*^9, 3.423972159149909*^9, 
   3.423972220290062*^9, 3.424010828913319*^9, 3.424010898974566*^9, 
   3.424010971577324*^9, 3.424011039113036*^9, 3.4240110964740763`*^9, 
   3.424011156644629*^9, 3.424023469925758*^9, 3.4240565326297894`*^9, 
   3.4241290075994716`*^9, 3.4244666260514917`*^9, {3.424468217306134*^9, 
   3.424468245996244*^9}, 3.424471228533841*^9, 3.424472527163662*^9, 
   3.4244726035477333`*^9, 3.42447271159282*^9, {3.4244727624845552`*^9, 
   3.424472830328964*^9}, 3.424473443285489*^9, 3.424473510634701*^9, 
   3.424473997454693*^9, 3.4244740430055513`*^9, {3.424474092441143*^9, 
   3.424474110337368*^9}, {3.424474142812025*^9, 3.424474167123273*^9}, 
   3.4246289656986494`*^9, 3.424632272872219*^9, 3.427215362452063*^9, 
   3.427217472662227*^9, 3.427340098360044*^9, 3.427340152271299*^9, 
   3.427340200909651*^9, 3.427340245997724*^9, 3.4273402837585163`*^9, 
   3.4273403343573513`*^9, 3.4276856680491858`*^9, 3.4276857051510553`*^9, 
   3.4277240517069063`*^9, 3.42772419216327*^9, 3.427724228333838*^9, 
   3.4277265206185503`*^9, 3.427741123263672*^9, 3.4277420275378857`*^9, 
   3.427748204914122*^9, 3.4277580829513035`*^9, 3.427768112012359*^9, 
   3.4277708137394896`*^9, 3.427773625089877*^9, 3.427814438880581*^9, 
   3.427814618882231*^9, 3.42789773690871*^9, 3.427898087869368*^9, 
   3.427898262463458*^9, 3.42789868753773*^9, 3.427899996177264*^9, 
   3.427900135902606*^9, 3.427900275367584*^9, 3.427901503384404*^9, 
   3.427901594812224*^9, 3.4279017998889303`*^9, 3.427903197803274*^9, 
   3.427903864615506*^9, 3.427903950565668*^9, 3.4279040656365423`*^9, 
   3.4279042701124077`*^9, 3.42790860184836*^9, 3.427908678966174*^9, 
   3.427908944186964*^9, 3.4279090420638*^9, 3.427909359868104*^9, 
   3.427913634364032*^9, 3.4279898245479975`*^9, 3.427989928002631*^9, 
   3.427990280285137*^9, 3.4279909557995353`*^9, 3.4279961752550173`*^9, {
   3.4279962194052553`*^9, 3.4279963184817677`*^9}, 3.4279998697019672`*^9, 
   3.4280006264062567`*^9, {3.4280006880295353`*^9, 3.428000794347816*^9}, 
   3.428032212494481*^9, 3.428072101222934*^9, 3.428073813526808*^9, 
   3.4280756840018115`*^9, 3.428076276271721*^9, 3.428076395250107*^9, {
   3.428076425531678*^9, 3.4280764738056726`*^9}, 3.4280765111670523`*^9, 
   3.428084144575491*^9, 3.42808556712614*^9, 3.428087017939453*^9, 
   3.4280878499885197`*^9, 3.4280920762291*^9, 3.428097418377652*^9, 
   3.42815447950616*^9, 3.4281551315377283`*^9, 3.428293405261146*^9, 
   3.42829359140933*^9, {3.428293687048512*^9, 3.428293792943294*^9}, 
   3.428418692270217*^9, 3.428450586388872*^9, 3.4284996713690357`*^9, 
   3.428549431977086*^9, 3.4285990952056684`*^9, 3.428625182372326*^9, {
   3.428625262137267*^9, 3.428625397528058*^9}, 3.4287030059019327`*^9, 
   3.4294513033016777`*^9, 3.429451368566697*^9, {3.429451408918356*^9, 
   3.429451431722554*^9}, 3.4294567177884407`*^9, 3.429796525291202*^9, 
   3.429796589971628*^9, 3.4298964362779484`*^9, 3.4298967815206127`*^9, 
   3.429969424915761*^9, 3.430073759616968*^9, 3.4306010168390913`*^9, 
   3.430664616486762*^9, {3.430665231096012*^9, 3.430665247358748*^9}, 
   3.430665785200674*^9, 3.430666132496208*^9, 3.430667150529462*^9, 
   3.43067033054526*^9, 3.43067074257129*^9, 3.4306804976516185`*^9, 
   3.43069146987125*^9, 3.4307053470621567`*^9, 3.4307054068056803`*^9, 
   3.4307068314176884`*^9, 3.4307085846287527`*^9, 3.430711851458899*^9, 
   3.430712106250648*^9, 3.430712181963737*^9, 3.430712220124337*^9, {
   3.4307122703445053`*^9, 3.430712325022883*^9}, 3.4311287242753267`*^9, {
   3.431128852286579*^9, 3.4311288744943953`*^9}, {3.43112906644342*^9, 
   3.431129091120722*^9}, 3.431129151324204*^9, 3.431129322418928*^9, 
   3.431132580687779*^9, 3.431132661781527*^9, 3.431133780519706*^9, 
   3.43113391956186*^9, 3.431134244589348*^9, 3.431134287031207*^9, 
   3.431134321491338*^9, 3.431135171579468*^9, 3.431135237877092*^9, 
   3.431135322752014*^9, 3.431136494380597*^9, 3.431136532761676*^9, 
   3.431146263993799*^9, 3.431146553852674*^9, 3.4311472511852503`*^9, 
   3.4311473016333313`*^9, 3.4312860911214094`*^9, 3.431287721310484*^9, 
   3.4312925807441797`*^9, 3.4312932338873014`*^9, 3.43129420661722*^9, 
   3.432041562453022*^9, 3.4327566587345037`*^9, 3.4327567780312862`*^9, 
   3.4327569302440863`*^9, 3.432757373583894*^9, 3.432771152135186*^9, 
   3.4328195840050106`*^9, 3.4328196662399783`*^9, 3.4328277653028145`*^9, 
   3.4328291256145887`*^9, 3.4328293765754423`*^9, 3.4328428101661763`*^9, 
   3.4328429104764147`*^9, 3.4328533914993324`*^9, 3.4328566622219424`*^9, 
   3.432918688010826*^9, 3.4330164144295206`*^9, 3.433018021175821*^9, 
   3.433018187498347*^9, 3.433021194251917*^9, 3.433021957539025*^9, 
   3.433042813282568*^9, 3.433047133862924*^9, 3.433047744126098*^9, 
   3.4330809478716507`*^9, 3.433081774507323*^9, 3.4330947617340207`*^9, 
   3.433095227735511*^9, 3.4330967001840568`*^9, 3.434503731656397*^9, 
   3.4345042970768785`*^9, 3.434504840466561*^9, 3.4347577379941864`*^9, 
   3.4347794678154793`*^9, 3.434780344181938*^9, 3.4347804962229815`*^9, 
   3.4347806920848513`*^9, 3.434806889380947*^9, 3.4348073557983675`*^9, 
   3.434807428309017*^9, 3.4348074822338686`*^9, 3.434809153349249*^9, 
   3.434809443171282*^9, {3.434809510576885*^9, 3.4348096128624763`*^9}, 
   3.4348110190902433`*^9, 3.4348376386827602`*^9, 3.4352879331152334`*^9, 
   3.4352882402715883`*^9, 3.4352882938559666`*^9, {3.435289266025407*^9, 
   3.4352892878056393`*^9}, 3.435724576664298*^9, 3.4357247979414463`*^9, 
   3.445377138213335*^9, 3.4453773075134*^9, 3.445377501638667*^9, 
   3.445377543908605*^9, 3.4453786413447547`*^9, 3.4453788927011747`*^9, 
   3.4453799558487034`*^9, 3.4454534675707493`*^9, 3.4462463832522297`*^9, 
   3.4462465332930155`*^9, 3.447011745681757*^9, 3.447257782647691*^9, 
   3.4474715217060995`*^9, 3.4474719235459023`*^9, 3.4474726807596216`*^9, 
   3.447474032045727*^9, 3.447474562808341*^9, 3.447476242480093*^9, 
   3.447556430716365*^9, 3.4475598382421684`*^9, 3.4476447391336894`*^9, 
   3.4477290215964766`*^9, 3.4477290930284786`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"angleChildRange", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"2", "Pi"}]}], "}"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "Pi"}], "/", "4"}], ",", 
      RowBox[{"Pi", "/", "4"}]}], "}"}], ";"}], "*)"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"distCells", "[", 
    RowBox[{"curPosx_", ",", "curPosy_", ",", "nbrPosx_", ",", "nbrPosy_"}], 
    "]"}], ":=", " ", 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}]}]}], 
  ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gOECellsDistance", " ", ":=", " ", 
   RowBox[{"2", 
    RowBox[{"Max", "[", 
     RowBox[{
      RowBox[{"gRadLimit", "[", "stemID", "]"}], ",", 
      RowBox[{"gRadLimit", "[", "nrnID", "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gOEPlaneDistance", " ", ":=", " ", 
    RowBox[{"0.1", "gOECellsDistance"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"4", 
    RowBox[{"gRadLimit", "[", "stemID", "]"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.417232612738862*^9, 3.4172326198988004`*^9}, 
   3.41729610883482*^9, {3.4204932924230194`*^9, 3.420493294916506*^9}, 
   3.4205537578963356`*^9, {3.423429113926019*^9, 3.423429133373207*^9}, {
   3.423429202970507*^9, 3.423429204122117*^9}, {3.431132497675132*^9, 
   3.431132508195182*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**"}], "*", "Spring", " ", 
   RowBox[{
   "potentials", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}]}], 
  "*****)"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "simple"}], " ", "exponential", " ", "bouncing", " ", "and", " ", 
   "attraction", " ", "potential"}], "******************)"}]], "Input",
 CellChangeTimes->{{3.4209524078102865`*^9, 3.4209524234621687`*^9}, {
  3.430600736697441*^9, 3.430600740913335*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "DO", " ", "NOT", " ", "CHANGE", " ", "gBounceMult", " ", "this", " ", "is",
    " ", "intended", " ", "to", " ", "fix", " ", "the", " ", "location", " ", 
   "of", " ", "stroma", " ", "cell"}], "*)"}]], "Input",
 CellChangeTimes->{{3.43291112174286*^9, 3.432911146096908*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"stemID", ",", "stemID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"stemID", ",", "prgID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gBounceMult", "[", 
     RowBox[{"stemID", ",", "nrnID"}], "]"}], " ", "=", " ", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"prgID", ",", "stemID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"prgID", ",", "prgID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gBounceMult", "[", 
     RowBox[{"prgID", ",", "nrnID"}], "]"}], " ", "=", " ", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"nrnID", ",", "stemID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"nrnID", ",", "prgID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"nrnID", ",", "nrnID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.430660832106036*^9, 3.430660847117022*^9}, {
  3.4306608923602743`*^9, 3.4306609468164062`*^9}, {3.43291109300268*^9, 
  3.432911116856028*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"stromaID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"stromaID", ",", "stemID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"stromaID", ",", "prgID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gBounceMult", "[", 
     RowBox[{"stromaID", ",", "nrnID"}], "]"}], " ", "=", " ", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"stemID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"prgID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBounceMult", "[", 
    RowBox[{"nrnID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.4327710265796547`*^9, 3.4327710681978383`*^9}, {
  3.432910594796166*^9, 3.4329105986215143`*^9}, {3.432911103577464*^9, 
  3.432911107803372*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SubscriptBox["\[PartialD]", "curPosx"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"ebConst1", " ", 
       RowBox[{
        RowBox[{"distCells", "[", 
         RowBox[{"curPosx", ",", "curPosy", ",", "nbrPosx", ",", "nbrPosy"}], 
         "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"curRad", "+", "nbrRad"}], ")"}]}]}], "]"}], "ebConst2"}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.4209865532664075`*^9, 3.4209865729138756`*^9}, {
   3.4209866345099897`*^9, 3.420986654417822*^9}, {3.4209867238749256`*^9, 
   3.4209867483491416`*^9}, {3.420987493130378*^9, 3.4209875006208496`*^9}, 
   3.4209876302721076`*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"ebConst1", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}]]}], 
      RowBox[{"curRad", "+", "nbrRad"}]]], " ", "ebConst1", " ", "ebConst2", 
    " ", 
    RowBox[{"(", 
     RowBox[{"curPosx", "-", "nbrPosx"}], ")"}]}], 
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}]], " ", 
    RowBox[{"(", 
     RowBox[{"curRad", "+", "nbrRad"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.4209865590645137`*^9, 3.4209865734045615`*^9}, 
   3.4209866547883396`*^9, {3.4209875542658477`*^9, 3.4209875838972735`*^9}, 
   3.4209876307928357`*^9, 3.4209911724241877`*^9, 3.4209940737203236`*^9, 
   3.4209953213946257`*^9, 3.420995765695778*^9, 3.421003444928937*^9, 
   3.421004305702335*^9, 3.421005002927085*^9, 3.421010384791161*^9, 
   3.421010525407749*^9, 3.421019535384081*^9, 3.421025989727529*^9, 
   3.421035179126066*^9, 3.4210383368907557`*^9, 3.421038647454938*^9, 
   3.421076645765463*^9, 3.4210769074813533`*^9, 3.421084573378605*^9, 
   3.4210915393172855`*^9, 3.421097249800785*^9, 3.4211012322784595`*^9, 
   3.4211017383259354`*^9, 3.4211028445424733`*^9, 3.4211031125471554`*^9, 
   3.4211040576083913`*^9, 3.4211048641259375`*^9, 3.421106446938777*^9, 
   3.421109752540149*^9, 3.4211175035664153`*^9, 3.4211217815972853`*^9, 
   3.421122942009591*^9, 3.4211623706844378`*^9, 3.4211634362341223`*^9, 
   3.4211663989461203`*^9, 3.421172219553578*^9, 3.4211738805457163`*^9, 
   3.421174575297008*^9, 3.421174855228364*^9, 3.421178262692144*^9, 
   3.421179356120804*^9, 3.4211806379128036`*^9, 3.421180879901114*^9, 
   3.421184546296892*^9, 3.421185365572274*^9, 3.421205018689622*^9, 
   3.421210367777876*^9, 3.4212521250425544`*^9, 3.4212543063421044`*^9, 
   3.4212609160672293`*^9, 3.4212635585114794`*^9, 3.421266488868243*^9, 
   3.4212733759939423`*^9, 3.421274925459484*^9, 3.421275125494565*^9, 
   3.4212752134882793`*^9, 3.4212756135698967`*^9, 3.4212757998518343`*^9, 
   3.421275851712925*^9, 3.42128196287982*^9, 3.42128229314375*^9, 
   3.421282386712839*^9, 3.421294990445822*^9, 3.42129610886012*^9, 
   3.421296185485297*^9, 3.421297672353244*^9, 3.421297886147868*^9, 
   3.4212979261117973`*^9, 3.4212990215700417`*^9, 3.421299123117161*^9, 
   3.42129917641606*^9, 3.4212992522621613`*^9, 3.421328449218161*^9, 
   3.421329179862485*^9, 3.421329260934053*^9, 3.4213337367033243`*^9, 
   3.4213343451362123`*^9, 3.42133443419239*^9, 3.421337573438739*^9, 
   3.4213378464172783`*^9, 3.421337927342587*^9, 3.4213440377671423`*^9, 
   3.4213441807525043`*^9, 3.4213619150452747`*^9, 3.421362035938724*^9, 
   3.421362090374444*^9, 3.4213621415553627`*^9, 3.421446852155409*^9, 
   3.4214492820747757`*^9, 3.42144948534443*^9, 3.4214508131697807`*^9, 
   3.4214511196682787`*^9, 3.4214528571573625`*^9, 3.4214540832214527`*^9, 
   3.421458389175717*^9, 3.4214585113465166`*^9, 3.421537978615355*^9, 
   3.4215380777428007`*^9, 3.421538120617326*^9, 3.421538162262312*^9, 
   3.4215383464150257`*^9, 3.421550041507354*^9, 3.421556052545992*^9, 
   3.421556165246786*^9, 3.4215562788768578`*^9, 3.421589307752654*^9, 
   3.4215946837385125`*^9, 3.4215947564601803`*^9, 3.4216269432565823`*^9, 
   3.4221320410389643`*^9, 3.4227586773563986`*^9, 3.4228122656053743`*^9, 
   3.422812590306082*^9, 3.422819589962098*^9, 3.4228196302480183`*^9, 
   3.422820048849066*^9, 3.422838235222105*^9, 3.422844928743869*^9, 
   3.4228474655951977`*^9, 3.422978331841233*^9, 3.423368456516676*^9, 
   3.423426166604254*^9, 3.4234262485588303`*^9, 3.423429172427807*^9, 
   3.4234292462810574`*^9, 3.423430710858599*^9, 3.4234520082933235`*^9, 
   3.4234534313728495`*^9, 3.423489318596943*^9, 3.423491443097085*^9, 
   3.423506950126919*^9, 3.423507083343161*^9, 3.423507379647407*^9, 
   3.4235104190666447`*^9, 3.4235121591393414`*^9, 3.423513507744749*^9, 
   3.4235166008089848`*^9, 3.423518266117157*^9, 3.4235388978685627`*^9, 
   3.423539695866188*^9, 3.423539771594056*^9, 3.423539843071198*^9, 
   3.423574506024226*^9, 3.4235766488935547`*^9, 3.4235769804285727`*^9, 
   3.423578728317114*^9, 3.4235828151826067`*^9, 3.423589468527369*^9, 
   3.42359092505632*^9, 3.42359120599035*^9, 3.4235915378630943`*^9, 
   3.423592474939527*^9, 3.4235926427378693`*^9, 3.4235948406274843`*^9, 
   3.423598439749504*^9, 3.4235993658322763`*^9, 3.4236048111714497`*^9, 
   3.423605211832795*^9, 3.4236067617589417`*^9, 3.42360683502217*^9, 
   3.423606909619067*^9, 3.423607130243609*^9, 3.423621386765905*^9, 
   3.4236215491766768`*^9, 3.423621804458769*^9, 3.423621888020258*^9, 
   3.42362442420221*^9, 3.4238867523852315`*^9, 3.4239253654812365`*^9, 
   3.4239455552974625`*^9, 3.423969325158744*^9, 3.4239699288927903`*^9, 
   3.423970312799508*^9, 3.423970506460254*^9, 3.423971809239666*^9, 
   3.423972060164662*^9, 3.423972114689646*^9, 3.4239721592639647`*^9, 
   3.423972220376397*^9, 3.424010829431183*^9, 3.424010899460175*^9, 
   3.424010971670868*^9, 3.424011039197871*^9, 3.424011096632276*^9, 
   3.424011157166051*^9, 3.424023470912958*^9, 3.4240565328100414`*^9, 
   3.4241290077997513`*^9, 3.424466626101562*^9, {3.424468217376232*^9, 
   3.424468246056328*^9}, 3.424471228611528*^9, 3.424472528623426*^9, 
   3.424472603609488*^9, 3.424472711684434*^9, {3.424472762553172*^9, 
   3.424472830442429*^9}, 3.424473443502047*^9, 3.424473510712912*^9, 
   3.424473997515236*^9, 3.4244740430593224`*^9, {3.424474092505849*^9, 
   3.424474110411043*^9}, {3.4244741428948317`*^9, 3.4244741672418137`*^9}, 
   3.4246289658488593`*^9, 3.4246322729323034`*^9, 3.4272153625221615`*^9, 
   3.4272174727623672`*^9, 3.427340098417035*^9, 3.4273401523299437`*^9, 
   3.427340200970129*^9, 3.4273402460612793`*^9, 3.427340283826777*^9, 
   3.4273403344408817`*^9, 3.427685668389662*^9, 3.4276857052612095`*^9, 
   3.427724051756976*^9, 3.4277241922233543`*^9, 3.4277242283839083`*^9, 
   3.427726520688648*^9, 3.427741124194974*^9, 3.427742027587956*^9, 
   3.427748204974206*^9, 3.4277580830013733`*^9, 3.427768112112499*^9, 
   3.4277708138095875`*^9, 3.4277736251199193`*^9, 3.427814438920637*^9, 
   3.4278146189122734`*^9, 3.4278977369487658`*^9, 3.427898087919438*^9, 
   3.427898262513528*^9, 3.427898687597814*^9, 3.4278999962573757`*^9, 
   3.427900135972704*^9, 3.427900275427668*^9, 3.427901504295678*^9, 
   3.427901594892336*^9, 3.427901799939*^9, 3.427903197853344*^9, 
   3.427903864655562*^9, 3.427903950615738*^9, 3.427904065716654*^9, 
   3.427904270222562*^9, 3.427908601938486*^9, 3.4279086791364117`*^9, 
   3.427908944267076*^9, 3.42790904231415*^9, 3.427909359948216*^9, 
   3.427913634564312*^9, 3.427989824608081*^9, 3.427989928162855*^9, 
   3.4279902803452215`*^9, 3.4279909558295774`*^9, 3.427996175308329*^9, {
   3.427996219453079*^9, 3.4279963185746517`*^9}, 3.4279998708855*^9, 
   3.42800062649478*^9, {3.428000688071879*^9, 3.4280007944446163`*^9}, 
   3.428032212704775*^9, 3.4280721012629895`*^9, 3.4280738135969057`*^9, 
   3.4280756840418673`*^9, 3.428076276380007*^9, 3.428076395306179*^9, {
   3.4280764255812273`*^9, 3.4280764738819103`*^9}, 3.4280765125757523`*^9, 
   3.428084144650303*^9, 3.428085567193365*^9, 3.428087018015541*^9, 
   3.428087850064413*^9, 3.4280920763592825`*^9, 3.4280974185178485`*^9, 
   3.428154479596286*^9, 3.428155131587798*^9, 3.428293405362543*^9, 
   3.428293591453326*^9, {3.428293687092834*^9, 3.428293793062687*^9}, 
   3.4284186925005393`*^9, 3.428450586468984*^9, 3.4284996714591618`*^9, 
   3.4285494320171423`*^9, 3.4285990952457247`*^9, 3.428625182467381*^9, {
   3.428625262236465*^9, 3.428625397967155*^9}, 3.428703006327467*^9, 
   3.429451303367766*^9, 3.429451368623588*^9, {3.4294514089740667`*^9, 
   3.429451431780163*^9}, 3.4294567178459806`*^9, 3.429796525331258*^9, 
   3.429796590061754*^9, 3.42989643630799*^9, 3.4298967815606685`*^9, 
   3.4299694249558167`*^9, 3.430073759657024*^9, 3.4306010170093293`*^9, 
   3.430664616636972*^9, {3.4306652311961517`*^9, 3.430665247549014*^9}, 
   3.4306657853909397`*^9, 3.430666132536264*^9, 3.430667150589546*^9, 
   3.430670330725512*^9, 3.43067074262136*^9, 3.430680497691674*^9, 
   3.4306914699213204`*^9, 3.4307053471122265`*^9, 3.4307054068457365`*^9, 
   3.4307068314577446`*^9, 3.4307085846688085`*^9, 3.4307118515631933`*^9, 
   3.4307121063144217`*^9, 3.430712182035091*^9, 3.430712220529607*^9, {
   3.4307122704279537`*^9, 3.430712325161524*^9}, 3.431128724363804*^9, {
   3.431128852657982*^9, 3.431128874580202*^9}, {3.431129066533115*^9, 
   3.4311290912171707`*^9}, 3.431129151431958*^9, 3.4311293225246572`*^9, 
   3.4311325809145613`*^9, 3.4311326621004763`*^9, 3.431133781016466*^9, 
   3.431133919778857*^9, 3.4311342446698847`*^9, 3.4311342871449747`*^9, 
   3.4311343215754967`*^9, 3.431135171853015*^9, 3.4311352381901197`*^9, 
   3.431135322843856*^9, 3.431136494495657*^9, 3.43113653286382*^9, 
   3.431146264086063*^9, 3.43114655393961*^9, 3.431147251265481*^9, 
   3.431147301928981*^9, 3.4312860912515917`*^9, 3.431287721380582*^9, 
   3.4312925807942495`*^9, 3.4312932374422717`*^9, 3.4312942066672897`*^9, 
   3.432041562552731*^9, 3.43275665877456*^9, 3.4327567781214123`*^9, 
   3.432756930284142*^9, 3.43275737677836*^9, 3.4327711521752424`*^9, 
   3.4328195840450664`*^9, 3.4328196662900486`*^9, 3.4328277654830666`*^9, 
   3.4328291257848263`*^9, 3.4328293767256527`*^9, 3.432842810206232*^9, 
   3.4328429106166105`*^9, 3.4328533915393887`*^9, 3.4328566623621387`*^9, 
   3.432918688080924*^9, 3.433016414599759*^9, 3.433018021275961*^9, 
   3.4330181876285286`*^9, 3.4330211943120008`*^9, 3.433021957789375*^9, 
   3.433042813532918*^9, 3.433047133923008*^9, 3.433047744186182*^9, 
   3.433080947931735*^9, 3.4330817745674067`*^9, 3.433094761914273*^9, 
   3.4330952278757067`*^9, 3.4330967002441406`*^9, 3.434503731726495*^9, 
   3.434504297116935*^9, 3.4345048405066166`*^9, 3.434757738234517*^9, 
   3.4347794678755627`*^9, 3.4347803470559273`*^9, 3.434780498385984*^9, 
   3.434780692154949*^9, 3.434806889591239*^9, 3.4348073558684645`*^9, 
   3.4348074284592257`*^9, 3.4348074822939525`*^9, 3.434809153527266*^9, 
   3.434809443404752*^9, {3.434809510694384*^9, 3.434809613041067*^9}, 
   3.434811022141716*^9, 3.434837638901059*^9, 3.435287933265442*^9, 
   3.435288240331671*^9, 3.43528829391605*^9, {3.4352892662256846`*^9, 
   3.4352892878957644`*^9}, 3.435724576844548*^9, 3.4357247980115433`*^9, 
   3.4453771383435197`*^9, 3.445377307713684*^9, 3.445377501728795*^9, 
   3.445377544098875*^9, 3.4453786414649253`*^9, 3.4453788929014587`*^9, 
   3.445379956038974*^9, 3.4454534676708913`*^9, 3.4462463833523636`*^9, 
   3.4462465334832697`*^9, 3.4470117457518563`*^9, 3.4472577826977615`*^9, 
   3.4474715217461557`*^9, 3.4474719235959735`*^9, 3.4474726809599056`*^9, 
   3.4474740321759114`*^9, 3.4474745629285116`*^9, 3.4474762425802345`*^9, 
   3.44755643077645*^9, 3.44755983829224*^9, 3.447644739243847*^9, 
   3.447729021706634*^9, 3.4477290932187505`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   SubscriptBox["\[PartialD]", "curPosy"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"ebConst1", " ", 
       RowBox[{
        RowBox[{"distCells", "[", 
         RowBox[{"curPosx", ",", "curPosy", ",", "nbrPosx", ",", "nbrPosy"}], 
         "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"curRad", "+", "nbrRad"}], ")"}]}]}], "]"}], "ebConst2"}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.4209863642221155`*^9, 3.4209863801744175`*^9}, {
   3.4209864180874214`*^9, 3.4209864248769135`*^9}, {3.4209864795533533`*^9, 
   3.4209865210513697`*^9}, {3.4209866670554895`*^9, 
   3.4209866708808374`*^9}, {3.4209875972158937`*^9, 3.420987600490472*^9}, 
   3.420987634167554*^9}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"ebConst1", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}]]}], 
      RowBox[{"curRad", "+", "nbrRad"}]]], " ", "ebConst1", " ", "ebConst2", 
    " ", 
    RowBox[{"(", 
     RowBox[{"curPosy", "-", "nbrPosy"}], ")"}]}], 
   RowBox[{
    SqrtBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}]], " ", 
    RowBox[{"(", 
     RowBox[{"curRad", "+", "nbrRad"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{
  3.4209863810256076`*^9, {3.420986521822448*^9, 3.4209865369936576`*^9}, 
   3.4209866807145853`*^9, 3.4209876013216333`*^9, {3.4209876345380716`*^9, 
   3.4209876505104017`*^9}, 3.4209911724742575`*^9, 3.4209940737403517`*^9, 
   3.4209953214246674`*^9, 3.4209957657258196`*^9, 3.421003444948965*^9, 
   3.421004305722363*^9, 3.4210050029771547`*^9, 3.4210103848111887`*^9, 
   3.4210105254277773`*^9, 3.421019535424137*^9, 3.4210259897475567`*^9, 
   3.42103517913608*^9, 3.421038336910784*^9, 3.421038647464952*^9, 
   3.421076645785491*^9, 3.421076907541437*^9, 3.4210845733886194`*^9, 
   3.421091539327299*^9, 3.421097249820813*^9, 3.421101232298487*^9, 
   3.421101738335949*^9, 3.421102844772795*^9, 3.4211031125671835`*^9, 
   3.4211040576184053`*^9, 3.421104864135951*^9, 3.4211064469487915`*^9, 
   3.421109752560177*^9, 3.4211175035764294`*^9, 3.4211217816173134`*^9, 
   3.421122942019605*^9, 3.4211623706944523`*^9, 3.421163436244136*^9, 
   3.421166398966148*^9, 3.421172219563592*^9, 3.42117388055573*^9, 
   3.421174575307022*^9, 3.421174855238378*^9, 3.4211782627321997`*^9, 
   3.421179356130818*^9, 3.421180637922818*^9, 3.421180879921142*^9, 
   3.4211845463169203`*^9, 3.4211853655923023`*^9, 3.42120501870965*^9, 
   3.421210367797904*^9, 3.4212521250525684`*^9, 3.4212543063521185`*^9, 
   3.421260916077243*^9, 3.4212635585315075`*^9, 3.4212664888782573`*^9, 
   3.421273376123053*^9, 3.421274925870495*^9, 3.421275125527789*^9, 
   3.421275213551901*^9, 3.421275613612558*^9, 3.421275799889114*^9, 
   3.42127585176712*^9, 3.421281962913583*^9, 3.421282293179916*^9, 
   3.421282386758045*^9, 3.421294990499304*^9, 3.4212961088839493`*^9, 
   3.421296185513303*^9, 3.421297672381682*^9, 3.421297886178087*^9, 
   3.421297926142241*^9, 3.42129902160301*^9, 3.421299123150481*^9, 
   3.421299176445306*^9, 3.421299252311302*^9, 3.421328449249221*^9, 
   3.421329179897769*^9, 3.4213292610354643`*^9, 3.421333736729679*^9, 
   3.4213343451630497`*^9, 3.42133443422311*^9, 3.421337573463368*^9, 
   3.4213378464451237`*^9, 3.421337927381134*^9, 3.421344037796534*^9, 
   3.4213441807811327`*^9, 3.42136191507451*^9, 3.421362035965456*^9, 
   3.421362090400177*^9, 3.421362141583583*^9, 3.421446852204546*^9, 
   3.421449282103907*^9, 3.421449485369584*^9, 3.4214508131898084`*^9, 
   3.4214511196883063`*^9, 3.4214528571874046`*^9, 3.4214540832414804`*^9, 
   3.4214583891957445`*^9, 3.4214585113665447`*^9, 3.421537978643528*^9, 
   3.4215380777722187`*^9, 3.42153812064771*^9, 3.421538162300233*^9, 
   3.4215383464547358`*^9, 3.4215500415623417`*^9, 3.4215560525800123`*^9, 
   3.421556165274292*^9, 3.421556278901208*^9, 3.421589307772682*^9, 
   3.42159468375854*^9, 3.4215947564802084`*^9, 3.4216269432665977`*^9, 
   3.422132041069006*^9, 3.4227586773864403`*^9, 3.422812265625402*^9, 
   3.422812590346137*^9, 3.422819589982126*^9, 3.422819630268046*^9, 
   3.422820048869094*^9, 3.4228382352421327`*^9, 3.4228449287739105`*^9, 
   3.4228474656152253`*^9, 3.422978331861261*^9, 3.423368456546718*^9, 
   3.4234261666142683`*^9, 3.423426248578858*^9, 3.4234291724578495`*^9, 
   3.423429246311099*^9, 3.4234307108686132`*^9, 3.423452008303337*^9, 
   3.423453431382863*^9, 3.423489318606957*^9, 3.423491443107099*^9, 
   3.4235069501369333`*^9, 3.423507083383217*^9, 3.4235073796674347`*^9, 
   3.423510419086673*^9, 3.423512159189411*^9, 3.423513507774791*^9, 
   3.4235166008189993`*^9, 3.4235182661471987`*^9, 3.423538897934848*^9, 
   3.4235396959138002`*^9, 3.423539771651824*^9, 3.4235398431308517`*^9, 
   3.423574506063693*^9, 3.423576648941753*^9, 3.423576980472014*^9, 
   3.4235787283612003`*^9, 3.423582815227488*^9, 3.423589468570911*^9, 
   3.4235909251007757`*^9, 3.423591206032013*^9, 3.423591537905308*^9, 
   3.423592474985381*^9, 3.4235926427828608`*^9, 3.423594840665819*^9, 
   3.423598439798798*^9, 3.4235993658727293`*^9, 3.423604811386673*^9, 
   3.423605211893956*^9, 3.423606762051052*^9, 3.423606835067442*^9, 
   3.4236069096603823`*^9, 3.423607130299535*^9, 3.423621386804636*^9, 
   3.423621549222435*^9, 3.42362180450184*^9, 3.423621888064148*^9, 
   3.423624424249773*^9, 3.4238867524052596`*^9, 3.4239253658016844`*^9, 
   3.42394555531749*^9, 3.4239693251687584`*^9, 3.423969928952874*^9, 
   3.423970312819536*^9, 3.4239705064802823`*^9, 3.423971809304246*^9, 
   3.423972060216921*^9, 3.423972114737561*^9, 3.423972159329773*^9, 
   3.4239722204157543`*^9, 3.4240108294786386`*^9, 3.4240108995056257`*^9, 
   3.4240109717169333`*^9, 3.4240110392965813`*^9, 3.4240110968227873`*^9, 
   3.4240111572856092`*^9, 3.424023471027359*^9, 3.424056532860111*^9, 
   3.4241290078898773`*^9, 3.424466626131604*^9, {3.424468217406274*^9, 
   3.424468246076356*^9}, 3.424471228653605*^9, 3.42447252867524*^9, 
   3.4244726036282673`*^9, 3.424472711710491*^9, {3.42447276257351*^9, 
   3.424472830484659*^9}, 3.424473443540114*^9, 3.4244735107503633`*^9, 
   3.4244739975571337`*^9, 3.424474043073133*^9, {3.4244740925235157`*^9, 
   3.4244741104266663`*^9}, {3.424474142915448*^9, 3.4244741672721033`*^9}, 
   3.424628965888915*^9, 3.424632272942317*^9, 3.427215362562217*^9, 
   3.427217472812437*^9, 3.427340098458219*^9, 3.42734015234592*^9, 
   3.42734020098542*^9, 3.4273402460789824`*^9, 3.4273402838470383`*^9, 
   3.4273403344649477`*^9, 3.4276856708831477`*^9, 3.4276857052912517`*^9, 
   3.4277240517770042`*^9, 3.427724192253396*^9, 3.42772422841395*^9, 
   3.42772652071869*^9, 3.427741124225016*^9, 3.427742027607984*^9, 
   3.427748205024276*^9, 3.427758083031415*^9, 3.427768112142541*^9, 
   3.427770813829615*^9, 3.4277736251299334`*^9, 3.4278144389406652`*^9, 
   3.4278146189323015`*^9, 3.4278977369587803`*^9, 3.42789808794948*^9, 
   3.42789826254357*^9, 3.4278986876278563`*^9, 3.427899996297432*^9, 
   3.427900136002746*^9, 3.4279002754577103`*^9, 3.42790150432572*^9, 
   3.427901594922378*^9, 3.4279017999590282`*^9, 3.427903197873372*^9, 
   3.42790386467559*^9, 3.427903950635766*^9, 3.427904065736682*^9, 
   3.427904270262618*^9, 3.4279086019785423`*^9, 3.4279086793266783`*^9, 
   3.4279089443171463`*^9, 3.427909042424304*^9, 3.427909359978258*^9, 
   3.427913634604368*^9, 3.4279898246381235`*^9, 3.4279899282029114`*^9, 
   3.427990280455375*^9, 3.427990955839591*^9, 3.427996175347662*^9, {
   3.427996219467196*^9, 3.427996318599215*^9}, 3.4279998710271072`*^9, 
   3.428000626513792*^9, {3.4280006880863247`*^9, 3.428000794469363*^9}, 
   3.428032212744831*^9, 3.4280721012730036`*^9, 3.4280738136269474`*^9, 
   3.4280756840618954`*^9, 3.428076276464552*^9, 3.428076395324957*^9, {
   3.428076425598295*^9, 3.42807647390942*^9}, 3.428076512604547*^9, 
   3.428084144687357*^9, 3.4280855672275467`*^9, 3.428087018057942*^9, 
   3.428087850103931*^9, 3.428092076369296*^9, 3.4280974185679183`*^9, 
   3.428154479626328*^9, 3.42815513161784*^9, 3.428293405442668*^9, 
   3.428293591468803*^9, {3.428293687105507*^9, 3.428293793084578*^9}, 
   3.4284186927408752`*^9, 3.42845058650904*^9, 3.4284996714992175`*^9, 
   3.4285494320371704`*^9, 3.4285990952557387`*^9, 3.4286251825054617`*^9, {
   3.42862526225307*^9, 3.428625398016389*^9}, 3.428703006388755*^9, 
   3.429451303412125*^9, 3.429451368645417*^9, {3.429451408997087*^9, 
   3.4294514318022337`*^9}, 3.42945671787101*^9, 3.4297965253412724`*^9, 
   3.429796590111824*^9, 3.4298964363380327`*^9, 3.429896781580696*^9, 
   3.429969424965831*^9, 3.430073759677052*^9, 3.430601017099455*^9, 
   3.430664616667014*^9, {3.430665231486558*^9, 3.430665247569042*^9}, 
   3.430665785420982*^9, 3.430666132546278*^9, 3.4306671506095743`*^9, 
   3.430670330765568*^9, 3.430670742631374*^9, 3.4306804977117023`*^9, 
   3.4306914699313345`*^9, 3.43070534712224*^9, 3.4307054068657646`*^9, 
   3.430706831467758*^9, 3.430708584688836*^9, 3.430711851644298*^9, 
   3.430712106334543*^9, 3.430712182052774*^9, 3.430712220654716*^9, {
   3.430712270451439*^9, 3.4307123254226103`*^9}, 3.431128724404705*^9, {
   3.431128852701186*^9, 3.431128874628085*^9}, {3.431129066577825*^9, 
   3.431129091264361*^9}, 3.431129151492744*^9, 3.431129322573646*^9, 
   3.431132580960552*^9, 3.43113266215555*^9, 3.431133781063871*^9, 
   3.431133919818186*^9, 3.431134244706512*^9, 3.431134287205941*^9, 
   3.4311343216265297`*^9, 3.431135171901833*^9, 3.431135238246269*^9, 
   3.431135322886149*^9, 3.431136494563093*^9, 3.431136532910236*^9, 
   3.4311462641415577`*^9, 3.431146553986017*^9, 3.431147251308556*^9, 
   3.431147301979561*^9, 3.431286091291648*^9, 3.4312877214206376`*^9, 
   3.4312925808042636`*^9, 3.4312932374622993`*^9, 3.431294206687318*^9, 
   3.432041562614017*^9, 3.432756658784574*^9, 3.432756778171482*^9, 
   3.432756930294156*^9, 3.432757376788374*^9, 3.4327711521852565`*^9, 
   3.4328195840550804`*^9, 3.432819666300062*^9, 3.43282776549308*^9, 
   3.432829125834896*^9, 3.4328293767356663`*^9, 3.43284281022626*^9, 
   3.432842910626624*^9, 3.4328533915594163`*^9, 3.4328566623821664`*^9, 
   3.432918688090938*^9, 3.4330164146197867`*^9, 3.433018021295989*^9, 
   3.433018187658571*^9, 3.433021194322015*^9, 3.433021957819417*^9, 
   3.433042813572974*^9, 3.433047133943036*^9, 3.4330477441961966`*^9, 
   3.4330809480418887`*^9, 3.4330817745774207`*^9, 3.433094761924287*^9, 
   3.4330952278857207`*^9, 3.4330967002641687`*^9, 3.434503731736509*^9, 
   3.434504297126949*^9, 3.4345048405266447`*^9, 3.434757738264559*^9, 
   3.43477946794566*^9, 3.434780347075955*^9, 3.4347804985962763`*^9, 
   3.434780692164963*^9, 3.434806889611267*^9, 3.4348073558884926`*^9, 
   3.4348074284892673`*^9, 3.4348074823039665`*^9, 3.434809153636539*^9, 
   3.434809443436816*^9, {3.434809510723076*^9, 3.434809613076975*^9}, 
   3.4348110223748837`*^9, 3.4348376390364923`*^9, 3.435287933315511*^9, 
   3.435288240351699*^9, 3.435288293926064*^9, {3.4352892662657404`*^9, 
   3.435289287915792*^9}, 3.435724576854562*^9, 3.4357247980315714`*^9, 
   3.4453771384036045`*^9, 3.445377307753741*^9, 3.4453775017688513`*^9, 
   3.445377544148946*^9, 3.44537864152501*^9, 3.445378892961544*^9, 
   3.445379956119087*^9, 3.4454534677309766`*^9, 3.446246383412444*^9, 
   3.44624653354335*^9, 3.4470117457818985`*^9, 3.447257782707776*^9, 
   3.4474715217561703`*^9, 3.4474719236059875`*^9, 3.447472681019991*^9, 
   3.447474032246011*^9, 3.4474745629785824`*^9, 3.4474762427404623`*^9, 
   3.447556430796479*^9, 3.447559838302254*^9, 3.4476447393239613`*^9, 
   3.447729021746691*^9, 3.447729093529194*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ebConst1", " ", "=", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"100", "/", "100000"}], "]"}]}], ";", 
  RowBox[{"ebConst2", " ", "=", " ", "100000"}], ";"}]], "Input",
 CellChangeTimes->{{3.4209876750947714`*^9, 3.4209877380427756`*^9}, {
   3.4209878306021776`*^9, 3.420987968565056*^9}, {3.421004976039495*^9, 
   3.4210049837502747`*^9}, {3.421017477376899*^9, 3.421017485618421*^9}, {
   3.421017658510131*^9, 3.421017658570215*^9}, {3.4228442235149612`*^9, 
   3.4228442597452517`*^9}, 3.4228445612938223`*^9, {3.422844676463686*^9, 
   3.422844679157425*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ebXFunc", "[", 
   RowBox[{
   "curType_", ",", "curPosx_", ",", "curPosy_", ",", "curRad_", ",", 
    "nbrType_", ",", "nbrPosx_", ",", "nbrPosy_", ",", "nbrRad_"}], "]"}], 
  " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"gBounceMult", "[", 
     RowBox[{"curType", ",", "nbrType"}], "]"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"ebConst1", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}]]}], 
        RowBox[{"curRad", "+", "nbrRad"}]]], " ", "ebConst1", " ", "ebConst2",
       " ", 
      RowBox[{"(", 
       RowBox[{"curPosx", "-", "nbrPosx"}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}]}], " ", 
      RowBox[{"(", 
       RowBox[{"curRad", "+", "nbrRad"}], ")"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4209848732877254`*^9, 3.4209848733778515`*^9}, {
   3.4209864233647995`*^9, 3.4209864735950236`*^9}, 3.4209876384735737`*^9, {
   3.432911160016368*^9, 3.432911166906*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ebYFunc", "[", 
   RowBox[{
   "curType_", ",", "curPosx_", ",", "curPosy_", ",", "curRad_", ",", 
    "nbrType_", ",", "nbrPosx_", ",", "nbrPosy_", ",", "nbrRad_"}], "]"}], 
  " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"gBounceMult", "[", 
     RowBox[{"curType", ",", "nbrType"}], "]"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"ebConst1", " ", 
         SqrtBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}]]}], 
        RowBox[{"curRad", "+", "nbrRad"}]]], " ", "ebConst1", " ", "ebConst2",
       " ", 
      RowBox[{"(", 
       RowBox[{"curPosy", "-", "nbrPosy"}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}]}], " ", 
      RowBox[{"(", 
       RowBox[{"curRad", "+", "nbrRad"}], ")"}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4209876458238497`*^9, 3.4209876553471637`*^9}, 
   3.432911170681278*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eaConst1", " ", "=", " ", 
   RowBox[{"-", "4.0605877713321465"}]}], ";", 
  RowBox[{"eaConst2", " ", "=", " ", "10000"}], ";"}]], "Input",
 CellChangeTimes->{{3.4209876750947714`*^9, 3.4209877380427756`*^9}, {
   3.4209878306021776`*^9, 3.420987968565056*^9}, {3.421004976039495*^9, 
   3.4210049837502747`*^9}, {3.421017477376899*^9, 3.421017485618421*^9}, {
   3.421017658510131*^9, 3.421017658570215*^9}, {3.4228442235149612`*^9, 
   3.4228442597452517`*^9}, 3.4228445612938223`*^9, {3.422844676463686*^9, 
   3.422844679157425*^9}, {3.430600847272029*^9, 3.430600868501709*^9}, {
   3.430600929356787*^9, 3.4306009568552313`*^9}, {3.4306012775936375`*^9, 
   3.430601306233677*^9}, {3.4306016107393894`*^9, 3.430601611029795*^9}, {
   3.4306019021968594`*^9, 3.4306019301158915`*^9}, {3.4306158203974037`*^9, 
   3.430615828759094*^9}, {3.430619573113862*^9, 3.430619573364212*^9}, {
   3.4306583957098503`*^9, 3.430658404011456*^9}, {3.430658553139944*^9, 
   3.4306585741393023`*^9}, {3.430658620043478*^9, 3.430658623117776*^9}, {
   3.430658658747588*^9, 3.430658687387628*^9}, {3.4306588379681463`*^9, 
   3.430658841503088*^9}, 3.4306589213447104`*^9, 3.43065899494761*^9, {
   3.430660315073202*^9, 3.430660336763526*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "xx"], " ", "xx", " ", "eaConst2", 
        " ", 
        RowBox[{"(", 
         RowBox[{"-", "10"}], ")"}]}], ")"}], "/", "100"}], " ", "\[Equal]", 
     " ", "70"}], ",", "xx"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.430658760740178*^9, 3.430658826321864*^9}, {
  3.4306602946346283`*^9, 3.430660297738968*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], ":", 
  " ", "\<\"Inverse functions are being used. Values may be lost for \
multivalued inverses. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InverseFunction/ifun\\\", ButtonNote -> \\\
\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.430658820714024*^9, 3.430658826652326*^9}, 
   3.430658912912922*^9, 3.430659119291448*^9, 3.430660298099472*^9, 
   3.43066044302208*^9, 3.430664616847266*^9, {3.430665231586698*^9, 
   3.430665247709238*^9}, 3.4306657855812063`*^9, 3.430666132686474*^9, 
   3.430667150659644*^9, 3.4306703309257917`*^9, 3.430670748219186*^9, 
   3.430680497942024*^9, 3.4306914700815444`*^9, 3.4307053473525624`*^9, 
   3.4307054070059605`*^9, 3.4307068316079545`*^9, 3.430708592790162*^9, 
   3.4307118518413887`*^9, 3.430712106444985*^9, 3.430712182160294*^9, 
   3.430712220871275*^9, {3.430712270582486*^9, 3.430712325660823*^9}, 
   3.431128724528887*^9, {3.431128852924007*^9, 3.431128874708946*^9}, {
   3.4311290666589823`*^9, 3.431129091401053*^9}, 3.431129151650469*^9, 
   3.431129322712861*^9, 3.431132581190282*^9, 3.431132662431822*^9, 
   3.431133781296493*^9, 3.431133920023144*^9, 3.431134244834646*^9, 
   3.431134287584063*^9, 3.431134321752304*^9, 3.431135172145063*^9, 
   3.4311352385215816`*^9, 3.431135323025906*^9, 3.431136494717276*^9, 
   3.4311365330452414`*^9, 3.4311462683972397`*^9, 3.43114655411242*^9, 
   3.431147251430983*^9, 3.431147302232058*^9, 3.4312860914718995`*^9, 
   3.4312877215808616`*^9, 3.4312925809544735`*^9, 3.4312932376125097`*^9, 
   3.431294206847542*^9, 3.432041562757197*^9, 3.432756658954812*^9, 
   3.432756778351734*^9, 3.432756930434352*^9, 3.43275737692857*^9, 
   3.4327711523254523`*^9, 3.4328195842052903`*^9, 3.4328196664502726`*^9, 
   3.4328277656432905`*^9, 3.4328291260251627`*^9, 3.43282937689589*^9, 
   3.4328428102763305`*^9, 3.4328429107768345`*^9, 3.4328533923805647`*^9, 
   3.4328566625423903`*^9, 3.432918688261176*^9, 3.4330164147499685`*^9, 
   3.4330180214461985`*^9, 3.433018187828809*^9, 3.4330211944421825`*^9, 
   3.433021957959613*^9, 3.433042813743212*^9, 3.4330471340632043`*^9, 
   3.4330477443163643`*^9, 3.4330809481720705`*^9, 3.4330817747076025`*^9, 
   3.4330947620744967`*^9, 3.4330952280159025`*^9, 3.433096700394351*^9, 
   3.434503731976845*^9, 3.4345042972371025`*^9, 3.434504840636799*^9, 
   3.434757738514904*^9, 3.434779468075841*^9, 3.4347803472061357`*^9, 
   3.4347804995475965`*^9, 3.4347806923151712`*^9, 3.4348068897514615`*^9, 
   3.434807356018673*^9, 3.4348074286194487`*^9, 3.4348074824141192`*^9, 
   3.4348091541253653`*^9, 3.434809443762086*^9, {3.434809510836657*^9, 
   3.4348096132206507`*^9}, 3.4348110237106123`*^9, 3.434837639257484*^9, 
   3.435287933535817*^9, 3.4352882404818797`*^9, 3.435288294066259*^9, {
   3.4352892663959208`*^9, 3.435289288106056*^9}, 3.4357245770648537`*^9, 
   3.4357247981617517`*^9, 3.445377138623917*^9, 3.4453773079239826`*^9, 
   3.445377501949107*^9, 3.4453775443292017`*^9, 3.445378641725294*^9, 
   3.4453788931418*^9, 3.4453799563093567`*^9, 3.4454534678110905`*^9, 
   3.446246383582672*^9, 3.446246533693551*^9, 3.4470117459621544`*^9, 
   3.4472577828880315`*^9, 3.4474715219063835`*^9, 3.447471923716144*^9, 
   3.447472681200246*^9, 3.447474032446295*^9, 3.4474745631588383`*^9, 
   3.4474762429207177`*^9, 3.447556430926665*^9, 3.4475598384124117`*^9, 
   3.4476447395342617`*^9, 3.4477290222574205`*^9, 3.447729093879694*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], ":", 
  " ", "\<\"Inverse functions are being used by \\!\\(Solve\\), so some \
solutions may not be found; use Reduce for complete solution information. \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.430658820714024*^9, 3.430658826652326*^9}, 
   3.430658912912922*^9, 3.430659119291448*^9, 3.430660298099472*^9, 
   3.43066044302208*^9, 3.430664616847266*^9, {3.430665231586698*^9, 
   3.430665247709238*^9}, 3.4306657855812063`*^9, 3.430666132686474*^9, 
   3.430667150659644*^9, 3.4306703309257917`*^9, 3.430670748219186*^9, 
   3.430680497942024*^9, 3.4306914700815444`*^9, 3.4307053473525624`*^9, 
   3.4307054070059605`*^9, 3.4307068316079545`*^9, 3.430708592790162*^9, 
   3.4307118518413887`*^9, 3.430712106444985*^9, 3.430712182160294*^9, 
   3.430712220871275*^9, {3.430712270582486*^9, 3.430712325660823*^9}, 
   3.431128724528887*^9, {3.431128852924007*^9, 3.431128874708946*^9}, {
   3.4311290666589823`*^9, 3.431129091401053*^9}, 3.431129151650469*^9, 
   3.431129322712861*^9, 3.431132581190282*^9, 3.431132662431822*^9, 
   3.431133781296493*^9, 3.431133920023144*^9, 3.431134244834646*^9, 
   3.431134287584063*^9, 3.431134321752304*^9, 3.431135172145063*^9, 
   3.4311352385215816`*^9, 3.431135323025906*^9, 3.431136494717276*^9, 
   3.4311365330452414`*^9, 3.4311462683972397`*^9, 3.43114655411242*^9, 
   3.431147251430983*^9, 3.431147302232058*^9, 3.4312860914718995`*^9, 
   3.4312877215808616`*^9, 3.4312925809544735`*^9, 3.4312932376125097`*^9, 
   3.431294206847542*^9, 3.432041562757197*^9, 3.432756658954812*^9, 
   3.432756778351734*^9, 3.432756930434352*^9, 3.43275737692857*^9, 
   3.4327711523254523`*^9, 3.4328195842052903`*^9, 3.4328196664502726`*^9, 
   3.4328277656432905`*^9, 3.4328291260251627`*^9, 3.43282937689589*^9, 
   3.4328428102763305`*^9, 3.4328429107768345`*^9, 3.4328533923805647`*^9, 
   3.4328566625423903`*^9, 3.432918688261176*^9, 3.4330164147499685`*^9, 
   3.4330180214461985`*^9, 3.433018187828809*^9, 3.4330211944421825`*^9, 
   3.433021957959613*^9, 3.433042813743212*^9, 3.4330471340632043`*^9, 
   3.4330477443163643`*^9, 3.4330809481720705`*^9, 3.4330817747076025`*^9, 
   3.4330947620744967`*^9, 3.4330952280159025`*^9, 3.433096700394351*^9, 
   3.434503731976845*^9, 3.4345042972371025`*^9, 3.434504840636799*^9, 
   3.434757738514904*^9, 3.434779468075841*^9, 3.4347803472061357`*^9, 
   3.4347804995475965`*^9, 3.4347806923151712`*^9, 3.4348068897514615`*^9, 
   3.434807356018673*^9, 3.4348074286194487`*^9, 3.4348074824141192`*^9, 
   3.4348091541253653`*^9, 3.434809443762086*^9, {3.434809510836657*^9, 
   3.4348096132206507`*^9}, 3.4348110237106123`*^9, 3.434837639257484*^9, 
   3.435287933535817*^9, 3.4352882404818797`*^9, 3.435288294066259*^9, {
   3.4352892663959208`*^9, 3.435289288106056*^9}, 3.4357245770648537`*^9, 
   3.4357247981617517`*^9, 3.445377138623917*^9, 3.4453773079239826`*^9, 
   3.445377501949107*^9, 3.4453775443292017`*^9, 3.445378641725294*^9, 
   3.4453788931418*^9, 3.4453799563093567`*^9, 3.4454534678110905`*^9, 
   3.446246383582672*^9, 3.446246533693551*^9, 3.4470117459621544`*^9, 
   3.4472577828880315`*^9, 3.4474715219063835`*^9, 3.447471923716144*^9, 
   3.447472681200246*^9, 3.447474032446295*^9, 3.4474745631588383`*^9, 
   3.4474762429207177`*^9, 3.447556430926665*^9, 3.4475598384124117`*^9, 
   3.4476447395342617`*^9, 3.4477290222574205`*^9, 3.4477290938897085`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"xx", "\[Rule]", 
     RowBox[{"-", "0.07548877886579222`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"xx", "\[Rule]", 
     RowBox[{"-", "4.0605877713321465`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.430658820784122*^9, 3.430658826722424*^9}, 
   3.4306589129730062`*^9, 3.430659119331504*^9, 3.4306602981295137`*^9, 
   3.4306604430621357`*^9, 3.430664616897336*^9, {3.430665231646782*^9, 
   3.4306652477492943`*^9}, 3.430665785611248*^9, 3.430666132706502*^9, 
   3.4306671506997004`*^9, 3.430670330955834*^9, 3.430670748239214*^9, 
   3.4306804980221367`*^9, 3.4306914701015725`*^9, 3.4307053473826046`*^9, 
   3.4307054070259886`*^9, 3.430706831627982*^9, 3.4307085928001766`*^9, 
   3.430711851896626*^9, 3.430712106448819*^9, 3.430712182165503*^9, 
   3.43071222087646*^9, {3.430712270588459*^9, 3.430712325667835*^9}, 
   3.4311287245375643`*^9, {3.431128852933689*^9, 3.4311288747149773`*^9}, {
   3.431129066665269*^9, 3.4311290914070787`*^9}, 3.431129151655992*^9, 
   3.4311293227168818`*^9, 3.431132581198164*^9, 3.431132662439301*^9, 
   3.431133781304748*^9, 3.4311339200304747`*^9, 3.431134244840262*^9, 
   3.431134287589592*^9, 3.4311343217570457`*^9, 3.4311351721532803`*^9, 
   3.431135238529283*^9, 3.431135323031945*^9, 3.43113649472283*^9, 
   3.431136533049541*^9, 3.43114626840065*^9, 3.4311465541202393`*^9, 
   3.4311472514388113`*^9, 3.4311473022381363`*^9, 3.4312860915720396`*^9, 
   3.4312877216409454`*^9, 3.4312925809745016`*^9, 3.431293237632538*^9, 
   3.43129420686757*^9, 3.432041562760806*^9, 3.4327566589848537`*^9, 
   3.432756778421832*^9, 3.432756930444366*^9, 3.4327573769385843`*^9, 
   3.4327711523454804`*^9, 3.4328195842253184`*^9, 3.4328196664703007`*^9, 
   3.4328277656633186`*^9, 3.4328291260552044`*^9, 3.4328293769159184`*^9, 
   3.4328428102863445`*^9, 3.432842910786848*^9, 3.4328533923905783`*^9, 
   3.4328566625624185`*^9, 3.432918688281204*^9, 3.4330164147800107`*^9, 
   3.4330180214962687`*^9, 3.433018187868865*^9, 3.433021194452197*^9, 
   3.4330219580096827`*^9, 3.43304281376324*^9, 3.433047134083232*^9, 
   3.4330477443363924`*^9, 3.4330809481920986`*^9, 3.4330817747276306`*^9, 
   3.433094762094525*^9, 3.433095228025917*^9, 3.433096700414379*^9, 
   3.4345037320068865`*^9, 3.434504297247117*^9, 3.434504840646813*^9, 
   3.434757738605028*^9, 3.4347794680958686`*^9, 3.4347803472361774`*^9, 
   3.4347804995576105`*^9, 3.4347806923351994`*^9, 3.4348068897915173`*^9, 
   3.4348073560687428`*^9, 3.434807428659504*^9, 3.434807482434147*^9, 
   3.434809154208992*^9, 3.4348094437735653`*^9, {3.434809510846143*^9, 
   3.434809613229391*^9}, 3.434811023720683*^9, 3.434837639261032*^9, 
   3.435287933565859*^9, 3.4352882405019073`*^9, 3.4352882940862865`*^9, {
   3.4352892664459906`*^9, 3.4352892881260843`*^9}, 3.435724577084882*^9, 
   3.43572479818178*^9, 3.4453771388542433`*^9, 3.4453773080942235`*^9, 
   3.445377502069278*^9, 3.445377544479415*^9, 3.44537864190555*^9, 
   3.4453788933120413`*^9, 3.445379956499627*^9, 3.4454534678711753`*^9, 
   3.4462463837028327`*^9, 3.4462465338237257`*^9, 3.4470117460723104`*^9, 
   3.447257783018216*^9, 3.447471522006525*^9, 3.4474719237962575`*^9, 
   3.447472681340445*^9, 3.447474032596508*^9, 3.4474745632790084`*^9, 
   3.4474762430509024`*^9, 3.447556431006779*^9, 3.447559838492526*^9, 
   3.4476447397045045`*^9, 3.447729022377592*^9, 3.4477290938897085`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"ebXFunc", "[", 
     RowBox[{
     "stromaID", ",", "0", ",", "0", ",", "5", ",", "stemID", ",", "0.1", ",",
       "0", ",", "5"}], "]"}], "]"}], ",", 
   RowBox[{"N", "[", 
    RowBox[{"ebXFunc", "[", 
     RowBox[{
     "nrnID", ",", "0", ",", "0", ",", "5", ",", "stemID", ",", "0.1", ",", 
      "0", ",", "5"}], "]"}], "]"}], ",", 
   RowBox[{"N", "[", 
    RowBox[{"ebYFunc", "[", 
     RowBox[{
     "stromaID", ",", "0", ",", "1", ",", "0", ",", "stemID", ",", "0.1", ",",
       "0", ",", "5"}], "]"}], "]"}], ",", 
   RowBox[{"N", "[", 
    RowBox[{"ebYFunc", "[", 
     RowBox[{
     "nrnID", ",", "0", ",", "1", ",", "5", ",", "stemID", ",", "0.1", ",", 
      "0", ",", "5"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.432910557894576*^9, 3.43291057427748*^9}, 
   3.432910623386136*^9, {3.432910958795052*^9, 3.432910965834894*^9}, {
   3.4329111949151583`*^9, 3.432911221892874*^9}, {3.432911278151526*^9, 
   3.432911287314336*^9}, {3.4329113314961042`*^9, 3.432911391990678*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.`", ",", 
   RowBox[{"-", "64466.92322963198`"}], ",", "0.`", ",", 
   "34330.488871771726`"}], "}"}]], "Output",
 CellChangeTimes->{{3.432910560147726*^9, 3.432910574868306*^9}, 
   3.4329106238367662`*^9, {3.432910959075444*^9, 3.43291096647579*^9}, {
   3.432911191610538*^9, 3.432911222363532*^9}, 3.432911287684854*^9, {
   3.4329113324274063`*^9, 3.4329113923111258`*^9}, 3.4329186883012323`*^9, 
   3.433016414800039*^9, 3.433018021526311*^9, 3.4330181878989067`*^9, 
   3.4330211944722247`*^9, 3.433021958039725*^9, 3.433042813783268*^9, 
   3.4330471341833725`*^9, 3.433047744346406*^9, 3.433080948202113*^9, 
   3.433081774847799*^9, 3.433094762104539*^9, 3.4330952280359306`*^9, 
   3.4330967004243927`*^9, 3.434503732016901*^9, 3.4345042972571306`*^9, 
   3.434504840656827*^9, 3.4347577386651106`*^9, 3.4347794681058826`*^9, 
   3.434780347266219*^9, 3.4347804997679024`*^9, 3.4347806924153104`*^9, 
   3.434806889811545*^9, 3.434807356178896*^9, 3.4348074286795316`*^9, 
   3.4348074824441605`*^9, 3.434809154288062*^9, 3.434809443804798*^9, {
   3.434809510876111*^9, 3.434809613355196*^9}, 3.434811024360146*^9, 
   3.434837639679826*^9, 3.435287933696039*^9, 3.435288240572005*^9, 
   3.43528829414637*^9, {3.43528926649606*^9, 3.4352892881461115`*^9}, 
   3.43572457710491*^9, 3.4357247982518773`*^9, 3.4453771389143286`*^9, 
   3.44537730813428*^9, 3.4453775021093345`*^9, 3.4453775445294857`*^9, 
   3.4453786419556212`*^9, 3.445378893362112*^9, 3.445379956589754*^9, 
   3.4454534680113745`*^9, 3.4462463837729263`*^9, 3.4462465338737926`*^9, 
   3.447011746082325*^9, 3.44725778302823*^9, 3.4474715221266956`*^9, 
   3.4474719238062716`*^9, 3.4474726813905163`*^9, 3.4474740326565933`*^9, 
   3.4474745633390937`*^9, 3.4474762431210012`*^9, 3.4475564310167933`*^9, 
   3.44755983850254*^9, 3.4476447397445617`*^9, 3.447729022507778*^9, 
   3.447729093969823*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"eaConst1", " ", "=", " ", 
   RowBox[{"-", "0.07548877886579222"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4306604515139523`*^9, 3.430660455048894*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"stemID", ",", "stemID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"stemID", ",", "prgID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gAttractMult", "[", 
     RowBox[{"stemID", ",", "nrnID"}], "]"}], " ", "=", " ", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"prgID", ",", "stemID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"prgID", ",", "prgID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gAttractMult", "[", 
     RowBox[{"prgID", ",", "nrnID"}], "]"}], " ", "=", " ", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"nrnID", ",", "stemID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"nrnID", ",", "prgID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"nrnID", ",", "nrnID"}], "]"}], " ", "=", " ", "1"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.430660832106036*^9, 3.430660847117022*^9}, {
  3.4306608923602743`*^9, 3.4306609468164062`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"stromaID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"stromaID", ",", "stemID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"stromaID", ",", "prgID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"gAttractMult", "[", 
     RowBox[{"stromaID", ",", "nrnID"}], "]"}], " ", "=", " ", "0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"stemID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"prgID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gAttractMult", "[", 
    RowBox[{"nrnID", ",", "stromaID"}], "]"}], " ", "=", " ", "0"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.4327710265796547`*^9, 3.4327710681978383`*^9}, {
  3.432910594796166*^9, 3.4329105986215143`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eaXFunc", "[", 
   RowBox[{
   "curType_", ",", "curPosx_", ",", "curPosy_", ",", "curRad_", ",", 
    "nbrType_", ",", "nbrPosx_", ",", "nbrPosy_", ",", "nbrRad_"}], "]"}], 
  " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cellOptDist", ",", "celldistance", ",", "diffcoord"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"celldistance", " ", "=", " ", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}]}]}], ";",
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"cellOptDist", " ", "=", " ", 
      RowBox[{"curRad", "+", "nbrRad"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"diffcoord", " ", "=", " ", 
      RowBox[{"curPosx", "-", "nbrPosx"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"gAttractMult", "[", 
       RowBox[{"curType", ",", "nbrType"}], "]"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          FractionBox[
           RowBox[{"eaConst1", " ", "celldistance"}], "cellOptDist"]], " ", 
         "eaConst1", " ", "eaConst2", " ", "diffcoord"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"celldistance", " ", "cellOptDist"}], ")"}]}]}]}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.4209876458238497`*^9, 3.4209876553471637`*^9}, {
   3.430600875621663*^9, 3.430600916038167*^9}, 3.4306010048923893`*^9, {
   3.4306018558220253`*^9, 3.4306018848526115`*^9}, {3.430617667830194*^9, 
   3.430617847030724*^9}, {3.43061790465128*^9, 3.430617951206366*^9}, {
   3.43061798371181*^9, 3.43061800884695*^9}, {3.430618095137588*^9, 
   3.430618104120146*^9}, {3.4306193232946043`*^9, 3.430619338916444*^9}, {
   3.43061947830131*^9, 3.43061947850159*^9}, 3.430658330258346*^9, {
   3.4306609668844624`*^9, 3.4306609808339643`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"eaYFunc", "[", 
   RowBox[{
   "curType_", ",", "curPosx_", ",", "curPosy_", ",", "curRad_", ",", 
    "nbrType_", ",", "nbrPosx_", ",", "nbrPosy_", ",", "nbrRad_"}], "]"}], 
  " ", ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cellOptDist", ",", "celldistance", ",", "diffcoord"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"celldistance", " ", "=", " ", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}]}]}], ";",
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"cellOptDist", " ", "=", " ", 
      RowBox[{"curRad", "+", "nbrRad"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"diffcoord", " ", "=", " ", 
      RowBox[{"curPosy", "-", "nbrPosy"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"gAttractMult", "[", 
       RowBox[{"curType", ",", "nbrType"}], "]"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          FractionBox[
           RowBox[{"eaConst1", " ", "celldistance"}], "cellOptDist"]], " ", 
         "eaConst1", " ", "eaConst2", " ", "diffcoord"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"celldistance", " ", "cellOptDist"}], ")"}]}]}]}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.4209876458238497`*^9, 3.4209876553471637`*^9}, {
   3.430600875621663*^9, 3.430600916038167*^9}, 3.4306010048923893`*^9, {
   3.4306018558220253`*^9, 3.4306018848526115`*^9}, {3.430617667830194*^9, 
   3.430617847030724*^9}, {3.43061790465128*^9, 3.430617951206366*^9}, {
   3.43061798371181*^9, 3.43061800884695*^9}, 3.43066047301401*^9, {
   3.4306609881842403`*^9, 3.430660989325836*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"eaXFunc", "[", 
     RowBox[{
     "nrnID", ",", "0", ",", "0", ",", "5", ",", "nrnID", ",", "10", ",", "0",
       ",", "5"}], "]"}], "]"}], ",", 
   RowBox[{"N", "[", 
    RowBox[{"ebXFunc", "[", 
     RowBox[{
     "nrnID", ",", "0", ",", "0", ",", "5", ",", "nrnID", ",", "10", ",", "0",
       ",", "5"}], "]"}], "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.4306589377075863`*^9, 3.430658937897852*^9}, {
  3.430660173114738*^9, 3.4306601835192842`*^9}, {3.4306604975483103`*^9, 
  3.4306605041375217`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"70.00000000000001`", ",", 
   RowBox[{"-", "69.07755278982137`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.43065893841858*^9, 3.430658997821628*^9, {3.43066016698617*^9, 
   3.430660184480628*^9}, {3.430660491860358*^9, 3.430660504618194*^9}, 
   3.430664616967434*^9, {3.430665231736908*^9, 3.430665247799364*^9}, 
   3.430665785681346*^9, 3.430666132816656*^9, 3.4306671507697983`*^9, 
   3.43067033750499*^9, 3.4306707482892838`*^9, 3.43068049808222*^9, 
   3.4306914701516423`*^9, 3.4307053474226604`*^9, 3.4307054070660443`*^9, 
   3.4307068317381363`*^9, 3.4307085929904423`*^9, 3.430711852110723*^9, 
   3.430712106503552*^9, 3.4307121822215233`*^9, 3.43071222104216*^9, {
   3.4307122706550922`*^9, 3.4307123257875977`*^9}, 3.431128724617366*^9, {
   3.431128853175631*^9, 3.431128874803858*^9}, {3.431129066864455*^9, 
   3.43112909164966*^9}, 3.431129151928185*^9, 3.4311293228068113`*^9, 
   3.431132581443331*^9, 3.431132662865726*^9, 3.431133781515482*^9, 
   3.431133920514841*^9, 3.431134244921338*^9, 3.431134287687029*^9, 
   3.43113432204552*^9, 3.4311351725276213`*^9, 3.431135238962345*^9, 
   3.431135323323165*^9, 3.431136494984074*^9, 3.431136533284931*^9, 
   3.43114626861141*^9, 3.431146554196679*^9, 3.431147251522702*^9, 
   3.431147302646532*^9, 3.4312860918123755`*^9, 3.431287721721058*^9, 
   3.4312925810245714`*^9, 3.4312932376725936`*^9, 3.4312942069176397`*^9, 
   3.4320415631301937`*^9, 3.43275665902491*^9, 3.432756778562028*^9, 
   3.4327569304944363`*^9, 3.432757376988654*^9, 3.432771152455634*^9, 
   3.4328195843454866`*^9, 3.4328196665203705`*^9, 3.4328277657133884`*^9, 
   3.4328291261453304`*^9, 3.432829376965988*^9, 3.4328428103464284`*^9, 
   3.4328429108369184`*^9, 3.4328533925608163`*^9, 3.4328566626124887`*^9, 
   3.432918688351302*^9, 3.4330164148601227`*^9, 3.433018021596409*^9, 
   3.4330181879890327`*^9, 3.4330211946024065`*^9, 3.4330219580998087`*^9, 
   3.433042813873394*^9, 3.4330471342234282`*^9, 3.4330477443964763`*^9, 
   3.4330809483322945`*^9, 3.433081774897869*^9, 3.433094762144595*^9, 
   3.433095228075987*^9, 3.4330967004744625`*^9, 3.434503732056957*^9, 
   3.434504297297187*^9, 3.4345048406968827`*^9, 3.434757738805304*^9, 
   3.434779468145938*^9, 3.434780347316289*^9, 3.4347805011598344`*^9, 
   3.4347806924653797`*^9, 3.4348068898716283`*^9, 3.4348073562289653`*^9, 
   3.4348074287396154`*^9, 3.434807482474202*^9, 3.434809154432356*^9, 
   3.434809443965097*^9, {3.43480951095431*^9, 3.4348096134979057`*^9}, 
   3.43481102570327*^9, 3.434837639867997*^9, 3.435287933946387*^9, 
   3.4352882406120605`*^9, 3.4352882941964397`*^9, {3.4352892666462684`*^9, 
   3.4352892882362366`*^9}, 3.435724577175007*^9, 3.4357247983019466`*^9, 
   3.4453771389944425`*^9, 3.445377308224408*^9, 3.4453775021894484`*^9, 
   3.4453775446196136`*^9, 3.4453786420557632`*^9, 3.44537889345224*^9, 
   3.445379956669868*^9, 3.445453468111516*^9, 3.4462463838530335`*^9, 
   3.4462465339538994`*^9, 3.4470117461424103`*^9, 3.447257783068287*^9, 
   3.4474715221567383`*^9, 3.4474719238463287`*^9, 3.4474726814706297`*^9, 
   3.447474032746721*^9, 3.447474563429221*^9, 3.447476243201115*^9, 
   3.4475564311269507`*^9, 3.4475598385425973`*^9, 3.447644739954862*^9, 
   3.447729022577878*^9, 3.4477290940399227`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"ebXFunc", "[", 
       RowBox[{"nrnID", ",", "0", ",", "0", ",", "5", ",", "nrnID", ",", 
        RowBox[{"10", "+", "i"}], ",", "0", ",", "5"}], "]"}]}], ",", 
     RowBox[{"eaXFunc", "[", 
      RowBox[{"nrnID", ",", "0", ",", "0", ",", "5", ",", "nrnID", ",", 
       RowBox[{"10", "+", "i"}], ",", "0", ",", "5"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.430658637517908*^9, 3.430658638108734*^9}, {
  3.430661003615814*^9, 3.43066103004276*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], 
    LineBox[{{-2.6952566184643922`, 445.41441729879057`}, {-2.565070622576627,
      406.3105791020597}, {-2.354331073163377, 
     351.2661214009837}, {-2.157693217742475, 
     306.65136961436787`}, {-1.9445448114159614`, 
     264.66736087730715`}, {-1.735294017449143, 
     229.0472852099888}, {-1.5401449174746724`, 
     200.16144087692763`}, {-1.3284852665945908`, 
     172.93485073882172`}, {-1.130927309706857, 
     150.8742542070558}, {-0.9168588019135122, 
     130.13514010916563`}, {-0.7066879064798623, 
     112.54943401170286`}, {-0.5106187050385604, 
     98.29299197930676}, {-0.2980389526916474, 
     84.86891093888053}, {-0.09956089433708235, 73.99548340351575}, {
     0.09501955165778773, 64.68909537471228}, {0.306110548558269, 
     55.91183925097971}, {0.5030998514664022, 48.79855791146509}, {
     0.7165997052801466, 42.107264835032005`}, {0.9262019467341961, 
     36.43144182570792}, {1.1217024941958975`, 31.8292345945678}, {
     1.3337135925632102`, 27.49304643919269}, {1.5316229969381747`, 
     23.980047793619974`}, {1.7256347889534445`, 20.97232150114777}, {
     1.9361571318743254`, 18.133841016688685`}, {2.132577780802858, 
     15.833014488352978`}, {2.345508980637002, 13.66734789296419}, {
     2.5443384864787983`, 11.913391049973}, {2.739270379960899, 
     10.412519540571067`}, {2.9507128243486114`, 8.997525706106737}, {
     3.148053574743976, 7.850925767170347}, {3.3619048760449513`, 
     6.772756793954621}, {3.5718585649862313`, 5.858404759010298}, {
     3.767710559935164, 5.11709848314044}, {3.9800731057897076`, 
     4.418908527806444}, {4.178333957651903, 3.8533349016478877`}, {
     4.3726971971544035`, 3.3692076977806305`}, {4.583570987562515, 
     2.9124980760784496`}, {4.780343083978279, 2.5423422697179436`}, {
     4.9936257312996535`, 2.1940636585005424`}, {4.993725326059321, 
     2.1939127173290696`}, {4.993824920818988, 2.1937617865416428`}, {
     4.994024110338323, 2.1934599561160284`}, {4.994422489376992, 
     2.192856419841817}, {4.995219247454332, 2.1916498454414723`}, {
     4.996812763609011, 2.189238687954166}, {4.996912358368679, 
     2.1890880787177833`}, {4.997011953128346, 2.1889374798425973`}, {
     4.99721114264768, 2.188636313172985}, {4.99760952168635, 
     2.1880341041368125`}, {4.998406279763689, 2.1868301831170696`}, {
     4.998505874523357, 2.1866797395743935`}, {4.9986054692830235`, 
     2.18652930638152}, {4.998804658802358, 2.1862284710423308`}, {
     4.999203037841028, 2.1856269245302506`}, {4.9993026326006955`, 
     2.1854765637660547`}, {4.999402227360362, 2.1853262133459723`}, {
     4.999601416879697, 2.185025543535277}, {4.999701011639365, 
     2.1848752241432394`}, {4.999800606399033, 2.1847249150924664`}, {
     4.999900201158701, 2.18457461638224}, {4.9999997959183675`, 
     2.184424328011859}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwt1Hs0lHkYB3Cmyf0wvJFrhE7ILXeieSSixPt7NdpVYUfaaqem3EUkl0Ta
NbJTo7aUdBXaymXZecOyLmU3xYZKWWOTsG4r1/11Tn8853s+/33P949nNZdP
hTOkpKT88H3O44Pbx5eWCPqYYYMowJwCSYLGVM88QfNrumWdsP1Yb/6r+ETQ
TeY60brYBs5HFvgTBH3tey1yYB0FdVkCuT4JQRvvVJKLxZaz7FpFPyHoqofN
ySIzCs5FhW47UUDQo5OFZ9+aUHBHOrJIypGgNQqqTY+soWB5+BYbrT1qNK9Z
euecHgXEX7/xruaq0vd8FhtlV1JA1YvCTFtYdNKzzY+cWRQkjLrxfuhXoVOj
dvR3y1FQGSs6WOqvTDPXd5XPS+O+Ao7B4gUl+v0TS/ezswi2XKr18x5WoFcR
XkmeEwiKm+I7I3fJ01ey4yoThxEEp51Tb78pS9d6e3GMBxAkhS67p0jI0LlR
ULDtNQIpC32xRzqTbj2hNSjsQtCdfeHUnRcMOoe4bsP5A4Guwv5bk5ukaUPl
M5m5zQi+szdb3qO7JM5OcAth1yEIc3x9s75+TkyTwgNqvyAwi3NZOlw0I7ZL
ONwb9gBB4auAhnj3KfGDWT5/bQmCwRR11y2a42Ll+c2aB4oRVOebeP4T+FFs
xxv+Ru8yAuv3LyetLknEtVa2F6eFCDZX98gvBPaJHb8a27o9F8GRW6UzqkSH
+FkRcl6ZhSBwn1Hhs8Qq8atQsU9wKoKmtpdZtgGV7JOcqevNiQhcLB7fJ4Ud
7HWUfO/NaASMGPXevVp97K3ZTueZfASySmQKd0TCDilklDz/FkFqX6dHxLWP
bFZ0uktzKIKyggwyafxfttch+1LnIAT8q3tZfwdOsW/ITWvqB+B9D4r0TqXM
sAUbqjRP+CI4jWKcbS/OsdtGekeYXgiYK/IlybOL7PyIRbS0EUFXa/pYmoo0
UJk55VFOCDgJXAdRPQN6TSe1Q9cj4Cl+MHwaxARB3UurRjME+ncaf5QZWg4W
0tY9/sYIEio9AlQKZMHXrm0tqYf3KOY9crCShzKdhowWDQRKDEeu5YACPOBF
LKtRQeB5aEe+WZ4SvHO+t+lPOQSaVXp8T2NlsPSznwlhIBBEZOZad6kAt4wV
vm+OBCrD3+LSIxZ40SdnBiZJMNuVxik6rgqnmBqlmSMkdErkr+Zx1EAUaHr/
2iAJT7kD7mr6BGyXYXg6viVBlK8qE/+JAH7I2E8e3SS8y6hbnYfNlQlu2YRt
GhfpVoLdXtE65Y5dGfQi6i22ussNX8Du1L/Q7zNLAFkTPOuKTdw2eKw9R0B6
RTvHAfvMr1aJNfMEvMmsUjLFfl7aJ+zEXkgycTLB1inM/XkMW5AsDFuLfTt1
Ysh4gQCTK9HVa7B/9674OgebGWKz3xCb2bHRMXiRgJiOknodbN+GUSoOe81R
vVFt7LyHVw4LsP20crQ/2/A8o7gRW+E076gmNuxpXGG1RICNZJ2+OnamX6y1
D/bdroKtK7Db2Sa+YdiXOxRjCOxgw6xUIfbo0Ic2VexiYsPlcmxfmd0zLOwR
5nB1K7aReZvRZztMX+wcwI7c7eqvgv3ln4Gr8O4xZez/AZxpM2Q=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 5}, {0., 445.41441729879057`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4306586387997*^9, 3.430658691613536*^9}, 
   3.4306588462196817`*^9, 3.43065892464933*^9, 3.43065912452877*^9, {
   3.430660320640986*^9, 3.4306603444242363`*^9}, 3.430660507852716*^9, {
   3.4306609957548237`*^9, 3.430661030723712*^9}, 3.430664617067574*^9, {
   3.43066523186709*^9, 3.430665247879476*^9}, 3.430665785761458*^9, 
   3.43066613287674*^9, 3.43066715084991*^9, 3.430670337585102*^9, 
   3.430670748349368*^9, 3.4306804981523185`*^9, 3.4306914702217407`*^9, 
   3.4307053474927588`*^9, 3.4307054071361427`*^9, 3.430706831808234*^9, 
   3.43070859306054*^9, 3.430711852167774*^9, 3.430712106531348*^9, 
   3.430712182251595*^9, 3.430712221161442*^9, {3.430712270687167*^9, 
   3.430712325829356*^9}, 3.431128724660828*^9, {3.4311288532287807`*^9, 
   3.43112887485139*^9}, {3.4311290669050207`*^9, 3.431129091698071*^9}, 
   3.4311291519999437`*^9, 3.4311293229803133`*^9, 3.431132581495636*^9, 
   3.4311326629179707`*^9, 3.4311337815588017`*^9, 3.4311339206115227`*^9, 
   3.431134244962225*^9, 3.4311342877475653`*^9, 3.431134322086576*^9, 
   3.431135172575574*^9, 3.431135239014373*^9, 3.431135323371272*^9, 
   3.431136495048875*^9, 3.4311365333297453`*^9, 3.431146268668858*^9, 
   3.4311465542426567`*^9, 3.4311472515733128`*^9, 3.431147302698215*^9, 
   3.4312860919225297`*^9, 3.431287721811184*^9, 3.4312925810946693`*^9, 
   3.4312932377426915`*^9, 3.4312942069877377`*^9, 3.432041563190222*^9, 
   3.432756659105022*^9, 3.432756778672182*^9, 3.4327569305545197`*^9, 
   3.432757377058752*^9, 3.4327711525257325`*^9, 3.4328195844155846`*^9, 
   3.4328196665904684`*^9, 3.4328277657834864`*^9, 3.4328291262254424`*^9, 
   3.432829377036086*^9, 3.4328428104165263`*^9, 3.4328429109070168`*^9, 
   3.4328533926309147`*^9, 3.4328566626825867`*^9, 3.4329186884214*^9, 
   3.433016414990305*^9, 3.433018021676521*^9, 3.433018188079159*^9, 
   3.433021194662491*^9, 3.4330219581699066`*^9, 3.4330428139334784`*^9, 
   3.433047134283512*^9, 3.43304774445656*^9, 3.433080948392379*^9, 
   3.433081774967967*^9, 3.4330947622046785`*^9, 3.4330952281360707`*^9, 
   3.433096700544561*^9, 3.4345037321170406`*^9, 3.4345042973472567`*^9, 
   3.434504840746953*^9, 3.4347577389354835`*^9, 3.4347794682060213`*^9, 
   3.4347803473963995`*^9, 3.4347805014302096`*^9, 3.434780692525463*^9, 
   3.4348068899417257`*^9, 3.4348073562990627`*^9, 3.4348074288097124`*^9, 
   3.434807482534286*^9, 3.434809154514772*^9, 3.434809444000662*^9, {
   3.434809510985297*^9, 3.434809613538916*^9}, 3.434811025879621*^9, 
   3.434837640003446*^9, 3.4352879340965953`*^9, 3.4352882406821575`*^9, 
   3.435288294256523*^9, {3.4352892667464075`*^9, 3.43528928829632*^9}, 
   3.435724577255118*^9, 3.435724798372044*^9, 3.445377139104599*^9, 
   3.4453773083445787`*^9, 3.44537750228959*^9, 3.4453775447297697`*^9, 
   3.4453786421659193`*^9, 3.445378893562396*^9, 3.4453799567800245`*^9, 
   3.4454534682116585`*^9, 3.446246383953168*^9, 3.44624653404402*^9, 
   3.4470117462125096`*^9, 3.4472577831183577`*^9, 3.447471522206809*^9, 
   3.4474719238963995`*^9, 3.4474726815707717`*^9, 3.447474032846863*^9, 
   3.447474563519349*^9, 3.447476243301257*^9, 3.4475564311870365`*^9, 
   3.4475598385926685`*^9, 3.4476447400750337`*^9, 3.447729022758136*^9, 
   3.447729094120037*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"ebYFunc", "[", 
       RowBox[{"stemID", ",", "0", ",", 
        RowBox[{"10", "+", "i"}], ",", "5", ",", "stemID", ",", "0", ",", "0",
         ",", "5"}], "]"}]}], ",", 
     RowBox[{"eaYFunc", "[", 
      RowBox[{"stemID", ",", "0", ",", 
       RowBox[{"10", "+", "i"}], ",", "5", ",", "stemID", ",", "0", ",", "0", 
       ",", "5"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Blue"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.43066064805873*^9, 3.4306606990199757`*^9}, {
  3.4306610378837223`*^9, 3.430661064881466*^9}, {3.4306611779695683`*^9, 
  3.430661192079294*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], Thickness[Large], 
    LineBox[{{-2.8955510616417692`, -511.5174763160135}, {-2.759299621084266, \
-464.6509503452434}, {-2.565070622576627, -406.3105791020597}, \
{-2.354331073163377, -351.2661214009837}, {-2.157693217742475, \
-306.65136961436787`}, {-1.9445448114159614`, -264.66736087730715`}, \
{-1.735294017449143, -229.0472852099888}, {-1.5401449174746724`, \
-200.16144087692763`}, {-1.3284852665945908`, -172.93485073882172`}, \
{-1.130927309706857, -150.8742542070558}, {-0.9168588019135122, \
-130.13514010916563`}, {-0.7066879064798623, -112.54943401170286`}, \
{-0.5106187050385604, -98.29299197930676}, {-0.2980389526916474, \
-84.86891093888053}, {-0.09956089433708235, -73.99548340351575}, {
     0.09501955165778773, -64.68909537471228}, {
     0.306110548558269, -55.91183925097971}, {
     0.5030998514664022, -48.79855791146509}, {
     0.7165997052801466, -42.107264835032005`}, {
     0.9262019467341961, -36.43144182570792}, {
     1.1217024941958975`, -31.8292345945678}, {
     1.3337135925632102`, -27.49304643919269}, {
     1.5316229969381747`, -23.980047793619974`}, {
     1.7256347889534445`, -20.97232150114777}, {
     1.9361571318743254`, -18.133841016688685`}, {
     2.132577780802858, -15.833014488352978`}, {
     2.345508980637002, -13.66734789296419}, {
     2.5443384864787983`, -11.913391049973}, {
     2.739270379960899, -10.412519540571067`}, {
     2.9507128243486114`, -8.997525706106737}, {
     3.148053574743976, -7.850925767170347}, {
     3.3619048760449513`, -6.772756793954621}, {
     3.5718585649862313`, -5.858404759010298}, {
     3.767710559935164, -5.11709848314044}, {
     3.9800731057897076`, -4.418908527806444}, {
     4.178333957651903, -3.8533349016478877`}, {
     4.3726971971544035`, -3.3692076977806305`}, {
     4.583570987562515, -2.9124980760784496`}, {
     4.780343083978279, -2.5423422697179436`}, {
     4.9936257312996535`, -2.1940636585005424`}, {
     4.993725326059321, -2.1939127173290696`}, {
     4.993824920818988, -2.1937617865416428`}, {
     4.994024110338323, -2.1934599561160284`}, {
     4.994422489376992, -2.192856419841817}, {
     4.995219247454332, -2.1916498454414723`}, {
     4.996812763609011, -2.189238687954166}, {
     4.996912358368679, -2.1890880787177833`}, {
     4.997011953128346, -2.1889374798425973`}, {
     4.99721114264768, -2.188636313172985}, {
     4.99760952168635, -2.1880341041368125`}, {
     4.998406279763689, -2.1868301831170696`}, {
     4.998505874523357, -2.1866797395743935`}, {
     4.9986054692830235`, -2.18652930638152}, {
     4.998804658802358, -2.1862284710423308`}, {
     4.999203037841028, -2.1856269245302506`}, {
     4.9993026326006955`, -2.1854765637660547`}, {
     4.999402227360362, -2.1853262133459723`}, {
     4.999601416879697, -2.185025543535277}, {
     4.999701011639365, -2.1848752241432394`}, {
     4.999800606399033, -2.1847249150924664`}, {
     4.999900201158701, -2.18457461638224}, {
     4.9999997959183675`, -2.184424328011859}}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwt1Hs0lHkcBnCmyS2H4Y1cknI5oVxCbtH85C7x/l6NdlXYUW21UyO3iJRE
Iu0a2alRW0q6Slq5rXa+YbWi7KbYUFFrbCWsSyvX/XVOf3zPcz7/Pef547uM
L2S2s+Tk5ALJfc6D/RtG5uYoOGDUIAleyYAsSXu8a5oCYW2nohNxIOfVf5Wf
KHiwUj9uMfFS56gZ4SgFl77XpftWMFCXJVLqkVFgsklVaT+xklXHEnhEQfXd
pkMSCwZOxUasP1xAwdBY4cleMwZuyMcUyTlSoF1QYx5lysD87T62uls1QdAk
v2nKgAHqr98EF3M14JbfbKPiIgaYekmk+UMOpDzxrHDmMJA05Cb44Y06pMVu
fNOpxEDVfsnu0iA1YK/qKJuWJ31FvKWzZ1Th7SMr95OTGHzO3Qv0HVCBJZR3
itcohuIHie0xm5XhQnZCVfIAhrCjp7RaryrCPV9vnkkfhpSIebcWUAqQG4sK
1r/EIGdpKPVIZ0PzYd1+cQeGzuwzx248Y0EOddmW9weGxSo7r42tkwcjtROZ
uU0YvlttMb9r8Zw0O8ktnFuHIdLx5dX6+ikp0OJdmr9gsEhwmdtbNCG1T9rb
HVmOofBFcEOi+7i0fFIoXF6CoT9Vy9VHZ0SqNu2ps6sYQ02+mdc/IR+k9oKB
bwzOY7B5+3zM+pxMes/a7uxHMQbPmi7lmZAeqeNXw/4bcjFEXSud0KDapE+K
sPOiLAwhO4wLnyRXS19ESP3C0jA8aHmeZRdcxT3CG7/clIzBxfL+HVrcxl3B
KHdfjcPAitfq3qbbw/XPdjrNFmJQVKVT+YMybnghq+TptxjSeto9oi994HLi
0l2aIjDcLsigU0b+5XrvWV3qHIpBeHEb5++Qce4VpY86hsFk390Sg2OpE1zR
mmqdwwEYjuN4Z7uzU9yWwe5BtjcG9sJ82aHJWW5+9CyeW4uhozl9+Ki6PGIy
c8pinTDwkvgOknoW6jYf04tYhUGw4L3R41A2EtU9t260wGB4o/FHhXfzkaW8
TVeQCYakKo9g9QJFFGDfspw2IHsUCyocrJXRbf2GjIfaGFRZjnyrPhVULoie
V6uOwWvPxnyLPFX02vnWuj+VMOhUGwi9TNSQVeDqiXAWBlF0Zq5Nhzri3+Zs
3zFFA5MRZHmugoO84chE3xgNFpuP8ooOaqBjbO3SzEEa2mXKF/N4mkgSYn7n
Uj8Nj/l97pqGFNqgwPJy7KVBkq+hkPiJQsLw4Z88Oml4nVG3LI+YrxD2cB2x
eUKMWwlxa2XzuDtxVeiz2F5iLZcrAYi43fDMG79JCtG1YZOuxNT1pff1piiU
XtnKcyA+8at1cu00hV5lVquaEz8t7RG3E8+kmDmZEesX5v48TCw6JI5cTnw9
bfSdyQyFzC7E1ZgS/+5b+XUOMTvcdqcRMbttrWPYLIXi20rq9YkDGoaYBGLT
fQZDesR5dy/sFREH6ubofbbRaVZxI7HKccE+HWK0tXGh9RyFbGUrDLWIMwP3
2/gR3+wo8F9I3Mo1C4gkPt+2IJ4iDjPKShMTD71736JBXEytOV9GHKCwZYJD
PMgeqGkmNl7ZYvzZDh/PtvcRx2xxDVIn/vLPkKv45gE14v8BoOtaZA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 5}, {-511.5174763160135, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.430660672012218*^9, 3.4306607008925943`*^9}, 
   3.430660997887806*^9, {3.430661045404236*^9, 3.430661065582446*^9}, 
   3.4306611926000223`*^9, 3.430664617167714*^9, {3.430665231997272*^9, 
   3.430665247949574*^9}, 3.430665785851584*^9, 3.430666132946838*^9, 
   3.4306671509200077`*^9, 3.430670337665214*^9, 3.430670748419466*^9, 
   3.4306804982224164`*^9, 3.4306914702918386`*^9, 3.4307053475628567`*^9, 
   3.4307054072062407`*^9, 3.430706831878332*^9, 3.430708593130638*^9, 
   3.430711852202999*^9, 3.430712106558012*^9, 3.430712182281375*^9, 
   3.430712221189945*^9, {3.4307122707173986`*^9, 3.4307123258898573`*^9}, 
   3.431128724830153*^9, {3.431128853280034*^9, 3.431128874905141*^9}, {
   3.4311290669525213`*^9, 3.431129091749557*^9}, 3.431129152054843*^9, 
   3.431129323009551*^9, 3.431132581763012*^9, 3.431132662970454*^9, 
   3.4311337818363457`*^9, 3.431133920664043*^9, 3.4311342452132473`*^9, 
   3.4311342878145723`*^9, 3.431134322113693*^9, 3.43113517262752*^9, 
   3.431135239068592*^9, 3.431135323418066*^9, 3.431136495127821*^9, 
   3.431136533357875*^9, 3.431146268695818*^9, 3.431146554295597*^9, 
   3.4311472516280727`*^9, 3.431147302751872*^9, 3.43128609202267*^9, 
   3.4312877219113235`*^9, 3.4312925811647673`*^9, 3.43129323781279*^9, 
   3.4312942070678496`*^9, 3.4320415632163363`*^9, 3.4327566591751204`*^9, 
   3.432756778852434*^9, 3.432756930624618*^9, 3.43275737712885*^9, 
   3.4327711526058445`*^9, 3.4328195844856825`*^9, 3.4328196666705804`*^9, 
   3.4328277658635983`*^9, 3.4328291263155684`*^9, 3.4328293771061845`*^9, 
   3.4328428104866247`*^9, 3.4328429109871283`*^9, 3.4328533927210407`*^9, 
   3.4328566627526846`*^9, 3.432918688501512*^9, 3.4330164151104727`*^9, 
   3.433018021866787*^9, 3.433018188159271*^9, 3.4330211947225747`*^9, 
   3.433021958250019*^9, 3.43304281401359*^9, 3.4330471343435965`*^9, 
   3.4330477445166445`*^9, 3.433080948472491*^9, 3.433081775028051*^9, 
   3.433094762264763*^9, 3.4330952281961546`*^9, 3.433096700614659*^9, 
   3.4345037321671104`*^9, 3.434504299219875*^9, 3.4345048408671207`*^9, 
   3.434757739045635*^9, 3.4347794682661047`*^9, 3.434780347476511*^9, 
   3.434780506817688*^9, 3.4347806925955606`*^9, 3.4348068900118227`*^9, 
   3.4348073563691597`*^9, 3.4348074288798094`*^9, 3.4348074826344247`*^9, 
   3.434809154545629*^9, 3.434809444037051*^9, {3.434809511018509*^9, 
   3.434809613580597*^9}, 3.434811026464901*^9, 3.434837640029038*^9, 
   3.4352879341666927`*^9, 3.435288240742241*^9, 3.43528829432662*^9, {
   3.435289266846546*^9, 3.435289288366418*^9}, 3.435724577335229*^9, 
   3.4357247984421415`*^9, 3.4453771393148966`*^9, 3.445377308454735*^9, 
   3.4453775023596897`*^9, 3.4453775447998695`*^9, 3.445378642296104*^9, 
   3.445378893672552*^9, 3.445379956900195*^9, 3.4454534683118*^9, 
   3.446246384063315*^9, 3.4462465341541677`*^9, 3.447011746282609*^9, 
   3.447257783178443*^9, 3.4474715222668943`*^9, 3.447471923956485*^9, 
   3.4474726816709137`*^9, 3.447474032957019*^9, 3.447474563609477*^9, 
   3.447476243391385*^9, 3.4475564312471223`*^9, 3.4475598387028265`*^9, 
   3.4476447402452765`*^9, 3.4477290228482647`*^9, 3.447729094400438*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"eaXFunc", "[", 
        RowBox[{"nrnID", ",", "0", ",", "0", ",", "5", ",", "nrnID", ",", 
         RowBox[{"10", "+", "i"}], ",", "0", ",", "5"}], "]"}], "+", 
       RowBox[{"ebXFunc", "[", 
        RowBox[{"nrnID", ",", "0", ",", "0", ",", "5", ",", "nrnID", ",", 
         RowBox[{"10", "+", "i"}], ",", "0", ",", "5"}], "]"}]}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"-", "5"}], ",", "5", ",", "0.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.4306156658213*^9, {3.430615722680792*^9, 3.430615723722248*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.`"}], ",", 
     RowBox[{"-", "2111.731417134457`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.5`"}], ",", 
     RowBox[{"-", "1474.0350300210316`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.`"}], ",", 
     RowBox[{"-", "1022.6595103260095`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.5`"}], ",", 
     RowBox[{"-", "703.1887658350723`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.`"}], ",", 
     RowBox[{"-", "477.0991545829411`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.5`"}], ",", 
     RowBox[{"-", "317.11802775745946`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.`"}], ",", 
     RowBox[{"-", "203.93782971515006`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.5`"}], ",", 
     RowBox[{"-", "123.88985893934192`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.`"}], ",", 
     RowBox[{"-", "67.29741691701872`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5`"}], ",", 
     RowBox[{"-", "27.309926828691985`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.9224472101786318`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.5`", ",", "20.833124977719784`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.`", ",", "34.852780444699505`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.5`", ",", "44.702197918853415`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.`", ",", "51.59959831767568`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.5`", ",", "56.40741492921816`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.`", ",", "59.73620269318285`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.5`", ",", "62.01820033841386`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.`", ",", "63.55940838801058`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.5`", ",", "64.57645756349108`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.`", ",", "65.22270961608172`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.430615666502252*^9, 3.430615725344516*^9, {3.430615823531786*^9, 
   3.4306158322840223`*^9}, 3.43061813006642*^9, 3.4306195383152122`*^9, 
   3.4306195812552443`*^9, 3.43065834553971*^9, 3.4306584317101803`*^9, 
   3.430658594167302*^9, {3.430658646901026*^9, 3.430658671575522*^9}, 
   3.430660135171692*^9, 3.430660525357188*^9, 3.430661072522148*^9, 
   3.430664617217784*^9, {3.4306652320473423`*^9, 3.4306652479896297`*^9}, 
   3.4306657858916397`*^9, 3.43066613297688*^9, 3.430667150960064*^9, 
   3.4306703377152843`*^9, 3.4306707484495077`*^9, 3.4306804982524586`*^9, 
   3.4306914703218803`*^9, 3.4307053475928984`*^9, 3.4307054072362823`*^9, 
   3.4307068320085144`*^9, 3.4307085931706944`*^9, 3.430711852221079*^9, 
   3.43071210657384*^9, 3.4307121823014727`*^9, 3.4307122212090273`*^9, {
   3.430712270736228*^9, 3.43071232592278*^9}, 3.4311287248802557`*^9, {
   3.431128853332855*^9, 3.431128874958076*^9}, {3.431129067000937*^9, 
   3.431129091804422*^9}, 3.431129152105822*^9, 3.431129323029542*^9, 
   3.4311325818221188`*^9, 3.431132663028274*^9, 3.431133781887084*^9, 
   3.431133920752945*^9, 3.431134245258936*^9, 3.4311342878642807`*^9, 
   3.4311343221318893`*^9, 3.431135172681047*^9, 3.431135239123719*^9, 
   3.431135323467065*^9, 3.431136495175733*^9, 3.431136533378936*^9, 
   3.4311462687124853`*^9, 3.4311465544443083`*^9, 3.4311472518197613`*^9, 
   3.4311473028044043`*^9, 3.4312860920727396`*^9, 3.4312877219613934`*^9, 
   3.43129258119481*^9, 3.4312932378428316`*^9, 3.431294207097892*^9, 
   3.4320415632326517`*^9, 3.432756659195148*^9, 3.432756778902504*^9, 
   3.43275693065466*^9, 3.432757377168906*^9, 3.4327711526258726`*^9, 
   3.432819584515724*^9, 3.4328196666906085`*^9, 3.4328277658936405`*^9, 
   3.432829126355624*^9, 3.4328293771562543`*^9, 3.4328428105166664`*^9, 
   3.4328429110171704`*^9, 3.4328533927510824`*^9, 3.4328566627827263`*^9, 
   3.432918688531554*^9, 3.433016415140515*^9, 3.4330180219068427`*^9, 
   3.433018188209341*^9, 3.4330211947626305`*^9, 3.433021958280061*^9, 
   3.4330428140436325`*^9, 3.433047134373638*^9, 3.433047744546686*^9, 
   3.433080948502533*^9, 3.433081775058093*^9, 3.4330947622948046`*^9, 
   3.4330952282161827`*^9, 3.433096700644701*^9, 3.434503732197153*^9, 
   3.4345042992799587`*^9, 3.434504840887149*^9, 3.434757739095704*^9, 
   3.4347794682961464`*^9, 3.4347803475065527`*^9, 3.4347805077990503`*^9, 
   3.434780692615588*^9, 3.4348068900418644`*^9, 3.4348073564092155`*^9, 
   3.434807428919865*^9, 3.434807482664467*^9, 3.434809154567355*^9, 
   3.4348094440718822`*^9, {3.434809511051682*^9, 3.434809613636004*^9}, 
   3.4348110266791687`*^9, 3.434837640047885*^9, 3.435287934226776*^9, 
   3.4352882407722826`*^9, 3.435288294356662*^9, {3.4352892669066296`*^9, 
   3.435289288386445*^9}, 3.435724577365271*^9, 3.435724798472183*^9, 
   3.445377139374982*^9, 3.4453773085248346`*^9, 3.4453775023997464`*^9, 
   3.445377544839926*^9, 3.4453786424463167`*^9, 3.4453788937326374`*^9, 
   3.4453799570103507`*^9, 3.445453468351857*^9, 3.446246384193489*^9, 
   3.4462465341942215`*^9, 3.4470117463126516`*^9, 3.4472577832084856`*^9, 
   3.4474715222869225`*^9, 3.447471924036598*^9, 3.4474726817209845`*^9, 
   3.4474740330872035`*^9, 3.447474563709619*^9, 3.447476243431442*^9, 
   3.4475564312771654`*^9, 3.447559838732869*^9, 3.447644740295348*^9, 
   3.447729022938393*^9, 3.447729094540638*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"gBoundaryCellAttract", "[", "#", "]"}], " ", "=", " ", "1"}], 
      ";"}], "&"}], ",", "gcellsIDs"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gBoundaryCellAttract", "[", "stromaID", "]"}], " ", "=", " ", 
   "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.432753406267416*^9, 3.432753496693836*^9}, 
   3.432753537340662*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ebBoundaryFunc", "[", 
   RowBox[{
   "curType_", ",", "curPos_", ",", "curRad_", ",", "curDir_", ",", 
    "nbrType_", ",", "boundPos_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"gBoundaryCellAttract", "[", "curType", "]"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"curDir", " ", 
      SuperscriptBox["\[ExponentialE]", 
       FractionBox[
        RowBox[{"curDir", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "boundPos"}], "+", "curPos"}], ")"}], " ", 
         "ebConst1"}], "curRad"]], " ", "ebConst1", " ", "ebConst2"}], ")"}], 
    "/", "curRad"}]}]}]], "Input",
 CellChangeTimes->{{3.4209920702593994`*^9, 3.420992191468856*^9}, {
   3.4209922724520736`*^9, 3.4209922846491256`*^9}, {3.420992348368208*^9, 
   3.4209923580317173`*^9}, 3.4209923884342213`*^9, 3.4209930507802095`*^9, {
   3.4327535023817883`*^9, 3.432753508300062*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ebBoundaryFunc", "[", 
  RowBox[{"nrnID", ",", "3", ",", "1", ",", "1", ",", "boundtype", ",", "0"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.420992401051862*^9, 3.4209924271984158`*^9}, {
  3.4209924722213593`*^9, 3.4209924886643476`*^9}, {3.4209925247447896`*^9, 
  3.4209925307632036`*^9}, {3.4209928181449757`*^9, 3.4209928192865715`*^9}, {
  3.420993075805196*^9, 3.4209931014210076`*^9}, {3.4209931942307596`*^9, 
  3.4209932022519736`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"Log", "[", "1000", "]"}], "10000"]], "Output",
 CellChangeTimes->{{3.4209924277391715`*^9, 3.4209924889447393`*^9}, {
   3.4209925264171276`*^9, 3.4209925312238474`*^9}, 3.4209928204782376`*^9, {
   3.420993057529646*^9, 3.420993102041876*^9}, {3.4209931949117117`*^9, 
   3.4209932024722815`*^9}, 3.4209940738204637`*^9, 3.4209953216449757`*^9, 
   3.4209957660662956`*^9, 3.421003445059119*^9, 3.421004305822503*^9, 
   3.421005003097323*^9, 3.421010385011469*^9, 3.4210105255179033`*^9, 
   3.421019535514263*^9, 3.4210259898476973`*^9, 3.421035179226206*^9, 
   3.421038337060994*^9, 3.421038647555078*^9, 3.4210766459557295`*^9, 
   3.421076907871899*^9, 3.421084573558857*^9, 3.421091539417425*^9, 
   3.4210972499209533`*^9, 3.421101232448697*^9, 3.421101738426075*^9, 
   3.4211028452033973`*^9, 3.4211031126573095`*^9, 3.421104057718545*^9, 
   3.421104864226077*^9, 3.421106447048931*^9, 3.4211097526803455`*^9, 
   3.4211175036665554`*^9, 3.421121781737481*^9, 3.421122942109731*^9, 
   3.4211623707845783`*^9, 3.421163436334262*^9, 3.421166399086316*^9, 
   3.421172219663732*^9, 3.4211738806358423`*^9, 3.4211745754071617`*^9, 
   3.421174855338518*^9, 3.421178263022606*^9, 3.421179356220944*^9, 
   3.4211806380029297`*^9, 3.421180880021282*^9, 3.421184546547242*^9, 
   3.42118536571247*^9, 3.421205018869874*^9, 3.421210368058268*^9, 
   3.4212521252528486`*^9, 3.4212543064622726`*^9, 3.4212609161773834`*^9, 
   3.421263558631647*^9, 3.4212664889683833`*^9, 3.421273377333323*^9, 
   3.421274926149969*^9, 3.42127512629757*^9, 3.421275214558267*^9, 
   3.421275614322488*^9, 3.421275800574538*^9, 3.421275852139429*^9, 
   3.421281963225877*^9, 3.421282293650964*^9, 3.421282386980221*^9, 
   3.421294990696336*^9, 3.421296109079267*^9, 3.421296185719342*^9, 
   3.421297672648128*^9, 3.421297886559534*^9, 3.421297926298609*^9, 
   3.421299021821954*^9, 3.421299123374085*^9, 3.421299176655838*^9, 
   3.421299253078203*^9, 3.4213284501688147`*^9, 3.421329180203246*^9, 
   3.4213292618477287`*^9, 3.4213337369587*^9, 3.421334345393721*^9, 
   3.4213344344030724`*^9, 3.4213375736204367`*^9, 3.4213378466036663`*^9, 
   3.4213379276080313`*^9, 3.421344038053162*^9, 3.421344180952389*^9, 
   3.421361915239295*^9, 3.421362036131276*^9, 3.4213620909168177`*^9, 
   3.421362141825549*^9, 3.421446852427145*^9, 3.4214492822588177`*^9, 
   3.421449485517907*^9, 3.4214508133099766`*^9, 3.4214511197784324`*^9, 
   3.4214528573075724`*^9, 3.4214540833316064`*^9, 3.421458389295885*^9, 
   3.421458511466685*^9, 3.421537978796528*^9, 3.421538077944512*^9, 
   3.421538121094925*^9, 3.4215381624972363`*^9, 3.4215383466944427`*^9, 
   3.4215500419143467`*^9, 3.42155605280299*^9, 3.421556165572527*^9, 
   3.42155627906208*^9, 3.4215893079929905`*^9, 3.4215946838887224`*^9, 
   3.4215947565703344`*^9, 3.4216269433467197`*^9, 3.422132041239244*^9, 
   3.4227586776167593`*^9, 3.4228122678585014`*^9, 3.4228125905263877`*^9, 
   3.422819590182404*^9, 3.4228196303982267`*^9, 3.422820049029316*^9, 
   3.422838235482466*^9, 3.422844929224536*^9, 3.422847465745406*^9, 
   3.4229783319714146`*^9, 3.4233684567369843`*^9, 3.423426166724422*^9, 
   3.42342624875911*^9, 3.423429172638101*^9, 3.4234292466816173`*^9, 
   3.423430711058879*^9, 3.423452008393463*^9, 3.423453431483003*^9, 
   3.423489318717111*^9, 3.4234914432172527`*^9, 3.423506950407311*^9, 
   3.423507083693651*^9, 3.423507379777589*^9, 3.423510419206841*^9, 
   3.423512159830307*^9, 3.423513507904973*^9, 3.423516600939167*^9, 
   3.423518266567787*^9, 3.423538898218101*^9, 3.423539696391374*^9, 
   3.4235397719579697`*^9, 3.42353984374195*^9, 3.4235745066378803`*^9, 
   3.423576649748917*^9, 3.4235769810803547`*^9, 3.423578728962315*^9, 
   3.4235828154822073`*^9, 3.423589469246544*^9, 3.42359092591571*^9, 
   3.42359120831914*^9, 3.423591538747497*^9, 3.423592475408141*^9, 
   3.42359264328645*^9, 3.423594841317984*^9, 3.423598440072028*^9, 
   3.423599366252572*^9, 3.423604812005226*^9, 3.423605212800097*^9, 
   3.423606762454101*^9, 3.4236068355039597`*^9, 3.4236069099470987`*^9, 
   3.42360713124406*^9, 3.423621387339878*^9, 3.423621549471601*^9, 
   3.423621804750093*^9, 3.4236218883237143`*^9, 3.423624424748332*^9, 
   3.4238867525154133`*^9, 3.42392536594188*^9, 3.4239455554576864`*^9, 
   3.4239693252789125`*^9, 3.4239699295637283`*^9, 3.4239703129296904`*^9, 
   3.4239705066405063`*^9, 3.4239718098155327`*^9, 3.423972060728981*^9, 
   3.423972115259828*^9, 3.423972159959124*^9, 3.4239722206763372`*^9, 
   3.424010829933544*^9, 3.424010899936557*^9, 3.4240109722419567`*^9, 
   3.424011039813058*^9, 3.424011097693461*^9, 3.424011158425091*^9, 
   3.424023473287958*^9, 3.4240565333808393`*^9, 3.4241290087811236`*^9, 
   3.4244666263118563`*^9, {3.4244682176365957`*^9, 3.424468246246594*^9}, 
   3.424471228894971*^9, 3.424472528970949*^9, 3.424472603776175*^9, 
   3.424472711885912*^9, {3.424472762715535*^9, 3.424472830736926*^9}, 
   3.424473445473915*^9, 3.424473511055934*^9, 3.424473997689682*^9, 
   3.42447404319561*^9, {3.424474092652238*^9, 3.424474110562121*^9}, {
   3.424474143091831*^9, 3.4244741675058603`*^9}, 3.424628965989055*^9, 
   3.424632273032443*^9, 3.4272153630929594`*^9, 3.427217473253053*^9, 
   3.4273400985908833`*^9, 3.427340152457662*^9, 3.4273402011117077`*^9, 
   3.427340246210272*^9, 3.427340284002684*^9, 3.427340334654241*^9, 
   3.4276856711535254`*^9, 3.4276857056717834`*^9, 3.427724054450742*^9, 
   3.427724192433648*^9, 3.427724228574174*^9, 3.42772652091897*^9, 
   3.427741124575506*^9, 3.4277420285693283`*^9, 3.4277482058754663`*^9, 
   3.4277580835020733`*^9, 3.427768114185397*^9, 3.427770814079965*^9, 
   3.427773625210045*^9, 3.4278144390508194`*^9, 3.427814619042455*^9, 
   3.427897737038892*^9, 3.427898088109704*^9, 3.42789826269378*^9, 
   3.427898687818122*^9, 3.42789999661788*^9, 3.42790013626311*^9, 
   3.427900275647976*^9, 3.427901504515986*^9, 3.427901595112644*^9, 
   3.427901800099224*^9, 3.427903198013568*^9, 3.427903864815786*^9, 
   3.427903950785976*^9, 3.42790406590692*^9, 3.427904270733276*^9, 
   3.4279086024491997`*^9, 3.4279086796371117`*^9, 3.427908944607552*^9, 
   3.427909042694682*^9, 3.4279093601785383`*^9, 3.4279136348447037`*^9, 
   3.4279898248484173`*^9, 3.427989928413205*^9, 3.4279902807257533`*^9, 
   3.4279909559197035`*^9, 3.4279961756058493`*^9, {3.427996219575159*^9, 
   3.4279963189776907`*^9}, 3.427999872850539*^9, 3.428000626668977*^9, {
   3.42800068818784*^9, 3.428000794836359*^9}, 3.428032213495881*^9, 
   3.4280721013531156`*^9, 3.428073813797186*^9, 3.4280756842121058`*^9, 
   3.4280762770601892`*^9, 3.4280763954529057`*^9, {3.42807642570778*^9, 
   3.428076445491267*^9}, 3.4280764781861362`*^9, 3.4280765127679996`*^9, 
   3.4280841453412313`*^9, 3.428085567451569*^9, 3.428087018312048*^9, 
   3.428087850349732*^9, 3.4280920764894643`*^9, 3.4280974187782125`*^9, 
   3.428154480026888*^9, 3.428155131898232*^9, 3.428293405951325*^9, 
   3.428293591562909*^9, {3.428293691618327*^9, 3.4282937932531223`*^9}, 
   3.428418693291645*^9, 3.4284505867694044`*^9, 3.4284996718497076`*^9, 
   3.4285494321172824`*^9, 3.428599095355879*^9, 3.428625182655726*^9, {
   3.428625262407477*^9, 3.428625398365417*^9}, 3.42870300717553*^9, 
   3.4294513036189327`*^9, 3.429451368789653*^9, {3.429451409138722*^9, 
   3.4294514319473352`*^9}, 3.429456718025446*^9, 3.429796525421384*^9, 
   3.42979659170405*^9, 3.429896436418144*^9, 3.429896782011298*^9, 
   3.429969425055957*^9, 3.430073759767178*^9, 3.430601017710309*^9, 
   3.4306646172678537`*^9, {3.430665232127454*^9, 3.430665248019672*^9}, 
   3.430665785931696*^9, 3.430666132996908*^9, 3.430667150990106*^9, 
   3.43067033775534*^9, 3.430670748469536*^9, 3.4306804982724867`*^9, 
   3.4306914703419085`*^9, 3.4307053476129265`*^9, 3.430705407266324*^9, 
   3.4307068320285425`*^9, 3.4307085931807084`*^9, 3.430711852300292*^9, 
   3.430712106601116*^9, 3.430712182330701*^9, 3.430712221542248*^9, {
   3.430712270919651*^9, 3.430712325975231*^9}, 3.43112872493524*^9, {
   3.4311288535381193`*^9, 3.4311288750162783`*^9}, {3.4311290670501432`*^9, 
   3.4311290918617697`*^9}, 3.431129152186831*^9, 3.4311293230888243`*^9, 
   3.431132581924428*^9, 3.431132663125415*^9, 3.431133781973538*^9, 
   3.431133920838807*^9, 3.431134245309511*^9, 3.4311342879360237`*^9, 
   3.431134322182417*^9, 3.431135172773551*^9, 3.431135239230249*^9, 
   3.431135323524485*^9, 3.431136495241946*^9, 3.431136533436864*^9, 
   3.431146268772295*^9, 3.431146554497224*^9, 3.431147251880948*^9, 
   3.4311473028952627`*^9, 3.431286092132824*^9, 3.4312877220114636`*^9, 
   3.4312925812148376`*^9, 3.4312932378728733`*^9, 3.4312942072280736`*^9, 
   3.432041563302884*^9, 3.43275665922519*^9, 3.432756779002644*^9, 
   3.4327569306746883`*^9, 3.4327573771889343`*^9, 3.4327711526559143`*^9, 
   3.432819584675948*^9, 3.4328196667206507`*^9, 3.4328277659136686`*^9, 
   3.4328291263956804`*^9, 3.4328293771762824`*^9, 3.432842810546708*^9, 
   3.4328429110472126`*^9, 3.4328533927711105`*^9, 3.4328566628127685`*^9, 
   3.432918688561596*^9, 3.433016415170557*^9, 3.4330180219468985`*^9, 
   3.4330181883795786`*^9, 3.4330211947826586`*^9, 3.433021958320117*^9, 
   3.4330428140937023`*^9, 3.4330471343936663`*^9, 3.4330477445667143`*^9, 
   3.433080948522561*^9, 3.4330817750781207`*^9, 3.4330947623148327`*^9, 
   3.433095228246225*^9, 3.4330967006747427`*^9, 3.4345037322071667`*^9, 
   3.434504299299987*^9, 3.434504840907177*^9, 3.434757739255925*^9, 
   3.434779468336202*^9, 3.4347803475365944`*^9, 3.434780508890565*^9, 
   3.43478069264563*^9, 3.434806890091934*^9, 3.434807356439257*^9, 
   3.434807428959921*^9, 3.4348074826844945`*^9, 3.434809154873948*^9, 
   3.4348094441508217`*^9, {3.434809511203917*^9, 3.4348096137012978`*^9}, 
   3.434811028430352*^9, 3.434837640200148*^9, 3.435287934276846*^9, 
   3.4352882408023243`*^9, 3.43528829437669*^9, {3.4352892669967546`*^9, 
   3.4352892884164867`*^9}, 3.435724577395313*^9, 3.4357247985322666`*^9, 
   3.4453771394550953`*^9, 3.4453773086650333`*^9, 3.445377502449817*^9, 
   3.445377544900011*^9, 3.4453786425164165`*^9, 3.4453788938928647`*^9, 
   3.4453799571205072`*^9, 3.445453468401928*^9, 3.4462463842535696`*^9, 
   3.4462465342543015`*^9, 3.4470117463527083`*^9, 3.447257783228514*^9, 
   3.4474715223069515`*^9, 3.4474719240466127`*^9, 3.447472681821127*^9, 
   3.447474033157303*^9, 3.4474745638698463`*^9, 3.447476243491527*^9, 
   3.447556431307208*^9, 3.4475598387428837`*^9, 3.447644740385477*^9, 
   3.447729023128665*^9, 3.4477290951515102`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ebBoundaryFunc", "[", 
  RowBox[{"stromaID", ",", "3", ",", "1", ",", 
   RowBox[{"-", "1"}], ",", "boundtype", ",", "4"}], "]"}]], "Input",
 CellChangeTimes->{{3.4209932172229033`*^9, 3.420993237961898*^9}, {
  3.432910653558318*^9, 3.432910654629816*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.420993234777446*^9, 3.4209932381521635`*^9}, 
   3.4209940738304777`*^9, 3.420995321665004*^9, 3.4209957660963373`*^9, 
   3.4210034450791473`*^9, 3.421004305842531*^9, 3.421005003107337*^9, 
   3.421010385021483*^9, 3.421010525527917*^9, 3.4210195355242767`*^9, 
   3.421025989857711*^9, 3.421035179246234*^9, 3.42103833710105*^9, 
   3.421038647565092*^9, 3.421076645975757*^9, 3.4210769079219694`*^9, 
   3.4210845735688715`*^9, 3.421091539427439*^9, 3.4210972499309673`*^9, 
   3.421101232458711*^9, 3.4211017384360895`*^9, 3.4211028452134113`*^9, 
   3.421103112667323*^9, 3.421104057738573*^9, 3.421104864236091*^9, 
   3.421106447058945*^9, 3.421109752700373*^9, 3.421117503676569*^9, 
   3.421121781747495*^9, 3.4211229421197453`*^9, 3.421162370794592*^9, 
   3.42116343635429*^9, 3.4211663990963297`*^9, 3.421172219673746*^9, 
   3.42117388065587*^9, 3.4211745754171762`*^9, 3.4211748553485317`*^9, 
   3.421178263062662*^9, 3.421179356230958*^9, 3.421180638012944*^9, 
   3.421180880031296*^9, 3.4211845465572557`*^9, 3.421185365732498*^9, 
   3.421205018889902*^9, 3.4212103680782957`*^9, 3.4212521252728767`*^9, 
   3.421254306472286*^9, 3.4212609161974115`*^9, 3.421263558641661*^9, 
   3.4212664889783974`*^9, 3.421273377512827*^9, 3.421274926187682*^9, 
   3.421275126343511*^9, 3.421275214607665*^9, 3.421275614357884*^9, 
   3.4212758006227016`*^9, 3.421275852200077*^9, 3.4212819632651443`*^9, 
   3.4212822936834297`*^9, 3.421282387031698*^9, 3.42129499072604*^9, 
   3.4212961092368317`*^9, 3.421296185875835*^9, 3.421297672855392*^9, 
   3.421297886589224*^9, 3.4212979263613167`*^9, 3.4212990218518677`*^9, 
   3.4212991234132957`*^9, 3.421299176686225*^9, 3.4212992531299763`*^9, 
   3.4213284502095537`*^9, 3.421329180775509*^9, 3.4213292618762617`*^9, 
   3.421333736987205*^9, 3.421334345420148*^9, 3.421334434433648*^9, 
   3.421337573645093*^9, 3.421337846631234*^9, 3.421337927930929*^9, 
   3.4213440380829573`*^9, 3.4213441809835052`*^9, 3.4213619152665377`*^9, 
   3.421362036159704*^9, 3.421362090944454*^9, 3.421362141861307*^9, 
   3.421446852456335*^9, 3.42144928228469*^9, 3.421449485542944*^9, 
   3.42145081331999*^9, 3.4214511197884464`*^9, 3.4214528573276005`*^9, 
   3.4214540833416204`*^9, 3.4214583893159127`*^9, 3.421458511476699*^9, 
   3.421537978821315*^9, 3.4215380779738894`*^9, 3.421538121128949*^9, 
   3.421538162528204*^9, 3.421538346743781*^9, 3.421550041969475*^9, 
   3.4215560528290033`*^9, 3.421556165745347*^9, 3.421556279088888*^9, 
   3.4215893080330467`*^9, 3.4215946839087505`*^9, 3.4215947565803485`*^9, 
   3.4216269433467197`*^9, 3.422132041259272*^9, 3.4227586776468015`*^9, 
   3.4228122678785295`*^9, 3.4228125905664434`*^9, 3.4228195902124457`*^9, 
   3.4228196304182544`*^9, 3.422820049049344*^9, 3.4228382354924803`*^9, 
   3.4228449292746058`*^9, 3.422847465765434*^9, 3.422978331981429*^9, 
   3.423368456767026*^9, 3.42342616674445*^9, 3.423426248789152*^9, 
   3.4234291726681433`*^9, 3.4234292467116594`*^9, 3.4234307110688934`*^9, 
   3.423452008403477*^9, 3.423453431493017*^9, 3.423489318727125*^9, 
   3.423491443237281*^9, 3.423506950417325*^9, 3.423507083743721*^9, 
   3.423507379797617*^9, 3.423510419216855*^9, 3.423512159920433*^9, 
   3.423513507914987*^9, 3.423516600949181*^9, 3.423518266627871*^9, 
   3.423538898265973*^9, 3.4235396964352217`*^9, 3.423539772212055*^9, 
   3.4235398437928753`*^9, 3.4235745066766653`*^9, 3.423576649794096*^9, 
   3.423576981124794*^9, 3.423578729005472*^9, 3.423582815528267*^9, 
   3.4235894693051*^9, 3.4235909259566603`*^9, 3.4235912095125837`*^9, 
   3.423591538791617*^9, 3.423592475452374*^9, 3.423592643336418*^9, 
   3.4235948413566647`*^9, 3.423598440119337*^9, 3.4235993662891817`*^9, 
   3.423604812057069*^9, 3.42360521285005*^9, 3.4236067624900827`*^9, 
   3.423606835546104*^9, 3.423606909985435*^9, 3.4236071312949266`*^9, 
   3.423621387379923*^9, 3.423621549513749*^9, 3.423621804790464*^9, 
   3.4236218883663187`*^9, 3.423624424792426*^9, 3.423886752525428*^9, 
   3.4239253659619083`*^9, 3.4239455554777145`*^9, 3.423969325288926*^9, 
   3.423969929623812*^9, 3.423970312939704*^9, 3.4239705066505203`*^9, 
   3.423971809852415*^9, 3.4239720610639*^9, 3.423972115319262*^9, 
   3.423972160023829*^9, 3.4239722207231503`*^9, 3.424010829984893*^9, 
   3.424010899975439*^9, 3.4240109722862263`*^9, 3.424011039867999*^9, 
   3.424011097806076*^9, 3.4240111585398197`*^9, 3.424023473383196*^9, 
   3.4240565334509373`*^9, 3.424129008811166*^9, 3.424466626341898*^9, {
   3.424468217666638*^9, 3.424468246276636*^9}, 3.4244712289389973`*^9, 
   3.4244725290214653`*^9, 3.424472603800638*^9, 3.424472711904648*^9, {
   3.424472762731781*^9, 3.424472830769587*^9}, 3.424473445511932*^9, 
   3.424473511126211*^9, 3.424473997702725*^9, 3.424474043211966*^9, {
   3.424474092666379*^9, 3.424474110579998*^9}, {3.424474143112137*^9, 
   3.424474167530759*^9}, 3.424628965999069*^9, 3.424632273042457*^9, 
   3.427215363143029*^9, 3.4272174733031235`*^9, 3.42734009860443*^9, 
   3.427340152471901*^9, 3.4273402011273613`*^9, 3.4273402462244673`*^9, 
   3.427340284019697*^9, 3.427340334679119*^9, 3.4276856711835675`*^9, 
   3.4276857057719235`*^9, 3.42772405447077*^9, 3.427724192453676*^9, 
   3.427724228594202*^9, 3.427726520938998*^9, 3.427741124625576*^9, 
   3.427742028589356*^9, 3.427748205925536*^9, 3.4277580835221014`*^9, 
   3.4277681142054253`*^9, 3.427770816212947*^9, 3.4277736252200594`*^9, 
   3.4278144390708475`*^9, 3.4278146190724974`*^9, 3.4278977370489063`*^9, 
   3.427898088129732*^9, 3.427898262713808*^9, 3.427898687848164*^9, 
   3.427899996657936*^9, 3.4279001362831383`*^9, 3.427900275688032*^9, 
   3.427901504546028*^9, 3.42790159525284*^9, 3.427901800129266*^9, 
   3.427903198033596*^9, 3.427903864835814*^9, 3.427903950806004*^9, 
   3.427904065936962*^9, 3.427904270773332*^9, 3.42790860249927*^9, 
   3.427908679747266*^9, 3.4279089446576223`*^9, 3.4279090427347383`*^9, 
   3.427909360198566*^9, 3.42791363488476*^9, 3.4279898248684454`*^9, 
   3.4279899284432473`*^9, 3.427990280765809*^9, 3.4279909559197035`*^9, 
   3.427996175621746*^9, {3.427996219590227*^9, 3.427996319002129*^9}, 
   3.427999873107386*^9, 3.4280006266861277`*^9, {3.428000688201736*^9, 
   3.428000794867284*^9}, 3.4280322135058947`*^9, 3.4280721013631296`*^9, 
   3.4280738138172135`*^9, 3.4280756842221193`*^9, 3.428076277124249*^9, 
   3.428076395470292*^9, {3.428076425724077*^9, 3.4280764455108337`*^9}, 
   3.4280764782172737`*^9, 3.4280765127915583`*^9, 3.428084145377369*^9, 
   3.428085567489854*^9, 3.428087018354638*^9, 3.428087850389312*^9, 
   3.4280920764994783`*^9, 3.4280974187982407`*^9, 3.428154480086972*^9, 
   3.428155131928274*^9, 3.4282934060116453`*^9, 3.4282935915746317`*^9, {
   3.428293691630459*^9, 3.428293793276135*^9}, 3.428418693361743*^9, 
   3.428450586799446*^9, 3.4284996718997774`*^9, 3.4285494321272964`*^9, 
   3.428599095365893*^9, 3.428625182672476*^9, {3.428625262421154*^9, 
   3.428625398423143*^9}, 3.428703007240889*^9, 3.429451303640832*^9, 
   3.4294513688113127`*^9, {3.429451409159238*^9, 3.4294514319679832`*^9}, 
   3.4294567180491467`*^9, 3.429796525431398*^9, 3.4297965917441063`*^9, 
   3.4298964364381723`*^9, 3.4298967820313263`*^9, 3.429969425065971*^9, 
   3.430073759777192*^9, 3.4306010177703934`*^9, 3.430664617317924*^9, {
   3.4306652321975517`*^9, 3.430665248029686*^9}, 3.430665785951724*^9, 
   3.430666133006922*^9, 3.4306671510101337`*^9, 3.4306703377853823`*^9, 
   3.43067074847955*^9, 3.4306804982825003`*^9, 3.4306914703519225`*^9, 
   3.43070534762294*^9, 3.4307054072763386`*^9, 3.430706832038556*^9, 
   3.430708593200736*^9, 3.43071185236242*^9, 3.4307121066174707`*^9, 
   3.4307121823490353`*^9, 3.43071222167033*^9, {3.430712270941633*^9, 
   3.430712326013494*^9}, 3.431128724987838*^9, {3.431128853584444*^9, 
   3.431128875065386*^9}, {3.431129067088839*^9, 3.431129091908835*^9}, 
   3.43112915225274*^9, 3.431129323146879*^9, 3.431132581978445*^9, 
   3.4311326631748333`*^9, 3.4311337820193987`*^9, 3.431133920882821*^9, 
   3.431134245351351*^9, 3.431134287992271*^9, 3.4311343222328033`*^9, 
   3.43113517282545*^9, 3.431135239278817*^9, 3.431135323567747*^9, 
   3.431136495297827*^9, 3.431136533481501*^9, 3.431146268826728*^9, 
   3.431146554546294*^9, 3.431147251935823*^9, 3.431147302945861*^9, 
   3.4312860921628656`*^9, 3.431287722041506*^9, 3.4312925812348657`*^9, 
   3.431293237882888*^9, 3.4312942072481017`*^9, 3.432041563361579*^9, 
   3.4327566592352037`*^9, 3.432756779062728*^9, 3.432756930684702*^9, 
   3.432757377198948*^9, 3.4327711526659284`*^9, 3.4328195846859627`*^9, 
   3.4328196667406783`*^9, 3.4328277659336967`*^9, 3.432829126425722*^9, 
   3.4328293771862965`*^9, 3.4328428105567226`*^9, 3.432842911057226*^9, 
   3.4328533927911386`*^9, 3.4328566628227825`*^9, 3.432910655380866*^9, 
   3.43291868857161*^9, 3.433016415240655*^9, 3.433018021976941*^9, 
   3.433018188409621*^9, 3.433021194792673*^9, 3.4330219583501587`*^9, 
   3.4330428141137304`*^9, 3.4330471344136944`*^9, 3.433047744576728*^9, 
   3.4330809485325747`*^9, 3.433081775088135*^9, 3.4330947623248467`*^9, 
   3.433095228256239*^9, 3.4330967006847568`*^9, 3.4345037322171807`*^9, 
   3.434504299299987*^9, 3.4345048409171906`*^9, 3.434757739305994*^9, 
   3.434779468346216*^9, 3.4347803475466084`*^9, 3.434780508900579*^9, 
   3.434780692655644*^9, 3.4348068901119623`*^9, 3.434807356459285*^9, 
   3.434807428979949*^9, 3.4348074826945086`*^9, 3.434809154971779*^9, 
   3.4348094441807528`*^9, {3.4348095112306337`*^9, 3.434809613736287*^9}, 
   3.434811028600923*^9, 3.434837640335017*^9, 3.435287934296873*^9, 
   3.4352882408123384`*^9, 3.4352882943867035`*^9, {3.4352892670368104`*^9, 
   3.435289288426501*^9}, 3.435724577405327*^9, 3.43572479854228*^9, 
   3.445377139535209*^9, 3.4453773087251186`*^9, 3.445377502489874*^9, 
   3.4453775449400682`*^9, 3.4453786425664873`*^9, 3.44537889395295*^9, 
   3.4453799571805925`*^9, 3.4454534684720273`*^9, 3.4462463843036366`*^9, 
   3.4462465343043685`*^9, 3.447011746372737*^9, 3.4472577832385283`*^9, 
   3.447471522316965*^9, 3.447471924056627*^9, 3.447472681951311*^9, 
   3.4474740332274027`*^9, 3.447474564010045*^9, 3.4474762435215693`*^9, 
   3.4475564313172226`*^9, 3.4475598387528973`*^9, 3.4476447404155197`*^9, 
   3.4477290232087793`*^9, 3.447729095211596*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ebBoundaryFunc", "[", 
    RowBox[{"curType", ",", "x", ",", "5", ",", 
     RowBox[{"-", "1"}], ",", "nbrType", ",", "10"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4229800805259686`*^9, 3.422980205741025*^9}}],

Cell[BoxData[
 GraphicsBox[
  GraphicsComplexBox[{{-4.999999897959183, 0.}, {-4.901856693992348, 
   0.}, {-4.795458214572706, 0.}, {-4.696110582149239, 
   0.}, {-4.59871175590562, 0.}, {-4.493057654209195, 
   0.}, {-4.394454399508944, 0.}, {-4.287595869355887, 
   0.}, {-4.182686145382678, 0.}, {-4.084827268405642, 
   0.}, {-3.9787131159758014`, 0.}, {-3.8796498105421344`, 
   0.}, {-3.782535311288315, 0.}, {-3.6771655365816898`, 
   0.}, {-3.5788466088712387`, 0.}, {-3.472272405707982, 
   0.}, {-3.367647008724573, 0.}, {-3.2700724587373378`, 
   0.}, {-3.164242633297297, 0.}, {-3.0654636548534304`, 
   0.}, {-2.958429400956758, 0.}, {-2.8533439532399334`, 
   0.}, {-2.7553093525192827`, 0.}, {-2.6490194763458264`, 
   0.}, {-2.549780447168544, 0.}, {-2.4524902241711093`, 
   0.}, {-2.346944725720869, 0.}, {-2.2484500742668025`, 
   0.}, {-2.1417001473599306`, 0.}, {-2.036899026632906, 
   0.}, {-1.9391487529020555`, 0.}, {-1.833143203718399, 
   0.}, {-1.7341885015309166`, 0.}, {-1.6371826055232817`, 
   0.}, {-1.531921434062841, 0.}, {-1.4337111095985746`, 
   0.}, {-1.3272455096815026`, 0.}, {-1.2278307567606044`, 
   0.}, {-1.130364810019554, 0.}, {-1.0246435878256979`, 
   0.}, {-0.9259732126280158, 0.}, {-0.8190475619775281, 
   0.}, {-0.7140707175068879, 0.}, {-0.6161447200324217, 
   0.}, {-0.50996344710515, 0.}, {-0.4108330211740522, 
   0.}, {-0.31365140142280185`, 0.}, {-0.20821450621874596`, 
   0.}, {-0.10982845801086406`, 0.}, {-0.003187134350176586, 
   0.}, {-1.0204081632653061`*^-7, 0.}}, {}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 0}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.422980147159125*^9, 3.422980206101529*^9}, 
   3.423368456817096*^9, 3.4234261667744923`*^9, 3.423426248839222*^9, 
   3.423429172718213*^9, 3.4234292467717433`*^9, 3.423430711098935*^9, 
   3.4234520084335194`*^9, 3.423453431523059*^9, 3.423489318767181*^9, 
   3.423491443277337*^9, 3.4235069504573812`*^9, 3.4235070839339867`*^9, 
   3.4235073798276587`*^9, 3.4235104192569113`*^9, 3.423512160030587*^9, 
   3.423513507955043*^9, 3.423516600989237*^9, 3.423518266717997*^9, 
   3.423538898309623*^9, 3.4235396964781857`*^9, 3.423539772256476*^9, 
   3.423539843845612*^9, 3.4235745067181873`*^9, 3.4235766498412*^9, 
   3.4235769811727343`*^9, 3.423578729049006*^9, 3.4235828158517523`*^9, 
   3.423589469350238*^9, 3.423590926001133*^9, 3.4235912105177383`*^9, 
   3.423591538990828*^9, 3.423592475496958*^9, 3.423592643640766*^9, 
   3.423594841398485*^9, 3.423598440168141*^9, 3.4235993663281097`*^9, 
   3.423604812104739*^9, 3.423605212898073*^9, 3.423606762523362*^9, 
   3.4236068355923*^9, 3.423606910023391*^9, 3.4236071314362926`*^9, 
   3.4236213874211073`*^9, 3.423621549553505*^9, 3.4236218048313637`*^9, 
   3.423621888410129*^9, 3.423624424841704*^9, 3.4238867525554695`*^9, 
   3.423925366001964*^9, 3.4239455555277843`*^9, 3.4239693253289824`*^9, 
   3.423969929703924*^9, 3.42397031297976*^9, 3.4239705066905766`*^9, 
   3.423971809889328*^9, 3.423972061118958*^9, 3.423972115366385*^9, 
   3.423972160091202*^9, 3.4239722207670727`*^9, 3.424010830034751*^9, 
   3.424010900020055*^9, 3.424010972331972*^9, 3.4240110399223213`*^9, 
   3.424011097933065*^9, 3.4240111586612*^9, 3.424023473488391*^9, 
   3.4240565335610914`*^9, 3.4241290090214596`*^9, 3.4244666263719397`*^9, {
   3.424468217716708*^9, 3.424468246326706*^9}, 3.424471228987893*^9, 
   3.4244725290694103`*^9, 3.4244726038258677`*^9, 3.424472711924642*^9, {
   3.424472762751595*^9, 3.42447283080338*^9}, 3.424473445552767*^9, 
   3.424473511201584*^9, 3.4244739977176323`*^9, 3.424474043226666*^9, {
   3.424474092681444*^9, 3.424474110600675*^9}, {3.424474143131392*^9, 
   3.4244741675658083`*^9}, 3.424628966029111*^9, 3.424632273082513*^9, 
   3.427215363213127*^9, 3.427217473383235*^9, 3.4273400986197853`*^9, 
   3.4273401524859257`*^9, 3.427340201141962*^9, 3.427340246238899*^9, 
   3.42734028403846*^9, 3.4273403347218037`*^9, 3.427685671233638*^9, 
   3.4276857058320074`*^9, 3.427724054500812*^9, 3.427724192503746*^9, 
   3.427724228644272*^9, 3.427726521009096*^9, 3.42774112468566*^9, 
   3.427742028639426*^9, 3.42774820598562*^9, 3.427758083572171*^9, 
   3.427768114235467*^9, 3.427770816273031*^9, 3.4277736252400875`*^9, 
   3.427814439100889*^9, 3.427814619112553*^9, 3.427897737068934*^9, 
   3.427898088179802*^9, 3.4278982627538643`*^9, 3.427898687908248*^9, 
   3.42789999671802*^9, 3.427900136333208*^9, 3.427900275738102*^9, 
   3.427901504586084*^9, 3.42790159530291*^9, 3.427901800169322*^9, 
   3.4279031980736523`*^9, 3.427903864865856*^9, 3.427903950836046*^9, 
   3.4279040659770184`*^9, 3.42790427084343*^9, 3.427908602579382*^9, 
   3.4279086798173637`*^9, 3.4279089447277203`*^9, 3.4279090427948217`*^9, 
   3.42790936025865*^9, 3.4279136349448442`*^9, 3.427989824918515*^9, 
   3.427989928493317*^9, 3.4279902808258934`*^9, 3.427990955949745*^9, 
   3.427996175637354*^9, {3.427996219606551*^9, 3.427996319034761*^9}, 
   3.427999873249086*^9, 3.428000626703347*^9, {3.428000688216106*^9, 
   3.428000794915194*^9}, 3.428032213535937*^9, 3.4280721013931713`*^9, 
   3.4280738138772974`*^9, 3.4280756842521615`*^9, 3.4280762771901627`*^9, 
   3.4280763954869423`*^9, {3.428076425740304*^9, 3.428076445531138*^9}, 
   3.428076478246294*^9, 3.428076512817663*^9, 3.428084145415574*^9, 
   3.428085567525996*^9, 3.428087018400797*^9, 3.428087850430808*^9, 
   3.4280920765295205`*^9, 3.4280974188483105`*^9, 3.428154480147056*^9, 
   3.428155131978344*^9, 3.42829340607379*^9, 3.428293591588627*^9, {
   3.4282936916445208`*^9, 3.428293793298086*^9}, 3.4284186934618835`*^9, 
   3.428450586869544*^9, 3.4284996719598618`*^9, 3.428549432157338*^9, 
   3.428599095395935*^9, 3.428625182691033*^9, {3.428625262437374*^9, 
   3.428625398493156*^9}, 3.4287030073055153`*^9, 3.429451303663487*^9, 
   3.429451368832612*^9, {3.429451409179879*^9, 3.429451431989118*^9}, 
   3.4294567180744047`*^9, 3.42979652546144*^9, 3.4297965918041897`*^9, 
   3.4298964364582005`*^9, 3.4298967820713825`*^9, 3.429969425096013*^9, 
   3.430073759807234*^9, 3.4306010178605194`*^9, 3.430664617378008*^9, {
   3.430665235161696*^9, 3.430665248079756*^9}, 3.430665786011808*^9, 
   3.430666133036964*^9, 3.4306671511703577`*^9, 3.430670337835452*^9, 
   3.430670748509592*^9, 3.4306804983125424`*^9, 3.43069147037195*^9, 
   3.4307053476529827`*^9, 3.4307054073063803`*^9, 3.4307068320685987`*^9, 
   3.4307085932307787`*^9, 3.430711852418301*^9, 3.430712106634807*^9, 
   3.430712182366455*^9, 3.4307122218110933`*^9, {3.43071227096412*^9, 
   3.430712326064596*^9}, 3.431128725038487*^9, {3.431128853635818*^9, 
   3.431128875108335*^9}, {3.4311290671318827`*^9, 3.431129091952263*^9}, 
   3.4311291523263683`*^9, 3.431129323195469*^9, 3.431132582025956*^9, 
   3.431132663229048*^9, 3.4311337820647297`*^9, 3.431133920929913*^9, 
   3.431134245392881*^9, 3.4311342880514793`*^9, 3.4311343222762337`*^9, 
   3.431135172877355*^9, 3.431135239331821*^9, 3.4311353236121283`*^9, 
   3.431136495356797*^9, 3.4311365335271387`*^9, 3.431146268880169*^9, 
   3.431146554596545*^9, 3.4311472519883833`*^9, 3.43114730299566*^9, 
   3.4312860922329636`*^9, 3.4312877222317715`*^9, 3.431292581264908*^9, 
   3.4312932379129295`*^9, 3.431294207278144*^9, 3.432041563421829*^9, 
   3.432756659285274*^9, 3.432756779132826*^9, 3.432756930724758*^9, 
   3.432757377239004*^9, 3.4327711526959705`*^9, 3.4328195847160044`*^9, 
   3.4328196667707205`*^9, 3.4328277659637384`*^9, 3.4328291264657784`*^9, 
   3.4328293772263527`*^9, 3.4328428105867643`*^9, 3.4328429110872684`*^9, 
   3.4328533928211803`*^9, 3.432856662852824*^9, 3.4329186886116657`*^9, 
   3.4330164152807107`*^9, 3.433018022016997*^9, 3.433018188459691*^9, 
   3.433021194822715*^9, 3.433021958380201*^9, 3.433042814143772*^9, 
   3.4330471344337225`*^9, 3.4330477446067705`*^9, 3.433080948572631*^9, 
   3.433081775108163*^9, 3.433094762354889*^9, 3.433095228276267*^9, 
   3.433096700804925*^9, 3.434503732247223*^9, 3.4345042993300285`*^9, 
   3.4345048409372187`*^9, 3.434757739396118*^9, 3.4347794683662443`*^9, 
   3.434780347596678*^9, 3.434780508930621*^9, 3.4347806926856856`*^9, 
   3.4348068901520176`*^9, 3.43480735649934*^9, 3.4348074290200043`*^9, 
   3.4348074827145357`*^9, 3.434809155055035*^9, 3.4348094442086487`*^9, {
   3.4348095112576838`*^9, 3.434809613770825*^9}, 3.43481102950308*^9, 
   3.4348376407265663`*^9, 3.435287934346943*^9, 3.4352882408423805`*^9, 
   3.435288294446787*^9, {3.4352892670968943`*^9, 3.4352892884565425`*^9}, 
   3.4357245774353685`*^9, 3.435724798572322*^9, 3.4453771396053085`*^9, 
   3.4453773087751894`*^9, 3.4453775026100445`*^9, 3.445377545100295*^9, 
   3.4453786426566153`*^9, 3.445378894033064*^9, 3.4453799572506914`*^9, 
   3.445453468552141*^9, 3.4462463843737307`*^9, 3.446246534364449*^9, 
   3.447011746402779*^9, 3.447257783258557*^9, 3.4474715223369937`*^9, 
   3.4474719240766554`*^9, 3.4474726820113964`*^9, 3.447474033307516*^9, 
   3.447474564110187*^9, 3.447476243601683*^9, 3.4475564313472652`*^9, 
   3.447559838782941*^9, 3.447644740515663*^9, 3.4477290232588506`*^9, 
   3.447729095271682*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ebYFunc", "[", 
      RowBox[{
      "stemID", ",", "0", ",", "y", ",", "1", ",", "nrnID", ",", "0", ",", 
       "0", ",", "5"}], "]"}], ",", 
     RowBox[{"ebYFunc", "[", 
      RowBox[{
      "stemID", ",", "0", ",", "y", ",", "2.5", ",", "nrnID", ",", "0", ",", 
       "0", ",", "5"}], "]"}], ",", 
     RowBox[{"ebYFunc", "[", 
      RowBox[{
      "stemID", ",", "0", ",", "y", ",", "5", ",", "nrnID", ",", "0", ",", 
       "0", ",", "5"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "9", ",", "11"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.42342079783849*^9, 3.423420844043086*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVynk41HkcB/AZ14TRtaV0zfodO1EqEtrU99OM7KNaOxJpHRVtrGMduWrS
0xTZoom1pWtbhu0yVlJ2VCildkptFDNkNXbGnRo0ZHZkv/vH+3k/r+f9tg2N
3fKdEYPB8Mb5v60uhDAZDAI6+4tq7D+3goh7aeEC7Mq581DPPCt4qLnwrADb
0dO6oni2FRxweH12PZMAj4vaRMLSCt7WbHM6YkRA3WBIoN0oGxo6BWFmpgS4
xsizdzew4TiXX8+2IECaUSY4uY8NUyq4x2xm4b/vmkFpiyXc4O3oVNsRcJ1e
e6dLZAETxlVi93UElFdbN8RsMQd+VdG05VsIiFa/T53jMgXcegw7m8IJuMQb
86yexoLnnqkskwMERIlLf79sbgafcUIPducSoFfEFdTqTcB3oP3P0MsE2Mkl
hrgJY3Du2xcRc4eA2Kbpedr5xvBwR4ZycSMBJbsSIwudjEDHqvgloYuAvf2j
2apQJtgWx7v4jxPg1jGr17mAAQbZxV/7p5JgaMiXuZROotTJwWArkoRTS01/
dvf8hIpqSt6q3EhITvIIsnxpQPJ4vbe3NwlVkiVLtCn/olz/KLONoSQ0Ht3g
9IGnR6ybG8WjKSQ429auX2w8jjj8zVGO2SQ4qgSrI7rHUNfGu3MXSkiI2PGo
nbg3ii57Vp+V/EGCf0m6xaRUhywSVbGVT0kQ7Ik/yJZ9QAvmJVgLO0nIvFtL
lN4eQX8N0TOf60jwEOqy2a3DKK06svO2OQX1haeeFJkOozbmIlEAh4Lyfvn0
+/ZDSJkykpS+kgLO8VvrOsK1KGOP65pdXhQ8J5icJ+7vkYMX+5UihILWc44L
jR4OouRg47r2BLxLg13PJL5FP/RHHPrpRwrS879dm2EzgFhXtXktFygo29Yh
TNX0ofOB5sKb1ykI2uurflPXizqO5jjxH1GwdKyxafB0D6pTr0Y72yjYPM50
Vmd1I78qnwXLtBQMrC1+JEvpQsfuZXkfN6HBo2f4qVykQbI7/lsPzaVB+aKh
N+i8Gp1enmPPXUbDY4uKBIX0HzS7ecAviEfDmd40fbKyE/FHbvnwAmgI3u08
W2dQoWjTGbZ1MTSYnwx7VrlchVy8xBteiGi4Frvw8aehDlRmuv/Lk/k0FD7Y
MGMo5W8kH8lMby+hodhLuX4Ttx11NH8heVBLw1fxmROtA21IssI5J7CZhpVk
QeSq31oRqzrspaiPhqRhM27YYSWaX8fsCZikwZ3h/7HcT4EksPNIIPa5psxu
MbZ9bQ0nBLtg+7tXUdhud4UBYdhx6dtv0Nj+lTp5DDbhcSX27FYFyr3WJz2M
7cTlfjjkq0CsvMYEKfZUnyuUwEeBxDNWTCvD7loUZ+OAbZ0jLinHDs+PnmqB
TZ3YpKnEzs00Hn8gUCBeZr3ffWx+4NUXrthpwiq3FmyHrFfHON8okIl+TrMS
2/CmW2TwVqDs1OT419iiNof9rdjnklZeU2GrardH5WHLYkvnD2Dn8ewELGx4
ZykbxKarVV6arxXocXTkVi22zesG/n3slu+5J3TYkkmemxA7uDfD7iN2mekz
pwBszR5NvR5bU5rlsAo7uosXOoH9ZOzg4pnYI2GFnyaxPdSXyPebFeg/RE1I
rA==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3881HcAx3ESN+X8yG9Ox/dHF5Wf5aS2vXe37EFmKD/Kz84qJRWP/Bop
vxKis3usrUXltEe/SEl+hepGUSEtN5PVKRXJ0tCj3VL77I/X4/V42kl2BW6e
o6Gh4Uf6/9yySE0NDQpJabv/PEUJEXt971Z/4rNXjPN8+UK0j5R1nyQWeR48
M20tRMayh0e/0KSgm1Mu8TIV4lVbiGvOHAp9u3MrXnOEuDvsH6OjTYGyO+25
YcIdhQJxh948CjKjJxEHG93xyWVBgaUJhdEKeXGgvztqRVHDT+0pXFWtW9q6
ZwVmtZpKVn9GoW3UJyGoZjnETZUGToEUTHgZpRen3eDx4n30/a0U9NJKvc+4
uKHHK5UzN4PCm/K09+HZrjDmSzKfl1Lw7bHanHjHBevGhzolpylIJ50aWxa6
YPlYWmz8VQpTVoNvCnOc0R6VN7C4jwI+9W0fVzhhhnO5PPEZBV7K14q8E46w
O5XgHvwPBdNRV/WHomV433j8xEt9Gppi0Q+zcUuR+nEigkvTCAgsvivYtgSV
bedfqTxodGkNWKg3OqArQe3n50eDr31g5VCYPUqD43R8JDSUymPcyuTF4NT5
lLxNoXG3eaejfb4AfLFvnMshGsL11p2jNYvwzKfFwkZOQxVTPRHSy+K0V+tR
eQONBkVMt/+/DObtUe2qv0MjrOpB5a3VDHhWiWbpwzSSCwb0HiTR6H3DLuiZ
oTFt2mqrVlDY27p9uFmXwYK/n294bElhUHNhViifgUZW9wp2mx0GUqaSct0Y
7IuME3xz2xZ5W4SrNnkzkKKjtoixxTJvvQe/RzJwyNsk0zfkIzlCSzGUyCA7
u2PNrbc22Pkydv/3BxlEpZrJ1fd44JydlCnLGKRIlUefdFrjWJhuet1FBuP7
Lowt6bXCowNSV/FNBofDJyNsbltC8XTl59GDDBadKWrOemyBoKYAnuMkgy+9
JFZHXpqj4HqRX+FcFgVndfhb9M3ReDV4/X4LFsdVOvnCz8xwxEnqIHBk0ZDG
WNZ+awrT/vGgcBELfssrsVOFCcRTVwJEoSzeac2nnPuNsUPbyE4Rz0J082GN
zMQY7t4la+5lsRhyNRzO3LoANdrfeR7+kcUJbvySa7VG6JrKzx06z6LdTHZJ
bGiER/2L5L9eY2HUH+YjTzaE3Hm5NKyfRVGVba1NlQE4rTG/ZY2x6O+eDMgo
0oe1QvNF6EcW2z+8aPaM5EKO6Jww4ga6Is6c2OFaGz+SeE5rLm86gguPlvTQ
GGJq7Z3MauLg+pmueGLz3qA1tsSl58aqsolV3tGD2uFccGR9iVXEF37xZvo2
cFFi5GxQQzw25j9YTWwmLTl/ibj6WLa0kJgpXjtST1zx1eZZMbEovyPoBvHl
ZsEf9aFc7E1v8lASy4ZP/lQWwsVctXn/APHJUb+ANOJDqckJD4kXbhTMCyb+
OcntnIr4dXpIhgFx465q63HijLo6SXYwF/hrfuMEcY9uPS+K+NaO7esnic06
h5WriJXbBMUzxCmZjWtngriIGM2zf0fskxyjc594ZMtIh5qYVXrcuEC845lI
Mks8VO6RUUQ8FVPx4SNxQLdEGEv8H7+mFxM=
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVx3881HcAx/FDXL97pE2txHy/9+2SxPWDKz30vjvsHC6/Y9fpjn4oJEps
XJIk5HbWT5OU6hFqtEgk/TAqm8qPyFA7v0JolumxlOyzP16P1+NpFhjuuU2X
xWJJSf9/1tkAHRaLgmFeZbZqnRLB91U73IkNfrvslsNXorrn7JPzxIHiMN4D
GyXiLNszBToUotoST+ivUmLo7qaViboUbr7nPdZYKFHX6R5koE+By+Rrrxsr
kcoV1cycTqG/r71w/qQCU4u5KV99QaGWNS/lQLUCN4RbOrvNKcS/OddJiRWY
0CtXr7enUEzH2x0r3AJR+cU5Vp4U2qrL9li9CAC/75OicQeFDbdrm9j/yPHU
KYY9JY7C3mf1zn8xcswzDTzwOoOCeRN3d7PrZngNdjwOvEIhVBsf26KSYfXA
d8FhFRS2OiuKjKq+RfWWpNalDRQsuzt4Sz/5Y4xdnB3ZS0Gql9aQKvaH2aUI
G98PFNZQYrlFth8+lZ3LeTObxkToyzhZ/ybETA7LZ9E0qg1zcr0cNuHi3atD
Wj4NaXIUFXfaF7UR41KplEbI7L6Rwnc+yPANMZAE0ljIrzdYK/cBu0Sifh9N
YwWtKc665w1TkWsI7xiNWUpu7Blrb/RK7ixYnEujfyI06kOmF644VWbm3qJh
pSNrl0/3wvR92vDS32nExNsvX3jUE8YLI41iO2kUJj06XPfZA8/+ZgyfjtGo
r8vbxzvkAVXlrs7b0zgw0jM+Ip3hgTYdkwQ/Uw6srcr8e9Pd0Ro9GnV4FQfm
iXVNi43dkbTd1k7pzIFuY1fjAfFGWDrPfP4igAO7kq6PA0FS7JfrVXVEcmCS
WhR95oQbdr8JPvjjUQ7sP9bM0L3tCnb+yPGWsxzEVUw45I26IEs2LbbkOgcJ
/mtMgm1c8OqIZqXoIQd+G/Ijbu6WoKp77QZFGwcfXRTq9HJn+JR7GK8Y4cDi
/o0/L42LkXI/TZo6hYGJTkyjwk2Msgpf74MLGAw2uPLn5n2DU1aaZdwVDDyj
RedufXDCl82DPpuFDEJcUXtE5gTR6E0PoR+DtP4lya9LHBGqP9esKozBk8SX
elONHGHjrHasT2Cw/qCL4dskBxTpf7/uh9MMJAtO2Rm8FaF2NPlwx1UGwyNy
3vKtIrxqXpL76z0G74c1Vy5rhci1Xq2RNTNIffg13e0jBLsyqClhgEFWYfR5
VqsAi6p0+vwmGaTbBu2VewmQC0WijFh9448mN+Jl9+6aBhDPcwhYbU/MvxPr
F0ScXJAxZkLsWzpWG0acn3ghRuspQEbBwLVDxHdk2xKCiNnHGyKvEQslquyd
HgKo51rPKSKuUJVO+hMbadRXfyE2fzihlBBz0l16SokLT5YusSAWJtf4PCDu
smy4PuQugCq2nN9CPGhb8CiceMr4/OZW4syS6mUK4mMx+yPaicMdh9PdiX+K
WlWgJd56MdibR1wW/vOiQeIh6dSudxsFwNsZZcPEESHHHbuJH4Xu8h4hLs9a
nt9E3LKTmz5GHGCbsqeEWN6fZP4vcU6u6/NLxD3be2rGiSPNTPgniUN7hYET
xDXFE1lJxKNBFz5PEqf5D05GEf8HvtQmSw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{9., 0},
  PlotRange->{{9, 11}, {0., 137.82783400575914`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.423420823304092*^9, 3.423420844443646*^9}, 
   3.4234261668646183`*^9, 3.4234262489593897`*^9, 3.4234291729385214`*^9, 
   3.423429246881897*^9, 3.423430711199075*^9, 3.423452008513631*^9, 
   3.4234534316031713`*^9, 3.423489318867321*^9, 3.4234914433774767`*^9, 
   3.4235069505475073`*^9, 3.423507084064169*^9, 3.423507379927799*^9, 
   3.423510419357051*^9, 3.423512160170783*^9, 3.423513508055183*^9, 
   3.423516601089377*^9, 3.423518266858193*^9, 3.423538898341711*^9, 
   3.4235396965274267`*^9, 3.423539772303883*^9, 3.423539843909993*^9, 
   3.423574506762048*^9, 3.423576649891737*^9, 3.423576981224708*^9, 
   3.423578729098486*^9, 3.4235828159006367`*^9, 3.423589469401828*^9, 
   3.4235909261025887`*^9, 3.423591211440805*^9, 3.4235915390473423`*^9, 
   3.423592475545105*^9, 3.423592643730522*^9, 3.423594841614091*^9, 
   3.423598440426051*^9, 3.4235993663724537`*^9, 3.423604812354351*^9, 
   3.423605212952279*^9, 3.423606762565789*^9, 3.4236068359112787`*^9, 
   3.423606910116585*^9, 3.423607131644451*^9, 3.423621387467578*^9, 
   3.4236215495975723`*^9, 3.423621804877253*^9, 3.423621888458601*^9, 
   3.423624424894701*^9, 3.4238867526455956`*^9, 3.42392536609209*^9, 
   3.4239455556179104`*^9, 3.4239693254191084`*^9, 3.4239699298341064`*^9, 
   3.423970313069886*^9, 3.423970506790716*^9, 3.423971809931864*^9, 
   3.4239720611780643`*^9, 3.423972115414873*^9, 3.423972160154152*^9, 
   3.423972220866454*^9, 3.42401083038301*^9, 3.424010900066863*^9, 
   3.4240109723865767`*^9, 3.424011039978312*^9, 3.4240110984340076`*^9, 
   3.424011158769601*^9, 3.424023474226068*^9, 3.424056533681259*^9, 
   3.424129009562216*^9, 3.4244666264620657`*^9, {3.424468217816848*^9, 
   3.424468246406818*^9}, 3.424471229189062*^9, 3.4244725291219378`*^9, 
   3.424472603857338*^9, 3.424472711964671*^9, {3.4244727627858477`*^9, 
   3.424472830970673*^9}, 3.424473445591671*^9, 3.4244735114317913`*^9, 
   3.424473997749641*^9, 3.424474043256588*^9, {3.424474092715128*^9, 
   3.424474110635536*^9}, {3.424474143168249*^9, 3.424474167608522*^9}, 
   3.4246289661092234`*^9, 3.4246322731526113`*^9, 3.4272153632732115`*^9, 
   3.427217473503403*^9, 3.427340098652172*^9, 3.4273401525245543`*^9, 
   3.42734020118332*^9, 3.427340246269739*^9, 3.4273402840751743`*^9, 
   3.427340334864715*^9, 3.427685671323764*^9, 3.4276857059421616`*^9, 
   3.427724054580924*^9, 3.427724192573844*^9, 3.42772422871437*^9, 
   3.4277265210892076`*^9, 3.427741124795814*^9, 3.4277420287195377`*^9, 
   3.4277482060957737`*^9, 3.4277580837023535`*^9, 3.4277681143155794`*^9, 
   3.427770816343129*^9, 3.4277736253101854`*^9, 3.427814439170987*^9, 
   3.427814619192665*^9, 3.427897737139032*^9, 3.427898088259914*^9, 
   3.427898262833976*^9, 3.427898688108528*^9, 3.427899996808146*^9, 
   3.4279001364333477`*^9, 3.427900275918354*^9, 3.42790150467621*^9, 
   3.42790159540305*^9, 3.427901800379616*^9, 3.427903198153764*^9, 
   3.4279038649459677`*^9, 3.427903950976242*^9, 3.42790406605713*^9, 
   3.4279042710537243`*^9, 3.427908602689536*^9, 3.427908679937532*^9, 
   3.427908944948028*^9, 3.427909042874934*^9, 3.427909360348776*^9, 
   3.4279136350349703`*^9, 3.4279898250186553`*^9, 3.427989928593457*^9, 
   3.4279902809160194`*^9, 3.427990956019843*^9, 3.427996175674358*^9, {
   3.427996219636788*^9, 3.427996319089571*^9}, 3.4279998734002132`*^9, 
   3.42800062673547*^9, {3.428000688257411*^9, 3.428000794970743*^9}, 
   3.428032213616049*^9, 3.4280721014632697`*^9, 3.42807381395741*^9, 
   3.42807568432226*^9, 3.428076277223546*^9, 3.428076395518132*^9, {
   3.4280764257708197`*^9, 3.428076445565427*^9}, 3.428076478288866*^9, 
   3.428076512850799*^9, 3.428084145458304*^9, 3.428085567585658*^9, 
   3.428087018622438*^9, 3.428087850475128*^9, 3.428092076619646*^9, 
   3.4280974190786324`*^9, 3.428154480437462*^9, 3.42815513206847*^9, 
   3.428293406107458*^9, 3.42829359161856*^9, {3.428293691675075*^9, 
   3.428293793334578*^9}, 3.428418693592065*^9, 3.428450586969684*^9, 
   3.4284996721801696`*^9, 3.4285494322374506`*^9, 3.4285990955060887`*^9, 
   3.428625182722431*^9, {3.428625262473672*^9, 3.4286253985459137`*^9}, 
   3.428703007372011*^9, 3.429451303696834*^9, 3.429451368863496*^9, {
   3.4294514092099047`*^9, 3.429451432020607*^9}, 3.429456718108045*^9, 
   3.429796525531538*^9, 3.4297965919043303`*^9, 3.4298964365282984`*^9, 
   3.4298967821514945`*^9, 3.4299694251761246`*^9, 3.4300737598873463`*^9, 
   3.4306010179506454`*^9, 3.430664617488162*^9, 3.430665248169882*^9, 
   3.430665786111948*^9, 3.430666133207202*^9, 3.4306671512604837`*^9, 
   3.430670337925578*^9, 3.430670748589704*^9, 3.4306804983926544`*^9, 
   3.430691470462076*^9, 3.4307053477431087`*^9, 3.4307054073864927`*^9, 
   3.4307068321487103`*^9, 3.4307085933209047`*^9, 3.4307118524516687`*^9, 
   3.430712106666246*^9, 3.4307121824017477`*^9, 3.430712221846654*^9, {
   3.4307122709997253`*^9, 3.430712326116077*^9}, 3.431128725092238*^9, {
   3.431128853695416*^9, 3.431128875153298*^9}, {3.431129067175766*^9, 
   3.43112909200347*^9}, 3.43112915236215*^9, 3.431129323229495*^9, 
   3.431132582076992*^9, 3.431132663290166*^9, 3.431133782115549*^9, 
   3.431133920981896*^9, 3.4311342454319153`*^9, 3.431134288082713*^9, 
   3.4311343223095207`*^9, 3.431135172933592*^9, 3.431135239430634*^9, 
   3.431135323653812*^9, 3.4311364953887997`*^9, 3.43113653355964*^9, 
   3.431146268909883*^9, 3.4311465546487083`*^9, 3.431147252041563*^9, 
   3.4311473030486*^9, 3.4312860923431177`*^9, 3.4312877223419256`*^9, 
   3.4312925814551735`*^9, 3.4312932380030556`*^9, 3.4312942073782835`*^9, 
   3.432041563451343*^9, 3.432756659455512*^9, 3.43275677924298*^9, 
   3.432756930794856*^9, 3.432757377319116*^9, 3.4327711527760825`*^9, 
   3.4328195848061304`*^9, 3.4328196668608465`*^9, 3.4328277660538645`*^9, 
   3.4328291265659184`*^9, 3.4328293773465204`*^9, 3.4328428106768904`*^9, 
   3.4328429111673803`*^9, 3.4328533929213204`*^9, 3.4328566629429502`*^9, 
   3.432918688701792*^9, 3.433016415400879*^9, 3.433018022187235*^9, 
   3.433018188599887*^9, 3.4330211948928127`*^9, 3.433021958470327*^9, 
   3.433042814243912*^9, 3.433047134513834*^9, 3.4330477446768684`*^9, 
   3.433080948652743*^9, 3.433081775178261*^9, 3.433094762424987*^9, 
   3.433095228346365*^9, 3.433096700895051*^9, 3.434503732307307*^9, 
   3.434504299390113*^9, 3.4345048410073166`*^9, 3.434757739536311*^9, 
   3.434779468446355*^9, 3.434780347686803*^9, 3.4347805090107317`*^9, 
   3.434780692755783*^9, 3.434806890232129*^9, 3.4348073565894656`*^9, 
   3.434807429100116*^9, 3.4348074827846336`*^9, 3.434809155088561*^9, 
   3.434809444248211*^9, {3.4348095112936707`*^9, 3.434809613812417*^9}, 
   3.434811030237052*^9, 3.4348376407576237`*^9, 3.4352879344671097`*^9, 
   3.4352882409124775`*^9, 3.435288294526898*^9, {3.4352892672070465`*^9, 
   3.4352892885366535`*^9}, 3.4357245775254936`*^9, 3.4357247986524334`*^9, 
   3.4453771397955785`*^9, 3.4453773088853455`*^9, 3.4453775027101865`*^9, 
   3.445377545210451*^9, 3.445378642776786*^9, 3.445378894163248*^9, 
   3.445379957360848*^9, 3.4454534686723113`*^9, 3.4462463844938912`*^9, 
   3.4462465345547037`*^9, 3.4470117466130776`*^9, 3.447257783328656*^9, 
   3.447471522397079*^9, 3.4474719241467543`*^9, 3.4474726821215525`*^9, 
   3.4474740334276867`*^9, 3.4474745642403717`*^9, 3.4474762437719245`*^9, 
   3.4475564314173656`*^9, 3.4475598388530407`*^9, 3.4476447406458488`*^9, 
   3.4477290233589935`*^9, 3.4477290953918533`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eaYFunc", "[", 
  RowBox[{
  "nrnID", ",", "0", ",", "0", ",", "5", ",", "nrnID", ",", "0", ",", "10", 
   ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.4306010504260473`*^9, 3.4306010625329733`*^9}, {
  3.430601188489065*^9, 3.430601212963281*^9}, {3.430660586412546*^9, 
  3.430660629192354*^9}}],

Cell[BoxData["70.00000000000001`"], "Output",
 CellChangeTimes->{{3.4306010512471952`*^9, 3.430601062763295*^9}, 
   3.4306011195927453`*^9, {3.430601188999779*^9, 3.4306012134940233`*^9}, {
   3.4306605820164003`*^9, 3.430660630394034*^9}, 3.43066461755826*^9, 
   3.430665248199924*^9, 3.4306657861419897`*^9, 3.43066613322723*^9, 
   3.430667151290526*^9, 3.4306703379656343`*^9, 3.4306707486097317`*^9, 
   3.4306804984126825`*^9, 3.4306914705822444`*^9, 3.4307053477631364`*^9, 
   3.4307054074065204`*^9, 3.4307068321787524`*^9, 3.4307085933409324`*^9, 
   3.4307118524680767`*^9, 3.430712106682322*^9, 3.4307121824180727`*^9, 
   3.430712221864458*^9, {3.430712271020872*^9, 3.430712326147316*^9}, 
   3.4311287251493196`*^9, {3.431128853751339*^9, 3.4311288752013893`*^9}, {
   3.4311290672195597`*^9, 3.4311290920458117`*^9}, 3.431129152379822*^9, 
   3.431129323248932*^9, 3.431132582127901*^9, 3.431132663344051*^9, 
   3.4311337821665773`*^9, 3.431133921032897*^9, 3.4311342454697323`*^9, 
   3.4311342880996943`*^9, 3.43113432233031*^9, 3.431135172990806*^9, 
   3.431135239484321*^9, 3.431135323696273*^9, 3.431136495404138*^9, 
   3.431136533580235*^9, 3.431146268925397*^9, 3.4311465547056427`*^9, 
   3.431147252095759*^9, 3.431147303101926*^9, 3.431286092383174*^9, 
   3.431287722381982*^9, 3.4312925814852157`*^9, 3.4312932380230837`*^9, 
   3.4312942073983116`*^9, 3.432041563465763*^9, 3.432756659565666*^9, 
   3.43275677929305*^9, 3.432756930975108*^9, 3.4327573773391438`*^9, 
   3.43277115279611*^9, 3.4328195848261585`*^9, 3.4328196668808746`*^9, 
   3.4328277660738926`*^9, 3.4328291265959606`*^9, 3.4328293773665485`*^9, 
   3.432842810706932*^9, 3.4328429111974225`*^9, 3.432853392941348*^9, 
   3.4328566629629784`*^9, 3.432918688841988*^9, 3.4330164154309206`*^9, 
   3.4330180224876547`*^9, 3.433018188639943*^9, 3.433021194912841*^9, 
   3.4330219586105227`*^9, 3.4330428142739544`*^9, 3.433047134533862*^9, 
   3.4330477446968966`*^9, 3.433080948682785*^9, 3.4330817752083025`*^9, 
   3.433094762535141*^9, 3.433095228366393*^9, 3.4330967009250927`*^9, 
   3.434503732327335*^9, 3.434504299410141*^9, 3.434504841017331*^9, 
   3.4347577395863805`*^9, 3.434779468466383*^9, 3.4347803477168446`*^9, 
   3.43478050903076*^9, 3.434780692785825*^9, 3.4348068902621703`*^9, 
   3.4348073566195073`*^9, 3.434807429140171*^9, 3.4348074828046613`*^9, 
   3.4348091551091137`*^9, 3.434809444279748*^9, {3.434809511324813*^9, 
   3.4348096138498087`*^9}, 3.4348110304969673`*^9, 3.434837640775012*^9, 
   3.435287934487138*^9, 3.435288240942519*^9, 3.435288294546926*^9, {
   3.4352892672571163`*^9, 3.4352892885666957`*^9}, 3.4357245775555353`*^9, 
   3.435724798672461*^9, 3.4453771398456497`*^9, 3.445377308955445*^9, 
   3.445377502740229*^9, 3.4453775452304797`*^9, 3.4453786428468847`*^9, 
   3.4453788942133193`*^9, 3.4453799574109187`*^9, 3.445453468712368*^9, 
   3.446246384533945*^9, 3.446246534594757*^9, 3.44701174664312*^9, 
   3.447257783579011*^9, 3.4474715224171076`*^9, 3.4474719241667833`*^9, 
   3.447472682151595*^9, 3.4474740334777575`*^9, 3.4474745642804284`*^9, 
   3.447476243811981*^9, 3.447556431437394*^9, 3.4475598388730693`*^9, 
   3.447644740685906*^9, 3.4477290234090652`*^9, 3.447729095441925*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ebYFunc", "[", 
    RowBox[{
    "stemID", ",", "0", ",", "y", ",", "1", ",", "nrnID", ",", "0", ",", "0", 
     ",", "5"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "5", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.423420775377088*^9, 3.4234207780007563`*^9}, {
   3.4306012503755856`*^9, 3.430601262722847*^9}, 3.4306015326402035`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVznk41HkcB/BRGCyRZtzMjFF5kmocHWJ/b6FErhTxUEsjhEGjQZIOHdsp
m7PS1q6jjTL0jJ2ixHTt0KGLtLGlqZBjsitTab/98X7ez+t5Pp/neXOik1fH
TKHRaP4k33uZbpcmjcbAww10H84NEaa1pGnkqzEgflXV9VwiQle6gbrNVAYK
hBZ6JdUipLxeoeatycAeO9NQbrEIZ65IPh/TZaBNPuGanCzCl7gTIyxTBuTC
jzmvrESQ3Ax4Tjkw4NKwOc9211bY5dyqyeEzMCRTebSuTsMOvxebhA8ZGM8z
dxxWpWJ8xum78xYxobew/aJQOwWhZQ7+A6VMGL6fyBq8kAhO7kifOd0Ih2NS
73tujMf06LCZjEQj/PW5yLH9/CYknOxP39llBKm+3IKnw0dNceDgB09j1Gtt
m5XbEgXm0Sgd7nljaEhWfZzbuAFvX5a6tDFNMNrq3PyaGYGe2TkMtywTHMxc
rHo3LQzXnBYbXHppAg8nXktQXAjop02tCnxMseZxofRrZzBEX8ufLLtkCpsJ
GW2hNAiB0vAzfAsz3Ow2aikND8D0JX0H9+83w87aZ+VSuS8+1ZqwtwyYQZdR
lXL2mTdW5m69/SDUHI99vbItJr3QHJBtMt5oDmqbdoniVw+cFdVkHZ9jAU3D
PJ/gcHdsjqqj2RdaQLujc6lL848I84yen6eyQEfPCTPNjKWo2+2SEhtriT19
P8tm+C8GT9oUrtluiRm9if0+F51RVM+MrVhgheAtb1W20Y6I1S7ce+WUFfxO
Na2LnsNDZOgNv0I1FqCIlBdUzEMTjWmrELBwTtFia2NuBw2Bm82i5yzoh3sq
EzVtcSVe681sFhv3knwH7qbPxCwfTXfBWjZu05uKf6JxUV7RlWpygI3LycKx
kjE2TGKKHFulbLT9JmjpDLYCguInK4fZeFIoGLz+txmypAZlIxwOrLzaqlIn
jZEQ0LZcuI6Dq/Gd9BdLmBBERcrCDnEgHv4W7DBkCP6Tzg40cdA9qP9BPmAA
/fS4/qiPHPgb2rpd+08P7SfanypmWkO1S9JKv64D9C5vK4+wRgGTt+bfcjoq
j/yxOibfGvv2q8llY+rgNLyuOSCzxvuIOtbdP6cgcBrPUKGyRkdpRZP3cRry
/wn2rbTnor7IZv2FY1+pO0ZRzPgNXPQ0Hh85JVBR9Zm73/ELuAho4KdYxY9T
4nWZebLbXNg32JT6vx2j+DG57usnuXg/rHuInq2kJGdT7vCJzVP9GC3blZTW
y4iABOLuofyy7cTVIc6RGcTqD+dKRrOU1NgKRUY+sZfs5Gj3NiW1Z4537a3v
/3obS2ozlNS54R9Y879xYRm5vTo8jdzbfSp3Jj5EXxvCJF4e1zfXldjayUHt
gVBJ9fc2uqwkPqquCvMi5nUkhWwk5hpfN16wRUk1X75/pIiYdcFcppGipAxH
rzLKiLNrXHY0Jyspvn3Vyd+Jn45FLski1qrYeV5MnOghrhsRKKnAIt5NOXFl
2kFxdxLZ98hyVQexu5NcWEg8pq/zqJN4pZnBoiDi4gOvet8Qp/lUNN9KJPtk
92IHiccPj+/bReyqdnVISVytWOXvSnzUrXLrBPGN4Aqj8QQl1ZP5y5dvxEkP
pvaKif8HgNc4Vw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{5., 0},
  PlotRange->{{5, 10}, {0., 364.07062723999576`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.42342077851147*^9, 3.423426166934716*^9, 3.4234262492097397`*^9, 
   3.4234291729986053`*^9, 3.4234292469419813`*^9, 3.4234307112491455`*^9, 
   3.423452008563701*^9, 3.423453431653241*^9, 3.423489318917391*^9, 
   3.423491443427547*^9, 3.4235069506075907`*^9, 3.423507084154295*^9, 
   3.423507379977869*^9, 3.4235104194171352`*^9, 3.4235121602709227`*^9, 
   3.423513508115267*^9, 3.4235166012195587`*^9, 3.4235182669282913`*^9, 
   3.423538898360919*^9, 3.423539696574163*^9, 3.4235397723458*^9, 
   3.423539843980391*^9, 3.42357450680786*^9, 3.423576649946566*^9, 
   3.423576981274502*^9, 3.423578729146037*^9, 3.423582815951047*^9, 
   3.4235894694514227`*^9, 3.423590926188047*^9, 3.423591211647256*^9, 
   3.423591539106822*^9, 3.4235924755927*^9, 3.423592643820101*^9, 
   3.423594841687961*^9, 3.423598440479619*^9, 3.423599366414908*^9, 
   3.4236048124108953`*^9, 3.423605213301381*^9, 3.423606762606669*^9, 
   3.423606835991993*^9, 3.423606910163253*^9, 3.4236071322630243`*^9, 
   3.423621387512745*^9, 3.4236215496416597`*^9, 3.423621804923477*^9, 
   3.4236218885085363`*^9, 3.4236244251731567`*^9, 3.42388675270568*^9, 
   3.423925366152174*^9, 3.423945555808176*^9, 3.4239693254791923`*^9, 
   3.42396992994426*^9, 3.4239703131299706`*^9, 3.4239705068508005`*^9, 
   3.423971809973061*^9, 3.4239720612428923`*^9, 3.423972115462185*^9, 
   3.423972160221285*^9, 3.423972221157692*^9, 3.424010830436739*^9, 
   3.4240109001151876`*^9, 3.424010972439932*^9, 3.424011040033737*^9, 
   3.424011098563575*^9, 3.424011159228982*^9, 3.424023474432707*^9, 
   3.424056533761371*^9, 3.4241290097825236`*^9, 3.424466626512136*^9, {
   3.424468218017128*^9, 3.424468246456888*^9}, 3.424471229206482*^9, 
   3.424472529174294*^9, 3.424472603882682*^9, 3.424472711988696*^9, {
   3.424472762809469*^9, 3.424472831010408*^9}, 3.4244734456346617`*^9, 
   3.4244735115998077`*^9, 3.4244739977688437`*^9, 3.424474043274539*^9, {
   3.424474092734075*^9, 3.42447411065462*^9}, {3.4244741431939898`*^9, 
   3.4244741677199097`*^9}, 3.424628966159293*^9, 3.4246322732026815`*^9, 
   3.427215363313267*^9, 3.427217473573501*^9, 3.4273400986730537`*^9, 
   3.427340152543151*^9, 3.427340201201229*^9, 3.427340246288471*^9, 
   3.427340284096013*^9, 3.427340335011364*^9, 3.4276856713638196`*^9, 
   3.4276857059922314`*^9, 3.427724054641008*^9, 3.4277241926139*^9, 
   3.427724228754426*^9, 3.427726521239418*^9, 3.427741124855898*^9, 
   3.427742028769608*^9, 3.427748206155858*^9, 3.427758083762437*^9, 
   3.4277681143756633`*^9, 3.427770816393199*^9, 3.427773625350241*^9, 
   3.4278144392110434`*^9, 3.4278146192327213`*^9, 3.427897737179088*^9, 
   3.427898088319998*^9, 3.427898263034256*^9, 3.427898688168612*^9, 
   3.42789999686823*^9, 3.427900136583558*^9, 3.42790027605855*^9, 
   3.42790150472628*^9, 3.427901595463134*^9, 3.427901800429686*^9, 
   3.427903198203834*^9, 3.427903865106192*^9, 3.427903951456914*^9, 
   3.427904066117214*^9, 3.4279042711138077`*^9, 3.427908602759634*^9, 
   3.4279086800076303`*^9, 3.42790894502814*^9, 3.427909042925004*^9, 
   3.42790936040886*^9, 3.427913635105068*^9, 3.4279898250987673`*^9, 
   3.427989928653541*^9, 3.4279902809761033`*^9, 3.4279909560598993`*^9, 
   3.427996175694111*^9, {3.427996219653957*^9, 3.427996319121593*^9}, 
   3.427999873869259*^9, 3.4280006267574673`*^9, {3.428000688275419*^9, 
   3.42800079501378*^9}, 3.428032213726203*^9, 3.4280721015033255`*^9, 
   3.4280738140174932`*^9, 3.4280756843623157`*^9, 3.428076277242593*^9, 
   3.4280763955359592`*^9, {3.4280764257879133`*^9, 3.4280764455852737`*^9}, 
   3.428076478317752*^9, 3.4280765128733883`*^9, 3.428084145500225*^9, 
   3.4280855676272287`*^9, 3.4280870186691847`*^9, 3.428087850659348*^9, 
   3.4280920766697164`*^9, 3.4280974191487303`*^9, 3.42815448050756*^9, 
   3.4281551321285543`*^9, 3.428293406126155*^9, 3.428293591637125*^9, {
   3.428293691693183*^9, 3.4282937933568573`*^9}, 3.428418693822387*^9, 
   3.4284505870397825`*^9, 3.4284996722402534`*^9, 3.4285494322775064`*^9, 
   3.428599095556159*^9, 3.428625182743352*^9, {3.428625262494409*^9, 
   3.428625398823966*^9}, 3.428703007440342*^9, 3.4294513037164993`*^9, 
   3.429451368880691*^9, {3.429451409227318*^9, 3.429451432039554*^9}, 
   3.429456718128791*^9, 3.429796525571594*^9, 3.429796591944386*^9, 
   3.4298964365683546`*^9, 3.4298967822015643`*^9, 3.429969425216181*^9, 
   3.430073759957444*^9, 3.430601018050785*^9, {3.430601248122435*^9, 
   3.430601263664163*^9}, 3.4306015328504972`*^9, 3.430664617638372*^9, 
   3.4306652482399797`*^9, 3.430665786202074*^9, 3.4306661332672863`*^9, 
   3.430667151340596*^9, 3.430670338015704*^9, 3.430670748649788*^9, 
   3.4306804984527383`*^9, 3.4306914706223*^9, 3.430705347803192*^9, 
   3.430705407446576*^9, 3.4307068322087946`*^9, 3.430708593380988*^9, 
   3.4307118525218983`*^9, 3.430712106699274*^9, 3.4307121824484663`*^9, 
   3.430712221982485*^9, {3.430712271046693*^9, 3.430712326188463*^9}, 
   3.4311287251974077`*^9, {3.431128853804438*^9, 3.431128875242118*^9}, {
   3.4311290672606897`*^9, 3.4311290920888443`*^9}, 3.431129152444268*^9, 
   3.431129323296773*^9, 3.43113258217562*^9, 3.431132663395542*^9, 
   3.43113378221559*^9, 3.43113392107871*^9, 3.43113424551709*^9, 
   3.431134288157802*^9, 3.431134322374157*^9, 3.431135173044489*^9, 
   3.4311352395359898`*^9, 3.431135323751007*^9, 3.431136495466508*^9, 
   3.431136533626115*^9, 3.431146268978404*^9, 3.431146554759342*^9, 
   3.431147252141868*^9, 3.4311473031510563`*^9, 3.431286092453272*^9, 
   3.4312877224420657`*^9, 3.4312925815252714`*^9, 3.43129323806314*^9, 
   3.431294207438368*^9, 3.432041563527069*^9, 3.432756659605722*^9, 
   3.4327567793731623`*^9, 3.432756931015164*^9, 3.4327573773792*^9, 
   3.4327711528461804`*^9, 3.4328195848662148`*^9, 3.4328196669209304`*^9, 
   3.4328277661139483`*^9, 3.4328291266460304`*^9, 3.4328293774066043`*^9, 
   3.4328428107469883`*^9, 3.4328429112374783`*^9, 3.4328533929914184`*^9, 
   3.4328566630030346`*^9, 3.432918688882044*^9, 3.433016415671257*^9, 
   3.4330180225377245`*^9, 3.4330181887000265`*^9, 3.433021194952897*^9, 
   3.433021959141265*^9, 3.433042814303996*^9, 3.4330471345639043`*^9, 
   3.4330477447269382`*^9, 3.4330809487128267`*^9, 3.433081775238345*^9, 
   3.4330947625651827`*^9, 3.433095228396435*^9, 3.433096700965149*^9, 
   3.434503732357377*^9, 3.4345042994401827`*^9, 3.434504841047373*^9, 
   3.4347577396664906`*^9, 3.4347794684964247`*^9, 3.4347803477569003`*^9, 
   3.4347805090608015`*^9, 3.4347806928158665`*^9, 3.434806890302226*^9, 
   3.434807356659563*^9, 3.434807429180227*^9, 3.4348074828347025`*^9, 
   3.43480915519798*^9, 3.434809444308597*^9, {3.434809511352948*^9, 
   3.434809613886602*^9}, 3.4348110307185097`*^9, 3.434837640901739*^9, 
   3.435287934567249*^9, 3.435288240972561*^9, 3.4352882945969954`*^9, {
   3.4352892673171997`*^9, 3.435289288596737*^9}, 3.435724577585577*^9, 
   3.435724798712517*^9, 3.445377139925763*^9, 3.44537730901553*^9, 
   3.4453775028103285`*^9, 3.445377545310593*^9, 3.4453786429370127`*^9, 
   3.4453788942834187`*^9, 3.4453799574910326`*^9, 3.445453468782468*^9, 
   3.446246386096035*^9, 3.4462465346748643`*^9, 3.447011746683177*^9, 
   3.4472577836090536`*^9, 3.44747152244715*^9, 3.4474719241968255`*^9, 
   3.447472682241723*^9, 3.4474740335678854`*^9, 3.447474564370556*^9, 
   3.447476243882081*^9, 3.4475564314674373`*^9, 3.4475598389031124`*^9, 
   3.447644740786049*^9, 3.4477290234691505`*^9, 3.4477290954919963`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"eaYFunc", "[", 
  RowBox[{
  "stemID", ",", "0", ",", "5", ",", "1", ",", "nrnID", ",", "0", ",", "0", 
   ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{3.430601835914193*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.430601836484991*^9, 3.430601864744499*^9}, 
   3.4306018960082073`*^9, 3.4306646176784277`*^9, 3.430665248270022*^9, 
   3.4306657863022137`*^9, 3.430666133297328*^9, 3.430667151380652*^9, 
   3.430670338045746*^9, 3.430670748669816*^9, 3.4306804984727664`*^9, 
   3.4306914706423283`*^9, 3.4307053478232203`*^9, 3.4307054074766183`*^9, 
   3.4307068322388363`*^9, 3.430708593401016*^9, 3.430711852537571*^9, 
   3.4307121067163057`*^9, 3.430712182464327*^9, 3.430712222000093*^9, {
   3.430712271066831*^9, 3.430712326417192*^9}, 3.431128725248951*^9, {
   3.4311288538594027`*^9, 3.4311288752858047`*^9}, {3.4311290673032618`*^9, 
   3.431129092127687*^9}, 3.4311291524603043`*^9, 3.431129323315812*^9, 
   3.431132582226047*^9, 3.4311326634500933`*^9, 3.431133782264296*^9, 
   3.4311339211291523`*^9, 3.431134245558033*^9, 3.431134288173297*^9, 
   3.4311343223942633`*^9, 3.431135173101554*^9, 3.431135239591196*^9, 
   3.4311353238029757`*^9, 3.4311364954818277`*^9, 3.431136533646751*^9, 
   3.431146268993746*^9, 3.4311465548120003`*^9, 3.431147252189144*^9, 
   3.4311473032027493`*^9, 3.4312860925033417`*^9, 3.4312877224921355`*^9, 
   3.4312925815452995`*^9, 3.4312932380831676`*^9, 3.4312942074684095`*^9, 
   3.4320415635426826`*^9, 3.43275665962575*^9, 3.4327567794332457`*^9, 
   3.432756931035192*^9, 3.4327573774092417`*^9, 3.4327711528762226`*^9, 
   3.4328195848862424`*^9, 3.4328196672714205`*^9, 3.4328277661339765`*^9, 
   3.4328291267361565`*^9, 3.4328293774266324`*^9, 3.4328428107670164`*^9, 
   3.4328429112575064`*^9, 3.4328533930114465`*^9, 3.4328566630330763`*^9, 
   3.432918688902072*^9, 3.433016415711313*^9, 3.433018022567767*^9, 
   3.4330181887400827`*^9, 3.4330211949729247`*^9, 3.4330219591713066`*^9, 
   3.4330428143340383`*^9, 3.433047134583932*^9, 3.4330477447469664`*^9, 
   3.433080948742869*^9, 3.433081775258373*^9, 3.433094762585211*^9, 
   3.433095228416463*^9, 3.433096700985177*^9, 3.4345037324374886`*^9, 
   3.434504299460211*^9, 3.434504841067401*^9, 3.434757739726574*^9, 
   3.4347794685164523`*^9, 3.434780347786942*^9, 3.434780509120885*^9, 
   3.434780692845908*^9, 3.4348068903322678`*^9, 3.4348073566896048`*^9, 
   3.4348074292202826`*^9, 3.4348074828547306`*^9, 3.434809155274143*^9, 
   3.434809444343239*^9, {3.434809511383491*^9, 3.4348096139234457`*^9}, 
   3.434811031585973*^9, 3.434837640920874*^9, 3.4352879346373463`*^9, 
   3.4352882410026026`*^9, 3.4352882946170235`*^9, {3.435289267377283*^9, 
   3.435289288616765*^9}, 3.4357245776156187`*^9, 3.4357247987325444`*^9, 
   3.4453771399958625`*^9, 3.4453773090656013`*^9, 3.445377502840371*^9, 
   3.4453775453406363`*^9, 3.445378643007112*^9, 3.445378894363532*^9, 
   3.4453799575811605`*^9, 3.445453468822524*^9, 3.4462463861260757`*^9, 
   3.446246534714918*^9, 3.447011746703205*^9, 3.447257783629082*^9, 
   3.447471522997931*^9, 3.447471924216854*^9, 3.447472682291794*^9, 
   3.447474033617956*^9, 3.4474745644406557`*^9, 3.4474762439221373`*^9, 
   3.44755643149748*^9, 3.4475598389231405`*^9, 3.4476447408361206`*^9, 
   3.447729023589322*^9, 3.447729095542068*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ebYFunc", "[", 
  RowBox[{
  "stemID", ",", "0", ",", "5", ",", "1", ",", "nrnID", ",", "0", ",", "0", 
   ",", "5"}], "]"}]], "Input",
 CellChangeTimes->{{3.430601815365465*^9, 3.430601831528061*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["50", "3"], " ", 
  SqrtBox["10"], " ", 
  RowBox[{"Log", "[", "1000", "]"}]}]], "Output",
 CellChangeTimes->{{3.430601816326809*^9, 3.4306018319686775`*^9}, 
   3.430601896929495*^9, 3.430664617728498*^9, 3.43066524829005*^9, 
   3.430665786322242*^9, 3.430666133307342*^9, 3.43066715140068*^9, 
   3.430670338085802*^9, 3.430670748689844*^9, 3.4306804984927945`*^9, 
   3.4306914706523423`*^9, 3.4307053478332343`*^9, 3.4307054074866323`*^9, 
   3.4307068322488503`*^9, 3.4307085934210443`*^9, 3.430711852591631*^9, 
   3.430712106733553*^9, 3.430712182480453*^9, 3.430712222126783*^9, {
   3.430712271085573*^9, 3.430712326460086*^9}, 3.43112872529874*^9, {
   3.431128853910102*^9, 3.4311288753297243`*^9}, {3.43112906734129*^9, 
   3.431129092169742*^9}, 3.431129152521882*^9, 3.4311293233613358`*^9, 
   3.431132582271572*^9, 3.4311326635018873`*^9, 3.431133782309333*^9, 
   3.431133921175914*^9, 3.431134245601368*^9, 3.4311342882310257`*^9, 
   3.4311343224435663`*^9, 3.431135173150198*^9, 3.431135239839161*^9, 
   3.431135323850811*^9, 3.431136495538409*^9, 3.4311365336896687`*^9, 
   3.431146269046886*^9, 3.4311465548634977`*^9, 3.431147252232173*^9, 
   3.431147303251602*^9, 3.431286092543398*^9, 3.4312877225321913`*^9, 
   3.4312925815653276`*^9, 3.4312932381031957`*^9, 3.4312942074884377`*^9, 
   3.4320415636020193`*^9, 3.432756659635764*^9, 3.43275677949333*^9, 
   3.4327569310852623`*^9, 3.432757377419256*^9, 3.432771152886236*^9, 
   3.4328195849062705`*^9, 3.4328196672914486`*^9, 3.432827766154004*^9, 
   3.4328291267561846`*^9, 3.4328293774466605`*^9, 3.4328428107870445`*^9, 
   3.4328429112675204`*^9, 3.4328533930214605`*^9, 3.4328566630430903`*^9, 
   3.432918688912086*^9, 3.433016415731341*^9, 3.433018022597809*^9, 
   3.433018188780139*^9, 3.433021194982939*^9, 3.433021959201349*^9, 
   3.43304281441415*^9, 3.4330471345939465`*^9, 3.43304774475698*^9, 
   3.433080948752883*^9, 3.433081775268387*^9, 3.433094762595225*^9, 
   3.4330952284264765`*^9, 3.4330967009951906`*^9, 3.434503732447503*^9, 
   3.434504299460211*^9, 3.4345048410774145`*^9, 3.434757739776643*^9, 
   3.4347794685264664`*^9, 3.4347803478169837`*^9, 3.4347805091308985`*^9, 
   3.4347806928559217`*^9, 3.434806890352296*^9, 3.4348073567096324`*^9, 
   3.4348074292403097`*^9, 3.4348074828647447`*^9, 3.434809155373302*^9, 
   3.434809444374235*^9, {3.434809511410377*^9, 3.434809613954556*^9}, 
   3.434811031845299*^9, 3.434837641051079*^9, 3.4352879346874156`*^9, 
   3.435288241012616*^9, 3.435288294637051*^9, {3.435289267427353*^9, 
   3.4352892886267786`*^9}, 3.4357245776256323`*^9, 3.4357247987425585`*^9, 
   3.445377140035919*^9, 3.4453773091357*^9, 3.445377502870414*^9, 
   3.445377545390707*^9, 3.445378643067197*^9, 3.445378894433632*^9, 
   3.445379957641246*^9, 3.445453468912652*^9, 3.4462463861561155`*^9, 
   3.446246534764985*^9, 3.4470117467232337`*^9, 3.447257783649111*^9, 
   3.4474715233283997`*^9, 3.447471924216854*^9, 3.447472682351879*^9, 
   3.4474740336780415`*^9, 3.447474564500741*^9, 3.447476243992237*^9, 
   3.4475564315175085`*^9, 3.4475598389231405`*^9, 3.4476447409462776`*^9, 
   3.4477290236193657`*^9, 3.4477291096121597`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"eaXFunc", "[", 
   RowBox[{
   "stromaID", ",", "0", ",", "0", ",", "5", ",", "stromaID", ",", "10", ",", 
    "0", ",", "5"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.430602056542641*^9, 3.430602094455645*^9}, {
  3.430602130215639*^9, 3.430602143574315*^9}, {3.4329109318573923`*^9, 
  3.4329109367742662`*^9}}],

Cell[BoxData["0.`"], "Output",
 CellChangeTimes->{{3.430602080185695*^9, 3.430602095056485*^9}, {
   3.430602133450161*^9, 3.4306021442752953`*^9}, 3.4306646177785683`*^9, 
   3.4306652483100777`*^9, 3.430665786352284*^9, 3.430666133317356*^9, 
   3.4306671514207077`*^9, 3.430670338115844*^9, 3.4306707486998577`*^9, 
   3.4306804985028086`*^9, 3.4306914706623564`*^9, 3.4307053478532624`*^9, 
   3.4307054074966464`*^9, 3.4307068322588644`*^9, 3.4307085934310584`*^9, 
   3.430711852644471*^9, 3.430712106749754*^9, 3.4307121824980183`*^9, 
   3.430712222258182*^9, {3.430712271103929*^9, 3.430712326491684*^9}, 
   3.431128725346084*^9, {3.431128853961986*^9, 3.4311288753713923`*^9}, {
   3.43112906737962*^9, 3.431129092211342*^9}, 3.431129152585788*^9, 
   3.431129323403201*^9, 3.431132582315436*^9, 3.431132663730608*^9, 
   3.431133782356901*^9, 3.4311339212234993`*^9, 3.431134245647003*^9, 
   3.4311342882860193`*^9, 3.4311343224994926`*^9, 3.431135173235681*^9, 
   3.4311352398878927`*^9, 3.431135323895485*^9, 3.431136495599934*^9, 
   3.431136533736944*^9, 3.4311462690987043`*^9, 3.431146554914761*^9, 
   3.431147252273387*^9, 3.4311473033013067`*^9, 3.4312860925834537`*^9, 
   3.431287722562234*^9, 3.4312925815753417`*^9, 3.4312932381132097`*^9, 
   3.4312942074984517`*^9, 3.432041563663826*^9, 3.4327566596457777`*^9, 
   3.432756779653554*^9, 3.432756931095276*^9, 3.43275737742927*^9, 
   3.4327711528962507`*^9, 3.4328195849162846`*^9, 3.432819667301462*^9, 
   3.4328277661640186`*^9, 3.4328291267762127`*^9, 3.4328293774566746`*^9, 
   3.432842810797058*^9, 3.432842911287548*^9, 3.432853393031474*^9, 
   3.4328566630531044`*^9, {3.432910933990374*^9, 3.43291093733505*^9}, 
   3.4329186889321136`*^9, 3.4330164158214664`*^9, 3.4330180226278505`*^9, 
   3.433018188800167*^9, 3.433021194992953*^9, 3.433021959221377*^9, 
   3.4330428144341784`*^9, 3.43304713460396*^9, 3.4330477447669945`*^9, 
   3.4330809487628965`*^9, 3.433081775278401*^9, 3.433094762605239*^9, 
   3.433095228436491*^9, 3.4330967010152187`*^9, 3.434503732447503*^9, 
   3.434504299470225*^9, 3.434504841087429*^9, 3.4347577398267117`*^9, 
   3.43477946853648*^9, 3.4347803478269978`*^9, 3.4347805091409125`*^9, 
   3.4347806928659363`*^9, 3.434806890382337*^9, 3.434807356739674*^9, 
   3.434807429270352*^9, 3.4348074828747587`*^9, 3.434809155457938*^9, 
   3.4348094444008627`*^9, {3.434809511436617*^9, 3.434809613985181*^9}, 
   3.434811032428773*^9, 3.4348376411775618`*^9, 3.435287934707443*^9, 
   3.4352882410226307`*^9, 3.4352882946470647`*^9, {3.435289267467408*^9, 
   3.4352892886468067`*^9}, 3.4357245776356463`*^9, 3.435724798752572*^9, 
   3.4453771400960045`*^9, 3.4453773091757574`*^9, 3.4453775029104705`*^9, 
   3.445377545440778*^9, 3.445378643127282*^9, 3.445378894503731*^9, 
   3.445379957701331*^9, 3.4454534689727373`*^9, 3.4462463862061825`*^9, 
   3.4462465348250656`*^9, 3.4470117467432623`*^9, 3.447257783659125*^9, 
   3.447471524109507*^9, 3.447471924226868*^9, 3.447472682421979*^9, 
   3.447474033748141*^9, 3.44747456457084*^9, 3.4474762440723505`*^9, 
   3.447556431527523*^9, 3.447559838933155*^9, 3.447644741006364*^9, 
   3.44772902369948*^9, 3.4477291098625174`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"eaXFunc", "[", 
    RowBox[{
    "stemID", ",", "x", ",", "0", ",", "1", ",", "nrnID", ",", "0", ",", "0", 
     ",", "5"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "5", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.430602030065625*^9, 3.4306020373658314`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxNzglI03EUB/D/KucyUbPNZh5zqRma2SyxRElF5lG6ZeRUtJj91zRrWebF
KMUMpfBoqRNNRWlbRsMrjHmE1Twi7ZgYTkJX6gq1tAM0M60gfu/34PH4wBfe
l510IVq0gSCIqL/77wab66kEQQ8k/o/F08smMgpYn2W1yWUjOG0qlBJGBdd3
dvwqNQevJpcvsmzBHX288cPeYI/cfnUuCb4a+e5M+hvw0rba53t9GciCOu+o
uWowu2Bx2s7UBnlrUpwr/Rw4tWY2K08PVlfx5z+HbEdmlAjNnJvAHyeq/YYY
TORJt1x6gBT8+MBBq+YJsGmtrWNFhC1y5m/FaHAzmK+Jryftd0C/Q9M3CgvB
yy1Mp0tz4PCCjIHXAjvkXt4V5lI3uCFTLb3lbo98VthGeFaC40KSvMpWwG35
fmlisQMyR9MTTx0Gy9sZYuU+R2Tx5srrnXfAiYInkZUUFnIPwdhtlIBNJAEu
vuPgzhTajBvLCXlXBDVIcgKsUOovMovATJF8/zMNOPBYyppqASzVWNUtstnI
qbwhbnosWCJM1MbdBJOjY7rAHrBlVvKs8Dt4uHz4rdF1J/wzcIcUCWBV8f1o
kQzMfjSlLtKC+RYca+MKWPb++BGVpzPyoI2QkXIK3J6T/4msALfG5pRpB8Ck
qCDo5Bq4oyFtkMRMm0jgpWJ+EOOTmI35R6gxW4b5mntYSz/mxoUtLK91LO+x
rPDBzE2e3uOPedbQ7ReOmaM7H3Mac+/DV8VyzNZfu+h1mEnPezV3MdOUeU2t
mPlyTt8LzI0jDkd1eD9Ls5ExzFVFHwwzeD/tS/E8Zn9K15dvmEsCVBk/MU/m
3F5dx/wHq8gOKw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{5., 0},
  PlotRange->{{5, 10}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.430602040500213*^9, 3.430664617828638*^9, 3.430665248360148*^9, 
   3.4306657863923397`*^9, 3.430666133347398*^9, 3.430667151480792*^9, 
   3.4306703381559*^9, 3.430670748719886*^9, 3.4306804985228367`*^9, 
   3.430691470692398*^9, 3.4307053478833046`*^9, 3.4307054075266886`*^9, 
   3.430706832288906*^9, 3.4307085934611006`*^9, 3.4307118526972837`*^9, 
   3.4307121067675047`*^9, 3.430712182636758*^9, 3.43071222236399*^9, {
   3.430712271127192*^9, 3.430712326542263*^9}, 3.431128725395071*^9, {
   3.43112885401661*^9, 3.431128875518799*^9}, {3.4311290674224586`*^9, 
   3.431129092254867*^9}, 3.4311291526514587`*^9, 3.4311293234452467`*^9, 
   3.431132582362398*^9, 3.431132663784141*^9, 3.431133782407714*^9, 
   3.4311339215533733`*^9, 3.431134245690647*^9, 3.431134288564843*^9, 
   3.4311343225480957`*^9, 3.4311351732778482`*^9, 3.431135239940217*^9, 
   3.43113532394916*^9, 3.431136495658269*^9, 3.431136533782041*^9, 
   3.431146269152461*^9, 3.431146554962804*^9, 3.431147252318055*^9, 
   3.4311473033549356`*^9, 3.4312860926435375`*^9, 3.4312877226223173`*^9, 
   3.4312925854707875`*^9, 3.4312932381432514`*^9, 3.431294207528494*^9, 
   3.432041563725245*^9, 3.4327566596758204`*^9, 3.432756779733666*^9, 
   3.432756931125318*^9, 3.432757377459312*^9, 3.4327711529262924`*^9, 
   3.4328195849463263`*^9, 3.4328196673315043`*^9, 3.4328277661940603`*^9, 
   3.4328291269164085`*^9, 3.4328293774967303`*^9, 3.4328428108271008`*^9, 
   3.4328429113175907`*^9, 3.4328533930715303`*^9, 3.432856663083146*^9, 
   3.4329186889621563`*^9, 3.4330164158615227`*^9, 3.4330180226679068`*^9, 
   3.433018188850237*^9, 3.4330211950129805`*^9, 3.4330219592614326`*^9, 
   3.43304281446422*^9, 3.433047134634002*^9, 3.433047744797036*^9, 
   3.4330809487829247`*^9, 3.4330817752984285`*^9, 3.433094762675337*^9, 
   3.4330952284665327`*^9, 3.433096701045261*^9, 3.434503732477545*^9, 
   3.4345042994902525`*^9, 3.4345048411074567`*^9, 3.434757739886794*^9, 
   3.434779468556508*^9, 3.434780347867053*^9, 3.4347805091709547`*^9, 
   3.4347806928959775`*^9, 3.434806890412379*^9, 3.43480735677973*^9, 
   3.434807429320421*^9, 3.4348074828947864`*^9, 3.434809155540223*^9, 
   3.434809444431652*^9, {3.4348095114648533`*^9, 3.434809614015267*^9}, 
   3.434811032980994*^9, 3.434837641306561*^9, 3.4352879347474985`*^9, 
   3.435288241052672*^9, 3.435288294677107*^9, {3.4352892675274916`*^9, 
   3.4352892886668344`*^9}, 3.435724577665688*^9, 3.4357247987826138`*^9, 
   3.4453771401661043`*^9, 3.445377309255871*^9, 3.4453775029605417`*^9, 
   3.445377545500863*^9, 3.4453786431873674`*^9, 3.445378894583844*^9, 
   3.4453799577814445`*^9, 3.445453469042837*^9, 3.446246386246236*^9, 
   3.446246534885146*^9, 3.447011746773305*^9, 3.4472577836791534`*^9, 
   3.447471524309791*^9, 3.4474719242468967`*^9, 3.447472682482064*^9, 
   3.44747403381824*^9, 3.4474745646409397`*^9, 3.4474762441624784`*^9, 
   3.4475564315575657`*^9, 3.4475598389531837`*^9, 3.4476447410764637`*^9, 
   3.4477290263232265`*^9, 3.4477291099927025`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"eaYFunc", "[", 
    RowBox[{
    "stemID", ",", "0", ",", "y", ",", "1", ",", "nrnID", ",", "0", ",", "0", 
     ",", "5"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "5", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.423420775377088*^9, 3.4234207780007563`*^9}, {
   3.4306012503755856`*^9, 3.430601269512339*^9}, 3.4306015404711514`*^9, 
   3.430601630977683*^9, 3.4306019489622393`*^9, 3.430602022745391*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxNzglI03EUB/D/KucyUbPNZh5zqRma2SyxRElF5lG6ZeRUtJj91zRrWebF
KMUMpfBoqRNNRWlbRsMrjHmE1Twi7ZgYTkJX6gq1tAM0M60gfu/34PH4wBfe
l510IVq0gSCIqL/77wab66kEQQ8k/o/F08smMgpYn2W1yWUjOG0qlBJGBdd3
dvwqNQevJpcvsmzBHX288cPeYI/cfnUuCb4a+e5M+hvw0rba53t9GciCOu+o
uWowu2Bx2s7UBnlrUpwr/Rw4tWY2K08PVlfx5z+HbEdmlAjNnJvAHyeq/YYY
TORJt1x6gBT8+MBBq+YJsGmtrWNFhC1y5m/FaHAzmK+Jryftd0C/Q9M3CgvB
yy1Mp0tz4PCCjIHXAjvkXt4V5lI3uCFTLb3lbo98VthGeFaC40KSvMpWwG35
fmlisQMyR9MTTx0Gy9sZYuU+R2Tx5srrnXfAiYInkZUUFnIPwdhtlIBNJAEu
vuPgzhTajBvLCXlXBDVIcgKsUOovMovATJF8/zMNOPBYyppqASzVWNUtstnI
qbwhbnosWCJM1MbdBJOjY7rAHrBlVvKs8Dt4uHz4rdF1J/wzcIcUCWBV8f1o
kQzMfjSlLtKC+RYca+MKWPb++BGVpzPyoI2QkXIK3J6T/4msALfG5pRpB8Ck
qCDo5Bq4oyFtkMRMm0jgpWJ+EOOTmI35R6gxW4b5mntYSz/mxoUtLK91LO+x
rPDBzE2e3uOPedbQ7ReOmaM7H3Mac+/DV8VyzNZfu+h1mEnPezV3MdOUeU2t
mPlyTt8LzI0jDkd1eD9Ls5ExzFVFHwwzeD/tS/E8Zn9K15dvmEsCVBk/MU/m
3F5dx/wHq8gOKw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{5., 0},
  PlotRange->{{5, 10}, {0., 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.42342077851147*^9, 3.423426166934716*^9, 3.4234262492097397`*^9, 
   3.4234291729986053`*^9, 3.4234292469419813`*^9, 3.4234307112491455`*^9, 
   3.423452008563701*^9, 3.423453431653241*^9, 3.423489318917391*^9, 
   3.423491443427547*^9, 3.4235069506075907`*^9, 3.423507084154295*^9, 
   3.423507379977869*^9, 3.4235104194171352`*^9, 3.4235121602709227`*^9, 
   3.423513508115267*^9, 3.4235166012195587`*^9, 3.4235182669282913`*^9, 
   3.423538898360919*^9, 3.423539696574163*^9, 3.4235397723458*^9, 
   3.423539843980391*^9, 3.42357450680786*^9, 3.423576649946566*^9, 
   3.423576981274502*^9, 3.423578729146037*^9, 3.423582815951047*^9, 
   3.4235894694514227`*^9, 3.423590926188047*^9, 3.423591211647256*^9, 
   3.423591539106822*^9, 3.4235924755927*^9, 3.423592643820101*^9, 
   3.423594841687961*^9, 3.423598440479619*^9, 3.423599366414908*^9, 
   3.4236048124108953`*^9, 3.423605213301381*^9, 3.423606762606669*^9, 
   3.423606835991993*^9, 3.423606910163253*^9, 3.4236071322630243`*^9, 
   3.423621387512745*^9, 3.4236215496416597`*^9, 3.423621804923477*^9, 
   3.4236218885085363`*^9, 3.4236244251731567`*^9, 3.42388675270568*^9, 
   3.423925366152174*^9, 3.423945555808176*^9, 3.4239693254791923`*^9, 
   3.42396992994426*^9, 3.4239703131299706`*^9, 3.4239705068508005`*^9, 
   3.423971809973061*^9, 3.4239720612428923`*^9, 3.423972115462185*^9, 
   3.423972160221285*^9, 3.423972221157692*^9, 3.424010830436739*^9, 
   3.4240109001151876`*^9, 3.424010972439932*^9, 3.424011040033737*^9, 
   3.424011098563575*^9, 3.424011159228982*^9, 3.424023474432707*^9, 
   3.424056533761371*^9, 3.4241290097825236`*^9, 3.424466626512136*^9, {
   3.424468218017128*^9, 3.424468246456888*^9}, 3.424471229206482*^9, 
   3.424472529174294*^9, 3.424472603882682*^9, 3.424472711988696*^9, {
   3.424472762809469*^9, 3.424472831010408*^9}, 3.4244734456346617`*^9, 
   3.4244735115998077`*^9, 3.4244739977688437`*^9, 3.424474043274539*^9, {
   3.424474092734075*^9, 3.42447411065462*^9}, {3.4244741431939898`*^9, 
   3.4244741677199097`*^9}, 3.424628966159293*^9, 3.4246322732026815`*^9, 
   3.427215363313267*^9, 3.427217473573501*^9, 3.4273400986730537`*^9, 
   3.427340152543151*^9, 3.427340201201229*^9, 3.427340246288471*^9, 
   3.427340284096013*^9, 3.427340335011364*^9, 3.4276856713638196`*^9, 
   3.4276857059922314`*^9, 3.427724054641008*^9, 3.4277241926139*^9, 
   3.427724228754426*^9, 3.427726521239418*^9, 3.427741124855898*^9, 
   3.427742028769608*^9, 3.427748206155858*^9, 3.427758083762437*^9, 
   3.4277681143756633`*^9, 3.427770816393199*^9, 3.427773625350241*^9, 
   3.4278144392110434`*^9, 3.4278146192327213`*^9, 3.427897737179088*^9, 
   3.427898088319998*^9, 3.427898263034256*^9, 3.427898688168612*^9, 
   3.42789999686823*^9, 3.427900136583558*^9, 3.42790027605855*^9, 
   3.42790150472628*^9, 3.427901595463134*^9, 3.427901800429686*^9, 
   3.427903198203834*^9, 3.427903865106192*^9, 3.427903951456914*^9, 
   3.427904066117214*^9, 3.4279042711138077`*^9, 3.427908602759634*^9, 
   3.4279086800076303`*^9, 3.42790894502814*^9, 3.427909042925004*^9, 
   3.42790936040886*^9, 3.427913635105068*^9, 3.4279898250987673`*^9, 
   3.427989928653541*^9, 3.4279902809761033`*^9, 3.4279909560598993`*^9, 
   3.427996175694111*^9, {3.427996219653957*^9, 3.427996319121593*^9}, 
   3.427999873869259*^9, 3.4280006267574673`*^9, {3.428000688275419*^9, 
   3.42800079501378*^9}, 3.428032213726203*^9, 3.4280721015033255`*^9, 
   3.4280738140174932`*^9, 3.4280756843623157`*^9, 3.428076277242593*^9, 
   3.4280763955359592`*^9, {3.4280764257879133`*^9, 3.4280764455852737`*^9}, 
   3.428076478317752*^9, 3.4280765128733883`*^9, 3.428084145500225*^9, 
   3.4280855676272287`*^9, 3.4280870186691847`*^9, 3.428087850659348*^9, 
   3.4280920766697164`*^9, 3.4280974191487303`*^9, 3.42815448050756*^9, 
   3.4281551321285543`*^9, 3.428293406126155*^9, 3.428293591637125*^9, {
   3.428293691693183*^9, 3.4282937933568573`*^9}, 3.428418693822387*^9, 
   3.4284505870397825`*^9, 3.4284996722402534`*^9, 3.4285494322775064`*^9, 
   3.428599095556159*^9, 3.428625182743352*^9, {3.428625262494409*^9, 
   3.428625398823966*^9}, 3.428703007440342*^9, 3.4294513037164993`*^9, 
   3.429451368880691*^9, {3.429451409227318*^9, 3.429451432039554*^9}, 
   3.429456718128791*^9, 3.429796525571594*^9, 3.429796591944386*^9, 
   3.4298964365683546`*^9, 3.4298967822015643`*^9, 3.429969425216181*^9, 
   3.430073759957444*^9, 3.430601018050785*^9, {3.430601248122435*^9, 
   3.4306012701332073`*^9}, 3.430601318090253*^9, 3.430601540601333*^9, {
   3.430601619261303*^9, 3.430601631979083*^9}, 3.4306016936653233`*^9, {
   3.4306018670076632`*^9, 3.4306019104584093`*^9}, {3.4306019432442455`*^9, 
   3.4306019493227434`*^9}, 3.430602023196021*^9, 3.43066461790875*^9, 
   3.4306652485003443`*^9, 3.43066578644241*^9, 3.430666133387454*^9, 
   3.430667151530862*^9, 3.4306703382159843`*^9, 3.430670748759942*^9, 
   3.4306804985729065`*^9, 3.4306914707324543`*^9, 3.4307053479233603`*^9, 
   3.4307054075667443`*^9, 3.4307068323289623`*^9, 3.4307085935011563`*^9, 
   3.430711852713154*^9, 3.43071210678318*^9, 3.4307121826521807`*^9, 
   3.430712222558908*^9, {3.430712271148386*^9, 3.4307123265693827`*^9}, 
   3.431128725446877*^9, {3.4311288540750647`*^9, 3.431128875567358*^9}, {
   3.431129067472362*^9, 3.4311290922994967`*^9}, 3.4311291526676483`*^9, 
   3.4311293234630413`*^9, 3.4311325824104433`*^9, 3.431132663841181*^9, 
   3.431133782462531*^9, 3.431133921605885*^9, 3.4311342457362547`*^9, 
   3.431134288584536*^9, 3.4311343225706387`*^9, 3.431135173326872*^9, 
   3.431135239993225*^9, 3.431135324002162*^9, 3.431136495674096*^9, 
   3.4311365338026543`*^9, 3.4311462691681004`*^9, 3.431146555016061*^9, 
   3.4311472523690777`*^9, 3.431147303410412*^9, 3.4312860928438177`*^9, 
   3.4312877226824017`*^9, 3.4312925855108433`*^9, 3.4312932381933217`*^9, 
   3.4312942075685496`*^9, 3.432041563740287*^9, 3.432756659715876*^9, 
   3.4327567798638477`*^9, 3.432756931165374*^9, 3.4327573774993677`*^9, 
   3.4327711529663486`*^9, 3.4328195849863825`*^9, 3.43281966737156*^9, 
   3.4328277662341166`*^9, 3.4328291269564643`*^9, 3.432829377536786*^9, 
   3.4328428108771706`*^9, 3.4328429113476324`*^9, 3.4328533931115866`*^9, 
   3.4328566631232023`*^9, 3.432918689012226*^9, 3.433016415961663*^9, 
   3.4330180227179766`*^9, 3.4330181889103208`*^9, 3.4330211950530367`*^9, 
   3.433021959321517*^9, 3.43304281451429*^9, 3.4330471346640444`*^9, 
   3.433047744917204*^9, 3.433080948822981*^9, 3.433081775338485*^9, 
   3.4330947627053785`*^9, 3.433095228496575*^9, 3.4330967010953307`*^9, 
   3.4345037325075865`*^9, 3.434504299520295*^9, 3.434504841137499*^9, 
   3.4347577399669046`*^9, 3.4347794685865498`*^9, 3.434780347907109*^9, 
   3.43478050921101*^9, 3.434780692926019*^9, 3.4348068905726013`*^9, 
   3.434807356829799*^9, 3.434807429370491*^9, 3.434807482924828*^9, 
   3.434809155560305*^9, 3.434809444469317*^9, {3.4348095114966927`*^9, 
   3.4348096140492697`*^9}, 3.434811033839954*^9, 3.434837641324197*^9, 
   3.435287934917735*^9, 3.435288241112756*^9, 3.4352882947071486`*^9, {
   3.4352892675975885`*^9, 3.43528928870689*^9}, 3.435724577745799*^9, 
   3.4357247988226695`*^9, 3.4453771403663883`*^9, 3.4453773093259706`*^9, 
   3.4453775030005984`*^9, 3.445377545550934*^9, 3.44537864328751*^9, 
   3.445378894673972*^9, 3.4453799578916006`*^9, 3.445453469092908*^9, 
   3.4462463863063164`*^9, 3.446246534935213*^9, 3.4470117468133616`*^9, 
   3.447257783709196*^9, 3.4474715245701604`*^9, 3.4474719242769394`*^9, 
   3.447472682552163*^9, 3.4474740338983536`*^9, 3.4474745647310677`*^9, 
   3.4474762442225637`*^9, 3.447556431587609*^9, 3.447559838983227*^9, 
   3.4476447411465635`*^9, 3.4477290263933263`*^9, 3.4477291100628033`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ebYFunc", "[", 
    RowBox[{
    "stemID", ",", "0", ",", "y", ",", "2.5", ",", "nrnID", ",", "0", ",", 
     "0", ",", "5"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "7.5", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.42342003497197*^9, 3.423420045216292*^9}, {
  3.423420089117668*^9, 3.423420183449548*^9}, {3.4234207664846563`*^9, 
  3.4234207711511803`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVzXtUzHkABfAxPSUTWdE+fjO/35Skh156aOhW02PIlElTdhtqKLWGyiRl
V9siRQhtTV7RKrETPbAZx5JH7aZNVgk72d1K2laSyoiT7Ncf99zzOfePS8uT
JHFsFoslJvnY9C6FHotF4XfFN7NLDCNhGHuF3US8eK/B3VR2JAa8jdmHJlGw
XTlTGDIhxeVXp1hWehQePliY8v61FGEy7fsgQwrGNfeaE3qlyHRbMpZvSqHe
4+GaNbel0HbbvOBaUgjLmu7Yt12KQp+eDh8XCjPkxZdothTX5my8oEmgsHVP
53TN6Aq82313reoohYXH0mSt+iswL9SyYnMLBdPk7fkGVuEw80sf3qfHRTZV
2RHmLYFRTaW5iTsXUanNNZRiOS4ue+1dr+Ai+I/Dn4wUhiEiZK4u7UcuaiJ6
SuRHQzH5V6fsg+1ceM7YOv7AXQxN3WmO0oCH7x22cF41hGCsiRvQSvFQRp2O
T922FE5TObfVHjwMn/BaUSFaAv91u4LKJTzsL2xI7zURYfV3iZfuredBOS3q
mOXLIEjPd9hY5vAQNE35Q3lTIII4mu6uUh6a+zI8BXUB8LU3zO28wsOLlrOu
uptCWMQ+cR59wMPUQ2f6+Y3+GA3nNi56yYP1ie7dhr1+OCd7vqrMhMbqc5ki
+bgvYortkWdNY3JqXtcTxhefH3w0pWwxDcqzluUZC1w4yel8vJKG48N3Rved
fRC+sarIV0njSzvdLvOWRXihaDhsu5dGiEQ7626mAPLtcaWOFTTUsqLEOitv
/BORXBBXT6M8WGhZMOQFLxjs0WhpdFZ1JejXeiLvK7OmfToaksDiRda5Huhz
2zlcYMYg8vZV0btMd3xhvYNXN4+Bk3m8QqVYAFnbgKepkIHdpA5GmO4GVW3z
4a5oBtdGG9mSAleoz7h9aNvCICbg7VLn0y5oijYOHTvA4G+/uGcz2pxxwyb+
lFclg1sXrndfH3PCrWrH7soGBrZ+ghSJuxOuf61IPPkXA42qyj+UNR+F3m6v
q98yiB7577h9jgM234lfP2LOh9j+l50xHvaYn8x/JnHkYyDKyE7cOQ89gRFn
XUR8dG1wyWlS2aJU+0oqlPNhI+Z81pM2F145sycrt5F9cNomdogNtENny9uK
+Eg/pXftie8cpOVV77lYxceN4mfnvg22xoDAN7X2DvlTV7Qi0AqKSkFwdw8f
z1eWXJLG8NHocpM3/wMfFiPCvpJNDAbDPNe6EMc8rXbYQTwr6XzFAuKMrMDU
dcQJ6iOOAuLoy4OTnIinWCkFIuKnXFfujRQGYTOtotYQL1XlxfYkM9C+yc5X
ERukZBjMTWKgbzF+/wixWcCny02J7d02WZQQ2159emxoI4PM5FXHy4jTDunc
NMS8fnd1DTHn8dR1S4jj/+xrbCYeKjJpU2xgsH9MZtJKnJUZQC8nrrNoX3af
2M7gp6QFxMbh9e2PiN8PvjSdUDBQNxd39xIfcUgS5RO393Pm9H/8M3pTrCQe
N8pOHCDekXnm30hisTBlaJiY65+byyNOk/e56ojFB35+pE98Iku25S1xaQbH
tn89g99K2q6ME49M5Ge0EA9dFU18INZxve/UEP8PnioXaw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{7.5, 20.},
  PlotRange->{{7.5, 10}, {9.210340804784192, 92.10339939168188}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4234200458772163`*^9, {3.4234200908801317`*^9, 3.423420183990304*^9}, 
   3.423426166984786*^9, 3.423426249279838*^9, 3.423429173058689*^9, 
   3.423429247002065*^9, 3.4234307112992153`*^9, 3.423452008603757*^9, 
   3.423453431703311*^9, 3.4234893190575867`*^9, 3.423491443597785*^9, 
   3.423506950657661*^9, 3.423507084234407*^9, 3.423507380027939*^9, 
   3.423510419457191*^9, 3.4235121604511747`*^9, 3.423513508165337*^9, 
   3.423516601269629*^9, 3.4235182669983892`*^9, 3.42353889837994*^9, 
   3.4235396966201353`*^9, 3.4235397723885193`*^9, 3.4235398440581007`*^9, 
   3.423574506851303*^9, 3.4235766499962893`*^9, 3.423576981322035*^9, 
   3.4235787291939898`*^9, 3.4235828160019407`*^9, 3.4235894695080214`*^9, 
   3.423590926240155*^9, 3.4235912257984343`*^9, 3.423591539164282*^9, 
   3.423592475637641*^9, 3.423592643876898*^9, 3.42359484173393*^9, 
   3.42359844053261*^9, 3.423599366456757*^9, 3.423604812462921*^9, 
   3.423605213357133*^9, 3.423606762646866*^9, 3.423606836042766*^9, 
   3.423606910209137*^9, 3.423607132328429*^9, 3.423621387558406*^9, 
   3.423621549841894*^9, 3.423621804967575*^9, 3.4236218887187862`*^9, 
   3.4236244252212353`*^9, 3.4238867527457356`*^9, 3.4239253662022443`*^9, 
   3.423945555858246*^9, 3.423969325539276*^9, 3.423969930024372*^9, 
   3.4239703131700263`*^9, 3.42397050700101*^9, 3.42397181001381*^9, 
   3.423972061307362*^9, 3.423972115508634*^9, 3.4239721602852573`*^9, 
   3.423972221209095*^9, 3.4240108304935017`*^9, 3.4240109001616087`*^9, 
   3.4240109724907093`*^9, 3.424011040095523*^9, 3.4240110986743593`*^9, 
   3.4240111593735523`*^9, 3.424023474546175*^9, 3.4240565338314695`*^9, 
   3.4241290099127054`*^9, 3.4244666265521917`*^9, {3.424468218067198*^9, 
   3.424468246607098*^9}, 3.424471229221525*^9, 3.424472529226701*^9, 
   3.424472603907838*^9, 3.424472712012343*^9, {3.424472762830912*^9, 
   3.424472831044005*^9}, 3.42447344567489*^9, 3.4244735116437073`*^9, 
   3.424473997784873*^9, 3.424474043289761*^9, {3.424474092750216*^9, 
   3.4244741106836843`*^9}, {3.424474143219138*^9, 3.424474167761372*^9}, 
   3.4246289661993494`*^9, 3.4246322732427373`*^9, 3.427215363353323*^9, 
   3.4272174736435995`*^9, 3.4273400986891603`*^9, 3.427340152557906*^9, 
   3.427340201217947*^9, 3.427340246304615*^9, 3.427340284115107*^9, 
   3.427340335041359*^9, 3.4276856714038754`*^9, 3.4276857060423017`*^9, 
   3.4277240546810637`*^9, 3.427724192673984*^9, 3.427724228854566*^9, 
   3.427726521289488*^9, 3.4277411249059677`*^9, 3.4277420288196783`*^9, 
   3.427748206205928*^9, 3.427758083812507*^9, 3.427768114415719*^9, 
   3.427770816423241*^9, 3.427773625390297*^9, 3.427814439251099*^9, 
   3.4278146192727776`*^9, 3.427897737219144*^9, 3.427898088370068*^9, 
   3.427898263084326*^9, 3.427898688228696*^9, 3.4278999969182997`*^9, 
   3.427900136633628*^9, 3.4279002761086197`*^9, 3.42790150477635*^9, 
   3.427901595513204*^9, 3.4279018004797564`*^9, 3.42790319824389*^9, 
   3.427903865146248*^9, 3.4279039515069838`*^9, 3.42790406625741*^9, 
   3.427904271173892*^9, 3.427908602829732*^9, 3.4279086800777283`*^9, 
   3.427908945088224*^9, 3.42790904296506*^9, 3.4279093604989862`*^9, 
   3.4279136351851797`*^9, 3.427989825148837*^9, 3.4279899287036114`*^9, 
   3.427990281026173*^9, 3.427990956099955*^9, 3.4279961757138033`*^9, {
   3.427996219669497*^9, 3.427996319148224*^9}, 3.4279998740115433`*^9, 
   3.428000626778799*^9, {3.4280006882930117`*^9, 3.4280007950509453`*^9}, 
   3.4280322137662587`*^9, 3.4280721015433817`*^9, 3.4280738140675635`*^9, 
   3.4280756844023714`*^9, 3.428076277259153*^9, 3.428076395550929*^9, {
   3.428076425802548*^9, 3.428076445601946*^9}, 3.428076478343019*^9, 
   3.428076512893725*^9, 3.428084145540515*^9, 3.428085567772387*^9, 
   3.428087018719172*^9, 3.428087850705488*^9, 3.428092076799898*^9, 
   3.4280974192088146`*^9, 3.428154480567644*^9, 3.428155132178624*^9, 
   3.428293406142486*^9, 3.4282935916529293`*^9, {3.4282936917093887`*^9, 
   3.428293793511052*^9}, 3.4284186939225273`*^9, 3.4284505872000065`*^9, 
   3.428499672300338*^9, 3.428549432317562*^9, 3.428599095596215*^9, 
   3.4286251827645807`*^9, {3.4286252625131197`*^9, 3.428625398858677*^9}, 
   3.428703007508892*^9, 3.429451303732945*^9, 3.4294513688964148`*^9, {
   3.429451409242272*^9, 3.429451432056164*^9}, 3.429456718146174*^9, 
   3.42979652561165*^9, 3.4297965919844418`*^9, 3.4298964366184244`*^9, 
   3.42989678224162*^9, 3.429969425256237*^9, 3.4300737599975*^9, 
   3.4306010181108694`*^9, {3.4306019393087435`*^9, 3.430601941832271*^9}, 
   3.430664617978848*^9, 3.430665248550414*^9, 3.4306657864924803`*^9, 
   3.4306661334275103`*^9, 3.430667151570918*^9, 3.4306703382760677`*^9, 
   3.4306707487999983`*^9, 3.4306804986129627`*^9, 3.430691470782524*^9, 
   3.430705347963416*^9, 3.430705414476404*^9, 3.4307068323690186`*^9, 
   3.4307085935512266`*^9, 3.4307118527303877`*^9, 3.430712106921365*^9, 
   3.430712182669093*^9, 3.43071222257682*^9, {3.4307122711684933`*^9, 
   3.4307123266015053`*^9}, 3.431128725495949*^9, {3.43112885413426*^9, 
   3.43112887562077*^9}, {3.431129067520759*^9, 3.431129092344438*^9}, 
   3.431129152847806*^9, 3.431129323480509*^9, 3.431132582459992*^9, 
   3.4311326638991747`*^9, 3.431133782516333*^9, 3.4311339217238398`*^9, 
   3.4311342457880363`*^9, 3.431134288602332*^9, 3.43113432259149*^9, 
   3.4311351735702953`*^9, 3.431135240045454*^9, 3.431135324053625*^9, 
   3.431136495698514*^9, 3.431136533826668*^9, 3.431146269183498*^9, 
   3.431146555066825*^9, 3.431147252418082*^9, 3.4311473035850554`*^9, 
   3.4312860929139156`*^9, 3.4312877227524996`*^9, 3.4312925855609136`*^9, 
   3.4312932382734337`*^9, 3.43129420761862*^9, 3.432041563755722*^9, 
   3.432756659755932*^9, 3.4327567799339457`*^9, 3.43275693120543*^9, 
   3.432757377539424*^9, 3.4327711530064044`*^9, 3.4328195850364523`*^9, 
   3.4328196674116163`*^9, 3.4328277662841864`*^9, 3.4328291270766325`*^9, 
   3.4328293775768423`*^9, 3.4328428109172263`*^9, 3.4328429113876886`*^9, 
   3.4328533931616564`*^9, 3.432856663173272*^9, 3.4329186890522823`*^9, 
   3.433016416011733*^9, 3.433018022868187*^9, 3.4330181889704046`*^9, 
   3.433021195083079*^9, 3.433021959371587*^9, 3.433042814574374*^9, 
   3.4330471347041*^9, 3.43304774495726*^9, 3.433080948863037*^9, 
   3.433081775378541*^9, 3.4330947627454348`*^9, 3.433095228526617*^9, 
   3.4330967011353865`*^9, 3.4345037325476427`*^9, 3.434504299550337*^9, 
   3.4345048411675406`*^9, 3.4347577400269876`*^9, 3.434779468626605*^9, 
   3.434780347957178*^9, 3.4347805092510653`*^9, 3.4347806929760885`*^9, 
   3.434806890622671*^9, 3.434807356869855*^9, 3.4348074294806433`*^9, 
   3.434807482964884*^9, 3.434809155579866*^9, 3.434809444632709*^9, {
   3.434809511528165*^9, 3.4348096140861893`*^9}, 3.434811034057898*^9, 
   3.434837641341613*^9, 3.435287934967805*^9, 3.435288241162825*^9, 
   3.435288294747204*^9, {3.4352892676676865`*^9, 3.4352892887469454`*^9}, 
   3.435724577785855*^9, 3.4357247988627253`*^9, 3.445377140416459*^9, 
   3.445377309406084*^9, 3.445377503040655*^9, 3.445377545611019*^9, 
   3.4453786434477367`*^9, 3.4453788947440715`*^9, 3.4453799580017567`*^9, 
   3.4454534691630073`*^9, 3.4462463863563833`*^9, 3.446246534995293*^9, 
   3.4470117468534184`*^9, 3.4472577837492523`*^9, 3.447471526012205*^9, 
   3.447471924316996*^9, 3.4474726826122484`*^9, 3.4474740339684534`*^9, 
   3.4474745648011665`*^9, 3.447476244282649*^9, 3.447556431627666*^9, 
   3.447559839023284*^9, 3.447644741226678*^9, 3.447729026453412*^9, 
   3.4477291101529317`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ebYFunc", "[", 
    RowBox[{
    "nrnID", ",", "0", ",", "y", ",", "5", ",", "nrnID", ",", "0", ",", "0", 
     ",", "5"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "10", ",", "11"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4209879919277177`*^9, 3.420988017783866*^9}, {
   3.4209912429427757`*^9, 3.4209912448854914`*^9}, 3.4209913263493814`*^9, {
   3.423419996798602*^9, 3.4234200525365257`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0HtUDHgUB/ARtbFtodmTIrb8flvGWaREnbLfmWlqek0zkUcKE9pWoU3Z
PaxXHrGxSR7boZSlnDU9ZptKa7NKSohCrUzMhHa3SFOmx/Qw+/PHvfd8/rj3
fM91iNoWusmEw+FIWH2cn0iKWCcoXfv63ICPDG7aG67OzKschtRmzFEJD6Kl
zJkyizk2QhlunOm+n8NscHbtWsyXYYdmbiZ/HEH+YLT5Tm8Z/om/4nLAhODd
yvoSjrsMtRm5UWamBI7ex6tsnGQ41JpRYzGJYNOaR+lxE2UIzy3S9XIJIoe5
wjv1UnCSI/xmziLQcy9KF6ZJcamtKcVmDgG5GWh5dIUUF7bvWdDpSrClfnR/
t60UsbP/HG+ylGC0wnBCWhOCn61cvn4vJjArtD8yOzgERUlbNyqXEbwa7dE2
t0qQo/dSlUUS7FLTqXXbJOgsEsSdiiHwbh6pkH8IhsnBVklFAsHJZQ8KTc4E
w/bRkulXfyRYOiGzZYpLMFIiHoYkpRBUcHm1U24HodY4UHg4neCSrEqgkgch
QhO2I/48wbr2UHnyYCB0S3Y7OeUTPL2Yz6s5EYjlVxeNp0qCSqfp1b4LAzE5
nPqNXGd5ZSeeLGkIwHmHvNJptQQrH3PkHvEB2EfXHrNsYv+9e2aj1iIA8l9f
BDWpCdbkqYurFP6w9tQtVncQjIuO04Yt98eMzzxSK3Usb7GX9mG/GANDUyf+
O0xQVNF5tiFbjIa1pfHPJ1D0vU/4Kj9AjFFOGhRWFONlg8O5Oj+MXDd4VttS
9KsUwQ1ZfggtOZdVTChi+3iaAJEf8ohZV+x8ikI7dcOVHl/cKxwn3+pBYXFu
c2VHji/8ktzg70NxeDBsS0GQL04tH/KPlVC0m88jPKMImoKD3uGrKC7an17o
qhJhv1Cc6bCBIvUnC+PIBhH0vednLdhCEdR8+dZ8OxFutDlb2vxAkftXIifk
ng9Wa0VOomSKqM9Nm5TJPuiNnMvDMYry8JjF33v5QGsjPm19liLamHhhda8Q
OV39vHm5FJPyImd7KoQoNzxzdlBQ8O6UpK6PEuJ+8pHJ7WUUY7TQu9tOiN9J
neN/Nyk6C4ZHXVsF6DHxzqq7R9FIJZU9JwUYMwgF75opHIVpewShApjHWje1
a9h9n1Z5qbUAsdPs7hR0Uewl/MT6Rj6yXyg7b+opDlpsV7ln8DGnfd92hZGi
pmxj5rcyPuK+KK4qYK5O23tXzly8TmNVxGzozhpZzez+wluhZLb37IgMYBaq
h1+XMVtOyXacyxzZnLiiinnmtWuKt1I+0utjPFqYn2nSb21jfmL+S8rfzIci
7fu/YZ4mrmt+yrx0veLL9czZtTRBzfxQ/+SolPnqrZe/aZnnhUulLsy3KyNm
vGHO4Oqe94XwYT6Wuvkts8fLEqs3zEFe1691f9x328V/xfzoD9swHXNjDPfy
Y2ZNecvxfua2T7+LUzE7Dpq2DTB3cWTZCuZo90W8IeaWnW6Nl5jfqjJqh5nX
jJm6nWaer6/mjjLrTfWbjjMnuPZFjTHHZ3ScPcRcluCg/MBcfvlZ/W5mg1Jq
NDK/9no8ksT8P2EIMas=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{10., 35.},
  PlotRange->{{10, 11}, {34.62078807653759, 69.07755181600335}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4209879926587396`*^9, 3.4209880211585836`*^9}, 
   3.4209911726845517`*^9, 3.4209912455664434`*^9, 3.420991326930194*^9, 
   3.420994073940632*^9, 3.4209953218051996`*^9, 3.4209957662465477`*^9, 
   3.421003445519763*^9, 3.421004306032797*^9, 3.4210050032275047`*^9, 
   3.4210103851616793`*^9, 3.421010525648085*^9, 3.421019535704529*^9, 
   3.421025990007921*^9, 3.421035179376416*^9, 3.4210383374214983`*^9, 
   3.421038647715302*^9, 3.421076646156009*^9, 3.421076908162305*^9, 
   3.4210845737090673`*^9, 3.421091539557621*^9, 3.4210972500911913`*^9, 
   3.4211012325989075`*^9, 3.421101738636369*^9, 3.421102845363621*^9, 
   3.4211031128876314`*^9, 3.4211040578887835`*^9, 3.421104864386301*^9, 
   3.4211064471991415`*^9, 3.421109752860597*^9, 3.4211175038167653`*^9, 
   3.421121781907719*^9, 3.421122942279969*^9, 3.4211623709448023`*^9, 
   3.421163436524528*^9, 3.421166399426792*^9, 3.421172219823956*^9, 
   3.421173880846136*^9, 3.4211745755673857`*^9, 3.42117485551877*^9, 
   3.421178263403138*^9, 3.421179356381168*^9, 3.421180638183182*^9, 
   3.4211808802015343`*^9, 3.421184546787578*^9, 3.4211853659928617`*^9, 
   3.421205019070154*^9, 3.421210368258548*^9, 3.4212521254331007`*^9, 
   3.42125430663251*^9, 3.421260916347621*^9, 3.421263558932067*^9, 
   3.4212664891386213`*^9, 3.421273378618804*^9, 3.4212749263106194`*^9, 
   3.421275126502554*^9, 3.421275214786446*^9, 3.421275614495982*^9, 
   3.421275800799567*^9, 3.421275852979183*^9, 3.4212819640064917`*^9, 
   3.421282294262787*^9, 3.421282387217925*^9, 3.4212949908390408`*^9, 
   3.42129610931523*^9, 3.421296191819943*^9, 3.4212976729738903`*^9, 
   3.421297886710541*^9, 3.421297926456706*^9, 3.421299021954514*^9, 
   3.421299123559719*^9, 3.421299177046254*^9, 3.421299253349163*^9, 
   3.421328450908104*^9, 3.421329180884675*^9, 3.421329261980412*^9, 
   3.421333737087904*^9, 3.421334345516431*^9, 3.421334434540056*^9, 
   3.4213375737373133`*^9, 3.4213378467322483`*^9, 3.42133792802983*^9, 
   3.4213440381942472`*^9, 3.421344181094524*^9, 3.421361915372081*^9, 
   3.4213620362600393`*^9, 3.421362091048812*^9, 3.421362141995775*^9, 
   3.4214468525373287`*^9, 3.42144928237453*^9, 3.421449485630734*^9, 
   3.4214508135102563`*^9, 3.4214511199386563`*^9, 3.4214528574978385`*^9, 
   3.4214540835018444`*^9, 3.4214583894661226`*^9, 3.421458511626909*^9, 
   3.421537978905054*^9, 3.4215380780742197`*^9, 3.421538121246358*^9, 
   3.4215381626416063`*^9, 3.421538346890387*^9, 3.421550043447474*^9, 
   3.421556053057922*^9, 3.421556165838037*^9, 3.4215562791836853`*^9, 
   3.4215893083835363`*^9, 3.4215946841090307`*^9, 3.4215947567606*^9, 
   3.4216269434869347`*^9, 3.422132041489594*^9, 3.4227586779572325`*^9, 
   3.422812268158919*^9, 3.4228125909369574`*^9, 3.4228195905729465`*^9, 
   3.422819630598504*^9, 3.4228200493597746`*^9, 3.4228382357127857`*^9, 
   3.4228449295549946`*^9, 3.422847465955698*^9, 3.422978332181709*^9, 
   3.4233684568671665`*^9, {3.42342000262675*^9, 3.423420053277562*^9}, 
   3.42342616704487*^9, 3.423426249349936*^9, 3.423429173128787*^9, 
   3.423429247062149*^9, 3.4234307113392715`*^9, 3.423452008643813*^9, 
   3.423453431743367*^9, 3.423489319097643*^9, 3.423491443647855*^9, 
   3.4235069507077312`*^9, 3.423507084314519*^9, 3.423507380228219*^9, 
   3.4235104195072613`*^9, 3.423512160561329*^9, 3.423513508215407*^9, 
   3.4235166013096848`*^9, 3.423518267068487*^9, 3.4235388985463467`*^9, 
   3.423539696667975*^9, 3.423539772431076*^9, 3.42353984412429*^9, 
   3.4235745068941317`*^9, 3.4235766500458393`*^9, 3.4235769813704844`*^9, 
   3.42357872924207*^9, 3.423582816069228*^9, 3.423589469558778*^9, 
   3.423590926297474*^9, 3.423591227204887*^9, 3.423591539219431*^9, 
   3.423592475681596*^9, 3.4235926439338703`*^9, 3.423594841783205*^9, 
   3.4235984405839787`*^9, 3.4235993664994583`*^9, 3.423604812517603*^9, 
   3.423605213413786*^9, 3.42360676268681*^9, 3.423606836125144*^9, 
   3.423606910516324*^9, 3.423607132401845*^9, 3.423621387605288*^9, 
   3.423621549885667*^9, 3.423621805012288*^9, 3.4236218887655067`*^9, 
   3.423624425269116*^9, 3.423886752936002*^9, 3.423925366252314*^9, 
   3.42394555591833*^9, 3.423969325589346*^9, 3.423969930124512*^9, 
   3.42397031323011*^9, 3.42397050705108*^9, 3.4239718100587387`*^9, 
   3.4239720613673077`*^9, 3.423972115555489*^9, 3.423972160353879*^9, 
   3.423972221260331*^9, 3.424010830544118*^9, 3.424010900466116*^9, 
   3.424010972545656*^9, 3.424011040193993*^9, 3.424011098789957*^9, 
   3.424011159495422*^9, 3.424023475320932*^9, 3.4240565339015675`*^9, 
   3.4241290101229997`*^9, 3.424466626602262*^9, {3.424468218107254*^9, 
   3.424468246657168*^9}, 3.424471229236888*^9, 3.424472529281551*^9, 
   3.424472603933078*^9, 3.4244727120366087`*^9, {3.424472762854682*^9, 
   3.424472831082604*^9}, 3.424473445719472*^9, 3.424473511689231*^9, 
   3.424473997801646*^9, 3.424474043306869*^9, {3.424474092767551*^9, 
   3.424474110705883*^9}, {3.424474143244398*^9, 3.424474167788546*^9}, 
   3.424628966239405*^9, 3.424632273292807*^9, 3.4272153634835052`*^9, 
   3.4272174737136974`*^9, 3.4273400987060223`*^9, 3.427340152573378*^9, 
   3.4273402012336893`*^9, 3.42734024632185*^9, 3.427340284234269*^9, 
   3.427340335072302*^9, 3.4276856714439316`*^9, 3.427685706092372*^9, 
   3.427724054731134*^9, 3.42772419271404*^9, 3.427724228894622*^9, 
   3.4277265213395576`*^9, 3.427741124966052*^9, 3.427742028859734*^9, 
   3.427748206266012*^9, 3.4277580838625774`*^9, 3.4277681144657893`*^9, 
   3.427770816463297*^9, 3.427773625420339*^9, 3.427814439291155*^9, 
   3.4278146193228474`*^9, 3.4278977372592*^9, 3.427898088420138*^9, 
   3.427898263134396*^9, 3.4278986882787657`*^9, 3.427899996978384*^9, 
   3.427900136693712*^9, 3.427900276168704*^9, 3.42790150482642*^9, 
   3.427901595573288*^9, 3.427901800529826*^9, 3.4279031984141283`*^9, 
   3.4279038651963177`*^9, 3.427903951557054*^9, 3.42790406630748*^9, 
   3.42790427124399*^9, 3.4279086028898163`*^9, 3.4279086801378117`*^9, 
   3.4279089451583223`*^9, 3.427909043085228*^9, 3.427909360549056*^9, 
   3.427913635245264*^9, 3.4279898252089214`*^9, 3.4279899287636952`*^9, 
   3.427990281086257*^9, 3.4279909561299973`*^9, 3.427996175743977*^9, {
   3.427996219685215*^9, 3.427996319178314*^9}, 3.42799987415561*^9, 
   3.428000626800589*^9, {3.4280006883095083`*^9, 3.428000795087996*^9}, 
   3.4280322138063145`*^9, 3.428072101583438*^9, 3.4280738141276474`*^9, 
   3.4280756844424276`*^9, 3.428076277275971*^9, 3.428076395566704*^9, {
   3.428076425818036*^9, 3.428076445622385*^9}, 3.4280764783682127`*^9, 
   3.428076512915483*^9, 3.428084145584353*^9, 3.428085567814*^9, 
   3.4280870187667847`*^9, 3.428087850745434*^9, 3.4280920768599825`*^9, 
   3.4280974192688985`*^9, 3.428154480627728*^9, 3.428155132228694*^9, 
   3.4282934061596403`*^9, 3.428293591669651*^9, {3.428293691725501*^9, 
   3.428293793539693*^9}, 3.4284186940326815`*^9, 3.4284505872701044`*^9, 
   3.4284996723604217`*^9, 3.4285494323676324`*^9, 3.428599095646285*^9, 
   3.4286251827844543`*^9, {3.428625262532216*^9, 3.4286253988919153`*^9}, 
   3.428703009771491*^9, 3.429451303749995*^9, 3.4294513689122553`*^9, {
   3.429451409257826*^9, 3.4294514320788918`*^9}, 3.42945671816438*^9, 
   3.429796525641692*^9, 3.429796592024498*^9, 3.4298964366584806`*^9, 
   3.4298967822916903`*^9, 3.429969425296293*^9, 3.43007376004757*^9, 
   3.430601018211009*^9, 3.43066461805896*^9, 3.4306652485904703`*^9, 
   3.4306657865525637`*^9, 3.430666133467566*^9, 3.430667151631002*^9, 
   3.430670338326138*^9, 3.430670748850068*^9, 3.4306804986530185`*^9, 
   3.4306914708225803`*^9, 3.4307053480034723`*^9, 3.4307054146166005`*^9, 
   3.4307068324791727`*^9, 3.4307085935912824`*^9, 3.430711852747293*^9, 
   3.43071210693825*^9, 3.430712182694407*^9, 3.430712222595389*^9, {
   3.4307122711885843`*^9, 3.43071232662906*^9}, 3.4311287255457077`*^9, {
   3.431128854188401*^9, 3.431128875675539*^9}, {3.431129067569416*^9, 
   3.431129092388422*^9}, 3.431129160516157*^9, 3.431129323499818*^9, 
   3.431132582508613*^9, 3.431132663955841*^9, 3.431133782567794*^9, 
   3.4311339217812557`*^9, 3.431134245832967*^9, 3.431134288619915*^9, 
   3.431134322611075*^9, 3.4311351736207542`*^9, 3.431135240097878*^9, 
   3.431135324105259*^9, 3.431136495715754*^9, 3.431136533850267*^9, 
   3.43114626919872*^9, 3.43114655511723*^9, 3.431147252466777*^9, 
   3.43114730363689*^9, 3.4312860929840136`*^9, 3.431287722812584*^9, 
   3.431292585610984*^9, 3.4312932383235035`*^9, 3.4312942076686897`*^9, 
   3.432041563770488*^9, 3.432756659795988*^9, 3.432756780004044*^9, 
   3.432756931295556*^9, 3.43275737757948*^9, 3.4327711533468804`*^9, 
   3.4328195850765085`*^9, 3.432819667461686*^9, 3.4328277663242426`*^9, 
   3.4328291271166887`*^9, 3.4328293776970105`*^9, 3.4328428109672966`*^9, 
   3.4328429114377584`*^9, 3.432853393211726*^9, 3.4328566632233424`*^9, 
   3.4329186891123657`*^9, 3.433016416061803*^9, 3.4330180229182568`*^9, 
   3.433018189030489*^9, 3.4330211951231346`*^9, 3.4330219594216566`*^9, 
   3.433042814624444*^9, 3.433047134744156*^9, 3.4330477449973164`*^9, 
   3.433080949073331*^9, 3.433081775428611*^9, 3.433094762785491*^9, 
   3.433095228566673*^9, 3.4330967011854568`*^9, 3.434503732577685*^9, 
   3.434504299590393*^9, 3.434504841207597*^9, 3.434757740097084*^9, 
   3.434779468666661*^9, 3.434780348047303*^9, 3.4347805092911215`*^9, 
   3.4347806930261583`*^9, 3.4348068906727405`*^9, 3.4348073569299383`*^9, 
   3.434807429530713*^9, 3.434807483004939*^9, 3.434809155599064*^9, 
   3.43480944466669*^9, {3.434809511562106*^9, 3.434809614127582*^9}, 
   3.434811034742028*^9, 3.4348376416076317`*^9, 3.4352879350979853`*^9, 
   3.435288241202881*^9, 3.4352882947972736`*^9, {3.4352892677377834`*^9, 
   3.435289288787001*^9}, 3.435724577845938*^9, 3.4357247989027805`*^9, 
   3.44537714046653*^9, 3.445377309476183*^9, 3.445377503090726*^9, 
   3.4453775456610904`*^9, 3.44537864352785*^9, 3.445378894864242*^9, 
   3.445379958071856*^9, 3.445453469223092*^9, 3.446246386416464*^9, 
   3.4462465350553737`*^9, 3.4470117468934755`*^9, 3.447257783779295*^9, 
   3.4474715268834405`*^9, 3.447471924357053*^9, 3.4474726827023764`*^9, 
   3.4474740340786095`*^9, 3.447474564911323*^9, 3.4474762443427343`*^9, 
   3.447556431667723*^9, 3.4475598390533266`*^9, 3.447644741316807*^9, 
   3.4477290265134983`*^9, 3.447729110233046*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "Lennard"}], "-", 
   RowBox[{"Jones", " ", "potential"}]}], "******************)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ljPotential", "=", " ", 
   RowBox[{"ljEpsilon", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["ljRMin", "ljR"], ")"}], "12"], "-", 
      RowBox[{"2", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["ljRMin", "ljR"], ")"}], "6"]}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ljForce", " ", "=", " ", 
    RowBox[{"-", 
     RowBox[{
      SubscriptBox["\[PartialD]", "ljR"], " ", 
      RowBox[{"(", "ljPotential", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "the", " ", "maximum", " ", "attraction", " ", "force", " ", 
     "locationcan", " ", "be", " ", 
     RowBox[{"found", ":", "\[IndentingNewLine]", "ljForce2"}]}], " ", "=", 
    " ", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\[PartialD]", "ljR"], " ", 
       RowBox[{"(", "ljForce", ")"}]}]}], "\[IndentingNewLine]", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"ljForce2", " ", "\[Equal]", " ", "0"}], ",", "ljR"}], "]"}], 
     " ", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"ljR", "\[Rule]", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox["13", "7"], ")"}], 
         RowBox[{"1", "/", "6"}]], " ", "ljRMin"}]}], "}"}]}]}], 
   "\[IndentingNewLine]", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ljPotential", " ", "=", " ", 
   RowBox[{"ljPotential", "/.", 
    RowBox[{"ljRMin", "\[Rule]", " ", 
     RowBox[{"ljRMaxAttractForce", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["13", "7"], ")"}], 
       RowBox[{
        RowBox[{"-", "1"}], "/", "6"}]]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ljForce", " ", "=", " ", 
   RowBox[{"ljForce", "/.", 
    RowBox[{"ljRMin", "\[Rule]", " ", 
     RowBox[{"ljRMaxAttractForce", "*", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["13", "7"], ")"}], 
       RowBox[{
        RowBox[{"-", "1"}], "/", "6"}]]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ljForce", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ljRMaxAttractForce", "\[Rule]", " ", "2"}], ",", 
      RowBox[{"ljEpsilon", "\[Rule]", " ", "1"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"ljR", ",", "1.9", ",", 
     RowBox[{"2", "+", "gOEPlaneDistance"}]}], "}"}]}], "]"}]}], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk8VN8bB/BrjDUtIg2lDRVCKWTJOUrWqCRSllKypJKUkuSLaBFZ8rUW
omwlkSw1J0VT9oQkRJv0tZuZW2jO7/z+mNd9vV9z79zn3vN5zjMr3U/aeTAo
ivpOPv8/ii467nv0qAAoyzxV6W6cQpt+vtR44ykA37Dn6t0dU8i9mjWm6i0A
XFrb9VnvFGIfqj01ckwA/GQC0k+OTqHAh0sCA04JQFvN3tNW87nop3n9P2HB
AtBa+tq325aL3gat+fd2vACsd5GezKvjot82F/dRiQKgXTG2taqRi1avfC/v
fksAfNI2iNa856IwTki6SjL5PltXoniAiwxkO7OKMgQgjPuHOe8vFxU8iCiq
yhMAWUXbrs8beCi6f6Cmky0A5aykOOlEHhLdgUwdXpDrTwhHu6XyUOjTdE5H
jQDUFtw8kZ3JQwExjk3ttQKgqfZbTuwBD7kYNXW11ZN6nT2W29TxkGZyxVhz
pwC0u27d1jHFQ3nCSf62XQJgIClSdvYPD606eZrX9JHcb6Vb2VzMQ3JmmjON
PQIA+85EL5XkIzx1V7ThiwCky1wsYy/no9adsYqcUQFg6+5KUbTkI6tq30yz
cQGIMDtRutSWj2pXWym9nhCA2YK4Gek9fFTxl6laxxWAh/f2GH125qOswqBN
r6YF4KzPh2sifnzkL3bUGolisODXz+SriXwkg4zOP12GQXII43FxJx85R3Dj
FFdgwL8+8nB7Nx/dsywqCF+JQapeq3x7Lx8ZtC/p2amMyXoF7+3+xkfuQ9PG
P1Ux8NfZsObGJB89lqlkyutgoHZgk168FI1mu/wUL+li8Cv25c7H82lkdnut
7nc9DF6sLN3WsJBG3WuTPUsMMJC9vLtrkEUjhnFgvSXEoLbR53ijMo3svHRu
BlljUJQRMGthSKN0jZG8/h3k/rXnev9sodGPyZwaM1sMToS+FMqBNAq6KDu1
cDcGie1HNL5tp1F2/NTeQgcMfNJPv5DdRaPJZyVLeg5hENZjZGJ0mEZGYd6b
th7G4JyImkmEB40izVfa5B3BQGE//lHnSSOFtpshAZ4Y3O5wMtL1pdHWwZMD
UsdJvQ8ulDUE0CheWvP+lnMYWB18jZsjaNSRmlOZfh4DgXr0g4JIGrGUlzTO
BGEg+dM6NfQKje7oik9UXsTgx1U1syXRNCo68MVANxyDYb1rwVIJNHqdm9Ss
GYOB7ec+wZc7NJLQmjtwIxaDrrNpch5ZNNpRET41fBMD03vKNQPZNHpf78cq
TMCg9cLfL/W5NOofs3Jfk4JB//zIQedCGk3rY97yHAyWDnvbRzyh0ZZXZ8Qv
5WKwa+TVVEk5jUJ3DCv03cNg03j8me6nNBJz+wjS8zHAjiMbl1bRSDai9Cqr
GAOddtNVh9k0cpyrlh74CAP5ThlnL0Sj1KTMh50lGNzNKLrt9YJGK/NvvE8s
w2Bodsnu/S9ppNnsqShdhYFGuPEo4zWNTjn2aflVY7Bl36uJfuKyfvutLc8w
+BR6UqmKQyPDKRPPGwiD5xE5Sq5vaWTBWloiUYdBc3XI4uONNLqeFf/K6zUG
DiIOUipNNGpWk+jkcDBYv7hmTxfx3i386cv1GOhFbR1e30Ijd/dWU0YrBlca
nrwoeEejifBm1qV3GFDOxWJWbeT5cxuHZ9rI72f20V+J7/x8k8jrwCBSQuOX
WDupX5Lj5f8BAyU9TzqOmK1eZzTWhcFcnbm1ch006jlR8+3nJwwO1qaXLOik
0bGbqMKjFwM7g6Dey8TTJc+jv/SR9bcr7OMRy/MqN/UMkOv/VJ19/YFGeXIV
4k5fMchsPspa00WjzZvLezq+YTDaTeWGETtceBzRMohBR45HotpHGn1Pf7Rv
xxAG2bEfhAKJA9gP1739hUGpTORJNjGzv4gyG8Ygn6r8QnXTKEGosP3lCAYh
gaUHjYlXKeXngTEMYkdLR88SPza9H/xsHINCHW5cAbHJ0dxd+pMYsILyd34k
bo26q1w+RfrJiqkh/IlGB/OzfmvzMNiftl5rLfFY/Z3GYj4Gi+r3HrAgDhnO
yFz3G4OvWUnlh4nnzUsPyP+DgbGbtFkQcYZWqsXqGQz+ln6eF028bnfy0ruz
GKg2yMmlED/zTxpfLsCAacM5mEVsnZhYm45Jnt3/TuUQj+y3bIymKMisftF+
l/jJMQtdayEKXo+WFb9NHBxsninBoKB1Gh2fQGx6w0zyDfFtwyNBEcRSt7cH
RApT0NRh1ys/4vaHpn2mTApu8n3gv484HW2zEBah4OFUrxuGxIdbtz6uIb6T
4cNSIFYbMFkaKkpB885/WVzyfiYnYKSxGAUX72iNf0tcxYDjs8RTJWPXU4nD
ZMD+anEK3vJuEvcktlI2rj0vQUH7KKN5WsTSOls0N0tS8EPHnKxJsn6ZDoaM
J3MoGN8x/o8vsZenge9pKQrONMZ8XEWsdU6/c8NcCvZeyXjXTvLBTtEreDiP
guyDY0/UiSMLdGWPz6dginhKYSvJl221Toj6Agr+Sgi1P0Xc27PRLk+agvXx
eW25JI85I9rPji6k4GdrzRJ9Yl/BhtUqMhRMDwre+5bke3b5+uksWQp2R7UI
9ZD8Kxxel522mIIRln+8Wki/1GeyHG1YFPT7ryrSmvh8H1MKE99r2LaolvRb
l1PvGXcFCjobb0goaKVR0q4YS1VFCgrPCQ60aSbzICZI0E08wYwJfUD6l9dw
tDR6GQWT16gsliS2NweK48spON9eYqaigUYyxuPj5asoiN9JU6NvaPTyQk+u
lxIFB53qP2gT+1e+2a+gTEHvd+JOAWQ/aduUVXtRhYK1bf0eI3U0uqlul2y6
loKO6b3iFWR/kpIvA20aFDTmvvB+XE3y55DJDdek4HqT6FOvyP53LDE6X0eL
glaOVfveVZLnne8hk7Kegown9m1fyX55VVRu0G0jBSOTwpq+ltJIlBsYM7KZ
gs/zRx7bkf0XNxv2iptSsDT5+lpGMslb13/+b4lzQn6YpCTRqOBLmvi17RQs
WmehrHGL9Dt/ZuMccwoigeIe63gyHxSfXZtrRc7fZlFziMyLfb5GmxfuouDK
v/py05dI/0psSVjiTMFzPazCiSM0uiIzsraH+J5X/tBaMt9cFDPY6S4kX3LD
7i6HaCS+4e+QohsF1zz6uZDtQiPXfc/hCncK+tpU1bk60GjO/S2jyl4UrN5b
Zb/CnEZHTI0tNQMo+CLY7HjVahrpPmo68B/x9qijy/PJfBZf6nIi7wx53/9e
i7q1ikYPpi4krAok62OsetlzGY342ZW9ckGk/q+GEeOLSH1COv74EgXjbtn/
TWbSqJCtntZ6nYIe0vpPHfr5aHKz/Ij/XZLXONtjsvF8FOwJdlxroeA3v4+s
RWM8FHVnX48TJv06YO39QJ2HYqSfr5lVF4IXsqJOXPXmoueM6YLnjkLwGuM0
ismZQsf/qrrpRQnBc5VsWe2GSSSvndscXioEy3m7L3DwBDLzkzl55asQnGfb
p7FYZQKlaew3L1rIgDtdWt1X2I2jYeXh7mxjBlSa+LSbrzSG2Cqn7uw+wYAV
L9cwjGJHUPRBk+XvUxkQx766qrJqGH3KYbZKNTBg+yc160O5v8j/l8wKj2kG
9Ik1h1pgCNV5RDnHrRaGT6+8PWyOB1Gl76ENZxyE4eo/11jzyn6g/AeRNerh
wrBc/I+x243v6OXxiKtCxcKQn+Z44L/z39ABvTNhsX3CsMQ/TKjZ5SsaNyjR
HZdkQqvXlQI59y9I1KJ/iYQhE+a6dp73dhtApu2Dm018mDCAXduod7IfXUo1
kN6RxIROIdU/x3Q+IwOfUIX5r5lQpGV337qwXjR5WvpzziQT+p0eGvAT6kFt
s0GfnJaJQIlfZdO/07qRduwHcY6NCAzdHNa3QOMjij1waUI0SASq6BZrnB76
gHw3KMzB+SJQ2q4zhc7oRGYmVP/bThF4XqJuIOd8B7JoZQ+XMkShalv7czuf
dtTg5afmoC0KPb4k7dK2f4+sDI8rNbiKwir96RvTrm3IcrGLze8YUaiflr1E
+Mg7dMpfpdiULQorGwr9yi+0olti+o2Hf4nCz0dl39W6tCCDe0DBUEEMag6e
sZmtbEKfQuKUvpuJweF/bjqXmTeinM7qIw/9xeAiqUNb28fq0ajex06tbDE4
597ElqmYt2jTexNmRLMYNJEfZMQ5vkEzgRnuNwVi0NR1DzrB4iA2V3RlEnH1
RbXHlsShp/w+pxE7+W3LVSYWPbbN+T4xt9EgunsxBy10HdrLJtZ3AC5mxGtN
dSyHieca3ZmzTI6DHBY0aVlgMZg8XJ7SJMNB8jd0R22Is0M4iXnEPRKZRXuI
9dvlb4YTHxI+repGrPQmPEqf2JfPUjpLvL7O93zuQg4K7zkil0Nsdj/e+6I0
B5k5NbfnEzfpIa99xOKdegnFxCsiNLw2Ese0SC6oJlawbfEcWsBBqS8fSbQR
T6Ss8dlL7AIU3nwglpw5dGw98Ypn4ZG9xCKyfb5ziHOfOAgPEVcdS/Ormc9B
XtovakaJ/fN7/NOJ1YpVQ7nEqzLczgQSj6gnGE8TAzPlc3bEj/JmZzGxfY7a
BQ3i/wEcU5Hs
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{2., 0},
  PlotRange->{{1.9, 3.}, {-1.491124108395688, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.415732004881238*^9, 3.415732066874881*^9, 3.4159802134468718`*^9, 
   3.416106855239872*^9, 3.417207351189598*^9, 3.4172074759127226`*^9, 
   3.417210649231964*^9, 3.417227611957424*^9, 3.417232624124666*^9, 
   3.4172329252226114`*^9, 3.417295443260957*^9, 3.4172961374545465`*^9, 
   3.4173579365957036`*^9, 3.420490578809272*^9, 3.4204906178638716`*^9, 
   3.4204914069170017`*^9, 3.4204917623439035`*^9, 3.4204932988820496`*^9, 
   3.4204944609166236`*^9, 3.4204945356010356`*^9, 3.4204975198030777`*^9, 
   3.4205141020758038`*^9, {3.420520855577488*^9, 3.4205208712293696`*^9}, 
   3.4205496044696674`*^9, 3.4205537624026356`*^9, 3.4205634651374736`*^9, 
   3.4205637932061276`*^9, 3.4205706637113876`*^9, 3.4205762478521805`*^9, 
   3.4206050387464123`*^9, 3.420643348595558*^9, 3.420645082079042*^9, 
   3.4206455370851603`*^9, 3.4206488713466*^9, 3.420652122702134*^9, 
   3.420654094238426*^9, 3.420654244338272*^9, 3.4206545050227203`*^9, 
   3.420656404187834*^9, 3.4206580533934937`*^9, 3.420658748064674*^9, 
   3.4206618944634743`*^9, 3.4206681399449244`*^9, 3.4207308560603704`*^9, 
   3.420755844199128*^9, 3.4207730807448444`*^9, 3.4208154856887684`*^9, 
   3.420819649820402*^9, 3.420822852948512*^9, 3.4208256501891747`*^9, 
   3.4208280584360065`*^9, 3.420833188327814*^9, 3.4208342150632343`*^9, 
   3.4208358424283605`*^9, 3.420901381421935*^9, 3.4209028671590586`*^9, 
   3.4209147065109787`*^9, {3.4209850984825573`*^9, 3.4209851061933374`*^9}, 
   3.420991172784692*^9, 3.42099407401073*^9, 3.4209953218953257`*^9, 
   3.4209957663366737`*^9, 3.421003445629917*^9, 3.421004306132937*^9, 
   3.4210050032976027`*^9, 3.421010385241791*^9, 3.4210105257382107`*^9, 
   3.421019535764613*^9, 3.421025990118075*^9, 3.421035179446514*^9, 
   3.421038337491596*^9, 3.4210386477854*^9, 3.421076646386331*^9, 
   3.421076908252431*^9, 3.4210845737791653`*^9, 3.421091539627719*^9, 
   3.421097250151275*^9, 3.4211012328492575`*^9, 3.421101738706467*^9, 
   3.421102845433719*^9, 3.4211031129477153`*^9, 3.4211040579588814`*^9, 
   3.4211048644463854`*^9, 3.421106447259225*^9, 3.4211097529306955`*^9, 
   3.421117503886863*^9, 3.421121782128027*^9, 3.421122942350067*^9, 
   3.4211623710349283`*^9, 3.42116343670478*^9, 3.42116639949689*^9, 
   3.421172219894054*^9, 3.4211738809462757`*^9, 3.421174575637484*^9, 
   3.4211748555988817`*^9, 3.4211782634832497`*^9, 3.4211793564512663`*^9, 
   3.421180638273308*^9, 3.421180880271632*^9, 3.4211845469077463`*^9, 
   3.421185366072974*^9, 3.42120501916028*^9, 3.421210368348674*^9, 
   3.4212521255031986`*^9, 3.421254306702608*^9, 3.421260916547901*^9, 
   3.4212635590021653`*^9, 3.4212664892087193`*^9, 3.421273378867639*^9, 
   3.421274926368154*^9, 3.421275126660987*^9, 3.42127521487562*^9, 
   3.42127561455971*^9, 3.421275800881213*^9, 3.4212758530686407`*^9, 
   3.4212819640834513`*^9, 3.42128229434212*^9, 3.4212823872943897`*^9, 
   3.421294990874659*^9, 3.4212961094159184`*^9, 3.421296192389606*^9, 
   3.4212976730511017`*^9, 3.421297886818242*^9, 3.421297926506423*^9, 
   3.421299022176437*^9, 3.421299123863535*^9, 3.4212991771015787`*^9, 
   3.4212992534637613`*^9, 3.421328450982963*^9, 3.421329180952794*^9, 
   3.4213292620332327`*^9, 3.421333737147525*^9, 3.4213343455740747`*^9, 
   3.421334434587571*^9, 3.421337574121067*^9, 3.42133784678188*^9, 
   3.421337928077229*^9, 3.4213440382622967`*^9, 3.421344181149383*^9, 
   3.421361915421996*^9, 3.421362036308607*^9, 3.421362091108252*^9, 
   3.4213621423569803`*^9, 3.421446852573781*^9, 3.421449282419404*^9, 
   3.421449485677844*^9, 3.4214508135903683`*^9, 3.4214511200087547`*^9, 
   3.4214528576680765`*^9, 3.4214540835719423`*^9, 3.4214583895362206`*^9, 
   3.4214585116970067`*^9, 3.421537978947537*^9, 3.421538078123671*^9, 
   3.4215381213173847`*^9, 3.421538162694974*^9, 3.421538347152852*^9, 
   3.421550043711252*^9, 3.421556053115253*^9, 3.421556165897644*^9, 
   3.421556279233775*^9, 3.421589308503704*^9, 3.4215946841991563`*^9, 
   3.4215947569708943`*^9, 3.421626943537011*^9, 3.422132041559692*^9, 
   3.4227586780473576`*^9, 3.4228122682490435`*^9, 3.4228125910270824`*^9, 
   3.422819590653057*^9, 3.4228196306786156`*^9, 3.422820049439886*^9, 
   3.422838235792897*^9, 3.4228449296751614`*^9, 3.4228474660358095`*^9, 
   3.422978332301877*^9, 3.42336845692725*^9, 3.42342616709494*^9, 
   3.423426249430048*^9, 3.4234291732088995`*^9, 3.423429247152275*^9, 
   3.423430711399355*^9, 3.4234520087038975`*^9, 3.423453431903591*^9, 
   3.423489319167741*^9, 3.4234914437179527`*^9, 3.423506950777829*^9, 
   3.423507084414659*^9, 3.423507380298317*^9, 3.423510419577359*^9, 
   3.423512160681497*^9, 3.423513508355603*^9, 3.423516601399811*^9, 
   3.4235182671485987`*^9, 3.4235388985846663`*^9, 3.423539696788075*^9, 
   3.423539772490185*^9, 3.423539844214007*^9, 3.423574506953534*^9, 
   3.423576650138748*^9, 3.4235769814353933`*^9, 3.4235787293102837`*^9, 
   3.4235828161196127`*^9, 3.423589469625485*^9, 3.4235909263940153`*^9, 
   3.423591227777964*^9, 3.423591539294302*^9, 3.4235924759471684`*^9, 
   3.423592644033339*^9, 3.4235948418464613`*^9, 3.423598440654595*^9, 
   3.423599366825729*^9, 3.423604812805953*^9, 3.42360521361278*^9, 
   3.423606762782757*^9, 3.423606836216587*^9, 3.4236069105761423`*^9, 
   3.423607132480692*^9, 3.423621387685938*^9, 3.423621549947526*^9, 
   3.42362180507276*^9, 3.423621888826152*^9, 3.4236244253564157`*^9, 
   3.4238867530060997`*^9, 3.423925366332426*^9, 3.423945555988428*^9, 
   3.42396932574957*^9, 3.423969930254694*^9, 3.4239703132901945`*^9, 
   3.423970507131192*^9, 3.423971813195565*^9, 3.423972061488852*^9, 
   3.4239721156176662`*^9, 3.423972160431028*^9, 3.423972225845961*^9, 
   3.424010830638892*^9, 3.424010900553738*^9, 3.424010972614057*^9, 
   3.4240110402684193`*^9, 3.424011098929196*^9, 3.42401115967898*^9, 
   3.424023475530417*^9, 3.424056534001707*^9, 3.4241290104534616`*^9, 
   3.42446662667236*^9, {3.424468218177352*^9, 3.424468246717252*^9}, 
   3.424471229268869*^9, 3.424472529347224*^9, 3.424472603975657*^9, 
   3.424472712078518*^9, {3.424472762897462*^9, 3.424472831146286*^9}, 
   3.424473445801581*^9, 3.424473511750317*^9, 3.424473997838401*^9, 
   3.424474043337442*^9, {3.424474092803151*^9, 3.4244741107472153`*^9}, {
   3.424474143284992*^9, 3.424474167832552*^9}, 3.4246289663095036`*^9, 
   3.424632273352891*^9, 3.427215363533575*^9, 3.4272174738038235`*^9, 
   3.427340098742461*^9, 3.427340152604931*^9, 3.42734020126854*^9, 
   3.4273402463543463`*^9, 3.427340284287004*^9, 3.427340335127056*^9, 
   3.427685671504016*^9, 3.42768570616247*^9, 3.427724054791218*^9, 
   3.427724192824194*^9, 3.4277242289446917`*^9, 3.427726521409656*^9, 
   3.42774112503615*^9, 3.427742028929832*^9, 3.42774820633611*^9, 
   3.4277580839326754`*^9, 3.4277681145358872`*^9, 3.427770816513367*^9, 
   3.4277736254704094`*^9, 3.427814439351239*^9, 3.427814619382931*^9, 
   3.427897737319284*^9, 3.4278980884802217`*^9, 3.42789826319448*^9, 
   3.427898688348864*^9, 3.427899997038468*^9, 3.42790013676381*^9, 
   3.427900276248816*^9, 3.4279015048965178`*^9, 3.427901595643386*^9, 
   3.427901800599924*^9, 3.4279031984742117`*^9, 3.427903865256402*^9, 
   3.427903951617138*^9, 3.4279040664576902`*^9, 3.427904271334116*^9, 
   3.427908602969928*^9, 3.427908680398176*^9, 3.427908945238434*^9, 
   3.427909043275494*^9, 3.42790936075935*^9, 3.427913635325376*^9, 
   3.4279898253691454`*^9, 3.427989928823779*^9, 3.427990281156355*^9, 
   3.427990956210109*^9, 3.427996176099041*^9, {3.4279962197122993`*^9, 
   3.427996319222568*^9}, 3.42799987443643*^9, 3.428000626837961*^9, {
   3.428000688342865*^9, 3.428000795152237*^9}, 3.428032213866399*^9, 
   3.4280721016335077`*^9, 3.4280738141977453`*^9, 3.4280756845025115`*^9, 
   3.428076277314612*^9, 3.4280763955997257`*^9, {3.428076425845063*^9, 
   3.428076445658174*^9}, 3.428076478411189*^9, 3.428076512952444*^9, 
   3.428084145661777*^9, 3.42808556787082*^9, 3.428087018829379*^9, 
   3.4280878508000383`*^9, 3.4280920769300804`*^9, 3.4280974193490105`*^9, 
   3.42815448070784*^9, 3.428155132308806*^9, 3.428293406197136*^9, 
   3.428293591700931*^9, {3.428293691754858*^9, 3.428293793595232*^9}, 
   3.428418694182891*^9, 3.428450587350216*^9, 3.4284996724305196`*^9, 
   3.4285494324177027`*^9, 3.4285990957063684`*^9, 3.428625182823556*^9, {
   3.428625262568214*^9, 3.428625398954422*^9}, 3.428703010122149*^9, 
   3.42945130378658*^9, 3.4294513689407988`*^9, {3.429451409286173*^9, 
   3.429451432107977*^9}, 3.4294567181958857`*^9, 3.429796525691762*^9, 
   3.429796592074568*^9, 3.4298964367185645`*^9, 3.4298967823617887`*^9, 
   3.4299694253563766`*^9, 3.430073760107654*^9, 3.4306010183812475`*^9, 
   3.430664618129058*^9, 3.430665248660568*^9, 3.430665786612648*^9, 
   3.43066613352765*^9, 3.4306671517011003`*^9, 3.430670338396236*^9, 
   3.430670748900138*^9, 3.4306804987131023`*^9, 3.4306914708826647`*^9, 
   3.4307053480735703`*^9, 3.4307054146766844`*^9, 3.430706832539256*^9, 
   3.430708593651366*^9, 3.430711852785121*^9, 3.4307121069749403`*^9, 
   3.4307121827261457`*^9, 3.430712222631966*^9, {3.430712271225656*^9, 
   3.4307123266877337`*^9}, 3.431128725612146*^9, {3.431128854291876*^9, 
   3.431128875730356*^9}, {3.431129067630857*^9, 3.431129092445483*^9}, 
   3.431129160703682*^9, 3.4311293235404263`*^9, 3.431132582793735*^9, 
   3.431132664061369*^9, 3.431133782865814*^9, 3.431133921882855*^9, 
   3.431134245888763*^9, 3.4311342886499662`*^9, 3.431134322645866*^9, 
   3.431135173715323*^9, 3.431135240206287*^9, 3.431135324356469*^9, 
   3.431136495882753*^9, 3.4311365338852587`*^9, 3.431146269227154*^9, 
   3.4311465551818447`*^9, 3.431147252527192*^9, 3.431147303730934*^9, 
   3.4312860930641255`*^9, 3.4312877228926954`*^9, 3.4312925856710677`*^9, 
   3.4312932383936014`*^9, 3.4312942077387877`*^9, 3.432041564068262*^9, 
   3.432756659856072*^9, 3.43275678009417*^9, 3.432756931345626*^9, 
   3.432757377639564*^9, 3.4327711534370065`*^9, 3.4328195851365924`*^9, 
   3.4328196675117564`*^9, 3.4328277664844666`*^9, 3.432829127176772*^9, 
   3.4328293777671084`*^9, 3.4328428110974784`*^9, 3.4328429114978423`*^9, 
   3.432853399810952*^9, 3.432856663353524*^9, 3.43291868917245*^9, 
   3.4330164161118727`*^9, 3.4330180229883547`*^9, 3.4330181891106005`*^9, 
   3.433021195173205*^9, 3.433021959481741*^9, 3.4330428146845284`*^9, 
   3.433047134794226*^9, 3.433047745047386*^9, 3.4330809491234007`*^9, 
   3.433081775488695*^9, 3.433094762915673*^9, 3.433095228616743*^9, 
   3.433096701235527*^9, 3.4345037326277547`*^9, 3.434504299640463*^9, 
   3.434504841247653*^9, 3.4347577402272635`*^9, 3.43477946871673*^9, 
   3.4347803481073866`*^9, 3.4347805093411903`*^9, 3.434780693076228*^9, 
   3.4348068907328234`*^9, 3.4348073569900217`*^9, 3.43480742960081*^9, 
   3.434807483044995*^9, 3.434809155636541*^9, 3.43480944472358*^9, {
   3.4348095116075983`*^9, 3.434809614176262*^9}, 3.4348110351206427`*^9, 
   3.434837641638545*^9, 3.435287935148055*^9, 3.4352882412529497`*^9, 
   3.4352882948773847`*^9, {3.435289267837922*^9, 3.435289288847085*^9}, 
   3.4357245779160357`*^9, 3.4357247989528503`*^9, 3.445377140526615*^9, 
   3.4453773095763254`*^9, 3.4453775031608257`*^9, 3.4453775457211757`*^9, 
   3.445378643607964*^9, 3.4453788949443555`*^9, 3.44537995815197*^9, 
   3.4454534692831774`*^9, 3.446246386486558*^9, 3.4462465351154537`*^9, 
   3.4470117469535604`*^9, 3.447257783829366*^9, 3.4474715280851445`*^9, 
   3.4474719243971095`*^9, 3.447472682802518*^9, 3.447474034148709*^9, 
   3.4474745650014505`*^9, 3.447476244402819*^9, 3.4475564317478375`*^9, 
   3.4475598391033983`*^9, 3.4476447414069357`*^9, 3.447729026583598*^9, 
   3.4477291103432035`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ljForceX", " ", "=", " ", 
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "curPosx"], 
     RowBox[{"(", " ", 
      RowBox[{"ljPotential", "/.", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ljR", "\[Rule]", " ", 
          RowBox[{"distCells", "[", 
           RowBox[{
           "curPosx", ",", "curPosy", ",", "nbrPosx", ",", "nbrPosy"}], 
           "]"}]}], ",", 
         RowBox[{"ljRMaxAttractForce", "\[Rule]", " ", 
          RowBox[{"(", 
           RowBox[{"curRad", "+", "nbrRad"}], ")"}]}]}], "}"}]}], ")"}]}]}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ljForceY", " ", "=", " ", 
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "curPosy"], 
     RowBox[{"(", " ", 
      RowBox[{"ljPotential", "/.", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ljR", "\[Rule]", " ", 
          RowBox[{"distCells", "[", 
           RowBox[{
           "curPosx", ",", "curPosy", ",", "nbrPosx", ",", "nbrPosy"}], 
           "]"}]}], ",", 
         RowBox[{"ljRMaxAttractForce", "\[Rule]", " ", 
          RowBox[{"(", 
           RowBox[{"curRad", "+", "nbrRad"}], ")"}]}]}], "}"}]}], ")"}]}]}]}],
   ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData["ljForceX"], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "ljEpsilon"}], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{"84", " ", 
      RowBox[{"(", 
       RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curRad", "+", "nbrRad"}], ")"}], "6"]}], 
     RowBox[{"13", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], "4"]}]],
     "-", 
    FractionBox[
     RowBox[{"588", " ", 
      RowBox[{"(", 
       RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curRad", "+", "nbrRad"}], ")"}], "12"]}], 
     RowBox[{"169", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], 
       "7"]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.4157320049062853`*^9, 3.4157320668960238`*^9, 3.415980213473803*^9, 
   3.416106855286379*^9, 3.41720735121964*^9, 3.4172074759427643`*^9, 
   3.417210649262006*^9, 3.4172276120175076`*^9, 3.417232624164722*^9, 
   3.417232925252653*^9, 3.4172954432909985`*^9, 3.4172961374845877`*^9, 
   3.4173579366257453`*^9, 3.4204905788493276`*^9, 3.4204906179139414`*^9, 
   3.420491406957058*^9, 3.4204917623939734`*^9, 3.4204932989621615`*^9, 
   3.4204944609867215`*^9, 3.4204945356410913`*^9, 3.4204975198831897`*^9, 
   3.4205141021158595`*^9, {3.4205208556175437`*^9, 3.420520871259412*^9}, 
   3.4205496044997096`*^9, 3.420553762693042*^9, 3.4205634651775293`*^9, 
   3.420563793256198*^9, 3.4205706637714715`*^9, 3.4205762478922367`*^9, 
   3.42060503891665*^9, 3.420643348635614*^9, 3.4206450821190977`*^9, 
   3.42064553713523*^9, 3.420648871436726*^9, 3.42065212279226*^9, 
   3.4206540943185377`*^9, 3.420654244428398*^9, 3.4206545050828037`*^9, 
   3.4206564042679462`*^9, 3.420658053443564*^9, 3.420658748114744*^9, 
   3.4206618945235577`*^9, 3.420668139994994*^9, 3.4207308561104403`*^9, 
   3.420755844239184*^9, 3.420773080844984*^9, 3.4208154857288246`*^9, 
   3.4208196498504443`*^9, 3.4208228529885683`*^9, 3.4208256502192163`*^9, 
   3.4208280584760623`*^9, 3.4208331883578568`*^9, 3.4208342151032906`*^9, 
   3.4208358424584026`*^9, 3.420901381451977*^9, 3.420902867199115*^9, 
   3.420914706541021*^9, 3.4209851062333937`*^9, 3.4209911728447757`*^9, 
   3.4209940740407715`*^9, 3.420995321935382*^9, 3.4209957663867435`*^9, 
   3.421003445679987*^9, 3.4210043061729927`*^9, 3.4210050034177713`*^9, 
   3.421010385271833*^9, 3.421010525778267*^9, 3.421019535794655*^9, 
   3.421025990148117*^9, 3.421035179476556*^9, 3.42103833755168*^9, 
   3.4210386478254557`*^9, 3.4210766464364014`*^9, 3.4210769083125153`*^9, 
   3.4210845738192215`*^9, 3.421091539657761*^9, 3.421097250191331*^9, 
   3.421101232889313*^9, 3.4211017387365093`*^9, 3.4211028454637613`*^9, 
   3.421103112987771*^9, 3.421104057988923*^9, 3.421104864486441*^9, 
   3.421106447299281*^9, 3.4211097531409893`*^9, 3.4211175039169054`*^9, 
   3.421121782168083*^9, 3.4211229423801093`*^9, 3.421162371135068*^9, 
   3.421163436744836*^9, 3.421166399556974*^9, 3.421172219924096*^9, 
   3.4211738811365423`*^9, 3.4211745756675262`*^9, 3.421174855729064*^9, 
   3.4211782654259663`*^9, 3.421179356491322*^9, 3.4211806385036297`*^9, 
   3.421180880411828*^9, 3.421184546947802*^9, 3.42118536611303*^9, 
   3.42120501921035*^9, 3.421210368398744*^9, 3.4212521255432544`*^9, 
   3.4212543067426643`*^9, 3.421260916577943*^9, 3.421263559052235*^9, 
   3.421266489238761*^9, 3.42127337968854*^9, 3.4212749264202347`*^9, 
   3.421275127159113*^9, 3.421275214934784*^9, 3.421275614614316*^9, 
   3.4212758014493723`*^9, 3.4212758531791153`*^9, 3.421281964158292*^9, 
   3.421282294425358*^9, 3.4212823880460367`*^9, 3.421294990898662*^9, 
   3.421296109464892*^9, 3.421296192463985*^9, 3.421297673127726*^9, 
   3.4212978868894787`*^9, 3.4212979265462513`*^9, 3.421299022224538*^9, 
   3.4212991239218817`*^9, 3.4212991771521053`*^9, 3.421299253545123*^9, 
   3.421328451048366*^9, 3.421329181019401*^9, 3.4213292620797977`*^9, 
   3.421333737208577*^9, 3.421334345628573*^9, 3.421334434629287*^9, 
   3.421337574162489*^9, 3.421337846822536*^9, 3.421337928116643*^9, 
   3.421344038327259*^9, 3.421344181492797*^9, 3.421361915463822*^9, 
   3.421362036348968*^9, 3.4213620911643543`*^9, 3.421362142404903*^9, 
   3.4214468525958014`*^9, 3.421449282455806*^9, 3.421449485713746*^9, 
   3.421450813640438*^9, 3.4214511200387964`*^9, 3.421452857698118*^9, 
   3.4214540836119986`*^9, 3.421458389576277*^9, 3.4214585117370625`*^9, 
   3.4215379789828787`*^9, 3.421538083336916*^9, 3.42153812138922*^9, 
   3.421538162975587*^9, 3.421538347203062*^9, 3.421550043767157*^9, 
   3.421556053172244*^9, 3.4215561659567223`*^9, 3.421556279275138*^9, 
   3.4215893085738025`*^9, 3.4215946842291985`*^9, 3.42159475701095*^9, 
   3.4216269435670567`*^9, 3.4221320415997477`*^9, 3.422758678107441*^9, 
   3.4228122682890997`*^9, 3.4228125910671377`*^9, 3.4228195906931133`*^9, 
   3.4228196308588657`*^9, 3.4228200494899554`*^9, 3.422838235822939*^9, 
   3.422844929745259*^9, 3.422847466075865*^9, 3.4229783323319187`*^9, 
   3.423368456967306*^9, 3.4234261672050943`*^9, 3.423426249480118*^9, 
   3.4234291732589693`*^9, 3.4234292471923313`*^9, 3.4234307114794674`*^9, 
   3.423452008733939*^9, 3.423453431933633*^9, 3.423489319197783*^9, 
   3.423491443747995*^9, 3.423506950817885*^9, 3.423507084484757*^9, 
   3.4235073803283587`*^9, 3.4235104196875134`*^9, 3.423512160761609*^9, 
   3.423513508395659*^9, 3.423516601429853*^9, 3.423518267208683*^9, 
   3.423538898610867*^9, 3.423539696849312*^9, 3.423539772539844*^9, 
   3.423539844305429*^9, 3.423574507004121*^9, 3.4235766502291803`*^9, 
   3.423576981492483*^9, 3.423578729364208*^9, 3.423582816158905*^9, 
   3.423589469684312*^9, 3.423590926490868*^9, 3.423591227837805*^9, 
   3.423591563429473*^9, 3.4235924760371027`*^9, 3.423592644121752*^9, 
   3.4235948419008904`*^9, 3.423598440714274*^9, 3.423599366931988*^9, 
   3.423604820261858*^9, 3.423605213712159*^9, 3.4236067630915823`*^9, 
   3.4236068363017607`*^9, 3.42360691067426*^9, 3.423607132606735*^9, 
   3.423621387740644*^9, 3.4236215500032473`*^9, 3.423621805125639*^9, 
   3.423621888881966*^9, 3.42362442544971*^9, 3.4238867530361414`*^9, 
   3.4239253663724823`*^9, 3.4239455560284843`*^9, 3.423969325789626*^9, 
   3.4239699303948903`*^9, 3.423970313390334*^9, 3.423970507181262*^9, 
   3.423971813427868*^9, 3.4239720616115017`*^9, 3.423972115671982*^9, 
   3.423972160502281*^9, 3.4239722260799723`*^9, 3.4240108307394047`*^9, 
   3.424010900641292*^9, 3.424010972683786*^9, 3.424011040409861*^9, 
   3.42401109937208*^9, 3.4240111601749287`*^9, 3.424023480324684*^9, 
   3.4240565340818195`*^9, 3.42412901067377*^9, 3.4244666267124157`*^9, {
   3.424468218217408*^9, 3.424468246757308*^9}, 3.4244712292935133`*^9, 
   3.4244725294074707`*^9, 3.4244726040096693`*^9, 3.4244727121209803`*^9, {
   3.42447276293295*^9, 3.424472831200473*^9}, 3.424473445856312*^9, 
   3.424473511805313*^9, 3.424473997863008*^9, 3.4244740433604307`*^9, {
   3.424474092829825*^9, 3.424474110782241*^9}, {3.424474143325494*^9, 
   3.424474167874239*^9}, 3.4246289663395452`*^9, 3.424632273483073*^9, 
   3.427215363563617*^9, 3.4272174738739214`*^9, 3.4273400987676373`*^9, 
   3.427340152629798*^9, 3.4273402012971087`*^9, 3.427340246383421*^9, 
   3.427340284347003*^9, 3.4273403351688557`*^9, 3.4276856715340576`*^9, 
   3.4276857062125397`*^9, 3.427724054831274*^9, 3.42772419286425*^9, 
   3.427724228984748*^9, 3.4277265214597263`*^9, 3.42774112508622*^9, 
   3.4277420289698877`*^9, 3.427748206456278*^9, 3.427758083972731*^9, 
   3.4277681145659294`*^9, 3.4277708165434093`*^9, 3.427773625500451*^9, 
   3.427814439381281*^9, 3.4278146194129734`*^9, 3.427897737349326*^9, 
   3.427898088520278*^9, 3.427898263234536*^9, 3.427898688398934*^9, 
   3.427899997088538*^9, 3.427900136803866*^9, 3.427900276288872*^9, 
   3.427901504946588*^9, 3.427901595683442*^9, 3.4279018006399803`*^9, 
   3.427903198514268*^9, 3.4279038652864437`*^9, 3.427903951657194*^9, 
   3.4279040665478163`*^9, 3.427904271564438*^9, 3.427908603030012*^9, 
   3.42790868045826*^9, 3.4279089452885036`*^9, 3.42790904331555*^9, 
   3.42790936080942*^9, 3.4279136353754463`*^9, 3.4279898254292293`*^9, 
   3.427989928873849*^9, 3.427990281196411*^9, 3.4279909562401514`*^9, 
   3.427996176119451*^9, {3.42799621973326*^9, 3.427996319250762*^9}, 
   3.427999874935952*^9, 3.428000626869629*^9, {3.4280006883683577`*^9, 
   3.428000795207963*^9}, 3.428032213906455*^9, 3.4280721016635494`*^9, 
   3.4280738142378016`*^9, 3.4280756845325537`*^9, 3.4280762773371696`*^9, 
   3.4280763956228228`*^9, {3.428076425865066*^9, 3.4280764456835947`*^9}, 
   3.428076478447979*^9, 3.42807651297731*^9, 3.428084145710533*^9, 
   3.428085567920072*^9, 3.428087018886998*^9, 3.4280878508548803`*^9, 
   3.4280920769701366`*^9, 3.4280974193990803`*^9, 3.42815448075791*^9, 
   3.4281551323488617`*^9, 3.4282934062197523`*^9, 3.428293591721142*^9, {
   3.428293691775955*^9, 3.428293793631505*^9}, 3.4284186942830315`*^9, 
   3.42845058751044*^9, 3.42849967248059*^9, 3.4285494324577584`*^9, 
   3.4285990957464247`*^9, 3.4286251829557953`*^9, {3.428625262598735*^9, 
   3.428625399008554*^9}, 3.4287030102574244`*^9, 3.429451303810573*^9, 
   3.4294513689611473`*^9, {3.429451409306614*^9, 3.4294514321305523`*^9}, 
   3.42945671821712*^9, 3.4297965257218037`*^9, 3.42979659210461*^9, 
   3.429896436738592*^9, 3.4298967824018445`*^9, 3.429969425416461*^9, 
   3.4300737601376963`*^9, 3.430601018461359*^9, 3.430664618189142*^9, 
   3.430665248720652*^9, 3.4306657866527042`*^9, 3.430666133557692*^9, 
   3.430667151741156*^9, 3.4306703385364323`*^9, 3.430670748940194*^9, 
   3.4306804988032284`*^9, 3.4306914709227204`*^9, 3.4307053481036124`*^9, 
   3.430705414706726*^9, 3.4307068325793123`*^9, 3.4307085936914225`*^9, 
   3.430711852809867*^9, 3.4307121070016403`*^9, 3.4307121827485437`*^9, 
   3.430712222660913*^9, {3.430712271260787*^9, 3.430712326723938*^9}, 
   3.4311287256706343`*^9, {3.431128854393334*^9, 3.431128875783307*^9}, {
   3.431129067826786*^9, 3.4311290926770773`*^9}, 3.431129160731447*^9, 
   3.431129323566867*^9, 3.431132582888639*^9, 3.431132664129634*^9, 
   3.431133782963706*^9, 3.431133921982252*^9, 3.431134245943389*^9, 
   3.431134288679104*^9, 3.431134322679802*^9, 3.431135173808229*^9, 
   3.43113524027092*^9, 3.431135324416782*^9, 3.4311364959083242`*^9, 
   3.4311365339285*^9, 3.431146269250801*^9, 3.431146555238678*^9, 
   3.431147252582076*^9, 3.4311473037919483`*^9, 3.4312860931242094`*^9, 
   3.43128772295278*^9, 3.43129258570111*^9, 3.4312932385738535`*^9, 
   3.431294207778844*^9, 3.4320415640918407`*^9, 3.432756659886114*^9, 
   3.432756780154254*^9, 3.432756931375668*^9, 3.4327573777597322`*^9, 
   3.4327711534670486`*^9, 3.4328195851666346`*^9, 3.432819667551812*^9, 
   3.4328277665145082`*^9, 3.4328291272168283`*^9, 3.432829377807164*^9, 
   3.432842811137534*^9, 3.4328429115779543`*^9, 3.4328533999211063`*^9, 
   3.4328566633935804`*^9, 3.4329186892024918`*^9, 3.433016416151929*^9, 
   3.433018023028411*^9, 3.4330181891506567`*^9, 3.433021196995753*^9, 
   3.4330219595217967`*^9, 3.43304281471457*^9, 3.4330471348242683`*^9, 
   3.433047745077428*^9, 3.433080949163457*^9, 3.433081775538765*^9, 
   3.433094762945715*^9, 3.433095228646785*^9, 3.4330967012655687`*^9, 
   3.434503732647783*^9, 3.434504299660491*^9, 3.4345048412776947`*^9, 
   3.4347577402873464`*^9, 3.434779468746772*^9, 3.4347803481474423`*^9, 
   3.4347805093712325`*^9, 3.43478069310627*^9, 3.434806890772879*^9, 
   3.4348073570200634`*^9, 3.4348074296408663`*^9, 3.434807483075036*^9, 
   3.43480915566851*^9, 3.434809444779875*^9, {3.4348095116488523`*^9, 
   3.4348096142186613`*^9}, 3.434811035864499*^9, 3.434837641666436*^9, 
   3.435287935228166*^9, 3.435288241282992*^9, 3.4352882949074264`*^9, {
   3.43528926790802*^9, 3.4352892888771267`*^9}, 3.4357245779460773`*^9, 
   3.435724798982892*^9, 3.4453771405666723`*^9, 3.4453773096864815`*^9, 
   3.445377503190868*^9, 3.4453775457612324`*^9, 3.445378643668049*^9, 
   3.445378895004441*^9, 3.4453799582120547`*^9, 3.4454534693332486`*^9, 
   3.4462463865266113`*^9, 3.4462465351655207`*^9, 3.4470117469836025`*^9, 
   3.447257783849395*^9, 3.4474715289864225`*^9, 3.447471924427152*^9, 
   3.447472682852589*^9, 3.447474034208794*^9, 3.447474565051522*^9, 
   3.4474762444528904`*^9, 3.4475564317778807`*^9, 3.447559839123427*^9, 
   3.447644741446993*^9, 3.44772902663367*^9, 3.4477291104133034`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["ljForceY"], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "ljEpsilon"}], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{"84", " ", 
      RowBox[{"(", 
       RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curRad", "+", "nbrRad"}], ")"}], "6"]}], 
     RowBox[{"13", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], "4"]}]],
     "-", 
    FractionBox[
     RowBox[{"588", " ", 
      RowBox[{"(", 
       RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"curRad", "+", "nbrRad"}], ")"}], "12"]}], 
     RowBox[{"169", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], 
       "7"]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.415732004945606*^9, 3.415732066929406*^9, 3.415980213517928*^9, 
   3.416106855337154*^9, 3.4172073512296543`*^9, 3.4172074759527783`*^9, 
   3.41721064927202*^9, 3.4172276120876055`*^9, 3.4172326241947637`*^9, 
   3.417232925262667*^9, 3.4172954433310537`*^9, 3.417296137494602*^9, 
   3.4173579366357594`*^9, 3.4204905788893833`*^9, 3.4204906179539976`*^9, 
   3.4204914069770856`*^9, 3.4204917624340296`*^9, 3.420493299012232*^9, 
   3.4204944610267773`*^9, 3.420494535651106*^9, 3.420497522166382*^9, 
   3.4205141021358876`*^9, {3.4205208556676135`*^9, 3.4205208712994676`*^9}, 
   3.4205496045397654`*^9, 3.4205537627631397`*^9, 3.4205634652175856`*^9, 
   3.4205637933162813`*^9, 3.4205706638315554`*^9, 3.4205762479122643`*^9, 
   3.420605038946692*^9, 3.420643348655642*^9, 3.420645082139126*^9, 
   3.4206455371652718`*^9, 3.420648871657034*^9, 3.420652122852344*^9, 
   3.420654094368608*^9, 3.420654244488482*^9, 3.420654505112846*^9, 
   3.420656404308002*^9, 3.420658053493634*^9, 3.4206587481347723`*^9, 
   3.42066189460367*^9, 3.420668140025036*^9, 3.4207308561304684`*^9, 
   3.42075584437938*^9, 3.420773080865012*^9, 3.4208154857488527`*^9, 
   3.4208196498804865`*^9, 3.4208228529985824`*^9, 3.4208256502292304`*^9, 
   3.4208280584860764`*^9, 3.4208331883878984`*^9, 3.420834215113304*^9, 
   3.420835842468416*^9, 3.420901381461991*^9, 3.420902867209129*^9, 
   3.420914706551035*^9, 3.42098510627345*^9, 3.4209911729148736`*^9, 
   3.4209940740507855`*^9, 3.4209953219554095`*^9, 3.4209957664167857`*^9, 
   3.421003445690001*^9, 3.4210043061830072`*^9, 3.421005003427785*^9, 
   3.421010385291861*^9, 3.421010525878407*^9, 3.421019535814683*^9, 
   3.4210259902482567`*^9, 3.421035179496584*^9, 3.4210383375817223`*^9, 
   3.42103864783547*^9, 3.4210766464564295`*^9, 3.421076908372599*^9, 
   3.421084573829235*^9, 3.421091539677789*^9, 3.4210972502013454`*^9, 
   3.4211012328993273`*^9, 3.4211017387565374`*^9, 3.4211028454837894`*^9, 
   3.421103112997785*^9, 3.4211040581191053`*^9, 3.4211048645064692`*^9, 
   3.421106447309295*^9, 3.4211097531610174`*^9, 3.421117503926919*^9, 
   3.4211217821780972`*^9, 3.4211229423901234`*^9, 3.421162371155096*^9, 
   3.421163436764864*^9, 3.421166399566988*^9, 3.421172219944124*^9, 
   3.42117388115657*^9, 3.42117457567754*^9, 3.421174855739078*^9, 
   3.421178265445994*^9, 3.421179356491322*^9, 3.4211806385336723`*^9, 
   3.421180880421842*^9, 3.421184546957816*^9, 3.421185366133058*^9, 
   3.4212050192403917`*^9, 3.4212103684287863`*^9, 3.4212521255532684`*^9, 
   3.4212543068528185`*^9, 3.421260916597971*^9, 3.421263559062249*^9, 
   3.421266489258789*^9, 3.421273379814476*^9, 3.421274926454212*^9, 
   3.421275127207905*^9, 3.4212752149850073`*^9, 3.421275614650069*^9, 
   3.42127580149398*^9, 3.421275853236525*^9, 3.4212819641904716`*^9, 
   3.42128229447331*^9, 3.421282388097006*^9, 3.421294990930407*^9, 
   3.421296109489051*^9, 3.4212961924969597`*^9, 3.421297673164167*^9, 
   3.4212978869209833`*^9, 3.421297926572275*^9, 3.421299022260272*^9, 
   3.421299123998704*^9, 3.421299177203952*^9, 3.421299253608699*^9, 
   3.421328451082526*^9, 3.421329181052499*^9, 3.421329262151984*^9, 
   3.421333737703322*^9, 3.4213343456538887`*^9, 3.421334434656928*^9, 
   3.421337574189478*^9, 3.421337846849965*^9, 3.421337928144423*^9, 
   3.421344038358677*^9, 3.42134418152551*^9, 3.421361915493075*^9, 
   3.42136203637816*^9, 3.4213620911915417`*^9, 3.4213621424318933`*^9, 
   3.421446852627885*^9, 3.421449282480487*^9, 3.421449485737475*^9, 
   3.4214508136504526`*^9, 3.4214511200488105`*^9, 3.4214528577181463`*^9, 
   3.4214540836119986`*^9, 3.421458389586291*^9, 3.421458511747077*^9, 
   3.421537979008561*^9, 3.421538083503994*^9, 3.421538121425042*^9, 
   3.421538163011242*^9, 3.4215383472410297`*^9, 3.421550043803833*^9, 
   3.4215560532001257`*^9, 3.421556165983904*^9, 3.421556279301196*^9, 
   3.42158930859383*^9, 3.4215946842692547`*^9, 3.4215947570209646`*^9, 
   3.421626943577072*^9, 3.4221320416297903`*^9, 3.4227586781374826`*^9, 
   3.422812268309127*^9, 3.42281259109718*^9, 3.4228195907331686`*^9, 
   3.422819630878894*^9, 3.422820049509983*^9, 3.4228382358429666`*^9, 
   3.422844929795328*^9, 3.4228474660958924`*^9, 3.422978332341933*^9, 
   3.4233684569973483`*^9, 3.423426167215108*^9, 3.42342624951016*^9, 
   3.423429173319053*^9, 3.423429247222373*^9, 3.4234307114994955`*^9, 
   3.423452008743953*^9, 3.4234534319436474`*^9, 3.423489319217811*^9, 
   3.423491443768023*^9, 3.423506950827899*^9, 3.423507084534827*^9, 
   3.423507380348387*^9, 3.423510419707541*^9, 3.423512160881777*^9, 
   3.423513508405673*^9, 3.423516601459895*^9, 3.423518267288795*^9, 
   3.423538898657962*^9, 3.423539696895344*^9, 3.423539772576874*^9, 
   3.423539844374762*^9, 3.4235745070436287`*^9, 3.423576650271641*^9, 
   3.423576981538065*^9, 3.423578729409203*^9, 3.423582816184617*^9, 
   3.423589469730319*^9, 3.423590926538795*^9, 3.423591227876998*^9, 
   3.423591566399035*^9, 3.42359247608043*^9, 3.423592644158605*^9, 
   3.423594841942904*^9, 3.4235984407608423`*^9, 3.423599366978222*^9, 
   3.42360482219317*^9, 3.4236052137693233`*^9, 3.423606763123948*^9, 
   3.423606836344054*^9, 3.423606910712071*^9, 3.423607132740368*^9, 
   3.4236213877813883`*^9, 3.423621550045326*^9, 3.423621805307124*^9, 
   3.423621888924035*^9, 3.423624425491559*^9, 3.423886753046156*^9, 
   3.4239253663925104`*^9, 3.4239455560485125`*^9, 3.42396932579964*^9, 
   3.4239699305451*^9, 3.4239703134103622`*^9, 3.4239705071912766`*^9, 
   3.423971813466761*^9, 3.4239720616716433`*^9, 3.423972115713469*^9, 
   3.423972160552794*^9, 3.423972226137556*^9, 3.4240108307891903`*^9, 
   3.424010900686556*^9, 3.4240109727288847`*^9, 3.424011040462051*^9, 
   3.4240110994899273`*^9, 3.424011160298848*^9, 3.424023480900825*^9, 
   3.4240565343321695`*^9, 3.4241290107138257`*^9, 3.42446662672243*^9, {
   3.42446821824745*^9, 3.4244682467873497`*^9}, 3.424471229334893*^9, 
   3.424472529457026*^9, 3.424472604032329*^9, 3.4244727121447678`*^9, {
   3.42447276295045*^9, 3.424472831230692*^9}, 3.424473445899102*^9, 
   3.4244735118444223`*^9, 3.424473997881078*^9, 3.424474043373537*^9, {
   3.4244740928461*^9, 3.4244741108001337`*^9}, {3.424474143349839*^9, 
   3.4244741678960037`*^9}, 3.4246289663495593`*^9, 3.4246322735031013`*^9, 
   3.427215363603673*^9, 3.4272174739340053`*^9, 3.427340098785198*^9, 
   3.427340152643914*^9, 3.427340201322806*^9, 3.427340246397394*^9, 
   3.427340284375884*^9, 3.427340335195341*^9, 3.427685671574114*^9, 
   3.4276857062626095`*^9, 3.427724054851302*^9, 3.4277241928842783`*^9, 
   3.427724229004776*^9, 3.427726521479754*^9, 3.427741125126276*^9, 
   3.427742028989916*^9, 3.4277482065063477`*^9, 3.4277580840027733`*^9, 
   3.427768114595971*^9, 3.427770816553423*^9, 3.427773625510465*^9, 
   3.4278144393912954`*^9, 3.4278146194330015`*^9, 3.4278977373593397`*^9, 
   3.4278980885503197`*^9, 3.427898263264578*^9, 3.427898688428976*^9, 
   3.427899997128594*^9, 3.427900136833908*^9, 3.427900276318914*^9, 
   3.4279015049666157`*^9, 3.427901595713484*^9, 3.427901800660008*^9, 
   3.427903198534296*^9, 3.427903865306472*^9, 3.4279039516772223`*^9, 
   3.427904066567844*^9, 3.4279042716145077`*^9, 3.427908603180222*^9, 
   3.4279086805083303`*^9, 3.427908945358602*^9, 3.427909043355606*^9, 
   3.42790936090956*^9, 3.427913635515642*^9, 3.4279898254592714`*^9, 
   3.427989928903891*^9, 3.427990281246481*^9, 3.427990956250165*^9, 
   3.427996176137109*^9, {3.42799621974736*^9, 3.4279963192697887`*^9}, 
   3.4279998750562353`*^9, 3.4280006268889427`*^9, {3.428000688382959*^9, 
   3.428000795239142*^9}, 3.4280322139164686`*^9, 3.428072101673564*^9, 
   3.4280738142678432`*^9, 3.4280756845425673`*^9, 3.428076277405777*^9, 
   3.428076395638393*^9, {3.4280764258807364`*^9, 3.428076445703477*^9}, 
   3.428076478476117*^9, 3.428076513000907*^9, 3.428084145750593*^9, 
   3.4280855679562473`*^9, 3.428087018929537*^9, 3.4280878508933487`*^9, 
   3.42809207698015*^9, 3.4280974194291224`*^9, 3.42815448080798*^9, 
   3.4281551323789043`*^9, 3.4282934062821074`*^9, 3.428293591733902*^9, {
   3.428293691788466*^9, 3.428293793651833*^9}, 3.428418694363143*^9, 
   3.428450587550496*^9, 3.4284996725306597`*^9, 3.4285494324677725`*^9, 
   3.428599095776467*^9, 3.428625182973731*^9, {3.428625262613798*^9, 
   3.4286253990590677`*^9}, 3.42870301032161*^9, 3.429451303835113*^9, 
   3.429451368982843*^9, {3.429451409327347*^9, 3.429451432151973*^9}, 
   3.42945671823871*^9, 3.429796525731818*^9, 3.4297965921446657`*^9, 
   3.4298964367486067`*^9, 3.4298967824118586`*^9, 3.429969425436489*^9, 
   3.430073760157724*^9, 3.430601018551485*^9, 3.430664618239212*^9, 
   3.4306652487406797`*^9, 3.4306657866727324`*^9, 3.4306661335777197`*^9, 
   3.4306671517611837`*^9, 3.43067033855646*^9, 3.4306707489502077`*^9, 
   3.4306804988132424`*^9, 3.4306914709327345`*^9, 3.4307053481136265`*^9, 
   3.430705414726754*^9, 3.4307068326193686`*^9, 3.4307085937114506`*^9, 
   3.430711852867756*^9, 3.430712107019534*^9, 3.430712182765926*^9, 
   3.430712222782753*^9, {3.4307122712846823`*^9, 3.430712326758086*^9}, 
   3.4311287257163477`*^9, {3.431128854446805*^9, 3.431128875822929*^9}, {
   3.431129067873396*^9, 3.431129094736186*^9}, 3.431129160789528*^9, 
   3.431129323608715*^9, 3.431132582938023*^9, 3.431132664192566*^9, 
   3.4311337830111933`*^9, 3.431133922029004*^9, 3.431134245984441*^9, 
   3.4311342887380743`*^9, 3.431134322727858*^9, 3.431135173852882*^9, 
   3.431135240333975*^9, 3.4311353244634533`*^9, 3.431136495965889*^9, 
   3.4311365339767847`*^9, 3.431146269304227*^9, 3.4311465552844267`*^9, 
   3.4311472526265373`*^9, 3.43114730391601*^9, 3.4312860931542516`*^9, 
   3.4312877229928355`*^9, 3.4312925857111235`*^9, 3.4312932385938816`*^9, 
   3.4312942077888575`*^9, 3.432041564150494*^9, 3.4327566598961277`*^9, 
   3.432756780224352*^9, 3.432756931385682*^9, 3.43275737777976*^9, 
   3.432771153477062*^9, 3.432819585176648*^9, 3.4328196675618267`*^9, 
   3.4328277665345364`*^9, 3.4328291272268424`*^9, 3.4328293778171787`*^9, 
   3.4328428111475487`*^9, 3.4328429115979824`*^9, 3.4328533999411345`*^9, 
   3.4328566634035945`*^9, 3.4329186892125063`*^9, 3.4330164161819706`*^9, 
   3.4330180230584526`*^9, 3.433018189180699*^9, 3.433021197095893*^9, 
   3.433021959551839*^9, 3.433042814734598*^9, 3.433047134834282*^9, 
   3.4330477450874424`*^9, 3.4330809491734705`*^9, 3.4330817755487785`*^9, 
   3.433094762965743*^9, 3.433095228656799*^9, 3.433096701275583*^9, 
   3.434503732657797*^9, 3.4345042996705046`*^9, 3.4345048412877088`*^9, 
   3.4347577403374157`*^9, 3.4347794687567863`*^9, 3.43478034816747*^9, 
   3.434780509381246*^9, 3.4347806931162834`*^9, 3.434806890792907*^9, 
   3.434807357050105*^9, 3.434807429670908*^9, 3.4348074830850506`*^9, 
   3.434809155947056*^9, 3.4348094448067913`*^9, {3.434809511678396*^9, 
   3.434809614267972*^9}, 3.4348110360343018`*^9, 3.434837641794684*^9, 
   3.4352879352882495`*^9, 3.435288241293006*^9, 3.4352882949174404`*^9, {
   3.4352892679480753`*^9, 3.4352892888871403`*^9}, 3.435724577956091*^9, 
   3.4357247990029197`*^9, 3.445377140576686*^9, 3.4453773097265387`*^9, 
   3.4453775032309246`*^9, 3.445377545801289*^9, 3.445378643728134*^9, 
   3.4453788950444975`*^9, 3.44537995827214*^9, 3.44545346938332*^9, 
   3.4462463865566516`*^9, 3.446246535215588*^9, 3.4470117470136456`*^9, 
   3.447257783859409*^9, 3.44747152926682*^9, 3.447471924437166*^9, 
   3.4474726829727592`*^9, 3.447474034248851*^9, 3.447474565111607*^9, 
   3.4474762445129757`*^9, 3.4475564317878947`*^9, 3.447559839133441*^9, 
   3.447644741497064*^9, 3.447729026673727*^9, 3.4477291105935607`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ljForceX", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ljEpsilon", "\[Rule]", " ", "1"}], ",", 
      RowBox[{"curPosy", "\[Rule]", " ", "0"}], ",", 
      RowBox[{"curRad", "\[Rule]", " ", "1"}], ",", 
      RowBox[{"nbrRad", "\[Rule]", " ", "1"}], ",", 
      RowBox[{"nbrPosx", "\[Rule]", " ", "0"}], ",", 
      RowBox[{"nbrPosy", "\[Rule]", " ", "0"}]}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"curPosx", ",", "1.8", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VVsbAPBtVkqKNHzJVBIRkQa0FioqRGUIlaJSJI1clTSjiIoSF7mS
KXKTyvTi1pEMmTIllPFkzHC26ez9rf46z++svdbznvUO59mKR07vOSpIUZSk
AEX9+Wx6f6i2vHwGFR7QAW5DNuJUhuRbVs4gSizP/1JKFvq3I/9F1ReyLm5y
wv3qvyho7rLLdTUzyD8ndeS9cxoyONy4oqWRPO/UtUrtfQSKE7e+2NdJLBS8
TO7Lc3CzM14ymz+D2lOcGi11P8I+jzNC95gZFFcnelZjFQeMrsUNzKX4SMEr
geUvLoGlqUzRfCHiK1bNPpOfoJzJOblkFh85I7/w4ZflsDZRJ091IR8VGm7j
tI5UA29sxSFTDT6ymolVSyxrhOE9TsDVJPtld1rThk3AffVQ/p4WH8XFcFRy
M5qgxUOwvUqHjyiJMzJ/hzVDcWebs8NmPtIKnLJrsmyB+3VPj5wy5aPhvhdp
aRltoJoldezhYT769CnLXk+sA5QWmHHWu5DzV24SkdzYAf/zuqrS6MpHZokG
Li/cOkByzWD3Mjc+wtG7NRVKO2Dsn7LjiZ58JOWrX6F1pxOKHt4+8f4SOc8j
uUJoogsczs14tIXzkf1ji/L56b3QdDhC+thj8ntv1Syvr+sFeyutnP4nfFR1
IzT45HQv2Gm4ik1F8dG7AwfOC5txYV9P2TOZeHKeW5WlQBsXLB2j6nekk/WT
q4e2CfeBsclmnMXhIy/R7OuqGgNQpF3XvfkTOV+lgLvVcgCwgmdwUSk5vySP
o3d6ABD/WXNlOR+FFny/EfVqAAzezrrAreGjdhtv91Pag6Cn3pS8vI3cT/py
fxv1IVCX9pEOpPnIg14lFO8/DAd9baXEJ/nIdb7u9LGQYQj9oTv3zhTJV8Tc
iiXRwzCW8Vv0Fp+PZmYYox1vhyHP3H3KX4hBG/1OmVX3D4P57YM/fOYxaEHV
/r2P9v0Gz8mtGW6rGCS+fjbHbtEIxDkrp/WoMkgNDAtopRGoKRFIPqbGoP5t
mx7e0RwBvYiCeFcNBm21NZTy3jYC7LqNEc46DPKKuTITcXYEQj3Ur9gjBqWt
9InvKR2BzLb5u8zsGKTrdDtW+9QoDN+fyO+xZ9DizpWNud6joIXbtO44MEi0
A+msvz4K6XFpspwDDNLz140YjxiFlMOmP01cSTyeb4fTYRQSOi7/hc4wqNhV
6ssCyTF40tPzQu8ugwYvno1dEDsGDY8rl9bfY5AbNzXg2YsxkDV7E3whhEGc
03Zxiq/GIDzp+rmsMAZR9y89GS8cgwcn5NC6JySefZTd4I8xuNu3p17jOYOi
Ze6v11IcB7+hfOGVwKB6v9Fax/BxMNESK0gqZJCm4k7N91HjIH7GyntNMYN8
W47oSsSPw4ORn1ydjwwK2arhFZw+Ds/Hxb4YlzFon+iWZomScSifto50bmBQ
zOXfE5Pj4xBmELWns5FB7a84a15Mj4PtlU4Jt2YGfTqj/36HAA/amYt+p78z
KOJon8jpOTwYFYh28etg0LHLGWH6SjxYKt6tET3EIGerPM+uXTxoM1vbI/+b
QSpLrwgOWPEgIdAn7p8RBl3Xtnjwy4YHmhIS0qnjDGrpf19RcogHRpJaE++n
Sf6OrSmROMcDNxnf4gYxFjVeGDUufsyDtwqSdtIKLBLNQKHqzTwITDl0+60i
ixIVzlvbtfLAUTfzjaMyi3ImHDJ9fvKANd0nk6DCIleeuW/0Lx6Ynn5aratB
9g/mnDgxxYOGfBVz280s8oxXcVFaTEOyqc+lKX1yHpOEX/6PhkvVpSkxhiz6
N32dh6Y8DfJdHrN6MItCDxc2SKvQcHzOa463KYuO7Nq6ykOHBtoBGUXuY1HB
u6gcR3MaSjtDvQxtWRTvbeJotZuGKM+fsT/sWBRxfmBQfw8N6PotZrUji7aE
qy+asKPhTnJZbs5hEv/Pk/4iLjSQL/VaPEn8tqfRFW8auNeSj/p7sSiNPzu5
6y8aciWmH604y6KbZZ1x2y7TcEg+ZtTjAotCapqd+/1peLG98xX/EosMPIJU
6gNp2BDupS4fyKJ3542qlZ7SkPdYNDM3iEWV4xVJbBQN+Gm0nv09FiU57ufW
/U3DzthPRmH3WSTMNHDcntFwMFnBXiiCRZ1BCd/0kmjoSM3+HvuYRSnXQzsa
kmlwSzd3MYhkke6JGxFnUmk489rH80I0iyQ5/XL302m4mV91syeeRbPblR+d
y6JhVuGx2TcTWOSrWfe1+Q0NIcUz9xUSWXQ2OU5Q/y0NT0pUo/YnsyisQcyw
+z0NqdX+mWUZLJqxLpjHLaBBq052g1smi96c1L21uJCGrPq0POHXLGqLopWN
imgo+NZYYpjNotMiv6ev/EdDTZdWa0Yei6KyudzEEhrsejku5gUssv693i/u
Ew0tv5y4vcAi6b7VPg9LaegaChhT/I9FgWUvc46W0XByZLlvwQdyP7uY+dvK
aRgcy2IdOCyq/+zdL1dBw8Rk++xHpSw6dWGJWV4lDVdmLoZqlbFoZLq04doX
GgTZObIV5Szib80SM6qiYY7wJkXRKlJfZ6dc06pJfUmGbfCpZ5Gxu9r3DXU0
JEitypdpZBG0ZeuVEatK5xtnNrFI8d+9J+y/0rBuMdfiVwuL7HqTLjjX0/B2
6dXa260syi/fduAbsYHcwv3K7Sx6vSxvk1UDDduVjFydOlh0gJvVv6qRhrIV
DdyJThaptXZXBRFbrTp1OrybRRr61h97iOtWC41r97LouGNu1ZYmGvavifSt
5LIoYVH35H3iVs21lHsfi1LL75p+Iz6i/fGW2ADJ/2HnQoVmGnp0HCUSBlm0
yHy+uzOxh97vUDxM6vHpNsunxBdLuU5Fv1k0oZMsV0Z8zemnqvEo6U+19mEe
8b2h5rHiMRaV5hpVyH2jIeJ6baEJj0XKhxTeIeK4heX3PtCkHz+UZjsRpyZ9
sN82yaL9325XnifO1s9fwZli0devUcIBxIWVb4a3z7DITcPsYATx58PpeSV8
0q+JnPZY4q9jiQFmLItqbSzCEoiH/9ud4kpRWDV+7oU/vjDXXGqlAIWLduqG
/Xl+ytbsYhcxOsn9FU7sH7e15bkghUd8re7cIRb5hY2PCVG4xSHA/U88QTqG
SSrCFIbdqdF/4p13ZZNkD7GixBd5TPyIs/78CxEKG6ULTy0nXiq1rvm4KIXV
K+21Jsl9xO7XxKpiFL7vXVtSSbziH7XEXuKv63w+xhKn9KvMSRan8Bzx7Zoe
xFlX5RtXz6bw2BtjG5rkZ1Pp/7b8Il6K98tlExcsWJyQIkHhdks3Vy/i0udS
XupzKXzrkeSNBpJ/y6E59X3EvQtPut78Uw8bZxmkSVI44t32xjXErWUC4hpS
FM5q+BbkRerLZSFzaoA4+9/1tRLEvQenal/Op3Daub1F8aQeR3+PxGpKUzip
f+DZf6R+ffSHRIaIQ0O5f1sQMzf73DNkKPxuMnFPLal38cWdG7RkKXxWQW+y
upaG4MPtfw8Td1e6ju0kXpDaIpS5iMI56vNyoYYGuS1fv2gvoXDhsyP50aSf
1rlyjusso/ANiwHZlaT/3r4srhgljklhBy+T/jSgC3Sy5Cj8cM+mt1Wkf02D
3rK68hTeY6qm5kH62+lV0mM9JbL/oO2ic2Qe3J4JKtmkSuEHPrv7PxTT8ODk
XbfZqym8e3JU6zOZNzGNd2d9I/64SUCwjMyjN1n3dl1Wp7C8w9xDQOZVp0fI
lwJNCgvKlUSdy6HB5HtYg8l6ChsXun+UzCT3veuBj4wehWON9a2/ZNDg8P7B
ki5iRnM0/y6Zn2fDHzre3kjywwuwnCDzNd4ivO2TPoW9r2o0xyXSQBU86bEw
pvB4kc6UDpnnc9ZEBiw3IfU1R3woK5KGxU8jVw8Rm581kFn3hIa1F5+6h26j
8PKQKUHFcDLfNaOHasxIfHYb6OoQGvJjYmm73RS+WPfZ9uY1GnyvJoodcaJw
osTxzp2uNHxa31i24gDpD+7FvktHyP9V/6zQHmLn6w7LU5xJ/dmfWnzqEIkn
wnMh40TDkLbuap8jJH+z65Ju2tDg2lm0M8SNwn/xQx3mbadh947vwTnnKbxD
WX5CeyWpb2kZGelgCnNsbNscWnhQLuImVEP84eZ+h5kmHpyfyB0JDaFwoOfN
b1ENPPjw3aVaMpTCtQ//maqr4YFr0uuQ2Q8p/Gxh8ejaUh48N9w7SzCSwvmz
MsXuvuGBitsDZjiBwo4n+EPd93iwOl+KW5lH4atD+ofe6fGgOkD2auQwhT0j
55nHnhiHtUc9f/QrCOAP/bnenk/HQNvli/BuGwFcyfWviMkYhWBvGM4NEMDV
fkWPN34YgdhogeTMdwJY5qillVTvb7DpMFfK7hfAnFxpx7TpYSja/Ou4iZwg
XrXuhuZR5WGofh3q2WYtiFMGM72lrw6CvgnH8PYtQay+Z/qa2Zd+cOywaHrz
RhA3NbhW/NrVB/LPW9ePcQWxZ9ekYsV7LkR6Fx3MXSqEbfsudCfs7QVPZx2r
4J1CeGnX5cifwj3QfTJd0NNPCC8a1TYZT+0CmduXrjWkC+GysBjdAd9O6C62
LtrdIYSz5n54t8W4AxbIvi2tkRXGNQEebjUKP2HsL8+Y1u3COOFG2eCY4g/w
ZTV1J32FcdaOl89t5NohO9woIjpVGC8cLx1w9moFC+OOwp3fhPFI17XFTp9a
4I5USJrYPBG8UnTadfmib+A9FORqgURwunLnVPnTJpAYDv3+7JwI/scvUEN5
USPYCHCVriaI4DDlCqWZ4nqYUq3SOl4ngvXUX3dVBnwF47OF7AFxUbxpxKri
iFkd4HLBqO8bRTF5rblhs7YWfppa0u6nRHG1gKew9vwaaG1SXSbyTBQbft4Q
UDyrGkIv28xdVS2KNX/jO+lKVdCN74KdiBh2OT251dCzEkYWSm+ZryeGzz35
L6a+qhz2C6jd+nqUrNOB82r3lIGL5M7gpEgx/EGNf7SyvBSU1+QdFv4shi0C
0x3dLn6CO+4baE9GDKu+emi/fUkJMMct9C8QF7263idHfNHV5eol4u+zC/3G
yfvwsQP3xQKIN5auTEwg3r67Z9Ez4mynvycEiYV1Hm+sJdaxNkgD2RLwn+L9
tYEVw3yh9ZabZEpggjenwJA4eWbglxSx16iS4FbizM3jd3qlS+BQv2WQFfGG
m4PFj4m3tCY+PUF8Uv+eAW9BCfCLbHOjiBVfntvyen4JnC/wYJ8RO2dItQcR
9+dcN0kirumfvnaEuOV1elkWcbNsPmc+cd5z0ZYK4v6Fv/Z6SZWAbvwyhTpi
6/YJ2pQ4LWadazNxS7tNtDxx1OOD/d3EwtenuirnlcCCR+e1BoidFI3vJhIH
hQadHyXeN9ag5UcsGBz3bpJ471RuvQ2xb2D2DEucs27wsgbx/wHgaR9r
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.8, 0},
  PlotRange->{{1.8, 3}, {-1.49112374075536, 0.0892320720480404}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.41573200498105*^9, 3.415732066963049*^9, 3.415980213555434*^9, 
   3.416106855387435*^9, 3.4172073512897377`*^9, 3.417207476022876*^9, 
   3.4172106493421173`*^9, 3.417227612488161*^9, 3.4172326242848887`*^9, 
   3.41723292532275*^9, 3.417295443421179*^9, 3.417296137554685*^9, 
   3.4173579367058563`*^9, 3.420490578989524*^9, 3.4204906180541377`*^9, 
   3.4204914070571976`*^9, 3.4204917625441837`*^9, 3.4204932991624413`*^9, 
   3.420494461126918*^9, 3.420494535741232*^9, 3.420497522256508*^9, 
   3.4205141022059855`*^9, {3.4205208557577395`*^9, 3.4205208713895936`*^9}, 
   3.420549604619878*^9, 3.4205537629133496`*^9, 3.4205634653177257`*^9, 
   3.4205637934364495`*^9, 3.4205706639417095`*^9, 3.4205762479923763`*^9, 
   3.420605039106916*^9, 3.420643348735754*^9, 3.4206450822092237`*^9, 
   3.420645537245384*^9, 3.42064887199751*^9, 3.4206521232128477`*^9, 
   3.420654094488776*^9, 3.420654244588622*^9, 3.420654505202972*^9, 
   3.4206564044181557`*^9, 3.42065805363383*^9, 3.420658748214884*^9, 
   3.420661894723838*^9, 3.4206681401051483`*^9, 3.4207308562005663`*^9, 
   3.420755844439464*^9, 3.42077308093511*^9, 3.420815485828964*^9, 
   3.4208196499505844`*^9, 3.4208228530686803`*^9, 3.4208256502993283`*^9, 
   3.4208280585461607`*^9, 3.4208331884680104`*^9, 3.4208342151733885`*^9, 
   3.420835842538514*^9, 3.4209013815921726`*^9, 3.420902867289241*^9, 
   3.420914706621133*^9, 3.4209851063735895`*^9, 3.420991173035042*^9, 
   3.4209940741108694`*^9, 3.4209953220355215`*^9, 3.4209957664968977`*^9, 
   3.4210034458301973`*^9, 3.4210043062631187`*^9, 3.421005003557967*^9, 
   3.421010385361959*^9, 3.421010525958519*^9, 3.4210195358747673`*^9, 
   3.421025990318355*^9, 3.421035179566682*^9, 3.421038337661834*^9, 
   3.4210386479155817`*^9, 3.4210766465465555`*^9, 3.4210769084927673`*^9, 
   3.4210845740495434`*^9, 3.421091539747887*^9, 3.421097250281457*^9, 
   3.421101232999467*^9, 3.421101738836649*^9, 3.4211028455538874`*^9, 
   3.4211031130678835`*^9, 3.421104058259301*^9, 3.421104864576567*^9, 
   3.421106447379393*^9, 3.4211097532311153`*^9, 3.4211175040070314`*^9, 
   3.421121782258209*^9, 3.421122942470235*^9, 3.4211623713453617`*^9, 
   3.421163436834962*^9, 3.421166399667128*^9, 3.4211722200242357`*^9, 
   3.421173881266724*^9, 3.4211745757476377`*^9, 3.421174855839218*^9, 
   3.421178265526106*^9, 3.421179356571434*^9, 3.4211806386037703`*^9, 
   3.421180880501954*^9, 3.421184547077984*^9, 3.42118536621317*^9, 
   3.421205019320504*^9, 3.4212103685189123`*^9, 3.4212521256333804`*^9, 
   3.4212543069329305`*^9, 3.421260916668069*^9, 3.421263559152375*^9, 
   3.4212664893389015`*^9, 3.421273380312953*^9, 3.421274926492629*^9, 
   3.421275127259727*^9, 3.421275215045711*^9, 3.421275614687606*^9, 
   3.421275801539575*^9, 3.421275853288341*^9, 3.421281964222281*^9, 
   3.4212822945244713`*^9, 3.421282388140834*^9, 3.421294991084613*^9, 
   3.421296109516358*^9, 3.4212961925303917`*^9, 3.4212976731989*^9, 
   3.421297886952889*^9, 3.42129792659974*^9, 3.421299022295588*^9, 
   3.421299124059867*^9, 3.4212991772524843`*^9, 3.421299253969117*^9, 
   3.421328451117094*^9, 3.4213291810838757`*^9, 3.421329262188723*^9, 
   3.42133373773202*^9, 3.4213343456822166`*^9, 3.4213344346836357`*^9, 
   3.421337574239765*^9, 3.421337847126853*^9, 3.421337928208288*^9, 
   3.421344038391884*^9, 3.4213441815591297`*^9, 3.421361915783052*^9, 
   3.42136203667272*^9, 3.421362091220675*^9, 3.421362142460601*^9, 
   3.421446852658668*^9, 3.421449282507028*^9, 3.421449485763918*^9, 
   3.421450813730564*^9, 3.4214511201289225`*^9, 3.4214528578082724`*^9, 
   3.4214540837021246`*^9, 3.421458389686431*^9, 3.4214585118271885`*^9, 
   3.4215379790346403`*^9, 3.4215380835310163`*^9, 3.421538121456471*^9, 
   3.4215381630515413`*^9, 3.421538347279554*^9, 3.421550044137971*^9, 
   3.421556053230015*^9, 3.421556166014045*^9, 3.421556279328104*^9, 
   3.4215893087139983`*^9, 3.4215946843693943`*^9, 3.4215947570910625`*^9, 
   3.421626943637164*^9, 3.4221320417199163`*^9, 3.4227586782276077`*^9, 
   3.4228122684092665`*^9, 3.422812591197319*^9, 3.4228195908333073`*^9, 
   3.4228196309790325`*^9, 3.422820049600108*^9, 3.4228382359431057`*^9, 
   3.4228449299054813`*^9, 3.4228474661760035`*^9, 3.4229783324520864`*^9, 
   3.4233684570774603`*^9, 3.423426167285206*^9, 3.4234262496203136`*^9, 
   3.4234291734191933`*^9, 3.423429247322513*^9, 3.4234307115695934`*^9, 
   3.423452008814051*^9, 3.4234534320137453`*^9, 3.423489319297923*^9, 
   3.423491443848135*^9, 3.423506950908011*^9, 3.423507084654995*^9, 
   3.4235073804184847`*^9, 3.423510419777639*^9, 3.423512161042001*^9, 
   3.423513508485785*^9, 3.423516601529993*^9, 3.423518267418977*^9, 
   3.423538898703182*^9, 3.423539696939846*^9, 3.423539772737298*^9, 
   3.423539844670567*^9, 3.423574507088622*^9, 3.4235766503154163`*^9, 
   3.423576981583208*^9, 3.4235787294547863`*^9, 3.4235828162118483`*^9, 
   3.4235894697776327`*^9, 3.423590926583686*^9, 3.423591227920726*^9, 
   3.423591567653919*^9, 3.423592476125224*^9, 3.423592644197115*^9, 
   3.423594841983992*^9, 3.423598440806942*^9, 3.423599367018693*^9, 
   3.423604822529541*^9, 3.4236052138890657`*^9, 3.4236067631561413`*^9, 
   3.423606836386159*^9, 3.423606910749077*^9, 3.423607133344729*^9, 
   3.423621387822487*^9, 3.423621550089785*^9, 3.4236218053660107`*^9, 
   3.42362188896815*^9, 3.423624425532928*^9, 3.423886753116254*^9, 
   3.423925366472622*^9, 3.4239455561386385`*^9, 3.423969325879752*^9, 
   3.423969930665268*^9, 3.423970313490474*^9, 3.423970507281402*^9, 
   3.423971813506139*^9, 3.4239720617317657`*^9, 3.423972115755732*^9, 
   3.42397216059901*^9, 3.423972226198798*^9, 3.424010830838776*^9, 
   3.4240109007339983`*^9, 3.4240109727713346`*^9, 3.424011040738505*^9, 
   3.424011099591745*^9, 3.424011160416761*^9, 3.424023481063053*^9, 
   3.424056534442323*^9, 3.424129010833994*^9, 3.424466626792528*^9, {
   3.4244682183275623`*^9, 3.424468246867462*^9}, 3.4244712293764887`*^9, 
   3.424472529680402*^9, 3.424472604059616*^9, 3.424472712177515*^9, {
   3.424472762986135*^9, 3.424472831275217*^9}, 3.424473445936718*^9, 
   3.424473511882863*^9, 3.424473997909725*^9, 3.424474043399336*^9, {
   3.4244740928780127`*^9, 3.4244741108300343`*^9}, {3.424474143381057*^9, 
   3.424474167930077*^9}, 3.424628966409643*^9, 3.424632273563185*^9, 
   3.427215363693799*^9, 3.4272174740341454`*^9, 3.4273400988145723`*^9, 
   3.427340152669585*^9, 3.4273402013499813`*^9, 3.427340246425392*^9, 
   3.4273402844096117`*^9, 3.427340335234312*^9, 3.427685671644212*^9, 
   3.4276857063627496`*^9, 3.4277240549214*^9, 3.42772419296439*^9, 
   3.427724229084888*^9, 3.42772652156988*^9, 3.427741127058978*^9, 
   3.427742029060014*^9, 3.42774820658646*^9, 3.427758084072871*^9, 
   3.4277681146560555`*^9, 3.4277708166135073`*^9, 3.4277736255605354`*^9, 
   3.4278144427059293`*^9, 3.427814619493085*^9, 3.427897737419424*^9, 
   3.427898088620418*^9, 3.427898263334676*^9, 3.427898688509088*^9, 
   3.427899997208706*^9, 3.427900136904006*^9, 3.42790027640904*^9, 
   3.427901505036714*^9, 3.427901595823638*^9, 3.42790180074012*^9, 
   3.42790319859438*^9, 3.427903865456682*^9, 3.42790395174732*^9, 
   3.427904066647956*^9, 3.42790427174469*^9, 3.427908603280362*^9, 
   3.427908680618484*^9, 3.427908945458742*^9, 3.427909043505816*^9, 
   3.4279093609896717`*^9, 3.427913635605768*^9, 3.427989825539383*^9, 
   3.427989929004031*^9, 3.427990281336607*^9, 3.4279909563002353`*^9, 
   3.427996176166156*^9, {3.427996219772902*^9, 3.427996319305729*^9}, 
   3.427999875203616*^9, 3.428000626917109*^9, {3.428000688409438*^9, 
   3.4280007952841387`*^9}, 3.4280322139865665`*^9, 3.4280721017336473`*^9, 
   3.4280738143379416`*^9, 3.4280756845926375`*^9, 3.428076277470438*^9, 
   3.42807639566511*^9, {3.428076425906148*^9, 3.4280764457327757`*^9}, 
   3.4280764785090027`*^9, 3.42807651303435*^9, 3.428084145814069*^9, 
   3.428085567990199*^9, 3.428087018971533*^9, 3.428087850931005*^9, 
   3.4280920770602627`*^9, 3.4280974195092344`*^9, 3.4281544809181337`*^9, 
   3.4281551324490023`*^9, 3.428293406342906*^9, 3.4282935917598133`*^9, {
   3.428293691814939*^9, 3.428293793683325*^9}, 3.428418694473297*^9, 
   3.428450587650636*^9, 3.4284996726207857`*^9, 3.4285494325278563`*^9, 
   3.4285990958365507`*^9, 3.428625183000739*^9, {3.42862526264034*^9, 
   3.428625399109538*^9}, 3.428703010386957*^9, 3.429451303864094*^9, 
   3.429451369014538*^9, {3.429451409353191*^9, 3.429451432177888*^9}, 
   3.4294567182664948`*^9, 3.429796525791902*^9, 3.4297965922347918`*^9, 
   3.42989643680869*^9, 3.4298967824819565`*^9, 3.4299694254965725`*^9, 
   3.4300737602278223`*^9, 3.430601018781807*^9, 3.430664618329338*^9, 
   3.430665248820792*^9, 3.430665786762858*^9, 3.430666133637804*^9, 
   3.430667151841296*^9, 3.430670338646586*^9, 3.430670749010292*^9, 
   3.4306804988833404`*^9, 3.4306914709928184`*^9, 3.4307053481837244`*^9, 
   3.430705414796852*^9, 3.4307068326794524`*^9, 3.4307085937815485`*^9, 
   3.43071185292317*^9, 3.430712107049382*^9, 3.4307121827928257`*^9, 
   3.430712222923646*^9, {3.430712271318665*^9, 3.430712326792329*^9}, 
   3.431128725898334*^9, {3.4311288546625347`*^9, 3.431128875862125*^9}, {
   3.431129067923614*^9, 3.431129094932393*^9}, 3.431129160847142*^9, 
   3.43112932365411*^9, 3.431132582986705*^9, 3.431132664260908*^9, 
   3.4311337830582533`*^9, 3.4311339220762873`*^9, 3.4311342462390833`*^9, 
   3.431134288800552*^9, 3.431134322772131*^9, 3.431135173896492*^9, 
   3.431135240401277*^9, 3.431135324516665*^9, 3.431136496026058*^9, 
   3.431136534023385*^9, 3.431146269357224*^9, 3.431146555329101*^9, 
   3.4311472526709213`*^9, 3.431147303985012*^9, 3.4312860932543917`*^9, 
   3.4312877230829616`*^9, 3.4312925857812214`*^9, 3.4312932386639795`*^9, 
   3.43129420786897*^9, 3.432041564216237*^9, 3.432756659956212*^9, 
   3.432756780334506*^9, 3.43275693145578*^9, 3.4327573778398438`*^9, 
   3.4327711535371466`*^9, 3.432819585246746*^9, 3.4328196676319246`*^9, 
   3.4328277666046343`*^9, 3.4328291272969403`*^9, 3.4328293778872766`*^9, 
   3.4328428112176466`*^9, 3.4328429116680803`*^9, 3.4328534000212464`*^9, 
   3.4328566634736924`*^9, 3.432918689292618*^9, 3.4330164162520685`*^9, 
   3.4330180242401047`*^9, 3.433018189250797*^9, 3.433021197155977*^9, 
   3.433021959621937*^9, 3.4330428147946825`*^9, 3.4330471348943663`*^9, 
   3.4330477451475263`*^9, 3.433080949243569*^9, 3.4330817756188765`*^9, 
   3.4330947630258265`*^9, 3.4330952287168827`*^9, 3.4330967013456807`*^9, 
   3.4345037327078667`*^9, 3.434504299720575*^9, 3.434504841337779*^9, 
   3.43475774042754*^9, 3.4347794688168697`*^9, 3.4347803482275534`*^9, 
   3.4347805094513435`*^9, 3.434780693186381*^9, 3.4348068908630047`*^9, 
   3.434807357120202*^9, 3.434807429741005*^9, 3.434807483145134*^9, 
   3.434809156035356*^9, 3.4348094448388*^9, {3.434809511707361*^9, 
   3.434809614420061*^9}, 3.434811036212263*^9, 3.434837641921444*^9, 
   3.4352879353683605`*^9, 3.435288241363103*^9, 3.4352882949875374`*^9, {
   3.4352892680382004`*^9, 3.4352892889472237`*^9}, 3.435724578046216*^9, 
   3.4357247990630035`*^9, 3.4453771406467857`*^9, 3.4453773098166656`*^9, 
   3.445377503331067*^9, 3.445377545901431*^9, 3.4453786438382907`*^9, 
   3.445378895154654*^9, 3.4453799583822966`*^9, 3.4454534694834614`*^9, 
   3.4462463866567855`*^9, 3.446246535305709*^9, 3.447011747083745*^9, 
   3.4472577839194937`*^9, 3.447471530057942*^9, 3.4474719244872375`*^9, 
   3.4474726831029444`*^9, 3.4474740343790355`*^9, 3.447474565211749*^9, 
   3.447476244613117*^9, 3.4475564318479805`*^9, 3.4475598391835127`*^9, 
   3.447644741577179*^9, 3.44772902677387*^9, 3.4477291106937037`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "cellid1", "}"}], ",", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", "cellid2", "}"}], ",", 
           RowBox[{
            RowBox[{"ljEpsilonFunc", "[", 
             RowBox[{"cellid1", ",", "cellid2"}], "]"}], " ", "=", " ", 
            "100"}]}], 
          RowBox[{"(*", "1", "*)"}], "]"}], ",", "gcellsIDs"}], "]"}]}], 
      "]"}], ",", "gcellsIDs"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "cellid1", "}"}], ",", 
      RowBox[{
       RowBox[{"ljEpsilonFunc", "[", 
        RowBox[{"cellid1", ",", "gBoundXIndex"}], "]"}], " ", "=", " ", 
       "1"}]}], "]"}], ",", "gcellsIDs"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", "cellid1", "}"}], ",", 
       RowBox[{
        RowBox[{"ljEpsilonFunc", "[", 
         RowBox[{"cellid1", ",", "gBasalLaminaIndex"}], "]"}], " ", "=", " ", 
        "1"}]}], "]"}], ",", "gcellsIDs"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "cellid1", "}"}], ",", 
      RowBox[{
       RowBox[{"ljEpsilonFunc", "[", 
        RowBox[{"gBoundXIndex", ",", "cellid1"}], "]"}], " ", "=", " ", 
       "0.1"}]}], "]"}], ",", "gcellsIDs"}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.4172095208356705`*^9, 3.4172095484740343`*^9}, {
   3.417358344221517*^9, 3.4173583539650416`*^9}, {3.4204971180413976`*^9, 
   3.4204971556740093`*^9}, {3.42055261621021*^9, 3.4205526585193596`*^9}, {
   3.4205536509468155`*^9, 3.4205536512872915`*^9}, {3.420648806736272*^9, 
   3.4206488526604757`*^9}, {3.42065211177686*^9, 3.42065211252791*^9}, {
   3.4206542364372263`*^9, 3.420654238830572*^9}, {3.4206580057969522`*^9, 
   3.42065800596719*^9}, 3.4206601825601597`*^9, 3.4206607889779577`*^9, {
   3.42066447551189*^9, 3.420664513284698*^9}, {3.4207306538676963`*^9, 
   3.4207306542882843`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ljXFunc", "[", 
   RowBox[{
   "curType_", ",", "curPosx_", ",", "curPosy_", ",", "curRad_", ",", 
    "nbrType_", ",", "nbrPosx_", ",", "nbrPosy_", ",", "nbrRad_"}], "]"}], 
  " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"ljEpsilonFunc", "[", 
     RowBox[{"curType", ",", "nbrType"}], "]"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"84", " ", 
        RowBox[{"(", 
         RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"curRad", "+", "nbrRad"}], ")"}], "6"]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"13", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], 
         "4"]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"588", " ", 
        RowBox[{"(", 
         RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"curRad", "+", "nbrRad"}], ")"}], "12"]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"169", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], 
         "7"]}], ")"}]}]}], ")"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ljYFunc", "[", 
   RowBox[{
   "curType_", ",", "curPosx_", ",", "curPosy_", ",", "curRad_", ",", 
    "nbrType_", ",", "nbrPosx_", ",", "nbrPosy_", ",", "nbrRad_"}], "]"}], 
  " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"ljEpsilonFunc", "[", 
     RowBox[{"curType", ",", "nbrType"}], "]"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"84", " ", 
        RowBox[{"(", 
         RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"curRad", "+", "nbrRad"}], ")"}], "6"]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"13", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], 
         "4"]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"588", " ", 
        RowBox[{"(", 
         RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"curRad", "+", "nbrRad"}], ")"}], "12"]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"169", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosx", "-", "nbrPosx"}], ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"curPosy", "-", "nbrPosy"}], ")"}], "2"]}], ")"}], 
         "7"]}], ")"}]}]}], ")"}]}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ljXFunc", "[", 
    RowBox[{
    "stemID", ",", "curPosx", ",", "0", ",", "1", ",", "gBasalLaminaIndex", 
     ",", "0", ",", "0", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"curPosx", ",", "1.8", ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VV0XAPBjFiVFGr5kqCRF5gZpbyTeijQYQlFUiqRSvCqpJCnSQBle
VBIRKZRxoSIZMmUOZbzm8R7Tvefb/XWf391r77vv3mut8xy54+cOnOClKEqM
h6L+fjZm2tWUlc0hnyMawKrPQEUVQbmmFXOIEsrxufImDb3vyH1d+YOMCxuc
dr7+HgUsWHm1tpqMZyWOZdonoe3HGta0NBDbdK1TygxFMcL7L/d3knjewJXS
P16Bk6X+chHOHIp5Y9tgqvkVDrmc57vPJa4VvKC8rgj0bsQMLqA4SNYtluEs
K4YVidyCRXzE18yaPKe/QRk368zyeRyEkXfIyNsy2BSnkaO4hIPydQ2LWseq
gD2xxs5ImYzPRSvFlTbAyAFbYKmQ+VK799O6jcB691jmviqJjypSyE5phBYX
3vZKDQ6iRM9L/vewCQo72+ytt3GQ2d0Zy0bTFnhQG378rBEZH3idlJTSBopp
4icfHyPzv6VZaQt1gPxi4yItBw5SXLtVQGxLB/zP7bpCgyP5/bjtDq+dOkBs
41D3SicOMo7cpyJb0gETL0tPxblykLiXTrnqnU4oeOx3OvMKB1W6JJTzTXWB
9cU5l7YQDrJ/alK2KLkXGo+FSpx8ykFWt6tX1dX2gpWZatbAMxJ/KzjwzGwv
WCo7Cs1EcNC7I0fc+Y1ZcKin9LnkCzLuVGnK08YCU5uIun+SOSjmzPphQ/5+
0DfYhtOKOMhJMOOmovIgFKjVdm/7Rn5PIY+103QQsKxrYEEJmV+cU6R9bhAQ
53lTRRkH+eT9uhXxbhC2f5x3iVVNxs09nM+qDYH2hsaEVW0cNJK8ysd8wzBs
kPCUuEtzkAu9ju+Fzwgc9bIQF54m6y/SnD0ZNALBvzUX3JnhoJzQBeXLI0dg
ImVU8DaHg+bmuHr/fByBnL3OMz58XKTpfda4amAE9vod/e25kIvEKw8ffHJo
FFynd6Y4reMiES2RIsulYxBjvzqpR5GLlEA3j5Yfg+pinoSTSlzUZ7j18R2V
MdAOzXvhqMxFOy10xT0Mx4BR3xJqr8FFrlHX5kIvjEGwy4ZrVoiLktZ6vugp
GYPUtkV7jC25SNXWL1rt7DiMPJjK7bHiohWdaxuyPcZBFbep3rHmIv4OpKF1
cxySY5Kkio6QeB/N0MnQcXhzzOiPgSOx68eRZBiH2I6r/6LzXPTFUfzHYrEJ
eNbT81r7HhdNXL4QvTh6AuqfVqyou89FLqxE/+evJ0DKOD3wUhCJP2cZI/du
AkLib15Me8hF1IMrzybzJ+DRaWmk/oyLpA5RlkO/J+Be/4E65VdcFCr5QEtV
bhK8h3P51wIXNXmP19iETIKBqlBefD4XqcjtVsmMmATh82YeGwu5yLvluKbo
i0l4NPaHpfGVi4J3KrsFJk/Cq0mhH/qlXHRIcEeTaPEklM3uD7Ov56KYq6NT
05OT8HB7xIHOBi76865o4+vZSbC41inq1ET2e14n8x8eNrRzL3uf+8VFT070
C5ybz4ZxnkgH7w4uOn415aGOPBtWCHcrRw5z0VGzHNeuPWxoM97UIzPKRQor
rvEOmrEh9q5nzMsxLvJTM3nUZ84GFVFRicRJLmoZyCwvtmODnpjqVOYsF10+
ubFY9CIbnCS9CuuFGNRwaVy/8CkbPsqKWUrIMkg4BQVvaGLD3Td2fh/lGBQn
677fspUNNpqp6TarGZQzZZ3q+YcNjNEhyVgFBp1k7/WK7GOD0bnwKk1lBokM
ZZ0+PcOG+lyFvRbbGOT6QsFBfhkNCUaeV2Z0GBTLjcdv/0fDlaqSN1G6DEpL
VndRkaFBpstlXg9mUPCx/HoJBRpOzf9Q5GFE1t+zc52LBg20NdILO8SgvE8R
WTZ7aSjpDHbTtSDreRjYmO2jIcL1T/RvSwY9cx8c0jlAA7p5m7vehkHbQjYs
nbKk4U5CaXbWMQZl/TnjI+BAA/lSu8WVrG9xDl3zoIF1I+GEjxuDkjgiCV3/
0pAtOvtkzQUG+ZZ2xhhepcFOJmrc5RKDgqqb7Ad8aHi9q/Md5wqDdrgEKNTd
pWFziNsGmbsMynDXq5IPpyHnqWBqdgCDvk2WxzMRNODwSG2r+2S/NodZtf/R
sDv6m97DBwwS5NYXOT2n4WiCrBVfKIN6A2KbteNp6EjM+BX9lEFvbgZ31CfQ
4JS812F7GIPUT98KPZ9Iw/kPnq6XIhkkVjQg/SCZBt/cSt+eF+T+2lc/uZhG
w7z8kyK+sQy6qlL7symdhqDCuQeycQy6kBDDq/ORhmfFihGHE8j/qRfS7c6k
IbHKJ7U0hUEz+/MWsvJoUK2V2uyUyqDMM5q3l+XTkFaXlMP/gUG/IujVegU0
5DU3FOtmMMhNYHT22mcaqrtUW1NyGBSewWLFFdNg2VvksDePQYdGtbxjvtHQ
0mfL6gUGLexf7/m4hIauYf8Juc8M8i99m3WilIYzY6u88r4w6NUe7iLDMhqG
JtIY6yIG1X/3GJAup2Fqul3kSQmDzlxabpxTQcO1ucvBqqUMGp8tqb/xgwZe
Zr5UeRmDeAzThPQqaZjPv1VOsJJB7y/MOCZVkfwSe7jZs45Bhs5KvzbX0hAr
vi5XsoHkU1uGdimxokSufmojg2TeHzxt9ZMG9WUsk74WBln0xl+yr6Ph44rr
NX6t5DzKDI80E2+XXnJ4dTuD3q3M2WpWT8MueT1H2w4GWbPSBtY10FC6pp41
1ckgpdbuygBis3Vnz4V0M2iTzv6vPcS16/km1XoZ5GiTXbmjkYbDG8O8Klik
3pZ2Tz8gblXZRDn3Myix7J5RM/Fxta+3hQYZpHXMPl+2iYYeDRvR2CEGLdu7
yNme2EV7NBiPMAiHG5qGE18uYdkWjJLz0UiQLiW+YftHUX+c5JtS+wib+P5w
00ThBIO+Z+uVSzfTEHqzJt+AzSA5O9lPiDhmSdn9LzSD7n0pybAlToz/YmU4
zSCrZr8Kd+IMndw1RTMMqv4Zwe9PnF+RPrJrjtSTsvHRUOLvx5JzijnkfOOK
2qOJf07E+RszDHn+mTyMJR75vO+NI0Xh9S8WXPrrSwv2iq/lofDn3ZoP/8bP
WBhf7iLecYbVF0LsE7Oz5RUvhUe9zO7cIRbow/on+SjcYu3v/Hc/ARq68Qr8
FIZ9iZF/97vw2laxHuI1oj9kMPGTIi331wIU1k/mn1lFvEJcvemUIIXXVVip
TpPziD6sghWFKHzfo6a4gnjNS6W4XuJGdc+v0cRvBhTmJwhTeL7wLhUX4rTr
Mg3rRSg8nq5vTpP72Vryvx19xCvwYekM4rzFy2LfiFK4zdTJ0Y245JW424YF
FL79ROxWPbl/0+H5df3EXUvOOPr+zYct87YniVH4yaddDRuJW0t5hJXFKZxe
3xzgRvLLYQn37CBxxnutGlHi3qMzNW8XUfjtxYMFL0g+jo+ORatIUDhhYPD5
Z5K/njrDAsPET4JZ/5kQc337nVMkyfzpuAM1JN+Fl3VuVpWisIus9nRVDQ2B
x9r/GyHurnCc2E28OLGFL3UphbM2LMyGahqkd/z8obac3M/z47mRpJ7UHYtO
aayksK/JoNRaUn8f3xaWjxNHvWGGrpL63E7naaRJU/jRga0fK0n9GgV8ZDRl
KLzfSEnJhdS37bv4p9ryFPY7arH0IukHfnMBxVsVSbznvoEvhTQ8OnPPSWQ9
iZ8eV/1O+k1Uw715zcSft/LwlpJ+lJ52f8/VDRSWt15gB6RfdboE/chToTCf
dHHExSwaDH49rDfQIved7/xVLJWc955HnpLaFI7W19n/I4UG68xHy7uI51TG
c++R/nkh5LGN3xYK32L7m06R/vrCJKTtmw6Fva4rN8XE0UDlPesx0afwZIHG
jAbp5/M3hvmvMqCw3Hzh4bQwGpaFh60fJja9sF1S/RkNmy6HOwcbUnhl0Ayv
XAjp7yqRw9XGFKYsN9NVQTTkRkXTlvso7FH73cL3Bg1e1+OEjttS+KXoqc7d
jjR802ooXXOEwmtZl/uvHCfPq4F5wT3EdjetV72xJ/lndXbZWTuyn1DXJVxb
GobVNNd7Hif3J1Ib72tOg2Nnwe4gJ7I+J9h64S4a9v3zKzDLncLGq2Wm1NaS
/JaQlJQIpHCxuUWbdQsbygSc+Kr/2vew9VwjG9ynsseCgyh819W3OaKeDV9+
OVSJBVO49vHLmdpqNjjGfwgSeUzh50sKxzeVsOGV7sF5vGEUzp+XKnQvnQ0K
To+4I7EUtjnNGe6+z4b1ueKsihwKXxvWsfukzYYqf6nrYSMUdg1buDf69CRs
OuH6e0CWB38ZyPZwDZ8ANYcf/PvMeXA5y6c8KmUcAj1gJNufB1d6Fzzd8mUM
oiN5ElI/8WDJE6Zm4r2jYN6xVz5jgAcXZUvYJM2OQMG2vlMG0rxYUf2WyonV
I1D1Idi1bT8vThpK9ZC4PgQ6BkW6frfJ+IHZG8Y/BsCmw6QxPZ0XN9Y7lvft
6QeZV61aEyxe7NY1LVeeyYIwj4Kj2Sv4sEX/pe7Yg73gaq9hFribDy/vuhr2
h78Hus8k87p68+Gl42oGk4ldIOl35UZ9Mh8ufRilOejVCd2F+wv2dfDh9AVf
Pu3Q74DFUh9LqqX4cbW/i1O17B+Y+Nc1qnUXP355q3RoQu43eDEqmtNe/PjD
P29fmUu3Q0aIXmhkIj+WmCwZtHdrBRP9jvzdzfx4pOvGMttvLXBHPChJaKEA
Xis467hqaTN4DAc4miABnLy6c6YsvBFER4J/Pb8ogF9631VevbQBzHlY8tdj
BXDw6nL5ucI6mFGsVD1VK4C1NnzoqvD/CfoX8pkjwoJ4y5hZ+XHjWsBlvBG/
tghi8lpzy3xTDfwxMqWdzwriKh5XfrVF1dDaqLhS4Lkg1v2+2b9wXhUEXzVf
sK5KEKuM4jvJ8pXQje+BpYAQdjg3vVPXtQLGlkjsWKQthN2ffY6qqyyDwzxK
t3+eEMKO9N2FNQdKwUFsd2B8mBD+rMQ5UVFWAqs35hzj/y6ETe8m2zhd/gZ3
nDfTrlwhvO7dY6tdy4uBe8pE5xJx/rub/dLElx0drl8h/iWS7z1J3odPHnkg
5E+8tWRtXCzxrn09S58Tp9v+N8VLzK/xdEsNscb+7UkgVQw+M+x/NzNCeI5P
y3SrZDFMsefn6RInzA32iRO7jcvz7iR+v23yTq9EMdgNmAaYEW/xHSp8Sryj
NS78NPFpnfvb2YuLgVNgkR1BLPv24o4Pi4rBPc+FeU5slyLeHkA8kHXTIJ64
amD2xnHilg/JpWnETVK5RYuIc14JtpQTDy3pO+gmXgyaL1bK1hKbtU/RRsRJ
UeqOTcTN7eaRMsQRT48OdBPz35zpqlhYDIufuKsOEh+R078XRxwQHOA+Tnxo
ol7Vm5g3MObT9F/PZNeZE3vdzZhjiDPVh64qE/8fx4kcbA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.8, 0},
  PlotRange->{{1.8, 3}, {-1.4911237407553593`, 0.08923207204803951}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.415732005099584*^9, 3.415732067083259*^9, 3.415980213674733*^9, 
   3.416106855572304*^9, 3.4172073513898764`*^9, 3.4172074761230145`*^9, 
   3.4172106494122143`*^9, 3.4172276125882998`*^9, 3.417232624365*^9, 
   3.417232925392848*^9, 3.4172954434912767`*^9, 3.4172961376247826`*^9, 
   3.4173579370763707`*^9, 3.42049057907965*^9, 3.420490618154278*^9, 
   3.4204914071473236`*^9, 3.420491762654338*^9, 3.4204932994628615`*^9, 
   3.4204944612470856`*^9, 3.4204945358413715`*^9, 3.4204971224675856`*^9, 
   3.4204975223666615`*^9, 3.4205141022860975`*^9, {3.4205208558178234`*^9, 
   3.4205208714596915`*^9}, 3.4205496046999893`*^9, 3.4205537630735736`*^9, 
   3.4205634653878236`*^9, 3.4205637935566177`*^9, 3.4205706640518637`*^9, 
   3.4205762480724883`*^9, 3.420605039377294*^9, 3.42064334882588*^9, 
   3.420645082289336*^9, 3.4206455375157623`*^9, 3.420648872107664*^9, 
   3.4206521233129883`*^9, 3.420654094859294*^9, 3.420654244999196*^9, 
   3.4206545054332943`*^9, 3.420656404548338*^9, 3.420658053964292*^9, 
   3.4206587482949963`*^9, 3.420661894813964*^9, 3.4206681401952744`*^9, 
   3.4207308562806787`*^9, 3.420755844509562*^9, 3.4207730810052085`*^9, 
   3.4208154859190903`*^9, 3.4208196500206823`*^9, 3.4208228531487923`*^9, 
   3.4208256503694267`*^9, 3.4208280586162586`*^9, 3.42083318866829*^9, 
   3.4208342152535005`*^9, 3.4208358426386547`*^9, 3.420901381672285*^9, 
   3.420902867369353*^9, 3.420914706701245*^9, 3.4209851064436874`*^9, 
   3.4209911731852517`*^9, 3.4209940742710934`*^9, 3.4209953221356616`*^9, 
   3.4209957665970373`*^9, 3.421003445930337*^9, 3.421004306353245*^9, 
   3.421005003698163*^9, 3.421010385452085*^9, 3.421010526048645*^9, 
   3.421019535954879*^9, 3.421025990398467*^9, 3.421035179827046*^9, 
   3.42103833775196*^9, 3.421038647995694*^9, 3.421076646626667*^9, 
   3.421076908783173*^9, 3.4210845741196413`*^9, 3.421091539928139*^9, 
   3.4210972504717236`*^9, 3.421101233119635*^9, 3.421101739016901*^9, 
   3.421102845633999*^9, 3.421103113258149*^9, 3.421104058329399*^9, 
   3.421104864866973*^9, 3.4211064476097155`*^9, 3.4211097533212414`*^9, 
   3.421117504207311*^9, 3.4211217823483353`*^9, 3.421122942690543*^9, 
   3.4211623715156*^9, 3.421163436965144*^9, 3.4211663997872963`*^9, 
   3.42117222023453*^9, 3.421173881346836*^9, 3.421174575957932*^9, 
   3.421174855959386*^9, 3.4211782656062183`*^9, 3.421179356731658*^9, 
   3.42118063870391*^9, 3.42118088059208*^9, 3.421184547198152*^9, 
   3.421185366303296*^9, 3.421205019440672*^9, 3.421210368629066*^9, 
   3.4212521257134924`*^9, 3.4212543070230565`*^9, 3.421260916758195*^9, 
   3.421263559232487*^9, 3.421266489519153*^9, 3.421273381419306*^9, 
   3.421274926955431*^9, 3.421275127376137*^9, 3.421275215759797*^9, 
   3.421275614774235*^9, 3.4212758016297207`*^9, 3.421275853960207*^9, 
   3.4212819643473253`*^9, 3.4212822946929693`*^9, 3.421282389021771*^9, 
   3.4212949911324244`*^9, 3.421296109606422*^9, 3.421296192675952*^9, 
   3.421297673335764*^9, 3.421297887074741*^9, 3.42129792665977*^9, 
   3.4212990223673973`*^9, 3.421299124156987*^9, 3.421299177325471*^9, 
   3.421299254099555*^9, 3.421328451247978*^9, 3.421329181205467*^9, 
   3.421329262890772*^9, 3.4213337378402843`*^9, 3.4213343461683283`*^9, 
   3.42133443473991*^9, 3.421337574302471*^9, 3.421337847192175*^9, 
   3.42133792831105*^9, 3.421344038796801*^9, 3.421344181624642*^9, 
   3.421361915842307*^9, 3.421362036737433*^9, 3.421362091323599*^9, 
   3.421362142520406*^9, 3.42144685270573*^9, 3.4214492825630198`*^9, 
   3.421449485825856*^9, 3.421450813910816*^9, 3.4214511202991605`*^9, 
   3.42145285792844*^9, 3.421454083802264*^9, 3.421458389776557*^9, 
   3.4214585119173145`*^9, 3.421537979088929*^9, 3.421538083589031*^9, 
   3.421538121596274*^9, 3.42153816312969*^9, 3.42153834747647*^9, 
   3.4215500443823442`*^9, 3.4215560533404016`*^9, 3.4215561661197653`*^9, 
   3.421556279392838*^9, 3.4215893088341665`*^9, 3.4215946844995766`*^9, 
   3.421594757171174*^9, 3.4216269436972556`*^9, 3.422132041810042*^9, 
   3.4227586783277464`*^9, 3.422812268509405*^9, 3.422812591317486*^9, 
   3.4228195909434605`*^9, 3.4228196310791717`*^9, 3.422820049690233*^9, 
   3.4228382360432444`*^9, 3.4228449300657034`*^9, 3.422847466276143*^9, 
   3.422978332612311*^9, 3.4233684572076426`*^9, 3.4234261673653183`*^9, 
   3.423426249720454*^9, 3.4234291734993052`*^9, 3.423429247412639*^9, 
   3.4234307116597195`*^9, 3.423452008964261*^9, 3.423453432083843*^9, 
   3.423489319378035*^9, 3.423491443928247*^9, 3.423506950988123*^9, 
   3.4235070847751627`*^9, 3.4235073805086107`*^9, 3.423510419867765*^9, 
   3.4235121612122393`*^9, 3.423513508585925*^9, 3.423516601620119*^9, 
   3.4235182675892153`*^9, 3.423538898752646*^9, 3.423539697082286*^9, 
   3.423539776625113*^9, 3.423539844776367*^9, 3.423574507164337*^9, 
   3.423576650815064*^9, 3.4235769816632423`*^9, 3.423578729535583*^9, 
   3.4235828162710953`*^9, 3.4235894702068653`*^9, 3.4235909272166348`*^9, 
   3.423591231501749*^9, 3.423591568256312*^9, 3.423592476280568*^9, 
   3.423592644622011*^9, 3.4235948424574757`*^9, 3.423598440890087*^9, 
   3.423599367162537*^9, 3.423604822832308*^9, 3.423605214508131*^9, 
   3.423606763289002*^9, 3.4236068365975723`*^9, 3.4236069108253317`*^9, 
   3.423607133458889*^9, 3.423621387928924*^9, 3.4236215501671553`*^9, 
   3.423621805441942*^9, 3.4236218890399227`*^9, 3.4236244257624807`*^9, 
   3.4238867531963654`*^9, 3.423925366833126*^9, 3.4239455562988625`*^9, 
   3.423969325959864*^9, 3.423969930865548*^9, 3.423970313570586*^9, 
   3.423970507381542*^9, 3.4239718136474237`*^9, 3.423972062227894*^9, 
   3.4239721158390903`*^9, 3.423972160844267*^9, 3.423972226324685*^9, 
   3.424010831023436*^9, 3.424010900905908*^9, 3.424010972847896*^9, 
   3.424011040823361*^9, 3.4240110997689667`*^9, 3.424011160561534*^9, 
   3.424023481378276*^9, 3.424056534612561*^9, 3.4241290110543013`*^9, 
   3.424466626882654*^9, {3.424468218427702*^9, 3.42446824693756*^9}, 
   3.4244712294201*^9, 3.4244725297657223`*^9, 3.424472604112914*^9, 
   3.424472712316156*^9, {3.4244727630440493`*^9, 3.424472831369308*^9}, 
   3.424473446082038*^9, 3.424473511954399*^9, 3.424473997959775*^9, 
   3.424474043444851*^9, {3.4244740929299173`*^9, 3.424474110892952*^9}, {
   3.424474143449956*^9, 3.4244741679982853`*^9}, 3.424628966479741*^9, 
   3.424632273643297*^9, 3.427215364014247*^9, 3.427217474244439*^9, 
   3.42734009887162*^9, 3.427340152718041*^9, 3.427340201401532*^9, 
   3.427340246472836*^9, 3.427340284562538*^9, 3.427340335322093*^9, 
   3.4276856717143097`*^9, 3.4276857064628897`*^9, 3.427724054991498*^9, 
   3.4277241930344877`*^9, 3.427724229144972*^9, 3.427726521660006*^9, 
   3.427741127149104*^9, 3.4277420291301117`*^9, 3.427748207708028*^9, 
   3.427758084152983*^9, 3.427768114736167*^9, 3.427770816683605*^9, 
   3.4277736256206193`*^9, 3.427814442846125*^9, 3.4278146196633234`*^9, 
   3.427897737639732*^9, 3.427898088780642*^9, 3.427898263484886*^9, 
   3.427898688679326*^9, 3.427899997298832*^9, 3.427900136984118*^9, 
   3.427900276489152*^9, 3.427901505116826*^9, 3.42790159590375*^9, 
   3.427901800820232*^9, 3.427903198674492*^9, 3.4279038655367937`*^9, 
   3.4279039518274317`*^9, 3.4279040667280684`*^9, 3.427904271904914*^9, 
   3.427908603440586*^9, 3.4279086807286377`*^9, 3.4279089455688963`*^9, 
   3.427909043585928*^9, 3.4279093610797977`*^9, 3.4279136356958942`*^9, 
   3.427989825629509*^9, 3.427989929154241*^9, 3.4279902814667892`*^9, 
   3.427990956370333*^9, 3.427996176210739*^9, {3.427996219813574*^9, 
   3.427996319363772*^9}, 3.4279998758354273`*^9, 3.4280006269862127`*^9, {
   3.428000688451742*^9, 3.428000795379725*^9}, 3.4280322140967207`*^9, 
   3.4280721017937317`*^9, 3.4280738145582495`*^9, 3.4280756846827636`*^9, 
   3.4280762775186243`*^9, 3.42807639570636*^9, {3.428076425947802*^9, 
   3.428076445893179*^9}, 3.4280764785819263`*^9, 3.4280765131029263`*^9, 
   3.428084145885503*^9, 3.428085568055718*^9, 3.4280870190452433`*^9, 
   3.4280878510031137`*^9, 3.428092077140374*^9, 3.4280974195993605`*^9, 
   3.4281544810783577`*^9, 3.428155132529114*^9, 3.4282934063885*^9, 
   3.428293591796852*^9, {3.428293691855298*^9, 3.4282937937664824`*^9}, 
   3.428418694653549*^9, 3.428450587740762*^9, 3.4284996727209253`*^9, 
   3.4285494325979548`*^9, 3.4285990959066486`*^9, 3.428625183060256*^9, {
   3.428625262769965*^9, 3.428625399202271*^9}, 3.428703010633046*^9, 
   3.429451304015909*^9, 3.429451369057131*^9, {3.4294514093944674`*^9, 
   3.429451432221287*^9}, 3.429456718311839*^9, 3.429796525851986*^9, 
   3.4297965925552397`*^9, 3.4298964368787885`*^9, 3.4298967825520544`*^9, 
   3.429969425566671*^9, 3.43007376029792*^9, 3.430601018891961*^9, 
   3.430664618439492*^9, 3.4306652489009037`*^9, 3.43066578684297*^9, 
   3.430666133717916*^9, 3.430667151931422*^9, 3.430670338746726*^9, 
   3.43067074908039*^9, 3.4306804989534383`*^9, 3.4306914710729303`*^9, 
   3.430705348303892*^9, 3.4307054148669505`*^9, 3.4307068327795925`*^9, 
   3.4307085939517865`*^9, 3.4307118530825367`*^9, 3.430712107101138*^9, 
   3.4307121828505096`*^9, 3.430712222984108*^9, {3.4307122713819933`*^9, 
   3.4307123268754463`*^9}, 3.4311287259809437`*^9, {3.431128854765725*^9, 
   3.43112887590903*^9}, {3.431129067973144*^9, 3.4311290949836807`*^9}, 
   3.431129160901572*^9, 3.431129323704709*^9, 3.431132583169313*^9, 
   3.431132664365222*^9, 3.4311337832325077`*^9, 3.4311339221697903`*^9, 
   3.431134246311805*^9, 3.431134288860548*^9, 3.431134322830756*^9, 
   3.431135174065365*^9, 3.431135240500548*^9, 3.431135324571417*^9, 
   3.431136496074027*^9, 3.431136534088254*^9, 3.431146269401642*^9, 
   3.431146555492837*^9, 3.4311472528743*^9, 3.43114730407524*^9, 
   3.4312860933545313`*^9, 3.431287723293256*^9, 3.431292585861334*^9, 
   3.4312932387541056`*^9, 3.4312942079490814`*^9, 3.4320415642605457`*^9, 
   3.432756660036324*^9, 3.4327567804646883`*^9, 3.4327569315759478`*^9, 
   3.4327573779099417`*^9, 3.4327711536072445`*^9, 3.4328195853669147`*^9, 
   3.432819667712036*^9, 3.432827766674732*^9, 3.4328291274771924`*^9, 
   3.4328293781075845`*^9, 3.4328428113077726`*^9, 3.4328429117481923`*^9, 
   3.4328534001113725`*^9, 3.4328566635538044`*^9, 3.4329186893627157`*^9, 
   3.433016416352209*^9, 3.433018024430371*^9, 3.433018189441063*^9, 
   3.4330211972260747`*^9, 3.433021967402815*^9, 3.433042814894822*^9, 
   3.43304713495445*^9, 3.433047745217624*^9, 3.433080949323681*^9, 
   3.433081775678961*^9, 3.433094763095925*^9, 3.433095228837051*^9, 
   3.433096701415779*^9, 3.434503732767951*^9, 3.4345042997806587`*^9, 
   3.434504841397863*^9, 3.4347577405877604`*^9, 3.434779468876953*^9, 
   3.434780348307665*^9, 3.434780509511427*^9, 3.434780693246464*^9, 
   3.4348068909331017`*^9, 3.434807357260397*^9, 3.4348074298211164`*^9, 
   3.4348074832052174`*^9, 3.434809156093696*^9, 3.434809444941984*^9, {
   3.4348095117743273`*^9, 3.434809614507354*^9}, 3.4348110378032827`*^9, 
   3.4348376419739933`*^9, 3.435287935448472*^9, 3.4352882414432144`*^9, 
   3.4352882950776625`*^9, {3.435289268188409*^9, 3.4352892890373487`*^9}, 
   3.435724578146355*^9, 3.4357247991331005`*^9, 3.4453771407168846`*^9, 
   3.4453773099268227`*^9, 3.4453775034111805`*^9, 3.445377545991559*^9, 
   3.4453786439484468`*^9, 3.445378895254796*^9, 3.445379958502467*^9, 
   3.4454534695735893`*^9, 3.446246386726879*^9, 3.446246535395829*^9, 
   3.4470117471538444`*^9, 3.447257783979579*^9, 3.4474715316902566`*^9, 
   3.4474719245473223`*^9, 3.4474726831930723`*^9, 3.4474740344992056`*^9, 
   3.447474565301877*^9, 3.447476244753316*^9, 3.4475564319080667`*^9, 
   3.4475598392435985`*^9, 3.447644741687336*^9, 3.4477290269340987`*^9, 
   3.447729110994133*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ljXFunc", "[", 
    RowBox[{
    "stemID", ",", "curPosx", ",", "0", ",", "1", ",", "stemID", ",", "0", 
     ",", "0", ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"curPosx", ",", "1.8", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4204967690134416`*^9, 3.4204968205454855`*^9}, {
  3.420657935809106*^9, 3.420657971308736*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k4VV8XB/BjHpJkKhqoJF4ZMlZkbxSSqWSe7j0oRVJKMmRIREgDmaJB
fmguaRAtKhERCZlFpImiktx73t1f9/k8z7nnnr3XWt99zzJ67zY/XoqixHko
6t/nu4febxobZ5HYMtb5G53LcG1TWqVt0ywK+3A6UmulIr4zVPnf6+ZZZFkZ
1rZgdDFOnrs4sq11FtmrZm46pSaLjdidSj2ds2ihptp4MfDgC8JbQz8Pz6Ip
VduqJpH54O9sKifKmUU2fsLZvelasD1wH18KdxYtcZKJzbVdAyaxF77OpTgo
+9CDvQlztEH+Krd6Ph8HVQ+m7R6J04FG7qPdciIctPviy6mhnfqgWaTzWEWG
gyK1GmUi5xjBryklbwt1DpLkWLfIeZvBxDaPJ2MaHLR5MNZg1wMzGLt1RiFF
i4MEV2/Rt5q/EXoCeQde63BQlv30/ZrqjVAz3M9yW89B5hUVjdlLzOFkWw69
x4KDWFpDI8bVlqBSJrHjDJuDrh3O+bSxwgaWS1rW6vlwkLiV6scMIVtYFByt
3OnLQc+eip845mAL4qu/jSz25yAtXw9L00+2MHW5YWdREAd5HHJSzBexh+oz
CbseRnAQr+e16RrVreAWMhvYn8FBZvl5oxwLB3jHzpTacY6D1MOkLS12OICL
vdajL1kcNDOSZRwQ7wDO6r5CM7kcpP39Y7gZOMD20YaL0pc46H3LaYF1+tvB
1j23ffMNDrJx77zktMgRTM3W47JaDuLRW1pk0eAE1WvaRtbXcdDf1Lz2lR+c
ACsGpVbXc5B8pFnDe64TIM7FrqZGDmozEoj+s8YZjO6LHBxr5SBRw58R5zOd
QV/tXcnSfrIf0wsau1xdQE0qTCrpN6nf/m9KnDpX8Ap3khD+w0HK7rEfY/pc
IX1Qd27iDAclGPrZf5x0hamb3wWPcTjIKmDpIXqpGzy2DpiJ4eOiNTJqPEL7
3cA6wWswbB4XyTka1aySdoegPxtv+q/iooEfe1ce3ugBF1grro2qcNGdcCx3
2ckDWl/wlOz4HxcZR4m03/X3AP3Mqku+6lz0st1bJDnFAxjttZksHS5KsYj/
NOeNB6QHqkW5IC7qfdT99bC7J9zun7/F0pmL5kyYJJ1384KJk9OVoy5ctEu3
IlYmwAu0cL9WohsXlbdKKYZEeMGNC9dkaz25aIvwnUf9uV5QyrZ4b+bLRWp5
S11iu72gcCjyMNrHRfvPJ/lwHL0ha3T0P/0TXDQeeCrFfDELOs41ybencJGH
ba32r+UskLW8l3owjYu22m3clKPKgoziuJCyU1z0IFGx/4k+C07vWoK0s7jo
tsm0Tpw9C0583taufoWLZOo6Sr7GsuDIeCX/yidcJG+YWXmzhwVmWkJVxcBF
X8ZUrxUPskB4n/2h1TVcZGr0FbJGyP1+vB/Tec5F6Z6Xo70mWHDlp1CzaQMX
/TgQYxrLx4bGv1uzWR1c5FkSaaWmwoZTRrnbhjtJfdb/zclZzQanqOE5/l1c
NBhcnsWzhg0D3NAje3vJekYLHpevY8MkT57PkSEuUpdrSaqyYoO88Ih63jgX
1S89arwlgA39lpqjCt+5KOjxd9V1e9lQmBR24fIPsj5ba1OFEDZozJkjdfUn
F4mZPFzYFs4GE3Gt6Yd/iW/l6AwmscFfOrymQ4hB83Vtn50sYsN9RXFnKUUG
VcFt4f1dbEgq9U64v4xBcQ8vGZT1ssFd9/Y99xUMcpA8afVtgA2MxXbpQmUG
xSimIKtRNljszWnRVWfQtEiO26VJNnRUKls7rWfQiEZob5coDSUWYREzhgya
EIx3K5hLQ0RLfWn+BgZFZSVu9JCgQeFDoMgoZtBa67SYJzI07BS7W3vIgkEf
3a4fWa1Iw283ZJK9nUHbi+tL/tOhoX44PXiDE4PC7lm/+KVHQ27Q+4JBZwYt
OFrSaryWBhR3jKvqzqAMMfnWh0Y0JJY0VDxiM2hZrIO1xyYaFkw76/cEkef/
m/bO1ZGGsdgSv5hgBmlkSgQaOtNQMefvWaX9DGKq7vjJutLgrZA/GXiQQdFT
pVcfeNDwn/nwLU4Eg9KVFtve9KHBICNYTSGJfH9FhE5AMA2PzwnerkhmEP/H
gYr+fTTgnDx9lxQGZTXbONmG0GBVUGdy6iSDDla5dMuF0uBVoujCl8mgYylZ
3bsjaBi6Wt5bcI5BMiN1JbciafC/Ye1jlM0gzdLMyokoGvbdDQs6mMegihlW
s3cMDfGVr+NHLzFIUOjxlpl4GkRgh2h8IYO2Ppv7WzKBhrSa2ZOKRQxix8+V
V06kIeuFSq5rCYN2Kt7oN0yi4WpLzO2Gmwyac8taWjmVBq02WQP/2+T6SQkV
qTQaytqvPea/y6Dn++SGZ4irujtfbChnELZuC3yUTkPrB62+m48ZVJxZtWPm
DA3OH2t9rKsYlKyUQ1eepaHnk8fYxycMKnwyoBeRQcOH8eNTy54yiPdFx+HR
TBp2/1gaXvWMQXJXxX9lnKPh21QZ41ZL6ptZyUJZNEz/GRA9W0/WO+Sw8Gg2
DVGzoelaDQxqb8wIXpJDAy8jJvuqkUFjb/mb7hCL8a9bJviaQbklQzeackl/
iZ8yCGtnUNOK+sKG8zQUSqyqlO5kUGNfVY1xPg0qUpWmt98xSMVns+R1Yu2F
Yzafehh09Odn94gCGu7LR79J6GPQ98Q+Vjex0RIZ1xUDDNr9S/66/gUazJeb
+HoMMcjW6atWP3GDUsfY9DCDTnnqhqy+SIP9qj17M0YYtCF0leRB4jZVvp9r
PjJoh7ek1ENi19XZ4U1jDAqvMYyYJu7T0KQCPpP5Mfhgp3OJBnrN82NCX8nv
b9mSuYt4VMd9TuE3BoUcveKQSxyo/z0dT5B5ZSmn1hGH1o95VH9nUKbW6pvf
iGM93quYTjLoraLmF4nLNKSMd03VTDGo3M3dUpM4M+4NmP1i0Dardy82E1+Q
aUx59ptBqRdfBbGIrxY/c9n0h0Ge7q4mIcTlhpVKtTMMEnuSbRZHDE33Jsxn
Sb18ig+nEr9k33j8gsOgjdq5o2eJ304VHbdkGCQaEH8qi3jiqV2pL0XhW0X7
I/754FxriZU8FPbvCi75d/2Mk2XoB2LKPUHh3/1iLmzsucJLYbGB8sFYYoFP
2HQHH4VnE3in9hMn62woVuansE27n9u/550XtU58lLgM3i20Ij5bq3fgPwEK
KxU76GgRy0tod+0UpLA4+/l1SeICVw2sIkRhP70lKd/Jfild/l/RR+JHo5ta
G4lLvyiLlQhTeHO5cnwhcVm0QqeqKIWVl+at30y8rn6R8Sdi6UdfzWWJqyQX
FpbOoXB+1L6mflLP+isSwWpzKSzs6+PlT2w7Ltb+mXjR4P6gVf/6Ya2I0TVx
Cuvi38JDpH/6GniE1SUofAwivtgR+8hw93wlzp/k2cBD/NFr5s31+RT21hZZ
dZP04+T3HwUaUhQeHohtp4jDDMcFxomnwrwuF5J+5sZ/DrgpTWHZkNMLNxEL
Lxw20JKl8PbNd0QjyTyksgfOTxAXVn9LkySWvNrDd3sBhVW7Vry8kkfDEuO3
zWvkKMwS/xlSQ+ZJ27d2p85iCp/0HfvTRubx/vWaV5PEWyrv52wlNvpdpVO2
hMJxdUrzGsj8WiTfZ3QVKHxf6HtMGZlvj1vF5/SXU/jdYcNPbJIHCbPJL9ap
UFhbNr9TleTJ6d0n/EVVKfwix/iX30ka8jtPiHQTK/5Mz84n+XOvLGVLpBqF
A4JM4wRIXg0HpjVXaVC4NO3u1lKSZ2a9pzrM9Mh+ahglO8SR/d5yOkxan/SP
dehv11ga3B6elvtAfG/Wb7Unyc/9GWfcE9ZSOJNy57geoeGSTUZ/nSGFz50I
KVUPp4Gqyhq1MaVw4t6wXEzyXGx19vGlZhQO31zlJkPyfmFOtuo4sc26ZoXR
IBo0Q3MC0jdRWPCJw8vYQJLvGnnjrZYUnjZcIXJ2Jw2V+QW/ne0ozDnY5KPp
SUN4dJEQ7UHhBbHBcW7mNNTpdTYoeVJ45chU88RGcl59EUkfJe66Vz4ab0b6
z2XPwj3eFB73q4opwjSMr9FVDaMpHF/84XLzehp8h6ut0vwpLGBeza3QoMFu
c2/qowMUTnfoFJlHzlclKWlpqVQK84VEcJV7yP8VAX++VuKK8QxlG3L+H5iu
+JGeRmH30Oin+zrZ8KzXp0U8ncJHGpp9ytvY4Ft8N030DIVHLuwNVX/Fhisb
HER4s0l/2vHmt1WyQdn/NHeikMJ2M1EB0vlsUK2UGGt6TGH5NztEwY0NLcdl
o7MnKNynGRgS/4gFmn5Bg18UefCf18k2RQtZsManmd/OkQfb75Fb5l/jBamH
nkxUHOfBK52W7sna5gkFeTwltx/w4PGo8KjsGXdwHLJeXv6FB/u9tbXdkOQG
1es/7TRbwou9uNcW2hq4Qsvd9KD+rbw4lPeonsUbZzA0q92QcIwXa7qkXJmI
dQL3IZt39+7x4kt1ocF2Do6gcKVPb2qMF2PDE6Yqctsh+1C1V4U8H+5WEGtz
4XGAIJaOfaoVH549PSbU8ncrjOy+wRt0hA9/EojOc/5mD9IJEbEdN/jw6OCi
rSKUPYzUbK22G+LDAY53qLgFtiApe7++VZYf12WoPrV0sIapw0H5feb8+CZn
yT3x51YQzmjo/gnnxypP+1rfqm+G8gyTzLyr/PjQi+cPG15YgI3pEFh18+PC
iJWTiZHmkCiRdk1ongB+tXi4at7/NsGh8WRfGySABwx5lSaojTBnIr33YogA
Ht99JkKq1RQcecaWRxcK4Dozrb/b60xgRuW11s42AVz9J+TyYCsG0/3AeAoL
4rDwJpb8bQS4kTe3d60gXnReIP/nnw3w3sL2d8AeQdzx/nNmz3oj6Hunsljg
oiBm1DqmUMF6SI90nLuqRRB3hjne1dJfByP4xBNnASEs0P++V6HWAH7ISBnP
1xfCi5qFr606qg+uPP879tZPCJvXrxguc9EDH3Gr1OJsIexffx3xqOjCitWP
2fwvhfAm9wuJsYt1IDHA4HcQVwjns3V+VpH3Xe5OG8ODxLLyXO8C4lBfn+gI
4ihhwYZo4h2eJ4WOE+sde3URE5vbjS64SLxnYv22GlFt4Nc5t/YNcbDCyarn
ItoQM/PrsAEjhJcEyD1vFNKG6V9iVRuIfb8mGVwnDp5czruRuDvDoDSV2PuL
bbI9sbWzVbotsXFfUc4u4t1pNt6vBbWBU+1UkUts4v1SuE1AGw5UBTIXiXlF
5kaXEX95FGdWTMzXkvLzLHHP3RsNZcRdD82GHIkfXxHseUW8fDCtuoNfG3Qv
LVZsIzbe+2jdA+Jr+dq+XcRXF6y4k0Wce87rywjxmXtXL7sSS549oPWVeH5p
w+L1xMnpyQcmid+Xq2TKE/OmXnjwh/h0d828v3zaEJ5UPssQX1yQk9RN/H+Q
Wk2p
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.8, 0},
  PlotRange->{{1.8, 3}, {-149.1123740755359, 8.923207204803951}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4204967823621035`*^9, 3.4204968207557793`*^9}, {
   3.4204971256520376`*^9, 3.4204971674204316`*^9}, 3.42049752243676*^9, 
   3.4205141023361673`*^9, {3.4205208558678937`*^9, 3.420520871509762*^9}, 
   3.4205496047400455`*^9, 3.4205537631336575`*^9, 3.420563465437894*^9, 
   3.4205637936167016`*^9, 3.4205706641319757`*^9, 3.4205762481225586`*^9, 
   3.420605039437378*^9, 3.42064334887595*^9, 3.42064508234942*^9, 
   3.420645537565832*^9, 3.420648872157734*^9, 3.420652123353044*^9, 
   3.420654094939406*^9, 3.4206542450392523`*^9, 3.420654505533434*^9, 
   3.42065640477866*^9, {3.420657956958674*^9, 3.420657971629184*^9}, 
   3.4206580097925377`*^9, 3.42065805403439*^9, 3.420658748365094*^9, 
   3.420661894884062*^9, 3.4206681402653723`*^9, 3.420730856340762*^9, 
   3.4207558445596323`*^9, 3.4207730810552783`*^9, 3.4208154859791746`*^9, 
   3.420819650070752*^9, 3.420822853198862*^9, 3.4208256504194965`*^9, 
   3.4208280586663284`*^9, 3.4208331887183604`*^9, 3.420834215293556*^9, 
   3.4208358426887245`*^9, 3.420901381722355*^9, 3.420902867419423*^9, 
   3.420914706751315*^9, 3.4209851064937572`*^9, 3.4209911733554897`*^9, 
   3.4209940743211637`*^9, 3.420995322185732*^9, 3.4209957666671357`*^9, 
   3.4210034459804068`*^9, 3.421004306413329*^9, 3.421005003808317*^9, 
   3.421010385512169*^9, 3.421010526108729*^9, 3.421019536004949*^9, 
   3.421025990448537*^9, 3.42103517988713*^9, 3.421038337812044*^9, 
   3.4210386481659317`*^9, 3.4210766466867514`*^9, 3.421076908873299*^9, 
   3.421084574169711*^9, 3.4210915399782095`*^9, 3.4210972505217934`*^9, 
   3.4211012331697054`*^9, 3.4211017390669713`*^9, 3.421102845684069*^9, 
   3.421103113308219*^9, 3.4211040583894835`*^9, 3.421104864917043*^9, 
   3.4211064477398973`*^9, 3.4211097534113674`*^9, 3.4211175042573814`*^9, 
   3.421121782398405*^9, 3.4211229427506275`*^9, 3.421162371575684*^9, 
   3.421163437015214*^9, 3.421166399837366*^9, 3.4211722203647118`*^9, 
   3.42117388140692*^9, 3.4211745760080023`*^9, 3.42117485601947*^9, 
   3.421178265646274*^9, 3.421179356781728*^9, 3.421180638774008*^9, 
   3.421180880662178*^9, 3.421184547258236*^9, 3.42118536636338*^9, 
   3.42120501951077*^9, 3.421210368759248*^9, 3.4212521257735767`*^9, 
   3.4212543070831404`*^9, 3.421260916808265*^9, 3.421263559292571*^9, 
   3.4212664895892515`*^9, 3.421273382141872*^9, 3.4212749269972973`*^9, 
   3.421275127429017*^9, 3.421275215839679*^9, 3.421275615160952*^9, 
   3.421275801675502*^9, 3.421275854012278*^9, 3.421281964759671*^9, 
   3.421282295230159*^9, 3.421282389064148*^9, 3.4212949911525583`*^9, 
   3.4212961096337147`*^9, 3.421296192703658*^9, 3.4212976733757277`*^9, 
   3.421297887110547*^9, 3.4212979268171883`*^9, 3.421299022400641*^9, 
   3.421299124214357*^9, 3.421299177372508*^9, 3.421299254257609*^9, 
   3.421328451286084*^9, 3.4213291817579527`*^9, 3.421329262932184*^9, 
   3.421333737871812*^9, 3.42133434620457*^9, 3.421334434776533*^9, 
   3.42133757433606*^9, 3.421337847230753*^9, 3.421337928344511*^9, 
   3.421344038833783*^9, 3.421344181660705*^9, 3.421361915874632*^9, 
   3.421362036772681*^9, 3.42136209135647*^9, 3.421362142552853*^9, 
   3.421446852725361*^9, 3.421449282591316*^9, 3.421449485854348*^9, 
   3.4214508139608865`*^9, 3.4214511203492303`*^9, 3.4214528579885244`*^9, 
   3.4214540839925303`*^9, 3.4214583898566685`*^9, 3.421458511967385*^9, 
   3.421537979117414*^9, 3.421538083619673*^9, 3.4215381216293297`*^9, 
   3.4215381631753893`*^9, 3.42153834751563*^9, 3.421550044423089*^9, 
   3.421556053372355*^9, 3.4215561661515913`*^9, 3.421556279566126*^9, 
   3.4215893089042645`*^9, 3.4215946845696745`*^9, 3.4215947572212443`*^9, 
   3.421626943737317*^9, 3.422132041860112*^9, 3.42275867838783*^9, 
   3.422812268579502*^9, 3.422812591397597*^9, 3.422819591003544*^9, 
   3.4228196311392555`*^9, 3.4228200497703447`*^9, 3.4228382361033278`*^9, 
   3.422844930145815*^9, 3.42284746634624*^9, 3.4229783326523666`*^9, 
   3.4233684572577124`*^9, 3.423426167415388*^9, 3.423426249790552*^9, 
   3.423429173559389*^9, 3.4234292474827375`*^9, 3.4234307117899013`*^9, 
   3.423452009014331*^9, 3.423453432143927*^9, 3.423489319438119*^9, 
   3.4234914439783173`*^9, 3.423506951058221*^9, 3.423507084945401*^9, 
   3.423507380568695*^9, 3.423510419927849*^9, 3.423512161332407*^9, 
   3.423513508646009*^9, 3.423516601680203*^9, 3.423518267669327*^9, 
   3.423538898772688*^9, 3.423539697133637*^9, 3.423539776678494*^9, 
   3.423539844835096*^9, 3.4235745072152157`*^9, 3.423576650863912*^9, 
   3.423576981711409*^9, 3.423578729588434*^9, 3.4235828163005342`*^9, 
   3.423589470256892*^9, 3.423590927265332*^9, 3.4235912315549307`*^9, 
   3.423591568316249*^9, 3.423592476325513*^9, 3.4235926447104473`*^9, 
   3.423594842502973*^9, 3.423598440942205*^9, 3.423599367207903*^9, 
   3.423604822893949*^9, 3.423605214578548*^9, 3.4236067633278227`*^9, 
   3.4236068366455603`*^9, 3.423606910870269*^9, 3.4236071335404053`*^9, 
   3.423621387975788*^9, 3.42362155021521*^9, 3.423621805488079*^9, 
   3.423621889087894*^9, 3.423624425807744*^9, 3.4238867532464356`*^9, 
   3.4239253668932104`*^9, 3.423945556358946*^9, 3.423969326019948*^9, 
   3.423969930965688*^9, 3.423970313620656*^9, 3.42397050745164*^9, 
   3.423971813687406*^9, 3.4239720622935057`*^9, 3.4239721158862333`*^9, 
   3.423972160888793*^9, 3.4239722263765574`*^9, 3.424010831073498*^9, 
   3.42401090095009*^9, 3.424010972888565*^9, 3.424011040877969*^9, 
   3.42401109984836*^9, 3.4240111606468287`*^9, 3.424023481963722*^9, 
   3.4240565347026873`*^9, 3.4241290112145257`*^9, 3.424466626932724*^9, {
   3.4244682184877863`*^9, 3.4244682470376997`*^9}, 3.424471229437572*^9, 
   3.424472529821134*^9, 3.424472604137328*^9, 3.4244727123451242`*^9, {
   3.42447276306651*^9, 3.424472831406064*^9}, 3.424473446126266*^9, 
   3.4244735119950323`*^9, 3.424473997979762*^9, 3.42447404346338*^9, {
   3.4244740929500027`*^9, 3.424474110915111*^9}, {3.424474143476568*^9, 
   3.424474168024762*^9}, 3.424628966529811*^9, 3.4246322736833534`*^9, 
   3.427215364054303*^9, 3.427217474324551*^9, 3.427340098892455*^9, 
   3.4273401527367373`*^9, 3.427340201422117*^9, 3.427340246493936*^9, 
   3.427340284585773*^9, 3.427340335349759*^9, 3.4276856717643795`*^9, 
   3.4276857065229735`*^9, 3.427724055041568*^9, 3.427724193084558*^9, 
   3.427724229185028*^9, 3.42772652172009*^9, 3.427741127209188*^9, 
   3.427742029260294*^9, 3.42774820783821*^9, 3.427758084213067*^9, 
   3.4277681147862372`*^9, 3.4277708167236614`*^9, 3.427773625660675*^9, 
   3.4278144428961954`*^9, 3.427814619713393*^9, 3.427897737679788*^9, 
   3.4278980888307123`*^9, 3.427898263534956*^9, 3.42789868873941*^9, 
   3.4278999973589163`*^9, 3.4279001370341883`*^9, 3.4279002765492363`*^9, 
   3.427901505186924*^9, 3.427901595963834*^9, 3.427901800870302*^9, 
   3.4279031987245617`*^9, 3.427903865586864*^9, 3.42790395349977*^9, 
   3.4279040667881517`*^9, 3.427904271975012*^9, 3.427908603520698*^9, 
   3.427908680838792*^9, 3.427908945638994*^9, 3.427909043635998*^9, 
   3.42790936115991*^9, 3.427913635765992*^9, 3.4279898256895933`*^9, 
   3.427989929214325*^9, 3.427990281526873*^9, 3.4279909564204035`*^9, 
   3.427996176230844*^9, {3.427996219833303*^9, 3.4279963193924303`*^9}, 
   3.427999875999857*^9, 3.4280006270577183`*^9, {3.42800068847038*^9, 
   3.428000795460107*^9}, 3.4280322141467905`*^9, 3.428072101833788*^9, 
   3.428073814618334*^9, 3.428075684732834*^9, 3.428076277539835*^9, 
   3.428076395725157*^9, {3.428076425965567*^9, 3.4280764459174023`*^9}, 
   3.428076478609954*^9, 3.4280765131303062`*^9, 3.428084145928904*^9, 
   3.428085568095703*^9, 3.428087019091502*^9, 3.428087851044478*^9, 
   3.4280920771904445`*^9, 3.4280974196694584`*^9, 3.428154481148456*^9, 
   3.428155132589198*^9, 3.4282934064087152`*^9, 3.4282935918143167`*^9, {
   3.4282936918744507`*^9, 3.4282937937905827`*^9}, 3.4284186948738575`*^9, 
   3.428450587820874*^9, 3.4284996727910233`*^9, 3.4285494326480246`*^9, 
   3.428599096026817*^9, 3.428625183080288*^9, {3.4286252627895603`*^9, 
   3.428625399235251*^9}, 3.428703010698617*^9, 3.429451304036562*^9, 
   3.429451369075684*^9, {3.4294514094127398`*^9, 3.429451432239503*^9}, 
   3.42945671833311*^9, 3.429796525892042*^9, 3.42979659260531*^9, 
   3.429896436918844*^9, 3.4298967827222924`*^9, 3.4299694256167407`*^9, 
   3.430073760438116*^9, 3.430601018942031*^9, 3.430664618539632*^9, 
   3.430665248960988*^9, 3.430665786903054*^9, 3.4306661338280697`*^9, 
   3.430667153233242*^9, 3.43067033880681*^9, 3.43067074918053*^9, 
   3.4306804990035086`*^9, 3.430691471123*^9, 3.4307053483639765`*^9, 
   3.4307054149170203`*^9, 3.4307068328396764`*^9, 3.4307085940118704`*^9, 
   3.430711853103331*^9, 3.4307121071226187`*^9, 3.430712182871297*^9, 
   3.430712223007019*^9, {3.430712271408998*^9, 3.430712326901183*^9}, 
   3.431128726031492*^9, {3.431128854790462*^9, 3.431128875929161*^9}, {
   3.4311290679934597`*^9, 3.431129095005494*^9}, 3.431129160923016*^9, 
   3.43112932372514*^9, 3.43113258322479*^9, 3.431132664385501*^9, 
   3.4311337832872047`*^9, 3.431133922189032*^9, 3.431134246332364*^9, 
   3.4311342888805027`*^9, 3.431134323055285*^9, 3.431135174112529*^9, 
   3.4311352405206842`*^9, 3.431135324592762*^9, 3.4311364960937643`*^9, 
   3.4311365341087933`*^9, 3.431146269419299*^9, 3.431146555539106*^9, 
   3.431147252923738*^9, 3.431147304093007*^9, 3.4312860934246297`*^9, 
   3.4312877233633537`*^9, 3.4312925859114037`*^9, 3.43129323881419*^9, 
   3.431294208009166*^9, 3.432041564278105*^9, 3.4327566600863943`*^9, 
   3.4327567805448*^9, 3.432756931626018*^9, 3.432757377960012*^9, 
   3.4327711536573143`*^9, 3.4328195854169846`*^9, 3.4328196677621064`*^9, 
   3.4328277667348166`*^9, 3.432829127517248*^9, 3.4328293781576543`*^9, 
   3.4328428113578424`*^9, 3.4328429117982626`*^9, 3.4328534001814704`*^9, 
   3.4328566636138887`*^9, 3.4329186894228*^9, 3.433016416402279*^9, 
   3.4330180244904547`*^9, 3.433018189501147*^9, 3.4330211972661304`*^9, 
   3.4330219674528847`*^9, 3.4330428149348783`*^9, 3.433047134994506*^9, 
   3.43304774525768*^9, 3.4330809493737507`*^9, 3.4330817757290306`*^9, 
   3.4330947631359806`*^9, 3.433095229007289*^9, 3.433096701465849*^9, 
   3.434503732808007*^9, 3.434504299820715*^9, 3.4345048414379187`*^9, 
   3.434757740657857*^9, 3.43477946894705*^9, 3.434780348357734*^9, 
   3.4347805095614967`*^9, 3.4347806932965336`*^9, 3.4348068909831715`*^9, 
   3.4348073573204803`*^9, 3.434807429871186*^9, 3.4348074832452726`*^9, 
   3.434809156116107*^9, 3.434809444975968*^9, {3.43480951180355*^9, 
   3.4348096145439*^9}, 3.434811038042173*^9, 3.4348376419923973`*^9, 
   3.4352879354985414`*^9, 3.435288241543353*^9, 3.435288295157774*^9, {
   3.4352892682585063`*^9, 3.4352892890874186`*^9}, 3.4357245782064385`*^9, 
   3.4357247991831703`*^9, 3.445377140756942*^9, 3.4453773099969215`*^9, 
   3.4453775034612513`*^9, 3.4453775461217437`*^9, 3.445378644018546*^9, 
   3.4453788953449235`*^9, 3.445379958572566*^9, 3.445453469643689*^9, 
   3.4462463867869596`*^9, 3.4462465355159903`*^9, 3.447011747203915*^9, 
   3.447257784019636*^9, 3.4474715319305973`*^9, 3.4474719245873795`*^9, 
   3.447472683263171*^9, 3.447474034559291*^9, 3.447474565371976*^9, 
   3.447476244813401*^9, 3.447556431948124*^9, 3.4475598392836556`*^9, 
   3.4476447417674503`*^9, 3.4477290270843134`*^9, 3.447729111084262*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ljXFunc", "[", 
    RowBox[{
    "stemID", ",", "curPosx", ",", "0", ",", "5", ",", "stemID", ",", "10", 
     ",", "0", ",", "5"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"curPosx", ",", 
     RowBox[{"-", "5"}], ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4204963059760957`*^9, 3.420496325142892*^9}, {
  3.4204964440391135`*^9, 3.42049657816663*^9}, {3.4205524462425876`*^9, 
  3.4205524482654157`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc8V20bAHAiMrOTyAhZlVnG73RfFaWkULIj6clKlHiolNEQZY9CZKWM
SHbcJxmhZFfI/NmywyPVe96/zuf7Ofcf17mvdSTtL5tc2MDAwLCJkYHh/8/0
Cqflv3/5ybNpkQOrbZwgURmm+Ok3Pzl+1naSq5sTkqqK7J784icXAkIHpQc5
IfYdY5P6Cj8ZHqz7xHyWE+7XP052muEnZYx7db9wcIFre4N+ey8/+XmobF1F
jwvUp+QTMsv4ydoc3Tm7Mi6oEZlEhlep89+mtGufc4PorgtdNd185HWeo19I
Bx7gpM8Jmx/nI1l0/OuCvHhh++ydyGKSl3TWFBwQiOUDp1xBCyTPS57L49ST
GOEHA57ipuEEHjKRx89KXkMQLsgah7zewEMe2Xz+Vv1bIdCTnGJ6/JWblFy/
zrvHShhm95seZSa5SN4Jpy2Ba1uB7f0buZowTvLRw1NrKX3bwCRcw67iKge5
q9FEIKpGDAY2Nmw8asNOxqgxrAm+F4f+QWM9xT1sZMppW+lpdkngYl3v1RXc
RLotOvR9U5eCnMgE7sJhFvLqfEdIWNgOCK8zzCsp2UiquUuw+/6WhrRDkpmL
ycykXWplTK+zLMjunNwX5M5EznFNZ3/nk4Ovpzokj5tuIJVu44jmMnn4NVqY
4SjFSP7l5evuSVWEOt3je/ZN/sUDJSGOv1N3wZLh1fccpb/xh2YGprKkPcAk
fSck+MwvLJx6zU9/XhncQ78xeYn9h8MOFATXcavCRb1T5mGzy3jp0k7PA2pq
AE0lA8aRS1h9ESo23VQHr+GzWwNtFnDANWYeuXINEI0Y5KhYmMXCzyM01IT3
gd36yaQGmML7oy2vZrtrgm3oobCi/lHMY6hhXZutBRLFnBOL4kO4eVNi5/k5
bdBhKz4sbt+D92cN6t3fQIPSlmMLlqgHa060j7mx0EA9vj8pVrQH2/y5M2DC
ToPdO9l+cn3pxuPvEmv4+GggoWedtm7QjS0XXvV4SNKA2X8DQ7fGN+yNvc68
QDT4uHqiLJrtC54MDmH67kMDfXLYoWW0Czu//pty4SYNau/9y8NZ04VluR3+
Tt6mQZVQ6sVAvy6cEDM5OXWPBvnqPwWvLHZiXnVitjaGBtHuCVdOfu/ASODm
rq58GtiMjymyF7RhLdawswfpNMiyrnA2CmnDZnJsfIljNFhoefQi9kIbdv1U
Izc/SYP7ZRo7d4i04at1efYP52nw+kGgFC2wFe8eV9d6+IcGrLvEt7qZtmCr
cZbetC0EmDxbMHuzpwUvjRAH80UISBSsi11ja8ETuXciS8QIOL/+TY775mc8
alnXWryDgNKn18ThZDM2Mbg77bWHAPvhHM70xSY86Bh9e1mPgJWmUw+Us5pw
bUPu+1x9AkLfrLFWWjdhnuVUN1sDAkru6DN11TbilmD97gIjAjjl6P+xxjfg
a3e8tvJZEVDsum3MhVaPuxZynpa6EWBgWu2wOleHBVZbT/F5EDBAOA0FZdRh
2r/L9AtXCeDYXPI9ibsOq4bQvda8CbArMOn4PFCDb/UkmH+9Tb1fDn6ndqca
+3EwT52NIGBaWUuweX81Ju83NCtHEfDJZdzRcfUddi2a+rIeTUDY4GGeJJd3
WLwjVjswngD+T0y2LCYktttMP6efTMASa+HrFA4SP7eRiZhMIeDlnRpOrwcY
b91+P+NuKgG7Pfyt+t2rsI7ZvHVOBgF79X+tFhBvcdSIjHhuNgGrlRYpo/kV
+I1JQLhYLgHlaqVHtklXYF6phPR7eQTsF78WG8Rejp2EdkbpFxBweHlGzexL
CZ42ffPkRjEBm1wNe0KOlWBR0f1qZSUENA5mB5CVxVjUZVh+tpSAE58cW+XT
i/DGfwO4j1QQcCZ9yG3dvRAjL6GqDEyAsMgBIRX6ayy5ShrlkAR0hyVXXjB7
jf9rjVvLfkfA2evWnJ+JAuwZmXw59j0BEvPlhUwF+fgDe5qcfw0BQ/9stdKU
zsc9k94dDrUEfEzPOXVIMA8Hd7f0C9UTYBTulJrzKwf38XUrjVDuuC47LziU
jS/OVR3J+UBAr0nKo/G8F9iRo/yddCOVr/02341jsrBxAwt3F2W6vIhSxfXn
eEY4ccPtJgJ+MEQ3PNTPwCufk6sqPxLgMW0kvLI7Hc80Ll0x/kTAzy9cF+0E
0zCvs+2L75R93jcWNfx6hr+81DK3bybgd949ZrWhFOxn0X6tn/IGjeBMzYhk
nMByZfX0ZwLYOZl0Oc4m4bR1o65qyiLly375K/G4/ETwjXstBEhFuIsG1sTi
V/4yKn2UFRwny0wjovHPmHtbd7USoIoczOTORmLRr8WKnpS1hfqW1hTCcQR3
vk0h5aDuV9IJsyGY6/KFjEnK0ffTbCH4HnaJqlrd2kZA+t64JyNSgZjhcrzh
AcpODYLZgj438aNDtY/tKG+2yJpjnr2KL2w87uhD2bn1mut4gwPWsavNuU/Z
keOVz2VrRTxYw235iPLvWXTT8uw51J+8bP+Asrkj13+E1hVUo08rv0H59Vff
whPvryOD+TCTC5TvSi8Vv8oMQHejI7frUi7sVRAodbmHFkc6ef4f30D0OQ9S
ORS5QO82OhX/XdnjF+m+4UgwRlg1g3JiwFiM4/dIpGA5o2dNubAvoGYaxaA6
n4KjbJQbtbcvuqfGoRDI3JND3d9AbJnkT+YnyPA446Qu5eWF00Y+FxPRTd8x
53bq/rlOzvn9bniKcroupZtRjuys7YLYFES///h+K5W/pED+mYD6Z+i/97Zs
ByhnqZzbWLuait4XZghnUvkv7M8TZVVIR1IukMVAuerhutpRqwy0u23phRFV
P406xwxCQjORdLT35liqvgbiRnw2z2ahEk2njwxU/U3pqUUYS7xEUk9nWWQb
qPgWb2dFGWcjb3TVBaj65TIS/bLlTS7iVp3yPl1HgFiQvEg4rQAZGR9iXKX6
R8qqRUalswAlvPk4U0P1l5yqt0rbpdfodV9Y2F2q/9QHavQFkgtRid32vLG3
BByj2XnHMxYjzctcheJUPxvxswZqPSlGX4UfPQovIsB0MvdRt2oJOmiklfqz
kOqX+F8Zog6lqHZSUy0xnwCvpdiOlLpyxGzJBxYvCLjRRAwcsK1A+qvxks7P
CfBPpU8NrVSgtD0fKtyoeRRqpMokI1+JyDzmbybPCEjL+aTyIgQjN4UdU0HU
vHNUDag3l6tGpwwftPoHEZBsYOidcLkaDV4p2/PTn4AuB+GdfcXVyLk5Ztb6
FgG6cXl3z+u9R6r3r1mx+VLzYr1bz82+Bqlw2ph0UPP7W61aTWBiHYqa6P4j
c4YAnv4/V+uG69DuXfTcryYE6K827GBTrEcicRIdfiep+a9gF/iorB6pnnE7
mkHtj8iw0IOPuz6gLJZrChba1H1ZjJB5PE0obUBd/uQ26vuu5LvPmzUhWmwy
uyq1z0pDrkuoJzch8ysVjqz8BMhW8d4u2/URPfglYhnMTvX/jv2o5tgn1Mhw
8Mj4Kg0qpmMrvwV9Ri7DYiRTO7VPN9pfEv34GTE8n85haaZBTFjso1dsLWg5
6BP7rw/Uvs86t3/BqAWdWHPuKKmigXbPSpJ3fwtq8I0quvWCBkIgbROw3ooe
PzGT1bpBgxfeR8bcxdvQdkt6naMXDWivnD1sD7ahtzbkmWB3GthvL7hDu9+G
6pnj/yQ60CBvnchb5m9HRnHyAZzHaaBXZvbXWbEDna6OLVnfQoOvc77BFic6
0Bmm5VVVXho4yz3l1/foQMz6POwW1P9LeBx9p0xJB7qr+tvIc10Heq95GPUf
7EQah/Y4jPTrgKdqyLNTll3oyQf9xZQ0HWB1zlM8eLMLZWsXGTYl6MCTZ61F
yildSE+KR48epQMkj3Aj12gXUs3ZXjEYqAMcs+kL9R5f0EHNlahN53UgNbvq
EC34KzJcyNu9JKYDrdILI9Kl3eit92GT/DvaEPuqq3dTXzdy4jObyfLVBkvt
ivZpph4UIb5/JfiyNtBPBr17c7IHSecI9zJbaMOqr1CS7lgPsq96Wt2toA3b
W7VPOwh9R2zx17f9aNCCYStxA33ad9QZ11l6tlILskaZDirZf0fmN2VHi/O1
QHX9456l3O9IKbvVUyROC/R22nIE6fUhyZGslZf2WuB6M7A6zbMf+ZEDDZ1L
mqCyybHs3pN+lGnV/PjZqCYsRx7PdyH7kZW5/JrxV02ADvbPW1kGUBujwZht
hSY0TLS/HTQeQH7nGBuUbmtCr8A/8R4TA2hfwb0eV2ZNYHJ5cDJCeAhZd5tX
hy3vhbYE306kMIRSy04v9Y7shdSPzlYzOkOoQqLjPHfnXoDdBhcNbIeQp5nk
LbHCveA3z3FrY+YQyvggoz1xaS+seT/M81EbRqIal2dE+jRgISicy/4EHTkl
xZYyZqlDddHtKB47OnI+prwQF6UOEaPuW7EHHVVeCT7MfUsdlPWNZURj6Ghx
vrXgiak6uHHwEV09dGRpvfhyN6M6TEZEuR5zGkE/x7tcd5iowdDT2CbVoFH0
OnPZVrtbBY75jLFax40iuswD5ItVoPCUpu6dl6PIneepaFi6CgRt6n77pWUU
SRaFMe5zUwHZK2J5N8TGUEtxXoPPX2Vw0ksPryseQ3Ft23YmbVWGuakCU8uJ
cbTtG79KuakSmNdtiAxcH0e+3jqbXwgowbuUU805myfQ/D5bKfV2RYg0/Xn4
r8YEmo7l4hI7qQhqWFMzPWACsTQb9SodVACvSCwys20SvbR53vdNQA5+a37q
9z8xhfYK8UmuOu6AoXFakfG5KaRcxBs/vW0H1MXnPJD0nEKCcl7hHs1S8Gg1
ROPd4ykU72r+V0FVCraXHgthGJlCwxx9DwyXJAD2fdh76/o06nR+ta+8VhQC
NN4/vJH1A7UnjeGGRl74Z0T1/PGKH+iDtWpvHR8vHItJ1RRt/oFu1p88VW3B
A3w//YcrFn8g9bsKJrYNXJD2BrR+7Z9B9ivXBe72skKNWhXdp3MGRfdI9TER
K4jpcW+SDuMc4mx/eFSF4TfO+af9EyP7HHo9Pp37eQsDeVq98Xc93xxa5vV3
DC1gJDM/l9iclp5DwnDjufgUM6nPEiV26cgcCk1Yq5n04iBDrx5NevpwDq0t
xP0b6CNACp0oTmQUmUd6wucPWJ+XJKu25X6sl5pHiXotNeHdkuTFibT1h4rz
yHdqu56FiRRZGhRhLULMI8+xx6VZh3aQVhWuomp286jmVe5Pk10yZIrcjkSH
zHmkL+ttfF5MnpRnCk+oV11Ac+vOG++WK5NPZUpkDWgLaBLahvs3qpAC+n0F
zXoL6OK9NyjJWIX8E6r0odN8Aak+Nka6kypkm1DD0rDfAlqjKe00klAjfRU2
nGBoWkAMh3el1SdrkE3Gngxa5xcRI9Mb58hZbRI8E0Leui6imR9tWYf1dcji
2Goh8FpEzteOTV16pkOm9PDsOhK8iIzEKqO3mNLICv/KP46Ji4i8EqR0i5Mg
/wdLc/z+
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 2}, {-29.048815519653317`, 29.822484615903594`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.4204963108428993`*^9, 3.420496326234418*^9}, 
   3.4204964556052837`*^9, 3.42049649915617*^9, {3.4204965563361096`*^9, 
   3.4204965791179595`*^9}, 3.4204971328220615`*^9, 3.420497522506858*^9, 
   3.4205141023862376`*^9, {3.4205208559079494`*^9, 3.4205208715498176`*^9}, 
   3.4205496048602133`*^9, 3.42055244872606*^9, 3.4205537632037554`*^9, 
   3.4205634654979773`*^9, 3.420563793897094*^9, 3.4205706643823256`*^9, 
   3.4205762481826425`*^9, 3.4206050394974623`*^9, 3.42064334907623*^9, 
   3.420645082409504*^9, 3.420645537655958*^9, 3.4206488722178183`*^9, 
   3.420652123423142*^9, 3.420654095029532*^9, 3.42065424510935*^9, 
   3.4206545055935183`*^9, 3.4206564048587723`*^9, 3.420658054104488*^9, 
   3.420658748565374*^9, 3.4206618949541597`*^9, 3.42066814033547*^9, 
   3.4207308564008465`*^9, 3.420755844609702*^9, 3.4207730811253767`*^9, 
   3.4208154860492725`*^9, 3.4208196501809063`*^9, 3.4208228532689605`*^9, 
   3.4208256504695663`*^9, 3.4208280587264123`*^9, 3.4208331887784443`*^9, 
   3.4208342153536406`*^9, 3.4208358427488084`*^9, 3.420901381792453*^9, 
   3.420902867489521*^9, 3.420914706891511*^9, 3.4209851065538416`*^9, 
   3.4209911734756575`*^9, 3.4209940743812475`*^9, 3.42099532225583*^9, 
   3.4209957667372336`*^9, 3.4210034460505047`*^9, 3.421004306483427*^9, 
   3.421005003928485*^9, 3.421010385572253*^9, 3.4210105261788273`*^9, 
   3.421019536065033*^9, 3.4210259904986067`*^9, 3.421035179947214*^9, 
   3.421038337872128*^9, 3.42103864823603*^9, 3.4210766467568493`*^9, 
   3.421076908963425*^9, 3.421084574219781*^9, 3.421091540038293*^9, 
   3.4210972505918913`*^9, 3.4211012332398033`*^9, 3.421101739127055*^9, 
   3.421102845744153*^9, 3.4211031133683033`*^9, 3.4211040584495673`*^9, 
   3.421104864977127*^9, 3.421106447820009*^9, 3.4211097534714513`*^9, 
   3.4211175043274794`*^9, 3.4211217824584894`*^9, 3.421122942810711*^9, 
   3.421162371645782*^9, 3.421163437085312*^9, 3.421166399907464*^9, 
   3.421172220424796*^9, 3.421173881467004*^9, 3.4211745760781*^9, 
   3.421174856089568*^9, 3.421178265706358*^9, 3.4211793568518257`*^9, 
   3.421180638834092*^9, 3.421180880722262*^9, 3.421184547348362*^9, 
   3.421185366443492*^9, 3.4212050197511063`*^9, 3.42121036883936*^9, 
   3.42125212583366*^9, 3.4212543071532383`*^9, 3.421260916918419*^9, 
   3.421263559362669*^9, 3.421266489669363*^9, 3.4212733822497673`*^9, 
   3.421274927038781*^9, 3.4212751274839687`*^9, 3.421275215915066*^9, 
   3.421275615203281*^9, 3.4212758017338*^9, 3.421275854065752*^9, 
   3.421281964796571*^9, 3.421282295325787*^9, 3.421282389108057*^9, 
   3.4212949911761827`*^9, 3.421296109661901*^9, 3.421296192731937*^9, 
   3.4212976734162903`*^9, 3.4212978871653843`*^9, 3.4212979268584146`*^9, 
   3.4212990224370413`*^9, 3.421299124276805*^9, 3.4212991774163322`*^9, 
   3.421299254339355*^9, 3.421328451323992*^9, 3.4213291817947702`*^9, 
   3.4213292629761753`*^9, 3.421333737959475*^9, 3.421334346238173*^9, 
   3.4213344348100243`*^9, 3.421337574367628*^9, 3.421337847301888*^9, 
   3.4213379283787003`*^9, 3.421344038870414*^9, 3.421344181695512*^9, 
   3.42136191590786*^9, 3.4213620368062468`*^9, 3.421362091389744*^9, 
   3.421362142585815*^9, 3.421446852748526*^9, 3.4214492826205378`*^9, 
   3.421449485884248*^9, 3.4214508140309844`*^9, 3.421451120409314*^9, 
   3.4214528580686364`*^9, 3.4214540840726423`*^9, 3.421458389936781*^9, 
   3.4214585120374827`*^9, 3.421537979145364*^9, 3.421538083651514*^9, 
   3.421538121662518*^9, 3.421538163218678*^9, 3.421538347581531*^9, 
   3.4215500444662857`*^9, 3.421556053405274*^9, 3.421556166184214*^9, 
   3.421556279596849*^9, 3.4215893089743624`*^9, 3.4215946847799683`*^9, 
   3.421594757281328*^9, 3.421626943787393*^9, 3.422132041990294*^9, 
   3.4227586784679413`*^9, 3.4228122686596136`*^9, 3.422812591487722*^9, 
   3.422819591093669*^9, 3.422819631219366*^9, 3.42282004986047*^9, 
   3.422838236173425*^9, 3.422844930225926*^9, 3.422847466486435*^9, 
   3.4229783327024364`*^9, 3.423368457317796*^9, 3.423426167475472*^9, 
   3.4234262498706636`*^9, 3.4234291736194735`*^9, 3.4234292475528355`*^9, 
   3.4234307119100695`*^9, 3.423452009074415*^9, 3.423453432204011*^9, 
   3.423489319508217*^9, 3.423491444048415*^9, 3.423506951118305*^9, 
   3.423507085045541*^9, 3.423507380638793*^9, 3.423510419987933*^9, 
   3.423512161542701*^9, 3.423513508716107*^9, 3.423516601740287*^9, 
   3.4235182677494392`*^9, 3.423538898796356*^9, 3.423539697182383*^9, 
   3.423539776733735*^9, 3.423539844946293*^9, 3.423574507263872*^9, 
   3.4235766509099827`*^9, 3.423576981760844*^9, 3.4235787296420517`*^9, 
   3.423582816330204*^9, 3.423589470309001*^9, 3.423590927311857*^9, 
   3.423591231605151*^9, 3.423591568372735*^9, 3.423592476369948*^9, 
   3.4235926447874413`*^9, 3.423594842551803*^9, 3.423598440993991*^9, 
   3.423599367258355*^9, 3.423604822953899*^9, 3.4236052146522627`*^9, 
   3.4236067633650503`*^9, 3.423606836987503*^9, 3.4236069109156857`*^9, 
   3.423607133609412*^9, 3.4236213880213757`*^9, 3.4236215502644453`*^9, 
   3.42362180553505*^9, 3.4236218891369963`*^9, 3.423624425855154*^9, 
   3.4238867533065195`*^9, 3.4239253669633083`*^9, 3.4239455564390583`*^9, 
   3.4239693260800323`*^9, 3.423969931075842*^9, 3.423970313690754*^9, 
   3.423970507521738*^9, 3.4239718137279577`*^9, 3.4239720623614388`*^9, 
   3.423972115937214*^9, 3.423972160937662*^9, 3.423972226458971*^9, 
   3.42401083139664*^9, 3.424010900993719*^9, 3.424010972928051*^9, 
   3.424011040940268*^9, 3.424011099942669*^9, 3.4240111607409163`*^9, 
   3.4240234821342278`*^9, 3.424056534802827*^9, 3.4241290116050715`*^9, 
   3.4244666269928083`*^9, {3.424468218557884*^9, 3.424468247107798*^9}, 
   3.424471229457653*^9, 3.424472529876513*^9, 3.4244726041604767`*^9, 
   3.4244727123767033`*^9, {3.4244727630920963`*^9, 3.4244728314445333`*^9}, 
   3.424473446173751*^9, 3.424473512036846*^9, 3.42447399806397*^9, 
   3.424474043485447*^9, {3.424474092971959*^9, 3.424474110940174*^9}, {
   3.424474143581745*^9, 3.424474168056468*^9}, 3.4246289665898952`*^9, 
   3.4246322737434373`*^9, 3.427215364144429*^9, 3.427217474414677*^9, 
   3.4273400989162207`*^9, 3.4273401527614517`*^9, 3.427340201445551*^9, 
   3.427340246518635*^9, 3.427340284612443*^9, 3.427340335394574*^9, 
   3.4276856718144493`*^9, 3.4276857065830574`*^9, 3.427724055101652*^9, 
   3.4277241931346283`*^9, 3.427724229245112*^9, 3.4277265217801743`*^9, 
   3.42774112733937*^9, 3.4277420293203783`*^9, 3.427748207908308*^9, 
   3.427758084313207*^9, 3.427768114866349*^9, 3.427770816773731*^9, 
   3.427773625710745*^9, 3.427814442946265*^9, 3.427814619763463*^9, 
   3.427897737729858*^9, 3.4278980889008102`*^9, 3.4278982635950403`*^9, 
   3.4278986888095083`*^9, 3.42789999746907*^9, 3.427900137154356*^9, 
   3.427900276619334*^9, 3.427901505347148*^9, 3.4279015960339317`*^9, 
   3.427901800930386*^9, 3.427903198784646*^9, 3.427903865646948*^9, 
   3.427903953639966*^9, 3.427904066868264*^9, 3.427904272135236*^9, 
   3.42790860360081*^9, 3.42790868090889*^9, 3.427908946670436*^9, 
   3.427909043696082*^9, 3.427909361230008*^9, 3.4279136358461037`*^9, 
   3.427989825749677*^9, 3.427989929284423*^9, 3.427990281586957*^9, 
   3.4279909565605993`*^9, 3.427996176254155*^9, {3.4279962198556423`*^9, 
   3.427996319425593*^9}, 3.427999876157135*^9, 3.428000627082259*^9, {
   3.428000688492675*^9, 3.428000795509665*^9}, 3.428032214196861*^9, 
   3.428072101973984*^9, 3.4280738146984453`*^9, 3.4280756847929173`*^9, 
   3.4280762775632887`*^9, 3.4280763957478952`*^9, {3.428076425990828*^9, 
   3.428076445945157*^9}, 3.4280764786517563`*^9, 3.428076513157963*^9, 
   3.428084145971813*^9, 3.428085568136292*^9, 3.428087019140903*^9, 
   3.428087851084167*^9, 3.4280920772605424`*^9, 3.4280974197495704`*^9, 
   3.428154481218554*^9, 3.428155132659296*^9, 3.4282934064323606`*^9, 
   3.428293591834611*^9, {3.4282936918957443`*^9, 3.428293793817761*^9}, 
   3.428418694984011*^9, 3.428450587900986*^9, 3.4284996728611217`*^9, 
   3.4285494327882204`*^9, 3.4285990960869007`*^9, 3.428625183102009*^9, {
   3.428625262813442*^9, 3.428625399291902*^9}, 3.428703010766487*^9, 
   3.429451304059424*^9, 3.429451369097411*^9, {3.429451409434066*^9, 
   3.4294514322610617`*^9}, 3.429456718357897*^9, 3.429796525942112*^9, 
   3.4297965926553802`*^9, 3.4298964369689145`*^9, 3.4298967827823763`*^9, 
   3.4299694257669506`*^9, 3.4300737604982*^9, 3.4306010190021152`*^9, 
   3.430664618639772*^9, 3.430665249021072*^9, 3.430665786963138*^9, 
   3.43066613387814*^9, 3.4306671533333817`*^9, 3.4306703388769083`*^9, 
   3.430670749240614*^9, 3.4306804990635924`*^9, 3.4306914711830845`*^9, 
   3.4307053484140463`*^9, 3.430705414977104*^9, 3.4307068328997602`*^9, 
   3.4307085940719547`*^9, 3.4307118531277313`*^9, 3.430712107145824*^9, 
   3.4307121828947573`*^9, 3.430712223033184*^9, {3.43071227143603*^9, 
   3.4307123269330387`*^9}, 3.4311287260787897`*^9, {3.431128855155403*^9, 
   3.431128875953553*^9}, {3.4311290680175858`*^9, 3.431129095028199*^9}, 
   3.4311291609462013`*^9, 3.4311293237483463`*^9, 3.431132583278387*^9, 
   3.431132664408609*^9, 3.431133783340042*^9, 3.4311339222107964`*^9, 
   3.431134246366572*^9, 3.431134288902989*^9, 3.4311343230911922`*^9, 
   3.431135174158328*^9, 3.431135240555114*^9, 3.431135324616643*^9, 
   3.431136496116476*^9, 3.431136534131546*^9, 3.4311462695536203`*^9, 
   3.431146555589419*^9, 3.43114725297139*^9, 3.431147304114081*^9, 
   3.4312860935147552`*^9, 3.4312877234434657`*^9, 3.4312925859915156`*^9, 
   3.431293238884288*^9, 3.4312942080792637`*^9, 3.432041564298758*^9, 
   3.432756660136464*^9, 3.4327567819367456`*^9, 3.432756931686102*^9, 
   3.43275737803011*^9, 3.4327711537173986`*^9, 3.4328195854770684`*^9, 
   3.4328196678221903`*^9, 3.4328277667949004`*^9, 3.432829127587346*^9, 
   3.432829378217738*^9, 3.4328428114279404`*^9, 3.4328429118583465`*^9, 
   3.4328534002415543`*^9, 3.432856663673972*^9, 3.432918689482884*^9, 
   3.433016416462363*^9, 3.433018024550539*^9, 3.4330181895612307`*^9, 
   3.4330211973162007`*^9, 3.4330219675229826`*^9, 3.433042814994962*^9, 
   3.43304713505459*^9, 3.43304774530775*^9, 3.4330809494238205`*^9, 
   3.433081775849199*^9, 3.433094763196065*^9, 3.4330952290573587`*^9, 
   3.4330967015159187`*^9, 3.4345037328480625`*^9, 3.4345042998707848`*^9, 
   3.434504841477975*^9, 3.434757740727954*^9, 3.4347794690071335`*^9, 
   3.4347803484178176`*^9, 3.434780509611566*^9, 3.434780693356617*^9, 
   3.434806891043255*^9, 3.4348073573805637`*^9, 3.434807429941283*^9, 
   3.4348074832953424`*^9, 3.434809156140992*^9, 3.4348094450074177`*^9, {
   3.434809511832636*^9, 3.434809614572357*^9}, 3.434811038307042*^9, 
   3.434837642013763*^9, 3.4352879355586247`*^9, 3.435288241673534*^9, 
   3.435288295227871*^9, {3.4352892683586454`*^9, 3.435289289137488*^9}, 
   3.4357245782865496`*^9, 3.4357247992532673`*^9, 3.445377140817027*^9, 
   3.4453773100870495`*^9, 3.4453775035213366`*^9, 3.4453775461818285`*^9, 
   3.445378644108674*^9, 3.4453788954250374`*^9, 3.4453799586526794`*^9, 
   3.445453469713788*^9, 3.44624638684704*^9, 3.446246535586084*^9, 
   3.4470117472740145`*^9, 3.447257784069707*^9, 3.4474715323211513`*^9, 
   3.447471924627436*^9, 3.4474726833733273`*^9, 3.4474740346293907`*^9, 
   3.4474745654420757`*^9, 3.447476244883501*^9, 3.4475564319981947`*^9, 
   3.447559839333727*^9, 3.44764474183755*^9, 3.447729027154413*^9, 
   3.4477291111643763`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "END"}], " ", "Lennard"}], "-", 
   RowBox[{"Jones", " ", 
    RowBox[{
    "potential", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**"}]}]}], "*****)"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", " ", "Morse"}], " ", 
   RowBox[{
   "Potential", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**"}]}], 
  "******)"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "the", " ", "Morse", " ", "potential", " ", "is", " ", "good", " ", "for", 
    " ", "representing", " ", "the", " ", "planes", " ", "since", " ", "it", 
    " ", "continuous", " ", "over", " ", 
    RowBox[{"x", " ", ".", " ", "the"}], " ", "function", " ", "is", " ", 
    "defined", " ", "at", " ", "r"}], "=", 
   RowBox[{
    RowBox[{
    "0", " ", "and", " ", "it", " ", "is", " ", "positive", " ", "and", " ", 
     "decreasing", " ", "when", " ", "r"}], "<", "0"}]}], "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"funcMrsPotential", " ", "=", "  ", 
   RowBox[{"mrsD", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "mrsA"}], " ", "mrsR"}], "]"}]}], ")"}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"funcMrsForce", " ", "=", " ", 
   RowBox[{"-", 
    RowBox[{
     SubscriptBox["\[PartialD]", "mrsR"], " ", 
     RowBox[{"(", "funcMrsPotential", ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"funcMrsForce2", " ", "=", " ", 
    RowBox[{"-", 
     RowBox[{
      SubscriptBox["\[PartialD]", "mrsR"], " ", 
      RowBox[{"(", "funcMrsForce", ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "the", " ", "position", " ", "of", " ", "minimum", " ", "potential", " ", 
    RowBox[{"(", "equilibrium", ")"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"funcMrsForce", " ", "\[Equal]", "0"}], ",", "mrsR"}], 
  "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], ":", 
  " ", "\<\"Inverse functions are being used by \\!\\(Solve\\), so some \
solutions may not be found; use Reduce for complete solution information. \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message",
 CellChangeTimes->{
  3.415732005196555*^9, 3.415732067173047*^9, 3.4159802137687817`*^9, 
   3.416106855864091*^9, 3.4172073516702657`*^9, 3.4172074762632093`*^9, 
   3.417210649572437*^9, 3.4172276127284946`*^9, 3.417232624425083*^9, 
   3.41723292555307*^9, 3.4172954438417625`*^9, 3.4172961378751297`*^9, 
   3.417357937567052*^9, 3.4204905793800697`*^9, 3.4204906183445435`*^9, 
   3.4204914073275757`*^9, 3.4204917627344494`*^9, 3.4204932995529876`*^9, 
   3.420494461467394*^9, 3.4204945360416517`*^9, 3.4204975225869694`*^9, 
   3.4205141025364475`*^9, {3.4205208559580193`*^9, 3.420520871599888*^9}, 
   3.4205496050104237`*^9, 3.4205537632738533`*^9, 3.4205634659085517`*^9, 
   3.4205637939772053`*^9, 3.4205706644724517`*^9, 3.4205762483528805`*^9, 
   3.420605039607616*^9, 3.420643349146328*^9, 3.420645082609784*^9, 
   3.420645537746084*^9, 3.4206488722779016`*^9, 3.420652123483226*^9, 
   3.420654095109644*^9, 3.420654245179448*^9, 3.4206545056536016`*^9, 
   3.4206564049488983`*^9, 3.420658054204628*^9, 3.420658748625458*^9, 
   3.4206618950543003`*^9, 3.42066814053575*^9, 3.4207308565710845`*^9, 
   3.420755844669786*^9, 3.4207730812856007`*^9, 3.42081548621951*^9, 
   3.4208196504012146`*^9, 3.4208228533290443`*^9, 3.4208256505296507`*^9, 
   3.420828058786496*^9, 3.420833188848542*^9, 3.4208342154137244`*^9, 
   3.4208358428189063`*^9, 3.420901381852537*^9, 3.420902867549605*^9, 
   3.420914706961609*^9, 3.420985106613926*^9, 3.4209911735757976`*^9, 
   3.420994074441332*^9, 3.420995322345956*^9, 3.4209957669375134`*^9, 
   3.4210034464610786`*^9, 3.421004306543511*^9, 3.421005004028625*^9, 
   3.421010385712449*^9, 3.4210105262389107`*^9, 3.421019536115103*^9, 
   3.421025990558691*^9, 3.421035180007298*^9, 3.421038337942226*^9, 
   3.421038648296114*^9, 3.421076646826947*^9, 3.421076909043537*^9, 
   3.421084574289879*^9, 3.421091540098377*^9, 3.4210972507220736`*^9, 
   3.421101233289873*^9, 3.4211017391871395`*^9, 3.4211028458943634`*^9, 
   3.421103113428387*^9, 3.4211040585196652`*^9, 3.421104865047225*^9, 
   3.421106447920149*^9, 3.4211097535515633`*^9, 3.421117504377549*^9, 
   3.4211217825285873`*^9, 3.4211229429108515`*^9, 3.421162371705866*^9, 
   3.4211634371654243`*^9, 3.421166399977562*^9, 3.42117222048488*^9, 
   3.4211738815471163`*^9, 3.421174576138184*^9, 3.421174856149652*^9, 
   3.4211782657664423`*^9, 3.42117935691191*^9, 3.421180638894176*^9, 
   3.421180880782346*^9, 3.4211845475586557`*^9, 3.421185366523604*^9, 
   3.421205019831218*^9, 3.421210369029626*^9, 3.421252125903758*^9, 
   3.421254307223336*^9, 3.421260916978503*^9, 3.421263559432767*^9, 
   3.4212664897294474`*^9, 3.421273383371739*^9, 3.421274927139226*^9, 
   3.421275127568191*^9, 3.4212752160280533`*^9, 3.421275615280643*^9, 
   3.421275801821179*^9, 3.421275854154524*^9, 3.4212819651254263`*^9, 
   3.4212822956379013`*^9, 3.4212823893099117`*^9, 3.421294991216516*^9, 
   3.421296109751429*^9, 3.421296193056678*^9, 3.421297673557621*^9, 
   3.421297887283228*^9, 3.421297926920306*^9, 3.421299022505027*^9, 
   3.421299124375717*^9, 3.421299177483122*^9, 3.421299254494361*^9, 
   3.4213284520763807`*^9, 3.4213291819156027`*^9, 3.421329263058879*^9, 
   3.421333738063921*^9, 3.421334346347538*^9, 3.4213344352647057`*^9, 
   3.4213375744253063`*^9, 3.421337847365696*^9, 3.421337928437071*^9, 
   3.4213440389860563`*^9, 3.421344181752767*^9, 3.4213619159622993`*^9, 
   3.421362036863777*^9, 3.4213620914846373`*^9, 3.421362142640676*^9, 
   3.4214468529368877`*^9, 3.421449282831802*^9, 3.4214494859374743`*^9, 
   3.421450814141138*^9, 3.4214511204693985`*^9, 3.4214528581387343`*^9, 
   3.4214540841427402`*^9, 3.421458390117033*^9, 3.4214585120975666`*^9, 
   3.421537979345269*^9, 3.421538083704603*^9, 3.421538121783451*^9, 
   3.421538163285434*^9, 3.4215383476463346`*^9, 3.421550044774629*^9, 
   3.421556053514689*^9, 3.4215561662919903`*^9, 3.421556279701147*^9, 
   3.421589309114558*^9, 3.4215946848400526`*^9, 3.421594757351426*^9, 
   3.4216269438474855`*^9, 3.422132042070406*^9, 3.4227586786181498`*^9, 
   3.4228122687998085`*^9, 3.422812591567833*^9, 3.4228195911737804`*^9, 
   3.422819631339533*^9, 3.422820049940581*^9, 3.422838236233509*^9, 
   3.4228449303160515`*^9, 3.4228474665665455`*^9, 3.422978332822605*^9, 
   3.42336845737788*^9, 3.423426167535556*^9, 3.4234262499607897`*^9, 
   3.423429173679557*^9, 3.423429247753115*^9, 3.4234307120903215`*^9, 
   3.423452009124485*^9, 3.4234534322640953`*^9, 3.423489319568301*^9, 
   3.423491444108499*^9, 3.423506951178389*^9, 3.423507085135667*^9, 
   3.423507380708891*^9, 3.423510420058031*^9, 3.423512161672883*^9, 
   3.423513508806233*^9, 3.4235166018103848`*^9, 3.4235182678295507`*^9, 
   3.4235388988391333`*^9, 3.423539697557858*^9, 3.423539776816526*^9, 
   3.4235398450311193`*^9, 3.423574507665695*^9, 3.423576651066354*^9, 
   3.423576982138129*^9, 3.423578730025852*^9, 3.423582816384557*^9, 
   3.4235894703836308`*^9, 3.423590927568671*^9, 3.4235912316765747`*^9, 
   3.4235915684631367`*^9, 3.423592476520094*^9, 3.423592645002715*^9, 
   3.423594842619836*^9, 3.4235984410738792`*^9, 3.423599367398624*^9, 
   3.423604823068709*^9, 3.4236052149949827`*^9, 3.423606763491914*^9, 
   3.42360683718681*^9, 3.423606911033016*^9, 3.4236071337392817`*^9, 
   3.423621388088373*^9, 3.423621550336776*^9, 3.423621805605043*^9, 
   3.423621889200694*^9, 3.42362442620827*^9, 3.423886753366604*^9, 
   3.4239253670334063`*^9, 3.423945556509156*^9, 3.4239693261501303`*^9, 
   3.4239699312661085`*^9, 3.4239703137508383`*^9, 3.4239705076018505`*^9, 
   3.423971813864987*^9, 3.4239720626688137`*^9, 3.423972116020797*^9, 
   3.423972161007741*^9, 3.423972226701207*^9, 3.424010831570112*^9, 
   3.4240109011355247`*^9, 3.424010973273109*^9, 3.4240110410268793`*^9, 
   3.424011100305067*^9, 3.424011161144629*^9, 3.424023483095142*^9, 
   3.4240565350431633`*^9, 3.424129011905492*^9, 3.4244666270629063`*^9, {
   3.424468218617968*^9, 3.424468247167882*^9}, 3.42447122949496*^9, 
   3.4244725299568996`*^9, 3.424472604211299*^9, 3.424472712446396*^9, {
   3.424472763147429*^9, 3.424472831550404*^9}, 3.424473446466112*^9, 
   3.424473512101493*^9, 3.424473998117991*^9, 3.42447404352483*^9, {
   3.4244740930194817`*^9, 3.424474110992176*^9}, {3.4244741436501827`*^9, 
   3.424474168142893*^9}, 3.424628966639965*^9, 3.4246322738636055`*^9, 
   3.4272153641844854`*^9, 3.427217474504803*^9, 3.4273400989613447`*^9, 
   3.427340152804737*^9, 3.427340201490532*^9, 3.4273402465670652`*^9, 
   3.427340284671009*^9, 3.4273403354774446`*^9, 3.4276856718845477`*^9, 
   3.4276857066831975`*^9, 3.427724055161736*^9, 3.427724193184698*^9, 
   3.427724229295182*^9, 3.427726521850272*^9, 3.427741127419482*^9, 
   3.427742029370448*^9, 3.427748207978406*^9, 3.4277580843833055`*^9, 
   3.427768114926433*^9, 3.427770816843829*^9, 3.427773625760815*^9, 
   3.427814442996335*^9, 3.4278146198936453`*^9, 3.427897737779928*^9, 
   3.427898088960894*^9, 3.4278982636551237`*^9, 3.42789868888962*^9, 
   3.427899997539168*^9, 3.427900137224454*^9, 3.427900276679418*^9, 
   3.427901505417246*^9, 3.4279015961040297`*^9, 3.427901801000484*^9, 
   3.42790319884473*^9, 3.427903865707032*^9, 3.4279039537000504`*^9, 
   3.427904066928348*^9, 3.42790427224539*^9, 3.427908603680922*^9, 
   3.427908680989002*^9, 3.427908946750548*^9, 3.427909043756166*^9, 
   3.427909361290092*^9, 3.427913635916202*^9, 3.427989825819775*^9, 
   3.4279899293545213`*^9, 3.427990281657055*^9, 3.427990956610669*^9, 
   3.4279961762925*^9, {3.4279962198908253`*^9, 3.427996319472805*^9}, 
   3.427999877242216*^9, 3.428000627146989*^9, {3.428000688530314*^9, 
   3.4280007956007557`*^9}, 3.4280322142669587`*^9, 3.4280721020340676`*^9, 
   3.428073814778558*^9, 3.4280756848429875`*^9, 3.428076277605753*^9, 
   3.428076395787068*^9, {3.428076426029296*^9, 3.428076446000966*^9}, 
   3.4280764787152853`*^9, 3.428076513212715*^9, 3.428084146075115*^9, 
   3.428085568199901*^9, 3.4280870192201147`*^9, 3.428087851291149*^9, 
   3.4280920773406544`*^9, 3.4280974198196683`*^9, 3.428154481298666*^9, 
   3.4281551327894783`*^9, 3.4282934064715*^9, 3.428293591868765*^9, {
   3.428293691938141*^9, 3.428293793876178*^9}, 3.428418695154249*^9, 
   3.428450587981098*^9, 3.4284996729612617`*^9, 3.42854943283829*^9, 
   3.4285990961369705`*^9, 3.428625183157518*^9, {3.428625262851959*^9, 
   3.42862539940987*^9}, 3.428703011178615*^9, 3.429451304102305*^9, 
   3.429451369133379*^9, {3.429451409474043*^9, 3.4294514323000507`*^9}, 
   3.4294567184677773`*^9, 3.429796526042252*^9, 3.42979659270545*^9, 
   3.4298964370189843`*^9, 3.4298967828925304`*^9, 3.429969425827035*^9, 
   3.430073760558284*^9, 3.430601019062199*^9, 3.430664618719884*^9, 
   3.430665249081156*^9, 3.430665787033236*^9, 3.430666133938224*^9, 
   3.430667153393466*^9, 3.430670338947006*^9, 3.4306707493006983`*^9, 
   3.4306804991236763`*^9, 3.4306914712431684`*^9, 3.4307053484741306`*^9, 
   3.4307054150271745`*^9, 3.43070683294983*^9, 3.430708594132038*^9, 
   3.430711853173172*^9, 3.4307121071917667`*^9, 3.4307121829394903`*^9, 
   3.4307122230803547`*^9, {3.430712271500396*^9, 3.4307123269886703`*^9}, 
   3.431128726153739*^9, {3.4311288552214537`*^9, 3.431128875995493*^9}, {
   3.431129068058269*^9, 3.431129095072453*^9}, 3.431129160992875*^9, 
   3.431129323792945*^9, 3.431132583471244*^9, 3.431132664501202*^9, 
   3.431133783524959*^9, 3.431133922522088*^9, 3.4311342464168253`*^9, 
   3.431134288955399*^9, 3.4311343231441803`*^9, 3.431135174322682*^9, 
   3.4311352406061974`*^9, 3.431135324667965*^9, 3.431136496158716*^9, 
   3.4311365343035717`*^9, 3.431146269593649*^9, 3.4311465556609173`*^9, 
   3.431147253046378*^9, 3.431147304156478*^9, 3.431286093634924*^9, 
   3.4312877235235777`*^9, 3.4312925860515995`*^9, 3.4312932389643993`*^9, 
   3.431294208209446*^9, 3.432041564339134*^9, 3.432756660196548*^9, 
   3.432756782016858*^9, 3.4327569317461863`*^9, 3.43275737808018*^9, 
   3.4327711537674685`*^9, 3.4328195855371523`*^9, 3.4328196678822746`*^9, 
   3.4328277668549843`*^9, 3.4328291276374164`*^9, 3.4328293782778225`*^9, 
   3.4328428114880247`*^9, 3.4328429119184303`*^9, 3.432853400311652*^9, 
   3.4328566637340565`*^9, 3.432918689542968*^9, 3.433016416712713*^9, 
   3.4330180246306505`*^9, 3.4330181896313286`*^9, 3.433021197366271*^9, 
   3.4330219675930805`*^9, 3.43304281506506*^9, 3.43304713515473*^9, 
   3.4330477453578205`*^9, 3.433080949493919*^9, 3.433081775899269*^9, 
   3.4330947632461348`*^9, 3.433095229187541*^9, 3.433096701576003*^9, 
   3.4345037329381886`*^9, 3.434504299910841*^9, 3.4345048415280447`*^9, 
   3.4347577408280916`*^9, 3.434779469047189*^9, 3.4347803488884706`*^9, 
   3.434780509671649*^9, 3.434780693446742*^9, 3.4348068911033382`*^9, 
   3.434807357440647*^9, 3.4348074300013666`*^9, 3.434807483345412*^9, 
   3.434809156197173*^9, 3.434809445118853*^9, {3.434809511897443*^9, 
   3.434809614647532*^9}, 3.434811039741249*^9, 3.434837642063628*^9, 
   3.435287935618708*^9, 3.4352882417937007`*^9, 3.435288295448177*^9, {
   3.435289268488826*^9, 3.4352892891975713`*^9}, 3.4357245783766747`*^9, 
   3.435724799303337*^9, 3.4453771408570833`*^9, 3.4453773101771774`*^9, 
   3.445377503621479*^9, 3.4453775462519283`*^9, 3.44537864421883*^9, 
   3.445378895505151*^9, 3.4453799587428074`*^9, 3.445453469783888*^9, 
   3.4462463869071207`*^9, 3.4462465356561775`*^9, 3.4470117473341*^9, 
   3.4472577841197777`*^9, 3.4474715347145452`*^9, 3.4474719246775074`*^9, 
   3.447472683493498*^9, 3.4474740346994896`*^9, 3.447474565522189*^9, 
   3.4474762449435863`*^9, 3.447556432078309*^9, 3.447559839373784*^9, 
   3.4476447419376936`*^9, 3.4477290272345276`*^9, 3.447729111304576*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"mrsR", "\[Rule]", "0"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.41573200520259*^9, 3.415732067175251*^9, 3.4159802138192863`*^9, 
   3.4161068558660316`*^9, 3.4172073516702657`*^9, 3.417207476273223*^9, 
   3.417210649582451*^9, 3.4172276127385087`*^9, 3.417232624435097*^9, 
   3.4172329255630836`*^9, 3.4172954438417625`*^9, 3.417296137885144*^9, 
   3.417357937567052*^9, 3.4204905793800697`*^9, 3.4204906183645716`*^9, 
   3.420491407347604*^9, 3.4204917627644916`*^9, 3.4204932995730157`*^9, 
   3.4204944615074496`*^9, 3.42049453606168*^9, 3.4204975226170115`*^9, 
   3.4205141025564756`*^9, {3.420520855968034*^9, 3.4205208716099014`*^9}, 
   3.4205496050204377`*^9, 3.420553763283868*^9, 3.4205634659185658`*^9, 
   3.4205637940473037`*^9, 3.4205706645225215`*^9, 3.420576248362894*^9, 
   3.420605039637658*^9, 3.420643349156342*^9, 3.4206450826197977`*^9, 
   3.4206455377661123`*^9, 3.42064887229793*^9, 3.4206521234932404`*^9, 
   3.4206540951597137`*^9, 3.420654245179448*^9, 3.420654505663616*^9, 
   3.420656404988954*^9, 3.420658054224656*^9, 3.4206587486555*^9, 
   3.420661895084342*^9, 3.420668140555778*^9, 3.420730856591112*^9, 
   3.4207558446798*^9, 3.4207730813056283`*^9, 3.420815486239538*^9, 
   3.4208196504212427`*^9, 3.4208228533490725`*^9, 3.4208256505296507`*^9, 
   3.4208280588866367`*^9, 3.4208331888585567`*^9, 3.4208342154237385`*^9, 
   3.4208358428289204`*^9, 3.4209013818625507`*^9, 3.420902867559619*^9, 
   3.4209147086539745`*^9, 3.4209851066239395`*^9, 3.4209911736458955`*^9, 
   3.4209940744513454`*^9, 3.4209953223559694`*^9, 3.4209957669575415`*^9, 
   3.4210034464811068`*^9, 3.421004306563539*^9, 3.421005004028625*^9, 
   3.421010385732477*^9, 3.421010526248925*^9, 3.4210195361251173`*^9, 
   3.421025990568705*^9, 3.421035180017312*^9, 3.42103833795224*^9, 
   3.421038648306128*^9, 3.421076646856989*^9, 3.4210769091036215`*^9, 
   3.421084574289879*^9, 3.4210915401083913`*^9, 3.421097250732087*^9, 
   3.421101233299887*^9, 3.421101739197153*^9, 3.4211028458943634`*^9, 
   3.421103113438401*^9, 3.4211040585296793`*^9, 3.4211048650572395`*^9, 
   3.4211064479301634`*^9, 3.421109753561577*^9, 3.421117504387563*^9, 
   3.421121782538601*^9, 3.421122942920865*^9, 3.42116237171588*^9, 
   3.421163437175438*^9, 3.421166399987576*^9, 3.421172220494894*^9, 
   3.42117388155713*^9, 3.421174576148198*^9, 3.421174856159666*^9, 
   3.421178265776456*^9, 3.42117935691191*^9, 3.421180638894176*^9, 
   3.4211808807923603`*^9, 3.4211845475686703`*^9, 3.421185366533618*^9, 
   3.421205019851246*^9, 3.421210369029626*^9, 3.4212521259137726`*^9, 
   3.4212543072333508`*^9, 3.421260916978503*^9, 3.421263559462809*^9, 
   3.421266489739461*^9, 3.421273383373939*^9, 3.421274927143251*^9, 
   3.421275127575245*^9, 3.421275216033085*^9, 3.4212756152854013`*^9, 
   3.4212758018256407`*^9, 3.4212758541590557`*^9, 3.4212819651295633`*^9, 
   3.421282295644161*^9, 3.421282389314764*^9, 3.421294991256196*^9, 
   3.421296109755224*^9, 3.4212961930610657`*^9, 3.4212976735612097`*^9, 
   3.421297887286903*^9, 3.421297926924663*^9, 3.421299022509799*^9, 
   3.4212991243809223`*^9, 3.421299177486917*^9, 3.4212992545003233`*^9, 
   3.421328452080521*^9, 3.421329181919896*^9, 3.4213292630634747`*^9, 
   3.421333738067734*^9, 3.421334346351388*^9, 3.421334435268442*^9, 
   3.421337574430469*^9, 3.421337847370061*^9, 3.421337928441085*^9, 
   3.421344038990315*^9, 3.4213441817563353`*^9, 3.421361915965987*^9, 
   3.421362036867334*^9, 3.421362091488544*^9, 3.4213621426446238`*^9, 
   3.421446852983404*^9, 3.421449282834894*^9, 3.421449485940797*^9, 
   3.4214508141511526`*^9, 3.421451120479412*^9, 3.4214528581587625`*^9, 
   3.4214540841527543`*^9, 3.4214583901270466`*^9, 3.421458512107581*^9, 
   3.421537979348165*^9, 3.421538083708296*^9, 3.421538121787033*^9, 
   3.421538163289567*^9, 3.421538347650634*^9, 3.4215500447809753`*^9, 
   3.4215560535183*^9, 3.421556166295435*^9, 3.421556279705625*^9, 
   3.4215893091345863`*^9, 3.421594684850066*^9, 3.4215947573614407`*^9, 
   3.4216269438675156`*^9, 3.422132042090434*^9, 3.422758678638178*^9, 
   3.4228122688198357`*^9, 3.422812591587861*^9, 3.422819591203822*^9, 
   3.422819631349547*^9, 3.4228200499606085`*^9, 3.422838236253536*^9, 
   3.4228449303761344`*^9, 3.4228474665765595`*^9, 3.4229783328326187`*^9, 
   3.42336845737788*^9, 3.42342616754557*^9, 3.423426249970804*^9, 
   3.4234291736895714`*^9, 3.423429247753115*^9, 3.423430712100335*^9, 
   3.423452009124485*^9, 3.423453432274109*^9, 3.423489319578315*^9, 
   3.423491444118513*^9, 3.423506951188403*^9, 3.423507085195751*^9, 
   3.423507380718905*^9, 3.4235104200680447`*^9, 3.423512161752995*^9, 
   3.423513508806233*^9, 3.4235166018203993`*^9, 3.423518267909663*^9, 
   3.423538898874144*^9, 3.423539697563696*^9, 3.42353977682131*^9, 
   3.423539845036306*^9, 3.423574507670269*^9, 3.423576651071896*^9, 
   3.423576982143147*^9, 3.423578730030835*^9, 3.423582816388526*^9, 
   3.423589470388875*^9, 3.423590927574108*^9, 3.42359123168187*^9, 
   3.423591568468637*^9, 3.4235924765246487`*^9, 3.423592645007597*^9, 
   3.423594842624795*^9, 3.423598441078817*^9, 3.423599367403311*^9, 
   3.4236048230738983`*^9, 3.423605214999605*^9, 3.423606763496587*^9, 
   3.4236068371919203`*^9, 3.423606911038135*^9, 3.423607133744586*^9, 
   3.423621388093237*^9, 3.4236215503421097`*^9, 3.423621805609496*^9, 
   3.42362188920543*^9, 3.4236244262138987`*^9, 3.4238867533866315`*^9, 
   3.4239253670434203`*^9, 3.4239455565191703`*^9, 3.423969326160144*^9, 
   3.423969931276122*^9, 3.423970313760852*^9, 3.423970507621878*^9, 
   3.423971813906417*^9, 3.423972062673375*^9, 3.423972116025423*^9, 
   3.423972161012474*^9, 3.4239722267054577`*^9, 3.424010831574499*^9, 
   3.424010901140107*^9, 3.424010973277829*^9, 3.424011041033637*^9, 
   3.424011100310554*^9, 3.424011161149741*^9, 3.424023483101383*^9, 
   3.4240565350631914`*^9, 3.42412901192552*^9, 3.424466627092948*^9, {
   3.424468218658024*^9, 3.42446824718791*^9}, 3.424471229497118*^9, 
   3.4244725299602633`*^9, 3.424472604214839*^9, 3.424472712452189*^9, {
   3.424472763151944*^9, 3.424472831555942*^9}, 3.4244734464696293`*^9, 
   3.424473512105071*^9, 3.424473998160801*^9, 3.424474043527248*^9, {
   3.424474093022319*^9, 3.4244741109948*^9}, {3.424474143653349*^9, 
   3.424474168146315*^9}, 3.424628966649979*^9, 3.424632273873619*^9, 
   3.427215364194499*^9, 3.427217474564887*^9, 3.427340099006771*^9, 
   3.42734015280779*^9, 3.427340201493618*^9, 3.427340246569828*^9, 
   3.4273402846733932`*^9, 3.427340335480091*^9, 3.427685671894562*^9, 
   3.4276857067432814`*^9, 3.4277240551817636`*^9, 3.4277241931947117`*^9, 
   3.42772422936528*^9, 3.4277265218703003`*^9, 3.427741127419482*^9, 
   3.427742029390476*^9, 3.427748208018462*^9, 3.427758084403333*^9, 
   3.427768114946461*^9, 3.4277708168638573`*^9, 3.427773625760815*^9, 
   3.427814443016363*^9, 3.427814619903659*^9, 3.427897737789942*^9, 
   3.4278980889909363`*^9, 3.427898263675152*^9, 3.427898688919662*^9, 
   3.427899997579224*^9, 3.427900137254496*^9, 3.4279002767094603`*^9, 
   3.427901505437274*^9, 3.4279015961340723`*^9, 3.427901801020512*^9, 
   3.427903198854744*^9, 3.4279038657270603`*^9, 3.427903953720078*^9, 
   3.427904066938362*^9, 3.427904272285446*^9, 3.427908603741006*^9, 
   3.427908681049086*^9, 3.4279089468206463`*^9, 3.42790904376618*^9, 
   3.427909361320134*^9, 3.427913635956258*^9, 3.4279898258498173`*^9, 
   3.4279899293845634`*^9, 3.427990281707125*^9, 3.427990956620683*^9, 
   3.4279961763300734`*^9, {3.42799621989401*^9, 3.427996319475069*^9}, 
   3.4279998772473927`*^9, 3.428000627151575*^9, {3.4280006885337877`*^9, 
   3.4280007956072197`*^9}, 3.4280322142669587`*^9, 3.4280721020340676`*^9, 
   3.4280738148085995`*^9, 3.4280756848530016`*^9, 3.428076277644436*^9, 
   3.428076395790585*^9, {3.4280764260319443`*^9, 3.428076446003374*^9}, 
   3.4280764787181463`*^9, 3.428076513215826*^9, 3.428084146079129*^9, 
   3.428085568203867*^9, 3.4280870192232103`*^9, 3.4280878512952957`*^9, 
   3.4280920773506684`*^9, 3.4280974198497105`*^9, 3.428154481348736*^9, 
   3.428155132809506*^9, 3.428293406513968*^9, 3.428293591871099*^9, {
   3.428293691940488*^9, 3.42829379387856*^9}, 3.4284186951943054`*^9, 
   3.42845058801114*^9, 3.4284996730013175`*^9, 3.4285494328483047`*^9, 
   3.428599096146985*^9, 3.4286251832045727`*^9, {3.428625262854519*^9, 
   3.4286253994143343`*^9}, 3.428703011182599*^9, 3.429451304146224*^9, 
   3.4294513691357737`*^9, {3.429451409476679*^9, 3.429451432302835*^9}, 
   3.429456718470117*^9, 3.429796526042252*^9, 3.42979659270545*^9, 
   3.42989643705904*^9, 3.4298967829025445`*^9, 3.4299694258370485`*^9, 
   3.430073760558284*^9, 3.430601019072213*^9, 3.43066461875994*^9, 
   3.430665249101184*^9, 3.43066578704325*^9, 3.430666133948238*^9, 
   3.43066715340348*^9, 3.430670338977048*^9, 3.430670749310712*^9, 
   3.4306804991336904`*^9, 3.4306914712531824`*^9, 3.4307053484741306`*^9, 
   3.430705415047202*^9, 3.4307068329598446`*^9, 3.4307085941420527`*^9, 
   3.430711853215164*^9, 3.430712107194436*^9, 3.4307121829422894`*^9, 
   3.430712223083*^9, {3.430712271503812*^9, 3.430712326992222*^9}, 
   3.431128726157527*^9, {3.4311288552238493`*^9, 3.431128875998028*^9}, {
   3.431129068060481*^9, 3.431129095074662*^9}, 3.431129160995467*^9, 
   3.431129323795163*^9, 3.431132583474683*^9, 3.431132664503419*^9, 
   3.431133783528574*^9, 3.431133922524414*^9, 3.431134246419174*^9, 
   3.431134288957741*^9, 3.431134323146418*^9, 3.431135174326598*^9, 
   3.431135240608539*^9, 3.4311353246706*^9, 3.4311364961611013`*^9, 
   3.431136534306519*^9, 3.4311462695957003`*^9, 3.431146555664008*^9, 
   3.431147253049672*^9, 3.431147304158692*^9, 3.4312860936649656`*^9, 
   3.431287723563634*^9, 3.4312925860616136`*^9, 3.431293238974414*^9, 
   3.4312942082194595`*^9, 3.432041564341234*^9, 3.432756660206562*^9, 
   3.4327567820569143`*^9, 3.4327569317562*^9, 3.4327573780901937`*^9, 
   3.4327711537774825`*^9, 3.4328195855471663`*^9, 3.432819667892288*^9, 
   3.4328277668649983`*^9, 3.4328291276474304`*^9, 3.432829378287836*^9, 
   3.4328428114980383`*^9, 3.4328429119284444`*^9, 3.4328534003216667`*^9, 
   3.43285666374407*^9, 3.4329186895529823`*^9, 3.433016416722727*^9, 
   3.4330180246506786`*^9, 3.4330181896613708`*^9, 3.4330211973762846`*^9, 
   3.4330219676131086`*^9, 3.433042815075074*^9, 3.4330471351647444`*^9, 
   3.433047745367834*^9, 3.433080949493919*^9, 3.4330817759092827`*^9, 
   3.433094763256149*^9, 3.4330952292175827`*^9, 3.4330967015860167`*^9, 
   3.4345037329381886`*^9, 3.4345042999208546`*^9, 3.4345048415280447`*^9, 
   3.4347577408781605`*^9, 3.4347794690572033`*^9, 3.4347803488984847`*^9, 
   3.434780509671649*^9, 3.434780693456756*^9, 3.43480689113338*^9, 
   3.434807357460675*^9, 3.4348074300314083`*^9, 3.434807483355426*^9, 
   3.434809156248658*^9, 3.434809445124048*^9, {3.434809511901999*^9, 
   3.434809614651268*^9}, 3.434811039745861*^9, 3.434837642065589*^9, 
   3.435287935628722*^9, 3.4352882418037148`*^9, 3.435288295448177*^9, {
   3.4352892685188675`*^9, 3.4352892891975713`*^9}, 3.4357245783766747`*^9, 
   3.4357247993133507`*^9, 3.445377140867098*^9, 3.445377310227248*^9, 
   3.445377503641507*^9, 3.4453775462619424`*^9, 3.445378644268901*^9, 
   3.445378895565236*^9, 3.4453799588129067`*^9, 3.4454534698539867`*^9, 
   3.4462463869071207`*^9, 3.446246535696231*^9, 3.4470117473441143`*^9, 
   3.4472577841197777`*^9, 3.4474715347145452`*^9, 3.4474719246875215`*^9, 
   3.4474726835635977`*^9, 3.4474740346994896`*^9, 3.4474745655822744`*^9, 
   3.447476245013685*^9, 3.4475564320883236`*^9, 3.4475598393837986`*^9, 
   3.4476447419577217`*^9, 3.4477290272845993`*^9, 3.4477291113346195`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "the", " ", "position", " ", "of", " ", "minimum", " ", "force", " ", 
   RowBox[{"(", 
    RowBox[{"maximum", " ", "attraction", " ", "force"}], ")"}]}], 
  "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mrsLocMinForce", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"funcMrsForce2", " ", "\[Equal]", "0"}], ",", "mrsR"}], 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], ":", 
  " ", "\<\"Inverse functions are being used by \\!\\(Solve\\), so some \
solutions may not be found; use Reduce for complete solution information. \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message",
 CellChangeTimes->{
  3.415732005250882*^9, 3.415732067217621*^9, 3.4159802138647127`*^9, 
   3.416106855937595*^9, 3.417207351740363*^9, 3.417207476313279*^9, 
   3.417210649622506*^9, 3.4172276128286333`*^9, 3.417232624735514*^9, 
   3.417232927766142*^9, 3.417295443901846*^9, 3.4172961379251995`*^9, 
   3.4173579375970936`*^9, 3.4204905795903635`*^9, 3.4204906185348096`*^9, 
   3.4204914073876595`*^9, 3.4204917629547577`*^9, 3.4204932996431136`*^9, 
   3.420494461647646*^9, 3.4204945361017356`*^9, 3.4204975226770954`*^9, 
   3.4205141026065454`*^9, {3.4205208560381317`*^9, 3.420520871669986*^9}, 
   3.4205496051806617`*^9, 3.420553763373994*^9, 3.4205634659886637`*^9, 
   3.4205637941274157`*^9, 3.4205706646326756`*^9, 3.4205762485231185`*^9, 
   3.420605039687728*^9, 3.4206433492064123`*^9, 3.420645082659854*^9, 
   3.4206455378261957`*^9, 3.420648872378042*^9, 3.4206521235633383`*^9, 
   3.420654095219798*^9, 3.42065424525956*^9, 3.420654505713686*^9, 
   3.42065640507908*^9, 3.420658054294754*^9, 3.42065874870557*^9, 
   3.4206618951444263`*^9, 3.420668140595834*^9, 3.4207308566311684`*^9, 
   3.4207558447098417`*^9, 3.4207730813356705`*^9, 3.4208154862896085`*^9, 
   3.4208196504612985`*^9, 3.420822853379114*^9, 3.4208256505697064`*^9, 
   3.420828059036846*^9, 3.42083318891864*^9, 3.42083421545378*^9, 
   3.420835842858962*^9, 3.420901381972705*^9, 3.4209028676096888`*^9, 
   3.4209147087641287`*^9, 3.4209851066940374`*^9, 3.4209911737360215`*^9, 
   3.4209940745014153`*^9, 3.4209953224060397`*^9, 3.4209957670076113`*^9, 
   3.421003446611289*^9, 3.4210043066136093`*^9, 3.421005004118751*^9, 
   3.421010385772533*^9, 3.4210105263390512`*^9, 3.421019536165173*^9, 
   3.421025990608761*^9, 3.4210351800573683`*^9, 3.42103833800231*^9, 
   3.421038648346184*^9, 3.421076646907059*^9, 3.4210769091937475`*^9, 
   3.421084574329935*^9, 3.4210915401384335`*^9, 3.4210972507721434`*^9, 
   3.421101233339943*^9, 3.4211017392372093`*^9, 3.421102845934419*^9, 
   3.4211031134784575`*^9, 3.4211040585697355`*^9, 3.4211048650972953`*^9, 
   3.4211064479902472`*^9, 3.421109753611647*^9, 3.421117504427619*^9, 
   3.421121782578657*^9, 3.4211229429609213`*^9, 3.4211623717559357`*^9, 
   3.4211634372255077`*^9, 3.4211664000376463`*^9, 3.4211722205349503`*^9, 
   3.4211738816071997`*^9, 3.4211745761882544`*^9, 3.4211748561997223`*^9, 
   3.42117826583654*^9, 3.4211793569519663`*^9, 3.4211806389342318`*^9, 
   3.421180880822402*^9, 3.42118454761874*^9, 3.421185366583688*^9, 
   3.4212050199013157`*^9, 3.421210369099724*^9, 3.4212521259538283`*^9, 
   3.4212543072734065`*^9, 3.4212609170185595`*^9, 3.4212635595128794`*^9, 
   3.421266489779517*^9, 3.4212733834736767`*^9, 3.4212749271900873`*^9, 
   3.4212751276340103`*^9, 3.4212752206588907`*^9, 3.421275615338626*^9, 
   3.4212758086554737`*^9, 3.4212758542134132`*^9, 3.421281965202767*^9, 
   3.421282296352249*^9, 3.421282389363985*^9, 3.421294991296569*^9, 
   3.421296109802741*^9, 3.4212961931056147`*^9, 3.421297673641233*^9, 
   3.421297887342498*^9, 3.421297926966978*^9, 3.4212990225604973`*^9, 
   3.421299124436253*^9, 3.4212991775352707`*^9, 3.421299254602244*^9, 
   3.421328452173274*^9, 3.421329181982078*^9, 3.421329263105228*^9, 
   3.421333738122786*^9, 3.421334346408746*^9, 3.421334435306425*^9, 
   3.421337574471245*^9, 3.421337847422332*^9, 3.421337928482544*^9, 
   3.421344039045669*^9, 3.421344181796584*^9, 3.421361916004985*^9, 
   3.421362036905303*^9, 3.4213620915338078`*^9, 3.421362142682547*^9, 
   3.421446853025434*^9, 3.421449282869836*^9, 3.421449485974573*^9, 
   3.4214508142012224`*^9, 3.4214511205194683`*^9, 3.4214528582188463`*^9, 
   3.42145408419281*^9, 3.421458390167103*^9, 3.421458512147637*^9, 
   3.421537979381001*^9, 3.421538083745778*^9, 3.4215381220995007`*^9, 
   3.4215381633324842`*^9, 3.42153834769453*^9, 3.4215500448349733`*^9, 
   3.421556053573216*^9, 3.42155616634553*^9, 3.4215562797514668`*^9, 
   3.4215893091946707`*^9, 3.4215946849001365`*^9, 3.4215947573914824`*^9, 
   3.4216269438975616`*^9, 3.422132042140504*^9, 3.422758678698261*^9, 
   3.4228122688699055`*^9, 3.422812591657958*^9, 3.4228195913840723`*^9, 
   3.4228196314096303`*^9, 3.4228200500106783`*^9, 3.422838236293592*^9, 
   3.4228449304362183`*^9, 3.422847466626629*^9, 3.422978332872675*^9, 
   3.423368457538104*^9, 3.42342616759564*^9, 3.4234262501410418`*^9, 
   3.4234291737596693`*^9, 3.423429247823213*^9, 3.4234307121403913`*^9, 
   3.4234520091645412`*^9, 3.423453432314165*^9, 3.423489319618371*^9, 
   3.4234914441585693`*^9, 3.423506951368655*^9, 3.4235070852758627`*^9, 
   3.4235073807589607`*^9, 3.423510420118115*^9, 3.423512161883177*^9, 
   3.423513508856303*^9, 3.423516601860455*^9, 3.423518268009803*^9, 
   3.423538898927121*^9, 3.423539697627817*^9, 3.423539776881378*^9, 
   3.423539845149933*^9, 3.423574507721635*^9, 3.423576651145712*^9, 
   3.423576982195848*^9, 3.4235787300836267`*^9, 3.423582816426648*^9, 
   3.423589470443437*^9, 3.423590927974375*^9, 3.42359123173218*^9, 
   3.423591568629407*^9, 3.423592476600656*^9, 3.423592645080324*^9, 
   3.423594842675877*^9, 3.423598441142523*^9, 3.42359936746793*^9, 
   3.423604823145924*^9, 3.423605215378467*^9, 3.423606763557786*^9, 
   3.4236068372800283`*^9, 3.423606911085718*^9, 3.423607134385201*^9, 
   3.4236213881433268`*^9, 3.423621550392411*^9, 3.423621805659856*^9, 
   3.423621889258519*^9, 3.4236244262985287`*^9, 3.4238867534266877`*^9, 
   3.42392536709349*^9, 3.42394555656924*^9, 3.4239693262002*^9, 
   3.4239699313161783`*^9, 3.423970313800908*^9, 3.4239705076719484`*^9, 
   3.423971814000292*^9, 3.4239720628360786`*^9, 3.4239721163126783`*^9, 
   3.423972161067383*^9, 3.4239722267735443`*^9, 3.424010831659734*^9, 
   3.4240109012080173`*^9, 3.424010973326729*^9, 3.424011041102458*^9, 
   3.424011100409042*^9, 3.424011161253765*^9, 3.424023483251293*^9, 
   3.424056535363611*^9, 3.4241290120356736`*^9, 3.424466627133004*^9, {
   3.42446821869808*^9, 3.42446824723798*^9}, 3.424471229546788*^9, 
   3.424472530017047*^9, 3.4244726042490187`*^9, 3.4244727124865837`*^9, {
   3.424472763252707*^9, 3.424472831612317*^9}, 3.4244734465568323`*^9, 
   3.424473512151903*^9, 3.424473998238662*^9, 3.42447404355027*^9, {
   3.424474093047161*^9, 3.424474111090989*^9}, {3.4244741436851883`*^9, 
   3.42447416818064*^9}, 3.424628966690035*^9, 3.4246322739036613`*^9, 
   3.4272153642545834`*^9, 3.427217474655013*^9, 3.427340099033457*^9, 
   3.427340152831085*^9, 3.427340201519556*^9, 3.427340246598709*^9, 
   3.427340284706541*^9, 3.427340335517324*^9, 3.427685671984688*^9, 
   3.4276857067833376`*^9, 3.4277240552118063`*^9, 3.427724193244782*^9, 
   3.427724229435378*^9, 3.4277265219303837`*^9, 3.42774112748958*^9, 
   3.427742030512044*^9, 3.42774820808856*^9, 3.4277580846837254`*^9, 
   3.427768115036587*^9, 3.427770816893899*^9, 3.427773625840927*^9, 
   3.4278144430464053`*^9, 3.427814619943715*^9, 3.427897737819984*^9, 
   3.427898089041006*^9, 3.427898263735236*^9, 3.4278986889697323`*^9, 
   3.427899997639308*^9, 3.427900137304566*^9, 3.427900276999866*^9, 
   3.427901505547428*^9, 3.427901596264254*^9, 3.427901801060568*^9, 
   3.427903198964898*^9, 3.427903865767116*^9, 3.4279039537601337`*^9, 
   3.427904066988432*^9, 3.4279042723655577`*^9, 3.427908603811104*^9, 
   3.427908681129198*^9, 3.427908946900758*^9, 3.427909043836278*^9, 
   3.427909361370204*^9, 3.4279136360263557`*^9, 3.427989825899887*^9, 
   3.427989929494717*^9, 3.427990281767209*^9, 3.4279909566507254`*^9, 
   3.427996176356625*^9, {3.4279962199196043`*^9, 3.4279963195070553`*^9}, 
   3.427999877796843*^9, 3.428000627183099*^9, {3.428000688556711*^9, 
   3.428000795658948*^9}, 3.4280322143070145`*^9, 3.4280721020741234`*^9, 
   3.4280738148786974`*^9, 3.4280756848830433`*^9, 3.428076277868259*^9, 
   3.428076395820376*^9, {3.4280764260589952`*^9, 3.4280764460372343`*^9}, 
   3.4280764787722692`*^9, 3.4280765132625628`*^9, 3.42808414626441*^9, 
   3.4280855682475348`*^9, 3.428087019282083*^9, 3.428087851368225*^9, 
   3.428092077390724*^9, 3.4280974198997803`*^9, 3.4281544814188337`*^9, 
   3.428155132859576*^9, 3.428293406585658*^9, 3.4282935918981037`*^9, {
   3.4282936919625874`*^9, 3.428293793919812*^9}, 3.428418695304459*^9, 
   3.4284505880812383`*^9, 3.4284996731515274`*^9, 3.4285494328783464`*^9, 
   3.4285990961770267`*^9, 3.428625183234249*^9, {3.4286252628814173`*^9, 
   3.4286253994871597`*^9}, 3.428703011305029*^9, 3.4294513041806993`*^9, 
   3.429451369167159*^9, {3.4294514095069838`*^9, 3.429451432340118*^9}, 
   3.429456718502557*^9, 3.429796526072294*^9, 3.429796592775548*^9, 
   3.4298964371291385`*^9, 3.4298967829426003`*^9, 3.4299694258670907`*^9, 
   3.43007376059834*^9, 3.430601019152325*^9, 3.4306646188400517`*^9, 
   3.4306652491512537`*^9, 3.43066578709332*^9, 3.43066613397828*^9, 
   3.430667153443536*^9, 3.4306703390271177`*^9, 3.430670749340754*^9, 
   3.4306804991637325`*^9, 3.430691471283224*^9, 3.4307053485141864`*^9, 
   3.4307054150772443`*^9, 3.4307068329999003`*^9, 3.4307085941821084`*^9, 
   3.430711853283737*^9, 3.430712107223021*^9, 3.430712182972747*^9, 
   3.4307122231917877`*^9, {3.4307122715478287`*^9, 3.430712327033345*^9}, 
   3.431128726208374*^9, {3.431128855294736*^9, 3.431128876055766*^9}, {
   3.431129068114455*^9, 3.431129095129689*^9}, 3.431129161119048*^9, 
   3.431129323944374*^9, 3.431132583572044*^9, 3.431132664735424*^9, 
   3.4311337836688128`*^9, 3.4311339225923433`*^9, 3.431134246469277*^9, 
   3.4311342890303783`*^9, 3.431134323203127*^9, 3.4311351745779657`*^9, 
   3.431135240850569*^9, 3.431135324749165*^9, 3.4311364962316732`*^9, 
   3.4311365343714314`*^9, 3.431146269658588*^9, 3.431146555715518*^9, 
   3.431147253109149*^9, 3.4311473042181892`*^9, 3.4312860938752594`*^9, 
   3.431287723633732*^9, 3.4312925861016693`*^9, 3.4312932390144696`*^9, 
   3.431294208279544*^9, 3.4320415644119167`*^9, 3.4327566602466183`*^9, 
   3.4327567821270123`*^9, 3.432756931786242*^9, 3.432757378150278*^9, 
   3.4327711538075247`*^9, 3.432819585587222*^9, 3.4328196679323444`*^9, 
   3.432827766905054*^9, 3.4328291276874866`*^9, 3.4328293783479204`*^9, 
   3.432842811548108*^9, 3.4328429119685*^9, 3.4328534003617225`*^9, 
   3.4328566637841263`*^9, 3.432918689593038*^9, 3.433016416762783*^9, 
   3.4330180247007484`*^9, 3.433018189711441*^9, 3.433021197406327*^9, 
   3.4330219676631784`*^9, 3.433042815105116*^9, 3.433047135194786*^9, 
   3.4330477453978763`*^9, 3.433080949554003*^9, 3.433081775939325*^9, 
   3.433094763286191*^9, 3.4330952293077087`*^9, 3.433096701616059*^9, 
   3.4345037329682307`*^9, 3.4345042999408827`*^9, 3.434504841558087*^9, 
   3.434757740958271*^9, 3.434779469087245*^9, 3.4347803489385405`*^9, 
   3.434780509721719*^9, 3.434780693496812*^9, 3.434806891173435*^9, 
   3.434807357510744*^9, 3.4348074300814776`*^9, 3.4348074833854675`*^9, 
   3.434809156351136*^9, 3.4348094451816263`*^9, {3.434809511937695*^9, 
   3.4348096147099667`*^9}, 3.4348110406639423`*^9, 3.4348376421980753`*^9, 
   3.4352879356787915`*^9, 3.435288241883826*^9, 3.4352882954882326`*^9, {
   3.435289268588965*^9, 3.435289289237627*^9}, 3.4357245784267445`*^9, 
   3.4357247993433924`*^9, 3.4453771408971405`*^9, 3.4453773102973475`*^9, 
   3.4453775037116065`*^9, 3.4453775463320417`*^9, 3.4453786443490148`*^9, 
   3.4453788956453495`*^9, 3.445379958872992*^9, 3.4454534699741573`*^9, 
   3.446246386947174*^9, 3.4462465357563114`*^9, 3.447011747394185*^9, 
   3.447257784159835*^9, 3.4474715350249853`*^9, 3.44747192470755*^9, 
   3.4474726836336966`*^9, 3.4474740347796035`*^9, 3.447474565662388*^9, 
   3.4474762450637565`*^9, 3.4475564321083527`*^9, 3.447559839403827*^9, 
   3.447644742017808*^9, 3.447729027374728*^9, 3.4477291115048623`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"mrsR", "\[Rule]", 
    FractionBox[
     RowBox[{"Log", "[", "2", "]"}], "mrsA"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.4157320052527103`*^9, 3.4157320672194643`*^9, 3.415980213866642*^9, 
   3.416106855939505*^9, 3.4172073517503767`*^9, 3.4172074763232927`*^9, 
   3.41721064963252*^9, 3.417227612838648*^9, 3.417232624745528*^9, 
   3.417232927766142*^9, 3.417295443901846*^9, 3.4172961379251995`*^9, 
   3.4173579376071076`*^9, 3.4204905796003776`*^9, 3.4204906185448236`*^9, 
   3.4204914073876595`*^9, 3.4204917629847994`*^9, 3.4204932996531277`*^9, 
   3.4204944616776876`*^9, 3.4204945361217637`*^9, 3.4204975226971235`*^9, 
   3.4205141026165595`*^9, {3.4205208560381317`*^9, 3.420520871669986*^9}, 
   3.4205496051906757`*^9, 3.4205537633840075`*^9, 3.4205634659986773`*^9, 
   3.4205637941874995`*^9, 3.4205706647127876`*^9, 3.4205762485331326`*^9, 
   3.420605039697742*^9, 3.42064334922644*^9, 3.420645082679882*^9, 
   3.420645537846224*^9, 3.420648872388056*^9, 3.420652123573352*^9, 
   3.42065409529991*^9, 3.420654245269574*^9, 3.4206545057237*^9, 
   3.42065640512915*^9, 3.420658054314782*^9, 3.4206587487255983`*^9, 
   3.42066189515444*^9, 3.420668140625876*^9, 3.4207308566411824`*^9, 
   3.4207558447198563`*^9, 3.4207730813556986`*^9, 3.4208154862996225`*^9, 
   3.4208196504713125`*^9, 3.4208228533891287`*^9, 3.4208256505697064`*^9, 
   3.4208280590468607`*^9, 3.4208331889286547`*^9, 3.4208342154637947`*^9, 
   3.4208358428689766`*^9, 3.4209013819827185`*^9, 3.420902867619703*^9, 
   3.420914708784157*^9, 3.4209851067040515`*^9, 3.4209911737961054`*^9, 
   3.4209940745014153`*^9, 3.420995322416054*^9, 3.4209957670276394`*^9, 
   3.421003446621303*^9, 3.4210043066136093`*^9, 3.421005004118751*^9, 
   3.421010385772533*^9, 3.421010526349065*^9, 3.421019536175187*^9, 
   3.421025990618775*^9, 3.421035180067382*^9, 3.421038338022338*^9, 
   3.4210386483561983`*^9, 3.4210766469371014`*^9, 3.4210769092438173`*^9, 
   3.421084574339949*^9, 3.421091540148447*^9, 3.421097250782157*^9, 
   3.4211012333499575`*^9, 3.421101739247223*^9, 3.421102845944433*^9, 
   3.421103113488471*^9, 3.4211040585697355`*^9, 3.4211048651073093`*^9, 
   3.421106448010275*^9, 3.421109753621661*^9, 3.421117504447647*^9, 
   3.421121782588671*^9, 3.421122942970935*^9, 3.42116237176595*^9, 
   3.4211634372355223`*^9, 3.42116640004766*^9, 3.421172220544964*^9, 
   3.421173881617214*^9, 3.421174576198268*^9, 3.421174856209736*^9, 
   3.421178265846554*^9, 3.42117935696198*^9, 3.42118063895426*^9, 
   3.421180880832416*^9, 3.4211845476287537`*^9, 3.4211853665937023`*^9, 
   3.42120501991133*^9, 3.421210369119752*^9, 3.4212521259638424`*^9, 
   3.4212543072834206`*^9, 3.421260917038587*^9, 3.421263559522893*^9, 
   3.421266489789531*^9, 3.421273383475943*^9, 3.421274927194211*^9, 
   3.421275127638681*^9, 3.421275220662944*^9, 3.421275615344172*^9, 
   3.421275808662614*^9, 3.421275854219226*^9, 3.421281965206935*^9, 
   3.4212822963568373`*^9, 3.4212823893687696`*^9, 3.421294991298321*^9, 
   3.421296109806004*^9, 3.421296193109393*^9, 3.421297673644824*^9, 
   3.421297887346099*^9, 3.421297926970704*^9, 3.421299022564028*^9, 
   3.421299124440189*^9, 3.421299177539034*^9, 3.421299254606181*^9, 
   3.421328452177224*^9, 3.4213291819863167`*^9, 3.4213292631098337`*^9, 
   3.421333738126474*^9, 3.421334346412594*^9, 3.421334435310173*^9, 
   3.421337574475609*^9, 3.421337847426385*^9, 3.4213379284878073`*^9, 
   3.421344039049293*^9, 3.421344181800234*^9, 3.421361916008464*^9, 
   3.421362036908996*^9, 3.421362091538015*^9, 3.4213621426865673`*^9, 
   3.421446853027289*^9, 3.421449282872999*^9, 3.42144948597771*^9, 
   3.4214508142012224`*^9, 3.4214511205294824`*^9, 3.4214528582288604`*^9, 
   3.4214540842028246`*^9, 3.421458390177117*^9, 3.421458512157651*^9, 
   3.421537979384047*^9, 3.4215380837492523`*^9, 3.421538122103174*^9, 
   3.42153816333622*^9, 3.421538347698352*^9, 3.4215500448391542`*^9, 
   3.4215560535765543`*^9, 3.4215561663489943`*^9, 3.421556279755726*^9, 
   3.4215893092046843`*^9, 3.4215946849001365`*^9, 3.4215947574014964`*^9, 
   3.4216269438975616`*^9, 3.422132042160532*^9, 3.422758678728303*^9, 
   3.4228122688799195`*^9, 3.422812591677986*^9, 3.422819591394086*^9, 
   3.4228196314196444`*^9, 3.422820050030706*^9, 3.422838236303606*^9, 
   3.422844930486287*^9, 3.422847466646657*^9, 3.422978332872675*^9, 
   3.423368457548118*^9, 3.42342616759564*^9, 3.42342625016107*^9, 
   3.423429173769683*^9, 3.423429247833227*^9, 3.423430712150405*^9, 
   3.4234520091745553`*^9, 3.423453432324179*^9, 3.423489319628385*^9, 
   3.423491444168583*^9, 3.423506951378669*^9, 3.423507085335947*^9, 
   3.4235073807689753`*^9, 3.423510420128129*^9, 3.423512161993331*^9, 
   3.423513508856303*^9, 3.423516601870469*^9, 3.4235182680198174`*^9, 
   3.4235388989291277`*^9, 3.423539697632003*^9, 3.423539776885717*^9, 
   3.423539845154305*^9, 3.423574507726137*^9, 3.4235766511505423`*^9, 
   3.423576982200782*^9, 3.423578730088708*^9, 3.423582816430998*^9, 
   3.423589470448403*^9, 3.423590927979869*^9, 3.423591231737336*^9, 
   3.423591568634935*^9, 3.423592476605139*^9, 3.423592645085114*^9, 
   3.423594842680585*^9, 3.423598441147337*^9, 3.42359936747261*^9, 
   3.4236048231511717`*^9, 3.423605215383172*^9, 3.423606763562573*^9, 
   3.423606837284912*^9, 3.423606911090807*^9, 3.4236071343908463`*^9, 
   3.423621388148087*^9, 3.423621550397572*^9, 3.423621805664474*^9, 
   3.423621889263383*^9, 3.423624426303749*^9, 3.423886753436702*^9, 
   3.423925367103504*^9, 3.423945556589268*^9, 3.423969326220228*^9, 
   3.423969931326192*^9, 3.423970313810922*^9, 3.423970507681962*^9, 
   3.4239718140034733`*^9, 3.423972062840502*^9, 3.423972116317178*^9, 
   3.423972161071686*^9, 3.423972226777906*^9, 3.424010831663838*^9, 
   3.424010901212319*^9, 3.424010973331723*^9, 3.424011041107853*^9, 
   3.424011100414919*^9, 3.424011161260202*^9, 3.4240234832581167`*^9, 
   3.424056535393653*^9, 3.4241290120456877`*^9, 3.424466627143018*^9, {
   3.424468218718108*^9, 3.424468247258008*^9}, 3.4244712295487223`*^9, 
   3.424472530020399*^9, 3.424472604252346*^9, 3.424472712492268*^9, {
   3.424472763256401*^9, 3.4244728316165323`*^9}, 3.4244734465602913`*^9, 
   3.424473512155505*^9, 3.424473998240664*^9, 3.4244740435525303`*^9, {
   3.424474093049444*^9, 3.424474111093136*^9}, {3.424474143687611*^9, 
   3.424474168184198*^9}, 3.424628966690035*^9, 3.4246322739136753`*^9, 
   3.427215364264597*^9, 3.4272174747351255`*^9, 3.427340099035385*^9, 
   3.427340152833314*^9, 3.427340201521655*^9, 3.4273402466008167`*^9, 
   3.427340284708881*^9, 3.427340335519989*^9, 3.4276856719947014`*^9, 
   3.4276857068634496`*^9, 3.427724055231834*^9, 3.427724193254796*^9, 
   3.427724229485448*^9, 3.4277265219303837`*^9, 3.427741127529636*^9, 
   3.427742030532072*^9, 3.42774820808856*^9, 3.4277580847538233`*^9, 
   3.427768115056615*^9, 3.427770816893899*^9, 3.427773625850941*^9, 
   3.4278144430564194`*^9, 3.427814619953729*^9, 3.427897737829998*^9, 
   3.427898089071048*^9, 3.427898263765278*^9, 3.427898688979746*^9, 
   3.427899997659336*^9, 3.427900137324594*^9, 3.427900277029908*^9, 
   3.4279015055574417`*^9, 3.42790159630431*^9, 3.427901801080596*^9, 
   3.427903198984926*^9, 3.42790386577713*^9, 3.4279039537601337`*^9, 
   3.427904067018474*^9, 3.4279042723655577`*^9, 3.4279086038211184`*^9, 
   3.427908681179268*^9, 3.427908946950828*^9, 3.427909043856306*^9, 
   3.4279093614002457`*^9, 3.427913636056398*^9, 3.427989825899887*^9, 
   3.4279899295247593`*^9, 3.4279902818072653`*^9, 3.427990956660739*^9, 
   3.427996176358389*^9, {3.427996219921651*^9, 3.427996319509347*^9}, 
   3.427999877801118*^9, 3.428000627187484*^9, {3.428000688559764*^9, 
   3.4280007956658173`*^9}, 3.4280322143070145`*^9, 3.428072102084138*^9, 
   3.4280738149087396`*^9, 3.428075684893058*^9, 3.428076277870316*^9, 
   3.428076395822536*^9, {3.4280764260610733`*^9, 3.4280764460395927`*^9}, 
   3.428076478774725*^9, 3.4280765132649393`*^9, 3.428084146268425*^9, 
   3.428085568251329*^9, 3.4280870192849503`*^9, 3.4280878513723507`*^9, 
   3.4280920774007387`*^9, 3.4280974199298224`*^9, 3.42815448145889*^9, 
   3.428155132889618*^9, 3.428293406587432*^9, 3.4282935919002028`*^9, {
   3.428293691964658*^9, 3.428293793922138*^9}, 3.428418695304459*^9, 
   3.4284505881112804`*^9, 3.4284996731815696`*^9, 3.4285494328883605`*^9, 
   3.428599096197055*^9, 3.428625183250004*^9, {3.428625262883679*^9, 
   3.428625399491365*^9}, 3.428703011308878*^9, 3.42945130418258*^9, 
   3.4294513691693287`*^9, {3.429451409508993*^9, 3.4294514323421297`*^9}, 
   3.4294567185047607`*^9, 3.429796526072294*^9, 3.429796592775548*^9, 
   3.4298964371291385`*^9, 3.4298967829526143`*^9, 3.4299694258771048`*^9, 
   3.43007376059834*^9, 3.430601019162339*^9, 3.430664618880108*^9, 
   3.430665249161268*^9, 3.430665787103334*^9, 3.4306661339882936`*^9, 
   3.4306671534535503`*^9, 3.430670339047146*^9, 3.430670749350768*^9, 
   3.430680499173746*^9, 3.4306914712932386`*^9, 3.4307053485242004`*^9, 
   3.4307054150872583`*^9, 3.4307068330199285`*^9, 3.4307085941921225`*^9, 
   3.4307118532856083`*^9, 3.43071210722523*^9, 3.430712182974966*^9, 
   3.4307122231939163`*^9, {3.43071227155019*^9, 3.430712327035873*^9}, 
   3.4311287262116833`*^9, {3.431128855297291*^9, 3.4311288760580263`*^9}, {
   3.431129068116569*^9, 3.4311290951323633`*^9}, 3.431129161121866*^9, 
   3.431129323946917*^9, 3.431132583575281*^9, 3.431132664737762*^9, 
   3.431133783672206*^9, 3.431133922595378*^9, 3.431134246471829*^9, 
   3.431134289032654*^9, 3.4311343232054243`*^9, 3.431135174581367*^9, 
   3.43113524085312*^9, 3.43113532475172*^9, 3.431136496234066*^9, 
   3.431136534373714*^9, 3.431146269660598*^9, 3.431146555718463*^9, 
   3.4311472531122637`*^9, 3.431147304220303*^9, 3.4312860939153156`*^9, 
   3.4312877236737876`*^9, 3.431292586111684*^9, 3.4312932390144696`*^9, 
   3.4312942082895575`*^9, 3.4320415644140587`*^9, 3.4327566602466183`*^9, 
   3.432756782177082*^9, 3.432756931796256*^9, 3.4327573781602917`*^9, 
   3.4327711538175383`*^9, 3.4328195855972366`*^9, 3.4328196679423585`*^9, 
   3.4328277669150686`*^9, 3.4328291276975*^9, 3.4328293783579345`*^9, 
   3.4328428115581226`*^9, 3.4328429119685*^9, 3.43285340038175*^9, 
   3.4328566637941403`*^9, 3.432918689603052*^9, 3.433016416762783*^9, 
   3.4330180247207766`*^9, 3.4330181897414827`*^9, 3.433021197416341*^9, 
   3.4330219676832066`*^9, 3.4330428151151304`*^9, 3.4330471352048*^9, 
   3.4330477454078903`*^9, 3.433080949574031*^9, 3.433081775949339*^9, 
   3.4330947632962046`*^9, 3.433095229317723*^9, 3.433096701626073*^9, 
   3.4345037329682307`*^9, 3.4345042999408827`*^9, 3.434504841568101*^9, 
   3.434757740958271*^9, 3.4347794690972586`*^9, 3.4347803489485545`*^9, 
   3.434780509731733*^9, 3.4347806935068254`*^9, 3.434806891203477*^9, 
   3.434807357530772*^9, 3.4348074301015053`*^9, 3.434807483395481*^9, 
   3.434809156353181*^9, 3.434809445186446*^9, {3.434809511941462*^9, 
   3.434809614712434*^9}, 3.4348110406688023`*^9, 3.434837642200101*^9, 
   3.4352879356888056`*^9, 3.435288241883826*^9, 3.4352882954882326`*^9, {
   3.435289268619007*^9, 3.4352892892476406`*^9}, 3.4357245784367585`*^9, 
   3.435724799353406*^9, 3.4453771408971405`*^9, 3.4453773103374043`*^9, 
   3.4453775037216206`*^9, 3.44537754635207*^9, 3.4453786444091*^9, 
   3.445378895705435*^9, 3.445379958953106*^9, 3.445453470024228*^9, 
   3.4462463869772143`*^9, 3.4462465357963653`*^9, 3.447011747404199*^9, 
   3.447257784169849*^9, 3.4474715350349994`*^9, 3.447471924717564*^9, 
   3.447472683663739*^9, 3.4474740348296747`*^9, 3.4474745656924305`*^9, 
   3.4474762451438704`*^9, 3.4475564321183667`*^9, 3.4475598394138412`*^9, 
   3.447644742057865*^9, 3.447729027404771*^9, 3.4477291115749626`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "we", " ", "want", " ", "the", " ", "maximum", " ", "attraction", " ", 
   "force", " ", "location", " ", "to", " ", "be", " ", "in", " ", "0.5", 
   "gOEPlaneDistance"}], " ", "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"solMrsVars", " ", "=", " ", 
  RowBox[{"Flatten", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"mrsR", "/.", 
          RowBox[{"Flatten", "[", "mrsLocMinForce", "]"}]}], ")"}], 
        "\[Equal]", " ", 
        RowBox[{"0.1", "gOEPlaneDistance"}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"funcMrsForce", "/.", 
          RowBox[{"Flatten", "[", "mrsLocMinForce", "]"}]}], ")"}], " ", 
        "\[Equal]", " ", 
        RowBox[{"-", "mrsMinForce"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"mrsA", ",", "mrsD"}], "}"}]}], "]"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"mrsD", "\[Rule]", 
    RowBox[{"0.28853900817779266`", " ", "mrsMinForce"}]}], ",", 
   RowBox[{"mrsA", "\[Rule]", "6.931471805599453`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.415732005294033*^9, 3.415732067261141*^9, 3.415980213909747*^9, 
   3.416106856010398*^9, 3.417207351770405*^9, 3.417207476343321*^9, 
   3.417210649652548*^9, 3.417227612888717*^9, 3.4172326265980997`*^9, 
   3.41723292778617*^9, 3.4172954439419017`*^9, 3.417296137955241*^9, 
   3.4173579376271353`*^9, 3.4204905796604614`*^9, 3.4204906185948935`*^9, 
   3.4204914074877996`*^9, 3.4204917630348697`*^9, 3.4204932997031975`*^9, 
   3.4204944617277575`*^9, 3.4204945362519455`*^9, 3.4204975227471933`*^9, 
   3.4205141027667694`*^9, {3.4205208562984953`*^9, 3.420520871920336*^9}, 
   3.4205496052407455`*^9, 3.420553763444092*^9, 3.4205634660487475`*^9, 
   3.420563794257598*^9, 3.4205706647928996`*^9, 3.4205762485631742`*^9, 
   3.4206050397377977`*^9, 3.420643349256482*^9, 3.4206450827099237`*^9, 
   3.42064553788628*^9, 3.4206488724581537`*^9, 3.4206521236234217`*^9, 
   3.420654095380022*^9, 3.420654245319644*^9, 3.4206545057737703`*^9, 
   3.4206564051992483`*^9, 3.420658054495034*^9, 3.42065874875564*^9, 
   3.4206618952045097`*^9, 3.420668140655918*^9, 3.4207308566712246`*^9, 
   3.420755844739884*^9, 3.4207730813757267`*^9, 3.420815486329664*^9, 
   3.420819650501354*^9, 3.4208228534992824`*^9, 3.42082565067986*^9, 
   3.4208280590668883`*^9, 3.4208331889586964`*^9, 3.4208342156340322`*^9, 
   3.4208358429190464`*^9, 3.4209013820027466`*^9, 3.4209028677298565`*^9, 
   3.420914708804185*^9, 3.4209851067641354`*^9, 3.4209911738862314`*^9, 
   3.420994074531458*^9, 3.4209953224460955`*^9, 3.4209957670676956`*^9, 
   3.421003446671373*^9, 3.421004306643651*^9, 3.421005004148793*^9, 
   3.421010385802575*^9, 3.421010526369093*^9, 3.421019536195215*^9, 
   3.421025990638803*^9, 3.421035180097424*^9, 3.42103833805238*^9, 
   3.42103864838624*^9, 3.421076646997185*^9, 3.4210769093139153`*^9, 
   3.4210845743599772`*^9, 3.421091540168475*^9, 3.421097250802185*^9, 
   3.421101233369985*^9, 3.421101739267251*^9, 3.4211028459644613`*^9, 
   3.421103113518513*^9, 3.421104058599777*^9, 3.4211048651273375`*^9, 
   3.421106448050331*^9, 3.4211097536617174`*^9, 3.421117504467675*^9, 
   3.421121782608699*^9, 3.421122942990963*^9, 3.4211623717859783`*^9, 
   3.421163437275578*^9, 3.421166400067688*^9, 3.421172220575006*^9, 
   3.421173881647256*^9, 3.421174576218296*^9, 3.421174856239778*^9, 
   3.421178265866582*^9, 3.421179356982008*^9, 3.421180638984302*^9, 
   3.4211808808524437`*^9, 3.421184547688838*^9, 3.421185366623744*^9, 
   3.421205019951386*^9, 3.421210369149794*^9, 3.4212521259838705`*^9, 
   3.4212543073134623`*^9, 3.421260917058615*^9, 3.421263559552935*^9, 
   3.421266489809559*^9, 3.421273384092458*^9, 3.4212749272647247`*^9, 
   3.4212751276893387`*^9, 3.421275221385804*^9, 3.421275615404317*^9, 
   3.421275809357216*^9, 3.421275854289565*^9, 3.4212819652988567`*^9, 
   3.421282296418414*^9, 3.421282389831355*^9, 3.421294991334422*^9, 
   3.421296113838934*^9, 3.421296193155212*^9, 3.4212976738706017`*^9, 
   3.4212978875559807`*^9, 3.421297927012229*^9, 3.421299022602756*^9, 
   3.421299124481653*^9, 3.421299177582962*^9, 3.421299254999393*^9, 
   3.4213284522568808`*^9, 3.421329182049407*^9, 3.4213292631507072`*^9, 
   3.421333738180135*^9, 3.4213343464808617`*^9, 3.4213344353463373`*^9, 
   3.4213375745108128`*^9, 3.4213378474674*^9, 3.4213379285268507`*^9, 
   3.421344039104006*^9, 3.421344181836104*^9, 3.4213619160434523`*^9, 
   3.421362036944951*^9, 3.4213620915829153`*^9, 3.421362142720913*^9, 
   3.421446853064749*^9, 3.421449282903591*^9, 3.4214494861094103`*^9, 
   3.421450814231264*^9, 3.4214511205495105`*^9, 3.4214528582589025`*^9, 
   3.4214540842228527`*^9, 3.4214583901971445`*^9, 3.4214585121876926`*^9, 
   3.421537979415222*^9, 3.421538083788156*^9, 3.421538122163973*^9, 
   3.421538163382209*^9, 3.4215383477354803`*^9, 3.421550044882758*^9, 
   3.421556053631109*^9, 3.421556166401181*^9, 3.421556279797748*^9, 
   3.4215893092447405`*^9, 3.421594684940192*^9, 3.4215947574315386`*^9, 
   3.421626943917592*^9, 3.422132042200588*^9, 3.422758678768358*^9, 
   3.422812268909961*^9, 3.422812591798153*^9, 3.4228195914341416`*^9, 
   3.422819631449686*^9, 3.4228200500707617`*^9, 3.4228382364037447`*^9, 
   3.422844930576412*^9, 3.4228474666766987`*^9, 3.4229783329027166`*^9, 
   3.423368457588174*^9, 3.423426167635696*^9, 3.423426250281238*^9, 
   3.423429173909879*^9, 3.423429247883297*^9, 3.423430712180447*^9, 
   3.423452009194583*^9, 3.4234534323442073`*^9, 3.4234893196584272`*^9, 
   3.423491444198625*^9, 3.423506951398697*^9, 3.423507085396031*^9, 
   3.423507380789003*^9, 3.423510420148157*^9, 3.423512162073443*^9, 
   3.423513508966457*^9, 3.423516601900511*^9, 3.423518268119957*^9, 
   3.423538898984778*^9, 3.4235396976897173`*^9, 3.4235397769413757`*^9, 
   3.42353984521418*^9, 3.423574507777824*^9, 3.423576651229288*^9, 
   3.423576982252304*^9, 3.423578730140704*^9, 3.423582816471879*^9, 
   3.423589470500718*^9, 3.423590928059352*^9, 3.423591231788457*^9, 
   3.4235915686821613`*^9, 3.4235924786340733`*^9, 3.423592645166967*^9, 
   3.423594842726429*^9, 3.423598441200501*^9, 3.423599367533255*^9, 
   3.423604823221242*^9, 3.423605215488393*^9, 3.423606763627511*^9, 
   3.423606837358631*^9, 3.4236069111396217`*^9, 3.4236071344521112`*^9, 
   3.423621388342246*^9, 3.423621550447371*^9, 3.423621805715632*^9, 
   3.4236218893135147`*^9, 3.423624426383834*^9, 3.42388675345673*^9, 
   3.423925367133546*^9, 3.4239455566193104`*^9, 3.42396932625027*^9, 
   3.4239699313562346`*^9, 3.4239703138409643`*^9, 3.423970507712004*^9, 
   3.423971814188642*^9, 3.423972063223896*^9, 3.4239721163761673`*^9, 
   3.4239721611209993`*^9, 3.4239722268748913`*^9, 3.424010831744892*^9, 
   3.424010901507317*^9, 3.424010973379777*^9, 3.42401104116918*^9, 
   3.424011100506513*^9, 3.424011161362192*^9, 3.4240234834065533`*^9, 
   3.4240565354637513`*^9, 3.4241290120957575`*^9, 3.4244666272131157`*^9, {
   3.424468218758164*^9, 3.424468247308078*^9}, 3.424471229596778*^9, 
   3.424472530068315*^9, 3.424472604282365*^9, 3.424472712532233*^9, {
   3.4244727632829237`*^9, 3.424472831671872*^9}, 3.424473446640284*^9, 
   3.424473512204101*^9, 3.4244739993403063`*^9, 3.4244740435744457`*^9, {
   3.424474093072834*^9, 3.424474111119444*^9}, {3.424474143713519*^9, 
   3.42447416822244*^9}, 3.424628966710063*^9, 3.4246322739337034`*^9, 
   3.427215364314667*^9, 3.4272174748052235`*^9, 3.427340099059978*^9, 
   3.427340152856113*^9, 3.427340201547024*^9, 3.4273402466285677`*^9, 
   3.4273402847384167`*^9, 3.4273403355527697`*^9, 3.4276856720347576`*^9, 
   3.427685706983618*^9, 3.4277240553620157`*^9, 3.4277241932848377`*^9, 
   3.4277242295655603`*^9, 3.42772652197044*^9, 3.42774112758972*^9, 
   3.4277420305721283`*^9, 3.427748208168672*^9, 3.427758084823921*^9, 
   3.4277681150866575`*^9, 3.427770816913927*^9, 3.4277736258709693`*^9, 
   3.427814443086461*^9, 3.4278146199837713`*^9, 3.427897737850026*^9, 
   3.427898089121118*^9, 3.42789826379532*^9, 3.427898689170012*^9, 
   3.427899997729434*^9, 3.4279001373746643`*^9, 3.427900277079978*^9, 
   3.427901505597498*^9, 3.4279015966347723`*^9, 3.427901801120652*^9, 
   3.4279031990049543`*^9, 3.4279038658171864`*^9, 3.427903953790176*^9, 
   3.427904067168684*^9, 3.427904272826202*^9, 3.4279086038812017`*^9, 
   3.427908681379548*^9, 3.427908947020926*^9, 3.427909043906376*^9, 
   3.4279093615204144`*^9, 3.427913636116482*^9, 3.427989825949957*^9, 
   3.4279899295648155`*^9, 3.427990281867349*^9, 3.4279909566707535`*^9, 
   3.427996176380871*^9, {3.42799621994136*^9, 3.427996319547163*^9}, 
   3.427999878973846*^9, 3.42800062721874*^9, {3.428000688580617*^9, 
   3.4280007957209673`*^9}, 3.428032214337057*^9, 3.4280721021041656`*^9, 
   3.4280738149487953`*^9, 3.428075684913086*^9, 3.4280762779456263`*^9, 
   3.428076395849515*^9, {3.428076426083096*^9, 3.4280764460683126`*^9}, 
   3.42807647882059*^9, 3.4280765132919207`*^9, 3.428084146316448*^9, 
   3.42808556829183*^9, 3.428087019332138*^9, 3.428087851444483*^9, 
   3.4280920774207664`*^9, 3.428097420039976*^9, 3.4281544815189743`*^9, 
   3.42815513291966*^9, 3.428293406652218*^9, 3.428293591917244*^9, {
   3.4282936919812517`*^9, 3.428293793956071*^9}, 3.428418695394585*^9, 
   3.42845058826149*^9, 3.4284996732716956`*^9, 3.428549432908388*^9, 
   3.428599096217083*^9, 3.4286251832716417`*^9, {3.428625262905875*^9, 
   3.428625399566565*^9}, 3.428703011428216*^9, 3.429451304211767*^9, 
   3.429451369286666*^9, {3.429451409536334*^9, 3.429451432440196*^9}, 
   3.4294567185328817`*^9, 3.4297965260923223`*^9, 3.429796592845646*^9, 
   3.429896437149166*^9, 3.4298967829826565`*^9, 3.429969425897133*^9, 
   3.430073760618368*^9, 3.430601019212409*^9, 3.430664618950206*^9, 
   3.43066524919131*^9, 3.430665787133376*^9, 3.430666134008322*^9, 
   3.430667153473578*^9, 3.4306703390972157`*^9, 3.4306707493607817`*^9, 
   3.430680499193774*^9, 3.4306914713132668`*^9, 3.4307053485442286`*^9, 
   3.4307054151173005`*^9, 3.430706833039956*^9, 3.4307085942121506`*^9, 
   3.4307118533546333`*^9, 3.4307121072519913`*^9, 3.4307121830028257`*^9, 
   3.430712223311081*^9, {3.430712271592215*^9, 3.430712327068824*^9}, 
   3.4311287262715073`*^9, {3.4311288553572903`*^9, 3.4311288761061707`*^9}, {
   3.431129068164747*^9, 3.431129095192917*^9}, 3.431129161198505*^9, 
   3.431129323997916*^9, 3.431132583864698*^9, 3.431132664801227*^9, 
   3.431133784014203*^9, 3.431133922655787*^9, 3.43113424652255*^9, 
   3.431134289104272*^9, 3.431134323260174*^9, 3.431135174679714*^9, 
   3.431135240916831*^9, 3.4311353248213*^9, 3.4311364963053617`*^9, 
   3.43113653442686*^9, 3.431146269721776*^9, 3.431146555770698*^9, 
   3.43114725317076*^9, 3.431147304280114*^9, 3.4312860939653854`*^9, 
   3.4312877237138433`*^9, 3.4312925861417255`*^9, 3.4312932390545254`*^9, 
   3.4312942083095856`*^9, 3.4320415644805613`*^9, 3.432756660266646*^9, 
   3.432756782237166*^9, 3.432756931816284*^9, 3.43275737818032*^9, 
   3.4327711538375664`*^9, 3.4328195856172647`*^9, 3.4328196680024424`*^9, 
   3.4328277669451103`*^9, 3.432829127767598*^9, 3.432829378377962*^9, 
   3.4328428115781507`*^9, 3.4328429119985423`*^9, 3.432853400401778*^9, 
   3.4328566638141685`*^9, 3.432918689633094*^9, 3.4330164167928247`*^9, 
   3.433018024760833*^9, 3.433018189781539*^9, 3.433021197436369*^9, 
   3.433021967723263*^9, 3.4330428151351585`*^9, 3.4330471352248282`*^9, 
   3.4330477454279184`*^9, 3.433080949594059*^9, 3.433081775969367*^9, 
   3.4330947633162327`*^9, 3.433095229327737*^9, 3.433096701646101*^9, 
   3.434503732988259*^9, 3.434504299960911*^9, 3.4345048415781145`*^9, 
   3.4347577410884504`*^9, 3.4347794691172867`*^9, 3.434780348968582*^9, 
   3.4347805097517605`*^9, 3.434780693526853*^9, 3.4348068912335186`*^9, 
   3.4348073575708275`*^9, 3.4348074301415615`*^9, 3.434807483415509*^9, 
   3.434809156450193*^9, 3.434809445237054*^9, {3.434809511976038*^9, 
   3.434809614765946*^9}, 3.434811041279213*^9, 3.434837642342064*^9, 
   3.435287935728861*^9, 3.4352882419238815`*^9, 3.4352882955182743`*^9, {
   3.43528926867909*^9, 3.4352892892676687`*^9}, 3.4357245784768143`*^9, 
   3.435724799373434*^9, 3.4453771409171686`*^9, 3.445377310407504*^9, 
   3.4453775037716913`*^9, 3.445377546412155*^9, 3.445378644549299*^9, 
   3.44537889576552*^9, 3.4453799591233473`*^9, 3.4454534700642853`*^9, 
   3.446246387337697*^9, 3.4462465358564453`*^9, 3.4470117474342422`*^9, 
   3.4472577841898775`*^9, 3.447471536056448*^9, 3.4474719247375927`*^9, 
   3.4474726837238245`*^9, 3.447474034919802*^9, 3.4474745657925725`*^9, 
   3.447476245223984*^9, 3.447556432128381*^9, 3.4475598394338703`*^9, 
   3.4476447421780367`*^9, 3.4477290275249424`*^9, 3.447729111625034*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"funcMrsForce", "/.", 
    RowBox[{"(", 
     RowBox[{"solMrsVars", "/.", 
      RowBox[{"mrsMinForce", "\[Rule]", " ", "10"}]}], ")"}]}], ")"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"mrsR", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"-", "0.1"}], "gOEPlaneDistance"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"mrsR", "\[Rule]", " ", 
      RowBox[{"0.5", "gOEPlaneDistance"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"mrsR", "\[Rule]", " ", 
      RowBox[{"1", "gOEPlaneDistance"}]}], "}"}]}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"80.`", ",", 
   RowBox[{"-", "1.2109375`"}], ",", 
   RowBox[{"-", "0.03902435302734375`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.4157320053276157`*^9, 3.415732067297943*^9, 3.4159802139447117`*^9, 
   3.416106856062003*^9, 3.4172073517804184`*^9, 3.4172074763533344`*^9, 
   3.417210649662562*^9, 3.417227612918759*^9, 3.4172326267082524`*^9, 
   3.4172329277961836`*^9, 3.417295443971944*^9, 3.4172961379652553`*^9, 
   3.417357937637149*^9, 3.4204905797005177`*^9, 3.4204906186349497`*^9, 
   3.4204914074978137`*^9, 3.420491763064912*^9, 3.4204932997432537`*^9, 
   3.4204944617678137`*^9, 3.4204945362819877`*^9, 3.4204975227772355`*^9, 
   3.4205141027867975`*^9, {3.4205208563385515`*^9, 3.4205208719603915`*^9}, 
   3.4205496052707877`*^9, 3.4205537635842876`*^9, 3.4205634660888033`*^9, 
   3.4205637943176813`*^9, 3.4205706648529835`*^9, 3.4205762485932164`*^9, 
   3.42060503976784*^9, 3.420643349286524*^9, 3.420645082729952*^9, 
   3.4206455379263363`*^9, 3.42064887249821*^9, 3.420652123663478*^9, 
   3.420654095430092*^9, 3.420654245369714*^9, 3.420654505803812*^9, 
   3.4206564052593317`*^9, 3.42065805453509*^9, 3.4206587487856817`*^9, 
   3.420661895224538*^9, 3.42066814068596*^9, 3.4207308567012663`*^9, 
   3.420755844749898*^9, 3.4207730813957543`*^9, 3.4208154863496923`*^9, 
   3.4208196505213823`*^9, 3.4208228535092964`*^9, 3.420825650699888*^9, 
   3.4208280590769024`*^9, 3.4208331889787245`*^9, 3.4208342156440463`*^9, 
   3.4208358430592422`*^9, 3.4209013820227747`*^9, 3.420902867739871*^9, 
   3.420914708824213*^9, 3.4209851068041916`*^9, 3.4209911739563293`*^9, 
   3.4209940745414715`*^9, 3.4209953224661236`*^9, 3.4209957670977373`*^9, 
   3.421003446681387*^9, 3.421004306653665*^9, 3.4210050041688213`*^9, 
   3.4210103858125887`*^9, 3.421010526379107*^9, 3.421019536205229*^9, 
   3.421025990648817*^9, 3.4210351801174517`*^9, 3.4210383380824223`*^9, 
   3.421038648396254*^9, 3.421076647037241*^9, 3.421076909363985*^9, 
   3.4210845743699913`*^9, 3.421091540178489*^9, 3.421097250822213*^9, 
   3.421101233390013*^9, 3.421101739287279*^9, 3.4211028459844894`*^9, 
   3.4211031135385413`*^9, 3.4211040586198053`*^9, 3.421104865137351*^9, 
   3.4211064480803733`*^9, 3.421109753671731*^9, 3.4211175044776893`*^9, 
   3.4211217826187134`*^9, 3.4211229430009775`*^9, 3.421162371795992*^9, 
   3.421163437285592*^9, 3.421166400087716*^9, 3.42117222058502*^9, 
   3.42117388165727*^9, 3.42117457622831*^9, 3.421174856249792*^9, 
   3.421178265876596*^9, 3.421179356992022*^9, 3.421180638994316*^9, 
   3.421180880872472*^9, 3.421184547698852*^9, 3.421185366643772*^9, 
   3.4212050199614*^9, 3.4212103691698217`*^9, 3.4212521260038986`*^9, 
   3.4212543073234763`*^9, 3.421260917078643*^9, 3.421263559562949*^9, 
   3.4212664898195734`*^9, 3.4212733841819487`*^9, 3.421274927298418*^9, 
   3.421275128156228*^9, 3.4212752214326897`*^9, 3.421275615445754*^9, 
   3.421275809783268*^9, 3.421275854345666*^9, 3.421281965339753*^9, 
   3.421282296586341*^9, 3.421282389863492*^9, 3.421294991364147*^9, 
   3.421296114333606*^9, 3.4212961931791*^9, 3.4212976739123173`*^9, 
   3.4212978875887623`*^9, 3.4212979270459623`*^9, 3.4212990226353893`*^9, 
   3.421299124511838*^9, 3.421299177617793*^9, 3.421299255075994*^9, 
   3.421328452295833*^9, 3.4213291820822697`*^9, 3.421329263185787*^9, 
   3.421333738207658*^9, 3.42133434650729*^9, 3.4213344353722553`*^9, 
   3.421337574537174*^9, 3.421337847496208*^9, 3.421337928555148*^9, 
   3.421344039130122*^9, 3.421344181866197*^9, 3.421361916072154*^9, 
   3.421362036973139*^9, 3.4213620918754*^9, 3.421362142749473*^9, 
   3.421446853095235*^9, 3.421449282928187*^9, 3.421449486134921*^9, 
   3.4214508142412786`*^9, 3.421451120569538*^9, 3.4214528582789307`*^9, 
   3.4214540842428803`*^9, 3.4214583902171726`*^9, 3.4214585121977067`*^9, 
   3.4215379794378643`*^9, 3.421538083819612*^9, 3.421538122195264*^9, 
   3.421538163421143*^9, 3.4215383477656937`*^9, 3.421550044918754*^9, 
   3.4215560536593018`*^9, 3.421556166430353*^9, 3.421556279826329*^9, 
   3.4215893092647686`*^9, 3.4215946849602203`*^9, 3.421594757441552*^9, 
   3.4216269439276075`*^9, 3.4221320422206163`*^9, 3.4227586788284416`*^9, 
   3.422812268940003*^9, 3.4228125918281946`*^9, 3.422819591464183*^9, 
   3.4228196314697137`*^9, 3.4228200500907893`*^9, 3.422838236423773*^9, 
   3.422844930616468*^9, 3.4228474666867123`*^9, 3.4229783329127307`*^9, 
   3.4233684576182165`*^9, 3.423426167655724*^9, 3.4234262503112803`*^9, 
   3.423429173949935*^9, 3.423429247913339*^9, 3.423430712190461*^9, 
   3.4234520092045975`*^9, 3.4234534323542213`*^9, 3.423489319668441*^9, 
   3.423491444208639*^9, 3.423506951418725*^9, 3.423507085456115*^9, 
   3.423507380809031*^9, 3.423510420168185*^9, 3.423512162153555*^9, 
   3.4235135090365553`*^9, 3.4235166019105253`*^9, 3.423518268200069*^9, 
   3.4235388990281067`*^9, 3.423539697744698*^9, 3.4235397769894457`*^9, 
   3.423539845264551*^9, 3.423574507818468*^9, 3.423576651268673*^9, 
   3.423576982318137*^9, 3.4235787301838293`*^9, 3.423582816508862*^9, 
   3.423589470546817*^9, 3.423590928171616*^9, 3.423591232636711*^9, 
   3.4235915691682253`*^9, 3.4235924786786203`*^9, 3.423592645212283*^9, 
   3.4235948427639236`*^9, 3.423598441427474*^9, 3.423599367827957*^9, 
   3.4236048236932583`*^9, 3.4236052156450663`*^9, 3.423606763662094*^9, 
   3.4236068373995457`*^9, 3.423606911173912*^9, 3.42360713463771*^9, 
   3.4236213883832493`*^9, 3.4236215504884043`*^9, 3.4236218057566843`*^9, 
   3.4236218893548403`*^9, 3.4236244264290133`*^9, 3.4238867534667435`*^9, 
   3.423925367153574*^9, 3.4239455566393385`*^9, 3.4239693262602844`*^9, 
   3.423969931366248*^9, 3.423970313850978*^9, 3.4239705077320323`*^9, 
   3.423971814239168*^9, 3.423972063272586*^9, 3.4239721164281588`*^9, 
   3.4239721611649714`*^9, 3.423972226927847*^9, 3.424010831781396*^9, 
   3.424010901541541*^9, 3.424010973418326*^9, 3.424011041218964*^9, 
   3.424011100573691*^9, 3.424011161431636*^9, 3.424023483475101*^9, 
   3.424056535503807*^9, 3.4241290121257997`*^9, 3.424466627233144*^9, {
   3.424468218778192*^9, 3.42446824733812*^9}, 3.424471229636221*^9, 
   3.424472530108276*^9, 3.4244726043685226`*^9, 3.424472712549423*^9, {
   3.4244727632998323`*^9, 3.4244728316952677`*^9}, 3.424473446680703*^9, 
   3.4244735122411203`*^9, 3.424473999401258*^9, 3.424474043586671*^9, {
   3.424474093086947*^9, 3.424474111135247*^9}, {3.42447414373287*^9, 
   3.424474168244856*^9}, 3.424628966730091*^9, 3.4246322739537315`*^9, 
   3.427215364354723*^9, 3.4272174748753214`*^9, 3.427340099146781*^9, 
   3.427340152869372*^9, 3.427340201561521*^9, 3.427340246644971*^9, 
   3.427340284757537*^9, 3.4273403355745077`*^9, 3.4276856720647993`*^9, 
   3.4276857070136595`*^9, 3.427724055382044*^9, 3.42772419331488*^9, 
   3.4277242296256437`*^9, 3.427726521990468*^9, 3.427741127719902*^9, 
   3.427742030592156*^9, 3.42774820823877*^9, 3.4277580848639774`*^9, 
   3.427768115106685*^9, 3.427770816923941*^9, 3.4277736258709693`*^9, 
   3.427814443096475*^9, 3.4278146200037994`*^9, 3.4278977378600397`*^9, 
   3.4278980891511602`*^9, 3.4278982638153477`*^9, 3.4278986892100677`*^9, 
   3.4278999977694902`*^9, 3.427900137404706*^9, 3.4279002771100197`*^9, 
   3.42790150562754*^9, 3.427901597716284*^9, 3.4279018011406803`*^9, 
   3.427903199024982*^9, 3.427903865837214*^9, 3.427903953810204*^9, 
   3.427904067629328*^9, 3.427904272886286*^9, 3.427908603931272*^9, 
   3.427908681429618*^9, 3.427908947091024*^9, 3.4279090439564457`*^9, 
   3.427909361550456*^9, 3.427913636156538*^9, 3.427989826040083*^9, 
   3.4279899296048713`*^9, 3.4279902818973913`*^9, 3.427990956680767*^9, 
   3.427996176396179*^9, {3.427996219956538*^9, 3.4279963195721903`*^9}, 
   3.427999879627741*^9, 3.428000627237026*^9, {3.4280006885950193`*^9, 
   3.428000795828292*^9}, 3.4280322143570848`*^9, 3.4280721021141796`*^9, 
   3.4280738149788375`*^9, 3.4280756849230995`*^9, 3.42807627801152*^9, 
   3.428076395943346*^9, {3.42807642609797*^9, 3.428076446089279*^9}, 
   3.428076478849689*^9, 3.428076513312838*^9, 3.428084146354989*^9, 
   3.428085568327859*^9, 3.428087019369652*^9, 3.428087851498003*^9, 
   3.4280920774407945`*^9, 3.4280974200700183`*^9, 3.428154481569044*^9, 
   3.4281551329497023`*^9, 3.4282934067135353`*^9, 3.428293591929093*^9, {
   3.4282936919933443`*^9, 3.4282937939777803`*^9}, 3.428418695474697*^9, 
   3.428450588301546*^9, 3.4284996733518076`*^9, 3.4285494329184027`*^9, 
   3.4285990962270966`*^9, 3.428625183288269*^9, {3.4286252629200163`*^9, 
   3.428625399893857*^9}, 3.428703011489483*^9, 3.4294513042331*^9, 
   3.429451369308023*^9, {3.4294514096219063`*^9, 3.429451432464016*^9}, 
   3.4294567185544024`*^9, 3.429796526102336*^9, 3.4297965928957157`*^9, 
   3.4298964371591806`*^9, 3.4298967830026846`*^9, 3.4299694259071465`*^9, 
   3.4300737606383963`*^9, 3.4306010192624793`*^9, 3.430664619000276*^9, 
   3.430665249231366*^9, 3.430665787163418*^9, 3.43066613402835*^9, 
   3.430667153483592*^9, 3.4306703391272583`*^9, 3.43067074938081*^9, 
   3.4306804992037888`*^9, 3.4306914713232803`*^9, 3.430705348554242*^9, 
   3.4307054151273146`*^9, 3.4307068330499706`*^9, 3.4307085942321787`*^9, 
   3.430711853413973*^9, 3.430712107270297*^9, 3.4307121830208273`*^9, 
   3.430712223432012*^9, {3.430712271620833*^9, 3.4307123270893507`*^9}, 
   3.431128726314254*^9, {3.4311288554076223`*^9, 3.431128876151305*^9}, {
   3.4311290682039433`*^9, 3.4311290952392673`*^9}, 3.431129161277359*^9, 
   3.431129324042931*^9, 3.431132583909019*^9, 3.431132664859482*^9, 
   3.431133784057261*^9, 3.431133922705736*^9, 3.4311342465638437`*^9, 
   3.431134289162685*^9, 3.4311343233051033`*^9, 3.431135174731963*^9, 
   3.431135240966556*^9, 3.431135324866919*^9, 3.431136496369192*^9, 
   3.431136534469583*^9, 3.431146269775365*^9, 3.431146555815302*^9, 
   3.431147253221833*^9, 3.431147304331457*^9, 3.4312860940655255`*^9, 
   3.4312877237538996`*^9, 3.4312925861517396`*^9, 3.43129323906454*^9, 
   3.4312942083296137`*^9, 3.432041564540307*^9, 3.432756660286674*^9, 
   3.4327567822772217`*^9, 3.43275693185634*^9, 3.4327573781903343`*^9, 
   3.4327711538475804`*^9, 3.4328195856372924`*^9, 3.4328196680124564`*^9, 
   3.4328277669551244`*^9, 3.4328291277776127`*^9, 3.4328293783879766`*^9, 
   3.4328428115881643`*^9, 3.4328429120085564`*^9, 3.4328534004218063`*^9, 
   3.432856663834196*^9, 3.432918689643108*^9, 3.433016416802839*^9, 
   3.433018024800889*^9, 3.433018189801567*^9, 3.4330211974463825`*^9, 
   3.4330219677533045`*^9, 3.433042815145172*^9, 3.4330471352348423`*^9, 
   3.433047745437932*^9, 3.4330809496040726`*^9, 3.4330817759793806`*^9, 
   3.4330947633262467`*^9, 3.433095229347765*^9, 3.4330967016561146`*^9, 
   3.434503732998273*^9, 3.434504299970925*^9, 3.434504841588129*^9, 
   3.434757741168561*^9, 3.4347794691273003`*^9, 3.43478035058082*^9, 
   3.434780509761774*^9, 3.434780693546881*^9, 3.4348068912535467`*^9, 
   3.4348073575908556`*^9, 3.4348074301716027`*^9, 3.434807483425523*^9, 
   3.434809156542674*^9, 3.434809445265036*^9, {3.4348095120012407`*^9, 
   3.434809614807073*^9}, 3.434811041463992*^9, 3.434837642470676*^9, 
   3.4352879361794863`*^9, 3.435288241943909*^9, 3.435288295528288*^9, {
   3.435289268719146*^9, 3.4352892892776823`*^9}, 3.4357245784968414`*^9, 
   3.4357247993834476`*^9, 3.445377140927183*^9, 3.445377310447561*^9, 
   3.4453775038017344`*^9, 3.445377546502283*^9, 3.44537864459937*^9, 
   3.4453788959357615`*^9, 3.445379959193446*^9, 3.4454534701443987`*^9, 
   3.446246387417804*^9, 3.446246535916526*^9, 3.447011747574441*^9, 
   3.4472577841898775`*^9, 3.4474715365872*^9, 3.4474719247476063`*^9, 
   3.4474726837738953`*^9, 3.4474740349798875`*^9, 3.4474745659327717`*^9, 
   3.447476245284069*^9, 3.4475564321383953`*^9, 3.4475598394438844`*^9, 
   3.4476447422381225`*^9, 3.4477290275649996`*^9, 3.4477291119254627`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"funcMrsForce", "/.", 
    RowBox[{"(", 
     RowBox[{"solMrsVars", "/.", 
      RowBox[{"mrsMinForce", "\[Rule]", " ", "10"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"mrsR", ",", 
     RowBox[{
      RowBox[{"-", "0.1"}], "gOEPlaneDistance"}], ",", 
     RowBox[{"0.5", "gOEPlaneDistance"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k0VVscB3AZMkVkHjLcI5R5ilL9bsYGFUmUIhTPkCRlTANRpkSGEkWm
FyHzvS5nN5CQMusiFaEMhUKEt99fZ33W2WevdX77t7/7HHnnc4fPsLKwsBBr
WFj+v87YlCo4nnxATuRrMLxvKVDdvxnKJC2nkd62o7QrKgrULcU8uuvfpJFz
glzug4sE9bvfh7237qaRCsPu7842EVQPFv+Ll1XSSDDgVRX1wBYrbTlz7D4p
7ZAleKeAQvUwVQ7eWpFKVpa5WK7Xl6d6Zgr39nglkY9OvUh0/ihNVXUbmrQy
SCLrfn9MN7opTZ1QLWVrYUsiz5wMlvPXlqZ6VR/SQPfvkskFdqH9kVJUr3dR
EfmNiaRDxKDWna2SVK9lFr1AhQSSfSSr0e2xGLWvlEnoVceSqn8yLq5Ub6Dm
Ch6vE7KKJd9bBN855L2B6uPzwW7mWwzZdFt/53diA3Wtem9ssVQMubTV/tjS
bUGq9r9d85uvRJFj9XK7IzwFqFEP3zfLmEWSlncpN8RPraNuj2m4wNV5lVSQ
eFN5n8lG5Rg35R/1ukqKHC5JfnmUjfp+b31+PcdV8uWLtJvnO1ipLfw3azjO
hZK0hINzx1vXUAmOsNuLesHk/SGnJyV3V6F9OkB/+KUf+fTKRU6jinl4rpq4
8WOoIylqvdXttOtnqBQ7q2p2+QS5TzTmoLDnIBSymhsWBR8jF6fOUnLW9UNK
76JdaIA1+XP9r8GYY11QKRhlFdS4k2TXOp7iqItghGj99ei+JRS2UPQcmttI
YqB5DZeaD9CtHFIfvv9JujqLrJyd9AGq3P1v6+KnyfxRh8WOp+dBblV5uObg
DKk+Mz3zUP0CvJYplfj8ZpY04BQf1te8BI+Nzh+yq5ojLbRON7jphEAGZ8Tw
pXN/yRqj0Poh6XDo3dmir1DIhrL3VJjq3giHA6HJgqmc7Cjm4ER9+GQ49P0S
M8t1Zkcnjh9v2FR3A971UjYkinGglfNbX7s5RsKSYohXVchaRM2cahzPjILU
jggeP11uNHRFYyQwMR6+PEmSmrfnR72s+xWzXseDoG9yk00BP2q54eratBQP
V3JEf9kt8qPy6PQRydN3oDO04PuBlPUoPIV3tEY3AZoFFpwvuwogxeLR0eWu
RGAPO7S9LVEQ/fPx4bdr4ing3+m7ItYqhDb48s1p700BMqRYe8OUEGJwBLMO
B6bA+Z0tN8b4hJGg2lEps74UcLmWvLj5gDCiB687wJORCvwBt/XZmoQRn0Rg
SQJxH3QbWSOUakVQqfVh/8fq6cDaL/Bg/pYYOjFKhh1xTAfDCF+XghwxxBms
Fs8Rnw65nh5lu57j+1lc/7pNp0OD6x4b9gUxxDFdx1QpzwCG4oeL/KfFkepr
EVmm9CP4YHotWXerBAo9ff26c1Ym+Bx89tf/pSS6SmM5S6VnwpTmtEY3UxKF
8V+xlWnPBM57BeriM5LoZnWwKnNNFgRImIyZy0mhhHUXu62cssDkSDDDLlgK
5ZS7bdkt9xhqpi22WatKoxb2A+2yGdnA8WzNgFHQRtR6rJmxXJENDmcob03i
NqK2or15fW+zYXPdtIFa1kbUbWcWkrKcDa+tKrqevdmIPhWC4vqTObB70tIx
RkwG/TqiHbQilQvjFvccU4tkkFSOGGXgXh5kP1FMSG6SRT+jJM++KMsDZcP+
oZV+WfTKZ2N13ts8GAyr3GDxQxZ57SAO+q7JBx39wbImbjnE6FAP4nTPB22F
LaYX1OSQA6tZu5bBv3CtMD1vv68cynL0ux7R/QRMlX9we8zIoUum/m89fz6B
SVuhRNZFObRPJUjciqcAnCnaf+LWyKPZuStFUrsKIERhKDJMQB6ZxEUzS3IK
wOlVx0C/mjz6ysjS7vMrhNLCWw3HXOWRsmTbFw2hItDrYH9W3yqPbLmWE4+p
FMHdaD+lG53yKGJO2TTMuAi6NbPVDJn4+fared0XikCk/yh39Fd5lBWt6XW5
swhOKFsM0JfkkfTy7d9NScVQkh/30UmRgrh8lNh1YkpAzuLyEbaLFCTnVttv
nloC4WXrPz0OpCB9B+uKE9klEERRmDYMpSBXiyuuEYwSYGaLPz8cSUH1yj2N
HyZKYPDQ+JDUPQq6/jki9uqBZzBxOecapYaC/h4eEW3lLwWP0g5v7T8UFJJQ
93BEqhRqK8NmZJYpaLktWXlVuRTmLDhvsq4h0Iql+XZN41K4fCeCp5iLQCyH
8k8m+JdCSH3PsQwxArHv98g++qkUXqhbnRvQIVB4lJHauclS2HN1ZXmXPoE4
miQrIxdLYZL0JFK3E2jt3ubX1cJloGXGPKy1m0Bc5qrjknvLgEVwXIHlIIHW
GU9pDT4rg4qlX5GirgSKud5An68rg06jrfD7HwLxvcgwFmgpA97eLN4WTwLx
7z5ks3ukDLivMFidzxNIAEoCHkuWw0HrVtAMIZCwoS/pFlYOpxuM40/EE+hu
0L49V+PLIUb8sxJKIJAIndKWml4OR/0+WUgnEUh0W8eXN1XlwNFKPVF3j0Di
+rprVSfKwUZ20P5JFoE26sxZ/DxSAQxys6JyGYF0DWYim50qoN9oYpa/gkAW
O6de5HpXwLfzGqw/KgkUZD5icPJmBRQnhS3epxOo275boammApLVrAQfPyfQ
5Kl2x5zGCtiwUfX+kZe4nq6t9692VcAO4dSU1VcE0vFpEND/UQEhZm+4jRoJ
FB9e+fcxpRLkb69cDmwlUN6tUv0rGpWwN2b25Pw7AtXFFfke31EJ6szdX73b
CDSRmjsmcLQS8t5Mse7vJNDep8mdl29VguCrO8rVHwjE2n2p0PZnJUQI81z2
HCKQRJ/vqPZyJRysYVZGDBNI85M3hZ+nCri+Mf+kfSWQw3fX1FdEFTgX6JWV
jxKoZuVouJZtFfw9MJD6cJxA7WzW5LrTVSBO7XwePUGg71yHFkd9qqBvixjh
O4nrKWTukxFVBXWtFTlqPwjkp6R/greuCiy8X1mcmiFQtKpOykhTFRgKPPkg
M0ugLC2N9uc9VcAQftvSg91mqLQnYLoKaKVefw1+E2iMSoRZr1SBbI66yWds
FjPZOnXeaigpreYKnyOQuqWY7leFatgqFipDmyeQqY3QOaRVDdxFzKD9CwQ+
n9Y/SdtVDe4juz16saNOc8odtquGvLu7xb/8IVCmO5u92plqEH7Q89lhkUDV
3qtJXL7V8ML7wpFu7NGAeV4yuhpuskXuq1gikCorVxAjpRpGx9O5RP8SyCda
fIz2uBrE+Y7o+mIvpm97VV5TDQnDQiPSywTapbRPu/R1NfAef+/niR1WcvxR
cUc1mEffuV6Bve5lcMiT8WpQLXZR3bFCICuLmO9589UQuJevLQA7ueuBXQ4b
DaxnJzieYTMdnjZkraeB4bjZu2Fs2bFa3UdSNFhrcEJLeJVAp8+3ZqUr0UCo
wEMTsPMXPwqk6dAg8kvh+zPYk2E/QlOBBmH7j4vexNbmY5lM2k8DJ4U8jlxs
/2QB+0RbGgyHvsoisRmy8m/iXWhw1ujTdCc2y79a+nHnaKClvmn+K7aptlFO
dDANzvTRK2ewo2oOC92KpMElsl53CbvVxOVaRCINtqi7XVzFFmq98CPsIQ36
7WtD/redbfjJawU0eOA4dPD/8Q8+3W0OraLBCb3pH//P99k9Z1vISxrIoCWX
EWzF2Yq8wHc02NAiXNyF7RHSIOLfRwMksL8LYRdz9IT5jdJAU+cJMw/7V9zo
9PlZGrA2bn8ZhW0gvuB4bpUGGTasie7YlzO5Wr146WBylO2gCfaLLRI7PMTo
oL9954Ik9tryzU/cCDq0uxcmTeJ679+5XfyMBh3yzfdtYWDHN+yLcDakwwNt
PnoEduch+1+O5nRYjhzbcwBb4oOn80lrOqTmtDDXY2eNx+yy86RDFekkdguv
/6hfeqGNPx1EY4ffALbqylNJ6zA6xDcK3Z7B/VQh8G7uQBoef3fxlMX//XVv
8PT+PDrsOOB1cRb34y7iZ/ueMjrkvF4pSMZu1BMsNm6mwzERZlwb7l8+Un7j
7h46CP9bb+SOfXiPdvSuITpkhYkpL+P+7ztu7bZtiQ5cBULJEthTV5JkNVRq
QHSs459NeD9pc+fGqurXwLyil+BDvN/8EyqXNhvXALulJ7cINktOT4+CPR6f
9M/c7194fZsk4iWja+Bt/h6VGLzfUZpXkVRqDZznYVQxpwnkfZZskc6pAQHm
u/WbsJsEznDLkjVw1N5Y7ynOi6u2JdeJ2RqIe+bd9X++qG9my1RgYUDuVhGg
4fzpW7QhN/ExwP5Ra+qX7wTamrG0pKTEANkmT/XN33AeDptdVLVngFW5pGME
zrP7lfcS1f5hwLUvOxsScd6Z35x4pn6RARn9c9R0nIdZKglTmrcZUPki53r2
Z9yPvgNuei8ZMMWIKQkfIFD96oXju1Rq4aCCvf9tnK++bQ0BYFALikUD0qc6
CCT3WCKFaloL1gHGkmrtBAoxIzuMHGvh0hlLNQbOa+1YngPmibXQXduuVNxE
oAzJTLBcqoW7QodWxklcT71WBefmOnAbHlvpz8PrE6136UZPHVyOUmU5kYvf
//OD1/lDdXBqHx16swk0HOPp8WOpDp6PfbjRmEkgy2GukhBVEpIdC6/fTCOQ
cqKxYUosCQ/PTTBvxhHobEC/8ogSAqFXU2cf+hLoOBHfNq+GIKPcaarZh0B7
Wo2DuPF/xjhHH/ecN4EUFAqaVakIODM/SRvj85f5LtD7gh0CTT7GKnIhkJmS
WDnLLQR9qFrk4BGcP91WIPUdQWMg7xKJvw925yiiop8IjuqMDftrEcjFb4lq
NI9AR6DXSU0Dn2cbcozc2Z+DqVKq/J0tBNI4tGBaJfMcfGXiBXbIE3iiDAtr
6+dwYNdGFwo/gRzp48eiGc8hgGeVzWyEgh5m3PBbinsBr8OCuaLiKeiXhPaU
luorcDxjvmlblzxalDzXVPS0HrqLdl3hFMXfX5t/F2Ueeg3T3I3nIw3l0A8G
7xyzqxHcemizgx0yKIUt7ZrHkSbo/Geqvl5vI7K3vSDiM9sMHoMT7i7+Uui9
Zj8v49JbMDERKZX7KIGcxOJ4QiXfgfcUZ7SfujhysetX3G//HsZjNX6lJomi
qVFaYJBUG4zZ+k94KIkgzpWa98PjbdDm3MqqWSiEFo6uPeZb1A7Xnq2mlNlv
QEe4Y9lUznZABvGpK5UiiHYZGZTK7OgEjhvvFmxerkcsdSoJesudwBofoHrh
Nh+yRMaXIlu7IMxERy7MihcFcmRH/73TDTOGruW59txoXTb15QOrHphi7Vp3
Lo4Tqb1Zs+ov3wuozWbBoIYDKWnxel0a6oUvgrfXtCqwo2LZbQPFFR/g2tN/
bbijWVGm22Mf4XAmSB3xYhEQXYO8Zmz0Hpj0Qf6NKd/8nFWynk1txUGkH5bL
lUsPSy2Tc7YWCya9/fDRyDL2/dgimcCRL3w0ZQA2n/84nji2QDK2KetluX6E
KCe3F2Nf58i6kp8RgsqD0BxXcq9o82/yUNFAf82fQShT7L9d6zVLqj/Sm+zE
9vQloqKw1yXELk9ihyyNh9tiN17cKSO3OAijiCVk2nOWNNqZ7hiOzbJg4LMJ
e2vLiS8WS4NwWmDIJ9Z9lpT+3jc68HcQJktFOk66zpKLfToLc9isLtcHtmB/
eBvNJbA8CMwtPmPzZ2bJ5GeGm42wtZdbV+9grw9M88jFvht9T7fh9CzJymU/
6b0yCO57nCrVXWbJT39KlyOxt4x9bFxyniXJcR7+TOzvMQN9jdgh7+jqHdj1
n06yuWD/Tpb00V8dBK47HnYpTrNk503fq5bY3AY/vU9jlwY1xbtjFzDnbmhh
ezsEPUvDVuGPrGg+NUtaWLY/L8cueiDQmoqtYrSl/S22NEVq9Aw2j+71LyPY
1um5LDrYY5uYM6vYinxlkizY/wHeyBn+
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-0.1, 0.5}, {-9.999996088137713, 10.268422966783383`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.4157320053612833`*^9, 3.4157320673386507`*^9, 3.415980213982648*^9, 
   3.416106856112652*^9, 3.417207351830488*^9, 3.417207476403404*^9, 
   3.417210649712631*^9, 3.41722761299887*^9, 3.4172326267683363`*^9, 
   3.4172329278662815`*^9, 3.417295444042041*^9, 3.4172961380253386`*^9, 
   3.4173579376972322`*^9, 3.4204905797906437`*^9, 3.4204906187150617`*^9, 
   3.4204914075679116`*^9, 3.420491763155038*^9, 3.4204932998433933`*^9, 
   3.4204944618579397`*^9, 3.4204945363520856`*^9, 3.4204975228573475`*^9, 
   3.4205141028568954`*^9, {3.4205208564286776`*^9, 3.4205208720405035`*^9}, 
   3.4205496053508997`*^9, 3.420553763694442*^9, 3.4205634661789293`*^9, 
   3.4205637944278355`*^9, 3.4205706649631376`*^9, 3.4205762486533003`*^9, 
   3.4206050398379383`*^9, 3.4206433493566217`*^9, 3.420645082790036*^9, 
   3.420645538006448*^9, 3.420648872588336*^9, 3.420652123753604*^9, 
   3.420654095540246*^9, 3.4206542454698544`*^9, 3.420654505883924*^9, 
   3.4206564053594723`*^9, 3.420658054715342*^9, 3.4206587488557796`*^9, 
   3.420661895294636*^9, 3.4206681407560577`*^9, 3.4207308567613506`*^9, 
   3.4207558448099823`*^9, 3.4207730814458246`*^9, 3.4208154864398184`*^9, 
   3.4208196505914803`*^9, 3.4208228535693803`*^9, 3.4208256507499585`*^9, 
   3.4208280591369867`*^9, 3.4208331890488224`*^9, 3.4208342156941166`*^9, 
   3.4208358431193266`*^9, 3.4209013820928726`*^9, 3.420902867799955*^9, 
   3.420914708894311*^9, 3.4209851069443874`*^9, 3.42099117405647*^9, 
   3.4209940746516256`*^9, 3.4209953228967257`*^9, 3.42099576717785*^9, 
   3.421003446761499*^9, 3.421004306733777*^9, 3.4210050042289047`*^9, 
   3.421010385882687*^9, 3.421010526449205*^9, 3.421019536265313*^9, 
   3.421025990708901*^9, 3.421035180167522*^9, 3.4210383381425056`*^9, 
   3.421038648456338*^9, 3.421076647127367*^9, 3.421076909464125*^9, 
   3.421084574440089*^9, 3.421091540238573*^9, 3.421097250872283*^9, 
   3.421101233450097*^9, 3.4211017393473635`*^9, 3.4211028460445733`*^9, 
   3.421103113588611*^9, 3.421104058679889*^9, 3.421104865207449*^9, 
   3.421106448150471*^9, 3.421109753741829*^9, 3.421117504537773*^9, 
   3.4211217826888113`*^9, 3.4211229430710754`*^9, 3.42116237186609*^9, 
   3.42116343735569*^9, 3.421166400157814*^9, 3.421172220655118*^9, 
   3.421173881747396*^9, 3.421174576298408*^9, 3.421174856309876*^9, 
   3.