import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Backend.Diagrams(toFile)
zyuuren n = ((1 - 0.006)^10)^n
ps i = 100 * zyuuren i : ps (i + 1)
lessThanFivePercent = ceiling $ log(0.05) / (10 * log(1-0.006)) -- <= (1-0.006)^n ≦ 0.05
-- = 50
qs :: [(Double,Double)]
qs = take (lessThanFivePercent + 10 + 1) $ zip [0..] (ps 0)
rs :: [(Double,Double)]
rs = take (lessThanFivePercent + 10 + 1) $ zip [0..] (repeat 5)
main = toFile def "destiny-pickup-12.svg" $ do
layout_title .= "Probability of Not Getting a Newbie-Mona"
setColors [opaque blue, opaque red]
plot (line "probability" [qs])
plot (line "5%" [rs])
Comments
Post a Comment