σ=%v

sigmaomega = 0.1 (slider from 0 to 1, step 0.01)
meanomega = 1
nnodes = 100
omegas = Sequence(abs(RandomNormal[meanomega, sigmaomega]) + RandomUniform[0, sigmaomega / 2], i, 1, nnodes)
theta0s = Sequence(0, i, 1, nnodes)
t = 0.2 (slider from 0 to 100, step 0.01)
thetas = Sequence(Element[theta0s, i] + Element[omegas, i] * t, i, 1, nnodes)
points = Sequence(ℯ^(ί * Element[thetas, j]), j, 1, nnodes)
a = 7.38905609893065
z: Sum[points] / nnodes
r: abs(z)
text1: "r=" + r + ""