Wolfram Technology Guide: Fully Automated Graph Layout  previous | next 
Immediately Generate Easy-to-Understand Graphs
Mathematica 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]=