Centrar

Rotar cierto ángulo

Reflejar en la vertical

Reflejar en la horizontal

Celda primitiva

Aplicar simetrías

Azulejo

Vectores de traslación

Centros de rotación

Ejes de reflexión

Copiar parte del mosaico

Dibujo libre

Rastro

Color manual

Reflejar en la cuarta dirección

yQ = 0.64
xQ = 8.5 (slider from 2.26 to 20, step 0.01)
A = (7.46, -1.5800000000000012)
A0 = (-1.52, 2.159999999999999)
e = Ray(A0, Rotate[A0 + (1, 0), 45°, A0])
L = Point(e)
M = Point(e)
f = Segment(L, M)
F = Point(f)
B0: (x(F), y(A0))
Q: Corner[pincel, 1] + (0.05, 0)
B: A + B0 - A0
J: F + A0 - B0
CRot: J
CRot': CRot + A - A0
centrar = false
yT = -0.18000000000000113
xT = 7.46 (slider from 1.72 to 20, step 0.1)
TT0: (xT, yT)
k = 3 (slider from 0 to 20, step 1)
u = Vector(A, B)
C: A + J - A0
QR = Mirror(Q, Line[CRot', B])
v = Vector(A, C)
yR = 1.279999999999999
xR = 8.24 (slider from 2.3 to 20, step 0.1)
R0: (xR, yR)
C1: B + F - B0
J4: A0 + A0 - B0
J2: F + F - B0
J3: (x(J4), y(J2))
F'': (x(A0), y(J2))
E = (-2.58, -2.3000000000000003)
fi = 1.618033988749895
d = Circle(E, 1 / fi)
G = Point(d)
R: R0 - (0.78, 1.47)
β0 = Angle(E + (0.5, 0), E, G)
rota = false
β = If(rota, round(β0), 0°)
yF = 4.04 (slider from 3.337 to 4.04, step 0.01)
xF = -0.06 (slider from -0.06 to 0.92, step 0.01)
C2: A + J2 - A0
H = (0.2, -4.88)
A1 = 1
A2 = 2
xGoma = -0.9 (slider from -1.4 to -0.9, step 0.01)
yGoma = -1.8800000000000012 (slider from -2 to -1.7, step 0.01)
azulM = 22 (slider from 0 to 100, step 1)
rojoM = 70 (slider from 0 to 100, step 1)
verdeM = 54 (slider from 0 to 100, step 1)
reflejoD = false
reflejoH = false
motivo = true
isometrías = false
patrón = true
vectores = false
rotación = false
reflexión = false
copia = false
libre = false
rastro = false
manual = false
α = Angle(B0, A0, J)
rAB = Line(A, B)
rAC = Line(A, C)
a = Line(A, C)
b = Line(A, B)
qx = Line(Q, a)
qy = Line(Q, b)
Qy = Intersect(a, qy)
Qx = Intersect(b, qx)
PuntoGoma: (xGoma, yGoma)
A3: (2 * A2) - A1
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
A26: (2 * A25) - A24
A27: (2 * A26) - A25
A28: (2 * A27) - A26
A29: (2 * A28) - A27
A30: (2 * A29) - A28
A31: (2 * A30) - A29
A32: (2 * A31) - A30
A33: (2 * A32) - A31
A34: (2 * A33) - A32
A35: (2 * A34) - A33
A36: (2 * A35) - A34
A37: (2 * A36) - A35
A38: (2 * A37) - A36
A39: (2 * A38) - A37
A40: (2 * A39) - A38
A41: (2 * A40) - A39
A42: (2 * A41) - A40
A43: (2 * A42) - A41
A44: (2 * A43) - A42
A45: (2 * A44) - A43
A46: (2 * A45) - A44
A47: (2 * A46) - A45
A48: (2 * A47) - A46
c: {Distance[Q, rAC] / Distance[B, rAC], Distance[Q, rAB] / Distance[C, rAB], Distance[Q, B] / Distance[C, B]}
rojoA: Distance[Q, rAC] / Distance[B, rAC]
verdeA: Distance[Q, rAB] / Distance[C, rAB]
azulA: Distance[Q, B] / Distance[C, B]
rojo = If(manual, rojoM / 100, rojoA)
verde = If(manual, verdeM / 100, verdeA)
azul = If(manual, azulM / 100, azulA)
muestraColor: {Polygon[H, H + (1, 0), H + (1, fi), H + (0, fi)]}
texto1: "% Rojo = " + rojoM + "

% Verde = " + verdeM + "

% Azul = " + azulM
celda, celdaa, celdab, celdac, celdae = Polygon(A0, B0, F, J)
texto2: "Ángulo rotado = " + β
F': (x(J4), y(F))
celda', g, h, i, j = Polygon(F, J2, F'', J)
D: A + (u + v) / 3
P' = If(β > 0, Rotate[CRot', β, R], R)
T1: (xQ, yQ)
celda'', a0_1, crot, f', i_1 = Polygon(A0, CRot, F', J4)
C3: A + J3 - A0
cis2 = Rotate(cis1, 90°, CRot')
C4: A + J4 - A0
cis4 = Rotate(cis1, 270°, CRot')
F2 = Mirror(A0, CRot)
hayAxiales = true
listaCRot2 = Sequence(Sequence[Translate[CRot', Vector[(s * u) + (t * v)]], s, (-((2 * k))), (2 * k)], t, (-((2 * k))), (2 * k))
listaCRotUni = Join(listaCRot2)
listaP1 = Sequence(Sequence[Q + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
listaP2 = Sequence(Sequence[QR + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
listaP3 = Sequence(Sequence[Rotate[Q, 90°, R] + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
polígono1, j_1, f'_1, j3, f'' = Polygon(J, F', J3, F'')
patron: {Polygon[B, C2, C3, C4]}
lista1 = Sequence(Line[B + (s * (B - C4)), C2 + (s * (B - C4))], s, (-k), k)
lista2 = Sequence(Line[B + (s * (B - C2)), C4 + (s * (B - C2))], s, (-k), k)
vectoresP: {Vector[Q - (J2 - B0) / 2, Q + (J2 - B0) / 2], Vector[Q + (J2 - B0) / 2, Q - (J2 - B0) / 2], Vector[Q - (J4 - B0) / 2, Q + (J4 - B0) / 2], Vector[Q + (J4 - B0) / 2, Q - (J4 - B0) / 2]}
cis3 = Rotate(cis1, 180°, CRot')
cis5 = Mirror(cis1, Line[A + v, B])
cis6 = Rotate(cis5, 90°, CRot')
cis7 = Rotate(cis5, 180°, CRot')
cis8 = Rotate(cis5, 270°, CRot')
listaCisne1 = Sequence(Sequence[Translate[cis1, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaCisne2 = Sequence(Sequence[Translate[cis2, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaCisne3 = Sequence(Sequence[Translate[cis3, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaCisne4 = Sequence(Sequence[Translate[cis4, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaCisne5 = Sequence(Sequence[Translate[cis5, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaCisne6 = Sequence(Sequence[Translate[cis6, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaCisne7 = Sequence(Sequence[Translate[cis7, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaCisne8 = Sequence(Sequence[Translate[cis8, Vector[(s * (B - C4)) - (t * (C2 - B))]], s, (-k), k], t, (-k), k)
listaP4 = Sequence(Sequence[Rotate[QR, 90°, R] + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
T = If(centrar, CRot', TT0)
w = Vector(CRot', T)
baseCopia: {Polygon[Rotate[B + w - (4 * u) - (2 * v), β, R], Rotate[B + w + (2 * u) - (2 * v), β, R], Rotate[B + w + (4 * v) + (2 * u), β, R], Rotate[B + w - (4 * u) + (4 * v), β, R]]}
listaCisne1C = Sequence(Sequence[Rotate[Translate[cis1, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
listaCisne2C = Sequence(Sequence[Rotate[Translate[cis2, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
listaCisne3C = Sequence(Sequence[Rotate[Translate[cis3, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
listaCisne4C = Sequence(Sequence[Rotate[Translate[cis4, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
listaCisne5C = Sequence(Sequence[Rotate[Translate[cis5, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
listaCisne6C = Sequence(Sequence[Rotate[Translate[cis6, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
listaCisne7C = Sequence(Sequence[Rotate[Translate[cis7, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
listaCisne8C = Sequence(Sequence[Rotate[Translate[cis8, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], β, R], s, -1, 1], t, -1, 1)
a1 = Segment(T - (3 * u), T + (3 * u))
listaCisne1CH = Sequence(Sequence[Mirror[Translate[cis1, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne2CH = Sequence(Sequence[Mirror[Translate[cis2, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne3CH = Sequence(Sequence[Mirror[Translate[cis3, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne4CH = Sequence(Sequence[Mirror[Translate[cis4, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne5CH = Sequence(Sequence[Mirror[Translate[cis5, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne6CH = Sequence(Sequence[Mirror[Translate[cis6, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne7CH = Sequence(Sequence[Mirror[Translate[cis7, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCisne8CH = Sequence(Sequence[Mirror[Translate[cis8, Vector[w + Vector[(s * (B - C4)) - (t * (C2 - B))]]], Line[T, T + (1, 0)]], s, -1, 1], t, -1, 1)
listaCRot2B = Sequence(Sequence[Translate[CRot', Vector[(s * (u + v)) + (t * (u - v))]], s, (-k), k], t, (-k), k)
cis02 = Translate(cis2, Vector[A, A0])
cis03 = Translate(cis3, Vector[A, A0])
cis04 = Translate(cis4, Vector[A, A0])
cis01 = Translate(cis1, Vector[A, A0])
cis05 = Translate(cis5, Vector[A, A0])
cis06 = Translate(cis6, Vector[A, A0])
cis07 = Translate(cis7, Vector[A, A0])
cis08 = Translate(cis8, Vector[A, A0])
polígono2, n, p, q = Polygon(B0, F, CRot)
a2 = Segment(T + (3 * v), T - (3 * v))
listaCRotT: {Rotate[T - v, β, R]}
listaCRot: {CRot' - v}
Qz = Intersect(Line[Q, Vector[u - v]], b)
test: (AffineRatio[A, B, Qx] ≥ 0) ∧ (AffineRatio[A, B, Qx] ≤ 1) ∧ (AffineRatio[A, C, Qy] ≥ 0) ∧ (AffineRatio[A, C, Qy] ≤ 1) ∧ (AffineRatio[A, B, Qz] ≥ 0) ∧ (AffineRatio[A, B, Qz] ≤ 1) ∧ libre ∧ rastro
listaP5 = Sequence(Sequence[Rotate[Q, 180°, R] + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
listaP6 = Sequence(Sequence[Rotate[QR, 180°, R] + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
listaP7 = Sequence(Sequence[Rotate[Q, 270°, R] + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
listaP8 = Sequence(Sequence[Rotate[QR, 270°, R] + ((s * 2) * u) - ((t * 2) * v), s, (-k), k], t, (-k), k)
B1 = Element(Element[listaP1, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
D1 = Element(Element[listaP2, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
E1 = Element(Element[listaP3, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
G1 = Element(Element[listaP4, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
H1 = Element(Element[listaP5, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
I1 = Element(Element[listaP6, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
K1 = Element(Element[listaP7, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
L1 = Element(Element[listaP8, 1 + Div[A1, (2 * k) + 1]], 1 + Mod[A1, (2 * k) + 1])
B2 = Element(Element[listaP1, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
B3 = Element(Element[listaP1, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
B4 = Element(Element[listaP1, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
B5 = Element(Element[listaP1, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
B6 = Element(Element[listaP1, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
B7 = Element(Element[listaP1, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
B8 = Element(Element[listaP1, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
B9 = Element(Element[listaP1, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
B10 = Element(Element[listaP1, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
B11 = Element(Element[listaP1, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
B12 = Element(Element[listaP1, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
B13 = Element(Element[listaP1, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
B14 = Element(Element[listaP1, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
B15 = Element(Element[listaP1, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
B16 = Element(Element[listaP1, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
B17 = Element(Element[listaP1, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
B18 = Element(Element[listaP1, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
B19 = Element(Element[listaP1, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
B20 = Element(Element[listaP1, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
B21 = Element(Element[listaP1, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
B22 = Element(Element[listaP1, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
B23 = Element(Element[listaP1, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
B24 = Element(Element[listaP1, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
B25 = Element(Element[listaP1, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
B26 = Element(Element[listaP1, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
B27 = Element(Element[listaP1, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
B28 = Element(Element[listaP1, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
B29 = Element(Element[listaP1, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
B30 = Element(Element[listaP1, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
B31 = Element(Element[listaP1, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
B32 = Element(Element[listaP1, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
B33 = Element(Element[listaP1, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
B34 = Element(Element[listaP1, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
B35 = Element(Element[listaP1, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
B36 = Element(Element[listaP1, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
B37 = Element(Element[listaP1, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
B38 = Element(Element[listaP1, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
B39 = Element(Element[listaP1, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
B40 = Element(Element[listaP1, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
B41 = Element(Element[listaP1, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
B42 = Element(Element[listaP1, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
B43 = Element(Element[listaP1, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
B44 = Element(Element[listaP1, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
B45 = Element(Element[listaP1, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
B46 = Element(Element[listaP1, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
B47 = Element(Element[listaP1, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
B48 = Element(Element[listaP1, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
D2 = Element(Element[listaP2, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
D3 = Element(Element[listaP2, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
D4 = Element(Element[listaP2, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
D5 = Element(Element[listaP2, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
D6 = Element(Element[listaP2, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
D7 = Element(Element[listaP2, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
D8 = Element(Element[listaP2, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
D9 = Element(Element[listaP2, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
D10 = Element(Element[listaP2, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
D11 = Element(Element[listaP2, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
D12 = Element(Element[listaP2, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
D13 = Element(Element[listaP2, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
D14 = Element(Element[listaP2, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
D15 = Element(Element[listaP2, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
D16 = Element(Element[listaP2, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
D17 = Element(Element[listaP2, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
D18 = Element(Element[listaP2, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
D19 = Element(Element[listaP2, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
D20 = Element(Element[listaP2, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
D21 = Element(Element[listaP2, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
D22 = Element(Element[listaP2, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
D23 = Element(Element[listaP2, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
D24 = Element(Element[listaP2, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
D25 = Element(Element[listaP2, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
D26 = Element(Element[listaP2, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
D27 = Element(Element[listaP2, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
D28 = Element(Element[listaP2, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
D29 = Element(Element[listaP2, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
D30 = Element(Element[listaP2, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
D31 = Element(Element[listaP2, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
D32 = Element(Element[listaP2, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
D33 = Element(Element[listaP2, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
D34 = Element(Element[listaP2, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
D35 = Element(Element[listaP2, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
D36 = Element(Element[listaP2, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
D37 = Element(Element[listaP2, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
D38 = Element(Element[listaP2, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
D39 = Element(Element[listaP2, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
D40 = Element(Element[listaP2, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
D41 = Element(Element[listaP2, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
D42 = Element(Element[listaP2, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
D43 = Element(Element[listaP2, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
D44 = Element(Element[listaP2, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
D45 = Element(Element[listaP2, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
D46 = Element(Element[listaP2, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
D47 = Element(Element[listaP2, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
D48 = Element(Element[listaP2, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
E2 = Element(Element[listaP3, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
E3 = Element(Element[listaP3, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
E4 = Element(Element[listaP3, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
E5 = Element(Element[listaP3, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
E6 = Element(Element[listaP3, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
E7 = Element(Element[listaP3, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
E8 = Element(Element[listaP3, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
E9 = Element(Element[listaP3, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
E10 = Element(Element[listaP3, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
E11 = Element(Element[listaP3, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
E12 = Element(Element[listaP3, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
E13 = Element(Element[listaP3, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
E14 = Element(Element[listaP3, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
E15 = Element(Element[listaP3, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
E16 = Element(Element[listaP3, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
E17 = Element(Element[listaP3, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
E18 = Element(Element[listaP3, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
E19 = Element(Element[listaP3, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
E20 = Element(Element[listaP3, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
E21 = Element(Element[listaP3, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
E22 = Element(Element[listaP3, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
E23 = Element(Element[listaP3, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
E24 = Element(Element[listaP3, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
E25 = Element(Element[listaP3, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
E26 = Element(Element[listaP3, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
E27 = Element(Element[listaP3, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
E28 = Element(Element[listaP3, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
E29 = Element(Element[listaP3, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
E30 = Element(Element[listaP3, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
E31 = Element(Element[listaP3, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
E32 = Element(Element[listaP3, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
E33 = Element(Element[listaP3, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
E34 = Element(Element[listaP3, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
E35 = Element(Element[listaP3, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
E36 = Element(Element[listaP3, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
E37 = Element(Element[listaP3, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
E38 = Element(Element[listaP3, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
E39 = Element(Element[listaP3, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
E40 = Element(Element[listaP3, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
E41 = Element(Element[listaP3, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
E42 = Element(Element[listaP3, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
E43 = Element(Element[listaP3, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
E44 = Element(Element[listaP3, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
E45 = Element(Element[listaP3, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
E46 = Element(Element[listaP3, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
E47 = Element(Element[listaP3, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
E48 = Element(Element[listaP3, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
G2 = Element(Element[listaP4, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
G3 = Element(Element[listaP4, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
G4 = Element(Element[listaP4, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
G5 = Element(Element[listaP4, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
G6 = Element(Element[listaP4, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
G7 = Element(Element[listaP4, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
G8 = Element(Element[listaP4, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
G9 = Element(Element[listaP4, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
G10 = Element(Element[listaP4, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
G11 = Element(Element[listaP4, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
G12 = Element(Element[listaP4, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
G13 = Element(Element[listaP4, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
G14 = Element(Element[listaP4, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
G15 = Element(Element[listaP4, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
G16 = Element(Element[listaP4, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
G17 = Element(Element[listaP4, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
G18 = Element(Element[listaP4, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
G19 = Element(Element[listaP4, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
G20 = Element(Element[listaP4, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
G21 = Element(Element[listaP4, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
G22 = Element(Element[listaP4, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
G23 = Element(Element[listaP4, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
G24 = Element(Element[listaP4, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
G25 = Element(Element[listaP4, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
G26 = Element(Element[listaP4, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
G27 = Element(Element[listaP4, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
G28 = Element(Element[listaP4, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
G29 = Element(Element[listaP4, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
G30 = Element(Element[listaP4, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
G31 = Element(Element[listaP4, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
G32 = Element(Element[listaP4, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
G33 = Element(Element[listaP4, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
G34 = Element(Element[listaP4, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
G35 = Element(Element[listaP4, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
G36 = Element(Element[listaP4, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
G37 = Element(Element[listaP4, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
G38 = Element(Element[listaP4, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
G39 = Element(Element[listaP4, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
G40 = Element(Element[listaP4, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
G41 = Element(Element[listaP4, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
G42 = Element(Element[listaP4, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
G43 = Element(Element[listaP4, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
G44 = Element(Element[listaP4, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
G45 = Element(Element[listaP4, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
G46 = Element(Element[listaP4, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
G47 = Element(Element[listaP4, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
G48 = Element(Element[listaP4, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
H2 = Element(Element[listaP5, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
H3 = Element(Element[listaP5, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
H4 = Element(Element[listaP5, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
H5 = Element(Element[listaP5, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
H6 = Element(Element[listaP5, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
H7 = Element(Element[listaP5, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
H8 = Element(Element[listaP5, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
H9 = Element(Element[listaP5, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
H10 = Element(Element[listaP5, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
H11 = Element(Element[listaP5, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
H12 = Element(Element[listaP5, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
H13 = Element(Element[listaP5, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
H14 = Element(Element[listaP5, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
H15 = Element(Element[listaP5, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
H16 = Element(Element[listaP5, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
H17 = Element(Element[listaP5, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
H18 = Element(Element[listaP5, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
H19 = Element(Element[listaP5, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
H20 = Element(Element[listaP5, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
H21 = Element(Element[listaP5, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
H22 = Element(Element[listaP5, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
H23 = Element(Element[listaP5, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
H24 = Element(Element[listaP5, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
H25 = Element(Element[listaP5, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
H26 = Element(Element[listaP5, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
H27 = Element(Element[listaP5, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
H28 = Element(Element[listaP5, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
H29 = Element(Element[listaP5, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
H30 = Element(Element[listaP5, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
H31 = Element(Element[listaP5, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
H32 = Element(Element[listaP5, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
H33 = Element(Element[listaP5, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
H34 = Element(Element[listaP5, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
H35 = Element(Element[listaP5, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
H36 = Element(Element[listaP5, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
H37 = Element(Element[listaP5, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
H38 = Element(Element[listaP5, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
H39 = Element(Element[listaP5, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
H40 = Element(Element[listaP5, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
H41 = Element(Element[listaP5, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
H42 = Element(Element[listaP5, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
H43 = Element(Element[listaP5, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
H44 = Element(Element[listaP5, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
H45 = Element(Element[listaP5, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
H46 = Element(Element[listaP5, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
H47 = Element(Element[listaP5, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
H48 = Element(Element[listaP5, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
I2 = Element(Element[listaP6, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
I3 = Element(Element[listaP6, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
I4 = Element(Element[listaP6, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
I5 = Element(Element[listaP6, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
I6 = Element(Element[listaP6, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
I7 = Element(Element[listaP6, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
I8 = Element(Element[listaP6, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
I9 = Element(Element[listaP6, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
I10 = Element(Element[listaP6, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
I11 = Element(Element[listaP6, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
I12 = Element(Element[listaP6, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
I13 = Element(Element[listaP6, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
I14 = Element(Element[listaP6, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
I15 = Element(Element[listaP6, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
I16 = Element(Element[listaP6, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
I17 = Element(Element[listaP6, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
I18 = Element(Element[listaP6, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
I19 = Element(Element[listaP6, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
I20 = Element(Element[listaP6, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
I21 = Element(Element[listaP6, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
I22 = Element(Element[listaP6, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
I23 = Element(Element[listaP6, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
I24 = Element(Element[listaP6, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
I25 = Element(Element[listaP6, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
I26 = Element(Element[listaP6, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
I27 = Element(Element[listaP6, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
I28 = Element(Element[listaP6, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
I29 = Element(Element[listaP6, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
I30 = Element(Element[listaP6, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
I31 = Element(Element[listaP6, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
I32 = Element(Element[listaP6, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
I33 = Element(Element[listaP6, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
I34 = Element(Element[listaP6, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
I35 = Element(Element[listaP6, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
I36 = Element(Element[listaP6, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
I37 = Element(Element[listaP6, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
I38 = Element(Element[listaP6, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
I39 = Element(Element[listaP6, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
I40 = Element(Element[listaP6, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
I41 = Element(Element[listaP6, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
I42 = Element(Element[listaP6, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
I43 = Element(Element[listaP6, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
I44 = Element(Element[listaP6, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
I45 = Element(Element[listaP6, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
I46 = Element(Element[listaP6, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
I47 = Element(Element[listaP6, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
I48 = Element(Element[listaP6, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
K2 = Element(Element[listaP7, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
L2 = Element(Element[listaP8, 1 + Div[A2, (2 * k) + 1]], 1 + Mod[A2, (2 * k) + 1])
K3 = Element(Element[listaP7, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
L3 = Element(Element[listaP8, 1 + Div[A3, (2 * k) + 1]], 1 + Mod[A3, (2 * k) + 1])
K4 = Element(Element[listaP7, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
L4 = Element(Element[listaP8, 1 + Div[A4, (2 * k) + 1]], 1 + Mod[A4, (2 * k) + 1])
K5 = Element(Element[listaP7, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
L5 = Element(Element[listaP8, 1 + Div[A5, (2 * k) + 1]], 1 + Mod[A5, (2 * k) + 1])
K6 = Element(Element[listaP7, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
L6 = Element(Element[listaP8, 1 + Div[A6, (2 * k) + 1]], 1 + Mod[A6, (2 * k) + 1])
K7 = Element(Element[listaP7, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
L7 = Element(Element[listaP8, 1 + Div[A7, (2 * k) + 1]], 1 + Mod[A7, (2 * k) + 1])
K8 = Element(Element[listaP7, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
L8 = Element(Element[listaP8, 1 + Div[A8, (2 * k) + 1]], 1 + Mod[A8, (2 * k) + 1])
K9 = Element(Element[listaP7, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
L9 = Element(Element[listaP8, 1 + Div[A9, (2 * k) + 1]], 1 + Mod[A9, (2 * k) + 1])
K10 = Element(Element[listaP7, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
L10 = Element(Element[listaP8, 1 + Div[A10, (2 * k) + 1]], 1 + Mod[A10, (2 * k) + 1])
K11 = Element(Element[listaP7, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
L11 = Element(Element[listaP8, 1 + Div[A11, (2 * k) + 1]], 1 + Mod[A11, (2 * k) + 1])
K12 = Element(Element[listaP7, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
L12 = Element(Element[listaP8, 1 + Div[A12, (2 * k) + 1]], 1 + Mod[A12, (2 * k) + 1])
K13 = Element(Element[listaP7, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
L13 = Element(Element[listaP8, 1 + Div[A13, (2 * k) + 1]], 1 + Mod[A13, (2 * k) + 1])
K14 = Element(Element[listaP7, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
L14 = Element(Element[listaP8, 1 + Div[A14, (2 * k) + 1]], 1 + Mod[A14, (2 * k) + 1])
K15 = Element(Element[listaP7, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
L15 = Element(Element[listaP8, 1 + Div[A15, (2 * k) + 1]], 1 + Mod[A15, (2 * k) + 1])
K16 = Element(Element[listaP7, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
L16 = Element(Element[listaP8, 1 + Div[A16, (2 * k) + 1]], 1 + Mod[A16, (2 * k) + 1])
K17 = Element(Element[listaP7, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
L17 = Element(Element[listaP8, 1 + Div[A17, (2 * k) + 1]], 1 + Mod[A17, (2 * k) + 1])
K18 = Element(Element[listaP7, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
L18 = Element(Element[listaP8, 1 + Div[A18, (2 * k) + 1]], 1 + Mod[A18, (2 * k) + 1])
K19 = Element(Element[listaP7, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
L19 = Element(Element[listaP8, 1 + Div[A19, (2 * k) + 1]], 1 + Mod[A19, (2 * k) + 1])
K20 = Element(Element[listaP7, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
L20 = Element(Element[listaP8, 1 + Div[A20, (2 * k) + 1]], 1 + Mod[A20, (2 * k) + 1])
K21 = Element(Element[listaP7, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
L21 = Element(Element[listaP8, 1 + Div[A21, (2 * k) + 1]], 1 + Mod[A21, (2 * k) + 1])
K22 = Element(Element[listaP7, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
L22 = Element(Element[listaP8, 1 + Div[A22, (2 * k) + 1]], 1 + Mod[A22, (2 * k) + 1])
K23 = Element(Element[listaP7, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
L23 = Element(Element[listaP8, 1 + Div[A23, (2 * k) + 1]], 1 + Mod[A23, (2 * k) + 1])
K24 = Element(Element[listaP7, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
L24 = Element(Element[listaP8, 1 + Div[A24, (2 * k) + 1]], 1 + Mod[A24, (2 * k) + 1])
K25 = Element(Element[listaP7, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
L25 = Element(Element[listaP8, 1 + Div[A25, (2 * k) + 1]], 1 + Mod[A25, (2 * k) + 1])
K26 = Element(Element[listaP7, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
L26 = Element(Element[listaP8, 1 + Div[A26, (2 * k) + 1]], 1 + Mod[A26, (2 * k) + 1])
K27 = Element(Element[listaP7, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
L27 = Element(Element[listaP8, 1 + Div[A27, (2 * k) + 1]], 1 + Mod[A27, (2 * k) + 1])
K28 = Element(Element[listaP7, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
L28 = Element(Element[listaP8, 1 + Div[A28, (2 * k) + 1]], 1 + Mod[A28, (2 * k) + 1])
K29 = Element(Element[listaP7, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
L29 = Element(Element[listaP8, 1 + Div[A29, (2 * k) + 1]], 1 + Mod[A29, (2 * k) + 1])
K30 = Element(Element[listaP7, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
L30 = Element(Element[listaP8, 1 + Div[A30, (2 * k) + 1]], 1 + Mod[A30, (2 * k) + 1])
K31 = Element(Element[listaP7, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
L31 = Element(Element[listaP8, 1 + Div[A31, (2 * k) + 1]], 1 + Mod[A31, (2 * k) + 1])
K32 = Element(Element[listaP7, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
L32 = Element(Element[listaP8, 1 + Div[A32, (2 * k) + 1]], 1 + Mod[A32, (2 * k) + 1])
K33 = Element(Element[listaP7, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
L33 = Element(Element[listaP8, 1 + Div[A33, (2 * k) + 1]], 1 + Mod[A33, (2 * k) + 1])
K34 = Element(Element[listaP7, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
L34 = Element(Element[listaP8, 1 + Div[A34, (2 * k) + 1]], 1 + Mod[A34, (2 * k) + 1])
K35 = Element(Element[listaP7, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
L35 = Element(Element[listaP8, 1 + Div[A35, (2 * k) + 1]], 1 + Mod[A35, (2 * k) + 1])
K36 = Element(Element[listaP7, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
L36 = Element(Element[listaP8, 1 + Div[A36, (2 * k) + 1]], 1 + Mod[A36, (2 * k) + 1])
K37 = Element(Element[listaP7, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
L37 = Element(Element[listaP8, 1 + Div[A37, (2 * k) + 1]], 1 + Mod[A37, (2 * k) + 1])
K38 = Element(Element[listaP7, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
L38 = Element(Element[listaP8, 1 + Div[A38, (2 * k) + 1]], 1 + Mod[A38, (2 * k) + 1])
K39 = Element(Element[listaP7, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
L39 = Element(Element[listaP8, 1 + Div[A39, (2 * k) + 1]], 1 + Mod[A39, (2 * k) + 1])
K40 = Element(Element[listaP7, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
L40 = Element(Element[listaP8, 1 + Div[A40, (2 * k) + 1]], 1 + Mod[A40, (2 * k) + 1])
K41 = Element(Element[listaP7, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
L41 = Element(Element[listaP8, 1 + Div[A41, (2 * k) + 1]], 1 + Mod[A41, (2 * k) + 1])
K42 = Element(Element[listaP7, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
L42 = Element(Element[listaP8, 1 + Div[A42, (2 * k) + 1]], 1 + Mod[A42, (2 * k) + 1])
K43 = Element(Element[listaP7, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
L43 = Element(Element[listaP8, 1 + Div[A43, (2 * k) + 1]], 1 + Mod[A43, (2 * k) + 1])
K44 = Element(Element[listaP7, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
L44 = Element(Element[listaP8, 1 + Div[A44, (2 * k) + 1]], 1 + Mod[A44, (2 * k) + 1])
K45 = Element(Element[listaP7, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
L45 = Element(Element[listaP8, 1 + Div[A45, (2 * k) + 1]], 1 + Mod[A45, (2 * k) + 1])
K46 = Element(Element[listaP7, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
L46 = Element(Element[listaP8, 1 + Div[A46, (2 * k) + 1]], 1 + Mod[A46, (2 * k) + 1])
K47 = Element(Element[listaP7, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
L47 = Element(Element[listaP8, 1 + Div[A47, (2 * k) + 1]], 1 + Mod[A47, (2 * k) + 1])
K48 = Element(Element[listaP7, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
L48 = Element(Element[listaP8, 1 + Div[A48, (2 * k) + 1]], 1 + Mod[A48, (2 * k) + 1])
l = Segment(CRot, B0)
listaCRotB: {CRot' + (0, 0), B + (0, 0)}
listaCRotBT: {Rotate[T, β, R], Rotate[T + u - v, β, R]}
listaCRotBTD: {Mirror[T, a2], Mirror[T + u - v, a2]}
listaCRotBTH: {Mirror[T, a1], Mirror[T + u - v, a1]}
listaCRotTH: {Mirror[T - v, a1]}
lista3 = Sequence(Line[CRot' - u + v + ((s * 2) * u), CRot' + u - v + ((s * 2) * u)], s, (-(k + 1)), k + 1)
a0 = Segment(Rotate[T - (3 * u) + (3 * v), β, R], Rotate[T - (3 * v) + (3 * u), β, R])
reflejoK = false
a3 = Segment(Rotate[T + (3 * u) + (3 * v), β, R], Rotate[T - (3 * v) - (3 * u), β, R])
listaCRotBTK: {Mirror[T, a3], Mirror[T + u - v, a3]}
listaCRotTK: {Mirror[T - v, a3]}
lista4: {Sequence[Line[CRot' - u - v + ((s * 2) * v), CRot' + u + v + ((s * 2) * v)], s, (-(k + 1)), k + 1], Sequence[Line[CRot' + (s * v), CRot' + u + (s * v)], s, (-((2 * k))), (2 * k)], Sequence[Line[CRot' + (s * u), CRot' + v + (s * u)], s, (-((2 * k))), (2 * k)]}
PPP: (xQ, yQ)