Menu główne
##########################################################################################
### Generowanie wartości losowych z rozkładu chi-
##########################################################################################
n=1000
x=c()
x[1]=2
a=1
for (i in 1:n)
{
s=2*a*runif(1)-
x[i+1]=x[i]+s
while (dchisq(x[i+1],3)/dchisq(x[i],3)<runif(1))
}
par(mfrow=c(1,2))
plot(x,type="l")
hist(x)