a = BinomialDist(2, 0.5, 25, true)
b = BinomialDist(3, 0.16666666666666666, 2, false)
f(x) = (1 / sqrt((2 * π)) * exp(((-x^(2))) / 2))
n = 95 (slider from 0 to 1000, step 1)
p = 0.9 (slider from 0 to 1, step 0.1)
liste1 = Sequence(Segment[(i - 0.5, BinomialDist[n, p, i, false]), (i + 0.5, BinomialDist[n, p, i, false])], i, 0, n)
liste2 = Sequence(Segment[(i - 0.5, BinomialDist[n, p, i, false]), (i - 0.5, 0)], i, 0, n)
liste3 = Sequence(Segment[(i + 0.5, 0), (i + 0.5, BinomialDist[n, p, i, false])], i, 0, n)
fn(x) = (1 / sqrt(((((2 * π) * n) * p) * (1 - p))) * ℯ^(((-1) / 2 * ((x - (n * p)) / sqrt(((n * p) * (1 - p))))^(2))))
liste4 = Sequence(Segment[((i - 0.5 - (n * p)) / sqrt(((n * p) * (1 - p))), (BinomialDist[n, p, i, false] * sqrt(((n * p) * (1 - p))))), ((i + 0.5 - (n * p)) / sqrt(((n * p) * (1 - p))), (BinomialDist[n, p, i, false] * sqrt(((n * p) * (1 - p)))))], i, 0, n)
liste5 = Sequence(Segment[((i - 0.5 - (n * p)) / sqrt(((n * p) * (1 - p))), (BinomialDist[n, p, i, false] * sqrt(((n * p) * (1 - p))))), ((i - 0.5 - (n * p)) / sqrt(((n * p) * (1 - p))), 0)], i, 0, n)
liste6 = Sequence(Segment[((i + 0.5 - (n * p)) / sqrt(((n * p) * (1 - p))), (BinomialDist[n, p, i, false] * sqrt(((n * p) * (1 - p))))), ((i + 0.5 - (n * p)) / sqrt(((n * p) * (1 - p))), 0)], i, 0, n)