wolfram-mathematica - 如何找到最大度数的图形中的所有顶点？

Question

给定一个图，说

g = Graph[{x -> a, y -> c, a -> b,
           b -> c, a -> c, d -> c,
           a -> d, b -> d},
      VertexLabels -> "Name"] 

如何找到图中度数最大的所有顶点，即具有最多边数的所有顶点的列表，并在图中突出显示它们？

在这种情况下，将是顶点 {a,c}。

Answer 1

这是使用DegreeCentrality的方法:

(* In[41]:= *) max = Pick[VertexList[g], DegreeCentrality[g], Max[DegreeCentrality[g]]]

(* Out[41]= *) {a, c}

(* In[42]:= *) HighlightGraph[g, max]