Даже состоящая всего из одной строки программа системы Mathematica может выполнять сложные операции.
Эта программа моделирует одномерное случайное блуждание.
| RandomWalk[n_]:=NestList[(#+(-1) ^Random[Integer])&,0,n] |
График, демонстрирующий первые 200 шагов случайного блуждания.
ListPlot[RandomWalk[200],PlotJoined->True];
 |
Ясность программ системы Mathematica позволяет легко модифицировать их для более общих случаев.
Эта программа моделирует случайное блуждание в пространстве размерности d.
| RandomWalk[n_,d_]:=NestList[(#+(-1) ^Table[Random[Integer],{d}])&,Table[0,{d}],n] |
График трехмерного случайного блуждания.
Show[Graphics3D[Line[RandomWalk[1000,3]]]];
 |
