VirusPercolationTheory_Example.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    149494,       2865]
NotebookOptionsPosition[    146699,       2807]
NotebookOutlinePosition[    147196,       2825]
CellTagsIndexPosition[    147153,       2822]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
\[Section] Percolation Theory Reveals Biophysics Properties of Virus-like \
Particles\
\>", "Title",
 CellDingbat->None,
 CellChangeTimes->CompressedData["
1:eJwdxV1IU2EYAOA5JMhs7dgyaYUb5rDQ44rSDYT2hszYhdNhBqsmtZlQdhwF
lRb9M8qgQCVrFYJ5kSWbgSH0A7KLRdHmXKPl2FizsPrO0RXJrCDoe7+Lh0d7
uMvWLpfJZDoK/8JPzyreEujdN5LAZa7bOSX967Mtf/DC4oWVHP1srqEAt/j8
SnxY6y3GEzuHLrXRTTVP2fetnGfDOwKNyuRN3Hfe+VNNbx7sYFecrhDq6Vcf
rziBu9VlzRZ6UfdaG56rnnHh0bCmHZ9YuvXkc4iA3REYw/eqGuazdIsn8g0X
o5oqLkwgdcxfjZsyqw24/u6gEf9h330IrynlO/DtvS0n8XDRJNt52XiDpzti
GfZI8LUqFiMQjw6U4IrnPUfx9xc4Ae8WXlR+oF/MT7PnJmcO4lOKQgdeMvqw
fzxFwGCcYm/riVj3pwkMbZTYiYl7v60ZAst3yv/hBcp+X3qZQF+VxK5zNQWP
/CXAv/r+Bk/uejTdSb+2XhNl5wUEW54IKvki+6M31BqRizDnnWWPrcs/Hlkl
gi++md3Y9ODXmTIRTKXxJTypNw9Ulosg8OPsT7U7PPZTIgQ3+dmjXfHWzusi
1K/JsnVbOR2pk8DgNrNb1Fcc82YJ9vRl2/CXC6HE8DkJAk53Cj9Qq13E9Zlg
Fv8PIF5CYA==
  "],
 FontSize->24,
 FontColor->RGBColor[
  0.8, 0.043137254901960784`, 
   0.00784313725490196],ExpressionUUID->"389d736b-f1db-4aba-ab14-\
d0b24ba87543"],

Cell["\<\
This is the core code provided to reviewers of the above listed paper, \
allowing them to reproduce the primary results for the triangular tiling case.

A more thorough how-to guide will be published in a Wolfram \
Research-affiliated press release shortly after publication, but all basic \
elements associated with methodology verification are shown below.

\tNicholas Brunk - nbrunk@wolfram.com - nbrunk90@gmail.com - 2021.02.27\
\>", "Text",
 CellChangeTimes->{{3.823441799748436*^9, 3.8234418464535837`*^9}, {
  3.823441898408615*^9, 3.823441909521928*^9}, {3.8234422251096287`*^9, 
  3.8234422260823812`*^9}, {3.8234712930703793`*^9, 3.8234713092802205`*^9}, {
  3.823471528999668*^9, 
  3.823471567956192*^9}},ExpressionUUID->"9b75ec90-8169-44fa-b00d-\
ecec0ba7b04b"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\[Section] Initialization",
 FontFamily->"Gill Sans MT",
 FontSize->20,
 FontColor->RGBColor[
  0.5019607843137255, 0.5019607843137255, 0.5019607843137255]]], "Chapter",
 CellDingbat->None,
 CellChangeTimes->{{3.595597518474474*^9, 3.595597525135686*^9}, {
   3.595601844699707*^9, 3.595601865303455*^9}, {3.5956019994089413`*^9, 
   3.595602002248838*^9}, {3.5956020534900255`*^9, 3.5956021008166056`*^9}, {
   3.5957627009753237`*^9, 3.5957627015378723`*^9}, {3.596670000540968*^9, 
   3.5966700708769903`*^9}, {3.596672907109214*^9, 3.5966729072372212`*^9}, {
   3.5967558252645454`*^9, 3.596755856208315*^9}, {3.5967678810970993`*^9, 
   3.596767888608529*^9}, {3.5967680385371046`*^9, 3.5967680410252466`*^9}, {
   3.597606236498621*^9, 3.5976062460740175`*^9}, {3.597631282221232*^9, 
   3.5976313025163927`*^9}, {3.597699433025747*^9, 3.597699453481917*^9}, {
   3.5976995204337463`*^9, 3.5976995327374496`*^9}, {3.597699850073601*^9, 
   3.59769989744131*^9}, {3.5976999946418695`*^9, 3.5976999977210455`*^9}, {
   3.5977595777971663`*^9, 3.5977595830571737`*^9}, {3.601244326242998*^9, 
   3.6012443566507373`*^9}, {3.6012450118352118`*^9, 
   3.6012450405468535`*^9}, {3.6012486138572354`*^9, 
   3.6012486149692993`*^9}, {3.6012490065536966`*^9, 
   3.6012490083768005`*^9}, {3.6058902051143913`*^9, 
   3.6058902060069847`*^9}, {3.606764158514916*^9, 3.606764159378494*^9}, {
   3.6077895088658266`*^9, 3.6077895451749225`*^9}, {3.619618164595708*^9, 
   3.619618167380563*^9}, {3.6209434105122356`*^9, 3.620943439304343*^9}, {
   3.6209557732577953`*^9, 3.6209557930028725`*^9}, {3.624571766062687*^9, 
   3.6245717674377537`*^9}, {3.625353910425152*^9, 3.6253539108001566`*^9}, {
   3.6300726801276455`*^9, 3.630072681151328*^9}, {3.642476444916053*^9, 
   3.6424764547225647`*^9}, {3.6859301708244066`*^9, 3.685930177859125*^9}, {
   3.686083905184844*^9, 3.6860839062445517`*^9}, {3.6862731265022984`*^9, 
   3.68627312673645*^9}, 3.686273174195179*^9, {3.6862735139392924`*^9, 
   3.686273522520022*^9}, {3.686710351523246*^9, 3.6867103515292854`*^9}, {
   3.686711633769001*^9, 3.6867116356956377`*^9}, {3.689668138010706*^9, 
   3.6896681412518625`*^9}, {3.697643498493498*^9, 3.6976435088287935`*^9}, {
   3.703620716478424*^9, 3.7036207292145166`*^9}, {3.7038135747713623`*^9, 
   3.7038136022462034`*^9}, {3.7038144861268363`*^9, 3.703814502505977*^9}, {
   3.703815790684084*^9, 3.7038158294360304`*^9}, 3.7082944723017716`*^9, {
   3.713617560706815*^9, 3.7136175870175123`*^9}, {3.713617620930928*^9, 
   3.7136176247536073`*^9}, {3.713618010864727*^9, 3.713618015057661*^9}, {
   3.7136180456811733`*^9, 3.7136180541612024`*^9}},
 FontSize->24,
 FontColor->RGBColor[
  0.8, 0.043137254901960784`, 
   0.00784313725490196],ExpressionUUID->"044b0576-fb03-41e2-95b8-\
62f235722440"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Graph Definition",
 FontFamily->"Gill Sans MT",
 FontSize->20]], "Subchapter",
 CellDingbat->None,
 CellChangeTimes->{{3.595762764853544*^9, 3.5957627863858795`*^9}, 
   3.595762836404025*^9, {3.595969506252259*^9, 3.5959695064554095`*^9}, {
   3.596670194877083*^9, 3.596670200756419*^9}, {3.596674252984194*^9, 
   3.596674285397047*^9}, {3.5967295364129086`*^9, 3.5967295397490997`*^9}, {
   3.596742168530424*^9, 3.5967421793550434`*^9}, 3.5967559206089983`*^9, {
   3.5967559540329103`*^9, 3.5967559541229153`*^9}, {3.596756013168292*^9, 
   3.5967560132963*^9}, {3.596756061297045*^9, 3.5967560769609413`*^9}, {
   3.5967561352562757`*^9, 3.596756174864541*^9}, {3.5967562363930607`*^9, 
   3.596756248224737*^9}, {3.596756306793087*^9, 3.596756307569131*^9}, {
   3.5967567111842165`*^9, 3.5967567119602613`*^9}, {3.596757727056321*^9, 
   3.5967577469364586`*^9}, {3.596757842448921*^9, 3.5967578666813073`*^9}, {
   3.596763767103792*^9, 3.5967637791844835`*^9}, {3.5978462710755863`*^9, 
   3.5978462752945733`*^9}, {3.5979330482852545`*^9, 
   3.5979330523724885`*^9}, {3.5979368587412004`*^9, 3.59793686625263*^9}, {
   3.5980468618106575`*^9, 3.598046863145734*^9}, {3.5986405603852663`*^9, 
   3.5986405721609397`*^9}, {3.5986412739460793`*^9, 
   3.5986412835126266`*^9}, {3.598712856420992*^9, 3.5987128590105963`*^9}, {
   3.60124838840134*^9, 3.6012483902484455`*^9}, {3.601248751121086*^9, 
   3.6012487588565288`*^9}, {3.6014728440934887`*^9, 
   3.6014728543439536`*^9}, {3.605909661733648*^9, 3.605909679563487*^9}, 
   3.6059097447317543`*^9, {3.606591568941677*^9, 3.606591627976033*^9}, {
   3.608251951998226*^9, 3.608251978636903*^9}, {3.6094302021719437`*^9, 
   3.6094302034376297`*^9}, {3.624409689719271*^9, 3.6244096945654874`*^9}, {
   3.6246434445633183`*^9, 3.624643448723078*^9}, {3.643370878517627*^9, 
   3.6433708786777296`*^9}, {3.685932208298842*^9, 3.6859322102271495`*^9}, {
   3.6860836313349705`*^9, 3.686083635965065*^9}, {3.686083741479599*^9, 
   3.6860837921823034`*^9}, {3.686195640492125*^9, 3.686195661382087*^9}, {
   3.6862732645455747`*^9, 3.68627329553129*^9}, {3.686281339172756*^9, 
   3.686281341976631*^9}, {3.6866928668580933`*^9, 3.6866928711560497`*^9}, {
   3.6866929458631597`*^9, 3.6866929512071733`*^9}, {3.6866929866934595`*^9, 
   3.6866929930687723`*^9}, {3.689463882547932*^9, 3.6894638849055004`*^9}, {
   3.6980920599341917`*^9, 3.6980920623507633`*^9}, {3.703620870838793*^9, 
   3.7036208729484453`*^9}, {3.7036234968730326`*^9, 
   3.7036234978263893`*^9}, {3.703814523494641*^9, 3.7038145260521197`*^9}, {
   3.7136181023233213`*^9, 3.713618151193591*^9}, {3.713618183544981*^9, 
   3.7136181851684475`*^9}, {3.7136182251361246`*^9, 
   3.7136182366879234`*^9}, {3.713618351977008*^9, 3.7136183624242964`*^9}, {
   3.823442014777633*^9, 3.823442017888192*^9}, 3.82346658552894*^9},
 FontColor->GrayLevel[
  0],ExpressionUUID->"5edd6e06-60b3-4177-aa14-bd880b51eef1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g1PariacotoVirus", "=", "\[IndentingNewLine]", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "edgeList", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"edgeList", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"DeleteCases", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<1\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<2\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<1\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<6\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<1\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<7\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<2\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<3\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<2\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<9\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<3\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<4\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<3\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<10\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<4\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<5\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<4\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<12\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<5\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<6\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<5\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<13\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<6\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<15\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<7\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<8\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<7\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<17\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<8\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<9\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<8\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<20\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<9\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<23\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<10\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<11\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<10\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<24\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<11\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<12\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<11\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<27\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<12\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<30\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<13\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<14\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<13\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<31\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<14\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<15\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<14\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<34\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<15\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<16\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<16\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<17\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<16\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<36\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<17\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<18\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<18\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<19\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<18\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<37\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<19\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<20\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<19\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<40\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<20\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<21\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<21\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<22\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<21\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<41\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<22\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<23\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<22\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<44\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<23\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<24\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<24\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<25\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<25\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<26\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<25\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<44\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<26\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<27\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<26\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<45\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<27\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<28\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<28\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<29\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<28\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<50\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<29\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<30\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<29\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<51\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<30\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<31\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<31\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<32\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<32\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<33\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<32\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<51\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<33\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<34\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<33\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<54\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<34\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<35\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<35\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<36\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<35\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<58\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<36\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<37\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<37\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<38\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<38\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<39\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<38\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<57\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<39\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<40\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<39\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<59\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<40\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<41\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<41\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<42\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<42\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<43\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<42\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<60\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<43\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<44\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<43\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<46\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<45\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<46\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<45\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<50\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<46\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<47\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<47\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<48\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<47\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<60\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<48\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<49\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<48\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<55\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<49\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<50\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<49\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<52\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<51\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<52\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<52\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<53\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<53\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<54\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<53\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<55\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<54\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<58\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<55\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<56\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<56\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<57\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<56\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<59\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<57\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<58\>\""}], "}"}], "]"}], ",", "\"\<,\>\"", ",", 
              RowBox[{"RowBox", "[", 
               RowBox[{"{", 
                RowBox[{
                "\"\<59\>\"", ",", "\"\<\[UndirectedEdge]\>\"", ",", 
                 "\"\<60\>\""}], "}"}], "]"}]}], "}"}], ",", "\"\<,\>\""}], 
           "]"}], "/.", 
          RowBox[{
           RowBox[{"RowBox", "[", "edgeParts_", "]"}], "\[RuleDelayed]", 
           "edgeParts"}]}], ")"}], "/.", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"v1_", ",", "\"\<\[UndirectedEdge]\>\"", ",", "v2_"}], 
          "}"}], "\[RuleDelayed]", 
         RowBox[{
          RowBox[{"ToExpression", "[", "v1", "]"}], "\[UndirectedEdge]", 
          RowBox[{"ToExpression", "[", "v2", "]"}]}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Graph3D", "[", "edgeList", "]"}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.823442038808405*^9, 3.8234420497432632`*^9}, 
   3.8234665902314906`*^9},
 CellLabel->
  "In[119]:=",ExpressionUUID->"ae674b0f-58ac-4689-82fb-ab4f8437ac08"],

Cell[BoxData[
 Graphics3DBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{1, 2, 6, 7, 3, 9, 4, 10, 5, 12, 13, 15, 8, 17, 20, 23, 11, 24, 27,
       30, 14, 31, 34, 16, 36, 18, 19, 37, 40, 21, 22, 41, 44, 25, 26, 45, 28,
       29, 50, 51, 32, 33, 54, 35, 58, 38, 39, 57, 59, 42, 43, 60, 46, 47, 48,
       49, 55, 52, 53, 56}, {
      Null, {{1, 2}, {1, 3}, {1, 4}, {2, 5}, {2, 6}, {5, 7}, {5, 8}, {7, 9}, {
       7, 10}, {9, 3}, {9, 11}, {3, 12}, {4, 13}, {4, 14}, {13, 6}, {13, 
       15}, {6, 16}, {8, 17}, {8, 18}, {17, 10}, {17, 19}, {10, 20}, {11, 
       21}, {11, 22}, {21, 12}, {21, 23}, {12, 24}, {24, 14}, {24, 25}, {14, 
       26}, {26, 27}, {26, 28}, {27, 15}, {27, 29}, {15, 30}, {30, 31}, {30, 
       32}, {31, 16}, {31, 33}, {16, 18}, {18, 34}, {34, 35}, {34, 33}, {35, 
       19}, {35, 36}, {19, 37}, {37, 38}, {37, 39}, {38, 20}, {38, 40}, {20, 
       22}, {22, 41}, {41, 42}, {41, 40}, {42, 23}, {42, 43}, {23, 44}, {44, 
       25}, {44, 45}, {25, 28}, {28, 46}, {46, 47}, {46, 48}, {47, 29}, {47, 
       49}, {29, 32}, {32, 50}, {50, 51}, {50, 52}, {51, 33}, {51, 53}, {36, 
       53}, {36, 39}, {53, 54}, {54, 55}, {54, 52}, {55, 56}, {55, 57}, {56, 
       39}, {56, 58}, {40, 58}, {58, 59}, {59, 43}, {59, 57}, {43, 45}, {57, 
       60}, {60, 48}, {60, 49}, {48, 45}, {49, 52}}}, {
      GraphLayout -> {"Dimension" -> 3}}]]}, 
    TagBox[GraphicsGroup3DBox[GraphicsComplex3DBox[CompressedData["
1:eJxFknk41Akcxn9jzDBmMPOjHYpyNdXjKBYr1Pcr6xg5x2g6TJfI1V1Csjrk
nHJtdrGSorZC6aZN0iFHUVGJhClCkwxlhdYfu8++z/N53j/f5/k8r/7GbYJA
BYIg7KehTpOv4dl0+zMLxbmSAB1fNrK8Lp+3362Gjza985moU0fVvJqr5j9w
0O+89l6WhxJaFqtHV+jQsHxXva/DSg6mVvZ4WRqzsaA7ni/qUMeBbc1tK6sZ
eHbovWrvNjZO2VBKMvtUkMdXZggGSdT6liu6d5mC7syhtDN2JNbS7O0EJixM
qcqQNDvSMI/50TltLxX1jBMysVsDWze00C33UTGos3Mh55sKGvy5UbyuiIPl
1EoLq3MjcH+19Jg8isDtMYL8EFIDb/K4AzCpghKpfclIyyQEj56+GG6lgb4V
OTcPx44DZ0BdfGTNMPi4Th3MLOOgqVCTd7CVifT1VnLFQgI7BxcLi56oon94
8HwLRxLp6rEFLtNdXGN+RG+UjuGU1vLt5kw8E+kWn6zLxOiwDQtf5Cri7Hqa
m18xiR+dDyo+FpJoW/jHUtqpSRDFLWEtKGZgSsTVEsoyEr1f6doaRTDw1drY
Q1vGxuFmZPvJ0lwqJq5Si5XUc9BoQ5LDgEgGN3LpWYN96tjy0SeHKWOhzYIt
Xcnrh8AyaWmh0VMCNTvWfDhbrIqRoTn3a+88g8TVKXUOTwbB5q6BtK+cgwyD
mye8FkyArvyOf9fRYdDJ3/M53UoNi7LTfrnawUbrcTovP6oLXCWL/Usm2Pgm
WNuUb0tDQkY+2CDqBuuyFbMUxEpI5bPEZufZqL1lZklZFRUHe9vq5mTQ8cI9
rUQdiQbmNZDH7dKmQKS78HicFoHzxG8sFok00JauPK/BhokZ3LNMBdnfkJud
O7n0HQfzKFTYrMnGA3uHuXVf5GB053x80BtVbGrbyY0bpqJ7Ei+x1mEEkh1O
Oph6k3jf8MMm9q+qqHLiRzXboC4YiwuQGCszMMvQ7MbyTSReXB6t+frYGPCv
eHqHLVFAs5Zq04Jp/yW1+u4v7lHQtl/49pTmGFg63Q6q/omN19g7VivN6AXz
tPkup3ooWKwSapuoxcYYkwAYCyewL0RYkDGrFxpgR525syrG2wv2GHspYdp2
GblO5zUk39o9XB1Lw0BJiq+0VAmJh20R+tJzkBm2b+IlScElk7M7e00oSPyb
ZI/odL6hHJRtrDsyH6qg97VHl+aGtUG4rF8sTugGk9m+t7g1qsg7eqOsffcw
eNKvXD+wRQ68viZZwBwqbi+pTA3JawAitug3KaTDgfkv7jb2K+PTVreg7Dfj
8N+Oka+j1DOKiYEXa+LL2xSRUDMIlJQnwsahkV1JSnRc45SnV6PJxLgKozjC
73dwDPOPkF+fgIih0YD30/9UcPPQefb1I4ikpTdC9xPoqh/J7n3NQc3MV9km
Tj3Amrd2a3/jKEwt8hE696qhayvZvHwuBR/QyUrX5rcA1dtOpR5Qx1WmKlc9
2mm4vupaVfqZ+0BvGvy5vp2BUcOMDk6CHFRYfoYyg24gFYvZjDssfKx7K0bb
739fRW45TXYnqRh8xIL54QwTj4ysou+M7ALBmMO+mGNfIFxdj++fwkSDruel
jVw5bPVoP52U+g5C+ydr94sVsWnEMnDN4Ufw1kjXKcZpDKS63Osm1oqoN+ob
q9Uhh5czBCKLy88hboiyzDrhO7QaS7738aTwZUxoxDccgIpzbpNdFz7BFcvM
V0uFg5Cl5pLGd/oM4xHh0u+yHogeaJjhKPsGavuFdLfmPnjuHN7oSEqBt843
1SfkPbDPbjbtTPsORBCLuyKrEASzFQ6tfEBg/6NLr7kPvgKx569PM11OQ3DH
3oRlFl/hcUtiq9lLCjID3KUtNXIoEPdkOZk8gWcCrfysjTT8B4/vaC0=
       "], {
        {Hue[0.6, 0.2, 0.8], Arrowheads[0.], 
         Arrow3DBox[TubeBox[{{1, 2}, {1, 3}, {1, 4}, {2, 5}, {2, 6}, {3, 9}, {
          3, 12}, {4, 13}, {4, 14}, {5, 7}, {5, 8}, {6, 13}, {6, 16}, {7, 
          9}, {7, 10}, {8, 17}, {8, 18}, {9, 11}, {10, 17}, {10, 20}, {11, 
          21}, {11, 22}, {12, 21}, {12, 24}, {13, 15}, {14, 24}, {14, 26}, {
          15, 27}, {15, 30}, {16, 18}, {16, 31}, {17, 19}, {18, 34}, {19, 
          35}, {19, 37}, {20, 22}, {20, 38}, {21, 23}, {22, 41}, {23, 42}, {
          23, 44}, {24, 25}, {25, 28}, {25, 44}, {26, 27}, {26, 28}, {27, 
          29}, {28, 46}, {29, 32}, {29, 47}, {30, 31}, {30, 32}, {31, 33}, {
          32, 50}, {33, 34}, {33, 51}, {34, 35}, {35, 36}, {36, 39}, {36, 
          53}, {37, 38}, {37, 39}, {38, 40}, {39, 56}, {40, 41}, {40, 58}, {
          41, 42}, {42, 43}, {43, 45}, {43, 59}, {44, 45}, {45, 48}, {46, 
          47}, {46, 48}, {47, 49}, {48, 60}, {49, 52}, {49, 60}, {50, 51}, {
          50, 52}, {51, 53}, {52, 54}, {53, 54}, {54, 55}, {55, 56}, {55, 
          57}, {56, 58}, {57, 59}, {57, 60}, {58, 59}}], 
          0.08576343920161486]}, 
        {Hue[0.6, 0.6, 1], SphereBox[1, 0.08576343920161486], 
         SphereBox[2, 0.08576343920161486], SphereBox[3, 0.08576343920161486],
          SphereBox[4, 0.08576343920161486], 
         SphereBox[5, 0.08576343920161486], SphereBox[6, 0.08576343920161486],
          SphereBox[7, 0.08576343920161486], 
         SphereBox[8, 0.08576343920161486], SphereBox[9, 0.08576343920161486],
          SphereBox[10, 0.08576343920161486], 
         SphereBox[11, 0.08576343920161486], 
         SphereBox[12, 0.08576343920161486], 
         SphereBox[13, 0.08576343920161486], 
         SphereBox[14, 0.08576343920161486], 
         SphereBox[15, 0.08576343920161486], 
         SphereBox[16, 0.08576343920161486], 
         SphereBox[17, 0.08576343920161486], 
         SphereBox[18, 0.08576343920161486], 
         SphereBox[19, 0.08576343920161486], 
         SphereBox[20, 0.08576343920161486], 
         SphereBox[21, 0.08576343920161486], 
         SphereBox[22, 0.08576343920161486], 
         SphereBox[23, 0.08576343920161486], 
         SphereBox[24, 0.08576343920161486], 
         SphereBox[25, 0.08576343920161486], 
         SphereBox[26, 0.08576343920161486], 
         SphereBox[27, 0.08576343920161486], 
         SphereBox[28, 0.08576343920161486], 
         SphereBox[29, 0.08576343920161486], 
         SphereBox[30, 0.08576343920161486], 
         SphereBox[31, 0.08576343920161486], 
         SphereBox[32, 0.08576343920161486], 
         SphereBox[33, 0.08576343920161486], 
         SphereBox[34, 0.08576343920161486], 
         SphereBox[35, 0.08576343920161486], 
         SphereBox[36, 0.08576343920161486], 
         SphereBox[37, 0.08576343920161486], 
         SphereBox[38, 0.08576343920161486], 
         SphereBox[39, 0.08576343920161486], 
         SphereBox[40, 0.08576343920161486], 
         SphereBox[41, 0.08576343920161486], 
         SphereBox[42, 0.08576343920161486], 
         SphereBox[43, 0.08576343920161486], 
         SphereBox[44, 0.08576343920161486], 
         SphereBox[45, 0.08576343920161486], 
         SphereBox[46, 0.08576343920161486], 
         SphereBox[47, 0.08576343920161486], 
         SphereBox[48, 0.08576343920161486], 
         SphereBox[49, 0.08576343920161486], 
         SphereBox[50, 0.08576343920161486], 
         SphereBox[51, 0.08576343920161486], 
         SphereBox[52, 0.08576343920161486], 
         SphereBox[53, 0.08576343920161486], 
         SphereBox[54, 0.08576343920161486], 
         SphereBox[55, 0.08576343920161486], 
         SphereBox[56, 0.08576343920161486], 
         SphereBox[57, 0.08576343920161486], 
         SphereBox[58, 0.08576343920161486], 
         SphereBox[59, 0.08576343920161486], 
         SphereBox[60, 0.08576343920161486]}}]],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  Boxed->False,
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  Lighting->{{"Directional", 
     GrayLevel[0.7], 
     ImageScaled[{1, 1, 0}]}, {"Point", 
     GrayLevel[0.9], 
     ImageScaled[{0, 0, 0}], {0, 0, 0.07}}}]], "Output",
 CellChangeTimes->{3.823466590864608*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"fe8cb7b7-7dc6-42df-baa2-3204fc2e9ffc"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Algorithm Code",
 FontFamily->"Gill Sans MT",
 FontSize->20]], "Subchapter",
 CellDingbat->None,
 CellChangeTimes->{{3.595762764853544*^9, 3.5957627863858795`*^9}, 
   3.595762836404025*^9, {3.595969506252259*^9, 3.5959695064554095`*^9}, {
   3.596670194877083*^9, 3.596670200756419*^9}, {3.596674252984194*^9, 
   3.596674285397047*^9}, {3.5967295364129086`*^9, 3.5967295397490997`*^9}, {
   3.596742168530424*^9, 3.5967421793550434`*^9}, 3.5967559206089983`*^9, {
   3.5967559540329103`*^9, 3.5967559541229153`*^9}, {3.596756013168292*^9, 
   3.5967560132963*^9}, {3.596756061297045*^9, 3.5967560769609413`*^9}, {
   3.5967561352562757`*^9, 3.596756174864541*^9}, {3.5967562363930607`*^9, 
   3.596756248224737*^9}, {3.596756306793087*^9, 3.596756307569131*^9}, {
   3.5967567111842165`*^9, 3.5967567119602613`*^9}, {3.596757727056321*^9, 
   3.5967577469364586`*^9}, {3.596757842448921*^9, 3.5967578666813073`*^9}, {
   3.596763767103792*^9, 3.5967637791844835`*^9}, {3.5978462710755863`*^9, 
   3.5978462752945733`*^9}, {3.5979330482852545`*^9, 
   3.5979330523724885`*^9}, {3.5979368587412004`*^9, 3.59793686625263*^9}, {
   3.5980468618106575`*^9, 3.598046863145734*^9}, {3.5986405603852663`*^9, 
   3.5986405721609397`*^9}, {3.5986412739460793`*^9, 
   3.5986412835126266`*^9}, {3.598712856420992*^9, 3.5987128590105963`*^9}, {
   3.60124838840134*^9, 3.6012483902484455`*^9}, {3.601248751121086*^9, 
   3.6012487588565288`*^9}, {3.6014728440934887`*^9, 
   3.6014728543439536`*^9}, {3.605909661733648*^9, 3.605909679563487*^9}, 
   3.6059097447317543`*^9, {3.606591568941677*^9, 3.606591627976033*^9}, {
   3.608251951998226*^9, 3.608251978636903*^9}, {3.6094302021719437`*^9, 
   3.6094302034376297`*^9}, {3.624409689719271*^9, 3.6244096945654874`*^9}, {
   3.6246434445633183`*^9, 3.624643448723078*^9}, {3.643370878517627*^9, 
   3.6433708786777296`*^9}, {3.685932208298842*^9, 3.6859322102271495`*^9}, {
   3.6860836313349705`*^9, 3.686083635965065*^9}, {3.686083741479599*^9, 
   3.6860837921823034`*^9}, {3.686195640492125*^9, 3.686195661382087*^9}, {
   3.6862732645455747`*^9, 3.68627329553129*^9}, {3.686281339172756*^9, 
   3.686281341976631*^9}, {3.6866928668580933`*^9, 3.6866928711560497`*^9}, {
   3.6866929458631597`*^9, 3.6866929512071733`*^9}, {3.6866929866934595`*^9, 
   3.6866929930687723`*^9}, {3.689463882547932*^9, 3.6894638849055004`*^9}, {
   3.6980920599341917`*^9, 3.6980920623507633`*^9}, {3.703620870838793*^9, 
   3.7036208729484453`*^9}, {3.7036234968730326`*^9, 
   3.7036234978263893`*^9}, {3.703814523494641*^9, 3.7038145260521197`*^9}, {
   3.7136181023233213`*^9, 3.713618151193591*^9}, {3.713618183544981*^9, 
   3.7136181851684475`*^9}, {3.7136182251361246`*^9, 
   3.7136182366879234`*^9}, {3.713618351977008*^9, 3.7136183624242964`*^9}, {
   3.823442014777633*^9, 3.823442027518151*^9}},
 FontColor->GrayLevel[
  0],ExpressionUUID->"f6de3c25-2350-45ca-aad6-f07b813dbeac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Simple", " ", "function", " ", "to", " ", "style", " ", "text", " ", 
    "the", " ", "way", " ", "I", " ", 
    RowBox[{"like", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"myStyle", "[", 
     RowBox[{"text_", ",", 
      RowBox[{"othOpts_", ":", 
       RowBox[{"{", "}"}]}]}], "]"}], ":=", 
    RowBox[{"Style", "[", 
     RowBox[{"text", ",", 
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "22", ",", 
      "Black", ",", "othOpts"}], "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "An", " ", "equivalent", " ", "function", " ", "that", " ", "simply", 
      " ", "takes", " ", "a", " ", "specified", " ", "input", " ", "graph", 
      " ", 
      RowBox[{"(", "\[Gamma]", ")"}]}], ",", " ", 
     RowBox[{"then", " ", "removes", " ", 
      RowBox[{"(", "\[Epsilon]", ")"}], " ", "random", " ", 
      RowBox[{"vertices", ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"holeyGraph", "[", 
     RowBox[{"\[Epsilon]_", ",", "\[Gamma]_"}], "]"}], ":=", 
    RowBox[{"VertexDelete", "[", 
     RowBox[{"\[Gamma]", ",", 
      RowBox[{"RandomSample", "[", 
       RowBox[{
        RowBox[{"VertexList", "@", "\[Gamma]"}], ",", "\[Epsilon]"}], "]"}]}],
      "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "A", " ", "similar", " ", "function", " ", "that", " ", "takes", " ", 
      "a", " ", "specified", " ", "input", " ", "graph", " ", 
      RowBox[{"(", "\[Gamma]", ")"}]}], ",", " ", 
     RowBox[{"then", " ", "removes", " ", 
      RowBox[{"(", "\[Epsilon]", ")"}], " ", "random", " ", 
      RowBox[{"vertices", ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"edgeHoleyGraph", "[", 
     RowBox[{"\[Epsilon]_", ",", "\[Gamma]_"}], "]"}], ":=", 
    RowBox[{"EdgeDelete", "[", 
     RowBox[{"\[Gamma]", ",", 
      RowBox[{"RandomSample", "[", 
       RowBox[{
        RowBox[{"EdgeList", "@", "\[Gamma]"}], ",", "\[Epsilon]"}], "]"}]}], 
     "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Implementation", " ", "for", " ", "stochastic", " ", "equivalents", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
       "with", " ", "a", " ", "normally", " ", "distributed", " ", "number", 
        " ", "of", " ", "vertices", " ", "missing", " ", "centered", " ", 
        "around", " ", "a", " ", "mean", " ", "fraction", " ", 
        RowBox[{"(", "p", ")"}]}], ":"}], " "}]}], "*)"}], 
   "\[IndentingNewLine]", "\t", 
   RowBox[{"(*", " ", 
    RowBox[{"For", " ", 
     RowBox[{"vertices", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"numVertsDel", "[", 
     RowBox[{"p_", ",", "\[Gamma]_"}], "]"}], ":=", "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"v0", "=", 
         RowBox[{"VertexCount", "[", "\[Gamma]", "]"}]}], ",", 
        RowBox[{"initList", "=", 
         RowBox[{"Range", "@", 
          RowBox[{"VertexCount", "[", "\[Gamma]", "]"}]}]}]}], "}"}], ",", 
      "\t", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"finList", "=", 
        RowBox[{"{", "}"}]}], ";", "\t", 
       RowBox[{"For", "[", 
        RowBox[{
         RowBox[{"i", "=", "1"}], ",", 
         RowBox[{"i", "\[LessEqual]", "v0"}], ",", 
         RowBox[{"i", "++"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"RandomReal", "[", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1.0"}], "}"}], "]"}], "<", 
            RowBox[{"(", 
             RowBox[{"1", "-", "p"}], ")"}]}], ",", 
           RowBox[{"AppendTo", "[", 
            RowBox[{"finList", ",", 
             RowBox[{
             "initList", "\[LeftDoubleBracket]", "i", 
              "\[RightDoubleBracket]"}]}], "]"}], ",", "Null"}], "]"}]}], 
        "]"}], ";", "\t", 
       RowBox[{"Length", "@", "finList"}]}]}], "]"}]}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"holeyGraphStoch", "[", 
     RowBox[{"p_", ",", "\[Gamma]_"}], "]"}], ":=", 
    RowBox[{"VertexDelete", "[", 
     RowBox[{"\[Gamma]", ",", 
      RowBox[{"RandomSample", "[", 
       RowBox[{
        RowBox[{"VertexList", "[", "\[Gamma]", "]"}], ",", 
        RowBox[{"numVertsDel", "[", 
         RowBox[{
          RowBox[{"1", "-", "p"}], ",", "\[Gamma]"}], "]"}]}], "]"}]}], 
     "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "A", " ", "function", " ", "to", " ", "Monte", " ", "Carlo", " ", "and", 
     " ", "return", " ", "the", " ", "fragmentation", " ", 
     RowBox[{"threshold", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"assessPercolation", "[", 
     RowBox[{"\[Gamma]_", ",", "numReplicates_", ",", 
      RowBox[{"\[Epsilon]Min_", ":", "1"}], ",", 
      RowBox[{"\[Epsilon]Max_", ":", "\"\<all\>\""}]}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"v0", "=", 
         RowBox[{"VertexCount", "@", "\[Gamma]"}]}], ",", 
        RowBox[{"\[Epsilon]MinReal", "=", 
         RowBox[{"Round", "[", "\[Epsilon]Min", "]"}]}], ",", 
        RowBox[{"\[Epsilon]MaxReal", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"\[Epsilon]Max", "\[Equal]", "\"\<all\>\""}], ",", 
           RowBox[{"Round", "[", 
            RowBox[{"v0", "-", 
             FractionBox["v0", "10"]}], "]"}], ",", 
           RowBox[{"Round", "[", "\[Epsilon]Max", "]"}]}], "]"}]}], ",", 
        RowBox[{"pMin", "=", 
         FractionBox["\[Epsilon]MinReal", "v0"]}], ",", 
        RowBox[{"pMax", "=", 
         FractionBox["\[Epsilon]MaxReal", "v0"]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "Collect", " ", "the", " ", "Monte", " ", "Carlo", " ", "assessment", 
         " ", "of", " ", "the", " ", 
         SubscriptBox["P", "con"], 
         RowBox[{
          RowBox[{"(", "\[Epsilon]", ")"}], " ", "[", 
          RowBox[{
          "probability", " ", "the", " ", "graph", " ", "is", " ", 
           "connected", " ", "as", " ", "vertices", " ", "are", " ", 
           "removed"}], "]"}]}], ":"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"percData", "=", 
        RowBox[{"ParallelTable", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"N", "[", 
             FractionBox["\[Epsilon]", "v0"], "]"}], ",", 
            RowBox[{
             RowBox[{"N", "@", 
              FractionBox["1", "numReplicates"]}], 
             RowBox[{"Count", "[", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"ConnectedGraphQ", "@", 
                  RowBox[{"holeyGraph", "[", 
                   RowBox[{"\[Epsilon]", ",", "\[Gamma]"}], "]"}]}], ",", 
                 "numReplicates"}], "]"}], ",", "True"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{
           "\[Epsilon]", ",", "\[Epsilon]Min", ",", "\[Epsilon]MaxReal"}], 
           "}"}], ",", 
          RowBox[{"Method", "\[Rule]", "\"\<CoarsestGrained\>\""}]}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Generate", " ", "smooth", " ", "spline", " ", "interpolations", " ", 
         "of", " ", "the", " ", 
         RowBox[{"data", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"pFunc", "=", 
        RowBox[{"Interpolation", "[", 
         RowBox[{"percData", ",", 
          RowBox[{"Method", "\[Rule]", "\"\<Spline\>\""}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Detect", " ", "the", " ", "percolation", " ", "threshold", " ", "as",
          " ", "the", " ", "point", " ", "of", " ", "steepest", " ", 
         RowBox[{"descent", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"initGuess", "=", 
        RowBox[{"First", "@", 
         RowBox[{"First", "@", 
          RowBox[{"Cases", "[", 
           RowBox[{
            RowBox[{"SortBy", "[", 
             RowBox[{"percData", ",", 
              RowBox[{
               RowBox[{"Part", "[", 
                RowBox[{"#", ",", "2"}], "]"}], "&"}]}], "]"}], ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"0.4", "<", 
              RowBox[{
              "x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
              "<", "0.6"}]}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"fragThresh", "=", 
        RowBox[{
         RowBox[{"p", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"pFunc", "[", "p", "]"}], "\[Equal]", "0.5"}], ",", 
            RowBox[{"{", 
             RowBox[{"p", ",", "initGuess"}], "}"}], ",", 
            RowBox[{"MaxIterations", "\[Rule]", "100000"}], ",", 
            RowBox[{"Method", "\[Rule]", "\"\<Secant\>\""}]}], "]"}]}], "/.", 
         RowBox[{
          RowBox[{"{", "fT_", "}"}], "\[RuleDelayed]", "fT"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Post", "-", 
         RowBox[{"process", " ", "a", " ", "plot", " ", "of", " ", "the", " ", 
          RowBox[{"results", ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"percPlot", "=", 
        RowBox[{"Show", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"pFunc", "[", "p", "]"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"p", ",", "pMin", ",", "pMax"}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"myStyle", "[", 
              RowBox[{
              "\"\<\!\(\*SubscriptBox[StyleBox[\"f\",FontSlant->\"Italic\"], \
\"T\"]\)\!\(\*StyleBox[\" \",FontSlant->\"Italic\"]\)=\!\(\*StyleBox[\" \",
FontVariations->{\"Underline\"->True}]\)\>\"", "<>", 
               RowBox[{"ToString", "[", "fragThresh", "]"}]}], "]"}]}], ",", 
            RowBox[{"GridLines", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "fragThresh", "}"}], ",", 
               RowBox[{"{", "0.5", "}"}]}], "}"}]}], ",", 
            RowBox[{"PlotLegends", "\[Rule]", "None"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ListPlot", "[", "percData", "]"}]}], "]"}]}]}]}], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "A", " ", "function", " ", "to", " ", "Monte", " ", "Carlo", " ", "and", 
     " ", "return", " ", "the", " ", "bond", " ", "fragmentation", " ", 
     RowBox[{"threshold", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"assessEdgePercolation", "[", 
     RowBox[{"\[Gamma]_", ",", "numReplicates_", ",", 
      RowBox[{"\[Epsilon]Min_", ":", "1"}], ",", 
      RowBox[{"\[Epsilon]Max_", ":", "\"\<all\>\""}]}], "]"}], ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"Block", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"e0", "=", 
         RowBox[{"EdgeCount", "@", "\[Gamma]"}]}], ",", 
        RowBox[{"\[Epsilon]MaxReal", "=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"\[Epsilon]Max", "\[Equal]", "\"\<all\>\""}], ",", 
           RowBox[{"Round", "[", 
            RowBox[{"e0", "-", 
             FractionBox["e0", "10"]}], "]"}], ",", "\[Epsilon]Max"}], 
          "]"}]}], ",", 
        RowBox[{"pMin", "=", 
         FractionBox["\[Epsilon]Min", "e0"]}], ",", 
        RowBox[{"pMax", "=", 
         FractionBox["\[Epsilon]MaxReal", "e0"]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{
        "Collect", " ", "the", " ", "Monte", " ", "Carlo", " ", "assessment", 
         " ", "of", " ", "the", " ", 
         SubscriptBox["P", "con"], 
         RowBox[{
          RowBox[{"(", "\[Epsilon]", ")"}], " ", "[", 
          RowBox[{
          "probability", " ", "the", " ", "graph", " ", "is", " ", 
           "connected", " ", "as", " ", "vertices", " ", "are", " ", 
           "removed"}], "]"}]}], ":"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"edgePercData", "=", 
        RowBox[{"ParallelTable", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"N", "[", 
             FractionBox["\[Epsilon]", "e0"], "]"}], ",", 
            RowBox[{
             RowBox[{"N", "[", 
              FractionBox["1", "numReplicates"], "]"}], "*", 
             RowBox[{"Count", "[", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"ConnectedGraphQ", "@", 
                  RowBox[{"edgeHoleyGraph", "[", 
                   RowBox[{"\[Epsilon]", ",", "\[Gamma]"}], "]"}]}], ",", 
                 "numReplicates"}], "]"}], ",", "True"}], "]"}]}]}], "}"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{
           "\[Epsilon]", ",", "\[Epsilon]Min", ",", "\[Epsilon]MaxReal"}], 
           "}"}], ",", 
          RowBox[{"Method", "\[Rule]", "\"\<CoarsestGrained\>\""}]}], "]"}]}],
        ";", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Generate", " ", "smooth", " ", "spline", " ", "interpolations", " ", 
         "of", " ", "the", " ", 
         RowBox[{"data", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"pFunc", "=", 
        RowBox[{"Interpolation", "[", 
         RowBox[{"edgePercData", ",", 
          RowBox[{"Method", "\[Rule]", "\"\<Spline\>\""}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
        "Detect", " ", "the", " ", "percolation", " ", "threshold", " ", "as",
          " ", "the", " ", "point", " ", "of", " ", "steepest", " ", 
         RowBox[{"descent", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"initGuess", "=", 
        RowBox[{"First", "@", 
         RowBox[{"First", "@", 
          RowBox[{"Cases", "[", 
           RowBox[{
            RowBox[{"SortBy", "[", 
             RowBox[{"edgePercData", ",", 
              RowBox[{
               RowBox[{"Part", "[", 
                RowBox[{"#", ",", "2"}], "]"}], "&"}]}], "]"}], ",", 
            RowBox[{"x_", "/;", 
             RowBox[{"0.4", "<", 
              RowBox[{
              "x", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
              "<", "0.6"}]}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"edgePCThresh", "=", 
        RowBox[{
         RowBox[{"p", "/.", 
          RowBox[{"FindRoot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"pFunc", "[", "p", "]"}], "\[Equal]", "0.5"}], ",", 
            RowBox[{"{", 
             RowBox[{"p", ",", "initGuess"}], "}"}], ",", 
            RowBox[{"MaxIterations", "\[Rule]", "100000"}], ",", 
            RowBox[{"Method", "\[Rule]", "\"\<Secant\>\""}]}], "]"}]}], "/.", 
         RowBox[{
          RowBox[{"{", "fT_", "}"}], "\[RuleDelayed]", "fT"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Post", "-", 
         RowBox[{"process", " ", "a", " ", "plot", " ", "of", " ", "the", " ", 
          RowBox[{"results", ":"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"edgePercPlot", "=", 
        RowBox[{"Show", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Plot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"pFunc", "[", "p", "]"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"p", ",", "pMin", ",", "pMax"}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", 
             RowBox[{"myStyle", "[", 
              RowBox[{
              "\"\<\!\(\*SubsuperscriptBox[StyleBox[\"f\",FontSlant->\"Italic\
\"], \"T\", \"e\"]\)\!\(\*StyleBox[\" \
\",FontSlant->\"Italic\"]\)=\!\(\*StyleBox[\" \",
FontVariations->{\"Underline\"->True}]\)\>\"", "<>", 
               RowBox[{"ToString", "[", "edgePCThresh", "]"}]}], "]"}]}], ",", 
            RowBox[{"GridLines", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", "edgePCThresh", "}"}], ",", 
               RowBox[{"{", "0.5", "}"}]}], "}"}]}], ",", 
            RowBox[{"PlotLegends", "\[Rule]", "None"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ListPlot", "[", "edgePercData", "]"}]}], "]"}]}]}]}], 
     "]"}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8234421173489*^9, 3.823442147580157*^9}, {
   3.823442325789081*^9, 3.8234423548838205`*^9}, 3.8234425550954576`*^9, {
   3.8234441351898527`*^9, 3.823444175151056*^9}, {3.82344455456658*^9, 
   3.823444674667143*^9}, {3.8234447147580442`*^9, 3.8234447977672453`*^9}, {
   3.8234448983182707`*^9, 3.823444951719845*^9}, {3.8234450865551615`*^9, 
   3.8234451450498466`*^9}, {3.823445339628172*^9, 3.8234453416090984`*^9}, {
   3.823448563916664*^9, 3.8234485888198624`*^9}, {3.823450364559887*^9, 
   3.8234504030684013`*^9}, {3.823450494989606*^9, 3.8234504974297705`*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"1dafdd38-286d-4787-8038-32b8a50c26fe"]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\[Section] Fragmentation Threshold Reproduction",
 FontSize->20]], "Chapter",
 CellDingbat->None,
 CellChangeTimes->{{3.595597518474474*^9, 3.595597525135686*^9}, {
   3.595601844699707*^9, 3.595601865303455*^9}, {3.5956019994089413`*^9, 
   3.595602002248838*^9}, {3.5956020534900255`*^9, 3.5956021008166056`*^9}, {
   3.5957627009753237`*^9, 3.5957627015378723`*^9}, {3.596670000540968*^9, 
   3.5966700708769903`*^9}, {3.596672907109214*^9, 3.5966729072372212`*^9}, {
   3.5967558252645454`*^9, 3.596755856208315*^9}, {3.5967678810970993`*^9, 
   3.596767888608529*^9}, {3.5967680385371046`*^9, 3.5967680410252466`*^9}, {
   3.597606236498621*^9, 3.5976062460740175`*^9}, {3.597631282221232*^9, 
   3.5976313025163927`*^9}, {3.597699433025747*^9, 3.597699453481917*^9}, {
   3.5976995204337463`*^9, 3.5976995327374496`*^9}, {3.597699850073601*^9, 
   3.59769989744131*^9}, {3.5976999946418695`*^9, 3.5976999977210455`*^9}, {
   3.5977595777971663`*^9, 3.5977595830571737`*^9}, {3.601244326242998*^9, 
   3.6012443566507373`*^9}, {3.6012450118352118`*^9, 
   3.6012450405468535`*^9}, {3.6012486138572354`*^9, 
   3.6012486149692993`*^9}, {3.6012490065536966`*^9, 
   3.6012490083768005`*^9}, {3.6058902051143913`*^9, 
   3.6058902060069847`*^9}, {3.606764158514916*^9, 3.606764159378494*^9}, {
   3.6077895088658266`*^9, 3.6077895451749225`*^9}, {3.619618164595708*^9, 
   3.619618167380563*^9}, {3.6209434105122356`*^9, 3.620943439304343*^9}, {
   3.6209557732577953`*^9, 3.6209557930028725`*^9}, {3.624571766062687*^9, 
   3.6245717674377537`*^9}, {3.625353910425152*^9, 3.6253539108001566`*^9}, {
   3.6300726801276455`*^9, 3.630072681151328*^9}, {3.642476444916053*^9, 
   3.6424764547225647`*^9}, {3.6859301708244066`*^9, 3.685930177859125*^9}, {
   3.686083905184844*^9, 3.6860839062445517`*^9}, {3.6862731265022984`*^9, 
   3.68627312673645*^9}, 3.686273174195179*^9, {3.6862735139392924`*^9, 
   3.686273522520022*^9}, {3.686710351523246*^9, 3.6867103515292854`*^9}, {
   3.686711633769001*^9, 3.6867116356956377`*^9}, {3.689668138010706*^9, 
   3.6896681412518625`*^9}, {3.697643498493498*^9, 3.6976435088287935`*^9}, {
   3.703620716478424*^9, 3.7036207292145166`*^9}, {3.7038135747713623`*^9, 
   3.7038136022462034`*^9}, {3.7038144861268363`*^9, 3.703814502505977*^9}, {
   3.703815790684084*^9, 3.7038158294360304`*^9}, 3.7082944723017716`*^9, {
   3.713617560706815*^9, 3.7136175870175123`*^9}, {3.713617620930928*^9, 
   3.7136176247536073`*^9}, {3.7136180187774734`*^9, 
   3.7136180228816285`*^9}, {3.736901243652726*^9, 3.736901258956904*^9}, {
   3.763688513449418*^9, 3.763688533299414*^9}, {3.764621550653658*^9, 
   3.764621564420828*^9}, {3.7646223708521695`*^9, 3.7646223741772747`*^9}, {
   3.793717201615582*^9, 3.7937172027248983`*^9}, {3.793988600470353*^9, 
   3.7939886040014086`*^9}, 3.793988642921158*^9, {3.8234444038652315`*^9, 
   3.823444407109029*^9}},
 FontSize->24,
 FontColor->RGBColor[
  0.8, 0.043137254901960784`, 
   0.00784313725490196],ExpressionUUID->"218a86b4-e61a-4bef-8ba2-\
4fd8fb900499"],

Cell[TextData[{
 "The following reproduces the fragmentation threshold of the triangular \
tiling (reported as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "T"], "=", "0.226"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "b38d46ff-2717-45ec-89ef-4fc98493c7ba"],
 "):"
}], "Text",
 CellChangeTimes->{{3.823444271773182*^9, 3.8234443086800175`*^9}, {
  3.823445005414179*^9, 
  3.8234450138927794`*^9}},ExpressionUUID->"89cb97d8-3f5b-44f0-9e72-\
0a18d3d2facc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"assessPercolation", "[", 
   RowBox[{"g1PariacotoVirus", ",", "10000", ",", "1", ",", 
    RowBox[{"Round", "[", 
     FractionBox[
      RowBox[{"VertexCount", "@", "g1PariacotoVirus"}], "2"], "]"}]}], "]"}], 
  "//", "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.8234421717142286`*^9, 3.8234421739338193`*^9}, {
  3.8234423395314703`*^9, 3.8234423398742414`*^9}, {3.8234441961200314`*^9, 
  3.8234442112715425`*^9}, {3.8234442596035366`*^9, 3.823444262496132*^9}, {
  3.8234448075244083`*^9, 3.82344484075422*^9}, {3.823444926621855*^9, 
  3.8234449267415113`*^9}, {3.823444964553103*^9, 3.823444970568142*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"11adc52c-e5a8-4e6f-87ad-d4615ab096d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"51.3372005`", ",", 
   GraphicsBox[{{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwd13c8le8bB3BJsgrREg0KlTJa9sdelYqGkfKVoiQlK5GRMip7hexNspKV
kz1D5jnOOU4hlFVpIPF7/P5xXu/XOe5x3df1XPezy8LO4CozExNTL/Fn5fOe
uG85L28IXNeULy8vz8B7mrN66lgI2JS/HflGOKA4uLH5UgiS2R7PfCQcoxLT
45UbgpQGm9FawsmsO6hm3SEwueu/s4RwdlvKJ7mFENTtTu7PJFxu9HL6u3Yo
dNnMS4II12yX+fX+VijKZ7sGHhJuGSn5mxURigfnaY4uhKm337FZDIci8+dJ
9iuER45qcitzhMHky8MlI8KTi80bBaTDwN40ceUU4UW/buGuB2H4+nrSRYkw
yymjvXlpYbB/YLjnCGGujXTJgLYwhKf4KhwgLJg0qqgmEA49p9n47YR3W9mo
b1cNhxR9bnwzYYkD33QXrMJxls8qkpewUtn8+cLX4Zi7vHUjK2EtjwdmgbRw
NEnuH2YirK+52vLG6gi4qaquX1yawXlOvxta+yJQeqcm/A/hSx+47gificCe
FxsdZwlfiwpxXnKOgF1i0ssZwrfMNj0YiI+AotF7xUnCTiKxPiX1ETiStLzz
C+EHX3Y8CZ2MAKtRgtEo4cevUkNu8UXinDHf0DDhQMe90XrykWj1qqn4RDhS
IS9e9L9I8OTxjTAIx686lMbsF4mOclvjQcLpjW9yBvMikedzTIBOOO+ZYmF5
byRMxvt30wiXGFaXRi5GwrnmtTOVMGmrFsleJAr5M8d4V9zEaKnX14tC3on6
mQHCnWmn2vbdicK2krr/f0+26elijY5CHNsLxxV/lDamDFVFYXDn660r44//
oTOqPkfBl3p3ccXf3lqMxnBFQ2WjiuDK+uYejk06HYrG62xP55X1M+ndnDUw
iYa/SxzXyv7YeL7PH/SKho3pAmWIME+fIxNnZjSWJVcNjhDeErfAOtYeje9d
mzePEd5p4bGu9lc0xnemPVyJp7g4C3+C4HME/eYWXom31LSfwH315/CXIn2b
JqzqGip2KOQ5Dmg83vKLsJ7K5oPcpc8h0m9za46wAWvc4YnB5+BXlZ7+S9gi
NE01RSIGflx/LFev1E92qSlfUwwOpuYx8xOmGVuLH/4RAxaP67QthI+yb/l1
VjAWeRslyEKEv1o5B0bejkW7XMoBccIGe45Wb90ah1vFZzcrExZJLBLdeeMF
th5IELIl/ODUlVmV8BfIy3QRuUuYvLTh3X9VL3Bxqm7fPcJPzeyNUzbE40xE
8JFHhH8KSD8VrYjHRMkM84uVfG35aKT9OR5eXSbUZMKZ94L3WHMnoEtpOnWl
Xi+SZ6qyriRgocF6dTHhIb1+l02siXi+kFHcTDhIWJIhui0RuhOn6e2EFRce
ax6TSoRJYf9oN+HIrKMbjEwS8fmxcTidsLpXoIu1XSLW/lY9PET4m9HooItP
IuhLQ7mjhPXYInOe5yXiS+LenTOE/zCmeLNrE9EcW7lplnDqG02XcnIicmaH
6L8Jnwl6MdgylYgrxmF3FwgvXfulQWVOQqN7Xe8/wjnKJ3MmNiehx++oFxPT
NxhtSuNdlEjC9FD131WEWacXnbnUkhCX5mG8mnBR/dlBwQtJ0N1r85yFsPmL
XI0DN5NwqcGjfA3h9Y4sOUpeSVDvLa1gJVxx4iKvfmQSrPN449YStt5d7Hwp
JwlS2Y9M2AhvXOQcvPUuCVy7eH6vuKb7ioZHbxIsbHJt2Qnb5VRkB31NwotP
596tWPAhH2/ichLEaWunVtxsYuOcz5+Mm0Vvf6zYSaaW/m5vMnpJ9p0rFuHY
pvFBORktxsKPVtz5yT77k2EySimN3Ct2L2vh+WGdDM7oS3Yr8+8LEXZmfpAM
salPySvr7bd2pW8IS8Z96ZNZK/vxUelSF8lMxp23sV4r+2UTbT3TXpGMIN2/
aivxeMZZd/leRzJeWdgNMBPe8L3SdvdwMk71i2ivxDOy7/X9jt/JGJ/w41np
H9sq8/xdOVJwTGBB7i/hxKSMqD3bUxDW94PtD+Gsm8+L7mumwMGWEjxF+KBB
aLWocQpYvZ20xgkXHnvS8eFmCtKj52NW8uWYkA/dzTMF1/TLn9IIVzK7T4iF
pwAqPAJ9hFXGHee7Moj5OA1VOwjXv7+19kFFCgxPDDA1EW6PNhfpGUrBXCq/
WulKfT0wlvb4nQLf307vXhHuv2KAfRyp0JRx60wn/PGghqmndCoMaO/jwwhf
5Ve6vl8zFek+zcb+K/U6f8S5zygVh540JDwgPFsnFibhmQomMZEGK8Iu2TuT
+sNSofVbOsV0pT8FbX3lnZGKzqhElpV+xWrK2UpuT0Vp/d+Thwlv+T7N/Ego
DQfnldtWni9xfWM8UtJpGHz86cU44V2VH7dTNdIw1p442k94n2+XvPTNNPAy
9/QVE1YSKrGnl6dBcFfyamvCNcyvPP3a0zD6knTZkLDWeEbgoaE0iNJL9igT
Pl30PNufPR2LkcHjvCvPL133oSNG6biW+nhb4b8ZjB50+vbRJh2r77BGRxO2
4bdbeuKRDtEmwTsPCDswzAWG0tOxPsBGRoewr6OGQeCvdGT4idZ2LxL91lTJ
XI49Ay29M7+KCQerHL01IpgBvwgulwjCMZziAfIaGRj/GH/lLOHcJM6a0dAM
eHRXZDX/Jeqdy5lTMj0Dvxf6P6URjnUeOutclgGKhe0VL8IBJ8vG1n7MwDnT
OsWjhK3mr63beyATQzVXBaMWiH5r2XX+jkomoqsDHWwJn+9QSiwzzERARwG7
OmGNNP5Deq6Z8PFMH5mYn4HwmRojm8ZMpHM8kz5MeGvlgeSigUzMn2/WZCHM
I/Z84u9UJi55eQZ0z81gedHuwVP+LMT070iwI0zLFEp9+V8Wes2uNr/4M4Mo
pnszM3+zUPwn/nfnL6I/24zIynJnY7flomsY4cd9p7w9hbNR+6xu9znCDrmi
G3l1s9G80WWi9yeRn0Y98jKR2eD9nGj8fpaIZ77kYwepHAwOJZqEfyfuN9ti
OyrVc9DwXv2pLuG/j1i3rrmQg6gb9Ol/34j8NKXnRLjnQOxNv64l4ca1Tz6U
tORA2k/IRmyG6E+XRwXnLXMheDNi0XeS2D+smofv5eLetjzhvZMr97Nxx/bA
XARNdFo0T8xg9eCX9pTSXCzIjBxeS9jn4pSnPtdLbFbjknf5Qpy/8c+RlKKX
KL9fFik1SvQfQ+aX+syvoC2pyrWKQdynDj00ltv8CsetHir6Ds6gbQML626J
V7g8rpvKRXhd15rL8+deoZ6Db/tGOhGv0+y8qVmv0Ftk3iNIJe4bon7lbuL5
OF+gIsDWP4NWkaDtXR35uC/R5n62nYinQGJTOCUfDZRH296/n4Eab4H9heF8
9JxU2a1JuHypq4H2Ox9tOiX3DrUR91PKJrsxoQI82Giuw95C5FNQPGnRpgAx
Sgo3o+uJfvT3pbkYWyFCenRcDlUS9fqjiuMrbyGkbRfSIyuI+Ix3FOduK8Qj
rsfM8+UzkO/7ziYjWYgCFb6jFWVEfRYcKVA8X4iBzIs6R97MgN3q7SqD1EIk
NFiO/Csg9tPVluymUgTXLP7THelE/35o/YDneBGmHsdcX034y2EWk9RzRTj8
bJ3E0bQZcEQp8LbdKIIe91B8VMoMTphme2yLKEJRw7kh3cQZdAz7Xiz/UoQN
k9M815/PoO+n2qa50GIYme0IuR9A1HPa4PcnL4pBmtwf9MCf6K/nXd/vyCyG
lLtZh4cf8fwpK/DRflsMlbjz7O6PZ2DivnM2cqwY6vkF7BbeM6CvWeo4ovga
17eG3uy+R9zHN5X53/38Gme1nU5oWBH3R471q/tmXuNyhl0lzzXi+bdk4Sa7
8BoNkrMXqJYz4Bzlsvu3vgRGvOkbbSxmIPPa/KyvbAn+um9pcjCbgZch247Y
JyU4KLVtUtpwBtuDLxTXSL/B26Dv2iZKM7jA/nuQ90Ep5P7kscdxEfXgsy23
2rcUTdNJlps5ifNYUrl3J6QU7fWG5iHsRD/5+YTvQ2oplJmUlbxYiXph7NIJ
bi2Fj7hM6mmmGeQXnyxYv7UM9LP1g3mz0+AwT3vIWVyG12e+1t6iTKOy5Kz4
mq/lODXSy2BPmkbDBIvY45/luGeWzcGeMI3Ona/3rF0uh8SJ7amsL6YxErBR
hJ2/AgIblnb+i54G1+U+oXXKFTgzd+pIf/A0zNYa8W0MrQBtussMntNYumC6
tFu+Ekv+q01pZtNQmf+vRyPgLerSPGwO8k+j5HewA+UfCVN1em8dXKagesav
OkCmGuvzeAQWGydR8/JGV/WxakjVWjM31U1Cg+Pk8JxiNe6qmJFDqiehU8u7
xkq7GtcoBaI7KiZx+kisjvrFalidElXZkTeJS1vzOv4+qoZ5gvBybtgk3D51
029SqvHsRqxDxcVJLCmVTKcMVkNi1thRxngSnjHRywPDxHj81lLp5ybhY2i2
S3e6GjWP2V891J/Ek/pRyz2ra+Dxy716o8okYrLmJ+gSNXDW5+t5JjyJN3d2
LOh71uC3v7BzwMgE8ni/Fks8qoHy08ytrR8nkF5QbMcRUIPDO2n9a+kTiPyu
+7k+rAYnj2/2c+ydgMMdh07FjBqkdd6k72yYgMyd5vR97TXozFnnl59OjHf7
riGrYC0uqc+ouFsS49k15r59U4s0xaAKt66v2FPaEGzAXg+1jPMara5f0HFh
en/F2QZw/jFksGqMo05O3SXIuAHq4VeC4jCO0m3RdVcuNWDHhdAd0grjSGao
mnFZN8C/U8//vMw4HKwiAs3uN2B0z6ZdwTvHscVZ8ftyUgOs5wKMcxbHYB4Z
UKIx0wD7vaFZXwrH8KNHVLXdvxEzCn+31m8YAy+/qihnUCMMIjwyfnKNQcrQ
lFMnvBFH805fE1o7BtsPQb3V8Y3YEWM+YPJ3FOPv566/LmrEYsXESb/hUTAa
WkLj6I1IOWTwraZwFG2lt0ZuSDdh8bRL0JWTo0iLK/FdS2mC0tHJhNcun/FB
9YLOBG8LBHUF9/+YGMYz6VPyvyxbwYiMuWulNwQHF7vhroI2aBxqt/z36CN6
4hJZTcffo9Pq/sEP/9FRx7nXlF2uAyk3slljVSjYLPGJv0CuE0cE3Touve/F
p3/VFxq7O9GymsVXfbILsw76Rd9cP8C64foSe0gHakyGj89s6sK7wu6Focxm
TF/MDA3b2oVu0VhJg+BmbLtsSzkm2IVUP0ONDudmOFz5c81zVxeEW7PZfmo1
Y89NTm9eiS6E5LvGTn1ugp/7odJDql2YVJO9Wy7aBP3Eh7tdbLpQG9l406m4
Aa7JOjaCt7pAu24sMPyiARmp6wrf3e6CN0uY43++DWDKigK7E7HOPOHEMJMG
FBTkmMR4diE6901R56oG8Nd2B1dGdEFlqk+j3rAelM8i/5jedeFtFCPIkLUO
xbIXJqJruiB6zWHY90ctAp8EUKTqu8B4kOLaOVgLDenvr81bumBXIkOJJ/Iw
z63q1rueLlScqRM8dKMWPnzGHz2+dEGqR2LiVHcNJFUDa5c2dMN5pJ+Hq6Qa
HOHVBZEbu/GOQ3V2PrUaI6M/Ew5u6YZQyTmN5bBqxDw1dbsk1I0TtcNRp+2r
wUIWP1Il1g2pVtUWHqlqDNyqTXdX7EbF5PApgfx3eBQ35794tRukG2FHN3mT
IMC7872VdTdaZfVGb1uRkP9Im6f7Rje6RXx6v54ggXYrMjLLrhtz01Gm8ltI
kFE9nHL+Xjd4culX5fKr8PGzXWX+027YGvbYqX1+C3nJsWnLom58/MqsSr5c
ienqXsP3TD2QobBv7LpXhoSnl44WZPagYXroi+1MIXw+0AR25/Qg+vjeAuW+
QtzYZLoc+bIHMWzt5vxvC3E08UKTW2EP/I/hcWdAIdqKTpvoVPaA4rRFM0a0
EAsDag8YHT14NH7NdvRyAc7vFWtY96cHnRzTbt/KXkHxVlq253wPdtipNTYF
vIJwkUjQ7F9i/n7BolbTV5hS3GlEYepF7qCb/7mlPPic3vo1laMXw/TnYxGa
eShw5lyvuL0X4e5N21/Rc8HVMHPuhmYvmrct776jkI1EU9qnTu1eBCS1XrXg
z8bh7022x/R60eL0UjhuKgsXBZMfsZzqBd/x31OTiVnItT/7Ot6oF1S7xwe2
c2bh5I4y/m6bXrj1sIc3TmVgqDgtUe5WL17qdVCsWzPgpBcqkXi7F84KX/+c
ycpAvKONhq1jL2Tx1nL+agamW4Uc1nr0IqRgZ+TToXQEunh3K4T2othgN7Pq
eBqE19tdTg7vxZ7L8Xe2tqShJMV0gi2qFy75Hy9I5RLvFe2HV/fF9sKix0Rq
8x3ivWPPmMzttF78t/pWeum/VLR/OB6aWtqLndwXzjTuSgX3/o1n1jF68ePq
zZ9zwcmQtbPcm/mpFzn5T+kezsmwKCpapT5CzHfFQ0L+UjKKFQwKXb70Ys1A
w6KmRDKMTgTxjcz2IpRNzzatJQnJtux95Wx9+HjIq5rKnYTD+f9MrGX6kC1r
kdJhmwCTI6OWtY/60Ktk+rUhLgbKsXtDpf36sGlXsmyKawyEV9mSEgL6cNn3
0v1Ioxh8bZvd6hbUh7I0WUo1fwzuW67qOPy8DxvSnbv3Bz5HXJigXHpuH6xj
TmQffxSNwe8G6/y7+zDrXCBc6BOJ//JIr/V39eOuvLluT2MoBmquSn4X6QdH
3b5ppqxQnO3nzAoT7YecSMNBnYBQaDEZxZH390O7hNdd9GQo9hl887Y42o/d
927uEu4Jwc9fO087He+HdF3hbv6xYPgpeX994diPxDX7hl+pBmKVgbiliks/
HvdP/M7iCITrtXb6kGs/dPNGNlK6n8E2SOCDmGc/Zv2musjXnsHgU+GbgoB+
GPwQjbULegrBR8M+9Qn9aHoW/MNnIgD5bRo7ppr7IZS3JJnS7YsRZsaURVs/
rG8dPhmY4Ystcvcqye392DUYRC297wuvtJfGdd392Op881T7bl/ifXhTeCy9
H4XKL1+yuT7GrOQ4m953Yn/xXXwS0o8gfs27nzTbj2HroEI99ke4GCeYfuR3
P1SDNT7kf/JBHdsZ9V1/+3En8UTouTAfhH8qc59jIaPOsU6Re+EhjoY9+ZG+
hQzeW2Tm4l5v3GjeUy24jYznm7V5fAu9Eb9MCgoVIkOo1TM3K8gba2/+lHgg
TIbpX/YIhp43yBpmVuckyJCTslQRrPfCvd8HaatVyFC9+rZDt9kTeRLN2ffU
yOCrYZMzyPHEkMWVezMaZBzr+47CZ57Q64jaRNUl5us4s+++oScEMpnOFBqS
ifefu5vcGzxQadxVb25FhnCUWcyc2APEfxxQaLlOxupHsc+t5tzhZTVccOgm
GWvPHfUIbHaHluPPF6x3yFDwtm9ee8sdncGbnHJdyci8FD5VQ3JD4eYdkxvd
ySjI0SnijHRDRLyYhYcHGbQMuT98tm4wyZXVN/Ahwzq8uv6akBtGGk1E556R
8Zf14r69vvfRoH8l7r9gMtrGdKJdr9xHVq/NhtZQMsR8si/4qtzHrWG3pRdR
ZJhtFt3RtOiKuaX4PvUkMpzeOu6Ic3fFwKOMEy9TyMS6PKzcL7viLVd+zaZ0
Ij52hVksaq7wFqjO+5JNhrzD1O0FNldwHR1+HFRMRmyJpLFs/D1MV04szpWQ
Yf9n7t2Szz18UP9pb1FGRlhoQuu5m/cQeWbN5SNVZAQsDwrlKN7DTluxY9RG
MpabX7BkDruA+afkS40WMjRnmz5ktrvgs6usSF4bGYcbHn3dXe6CbD9dbq8P
ZIwHrzf0CXXB4VSbMVEqcV4d3foROi7YtN/BLJhOxqDp6sY9x1wwX+DWPc8g
I+iTyyFBURdUkZ6R2kbI+LQcpCS1xgU61FdR9tNkUF98tsxudMY+i9J1tG9k
9LFVvt9R5ox1X9491JwlQ6nyaffnbGd0/f5gt2WOyMfdzhzGQc4w2/BTu2oV
BU7rxu6GmDqjR/syx0UWCv7yl/bI6jvjhHtL2zwrBbXS1/P2qDpDcTzxzBEu
ClatkT1YI+YMgaqTprmbKCh7vJ0r448TyNczbsXspyAytiZtT4ITTidskJY9
SEGEuy/H03AnNPa4z/ZKUcBNM7NbFeCEEpx14T1Kgbw1ZyynoxMiNq7y9iPu
Wb+lmcSUjzvBoNokwukcBaWSLE67fjmi5Xf9BX4jCsQud59hfHGEqoS0QKEJ
Ber2n4sdBx0hFbU2YeoyBbIv4u23NzqC27Y40/IGBe9c/7owRTricfIOG2Zb
ClgVXRRE/B2x1B9wINGOAt/wTp3Vbo6YVvuvkOpAwYarH9OmzB3RtmV9pYEH
BTNzGzZxiTlCQ//eg29eFFSNM9PKNjui4uGISqAPBTYiVvnsbI7Ini6vb/an
YH230ajXmAP866w6VMKJ9QY7H3JMcgDTQlfIYCQFuscTt/YEOsBFUvms23MK
Oln6PpTddyCe0/yUN/EUGEq4vdtw1gFat6uHDmZRkLFu71Xx5btwady5kJBD
QabJwC/9r3eRs92TlzePguNB2Tf5e++C572yymwhBUa38/W9s+6CurfyxZtK
CmbPBxVu1L+L28MlRiqdFOgPPbS552uPZPlNtwu6KLimum+bnq09ekMcfYV7
iXg+2VDWZWAPeZXDJSwDFBxJLFi1QcgeLC8K+JqHKTDmtwp3yLuD5+dz28/8
oSD8zHNp8YbbaHvJOVozTwHzL0vvQ5m3scRi8+/QIgV2jyOauQNuw7Jor8Sm
VQN4f+igu+rJ2zjIk+E/wDGAY/9+Bd5IsUNNc5LGle0DkGCiFN/LtMWkYlS5
g+YAaLtXbfCIuI5iNePtAjoDKPc6oH1N/zrcdLZ5k/QGcDjr/ujZtdfBeTZB
l+P0AM7NTJ42umeNfTYZ5ASTAXS4ShlaXbKC9fM3v1vsBvA4PfXfLqmrkEq4
Z3LbfgBXrFZlmk1YYi5VoWqj4wB+n1K2/5huCd980iNz1wEkSDYZtm63RHpj
I/9vnwG4HN/bnLbhCoZ/9cvsihmAzLoA2y/r/kP23+eRDXED+LT637hDhzns
V11csEkYgJ7HennfEHMwr/tYXZI6AGqsm97pzebYuXv89IlXA2BWKHImGV7C
JYO5W851A1DY6+/6od8EokblXYKNA9Du/NBUZGuCaTO3ozXNA1C/JWRYz2IC
9+tMS1wdA8hnFHPcPWqMOE+2Z8kUYj2tGYHDGRcwkLcl5/30AHL/eyNpW3MW
p9follz7PgCtnROr3G+eRYPpverl2QGYsCyeSNt8FoVsA/3S8wOgf/9wTfGO
IQIsYlkiV1PRdnaz8W1pAzCVtXJLslJRJP0vSXLkDJy4FwWa2Kj4/mI+YlX0
GVhUXpReWEeFMcUgeoD5DBQ2bb90aQsV4XEJN5+3nELhTf3rfwSoCJC6xi2g
egritQ8cgoWo2PKm7WZxmT74bzMCaoSpkFtT5C9VcBKTzYlvRA9QER3glCNU
dhxx7iK8M6pU9P5n/eTxfh1s6DEU9NOg4u/D8fKfNdrw2+cjtkubip+Ytr16
URsO/SNKhieokJ+pDdaJ0MIJ6fQbb85TIcqzb+/Udk3U+PY5njam4utn6x6t
Bg3IDrJ6fTEl5t+baBVlp4HdT6yitv1HhZGFtMvmJnUsjojXedhQEfHwdtKN
YDXYKxh3bLlFRXk2y6SBthrGQ/wHCm5TIczH8lCUSQ09yl+/DTtSEcP7oMnf
WRV6EQKLbi7Efi5uDN50VBXvJvTWbrpPRYnBmT6/3yrIjc4R0vGkQiL7G88W
dxUIz1DFP3lTcefd7e0y6iqI1uQ67PqIitcT7bT9nCrw+XFTLzeACv6+t4p3
VAGzEwedeSKo6BiuEheqU0JgnUG/WxQViS1X36TfVQJJ0fnYl+dEPHyD+C6L
KmHXgXd/quOpyBg51WQQoQiDtJELB5OomCkh3/A/o4iHQuylMSlUjFY33frM
o4jP6wxc7mZSUT9Sc5DluQI2PXYiM7KJ/R4kHa75TwHaSzGyJ14S6+FbKxV3
QAEuTqTo0ldE/HLD6oMW5ZE1PTy3u5CK1A2XYmLa5TFwjc04pJjY/6XLhuUp
8uBkSJT9K6FCJys4YvK+PBQvnNl6o4wKbs6JNZIX5GHb4Xivr4IK1azLuh5H
5BGvHUNRq6JCt6X/BGWTPDpIVXKv3lEhFHLsh8xfOTDJDj/fVkuF4GJUo+eQ
HKTz1y741hPnwb7B9E2bHCzEJUx+NlLx602VfGuZHMIST5ebt1DhvubNz/ws
OdRtcRR430bk7ze+zWZxcvgV/NxVroOKIOdpyboQOYiyVw2kfaCiIfry+wF/
OVzwGpLf0ENFsIGne4SPHPzmWWMf9FFxPOV6+7iXHMru7P/7lUzFCf/D+s2E
v345ZXqBSsUE80LAfuL32ywcKmrpVHiv797AQox3YiB6m9RHKmyyyXe1g+Xg
bvD2ftwQFQs9Iopfn8shr+UTle0zFYFP389/TJMDQ41V0XGMCreOafmdxXLg
qdgX9+kLEY+4xGdxdXJQPXRq8eQkFc3f/nro9cvBPufuxfJpKuitWxO3T8oh
RSS6UvQ7FTn7+dzWrZbHGv5Pbsu/qPhsv5iw7pg8jj5dQ7eZo2LVhe0sbGfl
YcWyT4m8QIVimcfFGXt5NP+0/5e/TIXLd0vhCyXyWLgZZSbETMPeOoHcdwPy
2P+54q0/Cw0m6x0svjAp4FkvywMLdhpeMTs+0zNQQNXJvYPtnDR4ZOlvv+mu
gJn6k8oK62k4XC3JvyNbAWdKIpf4+GgoVrxpxcmmiI1R4h71gjS8ORJw9G2P
IrS4TzKkd9Bw9Yip615OJTj73kH8Lhpqov+GtaopgeJcvuwkSsPHh+u9Hr5W
wgujE57iUjSYvZV975WhDEuPbolmGRpcmK4xCieUsS/dhHL9CA094ntuD0sB
JbPWMjnyNBwpm8xnqwLaAx+NHNCkYc3w2fDPt1WwXFelc8iEBk/3ENqRJFU0
TGj+6r5Iw9Fi2sxgoyqebnif5HCZhpbFKPawaVVsMacuvLakwfeJuPCyghqk
/v7JlbWj4d/Go6kCfWr4T1qaV9mHBvNw0c5FJg2IG5W+HXxMw4GzWz5+3a2B
6Qe44eFPw1bNJCU7HQ24tp2sfRdIg5q3WpFQoAZCrW44qj8nxv+opanJpwmj
wO+7RmJp0E90erD1kCa2v3Zp94mn4dPOD5m6BprIZvYVa0gh9ifRmZwYqIna
FykUnTwaDIZcxy8uaSKgbt/jL/k0iO14ZKWxRQunJwpkAoqI88w9ef+ktBZo
su+etJbS0OkxLJNhroXky9qyNyto+JsVgS9OWrB+3D7CVUXDpcmOQsmnWvjZ
TVPSr6UhxSs9PrdIC+ULV75O19Nws1TMs6deC567JiKDmmhQ7lh4PtynBS0d
e3WpVhrWy4Ymdo1qgctufqbzPfF7jq0WMb+00BXhGXenk4ahmy1jx1ZrI7py
re6GbuI8XccmXnJr49Jw4K/CXhqaT2kFLQtoYw/HpmRDMg332d/+kNyjjXSD
kJTGARreyzh15h/QhngsV5oCnYa320L75Y9oI2vYN/0Vg4bzuWVhnQra2Cex
OlNkiIactohgB1Vt5Dg8yIoaIfLFssN4r5Y2JN7OZ3OO0UC7yH3/u642Xq5x
zPX4QgM5bsmj44Q2Dup/ezk7QQOdS+tnvb42XkXavLKapmEuPPBK/yltSDFG
86nfaFAU8jJmPa2NAjGLwlOzNJCeNfx3jvhe5ja9qPYXDcHta9kaT2qjqNTo
9bE5Gmobp/rNjmvj8KqekpwFGiz/22UmqKON17qnSnf8o+Hpw+MiazS0cTS0
pSxsmQa9TRtLBKCNNwOaFWuZ6ShcJZZ0WU4bsiLVlfdZ6Og9sO92n4w2ymwU
q2ZY6Xjn3ZjntV8b8sVvSFfY6Qgazxi/IqKNikWZ6n5OOk5oO2R5EPFV1Myr
Ob6eDi7fXrd+Hm0o96XWH+Kjg6a74K/5Vwuk7TsbMzbSwfuCm2o+owUVq9im
bVuI8e6Y2dYMaUFtLqR1tRAdJcpaPhaNWqhVWffeeQcd3msP7Uwv1YKGv1/7
xC46hr7/3S+fpQVtAY8P3aJ0RLfWV5v5aaHJYqFLey8dQk+2XPlB5J9ejmNP
xX46HLgmkj9ZEvcBxZv9KVJ0cPwqlBhQJvL5kjH9rjwdESTtV64TmviQ3jM4
pkjH5Azvk/29mjCYOfXRFHTkCKdYHK/SxFlPrWF1DWJ9klWHhoh6MUo+9IVP
n44p3dOpRXs1Qfma99X3NB1RM62pItyaMDm0b/KvAR0K5HNLm35q4GLdzpnh
C0Q8N8hOhFRqwHx03a+i/+jIDXz1YwdRz9f3jTOddaSjq+DIZN9xdUTXfsiq
cKbjsZlV5rn96mi6WGEg4koHw+NM/kMOdYgGBab+eECMxyWr8KdRDSOzh3VC
/Oiw8M619IAazN96BbXH0iFfsVv1gIgqzp/etl23hg6RpJqZkFglPP7C0phf
Rwf3/Y8eL08p4bX3tN2WRjrIXv/2VK9WAv/r6uqxVjqs6KwjwzaK+LDV+urj
XjpCNficXigq4MRwcW7tOB2jeep3eodloe6kr6DMPYjztvtjBc4fBltVjNQA
7yB6QdrMwX4YbWvG9jjxD8JAdUs1Kg/hfIQHT97WQVxRzCnwEjkE6+L8z0K7
B8G95tQrt1/SePpjQ/A/2UHIdpX7WZ+WRM+t/pFKi0FIB4qIpyeIIrpEZMDo
6iDyxJ3F1m4ThdmSXcdPq0Gij9rMH4nag9FnbOUStoP4YWKqsSZ0N+Zy5YLi
nAdxsUjrXUqIMAQnYuXcng6CLYOKc45CuGplHqhQMojcOMpUMxs3RjoTydml
gxiakN51z28dLOU/CQtUDGKDxX/vyJxcsFhn8WaONIiPNxyotULsMC+68vF1
8yB+WxUUr7ZbjYvL12Sk6IN4KuI08fv5d2WadYZbAmMQTI9+Wintn1Y27Rpr
WD80iNs56gpzMl+UTdKsTadGB5HoMiRweHxQ2ej4DZ/sb4N4d3nktxZTedXZ
KNu+3SwMSI2nuZx5/aOqhylvZzgrAyprFkv48n9WGd6YvrGanQH+gLKA1qTf
VQZKdsuf1jEg/mjdu9HrC1Wnh2+LJ2xmQGtHg2dOPROp80SB/XoBBq6d1qkX
j19FOlXyvdJdkAHryZ3JE3eYSfr+9mcu7mLgZ3X6EzFOFtIJSQfXrfsZOGtR
NfV29VpSW3Rxnd8BBsptX9a9fL2WdJz51/o5SQa4YiNW5VmwkfR6HVP6DjOw
tVSYv/4lO6lFuWRK8xgDPuekXrQf5yDpZv4+9lqOgRu32Wbfj3CQdO47t4Up
E/O5frEJW8tFahp5s2m1KgOXtpiqnQjhImnrz5nbqzNQEWh94uPGdSStXfd+
ndZh4JWFuIUH93pSQ0AZ3ukxMG+rvsvdZz1J8+e8v+RJBqpftroq/FxP0mh0
3b7egBhf9NcVRi03KelB3+f6swzIzSUcUdvMQ1o6IvPS/QIDWZrr0pV1eUim
U88cjpgwcHWv5pWPzjyk0tQvClMXGVg+rfdeOIWHtPGi5uq0ywzw3dihsaqV
h2TPl9Ry0YKBw8KNYs4zPKSOlsUQ/qsMsIhpkD14eEkS3kbGbVbE+Yg+f73p
IC/JX654p88NBv61Ne04psNLGv3GPa5gy4BRc68T7RIvST3T5tWsHQNVTTUC
zPa8pMTLjU459gzUuYTapHjxkv5tElG+4sgAq692c8UzXpJJ+4M121wYEEga
CdOK5CWVPhpo63Jl4IXDzf2I5SVtVDoaHuDOwI5Xn2YS43hJ9j9DTNU8GVBc
0lK1iuEldeZMCS94M+DPneDxLJyXdOCK7teCRwykB09ycD/hJQUIpBVc92Ng
t6SM+pg7L2nsA9O9XU8YSIy29+O15SVp+F9UoTwjzsM1X97fiJeUpFK6NiSY
gWnv6TJdFV7S0h++Dp0wBqYuSV7T381LMn1lF8kUycCJSseEUBZivddazUqj
ifF06up5PxHx3S6253YsA14FQnKNZUR8e70nxeIZ8Ev1Mc4LJOL7dLCIkUj8
f8ffxzWXeUgSGvL3o1KIfGY82rUswUMaLfzOvjaLgcXWcoUqZ26S+o2TH6py
GDCxM/f4sbCelLgrK9opjwERPdUXBk7rSSbB5mKjRQzi+dxidefcOtIb7crp
FyUM/CpxCxcq4yLxL28uOVfGgOmyR2wnPxepw7ZDo76KqMcvz2RFizlIEnv2
c7lXM6CqmqJf8oedFEB73H24jsjHrO0QP8RO0jiubJHazEDQNrNXT0PWkkrF
X3o87GHgvFPg+7MTq0kbP7JpK/QzIHvqxptvk8wk+yjL9bMUBp5t6L+/e3QV
SYJV8IUFg4GigO/iZg+WqxKHA8pVvxL1k/WZI3zj76p/MaNe85MMsP/q91MP
nq0yMVDTLZhhILJJtTJw/lsVf/V8/85fRL7UnPS9KDlWdcflXAL5DwPae+wk
K6I/VbVLFlwLXmCgNzL7kevb/iqJMa6DOv+I+nU7z/qHpanKP9761/IyMf/c
vpD6nLG3/wP+EK1N
          "]]},
        Annotation[#, "Charting`Private`Tag$105796#1"]& ]}, {}}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJxTTMoPSmViYGCQA2IQLQgGE+0ZwOCDPYS/EM6fNRMEVtp76v1X/PvtPVR+
o/2MPKHmA6fe24eCwVb7Jpaj/Ybl76Hqd9pHim+/yHDvnf29uyCw1/5xBEjg
HVT/QfupqR3JsXfe2BuDwWF72agU6/v+r6HmHbVfff5q2Bv9l/blYHDc/svf
KxUv1Z5DzT9p33M7gyG/8Yn9nt0gcNo+gf2cZOCth1D7ztrff8A9eWXTXag/
Lti/9AB54BrU/ov2MQqOH5PPXLRXAoNL9uZSB6IVHE9C3XPZ/sqsZ7LLXxyw
dwGDK/bHd+3oZfuwDeq+q/brtyXV37RdaZ8GBtfsN0wBeWgO1L3X7dVKmWZx
SPfZd3aAwA2o+6qh7r9pXy2yzv1hVYn96lUgcMseFHq6ivFQ/9y213WWef3I
zMr+7BkQuAO13w3qv7tw+ffvQOAe1J8w8ADOBwBytdZN
        "]]}, {{}, {}}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0.016666676530612243`, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{{0.22696511237289013`}, {0.5}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{
     "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotLabel->FormBox[
      StyleBox[
      "\"\\!\\(\\*SubscriptBox[StyleBox[\\\"f\\\",FontSlant->\\\"Italic\\\"], \
\\\"T\\\"]\\)\\!\\(\\*StyleBox[\\\" \\\",FontSlant->\\\"Italic\\\"]\\)=\\!\\(\
\\*StyleBox[\\\" \
\\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)0.226965\"", FontFamily -> 
       "Times", 22, 
       GrayLevel[0], {}, StripOnInput -> False], TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8234421940191636`*^9, 3.823442332998659*^9, 3.823442408665162*^9, {
   3.8234442149060707`*^9, 3.823444243212821*^9}, 3.82344431275288*^9, {
   3.8234448059503384`*^9, 3.823444815772146*^9}, 3.823444883973922*^9, 
   3.823444927459898*^9, 3.8234449686054945`*^9, 3.8234450149423895`*^9, 
   3.8234450913753047`*^9, 3.8234451456771216`*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"400331fa-ec69-4359-819a-be550bf21a72"]
}, Open  ]],

Cell[TextData[{
 "Any discrepancy as you run this is due to the decreased number of Monte \
Carlo replicates used here (to allow it to evaluate in approximately a \
minute) relative to the much larger number of Monte Carlo replicates used in \
calculating the final result reported in the paper.\n\nReproduction of the \
edge fragmentation threshold of the triangular tiling is handled similarly \
(reported as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubsuperscriptBox["f", "T", "e"], "="}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "90bc770b-f36a-4dce-b782-f13e668f9459"],
 "0.208):"
}], "Text",
 CellChangeTimes->{{3.8234443178028765`*^9, 3.823444367901597*^9}, {
  3.823444435583853*^9, 3.8234444889700785`*^9}, {3.823444976302551*^9, 
  3.8234450545632486`*^9}, {3.823445159949848*^9, 3.823445183037759*^9}, {
  3.8234452590590115`*^9, 3.8234452618548555`*^9}, {3.8234480680859556`*^9, 
  3.8234480748163986`*^9}},
 TextJustification->1.,ExpressionUUID->"4722ceee-98b8-48ae-8bd5-567b660b06ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"assessEdgePercolation", "[", 
   RowBox[{"g1PariacotoVirus", ",", "10000", ",", "1", ",", 
    RowBox[{"Round", "[", 
     FractionBox[
      RowBox[{"EdgeCount", "@", "g1PariacotoVirus"}], "2"], "]"}]}], "]"}], "//",
   "AbsoluteTiming"}]], "Input",
 CellChangeTimes->{{3.8234421717142286`*^9, 3.8234421739338193`*^9}, {
  3.8234423395314703`*^9, 3.8234423398742414`*^9}, {3.8234441961200314`*^9, 
  3.8234442112715425`*^9}, {3.8234442596035366`*^9, 3.823444262496132*^9}, {
  3.8234448075244083`*^9, 3.82344484075422*^9}, {3.823444926621855*^9, 
  3.8234449267415113`*^9}, {3.823444964553103*^9, 3.823444970568142*^9}, {
  3.8234450444938936`*^9, 3.8234450509527097`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"13781a95-036e-4e08-bbd7-38aeb08084e8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"71.0808495`", ",", 
   GraphicsBox[{{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
         Opacity[1.], LineBox[CompressedData["
1:eJwU13c8ld8fAHArsqXMr7IiIZXRdJ+PXSRERsiOklUKEVkh2ZSRjIgyIjNx
HzPZ291XFBnJlVFa+j2/v+7r/Xpe55zP+Xw+5zzPlXbxNb/CwsTElM3GxPT/
X5a5NG/v9hjI/ncS0yrUcJspcQnEwrKe+x5ezM6qvIslDrFAV+R5I4a57V6s
2/TvWBg7r/X6KGbfEj2ZUKM4CNRP2InDvG+QeVosOw5+mQ+uncEcKn7XzuLY
AyDsL4uyx6ysfVJsNfoBDBSxKrtjpnl8JySMP4CpykFPX8yn6v3Mu/3iIZOk
UhWOeYl6SMC1NR5otVENcZizWb4M/uN9CGHJXdYpmLdMrxieLH8I/Pj71/Mw
vwiQ4SD8fAgFvZ0fijFbP/3QdfNsAvSdu/atDDN7V24kf2YCzEhZFlZjbli6
pFUxlwBH5d1X6zFf2SWyfVY9EXhOhnx4i3nPiYnmuchEQI/5+7Zi7nJIvRM5
mghP/igXdmL2v29yXFIqCb55xN5+j1mmgnuz2ScJdls5f+3DPDbWU2ODT4Jz
xdmcQ5gjft732+ROBsZh/v4RzEekdFXSbJPBkFCgOo552oBpWeVlMlTeOqQ9
iTnZG/+y/0cyeCyk/yBgljTCq6nLpsAAX60VCXMg/UlapFEKKLy75kjGPOQX
/G3kBvZ84bEgBbM82yUzyewU2GktduP/Dss8XuXdlgLKX4dD/m+CojBfy3wK
xMZlq/3fKuiGFxd/Klxjt8z+/3z3L4z32xxLBRm9mcr/r0ebfa1YejkVWCX3
3iRiVg9KebAZnQq2t+Y//z/eBG7fBd2KVAiQluSdwDybd/5M2ngqlLEWzY1i
1lRVLpn+lQr6WxduDGNOf8e147BMGjyicb0e+H+9bRZdQw3TYDmx4nkvZp3l
9x39fmmQuShk1o15TfB++NXWNFARau5FMRuVuH5o+JwGLfl1Of+v17OTOsgO
vnSgGX7b34D5gtO/34X26fDfzaqrFf/vj3W67WpUOlDLVmRLMTPFtjQh5eng
G7T8pBBzdeWdQOrPdLhwJv/dI8w7tW0IB6UzQItV8E4yZseJYxpBZzNAtxdd
/n8/8v1eX9uTmQFdC9qiIZi9z/r4mKg/gmtlJln/73fxvbVHvzg8gsK/hBoL
zD3ffmzEPngENGJ1vBHm/U8iQtqnHkHJdk/AccyUrxlx6g8eg4VMjiMfZoP0
5mfiU5lQf8GP5PKPARseTO6NO7Mgqm6x3RBzoab+wYtqWXCL/77hEcx/5oaq
EuOy4NxVZs0/2wyoOfGxhUktG+62qiwnY943tZP4OTYHAkeNPV/8ZcBAzfmc
qJoccEjbqxWP+U5s2mUpeg7c10gmXsc8cURi9pLqE9hLV7+ogjk+6vC3AdoT
2Ndf2lH9hwHfFay4a48+ha8MiSuVvxkw5F8E96j5sNLTd+bRTwbYpD9KLGYu
gCMjy6TbmPu8LoU8ECoA3PcbN6wwv5KcsbLAFYDWn6lWEcy37q/yzicUwHzY
JNuTLQYwXeC/y6dcCLqGuW3PfzDgpuL4tXUoBKvoi+mxmD+xZlqTLArB2eZB
0DXM3Q371J6FFMJTTW/XQ5gTJFSWNPoL4S0fTrz+OwPEFoxtLns+A6HCTbbW
TWw/7QIGOmHPYP31n/P5mP/kTKgdSHsGn6XSzt/DPH3env9b0zO4EO91CcFc
Unu9O5qzCHDF2yxvNhggmni47treImhCMx0fYX7gvl5ocrQIKGI9ejcxe4mF
hIpeKgJz1vVURcyq9+LVK14Uwa6WlMcZ6wwotjGRSW0pghcbLJnemIVUBQUC
RoogwExoTR/z1mz2F9gqgrWP+wo31hiAGr18Nn6mGAISZrUNMZ8T7hH4/bkY
jJpUY/tWGWDPuCxy91cx/DsyF5uJ2adnfe9f3ufAq+yW6oo5LVhS6Z/6c3ia
I/lyi8EA0lSAPmvUc7g8tW4hjHmpkcc4+vFzqNy8wUpdwfKR8sx8R9lzUPD2
SsnDLKk75Mgx+hw2PFUOyWB2L5UL5pYsgY/yJhTxrwwICm8OT1AtAe0u4anJ
ZSy/ly7E8hqUQFYed0Yy5kru0Ax+7xJI2Bpl+vcF62ffiVe7m0vAo/uEweAS
AyJPRH36z7oUNPL1H8svMCBjl9hSrmcpLGSXzfXPY/lferW6N6wUXKvPMvth
7s2l/JV8XgpRf+82131mgACzquj+9VIQrfnAf3SOAXm908bKyS8gx9yW/HuG
AU22SIPm+5fAPR2/yUdlQMBFDoYb7SWwrO/qSKNg9TEZOZD47SX05XnpCGOu
0HbJpv9XBpq9hvclyNh8CjF3w/zKQOa5g8wBIgOivw/qtImVw6bFwGHcOANM
0i4P63pVgIl7jEF1PwM+9t5dMNpVBUX7nrY6oAx4q+pRySlXBc1j+XHbeAak
Prlws+dEFczx7Duah1nLW/6PvlMVbIMVO72FAU8FRvi1q6rAjKzBZdOMxVOe
+uSJfDVkZ9U2495g/TfNvh18pBr+fWb2JDVi8ey562R7qhravFeTbmK2C3WX
EzOphjWzQJnnDQzgMj1d9fh2NewoqXjDUs+Aq2uzHald1SB+rnEu+zV23uVt
5W4MVUOKTe4XBcxadsOxZqRqeG1m8K+hmgEiXU3G/MvVEHqoRmOkCjtvj5II
Cbtfw+Ky24HvlQyQPXliKdblNUjun2jlKGNAknelsYfXa+Da5x8S9ZIBvwpl
qgwCXgOVxTr77wsGjHHx3toR/xqKLn/uWi5lQDht5m/k69eQyP3tUv1zBkzd
e7grjKkG+udkb34qYEC+njjvUe4aSNZ1/H0EsxPny52zQjVQvj2RE5KP3Qdp
3f8MlWrgSvEVAkceAxaeM68IWdWAsDnB8lcOA156piz2ONUABckvUcHseVhy
LuR6Dcw1JkU4ZjNg+Y0mbSa8BvTcickNmQz41h/YV1leA5Y2fbInMrD7NIW9
26mhBqLORVJN0rH7yvJR++72Gvj00zjVOQ27D6dq3twh1MCrfIHXwSnYfr99
LdFnroWGWm7inQQGsIm6RdGtauGKZIlnbhQD3tHWwlKcayH9vtOQZyQDYgoj
gnW9aqGXjV1UPYIBO5Xyb7yMqIXJKztFGsMYwItQHG9X1EKM1XPy3TsMEHYz
0+RlqYPzE86pW94MICp8ON7GUwdfde/+9vZiQNZXbzV/kToAltVFuicD/gt8
qEhWroPVa8uLlR4MkIrvFn1uXQdNU4Epgs4MOFitualZWQesB0YN+S2wfr2l
/hffWAdnHqfxn7nAAOOTyjugow4uTakOhZhi90vHf0LaxDrofMbZRTvHgNqJ
X+r6zPXQVvjJP1yPAbifb26dt6wH+4LPa94aDLigo7Fx+W89pM/s+kQWxt43
E4fWw843QvF+6xyTDyuQZXZM+5x1I9BXlyk0+go0DCDJIs6NoDdnTfCircBG
l6lS9a1GeOralpJKXgGf+huuM08awTvSWezL+Aq4Pa4f111qBJsSwZLunhUw
scHV7Yx9A4qBRXzONSvgNaHPMpnyBhqcpea/Va/AQzMTs8KcN6B/mXt3RNUK
9Jx1XD756g3EFiNb2RUroHsyYv/1yTdwGQr+1pSswAnxdxmDsk1gyBYm5Zmz
AjI049tpbU1gldqZdfjeCjxe8LFX7W8Cl2r2wMOhK8C1maI7NtkEgZ46Sooh
K7DGO7lL8EsTXMzlRAQCV6ATLr9KFXoLCz4FBwp8sPiLvOdTPN/CePLpGaL9
CpR4Jl1K3tMMnF33C75qrIB4YLXWYclmkKCdGrZTW4GkqLEDwwebgbIuItJ9
ZAUCcoW/80EzLPNViycrrcCZoby0pGvNEHRdmmdDagUWjlb1J6LNkBp20UeQ
ewUO/hzGJVxtgR0Cth/naV9BEc9yPfBmC/xd3JEqSfkKyhEaWS53W2DLauDb
ReJXOMz5ZO1ESgtIant9fDP6FTTE3EvnGrHnnRvy7t1fQfvkHwHgwIPMOvdt
u6qvcOmOwuy353gY8POZpdz7Cg9+hsdbf0Lhb/2HnSESX8EWL9El8BWFXXvc
zjiI/X+9N397v6PgSP2N1xL+CiM7V/00uVohQvXDNVaBryAs6mgtfbQVUNr7
S+GsX+HZMdz+L2GtkPPIr9F2aRmmmv44AG8bLH2rviDduAzvn/T9/k+wDVi/
l7vTa5ehOjQra0u4DTLwzbsyq5chQlt97LVUG/yN5SGwlC3D/t7r+vvV24Cj
QKS/KXcZrpMoSpx2bbCZuMWaHrEMW9/fbI29aIPBBa4cx7PLwFO420XsVRuY
m0Z4XtRbBslzPv2OtW3wlp9kqKu1DAb5snnL+DbYrurr5TuxDBlnknTZx9tg
fknrw6UDy3AkyzXp5N82WFGxnH3BtgxXT/LtL7jQDnMXU/opTV+AHOJq6v2r
HezCTU/Ui32Buohuu0v/2iG6N8pAUOgLJMUevKrP1gFf5N31bgp8AZ10Rvhe
vg5Y9PoxdZrjC5SVhdQMSncAxSgX93tjCe6S04VUDDvgSJDfbpvRJZA63kVd
yewAEnFBdT5pCX5pHlig5HZA0R8Fw7/xSzChE7/RXdgBXgfbL4jFLsEDEzPe
/PIOuPdHeNr53hKsXaEhpq0d4Kwmf1fJbwm6MjYKqz53wOmTWjstzZfAY23/
VT+NTgg3HZQtFl4Cr7Y92t2nOqHd/U9CmOAS+CWxiUtodUIXTuy4Bd8SBCvO
9r836gRFyYxHizuWIMml6LCkUyco2BN80Y1FaBiT/jEY3wnP9vedfjGyCM0F
u0ZkUzqBZ/zT7vX+RWjzYX5551En5O/qNzr6fhH6uGZs5Qo6wUEtWCIGvwhT
OgXo3fpO2Kh/pnv/5SKw1+6LUZruBKW9trp3whaBO4LPMWKuE+Ca3dXuoEUQ
MN0+TlzqBO3zf7mY/BdB/At9MXKzE8oa9rw94bEIKrJPz1O4usD7/t6cPpNF
sEz/T+iBRheUW/np9okvQrG/aPHn+C5QWpg13PlyAVLbNaNkU7rg7nDmTEvh
AoTxO7s4PeoCXh7PO545C2BT/lKKkt8F4fMqKjUPF4Dn06mng3Vd8Jgcf37b
ewFumV9+XDfVBadP7fKZOroAekefxUWqvgOb69Hx7k3z8GlFyXsf5R2U6o9z
cBM/w7Cd1RYq+B6G1J7Zn9SeA8/xmpKxKz2gS3PsznX8BK815UVMn/VCh8x4
7dXcGQgfuzVZVtoLPHbh2kKPZsDsamc6e2UvtItOc79LnIHVdCcBtLEXpFX6
cYfuzcCRLzmchwZ7QZ+N5iHqMgOvsvn/cG31wlCwkbOEwgxUfN+a7j7fB1cD
rhszaqbhbsKZfBmLPujg3OcQUj4NxjKPL4fZ9EG3r+wcc/E0LJ9Xo2i49kEo
/tSpvxnToPTce7w4qA+OFR0wfx4wDWUWH99FFvVBRJ39u9AT01Ba3V+G/OyD
nS8enOi5+gEcuk18I7b74MXU+2rU+gMI00bVulj7wVFgIznb4APEcJBaDPn6
IZ/f3Oq37Adwd5gduijbD17FhhL36FMgz/N3zfN8P2g+PtOjYDwFxR4qpzML
+0EvqGwf/146FOxL7WcYDsBtmesNIfUU0A/zfsUZPQhO17fMrHsJkL0QUveY
NAQXapgEm96PAVdY7sMk+hC08sSt674Zg+DdeJeYj0NwnR6w3PtiDGyRbYGA
5SGYWP/5rfvBGIhnhHtbMg1D0+38xahzY4D9E5PfozAMi+O1IduDo5DzOCkr
NXAYmNhi46eGRoBLucr3wd1hMKjludGPjkBw+7BBRMQwhL+U/tnwagRslwU2
/R4OQ6OLLfowaQTEddIvmOUPg/5w5fAJkxHI+ZrJxf9+GN6myxnw5g7D+Wdm
iAH3CGiJ8Xmffj4Iv5R/V9TzYvMcT8KLxQ5CSePz/+QERiBwS+H8rmuDsD3w
a4tVaASkb/RlmB4ahFc/imvb942A45OIWqnGAeA7/1MBpzoCtwY+5U6M9MPQ
j8Ld6pdGQOBqckqYTB8ERxpHFtmNwEu3nGJlzj6Q5/2xKugwAnXB8RV8q70Q
JmM89M1lBEq2QoI90V5QOf89rsprBK7Hl15yvtwLSc+MthXDR6At6HSoSVEP
mJ5fX5AuxfIioSh+8sx7ePFXRe642Sh4xkcZvL/YDufFi8+9Mh+FFZmBCzqa
7bB2TOymnOUobJAlU5tk2+G0H2vrbttRCIsMESxca4Ohj0SbVVfs+STHys2U
Nth4H57wMnAU7j9W/HYkpxW00sbW/8sfBXHF3U2axS0w9+qMeHrhKCxs1B6J
CmiB+P4WLa7iUej5knVnp2ELjLOVJm69GIWa/yyNSSvN4B4YcmCyZhSY6vNS
+3DNkGC/3y6pexROWb8J+bzUBET5gA6mlVHsvcdiDHGNkFZ6dLhidRQ2ecME
J7DvImOFr1Sb9VEQepfcip5uhLaDbpvVW9h+I7UGklYb4IWyuYIz6xiUPLhe
unC5AYJUVZLaRceg2The+rd+PYgjny9F6o6BQ+M25yWoBQdLq2+s2WNgvKjf
xrXyCniElSOKnoxB0+tKLZbaV/CWwLxLN28MTC6qe7AHvQJhm8ojkUVjIN8c
IYpjeQXDtmx+TK/GoErY6mC+SCVoOdWs/OkYgwRc5Ve+s+Ugc51veXN5DOq5
rU3dhkphRGk25BFjDOL8JvEc2aUQttzErbE2BkOGyc6/XUuB4n1F6daPMWD5
mvWW+qsE0v1aPNeYx2Hjj+ZIs3IJsAV4Lq4Ij0NRSIr/2LNiqDmmdSdJbBxc
PG8kBfgXg9MPIU4ViXFoE5coSdArhpagdgVv6XHIsqjBiSwUwe0Q0atflMah
Qfk/pRn1Ivgc3v15XmscWidcVt5+LoQgX6mztrrj8DRAO5HSXgicDsEvB/TH
Qe9re57r00JQPq3i9dpoHNSuyHCUWxbCzc1H34IvjkM7sfE6va8Atq9d+cN7
dRyceYe/xiXkg5AFm6B68jhkck5bBiw+gRJtB/+S1HH4UmxidKL2CZw48mZC
NGMcgmsKf9uFPgFbXq/Mv1njMIZb9H0r+AQK3o9LvH82DvZdZU/8tHNAWbPo
gG3DODTxX557WZ4FenI6uHA6tl5qmVdyziP4Evgx+sD0OLy+ElaVeOURpPVF
Dgx9HIeHzewBd448gmnfTru9C+PQrbInmqM7A0Le6gW/XRuHDFX9g42MdKgx
PdO4wTEBlVqMe+aQBpLBxkevqU7AbpqNvn93InQPLAcJaEzAlFmK5pJ9InhJ
JrY1Hp+AmLL6HHQ9Ad52DZqy4yZA/y9O8rFMAljxm/oUnZkAHN7vQt79eEgo
vlBOt5+AX5HNT1jdY0Htx7e1aMcJkMvwMPzOFgsUw7RTyi4TkGY2Wl5QHAMK
jLHeYI8JGGi5IKP2+T50nry4IHJzAly3j04t34yGX0NWcuaxE8DKPDhW1BgB
0aYhyMCDCbBLEC9W9YwAvpF8a4OECdjjJD5ftTcCZEcXHpxKnYAzOlcl42LD
wXg8eEXmyQQQNCP6HYfCgGCRz/H06QRQj559dkU3DJwmOqVECibAm7ugOfVt
KNya5LHgfj4BsvLxqS5Vd+EpMa9x/dUEvO69QTGsCQYFm84R79cTULXgGyN3
IhhqSPOL87UTwPXwvRBr2x3oJh+RoL2ZACuP7JSKySBYoXaEd3VMgPKM86SQ
aCBoTX82fESYAMNVmxSFDX/oc+J25SdPwIvFaDOPTH+4OHP47gPqBJTnubQY
afrDtY9Br0KnJ+CJoaHhQvxNSJvl2u2+hK3P7iBMPXUDJK4cVp5engA+rRrB
3CU/KJmz0LdlTMD5C7P7xp/4wdvPuYEmGxOQzrklmsDiB58WVGjHtidgwWN1
lqfdG3yuWWxWM02C/r7yrJfHvGFrMZBPiXUS9uLvqE++8gKeL21akjsn4f1w
WFxZyXVQ/2r+nENwEkb4Ljty1F6DmG8BPiS5SZiWEqixVncHtpp6LgOFSZh6
obHpM3wFIm9ulNQqTsLgdbvis15X4N76jQ9JhydhYuffyyLlbhC06WWmf3IS
TviszKycdoVrP11Ua4wnwefiiTNfCpxgoalwSNJ0EtKTXdnZLJzAPXjaM/HC
JHzPn006zO4ELr8vF121moTg7hvX5T84gO1fmz2STpMwzNPO3f7EHoyZTb8/
9J+EIvfkeIq3DfS1J6b9vD0J92/9GD26ag1nIwdUPIImwdWaOcrwljXosxp5
6IROwp+pxy0VEVaA7NAnbcVMQt0AX89s9UVoeRd1y/3BJHjY9D+e0boIp2I6
BCYeTgIWCVv0mAUc59AyrEqZhN0uzVYVv8zhCOfpt1dyJuHqqJPgIYcL8Kr3
jtV47iSc5j0m+POXGSjHv1nTyp+EXMV9n02zzeAg9zElieJJYMmJMZSuNwUZ
3qO5Y5WTYMVn4ss8ZQy7dx0Ig/ZJ4GRm57FtOgMlGhVMHzsngX+N0nlxzxk4
ZXs0Krp7Eux4LD1u3jQAl6LTcb39kyD4S+bYxnF9qNYwS7MgTEKDS6KlzLwO
6NlO7vlOmoTRM+sDerY6QAyzzcyiTgJheKxJf0Qbtt+75dKnJyGQbfFNW5cW
GNveKfH4Mgmy5rWXrZ/iYDpsW4FrZRJuZi1cLa7SBP+iqPKK1Un4Kfz2ptz7
05CznFj9bXMS4tTZee7tOAWLYc/ehjAR4LyuoPhr/DG4W3QAt4+VAMHZW1Po
Dw0Q6KlobdtBgEqx/Q2BxzTgxK7Grh3cBNAWlJQraVeDmKL+oWQhAqz9TbVX
4T0K4j1mF1RFCaDwUXRhwPMIVC5Pjk+IE7D38zyHWvZhmNCYJolJEeAIQo1m
O3kIZHo2PhYpEuDfudYrK0QFaFi+c8XgEAGuuHxTJY4dAMNd/+YXDhNg34v5
wKOT8uBny/n1kAYBjr14tecdYz+0Lu/90QgE8JuMNVK7Iw3mu4ru2OoQYCe+
JeZmhRR81lD480ePAPpnimRvDEgC3z1VZh0jAnyvNA9/T5aAZ0WNUbPGBCg8
7H5Twv8/0OjRZI81JcBwuOWlDFFxsN91hnvgIgE2HD/Zs8SKwKrGQKKPNQH2
E/jlokyFIcr2gsAuWwJILaud1JQVgrIiOyErRwIIdIflen0RhC0NP8npa9h+
BzqdG1d5wTfujr+lFwH6ZYrwzgY88JkS+b7PhwCvuUZzPSu4YOLeI996fwLM
qIzXi7/ggHNjeZ2KAQS41sxmw4pjh479L0QKggjQeAdMBqfZoLr3bWt8KAEO
KD/kiLNggQMSXbuZwglw3++n6ltpZsjzGfS4HYntn8+avfDXPyRh9zS/UywB
TmQqvbNp+I2wui+6Tj7A8pduVefe9BMJfrPWaJRAALHbYUk6Ez8Qj8s7nDRS
CeCveOr5NZMNZKqKr64snQALT+NqjlesIRdZRHdKPSaAywlDY/K+b4hOqWI1
1xMCxGkpJ568t4w0/VRjC39KgIy9bxmRpEXkiDHOZjOfANa9wq/CLOeRfd9M
maaLCcDKfyAiq+4j8kj30kXLUgJML5oeb0mfRngeu7zoe0mAd4puoqel6civ
U7fN6l8R4HabWNnZ5knkRmJYseJrAva/cnMiz3IMWfgQu5VfSwCPwaMxvDCE
EKJzCuLfEMDMSGRKz6sDOU8s2vj3lgA+/4Ra7683IV0HK8/exhOg4L/pAf1T
VUjNUOuqYwcBwvvjU1xzEtCD0r16k10EiCaEa4wzv0QL/MeyjN5j67fsflrG
XI8mis5paQwQoGKz/flelw6U7fpKRtkQAWxzOHRX2LrRYPyPBclRAvB0J9rJ
3O5Fv/Ez4x6NE6BEaNX8Ve0AetWFK5WLQIBZ6b6EmPZh9EPd7rl7JAIEddg1
DJuOolYce09uUggQsXywPKB0DNWrODzz4QMBjKeilu4KTqLN2yc0LD8SALTK
s0bkCajqBZ0HfbMEYDedSSuVI6Ivi87RYZ4AL4jrXHf5SajU94tH6xcJYFRa
rdozS0IzzzrcV1wmwFb83Gn2EjLK98SDnL9CgG5TJ5tqCwp6/6vfIaFvBOjr
WGnSWqGgfyA4In6dAOKvHdKOBlBR/7SoyX+b2PP50N1/v1DRpdmEg7e3CLCk
Ju6714yGOh9/HLr0iwBPXJiJPEU0lPQgf9TxLwE+ajGH6s/RUFPaC7nJfwT4
8GQ+TVuEjnar1NwxYiFCqVakUchJOqoZ0TzYykYE7T95k17GdLR2vEtag4MI
E0+43VPM6KhW/B77D5xE6LztWTOjR0cHtNweP+AhAudZefstBTpq86N2RI2f
CDwPd/P7/aWhs5Ws3FO7iHCqkT1wtoOG+rlZ6MftIQKL/gR8u0ND/4oX3VMV
IUJ1hZmQqiwNjR9da6KJEaHN3axIp5WKCsfpbMRIEIHwpfQRakJFnyFpKkcl
iaBRp5SlPUZBVTZnrlKliWByotrKw4iCnnGJoB8+QIS9lryNnP+R0QnRURHK
QSKUTCVV42+RUKdhKfNoZSJM7nAVinpHRIM027pJR4kgz2c5Um1CQNnW+Zmj
1IkgNf1fmFncJJry0vH0oeNEOHE01sCveQJ9KfyvKkKTCJKqTwl5AuMoZRWX
rXiGCF5vOMJC+YdRzefN1+/aE2HdwUgo3KUN7bHjLpF3JMKzrKNNHofx6EVB
u+kRZyJ8jw8rfVvShHrf+3VRzoMI7Jp+TvR3NegvDaPk4WtEMLx7Y7fQ3Cs0
Zjm7944XESit3/Kbr79A8y6dRIZuEOGHUF7HO4UsVFHgQVDQLSKIXxk6f4fp
AdrQTaqRCcTihyEd33RLdFgt6EDgXSJk+OI4v1mlI/ZL752l7xEhau3WYaeP
uchCgUhufwQRLup5B3tvPEOY+BoFpGKJYKQpGlh9ohxJ6GI/1/eACL/jzG5f
+PMKEQ2xun8rgQhuAiP3rbVfI8VHS1r3JROh58HugIefa5CjC5s/e1KJINcU
6Xbdpw5B8/TV/TOw/nl+SDGPXI8YWT7y2ZtJBEvr/QV9Co0IgXvuxftsIna/
B+Rn2r9BXDrUP93IxeqrqMFccbsJWQmK3iuRT4RIO9+8V7feIiGHJ6y7C7F6
39QwM7BtRnZ+lk3zKyaCUkAmQ+xAC5KR6z8gXor1i89zyxFqCyJl0cn+7iUR
Yt187QTu4JEKzt3avhVEQBx3UML/4ZETbS4hYlVEmHcPLOvxRZF3ATX1na+J
UBg1+TypD0XU7WLateqIEBL7kjWYpxUpBttBfAMRLgTc/YvXbEX27Fchn2oi
wrfOjusf7VqR6J0sc43NRIDZVXlfz1ZkY3lyVR3F9ncuhGP5aiviOvryz+s2
ImR5EeamrVuRsfrQnYc7iRDREpAzebwV0cm5sKfiHREaX438vcDZitSEyUkd
7CGCSqPNAn0ARWRcfyqV9BGhzzBKlTkKRdLODB6XHSRCMKWrTlcZRZiVC3UL
holgRk89c6gXj/gJ3DbdO0aEPd0Onfq2eGR646xdzgQR7uwsYBKabkHa8Ks3
M8hY/T0vSP/ob0aOPOsK20UjQu6NsnoxtWYkPyYrPmmKCI+eGXoLpr5Fwky1
nsV9IsJlM+UXz9WaENxM8ujdr9j5fgA/VWQakIp3rvSfDOx8x8dcnDKpRyTK
ji8GrBFB1aLx8bOAOuTPzQ9MN34QIZD/xdEHTTXIW7bDR64wkyC1eQf94vFX
iOIii+ZHVhJ4Fb20a3KsQLIHCWcc2Umwz/7q4XcxZUjQ4zDHS9wk0KSRs3dN
liDHFYaSzguRoG6R58U1qXykhOdZTp8ICURubrwUznyCCH+7XXJGnAS2wgVu
vBJZyPemvai2JAkCN+MfWl5KRerOeX/VOEgCDbFYo783/ZH9R7R/1iiRoMZn
3suA0wlJ3yO044gKCUwCno57XDmD3qS3SCiqkUC1NJqN51wg+rE9RaFUgwQo
1/6Dvy+Ho+Ylbur7T5DgtHCDUhwpGj3qy2O8D0eC9xraSQGiiWiBxbT1EyAB
vKg5yO+XggqcqHMV1SHBnvkzjhrH09BwiTjfR3okOCWqFAEf09FVJvsQwTMk
MP1botB64xHqNHc4NtmQBEw27Az9z4/R4V7WdB5jElxcTPe+opWFvkorL2O/
QALSG7etutIcVLAx+2SgBQn0r9oG/ah+gt6mxvbMW5IgnWdMhr0oFyX9u21t
Y4Plx71fyTPsKaq53+1zjy0JGBoG7yt089CCs+a3T14mAcdpnYPW63kom7cW
W5kjCfuubL2/lpiPXk1VSRd3wfLh77CTjasA7a+XkHnoRgKLmL33BHQLUBUK
1+vf7li+6yS0XW8WoGnbW+B1jQRv6HYLWlkF6HeZ+SHadRLs/kjhW6krQG3P
TF4+70OC5MJsk6qeAhS93rmM98Py+SdTu3e8AJVOeR2i4k8ChbHJiHBCARpd
l8+Vf5sEV1gtXoqNFqALpMRs/iAS/PTlNyd3FqDGf0MUwoNJsPaDS5itqgCt
lvZsXL1Lgssh+slTaQXoHgMbA+d7JDhLQa0rfQvQQE+DydEIEgxvBHDW6xeg
lCR1N51obL4yb+SUUAGK1Mqs18SQwLNJX5oVn48+IwpEyj4gwbkJZfV83XyU
/c+2QMZDElS5pyyOonmop9TXfLYkElQe8bu9/3AeOqhHVbmdQoKitX5uqUdP
0YzERmOrRyT4cvn7geN6uejW6+fU7kwSuMd2CV1JeoLaE9I9j+eQYMdL3imn
kRxUVtIvTjSfBHaT/EOfcdlojK6DyINCEpg59VyO8sxClzyMS34WkeDWp1+Z
gqmZaE21QhflBQm6xweoh4YeoVo6M/9ya7B8O+29cEkkDS12H07irScB5XXe
bIJMKrrzIX5vWCMJNv9kdvxRSkGHx7NPO7aQQI7pk51XYALqcMU8ULoby9ft
m7MyzdFoxwMt9rQeEqjVfRY0H49E5V6pPGLpJ4H2goFw4mo4uvydq/bTMJZP
27TA6bvBqNl/P7UvjpHgU+iEXfDHALQO5ke6Jkhg9HDpYKutPxoS17nynIzN
PyIR2yRyDZ2qeB0qTCNBgZ+6w3aqC6ozms8TO0UCvwHirnv3bVAu8buKVz9h
52FfprHVcXbUB/FsIs2RIFL6un3/vB4y6mJz1nABy1dto0PAHkskq1zdXfEr
CcrR5qcDHm7ILvVr1GEGCa7v9NzraX0NiW95anZ7Devvedlx/W1vhFV/7J34
Jgna6lgTvqjcQO4Osp9u+0ECxfPZz/pO+yOblqerr/wiwd3OGXKI/G3EZ8pX
jvsvCZT2eU29ZQQgTgwSvxULGbayI5lHpYIRciDv/d9sZPj4XvmOZHwIYs6k
86uAgwwF6xf9libuIv1xAb4GXGTIl41P/8ochujtKp/9wkOG4w52ybO77iH4
7A+XUvnJMDuhFPeOJRw5JrNn+JggGRzZY52HfMKRqrKzerQ9ZGjuZi/zHAxH
FNRCmyJEyKCQvXZ8a18EUtj8WuWAOBkmmdJmJlwjEHG9z0UDEmT4Hq4c6pAb
gaQPiIvdlCQDPpdzZq0nAuGxNE0SkSHDJaLfJ8ZiBHKfHsWK30+GP7UvbWv/
RSDbV94EuRwgw3j9b4knXJFI4MryVw5FMgg6vWLawR2JrAZIu1Yqk2FJg5Nm
whyJXPtnSTI/TIaEtxb3CV8jkI+x8ee3jpLh4I3JsZ8jEYidQGvHU3UyrNIm
c4TLI5CJrPXjusex+SJya+PvRiDnpRUqF06SoXPab71WPwLpfmkvk6RJhiP3
co6sskcgoJqaqQZkSPzgpP20LRx58/YdD1mbDFz3uf+I+ocjR3V/RYTpYftf
mznWvi8cKetX+SF7hgxnbaxT5mPvIbm0zBkfYzLwSvgkTW2FIkJXBqz2mJJh
+w5/57xUKJL0lWmg6QIZbsWNW20gd5Hw7WsNbNZkeDDy7zy7UzDyMyZPqewS
GRaFY7ii3O4gN/nHC0ztsfwduE765hyEuElpPsxxxvbXmmibYRSAnNXhczri
RYa3kWSi//wNpL1PZ3LShwwmA7+2OXr8kFMWgUYhN8iwU/7zcaKJL6LsNq3e
HUCGQhfDccl+T0QgpobTPoIM53qcPUrnnZEHfPNhzNFkiJFrLn4Z6oiwZP63
URKD1T+E8akRsUM2SqOnvj0kw4uhbfeXbBYIudeqNvYxGYz+Wa19SD6MHAvn
//UviwxMR1sap6R3ImnHerSCnpCBOd1MU8deBjUqOjl0tYAMBJ0PUpV0QEsu
re2ZeUaGChn58K3D+iirQLndpedk0DmyJF2kZIS23JVYNCwjA4OJfIlYfgEV
VZs83FFBBvuX0x9M3lmgtxcTA05VYfEW/6JkoZboWL4BvuY1GZ5OHByzybJG
Vaz+sSrVkUFL4oaxqsUlNJ7njVFRAxlMHcdHehi26OcOv9T/msjwL9zic6uP
Papz5yApvZkMd902djePXEbzD3/cx4OSwffrm+nLwo7on7mcK9FtZND8N7oo
J+WE2uRaVPzpIIMcjnYyo9QJrTPnWb/1Dpv/2Z+ifmlnVIDz3cmv78lwoaDu
y95kZ9SrNTT8Sh8Z2l7cn6AxnNHe28fe0wfIYHHom7Stngsqr8zgtRomQ0B+
UOZ8ggsa+bH04tAoGUr8nm4Rel3QqSynJwYTZMgTnNkZ/NsFPW0q9hElYPn9
0fVQRsYVzdoxpnCcjK2X3Kcng7iiG83xvlVUMkic9//RZ+qKmt3UbTgwRQb2
Z1oePtauaIXCnz/502Qo/Vdr7WDpiu78UKcr+okM2USThGVDV/TKI+/4lDns
fniS1uOp4Yp2nJMf3bmArd/CNKIo6oruY/kgErFEhh8V4u5hay5o8JtMh5/L
ZNikO5s0drmgBB+z5zcYZFBttzY+kOyCqspxLi9+I4N2T6islLkLmkxtV3XZ
wO4rN8vMdV4XdDk1+A7lOxl+cjhdX+9wRs+eVWsz/4mdv/2SrjduOKPF21/Y
+3+TQV9xj06rmDPKXF98XnebDJIJbf0qLU7oW2lhqhorBdQs4in+M46oMGlI
umIHBYgpWqJr7I7ozaTYq/t3UqBB8MZ7bVkHVOn31uYeXgoE+Ro//qRjj8a9
fq2ZyE+BWoG/nXfP2KGzHp5ROwQpoBWldu+2vi2aO0EV+C5MgRkP3NvdR2xQ
vleoElGKAqc5hDk+j1qg35yinbPVKaA83qG5WqmPuoREJRkcp8A+lWithvO6
6MSjyOb1kxSYDb0vx/tdC33TFy5kAhQYCsh8Txs8gSrO3dP5rU2Bo/zPjW5e
UUef/AvzfaFHAXO+U0eV/juChqmH9rIYUUB7hF1B9o0kumpy93uVMQXiHaZV
mwwEUJdrIbKXTSkwHWv1T30fCa+fdye08SIFfoi8FW+eFkMa3gSVuVlTYOdx
dbNZLVlEYTyQuMuWAszSQQp/TxxEeHYGHPVypICSd+Qbn92qSJjMbQcxFwo0
hT+OEUhRR1Y1bz3sdqOAp5HWwx+fjiEu1v5v/D2weAsCR1kETiLjN27OSXlS
4Jy1utsuodOIXsINwSEvCtw18DFh2dBEGkr8IMSXAlf19j6pq0QQhXZfL4Wb
WH7Sc8uipLWQHKpP9uQtCvybpnV6UbQQnu/e3ZGBFBgM6N+3I1IbCRPwXj8c
TIH7MKvVIqqDrCp6SdHvUkBBvqiKOV8Hcda/fj7+HgVChKJX9YR0kTFHz+Dj
kVi9t1gebIboInrB10pno7F8vH2yHTmuizRkXJ1IjaUA55k+gr2EHqJQ5cEM
8RRYiuXKXLPSQ3J63VWWEyiQfpXUVRulh/DMXrHLTqYA00TVHH+RHhK27RZn
kEaBI/U89wLq9RCGqFv9egYFJH54Cls36yFOaq4fCzIp0BNtcFQaez523oXf
JIcCBwz/s9TDxutdddb8nYv16+ErHEdi9JCGSKdrL/IpsCBdMGjhgMXz1PGx
5TMK6PKcPSSpjMXT6NDJ8pwCCJlUzryqi/CMXV6tKqXAuP/QkGeZLhK6bL/3
chkFJN8X/9dnp4ussNsbcVVSYAdKFElm00WcpO0CG6socEn309mDz3UQPatL
o7vqKZD53N/xybA20uBns402YufBZtXU3FYbUXhoreT1lgIEfY2HuVNaCHeb
5f3uViyeLb7VC+WAjB00PxnSRwGZ3Q1xL3Zj9da74K4wSIG8WBPDaspJpMHB
LH1ymALvpI79IDw5gWSnm3w9PEmBW2JjBn/5jyFOf40KZz9Q4EOczYIg6QjS
be124f5H7Pyxb5bL7z2MKNeEMsvPUcBoJIPvVIIy8sO92tljCcvvofnNI4EH
kKQRIZmlDaxfFYq1hS//h2woHh6L/0GBs/4fhLLqhBHb+2cjlX5R4HPasEKh
oiAidyrko9c/ChwbzNbf2GZB4jMy0nhZqJDz6Ip1fPombnWlUucVGxVovRk/
NZyIuJai6WcMTio4Phc0Nbz2Ay+z/dM8hYcKWwZGcamBLGiczW7Wo/xU4F6Z
25U4tRNdqVGuHd1FBWqqYoPdFz7UgtfA9eYeKhzE+a9Pmwqibzwcd+8WoUL/
z3Wuju096L6OoM5aMSp0FYfZqkWJoEsB5bKb+6jgb2Vy31RAAjUb7Rp/JE0F
zlLnMVR8H9qgNBV1bD82Pui/02e2JVGJmB9qRHkqXAw6eneOLoVGTAvMBh6k
wr3sZGnhMmn08ynFDFFlKnTW/Fcm7yaDGj/S1WtSocKAlaFqHI8sWsOw37h0
lAqTIgmE8iJZVNQooPiXGhUs46xrWRT3o2HFyRefHKNC3ynJub/5+9HZ7Rds
miepUNluFcfHLocaXeqoo52mQmjVjabn9nJoVS3VLRShQtbjTxnqxXLoHr7N
Pfu0qfCcU+q4Ml0ODb7K9w7VpYLik5yWvxzy6HTHgduOBlSIoXdri8vJowZ7
teWYDKlw3FX005q6PFoRaDtZcI4KzSgLfuu4PCo45n9f24QKDyN/fslVkUeD
lBM1PppRQVbbL8FMTB6lx5TMRVpQQSCR8jZ6Sw7VmWl9JGuF5XerPL1sQA59
cZqs32WDxSNso6b2WA7le7y26WZHBbhj3pBsKYfeWuUu2eFABZ5avpNHueVQ
ipGcVYkTFeKsmEhxjftRrecI+xlXKih/z6nisNuPlvyzbpi/QoWg/ea0fd9l
UW7bG+5xV6mw61Z2MDyQRf3q4oUPXqeCSeBsCWWPLErgK+7u9aZCQFtJqHO2
DPqskyDP7U+FHb6Oud+TpNGd+1YJ5bep4PxTc+88kzTqE8QZaxxEhXe7nd7G
ekuhJw9pzieGUqHgfnzA6Rv70JHHhaUCcVQok3Bc+KEnhopJwsHoeKw/MttV
yayiqEsprexHAhXwR3Z5PGoVRjcaRV5NpVIh0pG4J/TIHlSMnFhX8YQKaWan
biCifKiLs9IxqTwqaO7h4aE+5EYrFnsa0wuwfig4llXKxokiv1ibg59TYf6y
ZXoiNxvq8l9w+9kqKtyvXPjhd2gTX14kotvymgrqlUm7mN6s4jeU6rsO11Fh
paE7tfv9Aj5Gc/W9cBMVSgwuvwmvGMEPdyUaxjdTYVU2qPItbzpe9LxS/188
Fdi0Xld9Ue3HlV92H5rtoAKvmOzD50mzuI05VjObd1RQI/dEB68s4RCfwtH+
99h5POzvKhu6iov9jlhAHxUS5a/+7L20jhsJo03UDGDji79ObPJ+x4lxBFvJ
D1Oh41dl9/WcLZxLsggpe5QKe0Mt8lf//cJt5JtTwwlU2G3y48ypS/9wOIVV
+w0SFd5KPbfXK2VCYqoTpzyoVFibECr7k8yMDJ9QcqLSqfB5+dktBQ8WRLS9
Z8ZkmgqtqYX7FQ+xIs6G7q4dH6nwetldxu0jK1I2yjqnMUeFBfmzhBOxbMjG
pUL3l/NUGLqW84JLYgeC+4gsSCxRYc9UDbNm4Q4kxpN2LWX5//n8bHhYhB0Z
WbvzhZWB9RvTw0WDMHZELETEO/Abth+mzbNzBHbEhbV+ZWmdCl7EOyNe0hxI
+UNzP4fvVCiu9FkABw5kY/fqt9Et7L6rUPjZlsiB4HIT/fV/UyHs7x9P82oO
JGa/0uabv1SI6NUqsermQIYregKUmWjQe9Jw95ERDkRUw30rn4UGSYHXxbWH
OBBnPGvw7h00+Fn+R3a5jQMp0y/8HcNBA4TJPCv9BQeyPoiE/uKkQcLTtg/Z
9zkQTSvatjcPDfgqn7o423Ag96fuhM/w0WDNGnlgjMU75C7CYrmLBjfe/2jG
T7MjIoy6qJ7dNKjEvv9EMtkRp0DzHZrCNKBkcc4367EjL/8xYqpEaXDoPE81
79IOZC02cafsfzQY9Lwr7xu7AzktoBT/eC8NvopX1ejs3YFEZ/Vwc0nR4E3M
z5alcjZE5CUr/7f9NJjWUPyqXc+KBDyaD8g+QIPTN7z/M5BjRSYi+qe0FWlg
kKs+UpfEgqTYpr9KO0wDt/2Wue9NmREuHlkT9VM0GPcUGfl+5C9u20cnMdCU
BkeMrx3qcP2Gs7eT35Q0pwGrEKXVd5CBaz7DdbnnIg12xlkfdiEt44KkxpTF
bGnAPzt4TW3HPI7A05DRbk+D8xnjY38VZ3EaP7P/XHOkgV3v1ciSyzO4tVHn
gbduNHB42fBx/CMRZ4bqq7t60EBjNv7pdMUYrqrsYC63Jw0ePnRprtbqx3lF
fbtu70sDtZi8LLpxNa7Pd3Kc7SaWH4R6N9nlDv6gfdPpyls0YKkKEhDKrsF/
Vo/g3r5DA7Pe204/WXvxetJX/Evu0qCtqf2DoOQIvojXkGpyjwbLNy+kNsSO
41l+Kev+iKCB4N26lxstBLzTZ4Hy/GgaVGjX81JayXh0bEPwbCwNtFT3PfNP
peH3tpKCVx9g9WppOjek+gFPySww0k6mwYQ8+UToxgz+RHR0zWIqNp/oGHXt
30d8pt9V8bQMGpQc+TnmsvkJ/93eOPJUJg0+l9SmWEzO4i8aHln6mI3N99o9
9lzBHL5GY4/5w1waPI4JPDhq9Rm/S2arSS2fBmwO5xY9f37G+/HRpGmF2Hjv
Myfz4+bxQ79aH0QX06B1eeThBtsCXnm+6JtyKQ1idp23+OazgH84Hntp8iUN
mHdLs0hg99dS6/X20AosHwdquH7zLuLPVpgelK+igUfMlQ979BbxJVlqqUOv
aYBeKVhjXFvE77gv8jOgjgbhf943CIYv4t1u/HaSbKSBZYR2HmvsIr7j8oee
90002FC8+Z/hvUW8lFHnEb8WGuw50lpwDRt/71hplmgrVv/3iQVf9BfxUzIP
mdrbsfkO6CZaCi3iNfl9r17rwvolVo98iLSAz/ltPrLrPQ189/74/itpAb81
f+zE217svEq12eieWsBbTYgXuAzQwP09241Eyjy+vm2bg3uYBnfOKtY4+s3j
v1PctWNGaeDV9ahLh20ef2JzKJh5ggbvqBcqFpI/41sO5n/9QcLq9XhnlmrK
HH5bl+OAP5UGlzMPer7eMYfXcvB1WqHTQO7rfOWLW7P4rjQYn/2InXfzB/IN
Wp/w7JWlPE5zNOBE0w6W5n3En33Pb0Cdp8HSiZhT3T9m8P2/P7wZXaaBqVCQ
jN7TafyYW3ge+p2GvW+1Cr0iqfg99xaIJ3/SYP2TvOA+TgreKttsV/1vGqgS
dguwJJLw5EGp6HImOkhr5n4ZSJ7ETx9rv5bFRYd3rqp2TarDeJkLB4t289Kh
b3JMTkZ3AO92PZWWxE8HhX3zy7l2vfiFfGfT+3vo8EA0byavvBPP2MmicXMf
Hbs6L/52YbzGH5H19PkqRQeRaY1dez++xN/EjZVelaWDqKZiqa9mAf77jWfi
jgp0OPM5IfHwkg/uRALXRYoiHe7n7BBfGs3ABZfcTLQ8RAeZ5KHl2JBnuG2K
DpOxKh3iHWc+Or2pxmltlp18r04HT9/dg3FKdbhI/t3+OsfpYClovnXHpxHX
dTCkAn+SDjXqXk/2Rb7F7dD7NHdCkw5j7Ue+OnngcQYO5yTrEDq8sDie9oi/
DRcXVGtzWJsOhtd+NatZtuN4KqP65QzogJuIL/XN78SZvP/CVniWDptCBwp+
FHfhUmYsEIlzdOgwv7+H9/E73Njv5sDM83QgMvFKyfl343YL738taIbt97Hc
VJ3me9zFIwlLieZ0EHhwzPPo+nvcY6MNWU5LOmiYlX7gz+zBkdzsL0db08Hd
+cOldwq9OPF7XY//XaLDpKrBRveLXpx9tvJIsD0d6k/p9j0Q6cPl1WZwfnfA
xjNwPyJv9+GmB//o3HCmQ0L308cHOvtwMgtud5dd6fDpWF/nMlM/zo1lsN7D
nQ63GhRzzhzux5VIaDA+XqXDtWZ5jUqTftzCsacKDtfp8LdZrjrNsR938MIO
F7I3HS6pJMt7u/TjHMpj9531w/KnMhCy06Yfl7GDi9pwkw5fszWKWbX7cX2O
CZlyt+mQd/rZ5sDefhzTW76LGYF0KP+w8G5spQ93bE+qAGswHbYuTHtG1fXh
vHx2D964Swc3B8dT5337cM96Hj2YDqND94hmfJ5kH44kI2pgGoHFc8u0eu5d
L44vNIcFjaLDR2EfllSXXpweUaJVOYYO5pG+BL7vPbiqh9InuB7SIXjutt1p
1h7c7FzRRlAiHb7cUnjTHfoeJ64l/3o+mQ77/4qu0Fe7cTEbiorvMujw7QA/
7lrHO1yLSeVntUw6aLp0ML+Vfodbe3G46Fk2Hda7+H6YhnThHC6rS4Tn0WGH
2lAfm2QnTqMbx3f6BR2Utq8EF6m34WYzzdaqm+lwx4GoFL5WixNfG3slidLh
yHa79gnnGpyZseX1pDY6HPN8468/Vo1rYbKdvf6ODqvc23VFoeW49GuuBPlh
rP8yWhctPfJxPZ1zaY9G6bC2PTnlNpiN29571ZRtgg4myUNNl20ycJ5jXj0z
JDpEn7n3pmoyClegzIg2o9Ih6XE6269Zfxwh5oZ2K50OTFFzLp+UD+F0Tge8
zf1Ih5+C2WGT+hH4oEdbAdxzdDh3mizxIPoB/hUjWC14ng5ZxUbiPytT8GLF
9yqsl7H4d64/3L2SiTfZZr7WvUKHq8WPWY30nuCjbaLlNL7RIa62zO6uZx5+
ledBnuB3Orw2v75wSugZXt6D2y5iiw5vP31qZXctwtu3J4qs/qLD92VvscKc
YnzafwITDn/poIbeEwtreY7vuZ2WMvgPuz9Kk2d39Zbgt4f3nNdkmYLTW7vz
R9pK8eqKmZzlbFPQwBTlrVL8Au8ZLdYtxjEFBQIWt/L9X+Lzp55ExnFOwcPA
X8TMw2X4pVw3OWWeKSi+cuEk5+cy/DG7Qz3DfFPwmGxxqCKmHB8h9t3Tf9cU
eFxw5hASrMAPEFFekT1TMHOOLE6Kq8CLPI6tfis8Bcln/mt+8KUC73LRzMJB
bArWO2JOo6cq8ZWCYt+ZJaYgUzOEwRlYid8amcl6vm8KfqvaKDIXVuJ1k8tO
G0pPQfn+UDjRVIlPOu8/tSw7BQdSDCN12yrxFG7NiBT5Kfi+LmHQ2FCJl+tj
269+EIt3yGrqwNNKvF/cYDdRaQpe51nlHbxViW8xeHwtRGUKUj6GkM00K/Ec
Oxx5JI9OwYao/Kej3yvw5p0HqjrUpsC4rY7P+VkF/mnE6gX3Y1MgaR1bdVO7
Ar8ATRucJ7H47P7XYJWHU52GUdkmS2iKKLRMSVFNlttQn1dClhKyNEmJkKXV
ErKTXFnu/V1KKKlwbSmpyfKRxBApLUY030cTSYpiBqXM78/3Oc97znnOe/54
vyt/e16C9X7EXCjbTNh/MPhy6t4SHFVrZWhnxOZTZCdoeFmMH4Ut+HvCmEDm
6CcrTfNirGTwOipzG4GQS2XKzqVFuPTOkSZqQWCJ9jzT/fuEeDKAczjOmkCZ
1BGLA4WF2ERnVnq1DYEwS/+bocMF+NUNnu3R3QSC3zdPWbvkY0nh7d4ZVwJb
4/ZzcyfzsJ1XeOQVNwLrLbVary/IwzkrzZabehCI8xT85KV9BevmdXmdO0zA
hOOd3Vuag92ypj+rBBCwybfefMEgA5fseZCOgwiImkX2P3cV4P+Uzm06GEJg
MJRWP47n42SBaoQwgsDaDbtNN9Wfw1XJMHdTIoHkzXNmLa+fxuLWc0t6kghc
U1r3uUQuCNtKde6MTCFg3DYgv8H+CB484y5oYggoDPSH3hQ3xRtNtTg+Gez8
d07bcKslChed6JbNZGfClTjpfRD9HHVG3eESe09On/KqTyeRK7JpmMwlIDIu
t3as/BQSflM6lH2VgLLZSKkEJxxBiLDoTSEBLXUjobtlLErinNiRUExg+nmr
dL5+POqaMBhdU0bgwCW+1TuJBOR/ok3vRAWB2g2GkuYOXJTlqlz0rpLA77rS
F+Ork1Crpafa/j8INMUpyU9JJaMp/Qr+iyo2T051p8i2FKSxYlbCupbtu5ut
1axnKnKQ2xHWUEeAUdF7szsgDcV9zfy0qYHV2+wWU67PQxWDA+43GgnM2y5M
Mi7kob5nOn+tbCaQXp27NUWOj+Tqo6yzW9g+LZ/oafLjI1TSXj+/jc1fYve5
xfV85H9BRS/xMYGCcZ+zNXMZlBXnJfzxhIBR0KDYKwsGtR67rRr0jMA7xWD9
a1EMmnIR4X94QSDBrdnWqoxBGhY7Jdz/IjBD45N+dDLIUS8rtPsVgYClBxaN
fWRQhayeexMhICGt9t1aVoAUBh5bVfxDQCbEv5BKCZBR5+J6zUECvdkz77tm
GHQEe+vmDhEIaqiq0R5iUE5RZaHiBxYPsLOb386gRxlzVJM/svcxOkErhayf
GBue6BiBX0qas7ZHMmj10Wzx0C8EiNnsH9M7GOS0dyhkdILAnostft8WMije
XP+j5ySBy78+HQ7v4qMKndiDr6fZfp1v9LnB56N+9Scv7WcIbHGyVbtvzkdG
k4frYA6FTLmRCdNcHvL/547OXTEKe9ScYpW38VD2E9FCbUkKqh5L1y9uTENT
hTlpKjIUvq7bZa+nnoo00t+L8eZRODTTsFQDpSDHaE6IpALLt844r9c+GVXs
eeo2vpBCzvw2zwWHklCfqdpLn0UUAsdSTju5cZH8Rl/LPhUKhNsyTBwSkb+U
uM5jdQpy5vNPb9VMQBrVm8QKNSlssXw31B0bgxwK4k+pabF63vttn1lHozim
84NgHctHre9pLotEfb5+L6J1KDjorJIdWhSKspbk5u/dQmHZE/f8yqNHkHyE
pIWcLQXj7/mK7+P34pHEGrkOewoi1y5fVeR44Jb04y9THCko+EYPTq7wwbGl
Pe7zXNj9t2vmyx8/iSd6b0TIelFov+y372pXBO5852HafphCoudMrsKOaHxj
XFkm2Y9Cum554GhBDPaWicuUOUHBvKP92ReLeNxj6HxbOpzCA480fc8NXHzX
XDbsUSQFDdUDTKB9EhbYNxgnxVBIqJnje9LvHN7hq9UhdZbCQonbissjUvCa
4L70Vi7L51JT3hSYiiVjM1y4yRT8R7m2xm5puP7i7NBchoJNOufirkQezsmv
LG9Jp/C0FudsHubhkFs+wYkXKHSV5/lImvGxI1ZHFlkUUrvdPvtn8rFO63Ox
uZdYf3mhq7Tf8rHcy8RHf+ayesG+kyKaDP7Qh/hnr1LQa7i1R+jB4JaRL87b
8yns//jYkJ5n8PWpQvWfhBQKPFGaewODo8VdB5qLKYhnRG4ffcNgV4WfSxPK
KBwdlHc0+cZgQ9U/T5rfZPUeHitSlhZgJc1wA8nbFIazVDkb5AV4XHejSPMd
1u/z9BETFn8Kg81n7lHw63GqU2D3S62zU8xqKFxV6c9x7Gcw19nWQaKOgt3M
rdCOWgZ7eUgsabrP6n3cbv5bCoNNjlX3xzdSmHZePrHLnsFLTx8TmjZTuFVQ
G/hMhsEzCSuPibdSuGiaWRVexcfdzCv9h20U6nJ0KmVc+PjO5dSZuA4KzSrS
TlvGeJgp3ta4rZNCjcYlXlsIDx+9O8UVe0EhwvVF8chQGrZ+UGbb2MXy/0a1
xptSsWaH+6K4VxQs7jifXZmYgsV7FhGT1xQyigyvfF2fjPsH2q+LUgphw/G/
j1Yl4brPMX4P+ikY2eieD9fk4qzvHJ3YtxTcSkwMVMPOYgfFvPo5wxS+5Z8y
CnsYh39d7pTQMEIhdOy8l3ZtDJ63TmZnzCiF6wsVRW+ticLNpkE9Iv9SmJJ9
uFG2Iwhfs12bd3+S5V8dde+/uuM4eh/1jv5K4e4ywSmLXi+873D6euPvLN4d
ILnikDM2CLT8d3aW7feu6dkvu07V/g/MHtN2
          "]]},
        Annotation[#, "Charting`Private`Tag$106006#1"]& ]}, {}}, {{}, 
      {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       0.012833333333333334`], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJxTTMoPSmViYGDQBWIQLZ5zUCznYJs9Axh8sIfwp8H5gmCw0F67Xezmue/v
ofLL7Ll+Lkjf/Oq9vczxQiBaY191XNNq0un3UPUb7de7P6wSWffefordy8l2
LzfbB09T7CsthOnfZi9yweXGhy/v7GfNBIGd9jc/fPGKbHsHNW+PfQL7OcnA
W2/t53/xBKL99qrT/0+o+/0Gav5B+4OnFrpu+/za/pJ6LRAdsm87GXJwxZJX
UPsO29/+WZe1p+SlfSgYHLXn818/JbXjOdT+Y/brwO57an+jSReITtibr7YL
j974GOqek/YNN20rI1Y8tI/ewApEp+1Dgab7OdyHuu+MPffWZZXHNW/Z37sL
AmftgZ6v99h/Fere8/bdf1O/P0m8aA/WHn3B/sSM3dMm8J+Cuv+iffMBkAcO
2xeBDbxoH6y+oHPDw51Q/1yyP/ZvU/WnDRvsjcHgsj2riaCZzd5FUP9dtmfy
beEFesn+K8i6+Vfs59voXJn1rBbq36v2R/sNy3UV4+23JXAD0TX7JKNQA62V
xlD/X4PGLwNDORhch/Mh4XEDzrfse2zR9xjBh4TPTTj/1xJ/ILoF50PC6zac
v2c3CCD4kPC7A+eDfat+F86HhCeCbw/y7uR7cD4kfO/D+RDwAM4HAHs6J0E=

        "]]}, {{}, {}}}},
    AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
    Axes->{True, True},
    AxesLabel->{None, None},
    AxesOrigin->{0.011111121088435375`, 0},
    DisplayFunction->Identity,
    Frame->{{False, False}, {False, False}},
    FrameLabel->{{None, None}, {None, None}},
    FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
    GridLines->{{0.20926250775094846`}, {0.5}},
    GridLinesStyle->Directive[
      GrayLevel[0.5, 0.4]],
    ImagePadding->All,
    Method->{
     "DefaultBoundaryStyle" -> Automatic, 
      "DefaultGraphicsInteraction" -> {
       "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
        "Effects" -> {
         "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
          "Droplines" -> {
           "freeformCursorMode" -> True, 
            "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
      "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, 
      "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& ), "CopiedValueFunction" -> ({
          (Identity[#]& )[
           Part[#, 1]], 
          (Identity[#]& )[
           Part[#, 2]]}& )}},
    PlotLabel->FormBox[
      StyleBox[
      "\"\\!\\(\\*SubsuperscriptBox[StyleBox[\\\"f\\\",FontSlant->\\\"Italic\\\
\"], \\\"T\\\", \\\"e\\\"]\\)\\!\\(\\*StyleBox[\\\" \
\\\",FontSlant->\\\"Italic\\\"]\\)=\\!\\(\\*StyleBox[\\\" \
\\\",\\nFontVariations->{\\\"Underline\\\"->True}]\\)0.209263\"", FontFamily -> 
       "Times", 22, 
       GrayLevel[0], {}, StripOnInput -> False], TraditionalForm],
    PlotRange->{All, All},
    PlotRangeClipping->True,
    PlotRangePadding->{{
       Scaled[0.02], 
       Scaled[0.02]}, {
       Scaled[0.05], 
       Scaled[0.05]}},
    Ticks->{Automatic, Automatic}]}], "}"}]], "Output",
 CellChangeTimes->{3.823445058301998*^9, 3.823445240890623*^9, 
  3.823445416088479*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"e7c864ce-9f2a-4f07-b13c-6039a97f5dc9"]
}, Open  ]],

Cell["\<\
Again, the same caveat applies for any approximation of the above result \
per-evaluation relative to the reported result of the paper:  the paper used \
more Monte Carlo replicates to converge on the reported value.\
\>", "Text",
 CellChangeTimes->{{3.8234452641623683`*^9, 
  3.8234453014609604`*^9}},ExpressionUUID->"9cc246a7-b144-4c7a-b4c0-\
d18edefeaf98"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\[Section] Fragmentation Product Distributions \
Reproduction",
 FontSize->20]], "Chapter",
 CellDingbat->None,
 CellChangeTimes->{{3.595597518474474*^9, 3.595597525135686*^9}, {
   3.595601844699707*^9, 3.595601865303455*^9}, {3.5956019994089413`*^9, 
   3.595602002248838*^9}, {3.5956020534900255`*^9, 3.5956021008166056`*^9}, {
   3.5957627009753237`*^9, 3.5957627015378723`*^9}, {3.596670000540968*^9, 
   3.5966700708769903`*^9}, {3.596672907109214*^9, 3.5966729072372212`*^9}, {
   3.5967558252645454`*^9, 3.596755856208315*^9}, {3.5967678810970993`*^9, 
   3.596767888608529*^9}, {3.5967680385371046`*^9, 3.5967680410252466`*^9}, {
   3.597606236498621*^9, 3.5976062460740175`*^9}, {3.597631282221232*^9, 
   3.5976313025163927`*^9}, {3.597699433025747*^9, 3.597699453481917*^9}, {
   3.5976995204337463`*^9, 3.5976995327374496`*^9}, {3.597699850073601*^9, 
   3.59769989744131*^9}, {3.5976999946418695`*^9, 3.5976999977210455`*^9}, {
   3.5977595777971663`*^9, 3.5977595830571737`*^9}, {3.601244326242998*^9, 
   3.6012443566507373`*^9}, {3.6012450118352118`*^9, 
   3.6012450405468535`*^9}, {3.6012486138572354`*^9, 
   3.6012486149692993`*^9}, {3.6012490065536966`*^9, 
   3.6012490083768005`*^9}, {3.6058902051143913`*^9, 
   3.6058902060069847`*^9}, {3.606764158514916*^9, 3.606764159378494*^9}, {
   3.6077895088658266`*^9, 3.6077895451749225`*^9}, {3.619618164595708*^9, 
   3.619618167380563*^9}, {3.6209434105122356`*^9, 3.620943439304343*^9}, {
   3.6209557732577953`*^9, 3.6209557930028725`*^9}, {3.624571766062687*^9, 
   3.6245717674377537`*^9}, {3.625353910425152*^9, 3.6253539108001566`*^9}, {
   3.6300726801276455`*^9, 3.630072681151328*^9}, {3.642476444916053*^9, 
   3.6424764547225647`*^9}, {3.6859301708244066`*^9, 3.685930177859125*^9}, {
   3.686083905184844*^9, 3.6860839062445517`*^9}, {3.6862731265022984`*^9, 
   3.68627312673645*^9}, 3.686273174195179*^9, {3.6862735139392924`*^9, 
   3.686273522520022*^9}, {3.686710351523246*^9, 3.6867103515292854`*^9}, {
   3.686711633769001*^9, 3.6867116356956377`*^9}, {3.689668138010706*^9, 
   3.6896681412518625`*^9}, {3.697643498493498*^9, 3.6976435088287935`*^9}, {
   3.703620716478424*^9, 3.7036207292145166`*^9}, {3.7038135747713623`*^9, 
   3.7038136022462034`*^9}, {3.7038144861268363`*^9, 3.703814502505977*^9}, {
   3.703815790684084*^9, 3.7038158294360304`*^9}, 3.7082944723017716`*^9, {
   3.713617560706815*^9, 3.7136175870175123`*^9}, {3.713617620930928*^9, 
   3.7136176247536073`*^9}, {3.7136180187774734`*^9, 
   3.7136180228816285`*^9}, {3.736901243652726*^9, 3.736901258956904*^9}, {
   3.763688513449418*^9, 3.763688533299414*^9}, {3.764621550653658*^9, 
   3.764621564420828*^9}, {3.7646223708521695`*^9, 3.7646223741772747`*^9}, {
   3.793717201615582*^9, 3.7937172027248983`*^9}, {3.793988600470353*^9, 
   3.7939886040014086`*^9}, 3.793988642921158*^9, {3.8234444038652315`*^9, 
   3.823444407109029*^9}, {3.8234515357734222`*^9, 3.823451540084424*^9}},
 FontSize->24,
 FontColor->RGBColor[
  0.8, 0.043137254901960784`, 
   0.00784313725490196],ExpressionUUID->"d55762d3-e006-45ba-b14c-\
0b88d59c4bf1"],

Cell["\<\
The following reproduces - for the same tiling - the fragment size \
distributions, associated PDF histogram, and the overlying CDF for four \
different values of the fraction of vertices deleted (p) roughly centered \
about the fragmentation threshold:\
\>", "Text",
 CellChangeTimes->{{3.823451433652646*^9, 3.8234514616403904`*^9}, {
  3.823451504554655*^9, 
  3.823451529432353*^9}},ExpressionUUID->"cc653fbf-28b0-4555-a1ed-\
eae8d013d3a3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Data", " ", "acquisition", " ", "and", " ", "empirical", " ", 
    "distribution", " ", 
    RowBox[{"generation", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"sizeDistDataStochG1", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"ParallelTable", "[", 
          RowBox[{
           RowBox[{"Length", "/@", 
            RowBox[{"ConnectedComponents", "@", 
             RowBox[{"holeyGraphStoch", "[", 
              RowBox[{"p", ",", "g1PariacotoVirus"}], "]"}]}]}], ",", 
           RowBox[{"{", "10000", "}"}], ",", 
           RowBox[{"Method", "\[Rule]", "\"\<CoarsestGrained\>\""}]}], "]"}], 
         ",", "1"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"p", ",", 
         RowBox[{"{", 
          RowBox[{".1", ",", ".2", ",", ".3", ",", ".4"}], "}"}]}], "}"}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sizeDistributionG1", "=", 
     RowBox[{"EmpiricalDistribution", "/@", "sizeDistDataStochG1"}]}], 
    ";"}]}]}]], "Input",
 CellChangeTimes->{{3.8234486483460784`*^9, 3.8234486523915644`*^9}, {
  3.823450954312376*^9, 3.823450960806799*^9}, {3.8234512841707335`*^9, 
  3.823451309725807*^9}, {3.8234514654652576`*^9, 3.823451494792771*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"cad7a774-74c7-4978-88eb-287b9067f246"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Final", " ", 
    RowBox[{"plotting", ":"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"data", "=", "sizeDistDataStochG1"}], ",", 
      RowBox[{"\[ScriptCapitalD]", "=", "sizeDistributionG1"}], ",", 
      RowBox[{"subunitCount", "=", 
       RowBox[{"VertexCount", "@", "g1PariacotoVirus"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"commOpts", "=", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"PlotTheme", "\[Rule]", "\"\<Classic\>\""}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "subunitCount"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"FrameTicksStyle", "\[Rule]", 
           RowBox[{"Directive", "[", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", "16"}], 
            "]"}]}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "500"}], ",", 
          RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"GridLinesStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"#", ",", "#"}], "}"}]}], "&"}], "@", 
           RowBox[{"{", 
            RowBox[{"Dotted", ",", "Gray"}], "}"}]}], ",", 
          RowBox[{"PlotRangePadding", "\[Rule]", 
           RowBox[{".055", "*", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"30", "*", 
               RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}]}], ",", 
          RowBox[{"ImagePadding", "\[Rule]", "25"}], ",", 
          RowBox[{"AspectRatio", "\[Rule]", 
           FractionBox["1", "GoldenRatio"]}]}], "}"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Histogram", "[", 
       RowBox[{"data", ",", 
        RowBox[{"{", "1", "}"}], ",", "\"\<PDF\>\"", ",", "commOpts", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Epilog", "\[Rule]", 
         RowBox[{"Inset", "[", 
          RowBox[{"DiscretePlot", "[", 
           RowBox[{
            RowBox[{"Evaluate", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"CDF", "[", 
                RowBox[{"#", ",", "x"}], "]"}], "&"}], "/@", 
              "\[ScriptCapitalD]"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", "subunitCount"}], "}"}], ",", 
            RowBox[{"GridLines", "\[Rule]", "None"}], ",", 
            RowBox[{"FrameTicks", "\[Rule]", "None"}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"Filling", "\[Rule]", "None"}], ",", "commOpts"}], "]"}], 
          "]"}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.823450755884247*^9, {3.823450853511734*^9, 3.8234510888736506`*^9}, {
   3.8234513173002567`*^9, 3.8234513722791243`*^9}, {3.823451407200718*^9, 
   3.823451415127011*^9}, {3.823451477698983*^9, 3.823451485249942*^9}, {
   3.823460772646472*^9, 3.823460774124475*^9}, {3.823471262571989*^9, 
   3.823471275033349*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"76f690ad-1f44-49f9-8909-a70981c63fab"],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[{Opacity[0.26599999999999996`], Thickness[Small]}], {{}, 
     {RGBColor[0.24720000000000014`, 0.24, 0.6], Opacity[0.5], EdgeForm[{
      Opacity[0.26599999999999996`], Thickness[Small]}], 
      RectangleBox[{0.5, 0.}, {1.5, 0.052567466266866564},
       RoundingRadius->0], RectangleBox[{1.5, 0.}, {2.5, 0.00712143928035982},
       RoundingRadius->0], RectangleBox[{2.5, 0.}, {3.5, 0.0014055472263868065},
       RoundingRadius->0], RectangleBox[{3.5, 0.}, {4.5, 0.0012181409295352324},
       RoundingRadius->0], RectangleBox[{4.5, 0.}, {5.5, 0.0000937031484257871},
       RoundingRadius->0], RectangleBox[{5.5, 0.}, {6.5, 0.0002811094452773613},
       RoundingRadius->0], RectangleBox[{6.5, 0.}, {7.5, 0.0000937031484257871},
       RoundingRadius->0], RectangleBox[{9.5, 0.}, {10.5, 0.0000937031484257871},
       RoundingRadius->0], RectangleBox[{10.5, 0.}, {11.5, 0.0000937031484257871},
       RoundingRadius->0], RectangleBox[{36.5, 0.}, {37.5, 0.0000937031484257871},
       RoundingRadius->0], RectangleBox[{38.5, 0.}, {39.5, 0.0001874062968515742},
       RoundingRadius->0], RectangleBox[{39.5, 0.}, {40.5, 0.0000937031484257871},
       RoundingRadius->0], RectangleBox[{41.5, 0.}, {42.5, 0.0002811094452773613},
       RoundingRadius->0], RectangleBox[{42.5, 0.}, {43.5, 0.00046851574212893553},
       RoundingRadius->0], RectangleBox[{43.5, 0.}, {44.5, 0.0006559220389805098},
       RoundingRadius->0], RectangleBox[{44.5, 0.}, {45.5, 0.0022488755622188904},
       RoundingRadius->0], RectangleBox[{45.5, 0.}, {46.5, 0.0025299850074962517},
       RoundingRadius->0], RectangleBox[{46.5, 0.}, {47.5, 0.004872563718140929},
       RoundingRadius->0], RectangleBox[{47.5, 0.}, {48.5, 0.011619190404797601},
       RoundingRadius->0], RectangleBox[{48.5, 0.}, {49.5, 0.019865067466266866},
       RoundingRadius->0], RectangleBox[{49.5, 0.}, {50.5, 0.03691904047976012},
       RoundingRadius->0], RectangleBox[{50.5, 0.}, {51.5, 0.06634182908545727},
       RoundingRadius->0], RectangleBox[{51.5, 0.}, {52.5, 0.0981071964017991},
       RoundingRadius->0], RectangleBox[{52.5, 0.}, {53.5, 0.1331521739130435},
       RoundingRadius->0], RectangleBox[{53.5, 0.}, {54.5, 0.15507871064467765},
       RoundingRadius->0], RectangleBox[{54.5, 0.}, {55.5, 0.15282983508245876},
       RoundingRadius->0], RectangleBox[{55.5, 0.}, {56.5, 0.12443778110944527},
       RoundingRadius->0], RectangleBox[{56.5, 0.}, {57.5, 0.0763680659670165},
       RoundingRadius->0], RectangleBox[{57.5, 0.}, {58.5, 0.03645052473763118},
       RoundingRadius->0], RectangleBox[{58.5, 0.}, {59.5, 0.012649925037481259},
       RoundingRadius->0], RectangleBox[{59.5, 0.}, {60.5, 0.001780359820089955},
       RoundingRadius->0]}, {}, {}}, {{}, 
     {RGBColor[0.6, 0.24, 0.4428931686004542], Opacity[0.5], EdgeForm[{
      Opacity[0.26599999999999996`], Thickness[Small]}], 
      RectangleBox[{0.5, 0.}, {1.5, 0.24206449974606398},
       RoundingRadius->0], RectangleBox[{1.5, 0.}, {2.5, 0.06176993397663788},
       RoundingRadius->0], RectangleBox[{2.5, 0.}, {3.5, 0.019489588623666836},
       RoundingRadius->0], RectangleBox[{3.5, 0.}, {4.5, 0.01015744032503809},
       RoundingRadius->0], RectangleBox[{4.5, 0.}, {5.5, 0.008062468257998983},
       RoundingRadius->0], RectangleBox[{5.5, 0.}, {6.5, 0.005269172168613509},
       RoundingRadius->0], RectangleBox[{6.5, 0.}, {7.5, 0.0027932960893854745},
       RoundingRadius->0], RectangleBox[{7.5, 0.}, {8.5, 0.0026663280853224986},
       RoundingRadius->0], RectangleBox[{8.5, 0.}, {9.5, 0.002031488065007618},
       RoundingRadius->0], RectangleBox[{9.5, 0.}, {10.5, 0.0013966480446927373},
       RoundingRadius->0], RectangleBox[{10.5, 0.}, {11.5, 0.0016505840528186896},
       RoundingRadius->0], RectangleBox[{11.5, 0.}, {12.5, 0.0008252920264093448},
       RoundingRadius->0], RectangleBox[{12.5, 0.}, {13.5, 0.0014601320467242255},
       RoundingRadius->0], RectangleBox[{13.5, 0.}, {14.5, 0.001015744032503809},
       RoundingRadius->0], RectangleBox[{14.5, 0.}, {15.5, 0.0008887760284408328},
       RoundingRadius->0], RectangleBox[{15.5, 0.}, {16.5, 0.001015744032503809},
       RoundingRadius->0], RectangleBox[{16.5, 0.}, {17.5, 0.001079228034535297},
       RoundingRadius->0], RectangleBox[{17.5, 0.}, {18.5, 0.0009522600304723209},
       RoundingRadius->0], RectangleBox[{18.5, 0.}, {19.5, 0.0007618080243778567},
       RoundingRadius->0], RectangleBox[{19.5, 0.}, {20.5, 0.0004443880142204164},
       RoundingRadius->0], RectangleBox[{20.5, 0.}, {21.5, 0.0007618080243778567},
       RoundingRadius->0], RectangleBox[{21.5, 0.}, {22.5, 0.0009522600304723209},
       RoundingRadius->0], RectangleBox[{22.5, 0.}, {23.5, 0.001079228034535297},
       RoundingRadius->0], RectangleBox[{23.5, 0.}, {24.5, 0.0009522600304723209},
       RoundingRadius->0], RectangleBox[{24.5, 0.}, {25.5, 0.0008252920264093448},
       RoundingRadius->0], RectangleBox[{25.5, 0.}, {26.5, 0.0015236160487557134},
       RoundingRadius->0], RectangleBox[{26.5, 0.}, {27.5, 0.0006348400203148807},
       RoundingRadius->0], RectangleBox[{27.5, 0.}, {28.5, 0.001015744032503809},
       RoundingRadius->0], RectangleBox[{28.5, 0.}, {29.5, 0.0012696800406297613},
       RoundingRadius->0], RectangleBox[{29.5, 0.}, {30.5, 0.0008887760284408328},
       RoundingRadius->0], RectangleBox[{30.5, 0.}, {31.5, 0.0015871000507872014},
       RoundingRadius->0], RectangleBox[{31.5, 0.}, {32.5, 0.0018410360589131538},
       RoundingRadius->0], RectangleBox[{32.5, 0.}, {33.5, 0.002031488065007618},
       RoundingRadius->0], RectangleBox[{33.5, 0.}, {34.5, 0.002348908075165058},
       RoundingRadius->0], RectangleBox[{34.5, 0.}, {35.5, 0.0026028440832910104},
       RoundingRadius->0], RectangleBox[{35.5, 0.}, {36.5, 0.003555104113763331},
       RoundingRadius->0], RectangleBox[{36.5, 0.}, {37.5, 0.004634332148298628},
       RoundingRadius->0], RectangleBox[{37.5, 0.}, {38.5, 0.005269172168613509},
       RoundingRadius->0], RectangleBox[{38.5, 0.}, {39.5, 0.007300660233621127},
       RoundingRadius->0], RectangleBox[{39.5, 0.}, {40.5, 0.010601828339258506},
       RoundingRadius->0], RectangleBox[{40.5, 0.}, {41.5, 0.014537836465210766},
       RoundingRadius->0], RectangleBox[{41.5, 0.}, {42.5, 0.018283392585068562},
       RoundingRadius->0], RectangleBox[{42.5, 0.}, {43.5, 0.025647536820721177},
       RoundingRadius->0], RectangleBox[{43.5, 0.}, {44.5, 0.03307516505840528},
       RoundingRadius->0], RectangleBox[{44.5, 0.}, {45.5, 0.04691467750126967},
       RoundingRadius->0], RectangleBox[{45.5, 0.}, {46.5, 0.05599288979177247},
       RoundingRadius->0], RectangleBox[{46.5, 0.}, {47.5, 0.06253174200101574},
       RoundingRadius->0], RectangleBox[{47.5, 0.}, {48.5, 0.06856272219400711},
       RoundingRadius->0], RectangleBox[{48.5, 0.}, {49.5, 0.06767394616556627},
       RoundingRadius->0], RectangleBox[{49.5, 0.}, {50.5, 0.06011934992381919},
       RoundingRadius->0], RectangleBox[{50.5, 0.}, {51.5, 0.05218384966988319},
       RoundingRadius->0], RectangleBox[{51.5, 0.}, {52.5, 0.03574149314372778},
       RoundingRadius->0], RectangleBox[{52.5, 0.}, {53.5, 0.022473336719146773},
       RoundingRadius->0], RectangleBox[{53.5, 0.}, {54.5, 0.011046216353478923},
       RoundingRadius->0], RectangleBox[{54.5, 0.}, {55.5, 0.004761300152361605},
       RoundingRadius->0], RectangleBox[{55.5, 0.}, {56.5, 0.002412392077196546},
       RoundingRadius->0], RectangleBox[{56.5, 0.}, {57.5, 0.0004443880142204164},
       RoundingRadius->0], RectangleBox[{57.5, 0.}, {58.5, 0.00012696800406297612},
       RoundingRadius->0]}, {}, {}}, {{}, 
     {RGBColor[0.6, 0.5470136627990908, 0.24], Opacity[0.5], EdgeForm[{
      Opacity[0.26599999999999996`], Thickness[Small]}], 
      RectangleBox[{0.5, 0.}, {1.5, 0.35837174576381225},
       RoundingRadius->0], RectangleBox[{1.5, 0.}, {2.5, 0.11728234759462443},
       RoundingRadius->0], RectangleBox[{2.5, 0.}, {3.5, 0.049892878010777124},
       RoundingRadius->0], RectangleBox[{3.5, 0.}, {4.5, 0.03197429072258651},
       RoundingRadius->0], RectangleBox[{4.5, 0.}, {5.5, 0.024021294553009154},
       RoundingRadius->0], RectangleBox[{5.5, 0.}, {6.5, 0.016652600142829318},
       RoundingRadius->0], RectangleBox[{6.5, 0.}, {7.5, 0.015548919041745114},
       RoundingRadius->0], RectangleBox[{7.5, 0.}, {8.5, 0.011621112770239564},
       RoundingRadius->0], RectangleBox[{8.5, 0.}, {9.5, 0.00990066870090242},
       RoundingRadius->0], RectangleBox[{9.5, 0.}, {10.5, 0.008569759137830292},
       RoundingRadius->0], RectangleBox[{10.5, 0.}, {11.5, 0.00759592287216776},
       RoundingRadius->0], RectangleBox[{11.5, 0.}, {12.5, 0.00772576770758943},
       RoundingRadius->0], RectangleBox[{12.5, 0.}, {13.5, 0.006784392650782315},
       RoundingRadius->0], RectangleBox[{13.5, 0.}, {14.5, 0.0056807115496981106},
       RoundingRadius->0], RectangleBox[{14.5, 0.}, {15.5, 0.006265013309095631},
       RoundingRadius->0], RectangleBox[{15.5, 0.}, {16.5, 0.0058430175939752},
       RoundingRadius->0], RectangleBox[{16.5, 0.}, {17.5, 0.005291177043433098},
       RoundingRadius->0], RectangleBox[{17.5, 0.}, {18.5, 0.005226254625722262},
       RoundingRadius->0], RectangleBox[{18.5, 0.}, {19.5, 0.004641952866324742},
       RoundingRadius->0], RectangleBox[{19.5, 0.}, {20.5, 0.004577030448613907},
       RoundingRadius->0], RectangleBox[{20.5, 0.}, {21.5, 0.005193793416866844},
       RoundingRadius->0], RectangleBox[{21.5, 0.}, {22.5, 0.0049665649548789196},
       RoundingRadius->0], RectangleBox[{22.5, 0.}, {23.5, 0.005096409790300591},
       RoundingRadius->0], RectangleBox[{23.5, 0.}, {24.5, 0.004479646822047653},
       RoundingRadius->0], RectangleBox[{24.5, 0.}, {25.5, 0.004934103746023502},
       RoundingRadius->0], RectangleBox[{25.5, 0.}, {26.5, 0.00467441407518016},
       RoundingRadius->0], RectangleBox[{26.5, 0.}, {27.5, 0.005323638252288515},
       RoundingRadius->0], RectangleBox[{27.5, 0.}, {28.5, 0.005940401220541453},
       RoundingRadius->0], RectangleBox[{28.5, 0.}, {29.5, 0.005875478802830617},
       RoundingRadius->0], RectangleBox[{29.5, 0.}, {30.5, 0.006167629682529378},
       RoundingRadius->0], RectangleBox[{30.5, 0.}, {31.5, 0.007303771992469},
       RoundingRadius->0], RectangleBox[{31.5, 0.}, {32.5, 0.0071090047393364926},
       RoundingRadius->0], RectangleBox[{32.5, 0.}, {33.5, 0.00831006946698695},
       RoundingRadius->0], RectangleBox[{33.5, 0.}, {34.5, 0.008439914302408622},
       RoundingRadius->0], RectangleBox[{34.5, 0.}, {35.5, 0.009446211776926573},
       RoundingRadius->0], RectangleBox[{35.5, 0.}, {36.5, 0.009998052327468676},
       RoundingRadius->0], RectangleBox[{36.5, 0.}, {37.5, 0.013211712004155034},
       RoundingRadius->0], RectangleBox[{37.5, 0.}, {38.5, 0.013893397390118809},
       RoundingRadius->0], RectangleBox[{38.5, 0.}, {39.5, 0.015419074206323444},
       RoundingRadius->0], RectangleBox[{39.5, 0.}, {40.5, 0.01720444069337142},
       RoundingRadius->0], RectangleBox[{40.5, 0.}, {41.5, 0.01885996234499773},
       RoundingRadius->0], RectangleBox[{41.5, 0.}, {42.5, 0.019379341686684412},
       RoundingRadius->0], RectangleBox[{42.5, 0.}, {43.5, 0.019054729598130236},
       RoundingRadius->0], RectangleBox[{43.5, 0.}, {44.5, 0.019671492566383172},
       RoundingRadius->0], RectangleBox[{44.5, 0.}, {45.5, 0.016685061351684738},
       RoundingRadius->0], RectangleBox[{45.5, 0.}, {46.5, 0.014575082776082582},
       RoundingRadius->0], RectangleBox[{46.5, 0.}, {47.5, 0.010971888593131208},
       RoundingRadius->0], RectangleBox[{47.5, 0.}, {48.5, 0.006622086606505226},
       RoundingRadius->0], RectangleBox[{48.5, 0.}, {49.5, 0.0036681166006622087},
       RoundingRadius->0], RectangleBox[{49.5, 0.}, {50.5, 0.002142439784457573},
       RoundingRadius->0], RectangleBox[{50.5, 0.}, {51.5, 0.0012010647276504576},
       RoundingRadius->0], RectangleBox[{51.5, 0.}, {52.5, 0.00045445692397584885},
       RoundingRadius->0], RectangleBox[{52.5, 0.}, {53.5, 0.00016230604427708889},
       RoundingRadius->0], RectangleBox[{53.5, 0.}, {54.5, 0.000032461208855417776},
       RoundingRadius->0], RectangleBox[{54.5, 0.}, {55.5, 0.00006492241771083555},
       RoundingRadius->0]}, {}, {}}, {{}, 
     {RGBColor[0.24, 0.6, 0.33692049419863584`], Opacity[0.5], EdgeForm[{
      Opacity[0.26599999999999996`], Thickness[Small]}], 
      RectangleBox[{0.5, 0.}, {1.5, 0.40804334015670224},
       RoundingRadius->0], RectangleBox[{1.5, 0.}, {2.5, 0.14574362956165737},
       RoundingRadius->0], RectangleBox[{2.5, 0.}, {3.5, 0.06845133055692808},
       RoundingRadius->0], RectangleBox[{3.5, 0.}, {4.5, 0.05011646784781535},
       RoundingRadius->0], RectangleBox[{4.5, 0.}, {5.5, 0.03665207877461707},
       RoundingRadius->0], RectangleBox[{5.5, 0.}, {6.5, 0.026946424790004943},
       RoundingRadius->0], RectangleBox[{6.5, 0.}, {7.5, 0.024070021881838075},
       RoundingRadius->0], RectangleBox[{7.5, 0.}, {8.5, 0.020064233782734524},
       RoundingRadius->0], RectangleBox[{8.5, 0.}, {9.5, 0.01697607115126703},
       RoundingRadius->0], RectangleBox[{9.5, 0.}, {10.5, 0.015264346721253617},
       RoundingRadius->0], RectangleBox[{10.5, 0.}, {11.5, 0.013199689419072493},
       RoundingRadius->0], RectangleBox[{11.5, 0.}, {12.5, 0.012140890802569353},
       RoundingRadius->0], RectangleBox[{12.5, 0.}, {13.5, 0.011311498552975224},
       RoundingRadius->0], RectangleBox[{13.5, 0.}, {14.5, 0.009317427825227643},
       RoundingRadius->0], RectangleBox[{14.5, 0.}, {15.5, 0.009229194607185714},
       RoundingRadius->0], RectangleBox[{15.5, 0.}, {16.5, 0.00822333592150773},
       RoundingRadius->0], RectangleBox[{16.5, 0.}, {17.5, 0.007746876544081316},
       RoundingRadius->0], RectangleBox[{17.5, 0.}, {18.5, 0.00757041010799746},
       RoundingRadius->0], RectangleBox[{18.5, 0.}, {19.5, 0.006776311145620103},
       RoundingRadius->0], RectangleBox[{19.5, 0.}, {20.5, 0.006758664502011718},
       RoundingRadius->0], RectangleBox[{20.5, 0.}, {21.5, 0.006405731629844004},
       RoundingRadius->0], RectangleBox[{21.5, 0.}, {22.5, 0.005329286369732477},
       RoundingRadius->0], RectangleBox[{22.5, 0.}, {23.5, 0.005558692736641491},
       RoundingRadius->0], RectangleBox[{23.5, 0.}, {24.5, 0.005135173290040235},
       RoundingRadius->0], RectangleBox[{24.5, 0.}, {25.5, 0.004817533705089292},
       RoundingRadius->0], RectangleBox[{25.5, 0.}, {26.5, 0.005752805816333734},
       RoundingRadius->0], RectangleBox[{26.5, 0.}, {27.5, 0.0047822404178725205},
       RoundingRadius->0], RectangleBox[{27.5, 0.}, {28.5, 0.00449989412013835},
       RoundingRadius->0], RectangleBox[{28.5, 0.}, {29.5, 0.004464600832921579},
       RoundingRadius->0], RectangleBox[{29.5, 0.}, {30.5, 0.004358720971271265},
       RoundingRadius->0], RectangleBox[{30.5, 0.}, {31.5, 0.004429307545704807},
       RoundingRadius->0], RectangleBox[{31.5, 0.}, {32.5, 0.004217547822404179},
       RoundingRadius->0], RectangleBox[{32.5, 0.}, {33.5, 0.004041081386320322},
       RoundingRadius->0], RectangleBox[{33.5, 0.}, {34.5, 0.004199901178795793},
       RoundingRadius->0], RectangleBox[{34.5, 0.}, {35.5, 0.004094021317145479},
       RoundingRadius->0], RectangleBox[{35.5, 0.}, {36.5, 0.0036352085833274515},
       RoundingRadius->0], RectangleBox[{36.5, 0.}, {37.5, 0.0034058022164184373},
       RoundingRadius->0], RectangleBox[{37.5, 0.}, {38.5, 0.0034587421472435944},
       RoundingRadius->0], RectangleBox[{38.5, 0.}, {39.5, 0.002911696195383638},
       RoundingRadius->0], RectangleBox[{39.5, 0.}, {40.5, 0.0028411096209500952},
       RoundingRadius->0], RectangleBox[{40.5, 0.}, {41.5, 0.002258770381873368},
       RoundingRadius->0], RectangleBox[{41.5, 0.}, {42.5, 0.0015352579939295547},
       RoundingRadius->0], RectangleBox[{42.5, 0.}, {43.5, 0.0013764382014540835},
       RoundingRadius->0], RectangleBox[{43.5, 0.}, {44.5, 0.0009176254676360557},
       RoundingRadius->0], RectangleBox[{44.5, 0.}, {45.5, 0.00042351944660125643},
       RoundingRadius->0], RectangleBox[{45.5, 0.}, {46.5, 0.0003176395849509423},
       RoundingRadius->0], RectangleBox[{46.5, 0.}, {47.5, 0.0001235265052586998},
       RoundingRadius->0], RectangleBox[{47.5, 0.}, {48.5, 0.000017646643608385686},
       RoundingRadius->0], RectangleBox[{48.5, 0.}, {49.5, 0.000052939930825157054},
       RoundingRadius->0], RectangleBox[{49.5, 0.}, {50.5, 0.000017646643608385686},
       RoundingRadius->0], RectangleBox[{50.5, 0.}, {51.5, 0.000017646643608385686},
       RoundingRadius->
        0]}, {}, {}}}, {{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {}}, \
{{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {}}, {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {}}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-1.2, 0},
  AxesStyle->Directive[
    GrayLevel[0], 
    AbsoluteThickness[0.2]],
  BaseStyle->Automatic,
  Epilog->InsetBox[
    GraphicsBox[{{{{
         Directive[
          RGBColor[0.24720000000000014`, 0.24, 0.6], 
          AbsoluteThickness[1]], 
         TagBox[{}, Annotation[#, "Charting`Private`Tag$217656#1"]& ]}, {
         Directive[
          RGBColor[0.6, 0.24, 0.4428931686004542], 
          AbsoluteThickness[1]], 
         TagBox[{}, Annotation[#, "Charting`Private`Tag$217656#2"]& ]}, {
         Directive[
          RGBColor[0.6, 0.5470136627990908, 0.24], 
          AbsoluteThickness[1]], 
         TagBox[{}, Annotation[#, "Charting`Private`Tag$217656#3"]& ]}, {
         Directive[
          RGBColor[0.24, 0.6, 0.33692049419863584`], 
          AbsoluteThickness[1]], 
         TagBox[{}, Annotation[#, "Charting`Private`Tag$217656#4"]& ]}}, {
        TagBox[{{
           Directive[
            RGBColor[0.24720000000000014`, 0.24, 0.6], 
            AbsoluteThickness[1]], {
            LineBox[CompressedData["
1:eJx10kkoxHEUwPEfE2kIiZoihhhLjH035hlj/jP25eQgy0TIciCcGMVBFFK2
i7MhRkQRMowyyUVqkjjIvnOVLe938MqvXq/P+15//lXNxdUixpjd9yi+x579
956V99rLDr9boxIPELXfU9w/OId2AkmNatoizKPdYeA9zNR8xe0Jmk4v28ob
twRWu2+DtS4mtA+Mmc9SGzy4pcQBxIHQKjoqGJJwy6BIbdUv+XKHEIcRhxPL
iaOIo4ljiGOJ44jjiROIE4mTiJOJU4hTidOIFcTpxEpi+GsDMcsgnZipSFeB
vHez3RbIe+ZfGzLhxtE4JY3mXQ27wtSiOpF3YpYFZeKuJ5OO9yyYy9eVVNfy
roFVz4/TyhHeNdAa+r6+LVvALoCFHduG99EGAWYjZi4vnBexa2FrvG243GEZ
uxZ+fht4r2HXgdhDVKsXzNh1sLEtsxMsVuzZcNMyeu1oPMSeDQvLs5NjkSfY
c+AzKLgp1vUcew64ySWH8tcr7LlQp5DujDzcYc8FfWNpfGT5I/Y8qDg76Nrr
e8KeB2+9E4X1L2iWD7/7WfkFWNQC2w==
             "]], Null, {}, {}}}}, 
         Annotation[#, "Charting`Private`Tag$217656#1"]& ], 
        TagBox[{{
           Directive[
            RGBColor[0.6, 0.24, 0.4428931686004542], 
            AbsoluteThickness[1]], {
            LineBox[CompressedData["
1:eJx10ltIE1Acx/FVSpKZkkpGe9BlKWIz59Qs135z3jbdoMKEwFmhkV3QTBGD
clEapfYg6YMG6UApUKjMBFEpFUXFyNQ2r2kXXbhsXURrpWn9/z0EHTgcPuf7
cs7heB1PP5i6TiAQrFmZspW5VvC/YZXbVAuSRdszOW0gNMTZZp85QHaANTZP
lvhgkOyC9JblqrbEIbIbtmqSXUdH2R5IOGwuDZC8JAvRMdZ69Usy2xNF4iaz
oZAtgmPu2bLZWrY3lM2m4r529k70nvxebppg+8JZXuils7D9UC5M0antjGR/
jDyVNcy5scXIlIRfvrSdvRsPje4mkZQdiOgtSVn9UWwJJKLu/NMJ7CCIdJbO
6WNsKVZPK05jByPpxaa5e9nsEKjGLywr89mhGBe2VXwuY+9Bt4+4rqiGHQan
pdagzY/Ye2HJtn/s0MfeB+lFzZl0IzscWSKfdlczWwa7wMaAqR/s/bhd1WDL
cDSR5Xhen9Z+bgcbOBQwWFmhJOuBgdxr2rcp3BVY6NIlHi3krsCpvNUTcY9A
j2K6OtLKPQItSp+VJx6mrsRi/P2vBSVkvRL1lRZv7w0j1CPx+zqNZH0k7hzJ
ubG+ZpR6FITfOqpL+8eoR+FufnNIb/YE9WjE9aUqhlWT1KNR4OSR498zRT0G
weZpl4lbb6jHoEcbYfAsfUc9FvPG8+69nTPUYzHgW2PY9ek9dRX8t73aWDc+
S10Fu8mhK37XP1BXY/W3z9fNUVcjs8sw5nziI/U4/Ax7nVX8hKyPgzoho/Lm
DPd4FHSXdB2wcY9HbWpJ0/wSdw3+rFbq/1ig/etfw2IcTA==
             "]], Null, {}, {}}}}, 
         Annotation[#, "Charting`Private`Tag$217656#2"]& ], 
        TagBox[{{
           Directive[
            RGBColor[0.6, 0.5470136627990908, 0.24], 
            AbsoluteThickness[1]], {
            LineBox[CompressedData["
1:eJx10GtIkwEUxvFXA5OMmCCUoKJTpuWlec/U9nidm1OxBiUxMbWLYWUFGnh7
ESoZaYZRNDOxlVhQaDBJEplRIRqVEFZKpmaW5g0sZpe1rM4JEjpwPvzO/9vx
yj2yfe8qQRDsljd2ee2F/82C4kyhxaluflBBB+g7+l+7Hx0hO8JPNzCmHBgl
S+ClKnoe8WKM7AJju1lqaxgnb0DpVI7/QZ+3ZDfomjsb+4xsT5gXpcNW+wmy
FLWj/hJXLdsH11X1sjQDWwZJReOnUy/ZfnhkPScZWP+OvAnGYaMlP4MdAH3U
4ZS5cnYQFNODFrSz5YiXOdz0GGMHQ3PV2blk7SQ5BG1LvpnKSHYolN+bQtJ1
7DBEDUlnH1exw9Hf2O2adYsdgQad0O04yI6E6UBAW6+NvQWbaxXyUp/35CgE
3nPomdSwt+Ji5hdT8HF2NI7lVMqfXGHHYE7r4X7iKTsWD7x7xy/Z2Ntg59az
0zPkA1kBB9+y4s+H2MDv3EoWgab6aUPSDPc4FLbvzysInqIeh44LXaf7K8hC
PL5Fh1vuPOMejxutLvOzMdPUE3DZ017svk0WExBWU3RtXeBH6olYfTJs6Ucn
WUxEX1deYKV2hnoSTF4xBiySxSTs61MnZp2dpZ6Mu7t+fWSOejJyvWvKgjrJ
ghKGluqW8/J56kroxezsYj1ZSIFadJowmbmnICJDVn5/hLsKZRvNVRkL3FWY
2lOyQ/aVuxqFBf75b6zc1ahW1j0MtXFPxe6hNa9K2GIq/twXqGv+tbjCQtqK
vsJC+l//BLVyDbM=
             "]], Null, {}, {}}}}, 
         Annotation[#, "Charting`Private`Tag$217656#3"]& ], 
        TagBox[{{
           Directive[
            RGBColor[0.24, 0.6, 0.33692049419863584`], 
            AbsoluteThickness[1]], {
            LineBox[CompressedData["
1:eJx10V1Ik3EUx/HHBrlg1ZLCVWpqc5mtWfk2q7XfpntLTVgSwUzNGIheiIQI
tmjTBqEGgYRQpNGNpGVdNLHCspWJDGJSpFmIEs6ZLw0Ri5wzo/8ReqAD5+Jz
vpcnrrTSbBVwHBe2tqq13cD9bwLquu4C7/noUTU7wOG0XWzrmWAWQiLsyymZ
/sosRuvLpoT5+knm7ZjbVReb/NjHLEHylv3jc01TzFHY3eguijL7mWMh+6KO
qV0ix2NoUeRsdEwzS3HW7ZG3hMgyCB5EzveUf2NOxGVPWqbiHTkJ7dGv9o0k
zTDLkVfzLENeQ1bgdceoasBNPoTrb1zvpRtnmQ+j735p6m0d+QhatOccbfXk
FAzWu6rjn5NTkdCwo8y+QE7DwA9xyi/ZHHM6LpT4nPfM5AyM9Z9ZOGAnK2Fo
dySrOsiZuGtVmp4MkY8i33za84GbZz6GlVs7J8ISycdhTC8cHsslq+C3dA1W
VZFP4M83ZDfJalR7b7RWPiUDxS/yq4Ofme3ATHGhMnKFugahiL2br+z5zroG
Iqvko1DDzGlh6R2u8BZR18IjCU5111LPQq90U7mohXoW+sThj3xd1LNRsU06
K39LPRs2m8b/cIS6DtpLd5o1k9R1sJepD14LUNdj1dLZLPpJXY+I8YD76jJ1
A2IFVl9MiLoBy62KxbhV6kYMfZIt6cl2IwoatgZd692EpP7w0Oh6N+HvPcD6
yX9t55nL4XWeuVxe55nL43WeuVPr/g0MPARH
             "]], Null, {}, {}}}}, 
         Annotation[#, "Charting`Private`Tag$217656#4"]& ]}}, {}, {}}, {
     DisplayFunction -> Identity, AspectRatio -> 
      NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, 
      AxesOrigin -> {0, 0}, AxesStyle -> Directive[
        GrayLevel[0], 
        AbsoluteThickness[0.2]], BaseStyle -> Automatic, Frame -> True, 
      FrameStyle -> Directive[
        GrayLevel[0], 
        AbsoluteThickness[0.2]], FrameTicks -> {{None, None}, {None, None}}, 
      FrameTicksStyle -> Directive[FontFamily -> "Times", 16], 
      GridLines -> {None, None}, GridLinesStyle -> {{
         Dashing[{0, Small}], 
         GrayLevel[0.5]}, {
         Dashing[{0, Small}], 
         GrayLevel[0.5]}}, ImagePadding -> 25, ImageSize -> 500, 
      LabelStyle -> {FontFamily -> "Times"}, 
      Method -> {
       "MessagesHead" -> DiscretePlot, "AxisPadding" -> Scaled[0.02], 
        "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> {
          Directive[
           RGBColor[0.24720000000000014`, 0.24, 0.6], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.6, 0.24, 0.4428931686004542], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.6, 0.5470136627990908, 0.24], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.24, 0.6, 0.33692049419863584`], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.24, 0.3531726744018182, 0.6], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.6, 0.24, 0.5632658430022722], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.6, 0.42664098839727194`, 0.24], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.2634521802031821, 0.6, 0.24], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.24, 0.47354534880363613`, 0.6], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.5163614825959097, 0.24, 0.6], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.6, 0.3062683139954558, 0.24], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.3838248546049982, 0.6, 0.24], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.24, 0.5939180232054561, 0.6], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.39598880819409377`, 0.24, 0.6], 
           AbsoluteThickness[1]], 
          Directive[
           RGBColor[0.6, 0.24, 0.2941043604063603], 
           AbsoluteThickness[1]]}, "DomainPadding" -> Scaled[0.02], 
        "PointSizeFunction" -> None, "RangePadding" -> Scaled[0.05]}, 
      PlotRange -> {{0, 60}, {0, 1}}, PlotRangeClipping -> True, 
      PlotRangePadding -> {{1.65, 1.65}, {0.055, 0.055}}, 
      Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}]],
  Frame->True,
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->Directive[
    GrayLevel[0], 
    AbsoluteThickness[0.2]],
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  FrameTicksStyle->Directive[FontFamily -> "Times", 16],
  GridLines->{Automatic, Automatic},
  GridLinesStyle->{{
     Dashing[{0, Small}], 
     GrayLevel[0.5]}, {
     Dashing[{0, Small}], 
     GrayLevel[0.5]}},
  ImagePadding->25,
  ImageSize->500,
  LabelStyle->{FontFamily -> "Times"},
  PlotRange->{{0, 60}, {0, 1}},
  PlotRangePadding->{{1.65, 1.65}, {0.055, 0.055}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.823450980552641*^9, 3.823450993521669*^9}, {
   3.823451025663724*^9, 3.8234510895912113`*^9}, {3.8234513123672743`*^9, 
   3.823451346990181*^9}, 3.8234513788763885`*^9, 3.8234514219143476`*^9, {
   3.8234514865859194`*^9, 3.82345150189344*^9}, {3.8234712690372353`*^9, 
   3.8234712760005107`*^9}},
 CellLabel->
  "Out[121]=",ExpressionUUID->"4f0ad190-7ec8-495b-99e1-7622b3495411"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{958, 981},
WindowMargins->{{Automatic, 112}, {Automatic, 174}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, "TryRealOnly" -> False},
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (February 8, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"5e650346-ce5f-466a-9596-b82f1b028a41"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1007, 23, 71, "Title",ExpressionUUID->"389d736b-f1db-4aba-ab14-d0b24ba87543"],
Cell[1590, 47, 784, 15, 166, "Text",ExpressionUUID->"9b75ec90-8169-44fa-b00d-ecec0ba7b04b"],
Cell[CellGroupData[{
Cell[2399, 66, 2829, 44, 54, "Chapter",ExpressionUUID->"044b0576-fb03-41e2-95b8-62f235722440"],
Cell[CellGroupData[{
Cell[5253, 114, 2966, 43, 57, "Subchapter",ExpressionUUID->"5edd6e06-60b3-4177-aa14-bd880b51eef1"],
Cell[CellGroupData[{
Cell[8244, 161, 22150, 483, 710, "Input",ExpressionUUID->"ae674b0f-58ac-4689-82fb-ab4f8437ac08",
 InitializationCell->True],
Cell[30397, 646, 7842, 142, 380, "Output",ExpressionUUID->"fe8cb7b7-7dc6-42df-baa2-3204fc2e9ffc"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[38288, 794, 2943, 43, 41, "Subchapter",ExpressionUUID->"f6de3c25-2350-45ca-aad6-f07b813dbeac"],
Cell[41234, 839, 17612, 414, 1352, "Input",ExpressionUUID->"1dafdd38-286d-4787-8038-32b8a50c26fe",
 InitializationCell->True]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[58895, 1259, 3065, 46, 50, "Chapter",ExpressionUUID->"218a86b4-e61a-4bef-8ba2-4fd8fb900499"],
Cell[61963, 1307, 501, 14, 34, "Text",ExpressionUUID->"89cb97d8-3f5b-44f0-9e72-0a18d3d2facc"],
Cell[CellGroupData[{
Cell[62489, 1325, 733, 13, 46, "Input",ExpressionUUID->"11adc52c-e5a8-4e6f-87ad-d4615ab096d0"],
Cell[63225, 1340, 17987, 316, 156, "Output",ExpressionUUID->"400331fa-ec69-4359-819a-be550bf21a72"]
}, Open  ]],
Cell[81227, 1659, 1029, 20, 122, "Text",ExpressionUUID->"4722ceee-98b8-48ae-8bd5-567b660b06ed"],
Cell[CellGroupData[{
Cell[82281, 1683, 788, 14, 46, "Input",ExpressionUUID->"13781a95-036e-4e08-bbd7-38aeb08084e8"],
Cell[83072, 1699, 27647, 475, 158, "Output",ExpressionUUID->"e7c864ce-9f2a-4f07-b13c-6039a97f5dc9"]
}, Open  ]],
Cell[110734, 2177, 370, 7, 56, "Text",ExpressionUUID->"9cc246a7-b144-4c7a-b4c0-d18edefeaf98"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111141, 2189, 3127, 47, 50, "Chapter",ExpressionUUID->"d55762d3-e006-45ba-b14c-0b88d59c4bf1"],
Cell[114271, 2238, 454, 9, 56, "Text",ExpressionUUID->"cc653fbf-28b0-4555-a1ed-eae8d013d3a3"],
Cell[114728, 2249, 1466, 36, 124, "Input",ExpressionUUID->"cad7a774-74c7-4978-88eb-287b9067f246"],
Cell[CellGroupData[{
Cell[116219, 2289, 3537, 84, 276, "Input",ExpressionUUID->"76f690ad-1f44-49f9-8909-a70981c63fab"],
Cell[119759, 2375, 26900, 427, 345, "Output",ExpressionUUID->"4f0ad190-7ec8-495b-99e1-7622b3495411"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)