Brownian Motion 

Simulate Brownian motion in two dimensions.

In[1]:=

X sample = RandomFunction[WienerProcess[], {0, 1, .001}, 2]["States"];

In[2]:=

X ListLinePlot[Transpose@sample, ColorFunction -> "Rainbow", ImageSize -> 300]

Out[2]=