RstudioR语言

# 设置参数
seed <- 1   # 种子数
a <- 48271  # 乘法因子
c <- 0      # 增量
m <- 2^31-1 # 模数

# 生成随机数函数
generate_random_number <- function(seed, a, c, m) {
  seed <- (a * seed + c) %% m
  return(seed)
}

# 生成一系列随机数
num_of_random_numbers <- 10 # 设置生成随机数的个数
random_numbers <- numeric(num_of_random_numbers) # 创建一个空向量用于存储随机数

# 循环生成随机数
for (i in 1:num_of_random_numbers) {
  seed <- generate_random_number(seed, a, c, m)
  random_numbers[i] <- seed
}

# 打印生成的随机数
print(random_numbers)