Qurak

Degree centrality in social networks

Eksempel 3 steg, kjørt i rekkefølge i én økt. Hvert steg ble kjørt mot motoren, og utdataene nedenfor er det de ga.

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

Ingen utdata - dette steget setter opp noe for det neste.

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

Funksjoner brukt

Relaterte oppskrifter

Alle oppskrifter · Funksjonsreferanse · Bruk dette fra en MCP-klient