Qurak

Degree centrality in social networks

Ejemplo 3 pasos, ejecutados en orden en una sola sesión. Cada paso se ejecutó contra el motor y la salida de abajo es lo que produjo.

Paso 1
g = ExampleData[{"NetworkGraph", "FamilyGathering"}];

Sin salida - este paso prepara algo para el siguiente.

Paso 2
Part[VertexList[g], Ordering[EigenvectorCentrality[g], All, Greater]]
Salida
VertexList[ExampleData[{NetworkGraph, FamilyGathering}]]
Paso 3
cc = DegreeCentrality[g];
HighlightGraph[g, Table[Style[VertexList[g][[i]], ColorData["TemperatureMap"][cc[[i]] / Max[cc]]], {i, VertexCount[g]}], ImageSize -> 300]
Salida
HighlightGraph[ExampleData[{NetworkGraph, FamilyGathering}], Table[VertexList[g][[i]], {i, VertexCount[g]}], ImageSize -> 300]

Funciones usadas

Recetas relacionadas

Todas las recetas · Referencia de funciones · Usar esto desde un cliente MCP