Teilchensimulation

<< Graphics`

n = 5000;

ClearAll[part];
part[0,  n_] := 2  Table[Random[],  {n}] - 1;
part[k_Integer,  n_] := part[k, n] = 
          part[k - 1, n] + 2  Table[Random[],  {n}] - 1;

Table[
      Histogram[part[k,  n],  HistogramScale -> 1,  
        HistogramRange -> {-k - 1,  k + 1}],  {k,  0,  
        4}]