单项选择题

蒲丰的投针试验计算圆周率π,编写成R模拟程序如下
buffon
   k
   theta      )
   for (i in 1:n){
    if (x[i]<= l/2*sin(theta[i]))
       k
  } 
  2*l*n/(k*a)
}
其中      正确的是
A、a
B、a/2
C、a/3
D、a/4