Simula el resultado de 1000 jugadas

n = 1000 (slider from 10 to 1000, step 10)
tanda1 = Sequence(Random[1, 10] + (0 * k), k, 1, n)
tanda1b = Sequence(If[Element[tanda1, k] ≟ 1, 1, If[(Element[tanda1, k] > 1) ∧ (Element[tanda1, k]  <  4), 2, (Element[tanda1, k] > 3) ∧ (Element[tanda1, k]  <  7), 3, 4]], k, 1, n)
tanda2 = Sequence(Random[1, 10] + (0 * k), k, 1, n)
tanda2b = Sequence(If[Element[tanda2, k] ≟ 1, 1, If[(Element[tanda2, k] > 1) ∧ (Element[tanda2, k]  <  4), 2, (Element[tanda2, k] > 3) ∧ (Element[tanda2, k]  <  7), 3, 4]], k, 1, n)
tanda3 = Sequence(Random[1, 10] + (0 * k), k, 1, n)
tanda3b = Sequence(If[Element[tanda3, k] ≟ 1, 1, If[(Element[tanda3, k] > 1) ∧ (Element[tanda3, k]  <  4), 2, (Element[tanda3, k] > 3) ∧ (Element[tanda3, k]  <  7), 3, 4]], k, 1, n)
iguales0 = Sequence(If[Element[tanda1b, k] ≟ Element[tanda2b, k] ∧ Element[tanda2b, k] ≟ Element[tanda3b, k], Element[tanda1b, k], 0], k, 1, n)
iguales = KeepIf(x > 0, iguales0)
inc2: 3
inc1: 0.1
D = (6.246, -3.404)
E2: D + (inc1 / 2, inc2 / 5)
E1: D + (inc1 / 2, inc2)
E = Point(Segment[E1, E2])
A = (-2.734, -2.756)
B = (0.266, -2.756)
C = (3.266, -2.756)
r1 = Random(1, 10)
r2 = Random(1, 10)
polígono1, f, g, h, i = Polygon(D, D + (inc1, 0), E + (inc1 / 2, 0), E - (inc1 / 2, 0))
r3 = Random(1, 10)
F = (-4.226, 6.364)
G = (6.444, 3.306)
polígono2, f_1, j, g_1, k = Polygon(F, (x(G), y(F)), G, (x(F), y(G)))
tandaN = CountIf(x ≟ 1, iguales)
texto1: "" + tandaN + ""
tandaB = CountIf(x ≟ 2, iguales)
texto2: "" + tandaB + ""
tandaC = CountIf(x ≟ 3, iguales)
texto3: "" + tandaC + ""
tandaS = CountIf(x ≟ 4, iguales)
texto4: "" + tandaS + ""
inicio: 0