WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

スモールワールドネットワークにおけるクラスタリング

クラスタリングは，摂動についてネットワークの強固さを定量化し，高度なクラスタリングは，WattsとStrogatzのスモールワールドネットワークで示される特徴の1つである．疫学では，強固なネットワークは，ネットワークが摂動している場合でも疫病を同じように広げる．

ランダムなグラフの大域クラスタ係数を計算する：
Wolfram Language code: RandomGraph[WattsStrogatzGraphDistribution[40, 0.05, 5]]
Wolfram Language code: GlobalClusteringCoefficient[%]
ランダムなグラフの集合の大域クラスタ係数を計算する：
Wolfram Language code: {graphs, coeffs} = Transpose[SortBy[{#, GlobalClusteringCoefficient[#]}& /@ RandomGraph[WattsStrogatzGraphDistribution[30, 0.1, 3], {10000}], Last]];
係数値について，選択されたグラフのヒートマップを作成する：
Wolfram Language code: min = Min[coeffs];max = Max[coeffs];
Wolfram Language code: nf = Nearest[coeffs -> graphs];
Wolfram Language code: values = Range[min, max, (max - min) / (4 ^ 2 - 1)];
Wolfram Language code: Grid[Partition[Map[Annotate[First[nf[#]] 1, {VertexStyle -> Directive[White, EdgeForm[White]], EdgeStyle -> White, Background -> ColorData[{"SolarColors", "Reversed"}, Rescale[#, {min, max}]], ImageSize -> {100, 100}}]&, values], 4]]