Skip to main content
2 of 2
added 47 characters in body
kglr
  • 403.4k
  • 18
  • 501
  • 959

Generate a list of random numbers and Accumulate:

b = Accumulate @ RandomVariate[NormalDistribution[0, 1], 500]; ListLinePlot[b, PlotRange -> 35] 

enter image description here

For 2D, you can generate pairs of random numbers and Accumulate:

SeedRandom[1] b2 = Accumulate @ RandomVariate[NormalDistribution[0, 1], {500, 2}]; ListLinePlot[b2, AspectRatio -> Automatic] 

enter image description here

kglr
  • 403.4k
  • 18
  • 501
  • 959