例 6 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。
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}