WOLFRAM

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

Kコア構成要素を求める

Wolframシステムでは，KCoreComponentsを使ってグラフを階層的にその k コアに分解することができる．

    
Wolfram Language code: g = [image];
k コア構成要素を求める：
Wolfram Language code: cores = Table[KCoreComponents[g, k], {k, 1, 3}]
k コアを示す：
Wolfram Language code: Show[{Graphics[GraphicsComplex[GraphEmbedding[g], Table[{Hue[1 - k / (Length[cores] + 1), .3, .7], Thickness[0.14], CapForm["Round"], Line[List@@@EdgeList[Subgraph[g, Join @@ cores[[k]]]]]}, {k, 1, Length[cores]}]]], Annotate[g, { VertexStyle -> EdgeForm[{White, Opacity[1]}], EdgeStyle -> Directive[Thick, Opacity[1], White]}]}]