連結したグラフ成分を求める
スイレンの葉の密度から，カエルのジャンプネットワークをモデル化する．バージョン11では，ネットワーク接続性解析のための関数ConnectedGraphComponentsとWeaklyConnectedGraphComponentsが導入されている．
スイレンの池にいるカエルは1.5フィートジャンプして25枚のスイレンの葉の中の一つから次に到達する．
In[1]:=
lilyDensity =
MixtureDistribution[{1, 1,
1}, {BinormalDistribution[{0, 0}, {1, 1}, 0],
BinormalDistribution[{-1, 4}, {1, 1}, -1/2],
BinormalDistribution[{4, 4}, {1, 1}, 1/3]}];
lilyPond = SpatialGraphDistribution[25, 1.5, lilyDensity];ランダムな池を選ぶ．
In[2]:=
g = RandomGraph[lilyPond, VertexShape -> \!\(\*
GraphicsBox[
{EdgeForm[{Hue[0.3277777777777778, 0.16216216216216217`, 1.], Opacity[
1.], AbsoluteThickness[1], CapForm["Round"]}], FaceForm[Hue[
0.2388888888888889, 1., 0.9224857536122444]],
PolygonBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQDQYVhQ5gWiALQkeUQmiDPAj9ohxCcxRB6IwKCF1R
DKF3QOVnlKDqvwGlT0DNzyiD0AE5ENoCyr+QBOVD9StEoupz8IHqy4XQDeZQ
fiqEZtCG0AvioXxdVHMabKD8YKh5flDaG0I/iIbynaDuSYbqs4bQH2D2WkLo
Dqg7HXwh9A+o/xdEQOgZVVD3Qc2xqIbQE9Kh/oLKf4CFNzQ8N0DDBRZ+BTkO
ABBsOr4=
"]]},
ImageSize->{45., Automatic}]\), VertexSize -> {"Scaled", 0.1},
EdgeStyle -> Opacity[0], Background -> Hue[0.6, 0.8, 0.4],
ImageSize -> 150]Out[2]=
カエルが葉から葉へ跳べるように，最も密集したところを見付ける．
In[3]:=
VertexCount[First[ConnectedGraphComponents[g]]]Out[3]=
すべてのスイレンの葉を訪れるために，カエルが泳がなければならない回数を求める．
In[4]:=
Length[ConnectedGraphComponents[g]] - 1Out[4]=
