mit Einhüllener und Bildern

Dämpfung

t [s]

s(t)

d = 0.1 (slider from 0 to 1, step 0.02)
g(x) = 10.0 * exp(-(d * x))
f(x) = g(x) * sin(x)
f1 = If(x > 0.0 ∧ x < 60.0, f)
g1 = If(x > 0.0 ∧ x < 60.0, g)
g2(x) = -g1(x)
a = false
A = Point(yAxis)
B = Point(f1)
C = Point(f1)
D = Point(f1)
E = Point(f1)
F = Point(f1)
G = Point(xAxis)
M = (0, 0)
u = Vector(M, A)
v = Vector(M, G)
H = Point(yAxis)
b = Segment(M, H)