mit kleiner Dämpfung

Hier die Frequenz  f  mit dem
   Schieberegler einstellen

r_2 / r_1

f<f_0                 f=f_0                f>f_0

1

b = true
f_2(x) = -(0.0012) * x^(3.0) - 0.0011 * x^(2.0) + 0.0542 * x + 1.0
f_1(x) = 0.0041 * x^(4.0) - 0.086 * x^(3.0) + 0.43 * x^(2.0) + 0.1355 * x + 1.0
f_a = If(b, f_1, f_2)
f = 0 (slider from 0 to 10.3, step 0.01)
t = 5.43 (slider from 0 to 6.28, step 0.01)
sch_1(x) = sin(x * (21.0 + 2.0 * f) / 30.0 - t) + 7.0
g_1 = If(x > 0.0 ∧ x < 9.0, sch_1)
sch_2(x) = f_a(f) * sin(x * (21.0 + 2.0 * f) / 30.0 - f * 0.3 - t)
g_2 = If(x > 0.0 ∧ x < 9.0, sch_2)
Hand: (0.0, sch_1(0.0))
Masse: (0.0, sch_2(0.0))
a = Segment(Hand, Masse)
A = (13.9, 0)
B = (13.9, 6)
u = Vector(A, B)
P: (14.0 + f, f_a(f))
C = Point(u)