(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 32973, 790] NotebookOptionsPosition[ 30734, 739] NotebookOutlinePosition[ 31374, 762] CellTagsIndexPosition[ 31288, 757] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "DataResourceWhiteSection", CellFrameMargins->0, CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Retrieve the graph:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[2]:="], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Acciaiuoli", "Medici", "Castellani", "Peruzzi", "Strozzi", "Barbadori", "Ridolfi", "Tornabuoni", "Albizzi", "Salviati", "Pazzi", "Bischeri", "Guadagni", "Ginori", "Lamberteschi"}, { Null, {{1, 2}, {3, 4}, {3, 5}, {3, 6}, {2, 6}, {2, 7}, {2, 8}, {2, 9}, { 2, 10}, {10, 11}, {4, 5}, {4, 12}, {5, 7}, {5, 12}, {7, 8}, {8, 13}, { 9, 14}, {9, 13}, {12, 13}, {13, 15}}}, {VertexLabels -> { Placed["Name", Above], "Guadagni" -> Placed["Name", Before], "Pazzi" -> Placed["Name", Before], "Albizzi" -> Placed["Name", After], "Tornabuoni" -> Placed["Name", Before], "Barbadori" -> Placed["Name", After], "Medici" -> Placed["Name", After], "Lamberteschi" -> Placed["Name", After], "Acciaiuoli" -> Placed["Name", Before], "Bischeri" -> Placed["Name", After], "Strozzi" -> Placed["Name", {Below, After}], "Salviati" -> Placed["Name", Before], "Ginori" -> Placed["Name", After]}, VertexCoordinates -> {{0.674, 0.61}, {0.5618043946524994, 0.4819384283128048}, {0.21, 0.648}, {0.053, 0.582}, {0.165, 0.47200000000000003`}, {0.372, 0.676}, {0.3480490040101945, 0.5164999912416102}, {0.366, 0.374}, {0.466, 0.254}, {0.687, 0.382}, { 0.726, 0.246}, {0.02, 0.342}, {0.23600000000000002`, 0.222}, {0.545, 0.108}, {0.199, 0.084}}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmVmYGAQAWImKD6qsKEoY+JT+9bXgTvkWh/b9zPtNPX99dDeslHI XeTGPQw+k3a72M1z1+3zhZoPnFr4FENe0SUjJN/tmr1Hd8RfrfYHGPJsjVOd u3Ou24fx6W6a+/46hnzu898rP166a7/imLd5p+MFDPlpQN3Pfz+1Xzb7CNDl N+wfVomsc394yl759s+6rD1P7DsdE55eUFptb7nlRNm++Y8w5OXBHj1qnznx bY296T0MeXT/oZuHrh9dvhpkXNUUe/Gb574HP76KoR49fNDl0fWjq0cPP3Q+ xJxz9heVQB46gxGehOQLbbmuLy54aA+2fulujPDmWCMTlWL93B6Uat7WnMdw L7r56Hy3bZ//Xqk4aS+tf1eFrXGrPQDXoEa5 "]]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0.674, 0.61}, 0.00898738], InsetBox["\<\"Acciaiuoli\"\>", Offset[{-2, 0}, {0.66501262, 0.61}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{0.5618043946524994, 0.4819384283128048}, 0.00898738], InsetBox["\<\"Medici\"\>", Offset[{2, 0}, {0.5707917746524994, 0.4819384283128048}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, {DiskBox[{0.21, 0.648}, 0.00898738], InsetBox["\<\"Castellani\"\>", Offset[{0, 2}, {0.21, 0.65698738}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0.053, 0.582}, 0.00898738], InsetBox["\<\"Peruzzi\"\>", Offset[{0, 2}, {0.053, 0.59098738}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.165, 0.47200000000000003}, 0.00898738], InsetBox["\<\"Strozzi\"\>", Offset[{2, -2}, {0.17398738, 0.46301262000000004}], ImageScaled[{0, 1}], BaseStyle->"Graphics"]}, {DiskBox[{0.372, 0.676}, 0.00898738], InsetBox["\<\"Barbadori\"\>", Offset[{2, 0}, {0.38098738, 0.676}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{0.3480490040101945, 0.5164999912416102}, 0.00898738], InsetBox["\<\"Ridolfi\"\>", Offset[{0, 2}, {0.3480490040101945, 0.5254873712416102}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, {DiskBox[{0.366, 0.374}, 0.00898738], InsetBox["\<\"Tornabuoni\"\>", Offset[{-2, 0}, {0.35701262, 0.374}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, {DiskBox[{0.466, 0.254}, 0.00898738], InsetBox["\<\"Albizzi\"\>", Offset[{2, 0}, {0.47498738, 0.254}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, {DiskBox[{0.687, 0.382}, 0.00898738], InsetBox["\<\"Salviati\"\>", Offset[{-2, 0}, {0.6780126200000001, 0.382}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, {DiskBox[{0.726, 0.246}, 0.00898738], InsetBox["\<\"Pazzi\"\>", Offset[{-2, 0}, {0.71701262, 0.246}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, {DiskBox[{0.02, 0.342}, 0.00898738], InsetBox["\<\"Bischeri\"\>", Offset[{2, 0}, {0.02898738, 0.342}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{0.23600000000000002, 0.222}, 0.00898738], InsetBox["\<\"Guadagni\"\>", Offset[{-2, 0}, {0.22701262000000003, 0.222}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, {DiskBox[{0.545, 0.108}, 0.00898738], InsetBox["\<\"Ginori\"\>", Offset[{2, 0}, {0.55398738, 0.108}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, {DiskBox[{0.199, 0.084}, 0.00898738], InsetBox["\<\"Lamberteschi\"\>", Offset[{2, 0}, {0.20798738, 0.084}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.771860793976247*^9}, GraphicsBoxOptions->{ImageSize->225}, CellLabel->"Out[2]="] }, Open ]], Cell["Summary properties:", "Text", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{"\"\\"", ",", "All"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[3]:="], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Name\"\>", "\<\"Padgett's Florentine Families\"\>"}, {"\<\"VertexCount\"\>", "15"}, {"\<\"EdgeCount\"\>", "20"}, {"\<\"Description\"\>", "\<\"Florentine families network in the early \ 15th century\"\>"}, {"\<\"ByteCount\"\>", TemplateBox[{"12.22`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"]} }, AutoDelete->False, FrameStyle->RGBColor[0, 0, 0, 0.4], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxBackground->{"Columns" -> { RGBColor[0.92, 0.92, 0.9]}, "Rows" -> {{ RGBColor[0.985, 0.98, 0.973]}}}, GridBoxDividers->{"Columns" -> { RGBColor[0, 0, 0, 0.4], RGBColor[0, 0, 0, 0.3], { RGBColor[0, 0, 0, 0.09]}, RGBColor[0, 0, 0, 0.4]}, "Rows" -> { RGBColor[0, 0, 0, 0.4], { RGBColor[0, 0, 0, 0.08]}, RGBColor[0, 0, 0, 0.4]}}, GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{1.3}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}, "Rows" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}}, GridBoxSpacings->{"Columns" -> { Offset[1.4], { Offset[1.75]}, Offset[2.1]}, "Rows" -> { Offset[1.2], { Offset[0.48]}, Offset[0.4]}}], "Grid"]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.7718607958796473`*^9}, CellLabel->"Out[3]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Basic Applications", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Find the most influential family based on centrality:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7718625531529703`*^9, 3.771862560721429*^9}, {3.77186723127456*^9, 3.771867234787171*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g", " ", "=", " ", RowBox[{ "ResourceData", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7718620886796303`*^9, 3.771862092676036*^9}}, CellLabel->"In[4]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"families", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"Part", "[", RowBox[{ RowBox[{"VertexList", "[", "g", "]"}], ",", RowBox[{"Ordering", "[", RowBox[{ RowBox[{"#", "[", "g", "]"}], ",", "All", ",", "Greater"}], "]"}]}], "]"}], ",", "2"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ "BetweennessCentrality", ",", " ", "ClosenessCentrality", ",", " ", "DegreeCentrality", ",", " ", "EccentricityCentrality", ",", " ", "EigenvectorCentrality", ",", " ", "RadialityCentrality", ",", " ", "StatusCentrality"}], "}"}], " "}]}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7718620864142714`*^9, 3.771862101211939*^9}, {3.7718621592682123`*^9, 3.771862218681755*^9}, { 3.771862270735593*^9, 3.771862307207717*^9}, {3.7718629981211357`*^9, 3.7718630324242496`*^9}, {3.7718633017624493`*^9, 3.771863376679996*^9}, { 3.771863872162774*^9, 3.7718638886872873`*^9}, {3.771863948272752*^9, 3.771863961830138*^9}, {3.771864375134412*^9, 3.771864375284513*^9}}, CellLabel->"In[45]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Medici\"\>", ",", "\<\"Guadagni\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Medici\"\>", ",", "\<\"Ridolfi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Medici\"\>", ",", "\<\"Guadagni\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Albizzi\"\>", ",", "\<\"Tornabuoni\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Medici\"\>", ",", "\<\"Strozzi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Medici\"\>", ",", "\<\"Ridolfi\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Medici\"\>", ",", "\<\"Strozzi\"\>"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.771863957956339*^9, 3.7718639622383947`*^9}, 3.771864375487363*^9}, CellLabel->"Out[45]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"g", ",", RowBox[{"{", "\"\\"", "}"}], ",", " ", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"VertexStyle", "\[Rule]", "Red"}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.771863379452343*^9, 3.771863390021789*^9}, {3.771863452830688*^9, 3.7718634611181803`*^9}, { 3.7718640811339483`*^9, 3.7718641104999638`*^9}, {3.7718641454261103`*^9, 3.7718642679520397`*^9}, {3.77186438779694*^9, 3.77186439150276*^9}, { 3.77186442542159*^9, 3.771864477612054*^9}, {3.7718645800492373`*^9, 3.7718645815194073`*^9}, {3.7718650197351294`*^9, 3.771865035790201*^9}, { 3.77186711616057*^9, 3.771867215139532*^9}, {3.7718672493636103`*^9, 3.7718672818814487`*^9}, {3.77186731890384*^9, 3.771867438398839*^9}}, CellLabel->"In[81]:="], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Acciaiuoli", "Medici", "Castellani", "Peruzzi", "Strozzi", "Barbadori", "Ridolfi", "Tornabuoni", "Albizzi", "Salviati", "Pazzi", "Bischeri", "Guadagni", "Ginori", "Lamberteschi"}, { Null, {{1, 2}, {3, 4}, {3, 5}, {3, 6}, {2, 6}, {2, 7}, {2, 8}, {2, 9}, { 2, 10}, {10, 11}, {4, 5}, {4, 12}, {5, 7}, {5, 12}, {7, 8}, {8, 13}, { 9, 14}, {9, 13}, {12, 13}, {13, 15}}}, { GraphHighlight -> {"Medici"}, PlotTheme -> "Web", VertexCoordinates -> {{0.674, 0.61}, {0.5618043946524994, 0.4819384283128048}, {0.21, 0.648}, {0.053, 0.582}, {0.165, 0.47200000000000003`}, {0.372, 0.676}, {0.3480490040101945, 0.5164999912416102}, {0.366, 0.374}, {0.466, 0.254}, {0.687, 0.382}, { 0.726, 0.246}, {0.02, 0.342}, {0.23600000000000002`, 0.222}, {0.545, 0.108}, {0.199, 0.084}}, VertexLabels -> { Placed["Name", Above], "Guadagni" -> Placed["Name", Before], "Pazzi" -> Placed["Name", Before], "Albizzi" -> Placed["Name", After], "Tornabuoni" -> Placed["Name", Before], "Barbadori" -> Placed["Name", After], "Medici" -> Placed["Name", After], "Lamberteschi" -> Placed["Name", After], "Acciaiuoli" -> Placed["Name", Before], "Bischeri" -> Placed["Name", After], "Strozzi" -> Placed["Name", {Below, After}], "Salviati" -> Placed["Name", Before], "Ginori" -> Placed["Name", After]}, VertexStyle -> {"Medici" -> RGBColor[1, 0, 0]}}]], Typeset`boxes, Typeset`boxes$s2d = GraphicsGroupBox[{{ Directive[ Hue[0.0424, 1, 0.8, 1], Thickness[0.01]], StyleBox[ LineBox[{{0.674, 0.61}, {0.5618043946524994, 0.4819384283128048}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.5618043946524994, 0.4819384283128048}, {0.372, 0.676}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.5618043946524994, 0.4819384283128048}, { 0.3480490040101945, 0.5164999912416102}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.5618043946524994, 0.4819384283128048}, {0.366, 0.374}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.5618043946524994, 0.4819384283128048}, {0.466, 0.254}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.5618043946524994, 0.4819384283128048}, {0.687, 0.382}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.21, 0.648}, {0.053, 0.582}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.21, 0.648}, {0.165, 0.47200000000000003`}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.21, 0.648}, {0.372, 0.676}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.053, 0.582}, {0.165, 0.47200000000000003`}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.053, 0.582}, {0.02, 0.342}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.165, 0.47200000000000003`}, {0.3480490040101945, 0.5164999912416102}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.165, 0.47200000000000003`}, {0.02, 0.342}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.3480490040101945, 0.5164999912416102}, {0.366, 0.374}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.366, 0.374}, {0.23600000000000002`, 0.222}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.466, 0.254}, {0.23600000000000002`, 0.222}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.466, 0.254}, {0.545, 0.108}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.687, 0.382}, {0.726, 0.246}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.02, 0.342}, {0.23600000000000002`, 0.222}}], Directive[ GrayLevel[0.75]], StripOnInput -> False], StyleBox[ LineBox[{{0.23600000000000002`, 0.222}, {0.199, 0.084}}], Directive[ GrayLevel[0.75]], StripOnInput -> False]}, { Directive[ EdgeForm[{ Hue[0.0424, 1, 0.8], Thickness[0.005]}], GrayLevel[1]], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.674, 0.61}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$1"], InsetBox[ FormBox["\"Acciaiuoli\"", TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$1", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$1"], TagBox[{ TagBox[ StyleBox[{{ EdgeForm[], PolygonBox[CompressedData[" 1:eJxTTMoPSmViYGAQAWIQ3c+009T310P71vvy+zsnPbC/31da7xf6yP6gz+SL 8i0P7DPO/PBIX/7IPlFG0No76oF98D0H374Xj+zLuE6aqUg+sN/Cd/hxktBj +5szu2+J9d23L1/of/GMwmN7y0Yhd5Eb9+DyMzNmbhZUugfX3/52ksKD2rtw 8zecZJKY9PsO3P4PGf9evVh+xx7mvgznp/yi3Xfs7cv+vPae/xAuv82iUsnY 9yFc/2k1Qzkenodw87O+rWs3f/QAbv/yZKVZZy8/gLsPJg9zP0w/zH8w82H+ h9kPCx8AOC+h7w== "], VertexColors -> { Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3], Hue[0.0424, 1, 0.8, 0.3]}]}, DiskBox[{0.5618043946524994, 0.4819384283128048}, {0.01797476, 0.01797476}]}, RGBColor[1, 0, 0], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$2"], InsetBox[ FormBox["\"Medici\"", TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$2", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$2"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.21, 0.648}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$3"], InsetBox[ FormBox["\"Castellani\"", TraditionalForm], Offset[{0, 2}, DynamicLocation["VertexID$3", Automatic, Top]], ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$3"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.053, 0.582}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$4"], InsetBox[ FormBox["\"Peruzzi\"", TraditionalForm], Offset[{0, 2}, DynamicLocation["VertexID$4", Automatic, Top]], ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$4"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.165, 0.47200000000000003`}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$5"], InsetBox[ FormBox["\"Strozzi\"", TraditionalForm], Offset[{2, -2}, DynamicLocation["VertexID$5", Automatic, {Right, Bottom}]], ImageScaled[{0, 1}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$5"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.372, 0.676}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$6"], InsetBox[ FormBox["\"Barbadori\"", TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$6", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$6"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.3480490040101945, 0.5164999912416102}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$7"], InsetBox[ FormBox["\"Ridolfi\"", TraditionalForm], Offset[{0, 2}, DynamicLocation["VertexID$7", Automatic, Top]], ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$7"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.366, 0.374}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$8"], InsetBox[ FormBox["\"Tornabuoni\"", TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$8", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$8"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.466, 0.254}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$9"], InsetBox[ FormBox["\"Albizzi\"", TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$9", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$9"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.687, 0.382}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$10"], InsetBox[ FormBox["\"Salviati\"", TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$10", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$10"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.726, 0.246}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$11"], InsetBox[ FormBox["\"Pazzi\"", TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$11", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$11"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.02, 0.342}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$12"], InsetBox[ FormBox["\"Bischeri\"", TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$12", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$12"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.23600000000000002`, 0.222}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$13"], InsetBox[ FormBox["\"Guadagni\"", TraditionalForm], Offset[{-2, 0}, DynamicLocation["VertexID$13", Automatic, Left]], ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$13"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.545, 0.108}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$14"], InsetBox[ FormBox["\"Ginori\"", TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$14", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$14"], TagBox[{ TagBox[ StyleBox[{ DiskBox[{0.199, 0.084}, {0.01797476, 0.01797476}]}, Directive[ EdgeForm[{ GrayLevel[0.75], Thickness[0.005]}], GrayLevel[1]], StripOnInput -> False], "DynamicName", BoxID -> "VertexID$15"], InsetBox[ FormBox["\"Lamberteschi\"", TraditionalForm], Offset[{2, 0}, DynamicLocation["VertexID$15", Automatic, Right]], ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, "DynamicName", BoxID -> "VertexLabelID$15"]}}], $CellContext`flag}, TagBox[ DynamicBox[GraphComputation`NetworkGraphicsBox[ 3, Typeset`graph, Typeset`boxes, $CellContext`flag], { CachedValue :> Typeset`boxes, SingleEvaluation -> True, SynchronousUpdating -> False, TrackedSymbols :> {$CellContext`flag}}, ImageSizeCache->{{1.7540676352213431`, 220.51999999999998`}, {-102.5839309180819, 90.59041823494405}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False, UnsavedVariables:>{$CellContext`flag}]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.771863462265274*^9, 3.77186389090394*^9, 3.7718640823209267`*^9, {3.771864170784277*^9, 3.771864268638447*^9}, 3.771864377532723*^9, {3.771864430294079*^9, 3.771864442767291*^9}, 3.7718644787684097`*^9, 3.771864582213943*^9, { 3.771865023354216*^9, 3.77186503623709*^9}, 3.771867139614031*^9, { 3.7718671940600986`*^9, 3.7718672157667723`*^9}, {3.771867250672452*^9, 3.771867283645845*^9}, {3.771867336962614*^9, 3.7718674388494864`*^9}}, GraphicsBoxOptions->{ImageSize->225}, CellLabel->"Out[81]="] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, DockedCells->{}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "DataResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DataResourceExampleArea"->{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"2fda71cf-4c22-46e9-88d7-23807f783ea3", CellTags->"DataResourceExampleArea"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DataResourceExampleArea", 31113, 751} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"2fda71cf-4c22-46e9-88d7-23807f783ea3", CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell[701, 28, 227, 7, 70, "Subsection",ExpressionUUID->"78ff5638-72af-4b82-9bd4-742dbba3b7a5"], Cell[931, 37, 35, 0, 70, "Text",ExpressionUUID->"bf700e24-5a29-4d20-b94c-4a7228d99239"], Cell[CellGroupData[{ Cell[991, 41, 173, 5, 70, "Input",ExpressionUUID->"fccfb43b-6029-4945-a1de-0ceb020f06f5"], Cell[1167, 48, 5675, 100, 70, "Output",ExpressionUUID->"bfb1cf9e-fb3c-4420-9794-b9fab4e35ee8"] }, Open ]], Cell[6857, 151, 73, 1, 70, "Text",ExpressionUUID->"67163d6a-bc89-4b82-939a-47a728cff0b0", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[6955, 156, 241, 7, 70, "Input",ExpressionUUID->"2a890e28-44ea-412b-84f4-e3d850f39ffd"], Cell[7199, 165, 1749, 43, 70, "Output",ExpressionUUID->"52e8d8b0-091a-4d91-831f-139f89cfd6f0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8997, 214, 231, 7, 70, "Subsection",ExpressionUUID->"36fa12cb-6cfc-4ca3-b454-436f5ba71e8c"], Cell[9231, 223, 429, 5, 70, "Text",ExpressionUUID->"3802c2bc-4fbb-4db2-97ca-726663ab4425"], Cell[9663, 230, 496, 11, 70, "Input",ExpressionUUID->"b17566ea-bc1d-48d8-832a-29f1f1992273"], Cell[CellGroupData[{ Cell[10184, 245, 1378, 28, 70, "Input",ExpressionUUID->"708152a4-0401-443d-b31e-541cb7a15b11"], Cell[11565, 275, 1025, 23, 70, "Output",ExpressionUUID->"adc03728-fa9b-4576-b482-78c6b54fa68b"] }, Open ]], Cell[CellGroupData[{ Cell[12627, 303, 1083, 17, 70, "Input",ExpressionUUID->"eb84b03f-ca51-46d7-b7b8-20377001e16f"], Cell[13713, 322, 16981, 412, 70, "Output",ExpressionUUID->"68abfcd2-8e42-4dde-9511-c033bd1caa4e"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)