MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R 野球 ヒットを打つ（1種類）確率がpのとき、Nout.num回アウトになるまでに打席に立つバッターの加算確率的な何か。 Vnumは打者人数。 Nout.numは1イニング変わるためのアウトの数。 hitpは0.1、0.2、...0.9とヒットを打つ確率が変わる。ここではシングルヒットのみを考える。 アウト結果は1-hitpだね。 Vnum <- 9 # the number of batters Nout.num<- 3 # the number of outs hitp <- 9 # hit probability A<- array(0,c(Vnum,Nout.num,hitp)) # Vnum… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20101115%2F1289832419" title="arrayと野球確率 - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2010-11-15.jpg Hatena Blog https://hatena.blog 2010-11-15 23:46:59 rich https://mikuhatsune.hatenadiary.com/entry/20101115/1289832419 1.0 100%