Qurak

Analyze social networks

Ejemplo 6 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", "ZacharyKarateClub"}]
Salida
Graph[<34>, <78>]
Paso 2
VertexCount[g]
Salida
34
Paso 3
EdgeCount[g]
Salida
78
Paso 4
With[{d = DegreeCentrality[g]}, Pick[VertexList[g], d, Max[d]]]
Salida
{34}
Paso 5
Part[VertexList[g], Reverse[Ordering[BetweennessCentrality[g]]][[ ;; 2]]]
Salida
{1, 34}
Paso 6
Pick[VertexList[g], DegreeCentrality[g], 0 | 1]
Salida
{12}

Funciones usadas

Recetas relacionadas

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