Simula el resultado de 1000 jugadas

n = 1000 (slider from 10 to 1000, step 10)
inicio: 0
A = (4.596, 1.436)
r: 5
c = Circle(A, r)
B: A + (r, 0)
C: A - (r, 0)
D: A + (0, r)
E: A - (0, r)
h = AngularBisector(B, A, D)
F = Intersect(c, h, 1)
d = CircleSector(A, E, B)
e = CircleSector(A, D, C)
f = CircleSector(A, B, D)
g = CircleSector(A, C, F)
k = CircleSector(A, F, E)
a = Random(1, 8)
b = If(a ≟ 1 ∨ a ≟ 2, Random[1, 89], If[a ≟ 3 ∨ a ≟ 4, Random[91, 179], If[a ≟ 5, Random[181, 224], If[a ≟ 6, Random[226, 269], Random[271, 359]]]])
G: A + (r; b°)
u = Vector(A, A + (2 * (G - A) / 3))
lista1 = Sequence(Random[1, 8] + (0 * k), k, 1, n)
verde = CountIf(x < 3, lista1)
rojo = CountIf(x ≟ 3 ∨ x ≟ 4, lista1)
naranja = CountIf(x ≟ 5, lista1)
amarillo = CountIf(x ≟ 6, lista1)
azul = CountIf(x > 6, lista1)
texto1: "Verde: " + verde + "

Rojo: " + rojo + "

Naranja: " + naranja + "

Amarillo: " + amarillo + "

Azul: " + azul + ""