18/10/21 17:09:21.51 l2E3XuiN.net
>>930
re=NULL
re[1:2]=0
for (k in 3:12){
re[k]=choose(24,k)*choose(9,12-k)*4^(12-k)/choose(60,12)
}
sum(re)
> sum(re)
[1] 0.1106278
シミュレーション解とほぼ一致
18/10/21 17:09:21.51 l2E3XuiN.net
>>930
re=NULL
re[1:2]=0
for (k in 3:12){
re[k]=choose(24,k)*choose(9,12-k)*4^(12-k)/choose(60,12)
}
sum(re)
> sum(re)
[1] 0.1106278
シミュレーション解とほぼ一致