Áreas de Aplicação

Compute a centralidade entre redes 

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]=