Случайное блуждание по решётке 

Визуализация симметричного случайного блуждания на плоскости.

In[1]:=

X SeedRandom[1234]; data2d = RandomFunction[RandomWalkProcess[0.5], {0, 10^3}, 2];

In[2]:=

X Graphics[Line[Transpose@data2d["States"]], AspectRatio -> Automatic]

Out[2]=

Визуализация симметричного случайного блуждания в пространстве.

In[3]:=

X data3d = RandomFunction[RandomWalkProcess[0.5], {0, 10^3}, 3];

In[4]:=

X Graphics3D[Line[Transpose@data3d["States"]], BoxRatios -> Automatic]

Out[4]=