u<-runif(1000) #1000̈l𐶐
hist(u)@#qXgOɏ@
n<-rnorm(1000)@#1000̐K𐶐
hist(n)@#qXgOɏ

u<-runif(200)
lambda<-10
hist(-1/lambda*(log(u)),freq=F)