σ=%v

finalspread = 0.1 (slider from 0 to 2, step 0.01)
omega = 1
nnodes = 100
finalwander = Sequence(RandomBinomial[1, 40 * finalspread / nnodes] * RandomUniform[(-3 * omega) / 4, 2 * omega], i, 1, nnodes)
finaloffset = Sequence(RandomNormal[0, finalspread], i, 1, nnodes)
t = 0.15 (slider from 0 to 100, step 0.01)
meantheta: omega * t
finalthetas = Sequence(meantheta + Element[finaloffset, i] + t * Element[finalwander, i], i, 1, nnodes)
decaytau = 10
theta0s = Sequence(RandomUniform[-3.141592653589793, 3.141592653589793], i, 1, nnodes)
thetas = Sequence(Element[theta0s, i] * ℯ^((-t) / decaytau) + Element[finalthetas, i], i, 1, nnodes)
points = Sequence(ℯ^(ί * Element[thetas, j]), j, 1, nnodes)
a = 7.38905609893065
z: Sum[points] / nnodes
r: abs(z)
text1: "r=" + r + ""