Münzen 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, 4)
K = Zip(Circle[P, r], P, M)
W: {0, 0, 0, 0, 0}
v0: (-0.65, 1.1)
v1: (-0.65, 1.1)
anzahl1 = Sum(W)
z_{1} = Vector(M(3) + (0 | -1.5), M(3) + (0 | -3.5))
anzahl0: 5 - anzahl1
Text1: "Glückstaler: " + anzahl0 + ""
T = Sequence(Text[LaTeX[If[W(i) ≟ 0, "0", "1"]], If[W(i) ≟ 0, M(i) + v0, M(i) + v1], false, true], i, 1, 5)