https://dl.dropbox.com/u/12911987/Flash/Dvdt1.1.swf

If simulation runs slowly, press minus key on title screen to reduce starting planets.

Percolation model in Mathematica using weighted quick union

A N*N square starts out completely blocked (black). Locations are randomly unblocked (gray) until a water source from the top can traverse from the top to the bottom through adjacent unblocked locations, at which point the water has “percolated” through the square.

Wolfram Research: What do Wolfram Research employees, and Stephen Wolfram specifically, think of Quora?