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]:=
GraphPlot[Table[i > Mod[i^3, 100], {i, 100}], DirectedEdges > True]
Out[1]=