黄泉の花で凸る確率

Table of Contents

• 1. 鬼魂術n回目で特定の一体が一度も凸れない確率
  • 1.1. コード
• 2. 結論

1 鬼魂術n回目で特定の一体が一度も凸れない確率

1.1 コード¹

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

len = 21
p = 1/6

ps = [ 100 * (1-p)^i | i <- [0..]]

qs :: [(Double,Double)]
qs = take len $ zip [0..] ps

rs :: [(Double,Double)]
rs = take len $ zip [0..] (repeat 5)

chart = do layout_bottom_axis_visibility . axis_show_ticks .= False
    setColors [opaque blue, opaque blue, opaque red]
    plot (line "Probability" [qs])
    plot (points "Probability" qs)
    plot (line "5%" [rs])

main = toFile def "destiny-yomi-no-hana.svg" chart

2 結論

特定のチャイルド一体を凸らせようと思うと、4回ぐらいで50%、16回ぐらいで95%凸れる。 黄泉の花のよる凸は全く確実とは言えない。

Footnotes:

¹

Haskellで書かれてます

Created: 2020-01-16 木 22:22

Emacs 25.2.1 (Org mode 8.2.10)

Validate