【简答题】蒲丰投针的R程序如下:buffon<-function(n, l=0.8, a=1){ k<-0 theta<-runif(n,0, pi); x<-runif(n,0, a/2) for (i in 1:n){ if (x[i]<=l/2*sin(theta[i])) k<-k+1 } ( )}buffon(100000,l=0.8,a=1)
【单选题】蒲丰的投针试验计算圆周率π,编写成R模拟程序如下buffon<-function(n, l=0.8, a=1){ k<-0 theta<-runif(n,0, pi); x<-runif(n,0, ) for (i in 1:n){ if (x[i]<=l/2*sin(theta[i])) k<-k+1 } 2*l*n/(k*a)}其中 正确的是