Einmal

Periodisch

Welle

T =

l =

t =

Schunkeln

Version Stand
02.11.2020
Andreas Jäger

Stand

T = 1.989 (slider from 1 to 5, step 0.001)
w: 2
t: -1
l1 = Sequence(Polygon[(i - 0.2, 0), (i + 0.2, 0), (i + ℯ^(((-2 * w) * (i - t)^(2))), 1.3)], i, 0, 10, 1)
l2 = Sequence((i + ℯ^(((-2 * w) * (i - t)^(2))), 1.3), i, 0, 10, 1)
l3 = Sequence(If[i - 0.5 ≤ t ≤ i + 0.5, (i + ℯ^(((-2 * w) * (i - t)^(2))), 1.3)], i, 0, 10, 1)
bEin: false
l = 4.247 (slider from 3 to 6, step 0.001)
A = 0.6 (slider from 0 to 0.6, step 0.001)
l4 = Sequence((i + (A * sin(((2 * π) * (t / T - i / l)))), 1.3), i, 0, 10, 1)
l5 = Sequence(Polygon[(i - 0.2, 0), (i + 0.2, 0), (i + (A * sin(((2 * π) * (t / T - i / l)))), 1.3)], i, 0, 10, 1)
bPer = true
bWel = false
ff(x) = (1.8 * ℯ^(((-2 * w) * (x - t - 1)^(2))))
g(x) = 1.3 + (A * sin(((2 * 3.1415) * (t / T + 0.25 - x / l))))
Eingabefeld1 = Textfield(T)
Eingabefeld2 = Textfield(l)
Eingabefeld3 = Textfield(t)
a = false