New in Wolfram Mathematica 6: Fully Automated Graph Layout ◄ previous | next ►
Create Social Network Graphics
Mathematica 6 makes it easy to create informative graphics that capture constructs such as social networks. This shows countries in Europe whose territories share borders.
In[1]:=

Click for copyable input
GraphPlot[

 Flatten[Thread[# -> CountryData[#, "BorderingCountries"]] & /@ 

   CountryData["Europe"]], VertexLabeling -> True]
Out[1]=