New in Wolfram
Mathematica
8: Graph & Network Analysis
◄
previous
|
next
►
Application Areas
Compute the Betweenness Centrality
Compute the average of betweenness centralities in various networks.
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]=