carreracaballos0
Author: Pepe

Número de tiradas:

a1 = 100 (slider from 1 to 100, step 1)
a: round(a1)
tirada = 0 (slider from 0 to 10000, step 1)
h_2 = Sequence(Mod[Random[0.0, t], 6.0] + 1.0 + tirada - tirada, t, 6.0, a + 5.0)
h_1 = Sequence(Mod[Random[0.0, t], 6.0] + 1.0 + tirada - tirada, t, 6.0, a + 5.0)
h_0 = Sequence(abs(Element[h_1, s] - Element[h_2, s]) + 1.0, s, 1.0, a)
matriz2 = Sequence(Sequence[If[Element[h_0, t] ≟ z, Element[h_0, t] / 4.0, 0.0], t, 1.0, a], z, 1.0, 12.0)
O1 = (-3.96, 4.3)
C1 = (-3.1, 2.6)
Pos1 = (0, -2.6)
Cab0: (1.6 + Sum[Element[matriz2, 1.0]], -1.0)
Cab1: (1.6 + Sum[Element[matriz2, 2.0]] / 2.0, -(0.2))
Cab2: (1.6 + Sum[Element[matriz2, 3.0]] / 3.0, 0.6)
Cab3: (1.6 + Sum[Element[matriz2, 4.0]] / 4.0, 1.4)
Cab4: (1.6 + Sum[Element[matriz2, 5.0]] / 5.0, 2.2)
Cab5: (1.6 + Sum[Element[matriz2, 6.0]] / 6.0, 3.0)
Pos2: Pos1 + (760.0 / 50.0, 0.0)
lista2 = Sequence(Sum[Element[matriz2, t]] / t, t, 1.0, 6.0)
lista4 = Sequence({Polygon[(1.6, 0.78 * t - 1.65), (1.6 + Element[lista2, t], 0.78 * t - 1.65), (1.6 + Element[lista2, t], 0.78 * t - 2.25), (1.6, 0.78 * t - 2.25)]}, t, 1.0, 6.0)
texto1: a + ""