(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 4992656, 109184] NotebookOptionsPosition[ 4968789, 108796] NotebookOutlinePosition[ 4969186, 108812] CellTagsIndexPosition[ 4969143, 108809] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{ "SetDirectory", "[", "\"\\"", "]"}], ";"}]], "Input", CellChangeTimes->{{3.830419489049081*^9, 3.8304195253765306`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"30dff19c-bc2b-446c-9fec-40472009a359"], Cell[CellGroupData[{ Cell["READ ME", "Chapter", CellChangeTimes->{{3.7459405253365164`*^9, 3.7459405259395866`*^9}, { 3.8302460960885468`*^9, 3.830246098880521*^9}, {3.8302461980658417`*^9, 3.830246199225092*^9}},ExpressionUUID->"991fa0b3-a6fe-44dc-99c5-\ aa960ad719fc"], Cell[TextData[{ StyleBox["Algorithms:", FontWeight->"Bold"], "\n\nMust run one of the group = \[OpenCurlyDoubleQuote]group name\ \[CloseCurlyDoubleQuote] lines. Once data has been downloaded, the below code \ will run algorithms on the social network of any one of the seven observed \ fissions.\n\nOutput of the algorithm for a single trial is in the following \ form (DG = daughter group):\n\n{\n{# individuals in DG1, # individuals in DG \ 2, # bonds in DG1, # bonds in DG2, #bonds/individual in DG1, \ #bonds/individual in DG2, global clustering coefficient of DG1, global \ clustering coefficient of DG2, diameter of DG1, diameter of DG2, density of \ DG1, density of DG2, proportion dyads correctly assigned}\n,\n{# broken \ bonds, # maintained bonds, % broken, sum of broken bond weight, average \ broken bond weight, sum of maintained bond weight, average maintained bond \ weight, sparsity, mean b/w centrality of broken bonds, mean b/w centrality of \ maintained bonds, % broken bonds correctly identified, % maintained bond \ correctly identified, % total bonds correctly identified}\n}\n\n\n", StyleBox["Figures:\n\n", FontWeight->"Bold"], "Data simulated from 100 trials for each algorithm and each group deposited \ in \[OpenCurlyDoubleQuote]Simulated data\[CloseCurlyDoubleQuote] folder. \ Loading in this data will allow for replication of figures." }], "Text", CellChangeTimes->{{3.830246218608268*^9, 3.8302465506092334`*^9}, { 3.8302466212122493`*^9, 3.8302466245213633`*^9}, {3.830246659870979*^9, 3.8302466884368825`*^9}, {3.830246726366294*^9, 3.830246730685771*^9}, 3.8302468095646896`*^9, {3.830250048399565*^9, 3.830250081304841*^9}, { 3.830250249266136*^9, 3.830250293405234*^9}, {3.8302617478339925`*^9, 3.830261765565393*^9}},ExpressionUUID->"a0fddb59-3c08-400b-9e41-\ 141eece93698"] }, Closed]], Cell[CellGroupData[{ Cell["Algorithms", "Chapter", CellChangeTimes->{{3.7459405253365164`*^9, 3.7459405259395866`*^9}, { 3.8302460960885468`*^9, 3.830246098880521*^9}, {3.8302461980658417`*^9, 3.830246199225092*^9}, {3.830246654565133*^9, 3.830246656872785*^9}},ExpressionUUID->"adf31fe2-fbb5-453c-b774-\ d91ca8f20e78"], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"group", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"group", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"group", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"group", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"group", "=", "\"\\""}], ";", "\[IndentingNewLine]", RowBox[{"group", "=", "\"\\""}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"group", "=", "\"\\""}], ";"}]}]], "Input", CellChangeTimes->{{3.8302455854530745`*^9, 3.830245619286495*^9}, { 3.830246203689062*^9, 3.8302462073141003`*^9}, {3.8304150489572487`*^9, 3.8304150562635794`*^9}, {3.830419480683366*^9, 3.830419485579835*^9}, { 3.830420219639967*^9, 3.8304202236825714`*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"213f8385-3ef6-42a9-9bb8-1e23639a4c61"], Cell[CellGroupData[{ Cell["Setup (Run First)", "Section", CellChangeTimes->{{3.7459405253365164`*^9, 3.7459405259395866`*^9}, { 3.8302460960885468`*^9, 3.830246098880521*^9}},ExpressionUUID->"d66b77ea-40cf-42a8-94c4-\ ef3a6cbad2dc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"groomdata", "=", RowBox[{"Import", "[", RowBox[{"group", "<>", "\"\<_coded_grooming.csv\>\""}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"import", " ", "data"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7458636747441187`*^9, 3.7458636914062157`*^9}, { 3.7458637982398243`*^9, 3.74586381073285*^9}, {3.7458730489107933`*^9, 3.7458730559752445`*^9}, {3.748630711202957*^9, 3.74863071319674*^9}, { 3.7486372725406713`*^9, 3.7486372729999447`*^9}, {3.748637316730669*^9, 3.748637324888399*^9}, 3.7486381456481743`*^9, 3.748638425724243*^9, 3.7486386808729343`*^9, 3.7486389029930835`*^9, {3.83024563100252*^9, 3.830245639499818*^9}, {3.8303401636359653`*^9, 3.830340163923295*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"0b6e94ef-2244-4007-9c63-1e0e12fd860e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"groomdata", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"labels", " ", "of", " ", "each", " ", "entry"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.745863830755395*^9, 3.7458638649650974`*^9}, { 3.7458639024071074`*^9, 3.7458639522013845`*^9}, {3.74587303859109*^9, 3.745873045542172*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"be2cd88f-5041-440b-b6b7-87c420d89f93"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"iid\"\>", ",", "\<\"act\"\>", ",", "\<\"date\"\>", ",", "\<\"actor\"\>", ",", "\<\"actee\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.7458638355789375`*^9, 3.745863865347003*^9}, { 3.7458639057015867`*^9, 3.745863952833126*^9}, 3.7458641402509184`*^9, 3.7459394614466686`*^9, 3.746204598528056*^9, 3.746397305933516*^9, 3.746444549052789*^9, 3.748036624544264*^9, 3.748602641748207*^9, 3.7486027231502576`*^9, 3.748602803229275*^9, {3.7486373313238864`*^9, 3.7486373518777742`*^9}, 3.748637989428753*^9, {3.7486381564411144`*^9, 3.74863818537794*^9}, 3.7486382490503917`*^9, 3.748638465754057*^9, 3.7486387216862707`*^9, 3.7486389561175995`*^9, 3.7487775930363064`*^9, 3.749417431558899*^9, 3.749567331464895*^9, 3.7507685869621525`*^9, 3.7512211807499495`*^9, 3.7512887434055543`*^9, 3.7512928209712524`*^9, 3.7512993145033684`*^9, 3.7512999851502104`*^9, 3.7547790235655966`*^9, 3.7576351638070097`*^9, 3.7613869806799984`*^9, 3.821344010483325*^9, 3.830247271039323*^9, {3.8303402123284335`*^9, 3.8303402206655273`*^9}, 3.8303407095231943`*^9, 3.830415097282975*^9, 3.8304152851792936`*^9, 3.8304154856367908`*^9, 3.8304195351031957`*^9, 3.8304202280468173`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"82d134b7-e1b1-4e8c-a1dd-196376ba4121"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"groomdata", "=", RowBox[{"groomdata", "[", RowBox[{"[", RowBox[{"2", ";;", RowBox[{ RowBox[{"Dimensions", "[", "groomdata", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"remove", " ", "column", " ", "headers"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.745863954174962*^9, 3.745863965255912*^9}, { 3.7458639967185144`*^9, 3.7458639967296124`*^9}, {3.7458641251490517`*^9, 3.7458641265727367`*^9}, {3.7458730588061314`*^9, 3.7458730680999365`*^9}, 3.7486373659479647`*^9}, CellLabel->"In[21]:=",ExpressionUUID->"a5a955ff-ac3f-4232-9f66-409ce59c6172"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"groomdata", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", RowBox[{"DateObject", "[", RowBox[{"groomdata", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "groomdata", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], RowBox[{"(*", " ", RowBox[{"format", " ", "correctly", " ", "as", " ", "date"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.8302493314379663`*^9, 3.83024935327365*^9}, { 3.8302494882761173`*^9, 3.8302494928163085`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"d67e671e-0776-4e2e-8131-df4323187bdc"], Cell[BoxData[ RowBox[{ RowBox[{"fisdate", "=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1999", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1994", ",", "4", ",", "27", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2011", ",", "4", ",", "6", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1995", ",", "7", ",", "13", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2010", ",", "10", ",", "20", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2012", ",", "12", ",", "31", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2017", ",", "11", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8302494959281397`*^9, 3.8302495732667723`*^9}, { 3.8302496050964503`*^9, 3.8302496819484987`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"050df01a-f601-45b3-99fd-ee82ece908ee"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"prefission", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{"groomdata", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "<", "fisdate"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"4", ",", "5"}], "}"}]}], "]"}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{ "select", " ", "only", " ", "grooming", " ", "events", " ", "from", " ", "before", " ", "fission"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.745872835902299*^9, 3.745872864388008*^9}, { 3.745872919037166*^9, 3.7458729589708157`*^9}, {3.745873071655978*^9, 3.745873080885857*^9}, {3.7486374123561354`*^9, 3.7486374277022243`*^9}, { 3.748638227639842*^9, 3.748638230902342*^9}, {3.7486384399545135`*^9, 3.7486384460082693`*^9}, {3.7486386966006866`*^9, 3.7486387058383985`*^9}, {3.748638917751003*^9, 3.748638924914632*^9}, 3.8302494033735456`*^9, {3.83024955748129*^9, 3.830249570945574*^9}, { 3.8304146962255135`*^9, 3.830414697366677*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"71681af4-b1f1-4ec0-845e-ffbed0ae5d41"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"prefission", "=", RowBox[{"Sort", "/@", "prefission"}]}], ";"}], RowBox[{"(*", " ", RowBox[{ "sort", " ", "grooming", " ", "events", " ", "to", " ", "not", " ", "worry", " ", "about", " ", "reciprocity"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.74587298737788*^9, 3.745873009525176*^9}, { 3.745873083651064*^9, 3.745873106712079*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"91e62c8d-a216-4e20-a147-0818b37dead5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"bonds", "=", RowBox[{"Tally", "[", "prefission", "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{ "tallies", " ", "the", " ", "#", " ", "of", " ", "grooming", " ", "events", " ", "for", " ", "each", " ", "bond"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.74587965560767*^9, 3.7458796761315084`*^9}, { 3.745879715314339*^9, 3.745879716242738*^9}, {3.7458798024745283`*^9, 3.7458798333781204`*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"e808d391-5856-43b4-b31d-814cb6d07779"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"strongbonds", "=", RowBox[{"Select", "[", RowBox[{"bonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ">", RowBox[{"Mean", "[", RowBox[{"bonds", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"select", " ", "bonds", " ", RowBox[{"b", "/", "w"}], " ", "individuals", " ", "that", " ", "groomed", " ", "10", " ", "or", " ", "more", " ", "times"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7458798452557116`*^9, 3.745879888381247*^9}, 3.8213436279952397`*^9}, CellLabel->"In[27]:=",ExpressionUUID->"03547a0d-de00-4c4d-9704-1e9d927be882"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Dimensions", "[", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Dimensions", "[", RowBox[{"DeleteDuplicates", "[", RowBox[{"Flatten", "[", RowBox[{"bonds", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.8213437213543673`*^9, 3.8213437241431265`*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"85559a74-3eee-4f35-a73a-52762825b7ff"], Cell[BoxData[ RowBox[{"{", "36", "}"}]], "Output", CellChangeTimes->{3.8213440149566965`*^9, 3.830247275488899*^9, 3.830249416481492*^9, 3.8303402712418976`*^9, 3.8303407387805853`*^9, 3.8304154100730443`*^9, 3.8304155796639366`*^9, 3.8304195613693542`*^9, 3.8304202346272683`*^9}, CellLabel->"Out[28]=",ExpressionUUID->"d126e3c9-0cec-4fa5-acc0-4dcc3e30f76b"], Cell[BoxData[ RowBox[{"{", "43", "}"}]], "Output", CellChangeTimes->{3.8213440149566965`*^9, 3.830247275488899*^9, 3.830249416481492*^9, 3.8303402712418976`*^9, 3.8303407387805853`*^9, 3.8304154100730443`*^9, 3.8304155796639366`*^9, 3.8304195613693542`*^9, 3.8304202346308374`*^9}, CellLabel->"Out[29]=",ExpressionUUID->"1712fcd5-f031-4de2-9dbe-c323c68c3a98"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"graphmax", "=", RowBox[{ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7613869719704714`*^9, 3.761386972579629*^9}, 3.8302459221257515`*^9}, CellLabel->"In[30]:=",ExpressionUUID->"38dea4b3-7e6b-4dc7-bf32-7950e6df1d1f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"edges", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], "\[TwoWayRule]", RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"put", " ", "edges", " ", "in", " ", "graph", " ", "format"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.745880033494373*^9, 3.74588004433994*^9}, { 3.7459399836838408`*^9, 3.7459399892587185`*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"1585971d-97ab-4b17-8f9d-fd2c7e7b4219"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"weights", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"put", " ", "weights", " ", "onto", " ", "edges"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7458800473460913`*^9, 3.745880056870951*^9}, { 3.7459399923771787`*^9, 3.745940009035649*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"ab33633a-04fd-45c2-b868-bbe5319547ed"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"graph", "=", RowBox[{"Graph", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], "\[TwoWayRule]", RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"EdgeWeight", "\[Rule]", RowBox[{"Table", "[", RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7458798938399963`*^9, 3.7458799817568207`*^9}, { 3.7459397647238812`*^9, 3.745939766183482*^9}, {3.74863745663439*^9, 3.7486374571757865`*^9}, 3.748638145651827*^9, 3.74863842572991*^9, 3.7486386808786306`*^9, 3.7486389029976573`*^9, {3.83024567389536*^9, 3.8302456744390945`*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"03ba8eb9-1ab7-4905-b83b-35534ed76af2"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{6838, 9704, 1690, 3890, 2958, 347, 4505, 1891, 512, 9012, 8918, 2330, 115, 4068, 2133, 3439, 7421, 3343, 447, 8609, 4109, 4716, 9761, 3937, 6234, 8646, 9562, 7938, 7486, 6145, 2797, 6704, 600, 945, 6147, 3236}, {Null, {{1, 2}, {3, 2}, {4, 2}, {5, 2}, {6, 7}, {6, 8}, {6, 9}, { 6, 10}, {4, 11}, {5, 11}, {12, 11}, {13, 1}, {14, 1}, {15, 1}, {16, 1}, {1, 17}, {18, 1}, {19, 1}, {13, 20}, {14, 20}, {21, 20}, {22, 20}, {7, 20}, {17, 20}, {18, 20}, {20, 23}, {19, 20}, {24, 20}, {25, 20}, {20, 10}, {13, 7}, {13, 8}, {13, 3}, {13, 4}, {13, 18}, {13, 9}, { 13, 26}, {13, 27}, {13, 23}, {13, 19}, {13, 24}, {13, 25}, {13, 10}, { 8, 14}, {3, 14}, {14, 17}, {4, 14}, {12, 14}, {9, 21}, {21, 28}, {24, 21}, {8, 16}, {3, 16}, {16, 17}, {18, 16}, {5, 16}, {16, 29}, {12, 16}, {16, 10}, {8, 7}, {3, 7}, {18, 7}, {3, 8}, {8, 17}, {8, 4}, {8, 5}, {8, 30}, {3, 17}, {3, 4}, {3, 18}, {3, 5}, {4, 17}, {18, 17}, {5, 17}, {24, 17}, {17, 10}, {5, 4}, {5, 18}, {31, 18}, {18, 30}, {18, 32}, {19, 18}, {18, 25}, {5, 24}, {9, 29}, {29, 23}, {12, 29}, {24, 29}, {29, 10}, {9, 2}, {9, 28}, {9, 27}, {9, 23}, {19, 9}, {9, 24}, {9, 10}, {28, 26}, {26, 23}, {30, 26}, {33, 12}, {33, 30}, {33, 32}, {31, 24}, {34, 27}, {27, 23}, {35, 27}, {12, 24}, {24, 30}, {36, 25}, {19, 24}, {19, 25}, {19, 10}, {24, 25}, {24, 10}, {25, 10}}}, { EdgeWeight -> {10, 25, 9, 8, 71, 8, 16, 11, 12, 10, 7, 11, 50, 54, 13, 7, 9, 8, 30, 6, 8, 10, 10, 9, 8, 17, 8, 16, 6, 9, 10, 25, 6, 10, 10, 6, 7, 21, 13, 23, 7, 8, 9, 14, 8, 7, 14, 20, 7, 7, 22, 9, 8, 15, 13, 9, 8, 7, 8, 9, 7, 39, 39, 7, 6, 15, 11, 8, 43, 7, 12, 9, 6, 38, 11, 8, 11, 8, 7, 18, 7, 15, 8, 6, 35, 6, 10, 6, 7, 6, 28, 6, 10, 6, 13, 12, 10, 17, 7, 20, 7, 8, 6, 12, 36, 14, 10, 22, 17, 10, 72, 13, 6, 90, 9}}]]}, TagBox[GraphicsGroupBox[GraphicsComplexBox[CompressedData[" 1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAAc9yaLoT58j99GMo1evkHQJRr2rJt TvI/gASNehr0AEAyFhBvDEbzP+Z/UCv77QNAVFb7wPza5j/ce2pkndQAQFyB OQDwzO4/VAQIVVct/D9IzjJFDssCQOg/rnUCrAlAtLNluNHX/D9fjcjB3nwI QPgXouDlm/g/XWMql2CYAUDGZieHhPUGQKETn0kJif8/eqvO8VOSAkBignel PIEDQAAAAAAAAAAA0G3J/apD9T8SfUNohTXxPzB2L75Vt/I/ViihlII4A0BX OHKj1qsBQKa8+7Mj8uw/tnqpscBKBEDAVxttB+K3P3WkZqZDhBBAppipZoEW 9z8mKECLEVr9P/Xfu28YOvg/Gz8j1LoTBEAmtjmR2Mf+P0wa8MtBuwBAzmyP lcC0AUDJbcbkaVwGQNPkWvRcFwRAsr8mefrdBUBoMGOCLtcKQMPM0zfzxPg/ 3l2X82n+BkCUUNNPB1IRQJ/rZ/vfvApASvIyyaR8/T8kcaPzIS4CQECIrM2D NP4/BI8xRzlqB0Cqs9c6TEIIQIJt6it7LAhAVNGhfFuB7T9wp+/VKzkRQCDW dzXVFP4/A0lrTtwqDkBa6JYEAjzsPza7EtTOVgJAIFgipg8E9j/abxv8g2/+ P07FDUMZNO0/va7YJAL/CUCd1B1rNGwDQNTuAwMRYvU/fHk4fvT42z+ZUvS0 gXbwPwAAAAAAAAAAJmR597SVFkDKnllNyjj1P62mxRyS+xZAMv5UP5FXAED4 EqARn4UPQD1i3N1n5RBAT08EIQ== "], { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{1, 2}, {1, 13}, {1, 14}, {1, 15}, {1, 16}, {1, 17}, {1, 18}, {1, 19}, {2, 3}, {2, 4}, {2, 5}, {2, 9}, {3, 4}, {3, 5}, {3, 7}, {3, 8}, {3, 13}, {3, 14}, {3, 16}, {3, 17}, {3, 18}, {4, 5}, {4, 8}, {4, 11}, {4, 13}, {4, 14}, {4, 17}, {5, 8}, {5, 11}, {5, 16}, { 5, 17}, {5, 18}, {5, 24}, {6, 7}, {6, 8}, {6, 9}, {6, 10}, {7, 8}, { 7, 13}, {7, 18}, {7, 20}, {8, 13}, {8, 14}, {8, 16}, {8, 17}, {8, 30}, {9, 10}, {9, 13}, {9, 19}, {9, 21}, {9, 23}, {9, 24}, {9, 27}, {9, 28}, {9, 29}, {10, 13}, {10, 16}, {10, 17}, {10, 19}, {10, 20}, {10, 24}, {10, 25}, {10, 29}, {11, 12}, {12, 14}, {12, 16}, { 12, 24}, {12, 29}, {12, 33}, {13, 18}, {13, 19}, {13, 20}, {13, 23}, {13, 24}, {13, 25}, {13, 26}, {13, 27}, {14, 17}, {14, 20}, { 16, 17}, {16, 18}, {16, 29}, {17, 18}, {17, 20}, {17, 24}, {18, 19}, {18, 20}, {18, 25}, {18, 30}, {18, 31}, {18, 32}, {19, 20}, { 19, 24}, {19, 25}, {20, 21}, {20, 22}, {20, 23}, {20, 24}, {20, 25}, {21, 24}, {21, 28}, {23, 26}, {23, 27}, {23, 29}, {24, 25}, { 24, 29}, {24, 30}, {24, 31}, {25, 36}, {26, 28}, {26, 30}, {27, 34}, {27, 35}, {30, 33}, {32, 33}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], DiskBox[1, 0.04714936380225114], DiskBox[2, 0.04714936380225114], DiskBox[3, 0.04714936380225114], DiskBox[4, 0.04714936380225114], DiskBox[5, 0.04714936380225114], DiskBox[6, 0.04714936380225114], DiskBox[7, 0.04714936380225114], DiskBox[8, 0.04714936380225114], DiskBox[9, 0.04714936380225114], DiskBox[10, 0.04714936380225114], DiskBox[11, 0.04714936380225114], DiskBox[12, 0.04714936380225114], DiskBox[13, 0.04714936380225114], DiskBox[14, 0.04714936380225114], DiskBox[15, 0.04714936380225114], DiskBox[16, 0.04714936380225114], DiskBox[17, 0.04714936380225114], DiskBox[18, 0.04714936380225114], DiskBox[19, 0.04714936380225114], DiskBox[20, 0.04714936380225114], DiskBox[21, 0.04714936380225114], DiskBox[22, 0.04714936380225114], DiskBox[23, 0.04714936380225114], DiskBox[24, 0.04714936380225114], DiskBox[25, 0.04714936380225114], DiskBox[26, 0.04714936380225114], DiskBox[27, 0.04714936380225114], DiskBox[28, 0.04714936380225114], DiskBox[29, 0.04714936380225114], DiskBox[30, 0.04714936380225114], DiskBox[31, 0.04714936380225114], DiskBox[32, 0.04714936380225114], DiskBox[33, 0.04714936380225114], DiskBox[34, 0.04714936380225114], DiskBox[35, 0.04714936380225114], DiskBox[36, 0.04714936380225114]}}]], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{3.7458799833398075`*^9, 3.7459394767152987`*^9, 3.7459397666469374`*^9, 3.746204222272508*^9, 3.746204600464081*^9, 3.7463973075893736`*^9, 3.7464445518078165`*^9, 3.746444606205511*^9, 3.7480366652725973`*^9, 3.748602644789257*^9, 3.7486027245249352`*^9, 3.7486028046820607`*^9, 3.748637458328537*^9, 3.7486379903249393`*^9, 3.7486381570074167`*^9, 3.748638249883832*^9, 3.748638466175482*^9, 3.7486387224214616`*^9, 3.7486389567725735`*^9, 3.7487775936756105`*^9, 3.749417432420537*^9, 3.749567332371237*^9, 3.750768587652457*^9, 3.751221181551961*^9, 3.7512887445171566`*^9, 3.7512928216352167`*^9, 3.751299315343111*^9, 3.751299985851986*^9, 3.7547790247362595`*^9, 3.7576351645810213`*^9, 3.7613869818863225`*^9, 3.830249422550926*^9, 3.8303402761496572`*^9, 3.8303407390969963`*^9, 3.8304155847956567`*^9, 3.830419566035618*^9, 3.8304202375070267`*^9}, CellLabel->"Out[33]=",ImageCache->GraphicsData["CompressedBitmap", "\<\ eJylfQlcVte1L2UGpwxN0qbzbW+Hm6Zt0owOcZ7FCUGRQVEQmRQZxIFBAQcE QUEZBEUFARVURHEiajRGozExJjGapKaNpqm3aXLzmravve893n/v/z57HzY0 9w35Wfp959vjmtfaa+0TFJ2+MDY5Oj1+fvT3x6ZGpyyMn5/2/TGLU/HI62se Hl9biP99/Rse+Nzl4cH/if/i8T9+/H/9NFr89Wk9cHD02IlDR4yOjom7d++e /P178vdR4q/fyVOn5i5Mqzt0sf7IayXbD0fMjfnyyy9lq++aVl4hsyK2NpxE Ew9P8ccrLiWnra1N/CRafsfVckLQ1NqW86blwtTVLS0tvbT0q6isSllZhEb4 h/lDw+ffvn3bntkPq1mUkjZj9ryw+akjxgcHx+Z8+h/u9Y0Rf30vXXkjPDHv 7se/zypry6s4iiZmNtnC74s//3XpxoP4eOcPn6+qOIpGf/3bP+Q435atxspW C1c3Suh3nXj5Ru2BCxt3djqtvmVa+etW+A9Nzr32PhuK74+adgHudlhSQVXH jQ8+QdN//Of/kGN+07T1Wrm5jav28JR4u/L272pbXn7ng99X7T3ntP9Gr+29 ZPtdbZdeufab7u0f+Yr2WC7Wg0ecqEd7LPPWh38QH71le3zBI3zELJhLtn+4 1/Y+8s+BzjcAw+7tH/rn7X2xZjy6feePBD66ix5fd/XAKrFW2Vgu65M/foEd oB++eR45+5Zo/6CrPSEi0SrbA017jlwmNpz2D/Ta3l9OUtZwBuBke3REd/Hp flePfcevvnjppu7hBRrDivCXOHSNKHoO0D3F7IGyxRvv3gG+NNatHv279egj t2JW0tWFvaM3Fmm19vDCsrA48ZHzoCVWBoipebr37OfqSXSJj3I+L2BEUWxv Pfv22rOvWrGHLzj6+vXrkDsgNwwD3hO9+rh6kfzER7kK/+mRi6bMiJgVFRc8 M/L48ZPd+gW6+ml6lLN5BB7t6IhdtFJLEwyAibv1Dvjnvb0WJiRvqGrVUss3 Y3XZps1lXZJt0VDJE3/XCIBL4faTZgQIqbVbmvUIfnoE9yASZn6uUfAMjKlH 8bt48WJIxAIK0Krm0yGzo+/cuUOOFW0xo6AuMYpvr6NIGPoAFhDDQdPDnho0 BlAgh3kBDC555tNr/wFseecOZsIOyWlWTykPPMYRbo6EUz0N3emeGMmRR15f 0VPLZ3KrV3dJ5tlrz/u6ukuS3np+zdXTyMD7LIr1t7ix6yt6AQ5YqRg/wBrl f/XaS0oMl/Sye/1PVy+C3fQyKwq04Ps/XL0MBO53eBQrFPjqozix99ZS+rlk jtP6P12tzbof6JVzjAz8u6uXGVNKZC8sBwg2vczv//0remkdQrp2/f43Vy+z ggcdmoOsEx+lRPTSctzjr7qX2KXURl6rth6BWDRzGPnWW2utmdTYpvVfXCsy rb7eK3+hFxCNdXp86eplKOIhixYGOHRHYebx56/opbWcoVbV67+5ehmp+5DD fVihoOn7ne+YXkisL1y9DO4ftiB7v7NPJecWi+8+22q3w/DEv/WFRX//+989 sr5iLLMiSWe+bsELGQaRlCCfY0wYn5TzmflbVmblftWo2NGSwv1iX5I2/ACH 9IKaydNCoB+mhoSjt1jXEPGb99WrV/MK1kJo37x588ey9x//9B8vDB8rzVj5 J3jWHCg08dMK15wGu49YVEqO+eyzz2aEzYH5rCxirBrwED8NkjtqbNobPi8x q7AGKiM8euGVK1fEWr2xFQkV0J5QpVKf+oDYsD/+A4I8vCEMoXsK6p8fOt6s Myo2BYrkv1onUAcEmnV2dnbOT8w0lju06KBhYw+det0jUMwtKA1rEst6VK6N xGkoDSgCSE1/6K+pwaHC5hB78ZZjgDS5eA9P8UfIBexAbMITf7zlM5BBtz1D BnJe/BM6SWouP7gzcFdIB5hp5uw5wm9Z+RX7BRXgu9Cf/2f7BR7VWh+V6wK8 1Vrvk1CfMi8nODLRQP3ZoRMy1jfIpvjD/YIbFcw8JcwoBDXf+badvPjkoPHR CUtjk1eEhEUB96Tm8XKFRtNxB9r2U/yGHWPfm3d2qB3AnSrZtFn8NFD+DmIF ydoYET/9SM4OaCbkNe09egmgOHbsGAg1+ytmNxYPORSjw8QYOi746cFjMlas BiMNls+3VFSGzVuUv7kht7guJHz+2bNn5WzewEfOliM55YeBiFW9ziP9G5fm lPN4g+Yz1u4E/4AwJKf6AIpRi9alZSwPjYpvaD3J3XjTg8gubwekV7vGN7rn G0qWc/3UkrUtF85dfZ/qUq7fR+sTChOOLqhy56GLwpPJc41t1sq1g9qhUDSG fDkEJQKxN8iRysqG8LTW+AO5F2iQPUdepTPR+3zftHSE5EFfakzOR3xxPmM3 cD6jWb8v56OdwX75rvnM+JzPaDY5nx9WCJFKdsUDKlOP5y1+87Lo53tyTtqG kEKAUIFrTmOfcE5jGdqWopQPYnAuS81r9uptwew7DvVg3k8+/UJ5RL3P/aj1 nfreaFs5t5hAq85nrV37KGr7jvOc/q3sucY1JwAP8Js5zRz9HcpTFpjo6Wn1 ecbas49FhzK64UPa0x6zh3t+o68etWiT80OBMrbhmt/YpU9bu6YNTrrQY/ro 9dFk8Fgr55fehy8EB/ThE88MeXbQMBoKj1r7ljajt9btCq6e1sxPW9DzsyhW UpOP1noq7rHOtRLMnpZT6rYtuBJjm/R1zS3+n5RtLNCnrN1zDUYTSSnhCzyA AgFU/AOasHiuQkaqhL0wYXKw0StQqlCtRsYY617CxVfzaJcTbOGqjB38awtn ARZtS1vJV0eEupx4x3q5qhGOJKMxAkisLGoYOjbYW6zOZ1RQWOb6OoCY5kEP GyjQoSmQkZE/BkteFsSetL5zrcaqlWv10WunUPEolCuVsq4/OgLJWCmNDcwL DYMPtCuwCfSE9QB/X2rFvtAsA0cEnTz/FiUnWqI98IUPaM9tUd8a6zLQlga9 7sqs+gkLA4GOJFNWN60BTUfaQeC+JFX1A9VgAaRnLAM9sU4ACuSMddLSEFQh Pe8AaOewiLnTI+JnzU0aPGrKK5evYUSsTken+gDT6IGuetOgRQ4GIAlJRV/N 6KYAC7e979rIjycsXDKiZLwGaZP7uuNy3N0GuevH5a4xNVaJNliWUBRVHVwo PlOJ4VfhcUhZFQDhEbGosPP02c27T1JAYnVoDbCSF/sAiqQOkAMtOveuhZ/E yIXRkAG2FLR27W1Jq19auO5rtZfWhx+WjVkZvcT6sQgBMe5ceh/98F0zHe1+ LBaQxQfACw/xq1ivpJ0+aJ28Zq97MHzGikFTgJnApoR+oHv/BCb+Yng8wZI9 xYBeFBtGfhnN7dXr3o0n8UsLw30titB+IqYQtOpptef+pU3SF7NypaRPIAAb 1HxMr+DbjjyltsN/5CG5TmVhkOil7dAHT9CRAOXugxIrSncJRsdcwhpwtDZ3 ZiS/j8ULj1sy1tbV2mcXtoaOu5rxpAPIuJMPqLatrS0rZxX+Cn+0r4vfsRRs SfM7RiOxUi4JGP6LRJTGQZc0SVQc2tvBl+IBGY/ou7vtVQ6Cv/iBwxKsGCav 4qjw1yyJ52NxBfdv7JD+1v7k/v3cMXSt7DyWO7uGM78oJS0jcwVcbo5AivPD b3HxyXD04UPgLz4LuHi7JAJ2Q4nADVAi4AmeK4nwM0sGEwOWdejtZpEHHOpU 2trLoUMyYcnOF8fEbKYyAVGRA19960N89bV6/tyiDh33UZq7vwVNrs34dxJC vjBAUrOL125phjM1MzLm+vXr/QyMvA4eOhSfmqu9u75pOSVLs9eQtinZKCyw PS4VBPWrXuc1NpRvD74hxxo/QNJBf41nDAvqIiaSCppHx5QROBTM6M8ZjK3x mEU3jB0YndLXoiNPSwJJyHhdvXo1fF6i8WzhA0dEzdP9FYTAUaAf3coHkAya MYfCQ0jEZy2e9bIkt5/FPfdZFOVjrZ30SZ4hYKiqgQeKroLqjuWb2ggYw/vg gpBZEQsTkuEq0153Uc79loT9p6cyKqIoIz5eECQLUrKNDTl0xGgl0fu44FO7 fQdPYBUUl62pCI9NNR6cwTqlgWXXduMdUrSxaGx5acsT+b0vddzpV2+FpG4r 2nFKA4pSnALO08ULsNVgt0XFpgBU37Io6QFrxgCHJ9WpCbFr/IHlDqXlljYO Hx+iIIXhgQmLkgK//PLLqOjYrMIakBD+Dhs34/CLV2g4ADXP9rpXQ7MBPbiK sWaj92yL3ceCllyFv6Y0go2iDC08oRs9vERgMzS6t2jPNy3cPGhJG3+LhvR5 k7JKMiXhoD+AhyF4Ll1csgksCJJJyFgTGhYlzqkoneRofeDF5BWshXTH34tX 3+WJDMkYo2IbylfSdouyuww+tY2tuM+WDGKVQlP7WtD2s2DH30FIOxv2R8Wl e0i/xWv0uMlAqviJXpV9imD6+1vr8rJwlyERhvmxLtAAqEtoH1ogkFOFRRsb GxsBDuo3CaMALWPwH/gNiEVPQFfoBlrNxoO3T9L69OA9fcarYt1elsz1cfCp tBN3ZE4+OENrx3nQdd2hi6Qf75LthweOnIpJ0PERi4J4amAiK75dbqvJSNA0 OT3WCkrDfNgB8EeI94yoyLaYAxAENECeAo6/tOSfn4Wtvj14S3Kbn5bqXdLy UPanraf9LZlACY71Y7FYQEPj3tDwGBD4giWrRk+cUd96GrOSA4T+eMhaC78b 7epjQcPLwZPStqmyEZCAqbhjIXuZQTLADVEf9AEE0Q0jiZlpfRlN5GfhR8NW 8Q4zGtw2Ildlxyd0HoMTYZNAARkBumiO5ckn/rDXhkyJz8gpAl1rqQR4ewpn 3EsDXmlMs66HLTnnbdG2twXRFLl7DI/fsRVsWLRixs59vUFbRDLRloT2mNWC uzMWYP8enCTpw1djCN+4OxtOksZUhghWT/cM/ZnLMiu99shLbxEE7O/pkhEY AksQnD7A2u0jFl96OtBTZ3HeFvQWyVHxCzkGUwna+J6EDu0GY5v49rqCn8pW xgLSmkBR6H09uIvZPVp3UAT0iHNR45298l58nvAvgRS2iFq+s6njNbM3K5Yg 9gJwYBCKnR7+oxPB11aPiqmS04x9kiRHI71jNOBf7EbG1pWdYOS3X/eZAUvR lieAxgKiNWG0z/0Wh9GboBYihvwtmPg5shAzLN90KDprt8CAvwUXLwsuOlur m+SxswEYV9Rz4T/i1MdqJ89QfbQmV9HYH7ngApjiqYjkBTgzoy2pS9gGPA0x tk6gBfn7e/AUd4TZDp2+hoc9ZAzP8zAv14S/+EymUG2nLarm+YKRoOrUnf4K Nqp53s+iYClNvYlHynnak1D+MH9hn5RsKl9atBcd4h0OoTZWelzSgbIJzFk6 dTBQhC3iEej7B868ypqhnW70lhzB381JeIA5kgr2AtikLnMS5uWMT4J0rGAX 7/tZkPG2IOPXK797W/TwqPN9U/1pLJRcKLxveFNwDWDtLskqmR4aBTHvsUCO SE1EXS6sOOllqzwHHUEm34qcQayG5p7gXpmx6bJsyN3GspKj+GqeuvPJZ/C3 0VFCp1vWJTpgJpdEclEgdXxoak03L81ARtJUgCVpuqRRrWiGnsX7v703Mb7C RKka9uxJWrq2m7cE2078NF9OY+txqX2UTWAyI/o5bbF4TAfsiRm/bVFLXwvb Dzm8iNUuXrdvalKloEJqIcKFHiG2iB/8LCz7ONiJXF4nTjD9LIhwHLeMaTxy GX2/5fAyVlFQfQzoJCSWrcxx+9VeIBMwkvgpWk5HfqS+FvCT1orR/SqXrL8j iwADzIqFaevHZdnQUzI6Uo7ivbXppZmp29OKWtBd4tM7euVuxj00N9m+KKAf m9sg9m/7O+Tmi29+GJRYmV/VgeVLjylAy0IsZ3vrBfzF16Co9AUpucpbzMzf ok7co7q63LpYyWkZbzHn58pnH+BwEkkd6xbyln6InfNk2U4++PLhx59CeSi9 Q6sHrQCvEdGlYAybq7yt3QdYskxKcD/a4ba8kHP2x9Btp9/Eo1VbjoycX7b7 8CVQzStvfDBodPD85JXAPvhiYVIKRGqkXCN+5ShK78ozHbU/k51HTYFFMqyP BZBCjDVCK9bKpuqv5Qf6Xb95V+uZLmnok5iAKrAFIWjsb29H/iTmN4uzv0AL EhIyAVqSdMlgejd7ROrIAfh5TfWxyGV1WAd+wFcqUkCorOF0blnb/v0HwBAQ GCInJdzhXa1zhQ8kTyuVZ27lPvlgwG4eIbWPsUV07pmSVxIuAzS/a5cK46yr OZFVdnhp8QHAhWcC0E8C+oSN0ePUrKBDnnwp/WVg49cbLHvYJXJU4WdQEqZv aIF+A8C9HLmQmN+ERars0khHR3XTuDKa0kMOPOhIC7Qy+Ljf2sWA3nr10bae NiTJeOtqjgM4goso14w/29fiRRs62i5V0X1fSwcxPtbDLhESBZ+xXXjqWBUW CmZWZyFejlTYtPt0RGZd24tvihQDST2+XDIaUuviq4zQSU2lsxN7YEPTibJJ 7rdWqbNFVdyA54J5lUehYrBGwoJKB9Di7rUOc+lxGzr9LJ1nRwUk391vyZou eW6BzaER1ouf8JnPDZy9HCpg5siG7SeWFLZ6zO7qpn+VpSqzeZRmNbGuh7tj RstLK3PHtVr53ZyvUIEtKz20cecpJX3RF49ClmwDMvtbvKpPC4vrTgnY9Ldg Y59/Mw8cv+w4+AqkfGxOw+L1+7EjrEfpMeO50JKlTYm/AFNq4X58nuVwG4Nt Sgu/IOHxHUvGPuLwIHZLwWkym+0MQStq7w+6gE3PozRgXx9vkBviVu1ZVipE mKIH+yQGMClvPIv1kWu7ZXwS+hIWAUwwwhRY3p72y/WHLxkKt+MFjE4wdseR ADqd3zXDoR6MRx0trJ/hLrgYm4jZIhiDNKW8Qko9SPWbN8V83FKPvGO5H6GT Z2fsSC9qxWZsr45eNPZx997nGJrcZWRut9wwdKmQuCHUfTSclPdG6w39qamw BmwPi5Fr9XPLILNiuZ4AjIwxyGNaB3GRHtO7jCbHcpSdOlLC6rsOrJT3LWV1 X7enyADGttrtYyZMDg2PmRocWlqzD79+3eJGRu+otkEsIHg78k3vUEtmshrW JFZDy0VDFf+BDMA3Alb3OzhZtfWooDEpf32BCuoaDIK2GDPAoX+MmbSmeUkh TMq/EfKBTAjRZ/SU011OYuAUR+YyMqf0uszhYQzGpT2lFPKm1olfWjg3PkPH 6EcHzTz64iXlQRlrT9KCyJtCDwDn2Ll3hO9MzrJPGuyIEdaBR4LzGAt1Z05h rOaO1wSEHnAklTqTpO+HT1gmgAEZDFbAZwHpfo5UWlVxlI5LU8cVUKXIurOj zXZG40S5E23TqLiuzNHlSb9LGpILQ8LmMrdX+ReLlm/IyZcH5oSSFdETNE6T gDNSTPXI4/C21unl0J5mQEZJNa0BVPuPX8WSJS0Fkr+FTbXtWOcr7wLfUJvY E2YHwiTPB2qfAt/+9PlfYHfB6Kas6nJHyI3EknBQ+h1daQjj6wQJnx848FE2 ArUZnPPNOztMrdGS7JKfDAwdOW/z+Lgtcasa04sPoLnKjmS+k87/6HHWix/R GEvEJDqqpuwB+2TFhqBb+5ElnXMA2ZSghx3OXNiiHaeq957HZElr9s7Lqn/9 xkdSbvbVWoVkQN1GsbViUxs2g6XYJ2pjHEm4TyJIRT6DJMz+xeF85WdKL/br O3fVJ6Tl6fqwIWNDcksbEvKb80QtaMea6g4MM31RdfjSuqjlO6F14/OaIjPr sE5AS+Sqy10N0PncFAQnzr81P2mZTmHoktYBCENxvX3m6Wdxq805fhb3Mpqs o3oUdIBnf4cesfv04tagxAqAmkSnnUzCXFO/NhK8HHpLFRboaW1+cS1p6/ac e+VVUTMmJb2yIYw/KGWexw+dfTGDifLf78u//DVo1sIpIZHTw+b/6rnRg6cu kVQohGJ/UAeZBZjW+Rs6j21edj08hdwt7fmVHZ6lu1706Ada0al7z4+clp5b xiyIidMjozPK0Ljj3NtCXvhY3OTXjcsMZP178Do1OVtowJJH/LT/gg1gYCxG yBOd66T8V1otWm8ykRmbk+36a61kuZBXrlwZGxQyZea8WVFxLD+RdpmJySqr ROpfFW01dpi0Su5T+d23b7/+xrWJcSWT4isgj6qkNO6ScSxa0YS4s9dAnRfJ fCrIdzTAhxVrtkYuSJfxDJ8NVa2jg8JY9iB0hKjK8PAH5ZDDo1fubmi/zNQr 57TDzpdxQT2wh3xw1zYbqDMzj74RKYW+EcW5HccxGKC3qUlemzN27pY7hg4K HzF+em3L+R7VODyPZoGPlnYihtntXFfakB7/2qUsM3V2+Yg1I3Xp8tKDk+K3 5pQfBgiAXJKHstqpZ5kcAmLDNDqnAp+XryqE0vNy6lJGj52oV+SP/aJF56u3 IKh0aiBQJHHly0Qo5kJBFxw49TorT2itiY8SaoFaypBiQmJzxk+fu6qgaFFB PRYpIeZn+WPoYmLIhud8Laz0ceiZOWiAm4g6aVpRmoy92traYhdnd6vBeW7I KF3746Vrf6S4kVJdYecnkmYgqWBbBs+aAwi1HhDHCfqsGbsVomemxBdPc0wk 6SFrNXK//ht3dc7Pri/d1ckseapGh398sRdW+pOXsRTuwc5Fyi2umxQaozWs i0ooz5nXx9Q+OIWL1u5jLRSAPDa2fH72blUbxbwtoQeIQVWE7NDBAC3NFiQs mRufCekIO2DY+NCb73+IpkAOTTvlO9onxP6WZKEdTCp577eC5sXMvhZH85QL W8fws+LzQqMXk0bBT4OGjzV403VqsrP0b1XtFCvWeGxifmcCqjQc/gu8s9r7 s88+mxI8C9YztXnUglRIMR16D5M4/4nSBbQZjbci9xBQve/cnBW7oP3bzrxJ 9AA2aKF37Usg0u/EMBiXPYtLNs2cm5xVWLMgJXdmeHRsVk1E5g4gy/CG8ZPt SDTlAuY7c/kWN8g8RmFHE+tM85QVceK7r66GA6oqtjeHzkmipAa6h08MJyma E0HDlXaVMTUgRnv59d/QVZG77GfuWnDiL+iQvHZf5LK6mWnb87YeHjl+KrSC ou341FwYUpL8upSV1Q1PTK41ePy/pAPv8j1nava/HJuyKiFjjZeT2TcuKFTA TkbC1Il19xpLgWXyFkh+w/YTjR2v6WomXe9E1UA+eBi4RR/wDr0rfQA0LmLF mGnzBk2O//w/hIXW8dLbiQXNqYUtOnqqYxxSynW7I4LzCTxIfvXVtZtoFDov DcxJzG1tODlkVJDJU7VppI+FOdrpwNPu9ks835BPRPwMlsmbt+4yPAdDeXXF kcXr96/YdIi6E8hZWdQQuzAxaNrMkWMmwBuXtrHE1H00BfiPhhgcZaxgWclB 2L0zUrZNSaoISqiARPrZkHBHF/kCG88ND9KppdgZ+R2jqWzkYImln1l8wFwN 26vHIGevvMdE9A8//hSbEPDwdCSTyltnVB7sx9C+9FYuzF66Ax4o7BFZWylH Q9tVW46s3XacYSxVvccaGQ1NjSeuqLOzMzphqcmhhZU5YmKYO+FalxrohHtP i9Ps/H7KSJ2HgoXL3Qr7C/QUsmQbvAsArvHI5fLGs9p58XR0AyuD8O3evXuw Dhn31nzGChAPL8li9DT4T/CT5KH7mdrNf3s7rradfhMsBaiBjJnprXOXr799 IywqVmd8+SZl5JO7aaIDBRK7AZyH1jhDvJRKRjeROcRSx7nwb6JpOhteZYBL iAQwMk1/E9zC3KZuea10CUWEnvwGOCxau3dI5MZlGw+GptbCPdf+DFCUX9Wx vfUCpHHV3vN9nef0ZbvjPQCzjZgQGp+2GghftqYCNJ1dIhJVxFrlzKbaxl13 krahdVJCxe7Dl3QBQjdubW8/6uEJb9DDu+PU2bSi1nU1Jxybty92wrgK1oPB 8CuGcZ+kax/MREN0ZorGPToQ9z4YSeNepn8Keeqj5SlpVtEJuZP/JORN7Y+7 CkZXgegTDZ/jx08Gz4wUt7HMmgO9p2w79qZ805orAKhkNYlOj6eMEzwsa8g8 /s2hAuUf97ekhI/D6YzE0+RkzIWHWypmw/wQ/IyhKB3wIWnNXmjzC2/8Jnhx 9cT4CtAsgarsbSEdth6JXdXAIAvWxb3oSLiKe0pKDSBk4NHu27//l4OCHhsc MnLuBuZ6eXiKRAmXRcKM+Paz16G8WKekq3XcBSu6YEPKh6+nrVgbuUBcGYN/ 46ZFJq8s/cvf/g44UJjzPJwGNyAck1MPHNO4EXQiCE94UQdOXYvJrm/qeE3G dAUWfLT9QF5VT1kwxH/CKqa2VldWOTKsD30PgJqVc1i9LoNTFWGM5EMywfAW t3VJO9qP0ol1AJSdIg1Q+iN+9B05P0EgYMjTq8ccelCnO5Sk1h0ygVbFpj6Y Id1oX0+d5dPOAR4KqkV+iMicEewR+PqNj3jsxqAmSOjuvc9D02ox9Lu3P6Ht ZXBKztMzK9pw3xAibV3ZClOEZWyH3T44cmP94UsqZ5L6C/t2IgJWZbCT+04u 0iVOrC7BrA0HXxo1YbrUun0hoZ94bvicZdvzKo8W1p6EC44uu9suJhXsDUrY OjiiOCG/WfJ/AD16/qtsPhef17S77VVWByqcGy9C+qzeFCq0ACSkREwE8KcG FZL414521XV4XK2M7mBWCTsfakhGGwUumfnwc0ui0Uo1dcj0/PXJkBbXZHqT T6RP7lXWEauEMCicNR4loF/5nrPC06G8ZaQfT7PLDxdUH4OZBLaizGbBG4Yl ljVeVM5ZX2fNPB6kzPFl/kRW2eFhczYm5DU6PrI3g//Yus7RMvTr79iCftra qmg+u3zToeDYvMmzFjATvc/A4ZNWl7U4BVlnwXVRy3dVNL8EFXHywjumItE6 bxG1bCQeRuhIOYAjS2+E5Buh56ceo85gwZRAtY5rKvtN0Kb0q1V+sbZGTMaM qplnjr+OLmphrZlTWV8+jrwGLniUwhgGY0b61BNLajn5OqCmq0JomvN+htwt 7eRkjK7j/LSKeZJE0FITE786+irkPkZZv/3k2NgyqAhnDn/MQQ8A/e988lnS mubX3/kdUMfotfZbgA1N4/7asiKIdx84M2jkFDCntJ4C4QNPnhby0cd/1BlA dA3oYdk5V6za1NWYuh6RwXj6e4LypzoyUvlZcn1+tMh4ewpNcQzA+nxLsjOD 99y5c42NjSwv5C1mv+hS/pvKvOb6rJqQQHcWvY5uabSZ6gseXugTemF2QDdJ GpPfN8pbEoXEkBTRj9W0jIFh5ZHL68KX7ug493aXPMLTDKVsaRITQU8JwlQs 0YI2A1qQYuCyTFtcnbJ+P+WeiDxJ3IkTRKhK/Dx8bmlY+nYKOXWLg442ABB+ jvRgssXkqIwJM6Lh7MNKDJ49f3FuBaNmurLNhqBVAdqHprS7tFzXG2MSQadz upT/h3ZSfgksyjVTH9AD6W5x88x37foNcxemwVWOS8mJXZj05ZeUaKZmQkXk 7DoE2kzuewO04GUjg7VuFSTcq7Af+DtWBntLLJU6j2qSuNU5Icrjk98D8cPx 82+HZeyYmVYL+/e93/6BTh2Qjsl1pjAsGul4yO9lDadLd70oLXPxsB91FY2M Wenbxy4oGzV/04SFW0bFbE7Ib1qyfj8tDXomftq1X1LYwlMFnfHXR+uCExfe XbftWFZZW1hy4fSIhNHTY9dX7DX5BUbuEcfW7QZ9rHIsyAzypLkVgZn69Cm6 282MsLutZmreva3twC1jICvWVqkYNW/9+5Vj87jj265oJnnEnMBK7ARoytT8 a+qEfR1LBo2wCeBFWnBHzE0Xdq6+eMaqNFi+UIgrNrUxP6N633l8cCIv3oVV ewHOGZGJtQ2HKLvcsnVBzp7RMWXJa/caXdSXwpWOA/0quq0JeU2sQgGNMn6g fW59iKlvIOlDyiO6gZnN9acxHSQA/G+VD+NrSTz7vFh+78NF0AnsWZ4ouEve 2OTvtoFpPsOoz1hdpqNYqj6VGHzCWX/FnlN5BWtHj50YHRO3ZHWloBVdzaWy tnh6offajUOts0WRLzAvq/7IS2+pM3BPx0bBktx3g5h8I0nhD2r90nnxZtyq xsySgzCb4EhNSaoYE1s2dE7J2MiskZNmQQhCFE6bHbtsdQkFmPL/mcV2S1UN EM+QA7vbLs1eugNuGe1zU+Fj5ucKeYLPTHev7vijBNq48xQYOGRJzeqKo+o8 zs5IdM6emcWmK/3dNe468iHoRN5u4tXS0rIwdXVvucxuTEFtTpw2G3uHti/Z fnhScNTVq1eNNevOgwvU+Tv4FhKdNuiFkbwBr/HIJaBH25yL1u7NKT8Mt0H7 qOoWJvAxfiNcD3Vem720TvoaMj6q7yADcPmErsjabceh8zwhjT28mzteW7rx wGNPDa9qPq1PVeDFi9uf9e09Lnuc2MIW4FfAYWg6enmPzP4WtrBdEa2r0cAj TECWNon0/wnW9jNvTVtUlV7UWr3vHCQ8yzzM6YOSNzoKse/4a5nSVuLO9F0U 6jaGEgf64ZFCCcPEyt/cEBYVK+4L8DP46XGXG3AEhtK6znXOQYuCcdtttdtj F2ez2jEzf8uylTk0sJk5xShH2+k3l5UcrDtwceS8zSnr96m9xq1uHDlvE6+P gHeBZxvqTmbKNCnFEeZ2PJ4m4Ds2R9ECTIyfHCKtf9+QqISO44KDaQQ6keVA SlsMXLP/5cLaE00dV4DyTz//MwHoaXGRnKM/HNnEguYpSZVYNLXD4nX7F6za w8vAGFgjYiXs+pG7yPvyxrHLtFBic+ujV+42Xv9WiXVW9E4Imqrua/B3wd/i In8g6gePPfer6Wt+HbpuUHjx4MjiYXNKxi0o94IQ9/ABec/Prp+VXgueh53G KJVX6e4X0zfsf27ISPpFPuOmhG2oaoEQgssrMrikpryfEYmo5TvX1ZyAWQCY VzSJ5DhY7/c+/YIlRVpTuf12FSMEnX1490+Dho/FEhnTfuaF8YPC8gdHFMEs bDz62t17n0sM9GNnAFF44+2XWREKUar9OyWJJezvYxUgMHL2ynu72y+BB7DG nYcuMiyhKV87m9qyxYhrqo/F5jRI79uPZgNtAGPB7XHBGrAPDY8xsM7Mr5gQ GgdX8czlWyCW8j3CG0xZ1+I5MW6rh1/Usp2zM3ZAiE+Kr4Bkxx6DEis9PKct qvbwCl68bVDYml8PGkOI+04PX5icVQ7GTS9qufDGB05U+j4t0dxX4zE6z+IT rZxo+zH/EY2nJFfNiFs9ZmqEJ8SqR5/gyMTQ2BWASGPHFSwzJqd+5PxNWE5a UQvo+5NPlX2l6BLQLq7rpH14/f2PGTHQ1XXaw/sWIQ8lU99+iWF72ucAY3BK zZbGMxiYZRxcacmuTppgOsaPD1ubXoLsA8DNKZ7Jb2mU0JdVDAGNTXuDZ82B zT07JjU4LDoxrz67vF2drMu7Y2RQGCIDrjz9bc4BAEJvgZqHjJ4O6aQytyCi xwSFNh55Be2guCHDdeRsAEzkyUmV+AGd9PUm+49fBRYnJWx99a0Pr9+8O3NR Se2ew6vKDzCW2hcbIJ2CFiCw4peXDZswc/acuLDEvEmJW1M3tDhWtv/rNz4q bzgzP7thRLRCQUP7q3CEGdWgb4D5wJSewonyZfo5tSocckDcy5GS+Lyi9JA+ bdYnMg+IS/RbXhba4sINbAIbLN9zFqNAdGaVt9Oj4SEYTXQa2fZt1U0S+ioK dfs2/Nii8jooU57XQl2pk1Mi2NjDJgdbfr+fHhYILSGndmxQSNj81LCY9OeH B4XEryV4dxx8BQYiZCeDlNKvEW6HV/TKXc4pp9SVkLDByRVTZycOHj1t9JSI JweOnRKdrW8wlSef4nyNoSEAC2DFV5D7xTc/xIcxMZur9p4HQN56/2OAjCEW KUV+SqzE5u4ZNW/zpISK9A2t2F9qYQtPD1ZXHOFpPiB+9PRrkQvSYKoMn5G8 77gInqFNbcsFCNbF6/bprG9a+ZgUgjKtqJVaNj6vEbiAVsFnmOtgHdq+5kzL HW8TOGiWOJA1K95ahOGDpwg8ezP1ibY2YW98D4nNRylBPv+PL3Y27H92UtLv 7ojACN0h7AvSNXJZHdgDHtiwuSWMXIP8GVOkdy5393Li0jUxi3OpsWHVwBJg vo4QpBI3D4BBQNQALhXF3BW7hkZthJbGoGuqjw+KKIa/ODW5Cqxw4NS18KU7 mIlox8PlLr599R2R/YYWvwpeCwczesXumWk1m2XcIT6ndsasSNjDEGyxKbmj JkcW150KTauNztrNcx23N5i2oRUuL7SV8IqEQvWjLu6S6SrQhon5zcKrtm/T 0pVbylqT7gBvfOyncdUlk7o3ytwi7dACEXQg1C0ztHfwM9YhSFpiZQDFts4A qDvwSkXzWYYK6aQBhpMTK58YOE7cMevl5OKmLCuQR1AydgIo5ld2QMtge8yR rN57HluC/yBOGG/ehWYDNqCeNte/+NzsotVbjsIXm5laC/JeWtzq4SkOKXzA G5GZdfyXvqGFTwPpaUFVbdlzZt7K+mdnFT4dun50zObHB03LLa5jbDxkzuKn JiQBnenFByznDHKf5+V2HT2zu3nijka0Pik+tKIm7E0Eep+BvZ3P4c+zJQ7A yBFoOb24lbAnlEHsoHFhU9MeFG5tXiMTQV0+rchRGj0xVGgIwjsxY01GdqHO qPCGSoRtBpC3vfimhLc/4J2Y3zQztQZ2ElgZwAatR2TWMYYE2TVh4VZ0wQqn JFdDI8JelUF+j348aMI/QB3dngpdD1gHJVU+EbzmuVmFQ6JKfviLF8S91XIl 3iK7aMoC2FkaOiS3bm+VULXjrC9w55bo+tT1snLHQ8NXRWTk5ZA9bmTydLXS dVreGBSeIMlcRy4gX4BLiD8hkgjj9377B1ggVC+USMzgEePt6hw8PWVGVBLf fAP6nh4aIaqcqf+0HnXi/MK7Kdn5IoxObJdn+8wPklHELhUBYPa2/Ht7lXRU 8VDXGwtq++MXp1+9BREEzY4VjZk+D14N4esTOjd51OxlMOBF6bM4Z5R710mN HvZdo7ak5cprWi7A3mOM3L4locUFY+sOjgAeqLK6G/smGRPEKorPE9WkguaN 6r4zcVNyo/QZAHh51iitRV3Jv6H2RGhq7c6G5kFDR78wZtqwsdPSCnZQ7FG9 YkQnqyqQTwBi1lHSFerqdp+fP80saiXYdUU7TxLCcn2PsMC/UEb6iTwY4fgA asku3fergeNAwPAeI+MyFi3J+OLPf0sTPqrIR4fRCoGVVXb4w48/7XHDoe0B kxr0CRYLNDDvX/72dxXZb5VQfs6yQWjv8zy77uAr6KF9fn0epav+MTcsEaBW vxuHGhezbdhxCniSfQfQwMD+YO2BrWB0dsnjhvKd7eiLkSFyMZSKzHAswrn5 2GsdL73NYB93aE7hSc3uG4owZPLavUXyJFdaRH60nhlUwfywmSB82PPheSt3 wUBCHwwxNWHzL4aFzwhfkJZTSqXGcbGjyuZzsIJYvcvjEqiSnC1HdLb/Rqui 5B/d32GjsrlDlmyrb798wAVzgyt9FzKkYWPHa8RBIE+R3PWNmD5u1R76Lsyt dN+UA4oHUzFCRYnAaD4wriJ0PEWAebHjwCvhmTtgwfm6YP3y67/Z2niGgfNe o199/+G6b0YMf+EGAAjvbXzcFjgXNJIllh7g3rBMLGRifEV6USsVVkx2Q8TS He68ajSHi4Wd4aGXo++wFCihZaUHCXBeCU1JYGf16rdKdV68wQwtQUOUILwd zlTLEs7Y/7ptx6RlICmIt1cQzmXC1diNFk50pY/7ZGnx2n0T4srLGk7rkj0Z HZecRvmGR1ubzlLxUctoHaKg/P7v/rhik3j3lyMP7BtbxVnb+trjK0qFwuP+ T164AQguyN1TVHdKxAnkeA+4bxuCrwgix3Rv3ro7Ia4C2oXRPkL93dufgOcw rUOz/TXNogG2ByyhMeQxhAuG5fYY2eQppPsE1S0T97ngbN3j4EOIMLKpT8B8 Ce3VFUenp2zbtl+glnFU7bszXXBi/NbTl2/Rs6JAV1FLEZy68G5oao2A5W/v MaKpUzM8XZC+9+kXi9fvgxXh3L0hIp4ANuUv6w7QfXvrBRjD2LITcTsdv7oR 63NOBkTMGWABeEn4FXvPBadUM04NwU3JSRwy04+FFCYqaXkrIpssoaDp3NX3 WaAG4xLmPajXsfh0lmg37d7sgrSpfGIEUMfgu2R5h4o68OQZIvfXIevgNsNr JARZz8pLKGDuMi7f3PFagowrkH/RHxZ4XuVR/COhuCsb6Wwx8+DTz/8M0MCp cDx2sT+eFa/aehQeNCUvBIK5ocS688G/et+5/Opj83MaDnVeY+0hjHQnQu5T vf/loXM2YlTQMLQKpVgfGewS18NSFWt7uEvfmO5rUSX1BTil/vAlgh4TFVR3 kEL0u9eYaYvpGE0Z2Ju8ccXSdf6fOnEk1GH2rdraDvJAR08RSH4IhJGyfj+3 zTWRSrVBjlaUX9g7l0GjW9ESI1zojw2g2917n8P7huTUPEwNBTrgoS1UHcCs ax7cntq3ebq/7/hrI+Ztmpe1m5dy8HQJP8XnN2HhorRv4Rb0ZDHb8tJDWZsP d7mubdab4IEJNYledZdTwkuL6MhLb+VuOcICFZI0Vqyji+7rMPa4oG7uXvKy 9qHz62gaOHLNDyBeX3McndrPXoc4C0mtgV+hJAcLj+iiYmS5jFcxKcU73+Gi qVzlhegbyOPzmqr3vQwRnCKr3LVoVjawl0VrhLupoKPEBs/Dzj/+8o3MjQcx YG3LBSrAI+LO3tPQpWevvDd9UTXREJRYUdF8HoumTKOPgudQTmAELEnO0e0+ ZZOvpHOTVVyWtI/fAWFiAQ2xVrIl7RSSAZNLZeo876m3La4e98pi1/TqCYUH inacjM3eMyutFlITmmvD9lOsOyBzxubWg4Kp8NAzZf2+pAKRWuu+rVym3Euc Ua6+fuMjNFqx6dDTM+FWi3tdqKTsOxZ75fivs64Lw/7p879QS+w8dHHonFKQ CLF87Z3bA6cvW7ymsXjnKTrfUM9ABaBEOqNAJdBYn61hokO9+pxTxWJ5jwYP dalr3BDX+Zl+NLDu3LmTlbNqUUpaRWWVuIulxgV/U02qawTcJ7+P8MSG5jtm BtTHxJZFLK278cEnXTJl6c4nnzFZJaP4QHDKNmZP8EoYk00mx+4P1EOeUrlQ iENuTU+phjzLKj+ctqF1eckhECBgGGDRBqlRRxy6pDWurDE59v06PgQZNS25 Ckqvpe3ouEnThk+c/YtnRhSV1xHMJAEaDypzEU/BxlTa+n4JXy0dtJDUmS4q Iisz5Aa4cUBlBMwDw8XbDsCXzi2uW7ulGWZ/4qIl4u7ubRLyfEOQ+4Yd2oHS R36AEV1oLQBxSWELTIZFa/dh3dpXBQCgbgEuMHFsTgPcG8c2eVB7uRik4/w7 szO2w9TRUhuMBbjAxIApQbqyc9usu1uE5Qvhyn1pi+A+9gIpwFEJSdwwdnI4 4wf4Oz184cnO01QbgB9BShmDD/CfAGct1XmOar9pyNPRgWplrOGlXYV9YDeD xswAVBkZik1ecezYMdGk2gVbt99GG0ru71t4DtwsWrcPQNh/8iosgojMndgb 10BrEMYSHOG43AZocqprPKdwQ6+J8VsAebht0xdXZ5W3mzrGNVXHID0ghF17 7nFjq4lT+Godc+BCUEIFVqjvqsMwwENscuayNRWMigyAx56RuYL7wW+NR68w pESZDB+MVSNuyzBQ+1Nu60WzCW+ZCpo+s9sbjZdkl1RWVdvQdHtm3AFP+4gw hke65KlS3KrGzTsOPzt00uNPDnz8qReaW9vhEVc0v4TuSwpbZdT3gfYzby1Z v3/U/E1g/p0HL6IXpCGxhSewzrvULflHoYmALZjQ2Cw9M1O7qO+zc9+bbM6X Yffy9JC1GwxCM5Ybk13/+NT8GSnbpoYnagjf54YwulTvPU/HosB5GQxRqWFJ v0xHSLSoMrFSVsPmFazNKqwxEDZvpSOE+dY9ahXuhta5LqG/pSovv1O5p/P5 EVN45QE4bWLIvPDkddtbLhw49QZsqQWr9mhbGKqIFg9pd0fLS4szcv/ticFP Dx5V39CUXnwAhIstAPjxeY09bpym1QTKgvZkMh5hiI0COXGr9sDlBqKgRuEA 4YPkWdGiPwPOPKbA08jMOsBnTdmeWVFxWkDMil508tQpSl60BHmw0FkeMcmZ 6bkTIrQs3KKbIGa4lPd9fvbZZ1HRsQtTVwPOcxemrV2/ocZAVlTgpq3b07Tv YEx6sZDAtEZ4jkJrRFlT60oTMtaYW/JLth9+cvAEWO91B14BHRJK/bQtOTNy YUpWCfZT23J+bsKKmfPTgDzALL+qA+LB3CJCeGDpbS++GSOralVFI+tEII7h CZGJGD+BaE4qaMak7silupuE+SL6dhfaOBm5Jc8MGTti0uxnXpgwLXq5zPV0 ZAv6AQl7O5jt603ihU8l6qTvqHecUIR4eArx7rXRefk0a+y9YS20tLSAhs+d O1droBpw5cqV0RNnRCxIC46InzNvwQe3f8fqfllVIfduvbdjSFAMZAt5zQ80 PGT0FMwKJpycVKnysFmjobOLK+uPDhs3g2fy/oOGjWtsvwg7AQjB36jlO13Z P4FMaIKTCf1y/eZdZqR1OT6CjpOhGTnYvi/B/Z4UmDOQpcQfcPZCRGFYctHL r92IyKwrbzyjoeuVu6U9NLVG7JdYcZdl4MPFNz8kLE2u8ykjUb1AicGhs6ua T5Pa7ttQ1TpkTHC9ND0Z0yhwXvEDqNbsfxk/wZsuq2sbMT7EybXuk7Rsfcqy AqwJ8ABXi2TQ2pNCwslzJNCWynAYGpo5JSxOvwfB97lhE6csLN22/zwghbGd HEaXtqJW07YgQwX6BmjLP/XRMUm3Bu/75q27gyKL4dHg6b1Pv4DXB5eaZ0CJ BU0rNokUdr6liewPOwY73n/iKuekSeTR6YIaBCfEp9nHEwPHjJtfGJRUMU1c WbJj7opd+v2ZgQDDyBmLxkwKiYpLnxQcFRQak75hPyP3r771oX3SSZzyTZIa KwGk0zUyswkDw9oBoHl3h9I37rMdLBiKjHVRX+g3XPq5dshHmu4IbgUtmThw AGiDa40Hna/chAe+u+1i1IpdN25/AoMEDeSc/vSR6w9fDsvYTm2pJKYLUiY7 RkLqoacHjVpatBdyTGfKM++AOpJuJJF37969zs5OXuOCQYEUUBZz/Hw7z5wf MmoKLK75iZlTQyJLt7fT/waZA/ZwvDA07+7ABp07j311jHPx+v2phfuxa9ac 2VUSjEG4a1RnLKmBMYY9UlDjCT7D9curEs4+7E9Yv/SYMB/EAgAC45tUe9pI K194PrypFf8Wpq7aUlFJX5JnxUyDYdoXcyQTCpoglpiCp6v3gLZ5Wbv/oe7h 9UXjK9duwfRsaGpdV63j9QM0dsUtJzJuwmwDZjThyYrNbRBiwSk14Al1QzDt K3xXdaH0aLQn/N5v/8AreFkxT93X0H55ftZuKAK4m4kFzQty9+ionIDs8Lkl h6TG2X/8qscZFyxA47BzxAuJh4+eEpmC6ZgFfvfe52ANJovq6jVAYXJiJUQf 3DZdV0Gs6tVpi6jXO8v8mVQHnTgqpmzk/E0TF24RpSZ/+Jz1RRhyiYxb6fdY yFRFCKX4vCZN2dj64nX7SnYpO0NYCOtrjtPa5o5TxcU5R2CPwI3fp3cs77Tr 7X1zKu7j7WASxNVx7q3lmw4dOHVN1R2wbg+YgtyCTIIqwM+nZYK+sphMZJ3v S6DHQkfp2MvvjF1QzoAHz+OZzalr771A2DPTav/hvKfiAU03kcvqsAq9dyFr K0S9G8/xATn4LTLrco+OS11//2O4ggBGWlFrx0tvqxpAcsAIy7ojDKw7tn1Z gNzlhN/1CRAkBvZ8QsaUIJ6YyKHrW3k3BwYurjsFwjRxMzrnTuZcP2wcjizD JqwSoI5jiFzcTShJwthmeLq16axzY+CDhASeA+WUrBjr2Ll3GG/hkm988Anj GHBBAPpukSl8gqTYuPMUntJXosfhhpCOPPaAkPb71Umxu+JF51H4aE2gTsNZ 38p8eN5ugQkhSqdIewdTZZe3A9WgWpgKOv2LXOW6tV68qe4V+dZcTUnYIHDC bCNCnNhtOnp5Xla9p8VXjAsw7wC2JZZy8sKNcXHl62pPEEb4HcQ9Jali0+7T /KrdOtGfWkXeg+XyvhifsWorXLEx6gXGxrAzHTrk0BLCD/CcAfioOygsbOg9 XZzHZMGIzB1JBXsh4uQNPteoqGiHoy9kRH5lBykS1A+PnNxClykhvwmuEU88 0IwVdYAZyCqnvP39j/5dXBd26nUgAU/wPDa3ASTi5N0LCdN25k1GKTpdEDCn r4SAOf0jBEx1iM6exnpgOAABpjKFNXqYG+pQ1DJJiXBfWcNplsrAkJ27cvfa bcepjXRlG7XRaXHWftSJafYFwGGgYF40HhtbllfZMXB20YU3PmCIDbBxznsC eaIHtpudsePQ6Wv4FZCAeJ+UUPH+7/7o9hAwGibivkdZUt1+a46nBQeezrWc fCMmt4H1EAJavAOLKiy9SIRP5Djfc1df3XK9C1LXgWH1oNrgxdUrSg/R5Gd+ xOyldZB0aJOY37xxV+eEuK2SM/aAvbC2/Opj+l60AGwF0mfi7JRh42dC9SVk VwydUzI9ZZv2qEQ+wtbGM9RitNJHW9j0czSFTq/kaR+1D8n7iz//DZryxIV3 uVsfbTSr7H///4JnJAYecd/jSf8R4ywvPbS+9gSmHxtbjsWPiS1jFu2WxpdS C1uiltUlrWmGbBE1XLJsSJ0ah89fPC85m3fGDRsfGp+1Ffy0btsxvXNxiy7s ByGv3Pvm+YXWVd32TW2q31ZBXcNCRypSdeszD5zob3Gnhd3fnueK3Xhb0Nb1 Ge4Mhge1BAYdjInZ/OHdP+ErpUbprhfnykBE/OpG+NMgPejWqclVIfGFE4Ln KG8BPtbg0cEYJau8HXrd0XHyjezl7etqTuAnGQhXbyA2JxG09bUO7XIudXTe kumKN2JUunvcI88bnaxGUylqPCh9xqpdb1MfQugDbq9euxWWsgWWiOvdHS74 UAOxNr3x6JXQ2Ky5iStUNvvTzw/tcs7V8iqO6nvheK4iMve5Z/nuZ1f8l1Fw NzW6YlE+1H7gb1XPpCMV3SqusAcQAKuW7Tdy61vslMdJufGp8546FREiBOAt J6WtfHbw6CcHjR00avqaCp6cBFIqYUwa2vTSssraopeWj5gwS2LdH1iPmLuA O8DowD2kp4YCy1vFik+4oHCn+xvoukHBVdfpQ/qH8HTX5/sSCgxhYbPYhr8l I717oy9xEiMqdg+rNzN8s6Kyim/awD+5i9jf//tnFIkYatyCcgxOVwsj8dRQ ZEYVl85dKNydJdklY6fMzizcLatAHfnLgILWc+QG0D4WfVxCQN5cY2UV6DfM EzAqQiiOgV98k6mOjGYDE3BX19Ued24k6ZFLbZ0uCXpIyGsUe6ZVDEyPmyiK ycmzfWZEJUUtWkfdd/LCO3R3qSiYZagydM6dO7dsZc4vh4VffuMdmQkgs/X/ 6tybDnaH9e7klolVwO4SkXL3ns29PN327L4r2tttR1H2a1OXOcTKLrjV/Q2P rlxOHxflAJw8Gle7wAKJ3w21x3/59Avk4IBZc5O37VK396AFjCFa3/rNP4Je p/BdKLR3mX2pz+wwE5SDc7OtsM9zyg9Dn2Kr8uDEY7wcxb4pUlt7qn5I96bY xcp9HJjgCf0efYZ4hO/jIeUbT8muSeCtMZoqPpG1SzsOiEIQdFop3/TGzK+V 2atzNmxnrc/WhpNTQiLKdh2Dw7dyU1t0Vv2MxdVOjqnQIwXVHRqq/pQp+o5H mFnwFvU9vxh60VpxIYIHYSFvHLaz7kzdKQ0fk4FbL+vZnewUb11dpfOvWOTc 5dgQ9jut7MxVYe+jPSyZjc7VM5vrX4Qf//o7v3OkVn/48AsTkmdFxeHfzNlz brz7HmYBgYOPC2tPwMsmuWEx+r0oIv1B5gRRc3OROuUIZoG5cwwG9+L1+wU1 dbggYp3+q/xMWkGeDh0IT1UO6+VINJ7GmDcMum9zs28K7UuLgKF+JlPga1bZ 4bD07TAoGdb1dEYm2DnSgOvXr79y6Ur9oZdXOi8TIuODQPRtqhooagekb2Yk 6ypnXo+Cb7vbLyXkNenkyKSCZuBBQUReQ9rPnbVGPaa1GSYRNypXHhUHXlr2 gmPosep3erpvxOxPfwg6FT+AHjHAiOhSWuO06v4hLxDBr76W/qBO1m/QdL/l qr/2Y//huliWoIBQIKDIn4QBDRjeUgJHBB4lYYD2MTn1QlMeNTAQuo4nj12O 2+i+93pp8QHxNsQupemZTMg6xP688oJSDVDiZmjhpsobe7GLjnNvA572Pbas t3dXftxyvWGLXGbFN/y5eYAUbh83z/gC7/fQ8vLIS28xxQ6PoTOYMijNFY9J ks60zcW0CV1QQhFCUtHHDNxpH1Y3FtaenL10R5w8paPQ53OhW+zMF531pfxF fwfWGFckGcsUZCzFfl8aI27M0yS8MCWWRrJnJJoeMgjq+IV3YCqD3L6Qb2g4 eeGGB3cq7w9X95GTO0AfcG4Wr9vHCAuNWnXLo9wfMMEMa339DjaDEZmlq2JM 7owK8k6vN3+rN0KBdrD41298pLxl23qy4jEiUwn0bHO6vmGPV192XrwRmVmH PbefvT5n+U6Bo3az5z6Uk7/56JOIlI0rS/bBS01eu++erJvcJV+yxvECGchg XZ/eNPDPJA1t2ao8EWpTrfPUuYanIxGVdmBs/6/O+5GYMKzFXGCvMLDe+BGo Mzd78rqOFZIPD5x6IyS1FpZrYkFzRdNLCgqT5Rpy120dMnLi6MkRg0ZMemH6 IvAErVjPHnvHc4akGNnG3vs4uFF7dzJOJWo1CMxtMbSGmCe0Ur910q4+sGMt /N3KU7XfNuPXKxDMySyQCvc5NLWm89LN4JQaUfVw2NDCfdAos6IW6GNrGKJp qzZfv3mXgTysxb1zMJXMUumro4JdMjeDvg5VvA4d9S6t7dpDOx/HzgG0KYC1 bL3uuUsGJdOLWqcmV68oa0vb0AozW7yp+pDZr1dh0cZlayr0+bdv/uaGF8aH MXBNQSDzGQJ1TK9LZu3CYqMT76pQ8XbL4wAHV6omyt/i+V5v4nD5trJ9/577 uvPJZ8tKD46P2/L02OjnXxg1NSQ8Imre7du3D/zzPXnpHA++DcGf0TnsqKb5 VHp2UUTi6ivXxPGKrknRkla/6Up5en7WLuxsH8oAc9LQpwdFVu87FxK7MjQ6 Ra1t886O2VHzRe1Vq9mB382bN6eEzqltOU8qnBOXcuHCBb4fROSNLs6tmDQ9 fEHKqqiFmcPGBV+99jYT4HmHqLmdWHGbfY+1nS/ta/GZ1F/eXPWQUUEwu5lz FZeS09Ym77pvMWsVufcr1lVNCJoKqxRO3PHjJ/mGHFirIWFR+lTVm7fnUsDx 7StGt/f0twlDbdkr25k7mxocysuvFQztdUmd3S0XDFwN2v+e7G2dJntNDYlk Ga16k5Hlu3ZbFfWX/SZluSq/bbXbU7OL6bcDc8Gz5gheI1YnOnSizif4DglM i1Z6Jd5PPDciv+Iw5gASH+yNX8xadGqWv4PrAtfbl8SdISuzckPDY4CTKTNm p66uFLNyLROstcjb/PuBQdJySpnYkpCet6WiUleU8V042K7wgPRdtoojqOU0 zCi81VmK8f/47iZQNRABWld3R3A94631yNvqxVumSjZtHj12IghL3N2s763r 9ZZQ/RYzl6+iPXlVuRBoQZQ3oxtNzBrMcRbvyPci+Fn316KHvqvI201nnNNg w7lh5mGLjlnhoqNOSmvKOgyRu8vXJTB/U8GdksfEUexbqQItSfSQJX854xhr xiEOVNGRUOUtBq48enHL94mzlxYuWhoUOi88MQ+N9Zu6AA3x8WGLJlipPdrB icrnlOdt/b+Qt6y7s8XVK2+uvD4mSNwxJIsU04tLNvW1NARnMdYxa1dGOU+p nQhTX2bnYuWw0YaOmQrRQ14HRzDFQcHL3H/FrD2Tac17F0Zao090JNuwURON BDHyx/bwvmF9Z/XHCGtUaq2QWRHdcjLBuuAWM6p508g3LVpgdcNwCwvSqvO9 evUqZAzgunZLc3TCUsC1n8WbHM1ogwY52jBnNKYd8CZGbwAvr2DtopS0Y8eO 2fcXf9OhOFVvy3GGWuPMt2Qn33RpqtNZI/CC1SvGwY6Krn3LouPdstcQZwUq 8yrW+a7sRfs9w7tkr8FWL3lxksuq/La14p2y1yCr18Ku7rrjO9b3Olcv8w5D 9jJWz3et33fIXgMt6RHvwExZGd+1oMVez1u9EuV3o+W/61AVQzce22Wv56xe Sdb378nvJg7D7MBnLYpMtmD2fWufzNR8RknHxQ42ldTke7+MZGb2/NOq9RKL fn9grZD5tU+p1qnyVyP19ZvKlVxk619bfJqqev/Q4qkq2fpJq3WaRVc/tCRV pez1hNUr3RlbSdEfWRKoQvb6lQW5pfK7kYo/skaVt1X1uAMz06LGf7XwtUX2 +oXVa5k19o8tji+XvR63ei13dq+k1Y8tucBeP7c4eKX8bqKiP7bkQpns9ZjV K8ta0U+c35X2li+nVjevm17ZFnX+1MLfJtmLt/gb/ZXjUL6qm/mZNUqp7PVT Z/dKtuc6u1cyiGsxekfe8abWbXqttqj23yy5IF+8rmBkeuVZWNY3zqvbadnr X62n+RaFPWbJhWLZ60eWjCmwqPfnllyQF3Z6/NDqtdaSQexl/IANste/WL3W WRz+uCUfCmUvzdlKIvOGQxNdI3WbExn5u5JMplehJYt+YckL9vqe1avIkkm/ sOTGOlcvQ61FFlZ/aVGchJaS02b3xUo2PWHJizWy9Xes1hudVkpzPmFBReJR 6TjTq8TC7pOWvJA0o7SweSr5xiWbnrT2K+lTanyx/jKLWp90YKry2Nj6m6p1 uSWLfm3JB8kxyt4ylFFuyaKnLPmwSvZ6xBpbylCXLHrKkg+Sp5U9anpVWLt9 2pIPUn4ou9z0qrRaPWPJBymrlK9ieLTK4TYli561KEnKReXPGslc7UBYyaJn LUnAXtKu84ON29nZCTMP7poZQeptl1x61pIVUoqr96XCu505e878xMzY5BVB 08MKyvdqe8GF9ecsubHCNYJ+0yf+weEPCYsSVYy1Fiyet2SI1D/qHnvLw3bZ 1DUWhQ+0KGeZaxSAYMLkYDMKhlQRA67FyLOBlozJNLvxXV9YBA+bu8nM3wL/ fIfFdQMtWePuDY8eA4j8XXmdKr7usDh5kEvmnH7pZb6LxevgIRHtEz9Ju8mj zeEAJd9Y6dXQ3DIheA7fxwF0wfuXdhMjoy65xhVap/VeU0PC79yRNJ/i6mWo kb3u3bsXNG2mgaKpiDK9BKfLFfnpGA8jYFOCZ4kY2RLX+EamyZ37ArEhs6OX ZJdkrC6Dn3f8+EnXHrx//8m9CWGLGxsb4cLI9t5YcmVV9abNZXiSZmDji+eh YVEJGWvwj+O0mV/9omPi+HZergszmoiq/Cu8wzETJpt9ggPASeKngy4M2DGs 8HmJcNWsVr5HOzpCIhZsqGqFZ5iaXQyaaTN78gH4FiYkw2/cVrtd1DjxN4Hs +P/vTx5f+9/oRYBy\ \>", "ImageResolution" -> \ 72.],ExpressionUUID->"0e0d5bdd-4add-405f-8c6e-aff6d02215f8"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"n", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"vector", " ", "of", " ", "individuals"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7459400118286686`*^9, 3.745940020311623*^9}, { 3.74640006890417*^9, 3.746400073714134*^9}, {3.748602782109249*^9, 3.7486027867337036`*^9}, 3.7486374707554264`*^9, 3.748638145660699*^9, 3.748638425733778*^9, 3.748638680885971*^9, 3.748638903002696*^9, { 3.8302456821489596`*^9, 3.83024568256752*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"24ddf478-05e8-4477-9bfc-860d4d816b05"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"deg", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}], RowBox[{"(*", " ", RowBox[{"degree", " ", "of", " ", "each", " ", "individual"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.745940033735406*^9, 3.7459400475325823`*^9}, { 3.7480370147421207`*^9, 3.748037018291253*^9}, 3.7486027145585566`*^9}, CellLabel->"In[40]:=",ExpressionUUID->"02c2903e-e17f-4b8c-aa6e-26d18198a830"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"224", ",", "135"}], "}"}], ",", RowBox[{"{", RowBox[{"482", ",", "80"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "120"}], "}"}], ",", RowBox[{"{", RowBox[{"977", ",", "138"}], "}"}], ",", RowBox[{"{", RowBox[{"1120", ",", "51"}], "}"}], ",", RowBox[{"{", RowBox[{"1247", ",", "226"}], "}"}], ",", RowBox[{"{", RowBox[{"1523", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"1656", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"1884", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{"1896", ",", "165"}], "}"}], ",", RowBox[{"{", RowBox[{"2051", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"2143", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"2350", ",", "61"}], "}"}], ",", RowBox[{"{", RowBox[{"3161", ",", "96"}], "}"}], ",", RowBox[{"{", RowBox[{"3340", ",", "128"}], "}"}], ",", RowBox[{"{", RowBox[{"3560", ",", "95"}], "}"}], ",", RowBox[{"{", RowBox[{"3591", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"3685", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"3973", ",", "150"}], "}"}], ",", RowBox[{"{", RowBox[{"4680", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"4684", ",", "146"}], "}"}], ",", RowBox[{"{", RowBox[{"5539", ",", "126"}], "}"}], ",", RowBox[{"{", RowBox[{"5699", ",", "78"}], "}"}], ",", RowBox[{"{", RowBox[{"5908", ",", "93"}], "}"}], ",", RowBox[{"{", RowBox[{"5971", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"5972", ",", "112"}], "}"}], ",", RowBox[{"{", RowBox[{"6333", ",", "116"}], "}"}], ",", RowBox[{"{", RowBox[{"6464", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"7332", ",", "183"}], "}"}], ",", RowBox[{"{", RowBox[{"7460", ",", "67"}], "}"}], ",", RowBox[{"{", RowBox[{"7695", ",", "251"}], "}"}], ",", RowBox[{"{", RowBox[{"8443", ",", "47"}], "}"}], ",", RowBox[{"{", RowBox[{"8607", ",", "179"}], "}"}], ",", RowBox[{"{", RowBox[{"8896", ",", "65"}], "}"}], ",", RowBox[{"{", RowBox[{"8925", ",", "71"}], "}"}], ",", RowBox[{"{", RowBox[{"9166", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"9438", ",", "60"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7486028047601657`*^9, 3.7486374936064744`*^9, 3.748637990362711*^9, 3.748638157055865*^9, 3.748638249959818*^9, 3.748638466220872*^9, 3.7486387225061097`*^9, 3.748638956858763*^9, 3.7487775937381353`*^9, 3.749417432468891*^9, 3.749567332421007*^9, 3.750768587692275*^9, 3.7512211815988245`*^9, 3.751288744561098*^9, 3.7512928217077174`*^9, 3.7512993154056005`*^9, 3.7512999859366074`*^9, 3.754779024836681*^9, 3.7576351646436667`*^9, 3.761386982017502*^9, 3.830249427573467*^9, 3.830340282781911*^9, 3.830340739334592*^9, 3.83041558874632*^9}, CellLabel->"Out[40]=",ExpressionUUID->"30e2bfeb-9021-4b6e-879e-90018a984daa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"g", "=", RowBox[{"Graph", "[", RowBox[{"graph", ",", RowBox[{"EdgeStyle", "\[Rule]", RowBox[{"Thread", "[", RowBox[{"edges", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"GrayLevel", "[", "#", "]"}], "&"}], "/@", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{"weights", "/", RowBox[{"Max", "[", "weights", "]"}]}], ")"}]}], ")"}]}], ")"}]}], "]"}]}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}], ",", RowBox[{"VertexStyle", "\[Rule]", RowBox[{"Thread", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"GrayLevel", "[", "#", "]"}], "&"}], "/@", RowBox[{"(", RowBox[{"1", "-", RowBox[{"(", RowBox[{ RowBox[{"deg", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", RowBox[{"Max", "[", RowBox[{"deg", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ")"}]}], ")"}]}], ")"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7458800608040757`*^9, 3.745880081048403*^9}, { 3.745880124485776*^9, 3.7458801254224434`*^9}, {3.7458801625583773`*^9, 3.745880163120462*^9}, {3.745880248911641*^9, 3.7458802524727316`*^9}, { 3.745939778571862*^9, 3.7459397790863175`*^9}, {3.7459400677227736`*^9, 3.745940115424971*^9}, {3.7459401764827504`*^9, 3.745940184428888*^9}, { 3.7459403494613466`*^9, 3.7459403497304835`*^9}, 3.7486374707733903`*^9, 3.74863814566556*^9, 3.748638425739703*^9, 3.748638680891634*^9, 3.7486389030078754`*^9, {3.830245689313541*^9, 3.8302456897506313`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"5c524a95-6e10-48f0-a86a-974d6da22b7a"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1884, 3973, 7332, 8607, 3560, 5908, 5972, 4684, 8925, 1896, 3161, 6333, 5539, 1247, 3685, 4680, 3340, 2143, 8443, 482, 977, 7695, 6464, 5699, 9166, 9438, 224, 640, 3591, 1523, 7460, 1120, 1656, 8896, 2350, 5971, 2051}, { Null, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {8, 3}, {8, 9}, { 10, 8}, {11, 8}, {8, 12}, {8, 13}, {14, 8}, {15, 16}, {17, 16}, {18, 15}, {18, 19}, {14, 18}, {20, 19}, {20, 13}, {20, 21}, {2, 22}, {2, 3}, {2, 23}, {2, 4}, {15, 2}, {2, 13}, {2, 24}, {2, 25}, {3, 22}, {22, 26}, {15, 22}, {27, 22}, {28, 22}, {21, 22}, {10, 3}, {11, 3}, {29, 3}, {27, 3}, {28, 3}, {30, 3}, {14, 3}, {21, 3}, {3, 31}, {29, 23}, { 30, 23}, {4, 9}, {15, 9}, {11, 9}, {28, 9}, {14, 9}, {4, 26}, {10, 26}, {32, 26}, {11, 26}, {33, 26}, {10, 4}, {32, 4}, {11, 4}, {12, 4}, {6, 4}, {13, 4}, {33, 4}, {17, 4}, {14, 4}, {7, 4}, {19, 34}, {6, 34}, {27, 34}, {13, 34}, {17, 34}, {32, 10}, {10, 11}, {10, 29}, {10, 5}, {10, 24}, {14, 10}, {10, 35}, {21, 10}, {10, 31}, {21, 15}, {11, 29}, {11, 6}, {28, 11}, {13, 19}, {5, 12}, {6, 12}, {28, 29}, {5, 6}, { 27, 5}, {35, 5}, {33, 6}, {6, 36}, {6, 7}, {28, 21}, {28, 25}, {14, 30}, {33, 17}, {33, 35}, {33, 7}, {37, 24}, {17, 24}, {14, 24}, {24, 31}, {17, 36}, {17, 6}, {14, 17}, {35, 17}, {21, 14}, {14, 7}, {14, 31}, {35, 31}, {21, 7}}}, { EdgeStyle -> {UndirectedEdge[1247, 7460] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[2051, 5699] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[2350, 3560] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5699, 7460] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3340, 5908] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[5908, 6333] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[640, 7695] -> GrayLevel[ Rational[23, 45]], UndirectedEdge[1656, 3340] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[2143, 8443] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[6333, 8607] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1247, 2143] -> GrayLevel[ Rational[4, 5]], UndirectedEdge[4684, 5539] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[977, 7695] -> GrayLevel[ Rational[47, 90]], UndirectedEdge[3340, 5699] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1247, 5699] -> GrayLevel[ Rational[32, 45]], UndirectedEdge[7695, 9438] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[224, 7695] -> GrayLevel[0], UndirectedEdge[3685, 3973] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[3161, 7332] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[7332, 7460] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3973, 5699] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1656, 2350] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3973, 8607] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3340, 8896] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3973, 9166] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[640, 7332] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[5539, 8443] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1884, 3560] -> GrayLevel[ Rational[26, 45]], UndirectedEdge[3685, 4680] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[8443, 8896] -> GrayLevel[ Rational[73, 90]], UndirectedEdge[5908, 8896] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1247, 1896] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1523, 6464] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[482, 8443] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[977, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[8607, 8925] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3591, 6464] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[977, 1247] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[4684, 6333] -> GrayLevel[ Rational[1, 30]], UndirectedEdge[977, 1896] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1896, 5699] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[3973, 7695] -> GrayLevel[ Rational[23, 45]], UndirectedEdge[3161, 8607] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[977, 5972] -> GrayLevel[ Rational[8, 15]], UndirectedEdge[1884, 3973] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[3973, 7332] -> GrayLevel[ Rational[19, 30]], UndirectedEdge[977, 7332] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3685, 7695] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[7332, 7695] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3685, 8925] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1896, 3161] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[2350, 3340] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[5539, 8607] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[2143, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1896, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1896, 3591] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1247, 5972] -> GrayLevel[ Rational[73, 90]], UndirectedEdge[1884, 8607] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[640, 3591] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1247, 3340] -> GrayLevel[ Rational[11, 30]], UndirectedEdge[1247, 4684] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1896, 8607] -> GrayLevel[ Rational[7, 15]], UndirectedEdge[1120, 9438] -> GrayLevel[ Rational[34, 45]], UndirectedEdge[1120, 1896] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[1896, 7332] -> GrayLevel[ Rational[23, 30]], UndirectedEdge[1120, 8607] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[8607, 9438] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1247, 7332] -> GrayLevel[ Rational[71, 90]], UndirectedEdge[1884, 7332] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1896, 4684] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3161, 8925] -> GrayLevel[ Rational[67, 90]], UndirectedEdge[5908, 5971] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[482, 977] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[2350, 7460] -> GrayLevel[ Rational[61, 90]], UndirectedEdge[1247, 1523] -> GrayLevel[ Rational[34, 45]], UndirectedEdge[640, 977] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[4684, 7332] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1247, 8607] -> GrayLevel[ Rational[5, 6]], UndirectedEdge[1656, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[224, 8896] -> GrayLevel[ Rational[38, 45]], UndirectedEdge[3560, 5908] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1523, 7332] -> GrayLevel[ Rational[7, 10]], UndirectedEdge[640, 9166] -> GrayLevel[ Rational[19, 30]], UndirectedEdge[3161, 3591] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[640, 3161] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[4684, 8925] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3340, 5971] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1896, 2350] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5972, 8607] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[482, 5539] -> GrayLevel[ Rational[13, 45]], UndirectedEdge[1656, 5908] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[3161, 4684] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3560, 6333] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1247, 8925] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[1896, 3560] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5908, 5972] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1656, 5972] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3591, 7332] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3161, 5908] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[640, 8925] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3340, 4680] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[5539, 8896] -> GrayLevel[ Rational[73, 90]], UndirectedEdge[3340, 8607] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[224, 3560] -> GrayLevel[ Rational[11, 15]], UndirectedEdge[1884, 5908] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3973, 6464] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[224, 7332] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1896, 7460] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[3161, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5908, 8607] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3973, 5539] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1656, 8607] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1884, 5972] -> GrayLevel[ Rational[29, 45]]}, EdgeWeight -> {16, 12, 9, 38, 9, 32, 10, 8, 9, 7, 87, 16, 9, 7, 9, 7, 12, 18, 9, 64, 7, 44, 33, 9, 8, 13, 10, 8, 9, 8, 9, 13, 90, 44, 43, 21, 12, 7, 7, 9, 27, 19, 11, 7, 8, 11, 9, 9, 23, 11, 11, 8, 7, 22, 7, 7, 48, 16, 10, 9, 11, 10, 12, 7, 15, 7, 17, 9, 14, 17, 8, 13, 7, 7, 7, 10, 9, 7, 8, 12, 7, 13, 8, 9, 9, 9, 11, 7, 10, 24, 7, 10, 10, 7, 7, 33, 22, 8, 8, 7, 16, 9, 26, 9, 12, 8, 57, 10, 13, 17, 10, 29, 42}, GraphLayout -> {"Dimension" -> 2}, VertexLabels -> {"Name"}, VertexStyle -> {2143 -> GrayLevel[ Rational[214, 251]], 2350 -> GrayLevel[ Rational[190, 251]], 5699 -> GrayLevel[ Rational[173, 251]], 482 -> GrayLevel[ Rational[171, 251]], 9166 -> GrayLevel[ Rational[209, 251]], 1896 -> GrayLevel[ Rational[86, 251]], 5972 -> GrayLevel[ Rational[139, 251]], 8925 -> GrayLevel[ Rational[180, 251]], 5971 -> GrayLevel[ Rational[229, 251]], 3161 -> GrayLevel[ Rational[155, 251]], 8896 -> GrayLevel[ Rational[186, 251]], 2051 -> GrayLevel[ Rational[235, 251]], 5539 -> GrayLevel[ Rational[125, 251]], 1884 -> GrayLevel[ Rational[135, 251]], 8607 -> GrayLevel[ Rational[72, 251]], 5908 -> GrayLevel[ Rational[158, 251]], 1120 -> GrayLevel[ Rational[200, 251]], 8443 -> GrayLevel[ Rational[204, 251]], 3560 -> GrayLevel[ Rational[156, 251]], 3591 -> GrayLevel[ Rational[209, 251]], 7332 -> GrayLevel[ Rational[68, 251]], 224 -> GrayLevel[ Rational[116, 251]], 1656 -> GrayLevel[ Rational[199, 251]], 6464 -> GrayLevel[ Rational[223, 251]], 1523 -> GrayLevel[ Rational[191, 251]], 977 -> GrayLevel[ Rational[113, 251]], 4684 -> GrayLevel[ Rational[105, 251]], 640 -> GrayLevel[ Rational[131, 251]], 6333 -> GrayLevel[ Rational[135, 251]], 1247 -> GrayLevel[ Rational[25, 251]], 3340 -> GrayLevel[ Rational[123, 251]], 3685 -> GrayLevel[ Rational[195, 251]], 3973 -> GrayLevel[ Rational[101, 251]], 7460 -> GrayLevel[ Rational[184, 251]], 9438 -> GrayLevel[ Rational[191, 251]], 4680 -> GrayLevel[ Rational[235, 251]], 7695 -> GrayLevel[0]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.254270855923262, 2.8698464127954573`}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.0878088126360055`, 2.521433088371224}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.6311424972576836`, 1.5590962874045355`}}]}, {GrayLevel[ NCache[ Rational[26, 45], 0.5777777777777777]], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.583980036533834, 0.9282266151910459}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 3.1878881389781992`, 0.9722239523255354}}]}, {GrayLevel[ NCache[ Rational[29, 45], 0.6444444444444445]], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 3.0950771698088544`, 1.5359535085931357`}}]}, {GrayLevel[ NCache[ Rational[19, 30], 0.6333333333333333]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 2.0878088126360055`, 2.521433088371224}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 2.6311424972576836`, 1.5590962874045355`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 3.7199641632770652`, 2.447600728379067}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 3.4427320409738456`, 3.082866302351973}}]}, {GrayLevel[ NCache[ Rational[23, 45], 0.5111111111111111]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 1.0991774454099354`, 3.724970924197967}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 1.9609481837191605`, 4.23067539877886}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.868381216541333, 1.944461534939188}}]}, {GrayLevel[ NCache[ Rational[23, 30], 0.7666666666666667]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{2.0878088126360055`, 2.521433088371224}, {2.20178014533537, 2.1059129902680924`}}]}, {GrayLevel[ NCache[ Rational[71, 90], 0.7888888888888889]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.4698388307120833`, 2.295865678675766}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 3.0264201946628146`, 2.80485831460313}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 3.2718706661648147`, 1.9615687638283492`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[7, 10], 0.7]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.4960812966322448`, 3.3648299807271984`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.305774790379798, 1.8813573754580086`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.1878881389781992`, 0.9722239523255354}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.0950771698088544`, 1.5359535085931357`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.8257372357158785`, 2.6113602770062228`}}]}, {GrayLevel[ NCache[ Rational[7, 15], 0.4666666666666667]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.20178014533537, 2.1059129902680924`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.2788700786662375`, 0.6451863306944472}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.7199641632770652`, 2.447600728379067}}]}, {GrayLevel[ NCache[ Rational[5, 6], 0.8333333333333334]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.4698388307120833`, 2.295865678675766}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.0226924541869202`, 1.159944789617093}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 1.426894169367006, 0.8981408741125645}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.5580136313919133`, 0.5769391307265495}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.583980036533834, 0.9282266151910459}, { 3.1878881389781992`, 0.9722239523255354}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.583980036533834, 0.9282266151910459}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.583980036533834, 0.9282266151910459}, { 3.2788700786662375`, 0.6451863306944472}}]}, {GrayLevel[ NCache[ Rational[11, 15], 0.7333333333333333]], LineBox[{{2.583980036533834, 0.9282266151910459}, { 3.2718706661648147`, 1.9615687638283492`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.583980036533834, 0.9282266151910459}, { 1.9009919110450095`, 0.7781096625592305}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.0950771698088544`, 1.5359535085931357`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 2.20178014533537, 2.1059129902680924`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.2788700786662375`, 0.6451863306944472}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.0226924541869202`, 1.159944789617093}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 2.5580136313919133`, 0.5769391307265495}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.6883059376362457`, 0.}}]}, {GrayLevel[ NCache[ Rational[73, 90], 0.8111111111111111]], LineBox[{{3.0950771698088544`, 1.5359535085931357`}, { 2.4698388307120833`, 2.295865678675766}}]}, {GrayLevel[ NCache[ Rational[8, 15], 0.5333333333333333]], LineBox[{{3.0950771698088544`, 1.5359535085931357`}, { 3.0264201946628146`, 2.80485831460313}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.0950771698088544`, 1.5359535085931357`}, { 2.5580136313919133`, 0.5769391307265495}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.868381216541333, 1.944461534939188}, { 2.8257372357158785`, 2.6113602770062228`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.868381216541333, 1.944461534939188}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.868381216541333, 1.944461534939188}, {2.20178014533537, 2.1059129902680924`}}]}, {GrayLevel[ NCache[ Rational[1, 30], 0.03333333333333333]], LineBox[{{2.868381216541333, 1.944461534939188}, { 3.2788700786662375`, 0.6451863306944472}}]}, {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{2.868381216541333, 1.944461534939188}, { 3.7199641632770652`, 2.447600728379067}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.868381216541333, 1.944461534939188}, { 2.4698388307120833`, 2.295865678675766}}]}, {GrayLevel[ NCache[ Rational[67, 90], 0.7444444444444445]], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 2.20178014533537, 2.1059129902680924`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 2.4698388307120833`, 2.295865678675766}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 3.4427320409738456`, 3.082866302351973}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 2.20178014533537, 2.1059129902680924`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 2.4698388307120833`, 2.295865678675766}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 3.0264201946628146`, 2.80485831460313}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.305774790379798, 1.8813573754580086`}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.426894169367006, 0.8981408741125645}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.9009919110450095`, 0.7781096625592305}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.20178014533537, 2.1059129902680924`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.20178014533537, 2.1059129902680924`}, {2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{2.20178014533537, 2.1059129902680924`}, {1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{3.7199641632770652`, 2.447600728379067}, {4.73425173666226, 2.681130220163744}}]}, {GrayLevel[ NCache[ Rational[13, 45], 0.28888888888888886`]], LineBox[{{3.7199641632770652`, 2.447600728379067}, { 4.397641903925736, 3.2539845580257283`}}]}, {GrayLevel[ NCache[ Rational[73, 90], 0.8111111111111111]], LineBox[{{3.7199641632770652`, 2.447600728379067}, { 4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[11, 30], 0.36666666666666664`]], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 3.0226924541869202`, 1.159944789617093}}]}, {GrayLevel[ NCache[ Rational[4, 5], 0.8]], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 3.903077256299162, 3.255798740011394}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 3.0264201946628146`, 2.80485831460313}}]}, {GrayLevel[ NCache[ Rational[32, 45], 0.7111111111111111]], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {GrayLevel[ NCache[ Rational[34, 45], 0.7555555555555555]], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 1.4960812966322448`, 3.3648299807271984`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 1.305774790379798, 1.8813573754580086`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 4.287142555088807, 2.010102527203237}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 3.903077256299162, 3.255798740011394}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 3.0264201946628146`, 2.80485831460313}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{4.287142555088807, 2.010102527203237}, { 3.0226924541869202`, 1.159944789617093}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 2.5580136313919133`, 0.5769391307265495}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 1.9009919110450095`, 0.7781096625592305}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 3.6883059376362457`, 0.}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{3.903077256299162, 3.255798740011394}, {4.73425173666226, 2.681130220163744}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{4.73425173666226, 2.681130220163744}, {4.397641903925736, 3.2539845580257283`}}]}, {GrayLevel[ NCache[ Rational[73, 90], 0.8111111111111111]], LineBox[{{4.73425173666226, 2.681130220163744}, {4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{4.397641903925736, 3.2539845580257283`}, { 3.0264201946628146`, 2.80485831460313}}]}, {GrayLevel[ NCache[ Rational[47, 90], 0.5222222222222223]], LineBox[{{3.0264201946628146`, 2.80485831460313}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.0264201946628146`, 2.80485831460313}, {2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.5940113125237874`, 2.7693008373875165`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {GrayLevel[0], LineBox[{{2.5940113125237874`, 2.7693008373875165`}, { 3.2718706661648147`, 1.9615687638283492`}}]}, {GrayLevel[ NCache[ Rational[23, 45], 0.5111111111111111]], LineBox[{{2.5940113125237874`, 2.7693008373875165`}, { 2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{1.0991774454099354`, 3.724970924197967}, { 1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{1.0991774454099354`, 3.724970924197967}, { 1.4960812966322448`, 3.3648299807271984`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.4691302208150039`, 1.6601275876173132`}, { 1.305774790379798, 1.8813573754580086`}}]}, {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{1.4691302208150039`, 1.6601275876173132`}, {0., 1.1873821379604075`}}]}, {GrayLevel[ NCache[ Rational[19, 30], 0.6333333333333333]], LineBox[{{1.9609481837191605`, 4.23067539877886}, {2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[34, 45], 0.7555555555555555]], LineBox[{{1.9626592733755062`, 1.3741698167689078`}, { 1.426894169367006, 0.8981408741125645}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.9626592733755062`, 1.3741698167689078`}, { 2.5580136313919133`, 0.5769391307265495}}]}, {GrayLevel[ NCache[ Rational[38, 45], 0.8444444444444444]], LineBox[{{3.2718706661648147`, 1.9615687638283492`}, { 4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.188854013791599, 3.306741207795006}, {1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[61, 90], 0.6777777777777778]], LineBox[{{1.305774790379798, 1.8813573754580086`}, { 1.9009919110450095`, 0.7781096625592305}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.5580136313919133`, 0.5769391307265495}, { 1.9009919110450095`, 0.7781096625592305}}]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {GrayLevel[ NCache[ Rational[135, 251], 0.5378486055776892]], DiskBox[{2.3984649978198687, 1.6667217353021773}, 0.0415063096365134]}, InsetBox["1884", Offset[{2, 2}, {2.439971307456382, 1.7082280449386906}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[101, 251], 0.40239043824701193`]], DiskBox[{2.254270855923262, 2.8698464127954573}, 0.0415063096365134]}, InsetBox["3973", Offset[{2, 2}, {2.2957771655597754, 2.9113527224319706}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[68, 251], 0.27091633466135456`]], DiskBox[{2.0878088126360055, 2.521433088371224}, 0.0415063096365134]}, InsetBox["7332", Offset[{2, 2}, {2.129315122272519, 2.5629393980077375}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[72, 251], 0.2868525896414343]], DiskBox[{2.6311424972576836, 1.5590962874045355}, 0.0415063096365134]}, InsetBox["8607", Offset[{2, 2}, {2.672648806894197, 1.600602597041049}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[156, 251], 0.6215139442231076]], DiskBox[{2.583980036533834, 0.9282266151910459}, 0.0415063096365134]}, InsetBox["3560", Offset[{2, 2}, {2.6254863461703475, 0.9697329248275592}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[158, 251], 0.6294820717131474]], DiskBox[{3.1878881389781992, 0.9722239523255354}, 0.0415063096365134]}, InsetBox["5908", Offset[{2, 2}, {3.2293944486147126, 1.0137302619620487}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[139, 251], 0.5537848605577689]], DiskBox[{3.0950771698088544, 1.5359535085931357}, 0.0415063096365134]}, InsetBox["5972", Offset[{2, 2}, {3.1365834794453678, 1.577459818229649}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[105, 251], 0.41832669322709165`]], DiskBox[{2.868381216541333, 1.944461534939188}, 0.0415063096365134]}, InsetBox["4684", Offset[{2, 2}, {2.9098875261778465, 1.9859678445757014}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[180, 251], 0.7171314741035857]], DiskBox[{2.8257372357158785, 2.6113602770062228}, 0.0415063096365134]}, InsetBox["8925", Offset[{2, 2}, {2.867243545352392, 2.652866586642736}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[86, 251], 0.3426294820717131]], DiskBox[{1.9572951633274314, 1.8099051183928858}, 0.0415063096365134]}, InsetBox["1896", Offset[{2, 2}, {1.9988014729639447, 1.8514114280293992}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[155, 251], 0.6175298804780877]], DiskBox[{2.20178014533537, 2.1059129902680924}, 0.0415063096365134]}, InsetBox["3161", Offset[{2, 2}, {2.243286454971883, 2.147419299904606}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[135, 251], 0.5378486055776892]], DiskBox[{3.2788700786662375, 0.6451863306944472}, 0.0415063096365134]}, InsetBox["6333", Offset[{2, 2}, {3.320376388302751, 0.6866926403309606}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[125, 251], 0.49800796812749004`]], DiskBox[{3.7199641632770652, 2.447600728379067}, 0.0415063096365134]}, InsetBox["5539", Offset[{2, 2}, {3.7614704729135786, 2.48910703801558}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[25, 251], 0.099601593625498]], DiskBox[{2.4698388307120833, 2.295865678675766}, 0.0415063096365134]}, InsetBox["1247", Offset[{2, 2}, {2.5113451403485967, 2.337371988312279}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[195, 251], 0.7768924302788844]], DiskBox[{3.4427320409738456, 3.082866302351973}, 0.0415063096365134]}, InsetBox["3685", Offset[{2, 2}, {3.484238350610359, 3.1243726119884863}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[235, 251], 0.9362549800796812]], DiskBox[{4.287142555088807, 2.010102527203237}, 0.0415063096365134]}, InsetBox["4680", Offset[{2, 2}, {4.328648864725321, 2.0516088368397503}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[123, 251], 0.4900398406374502]], DiskBox[{3.0226924541869202, 1.159944789617093}, 0.0415063096365134]}, InsetBox["3340", Offset[{2, 2}, {3.0641987638234336, 1.2014510992536063}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[214, 251], 0.852589641434263]], DiskBox[{3.903077256299162, 3.255798740011394}, 0.0415063096365134]}, InsetBox["2143", Offset[{2, 2}, {3.9445835659356754, 3.2973050496479073}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[204, 251], 0.8127490039840638]], DiskBox[{4.73425173666226, 2.681130220163744}, 0.0415063096365134]}, InsetBox["8443", Offset[{2, 2}, {4.775758046298773, 2.7226365298002575}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[171, 251], 0.6812749003984063]], DiskBox[{4.397641903925736, 3.2539845580257283}, 0.0415063096365134]}, InsetBox["482", Offset[{2, 2}, {4.43914821356225, 3.2954908676622416}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[113, 251], 0.450199203187251]], DiskBox[{3.0264201946628146, 2.80485831460313}, 0.0415063096365134]}, InsetBox["977", Offset[{2, 2}, {3.067926504299328, 2.8463646242396434}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0], DiskBox[{2.5940113125237874, 2.7693008373875165}, 0.0415063096365134]}, InsetBox["7695", Offset[{2, 2}, {2.6355176221603007, 2.81080714702403}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[223, 251], 0.8884462151394422]], DiskBox[{1.0991774454099354, 3.724970924197967}, 0.0415063096365134]}, InsetBox["6464", Offset[{2, 2}, {1.1406837550464488, 3.7664772338344803}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[173, 251], 0.6892430278884463]], DiskBox[{1.4691302208150039, 1.6601275876173132}, 0.0415063096365134]}, InsetBox["5699", Offset[{2, 2}, {1.5106365304515172, 1.7016338972538265}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[209, 251], 0.8326693227091634]], DiskBox[{1.9609481837191605, 4.23067539877886}, 0.0415063096365134]}, InsetBox["9166", Offset[{2, 2}, {2.002454493355674, 4.272181708415374}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[191, 251], 0.7609561752988048]], DiskBox[{1.9626592733755062, 1.3741698167689078}, 0.0415063096365134]}, InsetBox["9438", Offset[{2, 2}, {2.0041655830120195, 1.4156761264054212}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[116, 251], 0.46215139442231074`]], DiskBox[{3.2718706661648147, 1.9615687638283492}, 0.0415063096365134]}, InsetBox["224", Offset[{2, 2}, {3.313376975801328, 2.0030750734648626}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[131, 251], 0.5219123505976095]], DiskBox[{2.188854013791599, 3.306741207795006}, 0.0415063096365134]}, InsetBox["640", Offset[{2, 2}, {2.2303603234281124, 3.348247517431519}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[209, 251], 0.8326693227091634]], DiskBox[{1.374401110837499, 2.8591905382743446}, 0.0415063096365134]}, InsetBox["3591", Offset[{2, 2}, {1.4159074204740123, 2.900696847910858}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[191, 251], 0.7609561752988048]], DiskBox[{1.4960812966322448, 3.3648299807271984}, 0.0415063096365134]}, InsetBox["1523", Offset[{2, 2}, {1.5375876062687581, 3.4063362903637118}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[184, 251], 0.7330677290836654]], DiskBox[{1.305774790379798, 1.8813573754580086}, 0.0415063096365134]}, InsetBox["7460", Offset[{2, 2}, {1.3472811000163114, 1.922863685094522}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[200, 251], 0.796812749003984]], DiskBox[{1.426894169367006, 0.8981408741125645}, 0.0415063096365134]}, InsetBox["1120", Offset[{2, 2}, {1.4684004790035194, 0.9396471837490779}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[199, 251], 0.7928286852589641]], DiskBox[{2.5580136313919133, 0.5769391307265495}, 0.0415063096365134]}, InsetBox["1656", Offset[{2, 2}, {2.5995199410284267, 0.6184454403630628}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[186, 251], 0.7410358565737052]], DiskBox[{4.104459217702431, 1.6157516950091917}, 0.0415063096365134]}, InsetBox["8896", Offset[{2, 2}, {4.145965527338944, 1.657258004645705}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[190, 251], 0.7569721115537849]], DiskBox[{1.9009919110450095, 0.7781096625592305}, 0.0415063096365134]}, InsetBox["2350", Offset[{2, 2}, {1.942498220681523, 0.8196159721957439}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[229, 251], 0.9123505976095617]], DiskBox[{3.6883059376362457, 0.}, 0.0415063096365134]}, InsetBox["5971", Offset[{2, 2}, {3.729812247272759, 0.0415063096365134}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[235, 251], 0.9362549800796812]], DiskBox[{0., 1.1873821379604075}, 0.0415063096365134]}, InsetBox["2051", Offset[{2, 2}, {0.0415063096365134, 1.2288884475969208}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{ 3.7458801295425224`*^9, 3.7458801637683773`*^9, 3.745880253095614*^9, 3.745939779873432*^9, 3.7459400826563087`*^9, 3.745940116187047*^9, 3.745940184913289*^9, 3.7459403126450276`*^9, 3.745940350439331*^9, 3.7462042240703793`*^9, 3.746204600680188*^9, 3.746397307808074*^9, 3.7464445521238885`*^9, 3.7464446074485054`*^9, {3.748036652307449*^9, 3.7480366824354267`*^9}, 3.7486026454453545`*^9, 3.748602726040205*^9, 3.7486028049007573`*^9, 3.7486374988141403`*^9, 3.748637990458195*^9, 3.7486381570834312`*^9, 3.748638250065529*^9, 3.7486384663267775`*^9, 3.748638722616296*^9, 3.7486389569392705`*^9, 3.7487775938696165`*^9, 3.7494174325568666`*^9, 3.749567332534671*^9, 3.750768587756008*^9, 3.7512211816990623`*^9, 3.751288744688928*^9, 3.7512928217992334`*^9, 3.751299315543585*^9, 3.751299986032428*^9, 3.7547790250354786`*^9, 3.757635164753846*^9, 3.7613869822007384`*^9, 3.8302494307351418`*^9, 3.8303407397581186`*^9, 3.8304155909580145`*^9}, CellLabel->"Out[41]=",ExpressionUUID->"c30808f0-bfe4-486a-9ab1-bb87cd23c75e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Observed (Run Second)", "Section", CellChangeTimes->{{3.7464029886576176`*^9, 3.7464029910253773`*^9}, { 3.8302455454160323`*^9, 3.8302455475184364`*^9}, {3.830246104603462*^9, 3.830246106591866*^9}},ExpressionUUID->"671ac954-1f48-4492-bd0a-\ d27668089668"], Cell[CellGroupData[{ Cell["Vertex", "Subsection", CellChangeTimes->{{3.7507015756514826`*^9, 3.750701579496445*^9}},ExpressionUUID->"a500f29c-bb95-4b5e-86a1-\ bbeb76709991"], Cell[BoxData[ RowBox[{ RowBox[{"rankdata", "=", RowBox[{"Import", "[", RowBox[{"group", "<>", "\"\<_coded_ranks.csv\>\""}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7464025221575947`*^9, 3.746402589218871*^9}, { 3.7486307209793096`*^9, 3.7486307224880104`*^9}, 3.7575923085009546`*^9, 3.7575958365070887`*^9, 3.7576331020870495`*^9, 3.7576343401893206`*^9, 3.7576348265374413`*^9, 3.7576351589198036`*^9, {3.8302457110489583`*^9, 3.8302457169409847`*^9}, {3.8303402920694065`*^9, 3.8303402924434805`*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"57946373-2359-434b-820d-a2bd36bfd245"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rankdata", "[", RowBox[{"[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7464026047068634`*^9, 3.746402610650135*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"268fea71-3327-42ed-ba32-5ce6432a4333"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"rnkid\"\>", ",", "\<\"sname\"\>", ",", "\<\"rnkdate\"\>", ",", "\<\"grp\"\>", ",", "\<\"rnktype\"\>", ",", "\<\"ordrank\"\>", ",", "\<\"proprank\"\>"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGBQB2I9lRS1TS9fO7poyaw6BqRDFNv/nn/z2vFL4lOezvev HQ85yApPAdLmcaIBIFpqzRbRjI+vHVMC7Xf3AWmXLL7aJ0B6n82E8qdA+leR 2A8QnbF+h+T7T68d3a3l1UD0i21RDiD63QOpi4yfXzv27PX05QTSdSnLzoHo jtnzdBZ8f+347a5X1qYfrx1FjDdYN/987agufePWKiBtov27ZTWQ1tPaoLnv 32vHqIw1Ok+AdI244wPO/68dZ6TNSeYC0g1566aA6BmTZ98D0REKXnLcQFpM yTULRL9o1FwKooNmTVgDohmql5+XBdJds7nS5IB0wd+6RSB6BtPK0yBa6rp4 zOnON44l95LrQHSRDpfSByANAAVbqyc= "], CellLabel->"Out[43]=",ExpressionUUID->"5a5579b7-7b29-490f-b852-c92f9d992084"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"rankdata", "=", RowBox[{"rankdata", "[", RowBox[{"[", RowBox[{"2", ";;", RowBox[{ RowBox[{"Dimensions", "[", "rankdata", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.746402612774135*^9, 3.7464026209652767`*^9}, { 3.7575959733857284`*^9, 3.75759598233642*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"1abc101b-0aac-4e38-82b5-16855bb357c6"], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"rankdata", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", RowBox[{"DateObject", "[", RowBox[{"rankdata", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "rankdata", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], RowBox[{"(*", " ", RowBox[{"format", " ", "correctly", " ", "as", " ", "date"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.8302493314379663`*^9, 3.83024935327365*^9}, { 3.8302494882761173`*^9, 3.8302494928163085`*^9}, {3.8303406395745134`*^9, 3.8303406468481283`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"677a760b-ad47-498e-9efb-ee53645d2935"], Cell[BoxData[ RowBox[{ RowBox[{"fisdate", "=", RowBox[{"Which", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1999", ",", "1", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1994", ",", "4", ",", "27", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2011", ",", "4", ",", "6", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"1995", ",", "7", ",", "13", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2010", ",", "10", ",", "20", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2012", ",", "12", ",", "31", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"group", "\[Equal]", "\"\\""}], ",", RowBox[{"DateObject", "[", RowBox[{"{", RowBox[{"2017", ",", "11", ",", "1", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.830415661326829*^9, 3.830415663157383*^9}},ExpressionUUID->"e962e57c-d967-4646-b8bb-\ 95fea4492734"], Cell[BoxData[ RowBox[{ RowBox[{"postfission", "=", RowBox[{"Select", "[", RowBox[{"rankdata", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], "\[GreaterEqual]", "fisdate"}], "&"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.757634328872197*^9, 3.757634810747712*^9, 3.7576351407087946`*^9, { 3.8303403567489557`*^9, 3.8303403580114946`*^9}, {3.830340684236133*^9, 3.8303406853806124`*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"74ce761a-4886-4212-bf85-ce4d0de9e7c7"], Cell[BoxData[ RowBox[{ RowBox[{"postfission", "=", RowBox[{"GatherBy", "[", RowBox[{ RowBox[{"DeleteDuplicates", "[", RowBox[{ RowBox[{"SortBy", "[", RowBox[{"postfission", ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "&"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.746402738027935*^9, 3.7464027540856466`*^9}, { 3.746402789641855*^9, 3.7464028327833557`*^9}, {3.7464028860869794`*^9, 3.7464029084429574`*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"4450d26d-707f-4877-bebb-0844b2276f72"], Cell[BoxData[{ RowBox[{ RowBox[{"e1", "=", RowBox[{ RowBox[{"postfission", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"e2", "=", RowBox[{ RowBox[{"postfission", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7464029129601316`*^9, 3.7464029581792574`*^9}, { 3.74640302962267*^9, 3.7464030302670145`*^9}, {3.74640322632768*^9, 3.7464032285946016`*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"c7e51735-195d-495b-a200-4fd67ef32457"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"exp1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "e1", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7464030359980793`*^9, 3.7464030519490805`*^9}, { 3.7464032069627705`*^9, 3.7464032336010227`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"de6fadc2-d6cb-49b0-aa90-3bfe2339e6ca"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{5699, 1247, 3340, 2350, 5972, 8607, 977, 1896, 9438, 6333, 224, 3973, 6464, 7332, 3560, 3685, 3161, 8925, 640, 2051, 5971, 2143, 7695, 4684, 1523, 9166, 8896, 1884}, { Null, {{2, 1}, {3, 1}, {2, 3}, {4, 3}, {2, 5}, {3, 6}, {2, 6}, {5, 6}, { 7, 2}, {7, 5}, {8, 6}, {8, 1}, {2, 8}, {8, 4}, {7, 8}, {6, 9}, {8, 9}, {10, 6}, {12, 6}, {12, 1}, {12, 13}, {12, 14}, {8, 14}, {11, 14}, { 2, 14}, {7, 14}, {8, 15}, {15, 10}, {11, 15}, {4, 15}, {16, 12}, {7, 16}, {17, 14}, {17, 9}, {17, 6}, {8, 17}, {6, 18}, {16, 18}, {17, 18}, {2, 18}, {19, 14}, {19, 18}, {19, 17}, {19, 7}, {20, 1}, {3, 21}, {22, 16}, {2, 22}, {12, 23}, {14, 23}, {23, 9}, {16, 23}, {11, 23}, {19, 23}, {7, 23}, {24, 14}, {24, 18}, {8, 24}, {17, 24}, {24, 10}, {2, 24}, {25, 14}, {25, 13}, {2, 25}, {12, 26}, {19, 26}, {11, 27}, {3, 27}, {28, 12}, {28, 14}, {28, 6}, {28, 15}, {28, 5}}}, { EdgeStyle -> {UndirectedEdge[4684, 7332] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[977, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3973, 6464] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3340, 8896] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[8607, 8925] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[640, 977] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5972, 8607] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1523, 7332] -> GrayLevel[ Rational[7, 10]], UndirectedEdge[1896, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[6333, 8607] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[2143, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[8607, 9438] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[4684, 8925] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1247, 5699] -> GrayLevel[ Rational[32, 45]], UndirectedEdge[1247, 3340] -> GrayLevel[ Rational[11, 30]], UndirectedEdge[3161, 7332] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1523, 6464] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3560, 6333] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1884, 5972] -> GrayLevel[ Rational[29, 45]], UndirectedEdge[3340, 5699] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[977, 7332] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[640, 7695] -> GrayLevel[ Rational[23, 45]], UndirectedEdge[640, 7332] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[224, 3560] -> GrayLevel[ Rational[11, 15]], UndirectedEdge[977, 1896] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1896, 3560] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1896, 4684] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1247, 1523] -> GrayLevel[ Rational[34, 45]], UndirectedEdge[224, 7695] -> GrayLevel[0], UndirectedEdge[7695, 9438] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3161, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3340, 5971] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[3973, 9166] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1896, 3161] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1884, 7332] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1896, 8607] -> GrayLevel[ Rational[7, 15]], UndirectedEdge[977, 7695] -> GrayLevel[ Rational[47, 90]], UndirectedEdge[1896, 5699] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[2350, 3560] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1884, 8607] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3161, 8925] -> GrayLevel[ Rational[67, 90]], UndirectedEdge[2350, 3340] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[3685, 8925] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1247, 4684] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1896, 2350] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1884, 3973] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[977, 5972] -> GrayLevel[ Rational[8, 15]], UndirectedEdge[977, 1247] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[640, 3161] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3161, 4684] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[640, 8925] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[224, 8896] -> GrayLevel[ Rational[38, 45]], UndirectedEdge[3161, 8607] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1247, 1896] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3340, 8607] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1247, 7332] -> GrayLevel[ Rational[71, 90]], UndirectedEdge[224, 7332] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1247, 2143] -> GrayLevel[ Rational[4, 5]], UndirectedEdge[640, 9166] -> GrayLevel[ Rational[19, 30]], UndirectedEdge[1247, 8607] -> GrayLevel[ Rational[5, 6]], UndirectedEdge[3685, 3973] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[3973, 7332] -> GrayLevel[ Rational[19, 30]], UndirectedEdge[1247, 5972] -> GrayLevel[ Rational[73, 90]], UndirectedEdge[3973, 8607] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1884, 3560] -> GrayLevel[ Rational[26, 45]], UndirectedEdge[1896, 7332] -> GrayLevel[ Rational[23, 30]], UndirectedEdge[3685, 7695] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[1247, 8925] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3973, 5699] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[4684, 6333] -> GrayLevel[ Rational[1, 30]], UndirectedEdge[7332, 7695] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[2051, 5699] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[3973, 7695] -> GrayLevel[ Rational[23, 45]]}, EdgeWeight -> {26, 9, 57, 10, 17, 7, 15, 7, 13, 42, 48, 10, 9, 7, 8, 8, 7, 9, 8, 8, 9, 33, 21, 7, 19, 11, 7, 9, 24, 7, 13, 7, 12, 7, 10, 7, 9, 9, 23, 11, 9, 11, 9, 7, 16, 12, 7, 18, 44, 8, 9, 13, 90, 44, 43, 10, 8, 9, 7, 87, 9, 27, 11, 22, 9, 33, 14, 8, 16, 12, 9, 38, 32}, GraphLayout -> {"Dimension" -> 2}, VertexLabels -> {"Name"}, VertexStyle -> {8925 -> GrayLevel[ Rational[180, 251]], 9438 -> GrayLevel[ Rational[191, 251]], 8896 -> GrayLevel[ Rational[186, 251]], 5972 -> GrayLevel[ Rational[139, 251]], 6333 -> GrayLevel[ Rational[135, 251]], 977 -> GrayLevel[ Rational[113, 251]], 4684 -> GrayLevel[ Rational[105, 251]], 3340 -> GrayLevel[ Rational[123, 251]], 7332 -> GrayLevel[ Rational[68, 251]], 2143 -> GrayLevel[ Rational[214, 251]], 2051 -> GrayLevel[ Rational[235, 251]], 3560 -> GrayLevel[ Rational[156, 251]], 9166 -> GrayLevel[ Rational[209, 251]], 1247 -> GrayLevel[ Rational[25, 251]], 3685 -> GrayLevel[ Rational[195, 251]], 6464 -> GrayLevel[ Rational[223, 251]], 224 -> GrayLevel[ Rational[116, 251]], 5699 -> GrayLevel[ Rational[173, 251]], 1884 -> GrayLevel[ Rational[135, 251]], 8607 -> GrayLevel[ Rational[72, 251]], 7695 -> GrayLevel[0], 640 -> GrayLevel[ Rational[131, 251]], 5971 -> GrayLevel[ Rational[229, 251]], 2350 -> GrayLevel[ Rational[190, 251]], 3973 -> GrayLevel[ Rational[101, 251]], 1523 -> GrayLevel[ Rational[191, 251]], 3161 -> GrayLevel[ Rational[155, 251]], 1896 -> GrayLevel[ Rational[86, 251]]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {GrayLevel[ NCache[ Rational[32, 45], 0.7111111111111111]], LineBox[{{2.6164219379414764`, 2.5463295116096902`}, { 1.8734771995400483`, 1.903611651024778}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.6164219379414764`, 2.5463295116096902`}, { 3.3690329482451054`, 1.937086100057042}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.6164219379414764`, 2.5463295116096902`}, { 2.415685622919158, 1.1126094410425773`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.6164219379414764`, 2.5463295116096902`}, { 1.395866475072796, 2.12132490723644}}]}, {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{2.6164219379414764`, 2.5463295116096902`}, { 3.210940861573713, 3.810068034261915}}]}, {GrayLevel[ NCache[ Rational[11, 30], 0.36666666666666664`]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 3.3690329482451054`, 1.937086100057042}}]}, {GrayLevel[ NCache[ Rational[73, 90], 0.8111111111111111]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 2.1501235897226065`, 1.7516102044565645`}}]}, {GrayLevel[ NCache[ Rational[5, 6], 0.8333333333333334]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 2.1422425407843093`, 1.0918316021294832`}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 1.2830636267829036`, 1.5327323217914604`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 2.415685622919158, 1.1126094410425773`}}]}, {GrayLevel[ NCache[ Rational[71, 90], 0.7888888888888889]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 1.7407660728414678`, 1.4627004360743439`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 1.1167652938701984`, 0.9439049839133664}}]}, {GrayLevel[ NCache[ Rational[4, 5], 0.8]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 0.5857333203209061, 2.5637837591952874`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 1.937246385641052, 0.645671257545399}}]}, {GrayLevel[ NCache[ Rational[34, 45], 0.7555555555555555]], LineBox[{{1.8734771995400483`, 1.903611651024778}, { 1.4574762623917898`, 2.807238168287663}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{3.3690329482451054`, 1.937086100057042}, { 3.712999713991894, 1.027488432969465}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.3690329482451054`, 1.937086100057042}, { 2.1422425407843093`, 1.0918316021294832`}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{3.3690329482451054`, 1.937086100057042}, { 4.650055187552439, 2.556591894792846}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.3690329482451054`, 1.937086100057042}, { 4.196060136073973, 1.576264565489734}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.712999713991894, 1.027488432969465}, {2.415685622919158, 1.1126094410425773`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.712999713991894, 1.027488432969465}, {3.219837619053982, 0.6220636221004945}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.1501235897226065`, 1.7516102044565645`}, { 2.1422425407843093`, 1.0918316021294832`}}]}, {GrayLevel[ NCache[ Rational[8, 15], 0.5333333333333333]], LineBox[{{2.1501235897226065`, 1.7516102044565645`}, { 1.2830636267829036`, 1.5327323217914604`}}]}, {GrayLevel[ NCache[ Rational[29, 45], 0.6444444444444445]], LineBox[{{2.1501235897226065`, 1.7516102044565645`}, { 2.5553180405738396`, 1.6109041875959655`}}]}, {GrayLevel[ NCache[ Rational[7, 15], 0.4666666666666667]], LineBox[{{2.1422425407843093`, 1.0918316021294832`}, { 2.415685622919158, 1.1126094410425773`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.1422425407843093`, 1.0918316021294832`}, { 1.8718533270149371`, 0.17026330196368078`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.1422425407843093`, 1.0918316021294832`}, { 2.6916966565966964`, 0.}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.1422425407843093`, 1.0918316021294832`}, { 1.395866475072796, 2.12132490723644}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.1422425407843093`, 1.0918316021294832`}, { 1.4588611526645745`, 0.5329698631153317}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.1422425407843093`, 1.0918316021294832`}, { 1.1167652938701984`, 0.9439049839133664}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.1422425407843093`, 1.0918316021294832`}, { 2.5553180405738396`, 1.6109041875959655`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{1.2830636267829036`, 1.5327323217914604`}, { 2.415685622919158, 1.1126094410425773`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{1.2830636267829036`, 1.5327323217914604`}, { 1.7407660728414678`, 1.4627004360743439`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.2830636267829036`, 1.5327323217914604`}, { 0.6423442775397192, 1.7443413790442135`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.2830636267829036`, 1.5327323217914604`}, { 0.6482601628486488, 1.0116527763462368`}}]}, {GrayLevel[ NCache[ Rational[47, 90], 0.5222222222222223]], LineBox[{{1.2830636267829036`, 1.5327323217914604`}, { 1.4724700002564628`, 1.121347061787304}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.415685622919158, 1.1126094410425773`}, { 1.8718533270149371`, 0.17026330196368078`}}]}, {GrayLevel[ NCache[ Rational[23, 30], 0.7666666666666667]], LineBox[{{2.415685622919158, 1.1126094410425773`}, { 1.7407660728414678`, 1.4627004360743439`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.415685622919158, 1.1126094410425773`}, { 3.219837619053982, 0.6220636221004945}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.415685622919158, 1.1126094410425773`}, { 1.4588611526645745`, 0.5329698631153317}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.415685622919158, 1.1126094410425773`}, { 1.937246385641052, 0.645671257545399}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.8718533270149371`, 0.17026330196368078`}, { 1.4588611526645745`, 0.5329698631153317}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.8718533270149371`, 0.17026330196368078`}, { 1.4724700002564628`, 1.121347061787304}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.6916966565966964`, 0.}, {3.219837619053982, 0.6220636221004945}}]}, {GrayLevel[ NCache[ Rational[1, 30], 0.03333333333333333]], LineBox[{{2.6916966565966964`, 0.}, {1.937246385641052, 0.645671257545399}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.966061894709463, 1.2039607796205312`}, { 1.7407660728414678`, 1.4627004360743439`}}]}, {GrayLevel[ NCache[ Rational[11, 15], 0.7333333333333333]], LineBox[{{2.966061894709463, 1.2039607796205312`}, { 3.219837619053982, 0.6220636221004945}}]}, {GrayLevel[0], LineBox[{{2.966061894709463, 1.2039607796205312`}, { 1.4724700002564628`, 1.121347061787304}}]}, {GrayLevel[ NCache[ Rational[38, 45], 0.8444444444444444]], LineBox[{{2.966061894709463, 1.2039607796205312`}, { 4.196060136073973, 1.576264565489734}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.395866475072796, 2.12132490723644}, {0.9560454592996201, 3.4120340637304682`}}]}, {GrayLevel[ NCache[ Rational[19, 30], 0.6333333333333333]], LineBox[{{1.395866475072796, 2.12132490723644}, {1.7407660728414678`, 1.4627004360743439`}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{1.395866475072796, 2.12132490723644}, {0.6423442775397192, 1.7443413790442135`}}]}, {GrayLevel[ NCache[ Rational[23, 45], 0.5111111111111111]], LineBox[{{1.395866475072796, 2.12132490723644}, {1.4724700002564628`, 1.121347061787304}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.395866475072796, 2.12132490723644}, {0., 1.7916263394129903`}}]}, {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{1.395866475072796, 2.12132490723644}, {2.5553180405738396`, 1.6109041875959655`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{0.9560454592996201, 3.4120340637304682`}, { 1.4574762623917898`, 2.807238168287663}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{1.7407660728414678`, 1.4627004360743439`}, { 1.4588611526645745`, 0.5329698631153317}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.7407660728414678`, 1.4627004360743439`}, { 0.6482601628486488, 1.0116527763462368`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{1.7407660728414678`, 1.4627004360743439`}, { 1.4724700002564628`, 1.121347061787304}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{1.7407660728414678`, 1.4627004360743439`}, { 1.937246385641052, 0.645671257545399}}]}, {GrayLevel[ NCache[ Rational[7, 10], 0.7]], LineBox[{{1.7407660728414678`, 1.4627004360743439`}, { 1.4574762623917898`, 2.807238168287663}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{1.7407660728414678`, 1.4627004360743439`}, { 2.5553180405738396`, 1.6109041875959655`}}]}, {GrayLevel[ NCache[ Rational[26, 45], 0.5777777777777777]], LineBox[{{3.219837619053982, 0.6220636221004945}, { 2.5553180405738396`, 1.6109041875959655`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{0.6423442775397192, 1.7443413790442135`}, { 1.1167652938701984`, 0.9439049839133664}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{0.6423442775397192, 1.7443413790442135`}, { 0.5857333203209061, 2.5637837591952874`}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{0.6423442775397192, 1.7443413790442135`}, { 1.4724700002564628`, 1.121347061787304}}]}, {GrayLevel[ NCache[ Rational[67, 90], 0.7444444444444445]], LineBox[{{1.4588611526645745`, 0.5329698631153317}, { 1.1167652938701984`, 0.9439049839133664}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.4588611526645745`, 0.5329698631153317}, { 0.6482601628486488, 1.0116527763462368`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.4588611526645745`, 0.5329698631153317}, { 1.937246385641052, 0.645671257545399}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{1.1167652938701984`, 0.9439049839133664}, { 0.6482601628486488, 1.0116527763462368`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{1.1167652938701984`, 0.9439049839133664}, { 1.937246385641052, 0.645671257545399}}]}, {GrayLevel[ NCache[ Rational[23, 45], 0.5111111111111111]], LineBox[{{0.6482601628486488, 1.0116527763462368`}, { 1.4724700002564628`, 1.121347061787304}}]}, {GrayLevel[ NCache[ Rational[19, 30], 0.6333333333333333]], LineBox[{{0.6482601628486488, 1.0116527763462368`}, {0., 1.7916263394129903`}}]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {GrayLevel[ NCache[ Rational[173, 251], 0.6892430278884463]], DiskBox[{2.6164219379414764, 2.5463295116096902}, 0.041008502178419684]}, InsetBox["5699", Offset[{2, 2}, {2.6574304401198963, 2.58733801378811}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[25, 251], 0.099601593625498]], DiskBox[{1.8734771995400483, 1.903611651024778}, 0.041008502178419684]}, InsetBox["1247", Offset[{2, 2}, {1.914485701718468, 1.9446201532031977}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[123, 251], 0.4900398406374502]], DiskBox[{3.3690329482451054, 1.937086100057042}, 0.041008502178419684]}, InsetBox["3340", Offset[{2, 2}, {3.4100414504235252, 1.9780946022354617}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[190, 251], 0.7569721115537849]], DiskBox[{3.712999713991894, 1.027488432969465}, 0.041008502178419684]}, InsetBox["2350", Offset[{2, 2}, {3.754008216170314, 1.0684969351478846}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[139, 251], 0.5537848605577689]], DiskBox[{2.1501235897226065, 1.7516102044565645}, 0.041008502178419684]}, InsetBox["5972", Offset[{2, 2}, {2.1911320919010264, 1.7926187066349841}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[72, 251], 0.2868525896414343]], DiskBox[{2.1422425407843093, 1.0918316021294832}, 0.041008502178419684]}, InsetBox["8607", Offset[{2, 2}, {2.183251042962729, 1.1328401043079028}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[113, 251], 0.450199203187251]], DiskBox[{1.2830636267829036, 1.5327323217914604}, 0.041008502178419684]}, InsetBox["977", Offset[{2, 2}, {1.3240721289613233, 1.57374082396988}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[86, 251], 0.3426294820717131]], DiskBox[{2.415685622919158, 1.1126094410425773}, 0.041008502178419684]}, InsetBox["1896", Offset[{2, 2}, {2.456694125097578, 1.153617943220997}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[191, 251], 0.7609561752988048]], DiskBox[{1.8718533270149371, 0.17026330196368078}, 0.041008502178419684]}, InsetBox["9438", Offset[{2, 2}, {1.9128618291933568, 0.21127180414210045}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[135, 251], 0.5378486055776892]], DiskBox[{2.6916966565966964, 0.}, 0.041008502178419684]}, InsetBox["6333", Offset[{2, 2}, {2.7327051587751163, 0.041008502178419684}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[116, 251], 0.46215139442231074`]], DiskBox[{2.966061894709463, 1.2039607796205312}, 0.041008502178419684]}, InsetBox["224", Offset[{2, 2}, {3.0070703968878827, 1.2449692817989508}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[101, 251], 0.40239043824701193`]], DiskBox[{1.395866475072796, 2.12132490723644}, 0.041008502178419684]}, InsetBox["3973", Offset[{2, 2}, {1.4368749772512157, 2.16233340941486}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[223, 251], 0.8884462151394422]], DiskBox[{0.9560454592996201, 3.4120340637304682}, 0.041008502178419684]}, InsetBox["6464", Offset[{2, 2}, {0.9970539614780398, 3.453042565908888}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[68, 251], 0.27091633466135456`]], DiskBox[{1.7407660728414678, 1.4627004360743439}, 0.041008502178419684]}, InsetBox["7332", Offset[{2, 2}, {1.7817745750198875, 1.5037089382527635}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[156, 251], 0.6215139442231076]], DiskBox[{3.219837619053982, 0.6220636221004945}, 0.041008502178419684]}, InsetBox["3560", Offset[{2, 2}, {3.260846121232402, 0.6630721242789142}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[195, 251], 0.7768924302788844]], DiskBox[{0.6423442775397192, 1.7443413790442135}, 0.041008502178419684]}, InsetBox["3685", Offset[{2, 2}, {0.6833527797181389, 1.7853498812226332}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[155, 251], 0.6175298804780877]], DiskBox[{1.4588611526645745, 0.5329698631153317}, 0.041008502178419684]}, InsetBox["3161", Offset[{2, 2}, {1.4998696548429942, 0.5739783652937513}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[180, 251], 0.7171314741035857]], DiskBox[{1.1167652938701984, 0.9439049839133664}, 0.041008502178419684]}, InsetBox["8925", Offset[{2, 2}, {1.157773796048618, 0.9849134860917861}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[131, 251], 0.5219123505976095]], DiskBox[{0.6482601628486488, 1.0116527763462368}, 0.041008502178419684]}, InsetBox["640", Offset[{2, 2}, {0.6892686650270685, 1.0526612785246565}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[235, 251], 0.9362549800796812]], DiskBox[{3.210940861573713, 3.810068034261915}, 0.041008502178419684]}, InsetBox["2051", Offset[{2, 2}, {3.251949363752133, 3.8510765364403348}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[229, 251], 0.9123505976095617]], DiskBox[{4.650055187552439, 2.556591894792846}, 0.041008502178419684]}, InsetBox["5971", Offset[{2, 2}, {4.691063689730859, 2.597600396971266}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[214, 251], 0.852589641434263]], DiskBox[{0.5857333203209061, 2.5637837591952874}, 0.041008502178419684]}, InsetBox["2143", Offset[{2, 2}, {0.6267418224993258, 2.6047922613737073}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0], DiskBox[{1.4724700002564628, 1.121347061787304}, 0.041008502178419684]}, InsetBox["7695", Offset[{2, 2}, {1.5134785024348825, 1.1623555639657237}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[105, 251], 0.41832669322709165`]], DiskBox[{1.937246385641052, 0.645671257545399}, 0.041008502178419684]}, InsetBox["4684", Offset[{2, 2}, {1.9782548878194717, 0.6866797597238187}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[191, 251], 0.7609561752988048]], DiskBox[{1.4574762623917898, 2.807238168287663}, 0.041008502178419684]}, InsetBox["1523", Offset[{2, 2}, {1.4984847645702095, 2.8482466704660827}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[209, 251], 0.8326693227091634]], DiskBox[{0., 1.7916263394129903}, 0.041008502178419684]}, InsetBox["9166", Offset[{2, 2}, {0.041008502178419684, 1.83263484159141}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[186, 251], 0.7410358565737052]], DiskBox[{4.196060136073973, 1.576264565489734}, 0.041008502178419684]}, InsetBox["8896", Offset[{2, 2}, {4.237068638252392, 1.6172730676681537}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[135, 251], 0.5378486055776892]], DiskBox[{2.5553180405738396, 1.6109041875959655}, 0.041008502178419684]}, InsetBox["1884", Offset[{2, 2}, {2.5963265427522595, 1.6519126897743852}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.7464030448812237`*^9, 3.746403052483762*^9}, { 3.746403218864914*^9, 3.746403234675123*^9}, 3.7464032671501923`*^9, 3.74644463046099*^9, 3.7480367035946217`*^9, 3.749464167606473*^9, 3.749486745045644*^9, 3.749487232990676*^9, 3.7504452299457645`*^9, 3.750524378275453*^9, 3.750700008813676*^9, 3.7507020127824097`*^9, 3.7507030410130796`*^9, 3.751246030369812*^9, 3.751246129265349*^9, 3.7512463391832676`*^9, 3.751284361386427*^9, 3.751299690667635*^9, 3.7513007255383554`*^9, 3.753705829382656*^9, 3.7542674748004203`*^9, 3.75469513380694*^9, 3.7547762791084385`*^9, 3.7547776404876795`*^9, 3.7574372618547487`*^9, 3.757515109724383*^9, 3.7575923225027733`*^9, 3.757593383731308*^9, 3.7575937763722677`*^9, 3.757594367885604*^9, 3.757594875037199*^9, 3.7575954831610575`*^9, 3.757596013141774*^9, 3.7576331496634245`*^9, 3.757634352751078*^9, 3.7576348363771915`*^9, 3.757635165705861*^9, 3.8303406975840054`*^9, 3.8303407489367647`*^9, 3.830415672500896*^9}, CellLabel->"Out[52]=",ExpressionUUID->"71f7bb32-785e-4010-853c-d6edf7c44917"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"exp2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "e2", ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7464030465409575`*^9, 3.7464030625943193`*^9}, { 3.74640321346434*^9, 3.7464032548781967`*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"8a787253-d2d8-48cf-a3c3-ad9d6597e2d9"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{977, 9438, 224, 3560, 3973, 3685, 640, 7695, 9166, 2143}, { Null, {{3, 4}, {6, 5}, {1, 6}, {7, 1}, {5, 8}, {8, 2}, {6, 8}, {3, 8}, { 7, 8}, {1, 8}, {5, 9}, {7, 9}, {10, 6}}}, { EdgeStyle -> {UndirectedEdge[977, 7695] -> GrayLevel[ Rational[47, 90]], UndirectedEdge[7695, 9438] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3973, 9166] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[224, 7695] -> GrayLevel[0], UndirectedEdge[3685, 7695] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[224, 3560] -> GrayLevel[ Rational[11, 15]], UndirectedEdge[3685, 3973] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[3973, 7695] -> GrayLevel[ Rational[23, 45]], UndirectedEdge[640, 7695] -> GrayLevel[ Rational[23, 45]], UndirectedEdge[2143, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[977, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[640, 9166] -> GrayLevel[ Rational[19, 30]], UndirectedEdge[640, 977] -> GrayLevel[ Rational[83, 90]]}, EdgeWeight -> {24, 13, 7, 7, 44, 9, 13, 90, 44, 43, 9, 33, 7}, GraphLayout -> {"Dimension" -> 2}, VertexLabels -> {"Name"}, VertexStyle -> {9166 -> GrayLevel[ Rational[209, 251]], 640 -> GrayLevel[ Rational[131, 251]], 224 -> GrayLevel[ Rational[116, 251]], 977 -> GrayLevel[ Rational[113, 251]], 3560 -> GrayLevel[ Rational[156, 251]], 9438 -> GrayLevel[ Rational[191, 251]], 3685 -> GrayLevel[ Rational[195, 251]], 2143 -> GrayLevel[ Rational[214, 251]], 7695 -> GrayLevel[0], 3973 -> GrayLevel[ Rational[101, 251]]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.4285981890723223`, 1.3263167207179563`}, { 0.8738942214971049, 1.8114028018455208`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.4285981890723223`, 1.3263167207179563`}, { 1.6619579968506872`, 0.5285421680323409}}]}, {GrayLevel[ NCache[ Rational[47, 90], 0.5222222222222223]], LineBox[{{1.4285981890723223`, 1.3263167207179563`}, { 1.9968351687928525`, 1.4647070325396023`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.4663193006267496`, 2.42624336989352}, { 1.9968351687928525`, 1.4647070325396023`}}]}, {GrayLevel[ NCache[ Rational[11, 15], 0.7333333333333333]], LineBox[{{3.3588742949463493`, 1.393523159184883}, { 4.3904562420779705`, 1.3582847457046312`}}]}, {GrayLevel[0], LineBox[{{3.3588742949463493`, 1.393523159184883}, { 1.9968351687928525`, 1.4647070325396023`}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{0.9614456214848734, 0.9282536766079839}, { 0.8738942214971049, 1.8114028018455208`}}]}, {GrayLevel[ NCache[ Rational[23, 45], 0.5111111111111111]], LineBox[{{0.9614456214848734, 0.9282536766079839}, { 1.9968351687928525`, 1.4647070325396023`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{0.9614456214848734, 0.9282536766079839}, { 0.9559336534877951, 0.}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{0.8738942214971049, 1.8114028018455208`}, { 1.9968351687928525`, 1.4647070325396023`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{0.8738942214971049, 1.8114028018455208`}, {0., 2.469493933900295}}]}, {GrayLevel[ NCache[ Rational[23, 45], 0.5111111111111111]], LineBox[{{1.6619579968506872`, 0.5285421680323409}, { 1.9968351687928525`, 1.4647070325396023`}}]}, {GrayLevel[ NCache[ Rational[19, 30], 0.6333333333333333]], LineBox[{{1.6619579968506872`, 0.5285421680323409}, { 0.9559336534877951, 0.}}]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {GrayLevel[ NCache[ Rational[113, 251], 0.450199203187251]], DiskBox[{1.4285981890723223, 1.3263167207179563}, 0.03944446877198997]}, InsetBox["977", Offset[{2, 2}, {1.4680426578443122, 1.3657611894899462}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[191, 251], 0.7609561752988048]], DiskBox[{2.4663193006267496, 2.42624336989352}, 0.03944446877198997]}, InsetBox["9438", Offset[{2, 2}, {2.50576376939874, 2.4656878386655103}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[116, 251], 0.46215139442231074`]], DiskBox[{3.3588742949463493, 1.393523159184883}, 0.03944446877198997]}, InsetBox["224", Offset[{2, 2}, {3.3983187637183394, 1.4329676279568728}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[156, 251], 0.6215139442231076]], DiskBox[{4.3904562420779705, 1.3582847457046312}, 0.03944446877198997]}, InsetBox["3560", Offset[{2, 2}, {4.42990071084996, 1.3977292144766211}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[101, 251], 0.40239043824701193`]], DiskBox[{0.9614456214848734, 0.9282536766079839}, 0.03944446877198997]}, InsetBox["3973", Offset[{2, 2}, {1.0008900902568634, 0.9676981453799738}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[195, 251], 0.7768924302788844]], DiskBox[{0.8738942214971049, 1.8114028018455208}, 0.03944446877198997]}, InsetBox["3685", Offset[{2, 2}, {0.9133386902690949, 1.8508472706175108}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[131, 251], 0.5219123505976095]], DiskBox[{1.6619579968506872, 0.5285421680323409}, 0.03944446877198997]}, InsetBox["640", Offset[{2, 2}, {1.7014024656226772, 0.5679866368043308}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0], DiskBox[{1.9968351687928525, 1.4647070325396023}, 0.03944446877198997]}, InsetBox["7695", Offset[{2, 2}, {2.0362796375648426, 1.5041515013115923}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[209, 251], 0.8326693227091634]], DiskBox[{0.9559336534877951, 0.}, 0.03944446877198997]}, InsetBox["9166", Offset[{2, 2}, {0.9953781222597851, 0.03944446877198997}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[214, 251], 0.852589641434263]], DiskBox[{0., 2.469493933900295}, 0.03944446877198997]}, InsetBox["2143", Offset[{2, 2}, {0.03944446877198997, 2.508938402672285}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{ 3.7464030630940495`*^9, {3.7464032202027965`*^9, 3.7464032690971985`*^9}, 3.7464446317913136`*^9, 3.7480367048419576`*^9, 3.749464167729491*^9, 3.749486745076887*^9, 3.74948723325364*^9, 3.7504452300490093`*^9, 3.7505243783691797`*^9, 3.750700008929539*^9, 3.7507020128546877`*^9, 3.7507030410840397`*^9, 3.7512460304533124`*^9, 3.7512461293196516`*^9, 3.751246339244662*^9, 3.7512843615859566`*^9, 3.751299690752254*^9, 3.7513007256320887`*^9, 3.753705829470954*^9, 3.754267474903951*^9, 3.7546951338759336`*^9, 3.7547762792114587`*^9, 3.7547776407386513`*^9, 3.7574372619354954`*^9, 3.7575151098064795`*^9, 3.757592322575445*^9, 3.757593386133137*^9, 3.7575937784035516`*^9, 3.757594370080307*^9, 3.7575948768180327`*^9, 3.757595485020915*^9, 3.75759601487574*^9, 3.7576331497362843`*^9, 3.7576343528212028`*^9, 3.757634836444315*^9, 3.757635165764431*^9, 3.830340751419325*^9, 3.8304156739336433`*^9}, CellLabel->"Out[53]=",ExpressionUUID->"79f8f060-9321-41a8-afc9-64d7ff3406d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"g", ",", RowBox[{"{", RowBox[{"exp1", ",", "exp2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7464453389146247`*^9, 3.746445347183693*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"1de6ed1d-572e-42c7-aac0-63be38cb8d36"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1884, 3973, 7332, 8607, 3560, 5908, 5972, 4684, 8925, 1896, 3161, 6333, 5539, 1247, 3685, 4680, 3340, 2143, 8443, 482, 977, 7695, 6464, 5699, 9166, 9438, 224, 640, 3591, 1523, 7460, 1120, 1656, 8896, 2350, 5971, 2051}, { Null, {{1, 2}, {1, 3}, {1, 4}, {1, 5}, {1, 6}, {1, 7}, {8, 3}, {8, 9}, { 10, 8}, {11, 8}, {8, 12}, {8, 13}, {14, 8}, {15, 16}, {17, 16}, {18, 15}, {18, 19}, {14, 18}, {20, 19}, {20, 13}, {20, 21}, {2, 22}, {2, 3}, {2, 23}, {2, 4}, {15, 2}, {2, 13}, {2, 24}, {2, 25}, {3, 22}, {22, 26}, {15, 22}, {27, 22}, {28, 22}, {21, 22}, {10, 3}, {11, 3}, {29, 3}, {27, 3}, {28, 3}, {30, 3}, {14, 3}, {21, 3}, {3, 31}, {29, 23}, { 30, 23}, {4, 9}, {15, 9}, {11, 9}, {28, 9}, {14, 9}, {4, 26}, {10, 26}, {32, 26}, {11, 26}, {33, 26}, {10, 4}, {32, 4}, {11, 4}, {12, 4}, {6, 4}, {13, 4}, {33, 4}, {17, 4}, {14, 4}, {7, 4}, {19, 34}, {6, 34}, {27, 34}, {13, 34}, {17, 34}, {32, 10}, {10, 11}, {10, 29}, {10, 5}, {10, 24}, {14, 10}, {10, 35}, {21, 10}, {10, 31}, {21, 15}, {11, 29}, {11, 6}, {28, 11}, {13, 19}, {5, 12}, {6, 12}, {28, 29}, {5, 6}, { 27, 5}, {35, 5}, {33, 6}, {6, 36}, {6, 7}, {28, 21}, {28, 25}, {14, 30}, {33, 17}, {33, 35}, {33, 7}, {37, 24}, {17, 24}, {14, 24}, {24, 31}, {17, 36}, {17, 6}, {14, 17}, {35, 17}, {21, 14}, {14, 7}, {14, 31}, {35, 31}, {21, 7}}}, { EdgeStyle -> {UndirectedEdge[3340, 8896] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3161, 3591] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[640, 977] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1120, 1896] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[1523, 6464] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3973, 5699] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3685, 7695] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[3591, 7332] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3973, 7332] -> GrayLevel[ Rational[19, 30]], UndirectedEdge[3560, 5908] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1896, 3161] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5908, 5971] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1656, 3340] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[977, 1247] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[1884, 3973] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[3340, 8607] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1247, 1523] -> GrayLevel[ Rational[34, 45]], UndirectedEdge[1896, 2350] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1896, 7332] -> GrayLevel[ Rational[23, 30]], UndirectedEdge[1896, 5699] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1656, 8607] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1896, 8607] -> GrayLevel[ Rational[7, 15]], UndirectedEdge[3161, 8607] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[1656, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[2051, 5699] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[3973, 9166] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1896, 7460] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[3161, 7332] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[3161, 5908] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3560, 6333] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1523, 7332] -> GrayLevel[ Rational[7, 10]], UndirectedEdge[3973, 8607] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[3340, 4680] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[2143, 8443] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1247, 8607] -> GrayLevel[ Rational[5, 6]], UndirectedEdge[3973, 7695] -> GrayLevel[ Rational[23, 45]], UndirectedEdge[6333, 8607] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3591, 6464] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[2143, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[3685, 3973] -> GrayLevel[ Rational[77, 90]], UndirectedEdge[224, 7695] -> GrayLevel[0], UndirectedEdge[1884, 5972] -> GrayLevel[ Rational[29, 45]], UndirectedEdge[4684, 6333] -> GrayLevel[ Rational[1, 30]], UndirectedEdge[8443, 8896] -> GrayLevel[ Rational[73, 90]], UndirectedEdge[1896, 3591] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5699, 7460] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[5908, 8896] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[640, 3591] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1247, 7332] -> GrayLevel[ Rational[71, 90]], UndirectedEdge[7695, 9438] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[977, 7695] -> GrayLevel[ Rational[47, 90]], UndirectedEdge[5908, 6333] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3340, 5908] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1884, 7332] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[1247, 4684] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[5908, 8607] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[482, 977] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1247, 5699] -> GrayLevel[ Rational[32, 45]], UndirectedEdge[7332, 7460] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[5908, 5972] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1656, 5908] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[640, 7695] -> GrayLevel[ Rational[23, 45]], UndirectedEdge[640, 9166] -> GrayLevel[ Rational[19, 30]], UndirectedEdge[3685, 4680] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[977, 3685] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[640, 8925] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[3340, 5699] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1896, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1120, 9438] -> GrayLevel[ Rational[34, 45]], UndirectedEdge[3340, 5971] -> GrayLevel[ Rational[13, 15]], UndirectedEdge[4684, 7332] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[224, 3560] -> GrayLevel[ Rational[11, 15]], UndirectedEdge[482, 5539] -> GrayLevel[ Rational[13, 45]], UndirectedEdge[1896, 4684] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3161, 8925] -> GrayLevel[ Rational[67, 90]], UndirectedEdge[8607, 8925] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3161, 9438] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1884, 3560] -> GrayLevel[ Rational[26, 45]], UndirectedEdge[1247, 7460] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[2350, 3560] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[977, 7332] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[1247, 3340] -> GrayLevel[ Rational[11, 30]], UndirectedEdge[224, 7332] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1884, 8607] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1884, 5908] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[482, 8443] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3973, 6464] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1120, 8607] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[1247, 8925] -> GrayLevel[ Rational[79, 90]], UndirectedEdge[640, 3161] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[977, 1896] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[5539, 8896] -> GrayLevel[ Rational[73, 90]], UndirectedEdge[3973, 5539] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[4684, 8925] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[5539, 8607] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[5539, 8443] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[3161, 4684] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[2350, 3340] -> GrayLevel[ Rational[8, 9]], UndirectedEdge[3685, 8925] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[4684, 5539] -> GrayLevel[ Rational[37, 45]], UndirectedEdge[1247, 5972] -> GrayLevel[ Rational[73, 90]], UndirectedEdge[1656, 2350] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[1247, 1896] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[1896, 3560] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[1656, 5972] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[8607, 9438] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[2350, 7460] -> GrayLevel[ Rational[61, 90]], UndirectedEdge[640, 7332] -> GrayLevel[ Rational[9, 10]], UndirectedEdge[977, 5972] -> GrayLevel[ Rational[8, 15]], UndirectedEdge[1247, 2143] -> GrayLevel[ Rational[4, 5]], UndirectedEdge[7332, 7695] -> GrayLevel[ Rational[41, 45]], UndirectedEdge[5972, 8607] -> GrayLevel[ Rational[83, 90]], UndirectedEdge[224, 8896] -> GrayLevel[ Rational[38, 45]]}, EdgeWeight -> {16, 12, 9, 38, 9, 32, 10, 8, 9, 7, 87, 16, 9, 7, 9, 7, 12, 18, 9, 64, 7, 44, 33, 9, 8, 13, 10, 8, 9, 8, 9, 13, 90, 44, 43, 21, 12, 7, 7, 9, 27, 19, 11, 7, 8, 11, 9, 9, 23, 11, 11, 8, 7, 22, 7, 7, 48, 16, 10, 9, 11, 10, 12, 7, 15, 7, 17, 9, 14, 17, 8, 13, 7, 7, 7, 10, 9, 7, 8, 12, 7, 13, 8, 9, 9, 9, 11, 7, 10, 24, 7, 10, 10, 7, 7, 33, 22, 8, 8, 7, 16, 9, 26, 9, 12, 8, 57, 10, 13, 17, 10, 29, 42}, GraphHighlight -> { UndirectedEdge[3973, 8607], UndirectedEdge[1884, 7332], 3340, UndirectedEdge[3685, 3973], UndirectedEdge[1523, 7332], UndirectedEdge[640, 977], 6464, UndirectedEdge[1247, 3340], UndirectedEdge[977, 7695], UndirectedEdge[1896, 9438], UndirectedEdge[1896, 2350], 5971, UndirectedEdge[3340, 8607], UndirectedEdge[1884, 8607], UndirectedEdge[3973, 7332], UndirectedEdge[1247, 2143], 1523, 8925, 8607, UndirectedEdge[1884, 3560], UndirectedEdge[1247, 8607], UndirectedEdge[3161, 8925], UndirectedEdge[7332, 7695], UndirectedEdge[3973, 6464], UndirectedEdge[977, 3685], UndirectedEdge[3161, 9438], UndirectedEdge[2051, 5699], UndirectedEdge[224, 7332], UndirectedEdge[3340, 5699], UndirectedEdge[1884, 3973], UndirectedEdge[1884, 5972], UndirectedEdge[977, 1896], 3560, UndirectedEdge[1896, 5699], 224, UndirectedEdge[1896, 3560], UndirectedEdge[1247, 7332], UndirectedEdge[7695, 9438], UndirectedEdge[3973, 9166], 1247, UndirectedEdge[8607, 9438], UndirectedEdge[640, 9166], UndirectedEdge[977, 7332], UndirectedEdge[640, 3161], 9166, 6333, UndirectedEdge[3161, 8607], UndirectedEdge[1896, 8607], 5972, UndirectedEdge[1247, 1523], 2350, UndirectedEdge[2143, 3685], UndirectedEdge[640, 7695], 4684, UndirectedEdge[640, 8925], UndirectedEdge[224, 7695], UndirectedEdge[3685, 7695], UndirectedEdge[3973, 5699], 7332, 3973, 640, UndirectedEdge[1247, 8925], 2051, 3161, UndirectedEdge[3560, 6333], UndirectedEdge[1896, 3161], UndirectedEdge[1247, 5699], 2143, UndirectedEdge[1247, 1896], 7695, UndirectedEdge[3340, 8896], 5699, UndirectedEdge[1896, 7332], 1896, UndirectedEdge[224, 8896], UndirectedEdge[224, 3560], UndirectedEdge[1247, 5972], UndirectedEdge[4684, 6333], UndirectedEdge[8607, 8925], 1884, UndirectedEdge[1247, 4684], UndirectedEdge[4684, 8925], 8896, UndirectedEdge[640, 7332], 977, UndirectedEdge[3685, 8925], UndirectedEdge[1523, 6464], UndirectedEdge[2350, 3340], 3685, UndirectedEdge[977, 1247], UndirectedEdge[5972, 8607], UndirectedEdge[3161, 4684], UndirectedEdge[3340, 5971], UndirectedEdge[1896, 4684], UndirectedEdge[977, 5972], UndirectedEdge[4684, 7332], UndirectedEdge[3161, 7332], UndirectedEdge[3973, 7695], UndirectedEdge[2350, 3560], 9438, UndirectedEdge[6333, 8607]}, GraphHighlightStyle -> { UndirectedEdge[640, 977] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, 8607 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[4684, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1884, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 1523 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1523, 6464] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 5972 -> {VertexStyle -> Hue[0, 1, 0.8]}, 640 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[224, 3560] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[1247, 3340] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 3161] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3973, 7695] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[1523, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 977 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[3973, 5699] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 4684] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3340, 5971] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[977, 7695] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[8607, 8925] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 3973 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[4684, 6333] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3685, 8925] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 2143 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[1247, 8925] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[6333, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 2051 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 9438] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 8896 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[977, 5972] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1247, 5699] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 6333 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1247, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3973, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[977, 1247] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[224, 8896] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1247, 5972] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 3560] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[8607, 9438] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 9166 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[2350, 3560] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1247, 2143] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 8925 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1884, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1884, 3560] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[4684, 8925] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 7695 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[1247, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[2143, 3685] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[2051, 5699] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 5699 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[977, 1896] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3161, 8925] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3161, 4684] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3161, 9438] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3161, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 5699] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 7332 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 2350] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 5971 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3973, 9166] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[5972, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1884, 3973] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[640, 8925] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 3161 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1247, 4684] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 1896 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3560, 6333] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[224, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 6464 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3685, 3973] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[3685, 7695] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[1884, 5972] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3340, 5699] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 3685 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[977, 3685] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[640, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 9438 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[977, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3340, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 2350 -> {VertexStyle -> Hue[0, 1, 0.8]}, 3560 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, 1884 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1247, 1896] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1247, 1523] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3161, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[640, 3161] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[640, 7695] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[7695, 9438] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[7332, 7695] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 1247 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[640, 9166] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[3973, 7332] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[1896, 8607] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 224 -> {VertexStyle -> Directive[ Hue[0.14, 1, 0.9]]}, UndirectedEdge[3340, 8896] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[2350, 3340] -> {EdgeStyle -> Hue[0, 1, 0.8]}, 3340 -> {VertexStyle -> Hue[0, 1, 0.8]}, 4684 -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[3973, 6464] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge[224, 7695] -> {EdgeStyle -> Directive[ Hue[0.14, 1, 0.9]]}}, GraphLayout -> {"Dimension" -> 2}, VertexLabels -> {"Name"}, VertexStyle -> {5971 -> GrayLevel[ Rational[229, 251]], 5908 -> GrayLevel[ Rational[158, 251]], 5539 -> GrayLevel[ Rational[125, 251]], 2051 -> GrayLevel[ Rational[235, 251]], 4680 -> GrayLevel[ Rational[235, 251]], 8607 -> GrayLevel[ Rational[72, 251]], 3340 -> GrayLevel[ Rational[123, 251]], 4684 -> GrayLevel[ Rational[105, 251]], 1120 -> GrayLevel[ Rational[200, 251]], 8896 -> GrayLevel[ Rational[186, 251]], 9438 -> GrayLevel[ Rational[191, 251]], 8925 -> GrayLevel[ Rational[180, 251]], 5699 -> GrayLevel[ Rational[173, 251]], 482 -> GrayLevel[ Rational[171, 251]], 1247 -> GrayLevel[ Rational[25, 251]], 7695 -> GrayLevel[0], 640 -> GrayLevel[ Rational[131, 251]], 1884 -> GrayLevel[ Rational[135, 251]], 3685 -> GrayLevel[ Rational[195, 251]], 1523 -> GrayLevel[ Rational[191, 251]], 2350 -> GrayLevel[ Rational[190, 251]], 3591 -> GrayLevel[ Rational[209, 251]], 7332 -> GrayLevel[ Rational[68, 251]], 1896 -> GrayLevel[ Rational[86, 251]], 6464 -> GrayLevel[ Rational[223, 251]], 8443 -> GrayLevel[ Rational[204, 251]], 3161 -> GrayLevel[ Rational[155, 251]], 6333 -> GrayLevel[ Rational[135, 251]], 2143 -> GrayLevel[ Rational[214, 251]], 1656 -> GrayLevel[ Rational[199, 251]], 3973 -> GrayLevel[ Rational[101, 251]], 3560 -> GrayLevel[ Rational[156, 251]], 7460 -> GrayLevel[ Rational[184, 251]], 977 -> GrayLevel[ Rational[113, 251]], 224 -> GrayLevel[ Rational[116, 251]], 5972 -> GrayLevel[ Rational[139, 251]], 9166 -> GrayLevel[ Rational[209, 251]]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[0, 1, 0.8], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.254270855923262, 2.8698464127954573`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.0878088126360055`, 2.521433088371224}}]}, {Hue[0, 1, 0.8], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.6311424972576836`, 1.5590962874045355`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 2.583980036533834, 0.9282266151910459}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 3.1878881389781992`, 0.9722239523255354}}]}, {Hue[0, 1, 0.8], LineBox[{{2.3984649978198687`, 1.6667217353021773`}, { 3.0950771698088544`, 1.5359535085931357`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 2.0878088126360055`, 2.521433088371224}}]}, {Hue[0, 1, 0.8], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 2.6311424972576836`, 1.5590962874045355`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 3.7199641632770652`, 2.447600728379067}}]}, {Hue[0.14, 1, 0.9], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 3.4427320409738456`, 3.082866302351973}}]}, {Hue[0.14, 1, 0.9], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 1.0991774454099354`, 3.724970924197967}}]}, {Hue[0, 1, 0.8], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {Hue[0.14, 1, 0.9], LineBox[{{2.254270855923262, 2.8698464127954573`}, { 1.9609481837191605`, 4.23067539877886}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.868381216541333, 1.944461534939188}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, {2.20178014533537, 2.1059129902680924`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.4698388307120833`, 2.295865678675766}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 3.0264201946628146`, 2.80485831460313}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 3.2718706661648147`, 1.9615687638283492`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.374401110837499, 2.8591905382743446`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.4960812966322448`, 3.3648299807271984`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.0878088126360055`, 2.521433088371224}, { 1.305774790379798, 1.8813573754580086`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.1878881389781992`, 0.9722239523255354}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.0950771698088544`, 1.5359535085931357`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.8257372357158785`, 2.6113602770062228`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.20178014533537, 2.1059129902680924`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.2788700786662375`, 0.6451863306944472}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.7199641632770652`, 2.447600728379067}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.4698388307120833`, 2.295865678675766}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 3.0226924541869202`, 1.159944789617093}}]}, {Hue[0, 1, 0.8], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 1.426894169367006, 0.8981408741125645}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{2.6311424972576836`, 1.5590962874045355`}, { 2.5580136313919133`, 0.5769391307265495}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.583980036533834, 0.9282266151910459}, { 3.1878881389781992`, 0.9722239523255354}}]}, {Hue[0, 1, 0.8], LineBox[{{2.583980036533834, 0.9282266151910459}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.583980036533834, 0.9282266151910459}, { 3.2788700786662375`, 0.6451863306944472}}]}, {Hue[0.14, 1, 0.9], LineBox[{{2.583980036533834, 0.9282266151910459}, { 3.2718706661648147`, 1.9615687638283492`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.583980036533834, 0.9282266151910459}, { 1.9009919110450095`, 0.7781096625592305}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.0950771698088544`, 1.5359535085931357`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 2.20178014533537, 2.1059129902680924`}}]}, {GrayLevel[ NCache[ Rational[79, 90], 0.8777777777777778]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.2788700786662375`, 0.6451863306944472}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.0226924541869202`, 1.159944789617093}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 2.5580136313919133`, 0.5769391307265495}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{3.1878881389781992`, 0.9722239523255354}, { 3.6883059376362457`, 0.}}]}, {Hue[0, 1, 0.8], LineBox[{{3.0950771698088544`, 1.5359535085931357`}, { 2.4698388307120833`, 2.295865678675766}}]}, {Hue[0, 1, 0.8], LineBox[{{3.0950771698088544`, 1.5359535085931357`}, { 3.0264201946628146`, 2.80485831460313}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.0950771698088544`, 1.5359535085931357`}, { 2.5580136313919133`, 0.5769391307265495}}]}, {Hue[0, 1, 0.8], LineBox[{{2.868381216541333, 1.944461534939188}, { 2.8257372357158785`, 2.6113602770062228`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.868381216541333, 1.944461534939188}, { 1.9572951633274314`, 1.8099051183928858`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.868381216541333, 1.944461534939188}, {2.20178014533537, 2.1059129902680924`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.868381216541333, 1.944461534939188}, { 3.2788700786662375`, 0.6451863306944472}}]}, {GrayLevel[ NCache[ Rational[37, 45], 0.8222222222222222]], LineBox[{{2.868381216541333, 1.944461534939188}, { 3.7199641632770652`, 2.447600728379067}}]}, {Hue[0, 1, 0.8], LineBox[{{2.868381216541333, 1.944461534939188}, { 2.4698388307120833`, 2.295865678675766}}]}, {Hue[0, 1, 0.8], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 2.20178014533537, 2.1059129902680924`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 2.4698388307120833`, 2.295865678675766}}]}, {Hue[0, 1, 0.8], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 3.4427320409738456`, 3.082866302351973}}]}, {Hue[0, 1, 0.8], LineBox[{{2.8257372357158785`, 2.6113602770062228`}, { 2.188854013791599, 3.306741207795006}}]}, {Hue[0, 1, 0.8], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 2.20178014533537, 2.1059129902680924`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 2.4698388307120833`, 2.295865678675766}}]}, {Hue[0, 1, 0.8], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 3.0264201946628146`, 2.80485831460313}}]}, {Hue[0, 1, 0.8], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.305774790379798, 1.8813573754580086`}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.426894169367006, 0.8981408741125645}}]}, {Hue[0, 1, 0.8], LineBox[{{1.9572951633274314`, 1.8099051183928858`}, { 1.9009919110450095`, 0.7781096625592305}}]}, {Hue[0, 1, 0.8], LineBox[{{2.20178014533537, 2.1059129902680924`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.20178014533537, 2.1059129902680924`}, {2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[77, 90], 0.8555555555555555]], LineBox[{{2.20178014533537, 2.1059129902680924`}, {1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{3.7199641632770652`, 2.447600728379067}, {4.73425173666226, 2.681130220163744}}]}, {GrayLevel[ NCache[ Rational[13, 45], 0.28888888888888886`]], LineBox[{{3.7199641632770652`, 2.447600728379067}, { 4.397641903925736, 3.2539845580257283`}}]}, {GrayLevel[ NCache[ Rational[73, 90], 0.8111111111111111]], LineBox[{{3.7199641632770652`, 2.447600728379067}, { 4.104459217702431, 1.6157516950091917`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 3.0226924541869202`, 1.159944789617093}}]}, {Hue[0, 1, 0.8], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 3.903077256299162, 3.255798740011394}}]}, {Hue[0, 1, 0.8], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 3.0264201946628146`, 2.80485831460313}}]}, {Hue[0, 1, 0.8], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {Hue[0, 1, 0.8], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 1.4960812966322448`, 3.3648299807271984`}}]}, {GrayLevel[ NCache[ Rational[8, 9], 0.8888888888888888]], LineBox[{{2.4698388307120833`, 2.295865678675766}, { 1.305774790379798, 1.8813573754580086`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 4.287142555088807, 2.010102527203237}}]}, {Hue[0.14, 1, 0.9], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 3.903077256299162, 3.255798740011394}}]}, {Hue[0.14, 1, 0.9], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 3.0264201946628146`, 2.80485831460313}}]}, {Hue[0.14, 1, 0.9], LineBox[{{3.4427320409738456`, 3.082866302351973}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{4.287142555088807, 2.010102527203237}, { 3.0226924541869202`, 1.159944789617093}}]}, {Hue[0, 1, 0.8], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 1.4691302208150039`, 1.6601275876173132`}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 2.5580136313919133`, 0.5769391307265495}}]}, {Hue[0, 1, 0.8], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 4.104459217702431, 1.6157516950091917`}}]}, {Hue[0, 1, 0.8], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 1.9009919110450095`, 0.7781096625592305}}]}, {Hue[0, 1, 0.8], LineBox[{{3.0226924541869202`, 1.159944789617093}, { 3.6883059376362457`, 0.}}]}, {GrayLevel[ NCache[ Rational[13, 15], 0.8666666666666667]], LineBox[{{3.903077256299162, 3.255798740011394}, {4.73425173666226, 2.681130220163744}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{4.73425173666226, 2.681130220163744}, {4.397641903925736, 3.2539845580257283`}}]}, {GrayLevel[ NCache[ Rational[73, 90], 0.8111111111111111]], LineBox[{{4.73425173666226, 2.681130220163744}, {4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{4.397641903925736, 3.2539845580257283`}, { 3.0264201946628146`, 2.80485831460313}}]}, {Hue[0.14, 1, 0.9], LineBox[{{3.0264201946628146`, 2.80485831460313}, { 2.5940113125237874`, 2.7693008373875165`}}]}, {Hue[0.14, 1, 0.9], LineBox[{{3.0264201946628146`, 2.80485831460313}, {2.188854013791599, 3.306741207795006}}]}, {Hue[0.14, 1, 0.9], LineBox[{{2.5940113125237874`, 2.7693008373875165`}, { 1.9626592733755062`, 1.3741698167689078`}}]}, {Hue[0.14, 1, 0.9], LineBox[{{2.5940113125237874`, 2.7693008373875165`}, { 3.2718706661648147`, 1.9615687638283492`}}]}, {Hue[0.14, 1, 0.9], LineBox[{{2.5940113125237874`, 2.7693008373875165`}, { 2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{1.0991774454099354`, 3.724970924197967}, { 1.374401110837499, 2.8591905382743446`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.0991774454099354`, 3.724970924197967}, { 1.4960812966322448`, 3.3648299807271984`}}]}, {GrayLevel[ NCache[ Rational[9, 10], 0.9]], LineBox[{{1.4691302208150039`, 1.6601275876173132`}, { 1.305774790379798, 1.8813573754580086`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.4691302208150039`, 1.6601275876173132`}, {0., 1.1873821379604075`}}]}, {Hue[0.14, 1, 0.9], LineBox[{{1.9609481837191605`, 4.23067539877886}, {2.188854013791599, 3.306741207795006}}]}, {GrayLevel[ NCache[ Rational[34, 45], 0.7555555555555555]], LineBox[{{1.9626592733755062`, 1.3741698167689078`}, { 1.426894169367006, 0.8981408741125645}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{1.9626592733755062`, 1.3741698167689078`}, { 2.5580136313919133`, 0.5769391307265495}}]}, {Hue[0, 1, 0.8], LineBox[{{3.2718706661648147`, 1.9615687638283492`}, { 4.104459217702431, 1.6157516950091917`}}]}, {GrayLevel[ NCache[ Rational[83, 90], 0.9222222222222223]], LineBox[{{2.188854013791599, 3.306741207795006}, {1.374401110837499, 2.8591905382743446`}}]}, {GrayLevel[ NCache[ Rational[61, 90], 0.6777777777777778]], LineBox[{{1.305774790379798, 1.8813573754580086`}, { 1.9009919110450095`, 0.7781096625592305}}]}, {GrayLevel[ NCache[ Rational[41, 45], 0.9111111111111111]], LineBox[{{2.5580136313919133`, 0.5769391307265495}, { 1.9009919110450095`, 0.7781096625592305}}]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {Hue[0, 1, 0.8], DiskBox[{2.3984649978198687, 1.6667217353021773}, 0.0415063096365134]}, InsetBox["1884", Offset[{2, 2}, {2.439971307456382, 1.7082280449386906}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.254270855923262, 2.8698464127954573}, 0.0415063096365134]}, InsetBox["3973", Offset[{2, 2}, {2.2957771655597754, 2.9113527224319706}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.0878088126360055, 2.521433088371224}, 0.0415063096365134]}, InsetBox["7332", Offset[{2, 2}, {2.129315122272519, 2.5629393980077375}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.6311424972576836, 1.5590962874045355}, 0.0415063096365134]}, InsetBox["8607", Offset[{2, 2}, {2.672648806894197, 1.600602597041049}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.583980036533834, 0.9282266151910459}, 0.0415063096365134]}, InsetBox["3560", Offset[{2, 2}, {2.6254863461703475, 0.9697329248275592}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[158, 251], 0.6294820717131474]], DiskBox[{3.1878881389781992, 0.9722239523255354}, 0.0415063096365134]}, InsetBox["5908", Offset[{2, 2}, {3.2293944486147126, 1.0137302619620487}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.0950771698088544, 1.5359535085931357}, 0.0415063096365134]}, InsetBox["5972", Offset[{2, 2}, {3.1365834794453678, 1.577459818229649}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.868381216541333, 1.944461534939188}, 0.0415063096365134]}, InsetBox["4684", Offset[{2, 2}, {2.9098875261778465, 1.9859678445757014}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.8257372357158785, 2.6113602770062228}, 0.0415063096365134]}, InsetBox["8925", Offset[{2, 2}, {2.867243545352392, 2.652866586642736}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.9572951633274314, 1.8099051183928858}, 0.0415063096365134]}, InsetBox["1896", Offset[{2, 2}, {1.9988014729639447, 1.8514114280293992}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.20178014533537, 2.1059129902680924}, 0.0415063096365134]}, InsetBox["3161", Offset[{2, 2}, {2.243286454971883, 2.147419299904606}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.2788700786662375, 0.6451863306944472}, 0.0415063096365134]}, InsetBox["6333", Offset[{2, 2}, {3.320376388302751, 0.6866926403309606}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[125, 251], 0.49800796812749004`]], DiskBox[{3.7199641632770652, 2.447600728379067}, 0.0415063096365134]}, InsetBox["5539", Offset[{2, 2}, {3.7614704729135786, 2.48910703801558}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.4698388307120833, 2.295865678675766}, 0.0415063096365134]}, InsetBox["1247", Offset[{2, 2}, {2.5113451403485967, 2.337371988312279}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.4427320409738456, 3.082866302351973}, 0.0415063096365134]}, InsetBox["3685", Offset[{2, 2}, {3.484238350610359, 3.1243726119884863}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[235, 251], 0.9362549800796812]], DiskBox[{4.287142555088807, 2.010102527203237}, 0.0415063096365134]}, InsetBox["4680", Offset[{2, 2}, {4.328648864725321, 2.0516088368397503}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.0226924541869202, 1.159944789617093}, 0.0415063096365134]}, InsetBox["3340", Offset[{2, 2}, {3.0641987638234336, 1.2014510992536063}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.903077256299162, 3.255798740011394}, 0.0415063096365134]}, InsetBox["2143", Offset[{2, 2}, {3.9445835659356754, 3.2973050496479073}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[204, 251], 0.8127490039840638]], DiskBox[{4.73425173666226, 2.681130220163744}, 0.0415063096365134]}, InsetBox["8443", Offset[{2, 2}, {4.775758046298773, 2.7226365298002575}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[171, 251], 0.6812749003984063]], DiskBox[{4.397641903925736, 3.2539845580257283}, 0.0415063096365134]}, InsetBox["482", Offset[{2, 2}, {4.43914821356225, 3.2954908676622416}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.0264201946628146, 2.80485831460313}, 0.0415063096365134]}, InsetBox["977", Offset[{2, 2}, {3.067926504299328, 2.8463646242396434}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.5940113125237874, 2.7693008373875165}, 0.0415063096365134]}, InsetBox["7695", Offset[{2, 2}, {2.6355176221603007, 2.81080714702403}], ImageScaled[ {0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.0991774454099354, 3.724970924197967}, 0.0415063096365134]}, InsetBox["6464", Offset[{2, 2}, {1.1406837550464488, 3.7664772338344803}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.4691302208150039, 1.6601275876173132}, 0.0415063096365134]}, InsetBox["5699", Offset[{2, 2}, {1.5106365304515172, 1.7016338972538265}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.9609481837191605, 4.23067539877886}, 0.0415063096365134]}, InsetBox["9166", Offset[{2, 2}, {2.002454493355674, 4.272181708415374}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.9626592733755062, 1.3741698167689078}, 0.0415063096365134]}, InsetBox["9438", Offset[{2, 2}, {2.0041655830120195, 1.4156761264054212}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.2718706661648147, 1.9615687638283492}, 0.0415063096365134]}, InsetBox["224", Offset[{2, 2}, {3.313376975801328, 2.0030750734648626}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.188854013791599, 3.306741207795006}, 0.0415063096365134]}, InsetBox["640", Offset[{2, 2}, {2.2303603234281124, 3.348247517431519}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[209, 251], 0.8326693227091634]], DiskBox[{1.374401110837499, 2.8591905382743446}, 0.0415063096365134]}, InsetBox["3591", Offset[{2, 2}, {1.4159074204740123, 2.900696847910858}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.4960812966322448, 3.3648299807271984}, 0.0415063096365134]}, InsetBox["1523", Offset[{2, 2}, {1.5375876062687581, 3.4063362903637118}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[184, 251], 0.7330677290836654]], DiskBox[{1.305774790379798, 1.8813573754580086}, 0.0415063096365134]}, InsetBox["7460", Offset[{2, 2}, {1.3472811000163114, 1.922863685094522}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[200, 251], 0.796812749003984]], DiskBox[{1.426894169367006, 0.8981408741125645}, 0.0415063096365134]}, InsetBox["1120", Offset[{2, 2}, {1.4684004790035194, 0.9396471837490779}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[199, 251], 0.7928286852589641]], DiskBox[{2.5580136313919133, 0.5769391307265495}, 0.0415063096365134]}, InsetBox["1656", Offset[{2, 2}, {2.5995199410284267, 0.6184454403630628}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{4.104459217702431, 1.6157516950091917}, 0.0415063096365134]}, InsetBox["8896", Offset[{2, 2}, {4.145965527338944, 1.657258004645705}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.9009919110450095, 0.7781096625592305}, 0.0415063096365134]}, InsetBox["2350", Offset[{2, 2}, {1.942498220681523, 0.8196159721957439}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.6883059376362457, 0.}, 0.0415063096365134]}, InsetBox["5971", Offset[{2, 2}, {3.729812247272759, 0.0415063096365134}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0., 1.1873821379604075}, 0.0415063096365134]}, InsetBox["2051", Offset[{2, 2}, {0.0415063096365134, 1.2288884475969208}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->{581., Automatic}]], "Output", CellChangeTimes->{3.7464453476859674`*^9, 3.7480367079906197`*^9, 3.7494641679536242`*^9, 3.7494867452148848`*^9, 3.7494872334385004`*^9, 3.7504452302283707`*^9, 3.7505243785410147`*^9, 3.7507000091677713`*^9, 3.7507020130021515`*^9, 3.750703041226813*^9, 3.7512460306024294`*^9, 3.7512461294972095`*^9, 3.7512463393828506`*^9, 3.751284361904348*^9, 3.751299690952732*^9, 3.7513007257700806`*^9, 3.753705829726768*^9, 3.7542674752110715`*^9, 3.754695134092041*^9, 3.7547762794582176`*^9, 3.7547776410604115`*^9, 3.757437262184705*^9, 3.7575151100240307`*^9, 3.75759232268184*^9, 3.7575933882289305`*^9, 3.7575937808101587`*^9, 3.7575943726481633`*^9, 3.7575948787771683`*^9, 3.75759548700315*^9, 3.7575960167190585`*^9, 3.7576331499339514`*^9, 3.7576343529448357`*^9, 3.757634836599517*^9, 3.7576351658789434`*^9, 3.830340759937723*^9, 3.8304156756435404`*^9}, CellLabel->"Out[54]=",ExpressionUUID->"84e4ffbc-bc4e-44e0-83b9-d0e0af7e3f02"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"strongbonds1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "exp1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "exp1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"strongbonds2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "exp2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "exp2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7463977105463195`*^9, 3.7463978203740873`*^9}, { 3.7463978804819*^9, 3.7463979212468967`*^9}, {3.746397955546936*^9, 3.7463979714959116`*^9}, {3.746398009790866*^9, 3.7463981000271263`*^9}, { 3.746398265882224*^9, 3.7463982835088997`*^9}, {3.746403133050016*^9, 3.7464031344769316`*^9}, {3.7464031711519327`*^9, 3.7464031732398996`*^9}}, CellLabel-> "In[680]:=",ExpressionUUID->"b812cd4e-0960-4948-94f1-67f6a81de503"], Cell[BoxData[ RowBox[{ RowBox[{"dyads", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"VertexList", "[", "exp1", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"VertexList", "[", "exp1", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"VertexList", "[", "exp2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{ RowBox[{"VertexList", "[", "exp2", "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.746404189658313*^9, 3.746404374701803*^9}, { 3.746404410924283*^9, 3.7464044371518564`*^9}}, CellLabel-> "In[710]:=",ExpressionUUID->"7d883d0a-b34c-4afd-9a0a-520ba3ea021c"] }, Open ]], Cell[CellGroupData[{ Cell["Edge", "Subsection", CellChangeTimes->{{3.7507015909653344`*^9, 3.7507015914461374`*^9}},ExpressionUUID->"144afebd-a7b7-4802-aac0-\ 569b732de054"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"g", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "exp1", "]"}], ",", RowBox[{"EdgeList", "[", "exp2", "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7505243892416105`*^9, 3.7505244212422175`*^9}, { 3.7505246004842186`*^9, 3.7505246154349585`*^9}, 3.7507006466260977`*^9}, CellLabel->"In[42]:=",ExpressionUUID->"4eeb851b-53db-4acb-8af7-5c874edccdc2"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{1146, 7319, 5885, 1652, 6809, 5273, 2101, 2217, 4494, 743, 1403, 4205, 3480, 6952, 8012, 8011, 4972, 1452, 7324, 9019, 5279, 4880, 1929, 488, 5907, 8287, 7435, 9644, 4250, 1250, 5178, 6905, 6991, 898, 607, 3860, 3780, 1615, 7664, 1542, 8052, 1610, 9878, 1129, 4707, 555, 999, 4429, 4405, 149}, { Null, {{1, 2}, {1, 3}, {4, 5}, {6, 5}, {7, 6}, {8, 3}, {9, 3}, {10, 11}, {10, 12}, {10, 4}, {10, 13}, {10, 14}, {10, 15}, {6, 16}, {17, 6}, {4, 6}, {18, 9}, {19, 20}, {21, 20}, {17, 21}, {17, 2}, {22, 17}, { 23, 17}, {17, 19}, {24, 16}, {17, 16}, {2, 16}, {4, 16}, {12, 15}, {4, 12}, {25, 5}, {25, 26}, {4, 25}, {18, 25}, {25, 14}, {25, 15}, {25, 27}, {14, 28}, {29, 28}, {30, 31}, {24, 30}, {31, 32}, {18, 23}, {18, 33}, {18, 4}, {18, 31}, {1, 18}, {18, 15}, {18, 14}, {29, 15}, {1, 29}, {4, 29}, {29, 14}, {29, 5}, {4, 26}, {4, 14}, {4, 31}, {4, 23}, { 4, 15}, {18, 27}, {14, 27}, {9, 27}, {17, 27}, {27, 15}, {4, 27}, {24, 31}, {31, 14}, {31, 15}, {14, 15}, {17, 15}, {34, 14}, {35, 14}, {23, 14}, {9, 14}, {35, 3}, {36, 5}, {10, 5}, {5, 14}, {3, 32}, {10, 31}, { 5, 2}, {29, 31}, {23, 27}, {5, 27}, {33, 27}, {37, 31}, {38, 15}, {35, 15}, {35, 34}, {35, 5}, {35, 4}, {17, 20}, {18, 39}, {1, 16}, {11, 13}, {10, 40}, {10, 8}, {6, 41}, {40, 12}, {29, 41}, {27, 39}, {10, 3}, {7, 3}, {9, 2}, {16, 20}, {2, 41}, {29, 32}, {9, 15}, {31, 3}, {8, 25}, {32, 14}, {5, 16}, {38, 29}, {23, 3}, {18, 32}, {42, 16}, {18, 43}, {29, 16}, {35, 31}, {44, 6}, {2, 43}, {3, 43}, {5, 43}, {18, 45}, {46, 14}, {17, 43}, {47, 29}, {10, 48}, {49, 31}, {50, 16}}}, { EdgeStyle -> {UndirectedEdge[1615, 8012] -> GrayLevel[ Rational[2, 3]], UndirectedEdge[1146, 7319] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[1652, 4205] -> GrayLevel[ Rational[57, 79]], UndirectedEdge[1652, 6952] -> GrayLevel[ Rational[206, 237]], UndirectedEdge[488, 5178] -> GrayLevel[ Rational[67, 79]], UndirectedEdge[4250, 6905] -> GrayLevel[ Rational[215, 237]], UndirectedEdge[1250, 5178] -> GrayLevel[ Rational[119, 237]], UndirectedEdge[743, 6952] -> GrayLevel[ Rational[214, 237]], UndirectedEdge[743, 3480] -> GrayLevel[ Rational[131, 237]], UndirectedEdge[1652, 8287] -> GrayLevel[ Rational[33, 79]], UndirectedEdge[1929, 7435] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[1452, 6991] -> GrayLevel[ Rational[176, 237]], UndirectedEdge[999, 4250] -> GrayLevel[ Rational[206, 237]], UndirectedEdge[1652, 6809] -> GrayLevel[ Rational[217, 237]], UndirectedEdge[5279, 9019] -> GrayLevel[ Rational[67, 79]], UndirectedEdge[1929, 4972] -> GrayLevel[ Rational[220, 237]], UndirectedEdge[4880, 4972] -> GrayLevel[ Rational[134, 237]], UndirectedEdge[2101, 5885] -> GrayLevel[ Rational[217, 237]], UndirectedEdge[7319, 9878] -> GrayLevel[ Rational[69, 79]], UndirectedEdge[2217, 5885] -> GrayLevel[ Rational[137, 237]], UndirectedEdge[5885, 9878] -> GrayLevel[ Rational[74, 79]], UndirectedEdge[1452, 5178] -> GrayLevel[ Rational[200, 237]], UndirectedEdge[4250, 5178] -> GrayLevel[ Rational[72, 79]], UndirectedEdge[1542, 4205] -> GrayLevel[ Rational[221, 237]], UndirectedEdge[6809, 8011] -> GrayLevel[ Rational[70, 79]], UndirectedEdge[4494, 6952] -> GrayLevel[ Rational[53, 79]], UndirectedEdge[1146, 4250] -> GrayLevel[ Rational[66, 79]], UndirectedEdge[6952, 7435] -> GrayLevel[ Rational[71, 79]], UndirectedEdge[1452, 6905] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[3860, 6809] -> GrayLevel[ Rational[124, 237]], UndirectedEdge[607, 5885] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[1929, 6952] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[6991, 7435] -> GrayLevel[ Rational[68, 79]], UndirectedEdge[6952, 8012] -> GrayLevel[ Rational[69, 79]], UndirectedEdge[1652, 1929] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[1452, 8012] -> GrayLevel[ Rational[199, 237]], UndirectedEdge[1610, 8011] -> GrayLevel[ Rational[205, 237]], UndirectedEdge[1452, 4707] -> GrayLevel[ Rational[74, 79]], UndirectedEdge[4972, 9019] -> GrayLevel[ Rational[48, 79]], UndirectedEdge[898, 6952] -> GrayLevel[ Rational[139, 237]], UndirectedEdge[607, 8012] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[1452, 7664] -> GrayLevel[ Rational[164, 237]], UndirectedEdge[1652, 5178] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[1452, 7435] -> GrayLevel[ Rational[106, 237]], UndirectedEdge[743, 1542] -> GrayLevel[ Rational[97, 237]], UndirectedEdge[1452, 6952] -> GrayLevel[ Rational[194, 237]], UndirectedEdge[4250, 8011] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[7435, 8012] -> GrayLevel[ Rational[226, 237]], UndirectedEdge[1129, 5273] -> GrayLevel[ Rational[197, 237]], UndirectedEdge[5885, 6905] -> GrayLevel[ Rational[176, 237]], UndirectedEdge[555, 6952] -> GrayLevel[ Rational[70, 79]], UndirectedEdge[5178, 6952] -> GrayLevel[ Rational[218, 237]], UndirectedEdge[8011, 9019] -> GrayLevel[ Rational[217, 237]], UndirectedEdge[607, 898] -> GrayLevel[ Rational[72, 79]], UndirectedEdge[4494, 7319] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[1652, 8012] -> GrayLevel[ Rational[181, 237]], UndirectedEdge[7319, 8011] -> GrayLevel[ Rational[69, 79]], UndirectedEdge[743, 1652] -> GrayLevel[ Rational[72, 79]], UndirectedEdge[4494, 8012] -> GrayLevel[ Rational[202, 237]], UndirectedEdge[7324, 9019] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[4972, 8012] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[1403, 3480] -> GrayLevel[ Rational[71, 79]], UndirectedEdge[1929, 5885] -> GrayLevel[ Rational[71, 79]], UndirectedEdge[5907, 6809] -> GrayLevel[ Rational[221, 237]], UndirectedEdge[2217, 5907] -> GrayLevel[ Rational[74, 79]], UndirectedEdge[743, 4429] -> GrayLevel[ Rational[72, 79]], UndirectedEdge[6809, 7435] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[1652, 5907] -> GrayLevel[ Rational[41, 237]], UndirectedEdge[607, 6952] -> GrayLevel[ Rational[21, 79]], UndirectedEdge[743, 2217] -> GrayLevel[ Rational[67, 79]], UndirectedEdge[488, 8011] -> GrayLevel[ Rational[226, 237]], UndirectedEdge[743, 5885] -> GrayLevel[ Rational[196, 237]], UndirectedEdge[4250, 9644] -> GrayLevel[ Rational[226, 237]], UndirectedEdge[4972, 7324] -> GrayLevel[ Rational[199, 237]], UndirectedEdge[4405, 5178] -> GrayLevel[ Rational[220, 237]], UndirectedEdge[6905, 6952] -> GrayLevel[ Rational[71, 79]], UndirectedEdge[1652, 5273] -> GrayLevel[ Rational[221, 237]], UndirectedEdge[4205, 8012] -> GrayLevel[ Rational[217, 237]], UndirectedEdge[5273, 6809] -> GrayLevel[ Rational[65, 79]], UndirectedEdge[5178, 5885] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[743, 5178] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[4250, 6952] -> GrayLevel[ Rational[215, 237]], UndirectedEdge[5178, 6905] -> GrayLevel[ Rational[60, 79]], UndirectedEdge[5907, 6952] -> GrayLevel[ Rational[214, 237]], UndirectedEdge[1452, 1929] -> GrayLevel[ Rational[221, 237]], UndirectedEdge[1652, 8011] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[488, 1250] -> GrayLevel[ Rational[214, 237]], UndirectedEdge[1452, 5907] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[5273, 8052] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[6809, 6952] -> GrayLevel[ Rational[71, 79]], UndirectedEdge[4972, 7319] -> GrayLevel[ Rational[142, 237]], UndirectedEdge[7435, 7664] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[743, 1403] -> GrayLevel[ Rational[110, 237]], UndirectedEdge[1452, 1652] -> GrayLevel[ Rational[202, 237]], UndirectedEdge[4250, 8012] -> GrayLevel[ Rational[43, 79]], UndirectedEdge[5907, 8012] -> GrayLevel[ Rational[226, 237]], UndirectedEdge[1146, 1452] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[4494, 7435] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[1146, 8011] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[3780, 5178] -> GrayLevel[ Rational[118, 237]], UndirectedEdge[1146, 5885] -> GrayLevel[ Rational[69, 79]], UndirectedEdge[149, 8011] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[6809, 9878] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[743, 4205] -> GrayLevel[0], UndirectedEdge[607, 6809] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[1652, 4250] -> GrayLevel[ Rational[218, 237]], UndirectedEdge[6809, 7319] -> GrayLevel[ Rational[74, 79]], UndirectedEdge[607, 5178] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[5907, 8287] -> GrayLevel[ Rational[215, 237]], UndirectedEdge[6952, 9644] -> GrayLevel[ Rational[214, 237]], UndirectedEdge[4250, 8052] -> GrayLevel[ Rational[66, 79]], UndirectedEdge[5178, 8012] -> GrayLevel[ Rational[208, 237]], UndirectedEdge[5907, 7435] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[1452, 4494] -> GrayLevel[ Rational[215, 237]], UndirectedEdge[7319, 8052] -> GrayLevel[ Rational[221, 237]], UndirectedEdge[1652, 7435] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[4972, 7435] -> GrayLevel[ Rational[226, 237]], UndirectedEdge[743, 8012] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[4972, 9878] -> GrayLevel[ Rational[211, 237]], UndirectedEdge[4972, 5279] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[4972, 5273] -> GrayLevel[ Rational[223, 237]], UndirectedEdge[4250, 6809] -> GrayLevel[ Rational[221, 237]], UndirectedEdge[1615, 4250] -> GrayLevel[ Rational[227, 237]], UndirectedEdge[5273, 8011] -> GrayLevel[ Rational[190, 237]], UndirectedEdge[4972, 8011] -> GrayLevel[ Rational[191, 237]], UndirectedEdge[743, 6809] -> GrayLevel[ Rational[224, 237]], UndirectedEdge[2101, 5273] -> GrayLevel[ Rational[75, 79]], UndirectedEdge[607, 1652] -> GrayLevel[ Rational[226, 237]], UndirectedEdge[4494, 5885] -> GrayLevel[ Rational[196, 237]], UndirectedEdge[1452, 9878] -> GrayLevel[ Rational[215, 237]]}, EdgeWeight -> {13, 30, 20, 42, 12, 100, 41, 127, 237, 21, 106, 23, 13, 47, 14, 16, 22, 12, 36, 14, 95, 103, 17, 38, 11, 46, 30, 10, 20, 66, 16, 22, 196, 14, 23, 11, 13, 23, 11, 118, 23, 57, 16, 61, 35, 37, 12, 38, 43, 108, 39, 19, 22, 16, 138, 31, 12, 13, 56, 131, 24, 10, 11, 11, 14, 36, 19, 29, 30, 14, 98, 174, 10, 78, 10, 113, 13, 24, 61, 14, 15, 21, 10, 10, 33, 119, 79, 14, 21, 13, 11, 93, 73, 12, 24, 140, 36, 13, 16, 39, 10, 41, 20, 12, 20, 16, 22, 35, 13, 15, 24, 27, 10, 24, 12, 32, 22, 12, 12, 40, 30, 15, 14, 15, 27, 26, 31, 21, 17, 10}, GraphHighlight -> { UndirectedEdge[743, 3480], UndirectedEdge[3860, 6809], UndirectedEdge[1929, 5885], UndirectedEdge[1652, 8012], UndirectedEdge[4250, 6952], UndirectedEdge[5178, 6905], UndirectedEdge[4972, 8012], UndirectedEdge[1250, 5178], UndirectedEdge[2217, 5885], UndirectedEdge[2101, 5273], UndirectedEdge[488, 5178], UndirectedEdge[5907, 6809], UndirectedEdge[7319, 9878], UndirectedEdge[4972, 8011], UndirectedEdge[743, 5885], UndirectedEdge[1452, 5907], UndirectedEdge[6952, 7435], UndirectedEdge[5178, 5885], UndirectedEdge[6809, 9878], UndirectedEdge[149, 8011], UndirectedEdge[5907, 8012], UndirectedEdge[6952, 9644], UndirectedEdge[488, 1250], UndirectedEdge[1615, 4250], UndirectedEdge[743, 4205], UndirectedEdge[1452, 6991], UndirectedEdge[4250, 9644], UndirectedEdge[5885, 9878], UndirectedEdge[743, 2217], UndirectedEdge[5885, 6905], UndirectedEdge[4250, 6809], UndirectedEdge[1652, 6809], UndirectedEdge[1452, 7435], UndirectedEdge[6952, 8012], UndirectedEdge[1452, 9878], UndirectedEdge[607, 5178], UndirectedEdge[4205, 8012], UndirectedEdge[743, 4429], UndirectedEdge[6905, 6952], UndirectedEdge[4494, 6952], UndirectedEdge[1652, 6952], UndirectedEdge[1652, 8287], UndirectedEdge[7324, 9019], UndirectedEdge[1129, 5273], UndirectedEdge[5907, 7435], UndirectedEdge[7319, 8011], UndirectedEdge[1929, 4972], UndirectedEdge[1929, 6952], UndirectedEdge[4972, 9019], UndirectedEdge[4250, 8012], UndirectedEdge[607, 1652], UndirectedEdge[743, 1542], UndirectedEdge[1452, 1652], UndirectedEdge[4494, 7319], UndirectedEdge[5178, 8012], UndirectedEdge[1452, 6905], UndirectedEdge[1542, 4205], UndirectedEdge[1615, 8012], UndirectedEdge[4250, 6905], UndirectedEdge[5907, 8287], UndirectedEdge[1652, 4205], UndirectedEdge[743, 8012], UndirectedEdge[4972, 7319], UndirectedEdge[4972, 7324], UndirectedEdge[5178, 6952], UndirectedEdge[743, 6809], UndirectedEdge[4494, 8012], UndirectedEdge[4972, 9878], UndirectedEdge[898, 6952], UndirectedEdge[6809, 8011], UndirectedEdge[6809, 7435], UndirectedEdge[607, 898], UndirectedEdge[1652, 5907], UndirectedEdge[7435, 8012], UndirectedEdge[4880, 4972], UndirectedEdge[5907, 6952], UndirectedEdge[4972, 5273], UndirectedEdge[4250, 5178], UndirectedEdge[607, 6952], UndirectedEdge[4250, 8011], UndirectedEdge[743, 6952], UndirectedEdge[743, 5178], UndirectedEdge[1452, 4707], UndirectedEdge[1652, 1929], UndirectedEdge[1652, 5178], UndirectedEdge[5273, 6809], UndirectedEdge[1652, 8011], UndirectedEdge[2101, 5885], UndirectedEdge[1452, 4494], UndirectedEdge[1652, 4250], UndirectedEdge[1452, 1929], UndirectedEdge[2217, 5907], UndirectedEdge[607, 5885], UndirectedEdge[6809, 6952], UndirectedEdge[1652, 5273], UndirectedEdge[1452, 5178], UndirectedEdge[5273, 8011], UndirectedEdge[6991, 7435], UndirectedEdge[4494, 7435], UndirectedEdge[1929, 7435], UndirectedEdge[1452, 8012], UndirectedEdge[1652, 7435], UndirectedEdge[1452, 6952], UndirectedEdge[743, 1652], UndirectedEdge[4972, 7435], UndirectedEdge[488, 8011], UndirectedEdge[607, 8012], UndirectedEdge[4494, 5885], UndirectedEdge[8011, 9019], UndirectedEdge[6809, 7319], UndirectedEdge[607, 6809]}, GraphLayout -> {"Dimension" -> 2}, VertexLabels -> {"Name"}, VertexStyle -> {743 -> GrayLevel[0], 6991 -> GrayLevel[ Rational[349, 396]], 8052 -> GrayLevel[ Rational[181, 198]], 3480 -> GrayLevel[ Rational[331, 396]], 1129 -> GrayLevel[ Rational[94, 99]], 8287 -> GrayLevel[ Rational[79, 99]], 1250 -> GrayLevel[ Rational[217, 264]], 1652 -> GrayLevel[ Rational[67, 396]], 1452 -> GrayLevel[ Rational[29, 88]], 8012 -> GrayLevel[ Rational[167, 396]], 8011 -> GrayLevel[ Rational[535, 792]], 4429 -> GrayLevel[ Rational[257, 264]], 488 -> GrayLevel[ Rational[361, 396]], 7664 -> GrayLevel[ Rational[709, 792]], 4405 -> GrayLevel[ Rational[775, 792]], 7324 -> GrayLevel[ Rational[371, 396]], 607 -> GrayLevel[ Rational[179, 264]], 555 -> GrayLevel[ Rational[85, 88]], 1403 -> GrayLevel[ Rational[641, 792]], 9644 -> GrayLevel[ Rational[379, 396]], 1610 -> GrayLevel[ Rational[95, 99]], 1542 -> GrayLevel[ Rational[53, 66]], 7435 -> GrayLevel[ Rational[515, 792]], 999 -> GrayLevel[ Rational[761, 792]], 4250 -> GrayLevel[ Rational[221, 396]], 2217 -> GrayLevel[ Rational[641, 792]], 898 -> GrayLevel[ Rational[673, 792]], 3860 -> GrayLevel[ Rational[679, 792]], 6905 -> GrayLevel[ Rational[7, 9]], 149 -> GrayLevel[ Rational[391, 396]], 9019 -> GrayLevel[ Rational[631, 792]], 4205 -> GrayLevel[ Rational[151, 264]], 3780 -> GrayLevel[ Rational[673, 792]], 4707 -> GrayLevel[ Rational[259, 264]], 4880 -> GrayLevel[ Rational[689, 792]], 1615 -> GrayLevel[ Rational[703, 792]], 7319 -> GrayLevel[ Rational[581, 792]], 4494 -> GrayLevel[ Rational[3, 4]], 5279 -> GrayLevel[ Rational[371, 396]], 5885 -> GrayLevel[ Rational[437, 792]], 2101 -> GrayLevel[ Rational[95, 99]], 5273 -> GrayLevel[ Rational[76, 99]], 6809 -> GrayLevel[ Rational[469, 792]], 9878 -> GrayLevel[ Rational[685, 792]], 1929 -> GrayLevel[ Rational[39, 44]], 6952 -> GrayLevel[ Rational[119, 792]], 1146 -> GrayLevel[ Rational[343, 396]], 5178 -> GrayLevel[ Rational[4, 11]], 5907 -> GrayLevel[ Rational[241, 396]], 4972 -> GrayLevel[ Rational[107, 264]]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {GrayLevel[ NCache[ Rational[224, 237], 0.9451476793248945]], LineBox[{{2.115543039152236, 2.0628185435026767`}, { 1.908518628513834, 2.6339403953581484`}}]}, {GrayLevel[ NCache[ Rational[69, 79], 0.8734177215189873]], LineBox[{{2.115543039152236, 2.0628185435026767`}, { 3.1346678583378504`, 2.6470127480770165`}}]}, {GrayLevel[ NCache[ Rational[75, 79], 0.9493670886075949]], LineBox[{{2.115543039152236, 2.0628185435026767`}, { 1.6566766146031886`, 2.3923339961611485`}}]}, {GrayLevel[ NCache[ Rational[75, 79], 0.9493670886075949]], LineBox[{{2.115543039152236, 2.0628185435026767`}, { 2.8497530967524005`, 1.530024202849447}}]}, {GrayLevel[ NCache[ Rational[66, 79], 0.8354430379746836]], LineBox[{{2.115543039152236, 2.0628185435026767`}, { 2.585696215956411, 1.658399454495948}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.908518628513834, 2.6339403953581484`}, { 2.790616598133171, 2.7786192877179827`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.908518628513834, 2.6339403953581484`}, { 2.752640914793099, 2.258822279543445}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.908518628513834, 2.6339403953581484`}, { 1.6566766146031886`, 2.3923339961611485`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.908518628513834, 2.6339403953581484`}, { 1.3580492433518554`, 2.1125406473364947`}}]}, {GrayLevel[ NCache[ Rational[221, 237], 0.9324894514767933]], LineBox[{{1.908518628513834, 2.6339403953581484`}, { 1.4996647605008138`, 2.6510293887008882`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.908518628513834, 2.6339403953581484`}, { 2.233601453834779, 2.477600962050863}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 2.4347435612454333`, 3.773820673105155}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 3.927424506909598, 3.341523645534261}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 2.752640914793099, 2.258822279543445}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 4.171608771395273, 2.8335169859093186`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 2.4833398158424904`, 2.1472669903507877`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 3.3394005380211054`, 1.609620989452162}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 3.759174995105831, 2.2840938139276425`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1346678583378504`, 2.6470127480770165`}, { 2.233601453834779, 2.477600962050863}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 2.790616598133171, 2.7786192877179827`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 1.861630623572972, 3.199378907033352}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 4.171608771395273, 2.8335169859093186`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 4.240915848938334, 2.507516639535947}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 3.5323864604500335`, 1.9607881854862055`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 3.1431218032594517`, 2.0186238029618524`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 1.6566766146031886`, 2.3923339961611485`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 2.8497530967524005`, 1.530024202849447}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 2.4833398158424904`, 2.1472669903507877`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 3.379343403496603, 2.5846421631543244`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 3.45525438996884, 3.4962917917429888`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 2.585696215956411, 1.658399454495948}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.0613676848615663`, 2.4177450406486196`}, { 3.759174995105831, 2.2840938139276425`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 1.861630623572972, 3.199378907033352}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 4.171608771395273, 2.8335169859093186`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 3.5323864604500335`, 1.9607881854862055`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 1.6566766146031886`, 2.3923339961611485`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 3.379343403496603, 2.5846421631543244`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 2.585696215956411, 1.658399454495948}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 3.759174995105831, 2.2840938139276425`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 2.836715116896876, 4.261515481506546}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.790616598133171, 2.7786192877179827`}, { 2.233601453834779, 2.477600962050863}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.861630623572972, 3.199378907033352}, { 2.4347435612454333`, 3.773820673105155}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.861630623572972, 3.199378907033352}, { 1.6566766146031886`, 2.3923339961611485`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.861630623572972, 3.199378907033352}, { 1.3580492433518554`, 2.1125406473364947`}}]}, {GrayLevel[ NCache[ Rational[224, 237], 0.9451476793248945]], LineBox[{{1.861630623572972, 3.199378907033352}, { 1.4996647605008138`, 2.6510293887008882`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.861630623572972, 3.199378907033352}, { 1.1375417734724396`, 4.3707162341673715`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.927424506909598, 3.341523645534261}, {4.171608771395273, 2.8335169859093186`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.927424506909598, 3.341523645534261}, {3.379343403496603, 2.5846421631543244`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.752640914793099, 2.258822279543445}, { 3.5323864604500335`, 1.9607881854862055`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.752640914793099, 2.258822279543445}, { 3.1431218032594517`, 2.0186238029618524`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.752640914793099, 2.258822279543445}, { 2.8497530967524005`, 1.530024202849447}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.752640914793099, 2.258822279543445}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {GrayLevel[ NCache[ Rational[110, 237], 0.4641350210970464]], LineBox[{{4.171608771395273, 2.8335169859093186`}, {5.01033462246483, 3.9341326930645972`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.171608771395273, 2.8335169859093186`}, { 4.240915848938334, 2.507516639535947}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.171608771395273, 2.8335169859093186`}, {5.27990425358853, 3.68677359345517}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.171608771395273, 2.8335169859093186`}, { 3.5323864604500335`, 1.9607881854862055`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.171608771395273, 2.8335169859093186`}, { 3.1431218032594517`, 2.0186238029618524`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.171608771395273, 2.8335169859093186`}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.171608771395273, 2.8335169859093186`}, { 5.128411413460875, 2.854944905050802}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.171608771395273, 2.8335169859093186`}, { 5.555250167303243, 3.2298827071259577`}}]}, {GrayLevel[ NCache[ Rational[71, 79], 0.8987341772151899]], LineBox[{{5.01033462246483, 3.9341326930645972`}, {5.27990425358853, 3.68677359345517}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.240915848938334, 2.507516639535947}, { 3.1431218032594517`, 2.0186238029618524`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.240915848938334, 2.507516639535947}, {5.128411413460875, 2.854944905050802}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 3.1431218032594517`, 2.0186238029618524`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 2.8497530967524005`, 1.530024202849447}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 2.4833398158424904`, 2.1472669903507877`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 3.379343403496603, 2.5846421631543244`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 3.5864386897916134`, 0.980445959155053}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 2.585696215956411, 1.658399454495948}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 3.3394005380211054`, 1.609620989452162}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 4.63231858334224, 1.983521196973392}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 3.759174995105831, 2.2840938139276425`}}]}, {GrayLevel[ NCache[ Rational[70, 79], 0.8860759493670886]], LineBox[{{3.5323864604500335`, 1.9607881854862055`}, { 4.908081274609965, 1.4698547520268581`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 1.3580492433518554`, 2.1125406473364947`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 2.8497530967524005`, 1.530024202849447}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 3.379343403496603, 2.5846421631543244`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 2.585696215956411, 1.658399454495948}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 3.759174995105831, 2.2840938139276425`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.1431218032594517`, 2.0186238029618524`}, { 3.0426305943570555`, 0.9051199326861772}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.6566766146031886`, 2.3923339961611485`}, { 1.3580492433518554`, 2.1125406473364947`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.6566766146031886`, 2.3923339961611485`}, { 0.5068605653623002, 2.1909329566824614`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.6566766146031886`, 2.3923339961611485`}, { 2.559522413680018, 1.13809522364013}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.6566766146031886`, 2.3923339961611485`}, { 2.585696215956411, 1.658399454495948}}]}, {GrayLevel[ NCache[ Rational[205, 237], 0.8649789029535865]], LineBox[{{1.6566766146031886`, 2.3923339961611485`}, { 0.36357940639081177`, 2.9505580679121683`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.6566766146031886`, 2.3923339961611485`}, { 0.6267174418687622, 3.3298729397918203`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.3580492433518554`, 2.1125406473364947`}, {0., 2.2897337015988253`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.3580492433518554`, 2.1125406473364947`}, { 0.5068605653623002, 2.1909329566824614`}}]}, {GrayLevel[ NCache[ Rational[223, 237], 0.9409282700421941]], LineBox[{{1.3580492433518554`, 2.1125406473364947`}, { 0.06321172247448592, 1.8529329490757083`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.3580492433518554`, 2.1125406473364947`}, { 0.1777325304598496, 1.334275274385586}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.3580492433518554`, 2.1125406473364947`}, { 2.4833398158424904`, 2.1472669903507877`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.3580492433518554`, 2.1125406473364947`}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{1.3580492433518554`, 2.1125406473364947`}, { 2.233601453834779, 2.477600962050863}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 2.4833398158424904`, 2.1472669903507877`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 3.379343403496603, 2.5846421631543244`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 3.3394005380211054`, 1.609620989452162}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 2.112473722118936, 0.8539517047491889}}]}, {GrayLevel[ NCache[ Rational[164, 237], 0.6919831223628692]], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 2.5203984401941004`, 0.6457731327543823}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 2.233601453834779, 2.477600962050863}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.8497530967524005`, 1.530024202849447}, { 3.0349669471631047`, 0.}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{0., 2.2897337015988253`}, {0.5068605653623002, 2.1909329566824614`}}]}, {GrayLevel[ NCache[ Rational[67, 79], 0.8481012658227848]], LineBox[{{0.5068605653623002, 2.1909329566824614`}, { 0.06321172247448592, 1.8529329490757083`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.4833398158424904`, 2.1472669903507877`}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.559522413680018, 1.13809522364013}, {3.347015178474344, 0.40544960787627726`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.559522413680018, 1.13809522364013}, {3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.379343403496603, 2.5846421631543244`}, {3.45525438996884, 3.4962917917429888`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.379343403496603, 2.5846421631543244`}, { 2.5685744740055436`, 1.8401913432642338`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.5685744740055436`, 1.8401913432642338`}, { 2.112473722118936, 0.8539517047491889}}]}, {GrayLevel[ NCache[ Rational[227, 237], 0.9578059071729957]], LineBox[{{2.5685744740055436`, 1.8401913432642338`}, { 2.5203984401941004`, 0.6457731327543823}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.5864386897916134`, 0.980445959155053}, { 2.585696215956411, 1.658399454495948}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.585696215956411, 1.658399454495948}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.585696215956411, 1.658399454495948}, { 3.3394005380211054`, 1.609620989452162}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{2.585696215956411, 1.658399454495948}, { 3.0426305943570555`, 0.9051199326861772}}]}, {GrayLevel[ NCache[ Rational[66, 79], 0.8354430379746836]], LineBox[{{2.585696215956411, 1.658399454495948}, { 1.4996647605008138`, 2.6510293887008882`}}]}, {GrayLevel[ NCache[ Rational[206, 237], 0.869198312236287]], LineBox[{{2.585696215956411, 1.658399454495948}, { 1.6747131364417198`, 0.44856441237844735`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.347015178474344, 0.40544960787627726`}, { 3.6703336327530085`, 1.5004101977543813`}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.6703336327530085`, 1.5004101977543813`}, { 3.3394005380211054`, 1.609620989452162}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{3.6703336327530085`, 1.5004101977543813`}, { 3.759174995105831, 2.2840938139276425`}}]}, {GrayLevel[ NCache[ Rational[118, 237], 0.4978902953586498]], LineBox[{{3.6703336327530085`, 1.5004101977543813`}, { 4.491057658880921, 0.31976611457832105`}}]}, {GrayLevel[ NCache[ Rational[220, 237], 0.9282700421940928]], LineBox[{{3.6703336327530085`, 1.5004101977543813`}, { 4.854317571361642, 0.6858425063347129}}]}, {Hue[1, 1, 0.7], Opacity[1], LineBox[{{4.63231858334224, 1.983521196973392}, {3.759174995105831, 2.2840938139276425`}}]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {GrayLevel[ NCache[ Rational[343, 396], 0.8661616161616161]], DiskBox[{2.115543039152236, 2.0628185435026767}, 0.04613222458173305]}, InsetBox["1146", Offset[{2, 2}, {2.1616752637339687, 2.1089507680844095}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[581, 792], 0.7335858585858586]], DiskBox[{1.908518628513834, 2.6339403953581484}, 0.04613222458173305]}, InsetBox["7319", Offset[{2, 2}, {1.954650853095567, 2.6800726199398817}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[437, 792], 0.5517676767676768]], DiskBox[{3.1346678583378504, 2.6470127480770165}, 0.04613222458173305]}, InsetBox["5885", Offset[{2, 2}, {3.1808000829195837, 2.6931449726587493}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[67, 396], 0.1691919191919192]], DiskBox[{3.0613676848615663, 2.4177450406486196}, 0.04613222458173305]}, InsetBox["1652", Offset[{2, 2}, {3.107499909443299, 2.4638772652303524}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[469, 792], 0.5921717171717171]], DiskBox[{2.790616598133171, 2.7786192877179827}, 0.04613222458173305]}, InsetBox["6809", Offset[{2, 2}, {2.8367488227149043, 2.8247515122997156}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[76, 99], 0.7676767676767676]], DiskBox[{1.861630623572972, 3.199378907033352}, 0.04613222458173305]}, InsetBox["5273", Offset[{2, 2}, {1.907762848154705, 3.2455111316150846}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[95, 99], 0.9595959595959596]], DiskBox[{2.4347435612454333, 3.773820673105155}, 0.04613222458173305]}, InsetBox["2101", Offset[{2, 2}, {2.480875785827166, 3.819952897686888}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[641, 792], 0.8093434343434344]], DiskBox[{3.927424506909598, 3.341523645534261}, 0.04613222458173305]}, InsetBox["2217", Offset[{2, 2}, {3.973556731491331, 3.387655870115994}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[3, 4], 0.75]], DiskBox[{2.752640914793099, 2.258822279543445}, 0.04613222458173305]}, InsetBox["4494", Offset[{2, 2}, {2.7987731393748323, 2.3049545041251784}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0], DiskBox[{4.171608771395273, 2.8335169859093186}, 0.04613222458173305]}, InsetBox["743", Offset[{2, 2}, {4.217740995977006, 2.879649210491052}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[641, 792], 0.8093434343434344]], DiskBox[{5.01033462246483, 3.9341326930645972}, 0.04613222458173305]}, InsetBox["1403", Offset[{2, 2}, {5.056466847046563, 3.9802649176463305}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[151, 264], 0.571969696969697]], DiskBox[{4.240915848938334, 2.507516639535947}, 0.04613222458173305]}, InsetBox["4205", Offset[{2, 2}, {4.287048073520067, 2.5536488641176804}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[331, 396], 0.8358585858585859]], DiskBox[{5.27990425358853, 3.68677359345517}, 0.04613222458173305]}, InsetBox["3480", Offset[{2, 2}, {5.326036478170263, 3.732905818036903}], ImageScaled[ {0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[119, 792], 0.15025252525252525`]], DiskBox[{3.5323864604500335, 1.9607881854862055}, 0.04613222458173305]}, InsetBox["6952", Offset[{2, 2}, {3.5785186850317663, 2.0069204100679388}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[167, 396], 0.4217171717171717]], DiskBox[{3.1431218032594517, 2.0186238029618524}, 0.04613222458173305]}, InsetBox["8012", Offset[{2, 2}, {3.1892540278411845, 2.0647560275435852}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[535, 792], 0.6755050505050505]], DiskBox[{1.6566766146031886, 2.3923339961611485}, 0.04613222458173305]}, InsetBox["8011", Offset[{2, 2}, {1.7028088391849217, 2.4384662207428818}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[107, 264], 0.4053030303030303]], DiskBox[{1.3580492433518554, 2.1125406473364947}, 0.04613222458173305]}, InsetBox["4972", Offset[{2, 2}, {1.4041814679335884, 2.1586728719182275}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[29, 88], 0.32954545454545453`]], DiskBox[{2.8497530967524005, 1.530024202849447}, 0.04613222458173305]}, InsetBox["1452", Offset[{2, 2}, {2.8958853213341333, 1.5761564274311801}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[371, 396], 0.9368686868686869]], DiskBox[{0., 2.2897337015988253}, 0.04613222458173305]}, InsetBox["7324", Offset[{2, 2}, {0.04613222458173305, 2.335865926180558}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[631, 792], 0.7967171717171717]], DiskBox[{0.5068605653623002, 2.1909329566824614}, 0.04613222458173305]}, InsetBox["9019", Offset[{2, 2}, {0.5529927899440332, 2.237065181264194}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[371, 396], 0.9368686868686869]], DiskBox[{0.06321172247448592, 1.8529329490757083}, 0.04613222458173305]}, InsetBox["5279", Offset[{2, 2}, {0.10934394705621897, 1.8990651736574413}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[689, 792], 0.8699494949494949]], DiskBox[{0.1777325304598496, 1.334275274385586}, 0.04613222458173305]}, InsetBox["4880", Offset[{2, 2}, {0.22386475504158265, 1.380407498967319}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[39, 44], 0.8863636363636364]], DiskBox[{2.4833398158424904, 2.1472669903507877}, 0.04613222458173305]}, InsetBox["1929", Offset[{2, 2}, {2.5294720404242232, 2.193399214932521}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[361, 396], 0.9116161616161617]], DiskBox[{2.559522413680018, 1.13809522364013}, 0.04613222458173305]}, InsetBox["488", Offset[{2, 2}, {2.6056546382617514, 1.184227448221863}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[241, 396], 0.6085858585858586]], DiskBox[{3.379343403496603, 2.5846421631543244}, 0.04613222458173305]}, InsetBox["5907", Offset[{2, 2}, {3.4254756280783356, 2.630774387736057}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[79, 99], 0.797979797979798]], DiskBox[{3.45525438996884, 3.4962917917429888}, 0.04613222458173305]}, InsetBox["8287", Offset[{2, 2}, {3.501386614550573, 3.5424240163247216}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[515, 792], 0.6502525252525253]], DiskBox[{2.5685744740055436, 1.8401913432642338}, 0.04613222458173305]}, InsetBox["7435", Offset[{2, 2}, {2.614706698587277, 1.8863235678459669}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[379, 396], 0.9570707070707071]], DiskBox[{3.5864386897916134, 0.980445959155053}, 0.04613222458173305]}, InsetBox["9644", Offset[{2, 2}, {3.6325709143733462, 1.026578183736786}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[221, 396], 0.5580808080808081]], DiskBox[{2.585696215956411, 1.658399454495948}, 0.04613222458173305]}, InsetBox["4250", Offset[{2, 2}, {2.6318284405381442, 1.704531679077681}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[217, 264], 0.821969696969697]], DiskBox[{3.347015178474344, 0.40544960787627726}, 0.04613222458173305]}, InsetBox["1250", Offset[{2, 2}, {3.3931474030560773, 0.4515818324580103}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[4, 11], 0.36363636363636365`]], DiskBox[{3.6703336327530085, 1.5004101977543813}, 0.04613222458173305]}, InsetBox["5178", Offset[{2, 2}, {3.7164658573347413, 1.5465424223361144}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[7, 9], 0.7777777777777778]], DiskBox[{3.3394005380211054, 1.609620989452162}, 0.04613222458173305]}, InsetBox["6905", Offset[{2, 2}, {3.385532762602838, 1.655753214033895}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[349, 396], 0.8813131313131313]], DiskBox[{2.112473722118936, 0.8539517047491889}, 0.04613222458173305]}, InsetBox["6991", Offset[{2, 2}, {2.1586059467006686, 0.900083929330922}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[673, 792], 0.8497474747474747]], DiskBox[{4.63231858334224, 1.983521196973392}, 0.04613222458173305]}, InsetBox["898", Offset[{2, 2}, {4.678450807923973, 2.0296534215551247}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[179, 264], 0.678030303030303]], DiskBox[{3.759174995105831, 2.2840938139276425}, 0.04613222458173305]}, InsetBox["607", Offset[{2, 2}, {3.805307219687564, 2.330226038509376}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[679, 792], 0.8573232323232324]], DiskBox[{2.836715116896876, 4.261515481506546}, 0.04613222458173305]}, InsetBox["3860", Offset[{2, 2}, {2.882847341478609, 4.307647706088279}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[673, 792], 0.8497474747474747]], DiskBox[{4.491057658880921, 0.31976611457832105}, 0.04613222458173305]}, InsetBox["3780", Offset[{2, 2}, {4.537189883462654, 0.3658983391600541}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[703, 792], 0.8876262626262627]], DiskBox[{3.0426305943570555, 0.9051199326861772}, 0.04613222458173305]}, InsetBox["1615", Offset[{2, 2}, {3.088762818938789, 0.9512521572679102}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[709, 792], 0.8952020202020202]], DiskBox[{2.5203984401941004, 0.6457731327543823}, 0.04613222458173305]}, InsetBox["7664", Offset[{2, 2}, {2.5665306647758337, 0.6919053573361154}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[53, 66], 0.803030303030303]], DiskBox[{5.128411413460875, 2.854944905050802}, 0.04613222458173305]}, InsetBox["1542", Offset[{2, 2}, {5.174543638042608, 2.901077129632535}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[181, 198], 0.9141414141414141]], DiskBox[{1.4996647605008138, 2.6510293887008882}, 0.04613222458173305]}, InsetBox["8052", Offset[{2, 2}, {1.5457969850825468, 2.6971616132826215}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[95, 99], 0.9595959595959596]], DiskBox[{0.36357940639081177, 2.9505580679121683}, 0.04613222458173305]}, InsetBox["1610", Offset[{2, 2}, {0.4097116309725448, 2.996690292493901}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[685, 792], 0.86489898989899]], DiskBox[{2.233601453834779, 2.477600962050863}, 0.04613222458173305]}, InsetBox["9878", Offset[{2, 2}, {2.2797336784165116, 2.5237331866325965}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[94, 99], 0.9494949494949495]], DiskBox[{1.1375417734724396, 4.3707162341673715}, 0.04613222458173305]}, InsetBox["1129", Offset[{2, 2}, {1.1836739980541726, 4.416848458749104}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[259, 264], 0.9810606060606061]], DiskBox[{3.0349669471631047, 0.}, 0.04613222458173305]}, InsetBox["4707", Offset[{2, 2}, {3.081099171744838, 0.04613222458173305}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[85, 88], 0.9659090909090909]], DiskBox[{4.908081274609965, 1.4698547520268581}, 0.04613222458173305]}, InsetBox["555", Offset[{2, 2}, {4.954213499191698, 1.5159869766085912}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[761, 792], 0.9608585858585859]], DiskBox[{1.6747131364417198, 0.44856441237844735}, 0.04613222458173305]}, InsetBox["999", Offset[{2, 2}, {1.7208453610234529, 0.4946966369601804}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[257, 264], 0.9734848484848485]], DiskBox[{5.555250167303243, 3.2298827071259577}, 0.04613222458173305]}, InsetBox["4429", Offset[{2, 2}, {5.601382391884976, 3.2760149317076905}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[775, 792], 0.9785353535353535]], DiskBox[{4.854317571361642, 0.6858425063347129}, 0.04613222458173305]}, InsetBox["4405", Offset[{2, 2}, {4.900449795943375, 0.7319747309164459}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ NCache[ Rational[391, 396], 0.9873737373737373]], DiskBox[{0.6267174418687622, 3.3298729397918203}, 0.04613222458173305]}, InsetBox["149", Offset[{2, 2}, {0.6728496664504953, 3.376005164373553}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.7505244011606627`*^9, 3.750524422053951*^9}, 3.7505246158879757`*^9, 3.7507006472444844`*^9, 3.7507020136371565`*^9, 3.7507030418505993`*^9, 3.7512460315690527`*^9, 3.7512461302488775`*^9, 3.7512463400599213`*^9, 3.7512843629861794`*^9, 3.751299691870532*^9, 3.751300726587773*^9, 3.753705830778249*^9, 3.7542674764472322`*^9, 3.754695134824976*^9, 3.754776280606584*^9, 3.7547776422330294`*^9, 3.7574372632408113`*^9, 3.757515110863741*^9, 3.7575923239628897`*^9, 3.7575934246428576`*^9, 3.7575938136801867`*^9, 3.7575944068381653`*^9, 3.7575949055991783`*^9, 3.757595513541356*^9, 3.757596042821663*^9, 3.7576331509508104`*^9, 3.757634353835376*^9, 3.757634837407942*^9, 3.7576351663809094`*^9, 3.8303407706485386`*^9}, CellLabel->"Out[42]=",ExpressionUUID->"39eb052c-861f-44ea-8bc9-9c124bfc2bb5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"broken", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"EdgeList", "[", "graph", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "exp1", "]"}], ",", RowBox[{"EdgeList", "[", "exp2", "]"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "bonds", " ", "that", " ", "broke", " ", "during", " ", "fission"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.750700031147353*^9, 3.750700070296363*^9}, { 3.7507001034427614`*^9, 3.750700107265873*^9}, {3.7507005132145367`*^9, 3.750700531385273*^9}, 3.7575923085055094`*^9, 3.757633102094254*^9, 3.757634340195679*^9, 3.7576348265374413`*^9, 3.757635158925519*^9, { 3.8302457422305307`*^9, 3.8302457470994625`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"31bb6346-c66e-4167-8773-54537b6f13c7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"555", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"743", "\[UndirectedEdge]", "1403"}], ",", RowBox[{"999", "\[UndirectedEdge]", "4250"}], ",", RowBox[{"1146", "\[UndirectedEdge]", "1452"}], ",", RowBox[{"1146", "\[UndirectedEdge]", "4250"}], ",", RowBox[{"1146", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"1146", "\[UndirectedEdge]", "7319"}], ",", RowBox[{"1146", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"1403", "\[UndirectedEdge]", "3480"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "7664"}], ",", RowBox[{"1610", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"3780", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "8052"}], ",", RowBox[{"4405", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "5279"}], ",", RowBox[{"5273", "\[UndirectedEdge]", "8052"}], ",", RowBox[{"5279", "\[UndirectedEdge]", "9019"}], ",", RowBox[{"7319", "\[UndirectedEdge]", "8052"}], ",", RowBox[{"7435", "\[UndirectedEdge]", "7664"}]}], "}"}]], "Output", CellChangeTimes->{{3.7507000509468594`*^9, 3.7507000708998623`*^9}, 3.75070010894396*^9, 3.7507020136778803`*^9, 3.750703041869955*^9, 3.751246031600295*^9, 3.7512461302728376`*^9, 3.7512463400895786`*^9, 3.7512843630364084`*^9, 3.751299691908293*^9, 3.751300726634637*^9, 3.7537058308083425`*^9, 3.7542674765021296`*^9, 3.754695134847103*^9, 3.7547762806580715`*^9, 3.754777642276121*^9, 3.757437263274801*^9, 3.7575151109451256`*^9, 3.7575923240307775`*^9, 3.757593426974121*^9, 3.75759381573067*^9, 3.7575944090385857`*^9, 3.757594907333145*^9, 3.757595515275367*^9, 3.7575960445400066`*^9, 3.75763315100118*^9, 3.757634353875064*^9, 3.7576348374422026`*^9, 3.757635166420407*^9, 3.830340772467568*^9}, CellLabel->"Out[43]=",ExpressionUUID->"ebe28d61-916c-4d7f-9ed9-683f4af4e503"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"maintained", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "exp1", "]"}], ",", RowBox[{"EdgeList", "[", "exp2", "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "bonds", " ", "that", " ", "were", " ", "maintained", " ", "through", " ", "fission"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7507001139426684`*^9, 3.750700126825451*^9}, { 3.750700534046118*^9, 3.750700543664417*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"2eb12b2a-04c0-4548-85b6-1f6cd221c1ab"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"743", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"743", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"743", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"6952", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"743", "\[UndirectedEdge]", "1652"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "1652"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "4250"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"5178", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"743", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"5178", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"743", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"7435", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"5178", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"6952", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"5273", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "5273"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "5273"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "7319"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "7319"}], ",", RowBox[{"5273", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"7319", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"607", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"607", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"607", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"607", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"607", "\[UndirectedEdge]", "1652"}], ",", RowBox[{"607", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"5907", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "5907"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "5907"}], ",", RowBox[{"5907", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"5907", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"5907", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"2217", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"743", "\[UndirectedEdge]", "2217"}], ",", RowBox[{"2217", "\[UndirectedEdge]", "5907"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "4707"}], ",", RowBox[{"743", "\[UndirectedEdge]", "4205"}], ",", RowBox[{"4205", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "4205"}], ",", RowBox[{"149", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"5178", "\[UndirectedEdge]", "6905"}], ",", RowBox[{"5885", "\[UndirectedEdge]", "6905"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "6905"}], ",", RowBox[{"6905", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "6905"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"7319", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"5885", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"4494", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "4494"}], ",", RowBox[{"4494", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"4494", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"4494", "\[UndirectedEdge]", "7319"}], ",", RowBox[{"4494", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"1929", "\[UndirectedEdge]", "4972"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "1929"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "1929"}], ",", RowBox[{"1929", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"1929", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"1929", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"2101", "\[UndirectedEdge]", "5273"}], ",", RowBox[{"2101", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"6952", "\[UndirectedEdge]", "9644"}], ",", RowBox[{"4250", "\[UndirectedEdge]", "9644"}], ",", RowBox[{"488", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"488", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"743", "\[UndirectedEdge]", "3480"}], ",", RowBox[{"1250", "\[UndirectedEdge]", "5178"}], ",", RowBox[{"488", "\[UndirectedEdge]", "1250"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "7324"}], ",", RowBox[{"5907", "\[UndirectedEdge]", "8287"}], ",", RowBox[{"1652", "\[UndirectedEdge]", "8287"}], ",", RowBox[{"1452", "\[UndirectedEdge]", "6991"}], ",", RowBox[{"6991", "\[UndirectedEdge]", "7435"}], ",", RowBox[{"4880", "\[UndirectedEdge]", "4972"}], ",", RowBox[{"898", "\[UndirectedEdge]", "6952"}], ",", RowBox[{"607", "\[UndirectedEdge]", "898"}], ",", RowBox[{"1615", "\[UndirectedEdge]", "8012"}], ",", RowBox[{"1615", "\[UndirectedEdge]", "4250"}], ",", RowBox[{"743", "\[UndirectedEdge]", "1542"}], ",", RowBox[{"1542", "\[UndirectedEdge]", "4205"}], ",", RowBox[{"1129", "\[UndirectedEdge]", "5273"}], ",", RowBox[{"743", "\[UndirectedEdge]", "4429"}], ",", RowBox[{"2217", "\[UndirectedEdge]", "5885"}], ",", RowBox[{"5273", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "5273"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "7319"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "7319"}], ",", RowBox[{"5273", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"7319", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "9019"}], ",", RowBox[{"8011", "\[UndirectedEdge]", "9019"}], ",", RowBox[{"3860", "\[UndirectedEdge]", "6809"}], ",", RowBox[{"149", "\[UndirectedEdge]", "8011"}], ",", RowBox[{"7319", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"5885", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"6809", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "9878"}], ",", RowBox[{"7324", "\[UndirectedEdge]", "9019"}], ",", RowBox[{"4972", "\[UndirectedEdge]", "7324"}], ",", RowBox[{"4880", "\[UndirectedEdge]", "4972"}], ",", RowBox[{"1129", "\[UndirectedEdge]", "5273"}]}], "}"}]], "Output", CellChangeTimes->{3.7507001281499543`*^9, 3.7507020136985197`*^9, 3.750703041887727*^9, 3.751246031617335*^9, 3.7512461302917256`*^9, 3.7512463401103115`*^9, 3.751284363069033*^9, 3.751299691955157*^9, 3.751300726672392*^9, 3.7537058308399253`*^9, 3.7542674765389676`*^9, 3.7546951348783503`*^9, 3.754776280692151*^9, 3.7547776423032274`*^9, 3.757437263304467*^9, 3.7575151109718094`*^9, 3.7575923241078153`*^9, 3.757593429563835*^9, 3.7575938179862456`*^9, 3.757594411271554*^9, 3.7575949090303173`*^9, 3.757595517056155*^9, 3.7575960462427464`*^9, 3.7576331510488014`*^9, 3.7576343539262104`*^9, 3.7576348374785123`*^9, 3.7576351664446826`*^9, 3.8303407736076083`*^9}, CellLabel->"Out[44]=",ExpressionUUID->"233d009d-51bf-4d4a-ac0c-3419a37ce1b3"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"actualbroken", "=", "broken"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"actualmaintained", "=", "maintained"}], ";"}]}], "Input", CellChangeTimes->{{3.7507016431940413`*^9, 3.7507016581102943`*^9}}, CellLabel-> "In[728]:=",ExpressionUUID->"e992dc43-7f38-458e-803a-b34d01bcefbb"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Run Despotism", "Section", CellChangeTimes->{{3.7512453534950676`*^9, 3.751245355342357*^9}, { 3.83024576709344*^9, 3.8302457675622673`*^9}},ExpressionUUID->"e165b4b9-8009-4bf8-8277-\ 6bd66594e701"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dynamic", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.7547762877446065`*^9, 3.7547762893008337`*^9}}, CellLabel-> "In[730]:=",ExpressionUUID->"4fe2a4ec-c75a-4f61-9101-2735e3c89b10"], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`t, StandardForm], ImageSizeCache->{7., {0., 8.}}]], "Output", CellChangeTimes->{3.7547762904688787`*^9, 3.7547776452991433`*^9, 3.7575157122511396`*^9, 3.7575923267837615`*^9, 3.757593457700678*^9, 3.7575938442517977`*^9, 3.757594436715626*^9, 3.75759492961957*^9, 3.7575953843383493`*^9, 3.757595538490164*^9, 3.757596199720706*^9, 3.757633154126264*^9, 3.757634354892557*^9, 3.7576348382765656`*^9, 3.757635167121215*^9}, CellLabel-> "Out[730]=",ExpressionUUID->"3b975aa7-608b-46e9-84a0-184752921bbb"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"despotalg", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "list0", ",", "list1", ",", "list2", ",", "list3", ",", "list4", ",", "list5", ",", "list6", ",", "list7", ",", "list8", ",", "list9", ",", "list10", ",", "list11", ",", "list12", ",", "list13", ",", "list14", ",", "list15"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"despot", "=", RowBox[{ RowBox[{"TakeLargestBy", "[", RowBox[{"deg", ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "1"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"identify", " ", "despot"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"n1", "=", RowBox[{"{", RowBox[{"despot", "[", RowBox[{"[", "1", "]"}], "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"list0", "=", "n1"}], ";", "\[IndentingNewLine]", RowBox[{"unweighted", "=", RowBox[{"Graph", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "1", ",", "1"}], "]"}], "]"}], "\[TwoWayRule]", RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"i", ",", "1", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ "create", " ", "graph", " ", "with", " ", "unweighted", " ", "edges"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"rescaled", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{ RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{ RowBox[{"Log", "[", RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{"Max", "[", RowBox[{"Log", "[", RowBox[{"strongbonds", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "]"}], ",", "2"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"log", " ", "transform", " ", "edge", " ", "weights"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"count", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{"ConnectedGraphQ", "[", "unweighted", "]"}], ",", RowBox[{"(*", " ", RowBox[{ "loop", " ", "as", " ", "long", " ", "as", " ", "unweighted", " ", "graph", " ", "connected"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"paths", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"FindPath", "[", RowBox[{"unweighted", ",", RowBox[{"despot", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Complement", "[", RowBox[{ RowBox[{"VertexList", "[", "unweighted", "]"}], ",", "n1"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "count", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Complement", "[", RowBox[{ RowBox[{"VertexList", "[", "unweighted", "]"}], ",", "n1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ "identify", " ", "individuals", " ", "distance", " ", "count", " ", "from", " ", "despot"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"paths", "\[Equal]", RowBox[{"{", "}"}]}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"pathweights", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"paths", ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Product", "[", RowBox[{ RowBox[{ RowBox[{"Select", "[", RowBox[{"rescaled", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"paths", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"paths", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"paths", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"paths", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ")"}]}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "count"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "paths", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], ",", "2"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ "path", " ", "weights", " ", "from", " ", "despots", " ", "and", " ", "connected", " ", "individuals"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"prob", "=", "pathweights"}], ";", "\[IndentingNewLine]", RowBox[{"n1", "=", RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"DeleteDuplicates", "[", RowBox[{"Join", "[", RowBox[{"n1", ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{"BinomialDistribution", "[", RowBox[{"1", ",", RowBox[{"prob", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "*", RowBox[{"prob", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "prob", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], "]"}], ",", "0"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"break", " ", "bonds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Symbol", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "count", "]"}]}], "]"}], "]"}], "=", "n1"}], ";", "\[IndentingNewLine]", RowBox[{"unweighted", "=", RowBox[{"Graph", "[", RowBox[{"Complement", "[", RowBox[{ RowBox[{"EdgeList", "[", "unweighted", "]"}], ",", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"EdgeList", "[", "unweighted", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "name1"}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "name2"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "name2"}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "name1"}]}], ")"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"name1", ",", RowBox[{"Evaluate", "[", RowBox[{"Symbol", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"count", "-", "1"}], "]"}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"name2", ",", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"prob", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{"Symbol", "[", RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", "count", "]"}]}], "]"}], "]"}]}], "]"}]}], "}"}]}], "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rescaled", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"rescaled", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "==", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "unweighted", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "unweighted", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "unweighted", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ "generate", " ", "new", " ", "unweighted", " ", "graph", " ", "and", " ", "rescale"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"count", "=", RowBox[{"count", "+", "1"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"VertexList", "[", "g", "]"}], ",", "n1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n1"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n2"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"strongbonds1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"strongbonds2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n1", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission1", "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"vector", " ", "of", " ", "individuals"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"deg1", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n1", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"deg2", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n2", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"degree", " ", "of", " ", "each", " ", "individual"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"predictions", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n2", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"correct", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Tally", "[", RowBox[{"Join", "[", RowBox[{"predictions", ",", "dyads"}], "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"broken", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"EdgeList", "[", "g", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maintained", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\n", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission2", "]"}], "]"}], ",", " ", "\n", RowBox[{"GraphDiameter", "[", "fission1", "]"}], ",", "\[IndentingNewLine]", RowBox[{"GraphDiameter", "[", "fission2", "]"}], ",", "\n", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], ",", " ", RowBox[{"(*", " ", RowBox[{"up", " ", "from", " ", "about", " ", "0.1"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "correct", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "dyads", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "%", " ", "of", " ", "bonds", " ", "that", " ", "were", " ", "broken"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "broken", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "maintained", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualbroken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "broken", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualmaintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "maintained", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "g", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], RowBox[{"(*", " ", RowBox[{"%", " ", "total", " ", "bonds", " ", "correct"}], " ", "*)"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"t", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.754772687334463*^9, 3.7547727864678893`*^9}, { 3.7547728485971127`*^9, 3.7547728720445566`*^9}, {3.754772922563967*^9, 3.754772980300437*^9}, {3.754773027968115*^9, 3.754773071598239*^9}, { 3.754773126621607*^9, 3.7547731397441397`*^9}, {3.75477328063094*^9, 3.75477329761133*^9}, {3.75477333865178*^9, 3.75477335255693*^9}, 3.7547734986939306`*^9, {3.754773726034716*^9, 3.7547738451781693`*^9}, { 3.754773898243473*^9, 3.7547739048796844`*^9}, {3.754774124818194*^9, 3.7547741341280575`*^9}, {3.7547742101326084`*^9, 3.7547742237544155`*^9}, {3.7547760751895475`*^9, 3.754776130883393*^9}, { 3.754776232392015*^9, 3.754776244477132*^9}, 3.7547763751661344`*^9, { 3.7547764464338646`*^9, 3.7547764626176534`*^9}, {3.7547764942928023`*^9, 3.7547764967189636`*^9}, {3.7547774123336496`*^9, 3.7547774130613093`*^9}, 3.7575157161402254`*^9, 3.757515789055056*^9, 3.7575923085484333`*^9, { 3.757633102335453*^9, 3.7576331333586273`*^9}, 3.7576333090314407`*^9, { 3.7576335270914516`*^9, 3.7576335308231597`*^9}, 3.7576337802046165`*^9, 3.7576343851839733`*^9, {3.8302468334622817`*^9, 3.8302468662694087`*^9}, { 3.83024698811152*^9, 3.830247064331521*^9}},ExpressionUUID->"b9ad3b0c-ae8d-47b1-9bf9-\ 8c309fe66f8e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Mean", "[", "despotalg", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7512463893332653`*^9, 3.7512464005372324`*^9}}, CellLabel-> "In[734]:=",ExpressionUUID->"e6a6ca04-563b-402d-8780-3cfb368b3991"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "13.56`", ",", "19.44`", ",", "622.3`", ",", "782.8`", ",", "45.24221950310798`", ",", "39.284331670244924`", ",", "0.10025767842778244`", ",", "0.23549724560837204`", ",", "4.82`", ",", "\[Infinity]", ",", "0.192814158380419`", ",", "0.11275038839903559`", ",", "0.5055048859934854`"}], "}"}], ",", RowBox[{"{", RowBox[{ "16.05`", ",", "35.95`", ",", "0.3086538461538461`", ",", "277.45`", ",", "17.302628008612512`", ",", "702.55`", ",", "19.562709395285687`", ",", "16.320588235294117`", ",", "72.0085298855883`", ",", "66.40503559096437`", ",", "0.33`", ",", "0.7026470588235294`", ",", "0.5736538461538462`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7512463941085825`*^9, 3.7512464009687185`*^9}, 3.751246599667339*^9, 3.754777892878578*^9, 3.7575939173899794`*^9, 3.7575945106964645`*^9, 3.75759497118882*^9, 3.7575955786845884`*^9, 3.7575962414539695`*^9, 3.757633794360078*^9, 3.7576344045674934`*^9, 3.7576349219371333`*^9, 3.757635186981221*^9}, CellLabel-> "Out[734]=",ExpressionUUID->"15974e90-f8d5-455a-ac1c-a2bd47cc4fe0"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Run Community", "Section", CellChangeTimes->{{3.751284221757312*^9, 3.751284226807846*^9}, { 3.8302457936680765`*^9, 3.830245801072069*^9}},ExpressionUUID->"dfc705b5-09bb-45a8-af9d-\ bc354663bbb5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"comm", "=", RowBox[{"FindGraphCommunities", "[", RowBox[{"g", ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.746447462845849*^9, 3.7464474734645996`*^9}, { 3.7486028954951468`*^9, 3.7486028970974827`*^9}, {3.7512846483418136`*^9, 3.7512846633781204`*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"54c21042-76b5-48df-8bba-2130d5d8fd05"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "4494", ",", "6952", ",", "1452", ",", "1929", ",", "7435", ",", "6991", ",", "898", ",", "607", ",", "7664"}], "}"}], ",", RowBox[{"{", RowBox[{ "7319", ",", "8011", ",", "4972", ",", "7324", ",", "9019", ",", "5279", ",", "4880", ",", "1610", ",", "9878"}], "}"}], ",", RowBox[{"{", RowBox[{ "5885", ",", "2217", ",", "488", ",", "1250", ",", "5178", ",", "6905", ",", "3780"}], "}"}], ",", RowBox[{"{", RowBox[{ "1146", ",", "8012", ",", "4250", ",", "1615", ",", "8052", ",", "999"}], "}"}], ",", RowBox[{"{", RowBox[{ "743", ",", "1403", ",", "4205", ",", "3480", ",", "1542", ",", "4429"}], "}"}], ",", RowBox[{"{", RowBox[{"6809", ",", "5273", ",", "3860", ",", "1129"}], "}"}], ",", RowBox[{"{", RowBox[{"1652", ",", "5907", ",", "8287"}], "}"}], ",", RowBox[{"{", "2101", "}"}], ",", RowBox[{"{", "9644", "}"}], ",", RowBox[{"{", "4707", "}"}], ",", RowBox[{"{", "555", "}"}], ",", RowBox[{"{", "4405", "}"}], ",", RowBox[{"{", "149", "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7464474740433197`*^9, 3.7486028975294194`*^9, 3.749466237782589*^9, 3.749466284053878*^9, 3.749833134111762*^9, 3.749833929856673*^9, { 3.74983401603623*^9, 3.749834038054921*^9}, 3.7512015612441387`*^9, 3.7512216310604134`*^9, 3.7512844115074625`*^9, 3.7512846884238963`*^9, 3.7512850042217555`*^9, 3.751285281985224*^9, 3.751286230293198*^9, 3.757516084784504*^9, 3.757593976801529*^9, 3.7575945699711695`*^9, 3.7575947641568193`*^9, 3.7575950202346*^9, 3.7575956272614145`*^9, 3.7575962910452194`*^9, 3.757634176156885*^9, 3.75763446537195*^9, 3.757634923458227*^9, 3.757635188282241*^9, 3.8303407802478437`*^9}, CellLabel->"Out[45]=",ExpressionUUID->"e1c08c65-62f8-4da1-8c47-f44f65e61044"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dynamic", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.751245954352275*^9, 3.7512459621327105`*^9}, 3.751246077544595*^9, 3.751246151910637*^9}, CellLabel-> "In[768]:=",ExpressionUUID->"7a52d858-d41f-4d67-a659-58e1ef82a8a8"], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`t, StandardForm], ImageSizeCache->{7., {0., 8.}}]], "Output", CellChangeTimes->{3.751284412832016*^9, 3.751284688521225*^9, 3.7512850042426662`*^9, 3.7512852827756977`*^9, 3.7575160860968275`*^9, 3.757593979055188*^9, 3.7575945720180492`*^9, 3.7575947661630387`*^9, 3.757595021952945*^9, 3.75759562898582*^9, 3.7575962928416348`*^9, 3.757634176276883*^9, 3.7576344654851694`*^9, 3.7576349234943924`*^9, 3.7576351883061457`*^9}, CellLabel-> "Out[768]=",ExpressionUUID->"ef2bce41-cc15-4ac7-8885-bba9a5690e00"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"centralalg", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", RowBox[{"{", RowBox[{"RandomChoice", "[", "comm", "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"{", RowBox[{"RandomChoice", "[", RowBox[{"Complement", "[", RowBox[{"comm", ",", "n1"}], "]"}], "]"}], "}"}]}], ";", RowBox[{"(*", " ", RowBox[{"select", " ", "starting", " ", "communities"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Complement", "[", RowBox[{ RowBox[{"Flatten", "[", "comm", "]"}], ",", RowBox[{"Flatten", "[", "n1", "]"}], ",", RowBox[{"Flatten", "[", "n2", "]"}]}], "]"}], "\[NotEqual]", RowBox[{"{", "}"}]}], ",", " ", RowBox[{"(*", " ", RowBox[{ "loop", " ", "until", " ", "all", " ", "communities", " ", "assigned"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"new", "=", RowBox[{"RandomChoice", "[", RowBox[{"Complement", "[", RowBox[{"comm", ",", "n1", ",", "n2"}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ "randomly", " ", "choose", " ", "new", " ", "focal", " ", "community"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pref1", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"DeleteDuplicates", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ RowBox[{"new", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{ RowBox[{"Flatten", "[", "n1", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", "n1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "new", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pref2", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"DeleteDuplicates", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{ RowBox[{"new", "[", RowBox[{"[", "j", "]"}], "]"}], ",", RowBox[{ RowBox[{"Flatten", "[", "n2", "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", "n2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "new", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", "2"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ "select", " ", "bonds", " ", "from", " ", "focal", " ", "to", " ", "2", " ", "DGs"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Which", "[", RowBox[{"(*", " ", RowBox[{ "choose", " ", "new", " ", "DG", " ", "based", " ", "on", " ", "average", " ", "bond", " ", "strengths"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pref1", "==", RowBox[{"{", "}"}]}], "&&", RowBox[{"pref2", "==", RowBox[{"{", "}"}]}]}], ",", "Null", ",", "\[IndentingNewLine]", RowBox[{"pref1", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"n2", "=", RowBox[{"Join", "[", RowBox[{"n2", ",", RowBox[{"{", "new", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"pref2", "==", RowBox[{"{", "}"}]}], ",", RowBox[{"n1", "=", RowBox[{"Join", "[", RowBox[{"n1", ",", RowBox[{"{", "new", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", "n1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ">", RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", "n2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"n1", "=", RowBox[{"Join", "[", RowBox[{"n1", ",", RowBox[{"{", "new", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", "n1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", "n2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"n2", "=", RowBox[{"Join", "[", RowBox[{"n2", ",", RowBox[{"{", "new", "}"}]}], "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"n1", "=", RowBox[{"Flatten", "[", "n1", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"Flatten", "[", "n2", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n1"}], "]"}]}], ";", RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n2"}], "]"}]}], ";"}], ",", RowBox[{ RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n2"}], "]"}]}], ";", RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n1"}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"strongbonds1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"strongbonds2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n1", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission1", "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"vector", " ", "of", " ", "individuals"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"deg1", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n1", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"deg2", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n2", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"degree", " ", "of", " ", "each", " ", "individual"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"predictions", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n2", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"correct", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Tally", "[", RowBox[{"Join", "[", RowBox[{"predictions", ",", "dyads"}], "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"broken", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"EdgeList", "[", "g", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maintained", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\n", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission2", "]"}], "]"}], ",", " ", "\n", RowBox[{"GraphDiameter", "[", "fission1", "]"}], ",", "\[IndentingNewLine]", RowBox[{"GraphDiameter", "[", "fission2", "]"}], ",", "\n", RowBox[{"If", "[", RowBox[{ RowBox[{"NumericQ", "[", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"NumericQ", "[", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "correct", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "dyads", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "%", " ", "of", " ", "bonds", " ", "that", " ", "were", " ", "broken"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "broken", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "maintained", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualbroken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "broken", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualmaintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "maintained", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "g", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], RowBox[{"(*", " ", RowBox[{"%", " ", "total", " ", "bonds", " ", "correct"}], " ", "*)"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"t", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.749836434800957*^9, 3.7498364854061866`*^9}, 3.7498365226378365`*^9, {3.7512016590848866`*^9, 3.7512016974543805`*^9}, { 3.751201797684464*^9, 3.751201798884181*^9}, {3.7512018731716995`*^9, 3.751201882563041*^9}, {3.7512019436437473`*^9, 3.75120194754767*^9}, { 3.75120207235962*^9, 3.7512020747778406`*^9}, {3.751202139735099*^9, 3.7512021906845584`*^9}, {3.7512022421936765`*^9, 3.7512022503210382`*^9}, {3.7512022925583267`*^9, 3.7512023177490206`*^9}, {3.7512023960045996`*^9, 3.751202399972433*^9}, { 3.751202493993651*^9, 3.751202502147435*^9}, {3.751202564662486*^9, 3.751202574301344*^9}, {3.7512026317714777`*^9, 3.751202633583722*^9}, { 3.751284275734757*^9, 3.7512842761265125`*^9}, {3.7512843132739964`*^9, 3.751284314775092*^9}, {3.751284440144575*^9, 3.7512844446406946`*^9}, { 3.7512848733187213`*^9, 3.7512848892247047`*^9}, {3.7512849694927597`*^9, 3.751284970424701*^9}, {3.7512852392189693`*^9, 3.7512852764815693`*^9}, 3.7512853178894515`*^9, {3.7512860942705393`*^9, 3.751286097356593*^9}, 3.7575923085801167`*^9, 3.7575941992307577`*^9, {3.83024707759085*^9, 3.830247144588234*^9}},ExpressionUUID->"71bf6c7f-af36-4d94-bb83-\ 11c5967f8c4e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Mean", "[", "centralalg", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7512463893332653`*^9, 3.7512464005372324`*^9}, 3.751284479542768*^9, 3.7512851697155905`*^9}, CellLabel-> "In[772]:=",ExpressionUUID->"d5551c11-5d40-4c4e-b47b-31c2c8d4f218"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "20.82`", ",", "12.18`", ",", "1152.82`", ",", "636.16`", ",", "54.851685703547425`", ",", "48.23661538461538`", ",", "0.17740156882026478`", ",", "0.21582080200501252`", ",", "6.96`", ",", "5.55`", ",", "0.14300168947609884`", ",", "0.30324242424242426`", ",", "0.5199348534201954`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.93`", ",", "45.07`", ",", "0.13326923076923078`", ",", "85.51`", ",", "12.414424603174602`", ",", "894.49`", ",", "19.864080538040415`", ",", "5.03`", ",", "103.54944444444445`", ",", "62.38068576118316`", ",", "0.15444444444444444`", ",", "0.8779411764705882`", ",", "0.6275`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7512463941085825`*^9, 3.7512464009687185`*^9}, 3.751246599667339*^9, 3.7512851379989805`*^9, 3.7512851807920294`*^9, 3.7512854013445063`*^9, 3.751286380145834*^9, 3.757594020870908*^9, 3.7575946122187223`*^9, 3.757595045564274*^9, 3.7575956532703834`*^9, 3.7575963165577817`*^9, 3.7576341955007024`*^9, 3.757634476789467*^9, 3.757634962891785*^9, 3.7576352001327796`*^9}, CellLabel-> "Out[772]=",ExpressionUUID->"a3b9c43b-c896-44fe-ab81-afe720801eec"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Run Democracy", "Section", CellChangeTimes->{{3.7512856070324755`*^9, 3.751285608792121*^9}, { 3.8302458078249607`*^9, 3.830245808309453*^9}},ExpressionUUID->"d8e85c89-59fb-4b0a-8c45-\ 800904b40e25"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dynamic", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.751285903139934*^9, 3.751285905157492*^9}}, CellLabel-> "In[805]:=",ExpressionUUID->"61cbd62b-b9d2-4c9c-ba08-708770bde322"], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`t, StandardForm], ImageSizeCache->{7., {0., 8.}}]], "Output", CellChangeTimes->{3.7512859056143494`*^9, 3.7513007296994543`*^9, 3.7575940795476465`*^9, 3.7575942438021603`*^9, 3.7575946661092653`*^9, 3.7575950938866315`*^9, 3.7575957025999346`*^9, 3.7575963665543137`*^9, 3.7576341978217115`*^9, 3.7576344789369373`*^9, 3.7576349643169627`*^9, 3.7576352015234795`*^9}, CellLabel-> "Out[805]=",ExpressionUUID->"ec82b026-24ab-403d-aff3-5006018afd5e"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"democalg", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", RowBox[{"{", RowBox[{"RandomChoice", "[", "n", "]"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"{", RowBox[{"RandomChoice", "[", RowBox[{"Complement", "[", RowBox[{"n", ",", "n1"}], "]"}], "]"}], "}"}]}], ";", RowBox[{"(*", " ", RowBox[{ "randomly", " ", "choose", " ", "starting", " ", "individuals"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"While", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Complement", "[", RowBox[{"n", ",", "n1", ",", "n2"}], "]"}], "\[NotEqual]", RowBox[{"{", "}"}]}], ",", RowBox[{"(*", " ", RowBox[{ "loop", " ", "until", " ", "all", " ", "individuals", " ", "assigned"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"new", "=", RowBox[{"RandomChoice", "[", RowBox[{"Complement", "[", RowBox[{"n", ",", "n1", ",", "n2"}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"choose", " ", "focal", " ", "individual"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"pref1", "=", RowBox[{"DeleteDuplicates", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"new", ",", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pref2", "=", RowBox[{"DeleteDuplicates", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"Sort", "[", RowBox[{"{", RowBox[{"new", ",", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"bonds", " ", "to", " ", "2", " ", "DGs"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Which", "[", RowBox[{"(*", " ", RowBox[{ "choose", " ", "group", " ", "with", " ", "stronger", " ", "average", " ", "bond", " ", "weight"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pref1", "==", RowBox[{"{", RowBox[{"{", "}"}], "}"}]}], "&&", RowBox[{"pref2", "==", RowBox[{"{", RowBox[{"{", "}"}], "}"}]}]}], ",", "Null", ",", "\[IndentingNewLine]", RowBox[{"pref1", "==", RowBox[{"{", RowBox[{"{", "}"}], "}"}]}], ",", RowBox[{"n2", "=", RowBox[{"Join", "[", RowBox[{"n2", ",", RowBox[{"{", "new", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"pref2", "==", RowBox[{"{", RowBox[{"{", "}"}], "}"}]}], ",", RowBox[{"n1", "=", RowBox[{"Join", "[", RowBox[{"n1", ",", RowBox[{"{", "new", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref1", "[", RowBox[{"[", RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ">", RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref2", "[", RowBox[{"[", RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"n1", "=", RowBox[{"Join", "[", RowBox[{"n1", ",", RowBox[{"{", "new", "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref1", "[", RowBox[{"[", RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "<", RowBox[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", RowBox[{"pref2", "[", RowBox[{"[", RowBox[{"All", ",", "All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ",", RowBox[{"n2", "=", RowBox[{"Join", "[", RowBox[{"n2", ",", RowBox[{"{", "new", "}"}]}], "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n1"}], "]"}]}], ";", RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n2"}], "]"}]}], ";"}], ",", RowBox[{ RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n2"}], "]"}]}], ";", RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n1"}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"strongbonds1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"strongbonds2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n1", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission1", "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"vector", " ", "of", " ", "individuals"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"deg1", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n1", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"deg2", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n2", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"degree", " ", "of", " ", "each", " ", "individual"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"predictions", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n2", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"correct", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Tally", "[", RowBox[{"Join", "[", RowBox[{"predictions", ",", "dyads"}], "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"broken", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"EdgeList", "[", "g", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maintained", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\n", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission2", "]"}], "]"}], ",", " ", "\n", RowBox[{"GraphDiameter", "[", "fission1", "]"}], ",", "\[IndentingNewLine]", RowBox[{"GraphDiameter", "[", "fission2", "]"}], ",", "\n", RowBox[{"If", "[", RowBox[{ RowBox[{"NumericQ", "[", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"NumericQ", "[", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "correct", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "dyads", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "%", " ", "of", " ", "bonds", " ", "that", " ", "were", " ", "broken"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "broken", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "maintained", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualbroken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "broken", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualmaintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "maintained", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "g", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], RowBox[{"(*", " ", RowBox[{"%", " ", "total", " ", "bonds", " ", "correct"}], " ", "*)"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"t", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.751285671131485*^9, 3.7512856929586596`*^9}, { 3.7512860313708735`*^9, 3.7512860349547653`*^9}, 3.751300760384522*^9, 3.757592308614385*^9, 3.7575942325043135`*^9, {3.830247162515115*^9, 3.8302472034986353`*^9}},ExpressionUUID->"53fbeab8-6831-4ee5-bbf5-\ 2bc8693b05bc"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Mean", "[", "democalg", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7512463893332653`*^9, 3.7512464005372324`*^9}, 3.751284479542768*^9, 3.7512850718513007`*^9, 3.751285420264636*^9, 3.7512857209181466`*^9}, CellLabel-> "In[809]:=",ExpressionUUID->"723d27ec-da8d-49f2-b921-14d30c9564ff"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "22.68`", ",", "10.32`", ",", "1246.36`", ",", "472.28`", ",", "54.54326429981834`", ",", "42.40753077478078`", ",", "0.19632449902259203`", ",", "0.18436073602800568`", ",", "6.78`", ",", "4.82`", ",", "0.13431491419034175`", ",", "0.3223410755910756`", ",", "0.5586319218241043`"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.55`", ",", "44.45`", ",", "0.14519230769230768`", ",", "120.68`", ",", "16.13784956709957`", ",", "859.32`", ",", "19.3516748037311`", ",", "7.0988235294117645`", ",", "84.37039682539682`", ",", "65.1785665783827`", ",", "0.14944444444444444`", ",", "0.8570588235294118`", ",", "0.6121153846153846`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7512463941085825`*^9, 3.7512464009687185`*^9}, 3.751246599667339*^9, 3.751285867936698*^9, {3.7512860072952757`*^9, 3.7512860073767023`*^9}, 3.7512861431607385`*^9, 3.7575941071610594`*^9, 3.7575951189414115`*^9, 3.7575957267453804`*^9, 3.7575963908809905`*^9, 3.757634222084584*^9, 3.7576345305883846`*^9, 3.757635001908823*^9, 3.757635220753096*^9}, CellLabel-> "Out[809]=",ExpressionUUID->"adfb1d78-bc6e-43f5-91c8-11ed8fa2178f"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Run Random", "Section", CellChangeTimes->{{3.7574368582031407`*^9, 3.7574368588312874`*^9}, { 3.830245810004955*^9, 3.8302458104574485`*^9}},ExpressionUUID->"4e15b487-7246-411f-9cd9-\ c4396138481f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dynamic", "[", "t", "]"}]], "Input", CellChangeTimes->{{3.7574372361235356`*^9, 3.757437237651436*^9}}, CellLabel-> "In[842]:=",ExpressionUUID->"eb80291f-2ea3-462e-9832-0468f30f44af"], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`t, StandardForm], ImageSizeCache->{7., {0., 8.}}]], "Output", CellChangeTimes->{3.7574372380201874`*^9, 3.757594160965356*^9, 3.7575951660074816`*^9, 3.757595775073722*^9, 3.757596438839326*^9, 3.757634224170822*^9, 3.7576345616530886`*^9, 3.757635003468094*^9, 3.757635223526148*^9}, CellLabel-> "Out[842]=",ExpressionUUID->"2a7c7afb-58f1-49cc-bc69-afb7e5dd2e3a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"randalg", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"randlist", "=", RowBox[{"GatherBy", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"RandomChoice", "[", RowBox[{"{", RowBox[{"n1", ",", "n2"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n1", "=", RowBox[{"randlist", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"n2", "=", RowBox[{"randlist", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[GreaterEqual]", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n1"}], "]"}]}], ";", RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n2"}], "]"}]}], ";"}], ",", RowBox[{ RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n2"}], "]"}]}], ";", RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", "n1"}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"strongbonds1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"strongbonds2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"deg1", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n1", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"deg2", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n2", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{"degree", " ", "of", " ", "each", " ", "individual"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"predictions", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n2", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"correct", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Tally", "[", RowBox[{"Join", "[", RowBox[{"predictions", ",", "dyads"}], "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"broken", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"EdgeList", "[", "graph", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"maintained", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", "\n", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission1", "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission2", "]"}], "]"}], ",", " ", "\n", RowBox[{"GraphDiameter", "[", "fission1", "]"}], ",", "\[IndentingNewLine]", RowBox[{"GraphDiameter", "[", "fission2", "]"}], ",", "\n", RowBox[{"If", "[", RowBox[{ RowBox[{"NumericQ", "[", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"NumericQ", "[", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}], "]"}], ",", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}], ",", "0"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "correct", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "dyads", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "%", " ", "of", " ", "bonds", " ", "that", " ", "were", " ", "broken"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "broken", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "maintained", " ", "bond"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualbroken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "broken", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualmaintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "maintained", " ", "bonds", " ", "correct"}], " ", "*)"}], ",", "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "g", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], RowBox[{"(*", " ", RowBox[{"%", " ", "total", " ", "bonds", " ", "correct"}], " ", "*)"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"t", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7574370083113174`*^9, 3.75743709629762*^9}, { 3.757437210490589*^9, 3.7574372919744673`*^9}, 3.757592308647376*^9, 3.757633102388303*^9, 3.7576343402491226`*^9, 3.757634826596546*^9, 3.7576351589896574`*^9, 3.830245950651291*^9},ExpressionUUID->"225bfa70-e653-40fc-8c02-\ 0bd93e85d763"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Mean", "[", "randalg", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7574373002110395`*^9, 3.7574373022909193`*^9}}, CellLabel-> "In[846]:=",ExpressionUUID->"1b28b2a9-09be-4782-b1bc-d23393f24f8c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "17.07`", ",", "15.93`", ",", "398.38`", ",", "196.34`", ",", "20.86973093553072`", ",", "13.591883616383615`", ",", "0.16938773362953946`", ",", "0.13936536229443525`", ",", "\[Infinity]", ",", "\[Infinity]", ",", "0.09685807932215255`", ",", "0.09644699744699743`", ",", "0.4744299674267101`"}], "}"}], ",", RowBox[{"{", RowBox[{ "26.42`", ",", "25.58`", ",", "0.5080769230769231`", ",", "495.01`", ",", "18.706596583252864`", ",", "484.99`", ",", "18.929993907433904`", ",", "29.11823529411765`", ",", "68.38155758774228`", ",", "67.22203029449979`", ",", "0.5066666666666667`", ",", "0.49117647058823527`", ",", "0.49653846153846154`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.757437321490943*^9, 3.7575941748063374`*^9, 3.7575951783948116`*^9, 3.757595787808159*^9, 3.75759645117245*^9, 3.7576342317826853`*^9, 3.7576345643313017`*^9, 3.757635015771715*^9, 3.7576352320218854`*^9}, CellLabel-> "Out[846]=",ExpressionUUID->"19f708ba-b6b4-4791-9151-19c8b376b3d8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Sparsest Cut", "Section", CellChangeTimes->{{3.7459405486374826`*^9, 3.7459405515402613`*^9}},ExpressionUUID->"24f54009-607d-4061-9263-\ bd3e8a79e5c7"], Cell[CellGroupData[{ Cell["Vertex", "Subsection", CellChangeTimes->{{3.7507017595464506`*^9, 3.7507017609715137`*^9}},ExpressionUUID->"d7e01044-5b5f-434e-a4d5-\ e719adfc9241"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindGraphPartition", "[", RowBox[{"g", ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.7459403188408575`*^9, 3.7459403541719236`*^9}}, CellLabel-> "In[211]:=",ExpressionUUID->"75b9931a-6bac-4866-add2-a25d5a0b6ca3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"DOT\"\>", ",", "\<\"VIN\"\>", ",", "\<\"DIV\"\>", ",", "\<\"DUI\"\>", ",", "\<\"MLO\"\>", ",", "\<\"DOV\"\>", ",", "\<\"DUN\"\>", ",", "\<\"PIS\"\>", ",", "\<\"DEA\"\>", ",", "\<\"VOR\"\>", ",", "\<\"VIX\"\>", ",", "\<\"VAA\"\>", ",", "\<\"VAP\"\>", ",", "\<\"VAN\"\>", ",", "\<\"VET\"\>", ",", "\<\"VAZ\"\>", ",", "\<\"VIV\"\>", ",", "\<\"VEG\"\>", ",", "\<\"VAT\"\>", ",", "\<\"VOT\"\>", ",", "\<\"VOG\"\>", ",", "\<\"VOY\"\>", ",", "\<\"DUB\"\>", ",", "\<\"VAI\"\>", ",", "\<\"VIG\"\>", ",", "\<\"DOX\"\>", ",", "\<\"VEX\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AMA\"\>", ",", "\<\"OFR\"\>", ",", "\<\"ASH\"\>", ",", "\<\"ECH\"\>", ",", "\<\"OST\"\>", ",", "\<\"OMO\"\>", ",", "\<\"VEL\"\>", ",", "\<\"OBI\"\>", ",", "\<\"OKO\"\>", ",", "\<\"OCH\"\>", ",", "\<\"OCE\"\>", ",", "\<\"TUZ\"\>", ",", "\<\"VIL\"\>", ",", "\<\"VIO\"\>", ",", "\<\"VEI\"\>", ",", "\<\"ACA\"\>", ",", "\<\"VOW\"\>", ",", "\<\"ROY\"\>", ",", "\<\"OAT\"\>", ",", "\<\"EDW\"\>", ",", "\<\"ELV\"\>", ",", "\<\"ORB\"\>", ",", "\<\"POW\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.745940336642672*^9, 3.7459403544100947`*^9}, 3.7459404117413435`*^9, 3.7463973195709267`*^9, 3.746445311708525*^9, 3.750702017563219*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"c7523e75-3568-41ac-a887-1886e9d36171"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"g", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Subgraph", "[", RowBox[{"g", ",", "#"}], "]"}], "&"}], ",", " ", "%"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.74594033832807*^9, 3.745940366127347*^9}, 3.7459404092505317`*^9}, CellLabel-> "In[212]:=",ExpressionUUID->"ff439696-9df0-4394-8e1a-e85311453bfb"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "AMA", "OFR", "DOT", "ASH", "VIN", "ECH", "DIV", "DUI", "MLO", "DOV", "DUN", "PIS", "DEA", "VOR", "VIX", "OST", "OMO", "VEL", "OBI", "OKO", "OCH", "OCE", "TUZ", "VIL", "VAA", "VAP", "VIO", "VAN", "VET", "VAZ", "VIV", "VEG", "VEI", "VAT", "VOT", "ACA", "VOG", "VOY", "VOW", "DUB", "ROY", "OAT", "EDW", "ELV", "ORB", "VAI", "VIG", "DOX", "VEX", "POW"}, { Null, {{1, 2}, {1, 3}, {4, 5}, {4, 6}, {7, 6}, {3, 8}, {3, 9}, {10, 11}, {10, 12}, {10, 5}, {13, 10}, {10, 14}, {10, 15}, {6, 16}, {6, 17}, {6, 5}, {9, 18}, {19, 20}, {19, 21}, {21, 17}, {2, 17}, {22, 17}, {17, 23}, {20, 17}, {16, 24}, {17, 16}, {2, 16}, {16, 5}, {12, 15}, {12, 5}, {4, 25}, {25, 26}, {25, 5}, {25, 18}, {25, 14}, {25, 15}, {25, 27}, {28, 14}, {28, 29}, {30, 31}, {30, 24}, {32, 31}, {23, 18}, {33, 18}, {18, 5}, {18, 31}, {1, 18}, {18, 15}, {18, 14}, {29, 15}, {1, 29}, {29, 5}, {29, 14}, {4, 29}, {26, 5}, {5, 14}, {5, 31}, { 23, 5}, {5, 15}, {18, 27}, {27, 14}, {9, 27}, {17, 27}, {27, 15}, {5, 27}, {24, 31}, {31, 14}, {31, 15}, {15, 14}, {17, 15}, {34, 14}, {14, 35}, {23, 14}, {9, 14}, {3, 35}, {36, 4}, {4, 10}, {4, 14}, {3, 32}, { 10, 31}, {4, 2}, {29, 31}, {23, 27}, {4, 27}, {33, 27}, {31, 37}, {15, 38}, {15, 35}, {34, 35}, {4, 35}, {5, 35}, {19, 17}, {18, 39}, {1, 16}, {13, 11}, {10, 40}, {10, 8}, {6, 41}, {40, 12}, {41, 29}, {27, 39}, {3, 10}, {7, 3}, {9, 2}, {19, 16}, {2, 41}, {32, 29}, {9, 15}, {3, 31}, {8, 25}, {32, 14}, {4, 16}, {29, 38}, {3, 23}, {32, 18}, {42, 16}, {43, 18}, {16, 29}, {31, 35}, {6, 44}, {43, 2}, {3, 43}, {4, 43}, {45, 18}, {46, 14}, {43, 17}, {29, 47}, {10, 48}, {49, 31}, {16, 50}}}, {EdgeStyle -> {UndirectedEdge["DIV", "ECH"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["VIL", "VIV"] -> GrayLevel[ Rational[67, 79]], UndirectedEdge["AMA", "DOT"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["ASH", "VAA"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["DOT", "MLO"] -> GrayLevel[ Rational[196, 237]], UndirectedEdge["DOV", "DUB"] -> GrayLevel[ Rational[97, 237]], UndirectedEdge["VEG", "VEL"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["DEA", "DOV"] -> GrayLevel[ Rational[131, 237]], UndirectedEdge["OST", "POW"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["OFR", "ROY"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["VIV", "VOT"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["VIO", "VOR"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["ASH", "EDW"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["DOV", "VIX"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["DOV", "DUI"] -> GrayLevel[ Rational[67, 79]], UndirectedEdge["VAN", "VOR"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["AMA", "OST"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["ECH", "OMO"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VEL", "VIN"] -> GrayLevel[ Rational[202, 237]], UndirectedEdge["OST", "VET"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["DEA", "DUN"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["OMO", "VIO"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VAT", "VOT"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["OAT", "OST"] -> GrayLevel[ Rational[205, 237]], UndirectedEdge["VEL", "VOR"] -> GrayLevel[ Rational[194, 237]], UndirectedEdge["OST", "VIN"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["AMA", "OFR"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["OMO", "OST"] -> GrayLevel[ Rational[191, 237]], UndirectedEdge["ECH", "ELV"] -> GrayLevel[ Rational[197, 237]], UndirectedEdge["ACA", "ASH"] -> GrayLevel[ Rational[124, 237]], UndirectedEdge["DOT", "VEG"] -> GrayLevel[ Rational[176, 237]], UndirectedEdge["OCE", "OMO"] -> GrayLevel[ Rational[134, 237]], UndirectedEdge["ASH", "OFR"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["MLO", "VIO"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VIV", "VOR"] -> GrayLevel[ Rational[218, 237]], UndirectedEdge["DOV", "VOR"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["ECH", "ROY"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["DOV", "DOX"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["ASH", "VIN"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["PIS", "VIX"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["DOT", "VIV"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["OBI", "OCH"] -> GrayLevel[ Rational[67, 79]], UndirectedEdge["VAZ", "VIL"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["VAA", "VEL"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["OFR", "OMO"] -> GrayLevel[ Rational[142, 237]], UndirectedEdge["VEL", "VIX"] -> GrayLevel[ Rational[199, 237]], UndirectedEdge["VEG", "VOR"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["OST", "VIL"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VEI", "VEL"] -> GrayLevel[ Rational[176, 237]], UndirectedEdge["VEG", "VIV"] -> GrayLevel[ Rational[60, 79]], UndirectedEdge["DOT", "DOV"] -> GrayLevel[ Rational[196, 237]], UndirectedEdge["VET", "VIN"] -> GrayLevel[ Rational[218, 237]], UndirectedEdge["VEL", "VIO"] -> GrayLevel[ Rational[106, 237]], UndirectedEdge["DOV", "VIV"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VET", "VIX"] -> GrayLevel[ Rational[43, 79]], UndirectedEdge["VIO", "VIX"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VAN", "VET"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VAT", "VOR"] -> GrayLevel[ Rational[139, 237]], UndirectedEdge["VIV", "VOG"] -> GrayLevel[ Rational[118, 237]], UndirectedEdge["OMO", "TUZ"] -> GrayLevel[ Rational[220, 237]], UndirectedEdge["ORB", "VEL"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["OBI", "OKO"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["EDW", "OMO"] -> GrayLevel[ Rational[211, 237]], UndirectedEdge["DOV", "DUN"] -> GrayLevel[ Rational[110, 237]], UndirectedEdge["VAA", "VIN"] -> GrayLevel[ Rational[41, 237]], UndirectedEdge["VET", "VOR"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["VIN", "VIX"] -> GrayLevel[ Rational[181, 237]], UndirectedEdge["VIX", "VOT"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VIX", "VOR"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["VAA", "VAP"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["MLO", "VOR"] -> GrayLevel[ Rational[53, 79]], UndirectedEdge["VIN", "VIV"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["VAP", "VIN"] -> GrayLevel[ Rational[33, 79]], UndirectedEdge["VEI", "VIO"] -> GrayLevel[ Rational[68, 79]], UndirectedEdge["VEL", "VOW"] -> GrayLevel[ Rational[164, 237]], UndirectedEdge["DOV", "VIN"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["VIX", "VOY"] -> GrayLevel[ Rational[2, 3]], UndirectedEdge["ASH", "VET"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["EDW", "VEL"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["VIN", "VOT"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VET", "VIV"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["MLO", "VIX"] -> GrayLevel[ Rational[202, 237]], UndirectedEdge["OCH", "OMO"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["EDW", "OFR"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["VIV", "VIX"] -> GrayLevel[ Rational[208, 237]], UndirectedEdge["VAZ", "VIV"] -> GrayLevel[ Rational[119, 237]], UndirectedEdge["VET", "VIG"] -> GrayLevel[ Rational[206, 237]], UndirectedEdge["VEG", "VET"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["TUZ", "VOR"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["DOT", "DUI"] -> GrayLevel[ Rational[137, 237]], UndirectedEdge["ECH", "OST"] -> GrayLevel[ Rational[190, 237]], UndirectedEdge["TUZ", "VIO"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VAA", "VOR"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["PIS", "VIN"] -> GrayLevel[ Rational[57, 79]], UndirectedEdge["TUZ", "VIN"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["OFR", "OST"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["DUI", "VAA"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["VAA", "VIO"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["AMA", "VET"] -> GrayLevel[ Rational[66, 79]], UndirectedEdge["OBI", "OMO"] -> GrayLevel[ Rational[48, 79]], UndirectedEdge["DOT", "EDW"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["DIV", "DOT"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["OMO", "VIX"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VOR", "VOT"] -> GrayLevel[ Rational[21, 79]], UndirectedEdge["OKO", "OMO"] -> GrayLevel[ Rational[199, 237]], UndirectedEdge["ASH", "DOV"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["DOV", "PIS"] -> GrayLevel[0], UndirectedEdge["DOT", "TUZ"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["DUB", "PIS"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["AMA", "VEL"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["ROY", "VET"] -> GrayLevel[ Rational[66, 79]], UndirectedEdge["ASH", "VIO"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VAA", "VIX"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["MLO", "VEL"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["VAI", "VOR"] -> GrayLevel[ Rational[70, 79]], UndirectedEdge["VET", "VOY"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VEL", "VIV"] -> GrayLevel[ Rational[200, 237]], UndirectedEdge["ASH", "ECH"] -> GrayLevel[ Rational[65, 79]], UndirectedEdge["ASH", "VOR"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["TUZ", "VEL"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["ASH", "VOT"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["VEX", "VIV"] -> GrayLevel[ Rational[220, 237]], UndirectedEdge["DOT", "VOT"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VIN", "VOR"] -> GrayLevel[ Rational[206, 237]], UndirectedEdge["VIO", "VOW"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["ECH", "VIN"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["OBI", "OST"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["MLO", "OFR"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["ASH", "OST"] -> GrayLevel[ Rational[70, 79]], UndirectedEdge["VIN", "VIO"] -> GrayLevel[ Rational[223, 237]]}, EdgeWeight -> {13, 30, 20, 42, 12, 100, 41, 127, 237, 21, 106, 23, 13, 47, 14, 16, 22, 12, 36, 14, 95, 103, 17, 38, 11, 46, 30, 10, 20, 66, 16, 22, 196, 14, 23, 11, 13, 23, 11, 118, 23, 57, 16, 61, 35, 37, 12, 38, 43, 108, 39, 19, 22, 16, 138, 31, 12, 13, 56, 131, 24, 10, 11, 11, 14, 36, 19, 29, 30, 14, 98, 174, 10, 78, 10, 113, 13, 24, 61, 14, 15, 21, 10, 10, 33, 119, 79, 14, 21, 13, 11, 93, 73, 12, 24, 140, 36, 13, 16, 39, 10, 41, 20, 12, 20, 16, 22, 35, 13, 15, 24, 27, 10, 24, 12, 32, 22, 12, 12, 40, 30, 15, 14, 15, 27, 26, 31, 21, 17, 10}, GraphHighlight -> { UndirectedEdge["OAT", "OST"], UndirectedEdge["VAT", "VOR"], "ROY", UndirectedEdge["DOV", "DUN"], UndirectedEdge["DOV", "VOR"], "ACA", UndirectedEdge["VEG", "VET"], UndirectedEdge["VET", "VIN"], "VAA", UndirectedEdge["VEI", "VEL"], UndirectedEdge["VAA", "VOR"], "OMO", "VEX", UndirectedEdge["OFR", "ROY"], UndirectedEdge["AMA", "OST"], "POW", UndirectedEdge["OMO", "TUZ"], "VIX", "DUI", UndirectedEdge["ORB", "VEL"], "PIS", UndirectedEdge["DOT", "VEG"], UndirectedEdge["EDW", "VEL"], "VEG", "DIV", UndirectedEdge["OCE", "OMO"], "VIO", UndirectedEdge["DEA", "DOV"], UndirectedEdge["DOT", "VIV"], "VOR", UndirectedEdge["VAI", "VOR"], UndirectedEdge["ASH", "ECH"], UndirectedEdge["AMA", "OFR"], "VOT", UndirectedEdge["VET", "VOR"], UndirectedEdge["MLO", "VIX"], "VIN", UndirectedEdge["VEG", "VIV"], UndirectedEdge["VAP", "VIN"], "OCH", UndirectedEdge["VIX", "VOR"], UndirectedEdge["OST", "POW"], UndirectedEdge["DOT", "VOT"], UndirectedEdge["VEI", "VIO"], UndirectedEdge["OFR", "OST"], UndirectedEdge["MLO", "VOR"], UndirectedEdge["VIN", "VOR"], UndirectedEdge["ECH", "ROY"], UndirectedEdge["ASH", "OFR"], UndirectedEdge["DOV", "VIN"], "DOX", "VOG", UndirectedEdge["OBI", "OST"], "VAZ", UndirectedEdge["VIV", "VIX"], UndirectedEdge["DOT", "DUI"], UndirectedEdge["VIV", "VOR"], UndirectedEdge["OBI", "OCH"], UndirectedEdge["VAT", "VOT"], UndirectedEdge["ECH", "OMO"], "ASH", UndirectedEdge["OMO", "OST"], UndirectedEdge["VOR", "VOT"], UndirectedEdge["VAA", "VIN"], UndirectedEdge["DUI", "VAA"], "DEA", "DOT", UndirectedEdge["OCH", "OMO"], UndirectedEdge["VIX", "VOY"], UndirectedEdge["OKO", "OMO"], "VIL", "DUN", UndirectedEdge["VIN", "VIV"], UndirectedEdge["VIV", "VOG"], UndirectedEdge["VET", "VIX"], UndirectedEdge["VAA", "VAP"], UndirectedEdge["AMA", "VEL"], "VAN", "OCE", "OAT", "VIV", "MLO", UndirectedEdge["VAA", "VIX"], UndirectedEdge["DIV", "DOT"], "OST", "ORB", UndirectedEdge["OFR", "OMO"], UndirectedEdge["VAN", "VOR"], "VOY", UndirectedEdge["EDW", "OMO"], UndirectedEdge["VET", "VOY"], UndirectedEdge["DOV", "DUB"], "VAI", UndirectedEdge["OST", "VIL"], UndirectedEdge["VAZ", "VIV"], UndirectedEdge["DEA", "DUN"], "VIG", UndirectedEdge["VIV", "VOT"], "DUB", "DOV", UndirectedEdge["PIS", "VIN"], UndirectedEdge["DOV", "VIV"], "TUZ", UndirectedEdge["DOT", "MLO"], UndirectedEdge["OMO", "VIO"], UndirectedEdge["TUZ", "VEL"], UndirectedEdge["OBI", "OKO"], "VOW", UndirectedEdge["ACA", "ASH"], "OFR", UndirectedEdge["EDW", "OFR"], UndirectedEdge["ASH", "EDW"], "VEI", "VEL", "OBI", UndirectedEdge["VET", "VIG"], "AMA", UndirectedEdge["VEG", "VOR"], UndirectedEdge["DOV", "DOX"], UndirectedEdge["VIX", "VOT"], UndirectedEdge["VAN", "VET"], UndirectedEdge["DOV", "DUI"], UndirectedEdge["DOV", "PIS"], "ECH", "VAP", "VAT", UndirectedEdge["VEL", "VIO"], UndirectedEdge["VIN", "VOT"], UndirectedEdge["PIS", "VIX"], UndirectedEdge["DUB", "PIS"], UndirectedEdge["DOT", "DOV"], UndirectedEdge["DOV", "VIX"], UndirectedEdge["VIN", "VIX"], "OKO", UndirectedEdge["ASH", "OST"], "VET", "EDW", "ELV", UndirectedEdge["VEL", "VOW"], UndirectedEdge["VEX", "VIV"], UndirectedEdge["VET", "VIV"], UndirectedEdge["OBI", "OMO"], UndirectedEdge["VIO", "VOW"], UndirectedEdge["ECH", "ELV"], UndirectedEdge["TUZ", "VIO"], UndirectedEdge["ASH", "VIO"], UndirectedEdge["ECH", "OST"]}, GraphHighlightStyle -> { "VOR" -> {VertexStyle -> Hue[0, 1, 0.8]}, "DIV" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ASH", "OFR"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VIN", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VIV" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OKO", "OMO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VAT", "VOT"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VAI", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VOG" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ECH", "ROY"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["AMA", "OST"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOV", "DUB"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DOT", "MLO"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ACA", "ASH"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["ASH", "ECH"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "POW" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "OCE" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OST", "VIL"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "ACA" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOV", "VIX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ASH", "EDW"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OAT", "OST"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["MLO", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VAZ" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OBI", "OCH"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OST", "POW"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VAZ", "VIV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "DEA" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VEG", "VET"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "PIS" -> {VertexStyle -> Hue[0, 1, 0.8]}, "VIG" -> {VertexStyle -> Hue[0, 1, 0.8]}, "DOT" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DOT", "DUI"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DUI", "VAA"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DOV", "DUI"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OMO", "VIO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "VAP" -> {VertexStyle -> Hue[0, 1, 0.8]}, "DOV" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VEX", "VIV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VIO" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "OAT" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "ELV" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOT", "VOT"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VAI" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VIN", "VIX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VET", "VOY"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VAN" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["AMA", "VEL"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "OMO" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OBI", "OMO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["EDW", "OFR"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VAN", "VET"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ECH", "OMO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "TUZ" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "ROY" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OMO", "TUZ"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VAA", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "OBI" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOV", "VIV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "DUB" -> {VertexStyle -> Hue[0, 1, 0.8]}, "EDW" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "VEI" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "OCH" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VAP", "VIN"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VIV", "VIX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OFR", "ROY"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DEA", "DOV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VAT" -> {VertexStyle -> Hue[0, 1, 0.8]}, "OST" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["TUZ", "VEL"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "VIL" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "MLO" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["TUZ", "VIO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VIV", "VOG"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VAN", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VEI", "VIO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "VET" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VEG", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ECH", "OST"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OCH", "OMO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "VOW" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VIX", "VOT"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VAA", "VAP"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["EDW", "OMO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "DUN" -> {VertexStyle -> Hue[0, 1, 0.8]}, "ASH" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OMO", "OST"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOV", "DUN"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VIN" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VIN", "VIV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VEX" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VIX", "VOY"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "DUI" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ORB", "VEL"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VEL", "VIO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "ORB" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VIV", "VOT"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VEL" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VAA", "VIN"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VIX" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VAT", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VEG", "VIV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "OKO" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["PIS", "VIN"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VET", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VEG" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OBI", "OST"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DUB", "PIS"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "OFR" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VOR", "VOT"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "VAA" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DEA", "DUN"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VEI", "VEL"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VIO", "VOW"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VET", "VIN"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DIV", "DOT"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OFR", "OMO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOV", "DOX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OFR", "OST"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["OCE", "OMO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOV", "VIN"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VET", "VIX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VET", "VIV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ASH", "OST"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "DOX" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DOT", "VIV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["EDW", "VEL"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOT", "VEG"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["PIS", "VIX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DOV", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["OBI", "OKO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VAA", "VIX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ECH", "ELV"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VIN", "VOT"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["ASH", "VIO"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["DOT", "DOV"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VEL", "VOW"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["MLO", "VIX"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "ECH" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["VIX", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "AMA" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "VOY" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VIV", "VOR"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["DOV", "PIS"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["AMA", "OFR"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "VOT" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["VET", "VIG"] -> {EdgeStyle -> Hue[0, 1, 0.8]}}, GraphLayout -> {"Dimension" -> 2}, VertexLabels -> {"Name"}, VertexStyle -> {"VIN" -> GrayLevel[ Rational[67, 396]], "VOY" -> GrayLevel[ Rational[703, 792]], "DOT" -> GrayLevel[ Rational[437, 792]], "ORB" -> GrayLevel[ Rational[259, 264]], "VAZ" -> GrayLevel[ Rational[217, 264]], "OAT" -> GrayLevel[ Rational[95, 99]], "VET" -> GrayLevel[ Rational[221, 396]], "ACA" -> GrayLevel[ Rational[679, 792]], "VIL" -> GrayLevel[ Rational[361, 396]], "OKO" -> GrayLevel[ Rational[371, 396]], "OMO" -> GrayLevel[ Rational[107, 264]], "DOX" -> GrayLevel[ Rational[257, 264]], "VAT" -> GrayLevel[ Rational[673, 792]], "VEL" -> GrayLevel[ Rational[29, 88]], "VIG" -> GrayLevel[ Rational[761, 792]], "VOR" -> GrayLevel[ Rational[119, 792]], "EDW" -> GrayLevel[ Rational[685, 792]], "ROY" -> GrayLevel[ Rational[181, 198]], "VEX" -> GrayLevel[ Rational[775, 792]], "DUB" -> GrayLevel[ Rational[53, 66]], "VAP" -> GrayLevel[ Rational[79, 99]], "ASH" -> GrayLevel[ Rational[469, 792]], "VAN" -> GrayLevel[ Rational[379, 396]], "ELV" -> GrayLevel[ Rational[94, 99]], "VIV" -> GrayLevel[ Rational[4, 11]], "TUZ" -> GrayLevel[ Rational[39, 44]], "ECH" -> GrayLevel[ Rational[76, 99]], "OCH" -> GrayLevel[ Rational[371, 396]], "DUI" -> GrayLevel[ Rational[641, 792]], "DIV" -> GrayLevel[ Rational[95, 99]], "VOG" -> GrayLevel[ Rational[673, 792]], "VIX" -> GrayLevel[ Rational[167, 396]], "VOT" -> GrayLevel[ Rational[179, 264]], "AMA" -> GrayLevel[ Rational[343, 396]], "VIO" -> GrayLevel[ Rational[515, 792]], "DUN" -> GrayLevel[ Rational[641, 792]], "POW" -> GrayLevel[ Rational[391, 396]], "VAA" -> GrayLevel[ Rational[241, 396]], "MLO" -> GrayLevel[ Rational[3, 4]], "OST" -> GrayLevel[ Rational[535, 792]], "OFR" -> GrayLevel[ Rational[581, 792]], "VEG" -> GrayLevel[ Rational[7, 9]], "VAI" -> GrayLevel[ Rational[85, 88]], "VEI" -> GrayLevel[ Rational[349, 396]], "VOW" -> GrayLevel[ Rational[709, 792]], "OBI" -> GrayLevel[ Rational[631, 792]], "OCE" -> GrayLevel[ Rational[689, 792]], "DEA" -> GrayLevel[ Rational[331, 396]], "PIS" -> GrayLevel[ Rational[151, 264]], "DOV" -> GrayLevel[0]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 1.7490536653376987`, 2.0596769160666244`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[69, 79]], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 3.06910335000307, 1.965307568098614}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[66, 79]], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 2.6923739957704953`, 2.3116495007135645`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 2.5593984745938423`, 2.5508550429575}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 1.7130052088944134`, 1.0558619988176456`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.3254801139325076`, 0.8427900980487346}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, {4.098806202058695, 2.6040284702046423`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.5593984745938423`, 2.5508550429575}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, {4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[71, 79]], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[74, 79]], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[217, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.0508254247212463`, 2.3011085273433345`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 1.9350586108814647`, 1.4314573947187421`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[71, 79]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[221, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[221, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.412520993581118, 3.6224390013597016`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[221, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 1.9350586108814647`, 1.4314573947187421`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 4.056068133125937, 1.577936911527845}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[227, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[202, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.580151017437533, 3.5362323082782128`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[223, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 2.3254801139325076`, 0.8427900980487346}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.7130052088944134`, 1.0558619988176456`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.2345042461710136`, 0.22223793934819325`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.098806202058695, 2.6040284702046423`}, { 4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.098806202058695, 2.6040284702046423`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[215, 237]], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[227, 237]], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 5.705942496372727, 1.7037420043212381`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 4.056068133125937, 1.577936911527845}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 5.609486156720985, 1.337650842585623}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 4.842294325772201, 1.0381550924567922`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 5.711158690299976, 2.2642987881564105`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{5.705942496372727, 1.7037420043212381`}, { 5.609486156720985, 1.337650842585623}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.056068133125937, 1.577936911527845}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.056068133125937, 1.577936911527845}, { 4.842294325772201, 1.0381550924567922`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[194, 237]], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[227, 237]], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[71, 79]], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.577071127785599, 1.2956185619005178`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 4.3641850672617775`, 3.1416889714552063`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 4.305020433317991, 3.771022748712493}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[223, 237]], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[199, 237]], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[226, 237]], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.7992088083622755`, 0.953005653387923}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 0.5214085110208795, 2.0829862735279354`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 3.0521136330652543`, 0.770227690922028}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 0.42395458198833547`, 1.0268753139750664`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 0.6804972928289903, 0.6187971060378612}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 0.5214085110208795, 2.0829862735279354`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 0.12078515290921654`, 2.650232619453675}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, {0., 2.26930332084519}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 0.20040482376984903`, 3.2241708698882308`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[223, 237]], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[200, 237]], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.1038785769545756`, 3.9353441339932367`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.560614392848657, 4.061823599966873}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.9731935590146934`, 4.485354095364575}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{0.5214085110208795, 2.0829862735279354`}, { 0.12078515290921654`, 2.650232619453675}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{0.5214085110208795, 2.0829862735279354`}, {0., 2.26930332084519}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.3724849871837996`, 2.7062903408578323`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[214, 237]], {Arrowheads[0.], ArrowBox[{{3.0521136330652543`, 0.770227690922028}, { 3.900972389572577, 0.4895713159101325}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[67, 79]], {Arrowheads[0.], ArrowBox[{{3.0521136330652543`, 0.770227690922028}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.2804975122357636`, 2.9741602758583543`}, { 3.580151017437533, 3.5362323082782128`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{3.2804975122357636`, 2.9741602758583543`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.493094552434439, 3.0393162226740644`}, { 2.1038785769545756`, 3.9353441339932367`}}, 0.046966480367839764`]}}, {Hue[0.14, 1, 0.9], {Arrowheads[0.], ArrowBox[{{2.493094552434439, 3.0393162226740644`}, { 2.560614392848657, 4.061823599966873}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.577071127785599, 1.2956185619005178`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 2.7992088083622755`, 0.953005653387923}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[66, 79]], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 1.7130052088944134`, 1.0558619988176456`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 2.7573833949139783`, 0.}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.900972389572577, 0.4895713159101325}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 5.05770479431974, 2.0984234127332657`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 5.0023437070107075`, 1.4077748294239933`}}, 0.046966480367839764`]}}, {Hue[0, 1, 0.8], {Arrowheads[0.], ArrowBox[{{4.3641850672617775`, 3.1416889714552063`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {Hue[0.14, 1, 0.9], DiskBox[{2.2417421967893736, 1.9967248724965296}, 0.046966480367839764]}, InsetBox["\<\"AMA\"\>", Offset[{2, 2}, {2.288708677157213, 2.043691352864369}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.7490536653376987, 2.0596769160666244}, 0.046966480367839764]}, InsetBox["\<\"OFR\"\>", Offset[{2, 2}, {1.7960201457055385, 2.106643396434464}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.06910335000307, 1.965307568098614}, 0.046966480367839764]}, InsetBox["\<\"DOT\"\>", Offset[{2, 2}, {3.11606983037091, 2.0122740484664536}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.6923739957704953, 2.3116495007135645}, 0.046966480367839764]}, InsetBox["\<\"ASH\"\>", Offset[{2, 2}, {2.739340476138335, 2.358615981081404}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.0508254247212463, 2.3011085273433345}, 0.046966480367839764]}, InsetBox["\<\"VIN\"\>", Offset[{2, 2}, {3.097791905089086, 2.348075007711174}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.9350586108814647, 1.4314573947187421}, 0.046966480367839764]}, InsetBox["\<\"ECH\"\>", Offset[{2, 2}, {1.9820250912493045, 1.478423875086582}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.3254801139325076, 0.8427900980487346}, 0.046966480367839764]}, InsetBox["\<\"DIV\"\>", Offset[{2, 2}, {2.372446594300347, 0.8897565784165744}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{4.098806202058695, 2.6040284702046423}, 0.046966480367839764]}, InsetBox["\<\"DUI\"\>", Offset[{2, 2}, {4.145772682426535, 2.650994950572482}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.5593984745938423, 2.5508550429575}, 0.046966480367839764]}, InsetBox["\<\"MLO\"\>", Offset[{2, 2}, {2.606364954961682, 2.5978215233253397}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{4.276805586776847, 1.9649816740304353}, 0.046966480367839764]}, InsetBox["\<\"DOV\"\>", Offset[{2, 2}, {4.323772067144687, 2.011948154398275}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{5.705942496372727, 1.7037420043212381}, 0.046966480367839764]}, InsetBox["\<\"DUN\"\>", Offset[{2, 2}, {5.752908976740567, 1.750708484689078}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{4.056068133125937, 1.577936911527845}, 0.046966480367839764]}, InsetBox["\<\"PIS\"\>", Offset[{2, 2}, {4.103034613493777, 1.6249033918956848}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{5.609486156720985, 1.337650842585623}, 0.046966480367839764]}, InsetBox["\<\"DEA\"\>", Offset[{2, 2}, {5.656452637088825, 1.3846173229534628}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.3985098954680972, 2.547823829731471}, 0.046966480367839764]}, InsetBox["\<\"VOR\"\>", Offset[{2, 2}, {3.445476375835937, 2.5947903100993104}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.003863029787065, 2.1431947879426105}, 0.046966480367839764]}, InsetBox["\<\"VIX\"\>", Offset[{2, 2}, {3.0508295101549048, 2.19016126831045}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.7070907247637195, 1.567411953661388}, 0.046966480367839764]}, InsetBox["\<\"OST\"\>", Offset[{2, 2}, {1.7540572051315593, 1.6143784340292278}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.323817058151051, 2.4295893529329433}, 0.046966480367839764]}, InsetBox["\<\"OMO\"\>", Offset[{2, 2}, {1.370783538518891, 2.476555833300783}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.8393248416980734, 3.001678912953419}, 0.046966480367839764]}, InsetBox["\<\"VEL\"\>", Offset[{2, 2}, {2.886291322065913, 3.0486453933212587}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.5214085110208795, 2.0829862735279354}, 0.046966480367839764]}, InsetBox["\<\"OBI\"\>", Offset[{2, 2}, {0.5683749913887193, 2.129952753895775}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.12078515290921654, 2.650232619453675}, 0.046966480367839764]}, InsetBox["\<\"OKO\"\>", Offset[{2, 2}, {0.1677516332770563, 2.6971990998215145}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0., 2.26930332084519}, 0.046966480367839764]}, InsetBox["\<\"OCH\"\>", Offset[{2, 2}, {0.046966480367839764, 2.3162698012130294}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.20040482376984903, 3.2241708698882308}, 0.046966480367839764]}, InsetBox["\<\"OCE\"\>", Offset[{2, 2}, {0.2473713041376888, 3.2711373502560703}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.3724849871837996, 2.7062903408578323}, 0.046966480367839764]}, InsetBox["\<\"TUZ\"\>", Offset[{2, 2}, {2.419451467551639, 2.753256821225672}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.0521136330652543, 0.770227690922028}, 0.046966480367839764]}, InsetBox["\<\"VIL\"\>", Offset[{2, 2}, {3.099080113433094, 0.8171941712898678}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.2804975122357636, 2.9741602758583543}, 0.046966480367839764]}, InsetBox["\<\"VAA\"\>", Offset[{2, 2}, {3.327463992603603, 3.021126756226194}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.580151017437533, 3.5362323082782128}, 0.046966480367839764]}, InsetBox["\<\"VAP\"\>", Offset[{2, 2}, {3.6271174978053726, 3.5831987886460523}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.493094552434439, 3.0393162226740644}, 0.046966480367839764]}, InsetBox["\<\"VIO\"\>", Offset[{2, 2}, {2.5400610328022784, 3.086282703041904}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.577071127785599, 1.2956185619005178}, 0.046966480367839764]}, InsetBox["\<\"VAN\"\>", Offset[{2, 2}, {3.6240376081534387, 1.3425850422683576}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.7921031203706335, 1.4865966978459673}, 0.046966480367839764]}, InsetBox["\<\"VET\"\>", Offset[{2, 2}, {2.839069600738473, 1.533563178213807}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.900972389572577, 0.4895713159101325}, 0.046966480367839764]}, InsetBox["\<\"VAZ\"\>", Offset[{2, 2}, {3.9479388699404168, 0.5365377962779723}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.7341742761150485, 1.7833992223252553}, 0.046966480367839764]}, InsetBox["\<\"VIV\"\>", Offset[{2, 2}, {3.781140756482888, 1.830365702693095}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.4345059388892007, 2.1083766127232515}, 0.046966480367839764]}, InsetBox["\<\"VEG\"\>", Offset[{2, 2}, {3.4814724192570403, 2.155343093091091}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.1038785769545756, 3.9353441339932367}, 0.046966480367839764]}, InsetBox["\<\"VEI\"\>", Offset[{2, 2}, {2.150845057322415, 3.9823106143610763}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{4.3641850672617775, 3.1416889714552063}, 0.046966480367839764]}, InsetBox["\<\"VAT\"\>", Offset[{2, 2}, {4.4111515476296175, 3.188655451823046}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{3.6643999386692236, 2.4798935651387697}, 0.046966480367839764]}, InsetBox["\<\"VOT\"\>", Offset[{2, 2}, {3.711366419037063, 2.5268600455066093}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.412520993581118, 3.6224390013597016}, 0.046966480367839764]}, InsetBox["\<\"ACA\"\>", Offset[{2, 2}, {2.4594874739489576, 3.669405481727541}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{5.05770479431974, 2.0984234127332657}, 0.046966480367839764]}, InsetBox["\<\"VOG\"\>", Offset[{2, 2}, {5.10467127468758, 2.1453898931011053}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.7992088083622755, 0.953005653387923}, 0.046966480367839764]}, InsetBox["\<\"VOY\"\>", Offset[{2, 2}, {2.846175288730115, 0.9999721337557628}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.560614392848657, 4.061823599966873}, 0.046966480367839764]}, InsetBox["\<\"VOW\"\>", Offset[{2, 2}, {2.6075808732164965, 4.108790080334713}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{4.842294325772201, 1.0381550924567922}, 0.046966480367839764]}, InsetBox["\<\"DUB\"\>", Offset[{2, 2}, {4.889260806140041, 1.085121572824632}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.7130052088944134, 1.0558619988176456}, 0.046966480367839764]}, InsetBox["\<\"ROY\"\>", Offset[{2, 2}, {1.7599716892622532, 1.1028284791854854}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.42395458198833547, 1.0268753139750664}, 0.046966480367839764]}, InsetBox["\<\"OAT\"\>", Offset[{2, 2}, {0.47092106235617526, 1.0738417943429062}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.0159240870708266, 2.565622289742292}, 0.046966480367839764]}, InsetBox["\<\"EDW\"\>", Offset[{2, 2}, {2.062890567438666, 2.6125887701101314}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{1.2345042461710136, 0.22223793934819325}, 0.046966480367839764]}, InsetBox["\<\"ELV\"\>", Offset[{2, 2}, {1.2814707265388534, 0.26920441971603304}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.9731935590146934, 4.485354095364575}, 0.046966480367839764]}, InsetBox["\<\"ORB\"\>", Offset[{2, 2}, {3.020160039382533, 4.532320575732415}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{4.305020433317991, 3.771022748712493}, 0.046966480367839764]}, InsetBox["\<\"VAI\"\>", Offset[{2, 2}, {4.351986913685831, 3.817989229080333}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.7573833949139783, 0.}, 0.046966480367839764]}, InsetBox["\<\"VIG\"\>", Offset[{2, 2}, {2.804349875281818, 0.046966480367839764}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{5.711158690299976, 2.2642987881564105}, 0.046966480367839764]}, InsetBox["\<\"DOX\"\>", Offset[{2, 2}, {5.758125170667816, 2.31126526852425}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{5.0023437070107075, 1.4077748294239933}, 0.046966480367839764]}, InsetBox["\<\"VEX\"\>", Offset[{2, 2}, {5.0493101873785475, 1.4547413097918331}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.6804972928289903, 0.6187971060378612}, 0.046966480367839764]}, InsetBox["\<\"POW\"\>", Offset[{2, 2}, {0.7274637731968301, 0.665763586405701}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{3.7507020177529707`*^9}, CellLabel-> "Out[212]=",ExpressionUUID->"a5165129-385b-4c3b-b687-639105ee418d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fission1", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", RowBox[{ RowBox[{"FindGraphPartition", "[", RowBox[{"g", ",", "2"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.746397355332594*^9, 3.7463974256792173`*^9}}, CellLabel-> "In[214]:=",ExpressionUUID->"c35ba10c-b8cf-4afe-addb-d980b47e8386"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "DOT", "VIN", "DIV", "DUI", "MLO", "DOV", "DUN", "PIS", "DEA", "VOR", "VIX", "VAA", "VAP", "VAN", "VET", "VAZ", "VIV", "VEG", "VAT", "VOT", "VOG", "VOY", "DUB", "VAI", "VIG", "DOX", "VEX"}, { Null, {{3, 1}, {1, 4}, {1, 5}, {6, 2}, {6, 4}, {1, 6}, {6, 7}, {6, 8}, { 8, 2}, {9, 6}, {9, 7}, {6, 10}, {2, 10}, {5, 10}, {6, 11}, {8, 11}, {2, 11}, {11, 10}, {5, 11}, {12, 2}, {12, 10}, {12, 11}, {4, 12}, {12, 13}, {13, 2}, {14, 10}, {14, 15}, {15, 11}, {15, 2}, {15, 10}, {16, 17}, {2, 17}, {17, 10}, {17, 11}, {6, 17}, {15, 17}, {1, 17}, {18, 17}, {1, 18}, {18, 15}, {18, 10}, {19, 10}, {10, 20}, {1, 20}, {11, 20}, {19, 20}, {2, 20}, {17, 20}, {17, 21}, {11, 22}, {15, 22}, {6, 23}, {23, 8}, {24, 10}, {15, 25}, {6, 26}, {27, 17}}}, { VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Arrowheads[0.], ArrowBox[{{2.6401105562004443`, 2.6546721074990183`}, { 2.9304559196269273`, 3.98503046235914}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.6401105562004443`, 2.6546721074990183`}, { 3.4850137369302447`, 2.8725439106337487`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.6401105562004443`, 2.6546721074990183`}, { 2.1343918453173925`, 2.975266688279665}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.6401105562004443`, 2.6546721074990183`}, { 3.380500128258567, 1.8208937001101135`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.6401105562004443`, 2.6546721074990183`}, { 2.1449973018033486`, 1.312022158152788}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.6401105562004443`, 2.6546721074990183`}, { 1.7185236535128143`, 1.960046976473109}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.6401105562004443`, 2.6546721074990183`}, { 2.127095492348195, 2.396324073315247}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 3.380500128258567, 1.8208937001101135`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 3.158477784353027, 1.2281734084579585`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 1.856656998442277, 2.3472771453998584`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 2.2299715545004193`, 1.829330720213449}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 2.9105940035404982`, 2.3948509293025957`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 3.598153894129342, 2.3876205102139645`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 1.2990702036463808`, 1.7179211898426785`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 2.1449973018033486`, 1.312022158152788}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.5961284441032113`, 1.869510661543237}, { 2.127095492348195, 2.396324073315247}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.4850137369302447`, 2.8725439106337487`}, { 3.380500128258567, 1.8208937001101135`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.4850137369302447`, 2.8725439106337487`}, { 2.9105940035404982`, 2.3948509293025957`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.1343918453173925`, 2.975266688279665}, { 1.856656998442277, 2.3472771453998584`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.1343918453173925`, 2.975266688279665}, { 2.2299715545004193`, 1.829330720213449}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 4.670336072813444, 2.2116001686254476`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 3.158477784353027, 1.2281734084579585`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 4.707124488306453, 1.7690110707840234`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 1.856656998442277, 2.3472771453998584`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 2.2299715545004193`, 1.829330720213449}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 2.1449973018033486`, 1.312022158152788}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 3.86711530561215, 0.8698273270195882}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.380500128258567, 1.8208937001101135`}, { 4.54593594441294, 1.1396456339154728`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{4.670336072813444, 2.2116001686254476`}, { 4.707124488306453, 1.7690110707840234`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.158477784353027, 1.2281734084579585`}, { 2.2299715545004193`, 1.829330720213449}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{3.158477784353027, 1.2281734084579585`}, { 3.86711530561215, 0.8698273270195882}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 2.2299715545004193`, 1.829330720213449}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 2.9105940035404982`, 2.3948509293025957`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 0.6987920597636239, 2.2913618681254246`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 1.2990702036463808`, 1.7179211898426785`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 2.1449973018033486`, 1.312022158152788}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 1.7185236535128143`, 1.960046976473109}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 1.515530399220701, 3.2322202971588805`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 2.127095492348195, 2.396324073315247}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.856656998442277, 2.3472771453998584`}, { 0.8041677739307203, 3.296187386583079}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.2299715545004193`, 1.829330720213449}, { 2.9105940035404982`, 2.3948509293025957`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.2299715545004193`, 1.829330720213449}, { 1.2990702036463808`, 1.7179211898426785`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.2299715545004193`, 1.829330720213449}, { 2.1449973018033486`, 1.312022158152788}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.2299715545004193`, 1.829330720213449}, { 2.127095492348195, 2.396324073315247}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.2299715545004193`, 1.829330720213449}, { 1.091386063401636, 1.2222218456303058`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.9105940035404982`, 2.3948509293025957`}, { 3.598153894129342, 2.3876205102139645`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{0.6987920597636239, 2.2913618681254246`}, { 1.2990702036463808`, 1.7179211898426785`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.2990702036463808`, 1.7179211898426785`}, { 2.1449973018033486`, 1.312022158152788}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.2990702036463808`, 1.7179211898426785`}, { 1.7185236535128143`, 1.960046976473109}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.2990702036463808`, 1.7179211898426785`}, { 1.091386063401636, 1.2222218456303058`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.2990702036463808`, 1.7179211898426785`}, {0., 1.4368238299695881`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.4733204265239213`, 0.045065410537910244`}, { 2.1449973018033486`, 1.312022158152788}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.1449973018033486`, 1.312022158152788}, { 1.7185236535128143`, 1.960046976473109}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.1449973018033486`, 1.312022158152788}, { 2.127095492348195, 2.396324073315247}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.1449973018033486`, 1.312022158152788}, { 1.3517948811579408`, 0.23627737890693323`}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{2.1449973018033486`, 1.312022158152788}, { 1.8907800269149337`, 0.}}, 0.041346418541877844`]}, {Arrowheads[0.], ArrowBox[{{1.515530399220701, 3.2322202971588805`}, { 2.127095492348195, 2.396324073315247}}, 0.041346418541877844`]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{2.6401105562004443, 2.6546721074990183}, 0.041346418541877844], InsetBox["\<\"DOT\"\>", Offset[{2, 2}, {2.6814569747423223, 2.696018526040896}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.5961284441032113, 1.869510661543237}, 0.041346418541877844], InsetBox["\<\"VIN\"\>", Offset[{2, 2}, {2.6374748626450892, 1.910857080085115}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.9304559196269273, 3.98503046235914}, 0.041346418541877844], InsetBox["\<\"DIV\"\>", Offset[{2, 2}, {2.9718023381688052, 4.026376880901018}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.4850137369302447, 2.8725439106337487}, 0.041346418541877844], InsetBox["\<\"DUI\"\>", Offset[{2, 2}, {3.5263601554721227, 2.9138903291756266}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.1343918453173925, 2.975266688279665}, 0.041346418541877844], InsetBox["\<\"MLO\"\>", Offset[{2, 2}, {2.1757382638592704, 3.0166131068215427}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.380500128258567, 1.8208937001101135}, 0.041346418541877844], InsetBox["\<\"DOV\"\>", Offset[{2, 2}, {3.421846546800445, 1.8622401186519915}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.670336072813444, 2.2116001686254476}, 0.041346418541877844], InsetBox["\<\"DUN\"\>", Offset[{2, 2}, {4.7116824913553215, 2.2529465871673255}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.158477784353027, 1.2281734084579585}, 0.041346418541877844], InsetBox["\<\"PIS\"\>", Offset[{2, 2}, {3.199824202894905, 1.2695198269998365}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.707124488306453, 1.7690110707840234}, 0.041346418541877844], InsetBox["\<\"DEA\"\>", Offset[{2, 2}, {4.748470906848331, 1.8103574893259013}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.856656998442277, 2.3472771453998584}, 0.041346418541877844], InsetBox["\<\"VOR\"\>", Offset[{2, 2}, {1.8980034169841549, 2.3886235639417364}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2299715545004193, 1.829330720213449}, 0.041346418541877844], InsetBox["\<\"VIX\"\>", Offset[{2, 2}, {2.271317973042297, 1.870677138755327}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.9105940035404982, 2.3948509293025957}, 0.041346418541877844], InsetBox["\<\"VAA\"\>", Offset[{2, 2}, {2.951940422082376, 2.4361973478444736}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.598153894129342, 2.3876205102139645}, 0.041346418541877844], InsetBox["\<\"VAP\"\>", Offset[{2, 2}, {3.63950031267122, 2.4289669287558424}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.6987920597636239, 2.2913618681254246}, 0.041346418541877844], InsetBox["\<\"VAN\"\>", Offset[{2, 2}, {0.7401384783055017, 2.3327082866673026}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.2990702036463808, 1.7179211898426785}, 0.041346418541877844], InsetBox["\<\"VET\"\>", Offset[{2, 2}, {1.3404166221882587, 1.7592676083845564}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.4733204265239213, 0.045065410537910244}, 0.041346418541877844], InsetBox["\<\"VAZ\"\>", Offset[{2, 2}, {2.514666845065799, 0.08641182907978809}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.1449973018033486, 1.312022158152788}, 0.041346418541877844], InsetBox["\<\"VIV\"\>", Offset[{2, 2}, {2.1863437203452265, 1.353368576694666}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7185236535128143, 1.960046976473109}, 0.041346418541877844], InsetBox["\<\"VEG\"\>", Offset[{2, 2}, {1.7598700720546923, 2.0013933950149867}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.515530399220701, 3.2322202971588805}, 0.041346418541877844], InsetBox["\<\"VAT\"\>", Offset[{2, 2}, {1.556876817762579, 3.2735667157007584}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.127095492348195, 2.396324073315247}, 0.041346418541877844], InsetBox["\<\"VOT\"\>", Offset[{2, 2}, {2.1684419108900728, 2.437670491857125}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.3517948811579408, 0.23627737890693323}, 0.041346418541877844], InsetBox["\<\"VOG\"\>", Offset[{2, 2}, {1.3931412996998187, 0.27762379744881105}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.091386063401636, 1.2222218456303058}, 0.041346418541877844], InsetBox["\<\"VOY\"\>", Offset[{2, 2}, {1.1327324819435138, 1.2635682641721837}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.86711530561215, 0.8698273270195882}, 0.041346418541877844], InsetBox["\<\"DUB\"\>", Offset[{2, 2}, {3.908461724154028, 0.911173745561466}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.8041677739307203, 3.296187386583079}, 0.041346418541877844], InsetBox["\<\"VAI\"\>", Offset[{2, 2}, {0.8455141924725981, 3.337533805124957}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 1.4368238299695881}, 0.041346418541877844], InsetBox["\<\"VIG\"\>", Offset[{2, 2}, {0.041346418541877844, 1.478170248511466}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.54593594441294, 1.1396456339154728}, 0.041346418541877844], InsetBox["\<\"DOX\"\>", Offset[{2, 2}, {4.587282362954817, 1.1809920524573507}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.8907800269149337, 0.}, 0.041346418541877844], InsetBox["\<\"VEX\"\>", Offset[{2, 2}, {1.9321264454568117, 0.041346418541877844}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.746397394291686*^9, 3.7463974275655394`*^9}, 3.7464001271330185`*^9, 3.746404172513296*^9, 3.746444679900404*^9, 3.7507020179752*^9}, CellLabel-> "Out[214]=",ExpressionUUID->"78fd1754-8c66-40d1-976b-58ff2f18cd95"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fission2", "=", RowBox[{"Subgraph", "[", RowBox[{"g", ",", RowBox[{ RowBox[{"FindGraphPartition", "[", RowBox[{"g", ",", "2"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"VertexLabels", "\[Rule]", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7463974350576286`*^9, 3.7463974400622244`*^9}}, CellLabel-> "In[215]:=",ExpressionUUID->"2c81fffe-c9d0-4398-9254-40edd1cc0de3"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "AMA", "OFR", "ASH", "ECH", "OST", "OMO", "VEL", "OBI", "OKO", "OCH", "OCE", "TUZ", "VIL", "VIO", "VEI", "ACA", "VOW", "ROY", "OAT", "EDW", "ELV", "ORB", "POW"}, { Null, {{1, 2}, {3, 2}, {3, 4}, {4, 5}, {2, 5}, {1, 5}, {3, 5}, {4, 6}, { 2, 6}, {6, 5}, {1, 7}, {8, 6}, {8, 5}, {8, 9}, {9, 6}, {8, 10}, {10, 6}, {11, 6}, {6, 12}, {12, 7}, {5, 13}, {7, 14}, {6, 14}, {12, 14}, {3, 14}, {15, 7}, {15, 14}, {16, 3}, {7, 17}, {14, 17}, {4, 18}, {2, 18}, {19, 5}, {20, 7}, {20, 2}, {3, 20}, {20, 6}, {4, 21}, {22, 7}, {5, 23}}}, {VertexLabels -> {"Name"}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Arrowheads[0.], ArrowBox[{{2.516230464244764, 1.5846245387756244`}, { 3.053802900554655, 1.9765262374073886`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.516230464244764, 1.5846245387756244`}, { 3.738484847664076, 1.5508984492825235`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.516230464244764, 1.5846245387756244`}, { 1.2302823898557866`, 1.6042145696679064`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.053802900554655, 1.9765262374073886`}, { 2.7263123617888585`, 2.376546648205876}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.053802900554655, 1.9765262374073886`}, { 3.738484847664076, 1.5508984492825235`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.053802900554655, 1.9765262374073886`}, { 2.877390809563707, 1.0802950729345904`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.053802900554655, 1.9765262374073886`}, { 3.5336832934519506`, 2.893648791670511}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.053802900554655, 1.9765262374073886`}, { 2.2256450558668686`, 1.8887274571250794`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.7263123617888585`, 2.376546648205876}, { 3.600842142336785, 2.2791604724578685`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.7263123617888585`, 2.376546648205876}, { 3.738484847664076, 1.5508984492825235`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.7263123617888585`, 2.376546648205876}, { 1.6886161971029356`, 1.6654663468426782`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.7263123617888585`, 2.376546648205876}, { 2.431871087272384, 3.512810624329491}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.7263123617888585`, 2.376546648205876}, { 2.2256450558668686`, 1.8887274571250794`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.600842142336785, 2.2791604724578685`}, { 3.738484847664076, 1.5508984492825235`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.600842142336785, 2.2791604724578685`}, { 2.877390809563707, 1.0802950729345904`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.600842142336785, 2.2791604724578685`}, { 3.5336832934519506`, 2.893648791670511}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.600842142336785, 2.2791604724578685`}, { 4.368579895575813, 3.2065092436576665`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.738484847664076, 1.5508984492825235`}, { 2.877390809563707, 1.0802950729345904`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.738484847664076, 1.5508984492825235`}, { 3.3559543923430426`, 0.583685847309577}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.738484847664076, 1.5508984492825235`}, { 4.84592978484009, 2.0013797475155237`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.738484847664076, 1.5508984492825235`}, { 4.928044179897312, 1.4226377408518727`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.738484847664076, 1.5508984492825235`}, { 4.713797194361545, 0.8868526433644127}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.877390809563707, 1.0802950729345904`}, { 3.3559543923430426`, 0.583685847309577}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.877390809563707, 1.0802950729345904`}, { 3.144795141664268, 0.}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.877390809563707, 1.0802950729345904`}, { 2.7008979641596658`, 0.11837471298461}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.877390809563707, 1.0802950729345904`}, { 3.655993021465854, 0.05133371160924982}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.877390809563707, 1.0802950729345904`}, { 1.7539604044055324`, 0.9987461892727585}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.877390809563707, 1.0802950729345904`}, { 1.6886161971029356`, 1.6654663468426782`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{2.877390809563707, 1.0802950729345904`}, { 2.2256450558668686`, 1.8887274571250794`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.2302823898557866`, 1.6042145696679064`}, { 1.7539604044055324`, 0.9987461892727585}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.2302823898557866`, 1.6042145696679064`}, { 1.6886161971029356`, 1.6654663468426782`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.2302823898557866`, 1.6042145696679064`}, { 0.7027483565369752, 1.3089272509401493`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.2302823898557866`, 1.6042145696679064`}, { 0.7789911484063188, 2.118422269074398}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.2302823898557866`, 1.6042145696679064`}, { 2.2256450558668686`, 1.8887274571250794`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.2302823898557866`, 1.6042145696679064`}, {0., 1.5984904800777269`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.3559543923430426`, 0.583685847309577}, { 3.144795141664268, 0.}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{3.3559543923430426`, 0.583685847309577}, { 2.7008979641596658`, 0.11837471298461}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.7539604044055324`, 0.9987461892727585}, { 1.6886161971029356`, 1.6654663468426782`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.6886161971029356`, 1.6654663468426782`}, { 0.7027483565369752, 1.3089272509401493`}}, 0.04263499803386095]}, {Arrowheads[0.], ArrowBox[{{1.6886161971029356`, 1.6654663468426782`}, { 0.7789911484063188, 2.118422269074398}}, 0.04263499803386095]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{2.516230464244764, 1.5846245387756244}, 0.04263499803386095], InsetBox["\<\"AMA\"\>", Offset[{2, 2}, {2.558865462278625, 1.6272595368094853}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.053802900554655, 1.9765262374073886}, 0.04263499803386095], InsetBox["\<\"OFR\"\>", Offset[{2, 2}, {3.096437898588516, 2.0191612354412496}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7263123617888585, 2.376546648205876}, 0.04263499803386095], InsetBox["\<\"ASH\"\>", Offset[{2, 2}, {2.7689473598227194, 2.419181646239737}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.600842142336785, 2.2791604724578685}, 0.04263499803386095], InsetBox["\<\"ECH\"\>", Offset[{2, 2}, {3.643477140370646, 2.3217954704917294}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.738484847664076, 1.5508984492825235}, 0.04263499803386095], InsetBox["\<\"OST\"\>", Offset[{2, 2}, {3.781119845697937, 1.5935334473163845}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.877390809563707, 1.0802950729345904}, 0.04263499803386095], InsetBox["\<\"OMO\"\>", Offset[{2, 2}, {2.920025807597568, 1.1229300709684513}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.2302823898557866, 1.6042145696679064}, 0.04263499803386095], InsetBox["\<\"VEL\"\>", Offset[{2, 2}, {1.2729173878896476, 1.6468495677017674}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.3559543923430426, 0.583685847309577}, 0.04263499803386095], InsetBox["\<\"OBI\"\>", Offset[{2, 2}, {3.3985893903769036, 0.6263208453434379}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.144795141664268, 0.}, 0.04263499803386095], InsetBox["\<\"OKO\"\>", Offset[{2, 2}, {3.187430139698129, 0.04263499803386095}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.7008979641596658, 0.11837471298461}, 0.04263499803386095], InsetBox["\<\"OCH\"\>", Offset[{2, 2}, {2.7435329621935267, 0.16100971101847095}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.655993021465854, 0.05133371160924982}, 0.04263499803386095], InsetBox["\<\"OCE\"\>", Offset[{2, 2}, {3.698628019499715, 0.09396870964311077}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.7539604044055324, 0.9987461892727585}, 0.04263499803386095], InsetBox["\<\"TUZ\"\>", Offset[{2, 2}, {1.7965954024393933, 1.0413811873066194}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.84592978484009, 2.0013797475155237}, 0.04263499803386095], InsetBox["\<\"VIL\"\>", Offset[{2, 2}, {4.888564782873951, 2.0440147455493847}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.6886161971029356, 1.6654663468426782}, 0.04263499803386095], InsetBox["\<\"VIO\"\>", Offset[{2, 2}, {1.7312511951367966, 1.7081013448765392}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7027483565369752, 1.3089272509401493}, 0.04263499803386095], InsetBox["\<\"VEI\"\>", Offset[{2, 2}, {0.7453833545708362, 1.3515622489740102}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.431871087272384, 3.512810624329491}, 0.04263499803386095], InsetBox["\<\"ACA\"\>", Offset[{2, 2}, {2.474506085306245, 3.555445622363352}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7789911484063188, 2.118422269074398}, 0.04263499803386095], InsetBox["\<\"VOW\"\>", Offset[{2, 2}, {0.8216261464401797, 2.161057267108259}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.5336832934519506, 2.893648791670511}, 0.04263499803386095], InsetBox["\<\"ROY\"\>", Offset[{2, 2}, {3.5763182914858116, 2.936283789704372}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.928044179897312, 1.4226377408518727}, 0.04263499803386095], InsetBox["\<\"OAT\"\>", Offset[{2, 2}, {4.9706791779311725, 1.4652727388857336}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{2.2256450558668686, 1.8887274571250794}, 0.04263499803386095], InsetBox["\<\"EDW\"\>", Offset[{2, 2}, {2.2682800539007295, 1.9313624551589403}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.368579895575813, 3.2065092436576665}, 0.04263499803386095], InsetBox["\<\"ELV\"\>", Offset[{2, 2}, {4.4112148936096744, 3.2491442416915275}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0., 1.5984904800777269}, 0.04263499803386095], InsetBox["\<\"ORB\"\>", Offset[{2, 2}, {0.04263499803386095, 1.6411254781115878}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{4.713797194361545, 0.8868526433644127}, 0.04263499803386095], InsetBox["\<\"POW\"\>", Offset[{2, 2}, {4.7564321923954065, 0.9294876413982737}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.74639743559579*^9, 3.7463974408032265`*^9}, 3.7464001280646763`*^9, 3.7464041749410524`*^9, 3.746444680760186*^9, 3.7507020180350227`*^9}, CellLabel-> "Out[215]=",ExpressionUUID->"65965536-64a7-4282-a8f0-e6b09b9cac3e"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"strongbonds1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"strongbonds2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"EdgeList", "[", "fission2", "]"}], "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}]}], "&"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "fission2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7463977105463195`*^9, 3.7463978203740873`*^9}, { 3.7463978804819*^9, 3.7463979212468967`*^9}, {3.746397955546936*^9, 3.7463979714959116`*^9}, {3.746398009790866*^9, 3.7463981000271263`*^9}, { 3.746398265882224*^9, 3.7463982835088997`*^9}}, CellLabel-> "In[216]:=",ExpressionUUID->"2f8fecca-639c-41dd-8bb5-4af46f31112f"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"n1", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission1", "]"}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"vector", " ", "of", " ", "individuals"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n2", "=", RowBox[{"Sort", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7459400118286686`*^9, 3.745940020311623*^9}, { 3.7463981332193785`*^9, 3.7463981375904894`*^9}, {3.746398300961608*^9, 3.74639830639964*^9}, {3.7464000425075245`*^9, 3.746400053032634*^9}}, CellLabel-> "In[218]:=",ExpressionUUID->"90600fee-7625-495c-92f5-afd93b0df866"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Dimensions", "[", "n1", "]"}], "\[IndentingNewLine]", RowBox[{"Dimensions", "[", "n2", "]"}]}], "Input", CellChangeTimes->{{3.7463983226813374`*^9, 3.7463983295381947`*^9}}, CellLabel-> "In[220]:=",ExpressionUUID->"48ae135e-7917-465f-b349-7d00d28072ae"], Cell[BoxData[ RowBox[{"{", "27", "}"}]], "Output", CellChangeTimes->{3.74639833005914*^9, 3.746400132231003*^9, 3.7507020184044676`*^9}, CellLabel-> "Out[220]=",ExpressionUUID->"a12933bc-af4b-4aa7-af6d-4dcdc1d1cca4"], Cell[BoxData[ RowBox[{"{", "23", "}"}]], "Output", CellChangeTimes->{3.74639833005914*^9, 3.746400132231003*^9, 3.7507020184126186`*^9}, CellLabel-> "Out[221]=",ExpressionUUID->"a2c058c9-ec31-4b03-806e-ac6d4f8159db"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"deg1", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n1", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds1", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"deg2", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{"n2", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}], "\[Or]", RowBox[{ RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", RowBox[{"strongbonds2", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "strongbonds2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"degree", " ", "of", " ", "each", " ", "individual"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.745940033735406*^9, 3.7459400475325823`*^9}, { 3.746398375143742*^9, 3.746398411644123*^9}, {3.7463984607293034`*^9, 3.746398489969491*^9}, {3.7480370908833027`*^9, 3.748037105636234*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"dffc18ee-de75-4c53-a9df-c63148d04e2c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7463985032374134`*^9, 3.7463985569310923`*^9}, { 3.746400122383336*^9, 3.746400122479124*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"2a2590ac-ce5a-4596-8422-8aecf60bf334"], Cell[BoxData["5766"], "Output", CellChangeTimes->{{3.7463985095187054`*^9, 3.74639855748592*^9}, 3.746400133960019*^9, 3.7507020185034804`*^9}, CellLabel-> "Out[224]=",ExpressionUUID->"7aa09eb0-47b9-477d-bf66-0a3f28957a71"], Cell[BoxData["2766"], "Output", CellChangeTimes->{{3.7463985095187054`*^9, 3.74639855748592*^9}, 3.746400133960019*^9, 3.750702018509182*^9}, CellLabel-> "Out[225]=",ExpressionUUID->"c71fa260-932c-473e-a419-1e6bd1bafb82"], Cell[BoxData["213.55555555555554`"], "Output", CellChangeTimes->{{3.7463985095187054`*^9, 3.74639855748592*^9}, 3.746400133960019*^9, 3.7507020185125656`*^9}, CellLabel-> "Out[226]=",ExpressionUUID->"4650edb9-d850-4b35-8397-05ba82e5adc1"], Cell[BoxData["120.26086956521739`"], "Output", CellChangeTimes->{{3.7463985095187054`*^9, 3.74639855748592*^9}, 3.746400133960019*^9, 3.7507020185176215`*^9}, CellLabel-> "Out[227]=",ExpressionUUID->"6a54de89-87cc-442c-b8e1-f851d19ead2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"betweenness1", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{ RowBox[{"VertexList", "[", "fission1", "]"}], ",", RowBox[{"BetweennessCentrality", "[", "fission1", "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"betweenness2", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{ RowBox[{"VertexList", "[", "fission2", "]"}], ",", RowBox[{"BetweennessCentrality", "[", "fission2", "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.746204207366505*^9, 3.746204230964226*^9}, { 3.7462043369718018`*^9, 3.7462043570111065`*^9}, {3.7462044695228004`*^9, 3.7462044766472373`*^9}, {3.746398668739292*^9, 3.7463987057084312`*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"861297e4-1491-4dbf-a6a6-adfd2258ea95"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"DEA\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DIV\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DOT\"\>", ",", "37.581746031746036`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DOV\"\>", ",", "103.50555555555557`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DOX\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DUB\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DUI\"\>", ",", "3.6666666666666665`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DUN\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"MLO\"\>", ",", "1.9190476190476191`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"PIS\"\>", ",", "3.535714285714285`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAA\"\>", ",", "8.75`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAI\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAN\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAP\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAT\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAZ\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEG\"\>", ",", "3.9269841269841272`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VET\"\>", ",", "37.776984126984125`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEX\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIG\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIN\"\>", ",", "32.74682539682539`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIV\"\>", ",", "85.17539682539682`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIX\"\>", ",", "36.66349206349206`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOG\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOR\"\>", ",", "75.26587301587304`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOT\"\>", ",", "9.485714285714286`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOY\"\>", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.746204231288288*^9, {3.74620434820236*^9, 3.7462043573439455`*^9}, 3.7462044772886105`*^9, 3.746204600733567*^9, 3.746397307870559*^9, { 3.7463986882079525`*^9, 3.7463987061721687`*^9}, 3.7507020185452023`*^9}, CellLabel-> "Out[228]=",ExpressionUUID->"015b7645-40f0-4ae1-b019-4ce3c6982215"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"ACA\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AMA\"\>", ",", "14.666666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ASH\"\>", ",", "35.33333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ECH\"\>", ",", "29.633333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"EDW\"\>", ",", "10.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ELV\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OAT\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OBI\"\>", ",", "5.833333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OCE\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OCH\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OFR\"\>", ",", "17.8`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OKO\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OMO\"\>", ",", "84.16666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ORB\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OST\"\>", ",", "74.13333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"POW\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ROY\"\>", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"TUZ\"\>", ",", "3.833333333333334`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEI\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEL\"\>", ",", "34.166666666666664`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIL\"\>", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIO\"\>", ",", "37.133333333333326`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOW\"\>", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.746204231288288*^9, {3.74620434820236*^9, 3.7462043573439455`*^9}, 3.7462044772886105`*^9, 3.746204600733567*^9, 3.746397307870559*^9, { 3.7463986882079525`*^9, 3.7463987061721687`*^9}, 3.750702018554099*^9}, CellLabel-> "Out[229]=",ExpressionUUID->"36bd65e3-5aee-4bfa-b9ae-f93006f1ab22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"eigencent1", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{ RowBox[{"VertexList", "[", "fission1", "]"}], ",", RowBox[{"EigenvectorCentrality", "[", "fission1", "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"eigencent2", "=", RowBox[{"Sort", "[", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{ RowBox[{"VertexList", "[", "fission2", "]"}], ",", RowBox[{"EigenvectorCentrality", "[", "fission2", "]"}]}], "]"}], ",", "2"}], "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.7462046031017632`*^9, 3.7462046246425*^9}, { 3.7463987596142073`*^9, 3.746398784276246*^9}}, CellLabel-> "In[230]:=",ExpressionUUID->"9a775b71-815d-419e-a905-2812eed99957"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"DEA\"\>", ",", "0.012889613304076446`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DIV\"\>", ",", "0.007072913796909347`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DOT\"\>", ",", "0.04855444052273568`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DOV\"\>", ",", "0.07559555426679362`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DOX\"\>", ",", "0.011011986401290091`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DUB\"\>", ",", "0.016629211420277474`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DUI\"\>", ",", "0.024660156412246798`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"DUN\"\>", ",", "0.012889613304076447`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"MLO\"\>", ",", "0.03366389200717564`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"PIS\"\>", ",", "0.03856136606760647`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAA\"\>", ",", "0.04513809950663006`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAI\"\>", ",", "0.013681337267967456`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAN\"\>", ",", "0.023277008030042727`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAP\"\>", ",", "0.018792621667568062`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAT\"\>", ",", "0.022699903612084557`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VAZ\"\>", ",", "0.012723092155952406`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEG\"\>", ",", "0.04307301398290449`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VET\"\>", ",", "0.06587277021480566`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEX\"\>", ",", "0.012723092155952407`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIG\"\>", ",", "0.009595670762075277`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIN\"\>", ",", "0.08387029183314945`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIV\"\>", ",", "0.08734202608568756`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIX\"\>", ",", "0.08862265415656903`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOG\"\>", ",", "0.012723092155952406`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOR\"\>", ",", "0.09392022803095494`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOT\"\>", ",", "0.061911039174141376`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOY\"\>", ",", "0.022505311704374115`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7462046261655254`*^9, 3.746397307901805*^9, 3.7463987856922216`*^9, 3.750702018575285*^9}, CellLabel-> "Out[230]=",ExpressionUUID->"92223c49-5706-4bd2-8b1a-948759eae477"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"ACA\"\>", ",", "0.014797095264403825`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"AMA\"\>", ",", "0.0454145514389491`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ASH\"\>", ",", "0.07513679322807668`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ECH\"\>", ",", "0.06275640730632438`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"EDW\"\>", ",", "0.06280743948607381`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ELV\"\>", ",", "0.012358958873112903`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OAT\"\>", ",", "0.018664790662699483`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OBI\"\>", ",", "0.05236077142867659`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OCE\"\>", ",", "0.02126058344542028`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OCH\"\>", ",", "0.03157227349314343`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OFR\"\>", ",", "0.08163523293441535`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OKO\"\>", ",", "0.03157227349314364`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OMO\"\>", ",", "0.10795713845876932`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ORB\"\>", ",", "0.010672892616657935`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"OST\"\>", ",", "0.09477620381631492`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"POW\"\>", ",", "0.018664790662699337`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"ROY\"\>", ",", "0.02843582703270485`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"TUZ\"\>", ",", "0.0446865706391022`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEI\"\>", ",", "0.02342598719368169`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VEL\"\>", ",", "0.05419488834490581`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIL\"\>", ",", "0.01866479066269928`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VIO\"\>", ",", "0.06475775232434364`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"VOW\"\>", ",", "0.02342598719368174`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7462046261655254`*^9, 3.746397307901805*^9, 3.7463987856922216`*^9, 3.7507020185806446`*^9}, CellLabel-> "Out[231]=",ExpressionUUID->"c6324b30-a5b8-489f-a60b-d9508469f911"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Correlation", "[", RowBox[{ RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"betweenness1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Correlation", "[", RowBox[{ RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"betweenness2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.746204444379741*^9, 3.7462044849081206`*^9}, { 3.7463988043616085`*^9, 3.7463988156313305`*^9}}, CellLabel-> "In[232]:=",ExpressionUUID->"9dd3a91d-cf5f-409c-a320-b719101a1af5"], Cell[BoxData["0.8742914082093411`"], "Output", CellChangeTimes->{3.7462044853086863`*^9, 3.746204600764815*^9, 3.746397307979907*^9, 3.746398817476071*^9, 3.7507020186543674`*^9}, CellLabel-> "Out[232]=",ExpressionUUID->"9a981e40-9ec2-4114-8cd1-a1c743b3b46b"], Cell[BoxData["0.8638326038427973`"], "Output", CellChangeTimes->{3.7462044853086863`*^9, 3.746204600764815*^9, 3.746397307979907*^9, 3.746398817476071*^9, 3.7507020186592484`*^9}, CellLabel-> "Out[233]=",ExpressionUUID->"162f056e-5609-4101-983e-274f80c06129"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Correlation", "[", RowBox[{ RowBox[{"deg1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"eigencent1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Correlation", "[", RowBox[{ RowBox[{"deg2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"eigencent2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.746204633155404*^9, 3.7462046341137047`*^9}, { 3.7463988225719776`*^9, 3.746398831302085*^9}}, CellLabel-> "In[234]:=",ExpressionUUID->"35f856b7-d767-4dc5-a860-b6392559d4d7"], Cell[BoxData["0.867104901472983`"], "Output", CellChangeTimes->{3.746204634516055*^9, 3.7463973080111504`*^9, 3.746398832092216*^9, 3.750702018673237*^9}, CellLabel-> "Out[234]=",ExpressionUUID->"74db8bca-dbe6-4aea-baea-f7f61ff452eb"], Cell[BoxData["0.8151902136136743`"], "Output", CellChangeTimes->{3.746204634516055*^9, 3.7463973080111504`*^9, 3.746398832092216*^9, 3.7507020186779647`*^9}, CellLabel-> "Out[235]=",ExpressionUUID->"029e59fd-ad01-4bef-98b6-18159d2b30a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Correlation", "[", RowBox[{ RowBox[{"betweenness1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"eigencent1", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Correlation", "[", RowBox[{ RowBox[{"betweenness2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{"eigencent2", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7462046367136006`*^9, 3.746204651235958*^9}, { 3.746398839314082*^9, 3.746398850643673*^9}}, CellLabel-> "In[236]:=",ExpressionUUID->"67e8e82b-4e2e-47cd-8102-63e47d93a3e4"], Cell[BoxData["0.8263824791631531`"], "Output", CellChangeTimes->{3.7462046515755157`*^9, 3.746397308058015*^9, 3.746398851060089*^9, 3.750702018692342*^9}, CellLabel-> "Out[236]=",ExpressionUUID->"934be849-2a3d-4426-9fab-2825803c9161"], Cell[BoxData["0.8837794918954058`"], "Output", CellChangeTimes->{3.7462046515755157`*^9, 3.746397308058015*^9, 3.746398851060089*^9, 3.750702018698234*^9}, CellLabel-> "Out[237]=",ExpressionUUID->"38e0bd66-ba3b-4ad4-9752-d2dd87ee2133"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission1", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{"GlobalClusteringCoefficient", "[", "fission2", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"way", " ", "down", " ", "in", " ", "this", " ", "group"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.7462049147147317`*^9, 3.746204925269766*^9}, { 3.7463988617066617`*^9, 3.746398880075799*^9}}, CellLabel-> "In[238]:=",ExpressionUUID->"8f96b70b-8f6f-4220-8441-3a3fa38da16a"], Cell[BoxData["0.3539325842696629`"], "Output", CellChangeTimes->{{3.746204920347142*^9, 3.746204925650424*^9}, 3.7463973080892563`*^9, {3.7463988637361326`*^9, 3.7463988697983665`*^9}, 3.75070201871329*^9}, CellLabel-> "Out[238]=",ExpressionUUID->"09cece21-fe20-4e00-aa5a-72d53ff75ea3"], Cell[BoxData["0.23333333333333334`"], "Output", CellChangeTimes->{{3.746204920347142*^9, 3.746204925650424*^9}, 3.7463973080892563`*^9, {3.7463988637361326`*^9, 3.7463988697983665`*^9}, 3.7507020187166834`*^9}, CellLabel-> "Out[239]=",ExpressionUUID->"7a494594-cb74-4e61-9d89-4d3602be20f1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"N", "[", RowBox[{"LocalClusteringCoefficient", "[", "fission1", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"LocalClusteringCoefficient", "[", "fission2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.7462052131562433`*^9, 3.7462052198358707`*^9}, { 3.746398885018448*^9, 3.7463988955773*^9}}, CellLabel-> "In[240]:=",ExpressionUUID->"79177244-9b0f-41af-ab13-2ecf5149db2b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.19047619047619047`", ",", "0.4722222222222222`", ",", "0.`", ",", "0.3333333333333333`", ",", "0.3333333333333333`", ",", "0.21818181818181817`", ",", "1.`", ",", "0.6666666666666666`", ",", "1.`", ",", "0.2878787878787879`", ",", "0.4`", ",", "0.4`", ",", "1.`", ",", "1.`", ",", "0.35714285714285715`", ",", "0.`", ",", "0.3090909090909091`", ",", "0.6666666666666666`", ",", "1.`", ",", "0.5333333333333333`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.746205220183516*^9, 3.7463973081361203`*^9, 3.746398896425158*^9, 3.7507020187329426`*^9}, CellLabel-> "Out[240]=",ExpressionUUID->"913aaf81-c542-485a-87a9-281e3e65511f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.3333333333333333`", ",", "0.3333333333333333`", ",", "0.2`", ",", "0.2`", ",", "0.16666666666666666`", ",", "0.15555555555555556`", ",", "0.14285714285714285`", ",", "0.5`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.6666666666666666`", ",", "0.`", ",", "0.26666666666666666`", ",", "1.`", ",", "0.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.3333333333333333`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.746205220183516*^9, 3.7463973081361203`*^9, 3.746398896425158*^9, 3.7507020187373676`*^9}, CellLabel-> "Out[241]=",ExpressionUUID->"5edc18b9-0b3d-4a04-8832-0c69630db60c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"GraphDiameter", "[", "fission1", "]"}], "\[IndentingNewLine]", RowBox[{"GraphDiameter", "[", "fission2", "]"}]}], "Input", CellChangeTimes->{{3.746205296408753*^9, 3.7462053024019194`*^9}, { 3.7463989011306057`*^9, 3.746398906597353*^9}}, CellLabel-> "In[242]:=",ExpressionUUID->"338bf711-1aeb-4c3e-910b-1af1bd629a89"], Cell[BoxData["4"], "Output", CellChangeTimes->{ 3.746205302803995*^9, 3.7463973081673646`*^9, {3.7463989022630982`*^9, 3.746398906968606*^9}, 3.7507020187517824`*^9}, CellLabel-> "Out[242]=",ExpressionUUID->"52bf9174-cf2b-43a1-947f-817e1589862c"], Cell[BoxData["5"], "Output", CellChangeTimes->{ 3.746205302803995*^9, 3.7463973081673646`*^9, {3.7463989022630982`*^9, 3.746398906968606*^9}, 3.7507020187558327`*^9}, CellLabel-> "Out[243]=",ExpressionUUID->"39e237d0-9fdd-4133-9255-aff082dc086a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission1", "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"up", " ", "from", " ", "about", " ", "0.1"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"N", "[", RowBox[{"GraphDensity", "[", "fission2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.746205334473764*^9, 3.7462053445288687`*^9}, { 3.7463989123792887`*^9, 3.746398952932589*^9}}, CellLabel-> "In[244]:=",ExpressionUUID->"7d0f9049-03b6-48fc-bad4-978ef1b26780"], Cell[BoxData["0.1623931623931624`"], "Output", CellChangeTimes->{{3.74620533888221*^9, 3.746205345518916*^9}, 3.7463973081986103`*^9, 3.7463989257777376`*^9, 3.7507020187717133`*^9}, CellLabel-> "Out[244]=",ExpressionUUID->"28ba7fde-a1b5-4515-bca9-13920e8a4256"], Cell[BoxData["0.15810276679841898`"], "Output", CellChangeTimes->{{3.74620533888221*^9, 3.746205345518916*^9}, 3.7463973081986103`*^9, 3.7463989257777376`*^9, 3.750702018776702*^9}, CellLabel-> "Out[245]=",ExpressionUUID->"aee5758b-adaa-4db4-b356-449ac1dcec1c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"predictions", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n1", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"n2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"n2", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "n2", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "\[NotEqual]", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7464044666718893`*^9, 3.746404519829745*^9}}, CellLabel-> "In[246]:=",ExpressionUUID->"58c136e4-7e20-4114-8219-e4acb308959a"], Cell[BoxData[ RowBox[{ RowBox[{"correct", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Tally", "[", RowBox[{"Join", "[", RowBox[{"predictions", ",", "dyads"}], "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7464449731760645`*^9, 3.746445043332802*^9}, 3.7464451780271907`*^9}, CellLabel-> "In[247]:=",ExpressionUUID->"dc16b8c5-8f80-4d57-b5eb-dd007d90a2f7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "predictions", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"Dimensions", "[", "correct", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "predictions", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.746445058447757*^9, 3.7464450839796534`*^9}}, CellLabel-> "In[248]:=",ExpressionUUID->"ceef0b1b-204d-48dc-a5a7-80d00acf82b6"], Cell[BoxData["0.5811258278145696`"], "Output", CellChangeTimes->{{3.746445079630188*^9, 3.7464450843908343`*^9}, 3.7507020188283825`*^9}, CellLabel-> "Out[248]=",ExpressionUUID->"8ed3e1d5-82c4-4998-8140-e91a423356bb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "predictions", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{"Dimensions", "[", "correct", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "dyads", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7464451023560123`*^9, 3.746445103776329*^9}}, CellLabel-> "In[249]:=",ExpressionUUID->"a6ac4567-b563-432f-9f21-3a68ec28e001"], Cell[BoxData["0.8976982097186701`"], "Output", CellChangeTimes->{3.7464451044725895`*^9, 3.7507020188425617`*^9}, CellLabel-> "Out[249]=",ExpressionUUID->"96554656-5a2e-428b-948d-41069c800079"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", "correct", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "dyads", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7464451503270907`*^9, 3.746445161398677*^9}}, CellLabel-> "In[250]:=",ExpressionUUID->"7d1b5334-34a0-4fc3-ac9d-33cd5d01af34"], Cell[BoxData["0.6470588235294118`"], "Output", CellChangeTimes->{3.7464451650038347`*^9, 3.7507020188575544`*^9}, CellLabel-> "Out[250]=",ExpressionUUID->"7c84a9a6-e029-4c7b-83bd-6287d3032b18"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Edge", "Subsection", CellChangeTimes->{{3.7507015909653344`*^9, 3.7507015914461374`*^9}},ExpressionUUID->"6abcb041-76ce-4a77-891b-\ 85d422d38f8b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"g", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7505243892416105`*^9, 3.7505244212422175`*^9}, { 3.7505246004842186`*^9, 3.7505246154349585`*^9}, 3.7507006466260977`*^9, { 3.7507019505935163`*^9, 3.750701970572261*^9}}, CellLabel-> "In[251]:=",ExpressionUUID->"59b6b206-4dc5-447d-a336-395819ea9b0f"], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "AMA", "OFR", "DOT", "ASH", "VIN", "ECH", "DIV", "DUI", "MLO", "DOV", "DUN", "PIS", "DEA", "VOR", "VIX", "OST", "OMO", "VEL", "OBI", "OKO", "OCH", "OCE", "TUZ", "VIL", "VAA", "VAP", "VIO", "VAN", "VET", "VAZ", "VIV", "VEG", "VEI", "VAT", "VOT", "ACA", "VOG", "VOY", "VOW", "DUB", "ROY", "OAT", "EDW", "ELV", "ORB", "VAI", "VIG", "DOX", "VEX", "POW"}, { Null, {{1, 2}, {1, 3}, {4, 5}, {4, 6}, {7, 6}, {3, 8}, {3, 9}, {10, 11}, {10, 12}, {10, 5}, {13, 10}, {10, 14}, {10, 15}, {6, 16}, {6, 17}, {6, 5}, {9, 18}, {19, 20}, {19, 21}, {21, 17}, {2, 17}, {22, 17}, {17, 23}, {20, 17}, {16, 24}, {17, 16}, {2, 16}, {16, 5}, {12, 15}, {12, 5}, {4, 25}, {25, 26}, {25, 5}, {25, 18}, {25, 14}, {25, 15}, {25, 27}, {28, 14}, {28, 29}, {30, 31}, {30, 24}, {32, 31}, {23, 18}, {33, 18}, {18, 5}, {18, 31}, {1, 18}, {18, 15}, {18, 14}, {29, 15}, {1, 29}, {29, 5}, {29, 14}, {4, 29}, {26, 5}, {5, 14}, {5, 31}, { 23, 5}, {5, 15}, {18, 27}, {27, 14}, {9, 27}, {17, 27}, {27, 15}, {5, 27}, {24, 31}, {31, 14}, {31, 15}, {15, 14}, {17, 15}, {34, 14}, {14, 35}, {23, 14}, {9, 14}, {3, 35}, {36, 4}, {4, 10}, {4, 14}, {3, 32}, { 10, 31}, {4, 2}, {29, 31}, {23, 27}, {4, 27}, {33, 27}, {31, 37}, {15, 38}, {15, 35}, {34, 35}, {4, 35}, {5, 35}, {19, 17}, {18, 39}, {1, 16}, {13, 11}, {10, 40}, {10, 8}, {6, 41}, {40, 12}, {41, 29}, {27, 39}, {3, 10}, {7, 3}, {9, 2}, {19, 16}, {2, 41}, {32, 29}, {9, 15}, {3, 31}, {8, 25}, {32, 14}, {4, 16}, {29, 38}, {3, 23}, {32, 18}, {42, 16}, {43, 18}, {16, 29}, {31, 35}, {6, 44}, {43, 2}, {3, 43}, {4, 43}, {45, 18}, {46, 14}, {43, 17}, {29, 47}, {10, 48}, {49, 31}, {16, 50}}}, {EdgeStyle -> {UndirectedEdge["DIV", "ECH"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["VIL", "VIV"] -> GrayLevel[ Rational[67, 79]], UndirectedEdge["AMA", "DOT"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["ASH", "VAA"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["DOT", "MLO"] -> GrayLevel[ Rational[196, 237]], UndirectedEdge["DOV", "DUB"] -> GrayLevel[ Rational[97, 237]], UndirectedEdge["VEG", "VEL"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["DEA", "DOV"] -> GrayLevel[ Rational[131, 237]], UndirectedEdge["OST", "POW"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["OFR", "ROY"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["VIV", "VOT"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["VIO", "VOR"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["ASH", "EDW"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["DOV", "DUI"] -> GrayLevel[ Rational[67, 79]], UndirectedEdge["DOV", "VIX"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["VAN", "VOR"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["AMA", "OST"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["ECH", "OMO"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["DEA", "DUN"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["OST", "VET"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["VEL", "VIN"] -> GrayLevel[ Rational[202, 237]], UndirectedEdge["VAT", "VOT"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["OMO", "VIO"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VEL", "VOR"] -> GrayLevel[ Rational[194, 237]], UndirectedEdge["OAT", "OST"] -> GrayLevel[ Rational[205, 237]], UndirectedEdge["OST", "VIN"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["AMA", "OFR"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["OMO", "OST"] -> GrayLevel[ Rational[191, 237]], UndirectedEdge["ECH", "ELV"] -> GrayLevel[ Rational[197, 237]], UndirectedEdge["ACA", "ASH"] -> GrayLevel[ Rational[124, 237]], UndirectedEdge["DOT", "VEG"] -> GrayLevel[ Rational[176, 237]], UndirectedEdge["OCE", "OMO"] -> GrayLevel[ Rational[134, 237]], UndirectedEdge["ASH", "OFR"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["MLO", "VIO"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VIV", "VOR"] -> GrayLevel[ Rational[218, 237]], UndirectedEdge["DOV", "VOR"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["ECH", "ROY"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["DOV", "DOX"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["ASH", "VIN"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["DOT", "VIV"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["PIS", "VIX"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["OBI", "OCH"] -> GrayLevel[ Rational[67, 79]], UndirectedEdge["VAZ", "VIL"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["VAA", "VEL"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["OFR", "OMO"] -> GrayLevel[ Rational[142, 237]], UndirectedEdge["VEL", "VIX"] -> GrayLevel[ Rational[199, 237]], UndirectedEdge["VEG", "VOR"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["OST", "VIL"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VEI", "VEL"] -> GrayLevel[ Rational[176, 237]], UndirectedEdge["VEG", "VIV"] -> GrayLevel[ Rational[60, 79]], UndirectedEdge["DOT", "DOV"] -> GrayLevel[ Rational[196, 237]], UndirectedEdge["VET", "VIN"] -> GrayLevel[ Rational[218, 237]], UndirectedEdge["DOV", "VIV"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VEL", "VIO"] -> GrayLevel[ Rational[106, 237]], UndirectedEdge["VIO", "VIX"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VET", "VIX"] -> GrayLevel[ Rational[43, 79]], UndirectedEdge["VAN", "VET"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["VAT", "VOR"] -> GrayLevel[ Rational[139, 237]], UndirectedEdge["VIV", "VOG"] -> GrayLevel[ Rational[118, 237]], UndirectedEdge["OMO", "TUZ"] -> GrayLevel[ Rational[220, 237]], UndirectedEdge["ORB", "VEL"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["OBI", "OKO"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["EDW", "OMO"] -> GrayLevel[ Rational[211, 237]], UndirectedEdge["DOV", "DUN"] -> GrayLevel[ Rational[110, 237]], UndirectedEdge["VAA", "VIN"] -> GrayLevel[ Rational[41, 237]], UndirectedEdge["VIN", "VIX"] -> GrayLevel[ Rational[181, 237]], UndirectedEdge["VET", "VOR"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["VIX", "VOT"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VIX", "VOR"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["MLO", "VOR"] -> GrayLevel[ Rational[53, 79]], UndirectedEdge["VAA", "VAP"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["VIN", "VIV"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["VAP", "VIN"] -> GrayLevel[ Rational[33, 79]], UndirectedEdge["VEI", "VIO"] -> GrayLevel[ Rational[68, 79]], UndirectedEdge["VEL", "VOW"] -> GrayLevel[ Rational[164, 237]], UndirectedEdge["VIX", "VOY"] -> GrayLevel[ Rational[2, 3]], UndirectedEdge["DOV", "VIN"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["ASH", "VET"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["EDW", "VEL"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["VET", "VIV"] -> GrayLevel[ Rational[72, 79]], UndirectedEdge["VIN", "VOT"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["MLO", "VIX"] -> GrayLevel[ Rational[202, 237]], UndirectedEdge["EDW", "OFR"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["OCH", "OMO"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VIV", "VIX"] -> GrayLevel[ Rational[208, 237]], UndirectedEdge["VAZ", "VIV"] -> GrayLevel[ Rational[119, 237]], UndirectedEdge["VET", "VIG"] -> GrayLevel[ Rational[206, 237]], UndirectedEdge["VEG", "VET"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["TUZ", "VOR"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["DOT", "DUI"] -> GrayLevel[ Rational[137, 237]], UndirectedEdge["ECH", "OST"] -> GrayLevel[ Rational[190, 237]], UndirectedEdge["TUZ", "VIO"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VAA", "VOR"] -> GrayLevel[ Rational[214, 237]], UndirectedEdge["TUZ", "VIN"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["PIS", "VIN"] -> GrayLevel[ Rational[57, 79]], UndirectedEdge["OFR", "OST"] -> GrayLevel[ Rational[69, 79]], UndirectedEdge["DUI", "VAA"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["VAA", "VIO"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["AMA", "VET"] -> GrayLevel[ Rational[66, 79]], UndirectedEdge["OBI", "OMO"] -> GrayLevel[ Rational[48, 79]], UndirectedEdge["DOT", "EDW"] -> GrayLevel[ Rational[74, 79]], UndirectedEdge["DIV", "DOT"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["OMO", "VIX"] -> GrayLevel[ Rational[223, 237]], UndirectedEdge["VOR", "VOT"] -> GrayLevel[ Rational[21, 79]], UndirectedEdge["ASH", "DOV"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["OKO", "OMO"] -> GrayLevel[ Rational[199, 237]], UndirectedEdge["DOV", "PIS"] -> GrayLevel[0], UndirectedEdge["DOT", "TUZ"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["AMA", "VEL"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["DUB", "PIS"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["ROY", "VET"] -> GrayLevel[ Rational[66, 79]], UndirectedEdge["ASH", "VIO"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VAA", "VIX"] -> GrayLevel[ Rational[226, 237]], UndirectedEdge["MLO", "VEL"] -> GrayLevel[ Rational[215, 237]], UndirectedEdge["VAI", "VOR"] -> GrayLevel[ Rational[70, 79]], UndirectedEdge["VET", "VOY"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VEL", "VIV"] -> GrayLevel[ Rational[200, 237]], UndirectedEdge["ASH", "ECH"] -> GrayLevel[ Rational[65, 79]], UndirectedEdge["ASH", "VOR"] -> GrayLevel[ Rational[71, 79]], UndirectedEdge["TUZ", "VEL"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["VEX", "VIV"] -> GrayLevel[ Rational[220, 237]], UndirectedEdge["ASH", "VOT"] -> GrayLevel[ Rational[224, 237]], UndirectedEdge["DOT", "VOT"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["VIN", "VOR"] -> GrayLevel[ Rational[206, 237]], UndirectedEdge["VIO", "VOW"] -> GrayLevel[ Rational[227, 237]], UndirectedEdge["ECH", "VIN"] -> GrayLevel[ Rational[221, 237]], UndirectedEdge["OBI", "OST"] -> GrayLevel[ Rational[217, 237]], UndirectedEdge["MLO", "OFR"] -> GrayLevel[ Rational[75, 79]], UndirectedEdge["ASH", "OST"] -> GrayLevel[ Rational[70, 79]], UndirectedEdge["VIN", "VIO"] -> GrayLevel[ Rational[223, 237]]}, EdgeWeight -> {13, 30, 20, 42, 12, 100, 41, 127, 237, 21, 106, 23, 13, 47, 14, 16, 22, 12, 36, 14, 95, 103, 17, 38, 11, 46, 30, 10, 20, 66, 16, 22, 196, 14, 23, 11, 13, 23, 11, 118, 23, 57, 16, 61, 35, 37, 12, 38, 43, 108, 39, 19, 22, 16, 138, 31, 12, 13, 56, 131, 24, 10, 11, 11, 14, 36, 19, 29, 30, 14, 98, 174, 10, 78, 10, 113, 13, 24, 61, 14, 15, 21, 10, 10, 33, 119, 79, 14, 21, 13, 11, 93, 73, 12, 24, 140, 36, 13, 16, 39, 10, 41, 20, 12, 20, 16, 22, 35, 13, 15, 24, 27, 10, 24, 12, 32, 22, 12, 12, 40, 30, 15, 14, 15, 27, 26, 31, 21, 17, 10}, GraphHighlight -> { UndirectedEdge["OAT", "OST"], UndirectedEdge["VAT", "VOR"], UndirectedEdge["DOV", "DUN"], UndirectedEdge["DOV", "VOR"], UndirectedEdge["VEG", "VET"], UndirectedEdge["VET", "VIN"], UndirectedEdge["VEI", "VEL"], UndirectedEdge["VAA", "VOR"], UndirectedEdge["OFR", "ROY"], UndirectedEdge["AMA", "OST"], UndirectedEdge["OMO", "TUZ"], UndirectedEdge["ORB", "VEL"], UndirectedEdge["DOT", "VEG"], UndirectedEdge["EDW", "VEL"], UndirectedEdge["OCE", "OMO"], UndirectedEdge["DEA", "DOV"], UndirectedEdge["DOT", "VIV"], UndirectedEdge["VAI", "VOR"], UndirectedEdge["ASH", "ECH"], UndirectedEdge["AMA", "OFR"], UndirectedEdge["VET", "VOR"], UndirectedEdge["MLO", "VIX"], UndirectedEdge["VEG", "VIV"], UndirectedEdge["VAP", "VIN"], UndirectedEdge["VIX", "VOR"], UndirectedEdge["OST", "POW"], UndirectedEdge["DOT", "VOT"], UndirectedEdge["VEI", "VIO"], UndirectedEdge["OFR", "OST"], UndirectedEdge["MLO", "VOR"], UndirectedEdge["VIN", "VOR"], UndirectedEdge["ECH", "ROY"], UndirectedEdge["ASH", "OFR"], UndirectedEdge["DOV", "VIN"], UndirectedEdge["OBI", "OST"], UndirectedEdge["VIV", "VIX"], UndirectedEdge["DOT", "DUI"], UndirectedEdge["VIV", "VOR"], UndirectedEdge["OBI", "OCH"], UndirectedEdge["VAT", "VOT"], UndirectedEdge["ECH", "OMO"], UndirectedEdge["OMO", "OST"], UndirectedEdge["VOR", "VOT"], UndirectedEdge["VAA", "VIN"], UndirectedEdge["DUI", "VAA"], UndirectedEdge["OCH", "OMO"], UndirectedEdge["VIX", "VOY"], UndirectedEdge["OKO", "OMO"], UndirectedEdge["VIN", "VIV"], UndirectedEdge["VIV", "VOG"], UndirectedEdge["VET", "VIX"], UndirectedEdge["VAA", "VAP"], UndirectedEdge["AMA", "VEL"], UndirectedEdge["VAA", "VIX"], UndirectedEdge["DIV", "DOT"], UndirectedEdge["OFR", "OMO"], UndirectedEdge["VAN", "VOR"], UndirectedEdge["EDW", "OMO"], UndirectedEdge["VET", "VOY"], UndirectedEdge["DOV", "DUB"], UndirectedEdge["OST", "VIL"], UndirectedEdge["VAZ", "VIV"], UndirectedEdge["DEA", "DUN"], UndirectedEdge["VIV", "VOT"], UndirectedEdge["PIS", "VIN"], UndirectedEdge["DOV", "VIV"], UndirectedEdge["DOT", "MLO"], UndirectedEdge["OMO", "VIO"], UndirectedEdge["TUZ", "VEL"], UndirectedEdge["OBI", "OKO"], UndirectedEdge["ACA", "ASH"], UndirectedEdge["EDW", "OFR"], UndirectedEdge["ASH", "EDW"], UndirectedEdge["VET", "VIG"], UndirectedEdge["VEG", "VOR"], UndirectedEdge["DOV", "DOX"], UndirectedEdge["VIX", "VOT"], UndirectedEdge["VAN", "VET"], UndirectedEdge["DOV", "DUI"], UndirectedEdge["DOV", "PIS"], UndirectedEdge["VEL", "VIO"], UndirectedEdge["VIN", "VOT"], UndirectedEdge["PIS", "VIX"], UndirectedEdge["DUB", "PIS"], UndirectedEdge["DOT", "DOV"], UndirectedEdge["DOV", "VIX"], UndirectedEdge["VIN", "VIX"], UndirectedEdge["ASH", "OST"], UndirectedEdge["VEL", "VOW"], UndirectedEdge["VEX", "VIV"], UndirectedEdge["VET", "VIV"], UndirectedEdge["OBI", "OMO"], UndirectedEdge["VIO", "VOW"], UndirectedEdge["ECH", "ELV"], UndirectedEdge["TUZ", "VIO"], UndirectedEdge["ASH", "VIO"], UndirectedEdge["ECH", "OST"]}, GraphLayout -> {"Dimension" -> 2}, VertexLabels -> {"Name"}, VertexStyle -> {"VIN" -> GrayLevel[ Rational[67, 396]], "VOY" -> GrayLevel[ Rational[703, 792]], "DOT" -> GrayLevel[ Rational[437, 792]], "ORB" -> GrayLevel[ Rational[259, 264]], "VAZ" -> GrayLevel[ Rational[217, 264]], "OAT" -> GrayLevel[ Rational[95, 99]], "VET" -> GrayLevel[ Rational[221, 396]], "ACA" -> GrayLevel[ Rational[679, 792]], "VIL" -> GrayLevel[ Rational[361, 396]], "OKO" -> GrayLevel[ Rational[371, 396]], "OMO" -> GrayLevel[ Rational[107, 264]], "DOX" -> GrayLevel[ Rational[257, 264]], "VAT" -> GrayLevel[ Rational[673, 792]], "VEL" -> GrayLevel[ Rational[29, 88]], "VIG" -> GrayLevel[ Rational[761, 792]], "VOR" -> GrayLevel[ Rational[119, 792]], "EDW" -> GrayLevel[ Rational[685, 792]], "ROY" -> GrayLevel[ Rational[181, 198]], "DUB" -> GrayLevel[ Rational[53, 66]], "VEX" -> GrayLevel[ Rational[775, 792]], "VAP" -> GrayLevel[ Rational[79, 99]], "ASH" -> GrayLevel[ Rational[469, 792]], "VAN" -> GrayLevel[ Rational[379, 396]], "ELV" -> GrayLevel[ Rational[94, 99]], "VIV" -> GrayLevel[ Rational[4, 11]], "TUZ" -> GrayLevel[ Rational[39, 44]], "ECH" -> GrayLevel[ Rational[76, 99]], "OCH" -> GrayLevel[ Rational[371, 396]], "DIV" -> GrayLevel[ Rational[95, 99]], "DUI" -> GrayLevel[ Rational[641, 792]], "VOG" -> GrayLevel[ Rational[673, 792]], "VIX" -> GrayLevel[ Rational[167, 396]], "VOT" -> GrayLevel[ Rational[179, 264]], "AMA" -> GrayLevel[ Rational[343, 396]], "VIO" -> GrayLevel[ Rational[515, 792]], "DUN" -> GrayLevel[ Rational[641, 792]], "POW" -> GrayLevel[ Rational[391, 396]], "VAA" -> GrayLevel[ Rational[241, 396]], "MLO" -> GrayLevel[ Rational[3, 4]], "OST" -> GrayLevel[ Rational[535, 792]], "OFR" -> GrayLevel[ Rational[581, 792]], "VEG" -> GrayLevel[ Rational[7, 9]], "VAI" -> GrayLevel[ Rational[85, 88]], "VEI" -> GrayLevel[ Rational[349, 396]], "VOW" -> GrayLevel[ Rational[709, 792]], "OBI" -> GrayLevel[ Rational[631, 792]], "OCE" -> GrayLevel[ Rational[689, 792]], "DEA" -> GrayLevel[ Rational[331, 396]], "PIS" -> GrayLevel[ Rational[151, 264]], "DOV" -> GrayLevel[0]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 1.7490536653376987`, 2.0596769160666244`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[69, 79]], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 3.06910335000307, 1.965307568098614}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[66, 79]], {Arrowheads[0.], ArrowBox[{{2.2417421967893736`, 1.9967248724965296`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 2.6923739957704953`, 2.3116495007135645`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 2.5593984745938423`, 2.5508550429575}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 1.7130052088944134`, 1.0558619988176456`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7490536653376987`, 2.0596769160666244`}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.3254801139325076`, 0.8427900980487346}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, {4.098806202058695, 2.6040284702046423`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.5593984745938423`, 2.5508550429575}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, {4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[71, 79]], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[74, 79]], {Arrowheads[0.], ArrowBox[{{3.06910335000307, 1.965307568098614}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[217, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.0508254247212463`, 2.3011085273433345`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 1.9350586108814647`, 1.4314573947187421`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[71, 79]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[221, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[221, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.412520993581118, 3.6224390013597016`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.6923739957704953`, 2.3116495007135645`}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[221, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 1.9350586108814647`, 1.4314573947187421`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 4.056068133125937, 1.577936911527845}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[227, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[202, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.580151017437533, 3.5362323082782128`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[223, 237]], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.0508254247212463`, 2.3011085273433345`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 2.3254801139325076`, 0.8427900980487346}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.7070907247637195`, 1.567411953661388}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.7130052088944134`, 1.0558619988176456`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.9350586108814647`, 1.4314573947187421`}, { 1.2345042461710136`, 0.22223793934819325`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.098806202058695, 2.6040284702046423`}, { 4.276805586776847, 1.9649816740304353`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.098806202058695, 2.6040284702046423`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[215, 237]], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[227, 237]], {Arrowheads[0.], ArrowBox[{{2.5593984745938423`, 2.5508550429575}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 5.705942496372727, 1.7037420043212381`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 4.056068133125937, 1.577936911527845}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 5.609486156720985, 1.337650842585623}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 3.3985098954680972`, 2.547823829731471}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 4.842294325772201, 1.0381550924567922`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.276805586776847, 1.9649816740304353`}, { 5.711158690299976, 2.2642987881564105`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{5.705942496372727, 1.7037420043212381`}, { 5.609486156720985, 1.337650842585623}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.056068133125937, 1.577936911527845}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.056068133125937, 1.577936911527845}, { 4.842294325772201, 1.0381550924567922`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.003863029787065, 2.1431947879426105`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[194, 237]], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[227, 237]], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[71, 79]], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.577071127785599, 1.2956185619005178`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 4.3641850672617775`, 3.1416889714552063`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.3985098954680972`, 2.547823829731471}, { 4.305020433317991, 3.771022748712493}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[223, 237]], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[199, 237]], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.8393248416980734`, 3.001678912953419}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[226, 237]], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.003863029787065, 2.1431947879426105`}, { 2.7992088083622755`, 0.953005653387923}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 1.323817058151051, 2.4295893529329433`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 0.5214085110208795, 2.0829862735279354`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 3.0521136330652543`, 0.770227690922028}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 0.42395458198833547`, 1.0268753139750664`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.7070907247637195`, 1.567411953661388}, { 0.6804972928289903, 0.6187971060378612}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 0.5214085110208795, 2.0829862735279354`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 0.12078515290921654`, 2.650232619453675}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, {0., 2.26930332084519}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 0.20040482376984903`, 3.2241708698882308`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{1.323817058151051, 2.4295893529329433`}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.3724849871837996`, 2.7062903408578323`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[223, 237]], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 3.2804975122357636`, 2.9741602758583543`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[200, 237]], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[75, 79]], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.1038785769545756`, 3.9353441339932367`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.560614392848657, 4.061823599966873}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.0159240870708266`, 2.565622289742292}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.8393248416980734`, 3.001678912953419}, { 2.9731935590146934`, 4.485354095364575}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{0.5214085110208795, 2.0829862735279354`}, { 0.12078515290921654`, 2.650232619453675}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{0.5214085110208795, 2.0829862735279354`}, {0., 2.26930332084519}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.3724849871837996`, 2.7062903408578323`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[214, 237]], {Arrowheads[0.], ArrowBox[{{3.0521136330652543`, 0.770227690922028}, { 3.900972389572577, 0.4895713159101325}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[67, 79]], {Arrowheads[0.], ArrowBox[{{3.0521136330652543`, 0.770227690922028}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.2804975122357636`, 2.9741602758583543`}, { 3.580151017437533, 3.5362323082782128`}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[224, 237]], {Arrowheads[0.], ArrowBox[{{3.2804975122357636`, 2.9741602758583543`}, { 2.493094552434439, 3.0393162226740644`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.493094552434439, 3.0393162226740644`}, { 2.1038785769545756`, 3.9353441339932367`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.493094552434439, 3.0393162226740644`}, { 2.560614392848657, 4.061823599966873}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.577071127785599, 1.2956185619005178`}, { 2.7921031203706335`, 1.4865966978459673`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 2.7992088083622755`, 0.953005653387923}}, 0.046966480367839764`]}}, {GrayLevel[ Rational[66, 79]], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 1.7130052088944134`, 1.0558619988176456`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{2.7921031203706335`, 1.4865966978459673`}, { 2.7573833949139783`, 0.}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.900972389572577, 0.4895713159101325}, { 3.7341742761150485`, 1.7833992223252553`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 3.4345059388892007`, 2.1083766127232515`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 5.05770479431974, 2.0984234127332657`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{3.7341742761150485`, 1.7833992223252553`}, { 5.0023437070107075`, 1.4077748294239933`}}, 0.046966480367839764`]}}, {Hue[1, 1, 0.7], Opacity[1], {Arrowheads[0.], ArrowBox[{{4.3641850672617775`, 3.1416889714552063`}, { 3.6643999386692236`, 2.4798935651387697`}}, 0.046966480367839764`]}}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {GrayLevel[ Rational[343, 396]], DiskBox[{2.2417421967893736, 1.9967248724965296}, 0.046966480367839764]}, InsetBox["\<\"AMA\"\>", Offset[{2, 2}, {2.288708677157213, 2.043691352864369}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[581, 792]], DiskBox[{1.7490536653376987, 2.0596769160666244}, 0.046966480367839764]}, InsetBox["\<\"OFR\"\>", Offset[{2, 2}, {1.7960201457055385, 2.106643396434464}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[437, 792]], DiskBox[{3.06910335000307, 1.965307568098614}, 0.046966480367839764]}, InsetBox["\<\"DOT\"\>", Offset[{2, 2}, {3.11606983037091, 2.0122740484664536}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[469, 792]], DiskBox[{2.6923739957704953, 2.3116495007135645}, 0.046966480367839764]}, InsetBox["\<\"ASH\"\>", Offset[{2, 2}, {2.739340476138335, 2.358615981081404}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[67, 396]], DiskBox[{3.0508254247212463, 2.3011085273433345}, 0.046966480367839764]}, InsetBox["\<\"VIN\"\>", Offset[{2, 2}, {3.097791905089086, 2.348075007711174}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[76, 99]], DiskBox[{1.9350586108814647, 1.4314573947187421}, 0.046966480367839764]}, InsetBox["\<\"ECH\"\>", Offset[{2, 2}, {1.9820250912493045, 1.478423875086582}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[95, 99]], DiskBox[{2.3254801139325076, 0.8427900980487346}, 0.046966480367839764]}, InsetBox["\<\"DIV\"\>", Offset[{2, 2}, {2.372446594300347, 0.8897565784165744}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[641, 792]], DiskBox[{4.098806202058695, 2.6040284702046423}, 0.046966480367839764]}, InsetBox["\<\"DUI\"\>", Offset[{2, 2}, {4.145772682426535, 2.650994950572482}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[3, 4]], DiskBox[{2.5593984745938423, 2.5508550429575}, 0.046966480367839764]}, InsetBox["\<\"MLO\"\>", Offset[{2, 2}, {2.606364954961682, 2.5978215233253397}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[0], DiskBox[{4.276805586776847, 1.9649816740304353}, 0.046966480367839764]}, InsetBox["\<\"DOV\"\>", Offset[{2, 2}, {4.323772067144687, 2.011948154398275}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[641, 792]], DiskBox[{5.705942496372727, 1.7037420043212381}, 0.046966480367839764]}, InsetBox["\<\"DUN\"\>", Offset[{2, 2}, {5.752908976740567, 1.750708484689078}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[151, 264]], DiskBox[{4.056068133125937, 1.577936911527845}, 0.046966480367839764]}, InsetBox["\<\"PIS\"\>", Offset[{2, 2}, {4.103034613493777, 1.6249033918956848}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[331, 396]], DiskBox[{5.609486156720985, 1.337650842585623}, 0.046966480367839764]}, InsetBox["\<\"DEA\"\>", Offset[{2, 2}, {5.656452637088825, 1.3846173229534628}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[119, 792]], DiskBox[{3.3985098954680972, 2.547823829731471}, 0.046966480367839764]}, InsetBox["\<\"VOR\"\>", Offset[{2, 2}, {3.445476375835937, 2.5947903100993104}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[167, 396]], DiskBox[{3.003863029787065, 2.1431947879426105}, 0.046966480367839764]}, InsetBox["\<\"VIX\"\>", Offset[{2, 2}, {3.0508295101549048, 2.19016126831045}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[535, 792]], DiskBox[{1.7070907247637195, 1.567411953661388}, 0.046966480367839764]}, InsetBox["\<\"OST\"\>", Offset[{2, 2}, {1.7540572051315593, 1.6143784340292278}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[107, 264]], DiskBox[{1.323817058151051, 2.4295893529329433}, 0.046966480367839764]}, InsetBox["\<\"OMO\"\>", Offset[{2, 2}, {1.370783538518891, 2.476555833300783}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[29, 88]], DiskBox[{2.8393248416980734, 3.001678912953419}, 0.046966480367839764]}, InsetBox["\<\"VEL\"\>", Offset[{2, 2}, {2.886291322065913, 3.0486453933212587}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[631, 792]], DiskBox[{0.5214085110208795, 2.0829862735279354}, 0.046966480367839764]}, InsetBox["\<\"OBI\"\>", Offset[{2, 2}, {0.5683749913887193, 2.129952753895775}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[371, 396]], DiskBox[{0.12078515290921654, 2.650232619453675}, 0.046966480367839764]}, InsetBox["\<\"OKO\"\>", Offset[{2, 2}, {0.1677516332770563, 2.6971990998215145}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[371, 396]], DiskBox[{0., 2.26930332084519}, 0.046966480367839764]}, InsetBox["\<\"OCH\"\>", Offset[{2, 2}, {0.046966480367839764, 2.3162698012130294}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[689, 792]], DiskBox[{0.20040482376984903, 3.2241708698882308}, 0.046966480367839764]}, InsetBox["\<\"OCE\"\>", Offset[{2, 2}, {0.2473713041376888, 3.2711373502560703}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[39, 44]], DiskBox[{2.3724849871837996, 2.7062903408578323}, 0.046966480367839764]}, InsetBox["\<\"TUZ\"\>", Offset[{2, 2}, {2.419451467551639, 2.753256821225672}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[361, 396]], DiskBox[{3.0521136330652543, 0.770227690922028}, 0.046966480367839764]}, InsetBox["\<\"VIL\"\>", Offset[{2, 2}, {3.099080113433094, 0.8171941712898678}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[241, 396]], DiskBox[{3.2804975122357636, 2.9741602758583543}, 0.046966480367839764]}, InsetBox["\<\"VAA\"\>", Offset[{2, 2}, {3.327463992603603, 3.021126756226194}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[79, 99]], DiskBox[{3.580151017437533, 3.5362323082782128}, 0.046966480367839764]}, InsetBox["\<\"VAP\"\>", Offset[{2, 2}, {3.6271174978053726, 3.5831987886460523}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[515, 792]], DiskBox[{2.493094552434439, 3.0393162226740644}, 0.046966480367839764]}, InsetBox["\<\"VIO\"\>", Offset[{2, 2}, {2.5400610328022784, 3.086282703041904}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[379, 396]], DiskBox[{3.577071127785599, 1.2956185619005178}, 0.046966480367839764]}, InsetBox["\<\"VAN\"\>", Offset[{2, 2}, {3.6240376081534387, 1.3425850422683576}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[221, 396]], DiskBox[{2.7921031203706335, 1.4865966978459673}, 0.046966480367839764]}, InsetBox["\<\"VET\"\>", Offset[{2, 2}, {2.839069600738473, 1.533563178213807}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[217, 264]], DiskBox[{3.900972389572577, 0.4895713159101325}, 0.046966480367839764]}, InsetBox["\<\"VAZ\"\>", Offset[{2, 2}, {3.9479388699404168, 0.5365377962779723}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[4, 11]], DiskBox[{3.7341742761150485, 1.7833992223252553}, 0.046966480367839764]}, InsetBox["\<\"VIV\"\>", Offset[{2, 2}, {3.781140756482888, 1.830365702693095}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[7, 9]], DiskBox[{3.4345059388892007, 2.1083766127232515}, 0.046966480367839764]}, InsetBox["\<\"VEG\"\>", Offset[{2, 2}, {3.4814724192570403, 2.155343093091091}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[349, 396]], DiskBox[{2.1038785769545756, 3.9353441339932367}, 0.046966480367839764]}, InsetBox["\<\"VEI\"\>", Offset[{2, 2}, {2.150845057322415, 3.9823106143610763}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[673, 792]], DiskBox[{4.3641850672617775, 3.1416889714552063}, 0.046966480367839764]}, InsetBox["\<\"VAT\"\>", Offset[{2, 2}, {4.4111515476296175, 3.188655451823046}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[179, 264]], DiskBox[{3.6643999386692236, 2.4798935651387697}, 0.046966480367839764]}, InsetBox["\<\"VOT\"\>", Offset[{2, 2}, {3.711366419037063, 2.5268600455066093}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[679, 792]], DiskBox[{2.412520993581118, 3.6224390013597016}, 0.046966480367839764]}, InsetBox["\<\"ACA\"\>", Offset[{2, 2}, {2.4594874739489576, 3.669405481727541}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[673, 792]], DiskBox[{5.05770479431974, 2.0984234127332657}, 0.046966480367839764]}, InsetBox["\<\"VOG\"\>", Offset[{2, 2}, {5.10467127468758, 2.1453898931011053}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[703, 792]], DiskBox[{2.7992088083622755, 0.953005653387923}, 0.046966480367839764]}, InsetBox["\<\"VOY\"\>", Offset[{2, 2}, {2.846175288730115, 0.9999721337557628}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[709, 792]], DiskBox[{2.560614392848657, 4.061823599966873}, 0.046966480367839764]}, InsetBox["\<\"VOW\"\>", Offset[{2, 2}, {2.6075808732164965, 4.108790080334713}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[53, 66]], DiskBox[{4.842294325772201, 1.0381550924567922}, 0.046966480367839764]}, InsetBox["\<\"DUB\"\>", Offset[{2, 2}, {4.889260806140041, 1.085121572824632}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[181, 198]], DiskBox[{1.7130052088944134, 1.0558619988176456}, 0.046966480367839764]}, InsetBox["\<\"ROY\"\>", Offset[{2, 2}, {1.7599716892622532, 1.1028284791854854}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[95, 99]], DiskBox[{0.42395458198833547, 1.0268753139750664}, 0.046966480367839764]}, InsetBox["\<\"OAT\"\>", Offset[{2, 2}, {0.47092106235617526, 1.0738417943429062}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[685, 792]], DiskBox[{2.0159240870708266, 2.565622289742292}, 0.046966480367839764]}, InsetBox["\<\"EDW\"\>", Offset[{2, 2}, {2.062890567438666, 2.6125887701101314}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[94, 99]], DiskBox[{1.2345042461710136, 0.22223793934819325}, 0.046966480367839764]}, InsetBox["\<\"ELV\"\>", Offset[{2, 2}, {1.2814707265388534, 0.26920441971603304}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[259, 264]], DiskBox[{2.9731935590146934, 4.485354095364575}, 0.046966480367839764]}, InsetBox["\<\"ORB\"\>", Offset[{2, 2}, {3.020160039382533, 4.532320575732415}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[85, 88]], DiskBox[{4.305020433317991, 3.771022748712493}, 0.046966480367839764]}, InsetBox["\<\"VAI\"\>", Offset[{2, 2}, {4.351986913685831, 3.817989229080333}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[761, 792]], DiskBox[{2.7573833949139783, 0.}, 0.046966480367839764]}, InsetBox["\<\"VIG\"\>", Offset[{2, 2}, {2.804349875281818, 0.046966480367839764}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[257, 264]], DiskBox[{5.711158690299976, 2.2642987881564105}, 0.046966480367839764]}, InsetBox["\<\"DOX\"\>", Offset[{2, 2}, {5.758125170667816, 2.31126526852425}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[775, 792]], DiskBox[{5.0023437070107075, 1.4077748294239933}, 0.046966480367839764]}, InsetBox["\<\"VEX\"\>", Offset[{2, 2}, {5.0493101873785475, 1.4547413097918331}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {GrayLevel[ Rational[391, 396]], DiskBox[{0.6804972928289903, 0.6187971060378612}, 0.046966480367839764]}, InsetBox["\<\"POW\"\>", Offset[{2, 2}, {0.7274637731968301, 0.665763586405701}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.7505244011606627`*^9, 3.750524422053951*^9}, 3.7505246158879757`*^9, 3.7507006472444844`*^9, 3.7507020190273314`*^9}, CellLabel-> "Out[251]=",ExpressionUUID->"251885a2-2675-4b3b-976e-e0645df66c31"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"broken", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"EdgeList", "[", "graph", "]"}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "bonds", " ", "that", " ", "broke", " ", "during", " ", "fission"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.750700031147353*^9, 3.750700070296363*^9}, { 3.7507001034427614`*^9, 3.750700107265873*^9}, {3.7507005132145367`*^9, 3.750700531385273*^9}, {3.750701976608503*^9, 3.7507019808624787`*^9}, 3.8302458935139*^9},ExpressionUUID->"0bd5485b-5b96-4bd3-a390-3a592b7eb0d9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"DOT\"\>"}], ",", RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"DOV\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VAA\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", RowBox[{"\<\"DIV\"\>", "\[UndirectedEdge]", "\<\"ECH\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"EDW\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"TUZ\"\>"}], ",", RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"ROY\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"VAZ\"\>", "\[UndirectedEdge]", "\<\"VIL\"\>"}], ",", RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VIL\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"VIO\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"VIO\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}]}], "}"}]], "Output", CellChangeTimes->{{3.7507000509468594`*^9, 3.7507000708998623`*^9}, 3.75070010894396*^9, 3.7507020190596604`*^9}, CellLabel-> "Out[252]=",ExpressionUUID->"4c7d66bf-c9f2-411c-b1c3-99798845ef36"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"maintained", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"EdgeList", "[", "fission1", "]"}], ",", RowBox[{"EdgeList", "[", "fission2", "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "bonds", " ", "that", " ", "were", " ", "maintained", " ", "through", " ", "fission"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.7507001139426684`*^9, 3.750700126825451*^9}, { 3.750700534046118*^9, 3.750700543664417*^9}, {3.7507019829057436`*^9, 3.7507019871658993`*^9}}, CellLabel-> "In[253]:=",ExpressionUUID->"02742891-720d-41c3-9d2e-28e6a7f97b9c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\<\"DIV\"\>", "\[UndirectedEdge]", "\<\"DOT\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"DUI\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"MLO\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DUI\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"DOV\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DUN\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"PIS\"\>"}], ",", RowBox[{"\<\"PIS\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"DEA\"\>", "\[UndirectedEdge]", "\<\"DOV\"\>"}], ",", RowBox[{"\<\"DEA\"\>", "\[UndirectedEdge]", "\<\"DUN\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"PIS\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"VIX\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"DUI\"\>", "\[UndirectedEdge]", "\<\"VAA\"\>"}], ",", RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VAP\"\>"}], ",", RowBox[{"\<\"VAP\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"VAN\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VAN\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VAZ\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"VEG\"\>"}], ",", RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VAT\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VOR\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", RowBox[{"\<\"VIX\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", RowBox[{"\<\"VAT\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VOG\"\>"}], ",", RowBox[{"\<\"VIX\"\>", "\[UndirectedEdge]", "\<\"VOY\"\>"}], ",", RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VOY\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DUB\"\>"}], ",", RowBox[{"\<\"DUB\"\>", "\[UndirectedEdge]", "\<\"PIS\"\>"}], ",", RowBox[{"\<\"VAI\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIG\"\>"}], ",", RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DOX\"\>"}], ",", RowBox[{"\<\"VEX\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"ECH\"\>"}], ",", RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", RowBox[{"\<\"OFR\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", RowBox[{"\<\"OFR\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OKO\"\>"}], ",", RowBox[{"\<\"OKO\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OCH\"\>"}], ",", RowBox[{"\<\"OCH\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", RowBox[{"\<\"OCE\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"TUZ\"\>"}], ",", RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"VIL\"\>"}], ",", RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"VEI\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"VEI\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", RowBox[{"\<\"ACA\"\>", "\[UndirectedEdge]", "\<\"ASH\"\>"}], ",", RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VOW\"\>"}], ",", RowBox[{"\<\"VIO\"\>", "\[UndirectedEdge]", "\<\"VOW\"\>"}], ",", RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"ROY\"\>"}], ",", RowBox[{"\<\"OFR\"\>", "\[UndirectedEdge]", "\<\"ROY\"\>"}], ",", RowBox[{"\<\"OAT\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", RowBox[{"\<\"EDW\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"EDW\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"EDW\"\>"}], ",", RowBox[{"\<\"EDW\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"ELV\"\>"}], ",", RowBox[{"\<\"ORB\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"POW\"\>"}]}], "}"}]], "Output", CellChangeTimes->{3.7507001281499543`*^9, 3.7507020190802503`*^9}, CellLabel-> "Out[253]=",ExpressionUUID->"9da4a00c-57ea-4499-9450-88de2981b233"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], " ", RowBox[{"(*", " ", RowBox[{"#", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{"%%", "/", RowBox[{"(", RowBox[{"%", "+", "%%"}], ")"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "%", " ", "of", " ", "bonds", " ", "that", " ", "were", " ", "broken"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.750700134052451*^9, 3.7507001780200214`*^9}, { 3.75070054857069*^9, 3.7507005703695955`*^9}}, CellLabel-> "In[254]:=",ExpressionUUID->"5f87165f-b281-44d1-b9c3-1d499da5a30e"], Cell[BoxData[ RowBox[{"{", "33", "}"}]], "Output", CellChangeTimes->{ 3.7507001419220247`*^9, {3.7507001736829534`*^9, 3.750700178391526*^9}, 3.75070201910221*^9}, CellLabel-> "Out[254]=",ExpressionUUID->"afed7f81-7a39-4e43-b2c8-dfe063893689"], Cell[BoxData[ RowBox[{"{", "97", "}"}]], "Output", CellChangeTimes->{ 3.7507001419220247`*^9, {3.7507001736829534`*^9, 3.750700178391526*^9}, 3.7507020191079454`*^9}, CellLabel-> "Out[255]=",ExpressionUUID->"1394cbf5-10d8-40c1-8444-f646834d4aff"], Cell[BoxData[ RowBox[{"{", "0.25384615384615383`", "}"}]], "Output", CellChangeTimes->{ 3.7507001419220247`*^9, {3.7507001736829534`*^9, 3.750700178391526*^9}, 3.7507020191128635`*^9}, CellLabel-> "Out[256]=",ExpressionUUID->"637cd186-c40e-466b-b25d-c815533f1354"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"average", " ", "weight", " ", "of", " ", "broken", " ", "bond"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.7507003174423923`*^9, 3.7507004374483433`*^9}, { 3.7507005741503367`*^9, 3.7507005906245794`*^9}}, CellLabel-> "In[257]:=",ExpressionUUID->"8da4586d-2218-47f9-aec7-fab55eeaeb24"], Cell[BoxData["680"], "Output", CellChangeTimes->{{3.7507003884455147`*^9, 3.750700438523142*^9}, 3.75070201917936*^9}, CellLabel-> "Out[257]=",ExpressionUUID->"083ca781-8740-4cee-8d44-f134d697dd36"], Cell[BoxData["20.606060606060606`"], "Output", CellChangeTimes->{{3.7507003884455147`*^9, 3.750700438523142*^9}, 3.7507020191853495`*^9}, CellLabel-> "Out[258]=",ExpressionUUID->"3faa0fd0-d3d5-450d-b1e1-4ab376e29017"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "sum", " ", "of", " ", "weights", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{ "average", " ", "weight", " ", "of", " ", "maintained", " ", "bond"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.750700469589544*^9, 3.7507004731925354`*^9}, { 3.750700598092454*^9, 3.7507006259531965`*^9}}, CellLabel-> "In[259]:=",ExpressionUUID->"3ee53f72-80c5-49ce-b976-09df7ffc2f88"], Cell[BoxData["4266"], "Output", CellChangeTimes->{3.750700478377082*^9, 3.750702019287306*^9}, CellLabel-> "Out[259]=",ExpressionUUID->"71788309-5c61-454f-a82e-1baed04b002a"], Cell[BoxData["43.97938144329897`"], "Output", CellChangeTimes->{3.750700478377082*^9, 3.7507020193038454`*^9}, CellLabel-> "Out[260]=",ExpressionUUID->"37e33a04-4d8c-45b8-8aab-958bc2cc1683"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", RowBox[{"Min", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "exp2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"sparsity", " ", "of", " ", "fission"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.750700155980502*^9, 3.750700157620818*^9}, { 3.750700225116209*^9, 3.750700276741203*^9}, {3.75070049394073*^9, 3.750700502336345*^9}, {3.7507006303570213`*^9, 3.7507006355880504`*^9}}, CellLabel-> "In[261]:=",ExpressionUUID->"6f5207f3-4b7c-449c-8e10-9ca63edc6c44"], Cell[BoxData["48.57142857142857`"], "Output", CellChangeTimes->{{3.75070023405394*^9, 3.7507002773128085`*^9}, { 3.7507004961212893`*^9, 3.7507005035890617`*^9}, 3.750702019371336*^9}, CellLabel-> "Out[261]=",ExpressionUUID->"4cabe5ad-7009-43d8-beb6-895fd982b318"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"edgebw", "=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{ RowBox[{"EdgeList", "[", "g", "]"}], ",", RowBox[{"EdgeBetweennessCentrality", "[", "g", "]"}]}], "]"}], ",", "2"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"edge", " ", "betweenness", " ", "centralities"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.750700666659169*^9, 3.7507007042335253`*^9}, { 3.750700735261584*^9, 3.7507007369937077`*^9}, {3.750701186141655*^9, 3.7507012028967247`*^9}}, CellLabel-> "In[262]:=",ExpressionUUID->"bcf2099e-f1b6-43ae-b2cb-141670bda82b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", "51.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"DOT\"\>"}], ",", "3.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "7.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"ECH\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DIV\"\>", "\[UndirectedEdge]", "\<\"ECH\"\>"}], ",", "74.33333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"DUI\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"MLO\"\>"}], ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DUN\"\>"}], ",", "96.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"PIS\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "80.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DEA\"\>", "\[UndirectedEdge]", "\<\"DOV\"\>"}], ",", "96.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "28.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "80.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", "113.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "170.33333333333331`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "6.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OKO\"\>"}], ",", "61.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OCH\"\>"}], ",", "6.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OCH\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", "96.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OFR\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OCE\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"TUZ\"\>"}], ",", "45.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OKO\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", "41.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"VIL\"\>"}], ",", "192.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OFR\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "409.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"PIS\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "192.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"PIS\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VAA\"\>"}], ",", "62.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VAP\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "82.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "12.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "114.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAA\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "114.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAN\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "6.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAN\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", "92.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAZ\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAZ\"\>", "\[UndirectedEdge]", "\<\"VIL\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "79.66666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEI\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "12.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "72.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "38.666666666666664`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", "190.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAP\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "120.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VIN\"\>"}], ",", "99.66666666666666`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIO\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "113.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "207.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIO\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "99.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "197.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIL\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "27.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIX\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "12.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OMO\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "90.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAT\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VOR\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "101.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", "62.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ACA\"\>", "\[UndirectedEdge]", "\<\"ASH\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"DOV\"\>"}], ",", "124.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "16.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"VEG\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "54.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", "77.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "35.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"TUZ\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "66.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "208.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEI\"\>", "\[UndirectedEdge]", "\<\"VIO\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VOG\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIX\"\>", "\[UndirectedEdge]", "\<\"VOY\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIX\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", "115.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAT\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", "88.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIN\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", "89.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEL\"\>", "\[UndirectedEdge]", "\<\"VOW\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"AMA\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", "82.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DEA\"\>", "\[UndirectedEdge]", "\<\"DUN\"\>"}], ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DUB\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DUI\"\>"}], ",", "14.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"ROY\"\>"}], ",", "61.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DUB\"\>", "\[UndirectedEdge]", "\<\"PIS\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ROY\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", "8.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIO\"\>", "\[UndirectedEdge]", "\<\"VOW\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"DOV\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DIV\"\>", "\[UndirectedEdge]", "\<\"DOT\"\>"}], ",", "35.666666666666664`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", "35.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OBI\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", "145.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OFR\"\>", "\[UndirectedEdge]", "\<\"ROY\"\>"}], ",", "41.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", "50.666666666666664`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"MLO\"\>", "\[UndirectedEdge]", "\<\"VIX\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "46.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DUI\"\>", "\[UndirectedEdge]", "\<\"VAA\"\>"}], ",", "84.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "15.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", "38.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VOY\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"TUZ\"\>"}], ",", "2.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEG\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "64.33333333333333`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OAT\"\>", "\[UndirectedEdge]", "\<\"OST\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"EDW\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "16.666666666666664`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"VET\"\>"}], ",", "78.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VIV\"\>", "\[UndirectedEdge]", "\<\"VOT\"\>"}], ",", "76.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ECH\"\>", "\[UndirectedEdge]", "\<\"ELV\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"EDW\"\>", "\[UndirectedEdge]", "\<\"OFR\"\>"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOT\"\>", "\[UndirectedEdge]", "\<\"EDW\"\>"}], ",", "22.666666666666664`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ASH\"\>", "\[UndirectedEdge]", "\<\"EDW\"\>"}], ",", "64.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"ORB\"\>", "\[UndirectedEdge]", "\<\"VEL\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VAI\"\>", "\[UndirectedEdge]", "\<\"VOR\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"EDW\"\>", "\[UndirectedEdge]", "\<\"OMO\"\>"}], ",", "12.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VET\"\>", "\[UndirectedEdge]", "\<\"VIG\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"DOV\"\>", "\[UndirectedEdge]", "\<\"DOX\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"VEX\"\>", "\[UndirectedEdge]", "\<\"VIV\"\>"}], ",", "98.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\<\"OST\"\>", "\[UndirectedEdge]", "\<\"POW\"\>"}], ",", "98.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7507006720459213`*^9, 3.750700704619867*^9}, 3.7507007374421005`*^9, 3.7507020194479403`*^9}, CellLabel-> "Out[262]=",ExpressionUUID->"d2a4c57f-cb40-47ce-ad42-3629654d3fc8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "broken", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"mean", " ", RowBox[{"b", "/", "w"}], " ", "centrality", " ", "of", " ", "maintained", " ", "bonds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.750700743984647*^9, 3.750700844127103*^9}, { 3.750701209309058*^9, 3.750701249211232*^9}}, CellLabel-> "In[263]:=",ExpressionUUID->"a7c3f43e-793f-4f06-8ca0-3ea0dd38f69c"], Cell[BoxData["71.67676767676768`"], "Output", CellChangeTimes->{{3.7507007830572968`*^9, 3.750700844783535*^9}, 3.7507020195332947`*^9}, CellLabel-> "Out[263]=",ExpressionUUID->"2ac692d1-f66a-4f2d-a70e-4832b209763f"], Cell[BoxData["52.87972508591065`"], "Output", CellChangeTimes->{{3.7507007830572968`*^9, 3.750700844783535*^9}, 3.750702019539318*^9}, CellLabel-> "Out[264]=",ExpressionUUID->"0c28e359-a7b7-48ee-9c8f-01f3c4eaf4e1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SmoothHistogram", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "All"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.750700872281166*^9, 3.750700950782982*^9}, { 3.750701264233158*^9, 3.750701283570669*^9}}, CellLabel-> "In[265]:=",ExpressionUUID->"9c765666-d0da-4b0a-9370-ce33966d7a31"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxlenc8V3/0v5KMZBeRvTKzR3TPUTbZm+y9vYf326akpaikpSgpDaJ8RCKF yh6lZSsVIqNh5uv3x++f7/f+ce/jPJ7nPs/rdc7zntfjPB5X3DfKLmAjAwND z/rt/z3/z2Uu0L7i0wMPC4+82MNAA4ZPNeeuNvyE7vSCqxbi6/ZrqreIwjJE h3yyVEEaYHfGstYeRmwVbz0z5kGD+rqel4ODLFgl0i0TQlvH74uczTjMgWcC +Z9XZ63jlv8p8/PxoPXFv9zvi2iQut+dL+wrH27dVfnqeTUNxPZsWKqr4sdn mRdOJbTSYFjl9hDPSUHccfPAFuY+GhTIHmgKPCiMr8VqPwd9X/fPinMc4BdD iwChRzfm1/lOWJoyp4kjU20Ae+0KDbqOiOqpTkigE0k9tpaRDippc0ru9lJo 0/4l8B4LHbITm8SOPJXG1GxVzNpCh2HaRd4H0rKoxy1oTmKnA5LDNn88vQvF ThElnut4diSxuHFBDh8NFYR7rb8/E8L9Q9FHAUW1ez1T1/ltAr4MOrUo4pPL z453rMcv8H7cnaqujGKLfQVOv9bz53Gi8W7ebsyx2sUrO0GD4nul7hOHVFBe lanWapAGLnICjinaqujUckZkoIsGLLfTrPh+qOJ+k3/Oo89pUCY1aXKnQA39 f4WJRpXTwPuGgwHhqI5DttGVOfnr/mJ1e96wamDtzv1D/pk0qLoqqxFcp4E2 6fnds+v1CBY6o7RK0kShBe/dVr404Lq0JHNWVgtHpL8sZFqs12e7v5hsvxYO fdZIe66+7p/TvuNptjbaDnL7rgnSQIBHm9fWSAfl5zui3DbQ4HVWAfvXRR0k qYqWfP0aC9Fb2TYnlOoiM7WTqGqNBbGT5DVOvz04cCbe6/ODWHjNMrBwk18P //0C+8RzsUDPMJ7TbdND4cwj7hdiY2HXprLJjlR9NCpuv2vqGgtdaTvG/DT3 4quwOy439WIhde3Q4ML4Xqza1eVYJ7zun/Tj/alrBFaP+nnfXaPChyXHbgl7 wPHp0IWEESoYPvUa62NE3BKR4WDcQAWBBD5fGU9E5J5y2llEhRnd5sHoKkQY uniM6ygVGheS3Gt4DFDDb8pdM4QKeY/VPjBFGOD9Sq76KxZUoMR+c7B5ZYAd 8wLajspUMNXM674svg+fe+/1I3FTQeyXjdVYwj7U3mPkzPibAr8eMrXufrcP m734T/N/pEBbzBOTeJX9eFyybrS2lgI3VaIaG0/sx7dpn49tKqQA/aekAefY fgy52sy0eIwCNqUfal3BEG+lN2oXR1FAKuLUnpuXDNEzo5Iq4kyBFYV9j6fn DTElGiiBQIG3E3/Uda2M8OwN7m0nd1Gg+M69ssPFRsj15rdwLg8FUoO9lTo2 GmND+UJG9ioZHGS33RU4aIzMMTy0Q+NkUPzaLOP32Bh9fN0MyO/IsKkoubCE 2wTnG176hjSS4YOfuthCmAmy0+mpoY/IUCbxPW/fSxPUWj0TmFBIhvSRvB2n xEzx19WLzAU5ZPAosM19H2+KUiTPxL4MMmh4beaV6DXF2yTyJpV4MrCI1GSF 7zZD6+NCzPmRZBjuj2J/fNwMH2i84pPzJ0PFFanjG76YoTQL+3i7Gxky3T4y WRLmSGcSjMi0I4P/jtOHci+aI5Fx94mvBRl0PuxbG54zR+tdAaJWRmTguvA3 QeGABRbNVopZIBm+ON5foN62wDdF/KmO+mR4yudDrd9giS1c1RCsS4bsN9vm 2DwsUfLjldtJ2mQIPtsS6VhpiWcJJossLTKgbcpkPtcB3MNgy5G7bvNxaQRP hB5AlkOCSifW/X90fP+i0XQAH8lWod86X/2pqz4pola4u57RRGA93kVLu8Hm OCs0bgy9kw9kiN7C7M731gof8RsY/txPBsOWmveeytY4NGkTuWJKhp3Hox3u HLPGgy43GJ5akWHGRLp7ftQayzSonhKO6/tnnJLJF7FBsZqgJEkPMnT5mgQ0 WtjgRELj1EM/Mux5cb1wnG6DPvJzow1hZLglvjLCccsG771d0zOjrOcnzUlM 440NxoqaZmomkSFxuMzTlcEWRxRkpBLW6/UdtlxNVrJFroHKHezZZLDLD+gr dLNFNqPrtp8ukaHu37MdzUdtEbeNHH2/Xv9dnoIu0xW26Lz5tMvvEjLk1FJy eUdtUcPwiql0FRkYhDvf6nDaoRrziQ6XF2QITZTj9dS3w7kCNve0NjK86zts ezjEDj/5HvXJXtcf6g1mFefaYfNYjjdtmAz3L+t0tDfYYdjB/ROyE2QQWDrL Pj9jhz+bLO+fmyfDIdcpcwERe/w7LES/v0KG6SqT43st7NFNuNjcn4kCLgI3 XvnS7TG7RMKhZCsFGmkrTMeK7LFDN2YtbhsFVN47GZb02OO7RtLi050UuKxV fqhnzR5djmzRCZGkwObcLc//Kjqg/PVfDCQ5CkT/Dljb6eaArz9bzrQoU6Df oX7vvqMOSFR++xekTgHTCsHEoAoHNGt1PrZXmwIPealPMkccUE/skQ3uoYAI uXOhnMMRvcQ4TgToU+BYj5z2ez1HLP167+ONvev9QzWduhLsiAqvRjym123v M4OPxHMdMYl2v4RYt1tmdOaMGxzxrfvvryf0KKBlc04lfMYRXe9lFLfoUKDg wVTkGWEnTLcsEfyjQQF2TtOSSnMnvE87Osukst5vIm9M9tGcsM1tLWp+fT+j 7StyG4qc8JhMTGiVBAWslJyDZXqccElgxdRakAJVmeW3LNacsNw4mfUR13o/ +rFlLFrRGVe36hkMrec32yJQMtfVGXMtFEW6FsmwdLfepybDGeHsv6BDP8gQ yCZUMPzIGTu6qlLnB9b1GkIdZBpxRtNlzgDxDjLoN3fuVOBwwZ2UoPtstWQo 3iXvbqPngrGCKcdK75KB51j6JWqwC1JYuxrZL5Ah+dvg+8vnXfCX7qUm6UPr ejXW3V7/wgUtPa9mLK3r3eHWOYexn+s46dylTIf175Fp+iybsCt23rCQGtRb 73cBpt27zV3xJZwYnBVf12vjDU5HmismlF/mbN28rlep1QPxN13xm3veyYgJ EoQfds7M73bF89dOlg20keDDaHlL4z9XjJRn9RMrJYHhPnbWCQU3bGEZZdM7 TYL71wNNOF3dcPK1W5Z6BAkENjw/opHhhtJ+aM9lQYJ0b6FG10du+IL+XOWD LAlmnlE3pgy74bVSHupZRhJ4iHbhza3u2PJ7uM94MAYak+VTmve44+Y7OSdW H8eAymB67XSQOxrRg7c8y46BvL1Dy7zn3fGrgrNpTnAMsFzV3aP7wh3lXD4f yYAYoKyco3v+dMdRmacH87fFQL/7dOXhnR5YEryv+vtENJjWmP4uNvNAebnZ 1vBn0VAhWKjeEeuBx1hLtmqdiwax+NWY+UIPdLi3qmEdGA2ZH53LBLo9cCpO Q7VBJxp+6Tyc3vvPA+ck06WuskWD90V2JT+FgyihLPC063EUtP0NDDvmchAv 51fe9naNAh3n53dKjhzEzot9uhuWIuFmpdD3nocHsaTP+l3zpUhg3x4rszB0 ELX5b7H16EQCndrlL7zVEzl+6h9SfR8BX97KF+7b44kbzG2W1igRYKNxZCQo yBMNdMS0HHki4Om5IdFTOZ64vVh93vRBOEjN63o+fO6JKxtrB+YswiHbLifv /bQnZtyXORL6PQxWyqc/rQh5oZpuu82r9DAI5jbbIWHmhbXsUxQx8TB4G13o bBLrhdxfX3/LrA0F/a7V8+GFXtjwkMNZ0i0Uine7vD3T5YW8vSnCS39CgC/r Ic/jVS881TuiI5sTAkjL2BW5zRtvG+ljvWoI/Ln16BWDojdK+ga7feoMhrvv hgPP7fNGudY/Gicig8F7M8dmGVdvHIqIWv68NRi2a+kVVUV540DST6vlkiBo Cwg2tMjwRn9ROeKzVRAcOn/+80CeNx6XeL23dCYQtJpeHIp+5I1e04R45LlA +PHrpzhjize+pP/j1dAOhBtSws/PD3ujwmehc1z9AeDiYO696683qnMFBvEe CgCOdNrak60++A6n8i3kAuDFo5vXDkj54Ezqv8xX3f5A/9y9d3iPDzoF5NTk JPiDMu9aP8nWB02diNlnMv7wZZ9iIlOwD153S9nl+MYPLpNchS4m+yArd9Ep rzQ/sLqR8UT+vA96EPyJ4yp+sKnnkWvtvXV+brHElRFfeLJhZMH6hQ8GLisa XM/xhWhVjoujH3zwUvHR4iFTX5Dx0dOm/vTBuOSMqrp/PvApO/gd82ZfFLmq XmBY6QPZ9eepl3f6ouvekMexUT5gPPOCT0ndFzX++KS4yvvAiujMo2dmvjig W1M489UbyqyF7e28fdFo5/dlosgbAlPM577E+uKZPTynjAO8YecD2hnaKV+s 8Q7MZJH1hp7BmypsN33x5q2cBrZeLzjG0dOZ98QXA/tmHeO8vECfWIvc3e2L XyQZk92mPGEuQpHjxTdflIiw9r+b7AnFV11LHP75opQXUeHH6wme7RmW3/j8 0Md0f1HKvYPAt/poMk7BD6lzDzf9MT4IrxVHTrDv88PBAn2sHfOAZA8O+XwX P4xU/xfdctQDNDL1mlWj/NBEXCGIW8kDJmqCgxuP+GHS1Zkdab3uUDB5ntk5 zw/JOhXGW9PcwUGo4db4Qz8cqP2jXbLbHdgsZowSm/2wN2qrj9mIG9THC49x DPthtAzn267zbhB71zz9+h8/HAmv9lA54AaKn2iSGlv90StUdMKR2Q2GWYte vJT0R7rM6WSFRlfI1e3xcd3jjz/jDCqvHHYFy5A1hh82/pj6pVwoy8gVNl5S LEgO8sfNqjFvZlhdoeq1K3An+2PdFvHx4i4XCF/IGCzM8cd82DNw7ZILSOyq SNK6549pxRTFp/4u8MF5ZGfzc380fDwe/FXVBU4f5Xjq/sEfpTNj7DZtcAHD x3ru09P+OP6S2X2l2xkWvgYvpTIF4KN/C2IVN52hdHvuJd6dAXj4GoWBJ84Z /I0bdG6pBaBgcovgqpUzCMbOvNcxC8DMi/+ZuMk4Q1eRMK3VKwBP8xz35Fxz gvRe8+2esQGYX89ttPGjE+xhov83kxmAu4mvk/wVTjCjUeRwuDAAG45vc9fJ doJb/j3z254EIMuVwhtmEU7gkbN2trgrAKd/Nq2oWjgBV6Oimt63AEz8xh/+ Qc4JXs67drevBqCY24C9FKsTJEoejfbmC8R/2y3TV787gpp9Bee8fCA+YT9o bNnsCN8PjZQeMQjEoVrRoMU7jpD3kMNKwCUQO0UHP02dcAS7Ub2pu5GBGJp/ ypM33BFYeEIy9x4JRIeHHK5OBxyhziBXoetKIO6SvNBXoOwIlJiGFt+HgWj0 Mn5okNMRdl2fCfn9OhBvur4QXJ1xgMEuYdZjQ4E4+eYS83i3A+QwWBQL/gnE i6uSk9kPHcBchW5Swh6EclnlfZ/POgCDd9FXkAxCqTi3l90kB6jI6jnSoxuE ROAC2cLOAUKfrUkF2AThq9m0U/tUHUDsp2Lj38AglKe9zL/D6QDvRNz8TiQF oeGrEyKUKXvItDq6UTgnCFnjmINyW9YHv+SK6w/uBuG5mebnTLft4U/JCO57 HoTH8hb9qg7Zw/0BjuG374Mw2pIxuuigPfhu1U8Jmg5CytGBlgZtexDYGyKy tCkYlR0MLnBw20NbeG5tplAwNsf+254ybgeH8ho8RNWCUaufsZHzuR3otM0s l5sG41eqkuvTC3YwvSx8xdArGD1HT8emRdjBTQWLPe+pwehntPeaxz47cHGn fwzJDMaLnZdVLLfbAcfJIvrKjWDsa9sVbD1uC41PevizqoOR1WbMIbDGFuIn 1irFu4JxoUv3/ZlMW1ARVHKq+BqMKiapl9942MIXM7ffxqvB6J8mxamsaAuX 447mfOQNwc1FQf43l2zA5k6Ferh8CHJMtabteW0Dmz+O9PzDEOwcVmb4nWMD T1k4SWecQ1DY46LER28biNbR55aKDMGLnxo7fijYgExwSFllegj+3PGZLeKH NfRfyLU2uxKCTy+PVMSnWMPZVw3TfeUhOCol9JGb2xpM/86cinwdgt9Yjj/Z d90KVmRElDYMhaDMg4fZIipW8NDJou3c7xCs57wW+7j2AARn0MNk2EPRi+ec q5j5ARCpLGKrlghF0Q9138J7LeHtWM8dC91QPNzckFzuZQnHtjGYDVqHYsLW /YKM4xZAGCl9jw4MxfiesH20GAv4RXE7ypgUipsz85YkF83h7s2jMrnnQlFt UbxMNNUcvN9WNO26G4oyMaJyaZvNgW/TqH9NfSgynb9H9so0gxZ1zk1W70OR LKrY281tBql++oXDU6F4R2S5+meuKWidC9lH3hSG36K9irqETOHHi9wRJqEw 9P08Ip5ZYAIFcw2pF1XD8OMb5oe60ibgJDErqmAahhXWX/R/3jEGdjuRZ7We YdjWdKO1SdkYXqRZeNpQw9BJ7sLL3kdGQC+nr46eDMNKnrpmdV0jUBwpyqPe CEMmBk/z33WGMMr1Ro+lOgzNPPWqNYwM4SIy9F3uDEP5qsK9TG37wSpaKV7p axhy/2DenWi/HzYVuO2oXwnDsvnmkNK+fVDVebTKjjccAy19jcr890HkWoXz mFw4zlTLnjw/bQBSu0f/0DAcuRJrImLiDOCTJ2cum3M4vk4WSnNiMoDs0/qa VyPCMSjB/ZHTWQTDupC3u9PD0YjCZHxYDGFpKpf84nI47nizL/ujF0CZcCOP Y3k4ahm8EjdOIyDwwGz5t1fhKJF+3iy0aC/sTBKxjR8MR77CJx4H2/Sh677F DPvvcBSwE4ww/qMHGf30rPwtEUj74vhAR1IP9NlvKatJRKBPnIuapf0emNN7 096oE4HpzgtRFzJ0oTiMIcLZOgLdvSa95Wt1wOOKEvtEQATGN9XcE/+rDTyt bvcSEyOwo6ny2kkNbXi9dNSc81wEyvnU76FRtSBZ/r/x63ciUFV/P9t8tSZo uI0e06iPQGP5JN4tGzXh+3HOXa/eReBI5/aOVwc04Fq1/ivXqQh8wUo5rH9V HRzGQwJ/MEZiIzZuCZ9RA7YdF5hSBCNRXPmb7UETNag3bbzJrRqJn497tG+7 oQoU+uz+myaRKAZJJy4xqIJ8schnLc9IJH13VZ/0VYHh9xaHmimRWPTET03g 7G7IZY4T9zgZibUJN+tmApTBUvtW/fT1SFT2N20MMVAChqA3XmlVkXjl8Gf9 ZClFqMxlWOPtjMTT8mUXBDgVIPyl0rVbY5E4VhJwwmCDPEj8cduruxKJy5nW K1+XdsEH6WP9rTxRWHe7vWphWRYyHf9L8JSLwjsX6XOBm2Rh35FRwVmIwmeM aYuifDKwUMH55LBTFIYb6DpyKUhD6Rd91+0RUagc1TQgYSYF/nyhC8WHo7BH aKAXIyVBwPDCBb3LUchIn+53vSwBHeRGrY6yKOy1cVs0bxeH9MLZXu9X63jA dOrMZnHY80aEOj8QhQymdNAxEYOZjZZ8Gb+isPpk/qkNO0XB7tJT10ymaBwb bFYJrhQGJVX7O71c0RjRFKYdc3AnsDSPL4jsjEbJxc4LdVxC8Nk71TRYNhrN /07N7O7aAXUL2y+Wq0VjYL3eqcgrAnAxu+Tb0t5oHI24IqFN4gfyLkNtQ7No lLn4OtnIYTtY1X/KOOUQjfKbncsdDLaBnEvMu3de0VhBsdQQ1eWDTTPMMmJh 0SiSZcrrpccLg0evUUNio7FJQoW7w4QHqkU1mx6mRWO4vV2btCc35Dxu5VvJ jMa+IIYR0WQuiLL29Te6GI3DP6S2/bDiBLNvC49OF0bjlfo7RxofbQWplCzG D6XROLu/6tleeXZY2y5jL/4kGv0EEr3by9ngU+nTG6FN0Rhd46MwYcYK/xnb zz3qisaGoPvCG+eYIWtw3GC1LxqZXCoZUu5shtDY1DPG36KxZEAofTGKCYw4 +Eey5qLx2i/ctMVoE4jdKlH5uBqNGqbOMzt3McLyXsNUCdYYPG1HnykS2Ai9 vZ86w/hi0Dd5c6Xc9g1QFhEj+p9oDNoZ99ooizHASSaWqH/yMbjWzX2OHv6P CLx6rc5EKwY1sk+Rah+sEAaamhxnDGJQoe1KrTHrMiHU3nrwk2UMWt8S9dWk LxJ//H1LJF1isPfxy8EHy3+J7pWFlXC/GDzA/M5z9Owf4n5OlmVlZAxOz53r /qf/mziqKJO3FheDXsFHVvUX5wmfxqeTpkdicE8V71T+yzlC38Ne72x2DH65 xP7pxc1Zgv/X+Im+KzF4LVH/5OLZGWLuZOonqdvr8TPmp9+J/STaJfnlIx/G 4El7k4J+nSnidk1J3OPaGOSQq8moCZ8kDtkbNjM0x2Cs5uMZrZpx4uDkJwHz tzG4lTuKR0TyO6FzOCb43FAMrnQy/7Yo/ErwCrFU9U/EoG7SDZ/be8aIqYfX mGX+xCBVs/y1xPfPxGtzTeeoDSQ0sF+Sfnp3lCgcbb1VxU5C1h13RxLTRojk eN8/GwRIyLSpqzQubJhw5Vk0spAk4YHx/Z03OwcJ9btZ53OUSdirUdnpN9lP cOyTGRvQJeHRx7ytV3b1EeMfn2rIGpEwe0zzTPuRj0RjjH16tA0Jd9p92pi1 4QORzzrxptqdhCdtgmtPXH5HxF1PlWQMIuHo0U9NKda9hIMuP9mSRFrXn5m6 gehbYnd3yYvzSet8B058/I/lDcEWYsgzdIyELL62v96z9RBjDH0+u3JI+KlS 802FVDfx7GJMeUw+Catf/84Id+wiLquwbKi5S8LHzhfF/HQ6CerrazabKknI HawvfmamnbDx1iw48JyET22OL3L2tBEKC60/c9tIuPziwM0Hfa0EU7bveo8k 4XPe0jxf9lZiWHbxtNxnEv6wK7Hb69dC1DzLGiRNk5CXsr+IOtRM5DrLKD9d JKFsoaKvb2ozEfPzaRITExkrS061xhs1ExZH7dutuMiYKBsn6aTcTMiITuy8 KERGNmfbvff2NBMbHqeGj8iQ0S57js8mtJnot+J/Kq9Gxg729DDd2mbi8deS LZS9ZGxSehoSr95CnEk2dK81JeP9eRcTw/YWInx7393NDmQM3pj0d+xEK2FS GrNk7UVGT7fzH1vD2wgJYxbzS6FkfPf7YGQKuZ1YXZ96RqlknOU5zXU7v4N4 T9UcV0gjY6TenTKmuU7i4dY2HWomGa9OPzSr/a+LOFXke6zuAhmHWjYfT83o JoL3Lr5nLiQja9QO5Q9hPcT+3ixZ21IySs5sunow8A0hHCFDu1xNxv3tjt8e x74lFjbVvvzcuL6+qGf3r1ztJd7k2W9X6iKjaMbqUkvfO6JUYyIgto+MbxXp itvUPhDH21L/e/aVjEICe5ucrn8k/Pz5mVjnyMhg3X8gTr6PIFZKHOxWyXiM +z8Fckc/sSPH8OYVFgq+qdGLNTk9SPxS6Jv/wkvBi2beXw5pDhOdDTH7lUUp 2HdShGVMbYS4485yjiZPQeR3kh+EUSJ9/tpovSYFHeqrCJaDnwmvk5pqbAYU vPxAjoXx5Bdij2Rbmr0lBaXyjH6TW8aIbTW+3XnOFBzuqlpk2vmN+Gm3KPbV l4JPGGX8Q1K/Ey0TWdG7IymYlzBw/cbfcaLokEw9PY6C7/9dkug9PEmkCtZy vkinYAO72j1e6SnC/aG915ZsCqa/fH6fr3+a0DSfKHW4QkE3/2qtLocZgms0 9d/VWxT8Ka6eZ2AyS0zG8Vt9K6cgX93XEy+N5oiX3KVXVWop6L9vpu61zTxx /Y7hVNxrCg7VGR1+FPyLSDDo0294s87P9v7I/KnfhNPHmEz2IQoW3Ppa/Kf+ D6Eaw9LvOEFBX9bT3QobFwh21nyF/N8UjGf0fbTRbpH4VqCZ8J2BilfSlC9N li0Rz3XaWlTZqWjW2iDvLLpC5HX5CibwU3EnZ8/uyqurBC14MaRRgooJwW+s 4xTXCDuG7OqtylScrD8cxBLIAEoXZViddanIXLNfKpbYAMwqtS4FhlSsZ6xT qxXdCKOv7IvHral4d+65KR8bI9R6TfxVc6fi/ltKTuWrjHDxb6pJYiAVtfUj PJqXNgE5i/9CUwwVQ8bLDbM3bIYDsqVfOZKouHDtZ4UODzPsemao5XKMin8a yj/PK7IAo3PfkevnqNhR9TF01pYVBqdjeieuUXHLgG6sRxobVGewSGvcpeIx oV/PdWu2wDmRfErSf1TclPFsJwfDVois1Gx8WU9FiVDN8Q5rDjCzauPlaqPi mqTbQsFdTpD66uvn+p6Kans3Ktsf44K1pMWHN0apKIKhgmvIDR+3ZW/8MUXF ApcF8F3jhooSGTvNRSoaszjPHWvggSyj2uvJm2JR+o/U86RTvBA6YD/7ijMW V9IlCOODfGBEnUBuoVi0Nf2u06e2DUS3pmW7ycRi25FLQiEc22HpJv9woWos 6rWcT+r7uR169Ut3T+nHYsWHa6Vq7/nhwVvDFC3TWDQTtigObxSAk+F9HSn2 6/G2HP+b/ngHBGwiiTR7xqKBx8AtSpkgGOSxRPKExmJrLUVO7YEQCGnk17pT Y7GpXtyk/NFO+N2qubUoNRbrPnixfq4Vhm6/No/pk7Eob0+581+7CNxb9r2v fSEW3aabUvg+i8LRc4vLqTdiUeyNwdJ8shj4KGRbtJTE4rWgj1VsnOKg1yBz hbc6Fg9Ked57dl0c+N1rJzwaYzFt9lXsRm0JmJ2z33OrMxZJBk9UnndIQPuJ ieM/P8Wiu2O7+/dgSbgtkfZR52ssdgo3fPFlkoK0J/xyh2bX418oFxO8KQUH 7UrprSux+N+8QttvQ2nQnjB8zcdCww4kb+n/Jg28h/r4PXlp+PlUZVh5pgxM 7SAF3RahoUhvyJiLuiy8Kmd5PCNHw3ypJ0OP+mSh0Cx/8x5NGsI9Kc0bR3ZB 0oim02GkIT1cU3ejqhy4xrUVtVnQ0CY85lnZgByoc/v93ua8PhGpREkePykP W+8sGnr50lA2WNQuYI8CjGN2TnEEDbUyjd8KTyhAwweZL7N0Gv6Rlv10/LIi 5EfXquul03DrQXfTFAsliGNxOJyeRUO7/X1NPStKYF8w0dN+mYZzaoqtzqXK sFsnTYL/Fg2PhlY8HPbaDaxd/CTvchpakrcH5LOowFhQ6fM7T2k4JHVeTdxH BZ6tGXLPv6Jhr4Eb/WC1Cly60Oet/4aGem9nD+txqwJ1N6nsyCAN35fXGN4I VgXrVywMneM0fJOr7Ex/pgoKXvnWAr9p2K6dyXVzmxow/dXM92Gg4zWLtRNb wtRg6HTb9N0tdJzl2vkw55ka1Mj4Eb+20/GdVY21NK86nK9bPLVXgo53XWV3 FAaoQ4xT9kCGEh3PKZ99Ol+pDhbTMkpdOnTktmudXtmsAdIZtYk7DOmoWKEQ d9NRAzaIOLT5WtOR5WiJSdcNDej7b0LovhsdR65J0wKnNeDxgbSw3wF0NLt/ zu+AjiacGeOvIWLoeMQvuTIsVRPCkkrZjiXSsTfchlr8UhNMthm5dR+lY0Xv Xc5JNi0QL+m7I3iOjtsvX48QOqAFq4akRb9rdCRa362Kn9KC9/0sZiV36Kja G9zwrUULyin5F/9U0PF5ULGf02ZtOMWu9R3q6Xgq74S6C2hD0M027eOtdFw/ dw0/ULVhv77f0Z53dLSvrya9uKMNwm8X3wmN0jHsT04kY582/A3LlgmYWs+P 4dHWY6w68IZRNrZ0gY5BWTvZDDR1oORKbdNfxjgkz+kUCnnqwHF1h20GnHFo 8TeVhzVdB/xaJ/xPCMZh1E/54aVbOrDXL63ijXQc8j5Xufv5pQ7sWObfJKwa h22LHxUff9aB+bOl9oH6cSh6JNc8dFUHOuWNCh+YrONrErzzvLpw50Xf3IJd HDLqzDSbyurCYTfSvn2ecVix/fWkn7YueM2xnD0ZEodHeu+qE4a6oHsif+Qt JQ5lBYev9RzQhW0SWqoiqXFYYKgTLeygCz+r21KDTsbh0+V4tZ3OutBs69dV lhuHB+sZnrQ76ULR+KLo0vU4zOCJlVaz14WUtOyo/SVxmBj7asDcUhfcd8g+ y6yKwzNhWucF9+mCZnktx7uGONRTvGhUpKELnGYOnqKdcdjZ8UxpRlIXJocn SoI/re9fcnvHBi5daKKnrZaPxaG/v++XkQUduM4lcGB5Jg67cl4FXhrUgYTi 0jzDlTiMZltOUnuuA45o9OMUczzOhVYnVxXogOqHPr33PPHov5Qyqp2kA1ui SSfFROJxx+tsqHPSgW/MrH0hcvGoNWyKbko68Dw/X/6RRjwe0O+6JLRBB65o a8WvQDyG1Chs5O3RBlpnW7ORRTzu+lYtbVegDbZBfjuynOLxVLNk3mSYNiit LQZ/8IlHhdTW/jkNbWC+kF0lHhGPEldfqCUua8GIsixLGD0eo57ZleU904La l7XOFYfjMX+7pERomhZc8HS4vXo6HhMbmTYuoxaQ/0z8Mb4cjzxm9JDAf5pw 4HSacXZRPJ7bP8rYWK0JsjICuR/L4hGXrzIokjWBsa50TOJpPH6Webfpsbwm DDgaaYa/isdwqqFw8rAGVE/1pf/XE49HrfofXM7RgHNHSG//DcQjv3JEhIyJ BkQIs0qZjsfjyqDJfr0FdTD7L5985lc8zpTMWs7fVgfJA1oNn9biMSt2pinY SR3WvrTxSG1JQKrKk+X/GNXhY6Kfb8T2BJy17YHfD9TgEd9SeaV4Ah7gEv2E 7mqQdT97A4NSAoZKpS4/ZFKDEENZWzOdddylrCzggSoY9dcWnN2fgE8exfeS XFRBlOIw02eVgFPFFiy/GFRhccskSLsl4Ii8zLWNd1SgtzAtKzIgAfl4N114 bKMCD/QEhh5HJ+BCtK2088xuOPmmVHlDYgLeEfpwcorYDQFhRsnmRxNwXpJl xOeUMgBjf/u5swkof6bw1mifEghdIQkPXE3AisZwq6vySvBbjTVC5k4C3jIc 31UXpwjdLflPoyoS8MXf/Y7RzQpwz1eLvfpZAurmOTwc2KEAR5ba3De2JuBr vu4u5TB58Dnrd8/iXQLu2Xj/64laOdCTX1rKGUnAjOUbDfzccrDtRbb54I8E rM9efbkYsAtmXWUvyy4koJ5a0jv7p7LQOls7Hs2YiJ5riU4mfLJw+7iD7hOO RNQigeSvCBlIE588xiiYiGsjgSfpzdLgXp32wVI6ETn6cyxmZdbPU1uBXbkq ibjip3AyLkMKuMdLaUN6iZhpLf9J/rskTKUavdplss63U0JF2FISXgn0byfZ rfO90fgR+FACrpeRAmsOJmLI0M53O4UkIMmUtXJTSCK2/lIRs8sQB+fhfCYr SiIaPnEPFfglBup0LccLKYlIFVptSvEXg61c7TeHTySiTIUjVemBKHy77fdL LjcRr7w7ceHtZRFogKX95OuJuFhwb3VLpjBcfZ997un99fWft236dmgnxEXJ fmaqSsS6JS3luBQhsGeuU7NuSMRXLYL3OtIEQSnf4dDFjkT0ffBufv74DmDV nuwe+ZiIZW6nBeYuCMDnjjRxhbFE9LYfOt95jx+eBQrEUGYScdx3ISS7aTtc +ldaX7uciGbDKfJaY9uAnGvExcychEdtVITq2baBtXK/lw1PErZt5zVS0OID uZekB5eEk1DW1uA0KYgXmDxZ10Z3JeGDeN6e09d4YOh3vpWiRhJuHitejO3j hupTWteokIQnmsr4xES44bx0+1SdeRJuU/EiJQVyQVSt314WpyScIuYoG0I4 wcJxKdPWJwlzml+ya3BxgPRUdv/l8CQMou37FfWCHdbSZRW/0JJwq4j3k6yU LdC3sy5B6XASag4fDAwzYYP/KhxaY08nYZjToeIPO1jhjOWkYP2lJKy6r8N2 7w8zhH1JC2UtSsKrGYHCFQObwShR4Ild2Tqf+fDdhg4mEOd7wJpXk4Q/b40O 3W7eBMv3jFzHXibhL474eKUORni/v79YuScJtSZf/BLt3wjlfaQF2kASdgf/ LDWb3wAnyaymz78noc/ZDQIU3g0QtKXgAtuvJLTKlu8N0mcAg0Ktb/ZrSdgc frjzY98/QlivXesqWzJ++Z1VeN56lfjb45fxdVsyxhf1x5x5s0x0hy717hZP xo17lbncg5aIko1npOMUk5El/JJIKtsicfSyLPWFdjKqeNkann76l/BTq2vc sj8ZJQ7YhfAm/SH2tjjwOVolo8e1sR9XLX4T/L6Tftdck5FPneHjU9lfxPxi 2qNv/sk4yJrMw8A9T7SfEWBUjU7G0N0GGQub54g7cg/s4hOSsfmAvr0O6yxx +LnRjYaMZIyJJM/a8c8QB137Z9nPJiNT9tq9Jz7ThO4sycDpajLm7TXf1X/3 B8F7nPVMfnEyej7h+buHdZL4KVYw/P1RMl6pxKAtieNEc5WWitqzZAybrys+ svE7UWjTnpLQkoy+1VcWxq58JVK++3U29iZjSDXH63CTMcI1dUmEYyQZV0TO Dnpu+kJoCpyJdP6RjDIlBI2pZ5TgLJOtK/ibjBd+X3EtfTBCjJvUbZ3YmIJD t7ZP38sbJpqGHA6qc6Rg/fuCvLsqQ0Q+bfJ+4o4UFN+4eIPdcIBI4Dy00iSV gi6My3JA6iMcbwtYcqqk4M7UmY1bn3xc76APrrjorfO9F71kLviB2PLeaPK6 cQraVv2b7j3zjhiL7N8zaZuCFx2PnM8V7SWebyaf0DiYgvoiLNeSXrwhrlxj /ZQUnIIs9OWMI3E9BFWrQO4VOQWHTzNKPdzfTdh2aMVxpaTgdd6yNC6xLkIh sP2164kUzEo+dCJCqINg/ucnUHg+BU81XOc+xt9GjJxfCvpRkIJlulHB9Wot RI3Smcea91OQ6b/Nt2hhr4kLTbLMKY9T8P///vy/7f8Bp89AtA== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxlemk4Vl/UPpUpIg1EZc4sU2aetcyPKfM8z/M8e8yRIUQRolKGFJEhUVEU GiSRUFEKUfySTBnyPv8P//fLez6cc93X3nvde9/XOmfd67oOt0ugifsuCgqK KvLt/z3/z+XA9TNi5DkU9zKk7B1OgsTL7NljZV+B6cVflYlpMj7u7zhM/wte 22Y9lV4h44HPRV4PV0CIWP6ebncyUBygS55Z3ATi7a8zjkzJ8ESoWEbqICWq pRYdk2FPhsSXYsK/xfbgrxeDCxm8yYC+XRx3iTS4N0OdxlGEvJ7B8mCg614c lnyfd0+SvL72J83J+H0o6qzMnCdLxvwYH6G/HxvdKkUWFZKBKzJzfXiMGX1b 1/aMKJHj974LkfE8iOeG9rcTlZPhCyvnQv7yIVzPujZCJI+jl7fnchILFl4l 6n2UT4ay1qZJU6Yj2L+smrBHhsxP98+2qZQN36U1E1+IJ4OTNfH9AeGjqNA6 8/2kEJn/1gWjkPvH8IShJJUSN5l/49PLtxocWOvZeecPK5lfV0BTcpATv90S MnLclwxBr1sdn9dzIYNzd2sKZTJUr4wfi4rgxuuHFvf5LifB6PHdHwRUeFDd 61Af20wS0GoJFo7s5kVGroLOovdJIB9gYJb2khfHVS7uXexOAq9LIcxyeXyY hPkMgs1JUNRR2D9jeQKdr9GH6FxPguczj85d4uBHzdqXJ+yzk2Cd8StRa5of v++3Oe0XlQSCcjTUqzUCGCSAOokuSWDlKPq0MkQQy0Plqm7oJUF6mnGiuYIQ Sp214hmXToLW+ggVKgphrMtXLFc4mgSzIyUbzT3COMPIKNVFmQRHKDrvu2WL 4FR482ri90QgCs6EHTITxTsNo1KJfYkQZUQv9YxdDFeO0Ku8vJsI1VESv0In xfCd8RTJOz8RRsvMa3mrT2IQr5SzV2Qi7H8R4z0UII65IOn+1joRytYNL3ay S6DB2nvKeqVEaM36GswWL4EWrWJ19McTYYAr3Ch4UgK3JXKavm0mwGwzjfgL DUkslc0aGHmUABQ6l/dxV0viZjKtDW1cAhwZF52PopdCjts3X2coJ4BE8OOX AwFSWGs7kBG0GQ9EKpNbgoNSmCPEWD3QFg9OxVNpiTLSGMm+2t4eGQ9RYpEe o0XSaJ0/VaEnEw+5nXSaElvSOEOzYJ69FAfV5qW86Y6ncJyFu7egPg6ezJ3c 9aXrFE7uX66L9IuD0bjOL3L8Mtj/Lv2ThlAcLDKbPT6fIYPzZVIKTDOxQFs1 c+X7vAwuNdw8OHsjFrgUo2PBSBZJx/q0vzjGgnI/vW1hkyzeO7dfkfZ4LJi5 XFX4xSKHO4uSQ4EfSOC3KnFEO0YOO/7ZxPIXkSAl8+nq1XE5lNi8eVTJggSl HBbDqyiPnSL7mB8dIkFz42zT6Qp5ZOi/Jn1/KAb6tEgXqmgUkKSr+kbhYgxM fdgX/M9HARdYIxuNTGNgK6DM0KJfAe8ZEdhpD8XAod3SJ+skFdE44Y2r73A0 iBZ2M1AXKCJHgUp3amE0aIhY/bRfV8S36U2PnG2iwe7xjxf3bJXQnptGjo4j GsJM46r3PVbC8OPL51O/RkHWd6Y0dx5lTCq4c+HzzSioIN1wb09VRp4DT2M4 A6LgEZOMxuE5ZaS7YbGiLxMF78p7efz1VfA2w3WewO1IWJSzoeyuV8GZw52F WT2RQNs3//nYQQK2lg061eRGApdTQkdYBAGN7XR3v7WNBPll5it9YwRcTruQ uEswEozSK0h8KoAShGkrjZUI8DomZxNbBniszCnn8tMIwFG3Yz8oEc/xGVfT XowAfZ46+kvSiD9V6lryXCPAym9tQ9UdUS2221xeJgLcWvDHwiXEQc39jf9o IiCIInOs+DlirqJE1szHcIjVHXquuYEYYcKo8vtuOKTnH2v9LaKK1j1HHnCm hUP+hPvNK/aqWD1cUhziEA5lgvWXdM6rYnuiJOsP2XCoDVlPXXmiivOWGkfO 7g+H1keq4deXVHE087qE1s8weEZ9zs2ATw3Vg1luCvWGwYDRO9O/5mo48P5w jHhFGHy6fFy9Mk0NCR7ObhbJYTA75SFl3KaGcpVNk6XOYbB88i739g81FKHz lKZUCwOK6L/7bx1Tx8weFvck3jBgeKpGYX5aHa+xyBofpQ6DI/uyflEkquOz vsuVfXOhwGc5PFHboI63Jde/X+gPBYnrHP1W39Txg6J2jG9zKCj/9Gzfc1gD 2czZrpmWhIK+TEPtXS0NFGYfiiOeCQWrhI0SuygN7PPr49f2CwW3F+rnaG9r oEexaaG+RSgEHcyOaf6ogd0qee3mqqEQa//e22mfJvZN6MY6ioVC+k1OawbQ xBm55DoP9lDI/+1FbA3SRNfwX8JetKFQptQo53ZDE7vqzXqd1kKgNnWTf/87 TRzhvWVr8D0EWt9osDyi0kK15+zdwqMh8Iwth8pLTgsNqadnV16EwIDryPJB by1MTNxsqXkUAp/ucE09vqyFLStpojp3Q2B2zXvIt08LPUIVLV5VhMCyalMX 6z8tHBX1NRG/HAIUWVsNT8W18VngPtOQ3BBgeK95PdBZGwuNQq/lpYXAEa7z uUcvauPai8mCzIQQ4PMZTeh9po1cIiu1NlEhINHMHRi6qo3WA8NhO8EhoPzP x4FTkIhSoFIU4RcCRGKzwStrIj4Z1xtv9wwBswvbypHniPiuSJx/yDUEnD5p ifK2E9F7tiS42SkE/Phzj775j4jZjw5+dHQIgaigsb0kLh1kWKUqGbILgZQH PBv8JjrYxukkz0jGuXv85gbP6OD3ohMD+8i49PS90fh7OjjPpMTwloyri/71 Cn/XQa9jZVctyPGav2rff39EFx9FHde/QuZ7IppXlayri5foM/6Uk/fTF/Gh 4GSsLpZ1tmd5k/c7+oQ39cMdXWQVCxBY8A2Bqb3+YWc/6+I3raE5MfJ5F81a XKWY9TD1oTyTSGQIbF3dMZlQ08MAFa+Zb3FkPeeIaplheujquvLGMpWsp/QF SdkqPeyu8lU+m03WM+4j19cRPWThdrodcImsZy/f/hw6fSxr8qrYX0bWkzlg R0FJHw+c3ujwvU3W0/b+f9N++lh8QOJSwj2ynpUUE3lX9bGJI+6VXidZz186 r1UG9PHoc93dA6/JeipcfDRHaYCWfKlf6T+S9TzzqaZA2gDlWlkZdmbJer4+ UaLqboChUnYct8j5l8samLlwyQBn2eLu0tGEQqlza3TxcwOMtOs35GINheoa Sm/NDQMcrD8eNy8QCs0rula/RU6jfuvWLX+FUHgC+dpX7E8j+wK1bLleKPRl jMvqnD+Ns1In/LIcQmF0iJ9/5clpTBJ4myAYEgpTx4MOX186jQ1sNpkRZ0Nh 0bNtjwGfIa5Vi6WHk9/HrYZdy+vmhthAw2/B1xAKtFt63yrSDPHq2Oe6pN5Q OKRVMGjUZojCVWyCWROhwJU70bn1wxBvDnFIqK2GAsvCRSszRiM8dRzpbzCG wbEL8kbCAkZ4O8j27S2BMOCRG9emQCN0OR7ua6kaBoKfkuC9lRHekHXLq7YN g5NJ/HK1wUaI1Pm9lyPC4BT/q5PJmUbo5fbJTuRCGCi+CuS3KjfCqM4QL8u6 MMCgQxwnHxlhSeVK79FXYaB1uO3wnmEj7HLMPx4+Gwb6D+z3fVgwwu4LZv2O 1OFg4riL6i61MUqrR1KM8oWD1Z6bW6mcxti++a94TD0cnG7pLdvKG+PieStw cg0Hj9OLPyWNjVF0VcDE80w4+P3J/0bjY4zp1xUX58rDIaRI4eN4sjFmN5Ut fX0WDlEqE4NNJcaoqvffvP5MOMR/TX6Z0WyMHHxVojy0EZCSJtDl+NoYGcv7 W+2EIyBTtK9NZsYYI20ajVf1IyD3bVAD/Y4xdq71Bc0GRsCliMO3JllNsDt8 mihKrj+lRx+U3ZcwwWYLi54HLRFw44lDUbaOCXKdTzmf9SECqt1357q6mCBT QyrV5X8RULe3Ok2BRMavVjQ+8kRCc71+AlO+CX432eYnakfCA7PfEdO1Jlhg kaY26hsJT/4WBDzsNsGI/dULyeT62XNV0SNvwgTlx6UB7kVCn/pne881E8wJ Obt/z4dIGJw9Y66y3xStWWJ2ev9Fwmi2oMFBIVNMC88JSuKNggmp1xpzqqb4 r4iQx0+MgqmRYOXHNqboYJFqc8cvCn7EspwqCDXFc1HnL9LnRcEi90MR3yxT fP7g8jvZe1Gw2uPIq1ppinXnKTL5xqJgy3fPUdYOUyw557v2YisKdjHfOrDw 3hTXBGWVjnFFA22Lwd6nv0zxFem38X71aGC0XaIspjXDIzoH2Evco+EQReHf AG4zzHjfZdmQFg3slUq/NRTN0ObmSKv2rWjg0v0yy25qhs7K06MmL6OB/1fK l0VfMwx5E6bZ+4Psd/KFRntSzJBm2jy5eG8MSCn0vym9YoYYupexQygG5CdC ekNazHBSTc9DiBgDeIb1MfGNGa4cusEw4B4DWoKPWjhmyfwUrOeqkmNA/7VT 3TKFOdK4/xd1/WoMmIRQVb1kM0fptrCEe20xYMV6+0qZlDlS+A07jJD9msOj 0wUReua4vvF3aXM+Btyc/2Tpu5mjn2mA/BEqEvhQF6XwxJnjQqq2MfcxEgTV KMeuF5gj+wu6TAYpEkQYTYb215nj2ONMhzdaJIhdSfWt6DXHlsW+eEcbEiRf FnaN+WKOI5Zvhxr9SJAOb2yM/ppj2KZtyuM4EuRMhZrwH7BAA9/qv6RsEuRn HNHdErbALBb6qYkSElw+2a46qG6Bqd6x8LmaBGVDzgrVdhboXLvXKqyZBFVR 1JLx4Rb4pkq8v6CDBLXHawTNciwwhY2mRKmXBI1dhlzCNy2Q7qTrIYd+ErR6 LrNSPLFAa6ZHiytDJOhgKGZ6P2qB0ktrulsjJHjWoEJT+9sCo37QVvmQ/fBL i6//kvZaovUeh0XFjyQY2Dy7aslriRLSJ9I8yePvy0T+E1O2xKPdtgo/yes/ aQ5M7za3RBHhGt1OcvyvP8LGx/zJeIcpYvo1CWbPsw3Xn7XExECdRdMeEvx3 qqMv9Zol9o6r+FC3k2B5zOWZbasl/nPcst9uIMFGPM0jybeWGCj9PlihkgQU fLVNND8skSJBPeXeJRJQvzCqGd9lhTSaycSgsyRgCFi50XTUCssLEwe8wkhw 4ODlyxmnrPB7StXEVScSsLcSLjgaWGEnzLAf1CMBl/23DBkPK7R7fN6kR5oE /LvSk+gTrFBUgE+/jZ0EojdFoycLrfC/uZ2ZhR1yfuq/Dbp/1wo/H87M8/hG zs/f4V7ZL6xQR2+ei787BgiX2J1cv1oh139Z8+KVMaCh9NhSYdMK19Wf9aWd iQHdL66GTIes8QWf8mEppxgwSqXVnha1xuYRFoK0UgxYCN8hPNS0xhA9E+88 cn9g98ZYNs/BGucfxi8az0eDS9iqmGekNaY8enWI1BUNXmwlJ1RyrVF8Nvnc QXK/ENABxw/essbQhSMkHh9yf+A6dWiu0xoZpOii6pWiIYY2g+HxB2t0FYxP 6qKPhsQ7YnsK/lij5oXn264fouCsyeCmD4MNjtNXt5SS+4estYg/eMIGRS09 h8NDo+BC6dGfLAQbTNvsn1hXiYIi1Sdf5y1s0Gh6sU6cJgquzrh96Aq0Qa4X b8L43kRCxTm6waJ0G3Tgnr4zWRAJtyXqXgRct8HYJ9+6g8n9w91hk06NBzbo aeSm9YUzElpi1lrZh2zw3YP2cvlvEfCIs/Tu4k8bZFX6d/RsZQR0PcPqnj22 2GQoFPDOIwKee09fKz1ui9/d7MLEBSKgnzGzMETWFvmr9tiVk+vFu6aT54mG tmiR0JyrXBkOH6yGznJ4kedX5m1Tk+vRl+3I+OVEW5wP2XnLxBUOMzeORbws tsWB6Uterp/CYF6707+s0RbZ52fsGYvCYGne3T3ilS2GPD9ifNw0DDby9trr T9liz4H7olf2kf29XL0Zz7YtXvxD+eoyub5TfzLVXz9sh5YfG8Z5kkKBIWld vf+kHW7n9JmqKYbCAf4rShXadvgz2zqJ6g/ZX71SlY5xskOLi2620TUhwBE0 I2wUbYcT+2xsbpP9Hd/hczz8F+wwMIniY8XREBB+IM6+ddsOs/+cMQsfCgYJ x3fMg0/t8EOY4C7Bc8EguyearvqTHR6Juv73uVowKN86Thm/Yoc+bw8IuG0E gdrprnVTRnusPCinQ9UYBMQ/HotCAvYoO1O7cN87CE4X0c/ugD3e6/PzT+MO AjOVu5+HrexRwf/t4HZjINh8NRupCbbHIyx3ckx4A8Ep7W9/UqY9Gp4xsOfJ DwAP0as9luX2yLhgSJ9MFQB+b9U6xB7Z4/X0u+Opkf4QEvH93u5he0xge5ml +sMPoo5m3RlbsMc4nyZ4bu8H8U8kKuupHdA8YjNNdNAXUtyHS1M5HXCs65l9 orYvZO6NybeVd0BvCTw23O4DufUcWZLGDqhESItXkvGBS2ZPz9D4OGBOLYvS 0zveUPrXkzSe7IBt8YMZsQLecOMqQ2hTiQP+WDvfEn7DC6rVG3wymh2Qg739 6yMOL6ibNXdxfO2A3Tn+vxxLPaE5e8NaZsYBeZok7X2PesIDqWvG9DsOKDHv bfCzxAOejKjrTLI6opiqvszP4x7QEzuL9yUckfrRn/Hw6+7Qx50tn63jiFE/ u9wK+N3hXY+khKuLIwqosyqb3nGDD77vBRRIjri1qCvaKuMGX/aTOJnyHfFW yS7zvseuMHOPk3W61hG9HJ6dLNRzhXmbZ4wPux3xrfxwFueYCyzteFHnTTji DKPNNV8vF1iv2PfPY80RvQltK4l/nWGHbyyGg9YJHdsUktyynCE5siYi45AT Hkn5VMjO7QxUL+NClrmc0NPdf63qvhOkHzMKcBRzwg0NyWoGIyegD+Txeang hHGMMtGl7xwhp3PZXUbLCdcHx358ZHAE5kO9zmUmThjZJNPwgegA+R7F9vSO TnibTuTn5XR7YG3ztY7wdcInTPkCx/vs4DI9wXwy0gnnC/+zdj5oB8cd9hvr pzihuffTZA8HWyi7+1X/fq4TCroYE4Tv2ADv7ntEnitOyD5+3+v2jjVUmadp ZN9yQuUI/omv5tYgVG2N6/eckJgrJTxQbwW1GyLKrl1OOBM+fc5vnxWIG/yT 6+93wgGrkMWGAEtovDYgrfDRCUUezjQVD1mAzNIN8YrvTrjnVlXGMWULaNUI F2FaJuv1oohTstoclAq1BWIonDFWULP8Las5dMyx8U4zOKOWpOLu5UwzUFWe 5zBic0b71DHPHEozeJbTwf7whDO6FSc8v0QyBe3JXBZ+KWfsZK6q3fXXBF5K ux7IIzhjgdZhmd5oEzA4K8O4peuMizorfGPbxjAwSrPX09IZ8fSDH6KpxmAq 8oFq0NUZaZNnq1uYjOF9XC2lSpAzGsZd7/O+YgQ2A/HbN2Od8U7jzTTFk0Yw zmP890CGM053hJ9SSDEEp3DelbgCMlZ8yr+n8TR8611ZnL3ujEdkDcIeTxuA B/vzedM6Z4weNMo25DSAOb/Lsx0PnLGl8TvxsoM++D32mxLqJcfvXQ9PLdeD X8zwJX/IGV8s975fXdCFEDfmTzufnVGjftfJdyq6sNLybcRnnsxnrqq3+6IO RNG1DA2vO2Np/AaLzwIRNm3T3yCVCz7/MH3lP30ixNfZvKphdsGhlr6jkQ3a QEkp1svC4YL9pB6qH+zakGK605Uk7IJmbyc8RDO0gKbqbce8rAu+c+I/IbCl CZnr5Q8s1V3Qq1hJ5GmoJuzTi2jpMnRBk3+FjjO/NCD3CrFRzM4F0+wLPkYF acDBRfa6Ii8XjB3+zuO6og6X1BZu7Q53QevJJ0I58erAVvC4MiDJBQ1YHGy+ 0atD6fe862PZLjh93I1G/4oacCq6XdG47ILngjWaG6XU4EaWbHF9lQvKTBX8 3N2nCic+0xawN7kgH6bOCXmrQrXkx9zUxy7YZuBXtX+vKoik3MlafOWCHG7y VRV1CHXvE9JtR13w+lnujUELBEkhk5SeKRdkivqsmrELoZnElyj52wXtuZ5Y +boCyPWvkkq3XdC4bM9i9nMCPOB6EUmz1xWftzVNWZ0igEpoSWgIiytyO2// V1OlAk+6/QPHeVxRcW1s0pNTBdSPoC9R3BXvXlu6GXBVGXp9Dng2KbniSNkD KOdVBt32KRcOoivSJXe1zNUpwWum+w4ZZq64940BnwAqgZFLhs2ykyvyFp4q Vx1RhKFmWwtHf1f8pN6lyhGmCBY0J8m23xVzt/+2V7Aowpg1xWmZs65o4OLs 392hAHa1gzplF1yxZIux0cVPAT7/q9Ckv0bGT9cifDkVwMU4UjWixhUFZixI L0fkYbpcR2XyviuukNLZfAvkwWv1qIL+M1c85M3loWglDz+J/526P+CK6t7P gI9LHgJKnkjwjLti31LiXbYFOfi9cEE0e84VabntLu19LAdh6C64vuKKCWvM lNMFcrB2QY7PdZcbuh2QP1AcLAcx03Rc/YxuOBz6ZPuwiRxsy306qnDUDSdk p98ayMlBYmYda4WAG1o46/mc4paD3eOJB5lOuaGn9wX3NiY5SBM3ZYpBN3zp FNbbv0sO6JJP0E/ru2Fvz3K/x4YsZL9bozaydkNJ00M/QldlgUng5a6H7m5o eb3w1iwZX4wu/XcixA13i80139+UhcN9ARu58W64/oWjY2iPHBRzqK5uZrrh JYJIhPgBOTgafHDJo9AN9WZUk9p55eDa0+mFt+VuqMQY6RukIAfcLK1zynfd 8JXE9SuKpnJQ6ZU5ffORG/7ZPGPCSD6vwEO7yQMv3FAZ9LLGL8hBzT7x8bhh Ml/sp4+XWuVAzIlybHbSDSsnEaW+ykFD49A70//c8HV6c/4VJnmQpqoa6Nhw w8SJC6EvUB7uW0b1CdG4I8foeemqcHlQuK37PP+gOz4hJT7krZOH9q1jz3Y4 3TH4bE2M5A95AMNfj31E3ZFGvcC5Q0gBnl7vfDgs744dWbofW8n5obl88T5q umNCxclexiYFeKHl0VRj7I5tOcE6NVsKoFcsX8/i4I5Wi+Hx8TqK8Obn3pok H3e0LvNSDytWBGPCeNV8hDtuzofoh80rwnBu/Q3LM+7IwAwFgWpKYPkt6WrX eXdU7RRY0i9Rgo8yZpfFSt3xCgvl0sqqEtin818qqnbHufSlaFNzZZj8sJ63 +547ConpPzNoUQZXsVfZAZ3uKBko1PiKTQW+J1zJGHvtjkojQzfvJqiA92Bg qsYHd3w23Xhs9rsKLPCpJdXPuGNFYwfamhAgOPJQHPsfd9w7XSr5o4MAf17M RKXuuCMU+khFiwFEHmsLW6T3wO8/tfDnFYC/AeeCbI944Hzj5V3MtAhxnfZ+ PXzkcV17j11qCDsHJbwkJT2wXshPri0W4YzHLrdSFQ9krq0+yN+KQNX2zpFG 1wOp7RTVFJYRMuhv2oZYeGD0Jw6XSQlVoHeIthx38cCkgtBzzAGqcP6unikx 0AM9PIIu3K9RBebdHIZNJA9sHY8e7ppThQLzRV2OdA90oe2N4xFUA9bqLq2M fA/skY470+2hBiUb+WrLZR64WbvdcLlSDY4beBIc73ig8rJLbe6UGly/pqD4 ss0Ddz0TXirgVQfeJXpZmR4PZJPZO1Xkog43NSYkywY98LTU3PO06+ogVHhX jP6zB9bZ7Roy+qIOd+aShSJ+emC15sa3SQ4NEFc2PzG55oHdvP/JCtprQFOO ALf+Hk+MyHmYdqhEA2Qm/x67v98TXxMmHC6OakCbdN8RnuOeeNw3d/TCYU1Q Onv1ULaQJ/ZO+hynNNGEx6NB+9dlPHGJS9yrL1sTVEXUGVzVPPHF51L6b881 oTvuMG3/aU9M8OfsltqtBdoD33cr2Hpiecit2tvKWvCK58FOuacnkr3tA8Vw LTAIz9pkDPNEgzcZrwdqteBtr8NadKIn5vkDnd03LTBll/wzleWJ5+22Xr06 og0jfrt/GRZ7orCm6D0mA22wfjz840GlJxKG/9xmTdSGcebqmRONnhic//Hz ELl+OrvFfM3t8MSgNffRU1+14VuL/sTmS/L+/v0aF2Ymgicd5wePEU/cH/Bn vZxAhDnb38Nvv3licdUhq8s+RPCve/pWedETKyQJ3Jv5RPhFcen1zS1PvHOR 6llrOxFCTb1eHKDzwvAb+7h7poiwUqlIlsALvS2bzmzS6UD0OkPnLLcX3jen cEsR04FN3c+PTE964cXji24KhjqQcKWhtUPRC73M/4gwBuoA5eKZZiFtL4w+ fYF1PUsHUtUs7uabkteLBO5fqNYBmgLB2h1HL7yS8znrW5cOnPu+cdPHzwvF bQ3yBz/owD7F1+XDUV6oNmvX1bCoA3lZ165hqhcW0I7oRO/RhYOfg0tq8ryQ M9F8jZtFFwolNQpZrnrhg4t3pStP6AJbCsvFpNtemJAuSr0tpQtX3s/mzLd4 Yd8eDxY+gi5wCj3MtHzqhei3deewti6Uk7LPdr3xQofAv22vDXThRL9jstgn cvyTK6+IJrpwi0sqvmjWC3cHrLKnmOmCSOiemN0rXqifyZgSR8b13e/DAyi9 Uef73Uxp8nzJI7eCx/Z54/vRbqtKcrx7PiR/DXZvVGaI7hjU0gW5dgPven5v 5Kt7KvmI7K8eMnG5s0t740JV42sX8n5VXJacUsEbC329jZ/z6UJn8zO7RT1v 3EP9lePXIV1Qpym0srXyxrNHfBU+7NKFXmtvsx43b/TomVLP/k8HdGqVjCSD vXEsvT2eYVQHXv/bp18a543Dx+522z3WAWPjL9o0md7Y9U49+0yFDgyVN6qH XPJG87b9X86m6YDlagqM3/DGA1QvbP29dGCMaKlErPcmf3/pThK0dcC+REiu 6aE3mnr82U/JpwOfFzalOJ5742nm89od/4jgiv0nM955I0vfdnH8CBGmL5QJ L3/xRmJclLFeHRG8p0P4HRe8kTp4oEHsDBF+ymnyvPzrjRaME9PiFkQIzGTl kKH2QflC8UgHASL8/jTHVnbAB5OMuvZ1rWpDuPijw/ScPvhS/4GB1zNtWEvK YY4Q8cFneROJdrnaQHrntG9Szgff9+lcvWWjDdv80nT6Gj64WbBny4FXG5Ki qajuG/mguEgyc/oPLdjdN0LBY++DpJZOaam7WpDGcXsry9sH4VjTLt8wLaAL jl1fC/fB+a2briinBdlPTy+7JPvgwz/NpCfrmsDEwr34OscH3yxR3f7bqgkX vf78lC/xwUdlgskbkZpw+GH39/KbPnjmsmHPWxlNKN5X9I2x2QcNYvOcc5Y0 4KiTz+foJz5YksPvAnUacK1R+eNUnw9OWpcn/fHSAG4qphHDMR8cObX+qI1H AyotJwcfTPtg0x/PsPKP6iBwu6n/xJIPck2+bOy4qA41W6kvc//5oM1Y9hd2 PXUQM7Tq2dzri5VZwp69lOrQcF24y4PVF/PZb9cM3VcD6eWt9re8vhi9pERn 6K8G97XetClL+OJ7/2+viDxqoFR8/d5NZV9UTSOIDLxXhfafoQ0HdHyRuOmp uZypCqoErTtx5r4ouXeN7RlBFZ7mHrk16+yLHzY4Uk8vIWh/+1FhGuCLV90X FW9UIryQaS/riPFFBbmOrtdWCAbp50uF0nyRQrk65DM9wpsPzkX5F33x4UTx +5dxAKZip/J3rvkiGBEFPn4jwHACda5PrS8e1KYVptclgPXg6LnhVl+UKqmo C7+rAh/5atKw2xd3sXVtnGJVAcfIuDM1b33xlMtal0s8ud6/MExgmfDFWQF1 viMzSuB+jIeU9MMXy1O/XvE/rQTfA5Yj5ld98fO+DHrSfUXw7ewJsdzthzKD m9csuRVh4WBxQBeTH/6O2P+FLUsBgj18fcSO+SE3J/PVkTV5+NOq4lEk6IcB T1NXKt3kIZJ+v8tuGT9EdNUuHpSDv/Zf7QNU/fCxVJlst6ocxN1tth4z8MNf UeKVyo2ysLMrzVzDxg97fjk2MPPJwhlza+N6Dz+M6y9rMi+UAapqEQP2UD98 031LmY1BBjI2tompCX6YPEh1yC/5FNAbDGgsnvNDh+gdWfsNaTh/7QbaFvnh x9/zIxuh0sC8FKbcU+GHLXkf7E1+SUGBhra8ZIMfWhbmuQX5SQFrIdup0nY/ XCL+feT0UxJK5n6K07z0QyPRAf+TfpJwXLlDJOS9H86vPGj+9p8EXM/JFRj/ 6ocW5VU0maESwDvpwkv85Yf5AquiZsvicFNahrNp0w8DC2UvF1KJg8hZmqMc tP54dM6pZp79JNwZHWPJOOSPbAejZZ1OiYGkSO2BZS5/lGT7VrRtLApNcfGM jmL+GL4nv70/VATkBoz2vlTwxxc9HbyfioWhjYeXWkbLH4dwdVr0mRCohK9Q lpn4o1Vie2fPkiA87u3d3uvojznKCZx1JwRBnf3y33Bff0wiTbPP2AlAt5/f ypdIf3RWzzwXVMQPOo8Jv/VS/PGV5Ma+06Mn4BUz80JLrj8GvaHcF3/sBBi6 fZvlvkLmjyK8+ufGB29b7k1l3fLHhs6ffq8beMGcLv3L2j1/pCbMUM7s4oUR W5tPLl3+2H3303l1Kx6wrRMdfd3vj0b3q499aeCGcYqdIfmP/tjE/by1mYkb nE3fvin/7o+MmosZbcFc8K2y/BXjMlmv2vKoJ/Wc4Lke3htNEYBcriwrpikc MKdLfDrFEIDRhnNN+52Pg/8V9seGbAFododfdULzGPz6Nf/gwYkAHFL5slMh dRRC1R63nJAKwPdSj7f1BNhhJT+vMZcQgM9rCbRtvGwQ/d21blM3AOdqHnQO CByBTQXZ2x6W5PnBOi0R0qyQkEVb9dY1ACMfmAdla7EA5ecP15WDAnC7fTFr 1ekwpEreuXIzNgArXYbeXEg+BDQpCcUHMgLwagK1nFrNQTj33rggriAAxSuE Gac+HIB9Qnx5s9cD8KKqFaUl8wHII61mmdYFYE1Nnnj0aWY42P88veNBAKp/ e6IseGE/FHKVpAj1BmCOZGRPcisTHA31T8wfCsCKJ7l06taMcKUbYnc+B+At EdUIXep9wH3kQJTPfAAWtg2/MX5MD+U+U6HD6wHIfM48nTllLwi0twQiVSCu rmpMqJrRwS2mDN8a5kCcXtT+e1mcFsRcbD1ZOAJx59Q1quHDNFDfLOaaJByI pquxp6upqUGahsJxXjYQQ6pPWr6mpIJ71oM2luqB2GLE/meLeg8o1FZYdBkG InVDjt3i4d3w8F+EiZhdIPLreeg6n9wFYKxzusgrEP+Ix+/Za0QJneVHdXeH B+J1+l2RlTEUoLm6oBmQFIhVmZwZE7Y7hF7iE9Wx7EAcl/et0x7aJuiVXFDR uByI/mmlXyhstwivF9wU6qsCcU0nPuDs0gbBGOVk2JsCcXtKMcei+C9h6AKd ZOrjQHyfHh/x+/Q6wXL6o+jiq0B8WhMbPnZgjTAmVydoOxqIH49OU12cWiHY Zyby9UwFIuv54cmKp8uEz59MuCR/B2Jh8PDBovo/BFfxE8dKtwPxh/YPqvWb S4SlJ5vndlMF4XTRUI5J7W/CqR9TdAr0QVjzJm5b7tEiIeJgf1oAcxAazUZq RtT9IrQq36eqYA3Cl9t3G7/+XSCsu5edGTsehKHZR9mmrecJiuczKJn4gtDh xUJ04+sfhNjWkAQN4SB89+sgbarZHKFj0nY7WiIIvw5Zi5YufCf826tJqpcN wpvnfp5VLpoh4KmTf6eUg7Cy3/C/etNpQrI9ayS7ehD+oPznq8k5RXh2lmLF UCcIxYUaZY03vhKo786FpBoGoXZs2W3RqUmC1tjgIjnV8cCnWyD76Qshfdej gEXbIGx97bZ54+lnwkuRyvkTLkH4/38fLewWoEm4n/C/+H8Aq2D7TA== "]]}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 507.46851268325685`}, {0, 0.008904045362308618}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> FormBox["\"Edge Betweenness\"", TraditionalForm], PlotRange -> {{0, 507.46851268325685`}, {0, 0.008904045362308618}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"Broken\"", "\"Maintained\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.7507008695044584`*^9, 3.7507009516020727`*^9}, 3.7507012845437355`*^9, 3.750702019690243*^9}, CellLabel-> "Out[265]=",ExpressionUUID->"a89cc96f-7255-4465-a5e7-553e9a4ab905"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SmoothHistogram", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "All"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.750701044936886*^9, 3.7507011001621966`*^9}, { 3.7507012885609684`*^9, 3.750701295732516*^9}}, CellLabel-> "In[266]:=",ExpressionUUID->"d4abe179-4a85-4132-8b3b-b4520af8c6e9"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxle2c8ln/0vxRRKnuVPbL3uM1z3Pdt3EhRoiJCKpQ9CiV7z9tM2VtaSKQv lUihIURKysjIaiDj5//g/3vyu55cr/M61/uc836/rs91znlwCTm4W5ylpaGh YdxOQ/P/7v/nYv3iY9yWDcWHRT03eTQg5I97/qlvD8FPT/ag9VVNCGHvNb9f +RzelrytV/+lBSGyHu/rHbtAi6E9xTpIB+xFIitt974HrciyzStcACPyx6a/ uPTDM1uXbCVHBHttYRmH9iGo2nOgZoGsByGiAWqLLCNAjPz+2VGRCC1SX44r 4yiIGY/Y/pYgAbOigb/Ppe/AMaLgxyFDhiPqtzPrcsfh+xv+NDUtfcjXYW/4 0zkJzBluBt3HDWCEFDigvjIFtq5dhyyvGYKC8ehywMFZaO72yjSsMwKPIxSe Rss5EDEo0hddoYC99EDueus81EyY3rtoYgIhNbtl+T8uwGXaSNeKalMoV4Rm 3flF4JH4qWPPZwYdtV6H7Hb+At/+r5L8tw7DvHrp8DX+32Dnr6H8KPMIMDd9 vJiv+gfm9sbX/D1vDgTdPRstpn9h43moBQfJAqxbMfGr4zKsBiRfPS1+FELI Pvy0gStwZUBPWIjtGOS3l9UIp64CYYfD8wZGS+gwHtIlVfyDphF/1jO7jsNk 194ex5Y1WFt1ve7DYQUM5kS78P51iJo7GmYkbQ0Kvb5zxT83wOXmtygl0xNQ XtX73ygtDbKvMp2PCTgJ2hd/7vROpMFvu0JsSu6egtdyDEe2825Dk9ew9OWX DdjPC2WllWzDW7EGO6j6p2H+ntaIiCItrgaplPAV2UG4t6VE7WNapA5s2zsb aQ/squ4eZKPtmHj09CQb6QyU/4lu6H2/HU+WsQko0zsAoaGQ5qzdDmRQb5y/ 8sYBXl9+bPR7agcqz1xkP1DoCDZafckRfnR4hD/jrmGgE8yvzQ1w0NJj8aio ubzNWQh5wihUmkCPu1JNh3foOwN7iMgFNZ6daJZWGb+qeg6K9XTuvSjeicv3 xoeI8ueBsN1q5bgCA7rEvAhhVrwAHc899CaaGDD3Ta1thpYL2ETGxvgbMuLl jMc+Ow+7woxh8dud7xnR8sXyxwxXNwhifMKTdXoXXssMKPFPuQjMr/rPSEzt wpIP2d8/tVyC/PiFigbf3bgJg7ErK+6gYrZ70WgbEz5tY1YMueUBz/eJaX6M Z0LP38R1Fn1PsH6rG3qBew9Otx4V6Jr3hMlU686Voj0YArWVHQVeEHTMizVW fi/KGnlvO2DtDUyc8Sd5m/ai8pNB9q9sPpDfX1JYabAP3RRv8Cp88AGF7P+m NN/twzKPit+Cub7gcNste0yOGU8Y+8u8Ou8HUomXm2/7MOOK+d/P+lr+8OtS 5FffRmbsl7v0uIwtAB4fTqPTpWFBaXH2FfrFAIhUyJekN2DB9qcxpMt9l8GM 5fah7jgWrCgXbmRrvQLci488M96yYMR7xpGpe4Ew8u5F+mkuVmysIKayVgRB 5YP3j8RtWZEjOHbtZmkweFFHhn8WsuLhgzTBhZVXQdt3dtvDSVYMslDJl6m7 BjuOr4pdk2PDqU/21w46hsBrtZ3Ghj5sOEPPsck0FwIZXOyX9jWy4Q4OtDS7 eh1OLwum9m+yoUM6d8IicyhIfJStz9NnR1ZPXUWaslCYf6Q5eC6OHc89WdYP xjBozDHckH/Ljjur/Unuw2EQGnhMeJmTA19w8DEPBYeDqc0ZgxYbDjRx7F59 LhQB7DqXXKILOdDTzqJO4WUEfOYLTDwyyYF/njWbCflEQulG1H1uOU58jguy 2cJR4PGF2jfizYmv+n03c3qjgNBSsFr+iBOb69+ISsVGA21BDb/nJif20vZ+ AlIMdF5vImrocyFb5WT4l80YoDp0OG+L48J9tJEzO1tiwYb0IfblGy5c12U8 8DAsDsRFR2tSOLlxhkxzZMo4Hn7umHt3woYbGU7f/HWTIwEaxv79ESrkRt+u 4wVd3xIg5AXD/qkJbgxXqmP3qUsEozIOuC/Lg+7VRxXiYpOANVrY8Yo3D4oe i12NUEyGwfPyUcRHPOjG1w7+eclQTNGu2rXJg4Xu1rQc+1LATYrS847Mi9kP LM+dDEkBtd3Hl3JieZF0aScfcSkFNqYduBzf8GJTaM6JF+dSoeO1u5Y05358 zPHn48hwKiTfDrJbOrUfpU7UjcRapsHJxJiwpoL9mB5koNrcnQbC7hllYRP7 UeKXvIgHhQozh4temcgewJtawZdvtFGhVuHuHJv3AbSVOxarRkqHqyzNbJ8a DuCbzQdShKfpYLD4Ur144wCmvjl9P4OYAczv+065kflwvevnP8PnGTDw4Ns1 lVg+PPGI66yeYSYUUueL1nr4cLOQo8f/VSa4+K63P+fgRwUqJe/LkSxQOb5r Jv4UPy707Ghx68+CNTUuZssCfrTFsAJWu2x4ziWqwjfBj3dSOLSeT2RD/LKC 9ZiMAOadD2Ty8cwB6486Qbe9BJCL6ZIA+1oOCDYa5/s2CKB82ynGjKgbMJlj 9VxnQwBlhI/NTrHlwoCO0i9aYUFkVRa7ur0gF3RrCPQTZEHceFJB80buJhTy A/erc4K4dtLIDJtvAn2SvtSdWEHMVSrqJ5neApdNE+2024J4VSug7OXQLXjj bmHm/0YQU3zunW1xzQOVEWv7U0uCmPSo+CTnWh5kHbHzAk4hjD2k98jGIB/W Ws6Gi2gIYenLy/mvEvPBQdEtY6eNEMq4eoaa9efDiwKv8umrQvh3UbNvSKAA pFgvN/YUCGHYv8yZC+cLIDH02usHz4WQkVlw8efdAvi1GPE5c0II4zODFuxX CsDaMX4+cJcwXvnb8KFOrxAev0+ltZcVxj79UrdvMYUgSM5mJx8Rxgf95he+ vC2E8No8cQlvYXSZTXDO4ymCKdFSAlOGMP69H/eD+0wRmKVXG883CKNrS4ST XnkR3Kd7YNM7JIyjWlc09s4VAaffo0sNG1v+2qXHPqrFEDT+X0iukAg+efaF 4BJYDCPHX6SGkEVQKdBr7ltLMZDbXxc7nRPBmkwO/n66EihXf19vFCuCFe4O NBrGJbC3/GOHzG0RrI4Ue7+RUAJe3CODzG9E8FuFSz/f2xLoix6f+bUoglle yZZxbKWguTKzMcAhios7HPK1LUsh/8ISczNBFLmGVLkPZpTCjsEV4YJTW/5z zHLYVwrnjWlUI66KYpTVS+dgjjJ43UhveKFAFH/KKZ3uPVoGStJ7Thx6Loqa u3Q6NVPKIOMGm6vihCjmKgtfLe0qg9XdvMEcu8Sw3jTs4h7GcjgdJJi0IiOG R1tj75wllcPTGfGC4cNiGKtBH1oSVA4StrIPWr3EkKn1iumz2nKI71JuK0kX Q7MTikV10+Uwr6PZH9MghsTbmsbeQhVwrAZ/XBwSw7Fb5wlLlhXQyG/4z3xD DHvOa+fIxFQAf9KhPWpC4riXpaOXs6kCQjePCvCSxbFn9np0xXQFjLufVNxw FsdKGkbqJ95KMB2xJ43GiOO/hQHOcqNKuHvknOWLanFUCZzx3uFbCeytF89V 9ogjDcehY1N5lRCg6HM5cVEc254nVli8rITPBVfivDgOosmM2l21hUogsl6/ eZxwEGt9zLclc1VBaWjUHc1TB5HUNFdvrV0Fu5YSWvmvHsQeGbCKtasCD0fq e9qCg/h8wrFe4HoV9L7PGRt/tmXPJJSzFVQBgVzwt3P8IOaqHD9x5r8qyK0t Y7zDKIEvLf0O7fhUBTRiNfvTZCTQJc7RaflPFTin18r6H5ZA2pOvP2owV0Mn XROc8pJAZ95lg7aD1SDn12oO6RK4rWVncaZONaSOtzuKNEigvzYXpca8GpaP d/vuHJJAhXndOXqnarBp742aXpfAh8U+9/J8qqFFfSi7R1ASt+ea7PEPqwbR 8q9VD0iSGHMo7VtccjXEck82ZzpL4v2A3oDhG9XwM/pnT2CMJPoTq31dS6rB YuXXV7tqSfwmTDehersa6i/8WyL1SOIrX1ldnQfVcGBwG73EoiQeTHl1JPRh NYQYM3AzcUghh8Uda/rGavjeuFdqXl0K9whdX+rcso2kObR7T0ohJchM+N2j aqi5sd+sIVgKM8V/GfFv4VmZhO1z86Xw2UFn2fv3q8EvSMIr5JkUHh788Ce5 uhoGZ+TCncalUNe8XuZJcTXo2qpmGDFKY/ulvDqdrfqLu7TKZWSksZaNuY9t ix+DLrGR+bA0tn3aJ6+/xd+txuj1L09p/Lpw93Hflj5v+A9/HqBKI1+AV2/X ln5qSZbzjx9Ko4V+uIjC0WrI2TxFWzAojaMhM9XbsRo23B3YI9alUXEqqd1M uhocRs6LXxCUwYAYvgPcHNXQccSdcIgkg7S5nwud16tAptXXWNFZBtmzXAv0 vldBsmKQDUeMDKKCYfndl1XwqyD00kqVDIYa2Sc33a6Ck6wxIcPdMvjpY2CA S3IVPAlNSm1dkMH5zqinbZ5VILyUXlzCLouBXf3MfeZVEOmYWx+jLounThwi FStUwcz7wo6LJ2VRcdzVR2NvFRwhVwyaB8uiXvzJP7emKqG29s6Mar4sdmj3 Hv7cVgncYvUbPM+28B07NbblV0JQ+mPmjTFZFJk/n8VyuRJG6Z4JjzLIocdz 72s85pVg4PdS5YW0HG5kOh4UkaiEyvEeg0ozOUx//3mWsFEBe636rBM95fDZ Spb52fcV4NP+ycWLKofnZWd+3i+rgAH1b0HHH8ohNdk1SCawArTLfyRqDsqh 8Hv39k+HKiCfez6ff10OpY3z7nYLVAB9zJ/7tILyOP/DS2LPQjm4rKw9HyfK Y2zQI+mi1nLovrC9v/OsPC5e4m25kVIOSoOMP2qi5TEkIXt+25lyyDJm/pda JY+yO/k6R+TLYa2Rc49/tzyy7flrRdoo29rX+AROLcjjmr1PvsrrMhjtSskS 2KWALcKeBf9llwEHfXpByn4FNJP4bTrnXAaGulmV22UV8LzEx4hu5TK47Hfj ga+uAk6u+h44T1MGVTW3Hk8cVkBfGbtXL16XwvB4QduJMwrYxCel8jurFJgF SrpfeSngpy/ET+tOpUC0Ku/XCVdAo5UeyWmFUvBJqhq5k66AM2ql9u1rJVDa XvNDqEwBj7mIL+V2lMDHzXuLaQ1b8fpOmPtSS2A3oe4fXacChsd8dzhpXwI6 Hg07AoYUkM7vzCdLmRJwL2/aMzWjgNmi01Key8VQOPKE02ZDAQ+LJkfXPS+G Xu6nAt37FLEopXdFOqUY6M3bJFBIEXdkmpgM2xYDIaZD8b6SIp5voOx7J1UM rq2vNEXJihhx9+4N1uUiuLnSTcqwVMTGnA87y9qKoEfxnSnDOUUs5AmVykwr gm0uHyyvBCiiIz9L1tRW/1UpHDg9E6OI05Nl+eUKReA8OHTu9A1FLLvWbT2w WQhZrF883lQr4pOrte9Cegqh03j0MvHJVn0McR/K8gphPXQstLZHEcV9D08f 9SgE+abJOPGvinhII2o5dms+OLM0Tc1aVMQ3X/XTLdgKIU167uauHUo4Zkdg ujtWAG2Oi6VBHEr4JrXnRHlDASzf+H3np7gSflCJlcb4rfmkd7nBnqCEP8mn vwTaF4AN01rrO4oStq3ohdmpbs0r5M1O8ikldNTp7f25qwBag2h7692UcLJI VE/2az4s1dINS1xVwsWnOd/5GvJBbJZhPCdJCQ8+XYt9lpQPVmJMc0wFSiiv 4zAseD4fYm33LV+9r4QGhJ1z6nr58DidddvCMyXk8ncz3bU/H352cexy/KCE VXWJfsrTeSBIz8P2YVwJDfd0LHQX5MFR3QMHDJeVMLVY7sfkiTyI8BMQe8So jKkk+YJQtjx4WCMsJ71fGV/9+9aW230LfoyLqd+UUd7ab1UvqsfdggMCkrhP VxmvtirzWFBugZmVDOX6YWVsd8pvnGa4BSFJ8hZL9so4HHD3AW3nTbjfrnTq rJcyqvCvD1Ljb8L3TVWn/jBl5CkpuZp35CZwETQuUtKVsV8w/5wA502geGj7 NZUqo/fD8Wssw7kQWA7XZBuU0UX2YapHSS7cHiFG571URu0bHTwE91wY4TZI YRnairfYIeiomQus5pScsBllNKyq3jtDnwvkGNOi3+vKOOSS/ul17w3waz1c fW6fCsIHVd7NohtQsWJR91FQBZnzji0G+tyAIcXjT0yUVFD9tpu8tsEN2ONy or2ZpIIizOeRwHMDoNDmjbylCl7M9dY5P5sDXoN2HwucVdB+cHLm2dMcKGZ1 HGULUEGGTZMOYnYO9Bk7T0fEqOByzqltnzxygCHswq+/OSr46o9aaSQlB7Sa 3NYvVKvgAO/UU02RHLi45E7/qVkFJQw9f0yvZ0OetPc+sx4VDN2/+jblYza8 dfTjbhlRwfZPnunC9dmwPfeykNKiCvYZWopS07JBrTdIqni7KsaHrZp88syG 80whypwcqhgw9LFp/kg25JDDtKPFVTFw6t2udoVseB0Uqb+qror/fXV9fIwl GzZrY8zcKKqYcovBIGkxCxRn460+n1TFZiMudrfeLHAUS7Y/4qaKvVoKSSP1 WZBum3bhabAqfqc/KDSanQUd6RleKkmq+Mt6l6ZzcBasdmUHluarosxjZkuH M1kgQ38znPu+Ksrv9Vh/pZ8Fp3XzE2KfqeLe+3zvs6SyIMWvKGOtVxVvR/om PdmXBc9qSvMujauiy+M2RuXfmfB7vKJ85K8qatc1a80MZsJBgdv3LBjVkE3m if5ISyactLrb+JxXDRsXGbzpyjIhPunBMzUZNSwo79axSMiEJ+31r8t11JDu K/fRZu9MmN989IH3sBo2k5IydE5mgjCh+XO8vRpaUjjFOzETLD1aJjY81dCY YmB78mAmRJU/m/cIU8MT5Y8GxvZkwqORFyujVDU8tVvxstOvDJjm7qS1LFXD XfHxzt2DGcBv3rW7/eHW8zuyWQ+0ZsCRmDfsGi/VMPnWXS2DsgwIbX3PVzWo hh3zsnP6CRlQu9InzjejhqI77sWxe2fAhOKgfNK6Gsa2qj6rss4AHpdhwrZ9 6njC6l8unW4GmBSO6HkLqqO/vrb/AZEMCB78ZjymqI6LffUM0zsz4C7rxFEr kjoen6JzcJtJh1HjKZuXx9QxfHvnzxtv0oE9bPaslrM6ZjQV+vnWbu23TfOX bvur4+vHy3y/M9Ph8tKSv0CMOhqlZDlzBaZDlfTfkJQcdfxdzK/w0TYdhh1X Y7ZXq+PZRZUGdUyHfbnrqb7N6ojThTkKwumg10uTO9GtjkUkhbet29PBm2lH yYkRdSTbnXrw4zsVSsg7a14tbOVT+f67dGv//hi066HOdgKOpshULpdQYXfd npY77ARsenJJ53MEFXRmmV8KiRPQm/rK3+osFdzF2N+lqRNwXlox0IlMhQJb riE6CgG5Tu9/SidChffpvN/9TxLQ57Q8v/Y2KtB1883+cCVgc+eDeoYvaaBO L/TnVDABf2SO0198nAauuqKbXYkEjD2m9MklOw1u+h1kwHwCujgNlezwS4Oe GimW+/cI+LdIrlnbIg22Tcjyij4jYBvrdUEOuTRQFlAUyegl4Pqcg1kKYxqc tVKRYRgn4HSCXXLt91TITFJXvfKXgHvFDviG/pcKL9s1dWcYNPBq8IeujexU +LepY3iaVwP1RTqrZH1SQZ6gd+SNtAYmTKbaspmlwhkP8gmijgYqBrq61R5M hbRyQ4daMw3seu+WzbEtFdpGjF3F7TWQSm4a1BpMgb/cZj5ZnhoYP1NhLfMg BSTNzYN3hWmgo/kHl5m4FDgVcywyiKqBvcNq6dedUiCh1SrpZ4kGcm0oRSxo p0Drysks+4caKJJQtJfIkQJLiqcL3nVo4CfdEYnLs8kg5nKmkjyogWqVL6Zz 25LBqtDpQf20Bt5LeBb/4GYyxAyeeyyxroEBw59PPfNNhiZW17acvZp4X+B1 y7tDyTBrfKmbSVATbyTSECbFkkEgzLP/qqImbvTl57GvJcHRJp+ReaImHn4i aXKtOgkilvx/OBzTxG+uD9v4bJPgoXTgYu9ZTRxyJfuu70mCH45X/xn4a2JD IKFL+r9E2J97fcejaE2kUlko9R6JcKg3fI90jia+HZI8VymcCNeYojlvVmni LvfcIo4PCXCPHCewr1kTDYeNvemiE+BbUKLE9W5NzFvZAVFaCcBVl6K49EUT RZJ6T5fPxQNllqp5dkETQ49f4vArjodAsSxSP60WJl94Gbd+Ih5u294wpbBr YYfR59cmzPHwJf2WZZOYFro7JLZebI8Dlu6C07LqWjg7WivjcS0OSPQl5/KM tHCn15kyO0Ic+OqWe7Cc1ELhEzo3jRZjocKv6nKYqxb+57qfon47FoZqakJ/ B2nh7+/376lfiIU9E/fiziVq4ahxRKmleCyAQB31Y54WPiPPPc79HgOeVg03 Te5p4Tt5p0PcxTFQlNRU2vxUC1X5ej3eO8XAh/Ynd+R7tfDnc62NAfEY2Enz tKFgbKueQdto5alo0CK0tbL91UJRlpJTszXRcNGjozOCQRu19sgFMftGQ175 q/d/ebRR12y5qFQ7Gt6OdH+6IK2NBBEdvUd00bCd593YkLY2CidM+5i/iQJV 8w8/D5lpo+ykIUtAbhScixn4+5+dNq46ON9WcomC7NYhGiVPbYwxjf2QoBEF r1Y+MxaHauOR8xEfU3ZFwabiKCsnVRtFzRhsycORoOgytj+6RBvrWm5mV9+L BMfCSdHVem10OBPo8zYqEtIHp2XdOrTxMuPf4Ed2kdDOOqf2+aM2WgSzL7ho RMKK8SIcmdbGqCnJB9PskSAd9tvo6Zo2tt7KPqq3GAG2TcvmKnt1UNI5b7fn 2whIWfp3slRABzloFJ5cux8Bz6Q3HbkVdbCG/8dfz/QI+O1IezGWqIND55nn TK5EwMFcOr+1ozoospkXxnImAk70Mly7dFYHzw4+fP6cEgFxTEzRI346+Pn+ 5A9XlQhoJu9LsYjWQbbcVycYhCJgLog153m2DlLGWqNy90WAUB1HkVqVDqon PSyVookAy1nu6vLHOvhbyZ5auxgOUWIH6ni7dXB9W9BHrYlweGQr8CT+iw4O /BaobB0Oh+l04faNeR20U6AZN+gLB75usTcetLr4pbCJ+/WbcDhML/lxlE0X xcUlrph3hcN1XZnRY2K66Ea+9bPvVTg88JOffqGmi8q7yTttXofDRI3SL4KR LkocPU470h0OPBOq65UndLFPsJvF/n04mAho0PO56uLJE9+mP34Mh2Ar7X1J QboYEv/t2NHRcLiTBNzbEnXxe1etZdtMOHxtJwp55+li6c/lVNmVcGCjMZAa u6uLU3X9djE7I0CfQFG2eqqLu8PVnnzgioDLHqbaL9/rYsLu2dP7pCKgqvyw vtaYLqra/y1Q0o2A4RELs9t/dHHiQUmG1rEI2Mdz3EqAAfCOTOc/MbcI0DM/ YZ/CA/ji2BjMRkSAd4zNhe3SgIoN5tfjCyKgpNXOy1cbUNnKPXHjSQT0rzgE ThwCXC3uGdtqUMCo5Bx+wg5Q8kvYH9yMAB2XCwmvPABJYR/X6YUjwb3QLUMn FJD/9tGMWINIKBh0z7uTBnj6lcuhp26R8J7Vu1yoBDDoVhBnGTUS6Ez87qXV AwqlG2UoPokE9bDLjXQdgN4smiInf0TChaagZ/4fAfe/bWzj5oyCG0vXXv+Y AtTOTiScJUdBj3TYh1NrgGymGj/UfKKARok0N06PeCTZYzm8JAp4u58v5e1D /Kmco2kwEAVKLgbL1tyIu32sCZ5M0WBK37HGIoT474iY/JpeNDgVUra9kkT0 Y9tgGQ6Ihqu6r+jClRDX9sap0t2LhoxB0106WohvJ9nueW19L+76de/9Q0K8 u2mTyCkWA52sR9jumCI2pmgQx+xjYLTmLdd5S0RK42Xr9zdjYM346AGh04gl XctcH4ZigH2iV3DQGdF2ciDsM28syIUdF0tzR2zL7LP5djIWDAQGJE0DEIPO 1An334gF+6YTcnTXEb+PtHHcHo6FAKshpScxiES+SIK1YBykLtmo+6ciDlTY mL9yjIPqpM9aCjcQm3e7zyyXxcFzaXv8UYQY2pVm+34mDj63fyUXViPOkLht TZXi4Y+jI+VUHaLkjZhrlgHxwEwzdoj9CaLQg6WA0SfxIJHrbNH1AvGdYnD8 N7oEIBImj0f2IGoWPeIwPpQANr0XTsEAov2fMf2d6Qng4zFttzyCuBCbL840 nACJTBed7v1A5P76OJcilgil5T/Puywi0gYrud69mAgtZI+LIv8QLf3F1RTr E2FgZMHz03Y9jOPZF/l4IxEWg7z90pn0MKFrvpNomAS7eH5fMePQw7eJD+xq k5JAtM7v2k5+PTyzlJSwbSAJdM2Xw1rE9bDk7EvDPczJcHz2cvRleT38+1+/ xx/lZPCI+RevRNDDl9GF8vVWyRAtFpwyjXp4z6ZPXD8wGQpbN9KLKXpYnZBu lXMrGRptQ3JsLfTwjiXrwO3WZOhd2ZbHeUoPNVUbnvp/T4aZ9LCiHkc9JJdL E+bpU4Beia482k0PBTIOn9knmQKC3ZHVer56eLHwsGeXcQoQXBjurQbrIfPV mjJhtxSwoI+texCph0JHrCx2JqSAS+HuRrckPTxpdK/H+3YKhOsmPBHL0sOG c7XJ9l0pkDu499nnfD2kRG7wvphJgXq/5PbMCj18kT2x6+buVOhmZX195L4e dmlTOT5LpsJkTdobxiY9/OFNtzvUMBVoTTg+PH2mh4NVogPXnVKBdyLjY+Br PQye7ozuC0kFlTDuzyof9PCJ0lPK5dxUMBXIGZ0d1kPTbS0ujg9Twblp/0Tp uB6ublrZJ75NhatWN6ft5rb07xxrW5pKhawl/nnuZT2MHXCzS9ieBveT8n+9 pSEiW/zF/Zb706BTWngllpG41e9q2PWV0uB7e9E6iZWIb64vp1kZpcGaoxjt Oi8RndVfsETZpgEnTRl9vQgRdx36pt7tmQZyuRK73WWI+CdqffRgRBoYESr3 SagS8deiqGhSZhrY90qzf9Uh4tlVTeJmeRpc8bjNnWNAxB1Zh5u8H6UBlUme 7+hhIsKbaf3JjjSoLr8rxGRNxD1dRu+s+9PgBVlJvM1+K/+MV1zr9zT4PPJA 6uoFInKIWg/wL6TBcpCqvLoXER8cbLW5uJYGzDwPleevEPHVS5XVCnoqSNUR CBVhRAzia3vzdh8ViOaN2g7xRKycaoNRLirYzGrp7U8nYgib2/gAPxX8Ypr1 e28SkTHLsviBKBUSxcA4oZSINAsr2R6SVChvbTEzuENE+Vhayb2yVGixJR7d fEjEfwpxv2LlqTC48syqoWVLn1PGX8cUqLCYrm/j+ZKIO9UKOPgVqcCk1G4v 9Y6IAiFpK0pbfvFuo7PfBomYolamJipHBV2Xzgu537byq1U/XJCigjW96SXL GSJSf7uW3xCngkdhl9fe30TsS9PzFRaiQqzuYf/2dSIWXMnpjOSlQuHgm8AQ ehIyTdtRX7JS4bGfRYjGPhJyvaWsTzNSoZe1N3yRi4SuxvsvzW2mwc8ay5gq QRLGWL+M//ArDRhM+hOcJEl4gxivlT+ZBoIT1ql8SiRU/EyYPDKUBpphgxl9 miT0/sBGnH6dBhYCNjeSSCTMbW+geDangVvTcJ6RKQm3n+KvGatOg3Aru+Jt liQc95S/ZHIjDW4tjZQ32pLw1vpoc0l0GtQnOdz2diah1fnOHcs+afBG+vs9 GXcScholf9K3T4Op9rP1Y/4kHFQ9vy/NOA1onSYab4WQ8FelR8Y35TQ4QHPh P6sYElq83pmldSANVHKnnjGnknAXC7tz3tb7bkZw63iZQ0JKvV4Q29Z5cO6d fR1aRMLCP6pXc3tSIcTD/a1WNQk1NxpUoTYVcpgWPvyqJSFDVn8yTVYq3C/3 GrzdTMLfKet5Y1dS4TX512fnFySs7GekLtmkwvcR328CPSSMJdk+ltdNhY2g vxMD/STcKz4WnsefCpw8l2dSRkh4OFTYx2gjBRTqVueNf2zpty4nqTCcAkbm Qb+3L5IwIqjlhE1TCjjMrq88XiWhwQWZN++yUiAo5tqG73YynkhzvZDtmwJU sW3b5ZnIqJ8nwFZvngI1raE7J9nJmDOX81JONgVe2O5gKuAjo/T8dDojQwqM rEQwnxQn41TxTJzpaDIsp+/kYJMno1zD7tPrTcnAqhTD81p9C1/ufk84PRmk unfxRyAZE5K7/j29mAxkl3hhXQoZbcz/2/5dPxlO0+89+Nd8y66a/xPHlwx+ hUnSd0+S8RyLP13ojyRI1mVRuOBIRsZ//cWsmUlQPpiqIuxGxnB+vv19pCR4 6seuMeRDxuNNqdUDc4kwyJqhQw0mI0vg9STxG4nwq4aLeCiSjL5Z+3680k8E JpNsA/okMhLmNTt75xJAfILX5L/MLfzIjMyh7ATAsNzDAflkfNsmsYDEBLAW 4D+mWEHGm+8tB5um4sGrKc966h4Zl85cVetIjYdYKyHbokYyqiip7/fRjIfi pcIzNs/IWKDw59vLr3HwOEnUmeM1GdUI/+J6o+OgT7rUpbuXjB1fOUTy5ONg vv2ge9TwVryB+ESVvlhgcKrwxnEymrCpRuUFxYIwjXTAyk8ytuuXZU4Jx4Jm bnXQ/b9bfG6k8Qq+jIFjBLnrrjT62HFTWcPYPQbceu9EiDLqY63M4A8vjhiI 9FCMHWbRx0KLgp9FTdFwi+lBYgavPrbUqPaOn4mGhnKVtMMi+vhV8L95MkM0 vCPXZzLI6OOBcbmIFzVRMDWintuqoo/XjxsGellGwY7gR/lXdPQxL2b2ivVa JBzg0SpRNtBHYz7O7qCiSFCre1wxY6aPf9VSaiaMI8HMXLemxEofoxNP7S/Y 2kfOz/53/7S9Poa0GQzczYmAkBi9h1wX9DGY1HiRnxQBOWLPmt546uPMmziJ helwqG0lt8Rc2eIjOMejkB4Or21fPCeG6WOTZyDXqG44jK8YvvwXp4+bLgZN e36EwUb6y65aqj4OH2JzepQWBtxKJu8u3tRHu8x01WndMFDoft0nXqqPz4Vf cFdMhYKxi9nQlxp9zP5MebycEQpO9G++ZD3UR37hH9QvpFAIKjT/bt6ijzp3 OD87LFyHDN33k7te6mPjxYicqLzrUDN4bPbZW33cPf2KamF2HTr8+haCBvVR pprdvmM9BEZYrf+oftNHa/tB69nbIbBa83H157Q+MtPdKWk7HQKsJqc2y37p oxXzHoIlcwjITHzafmZdH4U8HXMg4hoYhJ1m4KU3QMrMxrD59FU4LTDC9H6v AZa39PyYsLgKAU1nWOK5DLCTs4GR4XEwJFt949AXNMA6yQiJBvFgqFxy4t2Q MMA8obG366lB8DRpnP+hogH+J3xW5TNNEHySPi/ioWmAd9n9RE57BMKv9h8H JUkGWHTXjyf06xXY6+QqM2pigGsBrRpmx66ABM2swo1jBphp3GzxouMyYO4l 1WO2BvjRaO7LrO5lOEmY19jjbIB//jIxddQHgFevp+6LS1v1nt/zwEohAOI9 lojX/A3wrQvBKa/KH4qZfA0JIQa41KXkVCDhD0/K/5gsRBugQwf9HbsyPxgg BxypTDHAuZqDq0MH/WB+ZOWYY44BjhE86rkqfWFXcOCJA0UGyH+Ll5VdzheE edZtP1QZIP3MvdW3D3xAu+6qQ2KtAebSrvFbaPnAMXOac4bNBsjycGie+twb Ls1uHZ8XBlh4W6os57A3RMZs93jUbYDx0bHg+MkL8sUifLz6DXD/AdmQny5e 0NhKf1l6xAC3O6WtaP3zhHe20cHfJw2wlp7EYJLgCTMrjKE3FwzQU8erj1fI E3ZkxEUeXzXAL4yVtpX1HsCvtCdu33ZDHC07fX75kAeodScmdew2xG6/NfGd 3e5wxIWZep3dECeuT+dRt7vDefrULE0+Qwwqt+5I174EoYVsN5fEDPF2949B +ssXIVc3vaBazhC/888+/dbgBrWDnKVn1Q3RU4xLQGLNFbr9sir50RBZ++TI PURXGGflvdNvtIWfLoPeeBeguXPjQbK5IY6LyAwqDl4AbhO+BspJQ1wfYssZ lboAShO3HtM6GuLT/O62kavnwTRMsLXJ1RC1KdrO4n3nwEmgsM3HxxAVCH+N biucg6tNIp2ywYaYcC6Z1j3RGTKsSrrHIwxR9mvzvNPcWbi7JP4+L9EQ75kE aUcfPQsdSeX91pmGSFEW/fS20QlGpaU+seQbok6td7qmmBOstleNdJYb4qxM wmZjqiOwO8mOhd0zRP6c6XCT7Y4gR3Pnh3ajIUbpHDr73c8BDHIVfv5+aogc EukPg2fPgD3h/mLNK0PcwGLXfefOQECv8t9zvYZ46LiUaco3e0j1qPsnOGyI TG3uNP8c7KGSSZ1mcMwQd3sqHIjutIPn5Q070n4aYs+/5rr23tPwiazJaPrX EPlac2yKvtvCn5GmPXQ0Rnhmrs+ZcdUGmIN1WJ8wGGELtf/XBLsNSPD8x+nP YoQGhsW/ZFRPAbEO9yvwGmF0h7TYi5Mn4aT5U4EfwkZorx3CUxBxAnxmSaKF 0kboUtBztaLOGuJj2iROqRih4tSP2LYpKygVM5Rl1zHCx6JC3X9EreBJa4di l74RfljxSuV3Og4DtsZqkWZGuJ2ft1Wy3BIWV15pgpURHuDaL0W3cAx2ZRyC ZTsjNJs0j7qpewxElXpI984b4Rjd5Wtfko+CdvcRIxdPIxwOkax4OGEBx13e mYpcMcI2894EVpIFXKI/Zv4pdItvdm31p0JziC78YJkeZ4QLtxqDaXeaQ6Gu 1UkzqhHep7j7eLgfgcbBgdM7bxpheXwenXjDYej1O+nYUmKEv//oEW5nm8EM 66dzl2uMUHrIx/1w2CGgv2PrpvTQCLUhuWzMxxT4Tb54TP9nhPz09PNGl0yA MGHvW9xhhLxjTzws3I3hSNjoZdu3W3yuObgP+VPARcDpKuegEf6MjjnWHGUE 4U1joT2jRig6N3D37S1DyLU6FxU9bYQRwzuIi48NoH5pMk7vlxHmpjT+Xf6q D91JLsmra0aY+N59+b89+jApPUN9QEfBfhquUiEkA03HxWy3vRQ8FVFfuBxA Al6nuZtiXBSUeTDaK9BABCUaz8LPAhRMHuF281rXA9PcxdJMCQo2da1+f2Wk B84En6ojihR0wAt7GHIQrvb+vsOoScFzX1aY6UcBsjz8a58SKZiV/qhY6YYu 3GVaaQg0oaBu0Neow3Y60Fl+pVnlGAW/HxqR4ZLThlHyWuuszVZ9FzO6yDu1 YG0k+EXpWQrm8Q17Uqc0gDN4s9PuEgWvLLT8ftpPADme6z3c/hQMO3ppX2K3 OhjV0fa+vUZBUameY7XdamBvHj4QG01BldYB/N2vCldm6YZJKRRMMY0hsEyp QGpM1Ne1bApqXaYmvdyhAtVijON1hRT0r3wSP3JQGZ63xk5dqqKgze3xizxH leCzLdPcwVoKmr9sdiVEKsLySsLSyGMKnibKNdO2KgBzxr7l7DYKpid65Ohu VwAppZQ1i+4t/qp515yz5YDYzbqNqZ+CkgYaI+aasmDjQqVr+7IVv7x09u2k NPjQc+66OknB8LXho4HFUpBYmLlXfYGCNDe/9X13k4RSXR62+ZUt/U7pWpbp SUDLYA5XBa0xbk1/L22FD8Kg34EDDruNUWZF9VDJXnFYZL0luJ/dGCWOHOHk oxcDpjsCYr0HjLFoMPuKM4MoiJoUSCaIGeOI8u1ZUQ4R0J0QljOQM8bJ+6dp NqSF4XhYsdKmmjGmhRyyyzYVAg8BcfUGMMbisF9v8v0EIbapTMvTyBj7iVed Q44KQKGVJEqZG2Mkq+mC8Ss+eLxUSf52Ygtfe5ey7dgB6E2SoeQ6GOP//92g aaFEcnPS43/t/wHjkPF8 "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxl22c81X/cx3EJZf4TQqnsXfZ2fD/23nuf4zjDOo6REmWWSDYpqyFJlIzS EiVRKilaaFDKSDbN69uN6851dafH73E653fOr5f373lukAiKdKGwsrCwqK1n Yfn39//7Y6ZzdXT/afThy4M3L+WSUPLytEti7EtEOfhp7j/ZZASpmbQnfp9R 39gXvuAbySjZ7InL5aTvaGaze+V9pxTE0vMyaqV/CVXNaP/872sKSrb9kIck fyLN67IlYmmpiElbenlPjwX6lncP3N2RhlQV9k/QPrJC+fNwhVc309D3yT/L 3EfZwVib01jVJx2dqk/jaNTYCL8IlL/la+mIyNi4xW2YC6QMwqu/nTiExFWP yaym88LrsbWxBf3D6Mvqka1PtmyCKQdg3T98GPV420qKh/FDs/CWebuDGaj2 Bq9i9J3NUFupekVH/AhK3tav1iUgCMcak5vW3z2CiIkFelvoQsArTy+NJ2ci GHEzpt/aAo9sNx8lsWUhESNh6xubRGD/LrcvqdVZaLXytRMPRRSUX64WVpse Ra/+lnkFXN8KAts+7Tz24ShqJAYQG3nF4BsP+xLrwWyU1ylOZw3aDvVzg4l9 IscQU3Is0u3qDmiXD7BtvHIMVXcOGLiyi4NLLtl6j1UOEpxvRomXxeG0dOPo x+EclC5ZbHrOWwKWLTXFOhm5aNElzvLJeknoejD46dXvXERM87RdaZAE44IR 3h9meai/WddR3EsKzlubzzIy8xCMi7pas0rDae7DGmp9eahe8KdHdL00ZKf3 N8rx5iMx82GfMg8Z+C2rJqFvl4+y99wO6GKRhRPi9fzOmflo9Vxl0EydLAhZ 3P3j3pWP6ENJ1C3ucnA+7UGwxu989IqDFIr+ykHPGeunLzQKkJmOCYN+QR7G LeImZOkFqIUmFZ3vqgBpYcwU4ZMFSLqULe7GbwWQUMmoLe4tQHk9n+LHzivC hI1xXf5yAWJZ6z7A46IEiUbq4r/FCxFToTZF65cShEznrj60KkTD3pmHAmqU 4ZZ0yoHZiEJklxWameG0CxaCd/oS8wrRrRu2xxp/7ILaj3LVgo2FSH5KOf91 9W541u09yPa4EJVu4ytmdVSBIIeUl4oThWij3Wyp0poKXHJUY0n9U4j0jegO dc6qUEjdzb9BoAhFD3n1t9eowuSFVpM26SJUx7B2ef5TFZRexYsXaxSh9xz6 Lyac1GA0+0NuJSpCIlWKHr/OqUHvc825Iasi5KSz7dWmn2qweLPgm7FjETry lNtHxkkdfpdNJ4+7FKEO2q+3eufUofaL6kSXaxFa/Dvt7/BDHbas218+6VyE lEtH3gU5asC9ZSf7APsiFKz6hLS3WgMyTIX6FCyKUHlP+9jRNQ0IUy5j8zIs Qi+IlymnHDSBSBCYXVQpQjxrVRMtZzUhfcg+lVeiCEF+XkjvqiYYqzLOXf6v CO1TSJkasdcC3gxxicmfhaixMypi/owWDJK9yvo+FaIv3kGzHKtaMFJwPYKG r5/4vEvUNntt6E0VK37UVIi8skwXVM5og1Pd7xGukkKUJ6m5x2xFG8REXx/V 2VuIum5Ir3jZ6cDJu9OuwR6F6JeLUHzEaR1gzP2XUq1RiDSn2H+mLOvAjwvr m7n/K0ThacuJJba6IG7dOtzwpQBVb5v4U3dKFzg4bmpWdRSg4eaXyXeWdIGi uEN2saQAbbLrYX1howeVqSnGnWEFyGq8Lf1LlR5Qs67s3oYKUHLiBY7fi3pw tb+ucgt/AWoTPHmE30YfWtYkjHo+5KPv9VlcslX6wF57vNbsSj6SN0/I1l/U B5bYdX6nkvKR30gYn6O1AbTM/tcwi38+ivb45ZErDUD6mMgtC9F81Mdrv3nf ggG0bb4Qen08D7HVEIqyrQzBWbLX2fdyHjI02r3ldIUhZGvMtKH4PBQ7tKO0 dd4Q+M0qjsWb5KFaxn9bH1oSYCik33cbdx7uiaV8tJwANx/9OMaoycU9fd++ MEcA1XPtG9q1cnFPH6o2WBpBm9Trc5ZdObinZxJi5UYwSPuxrOySg3u6e1Z1 zgiWQ/Rzc94dQ6t/m2TMLRA8N+FZlx1+DPd09rx3GYK9E3temq5l456KFBjf EbicS85/figbOQTfde+UBPCPHaz03JyNQhtvlNjaAzSL7/WfqjyKDv9qejm4 F6DU76jIBaWj6IzVRRHiGQD9v5Ib69qy0K2is96Tffj53HPOHBZZ6NX7spOx KwA1he+4Bp9nokXlord/JIxhXiVKTzkoE22KzxbLtDOGR3Ejr8TnjiDl++n+ AnuNYUf/0HB38hFkxX+gsuK0MfCuTGip8R9BQf573sn1GcPeM55DUWcy0MEL EeJNy8bgxJly7YRmBjq5RCEZSphAi0veu7YHh9FV44Az3bYm0HWfEDfqexgN HPMYc4ozAb6ghesic4fQt9cO0m9PmUBVr2xnbMYhtFHWkkJ5hB9XMpb9u+MQ ko5GNbNLJpDzkT333rV0BO06E/HiptAWbzjY55yO/LhU5dlsTUFdR2ubzEwa 2uchH5KzxxQ+wYbuwcw0VHRGvE7klCmUmHFoT8ilocZvIlNnHppC6IxzAulB Knqoz6+8a8kU5OVOvLKlp6LPhzkjru00g7oElul6rlTE+nzdJWMbM6BOybRm XUpBO3b++PYo1gzoPlMnJ11TkH7YvIpHlRnoVKyPevYjGXlcm2S+7zUDn3ep maZnkxFz/diV0EUzIN4itpjZJ6Nsx7fzizvM4fbZ+f7Lc0motuy5RpK1OVTb 7udgsUtCXROPYjljzUF88umhgxcOovcaXa2FleZwNvfN8G6ug+hX0q3l7b3m QJTn6RVgHEBb+lp0ahfMYTT1gqHKYCJSF2nYp77DAoJcO8pSUCLu6dz1W1YW 8JOuZ8PdkIB7qvhhEWMB7e/Yix9tT8A9FRs8q7CAb4ZC6zrz9+OechJ9eyyA PXa/09eN+3FPh29/mreAtHn7DOO0eNzTwT+R2y0h7Krn9/ss8binveiHpSW4 d5lpRafswz1FJqdHW8LsHkKkMfs+3BOtk6/CEt72Mix2Ze/FPRFZTzywBD2f lFKVLXtRsL+XqdS8JfC5hLgan43DPTmlN4hZgYtU/X0fjTjck9V9HUsr8ONu OxPTvQf3ZMxxN8oKTB95bkjz24N70rO0K7eC6cc2B5OWYnFPakeGuq1gT9qo UGB+LOKSVewlzlmB+apIkrBqLO5JkmtqmzU86eIVqHgWg3vaarvHwhr+m3lT NL4nBvckkP2XaQ1h58TWfRSLwT1xP84sswY+M9+PR7qjcU/r+QS7reHcLVlq X3Q07umnQ+V3a5BVEMiokojGPS3mym+zgfSfh9ctDkThnqb7m8xtYF34K/lb h6NwT+P8BKYN8HE9vPzVMAr3NOLy4KQN9IvsYmEsMXFPg4XO923gc3OBiX4j E/f0+MXbWRtQkVehoggm7qlbiLrVFryivsozlJm4p3aP72a2cJ0gjhhvI3FP V4/vj7SF4CKvRKGgSNzTpVdsJ22hOHOwo2magXs6L5rbZQsl0bLVsgkM3FOV j+isLajYc1525mUgkb7jZWdF7aCq0y9c8GwE7ilveJeZHcQnKec4Gkbgno5s b2PYQSWdJXb8VTjuKTnA5IQdUFoFbjftC8c97avqu2cHr0WS7cq3heOeot57 fLODodQXjamdYai9KETig4g9ZA9xDVuGhuGeSEFhpvbwY8Bf/YlQGO7J5+xS hD08JeWVrt4LxT25jCeV2kPUgdKUuthQ3JONDNc9ezi78fTPB3KhuCdTatGM PQRreN7SGgnBPRmc3yHiAL3EeOXXRSG4J40vtSYO8GeiMrrUIQT3pKSgEeEA mklqB3y4QnBP0qG3jzvApdIC7g09dNyT2EXLuw6woPe743AGHfckOP1s2gGM eFX671nRcU+8u/yEHWH/JrLCeW467omd8dnYEfaIpL0Q66fhnn5fYoY7wo+R 1n7+EhruaXn2R4kjTHJdGI3yp+Gevqke6nSEA/tkPijJ0nBPn6P+m3aENSEh NpXvVOS1N/K1HbcTyFJuM8NuUhG1YmotX9wJuORPOwxkUFHMPdrWl1pO0LP1 wj13dypK+TqmL2brBJKE8oUvUlSU+x/Rl0R0gv1N3/8kLVBQhdZwQs0eJwg/ 9YdlUxcFXfT1Kp/KcgJjcuWfnGIKup7y4pbqKSeokvzwfJZGQd3nnUb2tDrB dN10uYYBBb143Pf7xkP8+rQFC4f/KOjjgtUOlvdOQAqQENAeD0bfRe8bmS85 gXicQczM9WD0BxkHZnE5Q1tl6IuwvGDEQ72d9HSnM0znw6Y6WjASzdY7Jajl DMUZyYoNKBjJNbV2eNs4w5XsYZFIkWCk9UrtQ2WgMySovRiZmiMj0z8N68Zj neFTPEFXoY+MnKUVJRWynMHjdLSj9HkyCrSpMWFUOYPv9bEzb1LJKJwpSW5u cYYTHbp2HoFktL+kMm211xlaJCIdigzJ6MitrdWEd87QzxWhULKVjEo+lnSl LjpDwLu1VfJaEKreKPDpAacLDJTqV/99FYSaduey8+50gWPPfW+EXQ9CHW7c si6aLlAoIPbqyskg9Hh/hsVxaxfIfcoaM5gYhN6eWk8bDnCB+PUeKm8Dg9DX 7qQMiVgXvF8JsX2mQWhl+ud5aqYLfFd2a7okH4TYBfb1XKx0AePIFM5MviAk oLf45Xszfn5N6l3yEgmJBzI5tXtdILP7sa75CAntPjStkDDqAkqeB09qdpOQ 4UW6TceCC6hp3hozbCQhm2fjoeycruC45+2v4DIS8lohHrXZ4Qq0S2ESzRkk RN0+cjFXwxX2b/s1orGHhGJMvfteWLnC1trkMzNkEkoJGZwWDXCFhucGS59c SSg315k3MMYVClM98hXNSaii9fGu6iOusLEhXqBTh4QuvrV2+FrhCuGjv7Mv KZHQ9XXdjN3NriA5PyLGIkFC3XImuTE9rnDl/I6HN4RJ6IV9++W2EVfYm8qR OPYfCX2M0e//Pe8KFzTdl9M5Sej7iavfTTa6Qf2t5hdn2Ujozx11/iPb3YBs 1bnPbB0J8Xy+pPZY3Q0YyUETjL9EJMqj5LLZyg3SLl14JYuP5dTPR3v6u8G3 SxeITBYS0vKSKiyPdoMBh1uvHdeTkOnBquYPGW4QZVG72L2BhJyrt72QrXCD laSEppe8JBT48PhiWJMbXFaJHUkXIqGI7wJCVx64gYwSb96THSSUsCVPa3nY DZ6nNeo1K5BQpiGPh8G8G/zM5FvT1Cah40FH4pI3uAOr0WKFoxkJnT3Cdvy+ mDukRD8IZ3EjoSuXkq9xqbvD5+9FdaYUErrz4tdLR0t3+HV/OVNwHwk9/rFv tcjPHZrP3DgXnk1Cb8WXRN5EuUPMlfJQizMk9NUiSm9nhjt80PYrP3GdhFbC Z7yDy92h0OJjqu8ACbEXhuy/cMUd6GekPx6aJiGB659Ofut2B7F6qbM8G4OQ xDvSTY1hdwjZnRT+UToIqbCPvt035w5/1l6+/WUShAhKPr9uc3hAWejPGPug IGTtPCS2XswDRo5G3u1KDUKee10IVmoeYPRwZ5xbdRCiVDzxP2aBj6t8X011 B+F9sjk44OsB/rxNnPGTQXifuiuFozxg48BBoyk+Mt4n0zt+hz2A/ZsOU0WT jPfpzrvTZR7AOl4uoe5DxvtkwDLR6AE9QtL+75LJeJ+uiSt3e4BN1JaTkrVk 9OC8hnHUWw/IaOzS/fyUjAYfXyZd/e4BxdEdj4RWyWhsQSn1J7snyO7PFSkT D0ZzorVnYJsnnH1GORFgHYx+I+l7h1Q9IYC1YcE2OhhxU0+NPTT3hBF56fe2 Zf/2SYxtk68nbEy+iCy7/u1TqbQ70xMehllYys382ydB85OHPOHiRobmoBAF 71Me5d1JT+jYdvyZnhEF7xPvYelGT7j227MWUSl4nzJrQu57QpboAd3+YxR8 C2d/cOmNJ+R2K9IGWygooSRlYmHWE8zZZi7rvaWgzFu/N+ixe0EXYYH1CwsV Hf8YL39wqxccbWSxfSRDRWc3LlvdU/ECh2D+7H5rKrqyOzpko7kX9D06oT8e TkV33L5l2vt4wYn4OeZ8DhXvU2hdQaQXPNyLDKYuU/E+fX74Mt0LPl5giN9+ SsX7FDQldtILRn/vW/T4RsX7NModdNkLLo4Xe9Zx0/A++Sqf7/KCl9svXK+V o+F9emk3/doLIqe+7jUzoSGJQNcItVkvsHVwVIjypSGVQ0+PxbF5gxAhI1Qq hoYIF20v3RT1BreouDGnTBqyffbgCYuKNyxxF9l+r6AhzxXTWXMzb6h/Lx6x 1khDlO0d/x319obADwZylLs0vE+Gqv0Mb+i8M8TYNUDD+9TmJJTuDbH0XAf7 9zS8T5pRPie84TF3U3DHNA3vU2N+1SVv2PDL5Vb6Cg3vk3LT+D1viE41SChl oeN9ujCg8Nobhji5lH5soKMHcjILjG/eUOLU/b2Ol44G7U8LtKz3gdXrGhvq +eloLGa75pqID7STHaP/CtDR3IkTbka7fcAy901orSAd/b4jtCfN1Ad8mqr4 L+LHuT/nF/d4+UBzpDuVBz9flIfvKi/DB2xTPhEGeOh4n7KGXNJ8gNVcTnc9 Pr+WF8fK8VIfmLm/vbXmLw3vU6rwSIMPhCn39nYt0/A+/dGRvOcDtcwyTSr+ fIEP93vRXvnAxPpTzkX480d8X95XP+MDzmMUPu/nNLxPMSfmWH1hk8rNkfYu Gt6n2evaIr5QNmd1sb+Fhvcp7E3CLl+gm2x/euIsDZ07MvGjw8QXun3U1snm 0/A+kbdxePlCbv6qXcoBGt6ndwa2Eb7wLoWNvY1Ow/vk65eX6gtjn3uvDrnQ 8D69Shw87gtb5/J2TBrQ8D65VWxtwMeby7b9laLhfeq/HXjXFxRCM6ol//VU aDda/dIXVLT+3CTNUfE+9fz5Ou0L8511lN4hKt4ns50qrH4gciWrjIr9o8Le iWKF/eCBfsxz8yoq3icC8bqyH9wokUmITaUiW+fryX+M/cBy/RHHv8FUvE9a p009/eDr5ru/5iyoeJ+udB4J94Nj7jt9vOX/+WnXx8cpfpBclXzQmPOfny6w Chz3A5MXSu2tXyl4n2SlvOr9IKH0aUxn7z8/nTGt6PSDoAdsZyIv/PPTjuCP Q37Yvz3TD4/889PJdLlpP8h8QyscwX56cH7LufB1/hD5bTT0igUF71PB/Stb /EGfcf6VowwF7xPf52UlfzC0XXvcuZ6C9+koh6GxPxhn7r/338dg9BdtkEvx 8Af/usZP0PFvn9Isu8P8IWKkyCig8t8+/aVxp/jjn59d7YzEf/uUcMSpxB8S d+s92evzb59Waosv+oPEoEpjkm4w3qeY3jcd/hASINJzdEsw3qfvX3cO+UPK D6HZU4v//BTORZnyB/ah6Oh7A2S8T18U61gCoMGTX2ClkYz3Kdh2VigAPNpM 2FEuGe/T+zBNpQDY5sE6VxFBxvvklx0PAdChWzwvZEdG5za+rm93D4A012Nl tYpkvE/uj9eHBYD4TtVFD04y3qdnM1bJAWCsAQckvvzzkz1fTnEADOWcHtjw 4J+fenc/rwuASZfSUc6af34ydxTpCIBT/vwzsof++akz0n8wAO6nzfP7B//z k1HemUn8+Cth5zrTf3660TjxNwCOduTr8Ujh+12g9jNloUDg3SI6mcSK73eH muaiFAOhPOqDEOtHEt6n3ZuvoUAIIfRw5naS8D7Vqf9yC4SyhdErkqdJyHtF 1tU4NBB25DlUtSWT8D6djTmcFAjcH/P57Ij//LSz6FFRIDDXs317if75qaxl U10g1D+7M+6x85+fhAfd7wSC4pM+73t/iHifCpdOvgiEGs/iBOFRIt6n/7a8 /xoIXZdPW9rfJuJ9ytaW+RsI6vcKCgLKiWhcIF1Ji4sIaQqem8wTiGhS9u7N l4JEuOhS5PfDm4jm9Vjs9u8kQqoXYf0+XSJatTMaFlMkArU5ROvaFiJiISaG 39EkwvwVixzy10DEEXPjFwkR4fGMcsa96kDEc3g1m82GCFd3CbUmBwYiwRPa 28+7EYEmNFyRIxqIttbHNlgHEuHDt+0CHwYCkOSdJsJ0CBE2hiqbhR8NQPID 3x/nxBIhm+/VU2nTAKT6aXeAWhIRZG+vDf5d80faq+HfnmcSwce5duPCZX9k xH3xYFwRfn1rjtuLwf7IbMdXPtEqInx3LPz5U8Qf2anJVd28QIT9pTO5LH1+ yMWMohLQQgRWnVnhnwf8kI/n2Tssd4iwtCaw+dNuP0QM/eB4tpcI3hnjrm2j voh6YOd78xdE+FhidJF5zBcx8vyZX0aJ8KVJqZHbwBfFni1jOfqVCAfG/joe mvBBiVdf5+1aJIKK3P3U4QIflNorLNH/hwgZErsImwk+KGvY/Uo0Jwk6ZjfT ZT97o7zZQmMhQRLMZBVLbMvxRqWsA8+u7SCBzvWI9gVNb1QptCnIR4EEO/3q H7e88UI18g7zvzRIwKYlty04yQvVG2SnVhmRoLc6p3GjlBdqcni42cSaBKoX 5Afr7nuiG6SNZ8ddSZAvrcLjRvNEHbEWGhkBJIi2fcb/30ZP1JORfk8hhASl E6+HJs57oCcn77r2xZDgZN3i5mkLDzTUwDLOOEiCivYKHsVP7mi4wyiWP5ME SqbF9ZdT3dH480S2lkISWGU6BOXsdEeTn28UeVTi90e/c+3lTTc0v7YqvVZL ApMkL+1KTze0yqPTWtZMgr8xq95L866IRXyPuVE7CTQX+1PnjrkiDo3mwfc9 JHjK4/D5vLwr4rGYo6Q9J8H9k/xJu++5IEFvlWWZ0X/vR+hXmb8L2hoecbjn CwlW9bgub1h1RpJJF7eELZDgWMK6/ZkFzki+4GsN7x8ScL9OvaW3yxmpnpPT adwYBCw8IqDW44S02ygPXASCoDIhXDqT7ISMHp31XNoeBC8dFUta/zgis9EP E8flg2CCoXo4SccR2c3t3KevEQRp7iX0s1EOyIUtYOMIAR8bEIrdGuyRj3B5 aZIVfv6+YZPuSTtEVHwjL+kaBFeJQ/5KinaIShC53uUfBC6lEYFXw2wRw8nD mkYPAj+tQzInLtugWHLRa86YIJBOEnzEtmyNEuMGQuoPBMGljD0pCsgapWZu +uFwJAhi/jSHah+1QlnlDllzBUHw8NzfWO83lijvcvbWoooguNtE1rmjbIlK 7z6s064NAuFZVfaCVAtUObjR4HVTEDR2FC3/eGuOar5YPEq4HQQc01oxMnrm qP5nuu+OniAIqppk0Tpphlr47k11DARBw6ah8/Z/TdENiXWJ5JEg8Hd9S8mn m6IOTcTD8SUI0udavXcOmaAeywPltfNBEHtKpkDQygQ98bmpbPs7CGrZTVXz 2o3RUMTarZkNZFitMLhSq2eMhpN17PM2k+Hq0c+1sdcBjRfuGVHfTgb73L9q G40ATdY0RwzKkcHsLEf31xyE5q/P/d6rTgafO05ZhReN0GqfSs5WAhkEqiZO yg4QEMv7iB23LcngOP/Or5WVgDgWLl4KdCHDH/mI83YEQ/xmJ41Y/cmQW3Tk +e8UAyQoKv+0mkaGwQq1ew/69dFWZWqgZTQZUP8p3wsK+kgSVc9+TcTnk23x K8/WQ/IuH5OyM8jQLsGjU7Smi1Qp4ptUCshATiAUHGTqIu19AaeelZPBvO9Y tsOcDjI6Wq4ae54MG+LOXxtP0EFmlW86tjTh85uvECQ36SC7KyLO12/h91/3 qHGsQRu5dHl88H1AhrbrVUrr3LWRz8uiqD/PyCBMitnvwK6NiJMD604Pk+HK 9H+mZe1aiPp7U4HpBBmyiJXiTclaiLHJUfLzHBn2TR+J97LVQrFSx5qO/CKD ZuVyku8OLZSo/chEaUMwTD3+VhK3polSrTmfP+YPBrejQUzasCbK8rMkM8WC gSVxoetLtybKizy0sFkuGCYHHh9ratNEpan30lrVgsFbyRj2X9FElcXrBL0M g2Fn8wzXQqMmqqlF1T8sgkG8tUPp8VVNVH/zgGaFczBkEkW5Wu9qopYnN7uQ XzBQwgjTpBea6MaHNbeP1GAoYnnUtn9KE3Us6nxKjwqGlV+zLBc3aKGeDXF7 5BKDYa73R1GFvBZ6srWF/eFh/HoLB9d+2muhoV3zxeH5wZBqZP8rfK8WGgZV 2f/Kg+F5xVJ6dbUWGndlXL1SEww6LJNaloNaaJJab+F2JRje6FC4WTi10Xz8 5NDyTXy+5gNP9yNttJotTzvRHQxrwwSf4H3aiOUUdcXgWTB0u1D7Q5u1EUdz dcbo22B4VlP+nvBdG/F1fxRO+RwMSj97/uTs1kGCr8VrpeaCoWo6uIKfoYO2 Tgfodv/E1+foweCESzpI8m95D52DAn2v1KnpszpIfvNbL25+CqxzDnaaUMU9 yYh+bdhGgY3MmDJSNO5J1zPeSZYCu7jUFZubdZGRbTHngioFcjd6M8oWdZFZ wPMTxQYUaLG/+mpKUw/ZRfEr6lpQYJOg0yF6rB5ySXe88caJApcmzyu8a9JD PseP2RzwpQAyMxSQ+K6HiHWP3uykUuDFhQGD9cr6iHqbM+wukwIPSV7eAVR9 xOi3/BmcQIEyBvrKV6WPYscOHd1wmAKnPU11lgb1UeLyvW11eRQw4coIXOIy QKmcrPV2ZRQYtlhvt0IwQFliYDh7jgLPDpg2fGYYoDyVg335jRQoqd3zranC AJWa3PLTvEmBqr2vpB0fGqBK9x/TQ/cpsIU1+cqVRQNUQ9c9EN+Pz3+w7clT MUNUnxDHK/aWAqJk7sQmE0PUktNS0f6JAldv9r5ypRqiG6fnd5G+U6AhZaqm KcMQdbSotq//SYGDn4ucPtQYop4HDIcadiqwP874+PGeIXrypn7UahMV4oKM wu+NGqKhmUnG1FYqODf1u+evGKJhFoW/x2So8PtnloI/HwH7iZarqkqFpV4x Xz0pAvbTuZ3P9akQHdLGo69NwH4au7zHnAp/Ew8OxFoSsJ8kQMSJCsVzRbEs nnifiIH9N3yoYJ9t27gYjPcppoLoT8HPz2paDYkiIL7Db7//jaTCnnBOnfhE AvaTaMqZ/VR4/zH8qMFhAvaTJ7/5ISrkr1fie5hDwH4qPj2RSwUHb+kCQgkB ++m5WtZJKvi/kuRtLSdgP/HfVT5HBQuL5BmDMwTsJ0eXp5epUHnbK+xbDQH7 Kedj1A0qyOqsF/lYR8B+6osWvE8FV6aLkNIlAvYT1/prT6nw6IrVj7eNBOwn q0LvN1T4Zup7nr2ZgP10WOrXOBV/H8jZca2FgP3U1Vw5S4WA/lO3V1oJiH6A 1cz4BxW2xLAajV4lYD/BizE2GhCqSiQjrhGwnw4GH/6PBqOhxzPq8HHi1VuL 8ltp4M0V7XMSH6f2/kh/JE2DqfwDwkb4OGtYV4ihQoM7U8fuFuHXy5uNO7dJ nwauYsfGT+LzlbK2ajWb0UD7qWiODX4/lUIL990daVApKxFY1kTAflLzWPWm wbpeYmEq/jz1BpGfTwbT4Kp3q8BCAwG1ODTEESJp8Oie6s5X+HrcIE1xvI+n wbbs1zFK5wnYTwrHU9Np4MI3LPcCX8+eDJqcTC4NNk3+jbxVQcB+OnftwQka FHSU6T0+TsB+GrMMrabBs48GH2byCNhPEq94LtOgbWwskC0T9/Q8kH75Og0c /eUTlpJwT58rVp27aDB/4cFK9R7c09rbI4tPaLCDGPxkKQT3xLNV9PhrGtih dUEP/XBP4l4X9MZpEPf47TU2B9yTRone8DcatCLjxsME3JPFi96DazQwDV9F 6kq4J+/NPhJsdLhFf3vh6xbcU7jT5D0+OnhKGbblsuCeknL2U0Xp0NbauLTh iyH2Ux8XpzQdbrt9Htd+bIj9xFV2cTcdps+I6bA2GmI/WSk56NHBr+0bi3Oe IfbT4ZvfTekwFyAww80wxH7qsi10oEPnqWk/EWtD7CfWYS1vOrClV3WHSxhi PxmHvyLT4VPugaiFZQPsp6Rf+xl0qF/ebl/ea4D9dDt7ezwdTm54UOBzwgDR CT/FOtLoUJe6wCFNNcB+0msIyqFDu88P8WkVA+ynvQT2E3RQ5Xz56Noy3qe4 1sfnz9Khf6lCJuWGPvbTgr/NJToE3ijdYZWgj/2k9m26jQ7cOgalm/T0sZ8i D+beo8OWa/cjPyzoYT818Kk/oUNhZH1q10U97Kepyhev6CD/8O2lbqIe9pOC yt4xOkgsf32yslkP+4l2R/QbPv8Xu6bQu7rYTzWOt1bx9bJv4teK1MV+Gn8X sD4EXq6UJ0WK6qK7mpLMdXwhYNPCdNfq1MF+IrJUi4RAauvWimqqDvZTZZ6F VAgYimSujHDqYD8Ni3/dFQKP1eWT2S5qYz9tvXJUNwQUO6saCDba2E9exrtN Q8D6G4/qlQl8v6spedZvHwKnslb7jqRpYT+9IMV4hcCBBBu979u1sJ82zwuR 8fNPJM4JXtPEfnJKbYsIgZYux02yjprYTzmbffeFALBbSLt91kB8HI/P/E4N gZ4VKbZniRrYT9wap46FgPeTG2eebtbAfrK+Z1IaAtWF+h/TatWxnzJcP50J AUuqDU3SSB376f5YRkMIpMxKhL9/rob9tD5WsS0EaIeGCxdC1LCfjNke3w0B e32D9nwWNeynpKLIxyGQWbVh+PtxVeyn29KbX4WAiql5l4WqKvbTz5aWjyEQ M3xNsKBQBftJz9xzJgSE1DvrvHt3Yz/tHVxbCYH0EEKUPetu7KdWSjlrKMya /dk6aLQL0X8vLBnxhsLu0kcVHknK2E/qhz8Ih4LWRq1prS4l7CfmlnTJUHjA Wdb0glcJ++lSjeyuUHidniFc4KeI0q2ntXt1QuFlIjXpYaMC9pPigzAT/HrR 511fcimggki6J599KAz/tnrMFyaP/VQz0egZCjOJvXfvPZPDfhrf6xoUCk6x UfHmSA77SXLjcngoLL//HP+uWRb7iVhaujcUctsXaK9VZLGfKuUNUvH7m6OM xDXLYD8Nt41khwKX6ZTlipEMuru41Tr5eCjwhvf2Fg9IYz95v5Y8gx+Xd9qe yZBG/VuPh9yvD4XmzR/3rxeQxn4aXKNdCwWNRGaKeocUGgWBLK67oVB2xkIC xUlhPzlvbegLBcLhdZn2WlJomppb5/gyFC6LFQoe+C2J/fRYf/5DKJTfUTP6 8kQS+4n7UdF0KFwkCedXX5DEfrL21VkJhQOaKxV3j0liP2VMvV4XBsHbBefs EySxn+4nJPKEwYrlZ077aEnsp/U8O4XD4GuMiVsnPhabNi7vlAiDYcIPyfOJ kthPScrByv/+/dzFpVxJpLi5/RaHThh4rK9lr6qXxH76ZXfBOAy2dxrL5g1I Il1d/RFbO3y+wE3jjeuksJ/2RXzzCINzV1pWxvSkkEXA1d95pDCY2TrxlyNB Cvtp8ZhGeBgkiLJkzHdJYT+p7xiKC4M4Cz+u/cLS2E/MS/tS8Pt7cGN9eLQ0 9tMlo23ZYSCzq20xf1Aa0W9PP7ldEgbsYlmxjSCD/aQYSDwdBvEikpCB/7/i xuizrPVhEMT+zu7ZLlnsp5qkc1fDoCVnacTssixK5/z0n1VnGHA0Xisv1JHD fpI6NfkoDOaHPjaHdsuhAhWS6rGhMPA8vfVbtC/uyaSqQ+UDfr5ay0unZXns pxGngakwoEoujFWXKGA/bfsQuxwGHVcHi7kNFbGfvKOE14WDaVVm/fbPithP x9fd4A4HNFHhyixSwn4azPfbEg5xUus8iy2U0d0WAcm/4uHQv/bCZ9svZewn 56bTSuHgUi0qnNOyC/W/yTUx0w6HHVy7jsdF7sZ+ejzwGcLhdSP/AV9lFTTK wkPOtA2HU+KhVp2TKthPNgtKHuFAuHjYSchdFU3LHkl7QgyHGvoRF55WVeyn boGoMPx6iK+CXUgN+4mtWiAuHKjOk40dsWrYTyaaV5PD4dzznJ5feD84YpK7 vI6Gg8rgD7Z4dXXsp3a3n8XhEMzeV7aYq4799Gu84lQ4SPfYcqhMqyOxev09 cDEcXkXZqH2x0MB+2sc+1hoOMRqlDe+rNJDiwNXiQx3hYGz25f3rZQ3sp0UZ +UfhoHc0h73QVhPprqpffTgYDuzHhueeV2hiP0VZRLwPB9qW8pPkGU1ksePy 0H9T+Pqm81ew62thP81Qm5bCgVdNhpaK99fFTGnFjSUCTDs/+FX3amE/hWSs cEWAjPQKuy4P/n4Xel74pFAEVGc91OOx1cZ++nTeUDwC9toPWc8f0sZ+ktJ9 pxgBj5a2K7bf0kZxZ0k9KVoRcEAv8bjFrDb2U5WXNESA6niBAWW7DkrvHfnS bRMBmrpyT5YtdLCftsWHuEcAxbNN422YDiqY9ebkIUaA8C3xE0tHdbCfSk9c Co0ApUrhbOXzOuiU0JCC854I8HUP2xR6Wwf7SfDGQlIElHkPXCl7ooP95GJT khUBmQFaBU1vdLCf8t7oFkdAyRaf2LMfdLCfnoS+rYqA9uK3d6ljOuhuLM/P A3URcLwtqHD1Hb7fZdgcFW+NAELjlhqvlzqo/+SRbffuRMDrA6akrF58v2vo vkh5GAEG6/V7i67qoNEONsONgxHwgi0mNrVSB/vJpK/uXQRkGbMlklJ00PTn ZD/7SXz9AhLppoE62E/t07OLEaD+Hm0j6OpgP/1OLPgbAZP3D7dQeXSwnwx4 tbgY4OKxM+7tW/z9TiO+4qUgAyaLd569XoO/31lc27V/JwP47Zr9JCO0sZ+W bospMqC8VjdRT0UbiYVrONzRZMB9xodQmRkt7KeoURJigOgH/hW+81pIseAy g82GAdoXr8tJ+GthP838qXFjQGjmJ97M/7SQbptSrnUgAzKSHhbtacc9PQrZ OR3CgGvcx5yEQ3FPo+cv58Qy4PWHDXanNmtiP31CakkMOBQ4NGjapoH9JN3/ PJMBw4ITdtq+GthPQcS4Iga0x7yZrv+pjv106rtIFQN2TDFPjpxQx34aTb55 gQG1h2wa/2ipYz+J8Qe0MODEPt0+i341FEf2Oc1yhwEzLIEV03Q17KdStbO9 +PPGk5tl8f04PXOo0/wFAxiP3jkolahiPwm6fBnF59vlrKGqpIoKLrt8zPrK gMgDIUsvDqpgP+VF71pkQFPxuiGxmt3o1OAT1v4/DNhmbFtW2bcL+4mnMJoz EoZJ8QXt88rYTzZSQoKRIPp+U8KoiDL2U2bztR2R8H7xvqk/wvsk8cDURyES yJyhfSVURewn9he/NCJhRliwYSxHAfvJNLjKKBI2k6pZT7TJo36flEVj60gY EL0JG8flsJ/upI+7RoLalCpnEr8cGk3+LZgREAn9osKclsay2E8G5xRCIiH2 ieHbczEyaLomXqsvJhKGTu3+Plwrjf107T7jYCSIn6tIUPgghX70LbnzZ0ZC VJOafYeYFPaTxufmwkjwG23SfemL73cLUXEelfj1jN6+vlApgf3UyLFWi8+f fofh+0kc++lbSVlzJDwu+lQpoCqOxJSV5YzaIyH7KXvF1O8d2E+h1973REJz tYCvSfV2pOhSa5n2PBLCbpoUk1zFsJ8+v5QZjYQy9yOue7m3Id190vSeL5Fg V5h860KfKPZT0GroQiRIP69yFD4ugiwqTx3h/RMJeZmsMi9DhVGNVySPFxsT HpdZqK9ZbkEKQTluFziZQDz5qvDwbiHUENZQ/oOPCapJO9+k7BBEqnv6xm0F mbB+cd57QlgAtRycUq4QZUJVxMOkhq2bkc4Rrj3fdjBBY98Wmfuy/OhmvsJt JM0ERrnehKjhJmRUZsWer8CExlatv9KtfOhuNc3+424m6MAZXUk2XmR+6XCx hiYT3oy+jpoI5ka9186NpOsxQYTj1Yz8S05k19klM2TEhKKxgclCn42o/+FY hJwZE1rkrRyffuNAri9Yr+6zZsIP8TXXxEJ2NDQi8afXgQmeA3KKOlZsyGcC LLa5MSFfZm/FcZ71aOR7YE64NxO2ur5rVHu/DpF+HBy6HcCEDSRd7ZK7LGh8 feWO/4KZkKv68k4N9a8Rnfc2lRjChAM3XpdOkn8bTW0ZvnSFwYS7Nz238Cb+ NIoU/7nMGssE7/t7tSQurRnNK2xFbvFMaO/9c0d3bcUoTkMv49xBJmScDFam +C0brRl6PV1Ow9ejcE9k29Ci0QGLvcJWmUyYQKF3zGkLRixOJYEncpgQsW6P lSTvvFGad+v5yUImdJa8HaA8+G60gfxi1uAEE1Kzsls9FGeNssIXdI5V4utv zqopNTVtxBe3OXn0LBNuuaxt2Pt00ig/Sa1H5QITGgyf008PfjESynTalHKJ CcO7Wk7//PnZqLQg0mugmQko/vrNr/DJSKw855TUdSa8K5Xa9PbMmFHVuYYv se1MqDBJu2cj/tFI6nKfavc9JrTu2aDUce29UU3b1D7hXiYQDBX0K5+OGine 5eqkP8G9WNT7qQYMGzU8UuC88ZwJRxpZrueLvDFSHbRy5n7NBG3VVUedXy+N WkZpJ/xGmdBDDTdo5Bgy0vly+EPDGBOG5ourz2m9MLo5d07h7xcm/O+vu/zf 4/8Bt7nYEg== "]]}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 270.5622955782125}, {0, 0.05611261579957914}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> FormBox["\"Bond Strength\"", TraditionalForm], PlotRange -> {{0, 270.5622955782125}, {0, 0.05611261579957914}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"Broken\"", "\"Maintained\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.750701021074601*^9, {3.7507010672920914`*^9, 3.7507011007273445`*^9}, 3.750701296567973*^9, 3.750702019972695*^9}, CellLabel-> "Out[266]=",ExpressionUUID->"708e7abd-3055-4fd0-a536-43bf443032a9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SmoothHistogram", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"broken", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"edgebw", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}], "/", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"strongbonds", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}], "&&", RowBox[{ RowBox[{"#", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], ",", "1"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "All"}], "}"}], ",", "All"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7507013501778517`*^9, 3.750701368551508*^9}, { 3.75070140090265*^9, 3.750701507686485*^9}}, CellLabel-> "In[267]:=",ExpressionUUID->"1122dcf2-9aad-49c0-8115-8d053970ee04"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxlenc4l2/0v01G9sgme+/tOcd+SwkhFaGMjIw+KkklClmZJWTvTVKpkCRE IckqIyWhQZHZ1++P3z/f7/PH81znOuc+r9cZ133u+7oekRP+Nu4UZGRk8zuv //f9P0+F+SS9eSEkxaUlcMjWAZmKsFd/1GPIFJGN4japg7CXTHUJZztAMVIn 4ZJTHbSeja1Sk3wDra1NNSZBdSCcTGV3euEtvKm8+dT/Rh2gl9EhNBmG3fjU cjNrZz2GW7Nnj8PqEbLmheo66IudlPzv4iQo+b+WNGqpg4DVf8XjJdNASdns SfF6B/+kkITp4Aw4XjnKqTBWB7mviaIasllYvO0R1v2lDpR0jovtkZ8D083E yvGfO/6KLhWEH5mHM7U5+73X6sCF9a7owvVF0P7F9fQCWT2QXXqSZ1f/A+xY XbdZaeqB9Pt0ovOPn7Cgf6lah74eeMq3DqZSL0FSsi7FJmM9TDrHM3fxLQPt Yabm47vroZZT4M2W8m8wLg9Q8N2Rg19VJqiQ/kAj8U9IgWnH31U9S8/jK1Ah KvW+escfi2YPU1bQKnSOZ9Gu7eBNLhzr7Yv5C5c8Q15xU9RDaf58HHXeGtx6 rZHBtVkHwQ4X9+s8WIcBZ0cg/7OTv90MjP69G6ARztf/aaEOWNozXhV82oR4 5yfF3Z/qYPKCTOzw2hZcTl+zbBvZyY9i0z4mln9go38g8v1O/h4uiVGLsJOh l562PPfzHX3vgptuNhm+OJlKJDTWQXRpQ7udNDka/J55YV5WB6ciQsUCGsjx QVb/O/vMOrA6bnwtBijQLqzucltcHWhpM84UdlOgeY3RizuXdurNMWjUYkeJ Uqq37syd3qnXj8yCkUlKtA0Xe9280x9fu05S/vahwtkhNWaJAzv1KZQ9uXuV Cu9GXRyV1dvhd2W5TSqcGpP4GM6Py9RB+tHHokZMNLjlfnvRaM9Ov6hHhDul 06DAdVZyP9odfiwW0+f30mKCVL6kx59asJpnM0yupsXXtLTXND/VglLHaF6l Nh3C0uGJhb5a4MnLJ3/ZToeezpoFic21QBbq7Tp1cBeGTAUOylXWwqS9yrON 0V1obce8+9WdWuhUXhfm8qDH7L3DoUFRtVDL2Bam9IseuZ2txpTP1kL67I3J faEMyEEl48dwshaC26zRnZYRs7kVyXdZ14LL3T25V5IZ0WuiYEYZaoEUPPXv jgATKn0Tno+T3+F3qMy5oZQJc4VnPIX5a4FFIbDltepurM+8Lb9EXwt/6bSF 5pp341eGPXzMv2tg8hPZFcp9zBhz/01190ANdDZ3fhR4x4xmA6H1QvU1MLif JMSvxIKUSjqtnMk1QNKRO1h2lgWnWH4H3jtTA08kWa5oPGZB7ypOt+1DNaDE +bv6ORkrqr1e1dpQr4FciuGPVqasSHpMd7eKpwY4fj7e/TGWFX+pFlrwbFZD 9IccwqefFTsLkjj0J6thszvC7y8XG5o5Ck7zv6gG34ee2dcd2XBep6vlQXk1 TBZZvGbLZ0PHd0FTjEnVYJuiuJ0zy4brVJwVvMHV0BnGriAvz45pF3sefnSu Bi2/VaemM+yYM+c3a0eqhspjY/FmD9mRJO/oFKpcDcLmLU8Ht9iRY7s05QBf NaRqFCy6GnHgp9Qbzu3U1UAlFiXwI5oDe78ubYz+rIJgVp8Doa85cA492WPH q2Bh2/LSLg5OfMf0qau3swpcFlSqbh3hRAtioiPzfhX0jXB92JvDiVVxx2Ex vwqMX64z1s1w4q6MjX+PEqvgYcNHPUKGC03pv59bu1wFcvltvq/8uZAbtp7m n66CrJvFWQ73ufBpy+HCSscqYLkU0/N5nQv535k+ZNpfBde8/TbPIDeGuDRa PdGtgr+HbeTIIrkxOPjGrWrZKjhlouEY/4obcaohfpSvCsZVeON4WXnwEMUe QQ3GKrAS3n5cYs+Da3Gc/A82K6GdaXpeLYsHL6T3Wx1arAS1jRd8bVM82B+n Gk72sRJKv5ZZHJTcg+md10IaXlcC/1D8xXHfPVh59Smze0slJD4PrPCq34Np S2dl6GorgazObmxldQ92ng3pScmthKBsbYZr+rx47ikZ93ZiJXyNFdBljeBF 44lQK/2rleB4gdwnu5MXvwdwfjMLrIQej88Zsrv5cP5M4zUO10pA267uh4f4 8B8+/3PHqhIaDKrWTe7wYb/6KYs3UAlSikkybz/yoa1AfF+FQiWk85896iLG jyVrXiySApXASH8kZtGLH/u2W0a0GCohbFWvKaSGH29TPjIY+VsBv2eEv9H+ 4UfWVf9isi8V4DZAxZumI4CdauJ1JQMVMNzy1Vw0TAD93oo4vGyugP1VPRdq XgggmfGBSYfyCniSUVumxyCI8V3BH+3SKkApOnWky0oQrS66aT28UgGFZ4N3 Hb4liJVFV8VDvCqA56Sj9syYIG6fP6d4y6YCoq3QK1BECF+QearQ6lbApr7Y nW0PIRS4RuvUKVoBAbJ0XbGVQsisH6r0blcFzPAs/OVZEkKP2/Rh0j/LQYby FMdbPmFk+JIT8OxdOcysHam8Qwjjrxjl4DtN5ZD908LYxVUYH/ivO1Znl4PD rP64xDVhbE65o7Z1tRxYPioGLRYLY4ct58kIt3LoHhRhbOgSxpKljjuEaTlc e8VeGLIgjKPFykNykuVAtFHrGTCLoE5op8t+2nJYebj6llZFBBdnil5lfimD 2po5n9e2InhiVPPXnhdl4F08Rpl2XgR7hD4tvcgvA7G7vZnHMkSQlT5XM+dK GYyntKiKPhXBzLVk76JjZXArpu7V1wkRXA/JvzCsUQZWVwtO1lCI4qdXjKla rGVAH5y2cVZcFPfv25bq+FYKbX5RKXokUWQWkPly9XkphLpfkKX0EcX7Ch6N vpmloOHo87wrXhR9nS1ao86Uwk8bp2OJtaJokjPqNkgqhVLzg8v2b3fsAyUJ W8FSOIEGsQIroqggRye4a7kE+DVV987w7MUZzh7GPx0lMCQv/rhcdy96u6+a 8WaUQIIY96HA43uxaInK4KJvCZD4ds1rXt2LMVbyWbxECVCwbYRvF+xF+2kV xY3dJfCEbpH3RcdefHJShUx4ohiC/n2sj53biw2G543jqotBYaVvnw2jGJ7j OORsdKkYvi60TfMoimGm0+okyaIY8j81hExYi6H9e6vruTzFcHS0mK04SAw9 rT+pWH4uAo7+9HLf22IYYl60ZldXBK9fxhiqNonhx/2jrE9CiyC6OXR0bVwM e7XnR6+ZFQHe9zvT+k8MR8/rjjawFsF6hQt9lKg4XjJZf2Q1VggN+Tb5B0zE Ucrgh5lTYSH43THW4TgljmQuBkETvoUgkagxMBojjgtJmlbjaoUwGSnlnVcl josnlhiPbBZAxiVeilN94pi7IbB+9HkB2AYxZigsi2P+Sua12RsFwOizrfyH UwI/pImpU1kVQIfrz67HWhLos/axupGzAMIcpl3Dj0mgNOvPKqqxfNA5OLhG uiyBF3jJaH7n5MOSSUcSc54EjqU25sa45UOl3kPpoecSWF4rF/paKh88VMuf ZX2RQAo7+7IXC3kgLJN15OQuSTy55LrvXG0eDAsn/JKWk8TiAOakL//lQTJ3 2I2flpKYn739hF8zD/bvPiPyIFASN3P/7BFazwUqardHl1IlkfW30Pbyk1xo 3rCzNn4gia1lpp15V3IheMlsjn5UEpNyKD4qGOaCypz21f5NSRQPnSvLo8qF bxOye9KFpDCz2FeVPCEHCocE6o4bSuHb5g9ahWw5cLyX2VzcXQrdbjMaaN/O Bp528qn5KCl0lN/a28uXDX1Ny8H15VLYqsNe55t7F2LqPrNc6JXCf6/tKsTE 74Jx6fudJpfCvUWNL8jLs2A7uwtp2KXxV4hzDotiFjSmPR7uUZfG0BraVqeG TAiIqwpIcZDGYn/b1D/amSATkUN39KI0Pq438Z5pyYCZC0m5wtnS+NCg/rSG aQZkBURozbZK46e/g4WrPXfA3vNsX9UnaWx0W1xQtb0DLMc9TwXRyKBv15+V lbF06LY9QqYrLYORiQHG+93SIdzCIp18vwxm/rMU2zl0g56hvlKnnwyuUCzX jJ67DStaip0JSTL49tGBTmny21CrKOJi1yCzsz/xs2vG3YJTEux/+d7LYEaj 8V9GnlsgKkCdOL0mg2WSh3LuF6bBOPuqZBm/LCaReBd1VNLgFv1ciz/I4j3L c1eLW1PBknzssMYJWbwboHaf3CoV6P72/Ni8JotpxkLpdpMp0Pa9Oep5iSy+ qlb6UR6YAqGfa4ViumXx6/CcCj1VCqiN5z+wWpRFjuj++Iu3k+H7QOpBbhY5 3KLcM0YjlwylXZGzH1TkUD7bs+jesyQ40Rp8pdBODm+/7BG/4ZAEvA+8uX2C 5fD11WHDhJ+JMFjlWKOcKYdPqGr4Om4kQkKhpdnfp3I4P7R0QFcsEUiZONE8 KYdueiUCc1duAlmyyvnrlPKYciw7a/FRAjRFizHvl5BHTtFbt2JX4iHoClcJ m7k8KkpOxPeox4PCOToY8ZHHcDOXpSfn4+CL7/pQToI8Oj5q63B7Egu5Jxf8 POrk8cvSlH43ZSwcPfqRRn5QHlcqa1N+H4gBDuu+7OUVebxWITLyNeMG9Ji1 aTTtUUClrwee1HyLhkii4XWYngL6OXx5dUA/GlC92MPMWQF/3hVVeJkcBeuy 6dtM4QrItIt3UWg+EupFY24NFioglcpG0DHTSPDdE6qQ+VIBW3y9b4UWXgcJ Fr8O128KOPSQ7sZ16uswSeNyXIpJEauKhL+f97oG6VvWK98VFdGl5Nxb274I sPltlHDfRhH/c9Zp5NeJAMZ5dYnQs4oY4sYV+aY4HDqmJJsN0xWxpPrrtg9X OFwe3mO/67EiMnDwc/6Kvgpabxi+v/mgiNpvqGWct8NgbXrb0IJMCYMYfLLr z4WB/cfVhGpWJfz8/UNu/6crUD/yc5R1rxKaJKyab01cBuZ3cxJn1ZRw3GOA a2rqEvj2TZ8ZNlFCrXhnirNzodD5aqxZ97DSzvnXUrZ25SKIvxykzzmlhPPB GWPRuy5CeFuvPUWIEm4KyCb+FgmBiacd+e6xSli+EEL2FS6A7qOW751ZSjhV tU/i8MlgSG94qCNXrYSRzx1M1OPOw5+ausibLUpIeYdvOajpHNhUlA8s9Slh qmGoIN33s1BdXCBoP62E518mcE9KnAWG/CzvR8tK2HzP5PaiWxCcupvWyE+t jHTVgi+FS/+DF+kJFGFcynhs4QXJ6+cZEEmNsvwkqYyll6r1G/XPwOWbYRmm 2spIpnm0Y/lmIIzFXPhStk8ZbXKyd3HMBoBW5BkVJkdlXAhwXaMyCoDUqz6X A04rY0JC56CbmT/8CnXrfntZGddI0uNsbH5gGezEpZmojHdvJEcsfvaFiv/s T2TkKePl148rett8gNb/YPVWvTJ+3vItiy31Bjdv0rpLuzKq/LQ69O+WF7S6 G5i2v1NG99QkZrKEUyDoqpMsOauMt5V0p9ziPSHEUfVjzN8dPEe3s1RpHjB8 WE7m+y4V/HGSR+l+oTuoHRI/Z82ngs9fkmsfeOIGiZaCbQ1yKhjresk2e+wk fDfn3s1DqGAEfdC1CIqTsM+E5ejFgyr45Rj7nXdKJ6AYdxV/dFFBy/+S+Tw8 XIFKj2LJ4IwKvr459IS+wAVcNDf0iyJU8L3ejJ9KrzM0q/y+QZemgsRPUZNn rseBV2HxnU+xCtJuTE1EUTrBOekvIm8eqCDHBTOSVP0xGBSbOK3SpYIJJx/6 7z99FJSEhx+ljaqgQUqDe57aEYjj66dem1dBi305zwdpHeAbV7e145YKLitY Nqd+sQdTtud3W3ar4vf+LxqJfXZQyPRkTlRYFa930r0698IWyHbdV49UVkWF HMOZv+2HwJGq+uqcoSrqSfV1vHxtA03/inv326qi8kxuTtq0NXBt5OypdVfF iYSiJE4yazizku7Ofl4Vc9nc2jYkrKDvV1LduWhVjP+T/2q9yhLkFmO2Ru6o 4kbwp+Q8oQMQ8zXCXL9CFbusNsRM8y3gy6fQtNwnquhrvscsRH0fGE6cnaJ8 rYqZpeVVdcMkyB31k/ecUEUfXjIF+1gz2HzneaH7pyoOabpHTe43BYd+lxfy FGrI7HSRrYffBBp7jrAmsavhI8P43lvrRsDWaeP0W0wN/SUqXRo/G0LAc4uy wxpqeJtFZLn2gwH0NBv/aTJTwwbe3/dkpxGkmvQNBI/s2Aelbih9Boi8rxF/ 1VsN2waa9WgECJiuVRyZubiD1yKoPe6tB0SllDgpXg2FdydQTffqQFaJSGBF thom2XFanTfRhr/5vE9316phedj7rOw+TbDNZt915pkaBpM9GbPy04D6O4x2 7wbU8FtsbSedoDrsTqPO05pRw3Y74widCVXwTdxeyPyjhkE8JfKrtSrQGbuq 9Y9GHa9Tr9lcTVYGsaif107wqCO1vynfj3AlCA+f63shrY5jSp8NeagU4eOl aX5pXXU8RHOzYE1AHnQujJ2K26+O9wrbTmvZyEJ60GDDDyd1FL1Vmp2bIw2/ /XvJDvmrY1i9XiUdtRTY+HTsbwxTx5sO/cetr0pAtUdL+p5kdVSJZy91ZxcH +hMPZ0IL1NHzdet5naa9cMqpTmmyQR3TD0DC6yBRaHcoDzXq2OFrQzogYygC wrYFncXvd+yZByOdRYTh8sEsDvo5dTx6+Fsq215BGN2X5nJ6XR2ja3huz4jy g5ZpQmUfgwYW0//tbzbghVSDqL+qAhpI3FvXnrjEAz/1woxvK2jg92uL037v uMBS60LiOmhgYd8Bx3VTTihXPTPuZK2Bzg/J+QT72YFG0Ufq2QkNHN1rQxd5 hg3cZNyCxII08AqlKcuiNCu0iju1Rl3XwDBFC2ftBWYQFLFnnL+lgcnlbylH KpgghP+gg2WpBs4U12RHJDLAEDepsO6RBkrZMWgKpu8CNXaDnxyvNJCMhsqr pJUWEnfr6AWPa+DBE2XXNehoYGGXavTYogae4+O6v+5LBfuo5QaJfxq4ELzN q7NIAcVk4sL5LJrYzVfH4xpJDlSbAr7UoppY0Mp1b0CTDFxWuR6eUtXELcno M/4U28STJWaqHmNNzH51P6iuZYPg/U5npWiviXLaP/Q78taIc3PkWcmemiiR 33QjsmqVGJhZn/0TrIk1K6ytIeN/CKXJZdUjMZp4vNfL30PuNxE3tnDlSaYm VtjjfbnMJeLb0OdXQlWaeC5WYOy1xC/CdOAjd0Tzjn+T6rV3GT+I/N73J7+8 0cTGjlOWZnsWCbKuvhrzKU1Ul/V67fLsG+HY3rVRuaSJDDxZN99nfSUetrSZ sVBp4a+jiyOSeV8IrsePU/7j1EI0V3ke82qGONPYMDEkoYUaPeySbns+EX11 VbI6Wlq4X7stHKOnCLmq4vN3zbWw5uDipwHOSSK6NOc52TEtHKh4/+7zlQ/E l4J0ZjdfLVSoZs8kbYwShjlJx15e0kL9n7TUKfeHieyMmBKZm1p4UepP4+Wc IWIzLWI5PlcLicm/fcX3BgmHpFD4VaeFb4zofVa+DxCNcWdjbZ/v6KPYzsZZ 9hNs0X7vHwxq4de+4oTAnDeEX4TnXr4vWrgx1VayNNFD9Fx28b+8qoW99PP1 2tBNSIUceTxFp43DTKJhwQsviWtnbWhNeLUxYJCmZ+LNC2I6wOJQqaw28kbk BmlOPicIX+McBn1tXGVpJ2h424gMT/15P0ttHC/oTmcNaSX+ntDQHHDWxkci J07fW39K2B5XjFAP1MYum+fPZA0fE/VHpN6kh2ujPvfGrOuLh8RuOxG+zRRt 1PIr8P4X2Eh4W/F6Ohdp48hsivUdhQai04L9XlujNj4NPM1ZYFVPiJkx/hPv 1Mba6NeXo7NqiTBDaosbI9pIoa7rcl+gmviov31r4Zs24tOOwFFSBaGjvTp9 cFMbY7t3SRc0lBLpaj8V7jHpYE6L5fuiY8XEb8W5EC4hHby0XCYzo1VIWMlO d1xQ0sFceXoaubk8olpijO2DgQ7OZSudcWTJJehFB4/jIR3UDrpTYk9zl/AQ 6C0vcNPBr35cmjNqGUQ7T8cKzTkd7KMvJWMvvk0Ic7QYekfpoHd7mwSXbRpx mflhQm+6DpLSr82I16YQo/R1o0rlOmg3VEDFfymZ0KApl0h9rINDD0weDX9N JFLJC86s9uigkItRiCDNTeLnZmbz0Y86qFP4i2MlMY7Y/zeVvvmHDjZXH6g5 7RtDlC/H24uQ6yLvtbxj/inRBM2PyPxrbLpoy2clkEQeRbh9u/J9dq8u/vMw 2sd07zrR+jlYx0JdF03XezYeF14j+KcCI6tNdVH440g002AEETLuPcDqoIvX Pd2oaCCCGHp/UvCsly4a3W9/rD0TTqi8dfQeDtFF/ZH1uu62cCLxtV2jbpwu 9r3Q5vQcDScWuiwpcu7u6M9qVZFkI4h9L8wsKWp0cdGL11C9MYIobsUM91Zd ZPFb3LgSeo2geKL9pbNfF1Mp9J4whF0nXB6oqMh90sXYuG//WT6PJJ7Uy16+ +XvHfv5ssJ15NMFTLda9RK2H4rk3x7s5Y4hzZQJc9tx66N9p0b8hF0cMFHKd eCSlh85b1pyTKQmEUi5zNb+OHvaQYvRYSxOJuEy69SsWeuh9vQ041ZKJr7fI TT856uFy0rmYphsphGnyepKpnx7+oXj06u5yKpEfv/yh7IoefhP5mlmje5vY jl6QZkrSwzf/4u/kt9whHK99PhuQr4eBXufNFK5nEQ+vfHz29p4eXqTUU4pJ ziG4Lr5n0nyhhx4fcpZ0z+cRZ871HckY0kN9kYdvJawKiNeBXUVbs3poMLs6 SeZQRMidbvvlsqaH5kd6DvKllBDRpx7rt9PrYxxnf/9emnJi5mTDDUl+fezV Puop21hJGDpXvYuR18f2pOCsqtIaIvtosch3Qh/fHY3i7QmsI9btck5bW+kj 7Tfl4jKNe4SDdfqjBld91L9is+ImcZ9o2J9EzfOfPmZe90l6ZPyAYCPFWF+8 po9RZU1dVWmPCD+jiLsf0/RRSJem+7bAE6KbCJ0zKNHH80xbX0SnmgkpnbPq RQ/1kWM7IbN8qZW4pu53la5bH5lFoh51324jJpU8e33G9PH5Ue7E4RPtBCHn sufNgj5+L7wa8cu+g8iQPOKusq2PxT+ubPie7yT+itrUpTETqLgRujDxspuw FbTY+itM4JMv96OF9/cStXuMzR1VCCyZfs8oTtVH7ObUT2sxIrDhrsJVl7B+ wptFY0rUjsDte4xn+QTeEh0MivKRHgQ+njKOfj8+SIjRSl2YO0/gkWdC7gZt Q0QYhciL/TcI/Cn5hU21b5j4uLWHtTaDQOPkE46Nu8YInTU2J/ZKAqviyfbR nvlA3PrNUHbuKYEVspGHLWgmid8/qP6MvCbQzLPVLdJvirCa30L9SQIDfQbW ipanicovK3G5vwhkCD9479HtGYJ++scwJSWgnPgVml+OXwiPD1/FPDkApQSp 67NMvhLtw1MB3eKAsV1m6kq23wjhwdEn8pqAFiL9B4xiF4jQN2/pkkiAkadH LqQsfidGu3tsfx8BHNO+3kLR8pPQ6HiRe9gHsDNKL+St0BKR/Kx5oSkUsMf4 yOz7jGXi55MHWoIJgBo/D608U/5D7H9Ye+1qDqB1LYvN0S8rRPm9sr6ZWsB/ s+ISV5v+EjQ1+fykNsB7bN7TCrXrxInyzFMVbwFPOv/ZCOraJFqLUht2fwa8 1N9QfpnuH8GfF092ZgVQOehgf+cDMtCzNCr+RomYfPjFySgyCph/BfuzGBEn bliefuRMCXfM9ZYOcCImsvIkVgxRAemlVvo/AcRw2sjthx40sGKsTtRJILZE fWi3YKWDwjblmROKiIIrR5g+vN8Fh1AhhmNnXF93oj7+5zEDkDfLKHUgYs67 ojdyLUxQoys5dN4c8fRFBn3ZT8xw/NHeUGkbRCsZSvVBDlZg1BQWHTuK+Lkn n0VjHxs8buDvjDuJWO+nKFaSzA5eKnv8CF/E97aZQXw/OIC7lpPjZxDigCg5 z00XLuiQZ2vKu4SY+SFWgeYrNwRV7HY5FIm42jYxGBe5B0SlGWiobyI6FN5l 1tTng/5i2srG2zvj6kpGjTCTAFwRo7I5lYuYWuSucHpVEBTyyf7uKUOsyXF8 VnBZGMaFtu6+qkPs4tZe+XlTBGLurhldakJ8VPZ+TKdWFLT5VuYUniN2o9NF kcm9MJu+dHPyFaJnndIekrA4pHH9UE8e3OGrrUZnFygBxqnzY0YfEO9Wfjr/ 660kLLF+vfrnM+JWrrJ+F0kacm/OSJZ8R+ykIL8V0ycDB5mmeh1WEceF+Gc/ +8jBVsyH/+jJDJCrIz4onk8BKulG9zyhM0CyRBMO9UlFOBo51HKa1QAnXUIW SR+UgI7qrbsQrwHKCcdOVb5ThgdX3zD0ixqgdA5jSd6ICrj/e1UXLmuA2uRD N8PnVIH9UudhNTUD7P6T2lVOrQ5t6+1bn/UM8JB6pvhZBQ0ICH5WcNvEAI+e 6f6g66YJQitPzc0tDbDUrtzeoUQLev9r+rFub4Dctx98FP2rDRd/NaZVOhvg f1vb3kv2uiDjf0/3+CkD1PvNa83frgfDCzVTzIEGKKlbvb0MBER6V0Y9u2CA t61Dqru7AdS/lsr/F26AJKGM+PP1CJ/ci96KxRrgcRBKt48ygORPeReGUgww L0l7XMLNENA1Wyg6ywBZ796iZjA3gu8fM15oFxlgpO/02F4NY7jreNtnvsoA hUpGuRNlTcBiNIX1bqMBnowY1PSVNoW1w4kPLFsM0MH13aEBRTMofRfnRNZp gCtvnH+NECSwP3SDsr7PAMkLeN7ftjcH6v7rZSdHDPBvutekwPl9cM8y/CDn tAEuN5P6Q3ItwLXn8p+Obwb48PQBmaaB/cCy72Jm8LIBWmrrb31isoTml+cN ZDYNcPWmXtum9UHwNQmaHaMyxBGyr7fCD1oB3/OA+HgmQ1SX+E55ad0KuvC0 KnAZ4hbzN/JvZdYQ3Ow18lPQEHPui/Q+d7IBCT2PK/mShsis8zuQgusQDD46 IW6rZIgsjSaPMwcOQYSm8ytqbUPMrpoWiUixBeX7xwIfGBjiuZjlJ2UOdjCh 4sDttc8Qk5zSVbdF7CGh1vYp7yFDpBxrr/H9YQ96CtYne44Z4n3JoIGPrYdh vuLArstuhih5w6JM95YD3JHeV6N42hDLT7cVefofAbMSU7ups4Y4f/ZzmvH+ o7AiZrSRfNkQ31h3ZdfJHYPCfMgzjjJEL61nWrEsjmAjrGe2cnMHL89HvmLV EciztRZL0g0xJr/49tcpJ6jhU085kme4M58ufuZ+cxyO31HWZig3xHFgH6dv cQZGboWJJ/WG6BE3Ztnp4AJNqTLX/R4b7twvNod13rqAF5ukrHC7IT5w36Jt s3QF7sS9/f09hij47GyawStXeMEkfD7inSF6Ox0hyyKdgKBYfgH1jzv8fvuk 1XecANFde55/+WKI16z6gt1NTkJfJKdX+g9DHDtyrzal/SRcoWJj3vfXEAfk WJX5jN1APnz3/Q0yI6Q+nPR1+LkbjP+jP1a1ywi/CZ57XWrkDjGXaMmd2Yxw LvbOL/fn7qC1QVnCwmeE2xWB0d8MPWA2mOxA214jHHTioGBp84C0lc2l/+SM cOqeMk8NeoJR0Fq6uLoRjg6sT+U0e8LSrz/Ee30jNCT7NvtI9xTk+i/NRJsa odZ/zlqDD07BwcXvMToHjdDdgfrSCxUv2PKeV1o4bISmXgssbpVeUPF1duiu ixG2+lhzR4p5w1GPmdCDXkZIWllPJs/0BrqZSVHyM0Y4PSNwuZLZBxpdP3TW hxihFWvjtGO4D7hPjPi5RRhhGDsuf13yAXanIQ6uOCOk42rdK+nqC22jA00v U43wixS50fceXwhweONy4a4R/plbTeHUOA2CQ69oZIuNUPuTymxQ1mnoPdRZ OV5thAnZhg0z/07Dxf52m4QHRhglQqlKuPiB9MFnf6HVCBcP1wYde+oHwz1P s3917sQ/XB3Kze0PkfuajAv6d+L5b8nB8rQ/qHc2frMdNUI/gQXtDy3+8Mnk XiLNJyP8d+63sTVtACQ9r9F4OG+ESfJfyFvkAgANKse9fhuhMlu0m5RVAHxv Lg3n2zLCjSshjy8HBkCWXpFUL7Uxsg97CjQkBoBFU97ry7uN8caZmjOPqwJg TTM7SInbGG0TYi9HdwZA6f0M3mkhY3SyKptlngoAe9XbrSlSxph6XAbNVgOA qi7Fw0TZGHMU6ZjEGQLhnkIi46q2MTY/7e/J5Q8E18q4+lJDY3ScebJVLxsI zDI3HI5aGKOaE/VeO61AaC65vs1ga4wuf1O6rhoGgq94eOFTR2Nk8piLVdsX CHwFl/f5uxujZw6J0/tgIHQJX/wp7GeMRc0CYsI2gXA++/ytgXPGqDGSHWu3 I0vwB+ldu2KMrzSL1OitAmHwTsC0erQxajI3C4BFIIRzn46eTTTG7vIzR1eM AkE5zUvhzh1jVHrWyaqqEwgTbB6D+/KNkeP85sU1+UBISDwRsllujNaO5yYs hQJBb7ezcPU9Yzxxhixee3cgfIs91uH8xBj7dxNjresBcGeXgy/rC2MME/cR WZwJALMoW7bnvTv5hFN1L3sC4A+V9cOgIWM0272n/2h9ABSGHzguMbETjw7/ vbq0ALAh20c1PGuMA3mf/IbPBQD5ZdPyGz+N0WdI7e+YXQDUbBha6a4Z44Qe L1e3SgA4XYCVBXITFMo/cKSOKQAYV3WzsulNkI2wEDPs9YemIC1DK3YTHNgt FGdz0R9OLal9Jec3wevkaH5f3B+4A5QT7omZYPnxG3/jevzgxaK8mru8CQ45 GTlt+fvBfz4yo1waJjh5zcJclsUPROckwjoJE3xQ3HpNr+o09HnslQgxM0GJ edL9w2an4cqMUI+slQkq+NGZFH70BfkT/Gc+OJhgA72z+b7/fGFsgofnpqsJ tvdHeJ2h9oUYJ85m9DbBsnCOFyZpPqA1xuq2dMYEzTlrRhdFfeCLw276wosm +JSmwi+12hvShuhr7a6Z4Jdi2jMntbzByJbWnjbeBIs5C+eutXrBUj/l5sM0 E7xP8e6dqJkX5B4ky/fO3uEb5cPr2XMKLHs3zfhLTJCqHjwvWp2CrX1ri701 JjgTYCVy460nVHT+Sbny0ARNHt7Y/8jOE46YLmkrPzNBrMRzau89gK79+8R0 lwmq5Aflijp4QKPB/PXUAROMvD8tXzHsDu4ts7KmYzv8E/6+/u3gDuz6M/2r n0yQe6jOX3zEDZ41TZ4vWzDB4XJviRNH3CBA64PAsT8mSKdUu/fNyEkQbBx5 zrhtgsFS3AU3j56EHtUhr2YaU0y3EvrwYuwEXKwbYA5gNsWmVan1ZKcTIK34 5r4IjymOiF2l4Z50heHKV8feCptij3PUbMBJV4iU6SS/Lm2Kl+h/WDfPuoBa aXuJhoopFjALPOM77QKfxJ8d+KpjijqsRhOkWWdIKni6fMfIFM1f3c6bWTkO INJ0x2K/KV6WrubS23Ucvmc3wpatKd7Wsf12SdAJsvjvfa52MkUJR2vhIQ1H sMioiXXxMMUlF34WP5tjsMZdqczmb4qLohknfAOPQkla6fvn503RyniI9U/K EbBnL7p0NswUuY8Ve0s3OQBVUt5eyRummHBUgkVq5jDU787uGk4yRbGeDTIm tsPgGpfhH5Nhihc09mf/MrIHZvrbnHoFphjGatOwcMEOmqNSHi9WmGJsc8g1 tgZb8KVOdM1pMEVmmdW+oKVDwBsRR2v91BRLxErnRNUPQRfZjSqKDlNsmLds kg61gfOXrx9qeG2KletzIykvrUF88+qa+/ud/P8Wz/TitobBC5dzuCdN0dW4 W6DOxwrCV0NMur6aoqAIW9t49EFQPnt+PuSXKSqBWpWpkSVMLP2XJLduiiQq 1sUcmgMQHxCg+ZHCDHcLapTMDFiA3nffDzcZzNB0X5gLU+k++ObjFWHAYYal /K8kmSPNIX3OXXqZ3wxlJy2ejfmSwMzzxJtCcTMUzvYZcHU0gz8zx8/aK5jh 3+o/TPG2plB44hgfnaYZJj0PdDG1MwGbycPPHoEZwuRV/qDjxkB23NbTh2SG UTcFJdf9jaBmzIpJwNoM7czi9zbdMASnIwfuvT5ihgxb37NTKgyA4b35kbAT ZsjcaKrr9g6hydb0n7KPGXJTjI7Q0iKcGjAs+vSfGfqGZt+oCyOAywos0kLN UM1sosaZQh9e9Or+Mr1uhh9OfLPqStaF/yy0bv+NN0NPnbuHM5V1QLRLTb/8 lhk2M8c2hX3Ugj5T5U/HcswwKPNbu+gdTbjcLn+DqdQM6+5QO0m7aoC8oYxi S60ZjrEyk3Q11GGsReJdwCMzbKAy99nmVoMb+nsviraZ4W9BD3oeGlXQeiwk MththpdKuCnlyVTgixb/y+tvzVCj9DH1NLUypDXynNYcN0OOFNFXY1xKYKTG yT43Y4aMtq8TLrsrwK861kcZi2Z49m/lvZP1cpCruNt5/8pOfMX9y/XssmBZ RU+9vW2GRbHZbY+ipWFThraihpaE37K0PF6ySEFFKaW1KwsJy/2FUb5CAo5I kK2y7SFhCpc0CxwWB7rCzax2ERLKpMwqH+IQg0aRNcNzMiQsPvBosG1KFNxy /nyVVCUhdVSEwrdmEWAXWEoY0SVhBYV1mVSFMDzL+K4Wa0zCd8nz3G0WQuDP Mz+qd4CEvQdf6i47CoDgrdmw73YkfF71IO5hNB/0sM9I5B4nYceog+Vi7x64 mDTZY+1Jwn1DNh5BsjwgzfzhDGUACelMxa9q5XLB+7gRnvvBJEylVVaUk+WE SPqhZo+rO/I/t3XzV+ygFj3gxhNDQuUDv4NSr7DBNPUb+u5kEgocDjXgMmOF pIhXtRczSVg3T8Y5LcwCQN5pL19Iwk19koc4z274frl982MlCSeSN7vSmBkh a7M1P/E+CZUYl995S9DDvpCnJMNmEorM7B3cdYwO1lYffV/uIOGoSkPZbAUN lJxtTC16Q8L3tAZ50dzUYLdcr3N4mISHP4gohGVRAlVgzSTdFAm7rK3LArQp oP57RWTTHAnVqIvpGBbJwMW3VM53iYRJIxsiAr7/iN3fCgcENkjodGKJNkli i2j2zAt+Q2mO7ToNKZK0G4Tv57uCVxnN8QKvslIdwxrBezKjXYXTHIMXXWV4 VFaJzslb3jMC5vh79Phv5+A/xLnjKSy3JMxRsGvCrXB8mZAYv9lopmiO/iMM v3mclojBI3GOa5rmKLl1eoX2708i/H00RQWao8F8ZVXB4R+Ekt31Ukdzc/z/ v6P/b/l/ALs62Sk= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.006944444444444445], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxlemVUVu8TLYjSXdLdDS8loDMqLdIpSgmI0q2gdAv+KCVEOqVeSlJKRMQC CUFBEBsFEVFBQC//D/d+uefDc9asZ9bM3nuec9Y+ax1BF19zt30kJCRP95b/ 3f+/y/TD/IXpIIggdAsKOg4Aic9zmgPXyiEojFlpLnQA+ik3zhRiC/jpb7CP XBuAqJd/VTQ0euDdeOPNxbIBEJjeT/ElbxAIumV6Qu17MVD/6GB/AC0fFxxT RvbqVTMsJGQ9gjs5Jp/YZwbALynFTYpyDGY57MuH3w/AolaafYbuc6DqZzyY 930AnL7/Z7YZNwkt9x7FXNsegLGKTD3He9Ng/PT0pyqyQcBT1w8Pk87Cymrr gY9Ug9BPn0uQxVfwXzCrpTH9ICjcy5fMjpgH566+A28YB6E49Bb/ds8CDB7W IitjGgRG9jHqpt1F0PzD8Sl3bx/9xuPf8SyBvpA63wjdIESNPifh0HoL6Szk gar/qy8yGX7C/h0McxdGLO8bhLWIqV8RYe8BaBz++/JnABRmp/2b8z7AxVjV 60f/h58w8/V9x0dwZyUsbuzxK06bPcc58wlODW9H0M/u8f34csno92f4vK1A ljs6AIzH5s5EsX8BRnmrtJtdA2BaMD/TovIVCPMVBcI1A5D+67XFR8sViE/u UdC8sTcP08WnXEGrUP9J+8FK9J6+tW8MjLO+wS6VhZae1wDkxvgvod0a+PGW PLKwGoAO+fWil5/WQM+7i1Lg8ADMzAWcCbr4HS5TUr7oEB6AteQfXPSU6xD4 5L6zNNUeHrWgmaqcdZiJ+sASv9IPCu82rh8V/wEvMlb+mxjrB/2MYItXd35A KPf9KpGWfvA48osxWHcDpvJvWCZk90PUl5Cn9NMbkN1S10Ae3A/Fub+vVrv9 BD411/ctlv3Qr3PR4NjPn0B2SUmtgNAPM+ub5HNxvyBldPjzE6Z+2Cy6NBTM +htW4vLiGl73AcfJP9EM5b/BJLRmOzW3DxT+hEENYRPsvZ9lWZj1gWnV9s6x e5swT58TxkfVB36Wl7vmzLeA6e3vEqr+Xkgi3Q0NWdoCRo6uZoWQXqhuuKLC GPAHotes/jVI90K//d/1GtJtUDK1Ci1avAuLlJHE4xnbkHH4yE2e63eB5M4/ 73mBHdBNpPVHg7vAcTZKOpS4A1useElktwfUGUk/M+IuCPXFlb8h9oDt3ejK 2892QW7ht0G6aw/4Xdjnqu34F7p5Gfj0OXog/WCs4OvVv/DJTlhK4HE3VA+R LYRG/AOxuZIhuahueKd+7CklBQkKOL1PTlbuhqD/9tVPGZOg5Xy7lc7nLiD5 MHi19AYJipxbNAop7IJ0rdgLvq9J8N629F15yy4QyDpuoCVGiq0NNmux1F1Q 95lMgsqHFKeyImriBjpBC4fIp9tIMYzWsP3YpU4YuRH3vnSXFAfO3qJ/qtgJ tivaQ746+9BVNF5Q9UsHfDp+oEwrbR8+tP/dk1TRAUH596OppvahZuEV0Qmn Dtj/Pd5pmocMYy6y0AnxdkC2ni6UuZJhVtAR9uiX7SBQSM7nV0eGlrX15Nu5 7UDcGN7R2iDD1MnYjTzbdtA6kfiKSms/xpL4l7pztsPjEr2u6dj9eLr8q8f5 V3fg9CZFXtmj/UiaydVUU3gHPhmPhPqxHMALWVwMcmfvwMWKJOvD9gcw3CXN YEfiDlDu6KtQlx3APOXsM5xrbZBtTsX6YvkA4gWJ2OSONhCpebhepkSOH4lD iqYxbdD6L3ncL4wcW17bivqdbAO0NiQeHiTHumSfK18422Csjvo/amoKJH71 Drr3sRVOkz3yfmFGgVrabCWbd1rhq91Vo/I8CqSYT+e+mtgKl4knpP3fUOCP hTn9MLtWoKSgpT4iSYnqD8c2hmRaIffM40/U/pR4g8Hd9jxpK0i0pj540UGJ xszsAm4vWqCV+mRlOQkVTkUaBLQ1tIC2M128vz4VauZP/LRObIGx9idnj6RT ocWvwBkd5xZwor92jGaGCjVS7aauaLXAmqux4Aw/NTrLle694lrgcjc9ScU5 ahTtHt9o+9UMtMzPXvs3UuNIkdbV2qlmKPD47+6R39TYlOCsMNXWDBJ9JgU0 QIMEU7l7MjnN0MHGGD6TQIOVXTLTtZeaQdtrzK7iKQ1ecMtqO3GmGSYH09UD 2GkxTkDd+8CxZnDlNDsIDrT4dMDp6bh4M6z5Mv2iqaTF8V3f4Br6ZogaHp+c WaHFfkqvZ3G/moCRN7OlQoUOT1Kc4T+90AQFgeaZAVfo8GN+dKz4wyaQGWX2 h/t0OMVm++d1SxP0CEyY0NLRY4Vw+LmwoibQD82Sm7Wkx6ZvprnfrzbBzBML usoCerRgSNXXutQEriKsXwPe0eOJhiti5ueaYCNschRkGNC9Wf2FlHUTxI1n 19AGMaBbX/yfuzp7eCSskma7GTBSpVqOTLUJTPtSCBOkjFgbsMGyLtYEucvL pZ2ijFg1qmYaw9EEr9lOMBcbMGL++HpGLXUTiB2tjU7wZsT/utyz3HaJ4OVF 890rgxH/1YXwVq8RoTXH08mijRHHWRyoPd8RYWfw0bNDs4xYTHZYv3KGCMdW pUFglxEdvoW/MntChBTO1AZyQSa88pvijdsgEZ5rf+Vd0WbCRaXz6S/bicDh Z5Q24cGE/xxbD1fXE8HpZt1OZyoT9l2ys39QRoTKYVqvYiITrrWOhSvkE2H1 u9erhEkmHAoQt5hLJ4Iq7xND700mrOvw6biXSITL+rJdFjzMyNFPW7UQQYSh wDRJDWTGTvkfIBlCBNqilVwBV2bkTusezfMmgvnoSUqKJGb85Ft7R8qNCPk/ 60NXapnRdqvk5tRpIiwK0H+ceMaMIZRrGtmWRJAw8rHu+sGMDnk8UU5GRPAL fXq/+CALuhJvRCtrE+FOqZxKoiYLqolYR1NrEeHvk2vl3o4sSJLitTJHIILu 1iqLZSwL0oQkOlVKEyFVxCRWo4oF9yu6lToLE2HSpHFd4BELJn7TqqbiJgJP OIMLxTcW9Ijnvp7HTASXSt/xFWZWNAhT6aKlJsLt8Wc4qcqK90zkcxxIibC2 I0/sOsWKkec7W9m+N4K6RDp/SQQrsuesDnAtNEKUxdq1xFJWbBW76TP0uBGG I0z/eg+z4v7FSUWarkagv030tlxmxSFPzzcfKxvBeopxXoOeDfXZeJotshqh gMTfSFCJDSkaO9T0IxvhnfR4N4U1G+YvH3Xru9AIUjaK0quX2PCyyc/UFqtG CIjJyJ+8xYbRU8ZO/NgIXfXfqboH2JBA/vfbrmQjkMyaXSp5z4Zv3J7WGrI0 gv7+5k+JVOz4ajjGhXSnAdLlmW19ZNlRiLbsKN+7Bpg+FfDA0owdHYY1p249 agC+hOeqmsHsSP33GsWV5gZwbVKqFMxjxwSPNoHO3Aaom8tko7zLjvwE+WGT iAbYoPgRt7rIjuaRZ/8cOdsAGgSLjcn9B7GjkI4nXq8BYhxaznZLHEQCS857 AekGGE1mmSgxOojxpme8mOgbgLEt8FiS30EUObTEb71WD7aLE00+2QdR3PjD yOp4PRTTKAtadRzE8VTPpFfN9fBBNTtdc+4gGm0WTfNk1YOcy8Y/QRIObJlu iG4JqIegNEtfSpG9uCm0rtisHno6Wl+v6nGg4yGpJ+/l62H/O1bjKU8O5FIb ro2jqwdDhuC73f9xYPxYhFPkch1kakzJlLZwYJ0vifnMcB28dFMpSHrBgRo9 uYTM0joQyLhO47u9V18KyYhX6sCj52eYFT8nkg3GUajY1kHDR6tlzeOceGbS 6omIUh38Yr5jJ3SOE4USiaKxNHVw5Aj7Q8qrnFgoKits+a4W4s6HqH9r4MQ3 9t4HC3pq4XH2dNXUc05kzvNMd8yuBdZ+1YM9vzixaqfWqsyzFk59uZFQysWF TlYmbl7HaqGU/ffPpCNcyP2a8nsfRy18Omrj5uvChQzJv0+Vrd4GBe/2SasE Lrz07KwSz9BtuJh7UFvrNhd6C5xVUMi7Db33QluEnnJhsJyL8nvv20D+7YUQ 1ToXFkfm4NFjt8GYSz3zGxs3SjxwDDFkvw3ZOrmk04e48U9zPDPFcg3M+W36 9ZzhRtnNkPNX7taAUIHtYmk0N1qleLxtSa+BCw86TJIruLGZ0muTeLYGmtc5 +nwfcuNK0kWZcNUa2OS9JGe9wo3uZOdpOKlqAA1mb2kx8aBC77pIxqtqSAo6 RCeswoOL0jcol+ur4WlR3mUqOx58OpJ6VCqqGtgfbX35dpkHbbPvmNuaV4PD Lzv76WIeHJtMbg4TqYZywa7RniEe/LZE8SDnVxV8NeLSKPvEgzb3O9+0jVSB 0sWwmmRaXnzv3a75Kr8Kwspecvgp8GKOX893Ou8qGHyqkWRtyYvPGU6SWEIV UP7J/611kRfJw1ahhakKTEW33YULePELc7Cz4rtKyDW1n6bq50WHW57LE3cq 4XV4t87aW15UZ7mhWJxcCWJV3G3TFHyYQL/1Pe90JXg9Dxe5K82HeeJR9/rl K6F191VWmQkffvk9zSZJVgk7ElpkKYF8aLCgi0+nK+CYZUGAXw4fJovLvW69 XQEpkTtvrLv58OZZoeuLERXw/PZps8MLfOhG847HyqICOKZ7+oXJ+JGBME1g l6gAJ1JeBWpxfvy2XpMutlsOlTJXitYM+ZHuybsryc/LYdVmnv6FDz8GbxES jlaXg2rs4Yi7mfwof+PhpGlEOVxuuLVSdocfi+tfLXZYlsPQ7O7plJf8CDSS vpely4H2gMNjv7/8OM/5kKNgXzlIcizckmYSQEsKS2/Ol2XwRPa/KT5hAewi OTuw0VQGfseBjllFAPtDfqzIpZQBq9037QN6Atizn7TxgUsZdPgUXd60FcAk T/LnvZplYB9n0vrlggBqKFj8ZmErg395/768viyAXx6eCxheLYWyxkbh59cE UOaVW9fkSCno3ne0v18sgOxshQ8Pl5XC8kuGrI5mAUxfoPz870opXFvrG60d EkBejYB/HHaloEjut69oWgBtH7c/SFAuhSluAY3MTwJon7w1p8tYChcVx/zj /whg8FFlQ+uvJcCjF1VzkVYQOX8MhDePlED/aYU3nnyCmBi9PmZTUQKuAYsc jgqCeLbfnHgspgTIk9JNzY8J4qyrZ6ivYwncvoVJOpaC6DpllfVSqwSMW9b6 1N0FseGpeHskVwmsjxT/lr4oiIYXu2NPbRbDjdem8vwpgvhaL63JfboYNDZI zjEX7OWH/N0uai2GOaqmwgMNgritciiRNKsYovidpzf7BNHlyNXsBP9iEFFh ov86LogEzlZjKdNiGDEc0Fl4K4h3Ovm1P8oVg5eT/5XnP/fwBLrEdNIVA32I YNt9CiGMCCjwUpstguar4187OIXwk+lvH6acIrAuiRapkxbCRD7TA78ti+DP HcXTRYeF0InJU/E1cxEUPn6TlWkitIdHh/zuWCHgUsajeGchrMQp/eRrhfDu 91GyS4FC2FFF9uaQUSEk0a1reMULYWaol+t9qkKQES4NcMwRwiHbt+RCD27B mLr5bfMaIWQ4qXJLN+4WBBnvW9LpFkIeNioJ6aO3gN21mfPQEyHspjyQN7xb AF2XXMxkFoRwXYV1gLGrABz+Y07m/y6EN6tcHpOGFMC+isF+ZjJhPKbpapCp WACVXQGbB9iEceDIJF/315ugPyaksCUmjFz/ojSDq27C1/fPz31VF0bjFT5i t/NNSN+OKVowFMZ7lldEk7hvgjIT4cXz08JIxVIfMDWZDzNib+mHfYTRoCzo R2FaPlzWytLtjBJGI/+81EWdfOAzPx5RlymMMjatjTd282Dw3I+2onJh1HkU yNjbmgfuV8pWMu8I4zXewRRLzzygzrIQTRgRxnIH6XZbwTxoqCY7c+mlMKYO K4s8nM4F096WbK+vwhgQ7i9acTUXNibOPnb8K4yP/kV2fYFcyP3Mst+CUQQ7 ODaHC3/kgNa/e5q6QiL4wOfMXG9lDiyyBgUeUhZB6ZObsiftciBGSqRWRlcE 1dM6zp6kyQExnFzitxVBnc/9hgM9N2DUKo6L5YIInutkZqv3vgE+nsrm5JdF kPOA+RIr3w1gjn6XvJUmgq0Xzdh3n1yHOzeyB74WiWCRoNSHC1eug22d9tZC kwh63jzG4CpzHXYGNhQm7ongIVv+idWX2VD8otxjeEoEeSKerTMlZ4P2imVx 50cRvK67XTOpmg2f9h2YqdsSQeVRRYcj77IghaONoZhGFN9nDfjYZGSBnJyb XhavKN5+tX9e4kgWPD/OFpkgL4o35IdLu5YzIcTu/p1LR0VxyDeb/GBOJnD5 Bq96WYjiyo2d03rHM6E3TlTMyU0UhQiDDyy/ZYBT/tQZi1BR1KfTmze8mQH7 ifHXdZNF8YWRpDtBLwOq76s8OXRTFJ+HAzPnj3QwevV+v2y9KKbSDoyQF6XD 2tp1LYE+UXwr0XyT4kQ6ZJLrBrGMi+La65Kok6v/gSrPr1ryt6IoY75Nv6D7 H7xUrHy7tSGKjF4GdS+LrkGEnjX3CrkYBjQ4a9pspYHQGXKLRQ4xFNYndfS0 SIOhgDspE1JiqFewmCbbkAoeSe6Dw1piGCTpGnOHKhVoC9n/dBqL4Sf1yBUu 96tAbBlWrHcSww/FLqkB91LA8mHI+eIAMWxbf/B0QjAFNl+LlWTFie09vxe4 LaOTIX9jeibhhhjO6UzWUC0lwRHqRMawajEcfiz+hVI7CZb41fS9u8TQ6CjH L7eqREhQ+Rjp9FgMe4Zk51VoE0HqRE67xWsxNBcQu5UWkACPnfS+6a7t7a+s j0W8jAe/kN9iGvvE8TTl+ze82vHAmlrlIMsqjsPVC/XhjXHQUWJzQ0BMHPef rEmp4YmD0+0UT1nUxdEoo5er42oskDxpP0BhKI7NMsa67TsxULp07vAfe3GU EHmrfMc3BnQ3DwaveIuj73yv3r130bBMN1K3GCmOJhTvWL/aR8M14YvvJjLE kZj/3OXwVBQoHZLgeVAmjqmpGyL3TKNg0njGoqtNHAO0gr4z3oqEi65JV+sf iGMOYURX/lYE8ISp3yueFcdFsx8CGyVXoP+/T3+yvojj2vUtd7/ay+BakauU uCuOSgfSUps6w4G8W/9CGIMEcpw8pzL6OAxuj22WeAtKIPfyw/J77y6B8Yfq WSeCBMoPxEtXkl6C9W1bJksdCXQ2taGJEL4IN5ioDPRsJPDovXotM8NQ0BDv jNI4L4G9nNOP+EJCYE7rfIdsuARO3fbg/FkZDFHmnGsCaRJ4avNl/sRcEIh4 PBRnLZLAQ5qjax0Hg2DkyiVHiiYJ3N/Ha1duEwheWZI5fwYlMGbXuzirIADo a2afrkzu4X3XIRv7wR+ae5PJ33yQQB5iL72Pij9YTx46MrkpgbY3/ZpOJvvB n8+fgx9QSyLbSuus4pAvFP7Lq+/ikcTzVv8cciJ9ANkM39fLSaK7j556s7Y3 vJP6w1OCklhyoH7wPIsXJOFty2xzSQy6NU1W++UCyFifSk10lcTHv0Tmzjw5 D2Oe1ENhIZK490GV4tbhAUHRXdveSZJ4366CUFZ3DthzLhCc8yWxOfwU92aN O3TVcXla1kli5wEimzbRDRwGR0v1eiWRhPtStVufK+ybCXupMSaJGYacUhov zkLlihSz3JIk5v8KX7z12wX0yV4ZCG5IIndUC7+XgAt85bgazUouhbaWUh6R Zs6QLqfZScEhhRTcZnFNKU6grP1l7Y+kFLr+9DrRnuMIM3Y3JVY1pbCH/Vtm taQDXPY94fTmpBTONx7NWR49DXzx2zmTjlJYZWM6ohJuD4P5tc8e+EthXkz1 SyWNU+BOtKfojpVCXHjrn0FhB9TDNNBwXQpJHaJfk721gYZX3SElVVL4VG8j Q+WxNZh+92zI7tzLJ3jmvxy0gg1yng+Jj6Sw5s/j3ZJhS8jlecwbPi+FPyoj 7A+/sAAtpctWPt+ksPZ7vqLjhjks6smkOZNK465N8q8uXnOIOTM3ZMkijTRB d4h/zM1ALDB1R09UGjMcD48vZ5nCaJKWsqaaND5cSNPy7jcBn8KvnnIG0rgQ Q2Iq4msMzK0FZYL20pjDWs9/gXAS7jw0esXqLY0ufTwPn9Mage3CDjNlpDQe TZ63ePLHEHY26gy306VR9FaPxKcdAyimPhOzWiqNkuGL6teZDUBbgK7rTas0 Wl0RTjLV1IdPKne/Tw5Lo31l8gliiB6knPCWHJmRRlr5+m8nh3RBzpnXuXtZ Gg+//TrTKKwLz0Oe5DbsSOOR7yzFXtk6EJJ6ZayEXgbftk195WPXAa5SWcrr AjIYMt0aalmtDb3t85CkJIMVV+tdnxlqg9OTtNBwbRkU+8g/wrl7HPa/Pdzo Yy2Dzg/sbf71HofqzZUPzh4yKHWm5TRf+nEwoi/kswqTwUbf2Ydie+Z3TdjY Wj9VBkWq3fc9czgOmYf+pmkWymAP43OucfvjoGrScF+OKIO7Ljnt792Pw0tX h13BQRkkuAZq9kQeh4gwehW2SRmclO+a0qk8DkLpvV6UH2TQndXz1pGXx2Go wqd8+7cMrs+Ld7hza4NHN9/cKpUs3r78duvqeW2gHX/KssQtiyd9Gkkih7SB +CHixJSsLDJXktGyyOiA5Y5c7AjI4gmHiOe8xTqwybTQ1W0mi3PZOtahArqQ L/7fesNZWey9S+jYqtOFI4dBqjRYFq3UtqiidfRgyfyb8/VEWby6r6vw7Wc9 SPAoykvKk0WdpMk7+/L1QSrCZDy8VhaLOQMVJq0M4HHWP0rfu7L4H8uunRSv IfjVNKLLM1kUU9dR/fTNEFj7HC9avZHFa/d5c78/OQEdkwxE/R+yqDJT9V2q 3QhOL/d91Dwgh59OTQlfqj0JJCR+/PIH5bCC4bjxwG1jKGUTsBGSlMOI+f+K PrWagK702DU2TTk0eyrFsuxqCssYNUx5Ug4hJtCsdcMUrlkr/N12kEP35j8y 95PNQMlrUeWbnxwyMwgE0YuYw2R0uvdSzF4/h/ar0ffM4WIOVkxly6HMG65T DB4WwFO/NjdSKYcnLq8rVTNZQv9gMWtPhxwa3e69p9lvCa4zpkaNo3J4/IoK aWegFZCvksSVzslhb3wkG72MNdwma+q+viqHj9qdTSQ+W4Mxp/OPJBJ5nBlz Yt64bQPrckzSl5nl8df+5Qen/W3hhvaAi6+IPCJt6riRlh1onPLPd1GVxz5t nbYimlMw5yv43EpfHptnhf+aL5yCqPhxKoNT8pgaSHbZuN0eRG5GH9Xykkf3 aM0zvlmnYYSoeEk+Qh7nz92UzAg8A17Db4hC6fJ4kd+tsdrGAejnMj6xlcrj Vk+9TQY4QvP3owJUrfIonLVMdp3NCawp1m127stjt8rP36JpTvCHp/S/by/k MYpm/z8fcmcoVDJ/sPRZHg0l4lsdo50B9ff9m9qWx7iqDPu3u857/OxuviNX wDTMZP4Y7gJDhxTVXjMo4HHqMxY22y57fKkmXnAooETV85/8l8+Ch8kbn3FB Bax1ECDI/D27x7+T+pGUAuLr8hr3aFegccuoHCIoYPvHIOfOA24w73v+WK+W AmpVXh6nu+oGjWFHX7frKOChD4feGzG5Q3Q8Z1iTsQKSfaYmc8x1B4v072y1 NgqoxE7HIiNwbk+vh03lTgq4rJ+QcLP6HPyqKDlZeF4B66kmHLMVPfb0u/Q5 J0ABexMmNHa7PCC/2yw+I1wBy7rGrHq0z+/pKSl4NU4B6due57c/PQ9Hxknv xqUpYFelU82k7QVgmJu1jbihgD9fly5uLl2ANx+aNkKL9vDcfH2eytsTWr4n p/tXK+Ax6ePHv/zyhPgdZxnPJgVcqP1nGBvlBTYUGiOuXQrIfzjX8A6VN0gw M7s63FNAjkD/feczvffmsfzP5rECBgYnqURx+cBj8cGbZlMKaMBl3LZY4rM3 n3y1E6/3+PHe9PaV8AW/wwET2h8V0C+ixY+pwReO6hv6Hlnbm4d/Fak1px+w WAjRqG8p4MTmSUtmez94f+ZPpeI+RWxU48pRKPCDdo/nx6RpFPHOv+1XZXN+ kBx4+7UIqyJW9rxxc+TxB/uImDA+XkU08DeasLL3B5nkU+wcYooo/aFsMizP H/5mKTUzySui9x9R/fvT/jBWSG1Mo66IFDSqTuIsAVBas/R5/1FFZNYorrlu HABBrV3xfw0U8c9k174DyQGg05cpuGmuiBKZbfVugwFwcPTC3e/2isjQKvVf 658A+Dx5zO6LqyL6vrue+0kxELoXuH6+81ZEw2spJRvnAiFteT39dYgiBuqX uT8rCATHn6MyM5GKeC/NicFvLBAUSMpGxpMUseanXf+jfUGwjybc9VGGIpa+ yzm/QAiCSTYLkvv5inv+6aRRydkgqBSQLugtU0SHCmY26swguChNpt5Rp4gd DltyLH1BYKD6aqKpTRHXmLwj7ywHAffRFt/aXkWk/VJ2bpU1GFZOXKWpeLCH 70PX/bbDwdBnfbaqcGwv3rj4k8ItGDKcNY/nzipiDn/n2GJKMLh4sSxkLCni 9IzsEc3GYFAO/RJ29Ysi7i+fW2R7HgzkMffY4zcU8WjOa1rfH8Ewk3qzOWJX EX8Y88oeZwmB2zmBxhfJlfCiaGtqumIIXC49sezPoISvqHa/WRmHwMl64QRP DiVUPHozM/N8CPB3bAu6CSrhn1FlUd3YEPg+OHHXQUoJ2WbmRv1uhsC9J7V2 tgQlfESuxM7SHALXZ2J/mmkpYaUbgVzuQQi4v7XPOKGjhGnxz/bdexkC6qsE WR3jvfoSirMTX0OAeovm4REbJTS3edLusrvnd8neuao7KWHNhqpUAG0oNND3 kCidV8KvB3pYD3CFQhRndoF0gBJqaY038omFgpmIl7po+F49d9PYQYVQEJbX nuSLU8LYymvOG4dC4echHj+ONCXcDTVx6TgaCg+0N2iYbyjh7fK8eWb9UMgz eVxFU7TH52KgO+XJULhwqvz4gWoldLh29f4t01DQcru88JeohEuNEz9emIcC vZ9l+GbnXj9kYeuxCIXFMJmD64NKODMYEmCyFzfH72/58kgJ3SiEgnPMQiE2 fc74/aQS5kWOFucZh4LVzdbl1/NKyAiO1+z3/L54ZWrCzAclvMow9GFJOxS2 iK5Cz7/t6f2j/IzKkVB41K3V+2hTCfnMztXZqobCrWHWU/dJCZj34nCauWwo +Ix//dlLTUBhftc7EsKhgHNDGR0sBBRoT5haPBgKzB8LZJt5COigcfpqFE0o vPse9LBWlIBUg4Hn6P6GwJ0dI7cKOQIqPdZ6l/otBBIpREmL1AjIHmh0dv9i CNgx7xbkIgErIt9KXnoWAtK8U+qZBgQcKuo4s3Y3BHbF6yevmhOQuplqn29t CDxTiveLtycgjv7a2MoJgZLDZ2gjXQl4WUVy5fre+QnQV6m+6L2XHzgSqucT AtoWdNoBIQRMIPb+YrYNAXaH9wuekQQ8QWZctIMh8MnjbrhbEgHTFH9fpJQM ga7A6wcdMwhIF9V8WoMxBK5GeLfY5hMw83rYxvVfwXAmWcfEvIyAI8KSe04p GOSzeb+cqCNgbXH5zov+YCAt+pmg00bAz7tnpofKg2Gi5okQ9BJw+z2P+qfE YChvrehVf0BAp3qO99oXgiGk78oppTECxg7ZB8+fCAb9Uatf0rMEdBX0tWmV CQauKdlM0SUC3rpr+PwRbTB8XTggx/+FgN9+JFKIfQ2C3uX5hxwbBORSe/5z aDQI/vvZ5sa8S0Aaq8zw29VB4ExyjZSWXBlpZcfsZuKDgEDjfusAgzKSxeqq mboEwQH2I4f+HVTG8DPlZSxHguCFAPvUpoAyouhvLhHOIKiWXvVbl1TGgWvq VLE/AiFMdZj2q5IyFspuP1F8EghGRwur32sq42UvhX7FykDgMwrRXtBWxqC0 fUpxEYGwZm28OHNSGRs17wZJWQfCgLPY5efWyjio2DcnKhsIWV5/Dz52VEYm D9/7oWSB4BY63XLfQxl/GihcF5wNALWYBpM+f2UU9z0xINIQAFRpCV86wpQx 0mtsPCYmAF7lOCQ2xyqjrYuz22HrAKgrVRWuS1VGPrpPytaSARBRT99XcV0Z BUDu4LNtfzDt+HCqqFAZSWYt999+4g9C93p/5VYpY0W0COfnQn/YeHIjM5Oo jIb5hPxrvv5wf8ZHLrVTGVNF5n8VgD/kvNUdjR9URrvs/Y/ZGfzh/Cqfe+Qj ZXR9Uvrh77wfaG79Ir00uYdnhkPXts4P6PY/uxUwr4wrkjp8YmF+sEBfdcjr gzJeqbOd9dTzAyJn5JTbt71+9Oc5ZVn9IEbExt9xUxk3fC4Hvur3BUt5eTo7 UhUkHmouOmvrC2IaFDXm1Cp4lt3NdnvVBzb31DZiUcGJbue22jgfeGjSvqjD o4Knv1fpRHD6wM1T/10GURUs85BjuFLvDd5u5zgOyamgSQPztWb0BvCDViU1 FbSmVm2RnPACpvCDpjKogi2r+ksrrl6wFP/ti6iBCoro6n2j3vMPrekPEvnN VTCxxIM7LcETEm4WCXPaqyBhJZEpmt0TbCtD+5hdVbB+P8XSj4oLINVkYk/r rYIClIS/68oXYKdb/PeBEBXs3JUjpN47D0+G/2X+i1DBxwMXyp+YnYei8Rdy W4kqeHSh7v79BQ/wn2scXU9XwYUTdyxjvT3g+MdE9695KiicmGjOtn0O2NYd 930oVcGKj8Y7KUnn4MOOWuFCrQqOGVEO/WA7Bx0UjBqzrSpYWT6t71jmDinM n6ae31VBY1IBk3kFdzjN2+//eFgFzYSDO670uoGcRC7d8DMV7Ek6GW5q5AYk BL+avhkVPCNRku/20hXGD+vrdL5RQRqG87xPPFyhTF/gTfOyCn5nZyTP+X0W gi02L9f9UMEjS3MGEwlnQc9hjKNyRwV/KTqMZLCfBc7z1a1FB1TR/urSsaVK F1gOjDLNo1fFse9klpNqLtATYfs186AqvtM3PRf60BmuJSskpQqoYlw1e9NL e2dwyqYUSZBURZo6ZzG6b06gVLTYF6mkis3uYsG8sU5AdrvD/pKmKm7aNu5w cjjBVGv67wBtVXxdkp0qeNoRqvo8srxOqmJ4bOQOX4oDXBpFeXdrVXTVJ7zU 7ToDJ6Y4Hjk6qmIsVeRS89fTwLu45m7noYrf781+Dxc8DavLI/ss/FXxAjXd VqetPfT/LC40ClPF878q1mMzT0EmySUN3VhV7CogzH57ageuNGbTkKqKDsfs Cpnp7UCVXTLg0HVVTI3pFCIxtQUKQVJ6QqEqUkf2yj3KtoFZ6dkamSpV9D58 zCt+zhpqVZt0xIiquKLB6Qzi1nDlaPIb/k5V9MKoC5TBVmBi5HyFc1AVyeK8 O1fvW4KgzSFOlkeqaKE4ZPKP0xLWnZnaaCdVkdfP46+OvwUMeX02JZ9XRU2C ouuTR+ZwI3Tg67/3qrjN17pSKGkOHjF5SVure/k8H6cGU8xAI81f5MdvVcy1 zBTHb6ZAk2vQ/5VEDX8XpPbx2JjCfKng6Q9UashhGlrUFWcCjfVbvxeY1dDb q+Q+tYsxRHeMZ81yq+G/rsABOd2TYHGvRn5CRA1d+CLFJRWNQORp9KPHsmqo /Sbl9B+hE/Brxu7csKoaQqFhaTG3IYy8VSTrBzX03VUW5eA2gPxVqqJOfTWM TD5HYy+oD15bbzRazNRwRCY2zllOD47s75quO6WGs01eLwWP6QIDQ2ZA5Vk1 pMC5mPTTOvCG8wJ9sZcaXrlbqVh8RRtaRI7dzgtWw/KXtV+OVhyHeHku3awI NTxRa8HlNnEMbDTW36QmqmHCo4Si3xTHQEJn9EpCuhqy6tMuvz92FP6YlHJG 5anhhVfq1NxxCI9PhbVdKlVDzo930khzAArdzM0Ca9VwbL7S9Z/iEfDzk1rx alXDT2zhkX9ntOBo+L5k97tqKKplSHx0VRNYEl6KOA2rIXu/yYKioQa8T2/u t3umhok3fin/YTkE7TdTTlvMqCF5XsLxr5/UILnSZdPojRqyDVgpPB1RBfsm jWzdZTWkU3Wac21RAZkeZgX8oYaDNdK0QdXK8Hd4+dGhHTVUvT13rbeKAGPj g+cIB9TxMou7K3mTEpTO5ZPJ0qvj6489S7RDihD0MaBI7KA6ThfvzGYuKoDO uqGmgIA63v94vt2WXAEO7gq94JRURxarROPDF+TgM8V2AIuSOq65VF8wmJWB buYJejpNdUwZ8pyxspOGNN7a2+Ta6oiyMR+WPkuCo0SsLslJdVw9r2ztnyIB CgT7pS0rdVTd15wRoyEO+44QIn44qKNAUeJC7pYoTOrTcK2cU0ejVJUstQci UGnxtu2DnzoKUi9pvC0VhlCHbrPFS+pYfkhsVDBVCAzOZ63Mxqgjw/CvgbAY QeAO8kyeuKqOzgt1VqHxArAScVz0SbY6vr3pyaUjyQ99ydwDw7fUsUXl/Qiz Iy9kZP843V+pju3dFc+Ca7nhbNGjzc5GdXyq51eQTscFKrfLsls61DHxlItA ShwHULSFK9QPqOPwD82tNIaD8KLP4nHlqDrWaxRef1zPBjWj0h7FE+pY2+dh Ge7ACuFTZPvz59Qx2MCxaFKABU4uvirKeq+OGtnapBwbTMD/pUUzbVUdD87m qqW8YITvP6++SPitjtffDianZDPAPRLXwCiSQzjp8rOILIcOrtNoMYRRHcKu rdr9I3do4Bw7a20g8yH8v78vK1jFV582MPh/8f8B2sD5GQ== "]]}}}, {}, {}, {}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.57314020643605}, {0, 0.14116323144888382`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> FormBox["\"BW / Strength\"", TraditionalForm], PlotRange -> {{0, 50.57314020643605}, {0, 0.14116323144888382`}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"Broken\"", "\"Maintained\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.7507013289349885`*^9, 3.750701369038099*^9}, { 3.7507014413101974`*^9, 3.7507015085527673`*^9}, 3.7507020201809025`*^9}, CellLabel-> "Out[267]=",ExpressionUUID->"6a5cfa47-3fab-4579-8c16-fc6ae651c79d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualbroken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "broken", " ", "bonds", " ", "correct"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{ RowBox[{"Dimensions", "[", "actualmaintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"%", " ", "maintained", " ", "bonds", " ", "correct"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualbroken", ",", RowBox[{ RowBox[{"#", "==", RowBox[{"broken", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "broken", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Select", "[", RowBox[{"actualmaintained", ",", RowBox[{ RowBox[{"#", "\[Equal]", RowBox[{"maintained", "[", RowBox[{"[", "i", "]"}], "]"}]}], "&"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "maintained", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"EdgeList", "[", "g", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], RowBox[{"(*", " ", RowBox[{"%", " ", "total", " ", "bonds", " ", "correct"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.750702088418413*^9, 3.750702356484715*^9}},ExpressionUUID->"a1f8a78e-f627-4b03-a408-\ bee4f4e51bb7"], Cell[BoxData["0.3508771929824561`"], "Output", CellChangeTimes->{ 3.7507021239712267`*^9, {3.750702158558319*^9, 3.7507021931226983`*^9}, { 3.7507022351292715`*^9, 3.750702273455549*^9}, 3.7507023138999133`*^9}, CellLabel-> "Out[280]=",ExpressionUUID->"a71938c6-cb42-4397-890a-4d77a9e48dc9"], Cell[BoxData["0.821917808219178`"], "Output", CellChangeTimes->{ 3.7507021239712267`*^9, {3.750702158558319*^9, 3.7507021931226983`*^9}, { 3.7507022351292715`*^9, 3.750702273455549*^9}, 3.750702313915042*^9}, CellLabel-> "Out[281]=",ExpressionUUID->"00b42544-13ee-4d83-abae-bcda45bce10c"], Cell[BoxData["0.6153846153846154`"], "Output", CellChangeTimes->{ 3.7507021239712267`*^9, {3.750702158558319*^9, 3.7507021931226983`*^9}, { 3.7507022351292715`*^9, 3.750702273455549*^9}, 3.7507023139271975`*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"2221a49a-1187-432e-a8ef-9634f5325a9c"] }, Open ]] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Figures", "Chapter", CellChangeTimes->{{3.7459405253365164`*^9, 3.7459405259395866`*^9}, { 3.8302460960885468`*^9, 3.830246098880521*^9}, {3.8302461980658417`*^9, 3.830246199225092*^9}, {3.830246654565133*^9, 3.830246656872785*^9}, { 3.830250037374686*^9, 3.8302500398217225`*^9}},ExpressionUUID->"5d0109e0-2395-41a8-96ac-\ f15398c0352c"], Cell[CellGroupData[{ Cell["Load Data (Run First)", "Section", CellChangeTimes->{{3.7577848403468804`*^9, 3.7577848408429303`*^9}, { 3.8302503137345076`*^9, 3.8302503278569565`*^9}},ExpressionUUID->"80295b08-cdca-45c6-aa1a-\ 81e49d15fff4"], Cell[BoxData[{ RowBox[{ RowBox[{"dottymax", "=", "237"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookmax", "=", "90"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindamax", "=", "75"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgemax", "=", "54"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayomax", "=", "121"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violamax", "=", "52"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguemax", "=", "90"}], ";"}]}], "Input", CellChangeTimes->{{3.7613870249864936`*^9, 3.7613870941160955`*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"648758a7-6ba2-44b9-9df4-f41570f8550c"], Cell[BoxData[{ RowBox[{ RowBox[{"dottydespot", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottydemoc", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottycomm", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dottyrand", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindadespot", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindademoc", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindacomm", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lindarand", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgedespot", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgedemoc", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgecomm", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lodgerand", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayodespot", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayodemoc", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayocomm", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nyayorand", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookdespot", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookdemoc", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookcomm", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hookrand", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violadespot", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violademoc", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violacomm", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"violarand", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguedespot", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguedemoc", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguecomm", "=", RowBox[{"<<", "\"\\""}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguerand", "=", RowBox[{"<<", "\"\\""}]}], ";"}]}], "Input", CellChangeTimes->{{3.7577853016172924`*^9, 3.757785535272587*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"ad2fbaf2-cf1e-461e-8d50-ef1bd71a8172"], Cell[BoxData[{ RowBox[{ RowBox[{"dottyperc", "=", "0.44"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookperc", "=", "0.8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindaperc", "=", "0.34"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgeperc", "=", "0.25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayoperc", "=", "0.34"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violaperc", "=", "0.38"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vogueperc", "=", "0.34"}], ";"}]}], "Input", CellChangeTimes->{{3.7583929037440395`*^9, 3.7583929190306654`*^9}, { 3.7583929597408967`*^9, 3.7583930828236957`*^9}, {3.788776610516076*^9, 3.7887766383744793`*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"ce73dd6b-c5e8-4ed2-8bde-57603e5c2cbd"], Cell[BoxData[{ RowBox[{ RowBox[{"dottybrok", "=", "0.11"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookbrok", "=", "0.15"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindabrok", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgebrok", "=", "0.26"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayobrok", "=", "0.12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violabrok", "=", "0.26"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"voguebrok", "=", "0.16"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottyspars", "=", "0.44"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookspars", "=", "1.37"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindaspars", "=", "0.38"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgespars", "=", "0.41"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayospars", "=", "0.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violaspars", "=", "0.49"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"voguespars", "=", "0.7"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottymain", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookmain", "=", "0.26"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindamain", "=", "0.26"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgemain", "=", "0.23"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayomain", "=", "0.11"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violamain", "=", "0.27"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"voguemain", "=", "0.17"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottybwbrok", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookbwbrok", "=", "0.32"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindabwbrok", "=", "0.52"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgebwbrok", "=", "2.61"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayobwbrok", "=", "0.24"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violabwbrok", "=", "0.59"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"voguebwbrok", "=", "0.37"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottybwmain", "=", "0.19"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hookbwmain", "=", "0.31"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindabwmain", "=", "0.54"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgebwmain", "=", "1.04"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayobwmain", "=", "0.33"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violabwmain", "=", "0.69"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguebwmain", "=", "0.28"}], ";"}]}], "Input", CellChangeTimes->{{3.763897622945345*^9, 3.7638976263039293`*^9}, { 3.763897664735517*^9, 3.7638976955653934`*^9}, {3.78748465510493*^9, 3.787484681002672*^9}, {3.787484766682147*^9, 3.7874848218963213`*^9}, { 3.78748492702669*^9, 3.7874849374864736`*^9}, {3.787485145117247*^9, 3.787485349837045*^9}, 3.7874859209423733`*^9, {3.7887767420776176`*^9, 3.788776887156046*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"eb2bdc2f-18bf-4bfc-958a-3fcab2a14f70"], Cell[BoxData[{ RowBox[{ RowBox[{"sparsdottyperc", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.25", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookperc", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.28", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindaperc", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.29", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgeperc", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.09", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayoperc", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.28", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolaperc", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.22", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsvogueperc", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.23", ",", "100"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7583929037440395`*^9, 3.7583929190306654`*^9}, { 3.7583929597408967`*^9, 3.7583930828236957`*^9}, {3.7638984957725954`*^9, 3.7638985129742694`*^9}, {3.763898618828734*^9, 3.7638986189138565`*^9}, 3.7638986611691647`*^9, {3.7638986911989083`*^9, 3.7638986918002443`*^9}, { 3.7638987871431956`*^9, 3.763898787523153*^9}, {3.7638988187779083`*^9, 3.7638988189784207`*^9}, {3.763898850036601*^9, 3.763898850145465*^9}, { 3.763898890597722*^9, 3.763898890753911*^9}, {3.7638997244973445`*^9, 3.7638997513386335`*^9}, {3.763899781379002*^9, 3.7638997844904623`*^9}, { 3.788776905148724*^9, 3.788776964594522*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"438d28fc-66d5-4e92-8d6b-c9cd37d09754"], Cell[BoxData[{ RowBox[{ RowBox[{"sparsdottybrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.09", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.12", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindabrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.16", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgebrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.16", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayobrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.08", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolabrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.2", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sparsvoguebrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.11", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsdottyspars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.21", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookspars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.38", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindaspars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.25", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgespars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.09", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayospars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.23", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolaspars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.22", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sparsvoguespars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.33", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsdottymain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.19", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.19", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindamain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.28", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgemain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.25", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayomain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.13", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolamain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.29", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sparsvoguemain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.18", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsdottybwbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.3", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookbwbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.34", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindabwbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.59", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgebwbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"2.55", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayobwbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.41", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolabwbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.79", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sparsvoguebwbrok", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.3", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsdottybwmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.22", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookbwmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.31", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindabwmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.52", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgebwmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"1.35", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayobwmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.26", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolabwmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.61", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsvoguebwmain", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.31", ",", "100"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.763897622945345*^9, 3.7638976263039293`*^9}, { 3.763897664735517*^9, 3.7638976955653934`*^9}, {3.7638985147787924`*^9, 3.763898524827169*^9}, {3.76389863338136*^9, 3.7638986343655043`*^9}, { 3.76389866803017*^9, 3.7638986689993153`*^9}, {3.7638986998119855`*^9, 3.763898701367464*^9}, {3.763898795857239*^9, 3.7638988250125475`*^9}, { 3.7638988624343185`*^9, 3.763898895794795*^9}, {3.7638997539813795`*^9, 3.763899792563949*^9}, {3.7874846934725075`*^9, 3.7874847332830257`*^9}, { 3.7874849528624496`*^9, 3.7874850218160114`*^9}, {3.787485577675925*^9, 3.7874856570123606`*^9}, {3.7874856957921457`*^9, 3.787485756362424*^9}, { 3.787486186782049*^9, 3.7874862734421067`*^9}, {3.7887769755181212`*^9, 3.788777176320466*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"adb22f3b-8ad9-4b76-af2e-dea07742bf5e"], Cell[BoxData[{ RowBox[{ RowBox[{"sparsdottycorr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.62", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookcorr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.42", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindacorr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.56", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgecorr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.79", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayocorr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.56", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolacorr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.62", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsvoguecorr", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.63", ",", "100"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7638985410955963`*^9, 3.763898545215225*^9}, { 3.7638986435213795`*^9, 3.763898643661972*^9}, {3.76389867903468*^9, 3.7638986790723963`*^9}, {3.763898715298128*^9, 3.763898716372466*^9}, { 3.7638988092231245`*^9, 3.7638988322169104`*^9}, {3.7638988812775126`*^9, 3.7638989042975817`*^9}, {3.763899769093176*^9, 3.76389980047834*^9}, { 3.7639002829152403`*^9, 3.763900295821453*^9}, {3.788777194190618*^9, 3.7887771996157556`*^9}, {3.7887772671523647`*^9, 3.7887772770488577`*^9}}, CellLabel-> "In[181]:=",ExpressionUUID->"72e5aa1c-dbc8-4426-849a-f78fb660d148"] }, Closed]], Cell[CellGroupData[{ Cell["Generate Figures", "Section", CellChangeTimes->{{3.7874843287235236`*^9, 3.7874843335020947`*^9}, { 3.787489329488254*^9, 3.7874893299883747`*^9}, {3.82359110934995*^9, 3.8235911161901836`*^9}, {3.83025065612092*^9, 3.8302506571210003`*^9}},ExpressionUUID->"6a77e014-0543-491f-899c-\ 11dd4129f28f"], Cell["\<\ Run this to create functions that will rescale data appropriately\ \>", "Text", CellChangeTimes->{{3.8302506661469088`*^9, 3.8302506781024923`*^9}},ExpressionUUID->"4d461173-992b-4c7c-bf31-\ 5d9dfc50b7af"], Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "rand_", ",", "spars_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "spars"}], ")"}], "/", RowBox[{"(", RowBox[{"rand", "-", "spars"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"frev", "[", RowBox[{"x_", ",", "rand_", ",", "spars_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "rand"}], ")"}], "/", RowBox[{"(", RowBox[{"spars", "-", "rand"}], ")"}]}]}]}], "Input", CellChangeTimes->{{3.8235913101397257`*^9, 3.823591313595092*^9}, { 3.8235913976348*^9, 3.8235914144024315`*^9}, {3.8235943970765347`*^9, 3.823594414272317*^9}}, CellLabel-> "In[188]:=",ExpressionUUID->"120168b5-c898-4392-87bf-d90881affc25"], Cell[CellGroupData[{ Cell["Percent Broken", "Subsection", CellChangeTimes->{{3.8235925757025185`*^9, 3.823592578221815*^9}},ExpressionUUID->"59ca0aa4-e6b8-491a-b1fc-\ d6a5df7b9101"], Cell[BoxData[{ RowBox[{ RowBox[{"dottynewdemoc", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"dottydemoc", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"dottyrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsdottyperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottynewcomm", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"dottycomm", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"dottyrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsdottyperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dottynewdespot", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"dottydespot", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"dottyrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsdottyperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dottynewobs", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"dottyperc", ",", "100"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"dottyrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsdottyperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hooknewdemoc", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"hookdemoc", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"hookrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparshookperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hooknewcomm", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"hookcomm", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"hookrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparshookperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hooknewdespot", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"hookdespot", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"hookrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparshookperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hooknewobs", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"hookperc", ",", "100"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"hookrand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparshookperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindanewdemoc", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"lindademoc", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lindarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslindaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindanewcomm", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"lindacomm", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lindarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslindaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lindanewdespot", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"lindadespot", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lindarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslindaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lindanewobs", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"lindaperc", ",", "100"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lindarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslindaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgenewdemoc", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"lodgedemoc", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lodgerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslodgeperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgenewcomm", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"lodgecomm", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lodgerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslodgeperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lodgenewdespot", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"lodgedespot", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lodgerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslodgeperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"lodgenewobs", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"lodgeperc", ",", "100"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"lodgerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparslodgeperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayonewdemoc", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"nyayodemoc", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"nyayorand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsnyayoperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayonewcomm", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"nyayocomm", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"nyayorand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsnyayoperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nyayonewdespot", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"nyayodespot", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"nyayorand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsnyayoperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nyayonewobs", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"nyayoperc", ",", "100"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"nyayorand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsnyayoperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violanewdemoc", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"violademoc", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"violarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsviolaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violanewcomm", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"violacomm", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"violarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsviolaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"violanewdespot", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"violadespot", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"violarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsviolaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"violanewobs", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"violaperc", ",", "100"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"violarand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsviolaperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguenewdemoc", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"voguedemoc", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"voguerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsvogueperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguenewcomm", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"voguecomm", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"voguerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsvogueperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguenewdespot", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"voguedespot", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"voguerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsvogueperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"voguenewobs", "=", RowBox[{"f", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"vogueperc", ",", "100"}], "]"}], ",", RowBox[{"Mean", "[", RowBox[{"voguerand", "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "3"}], "]"}], "]"}], "]"}], ",", RowBox[{"sparsvogueperc", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.823591449009904*^9, 3.8235914956379766`*^9}, { 3.823591525819866*^9, 3.8235916157503233`*^9}, {3.82359168469874*^9, 3.8235917021111393`*^9}, {3.823591773033968*^9, 3.823591837938725*^9}, { 3.8235918747444067`*^9, 3.823592001058693*^9}}, CellLabel-> "In[190]:=",ExpressionUUID->"ff03b58b-4769-4249-9131-9226da887a75"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fig3", "=", RowBox[{"Labeled", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"BoxWhiskerChart", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "dottynewobs", ",", "hooknewobs", ",", "lindanewobs", ",", "lodgenewobs", ",", "nyayonewobs", ",", "violanewobs", ",", "voguenewobs"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "dottynewdemoc", ",", "hooknewdemoc", ",", "lindanewdemoc", ",", "lodgenewdemoc", ",", "nyayonewdemoc", ",", "violanewdemoc", ",", "voguenewdemoc"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "dottynewcomm", ",", "hooknewcomm", ",", "lindanewcomm", ",", "lodgenewcomm", ",", "nyayonewcomm", ",", "violanewcomm", ",", "voguenewcomm"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "dottynewdespot", ",", "hooknewdespot", ",", "lindanewdespot", ",", "lodgenewdespot", ",", "nyayonewdespot", ",", "violanewdespot", ",", "voguenewdespot"}], "}"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "1", ",", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"ChartLabels", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "17", ",", "Black"}], "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "17", ",", "Black"}], "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "17", ",", "Black"}], "]"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "17", ",", "Black"}], "]"}], "]"}]}], "}"}], ",", "None"}], "}"}]}], ",", RowBox[{"ChartLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"BarSpacing", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "2"}], "}"}]}], ",", RowBox[{"ChartStyle", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", "Orange", ",", "Green", ",", RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "Purple", "]"}], "]"}], ",", "Yellow", ",", "Blue", ",", "Red"}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"FrameStyle", "\[Rule]", "Black"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.25", ",", "34.75"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Dashed"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Inset", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "0.1"}]}], "}"}]}], "]"}], ",", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "12"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1.1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Gray", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"dottynewobs", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Orange", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"hooknewobs", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"3", ",", RowBox[{"lindanewobs", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Lighter", "[", "Purple", "]"}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"4", ",", RowBox[{"lodgenewobs", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"5", ",", RowBox[{"nyayonewobs", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"violanewobs", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Inset", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"7", ",", RowBox[{"voguenewobs", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5"}], "}"}], ",", "1.25"}], "]"}]}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "21", ",", RowBox[{"TextAlignment", "\[Rule]", "Center"}]}], "]"}], "]"}], ",", RowBox[{"Pi", "/", "2"}]}], "]"}], ",", "Left"}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzDtIQgEAhWGJwKiIiFpSSEvKraDHEEndwTBpEKGooYJCCE0NKaV8ZfQa LRLNBk2kJKRQCoOSGsorOhiWQ0RPcolLkoS5JHnucPiWw8+dVEtlJQwGg1Uc HE9YBygDRRgm2iXwvedmCOakgml4xhtRQ2fgaZb+8T2LMOgxGaExs2KBimZy A/pPau1QyWH6oGM1EYOWsDMOv0+55TYjRXAfFbTLuSY2vJ/h0+aJ3nmrmSLK Wue0cOc3bYKf8XMzFNfX7UIV79AFrw5qvJAtyPhgtTDqh/194Uv4oORcQ1G2 4gXeOY4+YDYT+YNVWXHlZtFbZlcbHGskO6E0FxHCaGpBDC9U8lGo5e/LoCOv V8FgyK6DPs22HnZ7CktQ1BKzQA0ZWINkUr0OX1mMJJSnBn+gO+j2bqGncx/D Dubem61o6XP6Cza4hgtQEpqi/Qex/vAZ "], CellLabel-> "In[219]:=",ExpressionUUID->"72425174-a49d-4f0d-8286-d679ac947865"], Cell[BoxData[ TemplateBox[{ TemplateBox[{ GraphicsBox[{{{ CapForm[None], Directive[ RGBColor[0.982864, 0.7431472, 0.3262672]], {{}, {{{{}, {{}, {{ Directive[ GrayLevel[0.5]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{0.5, 0.7644692045806246}, {1.5, 0.7644692045806246}, {1.5, 0.7644692045806246}, {0.5, 0.7644692045806246}}], {}, {{}, { InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {1., 0.7644692045806246}]}}, {}, { GrayLevel[0], Directive[ GrayLevel[0], Thickness[Large]], LineBox[{{1.5, 0.7644692045806246}, {0.5, 0.7644692045806246}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{1., 0.7644692045806246}, {1., 0.7644692045806246}}, {{1., 0.7644692045806246}, {1., 0.7644692045806246}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{1.25, 0.7644692045806246}, {0.75, 0.7644692045806246}}, {{1.25, 0.7644692045806246}, {0.75, 0.7644692045806246}}}]}, {}}]}], "DelayedMouseEffectStyle"], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "0.7644692045806246`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "0.7644692045806246`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "0.7644692045806246`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.7644692045806246`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], "0.7644692045806246`"}}, GridBoxAlignment -> {"Columns" -> {Center, ".", {Left}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, "Rows" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, GridBoxFrame -> { "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> GrayLevel[0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ Style["max", Bold], 0.7644692045806246}, { Style["75%", Bold], 0.7644692045806246}, { Style["median", Bold], 0.7644692045806246}, { Style["25%", Bold], 0.7644692045806246}, { Style["min", Bold], 0.7644692045806246}}, Dividers -> {{ Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, Alignment -> {{Center, ".", {Left}}}, Frame -> GrayLevel[0], BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], {}], "Tooltip"]& ]}, { Directive[ RGBColor[1, 0.5, 0]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{1.5, 2.4544695071010842`}, {2.5, 2.4544695071010842`}, {2.5, 2.4544695071010842`}, {1.5, 2.4544695071010842`}}], {}, {{}, { InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {2., 2.4544695071010842`}]}}, {}, { GrayLevel[0], Directive[ GrayLevel[0], Thickness[Large]], LineBox[{{2.5, 2.4544695071010842`}, {1.5, 2.4544695071010842`}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{2., 2.4544695071010842`}, {2., 2.4544695071010842`}}, {{2., 2.4544695071010842`}, {2., 2.4544695071010842`}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{2.25, 2.4544695071010842`}, {1.75, 2.4544695071010842`}}, {{2.25, 2.4544695071010842`}, { 1.75, 2.4544695071010842`}}}]}, {}}]}], "DelayedMouseEffectStyle"], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "2.4544695071010842`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "2.4544695071010842`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "2.4544695071010842`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "2.4544695071010842`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], "2.4544695071010842`"}}, GridBoxAlignment -> {"Columns" -> {Center, ".", {Left}}}, AutoDelete -> False, GridBoxDividers -> {"Columns" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, "Rows" -> { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, GridBoxFrame -> { "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> GrayLevel[0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], "Grid"], {}, StripOnInput -> False]], Annotation[#, Style[ Grid[{{ Style["max", Bold], 2.4544695071010842`}, { Style["75%", Bold], 2.4544695071010842`}, { Style["median", Bold], 2.4544695071010842`}, { Style["25%", Bold], 2.4544695071010842`}, { Style["min", Bold], 2.4544695071010842`}}, Dividers -> {{ Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}, { Directive[ GrayLevel[0.3]], { Directive[ GrayLevel[0.3]]}, Directive[ GrayLevel[0.3]]}}, Alignment -> {{Center, ".", {Left}}}, Frame -> GrayLevel[0], BaseStyle -> Directive[ AbsoluteThickness[1], Dashing[{}]]], {}], "Tooltip"]& ]}, { Directive[ RGBColor[0, 1, 0]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{2.5, 0.231596360628619}, {3.5, 0.231596360628619}, {3.5, 0.231596360628619}, {2.5, 0.231596360628619}}], {}, {{}, { InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {3., 0.231596360628619}],