Neuberechnung mit F9 bzw Strg+R

n = 5 (slider from 1 to 12, step 1)
L1 = Sequence(RandomUniform[0, 1], i, 1, n)
p = 0.5 (slider from 0 to 1, step 0.01)
L2 = Sequence(If[Element[L1, i] < p, 1, -1], i, 1, n)
L3 = Append(0, Sequence[Sum[Sequence[Element[L2, i], i, 1, k]], k, 1, n])
L4 = Sequence(Segment[(n + Element[L3, i], n - i + 1), (n + Element[L3, i + 1], n - i)], i, 1, n)
L5 = Sequence(Sequence[((2 * i) + j, j), i, 0, n - j], j, 0, n)
L6 = Sequence(Text[k, ((2 * k), -0.3), true], k, 0, n)
a = BarChart(-1, (2 * n) + 1, Sequence[((nCr[n, k] * p^(k)) * (1 - p)^(n - k)), k, 0, n])
L10 = Sequence(Segment[((2 * i), 0), (n + i, n - i)], i, 0, n)
L11 = Sequence(Segment[((2 * n) - (2 * i), 0), (n - i, n - i)], i, 0, n)