# gerador_cong
# Autor
# 13/03/2020
# Gerar valores pseudo-aleatórios entre 0 e 1
rm(list = ls())

gc <- function(m,a,b,y0,n){
  ya <- c(rep(0,n)) 
  for(i in 1:n){
    ya[i] <- ((a*y0)+b) %% m
    y0 <- ya[i]
  }
  u <- ya/m
  return(u)
}