18/08/18 18:25:37.54 Z1UCnKoz.net
ｽﾚﾘﾝｸ(math板:42番)
この程度の問題ができなくても、ド底辺シリツ医大なら上位合格だろうなぁ。なんせ一次方程式や正多角形の高さすら計算できない馬鹿揃い。
数学板で顰蹙の シミュレーション解
> # URLﾘﾝｸ(fast-uploader.com)
> # (1) 2/10×1/9=1/45
> # (2) 2/10×1/9+8/10×2/10=41/225
> # (1)/(2) (1/45)/(41/225)=5/41
>
> f <- function(){
+ x=c(1,1,rep(0,8))
+ ai=sample(1:length(x),1)
+ a=x[ai]
+ if(a==1) x=x[-ai]
+ b=sample(x,1)
+ c(a,b)
+ }
> re=replicate(1e6,f())
> mean(apply(re,2,function(x) all(x==1))) ; 1/45
[1] 0.022134
[1] 0.02222222
> mean(apply(re,2,function(x) x[2]==1)) ; 41/225
[1] 0.182258
[1] 0.1822222
> sum(apply(re,2,function(x) all(x==1)))/sum(apply(re,2,function(x) x[2]==1)) ; 5/41
[1] 0.1214432
[1] 0.1219512
確率や場合の数って答に確信が持てないことがあるから、シミュレーションは役にたつな。