マコトとナインを両方入手できない確率、ならびにマコトを入手できない確率
マコトとナインを両方入手できない確率、ならびにマコトを入手できない確率
Table of Contents
1 十連ガチャN回目でマコトとナインを両方入手できない確率、ならびにマコトを入手できない確率
1.1 コード1
import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Backend.Diagrams(toFile)
len = 51
p n = 0.99^n + 0.99^n - 0.98^n
q n = p $ 10 * n
qs :: [(Double,Double)]
qs = take len $ zip [0..] [100 * q i | i <- [0..]]
rs :: [(Double,Double)]
rs = take len $ zip [0..] (repeat 5)
s n = 0.99^n
t n = s $ 10 * n
ts :: [(Double,Double)]
ts = take len $ zip [0..] [100 * t i | i <- [0..]]
chart = do layout_title .= "Probability of Not Getting ..."
layout_y_axis . laxis_title .= "Probability"
layout_x_axis . laxis_title .= "10 Times Gacha"
setColors [opaque blue, opaque green, opaque red]
plot (line "Makoto and Nine" [qs])
plot (line "Makoto" [ts])
plot (line "5%" [rs])
main = toFile def "destiny-pickup-bb.svg" chart

Comments
Post a Comment