- 655 名前：１３２人目の素数さん mailto:sage [2024/03/23(土) 03:38:32.00 ID:GDYCbUDd.net]
- 乱数発生させてのシミュレーションでの解が
> sim=\(p=c(0.5, 0.6, 0.7, 0.8, 0.9)){
+ d=0
+ for(i in p){
+ d=d+rbinom(1,1,i)
+ }
+ d
+ }
> k=1e6
> y=replicate(k,sim())
> sum(y==5)/sum(y>=4)
[1] 0.2888797
だったので
自分の立式で正しいと思っておりましたが、他の人の答とも合致すると安心できます。
計算する時間をとっていただいて、ありがとうございました。
