SenderA = (-2, -2)
SenderB = (-2, 2)
a = Line(SenderB, SenderA)
C = Point(xAxis)
Schirm = Line(C, a)
D = Point(Schirm)
c = Segment(SenderB, D)
d = Segment(SenderA, D)
Wellenlänge = 1.1 (slider from 0 to 30, step 0.1)
Gangunterschied: d - c
Phase: 2.0 * 3.141592653589793 * Gangunterschied / Wellenlänge
Pfeillänge = 2 (slider from 0 to 5, step 0.1)
E = (2, 2.56)
F: (x(E) + Pfeillänge, y(E))
WelleVonA = Vector(E, F)
G: (x(F) + Pfeillänge * cos(Phase), y(F) + Pfeillänge * sin(Phase))
WelleVonB = Vector(F, G)
Interferenz = Vector(E, G)
H: (x(C) + Distance[E, G], y(D))