Ball werfen

r = 1 (slider from -5 to 5, step 0.1)
a = 1 (slider from -5 to 5, step 0.1)
M = Sequence((2 + ((2 * r) * i) + (a * i) | 2), i, 0, 3)
K = Zip(Circle[P, r], P, M)
W: {1,1,1,1,0}
v0: (-0.45, -0.8)
v1: (-0.65, 1.1)
anzahl1 = Sum(Take[W, 1, 4])
T = Sequence(Text[LaTeX[If[W(i) ≟ 0, "\Downarrow", "\Rightarrow"]], M(i) + v0, false, true], i, 1, 5)
z_{1} = Vector((M(2) + M(3)) / 2 + (0 | -1.5), (M(2) + M(3)) / 2 + (0 | -3.5))
A: (1 | 1)
B: (3 | 1)
C: (4 | 1)
D: (6 | 1)
E: (7 | 1)
F: (9 | 1)
G: (10 | 1)
H: (12 | 1)
anzahl0: 4 - anzahl1
Text1: "Treffer: " + anzahl0 + ""