Wolfram
Mathematica
8의 신기능: 그래프 및 네트워크 분석
◄
이전
|
다음
►
응용 분야
매개 중심성의 계산
다양한 네트워크의 매개 중심성의 평균을 계산합니다.
In[1]:=
X
empiricalset = {{"NetworkGraph", "BooksAboutUSPolitics"}, {"NetworkGraph", "DolphinSocialNetwork"}, {"NetworkGraph", "LesMiserables"}, {"NetworkGraph", "WordAdjacencies"}, {"NetworkGraph", "ZacharysKarateClub"}};
In[2]:=
X
colors = {RGBColor[0., 0., 0.], RGBColor[0.996078, 0.360784, 0.027451], RGBColor[0.541176, 0.713725, 0.027451], RGBColor[0.145098, 0.435294, 0.384314], RGBColor[0.00784314, 0.509804, 0.929412]};
In[3]:=
X
empiricalgraphs = MapThread[ HighlightGraph[ExampleData[#1], {}, EdgeStyle -> Directive[Opacity[0.5], #2], VertexStyle -> Black] &, {empiricalset, colors}];
In[4]:=
X
Column[Grid[{#}] & /@ Partition[empiricalgraphs, 3, 3, 1, {}], Alignment -> Center]
Out[4]=