{3, 6}

{4, 4}

{6, 3}

p = 3
q = 6
animación = false
vel: 1
espejo: {x = 0.4999999999999997}
Vac: {(0.5000000000000001, 0.8660254037844386),(-1, 1.2246467991473532E-16),(0.49999999999999933, -0.866025403784439)}
pV: {(0.5000000000000001, 0.8660254037844386),(-1, 1.2246467991473532E-16),(0.49999999999999933, -0.866025403784439)}
pos = 0
actualp = Polygon(pV)
qR = 5
test = false
esp = 3
anima = 0.3 (slider from 0 to 1, step 0.01)
Vacp = Flatten(Join[{{Vac(p)}, {Vac \ {Vac(p)}}}])
Vac2 = Flatten(Join[{{Vac \ {Vac(1)}}, {Vac(1)}}])
celda0 = Sequence(Rotate[(1, 0), ((k * 2) * pi / p) + pi / p], k, 0, p - 1)
pol = Polygon(celda0)
ncActual = 0
Vplus = Sequence({Vac(k), q - 1, ncActual}, k, 3, p - 1)
paleta: {{{204, 0, 0}, {230, 230, 150}, {0, 102, 153}}}
nc = If(floor(p / 2) ≠ p / 2 ∧ q ≟ 3, 4, floor(q / 2) ≟ q / 2, 2, 3)
test2 = true
Vac2' = Flatten(Join[{{Vac \ {Vac(1), Vac(2)}}, {Vac(1), Vac(2)}}])
Vacp' = Flatten(Join[{{Vac(p - 1), Vac(p)}, {Vac \ {Vac(p - 1), Vac(p)}}}])
Export_1: (-1, -1)
Export_2: (1, 1)
V = Sequence(Rotate[(1, 0), ((k * 2) * pi / p) + pi / p], k, 0, p - 1)
vert: {{(0.5000000000000001, 0.8660254037844386), 5, 0},{(-1, 1.2246467991473532E-16), 5, 0},{(0.49999999999999933, -0.866025403784439), 5, 0}}
vert0 = Sequence({V(k), q - 1, 0}, k, 1, p)
hc1 = Line(celda0(p), celda0(1))
vuelta = 1
vueltaS = 0
op1 = true
op2 = false
op3 = false
texto1: "Número
cromático: " + nc + "

Copia: " + pos + "
Vuelta: " + (If[pos ≟ 0, 0, vuelta]) + ""
u: celda0(3) - celda0(4)
r44: {Line[celda0(4), celda0(1)]}
r36: {Line[celda0(3), celda0(1)]}
r63 = Sequence(PolyLine[{celda0(5) + (k * u), celda0(6) + (k * u), celda0(1) + (k * u), celda0(2) + (k * u), celda0(2) + ((k + 1) * u)}], k, -12, 12, 3)