v(t)

s(t)

Start / Stop

Reset

Spur ein/aus

s(t)

v(t)

t = 0 (slider from 0 to tA, step 0.01)
v_0 = 60 (slider from 0 to 200, step 10)
v0ms: v_0 / 3.6
aB = 3.8 (slider from -5 to 5, step 0.1)
tB: v0ms / aB
tR = 1.08 (slider from -5 to 5, step 0.1)
tA: tR + tB
v(t) = If[0 ≤ t ≤ tR, v0ms, If[tR ≤ t ≤ tA, v0ms - (aB * (t - tR))]]
s(t) = If[0 ≤ t ≤ tR, (v0ms * t), If[tR ≤ t ≤ tA, (v0ms * t) - ((1 / 2 * (v0ms - v(t))) * (t - tR))]]
xR(t) = If[0 ≤ t ≤ tR, s(t)]
M_2: (s(t) + 10, 5)
M_1: (s(t) - 10, 5)
c = Circle(M_2, 5)
d = Circle(M_1, 5)
C: (0, 0)
D: (0, 2)
f = Segment(C, D)
E: (1, 1)
C': Rotate[C, (-x(M_1)), (0, 1)] + (x(M_1), 0)
D': Rotate[D, (-x(M_1)), (0, 1)] + (x(M_1), 0)
f' = Segment(C', D')
F: (-1, 1)
E': Rotate[E, (-x(M_1)), (0, 1)] + (x(M_1), 0)
F': Rotate[F, (-x(M_1)), (0, 1)] + (x(M_1), 0)
g = Segment(E', F')
C'': (x(C') + 4, y(C'))
D'': (x(D') + 4, y(D'))
E'': (x(E') + 4, y(E'))
F'': (x(F') + 4, y(F'))
h = Segment(C'', D'')
i = Segment(E'', F'')
W_1: (x(M_1) - 10, y(M_1))
W_2: (x(M_2) + 10, y(M_2))
W_3: (x(M_2) + 10, 15)
W_4: (x(M_1) - 10, 15)
Vieleck1, w_1, w_2, w_3, w_4 = Polygon(W_1, W_2, W_3, W_4)
zz: false
b = true
P: (t, s(t))
Q: (t, v(t))
xB(t) = If[tR ≤ t ≤ tA, s(t)]
R: (xR(t), 0)
B: (xB(t), 0)
A: (s(t) - 20, 5)
G: (s(t) + 20, 5)