New in Wolfram Mathematica 6: Fully Automated Graph Layout  previous | next 
Immediately Generate Easy-to-Understand Graphs
Mathematica 6 takes connectivity data and automatically finds easy-to-understand layouts for graphs.
In[1]:=

Click for copyable input
GraphPlot[Table[i -> Mod[i^2, 200], {i, 400}]]
Out[1]=