C

C

Reorienta

Reorienta

Dibujar

Color manual

Rastro

Red

Desplazamiento

Vértices

Azulejo

Guía

Ocultar

Grupo = 1 (slider from 1 to 17, step 1)
xT = 6.92 (slider from -0.06 to 30, step 0.01)
yT = 0.46 (slider from -20 to 5.5, step 0.01)
T: (xT, yT)
xC0 = 1.28 (slider from 0.54 to 100, step 0.01)
yC0 = 1.62
C0: (xC0, yC0)
xB0 = 5.28 (slider from 0.54 to 100, step 0.01)
yB0 = -2.5
B0: (xB0, yB0)
xA0 = 1.6 (slider from 0.54 to 100, step 0.01)
yA0 = -1.1
A0: (xA0, yA0)
angC0 = Angle(A0, C0, B0)
angB0 = Angle(C0, B0, A0)
angA0 = Angle(B0, A0, C0)
flex = 0.05235987755982989 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
tipo = If((abs(angA0 - 90°) < flex) ∨ (abs(angB0 - angC0) < flex) ∨ (abs(angA0 - 60°) < (2 * flex)) ∧ (abs(angB0 - 60°) < (2 * flex)) ∧ (abs(angC0 - 60°) < (2 * flex)), 1, If[(abs(angB0 - 90°) < flex) ∨ (abs(angA0 - angC0) < flex), 2, If[(abs(angC0 - 90°) < flex) ∨ (abs(angB0 - angA0) < flex), 3, 1]])
red = 1 (slider from 1 to 3, step 1)
tipo1: tipo ≟ 1 ∧ red ≟ 1 ∨ tipo ≟ 2 ∧ red ≟ 3 ∨ tipo ≟ 3 ∧ red ≟ 2
tipo2: tipo ≟ 1 ∧ red ≟ 2 ∨ tipo ≟ 2 ∧ red ≟ 1 ∨ tipo ≟ 3 ∧ red ≟ 3
VertC1 = If(tipo1, C0, If[tipo2, A0, B0])
VertA1 = If(tipo1, A0, If[tipo2, B0, C0])
bb = Vector(VertA1, VertC1)
VertB1 = If(tipo1, B0, If[tipo2, C0, A0])
a = Vector(VertA1, VertB1)
bRombo: (abs(a) * UnitVector[bb])
Cuadrado0 = Rotate(VertB1, 90°, VertA1)
bRectángulo: (abs(bb) * UnitVector[Vector[VertA1, Cuadrado0]])
bCuadrado = Vector(VertA1, Cuadrado0)
bHexágono: Vector[VertA1, Cuadrado0] / sqrt(3)
b = If(Grupo ≟ 3 ∨ Grupo ≟ 4, bRombo, Vector[If[(Grupo > 4) ∧ (Grupo < 10), bRectángulo, Vector[If[(Grupo > 9) ∧ (Grupo < 13), bCuadrado, Vector[If[Grupo > 12, bHexágono, bb]]]]]])
B: T + a / 2 - b / 2
A: T - a / 2 - b / 2
Cuadrado = Rotate(B, 90°, A)
Rectángulo: T - a / 2 + (abs(b) * UnitVector[Vector[A, Cuadrado]] / 2)
Hexágono = Rotate(B, 60°, A)
u = Vector(A, B)
M: A + u / 2
rAB = Line(A, u)
Rombo: T - a / 2 + (abs(a) * UnitVector[b] / 2)
Romboide: T - a / 2 + b / 2
listaCC: {Romboide, Romboide, Rombo, Rombo, Rectángulo, Rectángulo, Rectángulo, Rectángulo, Rectángulo, Cuadrado, Cuadrado, Cuadrado, Hexágono, Hexágono, Hexágono, Hexágono, Hexágono}
C = Element(listaCC, Grupo)
v = Vector(A, C)
D: B + v
rCD = Line(C, D)
rAC = Line(A, v)
O: (A + B + C) / 3
rAO = Line(A, O)
F = Mirror(C, O)
rFO = Line(F, O)
Z: Corner[pincel, 1] + (0.05, 0)
A'2: A + u / 2
E: (B + C) / 2
rAF = Line(A, F)
rBF = Line(B, F)
A'1: A + v / 2
H = Mirror(B, O)
G = Mirror(A, O)
BG: (B + G) / 2
N = Midpoint(B, F)
v1 = Vector(F, O)
ZHx14 = Intersect(Line[O, BG], Line[Z, v1])
testOBG14: (AffineRatio[O, BG, ZHx14] ≥ 0) ∧ (AffineRatio[O, BG, ZHx14] ≤ 1)
ZHy14 = Intersect(Line[B, v1], Line[Z, Vector[O, BG]])
testBBG14: AffineRatio[B, BG, ZHy14] ≤ 1
u1 = Vector(F, B)
ZHy = Intersect(Line[F, v1], Line[Z, u1])
testFO: (AffineRatio[F, O, ZHy] ≥ 0) ∧ (AffineRatio[F, O, ZHy] ≤ 1)
ZHx = Intersect(Line[F, u1], Line[Z, v1])
testFB: (AffineRatio[F, B, ZHx] ≥ 0) ∧ (AffineRatio[F, B, ZHx] ≤ 1)
ZHx3 = Intersect(Line[F, u1], Line[Z, Vector[O, N]])
testBN: (AffineRatio[N, B, ZHx3] ≥ 0) ∧ (AffineRatio[N, B, ZHx3] ≤ 1)
testBN14: AffineRatio[N, B, ZHx3] ≥ 0
w1 = Vector(B, O)
ZHz = Intersect(Line[F, v1], Line[Z, w1])
testFOz: (AffineRatio[F, O, ZHz] ≥ 0) ∧ (AffineRatio[F, O, ZHz] ≤ 1)
Zy = Intersect(Line[A, v], Line[Z, u])
testAC2: AffineRatio[A, C, Zy] ≤ 0
testAC: (AffineRatio[A, C, Zy] ≥ 0) ∧ (AffineRatio[A, C, Zy] ≤ 1)
Zx = Intersect(Line[A, u], Line[Z, v])
testAB: (AffineRatio[A, B, Zx] ≥ 0) ∧ (AffineRatio[A, B, Zx] ≤ 1)
testAM: (AffineRatio[A, M, Zx] ≥ 0) ∧ (AffineRatio[A, M, Zx] ≤ 1)
testAA'2: (AffineRatio[A, A'2, Zx] ≥ 0) ∧ (AffineRatio[A, A'2, Zx] ≤ 1)
testAA': (AffineRatio[A, A'1, Zy] ≥ 0) ∧ (AffineRatio[A, A'1, Zy] ≤ 1)
w = Vector(A, D)
Zz = Intersect(Line[A, u], Line[Z, w])
testAMz: (AffineRatio[A, M, Zz] ≥ 0) ∧ (AffineRatio[A, M, Zz] ≤ 1)
testABz: (AffineRatio[A, B, Zz] ≥ 0) ∧ (AffineRatio[A, B, Zz] ≤ 1)
Zw = Intersect(Line[A, w], Line[Z, Vector[B, E]])
testATw: (AffineRatio[A, T, Zw] ≥ 0) ∧ (AffineRatio[A, T, Zw] ≤ 1)
testAE: (AffineRatio[A, E, Zw] ≥ 0) ∧ (AffineRatio[A, E, Zw] ≤ 1)
testAE2: (AffineRatio[A, (A + E) / 2, Zw] ≥ 0) ∧ (AffineRatio[A, (A + E) / 2, Zw] ≤ 1)
reorienta = false
ZHx2 = Intersect(Line[F, u1], Line[Z, Vector[F, G]])
testFB2: (AffineRatio[F, B, ZHx2] ≥ 0) ∧ (AffineRatio[F, B, ZHx2] ≤ 1)
CH: (H + C) / 2
AH: (A + H) / 2
CG: (C + G) / 2
AF: (A + F) / 2
B'1: B + v / 2
EM: E + E - M
E' = Midpoint(E, M)
listaCRot: {Z, E, Z, E, Z, Z, E, E, E', E, E, E, O, O, O, O, O}
B'2: C + u / 2
reorienta0 = If(Grupo ≟ 3 ∨ Grupo ≟ 5 ∨ Grupo ≟ 6 ∨ Grupo ≟ 9 ∨ Grupo ≟ 15, reorienta, false)
Centro9 = If(reorienta0, (E + A'1) / 2, (E + M) / 2)
listaCRot2: {Z, E, Z, E, Z, Z, E, E, Centro9, E, E, E, O, O, O, O, O}
CRot = If(reorienta0, Element[listaCRot2, Grupo], Element[listaCRot, Grupo])
Desplazamiento2 = Point(Segment[B, B + C - A])
z2 = Vector(B, Desplazamiento2)
Desplazamiento: C + u / 2
z = Vector(Rectángulo, Desplazamiento)
rA'2B'2 = Line(A'2, B'2)
rBC = Line(B, C)
rAE = Line(A, E)
B'': B + v / 4
A'': A + v / 4
rA''B'' = Line(A'', B'')
rA'B' = Line(A'1, B'1)
rA'M = Line(A'1, M)
rAD = Line(A, D)
rBO = Line(B, O)
rFG = Line(F, G)
rNO = Line(O, N)
listaEspejos: {rAB, rAB, rAD, rAD, rA'B', rA'B', rA'B', rA''B'', rA'B', rAB, rAE, rA'M, rAB, rBO, rFG, rAB, rNO}
listaEspejos2: {rAB, rAB, rBC, rAD, rA'2B'2, rA'2B'2, rA'B', rA''B'', rA'2B'2, rAB, rAE, rA'M, rAB, rNO, rAB, rAB, rNO}
espejo = If(reorienta0, Element[listaEspejos2, Grupo], Element[listaEspejos, Grupo])
ZzR = Mirror(Z, espejo)
rBD = Line(B, D)
listaRojos2: {Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rCD] / Distance[A, rCD], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAB] / Distance[C, rAB], Distance[Z, rAB] / Distance[C, rAB], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rAO] / Distance[F, rAO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO]}
listaVerdes2: {Distance[Z, rAB] / Distance[C, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAB] / Distance[E, rAB], Distance[Z, rAC] / Distance[A'2, rAC], Distance[Z, rAC] / Distance[A'2, rAC], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rAF] / Distance[B, rAF], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[O, rBF]}
listaVerdes: {Distance[Z, rAB] / Distance[C, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[D, rAB], Distance[Z, rAB] / Distance[E, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rAB] / Distance[A'1, rAB], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[G, rBF], Distance[Z, rBF] / Distance[O, rBF], Distance[Z, rBF] / Distance[O, rBF]}
listaAzules2: {Distance[Z, B] / Distance[B, C], Distance[Z, B] / Distance[B, A'1], Distance[Z, rAB] / Distance[C, rAB], Distance[Z, B] / Distance[B, A], Distance[Z, C] / Distance[C, A'2], Distance[Z, C] / Distance[C, A'2], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A], Distance[Z, M] / Distance[M, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A], Distance[Z, F] / Distance[F, H], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A]}
listaTest2: {testAB ∧ testAC, testAB ∧ testAA', testAB ∧ testAC ∧ testATw, testAA' ∧ testABz ∧ testAE, testAC ∧ testAA'2, testAC ∧ testAA'2, testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM ∧ testAMz, testAA' ∧ testAE2 ∧ testAM, testFB ∧ testFO, testBN14 ∧ testFO ∧ testOBG14 ∧ testBBG14, testFOz ∧ testFO ∧ testAC2, testFB ∧ testFO ∧ testFOz, testFO ∧ testBN ∧ testFOz}
listaRojos: {Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[B, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rAC] / Distance[M, rAC], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO], Distance[Z, rFO] / Distance[B, rFO]}
listaAzules: {Distance[Z, B] / Distance[B, C], Distance[Z, B] / Distance[B, A'1], Distance[Z, rBD] / Distance[A, rBD], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A'1], Distance[Z, B] / Distance[B, A'1], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A'1], Distance[Z, M] / Distance[M, A], Distance[Z, M] / Distance[M, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A], Distance[Z, B] / Distance[B, A]}
libre = false
listaTest: {testAB ∧ testAC, testAB ∧ testAA', testAB ∧ testAC ∧ testABz, testAA' ∧ testABz ∧ testAE, testAB ∧ testAA', testAB ∧ testAA', testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM, testAA' ∧ testAM ∧ testAMz, testAA' ∧ testAE2 ∧ testAM, testFB ∧ testFO, testFB ∧ testFO ∧ testFOz, testFB ∧ testFO ∧ testFB2, testFB ∧ testFO ∧ testFOz, testFO ∧ testBN ∧ testFOz}
listaPolígonos2: {Polygon[A, B, D, C], Polygon[A, A'1, B'1, B], Polygon[A, B, C], Polygon[A, B, E], Polygon[A, A'2, B'2, C], Polygon[A, A'2, B'2, C], Polygon[A, A'1, E, M], Polygon[A, A'1, E, M], Polygon[A, A'1, E, M], Polygon[A, A'1, E, M], Polygon[A, M, E], Polygon[A, A'1, M], Polygon[F, O, G, B], Polygon[N, B, BG, O], Polygon[F, A, B], Polygon[F, B, O], Polygon[N, O, B]}
listaPolígonos: {Polygon[A, B, D, C], Polygon[A, A'1, B'1, B], Polygon[A, B, D], Polygon[A, B, E], Polygon[A, A'1, B'1, B], Polygon[A, A'1, B'1, B], Polygon[A, A'1, E, M], Polygon[A, A'1, E, M], Polygon[A, A'1, E, M], Polygon[A, A'1, E, M], Polygon[A, M, E], Polygon[A, A'1, M], Polygon[F, O, G, B], Polygon[F, O, B], Polygon[F, G, B], Polygon[F, B, O], Polygon[N, O, B]}
Desplazamientou: Desplazamiento + u
B'z: B'1 + z
A'z: A'1 + z
angVert3 = Angle(VertA1, VertC1, VertB1)
angVert2 = Angle(VertC1, VertB1, VertA1)
angVert1 = Angle(VertB1, VertA1, VertC1)
elige = If((abs(angVert1 - 90°) < flex) ∧ (abs(angVert2 - 45°) < flex), 2, If[abs(angVert1 - 90°) < flex, 1, If[(abs(angVert1 - 60°) < (2 * flex)) ∧ (abs(angVert2 - 60°) < (2 * flex)) ∧ (abs(angVert3 - 60°) < (2 * flex)), 3, If[abs(angVert2 - angVert3) < flex, 4, 0]]])
yZ = 4.1
xZ = 8.36 (slider from 0.5 to 50, step 0.01)
rBG = Line(B, G)
cMazul = 20 (slider from 0 to 100, step 1)
manual = false
cMrojo = 80 (slider from 0 to 100, step 1)
cMverde = 50 (slider from 0 to 100, step 1)
k = 2 (slider from 0 to 5, step 1)
lados1 = Sequence(Sequence[Segment[F + ((3 * s) * u1) + (t * (H - F)), F + u1 + ((3 * s) * u1) + (t * (H - F))], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados1b = Sequence(Sequence[Segment[G + ((3 * s) * u1) + (t * (H - F)), G + u1 + ((3 * s) * u1) + (t * (H - F))], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados2 = Sequence(Sequence[Segment[B + ((3 * s) * v1) + (t * u), B + v1 + ((3 * s) * v1) + (t * u)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados2b = Sequence(Sequence[Segment[C + ((3 * s) * v1) + (t * u), C + v1 + ((3 * s) * v1) + (t * u)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
lados3 = Sequence(Sequence[Segment[F + ((3 * s) * (A - F)) + (t * v), A + ((3 * s) * (A - F)) + (t * v)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
celdaP = If(reorienta0, Element[listaPolígonos2, Grupo], Element[listaPolígonos, Grupo])
lados3b = Sequence(Sequence[Segment[H + ((3 * s) * (A - F)) + (t * v), H + O - B + ((3 * s) * (A - F)) + (t * v)], s, (-((4 * k))), (4 * k)], t, (-((4 * k))), (4 * k))
Zz2 = Mirror(Z, CRot)
listaZ = Sequence(Sequence[Z + (s * u) + (t * v), s, (-k), k], t, (-k), k)
ZzR2 = Mirror(ZzR, CRot)
listaZ2 = Sequence(Sequence[Zz2 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR = Sequence(Sequence[ZzR + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR2 = Sequence(Sequence[ZzR2 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
rastro = false
ColorMuestra = (-1.9000000000000001, 1.62)
A1 = 0
A2 = 1
A3: (2 * A2) - A1
bordes = false
C1 = Element(Element[listaZ2, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
D1 = Element(Element[listaZR, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
cArojo = If(reorienta0, (Element[listaRojos2, Grupo] * 0.9), (Element[listaRojos, Grupo] * 0.9))
ccRojo = If(manual, cMrojo / 100, cArojo)
cAazul = If(reorienta0, (Element[listaAzules2, Grupo] * 0.9), (Element[listaAzules, Grupo] * 0.9))
ccAzul = If(manual, cMazul / 100, cAazul)
cAverde = If(reorienta0, (Element[listaVerdes2, Grupo] * 0.8), (Element[listaVerdes, Grupo] * 0.8))
ccVerde = If(manual, cMverde / 100, cAverde)
E1 = Element(Element[listaZR2, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
test = If(reorienta0, Element[listaTest2, Grupo] ∧ libre, Element[listaTest, Grupo] ∧ libre)
testQ: (AffineRatio[A, B, Zx] ≥ 0) ∧ (AffineRatio[A, B, Zx] ≤ 1) ∧ (AffineRatio[A, C, Zy] ≥ 0) ∧ (AffineRatio[A, C, Zy] ≤ 1) ∧ libre ∧ rastro
visibleZ2: Grupo ≟ 2 ∨ Grupo ≟ 4 ∨ Grupo ≟ 7 ∨ Grupo ≟ 8 ∨ Grupo ≟ 9 ∨ Grupo ≟ 10 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12 ∨ Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZR: Grupo ≟ 3 ∨ Grupo ≟ 4 ∨ Grupo ≟ 5 ∨ Grupo ≟ 7 ∨ Grupo ≟ 9 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12 ∨ Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 17
visibleZR2: Grupo ≟ 4 ∨ Grupo ≟ 7 ∨ Grupo ≟ 9 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12 ∨ Grupo ≟ 17
visibleZRD6: Grupo ≟ 6
visibleZRD8: Grupo ≟ 8
visibleZ2RD8: Grupo ≟ 8
visibleZ4: Grupo ≟ 10 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZ42: Grupo ≟ 10 ∨ Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZR4: Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZR42: Grupo ≟ 11 ∨ Grupo ≟ 12
visibleZ3: Grupo ≟ 13 ∨ Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZ3': Grupo ≟ 13 ∨ Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZR3': Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 17
visibleZR3: Grupo ≟ 14 ∨ Grupo ≟ 15 ∨ Grupo ≟ 17
visibleZ6: Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZ6': Grupo ≟ 16 ∨ Grupo ≟ 17
visibleZR6: Grupo ≟ 17
ZzRD6 = If(reorienta0, ZzR + z2, ZzR + z)
visibleZR6': Grupo ≟ 17
ZzRD8: ZzR + u / 2
Zz2RD8 = Mirror(ZzRD8, CRot)
Zz4 = Rotate(Z, 90°, CRot)
ZzR4 = Rotate(ZzR, 90°, CRot)
Zz42 = Mirror(Zz4, CRot)
ZzR42 = Mirror(ZzR4, CRot)
Zz3 = Rotate(Z, 120°, CRot)
Zz3' = Rotate(Z, 240°, CRot)
ZzR3 = Rotate(ZzR, 120°, CRot)
ZzR3' = Rotate(ZzR, 240°, CRot)
Zz6 = Rotate(Z, 60°, CRot)
Zz6' = Rotate(Z, 300°, CRot)
ZzR6 = Rotate(ZzR, 60°, CRot)
ZzR6' = Rotate(ZzR, 300°, CRot)
listaZRd6 = Sequence(Sequence[ZzRD6 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZRD8 = Sequence(Sequence[ZzRD8 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ2Rd8 = Sequence(Sequence[Zz2RD8 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ4 = Sequence(Sequence[Zz4 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ42 = Sequence(Sequence[Zz42 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR42 = Sequence(Sequence[ZzR42 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR4 = Sequence(Sequence[ZzR4 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ3 = Sequence(Sequence[Zz3 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ3' = Sequence(Sequence[Zz3' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR3 = Sequence(Sequence[ZzR3 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR3' = Sequence(Sequence[ZzR3' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ6 = Sequence(Sequence[Zz6 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZ6' = Sequence(Sequence[Zz6' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR6 = Sequence(Sequence[ZzR6 + (s * u) + (t * v), s, (-k), k], t, (-k), k)
listaZR6' = Sequence(Sequence[ZzR6' + (s * u) + (t * v), s, (-k), k], t, (-k), k)
G1 = Element(Element[listaZRD8, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
F1 = Element(Element[listaZRd6, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
H1 = Element(Element[listaZ2Rd8, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
I1 = Element(Element[listaZ4, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
J1 = Element(Element[listaZ42, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
K1 = Element(Element[listaZR4, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
L1 = Element(Element[listaZR42, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
M1 = Element(Element[listaZ3, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
N1 = Element(Element[listaZ3', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
O1 = Element(Element[listaZR3, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
P1 = Element(Element[listaZR3', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
Q1 = Element(Element[listaZ6, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
R1 = Element(Element[listaZ6', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
S1 = Element(Element[listaZR6, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
T1 = Element(Element[listaZR6', 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A18: (2 * A17) - A16
A19: (2 * A18) - A17
A20: (2 * A19) - A18
A21: (2 * A20) - A19
A22: (2 * A21) - A20
A23: (2 * A22) - A21
A24: (2 * A23) - A22
A25: (2 * A24) - A23
verDesplazamiento = false
B1 = Element(Element[listaZ, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
C2 = Element(Element[listaZ2, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
D2 = Element(Element[listaZR, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
E2 = Element(Element[listaZR2, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
F2 = Element(Element[listaZRd6, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
G2 = Element(Element[listaZRD8, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
H2 = Element(Element[listaZ2Rd8, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
I2 = Element(Element[listaZ4, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
J2 = Element(Element[listaZ42, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
K2 = Element(Element[listaZR4, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
L2 = Element(Element[listaZR42, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
M2 = Element(Element[listaZ3, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
N2 = Element(Element[listaZ3', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
O2 = Element(Element[listaZR3, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
P2 = Element(Element[listaZR3', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
Q2 = Element(Element[listaZ6, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
R2 = Element(Element[listaZ6', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
S2 = Element(Element[listaZR6, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
T2 = Element(Element[listaZR6', 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
B2 = Element(Element[listaZ, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
C3 = Element(Element[listaZ2, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
D3 = Element(Element[listaZR, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
E3 = Element(Element[listaZR2, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
F3 = Element(Element[listaZRd6, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
G3 = Element(Element[listaZRD8, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
H3 = Element(Element[listaZ2Rd8, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
I3 = Element(Element[listaZ4, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
J3 = Element(Element[listaZ42, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
K3 = Element(Element[listaZR4, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
L3 = Element(Element[listaZR42, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
M3 = Element(Element[listaZ3, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
N3 = Element(Element[listaZ3', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
O3 = Element(Element[listaZR3, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
P3 = Element(Element[listaZR3', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
Q3 = Element(Element[listaZ6, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
R3 = Element(Element[listaZ6', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
S3 = Element(Element[listaZR6, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
T3 = Element(Element[listaZR6', 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
B3 = Element(Element[listaZ, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
C4 = Element(Element[listaZ2, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
D4 = Element(Element[listaZR, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
E4 = Element(Element[listaZR2, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
F4 = Element(Element[listaZRd6, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
G4 = Element(Element[listaZRD8, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
H4 = Element(Element[listaZ2Rd8, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
I4 = Element(Element[listaZ4, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
J4 = Element(Element[listaZ42, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
K4 = Element(Element[listaZR4, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
L4 = Element(Element[listaZR42, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
M4 = Element(Element[listaZ3, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
N4 = Element(Element[listaZ3', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
O4 = Element(Element[listaZR3, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
P4 = Element(Element[listaZR3', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
Q4 = Element(Element[listaZ6, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
R4 = Element(Element[listaZ6', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
S4 = Element(Element[listaZR6, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
T4 = Element(Element[listaZR6', 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
B4 = Element(Element[listaZ, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
C5 = Element(Element[listaZ2, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
D5 = Element(Element[listaZR, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
E5 = Element(Element[listaZR2, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
F5 = Element(Element[listaZRd6, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
G5 = Element(Element[listaZRD8, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
H5 = Element(Element[listaZ2Rd8, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
I5 = Element(Element[listaZ4, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
J5 = Element(Element[listaZ42, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
K5 = Element(Element[listaZR4, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
L5 = Element(Element[listaZR42, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
M5 = Element(Element[listaZ3, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
N5 = Element(Element[listaZ3', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
O5 = Element(Element[listaZR3, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
P5 = Element(Element[listaZR3', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
Q5 = Element(Element[listaZ6, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
R5 = Element(Element[listaZ6', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
S5 = Element(Element[listaZR6, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
T5 = Element(Element[listaZR6', 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
B5 = Element(Element[listaZ, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
C6 = Element(Element[listaZ2, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
D6 = Element(Element[listaZR, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
E6 = Element(Element[listaZR2, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
F6 = Element(Element[listaZRd6, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
G6 = Element(Element[listaZRD8, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
H6 = Element(Element[listaZ2Rd8, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
I6 = Element(Element[listaZ4, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
J6 = Element(Element[listaZ42, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
K6 = Element(Element[listaZR4, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
L6 = Element(Element[listaZR42, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
M6 = Element(Element[listaZ3, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
N6 = Element(Element[listaZ3', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
O6 = Element(Element[listaZR3, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
P6 = Element(Element[listaZR3', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
Q6 = Element(Element[listaZ6, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
R6 = Element(Element[listaZ6', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
S6 = Element(Element[listaZR6, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
T6 = Element(Element[listaZR6', 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
B6 = Element(Element[listaZ, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
C7 = Element(Element[listaZ2, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
D7 = Element(Element[listaZR, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
E7 = Element(Element[listaZR2, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
F7 = Element(Element[listaZRd6, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
G7 = Element(Element[listaZRD8, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
H7 = Element(Element[listaZ2Rd8, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
I7 = Element(Element[listaZ4, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
J7 = Element(Element[listaZ42, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
K7 = Element(Element[listaZR4, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
L7 = Element(Element[listaZR42, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
M7 = Element(Element[listaZ3, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
N7 = Element(Element[listaZ3', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
O7 = Element(Element[listaZR3, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
P7 = Element(Element[listaZR3', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
Q7 = Element(Element[listaZ6, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
R7 = Element(Element[listaZ6', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
S7 = Element(Element[listaZR6, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
T7 = Element(Element[listaZR6', 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
B7 = Element(Element[listaZ, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
C8 = Element(Element[listaZ2, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
D8 = Element(Element[listaZR, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
E8 = Element(Element[listaZR2, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
F8 = Element(Element[listaZRd6, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
G8 = Element(Element[listaZRD8, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
H8 = Element(Element[listaZ2Rd8, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
I8 = Element(Element[listaZ4, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
J8 = Element(Element[listaZ42, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
K8 = Element(Element[listaZR4, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
L8 = Element(Element[listaZR42, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
M8 = Element(Element[listaZ3, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
N8 = Element(Element[listaZ3', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
O8 = Element(Element[listaZR3, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
P8 = Element(Element[listaZR3', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
Q8 = Element(Element[listaZ6, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
R8 = Element(Element[listaZ6', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
S8 = Element(Element[listaZR6, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
T8 = Element(Element[listaZR6', 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
B8 = Element(Element[listaZ, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
C9 = Element(Element[listaZ2, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
D9 = Element(Element[listaZR, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
E9 = Element(Element[listaZR2, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
F9 = Element(Element[listaZRd6, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
G9 = Element(Element[listaZRD8, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
H9 = Element(Element[listaZ2Rd8, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
I9 = Element(Element[listaZ4, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
J9 = Element(Element[listaZ42, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
K9 = Element(Element[listaZR4, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
L9 = Element(Element[listaZR42, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
M9 = Element(Element[listaZ3, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
N9 = Element(Element[listaZ3', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
O9 = Element(Element[listaZR3, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
P9 = Element(Element[listaZR3', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
Q9 = Element(Element[listaZ6, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
R9 = Element(Element[listaZ6', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
S9 = Element(Element[listaZR6, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
T9 = Element(Element[listaZR6', 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
B9 = Element(Element[listaZ, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
B10 = Element(Element[listaZ, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
B11 = Element(Element[listaZ, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
B12 = Element(Element[listaZ, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
B13 = Element(Element[listaZ, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
B14 = Element(Element[listaZ, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
B15 = Element(Element[listaZ, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
B16 = Element(Element[listaZ, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
B17 = Element(Element[listaZ, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
B18 = Element(Element[listaZ, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
B19 = Element(Element[listaZ, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
B20 = Element(Element[listaZ, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
B21 = Element(Element[listaZ, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
B22 = Element(Element[listaZ, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
B23 = Element(Element[listaZ, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
B24 = Element(Element[listaZ, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
B25 = Element(Element[listaZ, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
C10 = Element(Element[listaZ2, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
D10 = Element(Element[listaZR, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
E10 = Element(Element[listaZR2, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
F10 = Element(Element[listaZRd6, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
G10 = Element(Element[listaZRD8, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
H10 = Element(Element[listaZ2Rd8, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
I10 = Element(Element[listaZ4, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
J10 = Element(Element[listaZ42, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
K10 = Element(Element[listaZR4, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
L10 = Element(Element[listaZR42, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
M10 = Element(Element[listaZ3, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
N10 = Element(Element[listaZ3', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
O10 = Element(Element[listaZR3, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
P10 = Element(Element[listaZR3', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
Q10 = Element(Element[listaZ6, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
R10 = Element(Element[listaZ6', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
S10 = Element(Element[listaZR6, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
T10 = Element(Element[listaZR6', 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
C11 = Element(Element[listaZ2, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
D11 = Element(Element[listaZR, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
E11 = Element(Element[listaZR2, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
F11 = Element(Element[listaZRd6, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
G11 = Element(Element[listaZRD8, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
H11 = Element(Element[listaZ2Rd8, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
I11 = Element(Element[listaZ4, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
J11 = Element(Element[listaZ42, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
K11 = Element(Element[listaZR4, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
L11 = Element(Element[listaZR42, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
M11 = Element(Element[listaZ3, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
N11 = Element(Element[listaZ3', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
O11 = Element(Element[listaZR3, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
P11 = Element(Element[listaZR3', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
Q11 = Element(Element[listaZ6, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
R11 = Element(Element[listaZ6', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
S11 = Element(Element[listaZR6, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
T11 = Element(Element[listaZR6', 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
C12 = Element(Element[listaZ2, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
D12 = Element(Element[listaZR, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
E12 = Element(Element[listaZR2, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
F12 = Element(Element[listaZRd6, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
G12 = Element(Element[listaZRD8, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
H12 = Element(Element[listaZ2Rd8, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
I12 = Element(Element[listaZ4, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
J12 = Element(Element[listaZ42, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
K12 = Element(Element[listaZR4, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
L12 = Element(Element[listaZR42, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
M12 = Element(Element[listaZ3, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
N12 = Element(Element[listaZ3', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
O12 = Element(Element[listaZR3, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
P12 = Element(Element[listaZR3', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
Q12 = Element(Element[listaZ6, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
R12 = Element(Element[listaZ6', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
S12 = Element(Element[listaZR6, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
T12 = Element(Element[listaZR6', 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
C13 = Element(Element[listaZ2, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
D13 = Element(Element[listaZR, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
E13 = Element(Element[listaZR2, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
F13 = Element(Element[listaZRd6, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
G13 = Element(Element[listaZRD8, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
H13 = Element(Element[listaZ2Rd8, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
I13 = Element(Element[listaZ4, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
J13 = Element(Element[listaZ42, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
K13 = Element(Element[listaZR4, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
L13 = Element(Element[listaZR42, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
M13 = Element(Element[listaZ3, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
N13 = Element(Element[listaZ3', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
O13 = Element(Element[listaZR3, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
P13 = Element(Element[listaZR3', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
Q13 = Element(Element[listaZ6, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
R13 = Element(Element[listaZ6', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
S13 = Element(Element[listaZR6, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
T13 = Element(Element[listaZR6', 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
C14 = Element(Element[listaZ2, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
D14 = Element(Element[listaZR, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
E14 = Element(Element[listaZR2, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
F14 = Element(Element[listaZRd6, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
G14 = Element(Element[listaZRD8, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
H14 = Element(Element[listaZ2Rd8, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
I14 = Element(Element[listaZ4, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
J14 = Element(Element[listaZ42, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
K14 = Element(Element[listaZR4, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
L14 = Element(Element[listaZR42, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
M14 = Element(Element[listaZ3, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
N14 = Element(Element[listaZ3', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
O14 = Element(Element[listaZR3, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
P14 = Element(Element[listaZR3', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
Q14 = Element(Element[listaZ6, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
R14 = Element(Element[listaZ6', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
S14 = Element(Element[listaZR6, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
T14 = Element(Element[listaZR6', 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
C15 = Element(Element[listaZ2, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
D15 = Element(Element[listaZR, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
E15 = Element(Element[listaZR2, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
F15 = Element(Element[listaZRd6, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
G15 = Element(Element[listaZRD8, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
H15 = Element(Element[listaZ2Rd8, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
I15 = Element(Element[listaZ4, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
J15 = Element(Element[listaZ42, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
K15 = Element(Element[listaZR4, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
L15 = Element(Element[listaZR42, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
M15 = Element(Element[listaZ3, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
N15 = Element(Element[listaZ3', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
O15 = Element(Element[listaZR3, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
P15 = Element(Element[listaZR3', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
Q15 = Element(Element[listaZ6, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
R15 = Element(Element[listaZ6', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
S15 = Element(Element[listaZR6, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
T15 = Element(Element[listaZR6', 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
C16 = Element(Element[listaZ2, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
D16 = Element(Element[listaZR, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
E16 = Element(Element[listaZR2, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
F16 = Element(Element[listaZRd6, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
G16 = Element(Element[listaZRD8, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
H16 = Element(Element[listaZ2Rd8, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
I16 = Element(Element[listaZ4, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
J16 = Element(Element[listaZ42, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
K16 = Element(Element[listaZR4, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
L16 = Element(Element[listaZR42, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
M16 = Element(Element[listaZ3, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
N16 = Element(Element[listaZ3', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
O16 = Element(Element[listaZR3, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
P16 = Element(Element[listaZR3', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
Q16 = Element(Element[listaZ6, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
R16 = Element(Element[listaZ6', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
S16 = Element(Element[listaZR6, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
T16 = Element(Element[listaZR6', 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
C17 = Element(Element[listaZ2, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
D17 = Element(Element[listaZR, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
E17 = Element(Element[listaZR2, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
F17 = Element(Element[listaZRd6, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
G17 = Element(Element[listaZRD8, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
H17 = Element(Element[listaZ2Rd8, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
I17 = Element(Element[listaZ4, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
J17 = Element(Element[listaZ42, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
K17 = Element(Element[listaZR4, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
L17 = Element(Element[listaZR42, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
M17 = Element(Element[listaZ3, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
N17 = Element(Element[listaZ3', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
O17 = Element(Element[listaZR3, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
P17 = Element(Element[listaZR3', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
Q17 = Element(Element[listaZ6, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
R17 = Element(Element[listaZ6', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
S17 = Element(Element[listaZR6, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
T17 = Element(Element[listaZR6', 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
C18 = Element(Element[listaZ2, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
D18 = Element(Element[listaZR, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
E18 = Element(Element[listaZR2, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
F18 = Element(Element[listaZRd6, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
G18 = Element(Element[listaZRD8, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
H18 = Element(Element[listaZ2Rd8, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
I18 = Element(Element[listaZ4, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
J18 = Element(Element[listaZ42, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
K18 = Element(Element[listaZR4, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
L18 = Element(Element[listaZR42, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
M18 = Element(Element[listaZ3, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
N18 = Element(Element[listaZ3', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
O18 = Element(Element[listaZR3, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
P18 = Element(Element[listaZR3', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
Q18 = Element(Element[listaZ6, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
R18 = Element(Element[listaZ6', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
S18 = Element(Element[listaZR6, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
T18 = Element(Element[listaZR6', 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
C19 = Element(Element[listaZ2, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
D19 = Element(Element[listaZR, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
E19 = Element(Element[listaZR2, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
F19 = Element(Element[listaZRd6, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
G19 = Element(Element[listaZRD8, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
H19 = Element(Element[listaZ2Rd8, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
I19 = Element(Element[listaZ4, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
J19 = Element(Element[listaZ42, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
K19 = Element(Element[listaZR4, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
L19 = Element(Element[listaZR42, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
M19 = Element(Element[listaZ3, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
N19 = Element(Element[listaZ3', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
O19 = Element(Element[listaZR3, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
P19 = Element(Element[listaZR3', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
Q19 = Element(Element[listaZ6, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
R19 = Element(Element[listaZ6', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
S19 = Element(Element[listaZR6, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
T19 = Element(Element[listaZR6', 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
C20 = Element(Element[listaZ2, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
D20 = Element(Element[listaZR, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
E20 = Element(Element[listaZR2, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
F20 = Element(Element[listaZRd6, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
G20 = Element(Element[listaZRD8, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
H20 = Element(Element[listaZ2Rd8, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
I20 = Element(Element[listaZ4, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
J20 = Element(Element[listaZ42, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
K20 = Element(Element[listaZR4, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
L20 = Element(Element[listaZR42, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
M20 = Element(Element[listaZ3, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
N20 = Element(Element[listaZ3', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
O20 = Element(Element[listaZR3, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
P20 = Element(Element[listaZR3', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
Q20 = Element(Element[listaZ6, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
R20 = Element(Element[listaZ6', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
S20 = Element(Element[listaZR6, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
T20 = Element(Element[listaZR6', 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
C21 = Element(Element[listaZ2, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
D21 = Element(Element[listaZR, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
E21 = Element(Element[listaZR2, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
F21 = Element(Element[listaZRd6, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
G21 = Element(Element[listaZRD8, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
H21 = Element(Element[listaZ2Rd8, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
I21 = Element(Element[listaZ4, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
J21 = Element(Element[listaZ42, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
K21 = Element(Element[listaZR4, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
L21 = Element(Element[listaZR42, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
M21 = Element(Element[listaZ3, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
N21 = Element(Element[listaZ3', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
O21 = Element(Element[listaZR3, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
P21 = Element(Element[listaZR3', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
Q21 = Element(Element[listaZ6, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
R21 = Element(Element[listaZ6', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
S21 = Element(Element[listaZR6, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
T21 = Element(Element[listaZR6', 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
C22 = Element(Element[listaZ2, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
D22 = Element(Element[listaZR, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
E22 = Element(Element[listaZR2, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
F22 = Element(Element[listaZRd6, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
G22 = Element(Element[listaZRD8, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
H22 = Element(Element[listaZ2Rd8, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
I22 = Element(Element[listaZ4, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
J22 = Element(Element[listaZ42, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
K22 = Element(Element[listaZR4, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
L22 = Element(Element[listaZR42, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
M22 = Element(Element[listaZ3, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
N22 = Element(Element[listaZ3', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
O22 = Element(Element[listaZR3, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
P22 = Element(Element[listaZR3', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
Q22 = Element(Element[listaZ6, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
R22 = Element(Element[listaZ6', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
S22 = Element(Element[listaZR6, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
T22 = Element(Element[listaZR6', 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
C23 = Element(Element[listaZ2, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
D23 = Element(Element[listaZR, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
E23 = Element(Element[listaZR2, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
F23 = Element(Element[listaZRd6, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
G23 = Element(Element[listaZRD8, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
H23 = Element(Element[listaZ2Rd8, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
I23 = Element(Element[listaZ4, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
J23 = Element(Element[listaZ42, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
K23 = Element(Element[listaZR4, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
L23 = Element(Element[listaZR42, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
M23 = Element(Element[listaZ3, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
N23 = Element(Element[listaZ3', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
O23 = Element(Element[listaZR3, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
P23 = Element(Element[listaZR3', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
Q23 = Element(Element[listaZ6, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
R23 = Element(Element[listaZ6', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
S23 = Element(Element[listaZR6, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
T23 = Element(Element[listaZR6', 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
C24 = Element(Element[listaZ2, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
D24 = Element(Element[listaZR, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
E24 = Element(Element[listaZR2, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
F24 = Element(Element[listaZRd6, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
G24 = Element(Element[listaZRD8, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
H24 = Element(Element[listaZ2Rd8, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
I24 = Element(Element[listaZ4, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
J24 = Element(Element[listaZ42, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
K24 = Element(Element[listaZR4, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
L24 = Element(Element[listaZR42, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
M24 = Element(Element[listaZ3, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
N24 = Element(Element[listaZ3', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
O24 = Element(Element[listaZR3, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
P24 = Element(Element[listaZR3', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
Q24 = Element(Element[listaZ6, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
R24 = Element(Element[listaZ6', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
S24 = Element(Element[listaZR6, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
T24 = Element(Element[listaZR6', 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
C25 = Element(Element[listaZ2, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
D25 = Element(Element[listaZR, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
E25 = Element(Element[listaZR2, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
F25 = Element(Element[listaZRd6, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
G25 = Element(Element[listaZRD8, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
H25 = Element(Element[listaZ2Rd8, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
I25 = Element(Element[listaZ4, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
J25 = Element(Element[listaZ42, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
K25 = Element(Element[listaZR4, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
L25 = Element(Element[listaZR42, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
M25 = Element(Element[listaZ3, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
N25 = Element(Element[listaZ3', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
O25 = Element(Element[listaZR3, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
P25 = Element(Element[listaZR3', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
Q25 = Element(Element[listaZ6, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
R25 = Element(Element[listaZ6', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
S25 = Element(Element[listaZR6, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
T25 = Element(Element[listaZR6', 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
vértices = true
xGoma = -1.5 (slider from -1.5 to -1, step 0.01)
yGoma = 0.1 (slider from 0 to 0.3, step 0.01)
PuntoGoma: (xGoma, yGoma)
listaNombresGrupos: {"o (p1)", "2222 (p2)", "*x (cm)", "2*22 (cmm)", "** (pm)", "xx (pg)", "*2222 (pmm)", "22x (pgg)", "22* (pmg)", "442 (p4)", "*442 (p4m)", "4*2 (p4g)", "333 (p3)", "*333 (p3m1)", "3*3 (p31m)", "632 (p6)", "*632 (p6m)"}
azulejo = true
c = Vector(VertC1, VertB1)
listaTextoCC2: {"Romboide", "Rombo", "Hexágono", "Rectángulo", "Cuadrado", "Rectángulo", "Cuadrado", "Rombo", "Hexágono", "Romboide", "Cuadrado", "Rectángulo", "Rombo", "Hexágono", "Romboide", "Hexágono", "Rombo", "Romboide", "Rectángulo", "Cuadrado", "Rombo", "Hexágono", "Cuadrado", "Romboide", "Rectángulo"}
listaTextoElige: {"Romboide (grupos 2, 1)", "Rectángulo (grupos 9, 8, 7, 6, 5, 2, 1)", "Cuadrado (grupos 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1)", "Hexágono (grupos 17, 16, 15, 14, 13, 4, 3, 2, 1)", "Rombo (grupos 4, 3, 2, 1)"}
tipoDetectado = Element(listaTextoElige, elige + 1)
texto2: "Detectado azulejo con posible forma de " + tipoDetectado
rectas01: {Sequence[Line[A + (s * u), A + v + (s * u)], s, (-((4 * k))), (4 * k)], Sequence[Line[A + (s * v), A + u + (s * v)], s, (-((4 * k))), (4 * k)]}
listaFormasGrupos: {"Romboide", "Romboide", "Rombo", "Rombo", "Rectángulo", "Rectángulo", "Rectángulo", "Rectángulo", "Rectángulo", "Cuadrado", "Cuadrado", "Cuadrado", "Hexágono", "Hexágono", "Hexágono", "Hexágono", "Hexágono"}
nombreGrupo: "Grupo " + Grupo + " 
" + (Element[listaNombresGrupos, Grupo]) + " 
" + (Element[listaFormasGrupos, Grupo])
A00: A0 - (0.78, 1.47)
B00: B0 - (0.78, 1.47)
C00: C0 - (0.78, 1.47)
listaAzulejos: {{A, B, D, C, A}, {A, B, D, C, A}, {A, B, D, C, A}, {A, B, D, C, A}, {A, B, D, C, A}, {B'1, B, A, A'1, A'z, Desplazamiento, Desplazamientou, B'z}, {A, B, D, C, A}, {A, B, D, C, A, M, EM, E, B'1, A'1, A}, {A, B, D, C, A, M, EM, M, A}, {A, B, D, C, A, M, EM, E, B'1, A'1, A}, {A, B, D, C, A}, {A, B, D, C, A, M, EM, E, B'1, A'1, A}, {F, O, G, B, F, O, H, A, F, O, H, C, G, B, F}, {A, H, C, G, B, F, A}, {F, A, H, C, G, B, F, O, H, O, G}, {F, O, B, G, O, C, H, O, A, F, A, H, C, G, B, F}, {A, H, C, G, B, F, A}}
PPP: (xZ, yZ)
colorM: {Polygon[ColorMuestra, ColorMuestra + (1, 0), ColorMuestra + (1, 1), ColorMuestra + (0, 1)]}
azulejo1 = Sequence(Segment[Element[Element[listaAzulejos, Grupo], s], Element[Element[listaAzulejos, Grupo], s + 1]], s, 1, Length[Element[listaAzulejos, Grupo]] - 1)
I = (-3.34, 5.44)
d = Circle(I, 0.6172839506172839)
J = Point(d)
β0: round(Angle[I + (0.5, 0), I, J])
problema: Div[(β0 * 10 / °), 360] + 1
detección = true
texto1: " " + cMrojo + " %
 " + cMverde + " %
 " + cMazul + " %"
oculta = false
listaMensajes: {"En el grupo 'o' cualquier posición del azulejo es válida", "En el grupo 2222 el desplazador debe ser un R2", "En el grupo *x hay un espejo", "En el grupo 2*22 hay dos espejos", "En el grupo ** hay  espejos en una dirección", "En el grupo xx hay un ejes de deslizamiento en una dirección", "En el grupo *2222 hay espejos perpendiculares", "En el grupo 22x el desplazador debe ser un R2 y hay dos ejes de deslizamiento", "En el grupo 22* hay un espejo y un R2 descentrado", "En el grupo 442 el desplazador debe ser un R4", "En el grupo *442 hay espejos en cuatro direcciones", "En el grupo 4*2 hay espejos en dos direcciones perpendiculares", "En el grupo 333 el desplazador debe ser un R3", "En el grupo *333 hay espejos en tres direcciones", "En el grupo 3*3 hay  espejos en tres direcciones", "En el grupo 632 el desplazador debe ser un R6", "En el grupo *632 hay espejos en seis direcciones"}
mensaje = Element(listaMensajes, Grupo)
AA': (A + A'1) / 2
BB': (B + B'1) / 2
CA': (C + A'1) / 2
DB': (D + B'1) / 2
AM: (A + M) / 2
BM: (B + M) / 2
CEM: (C + EM) / 2
DEM: (D + EM) / 2
listaEspejosAzulejo: {{Segment[(0, 40), (0, 40)]}, {Segment[(0, 40), (0, 40)]}, {Segment[A, D]}, {Segment[A, D], Segment[B, C]}, {Segment[A'1, B'1]}, {Segment[(0, 40), (0, 40)]}, {Segment[A'1, B'1], Segment[M, EM]}, {Segment[(0, 40), (0, 40)]}, {Segment[A'1, B'1]}, {Segment[(0, 40), (0, 40)]}, {Segment[A'1, B'1], Segment[A, D], Segment[M, EM], Segment[B, C]}, {Segment[A'1, EM], Segment[EM, B'1], Segment[B'1, M], Segment[M, A'1]}, {Segment[(0, 40), (0, 40)]}, {Segment[A, G], Segment[B, H], Segment[C, F]}, {Segment[F, G], Segment[G, H], Segment[F, H]}, {Segment[(0, 40), (0, 40)]}, {Segment[A, G], Segment[B, H], Segment[C, F], Segment[N, CH], Segment[CG, AF], Segment[AH, BG]}}
desliza6 = Segment(A'z, B'z)
fondoMensaje: {Polygon[(40, 5.35), (-4, 5.35), (-4, 8), (40, 8)]}
listaEspejosAzulejo2: {{Segment[(0, 40), (0, 40)]}, {Segment[(0, 40), (0, 40)]}, {Segment[B, C]}, {Segment[A, D], Segment[B, C]}, {Segment[A'2, B'2]}, {Segment[(0, 40), (0, 40)]}, {Segment[A'1, B'1], Segment[M, EM]}, {Segment[(0, 40), (0, 40)]}, {Segment[A'2, B'2]}, {Segment[(0, 40), (0, 40)]}, {Segment[A'1, B'1], Segment[A, D], Segment[M, EM], Segment[B, C]}, {Segment[A'1, EM], Segment[EM, B'1], Segment[B'1, M], Segment[M, A'1]}, {Segment[(0, 40), (0, 40)]}, {Segment[AF, CG], Segment[N, CH], Segment[AH, BG]}, {Segment[A, B], Segment[B, C], Segment[A, C]}, {Segment[(0, 40), (0, 40)]}, {Segment[A, G], Segment[B, H], Segment[C, F], Segment[N, CH], Segment[CG, AF], Segment[AH, BG]}}
espejoAzulejo = If(reorienta0, Element[listaEspejosAzulejo2, Grupo], Element[listaEspejosAzulejo, Grupo])
Desplazamiento2u: Desplazamiento2 + C - A
A'2z: A'2 + z2
B'2z: B'2 + z2
desliza62 = Segment(A'2z, B'2z)
azulejo2: {Segment[B'2, C], Segment[C, A], Segment[A, A'2], Segment[A'2, A'2z], Segment[A'2z, Desplazamiento2], Segment[Desplazamiento2, Desplazamiento2u], Segment[Desplazamiento2u, B'2z]}
desliza8: {Segment[AA', BB'], Segment[AM, CEM]}
texto3: "Problema " + problema
azulejo3: {Segment[F, A], Segment[A, H], Segment[H, C], Segment[C, G], Segment[G, B], Segment[B, F], Segment[A, O], Segment[O, C], Segment[O, B]}