New in Wolfram Mathematica 6: Fully Automated Graph Layout  previous | next 
Automatically Arrange Multiple Components
Mathematica 6 automatically arranges any number of graph components in easy-to-interpret ways.
In[1]:=

Click for copyable input
GraphPlot[

 Table[i -> FromDigits[Reverse[IntegerDigits[i, 2]], 2], {i, 0, 511}]]
Out[1]=