4. Oberschwingung

Zupfsaite

7. Oberschwingung

6. Oberschwingung

5. Oberschwingung

3. Oberschwingung

2. Oberschwingung

Do positioning

Grundschwingung

Abspielen

8. Oberschwingung

a_8 = 0 (slider from -2 to 2, step 0.1)
a_7 = 0 (slider from -2 to 2, step 0.1)
a_6 = 0.01 (slider from -2 to 2, step 0.1)
a_5 = -0.09 (slider from -2 to 2, step 0.1)
a_4 = -0.14 (slider from -2 to 2, step 0.1)
a_3 = -0.36 (slider from -2 to 2, step 0.1)
a_2 = 0.16 (slider from -2 to 2, step 0.1)
a_1 = 1.05 (slider from -2 to 2, step 0.1)
A: {a_1, a_2, a_3, a_4, a_5, a_6, a_7, a_8}
t = 6.28 (slider from 0 to 6.283185307179586, step 0.01)
U(n, x, t) = (sin((n * x)) * cos((n * t)))
n = 8 (slider from 1 to 8, step 1)
w = Simplify(Sum[(Element[A, i] * U(i, x, y)), i, 1, n])
s = Segment((0, -2), (π, -2))
P = Point(s)
f(x) = If[0 ≤ x ≤ 3.141592653589793, w(x, t)]
P_f: (x(P), f(P))
h = Segment(P, P_f)
P_t: ((0.5 * t), f(P))
g(x) = If[0 ≤ x ≤ 3.141592653589793, Sum[(Element[A, i] * U(i, x(P_f), (2 * x))), i, 1, n]]