Mechanismus des
unelastischen Stoßes

Version Stand
28.05.2020
Andreas Jäger

Stand

Stoßphase

t_1 = 2.85
t = 4.475 (slider from 0 to 7, step 0.025)
s_{al}: -2.16 - ((t - t_1) * (t - 4.2))
t_2 = 4.19
v_l = 1
s_{vl2}: -2.15 - (v_l * (t - t_2))
s_{vl1}: -5 + (v_l * t)
x_l = If(t < t_1, s_{vl1}, If[t > 3.55, -1.71, s_{al}])
X_l: (x_l, 0)
c = Circle(X_l, 2)
A, B = Intersect(c, xAxis)
B_2: (If[t ≤ 3.55, Min[x(B), 0], x(B) - 0.29], 0)
l = If(t ≥ 3.55, 0.71, x(B_2) - (x_l + 1))
v_r = -1
s_{vr2}: 2.15 + (v_l * (t - t_2))
s_{ar}: 2.16 + ((t - t_1) * (t - 4.2))
s_{vr1}: 5 + (v_r * t)
m_l = 1 (slider from -5 to 5, step 1)
m_r = 1
P_0 = (0, 0)
x_r = If(t < t_1, s_{vr1}, If[t > 3.55, 1.71, s_{ar}])
X_r: (x_r, 0)
d = Circle(X_r, 2)
C, D = Intersect(d, xAxis)
C_2: (If[t ≤ 3.55, Max[x(C), 0], x(C) + 0.29], 0)
e = Circle(X_l, 1)
w: (4 * π / l)
f = Circle(X_r, 1)
f_l(x) = If[x_l + 1 < x < x(B_2), (0.5 * sin((w * (x - (x_l + 1)))))]
f_r(x) = If[x(C_2) < x < x_r - 1, (-0.5 * sin((w * (x - (x_r - 1)))))]
Text2: "" + (If[t < t_1, "Vor Stoß", If[t > t_2, "Nach Stoß", "Stoß"]]) + ": Feder " + (If[2.92 < t < 4.13, If[2.92 < t < 4.13, If[2.92 < t < 3.53, "wird gestaucht", If[3.57 < t < 4.13, "ist maximal gestaucht", ""]], "entspannt"], "bleibt maximal gestaucht"]) + ""
a = false
b = false