Chi-square

X <- runif (6*10^4, -1/2, 1/2)
X <- matrix (X, nrow=6)
Y <- apply (X, 2, sum)

Histogram with density

# histograma das 10^5 v.a. Y
hist (Y, 40, prob=T)
curve (dnorm(x), col='red', lwd=3, add=T)
curve (dnorm(x,0,sqrt(1/2)), col='blue', add=T)