n = 50 (slider from 1 to 50, step 1)
L1 = Sequence(RandomUniform[0, 1], i, 1, n)
p = 0.55 (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(PolyLine[(i - 1, Element[L3, i]), (i, Element[L3, i]), (i, Element[L3, i + 1])], i, 1, n)
Text1 = Text("Neuberechnung mit F9 bzw. Strg+R", (40, 5))