18/06/29 17:03:43.33 zpGshx3p.net
>>307
シミュレーション
> bachelor=8 ; model=7
> row=c(rep(1,bachelor),rep(0,model))
> theater <- function() sum(diff(sample(row))!=0)
> re=replicate(1e5,theater())
> mean(re)
[1] 7.46791
>
>
理論値
> (8/15*7/14+7/15*8/14)*14
[1] 7.466667