Wolfram Technology Guide: Fully Automated Graph Layout  previous | next 
Create Dynamic Sequences of Networks
Mathematica automatically lays out networks that are being updated in real time.
In[1]:=

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