グラフについての情報を得る
中央,周辺,距離の関数を使って,グラフについての情報を得ることができる.
g = [image];text[s_] := Style[s, 12, FontFamily -> "Verdana"]Row[{g, Grid[{{text["頂点の数:"], ToString[VertexCount[g]]}, {text["辺の数:"], ToString[EdgeCount[g]]}, {text["重み付き:"], ToString[WeightedGraphQ[g]]}, {text["強連結:"], ToString[ConnectedGraphQ[g]]}, {text["半径:"], ToString[GraphRadius[g]]}, {text["直径:"], ToString[GraphDiameter[g]]}, {text["中心:"], ToString[First@GraphCenter[g]]}, {text["周辺:"], ToString[First@GraphPeriphery[g]]}}, Alignment -> Left]}, Spacer[20]]