(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 24626, 572] NotebookOptionsPosition[ 22374, 523] NotebookOutlinePosition[ 22806, 542] CellTagsIndexPosition[ 22763, 539] WindowTitle->Swim Friendship Network | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], 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[{ "Anna", "Rose", "Nora", "Ben", "Larry", "Carol", "Rudy", "Linda", "James"}, { Null, {{1, 4}, {1, 5}, {1, 2}, {1, 3}, {1, 6}, {1, 7}, {4, 2}, {4, 6}, { 8, 5}, {8, 9}, {5, 3}, {2, 3}, {9, 7}}}, { ImagePadding -> 20, VertexCoordinates -> {{1.3319870562836094`, -1.2182029026301042`}, { 0.6002776611561564, -0.5910688384443139}, { 1.3896910066130828`, -0.30710152515528266`}, { 0.30710152515528266`, -1.3206457819564068`}, { 2.275146629553748, -0.5540750341644491}, { 0.5364359468662252, -1.9993708115936757`}, { 2.485850230829737, -1.8121679780760571`}, { 3.3951220339651926`, -0.733843338891291}, { 3.5282966412014107`, -1.6378547706461117`}}, VertexLabels -> { "Rose" -> Placed["Rose", Above], "Rudy" -> Placed["Rudy", Below], "Anna" -> Placed["Anna", After], "James" -> Placed["James", Below], "Larry" -> Placed["Larry", Above], "Linda" -> Placed["Linda", Above], "Nora" -> Placed["Nora", Above], "Carol" -> Placed["Carol", Below], "Ben" -> Placed["Ben", Before]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmVmYGDgBWImKHZ+f23FRf+v9kksq4MP1X7ez/Ymtb7S9LF9xaZI I85Xj/ajy0vq8i/Wsflm3/HvqHrv8ssY8lBx++hlGytiFb9iyB/zrRFuMGZy 8Gh7MeH3rocY8np8bDuqtR7af/nUap/z9z+G/MxwxSLWx8wOOvLdNxf/+4Ph XnT3ocujuw9dPbr70NWjuw9d/d3KdXtNNbkd2ObNZVta/RzDvcvjn0z7bMnj sCnGwmS5yS8M9ejyAMDN3GY= "]]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], { DiskBox[{1.3319870562836094, -1.2182029026301042}, 0.031805038811742764], InsetBox["\<\"Anna\"\>", Offset[{2, 0}, {1.3637920950953522, -1.2182029026301042}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{0.6002776611561564, -0.5910688384443139}, 0.031805038811742764], InsetBox["\<\"Rose\"\>", Offset[{0, 2}, {0.6002776611561564, -0.5592637996325711}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.3896910066130828, -0.30710152515528266}, 0.031805038811742764], InsetBox["\<\"Nora\"\>", Offset[{0, 2}, {1.3896910066130828, -0.27529648634353987}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.30710152515528266, -1.3206457819564068}, 0.031805038811742764], InsetBox["\<\"Ben\"\>", Offset[{-2, 0}, {0.27529648634353987, -1.3206457819564068}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{2.275146629553748, -0.5540750341644491}, 0.031805038811742764], InsetBox["\<\"Larry\"\>", Offset[{0, 2}, {2.275146629553748, -0.5222699953527064}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.5364359468662252, -1.9993708115936757}, 0.031805038811742764], InsetBox["\<\"Carol\"\>", Offset[{0, -2}, {0.5364359468662252, -2.0311758504054183}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{2.485850230829737, -1.8121679780760571}, 0.031805038811742764], InsetBox["\<\"Rudy\"\>", Offset[{0, -2}, {2.485850230829737, -1.8439730168878}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{3.3951220339651926, -0.733843338891291}, 0.031805038811742764], InsetBox["\<\"Linda\"\>", Offset[{0, 2}, {3.3951220339651926, -0.7020383000795483}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{3.5282966412014107, -1.6378547706461117}, 0.031805038811742764], InsetBox["\<\"James\"\>", Offset[{0, -2}, {3.5282966412014107, -1.6696598094578545}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->20]], "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.7721907026985893`*^9, 3.7721930134341516`*^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\"\>", "\<\"Swim Friendship Network\"\>"}, {"\<\"VertexCount\"\>", "9"}, {"\<\"EdgeCount\"\>", "13"}, {"\<\"Description\"\>", "\<\"Social network of friendship in a swimming \ team\"\>"}, {"\<\"ByteCount\"\>", TemplateBox[{"8.916`", "\"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.772190704635333*^9, 3.772193014289939*^9}, CellLabel->"Out[3]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Basic Applications", "Subsection"], Cell["\<\ Find the communities in a friendship network of the swim team:\ \>", "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.772190895850174*^9, 3.77219090866663*^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.772190707494446*^9, 3.772190742095415*^9}}, CellLabel->"In[4]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"communities", " ", "=", " ", RowBox[{"FindGraphCommunities", "[", RowBox[{"g", ",", " ", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}]}]], "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.7721907445333033`*^9, 3.77219076119986*^9}, {3.772190820418539*^9, 3.772190859459927*^9}}, CellLabel->"In[5]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"Anna\"\>", ",", "\<\"Rose\"\>", ",", "\<\"Nora\"\>", ",", "\<\"Ben\"\>", ",", "\<\"Larry\"\>", ",", "\<\"Carol\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Rudy\"\>", ",", "\<\"Linda\"\>"}], "}"}], ",", RowBox[{"{", "\<\"James\"\>", "}"}]}], "}"}]], "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.772190754228301*^9, 3.772190762142948*^9}, 3.772190823703944*^9, 3.7721908603925657`*^9, 3.772193028153049*^9}, CellLabel->"Out[5]="] }, Open ]], Cell["Predict the split of the network in the case of a conflict:", "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.771781552901614*^9, 3.771781569086134*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"g", ",", RowBox[{ RowBox[{ RowBox[{"Subgraph", "[", RowBox[{"g", ",", "#"}], "]"}], "&"}], "/@", "communities"}], ",", RowBox[{"GraphHighlightStyle", "\[Rule]", "\"\\""}]}], "]"}]], "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.7717815329966373`*^9, 3.771781547118816*^9}}, CellLabel->"In[6]:="], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Anna", "Rose", "Nora", "Ben", "Larry", "Carol", "Rudy", "Linda", "James"}, { Null, {{1, 4}, {1, 5}, {1, 2}, {1, 3}, {1, 6}, {1, 7}, {4, 2}, {4, 6}, { 8, 5}, {8, 9}, {5, 3}, {2, 3}, {9, 7}}}, {GraphHighlight -> {"Nora", UndirectedEdge["Ben", "Rose"], UndirectedEdge["Anna", "Rose"], "Linda", UndirectedEdge["Anna", "Nora"], UndirectedEdge["Anna", "Carol"], "Anna", UndirectedEdge["Larry", "Nora"], "Rose", UndirectedEdge["Ben", "Carol"], "Rudy", UndirectedEdge["Anna", "Ben"], UndirectedEdge["Rose", "Nora"], UndirectedEdge["Anna", "Larry"], "James", "Carol", "Larry", "Ben"}, GraphHighlightStyle -> { "DehighlightHide", UndirectedEdge["Anna", "Carol"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Larry" -> {VertexStyle -> Hue[0, 1, 0.8]}, "Carol" -> {VertexStyle -> Hue[0, 1, 0.8]}, "Linda" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["Ben", "Carol"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Rose", "Nora"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Nora" -> {VertexStyle -> Hue[0, 1, 0.8]}, "Rudy" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["Larry", "Nora"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "James" -> {VertexStyle -> Hue[0.8, 0.6, 0.8]}, UndirectedEdge["Anna", "Ben"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Rose" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Anna", "Nora"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Anna", "Rose"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Anna", "Larry"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Anna" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Ben", "Rose"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Ben" -> {VertexStyle -> Hue[0, 1, 0.8]}}, ImagePadding -> 20, VertexCoordinates -> {{1.3319870562836094`, -1.2182029026301042`}, { 0.6002776611561564, -0.5910688384443139}, { 1.3896910066130828`, -0.30710152515528266`}, { 0.30710152515528266`, -1.3206457819564068`}, { 2.275146629553748, -0.5540750341644491}, { 0.5364359468662252, -1.9993708115936757`}, { 2.485850230829737, -1.8121679780760571`}, { 3.3951220339651926`, -0.733843338891291}, { 3.5282966412014107`, -1.6378547706461117`}}, VertexLabels -> { "Rudy" -> Placed["Rudy", Below], "Linda" -> Placed["Linda", Above], "Nora" -> Placed["Nora", Above], "Larry" -> Placed["Larry", Above], "Carol" -> Placed["Carol", Below], "Anna" -> Placed["Anna", After], "James" -> Placed["James", Below], "Ben" -> Placed["Ben", Before], "Rose" -> Placed["Rose", Above]}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[0, 1, 0.8], LineBox[{{1.3319870562836094`, -1.2182029026301042`}, { 0.6002776611561564, -0.5910688384443139}}]}, {Hue[0, 1, 0.8], LineBox[{{1.3319870562836094`, -1.2182029026301042`}, { 1.3896910066130828`, -0.30710152515528266`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.3319870562836094`, -1.2182029026301042`}, { 0.30710152515528266`, -1.3206457819564068`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.3319870562836094`, -1.2182029026301042`}, { 2.275146629553748, -0.5540750341644491}}]}, {Hue[0, 1, 0.8], LineBox[{{1.3319870562836094`, -1.2182029026301042`}, { 0.5364359468662252, -1.9993708115936757`}}]}, { {Opacity[0], LineBox[{{1.3319870562836094`, -1.2182029026301042`}, { 2.485850230829737, -1.8121679780760571`}}]}, InsetBox["\<\"\"\>", {1.9089186435566732, -1.5151854403530807}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, {Hue[0, 1, 0.8], LineBox[{{0.6002776611561564, -0.5910688384443139}, { 1.3896910066130828`, -0.30710152515528266`}}]}, {Hue[0, 1, 0.8], LineBox[{{0.6002776611561564, -0.5910688384443139}, { 0.30710152515528266`, -1.3206457819564068`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.3896910066130828`, -0.30710152515528266`}, { 2.275146629553748, -0.5540750341644491}}]}, {Hue[0, 1, 0.8], LineBox[{{0.30710152515528266`, -1.3206457819564068`}, { 0.5364359468662252, -1.9993708115936757`}}]}, { {Opacity[0], LineBox[{{2.275146629553748, -0.5540750341644491}, { 3.3951220339651926`, -0.733843338891291}}]}, InsetBox["\<\"\"\>", {2.8351343317594706, -0.6439591865278701}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, { {Opacity[0], LineBox[{{2.485850230829737, -1.8121679780760571`}, { 3.5282966412014107`, -1.6378547706461117`}}]}, InsetBox["\<\"\"\>", {3.007073436015574, -1.7250113743610844}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, { {Opacity[0], LineBox[{{3.3951220339651926`, -0.733843338891291}, { 3.5282966412014107`, -1.6378547706461117`}}]}, InsetBox["\<\"\"\>", {3.4617093375833017, -1.1858490547687013}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {Hue[0, 1, 0.8], DiskBox[{1.3319870562836094, -1.2182029026301042}, 0.031805038811742764]}, InsetBox["\<\"Anna\"\>", Offset[{2, 0}, {1.3637920950953522, -1.2182029026301042}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.6002776611561564, -0.5910688384443139}, 0.031805038811742764]}, InsetBox["\<\"Rose\"\>", Offset[{0, 2}, {0.6002776611561564, -0.5592637996325711}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.3896910066130828, -0.30710152515528266}, 0.031805038811742764]}, InsetBox["\<\"Nora\"\>", Offset[{0, 2}, {1.3896910066130828, -0.27529648634353987}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.30710152515528266, -1.3206457819564068}, 0.031805038811742764]}, InsetBox["\<\"Ben\"\>", Offset[{-2, 0}, {0.27529648634353987, -1.3206457819564068}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{2.275146629553748, -0.5540750341644491}, 0.031805038811742764]}, InsetBox["\<\"Larry\"\>", Offset[{0, 2}, {2.275146629553748, -0.5222699953527064}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.5364359468662252, -1.9993708115936757}, 0.031805038811742764]}, InsetBox["\<\"Carol\"\>", Offset[{0, -2}, {0.5364359468662252, -2.0311758504054183}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{2.485850230829737, -1.8121679780760571}, 0.031805038811742764]}, InsetBox["\<\"Rudy\"\>", Offset[{0, -2}, {2.485850230829737, -1.8439730168878}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.3951220339651926, -0.733843338891291}, 0.031805038811742764]}, InsetBox["\<\"Linda\"\>", Offset[{0, 2}, {3.3951220339651926, -0.7020383000795483}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{3.5282966412014107, -1.6378547706461117}, 0.031805038811742764]}, InsetBox["\<\"James\"\>", Offset[{0, -2}, {3.5282966412014107, -1.6696598094578545}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImagePadding->20]], "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.7717815477170477`*^9, 3.7721908823839827`*^9, 3.772193030871675*^9}, GraphicsBoxOptions->{ImageSize->300}, CellLabel->"Out[6]="] }, Open ]], Cell["\<\ Find the most influential member in the friendship network by 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.7721909842156563`*^9, 3.772191009848213*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Commonest", "[", RowBox[{ RowBox[{ RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"VertexList", "[", "g", "]"}], ",", RowBox[{"Ordering", "[", RowBox[{ RowBox[{"#", "[", "g", "]"}], ",", "All", ",", "Greater"}], "]"}]}], "]"}], "]"}], "&"}], "/@", 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.772190960035578*^9, 3.7721909676971197`*^9}, {3.772193050563108*^9, 3.772193068257037*^9}, { 3.772193122071045*^9, 3.7721931249988613`*^9}, {3.772193210157214*^9, 3.7721932182683353`*^9}, {3.772193268781768*^9, 3.772193277970944*^9}}, CellLabel->"In[18]:="], Cell[BoxData[ RowBox[{"{", "\<\"Anna\"\>", "}"}]], "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.772190953385414*^9, 3.772190968303617*^9}, 3.772193036932325*^9, 3.772193218662491*^9, { 3.772193255729653*^9, 3.77219327828228*^9}}, CellLabel->"Out[18]="] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"Swim Friendship Network | Example Notebook", Visible->True, DockedCells->{}, FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[636, 23, 36, 0, 70, "Subsection",ExpressionUUID->"2697f0a1-e2df-4d2e-b9b6-b37d4ff54fa0"], Cell[675, 25, 35, 0, 70, "Text",ExpressionUUID->"cae1922f-75ba-42ee-a2a4-ed1bb88bf015"], Cell[CellGroupData[{ Cell[735, 29, 169, 5, 70, "Input",ExpressionUUID->"f1ebba7b-a136-4e7c-8477-8da60c2aa380"], Cell[907, 36, 4797, 102, 70, "Output",ExpressionUUID->"25ceb4a2-b70e-46d2-9e79-ebd1c9e6242c"] }, Open ]], Cell[5719, 141, 73, 1, 70, "Text",ExpressionUUID->"394ae4e3-20de-44e4-be9c-4e082753e562", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[5817, 146, 237, 7, 70, "Input",ExpressionUUID->"5202cb9a-eb24-44bf-a6c7-c3eae0be7c80"], Cell[6057, 155, 1763, 44, 70, "Output",ExpressionUUID->"1d7afa12-83f9-4c4e-8f1c-9439d602ca39"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7869, 205, 40, 0, 70, "Subsection",ExpressionUUID->"27d8aa0f-c295-4da8-9a72-bb066d3549bd"], Cell[7912, 207, 398, 7, 70, "Text",ExpressionUUID->"13acdd8e-bfbc-43a3-a5d0-b9865ccdfd49"], Cell[8313, 216, 486, 10, 70, "Input",ExpressionUUID->"93a8d665-47fd-4bb5-9d19-64566703ea7d"], Cell[CellGroupData[{ Cell[8824, 230, 585, 11, 70, "Input",ExpressionUUID->"7042e90e-49ec-45b7-8bab-b0f58758e498"], Cell[9412, 243, 765, 16, 70, "Output",ExpressionUUID->"0e596dd0-1b98-4cdb-a2f5-f0037b4d96d4"] }, Open ]], Cell[10192, 262, 388, 5, 70, "Text",ExpressionUUID->"bc15127c-5e34-4041-9301-19a085bec037"], Cell[CellGroupData[{ Cell[10605, 271, 631, 14, 70, "Input",ExpressionUUID->"2406308b-a2f4-4c72-85b0-a0d766337864"], Cell[11239, 287, 8971, 183, 70, "Output",ExpressionUUID->"08db537e-1125-4d6f-8770-db27ce54a0c0"] }, Open ]], Cell[20225, 473, 412, 7, 70, "Text",ExpressionUUID->"66f1d047-dd5d-49a5-a554-61231b69219e"], Cell[CellGroupData[{ Cell[20662, 484, 1190, 25, 70, "Input",ExpressionUUID->"67fa07db-b162-4025-87f8-45569095ad85"], Cell[21855, 511, 491, 8, 70, "Output",ExpressionUUID->"bdc85d2b-07e6-495d-98bd-36a11b09403f"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)