balls <- 1:1000
tennis <- rcauchy(length(balls), 0, 10)
plot(balls, tennis, pch=".", ylim=c(-100,100), ylab="position on the wall")
points(balls, cumsum(tennis)/balls, type="l")