Start

Stop

Vektoren der Welle 1

Vektoren der Welle 2

Summenvektor

μ = -7.7 (slider from -15 to limit, step 0.1)
Breite1 = 5 (slider from 1 to 10, step 1)
d = 0 (slider from 0 to 20, step 1)
Breite2 = 7 (slider from 1 to 10, step 1)
σ_1: Breite1 / 6
A_1 = 8 (slider from 1 to 15, step 1)
f_1(x) = (A_1 * ℯ^((-1 / 2 * ((x - μ) / σ_1)^(2))))
A_2 = 4 (slider from 1 to 15, step 1)
σ_2: Breite2 / 6
f_2(x) = (A_2 * ℯ^((-1 / 2 * ((x + μ) / σ_2)^(2))))
f(x) = f_1(x) + f_2(x)
Wasser(x, y) = y ≤ 0 ∨ y ≤ f(x)
dx: 0.5
limit: 15
L_1 = Sequence(Vector[(i, 0), (i, f_1(i))], i, (-limit) - Breite1, limit + Breite1, dx)
L_3 = If(Breite1 > Breite2, Sequence[Vector[(i, 0), (i, f(i))], i, (-limit) - Breite1, limit + Breite1, dx], Sequence[Vector[(i, 0), (i, f(i))], i, (-limit) - Breite2, limit + Breite2, dx])
L_2 = Sequence(Vector[((-i), 0), ((-i), f_2((-i)))], i, (-limit) - Breite2, limit + Breite2, dx)
a = false
b = false
c = false