Needs["Statistics`Master`"]

tab1 = 
        Table[ListPlot[NestList[(# + Random[] - 0.5) &, 10, 50], 
            PlotJoined -> True, 
            DisplayFunction -> 
              Identity], {100}];
tab1[[1]]

Show[tab1, DisplayFunction -> $DisplayFunction]

0.05/365

s0 = 100; μ = 0.05/365; σ = 
      0.003;
distr = 
        NormalDistribution[μ, σ];
tab2 = 
        Table[ListPlot[NestList[#*(1 + Random[distr]) &, s0, 360], 
            PlotJoined -> True, 
            DisplayFunction -> 
              Identity], {30}];
Show[tab2, DisplayFunction -> $DisplayFunction]