Qurak

Degree centrality in social networks

Пример 3 шагов, выполняемых по порядку в одной сессии. Каждый шаг был выполнен на движке, и вывод ниже — то, что он дал.

Шаг 1
g = ExampleData[{"NetworkGraph", "FamilyGathering"}];

Нет вывода — этот шаг готовит что-то для следующего.

Шаг 2
Part[VertexList[g], Ordering[EigenvectorCentrality[g], All, Greater]]
Вывод
VertexList[ExampleData[{NetworkGraph, FamilyGathering}]]
Шаг 3
cc = DegreeCentrality[g];
HighlightGraph[g, Table[Style[VertexList[g][[i]], ColorData["TemperatureMap"][cc[[i]] / Max[cc]]], {i, VertexCount[g]}], ImageSize -> 300]
Вывод
HighlightGraph[ExampleData[{NetworkGraph, FamilyGathering}], Table[VertexList[g][[i]], {i, VertexCount[g]}], ImageSize -> 300]

Используемые функции

Связанные рецепты

Все рецепты · Справочник функций · Использовать из MCP-клиента