μ = 0 (slider from -1 to 1, step 0.05)
Schrittweite = 0.35 (slider from 0 to 1, step 0.05)
σ = 0.3 (slider from 0 to 1, step 0.05)
L = Append(0, Sequence[Sum[Sequence[RandomNormal[μ, σ * Schrittweite], i, 1, k]], k, 1, 100])
L1 = 0
Liste1 = Sequence(PolyLine[(Schrittweite * (i - 1), Element[L, i]), (Schrittweite * i, Element[L, i]), (Schrittweite * i, Element[L, i + 1])], i, 1, 100)
Text1 = Text("Neuberechnung mit F9", (1, -3))