Приклад 6 кроків, що виконуються по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.
g = ExampleData[{"NetworkGraph", "ZacharyKarateClub"}]Graph[<34>, <78>]VertexCount[g]34EdgeCount[g]78With[{d = DegreeCentrality[g]}, Pick[VertexList[g], d, Max[d]]]{34}Part[VertexList[g], Reverse[Ordering[BetweennessCentrality[g]]][[ ;; 2]]]{1, 34}Pick[VertexList[g], DegreeCentrality[g], 0 | 1]{12}