贝特朗奇论r语言代码
时间: 2023-11-13 22:54:52 浏览: 47
贝特朗奇论是一个经典的概率论问题,它可以用来解释为什么在一个圆形区域内随机放置的点中,落在圆内的概率为 π/4。以下是使用R语言模拟贝特朗奇论的代码:
```R
# 设置模拟次数
n <- 100000
# 生成随机点
x <- runif(n, -1, 1)
y <- runif(n, -1, 1)
# 计算点到圆心的距离
d <- sqrt(x^2 + y^2)
# 判断点是否在圆内
in_circle <- d <= 1
# 计算落在圆内的点的比例
pi_estimate <- 4 * sum(in_circle) / n
# 输出估计值
print(pi_estimate)
```