装備召喚の★5カルタの期待値

Table of Contents

• 1. ★5カルタの期待値
  • 1.1. プリズム限定
• 2. N回ガチャで★5カルタが一枚も出ない確率
  • 2.1. コード

1 ★5カルタの期待値

0.01

0.01 / 0.0150 myc¹ = 0.667 / myc

1.1 プリズム限定

0.0008

0.0008 / 0.0150 myc = 0.0533 / myc

2 N回ガチャで★5カルタが一枚も出ない確率

2.1 コード²

import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Backend.Diagrams(toFile)

p = 0.01

ps i = 100 * (1 - p) ^ i : ps (i + 1)

lessThanFivePercent = ceiling $ log(0.05) / log(1-p) -- <= (1-p)^n ≦ 0.05

qs :: [(Double,Double)]
qs = take (lessThanFivePercent + 100 + 1) $ zip [0..] (ps 0)

rs :: [(Double,Double)]
rs = take (lessThanFivePercent + 100 + 1) $ zip [0..] (repeat 5)

main = toFile def "destiny-soubi-syoukan.svg" $ do
    layout_title .= "Probability of Not Getting a 5 Star Karuta"
    setColors [opaque blue, opaque red]
    plot (line "probability" [qs])
    plot (line "5%" [rs])

Footnotes:

¹

myc = 万クリスタル

²

Haskellで書かれてます

Created: 2019-02-14 木 21:40

Emacs 25.2.1 (Org mode 8.2.10)

Validate