set.seed(12345)
n<-10000;

min_list<-c(1,2,4,5)
max_list<-c(2,4,8,10)
par(mfrow=c(2,2))

unif1<-runif(n, min=1, max=2)
unif2<-runif(n, min=2, max=4)
unif3<-runif(n, min=4, max=8)
unif4<-runif(n, min=5, max=10)

(munif1<-mean(unif1))
(munif2<-mean(unif2))
(munif3<-mean(unif3))
(munif4<-mean(unif4))

(vunif1<-var(unif1))
(vunif2<-var(unif2))
(vunif3<-var(unif3))
(vunif4<-var(unif4))

for (i in 1:length(min_list)) {
  hist(runif(n, min=min_list[i], max=max_list[i]), freq=F, breaks=100, xlab="x", main=paste("min =", min_list[i], " max =", max_list[i]))
 }