Author: Patrick Nordmann (schulphysikwiki.de)

An / Aus

Zeitlupe

Masse der rechten Kugel (kg)

Gesamtenergie der Schwingung (J)

Federhärte der ganzen Feder (N/m)

B = (6, 0)
A = (-6, 0)
M = 2 (slider from 1 to 11, step 1)
m = 1
S: ((m * x(A) + M * x(B)) / (m + M), 0)
D_{max} = 100 (slider from 10 to 200, step 1)
D1: D_{max} * Length[Segment[A, S]] / Length[Segment[A, B]]
E = 25 (slider from 0 to 50, step 1)
l = Length(Segment[A, B])
w: sqrt(D1 / m)
ymax: sqrt(2 * E / (m * w^(2) * (1 + m^(2) / M)))
t = 0.4151786744732125 (slider from 0 to T, step T * ymax / 1000)
x1: ymax * sin(w * t)
P1: A + (x1, 0)
Ymax: ymax * m / M
x2: -Ymax * sin(w * t)
P2: B + (x2, 0)
T: 2 * π * sqrt(m / D1)
r = 0.5
R: (M / m * r^(3))^(1 / 3)
d = Circle(P2, R)
c = Circle(P1, r)
Feder = CurveCartesian(t, 0.3 * sin(100.5 / Length[Segment[P1, P2]] * (t - x(P1))), t, x(P1), x(P2))
a = true
b = false
test: 0.1 * b
C = (-9, -2)
D = (10, -2)
F = (10, -8)
G = (-10, -8)
H = (-10, -2)
Vieleck1, c_1, d_1, f, g, h = Polygon(C, D, F, G, H)
Text5: "Zeit: t = " + t + " sec"