Приклад 3 кроків, що виконуються по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.
g = ExampleData[{"NetworkGraph", "FamilyGathering"}];Немає виводу — цей крок готує щось для наступного.
Part[VertexList[g], Ordering[EigenvectorCentrality[g], All, Greater]]VertexList[ExampleData[{NetworkGraph, FamilyGathering}]]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]