balls <- 1:1000
tennis <- 10*tan(runif(length(balls), -pi/2, pi/2))
par(mfrow=c(1,2))
plot(balls, tennis, pch=".", ylab="position on the wall")
plot(balls, tennis, pch=".", ylim=c(-100,100), ylab="position on the wall")