Wellenlänge

Vektoren 1

Vektoren 2

Summenvektoren

Start

Stop

Reset

Welle 1

Welle1+Welle2

Welle2

t = 1.85 (slider from 0 to 15, step 0.05)
λ_1: 15
v: 2
f: v / λ_1
T: 1 / f
A_1: 5
λ_2: 15
A_2: 8
f_2: v / λ_2
T_2: 1 / f_2
f_1(x) = If[t - x / v > 0 ∧ x ≥ ((-λ_1)) / 2 ∧ t - x / v ≤ T / 2, (A_1 * sin((((2 * π) * f) * (t - x / v)))), 0]
t_2: 15 - t
g(x) = If[t_2 - x / v > 0 ∧ x ≥ ((-λ_2)) / 2 ∧ t_2 - x / v ≤ T_2 / 2, (A_2 * sin((((2 * π) * f_2) * (t_2 - x / v)))), 0]
s(x) = f_1(x) + g(x)
L_1 = Sequence(Vector[(i, 0), (i, f_1(i))], i, ((-λ_1)) / 2, 30, 1)
L_3 = If(λ_1 ≤ λ_2, Sequence[Vector[(i, 0), (i, s(i))], i, ((-λ_2)) / 2, 30, 1], Sequence[Vector[(i, 0), (i, s(i))], i, ((-λ_1)) / 2, 30, 1])
L_2 = Sequence(Vector[(i, f_1(i)), (i, s(i))], i, ((-λ_2)) / 2, 30, 1)
a: false
b: false
c = false
d: false
e: true
h: false