n = 64 (slider from 1 to 100, step 1)
liste1 = Sequence(Segment[(i - 0.5, BinomialDist[n, 0.5, i, false]), (i + 0.5, BinomialDist[n, 0.5, i, false])], i, 0, n)
liste2 = Sequence(Segment[(i - 0.5, BinomialDist[n, 0.5, i, false]), (i - 0.5, 0)], i, 0, n)
liste3 = Sequence(Segment[(i + 0.5, BinomialDist[n, 0.5, i, false]), (i + 0.5, 0)], i, 0, n)
a = Sum(liste2, n + 1)
liste4 = Sequence(Segment[((i - 0.5 - n / 2) / (sqrt(n) / 2), (BinomialDist[n, 0.5, i, false] * sqrt(n) / 2)), ((i + 0.5 - n / 2) / (sqrt(n) / 2), (BinomialDist[n, 0.5, i, false] * sqrt(n) / 2))], i, 0, n)
liste5 = Sequence(Segment[((i - 0.5 - n / 2) / (sqrt(n) / 2), (BinomialDist[n, 0.5, i, false] * sqrt(n) / 2)), ((i - 0.5 - n / 2) / (sqrt(n) / 2), 0)], i, 0, n)
liste6 = Sequence(Segment[((i + 0.5 - n / 2) / (sqrt(n) / 2), 0), ((i + 0.5 - n / 2) / (sqrt(n) / 2), (BinomialDist[n, 0.5, i, false] * sqrt(n) / 2))], i, 0, n)