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