Contoh 6 langkah, dijalankan berurutan dalam satu sesi. Setiap langkah dieksekusi pada mesin dan keluaran di bawah adalah apa yang dihasilkannya.
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}