\rm{Ort}\, \it{y}

0

An / Aus

Federlänge in cm

Masse in kg

l = 16 (slider from 2 to 16, step 1)
m = 0.5 (slider from 0.1 to 1, step 0.1)
v = Vector((0, 0), (0, 8))
D: 32 / l
w: sqrt(D / m)
ymax = 1.5
t = 0.22 (slider from 0 to T, step 0.01)
e = -2
Y: (ymax * sin(w * t), 0) + v
c = 3.4
K(t) = -ymax * D * sin(w * t)
T: 2 * π * sqrt(m / D)
Yv = Vector(Y)
PFr: (1.7, 0) + (l, 0.03) + v
PFl: Y + (1.7, 0)
n = 0.3400000000000025
o = 0.9000000000000075
p = -1.2999999999999972
a = 3.4 (slider from -5 to 6, step 1)
b = 0 (slider from -5 to 5, step 1)
B: Y - (c / 2, e / 2)
C: (a + x(B), b + y(B))
E: (c + x(B), e + y(B))
g = 0
h = -2
G: (g + x(B), h + y(B))
Vieleck1, b_1, c_1, e_1, g_1 = Polygon(B, C, E, G)
A: Y + (0.76, -1.1)
d = Circle(A, 0.6)
A_1: Y + (-0.75, -1.1)
d_1 = Circle(A_1, 0.6)
H: (-3.67, -1.71) + v
I: (1.7 + l, -1.71) + v
J: (1.7 + l, 1) + v
i = PolyLine(H, I, J)
O: (-3.53 + 0.46, -2.41) + v
P: (5.88 + 0.46, -2.42) + v
u = Vector(O, P)
S: (-0.48 + 0.46, -1.99) + v
U: (-0.47 + 0.46, -2.81) + v
j = Segment(S, U)
S_1: (-2.46 + 0.46, -2.03) + v
U_1: (-2.45 + 0.46, -2.85) + v
S_2: (1.6 + 0.46, -2.09) + v
U_2: (1.61 + 0.46, -2.9) + v
k = CurveCartesian(t, l * t^(2), t, 0, 10)
Feder = CurveCartesian(t, sin(8 * l / (x(PFr) - x(PFl)) * (t - x(PFl))) + y(Y), t, x(PFl), x(PFr))
an = true
Text2: "Periodendauer: T = " + T + " sec"
Text3: "Frequenz:  f = " + (1 / T) + " Hz"
B': B + (0, 2 * m)
G': G + (0, 2 * m)
E': E + (0, 2 * m)
Vieleck2, g', e', e_2, g_2 = Polygon(G', E', E, G)
Text1: "Federhärte: D = " + D + " N/m"