|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.
GraphPlot[ Flatten[Thread[# -> CountryData[#, "BorderingCountries"]] & /@ CountryData["Europe"]], VertexLabeling -> True]