ケッコー結構いけるもんネ(*≧o≦)b❤
失敗だって笑顔でさぁ！☆♡ヾ(*'∀`*)ﾉ♡
キミと一緒(／≧∇)／＼(∇≦＼)／♪♡
乗り越えて行こう✧:.ﾟ٩(๑>◡<๑)۶:.｡♡スリーツーワンジャンプ！((ヾ(๑ゝω･)ﾉ♡
きんいろモザイクOPテーマ Jumping!! より。
桜Trick 10話で、楓とゆずとモブの3人が大縄跳びを1000回飛んでいた。
長縄跳びで飛べる回数の期待値はこちらでやっているが、今回は3人で1000回飛んだときの、一人あたりの成功確率を考える。
fail_p <- 10 ^ seq(-7, 0, length=100000) # 一人あたりのジャンプ失敗確率 alpha <- 0.05 # 適当な有意水準 people <- 3 # 一度に飛ぶ人数 n_jump <- 1000 # 成功回数 res <- rep(0, length(fail_p)) for(i in seq(res)){ success_p <- (1 - fail_p[i]) ^ people res[i] <- success_p ^ n_jump } par(mar=c(5, 5, 4, 2)) plot(fail_p, res, type="l", lwd=3, cex.lab=1.8, log="x", xlab="一人あたりの一回ジャンプ失敗率", ylab=paste(people, "人で", n_jump, "回ジャンプ成功率"))
fail_p[tail(which(res > alpha), 1)]
# シミュレーション条件を満たす失敗確率 [1] 0.0009980217
