問題なんか何もないよ✧ヾ(❀╹◡╹)ノ゙

MikuHatsune2014-03-19

ケッコー結構いけるもんネ(*≧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