赞题库-背景图
问答题

蒲丰投针的R程序如下:
buffon
   k
   theta
   for (i in 1:n){
    if (x[i]<= l/2*sin(theta[i]))
       k
  } 
  (                    )
}
buffon(100000,l=0.8,a=1

【参考答案】

2*l*n/(k*a)