An image of Brownian motion, done with three different step sizes. The hierarchical structure is clearly visible. Vector version of Image:Brownian_hierarchical.png made using Mathematica.

Mathematica code:

g = {last = {0, 0}}
Do[g = Append[g, last = last + Sqrt[-Log[Random[]]]{Cos[θ], Sin[θ]} /. θ -> Random[Real, 2π]], {2048}]
g2 = Partition[g, 8][[All, 1]];
g3 = Partition[g2, 8][[All, 1]];
plot = Show[
   ListPlot[g, PlotJoined -> True, PlotStyle -> RGBColor[0,.78,1], DisplayFunction -> Identity],
   ListPlot[g2,PlotJoined -> True, PlotStyle -> Blue, DisplayFunction -> Identity],
   ListPlot[g3,PlotJoined -> True, DisplayFunction -> Identity],
   DisplayFunction -> $DisplayFunction, AspectRatio -> Automatic, ImageSize -> 1000]

ข้าพเจ้า ผู้ถือลิขสิทธิ์ในงานนี้ ขอมอบงานให้เป็นสาธารณสมบัติ ประกาศนี้มีผลทั่วโลก ในบางประเทศ การกระทำดังกล่าวอาจไม่สามารถทำได้ตามกฎหมาย ข้าพเจ้าอนุญาตให้ทุกคนมีสิทธิ์ในการใช้ไฟล์นี้ในทุกเหตุผลการใช้ โดยไม่มีมีเงื่อนไข เว้นแต่กฎหมายไม่อนุญาตให้ทำเช่นนั้น