Wolfram Technology Guide: Automated Computational Aesthetics  previous | next 
Automatic Network Layout
Mathematica automatically lays out networks with many components better than could usually ever be achieved by humans.
In[1]:=

Click for copyable input
GraphPlot[Table[i -> Mod[i^3, 100], {i, 100}], DirectedEdges -> True]
Out[1]=