Zeigerdarstellung einer Welle
Author: Patrick Nordmann

Der linke Zeiger gehört zum Anfangspunkt A der Welle.
Der rechte Zeiger ist am blauen Punkt verschiebbar und gehört zur Stelle B.

a = 0.3 (slider from -5 to 5, step 0.1)
p = Ray((0, -0.64), (1, -0.64))
t = 1.3 (slider from 0 to 10.472, step 0.1)
P = Point(p)
i = (0, 1)
ω = 0.6 (slider from -5 to 5, step 0.1)
P0: a * exp(i * ω * t) + (0, y(P))
λ = 1 (slider from 1 to 20, step 0.1)
e = 2.718281828459045
v = Vector((0, y(P)), P0)
Elongation = Function(a * sin(ω * t - 2 * 3.141592653589793 / λ * x), 0, 25)
α = Angle(v)
AA: (0, y(v)) + (0, y(P))
Strich0 = Segment(AA, P0)
PB: a * exp(i * (ω * t - 2 * 3.141592653589793 / λ * x(P))) + P
vP = Vector(P, PB)
B: (x(P), Elongation(x(P)))
A: (0, a * sin(ω * t))
e0 = Segment((0, 0), A)
β = Angle(vP)
v0B = Vector(P, P + v)
γ = Angle(vP, v0B)
δ = Angle(v0B)
eB = Segment(P, P + (0, y(vP)))
eA = Segment((0, y(P)), AA)
StrichP = Segment(PB, P + (0, y(vP)))
e0B = Segment((x(P), 0), B)
Text1: "Phasenverschiebung: - " + (2 * x(P)) + "π" + "  (- " + (x(P) * 360) + "°)"