User Portlet User Portlet

Sam Carrettie
Freelancer
LOCATION: New York City
INTERESTS IN JOBS & NETWORKING:
Collaboration Consulting Meet ups Networking
ABOUT ME:

Nice posts: http://wolfr.am/StaffPicks

I am a strong believer in RTFM: http://reference.wolfram.com/language

Coming together is a beginning; keeping together is progress; working together is success. ~ Henry Ford

n = 1000; 
r := RandomInteger[{1, n}]; 
f := (#/(.01 + Sqrt[#.#])) & /@ (x[[#]] - x) &; 
s := With[{r1 = r}, p[[r1]] = r; q[[r1]] = r]; 
x = RandomReal[{-1, 1}, {n, 2}]; 
{p, q} = RandomInteger[{1, n}, {2, n}]; 
Graphics[{PointSize[0.007], Dynamic[If[r < 100, s]; 
Point[x = 0.995 x + 0.02 f[p] - 0.01 f[q]]]}, PlotRange -> 2]

enter image description here

Code by Simon Woods