(* 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[ 5600418, 126879] NotebookOptionsPosition[ 5516769, 125573] NotebookOutlinePosition[ 5517166, 125589] CellTagsIndexPosition[ 5517123, 125586] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["Insert location of downloaded data in \ \[OpenCurlyDoubleQuote]SetDirectory\[CloseCurlyDoubleQuote] below:", "Text", CellChangeTimes->{{3.840094423579954*^9, 3.840094440679159*^9}},ExpressionUUID->"2fa25836-dd03-4419-8063-\ 17fff163b302"], Cell[BoxData[ RowBox[{ RowBox[{"SetDirectory", "[", "\"\<\>\"", "]"}], ";"}]], "Input", CellChangeTimes->{{3.830419489049081*^9, 3.8304195253765306`*^9}, 3.840094053525361*^9, {3.840094412591853*^9, 3.84009441480023*^9}, { 3.8400944831384306`*^9, 3.8400945057194653`*^9}, 3.840094763112236*^9},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.\n\n", StyleBox["\nANOVA:\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 each ANOVA we considered to be run." }], "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}, {3.844182904572152*^9, 3.844182961870181*^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 ]] }, Closed]], 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", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}], "[", 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}, {3.8400926698687525`*^9, 3.8400926805508823`*^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", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}], "[", 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}, 3.8400927238832865`*^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", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}], "[", 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}, 3.8400927469535017`*^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", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}], "[", 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, 3.8400927636524105`*^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["Efficient Non-behavioral Network Bisection", "Section", CellChangeTimes->{{3.7459405486374826`*^9, 3.7459405515402613`*^9}, { 3.8400933364305735`*^9, 3.840093344472827*^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", "[", "fission1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"Dimensions", "[", RowBox[{"VertexList", "[", "fission2", "]"}], "]"}], "[", 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}, 3.8400927881613955`*^9},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[{ 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]] }, Open ]] }, Closed]], 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[550]:=",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[557]:=",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[585]:=",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}, {3.8400936435099077`*^9, 3.8400936995996857`*^9}, { 3.840093788736245*^9, 3.8400938422011623`*^9}}, CellLabel-> "In[592]:=",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[627]:=",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.12", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparshookspars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.21", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslindaspars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.28", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparslodgespars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.05", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsnyayospars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.15", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sparsviolaspars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.24", ",", "100"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sparsvoguespars", "=", RowBox[{"ConstantArray", "[", RowBox[{"0.17", ",", "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}, {3.8400937589838886`*^9, 3.840093780317397*^9}}, CellLabel-> "In[634]:=",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[669]:=",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[127]:=",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[676]:=",ExpressionUUID->"ff03b58b-4769-4249-9131-9226da887a75"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fig3", "=", RowBox[{"Labeled", "[", RowBox[{ 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[{"3", ",", 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[{ "\"\< More Efficient \ Less Efficient\>\"", ",", "Italic", ",", "Red", ",", "15"}], "]"}], "]"}], ",", RowBox[{"Pi", "/", "2"}]}], "]"}], ",", "Left"}], "]"}], "\[IndentingNewLine]", ",", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "21", ",", RowBox[{"TextAlignment", "\[Rule]", "Center"}]}], "]"}], "]"}], ",", RowBox[{"Pi", "/", "2"}]}], "]"}], ",", "Left"}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzE8oQwEAx/GX1BMSosSKjVgOLH9LFu9ALGqtiAPKKA17kj/5szH5Vy6I PHPYzGIk2iKKxQFbHGjsIJm/u+hlWdocWPZ7h1+fy68vv5mWtYYQBJEcHGy8 nq1kh1lquClXCl+Lz2ugTyZug4dpdTTUmh+7uJ/QMAgtBrUKqjzjGtiebpuG 23txS7AzhTRBZuL6Emqs2iv4tc8PX1SxFP+hnXPMl8qDdx1Czh+qpHd2hKXC snv64LLfrYYfV0cjUJIYvwKVaVs6eLoRa4Q8sccEo8vs27C81HoC7ztTzmCF N+IJ3jI779DrufiDUV5J5FzQG7JABBsEtnwo812UQbtzQAKPlYp62Cdcb4XM z5ASWg6W+qGpe2EIFhkCo7Ai41IDu23mSWhz0FPwOYlwQIWz6hvqLXrjPHr9 +l2YR66+LAYNdbk/YbKuNgClB3LOtZZvuZ9hqZwZuguaddKscy1LuQQJImjo yCyEJTEL1fCXnNuH7rdNzn87BxQL "], CellLabel-> "In[704]:=",ExpressionUUID->"ed735b3d-f611-4c3a-be32-697b6c5e8bf0"], Cell[BoxData[ TemplateBox[{ 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}], 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}], 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}], 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}], 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}], 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}], 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}], 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}]}}, {}, { GrayLevel[0], Directive[ GrayLevel[0], Thickness[Large]], LineBox[{{3.5, 0.231596360628619}, {2.5, 0.231596360628619}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{3., 0.231596360628619}, {3., 0.231596360628619}}, {{3., 0.231596360628619}, {3., 0.231596360628619}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{3.25, 0.231596360628619}, {2.75, 0.231596360628619}}, {{3.25, 0.231596360628619}, {2.75, 0.231596360628619}}}]}, {}}]}], "DelayedMouseEffectStyle"], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "0.231596360628619`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "0.231596360628619`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "0.231596360628619`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.231596360628619`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], "0.231596360628619`"}}, 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.231596360628619}, { Style["75%", Bold], 0.231596360628619}, { Style["median", Bold], 0.231596360628619}, { Style["25%", Bold], 0.231596360628619}, { Style["min", Bold], 0.231596360628619}}, 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.7777777777777778, NCache[ Rational[5, 9], 0.5555555555555556], 0.7777777777777778]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{3.5, 0.3910981393651954}, {4.5, 0.3910981393651954}, {4.5, 0.3910981393651954}, {3.5, 0.3910981393651954}}], {}, {{}, { InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {4., 0.3910981393651954}]}}, {}, { GrayLevel[0], Directive[ GrayLevel[0], Thickness[Large]], LineBox[{{4.5, 0.3910981393651954}, {3.5, 0.3910981393651954}}]}, {}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{4., 0.3910981393651954}, {4., 0.3910981393651954}}, {{4., 0.3910981393651954}, {4., 0.3910981393651954}}}]}, { GrayLevel[0], GrayLevel[0.5], LineBox[{{{4.25, 0.3910981393651954}, {3.75, 0.3910981393651954}}, {{4.25, 0.3910981393651954}, {3.75, 0.3910981393651954}}}]}, {}}]}], "DelayedMouseEffectStyle"], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"max\"", Bold, StripOnInput -> False], "0.3910981393651954`"}, { StyleBox["\"75%\"", Bold, StripOnInput -> False], "0.3910981393651954`"}, { StyleBox["\"median\"", Bold, StripOnInput -> False], "0.3910981393651954`"}, { StyleBox["\"25%\"", Bold, StripOnInput -> False], "0.3910981393651954`"}, { StyleBox["\"min\"", Bold, StripOnInput -> False], "0.3910981393651954`"}}, 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.3910981393651954}, { Style["75%", Bold], 0.3910981393651954}, { Style["median", Bold], 0.3910981393651954}, { Style["25%", Bold], 0.3910981393651954}, { Style["min", Bold], 0.3910981393651954}}, 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, 1, 0]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], GraphicsGroupBox[{Antialiasing -> False, PolygonBox[{{4.5, 0.28124999999999994`}, {5.5, 0.28124999999999994`}, {5.5, 0.28124999999999994`}, {4.5, 0.28124999999999994`}}], {}, {{}, { InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm]], {5., 0.28124999999999994`}], InsetBox[ BoxData[ FormBox[ StyleBox["\"\[FilledSmallCircle]\"", 10, GrayLevel[0.5], StripOnInput -> False], TraditionalFor