Wellenlänge 1

Wellenlänge 2

λ_1 = 0.7 (slider from 0 to 4, step 0.05)
c = 2 (slider from 0 to 2, step 0.1)
t = 10 (slider from 0 to 10, step 0.05)
l1 = Sequence(If[((-k) * λ_1) + (c * t) < 0, x = ((-k) * λ_1) + (c * t)], k, 4, 100)
d = 2.8 (slider from 0 to 5, step 0.01)
g = 0.74 (slider from 0 to 1, step 0.01)
A: (0, d / 2 + g / 2)
B: (0, d / 2 - g / 2)
C: (0, ((-d)) / 2 + g / 2)
D: (0, ((-d)) / 2 - g / 2)
E: A + (0, 1)
F: D - (0, 1)
f = Ray(A, E)
h = Ray(D, F)
i = Segment(B, C)
G: (0, d / 2)
H: (0, ((-d)) / 2)
l2 = Sequence(If[((-k) * λ_1) + (c * t) > 0, Semicircle[(0, ((-k) * λ_1) + (c * t) + d / 2), (0, (k * λ_1) - (c * t) + d / 2)]], k, 4, 100)
l3 = Sequence(If[((-k) * λ_1) + (c * t) > 0, Semicircle[(0, ((-k) * λ_1) + (c * t) - d / 2), (0, (k * λ_1) - (c * t) - d / 2)]], k, 4, 100)
λ_2 = 1 (slider from 0 to 4, step 0.05)
l4 = Sequence(If[((-k) * λ_2) + (c * t) < 0, x = ((-k) * λ_2) + (c * t)], k, 4, 100)
l5 = Sequence(If[((-k) * λ_2) + (c * t) > 0, Semicircle[(0, ((-k) * λ_2) + (c * t) + d / 2), (0, (k * λ_2) - (c * t) + d / 2)]], k, 4, 100)
l6 = Sequence(If[((-k) * λ_2) + (c * t) > 0, Semicircle[(0, ((-k) * λ_2) + (c * t) - d / 2), (0, (k * λ_2) - (c * t) - d / 2)]], k, 4, 100)
a = true
b = false